arch snes.apu

noheader

base $1500

    Engine_Start:
    
        // sets direct page to $00
        clrp
        
        // stack pointer = 0xcf
        mov x, #$cf; mov sp, x
        
        mov a, #$00; mov x, a
        
    .zeroLoop1:
    
        // Zero out the first 0xe0 bytes of the s-smp ram.
        mov (x)+, a; cmp x, #$e0; bne .zeroLoop1
        
        mov x, #$00
        mov a, #$00
        
        mov $d2, a
        mov $d3, #$05
    
    .echoClear:
    
        // zeroes out the echo buffer ($0500-$1500)
        
        mov ($d2+x), a
        
        inc $d2;                bne .echoClear
        inc $d3; cmp $d3, #$15; bne .echoClear
        
        // Could be optimized with immediate loads directly into the direct page
        // locations. I don't quite understand how they couldn't be aware they
        // existed...
        mov a, #$20; mov $ee, a
        mov a, #$00; mov $ef, a
        
        mov a, #$0f; mov !$0390, a
        
        call ClearRam
        
        mov a, #$d0; mov $ee, a
        mov a, #$00; mov $ef, a
        
        mov a, #$1f; mov !$0390, a
        
        call ClearRam
        
        mov a, #$91; mov $ee, a
        mov a, #$03; mov $ef, a
        
        mov a, #$6f; mov !$0390, a
        
        call ClearRam
        
        mov a, #$40; mov $ee, a
        mov a, #$04; mov $ef, a
        
        mov a, #$7f; mov !$0390, a
        
        call ClearRam
        
        inc a
        
        call $1aab
        
        set5 $48
        
        // set MVOLL TO #$60    
        mov a, #$60
        mov y, #$0c
        
        call WriteToDsp
        
        // set MVOLR TO 0x60
        mov y, #$1c
        
        call WriteToDsp
        
        // sample table starts at $6d00
        mov a, #$6d
        mov y, #$5d
        
        call WriteToDsp
        
        // Clear all the IO ports ($2140-3 aka $F4-7?) Not well documented.    
        mov a, #$f0; mov !$00f1, a
        
        // Configure timer 0 using $00fa. Needs to count up to 0x10 for a tick
        // to occur (frame). Also store the value it needs to hit at $0053
        // Stage 2 ticks will occur at a rate of 500hz, or every 2 milliseconds.
        // This is essentially 30,000 beats per minute at maximum, not that it'd
        // ever get close to that with having to run the firmware and all.
        mov a, #$10; mov !$00fa, a
                     mov $53, a
        
        // Enable timer0
        mov a, #$01; mov !$00f1, a
    
    $158C:
    
        mov a, $1b; bne $15fe
        
        mov y, #$0a
    
    $1592:
    
        cmp y, #$05; beq $159d
                     bcs $15a0
        
        cmp $4c, $4d
        
        bne $15ae
    
    $159d:
    
        bbs7 $4c, $15ae
    
    $15a0:
        
        mov a, !RegisterList -1 + y; mov !$00f2, a
        
        mov a, !LoadValueFrom-1+y; mov x, a
        
        mov a, (x); mov !$00f3, a
    
    $15ae:
    
        dbnz y, $1592
        
        // Unkey and unmute all voices
        mov $45, y
        mov $46, y
        
        // A = ($18 ^ $19) >> 2);
        // invert carry flag
        mov a, $18; eor a, $19; lsr a; lsr a;
        
        notc
        
        // rotate $18 to the right, possibly taking in a carry flag bit up top.
        // rotate $19 to the rigth, possibly taking $18's old lsb up top.
        ror $18
        ror $19
    
    timerLoop:
    
        mov y, !$00fd; beq timerLoop
        
        // A = 56 * CN0 (timer count 0)
        push y
        
        mov a, #$20; mul ya
        
        // aggregate timer... like the zelda one
        // it's not time to play a sound effect, so start handling songs.
        clrc; adc a, $43; mov $43, a; bcc $15f3
        
        call $1ee7
        
        mov x, #$01
        
        call $1621
        
        mov a, !$04a9; bne $15e4
        
        call $3157
        
        mov x, #$02
        
        call $1621
    
    $15e4:
    
        call $4706
        
        mov x, #$03
        
        call $1621
        
        // if($4c == $4d) branch (skip handling of these sound effects)
        cmp $4c, $4d
        
        beq $15f3
        
        // else $4c++;  $4c is a bit of a mystery... 
        inc $4c
    
    $15f3:
    
        // The value that the $fa timer needs to increment to. In this case 0x10
        // ticks. The number of times that CN0 has incremented
        // YA = timer length * num times timer has hit.
        mov a, $53; pop y; mul ya
        
        // $51 apparently accumulates this amount "aggregate time" or whatever.
        // If this amount of time has not crossed the threshhold, i.e. $51 has
        // not rolled over past #$FF so far.
        clrc; adc a, $51; mov $51, a; bcc $1608
    
    $15fe:
        
        call $1793
        
        // HANDLE VALUES WRITTEN TO $2140 (SONG)
        mov x, #$00
        
        call $1621
        
        bra $158c
    
    $1608:
    
        mov a, $04; beq $161e
        
        mov x, #$00
        
        mov $47, #$01
    
    $1611:
    
        // Examine the high byte of the first pointer of the track table.
        // If it's not a valid pointer
        mov a, $31+x; beq $1618
        
        call $1d7a
    
    $1618:
        
        inc x; inc x
        
        // this track is finished for now, move to the next one
        asl $47; bne $1611
    
    $161e:
    
        jmp $158c

// =============================================================================

    $1621:
    
        // get current song value
        // store to out port 0
        mov a, $04+x; mov !$00f4+x, a
    
    syncSong:
    
        // retrieve byte from in port 0
        // see if they match
        // wait until the song input matches the spc-side state
        mov a, $00f4+x; cmp a, !$00f4+x; bne syncSong
        
        // make it official
        mov $00+x, a
    
    $1630:
        
        ret

// =============================================================================

$1631:
    
        cmp y, #$ca; bcc $163a
        
        call $18f9
        
        // This is middle C, so a drum instrument always plays as middle C 
        // (this of course doesn't take into account the tuning byte in the instrument table.)
        mov y, #$a4
    
    $163a:
    
        // if(Y >= 0xC8) return; (easy out, don't pay attention to the synchronize part)
        // note! : 0xC8 and 0xC9 represent sustain and rests, respectively. they are handled elsewhere in the tracker.
        // see the routine called "Tracker"
        cmp y, #$c8; bcs $1630
        
        //
        //
        mov a, $1a; and a, $47; bne $1630
        
        // A = track_byte;
        // $50 is the overall pitch modulation
        // $02F0+x is an additional channel level pitch modulation
        // $0361+x = $50 + $02f0+x + (track_byte & 0x7F);
        mov a, y; and a, #$7f
        clrc; adc a, $50
        clrc; adc a, !$02f0+x; mov !$0361+x, a
        
        // this is the fine tuning value
        // $0360+x = $0381+x;
        mov a, !$0381+x; mov !$0360+x, a
        
        // carry = $02b1 & 0x01; a = $02b1 >> 1;
        mov a, !$02b1+x; lsr a
        
        // $02a0+x = (carry ? 0x80 : 0x00)
        mov a, #$00; ror a; mov !$02a0+x, a
        
        // $c0+x = $02d0+x = $0100+x = $B0+x = 0;
        mov a, #$00; mov $b0+x, a
                     mov !$0100+x, a
                     mov !$02d0+x, a
                     mov $c0+x, a
        
        // in keyed voices, include the current voice...
        or $5e, $47
        or $45, $47
        
        // 
        // 
        mov a, !$0280+x; mov $a0+x, a; beq $1698
        
        // $a1+x = $0281+x
        mov a, !$0281+x; mov $a1+x, a
        
        // if($0290+X) goto do_pitch_slide;
        mov a, !$0290+x; bne $168e
        
        // this sction pre-emptively subtracts off $0291+X which will later be added back in    
        // (assuming pitch slide is nonzero)
        mov a, !$0361+x; setc; sbc a, !$0291+x; mov !$0361+x, a
    
    $168e:
    
        // a = pitch slide volume + temp volume
        mov a, !$0291+x; clrc; adc a, !$0361+x
        
        call $1b23
    
    $1698:
        
        call $1b3b
        
    $169b:
        
        mov y, #$00
        
        // $03CA = #$00
        mov a, $11; setc; sbc a, #$34; bcs $16ad
        
        // A = $11 - 0x13;
        // if(A >= 0x13);
        mov a, $11; setc; sbc a, #$13; bcs $16b1
        
        // for low notes, YA will be negative (for whatever reason)
        // this whole section looks majorly hackish to me, like they were just trying
        // to get something that worked.
        // Y = #$FF; A <<= 1;
        dec y
        
        asl a
    
    $16ad:
    
        // $10 += ya
        addw ya, $10; movw $10,ya
    
    $16b1:
    
        // push the track index.
        push x
        
        // A = $11 << 1, Y = 0x00, X = 0x18 (24 in decimal. note that 24 is 2 times 12, and there are 12 notes in an octave)
        mov a, $11; asl a
        mov y, #$00
        mov x, #$18
        
        // Y will contain the remainder of this division. It would appear that
        // The remainder will always be a multiple of 2. 
        // This is due to A always being an even value, thanks to the asl earlier.
        div ya,x
        
        // x = the quotient of that division (the octave of the note)
        mov x, a
        
        // $14.w = $11c1+y.w
        mov a, !TuningValues+1+y; mov $15, a
        mov a, !TuningValues+0+y; mov $14, a
        
        // ya = !$11c3+y.w
        mov a, !TuningValues+3+y; push a
        mov a, !TuningValues+2+y; pop y
        
        // ya = ($11c3+y.w - $11c1+y.w)
        subw ya, $14
        
        // results of $11C3+Y - $11C1+Y for all Y values in decimal:
        // 127, 135, 143, 152, 160, 170, 181, 191, 202, 214, 227, 241 
        
        // YA = (fine_tune * frequency) (iffy interpretation)
        mov y, $10; mul ya
        
        // ya >>= 8, 
        // ya += $14.w
        mov a, y; mov y, #$00; addw ya, $14
        
        // $15 = Y
        mov $15, y
        asl a
        rol $15
        mov $14, a
        
        bra $16e4
    
    $16e0:
    
        // a = (a >> 1) | ($15 & 0x01 ? 0x80 : 0); $15 >>= 1;
        lsr $15; ror a
        
        inc x
    
    $16e4:
    
        // check if the octave is 6
        cmp x, #$06; bne $16e0
        
        mov $14, a
        
        // X is restored to being the track index.
        pop x
        
        // $16 = ($15 * $0220+x)
        mov a, !$0220+x; mov y, $15; mul ya; movw $16, ya
        
        // ya = ($14 * $0220+X)
        // Save y for later.
        mov a, !$0220+x; mov y, $14; mul ya; push y
        
        // $16 += ($14 * $0221+X)
        mov a, !$0221+x; mov y, $14; mul ya; addw ya, $16; movw $16, ya
        
        // YA = ($15 * $0221+X)
        // Y = A
        mov a, !$0221+x; mov y, $15; mul ya;         
        
        // A = the old Y above.
        // $16 += YA
        mov y, a; pop a; addw ya, $16; movw $16, ya
        
        // A = X
        // 0,2,4,6, ... -> 0x02, 0x12, 0x22, 0x32, ...
        // Y = A;
        mov a, x; xcn a; lsr a; or a, #$02; mov y, a
        
        // A = $16
        mov a, $16
        
        // 
        // first do the lower byte of the per-voice pitch.
        call $171e
        
        // then redo the same routine but with the high byte
        inc y
        
        mov a, $17
    
    // (alternate entry point)
    $171e:
        // a more specific version of WriteToDsp that checks of a channel is enabled first before writing.
        
        // If this voice is deactivated, return and do nothing.
        push a; mov a, $47; and a, $1a; pop a; bne .return
    
    shared WriteToDsp:
    
        // A = value to write
        // Y = address of the DSP register to write to.
        
        mov !$00f2, y
        mov !$00f3, a
    
    .return:
    
        ret

// =============================================================================

    $172d:
    
        mov y, #$00
        
        // Pulls off the next part pointer from the song
        // A will be the lower byte, and Y will be the upper byte of the pointer
        mov a, ($40) + y; incw $40;           push a;
        mov a, ($40) + y; incw $40; mov y, a; pop a;
        
        ret

// =============================================================================

    $173b:
        
        call Data_Loader
        
        mov $08, a
        
    $1740:
        
        mov $04, a
        
        asl a; mov x, a;
        
        mov a, !$581f + x; mov y, a
        mov a, !$581e + x; movw $40, ya
        
        mov $0c, #$02
    
    $1750:
    
        mov a, $1a; eor a, #$ff
        
        tset1 !$0046
        
        ret
    
    $1758:
    
        // x = 0x0e
        mov x, #$0e
        
        // $47 = 0x80
        mov $47, #$80
    
    .next_channel:
    
        // $0301+x = 0xff
        mov a, #$ff; mov !$0301+x, a
        
        // 0x0A is a value used for a neutral pan state
        mov a, #$0a
        
        // Set pan to normal (also conveniently sets a to 0)
        call $1952
        
        // zero out all the following addresses
        // It should be noted that at this point A = 0
        mov !$0211+x, a
        mov !$0381+x, a
        mov !$02f0+x, a
        mov !$0280+x, a
        mov !$0400+x, a
        
        mov $b1+x, a
        mov $c1+x, a
        
        dec x; dec x
        
        lsr $47; bne .next_channel
        
        // Zero out these locations as well.
        mov $5a, a
        mov $68, a
        mov $54, a
        mov $50, a
        mov $42, a
        mov $5f, a
        
        // Set the global volume to a fairly high level.
        mov $59, #$c0
        
        // $53 = 0x20
        mov $53, #$20
    
    $1792:
    
        ret
    
    $1793:
    
        mov y, $08
        
        mov a, $00; mov $08, a
        
        cmp a, #$f0; beq $1750
        cmp a, #$f1; beq $17a9
        cmp a, #$ff; beq $173b
        
        cmp y, $00; bne $1740
        
    $17a9:
        
        mov a, $04; beq $1792
        
        mov a, $0c; beq $180b
        
        dbnz $0c, $1758
    
    $17b4:
        
        call $172d
        
        bne $17db
        
        mov y, a; beq $1740
        
        cmp a, #$80; beq $17c6
        cmp a, #$81; bne $17ca
        
        mov a, #$00
    
    $17c6:
        
        mov $1b, a
        
        bra $17b4
    
    $17ca:
    
        dec $42; bpl $17d0
        
        mov $42, a
    
    $17d0:
    
        call $172d
        
        mov x, $42; beq $17b4
        
        movw $40, ya
        
        bra $17b4
    
    $17db:
    
        // Load pattern table offset into $0016
        movw $16, ya
        
        mov y, #$0f
    
    $17df:
    
        // Load the pattern table into a 0x10 byte array
        // 2 bytes per channel (making 8 channels altogether)
        mov a, ($16)+y; mov !$0030+y, a
        
        dec y; bpl $17df
        
        // begin by processing channel 0's track data
        mov x, #$00
        
        mov $47,#$01
    
    $17ec:
        
        // Start of the first main loop.
        // We're only analyzing the high byte of each pattern pointer.
        // if (highbyte == 0), move on to the next track pointer
        mov a, $31+x; beq $17fa
        
        // If $0211+X has been loaded up with a nonzero value, skip to the next track.
        mov a, !$0211+x; bne $17fa
        
        mov a, #$00
        
        call $18f9
    
    $17fa:
    
        // zero out a number of related locations.
        mov a, #$00; mov $80+x, a
                     mov $90+x, a
                     mov $91+x, a
        
        // This array gets set to 1's.        
        inc a; mov $70+x, a
        
        // x += 2; $47 <<= 1;
        inc x; inc x
        
        // Until we run out of voices to work with, goto the next track.
        asl $47; bne $17ec
    
    $180b:
    
        // $5e = 0x00;
        mov x, #$00; mov $5e, x
        
        mov $47, #$01
    
    $1812:
    
        mov $44, x
        
        // checking the high byte of the track pointer
        // If this track's pointer's high byte is zero, move on to the next track
        // note tracks only range from 0 to 7
        mov a, $31+x; beq $188a
        
        // decreases the track's frame counter: A delay before a new note or command can be done.
        dec $70+x; bne $1880
    
    $181c:
    
        // Grab a byte from the track data.
        call $18ef
        
        // if(track_byte != 0) goto $0B9A;
        bne $1838
        
        // see if we're in a call loop.
        // if ($80+x == 0) load the next part
        mov a, $80+x; beq $17b4
        
        // since $80+x is the number of iteration counts for the call loop, this reloads the
        // call loop's address for the next iteration.
        call $1a40
        
        // $80+x--. call iteration counter
        // if($80+x != 0) goto $0B7E;
        dec $80+x; bne $181c
        
        mov a, !$0230+x; mov $30+x, a
        
        mov a, !$0231+x; mov $31+x, a
        
        bra $181c
    
    $1838:
        
        bmi $185a
        
        mov !$0200+x, a
        
        // grab the next byte.
        call $18ef
        
        // if(track_byte & 0x80)
        bmi $185a
        
        // Y = (xcn(A) & 0x07)
        push a
        
        xcn a; and a, #$07; mov y, a
        
        // A = one of {50,101,127,152,178,203,229,252}         
        // $0201+X = that result. what is this!!!?        
        mov a, !$5800 + y; mov !$0201+x, a
        
        // A = one of {25, 50, 76, 101, 114, 127, 140, 152, 165, 178, 191, 203, 216, 229, 242, 252}        
        // $0210+X is a note level volume modulator         
        pop a; and a, #$0f; mov y, a
        
        mov a, !$5808 + y; mov !$0210 + x, a
        
        call $18ef
        
    $185a:
        // if(data_byte < 0xe0) goto note_or_rest; (it's a note or rest)
        cmp a, #$e0; bcc $1863
        
        // handle the 0xE0 and above commands 
        call $18dd
        
        bra $181c
    
    $1863:
    
        // these are both silencing mechanisms...
        mov a, $0400+x; or a, $1b; bne $186e
        
        mov a, y
        
        call $1631
    
    $186e:
    
        mov a, !$0200+x; mov $70+x, a
        
        mov y, a; mov a, !$0201+x; mul ya
        
        mov a, y; bne $187c
        
        // the note will last for at the very least one frame, if played
        inc a
    
    $187c:
    
        // flag indicating the multiplication result had highbyte = 0
        mov $71+x, a
        
        bra $1887
    
    $1880:
    
        // if($1B != 0) goto $0BF4
        mov a, $1b; bne $188a
        
        call $1c88
    
    $1887:
    
        call $1b03
    
    $188a:
    
        inc x; inc x
        
        asl $47; bne $1812
        
        mov a, $54; beq $189f
        
        movw ya, $56; addw ya, $52
        
        dbnz $54, $189d
        
        movw ya, $54
    
    $189d:
    
        // Set the actual tempo
        movw $52, ya
    
    $189f:
    
        mov a, $68; beq $18b8
        
        movw ya, $64; addw ya, $60; movw $60, ya
        
        movw ya, $66; addw ya, $62
        
        dbnz $68, $18b6
        
        movw ya, $68; movw $60, ya
        
        mov y, $6a
    
    $18b6:
    
        // $62 = ya; set Echo volume right
        movw $62, ya
    
    $18b8:
    
        mov a, $5a; beq $18ca
        
        movw ya, $5c; addw ya, $58
        
        dbnz $5a, $18c5
        
        movw ya, $5a
        
    $18c5:
        
        // adjust the global volume by $5C normally (and in one case set it to the target volume)
        movw $58, ya
        
        // $5e = 0xff; ... not sure
        mov $5e, #$ff
    
    $18ca:
    
        mov x, #$00
        
        mov $47, #$01
    
    $18cf:
    
        mov a, $31+x; beq $18d6
        
        call $1bbf
    
    $18d6:
    
        inc x; inc x
        
        asl $47; bne $18cf
        
        ret

// =============================================================================

    $18dd:
        
        // all the commands are 0xe0 and above, so this means that asl will make them all
        // 0xc0 and above, since it shifts out the top bit.
        asl a; mov y, a
        
        // get pointer from Command_Jump_Table
        mov a, !Command_Jump_Table + 1 - $c0+y; push a
        mov a, !Command_Jump_Table + 0 - $c0+y; push a
        
        // makes the offset be 0x60 and above. The previous table was 2-byte pointers
        // this next table only consists of 1-byte values.
        mov a, y; lsr a; mov y, a
        
        // Grab the parameters for the call
        // if the command requires no parameters, Y and A will both be 0.
        mov a, !Command_Num_Params - $60+y; beq $18f7
        
        // zero arguments, so make ya both zero.
    
    $18ef:
        
        mov a, ($30+x)
    
    $18f1:
    
        // if($30+x != 0) goto $0C64;
        inc $30+x; bne $18f7
        
        // increment the trackpointer i.e. $30+X.w
        inc $31+x
    
    $18f7:
    
        
        // Parameter is stored in y and a.
        mov y, a
        
        // This return instruction then effectively jumps to the pushed pointer (if entered from the beginning)
        ret

// =============================================================================

    $18f9:
    
        mov !$0211+x, a
        
        // y = $0211+x = a;
    
    $18fc: // questionable as a label...
    
        mov y, a; bpl $1905
        
        // $5f is used as a relative offset into the instrument table    
        // this means the argument passed in has to be 0xCA or higher
        setc; sbc a, #$ca
        clrc; adc a, $5f
    
    $1905:
    
        // Determines an offset into the instrument table ($3D00)
        // $14.w = 0x3D00 + (input * 6);    
        mov y, #$06; mul ya; movw $14, ya
        
        clrc; adc $14, #$00; adc $15, #$6c
        
        // List of muted voices
        // Check against current voice.
        // if this voice is off, return;
        mov a, $1a; and a, $47; bne $1951
        
        // Look at the track number we're on.    
        // Make it into a ((multiple of 0x10) + #$04)    
        push x
        
        mov a, x; xcn a; lsr a; or a, #$04; mov x, a
        
        mov y, #$00
        
        // if(sample_index < 0x80)
        mov a, ($14)+y; bpl $1932
        
        // otherwise we will designate a channel as being a noise channel.
        // $0048, which mirrors FLG, will have the noise frequency set to whatever the
        // lowest 5 bits of the argument to this command were. (E.g. 0x9F would set the frequency to 0x1F)
        // note as well that the echo buffer enable / disable bit is preserved in all of this.
        // The channel that noise was invoked on is also enabled in NON's mirror, $0049
        and a, #$1f
        
        and $48, #$20; tset1 !$0048
        
        or $49, $47
        
        mov a, y
        
        bra $1939
    
    $1932:
    
        // disables noise on the given channel
        mov a, $47
        
        tclr1 !$0049
    
    $1937:
    
        // Take the first four bytes of the instrument block and write them to
        // Dsp registers $00v4 through $00v7. See SPC docs for more info.    
        // The loop writes to the SRCN, ADSR1 and ADSR2, and Gain.
        mov a,($14)+y
    
    $1939:
    
        mov !$00f2, x
        mov !$00f3, a
        
        inc x
        
        inc y; cmp y, #$04; bne $1937
        
        // This 2-byte value is stored in big endian format. 
        // The last 2 bytes of the six byte instrument block are stored to [$0220-1]+X
        // This value functions as a "tuning" multiplier that helps ensure proper scaling of the sample
        // at various VxPITCH values relative to the other samples.
        pop x
        
        mov a, ($14)+y; mov !$0221+x, a
        
        inc y
        
        mov a, ($14)+y; mov !$0220+x, a
    
    $1951:
    
        ret

// =============================================================================

// Command E1 - "Pan" command in Hyrule Magic
// Parameter info: byte1 - 0x14 is max right, 0 is max left, 0x0A is balanced

    $1952:
    
        // top two bits contain extra information for each channel
        mov !$0351+x, a
        
        // $0331+x = (a & 0x1f)    ; set pan level
        // $0330+x = 0x00;
        and a, #$1f; mov !$0331+x, a
        mov a, #$00; mov !$0330+x, a
        
        ret

// =============================================================================

    $1960:
    
        // $91+x = byte 1
        mov $91+x, a
        
        push a
        
        // grab byte 2
        call $18ef
        
        // $0350+x = a;
        mov !$0350+x, a
        
        setc; sbc a, !$0331+x
        
        pop x
        
        // ya = ($0350+x - $0331+x)/ $91+x; (hexadecimal fraction representation)
        call $1b46
        
        // $0340+x = fractional portion
        mov !$0340+x, a
        
        // $0341+x = whole number portion
        mov a, y; mov !$0341+x, a
        
        ret

// =============================================================================

// Command E3 - "Vibrato" according to Hyrule Magic
// Takes 3 arguments: 1 - vibrato setpoint, 2 - vibrato rate, 3 - vibrato intensity

    $1979:
    
        // $02b0+x = byte 1 (set point)
        mov !$02b0+x, a
        
        call $18ef
        
        // $02a1+x = byte 2
        mov !$02a1+x, a
        
        // grab byte 3
        call $18ef
    
    // Alternate entry point - Command E4 - "Vib. Off" in Hyrule Magic. (assumedly means Vibrato Off)
    // takes no arguments. A is assumed to be zero. vibrato intensity gets set to zero by means of this.
    $1985:
    
        // $b1+x and $02c1+x = third argument
        mov $b1+x, a
        mov !$02c1+x, a
        
        // $02b1+x = 0
        mov a, #$00; mov !$02b1+x, a
        
        ret
    
// =============================================================================

    $1990:
    
        mov !$02b1+x, a
        push a
        
        // y = 0;
        mov y, #$00
        
        mov a, $b1+x
        
        // x = byte 1
        pop x
        
        div ya, x
        
        // restore the track index to X
        mov x, $44
        
        // $02c0+x = $b1+x / $02b1+x;
        mov !$02c0+x, a
        
        ret
    
    $19a0:
    
        mov a, #$00
        
        movw $58, ya
        
        ret
    
    $19a5:
    
        mov $5a, a
        
        call $18ef
        
        mov $5b, a
        
        setc; sbc a, $59
        
        mov  x, $5a
        
        call $1b46
        
        movw $5c, ya
        
        ret
    
    $19b7:
    
        mov a, #$00; movw $52, ya
        
        ret
    
    $19bc:
    
        mov $54, a
        
        call $18ef
        
        mov $55, a
        
        setc; sbc a, $53
        
        mov x, $54
        
        call $1b46
        
        movw $56, ya
        
        ret
    
    $19ce:
    
        mov $50, a
        
        ret
    
    $19d1:
    
        mov !$02f0+x, a
        
        ret

// =============================================================================

    $19d5:
    
        // byte 1 goes here
        mov !$02e0+x, a
        
        // grab byte 2
        call $18ef
        
        // store it here
        mov !$02d1+x, a
        
        // grab athird argument and...
        call $18ef
    
    $19e1:
    
        // store it here
        mov $c1+x, a
        
        ret

// =============================================================================

    $19e4:
    
        mov a, #$01
        
        bra $19ea
    
    $19e8:
    
        mov a, #$00
    
    $19ea:
    
        // $0290+X = byte 1 (indicates pitch slide direction)
        mov !$0290+x, a
        
        // $0281+x = byte 1
        mov a, y; mov !$0281+x, a
        
        call $18ef
        
        // $0280+x = byte 2 
        mov !$0280+x, a
        
        call $18ef
        
        // $0291+x = byte 3
        mov !$0291+x, a
        
        ret

// =============================================================================

    $19fe:
    
        // $0280+X = byte 1
        mov !$0280+x, a
        
        ret

// =============================================================================

    $1a02:
    
        // $0301+x = byte 1
        mov !$0301+x, a
        
        // $0300+x = 0, (low byte of the channel volume always set to zero)
        mov a, #$00; mov !$0300+x, a
        
        ret

// =============================================================================

    $1a0b:
    
        // store byte 1 to $90+x
        mov $90+x, a; push a
        
        // grab byte 2
        call $18ef
        
        // set target volume for the channel at the end of the slide
        mov !$0320+x, a
        
        // subtract off the channel's volume modulation setting
        setc; sbc a, !$0301+x
        
        pop x
        
        // ya = ($0320+x - $0301+x) / $90+x;  hexadecimal fraction
        call $1b46
        
        // $0310+X = fractional portion
        // $0311+X = whole number portion
                  mov !$0310+x, a
        mov a, y; mov !$0311+x, a
        
        ret

// =============================================================================
    
    $1a24:
    
        // this is a fractional modifier for the voice's pitch
        mov !$0381+x, a
        
        ret

// =============================================================================

    $1a28:
    
        // $0240+X = byte 1
        mov !$0240+x, a
        
        call $18ef
        
        // $0241+x = byte 2
        mov !$0241+x, a
        
        call $18ef
        
        // $80+x = byte 3
        mov $80+x, a
        
        // ($0230+X).w = ($30+X).w; (saves our current position so the call loop can return)
        mov a, $30+x; mov !$0230+x, a
        mov a, $31+x; mov !$0231+x, a
    
    $1a40:
    
        // ($30+X).w = ($0240+X).w
        mov a, !$0240+x; mov $30+x, a
        mov a, !$0241+x; mov $31+x, a
        
        ret

// =============================================================================

    $1a4b:
    
        // EON = byte 1
        mov $4a, a
        
        call $18ef
        
        // $60.w = (second parameter << 8);
        // the upper byte of $60 mirrors EVOLL
        mov a, #$00; movw $60, ya
        
        // get next track byte
        call $18ef
        
        // $62.w = (byte 3) << 8;
        // the upper byte of $60 mirrors EVOLR
        mov a, #$00
        
        movw $62, ya
        
        // Enable Echo buffer writes.
        clr5 $48
        
        ret

// =============================================================================

    $1a5e:
    
        // $68 = byte 1;
        mov $68, a
        
        // grab byte 2
        call $18ef
        
        // $69 = byte 2;
        mov $69, a
        
        // $61 is ECHOVOLL
        setc; sbc a, $61
        
        // x = $68
        mov x,$68
        
        // ya = ($69 - $61) / $68;
        call $1b46
        
        // $64 = hexadecimal fraction represented by YA
        movw $64, ya
        
        // grab byte 3
        call $18ef
        
        // $6a = byte 3;
        mov $6a, a
        
        // $63 is ECHOVOLR
        setc; sbc a, $63
        
        mov x, $68
        
        // ya = ($6a - $63) / $68;
        call $1b46
        
        // $66 = hexadecimal fraction represented by ya
        movw $66, ya
        
        ret

// =============================================================================

    $1a7f:
    
        // Set mirrors of EVOLL and EVOLR to zero volume.
        movw $60, ya
        movw $62, ya
        
        // Disable Echo Buffer writes.
        set5 $48
        
        ret

// =============================================================================

    $1a86:
    
        // Handle Echo Delay with byte 1
        call $1aab
        
        // grab byte 2
        call $18ef
        
        // echo feedback volume (EFB) = byte 2
        mov $4e, a
        
        // grab byte 3
        call $18ef
        
        mov !$04b1, a
        
        // YA = (8 * byte 3) (one of 4 preset settings, seems like)
        mov y, #$08; mul ya
        
        mov x, a
        
        // writing to DSP register $xF (FIRx)
        mov y, #$0f
    
    $1a9a:
    
        // 4 8-byte echo coefficient lists
        mov a, !EchoFilters+x
        
        // Set the filter designation for this voice.
        call WriteToDsp
        
        inc x
        
        // Move on to the next voice
        // Y += 0x10;
        mov a, y; clrc; adc a, #$10; mov y, a; bpl $1a9a
        
        // Restore X's old value (track number)
        mov x, $44
        
        ret

// =============================================================================

    $1aab:
    
        mov $4d, a
        
        mov y, #$7d; mov !$00f2, y
        
        mov a, !$00f3; cmp a, $4d; beq $1ae4
        
        and a, #$0f; eor a, #$ff
        
        bbc7 $4c, $1ac3
        
        clrc; adc a, $4c
    
    $1ac3:
    
        mov $4c, a
        
        mov y, #$04
    
    loop4:
    
        // pick a register
        // disable the echo effect, echo feedback, echo volume right, echo volume left, etc
        mov a, !RegisterList - 1 +y; mov !$00f2, a
        
        mov a, #$00; mov !$00f3, a
        
        // y--; if(Y != 0) goto .write_register
        dbnz y, loop4
        
        // disable writes to the echo buffer
        mov a, $48; or a, #$20
        
        mov y, #$6c
        
        call WriteToDsp
        
        // Store the input value to EDL (aka the size of the echo buffer)
        mov a, $4d
        
        mov y, #$7d
        
        call WriteToDsp
        
    $1ae4:
    
        asl a; asl a; asl a; eor a, #$ff; setc; adc a, #$15
        
        // Set echo buffer address to $0500 or $1500
        mov y, #$6d
        
        jmp WriteToDsp

// =============================================================================

    // Command FA - "DrumChange"
    // This modifies the offset into the instrument table
    // for quick switching of drum sets
    
    $1af1:
    
        // instrument offset for 0xCA - 0xDF commands
        mov $5f, a
        
        ret

// =============================================================================

    // Command FB - "NOP"
    // like the name might suggest, does nothing.
    
    $1af4:
    
        // increments the track pointer by one then return.
        call $18f1
        
        ret

// =============================================================================

// Command FC - "ChannelSustain"
// When this is enabled, this channel can no longer key on new notes
// In contrast, if there is currently a note in the sustain phase, it will 
// not be keyed off.

    $1af8:
    
        inc a; mov !$0400+x, a
        
        ret

// =============================================================================

    // Command FD - "GlobalSustainOn"
    // Similar to command FC, but for all channels
    
    $1afd:
    
        inc a

    // Command FE - "GlobalSustainOff" (reverses command FD)

    $1afe:
    
        mov $1b, a
        
        jmp $1750

// =============================================================================

    $1b03:
    
        mov a, $a0+x; bne $1b3a
        
        mov a, ($30+x); cmp a, #$f9; bne $1b3a
        
        call $18f1
        call $18ef
    
    $1b13:
    
        mov $a1+x, a
        
        call $18ef
        
        mov $a0+x, a
        
        call $18ef
        
        clrc; adc a, $50; adc a, !$02f0+x
    
    $1b23:
    
        and a, #$7f; mov !$0380+x, a
        
        setc; sbc a, !$0361+x
        
        mov y, $a0+x; push y
        
        pop x
        
        call $1b46
        
                  mov !$0370+x, a
        mov a, y; mov !$0371+x, a
    
    $1b3a:
    
        ret
        
    $1b3b:
    
        // $11.w is the Pitch table index.
        mov a, !$0361+x; mov $11, a
        mov a, !$0360+x; mov $10, a
        
        ret
    
    $1b46:
    
        notc; ror $12; bpl $1b4e
        
        eor a, #$ff; inc a
    
    $1b4e:
    
        // push the 8-bit quotient of A / X
        mov y, #$00; div ya, x
        
        push a
        
        // a = (a % x) / x
        mov a, #$00; div ya, x
        
        // y = a / x
        pop y
        
        // Restore X's old value
        mov x, $44
    
    $1b58:
    
        bbc7 $12, $1b61
        
        // this section makes the number negative if the number passed in was negative
        movw $14, ya
        
        // ya = $0e - ya
        movw ya, $0e; subw ya, $14
    
    $1b61:
    
        ret

// =============================================================================

    Command_Jump_Table:
    
        dw $18f9 // 0xe0
        dw $1952 // 0xe1
        dw $1960 // 0xe2
        dw $1979 // 0xe3
        dw $1985 // 0xe4
        dw $19a0 // 0xe5
        dw $19a5 // 0xe6
        dw $19b7 // 0xe7
        dw $19bc // 0xe8
        dw $19ce // 0xe9
        dw $19d1 // 0xea
        dw $19d5 // 0xeb
        dw $19e1 // 0xec
        dw $1a02 // 0xed
        dw $1a0b // 0xee
        dw $1a28 // 0xef
        
        dw $1990 // 0xf0
        dw $19e4 // 0xf1
        dw $19e8 // 0xf2
        dw $19fe // 0xf3
        dw $1a24 // 0xf4
        dw $1a4b // 0xf5
        dw $1a7f // 0xf6
        dw $1a86 // 0xf7
        dw $1a5e // 0xf8
        dw $1b13 // 0xf9
        dw $1af1 // 0xfa fast instrument? (drum beat according to bh89)
        dw $1af4 // 0xfb (command does not exist in NSPC-Zelda but this command actually does nothing at all.)
        dw $1af8 // 0xfc channel sustain
        dw $1afd // 0xfd global sustain on
        dw $1afe // 0xfe global sustain off

