After a bit more work, the definitions file for mbx_MM52664MBX-N_ROM.bin is improving somewhat: ---------------------------------------------- mbx_MM52664MBX-N_ROM.defs --------------------------------------------- org=0xe000 fcb=0xf961,0xfa61 fcb=0xfed9,0xffef fdb=0xfff0,0xffff label=0xe000,l_reset label=0xe0e7,l_firq label=0xe0ec,l_irq # label=0x38,dp_high comment=0xe008,"Probably unrelated to DP." label=0x3800,V_FIRQ label=0x3800,dp_base label=0x3802,V_IRQ label=0x3804,V_UNK label=0x3834,BU_001 # label=0x79,flag_dp79 label=0x3879,flag_3879 label=0x4800,stkbase label=0xa600,dev01_0 label=0xa601,dev01_1 label=0xa602,dev01_2 label=0xa603,dev01_3 label=0xc000,dev_02_0 label=0xc001,dev_02_1 label=0xc002,dev_02_2 label=0xc003,dev_02_3 comment=0xe013,"Init RAM to descending sequence." comment=0xe014,"4K RAM from 3800 to 4800?" label=0xe014,il_001 comment=0xe020,"Flag79 zeroed after reset." comment=0xe024,"Force non-zero flags to $02." label=0xe028,do_cksm label=0xe02c,ck_lup comment=0xe02c,"Simple ROM space checksum?" comment=0xe02e,"End of ROM, address space" comment=0xe035,"initialize device 01" comment=0xe037,"Flag something changed." label=0xe03d,ini_dev01 comment=0xe03d,"dev01 at $a600~a603" comment=0xe06f,"Enable FIRQ interrupt only." comment=0xe074,"Enable both FIRQ and IRQ interrupts." label=0xe079,lu_e079 comment=0xe079,"Mask out both FIRQ and IRQ interrupts." label=0xe087,s_0003 comment=0xe087,"-- Probably -- Initialize dev01." comment=0xe0a9,"Initialize V_FIRQ" comment=0xe0b3,"Initialize V_UNK" comment=0xe0be,"Clear 8 byte buffer? or 24 byte waveform?" label=0xe0e1,ini_IRQV comment=0xe0e4,"Initialize V_IRQ" label=0xe121,lu_e121 label=0xe669,lu_e669 label=0xe6ea,s_0001 label=0xe6c5,s_0002 label=0xe998,su_e998 label=0xf412,su_f412 label=0xf423,su_f423 label=0xf430,su_f430 label=0xf436,su_f436 label=0xf43b,su_f43b label=0xf961,zb_001 label=0xfb19,su_fb19 label=0xfb1b,su_fb1b label=0xfee2,zb_002 label=0xfee0,zzzz label=0xfff0,int_vect ========================== Again, invoke the definitions with something like this: ---------------------------- perl '~/xroar/tools/6809dasm.pl' org=0xe000 include=mbx_MM52664MBX-N_ROM.defs mbx_MM52664MBX-N_ROM.bin >mbx_MM52664MBX-N_ROM.asm ================ The output is this: --------------------------------------------- mbx_MM52664MBX-N_ROM.asm --------------------------------------------- org $e000 L_02D5 equ $02d5 L_03DE equ $03de L_0405 equ $0405 L_0AA4 equ $0aa4 dp_base equ $3800 V_IRQ equ $3802 V_UNK equ $3804 BU_001 equ $3834 flag_3879 equ $3879 L_3E40 equ $3e40 stkbase equ $4800 dev01_0 equ $a600 dev01_1 equ $a601 dev01_2 equ $a602 dev01_3 equ $a603 dev_02_0 equ $c000 dev_02_1 equ $c001 dev_02_2 equ $c002 dev_02_3 equ $c003 l_reset lda #$38 tfr a,dp lds #stkbase lda #$38 ; Probably unrelated to DP. sta >dev01_1 ldx #dp_base clra sta ,x+ deca ; Init RAM to descending sequence. il_001 sta ,x+ ; 4K RAM from 3800 to 4800? cmpx #stkbase bne il_001 ldx #dp_base lda ,x sta <$79 ; Flag79 zeroed after reset. beq do_cksm lda #$02 ; Force non-zero flags to $02. sta <$79 do_cksm clra ldx #l_reset ck_lup adda ,x+ ; Simple ROM space checksum? cmpx #$0000 ; End of ROM, address space bne ck_lup cmpa #$00 beq ini_dev01 ; initialize device 01 lda #$01 ; Flag something changed. ora <$79 sta <$79 ini_dev01 lda #$3e ; dev01 at $a600~a603 sta >dev01_1 ldb >dev01_1 andb #$7f cmpb #$3e bne L_E059 sta >dev01_3 ldb >dev01_3 andb #$7f cmpb #$3e bne L_E059 beq L_E05F L_E059 lda #$10 ora <$79 sta <$79 L_E05F jsr >s_0001 jsr >s_0002 jsr >su_f436 jsr >s_0003 tst <$79 bne L_E074 andcc #$bf ; Enable FIRQ interrupt only. jsr >su_fb1b L_E074 andcc #$af ; Enable both FIRQ and IRQ interrupts. jmp >lu_e669 lu_e079 orcc #$50 ; Mask out both FIRQ and IRQ interrupts. lds #stkbase jsr >s_0003 andcc #$af jmp >lu_e669 s_0003 clra ; -- Probably -- Initialize dev01. sta >dev01_1 sta >dev01_3 sta >dev01_0 coma sta >dev01_2 lda #$34 sta >dev01_3 lda #$3e sta >dev01_1 lda #$ff sta >dev01_2 clr <$06 ldx #su_f430 stx <$00 ; Initialize V_FIRQ ldx #$380b stx <$09 ldx #lu_e079 stx <$04 ; Initialize V_UNK jsr >ini_IRQV jsr >su_e998 jsr >su_f43b ldx #BU_001 ; Clear 8 byte buffer? or 24 byte waveform? ldb #$08 clra L_E0C4 sta ,x+ decb bne L_E0C4 ldb #$10 coma L_E0CC sta ,x+ decb bne L_E0CC clra sta <$33 sta <$4d sta <$4e sta <$51 sta <$73 lda #$04 sta <$74 rts ini_IRQV ldx #lu_e121 stx <$02 ; Initialize V_IRQ rts l_firq jmp [$3800] rti l_irq jmp [$3802] jmp [$3804] lda #$36 sta >dev01_1 L_E0F9 lda >dev01_0 anda #$c0 bne L_E105 jsr >$e32b bra L_E0F9 L_E105 cmpa #$80 bne L_E14E jsr >$e374 ldx #$e15e ldy #$e16f jsr >$fbcf cmpy #$e1ff bne L_E14E jsr >$e1ff bra L_E139 lu_e121 lda #$36 sta >dev01_1 L_E126 lda >dev01_0 anda #$c0 bne L_E132 jsr >$e32b bra L_E126 L_E132 cmpa #$80 bne L_E14E jsr >$e374 L_E139 jsr >$e15e jsr >$fd3e jsr >$e1c8 tst <$06 lbne lu_e079 jsr >$e394 jsr >$e4ba L_E14E ldb #$ff stb >dev01_2 lda #$3e sta >dev01_1 jsr >$f065 rti sbcb 12,s L_E15E ldx #$e15e ldy #$e16f jsr >$fbcf jsr ,y bra L_E15E leas 2,s rts com <$e1 inc 3,x ldb >$148f lda #$00 eorb -15,y ldb >$6f03 ldb >$5900 ldb >$7de7 ldd <$03 fcb $e8,$00 ; eorb 0,x lda #$00 fcb $e7,$a7 ; stb eorb 12,y com <$e8 fcb $15 ; hcf lda #$00 stb -1,u bitb >$faa4 eora <$8c lda #$00 stb -8,y stb >L_E288,pcr andcc #$e7 adca #$86 neg <$e7 cmpa <$e7 fcb $a1,$00 ; cmpa 0,x stb ,u++ fcb $e7,$9a ; stb [] lda #$00 fcb $e1,$ec,$e2 ; cmpb <$e196,pcr lsrb neg <$e9 eora <$e1 stu >$8600 sbcb -8,x sbcb -7,y com <$e2 dec <$00 fcb $e6,$cc,$e0 ; ldb <$e1a7,pcr subb >$8600 jsr >$e1df ldy #$380b L_E1D1 jsr >$e299 cmpy <$09 blt L_E1D1 ldx #$380b stx <$09 rts ldx <$09 pshs cc orcc #$10 sta ,x+ stx <$09 puls cc rts jsr >$e28b tsta bpl L_E1F8 ldb #$01 stb <$33 anda #$7f L_E1F8 sta <$4d sta <$4e clr <$51 rts lda #$1e sta <$06 jsr >$e1df jsr >ini_IRQV rts jsr >$e28b sta <$76 jsr >$e28b sta <$77 jmp [$3876] jsr >$e28b sta <$76 jsr >$e28b sta <$77 jsr >$e27f sta <$78 ldy <$76 lda #$0d jsr >$e1df L_E22F lda ,y+ jsr >$e1df dec <$78 bne L_E22F rts jsr >$e28b sta <$76 jsr >$e28b sta <$77 ldx <$76 jsr >$e27f sta <$78 L_E24A jsr >$e28b sta ,x+ dec <$78 bne L_E24A rts jsr >$e28b sta <$72 jsr >$e28b tfr a,b andb #$f0 stb <$75 anda #$0f sta <$73 lda #$04 sta <$74 rts rts clr <$08 jsr >$e33e rora rts ldb #$02 bra L_E28D ldb #$03 bra L_E28D ldb #$04 bra L_E28D ldb #$05 bra L_E28D ldb #$06 bra L_E28D L_E287 ldb #$07 L_E288 equ L_E287+1 bra L_E28D ldb #$08 L_E28D clr <$08 stb <$07 L_E291 jsr >$e33e dec <$07 bne L_E291 rts leax >L_E327,pcr clra lsr ,y rola lsr ,y rola lda a,x L_E2A6 ldb >dev01_0 andb #$c0 bne L_E2B1 bsr L_E32B bra L_E2A6 L_E2B1 cmpb #$40 bne L_E2A6 sta >dev01_2 clra lsr ,y rola lsr ,y rola lda a,x coma L_E2C2 ldb >dev01_0 andb #$c0 bne L_E2CD bsr L_E32B bra L_E2C2 L_E2CD cmpb #$80 bne L_E2C2 sta >dev01_2 clra lsr ,y rola lsr ,y rola lda a,x L_E2DD ldb >dev01_0 andb #$c0 bne L_E2E8 bsr L_E32B bra L_E2DD L_E2E8 cmpb #$40 bne L_E2DD sta >dev01_2 clra lsr ,y rola lsr ,y rola lda a,x coma L_E2F9 ldb >dev01_0 andb #$c0 bne L_E304 bsr L_E32B bra L_E2F9 L_E304 cmpb #$80 bne L_E2F9 sta >dev01_2 L_E30B ldb >dev01_0 andb #$c0 bne L_E316 bsr L_E32B bra L_E30B L_E316 cmpb #$40 bne L_E30B ldb #$ff stb >dev01_2 lda #$11 L_E321 deca bpl L_E321 leay 1,y rts L_E327 ldu >$fbfd L_E32A stb >$3402 L_E32B equ L_E32A+1 lda #$0f L_E32F deca bgt L_E32F lda >dev01_0 anda #$c0 bne L_E33C jmp >lu_e079 L_E33C puls a,pc L_E33E lda >dev01_0 anda #$c0 bne L_E349 bsr L_E32B bra L_E33E L_E349 cmpa #$c0 beq L_E33E clr >dev01_2 lsl <$08 L_E352 lda >dev01_0 anda #$c0 bne L_E35D bsr L_E32B bra L_E352 L_E35D cmpa #$40 beq L_E367 lda #$01 ora <$08 sta <$08 L_E367 lda <$08 ldb #$ff stb >dev01_2 ldb #$0b L_E370 decb bpl L_E370 rts clr >dev01_2 ldb #$04 L_E379 lda >dev01_0 anda #$c0 cmpa #$40 beq L_E389 nop decb bpl L_E379 jmp >lu_e079 L_E389 ldb #$ff stb >dev01_2 ldb #$0d L_E390 decb bpl L_E390 rts lda #$3e sta >dev01_1 lda <$4e bne L_E39E rts L_E39E dec <$4e bne L_E3CC lda <$4d sta <$4e lda <$51 beq L_E3B9 clr <$51 ldb #$3c stb >dev01_3 L_E3B1 decb bne L_E3B1 ldb #$34 stb >dev01_3 L_E3B9 lda #$01 jsr >$e1df lda <$4f jsr >$e1df tst <$33 beq L_E3CC lda <$50 jsr >$e1df L_E3CC ldx #BU_001 lda #$fe L_E3D1 ldb $10,x eorb 8,x andb 8,x stb <$4c ldb 8,x stb $10,x sta >dev01_2 ldb >dev01_0 stb 8,x ldb <$4c andb 8,x orb ,x stb ,x leax 1,x orcc #$01 rola bcs L_E3D1 lda #$40 sta <$4c tst <$33 bne L_E40A bsr L_E42C cmpa <$4f beq L_E44F sta <$4f sta <$51 bra L_E44F L_E40A lda #$20 sta <$4c bsr L_E42C cmpa <$4f beq L_E41A sta <$4f ora <$51 sta <$51 L_E41A clrb ldx #$3838 bsr L_E430 cmpa <$50 beq L_E44F sta <$50 ora <$51 sta <$51 bra L_E44F L_E42C clrb ldx #BU_001 L_E430 lda $10,x cmpa #$ff bne L_E441 leax 1,x addb #$08 cmpb <$4c bne L_E430 clra rts L_E441 rora bcc L_E447 incb bra L_E441 L_E447 ldx #$e47a lda b,x ora #$80 rts L_E44F lda <$34 rora bcc L_E45D lda <$34 anda #$fe sta <$34 jsr >$e6cc L_E45D lda <$35 rora bcc L_E46B lda <$35 anda #$fe sta <$35 jsr >$fda2 L_E46B lda <$36 rora bcc L_E479 lda <$36 anda #$fe sta <$36 jsr >$fd93 L_E479 rts com <$0b sync fcb $1b ; nop bls L_E4AB leau -5,y fcb $02,$0a ; negcom <$0a nop orcc #$22 bpl L_E4BB abx fcb $01,$09 ; neg <$09 fcb $11,$19 brn L_E4B9 leay -7,y neg <$08 fcb $10,$18 bra L_E4C0 leax -8,y lsr <$0c fcb $14 ; hcf andcc #$24 bge L_E4D5 cwai #$05 tst <$15 sex bcs L_E4D5 puls cc,b,dp,x,y L_E4AA ror <$0e L_E4AB equ L_E4AA+1 lbra L_02D5 bgt L_E4E7 fcb $3e ; reset asr <$0f lbsr L_03DE ble L_E4F0 L_E4B9 swi L_E4BA lda <$73 L_E4BB equ L_E4BA+1 beq L_E479 sta ,-s L_E4C0 lda <$72 beq L_E53B bita #$10 beq L_E4D9 ldx #$0007 jsr >$e561 ldx #$386f jsr >$e53e L_E4D4 sta >$3859 L_E4D5 equ L_E4D4+1 lda <$72 L_E4D9 bita #$01 beq L_E4EC ldx #$0003 jsr >$e561 ldx #$3863 L_E4E6 jsr >$e53e L_E4E7 equ L_E4E6+1 sta >$3855 L_E4EC lda #$02 L_E4EE jsr >$e1df L_E4F0 equ L_E4EE+2 L_E4F1 clra ldb <$74 tfr d,x lda $e57c,x anda <$72 bne L_E507 ldb <$74 incb andb #$07 stb <$74 bra L_E4F1 L_E507 anda #$11 beq L_E511 lda $3852,x bra L_E52D L_E511 bsr L_E561 tst <$75 beq L_E529 pshs a,x tfr x,d lda #$03 mul ldx #$385a leax b,x puls a bsr L_E59E puls x L_E529 sta $3852,x L_E52D jsr >$e1df ldb <$74 incb andb #$07 stb <$74 dec ,s bne L_E4F1 L_E53B leas 1,s rts leay >L_E584,pcr L_E542 cmpa ,y++ bcs L_E542 lda -1,y cmpa ,x bne L_E55A ldb 1,x incb cmpb #$02 beq L_E557 stb 1,x bra L_E55E L_E557 sta 2,x rts L_E55A sta ,x clr 1,x L_E55E lda 2,x rts L_E561 lda >dev01_0 sta $8000,x ldb #$0f L_E56A lda >dev01_1 bmi L_E578 decb bne L_E56A lda $3852,x bra L_E57B L_E578 lda >$6000 L_E57B rts lsl <$04 fcb $02,$01 ; negcom <$01 suba #$40 bra L_E594 L_E584 fcb $eb,$00 ; addb 0,x adcb <$01 andb #$04 sbca >$05a4 fcb $02,$98 ; negcom <$98 com <$8d ror <$84 L_E593 asr <$7c L_E594 equ L_E593+1 lsl <$75 rol <$6f inc <$68 tst <$00 L_E59D neg <$d6 L_E59E equ L_E59D+1 fcb $75,$bd,$e5 ; lsr >$bde5 eorb #$30 fcb $02,$c6 ; negcom <$c6 fcb $02,$bd ; negcom <$bd bitb d,y rts pshs b adda ,s bcs L_E5B5 cmpa ,x bcs L_E5C3 L_E5B5 suba ,s suba ,s bcs L_E5BF cmpa ,x bhi L_E5C3 L_E5BF lda ,x bra L_E5C5 L_E5C3 sta ,x L_E5C5 leas 1,s rts suba ,x bls L_E5D1 jsr >$e5d6 bra L_E5D5 L_E5D1 nega jsr >$e5dc L_E5D5 rts mul addd ,x std ,x rts mul coma comb addd #$0001 addd ,x std ,x rts L_E5E7 jsr >$e64c bcs L_E5F1 lsla ldx a,y andcc #$fe L_E5F1 rts bsr L_E5E7 bcs L_E5FF lda -1,y inca anda -3,y sta -1,y andcc #$fe L_E5FF rts lda -2,y tfr a,b inca anda -3,y cmpa -1,y beq L_E613 sta -2,y lslb stx b,y andcc #$fe rts L_E613 orcc #$01 rts L_E616 bsr L_E64C bcs L_E624 ldb -4,y mul leau d,y jsr >$e65f andcc #$fe L_E624 rts bsr L_E616 bcs L_E632 lda -1,y inca anda -3,y sta -1,y andcc #$fe L_E632 rts lda -2,y tfr a,b inca anda -3,y cmpa -1,y beq L_E655 sta -2,y lda -4,y mul tfr x,u leax d,y jsr >$e65f bra L_E652 L_E64C lda -1,y cmpa -2,y beq L_E655 L_E652 andcc #$fe rts L_E655 orcc #$01 rts std -4,y clr -2,y clr -1,y rts ldb -4,y L_E661 lda ,u+ sta ,x+ decb bne L_E661 rts lu_e669 ldy #$394c L_E66D jsr >L_E5E7 bcs L_E66D jsr ,x ldy #$394c jsr >$e5f2 bra L_E66D ldy #$394c jsr >$e600 rts ldy #$3940 jsr >L_E64C bcs L_E693 jsr >$e600 bra L_E69C L_E693 jsr >$e600 bcs L_E69C jsr ,x andcc #$fe L_E69C rts L_E69D ldy #$3940 jsr >$e5f2 jsr >L_E5E7 bcc L_E6B0 ldd #su_f430 std <$00 bra L_E6B2 L_E6B0 jsr ,x L_E6B2 rts ldy #$394c ldd #$0203 jsr >$e658 ldy #$3940 jsr >$e658 rts s_0002 jsr >$e97b jsr >$e98e rts com >$3938 lda #$0c tst >$3938 bne L_E6E4 tst >$3930 bne L_E6E6 pshs a jsr >$e815 puls a bra L_E6E6 L_E6E4 ora #$10 L_E6E6 jsr >$e1df rts s_0001 jsr >su_f423 ldb #$0a L_E6EF jsr >su_f412 stb >dev_02_1 stb >dev_02_2 jsr >su_f412 stb >dev_02_1 lda >dev_02_3 jsr >su_f412 lda >dev_02_2 pshs a cmpb ,s+ bne L_E712 decb bne L_E6EF bra L_E718 L_E712 lda <$79 ora #$08 sta <$79 L_E718 jsr >$f418 rts jsr >$e86f sta <$7e jsr >$e8c6 jsr >$e88d pshs cc orcc #$10 lda #$03 jsr >$e1df jsr >$ea63 jsr >$e1df puls cc,pc jsr >$e86f pshs a jsr >$e8c6 L_E740 jsr >$ea5b cmpa ,s bcc L_E755 jsr >$e8b1 bcs L_E751 jsr >$e8f4 bra L_E740 L_E751 lda #$15 bra L_E757 L_E755 lda #$05 L_E757 jsr >$e1df jsr >$e88d puls a,pc jsr >$e86f sta <$7c ldx #$e774 jsr >$e67d bcc L_E773 lda #$04 ora #$10 jsr >$e1df L_E773 rts jsr >$ea6b pshs cc orcc #$10 pshs a lda #$04 jsr >$e1df puls a jsr >$e1df puls cc,pc jsr >$ea0e rts jsr >$ea16 rts jsr >$e86f sta <$7b jsr >$ea1e rts jsr >$e87b sta >$3937 rts jsr >$e873 sta <$80 rts jsr >$e877 jsr >$e964 jsr >$e87f sta ,y+ tfr a,b L_E7B4 pshs b jsr >$e86f puls b sta ,y+ decb bne L_E7B4 rts jsr >$e86f sta <$7b ldx #$e7cf jsr >$e67d bcs L_E7D2 rts jsr >$eba2 L_E7D2 lda #$08 bcc L_E7D8 ora #$10 L_E7D8 jsr >$e1df rts pshs cc orcc #$10 lda #$0f jsr >$e1df lda <$8c jsr >$e1df lda <$8f jsr >$e1df ldd <$87 jsr >$e883 ldd <$89 jsr >$e883 ldd <$8d jsr >$e883 puls cc,pc tst >$3930 bne L_E80F ldx #$f3ba jsr >$e685 bcs L_E80F bra L_E814 L_E80F lda #$16 jsr >$e1df L_E814 rts lda #$07 tst >$3930 bne L_E823 ora #$10 jsr >$e1df bra L_E82B L_E823 jsr >$e1df lda #$01 sta >$3931 L_E82B rts clr >$3936 bra L_E836 lda #$01 sta >$3936 L_E836 jsr >$e277 sta <$81 ldx #$e849 jsr >$e67d bcc L_E848 L_E843 lda #$19 jsr >$e1df L_E848 rts lda <$81 jsr >$e964 tst ,y beq L_E843 sty <$94 jsr >$e902 pshs cc orcc #$10 lda #$09 jsr >$e1df lda <$8b jsr >$e1df ldd <$89 subd <$87 jsr >$e883 puls cc,pc jsr >$e287 rts jsr >$e27b rts jsr >$e277 rts jsr >$e273 rts jsr >$e27f rts lsra rorb lsra rorb tfr b,a jsr >$e1df rts tst <$7e beq L_E8B0 ldb #$03 ldx #$3932 lda ,x+ pshs a tstb beq L_E8A4 L_E89D lda ,x+ sta -2,x decb bne L_E89D L_E8A4 ldb <$7e stb ,-x puls a tsta beq L_E8B0 jsr >$e8f4 L_E8B0 rts ldx #$3932 ldb #$04 L_E8B6 lda ,x+ bne L_E8C1 decb bne L_E8B6 orcc #$01 bra L_E8C5 L_E8C1 clr ,-x andcc #$fe L_E8C5 rts ldb <$7e tstb beq L_E8E6 ldx #$3936 lda #$04 L_E8D0 cmpb ,-x beq L_E8D9 deca bne L_E8D0 bra L_E8E6 L_E8D9 ldb ,-x stb 1,x deca bne L_E8D9 clr 1,x andcc #$fe bra L_E8E8 L_E8E6 orcc #$01 L_E8E8 rts ldx #$3932 ldb #$04 L_E8EE clr ,x+ decb bne L_E8EE rts ldb <$7e pshs b sta <$7e jsr >$ea0e puls b stb <$7e rts ldx #$eccd stx >$3929 tst >$3937 beq L_E913 ldx #$ed40 stx >$3929 L_E913 ldy <$94 jsr >$ea85 lda >$3937 cmpa #$01 bne L_E93B lda <$8b ldb <$8c pshs a,b lda <$8f pshs a lda #$03 pshs a tfr s,y ldx #$eccd stx >$3929 jsr >$ea85 leas 4,s L_E93B rts rti adda >$3c27 cwai #$93 cwai #$ff mul fcb $6b,$3d ; dec -3,y stb <$3e coma fcb $3e ; reset stx -1,y fcb $1b ; nop swi fcb $87,$3f ; discarda #$3f addd >$405f nega addb #$41 pulu cc,s subd 2,u clr <$42 fcb $7b,$42,$e7 ; dec >$42e7 coma comb coma stx >$1f89 clra tstb bne L_E970 ldy #$e98c bra L_E97A L_E970 decb lslb lslb lslb ldy #$3b7c leay d,y L_E97A rts lda #$07 pshs a L_E97F lda ,s jsr >$e964 clr ,y dec ,s bne L_E97F puls a,pc fcb $01,$fe ; neg <$fe jsr >$ea06 clr <$7c clr <$7e jsr >$e8e9 su_e998 lda #$ff sta >$3938 lda #$01 sta <$80 clr >$3930 clr >$3931 clr >$393a clr >$393b ldd #su_f430 std <$00 jsr >$e6b3 ldd #$0903 ldy #$3958 jsr >$e658 jsr >$f3e8 rts ldb <$7e pshs b ldb #$fe stb <$7e jsr >$e9d3 puls b stb <$7e rts ldb <$7c pshs b ldb #$fe stb <$7c jsr >$e9f3 puls b stb <$7c rts ldb <$7e pshs b ldb #$ff stb <$7e jsr >$e9d3 puls b stb <$7e rts ldb <$7b pshs b ldb #$fe stb <$7b jsr >$ea03 puls b stb <$7b rts jsr ,y rts ldy #$ea1e jsr >$e9c3 rts ldy #$ea1e jsr >$e9d3 rts ldy #$ea1e jsr >$e9f3 rts lda #$ff sta <$7a L_EA22 jsr >$eae3 bcs L_EA2D lda #$ff sta 3,x bra L_EA22 L_EA2D rts lda #$ff sta <$7a bsr L_EA47 bcs L_EA46 lda <$7b sta ,x ldb <$7c stb 1,x lda <$7e sta 3,x clr 2,x andcc #$fe L_EA46 rts L_EA47 lda <$7e pshs a lda #$ff sta <$7e ldy #$eae3 jsr >$e9d3 puls a sta <$7e rts ldy #$ea73 jsr >$e9e3 rts ldy #$ea73 jsr >$e9d3 rts ldy #$ea73 jsr >$e9f3 rts lda #$ff sta <$7a clra pshs a L_EA7A jsr >$eae3 bcs L_EA83 inc ,s bra L_EA7A L_EA83 puls a,pc lda #$ff sta <$7f lda ,y+ beq L_EAC9 sta <$82 sty <$83 ldx #$3b2c tst >$3936 beq L_EAAB ldd #$7fff std <$87 std <$89 std <$8d lda #$ff sta <$8b sta <$8c sta <$8f L_EAAB lda #$ff sta <$7a L_EAAF ldy <$83 lda ,y sta <$7b L_EAB6 jsr >$eae3 bcs L_EAC0 jsr >$eb15 bra L_EAB6 L_EAC0 lda #$ff sta <$7a jsr >$ead0 bcc L_EAAF L_EAC9 ldd <$89 subd <$87 std <$90 rts ldy <$83 leay 1,y sty <$83 dec <$82 bne L_EAE0 orcc #$01 bra L_EAE2 L_EAE0 andcc #$fe L_EAE2 rts L_EAE3 inc <$7a lda <$7a cmpa #$13 bhi L_EB0E jsr >$eb84 lda <$7e cmpa #$fe beq L_EAF8 cmpa 3,x bne L_EB0C L_EAF8 lda <$7b cmpa #$fe beq L_EB02 cmpa ,x bne L_EB0C L_EB02 lda <$7c cmpa #$fe beq L_EB12 cmpa 1,x beq L_EB12 L_EB0C bra L_EAE3 L_EB0E orcc #$01 bra L_EB14 L_EB12 andcc #$fe L_EB14 rts lda <$7f jsr >$eb6f pshs y lda <$7a jsr >$eb6f puls x jsr [$3929] lda <$7a jsr >$eb84 ldb ,x cmpy <$87 bcs L_EB44 cmpy <$89 bcs L_EB5A cmpy <$8d bcc L_EB62 stb <$8f sty <$8d bra L_EB62 L_EB44 cmpb <$8b beq L_EB53 jsr >$eb63 lda <$8b sta <$8c ldx <$87 stx <$89 L_EB53 stb <$8b sty <$87 bra L_EB62 L_EB5A jsr >$eb63 stb <$8c sty <$89 L_EB62 rts pshs a,b,y lda <$8c sta <$8f ldx <$89 stx <$8d puls a,b,y,pc tsta bmi L_EB7F ldb #$02 mul addd #$e93c tfr d,y ldy ,y bra L_EB83 L_EB7F ldy #$397c L_EB83 rts pshs a,b tsta bmi L_EB93 ldb #$04 mul addd #$3b2c tfr d,x bra L_EB96 L_EB93 ldx #flag_3879+2 L_EB96 puls a,b,pc neg <$80 adda ,u+ fcb $cd ; hcf bitb <$db subb ,s ldb -16,x bcs L_EBA5 L_EBA5 fcb $65,$8e ; lsr fcb $38,$7b ; andcc #$7b lda #$01 sta 2,x lda #$ff sta <$7a clra pshs a L_EBB4 jsr >L_EAE3 bcs L_EBBD inc ,s bra L_EBB4 L_EBBD puls a cmpa <$80 bcc L_EBD1 jsr >$ea2e bcs L_EC0B lda #$ff sta <$7f lda #$01 clrb bra L_EBE6 L_EBD1 jsr >$ec0c lda <$7f jsr >$eb84 lda 2,x pshs a lda <$7a jsr >$eb84 ldb 2,x puls a L_EBE6 pshs a jsr >$ec53 jsr >$ec88 puls a adda 2,x sta 2,x lda <$7f sta <$7a lda #$ff sta <$7f clrb jsr >$ec88 lda <$7a jsr >$eb84 lda #$01 sta 2,x andcc #$fe L_EC0B rts ldx #$eccd stx >$3929 leas -5,s ldd #$7fff std 2,s lda #$ff sta 4,s sta ,s sta 1,s L_EC21 lda 4,s sta <$7f sta <$7a jsr >L_EAE3 bcs L_EC4A lda <$7a sta 4,s L_EC30 jsr >$eb15 cmpy 2,s bcc L_EC43 sty 2,s lda <$7f sta ,s lda <$7a sta 1,s L_EC43 jsr >L_EAE3 bcc L_EC30 bra L_EC21 L_EC4A puls a,b sta <$7f stb <$7a leas 3,s rts pshs b,x clrb tfr d,x adda ,s+ jsr >$ec5f puls x,pc pshs a ldd #$0800 pshs a,b tfr x,d pshs b tfr a,b clra L_EC6D lsl ,s rolb rola cmpd 2,s bcs L_EC7A subd 2,s inc ,s L_EC7A dec 1,s bne L_EC6D cmpd 2,s tfr b,a puls b leas 3,s rts pshs x stb <$97 negb stb <$96 lda <$7a jsr >$eb6f pshs y lda <$7f jsr >$eb6f puls x ldb #$6c stb <$98 L_ECA1 lda ,x ldb <$96 beq L_ECAC jsr >$ecc2 sta ,x L_ECAC lda ,y+ ldb <$97 beq L_ECB7 jsr >$ecc2 adda ,x L_ECB7 sta ,x+ dec <$98 bne L_ECA1 puls x,pc sta ,x rts tsta bpl L_ECC8 nega orcc #$08 L_ECC8 mul bpl L_ECCC nega L_ECCC rts pshs u stx <$c8 sty <$ca jsr >$ecdc jsr >$ed13 puls u,pc ldy #$7fff lda #$26 ldx #$389a L_ECE5 sty a,x suba #$02 bge L_ECE5 ldx #$38a8 ldd #$0000 std ,x ldx #$38b8 stx <$c2 lda #$01 sta <$d6 lda #$00 sta <$d7 lda #$01 sta <$d1 deca sta <$cc sta <$ce lda #$ff sta <$d9 lda #$01 sta <$d8 rts lda #$17 sta <$d4 L_ED17 jsr >$ed66 lda <$d4 cmpa #$0d bge L_ED24 lda #$01 sta <$d9 L_ED24 jsr >$ee4b dec <$d4 bgt L_ED17 ldd <$c2 subd #$38a4 bpl L_ED35 addd #$0028 L_ED35 addd #$389a tfr d,x leax 4,x ldy ,x rts pshs u stx <$c8 sty <$ca lda #$0b sta <$cf sta <$d0 clr <$9a clr <$9b L_ED51 jsr >$ee75 ldd <$9a leay d,y sty <$9a dec <$cf dec <$d0 bpl L_ED51 ldy <$9a puls u,pc jsr >$ede7 lda <$cc sta <$cf lda <$ce sta <$d0 lda <$d1 nega adda #$04 asra inca lsla sta <$d2 sta <$d3 ldy #$7fff ldx <$c2 bra L_ED88 L_ED85 sty a,x L_ED88 suba #$02 bge L_ED85 lda <$d1 lbeq L_EDC1 lsla suba #$02 adda <$d2 sta <$d5 L_ED99 lbsr L_EE75 ldx <$c2 lda <$d3 sty a,x jsr >$ee06 ldx <$c2 leax a,x ldd ,x leay d,y sty ,x inc <$cf dec <$d0 lda <$d3 adda #$02 sta <$d3 lda <$d5 suba <$d3 bge L_ED99 L_EDC1 ldy #$7fff lda <$d3 ldx <$c2 bra L_EDD0 L_EDCB sty a,x adda #$02 L_EDD0 cmpa #$08 ble L_EDCB ldd <$c2 subd #$389a subb #$1e bpl L_EDDF addb #$28 L_EDDF addd #$389a std <$c2 neg <$d8 rts ldd <$c2 subd #$389a subb #$14 bpl L_EDF2 addb #$28 L_EDF2 addd #$389a std <$c4 subd #$389a subb #$0a bpl L_EE00 addb #$28 L_EE00 addd #$389a std <$c6 rts tst <$d8 ble L_EE21 ldx <$c6 ldx a,x ldy <$c2 ldd a,y leay d,x lda <$d3 adda #$02 ldx <$c6 leax a,x suba #$02 bra L_EE36 L_EE21 ldx <$c6 suba #$02 ldx a,x ldy <$c2 adda #$02 ldd a,y leay d,x lda <$d3 ldx <$c6 leax a,x L_EE36 cmpy ,x bcs L_EE3E ldy ,x L_EE3E ldx <$c4 leax a,x cmpy ,x bcs L_EE4A ldy ,x L_EE4A rts ldb <$d9 lda <$d6 bgt L_EE52 negb L_EE52 ldx #$38cd inc b,x jsr >$ee6d sta <$d6 ldb <$d9 lda <$d7 beq L_EE63 negb L_EE63 addb <$d1 stb <$d1 jsr >$ee6d sta <$d7 rts inca cmpa #$02 bne L_EE74 lda #$ff L_EE74 rts L_EE75 ldx <$c8 lda <$cf ldb #$09 mul leax d,x ldu <$ca lda <$d0 ldb #$09 mul leau d,u lda #$08 ldy #$0000 L_EE8D ldb a,x subb a,u bpl L_EE94 negb L_EE94 leay b,y deca bpl L_EE8D rts pshs a,b,x,y,u tst >$3938 beq L_EEDF leas -9,s tfr s,x lda #$08 L_EEA7 beq L_EEC2 sta ,-s ldb #$08 subb ,s+ stb >dev_02_1 ldb >dev_02_3 L_EEB5 ldb >dev_02_0 blt L_EEB5 ldb >dev_02_2 stb ,x+ deca bra L_EEA7 L_EEC2 ldb #$08 stb >dev_02_1 ldb >dev_02_3 L_EECA ldb >dev_02_0 blt L_EECA ldb >dev_02_2 stb ,x+ tfr s,x ldy #$3958 jsr >$e633 leas 9,s L_EEDF lda >dev_02_0 puls a,b,x,y,u,pc stu >$8055 nega leau 11,y bcs L_EF0C andcc #$1a lbsr L_0405 nop fcb $11,$10 clr <$0e tst <$0d inc <$0c fcb $0b,$0b ; dec <$0b dec <$0a rol <$09 rol <$09 lsl <$08 lsl <$08 asr <$07 L_EF08 tfr s,u L_EF0A leas <$e9,s L_EF0C equ L_EF0A+2 jsr >$ef5c ldd 6,u addd #$0001 std 6,u ldx 3,u leax 1,x leay <$e9,u lda 2,u sta -3,u lda 5,u sta -2,u sta -1,u L_EF28 lda -3,u suba -2,u bmi L_EF3C beq L_EF49 sta -3,u lda -2,u jsr >$ef6a jsr >$ef8f bra L_EF54 L_EF3C nega sta -2,u lda -3,u jsr >$ef6a jsr >$ef96 bra L_EF54 L_EF49 lda -2,u jsr >$ef6a jsr >$ef8f jsr >$ef96 L_EF54 tst -1,u bne L_EF28 leas $17,s rts pshs y lda #$12 leay <$e9,u L_EF63 clr ,y+ deca bne L_EF63 puls y,pc pshs a ldb #$09 stb -4,u L_EF70 ldb ,s lda ,x+ bpl L_EF7F nega mul coma comb addd #$0001 bra L_EF80 L_EF7F mul L_EF80 addd ,y std ,y++ dec -4,u bne L_EF70 leax -9,x leay <$ee,y puls a,pc lda 5,u sta -2,u leax 9,x rts lda 2,u sta -3,u lda #$09 sta -4,u pshs x ldx #$eee3 lda 2,u lda a,x ldx 6,u pshs y L_EFAB jsr >$efbe dec -4,u bne L_EFAB stx 6,u puls y puls x jsr >$ef5c dec -1,u rts pshs a clr -5,u ldd ,y bpl L_EFD8 inc -5,u cmpd #$8000 bne L_EFD1 addd #$0001 L_EFD1 coma comb addd #$0001 std ,y L_EFD8 lda ,s ldb ,y+ mul pshs b lda 1,s ldb ,y+ mul adca #$00 adda ,s+ bge L_EFEC lda #$7f L_EFEC tst -5,u beq L_EFF1 nega L_EFF1 sta ,x+ puls a,pc L_EFF5 pshs a,b,x,y,u leas -2,s tfr s,u ldx #$0000 ldy 13,u leay 1,y lda 12,u L_F005 beq L_F00D ldb ,y+ abx deca bra L_F005 L_F00D stx ,u lda 12,u asra L_F012 beq L_F01B asr ,u ror 1,u asra bra L_F012 L_F01B ldd ,u stb [<15,u] leas 2,s puls a,b,x,y,u,pc L_F024 pshs a,b,x,y,u leas -2,s tfr s,u ldx #$39e8 tfr x,y lda #$12 sta ,u L_F033 beq L_F047 lda #$09 L_F037 ldb 9,y addb ,y+ asrb stb ,x+ deca bne L_F037 leay 9,y dec ,u bra L_F033 L_F047 leas 2,s puls a,b,x,y,u,pc tst >$3931 beq L_F05F pshs a,b,x,y,u clr >$3930 clr >$3931 jsr >$e69d puls a,b,x,y,u bra L_F062 L_F05F jsr >$ee9a L_F062 jmp >$e0eb pshs a,b,x,y,u L_F067 ldy #$3958 tst >$3930 bne L_F075 jsr >$f0c0 bra L_F0A3 L_F075 jsr >L_E64C bcs L_F0A3 lda >$393a anda #$7f bne L_F0A3 lda #$80 ora >$393a sta >$393a jsr >$f0ce bcc L_F067 lda #$01 sta >$3931 inc >$3939 ldx #$f0a5 jsr >$e67d bcs L_F0A3 lda #$01 sta >$393b L_F0A3 puls a,b,x,y,u,pc jsr >$f188 lda #$00 sta >$393b jsr >$f0c0 bcs L_F0B9 lda #$06 jsr >$e1df bra L_F0BF L_F0B9 ldx #$f3ba jsr >$e685 L_F0BF rts tst >$393b bne L_F0CD lda >$393a anda #$7f sta >$393a L_F0CD rts ldx #$38f8 ldy #$3958 jsr >$e625 lbcs L_F17B tst >$3939 lbne L_F17B lda >$3900 sta <$e0 lda <$e8 cmpa #$01 ble L_F143 inc <$dc lda <$dc cmpa #$04 bgt L_F111 deca ldb #$09 mul ldx #$3905 leax d,x ldy #$38f8 lda #$09 jsr >$f39d ldx #$3900 lda <$dc ldb <$e0 stb a,x L_F111 cmpa <$e8 bne L_F141 clr <$dc lda <$e8 jsr >$f181 ldx #$3904 ldb #$01 ldy #$38ee pshs b,y pshs a,x lbsr L_EF08 leas 6,s lda <$e8 jsr >$f181 ldx #$3900 ldy #$38e1 pshs a,x,y lbsr L_EFF5 leas 5,s L_F141 bra L_F153 L_F143 ldb <$e0 stb <$e1 ldy #$38f8 ldx #$38ef lda #$09 jsr >$f39d L_F153 lda <$dc bne L_F17B lda <$e1 suba <$e3 sta <$e2 jsr >$f28e pshs cc tst <$da beq L_F16B jsr >$f38a bra L_F16E L_F16B jsr >$f36a L_F16E puls cc bcc L_F17B lda <$e7 cmpa #$10 bgt L_F17E jsr >$f3a5 L_F17B andcc #$fe rts L_F17E orcc #$01 rts cmpa #$04 ble L_F187 lda #$04 L_F187 rts jsr >$f1c5 lbcs L_F1C4 lda <$de ldx #$39e7 ldb #$0c ldy #$397b pshs b,y pshs a,x lbsr L_EF08 leas 6,s lda #$14 suba <$e7 pshs a ldx #$3984 ldb #$0c L_F1AE lda ,x adda ,s bpl L_F1B5 clra L_F1B5 suba #$0a lsla lsla sta ,x leax 9,x decb bne L_F1AE leas 1,s andcc #$fe L_F1C4 rts ldb <$de jsr >$f25c clr ,x lda <$de inca clrb jsr >$f25c pshs a,b,x lda <$e8 jsr >$f3a5 sta <$e8 clr <$e5 lda <$e4 sta <$e3 L_F1E2 ldx 2,s lda ,x sta <$e1 suba <$e3 bpl L_F1ED clra L_F1ED ldb 1,s stb <$df sta <$e2 jsr >$f28e ldb 1,s subb <$df ble L_F221 lda <$df cmpa <$de bne L_F206 ldb 1,s subb <$de L_F206 incb stb <$e5 dec ,s inc 1,s ldb 1,s lda ,s jsr >$f268 subb <$e5 jsr >$f25c stx 2,s clr <$e5 tst ,s bra L_F249 L_F221 tst <$da bne L_F229 inc <$e5 bra L_F23F L_F229 tst <$e5 beq L_F23F lda ,s ldb 1,s jsr >$f268 subb <$e5 stb 1,s jsr >$f25c stx 2,s clr <$e5 L_F23F ldx 2,s leax 9,x stx 2,s inc 1,s dec ,s L_F249 lbne L_F1E2 puls a,b,x ldb <$de bne L_F259 jsr >$f3a5 orcc #$01 rts L_F259 andcc #$fe rts pshs a,b lda #$09 mul ldx #$39f0 leax d,x puls a,b,pc pshs b sta ,-s ble L_F28C ldy #$39e8 lda #$09 mul leay d,y ldx #$39e8 ldb 1,s subb <$e5 lda #$09 mul leax d,x L_F283 lda #$09 jsr >$f39d dec ,s bne L_F283 L_F28C puls a,b,pc lda <$e2 ldb <$da beq L_F29C decb beq L_F2A4 decb beq L_F2BC bra L_F2C8 L_F29C cmpa #$04 ble L_F2A2 inc <$da L_F2A2 bra L_F2ED L_F2A4 cmpa #$04 bge L_F2B2 ldb <$de stb <$df clr <$da clr <$e6 bra L_F2BA L_F2B2 cmpa #$08 ble L_F2BA ldb #$02 stb <$da L_F2BA bra L_F2ED L_F2BC cmpa #$08 bge L_F2C8 ldb #$03 stb <$da ldb <$df stb <$e9 L_F2C8 cmpa #$08 ble L_F2D2 ldb #$02 stb <$da bra L_F2ED L_F2D2 cmpa #$06 bge L_F2EB inc <$db clr <$da ldb <$df subb <$e9 lda <$e8 mul cmpd #$0004 ble L_F2EB ldb <$e9 stb <$df L_F2EB bra L_F2F5 L_F2ED lda <$da bne L_F2F5 inc <$ea bra L_F301 L_F2F5 clr <$ea inc <$df lda <$e2 cmpa <$e6 ble L_F301 sta <$e6 L_F301 lda <$db beq L_F338 clr <$db lda <$e6 cmpa #$0a blt L_F332 ldb <$df subb <$de lda <$e8 mul cmpd #$0004 blt L_F332 ldb <$df decb stb <$de lda <$e6 adda <$e3 cmpa <$e7 bls L_F336 sta <$e7 suba #$1c bpl L_F32E clra L_F32E sta <$e4 bra L_F336 L_F332 ldb <$de stb <$df L_F336 clr <$e6 L_F338 lda <$df cmpa #$23 bne L_F34E lbsr L_F024 asr <$de asr <$df lda <$e8 lsla cmpa #$10 bge L_F361 sta <$e8 L_F34E ldb <$ea lda <$e8 mul cmpd #$000a lblt L_F367 lda <$de ble L_F367 bra L_F364 L_F361 jsr >$f3a5 L_F364 orcc #$01 rts L_F367 andcc #$fe rts lda <$dd ldx #$38ea ldb <$e1 stb a,x inca cmpa #$04 ble L_F37A lda #$01 L_F37A sta <$dd lda #$04 ldy #$38e3 pshs a,x,y lbsr L_EFF5 leas 5,s rts ldy #$38ef ldx #$39e8 lda <$df deca ldb #$09 mul leax d,x lda #$09 bra L_F39D L_F39D ldb ,y+ stb ,x+ deca bne L_F39D rts clr <$dc clr <$de clr <$df clr <$ea clr <$e7 clr <$da clr <$e6 clr <$db ldb #$01 stb <$e8 rts pshs a,b,dp,x jsr >$f3a5 clr >$3939 ldb #$7f ldx #$38eb lda #$04 L_F3C9 stb ,x+ deca bne L_F3C9 stb <$e3 ldb #$01 stb <$dd clr <$e4 lda #$01 sta >$3930 ldd #$f04b std <$00 bsr L_F3E8 andcc #$fe bra L_F3E6 L_F3E6 puls a,b,dp,x,pc L_F3E8 bsr L_F418 ldb #$09 stb >dev_02_1 ldb #$7b stb >dev_02_2 bsr su_f412 ldb #$0a stb >dev_02_1 ldb #$3d stb >dev_02_2 bsr su_f412 ldb #$2b stb >dev_02_1 ldb #$ad stb >dev_02_2 ldb #$20 stb >dev_02_0 rts su_f412 lda >dev_02_0 blt su_f412 rts L_F418 clr >dev_02_0 L_F41B lda >dev_02_0 anda #$40 bne L_F41B rts su_f423 lda #$40 sta >dev_02_0 L_F428 lda >dev_02_0 anda #$40 beq L_F428 rts su_f430 tst >dev_02_0 jmp >$e0eb su_f436 clra sta >$4653 rts su_f43b pshs cc orcc #$40 ldx #$4438 stx >$4656 ldx #$fc45 stx >$4659 clra sta >$4653 sta >$4661 ldx #$f760 stx >$4654 lda #$00 ldb #$3f ldx #$4438 jsr >$f4b0 lda #$01 ldb #$3f ldx #$4481 jsr >$f4b0 ldx #$44c1 L_F46F clr ,x+ cmpx #$4561 bcs L_F46F lbsr L_F48D lda #$10 clrb ldx #$4581 ldy #$45a3 L_F483 sty ,x++ stb ,y+ deca bge L_F483 puls cc,pc L_F48D ldd #$39e8 std >$4662 std >$4664 ldx #$39e8 L_F499 clr ,x+ cmpx #$3b2c bcs L_F499 ldx #$44c9 ldd >$4662 L_F4A6 std ,x leax 10,x cmpx #$4561 bcs L_F4A6 rts pshs cc,a,b,y orcc #$10 lsla ldy #$442b stx a,y tstb beq L_F4DE stb -6,x lda #$a9 sta ,x sta -5,x clra sta -8,x inca sta -9,x lda #$08 sta -7,x ldy #$f535 sty -2,x ldy #$f4e0 sty -4,x L_F4DE puls cc,a,b,y,pc pshs y,u clra cmpb #$08 bgt L_F4FC ldu #$f519 leau b,u L_F4EC dec -7,x bge L_F4F4 bsr L_F53C bra L_F4F6 L_F4F4 lsl -5,x L_F4F6 rola decb bne L_F4EC jmp ,u L_F4FC tfr d,y subb #$08 lslb ldu #$f523 leau b,u clrb L_F507 dec -7,x bge L_F50F bsr L_F53C bra L_F511 L_F50F lsl -5,x L_F511 rolb rola leay -1,y bne L_F507 jmp ,u nop lsla lsla lsla lsla lsla lsla lsla puls y,u,pc nop nop lslb rola lslb rola lslb rola lslb rola lslb rola lslb rola lslb rola puls y,u,pc dec -7,x blt L_F53C lsl -5,x rts L_F53C pshs b ldb -8,x incb andb -6,x L_F543 cmpb -9,x beq L_F543 stb -8,x ldb b,x lslb stb -5,x ldb #$07 stb -7,x puls b,pc pshs y,u dec >3,x beq L_F5C2 dec >0,x bpl L_F566 bsr L_F5DB bra L_F56A L_F566 lsl >4,x L_F56A bcc L_F5B7 clra cmpb #$08 bgt L_F590 ldu #$f519 leau b,u L_F576 dec >3,x beq L_F5C2 dec >0,x bpl L_F586 bsr L_F5DB bra L_F58A L_F586 lsl >4,x L_F58A rola decb bne L_F576 jmp ,u L_F590 tfr d,y subb #$08 lslb ldu #$f523 leau b,u clrb L_F59B dec >3,x beq L_F5C2 dec >0,x bpl L_F5AB bsr L_F5DB bra L_F5AF L_F5AB lsl >4,x L_F5AF rolb rola leay -1,y bne L_F59B jmp ,u L_F5B7 pshs x ldx >5,x jsr [<-4,x] puls x,y,u,pc L_F5C2 inc >3,x puls y,u bra L_F5F6 dec >3,x beq L_F5F6 dec >0,x bmi L_F5DB lsl >4,x rts L_F5DB pshs b,y ldy >1,x ldb ,y+ sty >1,x lslb stb >4,x ldb #$07 stb >0,x puls b,y,pc L_F5F6 leas ,u puls x,u,pc jsr >$e28b sta >$4659 jsr >$e28b sta >$465a ldx #su_fb1b jsr >$e67d bcc L_F613 lda #$6a jsr >$e1df L_F613 rts pshs y ldy >$4656 lda >$4658 pshs a ldb -8,y subb -9,y decb andb -6,y cmpb >$4658 bcs L_F643 L_F62B jsr >$e28b pshs a,b ldb -9,y sta b,y lda -9,y inca anda -6,y sta -9,y puls a,b dec ,s bgt L_F62B puls a,y,pc L_F643 lda #$80 ora >$4653 sta >$4653 lda #$1b jsr >$e1df L_F650 jsr >$e28b dec ,s bgt L_F650 puls a,y,pc jsr >$e28b clrb lsla lsla rolb lslb ldx #$442b ldx b,x stx >$4656 lsra lsra sta >$4658 rts ldx #$fb62 jsr >$e67d bcc L_F67C lda #$6a jsr >$e1df L_F67C rts ldx #$fdb1 jsr >$e685 bcc L_F68A lda #$5a jsr >$e1df L_F68A rts L_F68B jsr [<-2,x] bcc L_F68B rts pshs x ldb #$04 jsr [<-4,x] lsra lsra lsra ldx #$4581 leax a,x ldy ,x lda ,y clrb lsra rorb lsra rorb lsra rorb beq L_F6AF inca L_F6AF inca leay a,y nega deca L_F6B4 ldb ,y+ stb a,y cmpy >$45a1 bcs L_F6B4 inca leay a,y pshs x,y ldy ,x pshs y ldx #$4581 ldb #$10 L_F6CD ldy ,x cmpy ,s bls L_F6DA leay a,y sty ,x L_F6DA leax 2,x decb bne L_F6CD puls y puls x,y sty ,x puls x ldb #$08 jsr [<-4,x] sta ,y+ beq L_F706 tfr a,b L_F6F3 pshs b cmpb #$08 bls L_F6FB ldb #$08 L_F6FB jsr [<-4,x] sta ,y+ puls b subb #$08 bhi L_F6F3 L_F706 sty >$45a1 rts ldb #$04 jsr [<-4,x] lsra lsra lsra ldy #$4581 ldy a,y lda ,y+ inca ldb ,y+ pshs a,b,x ldb #$08 pshs b,y ldy #$f5ca ldx #$f554 pshs x,y leax 4,s jsr >$fbbf leas 11,s rts ldb #$04 jsr [<-4,x] lsra lsra lsra ldy #$4561 leay a,y ldb #$10 jsr [<-4,x] std ,y rts ldx #$44c1 L_F74F ldd ,x std 2,x ldd #$0000 std 5,x leax 10,x cmpx #$4561 bcs L_F74F rts leas ,u puls x,u,pc ldx >$4662 ldy #$f792 ldb #$12 L_F76D lda ,y+ sta ,x+ decb bne L_F76D cmpx #$3b2c bcs L_F77C ldx #$39e8 L_F77C ldy #$44c9 ldb #$10 L_F782 stx ,y leay 10,y decb bne L_F782 L_F789 cmpx >$4664 beq L_F789 stx >$4662 rts andb #$00 neg <$00 neg <$00 neg <$00 neg <$00 neg <$00 neg <$ff neg <$00 neg <$00 ldb #$04 jsr [<-4,x] lsra lsra lsra lsra inca ldy >$465b pshs y ldy #$44c1 L_F7B8 lsl 1,s rol ,s bcc L_F7C0 bsr L_F7CE L_F7C0 leay 10,y cmpy #$4561 bcs L_F7B8 jsr >$f8e5 leas 2,s rts L_F7CE pshs a,b,x clra pshs a ldd 5,y subd 2,y bpl L_F7E0 com ,s comb coma addd #$0001 L_F7E0 std 5,y lda 1,s deca beq L_F809 deca lsla leax >L_F816,pcr leax a,x lda 5,y ldb ,x mul pshs a,b lda 5,y ldb 1,x mul pshs a,b lda 6,y ldb ,x mul addd ,s++ tfr a,b clra addd ,s++ L_F809 tst ,s+ bpl L_F812 coma comb addd #$0001 L_F812 std 5,y puls a,b,x,pc L_F816 suba #$00 fcb $55 ; lsrb fcb $55 ; lsrb nega neg <$33 leau 10,y adda 4,y sbca <$20 neg <$1c fcb $72,$19,$9a ; negcom >$199a lbsr L_3E40 fcb $55 ; lsrb sync cmpa >$1249 fcb $11,$11 fcb $10,$00 rts ldb #$02 jsr [<-4,x] lsla rola rola cmpa #$02 bcc L_F84B lsla ldx #$442b ldx a,x stx >0,u L_F84B rts ldb #$04 jsr [<-4,x] lsra lsra lsra ldx #$4561 ldx a,x stx >$465d rts ldb #$04 jsr [<-4,x] lsra lsra lsra ldx #$4561 ldx a,x stx >$465b rts pshs u lda #$04 ldb #$00 bra L_F884 pshs u lda #$04 ldb #$02 bra L_F884 pshs u lda #$07 ldb #$05 L_F884 ldy #$0000 bra L_F899 pshs u lda #$04 bra L_F894 pshs u lda #$07 L_F894 ldy #$ffff clrb L_F899 pshs y pshs a,b lda #$10 pshs a ldd >$465b pshs a,b ldy #$44c1 L_F8AA lsl 1,s rol ,s bcc L_F8D0 tst 5,s bne L_F8C3 ldb 3,s ldb b,y jsr [<-4,x] tfr d,u ldb 4,s stu b,y bra L_F8D0 L_F8C3 ldb #$04 jsr [<-4,x] lsra lsra lsra lsra ldb 3,s sta b,y L_F8D0 leay 10,y dec 2,s bne L_F8AA leas 7,s puls u rts ldb #$04 jsr [<-4,x] lsra lsra lsra lsra inca pshs a,u L_F8E7 ldu >$465b ldb #$02 lbsr L_FA61 deca bne L_F8E7 ldx >$4662 L_F8F5 ldd $10,x anda >$465d andb >$465e cmpd >$465d bne L_F95F ldd $10,x coma comb tfr d,u ldb #$00 lbsr L_FA61 lda 11,x tfr a,b anda #$70 andb #$07 addb >$4661 bge L_F920 clrb bra L_F926 L_F920 cmpb #$05 ble L_F926 ldb #$05 L_F926 pshs b ora ,s+ sta 11,x leay >zb_001,pcr clra ldb 13,x lda d,y adda 12,x bge L_F93C clra bra L_F940 L_F93C bvc L_F940 lda #$7f L_F940 sta 12,x ldd #$0000 std $10,x leax $12,x cmpx #$3b2c bcs L_F953 ldx #$39e8 L_F953 cmpx >$4664 beq L_F953 stx >$4662 dec ,s bne L_F8F5 L_F95F puls a,u,pc zb_001 fcb $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00 fcb $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00 fcb $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00 fcb $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00 fcb $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00 fcb $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00 fcb $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00 fcb $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00 fcb $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00 fcb $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00 fcb $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00 fcb $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00 fcb $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00 fcb $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00 fcb $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00 fcb $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00 L_FA61 fcb $34 ror >$4f8e suba #$00 pshs a,x ldy #$44c1 L_FA6D lsl 10,s rol 9,s bcc L_FABE ldx 8,y ldb 4,s ldb b,y lda ,s bne L_FA83 lsrb lsr a,x rolb bra L_FA94 L_FA83 cmpa #$0a bne L_FA94 ldb 4,s ldd b,y lsr ,x lslb rol ,x tfr a,b lda ,s L_FA94 stb a,x ldb 4,s cmpb #$00 beq L_FAAC ldd 2,y addd 5,y std 2,y ldd $10,x ora 1,s orb 2,s std $10,x L_FAAC leax $12,x cmpx #$3b2c bcs L_FAB7 ldx #$39e8 L_FAB7 cmpx >$4664 beq L_FAB7 stx 8,y L_FABE leay 10,y inc ,s lsr 1,s ror 2,s lbcc L_FA6D leas 3,s puls a,b,x,y,u,pc L_FACE ldx #$fdb1 jsr >$e685 bcc L_FAD8 bra L_FACE L_FAD8 rts lda >$03f7 anda ,y cmpx #$03f8 inca com <$f7 fcb $60,$00 ; neg 0,x eorb >$35fb lbsr zb_002 adda #$03 eorb >$9003 orb >$ce03 eorb >$3403 ldb >$9103 stb >$3600 addb >$17f8 jmp 3,x eorb >$5d03 eorb >$7603 eorb >$8a00 stb >$64f7 inca com <$f7 fcb $0b,$00 ; dec <$00 eorb >$dbf8 jmp >$6e9f su_fb19 rora lsrb su_fb1b pshs cc orcc #$10 lda #$02 ora >$393a sta >$393a lda #$80 anda >$393a beq L_FB3C lda #$fd anda >$393a sta >$393a puls cc jsr >$f606 rts L_FB3C puls cc lda #$04 anda >$393a beq L_FB47 bra L_FB5A L_FB47 lda #$04 ora >$393a sta >$393a ldx >$4662 cmpx >$4664 bne L_FB5A jsr >$f496 L_FB5A ldx >$4659 jsr >$fbf0 bra L_FBA6 pshs cc orcc #$10 lda #$02 ora >$393a sta >$393a lda #$80 anda >$393a beq L_FB83 lda #$fd anda >$393a sta >$393a puls cc jsr >$f66f rts L_FB83 puls cc lda #$04 anda >$393a beq L_FB8E bra L_FBA1 L_FB8E lda #$04 ora >$393a sta >$393a ldx >$4662 cmpx >$4664 bne L_FBA1 jsr >$f496 L_FBA1 ldx #$4438 bsr L_FBBF L_FBA6 lda #$fd anda >$393a sta >$393a ldx >$4662 cmpx >$4664 bne L_FBBE lda #$fb anda >$393a sta >$393a L_FBBE rts L_FBBF pshs x,u leau ,s L_FBC3 ldx ,u ldy #$fad9 bsr L_FBCF jsr ,y bra L_FBC3 L_FBCF pshs a,b L_FBD1 jsr [<-2,x] ldb ,y bcc L_FBE3 bpl L_FBDE leay 1,y bra L_FBD1 L_FBDE ldy 1,y puls a,b,pc L_FBE3 andb #$7f beq L_FBEB leay b,y bra L_FBD1 L_FBEB ldy 3,y puls a,b,pc clra ldb ,x+ pshs a,b ldb #$08 pshs b,x ldy #$f5d0 ldx #$fc0a pshs x,y leax 4,s jsr >L_FBBF leas 9,s rts pshs y,u clra cmpb #$08 bgt L_FC27 ldu #$f519 leau b,u L_FC16 dec ,x bge L_FC1F jsr >L_F5DB bra L_FC21 L_FC1F lsl 4,x L_FC21 rola decb bne L_FC16 jmp ,u L_FC27 tfr d,y subb #$08 lslb ldu #$f523 leau b,u clrb L_FC32 dec ,x bge L_FC3B jsr >L_F5DB bra L_FC3D L_FC3B lsl 4,x L_FC3D rolb rola leay -1,y bne L_FC32 jmp ,u suba ,x++ anda #$ce suba #$4d bne L_FCA4 bita <$04 inca bne L_FCC6 fcb $02,$49 ; negcom <$49 fcb $31,$bc,$68 ; leay [<$fcbf,pcr] bcc L_FC89 sbcb #$20 fcb $01,$41 ; neg <$41 leay -10,x leay 5,x fcb $05,$04 ; lsr <$04 suba #$00 dec 10,x bita #$80 dec 11,x jmp <$34 neg <$01 bita #$05 bitb #$5a suba #$61 fcb $41 ; nega cmpa #$79 fcb $ad,$ea ; jsr lsrb lsl <$7f stu >$d022 com <$d1 nega subd <$ff fcb $65,$02 ; lsr 2,x neg 2,x L_FC89 fcb $14 ; hcf dec <$80 neg <$48 L_FC8E coma fcb $02,$22 ; negcom <$22 bhi L_FCB5 bhi L_FCC5 leax -15,y nega daa neg <$02 fcb $41 ; nega eorb >$224a fcb $14 ; hcf fcb $45 ; lsra ror 6,s L_FCA3 lsl >$988a L_FCA4 equ L_FCA3+1 fcb $51 ; negb fcb $15 ; hcf adca <$99 sbcb 2,s bmi L_FCF6 lsra coma asr <$e1 fcb $5b ; decb sta <$a1 L_FCB5 adcb 6,s ora #$7a anda #$50 bita #$2a sbca #$e4 std <$68 fcb $cd ; hcf L_FCC2 lsrb fcb $02,$29 ; negcom <$29 L_FCC5 fcb $87,$93 ; discarda #$93 L_FCC6 equ L_FCC5+1 ldb >$445a addd >$a193 fcb $51 ; negb comb eorb #$a6 ora #$3e clr >$cbb2 jmp a,y lsra suba 9,x bsr L_FCED bgt L_FD19 stx <$68 jsr <$8c adcb #$4f bhi L_FC8E eorb >$3c73 pshu b,x,s,pc abx L_FCED ora <$1a ldx <$27 bmi L_FCC2 cmpx >$d037 L_FCF6 cmpx #$5e37 L_FCF7 equ L_FCF6+1 fcb $45 ; lsra cwai #$54 lsl ,-x fcb $e9,$cc,$23 ; adcb <$fd24,pcr ora <$dc lsr >$4a78 bvs L_FD0A L_FD08 addd #$bf6f L_FD0A equ L_FD08+2 eorb -11,u bita 1,x anda <$fd orcc #$08 lbra L_0AA4 jsr >$0ae2 L_FD19 leay $f834,y nop bvc L_FD5A clr >$7955 lsra anda #$53 andb >$a79e asr [,y] lsr <$7b dec 8,u lda [a,y] eorb 12,u mul neg <$27 ldd >$6211 cmpb <$06 tst <$40 tst -12,y bne L_FCF7 rora comb beq L_FD91 lda #$80 anda >$4653 beq L_FD69 ldy >$4656 ldb -8,y subb -9,y decb andb -6,y cmpb >$4658 L_FD5A bls L_FD69 lda #$0b jsr >$e1df lda #$7f anda >$4653 sta >$4653 L_FD69 lda #$40 anda >$4653 beq L_FD7D lda #$bf anda >$4653 sta >$4653 lda #$1a jsr >$e1df L_FD7D lda #$20 anda >$4653 beq L_FD91 lda #$df anda >$4653 sta >$4653 lda #$0a jsr >$e1df L_FD91 puls a,b,y,pc pshs a lda >$4661 cmpa #$07 bge L_FDA0 inca sta >$4661 L_FDA0 puls a,pc pshs a lda >$4661 cmpa #$f9 ble L_FDAF deca sta >$4661 L_FDAF puls a,pc pshs a,y lda #$40 ora >$4653 sta >$4653 ldy #dev_02_0 lda ,y bita #$40 bne L_FDDA lda #$25 sta 1,y clra sta 2,y L_FDCC lda ,y bmi L_FDCC lda #$40 sta ,y L_FDD4 lda ,y bita #$40 beq L_FDD4 L_FDDA lda #$00 sta ,y L_FDDE lda ,y bita #$40 bne L_FDDE lda #$64 sta ,y L_FDE8 lda ,y bita #$40 beq L_FDE8 clra sta >$465f sta >$4660 ldy #$fe01 sty >dp_base andcc #$bf puls a,y,pc pshs a,b,x,y,u ldu #dev_02_0 lda ,u bita #$20 lbeq L_FED4 ldy >$4664 cmpy >$4662 lbeq L_FED4 lda ,y leax 2,u bita #$01 beq L_FE24 leax 1,x L_FE24 ldb #$0d stb 1,u stb ,x L_FE2A ldb ,u bmi L_FE2A ldb #$00 stb 1,u ldy >$4664 leay 1,y lda >$4660 lsra beq L_FE41 L_FE3E deca bpl L_FE3E L_FE41 lda ,y+ sta 2,u lda ,y+ sta 2,u lda ,y+ sta 2,u lda ,y+ sta 2,u lda ,y+ sta 2,u lda ,y+ sta 2,u lda ,y+ sta 2,u lda ,y+ sta 2,u lda ,y+ sta 2,u lda ,y+ sta ,x ldd ,y++ sta ,x L_FE6D lda ,u bmi L_FE6D stb ,x ldb ,y+ L_FE75 lda ,u bmi L_FE75 stb ,x ldb ,y+ L_FE7D lda ,u bmi L_FE7D stb ,x ldb ,y+ L_FE85 lda ,u bmi L_FE85 stb ,x L_FE8B lda ,u bmi L_FE8B lda >$465f sta >$4660 stb >$465f ldy >$4664 lda ,y anda #$fc sta ,u leay $12,y cmpy #$3b2c bcs L_FEAF ldy #$39e8 L_FEAF sty >$4664 bita #$80 beq L_FED4 lda #$20 ora >$4653 sta >$4653 lda #$02 anda >$393a beq L_FEC8 bra L_FED1 L_FEC8 cmpy >$4662 bne L_FED1 clr >$393a L_FED1 lbsr L_E69D L_FED4 puls a,b,x,y,u jmp >$e0eb fcb $00,$00,$00,$00,$00,$00,$00 zzzz fcb $00,$00 zb_002 fcb $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00 fcb $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00 fcb $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00 fcb $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00 fcb $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00 fcb $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00 fcb $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00 fcb $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00 fcb $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00 fcb $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00 fcb $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00 fcb $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00 fcb $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00 fcb $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00 fcb $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00 fcb $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00 fcb $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$8b int_vect fdb $0000,$0000,$0000,l_firq,l_irq,$0000,$0000,l_reset ========================== Remember to correct the byte offsets, <$e9 to <-$17, and <$ee to <-$12, in 4 places, before assembling.