fcb 0 Red fcc 'red' fcb 0 Silver fcc 'silver' fcb 0 Tan fcc 'tan' fcb 0 Tanger fcc 'tangerine' fcb 0 Turquo fcc 'turquoise' fcb 0 Vermil fcc 'vermilion' fcb 0 Violet fcc 'violet' fcb 0 White fcc 'white' fcb 0 Yellow fcc 'yellow' fcb 0 * Ptr table to possible ring names (original versions) * May have to with Label+PrgOffst-$1B2 offset so it points properly to where to loads in memory) L9869 fdb Agate+PrgOffst-$1B2 fdb Alexan+PrgOffst-$1B2 fdb Amethy+PrgOffst-$1B2 fdb Carnel+PrgOffst-$1B2 fdb Diamon+PrgOffst-$1B2 fdb Emeral+PrgOffst-$1B2 fdb German+PrgOffst-$1B2 fdb Granit+PrgOffst-$1B2 fdb Garnet+PrgOffst-$1B2 fdb Jade+PrgOffst-$1B2 fdb Krypton+PrgOffst-$1B2 fdb Lazuli+PrgOffst-$1B2 fdb Moonst+PrgOffst-$1B2 fdb Obsid+PrgOffst-$1B2 fdb Onyx+PrgOffst-$1B2 fdb Opal+PrgOffst-$1B2 fdb Pearl+PrgOffst-$1B2 fdb Perid+PrgOffst-$1B2 fdb Ruby+PrgOffst-$1B2 fdb Sapph+PrgOffst-$1B2 fdb Stibot+PrgOffst-$1B2 fdb Tiger+PrgOffst-$1B2 fdb Topaz+PrgOffst-$1B2 fdb Turq+PrgOffst-$1B2 fdb Taaff+PrgOffst-$1B2 fdb Zircon+PrgOffst-$1B2 Agate fcc 'agate' fcb 0 Alexan fcc 'alexandrite' fcb 0 Amethy fcc 'amethyst' fcb 0 Carnel fcc 'carnelian' fcb 0 Diamon fcc 'diamond' fcb 0 Emeral fcc 'emerald' fcb 0 German fcc 'germanium' fcb 0 Granit fcc 'granite' fcb 0 Garnet fcc 'garnet' fcb 0 Jade fcc 'jade' fcb 0 Krypton fcc 'kryptonite' fcb 0 Lazuli fcc 'lapis lazuli' fcb 0 Moonst fcc 'moonstone' fcb 0 Obsid fcc 'obsidian' fcb 0 Onyx fcc 'onyx' fcb 0 Opal fcc 'opal' fcb 0 Pearl fcc 'pearl' fcb 0 Perid fcc 'peridot' fcb 0 Ruby fcc 'ruby' fcb 0 Sapph fcc 'sapphire' fcb 0 Stibot fcc 'stibotantalite' fcb 0 Tiger fcc 'tiger eye' fcb 0 Topaz fcc 'topaz' fcb 0 Turq fcc 'turquoise' fcb 0 Taaff fcc 'taaffeite' fcb 0 Zircon fcc 'zircon' fcb 0 * This might be a specific object table of some sort? Maybe not. There is a routine that at * least goes to $19,x based on this, though L997B fdb $1904 ?Ptr to tbl of 8 bit values (0,x) fcb $05,$04,$1E,$1E,$17,$01,$05,$0F,$1E,$05,$05,$02,$06,$14 (2,x - $F,x) fcb $16,$06,$23,$1D,$14,$05,$06,$07,$1e,$08 ($10,x - $19,x) * Ptr table to possible staff names (original versions) * May have to with Label+PrgOffst-$1B2 offset so it points properly to where to loads in memory) L9995 fdb Avocad+PrgOffst-$1B2 fdb Bamboo+PrgOffst-$1B2 fdb Birch+PrgOffst-$1B2 fdb Cedar+PrgOffst-$1B2 fdb Cypress+PrgOffst-$1B2 fdb Dogwood+PrgOffst-$1B2 fdb Drift+PrgOffst-$1B2 fdb Ebony+PrgOffst-$1B2 fdb Elm+PrgOffst-$1B2 fdb Eucal+PrgOffst-$1B2 fdb Hemlock+PrgOffst-$1B2 fdb Ironw+PrgOffst-$1B2 fdb Maple+PrgOffst-$1B2 fdb Oaken+PrgOffst-$1B2 fdb Pine+PrgOffst-$1B2 fdb Redw+PrgOffst-$1B2 fdb Spruce+PrgOffst-$1B2 fdb Teak+PrgOffst-$1B2 fdb Walnut+PrgOffst-$1B2 fdb Zebra+PrgOffst-$1B2 Avocad fcc 'avocado wood' fcb 0 Bamboo fcc 'bamboo' fcb 0 Birch fcc 'birch' fcb 0 Cedar fcc 'cedar' fcb 0 Cypress fcc 'cypress' fcb 0 Dogwood fcc 'dogwood' fcb 0 Drift fcc 'driftwood' fcb 0 Ebony fcc 'ebony' fcb 0 Elm fcc 'elm' fcb 0 Eucal fcc 'eucalyptus' fcb 0 Hemlock fcc 'hemlock' fcb 0 Ironw fcc 'ironwood' fcb 0 Maple fcc 'maple' fcb 0 Oaken fcc 'oaken' fcb 0 Pine fcc 'pine' fcb 0 Redw fcc 'redwood' fcb 0 Spruce fcc 'spruce' fcb 0 Teak fcc 'teak' fcb 0 Walnut fcc 'walnut' fcb 0 Zebra fcc 'zebrawood' fcb 0 * Ptr table to possible wand names (original versions) * May have to with Label+PrgOffst-$1B2 offset so it points properly to where to loads in memory) L9A53 fdb Alumin+PrgOffst-$1B2 fdb Beryl+PrgOffst-$1B2 fdb Bone+PrgOffst-$1B2 fdb Brass+PrgOffst-$1B2 fdb Bronze+PrgOffst-$1B2 fdb Copper+PrgOffst-$1B2 fdb Electr+PrgOffst-$1B2 fdb Gold2+PrgOffst-$1B2 fdb Iron+PrgOffst-$1B2 fdb Lead+PrgOffst-$1B2 fdb Magnes+PrgOffst-$1B2 fdb Nickel+PrgOffst-$1B2 fdb Plat+PrgOffst-$1B2 fdb Steel+PrgOffst-$1B2 fdb Silver2+PrgOffst-$1B2 fdb Silic+PrgOffst-$1B2 fdb Tin+PrgOffst-$1B2 fdb Titan+PrgOffst-$1B2 fdb Tungst+PrgOffst-$1B2 fdb Zinc+PrgOffst-$1B2 Alumin fcc 'aluminum' fcb 0 Beryl fcc 'beryllium' fcb 0 Bone fcc 'bone' fcb 0 Brass fcc 'brass' fcb 0 Bronze fcc 'bronze' fcb 0 Copper fcc 'copper' fcb 0 Electr fcc 'electrum' fcb 0 Gold2 fcc 'gold' fcb 0 Iron fcc 'iron' fcb 0 Lead fcc 'lead' fcb 0 Magnes fcc 'magnesium' fcb 0 Nickel fcc 'nickel' fcb 0 Plat fcc 'platinum' fcb 0 Steel fcc 'steel' fcb 0 Silver2 fcc 'silver' fcb 0 Silic fcc 'silicon' fcb 0 Tin fcc 'tin' fcb 0 Titan fcc 'titanium' fcb 0 Tungst fcc 'tungsten' fcb 0 Zinc fcc 'zinc' fcb 0 * Clear 25 bytes @ u4A02 L9B09 pshs u,y,x,d clra ldx #$4A02 L9B0F cmpa #25 bhs L9B18 clr a,x inca bra L9B0F * Assign 14 random potion names to start (from list of 25 possible ones) L9B18 clr >$4A1B Clear entry # L9B1B lda >$4A1B Get current entry # cmpa #$0E Are we done assigning the random 14 potion names from the 25 master list? bhs L9B6A Yes, exit ldx #$4A02 L9B25 lda #25 25 possible potion names in master list lbsr L63A9 Get RND 1-25 tst a,x Have we already assigned this one? bne L9B25 Yes, pick a different random potion name * 6809/6309 - Since we can only get here if a,x is 0, replace 2 lines with inc a,x ldb #$01 Flag that we have used this potion name stb a,x lsla leax >L9790,pc Point to table of ptrs for potion names ($30 $80 $fc $59 ($FC5D,pc) ldu a,x Get ptr to potion name we will be using (absolute address when ROGUE is loaded) leau >$01B2,u Offset to ??? (appears to be middle of a ring name???) lda >$4A1B Get entry # again lsla * 2 since 2 byte ptrs ldx #$077D Point to table to hold ptrs to active potion names for this game stu a,x Save entry lda >$4A1B ldx #$060D clr a,x lda >$0D0C ldb #21 mul addd #$085F tfr d,u lda >$4A1B lsla ldx #$080B stu a,x inc >$0D0C inc >$4A1B bra L9B1B L9B6A puls pc,u,y,x,d L9B6C pshs u,y,x,d clr >$4A1C L9B71 lda >$4A1C cmpa #15 lbhs L9C00 ldu #$4B34 lda #4 lbsr L63A9 adda #$02 sta >$4A1D L9B87 tst >$4A1D beq L9BC4 dec >$4A1D lda #2 lbsr L63A9 adda #$01 sta >$4A1E L9B99 tst >$4A1E beq L9BBE dec >$4A1E * 6809/6309 - BSR lbsr L9C02 lbsr L3FE7 Get length of string @ X (NUL terminated) leay a,u cmpy #$4B47 bls L9BB4 clr >$4A1D bra L9BC4 L9BB4 tst ,x Copy buffer from X to U until a NUL is encountered beq L9B99 lda ,x+ sta ,u+ bra L9BB4 L9BBE lda #$20 Add space to output buffer sta ,u+ bra L9B87 L9BC4 clr ,-u clr >$4B48 lda >$4A1C Get scroll type ldx #$05FE Point to tbl of flags for scroll types known to player clr a,x Clear it lda >$0D0C ldb #21 mul addd #$085F tfr d,y lda >$4A1C lsla ldx #$07ED Point to tbl of scroll names assigned by player sty a,x inc >$0D0C lda >$4A1C ldb #21 mul addd #$0642 tfr d,x ldu #$4B34 lbsr L3FF3 inc >$4A1C lbra L9B71 L9C00 puls pc,u,y,x,d L9C02 pshs d clr >$4A22 ldx #$4A23 * 6809/6309 - BSR lbsr L9C32 sta >$4A21 lda #$02 lbsr L63A9 tsta bne L9C1B clr >$4A21 L9C1B ldx #$4A39 * 6809/6309 - BSR lbsr L9C32 sta >$4A20 ldx #$4A23 * 6809/6309 - next 3 lines - BSR / ldx #$4A1F / sta ,x lbsr L9C32 sta >$4A1F ldx #$4A1F puls pc,d L9C32 lbsr L3FE7 Get length of string @ X (NUL terminated) lbsr L63A9 lda a,x rts L9C3B pshs u,y,x,d clra ldx #$4A3F L9C41 cmpa #$1A ? bhs L9C4A clr a,x inca bra L9C41 L9C4A clr >$4A59 L9C4D lda >$4A59 cmpa #14 bhs L9CB7 ldx #$4A3F L9C57 lda #$1A lbsr L63A9 tst a,x bne L9C57 sta >$4A5A ldb #$01 stb a,x lsla leax >L9869,pc Point to possible ring names table ptrs ldu a,x Get ptr leau >$01B2,u lda >$4A59 lsla ldx #$0799 Ptr to ring names assigned by player stu a,x lda >$4A59 ldx #$061B ptr to ring flags (rings known to player) clr a,x lda >$0D0C ldb #21 mul addd #$085F tfr d,u lda >$4A59 lsla ldx #$0827 stu a,x inc >$0D0C lda >$4A59 ldb #4 mul addd #$034F tfr d,u lda ,u Get value to add ldb >$4A5A Get table entry # ldx >L997B,pc Point to another table adda b,x Add value to entry in table sta ,u Save that result inc >$4A59 bra L9C4D L9CB7 puls pc,u,y,x,d L9CB9 pshs u,y,x,d clra ldx #$4A71 L9CBF cmpa #20 Clear 20 bytes @ 4A71 bhs L9CC8 clr a,x inca bra L9CBF L9CC8 clra ldx #$4A5D Clear 20 bytes @ 4A5D L9CCC cmpa #20 bhs L9CD5 clr a,x inca bra L9CCC L9CD5 clr >$4A5B L9CD8 lda >$4A5B cmpa #14 lbhs L9D75 L9CE1 lda #$02 lbsr L63A9 tsta bne L9D18 lda #$14 lbsr L63A9 ldx #$4A5D tst a,x bne L9CE1 sta >$4A5C ldb #1 stb a,x ldu #$4A85 lda >$4A5B lsla ldx #$07D1 stu a,x lda >$4A5C lsla leax >L9A53,pc Point to tbl of ptrs to wand names ldu a,x leau >$01B2,u bra L9D47 L9D18 lda #20 lbsr L63A9 ldx #$4A71 tst a,x bne L9CE1 sta >$4A5C ldb #1 stb a,x ldu #$4A8A lda >$4A5B lsla ldx #$07D1 stu a,x lda >$4A5C lsla leax >L9995,pc Point to tbl of ptrs to staff names ldu a,x leau >$01B2,u * 6809/6309 redundant, remove BRA bra L9D47 L9D47 lda >$4A5B lsla ldx #$07B5 stu a,x lda >$4A5B ldx #$0629 clr a,x lda >$0D0C ldb #21 mul addd #$085F tfr d,u lda >$4A5B lsla ldx #$0843 stu a,x inc >$0D0C inc >$4A5B lbra L9CD8 L9D75 puls pc,u,y,x,d L9D77 pshs u,y,x,d ldd #10 std >$5E46 * 6809/6309 - chg to CLRB ldd #$0000 std >$5E44 ldx #$4A90 leau <80,x stu >$5E48 L9D8E cmpx >$5E48 * 6809/6309 - change to bhs L9D75 bhs L9DAD ldd >$5E46 std 2,x ldd >$5E44 std ,x lsl >$5E47 rol >$5E46 rol >$5E45 rol >$5E44 leax 4,x bra L9D8E * 6809/6309 - remove after above bhs change done. L9DAD puls pc,u,y,x,d emod eom equ * end puls pc,x,d Restore X&D & JMP to subroutine * Sub-function jump table (L50B2 is the base) L50B2 fdb L5511-L50B2 $045f 0 fdb L5675-L50B2u "v @/-700=-22 15836/-677=-23 15836/-654=-24 15836/-631=-25 15836/-608=-26 15836/-585=-27 15836/-562=-28 15836/-539=-29 15836/-516=-30 15836/-493=-32 15836/-470=-33 15836/-447=-35 15836/-424=-37 15836/-401=-39 15836/-378=-41 15836/-355=-44 15836/-332=-47 15836/-309=-51 15836/-286=-55 15836/-263=-60 15836/-240=-65 15836/-217=-72 15836/-194=-81 15836/-171=-92 15836/-148=-107 15836/-125=-126 15836/-102=-155 15836/-79=-200 15836/-56=-282 15836/-33=-479 15836/-10=-1583 15836/13=1218 15836/36=439 15836/59=268 15836/82=193 15836/105=150 15836/128=123 15836/151=104 15836/174=91 15836/197=80 15836/220=71 15836/243=65 15836/266=59 15836/289=54 15836/312=50 15836/335=47 15836/358=44 15836/381=41 15836/404=39 15836/427=37 15836/450=35 15836/473=33 15836/496=31 15836/519=30 15836/542=29 15836/565=28 15836/588=26 15836/611=25 15836/634=24 15836/657=24 15836/680=23 15912/-700=-22 15912/-677=-23 15912/-654=-24 15912/-631=-25 15912/-608=-26 15912/-585=-27 15912/-562=-28 15912/-539=-29 15912/-516=-30 15912/-493=-32 15912/-470=-33 15912/-447=-35 15912/-424=-37 15912/-401=-39 15912/-378=-42 15912/-355=-44 15912/-332=-47 15912/-309=-51 15912/-286=-55 15912/-263=-60 15912/-240=-66 15912/-217=-73 15912/-194=-82 15912/-171=-93 15912/-148=-107 15912/-125=-127 15912/-102=-156 15912/-79=-201 15912/-56=-284 15912/-33=-482 15912/-10=-1591 15912/13=1224 15912/36=442 15912/59=269 15912/82=194 15912/105=151 15912/128=124 15912/151=105 15912/174=91 15912/197=80 15912/220=72 15912/243=65 15912/266=59 15912/289=55 15912/312=51 15912/335=47 15912/358=44 15912/381=41 15912/404=39 15912/427=37 15912/450=35 15912/473=33 15912/496=32 15912/519=30 15912/542=29 15912/565=28 15912/588=27 15912/611=26 15912/634=25 15912/657=24 15912/680=23 15988/-700=-22 15988/-677=-23 15988/-654=-24 15988/-631=-25 15988/-608=-26 15988/-585=-27 15988/-562=-28 15988/-539=-29 15988/-516=-30 15988/-493=-32 15988/-470=-34 15988/-447=-35 15988/-424=-37 15988/-401=-39 15988/-378=-42 15988/-355=-45 15988/-332=-48 15988/-309=-51 15988/-286=-55 15988/-263=-60 15988/-240=-66 15988/-217=-73 15988/-194=-82 15988/-171=-93 15988/-148=-108 15988/-125=-127 15988/-102=-156 15988/-79=-202 15988/-56=-285 15988/-33=-484 15988/-10=-1598 15988/13=1229 15988/36=444 15988/59=270 15988/82=194 15988/105=152 15988/128=124 15988/151=105 15988/174=91 15988/197=81 15988/220=72 15988/243=65 15988/266=60 15988/289=55 15988/312=51 15988/335=47 15988/358=44 15988/381=41 15988/404=39 15988/427=37 15988/450=35 15988/473=33 15988/496=32 15988/519=30 15988/542=29 15988/565=28 15988/588=27 15988/611=26 15988/634=25 15988/657=24 15988/680=23 16064/-700=-22 16064/-677=-23 16064/-654=-24 16064/-631=-25 16064/-608=-26 16064/-585=-27 16064/-562=-28 16064/-539=-29 16064/-516=-31 16064/-493=-32 16064/-470=-34 16064/-447=-35 16064/-424=-37 16064/-401=-40 16064/-378=-42 16064/-355=-45 16064/-332=-48 16064/-309=-51 16064/-286=-56 16064/-263=-61 16064/-240=-66 16064/-217=-74 16064/-194=-82 16064/-171=-93 16064/-148=-108 16064/-125=-128 16064/-102=-157 16064/-79=-203 16064/-56=-286 16064/-33=-486 16064/-10=-1606 16064/13=1235 16064/36=446 16064/59=272 16064/82=195 16064/105=152 16064/128=125 16064/151=106 16064/174=92 16064/197=81 16064/220=73 16064/243=66 16064/266=60 16064/289=55 16064/312=51 16064/335=47 16064/358=44 16064/381=42 16064/404=39 16064/427=37 16064/450=35 16064/473=33 16064/496=32 16064/519=30 16064/542=29 16064/565=28 16064/588=27 16064/611=26 16064/634=25 16064/657=24 16064/680=23 16140/-700=-23 16140/-677=-23 16140/-654=-24 16140/-631=-25 16140/-608=-26 16140/-585=-27 16140/-562=-28 16140/-539=-29 16140/-516=-31 16140/-493=-32 16140/-470=-34 16140/-447=-36 16140/-424=-38 16140/-401=-40 16140/-378=-42 16140/-355=-45 16140/-332=-48 16140/-309=-52 16140/-286=-56 16140/-263=-61 16140/-240=-67 16140/-217=-74 16140/-194=-83 16140/-171=-94 16140/-148=-109 16140/-125=-129 16140/-102=-158 16140/-79=-204 16140/-56=-288 16140/-33=-489 16140/-10=-1614 16140/13=1241 16140/36=448 16140/59=273 16140/82=196 16140/105=153 16140/128=126 16140/151=106 16140/174=92 16140/197=81 16140/220=73 16140/243=66 16140/266=60 16140/289=55 16140/312=51 16140/335=48 16140/358=45 16140/381=42 16140/404=39 16140/427=37 16140/450=35 16140/473=34 16140/496=32 16140/519=31 16140/542=29 16140/565=28 16140/588=27 16140/611=26 16140/634=25 16140/657=24 16140/680=23 16216/-700=-23 16216/-677=-23 16216/-654=-24 16216/-631=-25 16216/-608=-26 16216/-585=-27 16216/-562=-28 16216/-539=-30 16216/-516=-31 16216/-493=-32 16216/-470=-34 16216/-447=-36 16216/-424=-38 16216/-401=-40 16216/-378=-42 16216/-355=-45 16216/-332=-48 16216/-309=-52 16216/-286=-56 16216/-263=-61 16216/-240=-67 16216/-217=-74 16216/-194=-83 16216/-171=-94 16216/-148=-109 16216/-125=-129 16216/-102=-158 16216/-79=-205 16216/-56=-289 16216/-33=-491 16216/-10=-1621 16216/13=1247 16216/36=450 16216/59=274 16216/82=197 16216/105=154 16216/128=126 16216/151=107 16216/174=93 16216/197=82 16216/220=73 16216/243=66 16216/266=60 16216/289=56 16216/312=51 16216/335=48 16216/358=45 16216/381=42 16216/404=40 16216/427=37 16216/450=36 16216/473=34 16216/496=32 16216/519=31 16216/542=29 16216/565=28 16216/588=27 16216/611=26 16216/634=25 16216/657=24 16216/680=23 16292/-700=-23 16292/-677=-24 16292/-654=-24 16292/-631=-25 16292/-608=-26 16292/-585=-27 16292/-562=-28 16292/-539=-30 16292/-516=-31 16292/-493=-33 16292/-470=-34 16292/-447=-36 16292/-424=-38 16292/-401=-40 16292/-378=-43 16292/-355=-45 16292/-332=-49 16292/-309=-52 16292/-286=-56 16292/-263=-61 16292/-240=-67 16292/-217=-75 16292/-194=-83 16292/-171=-95 16292/-148=-110 16292/-125=-130 16292/-102=-159 16292/-79=-206 16292/-56=-290 16292/-33=-493 16292/-10=-1629 16292/13=1253 16292/36=452 16292/59=276 16292/82=198 16292/105=155 16292/128=127 16292/151=107 16292/174=93 16292/197=82 16292/220=74 16292/243=67 16292/266=61 16292/289=56 16292/312=52 16292/335=48 16292/358=45 16292/381=42 16292/404=40 16292/427=38 16292/450=36 16292/473=34 16292/496=32 16292/519=31 16292/542=30 16292/565=28 16292/588=27 16292/611=26 16292/634=25 16292/657=24 16292/680=23 16368/-700=-23 16368/-677=-24 16368/-654=-25 16368/-631=-25 16368/-608=-26 16368/-585=-27 16368/-562=-29 16368/-539=-30 16368/-516=-31 16368/-493=-33 16368/-470=-34 16368/-447=-36 16368/-424=-38 16368/-401=-40 16368/-378=-43 16368/-355=-46 16368/-332=-49 16368/-309=-52 16368/-286=-57 16368/-263=-62 16368/-240=-68 16368/-217=-75 16368/-194=-84 16368/-171=-95 16368/-148=-110 16368/-125=-130 16368/-102=-160 16368/-79=-207 16368/-56=-292 16368/-33=-496 16368/-10=-1636 16368/13=1259 16368/36=454 16368/59=277 16368/82=199 16368/105=155 16368/128=127 16368/151=108 16368/174=94 16368/197=83 16368/220=74 16368/243=67 16368/266=61 16368/289=56 16368/312=52 16368/335=48 16368/358=45 16368/381=42 16368/404=40 16368/427=38 16368/450=36 16368/473=34 16368/496=33 16368/519=31 16368/542=30 16368/565=28 16368/588=27 16368/611=26 16368/634=25 16368/657=24 16368/680=24 16444/-700=-23 16444/-677=-24 16444/-654=-25 16444/-631=-26 16444/-608=-27 16444/-585=-28 16444/-562=-29 16444/-539=-30 16444/-516=-31 16444/-493=-33 16444/-470=-34 16444/-447=-36 16444/-424=-38 16444/-401=-41 16444/-378=-43 16444/-355=-46 16444/-332=-49 16444/-309=-53 16444/-286=-57 16444/-263=-62 16444/-240=-68 16444/-217=-75 16444/-194=-84 16444/-171=-96 16444/-148=-111 16444/-125=-131 16444/-102=-161 16444/-79=-208 16444/-56=-293 16444/-33=-498 16444/-10=-1644 16444/13=1264 16444/36=456 16444/59=278 16444/82=200 16444/105=156 16444/128=128 16444/151=108 16444/174=94 16444/197=83 16444/220=74 16444/243=67 16444/266=61 16444/289=56 16444/312=52 16444/335=49 16444/358=45 16444/381=43 16444/404=40 16444/427=38 16444/450=36 16444/473=34 16444/496=33 16444/519=31 16444/542=30 16444/565=29 16444/588=27 16444/611=26 16444/634=25 16444/657=25 16444/680=24 16520/-700=-23 16520/-677=-24 16520/-654=-25 16520/-631=-26 16520/-608=-27 16520/-585=-28 16520/-562=-29 16520/-539=-30 16520/-516=-32 16520/-493=-33 16520/-470=-35 16520/-447=-36 16520/-424=-38 16520/-401=-41 16520/-378=-43 16520/-355=-46 16520/-332=-49 16520/-309=-53 16520/-286=-57 16520/-263=-62 16520/-240=-68 16520/-217=-76 16520/-194=-85 16520/-171=-96 16520/-148=-111 16520/-125=-132 16520/-102=-161 16520/-79=-209 16520/-56=-295 16520/-33=-500 16520/-10=-1652 16520/13=1270 16520/36=458 16520/59=280 16520/82=201 16520/105=157 16520/128=129 16520/151=109 16520/174=94 16520/197=83 16520/220=75 16520/243=67 16520/266=62 16520/289=57 16520/312=52 16520/335=49 16520/358=46 16520/381=43 16520/404=40 16520/427=38 16520/450=36 16520/473=34 16520/496=33 16520/519=31 16520/542=30 16520/565=29 16520/588=28 16520/611=27 16520/634=26 16520/657=25 16520/680=24 16596/-700=-23 16596/-677=-24 16596/-654=-25 16596/-631=-26 16596/-608=-27 16596/-585=-28 16596/-562=-29 16596/-539=-30 16596/-516=-32 16596/-493=-33 16596/-470=-35 16596/-447=-37 16596/-424=-39 16596/-401=-41 16596/-378=-43 16596/-355=-46 16596/-332=-49 16596/-309=-53 16596/-286=-58 16596/-263=-63 16596/-240=-69 16596/-217=-76 16596/-194=-85 16596/-171=-97 16596/-148=-112 16596/-125=-132 16596/-102=-162 16596/-79=-210 16596/-56=-296 16596/-33=-502 16596/-10=-1659 16596/13=1276 16596/36=461 16596/59=281 16596/82=202 16596/105=158 16596/128=129 16596/151=109 16596/174=95 16596/197=84 16596/220=75 16596/243=68 16596/266=62 16596/289=57 16596/312=53 16596/335=49 16596/358=46 16596/381=43 16596/404=41 16596/427=38 16596/450=36 16596/473=35 16596/496=33 16596/519=31 16596/542=30 16596/565=29 16596/588=28 16596/611=27 16596/634=26 16596/657=25 16596/680=24 16672/-700=-23 16672/-677=-24 16672/-654=-25 16672/-631=-26 16672/-608=-27 16672/-585=-28 16672/-562=-29 16672/-539=-30 16672/-516=-32 16672/-493=-33 16672/-470=-35 16672/-447=-37 16672/-424=-39 16672/-401=-41 16672/-378=-44 16672/-355=-46 16672/-332=-50 16672/-309=-53 16672/-286=-58 16672/-263=-63 16672/-240=-69 16672/-217=-76 16672/-194=-85 16672/-171=-97 16672/-148=-112 16672/-125=-133 16672/-102=-163 16672/-79=-211 16672/-56=-297 16672/-33=-505 16672/-10=-1667 16672/13=1282 16672/36=463 16672/59=282 16672/82=203 16672/105=158 16672/128=130 16672/151=110 16672/174=95 16672/197=84 16672/220=75 16672/243=68 16672/266=62 16672/289=57 16672/312=53 16672/335=49 16672/358=46 16672/381=43 16672/404=41 16672/427=39 16672/450=37 16672/473=35 16672/496=33 16672/519=32 16672/542=30 16672/565=29 16672/588=28 16672/611=27 16672/634=26 16672/657=25 16672/680=24 16748/-700=-23 16748/-677=-24 16748/-654=-25 16748/-631=-26 16748/-608=-27 16748/-585=-28 16748/-562=-29 16748/-539=-31 16748/-516=-32 16748/-493=-33 16748/-470=-35 16748/-447=-37 16748/-424=-39 16748/-401=-41 16748/-378=-44 16748/-355=-47 16748/-332=-50 16748/-309=-54 16748/-286=-58 16748/-263=-63 16748/-240=-69 16748/-217=-77 16748/-194=-86 16748/-171=-97 16748/-148=-113 16748/-125=-133 16748/-102=-164 16748/-79=-212 16748/-56=-299 16748/-33=-507 16748/-10=-1674 16748/13=1288 16748/36=465 16748/59=283 16748/82=204 16748/105=159 16748/128=130 16748/151=110 16748/174=96 16748/197=85 16748/220=76 16748/243=68 16748/266=62 16748/289=57 16748/312=53 16748/335=49 16748/358=46 16748/381=43 16748/404=41 16748/427=39 16748/450=37 16748/473=35 16748/496=33 16748/519=32 16748/542=30 16748/565=29 16748/588=28 16748/611=27 16748/634=26 16748/657=25 16748/680=24 16824/-700=-24 16824/-677=-24 16824/-654=-25 16824/-631=-26 16824/-608=-27 16824/-585=-28 16824/-562=-29 16824/-539=-31 16824/-516=-32 16824/-493=-34 16824/-470=-35 16824/-447=-37 16824/-424=-39 16824/-401=-41 16824/-378=-44 16824/-355=-47 16824/-332=-50 16824/-309=-54 16824/-286=-58 16824/-263=-63 16824/-240=-70 16824/-217=-77 16824/-194=-86 16824/-171=-98 16824/-148=-113 16824/-125=-134 16824/-102=-164 16824/-79=-212 16824/-56=-300 16824/-33=-509 16824/-10=-1682 16824/13=1294 16824/36=467 16824/59=285 16824/82=205 16824/105=160 16824/128=131 16824/151=111 16824/174=96 16824/197=85 16824/220=76 16824/243=69 16824/266=63 16824/289=58 16824/312=53 16824/335=50 16824/358=46 16824/381=44 16824/404=41 16824/427=39 16824/450=37 16824/473=35 16824/496=33 16824/519=32 16824/542=31 16824/565=29 16824/588=28 16824/611=27 16824/634=26 16824/657=25 16824/680=24 16900/-700=-24 16900/-677=-24 16900/-654=-25 16900/-631=-26 16900/-608=-27 16900/-585=-28 16900/-562=-30 16900/-539=-31 16900/-516=-32 16900/-493=-34 16900/-470=-35 16900/-447=-37 16900/-424=-39 16900/-401=-42 16900/-378=-44 16900/-355=-47 16900/-332=-50 16900/-309=-54 16900/-286=-59 16900/-263=-64 16900/-240=-70 16900/-217=-77 16900/-194=-87 16900/-171=-98 16900/-148=-114 16900/-125=-135 16900/-102=-165 16900/-79=-213 16900/-56=-301 16900/-33=-512 16900/-10=-1690 16900/13=1300 16900/36=469 16900/59=286 16900/82=206 16900/105=160 16900/128=132 16900/151=111 16900/174=97 16900/197=85 16900/220=76 16900/243=69 16900/266=63 16900/289=58 16900/312=54 16900/335=50 16900/358=47 16900/381=44 16900/404=41 16900/427=39 16900/450=37 16900/473=35 16900/496=34 16900/519=32 16900/542=31 16900/565=29 16900/588=28 16900/611=27 16900/634=26 16900/657=25 16900/680=24 16976/-700=-24 16976/-677=-25 16976/-654=-25 16976/-631=-26 16976/-608=-27 16976/-585=-29 16976/-562=-30 16976/-539=-31 16976/-516=-32 16976/-493=-34 16976/-470=-36 16976/-447=-37 16976/-424=-40 16976/-401=-42 16976/-378=-44 16976/-355=-47 16976/-332=-51 16976/-309=-54 16976/-286=-59 16976/-263=-64 16976/-240=-70 16976/-217=-78 16976/-194=-87 16976/-171=-99 16976/-148=-114 16976/-125=-135 16976/-102=-166 16976/-79=-214 16976/-56=-303 16976/-33=-514 16976/-10=-1697 16976/13=1305 16976/36=471 16976/59=287 16976/82=207 16976/105=161 16976/128=132 16976/151=112 16976/174=97 16976/197=86 16976/220=77 16976/243=69 16976/266=63 16976/289=58 16976/312=54 16976/335=50 16976/358=47 16976/381=44 16976/404=42 16976/427=39 16976/450=37 16976/473=35 16976/496=34 16976/519=32 16976/542=31 16976/565=30 16976/588=28 16976/611=27 16976/634=26 16976/657=25 16976/680=24 17052/-700=-24 17052/-677=-25 17052/-654=-26 17052/-631=-27 17052/-608=-28 17052/-585=-29 17052/-562=-30 17052/-539=-31 17052/-516=-33 17052/-493=-34 17052/-470=-36 17052/-447=-38 17052/-424=-40 17052/-401=-42 17052/-378=-45 17052/-355=-48 17052/-332=-51 17052/-309=-55 17052/-286=-59 17052/-263=-64 17052/-240=-71 17052/-217=-78 17052/-194=-87 17052/-171=-99 17052/-148=-115 17052/-125=-136 17052/-102=-167 17052/-79=-215 17052/-56=-304 17052/-33=-516 17052/-10=-1705 17052/13=1311 17052/36=473 17052/59=289 17052/82=207 17052/105=162 17052/128=133 17052/151=112 17052/174=98 17052/197=86 17052/220=77 17052/243=70 17052/266=64 17052/289=59 17052/312=54 17052/335=50 17052/358=47 17052/381=44 17052/404=42 17052/427=39 17052/450=37 17052/473=36 17052/496=34 17052/519=32 17052/542=31 17052/565=30 17052/588=29 17052/611=27 17052/634=26 17052/657=25 17052/680=25 17128/-700=-24 17128/-677=-25 17128/-654=-26 17128/-631=-27 17128/-608=-28 17128/-585=-29 17128/-562=-30 17128/-539=-31 17128/-516=-33 17128/-493=-34 17128/-470=-36 17128/-447=-38 17128/-424=-40 17128/-401=-42 17128/-378=-45 17128/-355=-48 17128/-332=-51 17128/-309=-55 17128/-286=-59 17128/-263=-65 17128/-240=-71 17128/-217=-78 17128/-194=-88 17128/-171=-100 17128/-148=-115 17128/-125=-137 17128/-102=-167 17128/-79=-216 17128/-56=-305 17128/-33=-519 17128/-10=-1712 17128/13=1317 17128/36=475 17128/59=290 17128/82=208 17128/105=163 17128/128=133 17128/151=113 17128/174=98 17128/197=86 17128/220=77 17128/243=70 17128/266=64 17128/289=59 17128/312=54 17128/335=51 17128/358=47 17128/381=44 17128/404=42 17128/427=40 17128/450=38 17128/473=36 17128/496=34 17128/519=33 17128/542=31 17128/565=30 17128/588=29 17128/611=28 17128/634=27 17128/657=26 17128/680=25 17204/-700=-24 17204/-677=-25 17204/-654=-26 17204/-631=-27 17204/-608=-28 17204/-585=-29 17204/-562=-30 17204/-539=-31 17204/-516=-33 17204/-493=-34 17204/-470=-36 17204/-447=-38 17204/-424=-40 17204/-401=-42 17204/-378=-45 17204/-355=-48 17204/-332=-51 17204/-309=-55 17204/-286=-60 17204/-263=-65 17204/-240=-71 17204/-217=-79 17204/-194=-88 17204/-171=-100 17204/-148=-116 17204/-125=-137 17204/-102=-168 17204/-79=-217 17204/-56=-307 17204/-33=-521 17204/-10=-1720 17204/13=1323 17204/36=477 17204/59=291 17204/82=209 17204/105=163 17204/128=134 17204/151=113 17204/174=98 17204/197=87 17204/220=78 17204/243=70 17204/266=64 17204/289=59 17204/312=55 17204/335=51 17204/358=48 17204/381=45 17204/404=42 17204/427=40 17204/450=38 17204/473=36 17204/496=34 17204/519=33 17204/542=31 17204/565=30 17204/588=29 17204/611=28 17204/634=27 17204/657=26 17204/680=25 17280/-700=-24 17280/-677=-25 17280/-654=-26 17280/-631=-27 17280/-608=-28 17280/-585=-29 17280/-562=-30 17280/-539=-32 17280/-516=-33 17280/-493=-35 17280/-470=-36 17280/-447=-38 17280/-424=-40 17280/-401=-43 17280/-378=-45 17280/-355=-48 17280/-332=-52 17280/-309=-55 17280/-286=-60 17280/-263=-65 17280/-240=-72 17280/-217=-79 17280/-194=-89 17280/-171=-101 17280/-148=-116 17280/-125=-138 17280/-102=-169 17280/-79=-218 17280/-56=-308 17280/-33=-523 17280/-10=-1728 17280/13=1329 17280/36=480 17280/59=292 17280/82=210 17280/105=164 17280/128=135 17280/151=114 17280/174=99 17280/197=87 17280/220=78 17280/243=71 17280/266=64 17280/289=59 17280/312=55 17280/335=51 17280/358=48 17280/381=45 17280/404=42 17280/427=40 17280/450=38 17280/473=36 17280/496=34 17280/519=33 17280/542=31 17280/565=30 17280/588=29 17280/611=28 17280/634=27 17280/657=26 17280/680=25 17356/-700=-24 17356/-677=-25 17356/-654=-26 17356/-631=-27 17356/-608=-28 17356/-585=-29 17356/-562=-30 17356/-539=-32 17356/-516=-33 17356/-493=-35 17356/-470=-36 17356/-447=-38 17356/-424=-40 17356/-401=-43 17356/-378=-45 17356/-355=-48 17356/-332=-52 17356/-309=-56 17356/-286=-60 17356/-263=-65 17356/-240=-72 17356/-217=-79 17356/-194=-89 17356/-171=-101 17356/-148=-117 17356/-125=-138 17356/-102=-170 17356/-79=-219 17356/-56=-309 17356/-33=-525 17356/-10=-1735 17356/13=1335 17356/36=482 17356/59=294 17356/82=211 17356/105=165 17356/128=135 17356/151=114 17356/174=99 17356/197=88 17356/220=78 17356/243=71 17356/266=65 17356/289=60 17356/312=55 17356/335=51 17356/358=48 17356/381=45 17356/404=42 17356/427=40 17356/450=38 17356/473=36 17356/496=34 17356/519=33 17356/542=32 17356/565=30 17356/588=29 17356/611=28 17356/634=27 17356/657=26 17356/680=25 17432/-700=-24 17432/-677=-25 17432/-654=-26 17432/-631=-27 17432/-608=-28 17432/-585=-29 17432/-562=-31 17432/-539=-32 17432/-516=-33 17432/-493=-35 17432/-470=-37 17432/-447=-38 17432/-424=-41 17432/-401=-43 17432/-378=-46 17432/-355=-49 17432/-332=-52 17432/-309=-56 17432/-286=-60 17432/-263=-66 17432/-240=-72 17432/-217=-80 17432/-194=-89 17432/-171=-101 17432/-148=-117 17432/-125=-139 17432/-102=-170 17432/-79=-220 17432/-56=-311 17432/-33=-528 17432/-10=-1743 17432/13=1340 17432/36=484 17432/59=295 17432/82=212 17432/105=166 17432/128=136 17432/151=115 17432/174=100 17432/197=88 17432/220=79 17432/243=71 17432/266=65 17432/289=60 17432/312=55 17432/335=52 17432/358=48 17432/381=45 17432/404=43 17432/427=40 17432/450=38 17432/473=36 17432/496=35 17432/519=33 17432/542=32 17432/565=30 17432/588=29 17432/611=28 17432/634=27 17432/657=26 17432/680=25 17508/-700=-25 17508/-677=-25 17508/-654=-26 17508/-631=-27 17508/-608=-28 17508/-585=-29 17508/-562=-31 17508/-539=-32 17508/-516=-33 17508/-493=-35 17508/-470=-37 17508/-447=-39 17508/-424=-41 17508/-401=-43 17508/-378=-46 17508/-355=-49 17508/-332=-52 17508/-309=-56 17508/-286=-61 17508/-263=-66 17508/-240=-72 17508/-217=-80 17508/-194=-90 17508/-171=-102 17508/-148=-118 17508/-125=-140 17508/-102=-171 17508/-79=-221 17508/-56=-312 17508/-33=-530 17508/-10=-1750 17508/13=1346 17508/36=486 17508/59=296 17508/82=213 17508/105=166 17508/128=136 17508/151=115 17508/174=100 17508/197=88 17508/220=79 17508/243=72 17508/266=65 17508/289=60 17508/312=56 17508/335=52 17508/358=48 17508/381=45 17508/404=43 17508/427=41 17508/450=38 17508/473=37 17508/496=35 17508/519=33 17508/542=32 17508/565=30 17508/588=29 17508/611=28 17508/634=27 17508/657=26 17508/680=25 17584/-700=-25 17584/-677=-25 17584/-654=-26 17584/-631=-27 17584/-608=-28 17584/-585=-30 17584/-562=-31 17584/-539=-32 17584/-516=-34 17584/-493=-35 17584/-470=-37 17584/-447=-39 17584/-424=-41 17584/-401=-43 17584/-378=-46 17584/-355=-49 17584/-332=-52 17584/-309=-56 17584/-286=-61 17584/-263=-66 17584/-240=-73 17584/-217=-81 17584/-194=-90 17584/-171=-102 17584/-148=-118 17584/-125=-140 17584/-102=-172 17584/-79=-222 17584/-56=-314 17584/-33=-532 17584/-10=-1758 17584/13=1352 17584/36=488 17584/59=298 17584/82=214 17584/105=167 17584/128=137 17584/151=116 17584/174=101 17584/197=89 17584/220=79 17584/243=72 17584/266=66 17584/289=60 17584/312=56 17584/335=52 17584/358=49 17584/381=46 17584/404=43 17584/427=41 17584/450=39 17584/473=37 17584/496=35 17584/519=33 17584/542=32 17584/565=31 17584/588=29 17584/611=28 17584/634=27 17584/657=26 17584/680=25 17660/-700=-25 17660/-677=-26 17660/-654=-27 17660/-631=-27 17660/-608=-29 17660/-585=-30 17660/-562=-31 17660/-539=-32 17660/-516=-34 17660/-493=-35 17660/-470=-37 17660/-447=-39 17660/-424=-41 17660/-401=-44 17660/-378=-46 17660/-355=-49 17660/-332=-53 17660/-309=-57 17660/-286=-61 17660/-263=-67 17660/-240=-73 17660/-217=-81 17660/-194=-91 17660/-171=-103 17660/-148=-119 17660/-125=-141 17660/-102=-173 17660/-79=-223 17660/-56=-315 17660/-33=-535 17660/-10=-1766 17660/13=1358 17660/36=490 17660/59=299 17660/82=215 17660/105=168 17660/128=137 17660/151=116 17660/174=101 17660/197=89 17660/220=80 17660/243=72 17660/266=66 17660/289=61 17660/312=56 17660/335=52 17660/358=49 17660/381=46 17660/404=43 17660/427=41 17660/450=39 17660/473=37 17660/496=35 17660/519=34 17660/542=32 17660/565=31 17660/588=30 17660/611=28 17660/634=27 17660/657=26 17660/680=25 17736/-700=-25 17736/-677=-26 17736/-654=-27 17736/-631=-28 17736/-608=-29 17736/-585=-30 17736/-562=-31 17736/-539=-32 17736/-516=-34 17736/-493=-35 17736/-470=-37 17736/-447=-39 17736/-424=-41 17736/-401=-44 17736/-378=-46 17736/-355=-49 17736/-332=-53 17736/-309=-57 17736/-286=-62 17736/-263=-67 17736/-240=-73 17736/-217=-81 17736/-194=-91 17736/-171=-103 17736/-148=-119 17736/-125=-141 17736/-102=-173 17736/-79=-224 17736/-56=-316 17736/-33=-537 17736/-10=-1773 17736/13=1364 17736/36=492 17736/59=300 17736/82=216 17736/105=168 17736/128=138 17736/151=117 17736/174=101 17736/197=90 17736/220=80 17736/243=72 17736/266=66 17736/289=61 17736/312=56 17736/335=52 17736/358=49 17736/381=46 17736/404=43 17736/427=41 17736/450=39 17736/473=37 17736/496=35 17736/519=34 17736/542=32 17736/565=31 17736/588=30 17736/611=29 17736/634=27 17736/657=26 17736/680=26 17812/-700=-25 17812/-677=-26 17812/-654=-27 17812/-631=-28 17812/-608=-29 17812/-585=-30 17812/-562=-31 17812/-539=-33 17812/-516=-34 17812/-493=-36 17812/-470=-37 17812/-447=-39 17812/-424=-42 17812/-401=-44 17812/-378=-47 17812/-355=-50 17812/-332=-53 17812/-309=-57 17812/-286=-62 17812/-263=-67 17812/-240=-74 17812/-217=-82 17812/-194=-91 17812/-171=-104 17812/-148=-120 17812/-125=-142 17812/-102=-174 17812/-79=-225 17812/-56=-318 17812/-33=-539 17812/-10=-1781 17812/13=1370 17812/36=494 17812/59=301 17812/82=217 17812/105=169 17812/128=139 17812/151=117 17812/174=102 17812/197=90 17812/220=80 17812/243=73 17812/266=66 17812/289=61 17812/312=57 17812/335=53 17812/358=49 17812/381=46 17812/404=44 17812/427=41 17812/450=39 17812/473=37 17812/496=35 17812/519=34 17812/542=32 17812/565=31 17812/588=30 17812/611=29 17812/634=28 17812/657=27 17812/680=26 17888/-700=-25 17888/-677=-26 17888/-654=-27 17888/-631=-28 17888/-608=-29 17888/-585=-30 17888/-562=-31 17888/-539=-33 17888/-516=-34 17888/-493=-36 17888/-470=-38 17888/-447=-40 17888/-424=-42 17888/-401=-44 17888/-378=-47 17888/-355=-50 17888/-332=-53 17888/-309=-57 17888/-286=-62 17888/-263=-68 17888/-240=-74 17888/-217=-82 17888/-194=-92 17888/-171=-104 17888/-148=-120 17888/-125=-143 17888/-102=-175 17888/-79=-226 17888/-56=-319 17888/-33=-542 17888/-10=-1788 17888/13=1376 17888/36=496 17888/59=303 17888/82=218 17888/105=170 17888/128=139 17888/151=118 17888/174=102 17888/197=90 17888/220=81 17888/243=73 17888/266=67 17888/289=61 17888/312=57 17888/335=53 17888/358=49 17888/381=46 17888/404=44 17888/427=41 17888/450=39 17888/473=37 17888/496=36 17888/519=34 17888/542=33 17888/565=31 17888/588=30 17888/611=29 17888/634=28 17888/657=27 17888/680=26 17964/-700=-25 17964/-677=-26 17964/-654=-27 17964/-631=-28 17964/-608=-29 17964/-585=-30 17964/-562=-31 17964/-539=-33 17964/-516=-34 17964/-493=-36 17964/-470=-38 17964/-447=-40 17964/-424=-42 17964/-401=-44 17964/-378=-47 17964/-355=-50 17964/-332=-54 17964/-309=-58 17964/-286=-62 17964/-263=-68 17964/-240=-74 17964/-217=-82 17964/-194=-92 17964/-171=-105 17964/-148=-121 17964/-125=-143 17964/-102=-176 17964/-79=-227 17964/-56=-320 17964/-33=-544 17964/-10=-1796 17964/13=1381 17964/36=499 17964/59=304 17964/82=219 17964/105=171 17964/128=140 17964/151=118 17964/174=103 17964/197=91 17964/220=81 17964/243=73 17964/266=67 17964/289=62 17964/312=57 17964/335=53 17964/358=50 17964/381=47 17964/404=44 17964/427=42 17964/450=39 17964/473=37 17964/496=36 17964/519=34 17964/542=33 17964/565=31 17964/588=30 17964/611=29 17964/634=28 17964/657=27 17964/680=26 18040/-700=-25 18040/-677=-26 18040/-654=-27 18040/-631=-28 18040/-608=-29 18040/-585=-30 18040/-562=-32 18040/-539=-33 18040/-516=-34 18040/-493=-36 18040/-470=-38 18040/-447=-40 18040/-424=-42 18040/-401=-44 18040/-378=-47 18040/-355=-50 18040/-332=-54 18040/-309=-58 18040/-286=-63 18040/-263=-68 18040/-240=-75 18040/-217=-83 18040/-194=-92 18040/-171=-105 18040/-148=-121 18040/-125=-144 18040/-102=-176 18040/-79=-228 18040/-56=-322 18040/-33=-546 18040/-10=-1804 18040/13=1387 18040/36=501 18040/59=305 18040/82=220 18040/105=171 18040/128=140 18040/151=119 18040/174=103 18040/197=91 18040/220=82 18040/243=74 18040/266=67 18040/289=62 18040/312=57 18040/335=53 18040/358=50 18040/381=47 18040/404=44 18040/427=42 18040/450=40 18040/473=38 18040/496=36 18040/519=34 18040/542=33 18040/565=31 18040/588=30 18040/611=29 18040/634=28 18040/657=27 18040/680=26 18116/-700=-25 18116/-677=-26 18116/-654=-27 18116/-631=-28 18116/-608=-29 18116/-585=-30 18116/-562=-32 18116/-539=-33 18116/-516=-35 18116/-493=-36 18116/-470=-38 18116/-447=-40 18116/-424=-42 18116/-401=-45 18116/-378=-47 18116/-355=-51 18116/-332=-54 18116/-309=-58 18116/-286=-63 18116/-263=-68 18116/-240=-75 18116/-217=-83 18116/-194=-93 18116/-171=-105 18116/-148=-122 18116/-125=-144 18116/-102=-177 18116/-79=-229 18116/-56=-323 18116/-33=-548 18116/-10=-1811 18116/13=1393 18116/36=503 18116/59=307 18116/82=220 18116/105=172 18116/128=141 18116/151=119 18116/174=104 18116/197=91 18116/220=82 18116/243=74 18116/266=68 18116/289=62 18116/312=58 18116/335=54 18116/358=50 18116/381=47 18116/404=44 18116/427=42 18116/450=40 18116/473=38 18116/496=36 18116/519=34 18116/542=33 18116/565=32 18116/588=30 18116/611=29 18116/634=28 18116/657=27 18116/680=26 18192/-700=-25 18192/-677=-26 18192/-654=-27 18192/-631=-28 18192/-608=-29 18192/-585=-31 18192/-562=-32 18192/-539=-33 18192/-516=-35 18192/-493=-36 18192/-470=-38 18192/-447=-40 18192/-424=-42 18192/-401=-45 18192/-378=-48 18192/-355=-51 18192/-332=-54 18192/-309=-58 18192/-286=-63 18192/-263=-69 18192/-240=-75 18192/-217=-83 18192/-194=-93 18192/-171=-106 18192/-148=-122 18192/-125=-145 18192/-102=-178 18192/-79=-230 18192/-56=-324 18192/-33=-551 18192/-10=-1819 18192/13=1399 18192/36=505 18192/59=308 18192/82=221 18192/105=173 18192/128=142 18192/151=120 18192/174=104 18192/197=92 18192/220=82 18192/243=74 18192/266=68 18192/289=62 18192/312=58 18192/335=54 18192/358=50 18192/381=47 18192/404=45 18192/427=42 18192/450=40 18192/473=38 18192/496=36 18192/519=35 18192/542=33 18192/565=32 18192/588=30 18192/611=29 18192/634=28 18192/657=27 18192/680=26 18268/-700=-26 18268/-677=-26 18268/-654=-27 18268/-631=-28 18268/-608=-30 18268/-585=-31 18268/-562=-32 18268/-539=-33 18268/-516=-35 18268/-493=-37 18268/-470=-38 18268/-447=-40 18268/-424=-43 18268/-401=-45 18268/-378=-48 18268/-355=-51 18268/-332=-55 18268/-309=-59 18268/-286=-63 18268/-263=-69 18268/-240=-76 18268/-217=-84 18268/-194=-94 18268/-171=-106 18268/-148=-123 18268/-125=-146 18268/-102=-179 18268/-79=-231 18268/-56=-326 18268/-33=-553 18268/-10=-1826 18268/13=1405 18268/36=507 18268/59=309 18268/82=222 18268/105=173 18268/128=142 18268/151=120 18268/174=104 18268/197=92 18268/220=83 18268/243=75 18268/266=68 18268/289=63 18268/312=58 18268/335=54 18268/358=51 18268/381=47 18268/404=45 18268/427=42 18268/450=40 18268/473=38 18268/496=36 18268/519=35 18268/542=33 18268/565=32 18268/588=31 18268/611=29 18268/634=28 18268/657=27 18268/680=26 18344/-700=-26 18344/-677=-27 18344/-654=-28 18344/-631=-29 18344/-608=-30 18344/-585=-31 18344/-562=-32 18344/-539=-34 18344/-516=-35 18344/-493=-37 18344/-470=-39 18344/-447=-41 18344/-424=-43 18344/-401=-45 18344/-378=-48 18344/-355=-51 18344/-332=-55 18344/-309=-59 18344/-286=-64 18344/-263=-69 18344/-240=-76 18344/-217=-84 18344/-194=-94 18344/-171=-107 18344/-148=-123 18344/-125=-146 18344/-102=-179 18344/-79=-232 18344/-56=-327 18344/-33=-555 18344/-10=-1834 18344/13=1411 18344/36=509 18344/59=310 18344/82=223 18344/105=174 18344/128=143 18344/151=121 18344/174=105 18344/197=93 18344/220=83 18344/243=75 18344/266=68 18344/289=63 18344/312=58 18344/335=54 18344/358=51 18344/381=48 18344/404=45 18344/427=42 18344/450=40 18344/473=38 18344/496=36 18344/519=35 18344/542=33 18344/565=32 18344/588=31 18344/611=30 18344/634=28 18344/657=27 18344/680=26 18420/-700=-26 18420/-677=-27 18420/-654=-28 18420/-631=-29 18420/-608=-30 18420/-585=-31 18420/-562=-32 18420/-539=-34 18420/-516=-35 18420/-493=-37 18420/-470=-39 18420/-447=-41 18420/-424=-43 18420/-401=-45 18420/-378=-48 18420/-355=-51 18420/-332=-55 18420/-309=-59 18420/-286=-64 18420/-263=-70 18420/-240=-76 18420/-217=-84 18420/-194=-94 18420/-171=-107 18420/-148=-124 18420/-125=-147 18420/-102=-180 18420/-79=-233 18420/-56=-328 18420/-33=-558 18420/-10=-1842 18420/13=1416 18420/36=511 18420/59=312 18420/82=224 18420/105=175 18420/128=143 18420/151=121 18420/174=105 18420/197=93 18420/220=83 18420/243=75 18420/266=69 18420/289=63 18420/312=59 18420/335=54 18420/358=51 18420/381=48 18420/404=45 18420/427=43 18420/450=40 18420/473=38 18420/496=37 18420/519=35 18420/542=33 18420/565=32 18420/588=31 18420/611=30 18420/634=29 18420/657=28 18420/680=27 18496/-700=-26 18496/-677=-27 18496/-654=-28 18496/-631=-29 18496/-608=-30 18496/-585=-31 18496/-562=-32 18496/-539=-34 18496/-516=-35 18496/-493=-37 18496/-470=-39 18496/-447=-41 18496/-424=-43 18496/-401=-46 18496/-378=-48 18496/-355=-52 18496/-332=-55 18496/-309=-59 18496/-286=-64 18496/-263=-70 18496/-240=-77 18496/-217=-85 18496/-194=-95 18496/-171=-108 18496/-148=-124 18496/-125=-147 18496/-102=-181 18496/-79=-234 18496/-56=-330 18496/-33=-560 18496/-10=-1849 18496/13=1422 18496/36=513 18496/59=313 18496/82=225 18496/105=176 18496/128=144 18496/151=122 18496/174=106 18496/197=93 18496/220=84 18496/243=76 18496/266=69 18496/289=64 18496/312=59 18496/335=55 18496/358=51 18496/381=48 18496/404=45 18496/427=43 18496/450=41 18496/473=39 18496/496=37 18496/519=35 18496/542=34 18496/565=32 18496/588=31 18496/611=30 18496/634=29 18496/657=28 18496/680=27 18572/-700=-26 18572/-677=-27 18572/-654=-28 18572/-631=-29 18572/-608=-30 18572/-585=-31 18572/-562=-33 18572/-539=-34 18572/-516=-35 18572/-493=-37 18572/-470=-39 18572/-447=-41 18572/-424=-43 18572/-401=-46 18572/-378=-49 18572/-355=-52 18572/-332=-55 18572/-309=-60 18572/-286=-64 18572/-263=-70 18572/-240=-77 18572/-217=-85 18572/-194=-95 18572/-171=-108 18572/-148=-125 18572/-125=-148 18572/-102=-182 18572/-79=-235 18572/-56=-331 18572/-33=-562 18572/-10=-1857 18572/13=1428 18572/36=515 18572/59=314 18572/82=226 18572/105=176 18572/128=145 18572/151=122 18572/174=106 18572/197=94 18572/220=84 18572/243=76 18572/266=69 18572/289=64 18572/312=59 18572/335=55 18572/358=51 18572/381=48 18572/404=45 18572/427=43 18572/450=41 18572/473=39 18572/496=37 18572/519=35 18572/542=34 18572/565=32 18572/588=31 18572/611=30 18572/634=29 18572/657=28 18572/680=27 18648/-700=-26 18648/-677=-27 18648/-654=-28 18648/-631=-29 18648/-608=-30 18648/-585=-31 18648/-562=-33 18648/-539=-34 18648/-516=-36 18648/-493=-37 18648/-470=-39 18648/-447=-41 18648/-424=-43 18648/-401=-46 18648/-378=-49 18648/-355=-52 18648/-332=-56 18648/-309=-60 18648/-286=-65 18648/-263=-70 18648/-240=-77 18648/-217=-85 18648/-194=-96 18648/-171=-109 18648/-148=-126 18648/-125=-149 18648/-102=-182 18648/-79=-236 18648/-56=-333 18648/-33=-565 18648/-10=-1864 18648/13=1434 18648/36=518 18648/59=316 18648/82=227 18648/105=177 18648/128=145 18648/151=123 18648/174=107 18648/197=94 18648/220=84 18648/243=76 18648/266=70 18648/289=64 18648/312=59 18648/335=55 18648/358=52 18648/381=48 18648/404=46 18648/427=43 18648/450=41 18648/473=39 18648/496=37 18648/519=35 18648/542=34 18648/565=33 18648/588=31 18648/611=30 18648/634=29 18648/657=28 18648/680=27 18724/-700=-26 18724/-677=-27 18724/-654=-28 18724/-631=-29 18724/-608=-30 18724/-585=-32 18724/-562=-33 18724/-539=-34 18724/-516=-36 18724/-493=-37 18724/-470=-39 18724/-447=-41 18724/-424=-44 18724/-401=-46 18724/-378=-49 18724/-355=-52 18724/-332=-56 18724/-309=-60 18724/-286=-65 18724/-263=-71 18724/-240=-78 18724/-217=-86 18724/-194=-96 18724/-171=-109 18724/-148=-126 18724/-125=-149 18724/-102=-183 18724/-79=-237 18724/-56=-334 18724/-33=-567 18724/-10=-1872 18724/13=1440 18724/36=520 18724/59=317 18724/82=228 18724/105=178 18724/128=146 18724/151=124 18724/174=107 18724/197=95 18724/220=85 18724/243=77 18724/266=70 18724/289=64 18724/312=60 18724/335=55 18724/358=52 18724/381=49 18724/404=46 18724/427=43 18724/450=41 18724/473=39 18724/496=37 18724/519=36 18724/542=34 18724/565=33 18724/588=31 18724/611=30 18724/634=29 18724/657=28 18724/680=27 18800/-700=-26 18800/-677=-27 18800/-654=-28 18800/-631=-29 18800/-608=-30 18800/-585=-32 18800/-562=-33 18800/-539=-34 18800/-516=-36 18800/-493=-38 18800/-470=-40 18800/-447=-42 18800/-424=-44 18800/-401=-46 18800/-378=-49 18800/-355=-52 18800/-332=-56 18800/-309=-60 18800/-286=-65 18800/-263=-71 18800/-240=-78 18800/-217=-86 18800/-194=-96 18800/-171=-109 18800/-148=-127 18800/-125=-150 18800/-102=-184 18800/-79=-237 18800/-56=-335 18800/-33=-569 18800/-10=-1880 18800/13=1446 18800/36=522 18800/59=318 18800/82=229 18800/105=179 18800/128=146 18800/151=124 18800/174=108 18800/197=95 18800/220=85 18800/243=77 18800/266=70 18800/289=65 18800/312=60 18800/335=56 18800/358=52 18800/381=49 18800/404=46 18800/427=44 18800/450=41 18800/473=39 18800/496=37 18800/519=36 18800/542=34 18800/565=33 18800/588=31 18800/611=30 18800/634=29 18800/657=28 18800/680=27 18876/-700=-26 18876/-677=-27 18876/-654=-28 18876/-631=-29 18876/-608=-31 18876/-585=-32 18876/-562=-33 18876/-539=-35 18876/-516=-36 18876/-493=-38 18876/-470=-40 18876/-447=-42 18876/-424=-44 18876/-401=-47 18876/-378=-49 18876/-355=-53 18876/-332=-56 18876/-309=-61 18876/-286=-66 18876/-263=-71 18876/-240=-78 18876/-217=-86 18876/-194=-97 18876/-171=-110 18876/-148=-127 18876/-125=-151 18876/-102=-185 18876/-79=-238 18876/-56=-337 18876/-33=-572 18876/-10=-1887 18876/13=1452 18876/36=524 18876/59=319 18876/82=230 18876/105=179 18876/128=147 18876/151=125 18876/174=108 18876/197=95 18876/220=85 18876/243=77 18876/266=70 18876/289=65 18876/312=60 18876/335=56 18876/358=52 18876/381=49 18876/404=46 18876/427=44 18876/450=41 18876/473=39 18876/496=38 18876/519=36 18876/542=34 18876/565=33 18876/588=32 18876/611=30 18876/634=29 18876/657=28 18876/680=27 18952/-700=-27 18952/-677=-27 18952/-654=-28 18952/-631=-30 18952/-608=-31 18952/-585=-32 18952/-562=-33 18952/-539=-35 18952/-516=-36 18952/-493=-38 18952/-470=-40 18952/-447=-42 18952/-424=-44 18952/-401=-47 18952/-378=-50 18952/-355=-53 18952/-332=-57 18952/-309=-61 18952/-286=-66 18952/-263=-72 18952/-240=-78 18952/-217=-87 18952/-194=-97 18952/-171=-110 18952/-148=-128 18952/-125=-151 18952/-102=-185 18952/-79=-239 18952/-56=-338 18952/-33=-574 18952/-10=-1895 18952/13=1457 18952/36=526 18952/59=321 18952/82=231 18952/105=180 18952/128=148 18952/151=125 18952/174=108 18952/197=96 18952/220=86 18952/243=77 18952/266=71 18952/289=65 18952/312=60 18952/335=56 18952/358=52 18952/381=49 18952/404=46 18952/427=44 18952/450=42 18952/473=40 18952/496=38 18952/519=36 18952/542=34 18952/565=33 18952/588=32 18952/611=31 18952/634=29 18952/657=28 18952/680=27 19028/-700=-27 19028/-677=-28 19028/-654=-29 19028/-631=-30 19028/-608=-31 19028/-585=-32 19028/-562=-33 19028/-539=-35 19028/-516=-36 19028/-493=-38 19028/-470=-40 19028/-447=-42 19028/-424=-44 19028/-401=-47 19028/-378=-50 19028/-355=-53 19028/-332=-57 19028/-309=-61 19028/-286=-66 19028/-263=-72 19028/-240=-79 19028/-217=-87 19028/-194=-98 19028/-171=-111 19028/-148=-128 19028/-125=-152 19028/-102=-186 19028/-79=-240 19028/-56=-339 19028/-33=-576 19028/-10=-1902 19028/13=1463 19028/36=528 19028/59=322 19028/82=232 19028/105=181 19028/128=148 19028/151=126 19028/174=109 19028/197=96 19028/220=86 19028/243=78 19028/266=71 19028/289=65 19028/312=60 19028/335=56 19028/358=53 19028/381=49 19028/404=47 19028/427=44 19028/450=42 19028/473=40 19028/496=38 19028/519=36 19028/542=35 19028/565=33 19028/588=32 19028/611=31 19028/634=30 19028/657=28 19028/680=27 19104/-700=-27 19104/-677=-28 19104/-654=-29 19104/-631=-30 19104/-608=-31 19104/-585=-32 19104/-562=-33 19104/-539=-35 19104/-516=-37 19104/-493=-38 19104/-470=-40 19104/-447=-42 19104/-424=-45 19104/-401=-47 19104/-378=-50 19104/-355=-53 19104/-332=-57 19104/-309=-61 19104/-286=-66 19104/-263=-72 19104/-240=-79 19104/-217=-88 19104/-194=-98 19104/-171=-111 19104/-148=-129 19104/-125=-152 19104/-102=-187 19104/-79=-241 19104/-56=-341 19104/-33=-578 19104/-10=-1910 19104/13=1469 19104/36=530 19104/59=323 19104/82=232 19104/105=181 19104/128=149 19104/151=126 19104/174=109 19104/197=96 19104/220=86 19104/243=78 19104/266=71 19104/289=66 19104/312=61 19104/335=57 19104/358=53 19104/381=50 19104/404=47 19104/427=44 19104/450=42 19104/473=40 19104/496=38 19104/519=36 19104/542=35 19104/565=33 19104/588=32 19104/611=31 19104/634=30 19104/657=29 19104/680=28 19180/-700=-27 19180/-677=-28 19180/-654=-29 19180/-631=-30 19180/-608=-31 19180/-585=-32 19180/-562=-34 19180/-539=-35 19180/-516=-37 19180/-493=-38 19180/-470=-40 19180/-447=-42 19180/-424=-45 19180/-401=-47 19180/-378=-50 19180/-355=-54 19180/-332=-57 19180/-309=-62 19180/-286=-67 19180/-263=-72 19180/-240=-79 19180/-217=-88 19180/-194=-98 19180/-171=-112 19180/-148=-129 19180/-125=-153 19180/-102=-188 19180/-79=-242 19180/-56=-342 19180/-33=-581 19180/-10=-1918 19180/13=1475 19180/36=532 19180/59=325 19180/82=233 19180/105=182 19180/128=149 19180/151=127 19180/174=110 19180/197=97 19180/220=87 19180/243=78 19180/266=72 19180/289=66 19180/312=61 19180/335=57 19180/358=53 19180/381=50 19180/404=47 19180/427=44 19180/450=42 19180/473=40 19180/496=38 19180/519=36 19180/542=35 19180/565=33 19180/588=32 19180/611=31 19180/634=30 19180/657=29 19180/680=28 19256/-700=-27 19256/-677=-28 19256/-654=-29 19256/-631=-30 19256/-608=-31 19256/-585=-32 19256/-562=-34 19256/-539=-35 19256/-516=-37 19256/-493=-39 19256/-470=-40 19256/-447=-43 19256/-424=-45 19256/-401=-48 19256/-378=-50 19256/-355=-54 19256/-332=-58 19256/-309=-62 19256/-286=-67 19256/-263=-73 19256/-240=-80 19256/-217=-88 19256/-194=-99 19256/-171=-112 19256/-148=-130 19256/-125=-154 19256/-102=-188 19256/-79=-243 19256/-56=-343 19256/-33=-583 19256/-10=-1925 19256/13=1481 19256/36=534 19256/59=326 19256/82=234 19256/105=183 19256/128=150 19256/151=127 19256/174=110 19256/197=97 19256/220=87 19256/243=79 19256/266=72 19256/289=66 19256/312=61 19256/335=57 19256/358=53 19256/381=50 19256/404=47 19256/427=45 19256/450=42 19256/473=40 19256/496=38 19256/519=37 19256/542=35 19256/565=34 19256/588=32 19256/611=31 19256/634=30 19256/657=29 19256/680=28 19332/-700=-27 19332/-677=-28 19332/-654=-29 19332/-631=-30 19332/-608=-31 19332/-585=-33 19332/-562=-34 19332/-539=-35 19332/-516=-37 19332/-493=-39 19332/-470=-41 19332/-447=-43 19332/-424=-45 19332/-401=-48 19332/-378=-51 19332/-355=-54 19332/-332=-58 19332/-309=-62 19332/-286=-67 19332/-263=-73 19332/-240=-80 19332/-217=-89 19332/-194=-99 19332/-171=-113 19332/-148=-130 19332/-125=-154 19332/-102=-189 19332/-79=-244 19332/-56=-345 19332/-33=-585 19332/-10=-1933 19332/13=1487 19332/36=537 19332/59=327 19332/82=235 19332/105=184 19332/128=151 19332/151=128 19332/174=111 19332/197=98 19332/220=87 19332/243=79 19332/266=72 19332/289=66 19332/312=61 19332/335=57 19332/358=54 19332/381=50 19332/404=47 19332/427=45 19332/450=42 19332/473=40 19332/496=38 19332/519=37 19332/542=35 19332/565=34 19332/588=32 19332/611=31 19332/634=30 19332/657=29 19332/680=28 19408/-700=-27 19408/-677=-28 19408/-654=-29 19408/-631=-30 19408/-608=-31 19408/-585=-33 19408/-562=-34 19408/-539=-36 19408/-516=-37 19408/-493=-39 19408/-470=-41 19408/-447=-43 19408/-424=-45 19408/-401=-48 19408/-378=-51 19408/-355=-54 19408/-332=-58 19408/-309=-62 19408/-286=-67 19408/-263=-73 19408/-240=-80 19408/-217=-89 19408/-194=-100 19408/-171=-113 19408/-148=-131 19408/-125=-155 19408/-102=-190 19408/-79=-245 19408/-56=-346 19408/-33=-588 19408/-10=-1940 19408/13=1492 19408/36=539 19408/59=328 19408/82=236 19408/105=184 19408/128=151 19408/151=128 19408/174=111 19408/197=98 19408/220=88 19408/243=79 19408/266=72 19408/289=67 19408/312=62 19408/335=57 19408/358=54 19408/381=50 19408/404=48 19408/427=45 19408/450=43 19408/473=41 19408/496=39 19408/519=37 19408/542=35 19408/565=34 19408/588=33 19408/611=31 19408/634=30 19408/657=29 19408/680=28 19484/-700=-27 19484/-677=-28 19484/-654=-29 19484/-631=-30 19484/-608=-32 19484/-585=-33 19484/-562=-34 19484/-539=-36 19484/-516=-37 19484/-493=-39 19484/-470=-41 19484/-447=-43 19484/-424=-45 19484/-401=-48 19484/-378=-51 19484/-355=-54 19484/-332=-58 19484/-309=-63 19484/-286=-68 19484/-263=-74 19484/-240=-81 19484/-217=-89 19484/-194=-100 19484/-171=-113 19484/-148=-131 19484/-125=-155 19484/-102=-191 19484/-79=-246 19484/-56=-347 19484/-33=-590 19484/-10=-1948 19484/13=1498 19484/36=541 19484/59=330 19484/82=237 19484/105=185 19484/128=152 19484/151=129 19484/174=111 19484/197=98 19484/220=88 19484/243=80 19484/266=73 19484/289=67 19484/312=62 19484/335=58 19484/358=54 19484/381=51 19484/404=48 19484/427=45 19484/450=43 19484/473=41 19484/496=39 19484/519=37 19484/542=35 19484/565=34 19484/588=33 19484/611=31 19484/634=30 19484/657=29 19484/680=28 19560/-700=-27 19560/-677=-28 19560/-654=-29 19560/-631=-30 19560/-608=-32 19560/-585=-33 19560/-562=-34 19560/-539=-36 19560/-516=-37 19560/-493=-39 19560/-470=-41 19560/-447=-43 19560/-424=-46 19560/-401=-48 19560/-378=-51 19560/-355=-55 19560/-332=-58 19560/-309=-63 19560/-286=-68 19560/-263=-74 19560/-240=-81 19560/-217=-90 19560/-194=-100 19560/-171=-114 19560/-148=-132 19560/-125=-156 19560/-102=-191 19560/-79=-247 19560/-56=-349 19560/-33=-592 19560/-10=-1956 19560/13=1504 19560/36=543 19560/59=331 19560/82=238 19560/105=186 19560/128=152 19560/151=129 19560/174=112 19560/197=99 19560/220=88 19560/243=80 19560/266=73 19560/289=67 19560/312=62 19560/335=58 19560/358=54 19560/381=51 19560/404=48 19560/427=45 19560/450=43 19560/473=41 19560/496=39 19560/519=37 19560/542=36 19560/565=34 19560/588=33 19560/611=32 19560/634=30 19560/657=29 19560/680=28 19636/-700=-28 19636/-677=-29 19636/-654=-30 19636/-631=-31 19636/-608=-32 19636/-585=-33 19636/-562=-34 19636/-539=-36 19636/-516=-38 19636/-493=-39 19636/-470=-41 19636/-447=-43 19636/-424=-46 19636/-401=-48 19636/-378=-51 19636/-355=-55 19636/-332=-59 19636/-309=-63 19636/-286=-68 19636/-263=-74 19636/-240=-81 19636/-217=-90 19636/-194=-101 19636/-171=-114 19636/-148=-132 19636/-125=-157 19636/-102=-192 19636/-79=-248 19636/-56=-350 19636/-33=-595 19636/-10=-1963 19636/13=1510 19636/36=545 19636/59=332 19636/82=239 19636/105=187 19636/128=153 19636/151=130 19636/174=112 19636/197=99 19636/220=89 19636/243=80 19636/266=73 19636/289=67 19636/312=62 19636/335=58 19636/358=54 19636/381=51 19636/404=48 19636/427=45 19636/450=43 19636/473=41 19636/496=39 19636/519=37 19636/542=36 19636/565=34 19636/588=33 19636/611=32 19636/634=30 19636/657=29 19636/680=28 19712/-700=-28 19712/-677=-29 19712/-654=-30 19712/-631=-31 19712/-608=-32 19712/-585=-33 19712/-562=-35 19712/-539=-36 19712/-516=-38 19712/-493=-39 19712/-470=-41 19712/-447=-44 19712/-424=-46 19712/-401=-49 19712/-378=-52 19712/-355=-55 19712/-332=-59 19712/-309=-63 19712/-286=-68 19712/-263=-74 19712/-240=-82 19712/-217=-90 19712/-194=-101 19712/-171=-115 19712/-148=-133 19712/-125=-157 19712/-102=-193 19712/-79=-249 19712/-56=-352 19712/-33=-597 19712/-10=-1971 19712/13=1516 19712/36=547 19712/59=334 19712/82=240 19712/105=187 19712/128=154 19712/151=130 19712/174=113 19712/197=100 19712/220=89 19712/243=81 19712/266=74 19712/289=68 19712/312=63 19712/335=58 19712/358=55 19712/381=51 19712/404=48 19712/427=46 19712/450=43 19712/473=41 19712/496=39 19712/519=37 19712/542=36 19712/565=34 19712/588=33 19712/611=32 19712/634=31 19712/657=30 19712/680=28 19788/-700=-28 19788/-677=-29 19788/-654=-30 19788/-631=-31 19788/-608=-32 19788/-585=-33 19788/-562=-35 19788/-539=-36 19788/-516=-38 19788/-493=-40 19788/-470=-42 19788/-447=-44 19788/-424=-46 19788/-401=-49 19788/-378=-52 19788/-355=-55 19788/-332=-59 19788/-309=-64 19788/-286=-69 19788/-263=-75 19788/-240=-82 19788/-217=-91 19788/-194=-102 19788/-171=-115 19788/-148=-133 19788/-125=-158 19788/-102=-194 19788/-79=-250 19788/-56=-353 19788/-33=-599 19788/-10=-1978 19788/13=1522 19788/36=549 19788/59=335 19788/82=241 19788/105=188 19788/128=154 19788/151=131 19788/174=113 19788/197=100 19788/220=89 19788/243=81 19788/266=74 19788/289=68 19788/312=63 19788/335=59 19788/358=55 19788/381=51 19788/404=48 19788/427=46 19788/450=43 19788/473=41 19788/496=39 19788/519=38 19788/542=36 19788/565=35 19788/588=33 19788/611=32 19788/634=31 19788/657=30 19788/680=29 19864/-700=-28 19864/-677=-29 19864/-654=-30 19864/-631=-31 19864/-608=-32 19864/-585=-33 19864/-562=-35 19864/-539=-36 19864/-516=-38 19864/-493=-40 19864/-470=-42 19864/-447=-44 19864/-424=-46 19864/-401=-49 19864/-378=-52 19864/-355=-55 19864/-332=-59 19864/-309=-64 19864/-286=-69 19864/-263=-75 19864/-240=-82 19864/-217=-91 19864/-194=-102 19864/-171=-116 19864/-148=-134 19864/-125=-158 19864/-102=-194 19864/-79=-251 19864/-56=-354 19864/-33=-601 19864/-10=-1986 19864/13=1528 19864/36=551 19864/59=336 19864/82=242 19864/105=189 19864/128=155 19864/151=131 19864/174=114 19864/197=100 19864/220=90 19864/243=81 19864/266=74 19864/289=68 19864/312=63 19864/335=59 19864/358=55 19864/381=52 19864/404=49 19864/427=46 19864/450=44 19864/473=41 19864/496=40 19864/519=38 19864/542=36 19864/565=35 19864/588=33 19864/611=32 19864/634=31 19864/657=30 19864/680=29 19940/-700=-28 19940/-677=-29 19940/-654=-30 19940/-631=-31 19940/-608=-32 19940/-585=-34 19940/-562=-35 19940/-539=-36 19940/-516=-38 19940/-493=-40 19940/-470=-42 19940/-447=-44 19940/-424=-47 19940/-401=-49 19940/-378=-52 19940/-355=-56 19940/-332=-60 19940/-309=-64 19940/-286=-69 19940/-263=-75 19940/-240=-83 19940/-217=-91 19940/-194=-102 19940/-171=-116 19940/-148=-134 19940/-125=-159 19940/-102=-195 19940/-79=-252 19940/-56=-356 19940/-33=-604 19940/-10=-1994 19940/13=1533 19940/36=553 19940/59=337 19940/82=243 19940/105=189 19940/128=155 19940/151=132 19940/174=114 19940/197=101 19940/220=90 19940/243=82 19940/266=74 19940/289=68 19940/312=63 19940/335=59 19940/358=55 19940/381=52 19940/404=49 19940/427=46 19940/450=44 19940/473=42 19940/496=40 19940/519=38 19940/542=36 19940/565=35 19940/588=33 19940/611=32 19940/634=31 19940/657=30 19940/680=29 20016/-700=-28 20016/-677=-29 20016/-654=-30 20016/-631=-31 20016/-608=-32 20016/-585=-34 20016/-562=-35 20016/-539=-37 20016/-516=-38 20016/-493=-40 20016/-470=-42 20016/-447=-44 20016/-424=-47 20016/-401=-49 20016/-378=-52 20016/-355=-56 20016/-332=-60 20016/-309=-64 20016/-286=-69 20016/-263=-76 20016/-240=-83 20016/-217=-92 20016/-194=-103 20016/-171=-117 20016/-148=-135 20016/-125=-160 20016/-102=-196 20016/-79=-253 20016/-56=-357 20016/-33=-606 20016/-10=-2001 20016/13=1539 20016/36=556 20016/59=339 20016/82=244 20016/105=190 20016/128=156 20016/151=132 20016/174=115 20016/197=101 20016/220=90 20016/243=82 20016/266=75 20016/289=69 20016/312=64 20016/335=59 20016/358=55 20016/381=52 20016/404=49 20016/427=46 20016/450=44 20016/473=42 20016/496=40 20016/519=38 20016/542=36 20016/565=35 20016/588=34 20016/611=32 20016/634=31 20016/657=30 20016/680=29 20092/-700=-28 20092/-677=-29 20092/-654=-30 20092/-631=-31 20092/-608=-33 20092/-585=-34 20092/-562=-35 20092/-539=-37 20092/-516=-38 20092/-493=-40 20092/-470=-42 20092/-447=-44 20092/-424=-47 20092/-401=-50 20092/-378=-53 20092/-355=-56 20092/-332=-60 20092/-309=-65 20092/-286=-70 20092/-263=-76 20092/-240=-83 20092/-217=-92 20092/-194=-103 20092/-171=-117 20092/-148=-135 20092/-125=-160 20092/-102=-196 20092/-79=-254 20092/-56=-358 20092/-33=-608 20092/-10=-2009 20092/13=1545 20092/36=558 20092/59=340 20092/82=245 20092/105=191 20092/128=156 20092/151=133 20092/174=115 20092/197=101 20092/220=91 20092/243=82 20092/266=75 20092/289=69 20092/312=64 20092/335=59 20092/358=56 20092/381=52 20092/404=49 20092/427=47 20092/450=44 2009v x~vwyv, Mv v (v(v v#;#v v^v-8v8* Disassembly by L. Curtis Boyle * Edition 1 changes by LCB * 12/18/2017 - changed gfx font mode check to allow gfx font on ANY graphics window * - optomized some code at the end to be smaller. * Note: Rogue defaults to a 19 byte data aread ($00-$12) nam ROGUE ttl program module * Disassembled 2017/11/23 18:58:35 by Disasm v1.5 (C) 1988 by RML * OS9 system calls, etc (won't have enough RAM to do locally - can change later for defs * files for LWASM). F$Chain equ $05 F$Exit equ $06 F$Mem equ $07 F$Icpt equ $09 F$Sleep equ $0A F$ID equ $0C F$PErr equ $0F F$Time equ $15 I$Create equ $83 I$Open equ $84 I$Delete equ $87 I$Read equ $89 I$Write equ $8A I$ReadLn equ $8B I$GetStt equ $8D I$SetStt equ $8E I$Close equ $8F SS.ScTyp equ $93 SS.Ready equ $01 SS.ScSiz equ $26 Prgrm equ $10 Objct equ $01 ReEnt equ $80 Edition equ $01 Change to $01 once we are done PrgOffst equ $6000 Address Rogue will be loaded into RAM (used for tables at end) * ifp1 * use /dd/defs/os9defs * endc tylg set Prgrm+Objct atrv set ReEnt+rev rev set $01 mod eom,name,tylg,atrv,start,size * NOTE: This is the original 20 byte data area (reserved for parameters; ie the * save filename if present). Rogue then requests 24K of RAM, reads the rogue.dat * file into that, and all data area access from there on is based on the 24K data * data area instead. We should expand this and allow the -f= (default to * whatever # we make the Epyx Rogue font), since it will use a full 8K MMU block * anyways) u0000 rmb 1 u0001 rmb 1 u0002 rmb 1 u0003 rmb 1 u0004 rmb 1 u0005 rmb 1 u0006 rmb 1 u0007 rmb 1 u0008 rmb 1 u0009 rmb 1 u000A rmb 1 u000B rmb 1 u000C rmb 1 u000D rmb 1 u000E rmb 1 u000F rmb 1 u0010 rmb 1 u0011 rmb 1 u0012 rmb 1 size equ . name fcs /ROGU2/ * Edition #1 for new revisions fcb Edition start orcc #$50 Kill IRQs * The following SP setting works because, even though we have only "offically" allocated 20 bytes for the * data / parameter area, we get a full 8K MMU block. We should be able to change the size of the area * to allow the -f=## font override option we want to add. Even "officially" allocated the full 8K? lds #$1FFE Set stack ptr, then re-enable IRQs andcc #$AF lda #$02 sta >$FF20 ??? RS-232 bit on PIA? clra ldb #SS.ScTyp Get screen type os9 I$GetStt * Easiest patch for graphical font (either original or alternate) is to just * leave the font # alone, and skip all this special checking. Check if type >4, * then use C8 2A. If we have enough room for an inline patch, we can add an * option flag to specify a different font # (and take out all the special process * ID stuff) cmpa #$05 640x192x2? blo L002D If hardware text window, skip loading gfx font lbsr L00EE Yes, load special gfx font 'rogue.fnt' first NON STANDARD grp/buff! L002D ldd #$6000 Allocate 24K of RAM os9 F$Mem lbcs L00CA Couldn't get RAM; exit with error orcc #$50 Set stack ptr to end of new RAM lds #$5FFF andcc #$AF pshs u Save ptr to start of our data area leas <-20,s Bump stack ptr back 20 bytes tfr s,y Copy that to Y pshs y Save that ptr clrb Copy the original parameters passed to the new location L0049 lda ,x+ sta ,y+ incb cmpb #20 Max 20 chars for parameters beq L0059 tsta If <20 chars (NUL terminated), stop copying beq L005B cmpa #$0D If CR terminated, stop copying bne L0049 Keep copying until done L0059 clr ,-y Force NUL to end parameter string L005B leax >L00D2,pc Point to 'rogue.dat' lda #$01 owner Read mode os9 I$Open Open it * 6809/6309 - s/b short BCS lbcs L00CA Error, exit pshs a Save path to file ldx #$0000 Read whole file to $3571 ??? Save LSB of it clra Get options on current window * 6809/6309 - clrb ldb #$00 ldx #$0000 os9 I$GetStt clr >$0004 Turn echo off os9 I$SetStt * Not sure why all the PIA stuff here is necessary? Maybe due to incomplete OS-9 * Level II that came with Rogue? Can be used for code room to "patch in place" to * handle new font settings / options? (May have been for terminal testing of game * play as well). lda >$FF01 Get PIA settings anda #$F7 Disable Horizontal sync IRQ sta >$FF01 lda >$FF03 Get PIA settings anda #$F7 Disable vertical sync IRQ sta >$FF03 lda >$FF23 Get PIA settings ora #$08 Enable 6 bit sound sta >$FF23 leax >L00DC,pc Intercept routine (just return) ldu #$0000 Intercept routine data mem area os9 F$Icpt lbra L405F L00CA lda #$02 Exit with error os9 F$PErr lbra L0195 L00D2 fcc 'rogue.dat' fcb 0 * Signal trap routine - just return L00DC rti * Part of header for special gfx font. This chunk comes after the GPLoad sequence * group/buff (1b 29 gg bb), so it has type 5, 8x8, $400 byte load L00DD fcb $05,$00,$08,$00,$08,$04,$00 * Name of special font L00E4 fcc 'rogue.fnt' fcb 0 * Routine to read in special gfx font into Group #(our process ID), buffer #2 L00EE pshs y,x,d leax _5uVXqzP\xuVXqp\WqkbRwfhM}TP;((\voVuV @0  33  30 0 0030??<<<<<<< <<<<0<00< < < 33333 < ??3 00??33?033??00?3?000?33??3 <00?33?33??33? 33?333<33<33L÷ŷ"@!!5rLq큌L% *RDdJROdJRZdJeR^dJ-.,'' % U   k ,-- &ˎ큌%k dJ dJdJȽdJBdJ Z $  'kZ $ k" _dJ0%PjȽjk U"+k'kk,kcQýdJdk$RdJ,.rL'%' , % - d%d .  % / &d,&d-d.d/dhhaHHM'0@%cQ½dJdk[2[2[2񭟠 Z %      & 'жZ % ݽdz%jjȎ4큌L%`4%x'%&'6 Tt 4 T(t " T"t  T"ȗtXkÆʽ_ & &–ȁJ" _ &+Nu0%# BՖBJ=$  _ ghaHHMh &b X' XY=ZVVVVZ', '7\.e, ''Z.\ YYY Y&CǗX WW%5W0m`lcdJdkm`چdvG 0n`%mb haha0n`%m`'k+^"X%T0haHH ]tM :n`%ŽR$G& "GX7= G& 0 0 'L]tM:&  |% %s>XM :s<  vǗXƗ>rTSLZ큌Lr%@Z]_  }& B'K`큌%k $ vBA A' _   ɽc =OkdJdk '.k % o0 &0!s% %vR$_\,ƀ= J&,% B[2 B&E[cO= ȽdJdc =OdJd[2[2[2[2[2k}q'y }q'LqHrHrHM%}' 4rHrH4%[cO= ȽdJOdJdk[2[2[2[2[2[2 ڽv,-./R$,-,,.= // /&/ - .."ֽt[ QdJȀK,- % , ҽd і,dRL ڽdRLd==NN[2[2[2 큌%%J R&F`큌%c HQĽdJ QԽdJ QdJdk[2[2[2[2[2[2@ P vǗXƗ>rTSLZ큌Lr%@Z]_ @ jFȁK"K R&R[c QdJdk[2[2[2]tM: % |%9%9HM H,H. ]t* ''/M'0M&'   ۖ "W RM]t'M&Җ'3BoAlA M'A#,-]tM&./]t&]t ' CB3B9lA9|"&%""%M'M'9HM H ]tM'? ]t'*]t']t& 9s>',-]tM:&./]tM:&  oAės< ]tM:9 =OTT96lAs> 0s<M &HM]tD66 & &&!"#QIKSV BIN D#0]t 0 &9 &s<s> % & ܖHM ,LH.,-]tM'0./]t'./J L &9vha ܱ ܳ t]t''$"8 7 ?1 & ! "1 & 9'%&"]t 1 &9]t  –D(=, =,O:쁪1 &9 ]t =M 졪0 &9 S'$S&Z_ Z' _ċ_āq%99TS_ 02Z $ 0 00  1 $ 2 22  3 % % 0' 1% 2'D W ' " 9[? ' & E[? 'ߖ &  *[?* '툠9[?* '``9 ]t0 &9:vR$,---"= J& - ,&߽t4A]tM:1 1 ' 488XXML:=?s]tM:&"4?@]tM:'4 48L8 8J8}s8L9&: :;=:&M<8XX:,. ML8XX:,.=;& ' 8'ܖ8'8:9]tM:''V "66& &ʖ9' '"#1 \&1! Z&1? 1 =,-]tM:&#=./]tM:'=*=:88:886 R'THƀ=HH TTH@=HHHNNrL%rL6PP,.N'%' , % - d%d .  % / Lz,d-d.d/dLdRQ=-,RP=,,DQ=,,DP=,P,- % - .[-d.d9Z&~*9}k&94?<#k9}k&9c ~c ~9d%#% 7A$~*~Z&d%9'1}k'}k'd& =M,.,0 &.0! 9}k'}k'd& =M0 &0!9LGHJ-/CE*CLIDF%FK FDKIKݶ' ""HX IKCE"HHDF"JJE,.9dLGE0C2,.]tM:''O L&GG )GG ! L'0 2LM:̆ LC',H,.J. 9 d,.]tM:C',H,.J. KH. =OO:,뀟I]t KM:'' '  BKfCIG% v'&C' D'E' .L..J.Y&2 HD&*Y& G'ޞI,]tM:' E'C&*Y' F'I,]tM:' E' H' F'( G'$Y'D'tE'cC'[E'^.'&'s"P-& Y'<C -g9,|& Y'# ,g& 0 &9-& Y' -g9,& Y' ,g&† 0 &9 ,]t =(W=Ow:쁪1 &9 t'9t r@r]tM:U @r]tM:U r'9 u &u&3 ss%v %s=Zh:h>\h<hB@`cbe?rUU큌@% ?9 'ܲ ۴ݲ ܳ۱ݳC%@C֯=9 ' '9Ɨ܏CܑEe{wxH}yzJjIEHjICHIݸEJKݺhh܍ݑhhh"CE݁e & {܁} 0}2{wݽyݿiܽwܿy9"9ܫCܭEeܗ۔HܙۖJjIEHjICHIݸEJKݺiiܩݭiii"CݛEݝe0ݙ2ݗܓݽܕݿiܽݓܿݕ]t9ܸ&ܺ&ܶ"%ܽݿ G'G' оݽG' ݿha'%9haha9haha9%ƻ ""9{"9"{9 '9 '9 '9 '9PLܱܳ%FM%ݱݳha9`큌4%̪`-%̨0 %9큌`%M\@0 %0AH%ROdJtO&dJkOdJUU큌@% ?6Lrdc9M\00 0 & 0A%9;) ) ) ) )  ( )  )") ))) ))&)")))'$ xxxxxxpxxxxxxKROdJtO&dJkOdJUU큌@% ?6Lrdc9M\00 0 & 0A%9;) ) ) ) )  ( )  )" beq L0590 ldy #43 lda >$14AE os9 I$Write bcs L0590 inc >$1985 leax <43,x bra L056C L0590 puls pc,u,y,x,d L0592 pshs u,y,x,d lbsr L6D6F lda >$37CE cmpa #14 bhs L05A0 puls pc,u,y,x,d L05A0 clra clrb lbsr L6CDE CurXY to b,a ldx #$19E1 'Guildmaster's Hall of Fame:' lbsr L6D07 Write out string @ X (NUL terminated) lbsr L3C50 lda #$02 clrb lbsr L6CDE CurXY to b,a lda >$37CC cmpa #18 blo L05C1 ldx #$19FD ' Gold' lbsr L6D07 Write out string @ X (NUL terminated) L05C1 clr >$1986 L05C4 lda >$1986 cmpa #10 lbcc L06AF clra clrb std >$1987 ldd <$27,y * 6809/6309 - redundant, remove cmpd cmpd #$0000 lbeq L06AF leau ,y pshs u ldu <$27,y pshs u ldu #$1A07 pshs u lbsr L6D16 leas 6,s lda >$37CB cmpa #$2F ? '/' lbcs L06A0 lda <$2A,y cmpa #$1A bcs L0606 ldd #$19A7 'Honored by the Guild' std >$1987 L0606 lda <$29,y lbsr L3EE2 tsta beq L0628 lda <$29,y ldb #$01 lbsr L0ABE pshs u ldu #$1A0F ' killed by %s' pshs u ldx #$1989 lbsr L3D23 leas 4,s bra L0651 L0628 lda <$29,y cmpa #$02 bne L0638 ldd #$19BD ' A total winner!' std >$1987 * 6809/6309 - BRA lbra L0651 L0638 cmpa #$01 bne L0648 ldx #$1989 ldu #$19CE ' quit' lbsr L3FF3 lbra L0651 L0648 ldx #$1989 ldu #$19D4 'wierded out' lbsr L3FF3 L0651 lda <$26,y cmpa #$01 bls L0676 leax ,y lbsr L3FE7 Get length of string @ X (NUL terminated) tsta beq L0676 lda <$26,y Get player's level deca 0 based lsla * 2 for two byte entries ldu #$0504 Ptr to player level table ldu a,u Get ptr to player level text ('Guild Novice' through 'Bug Chaser') pshs u Save ptr ldu #$1A1D ' "%s" pshs u lbsr L6D16 leas 4,s L0676 lda >$37CB cmpa #80 blo L06A0 ldx >$1987 cmpx #$0000 bne L069D ldb <$2A,y clra pshs d ldu #$1989 pshs u ldu #$1A23 '%s on level %d' pshs u lbsr L6D16 leas 6,s lbra L06A0 L069D lbsr L6D07 Write out string @ X (NUL terminated) L06A0 ldx #$1A32 CRLF lbsr L6D07 Write out string @ X (NUL terminated) inc >$1986 leay <$2B,y lbra L05C4 L06AF lbsr L3C50 puls pc,u,y,x,d L06B4 pshs u,y,x,b lda #$0B sta >$1A35 stu >$1A36 leau >$0183,u stu >$1A38 L06C5 cmpu >$1A36 bcs L06FC ldd <$27,x cmpd <$27,u bls L06FC tfr u,y dec >$1A35 cmpy >$1A38 bcc L06F5 ldd <$27,u beq L06F5 pshs u clrb L06E7 lda ,u sta <$2B,u leau 1,u incb cmpb #$2B blo L06E7 puls u L06F5 lda #$2B nega leau a,u bra L06C5 L06FC lda >$1A35 cmpa #$0B bne L0707 lda #$00 puls pc,u,y,x,b L0707 clrb L0708 lda b,x sta b,y incb cmpb #$2B blo L0708 lda >$1A35 puls pc,u,y,x,b L0716 sta >$1A3A ldu >$0D92 ldd #$000A lbsr L3C5C pshs u ldd >$0D92 subd ,s++ std >$0D92 lbsr L6D6F ldy #$0001 lda >$37CE ldb >$37CD decb tfr d,x lbsr L6493 lda >$37CE suba #$0E sta >$1A3B * 6809/6309 - redundant, remove cmpa cmpa #$00 bge L0773 lda #$09 adda >$1A3B ldx #$1A77 'You died.' lbsr L6D56 ldu >$0D92 pshs u ldu #$1A6A 'WORTH: %u Au' pshs u ldx #$35BF lbsr L3D23 leas 4,s lda #$0B adda >$1A3B lbsr L6D56 lbra L0823 L0773 ldx #$1A81 '_____' (5) lda #$01 adda >$1A3B lbsr L6D56 ldx #$1A87 '/ \' lda #$02 adda >$1A3B lbsr L6D56 ldx #$1A8F 'I RIP I' lda #$03 adda >$1A3B lbsr L6D56 ldx #$1A99 'I I' (these 3 could be compressed to point to the same entry) lda #$04 adda >$1A3B lbsr L6D56 ldx #$1AA3 'I I' lda #$05 adda >$1A3B lbsr L6D56 ldx #$1AAD 'I I' lda #$06 adda >$1A3B lbsr L6D56 lda >$1A3A ldb #$01 lbsr L0ABE pshs u ldu #$14B0 'Rodney' pshs u ldu #$1A3C 'Here lies %s killed by %s.' pshs u ldx #$35BF lbsr L3D23 leas 6,s lbsr L3FE7 Get length of string @ X (NUL terminated) adda #$04 cmpa >$37CB bhi L07E5 lda #$09 adda >$1A3B lbsr L6D56 bra L0809 L07E5 ldu #$14B0 'Rodney' pshs u ldu #$1AB7 'Here lies %s' pshs u ldx #$35BF lbsr L3D23 leas 4,s lbsr L3FE7 Get length of string @ X (NUL terminated) adda #$04 cmpa >$37CB bhi L0823 lda #$09 adda >$1A3B lbsr L6D56 L0809 ldu >$0D92 pshs u ldu #$1A57 'TOTAL WORTH: %u Au' pshs u ldx #$35BF lbsr L3D23 leas 4,s lda #$0B adda >$1A3B lbsr L6D56 L0823 ldu >$0D92 clra ldb >$1A3A lbsr L0434 lbra L0195 L0830 lbsr L6D6F ldu #$1AC9 See text breakdown in comments below: * U points to multi-line win screen: *Congratulations! *You have made it to the light of day! * * * * * *You journey home and sell all your *loot at a great profit and are *admitted to the fighters guild. * * pshs u lbsr L6D16 leas 2,s lda >$37CE clrb lbsr L6CDE CurXY to b,a ldx #$1B84 '--Press space to continue--' lbsr L6D07 Write out string @ X (NUL terminated) lda #$20 lbsr L62E5 lbsr L6D6F ldx #$1BA0 ' Worth Item ----- ----' lbsr L6D07 Write out string @ X (NUL terminated) lda #$04 sta >$3CCB ldd >$0D92 std >$1AC7 lda #$61 sta >$1AC6 ldx >$10F5 * 6809 - could change to leax ,x (1 byte shorter, 1 cycle longer) L086B cmpx #$0000 lbeq L0A67 lda 4,x cmpa #$CC bne L0883 ldb $E,x clra lslb rola std >$1AC4 lbra L0A1F L0883 cmpa #$CF bne L08B1 lda $0F,x ldu #$00BD ldb a,u clra std >$1AC4 lda #$03 ldb <$10,x addb <$11,x mul addb $E,x ldu >$1AC4 lbsr L3CCE std >$1AC4 lda <$13,x ora #$02 sta <$13,x lbra L0A1F L08B1 cmpa #$D0 bne L08EC lda $F,x ldu #$013E Some sort of table ldb a,u Get entry clra Make 16 bit std >$1AC4 Save it lda #9 suba <$12,x ldb #$64 mul addd >$1AC4 std >$1AC4 lda #10 ldb $F,x ldu #$014E Another table ldb b,u Get entry subb <$12,x mul addd >$1AC4 std >$1AC4 lda <$13,x ora #$02 sta <$13,x lbra L0A1F L08EC cmpa #$CD bne L0928 lda $0F,x ldb #$04 mul addd #$0159 tfr d,u lda ,u ldb #10 mul std >$1AC4 ldb $0E,x clra ldu >$1AC4 lbsr L3CCE std >$1AC4 lda $F,x ldu #$05FE tst a,u bne L091F ldd >$1AC4 lsra rorb std >$1AC4 L091F lda $F,x ldb #$01 stb a,u lbra L0A1F L0928 cmpa #$CE bne L0964 lda $F,x Get tbl entry # we want ldb #4 4 bytes per entry mul addd #$0265 Add to base ptr to table tfr d,u lda ,u Get 1st byte for our entry ldb #10 mul std >$1AC4 ldb $E,x clra ldu >$1AC4 lbsr L3CCE std >$1AC4 lda $F,x ldu #$060D tst a,u bne L095B ldd >$1AC4 lsra rorb std >$1AC4 L095B lda $F,x ldb #$01 stb a,u lbra L0A1F L0964 cmpa #$D1 bne L09C7 lda $0F,x ldb #4 mul addd #$034F tfr d,u lda ,u ldb #10 mul std >$1AC4 lda $F,x * 6809/6309 - Add BEQ L098C here, and remove the CMPA #$00/BEQ L098C below cmpa #$01 beq L098C cmpa #$08 beq L098C cmpa #$00 beq L098C cmpa #$07 bne L09A4 L098C lda <$12,x * 6809/6309 - remove cmpa #$00 cmpa #$00 ble L099E ldb #100 mul addd >$1AC4 std >$1AC4 bra L09A4 L099E ldd #10 std >$1AC4 L09A4 lda <$13,x anda #$02 bne L09B3 ldd >$1AC4 lsra rorb std >$1AC4 * 6309 - replace next 3 lines with oim #2,<$13,x L09B3 lda <$13,x ora #$02 sta <$13,x lda $0F,x ldu #$061B ldb #$01 stb a,u lbra L0A1F L09C7 cmpa #$D2 bne L0A0C lda $F,x ldb #4 mul addd #$043F tfr d,u lda ,u ldb #10 mul std >$1AC4 lda <$12,x ldb #20 mul addd >$1AC4 std >$1AC4 lda <$13,x anda #$02 bne L09F8 ldd >$1AC4 lsra rorb std >$1AC4 L09F8 lda <$13,x ora #$02 sta <$13,x lda $F,x ldu #$0629 ldb #$01 stb a,u * 6809/6309 s/b BRA lbra L0A1F L0A0C cmpa #$D5 bne L0A19 ldd #$03E8 std >$1AC4 * 6809/6309 s/b BRA lbra L0A1F L0A19 ldd #$0000 std >$1AC4 L0A1F ldd >$1AC4 bpl L0A2A ldd #$0000 std >$1AC4 L0A2A pshs x clra lbsr L72B6 pshs u ldu >$1AC4 pshs u lda >$1AC6 pshs a ldu #$1B76 pshs u ldx #$4AE4 lbsr L3D23 leas 7,s ldd #$1470 ldy #$4AE4 lbsr L7B5E puls x ldd >$0D92 addd >$1AC4 std >$0D92 inc >$1AC6 lbsr L3C39 lbra L086B L0A67 ldd #$1470 ldy #$1B82 ' ' lbsr L7B5E ldu >$1AC7 pshs u ldu #$1BC4 ' %5u Gold Pieces' pshs u ldx #$4AE4 lbsr L3D23 leas 4,s ldd #$1470 ldy #$4AE4 lbsr L7B5E ldd #$1470 ldy #$1B82 ' ' lbsr L7B5E ldu >$0D92 pshs u ldu #$1BD8 ' %5u TOTAL SCORE' pshs u ldx #$4AE4 lbsr L3D23 leas 4,s ldd #$1470 ldy #$4AE4 lbsr L7B5E ldu >$0D92 lda #$02 lbsr L0434 lbra L0195 L0ABE pshs y,x,d ldx #$4B34 ldy #$0001 cmpa #$61 lowercase a bne L0AD1 ldu #$1BED 'arrow' * 6809/6309 - s/b BRA lbra L0B1E L0AD1 cmpa #$62 lowercase b bne L0ADB ldu #$1BF3 'bolt' * 6809/6309 - s/b BRA lbra L0B1E L0ADB cmpa #$64 lowercase d bne L0AE5 ldu #$1BF8 'dart' * 6809/6309 - s/b BRA lbra L0B1E L0AE5 cmpa #$73 lowercase s bne L0AF3 ldu #$1BFD 'starvation' ldy #$0000 lbra L0B1E L0AF3 cmpa #$66 lowercase f bne L0AFD ldu #$1C08 'fall' * 6809/6309 - s/b BRA lbra L0B1E L0AFD cmpa #$41 Capital A blo L0B17 cmpa #$5A Capital Z bhi L0B17 pshs b Uppercase alpha character; save B suba #$41 convert to 0-25 ldb #18 Multiply by 18 for offset mul addd #$10FB tfr d,u ldu ,u puls b bra L0B1E L0B17 ldu #$1C0D 'God' ldy #$0000 L0B1E tstb beq L0B3C cmpy #$0000 beq L0B3C pshs u lbsr L56E3 pshs u ldu #$1C11 'a%s ' pshs u lbsr L3D23 leas 4,s puls u bra L0B3F L0B3C clr >$4B34 L0B3F lbsr L3FFD tfr x,u puls pc,y,x,d L0B46 pshs u,y,x,d lda >$0D91 sta >$1C20 *6809/6309 - replace next two lines with LDD #$0350 lda #$03 ldb #$50 lbsr L3CA4 sta >$1C1C *6809/6309 - replace next two lines with LDD #$0317 lda #$03 ldb #$17 lbsr L3CA4 sta >$1C1D ldx #$0DBB clra clrb L0B67 cmpx #$0EED beq L0B77 std 6,x sta 9,x sta 8,x leax <34,x bra L0B67 L0B77 lda #4 lbsr L63A9 sta >$1C21 clr >$1C16 L0B82 lda >$1C16 cmpa >$1C21 bhs L0BC5 L0B8A lbsr L1997 sta >$1C17 lbsr L3D0A lda 8,x anda #$04 bne L0B8A * 6309 - OIM #2,8,x lda 8,x ora #$02 sta 8,x lda >$1C17 cmpa #$02 bls L0BC0 lda >$0D91 cmpa #10 bls L0BC0 suba #9 pshs a lda #20 lbsr L63A9 cmpa ,s+ bhs L0BC0 * 6309 - OIM #2,8,x lda 8,x ora #$04 sta 8,x L0BC0 inc >$1C16 bra L0B82 L0BC5 clr >$1C16 ldx #$0DBB L0BCB lda >$1C16 cmpa #9 lbhs L0D55 lda #$03 ldb >$1C16 lbsr L3CA4 lda >$1C1C mul incb stb >$1C1A lda #$03 ldb >$1C16 lbsr L3CA4 ldb >$1C1D mul stb >$1C1B lda $08,x anda #$02 beq L0C3F lda $08,x anda #$04 beq L0C09 ldd >$1C1A std ,x lbsr L1552 bra L0C3C L0C09 lda >$1C1C suba #$02 lbsr L63A9 adda >$1C1A inca sta ,x lda >$1C1D suba #$02 lbsr L63A9 adda >$1C1B inca sta 1,x lda #80 nega sta 2,x lda #$17 nega sta 3,x lda 1,x * 6809/6309 - remove, redundant cmpa #$00 ble L0C09 lda 1,x inca cmpa #$17 bge L0C09 L0C3C lbra L0D4C L0C3F lda #$0A lbsr L63A9 inca cmpa >$0D91 bhs L0C50 * 6309 - OIM #01,8,x lda 8,x ora #$01 sta 8,x L0C50 lda >$1C1C suba #$04 lbsr L63A9 adda #$04 sta 2,x lda >$1C1D suba #$04 lbsr L63A9 adda #$04 sta 3,x lda >$1C1C suba 2,x lbsr L63A9 adda >$1C1A sta ,x lda >$1C1D suba 3,x lbsr L63A9 adda >$1C1B sta 1,x * 6809/6309 - redundant, remove tst 1,x beq L0C50 lbsr L0D57 lda #$02 lbsr L63A9 tsta * 6809/6309 - s/b BNE lbne L0CFA tst >$0638 beq L0CA2 lda >$0D91 cmpa >$0D90 * 6809/6309 - s/b BLO lblo L0CFA L0CA2 pshs x lbsr L6162 tfr x,u puls x cmpu #$0000 * 6809/6309 - s/b BEQ lbeq L0CFA lbsr L3BD1 std 6,x std 16,u pshs u L0CBD leau 4,x lbsr L0E1A lda 5,x ldb 4,x lbsr L3BBB lbsr L3C2C tsta beq L0CBD puls u ldd 4,x std 5,u lda #$20 sta <$13,u lda #$01 sta <$15,u lda #$CB sta 4,u pshs x tfr u,x ldu #$10F7 lbsr L6138 puls x lda 5,x ldb 4,x lbsr L3CF4 lda #$CB sta ,u L0CFA ldd 6,x beq L0D02 lda #80 bra L0D04 L0D02 lda #25 L0D04 pshs a lda #$64 lbsr L63A9 cmpa ,s+ * 6809/6309 - s/b BGE lbge L0D4C pshs x lbsr L6162 tfr x,u puls x cmpu #$0000 beq L0D4C pshs u L0D22 ldu #$1C1E lbsr L0E1A lda >$1C1F ldb >$1C1E lbsr L5AF2 lbsr L3C2C tsta beq L0D22 puls u pshs x clra lbsr L29A7 ldx #$1C1E lbsr L29E5 tfr u,x lbsr L2C88 puls x L0D4C inc >$1C16 leax <$22,x lbra L0BCB L0D55 puls pc,u,y,x,d L0D57 pshs u,d lda 1,x adda 3,x deca sta >$1C23 lda ,x adda 2,x deca sta >$1C22 lda ,x * 6809/6309 - s/b BSR lbsr L0DD2 lda >$1C22 * 6809/6309 - s/b BSR lbsr L0DD2 lda $01,x * 6809/6309 - s/b BSR lbsr L0DF7 lda >$1C23 * 6809/6309 - s/b BSR lbsr L0DF7 lda 1,x ldb ,x lbsr L3CF4 lda #$C6 sta ,u lda 1,x ldb >$1C22 lbsr L3CF4 lda #$C7 sta ,u lda >$1C23 ldb ,x lbsr L3CF4 lda #$C8 sta ,u lda >$1C23 ldb >$1C22 lbsr L3CF4 lda #$C9 sta ,u lda 1,x inca L0DB2 cmpa >$1C23 * 6809/6309 - bhs L0DF4 (after change DF4 to puls pc,u,d), eliminate L0DD0 bhs L0DD0 ldb ,x incb L0DBA cmpb >$1C22 bhs L0DCD pshs a lbsr L3CF4 lda #$C2 sta ,u puls a incb bra L0DBA L0DCD inca bra L0DB2 L0DD0 puls pc,u,d L0DD2 pshs u,d tfr a,b lda 1,x sta >$1C24 L0DDB lda 1,x adda 3,x deca cmpa >$1C24 blo L0DF4 lda >$1C24 lbsr L3CF4 lda #$C5 sta ,u inc >$1C24 bra L0DDB L0DF4 puls u,d rts L0DF7 pshs u,b ldb ,x stb >$1C25 L0DFE ldb ,x addb 2,x decb cmpb >$1C25 blo L0E17 ldb >$1C25 lbsr L3CF4 ldb #$C4 stb ,u inc >$1C25 bra L0DFE L0E17 puls u,b rts L0E1A pshs d lda 2,x suba #$02 lbsr L63A9 inca adda ,x sta ,u lda 3,x suba #$02 lbsr L63A9 inca adda 1,x sta 1,u puls pc,d L0E36 pshs u,x,d tfr x,u lbsr L281F stu >$10F3 tst >$063F bne L0E51 lda 8,u anda #$02 beq L0E53 lda 8,u anda #$04 bne L0E53 L0E51 puls pc,u,x,d L0E53 lbsr L1F45 lda 8,u anda #$01 * 6809/6309 - s/b BNE lbne L0ED8 ldx #$10D8 ldd #$0001 lbsr L3C3C tsta bne L0ED8 lda 8,u anda #$04 bne L0ED8 lda 1,u sta >$1C27 adda 3,u sta >$1C29 L0E7A lda >$1C27 cmpa >$1C29 bcc L0ED8 lda >$1C27 ldb ,u lbsr L65DF lda ,u sta >$1C26 adda 2,u sta >$1C28 L0E94 lda >$1C26 cmpa >$1C28 bcc L0ED3 lda >$1C27 ldb >$1C26 lbsr L2CDB cmpx #$0000 beq L0EB0 lbsr L25F0 tsta bne L0EBE L0EB0 lda >$1C27 ldb >$1C26 lbsr L3BBB lbsr L6612 bra L0ECE L0EBE lda >$1C27 ldb >$1C26 lbsr L3BBB sta 9,x lda 8,x lbsr L6612 L0ECE inc >$1C26 bra L0E94 L0ED3 inc >$1C27 bra L0E7A L0ED8 puls pc,u,x,d L0EDA pshs u,x,d ldu >$10F3 lda 1,x ldb ,x lbsr L3BC6 anda #$0F ldb #$22 mul addd #$0EED std >$10F3 lda 8,u anda #$01 beq L0F07 ldx #$10D8 ldd #$0001 lbsr L3C3C tsta bne L0F07 lda #$20 bra L0F09 L0F07 lda #$C2 L0F09 sta >$1C2B lda 8,u anda #$04 beq L0F17 lda #$C3 sta >$1C2B L0F17 lda 1,u inca sta >$1C2D lda 3,u adda 1,u deca sta >$1C2F L0F25 lda >$1C2D cmpa >$1C2F lbcc L0FB2 lda ,u inca sta >$1C2C lda 2,u adda ,u deca sta >$1C2E L0F3D lda >$1C2C cmpa >$1C2E bcc L0FAC lda >$1C2D ldb >$1C2C lbsr L68D2 sta >$1C2A cmpa #$20 beq L0FA7 cmpa #$C3 beq L0FA7 cmpa #$D4 beq L0FA7 cmpa #$D3 beq L0FA7 cmpa #$C2 bne L0F71 lda >$1C2B cmpa #$20 bne L0FA7 lbsr L6612 bra L0FA7 L0F71 lbsr L3F5A lbsr L3EF6 tsta beq L0FA1 ldx #$10D8 ldd #$0002 lbsr L3C3C tsta beq L0F94 lbsr L3C50 lda >$1C2A lbsr L6612 lbsr L3C50 bra L0FA7 L0F94 lda >$1C2D ldb >$1C2C lbsr L2CDB lda #$40 sta 9,x L0FA1 lda >$1C2B lbsr L6612 L0FA7 inc >$1C2C bra L0F3D L0FAC inc >$1C2D lbra L0F25 L0FB2 lbsr L1F45 puls pc,u,x,d L0FB7 pshs u,y,x,d * 6809/6309 - replace next 2 lines with std >$1C32 sta >$1C32 stb >$1C33 pshs b cmpa ,s+ bhs L0FDD sta >$1C39 inca pshs b cmpa ,s+ bne L0FD6 lda #$72 sta >$1C3D bra L0FF3 L0FD6 lda #$64 sta >$1C3D bra L0FF3 L0FDD stb >$1C39 incb pshs a cmpb ,s+ bne L0FEE lda #$72 sta >$1C3D bra L0FF3 L0FEE lda #$64 sta >$1C3D L0FF3 ldb >$1C39 lda #$22 mul addd #$0DBB std >$1C34 * 6809/6309 - tfr d,y ldy >$1C34 lda >$1C3D cmpa #$64 lbne L10C2 lda >$1C39 adda #$03 sta >$1C38 ldb #$22 mul addd #$0DBB std >$1C36 * 6809/6309 - tfr d,x ldx >$1C36 clr >$1C3E lda #$01 sta >$1C3F lda 8,y tfr a,b anda #$02 beq L1034 andb #$04 beq L1057 L1034 lda 1,y adda 3,y deca sta >$1C45 L103C lda 2,y suba #$02 lbsr L63A9 inca adda ,y sta >$1C44 tfr a,b lda >$1C45 lbsr L3BBB cmpa #$20 beq L103C bra L1061 L1057 lda ,y sta >$1C44 lda 1,y sta >$1C45 L1061 lda 1,x sta >$1C47 lda 8,x tfr a,b anda #$02 beq L1072 andb #$04 beq L108D L1072 lda 2,x suba #$02 lbsr L63A9 inca adda ,x sta >$1C46 tfr a,b lda >$1C47 lbsr L3BBB cmpa #$20 beq L1072 bra L1092 L108D lda ,x sta >$1C46 L1092 lda >$1C45 suba >$1C47 lbsr L3BB6 ABS of A deca sta >$1C3A clr >$1C43 lda >$1C44 cmpa >$1C46 blo L10AE lda #$FF bra L10B0 L10AE lda #$01 L10B0 sta >$1C42 lda >$1C44 suba >$1C46 lbsr L3BB6 ABS of A sta >$1C3C lbra L1170 L10C2 lda >$1C39 inca sta >$1C38 ldb #$22 mul addd #$0DBB std >$1C36 ldx >$1C36 lda #$01 sta >$1C3E clr >$1C3F lda 8,y tfr a,b anda #$02 beq L10E9 andb #$04 beq L110A L10E9 lda ,y adda 2,y deca sta >$1C44 L10F1 lda 3,y suba #$02 lbsr L63A9 inca adda 1,y sta >$1C45 ldb >$1C44 lbsr L3BBB cmpa #$20 beq L10F1 bra L1114 L110A lda ,y sta >$1C44 lda 1,y sta >$1C45 L1114 lda ,x sta >$1C46 lda 8,x tfr a,b anda #$02 beq L1125 andb #$04 beq L113E L1125 lda 3,x suba #$02 lbsr L63A9 inca adda 1,x sta >$1C47 ldb >$1C46 lbsr L3BBB cmpa #$20 beq L1125 bra L1143 L113E lda 1,x sta >$1C47 L1143 lda >$1C44 suba >$1C46 lbsr L3BB6 ABS of A deca sta >$1C3A lda >$1C45 cmpa >$1C47 blo L115C lda #$FF bra L115E L115C lda #$01 L115E sta >$1C43 clr >$1C42 lda >$1C45 suba >$1C47 lbsr L3BB6 ABS of A sta >$1C3C L1170 lda >$1C3A deca beq L1179 lbsr L63A9 L1179 inca sta >$1C3B lda 8,y anda #$02 bne L1192 tfr y,d pshs y ldy #$1C44 lbsr L13DE puls y bra L119B L1192 lda >$1C45 ldb >$1C44 lbsr L153B L119B lda 8,x anda #$02 bne L11B0 tfr x,d pshs x ldy #$1C46 lbsr L13DE puls x bra L11B9 L11B0 lda >$1C47 ldb >$1C46 lbsr L153B L11B9 lda >$1C44 sta >$1C40 lda >$1C45 sta >$1C41 L11C5 lda >$1C3A beq L1215 ldb >$1C40 addb >$1C3E stb >$1C40 ldb >$1C41 addb >$1C3F stb >$1C41 cmpa >$1C3B bne L1207 L11E1 lda >$1C3C dec >$1C3C tsta beq L1207 lda >$1C41 ldb >$1C40 lbsr L153B lda >$1C40 adda >$1C42 sta >$1C40 lda >$1C41 adda >$1C43 sta >$1C41 bra L11E1 L1207 lda >$1C41 ldb >$1C40 lbsr L153B dec >$1C3A bra L11C5 L1215 lda >$1C40 adda >$1C3E sta >$1C40 lda >$1C41 adda >$1C3F sta >$1C41 ldd #$1C40 ldu #$1C46 lbsr L5A95 tsta bne L124E lda >$1C46 suba >$1C3E sta >$1C46 lda >$1C47 suba >$1C3F sta >$1C47 lda >$1C47 ldb >$1C46 lbsr L153B L124E puls pc,u,y,x,d L1250 pshs u,y,x,d ldu #$1C48 stu >$1CF3 ldd #$1CF3 std >$1CFA clr >$1CF8 L1261 cmpu >$1CFA bhs L127D lda >$1CF8 L126A cmpa #$09 bcc L1275 leax 9,u clr a,x inca bra L126A L1275 clr <$12,u leau <$13,u bra L1261 L127D lda #$01 sta >$1CF9 lda #$09 lbsr L63A9 ldb #$13 mul addd #$1C48 std >$1CF3 tfr d,u lda #$01 sta <$12,u tfr u,x L1299 clr >$1CF7 clr >$1CF8 L129F lda >$1CF7 cmpa #$09 bhs L12D5 * 6809/6309 - pretty sure this next line is useless leax ,x tst a,x beq L12D0 ldb #$13 mul addd #$1C5A tfr d,y tst ,y bne L12D0 inc >$1CF8 lda >$1CF8 lbsr L63A9 tsta bne L12D0 lda >$1CF7 ldb #$13 mul addd #$1C48 std >$1CF5 L12D0 inc >$1CF7 bra L129F L12D5 tst >$1CF8 bne L12F1 L12DA lda #$09 lbsr L63A9 ldb #$13 mul addd #$1C48 std >$1CF3 tfr d,x tst <$12,x beq L12DA bra L1335 L12F1 ldx >$1CF5 lda #$01 sta <$12,x ldd >$1CF3 tfr d,x subd #$1C48 lda #$13 lbsr L3CA4 sta >$1CF7 ldd >$1CF5 tfr d,y subd #$1C48 lda #$13 lbsr L3CA4 sta >$1CF8 * 6809/6309 - replace next two lines with LDD >$1CF7 lda >$1CF7 ldb >$1CF8 lbsr L0FB7 lda >$1CF8 leax 9,x ldb #$01 stb a,x lda >$1CF7 leax 9,y stb a,x inc >$1CF9 L1335 lda >$1CF9 cmpa #$09 lbcs L1299 lda #$05 lbsr L63A9 sta >$1CF9 L1346 lda >$1CF9 * 6809/6309 - redundant. Remove cmpa cmpa #$00 lbls L13D9 lda #$09 lbsr L63A9 ldb #$13 mul addd #$1C48 std >$1CF3 tfr d,x clr >$1CF8 clr >$1CF7 L1365 lda >$1CF7 cmpa #$09 bhs L1395 leay ,x tst a,y beq L1390 leay 9,x tst a,y bne L1390 inc >$1CF8 lda >$1CF8 lbsr L63A9 tsta bne L1390 lda >$1CF7 ldb #$13 mul addd #$1C48 std >$1CF5 L1390 inc >$1CF7 bra L1365 L1395 tst >$1CF8 beq L13D3 ldd >$1CF3 tfr d,x subd #$1C48 lda #$13 lbsr L3CA4 sta >$1CF7 ldd >$1CF5 tfr d,y subd #$1C48 lda #$13 lbsr L3CA4 sta >$1CF8 * 6809/6309 - replace next 2 lines with LDD >$1CF7 lda >$1CF7 ldb >$1CF8 lbsr L0FB7 lda >$1CF8 leax 9,x ldb #$01 stb a,x lda >$1CF7 leax 9,y stb a,x L13D3 dec >$1CF9 lbra L1346 L13D9 lbsr L1449 puls pc,u,y,x,d L13DE pshs u,y,x,d std >$1CFC tfr d,u lda 1,y ldb ,y lbsr L5AAA stx >$1CFE lda #$0A lbsr L63A9 inca cmpa >$0D91 bhs L142D lda #$05 lbsr L63A9 tsta bne L142D lda 1,y cmpa 1,u beq L1417 pshs a lda 1,u adda 3,u deca cmpa ,s+ beq L1417 lda #$C5 bra L1419 L1417 lda #$C4 L1419 ldx >$1CFE sta >$4B84,x * 6809/6309 - should the next 2 lines not just be lda #$EF? * 6309 - if above is true, then AIM #$EF,>$5264,x replaces all 4 lines lda #$10 coma anda >$5264,x sta >$5264,x bra L1436 L142D ldx >$1CFE lda #$CA sta >$4B84,x L1436 lda 9,u inc 9,u ldb 1,y lsla leax $B,u stb a,x ldb ,y leax $A,u stb a,x puls pc,u,y,x,d L1449 pshs u,y,x,d clr >$1C30 clr >$1C31 ldx #$0EED * 6809/6309 - replace next 4 lines with LDD #$10A7 lda #$0D ldb #$22 mul addd #$0EED std >$1D01 L145F cmpx >$1D01 bhs L146B clr 9,x leax <$22,x bra L145F L146B ldx #$0DBB * 6809/6309 - replace next 4 lines with LDD #$0EED lda #$09 ldb #$22 mul addd #$0DBB std >$1D01 L1479 cmpx >$1D01 bhs L14A1 clr >$1D00 L1481 lda >$1D00 cmpa 9,x bhs L149C lsla inc >$1C31 leau $A,x ldb a,u leau $B,x lda a,u * 6809/6309 - s/b BSR lbsr L14A3 inc >$1D00 bra L1481 L149C leax <$22,x bra L1479 L14A1 puls pc,u,y,x,d L14A3 pshs d pshs u * 6809/6309 - replace 2 lines with STD >$1D03 sta >$1D03 stb >$1D04 lbsr L5ADE tsta lbne L1537 lda >$1D03 lbsr L3CFF lda ,u anda #$0F * 6809/6309 - s/b BNE lbne L1537 tst >$1C31 beq L14CE inc >$1C30 clr >$1C31 * 6809/6309 - replace 2 lines with STD >$1D03 L14CE lda >$1D03 ldb >$1D04 lbsr L3BBB cmpa #$CA beq L14E5 ldb ,u andb #$10 bne L150D cmpa #$C2 beq L150D L14E5 pshs u lda >$1C30 ldb #$22 mul addd #$0EED tfr d,u lda 9,u ldb >$1D03 lsla pshs x leax $B,u stb a,x inc 9,u ldb >$1D04 leax 10,u stb a,x puls x puls u bra L1513 L150D ldb ,u andb #$40 beq L1537 L1513 lda ,u ora >$1C30 sta ,u puls u lda >$1D03 inca ldb >$1D04 lbsr L14A3 suba #$02 lbsr L14A3 inca incb lbsr L14A3 subb #$02 lbsr L14A3 puls pc,d L1537 puls u puls pc,d L153B pshs x,d lbsr L5AAA ldb #$C3 stb >$4B84,x * 6309 - replace next 3 with OIM #$40,>$5264,x lda >$5264,x ora #$40 sta >$5264,x puls pc,x,d L1552 pshs u,y,x,d ldd #$1D1A std >$1D0C * 6809/6309 - change to ldb #$7E (since A staying same) ldd #$1D7E std >$1D0E clr >$1D0A clr >$1D0B lda 1,x sta >$1D08 bne L1572 inc >$1D08 inc 1,x L1572 lda ,x sta >$1D09 lda >$1D08 sta >$1D10 ldb >$1D09 stb >$1D11 lbsr L17B7 lbsr L1628 L1589 tst >$1D05 beq L159C lbsr L167C * 6809/6309 - replace next two lines with LDD >$1D06 lda >$1D06 ldb >$1D07 lbsr L1628 bra L1589 L159C lda >$1D0A suba ,x inca sta 2,x lda >$1D0B suba 1,x inca sta 3,x L15AC ldu #$1D14 lbsr L0E1A clr >$1D12 ldd #$1DE2 tfr d,y addd #$0008 std >$1D18 lda #$01 sta >$1D13 L15C5 cmpy >$1D18 bcc L1605 lda >$1D15 adda 1,y sta >$1D10 lda >$1D14 adda ,y sta >$1D11 * 6809/6309 - replace next two lines with LDD >$1D10 lda >$1D10 ldb >$1D11 lbsr L5ADE tsta bne L15FA lda >$1D10 lbsr L3BBB cmpa #$C3 bne L15FA lda >$1D12 adda >$1D13 sta >$1D12 L15FA lda >$1D13 lsla sta >$1D13 leay 2,y bra L15C5 L1605 lda >$1D15 ldb >$1D14 lbsr L3BBB cmpa #$C3 beq L15AC lda #$05 ldb >$1D12 lbsr L3CA4 tstb bne L15AC lda >$1D15 ldb >$1D14 lbsr L17B7 puls pc,u,y,x,d L1628 pshs d suba #$02 lbsr L1642 adda #$04 lbsr L1642 suba #$02 subb #$02 lbsr L1642 addb #$04 lbsr L1642 puls pc,d L1642 pshs u,d * 6809/6309 - replace next two lines with STD >$1DEA sta >$1DEA stb >$1DEB lbsr L17E5 tsta beq L167A lda >$1DEA lbsr L3BBB cmpa #$20 bne L167A lda >$1DEA lbsr L3CF4 lda #$46 sta ,u lda >$1DEA ldb >$1D05 ldu >$1D0C sta b,u lda >$1DEB ldu >$1D0E sta b,u inc >$1D05 L167A puls pc,u,d L167C pshs u,y,x,d clr >$1DEC clr >$1DED clr >$1DF2 lda >$1D05 lbsr L63A9 sta >$1DF3 tfr a,b ldu >$1D0E lda b,u sta >$1D07 ldu >$1D0C lda b,u sta >$1D06 ldb >$1D05 decb lda b,u ldb >$1DF3 sta b,u dec >$1D05 ldb >$1D05 ldu >$1D0E lda b,u ldb >$1DF3 sta b,u lda >$1D06 suba #$02 ldb >$1D07 lbsr L179B tsta beq L16D6 ldb >$1DF2 ldu #$1DEE clr b,u inc >$1DF2 L16D6 lda >$1D06 adda #$02 ldb >$1D07 lbsr L179B tsta beq L16F1 ldb >$1DF2 ldu #$1DEE lda #$01 sta b,u inc >$1DF2 * 6809/6309 - replace next two lines with LDD >$1D06 L16F1 lda >$1D06 ldb >$1D07 subb #$02 lbsr L179B tsta beq L170C ldb >$1DF2 ldu #$1DEE lda #$02 sta b,u inc >$1DF2 * 6809/6309 - replace next two lines with LDD >$1D06 L170C lda >$1D06 ldb >$1D07 addb #$02 lbsr L179B tsta beq L1727 ldb >$1DF2 ldu #$1DEE lda #$03 sta b,u inc >$1DF2 L1727 lda >$1DF2 lbsr L63A9 ldu #$1DEE ldb a,u stb >$1DF6 * 6809/6309 - replace next two lines with LDD >$1D06 lda >$1D06 ldb >$1D07 lbsr L17B7 lda >$1DF6 * 6809/6309 - redundant. Remove CMPA cmpa #$00 bne L1750 lda #$01 sta >$1DF6 nega sta >$1DEC bra L177B L1750 cmpa #$01 bne L175E clr >$1DF6 * 6809/6309 A already 1 to get here, remove line lda #$01 sta >$1DEC bra L177B L175E cmpa #$02 bne L176E lda #$03 sta >$1DF6 lda #$FF sta >$1DED bra L177B L176E cmpa #$03 bne L177B lda #$02 sta >$1DF6 deca sta >$1DED L177B lda >$1DEC adda >$1D06 sta >$1DF4 ldb >$1DED addb >$1D07 stb >$1DF5 * 6809/6309 - s/b BSR lbsr L17E5 tsta beq L1799 lda >$1DF4 lbsr L17B7 L1799 puls pc,u,y,x,d L179B pshs b sta >$1DF7 lbsr L17E5 tsta beq L17B4 lda >$1DF7 lbsr L3BBB cmpa #$C3 bne L17B4 lda #$01 bra L17B5 L17B4 clra L17B5 puls pc,b L17B7 pshs u,d * 6809/6309 - replace next two lines with STD >$1DF8 sta >$1DF8 stb >$1DF9 lbsr L3CF4 lda #$C3 sta ,u lda >$1DF8 lbsr L3CFF lda #$30 sta ,u cmpb >$1D0A bls L17D8 stb >$1D0A L17D8 lda >$1DF8 cmpa >$1D0B bls L17E3 sta >$1D0B L17E3 puls pc,u,d L17E5 pshs b * 6809/6309 - replace next two lines with STD >$1DFA sta >$1DFA stb >$1DFB * 6809/6309 - remove next line - still loaded from above lda >$1DFA cmpa >$1D08 blo L1827 * 6809/6309 - replace next two lines with LDD #$0317 ldb #$17 lda #$03 lbsr L3CA4 adda >$1D08 pshs a lda >$1DFA cmpa ,s+ bhs L1827 lda >$1DFB cmpa >$1D09 blo L1827 * 6809/6309 - replace next two lines with LDD #$0350 ldb #$50 lda #$03 lbsr L3CA4 adda >$1D09 pshs a lda >$1DFB cmpa ,s+ bhs L1827 lda #$01 bra L1828 L1827 clra L1828 puls pc,b L182A pshs u,y,x,d ldd >$10E4 anda #$FF andb #$7F std >$10E4 lda >$0D91 cmpa >$0D90 bls L1841 sta >$0D90 L1841 ldx #$4B84 ldu #$0370 ldd #$2020 lbsr L401D ldx #$5264 ldu #$06E0 lda #$10 lbsr L402B ldu >$10F9 L185B cmpu #$0000 beq L186B leax <$1D,u lbsr L6150 ldu ,u bra L185B L186B ldx #$10F9 lbsr L6150 lbsr L2AB8 ldx #$10F7 lbsr L6150 lbsr L0B46 lda >$0D90 cmpa #$01 bne L1887 lbsr L6D6F L1887 lbsr L6546 lbsr L68A8 lbsr L6C1D lbsr L6AA2 lbsr L1250 inc >$0D9C lbsr L19BA clr >$1DFC L189F lbsr L1997 lbsr L3D0A ldu #$1DFD lbsr L0E1A lda >$1DFE ldb >$1DFD lbsr L5AAA inc >$1DFC lda >$1DFC cmpa #$64 blt L18C4 clr >$1DFC lbsr L3B32 L18C4 lda >$4B84,x lbsr L3C2C tsta beq L189F lda #$D3 sta >$4B84,x lda #$0A lbsr L63A9 cmpa >$0D91 blo L192D lda >$0D91 asra asra lbsr L63A9 inca cmpa #$0A ble L18ED lda #$0A L18ED sta >$0D8F sta >$1DFC L18F3 tst >$1DFC beq L192D dec >$1DFC lbsr L1997 lbsr L3D0A ldu #$1DFD lbsr L0E1A lda >$1DFE ldb >$1DFD lbsr L5AAA lda >$4B84,x lbsr L3C2C tsta beq L18F3 leax >$5264,x lda ,x anda #$EF sta ,x lda #$06 lbsr L63A9 ora ,x sta ,x L192D lbsr L1997 lbsr L3D0A ldu #$10DC lbsr L0E1A lda >$10DD ldb >$10DC lbsr L5AAA lda >$4B84,x lbsr L3C2C tsta beq L192D lda >$5264,x anda #$10 beq L192D lda >$10DD ldb >$10DC lbsr L2CDB cmpx #$0000 bne L192D clr >$0D94 ldx #$10DC lbsr L0E36 lda >$10DD ldb >$10DC lbsr L65DF lda #$C1 lbsr L6612 ldd >$10DC std >$0DAD ldd >$10F3 std >$0DB9 ldx #$10D8 ldd #$0002 lbsr L3C3C tsta beq L1995 clra lbsr L93BF L1995 puls pc,u,y,x,d L1997 pshs x,b L1999 lda #$09 lbsr L63A9 sta >$1DFF ldb #$22 mul addd #$0DBB tfr d,x lda 8,x * 6809/6309 - change to bita #02, so we can eliminate lda 8,x below anda #$02 beq L19B5 lda 8,x anda #$04 beq L1999 L19B5 lda >$1DFF puls pc,x,b L19BA pshs u,y,x,d clr >$1E00 tst >$0638 beq L19D3 lda >$0D91 cmpa >$0D90 bge L19D3 lda #$08 sta >$1E00 bra L1A41 L19D3 lda >$0D91 cmpa #$1A blt L1A36 tst >$0638 bne L1A36 lbsr L6162 stx >$1E03 * 6809/6309 - redundant, remove cmpx cmpx #$0000 beq L1A36 ldu #$10F7 lbsr L6138 clr <$10,x clr <$11,x ldd #$1E05 std $A,x std $C,x lda #$B sta <$12,x lda #$D5 sta 4,x * 6809/6309 - s/b BSR L1A06 lbsr L1997 lbsr L3D0A ldu #$1E01 lbsr L0E1A lda >$1E02 ldb >$1E01 lbsr L5AF2 lbsr L3C2C tsta beq L1A06 lda >$1E02 ldb >$1E01 lbsr L3CF4 lda #$D5 sta ,u ldx >$1E03 ldu >$1E01 stu 5,x L1A36 lda #$14 lbsr L63A9 tsta bne L1A41 * 6809/6309 - s/b BSR lbsr L1A9B L1A41 lda >$1E00 cmpa #9 bhs L1A99 lda >$0D9B cmpa #40 bhs L1A94 lda #100 lbsr L63A9 cmpa #$3C bcc L1A94 lbsr L7830 stx >$1E03 ldu #$10F7 lbsr L6138 L1A64 lbsr L1997 lbsr L3D0A ldu #$1E01 lbsr L0E1A lda >$1E02 ldb >$1E01 lbsr L3BBB lbsr L3C2C tsta beq L1A64 lda >$1E02 ldb >$1E01 lbsr L3CF4 ldx >$1E03 lda 4,x sta ,u ldd >$1E01 std 5,x L1A94 inc >$1E00 bra L1A41 L1A99 puls pc,u,y,x,d L1A9B pshs u,y,x,d lbsr L1997 lbsr L3D0A stx >$1E0E * Since we are multiplying a and b from consecutive addresses into D, replace next 4 with ldd 2,x / suba #2 / subb #2 lda 3,x suba #2 ldb 2,x subb #2 mul tfr b,a suba #2 cmpa #8 ble L1AB9 lda #8 L1AB9 sta >$1E09 lbsr L63A9 adda #$02 sta >$1E0A sta >$1E0B L1AC7 lda >$1E0B beq L1B0E dec >$1E0B lda >$0D9B cmpa #40 bge L1B0E L1AD6 ldx >$1E0E ldu #$1E0C lbsr L0E1A lda >$1E0D ldb >$1E0C lbsr L5AAA stx >$1E10 lda >$4B84,x lbsr L3C2C tsta beq L1AD6 lbsr L7830 ldd >$1E0C std 5,x ldu #$10F7 lbsr L6138 lda 4,x ldx >$1E10 sta >$4B84,x bra L1AC7 L1B0E lda >$1E09 lbsr L63A9 adda #$02 sta >$1E0B suba #$02 cmpa >$1E0A bge L1B28 lda >$1E0A adda #$02 sta >$1E0B L1B28 ldx >$1E0E * Since we are multiplying a and b from consecutive addresses into D, replace next 4 with ldd 2,x / suba #2 / subb #2 lda 3,x suba #2 ldb 2,x subb #2 mul cmpb >$1E0B bge L1B3C stb >$1E0B L1B3C inc >$0D91 L1B3F tst >$1E0B beq L1BAA dec >$1E0B clr >$1E09 L1B4A lda >$1E09 cmpa #$0A bge L1B80 ldx >$1E0E ldu #$1E0C lbsr L0E1A lda >$1E0D ldb >$1E0C lbsr L5AAA lda >$4B84,x lbsr L3C2C tsta beq L1B7B lda >$1E0D ldb >$1E0C lbsr L2CDB cmpx #$0000 beq L1B80 L1B7B inc >$1E09 bra L1B4A L1B80 lda >$1E09 cmpa #$0A beq L1B3F lbsr L6162 cmpx #$0000 beq L1B3F pshs x tfr x,u leau ,x is same size, faster clra lbsr L29A7 ldx #$1E0C lbsr L29E5 puls x * 6809/6309 - chg 3 lines to ldb $D,x / orb #$20 / stb $D,x (a not modified) ldd $C,x orb #$20 std $C,x lbsr L2C88 bra L1B3F L1BAA dec >$0D91 puls pc,u,y,x,d L1BAF pshs a sta >$0641 lda #$01 sta >$063C clr >$05FC puls pc,a L1BBE pshs u,y,x,d * 6809/6309 - replace next two lines with STD >$1E62 sta >$1E62 stb >$1E63 clr >$063B tst >$063F beq L1BE4 clr >$063F ldu #$1E14 'the crack widens ...' pshs u lbsr L68D8 leas 2,s ldu #$1470 lbsr L2143 lbra L1F43 L1BE4 tst >$0D96 Ctr for being stuck in bear trap? beq L1BF9 dec >$0D96 Dec ctr ldu #$1E2A 'you are still stuck in the bear trap' pshs u lbsr L68D8 leas 2,s lbra L1F43 L1BF9 ldx #$10D8 ldd #$0100 lbsr L3C3C tsta beq L1C15 lda #$05 lbsr L63A9 tsta beq L1C15 ldd #$1E12 lbsr L219B bra L1C27 * 6809/6309 - replace next 6 lines with ldd >$10dc / adda $1e63 / addb $1e62 / std >$1e12 L1C15 lda >$10DD adda >$1E62 sta >$1E13 lda >$10DC adda >$1E63 sta >$1E12 L1C27 lda >$1E13 ldb >$1E12 lbsr L5ADE tsta lbne L1D0B ldu #$10DC ldy #$1E12 lbsr L2871 tsta bne L1C51 clr >$05FC clr >$063C clr >$0D9E lbsr L43D1 lbra L1F43 L1C51 tst >$063C beq L1C6E ldd #$10DC ldu #$1E12 lbsr L5A95 tsta beq L1C6E clr >$05FC clr >$063C clr >$0D9E lbsr L43D1 L1C6E lda >$1E13 ldb >$1E12 lbsr L3BC6 sta >$1E64 lda >$1E13 lbsr L5AF2 sta >$1E65 lda >$10DD ldb >$10DC lbsr L3BBB cmpa #$CA bne L1C9A lda >$1E65 cmpa #$C2 bne L1C9A clr >$063C L1C9A lda >$1E64 anda #$10 bne L1CCA lda >$1E65 cmpa #$C2 bne L1CCA lda #$D4 sta >$1E65 pshs a lda >$1E13 ldb >$1E12 lbsr L3CF4 puls a sta ,u lda >$1E13 lbsr L3CFF * 6309 - replace 3 lines with OIM #$10,,u lda ,u ora #$10 sta ,u bra L1CEA L1CCA ldx #$10D8 ldd #$0080 lbsr L3C3C tsta beq L1CEA lda >$1E65 cmpa #$46 beq L1CEA ldu #$1E4F pshs u lbsr L68D8 leas 2,s lbra L1F43 L1CEA lda >$1E65 cmpa #$20 beq L1D0B cmpa #$C5 beq L1D0B cmpa #$C4 beq L1D0B cmpa #$C6 beq L1D0B cmpa #$C7 beq L1D0B cmpa #$C8 beq L1D0B cmpa #$C9 lbne L1E4F L1D0B tst >$063C lbeq L1E40 ldx >$10F3 lda 8,x anda #$02 lbeq L1E40 lda 8,x anda #$04 lbne L1E40 ldx #$10D8 * 6809/6309 - A has to be 0 to get here, so just need to ldb #$01 ldd #$0001 lbsr L3C3C tsta lbne L1E40 lda >$0641 Get keypress cmpa #$68 h? beq L1D40 Yes, skip ahead cmpa #$6C l? * 6809/6309 - s/b BNE No, skip ahead lbne L1DB9 L1D40 lda >$10DD If h or l key pressed, do this. cmpa #$01 bls L1D5D deca ldb >$10DC lbsr L3BC6 anda #$40 bne L1D62 lda >$10DD deca lbsr L3BBB cmpa #$CA beq L1D62 L1D5D clr >$1E66 bra L1D67 L1D62 lda #$01 sta >$1E66 L1D67 lda >$10DD cmpa #$15 bhs L1D84 inca ldb >$10DC lbsr L3BC6 anda #$40 bne L1D89 lda >$10DD inca lbsr L3BBB cmpa #$CA beq L1D89 L1D84 clr >$1E67 bra L1D8E L1D89 lda #$01 sta >$1E67 L1D8E lda >$1E66 eora >$1E67 lbeq L1E40 tst >$1E66 beq L1DA9 lda #$6B sta >$0641 lda #$FF sta >$1E62 bra L1DB3 L1DA9 lda #$6A sta >$0641 lda #$01 sta >$1E62 L1DB3 clr >$1E63 lbra L1C15 L1DB9 cmpa #$6A beq L1DC3 cmpa #$6B * 6809/6309 - s/b BNE lbne L1E40 L1DC3 lda >$10DC cmpa #$01 bls L1DE2 lda >$10DD ldb >$10DC decb lbsr L3BC6 anda #$40 bne L1DE7 lda >$10DD lbsr L3BBB cmpa #$CA beq L1DE7 L1DE2 clr >$1E66 bra L1DEC L1DE7 lda #$01 sta >$1E66 L1DEC lda >$10DC cmpa #78 bhs L1E0B lda >$10DD ldb >$10DC incb lbsr L3BC6 anda #$40 bne L1E10 lda >$10DD lbsr L3BBB cmpa #$CA beq L1E10 L1E0B clr >$1E67 bra L1E15 L1E10 lda #$01 sta >$1E67 L1E15 lda >$1E66 eora >$1E67 * 6809/6309 - s/b BEQ lbeq L1E40 tst >$1E66 beq L1E30 lda #$68 sta >$0641 lda #$FF sta >$1E63 bra L1E3A L1E30 lda #$6C sta >$0641 lda #$01 sta >$1E63 L1E3A clr >$1E62 lbra L1C15 L1E40 clr >$05FC clr >$063C clr >$0D9E lbsr L43D1 lbra L1F43 L1E4F cmpa #$CA bne L1E6D clr >$063C lda >$10DD ldb >$10DC lbsr L3BC6 anda #$40 * 6809/6309 - s/b BEQ lbeq L1ED6 ldx #$1E12 lbsr L0E36 bra L1ED6 L1E6D cmpa #$D4 bne L1E85 ldx #$1E12 lbsr L1FCB sta >$1E65 * 6809/6309 - redundant. Remove CMPA cmpa #$00 beq L1E82 cmpa #$04 bne L1ED6 L1E82 lbra L1F43 L1E85 cmpa #$C3 * 6809/6309 - change next 2 lines to beq L1ED6 (fall through to L1E8B if ne) bne L1E8B bra L1ED6 L1E8B cmpa #$C2 bne L1E9E lda >$1E64 anda #$10 bne L1ED6 ldx #$10DC lbsr L1FCB bra L1ED6 L1E9E clr >$063C lda >$1E65 lbsr L3EF6 tsta bne L1EB8 lda >$1E13 ldb >$1E12 lbsr L2CDB cmpx #$0000 beq L1EC9 L1EB8 ldy #$1E12 ldb >$1E65 ldu >$0DB7 * 6809/6309 - CLRA instead lda #$00 lbsr L2E75 bra L1F43 L1EC9 clr >$063C lda >$1E65 cmpa #$D3 beq L1ED6 sta >$0640 L1ED6 ldx #$10D8 ldd #$0001 lbsr L3C3C beq L1EF8 lda >$10DD ldb >$10DC lbsr L3BBB tfr a,b clra tfr d,x lda >$10DD ldb >$10DC lbsr L68C4 L1EF8 lda >$1E64 anda #$40 beq L1F23 lda >$1E64 anda #$20 bne L1F23 lda >$0DAE ldb >$0DAD lbsr L3BBB cmpa #$CA beq L1F1D lda >$0DAE lbsr L3BC6 anda #$20 beq L1F23 L1F1D ldx #$1E12 lbsr L0EDA L1F23 lda >$1E64 anda #$20 beq L1F3D lda >$0DAE ldb >$0DAD lbsr L3BC6 anda #$20 bne L1F3D ldx #$1E12 lbsr L0E36 L1F3D ldd >$1E12 std >$10DC L1F43 puls pc,u,y,x,d L1F45 pshs u,y,x,d lda 8,u anda #2 bne L1FC9 ldx #$10D8 * 6809/6309 - A already 0 from above, so just ldb #1 ldd #$0001 lbsr L3C3C tsta bne L1FC9 lda 1,u sta >$1E68 adda 3,u sta >$1E6A L1F63 lda >$1E68 cmpa >$1E6A bhs L1FC9 lda ,u sta >$1E69 adda 2,u sta >$1E6B L1F75 lda >$1E69 cmpa >$1E6B bhs L1FC4 * 6809/6309 - replace next two lines with LDD >$1E68 lda >$1E68 ldb >$1E69 lbsr L5AF2 sta >$1E6C lbsr L3EF6 tsta beq L1FBF lda >$1E68 lbsr L2B55 stx >$1E6D lda 9,x cmpa #$20 bne L1FBF lda 8,u anda #$01 bne L1FBF pshs x ldx #$10D8 ldd #$0001 lbsr L3C3C puls x tsta bne L1FBF * 6809/6309 - replace next two lines with LDD >$1E68 lda >$1E68 ldb >$1E69 lbsr L3BBB sta 9,x L1FBF inc >$1E69 bra L1F75 L1FC4 inc >$1E68 bra L1F63 L1FC9 puls pc,u,y,x,d L1FCB pshs u,y,x,b clr >$063C clr >$0D9E lbsr L43D1 lda 1,x ldb ,x stx >$1F87 lbsr L5AAA lda #$D4 sta >$4B84,x lda >$5264,x anda #$07 sta >$1F86 ldb #$01 stb >$063E * 6809/6309 - TSTA cmpa #$00 bne L2001 ldu #$1E6F lbsr L2143 lbra L213B L2001 cmpa #$03 bne L201A lda #$03 adda >$0D96 sta >$0D96 ldu #$1E85 pshs u lbsr L68D8 leas 2,s lbra L213B L201A cmpa #$02 bne L203D lda #$05 adda >$0D98 sta >$0D98 * 6809/6309 - since A is being left alone, remove anda #$FF, and stb >$10e5 (leaving D loaded cuz not sure if sub needs it) ldd >$10E4 anda #$FF andb #$FB std >$10E4 ldu #$1EA3 pshs u lbsr L68D8 leas 2,s lbra L213B L203D cmpa #$01 bne L20B6 * 6809/6309 - chg next 3 lines to ldu #$0001 ldb #$01 clra tfr d,u * 6809/6309 - chg next 3 lines to ldd $10EB / deca lda >$10EB deca ldb >$10EC lbsr L33A5 tsta beq L2087 * 6809/6309 - replace next two lines with LDD #$0106 lda #$01 ldb #$06 lbsr L63BB pshs d ldd >$10ED subd ,s++ std >$10ED * 6809/6309 - redundant; remove CMPD cmpd #$0000 bgt L207A ldu #$1ED9 pshs u lbsr L68D8 leas 2,s lda #$61 lbsr L0716 * I have no idea what this is for... I haven't seen anything to set up SWI yet in the * code. swi L207A ldu #$1EED pshs u lbsr L68D8 leas 2,s lbra L213B L2087 lbsr L6162 cmpx #$0000 beq L20A9 lda #$CF sta 4,x lda #$03 sta $0F,x * 6809/6309 - unless hidden call to here, lda #3 is redundant. remove. lda #$03 lbsr L893F lda #$01 sta $0E,x ldd >$10DC std 5,x clra lbsr L88B1 L20A9 ldu #$1F06 pshs u lbsr L68D8 leas 2,s lbra L213B L20B6 cmpa #$04 bne L20D3 lbsr L49CC ldb #$D4 clra pshs d ldx >$1F87 lda 1,x ldb ,x puls x lbsr L68C4 inc >$063E bra L213B L20D3 cmpa #$05 bne L213B * 6809/6309 - replace next 3 lines with ldu #1 ldb #$01 clra tfr d,u * 6809/6309 - replace next 3 lines with ldd >$10EB / inca lda >$10EB inca ldb >$10EC lbsr L33A5 tsta beq L2131 * 6809/6309 - replace next two lines with LDD #$0104 lda #$01 ldb #$04 lbsr L63BB pshs d ldd >$10ED subd ,s++ std >$10ED * 6809/6309 - redundant, remove CMPD cmpd #$0000 bgt L2110 ldu #$1F1F pshs u lbsr L68D8 leas 2,s lda #$64 lbsr L0716 * I have no idea what this is for... I haven't seen anything to set up SWI yet in the * code. swi L2110 lda #$02 lbsr L3C00 tsta bne L2125 * 6809/6309 - redundant, since A=0 to get here. Remove lda lda #$00 lbsr L37F4 tsta bne L2125 lda #$FF lbsr L55F0 L2125 ldu #$1F3A 'a dart just hit you in the shoulder' pshs u lbsr L68D8 leas 2,s bra L213B L2131 ldu #$1F5E 'a dart whizzes by your ear and vanishes' pshs u lbsr L68D8 leas 2,s L213B lbsr L621D lda >$1F86 puls pc,u,y,x,b L2143 pshs u,y,x,d pshs u inc >$0D91 tst ,u bne L2158 ldu #$1F89 ' ' pshs u lbsr L68D8 leas 2,s L2158 lbsr L182A ldu #$1470 pshs u lbsr L68D8 leas 2,s lbsr L68D8 leas 2,s lda #$01 lbsr L37F4 tsta bne L2199 ldu #$1F8B 'you are damaged by the fall' pshs u lbsr L68D8 leas 2,s * 6809/6309 - replace next 2 lines with LDD #$0108 lda #$01 ldb #$08 lbsr L63BB pshs d ldd >$10ED subd ,s++ sta >$10ED cmpd #$0000 bgt L2199 lda #$66 lbsr L0716 * Another unknown SWI call swi L2199 puls pc,u,y,x,d L219B pshs u,y,x,d std >$1FA7 * 6809/6309 - chg to tfr d,u (shorter, same speed) ldu >$1FA7 lda #$03 lbsr L63A9 deca adda 5,x sta 1,u sta >$1FAA lda #$03 lbsr L63A9 deca adda 4,x sta ,u sta >$1FA9 lda 5,x cmpa >$1FAA bne L21CB lda 4,x cmpa >$1FA9 beq L223D L21CB lda >$1FAA cmpa #$01 blo L2235 cmpa >$0D8E bhs L2235 lda >$1FA9 * 6809/6309 - Redundant, remove CMPA cmpa #$00 blo L2235 cmpa #80 bhs L2235 ldy >$1FA7 leau 4,x lbsr L2871 tsta beq L2235 lda >$1FAA ldb >$1FA9 lbsr L5AF2 sta >$1FAB lbsr L58E8 tsta beq L2235 lda >$1FAB cmpa #$CD bne L2233 chg to bne L223D ldu >$10F7 L220A cmpu #$0000 beq L2227 changed to skip straight to L223D, since redundant cmpu #0 /beq L2233 / bra L223D lda >$1FAA cmpa 6,u bne L221E lda >$1FA9 cmpa 5,u beq L2227 L221E exg u,x lbsr L3C39 exg u,x bra L220A L2227 cmpu #$0000 beq L2233 chg to beq L223D (skip extra BRA) lda $F,u cmpa #6 * 6809/6309 - change 2 lines to bne L223D (fall through beq to L2235) beq L2235 L2233 bra L223D L2235 ldd 4,x ldy >$1FA7 std ,y L223D puls pc,u,y,x,d L223F pshs u,y,x,d ldx >$10F9 L2244 cmpx #$0000 lbeq L22CD ldd #$0080 lbsr L3C3C tsta bne L22C7 ldd #$0004 lbsr L3C3C tsta beq L22C7 lda 5,x ldb 4,x tfr d,y lda >$10DD ldb >$10DC lbsr L5A5F std >$1FAE ldd #$2000 lbsr L3C3C tsta bne L2287 lda 7,x cmpa #$53 bne L228B ldd >$1FAE cmpd #3 bls L228B L2287 lda 6,x beq L228E * 6809/6309 - s/b BSR L228B lbsr L22CF L228E ldd #$4000 lbsr L3C3C tsta beq L229A * 6809/6309 - s/b BSR lbsr L22CF L229A lda 5,x ldb 4,x tfr d,y lda >$10DD ldb >$10DC lbsr L5A5F std >$1FAE ldd #$8000 lbsr L3C3C tsta beq L22C1 ldd >$1FAE cmpd #3 bls L22C1 * 6809/6309 - s/b BSR lbsr L22CF * 6309 - eim #$01,6,X L22C1 lda 6,x eora #$01 sta 6,x L22C7 lbsr L3C39 lbra L2244 L22CD puls pc,u,y,x,d L22CF pshs u,y,x,d ldd #$7FFF std >$1FB0 ldy <$1B,x sty >$1FB2 ldd #$0040 lbsr L3C3C tsta beq L22F1 ldd 6,y bne L22F1 ldd #$10DC std $A,x L22F1 ldu >$10F3 stu >$1FB4 ldd $A,x cmpd #$10DC beq L2307 ldu $A,x lbsr L281F stu >$1FB4 L2307 ldu >$1FB4 lbeq L25EE lda #$01 sta >$1FB6 lda $5,x ldb $4,x lbsr L3BBB cmpa #$CA beq L2321 clr >$1FB6 L2321 cmpy >$1FB4 * 6809/6309 - s/b BEQ lbeq L23A4 lda $08,y anda #$04 * 6809/6309 - s/b BNE lbne L23A4 clr >$1FB7 L2334 lda >$1FB7 ldy >$1FB2 cmpa 9,y bhs L2381 lda >$1FB7 lsla leau $B,y lda a,u ldb >$1FB7 lslb leau $A,y ldb b,u sty >$1FB2 tfr d,y ldu $A,x lda 1,u ldb ,u lbsr L5A5F std >$1FC9 cmpd >$1FB0 bge L237C lda >$1FB7 lsla ldy >$1FB2 leay $A,y ldd a,y std >$1FB8 ldd >$1FC9 std >$1FB0 L237C inc >$1FB7 bra L2334 L2381 tst >$1FB6 lbeq L2446 lda $05,x ldb $04,x lbsr L3BC6 anda #$0F ldb #$22 mul addd #$0EED std >$1FB2 * 6809/6309 - tfr d,y (faster/smaller) ldy >$1FB2 clr >$1FB6 lbra L2321 L23A4 ldu $A,x ldd ,u std >$1FB8 lda $7,x cmpa #$44 beq L23B7 cmpa #$49 lbne L2446 L23B7 lda 5,x cmpa >$10DD beq L23DB lda 4,x cmpa >$10DC beq L23DB lda 5,x suba >$10DD lbsr L3BB6 ABS of A pshs a lda 4,x suba >$10DC lbsr L3BB6 ABS of A cmpa ,s+ bne L2446 L23DB lda >$10DD ldb >$10DC tfr d,y lda 5,x ldb 4,x lbsr L5A5F std >$1FC9 cmpd #$0002 bls L2446 * 6809/6309 - chg next 3 lines to ldd #$0024 (6*6) lda #6 tfr a,b mul pshs d ldd >$1FC9 cmpd ,s++ bhi L2446 ldd #$1000 lbsr L3C3C tsta bne L2446 lda #$05 lbsr L63A9 tsta bne L2446 * 6809/6309 - since A=0 to get here, sta >$063C (faster) clr >$063C lda >$10DD suba 5,x lbsr L5860 sta >$0DB0 lda >$10DC suba 4,x lbsr L5860 sta >$0DAF leau 4,x ldy #$0DAF lda 7,x cmpa #$44 bne L243D ldd #$1FBD bra L2440 L243D ldd #$1FC3 'flame' I think L2440 lbsr L8313 lbra L25EE L2446 ldd #$1FB8 ' lbsr L26AE ldd #$1FAC ldu #$10DC lbsr L5A95 tsta beq L2460 tfr x,y lbsr L301A lbra L25EE L2460 ldu $A,x lbsr L5A95 tsta beq L24DD ldy >$10F7 * 6809/6309 - leay ,y is 2 bytes smaller, same speed L246C cmpy #$0000 beq L24DD leau 5,y cmpu $A,x bne L24D0 pshs