// =============================================================================

    Command_Num_Params:
    
        db $01      // command e0 number of parameters
        db $01      // command e1 number of parameters
        db $02      // command e2 number of parameters
        db $03      // command e3 number of parameters
        db $00      // command e4 number of parameters
        db $01      // command e5 number of parameters
        db $02      // command e6 number of parameters
        db $01      // command e7 number of parameters
        
        db $02      // command e8 number of parameters
        db $01      // command e9 number of parameters
        db $01      // command ea number of parameters
        db $03      // command eb number of parameters
        db $00      // command ec number of parameters
        db $01      // command ed number of parameters
        db $02      // command ee number of parameters
        db $03      // command ef number of parameters
        
        db $01      // command f0 number of parameters
        db $03      // command f1 number of parameters
        db $03      // command f2 number of parameters
        db $00      // command f3 number of parameters
        db $01      // command f4 number of parameters
        db $03      // command f5 number of parameters
        db $00      // command f6 number of parameters
        db $03      // command f7 number of parameters
        
        db $03      // command f8 number of parameters
        db $03      // command f9 number of parameters
        db $01      // command fa number of parameters
        db $02      // command fb number of parameters
        db $00      // command fc number of parameters
        db $00      // command fd number of parameters
        db $00      // command fe number of parameters

// =============================================================================

    $1bbf:
    
        mov a, $90+x; beq .noVolumeSlide
        
        or $5e, $47
        
        dec $90+x; bne $1bd4
        
        mov a, #$00; mov !$0300+x, a
        
        mov a, !$0320+x
        
        bra $1be4
    
    $1bd4:
        
        clrc
        
        mov a, !$0300+x; adc a, !$0310+x; mov !$0300+x, a
        mov a, !$0301+x; adc a, !$0311+x
    
    $1be4:
    
        mov !$0301+x, a
    
    .noVolumeSlide:
    
        mov y, $c1+x; beq $1c0e
        
        mov a, !$02e0+x; cbne $c0+x, $1c0b
        
        // designate this channel as having pitch modification going on
        or $5e, $47
        
        mov a, !$02d0+x; bpl $1c00
        
        inc y; bne $1c00
        
        mov a, #$80
        
        bra $1c04
    
    $1c00:
    
        clrc; adc a, !$02d1+x
    
    $1c04:
    
        mov !$02d0+x, a
        
        call $1e00
        
        bra $1c13
    
    $1c0c:
    
        inc $c0+x
    
    $1c0e:
    
        mov a, #$ff
        
        call $1e0b
    
    $1c13:
    
        mov a, $91+x; beq $1c3b
        
        or $5e, $47
        
        dec $91+x; bne $1c28
        
        mov a, #$00; mov !$0330+x, a
        
        mov a, !$0350+x
        
        bra $1c38
    
    $1c28:
    
        clrc; mov a, !$0330+x; adc a, !$0340+x; mov !$0330+x, a
              mov a, !$0331+x; adc a, !$0341+x
    
    $1c38:
    
        mov !$0331+x, a
        
    $1c3b:
    
        // simply return if there's no volume modulation going on with this channel
        mov a, $47; and a, $5e; beq .return
        
        // load the channel's pan setting
        // $10.w = $0330+X.w
        mov a, !$0331+x; mov  y, a
        mov a, !$0330+x; movw $10, ya
    
    $1c4a:
        
        // The classic a -> (a-1) * 0x10
        // $12 = a;
        mov a, x; xcn a; lsr a; mov $12, a
    
    .volRight:
    
        // y = pan value. ranges from 0 to 0x14 (0 to 20)
        // on the second loop iteration (.volRight), $11 will be 0x14 minus the value for the left channel.
        mov y, $11
        
        // A = the difference between two points of the logistic function. (Its derivative)
        mov a, !LogisticFunc+1+y; setc; sbc a, !LogisticFunc+y
        
        // YA = $10 * A
        // since $10 will probably always be zero, this could most likely be ignored, but I'm not sure.
        mov y, $10; mul ya
        
        // argh... quite a complicated formula
        // A = Y; Y = $11
        // A += $1178
        // Y = A
        mov a, y
        
        mov y, $11
        
        // uses a logarithmic function that produces a sort of 3D quality to the panning
        clrc; adc a, !LogisticFunc+y; mov y, a
        
        // ya = fully adjusted volume * panning multiplier (the result from the previous operation)
        mov a, !$0321+x; mul ya
        
        // some kind of pan argument... A = $0351+X << 1;
        mov a, !$0351+x; asl a
        
        bbc0 $12, .volLeft
        
        // A = $0351+X << 2;
        asl a
        
    .volLeft:
    
        // A = final volume result for this channel and side. side meaning left or right
        mov a, y; bcc .noPhaseInversion
        
        // guess this inverts the phase of the signal?
        eor a, #$ff; inc a
    
    .noPhaseInversion:
    
        mov y, $12
        
        // Write the Volume Left for this voice.
        call $171e
        
        mov y, #$14
        mov a, #$00
        
        // $10 = 0x1400 - $10;  this is what causes a pan of 0x0A to be neutral.
        subw ya, $10; movw $10, ya
        
        // makes it so we're going to write to VxVOLR instead of VxVOLL next time
        inc $12
        
        bbc1 $12, .volRight
    
    .return:
    
        ret

// =============================================================================
    
    $1c88:
    
        // $71+x is the mutliplication of the channel timer
        // and the staccato level for the channel.
        mov a, $71+x; beq $1cf1
        
        dec $71+x; beq $1c95
        
        mov a, #$02
        
        // if($70+X != 0x02) goto that place
        cbne $70+x, $1cf1
        
    $1c95:
    
        mov a, $80+x; mov $17, a
        
        mov a, $30+x
        mov y, $31+x
    
    $1c9d:
    
        movw $14, ya
        
        mov y, #$00
    
    $1ca1:
    
        // get the next byte off the track
        // if(track_byte == 0)
        // if(track_byte >= 0x80)
        mov a, ($14)+y; beq $1cc3
                        bmi $1cae
    
    $1ca7:
    
        // otherwise ignore the track_byte and move on
        // if(Y >= 0x80)
        inc y; bmi $1cea
        
        // grab the next byte on the track
        // if(track_byte < 0x80) 
        mov a, ($14)+y; bpl $1ca7
    
    $1cae:
    
        // if(track_byte == 0xC8) goto (avoids the keyoff and keeps sustain up)
        cmp a, #$c8; beq $1cf1
        cmp a, #$ef; beq $1cdf
        cmp a, #$e0; bcc $1cea
        
        // swap a and y... but why swap when the value of a is destroyed anyways?
        push y; mov y, a; pop a; adc a, $1ac0+y; mov y, a
        
        bra $1ca1
        
        mov a, $17; beq $1cea
        
        dec $17; bne $1cd5
        
        mov a, !$0231+x; push a
        mov a, !$0230+x; pop y
        
        bra $1c9d
    
    $1cd5:
    
        mov a, !$0241+x; push a
        mov a, !$0240+x; pop y
        
        bra $1c9d
    
    $1cdf:
    
        inc y; mov a, ($14)+y;           push a
        inc y; mov a, ($14)+y; mov y, a; pop a
        
        bra $1c9d
    
    $1cea:
    
        mov a, $47
        mov y, #$5c
        
        call $171e
    
    $1cf1:
    
        clr7 $13
        
        mov a, $a0+x; beq $1d23
        
        mov a, $a1+x; beq $1cff
        
        dec $a1+x
        
        bra $1d23
    
    $1cff:
    
        set7 $13
        
        dec $a0+x; bne $1d10
        
        mov a, !$0381+x; mov !$0360+x, a
        mov a, !$0380+x
        
        bra $1d20
    
    $1d10:
    
        clrc; mov a, !$0360+x; adc a, !$0370+x; mov !$0360+x, a
              mov a, !$0361+x; adc a, !$0371+x
    
    $1d20:
    
        mov !$0361+x, a
    
    $1d23:
    
        call $1b3b
        
        mov a, $b1+x; beq $1d76
        
        mov a, !$02b0+x
        
        cbne $b0+x, $1d74
        
        // if($0100+x != $02B1+x)
        mov a, !$0100+x; cmp a, !$02b1+x; bne $1d3d
        
        // a = $02c1+x
        mov a, !$02c1+x
        
        bra $1d4a
    
    $1d3d:
    
        setp; inc $00+x; clrp
        
        mov y, a; beq $1d46
        
        mov a, $b1+x
    
    $1d46:
    
        // A += $02c0+x (vibrato step variable)
        clrc; adc a, !$02c0+x
    
    $1d4a:
    
        // $b1+x = a
        mov $b1+x, a
        
        // $02a0+x += $02a1+x;
        mov a, !$02a0+x; clrc; adc a, !$02a1+x; mov !$02a0+x, a
    
    $1d56:
    
        mov $12, a; asl a; asl a; bcc $1d5e
        
        eor a, #$ff
    
    $1d5e:
    
        mov y, a
        
        // if($b1+X < 0xf1)
        mov a, $b1+x; cmp a, #$f1; bcc $1d6a
        
        and a, #$0f; mul ya
        
        bra $1d6e
    
    $1d6a:
    
        // Only want the high byte of the result.
        mul ya; mov a, y; mov y, #$00
    
    $1d6e:
    
        // YA = abs(YA), $10 is adjusted loaded with the current parameter value now.
        call $1deb
    
    $1d71:
    
        jmp $169b
    
    $1d74:
    
        inc $b0+x
    
    $1d76:
    
        bbs7 $13, $1d71
        
        ret

// =============================================================================

    $1d7a:
    
        // Lower this flag for now. (I really am not sure what it signifies)
        clr7 $13
        
        mov a, $c1+x; beq .noTremelo
        
        mov a, !$02e0+x; cbne $c0+x, .noTremelo
        
        call $1df3
    
    .noTremelo:
    
        // Load current channel pan settings into $10
        // $10.w = $0330+x.w
        mov a, !$0331+x; mov y, a
        mov a, !$0330+x; movw $10,ya
        
        // if($91+x == 0)
        mov a, $91+x; beq .noPanSlide
        
        // y = $0341+x
        mov a, !$0341+x; mov y, a
        
        // a = $0340+x
        // $0340[2]+x is a hexadecimal fraction representing the ratio of panned volume to... i dunno.
        mov a, !$0340+x
        
        call $1dd5
    
    .noPanSlide:
    
        bbc7 $13, $1da6
        
        call $1c4a
    
    $1da6:
    
        clr7 $13
        
        call $1b3b
        
        // if($A0+X == 0)
        mov a, $a0+x; beq $1dbd
        
        // if($A1+X)
        mov a, $a1+x; bne $1dbd
        
        // YA = $0370.w;  this is the pitch slide step variable    
        mov a, !$0371+x; mov y, a
        mov a, !$0370+x
        
        // perform the pitch slide
        call $1dd5
    
    $1dbd:
    
        // now handle vibrato
        mov a, $b1+x; beq $1d76
        
        mov a, !$02b0+x
        
        cbne $b0+x, $1d76
        
        // Y = music delay timer, A = ????
        mov y, $51; mov a, !$02a1+x; mul ya
        
        mov a, y; clrc; adc a, !$02a0+x
        
        jmp $1d56

// =============================================================================

    $1dd5:
    
        set7 $13
        
        mov $12, y
        
        // YA = abs(YA)
        call $1b58
        
        // YA = number of frames passed * fractional part of a slide setting
        push y
        
        mov y, $51; mul ya
        
        // $14.w = (YA >> 8) & 0xFF;
        mov $14, y
        mov $15, #$00
        
        // YA = number of frames passed * integer part of a slide setting
        mov y, $51; pop a; mul ya; addw ya, $14
    
    $1deb:
    
        // ya = abs(ya);
        call $1b58
        
        // $10 += YA, ($10 typically represents the current adjusted pitch value)
        addw ya, $10; movw $10, ya
        
        ret

// =============================================================================

    $1df3:
    
        set7 $13
        
        // YA = number of frames passed * amount to change tremelo per frame
        mov y, $51; mov a, !$02d1+x; mul ya
        
        // ya = (ya >> 8) + $02d0+x
        mov a, y; clrc; adc a, !$02d0+x
    
    // Alternate Entry Point
    $1e00:
    
        asl a; bcc $1e05
        
        // otherwise, invert the bits of C
        eor a, #$ff
    
    $1e05:
    
        // YA = ((last result * tremelo intensity) >> 8) ^ 0xFF;
        mov y, $c1+x; mul ya
        
        // a ^= 0xff;
        mov a, y; eor a, #$ff
    
    // alternate entry point - in this entry point, A is considered a parameter
    $1e0b:
    
        // ya = master_volume * A
        mov y, $59; mul ya
        
        // ya = note volume * upper byte of last result
        mov a, !$0210+x; mul ya
        
        // ya = channel volume * upper byte of last result
        mov a, !$0301+x; mul ya
        
        // ya = a * a (a^2)
        mov a, y; mul ya
        
        // this is the final adjusted volume
        mov a, y; mov !$0321+x, a
        
        ret

// =============================================================================

// data references
// interestingly enough, if you graph these points (assuming 0 through 19 as x values)
// it produces a logistic function

    LogisticFunc:
    
        db $00
        db $01
        db $03
        db $07
        db $0d
        db $15
        db $1e
        db $29
        
        db $34
        db $42
        db $51
        db $5e
        db $67
        db $6e
        db $73
        db $77
        
        db $7a
        db $7c
        db $7d
        db $7e
        db $7f

// =============================================================================

    EchoFilters:
    
        // echo filter set 0
        db $7f
        db $00
        db $00
        db $00
        db $00
        db $00
        db $00
        db $00
        
        // echo filter set 1
        db $58
        db $bf
        db $db
        db $f0
        db $fe
        db $07
        db $0c
        db $0c
        
        // echo filter set 2
        db $0c
        db $21
        db $2b
        db $2b
        db $13
        db $fe
        db $f3
        db $f9
        
        // echo filter set 3
        db $34
        db $33
        db $00
        db $d9
        db $e5
        db $01
        db $fc
        db $eb

// =============================================================================

    RegisterList:
    
        db $2c // Echo volume left (EVOLL)
        db $3c // Echo volume right (EVOLR)
        db $0d // Echo feedback bits (EFB)
        db $4d // Echo enable bits (EON)
        db $6c // Flag register (FLG)
        db $4c // Key-on voices (KON)
        db $5c // Muted voices (KOFF)
        db $3d // Noise enabled voices (NON)
        db $2d // Pitch modulation enabled voices (PMON)
        db $5c // Muted voices (KOFF)
    
    LoadValueFrom:
    
        // Like the table above, there are ten entries on this list. These addresses correspond to the register list above.
        // Each of these normal RAM addresses contains value to write to the respective DSP Register in the above list
        // e.g. if $61 contains the value #$50, then DSP register $2C will end up receiving the value #$50 
        db $61    // -> EVOLL
        db $63    // -> EVOLR
        db $4e    // -> EFB
        db $4a    // -> EON
        db $48    // -> FLG
        db $45    // -> KON
        db $0e    // -> KOFF
        db $49    // -> NON
        db $4b    // -> PMON
        db $46    // -> KOFF

// =============================================================================

    TuningValues:
    
        dw $085f
        dw $08de
        dw $0965
        dw $09f4
        dw $0a8c
        dw $0b2c
        dw $0bd6
        dw $0c8b
        dw $0d4a
        dw $0e14
        dw $0eea
        dw $0fcd
        dw $10be

// =============================================================================

    Unused_Array:
    
        // as far as I'm aware, anyways. Haven't found a single reference to it.
        // perhaps it's legacy data left over from an earlier engine like F-Zero or SMW
        db $2a
        db $56
        db $65
        db $72
        db $20
        db $53
        db $31
        db $2e
        db $32
        db $30
        db $2a

// =============================================================================

// Waits for data to be loaded from the CPU side. part of special song command FF

    Data_Loader:
    
        // write 0xBBAA to ports $00F4-5 (standard protocol used by the SPC bootloader ROM)
        mov a, #$aa; mov !$00f4, a
        mov a, #$bb; mov !$00f5, a
    
    .wait_data_start:
    
        // Wait for Data to be fed to the SPC from the main processor. #$CC signals that a data transfer is
        // ready to start 
        mov a, !$00f4; cmp a, #$cc; bne .wait_data_start
        
        bra .begin_transfer
    
    .data_loop:
    
        // read port 0 until a value of 0x00 comes back
        mov y, !$00f4; bne .data_loop
    
    .reread:
    
        // the next byte after the zero byte is supposed to be the offset past the designated
        // RAM pointer specified at the start of the data block transfer.
        // if the byte read just now doesn't match the current
        // value on the port, try again (twice more)
        cmp y, !$00f4; bne .coherence_error
        
        // read a byte from port 1, radio back the received zero byte to port 0 in the meantime...
        // store the byte at the designated location earlier
        mov a, !$00f5
        
        mov !$00f4, y
        
        mov ($14)+y, a
        
        inc y; bne .reread
        
        // increment the high byte of the pointer if we're at a page boundary
        inc $15
        
        bra .reread
    
    .coherence_error:
    
        bpl .reread
        
        cmp y, !$00f4; bpl .reread
    
    .begin_transfer:
    
        // Find out the location (SPC RAM pointer) to write the bytes to
        // Store this at $0014.
        mov a, !$00f6; mov y, !$00f7; movw $14, ya
        
        // Find out the number of bytes that will be written starting at the location.
        mov y, !$00f4
        mov a, !$00f5
        
        // if the number of bytes != 0
        mov !$00f4, y; bne .data_loop
        
        // reset all 4 of the ports and reset timer 0 (the main timer)
        mov x, #$31; mov !$00f1,x
        
        ret

// =============================================================================

    ClearRam:
    
        mov a, #$00
        mov y, #$00
    
    .loop:
    
        mov ($ee)+y, a
        
        inc y; cmp y, !$0390; bne .loop
        
        ret

// =============================================================================

    $1ee4:
    
        jmp $1fd1

// =============================================================================

    $1ee7:
        
        mov y, $09
        mov a, $01
        
        mov $09, a
        mov $05, a
        
        cmp y, $01; bne $1ef9

    $1ef3:
    
        mov a, !$0392; bne $1ee4
        
        ret
    
    $1ef9:
    
        cmp a, #$00; beq $1ef3
        
        mov a, $01
        
        cmp a, #$02; beq $1f0c
        cmp a, #$01; beq $1f0c
        
        mov a, !$04bb; bne $1ef3
        
    $1f0c:
    
        mov a, !$0392; beq $1f22
        
        mov a, #$00; mov !$03b3, a
        
        call $2732
        call $2775
        call $27b8
        call $27fb
    
    $1f22:
    
        mov a, #$00
        
        mov !$03e1, a
        mov !$03e8, a
        mov !$03ef, a
        mov !$03f6, a
        
        mov a, $05; dec a; asl a; mov !$0393, a
        
        mov x, !$0393
        
        mov a, !$2aed+x; mov $22, a
        
        inc x
        
        mov a, !$2aed+x; mov $23, a
        
        mov a, $05; mov !$0392, a
        
        call $2875
        
        dw $2a5f
        dw $2a63
        dw $2a63
        dw $2a63
        dw $2a63
        dw $2a63
        dw $2a63
        dw $2a67
        dw $2a6b
        dw $2a6b
        dw $2a6b
        dw $2a6b
        dw $2a6b
        dw $2a6b
        dw $2a6b
        dw $2a6b
        
        dw $2a6b
        dw $2a6b
        dw $2a6b
        dw $2a6b
        dw $2a6b
        dw $2a6b
        dw $2a6b
        dw $2a6b
        dw $2a6b
        dw $2a6b
        dw $2a6b
        dw $2a6b
        dw $2a6b
        dw $2a6b
        dw $2a6b
        dw $2a6b
        
        dw $2a6b
        dw $2a6b
        dw $2a6b
        dw $2a6f
        dw $2a73
        dw $2a73
        dw $2a77
        dw $2a7b
        dw $2a7b
        dw $2a7b
        dw $2a7b
        dw $2a7f
        dw $2a83
        dw $2a87
        dw $2a8b
        dw $2a8b
        
        dw $2a8b
        dw $2a8b
        dw $2a8f
        dw $2a93
        dw $2a97
        dw $2a9b
        dw $2a9b
        dw $2a9b
        dw $2a9b
        dw $2a9b
        dw $2a9b
        dw $2a9b
        dw $2a9b
        dw $2a9b
        dw $2a9b
        dw $2a9f
        
        dw $2aa3
        dw $2aa7

// =============================================================================

    $1fd1:
    
        mov a, #$ff; cmp a, !$03a4; beq $2044
        
        call $28b2
        
        mov y, #$00
        mov a, ($22)+y
        
        mov $2a, a
        
        call $2a57
        
        mov $2b, a
        
        call $2a57
        
        mov $2c, a
        
        call $2a57
        
        mov $2d, a
        
        call $2a57
        
        mov $2e, a
        
        call $2a57
        
        mov $2f, a
        
        call $2a57
        
        mov $d0, a
        
        call $2a57
        
        mov $d1, a
        
        mov a, !$03af
        
        call $2a5b
        
        mov !$03b4, a
        
        mov a, !$03b0
        
        call $2a5b
        
        mov !$03b5, a
        
        mov a, !$03b1
        
        call $2a5b
        
        mov !$03b6, a
        
        mov a, !$03b2
        
        call $2a5b
        
        mov !$03b7, a
        
        mov y, #$00
        
        mov !$0394, y
        mov !$0395, y
        mov !$0396, y
        mov !$0397, y
        
        mov y, #$01
        
        mov !$0398, y
        mov !$0399, y
        mov !$039a, y
        mov !$039b, y
    
    $2044:
    
        mov a, #$ff; cmp a, !$039c; bne $204e
        
        jmp $21fe
    
    $204E:
    
        dec !$0398; beq $2056
        
        jmp $2197
    
    $2056:
    
        mov a, !$03e1; beq $205d
        
        bra $20a0
    
    $205d:
    
        mov a, #$00; mov !$03e0, a
                     mov !$03de, a
                     mov !$03df, a
        
        mov a, #$ff; cmp a, !$03c0; beq $2085
        
        mov a, !$03a6; or a, $46; mov $46, a
        
        mov a, #$02; mov !$03c1, a
        
        mov a, #$01; mov !$0398, a
        
        mov a, #$ff; mov !$03c0, a
    
    $2085:
    
        dec !$03c1; beq $208d
        
        jmp $21fe
    
    $208d:
    
        mov a, #$00; mov !$03c0, a
        
        mov a, !$03aa; and a, $47; mov $47, a
        
        mov a, !$03aa; and a, $49; mov $49, a
    
    $20a0:
    
        call $284f
        
        cmp a, #$fa; bne $20a7
    
    $20a7:
        
        cmp a, #$f9; bne $20bf
        
        call $284f
        
        mov !$03d0, a
        
        call $284f
        
        mov !$03d1, a
        
        mov a, #$ff; mov !$03d8, a
        
        jmp $20a0
    
    $20bf:
    
        cmp a, #$f5; bne $20c8
        
        mov !$03e2, a
        
        bra $20d1
    
    $20c8:
    
        cmp a, #$f8; bne $20e5
        
        mov a, #$00; mov !$03e2, a
    
    $20d1:
    
        call $284f
        
        mov !$03de, a
        
        call $284f
        
        mov !$03df, a
        
        mov a, #$ff; mov !$03e0, a
        
        call $284f
    
    $20e5:
    
        cmp a, #$ff; bne $20ef
        
        call $2732
        
        jmp $21fe
    
    $20ef:
    
        cmp a, #$fe; bne $2102
        
        call $284f
        
        mov !$03c8, a
        
        mov a, !$0394; mov !$03cc, a
        
        call $284f
    
    $2102:
    
        cmp a, #$fd; bne $2117
        
        dec !$03c8; bne $210e
        
        jmp $20a0
    
    $210e:
    
        mov a, !$03cc; mov !$0394, a
        
        call $284f
    
    $2117:
    
        cmp a, #$fb; bne $211e
        
        jmp $210e
    
    $211e:
    
        cmp a, #$fc; bne $212c
        
        mov a, !$03a6; or a, $49; mov $49, a
        
        jmp $20a0
    
    $212c:
    
        mov x, !$03af
        
        call $18fc
        call $284f
        
        mov x, !$03af
        
        mov !$0321+x, a
        
        mov a, #$00; mov !$0351+x, a
        
        call $284f
        
        mov $11, a
        mov $10, #$00
        
        call $1c4a
        call $284f
        
        cmp a, #$f6; beq $215a
        
        mov !$03dc, a
        
        mov a, #$00; mov !$03dd, a
    
    $215a:
    
        mov y, !$03dc; mov a, !$03dd; movw $10,ya
        
        mov x,$03af
        
        call $16b1
        call $284f
        
        mov !$0398, a
        
        mov a, !$03d8; beq $218b
        
        mov a, !$03b4; or a, #$05; mov y, a
        
        mov a, !$03d0
        
        call WriteToDsp
        
        mov a, !$03b4; or a, #$06; mov y, a
        mov a, !$03d1
        
        call WriteToDsp
    
    $218b:
    
        mov a, !$03e1; bne $2197
        
        mov a, !$03a6; or a, $45; mov $45, a
    
    $2197:
    
        mov a, !$03e0; cmp a, #$ff; bne $21fe
        
        mov a, !$03e2; beq $21a8
        
        mov a, #$ff; mov !$03e1, a
    
    $21a8:
    
        mov a, !$03dc; cmp a, !$03df; bcc $21d1
        
        mov a, !$03dd; setc; sbc a, !$03de; mov !$03dd, a; bcs $21f0
        
        dec !$03dc
        
        mov a, !$03df; cmp a, !$03dc; bne $21f0
        
        mov a, #$00; mov !$03e0, a; mov !$03e1, a
        
        bra $21f0
    
    $21d1:
    
        mov a, !$03de; clrc; adc a, !$03dd; mov !$03dd, a; bcc $21f0
        
        inc !$03dc
        
        mov a, !$03df; cmp a, !$03dc; bne $21f0
        
        mov a, #$00; mov !$03e0, a
                     mov !$03e1, a
    
    $21f0:
    
        mov a, !$03dd; mov y, !$03dc; movw $10, ya
        
        mov x, !$03af
        
        call $16b1
    
    $21fe:
    
        mov a, #$ff; cmp a, !$039d; bne $2208
        
        jmp $23ba
    
    $2208:
    
        dec !$0399; beq $2210
        
        jmp $234d
    
    $2210:
    
        mov a, !$03e8; beq $2217
        
        bra $225a
    
    $2217:
    
        mov a, #$00; mov !$03e7, a
                     mov !$03e5, a
                     mov !$03e6, a
        
        mov a, #$ff; cmp a, !$03c2; beq $223f
        
        mov a, !$03a7; or a, $46; mov $46, a
        
        mov a, #$02; mov !$03c3, a
        
        mov a, #$01; mov !$0399, a
        
        mov a, #$ff; mov !$03c2, a
    
    $223f:
    
        dec !$03c3; beq $2247
        
        jmp $23ba
    
    $2247:
    
        mov a, #$00; mov !$03c2, a
        
        mov a, !$03ab; and a, $47; mov $47, a
        
        mov a, !$03ab; and a, $49; mov $49, a
    
    $225a:
    
        call $2858
        
        cmp a, #$f9; bne $2275
        
        call $2858
        
        mov !$03d2, a
        
        call $2858
        
        mov !$03d3, a
        
        mov a, #$ff; mov !$03d9, a
        
        jmp $225a
    
    $2275:
    
        cmp a, #$f5; bne $227e
        
        mov !$03e9, a
        
        bra $2287
    
    $227e:
    
        cmp a, #$f8; bne $229b
        
        mov a, #$00; mov !$03e9, a
    
    $2287:
    
        call $2858; mov !$03e5, a
        
        call $2858
        
        mov !$03e6, a
        
        mov a, #$ff; mov !$03e7, a
        
        call $2858
    
    $229b:
    
        cmp a, #$ff; bne $22a5
        
        call $2775
        
        jmp $23ba
    
    $22a5:
    
        cmp a, #$fe; bne $22b8
        
        call $2858
        
        mov !$03c9, a
        
        mov a, !$0395; mov !$03cd, a
        
        call $2858
    
    $22b8:
    
        cmp a, #$fd; bne $22cd
        
        dec !$03c9; bne $22c4
        
        jmp $225a
    
    $22c4:
    
        mov a, !$03cd; mov !$0395, a
        
        call $2858
    
    $22cd:
    
        cmp a, #$fb; bne $22d4
        
        jmp $22c4
    
    $22d4:
    
        cmp a, #$fc; bne $22e2
        
        mov a, !$03a7; or a, $49; mov $49, a
        
        jmp $225a
    
    $22e2:
    
        mov x, !$03b0
        
        call $18fc
        call $2858
        
        mov x, !$03b0
        
        mov !$0321+x, a
        
        mov a, #$00; mov !$0351+x, a
        
        call $2858
        
        mov $11, a
        
        mov $10, #$00
        
        call $1c4a
        call $2858
        
        cmp a, #$f6; beq $2310
        
        mov !$03e3, a
        
        mov a, #$00; mov !$03e4, a
    
    $2310:
    
        mov y, !$03e3; mov a, !$03e4; movw $10, ya
        
        mov x, !$03b0
        
        call $16b1
        call $2858
        
        mov !$0399, a
        
        mov a, !$03d9; beq $2341
        
        mov a, !$03b5; or a, #$05; mov y, a
        
        mov a, !$03d2
        
        call WriteToDsp
        
        mov a, !$03b5; or a, #$06; mov y, a
        
        mov a, !$03d3
        
        call WriteToDsp
    
    $2341:
    
        mov a, !$03e8; bne $234d
        
        mov a, !$03a7; or a, $45; mov $45, a
    
    $234d:
    
        nop
        nop
        nop
        nop
        nop
        nop
        
        mov a, !$03e7; cmp a, #$ff; bne $23ba
        
        mov a, !$03e9; beq $2364
        
        mov a, #$ff; mov !$03e8, a
    
    $2364:
    
        mov a, !$03e3; cmp a, !$03e6; bcc $238d
        
        mov a, !$03e4; setc; sbc a, !$03e5; mov !$03e4, a; bcs $23ac
        
        dec !$03e3
        
        mov a, !$03e6; 	cmp a, !$03e3; bne $23ac
        
        mov a, #$00; mov !$03e7, a
                     mov !$03e8, a
        
        bra $23ac
    
    $238d:
    
        mov a, !$03e5; clrc; adc a, !$03e4; mov !$03e4, a; bcc $23ac
        
        inc !$03e3
        
        mov a, !$03e6; cmp a, !$03e3; bne $23ac
        
        mov a, #$00; mov !$03e7, a
                     mov !$03e8, a
    
    $23ac:
    
        mov a, !$03e4; mov y, !$03e3; movw $10, ya
        
        mov x, !$03b0
        
        call $16b1
    
    $23ba:
    
        mov a, #$ff; cmp a, !$039e; bne $23c4
        
        jmp $2576
    
    $23c4:
    
        dec !$039a; beq $23cc
        
        jmp $2509
    
    $23cc:
    
        mov a, !$03ef; beq $23d3
        
        bra $2416
    
    $23d3:
    
        mov a, #$00; mov !$03ee, a
                     mov !$03ec, a
                     mov !$03ed, a
        
        mov a, #$ff; cmp a, !$03c4; beq $23fb
        
        mov a, !$03a8; or a, $46; mov $46, a
        
        mov a, #$02; mov !$03c5, a
        
        mov a, #$01; mov !$039a, a
        
        mov a, #$ff; mov !$03c4, a
    
    $23fb:
    
        dec !$03c5; beq $2403
        
        jmp $2576
    
    $2403:
    
        mov a, #$00; mov !$03c4, a
        
        mov a, !$03ac; and a, $47; mov $47, a
        
        mov a, !$03ac; and a, $49; mov $49, a
    
    $2416:
    
        call $2861
        
        cmp a, #$f9; bne $2431
        
        call $2861
        
        mov !$03d4, a
        
        call $2861
        
        mov !$03d5, a
        
        mov a, #$ff; mov !$03da, a
        
        jmp $2416
    
    $2431:
    
        cmp a, #$f5; bne $243a
        
        mov !$03f0, a
        
        bra $2443
    
    $243a:
    
        cmp a, #$f8; bne $2457
        
        mov a, #$00; mov !$03f0, a
    
    $2443:
    
        call $2861
        
        mov !$03ec, a
        
        call $2861
        
        mov !$03ed, a
        
        mov a, #$ff; mov !$03ee, a
        
        call $2861
    
    $2457:
    
        cmp a, #$ff; bne $2461
        
        call $27b8
        
        jmp $2576
    
    $2461:
    
        cmp a, #$fe; bne $2474
        
        call $2861
        
        mov !$03ca, a
        
        mov a, !$0396; mov !$03ce, a
        
        call $2861
    
    $2474:
    
        cmp a, #$fd; bne $2489
        
        dec !$03ca; bne $2480
        
        jmp $2416
    
    $2480:
    
        mov a, !$03ce; mov !$0396, a
        
        call $2861
    
    $2489:
    
        cmp a, #$fb; bne $2490
        
        jmp $2480
    
    $2490:
    
        cmp a, #$fc; bne $249e
        
        mov a, !$03a8; or a, $49; mov $49, a
        
        jmp $2416
    
    $249e:
    
        mov x, !$03b1
        
        call $18fc
        call $2861
        
        mov x, !$03b1
        
        mov !$0321+x, a
        
        mov a, #$00; mov !$0351+x, a
        
        call $2861
        
        mov $11, a
        mov $10, #$00
        
        call $1c4a
        
        call $2861
        
        cmp a, #$f6; beq $24cc
        
        mov !$03ea, a
        
        mov a, #$00; mov !$03eb, a
    
    $24cc:
    
        mov y, !$03ea; mov a, !$03eb; movw $10, ya
        
        mov x, !$03b1
        
        call $16b1
        
        call $2861
        
        mov !$039a, a
        
        mov a, !$03da; beq $24fd
        
        mov a, !$03b6; or a, #$05; mov y, a
        
        mov a, !$03d4
        
        call WriteToDsp
        
        mov a, !$03b6; or a, #$06; mov y, a
        
        mov a, !$03d5
        
        call WriteToDsp
    
    $24fd:
    
        mov a, !$03ef; bne $2509
        
        mov a, !$03a8; or a, $45; mov $45, a
    
    $2509:
    
        nop
        nop
        nop
        nop
        nop
        nop
        
        mov a, !$03ee; cmp a, #$ff; bne $2576
        
        mov a, !$03f0; beq $2520
        
        mov a, #$ff; mov !$03ef, a
    
    $2520:
    
        mov a, !$03ea; cmp a, !$03ed; bcc $2549
        
        mov a, !$03eb; setc; sbc a, !$03ec; mov !$03eb, a; bcs $2568
        
        dec !$03ea
        
        mov a, !$03ed; cmp a, !$03ea; bne $2568
        
        mov a, #$00; mov !$03ee, a
                     mov !$03ef, a
        
        bra $2568
    
    $2549:
    
        mov a, !$03ec; clrc; adc a, !$03eb; mov !$03eb, a; bcc $2568
        
        inc !$03ea
        
        mov a, !$03ed; cmp a, !$03ea; bne $2568
        
        mov a, #$00; mov !$03ee, a
                     mov !$03ef, a
    
    $2568:
    
        mov a, !$03eb; mov y, !$03ea; movw $10, ya
        
        mov x, !$03b1
        
        call $16b1
    
    $2576:
    
        mov a, #$ff; cmp a, !$039f; bne $2580
        
        jmp $2731
    
    $2580:
    
        dec !$039b; beq $2588
        
        jmp $26c5
    
    $2588:
    
        mov a, !$03f6; beq $258f
        
        bra $25d2
    
    $258f:
    
        mov a, #$00; mov !$03f5, a
                     mov !$03f3, a
                     mov !$03f4, a
        
        mov a, #$ff; cmp a, !$03c6; beq $25b7
        
        mov a, !$03a9; or a, $46; mov $46, a
        
        mov a, #$02; mov !$03c7, a
        
        mov a, #$01; mov !$039b, a
        
        mov a, #$ff; mov !$03c6, a
    
    $25b7:
    
        dec !$03c7; beq $25bf
        
        jmp $2731
    
    $25bf:
    
        mov a, #$00; mov !$03c6, a
        
        mov a, !$03ad; and a, $47; mov $47, a
        
        mov a, !$03ad; and a, $49; mov $49, a
    
    $25d2:
    
        call $286a
        
        cmp a, #$f9
        
        bne $25ed
        
        call $286a
        
        mov !$03d6, a
        
        call $286a
        
        mov !$03d7, a
        
        mov a, #$ff; mov !$03db, a
        
        jmp $25d2
    
    $25ed:
    
        cmp a, #$f5; bne $25f6
        
        mov !$03f7, a
        
        bra $25ff
    
    $25f6:
    
        cmp a, #$f8; bne $2613
        
        mov a, #$00; mov !$03f7, a
	
    $25ff:
    
        call $286a
        
        mov !$03f3, a
        
        call $286a
        
        mov !$03f4, a
        
        mov a, #$ff; mov $03f5, a
        
        call $286a
    
    $2613:
    
        cmp a, #$ff; bne $261d
        
        call $27fb
        
        jmp $2731
    
    $261d:
    
        cmp a, #$fe; bne $2630
        
        call $286a
        
        mov !$03cb, a
        
        mov a, !$0397; mov !$03cf, a
        
        call $286a
    
    $2630:
    
        cmp a, #$fd; bne $2645
        
        dec !$03cb; bne $263c
        
        jmp $25d2
    
    $263c:
    
        mov a, !$03cf; mov !$0397, a
        
        call $286a
    
    $2645:
    
        cmp a, #$fb; bne $264c
        
        jmp $263c
    
    $264c:
    
        cmp a, #$fc; bne $265a
        
        mov a, !$03a9; or a, $49; mov $49, a
        
        jmp $25d2
    
    $265a:
    
        mov x, !$03b2
        
        call $18fc
        call $286a
        
        mov x, !$03b2
        
        mov !$0321+x, a
        
        mov a, #$00; mov !$0351+x, a
        
        call $286a
        
        mov $11, a
        mov $10, #$00
        
        call $1c4a
        call $286a
        
        cmp a, #$f6; beq $2688
        
        mov !$03f1, a
        
        mov a, #$00; mov $03f2, a
    
    $2688:
    
        mov y, !$03f1; mov a, !$03f2; movw $10, ya
        
        mov x, $03b2
        
        call $16b1
        
        call $286a
        
        mov !$039b, a
        
        mov a, !$03db; beq $26b9
        
        mov a, !$03b7; or a, #$05; mov y, a
        
        mov a, !$03d6
        
        call WriteToDsp
        
        mov a, !$03b7; or a, #$06; mov y, a
        
        mov a, !$03d7
        
        call WriteToDsp
    
    $26b9:
    
        mov a, !$03f6; bne $26c5
        
        mov a, !$03a9; or a, $45; mov $45, a
    
    $26c5:
    
        nop
        nop
        nop
        nop
        nop
        
        mov a, !$03f5; cmp a, #$ff; bne $2731
        
        mov a, !$03f7; beq $26db
        
        mov a, #$ff; mov !$03f6, a
    
    $26db:
    
        mov a, !$03f1; cmp a, !$03f4; bcc $2704
        
        mov a, !$03f2; setc; sbc a, !$03f3; mov !$03f2, a; bcs $2723
        
        dec $03f1
        
        mov a, !$03f4; cmp a, !$03f1; bne $2723
        
        mov a, #$00; mov !$03f5, a
                     mov !$03f6, a
        
        bra $2723
    
    $2704:
    
        mov a, !$03f3; clrc; adc a, !$03f2; mov !$03f2, a; bcc $2723
        
        inc !$03f1
        
        mov a, !$03f4; cmp a, !$03f1; bne $2723
        
        mov a, #$00; mov !$03f5, a
                     mov !$03f6, a
    
    $2723:
    
        mov a, !$03f2; mov y, !$03f1; movw $10, ya
        
        mov x, $03b2
        
        call $16b1
    
    $2731:
    
        ret

