* * HypercardGS * segment: $10 Eval * * (k) 2015, Brutal Deluxe Software * mx %00 rel dsk Eval.l lst off *--------------------------------------- use Eval.E use Eval.X use 4/Ctl.Macs use 4/Desk.Macs use 4/Dialog.Macs use 4/Event.Macs use 4/Int.Macs use 4/Line.Macs use 4/List.Macs use 4/Locator.Macs use 4/Mem.Macs use 4/Menu.Macs use 4/MidiSyn.Macs use 4/Misc.Macs use 4/Qd.Macs use 4/SANE.Macs use 4/Sound.Macs use 4/Std.Macs use 4/Text.Macs use 4/Util.Macs use 4/Window.Macs *--------------------------------------- L100000 ENT PHD TSC CLC ADC #$FFFC TCS TCD PEA $0000 JSL L100026 PLY PLY PLD RTL L100013 ENT PHD TSC CLC ADC #$FFFC TCS TCD PEA $0001 JSL L100026 PLY PLY PLD RTL L100026 PHD TSC CLC ADC #$FFE4 TCS TCD PHY PHY JSL L0B37CF PLA STA $15 PLX STX $17 PHY PHY JSL L0B3727 PLA STA $11 PLX STX $13 LDA $15 LDX $17 PEI $13 PEI $11 JSL L150F53 STA $0D STX $0F PHY PHY PEI $0F PEI $0D LDA L0553DB PHA JSL L0B249C PLA STA $09 PLX STX $0B LDA $09 ORA $0B BNE L10007A PEA $002D JSL L0B0B7A BRL L100104 L10007A PHY PHY PEA $0000 JSL L03154C PLA STA $05 PLX STX $07 PEI $07 PEI $05 LDY #$0002 LDA [$09],Y PHA LDA [$09] PHA LDX $17 LDA $15 BNE L10009D DEX L10009D DEC PHX PHA JSL L070597 LDY #$0002 LDA [$09],Y TAX LDA [$09] PEI $17 PEI $15 JSL L150F53 TAY BNE L1000B8 DEX L1000B8 DEC STA $01 STX $03 LDA $22 BEQ L1000D5 SEP #$20 LDA #$20 STA [$01] REP #$20 LDA $01 LDX $03 INC BNE L1000D1 INX L1000D1 STA $01 STX $03 L1000D5 PHY PHY PEA $0000 JSL L031415 PLA STA $05 PLX STX $07 PEI $07 PEI $05 PEI $03 PEI $01 PEI $13 PEI $11 JSL L070597 JSL L0E0000 JSL L0E0000 PEI $0B PEI $09 JSL L0E0CFE L100104 LDA $20 STA $22 LDA $1F STA $21 LDA $1D TCD TSC CLC ADC #$0020 TCS RTL L100116 ENT PHD TSC CLC ADC #$FFFC TCS TCD PHY JSL L0E0678 PHY JSL L0E0678 PLA STA $01 PLA AND $01 PHA JSL L0E0E4B PLY PLY PLD RTL L100137 ENT PHD TSC CLC ADC #$FD96 TCS ADC #$0173 TCD STZ L05538F PHY JSL L03198D PLA LSR BCS L100151 BRL L100672 L100151 TDC CLC ADC #$00DB PEA $0000 PHA JSL L0E00CC PHY JSL L03198D PLA LSR BCS L10016A BRL L10065A L10016A TDC CLC ADC #$00CF PEA $0000 PHA JSL L0E00CC LDA $CF AND $DB BNE L100180 BRL L10026D L100180 LDA L0553AB SEC SBC #$0007 BPL L10018C BRL L10026A L10018C CMP #$000D BMI L100194 BRL L10026A L100194 SEC SBC #$0000 BEQ L1001B8 DEC DEC BNE L1001A1 BRL L10022A L1001A1 DEC BEQ L1001EA SEC SBC #$0005 BNE L1001AD BRL L100249 L1001AD DEC BEQ L10020B DEC DEC DEC BEQ L1001D1 BRL L10026A L1001B8 LDA $DD LDX $DF CMP $D1 BNE L1001C2 CPX $D3 L1001C2 BEQ L1001C9 LDA #$0000 BRA L1001CC L1001C9 LDA #$0001 L1001CC STA $EF BRL L10026A L1001D1 LDA $DD LDX $DF CMP $D1 BNE L1001DB CPX $D3 L1001DB BNE L1001E2 LDA #$0000 BRA L1001E5 L1001E2 LDA #$0001 L1001E5 STA $EF BRL L10026A L1001EA PEI $D3 PEI $D1 LDA $DD LDX $DF JSL L033477 BEQ L1001FF BVS L1001FD EOR #$8000 L1001FD BMI L100204 L1001FF LDA #$0000 BRA L100207 L100204 LDA #$0001 L100207 STA $EF BRA L10026A L10020B PEI $D3 PEI $D1 LDA $DD LDX $DF JSL L033477 BVS L10021C EOR #$8000 L10021C BPL L100223 LDA #$0000 BRA L100226 L100223 LDA #$0001 L100226 STA $EF BRA L10026A L10022A PEI $D3 PEI $D1 LDA $DD LDX $DF JSL L033477 BVS L10023B EOR #$8000 L10023B BMI L100242 LDA #$0000 BRA L100245 L100242 LDA #$0001 L100245 STA $EF BRA L10026A L100249 PEI $D3 PEI $D1 LDA $DD LDX $DF JSL L033477 BEQ L100263 BVS L10025C EOR #$8000 L10025C BPL L100263 LDA #$0000 BRA L100266 L100263 LDA #$0001 L100266 STA $EF BRA L10026A L10026A BRL L100658 L10026D LDA $DB BEQ L1002B3 TDC CLC ADC #$00DD PEA $0000 PHA LDA $DD LDX $DF TXY LDX #$FEBB STA $00,X TYA STA $02,X PEA $0000 TDC CLC ADC #$FEBB PHA PEA $0000 TDC CLC ADC #$FEB1 PHA PEA $030E _SANEFP816 PEA $0000 TDC CLC ADC #$FEB1 PHA PEA $000A JSL L0313BE L1002B3 LDA $CF BEQ L1002F9 TDC CLC ADC #$00D1 PEA $0000 PHA LDA $D1 LDX $D3 TXY LDX #$FEBB STA $00,X TYA STA $02,X PEA $0000 TDC CLC ADC #$FEBB PHA PEA $0000 TDC CLC ADC #$FEB1 PHA PEA $030E _SANEFP816 PEA $0000 TDC CLC ADC #$FEB1 PHA PEA $000A JSL L0313BE L1002F9 LDA L0553AB SEC SBC #$0007 BPL L100305 BRL L100658 L100305 CMP #$000D BMI L10030D BRL L100658 L10030D SEC SBC #$0000 BEQ L10033A DEC DEC BNE L10031A BRL L10059C L10031A DEC BNE L100320 BRL L1004E2 L100320 SEC SBC #$0005 BNE L100329 BRL L1005FA L100329 DEC BNE L10032F BRL L10053F L10032F DEC DEC DEC BNE L100337 BRL L10040E L100337 BRL L100658 L10033A PEA $0000 TDC CLC ADC #$FE97 PHA PEA $0000 TDC CLC ADC #$FEA1 PHA PEA $0000 TDC CLC ADC #$FEB5 PHA TDC CLC ADC #$00D1 PEA $0000 PHA PEA $000A JSL L0313BE PEA $0000 TDC CLC ADC #$FEAB PHA PEA $0000 TDC CLC ADC #$FEAB PHA TDC CLC ADC #$00DD PEA $0000 PHA PEA $000A JSL L0313BE PEA $0000 TDC CLC ADC #$FEB5 PHA PEA $0002 _SANEFP816 PEA $0000 TDC CLC ADC #$FEB5 PHA PEA $000A JSL L0313BE PEA $0000 TDC CLC ADC #$FEA1 PHA PEA $000F _SANEFP816 PEA $0000 TDC CLC ADC #$FEA1 PHA PEA $000A JSL L0313BE PEA $0000 TDC CLC ADC #$FE8D PHA PEA $0000 TDC CLC ADC #$FE8D PHA PEA ^L0402F8 PEA L0402F8 PEA $000A JSL L0313BE PEA $0000 TDC CLC ADC #$FE97 PHA PEA $000A _SANEFP816 BVS L100406 LDA #$0000 BRA L100409 L100406 LDA #$0001 L100409 STA $EF BRL L100658 L10040E PEA $0000 TDC CLC ADC #$FE97 PHA PEA $0000 TDC CLC ADC #$FEA1 PHA PEA $0000 TDC CLC ADC #$FEB5 PHA TDC CLC ADC #$00D1 PEA $0000 PHA PEA $000A JSL L0313BE PEA $0000 TDC CLC ADC #$FEAB PHA PEA $0000 TDC CLC ADC #$FEAB PHA TDC CLC ADC #$00DD PEA $0000 PHA PEA $000A JSL L0313BE PEA $0000 TDC CLC ADC #$FEB5 PHA PEA $0002 _SANEFP816 PEA $0000 TDC CLC ADC #$FEB5 PHA PEA $000A JSL L0313BE PEA $0000 TDC CLC ADC #$FEA1 PHA PEA $000F _SANEFP816 PEA $0000 TDC CLC ADC #$FEA1 PHA PEA $000A JSL L0313BE PEA $0000 TDC CLC ADC #$FE8D PHA PEA $0000 TDC CLC ADC #$FE8D PHA PEA ^L040302 PEA L040302 PEA $000A JSL L0313BE PEA $0000 TDC CLC ADC #$FE97 PHA PEA $000A _SANEFP816 BMI L1004DA LDA #$0000 BRA L1004DD L1004DA LDA #$0001 L1004DD STA $EF BRL L100658 L1004E2 PEA $0000 TDC CLC ADC #$FEB5 PHA TDC CLC ADC #$00D1 PEA $0000 PHA PEA $000A JSL L0313BE PEA $0000 TDC CLC ADC #$FEAB PHA PEA $0000 TDC CLC ADC #$FEAB PHA TDC CLC ADC #$00DD PEA $0000 PHA PEA $000A JSL L0313BE PEA $0000 TDC CLC ADC #$FEB5 PHA PEA $000A _SANEFP816 BMI L100537 LDA #$0000 BRA L10053A L100537 LDA #$0001 L10053A STA $EF BRL L100658 L10053F PEA $0000 TDC CLC ADC #$FEB5 PHA TDC CLC ADC #$00D1 PEA $0000 PHA PEA $000A JSL L0313BE PEA $0000 TDC CLC ADC #$FEAB PHA PEA $0000 TDC CLC ADC #$FEAB PHA TDC CLC ADC #$00DD PEA $0000 PHA PEA $000A JSL L0313BE PEA $0000 TDC CLC ADC #$FEB5 PHA PEA $000A _SANEFP816 BVS L100594 LDA #$0000 BRA L100597 L100594 LDA #$0001 L100597 STA $EF BRL L100658 L10059C PEA $0000 TDC CLC ADC #$FEB5 PHA TDC CLC ADC #$00D1 PEA $0000 PHA PEA $000A JSL L0313BE PEA $0000 TDC CLC ADC #$FEAB PHA PEA $0000 TDC CLC ADC #$FEAB PHA TDC CLC ADC #$00DD PEA $0000 PHA PEA $000A JSL L0313BE PEA $0000 TDC CLC ADC #$FEB5 PHA PEA $000A _SANEFP816 BEQ L1005F3 BMI L1005F3 LDA #$0000 BRA L1005F6 L1005F3 LDA #$0001 L1005F6 STA $EF BRA L100658 L1005FA PEA $0000 TDC CLC ADC #$FEB5 PHA TDC CLC ADC #$00D1 PEA $0000 PHA PEA $000A JSL L0313BE PEA $0000 TDC CLC ADC #$FEAB PHA PEA $0000 TDC CLC ADC #$FEAB PHA TDC CLC ADC #$00DD PEA $0000 PHA PEA $000A JSL L0313BE PEA $0000 TDC CLC ADC #$FEB5 PHA PEA $000A _SANEFP816 BEQ L100651 BVS L100651 LDA #$0000 BRA L100654 L100651 LDA #$0001 L100654 STA $EF BRA L100658 L100658 BRA L10066D L10065A TDC CLC ADC #$00DB PEA $0000 PHA JSL L0E07F9 JSL L031B09 BRA L100674 L10066D BRL L10078B BRA L100674 L100672 BRA L100674 L100674 JSL L031B09 JSL L0B32A5 JSL L031B09 PHY PHY PEA $0000 JSL L031415 PLA STA $EB PLX STX $ED PHY PHY PEA $0000 JSL L03154C PLA STA $E7 PLX STX $E9 LDX #$0000 LDA #$0007 CMP L0553AB BNE L1006AA INX L1006AA PHX LDX #$0000 LDA #$0013 CMP L0553AB BNE L1006B7 INX L1006B7 TXA ORA $01,S PLX LSR BCC L1006D0 PHY PEI $ED PEI $EB PEI $E9 PEI $E7 JSL L0B8146 PLA STA $F1 BRA L1006E0 L1006D0 PHY PEI $ED PEI $EB PEI $E9 PEI $E7 JSL L0B8189 PLA STA $F1 L1006E0 JSL L0E0000 JSL L0E0000 LDA L0553AB SEC SBC #$0007 BPL L1006F4 BRL L10078B L1006F4 CMP #$000D BMI L1006FC BRL L10078B L1006FC SEC SBC #$0000 BEQ L100719 DEC DEC BEQ L10074F DEC BEQ L100731 SEC SBC #$0005 BEQ L10076C DEC BEQ L10073F DEC DEC DEC BEQ L100726 BRA L10078B L100719 LDX #$0000 LDA $F1 BNE L100721 INX L100721 TXA STA $EF BRA L10078B L100726 LDA $F1 BEQ L10072D LDA #$0001 L10072D STA $EF BRA L10078B L100731 LDX #$0000 LDA $F1 DEC BNE L10073A INX L10073A TXA STA $EF BRA L10078B L10073F LDX #$0000 LDA #$FFFF CMP $F1 BNE L10074A INX L10074A TXA STA $EF BRA L10078B L10074F LDX #$0000 LDA $F1 DEC BNE L100758 INX L100758 TXA BNE L100768 PHA LDX #$0000 LDA $F1 BNE L100764 INX L100764 TXA ORA $01,S PLX L100768 STA $EF BRA L10078B L10076C LDX #$0000 LDA #$FFFF CMP $F1 BNE L100777 INX L100777 TXA BNE L100787 PHA LDX #$0000 LDA $F1 BNE L100783 INX L100783 TXA ORA $01,S PLX L100787 STA $EF BRA L10078B L10078B PEI $EF JSL L0E0E4B LDA #$0001 STA L05538F TSC CLC ADC #$026A TCS PLD RTL L10079F ENT PHD TSC CLC ADC #$FFF8 TCS TCD JSL L0B32A5 JSL L1008D4 PLY PLY PLY PLY PLD RTL L1007B5 ENT PHD TSC CLC ADC #$FFF4 TCS TCD PHY PHY JSL L0E061D PLA STA $01 PLX STX $03 PHY PHY JSL L0E061D PLA STA $05 PLX STX $07 LDA $01 ORA $03 BEQ L1007F3 PEI $07 PEI $05 PEI $03 PEI $01 JSL L150290 PLY PLY PLY PLY PHX PHA JSL L0E0E79 BRA L1007FA L1007F3 PEA $0009 JSL L0B0B7A L1007FA TSC CLC ADC #$000C TCS PLD RTL L100802 ENT PHD TSC CLC ADC #$FFD4 TCS TCD TDC CLC ADC #$001F PEA $0000 PHA JSL L0E04A7 TDC CLC ADC #$0015 PEA $0000 PHA JSL L0E04A7 PEA $0000 TDC CLC ADC #$000B PHA TDC CLC ADC #$0015 PEA $0000 PHA PEA $000A JSL L0313BE PEA $0000 TDC CLC ADC #$0001 PHA PEA $0000 TDC CLC ADC #$0001 PHA TDC CLC ADC #$001F PEA $0000 PHA PEA $000A JSL L0313BE PEA $0000 TDC CLC ADC #$000B PHA PEA $0006 _SANEFP816 PEA $0000 TDC CLC ADC #$000B PHA JSL L0E0C71 TSC CLC ADC #$002C TCS PLD RTL L100887 ENT PHD TSC CLC ADC #$FFDE TCS TCD TDC CLC ADC #$0015 PEA $0000 PHA JSL L0E04A7 TDC CLC ADC #$000B PEA $0000 PHA JSL L0E04A7 PEA $0000 TDC CLC ADC #$0001 PHA TDC CLC ADC #$000B PEA $0000 PHA TDC CLC ADC #$0015 PEA $0000 PHA JSL L1504B7 JSL L0E0C71 TSC CLC ADC #$0022 TCS PLD RTL L1008D4 ENT PHD TSC CLC ADC #$FFF8 TCS TCD PHY PHY PHY PHY PEA $0000 JSL L03154C PHY PHY PEA $0000 JSL L031415 JSL L071CE4 PLA STA $01 PLX STX $03 JSL L0E0000 JSL L0E0000 LDA $01 ORA $03 BEQ L10090B LDA #$0001 L10090B PHA JSL L0E0E4B PLY PLY PLY PLY PLD RTL L100916 ENT PHD TSC CLC ADC #$FFFC TCS TCD JSL L1008D4 JSL L0B26CD PLY PLY PLD RTL L10092A ENT PHD TSC CLC ADC #$FFFC TCS TCD JSL L100AA7 JSL L0B26CD PLY PLY PLD RTL L10093E PHD TSC CLC ADC #$FEE0 TCS ADC #$002F TCD JSL L031B09 LDA L0553B5 LDX L0553B7 STA $D3 STX $D5 PHY JSL L0B1C0F PLA STA $D1 PHY PHY PEA $0000 JSL L031415 PHY PHY JSL L0B3727 TDC CLC ADC #$00D7 PEA $0000 PHA JSL L0B7932 PEI $D1 JSL L0B39C0 PEA $0000 TDC CLC ADC #$FFD1 PHA JSL L0E06AC TDC CLC ADC #$00D7 PEA $0000 PHA PEA $0001 JSL L0B2AF9 PHY PEI $FA JSL L0B4D5D PLA LSR BCC L1009B0 LDA #$0001 STA $FC BRA L1009BF L1009B0 STZ $FC PEA $0000 TDC CLC ADC #$FFD1 PHA JSL L0E0EA8 L1009BF TDC CLC ADC #$00D7 PEA $0000 PHA JSL L0B0F05 PEI $D5 PEI $D3 PEA $0000 JSL L0B2AF9 LDA $F4 STA $FA LDA $F3 STA $F9 LDA $F1 TCD TSC CLC ADC #$0128 TCS RTL L1009E9 PHD TSC CLC ADC #$FFFC TCS TCD PHY PHY JSL L0B3773 PLA PLX CMP #$000C BNE L100A01 CPX #$0000 L100A01 BNE L100A0A LDA #$0001 STA $0E BRA L100A37 L100A0A PHY LDA L0553D1 LDX L0553D3 STA $01 STX $03 LDY #$0002 LDA [$01],Y TAX LDA [$01] CLC ADC #$01A6 BCC L100A24 INX L100A24 STA $01 STX $03 LDA [$01] PHA PEA $0000 PEI $0A JSL L10093E PLA STA $0E L100A37 LDA $08 STA $0C LDA $07 STA $0B LDA $05 TCD PLY PLY PLY PLY PLY RTL L100A48 PHD TSC CLC ADC #$FFFC TCS TCD PHY PHY JSL L0B3773 PLA PLX CMP #$000B BNE L100A60 CPX #$0000 L100A60 BNE L100A69 LDA #$0001 STA $0E BRA L100A96 L100A69 PHY LDA L0553D1 LDX L0553D3 STA $01 STX $03 LDY #$0002 LDA [$01],Y TAX LDA [$01] CLC ADC #$01A8 BCC L100A83 INX L100A83 STA $01 STX $03 LDA [$01] PHA PEA $0000 PEI $0A JSL L10093E PLA STA $0E L100A96 LDA $08 STA $0C LDA $07 STA $0B LDA $05 TCD PLY PLY PLY PLY PLY RTL L100AA7 ENT PHD TSC CLC ADC #$FFEE TCS TCD PHY PEA $0000 PHD JSL L1009E9 PLA LSR BCS L100ACB LDA #$0065 STA $01 JSL L0B32A5 JSL L0E0000 BRA L100AF3 L100ACB TDC CLC ADC #$0007 PEA $0000 PHA PEA $0000 PEA $0008 PEA $000C JSL L0E0656 PHY PEA $0000 PHD JSL L100A48 PLA LSR BCS L100B12 LDA #$0066 STA $01 L100AF3 PEA ^L050C32 PEA L050C32 JSL L0E06AC PEI $01 PEA ^L050C32 PEA L050C32 JSL L0B0841 PEA $0000 JSL L0E0E4B BRA L100B43 L100B12 TDC CLC ADC #$0003 PEA $0000 PHA PEA $0000 PEA $0004 PEA $000B JSL L0E0656 PHY TDC CLC ADC #$0003 PEA $0000 PHA TDC CLC ADC #$0007 PEA $0000 PHA JSL L1512CB JSL L0E0E4B L100B43 TSC CLC ADC #$0012 TCS PLD RTL L100B4B ENT PHD TSC CLC ADC #$FFFC TCS TCD PEA $0002 JSL L0B7E9D PLY PLY PLD RTL L100B5E ENT PHD TSC CLC ADC #$FFC4 TCS TCD TDC CLC ADC #$001F PEA $0000 PHA JSL L0E00CC TDC CLC ADC #$002B PEA $0000 PHA JSL L0E00CC LDA $2B AND $1F BEQ L100BAE LDA $21 ORA $23 BEQ L100BA4 PEI $2F PEI $2D PEI $23 PEI $21 JSL L1503B9 PLY PLY PLY PLY PHX PHA JSL L0E0DE2 BRA L100BAB L100BA4 PEA $000A JSL L0B0B7A L100BAB BRL L100D6A L100BAE LDA $1F BEQ L100BF4 TDC CLC ADC #$0021 PEA $0000 PHA LDA $21 LDX $23 TXY LDX #$0011 STA $00,X TYA STA $02,X PEA $0000 TDC CLC ADC #$0011 PHA PEA $0000 TDC CLC ADC #$0007 PHA PEA $030E _SANEFP816 PEA $0000 TDC CLC ADC #$0007 PHA PEA $000A JSL L0313BE L100BF4 LDA $2B BEQ L100C3A TDC CLC ADC #$002D PEA $0000 PHA LDA $2D LDX $2F TXY LDX #$0011 STA $00,X TYA STA $02,X PEA $0000 TDC CLC ADC #$0011 PHA PEA $0000 TDC CLC ADC #$0007 PHA PEA $030E _SANEFP816 PEA $0000 TDC CLC ADC #$0007 PHA PEA $000A JSL L0313BE L100C3A TDC CLC ADC #$0015 PEA $0000 PHA TDC CLC ADC #$0037 PEA $0000 PHA TDC CLC ADC #$0021 PEA $0000 PHA PLY PLX TSC CLC ADC #$FFF6 TCS PEA $0000 INC PHA PHX PHY PEA $000A JSL L0313BE TDC CLC ADC #$002D PEA $0000 PHA PLY PLX TSC CLC ADC #$FFF6 TCS PEA $0000 INC PHA PHX PHY PEA $000A JSL L0313BE JSL L0333DF TAY CLC TSC ADC #$0018 TCS TYA PHX PHA PEA $000A JSL L0313BE PEA $0000 TDC CLC ADC #$000B PHA TDC CLC ADC #$0015 PEA $0000 PHA PEA $000A JSL L0313BE PEA $0000 TDC CLC ADC #$0001 PHA PEA $0000 TDC CLC ADC #$0001 PHA PEA ^L04030C PEA L04030C PEA $000A JSL L0313BE PEA $0000 TDC CLC ADC #$000B PHA PEA $000A _SANEFP816 BVS L100CF1 LDA #$0000 BRA L100CF4 L100CF1 LDA #$0001 L100CF4 BEQ L100D5D TDC CLC ADC #$0015 PEA $0000 PHA PEA $0000 TDC CLC ADC #$000B PHA TDC CLC ADC #$0015 PEA $0000 PHA PEA $000A JSL L0313BE PEA $0000 TDC CLC ADC #$0001 PHA PEA $0000 TDC CLC ADC #$0001 PHA TDC CLC ADC #$0021 PEA $0000 PHA PEA $000A JSL L0313BE PEA $0000 TDC CLC ADC #$000B PHA PEA $0000 _SANEFP816 PEA $0000 TDC CLC ADC #$000B PHA PEA $000A JSL L0313BE L100D5D TDC CLC ADC #$0015 PEA $0000 PHA JSL L0E0C71 L100D6A TSC CLC ADC #$003C TCS PLD RTL L100D72 ENT PHD TSC CLC ADC #$FFFC TCS TCD PHY JSL L0E0678 PHY JSL L0E0678 PLA ORA $01,S PLX PHA JSL L0E0E4B PLY PLY PLD RTL L100D91 ENT PHD TSC CLC ADC #$FFFC TCS TCD PEA $0000 JSL L0B7E9D PLY PLY PLD RTL L100DA4 ENT PHD TSC CLC ADC #$FFFC TCS TCD PEA $0004 JSL L0B7E9D PLY PLY PLD RTL