// =============================================================================

    $2732:
    
        mov a, #$ff; mov !$039c, a
        
        mov a, #$00; mov !$03d8, a
        
        mov a, !$03b3; and a, !$03aa; mov !$03b3, a
        
        mov a, $1a; and a, !$03aa; mov $1a, a
        
        mov a, $47; or a, !$03a6; mov $47, a
        
        mov a, $46; or a, !$03a6; mov $46, a
        
        mov x, !$03af
        
        mov a, !$0211+x
        
        call $18fc
        
        mov x, !$03af
        
        mov a, !$03b8; mov !$0321+x, a
        
        mov a, !$03b9; mov !$0351+x, a
        
        jmp $283e

// =============================================================================

    $2775:
    
        mov a, #$ff; mov !$039d, a
        
        mov a, #$00; mov !$03d9, a
        
        mov a, !$03b3; and a, !$03ab; mov !$03b3, a
        
        mov a, $1a; and a, !$03ab; mov $1a, a
        
        mov a, $47; or a, !$03a7; mov $47, a
        
        mov a, $46; or a, !$03a7; mov $46, a
        
        mov x, !$03b0
        
        mov a, !$0211+x
        
        call $18fc
        
        mov x, !$03b0
        
        mov a, !$03ba; mov !$0321+x, a
        
        mov a, !$03bb; mov !$0351+x, a
        
        jmp $283e

// =============================================================================

    $27b8:
    
        mov a, #$ff; mov !$039e, a
        
        mov a, #$00; mov !$03da, a
        
        mov a, !$03b3; and a, !$03ac; mov !$03b3, a
        
        mov a, $1a; and a, !$03ac; mov $1a, a
        
        mov a, $47; or a, !$03a8; mov $47, a
        
        mov a, $46; or a, !$03a8; mov $46, a
        
        mov x, !$03b1
        
        mov a, !$0211+x
        
        call $18fc
        
        mov x, !$03b1
        
        mov a, !$03bc; mov !$0321+x, a
        
        mov a, !$03bd; mov !$0351+x, a
        
        jmp $283e

// =============================================================================

    $27fb:
    
        mov a, #$ff; mov !$039f, a
        
        mov a, #$00; mov !$03db, a
        
        mov a, !$03b3; and a, !$03ad; mov !$03b3, a
        
        mov a, $1a; and a, !$03ad; mov $1a, a
        
        mov a, $47; or a, !$03a9; mov $47, a
        
        mov a, $46; or a, !$03a9; mov $46, a
        
        mov x, !$03b2
        
        mov a, !$0211+x
        
        call $18fc
        
        mov x, !$03b2
        
        mov a, !$03be; mov !$0321+x, a
        
        mov a, !$03bf; mov !$0351+x, a
        
        jmp $283e
    
    $283e:
    
        mov a, !$03b3; bne $284e
        
        mov a, #$00; mov !$0392, a
                     mov !$04bb, a
                     mov !$03a4, a
    
    $284e:
    
        ret

// =============================================================================

    $284f:
    
        mov y, !$0394
        
        mov a, ($2a)+y
        
        inc !$0394
        
        ret

// =============================================================================

    $2858:
    
        mov y, !$0395
        
        mov a, ($2c)+y
        
        inc !$0395
        
        ret

// =============================================================================

    $2861:
    
        mov y, !$0396
        
        mov a, ($2e)+y
        
        inc !$0396
        
        ret

// =============================================================================

    $286a:
    
        mov y, !$0397
        
        mov a, ($d0)+y
        
        inc !$0397
        
        ret

// =============================================================================

    $2873:
    
        // stub?
        ret

// =============================================================================

    $2874:
    
        // stub?
        ret

// =============================================================================

    // uses the return address of the calling function as a table of pointers to
    // a new function

    $2875:
    
        cmp a, #$01; beq $2895
        
        dec a; asl a; mov y, a
    
    $287c:
    
        // $20.w = return address popped off the stack
        pop a; mov !$0020, a
        pop a; mov !$0021, a
        
               mov a, ($20)+y; mov x, a
        inc y; mov a, ($20)+y;
        
        //  $20.w = pointer obtained from indirection of old $20.w value
        mov !$0021, a
        mov !$0020, x
        
        mov x, #$00
        
        // jump to that location
        jmp (!$0020+x)
    
    $2895:
    
        mov y, #$00
        
        // ya = 0x0001; goto $287c;
        jmp $287c

// ==============================================================================


    $289a:
    
        dw $03a6
        dw $03a7
        dw $03a8
        dw $03a9
    
    $28a2:
    
        dw $03aa
        dw $03ab
        dw $03ac
        dw $03ad
    
    $28aa:
    
        dw $03af
        dw $03b0
        dw $03b1
        dw $03b2
    
    $28b2:
    
        mov a, #$09; mov !$03a5, a
        
        mov a, $1a; mov !$03a3, a
        
        mov a, #$ff; mov !$03a4, a
        
        mov a, #$00; mov !$03ae, a
                     mov !$03a0, a
                     mov !$03a6, a
                     mov !$03a7, a
                     mov !$03a8, a
                     mov !$03a9, a
                     mov !$03af, a
                     mov !$03b0, a
                     mov !$03b1, a
                     mov !$03b2, a
        
        mov a, #$ff; mov !$03aa, a
                     mov !$03ab, a
                     mov !$03ac, a
                     mov !$03ad, a
                     mov !$039c, a
                     mov !$039d, a
                     mov !$039e, a
                     mov !$039f, a
    
    $28fb:
    
        dec !$03a5; beq $297e
        
        asl !$03a3; bcs $28fb
        
        mov a, #$00; cmp a, !$03a1; beq $297e
        
        dec !$03a1
        
        mov a, #$00
        
        mov x,!$03a0
        
        mov !$039c+x, a
        
        inc !$03a0
        
        mov a, !$03ae; mov x, a; mov y, a
        
        mov a, !$289a+x; mov $24, a
        mov a, !$28a2+x; mov $26, a
        mov a, !$28aa+x; mov $28, a
        
        inc x
        
        mov a, !$289a+x; mov $25, a
        mov a, !$28a2+x; mov $27, a
        mov a, !$28aa+x; mov $29, a
        
        inc !$03ae; inc !$03ae
        
        mov a, !$03a5; mov !$03a2, a
        
        dec !$03a2
        
        clrc; asl !$03a2
        
        mov x, !$03a2
        
        mov a, !$0321+x; mov !$03b8+y, a
        
        inc y
        
        mov a, !$0351+x; mov !$03b8+y, a
        
        mov y, #$00
        
        mov a, !$03a2; mov ($28)+y, a
        
        mov a, !$03a5
        
        call $2875
        
        dw $2a3c
        dw $2a21
        dw $2a06
        dw $29eb
        dw $29d0
        dw $29b5
        dw $299a
        dw $297f
    
    $297e:
    
        ret

// =============================================================================

    $297f:
    
        set7 $1a
        
        clr7 $47
        
        clr7 $4a
        
        mov a, #$80; or a, !$03b3; mov !$03b3, a
        
        mov y, #$00
        
        mov a, #$80; mov ($24)+y, a
        
        mov a, #$7f; mov ($26)+y, a
        
        jmp $28fb

// =============================================================================

    $299a:
    
        set6 $1a
        
        clr6 $47
        
        clr6 $4a
        
        mov a, #$40; or a, !$03b3; mov !$03b3, a
        
        mov y, #$00
        
        mov a, #$40; mov ($24)+y, a
        
        mov a, #$bf; mov ($26)+y, a
        
        jmp $28fb

// =============================================================================

    $29b5:
    
        set5 $1a
        
        clr5 $47
        
        clr5 $4a
        
        mov a, #$20; or a, !$03b3; mov !$03b3, a
        
        mov y, #$00
        
        mov a, #$20; mov ($24)+y, a
        
        mov a, #$df; mov ($26)+y, a
        
        jmp $28fb

// =============================================================================

    $29d0:
    
        set4 $1a
        
        clr4 $47
        
        clr4 $4a
        
        mov a, #$10; or a, !$03b3; mov !$03b3, a
        
        mov y, #$00
        
        mov a, #$10; mov ($24)+y, a
        
        mov a, #$ef; mov ($26)+y, a
        
        jmp $28fb

// =============================================================================

    $29eb:
    
        set3 $1a
        
        clr3 $47
        
        clr3 $4a
        
        mov a, #$08; or a, !$03b3; mov !$03b3, a
        
        mov y, #$00
        
        mov a, #$08; mov ($24)+y, a
        
        mov a, #$f7; mov ($26)+y, a
        
        jmp $28fb

// =============================================================================

    $2a06:
    
        set2 $1a
        
        clr2 $47
        
        clr2 $4a
        
        mov a, #$04; or a, !$03b3; mov !$03b3, a
        
        mov y, #$00
        
        mov a, #$04; mov ($24)+y, a
        
        mov a, #$fb; mov ($26)+y, a
        
        jmp $28fb

// =============================================================================

    $2a21:
    
        set1 $1a
        
        clr1 $47
        
        clr1 $4a
        
        mov a, #$02; or a, !$03b3; mov !$03b3, a
        
        mov y, #$00
        
        mov a, #$02; mov ($24)+y, a
        
        mov a, #$fd; mov ($26)+y, a
        
        jmp $28fb
    
    $2a3c:
    
        set0 $1a
        
        clr0 $47
        
        clr0 $4a
        
        mov a, #$01; or a, !$03b3; mov !$03b3, a
        
        mov y, #$00
        
        mov a, #$01; mov ($24)+y, a
        
        mov a, #$fe; mov ($26)+y, a
        
        jmp $28fb
    
    $2a57:
    
        inc y
        
        mov a, ($22)+y
        
        ret
    
    $2a5b:
    
        asl a; asl a; asl a
        
        ret

// =============================================================================

    $2a5f:
    
        call $2ae2
        
        ret

// =============================================================================

    $2a63:
    
        call $2aab
        
        ret

// =============================================================================

    $2a67:
    
        call $2ac1
        
        ret

// =============================================================================

    $2a6b:
    
        call $2aab
        
        ret

// =============================================================================

    $2a6f:
    
        call $2ac1
        
        ret

// =============================================================================

    $2a73:
    
        call $2aab
        
        ret

// =============================================================================

    $2a77:
    
        call $2ac1
        
        ret

// =============================================================================

    $2a7b:
    
        call $2aab
        
        ret

// =============================================================================

    $2a7f:
    
        call $2aab
        
        ret

// =============================================================================

    $2a83:
    
        call $2aab
        
        ret

// =============================================================================

    $2a87:
    
        call $2ad7
        
        ret

// =============================================================================

    $2a8b:
    
        call $2aab
        
        ret

// =============================================================================

    $2a8f:
    
        call $2ac1
        
        ret

// =============================================================================

    $2a93:
    
        call $2aab
        
        ret

// =============================================================================

    $2a97:
    
        call $2ab6
        
        ret

// =============================================================================

    $2a9b:
    
        call $2aab
        
        ret

// =============================================================================

    $2a9f:
    
        call $2acc
        
        ret

// =============================================================================

    $2aa3:
    
        call $2ac1
        
        ret

// =============================================================================

    $2aa7:
    
        call $2ac1
        
        ret

// =============================================================================

    $2aab:
    
        mov a, #$01; mov !$03a1, a
        
        mov a, #$00; mov !$04bb, a
        
        ret

// =============================================================================

    $2ab6:
    
        mov a, #$01; mov !$03a1, a
        
        mov a, #$01; mov !$04bb, a
        
        ret

// =============================================================================

    $2ac1:
    
        mov a, #$02; mov !$03a1, a
        
        mov a, #$00; mov !$04bb, a
        
        ret

// =============================================================================

    $2acc:
    
        mov a, #$03; mov !$03a1, a
        
        mov a, #$01; mov !$04bb, a
        
        ret

// =============================================================================

    $2ad7:
    
        mov a, #$04; mov !$03a1, a
        
        mov a, #$00; mov !$04bb, a
        
        ret

// =============================================================================

    $2ae2:
    
        mov a, #$04; mov !$03a1, a
        
        mov a, #$00; mov !$04bb, a
        
        ret

// =============================================================================

$2aed:

    // pointers to pointers to 0xff-terminated data streams? what for, though?
    dw $2b71
    dw $2baf
    dw $2bb7
    dw $2bc4
    dw $2bd1
    dw $2bfc
    dw $2c2f
    dw $2c37
    dw $2cff
    dw $2d12
    dw $2d1a
    dw $2d27
    dw $2d4b
    dw $2d5d
    dw $2d5f
    dw $2d76
    dw $2d95
    dw $2d97
    dw $2d99
    dw $2da6
    dw $2da8
    dw $2daa
    dw $2dac
    dw $2dc8
    dw $2de7
    dw $2dfe
    dw $2e00
    dw $2e17
    dw $2e19
    dw $2e1b
    dw $2e1d
    dw $2e34
    dw $2e36
    dw $2e38
    dw $2e3a
    dw $2e68
    dw $2eaf
    dw $2ed0
    dw $2ef6
    dw $2f2c
    dw $2f37
    dw $2f3f
    dw $2f47
    dw $2f4a
    dw $2f4d
    dw $2f50
    dw $2fb0
    dw $2fb8
    dw $2fc3
    dw $2fdd
    dw $2fe5
    dw $3040
    dw $3048 
    dw $3055 
    dw $305d 
    dw $3065 
    dw $3070 
    dw $3078 
    dw $307b 
    dw $308b 
    dw $309b 
    dw $30a8 
    dw $30d6 
    dw $30e1
    dw $312a
    dw $313f

$2b71
    dw $2b79
    
// =============================================================================

2b73: 82
2b74: 2b 93     rol $93
2b76: 2b a1     rol $a1
2b78: 2b f5     rol $f5
2b7a: b0 c7     bcs   $2b43
2b7c: 05 d0 0a  or a, $0ad0
2b7f: 98 46 ff  adc $ff,#$46
2b82: f5 a0 c7  mov a, $c7a0+x
2b85: 09 d0 0f  or $0f, $d0
2b88: 80        setc
2b89: 50 f5     bvc   $2b80
2b8b: 50 80     bvc   $2b0d
2b8d: 09 d0 0a  or $0a, $d0
2b90: ab 46     inc $46
2b92: ff        stop
2b93: 09 d0 0f  or $0f, $d0
2b96: 87 10     adc a,($10+x)
2b98: f5 b0 c7  mov a, $c7b0+x
2b9b: 05 d0 0f  or a, $0fd0
2b9e: 80        setc
2b9f: 60        clrc
2ba0: ff        stop
2ba1: 09 d0 05  or $05, $d0
2ba4: 82 30     set4  $30
2ba6: f5 a0 80  mov a, $80a0+x
2ba9: 05 d0 05  or a, $05d0
2bac: c7 60     mov ($60+x), a
2bae: ff        stop
2baf: b1        tcall 11
2bb0: 2b 15     rol $15
2bb2: 00        nop
2bb3: 0a bc 03  or1   c,$0077,4
2bb6: ff        stop
2bb7: b9        sbc (x),(y)
2bb8: 2b 00     rol $00
2bba: d8 0a     mov $0a,x
2bbc: 95 08 01  adc a, $0108+x
2bbf: d8 0a     mov $0a,x
2bc1: 8b 30     dec $30
2bc3: ff        stop
2bc4: c6        mov (x), a
2bc5: 2b 00     rol $00
2bc7: d0 0a     bne $2bd3
2bc9: 95 08 01  adc a, $0108+x
2bcc: d0 0a     bne $2bd8
2bce: 90 30     bcc $2c00
2bd0: ff        stop
2bd1: d3 2b 01  bbc6  $2b,$2bd4
2bd4: 80        setc
2bd5: 0a 9d 10  or1   c,$0213,5
2bd8: 02 50     set0  $50
2bda: 0a 93 07  or1   c,$00f2,3
2bdd: 02 50     set0  $50
2bdf: 0a 93 03  or1   c,$0072,3
2be2: 02 50     set0  $50
2be4: 0a 93 05  or1   c,$00b2,3
2be7: 02 50     set0  $50
2be9: 0a 93 08  or1   c,$0112,3
2bec: 02 50     set0  $50
2bee: 0a 93 04  or1   c,$0092,3
2bf1: 02 50     set0  $50
2bf3: 0a 93 06  or1   c,$00d2,3
2bf6: 02 50     set0  $50
2bf8: 0a 93 04  or1   c,$0092,3
2bfb: ff        stop
2bfc: fe 2b     dbnz  y,$2c29
2bfe: 0d        push  psw
2bff: 50 0a     bvc   $2c0b
2c01: 80        setc
2c02: 03 0d 50  bbs0 $0d,$2c54
2c05: 0a 85 04  or1   c,$0090,5
2c08: fe 00     dbnz  y,$2c0a
2c0a: 02 50     set0  $50
2c0c: 0a 93 07  or1   c,$00f2,3
2c0f: 02 50     set0  $50
2c11: 0a 93 03  or1   c,$0072,3
2c14: 02 50     set0  $50
2c16: 0a 93 05  or1   c,$00b2,3
2c19: 02 50     set0  $50
2c1b: 0a 93 08  or1   c,$0112,3
2c1e: 02 50     set0  $50
2c20: 0a 93 04  or1   c,$0092,3
2c23: 02 50     set0  $50
2c25: 0a 93 06  or1   c,$00d2,3
2c28: 02 50     set0  $50
2c2a: 0a 93 04  or1   c,$0092,3
2c2d: fb ff     mov y,$ff+x
2c2f: 31        tcall 3
2c30: 2c 02 50  rol $5002
2c33: 0a 93 05  or1   c,$00b2,3
2c36: ff        stop
2c37: 3b 2c     rol $2c+x
2c39: 51        tcall 5
2c3a: 2c 05 00  rol $0005
2c3d: 0a b4 15  or1   c,$02b6,4
2c40: f5 30 c7  mov a, $c730+x
2c43: 05 50 0a  or a, $0a50
2c46: b7 25     sbc a,($25)+y
2c48: fe 00     dbnz  y,$2c4a
2c4a: 07 60     or a,($60+x)
2c4c: 0a c7 30  or1   c,$0618,7
2c4f: fb ff     mov y,$ff+x
2c51: 02 00     set0  $00
2c53: 0a 9c 07  or1   c,$00f3,4
2c56: 02 10     set0  $10
2c58: 0a 9c 03  or1   c,$0073,4
2c5b: 02 00     set0  $00
2c5d: 0a 9c 05  or1   c,$00b3,4
2c60: 02 20     set0  $20
2c62: 0a 9c 08  or1   c,$0113,4
2c65: 02 20     set0  $20
2c67: 0a 9c 04  or1   c,$0093,4
2c6a: 02 30     set0  $30
2c6c: 0a 9c 06  or1   c,$00d3,4
2c6f: 02 00     set0  $00
2c71: 0a 9c 04  or1   c,$0093,4
2c74: 02 30     set0  $30
2c76: 0a 9c 03  or1   c,$0073,4
2c79: 02 30     set0  $30
2c7b: 0a 9c 07  or1   c,$00f3,4
2c7e: 02 00     set0  $00
2c80: 0a 9c 0a  or1   c,$0153,4
2c83: 02 30     set0  $30
2c85: 0a 9c 03  or1   c,$0073,4
2c88: 02 00     set0  $00
2c8a: 0a 9c 04  or1   c,$0093,4
2c8d: 02 40     set0  $40
2c8f: 0a 9c 03  or1   c,$0073,4
2c92: 02 40     set0  $40
2c94: 0a 9c 07  or1   c,$00f3,4
2c97: 02 00     set0  $00
2c99: 0a 9c 05  or1   c,$00b3,4
2c9c: 02 40     set0  $40
2c9e: 0a 9c 06  or1   c,$00d3,4
2ca1: 02 40     set0  $40
2ca3: 0a 9c 03  or1   c,$0073,4
2ca6: 02 00     set0  $00
2ca8: 0a 9c 0a  or1   c,$0153,4
2cab: 02 50     set0  $50
2cad: 0a 9c 03  or1   c,$0073,4
2cb0: 02 50     set0  $50
2cb2: 0a 9c 03  or1   c,$0073,4
2cb5: 02 60     set0  $60
2cb7: 0a 9c 05  or1   c,$00b3,4
2cba: 02 00     set0  $00
2cbc: 0a 9c 06  or1   c,$00d3,4
2cbf: 02 60     set0  $60
2cc1: 0a 9c 07  or1   c,$00f3,4
2cc4: 02 00     set0  $00
2cc6: 0a 9c 03  or1   c,$0073,4
2cc9: 02 60     set0  $60
2ccb: 0a 9c 04  or1   c,$0093,4
2cce: 02 60     set0  $60
2cd0: 0a 9c 03  or1   c,$0073,4
2cd3: 02 00     set0  $00
2cd5: 0a 9c 03  or1   c,$0073,4
2cd8: fe 00     dbnz  y,$2cda
2cda: 02 40     set0  $40
2cdc: 0a 9c 05  or1   c,$00b3,4
2cdf: 02 40     set0  $40
2ce1: 0a 9c 06  or1   c,$00d3,4
2ce4: 02 40     set0  $40
2ce6: 0a 9c 07  or1   c,$00f3,4
2ce9: 02 40     set0  $40
2ceb: 0a 9c 03  or1   c,$0073,4
2cee: 02 40     set0  $40
2cf0: 0a 9c 04  or1   c,$0093,4
2cf3: 02 40     set0  $40
2cf5: 0a 9c 03  or1   c,$0073,4
2cf8: 02 40     set0  $40
2cfa: 0a 9c 03  or1   c,$0073,4
2cfd: fb ff     mov y,$ff+x
2cff: 01        tcall 0
2d00: 2d        push a
2d01: f5 70 ad  mov a, $ad70+x
2d04: 06        or a,(x)
2d05: 40        setp
2d06: 0a a4 40  or1   c,$0814,4
2d09: fe 00     dbnz  y,$2d0b
2d0b: 06        or a,(x)
2d0c: 40        setp
2d0d: 0a ad f0  or1   c,$1e15,5
2d10: fb ff     mov y,$ff+x
2d12: 14 2d     or a, $2d+x
2d14: 06        or a,(x)
2d15: 00        nop
2d16: 0a ad 03  or1   c,$0075,5
2d19: ff        stop
2d1a: 1c        asl a
2d1b: 2d        push a
2d1c: 04 90     or a, $90
2d1e: 0a 89 03  or1   c,$0071,1
2d21: 04 90     or a, $90
2d23: 0a 84 0e  or1   c,$01d0,4
2d26: ff        stop
2d27: 29 2d 04  and $04, $2d
2d2a: b0 0a     bcs   $2d36
2d2c: 8b 03     dec $03
2d2e: 04 b0     or a, $b0
2d30: 0a 89 07  or1   c,$00f1,1
2d33: f5 90 c7  mov a, $c790+x
2d36: 10 90     bpl $2cc8
2d38: 0a bc 0a  or1   c,$0157,4
2d3b: 10 60     bpl $2d9d
2d3d: 0a c3 06  or1   c,$00d8,3
2d40: 10 30     bpl $2d72
2d42: 0a c7 03  or1   c,$0078,7
2d45: 10 20     bpl $2d67
2d47: 0a c7 03  or1   c,$0078,7
2d4a: ff        stop
2d4b: 4d        push x
2d4c: 2d        push a
2d4d: 04 90     or a, $90
2d4f: 0a 89 03  or1   c,$0071,1
2d52: 04 70     or a, $70
2d54: 0a 84 0b  or1   c,$0170,4
2d57: 04 30     or a, $30
2d59: 0a 84 08  or1   c,$0110,4
2d5c: ff        stop
2d5d: 29 2d 61  and $61, $2d
2d60: 2d        push a
2d61: 00        nop
2d62: d0 0a     bne $2d6e
2d64: 98 0c 04  adc $04,#$0c
2d67: c0        di
2d68: 0a 80 10  or1   c,$0210,0
2d6b: 04 30     or a, $30
2d6d: 0a 80 08  or1   c,$0110,0
2d70: 04 10     or a, $10
2d72: 0a 80 06  or1   c,$00d0,0
2d75: ff        stop
2d76: 78 2d 00  cmp $00,#$2d
2d79: d0 0a     bne $2d85
2d7b: 98 0c f5  adc $f5,#$0c
2d7e: 90 c7     bcc $2d47
2d80: 10 90     bpl $2d12
2d82: 0a bc 0a  or1   c,$0157,4
2d85: 10 60     bpl $2de7
2d87: 0a c3 06  or1   c,$00d8,3
2d8a: 10 30     bpl $2dbc
2d8c: 0a c7 03  or1   c,$0078,7
2d8f: 10 20     bpl $2db1
2d91: 0a c7 03  or1   c,$0078,7
2d94: ff        stop
2d95: 78 2d 61  cmp $61,#$2d
2d98: 2d        push a
2d99: 9b 2d     dec $2d+x
2d9b: 00        nop
2d9c: d0 0a     bne $2da8
2d9e: 98 0c 04  adc $04,#$0c
2da1: b0 0a     bcs   $2dad
2da3: 80        setc
2da4: 13 ff 78  bbc0  $ff,$2e1e
2da7: 2d        push a
2da8: 78 2d 9b  cmp $9b,#$2d
2dab: 2d        push a
2dac: ae        pop a
2dad: 2d        push a
2dae: 04 d0     or a, $d0
2db0: 0a 84 05  or1   c,$00b0,4
2db3: 04 d0     or a, $d0
2db5: 0a 80 0c  or1   c,$0190,0
2db8: 02 80     set0  $80
2dba: 0a 98 03  or1   c,$0073,0
2dbd: 02 60     set0  $60
2dbf: 0a 98 03  or1   c,$0073,0
2dc2: 02 50     set0  $50
2dc4: 0a 98 03  or1   c,$0073,0
2dc7: ff        stop
2dc8: ca 2d 00  mov1  $0005,5,c
2dcb: e0        clrv
2dcc: 0a 98 0c  or1   c,$0193,0
2dcf: f5 b0 c7  mov a, $c7b0+x
2dd2: 10 e0     bpl $2db4
2dd4: 0a bc 0a  or1   c,$0157,4
2dd7: 10 70     bpl $2e49
2dd9: 0a c3 06  or1   c,$00d8,3
2ddc: 10 30     bpl $2e0e
2dde: 0a c7 03  or1   c,$0078,7
2de1: 10 20     bpl $2e03
2de3: 0a c7 03  or1   c,$0078,7
2de6: ff        stop
2de7: e9 2d 04  mov x,$042d
2dea: e0        clrv
2deb: 0a 84 03  or1   c,$0070,4
2dee: 04 e0     or a, $e0
2df0: 0a 80 10  or1   c,$0210,0
2df3: 04 50     or a, $50
2df5: 0a 80 04  or1   c,$0090,0
2df8: 04 30     or a, $30
2dfa: 0a 80 09  or1   c,$0130,0
2dfd: ff        stop
2dfe: ca 2d 02  mov1  $0045,5,c
2e01: 2e 00 d0  cbne $00,$2dd3
2e04: 0a 95 08  or1   c,$0112,5
2e07: 04 d0     or a, $d0
2e09: 0a 80 0f  or1   c,$01f0,0
2e0c: 04 80     or a, $80
2e0e: 0a 80 0d  or1   c,$01b0,0
2e11: 04 20     or a, $20
2e13: 0a 80 0a  or1   c,$0150,0
2e16: ff        stop
2e17: ca 2d ca  mov1  $1945,5,c
2e1a: 2d        push a
2e1b: 02 2e     set0  $2e
2e1d: 1f 2e 00  jmp ($002e+x)
2e20: d0 0a     bne $2e2c
2e22: 98 0e 04  adc $04,#$0e
2e25: d0 0a     bne $2e31
2e27: 80        setc
2e28: 10 04     bpl $2e2e
2e2a: 70 0a     bvs   $2e36
2e2c: 80        setc
2e2d: 10 04     bpl $2e33
2e2f: 30 0a     bmi $2e3b
2e31: 80        setc
2e32: 10 ff     bpl $2e33
2e34: ca 2d ca  mov1  $1945,5,c
2e37: 2d        push a
2e38: 1f 2e 3c  jmp ($3c2e+x)
2e3b: 2e fe 00  cbne $fe,$2e3d
2e3e: 10 50     bpl $2e90
2e40: 0a c0 03  or1   c,$0078,0
2e43: 10 50     bpl $2e95
2e45: 0a c1 03  or1   c,$0078,1
2e48: 10 60     bpl $2eaa
2e4a: 0a c3 03  or1   c,$0078,3
2e4d: 10 60     bpl $2eaf
2e4f: 0a c5 03  or1   c,$0078,5
2e52: 10 70     bpl $2ec4
2e54: 0a c7 03  or1   c,$0078,7
2e57: 10 60     bpl $2eb9
2e59: 0a c5 03  or1   c,$0078,5
2e5c: 10 50     bpl $2eae
2e5e: 0a c3 03  or1   c,$0078,3
2e61: 10 50     bpl $2eb3
2e63: 0a c1 03  or1   c,$0078,1
2e66: fb ff     mov y,$ff+x
2e68: 6c 2e 9f  ror $9f2e
2e6b: 2e 10 d0  cbne $10,$2e3d
2e6e: 0a bc 0a  or1   c,$0157,4
2e71: 10 70     bpl $2ee3
2e73: 0a c3 06  or1   c,$00d8,3
2e76: 10 30     bpl $2ea8
2e78: 0a c7 03  or1   c,$0078,7
2e7b: 10 20     bpl $2e9d
2e7d: 0a c7 03  or1   c,$0078,7
2e80: 10 50     bpl $2ed2
2e82: 0a c3 06  or1   c,$00d8,3
2e85: 10 40     bpl $2ec7
2e87: 0a c7 03  or1   c,$0078,7
2e8a: 10 40     bpl $2ecc
2e8c: 0a c7 03  or1   c,$0078,7
2e8f: 10 30     bpl $2ec1
2e91: 0a c3 06  or1   c,$00d8,3
2e94: 10 20     bpl $2eb6
2e96: 0a c7 03  or1   c,$0078,7
2e99: 10 20     bpl $2ebb
2e9b: 0a c7 03  or1   c,$0078,7
2e9e: ff        stop
2e9f: 04 d0     or a, $d0
2ea1: 0a 80 10  or1   c,$0210,0
2ea4: 04 70     or a, $70
2ea6: 0a 80 10  or1   c,$0210,0
2ea9: 04 30     or a, $30
2eab: 0a 80 10  or1   c,$0210,0
2eae: ff        stop
2eaf: b1        tcall 11
2eb0: 2e 04 d0  cbne $04,$2e82
2eb3: 0a 80 10  or1   c,$0210,0
2eb6: 04 70     or a, $70
2eb8: 0a 80 10  or1   c,$0210,0
2ebb: 04 30     or a, $30
2ebd: 0a 80 02  or1   c,$0050,0
2ec0: 04 d0     or a, $d0
2ec2: 0a 80 10  or1   c,$0210,0
2ec5: 04 70     or a, $70
2ec7: 0a 80 10  or1   c,$0210,0
2eca: 04 30     or a, $30
2ecc: 0a 80 10  or1   c,$0210,0
2ecf: ff        stop
2ed0: d2 2e     clr6  $2e
2ed2: 04 d0     or a, $d0
2ed4: 0a 80 10  or1   c,$0210,0
2ed7: 04 70     or a, $70
2ed9: 0a 80 04  or1   c,$0090,0
2edc: 04 30     or a, $30
2ede: 0a 80 02  or1   c,$0050,0
2ee1: 04 30     or a, $30
2ee3: 0a 80 06  or1   c,$00d0,0
2ee6: 04 30     or a, $30
2ee8: 0a 80 06  or1   c,$00d0,0
2eeb: 04 70     or a, $70
2eed: 0a 80 07  or1   c,$00f0,0
2ef0: 04 70     or a, $70
2ef2: 0a 80 07  or1   c,$00f0,0
2ef5: ff        stop
2ef6: fa 2e 13  mov $13, $2e
2ef9: 2f f5     bra $2ef0
2efb: 30 c7     bmi $2ec4
2efd: 07 90     or a,($90+x)
2eff: 0a b7 25  or1   c,$04b6,7
2f02: f5 30 b7  mov a, $b730+x
2f05: 07 90     or a,($90+x)
2f07: 0a f6 25  or1   c,$04be,6
2f0a: f5 b0 c7  mov a, $c7b0+x
2f0d: 07 90     or a,($90+x)
2f0f: 0a f6 25  or1   c,$04be,6
2f12: ff        stop
2f13: f5 30 c7  mov a, $c730+x
2f16: 05 90 0a  or a, $0a90
2f19: b7 27     sbc a,($27)+y
2f1b: f5 30 b7  mov a, $b730+x
2f1e: 05 90 0a  or a, $0a90
2f21: f6 27 f5  mov a, $f527+y
2f24: b0 c7     bcs   $2eed
2f26: 05 90 0a  or a, $0a90
2f29: f6 27 ff  mov a, $ff27+y
2f2c: 2e 2f f5  cbne $2f,$2f23
2f2f: 30 c7     bmi $2ef8
2f31: 05 50 0a  or a, $0a50
2f34: b7 25     sbc a,($25)+y
2f36: ff        stop
2f37: 39        and (x),(y)
2f38: 2f 05     bra $2f3f
2f3a: 00        nop
2f3b: 0a b7 03  or1   c,$0076,7
2f3e: ff        stop
2f3f: 41        tcall 4
2f40: 2f 07     bra $2f49
2f42: 90 0a     bcc $2f4e
2f44: c5 12 ff  mov $ff12, a
2f47: 49 2f ff  eor $ff, $2f
2f4a: 4c 2f ff  lsr $ff2f
2f4d: 4f 2f     pcall $2f
2f4f: ff        stop
2f50: 58 2f 6e  eor $6e,#$2f
2f53: 2f 84     bra $2ed9
2f55: 2f 9a     bra $2ef1
2f57: 2f f5     bra $2f4e
2f59: f0 b1     beq $2f0c
2f5b: 06        or a,(x)
2f5c: 45 0a 99  eor a, $990a
2f5f: 19        or (x),(y)
2f60: 06        or a,(x)
2f61: 45 0a b1  eor a, $b10a
2f64: 80        setc
2f65: f5 f0 99  mov a, $99f0+x
2f68: 06        or a,(x)
2f69: 45 0a b1  eor a, $b10a
2f6c: 19        or (x),(y)
2f6d: ff        stop
2f6e: f5 f0 a7  mov a, $a7f0+x
2f71: 06        or a,(x)
2f72: 45 0a 8f  eor a, $8f0a
2f75: 19        or (x),(y)
2f76: 06        or a,(x)
2f77: 45 0a a7  eor a, $a70a
2f7a: 80        setc
2f7b: f5 f0 8f  mov a, $8ff0+x
2f7e: 06        or a,(x)
2f7f: 45 0a a7  eor a, $a70a
2f82: 19        or (x),(y)
2f83: ff        stop
2f84: f5 f0 a0  mov a, $a0f0+x
2f87: 06        or a,(x)
2f88: 45 0a 88  eor a, $880a
2f8b: 19        or (x),(y)
2f8c: 06        or a,(x)
2f8d: 45 0a a0  eor a, $a00a
2f90: 80        setc
2f91: f5 f0 88  mov a, $88f0+x
2f94: 06        or a,(x)
2f95: 45 0a a0  eor a, $a00a
2f98: 19        or (x),(y)
2f99: ff        stop
2f9a: f5 f0 98  mov a, $98f0+x
2f9d: 06        or a,(x)
2f9e: 45 0a 80  eor a, $800a
2fa1: 19        or (x),(y)
2fa2: 06        or a,(x)
2fa3: 45 0a 98  eor a, $980a
2fa6: 80        setc
2fa7: f5 f0 80  mov a, $80f0+x
2faa: 06        or a,(x)
2fab: 45 0a 98  eor a, $980a
2fae: 19        or (x),(y)
2faf: ff        stop
2fb0: b2 2f     clr5  $2f
2fb2: 07 80     or a,($80+x)
2fb4: 0a c7 10  or1   c,$0218,7
2fb7: ff        stop
2fb8: ba 2f     movw ya, $2f
2fba: fe 00     dbnz  y,$2fbc
2fbc: 07 80     or a,($80+x)
2fbe: 0a c7 10  or1   c,$0218,7
2fc1: fb ff     mov y,$ff+x
2fc3: c5 2f 07  mov $072f, a
2fc6: 30 0a     bmi $2fd2
2fc8: c5 10 07  mov $0710, a
2fcb: 40        setp
2fcc: 0a c6 10  or1   c,$0218,6
2fcf: 07 50     or a,($50+x)
2fd1: 0a c7 10  or1   c,$0218,7
2fd4: fe 00     dbnz  y,$2fd6
2fd6: 07 80     or a,($80+x)
2fd8: 0a c7 10  or1   c,$0218,7
2fdb: fb ff     mov y,$ff+x
2fdd: df        daa   a
2fde: 2f 0a     bra $2fea
2fe0: 00        nop
2fe1: 0a 87 03  or1   c,$0070,7
2fe4: ff        stop
2fe5: e9 2f 15  mov x,$152f
2fe8: 30 07     bmi $2ff1
2fea: 30 0a     bmi $2ff6
2fec: c7 04     mov ($04+x), a
2fee: 07 40     or a,($40+x)
2ff0: 0a c7 05  or1   c,$00b8,7
2ff3: 07 50     or a,($50+x)
2ff5: 0a c7 06  or1   c,$00d8,7
2ff8: 07 60     or a,($60+x)
2ffa: 0a c7 07  or1   c,$00f8,7
2ffd: 07 70     or a,($70+x)
2fff: 0a c7 09  or1   c,$0138,7
3002: 07 80     or a,($80+x)
3004: 0a c7 0d  or1   c,$01b8,7
3007: 07 80     or a,($80+x)
3009: 0a c7 0f  or1   c,$01f8,7
300c: fe 00     dbnz  y,$300e
300e: 07 80     or a,($80+x)
3010: 0a c7 10  or1   c,$0218,7
3013: fb ff     mov y,$ff+x
3015: f5 e0 bc  mov a, $bce0+x
3018: 05 60 0a  or a, $0a60
301b: 98 0e f5  adc $f5,#$0e
301e: e0        clrv
301f: bc        inc a
3020: 05 70 0a  or a, $0a70
3023: a4 08     sbc a, $08
3025: f5 e0 bc  mov a, $bce0+x
3028: 05 80 0a  or a, $0a80
302b: b0 06     bcs   $3033
302d: fe 00     dbnz  y,$302f
302f: 05 80 0a  or a, $0a80
3032: bc        inc a
3033: 03 05 80  bbs0 $05,$2fb5
3036: 0a c4 03  or1   c,$0078,4
3039: 05 80 0a  or a, $0a80
303c: c6        mov (x), a
303d: 03 fb ff  bbs0 $fb,$303e
3040: 42 30     set2  $30
3042: 0a 00 0a  or1   c,$0140,0
3045: 87 03     adc a,($03+x)
3047: ff        stop
3048: 4a 30 13  and1  c,$0266,0
304b: 60        clrc
304c: 0a a4 10  or1   c,$0214,4
304f: 13 10 0a  bbc0  $10,$305b
3052: a4 07     sbc a, $07
3054: ff        stop
3055: 57 30     eor a,($30)+y
3057: 0c 60 0a  asl $0a60
305a: b0 02     bcs   $305e
305c: ff        stop
305d: 5f 30 03  jmp $0330
3060: 60        clrc
3061: 0a 9c 04  or1   c,$0093,4
3064: ff        stop
3065: 67 30     cmp a,($30+x)
3067: f5 90 c7  mov a, $c790+x
306a: 15 90 0a  or a, $0a90+x
306d: b0 15     bcs   $3084
306f: ff        stop
3070: 72 30     clr3  $30
3072: 03 40 0a  bbs0 $40,$307e
3075: 9c        dec a
3076: 03 ff 7a  bbs0 $ff,$30f2
3079: 30 ff     bmi $307a
307b: 7d        mov a,x
307c: 30 05     bmi $3083
307e: 90 0a     bcc $308a
3080: 9c        dec a
3081: 0b f5     asl $f5
3083: f0 c2     beq $3047
3085: 05 90 0a  or a, $0a90
3088: 9c        dec a
3089: 12 ff     clr0  $ff
308b: 8d 30     mov y,#$30
308d: 05 90 0a  or a, $0a90
3090: 9c        dec a
3091: 0b f5     asl $f5
3093: f0 80     beq $3015
3095: 05 90 0a  or a, $0a90
3098: 9c        dec a
3099: 12 ff     clr0  $ff
309b: 9d        mov x,sp
309c: 30 08     bmi $30a6
309e: 70 0a     bvs   $30aa
30a0: 99        adc (x),(y)
30a1: 03 08 70  bbs0 $08,$3113
30a4: 0a 9c 05  or1   c,$00b3,4
30a7: ff        stop
30a8: aa 30 07  mov1  c,$00e6,0
30ab: 30 0a     bmi $30b7
30ad: c7 04     mov ($04+x), a
30af: 07 40     or a,($40+x)
30b1: 0a c7 05  or1   c,$00b8,7
30b4: 07 50     or a,($50+x)
30b6: 0a c7 06  or1   c,$00d8,7
30b9: 07 60     or a,($60+x)
30bb: 0a c7 07  or1   c,$00f8,7
30be: 07 70     or a,($70+x)
30c0: 0a c7 09  or1   c,$0138,7
30c3: 07 80     or a,($80+x)
30c5: 0a c7 0d  or1   c,$01b8,7
30c8: 07 80     or a,($80+x)
30ca: 0a c7 0f  or1   c,$01f8,7
30cd: fe 00     dbnz  y,$30cf
30cf: 07 80     or a,($80+x)
30d1: 0a c7 10  or1   c,$0218,7
30d4: fb ff     mov y,$ff+x
30d6: d8 30     mov $30,x
30d8: fe 00     dbnz  y,$30da
30da: 07 80     or a,($80+x)
30dc: 0a c7 10  or1   c,$0218,7
30df: fb ff     mov y,$ff+x
30e1: e7 30     mov a,($30+x)
30e3: 18 31 21  or $21,#$31
30e6: 31        tcall 3
30e7: fe 00     dbnz  y,$30e9
30e9: 23 d0 0a  bbs1  $d0,$30f5
30ec: 89 07 23  adc $23, $07
30ef: d0 0a     bne $30fb
30f1: 8b 07     dec $07
30f3: 23 d0 0a  bbs1  $d0,$30ff
30f6: 8c 07 23  dec $2307
30f9: d0 0a     bne $3105
30fb: 8e        pop   psw
30fc: 07 23     or a,($23+x)
30fe: d0 0a     bne $310a
3100: 90 07     bcc $3109
3102: 23 d0 0a  bbs1  $d0,$310e
3105: 91        tcall 9
3106: 07 23     or a,($23+x)
3108: d0 0a     bne $3114
310a: 93 07 23  bbc4  $07,$312f
310d: d0 0a     bne $3119
310f: 95 07 23  adc a, $2307+x
3112: d0 0a     bne $311e
3114: 97 07     adc a,($07)+y
3116: fb ff     mov y,$ff+x
3118: fe 00     dbnz  y,$311a
311a: 06        or a,(x)
311b: d0 0a     bne $3127
311d: ba f0     movw ya, $f0
311f: fb ff     mov y,$ff+x
3121: fe 00     dbnz  y,$3123
3123: 06        or a,(x)
3124: d0 0a     bne $3130
3126: b3 f0 fb  bbc5  $f0,$3123
3129: ff        stop
312a: 2e 31 65  cbne $31,$3191
312d: 2c f5 70  rol $70f5
3130: c7 05     mov ($05+x), a
3132: 50 0a     bvc   $313e
3134: c0        di
3135: 03 fe 00  bbs0 $fe,$3137
3138: 07 60     or a,($60+x)
313a: 0a c7 30  or1   c,$0618,7
313d: fb ff     mov y,$ff+x
313f: 43 31 49  bbs2  $31,$318a
3142: 31        tcall 3
3143: 24 a0     and a, $a0
3145: 0a 9c 20  or1   c,$0413,4
3148: ff        stop
3149: 24 00     and a, $00
314b: 0a 9d 05  or1   c,$00b3,5
314e: 24 80     and a, $80
3150: 0a 95 40  or1   c,$0812,5
3153: ff        stop
3154: 5f af 32  jmp $32af
    
    $3157:
    
        mov y, $0a
        
        mov a, $02; mov $0a, a
                    mov $06, a
        
        cmp y, $02; bne $3169
    
    $3163:
    
        mov a, !$03f8; bne $3154
        
        ret
    
    $3169:
    
        cmp a, #$00; beq $3163
        
        mov a, $02;
        
        cmp a, #$71; beq $317c
        cmp a, #$7e; beq $317c
        
        mov a, !$04bc; bne $3163
    
    $317c:
    
        mov a, !$03f8; beq $318c
        
        mov a, #$00; mov !$044d, a
        
        call $366d
        call $36b0
    
    $318c:
    
        mov a, #$00; mov !$0467, a
    
    $3191:
    
        mov !$046e, a
        
        mov a, $06; dec a; asl a; mov !$03f9, a
        
        mov x, !$03f9
        
        mov a, !$39b3+x; mov $d4, a
        
        inc x
        
        mov a, !$39b3+x; mov $d5, a
        
        mov a, $06; mov !$03f8, a
        
        call $2875
        
        // $31b1:
        
        dw $38b7
        dw $38b7
        dw $38b7
        dw $38b7
        dw $38b7
        dw $38bb
        dw $38bb
        dw $38bf
        dw $38c3
        dw $38c3
        dw $38c3
        dw $38c3
        dw $38c3
        dw $38c3
        dw $38c3
        dw $38c3
        
        dw $38c3
        dw $38c3
        dw $38c3
        dw $38c3
        dw $38c3
        dw $38c7
        dw $38c7
        dw $38cb
        dw $38cf
        dw $38d3
        dw $38d7
        dw $38db
        dw $38df
        dw $38e3
        dw $38e7
        dw $38eb
        
        dw $38eb
        dw $38eb
        dw $38eb
        dw $38eb
        dw $38eb
        dw $38eb
        dw $38ef
        dw $38f3
        dw $38f3
        dw $38f3
        dw $38f3
        dw $38f7
        dw $38fb
        dw $38ff
        dw $3903
        dw $3903
        
        dw $3903
        dw $3903
        dw $3903
        dw $3903
        dw $3907
        dw $390b
        dw $390f
        dw $390f
        dw $3913
        dw $3913
        dw $3913
        dw $3913
        dw $3913
        dw $3913
        dw $3913
        dw $3913
        
        dw $3913
        dw $3913
        dw $3913
        dw $3913
        dw $3913
        dw $3917
        dw $391b
        dw $391b
        dw $391b
        dw $391b
        dw $391b
        dw $391b
        dw $391b
        dw $391f
        dw $3923
        dw $3927
        
        dw $3927
        dw $392b
        dw $392b
        dw $392f
        dw $3933
        dw $3937
        dw $393b
        dw $393f
        dw $3943
        dw $3947
        dw $394b
        dw $394b
        dw $394b
        dw $394b
        dw $394b
        dw $394b
        
        dw $394b
        dw $394b
        dw $394f
        dw $3953
        dw $3953
        dw $3953
        dw $3953
        dw $3953
        dw $3953
        dw $3953
        dw $3953
        dw $3953
        dw $3953
        dw $3957
        dw $395b
        dw $395f
        
        dw $395f
        dw $3963
        dw $3963
        dw $3963
        dw $3967
        dw $396b
        dw $396f
        dw $3973
        dw $3977
        dw $3977
        dw $3977
        dw $397b
        dw $397f
        dw $397f
        dw $3983

// =============================================================================

    $32af:
        
        mov a, #$ff; cmp a, !$0444; beq $32f0
        
        call $3722
        
        mov y, #$00
        
        mov a, ($d4)+y; mov $dc, a
        
        call $38af
        
        mov $dd, a
        
        call $38af
        
        mov $de, a
        
        call $38af
        
        mov $df, a
        
        mov a, !$044b
        
        call $38b3
        
        mov !$044e, a
        
        mov a, !$044c
        
        call $38b3
        
        mov !$044f, a
        
        mov y, #$00; mov !$03fa, y
                     mov !$03fb, y
        
        mov y, #$01; mov !$03fc, y
                     mov !$03fd, y
    
    $32f0:
    
        mov a, #$ff; cmp a, !$03fe; bne $32fa
        
        jmp $34b0
    
    $32fa:
    
        dec !$03fc; beq $3302
        
        jmp $3443
    
    $3302:
    
        mov a, !$0467; beq $3309
        
        bra $334c
    
    $3309:
    
        mov a, #$00; mov !$0466, a
                     mov !$0464, a
                     mov !$0465, a
        
        mov a, #$ff; cmp a, !$0454; beq $3331
        
        mov a, !$0446; or a, $46; mov $46, a
        
        mov a, #$02; mov !$0455, a
        
        mov a, #$01; mov !$03fc, a
        
        mov a, #$ff; mov !$0454, a
    
    $3331:
    
        dec !$0455; beq $3339
        
        jmp $34b0
    
    $3339:
    
        mov a, #$00; mov !$0454, a
        
        mov a, !$0448; and a, $47; mov $47, a
        
        mov a, !$0448; and a, $49; mov $49, a
    
    $334c:
    
        call $3704
        
        cmp a, #$fa; bne $3353
    
    $3353:
    
        cmp a, #$f9; bne $336b
        
        call $3704
        
        mov !$045c, a
        
        call $3704
        
        mov !$045d, a
        
        mov a, #$ff; mov !$0460, a
        
        jmp $334c
    
    $336b:
    
        cmp a, #$f5; bne $3374
        
        mov !$0468, a
        
        bra $337d
    
    $3374:
    
        cmp a, #$f8; bne $3391
        
        mov a, #$00; mov !$0468, a
    
    $337d:
    
        call $3704
        
        mov !$0464, a
        
        call $3704
        
        mov !$0465, a
        
        mov a, #$ff; mov !$0466, a
        
        call $3704
    
    $3391:
    
        cmp a, #$ff; bne $339b
        
        call $366d
        
        jmp $34b0
    
    $339b:
    
        cmp a, #$fe; bne $33ae
        
        call $3704
        
        mov !$0458, a
        
        mov a, !$03fa; mov !$045a, a
        
        call $3704
    
    $33ae:
    
        cmp a, #$fd; bne $33c3
        
        dec !$0458; bne $33ba
        
        jmp $334c
    
    $33ba:
    
        mov a, !$045a; mov !$03fa, a
        
        call $3704
    
    $33c3:
    
        cmp a, #$fb; bne $33ca
        
        jmp $33ba
    
    $33ca:
    
        cmp a, #$fc; bne $33d8
        
        mov a, !$0446; or a, $49; mov $49, a
        
        jmp $334c
    
    $33d8:
    
        mov x, !$044b
        
        call $18fc
        call $3704
        
        mov x, !$044b
        
        mov $0321+x, a
        
        mov a, #$00; mov !$0351+x, a
        
        call $3704
        
        mov $11, a
        mov $10, #$00
        
        call $1c4a
        
        call $3704
        
        cmp a, #$f6; beq $3406
        
        mov !$0462, a
        
        mov a, #$00; mov !$0463, a
    
    $3406:
    
        mov y, !$0462; mov a, !$0463; movw $10, ya
        
        mov x, !$044b
        
        call $16b1
        
        call $3704
        
        mov !$03fc, a
        
        mov a, !$0460; beq $3437
        
        mov a, !$044e; or a, #$05; mov y, a
        
        mov a, !$045c
        
        call WriteToDsp
        
        mov a, !$044e; or a, #$06; mov y, a
        
        mov a, $045d
        
        call WriteToDsp
    
    $3437:
    
        mov a, !$0467; bne $3443
        
        mov a, !$0446; or a, $45; mov $45, a
    
    $3443:
    
        nop
        nop
        nop
        nop
        nop
        nop
        
        mov a, !$0466; cmp a, #$ff; bne $34b0
        
        mov a, !$0468; beq $345a
        
        mov a, #$ff; mov !$0467, a
    
    $345a:
    
        mov a, !$0462; cmp a, !$0465; bcc $3483
        
        mov a, !$0463; setc; sbc a, !$0464; mov !$0463, a; bcs $34a2
        
        dec !$0462
        
        mov a, !$0465; cmp a, !$0462; bne $34a2
        
        mov a, #$00; mov !$0466, a
                     mov !$0467, a
        
        bra $34a2
    
    $3483:
    
        mov a, !$0464; clrc; adc a, !$0463; mov !$0463, a; bcc $34a2
        
        inc !$0462
        
        mov a, !$0465; cmp a, !$0462; bne $34a2
        
        mov a, #$00; mov !$0466, a
                     mov !$0467, a
    
    $34a2:
    
        mov a, !$0463; mov y, !$0462; movw $10, ya
        
        mov x, !$044b
        
        call $16b1
    
    $34b0:
    
        mov a, #$ff; cmp a, !$03ff; bne $34ba
        
        jmp $366c
    
    $34ba:
    
        dec !$03fd; beq $34c2
        
        jmp $35ff
    
    $34c2:
    
        mov a, !$046e; beq $34c9
        
        bra $350c
    
    $34c9:
    
        mov a, #$00; mov !$046d, a
                     mov !$046b, a
                     mov !$046c, a
        
        mov a, #$ff; cmp a, !$0456; beq $34f1
        
        mov a, !$0447; or a, $46; mov $46, a
        
        mov a, #$02; mov !$0457, a
        
        mov a, #$01; mov !$03fd, a
        
        mov a, #$ff; mov !$0456, a
    
    $34f1:
    
        dec !$0457; beq $34f9
        
        jmp $366c
    
    $34f9:
    
        mov a, #$00; mov !$0456, a
        
        mov a, !$0449; and a, $47; mov $47, a
        
        mov a, !$0449; and a, $49; mov $49, a
    
    $350c:
    
        call $370d
        
        cmp a, #$f9; bne $3527
        
        call $370d
        
        mov !$045e, a
        
        call $370d
        
        mov !$045f, a
        
        mov a, #$ff; mov !$0461, a
        
        jmp $350c
    
    $3527:
    
        cmp a, #$f5; bne $3530
        
        mov !$046f, a
        
        bra $3539
    
    $3530:
    
        cmp a, #$f8; bne $354d
        
        mov a, #$00; mov !$046f, a
    
    $3539:
    
        call $370d
        
        mov !$046b, a
        
        call $370d
        
        mov !$046c, a
        
        mov a, #$ff; mov !$046d, a
        
        call $370d
    
    $354d:
    
        cmp a, #$ff; bne $3557
        
        call $36b0
        
        jmp $366c
    
    $3557:
    
        cmp a, #$fe; bne $356a
        
        call $370d
        
        mov !$0459, a
        
        mov a, !$03fb; mov !$045b, a
        
        call $370d
    
    $356a:
    
        cmp a, #$fd; bne $357f
        
        dec !$0459; bne $3576
        
        jmp $350c
    
    $3576:
    
        mov a, !$045b; mov !$03fb, a
        
        call $370d
    
    $357f:
    
        cmp a, #$fb; bne $3586
        
        jmp $3576
    
    $3586:
    
        cmp a, #$fc; bne $3594
        
        mov a, !$0447; or a, $49; mov $49, a
        
        jmp $350c
    
    $3594:
    
        mov x, !$044c
        
        call $18fc
        
        call $370d
        
        mov x, !$044c
        
        mov $0321+x, a
        
        mov a, #$00; mov !$0351+x, a
        
        call $370d
        
        mov $11, a; mov $10, #$00
        
        call $1c4a
        
        call $370d
        
        cmp a, #$f6; beq $35c2
        
        mov !$0469, a
        
        mov a, #$00; mov !$046a, a
    
    $35c2:
    
        mov y, !$0469; mov a, !$046a; movw $10, ya
        
        mov x, !$044c
        
        call $16b1
        
        call $370d
        
        mov !$03fd, a
        
        mov a, !$0461; beq $35f3
        
        mov a, !$044f; or a, #$05; mov y, a
        
        mov a, !$045e
        
        call WriteToDsp
        
        mov a, !$044f; or a, #$06; mov y, a
        
        mov a, !$045f
        
        call WriteToDsp
    
    $35f3:
    
        mov a, !$046e; bne $35ff
        
        mov a, !$0447; or a, $45; mov $45, a
    
    $35ff:
    
        nop
        nop
        nop
        nop
        nop
        nop
        
        mov a, !$046d; cmp a, #$ff; bne $366c
        
        mov a, !$046f; beq $3616
        
        mov a, #$ff; mov !$046e, a
    
    $3616:
    
        mov a, !$0469; cmp a, !$046c; bcc $363f
        
        mov a, !$046a; setc; sbc a, !$046b; mov !$046a, a; bcs $365e
        
        dec !$0469
        
        mov a, !$046c; cmp a, !$0469; bne $365e
        
        mov a, #$00; mov $046d, a
                     mov $046e, a
        
        bra $365e
    
    $363f:
    
        mov a, !$046b; clrc; adc a, !$046a; mov !$046a, a; bcc $365e
        
        inc !$0469
        
        mov a, !$046c; cmp a, !$0469; bne $365e
        
        mov a, #$00; mov !$046d, a
                     mov !$046e, a
    
    $365e:
    
        mov a, !$046a; mov y, !$0469; movw $10, ya
        
        mov x, !$044c
        
        call $16b1
    
    $366c:
    
        ret
    
// =============================================================================

    $366d:
    
        mov a, #$ff; mov !$03fe, a
        
        mov a, #$00; mov !$0460, a
        
        mov a, !$044d; and a, !$0448; mov !$044d, a
        
        mov a, $1a; and a, !$0448; mov $1a, a
        
        mov a, $47; or a, !$0446; mov $47, a
        
        mov a, $46; or a, !$0446; mov $46, a
        
        mov x, !$044b
        
        mov a, $0211+x
        
        call $18fc
        
        mov x, !$044b
        
        mov a, !$0450; mov !$0321+x, a
        mov a, !$0451; mov !$0351+x, a
        
        jmp $36f3
    
    $36b0:
    
        mov a, #$ff; mov !$03ff, a
        
        mov a, #$00; mov !$0461, a
        
        mov a, !$044d; and a, !$0449; mov !$044d, a
        
        mov a, $1a; and a, !$0449; mov $1a, a
        
        mov a, $47; or a, !$0447; mov $47, a
        
        mov a, $46; or a, !$0447; mov $46, a
        
        mov x, !$044c
        
        mov a, $0211+x
        
        call $18fc
        
        mov x, !$044c
        
        mov a, !$0452; mov !$0321+x, a
        
        mov a, !$0453; mov !$0351+x, a
        
        jmp $36f3
    
    $36f3:
    
        mov a, !$044d; bne $3703
        
        mov a, #$00; mov !$03f8, a
                     mov !$04bc, a
                     mov !$0444, a
    
    $3703:
    
        ret

// =============================================================================

    $3704:
    
        mov y, !$03fa; mov a, ($dc)+y
        
        inc !$03fa
        
        ret

// =============================================================================

    $370d:
    
        mov y, !$03fb; mov a, ($de)+y
        
        inc !$03fb
        
        ret

// =============================================================================

    $3716:
    
        dw $0446
        dw $0447
        dw $0448
        dw $0449
        dw $044b
        dw $044c

// =============================================================================

    $3722:
    
        mov a, #$09; mov !$0445, a
        
        mov a, $1a; mov !0434, a
        
        mov a, #$ff; mov !$0444, a
        
        mov a, #$00; mov !$044a, a
                     mov !$0440, a
                     mov !$0446, a
                     mov !$0447, a
                     mov !$044b, a
                     mov !$044c, a
        
        mov a, #$ff; mov !$0448, a
                     mov !$0449, a
                     mov !$03fe, a
                     mov !$03ff, a
    
    $3753:
    
        dec !$0445; beq $37d6
        
        asl !$0443; bcs $3753
        
        mov a, #$00; cmp a, !$0441; beq $37d6
        
        dec !$0441
        
        mov a, #$00; mov x, !$0440; mov !$03fe+x, a
        
        inc !$0440
        
        mov a, !$044a; mov x, a
                       mov y, a
        
        mov a, !$3716+x; mov $d6, a
        
        mov a, !$371a+x; mov $d8, a
        
        mov a, !$371e+x; mov $da, a
        
        inc x
        
        mov a, !$3716+x; mov $d7, a
        
        mov a, !$371a+x; mov $d9, a
        
        mov a, !$371e+x; mov $db, a
        
        inc !$044a; inc !$044a
        
        mov a, !$0445; mov !$0442, a
        
        dec !$0442;
        
        // Is this supposed to do anything useful?
        clrc;
        
        asl !$0442; mov x, !$0442
        
        mov a, !$0321+x; mov !$0450+y, a
        
        inc y
        
        mov a, !$0351+x; mov !$0450+y, a
        
        mov y, #$00
        
        mov a, !$0442; mov ($da)+y, a
        
        mov a, !$0445
        
        call $2875
        
        dw $3894
        dw $3879
        dw $385e
        dw $3843
        dw $3828
        dw $380d
        dw $37f2
        dw $37d7
    
    $37d6:
    
        ret

// =============================================================================

    $37d7:
    
        set7 $1a
        
        clr7 $47
        
        clr7 $4a
        
        mov a, #$80; or a, !$044d; mov !$044d, a
        
        mov y, #$00
        
        mov a, #$80; mov ($d6)+y, a
        
        mov a, #$7f; mov ($d8)+y, a
        
        jmp $3753

// =============================================================================

    $37f2:
    
        set6 $1a
        
        clr6 $47
        
        clr6 $4a
        
        mov a, #$40; or a, !$044d; mov !$044d, a
        
        mov y, #$00
        
        mov a, #$40; mov ($d6)+y, a
        
        mov a, #$bf; mov ($d8)+y, a
        
        jmp $3753

// =============================================================================

    $380d:
    
        set5 $1a
        
        clr5 $47
        
        clr5 $4a
        
        mov a, #$20; or a, !$044d; mov !$044d, a
        
        mov y, #$00
        
        mov a, #$20; mov ($d6)+y, a
        
        mov a, #$df; mov ($d8)+y, a
        
        jmp $3753

// =============================================================================

    $3828:
    
        set4 $1a
        
        clr4 $47
        
        clr4 $4a
        
        mov a, #$10; or a, !$044d; mov !$044d, a
        
        mov y, #$00
        
        mov a, #$10; mov ($d6)+y, a
        
        mov a, #$ef; mov ($d8)+y, a
        
        jmp $3753

// =============================================================================

    $3843:
    
        set3 $1a
        
        clr3 $47
        
        clr3 $4a
        
        mov a, #$08; or a, !$044d; mov !$044d, a
        
        mov y, #$00
        
        mov a, #$08; mov ($d6)+y, a
        
        mov a, #$f7; mov ($d8)+y, a
        
        jmp $3753

// =============================================================================

    $385e:
    
        set2 $1a
        
        clr2 $47
        
        clr2 $4a
        
        mov a, #$04; or a, !$044d; mov !$044d, a
        
        mov y, #$00
        
        mov a, #$04; mov ($d6)+y, a
        
        mov a, #$fb; mov ($d8)+y, a
        
        jmp $3753

// =============================================================================

    $3879:
    
        set1 $1a
        clr1 $47
        clr1 $4a
        
        mov a, #$02; or a, !$044d; mov !$044d, a
        
        mov y, #$00
        
        mov a, #$02; mov ($d6)+y, a
        
        mov a, #$fd; mov ($d8)+y, a
        
        jmp $3753

// =============================================================================

    $3894:
    
        set0 $1a
        
        clr0 $47
        
        clr0 $4a
        
        mov a, #$01; or a, !$044d; mov !$044d, a
        
        mov y, #$00
        
        mov a, #$01; mov ($d6)+y, a
        
        mov a, #$fe; mov ($d8)+y, a
        
        jmp $3753

// =============================================================================

    $38af:
    
        inc y
        
        mov a, ($d4)+y
        
        ret

// =============================================================================

    $38b3:
    
        asl a
        asl a
        asl a
        
        ret

// =============================================================================

    $38b7:
    
        call $3992
        
        ret

// =============================================================================

    $38bb:
    
        call $3987
        
        ret

// =============================================================================

    $38bf:
    
        call $3987
        
        ret

// =============================================================================

    $38c3:
    
        call $3987
        
        ret

// =============================================================================

    $38c7:
    
        call $3992
        
        ret

// =============================================================================

    $38cb:
    
        call $3987
        
        ret

// =============================================================================

    $38cf:
    
        call $399d
        
        ret

// =============================================================================

    $38d3:
    
        call $399d
        
        ret

// =============================================================================

    $38d7:
    
        call $3987
        
        ret

// =============================================================================

    $38db:
    
        call $3992
        
        ret

// =============================================================================

    $38df:
    
        call $3987
        
        ret

// =============================================================================

    $38e3:
    
        call $39a8
        
        ret

// =============================================================================

    $38e7:
    
        call $3992
        
        ret

// =============================================================================

    $38eb:
    
        call $3987
        
        ret

// =============================================================================

    $38ef:
    
        call $39a8
        
        ret

// =============================================================================

    $38f3:
    
        call $3987
        
        ret

// =============================================================================

    $38f7:
    
        call $39a8
        
        ret

// =============================================================================

    $38fb:
    
        call $3992
        
        ret

// =============================================================================

    $38ff:
    
        call $39a8
        
        ret

// =============================================================================

    $3903:
    
        call $3987
        
        ret

// =============================================================================

    $3907:
    
        call $3992
        
        ret

// =============================================================================

    $390b:
    
        call $3987
        
        ret

// =============================================================================

    $390f:
    
        call $399d
        
        ret

// =============================================================================

    $3913:
    
        call $3987
        
        ret

// =============================================================================

    $3917:
    
        call $3992
        
        ret

// =============================================================================

    $391b:
    
        call $3987
        
        ret

// =============================================================================

    $391f:
    
        call $39a8
        
        ret

// =============================================================================

3923: 3f 87 39  call $3987
3926: 6f        ret

// =============================================================================

3927: 3f a8 39  call $39a8
392a: 6f        ret

// =============================================================================

392b: 3f 87 39  call $3987
392e: 6f        ret

// =============================================================================

392f: 3f 92 39  call $3992
3932: 6f        ret

// =============================================================================

3933: 3f 87 39  call $3987
3936: 6f        ret

// =============================================================================

3937: 3f 9d 39  call $399d
393a: 6f        ret

// =============================================================================

393b: 3f 87 39  call $3987
393e: 6f        ret

// =============================================================================

393f: 3f 9d 39  call $399d
3942: 6f        ret

// =============================================================================

3943: 3f a8 39  call $39a8
3946: 6f        ret

// =============================================================================

3947: 3f 9d 39  call $399d
394a: 6f        ret

// =============================================================================

394b: 3f 87 39  call $3987
394e: 6f        ret

// =============================================================================

394f: 3f 9d 39  call $399d
3952: 6f        ret

// =============================================================================

3953: 3f 87 39  call $3987
3956: 6f        ret

// =============================================================================

3957: 3f a8 39  call $39a8
395a: 6f        ret

// =============================================================================

395b: 3f a8 39  call $39a8
395e: 6f        ret

// =============================================================================

395f: 3f 87 39  call $3987
3962: 6f        ret

// =============================================================================

3963: 3f a8 39  call $39a8
3966: 6f        ret

// =============================================================================

3967: 3f a8 39  call $39a8
396a: 6f        ret

// =============================================================================

396b: 3f 87 39  call $3987
396e: 6f        ret

// =============================================================================

396f: 3f a8 39  call $39a8
3972: 6f        ret

// =============================================================================

3973: 3f 9d 39  call $399d
3976: 6f        ret

// =============================================================================

3977: 3f 9d 39  call $399d
397a: 6f        ret

// =============================================================================

397b: 3f 92 39  call $3992
397e: 6f        ret

// =============================================================================

397f: 3f 92 39  call $3992
3982: 6f        ret

// =============================================================================

    $3983:
    
        call $399d
        
        ret

// =============================================================================

    $3987:
    
        mov a, #$01; mov !$0441, a
        
        mov a, #$00; mov !$04bc, a
        
        ret

// =============================================================================

    $3992:
    
        mov a, #$01; mov !$0441, a
        
        mov a, #$01; mov !$04bc, a
        
        ret

// =============================================================================

    $399d:
    
        mov a, #$02; mov !$0441, a
        
        mov a, #$00; mov !$04bc, a
        
        ret

// =============================================================================

    $39a8:
    
        mov a, #$02; mov !$0441, a
        
        mov a, #$01; mov !$04bc, a
        
        ret

// =============================================================================

$39b3:

    b1        tcall 11
39b4: 3a c3     incw  $c3
39b6: 3a d5     incw  $d5
39b8: 3a f1     incw  $f1
39ba: 3a f3     incw  $f3
39bc: 3a f5     incw  $f5
39be: 3a 0c     incw  $0c
39c0: 3b 28     rol $28+x
39c2: 3b 2a     rol $2a+x
39c4: 3b 3a     rol $3a+x
39c6: 3b 42     rol $42+x
39c8: 3b 5e     rol $5e+x
39ca: 3b 73     rol $73+x
39cc: 3b 85     rol $85+x
39ce: 3b 92     rol $92+x
39d0: 3b a9     rol $a9+x
39d2: 3b b4     rol $b4+x
39d4: 3b c1     rol $c1+x
39d6: 3b e7     rol $e7+x
39d8: 3b 08     rol $08+x
39da: 3c        rol a
39db: 33 3c 3b  bbc1 $3c,$3a18
39de: 3c        rol a
39df: 43 3c 56  bbs2  $3c,$3a37
39e2: 3c        rol a
39e3: 90 3c     bcc $3a21
39e5: ff        stop
39e6: 3c        rol a
39e7: 46        eor a,(x)
39e8: 3d        inc x
39e9: 4e 3d 65  tclr1 $653d
39ec: 3d        inc x
39ed: 81        tcall 8
39ee: 3d        inc x
39ef: 9b 3d     dec $3d+x
39f1: a8 3d     sbc a, #$3d
39f3: bf        mov a,(x)+
39f4: 3d        inc x
39f5: d6 3d ed  mov $ed3d+y, a
39f8: 3d        inc x
39f9: 04 3e     or a, $3e
39fb: 20        clrp
39fc: 3e 41     cmp x,$41
39fe: 3e 66     cmp x,$66
3a00: 3e 94     cmp x,$94
3a02: 3e b0     cmp x,$b0
3a04: 3e cc     cmp x,$cc
3a06: 3e ce     cmp x,$ce
3a08: 3e 03     cmp x,$03
3a0a: 3f 18 3f  call $3f18
3a0d: 20        clrp
3a0e: 3f 44 3f  call $3f44
3a11: 5e 3f 75  cmp y,$753f
3a14: 3f 82 3f  call $3f82
3a17: 8a 3f 97  eor1  c,$12e7,7
3a1a: 3f 9f 3f  call $3f9f
3a1d: 1f 40 36  jmp ($3640+x)
3a20: 40        setp
3a21: 66        cmp a,(x)
3a22: 40        setp
3a23: 7c        ror a
3a24: 40        setp
3a25: 7e 40     cmp y,$40
3a27: 86        adc a,(x)
3a28: 40        setp
3a29: 88 40     adc a, #$40
3a2b: 8a 40 8c  eor1  c,$1188,0
3a2e: 40        setp
3a2f: 9e        div   ya,x
3a30: 40        setp
3a31: a6        sbc a,(x)
3a32: 40        setp
3a33: b1        tcall 11
3a34: 40        setp
3a35: b4 40     sbc a, $40+x
3a37: bc        inc a
3a38: 40        setp
3a39: ce        pop x
3a3a: 40        setp
3a3b: d1        tcall 13
3a3c: 40        setp
3a3d: de 40 f5  cbne $40+x,$3a34
3a40: 40        setp
3a41: 0c 41 2c  asl $2c41
3a44: 41        tcall 4
3a45: 43 41 5a  bbs2  $41,$3aa1
3a48: 41        tcall 4
3a49: 62 41     set3  $41
3a4b: 6f        ret
3a4c: 41        tcall 4
3a4d: a9 41 c7  sbc $c7, $41
3a50: 41        tcall 4
3a51: d9 41     mov $41+y,x
3a53: ee        pop y
3a54: 41        tcall 4
3a55: 1c        asl a
3a56: 42 24     set2  $24
3a58: 42 36     set2  $36
3a5a: 42 4d     set2  $4d
3a5c: 42 68     set2  $68
3a5e: 42 88     set2  $88
3a60: 42 9a     set2  $9a
3a62: 42 af     set2  $af
3a64: 42 bf     set2  $bf
3a66: 42 d4     set2  $d4
3a68: 42 d6     set2  $d6
3a6a: 42 fe     set2  $fe
3a6c: 42 10     set2  $10
3a6e: 43 22 43  bbs2  $22,$3ab3
3a71: 34 43     and a, $43+x
3a73: 3c        rol a
3a74: 43 47 43  bbs2  $47,$3ab9
3a77: 52 43     clr2  $43
3a79: c1        tcall 12
3a7a: 43 cc 43  bbs2  $cc,$3abf
3a7d: e8 43     mov a, #$43
3a7f: fa 43 22  mov $22, $43
3a82: 44 2f     eor a, $2f
3a84: 44 41     eor a, $41
3a86: 44 43     eor a, $43
3a88: 44 46     eor a, $46
3a8a: 44 4e     eor a, $4e
3a8c: 44 6f     eor a, $6f
3a8e: 44 7f     eor a, $7f
3a90: 44 8f     eor a, $8f
3a92: 44 9c     eor a, $9c
3a94: 44 a4     eor a, $a4
3a96: 44 b9     eor a, $b9
3a98: 44 ce     eor a, $ce
3a9a: 44 ed     eor a, $ed
3a9c: 44 98     eor a, $98
3a9e: 45 9a 45  eor a, $459a
3aa1: 18 46 2d  or $2d,#$46
3aa4: 46        eor a,(x)
3aa5: 42 46     set2  $46
3aa7: 57 46     eor a,($46)+y
3aa9: 6c 46 79  ror $7946
3aac: 46        eor a,(x)
3aad: 86        adc a,(x)
3aae: 46        eor a,(x)
3aaf: 8e        pop   psw
3ab0: 46        eor a,(x)
3ab1: b3 3a 15  bbc5  $3a, $3ac8
3ab4: 80        setc
3ab5: 0a c7 0a  or1   c,$0158,7
3ab8: 15 50 0a  or a, $0a50+x
3abb: c7 0a     mov ($0a+x), a
3abd: 15 20 0a  or a, $0a20+x
3ac0: c7 0a     mov ($0a+x), a
3ac2: ff        stop
3ac3: c5 3a 15  mov $153a, a
3ac6: e0        clrv
3ac7: 0a c7 0a  or1   c,$0158,7
3aca: 15 60 0a  or a, $0a60+x
3acd: c7 0a     mov ($0a+x), a
3acf: 15 30 0a  or a, $0a30+x
3ad2: c7 0a     mov ($0a+x), a
3ad4: ff        stop
3ad5: d7 3a     mov ($3a)+y, a
3ad7: 0c 60 0a  asl $0a60
3ada: af        mov (x)+, a
3adb: 02 0c     set0  $0c
3add: 00        nop
3ade: 0a af 01  or1   c,$0035,7
3ae1: 0c 60 0a  asl $0a60
3ae4: af        mov (x)+, a
3ae5: 02 0c     set0  $0c
3ae7: 00        nop
3ae8: 0a af 01  or1   c,$0035,7
3aeb: 0c 60 0a  asl $0a60
3aee: af        mov (x)+, a
3aef: 02 ff     set0  $ff
3af1: d7 3a     mov ($3a)+y, a
3af3: d7 3a     mov ($3a)+y, a
3af5: f7 3a     mov a,($3a)+y
3af7: 08 d0     or a, #$d0
3af9: 0a 98 03  or1   c,$0073,0
3afc: 08 d0     or a, #$d0
3afe: 0a 95 03  or1   c,$0072,5
3b01: 08 d0     or a, #$d0
3b03: 0a 9a 03  or1   c,$0073,2
3b06: 08 d0     or a, #$d0
3b08: 0a 8c 03  or1   c,$0071,4
3b0b: ff        stop
3b0c: 0e 3b 08  tset1 $083b
3b0f: e0        clrv
3b10: 0a 98 03  or1   c,$0073,0
3b13: 08 e0     or a, #$e0
3b15: 0a 95 03  or1   c,$0072,5
3b18: 08 e0     or a, #$e0
3b1a: 0a 9a 03  or1   c,$0073,2
3b1d: 08 e0     or a, #$e0
3b1f: 0a 8c 03  or1   c,$0071,4
3b22: 08 e0     or a, #$e0
3b24: 0a 8c 20  or1   c,$0411,4
3b27: ff        stop
3b28: 0e 3b 2c  tset1 $2c3b
3b2b: 3b 08     rol $08+x
3b2d: d0 0a     bne $3b39
3b2f: 8b 08     dec $08
3b31: f5 d0 bc  mov a, $bcd0+x
3b34: 09 d0 0a  or $0a, $d0
3b37: 98 10 ff  adc $ff,#$10
3b3a: 3c        rol a
3b3b: 3b 08     rol $08+x
3b3d: 70 0a     bvs   $3b49
3b3f: 9d        mov x,sp
3b40: 07 ff     or a,($ff+x)
3b42: 44 3b     eor a, $3b
3b44: 08 d0     or a, #$d0
3b46: 0a 99 02  or1   c,$0053,1
3b49: 08 d0     or a, #$d0
3b4b: 0a 9c 03  or1   c,$0073,4
3b4e: 0f        brk
3b4f: d0 0a     bne $3b5b
3b51: 8b 03     dec $03
3b53: 0f        brk
3b54: e0        clrv
3b55: 0a 8c 03  or1   c,$0071,4
3b58: 0f        brk
3b59: d0 0a     bne $3b65
3b5b: 8e        pop   psw
3b5c: 0e ff 60  tset1 $60ff
3b5f: 3b 08     rol $08+x
3b61: 70 0a     bvs   $3b6d
3b63: 98 03 08  adc $08,#$03
3b66: 70 0a     bvs   $3b72
3b68: 95 03 f5  adc a, $f503+x
3b6b: f0 bc     beq $3b29
3b6d: 09 70 0a  or $0a, $70
3b70: 98 06 ff  adc $ff,#$06
3b73: 75 3b 0f  cmp a, $0f3b+x
3b76: 70 0a     bvs   $3b82
3b78: 93 03 0f  bbc4  $03,$3b89
3b7b: e0        clrv
3b7c: 0a 90 08  or1   c,$0112,0
3b7f: 0f        brk
3b80: 70 0a     bvs   $3b8c
3b82: 84 15     adc a, $15
3b84: ff        stop
3b85: 87 3b     adc a,($3b+x)
3b87: 0f        brk
3b88: 60        clrc
3b89: 0a 90 03  or1   c,$0072,0
3b8c: 0f        brk
3b8d: 60        clrc
3b8e: 0a 84 15  or1   c,$02b0,4
3b91: ff        stop
3b92: 94 3b     adc a, $3b+x
3b94: 0e 60 0a  tset1 $0a60
3b97: 80        setc
3b98: 05 0e 60  or a, $600e
3b9b: 0a 85 05  or1   c,$00b0,5
3b9e: 0e 60 0a  tset1 $0a60
3ba1: 91        tcall 9
3ba2: 05 0e 60  or a, $600e
3ba5: 0a 89 05  or1   c,$00b1,1
3ba8: ff        stop
3ba9: ab 3b     inc $3b
3bab: f5 30 bb  mov a, $bb30+x
3bae: 12 10     clr0  $10
3bb0: 0a 95 15  or1   c,$02b2,5
3bb3: ff        stop
3bb4: b6 3b 0e  sbc a, $0e3b+y
3bb7: 60        clrc
3bb8: 0a 8c 05  or1   c,$00b1,4
3bbb: 0e 60 0a  tset1 $0a60
3bbe: 91        tcall 9
3bbf: 05 ff c3  or a, $c3ff
3bc2: 3b 22     rol $22+x
3bc4: 60        clrc
3bc5: 0a 84 1c  or1   c,$0390,4
3bc8: 22 60     set1  $60
3bca: 0a 90 19  or1   c,$0332,0
3bcd: 0e 60 0a  tset1 $0a60
3bd0: 80        setc
3bd1: 10 22     bpl $3bf5
3bd3: 60        clrc
3bd4: 0a 89 19  or1   c,$0331,1
3bd7: 0e 60 0a  tset1 $0a60
3bda: 80        setc
3bdb: 07 0e     or a,($0e+x)
3bdd: 60        clrc
3bde: 0a 84 10  or1   c,$0210,4
3be1: 22 60     set1  $60
3be3: 0a 8b 1b  or1   c,$0371,3
3be6: ff        stop
3be7: e9 3b 0e  mov x,$0e3b
3bea: 60        clrc
3beb: 0a 80 0a  or1   c,$0150,0
3bee: 0e 60 0a  tset1 $0a60
3bf1: 84 07     adc a, $07
3bf3: 22 60     set1  $60
3bf5: 0a 8b 1f  or1   c,$03f1,3
3bf8: 22 60     set1  $60
3bfa: 0a 89 16  or1   c,$02d1,1
3bfd: 0e 60 0a  tset1 $0a60
3c00: 80        setc
3c01: 0a 0e 60  or1   c,$0c01,6
3c04: 0a 87 10  or1   c,$0210,7
3c07: ff        stop
3c08: 0a 3c 0e  or1   c,$01c7,4
3c0b: 60        clrc
3c0c: 0a 80 0a  or1   c,$0150,0
3c0f: 0e 60 0a  tset1 $0a60
3c12: 87 10     adc a,($10+x)
3c14: 22 60     set1  $60
3c16: 0a 84 1a  or1   c,$0350,4
3c19: 0e 60 0a  tset1 $0a60
3c1c: 80        setc
3c1d: 0a 0e 60  or1   c,$0c01,6
3c20: 0a 84 07  or1   c,$00f0,4
3c23: 22 60     set1  $60
3c25: 0a 91 16  or1   c,$02d2,1
3c28: 0e 60 0a  tset1 $0a60
3c2b: 80        setc
3c2c: 0a 0e 60  or1   c,$0c01,6
3c2f: 0a 87 10  or1   c,$0210,7
3c32: ff        stop
3c33: 35 3c 25  and a, $253c+x
3c36: 00        nop
3c37: 0a ab 03  or1   c,$0075,3
3c3a: ff        stop
3c3b: 3d        inc x
3c3c: 3c        rol a
3c3d: 25 60 0a  and a, $0a60
3c40: a8 10     sbc a, #$10
3c42: ff        stop
3c43: 45 3c f5  eor a, $f53c
3c46: 70 aa     bvs   $3bf2
3c48: 06        or a,(x)
3c49: 40        setp
3c4a: 0a a1 40  or1   c,$0814,1
3c4d: fe 00     dbnz  y,$3c4f
3c4f: 06        or a,(x)
3c50: 40        setp
3c51: 0a aa f0  or1   c,$1e15,2
3c54: fb ff     mov y,$ff+x
3c56: 58 3c 0b  eor $0b,#$3c
3c59: 20        clrp
3c5a: 0a 8c 03  or1   c,$0071,4
3c5d: 0b 30     asl $30
3c5f: 0a 8c 03  or1   c,$0071,4
3c62: 0b 40     asl $40
3c64: 0a 8c 03  or1   c,$0071,4
3c67: 0b 50     asl $50
3c69: 0a 8c 03  or1   c,$0071,4
3c6c: 0b 60     asl $60
3c6e: 0a 8c 03  or1   c,$0071,4
3c71: 0b 70     asl $70
3c73: 0a 8c 03  or1   c,$0071,4
3c76: 0b 80     asl $80
3c78: 0a 8c 03  or1   c,$0071,4
3c7b: 0b 60     asl $60
3c7d: 0a 8c 03  or1   c,$0071,4
3c80: 0b 50     asl $50
3c82: 0a 8c 03  or1   c,$0071,4
3c85: 0b 40     asl $40
3c87: 0a 8c 03  or1   c,$0071,4
3c8a: 0b 30     asl $30
3c8c: 0a 8c 03  or1   c,$0071,4
3c8f: ff        stop
3c90: 94 3c     adc a, $3c+x
3c92: e5 3c 10  mov a, $103c
3c95: 50 0a     bvc   $3ca1
3c97: c1        tcall 12
3c98: 03 10 40  bbs0 $10,$3cda
3c9b: 0a c2 03  or1   c,$0078,2
3c9e: 10 30     bpl $3cd0
3ca0: 0a c3 03  or1   c,$0078,3
3ca3: 10 20     bpl $3cc5
3ca5: 0a c4 03  or1   c,$0078,4
3ca8: 10 10     bpl $3cba
3caa: 0a c5 03  or1   c,$0078,5
3cad: 10 10     bpl $3cbf
3caf: 0a c6 03  or1   c,$0078,6
3cb2: 10 10     bpl $3cc4
3cb4: 0a c7 03  or1   c,$0078,7
3cb7: 10 00     bpl $3cb9
3cb9: 0a c7 30  or1   c,$0618,7
3cbc: 10 60     bpl $3d1e
3cbe: 0a c7 03  or1   c,$0078,7
3cc1: 10 50     bpl $3d13
3cc3: 0a c6 03  or1   c,$0078,6
3cc6: 10 30     bpl $3cf8
3cc8: 0a c5 03  or1   c,$0078,5
3ccb: 10 30     bpl $3cfd
3ccd: 0a c4 03  or1   c,$0078,4
3cd0: 10 20     bpl $3cf2
3cd2: 0a c3 03  or1   c,$0078,3
3cd5: 10 20     bpl $3cf7
3cd7: 0a c2 03  or1   c,$0078,2
3cda: 10 10     bpl $3cec
3cdc: 0a c1 03  or1   c,$0078,1
3cdf: 10 10     bpl $3cf1
3ce1: 0a c0 03  or1   c,$0078,0
3ce4: ff        stop
3ce5: 08 d0     or a, #$d0
3ce7: 0a 99 03  or1   c,$0073,1
3cea: 08 d0     or a, #$d0
3cec: 0a 9c 04  or1   c,$0093,4
3cef: 0f        brk
3cf0: 30 0a     bmi $3cfc
3cf2: 8b 03     dec $03
3cf4: 0f        brk
3cf5: 40        setp
3cf6: 0a 8c 03  or1   c,$0071,4
3cf9: 0f        brk
3cfa: 50 0a     bvc   $3d06
3cfc: 8e        pop   psw
3cfd: 0e ff 03  tset1 $03ff
3d00: 3d        inc x
3d01: 36 3d 08  and a, $083d+y
3d04: d0 0a     bne $3d10
3d06: 94 03     adc a, $03+x
3d08: 08 d0     or a, #$d0
3d0a: 0a 97 02  or1   c,$0052,7
3d0d: 08 d0     or a, #$d0
3d0f: 0a 98 03  or1   c,$0073,0
3d12: 08 d0     or a, #$d0
3d14: 0a 9a 04  or1   c,$0093,2
3d17: 08 d0     or a, #$d0
3d19: 0a 97 03  or1   c,$0072,7
3d1c: 08 d0     or a, #$d0
3d1e: 0a 9a 04  or1   c,$0093,2
3d21: 08 d0     or a, #$d0
3d23: 0a 9d 03  or1   c,$0073,5
3d26: 08 d0     or a, #$d0
3d28: 0a 9f 03  or1   c,$0073,7
3d2b: 08 d0     or a, #$d0
3d2d: 0a 94 1a  or1   c,$0352,4
3d30: 25 40 0a  and a, $0a40
3d33: 8c 26 ff  dec $ff26
3d36: 25 d0 0a  and a, $0ad0
3d39: 98 10 25  adc $25,#$10
3d3c: d0 0a     bne $3d48
3d3e: 93 16 25  bbc4  $16,$3d65
3d41: 90 0a     bcc $3d4d
3d43: 8f 15 ff  mov $ff,#$15
3d46: 48 3d     eor a, #$3d
3d48: 08 d0     or a, #$d0
3d4a: 0a 94 19  or1   c,$0332,4
3d4d: ff        stop
3d4e: 50 3d     bvc   $3d8d
3d50: 0d        push  psw
3d51: 40        setp
3d52: 0c 8b 02  asl $028b
3d55: 0d        push  psw
3d56: 50 0c     bvc   $3d64
3d58: 89 02 0d  adc $0d, $02
3d5b: 60        clrc
3d5c: 0c 87 03  asl $0387
3d5f: 0d        push  psw
3d60: 50 0c     bvc   $3d6e
3d62: 85 03 ff  adc a, $ff03
3d65: 67 3d     cmp a,($3d+x)
3d67: 14 d0     or a, $d0+x
3d69: 0a 9f 03  or1   c,$0073,7
3d6c: 14 d0     or a, $d0+x
3d6e: 0a a4 03  or1   c,$0074,4
3d71: 14 90     or a, $90+x
3d73: 0a a4 03  or1   c,$0074,4
3d76: 14 40     or a, $40+x
3d78: 0a a3 03  or1   c,$0074,3
3d7b: 14 30     or a, $30+x
3d7d: 0a a2 03  or1   c,$0074,2
3d80: ff        stop
3d81: 85 3d 8b  adc a, $8b3d
3d84: 3d        inc x
3d85: 08 d0     or a, #$d0
3d87: 0a 94 59  or1   c,$0b32,4
3d8a: ff        stop
3d8b: 25 d0 0a  and a, $0ad0
3d8e: 98 10 25  adc $25,#$10
3d91: d0 0a     bne $3d9d
3d93: 93 16 25  bbc4  $16,$3dba
3d96: 90 0a     bcc $3da2
3d98: 8f 15 ff  mov $ff,#$15
3d9b: 9d        mov x,sp
3d9c: 3d        inc x
3d9d: 25 d0 0a  and a, $0ad0
3da0: 90 09     bcc $3dab
3da2: 00        nop
3da3: d8 0a     mov $0a,x
3da5: 97 07     adc a,($07)+y
3da7: ff        stop
3da8: aa 3d 14  mov1  c,$0287,5
3dab: 80        setc
3dac: 0a 9f 03  or1   c,$0073,7
3daf: 14 80     or a, $80+x
3db1: 0a 98 0a  or1   c,$0153,0
3db4: 14 40     or a, $40+x
3db6: 0a 98 03  or1   c,$0073,0
3db9: 14 30     or a, $30+x
3dbb: 0a 98 03  or1   c,$0073,0
3dbe: ff        stop
3dbf: c1        tcall 12
3dc0: 3d        inc x
3dc1: 14 80     or a, $80+x
3dc3: 0a 98 03  or1   c,$0073,0
3dc6: 14 a0     or a, $a0+x
3dc8: 0a 9d 07  or1   c,$00f3,5
3dcb: 14 50     or a, $50+x
3dcd: 0a 98 03  or1   c,$0073,0
3dd0: 14 30     or a, $30+x
3dd2: 0a 9d 06  or1   c,$00d3,5
3dd5: ff        stop
3dd6: d8 3d     mov $3d,x
3dd8: 14 d0     or a, $d0+x
3dda: 0a 90 03  or1   c,$0072,0
3ddd: 14 e0     or a, $e0+x
3ddf: 0a 93 03  or1   c,$0072,3
3de2: 14 d0     or a, $d0+x
3de4: 0a 95 03  or1   c,$0072,5
3de7: 14 50     or a, $50+x
3de9: 0a 95 03  or1   c,$0072,5
3dec: ff        stop
3ded: ef        sleep
3dee: 3d        inc x
3def: 14 e0     or a, $e0+x
3df1: 0c 84 03  asl $0384
3df4: 14 d0     or a, $d0+x
3df6: 0c 89 03  asl $0389
3df9: 14 e0     or a, $e0+x
3dfb: 0c 84 03  asl $0384
3dfe: 14 d0     or a, $d0+x
3e00: 0c 89 03  asl $0389
3e03: ff        stop
3e04: 06        or a,(x)
3e05: 3e 08     cmp x,$08
3e07: d0 0a     bne $3e13
3e09: 98 03 08  adc $08,#$03
3e0c: d0 0a     bne $3e18
3e0e: 95 03 08  adc a, $0803+x
3e11: d0 0a     bne $3e1d
3e13: 9a 03     subw ya, $03
3e15: 08 d0     or a, #$d0
3e17: 0a 8c 03  or1   c,$0071,4
3e1a: 08 d0     or a, #$d0
3e1c: 0a 8c 25  or1   c,$04b1,4
3e1f: ff        stop
3e20: 22 3e     set1  $3e
3e22: 00        nop
3e23: e0        clrv
3e24: 0a 91 08  or1   c,$0112,1
3e27: 08 d0     or a, #$d0
3e29: 0a a1 03  or1   c,$0074,1
3e2c: 08 d0     or a, #$d0
3e2e: 0a 9e 03  or1   c,$0073,6
3e31: 08 d0     or a, #$d0
3e33: 0a a3 03  or1   c,$0074,3
3e36: 08 d0     or a, #$d0
3e38: 0a 8e 03  or1   c,$0071,6
3e3b: 08 d0     or a, #$d0
3e3d: 0a 8e 25  or1   c,$04b1,6
3e40: ff        stop
3e41: 43 3e 00  bbs2  $3e,$3e43
3e44: d8 0a     mov $0a,x
3e46: 95 05 01  adc a, $0105+x
3e49: 90 0a     bcc $3e55
3e4b: a4 08     sbc a, $08
3e4d: f5 f0 80  mov a, $80f0+x
3e50: 0b a0     asl $a0
3e52: 0a b0 0e  or1   c,$01d6,0
3e55: f5 f0 80  mov a, $80f0+x
3e58: 0b 70     asl $70
3e5a: 0a b0 0e  or1   c,$01d6,0
3e5d: f5 f0 80  mov a, $80f0+x
3e60: 0b 30     asl $30
3e62: 0a b0 0e  or1   c,$01d6,0
3e65: ff        stop
3e66: 6a 3e 7f  and1  c,!($0fe7,6)
3e69: 3e 14     cmp x,$14
3e6b: d0 0a     bne $3e77
3e6d: 8b 11     dec $11
3e6f: 14 d0     or a, $d0+x
3e71: 0a 89 20  or1   c,$0411,1
3e74: 14 80     or a, $80+x
3e76: 0a 89 05  or1   c,$00b1,1
3e79: 14 30     or a, $30+x
3e7b: 0a 89 05  or1   c,$00b1,1
3e7e: ff        stop
3e7f: 14 d0     or a, $d0+x
3e81: 0a 80 09  or1   c,$0130,0
3e84: 14 d0     or a, $d0+x
3e86: 0a 82 20  or1   c,$0410,2
3e89: 14 80     or a, $80+x
3e8b: 0a 82 05  or1   c,$00b0,2
3e8e: 14 30     or a, $30+x
3e90: 0a 82 05  or1   c,$00b0,2
3e93: ff        stop
3e94: 96 3e 08  adc a, $083e+y
3e97: d0 0a     bne $3ea3
3e99: 98 03 08  adc $08,#$03
3e9c: d0 0a     bne $3ea8
3e9e: 95 03 08  adc a, $0803+x
3ea1: d0 0a     bne $3ead
3ea3: 9a 03     subw ya, $03
3ea5: 08 d0     or a, #$d0
3ea7: 0a 8c 03  or1   c,$0071,4
3eaa: 08 d0     or a, #$d0
3eac: 0a 8c 25  or1   c,$04b1,4
3eaf: ff        stop
3eb0: b2 3e     clr5  $3e
3eb2: 08 40     or a, #$40
3eb4: 0a 9f 04  or1   c,$0093,7
3eb7: 08 40     or a, #$40
3eb9: 0a 9c 03  or1   c,$0073,4
3ebc: 08 40     or a, #$40
3ebe: 0a a1 03  or1   c,$0074,1
3ec1: 08 40     or a, #$40
3ec3: 0a 93 04  or1   c,$0092,3
3ec6: 08 40     or a, #$40
3ec8: 0a 93 25  or1   c,$04b2,3
3ecb: ff        stop
3ecc: 96 3e d0  adc a, $d03e+y
3ecf: 3e 08     cmp x,$08
3ed1: d0 0a     bne $3edd
3ed3: 98 03 08  adc $08,#$03
3ed6: d0 0a     bne $3ee2
3ed8: 95 03 08  adc a, $0803+x
3edb: d0 0a     bne $3ee7
3edd: 9a 03     subw ya, $03
3edf: 08 d0     or a, #$d0
3ee1: 0a 98 03  or1   c,$0073,0
3ee4: 08 d0     or a, #$d0
3ee6: 0a 95 03  or1   c,$0072,5
3ee9: 08 d0     or a, #$d0
3eeb: 0a 9a 03  or1   c,$0073,2
3eee: 08 d0     or a, #$d0
3ef0: 0a 98 03  or1   c,$0073,0
3ef3: 08 d0     or a, #$d0
3ef5: 0a 95 03  or1   c,$0072,5
3ef8: 08 d0     or a, #$d0
3efa: 0a 9a 03  or1   c,$0073,2
3efd: 08 d0     or a, #$d0
3eff: 0a 8c 20  or1   c,$0411,4
3f02: ff        stop
3f03: 07 3f     or a,($3f+x)
3f05: 0d        push  psw
3f06: 3f 25 d0  call $d025
3f09: 0a 8e 40  or1   c,$0811,6
3f0c: ff        stop
3f0d: 25 00 0a  and a, $0a00
3f10: 87 15     adc a,($15+x)
3f12: 25 d0 0a  and a, $0ad0
3f15: 87 40     adc a,($40+x)
3f17: ff        stop
3f18: 1a 3f     decw  $3f
3f1a: 25 d0 0a  and a, $0ad0
3f1d: 95 45 ff  adc a, $ff45+x
3f20: 24 3f     and a, $3f
3f22: 34 3f     and a, $3f+x
3f24: 25 d0 0a  and a, $0ad0
3f27: 9f        xcn a
3f28: 60        clrc
3f29: 25 d0 0a  and a, $0ad0
3f2c: 9a 30     subw ya, $30
3f2e: 25 d0 0a  and a, $0ad0
3f31: 98 30 ff  adc $ff,#$30
3f34: 25 00 0a  and a, $0a00
3f37: 9a 45     subw ya, $45
3f39: 25 d0 0a  and a, $0ad0
3f3c: 9c        dec a
3f3d: 60        clrc
3f3e: 25 d0 0a  and a, $0ad0
3f41: 97 50     adc a,($50)+y
3f43: ff        stop
3f44: 46        eor a,(x)
3f45: 3f 08 50  call $5008
3f48: 0a ad 03  or1   c,$0075,5
3f4b: 08 50     or a, #$50
3f4d: 0a ad 04  or1   c,$0095,5
3f50: f5 90 c7  mov a, $c790+x
3f53: 10 40     bpl $3f95
3f55: 0a bc 07  or1   c,$00f7,4
3f58: 10 20     bpl $3f7a
3f5a: 0a c3 03  or1   c,$0078,3
3f5d: ff        stop
3f5e: 60        clrc
3f5f: 3f 25 90  call $9025
3f62: 0a 93 06  or1   c,$00d2,3
3f65: 25 b0 0a  and a, $0ab0
3f68: 98 10 25  adc $25,#$10
3f6b: 40        setp
3f6c: 0a 98 03  or1   c,$0073,0
3f6f: 25 30 0a  and a, $0a30
3f72: 98 03 ff  adc $ff,#$03
3f75: 77 3f     cmp a,($3f)+y
3f77: 0f        brk
3f78: 70 0a     bvs   $3f84
3f7a: 8b 0d     dec $0d
3f7c: 0f        brk
3f7d: 80        setc
3f7e: 0a 92 0d  or1   c,$01b2,2
3f81: ff        stop
3f82: 84 3f     adc a, $3f
3f84: 1d        dec x
3f85: 70 0a     bvs   $3f91
3f87: ac 0b ff  inc $ff0b
3f8a: 8c 3f 1d  dec $1d3f
3f8d: 70 0a     bvs   $3f99
3f8f: b4 04     sbc a, $04+x
3f91: 1d        dec x
3f92: 70 0a     bvs   $3f9e
3f94: b0 04     bcs   $3f9a
3f96: ff        stop
3f97: 99        adc (x),(y)
3f98: 3f 00 d8  call $d800
3f9b: 0a 90 16  or1   c,$02d2,0
3f9e: ff        stop
3f9f: a1        tcall 10
3fa0: 3f 1d 70  call $701d
3fa3: 0a a9 07  or1   c,$00f5,1
3fa6: 1d        dec x
3fa7: 20        clrp
3fa8: 0a a9 07  or1   c,$00f5,1
3fab: 1d        dec x
3fac: 70 0a     bvs   $3fb8
3fae: ae        pop a
3faf: 07 1d     or a,($1d+x)
3fb1: 20        clrp
3fb2: 0a ae 07  or1   c,$00f5,6
3fb5: 1d        dec x
3fb6: 70 0a     bvs   $3fc2
3fb8: b0 07     bcs   $3fc1
3fba: 1d        dec x
3fbb: 20        clrp
3fbc: 0a b0 07  or1   c,$00f6,0
3fbf: 1d        dec x
3fc0: 70 0a     bvs   $3fcc
3fc2: b2 07     clr5  $07
3fc4: 1d        dec x
3fc5: 20        clrp
3fc6: 0a b2 07  or1   c,$00f6,2
3fc9: 1d        dec x
3fca: 70 0a     bvs   $3fd6
3fcc: b4 07     sbc a, $07+x
3fce: 1d        dec x
3fcf: 20        clrp
3fd0: 0a b4 07  or1   c,$00f6,4
3fd3: 1d        dec x
3fd4: 70 0a     bvs   $3fe0
3fd6: b0 07     bcs   $3fdf
3fd8: 1d        dec x
3fd9: 20        clrp
3fda: 0a b0 07  or1   c,$00f6,0
3fdd: 1d        dec x
3fde: 70 0a     bvs   $3fea
3fe0: ab 07     inc $07
3fe2: 1d        dec x
3fe3: 20        clrp
3fe4: 0a ab 07  or1   c,$00f5,3
3fe7: 1d        dec x
3fe8: 70 0a     bvs   $3ff4
3fea: b0 07     bcs   $3ff3
3fec: 1d        dec x
3fed: 20        clrp
3fee: 0a b0 07  or1   c,$00f6,0
3ff1: 1d        dec x
3ff2: 70 0a     bvs   $3ffe
3ff4: b5 07 1d  sbc a, $1d07+x
3ff7: 20        clrp
3ff8: 0a b5 07  or1   c,$00f6,5
3ffb: 1d        dec x
3ffc: 70 0a     bvs   $4008
3ffe: b2 07     clr5  $07
4000: 1d        dec x
4001: 20        clrp
4002: 0a b2 07  or1   c,$00f6,2
4005: 1d        dec x
4006: 70 0a     bvs   $4012
4008: ae        pop a
4009: 07 1d     or a,($1d+x)
400b: 20        clrp
400c: 0a ae 07  or1   c,$00f5,6
400f: 1d        dec x
4010: 70 0a     bvs   $401c
4012: ab 07     inc $07
4014: 1d        dec x
4015: 20        clrp
4016: 0a ab 07  or1   c,$00f5,3
4019: 1d        dec x
401a: 70 0a     bvs   $4026
401c: ad 20     cmp y,#$20
401e: ff        stop
401f: 21        tcall 2
4020: 40        setp
4021: 14 80     or a, $80+x
4023: 0a 8c 03  or1   c,$0071,4
4026: 14 a0     or a, $a0+x
4028: 0a 91 05  or1   c,$00b2,1
402b: 14 50     or a, $50+x
402d: 0a 8c 03  or1   c,$0071,4
4030: 14 30     or a, $30+x
4032: 0a 91 06  or1   c,$00d2,1
4035: ff        stop
4036: 3a 40     incw  $40
4038: 50 40     bvc   $407a
403a: 03 90 0a  bbs0 $90,$4046
403d: 89 05 f5  adc $f5, $05
4040: f0 bb     beq $3ffd
4042: 07 40     or a,($40+x)
4044: 0a b0 20  or1   c,$0416,0
4047: fe 00     dbnz  y,$4049
4049: 07 40     or a,($40+x)
404b: 0a bb 0a  or1   c,$0157,3
404e: fb ff     mov y,$ff+x
4050: 03 90 0a  bbs0 $90,$405c
4053: 87 05     adc a,($05+x)
4055: f5 f0 c7  mov a, $c7f0+x
4058: 07 40     or a,($40+x)
405a: 0a bc 20  or1   c,$0417,4
405d: fe 00     dbnz  y,$405f
405f: 0b 10     asl $10
4061: 0a b9 07  or1   c,$00f7,1
4064: fb ff     mov y,$ff+x
4066: 6a 40 73  and1  c,!($0e68,0)
4069: 40        setp
406a: f5 f0 b0  mov a, $b0f0+x
406d: 07 90     or a,($90+x)
406f: 0a bb 08  or1   c,$0117,3
4072: ff        stop
4073: f5 f0 80  mov a, $80f0+x
4076: 0b 10     asl $10
4078: 0a b9 08  or1   c,$0117,1
407b: ff        stop
407c: 02 4f     set0  $4f
407e: 80        setc
407f: 40        setp
4080: 07 60     or a,($60+x)
4082: 0a c7 10  or1   c,$0218,7
4085: ff        stop
4086: 4b 50     lsr $50
4088: aa 50 f9  mov1  c,$1f2a,0
408b: 4f 8e     pcall $8e
408d: 40        setp
408e: 13 60 0a  bbc0  $60,$409a
4091: 95 05 13  adc a, $1305+x
4094: 40        setp
4095: 0a 95 03  or1   c,$0072,5
4098: 13 10 0a  bbc0  $10,$40a4
409b: 95 03 ff  adc a, $ff03+x
409e: a0        ei
409f: 40        setp
40a0: 00        nop
40a1: 70 0a     bvs   $40ad
40a3: 95 0c ff  adc a, $ff0c+x
40a6: a8 40     sbc a, #$40
40a8: f5 f0 80  mov a, $80f0+x
40ab: 0b 30     asl $30
40ad: 0a c7 08  or1   c,$0118,7
40b0: ff        stop
40b1: b3 40 ff  bbc5  $40,$40b2
40b4: b6 40 08  sbc a, $0840+y
40b7: d0 0a     bne $40c3
40b9: 94 20     adc a, $20+x
40bb: ff        stop
40bc: be        das a
40bd: 40        setp
40be: 08 d0     or a, #$d0
40c0: 0a 94 03  or1   c,$0072,4
40c3: 08 d0     or a, #$d0
40c5: 0a 97 03  or1   c,$0072,7
40c8: 08 d0     or a, #$d0
40ca: 0a 99 20  or1   c,$0413,1
40cd: ff        stop
40ce: d0 40     bne $4110
40d0: ff        stop
40d1: d3 40 03  bbc6  $40,$40d6
40d4: 50 0a     bvc   $40e0
40d6: 98 02 03  adc $03,#$02
40d9: 50 0a     bvc   $40e5
40db: 98 02 ff  adc $ff,#$02
40de: e0        clrv
40df: 40        setp
40e0: 08 d0     or a, #$d0
40e2: 0a 8e 07  or1   c,$00f1,6
40e5: 08 d0     or a, #$d0
40e7: 0a 8e 10  or1   c,$0211,6
40ea: 08 d0     or a, #$d0
40ec: 0a 8e 09  or1   c,$0131,6
40ef: 08 d0     or a, #$d0
40f1: 0a 8e 0e  or1   c,$01d1,6
40f4: ff        stop
40f5: f7 40     mov a,($40)+y
40f7: 14 d0     or a, $d0+x
40f9: 0a 98 03  or1   c,$0073,0
40fc: 14 e0     or a, $e0+x
40fe: 0a 97 03  or1   c,$0072,7
4101: 14 d0     or a, $d0+x
4103: 0a 95 03  or1   c,$0072,5
4106: 14 50     or a, $50+x
4108: 0a 95 03  or1   c,$0072,5
410b: ff        stop
410c: 0e 41 00  tset1 $0041
410f: d8 0a     mov $0a,x
4111: 95 08 f5  adc a, $f508+x
4114: f0 8c     beq $40a2
4116: 0b d0     asl $d0
4118: 0a a3 06  or1   c,$00d4,3
411b: f5 f0 8c  mov a, $8cf0+x
411e: 0b b0     asl $b0
4120: 0a a3 06  or1   c,$00d4,3
4123: f5 f0 8c  mov a, $8cf0+x
4126: 0b 70     asl $70
4128: 0a a3 06  or1   c,$00d4,3
412b: ff        stop
412c: 2e 41 14  cbne $41,$4142
412f: 80        setc
4130: 0a ab 04  or1   c,$0095,3
4133: 14 50     or a, $50+x
4135: 0a ab 04  or1   c,$0095,3
4138: 14 30     or a, $30+x
413a: 0a ab 04  or1   c,$0095,3
413d: 14 20     or a, $20+x
413f: 0a ab 04  or1   c,$0095,3
4142: ff        stop
4143: 45 41 24  eor a, $2441
4146: 70 0a     bvs   $4152
4148: 9c        dec a
4149: 03 24 50  bbs0 $24,$419b
414c: 0a 9a 04  or1   c,$0093,2
414f: 24 40     and a, $40
4151: 0a 9a 06  or1   c,$00d3,2
4154: 24 10     and a, $10
4156: 0a 9a 06  or1   c,$00d3,2
4159: ff        stop
415a: 5c        lsr a
415b: 41        tcall 4
415c: 08 a0     or a, #$a0
415e: 0c 98 08  asl $0898
4161: ff        stop
4162: 64 41     cmp a, $41
4164: 00        nop
4165: 40        setp
4166: 0a 9c 08  or1   c,$0113,4
4169: 0f        brk
416a: 80        setc
416b: 0a 93 13  or1   c,$0272,3
416e: ff        stop
416f: 71        tcall 7
4170: 41        tcall 4
4171: 0b 20     asl $20
4173: 0a 89 03  or1   c,$0071,1
4176: 0b 30     asl $30
4178: 0a 89 03  or1   c,$0071,1
417b: 0b 40     asl $40
417d: 0a 89 03  or1   c,$0071,1
4180: 0b 50     asl $50
4182: 0a 89 03  or1   c,$0071,1
4185: 0b 60     asl $60
4187: 0a 89 03  or1   c,$0071,1
418a: 0b 70     asl $70
418c: 0a 89 03  or1   c,$0071,1
418f: 0b 80     asl $80
4191: 0a 89 03  or1   c,$0071,1
4194: 0b 60     asl $60
4196: 0a 89 03  or1   c,$0071,1
4199: 0b 50     asl $50
419b: 0a 89 03  or1   c,$0071,1
419e: 0b 40     asl $40
41a0: 0a 89 03  or1   c,$0071,1
41a3: 0b 30     asl $30
41a5: 0a 89 03  or1   c,$0071,1
41a8: ff        stop
41a9: ad 41     cmp y,#$41
41ab: b6 41 f5  sbc a, $f541+y
41ae: b0 c7     bcs   $4177
41b0: 05 d0 0a  or a, $0ad0
41b3: 98 46 ff  adc $ff,#$46
41b6: f5 a0 c7  mov a, $c7a0+x
41b9: 09 d0 0f  or $0f, $d0
41bc: 80        setc
41bd: 50 f5     bvc   $41b4
41bf: 50 80     bvc   $4141
41c1: 09 d0 0a  or $0a, $d0
41c4: ab 46     inc $46
41c6: ff        stop
41c7: c9 41 0f  mov $0f41,x
41ca: b0 0a     bcs   $41d6
41cc: 93 10 0f  bbc4  $10,$41dd
41cf: 40        setp
41d0: 0a 93 03  or1   c,$0072,3
41d3: 0f        brk
41d4: 30 0a     bmi $41e0
41d6: 93 03 ff  bbc4  $03,$41d7
41d9: dd        mov a,y
41da: 41        tcall 4
41db: e3 41 24  bbs7  $41,$4201
41de: a0        ei
41df: 0a 9a 0e  or1   c,$01d3,2
41e2: ff        stop
41e3: 24 00     and a, $00
41e5: 0a 8c 03  or1   c,$0071,4
41e8: 24 90     and a, $90
41ea: 0a 98 14  or1   c,$0293,0
41ed: ff        stop
41ee: f2 41     clr7 $41
41f0: 07 42     or a,($42+x)
41f2: 19        or (x),(y)
41f3: 60        clrc
41f4: 0a a4 13  or1   c,$0274,4
41f7: 19        or (x),(y)
41f8: 50 0a     bvc   $4204
41fa: a4 13     sbc a, $13
41fc: 19        or (x),(y)
41fd: 30 0a     bmi $4209
41ff: a4 13     sbc a, $13
4201: 19        or (x),(y)
4202: 10 0a     bpl $420e
4204: a4 13     sbc a, $13
4206: ff        stop
4207: 19        or (x),(y)
4208: 60        clrc
4209: 0a 9f 16  or1   c,$02d3,7
420c: 19        or (x),(y)
420d: 50 0a     bvc   $4219
420f: 9f        xcn a
4210: 16 19 30  or a, $3019+y
4213: 0a 9f 16  or1   c,$02d3,7
4216: 19        or (x),(y)
4217: 10 0a     bpl $4223
4219: 9f        xcn a
421a: 16 ff 1e  or a, $1eff+y
421d: 42 22     set2  $22
421f: d0 0a     bne $422b
4221: 92 2b     clr4  $2b
4223: ff        stop
4224: 26        and a,(x)
4225: 42 0f     set2  $0f
4227: b0 0a     bcs   $4233
4229: 93 10 0f  bbc4  $10,$423a
422c: 40        setp
422d: 0a 93 03  or1   c,$0072,3
4230: 0f        brk
4231: 30 0a     bmi $423d
4233: 93 03 ff  bbc4  $03,$4234
4236: 38 42 14  and $14,#$42
4239: b0 0a     bcs   $4245
423b: 93 05 14  bbc4  $05,$4251
423e: 80        setc
423f: 0a 9c 0a  or1   c,$0153,4
4242: 14 40     or a, $40+x
4244: 0a 9c 03  or1   c,$0073,4
4247: 14 30     or a, $30+x
4249: 0a 9c 03  or1   c,$0073,4
424c: ff        stop
424d: 4f 42     pcall $42
424f: f5 f0 80  mov a, $80f0+x
4252: 0b 40     asl $40
4254: 0a c5 04  or1   c,$0098,5
4257: f5 f0 80  mov a, $80f0+x
425a: 0b 30     asl $30
425c: 0a f6 03  or1   c,$007e,6
425f: f5 f0 80  mov a, $80f0+x
4262: 0b 20     asl $20
4264: 0a f6 03  or1   c,$007e,6
4267: ff        stop
4268: 6c 42 7a  ror $7a42
426b: 42 09     set2  $09
426d: d0 0f     bne $427e
426f: 87 10     adc a,($10+x)
4271: f5 b0 c7  mov a, $c7b0+x
4274: 05 d0 0f  or a, $0fd0
4277: 80        setc
4278: 60        clrc
4279: ff        stop
427a: 09 d0 05  or $05, $d0
427d: 82 30     set4  $30
427f: f5 a0 80  mov a, $80a0+x
4282: 05 d0 05  or a, $05d0
4285: c7 60     mov ($60+x), a
4287: ff        stop
4288: 8a 42 08  eor1  c,$0108,2
428b: 70 0a     bvs   $4297
428d: 98 03 08  adc $08,#$03
4290: 50 0a     bvc   $429c
4292: 95 03 08  adc a, $0803+x
4295: 40        setp
4296: 0a 9a 03  or1   c,$0073,2
4299: ff        stop
429a: 9e        div   ya,x
429b: 42 a4     set2  $a4
429d: 42 24     set2  $24
429f: a0        ei
42a0: 0a 98 0d  or1   c,$01b3,0
42a3: ff        stop
42a4: 24 00     and a, $00
42a6: 0a 94 03  or1   c,$0072,4
42a9: 24 80     and a, $80
42ab: 0a 9a 15  or1   c,$02b3,2
42ae: ff        stop
42af: b3 42 b9  bbc5  $42,$426a
42b2: 42 25     set2  $25
42b4: d0 0a     bne $42c0
42b6: 9d        mov x,sp
42b7: 30 ff     bmi $42b8
42b9: 25 d0 0a  and a, $0ad0
42bc: a1        tcall 10
42bd: 30 ff     bmi $42be
42bf: c3 42 c9  bbs6  $42,$428a
42c2: 42 24     set2  $24
42c4: a0        ei
42c5: 0a 98 15  or1   c,$02b3,0
42c8: ff        stop
42c9: 24 00     and a, $00
42cb: 0a 96 03  or1   c,$0072,6
42ce: 24 80     and a, $80
42d0: 0a 95 1d  or1   c,$03b2,5
42d3: ff        stop
42d4: c1        tcall 12
42d5: 3d        inc x
42d6: d8 42     mov $42,x
42d8: 0f        brk
42d9: b0 0a     bcs   $42e5
42db: 8b 08     dec $08
42dd: f5 f0 bc  mov a, $bcf0+x
42e0: 01        tcall 0
42e1: 70 0a     bvs   $42ed
42e3: 98 09 f5  adc $f5,#$09
42e6: f0 bc     beq $42a4
42e8: 01        tcall 0
42e9: 60        clrc
42ea: 0a 98 09  or1   c,$0133,0
42ed: f5 f0 bc  mov a, $bcf0+x
42f0: 01        tcall 0
42f1: 50 0a     bvc   $42fd
42f3: 98 09 f5  adc $f5,#$09
42f6: f0 bc     beq $42b4
42f8: 01        tcall 0
42f9: 40        setp
42fa: 0a 98 09  or1   c,$0133,0
42fd: ff        stop
42fe: 00        nop
42ff: 43 01 b0  bbs2  $01,$42b1
4302: 0a 80 0f  or1   c,$01f0,0
4305: 01        tcall 0
4306: 60        clrc
4307: 0a 80 03  or1   c,$0070,0
430a: 01        tcall 0
430b: 40        setp
430c: 0a 80 03  or1   c,$0070,0
430f: ff        stop
4310: 12 43     clr0  $43
4312: 00        nop
4313: a0        ei
4314: 0a 84 0f  or1   c,$01f0,4
4317: 00        nop
4318: 60        clrc
4319: 0a 84 03  or1   c,$0070,4
431c: 00        nop
431d: 40        setp
431e: 0a 84 03  or1   c,$0070,4
4321: ff        stop
4322: 24 43     and a, $43
4324: 14 90     or a, $90+x
4326: 0a 82 0a  or1   c,$0150,2
4329: 14 80     or a, $80+x
432b: 0a 82 03  or1   c,$0070,2
432e: 14 60     or a, $60+x
4330: 0a 82 03  or1   c,$0070,2
4333: ff        stop
4334: 36 43 25  and a, $2543+y
4337: 70 0a     bvs   $4343
4339: ab 20     inc $20
433b: ff        stop
433c: 3e 43     cmp x,$43
433e: f5 50 b0  mov a, $b050+x
4341: 09 d0 0a  or $0a, $d0
4344: 8c 20 ff  dec $ff20
4347: 49 43 f5  eor $f5, $43
434a: f0 b0     beq $42fc
434c: 09 d0 0a  or $0a, $d0
434f: 8c 10 ff  dec $ff10
4352: 56 43 8e  eor a, $8e43+y
4355: 43 00 e0  bbs2  $00,$4337
4358: 0a 95 05  or1   c,$00b2,5
435b: 01        tcall 0
435c: e0        clrv
435d: 0a a4 05  or1   c,$00b4,4
4360: 08 e0     or a, #$e0
4362: 0a 9f 04  or1   c,$0093,7
4365: 08 e0     or a, #$e0
4367: 0a 9c 03  or1   c,$0073,4
436a: 08 e0     or a, #$e0
436c: 0a a1 03  or1   c,$0074,1
436f: 08 e0     or a, #$e0
4371: 0a 93 04  or1   c,$0092,3
4374: 08 e0     or a, #$e0
4376: 0a 93 08  or1   c,$0112,3
4379: 08 d0     or a, #$d0
437b: 0a 8b 13  or1   c,$0271,3
437e: 08 d0     or a, #$d0
4380: 0a 89 13  or1   c,$0271,1
4383: 08 d0     or a, #$d0
4385: 0a 85 16  or1   c,$02d0,5
4388: 08 d0     or a, #$d0
438a: 0a 82 18  or1   c,$0310,2
438d: ff        stop
438e: 00        nop
438f: e0        clrv
4390: 0a 95 05  or1   c,$00b2,5
4393: 18 e0 0a  or $0a, #$e0
4396: a4 05     sbc a, $05
4398: 18 e0 0a  or $0a, #$e0
439b: 9f        xcn a
439c: 04 18     or a, $18
439e: e0        clrv
439f: 0a 9c 03  or1   c,$0073,4
43a2: 18 e0 0a  or $0a, #$e0
43a5: a1        tcall 10
43a6: 03 18 e0  bbs0 $18,$4388
43a9: 0a 93 04  or1   c,$0092,3
43ac: 18 e0 0a  or $0a, #$e0
43af: 93 08 18  bbc4  $08,$43c9
43b2: e0        clrv
43b3: 0a 8c 05  or1   c,$00b1,4
43b6: 18 e0 0a  or $0a, #$e0
43b9: 87 04     adc a,($04+x)
43bb: 18 e0 0a  or $0a, #$e0
43be: 84 03     adc a, $03
43c0: ff        stop
43c1: c3 43 f5  bbs6  $43,$43b8
43c4: 50 b0     bvc   $4376
43c6: 09 d0 0a  or $0a, $d0
43c9: 8c 18 ff  dec $ff18
43cc: ce        pop x
43cd: 43 14 a0  bbs2  $14,$436f
43d0: 0a 97 03  or1   c,$0072,7
43d3: 14 a0     or a, $a0+x
43d5: 0a 97 03  or1   c,$0072,7
43d8: 14 a0     or a, $a0+x
43da: 0a 97 03  or1   c,$0072,7
43dd: 14 30     or a, $30+x
43df: 0a 97 03  or1   c,$0072,7
43e2: 14 20     or a, $20+x
43e4: 0a 97 03  or1   c,$0072,7
43e7: ff        stop
43e8: ea 43 14  not1  $0288,3
43eb: 80        setc
43ec: 0a 98 0a  or1   c,$0153,0
43ef: 14 40     or a, $40+x
43f1: 0a 98 03  or1   c,$0073,0
43f4: 14 30     or a, $30+x
43f6: 0a 98 03  or1   c,$0073,0
43f9: ff        stop
43fa: fc        inc y
43fb: 43 00 d8  bbs2  $00,$43d5
43fe: 0a 98 05  or1   c,$00b3,0
4401: f5 f0 c7  mov a, $c7f0+x
4404: 0b 50     asl $50
4406: 0a b0 03  or1   c,$0076,0
4409: f5 f0 c7  mov a, $c7f0+x
440c: 0b 50     asl $50
440e: 0a b0 03  or1   c,$0076,0
4411: f5 f0 c7  mov a, $c7f0+x
4414: 0b 50     asl $50
4416: 0a b0 03  or1   c,$0076,0
4419: f5 f0 bc  mov a, $bcf0+x
441c: 0b 50     asl $50
441e: 0a b0 03  or1   c,$0076,0
4421: ff        stop
4422: 24 44     and a, $44
4424: 1b a0     asl $a0+x
4426: 0a 94 06  or1   c,$00d2,4
4429: 1b 90     asl $90+x
442b: 0a 8c 20  or1   c,$0411,4
442e: ff        stop
442f: 31        tcall 3
4430: 44 02     eor a, $02
4432: 80        setc
4433: 0a 89 05  or1   c,$00b1,1
4436: 02 40     set0  $40
4438: 0a 89 03  or1   c,$0071,1
443b: 02 10     set0  $10
443d: 0a 89 03  or1   c,$0071,1
4440: ff        stop
4441: 99        adc (x),(y)
4442: 3f fc 43  call $43fc
4445: ff        stop
4446: 48 44     eor a, #$44
4448: 00        nop
4449: 40        setp
444a: 0a a8 08  or1   c,$0115,0
444d: ff        stop
444e: 50 44     bvc   $4494
4450: 00        nop
4451: e0        clrv
4452: 0a 91 08  or1   c,$0112,1
4455: 08 90     or a, #$90
4457: 0a a1 03  or1   c,$0074,1
445a: 08 90     or a, #$90
445c: 0a 9e 03  or1   c,$0073,6
445f: 08 90     or a, #$90
4461: 0a a3 03  or1   c,$0074,3
4464: 08 90     or a, #$90
4466: 0a 8e 03  or1   c,$0071,6
4469: 08 90     or a, #$90
446b: 0a 8e 25  or1   c,$04b1,6
446e: ff        stop
446f: 73 44 79  bbc3  $44,$44ea
4472: 44 23     eor a, $23
4474: d0 0a     bne $4480
4476: 80        setc
4477: 20        clrp
4478: ff        stop
4479: 23 d0 0a  bbs1  $d0,$4485
447c: 87 20     adc a,($20+x)
447e: ff        stop
447f: 83 44 89  bbs4  $44,$440a
4482: 44 25     eor a, $25
4484: e0        clrv
4485: 0a 80 c0  or1   c,$1810,0
4488: ff        stop
4489: 24 e0     and a, $e0
448b: 0a 8c c0  or1   c,$1811,4
448e: ff        stop
448f: 91        tcall 9
4490: 44 1a     eor a, $1a
4492: 60        clrc
4493: 0a ab 06  or1   c,$00d5,3
4496: 1a 60     decw  $60
4498: 0a b0 09  or1   c,$0136,0
449b: ff        stop
449c: 9e        div   ya,x
449d: 44 09     eor a, $09
449f: 00        nop
44a0: 0a 8c 03  or1   c,$0071,4
44a3: ff        stop
44a4: a8 44     sbc a, #$44
44a6: ae        pop a
44a7: 44 24     eor a, $24
44a9: a0        ei
44aa: 0a 8c 30  or1   c,$0611,4
44ad: ff        stop
44ae: 24 00     and a, $00
44b0: 0a 9d 03  or1   c,$0073,5
44b3: 24 80     and a, $80
44b5: 0a 87 45  or1   c,$08b0,7
44b8: ff        stop
44b9: bd        mov sp,x
44ba: 44 c3     eor a, $c3
44bc: 44 25     eor a, $25
44be: e0        clrv
44bf: 0a a3 40  or1   c,$0814,3
44c2: ff        stop
44c3: 25 00 0a  and a, $0a00
44c6: a6        sbc a,(x)
44c7: 0c 25 80  asl $8025
44ca: 0a a3 40  or1   c,$0814,3
44cd: ff        stop
44ce: d2 44     clr6  $44
44d0: d8 44     mov $44,x
44d2: 25 90 0a  and a, $0a90
44d5: 92 53     clr4  $53
44d7: ff        stop
44d8: 26        and a,(x)
44d9: e0        clrv
44da: 0a a6 09  or1   c,$0134,6
44dd: 26        and a,(x)
44de: e0        clrv
44df: 0a a4 0d  or1   c,$01b4,4
44e2: 26        and a,(x)
44e3: e0        clrv
44e4: 0a a2 0d  or1   c,$01b4,2
44e7: 26        and a,(x)
44e8: e0        clrv
44e9: 0a a0 0d  or1   c,$01b4,0
44ec: ff        stop
44ed: f1        tcall 15
44ee: 44 47     eor a, $47
44f0: 45 0d 00  eor a, $000d
44f3: 0c a3 05  asl $05a3
44f6: 0d        push  psw
44f7: a0        ei
44f8: 0c a3 02  asl $02a3
44fb: 0d        push  psw
44fc: c0        di
44fd: 0c a1 02  asl $02a1
4500: 0d        push  psw
4501: c0        di
4502: 0c 9f 03  asl $039f
4505: 0d        push  psw
4506: c0        di
4507: 0c 9d 03  asl $039d
450a: 0d        push  psw
450b: b0 0c     bcs   $4519
450d: 9c        dec a
450e: 03 0d a0  bbs0 $0d,$44b0
4511: 0c 9a 02  asl $029a
4514: 0d        push  psw
4515: 90 0c     bcc $4523
4517: a3 02 0d  bbs5  $02,$4526
451a: 90 0c     bcc $4528
451c: 98 04 0d  adc $0d,#$04
451f: a0        ei
4520: 0c 97 02  asl $0297
4523: 0d        push  psw
4524: c0        di
4525: 0c 95 02  asl $0295
4528: 0d        push  psw
4529: c0        di
452a: 0c 93 03  asl $0393
452d: 0d        push  psw
452e: c0        di
452f: 0c 91 03  asl $0391
4532: 0d        push  psw
4533: b0 0c     bcs   $4541
4535: 90 03     bcc $453a
4537: 0d        push  psw
4538: a0        ei
4539: 0c 8e 02  asl $028e
453c: 0d        push  psw
453d: 90 0c     bcc $454b
453f: 97 02     adc a,($02)+y
4541: 0d        push  psw
4542: 90 0c     bcc $4550
4544: 8c 04 ff  dec $ff04
4547: 0d        push  psw
4548: a0        ei
4549: 0c 97 02  asl $0297
454c: 0d        push  psw
454d: b0 0c     bcs   $455b
454f: 90 03     bcc $4554
4551: 0d        push  psw
4552: c0        di
4553: 0c 91 03  asl $0391
4556: 0d        push  psw
4557: c0        di
4558: 0c 91 03  asl $0391
455b: 0d        push  psw
455c: b0 0c     bcs   $456a
455e: 90 03     bcc $4563
4560: 0d        push  psw
4561: 90 0c     bcc $456f
4563: 97 02     adc a,($02)+y
4565: 0d        push  psw
4566: 90 0c     bcc $4574
4568: 97 02     adc a,($02)+y
456a: 0d        push  psw
456b: 90 0c     bcc $4579
456d: 8c 04 0d  dec $0d04
4570: a0        ei
4571: 0c 8b 02  asl $028b
4574: 0d        push  psw
4575: 90 0c     bcc $4583
4577: 8b 02     dec $02
4579: 0d        push  psw
457a: c0        di
457b: 0c 87 03  asl $0387
457e: 0d        push  psw
457f: c0        di
4580: 0c 85 03  asl $0385
4583: 0d        push  psw
4584: c0        di
4585: 0c 89 02  asl $0289
4588: 0d        push  psw
4589: b0 0c     bcs   $4597
458b: 84 03     adc a, $03
458d: 0d        push  psw
458e: c0        di
458f: 0c 89 02  asl $0289
4592: 0d        push  psw
4593: 90 0c     bcc $45a1
4595: 80        setc
4596: 04 ff     or a, $ff
4598: 22 3e     set1  $3e
459a: 9e        div   ya,x
459b: 45 d1 45  eor a, $45d1
459e: 25 d0 0a  and a, $0ad0
45a1: a7 15     sbc a,($15+x)
45a3: 25 d0 0a  and a, $0ad0
45a6: a3 20 25  bbs5  $20,$45cd
45a9: d0 0a     bne $45b5
45ab: a2 63     set5  $63
45ad: 25 00 0a  and a, $0a00
45b0: a2 09     set5  $09
45b2: 25 d0 0a  and a, $0ad0
45b5: a2 60     set5  $60
45b7: 25 00 0a  and a, $0a00
45ba: a2 09     set5  $09
45bc: 25 d0 0a  and a, $0ad0
45bf: a2 60     set5  $60
45c1: 25 00 0a  and a, $0a00
45c4: a2 09     set5  $09
45c6: 25 d0 0a  and a, $0ad0
45c9: a3 20 25  bbs5  $20,$45f0
45cc: d0 0a     bne $45d8
45ce: a2 33     set5  $33
45d0: ff        stop
45d1: 26        and a,(x)
45d2: d0 0a     bne $45de
45d4: a6        sbc a,(x)
45d5: 0d        push  psw
45d6: 26        and a,(x)
45d7: d0 0a     bne $45e3
45d9: a6        sbc a,(x)
45da: 0d        push  psw
45db: 26        and a,(x)
45dc: d0 0a     bne $45e8
45de: a5 0d 26  sbc a, $260d
45e1: d0 0a     bne $45ed
45e3: a4 0d     sbc a, $0d
45e5: 26        and a,(x)
45e6: d0 0a     bne $45f2
45e8: a7 0d     sbc a,($0d+x)
45ea: 26        and a,(x)
45eb: d0 0a     bne $45f7
45ed: a2 0d     set5  $0d
45ef: 26        and a,(x)
45f0: 00        nop
45f1: 0a aa 7b  or1   c,$0f75,2
45f4: 26        and a,(x)
45f5: 00        nop
45f6: 0a aa 90  or1   c,$1215,2
45f9: 26        and a,(x)
45fa: d0 0a     bne $4606
45fc: a7 0d     sbc a,($0d+x)
45fe: 26        and a,(x)
45ff: d0 0a     bne $460b
4601: a6        sbc a,(x)
4602: 0d        push  psw
4603: 26        and a,(x)
4604: d0 0a     bne $4610
4606: a5 0d 26  sbc a, $260d
4609: d0 0a     bne $4615
460b: a4 0d     sbc a, $0d
460d: 26        and a,(x)
460e: d0 0a     bne $461a
4610: a3 0d 26  bbs5  $0d,$4638
4613: d0 0a     bne $461f
4615: a2 0d     set5  $0d
4617: ff        stop
4618: 1c        asl a
4619: 46        eor a,(x)
461a: 22 46     set1  $46
461c: 24 a0     and a, $a0
461e: 0a 9c 20  or1   c,$0413,4
4621: ff        stop
4622: 24 00     and a, $00
4624: 0a 9d 05  or1   c,$00b3,5
4627: 24 80     and a, $80
4629: 0a 95 40  or1   c,$0812,5
462c: ff        stop
462d: 31        tcall 3
462e: 46        eor a,(x)
462f: 37 46     and a,($46)+y
4631: 26        and a,(x)
4632: d0 0a     bne $463e
4634: 95 38 ff  adc a, $ff38+x
4637: 26        and a,(x)
4638: 00        nop
4639: 0a 95 0a  or1   c,$0152,5
463c: 26        and a,(x)
463d: d0 0a     bne $4649
463f: 9c        dec a
4640: 38 ff 46  and $46,#$ff
4643: 46        eor a,(x)
4644: 4c 46 26  lsr $2646
4647: d0 0a     bne $4653
4649: 8e        pop   psw
464a: 40        setp
464b: ff        stop
464c: 26        and a,(x)
464d: 00        nop
464e: 0a 8e 0a  or1   c,$0151,6
4651: 26        and a,(x)
4652: d0 0a     bne $465e
4654: 99        adc (x),(y)
4655: 40        setp
4656: ff        stop
4657: 5b 46     lsr $46+x
4659: 61        tcall 6
465a: 46        eor a,(x)
465b: 26        and a,(x)
465c: d0 0a     bne $4668
465e: 9e        div   ya,x
465f: 3d        inc x
4660: ff        stop
4661: 26        and a,(x)
4662: 00        nop
4663: 0a 9e 0a  or1   c,$0153,6
4666: 26        and a,(x)
4667: d0 0a     bne $4673
4669: 9d        mov x,sp
466a: 3d        inc x
466b: ff        stop
466c: 6e 46 24  dbnz  $46,$4692
466f: 90 0a     bcc $467b
4671: 94 1a     adc a, $1a+x
4673: 24 30     and a, $30
4675: 0a 94 10  or1   c,$0212,4
4678: ff        stop
4679: 7b 46     ror $46+x
467b: 22 d0     set1  $d0
467d: 0a 88 90  or1   c,$1211,0
4680: 22 d0     set1  $d0
4682: 0a 8e 37  or1   c,$06f1,6
4685: ff        stop
4686: 88 46     adc a, #$46
4688: 25 d0 0a  and a, $0ad0
468b: 87 c0     adc a,($c0+x)
468d: ff        stop
468e: 92 46     clr4  $46
4690: c8 46     cmp x,#$46
4692: fe 00     dbnz  y,$4694
4694: 24 d0     and a, $d0
4696: 0a 84 0d  or1   c,$01b0,4
4699: 24 d0     and a, $d0
469b: 0a 85 0d  or1   c,$01b0,5
469e: 24 d0     and a, $d0
46a0: 0a 87 0d  or1   c,$01b0,7
46a3: 24 d0     and a, $d0
46a5: 0a 89 0d  or1   c,$01b1,1
46a8: 24 d0     and a, $d0
46aa: 0a 8b 0d  or1   c,$01b1,3
46ad: 24 d0     and a, $d0
46af: 0a 8c 0d  or1   c,$01b1,4
46b2: 24 d0     and a, $d0
46b4: 0a 8e 0d  or1   c,$01b1,6
46b7: 24 d0     and a, $d0
46b9: 0a 90 0d  or1   c,$01b2,0
46bc: 24 d0     and a, $d0
46be: 0a 91 0d  or1   c,$01b2,1
46c1: 24 d0     and a, $d0
46c3: 0a 93 0d  or1   c,$01b2,3
46c6: fb ff     mov y,$ff+x
46c8: 24 00     and a, $00
46ca: 0a 80 04  or1   c,$0090,0
46cd: fe 00     dbnz  y,$46cf
46cf: 24 d0     and a, $d0
46d1: 0a 84 0d  or1   c,$01b0,4
46d4: 24 d0     and a, $d0
46d6: 0a 85 0d  or1   c,$01b0,5
46d9: 24 d0     and a, $d0
46db: 0a 87 0d  or1   c,$01b0,7
46de: 24 d0     and a, $d0
46e0: 0a 89 0d  or1   c,$01b1,1
46e3: 24 d0     and a, $d0
46e5: 0a 8b 0d  or1   c,$01b1,3
46e8: 24 d0     and a, $d0
46ea: 0a 8c 0d  or1   c,$01b1,4
46ed: 24 d0     and a, $d0
46ef: 0a 8e 0d  or1   c,$01b1,6
46f2: 24 d0     and a, $d0
46f4: 0a 90 0d  or1   c,$01b2,0
46f7: 24 d0     and a, $d0
46f9: 0a 91 0d  or1   c,$01b2,1
46fc: 24 d0     and a, $d0
46fe: 0a 93 0d  or1   c,$01b2,3
4701: fb ff     mov y,$ff+x

$4703:

    jmp $47d4

// =============================================================================

    $4706:
    
        mov a, !$04a9; beq $470b
    
    $470b:
    
        mov y, $0b
        
        mov a, $03; mov $0b, a
                    mov $07, a
        
        cmp y, $03; bne $471d
    
    $4717:
    
        mov a, !$0470; bne $4703
        
        ret
    
    $471d:
    
        cmp a, #$00; beq $4717
        
        mov a, $03; cmp a, #$01; beq $4739
        
        mov a, !$04ba; cmp a, #$02; beq $4717
        
        mov a, $03; cmp a, #$02; beq $4739
        
        mov a, !$04bd; bne $4717
    
    $4739:
    
        mov a, !$0470; beq $4749
        
        mov a, #$00; mov !$0485, a
        
        call $4b86
        call $4bc9
    
    $4749:
    
        mov a, #$00; mov !$049f, a
                     mov !$04a6, a
        
        mov a, $07; dec a; asl a; mov !$0471, a
        
        mov x, $0471
        
        mov a, !$4e8f+x; mov $e0, a
        
        inc x
        
        mov a, !$4e8f+x; mov $e1, a
        
        mov a, $07; mov !$0470, a
        
        cmp a, #$fe; beq $47d4
        
        cmp a, #$ff; beq $47d4
        
        call $2875
        
        // 0x00
        dw $4dd0
        dw $4de0
        dw $4deb
        dw $4def
        dw $4def
        dw $4df3
        dw $4df7
        dw $4df7
        dw $4dfb
        dw $4dff
        dw $4e03
        dw $4e07
        dw $4e07
        dw $4e0b
        dw $4e0f
        dw $4e13
        
        // 0x10
        dw $4e17
        dw $4e1b
        dw $4e1f
        dw $4e23
        dw $4e23
        dw $4e27
        dw $4e2b
        dw $4e2f
        dw $4e33
        dw $4e37
        dw $4e3b
        dw $4e3f
        dw $4e3f
        dw $4e3f
        dw $4e3f
        dw $4e43
        
        // 0x20
        dw $4e43
        dw $4747
        dw $4e47
        dw $4e4b
        dw $4e4f
        dw $4e4f
        dw $4e4f
        dw $4e4f
        dw $4e4f
        dw $4e4f
        dw $4e4f
        dw $4e53
        dw $4e57
        dw $4e5b
        dw $4e5f
        
// =============================================================================

    $47d4:
    
        mov a, #$ff; cmp a, !$047c; beq $4815
        
        call $4c3b
        
        mov y, #$00
        
        mov a, ($e0)+y; mov $e8, a
        
        call $4dc8
        
        mov $e9, a
        
        call $4dc8
        
        mov $ea, a
        
        call $4dc8
        
        mov $eb, a
        
        mov a, !$0483
        
        call $4dcc
        
        mov !$0486, a
        
        mov a, !$0484
        
        call $4dcc
        
        mov !$0487, a
        
        mov y, #$00; mov !$0472, y
                     mov !$0473, y
        
        mov y, #$01; mov !$0474, y
                     mov !$0475, y
        
    $4815:
    
        mov a, #$ff; cmp a, !$0476; bne $481f
        
        jmp $49cf
    
    $481f:
    
        dec !$0474; beq $4827
        
        jmp $4968
    
    $4827:
    
        mov a, !$049f; beq $482e
        
        bra $4871
    
    $482e:
    
        mov a, #$00; mov !$049e, a
                     mov !$049c, a
                     mov !$049d, a
        
        mov a, #$ff; cmp a, !$048c; beq $4856
        
        mov a, !$047e; or a, $46; mov $46, a
        
        mov a, #$02; mov !$048d, a
        
        mov a, #$01; mov !$0474, a
        
        mov a, #$ff; mov !$048c, a
    
    $4856:
    
        dec !$048d; beq $485e
        
        jmp $49cf
    
    $485e:
    
        mov a, #$00; mov !$048c, a
        
        mov a, !$0480; and a, $47; mov $47, a
        
        mov a, !$0480; and a, $49; mov $49, a
    
    $4871:
    
        call $4c1d
        
        cmp a, #$fa; bne $4878
    
    $4878:
    
        cmp a, #$f9; bne $4890
        
        call $4c1d
        
        mov !$0494, a
        
        call $4c1d
        
        mov !$0495, a
        
        mov a, #$ff; mov !$0498, a
        
        jmp $4871
    
    $4890:
    
        cmp a, #$f5; bne $4899
        
        mov !$04a0, a
        
        bra $48a2
    
    $4899:
    
        cmp a, #$f8; bne $48b6
        
        mov a, #$00; mov !$04a0, a
    
    $48a2:
    
        call $4c1d
        
        mov !$049c, a
        
        call $4c1d
        
        mov !$049d, a
        
        mov a, #$ff; mov !$049e, a
        
        call $4c1d
    
    $48b6:
    
        cmp a, #$ff; bne $48c0
        
        call $4b86
        
        jmp $49cf
    
    $48c0:
    
        cmp a, #$fe; bne $48d3
        
        call $4c1d
        
        mov !$0490, a
        
        mov a, !$0472; mov !$0492, a
        
        call $4c1d
    
    $48d3:
    
        cmp a, #$fd; bne $48e8
        
        dec !$0490; bne $48df
        
        jmp $4871
    
    $48df:
    
        mov a, !$0492; mov !$0472, a
        
        call $4c1d
    
    $48e8:
    
        cmp a, #$fb; bne $48ef
        
        jmp $48df
    
    $48ef:
    
        cmp a, #$fc; bne $48fd
        
        mov a, !$047e; or a, $49; mov $49, a
        
        jmp $4871
    
    $48fd:
    
        mov x, !$0483
        
        call $18fc
        
        call $4c1d
        
        mov x, !$0483
        
        mov !$0321+x, a
        
        mov a, #$00; mov !$0351+x, a
        
        call $4c1d
        
        mov $11, a; mov $10, #$00
        
        call $1c4a
        
        call $4c1d
        
        cmp a, #$f6; beq $492b
        
        mov !$049a, a
        
        mov a, #$00; mov !$049b, a
    
    $492b:
    
        mov y, !$049a; mov a, !$049b; movw $10, ya
        
        mov x, !$0483
        
        call $16b1
        
        call $4c1d
        
        mov !$0474, a
        
        mov a, !$0498; beq $495c
        
        mov a, !$0486; or a, #$05; mov y, a
        
        mov a, !$0494
        
        call WriteToDsp
        
        mov a, !$0486; or a, #$06; mov y, a
        
        mov a, !$0495
        
        call WriteToDsp
    
    $495c:
    
        mov a, !$049f; bne $4968
        
        mov a, !$047e; or a, $45; mov $45, a
    
    $4968:
    
        mov a, !$049e; cmp a, #$ff; bne $49cf
        
        mov a, !$04a0; beq $4979
        
        mov a, #$ff; mov !$049f, a
    
    $4979:
    
        mov a, !$049a; cmp a, !$049d; bcc $49a2
        
        mov a, !$049b; setc; sbc a, !$049c; mov !$049b, a; bcs $49c1
        
        dec !$049a
        
        mov a, !$049d
4993: 65 9a 04  cmp a, $049a
4996: d0 29     bne $49c1
4998: e8 00     mov a, #$00
499a: c5 9e 04  mov $049e, a
499d: c5 9f 04  mov $049f, a
49a0: 2f 1f     bra $49c1
49a2: e5 9c 04  mov a, $049c
49a5: 60        clrc
49a6: 85 9b 04  adc a, $049b
49a9: c5 9b 04  mov $049b, a
49ac: 90 13     bcc $49c1
49ae: ac 9a 04  inc $049a
49b1: e5 9d 04  mov a, $049d
49b4: 65 9a 04  cmp a, $049a
49b7: d0 08     bne $49c1
49b9: e8 00     mov a, #$00
49bb: c5 9e 04  mov $049e, a
49be: c5 9f 04  mov $049f, a
49c1: e5 9b 04  mov a, $049b
49c4: ec 9a 04  mov y,$049a
49c7: da 10     movw $10,ya
49c9: e9 83 04  mov x,$0483
49cc: 3f b1 16  call $16b1
49cf: e8 ff     mov a, #$ff
49d1: 65 77 04  cmp a, $0477
49d4: d0 03     bne $49d9
49d6: 5f 85 4b  jmp $4b85
49d9: 8c 75 04  dec $0475
49dc: f0 03     beq $49e1
49de: 5f 1e 4b  jmp $4b1e
49e1: e5 a6 04  mov a, $04a6
49e4: f0 02     beq $49e8
49e6: 2f 43     bra $4a2b
49e8: e8 00     mov a, #$00
49ea: c5 a5 04  mov $04a5, a
49ed: c5 a3 04  mov $04a3, a
49f0: c5 a4 04  mov $04a4, a
49f3: e8 ff     mov a, #$ff
49f5: 65 8e 04  cmp a, $048e
49f8: f0 16     beq $4a10
49fa: e5 7f 04  mov a, $047f
49fd: 04 46     or a, $46
49ff: c4 46     mov $46, a
4a01: e8 02     mov a, #$02
4a03: c5 8f 04  mov $048f, a
4a06: e8 01     mov a, #$01
4a08: c5 75 04  mov $0475, a
4a0b: e8 ff     mov a, #$ff
4a0d: c5 8e 04  mov $048e, a
4a10: 8c 8f 04  dec $048f
4a13: f0 03     beq $4a18
4a15: 5f 85 4b  jmp $4b85
4a18: e8 00     mov a, #$00
4a1a: c5 8e 04  mov $048e, a
4a1d: e5 81 04  mov a, $0481
4a20: 24 47     and a, $47
4a22: c4 47     mov $47, a
4a24: e5 81 04  mov a, $0481
4a27: 24 49     and a, $49
4a29: c4 49     mov $49, a
    
    $4a2b:
    
        call $4c26
4a2e: 68 f9     cmp a, #$f9
4a30: d0 14     bne $4a46
4a32: 3f 26 4c  call $4c26
4a35: c5 96 04  mov $0496, a
4a38: 3f 26 4c  call $4c26
4a3b: c5 97 04  mov $0497, a
4a3e: e8 ff     mov a, #$ff
4a40: c5 99 04  mov $0499, a
4a43: 5f 2b 4a  jmp $4a2b
4a46: 68 f5     cmp a, #$f5
4a48: d0 05     bne $4a4f
4a4a: c5 a7 04  mov $04a7, a
4a4d: 2f 09     bra $4a58
4a4f: 68 f8     cmp a, #$f8
4a51: d0 19     bne $4a6c
4a53: e8 00     mov a, #$00
4a55: c5 a7 04  mov $04a7, a
4a58: 3f 26 4c  call $4c26
4a5b: c5 a3 04  mov $04a3, a
4a5e: 3f 26 4c  call $4c26
4a61: c5 a4 04  mov $04a4, a
4a64: e8 ff     mov a, #$ff
4a66: c5 a5 04  mov $04a5, a
4a69: 3f 26 4c  call $4c26
4a6c: 68 ff     cmp a, #$ff
4a6e: d0 06     bne $4a76
4a70: 3f c9 4b  call $4bc9
4a73: 5f 85 4b  jmp $4b85
4a76: 68 fe     cmp a, #$fe
4a78: d0 0f     bne $4a89
4a7a: 3f 26 4c  call $4c26
4a7d: c5 91 04  mov $0491, a
4a80: e5 73 04  mov a, $0473
4a83: c5 93 04  mov $0493, a
4a86: 3f 26 4c  call $4c26
4a89: 68 fd     cmp a, #$fd
4a8b: d0 11     bne $4a9e
4a8d: 8c 91 04  dec $0491
4a90: d0 03     bne $4a95
4a92: 5f 2b 4a  jmp $4a2b
4a95: e5 93 04  mov a, $0493
4a98: c5 73 04  mov $0473, a
4a9b: 3f 26 4c  call $4c26
4a9e: 68 fb     cmp a, #$fb
4aa0: d0 03     bne $4aa5
4aa2: 5f 95 4a  jmp $4a95
4aa5: 68 fc     cmp a, #$fc
4aa7: d0 0a     bne $4ab3
4aa9: e5 7f 04  mov a, $047f
4aac: 04 49     or a, $49
4aae: c4 49     mov $49, a
4ab0: 5f 2b 4a  jmp $4a2b
4ab3: e9 84 04  mov x,$0484
4ab6: 3f fc 18  call $18fc
4ab9: 3f 26 4c  call $4c26
4abc: e9 84 04  mov x,$0484
4abf: d5 21 03  mov $0321+x, a
4ac2: e8 00     mov a, #$00
4ac4: d5 51 03  mov $0351+x, a
4ac7: 3f 26 4c  call $4c26
4aca: c4 11     mov $11, a
4acc: 8f 00 10  mov $10,#$00
4acf: 3f 4a 1c  call $1c4a
4ad2: 3f 26 4c  call $4c26
4ad5: 68 f6     cmp a, #$f6
4ad7: f0 08     beq $4ae1
4ad9: c5 a1 04  mov $04a1, a
4adc: e8 00     mov a, #$00
4ade: c5 a2 04  mov $04a2, a
4ae1: ec a1 04  mov y,$04a1
4ae4: e5 a2 04  mov a, $04a2
4ae7: da 10     movw $10,ya
4ae9: e9 84 04  mov x,$0484
4aec: 3f b1 16  call $16b1
4aef: 3f 26 4c  call $4c26
4af2: c5 75 04  mov $0475, a
4af5: e5 99 04  mov a, $0499
4af8: f0 18     beq $4b12
4afa: e5 87 04  mov a, $0487
4afd: 08 05     or a, #$05
4aff: fd        mov y, a
4b00: e5 96 04  mov a, $0496
4b03: 3f 26 17  call WriteToDsp
4b06: e5 87 04  mov a, $0487
4b09: 08 06     or a, #$06
4b0b: fd        mov y, a
4b0c: e5 97 04  mov a, $0497
4b0f: 3f 26 17  call WriteToDsp
4b12: e5 a6 04  mov a, $04a6
4b15: d0 07     bne $4b1e
4b17: e5 7f 04  mov a, $047f
4b1a: 04 45     or a, $45
4b1c: c4 45     mov $45, a
4b1e: e5 a5 04  mov a, $04a5
4b21: 68 ff     cmp a, #$ff
4b23: d0 60     bne $4b85
4b25: e5 a7 04  mov a, $04a7
4b28: f0 05     beq $4b2f
4b2a: e8 ff     mov a, #$ff
4b2c: c5 a6 04  mov $04a6, a
4b2f: e5 a1 04  mov a, $04a1
4b32: 65 a4 04  cmp a, $04a4
4b35: 90 21     bcc $4b58
4b37: e5 a2 04  mov a, $04a2
4b3a: 80        setc
4b3b: a5 a3 04  sbc a, $04a3
4b3e: c5 a2 04  mov $04a2, a
4b41: b0 34     bcs   $4b77
4b43: 8c a1 04  dec $04a1
4b46: e5 a4 04  mov a, $04a4
4b49: 65 a1 04  cmp a, $04a1
4b4c: d0 29     bne $4b77
4b4e: e8 00     mov a, #$00
4b50: c5 a5 04  mov $04a5, a
4b53: c5 a6 04  mov $04a6, a
4b56: 2f 1f     bra $4b77
4b58: e5 a3 04  mov a, $04a3
4b5b: 60        clrc
4b5c: 85 a2 04  adc a, $04a2
4b5f: c5 a2 04  mov $04a2, a
4b62: 90 13     bcc $4b77
4b64: ac a1 04  inc $04a1
4b67: e5 a4 04  mov a, $04a4
4b6a: 65 a1 04  cmp a, $04a1
4b6d: d0 08     bne $4b77
4b6f: e8 00     mov a, #$00
4b71: c5 a5 04  mov $04a5, a
4b74: c5 a6 04  mov $04a6, a
4b77: e5 a2 04  mov a, $04a2
4b7a: ec a1 04  mov y,$04a1
4b7d: da 10     movw $10,ya
4b7f: e9 84 04  mov x,$0484
4b82: 3f b1 16  call $16b1
    
    $4b85:
    
        ret

// =============================================================================

    $4b86:
    
        mov a, #$ff
4b88: c5 76 04  mov $0476, a
4b8b: e8 00     mov a, #$00
4b8d: c5 98 04  mov $0498, a
4b90: e5 85 04  mov a, $0485
4b93: 25 80 04  and a, $0480
4b96: c5 85 04  mov $0485, a
4b99: e4 1a     mov a, $1a
4b9b: 25 80 04  and a, $0480
4b9e: c4 1a     mov $1a, a
4ba0: e4 47     mov a, $47
4ba2: 05 7e 04  or a, $047e
4ba5: c4 47     mov $47, a
4ba7: e4 46     mov a, $46
4ba9: 05 7e 04  or a, $047e
4bac: c4 46     mov $46, a
4bae: e9 83 04  mov x,$0483
4bb1: f5 11 02  mov a, $0211+x
4bb4: 3f fc 18  call $18fc
4bb7: e9 83 04  mov x,$0483
4bba: e5 88 04  mov a, $0488
4bbd: d5 21 03  mov $0321+x, a
4bc0: e5 89 04  mov a, $0489
4bc3: d5 51 03  mov $0351+x, a
4bc6: 5f 0c 4c  jmp $4c0c
4bc9: e8 ff     mov a, #$ff
4bcb: c5 77 04  mov $0477, a
4bce: e8 00     mov a, #$00
4bd0: c5 99 04  mov $0499, a
4bd3: e5 85 04  mov a, $0485
4bd6: 25 81 04  and a, $0481
4bd9: c5 85 04  mov $0485, a
4bdc: e4 1a     mov a, $1a
4bde: 25 81 04  and a, $0481
4be1: c4 1a     mov $1a, a
4be3: e4 47     mov a, $47
4be5: 05 7f 04  or a, $047f
4be8: c4 47     mov $47, a
4bea: e4 46     mov a, $46
4bec: 05 7f 04  or a, $047f
4bef: c4 46     mov $46, a
4bf1: e9 84 04  mov x,$0484
4bf4: f5 11 02  mov a, $0211+x
4bf7: 3f fc 18  call $18fc
4bfa: e9 84 04  mov x,$0484
4bfd: e5 8a 04  mov a, $048a
4c00: d5 21 03  mov $0321+x, a
4c03: e5 8b 04  mov a, $048b
4c06: d5 51 03  mov $0351+x, a
4c09: 5f 0c 4c  jmp $4c0c
4c0c: e5 85 04  mov a, $0485
4c0f: d0 0b     bne $4c1c
4c11: e8 00     mov a, #$00
4c13: c5 70 04  mov $0470, a
4c16: c5 bd 04  mov $04bd, a
4c19: c5 7c 04  mov $047c, a
4c1c: 6f        ret

// =============================================================================

    $4c1d:
    
        mov y, !$0472
        
        mov a, ($e8)+y
        
        inc !$0472
        
        ret

// =============================================================================

    $4c26:
    
        mov y, !$0473
        
        mov a, ($ea)+y
        
        inc !$0473
        
        ret

// =============================================================================

    $4c2f:
    
        dw $047e
        dw $047f
        dw $0480
        dw $0481
        dw $0483
        dw $0484

// =============================================================================

    $4c3b:
    
        mov a, #$09; mov !$047d, a
        
        mov a, $1a; mov !$047b, a
        
        mov a, #$ff; mov !$047c, a
        
        mov a, #$00; mov !$0482, a
                     mov !$0478, a
                     mov !$047e, a
                     mov !$047f, a
                     mov !$0483, a
                     mov !$0484, a
        
        mov a, #$ff; mov !$0480, a
                     mov !$0481, a
                     mov !$0476, a
                     mov !$0477, a
    
    $4c6c:
    
        dec !$047d; beq $4cef
        
        asl !$047b; bcs $4c6c
        
        mov a, #$00; cmp a, !$0479; beq $4cef
        
        dec !$0479
        
        mov a, #$00
        
        mov x, !$0478
        
        mov !$0476+x, a
        
        inc !$0478
        
        mov a, !$0482; mov x, a
                       mov y, a
        
        mov a, !$4c2f+x; mov $e2, a
        
        mov a, !$4c33+x; mov $e4, a
        
        mov a, !$4c37+x; mov $e6, a
        
        inc x
        
        mov a, !$4c2f+x; mov $e3, a
        
        mov a, !$4c33+x; mov $e5, a
        
        mov a, !$4c37+x; mov $e7, a
        
        inc !$0482; inc !$0482
        
        mov a, !$047d; mov !$047a, a
        
        dec !$047a
        
        clrc; asl !$047a
        
        mov x, !$047a
        
        mov a, !$0321+x; mov !$0488+y, a
        
        inc y
        
        mov a, !$0351+x; mov !$0488+y, a
        
        mov y, #$00
        
        mov a, !$047a; mov ($e6)+y, a
        
        mov a, !$047d
        
        call $2875
        
        dw $4dad
        dw $4d92
        dw $4d77
        dw $4d5c
        dw $4d41
        dw $4d26
        dw $4d0b
        dw $4cf0
    
    $4cef:
    
        ret

// =============================================================================

    $4cf0:
    
        set7 $1a
        
        clr7 $47
        
        clr7 $4a
        
        mov a, #$80; or a, !$0485; mov !$0485, a
        
        mov y, #$00
        
        mov a, #$80; mov ($e2)+y, a
        
        mov a, #$7f; mov ($e4)+y, a
        
        jmp $4c6c

// =============================================================================

    $4d0b:
    
        set6 $1a
4d0d: d2 47     clr6 $47
4d0f: d2 4a     clr6 $4a
4d11: e8 40     mov a, #$40
4d13: 05 85 04  or a, $0485
4d16: c5 85 04  mov $0485, a
4d19: 8d 00     mov y,#$00
4d1b: e8 40     mov a, #$40
4d1d: d7 e2     mov ($e2)+y, a
4d1f: e8 bf     mov a, #$bf
4d21: d7 e4     mov ($e4)+y, a
4d23: 5f 6c 4c  jmp $4c6c
4d26: a2 1a     set5 $1a
4d28: b2 47     clr5 $47
4d2a: b2 4a     clr5 $4a
4d2c: e8 20     mov a, #$20
4d2e: 05 85 04  or a, $0485
4d31: c5 85 04  mov $0485, a
4d34: 8d 00     mov y,#$00
4d36: e8 20     mov a, #$20
4d38: d7 e2     mov ($e2)+y, a
4d3a: e8 df     mov a, #$df
4d3c: d7 e4     mov ($e4)+y, a
4d3e: 5f 6c 4c  jmp $4c6c
4d41: 82 1a     set4 $1a
4d43: 92 47     clr4 $47
4d45: 92 4a     clr4 $4a
4d47: e8 10     mov a, #$10
4d49: 05 85 04  or a, $0485
4d4c: c5 85 04  mov $0485, a
4d4f: 8d 00     mov y,#$00
4d51: e8 10     mov a, #$10
4d53: d7 e2     mov ($e2)+y, a
4d55: e8 ef     mov a, #$ef
4d57: d7 e4     mov ($e4)+y, a
4d59: 5f 6c 4c  jmp $4c6c
4d5c: 62 1a     set3 $1a
4d5e: 72 47     clr3 $47
4d60: 72 4a     clr3 $4a
4d62: e8 08     mov a, #$08
4d64: 05 85 04  or a, $0485
4d67: c5 85 04  mov $0485, a
4d6a: 8d 00     mov y,#$00
4d6c: e8 08     mov a, #$08
4d6e: d7 e2     mov ($e2)+y, a
4d70: e8 f7     mov a, #$f7
4d72: d7 e4     mov ($e4)+y, a
4d74: 5f 6c 4c  jmp $4c6c
4d77: 42 1a     set2 $1a
4d79: 52 47     clr2 $47
4d7b: 52 4a     clr2 $4a
4d7d: e8 04     mov a, #$04
4d7f: 05 85 04  or a, $0485
4d82: c5 85 04  mov $0485, a
4d85: 8d 00     mov y,#$00
4d87: e8 04     mov a, #$04
4d89: d7 e2     mov ($e2)+y, a
4d8b: e8 fb     mov a, #$fb
4d8d: d7 e4     mov ($e4)+y, a
4d8f: 5f 6c 4c  jmp $4c6c
4d92: 22 1a     set1 $1a
4d94: 32 47     clr1 $47
4d96: 32 4a     clr1 $4a
4d98: e8 02     mov a, #$02
4d9a: 05 85 04  or a, $0485
4d9d: c5 85 04  mov $0485, a
4da0: 8d 00     mov y,#$00
4da2: e8 02     mov a, #$02
4da4: d7 e2     mov ($e2)+y, a
4da6: e8 fd     mov a, #$fd
4da8: d7 e4     mov ($e4)+y, a
4daa: 5f 6c 4c  jmp $4c6c
4dad: 02 1a     set0 $1a
4daf: 12 47     clr0 $47
4db1: 12 4a     clr0 $4a
4db3: e8 01     mov a, #$01
4db5: 05 85 04  or a, $0485
4db8: c5 85 04  mov $0485, a
4dbb: 8d 00     mov y,#$00
4dbd: e8 01     mov a, #$01
4dbf: d7 e2     mov ($e2)+y, a
4dc1: e8 fe     mov a, #$fe
4dc3: d7 e4     mov ($e4)+y, a
4dc5: 5f 6c 4c  jmp $4c6c
4dc8: fc        inc y
4dc9: f7 e0     mov a, ($e0)+y
4dcb: 6f        ret

// =============================================================================

    $4dcc:
    
        asl a; asl a; asl a
        
        ret

// =============================================================================

    $4dd0:
    
        mov a, #$01; mov !$0479, a
        
        mov a, #$00; mov !$04ba, a
        
        mov a, #$01; mov !$04bd, a
        
        ret

// =============================================================================

    $4de0:
    
        mov a, #$01; mov !$0479, a
        
        mov a, #$02; mov !$04ba, a
        
        ret

// =============================================================================

    $4deb:
    
        call $4e63
        
        ret

// =============================================================================

    $4def:
    
        call $4e6e
        
        ret

// =============================================================================

    $4df3:
    
        call $4e63
        
        ret

// =============================================================================

    $4df7:
    
        call $4e79
        
        ret

// =============================================================================

    $4dfb:
    
        call $4e63
        
        ret

// =============================================================================

    $4dff:
    
        call $4e84
        
        ret

// =============================================================================

    $4e03:
    
        call $4e6e
        
        ret

// =============================================================================

    $4e07:
    
        call $4e63
        
        ret

// =============================================================================

    $4e0b:
    
        call $4e79
        
        ret

// =============================================================================

    $4e0f:
    
        call $4e6e
        
        ret

// =============================================================================

    $4e13:
    
        call $4e63
        
        ret

// =============================================================================

    $4e17:
    
        call $4e63
        
        ret

// =============================================================================

    $4e1b:
    
        call $4e84
        
        ret

// =============================================================================

4e1f: 3f 63 4e  call $4e63
4e22: 6f        ret

// =============================================================================

4e23: 3f 79 4e  call $4e79
4e26: 6f        ret

// =============================================================================

4e27: 3f 63 4e  call $4e63
4e2a: 6f        ret

// =============================================================================

4e2b: 3f 63 4e  call $4e63
4e2e: 6f        ret

// =============================================================================

4e2f: 3f 63 4e  call $4e63
4e32: 6f        ret

// =============================================================================

4e33: 3f 79 4e  call $4e79
4e36: 6f        ret

// =============================================================================

    $4e37:
    
        call $4e63
        
        ret

// =============================================================================

    $4e3b:
    
        call $4e79
        
        ret

// =============================================================================

    $4e3f:
    
        call $4e63
        
        ret

// =============================================================================

    $4e43:
    
        call $4e84
        
        ret

// =============================================================================

4e47: 3f 63 4e  call $4e63
4e4a: 6f        ret

// =============================================================================

4e4b: 3f 84 4e  call $4e84
4e4e: 6f        ret
// =============================================================================

4e4f: 3f 63 4e  call $4e63
4e52: 6f        ret
// =============================================================================

4e53: 3f 79 4e  call $4e79
4e56: 6f        ret
// =============================================================================

4e57: 3f 63 4e  call $4e63
4e5a: 6f        ret
// =============================================================================

4e5b: 3f 79 4e  call $4e79
4e5e: 6f        ret
// =============================================================================

4e5f: 3f 63 4e  call $4e63
4e62: 6f        ret

// =============================================================================

    $4e63:
    
        mov a, #$01; mov !$0479, a
        
        mov a, #$00; mov !$04bd, a
        
        ret

// =============================================================================

    $4e6e:
    
        mov a, #$02; mov !$0479, a
        
        mov a, #$00; mov !$04bd, a
        
        ret

// =============================================================================

    $4e79:
    
        mov a, #$02; mov !$0479, a
        
        mov a, #$01; mov !$04bd, a
        
        ret

// =============================================================================

    $4e84:
    
        mov a, #$01; mov !$0479, a
        
        mov a, #$01; mov !$04bd, a
        
        ret

// =============================================================================

$4e8f:

    db $ed
4e90: 4e f5 4e  tclr1 $4ef5
4e93: 00        nop
4e94: 4f 4b     pcall $4b
4e96: 4f 5b     pcall $5b
4e98: 4f 6b     pcall $6b
4e9a: 4f 73     pcall $73
4e9c: 4f 89     pcall $89
4e9e: 4f 9f     pcall $9f
4ea0: 4f b6     pcall $b6
4ea2: 4f e1     pcall $e1
4ea4: 4f f7     pcall $f7
4ea6: 4f ff     pcall $ff
4ea8: 4f 0c     pcall $0c
4eaa: 50 47     bvc   $4ef3
4eac: 50 a8     bvc   $4e56
4eae: 50 c4     bvc   $4e74
4eb0: 50 d1     bvc   $4e83
4eb2: 50 d4     bvc   $4e88
4eb4: 50 f0     bvc   $4ea6
4eb6: 50 1a     bvc   $4ed2
4eb8: 51        tcall 5
4eb9: 30 51     bmi $4f0c
4ebb: 42 51     set2  $51
4ebd: 75 51 78  cmp a, $7851+x
4ec0: 51        tcall 5
4ec1: 88 51     adc a, #$51
4ec3: 8b 51     dec $51
4ec5: b9        sbc (x),(y)
4ec6: 51        tcall 5
4ec7: c1        tcall 12
4ec8: 51        tcall 5
4ec9: d4 51     mov $51+x, a
4ecb: f0 51     beq $4f1e
4ecd: fd        mov y, a
4ece: 51        tcall 5
4ecf: 00        nop
4ed0: 52 08     clr2  $08
4ed2: 52 29     clr2  $29
4ed4: 52 31     clr2  $31
4ed6: 52 39     clr2  $39
4ed8: 52 41     clr2  $41
4eda: 52 4e     clr2  $4e
4edc: 52 56     clr2  $56
4ede: 52 77     clr2  $77
4ee0: 52 93     clr2  $93
4ee2: 52 a5     clr2  $a5
4ee4: 52 b0     clr2  $b0
4ee6: 52 c6     clr2  $c6
4ee8: 52 f1     clr2  $f1
4eea: 52 0b     clr2  $0b
4eec: 53 ef 4e  bbc2  $ef,$4f3c
4eef: 11        tcall 1
4ef0: 00        nop
4ef1: 0a bc 03  or1   c,$0077,4
4ef4: ff        stop
4ef5: f7 4e     mov a,($4e)+y
4ef7: fe 00     dbnz  y,$4ef9
4ef9: 15 90 0a  or a, $0a90+x
4efc: bc        inc a
4efd: f0 fb     beq $4efa
4eff: ff        stop
4f00: 02 4f     set0  $4f
4f02: f5 e0 c7  mov a, $c7e0+x
4f05: 05 60 0a  or a, $0a60
4f08: 98 12 f5  adc $f5,#$12
4f0b: e0        clrv
4f0c: c7 05     mov ($05+x), a
4f0e: 70 0a     bvs   $4f1a
4f10: a4 11     sbc a, $11
4f12: f5 e0 c7  mov a, $c7e0+x
4f15: 05 80 0a  or a, $0a80
4f18: b0 10     bcs   $4f2a
4f1a: f5 e0 c7  mov a, $c7e0+x
4f1d: 05 80 0a  or a, $0a80
4f20: b4 08     sbc a, $08+x
4f22: f5 e0 c7  mov a, $c7e0+x
4f25: 05 80 0a  or a, $0a80
4f28: b9        sbc (x),(y)
4f29: 07 f5     or a,($f5+x)
4f2b: e0        clrv
4f2c: c7 05     mov ($05+x), a
4f2e: 80        setc
4f2f: 0a bc 06  or1   c,$00d7,4
4f32: f5 e0 c1  mov a, $c1e0+x
4f35: 05 80 0a  or a, $0a80
4f38: bc        inc a
4f39: 06        or a,(x)
4f3a: f5 e0 c7  mov a, $c7e0+x
4f3d: 05 80 0a  or a, $0a80
4f40: c5 06 fe  mov $fe06, a
4f43: 00        nop
4f44: 05 60 0a  or a, $0a60
4f47: c7 10     mov ($10+x), a
4f49: fb ff     mov y,$ff+x
4f4b: 4f 4f     pcall $4f
4f4d: 55 4f 03  eor a, $034f+x
4f50: 90 0a     bcc $4f5c
4f52: 80        setc
4f53: 03 ff 03  bbs0 $ff,$4f58
4f56: a0        ei
4f57: 0a 84 05  or1   c,$00b0,4
4f5a: ff        stop
4f5b: 5f 4f 65  jmp $654f
4f5e: 4f 03     pcall $03
4f60: 40        setp
4f61: 0a 80 03  or1   c,$0070,0
4f64: ff        stop
4f65: 03 50 0a  bbs0 $50,$4f71
4f68: 84 05     adc a, $05
4f6a: ff        stop
4f6b: 6d        push y
4f6c: 4f 09     pcall $09
4f6e: 80        setc
4f6f: 0a 82 03  or1   c,$0070,2
4f72: ff        stop
4f73: 77 4f     cmp a,($4f)+y
4f75: 80        setc
4f76: 4f f5     pcall $f5
4f78: f0 a9     beq $4f23
4f7a: 06        or a,(x)
4f7b: 80        setc
4f7c: 0a 91 18  or1   c,$0312,1
4f7f: ff        stop
4f80: f5 f0 a8  mov a, $a8f0+x
4f83: 02 80     set0  $80
4f85: 0a 90 18  or1   c,$0312,0
4f88: ff        stop
4f89: 8d 4f     mov y,#$4f
4f8b: 96 4f f5  adc a, $f54f+y
4f8e: f0 89     beq $4f19
4f90: 06        or a,(x)
4f91: 80        setc
4f92: 0a a1 15  or1   c,$02b4,1
4f95: ff        stop
4f96: f5 f0 87  mov a, $87f0+x
4f99: 02 80     set0  $80
4f9b: 0a 9f 15  or1   c,$02b3,7
4f9e: ff        stop
4f9f: a1        tcall 10
4fa0: 4f 02     pcall $02
4fa2: b0 0a     bcs   $4fae
4fa4: 8c 03 02  dec $0203
4fa7: d0 0a     bne $4fb3
4fa9: 90 03     bcc $4fae
4fab: 02 d0     set0  $d0
4fad: 0a 8c 03  or1   c,$0071,4
4fb0: 02 d0     set0  $d0
4fb2: 0a 90 03  or1   c,$0072,0
4fb5: ff        stop
4fb6: b8 4f 0d  sbc $0d,#$4f
4fb9: 70 0c     bvs   $4fc7
4fbb: a3 01 0d  bbs5  $01,$4fca
4fbe: 80        setc
4fbf: 0c a1 01  asl $01a1
4fc2: 0d        push  psw
4fc3: 80        setc
4fc4: 0c 9f 02  asl $029f
4fc7: 0d        push  psw
4fc8: 80        setc
4fc9: 0c 9d 02  asl $029d
4fcc: 0d        push  psw
4fcd: 70 0c     bvs   $4fdb
4fcf: 9c        dec a
4fd0: 02 0d     set0  $0d
4fd2: 50 0c     bvc   $4fe0
4fd4: 9a 01     subw ya, $01
4fd6: 0d        push  psw
4fd7: 60        clrc
4fd8: 0c 97 01  asl $0197
4fdb: 0d        push  psw
4fdc: 60        clrc
4fdd: 0c 98 03  asl $0398
4fe0: ff        stop
4fe1: e5 4f ee  mov a, $ee4f
4fe4: 4f fe     pcall $fe
4fe6: 00        nop
4fe7: 0b 90     asl $90
4fe9: 0a 80 70  or1   c,$0e10,0
4fec: fb ff     mov y,$ff+x
4fee: fe 00     dbnz  y,$4ff0
4ff0: 06        or a,(x)
4ff1: 40        setp
4ff2: 0a 98 13  or1   c,$0273,0
4ff5: fb ff     mov y,$ff+x
4ff7: f9 4f     mov x,$4f+y
4ff9: 05 a0 0a  or a, $0aa0
4ffc: c7 b0     mov ($b0+x), a
4ffe: ff        stop
4fff: 01        tcall 0
5000: 50 03     bvc   $5005
5002: 50 0a     bvc   $500e
5004: 98 02 03  adc $03,#$02
5007: 50 0a     bvc   $5013
5009: 98 02 ff  adc $ff,#$02
500c: 10 50     bpl $505e
500e: 3e 50     cmp x,$50
5010: 03 50 0c  bbs0 $50,$501e
5013: 85 05 03  adc a, $0305
5016: 50 0c     bvc   $5024
5018: 85 05 03  adc a, $0305
501b: 50 0c     bvc   $5029
501d: 85 05 03  adc a, $0305
5020: 50 0c     bvc   $502e
5022: 85 05 03  adc a, $0305
5025: 50 0c     bvc   $5033
5027: 85 05 03  adc a, $0305
502a: 50 0c     bvc   $5038
502c: 85 05 03  adc a, $0305
502f: 50 0c     bvc   $503d
5031: 85 05 03  adc a, $0305
5034: 50 0c     bvc   $5042
5036: 85 05 03  adc a, $0305
5039: 50 0c     bvc   $5047
503b: 85 05 ff  adc a, $ff05
503e: f5 60 a9  mov a, $a960+x
5041: 06        or a,(x)
5042: 90 0a     bcc $504e
5044: 91        tcall 9
5045: 20        clrp
5046: ff        stop
5047: 4b 50     lsr $50
5049: 83 50 01  bbs4  $50,$504c
504c: 00        nop
504d: 0a 90 0c  or1   c,$0192,0
5050: 01        tcall 0
5051: d0 0a     bne $505d
5053: 91        tcall 9
5054: 0c 01 d0  asl $d001
5057: 0a 93 0c  or1   c,$0192,3
505a: 01        tcall 0
505b: d0 0a     bne $5067
505d: 95 0a 01  adc a, $010a+x
5060: d0 0a     bne $506c
5062: 95 0a 01  adc a, $010a+x
5065: d0 0a     bne $5071
5067: 97 08     adc a,($08)+y
5069: 01        tcall 0
506a: d0 0a     bne $5076
506c: 97 08     adc a,($08)+y
506e: 01        tcall 0
506f: d0 0a     bne $507b
5071: 98 06 01  adc $01,#$06
5074: d0 0a     bne $5080
5076: 98 06 01  adc $01,#$06
5079: d0 0a     bne $5085
507b: 9a 04     subw ya, $04
507d: 01        tcall 0
507e: d0 0a     bne $508a
5080: 9a 04     subw ya, $04
5082: ff        stop
5083: f5 90 c7  mov a, $c790+x
5086: 05 c0 0a  or a, $0ac0
5089: 98 10 f5  adc $f5,#$10
508c: f0 c7     beq $5055
508e: 05 c0 0a  or a, $0ac0
5091: f6 30 05  mov a, $0530+y
5094: c0        di
5095: 0a c1 03  or1   c,$0078,1
5098: 05 c0 0a  or a, $0ac0
509b: c3 03 05  bbs6  $03,$50a2
509e: c0        di
509f: 0a c5 03  or1   c,$0078,5
50a2: 05 c0 0a  or a, $0ac0
50a5: c7 03     mov ($03+x), a
50a7: ff        stop
50a8: aa 50 08  mov1  c,$010a,0
50ab: d0 0a     bne $50b7
50ad: 98 03 08  adc $08,#$03
50b0: d0 0a     bne $50bc
50b2: 95 03 08  adc a, $0803+x
50b5: d0 0a     bne $50c1
50b7: 9a 03     subw ya, $03
50b9: 08 d0     or a, #$d0
50bb: 0a 8c 03  or1   c,$0071,4
50be: 08 d0     or a, #$d0
50c0: 0a 8c 15  or1   c,$02b1,4
50c3: ff        stop
50c4: c6        mov (x), a
50c5: 50 08     bvc   $50cf
50c7: d0 0a     bne $50d3
50c9: 8c 03 08  dec $0803
50cc: d0 0a     bne $50d8
50ce: 8c 15 ff  dec $ff15
50d1: d3 50 ff  bbc6  $50,$50d2
50d4: d6 50 08  mov $0850+y, a
50d7: d0 0a     bne $50e3
50d9: 98 03 08  adc $08,#$03
50dc: d0 0a     bne $50e8
50de: 95 03 08  adc a, $0803+x
50e1: d0 0a     bne $50ed
50e3: 9a 03     subw ya, $03
50e5: 08 d0     or a, #$d0
50e7: 0a 8c 03  or1   c,$0071,4
50ea: 08 d0     or a, #$d0
50ec: 0a 8c 25  or1   c,$04b1,4
50ef: ff        stop
50f0: f4 50     mov a, $50+x
50f2: 07 51     or a,($51+x)
50f4: 06        or a,(x)
50f5: 00        nop
50f6: 0a 91 23  or1   c,$0472,1
50f9: 06        or a,(x)
50fa: a0        ei
50fb: 0a 91 18  or1   c,$0312,1
50fe: f5 f0 a9  mov a, $a9f0+x
5101: 06        or a,(x)
5102: a0        ei
5103: 0a 91 18  or1   c,$0312,1
5106: ff        stop
5107: 02 00     set0  $00
5109: 0a 90 23  or1   c,$0472,0
510c: 02 20     set0  $20
510e: 0a 90 18  or1   c,$0312,0
5111: f5 f0 a8  mov a, $a8f0+x
5114: 02 20     set0  $20
5116: 0a 90 18  or1   c,$0312,0
5119: ff        stop
511a: 1e 51 27  cmp x,$2751
511d: 51        tcall 5
511e: f5 f0 89  mov a, $89f0+x
5121: 06        or a,(x)
5122: 80        setc
5123: 0a a1 15  or1   c,$02b4,1
5126: ff        stop
5127: f5 f0 87  mov a, $87f0+x
512a: 02 10     set0  $10
512c: 0a 9f 15  or1   c,$02b3,7
512f: ff        stop
5130: 32 51     clr1  $51
5132: 08 d0     or a, #$d0
5134: 0a a3 03  or1   c,$0074,3
5137: 08 d0     or a, #$d0
5139: 0a 8e 03  or1   c,$0071,6
513c: 08 d0     or a, #$d0
513e: 0a 8e 25  or1   c,$04b1,6
5141: ff        stop
5142: 44 51     eor a, $51
5144: f5 f0 c3  mov a, $c3f0+x
5147: 0b 90     asl $90
5149: 0a a6 03  or1   c,$0074,6
514c: f5 f0 c3  mov a, $c3f0+x
514f: 0b 90     asl $90
5151: 0a a6 03  or1   c,$0074,6
5154: f5 f0 c3  mov a, $c3f0+x
5157: 0b 90     asl $90
5159: 0a a6 03  or1   c,$0074,6
515c: f5 f0 c3  mov a, $c3f0+x
515f: 0b 90     asl $90
5161: 0a a6 03  or1   c,$0074,6
5164: f5 f0 c3  mov a, $c3f0+x
5167: 0b 90     asl $90
5169: 0a a6 03  or1   c,$0074,6
516c: f5 f0 c3  mov a, $c3f0+x
516f: 0b 90     asl $90
5171: 0a a6 03  or1   c,$0074,6
5174: ff        stop
5175: 77 51     cmp a,($51)+y
5177: ff        stop
5178: 7c        ror a
5179: 51        tcall 5
517a: 82 51     set4  $51
517c: 25 d0 0a  and a, $0ad0
517f: 93 26 ff  bbc4  $26,$5180
5182: 25 a0 0a  and a, $0aa0
5185: 8c 3b ff  dec $ff3b
5188: 8a 51 ff  eor1  c,$1fea,1
518b: 8f 51 9f  mov $9f,#$51
518e: 51        tcall 5
518f: 25 d0 0a  and a, $0ad0
5192: 8e        pop   psw
5193: 30 25     bmi $51ba
5195: d0 0a     bne $51a1
5197: 8e        pop   psw
5198: 30 25     bmi $51bf
519a: d0 0a     bne $51a6
519c: 8e        pop   psw
519d: 40        setp
519e: ff        stop
519f: 25 00 0a  and a, $0a00
51a2: a6        sbc a,(x)
51a3: 0c 25 80  asl $8025
51a6: 0a 98 30  or1   c,$0613,0
51a9: 25 80 0a  and a, $0a80
51ac: 98 30 25  adc $25,#$30
51af: 80        setc
51b0: 0a 9a 10  or1   c,$0213,2
51b3: 25 80 0a  and a, $0a80
51b6: 98 40 ff  adc $ff,#$40
51b9: bb 51     inc $51+x
51bb: 00        nop
51bc: d0 0a     bne $51c8
51be: 9c        dec a
51bf: 20        clrp
51c0: ff        stop
51c1: c3 51 f5  bbs6  $51,$51b8
51c4: f0 b5     beq $517b
51c6: 09 d0 0a  or $0a, $d0
51c9: 93 08 f5  bbc4  $08,$51c0
51cc: f0 b5     beq $5183
51ce: 09 d0 0a  or $0a, $d0
51d1: 93 08 ff  bbc4  $08,$51d2
51d4: d6 51 08  mov $0851+y, a
51d7: d0 0a     bne $51e3
51d9: 98 03 08  adc $08,#$03
51dc: d0 0a     bne $51e8
51de: 95 03 08  adc a, $0803+x
51e1: d0 0a     bne $51ed
51e3: 9a 03     subw ya, $03
51e5: 08 d0     or a, #$d0
51e7: 0a 8c 03  or1   c,$0071,4
51ea: 08 d0     or a, #$d0
51ec: 0a 8c 25  or1   c,$04b1,4
51ef: ff        stop
51f0: f2 51     clr7 $51
51f2: 00        nop
51f3: d0 0a     bne $51ff
51f5: 90 08     bcc $51ff
51f7: 01        tcall 0
51f8: d0 0a     bne $5204
51fa: 8c 20 ff  dec $ff20
51fd: ff        stop
51fe: 51        tcall 5
51ff: ff        stop
5200: 02 52     set0  $52
5202: 07 d0     or a,($d0+x)
5204: 0a c7 10  or1   c,$0218,7
5207: ff        stop
5208: 0a 52 09  or1   c,$012a,2
520b: b0 0a     bcs   $5217
520d: 8c 05 0e  dec $0e05
5210: b0 0a     bcs   $521c
5212: 91        tcall 9
5213: 05 09 b0  or a, $b009
5216: 0a 8c 05  or1   c,$00b1,4
5219: 0e b0 0a  tset1 $0ab0
521c: 91        tcall 9
521d: 05 09 b0  or a, $b009
5220: 0a 8c 05  or1   c,$00b1,4
5223: 0e b0 0a  tset1 $0ab0
5226: 91        tcall 9
5227: 05 ff 2b  or a, $2bff
522a: 52 25     clr2  $25
522c: 20        clrp
522d: 0a 95 40  or1   c,$0812,5
5230: ff        stop
5231: 33 52 24  bbc1 $52,$5257
5234: 20        clrp
5235: 0a 95 40  or1   c,$0812,5
5238: ff        stop
5239: 3b 52     rol $52+x
523b: 07 00     or a,($00+x)
523d: 0a c7 03  or1   c,$0078,7
5240: ff        stop
5241: 43 52 25  bbs2  $52,$5268
5244: 20        clrp
5245: 0a 92 09  or1   c,$0132,2
5248: 25 30 0a  and a, $0a30
524b: 92 40     clr4  $40
524d: ff        stop
524e: 50 52     bvc   $52a2
5250: 25 30 0a  and a, $0a30
5253: 91        tcall 9
5254: 40        setp
5255: ff        stop
5256: 58 52 00  eor $00,#$52
5259: d0 0a     bne $5265
525b: 91        tcall 9
525c: 08 00     or a, #$00
525e: d0 0a     bne $526a
5260: 91        tcall 9
5261: 08 00     or a, #$00
5263: d0 0a     bne $526f
5265: 91        tcall 9
5266: 08 00     or a, #$00
5268: d0 0a     bne $5274
526a: 91        tcall 9
526b: 08 00     or a, #$00
526d: d0 0a     bne $5279
526f: 91        tcall 9
5270: 08 00     or a, #$00
5272: d0 0a     bne $527e
5274: 91        tcall 9
5275: 08 ff     or a, #$ff
5277: 79        cmp (x),(y)
5278: 52 00     clr2  $00
527a: d0 0a     bne $5286
527c: 91        tcall 9
527d: 06        or a,(x)
527e: 00        nop
527f: d0 0a     bne $528b
5281: 91        tcall 9
5282: 06        or a,(x)
5283: 00        nop
5284: d0 0a     bne $5290
5286: 91        tcall 9
5287: 06        or a,(x)
5288: 00        nop
5289: d0 0a     bne $5295
528b: 91        tcall 9
528c: 06        or a,(x)
528d: 00        nop
528e: d0 0a     bne $529a
5290: 91        tcall 9
5291: 06        or a,(x)
5292: ff        stop
5293: 95 52 0b  adc a, $0b52+x
5296: 20        clrp
5297: 0a c7 03  or1   c,$0078,7
529a: 0b 20     asl $20
529c: 0a c7 03  or1   c,$0078,7
529f: 0b 10     asl $10
52a1: 0a c7 03  or1   c,$0078,7
52a4: ff        stop
52a5: a7 52     sbc a,($52+x)
52a7: fe 00     dbnz  y,$52a9
52a9: 05 60 0a  or a, $0a60
52ac: c7 10     mov ($10+x), a
52ae: fb ff     mov y,$ff+x
52b0: b4 52     sbc a, $52+x
52b2: bd        mov sp,x
52b3: 52 f5     clr2  $f5
52b5: f0 a9     beq $5260
52b7: 06        or a,(x)
52b8: 70 0a     bvs   $52c4
52ba: 91        tcall 9
52bb: 18 ff f5  or $f5,#$ff
52be: f0 a4     beq $5264
52c0: 06        or a,(x)
52c1: 70 0a     bvs   $52cd
52c3: 8c 18 ff  dec $ff18
52c6: c8 52     cmp x,#$52
52c8: 06        or a,(x)
52c9: 70 0a     bvs   $52d5
52cb: a8 01     sbc a, #$01
52cd: 06        or a,(x)
52ce: 00        nop
52cf: 0a a8 01  or1   c,$0035,0
52d2: 06        or a,(x)
52d3: 70 0a     bvs   $52df
52d5: a8 01     sbc a, #$01
52d7: 06        or a,(x)
52d8: 00        nop
52d9: 0a a8 01  or1   c,$0035,0
52dc: 06        or a,(x)
52dd: 70 0a     bvs   $52e9
52df: a8 01     sbc a, #$01
52e1: 06        or a,(x)
52e2: 00        nop
52e3: 0a a8 01  or1   c,$0035,0
52e6: 06        or a,(x)
52e7: 70 0a     bvs   $52f3
52e9: a8 01     sbc a, #$01
52eb: 06        or a,(x)
52ec: 00        nop
52ed: 0a a8 01  or1   c,$0035,0
52f0: ff        stop
52f1: f5 52 fb  mov a, $fb52+x
52f4: 52 08     clr2  $08
52f6: d0 0a     bne $5302
52f8: 94 59     adc a, $59+x
52fa: ff        stop
52fb: 25 d0 0a  and a, $0ad0
52fe: 98 10 25  adc $25,#$10
5301: d0 0a     bne $530d
5303: 93 16 25  bbc4  $16,$532a
5306: 90 0a     bcc $5312
5308: 8f 15 ff  mov $ff,#$15
530b: 0d        push  psw
530c: 53 ff 12  bbc2  $ff,$5320
530f: 53 00 00  bbc2  $00,$5311
5312: 22 53     set1  $53
5314: 5d        mov x, a
5315: 53 af 53  bbc2  $af,$536a
5318: c6        mov (x), a
5319: 53 e0 53  bbc2  $e0,$536e
531c: f5 53 31  mov a, $3153+x
531f: 54 00     eor a, $00+x
5321: 00        nop
5322: fa 26 e7  mov $e7, $26
5325: 12 e5     clr0  $e5
5327: b4 f5     sbc a, $f5+x
5329: 0f        brk
532a: 0a 0a f7  or1   c,$1ee1,2
532d: 02 0a     set0  $0a
532f: 00        nop
5330: e0        clrv
5331: 0b ea     asl $ea
5333: f4 f4     mov a, $f4+x
5335: 46        eor a,(x)
5336: e1        tcall 14
5337: 0a ed aa  or1   c,$155d,5
533a: ee        pop y
533b: 18 dc 18  or $18,#$dc
533e: 7f        reti
533f: b2 ed     clr5  $ed
5341: aa ee 18  mov1  c,$031d,6
5344: dc        dec y
5345: b5 ed aa  sbc a, $aaed+x
5348: ee        pop y
5349: 18 dc b2  or $b2,#$dc
534c: ed        notc
534d: aa ee 18  mov1  c,$031d,6
5350: dc        dec y
5351: b0 30     bcs   $5383
5353: ad ed     cmp y,#$ed
5355: aa ee 30  mov1  c,$061d,6
5358: 82 ad     set4  $ad
535a: 0f        brk
535b: c9 00 e0  mov $e000,x
535e: 0b ea     asl $ea
5360: f4 f4     mov a, $f4+x
5362: 46        eor a,(x)
5363: e1        tcall 14
5364: 0a 03 c9  or1   c,$1920,3
5367: ed        notc
5368: 64 ee     cmp a, $ee
536a: 28 fa     and a, #$fa
536c: 04 7f     or a, $7f
536e: a6        sbc a,(x)
536f: a6        sbc a,(x)
5370: a6        sbc a,(x)
5371: a6        sbc a,(x)
5372: a6        sbc a,(x)
5373: a6        sbc a,(x)
5374: a9 a9 a9  sbc $a9, $a9
5377: a9 a9 a9  sbc $a9, $a9
537a: ed        notc
537b: fa ee 28  mov $28, $ee
537e: 64 a6     cmp a, $a6
5380: a6        sbc a,(x)
5381: a6        sbc a,(x)
5382: a6        sbc a,(x)
5383: a6        sbc a,(x)
5384: a6        sbc a,(x)
5385: a4 a4     sbc a, $a4
5387: a4 a4     sbc a, $a4
5389: a4 a4     sbc a, $a4
538b: ed        notc
538c: 3c        rol a
538d: ee        pop y
538e: 0a e6 ad  or1   c,$15bc,6
5391: ad ad     cmp y,#$ad
5393: ad ad     cmp y,#$ad
5395: ad ad     cmp y,#$ad
5397: ad ad     cmp y,#$ad
5399: ad ad     cmp y,#$ad
539b: ad ad     cmp y,#$ad
539d: ad ad     cmp y,#$ad
539f: ad ed     cmp y,#$ed
53a1: e6        mov a,(x)
53a2: ee        pop y
53a3: 1e 3c ad  cmp x,$ad3c
53a6: ad ad     cmp y,#$ad
53a8: ad ad     cmp y,#$ad
53aa: ad ad     cmp y,#$ad
53ac: ad 0c     cmp y,#$0c
53ae: c9 e0 0b  mov $0be0,x
53b1: ea 00 f4  not1  $1e80,0
53b4: 46        eor a,(x)
53b5: ed        notc
53b6: c8 e1     cmp x,#$e1
53b8: 03 18 7f  bbs0 $18,$5439
53bb: 8f 8e ed  mov $ed,#$8e
53be: b4 8c     sbc a, $8c+x
53c0: 89 30 82  adc $82, $30
53c3: 82 0f     set4  $0f
53c5: c9 e0 0b  mov $0be0,x
53c8: ea 00 f4  not1  $1e80,0
53cb: 1e ed c8  cmp x,$c8ed
53ce: e1        tcall 14
53cf: 11        tcall 1
53d0: 03 c9 18  bbs0 $c9,$53ea
53d3: 7f        reti
53d4: 8f 8e 8c  mov $8c,#$8e
53d7: 89 f4 00  adc $00, $f4
53da: 30 82     bmi $535e
53dc: 2d        push a
53dd: 82 0f     set4  $0f
53df: c9 e0 0b  mov $0be0,x
53e2: ea f4 f4  not1  $1e9e,4
53e5: 46        eor a,(x)
53e6: ed        notc
53e7: be        das a
53e8: e1        tcall 14
53e9: 0a 18 7f  or1   c,$0fe3,0
53ec: a2 a1     set5  $a1
53ee: 9f        xcn a
53ef: a1        tcall 10
53f0: 30 8e     bmi $5380
53f2: 8e        pop   psw
53f3: 0f        brk
53f4: c9 e0 02  mov $02e0,x
53f7: f4 00     mov a, $00+x
53f9: e1        tcall 14
53fa: 06        or a,(x)
53fb: ed        notc
53fc: 3c        rol a
53fd: ee        pop y
53fe: 32 82     clr1  $82
5400: 05 c9 05  or a, $05c9
5403: 7f        reti
5404: 93 0a c9  bbc4  $0a, $53cf
5407: 0f        brk
5408: 97 14     adc a,($14)+y
540a: c9 08 93  mov $9308,x
540d: e1        tcall 14
540e: 08 04     or a, #$04
5410: c9 95 c9  mov $c995,x
5413: 97 0b     adc a,($0b)+y
5415: c9 e1 03  mov $03e1,x
5418: 05 c9 93  or a, $93c9
541b: 0a c9 0f  or1   c,$01f9,1
541e: 93 1e c9  bbc4  $1e,$53e9
5421: 08 90     or a, #$90
5423: e1        tcall 14
5424: 0d        push  psw
5425: 04 c9     or a, $c9
5427: 93 c9 ed  bbc4  $c9,$5416
542a: aa ee 1e  mov1  c,$03dd,6
542d: 14 93     or a, $93+x
542f: 1c        asl a
5430: c9 e0 02  mov $02e0,x
5433: f4 00     mov a, $00+x
5435: e1        tcall 14
5436: 0e ed 3c  tset1 $3ced
5439: ee        pop y
543a: 32 82     clr1  $82
543c: 05 7f 91  or a, $917f
543f: 1e c9 06  cmp x,$06c9
5442: c9 93 10  mov $1093,x
5445: c9 e1 0c  mov $0ce1,x
5448: 04 93     or a, $93
544a: c9 90 c9  mov $c990,x
544d: 09 93 e1  or $e1, $93
5450: 11        tcall 1
5451: 05 91 24  or a, $2491
5454: c9 06 93  mov $9306,x
5457: 10 c9     bpl $5422
5459: e1        tcall 14
545a: 07 04     or a,($04+x)
545c: 93 0e c9  bbc4  $0e,$5427
545f: 04 97     or a, $97
5461: c9 06 97  mov $9706,x
5464: ed        notc
5465: aa ee 1e  mov1  c,$03dd,6
5468: 14 04     or a, $04+x
546a: 93 14 c9  bbc4  $14,$5435
546d: 00        nop
546e: 72 54     clr3  $54
5470: 00        nop
5471: 00        nop
5472: 82 54     set4  $54
5474: aa 54 bd  mov1  c,$17aa,4
5477: 54 d8     eor a, $d8+x
5479: 54 eb     eor a, $eb+x
547b: 54 0b     eor a, $0b+x
547d: 55 3b 55  eor a, $553b+x
5480: 00        nop
5481: 00        nop
5482: fa 26 e7  mov $e7, $26
5485: 2d        push a
5486: e5 96 f5  mov a, $f596
5489: 0f        brk
548a: 0a 0a f7  or1   c,$1ee1,2
548d: 02 0a     set0  $0a
548f: 00        nop
5490: e0        clrv
5491: 0b f4     asl $f4
5493: 46        eor a,(x)
5494: ea 00 ed  not1  $1da0,0
5497: e6        mov a,(x)
5498: e1        tcall 14
5499: 03 60 7f  bbs0 $60,$551a
549c: 8a 89 87  eor1  c,$10f1,1
549f: 2a 82 e5  or1   c,!($1cb0,2)
54a2: aa e6 28  mov1  c,$051c,6
54a5: 3c        rol a
54a6: c8 04     cmp x,#$04
54a8: c9 00 e0  mov $e000,x
54ab: 0b f4     asl $f4
54ad: 46        eor a,(x)
54ae: ea 00 ed  not1  $1da0,0
54b1: e6        mov a,(x)
54b2: e1        tcall 14
54b3: 11        tcall 1
54b4: 60        clrc
54b5: 7f        reti
54b6: 8a 89 87  eor1  c,$10f1,1
54b9: 54 82     eor a, $82+x
54bb: 04 c9     or a, $c9
54bd: e0        clrv
54be: 0b f4     asl $f4
54c0: 46        eor a,(x)
54c1: ea 00 ed  not1  $1da0,0
54c4: dc        dec y
54c5: e1        tcall 14
54c6: 06        or a,(x)
54c7: 30 7f     bmi $5548
54c9: 9a 18     subw ya, $18
54cb: 9d        mov x,sp
54cc: a2 30     set5  $30
54ce: a1        tcall 10
54cf: 9c        dec a
54d0: a2 18     set5  $18
54d2: 9d        mov x,sp
54d3: 9a 54     subw ya, $54
54d5: 9a 04     subw ya, $04
54d7: c9 e0 0b  mov $0be0,x
54da: f4 46     mov a, $46+x
54dc: ea 00 ed  not1  $1da0,0
54df: dc        dec y
54e0: e1        tcall 14
54e1: 0e 60 7f  tset1 $7f60
54e4: 9d        mov x,sp
54e5: 9c        dec a
54e6: 9a 54     subw ya, $54
54e8: 95 04 c9  adc a, $c904+x
54eb: e0        clrv
54ec: 0b f4     asl $f4
54ee: 46        eor a,(x)
54ef: ea 00 ed  not1  $1da0,0
54f2: d2 e1     clr6  $e1
54f4: 0a 04 c9  or1   c,$1920,4
54f7: 18 7f 9d  or $9d,#$7f
54fa: a2 a4     set5  $a4
54fc: a6        sbc a,(x)
54fd: a8 a4     sbc a, #$a4
54ff: 9f        xcn a
5500: a4 ed     sbc a, $ed
5502: a0        ei
5503: a9 ed bd  sbc $bd, $ed
5506: a6        sbc a,(x)
5507: a2 9f     set5  $9f
5509: 54 c9     eor a, $c9+x
550b: e0        clrv
550c: 0b f4     asl $f4
550e: 46        eor a,(x)
550f: ea 00 ed  not1  $1da0,0
5512: dc        dec y
5513: e1        tcall 14
5514: 08 1c     or a, #$1c
5516: 7f        reti
5517: 9d        mov x,sp
5518: 14 c9     or a, $c9+x
551a: 1c        asl a
551b: a4 14     sbc a, $14
551d: c9 1c a8  mov $a81c,x
5520: 14 c9     or a, $c9+x
5522: 1c        asl a
5523: 9f        xcn a
5524: 14 c9     or a, $c9+x
5526: ed        notc
5527: c8 1c     cmp x,#$1c
5529: a9 e8 a0  sbc $a0, $e8
552c: 0a ed e5  or1   c,$1cbd,5
552f: 14 c9     or a, $c9+x
5531: 1c        asl a
5532: a2 14     set5  $14
5534: c9 e1 0a  mov $0ae1,x
5537: 54 a1     eor a, $a1+x
5539: 04 c9     or a, $c9
553b: e0        clrv
553c: 0b f4     asl $f4
553e: 46        eor a,(x)
553f: ea 00 ed  not1  $1da0,0
5542: aa e1 0c  mov1  c,$019c,1
5545: 18 c9 1c  or $1c,#$c9
5548: 7f        reti
5549: a2 14     set5  $14
554b: c9 18 a6  mov $a618,x
554e: 04 c8     or a, $c8
5550: 14 c9     or a, $c9+x
5552: 1c        asl a
5553: a4 14     sbc a, $14
5555: c9 18 a4  mov $a418,x
5558: 04 c8     or a, $c8
555a: 14 c9     or a, $c9+x
555c: 1c        asl a
555d: a6        sbc a,(x)
555e: 14 c9     or a, $c9+x
5560: 18 9f 04  or $04,#$9f
5563: c8 50     cmp x,#$50
5565: c9 04 c9  mov $c904,x
5568: 00        nop
5569: 83 55 73  bbs4  $55,$55de
556c: 55 ff 00  eor a, $00ff+x
556f: 6b 55     ror $55
5571: 00        nop
5572: 00        nop
5573: 93 55 c8  bbc4  $55,$553d
5576: 55 ee 55  eor a, $55ee+x
5579: 30 56     bmi $55d1
557b: 00        nop
557c: 00        nop
557d: 00        nop
557e: 00        nop
557f: 00        nop
5580: 00        nop
5581: 00        nop
5582: 00        nop
5583: 49 56 65  eor $65, $56
5586: 56 6d 56  eor a, $566d+y
5589: 75 56 7d  cmp a, $7d56+x
558c: 56 00 00  eor a, $0000+y
558f: 00        nop
5590: 00        nop
5591: 00        nop
5592: 00        nop
5593: e5 dc e7  mov a, $e7dc
5596: 10 e0     bpl $5578
5598: 0c f4 28  asl $28f4
559b: ed        notc
559c: 46        eor a,(x)
559d: e1        tcall 14
559e: 07 f5     or a,($f5+x)
55a0: 0f        brk
55a1: 0a 0a f7  or1   c,$1ee1,2
55a4: 02 0a     set0  $0a
55a6: 00        nop
55a7: 30 c9     bmi $5572
55a9: 18 2f ba  or $ba, #$2f
55ac: b5 b9 b1  sbc a, $b1b9+x
55af: 48 c9     eor a, #$c9
55b1: 18 b0 b6  or $b6,#$b0
55b4: bb c9     inc $c9+x
55b6: c9 18 1f  mov $1f18,x
55b9: b5 0c c9  sbc a, $c90c+x
55bc: 18 b2 0c  or $0c,#$b2
55bf: c9 24 c9  mov $c924,x
55c2: 60        clrc
55c3: c9 c9 0c  mov $0cc9,x
55c6: c9 00 e0  mov $e000,x
55c9: 0c f4 28  asl $28f4
55cc: ed        notc
55cd: 32 e1     clr1  $e1
55cf: 0a 30 c9  or1   c,$1926,0
55d2: 18 2f a6  or $a6,#$2f
55d5: a1        tcall 10
55d6: a5 9d 48  sbc a, $489d
55d9: c9 18 9c  mov $9c18,x
55dc: a2 a7     set5  $a7
55de: c9 c9 ad  mov $adc9,x
55e1: 0c c9 18  asl $18c9
55e4: aa 0c c9  mov1  c,$1921,4
55e7: 21        tcall 2
55e8: c9 60 c9  mov $c960,x
55eb: c9 0f c9  mov $c90f,x
55ee: e0        clrv
55ef: 0c f4 28  asl $28f4
55f2: ed        notc
55f3: 3c        rol a
55f4: e1        tcall 14
55f5: 0d        push  psw
55f6: 20        clrp
55f7: c9 06 0f  mov $0f06,x
55fa: ba b5     movw ya, $b5
55fc: b9        sbc (x),(y)
55fd: b1        tcall 11
55fe: b0 b6     bcs   $55b6
5600: bb 2a     inc $2a+x
5602: c9 06 ba  mov $ba06,x
5605: b5 b9 b1  sbc a, $b1b9+x
5608: b0 b6     bcs   $55c0
560a: bb 36     inc $36+x
560c: c9 06 b9  mov $b906,x
560f: b1        tcall 11
5610: ba b5     movw ya, $b5
5612: b0 b6     bcs   $55ca
5614: bb 3e     inc $3e+x
5616: c9 06 ba  mov $ba06,x
5619: b5 b9 b1  sbc a, $b1b9+x
561c: b0 b6     bcs   $55d4
561e: bb 20     inc $20+x
5620: c9 06 b5  mov $b506,x
5623: ba b9     movw ya, $b9
5625: b1        tcall 11
5626: b0 b6     bcs   $55de
5628: bb 11     inc $11+x
562a: c9 60 c9  mov $c960,x
562d: c9 07 c9  mov $c907,x
5630: e0        clrv
5631: 0b f4     asl $f4
5633: 46        eor a,(x)
5634: e1        tcall 14
5635: 0a ed 3c  or1   c,$079d,5
5638: ee        pop y
5639: 3c        rol a
563a: c8 3c     cmp x,#$3c
563c: 7f        reti
563d: 80        setc
563e: ed        notc
563f: c8 ee     cmp x,#$ee
5641: 30 3c     bmi $567f
5643: 30 c8     bmi $560d
5645: ef        sleep
5646: 88 56     adc a, #$56
5648: 05 fa 26  or a, $26fa
564b: e7 10     mov a,($10+x)
564d: e5 c8 e0  mov a, $e0c8
5650: 0c f4 28  asl $28f4
5653: ed        notc
5654: 46        eor a,(x)
5655: f5 0f 0a  mov a, $0a0f+x
5658: 0a f7 02  or1   c,$005e,7
565b: 0a 00 e1  or1   c,$1c20,0
565e: 07 e2     or a,($e2+x)
5660: c0        di
5661: 0d        push  psw
5662: 0c c9 00  asl $00c9
5665: e0        clrv
5666: 0c f4 28  asl $28f4
5669: ed        notc
566a: 32 0c     clr1  $0c
566c: c9 e0 0c  mov $0ce0,x
566f: f4 28     mov a, $28+x
5671: ed        notc
5672: 3c        rol a
5673: 0c c9 e0  asl $e0c9
5676: 0b f4     asl $f4
5678: 46        eor a,(x)
5679: e1        tcall 14
567a: 0a 0c c9  or1   c,$1921,4
567d: e0        clrv
567e: 0c f4 28  asl $28f4
5681: ed        notc
5682: 28 e1     and a, #$e1
5684: 0d        push  psw
5685: 0c c9 00  asl $00c9
5688: ed        notc
5689: 3c        rol a
568a: ee        pop y
568b: 3c        rol a
568c: c8 3c     cmp x,#$3c
568e: 80        setc
568f: ed        notc
5690: c8 ee     cmp x,#$ee
5692: 30 3c     bmi $56d0
5694: 30 c8     bmi $565e
5696: 00        nop
5697: 9f        xcn a
5698: 56 ff 00  eor a, $00ff+y
569b: 97 56     adc a,($56)+y
569d: 00        nop
569e: 00        nop
569f: af        mov (x)+, a
56a0: 56 00 00  eor a, $0000+y
56a3: 00        nop
56a4: 00        nop
56a5: 00        nop
56a6: 00        nop
56a7: 00        nop
56a8: 00        nop
56a9: 00        nop
56aa: 00        nop
56ab: 00        nop
56ac: 00        nop
56ad: 00        nop
56ae: 00        nop
56af: fa 26 e7  mov $e7, $26
56b2: 10 e5     bpl $5699
56b4: e6        mov a,(x)
56b5: f5 01 00  mov a, $0001+x
56b8: 00        nop
56b9: f7 02     mov a,($02)+y
56bb: 00        nop
56bc: 00        nop
56bd: e0        clrv
56be: 0b f4     asl $f4
56c0: 46        eor a,(x)
56c1: e1        tcall 14
56c2: 0a ed 32  or1   c,$065d,5
56c5: ee        pop y
56c6: 3c        rol a
56c7: b4 3c     sbc a, $3c+x
56c9: 7f        reti
56ca: 80        setc
56cb: ed        notc
56cc: b4 ee     sbc a, $ee+x
56ce: 30 32     bmi $5702
56d0: 30 c8     bmi $569a
56d2: ed        notc
56d3: 32 ee     clr1  $ee
56d5: 3c        rol a
56d6: b4 3c     sbc a, $3c+x
56d8: 80        setc
56d9: ed        notc
56da: b4 ee     sbc a, $ee+x
56dc: 30 32     bmi $5710
56de: 30 c8     bmi $56a8
56e0: 00        nop
56e1: 00        nop

; end of N-SPC core