*---------------------------------------------------------* * Disassembled with The Flaming Bird Disassembler * * (c) Phoenix corp. 1992,93 - All rights reserved * *---------------------------------------------------------* GSOS EQU $E100A8 REL PHA SEP #$20 LDA #^L020004 PHA PLB REP #$20 PLA STA L020004 STX L020014 STY L020012 PHD TSC SEC SBC #$00FB TCD ADC #$00EE TCS PHA _MMStartUp BCS L01002B LDA #$0000 L01002B STAL L020002 PLA PHX PHA PEA $0000 PEA $0100 LDA L020004 PHA PEA $C011 PEA $0000 PEA $0000 _NewHandle BCS L010051 LDA #$0000 L010051 STAL L020002 PLA PLX STX L020018 STA L020016 STX $F6 ORA $F6 BNE L01007C PEA ^L030000 PEA L030000 _WriteCString BCS L010075 LDA #$0000 L010075 STAL L020002 BRL L01014A L01007C LDX L020018 LDA L020016 STA $F6 STX $F8 LDY #$0002 LDA [$F6],Y TAX LDA [$F6] STA $F4 PEI $F4 _SANEStartUp LDX L020014 LDA L020012 PHX PHA JSL L0123B2 PLY PLY PEA $0000 JSL L0141A6 PLY LDA #L0E0000 LDX #^L0E0000 STX $F2 STA $F0 PEA ^L030020 PEA L030020 JSL L013F01 PLY PLY TAY BNE L0100E1 LDX L02000A LDA L020008 PHX PHA LDA L020006 PHA JSL L01047C PLY PLY PLY PHA JSL L01436F PLY L0100E1 LDA L020004 ORA #$0F00 PHA _DisposeAll BCS L0100F4 LDA #$0000 L0100F4 STAL L020002 SEC LDA L02000E SBC #$0000 BNE L010109 LDA L020010 SBC #$0000 BRA L010111 L010109 LDA L020010 SBC #$0000 REP #$02 L010111 BEQ L010121 LDX L020010 LDA L02000E PHX PHA JSL L013A1F PLY PLY L010121 LDX L020010 LDA L02000E PHA TXA STAL L03002A PLA STAL L030028 LDA L020000 STAL L03002C LDA L02000C PHA PEA ^L030028 PEA L030028 JSL L0133BB PLY PLY PLY L01014A TAY TDC CLC ADC #$00FB TCS TYA PLD RTL L010154 PHD TSC SEC SBC #$00FB TCD ADC #$00D2 TCS JSL initCommPort ; init comm port PEA $0001 JSL sendLDKeyLock ; lock front panel and RCU PLY PEA $0000 ; AuDio control OFF JSL sendLDAudioControl PLY PEA $0001 ; video control ON JSL sendLDVideoControl PLY PEA $0000 ; char display OFF JSL sendLDCharDisplay PLY JSL startLD ; SA - START STA $F4 CMP #$0000 BNE L010191 BRL L0101E2 L010191 PEI $F4 PEA ^L031C39 PEA L031C39 PEA $0000 TDC CLC ADC #$00D4 PHA JSL L01508C PLY PLY PLY PLY PLY LDAL L031DDC TAX LDAL L031DDA PHX PHA PEA ^L031C52 PEA L031C52 PEA $0000 TDC CLC ADC #$00D4 PHA JSL L0128FE TAY TSC CLC ADC #$000C TCS TYA STA $F2 LDA $F2 BEQ L0101DB STZ $F4 BRA L0101E0 L0101DB LDA #$0001 STA $F4 L0101E0 BRA L0101E7 L0101E2 LDA #$0002 STA $F4 L0101E7 LDA $F4 TAY TSC CLC ADC #$0028 TCS TYA PLD RTL L0101F3 PHD TSC SEC SBC #$00FB TCD ADC #$00F4 TCS PEA $0000 ; video off JSL sendLDVideoControl PLY JSL sendLDReject ; RJ - Reject Mode JSL sendLDOpenDoor ; OP - DOOR OPEN PEA $0000 JSL sendLDKeyLock PLY JSL releaseCommPort TSC CLC ADC #$0006 TCS PLD RTL L010222 PHD TSC SEC SBC #$00FB TCD ADC #$00DA TCS PEA $0000 PEA $0000 PEA $0000 PEA $0000 PEA $0000 TDC CLC ADC #$00E6 PHA PEA $0000 PEA $0000 PEA ^L031C65 PEA L031C65 JSL L010B2B TAY TSC CLC ADC #$0014 TCS TYA STX $F0 STA $EE STX $F6 ORA $F6 BNE L010279 PEA ^L031C70 PEA L031C70 JSL L050256 PLY PLY LDX #$0000 LDA #$0000 BRL L010472 L010279 PEA $0000 PEA $0000 PEA $0000 PEA $0000 PEA $0000 TDC CLC ADC #$00E2 PHA PEA $0000 PEA $0000 PEA ^L031C8F PEA L031C8F JSL L010B2B TAY TSC CLC ADC #$0014 TCS TYA STX $EC STA $EA STX $F6 ORA $F6 BNE L0102C5 PEA ^L031C9A PEA L031C9A JSL L050256 PLY PLY LDX #$0000 LDA #$0000 BRL L010472 L0102C5 PHX PHA PEA ^L031BEB PEA L031BEB _NewWindow BCS L0102D9 LDA #$0000 L0102D9 STAL L020002 PLA PLX STX $F4 STA $F2 PEI $F4 PEI $F2 _SelectWindow BCS L0102F3 LDA #$0000 L0102F3 STAL L020002 PEI $F4 PEI $F2 _ShowWindow BCS L010307 LDA #$0000 L010307 STAL L020002 LDY #$0002 LDA [$EE],Y TAX LDA [$EE] CLC ADC #$0011 PHA TXA ADC #$0000 TAX PLA CLC ADC #$000E PHA TXA ADC #$0000 TAX PLA STX $E0 STA $DE LDX $E8 LDA $E6 SEC SBC #$001F PHA TXA SBC #$0000 TAX PLA STX $E8 STA $E6 PEA $74E0 LDX $E8 LDA $E6 PHA LDX L0200F4 LDA L0200F2 PHX PHA PEI $E0 PEI $DE JSL L013C06 TAY TSC CLC ADC #$000C TCS TYA TAY BNE L010378 PEA ^L031CBD PEA L031CBD JSL L050256 PLY PLY LDX #$0000 LDA #$0000 BRL L010472 L010378 PEA $0000 LDY #$0002 LDA [$EA],Y TAX LDA [$EA] PHX PHA _SetColorTable BCS L010391 LDA #$0000 L010391 STAL L020002 PEA $0000 PEA $000B PEA $0002 JSL L012C5A PLY PLY PLY PEA $BBBB _ClearScreen BCS L0103B4 LDA #$0000 L0103B4 STAL L020002 LDX L0200F4 LDA L0200F2 PHX PHA LDX L0200F4 LDA L0200F2 CLC ADC #$0820 PHA TXA ADC #$0000 TAX PLA PHX PHA PEA $0000 PEA $74E0 _BlockMove BCS L0103E5 LDA #$0000 L0103E5 STAL L020002 LDX L0200F4 LDA L0200F2 CLC ADC #$0820 PHA TXA ADC #$0000 TAX PLA PHX PHA PEA $00E1 PEA $2820 PEA $0000 PEA $74E0 _BlockMove BCS L010414 LDA #$0000 L010414 STAL L020002 PEI $F0 PEI $EE _DisposeHandle BCS L010428 LDA #$0000 L010428 STAL L020002 LDA L020002 STA $DC TAY BEQ L010443 PEI $DC PEA ^L031CDB PEA L031CDB JSL L050256 PLY PLY PLY L010443 PEI $EC PEI $EA _DisposeHandle BCS L010453 LDA #$0000 L010453 STAL L020002 LDA L020002 STA $DC TAY BEQ L01046E PEI $DC PEA ^L031D10 PEA L031D10 JSL L050256 PLY PLY PLY L01046E LDX $F4 LDA $F2 L010472 TAY TSC CLC ADC #$0020 TCS TYA PLD RTL L01047C PHD TSC SEC SBC #$00FB TCD ADC #$00EA TCS STZ $F0 PEA ^L031DCA PEA L031DCA JSL L013F01 PLY PLY CMP #$0017 BNE L01049D BRL L0108B2 L01049D JSL L015BA2 AND #$00FF AND #$000F SEP #$20 STA $F5 REP #$20 JSL L012312 AND #$00FF AND #$000F SEP #$20 STA $F4 REP #$20 JSL L01232F PHX PHA PEA $0000 PEA $7D00 LDA L02004A PHA PEA $0008 PEA $0000 PEA $0000 _NewHandle BCS L0104E2 LDA #$0000 L0104E2 STAL L020002 PLA PLX STX L0200F0 STA L0200EE LDA L020002 STA $EE TAY BEQ L010505 PEI $EE PEA ^L031D45 PEA L031D45 JSL L050256 PLY PLY PLY L010505 LDX L0200F0 LDA L0200EE PHX PHA _HLock BCS L010519 LDA #$0000 L010519 STAL L020002 LDA L020002 STA $EE TAY BEQ L010534 PEI $EE PEA ^L031D77 PEA L031D77 JSL L050256 PLY PLY PLY L010534 LDX L0200F0 LDA L0200EE STA $F6 STX $F8 LDY #$0002 LDA [$F6],Y TAX LDA [$F6] STX L0200F4 STA L0200F2 LDA #$0000 AND #$00FF PHA JSL L015CDA PLY LDA #$0000 AND #$00FF PHA JSL L012388 PLY _HideCursor BCS L010570 LDA #$0000 L010570 STAL L020002 JSL L040000 PEA $0000 PEA $0000 JSL L012C5A PLY PLY JSL L010222 PHA TXA STAL L031DDC PLA STAL L031DDA JSL L012807 PEA $0032 PEA $0001 _VDInControl BCS L0105A9 LDA #$0000 L0105A9 STAL L020002 PEA $0001 _VDInSetStd BCS L0105BC LDA #$0000 L0105BC STAL L020002 PEA $0064 PEA $0001 _VDKeyControl BCS L0105D2 LDA #$0000 L0105D2 STAL L020002 PEA $0010 PEA $0001 _VDKeyControl BCS L0105E8 LDA #$0000 L0105E8 STAL L020002 PHA PEA $0008 _VDGetFeatures BCS L0105FC LDA #$0000 L0105FC STAL L020002 PLA STA $EC LDA #$0010 SEC SBC $EC PHA LDA #$000D CLC JSL L013B07 LDA #$0010 SEC SBC $EC PHA LDA #$0002 CLC JSL L013B07 LDA #$0010 SEC SBC $EC PHA LDA #$000D CLC JSL L013B07 _VDKeySetKCol BCS L01063C LDA #$0000 L01063C STAL L020002 PEA $0000 _VDKeySetKDiss BCS L01064F LDA #$0000 L01064F STAL L020002 LDA #$0001 STAL L031DD2 PEA $0000 _VDKeySetNKDiss BCS L010669 LDA #$0000 L010669 STAL L020002 LDA #$0001 STAL L031DD4 LDA #$0001 STAL L031DE0 LDA #$0000 STAL L031DD6 LDX #$0000 LDA #$0000 PHA TXA STAL L031DEC PLA STAL L031DEA LDA #$0000 STAL L031DEE LDA #$0000 STAL L031DD8 JSL L012E00 L0106A5 LDA $F0 BEQ L0106AC BRL L010705 L0106AC JSL L010154 ; init comm port and laserdisc player STA $F2 LDA $F2 CMP #$0001 BNE L0106F7 LDA $F5 AND #$00FF PHA JSL L015CDA PLY LDA $F4 AND #$00FF PHA JSL L012388 PLY PEA $0000 PEA $0000 _SetMenuBar BCS L0106E1 LDA #$0000 L0106E1 STAL L020002 JSL L012BFB JSL L015931 JSL releaseCommPort JSL L01326A BRA L010703 L0106F7 LDA $F2 CMP #$0002 BNE L010703 LDA #$0001 STA $F0 L010703 BRA L0106A5 L010705 LDAL L031DDC TAX LDAL L031DDA PHX PHA _SetPort BCS L01071C LDA #$0000 L01071C STAL L020002 PEA $0001 JSL L01335E PLY JSL L0702E0 PHA _TLVersion BCS L010739 LDA #$0000 L010739 STAL L020002 PLA STA L020050 LDA L020050 CMP #$0208 BEQ L010753 BCC L010753 LDA #$001A STA L020050 BRA L010759 L010753 LDA #$0011 STA L020050 L010759 JSL L010D24 TAY BEQ L010763 BRL L0107C6 L010763 LDAL L031DDC TAX LDAL L031DDA PHX PHA PEA ^L031DB2 PEA L031DB2 PEA ^L031DA5 PEA L031DA5 JSL L0128FE TAY TSC CLC ADC #$000C TCS TYA JSL L0101F3 LDA $F5 AND #$00FF PHA JSL L015CDA PLY LDA $F4 AND #$00FF PHA JSL L012388 PLY PEA $0000 PEA $0000 _SetMenuBar BCS L0107B2 LDA #$0000 L0107B2 STAL L020002 JSL L012BFB JSL L015931 JSL releaseCommPort JSL L01326A L0107C6 PEA ^L031DC4 PEA L031DC4 JSL L0133D4 PLY PLY _InitCursor BCS L0107DE LDA #$0000 L0107DE STAL L020002 LDA #$0000 AND #$00FF PHA PEA $0001 JSL L012C5A PLY PLY _DrawMenuBar BCS L0107FE LDA #$0000 L0107FE STAL L020002 JSL L090072 _WaitCursor BCS L010812 LDA #$0000 L010812 STAL L020002 LDAL L031DDC TAX LDAL L031DDA PHX PHA _HideWindow BCS L01082D LDA #$0000 L01082D STAL L020002 LDAL L031DDC TAX LDAL L031DDA PHX PHA _CloseWindow BCS L010848 LDA #$0000 L010848 STAL L020002 LDA $F5 AND #$00FF PHA JSL L015CDA PLY LDA $F4 AND #$00FF PHA JSL L012388 PLY PEA $0000 PEA $0000 _SetMenuBar BCS L010874 LDA #$0000 L010874 STAL L020002 PEA $0000 _VDKeySetKDiss BCS L010887 LDA #$0000 L010887 STAL L020002 PEA $0000 _VDKeySetNKDiss BCS L01089A LDA #$0000 L01089A STAL L020002 JSL L0101F3 _InitCursor BCS L0108AE LDA #$0000 L0108AE STAL L020002 L0108B2 JSL L012BFB JSL L015931 JSL L01326A TSC CLC ADC #$0010 TCS PLD RTL L0108C6 PHD TSC SEC SBC #$00FB TCD ADC #$00F4 TCS PEA ^L011459 PEA L011459 _DelHeartBeat BCS L0108E3 LDA #$0000 L0108E3 STAL L020002 TSC CLC ADC #$0006 TCS PLD RTL L0108EF PHD TSC SEC SBC #$00FB TCD ADC #$00D6 TCS LDA L0200CC STA $D8 LDX #$0000 LDA #$0000 STX $DC STA $DA PEA $0016 PEA $0000 TDC CLC ADC #$00D8 PHA JSL L014421 TSC CLC ADC #$0024 TCS PLD RTL L010921 ENT PHD TSC SEC SBC #$00EF TCD ADC #$005C TCS LDA #$0001 STA $5E LDX #$0000 TDC CLC ADC #$0068 STX $62 STA $60 PEA $000A PEA $0000 TDC CLC ADC #$005E PHA JSL L014421 LDA L020002 STA $66 TAY BEQ L01095A LDA $66 BRL L010AA9 L01095A PEI $F7 PEI $F5 PEA $0000 TDC CLC ADC #$00A9 PHA JSL L014524 PLY PLY PLY PLY PEA $0000 TDC CLC ADC #$00A9 PHA JSL L013A1F PLY PLY LDX #$0000 TDC CLC ADC #$00A9 LDY #$0004 PHA TXA STA [$F9],Y PLA LDY #$0002 STA [$F9],Y LDA L020048 BNE L0109BA PEA ^L033DF2 PEA L033DF2 PEI $F7 PEI $F5 JSL L014120 PLY PLY PLY PLY CMP #$0000 BNE L0109BA JSL L0108EF LDA L0200CC STA [$F9] BRA L0109C5 L0109BA PEA $0010 PEI $FB PEI $F9 JSL L014421 L0109C5 LDA L020002 STA $66 CMP #$0045 BEQ L0109D2 BRL L010A5E L0109D2 _InitCursor BCS L0109DE LDA #$0000 L0109DE STAL L020002 PHA PEA $0014 PEA $001E PEA ^L033DFD PEA L033DFD PEA $0000 TDC CLC ADC #$0068 PHA PEA ^L033E0B PEA L033E0B PEA ^L033E0E PEA L033E0E _TLMountVolume BCS L010A10 LDA #$0000 L010A10 STAL L020002 PLA STA $64 _HideCursor BCS L010A23 LDA #$0000 L010A23 STAL L020002 _ShowCursor BCS L010A33 LDA #$0000 L010A33 STAL L020002 LDA $64 CMP #$0001 BNE L010A4B PEA $0010 PEI $FB PEI $F9 JSL L014421 BRA L010A5B L010A4B PEA $0017 PEA ^L031DCA PEA L031DCA JSL L01505A PLY PLY PLY L010A5B BRL L0109C5 L010A5E LDA $66 BEQ L010A67 LDA $66 BRL L010AA9 L010A67 LDA [$F9] STA [$FD] PEA $0019 PEI $FF PEI $FD JSL L014421 LDA L020002 STA $66 TAY BEQ L010A82 LDA $66 BRA L010AA9 L010A82 LDA L020048 BEQ L010AA6 PEA ^L033E15 PEA L033E15 PEI $F7 PEI $F5 JSL L014120 PLY PLY PLY PLY CMP #$0000 BNE L010AA6 LDA [$F9] STA L0200CC STZ L020048 L010AA6 LDA #$0000 L010AA9 TAY TSC CLC ADC #$0092 TCS TYA PLD RTL L010AB3 ENT PHD TSC SEC SBC #$00ED TCD ADC #$00E4 TCS LDA $F7 STA [$F3] LDX $FB LDA $F9 LDY #$0004 PHA TXA STA [$F3],Y PLA LDY #$0002 STA [$F3],Y LDX $FF LDA $FD LDY #$0008 PHA TXA STA [$F3],Y PLA LDY #$0006 STA [$F3],Y PEA $0012 PEI $F5 PEI $F3 JSL L014421 LDA L020002 STA $E6 TAY BEQ L010AFB LDA $E6 BRA L010B21 L010AFB LDY #$000C LDA [$F3],Y TAX LDY #$000A LDA [$F3],Y PHX PHA LDY #$0008 LDA [$F3],Y TAX LDY #$0006 LDA [$F3],Y JSL L013333 BEQ L010B1E LDA #$0001 BRA L010B21 L010B1E LDA #$0000 L010B21 TAY TSC CLC ADC #$0008 TCS TYA PLD RTL L010B2B PHD TSC SEC SBC #$00E7 TCD ADC #$00AE TCS SEC LDA $F9 SBC $FD BNE L010B43 LDA $FB SBC $FF BRA L010B49 L010B43 LDA $FB SBC $FF REP #$02 L010B49 BEQ L010B56 BCC L010B56 LDX #$0000 LDA #$0000 BRL L010D1A L010B56 PEA $0000 TDC CLC ADC #$00D2 PHA PEA $0000 TDC CLC ADC #$00D8 PHA PEI $EF PEI $ED JSL L010921 TAY TSC CLC ADC #$000C TCS TYA STA $C2 LDA $C2 BEQ L010B87 LDX #$0000 LDA #$0000 BRL L010D1A L010B87 LDA $F9 CMP $FD BNE L010BAB LDA $FB CMP $FF BNE L010BAB LDA $F9 CMP #$0000 BNE L010BAB LDA $FB CMP #$0000 BNE L010BAB LDX $D6 LDA $D4 STX $B8 STA $B6 BRA L010BBC L010BAB LDX $FF LDA $FD SEC SBC $F9 PHA TXA SBC $FB TAX PLA STX $B8 STA $B6 L010BBC LDX $F7 LDA $F5 STX $E2 ORA $E2 BEQ L010BD4 LDX $D6 LDA $D4 LDY #$0002 PHA TXA STA [$F5],Y PLA STA [$F5] L010BD4 LDX $F3 LDA $F1 STX $E2 ORA $E2 BEQ L010BE8 LDX $F3 LDA $F1 STX $BC STA $BA BRA L010C53 L010BE8 PHX PHA PEI $B8 PEI $B6 LDA L02004A PHA PEA $0008 PEA $0000 PEA $0000 _NewHandle BCS L010C07 LDA #$0000 L010C07 STAL L020002 PLA PLX STX $C0 STA $BE LDA L020002 STA $C2 TAY BEQ L010C22 LDX #$0000 LDA #$0000 BRL L010D1A L010C22 PEI $C0 PEI $BE _HLock BCS L010C32 LDA #$0000 L010C32 STAL L020002 LDA L020002 STA $C2 TAY BEQ L010C47 LDX #$0000 LDA #$0000 BRL L010D1A L010C47 LDY #$0002 LDA [$BE],Y TAX LDA [$BE] STX $BC STA $BA L010C53 SEC LDA $F9 SBC #$0000 BNE L010C62 LDA $FB SBC #$0000 BRA L010C69 L010C62 LDA $FB SBC #$0000 REP #$02 L010C69 BEQ L010C98 LDA $D8 STA $B0 LDX $FB LDA $F9 STX $B4 STA $B2 PEA $0016 PEA $0000 TDC CLC ADC #$00B0 PHA JSL L014421 LDA L020002 STA $C2 TAY BEQ L010C98 LDX #$0000 LDA #$0000 BRL L010D1A L010C98 LDX $B8 LDA $B6 PHX PHA PEI $BC PEI $BA LDA $D8 PHA PEA $0000 TDC CLC ADC #$00C4 PHA JSL L010AB3 TAY TSC CLC ADC #$000E TCS TYA STA $C2 LDA $C2 BEQ L010CC9 LDX #$0000 LDA #$0000 BRL L010D1A L010CC9 PEA ^L033E20 PEA L033E20 PEI $EF PEI $ED JSL L014120 PLY PLY PLY PLY CMP #$0000 BEQ L010CF4 LDA $D8 STA $C4 PEA $0014 PEA $0000 TDC CLC ADC #$00C4 PHA JSL L014421 L010CF4 LDA L020002 STA $C2 TAY BEQ L010D04 LDX #$0000 LDA #$0000 BRA L010D1A L010D04 LDX $F3 LDA $F1 STX $E2 ORA $E2 BNE L010D16 LDX $C0 LDA $BE BRA L010D1A BRA L010D1A L010D16 LDX $BC LDA $BA L010D1A TAY TSC CLC ADC #$0038 TCS TYA PLD RTL L010D24 PHD TSC SEC SBC #$00FB TCD ADC #$00D4 TCS PEA ^L033E2B PEA L033E2B JSL L050269 PLY PLY LDA #$00D8 STA L0200CE PEA ^L011459 PEA L011459 _SetHeartBeat BCS L010D53 LDA #$0000 L010D53 STAL L020002 STZ $F0 BRL L011368 L010D5C LDA $F0 PHA LDA #$0016 CLC JSL L013003 PLA LDX #$0000 PHX PHA LDA #L033D50 LDX #^L033D50 JSL L012E77 PLA PLX STA $F6 STX $F8 LDA [$F6] BNE L010D84 BRL L011254 L010D84 LDA $F0 PHA LDA #$0016 CLC JSL L013003 PLA LDX #$0000 PHX PHA LDA #L033D50 LDX #^L033D50 JSL L012E77 PLA PLX STA $F6 STX $F8 LDY #$0014 LDA [$F6],Y TAX LDY #$0012 LDA [$F6],Y STX $E8 STA $E6 PEA $0000 PEA $0011 PEA $0000 PEA $0000 LDA $F0 PHA LDA #$0016 CLC JSL L013003 PLA LDX #$0000 PHX PHA LDA #L033D50 LDX #^L033D50 JSL L012E77 PLA PLX STA $F6 STX $F8 LDY #$0010 LDA [$F6],Y TAX LDY #$000E LDA [$F6],Y PHX PHA PEA $0000 PEA $0000 LDA $F0 PHA LDA #$0016 CLC JSL L013003 PLA LDX #$0000 PHX PHA LDA #L033D50 LDX #^L033D50 JSL L012E77 PLA PLX STA $F6 STX $F8 LDY #$0004 LDA [$F6],Y TAX LDY #$0002 LDA [$F6],Y PHX PHA JSL L010B2B TAY TSC CLC ADC #$0014 TCS TYA STX $F4 STA $F2 LDX $F4 LDA $F2 STX $F6 ORA $F6 BNE L010E42 LDA #$0000 BRL L01144F L010E42 LDY #$0002 LDA [$F2],Y TAX LDA [$F2] STA $F6 STX $F8 LDY #$0007 LDA [$F6],Y BEQ L010E5A LDA #$0005 BRA L010E5D L010E5A LDA #$0007 L010E5D PHA LDY #$0002 LDA [$F2],Y TAX LDA [$F2] STA $F6 STX $F8 LDY #$0005 LDA [$F6],Y CLC JSL L013003 PLA LDX #$0000 STX $EC STA $EA PEI $F4 PEI $F2 _HUnlock BCS L010E8C LDA #$0000 L010E8C STAL L020002 LDX $EC LDA $EA CLC ADC #$0011 PHA TXA ADC #$0000 TAX PLA PHX PHA PEI $F4 PEI $F2 _SetHandleSize BCS L010EB1 LDA #$0000 L010EB1 STAL L020002 PEI $F4 PEI $F2 _HLock BCS L010EC5 LDA #$0000 L010EC5 STAL L020002 LDY #$0002 LDA [$F2],Y TAX LDA [$F2] STA $F6 STX $F8 LDY #$000B LDA [$F6],Y TAX LDY #$0009 LDA [$F6],Y CLC ADC $EA PHA TXA ADC $EC TAX PLA PHX PHA LDY #$0002 LDA [$F2],Y TAX LDA [$F2] STA $F6 STX $F8 LDY #$000B LDA [$F6],Y TAX LDY #$0009 LDA [$F6],Y PHX PHA PEA $0000 PEA $0000 LDY #$0002 LDA [$F2],Y TAX LDA [$F2] CLC ADC #$0011 PHA TXA ADC #$0000 TAX PLA PHX PHA LDA $F0 PHA LDA #$0016 CLC JSL L013003 PLA LDX #$0000 PHX PHA LDA #L033D50 LDX #^L033D50 JSL L012E77 PLA PLX STA $F6 STX $F8 LDY #$0004 LDA [$F6],Y TAX LDY #$0002 LDA [$F6],Y PHX PHA JSL L010B2B TAY TSC CLC ADC #$0014 TCS TYA STX $E0 STA $DE LDA $F0 PHA LDA #$0016 CLC JSL L013003 PLA LDX #$0000 PHX PHA LDA #L033D50 LDX #^L033D50 JSL L012E77 PLA PLX STA $F6 STX $F8 LDY #$0010 LDA [$F6],Y TAX LDY #$000E LDA [$F6],Y STA $F6 STX $F8 LDY #$0002 LDA [$F6],Y TAX LDA [$F6] STX $DC STA $DA LDY #$0002 LDA [$F2],Y TAX LDA [$F2] STA $F6 STX $F8 LDY #$000B LDA [$F6],Y TAX LDY #$0009 LDA [$F6],Y CLC ADC $EA PHA TXA ADC $EC TAX PLA STX $D8 STA $D6 LDX $DC LDA $DA SEC SBC $D6 PHA TXA SBC $D8 TAX PLA STX $DC STA $DA LDX #$0000 LDA #$0004 PHX PHA LDX $DC LDA $DA CLC JSL L012F07 PLY PLY PHA LDA #$0001 PLX STX $FA CLC ADC $FA LDY #$0004 STA [$E6],Y PHX PHA LDY #$0004 LDA [$E6],Y ASL ASL LDX #$0000 PHX PHA LDA L02004A PHA PEA $0008 PEA $0000 PEA $0000 _NewHandle BCS L011017 LDA #$0000 L011017 STAL L020002 PLA PLX STX $E4 STA $E2 PEI $E4 PEI $E2 _HLock BCS L011031 LDA #$0000 L011031 STAL L020002 LDY #$0002 LDA [$E2],Y TAX LDA [$E2] LDY #$0008 PHA TXA STA [$E6],Y PLA LDY #$0006 STA [$E6],Y LDY #$0008 LDA [$E6],Y TAX LDY #$0006 LDA [$E6],Y STA $F6 STX $F8 LDX #$0000 LDA #$0011 LDY #$0002 PHA TXA STA [$F6],Y PLA STA [$F6] LDY #$0004 LDA [$E6],Y SEC SBC #$0001 ASL ASL LDX #$0000 PHX PHA LDY #$0002 LDA [$F2],Y TAX LDA [$F2] STA $F6 STX $F8 LDY #$000B LDA [$F6],Y TAX LDY #$0009 LDA [$F6],Y CLC ADC $EA PHA TXA ADC $EC TAX PLA JSL L012E77 LDY #$0002 LDA [$F2],Y TAX LDA [$F2] STA $F6 STX $F8 LDY #$000B LDA [$F6],Y TAX LDY #$0009 LDA [$F6],Y CLC ADC $EA PHA TXA ADC $EC TAX PLA PHX PHA PEA $0000 PEA $0000 LDY #$0008 LDA [$E6],Y TAX LDY #$0006 LDA [$E6],Y CLC ADC #$0004 PHA TXA ADC #$0000 TAX PLA PHX PHA LDA $F0 PHA LDA #$0016 CLC JSL L013003 PLA LDX #$0000 PHX PHA LDA #L033D50 LDX #^L033D50 JSL L012E77 PLA PLX STA $F6 STX $F8 LDY #$0004 LDA [$F6],Y TAX LDY #$0002 LDA [$F6],Y PHX PHA JSL L010B2B TAY TSC CLC ADC #$0014 TCS TYA STX $E0 STA $DE LDA $F0 PHA LDA #$0016 CLC JSL L013003 PLA LDX #$0000 PHX PHA LDA #L033D50 LDX #^L033D50 JSL L012E77 PLA PLX STA $F6 STX $F8 LDY #$0004 LDA [$F6],Y TAX LDY #$0002 LDA [$F6],Y LDY #$0002 PHA TXA STA [$E6],Y PLA STA [$E6] LDA #$FFFF LDY #$000A STA [$E6],Y LDX #$0000 LDA #$0000 LDY #$000E PHA TXA STA [$E6],Y PLA LDY #$000C STA [$E6],Y LDX #$0000 LDA #$0000 LDY #$0012 PHA TXA STA [$E6],Y PLA LDY #$0010 STA [$E6],Y LDX #$0000 LDA #$0000 LDY #$0016 PHA TXA STA [$E6],Y PLA LDY #$0014 STA [$E6],Y LDY #$0002 LDA [$F2],Y TAX LDA [$F2] STA $F6 STX $F8 LDA [$F6] AND #$00FF ORA #$0080 SEP #$20 STA [$F6] REP #$20 LDA $F0 PHA LDA #$0016 CLC JSL L013003 PLA LDX #$0000 PHX PHA LDA #L033D50 LDX #^L033D50 JSL L012E77 PLA PLX STA $F6 STX $F8 LDY #$000C LDA [$F6],Y TAX LDY #$000A LDA [$F6],Y STA $F6 STX $F8 LDX $F4 LDA $F2 LDY #$0002 PHA TXA STA [$F6],Y PLA STA [$F6] LDY #$0002 LDA [$F2],Y TAX LDA [$F2] PHX PHA LDA $F0 PHA LDA #$0016 CLC JSL L013003 PLA LDX #$0000 PHX PHA LDA #L033D50 LDX #^L033D50 JSL L012E77 PLA PLX STA $F6 STX $F8 LDY #$0008 LDA [$F6],Y TAX LDY #$0006 LDA [$F6],Y STA $F6 STX $F8 PLA PLX LDY #$0002 PHA TXA STA [$F6],Y PLA STA [$F6] LDX $E8 LDA $E6 PHX PHA LDY #$0002 LDA [$F2],Y TAX LDA [$F2] STA $F6 STX $F8 PLA PLX LDY #$000F PHA TXA STA [$F6],Y PLA LDY #$000D STA [$F6],Y BRL L011366 L011254 PEA $0000 PEA $0000 PEA $0000 PEA $0000 LDA $F0 PHA LDA #$0016 CLC JSL L013003 PLA LDX #$0000 PHX PHA LDA #L033D50 LDX #^L033D50 JSL L012E77 PLA PLX STA $F6 STX $F8 LDY #$0010 LDA [$F6],Y TAX LDY #$000E LDA [$F6],Y PHX PHA PEA $0000 PEA $0000 LDA $F0 PHA LDA #$0016 CLC JSL L013003 PLA LDX #$0000 PHX PHA LDA #L033D50 LDX #^L033D50 JSL L012E77 PLA PLX STA $F6 STX $F8 LDY #$0004 LDA [$F6],Y TAX LDY #$0002 LDA [$F6],Y PHX PHA JSL L010B2B TAY TSC CLC ADC #$0014 TCS TYA STX $F4 STA $F2 LDX $F4 LDA $F2 STX $F6 ORA $F6 BNE L0112E2 LDA #$0000 BRL L01144F L0112E2 LDA $F0 PHA LDA #$0016 CLC JSL L013003 PLA LDX #$0000 PHX PHA LDA #L033D50 LDX #^L033D50 JSL L012E77 PLA PLX STA $F6 STX $F8 LDY #$000C LDA [$F6],Y TAX LDY #$000A LDA [$F6],Y STA $F6 STX $F8 LDX $F4 LDA $F2 LDY #$0002 PHA TXA STA [$F6],Y PLA STA [$F6] LDY #$0002 LDA [$F2],Y TAX LDA [$F2] PHX PHA LDA $F0 PHA LDA #$0016 CLC JSL L013003 PLA LDX #$0000 PHX PHA LDA #L033D50 LDX #^L033D50 JSL L012E77 PLA PLX STA $F6 STX $F8 LDY #$0008 LDA [$F6],Y TAX LDY #$0006 LDA [$F6],Y STA $F6 STX $F8 PLA PLX LDY #$0002 PHA TXA STA [$F6],Y PLA STA [$F6] L011366 INC $F0 L011368 LDA $F0 CMP #$0007 BCS L011372 BRL L010D5C L011372 LDX #$0000 LDA #$001C PHX PHA LDA #L033DD4 LDX #^L033DD4 STA $F6 STX $F8 LDY #$0010 LDA [$F6],Y TAX LDY #$000E LDA [$F6],Y STA $F6 STX $F8 LDY #$0002 LDA [$F6],Y TAX LDA [$F6] CLC JSL L012F07 PLY PLY STAL L031DDE JSL L015AD2 LDX L02007E LDA L02007C STA $F6 STX $F8 LDY #$000F LDA [$F6],Y TAX LDY #$000D LDA [$F6],Y PHX PHA LDX L02007E LDA L02007C JSL L012E77 PLA PLX CLC ADC #$0002 PHA TXA ADC #$0000 TAX PLA PHX PHA LDX L02007E LDA L02007C STA $F6 STX $F8 LDY #$000F LDA [$F6],Y TAX LDY #$000D LDA [$F6],Y PHX PHA LDX L02007E LDA L02007C JSL L012E77 PLA PLX STA $F6 STX $F8 LDA [$F6] PHA JSL L015862 PLY PLY PLY PEA ^L033E35 PEA L033E35 JSL L0133D4 PLY PLY LDA L020076 SEC SBC #$00D8 BEQ L011427 BVS L011425 EOR #$8000 L011425 BMI L011448 L011427 JSL L0108C6 LDA #$00D8 STAL L033DF0 PEA ^L033DEA PEA L033DEA _PaintRect BCS L011444 LDA #$0000 L011444 STAL L020002 L011448 JSL L0502BC LDA #$0001 L01144F TAY TSC CLC ADC #$0026 TCS TYA PLD RTL L011459 ADRL $00000000 L01145D DW $000A DW $A55A PHD PHP REP #$30 JSL L01146C PLP PLD RTL L01146C PHD TSC SEC SBC #$00FB TCD ADC #$00F0 TCS PHB LDA #^L020002 PHA PLB PLA PEA $0001 PEA $0001 _SetPenSize BCS L011490 LDA #$0000 L011490 STAL L020002 PEA $0001 _SetSolidPenPat BCS L0114A3 LDA #$0000 L0114A3 STAL L020002 LDA L020076 STAL L033DF0 LDA L020076 CLC ADC #$0001 STA L020076 LDAL L033DF0 SEC SBC #$00D8 BVS L0114C5 EOR #$8000 L0114C5 BPL L0114D4 LDA #$00D8 STAL L033DF0 JSL L0108C6 BRA L011512 L0114D4 LDA L020076 SEC SBC L0200CE BEQ L0114E4 BVS L0114E2 EOR #$8000 L0114E2 BMI L0114FC L0114E4 PEA ^L033DEA PEA L033DEA _PaintRect BCS L0114F6 LDA #$0000 L0114F6 STAL L020002 BRA L011502 L0114FC LDA L0200CE STA L020076 L011502 LDA #$0014 SEP #$20 STAL L01145D REP #$20 LDA $04,S PHA PLB PLB L011512 TSC CLC ADC #$000A TCS PLD RTL L01151A ENT PHD TSC SEC SBC #$00FB TCD ADC #$00EA TCS LDA #$0011 STA $EE LDA #$00EE STA $F0 LDA #$0000 STA $F4 STA $F2 STZ $EC BRL L0115F9 L01153B PHX PHA LDAL L031DDC TAX LDAL L031DDA PHX PHA PEA $0000 TDC CLC ADC #$00EE PHA PEA ^L033E5F PEA L033E5F PEA $0001 LDA $EC CMP L0200D0 BNE L011566 LDA #$0001 BRA L011569 L011566 LDA #$0000 L011569 PHA PEA $0000 PEA $0000 PEA $0400 PEA $0000 LDA #$000D SEC SBC $EC LDX #$0000 PHX PHA PEA ^L033E57 PEA L033E57 _NewControl BCS L011593 LDA #$0000 L011593 STAL L020002 LDA $EC ASL ASL LDX #$0000 PHX PHA LDA #L033E92 LDX #^L033E92 JSL L012E77 PLA PLX STA $F6 STX $F8 PLA PLX LDY #$0002 PHA TXA STA [$F6],Y PLA STA [$F6] LDA $EC ASL ASL LDX #$0000 PHX PHA LDA #L033E92 LDX #^L033E92 JSL L012E77 PLA PLX STA $F6 STX $F8 LDY #$0002 LDA [$F6],Y TAX LDA [$F6] PHX PHA _DrawOneCtl BCS L0115EB LDA #$0000 L0115EB STAL L020002 LDA $EE CLC ADC #$000B STA $EE INC $EC L0115F9 LDA $EC CMP #$000D BCS L011603 BRL L01153B L011603 TSC CLC ADC #$0010 TCS PLD RTL L01160B ENT PHD TSC SEC SBC #$00FB TCD ADC #$00F4 TCS LDA #$000D SEC SBC L0200D0 PHA PEA ^L033E60 PEA L033E60 PEA ^L033EC6 PEA L033EC6 JSL L01508C PLY PLY PLY PLY PLY PEA ^L033EC6 PEA L033EC6 JSL L0133D4 PLY PLY TSC CLC ADC #$0006 TCS PLD RTL L011647 ENT PHD TSC SEC SBC #$00F5 TCD ADC #$00EC TCS LDA L0200D0 ASL ASL LDX #$0000 PHX PHA LDA #L033E92 LDX #^L033E92 JSL L012E77 PLA PLX STA $F0 STX $F2 LDY #$0002 LDA [$F0],Y TAX LDA [$F0] STA $F0 STX $F2 LDY #$0002 LDA [$F0],Y TAX LDA [$F0] STA $F0 STX $F2 LDA #$0000 LDY #$0012 STA [$F0],Y LDA L0200D0 ASL ASL LDX #$0000 PHX PHA LDA #L033E92 LDX #^L033E92 JSL L012E77 PLA PLX STA $F0 STX $F2 LDY #$0002 LDA [$F0],Y TAX LDA [$F0] PHX PHA _DrawOneCtl BCS L0116BC LDA #$0000 L0116BC STAL L020002 LDY #$0002 LDA [$FB],Y TAX LDA [$FB] STA $F0 STX $F2 LDA #$0001 LDY #$0012 STA [$F0],Y PEI $FD PEI $FB _DrawOneCtl BCS L0116E4 LDA #$0000 L0116E4 STAL L020002 LDY #$0002 LDA [$FB],Y TAX LDA [$FB] STA $F0 STX $F2 LDY #$0022 LDA [$F0],Y TAX LDY #$0020 LDA [$F0],Y PHA LDA #$000D PLX STX $F4 SEC SBC $F4 STA L0200D0 _WaitCursor BCS L011718 LDA #$0000 L011718 STAL L020002 PEA ^L033E6D PEA L033E6D JSL L0133D4 PLY PLY JSL L01160B PEA ^L033E77 PEA L033E77 JSL L0133D4 PLY PLY _InitCursor BCS L011744 LDA #$0000 L011744 STAL L020002 TSC CLC ADC #$0008 TCS PLD LDA $02,S STA $08,S LDA $01,S STA $07,S TSC CLC ADC #$0006 TCS RTL L01175E ENT PHD TSC SEC SBC #$00FB TCD ADC #$00F4 TCS LDA #$000D SEC SBC L0200D0 PHA PEA ^L033E83 PEA L033E83 PEA ^L033EE6 PEA L033EE6 JSL L01508C PLY PLY PLY PLY PLY PEA ^L033EE6 PEA L033EE6 JSL L0133D4 PLY PLY LDA #$0000 TAY TSC CLC ADC #$0006 TCS TYA PLD RTL L01179F ENT PHD TSC SEC SBC #$00FB TCD ADC #$00F4 TCS LDA #$000D SEC SBC L0200D0 PHA PEA ^L033E8A PEA L033E8A PEA ^L033F06 PEA L033F06 JSL L01508C PLY PLY PLY PLY PLY PEA ^L033F06 PEA L033F06 JSL L0133D4 PLY PLY LDA #$0000 TAY TSC CLC ADC #$0006 TCS TYA PLD RTL L0117E0 ENT PHD TSC SEC SBC #$00FB TCD ADC #$00F4 TCS STZ L0200DC TSC CLC ADC #$0006 TCS PLD RTL L0117F6 PHD TSC SEC SBC #$00F7 TCD ADC #$00EC TCS LDA #L03778B LDX #^L03778B STX $F0 STA $EE L01180B LDY #$0002 LDA [$EE],Y TAX LDA [$EE] STX $F2 ORA $F2 BEQ L011844 LDX $FF LDA $FD PHX PHA LDY #$0008 LDA [$EE],Y TAX LDY #$0006 LDA [$EE],Y JSL L013333 BNE L011836 LDX $F0 LDA $EE BRA L01184A L011836 LDA $EE CLC ADC #$000A STA $EE BCC L011842 INC $F0 L011842 BRA L01180B L011844 LDX #$0000 LDA #$0000 L01184A TAY TSC CLC ADC #$000A TCS TYA PLD RTL L011854 PHD TSC SEC SBC #$00FB TCD ADC #$00F4 TCS LDA L0200DC BRL L0118E4 L011865 PEA ^L037853 PEA L037853 JSL L0133D4 PLY PLY BRL L0118F1 L011874 PEA ^L03785F PEA L03785F JSL L0133D4 PLY PLY BRL L0118F1 L011883 PEA ^L03786B PEA L03786B JSL L0133D4 PLY PLY BRL L0118F1 L011892 PEA ^L037877 PEA L037877 JSL L0133D4 PLY PLY BRL L0118F1 L0118A1 PEA ^L037883 PEA L037883 JSL L0133D4 PLY PLY BRL L0118F1 L0118B0 PEA ^L03788F PEA L03788F JSL L0133D4 PLY PLY BRL L0118F1 L0118BF BRL L0118F1 L0118C2 DA L011865 DA L011865 DA L011865 DA L011865 DA L011865 DA L011865 DA L011865 DA L011874 DA L011883 DA L011883 DA L011892 DA L011892 DA L011892 DA L0118A1 DA L0118A1 DA L0118B0 DA L0118BF L0118E4 CMP #$0010 BCC L0118EC LDA #$0010 L0118EC ASL TAX JMP (L0118C2,X) L0118F1 TSC CLC ADC #$0006 TCS PLD RTL L0118F9 ENT PHD TSC SEC SBC #$00F7 TCD ADC #$00EC TCS PEI $FF PEI $FD JSL L0117F6 PLY PLY STX $F0 STA $EE LDY #$0004 LDA [$EE],Y CMP L0200DC BNE L011921 INC L0200DC BRA L011925 L011921 JSL L011854 L011925 LDA L0200DC CMP #$000F BEQ L011942 BCC L011942 PEA ^L03789B PEA L03789B JSL L0133D4 PLY PLY LDA #$0031 BRA L011945 BRA L011945 L011942 LDA #$0030 L011945 TAY TSC CLC ADC #$000A TCS TYA PLD RTL L01194F ENT PHD TSC SEC SBC #$00FB TCD ADC #$00F4 TCS LDA L0200DC CMP #$000F BEQ L011969 BCC L011969 LDA #$0001 BRA L01196C L011969 LDA #$0000 L01196C TAY TSC CLC ADC #$0006 TCS TYA PLD RTL L011976 ENT PHD TSC SEC SBC #$00FB TCD ADC #$00EC TCS LDA #L03778B LDX #^L03778B STX $F4 STA $F2 _WaitCursor BCS L011997 LDA #$0000 L011997 STAL L020002 L01199B LDY #$0002 LDA [$F2],Y TAX LDA [$F2] STX $F6 ORA $F6 BNE L0119AC BRL L011A21 L0119AC LDY #$0004 LDA [$F2],Y CMP L0200DC BCS L0119F8 LDY #$0008 LDA [$F2],Y TAX LDY #$0006 LDA [$F2],Y STX $F6 ORA $F6 BEQ L0119F8 LDY #$0008 LDA [$F2],Y TAX LDY #$0006 LDA [$F2],Y PHX PHA JSL L012A2D PLY PLY STX $F0 STA $EE STX $F6 ORA $F6 BEQ L0119F8 PEI $F0 PEI $EE _DisposeControl BCS L0119F4 LDA #$0000 L0119F4 STAL L020002 L0119F8 LDY #$0004 LDA [$F2],Y CMP L0200DC BCC L011A12 LDY #$0002 LDA [$F2],Y TAX LDA [$F2] PHX PHA JSL L0133D4 PLY PLY L011A12 LDA $F2 CLC ADC #$000A STA $F2 BCC L011A1E INC $F4 L011A1E BRL L01199B L011A21 _InitCursor BCS L011A2D LDA #$0000 L011A2D STAL L020002 TSC CLC ADC #$000E TCS PLD RTL L011A39 ENT PHD TSC SEC SBC #$00FB TCD ADC #$00F2 TCS STZ $F4 BRL L011AC6 L011A49 LDA $F4 LDX #$0000 PEA $0000 PEA $000E CLC JSL L013048 LDX L0200E2 LDA L0200E0 STA $F6 STX $F8 LDY #$0004 LDA [$F6],Y TAX LDY #$0002 LDA [$F6],Y JSL L012E77 PLA PLX STA $F6 STX $F8 LDY #$000C LDA [$F6],Y CMP #$0001 BNE L011AC4 LDA $F4 LDX #$0000 PEA $0000 PEA $000E CLC JSL L013048 LDX L0200E2 LDA L0200E0 STA $F6 STX $F8 LDY #$0004 LDA [$F6],Y TAX LDY #$0002 LDA [$F6],Y JSL L012E77 PLA PLX STA $F6 STX $F8 LDY #$000A LDA [$F6],Y TAX LDY #$0008 LDA [$F6],Y PHX PHA JSL L0133D4 PLY PLY L011AC4 INC $F4 L011AC6 LDX L0200E2 LDA L0200E0 STA $F6 STX $F8 LDA [$F6] CMP $F4 BEQ L011ADB BCC L011ADB BRL L011A49 L011ADB LDA #L037A96 LDX #^L037A96 PHX PHA LDX L0200E2 LDA L0200E0 JSL L013333 BEQ L011AF2 BRL L011B92 L011AF2 LDX L0200E2 LDA L0200E0 STA $F6 STX $F8 LDY #$0004 LDA [$F6],Y TAX LDY #$0002 LDA [$F6],Y STA $F6 STX $F8 LDY #$0036 LDA [$F6],Y PHA LDX L0200E2 LDA L0200E0 STA $F6 STX $F8 LDY #$0004 LDA [$F6],Y TAX LDY #$0002 LDA [$F6],Y STA $F6 STX $F8 LDY #$0052 LDA [$F6],Y PLX STX $F6 CMP $F6 BEQ L011B42 PEA ^L037C86 PEA L037C86 JSL L0133D4 PLY PLY L011B42 LDX L0200E2 LDA L0200E0 STA $F6 STX $F8 LDY #$0004 LDA [$F6],Y TAX LDY #$0002 LDA [$F6],Y STA $F6 STX $F8 LDY #$0044 LDA [$F6],Y PHA LDX L0200E2 LDA L0200E0 STA $F6 STX $F8 LDY #$0004 LDA [$F6],Y TAX LDY #$0002 LDA [$F6],Y STA $F6 STX $F8 LDY #$0060 LDA [$F6],Y PLX STX $F6 CMP $F6 BEQ L011B92 PEA ^L037C8E PEA L037C8E JSL L0133D4 PLY PLY L011B92 LDA #L037BA1 LDX #^L037BA1 PHX PHA LDX L0200E2 LDA L0200E0 JSL L013333 BNE L011BF6 LDX L0200E2 LDA L0200E0 STA $F6 STX $F8 LDY #$0004 LDA [$F6],Y TAX LDY #$0002 LDA [$F6],Y STA $F6 STX $F8 LDY #$0028 LDA [$F6],Y PHA LDX L0200E2 LDA L0200E0 STA $F6 STX $F8 LDY #$0004 LDA [$F6],Y TAX LDY #$0002 LDA [$F6],Y STA $F6 STX $F8 LDY #$0036 LDA [$F6],Y PLX STX $F6 CMP $F6 BEQ L011BF6 PEA ^L037C96 PEA L037C96 JSL L0133D4 PLY PLY L011BF6 TSC CLC ADC #$0008 TCS PLD RTL L011BFE ENT PHD TSC SEC SBC #$00FB TCD ADC #$00F4 TCS LDX #$0000 LDA #$0000 STX L0200EA STA L0200E8 STX L0200E6 STA L0200E4 TSC CLC ADC #$0006 TCS PLD RTL L011C23 ENT PHD TSC SEC SBC #$00FB TCD ADC #$00F2 TCS STZ $F4 BRA L011C72 L011C32 LDA $F4 LDX #$0000 PEA $0000 PEA $000E CLC JSL L013048 LDX L0200E2 LDA L0200E0 STA $F6 STX $F8 LDY #$0004 LDA [$F6],Y TAX LDY #$0002 LDA [$F6],Y JSL L012E77 PLA PLX STA $F6 STX $F8 LDY #$000C LDA [$F6],Y CMP #$0000 BNE L011C70 LDA #$0000 BRA L011C87 L011C70 INC $F4 L011C72 LDX L0200E2 LDA L0200E0 STA $F6 STX $F8 LDA [$F6] CMP $F4 BEQ L011C84 BCS L011C32 L011C84 LDA #$0001 L011C87 TAY TSC CLC ADC #$0008 TCS TYA PLD RTL L011C91 ENT PHD TSC SEC SBC #$00F7 TCD ADC #$00F0 TCS LDX $FF LDA $FD STX L0200E6 STA L0200E4 TSC CLC ADC #$0006 TCS PLD RTL L011CAE ENT PHD TSC SEC SBC #$00F7 TCD ADC #$00EA TCS LDX $FF LDA $FD STX L0200EA STA L0200E8 SEC LDA L0200E4 SBC L0200E8 BNE L011CD4 LDA L0200E6 SBC L0200EA BRA L011CDC L011CD4 LDA L0200E6 SBC L0200EA REP #$02 L011CDC BEQ L011D00 BCC L011D00 LDX L0200E6 LDA L0200E4 STX $EE STA $EC LDX L0200EA LDA L0200E8 STX L0200E6 STA L0200E4 LDX $EE LDA $EC STX L0200EA STA L0200E8 L011D00 STZ $F0 BRL L011DCE L011D05 LDX L0200E6 LDA L0200E4 PHX PHA LDA $F0 LDX #$0000 PEA $0000 PEA $000E CLC JSL L013048 LDX L0200E2 LDA L0200E0 STA $F2 STX $F4 LDY #$0004 LDA [$F2],Y TAX LDY #$0002 LDA [$F2],Y JSL L012E77 PLA PLX STA $F2 STX $F4 LDY #$0002 LDA [$F2],Y TAX LDA [$F2] JSL L013333 BEQ L011D4D BRL L011DCC L011D4D LDX L0200EA LDA L0200E8 PHX PHA LDA $F0 LDX #$0000 PEA $0000 PEA $000E CLC JSL L013048 LDX L0200E2 LDA L0200E0 STA $F2 STX $F4 LDY #$0004 LDA [$F2],Y TAX LDY #$0002 LDA [$F2],Y JSL L012E77 PLA PLX STA $F2 STX $F4 LDY #$0006 LDA [$F2],Y TAX LDY #$0004 LDA [$F2],Y JSL L013333 BNE L011DCC LDA $F0 LDX #$0000 PEA $0000 PEA $000E CLC JSL L013048 LDX L0200E2 LDA L0200E0 STA $F2 STX $F4 LDY #$0004 LDA [$F2],Y TAX LDY #$0002 LDA [$F2],Y JSL L012E77 PLA PLX STA $F2 STX $F4 LDA #$0001 LDY #$000C STA [$F2],Y L011DCC INC $F0 L011DCE LDX L0200E2 LDA L0200E0 STA $F2 STX $F4 LDA [$F2] CMP $F0 BEQ L011DE3 BCC L011DE3 BRL L011D05 L011DE3 TSC CLC ADC #$000C TCS PLD RTL L011DEB ENT PHD TSC SEC SBC #$00F7 TCD ADC #$00F0 TCS LDX L0200E6 LDA L0200E4 STX $F2 ORA $F2 BNE L011E09 LDA #$0035 BRA L011E0C BRA L011E0C L011E09 LDA #$0036 L011E0C TAY TSC CLC ADC #$0006 TCS TYA PLD RTL L011E16 ENT PHD TSC SEC SBC #$00F7 TCD ADC #$00E4 TCS LDX L0200E2 LDA L0200E0 STA $F2 STX $F4 LDY #$0008 LDA [$F2],Y TAX LDY #$0006 LDA [$F2],Y STX $F0 STA $EE LDX $FF LDA $FD SEC SBC #$0035 PHA TXA SBC #$0000 TAX PLA STA $EC LDA $EC LDX #$0000 PEA $0000 PEA $0006 CLC JSL L013048 LDX $F0 LDA $EE JSL L012E77 PLA PLX STA $F2 STX $F4 LDA [$F2] STA $EA LDA $EC LDX #$0000 PEA $0000 PEA $0006 CLC JSL L013048 LDX $F0 LDA $EE JSL L012E77 PLA PLX STA $F2 STX $F4 LDY #$0002 LDA [$F2],Y STA $E8 LDA $EC LDX #$0000 PEA $0000 PEA $0006 CLC JSL L013048 LDX $F0 LDA $EE JSL L012E77 PLA PLX STA $F2 STX $F4 LDY #$0004 LDA [$F2],Y STA $E6 PEI $E6 PEI $E8 LDA #$0002 PHA LDA $E8 CLC JSL L012E82 PLA TAY BEQ L011EF2 LDA $EA ASL ASL ASL ASL LDX #$0000 PHX PHA LDA #L037CC0 LDX #^L037CC0 JSL L012E77 PLA PLX STA $F2 STX $F4 LDY #$000E LDA [$F2],Y TAX LDY #$000C LDA [$F2],Y BRA L011F18 L011EF2 LDA $EA ASL ASL ASL ASL LDX #$0000 PHX PHA LDA #L037CC0 LDX #^L037CC0 JSL L012E77 PLA PLX STA $F2 STX $F4 LDY #$000A LDA [$F2],Y TAX LDY #$0008 LDA [$F2],Y L011F18 PHX PHA LDA $EA ASL ASL ASL ASL LDX #$0000 PHX PHA LDA #L037CC0 LDX #^L037CC0 JSL L012E77 PLA PLX STA $F2 STX $F4 LDY #$0006 LDA [$F2],Y TAX LDY #$0004 LDA [$F2],Y PHX PHA JSL L012AB8 TAY TSC CLC ADC #$000C TCS TYA TSC CLC ADC #$0012 TCS PLD RTL L011F56 PHD TSC SEC SBC #$00F5 TCD ADC #$00E8 TCS PHX PHA LDA $FF LDX #$0000 PHX PHA LDA L02004A PHA PEA $0008 PEA $0000 PEA $0000 _NewHandle BCS L011F83 LDA #$0000 L011F83 STAL L020002 PLA PLX STX $EE STA $EC LDA L020002 STA $EA TAY BEQ L011F9D LDX #$0000 LDA #$0000 BRA L012001 L011F9D PEI $EE PEI $EC _HLock BCS L011FAD LDA #$0000 L011FAD STAL L020002 LDA L020002 STA $EA TAY BEQ L011FC1 LDX #$0000 LDA #$0000 BRA L012001 L011FC1 PEI $FD PEI $FB LDY #$0002 LDA [$EC],Y TAX LDA [$EC] PHX PHA LDA $FF LDX #$0000 PHX PHA _BlockMove BCS L011FE2 LDA #$0000 L011FE2 STAL L020002 PEI $FF LDY #$0002 LDA [$EC],Y TAX LDA [$EC] PHX PHA JSL L0C0000 PLY PLY PLY LDY #$0002 LDA [$EC],Y TAX LDA [$EC] L012001 TAY TSC CLC ADC #$000C TCS TYA PLD RTL L01200B ENT PHD TSC SEC SBC #$00FB TCD ADC #$00F2 TCS LDA L0200DE BEQ L01201E BRL L0121ED L01201E STZ $F4 BRL L0121DD L012023 LDA $F4 ASL ASL ASL ASL LDX #$0000 PHX PHA LDA #L037CC0 LDX #^L037CC0 JSL L012E77 PLA PLX STA $F6 STX $F8 LDY #$0002 LDA [$F6],Y TAX LDA [$F6] PHX PHA JSL L0133D4 PLY PLY LDA $F4 ASL ASL ASL ASL LDX #$0000 PHX PHA LDA #L037CC0 LDX #^L037CC0 JSL L012E77 PLA PLX STA $F6 STX $F8 LDAL L031DE8 TAX LDAL L031DE6 LDY #$0006 PHA TXA STA [$F6],Y PLA LDY #$0004 STA [$F6],Y LDA $F4 ASL ASL ASL ASL LDX #$0000 PHX PHA LDA #L037CC0 LDX #^L037CC0 JSL L012E77 PLA PLX STA $F6 STX $F8 LDY #$0006 LDA [$F6],Y TAX LDY #$0004 LDA [$F6],Y STA $F6 STX $F8 LDY #$000C LDA [$F6],Y PHA LDA $F4 ASL ASL ASL ASL LDX #$0000 PHX PHA LDA #L037CC0 LDX #^L037CC0 JSL L012E77 PLA PLX STA $F6 STX $F8 LDY #$0006 LDA [$F6],Y TAX LDY #$0004 LDA [$F6],Y STA $F6 STX $F8 LDY #$000A LDA [$F6],Y PHA PEA $0000 PEA $0000 LDA $F4 ASL ASL ASL ASL LDX #$0000 PHX PHA LDA #L037CC0 LDX #^L037CC0 JSL L012E77 PLA PLX STA $F6 STX $F8 LDY #$0006 LDA [$F6],Y TAX LDY #$0004 LDA [$F6],Y CLC ADC #$000E PHA TXA ADC #$0000 TAX PLA PHX PHA JSL L013C06 TAY TSC CLC ADC #$000C TCS TYA PHX PHA LDA $F4 ASL ASL ASL ASL LDX #$0000 PHX PHA LDA #L037CC0 LDX #^L037CC0 JSL L012E77 PLA PLX STA $F6 STX $F8 PLA PLX LDY #$000A PHA TXA STA [$F6],Y PLA LDY #$0008 STA [$F6],Y LDA $F4 ASL ASL ASL ASL LDX #$0000 PHX PHA LDA #L037CC0 LDX #^L037CC0 JSL L012E77 PLA PLX STA $F6 STX $F8 LDY #$0006 LDA [$F6],Y TAX LDY #$0004 LDA [$F6],Y STA $F6 STX $F8 LDY #$000C LDA [$F6],Y PHA LDA $F4 ASL ASL ASL ASL LDX #$0000 PHX PHA LDA #L037CC0 LDX #^L037CC0 JSL L012E77 PLA PLX STA $F6 STX $F8 LDY #$000A LDA [$F6],Y TAX LDY #$0008 LDA [$F6],Y PHX PHA JSL L011F56 PLY PLY PLY PHX PHA LDA $F4 ASL ASL ASL ASL LDX #$0000 PHX PHA LDA #L037CC0 LDX #^L037CC0 JSL L012E77 PLA PLX STA $F6 STX $F8 PLA PLX LDY #$000E PHA TXA STA [$F6],Y PLA LDY #$000C STA [$F6],Y INC $F4 L0121DD LDA $F4 CMP #$0005 BCS L0121E7 BRL L012023 L0121E7 LDA #$0001 STA L0200DE L0121ED TSC CLC ADC #$0008 TCS PLD RTL L0121F5 ENT PHD TSC SEC SBC #$00FB TCD ADC #$00F2 TCS STZ $F4 BRL L01229B L012205 PHX PHA LDA $F4 ASL ASL ASL ASL LDX #$0000 PHX PHA LDA #L037CC0 LDX #^L037CC0 JSL L012E77 PLA PLX STA $F6 STX $F8 LDY #$000A LDA [$F6],Y TAX LDY #$0008 LDA [$F6],Y PHX PHA _FindHandle BCS L01223B LDA #$0000 L01223B STAL L020002 _DisposeHandle BCS L01224B LDA #$0000 L01224B STAL L020002 PHX PHA LDA $F4 ASL ASL ASL ASL LDX #$0000 PHX PHA LDA #L037CC0 LDX #^L037CC0 JSL L012E77 PLA PLX STA $F6 STX $F8 LDY #$000E LDA [$F6],Y TAX LDY #$000C LDA [$F6],Y PHX PHA _FindHandle BCS L012285 LDA #$0000 L012285 STAL L020002 _DisposeHandle BCS L012295 LDA #$0000 L012295 STAL L020002 INC $F4 L01229B LDA $F4 CMP #$0005 BCS L0122A5 BRL L012205 L0122A5 STZ L0200DE TSC CLC ADC #$0008 TCS PLD RTL L0122B0 ENT PHD TSC SEC SBC #$00FB TCD ADC #$00F2 TCS STZ $F4 BRA L0122F8 L0122BF LDA $F4 LDX #$0000 PEA $0000 PEA $000E CLC JSL L013048 LDX L0200E2 LDA L0200E0 STA $F6 STX $F8 LDY #$0004 LDA [$F6],Y TAX LDY #$0002 LDA [$F6],Y JSL L012E77 PLA PLX STA $F6 STX $F8 LDA #$0000 LDY #$000C STA [$F6],Y INC $F4 L0122F8 LDX L0200E2 LDA L0200E0 STA $F6 STX $F8 LDA [$F6] CMP $F4 BEQ L01230A BCS L0122BF L01230A TSC CLC ADC #$0008 TCS PLD RTL L012312 PHD TSC SEC SBC #$00FB TCD ADC #$00F2 TCS LDAL $01C022 STA $F4 LDA $F4 TAY TSC CLC ADC #$0008 TCS TYA PLD RTL L01232F PHD TSC SEC SBC #$00FB TCD ADC #$00F4 TCS _TLStartUp BCS L012346 LDA #$0000 L012346 STAL L020002 JSL L012825 PHA _MMStartUp BCS L01235B LDA #$0000 L01235B STAL L020002 PLA STA L02004A LDA L02004A ORA #$0100 STA L02004A _MTStartUp BCS L012378 LDA #$0000 L012378 STAL L020002 JSL L015130 TSC CLC ADC #$0006 TCS PLD RTL L012388 PHD TSC SEC SBC #$00F9 TCD ADC #$00F0 TCS LDA $FF AND #$00FF AND #$000F STA $F2 LDAL $01C022 AND #$FFF0 ORA $F2 STAL $01C022 TSC CLC ADC #$0008 TCS PLD RTL L0123B2 PHD TSC SEC SBC #$00F7 TCD ADC #$00DF TCS STZ $EF STZ L020006 LDA $FD CMP #$0000 BNE L0123D9 LDA $FF CMP #$0000 BNE L0123D9 LDA #$0001 STA L0200F8 BRL L0127FD L0123D9 LDX $FF LDA $FD CLC ADC #$0008 PHA TXA ADC #$0000 TAX PLA STX $E9 STA $E7 LDA [$E7] SEP #$20 STA $F1 REP #$20 LDA #$0000 SEP #$20 STA [$E7] REP #$20 PEA $0001 PEA ^L037F63 PEA L037F63 PEI $FF PEI $FD JSL L012B09 PLY PLY PLY PLY PLY TAY BNE L012427 LDA #$0001 STA L0200F8 LDA $F1 SEP #$20 STA [$E7] REP #$20 BRL L0127FD L012427 STZ L0200F8 LDA $F1 SEP #$20 STA [$E7] REP #$20 PHX PHA PEA $0000 PEA $0100 LDA L020004 ORA #$0F00 PHA PEA $0000 PEA $0000 PEA $0000 _NewHandle BCS L012456 LDA #$0000 L012456 STAL L020002 PLA PLX STX $ED STA $EB LDA L020002 BEQ L01246D PEA $FFFF JSL L01326A PLY L01246D LDA #$0100 STA $E1 L012472 LDA [$E7] AND #$00FF CMP #$0000 BNE L01247F BRL L0126DD L01247F INC L020006 LDA [$E7] AND #$00FF CMP #$0022 BEQ L01248F BRL L0125B6 L01248F INC $E7 BNE L012495 INC $E9 L012495 LDA [$E7] AND #$00FF CMP #$0000 BNE L0124A2 BRL L0125B3 L0124A2 LDA [$E7] AND #$00FF CMP #$0022 BEQ L0124AF BRL L01253B L0124AF INC $E7 BNE L0124B5 INC $E9 L0124B5 LDA [$E7] AND #$00FF CMP #$0022 BNE L012536 LDA $EF CMP $E1 BNE L0124FD LDA $E1 CLC ADC #$0100 LDX #$0000 TAY BPL L0124D2 DEX L0124D2 PHX PHA PEI $ED PEI $EB _SetHandleSize BCS L0124E4 LDA #$0000 L0124E4 STAL L020002 LDA L020002 BEQ L0124F5 PEA $FFFF JSL L01326A PLY L0124F5 LDA $E1 CLC ADC #$0100 STA $E1 L0124FD LDX $E9 LDA $E7 INC $E7 BNE L012507 INC $E9 L012507 STA $F2 STX $F4 LDA [$F2] PHA LDA $EF INC $EF LDX #$0000 TAY BPL L012519 DEX L012519 PHX PHA LDY #$0002 LDA [$EB],Y TAX LDA [$EB] JSL L012E77 PLA PLX STA $F2 STX $F4 PLA SEP #$20 STA [$F2] REP #$20 BRA L012539 L012536 BRL L0125B3 L012539 BRA L0125B0 L01253B LDA $EF CMP $E1 BNE L012579 LDA $E1 CLC ADC #$0100 LDX #$0000 TAY BPL L01254E DEX L01254E PHX PHA PEI $ED PEI $EB _SetHandleSize BCS L012560 LDA #$0000 L012560 STAL L020002 LDA L020002 BEQ L012571 PEA $FFFF JSL L01326A PLY L012571 LDA $E1 CLC ADC #$0100 STA $E1 L012579 LDX $E9 LDA $E7 INC $E7 BNE L012583 INC $E9 L012583 STA $F2 STX $F4 LDA [$F2] PHA LDA $EF INC $EF LDX #$0000 TAY BPL L012595 DEX L012595 PHX PHA LDY #$0002 LDA [$EB],Y TAX LDA [$EB] JSL L012E77 PLA PLX STA $F2 STX $F4 PLA SEP #$20 STA [$F2] REP #$20 L0125B0 BRL L012495 L0125B3 BRL L012658 L0125B6 LDA [$E7] SEP #$20 STA $F1 REP #$20 AND #$00FF CMP #$0020 BNE L0125C9 BRL L012658 L0125C9 LDA $F1 AND #$00FF CMP #$0000 BNE L0125D6 BRL L012658 L0125D6 LDA $F1 AND #$00FF CMP #$0009 BEQ L012658 LDA $EF CMP $E1 BNE L01261E LDA $E1 CLC ADC #$0100 LDX #$0000 TAY BPL L0125F3 DEX L0125F3 PHX PHA PEI $ED PEI $EB _SetHandleSize BCS L012605 LDA #$0000 L012605 STAL L020002 LDA L020002 BEQ L012616 PEA $FFFF JSL L01326A PLY L012616 LDA $E1 CLC ADC #$0100 STA $E1 L01261E LDX $E9 LDA $E7 INC $E7 BNE L012628 INC $E9 L012628 STA $F2 STX $F4 LDA [$F2] PHA LDA $EF INC $EF LDX #$0000 TAY BPL L01263A DEX L01263A PHX PHA LDY #$0002 LDA [$EB],Y TAX LDA [$EB] JSL L012E77 PLA PLX STA $F2 STX $F4 PLA SEP #$20 STA [$F2] REP #$20 BRL L0125B6 L012658 LDA $EF CMP $E1 BNE L012696 LDA $E1 CLC ADC #$0100 LDX #$0000 TAY BPL L01266B DEX L01266B PHX PHA PEI $ED PEI $EB _SetHandleSize BCS L01267D LDA #$0000 L01267D STAL L020002 LDA L020002 BEQ L01268E PEA $FFFF JSL L01326A PLY L01268E LDA $E1 CLC ADC #$0100 STA $E1 L012696 LDA $EF INC $EF LDX #$0000 TAY BPL L0126A1 DEX L0126A1 PHX PHA LDY #$0002 LDA [$EB],Y TAX LDA [$EB] JSL L012E77 PLA PLX STA $F2 STX $F4 LDA #$0000 SEP #$20 STA [$F2] REP #$20 L0126BE LDA [$E7] AND #$00FF CMP #$0020 BEQ L0126D2 LDA [$E7] AND #$00FF CMP #$0009 BNE L0126DA L0126D2 INC $E7 BNE L0126D8 INC $E9 L0126D8 BRA L0126BE L0126DA BRL L012472 L0126DD LDA $EF LDX #$0000 TAY BPL L0126E6 DEX L0126E6 PHX PHA PEI $ED PEI $EB _SetHandleSize BCS L0126F8 LDA #$0000 L0126F8 STAL L020002 PEI $ED PEI $EB _HLock BCS L01270C LDA #$0000 L01270C STAL L020002 LDA L020006 CLC ADC #$0001 LDX #$0000 TAY BPL L01271E DEX L01271E STX $F6 ASL ROL $F6 ASL ROL $F6 LDX $F6 PHX PHA JSL L014878 PLY PLY STX L02000A STA L020008 LDY #$0002 LDA [$EB],Y TAX LDA [$EB] PHX PHA LDX L02000A LDA L020008 STA $F2 STX $F4 PLA PLX LDY #$0002 PHA TXA STA [$F2],Y PLA STA [$F2] LDA #$0001 STA $EF LDY #$0002 LDA [$EB],Y TAX LDA [$EB] STX $E5 STA $E3 BRA L0127BA L012769 LDA [$E3] AND #$00FF BNE L0127B4 LDX $E5 LDA $E3 CLC ADC #$0001 PHA TXA ADC #$0000 TAX PLA PHX PHA LDA $EF INC $EF LDX #$0000 TAY BPL L01278C DEX L01278C STX $F6 ASL ROL $F6 ASL ROL $F6 LDX $F6 PHX PHA LDX L02000A LDA L020008 JSL L012E77 PLA PLX STA $F2 STX $F4 PLA PLX LDY #$0002 PHA TXA STA [$F2],Y PLA STA [$F2] L0127B4 INC $E3 BNE L0127BA INC $E5 L0127BA LDA $EF SEC SBC L020006 BVS L0127C5 EOR #$8000 L0127C5 BPL L012769 LDA L020006 LDX #$0000 TAY BPL L0127D1 DEX L0127D1 STX $F6 ASL ROL $F6 ASL ROL $F6 LDX $F6 PHX PHA LDX L02000A LDA L020008 JSL L012E77 PLA PLX STA $F2 STX $F4 LDX #$0000 LDA #$0000 LDY #$0002 PHA TXA STA [$F2],Y PLA STA [$F2] L0127FD TAY TDC CLC ADC #$00F7 TCS TYA PLD RTL L012807 PHD TSC SEC SBC #$00FB TCD ADC #$00F4 TCS LDAL $01C02D AND #$FF80 STAL $01C02D TSC CLC ADC #$0006 TCS PLD RTL L012825 PHD TSC SEC SBC #$00FB TCD ADC #$00EE TCS PEA $0028 PEA $0000 TDC CLC ADC #$00F0 PHA JSL L014421 PEA ^L031BB1 PEA L031BB1 _LoadTools BCS L012852 LDA #$0000 L012852 STAL L020002 L012856 LDA L020002 STA L0200F6 CMP #$0045 BEQ L012864 BRL L0128D5 L012864 PHA PEA $0014 PEA $001E PEA ^L03812F PEA L03812F PEI $F2 PEI $F0 PEA ^L03813D PEA L03813D PEA ^L038140 PEA L038140 _TLMountVolume BCS L01288D LDA #$0000 L01288D STAL L020002 PLA STA $F4 LDA $F4 CMP #$0001 BNE L0128B3 PEA ^L031BB1 PEA L031BB1 _LoadTools BCS L0128AD LDA #$0000 L0128AD STAL L020002 BRA L0128D3 L0128B3 _TLShutDown BCS L0128BF LDA #$0000 L0128BF STAL L020002 PEA $0017 PEA ^L031DCA PEA L031DCA JSL L01505A PLY PLY PLY L0128D3 BRA L012856 L0128D5 TSC CLC ADC #$000C TCS PLD RTL sendLDOpenDoor PHD TSC SEC SBC #$00FB TCD ADC #$00F4 TCS PEA ^L03809D ; OP - DOOR OPEN PEA L03809D JSL sendLDCommand PLY PLY TAY TSC CLC ADC #$0006 TCS TYA PLD RTL L0128FE PHD TSC SEC SBC #$00EF TCD ADC #$0092 TCS STZ $E4 PEI $F7 PEI $F5 PEA $0000 TDC CLC ADC #$00BC PHA JSL L014524 PLY PLY PLY PLY PEI $FB PEI $F9 PEA $0000 TDC CLC ADC #$0094 PHA JSL L014524 PLY PLY PLY PLY PEA $0000 TDC CLC ADC #$00BC PHA JSL L013A1F PLY PLY PEA $0000 TDC CLC ADC #$0094 PHA JSL L013A1F PLY PLY LDA #L037DBB LDX #^L037DBB PHA TXA STAL L037D5B PLA STAL L037D59 LDX #$0000 TDC CLC ADC #$00BC PHA TXA STAL L037D73 PLA STAL L037D71 LDX #$0000 TDC CLC ADC #$0094 PHA TXA STAL L037D8B PLA STAL L037D89 _InitCursor BCS L012996 LDA #$0000 L012996 STAL L020002 L01299A LDA $E4 BEQ L0129A1 BRL L012A11 L0129A1 PHA PEA ^L037D95 PEA L037D95 PEA $0000 PEA $0000 _StopAlert BCS L0129BA LDA #$0000 L0129BA STAL L020002 PLA STA $E8 LDA $E8 CMP #$0002 BNE L0129E9 JSL L014C78 PEI $FF PEI $FD _DrawControls BCS L0129DC LDA #$0000 L0129DC STAL L020002 LDA #$0001 STA $E4 STA $E6 BRA L012A0F L0129E9 LDA $E8 CMP #$0001 BNE L012A0F JSL L014C78 PEI $FF PEI $FD _DrawControls BCS L012A04 LDA #$0000 L012A04 STAL L020002 STZ $E6 LDA #$0001 STA $E4 L012A0F BRA L01299A L012A11 _HideCursor BCS L012A1D LDA #$0000 L012A1D STAL L020002 LDA $E6 TAY TSC CLC ADC #$005C TCS TYA PLD RTL L012A2D ENT PHD TSC SEC SBC #$00F7 TCD ADC #$00EC TCS PHX PHA LDAL L031DDC TAX LDAL L031DDA PHX PHA _GetWControls BCS L012A51 LDA #$0000 L012A51 STAL L020002 PLA PLX STX $F0 STA $EE L012A5B LDX $F0 LDA $EE STX $F2 ORA $F2 BEQ L012AA8 LDX $FF LDA $FD PHX PHA LDY #$0002 LDA [$EE],Y TAX LDA [$EE] STA $F2 STX $F4 LDY #$0022 LDA [$F2],Y TAX LDY #$0020 LDA [$F2],Y JSL L013333 BNE L012A8E LDX $F0 LDA $EE BRA L012AAE L012A8E LDY #$0002 LDA [$EE],Y TAX LDA [$EE] STA $F2 STX $F4 LDY #$0002 LDA [$F2],Y TAX LDA [$F2] STX $F0 STA $EE BRA L012A5B L012AA8 LDX #$0000 LDA #$0000 L012AAE TAY TSC CLC ADC #$000A TCS TYA PLD RTL L012AB8 ENT PHD TSC SEC SBC #$00EF TCD ADC #$00E8 TCS LDY #$0004 LDA [$F5],Y PHA LDY #$000C LDA [$F5],Y PHA LDY #$0008 LDA [$F5],Y AND #$00FF AND #$000F PHA LDY #$0008 LDA [$F5],Y AND #$00FF AND #$00F0 PHA PEI $FF PEI $FD PEA $00E1 PEA $2000 PEI $FB PEI $F9 JSL L014D17 TAY TSC CLC ADC #$0014 TCS TYA TSC CLC ADC #$0006 TCS PLD RTL L012B09 PHD TSC SEC SBC #$00F1 TCD ADC #$00EA TCS BRL L012BDA L012B17 LDA [$F7] AND #$00FF PHA LDA [$FB] AND #$00FF PLX STX $EC CMP $EC BNE L012B2F LDA #$0001 BRL L012BB4 L012B2F LDA $FF BEQ L012B38 LDA #$0000 BRA L012BB4 L012B38 LDA [$F7] AND #$00FF SEC SBC #$0061 BVS L012B46 EOR #$8000 L012B46 BPL L012B5A LDA [$F7] AND #$00FF SEC SBC #$007A BEQ L012B61 BVS L012B58 EOR #$8000 L012B58 BPL L012B61 L012B5A LDA [$F7] AND #$00FF BRA L012B6E L012B61 LDA [$F7] AND #$00FF CLC ADC #$0041 SEC SBC #$0061 L012B6E PHA LDA [$FB] AND #$00FF SEC SBC #$0061 BVS L012B7D EOR #$8000 L012B7D BPL L012B91 LDA [$FB] AND #$00FF SEC SBC #$007A BEQ L012B98 BVS L012B8F EOR #$8000 L012B8F BPL L012B98 L012B91 LDA [$FB] AND #$00FF BRA L012BA5 L012B98 LDA [$FB] AND #$00FF CLC ADC #$0041 SEC SBC #$0061 L012BA5 PLX STX $EC CMP $EC BEQ L012BB1 LDA #$0000 BRA L012BB4 L012BB1 LDA #$0001 L012BB4 TAY BNE L012BBC LDA #$0000 BRA L012BF1 L012BBC LDX $F9 LDA $F7 INC $F7 BNE L012BC6 INC $F9 L012BC6 STA $EC STX $EE LDX $FD LDA $FB INC $FB BNE L012BD4 INC $FD L012BD4 STA $EC STX $EE LDA [$EC] L012BDA LDA [$F7] AND #$00FF BEQ L012BE4 BRL L012B17 L012BE4 LDA [$FB] AND #$00FF BEQ L012BEE BRL L012B17 L012BEE LDA #$0001 L012BF1 TAY TDC CLC ADC #$00F1 TCS TYA PLD RTL L012BFB PHD TSC SEC SBC #$00FB TCD ADC #$00F4 TCS PHA PEA $0034 _VDInStatus BCS L012C16 LDA #$0000 L012C16 STAL L020002 PLA CMP #$0000 BNE L012C52 PEA $0032 PEA $0001 _VDInControl BCS L012C32 LDA #$0000 L012C32 STAL L020002 L012C36 PHA PEA $0034 _VDInStatus BCS L012C46 LDA #$0000 L012C46 STAL L020002 PLA CMP #$0001 BEQ L012C52 BRA L012C36 L012C52 TSC CLC ADC #$0006 TCS PLD RTL L012C5A PHD TSC SEC SBC #$00F7 TCD ADC #$00AE TCS LDA $FD BRL L012D80 L012C6A STZ $B0 BRA L012C9D L012C6E LDA $B0 CLC ADC #$0001 PHA LDA $B0 ASL ASL ASL ASL ASL LDX #$0000 PHX PHA LDA #L038343 LDX #^L038343 JSL L012E77 _GetColorTable BCS L012C97 LDA #$0000 L012C97 STAL L020002 INC $B0 L012C9D LDA $B0 CMP #$0006 BCC L012C6E BRL L012D8D L012CA7 PEA $0000 PEA $0000 TDC CLC ADC #$00B2 PHA _GetColorTable BCS L012CBF LDA #$0000 L012CBF STAL L020002 STZ $B0 BRA L012D03 L012CC7 LDA $FF ASL LDX #$0000 PHX PHA LDX #$0000 TDC CLC ADC #$00B2 JSL L012E77 PLA PLX STA $F2 STX $F4 LDA [$F2] PHA LDA $B0 ASL LDX #$0000 PHX PHA LDX #$0000 TDC CLC ADC #$00D2 JSL L012E77 PLA PLX STA $F2 STX $F4 PLA STA [$F2] INC $B0 L012D03 LDA $B0 CMP #$0010 BCC L012CC7 LDA #$0001 STA $B0 BRA L012D2E L012D11 PEI $B0 PEA $0000 TDC CLC ADC #$00D2 PHA _SetColorTable BCS L012D28 LDA #$0000 L012D28 STAL L020002 INC $B0 L012D2E LDA $B0 CMP #$0007 BCC L012D11 BRL L012D8D L012D38 STZ $B0 BRA L012D6B L012D3C LDA $B0 CLC ADC #$0001 PHA LDA $B0 ASL ASL ASL ASL ASL LDX #$0000 PHX PHA LDA #L038343 LDX #^L038343 JSL L012E77 _SetColorTable BCS L012D65 LDA #$0000 L012D65 STAL L020002 INC $B0 L012D6B LDA $B0 CMP #$0006 BCC L012D3C BRL L012D8D L012D75 BRL L012D8D L012D78 DA L012C6A DA L012D38 DA L012CA7 DA L012D75 L012D80 CMP #$0003 BCC L012D88 LDA #$0003 L012D88 ASL TAX JMP (L012D78,X) L012D8D TSC CLC ADC #$0048 TCS PLD RTL L012D95 ENT PHD TSC SEC SBC #$00FB TCD ADC #$00EA TCS LDX L020086 LDA L020084 STX $F4 STA $F2 LDX $F4 LDA $F2 CLC ADC #$0011 PHA TXA ADC #$0000 TAX PLA STX $EE STA $EC STZ $F0 BRA L012DED L012DC1 LDY #$0007 LDA [$EC],Y AND #$00FF AND #$FFFE SEP #$20 LDY #$0007 STA [$EC],Y REP #$20 INC $F0 LDA $F0 LDX $EE LDA $EC CLC ADC #$0008 STA $EC PHA LDA $EE BCC L012DE9 INC L012DE9 TAX STA $EE PLA L012DED LDY #$0005 LDA [$F2],Y CMP $F0 BEQ L012DF8 BCS L012DC1 L012DF8 TSC CLC ADC #$0010 TCS PLD RTL L012E00 PHD TSC SEC SBC #$00FB TCD ADC #$00F4 TCS PHA PEA $0034 _VDInStatus BCS L012E1B LDA #$0000 L012E1B STAL L020002 PLA CMP #$0001 BNE L012E3B PEA $0032 PEA $0000 _VDInControl BCS L012E37 LDA #$0000 L012E37 STAL L020002 L012E3B TSC CLC ADC #$0006 TCS PLD RTL L012E43 ENT PHD TSC SEC SBC #$00F7 TCD ADC #$00F0 TCS STZ L020044 STZ L020046 LDAL L031DDC TAX LDAL L031DDA PHX PHA _KillControls BCS L012E6B LDA #$0000 L012E6B STAL L020002 TSC CLC ADC #$0006 TCS PLD RTL L012E77 ENT CLC ADC $04,S STA $04,S TXA ADC $06,S STA $06,S RTL L012E82 ENT PHD PHA PEA $0001 TSC TCD LDA $0A BEQ L012EF7 LDX #$0000 BCC L012EAD BIT #$8000 BEQ L012E9E EOR #$FFFF INC STA $0A INX L012E9E LDA $03 BIT #$8000 BEQ L012EAD EOR #$FFFF INC STA $03 INX INX L012EAD LDY #$0000 BRA L012EB4 L012EB2 ASL $01 L012EB4 ASL $0A BCC L012EB2 ROR $0A L012EBA LDA $03 CMP $0A BCC L012ECB LDA $03 SEC SBC $0A STA $03 TYA ORA $01 TAY L012ECB LSR $0A LSR $01 BCC L012EBA LDA $03 STA $0A TYA CPX #$0000 BEQ L012EF3 CPX #$0003 BEQ L012EE9 EOR #$FFFF INC CPX #$0001 BEQ L012EF3 L012EE9 TAY LDA $0A EOR #$FFFF INC STA $0A TYA L012EF3 PLY PLY PLD RTL L012EF7 PEA $0004 PEA $0000 PEA $0000 _SysFailMgr L012F07 ENT PHD PHX PHA PEA $0000 PEA $0001 PEA $0000 PEA $0000 TSC TCD LDA $12 ORA $14 BNE L012F24 LDX #$0000 BRL L012FE8 L012F24 LDX #$0000 BCC L012F5C LDA $14 BIT #$8000 BEQ L012F42 EOR #$FFFF STA $14 LDA $12 EOR #$FFFF INC BNE L012F3F INC $14 L012F3F STA $12 INX L012F42 LDA $0B BIT #$8000 BEQ L012F5C EOR #$FFFF STA $0B LDA $09 EOR #$FFFF INC BNE L012F58 INC $0B L012F58 STA $09 INX INX L012F5C BRA L012F62 L012F5E ASL $05 ROL $07 L012F62 ASL $12 ROL $14 BCC L012F5E ROR $14 ROR $12 L012F6C LDA $0B CMP $14 BEQ L012F76 BCC L012F95 BRA L012F7C L012F76 LDA $09 CMP $12 BCC L012F95 L012F7C LDA $09 SEC SBC $12 STA $09 LDA $0B SBC $14 STA $0B LDA $01 ORA $05 STA $01 LDA $03 ORA $07 STA $03 L012F95 LSR $14 ROR $12 LSR $07 ROR $05 BCC L012F6C CPX #$0000 BEQ L012FD4 CPX #$0003 BEQ L012FC1 LDA $01 EOR #$FFFF STA $01 LDA $03 EOR #$FFFF INC $01 BNE L012FBA INC L012FBA STA $03 CPX #$0001 BEQ L012FD4 L012FC1 LDA $09 EOR #$FFFF STA $09 LDA $0B EOR #$FFFF INC $09 BNE L012FD2 INC L012FD2 STA $0B L012FD4 LDA $09 STA $12 LDA $0B STA $14 LDA $01 LDX $03 PLY PLY PLY PLY PLY PLY PLD RTL L012FE8 PEA $0004 PEA $0000 PEA $0000 _SysFailMgr L012FF8 ENT SEC SBC $04,S STA $04,S TXA SBC $06,S STA $06,S RTL L013003 ENT PHD PHA TSC TCD LDX #$0000 BCC L013028 LDA $08 BIT #$8000 BEQ L01301A EOR #$FFFF INC STA $08 INX L01301A LDA $01 BIT #$8000 BEQ L013028 EOR #$FFFF INC STA $01 DEX L013028 LDA #$0000 BRA L013036 L01302D LSR $01 BCC L013034 CLC ADC $08 L013034 ASL $08 L013036 LDY $01 BNE L01302D CPX #$0000 BEQ L013043 EOR #$FFFF INC L013043 STA $08 PLY PLD RTL L013048 ENT PHD PHX PHA PEA $0000 PEA $0000 TSC TCD LDX #$0000 BCC L01308A LDA $10 BIT #$8000 BEQ L013071 EOR #$FFFF STA $10 LDA $0E EOR #$FFFF INC BNE L01306E INC $10 L01306E STA $0E INX L013071 LDA $07 BIT #$8000 BEQ L01308A EOR #$FFFF STA $07 LDA $05 EOR #$FFFF INC BNE L013087 INC $07 L013087 STA $05 DEX L01308A BRA L0130A3 L01308C LSR $07 ROR $05 BCC L01309F LDA $01 CLC ADC $0E STA $01 LDA $03 ADC $10 STA $03 L01309F ASL $0E ROL $10 L0130A3 LDA $05 ORA $07 BNE L01308C CPX #$0000 BEQ L0130C1 LDA $01 EOR #$FFFF STA $01 LDA $03 EOR #$FFFF INC $01 BNE L0130BF INC L0130BF STA $03 L0130C1 LDA $01 STA $0E LDA $03 STA $10 PLY PLY PLY PLY PLD RTL sendLDCommand PHD TSC SEC SBC #$00F7 TCD ADC #$00EC TCS JSL checkSerialInputReady STA $EE CMP #$0000 BEQ L0130E9 LDA $EE BRA L013104 L0130E9 PEI $FF PEI $FD JSL sendCRString PLY PLY STA $F0 CMP #$0000 BEQ L013100 LDA $F0 BRA L013104 BRA L013104 L013100 JSL receiveLDAnswer ; check answer L013104 TAY TSC CLC ADC #$000A TCS TYA PLD RTL sendLDAudioControl ENT PHD TSC SEC SBC #$00F9 TCD ADC #$00D2 TCS LDA $FF AND #$0003 PHA PEA ^L0380B9 ; %u AD PEA L0380B9 PEA $0000 TDC CLC ADC #$00D4 PHA JSL L01508C PLY PLY PLY PLY PLY PEA $0000 TDC CLC ADC #$00D4 PHA JSL sendLDCommand PLY PLY TAY TSC CLC ADC #$0026 TCS TYA PLD RTL L013150 ENT PHD TSC SEC SBC #$00F7 TCD ADC #$00EA TCS STZ $EE STZ $F0 STZ $EC L013161 LDA [$FD] AND #$00FF BRL L013176 L013169 BRL L01318C L01316C INC $EC L01316E INC $FD BNE L013174 INC $FF L013174 BRA L01318A L013176 CMP #$0009 BEQ L013169 CMP #$0020 BEQ L013169 CMP #$002B BEQ L01316E CMP #$002D BEQ L01316C L01318A BRA L013194 L01318C INC $FD BNE L013192 INC $FF L013192 BRA L013161 L013194 LDA [$FD] AND #$00FF SEC SBC #$0030 BVS L0131A2 EOR #$8000 L0131A2 BPL L0131F6 LDA [$FD] AND #$00FF SEC SBC #$0039 BEQ L0131B6 BVS L0131B4 EOR #$8000 L0131B4 BMI L0131F6 L0131B6 LDX $FF LDA $FD INC $FD BNE L0131C0 INC $FF L0131C0 STA $F2 STX $F4 LDA [$F2] AND #$00FF LDX #$0000 PHX PHA LDX $F0 LDA $EE PEA $0000 PEA $000A CLC JSL L013048 PLA PLX JSL L012E77 PLA PLX SEC SBC #$0030 PHA TXA SBC #$0000 TAX PLA STX $F0 STA $EE BRA L013194 L0131F6 LDA $EC BEQ L013204 LDX $F0 LDA $EE JSL L016CB7 BRA L013208 L013204 LDX $F0 LDA $EE L013208 TAY TDC CLC ADC #$00F7 TCS TYA PLD RTL L013212 ENT PHD TSC SEC SBC #$00F7 TCD ADC #$00EC TCS PHX PHA _TickCount BCS L01322B LDA #$0000 L01322B STAL L020002 PLA PLX STX $F0 STA $EE L013235 LDX $FF LDA $FD PHX PHA PHX PHA _TickCount BCS L013249 LDA #$0000 L013249 STAL L020002 PLA PLX SEC SBC $EE PHA TXA SBC $F0 TAX PLA JSL L013333 BEQ L013262 BCC L013262 BRA L013235 L013262 TSC CLC ADC #$000A TCS PLD RTL L01326A PHD TSC SEC SBC #$00F9 TCD ADC #$00F2 TCS LDA $FF AND #$FFFF PHA JSL L01436F PLY TDC CLC ADC #$00F9 TCS PLD RTL sendCRString PHD TSC SEC SBC #$00F7 TCD ADC #$00EE TCS L013293 LDA [$FD] AND #$00FF BEQ L0132C0 LDX $FF LDA $FD INC $FD BNE L0132A4 INC $FF L0132A4 STA $F2 STX $F4 LDA [$F2] AND #$00FF PHA JSL sendSerialCharacter PLY STA $F0 CMP #$0000 BEQ L0132BE LDA $F0 BRA L0132D6 L0132BE BRA L013293 L0132C0 PEA $000D JSL sendSerialCharacter PLY STA $F0 CMP #$0000 BEQ L0132D3 LDA $F0 BRA L0132D6 L0132D3 LDA #$0000 L0132D6 TAY TSC CLC ADC #$0008 TCS TYA PLD RTL L0132E0 ENT PHD TSC SEC SBC #$00EF TCD ADC #$00E8 TCS LDY #$0004 LDA [$F5],Y PHA LDY #$000C LDA [$F5],Y PHA LDY #$0008 LDA [$F5],Y AND #$00FF AND #$000F PHA LDY #$0008 LDA [$F5],Y AND #$00FF AND #$00F0 PHA PEI $FF PEI $FD LDX L0200F4 LDA L0200F2 PHX PHA PEI $FB PEI $F9 JSL L014D17 TAY TSC CLC ADC #$0014 TCS TYA TSC CLC ADC #$0006 TCS PLD RTL L013333 ENT PHX PHA LDA $08,S TAX LDA $0A,S TAY LDA $06,S STA $0A,S LDA $04,S STA $08,S TXA SEC SBC $01,S BNE L01334E TYA SBC $03,S BRA L013353 L01334E TYA SBC $03,S REP #$02 L013353 PHP LDA $00,S STA $08,S PLY PLY PLY PLY PLP RTL L01335E ENT PHD TSC SEC SBC #$00F9 TCD ADC #$00F2 TCS LDA $FF ASL ASL LDX #$0000 PHX PHA LDA #L037DF9 LDX #^L037DF9 JSL L012E77 PLA PLX STA $F4 STX $F6 LDA $F4 LDX $F6 TAY TSC SEC SBC #$0004 TCS PHX PHY PEA $0000 INC PHA PEA $0004 JSL L016E99 PLY PLY PLY PLY PLY PEA $0000 _InstallFont BCS L0133AF LDA #$0000 L0133AF STAL L020002 TSC CLC ADC #$0006 TCS PLD RTL L0133BB LDA $04,S STAL L0133CF LDA $06,S STAL L0133CF+2 LDA $08,S JSL GSOS DW $0029 L0133CF ADRL $00000000 RTL L0133D4 ENT PHD TSC SEC SBC #$00F7 TCD ADC #$00B4 TCS PEI $FF PEI $FD PEA ^L0380F6 PEA L0380F6 JSL L050256 PLY PLY PLY PLY LDAL L031DEC TAX LDAL L031DEA STX $F2 ORA $F2 BEQ L013426 LDAL L031DEC TAX LDAL L031DEA STA $F2 STX $F4 LDA $F2 LDX $F4 JSL L014572 LDX #$0000 LDA #$0000 PHA TXA STAL L031DEC PLA STAL L031DEA L013426 LDA #$0000 STAL L031DFC LDAL L031DD8 BEQ L01343C LDA #$0000 STAL L031DD8 BRA L013444 L01343C PEA $0000 JSL sendLDStill PLY L013444 LDAL L031DD6 BEQ L013475 LDA #$0000 STAL L031DD6 PEA $0006 PEA $0002 PEA $0000 JSL L015D04 PLY PLY PLY PEA $0000 JSL L015CDA PLY PEA $0000 PEA $0000 JSL L0168DF PLY PLY L013475 PEA ^L013D1B PEA L013D1B PEA $001C LDAL L031DDE PHA LDX L02008E LDA L02008C PHX PHA PEI $FF PEI $FD JSL L016912 TAY TSC CLC ADC #$0010 TCS TYA STA $F0 LDX $FF LDA $FD PHA TXA STAL L031DE4 PLA STAL L031DE2 LDA $F0 CMP #$FFFF BNE L0134FE PEI $FF PEI $FD PEA ^L038103 PEA L038103 PEA $0000 TDC CLC ADC #$00CA PHA JSL L01508C TAY TSC CLC ADC #$000C TCS TYA LDAL L031DDC TAX LDAL L031DDA PHX PHA PEA $0000 TDC CLC ADC #$00CA PHA PEA ^L038106 PEA L038106 JSL L016A37 TAY TSC CLC ADC #$000C TCS TYA LDA #$0000 BRL L013616 L0134FE LDA $F0 LDX #$0000 TAY BPL L013507 DEX L013507 PEA $0000 PEA $001C CLC JSL L013048 LDX L02008E LDA L02008C JSL L012E77 PLA PLX STX $EE STA $EC LDY #$0016 LDA [$EC],Y TAX LDY #$0014 LDA [$EC],Y PHX PHA LDX L02008A LDA L020088 JSL L012E77 PLA PLX STX $E6 STA $E4 LDX $E6 LDA $E4 STX $EA STA $E8 STZ $E2 BRL L013605 L01354C LDA [$E8] PHA JSL L0169CC PLY STX $E0 STA $DE STX $F2 ORA $F2 BNE L0135A4 LDA [$E8] PHA PEA ^L038117 PEA L038117 PEA $0000 TDC CLC ADC #$00B6 PHA JSL L01508C PLY PLY PLY PLY PLY LDAL L031DDC TAX LDAL L031DDA PHX PHA PEA $0000 TDC CLC ADC #$00B6 PHA PEA ^L03811A PEA L03811A JSL L016A37 TAY TSC CLC ADC #$000C TCS TYA LDA #$0000 BRA L013616 L0135A4 LDX $E6 LDA $E4 CLC ADC #$0002 PHA TXA ADC #$0000 TAX PLA PHX PHA LDY #$0004 LDA [$DE],Y TAX LDY #$0002 LDA [$DE],Y STA $F2 STX $F4 LDA $F2 LDX $F4 JSL L014572 PLY PLY LDAL L031DFC BEQ L0135D9 LDA #$0001 BRA L013616 L0135D9 LDY #$0002 LDA [$E8],Y PHA LDA #$0006 PLX STX $F6 CLC ADC $F6 LDX #$0000 PHX PHA LDX $E6 LDA $E4 JSL L012E77 PLA PLX STX $E6 STA $E4 LDX $E6 LDA $E4 STX $EA STA $E8 INC $E2 L013605 LDY #$001A LDA [$EC],Y CMP $E2 BEQ L013613 BCC L013613 BRL L01354C L013613 LDA #$0001 L013616 TAY TSC CLC ADC #$0042 TCS TYA PLD RTL L013620 ENT PHD TSC SEC SBC #$00EF TCD ADC #$00D2 TCS LDA $F5 STA $E8 LDA $E8 BEQ L01366A PEI $E8 PEA ^L0380CB ; %uSE PEA L0380CB PEA $0000 TDC CLC ADC #$00D4 PHA JSL L01508C PLY PLY PLY PLY PLY PEA $0000 TDC CLC ADC #$00D4 PHA JSL sendLDCommand PLY PLY STA $E4 CMP #$0000 BEQ L013668 LDA $E4 BRL L01388C L013668 BRA L013670 L01366A JSL L015B49 STA $E8 L013670 LDX $FF LDA $FD STX $EA ORA $EA BEQ L013682 LDA $FD LDX $FF JSL L014572 L013682 LDA $E8 CMP $F7 BNE L01368E LDA #$0000 BRL L01388C L01368E LDA $E8 CMP $F7 BCS L0136AD LDA $F9 CMP #$003C BNE L0136AD LDA $FB BEQ L0136A6 LDA #$0001 STA $E6 BRA L0136AB L0136A6 LDA #$0002 STA $E6 L0136AB BRA L0136BD L0136AD LDA $FB BEQ L0136B8 LDA #$0003 STA $E6 BRA L0136BD L0136B8 LDA #$0004 STA $E6 L0136BD LDA $E6 BRL L01383D L0136C2 STZ L020100 PEI $F7 PEA ^L0380D0 ; %u PL PEA L0380D0 PEA $0000 TDC CLC ADC #$00D4 PHA JSL L01508C PLY PLY PLY PLY PLY BRL L01384B L0136E2 PEI $F7 PEA ^L0380D5 ; %u SM PEA L0380D5 PEA $0000 TDC CLC ADC #$00D4 PHA JSL L01508C PLY PLY PLY PLY PLY PEA $0000 TDC CLC ADC #$00D4 PHA JSL sendLDCommand PLY PLY STA $E4 CMP #$0000 BEQ L013717 LDA $E4 BRL L01388C L013717 PEA ^L0380DA ; PL PEA L0380DA PEA $0000 TDC CLC ADC #$00D4 PHA JSL L01508C PLY PLY PLY PLY BRL L01384B L013731 STZ L020100 PEI $F9 PEA ^L0380DD ; %u SP PEA L0380DD PEA $0000 TDC CLC ADC #$00D4 PHA JSL L01508C PLY PLY PLY PLY PLY PEA $0000 TDC CLC ADC #$00D4 PHA JSL sendLDCommand PLY PLY STA $E4 CMP #$0000 BEQ L013769 LDA $E4 BRL L01388C L013769 LDA $E8 CMP $F7 BEQ L013771 BCS L013776 L013771 LDA #$0046 BRA L013779 L013776 LDA #$0052 L013779 PHA PEI $F7 PEA ^L0380E2 ; %uM%c PEA L0380E2 PEA $0000 TDC CLC ADC #$00D4 PHA JSL L01508C TAY TSC CLC ADC #$000C TCS TYA BRL L01384B L01379A PEI $F9 PEA ^L0380E8 ; %uSP PEA L0380E8 PEA $0000 TDC CLC ADC #$00D4 PHA JSL L01508C PLY PLY PLY PLY PLY PEA $0000 TDC CLC ADC #$00D4 PHA JSL sendLDCommand PLY PLY STA $E4 CMP #$0000 BEQ L0137CF LDA $E4 BRL L01388C L0137CF PEI $F7 PEA ^L0380ED PEA L0380ED PEA $0000 TDC CLC ADC #$00D4 PHA JSL L01508C PLY PLY PLY PLY PLY PEA $0000 TDC CLC ADC #$00D4 PHA JSL sendLDCommand PLY PLY STA $E4 CMP #$0000 BEQ L013804 LDA $E4 BRL L01388C L013804 LDA $E8 CMP $F7 BEQ L01380C BCS L013811 L01380C LDA #$0046 BRA L013814 L013811 LDA #$0052 L013814 PHA PEA ^L0380F2 PEA L0380F2 PEA $0000 TDC CLC ADC #$00D4 PHA JSL L01508C PLY PLY PLY PLY PLY BRL L01384B L013830 BRL L01384B L013833 DA L0136C2 DA L0136E2 DA L013731 DA L01379A DA L013830 MX %00 L01383D DEC CMP #$0004 BCC L013846 LDA #$0004 L013846 ASL TAX JMP (L013833,X) L01384B LDA $FB BEQ L01385F _WaitCursor BCS L01385B LDA #$0000 L01385B STAL L020002 L01385F PEA $0000 TDC CLC ADC #$00D4 PHA JSL sendLDCommand PLY PLY STA $E4 LDA $FB BEQ L013884 _InitCursor BCS L013880 LDA #$0000 L013880 STAL L020002 L013884 LDA #$0001 STA L020100 LDA $E4 L01388C TAY TSC CLC ADC #$001C TCS TYA PLD RTL receiveLDAnswer PHD TSC SEC SBC #$00FB TCD ADC #$00D2 TCS LDA #$0000 SEP #$20 STA $D6 REP #$20 L0138AA PEA ^L038064 ; R PEA L038064 PEA $0000 TDC CLC ADC #$00D6 PHA JSL L014120 ; copy string PLY PLY PLY PLY TAY BEQ L0138E0 PEA $0000 TDC CLC ADC #$00D6 PHA JSL receiveString PLY PLY STA $D4 CMP #$0000 BEQ L0138DE LDA $D4 BRA L0138E3 L0138DE BRA L0138AA L0138E0 LDA #$0000 L0138E3 TAY TSC CLC ADC #$0028 TCS TYA PLD RTL L0138ED ENT PHD TSC SEC SBC #$00F1 TCD ADC #$00E2 TCS STZ $E8 STZ $EA LDA $FF BRL L0139DC L013901 SEC LDA $FB SBC #$0000 BNE L013910 LDA $FD SBC #$0000 BRA L013917 L013910 LDA $FD SBC #$0000 REP #$02 L013917 BEQ L013931 LDX L020070 LDA L02006E PHX PHA _InvertRect BCS L01392D LDA #$0000 L01392D STAL L020002 L013931 BRL L0139FE L013934 LDX #$0000 LDA #$0010 PHX PHA LDX $FD LDA $FB SEC JSL L013B83 PLA PLX AND #$FFFF PHA TXA AND #$0000 TAX PLA STA $E6 LDX $FD LDA $FB STA $E4 LDY #$0002 LDA [$F7],Y TAX LDA [$F7] STA $EC STX $EE LDY #$0008 LDA [$EC],Y CMP $E4 BEQ L013970 BCS L0139BB L013970 LDY #$0002 LDA [$F7],Y TAX LDA [$F7] STA $EC STX $EE LDY #$000A LDA [$EC],Y CMP $E6 BEQ L013987 BCS L0139BB L013987 LDY #$0002 LDA [$F7],Y TAX LDA [$F7] STA $EC STX $EE LDY #$000C LDA [$EC],Y CMP $E4 BCC L0139BB LDY #$0002 LDA [$F7],Y TAX LDA [$F7] STA $EC STX $EE LDY #$000E LDA [$EC],Y CMP $E6 BCC L0139BB LDX #$0000 LDA #$0002 STX $EA STA $E8 L0139BB BRL L0139FE L0139BE LDX #$0000 LDA #$0001 STX $EA STA $E8 BRL L0139FE L0139CB LDX #$0000 LDA #$0028 STX $EA STA $E8 BRL L0139FE L0139D8 BRA L0139FE BRA L0139FE L0139DC CMP #$0000 BNE L0139E4 BRL L013901 L0139E4 CMP #$0002 BNE L0139EC BRL L013934 L0139EC CMP #$0005 BEQ L0139BE CMP #$0007 BEQ L0139BE CMP #$000C BEQ L0139CB JMP L0139D8 L0139FE LDX $EA LDA $E8 TAY TSC CLC ADC #$000E TCS PLD LDA $02,S STA $0C,S LDA $01,S STA $0B,S TSC CLC ADC #$000A TCS TYA STA $04,S TXA STA $06,S RTL L013A1F ENT PHD TSC SEC SBC #$00F7 TCD ADC #$00E6 TCS LDX $FF LDA $FD STX $EA STA $E8 LDX $FF LDA $FD STX $F2 ORA $F2 BEQ L013A7D L013A3C LDA [$FD] AND #$00FF STA $EC LDA $EE PHA LDX $FF LDA $FD INC $FD BNE L013A50 INC $FF L013A50 STA $F2 STX $F4 PLA SEP #$20 STA [$F2] REP #$20 LDA $EC STA $EE LDA $EC BNE L013A3C LDX $EA LDA $E8 PHX PHA LDX $FF LDA $FD JSL L012FF8 PLA PLX SEC SBC #$0001 SEP #$20 STA [$E8] REP #$20 L013A7D LDX $EA LDA $E8 TAY TDC CLC ADC #$00F7 TCS TYA PLD RTL L013A8B ENT PHD TSC SEC SBC #$00F7 TCD ADC #$00E6 TCS LDX $FF LDA $FD STX $EA STA $E8 LDX $FF LDA $FD STX $F2 ORA $F2 BEQ L013AF9 LDX $FF LDA $FD INC $FD BNE L013AB2 INC $FF L013AB2 STX $EE STA $EC STA $F2 STX $F4 LDA [$F2] AND #$00FF STA $F0 BRA L013AE9 L013AC3 LDX $FF LDA $FD INC $FD BNE L013ACD INC $FF L013ACD STA $F2 STX $F4 LDA [$F2] PHA LDX $EE LDA $EC INC $EC BNE L013ADE INC $EE L013ADE STA $F2 STX $F4 PLA SEP #$20 STA [$F2] REP #$20 L013AE9 LDA $F0 DEC $F0 TAY BNE L013AC3 LDA #$0000 SEP #$20 STA [$EC] REP #$20 L013AF9 LDX $EA LDA $E8 TAY TDC CLC ADC #$00F7 TCS TYA PLD RTL L013B07 TAY LDA $04,S TAX BEQ L013B13 TYA L013B0E ASL DEX BNE L013B0E TAY L013B13 TYA STA $04,S RTL L013B17 ENT PHD PHX PHA TSC TCD LDX $0A LDA $0C BEQ L013B25 LDX #$0021 L013B25 TXY BEQ L013B32 LDA $01 L013B2A ASL ROL $03 DEX BNE L013B2A STA $01 L013B32 LDA $01 STA $0A LDA $03 STA $0C PLY PLY PLD RTL sendLDReject PHD TSC SEC SBC #$00FB TCD ADC #$00F4 TCS PEA ^L03809A ; RJ PEA L03809A JSL sendLDCommand PLY PLY TAY TSC CLC ADC #$0006 TCS TYA PLD RTL L013B5F ENT BCC L013B73 TAY LDA $04,S TAX BEQ L013B7F TYA BEQ L013B80 BPL L013B7A L013B6C SEC ROR DEX BNE L013B6C BRA L013B80 L013B73 TAY LDA $04,S TAX BEQ L013B7F TYA L013B7A LSR DEX BNE L013B7A TAY L013B7F TYA L013B80 STA $04,S RTL L013B83 ENT BCC L013BA5 PHD PHX PHA TSC TCD LDX $0A LDA $0C BEQ L013B93 LDX #$0021 L013B93 TXY BEQ L013BC0 LDA $03 BPL L013BB6 L013B9A SEC ROR ROR $01 DEX BNE L013B9A STA $03 BRA L013BC0 L013BA5 PHD PHX PHA TSC TCD LDX $0A LDA $0C BEQ L013BB3 LDX #$0021 L013BB3 TXY BEQ L013BC0 L013BB6 LDA $03 L013BB8 LSR ROR $01 DEX BNE L013BB8 STA $03 L013BC0 LDA $03 STA $0C LDA $01 STA $0A PLY PLY PLD RTL checkSerialInputReady PHD TSC SEC SBC #$00FB TCD ADC #$00F3 TCS L013BD7 JSL getSerialInputStatus ; serial: is input ready? TAY BEQ L013BF9 ; 0, no, not ready PEA $0000 ; if ready, read a character TDC CLC ADC #$00F5 PHA JSL llSerialRead ; 0: char read, 2: error encountered PLY PLY CMP #$0002 BNE L013BF7 LDA #$0002 BRA L013BFC L013BF7 BRA L013BD7 L013BF9 LDA #$0000 L013BFC TAY TSC CLC ADC #$0007 TCS TYA PLD RTL L013C06 ENT PHD TSC SEC SBC #$00EF TCD ADC #$00D2 TCS LDA $FF STA $D6 LDX $FB LDA $F9 STX $EA ORA $EA BNE L013C92 PHX PHA LDA $FF LDX #$0000 PHX PHA LDA L02004A PHA PEA $0008 PEA $0000 PEA $0000 _NewHandle BCS L013C41 LDA #$0000 L013C41 STAL L020002 PLA PLX STX $E8 STA $E6 LDA L020002 STA $D4 TAY BEQ L013C5C LDX #$0000 LDA #$0000 BRL L013CDE L013C5C PEI $E8 PEI $E6 _HLock BCS L013C6C LDA #$0000 L013C6C STAL L020002 LDA L020002 STA $D4 TAY BEQ L013C80 LDX #$0000 LDA #$0000 BRA L013CDE L013C80 LDY #$0002 LDA [$E6],Y TAX LDA [$E6] STX $E0 STA $DE STX $DC STA $DA BRA L013C9E L013C92 LDX $FB LDA $F9 STX $E0 STA $DE STX $DC STA $DA L013C9E PHA PEI $F7 PEI $F5 PEI $FD PEA $0000 TDC CLC ADC #$00DA PHA PEA $0000 TDC CLC ADC #$00D6 PHA _UnPackBytes BCS L013CC3 LDA #$0000 L013CC3 STAL L020002 PLA STA $D8 LDA L020002 STA $D4 TAY BEQ L013CDA LDX #$0000 LDA #$0000 BRA L013CDE L013CDA LDX $E0 LDA $DE L013CDE TAY TSC CLC ADC #$001C TCS TYA PLD RTL sendLDVideoControl PHD TSC SEC SBC #$00F9 TCD ADC #$00F2 TCS LDA $FF BEQ L013D05 PEA ^L0380BE ; 1VD PEA L0380BE JSL sendLDCommand PLY PLY BRA L013D11 L013D05 PEA ^L0380C2 ; 0VD PEA L0380C2 JSL sendLDCommand PLY PLY L013D11 TAY TSC CLC ADC #$0006 TCS TYA PLD RTL L013D1B PHD TSC SEC SBC #$00F3 TCD ADC #$00EC TCS PEI $FF PEI $FD PEI $FB PEI $F9 JSL L014120 PLY PLY PLY PLY TAY TSC CLC ADC #$0006 TCS TYA PLD RTL L013D40 ENT PHD TSC SEC SBC #$00F1 TCD ADC #$00E8 TCS STZ $EA BRL L013E50 L013D50 LDA $EA LDX #$0000 PHX PHA LDX $F9 LDA $F7 JSL L012E77 PLA PLX STA $EC STX $EE LDA [$EC] AND #$00FF AND #$00F0 PHA LDA $FD AND #$00FF ASL ASL ASL ASL PLX STX $EC CMP $EC BNE L013DD0 LDA $EA LDX #$0000 PHX PHA LDX $F9 LDA $F7 JSL L012E77 PLA PLX STA $EC STX $EE LDA [$EC] AND #$00FF AND #$000F SEP #$20 STA [$EC] REP #$20 LDA $FF AND #$00FF ASL ASL ASL ASL PHA LDA $EA LDX #$0000 PHX PHA LDX $F9 LDA $F7 JSL L012E77 PLA PLX STA $EC STX $EE LDA [$EC] AND #$00FF PLX STX $F0 ORA $F0 SEP #$20 STA [$EC] REP #$20 L013DD0 LDA $EA LDX #$0000 PHX PHA LDX $F9 LDA $F7 JSL L012E77 PLA PLX STA $EC STX $EE LDA [$EC] AND #$00FF AND #$000F PHA LDA $FD AND #$00FF AND #$000F PLX STX $EC CMP $EC BNE L013E4E LDA $EA LDX #$0000 PHX PHA LDX $F9 LDA $F7 JSL L012E77 PLA PLX STA $EC STX $EE LDA [$EC] AND #$00FF AND #$00F0 SEP #$20 STA [$EC] REP #$20 LDA $FF AND #$00FF AND #$000F PHA LDA $EA LDX #$0000 PHX PHA LDX $F9 LDA $F7 JSL L012E77 PLA PLX STA $EC STX $EE LDA [$EC] AND #$00FF PLX STX $F0 ORA $F0 SEP #$20 STA [$EC] REP #$20 L013E4E INC $EA L013E50 LDA $EA CMP $FB BCS L013E59 BRL L013D50 L013E59 TSC CLC ADC #$0008 TCS PLD RTL L013E61 ENT PHD TSC SEC SBC #$00F1 TCD ADC #$00E6 TCS LDX $F9 LDA $F7 STX $EA STA $E8 L013E74 DEC $FF LDA $FF SEC SBC #$0000 BVS L013E81 EOR #$8000 L013E81 BPL L013EAB LDX $FD LDA $FB INC $FB BNE L013E8D INC $FD L013E8D STA $EC STX $EE LDA [$EC] PHA LDX $F9 LDA $F7 INC $F7 BNE L013E9E INC $F9 L013E9E STA $EC STX $EE PLA SEP #$20 STA [$EC] REP #$20 BRA L013E74 L013EAB LDX $EA LDA $E8 TAY TDC CLC ADC #$00F1 TCS TYA PLD RTL L013EB9 ENT PHD TSC SEC SBC #$00F3 TCD ADC #$00E8 TCS LDX $FB LDA $F9 STX $EC STA $EA L013ECC DEC $FF LDA $FF SEC SBC #$0000 BVS L013ED9 EOR #$8000 L013ED9 BPL L013EF3 LDX $FB LDA $F9 INC $F9 BNE L013EE5 INC $FB L013EE5 STA $EE STX $F0 LDA $FD SEP #$20 STA [$EE] REP #$20 BRA L013ECC L013EF3 LDX $EC LDA $EA TAY TDC CLC ADC #$00F3 TCS TYA PLD RTL L013F01 PHD TSC TCD STA [$06] LDA $01,S LDY #$0002 STA [$06],Y LDA $02,S INY INY STA [$06],Y LDA $04,S INY INY STA [$06],Y PLD LDA #$0000 RTL L013F1E ENT PHD TSC SEC SBC #$00F5 TCD ADC #$00EE TCS PEI $FF PEI $FD PEI $FB JSL L01457A PLY PLY PLY LDA #L038050 LDX #^L038050 PHX PHA LDA $FB CLC ADC #$0026 LDX $FD BCC L013F49 INX L013F49 STA $F0 STX $F2 PLA PLX LDY #$0006 PHA TXA STA [$F0],Y PLA LDY #$0004 STA [$F0],Y LDA #L038055 LDX #^L038055 PHX PHA LDA $FB CLC ADC #$0026 LDX $FD BCC L013F6F INX L013F6F STA $F0 STX $F2 PLA PLX LDY #$000A PHA TXA STA [$F0],Y PLA LDY #$0008 STA [$F0],Y LDA #L03805D LDX #^L03805D PHX PHA LDA $FB CLC ADC #$0026 LDX $FD BCC L013F95 INX L013F95 STA $F0 STX $F2 PLA PLX LDY #$000E PHA TXA STA [$F0],Y PLA LDY #$000C STA [$F0],Y LDA #$0009 LDY #$00B6 STA [$FB],Y LDA $FB CLC ADC #$0006 LDX $FD BCC L013FBB INX L013FBB STA $F0 STX $F2 LDA #$0055 LDY #$0008 STA [$F0],Y LDA $FB CLC ADC #$0006 LDX $FD BCC L013FD2 INX L013FD2 STA $F0 STX $F2 LDA #$0014 LDY #$000A STA [$F0],Y LDA $FB CLC ADC #$0006 LDX $FD BCC L013FE9 INX L013FE9 STA $F0 STX $F2 LDA #$0000 LDY #$000C STA [$F0],Y LDA $FB CLC ADC #$0006 LDX $FD BCC L014000 INX L014000 STA $F0 STX $F2 LDA #$0000 LDY #$000E STA [$F0],Y LDA $FB CLC ADC #$0006 LDX $FD BCC L014017 INX L014017 STA $F0 STX $F2 LDA #$0055 LDY #$0010 STA [$F0],Y LDA $FB CLC ADC #$0006 LDX $FD BCC L01402E INX L01402E STA $F0 STX $F2 LDA #$005A LDY #$0012 STA [$F0],Y LDA $FB CLC ADC #$0006 LDX $FD BCC L014045 INX L014045 STA $F0 STX $F2 LDA #$0000 LDY #$0014 STA [$F0],Y LDA $FB CLC ADC #$0006 LDX $FD BCC L01405C INX L01405C STA $F0 STX $F2 LDA #$0000 LDY #$0016 STA [$F0],Y LDA $FB CLC ADC #$0006 LDX $FD BCC L014073 INX L014073 STA $F0 STX $F2 LDA #$0055 LDY #$0018 STA [$F0],Y LDA $FB CLC ADC #$0006 LDX $FD BCC L01408A INX L01408A STA $F0 STX $F2 LDA #$00B9 LDY #$001A STA [$F0],Y LDA $FB CLC ADC #$0006 LDX $FD BCC L0140A1 INX L0140A1 STA $F0 STX $F2 LDA #$0000 LDY #$001C STA [$F0],Y LDA $FB CLC ADC #$0006 LDX $FD BCC L0140B8 INX L0140B8 STA $F0 STX $F2 LDA #$0000 LDY #$001E STA [$F0],Y TAY TSC CLC ADC #$0006 TCS TYA PLD RTL L0140CE ENT PHD TSC SEC SBC #$00F7 TCD ADC #$00EC TCS LDX $FF LDA $FD CLC ADC #$0001 PHA TXA ADC #$0000 TAX PLA STX $F0 STA $EE L0140EC LDX $FF LDA $FD INC $FD BNE L0140F6 INC $FF L0140F6 STA $F2 STX $F4 LDA [$F2] AND #$00FF CMP #$0000 BEQ L014106 BRA L0140EC L014106 LDX $F0 LDA $EE PHX PHA LDX $FF LDA $FD JSL L012FF8 PLA PLX TAY TDC CLC ADC #$00F7 TCS TYA PLD RTL L014120 ENT PHD TSC SEC SBC #$00F3 TCD ADC #$00EC TCS LDA $F9 CMP $FD BNE L01413C LDA $FB CMP $FF BNE L01413C LDA #$0000 BRA L01419C L01413C LDA [$F9] AND #$00FF PHA LDX $FF LDA $FD INC $FD BNE L01414C INC $FF L01414C STA $EE STX $F0 LDA [$EE] AND #$00FF PLX STX $EE CMP $EE BNE L01417B LDX $FB LDA $F9 INC $F9 BNE L014166 INC $FB L014166 STA $EE STX $F0 LDA [$EE] AND #$00FF CMP #$0000 BNE L014179 LDA #$0000 BRA L01419C L014179 BRA L01413C L01417B LDA $FD BNE L014181 DEC $FF L014181 DEC $FD LDX $FF LDA $FD STA $EE STX $F0 LDA [$EE] AND #$00FF PHA LDA [$F9] AND #$00FF PLX STX $F2 SEC SBC $F2 L01419C TAY TDC CLC ADC #$00F3 TCS TYA PLD RTL L0141A6 PHD TSC SEC SBC #$00F9 TCD ADC #$FFEA TCS LDA #L016EF3 LDX #^L016EF3 PHX PHA LDAL L037F47 TAX LDAL L037F45 STA $F4 STX $F6 PLA PLX LDY #$0002 PHA TXA STA [$F4],Y PLA STA [$F4] LDA L0200F8 BNE L0141DA BRL L01432C L0141DA LDX #$0000 TDC CLC ADC #$FFEC PHA TXA STAL L0382FF PLA STAL L0382FD PEA $0027 PEA ^L0382FD PEA L0382FD JSL L014421 LDAL L0382FF TAX LDAL L0382FD STA $F4 STX $F6 LDA [$F4] AND #$00FF STA $F0 STA $EE L014210 LDA $F0 LDX #$0000 TAY BPL L014219 DEX L014219 PHX PHA LDAL L0382FF TAX LDAL L0382FD JSL L012E77 PLA PLX STA $F4 STX $F6 LDA [$F4] AND #$00FF CMP #$002F BEQ L01424B LDA $F0 SEC SBC #$0000 BEQ L01424B BVS L014245 EOR #$8000 L014245 BPL L01424B DEC $F0 BRA L014210 L01424B LDA $EE SEC SBC $F0 STA $EC SEP #$20 STAL L037FA0 REP #$20 BRA L0142AE L01425C LDA $EE DEC $EE LDX #$0000 TAY BPL L014267 DEX L014267 PHX PHA LDAL L0382FF TAX LDAL L0382FD JSL L012E77 PLA PLX STA $F4 STX $F6 LDA [$F4] PHA LDA $EC LDX #$0000 TAY BPL L014288 DEX L014288 PHX PHA LDA #L037FA1 LDX #^L037FA1 JSL L012E77 PLA PLX SEC SBC #$0001 PHA TXA SBC #$0000 TAX PLA STA $F4 STX $F6 PLA SEP #$20 STA [$F4] REP #$20 DEC $EC L0142AE LDA $EC SEC SBC #$0000 BEQ L0142BD BVS L0142BB EOR #$8000 L0142BB BMI L01425C L0142BD LDA #L037FA0 LDX #^L037FA0 PHX PHA LDAL L037F39 TAX LDAL L037F37 STA $F4 STX $F6 PLA PLX LDY #$0002 PHA TXA STA [$F4],Y PLA STA [$F4] LDA $FF BNE L0142FF LDAL L037F39 TAX LDAL L037F37 STA $F4 STX $F6 LDY #$0002 LDA [$F4],Y TAX LDA [$F4] PHX PHA JSL L013A8B PLY PLY L0142FF LDA #$0001 STA L020006 LDAL L037F39 TAX LDAL L037F37 STX L02000A STA L020008 PEA $007F PEA $0000 _SetInGlobals BCS L014326 LDA #$0000 L014326 STAL L020002 BRA L014344 L01432C LDA L020006 STAL L037F35 LDX L02000A LDA L020008 PHA TXA STAL L037F39 PLA STAL L037F37 L014344 TAY TDC CLC ADC #$00F9 TCS TYA PLD RTL startLD PHD TSC SEC SBC #$00FB TCD ADC #$00F4 TCS PEA ^L03808F ; SA START PEA L03808F JSL sendLDCommand PLY PLY TAY TSC CLC ADC #$0006 TCS TYA PLD RTL L01436F PHD TSC SEC SBC #$00F9 TCD ADC #$00EE TCS LDAL L037F47 TAX LDAL L037F45 STA $F4 STX $F6 LDX $F6 LDA #$0024 CLC ADC $F4 BCC L014392 INX L014392 STX $F2 STA $F0 BRA L0143D1 L014398 LDX #$0000 LDA #$0000 PHX PHA LDY #$0002 LDA [$F0],Y TAX LDA [$F0] JSL L013333 BEQ L0143C5 PEI $FF LDY #$0002 LDA [$F0],Y TAX LDA [$F0] STA $F4 STX $F6 LDA $F4 LDX $F6 JSL L014572 PLY L0143C5 LDA $F0 SEC SBC #$0004 STA $F0 BCS L0143D1 DEC $F2 L0143D1 SEC LDA $F0 SBCL L037F45 BNE L0143E2 LDA $F2 SBCL L037F47 BRA L0143EA L0143E2 LDA $F2 SBCL L037F47 REP #$02 L0143EA BEQ L0143F3 BVS L0143F1 EOR #$8000 L0143F1 BMI L014398 L0143F3 LDA $FF STA L02000C LDAL L037F47 TAX LDAL L037F45 STA $F4 STX $F6 LDY #$0002 LDA [$F4],Y TAX LDA [$F4] STA $F4 STX $F6 LDA $F4 LDX $F6 JSL L014572 TDC CLC ADC #$00F9 TCS PLD RTL L014421 ENT PHB PLA XBA STAL L01445C PLA STAL L01445C+1 PLA STAL L014442 PLA STAL L014442+2 PLA STAL L014440 JSL GSOS L014440 DW $0000 L014442 ADRL $00000000 BCS L01444B LDA #$0000 L01444B STAL L020002 LDAL L01445C+1 PHA PHB LDAL L01445C STA $01,S RTL L01445C ADR $000000 initCommPort PHD ; INIT COMM PORT TSC SEC SBC #$00FB TCD ADC #$00F2 TCS JSL resetCommPort STA $F4 CMP #$0000 BEQ L01447A LDA $F4 BRL L01451A L01447A PEA ^L038066 ; ED - DON'T ECHO OUTPUT PEA L038066 JSL sendSerialString PLY PLY PEA ^L038069 ; BE - INPUT BUFFERING ON PEA L038069 JSL sendSerialString PLY PLY PEA ^L03806C ; 12B - SET BAUD RATE 4800BPS PEA L03806C JSL sendSerialString PLY PLY PEA ^L038070 ; 0D - DATA/STOP BITS 8/1 PEA L038070 JSL sendSerialString PLY PLY PEA ^L038073 ; 0P - PARITY: NONE PEA L038073 JSL sendSerialString PLY PLY PEA ^L038076 ; 0N - LINE LENGTH: 0 PEA L038076 JSL sendSerialString PLY PLY PEA ^L038079 ; AD - DO NOT IMPLEMENT BASIC TABS PEA L038079 JSL sendSerialString PLY PLY PEA ^L03807C ; CD - DISABLE LINE FORMATTING PEA L03807C JSL sendSerialString PLY PLY PEA ^L03807F ; XD - IGNORE XOFF PEA L03807F JSL sendSerialString PLY PLY PEA ^L038082 ; FD - DISABLE KEYBOARD INPUT PEA L038082 JSL sendSerialString PLY PLY PEA ^L038085 ; LD - DO NOT ADD LINE FEEDS AFTER CR PEA L038085 JSL sendSerialString PLY PLY PEA ^L038088 ; ME - MASK LINE FEED IN PEA L038088 JSL sendSerialString PLY PLY PEA ^L03808B ; Z - SUPPRESS CONTROL CHARACTERS PEA L03808B JSL sendSerialString PLY PLY JSL checkSerialInputReady L01451A TAY TSC CLC ADC #$0008 TCS TYA PLD RTL L014524 ENT PHD TSC SEC SBC #$00F3 TCD ADC #$00E8 TCS LDX $FB LDA $F9 STX $EC STA $EA L014537 LDX $FF LDA $FD INC $FD BNE L014541 INC $FF L014541 STA $EE STX $F0 LDA [$EE] PHA LDX $FB LDA $F9 INC $F9 BNE L014552 INC $FB L014552 STA $EE STX $F0 PLA SEP #$20 STA [$EE] REP #$20 AND #$00FF BEQ L014564 BRA L014537 L014564 LDX $EC LDA $EA TAY TDC CLC ADC #$00F3 TCS TYA PLD RTL L014572 ENT SEP #$10 PHX REP #$10 DEC PHA RTL L01457A ENT PHD TSC SEC SBC #$00F5 TCD ADC #$00EE TCS LDA #$0000 STA [$FB] LDA $FB CLC ADC #$0006 LDX $FD BCC L014595 INX L014595 STA $F0 STX $F2 LDA #$0055 LDY #$0008 STA [$F0],Y LDA $FB CLC ADC #$0006 LDX $FD BCC L0145AC INX L0145AC STA $F0 STX $F2 LDA #$0020 LDY #$000A STA [$F0],Y LDA $FB CLC ADC #$0006 LDX $FD BCC L0145C3 INX L0145C3 STA $F0 STX $F2 LDA #$0000 LDY #$000C STA [$F0],Y LDA $FB CLC ADC #$0006 LDX $FD BCC L0145DA INX L0145DA STA $F0 STX $F2 LDA #$0000 LDY #$000E STA [$F0],Y LDA $FB CLC ADC #$0006 LDX $FD BCC L0145F1 INX L0145F1 STA $F0 STX $F2 LDA #$0055 LDY #$0010 STA [$F0],Y LDA $FB CLC ADC #$0006 LDX $FD BCC L014608 INX L014608 STA $F0 STX $F2 LDA #$0098 LDY #$0012 STA [$F0],Y LDA $FB CLC ADC #$0006 LDX $FD BCC L01461F INX L01461F STA $F0 STX $F2 LDA #$0000 LDY #$0014 STA [$F0],Y LDA $FB CLC ADC #$0006 LDX $FD BCC L014636 INX L014636 STA $F0 STX $F2 LDA #$0000 LDY #$0016 STA [$F0],Y LDA #L038044 LDX #^L038044 PHX PHA LDA $FB CLC ADC #$0026 LDX $FD BCC L014655 INX L014655 STA $F0 STX $F2 PLA PLX LDY #$0006 PHA TXA STA [$F0],Y PLA LDY #$0004 STA [$F0],Y LDA #L038049 LDX #^L038049 PHX PHA LDA $FB CLC ADC #$0026 LDX $FD BCC L01467B INX L01467B STA $F0 STX $F2 PLA PLX LDY #$000A PHA TXA STA [$F0],Y PLA LDY #$0008 STA [$F0],Y LDA $FB CLC ADC #$0026 LDX $FD BCC L014699 INX L014699 STA $F0 STX $F2 LDX #$0000 LDA #$0000 LDY #$000E PHA TXA STA [$F0],Y PLA LDY #$000C STA [$F0],Y LDA #$004E LDY #$0036 STA [$FB],Y LDA #$8024 LDY #$0038 STA [$FB],Y LDX #$0000 LDA #$0000 LDY #$0040 PHA TXA STA [$FB],Y PLA LDY #$003E STA [$FB],Y LDA #$0000 LDY #$0048 STA [$FB],Y LDY #$0046 STA [$FB],Y LDY #$0044 STA [$FB],Y LDY #$0042 STA [$FB],Y LDX #$0000 LDA #$0000 LDY #$004C PHA TXA STA [$FB],Y PLA LDY #$004A STA [$FB],Y LDA #$0000 LDY #$0050 STA [$FB],Y LDY #$004E STA [$FB],Y LDA #$00C8 LDY #$0052 STA [$FB],Y LDA #$0140 LDY #$0054 STA [$FB],Y LDA #$00C8 LDY #$0056 STA [$FB],Y LDA #$0140 LDY #$0058 STA [$FB],Y LDA #$0000 LDY #$0060 STA [$FB],Y LDY #$005E STA [$FB],Y LDY #$005C STA [$FB],Y LDY #$005A STA [$FB],Y LDX #$0000 LDA #$0000 LDY #$0064 PHA TXA STA [$FB],Y PLA LDY #$0062 STA [$FB],Y LDA #$0000 LDY #$0066 STA [$FB],Y LDX #$0000 LDA #$0000 LDY #$006A PHA TXA STA [$FB],Y PLA LDY #$0068 STA [$FB],Y LDX #$0000 LDA #$0000 LDY #$006E PHA TXA STA [$FB],Y PLA LDY #$006C STA [$FB],Y LDX #$0000 LDA #$0000 LDY #$0072 PHA TXA STA [$FB],Y PLA LDY #$0070 STA [$FB],Y LDA #$0032 LDY #$0074 STA [$FB],Y LDA #$0014 LDY #$0076 STA [$FB],Y LDA #$00A0 LDY #$0078 STA [$FB],Y LDA #$012C LDY #$007A STA [$FB],Y LDX #$FFFF LDA #$FFFF LDY #$007E PHA TXA STA [$FB],Y PLA LDY #$007C STA [$FB],Y LDX #$0000 LDA #$0000 LDY #$0082 PHA TXA STA [$FB],Y PLA LDY #$0080 STA [$FB],Y LDA #$000D LDY #$009C STA [$FB],Y LDA #$0011 LDY #$009E STA [$FB],Y LDA #$004B LDY #$00A0 STA [$FB],Y LDA #$00E5 LDY #$00A2 STA [$FB],Y LDA #$0006 LDY #$00A6 STA [$FB],Y LDA #$0003 LDY #$00A8 STA [$FB],Y LDA $FF LDY #$00AA STA [$FB],Y LDX #$0000 LDA #$0000 LDY #$00AE PHA TXA STA [$FB],Y PLA LDY #$00AC STA [$FB],Y LDX #$0000 LDA #$0000 LDY #$00B2 PHA TXA STA [$FB],Y PLA LDY #$00B0 STA [$FB],Y LDA #$000A LDY #$00B4 STA [$FB],Y LDA #$0005 LDY #$00B6 STA [$FB],Y LDX #$0000 LDA #$0000 LDY #$00BE PHA TXA STA [$FB],Y PLA LDY #$00BC STA [$FB],Y LDX #$0000 LDA #$0000 LDY #$00C2 PHA TXA STA [$FB],Y PLA LDY #$00C0 STA [$FB],Y TAY TSC CLC ADC #$0006 TCS TYA PLD RTL L014878 PHD TSC SEC SBC #$00F7 TCD ADC #$00EC TCS PHX PHA PEI $FF PEI $FD LDA L020004 ORA #$0F00 PHA PEA $8300 PEA $0000 PEA $0000 _NewHandle BCS L0148A5 LDA #$0000 L0148A5 STAL L020002 PLA PLX STX $F0 STA $EE STX $F2 ORA $F2 BEQ L0148BF LDY #$0002 LDA [$EE],Y TAX LDA [$EE] BRA L0148C5 L0148BF LDX #$0000 LDA #$0000 L0148C5 TAY TDC CLC ADC #$00F7 TCS TYA PLD RTL sendLDStill ENT PHD TSC SEC SBC #$00F9 TCD ADC #$00B0 TCS LDA $FF CMP #$0000 BNE L0148FA PEA ^L038092 ; STill PEA L038092 JSL sendLDCommand PLY PLY STA $F2 CMP #$0000 BEQ L0148F8 LDA $F2 BRA L014931 L0148F8 BRA L01492E L0148FA PEI $FF PEA ^L038095 PEA L038095 PEA $0000 TDC CLC ADC #$00B2 PHA JSL L01508C PLY PLY PLY PLY PLY PEA $0000 TDC CLC ADC #$00B2 PHA JSL sendLDCommand PLY PLY STA $F2 CMP #$0000 BEQ L01492E LDA $F2 BRA L014931 L01492E LDA #$0000 L014931 TAY TSC CLC ADC #$0048 TCS TYA PLD RTL L01493B ENT PHD TSC SEC SBC #$00F3 TCD ADC #$00E0 TCS PEA $0001 JSL L01335E PLY LDY #$0004 LDA [$F9],Y TAX LDY #$0002 LDA [$F9],Y STX $E4 STA $E2 PHA LDY #$0002 LDA [$E2],Y TAX LDA [$E2] PHX PHA _CStringWidth BCS L014974 LDA #$0000 L014974 STAL L020002 PLA STA $E8 LDA #$0001 STA $EC BRA L0149DA L014982 LDY #$00B6 LDA [$F9],Y PHA LDA $EC CLC JSL L013003 PLA LDX #$0000 PHX PHA LDY #$0004 LDA [$F9],Y TAX LDY #$0002 LDA [$F9],Y JSL L012E77 PLA PLX STX $E4 STA $E2 PHA LDY #$0002 LDA [$E2],Y TAX LDA [$E2] PHX PHA _CStringWidth BCS L0149C1 LDA #$0000 L0149C1 STAL L020002 PLA STA $E6 SEC SBC $E8 BEQ L0149D8 BVS L0149D2 EOR #$8000 L0149D2 BPL L0149D8 LDA $E6 STA $E8 L0149D8 INC $EC L0149DA LDY #$00A4 LDA [$F9],Y CMP $EC BEQ L0149E5 BCS L014982 L0149E5 LDA $E8 CLC ADC #$0024 STA $E8 LDY #$0076 LDA [$F9],Y PHA LDY #$007A LDA [$F9],Y PLX STX $F2 SEC SBC $F2 STA $E6 SEC SBC $E8 BVS L014A08 EOR #$8000 L014A08 BMI L014A15 LDA #$0000 STA [$FD] LDA #$0000 BRL L014C6E L014A15 LDA #$0002 PHA LDA $E6 SEC SBC $E8 SEC JSL L012E82 PLY LDY #$009E STA [$F9],Y LDY #$009E LDA [$F9],Y CLC ADC $E8 SEC SBC #$0010 LDY #$00A2 STA [$F9],Y PHX PHA LDA $F9 CLC ADC #$0036 TAX LDA $FB BCC L014A48 INC L014A48 PHA PHX _NewWindow BCS L014A56 LDA #$0000 L014A56 STAL L020002 PLA PLX LDY #$008A PHA TXA STA [$F9],Y PLA LDY #$0088 STA [$F9],Y LDY #$008A LDA [$F9],Y TAX LDY #$0088 LDA [$F9],Y PHX PHA _SetPort BCS L014A82 LDA #$0000 L014A82 STAL L020002 LDA #$0001 STA $EC L014A8B LDA $EC ASL ASL LDX #$0000 PHX PHA LDA $F9 CLC ADC #$0026 LDX $FB BCC L014A9F INX L014A9F JSL L012E77 PLA PLX STA $EE STX $F0 LDY #$0002 LDA [$EE],Y TAX LDA [$EE] STX $EE ORA $EE BNE L014ABA BRL L014B76 L014ABA LDA $EC CMP #$0004 BCC L014AC4 BRL L014B76 L014AC4 PHX PHA LDY #$008A LDA [$F9],Y TAX LDY #$0088 LDA [$F9],Y PHX PHA LDA $EC ASL ASL ASL LDX #$0000 PHX PHA LDA $F9 CLC ADC #$0006 LDX $FB BCC L014AE8 INX L014AE8 JSL L012E77 LDA $EC ASL ASL LDX #$0000 PHX PHA LDA $F9 CLC ADC #$0026 LDX $FB BCC L014B00 INX L014B00 JSL L012E77 PLA PLX STA $EE STX $F0 LDY #$0002 LDA [$EE],Y TAX LDA [$EE] PHX PHA PEA $0003 PEA $0000 PEA $0000 PEA $0000 PEA $0000 PEA $0000 LDA $EC SEC SBC #$0001 LDX #$0000 PHX PHA PEA $0000 PEA $0000 _NewControl BCS L014B43 LDA #$0000 L014B43 STAL L020002 LDA $EC ASL ASL LDX #$0000 PHX PHA LDA $F9 CLC ADC #$008C LDX $FB BCC L014B5B INX L014B5B JSL L012E77 PLA PLX STA $EE STX $F0 PLA PLX LDY #$0002 PHA TXA STA [$EE],Y PLA STA [$EE] INC $EC BRL L014A8B L014B76 LDA $F9 CLC ADC #$009C LDX $FB BCC L014B81 INX L014B81 LDY #$00C6 PHA TXA STA [$F9],Y PLA LDY #$00C4 STA [$F9],Y PHX PHA LDY #$008A LDA [$F9],Y TAX LDY #$0088 LDA [$F9],Y PHX PHA LDY #$00C6 LDA [$F9],Y TAX LDY #$00C4 LDA [$F9],Y PHX PHA _CreateList BCS L014BB6 LDA #$0000 L014BB6 STAL L020002 PLA PLX LDY #$00CA PHA TXA STA [$F9],Y PLA LDY #$00C8 STA [$F9],Y LDY #$008A LDA [$F9],Y TAX LDY #$0088 LDA [$F9],Y PHX PHA _BeginUpdate BCS L014BE2 LDA #$0000 L014BE2 STAL L020002 LDY #$008A LDA [$F9],Y TAX LDY #$0088 LDA [$F9],Y PHX PHA _DrawControls BCS L014BFF LDA #$0000 L014BFF STAL L020002 LDY #$008A LDA [$F9],Y TAX LDY #$0088 LDA [$F9],Y PHX PHA _EndUpdate BCS L014C1C LDA #$0000 L014C1C STAL L020002 PEI $FF PEI $FD PEI $FB PEI $F9 JSL L017112 PLY PLY PLY PLY STA $EA LDY #$008A LDA [$F9],Y TAX LDY #$0088 LDA [$F9],Y PHX PHA _CloseWindow BCS L014C4B LDA #$0000 L014C4B STAL L020002 LDY #$0086 LDA [$F9],Y TAX LDY #$0084 LDA [$F9],Y PHX PHA _SetPort BCS L014C68 LDA #$0000 L014C68 STAL L020002 LDA $EA L014C6E TAY TSC CLC ADC #$0012 TCS TYA PLD RTL L014C78 ENT PHD TSC SEC SBC #$00FB TCD ADC #$00F4 TCS PEA $0000 PEA $00E1 PEA $2000 LDX L0200F4 LDA L0200F2 PHX PHA JSL L015EAC PLY PLY PLY PLY PLY TSC CLC ADC #$0006 TCS PLD RTL llSerialRead PHD TSC SEC SBC #$00F7 TCD ADC #$00E4 TCS LDX #$0000 LDA #$C10E ; READ STA $F2 STX $F4 LDA [$F2] AND #$00FF PHA LDA #$C100 PLX STX $F6 CLC ADC $F6 STA $E6 PEA $0000 PEA $0000 PEA $0000 PEA $0000 PEA $0000 PEA $00C2 PEA $0020 PEI $E6 _FWEntry PLA STA $EA PLA STA $EC PLA STA $E8 STA $EE PLA STA $F0 LDA $EC ; X holds the error code BEQ L014D02 LDA #$0002 BRA L014D0D BRA L014D0D L014D02 LDA $E8 ; A holds the character SEP #$20 STA [$FD] REP #$20 LDA #$0000 L014D0D TAY TSC CLC ADC #$0012 TCS TYA PLD RTL L014D17 ENT PHD TSC SEC SBC #$00E7 TCD ADC #$00CD TCS LDA $FF PHA LDA $FD CLC JSL L012E82 PLY STA $E0 LDA #$00A0 SEC SBC $FF STA $DA LDA $FB AND #$00FF ASL ASL ASL ASL PHA LDA $FB AND #$00FF AND #$000F PLX STX $E6 ORA $E6 SEP #$20 STA $D9 REP #$20 LDA $FB AND #$00FF AND #$000F SEP #$20 STA $D8 REP #$20 LDA $FB AND #$00FF ASL ASL ASL ASL SEP #$20 STA $D7 REP #$20 LDX $EF LDA $ED STX $D5 STA $D3 LDA #$0002 PHA LDA $F5 CLC JSL L012E82 PLY LDX #$0000 PHX PHA LDA $F7 PHA LDA #$00A0 CLC JSL L013003 PLA LDX #$0000 PHX PHA LDX $F3 LDA $F1 JSL L012E77 PLA PLX JSL L012E77 PLA PLX STX $D1 STA $CF LDX $F3 LDA $F1 CLC ADC #$7D00 PHA TXA ADC #$0000 TAX PLA PHX PHA LDA $FD LDX #$0000 PHX PHA LDX $D1 LDA $CF JSL L012E77 PLA PLX JSL L013333 BVS L014DDA EOR #$8000 L014DDA BMI L014DDF BRL L015050 L014DDF LDA L0200EC BEQ L014DF4 _HideCursor BCS L014DF0 LDA #$0000 L014DF0 STAL L020002 L014DF4 LDA $F9 AND #$00FF CMP #$0030 BNE L014E33 LDA $FD CMP #$74E0 BNE L014E33 PEI $D5 PEI $D3 LDX $F3 LDA $F1 CLC ADC #$0820 PHA TXA ADC #$0000 TAX PLA PHX PHA PEA $0000 PEA $74E0 _BlockMove BCS L014E2C LDA #$0000 L014E2C STAL L020002 BRL L01503B L014E33 LDA $F9 AND #$00FF CMP #$0030 BNE L014E93 STZ $DE L014E3F LDA $DE CMP $E0 BCS L014E90 PEI $D5 PEI $D3 PEI $D1 PEI $CF LDA $FF LDX #$0000 PHX PHA _BlockMove BCS L014E60 LDA #$0000 L014E60 STAL L020002 LDA $FF LDX #$0000 PHX PHA LDX $D5 LDA $D3 JSL L012E77 PLA PLX STX $D5 STA $D3 LDX $D1 LDA $CF CLC ADC #$00A0 PHA TXA ADC #$0000 TAX PLA STX $D1 STA $CF INC $DE BRA L014E3F L014E90 BRL L01503B L014E93 LDA $F9 AND #$00FF CMP #$0010 BEQ L014EA0 BRL L014F6A L014EA0 STZ $DE L014EA2 LDA $DE CMP $E0 BCC L014EAB BRL L014F67 L014EAB STZ $DC L014EAD LDA $DC CMP $FF BCC L014EB6 BRL L014F4B L014EB6 LDA [$D3] AND #$00FF PHA LDA $D9 AND #$00FF PLX STX $E2 CMP $E2 BNE L014ED2 LDA [$D3] SEP #$20 STA [$CF] REP #$20 BRA L014F30 L014ED2 LDA [$D3] AND #$00FF AND #$000F PHA LDA $D8 AND #$00FF PLX STX $E2 CMP $E2 BNE L014F02 LDA $D8 AND #$00FF PHA LDA [$CF] AND #$00FF AND #$00F0 PLX STX $E6 ORA $E6 SEP #$20 STA [$CF] REP #$20 BRA L014F30 L014F02 LDA [$D3] AND #$00FF AND #$00F0 PHA LDA $D7 AND #$00FF PLX STX $E2 CMP $E2 BNE L014F30 LDA $D7 AND #$00FF PHA LDA [$CF] AND #$00FF AND #$000F PLX STX $E6 ORA $E6 SEP #$20 STA [$CF] REP #$20 L014F30 INC $D3 BNE L014F36 INC $D5 L014F36 LDX $D5 LDA $D3 INC $CF BNE L014F40 INC $D1 L014F40 LDX $D1 LDA $CF INC $DC LDA $DC BRL L014EAD L014F4B LDA $DA LDX #$0000 PHX PHA LDX $D1 LDA $CF JSL L012E77 PLA PLX STX $D1 STA $CF INC $DE LDA $DE BRL L014EA2 L014F67 BRL L01503B L014F6A STZ $DE L014F6C LDA $DE CMP $E0 BCC L014F75 BRL L01503B L014F75 STZ $DC L014F77 LDA $DC CMP $FF BCC L014F80 BRL L01501F L014F80 LDA [$D3] AND #$00FF PHA LDA $D9 AND #$00FF PLX STX $E2 CMP $E2 BNE L014F96 BRA L015004 BRA L015004 L014F96 LDA [$D3] AND #$00FF AND #$000F PHA LDA $D8 AND #$00FF PLX STX $E2 CMP $E2 BNE L014FC9 LDA [$D3] AND #$00FF AND #$00F0 PHA LDA [$CF] AND #$00FF AND #$000F PLX STX $E6 ORA $E6 SEP #$20 STA [$CF] REP #$20 BRA L015004 L014FC9 LDA [$D3] AND #$00FF AND #$00F0 PHA LDA $D7 AND #$00FF PLX STX $E2 CMP $E2 BNE L014FFC LDA [$D3] AND #$00FF AND #$000F PHA LDA [$CF] AND #$00FF AND #$00F0 PLX STX $E6 ORA $E6 SEP #$20 STA [$CF] REP #$20 BRA L015004 L014FFC LDA [$D3] SEP #$20 STA [$CF] REP #$20 L015004 INC $D3 BNE L01500A INC $D5 L01500A LDX $D5 LDA $D3 INC $CF BNE L015014 INC $D1 L015014 LDX $D1 LDA $CF INC $DC LDA $DC BRL L014F77 L01501F LDA $DA LDX #$0000 PHX PHA LDX $D1 LDA $CF JSL L012E77 PLA PLX STX $D1 STA $CF INC $DE LDA $DE BRL L014F6C L01503B LDA L0200EC BEQ L015050 _ShowCursor BCS L01504C LDA #$0000 L01504C STAL L020002 L015050 TAY TSC CLC ADC #$0019 TCS TYA PLD RTL L01505A TSC TCD LDA [$04] TAX LDA $04,S TAY LDA $06,S TCD LDA $08,S TXS PHA PHD PHY TSC TCD LDY #$0002 LDA [$01],Y TAX INY INY LDA [$01],Y STA $08,S INY INY LDA [$01],Y STA $0A,S PLA PLA PLA PLY CMP #$0000 BNE L015089 INC L015089 PHX PLD RTL L01508C ENT PHD TSC SEC SBC #$00F1 TCD ADC #$00D0 TCS LDA #$7FFF STA $D6 LDX $F9 LDA $F7 STX $DA STA $D8 STX $DE STA $DC LDA #$0002 STA $E6 LDA #$0014 STA $E8 LDX #$0000 TDC CLC ADC #$00FF STX $D4 STA $D2 PEA $0000 TDC CLC ADC #$00D6 PHA PEI $D4 PEI $D2 PEI $FD PEI $FB JSL L017B10 TAY TSC CLC ADC #$000C TCS TYA STA $EA LDA #$0000 SEP #$20 STA [$D8] REP #$20 LDA $EA TAY TDC CLC ADC #$00F1 TCS TYA PLD RTL releaseCommPort PHD TSC SEC SBC #$00FB TCD ADC #$00F2 TCS JSL resetCommPort STA $F4 CMP #$0000 BEQ L01510C LDA $F4 BRA L015126 L01510C PEA ^L03808D ; R PEA L03808D JSL sendSerialString PLY PLY STA $F4 CMP #$0000 BEQ L015123 LDA $F4 BRA L015126 L015123 LDA #$0000 L015126 TAY TSC CLC ADC #$0008 TCS TYA PLD RTL L015130 PHD TSC SEC SBC #$00FB TCD ADC #$00F4 TCS PHX PHA PEA $0000 PEA $0700 LDA L02004A PHA PEA $C001 PEA $0000 PEA $0000 _NewHandle BCS L01515C LDA #$0000 L01515C STAL L020002 PLA PLX STX L02004E STA L02004C LDA L020002 STA L0200F6 TAY BNE L015174 BRL L0151C4 L015174 _SysBeep BCS L015180 LDA #$0000 L015180 STAL L020002 PHA PEA $0014 PEA $001E PEA ^L038147 PEA L038147 PEA ^L038156 PEA L038156 PEA ^L038164 PEA L038164 PEA ^L038167 PEA L038167 _TLMountVolume BCS L0151AF LDA #$0000 L0151AF STAL L020002 PLA PEA $0017 PEA ^L031DCA PEA L031DCA JSL L01505A PLY PLY PLY L0151C4 LDX L02004E LDA L02004C STA $F6 STX $F8 LDY #$0002 LDA [$F6],Y TAX LDA [$F6] PHA PEA $0000 PEA $00A0 LDA L02004A PHA _QDStartUp BCS L0151ED LDA #$0000 L0151ED STAL L020002 LDA L020002 STA L0200F6 TAY BNE L0151FD BRL L01524D L0151FD _SysBeep BCS L015209 LDA #$0000 L015209 STAL L020002 PHA PEA $0014 PEA $001E PEA ^L038168 PEA L038168 PEA ^L038176 PEA L038176 PEA ^L038180 PEA L038180 PEA ^L038183 PEA L038183 _TLMountVolume BCS L015238 LDA #$0000 L015238 STAL L020002 PLA PEA $0017 PEA ^L031DCA PEA L031DCA JSL L01505A PLY PLY PLY L01524D _QDAuxStartUp BCS L015259 LDA #$0000 L015259 STAL L020002 LDA L020002 STA L0200F6 TAY BNE L015269 BRL L0152B9 L015269 _SysBeep BCS L015275 LDA #$0000 L015275 STAL L020002 PHA PEA $0014 PEA $001E PEA ^L038184 PEA L038184 PEA ^L038192 PEA L038192 PEA ^L0381A0 PEA L0381A0 PEA ^L0381A3 PEA L0381A3 _TLMountVolume BCS L0152A4 LDA #$0000 L0152A4 STAL L020002 PLA PEA $0017 PEA ^L031DCA PEA L031DCA JSL L01505A PLY PLY PLY L0152B9 LDX L02004E LDA L02004C STA $F6 STX $F8 LDY #$0002 LDA [$F6],Y TAX LDA [$F6] CLC ADC #$0300 PHA TXA ADC #$0000 TAX PEA $0014 PEA $0000 PEA $0140 PEA $0000 PEA $00C8 LDA L02004A PHA _EMStartUp BCS L0152F4 LDA #$0000 L0152F4 STAL L020002 LDA L020002 STA L0200F6 TAY BNE L015304 BRL L015354 L015304 _SysBeep BCS L015310 LDA #$0000 L015310 STAL L020002 PHA PEA $0014 PEA $001E PEA ^L0381A4 PEA L0381A4 PEA ^L0381B2 PEA L0381B2 PEA ^L0381C0 PEA L0381C0 PEA ^L0381C3 PEA L0381C3 _TLMountVolume BCS L01533F LDA #$0000 L01533F STAL L020002 PLA PEA $0017 PEA ^L031DCA PEA L031DCA JSL L01505A PLY PLY PLY L015354 LDA L02004A PHA _WindStartUp BCS L015364 LDA #$0000 L015364 STAL L020002 LDA L020002 STA L0200F6 TAY BNE L015374 BRL L0153C4 L015374 _SysBeep BCS L015380 LDA #$0000 L015380 STAL L020002 PHA PEA $0014 PEA $001E PEA ^L0381C4 PEA L0381C4 PEA ^L0381D2 PEA L0381D2 PEA ^L0381E1 PEA L0381E1 PEA ^L0381E4 PEA L0381E4 _TLMountVolume BCS L0153AF LDA #$0000 L0153AF STAL L020002 PLA PEA $0017 PEA ^L031DCA PEA L031DCA JSL L01505A PLY PLY PLY L0153C4 PEA $0000 PEA $0000 _RefreshDesktop BCS L0153D6 LDA #$0000 L0153D6 STAL L020002 LDA L02004A PHA LDX L02004E LDA L02004C STA $F6 STX $F8 LDY #$0002 LDA [$F6],Y TAX LDA [$F6] CLC ADC #$0400 PHA TXA ADC #$0000 TAX _CtlStartUp BCS L015406 LDA #$0000 L015406 STAL L020002 LDA L020002 STA L0200F6 TAY BNE L015416 BRL L015466 L015416 _SysBeep BCS L015422 LDA #$0000 L015422 STAL L020002 PHA PEA $0014 PEA $001E PEA ^L0381E5 PEA L0381E5 PEA ^L0381F3 PEA L0381F3 PEA ^L038203 PEA L038203 PEA ^L038206 PEA L038206 _TLMountVolume BCS L015451 LDA #$0000 L015451 STAL L020002 PLA PEA $0017 PEA ^L031DCA PEA L031DCA JSL L01505A PLY PLY PLY L015466 LDA L02004A PHA LDX L02004E LDA L02004C STA $F6 STX $F8 LDY #$0002 LDA [$F6],Y TAX LDA [$F6] CLC ADC #$0500 PHA TXA ADC #$0000 TAX _MenuStartUp BCS L015492 LDA #$0000 L015492 STAL L020002 LDA L020002 STA L0200F6 TAY BNE L0154A2 BRL L0154F2 L0154A2 _SysBeep BCS L0154AE LDA #$0000 L0154AE STAL L020002 PHA PEA $0014 PEA $001E PEA ^L038207 PEA L038207 PEA ^L038215 PEA L038215 PEA ^L038222 PEA L038222 PEA ^L038225 PEA L038225 _TLMountVolume BCS L0154DD LDA #$0000 L0154DD STAL L020002 PLA PEA $0017 PEA ^L031DCA PEA L031DCA JSL L01505A PLY PLY PLY L0154F2 LDA L02004A PHA LDX L02004E LDA L02004C STA $F6 STX $F8 LDY #$0002 LDA [$F6],Y TAX LDA [$F6] CLC ADC #$0600 PHA TXA ADC #$0000 TAX _LEStartUp BCS L01551E LDA #$0000 L01551E STAL L020002 LDA L020002 STA L0200F6 TAY BNE L01552E BRL L01557E L01552E _SysBeep BCS L01553A LDA #$0000 L01553A STAL L020002 PHA PEA $0014 PEA $001E PEA ^L038226 PEA L038226 PEA ^L038234 PEA L038234 PEA ^L03823E PEA L03823E PEA ^L038241 PEA L038241 _TLMountVolume BCS L015569 LDA #$0000 L015569 STAL L020002 PLA PEA $0017 PEA ^L031DCA PEA L031DCA JSL L01505A PLY PLY PLY L01557E LDA L02004A PHA _DialogStartUp BCS L01558E LDA #$0000 L01558E STAL L020002 LDA L020002 STA L0200F6 TAY BNE L01559E BRL L0155EE L01559E _SysBeep BCS L0155AA LDA #$0000 L0155AA STAL L020002 PHA PEA $0014 PEA $001E PEA ^L038242 PEA L038242 PEA ^L038250 PEA L038250 PEA ^L03825F PEA L03825F PEA ^L038262 PEA L038262 _TLMountVolume BCS L0155D9 LDA #$0000 L0155D9 STAL L020002 PLA PEA $0017 PEA ^L031DCA PEA L031DCA JSL L01505A PLY PLY PLY L0155EE _ListStartUp BCS L0155FA LDA #$0000 L0155FA STAL L020002 LDA L020002 STA L0200F6 TAY BNE L01560A BRL L01565A L01560A _SysBeep BCS L015616 LDA #$0000 L015616 STAL L020002 PHA PEA $0014 PEA $001E PEA ^L038263 PEA L038263 PEA ^L038271 PEA L038271 PEA ^L03827E PEA L03827E PEA ^L038281 PEA L038281 _TLMountVolume BCS L015645 LDA #$0000 L015645 STAL L020002 PLA PEA $0017 PEA ^L031DCA PEA L031DCA JSL L01505A PLY PLY PLY L01565A LDA L02004A PHA LDX L02004E LDA L02004C STA $F6 STX $F8 LDY #$0002 LDA [$F6],Y TAX LDA [$F6] CLC ADC #$0700 PHA TXA ADC #$0000 TAX _FMStartUp BCS L015686 LDA #$0000 L015686 STAL L020002 LDA L020002 STA L0200F6 TAY BNE L015696 BRL L0156E6 L015696 _SysBeep BCS L0156A2 LDA #$0000 L0156A2 STAL L020002 PHA PEA $0014 PEA $001E PEA ^L038282 PEA L038282 PEA ^L038290 PEA L038290 PEA ^L03829D PEA L03829D PEA ^L0382A0 PEA L0382A0 _TLMountVolume BCS L0156D1 LDA #$0000 L0156D1 STAL L020002 PLA PEA $0017 PEA ^L031DCA PEA L031DCA JSL L01505A PLY PLY PLY L0156E6 _VDStartUp BCS L0156F2 LDA #$0000 L0156F2 STAL L020002 LDA L020002 STA L0200F6 TAY BNE L015702 BRL L015752 L015702 _SysBeep BCS L01570E LDA #$0000 L01570E STAL L020002 PHA PEA $0014 PEA $001E PEA ^L0382A1 PEA L0382A1 PEA ^L0382AF PEA L0382AF PEA ^L0382BB PEA L0382BB PEA ^L0382BE PEA L0382BE _TLMountVolume BCS L01573D LDA #$0000 L01573D STAL L020002 PLA PEA $0017 PEA ^L031DCA PEA L031DCA JSL L01505A PLY PLY PLY L015752 LDA L02004A PHA LDX L02004E LDA L02004C STA $F6 STX $F8 LDY #$0002 LDA [$F6],Y TAX LDA [$F6] CLC ADC #$0800 PHA TXA ADC #$0000 TAX _SFStartUp BCS L01577E LDA #$0000 L01577E STAL L020002 LDA L020002 STA L0200F6 TAY BNE L01578E BRL L0157DE L01578E _SysBeep BCS L01579A LDA #$0000 L01579A STAL L020002 PHA PEA $0014 PEA $001E PEA ^L0382BF PEA L0382BF PEA ^L0382CD PEA L0382CD PEA ^L0382DA PEA L0382DA PEA ^L0382DD PEA L0382DD _TLMountVolume BCS L0157C9 LDA #$0000 L0157C9 STAL L020002 PLA PEA $0017 PEA ^L031DCA PEA L031DCA JSL L01505A PLY PLY PLY L0157DE _DeskStartUp BCS L0157EA LDA #$0000 L0157EA STAL L020002 LDA L020002 STA L0200F6 TAY BNE L0157FA BRL L01584A L0157FA _SysBeep BCS L015806 LDA #$0000 L015806 STAL L020002 PHA PEA $0014 PEA $001E PEA ^L0382DE PEA L0382DE PEA ^L0382EC PEA L0382EC PEA ^L0382F9 PEA L0382F9 PEA ^L0382FC PEA L0382FC _TLMountVolume BCS L015835 LDA #$0000 L015835 STAL L020002 PLA PEA $0017 PEA ^L031DCA PEA L031DCA JSL L01505A PLY PLY PLY L01584A _ShowCursor BCS L015856 LDA #$0000 L015856 STAL L020002 TSC CLC ADC #$0006 TCS PLD RTL L015862 PHD TSC SEC SBC #$00F5 TCD ADC #$00EC TCS PHX PHA LDA $FB PHA LDA #$0005 SEC JSL L013003 PLA LDX #$0000 TAY BPL L015882 DEX L015882 PHX PHA LDA L02004A PHA PEA $0008 PEA $0000 PEA $0000 _NewHandle BCS L01589D LDA #$0000 L01589D STAL L020002 PLA PLX STX L0200FC STA L0200FA LDA L020002 STA $EE TAY BEQ L0158C6 PEI $EE PEA ^L037FB0 PEA L037FB0 JSL L050256 PLY PLY PLY LDA #$0000 BRL L015927 L0158C6 LDX L0200FC LDA L0200FA PHX PHA _HLock BCS L0158DA LDA #$0000 L0158DA STAL L020002 LDA L020002 STA $EE TAY BEQ L0158FA PEI $EE PEA ^L037FDD PEA L037FDD JSL L050256 PLY PLY PLY LDA #$0000 BRA L015927 L0158FA STZ L0200FE PEA $0000 TDC CLC ADC #$00FD PHA JSL L015BBF PLY PLY LDX L0200FC LDA L0200FA PHX PHA _HUnlock BCS L015920 LDA #$0000 L015920 STAL L020002 LDA #$0001 L015927 TAY TSC CLC ADC #$0008 TCS TYA PLD RTL L015931 PHD TSC SEC SBC #$00FB TCD ADC #$00F4 TCS _GrafOff BCS L015948 LDA #$0000 L015948 STAL L020002 _VDShutDown BCS L015958 LDA #$0000 L015958 STAL L020002 _FMShutDown BCS L015968 LDA #$0000 L015968 STAL L020002 _ListShutDown BCS L015978 LDA #$0000 L015978 STAL L020002 _DialogShutDown BCS L015988 LDA #$0000 L015988 STAL L020002 _LEShutDown BCS L015998 LDA #$0000 L015998 STAL L020002 _MenuShutDown BCS L0159A8 LDA #$0000 L0159A8 STAL L020002 _CtlShutDown BCS L0159B8 LDA #$0000 L0159B8 STAL L020002 _WindShutDown BCS L0159C8 LDA #$0000 L0159C8 STAL L020002 _EMShutDown BCS L0159D8 LDA #$0000 L0159D8 STAL L020002 _QDShutDown BCS L0159E8 LDA #$0000 L0159E8 STAL L020002 _QDAuxShutDown BCS L0159F8 LDA #$0000 L0159F8 STAL L020002 _SFShutDown BCS L015A08 LDA #$0000 L015A08 STAL L020002 _DeskShutDown BCS L015A18 LDA #$0000 L015A18 STAL L020002 _MTShutDown BCS L015A28 LDA #$0000 L015A28 STAL L020002 LDA L02004A PHA _DisposeAll BCS L015A3C LDA #$0000 L015A3C STAL L020002 LDA L02004A PHA _MMShutDown BCS L015A50 LDA #$0000 L015A50 STAL L020002 _TLShutDown BCS L015A60 LDA #$0000 L015A60 STAL L020002 TSC CLC ADC #$0006 TCS PLD RTL sendLDCharDisplay ENT PHD TSC SEC SBC #$00F9 TCD ADC #$00F2 TCS LDA $FF BEQ L015A89 PEA ^L0380A6 ; 1DS Character display on PEA L0380A6 JSL sendLDCommand PLY PLY BRA L015A95 L015A89 PEA ^L0380AA ; 0DS Character dispaly off PEA L0380AA JSL sendLDCommand PLY PLY L015A95 TAY TSC CLC ADC #$0006 TCS TYA PLD RTL sendLDKeyLock PHD TSC SEC SBC #$00F9 TCD ADC #$00F2 TCS LDA $FF BEQ L015ABC PEA ^L0380AE ; 1KL PEA L0380AE JSL sendLDCommand PLY PLY BRA L015AC8 L015ABC PEA ^L0380B2 ; 0KL PEA L0380B2 JSL sendLDCommand PLY PLY L015AC8 TAY TSC CLC ADC #$0006 TCS TYA PLD RTL L015AD2 PHD TSC SEC SBC #$00FB TCD ADC #$00E8 TCS LDX L020092 LDA L020090 STX $F4 STA $F2 LDX #$0000 LDA #$0020 PHX PHA LDX L0200C2 LDA L0200C0 CLC JSL L012F07 PLY PLY STX $EC STA $EA STZ $EE STZ $F0 BRA L015B2C L015B06 LDA #$0D2D LDY #$001C STA [$F2],Y INC $EE BNE L015B14 INC $F0 L015B14 LDX $F0 LDA $EE LDX $F4 LDA $F2 CLC ADC #$0020 STA $F2 PHA LDA $F4 BCC L015B28 INC L015B28 TAX STA $F4 PLA L015B2C SEC LDA $EE SBC $EA BNE L015B39 LDA $F0 SBC $EC BRA L015B3F L015B39 LDA $F0 SBC $EC REP #$02 L015B3F BCC L015B06 TSC CLC ADC #$0012 TCS PLD RTL L015B49 ENT PHD TSC SEC SBC #$00FB TCD ADC #$00E2 TCS PEA ^L0380B6 PEA L0380B6 JSL L017084 PLY PLY STA $F4 CMP #$0000 BEQ L015B6C LDA #$0000 BRA L015B98 L015B6C PEA $0000 TDC CLC ADC #$00E4 PHA JSL receiveString PLY PLY STA $F4 CMP #$0000 BEQ L015B89 LDA #$0000 BRA L015B98 BRA L015B98 L015B89 PEA $0000 TDC CLC ADC #$00E4 PHA JSL L013150 PLY PLY L015B98 TAY TSC CLC ADC #$0018 TCS TYA PLD RTL L015BA2 PHD TSC SEC SBC #$00FB TCD ADC #$00F2 TCS LDAL $01C034 STA $F4 LDA $F4 TAY TSC CLC ADC #$0008 TCS TYA PLD RTL L015BBF PHD TSC SEC SBC #$00F7 TCD ADC #$00EA TCS LDA L0200FE STA $EC LDX #$0000 TAY BPL L015BD6 DEX L015BD6 PEA $0000 PEA $0005 CLC JSL L013048 LDX L0200FC LDA L0200FA STA $F2 STX $F4 LDY #$0002 LDA [$F2],Y TAX LDA [$F2] JSL L012E77 PLA PLX STX $F0 STA $EE INC L0200FE PEA $0005 PEA $0000 PEI $F0 PEI $EE JSL L013EB9 PLY PLY PLY PLY LDY #$0002 LDA [$FD],Y TAX LDA [$FD] STA $F2 STX $F4 LDA [$F2] AND #$00FF CMP #$0080 BNE L015C70 LDY #$0002 LDA [$FD],Y TAX LDA [$FD] PHX PHA CLC ADC #$0001 STA [$FD] LDY #$0002 LDA [$FD],Y BCC L015C40 INC L015C40 LDY #$0002 STA [$FD],Y PLA PLX LDA #$0080 SEP #$20 STA [$EE] REP #$20 PEI $FF PEI $FD JSL L015BBF PLY PLY LDY #$0001 STA [$EE],Y PEI $FF PEI $FD JSL L015BBF PLY PLY LDY #$0003 STA [$EE],Y BRA L015CCE L015C70 LDY #$0002 LDA [$FD],Y TAX LDA [$FD] STA $F2 STX $F4 LDA [$F2] AND #$00FF CMP #$000D BNE L015C8B LDA #$000A BRA L015C9C L015C8B LDY #$0002 LDA [$FD],Y TAX LDA [$FD] STA $F2 STX $F4 LDA [$F2] AND #$00FF L015C9C SEP #$20 STA [$EE] REP #$20 LDY #$0002 LDA [$FD],Y TAX LDA [$FD] PHX PHA CLC ADC #$0001 STA [$FD] LDY #$0002 LDA [$FD],Y BCC L015CBA INC L015CBA LDY #$0002 STA [$FD],Y PLA PLX LDA #$FFFF LDY #$0003 STA [$EE],Y LDY #$0001 STA [$EE],Y L015CCE LDA $EC TAY TSC CLC ADC #$000C TCS TYA PLD RTL L015CDA ENT PHD TSC SEC SBC #$00F9 TCD ADC #$00F0 TCS LDA $FF AND #$00FF AND #$000F STA $F2 LDAL $01C034 AND #$FFF0 ORA $F2 STAL $01C034 TSC CLC ADC #$0008 TCS PLD RTL L015D04 ENT PHD TSC SEC SBC #$00F5 TCD ADC #$00E6 TCS LDA #$0001 STA $E8 LDA $FD AND #$00FF AND #$0001 TAY BEQ L015D39 LDAL L031DD2 CMP $FB BEQ L015D2B STZ $E8 BRA L015D39 L015D2B LDA $FD AND #$00FF EOR #$0001 SEP #$20 STA $FD REP #$20 L015D39 LDA $FD AND #$00FF AND #$0002 TAY BEQ L015D5E LDAL L031DD4 CMP $FB BEQ L015D50 STZ $E8 BRA L015D5E L015D50 LDA $FD AND #$00FF EOR #$0002 SEP #$20 STA $FD REP #$20 L015D5E LDA $E8 BEQ L015D65 BRL L015EA2 L015D65 LDA $FB CMP #$0000 BNE L015D70 JSL L012BFB L015D70 LDA $FB CMP #$0000 BNE L015D7B STZ $EC BRA L015D80 L015D7B LDA #$FFFF STA $EC L015D80 LDA $FF BNE L015D89 LDA #$0006 STA $FF L015D89 LDA $FF CMP #$0014 BEQ L015D97 BCC L015D97 LDA #$0014 STA $FF L015D97 LDA $FF PHA LDA #$FFFF CLC JSL L012E82 PLY STA $EA STZ $EE BRA L015E19 L015DA9 LDA $FD AND #$00FF AND #$0001 TAY BEQ L015DC6 PEI $EC _VDKeySetKDiss BCS L015DC2 LDA #$0000 L015DC2 STAL L020002 L015DC6 LDA $FD AND #$00FF AND #$0002 TAY BEQ L015DE3 PEI $EC _VDKeySetNKDiss BCS L015DDF LDA #$0000 L015DDF STAL L020002 L015DE3 LDA $FB CMP #$0000 BNE L015DEE LDA $EA BRA L015DF4 L015DEE LDA $EA EOR #$FFFF INC L015DF4 PHA LDA $EC PLX STX $F4 CLC ADC $F4 STA $EC LDA $FF SEC SBC #$0001 CMP $EE BEQ L015E17 BCC L015E17 PEA $0000 PEA $0002 JSL L013212 PLY PLY L015E17 INC $EE L015E19 LDA $EE CMP $FF BCC L015DA9 LDA $FB CMP #$0000 BNE L015E2B LDA #$FFFF BRA L015E2E L015E2B LDA #$0000 L015E2E STA $EC LDA $FD AND #$00FF AND #$0001 TAY BEQ L015E4D PEI $EC _VDKeySetKDiss BCS L015E49 LDA #$0000 L015E49 STAL L020002 L015E4D LDA $FD AND #$00FF AND #$0002 TAY BEQ L015E6A PEI $EC _VDKeySetNKDiss BCS L015E66 LDA #$0000 L015E66 STAL L020002 L015E6A LDA $FD AND #$00FF AND #$0001 TAY BEQ L015E7B LDA $FB STAL L031DD2 L015E7B LDA $FD AND #$00FF AND #$0002 TAY BEQ L015E8C LDA $FB STAL L031DD4 L015E8C LDAL L031DD4 CMP #$0001 BNE L015EA2 LDAL L031DD2 CMP #$0001 BNE L015EA2 JSL L012E00 L015EA2 TAY TSC CLC ADC #$000E TCS TYA PLD RTL L015EAC PHD TSC SEC SBC #$00F1 TCD ADC #$FF5E TCS LDA L0200EC BEQ L015ECC _HideCursor BCS L015EC8 LDA #$0000 L015EC8 STAL L020002 L015ECC LDA $FF AND #$00FF BRL L0168B5 L015ED4 LDA #$008C STA $D6 LDA #$0057 STA $D8 LDA #$0028 STA $DA LDA #$0017 STA $DC LDA #$0001 STA $E4 BRA L015F2E L015EEF PEA $0000 TDC CLC ADC #$00D6 PHA PEI $FD PEI $FB PEI $F9 PEI $F7 JSL L019DBB TAY TSC CLC ADC #$000C TCS TYA LDA $D6 SEC SBC #$000A STA $D6 LDA $D8 SEC SBC #$0005 STA $D8 LDA $DA CLC ADC #$0014 STA $DA LDA $DC CLC ADC #$000C STA $DC INC $E4 L015F2E LDA $E4 CMP #$000C BEQ L015EEF BCC L015EEF LDA #$0000 STA $D6 LDA #$000D STA $D8 LDA #$0140 STA $DA LDA #$00BB STA $DC PEA $0000 TDC CLC ADC #$00D6 PHA PEI $FD PEI $FB PEI $F9 PEI $F7 JSL L019DBB TAY TSC CLC ADC #$000C TCS TYA BRL L0168C2 L015F6B LDA #$0000 STA $D6 LDA #$00C7 STA $E0 LDA #$00A0 STA $D2 STA $DA STA $CE LDA #$0001 STA $D4 STA $DC LDA #$000D STA $E4 BRA L015FD2 L015F8C LDA $E0 DEC $E0 STA $D8 LDA $E4 STA $D0 PEA $0000 TDC CLC ADC #$00D6 PHA PEI $FD PEI $FB PEI $F9 PEI $F7 JSL L019DBB TAY TSC CLC ADC #$000C TCS TYA PEA $0000 TDC CLC ADC #$00CE PHA PEI $FD PEI $FB PEI $F9 PEI $F7 JSL L019DBB TAY TSC CLC ADC #$000C TCS TYA INC $E4 L015FD2 LDA $E4 CMP #$00C7 BEQ L015F8C BCC L015F8C BRL L0168C2 L015FDE LDA #$0001 STA $DC LDA #$0140 STA $DA LDA #$0000 STA $D6 LDA #$000D STA $E4 BRA L016035 L015FF4 LDA $E4 STA $E0 LDA #$0001 STA $E2 BRA L01602A L015FFF LDA $E0 STA $D8 PEA $0000 TDC CLC ADC #$00D6 PHA PEI $FD PEI $FB PEI $F9 PEI $F7 JSL L019DBB TAY TSC CLC ADC #$000C TCS TYA LDA $E0 CLC ADC #$001F STA $E0 INC $E2 L01602A LDA $E2 CMP #$0006 BEQ L015FFF BCC L015FFF INC $E4 L016035 LDA $E4 CMP #$002B BEQ L015FF4 BCC L015FF4 LDA #$00C7 STA $D8 PEA $0000 TDC CLC ADC #$00D6 PHA PEI $FD PEI $FB PEI $F9 PEI $F7 JSL L019DBB TAY TSC CLC ADC #$000C TCS TYA BRL L0168C2 L016063 LDA #$000D STA $E0 STZ $DE STZ $E4 BRL L0160F7 L01606F STZ $E2 BRA L0160E2 L016073 LDA $E2 ASL ASL LDX #$0000 PHX PHA LDA $E4 ASL ASL ASL ASL ASL LDX #$0000 PHX PHA LDX #$0000 TDC CLC ADC #$0026 JSL L012E77 PLA PLX JSL L012E77 PLA PLX STA $EC STX $EE LDA $DE LDY #$0002 STA [$EC],Y LDA $E2 ASL ASL LDX #$0000 PHX PHA LDA $E4 ASL ASL ASL ASL ASL LDX #$0000 PHX PHA LDX #$0000 TDC CLC ADC #$0026 JSL L012E77 PLA PLX JSL L012E77 PLA PLX STA $EC STX $EE LDA $E0 STA [$EC] LDA $DE CLC ADC #$0028 STA $DE INC $E2 L0160E2 LDA $E2 CMP #$0007 BEQ L016073 BCC L016073 LDA $E0 CLC ADC #$0025 STA $E0 STZ $DE INC $E4 L0160F7 LDA $E4 CMP #$0004 BNE L016101 BRL L01606F L016101 BCS L016106 BRL L01606F L016106 LDX #$0000 TDC CLC ADC #$FF60 STA $EC STX $EE LDA #$0002 LDY #$0002 STA [$EC],Y LDA #$0003 LDX #$FF60 STA $00,X LDX #$0000 TDC CLC ADC #$FF64 STA $EC STX $EE LDA #$0001 LDY #$0002 STA [$EC],Y LDA #$0007 LDX #$FF64 STA $00,X LDX #$0000 TDC CLC ADC #$FF68 STA $EC STX $EE LDA #$0000 LDY #$0002 STA [$EC],Y LDA #$0005 LDX #$FF68 STA $00,X LDX #$0000 TDC CLC ADC #$FF6C STA $EC STX $EE LDA #$0004 LDY #$0002 STA [$EC],Y LDA #$0001 LDX #$FF6C STA $00,X LDX #$0000 TDC CLC ADC #$FF70 STA $EC STX $EE LDA #$0001 LDY #$0002 STA [$EC],Y LDA #$0005 LDX #$FF70 STA $00,X LDX #$0000 TDC CLC ADC #$FF74 STA $EC STX $EE LDA #$0002 LDY #$0002 STA [$EC],Y LDA #$0002 LDX #$FF74 STA $00,X LDX #$0000 TDC CLC ADC #$FF78 STA $EC STX $EE LDA #$0004 LDY #$0002 STA [$EC],Y LDA #$0006 LDX #$FF78 STA $00,X LDX #$0000 TDC CLC ADC #$FF7C STA $EC STX $EE LDA #$0000 LDY #$0002 STA [$EC],Y LDA #$0007 LDX #$FF7C STA $00,X LDX #$0000 TDC CLC ADC #$FF80 STA $EC STX $EE LDA #$0004 LDY #$0002 STA [$EC],Y LDA #$0003 LDX #$FF80 STA $00,X LDX #$0000 TDC CLC ADC #$FF84 STA $EC STX $EE LDA #$0002 LDY #$0002 STA [$EC],Y LDA #$0001 LDX #$FF84 STA $00,X LDX #$0000 TDC CLC ADC #$FF88 STA $EC STX $EE LDA #$0004 LDY #$0002 STA [$EC],Y LDA #$0004 LDX #$FF88 STA $00,X LDX #$0000 TDC CLC ADC #$FF8C STA $EC STX $EE LDA #$0000 LDY #$0002 STA [$EC],Y LDA #$0000 LDX #$FF8C STA $00,X LDX #$0000 TDC CLC ADC #$FF90 STA $EC STX $EE LDA #$0000 LDY #$0002 STA [$EC],Y LDA #$0003 LDX #$FF90 STA $00,X LDX #$0000 TDC CLC ADC #$FF94 STA $EC STX $EE LDA #$0004 LDY #$0002 STA [$EC],Y LDA #$0007 LDX #$FF94 STA $00,X LDX #$0000 TDC CLC ADC #$FF98 STA $EC STX $EE LDA #$0002 LDY #$0002 STA [$EC],Y LDA #$0006 LDX #$FF98 STA $00,X LDX #$0000 TDC CLC ADC #$FF9C STA $EC STX $EE LDA #$0003 LDY #$0002 STA [$EC],Y LDA #$0002 LDX #$FF9C STA $00,X LDX #$0000 TDC CLC ADC #$FFA0 STA $EC STX $EE LDA #$0001 LDY #$0002 STA [$EC],Y LDA #$0001 LDX #$FFA0 STA $00,X LDX #$0000 TDC CLC ADC #$FFA4 STA $EC STX $EE LDA #$0004 LDY #$0002 STA [$EC],Y LDA #$0005 LDX #$FFA4 STA $00,X LDX #$0000 TDC CLC ADC #$FFA8 STA $EC STX $EE LDA #$0002 LDY #$0002 STA [$EC],Y LDA #$0000 LDX #$FFA8 STA $00,X LDX #$0000 TDC CLC ADC #$FFAC STA $EC STX $EE LDA #$0004 LDY #$0002 STA [$EC],Y LDA #$0000 LDX #$FFAC STA $00,X LDX #$0000 TDC CLC ADC #$FFB0 STA $EC STX $EE LDA #$0002 LDY #$0002 STA [$EC],Y LDA #$0004 LDX #$FFB0 STA $00,X LDX #$0000 TDC CLC ADC #$FFB4 STA $EC STX $EE LDA #$0000 LDY #$0002 STA [$EC],Y LDA #$0002 LDX #$FFB4 STA $00,X LDX #$0000 TDC CLC ADC #$FFB8 STA $EC STX $EE LDA #$0000 LDY #$0002 STA [$EC],Y LDA #$0006 LDX #$FFB8 STA $00,X LDX #$0000 TDC CLC ADC #$FFBC STA $EC STX $EE LDA #$0003 LDY #$0002 STA [$EC],Y LDA #$0001 LDX #$FFBC STA $00,X LDX #$0000 TDC CLC ADC #$FFC0 STA $EC STX $EE LDA #$0003 LDY #$0002 STA [$EC],Y LDA #$0006 LDX #$FFC0 STA $00,X LDX #$0000 TDC CLC ADC #$FFC4 STA $EC STX $EE LDA #$0001 LDY #$0002 STA [$EC],Y LDA #$0002 LDX #$FFC4 STA $00,X LDX #$0000 TDC CLC ADC #$FFC8 STA $EC STX $EE LDA #$0002 LDY #$0002 STA [$EC],Y LDA #$0007 LDX #$FFC8 STA $00,X LDX #$0000 TDC CLC ADC #$FFCC STA $EC STX $EE LDA #$0003 LDY #$0002 STA [$EC],Y LDA #$0000 LDX #$FFCC STA $00,X LDX #$0000 TDC CLC ADC #$FFD0 STA $EC STX $EE LDA #$0001 LDY #$0002 STA [$EC],Y LDA #$0006 LDX #$FFD0 STA $00,X LDX #$0000 TDC CLC ADC #$FFD4 STA $EC STX $EE LDA #$0003 LDY #$0002 STA [$EC],Y LDA #$0004 LDX #$FFD4 STA $00,X LDX #$0000 TDC CLC ADC #$FFD8 STA $EC STX $EE LDA #$0001 LDY #$0002 STA [$EC],Y LDA #$0000 LDX #$FFD8 STA $00,X LDX #$0000 TDC CLC ADC #$FFDC STA $EC STX $EE LDA #$0003 LDY #$0002 STA [$EC],Y LDA #$0005 LDX #$FFDC STA $00,X LDX #$0000 TDC CLC ADC #$FFE0 STA $EC STX $EE LDA #$0003 LDY #$0002 STA [$EC],Y LDA #$0003 LDX #$FFE0 STA $00,X LDX #$0000 TDC CLC ADC #$FFE4 STA $EC STX $EE LDA #$0002 LDY #$0002 STA [$EC],Y LDA #$0005 LDX #$FFE4 STA $00,X LDX #$0000 TDC CLC ADC #$FFE8 STA $EC STX $EE LDA #$0003 LDY #$0002 STA [$EC],Y LDA #$0007 LDX #$FFE8 STA $00,X LDX #$0000 TDC CLC ADC #$FFEC STA $EC STX $EE LDA #$0004 LDY #$0002 STA [$EC],Y LDA #$0002 LDX #$FFEC STA $00,X LDX #$0000 TDC CLC ADC #$FFF0 STA $EC STX $EE LDA #$0000 LDY #$0002 STA [$EC],Y LDA #$0004 LDX #$FFF0 STA $00,X LDX #$0000 TDC CLC ADC #$FFF4 STA $EC STX $EE LDA #$0001 LDY #$0002 STA [$EC],Y LDA #$0004 LDX #$FFF4 STA $00,X LDX #$0000 TDC CLC ADC #$FFF8 STA $EC STX $EE LDA #$0001 LDY #$0002 STA [$EC],Y LDA #$0003 LDX #$FFF8 STA $00,X LDX #$0000 TDC CLC ADC #$FFFC STA $EC STX $EE LDA #$0000 LDY #$0002 STA [$EC],Y LDA #$0001 LDX #$FFFC STA $00,X LDA #$0028 STA $DA LDA #$0026 STA $DC STZ $E4 BRL L01666B L016575 LDA $E4 ASL ASL LDX #$0000 PHX PHA LDX #$0000 TDC CLC ADC #$FF60 JSL L012E77 PLA PLX STA $EC STX $EE LDA [$EC] ASL ASL LDX #$0000 PHX PHA LDA $E4 ASL ASL LDX #$0000 PHX PHA LDX #$0000 TDC CLC ADC #$FF60 JSL L012E77 PLA PLX STA $EC STX $EE LDY #$0002 LDA [$EC],Y ASL ASL ASL ASL ASL LDX #$0000 PHX PHA LDX #$0000 TDC CLC ADC #$0026 JSL L012E77 PLA PLX JSL L012E77 PLA PLX STA $EC STX $EE LDY #$0002 LDA [$EC],Y STA $D6 LDA $E4 ASL ASL LDX #$0000 PHX PHA LDX #$0000 TDC CLC ADC #$FF60 JSL L012E77 PLA PLX STA $EC STX $EE LDA [$EC] ASL ASL LDX #$0000 PHX PHA LDA $E4 ASL ASL LDX #$0000 PHX PHA LDX #$0000 TDC CLC ADC #$FF60 JSL L012E77 PLA PLX STA $EC STX $EE LDY #$0002 LDA [$EC],Y ASL ASL ASL ASL ASL LDX #$0000 PHX PHA LDX #$0000 TDC CLC ADC #$0026 JSL L012E77 PLA PLX JSL L012E77 PLA PLX STA $EC STX $EE LDA [$EC] STA $D8 PEA $0000 TDC CLC ADC #$00D6 PHA PEI $FD PEI $FB PEI $F9 PEI $F7 JSL L019DBB TAY TSC CLC ADC #$000C TCS TYA INC $E4 L01666B LDA $E4 CMP #$0027 BNE L016675 BRL L016575 L016675 BCS L01667A BRL L016575 L01667A LDA #$0000 STA $D6 LDA #$000D STA $D8 LDA #$0140 STA $DA LDA #$0002 STA $DC PEA $0000 TDC CLC ADC #$00D6 PHA PEI $FD PEI $FB PEI $F9 PEI $F7 JSL L019DBB TAY TSC CLC ADC #$000C TCS TYA LDX $F9 LDA $F7 CLC ADC #$7C60 PHA TXA ADC #$0000 TAX PLA PHX PHA LDX $FD LDA $FB CLC ADC #$7C60 PHA TXA ADC #$0000 TAX PLA PHX PHA PEA $0000 PEA $00A0 _BlockMove BCS L0166DF LDA #$0000 L0166DF STAL L020002 BRL L0168C2 L0166E6 PHP PHA PHY REP #$20 LDY #$0820 L0166EE LDA [$F7],Y STA [$FB],Y INY INY CPY #$7D00 BNE L0166EE PLY PLA PLP BRL L0168C2 L0166FF PHP PHA PHX PHY REP #$20 LDA #$0820 STA $EA L01670A LDX #$000D LDA #$0000 CLC ADC $EA TAY L016714 LDA [$F7],Y STA [$FB],Y TYA CLC ADC #$00A0 TAY INX CPX #$00C8 BNE L016714 LDY $EA INY INY STY $EA CPY #$08C0 BNE L01670A PLY PLX PLA PLP BRL L0168C2 L016736 PHP PHA PHX PHY REP #$20 LDA #$08BE STA $EA L016741 LDX #$000D LDA #$0000 CLC ADC $EA TAY L01674B LDA [$F7],Y STA [$FB],Y TYA CLC ADC #$00A0 TAY INX CPX #$00C8 BNE L01674B LDY $EA DEY DEY STY $EA CPY #$0820 BPL L016741 PLY PLX PLA PLP BRL L0168C2 L01676D PHP PHA PHX PHY REP #$20 LDA #$0014 STA $E8 LDA #$0000 STA $E6 LDA #$0820 STA $EA L016782 LDX #$000D LDA #$0000 CLC ADC $EA TAY L01678C SEP #$20 LDA [$F7],Y STA [$FB],Y REP #$20 TYA CLC ADC #$00A0 TAY INX CPX #$00C8 BNE L01678C LDA $EA CLC ADC $E8 STA $EA CMP #$08C0 BMI L016782 LDY $E6 INY STY $E6 LDA #$0820 CLC ADC $E6 STA $EA CPY $E8 BNE L016782 PLY PLX PLA PLP BRL L0168C2 L0167C4 LDA #$7C60 STA $E2 LDA #$0820 STA $E0 LDA #$0001 STA $E4 BRA L01684F L0167D5 LDA $E0 LDX #$0000 PHX PHA LDX $F9 LDA $F7 JSL L012E77 LDA $E0 LDX #$0000 PHX PHA LDX $FD LDA $FB JSL L012E77 PEA $0000 PEA $00A0 _BlockMove BCS L016805 LDA #$0000 L016805 STAL L020002 LDA $E2 LDX #$0000 PHX PHA LDX $F9 LDA $F7 JSL L012E77 LDA $E2 LDX #$0000 PHX PHA LDX $FD LDA $FB JSL L012E77 PEA $0000 PEA $00A0 _BlockMove BCS L016839 LDA #$0000 L016839 STAL L020002 LDA $E2 SEC SBC #$00A0 STA $E2 LDA $E0 CLC ADC #$00A0 STA $E0 INC $E4 L01684F LDA $E4 CMP #$005E BNE L016859 BRL L0167D5 L016859 BCS L01685E BRL L0167D5 L01685E BRL L0168C2 L016861 LDX $F9 LDA $F7 CLC ADC #$0820 PHA TXA ADC #$0000 TAX PLA PHX PHA LDX $FD LDA $FB CLC ADC #$0820 PHA TXA ADC #$0000 TAX PLA PHX PHA PEA $0000 PEA $74E0 _BlockMove BCS L016895 LDA #$0000 L016895 STAL L020002 BRL L0168C2 BRL L0168C2 L01689F DA L016861 DA L01676D DA L015ED4 DA L015F6B DA L015FDE DA L0166FF DA L016063 DA L016736 DA L0167C4 DA L0166E6 DA L016861 L0168B5 CMP #$000A BCC L0168BD LDA #$000A L0168BD ASL TAX JMP (L01689F,X) L0168C2 LDA L0200EC BEQ L0168D7 _ShowCursor BCS L0168D3 LDA #$0000 L0168D3 STAL L020002 L0168D7 TSC CLC ADC #$0192 TCS PLD RTL L0168DF ENT PHD TSC SEC SBC #$00F7 TCD ADC #$00F0 TCS LDA #$0000 AND #$00FF PHA PEA $0001 JSL L012C5A PLY PLY _DrawMenuBar BCS L016906 LDA #$0000 L016906 STAL L020002 TSC CLC ADC #$0006 TCS PLD RTL L016912 PHD TSC SEC SBC #$00EB TCD ADC #$00D8 TCS LDA #$FFFF STA $E2 STZ $DE L016924 LDA #$0001 BNE L01692C BRL L0169A5 L01692C LDA #$0002 PHA LDA $F9 CLC ADC $DE CLC JSL L012E82 PLY STA $E4 LDA $E4 CMP $E2 BNE L016948 LDA #$FFFF BRA L0169A5 L016948 LDA $E4 PHA LDA $FB CLC JSL L013003 PLA LDX #$0000 PHX PHA LDX $F7 LDA $F5 JSL L012E77 PLA PLX STX $DC STA $DA PEI $DC PEI $DA PEI $F3 PEI $F1 LDA $FD LDX $FF JSL L014572 PLY PLY PLY PLY STA $E0 CMP #$0000 BNE L016987 LDA $E4 BRA L0169A5 BRA L0169A2 L016987 LDA $E0 SEC SBC #$0000 BVS L016992 EOR #$8000 L016992 BMI L01699C LDA $E4 STA $E2 STA $F9 BRA L0169A2 L01699C LDA $E4 STA $E2 STA $DE L0169A2 BRL L016924 L0169A5 TAY TSC CLC ADC #$0012 TCS TYA PLD RTL getSerialInputStatus PHD ; serial: is input ready? TSC SEC SBC #$00FB TCD ADC #$00F4 TCS PEA $0001 JSL llSerialStatus ; Do you have input ready? PLY ; 0: no, not ready TAY ; 1: yes, ready TSC CLC ADC #$0006 TCS TYA PLD RTL L0169CC PHD TSC SEC SBC #$00F9 TCD ADC #$00EE TCS LDA #L038578 LDX #^L038578 STX $F2 STA $F0 L0169E1 LDY #$0004 LDA [$F0],Y TAX LDY #$0002 LDA [$F0],Y STX $F4 ORA $F4 BEQ L016A27 LDA [$F0] CMP $FF BNE L016A19 LDY #$0008 LDA [$F0],Y TAX LDY #$0006 LDA [$F0],Y PHX PHA PEA ^L038708 PEA L038708 JSL L050256 PLY PLY PLY PLY LDX $F2 LDA $F0 BRA L016A2D L016A19 LDA $F0 CLC ADC #$000A STA $F0 BCC L016A25 INC $F2 L016A25 BRA L0169E1 L016A27 LDX #$0000 LDA #$0000 L016A2D TAY TSC CLC ADC #$000A TCS TYA PLD RTL L016A37 PHD TSC SEC SBC #$00EF TCD ADC #$0092 TCS STZ $E4 PEI $F7 PEI $F5 PEA $0000 TDC CLC ADC #$00BC PHA JSL L014524 PLY PLY PLY PLY PEI $FB PEI $F9 PEA $0000 TDC CLC ADC #$0094 PHA JSL L014524 PLY PLY PLY PLY PEA $0000 TDC CLC ADC #$00BC PHA JSL L013A1F PLY PLY PEA $0000 TDC CLC ADC #$0094 PHA JSL L013A1F PLY PLY LDA #L037DCD LDX #^L037DCD PHA TXA STAL L037D5B PLA STAL L037D59 LDX #$0000 TDC CLC ADC #$00BC PHA TXA STAL L037D73 PLA STAL L037D71 LDX #$0000 TDC CLC ADC #$0094 PHA TXA STAL L037D8B PLA STAL L037D89 L016AC3 LDA $E4 BEQ L016ACA BRL L016B3A L016ACA PHA PEA ^L037D95 PEA L037D95 PEA $0000 PEA $0000 _CautionAlert BCS L016AE3 LDA #$0000 L016AE3 STAL L020002 PLA STA $E8 LDA $E8 CMP #$0001 BNE L016B12 JSL L014C78 PEI $FF PEI $FD _DrawControls BCS L016B05 LDA #$0000 L016B05 STAL L020002 LDA #$0001 STA $E4 STA $E6 BRA L016B38 L016B12 LDA $E8 CMP #$0002 BNE L016B38 JSL L014C78 PEI $FF PEI $FD _DrawControls BCS L016B2D LDA #$0000 L016B2D STAL L020002 STZ $E6 LDA #$0001 STA $E4 L016B38 BRA L016AC3 L016B3A LDA $E6 TAY TSC CLC ADC #$005C TCS TYA PLD RTL L016B46 ENT PHD TSC SEC SBC #$00F7 TCD ADC #$00EC TCS LDX $FF LDA $FD CLC ADC #$0004 PHA TXA ADC #$0000 TAX PLA STX $F0 STA $EE LDA [$EE] AND #$00FF BEQ L016B70 LDA #$0001 ; char display on BRA L016B73 L016B70 LDA #$0000 ; char display off L016B73 PHA JSL sendLDCharDisplay PLY TSC CLC ADC #$000A TCS PLD RTL L016B81 ENT PHD TSC SEC SBC #$00F7 TCD ADC #$00E8 TCS LDX $FF LDA $FD CLC ADC #$0004 PHA TXA ADC #$0000 TAX PLA STX $F0 STA $EE LDA [$EE] PHA LDX L020082 LDA L020080 PHX PHA JSL L018F17 PLY PLY PLY STX $EC STA $EA PEI $EC PEI $EA JSL L016F2D PLY PLY TSC CLC ADC #$000E TCS PLD RTL receiveString PHD TSC SEC SBC #$00F7 TCD ADC #$00EB TCS LDX $FF LDA $FD STX $EF STA $ED SEP #$20 STZ $F1 REP #$20 L016BE0 LDA $F1 AND #$00FF CMP #$000D BEQ L016C38 JSL checkInputReady ; ready to read a character? CMP #$0001 BNE L016BFD LDA L020100 BEQ L016BFD LDA #$0001 BRA L016C44 L016BFD PEA $0000 TDC CLC ADC #$00F1 PHA JSL llSerialRead ; 0: char read, 2: error encountered PLY PLY CMP #$0002 BNE L016C16 LDA #$0002 BRA L016C44 L016C16 LDA $F1 AND #$00FF CMP #$000D BEQ L016C36 LDX $EF LDA $ED INC $ED BNE L016C2A INC $EF L016C2A STA $F2 STX $F4 LDA $F1 SEP #$20 STA [$F2] REP #$20 L016C36 BRA L016BE0 L016C38 LDA #$0000 SEP #$20 STA [$ED] REP #$20 LDA #$0000 L016C44 TAY TSC CLC ADC #$000B TCS TYA PLD RTL checkInputReady PHD TSC SEC SBC #$00FB TCD ADC #$00F0 TCS PHX PHA _TickCount BCS L016C67 LDA #$0000 L016C67 STAL L020002 PLA PLX STX $F4 STA $F2 L016C71 JSL getSerialInputStatus ; serial: is input ready? TAY BNE L016CAA ; yes, it is LDX #$0000 ; WAIT 1200 / 60 = 20 SECONDS LDA #$04B0 PHX PHA PHX PHA _TickCount BCS L016C8E LDA #$0000 L016C8E STAL L020002 PLA PLX SEC SBC $F2 PHA TXA SBC $F4 TAX PLA JSL L013333 ; 32-bit subtraction BCS L016CA8 LDA #$0001 BRA L016CAD L016CA8 BRA L016C71 L016CAA LDA #$0000 L016CAD TAY TSC CLC ADC #$000A TCS TYA PLD RTL L016CB7 PHA TXA EOR #$FFFF TAX PLA EOR #$FFFF INC BNE L016CC5 INX L016CC5 RTL L016CC6 ENT PHD TSC SEC SBC #$00F7 TCD ADC #$00F0 TCS PEA $0000 _ClearScreen BCS L016CE0 LDA #$0000 L016CE0 STAL L020002 PEA $0006 PEA $0003 PEA $0001 JSL L015D04 PLY PLY PLY TSC CLC ADC #$0006 TCS PLD RTL sendSerialString PHD TSC SEC SBC #$00F7 TCD ADC #$00EE TCS LDA L020102 ; value is 1 AND #$00FF PHA JSL sendSerialCharacter PLY STA $F0 CMP #$0000 BEQ L016D1E LDA $F0 BRA L016D36 L016D1E PEI $FF PEI $FD JSL sendCRString PLY PLY STA $F0 CMP #$0000 BEQ L016D33 LDA $F0 BRA L016D36 L016D33 LDA #$0000 L016D36 TAY TSC CLC ADC #$0008 TCS TYA PLD RTL L016D40 ENT PHD TSC SEC SBC #$00F7 TCD ADC #$00E3 TCS LDA #$000F SEP #$20 STA $E5 REP #$20 LDX $FF LDA $FD CLC ADC #$0004 PHA TXA ADC #$0000 TAX PLA STX $EC STA $EA STX $E8 STA $E6 L016D6B LDA [$E6] AND #$00FF BEQ L016D7A INC $E6 BNE L016D78 INC $E8 L016D78 BRA L016D6B L016D7A INC $E6 BNE L016D80 INC $E8 L016D80 LDX $E8 LDA $E6 STX $F0 STA $EE LDY #$0002 LDA [$FD],Y BEQ L016DAD LDX $F0 LDA $EE CLC ADC #$0006 PHA TXA ADC #$0000 TAX PLA STX $E8 STA $E6 LDY #$0001 LDA [$E6],Y SEP #$20 STA $E5 REP #$20 L016DAD LDA $E5 AND #$00FF PHA LDY #$0004 LDA [$EE],Y PHA LDY #$0002 LDA [$EE],Y PHA LDA [$EE] PHA PEI $EC PEI $EA JSL L0C02CE TAY TSC CLC ADC #$000C TCS TYA TSC CLC ADC #$0013 TCS PLD RTL sendSerialCharacter PHD ; Send command TSC SEC SBC #$00F9 TCD ADC #$00E2 TCS PHX PHA _TickCount BCS L016DF3 LDA #$0000 L016DF3 STAL L020002 PLA PLX STX $E8 STA $E6 L016DFD JSL getSerialOutputStatus ; is serial ready for output? TAY BNE L016E36 ; Yes, ready LDX #$0000 ; WAIT 20 SECONDS LDA #$04B0 PHX PHA PHX PHA _TickCount BCS L016E1A LDA #$0000 L016E1A STAL L020002 PLA PLX SEC SBC $E6 PHA TXA SBC $E8 TAX PLA JSL L013333 BCS L016E34 LDA #$0001 BRA L016E8F L016E34 BRA L016DFD L016E36 LDA $FF ; the character AND #$00FF STA $EA LDX #$0000 LDA #$C10F ; WRITE STA $F4 STX $F6 LDA [$F4] AND #$00FF PHA LDA #$C100 PLX STX $F8 CLC ADC $F8 STA $E4 PEA $0000 PEA $0000 PEA $0000 PEA $0000 PEI $EA PEA $00C2 PEA $0020 PEI $E4 _FWEntry PLA STA $EC PLA STA $EE PLA STA $F0 PLA STA $F2 LDA $EE BEQ L016E8C LDA #$0002 BRA L016E8F BRA L016E8F L016E8C LDA #$0000 L016E8F TAY TSC CLC ADC #$0016 TCS TYA PLD RTL L016E99 PHD TSC SEC SBC #$00F1 TCD ADC #$00E6 TCS LDX $FB LDA $F9 STX $EA STA $E8 L016EAC LDA $F7 CMP #$0001 BEQ L016ED7 BCC L016ED7 LDA [$FD] STA [$F9] LDA $F9 CLC ADC #$0002 STA $F9 BCC L016EC5 INC $FB L016EC5 LDA $FD CLC ADC #$0002 STA $FD BCC L016ED1 INC $FF L016ED1 DEC $F7 DEC $F7 BRA L016EAC L016ED7 LDA $F7 BEQ L016EE3 SEP #$20 LDA [$FD] STA [$F9] REP #$20 L016EE3 LDX $EA LDA $E8 STX $FF STA $FD TDC CLC ADC #$00F1 TCS PLD RTL L016EF3 PHD TSC SEC SBC #$00F9 TCD ADC #$00F2 TCS PEA $0001 PEA ^L030020 PEA L030020 JSL L01505A PLY PLY PLY TDC CLC ADC #$00F9 TCS PLD RTL L016F16 ENT PHD TSC SEC SBC #$00F7 TCD ADC #$00F0 TCS JSL L070E5B TSC CLC ADC #$0006 TCS PLD RTL L016F2D PHD TSC SEC SBC #$00F7 TCD ADC #$00E2 TCS LDX $FF LDA $FD STX $F0 STA $EE LDX $F0 LDA $EE CLC ADC #$0002 PHA TXA ADC #$0000 TAX PLA STX $EC STA $EA STZ $E8 BRL L016FED L016F58 PHX PHA LDAL L031DDC TAX LDAL L031DDA PHX PHA LDA $E8 LDX #$0000 PEA $0000 PEA $000A CLC JSL L013048 LDX $EC LDA $EA JSL L012E77 PEA $0000 PEA $0000 PEA $0080 PEA $0000 PEA $0000 PEA $0000 PEA ^L0138ED PEA L0138ED LDA $E8 LDX #$0000 PEA $0000 PEA $000A CLC JSL L013048 LDX $EC LDA $EA JSL L012E77 PLA PLX STA $F2 STX $F4 LDY #$0008 LDA [$F2],Y LDX #$0000 PHX PHA PEA $0000 PEA $0000 _NewControl BCS L016FCF LDA #$0000 L016FCF STAL L020002 PLA PLX STX $E6 STA $E4 PHX PHA _ShowControl BCS L016FE7 LDA #$0000 L016FE7 STAL L020002 INC $E8 L016FED LDA [$EE] AND #$00FF CMP $E8 BEQ L016FFB BCC L016FFB BRL L016F58 L016FFB LDX $E6 LDA $E4 PHA TXA STAL L031DFA PLA STAL L031DF8 TSC CLC ADC #$0014 TCS PLD RTL resetCommPort PHD TSC SEC SBC #$00FB TCD ADC #$00EA TCS LDA #$0001 SEP #$20 STA L020102 REP #$20 LDX #$0000 LDA #$C10D ; INIT STA $F6 STX $F8 LDA [$F6] AND #$00FF PHA LDA #$C100 PLX STX $FA CLC ADC $FA STA $EC PEA $0000 PEA $0000 PEA $0000 PEA $0000 PEA $0000 PEA $00C2 PEA $0020 PEI $EC _FWEntry PLA STA $EE PLA STA $F0 PLA STA $F2 PLA STA $F4 LDA $F0 BEQ L017077 LDA #$0002 BRA L01707A BRA L01707A L017077 LDA #$0000 L01707A TAY TSC CLC ADC #$0010 TCS TYA PLD RTL L017084 PHD TSC SEC SBC #$00F7 TCD ADC #$00EC TCS JSL checkSerialInputReady STA $EE CMP #$0000 BEQ L01709E LDA $EE BRA L0170AA L01709E PEI $FF PEI $FD JSL sendCRString PLY PLY STA $F0 L0170AA TAY TSC CLC ADC #$000A TCS TYA PLD RTL L0170B4 ENT PHD TSC SEC SBC #$00F7 TCD ADC #$00F0 TCS PEA $0000 PEA ^L038CA9 PEA L038CA9 _SetColorTable BCS L0170D4 LDA #$0000 L0170D4 STAL L020002 PEA $000E PEA $0002 JSL L012C5A PLY PLY LDA #$0003 AND #$00FF PHA JSL L015CDA PLY PEA $EEEE _ClearScreen BCS L0170FF LDA #$0000 L0170FF STAL L020002 LDA #$0001 STAL L031DD6 TSC CLC ADC #$0006 TCS PLD RTL L017112 PHD TSC SEC SBC #$00F3 TCD ADC #$00AE TCS STZ $D0 STZ $CC STZ $C0 STZ $C2 STZ $B4 STZ $B6 PHX PHA _GetDblTime BCS L017137 LDA #$0000 L017137 STAL L020002 PLA PLX STX $BE STA $BC LDX #$0000 LDA #$0F77 STX $EC STA $EA L01714B LDA $CC BEQ L017152 BRL L017315 L017152 PHA PEA $FFFF PEA $0000 TDC CLC ADC #$00D6 PHA _TaskMaster BCS L01716B LDA #$0000 L01716B STAL L020002 PLA STA $CE LDY #$008A LDA [$F9],Y TAX LDY #$0088 LDA [$F9],Y PHX PHA LDX $E8 LDA $E6 JSL L013333 BEQ L01718B BRA L01714B L01718B LDA $CE BRL L0172F3 L017190 PHA PEA $0000 TDC CLC ADC #$00C8 PHA PEI $E2 PEI $E0 LDY #$008A LDA [$F9],Y TAX LDY #$0088 LDA [$F9],Y PHX PHA _FindControl BCS L0171B7 LDA #$0000 L0171B7 STAL L020002 PLA STA $D4 LDA $D4 BNE L0171C5 BRL L0172EC L0171C5 PHA PEI $E2 PEI $E0 PEA $FFFF PEA $FFFF PEI $CA PEI $C8 _TrackControl BCS L0171E0 LDA #$0000 L0171E0 STAL L020002 PLA STA $D2 PHX PHA _GetTick BCS L0171F5 LDA #$0000 L0171F5 STAL L020002 PLA PLX STX $C6 STA $C4 PHX PHA PEA $0000 PEA $0000 LDY #$00C6 LDA [$F9],Y TAX LDY #$00C4 LDA [$F9],Y PHX PHA _NextMember BCS L017220 LDA #$0000 L017220 STAL L020002 PLA PLX STX $BA STA $B8 LDA $D2 CMP $D0 BNE L01726C LDA $D2 CMP #$0081 BEQ L01726C BCC L01726C LDA $B8 CMP $B4 BNE L01726C LDA $BA CMP $B6 BNE L01726C LDX $BE LDA $BC PHX PHA LDX $C6 LDA $C4 SEC SBC $C0 PHA TXA SBC $C2 TAX PLA JSL L013333 BEQ L01726C BCC L01726C LDA [$F9] STA [$FD] LDA #$0001 STA $CC BRL L0172FE L01726C LDA $D2 BRL L0172DF L017271 BRL L0172EC L017274 LDY #$0002 LDA [$C8],Y TAX LDA [$C8] STA $EE STX $F0 LDY #$0022 LDA [$EE],Y TAX LDY #$0020 LDA [$EE],Y STA [$FD] PEA $0002 LDA [$FD] CLC ADC #$0001 ASL ASL LDX #$0000 PHX PHA LDA $F9 CLC ADC #$008C LDX $FB BCC L0172A8 INX L0172A8 JSL L012E77 PLA PLX STA $EE STX $F0 LDY #$0002 LDA [$EE],Y TAX LDA [$EE] PHX PHA _HiliteControl BCS L0172C8 LDA #$0000 L0172C8 STAL L020002 LDA #$0001 STA $CC BRL L0172EC L0172D4 BRL L0172EC L0172D7 DA L017271 DA L0172D4 DA L017274 DA L0172D4 L0172DF CMP #$0003 BCC L0172E7 LDA #$0003 L0172E7 ASL TAX JMP (L0172D7,X) L0172EC BRL L0172FE L0172EF BRA L0172FE BRA L0172FE L0172F3 CMP #$0013 BNE L0172FB BRL L017190 L0172FB JMP L0172EF L0172FE LDA $D2 STA $D0 LDX $C6 LDA $C4 STX $C2 STA $C0 LDX $BA LDA $B8 STX $B6 STA $B4 BRL L01714B L017315 STZ $CE BRA L017359 L017319 LDY #$00B6 LDA [$F9],Y PHA LDA $CE CLC JSL L013003 PLA LDX #$0000 PHX PHA LDY #$0004 LDA [$F9],Y TAX LDY #$0002 LDA [$F9],Y JSL L012E77 PLA PLX STX $B2 STA $B0 LDY #$0004 LDA [$B0],Y AND #$00FF AND #$0080 TAY BEQ L017357 LDA $CE CLC ADC #$0001 BRA L017376 L017357 INC $CE L017359 LDY #$00C6 LDA [$F9],Y TAX LDY #$00C4 LDA [$F9],Y STA $EE STX $F0 LDY #$0008 LDA [$EE],Y CMP $CE BEQ L017373 BCS L017319 L017373 LDA #$0000 L017376 TAY TSC CLC ADC #$0044 TCS TYA PLD RTL L017380 ENT PHD TSC SEC SBC #$00F7 TCD ADC #$00E6 TCS LDA #$0006 STA $E8 LDX $FF LDA $FD CLC ADC #$0004 PHA TXA ADC #$0000 TAX PLA STX $F0 STA $EE LDX $F0 LDA $EE CLC ADC #$0002 PHA TXA ADC #$0000 TAX PLA STX $EC STA $EA LDY #$0002 LDA [$FD],Y BEQ L0173C4 LDY #$0001 LDA [$EA],Y STA $E8 L0173C4 PEI $E8 LDY #$0001 LDA [$EE],Y AND #$00FF PHA LDA [$EE] AND #$00FF PHA JSL L015D04 PLY PLY PLY TSC CLC ADC #$0010 TCS PLD RTL L0173E4 ENT PHD TSC SEC SBC #$00F7 TCD ADC #$00E8 TCS LDX $FF LDA $FD CLC ADC #$0004 PHA TXA ADC #$0000 TAX PLA STX $F0 STA $EE LDX $F0 LDA $EE CLC ADC #$0002 PHA TXA ADC #$0000 TAX PLA STX $EC STA $EA LDY #$0002 LDA [$FD],Y BNE L01741F BRL L017457 L01741F LDA [$EA] AND #$00FF BRL L017448 L017427 JSL L015B49 STAL L031DF6 BRL L017455 L017432 LDAL L031DF6 PHA JSL sendLDStill PLY BRL L017455 L01743F BRL L017455 L017442 DA L017427 DA L017432 DA L01743F L017448 CMP #$0002 BCC L017450 LDA #$0002 L017450 ASL TAX JMP (L017442,X) L017455 BRA L01745F L017457 LDA [$EE] PHA JSL sendLDStill PLY L01745F TSC CLC ADC #$000E TCS PLD RTL L017467 ENT PHD TSC SEC SBC #$00F7 TCD ADC #$00EC TCS LDX $FF LDA $FD CLC ADC #$0004 PHA TXA ADC #$0000 TAX PLA STX $F0 STA $EE LDY #$0002 LDA [$EE],Y TAX LDA [$EE] PHX PHA JSL L013212 PLY PLY TSC CLC ADC #$000A TCS PLD RTL L01749D ENT PHD TSC SEC SBC #$00F7 TCD ADC #$009F TCS STZ $EC LDA #$000F SEP #$20 STA $E5 REP #$20 STZ $D7 STZ $D5 STZ $D3 STZ $D1 STZ $CF LDA #$0001 STA $CD LDA #$0001 STA $CB STZ $C9 STZ $C5 STZ $C7 STZ $C1 STZ $C3 LDX $FF LDA $FD CLC ADC #$0004 PHA TXA ADC #$0000 TAX PLA STX $F0 STA $EE LDA [$EE] PHA LDX L020086 LDA L020084 PHX PHA JSL L018F17 PLY PLY PLY STX $E3 STA $E1 PEA $0008 PEI $E3 PEI $E1 PEA $0000 TDC CLC ADC #$00D9 PHA JSL L013E61 PLY PLY PLY PLY PLY LDX $F0 LDA $EE CLC ADC #$0002 PHA TXA ADC #$0000 TAX PLA STX $E8 STA $E6 STZ L020111 STZ $EC BRL L01784A L01752E LDA [$E6] AND #$00FF BRL L01783B L017536 LDA [$E6] AND #$00FF CMP #$0008 BNE L017545 LDA #$0003 BRA L017548 L017545 LDA #$0001 L017548 PHA LDA L020111 PHA LDA #$000B CLC JSL L013003 PLA LDX #$0000 PHX PHA LDA #L0389E9 LDX #^L0389E9 JSL L012E77 PLA PLX STA $F2 STX $F4 PLA SEP #$20 STA [$F2] REP #$20 LDY #$0003 LDA [$E6],Y PHA LDA L020111 PHA LDA #$000B CLC JSL L013003 PLA LDX #$0000 PHX PHA LDA #L0389E9 LDX #^L0389E9 JSL L012E77 PLA PLX STA $F2 STX $F4 PLA LDY #$0001 STA [$F2],Y LDY #$0001 LDA [$E6],Y PHA LDX L02007A LDA L020078 PHX PHA JSL L018F17 PLY PLY PLY PHX PHA LDA L020111 PHA LDA #$000B CLC JSL L013003 PLA LDX #$0000 PHX PHA LDA #L0389E9 LDX #^L0389E9 JSL L012E77 PLA PLX STA $F2 STX $F4 PLA PLX LDY #$0005 PHA TXA STA [$F2],Y PLA LDY #$0003 STA [$F2],Y INC L020111 LDX $E8 LDA $E6 CLC ADC #$0005 PHA TXA ADC #$0000 TAX PLA STX $E8 STA $E6 BRL L017848 L017601 LDA [$E6] AND #$00FF CMP #$0007 BNE L017610 LDA #$0004 BRA L017613 L017610 LDA #$0002 L017613 PHA LDA L020111 PHA LDA #$000B CLC JSL L013003 PLA LDX #$0000 PHX PHA LDA #L0389E9 LDX #^L0389E9 JSL L012E77 PLA PLX STA $F2 STX $F4 PLA SEP #$20 STA [$F2] REP #$20 LDY #$0001 LDA [$E6],Y PHA LDA L020111 PHA LDA #$000B CLC JSL L013003 PLA LDX #$0000 PHX PHA LDA #L0389E9 LDX #^L0389E9 JSL L012E77 PLA PLX STA $F2 STX $F4 PLA LDY #$0001 STA [$F2],Y LDA L020111 PHA LDA #$000B CLC JSL L013003 PLA LDX #$0000 PHX PHA LDA #L0389E9 LDX #^L0389E9 JSL L012E77 PLA PLX STA $F2 STX $F4 LDX #$0000 LDA #$0000 LDY #$0005 PHA TXA STA [$F2],Y PLA LDY #$0003 STA [$F2],Y LDX $E8 LDA $E6 CLC ADC #$0003 PHA TXA ADC #$0000 TAX PLA STX $E8 STA $E6 LDA $E5 AND #$00FF PHA PEA $0000 TDC CLC ADC #$00E6 PHA JSL L0192D8 PLY PLY PLY PHX PHA LDA L020111 PHA LDA #$000B CLC JSL L013003 PLA LDX #$0000 PHX PHA LDA #L0389E9 LDX #^L0389E9 JSL L012E77 PLA PLX STA $F2 STX $F4 PLA PLX LDY #$0009 PHA TXA STA [$F2],Y PLA LDY #$0007 STA [$F2],Y INC L020111 BRL L017848 L017702 LDY #$0001 LDA [$E6],Y STA $DD LDX $E8 LDA $E6 CLC ADC #$0003 PHA TXA ADC #$0000 TAX PLA STX $E8 STA $E6 BRL L017848 L01771F LDA $DF AND #$00FF EOR #$0003 SEP #$20 STA $DF REP #$20 LDY #$0002 LDA [$E6],Y AND #$00FF PHA LDY #$0001 LDA [$E6],Y AND #$00FF PLX STX $F6 CLC ADC $F6 PHA LDA $DF AND #$00FF PLX STX $F6 ORA $F6 SEP #$20 STA $DF REP #$20 LDX $E8 LDA $E6 CLC ADC #$0003 PHA TXA ADC #$0000 TAX PLA STX $E8 STA $E6 BRL L017848 L01776B LDA $DF AND #$00FF EOR #$0004 SEP #$20 STA $DF REP #$20 INC $E6 BNE L01777F INC $E8 L01777F BRL L017848 L017782 LDA $DF AND #$00FF ORA #$0004 SEP #$20 STA $DF REP #$20 INC $E6 BNE L017796 INC $E8 L017796 BRL L017848 L017799 LDA #$0001 STA $D7 INC $E6 BNE L0177A4 INC $E8 L0177A4 BRL L017848 L0177A7 LDA #$0001 STA $D3 INC $E6 BNE L0177B2 INC $E8 L0177B2 BRL L017848 L0177B5 STZ $CD INC $E6 BNE L0177BD INC $E8 L0177BD BRL L017848 L0177C0 STZ $CB INC $E6 BNE L0177C8 INC $E8 L0177C8 BRL L017848 L0177CB LDA #$0001 STA $C9 INC $E6 BNE L0177D6 INC $E8 L0177D6 BRL L017848 L0177D9 LDA #$0001 STA $D1 INC $E6 BNE L0177E4 INC $E8 L0177E4 BRL L017848 L0177E7 LDA #$0001 STA $CF INC $E6 BNE L0177F2 INC $E8 L0177F2 BRL L017848 L0177F5 LDY #$0001 LDA [$E6],Y SEP #$20 STA $E5 REP #$20 LDX $E8 LDA $E6 CLC ADC #$0002 PHA TXA ADC #$0000 TAX PLA STX $E8 STA $E6 BRL L017848 L017816 BRL L017848 L017819 DA L01771F DA L0177D9 DA L0177E7 DA L0177C0 DA L0177B5 DA L01776B DA L0177A7 DA L017601 DA L017536 DA L0177F5 DA L017702 DA L017601 DA L017536 DA L0177CB DA L017799 DA L017782 DA L017816 L01783B CMP #$0010 BCC L017843 LDA #$0010 L017843 ASL TAX JMP (L017819,X) L017848 INC $EC L01784A LDY #$0002 LDA [$FD],Y CMP $EC BEQ L017858 BCC L017858 BRL L01752E L017858 LDA L020111 BEQ L017861 JSL L01A928 L017861 LDA $D3 BEQ L017895 LDY #$0007 LDA [$E1],Y AND #$00FF AND #$0001 TAY BNE L01787C LDAL L031DE0 CMP #$0000 BNE L017881 L01787C BRL L017AC8 BRA L017895 L017881 LDY #$0007 LDA [$E1],Y AND #$00FF ORA #$0001 SEP #$20 LDY #$0007 STA [$E1],Y REP #$20 L017895 LDA $DF AND #$00FF STAL L031DF0 LDA $D9 STAL L031DF2 LDA $C9 BEQ L0178AE LDA $D9 STA $DB BRA L0178B0 L0178AE LDA $DB L0178B0 STAL L031DF4 LDA $DF AND #$00FF PHA JSL sendLDAudioControl PLY LDA $DF AND #$00FF AND #$0004 TAY BEQ L0178D2 LDA #L01A6F9 LDX #^L01A6F9 BRA L0178D8 L0178D2 LDX #$0000 LDA #$0000 L0178D8 PHX PHA PEI $D7 PEI $DD PEI $DB PEI $D9 JSL L013620 TAY TSC CLC ADC #$000C TCS TYA STA $EA LDA $C9 BEQ L0178F7 BRL L017ABF L0178F7 LDA $D7 BEQ L0178FE BRL L017ABF L0178FE LDA $DF AND #$00FF AND #$0004 TAY BNE L01790C BRL L017ABF L01790C LDA $CD BNE L017917 LDA $CB BNE L017917 BRL L017ABF L017917 LDAL L031DDC TAX LDAL L031DDA PHX PHA _KillControls BCS L01792E LDA #$0000 L01792E STAL L020002 PEA $0001 JSL L01335E PLY PEA $0000 PEA $0000 TDC CLC ADC #$00A1 PHA _GetColorTable BCS L017952 LDA #$0000 L017952 STAL L020002 LDA $CD BEQ L017969 PEA $0000 TDC CLC ADC #$00C5 PHA JSL L018E08 PLY PLY L017969 LDA $CB BEQ L017982 LDAL L031DEE BEQ L017982 PEA $0000 TDC CLC ADC #$00C1 PHA JSL L01AB00 PLY PLY L017982 LDAL L031DD6 BNE L0179CC PEA $0000 PEA ^L038CA9 PEA L038CA9 _SetColorTable BCS L01799D LDA #$0000 L01799D STAL L020002 PEA $000E PEA $0002 JSL L012C5A PLY PLY LDA #$0003 AND #$00FF PHA JSL L015CDA PLY PEA $EEEE _ClearScreen BCS L0179C8 LDA #$0000 L0179C8 STAL L020002 L0179CC LDX $C7 LDA $C5 STX $F2 ORA $F2 BEQ L0179EA PEI $C7 PEI $C5 _DrawOneCtl BCS L0179E6 LDA #$0000 L0179E6 STAL L020002 L0179EA LDX $C3 LDA $C1 STX $F2 ORA $F2 BEQ L017A08 PEI $C3 PEI $C1 _DrawOneCtl BCS L017A04 LDA #$0000 L017A04 STAL L020002 L017A08 PEA $0006 PEA $0002 PEA $0001 JSL L015D04 PLY PLY PLY PEI $CF PEI $D1 PEI $C3 PEI $C1 PEI $C7 PEI $C5 LDA $D9 CMP $DB BEQ L017A34 LDX #$0000 TDC CLC ADC #$00D9 BRA L017A3A L017A34 LDX #$0000 LDA #$0000 L017A3A PHX PHA JSL L019A71 TAY TSC CLC ADC #$0010 TCS TYA PEA $0006 PEA $0002 PEA $0000 JSL L015D04 PLY PLY PLY LDAL L031DDC TAX LDAL L031DDA PHX PHA _KillControls BCS L017A6F LDA #$0000 L017A6F STAL L020002 PEA $0001 JSL L01335E PLY PEA $0000 PEA $0000 TDC CLC ADC #$00A1 PHA _SetColorTable BCS L017A93 LDA #$0000 L017A93 STAL L020002 LDA #$0000 AND #$00FF PHA JSL L015CDA PLY PEA $0000 PEA $0001 JSL L012C5A PLY PLY _DrawMenuBar BCS L017ABB LDA #$0000 L017ABB STAL L020002 L017ABF LDA L020111 BEQ L017AC8 JSL L01A830 L017AC8 TAY TSC CLC ADC #$0057 TCS TYA PLD RTL L017AD2 ENT PHD TSC SEC SBC #$00F7 TCD ADC #$00EC TCS LDX $FF LDA $FD CLC ADC #$0004 PHA TXA ADC #$0000 TAX PLA STX $F0 STA $EE LDA [$EE] AND #$00FF CMP #$0001 BNE L017AFF LDA #$0001 ; scan reverse BRA L017B02 L017AFF LDA #$0000 ; scan forward L017B02 PHA JSL sendLDSCAN PLY TSC CLC ADC #$000A TCS PLD RTL L017B10 PHD TSC SEC SBC #$00EF TCD ADC #$004A TCS STZ $E8 L017B1D LDX $F7 LDA $F5 STX $E6 STA $E4 BRA L017B2D L017B27 INC $F5 BNE L017B2D INC $F7 L017B2D LDA [$F5] AND #$00FF STA $DA CMP #$0000 BEQ L017B40 LDA $DA CMP #$0025 BNE L017B27 L017B40 LDX $E6 LDA $E4 PHX PHA LDX $F7 LDA $F5 JSL L012FF8 PLA PLX STA $50 TAY BNE L017B58 BRL L017C20 L017B58 LDA $E8 CLC ADC $50 STA $E8 LDA $50 CMP #$0001 BNE L017BC1 LDA [$FD] DEC STA [$FD] SEC SBC #$0000 BVS L017B74 EOR #$8000 L017B74 BPL L017BAE LDA [$E4] PHA LDY #$0004 LDA [$FD],Y TAX LDY #$0002 LDA [$FD],Y PHX PHA CLC ADC #$0001 LDY #$0002 STA [$FD],Y LDY #$0004 LDA [$FD],Y BCC L017B97 INC L017B97 LDY #$0004 STA [$FD],Y PLA PLX STA $EA STX $EC PLA SEP #$20 STA [$EA] REP #$20 AND #$00FF BRA L017BBF L017BAE PEI $FF PEI $FD LDA [$E4] AND #$00FF PHA JSL L01AF18 PLY PLY PLY L017BBF BRA L017C20 L017BC1 LDY #$0012 LDA [$FD],Y CMP #$0014 BNE L017C07 LDA $50 LDX #$0000 TAY BPL L017BD4 DEX L017BD4 PHX PHA PEI $50 PEI $E6 PEI $E4 LDY #$0004 LDA [$FD],Y TAX LDY #$0002 LDA [$FD],Y PHX PHA JSL L013E61 PLY PLY PLY PLY PLY JSL L012E77 PLA PLX LDY #$0004 PHA TXA STA [$FD],Y PLA LDY #$0002 STA [$FD],Y BRA L017C20 L017C07 PEI $FF PEI $FD PEI $50 PEA $0001 PEI $E6 PEI $E4 JSL L01ACA1 TAY TSC CLC ADC #$000C TCS TYA L017C20 LDA $DA CMP #$0000 BNE L017C3C LDY #$0010 LDA [$FD],Y AND #$0020 TAY BEQ L017C37 LDA #$FFFF BRA L017C39 L017C37 LDA $E8 L017C39 BRL L018DE3 L017C3C LDA #$0000 STA $CA STA $CC STA $CE STA $D0 STA $D2 L017C49 INC $F5 BNE L017C4F INC $F7 L017C4F LDX $F7 LDA $F5 STA $EA STX $EC LDA [$EA] AND #$00FF STA $DA BRL L017C76 L017C61 INC $D2 BRL L017C8C L017C66 INC $D0 BRL L017C8C L017C6B INC $CE BRL L017C8C L017C70 INC $CC BRA L017C8C BRA L017C8A L017C76 CMP #$0020 BEQ L017C6B CMP #$0023 BEQ L017C70 CMP #$002B BEQ L017C61 CMP #$002D BEQ L017C66 L017C8A BRA L017C8E L017C8C BRA L017C49 L017C8E LDA $DA CMP #$002A BNE L017CDA LDX $FB LDA $F9 CLC ADC #$0002 PHA TXA ADC #$0000 TAX PLA STX $FB STA $F9 CLC ADC #$FFFE PHA TXA ADC #$FFFF TAX PLA STA $EA STX $EC LDA [$EA] STA $DE LDA $DE SEC SBC #$0000 BVS L017CC6 EOR #$8000 L017CC6 BMI L017CD2 LDA $DE EOR #$FFFF INC STA $DE INC $D0 L017CD2 INC $F5 BNE L017CD8 INC $F7 L017CD8 BRA L017D33 L017CDA LDA $DA CMP #$0030 BNE L017CE3 INC $CA L017CE3 STZ $DE BRA L017D08 L017CE7 LDA $DA SEC SBC #$0030 PHA LDA $DE PHA LDA #$000A SEC JSL L013003 PLA PLX STX $EE CLC ADC $EE STA $DE INC $F5 BNE L017D08 INC $F7 L017D08 LDA [$F5] AND #$00FF STA $DA LDX #$0000 TAY BPL L017D16 DEX L017D16 PHX PHA LDA #L037E33 LDX #^L037E33 JSL L012E77 PLA PLX STA $EA STX $EC LDA [$EA] AND #$00FF AND #$0004 TAY BNE L017CE7 L017D33 LDA [$F5] AND #$00FF CMP #$002E BEQ L017D45 LDA #$FFFF STA $DC BRL L017DDB L017D45 INC $F5 BNE L017D4B INC $F7 L017D4B LDX $F7 LDA $F5 STA $EA STX $EC LDA [$EA] AND #$00FF CMP #$002A BNE L017D8B LDX $FB LDA $F9 CLC ADC #$0002 PHA TXA ADC #$0000 TAX PLA STX $FB STA $F9 CLC ADC #$FFFE PHA TXA ADC #$FFFF TAX PLA STA $EA STX $EC LDA [$EA] STA $DC INC $F5 BNE L017D89 INC $F7 L017D89 BRA L017DDB L017D8B STZ $DC BRA L017DB0 L017D8F LDA $DA SEC SBC #$0030 PHA LDA $DC PHA LDA #$000A SEC JSL L013003 PLA PLX STX $EE CLC ADC $EE STA $DC INC $F5 BNE L017DB0 INC $F7 L017DB0 LDA [$F5] AND #$00FF STA $DA LDX #$0000 TAY BPL L017DBE DEX L017DBE PHX PHA LDA #L037E33 LDX #^L037E33 JSL L012E77 PLA PLX STA $EA STX $EC LDA [$EA] AND #$00FF AND #$0004 TAY BNE L017D8F L017DDB STZ $D4 LDA [$F5] AND #$00FF BRL L017DFC L017DE5 INC $D4 L017DE7 INC $F5 BNE L017DED INC $F7 L017DED BRL L017E0D L017DF0 DA L017DE7 DA L017DED DA L017DED DA L017DED DA L017DE5 DA L017DED L017DFC SEC SBC #$0068 CMP #$0005 BCC L017E08 LDA #$0005 L017E08 ASL TAX JMP (L017DF0,X) L017E0D LDA #L0387C6 LDX #^L0387C6 STX $77 STA $75 LDA #$0000 SEP #$20 STA $70 REP #$20 LDX #$0000 TDC CLC ADC #$0070 STX $73 STA $71 LDA #$0000 STA $D6 STA $D8 LDX $F7 LDA $F5 INC $F5 BNE L017E3D INC $F7 L017E3D STA $EA STX $EC LDA [$EA] AND #$00FF STA $DA BRL L0189A4 L017E4B LDA #$0005 STA $4E BRL L017E60 L017E53 LDA #$0004 STA $4E BRL L017E60 L017E5B LDA #$0008 STA $4E L017E60 LDA $DC SEC SBC #$0000 BVS L017E6B EOR #$8000 L017E6B BMI L017E8B LDA $CA BEQ L017E86 LDA $DE SEC SBC #$0000 BEQ L017E86 BVS L017E7E EOR #$8000 L017E7E BPL L017E86 LDA $DE STA $DC BRA L017E8B L017E86 LDA #$0001 STA $DC L017E8B LDA $D4 BEQ L017EBF LDX $FB LDA $F9 CLC ADC #$0004 PHA TXA ADC #$0000 TAX PLA STX $FB STA $F9 CLC ADC #$FFFC PHA TXA ADC #$FFFF TAX PLA STA $EA STX $EC LDY #$0002 LDA [$EA],Y TAX LDA [$EA] STX $68 STA $66 BRA L017F22 L017EBF LDA $DA CMP #$0064 BNE L017EF7 LDX $FB LDA $F9 CLC ADC #$0002 PHA TXA ADC #$0000 TAX PLA STX $FB STA $F9 CLC ADC #$FFFE PHA TXA ADC #$FFFF TAX PLA STA $EA STX $EC LDA [$EA] LDX #$0000 TAY BPL L017EF1 DEX L017EF1 STX $68 STA $66 BRA L017F22 L017EF7 LDX $FB LDA $F9 CLC ADC #$0002 PHA TXA ADC #$0000 TAX PLA STX $FB STA $F9 CLC ADC #$FFFE PHA TXA ADC #$FFFF TAX PLA STA $EA STX $EC LDA [$EA] LDX #$0000 STX $68 STA $66 L017F22 LDA $DA CMP #$0064 BEQ L017F2C BRL L017F97 L017F2C SEC LDA $66 SBC #$0000 BNE L017F3B LDA $68 SBC #$0000 BRA L017F42 L017F3B LDA $68 SBC #$0000 REP #$02 L017F42 BVS L017F47 EOR #$8000 L017F47 BMI L017F79 LDA #L0387C7 LDX #^L0387C7 STX $77 STA $75 SEC LDA $66 SBC #$0000 BNE L017F62 LDA $68 SBC #$8000 BRA L017F69 L017F62 LDA $68 SBC #$8000 REP #$02 L017F69 BEQ L017F77 LDX $68 LDA $66 JSL L016CB7 STX $68 STA $66 L017F77 BRA L017F97 L017F79 LDA $D2 BEQ L017F89 LDA #L0387C9 LDX #^L0387C9 STX $77 STA $75 BRA L017F97 L017F89 LDA $CE BEQ L017F97 LDA #L0387CB LDX #^L0387CB STX $77 STA $75 L017F97 LDA $DA CMP #$0058 BNE L017FA6 LDA #L0387CD LDX #^L0387CD BRA L017FAC L017FA6 LDA #L0387DE LDX #^L0387DE L017FAC STX $56 STA $54 LDX #$0000 TDC CLC ADC #$0084 STX $E6 STA $E4 STX $E2 STA $E0 L017FC0 SEC LDA $66 SBC #$0000 BNE L017FCF LDA $68 SBC #$0000 BRA L017FD6 L017FCF LDA $68 SBC #$0000 REP #$02 L017FD6 BNE L017FDB BRL L01807D L017FDB LDX $68 LDA $66 AND #$0001 PHA TXA AND #$0000 TAX PLA STA $4C LDX #$0000 LDA #$0001 PHX PHA LDX $68 LDA $66 SEC JSL L013B83 PLA PLX AND #$FFFF PHA TXA AND #$7FFF TAX PLA STX $68 STA $66 LDA $4C LDX #$0000 TAY BPL L018015 DEX L018015 PHX PHA LDA $4E LDX #$0000 TAY BPL L018020 DEX L018020 PHX PHA LDX $68 LDA $66 SEC JSL L012F07 PLA PLX STX $EE ASL ROL $EE LDX $EE JSL L012E77 LDX $56 LDA $54 JSL L012E77 PLA PLX STA $EA STX $EC LDA [$EA] PHA LDA $E4 BNE L01804F DEC $E6 L01804F DEC $E4 LDX $E6 LDA $E4 STA $EA STX $EC PLA SEP #$20 STA [$EA] REP #$20 LDA $4E LDX #$0000 TAY BPL L018069 DEX L018069 PHX PHA LDX $68 LDA $66 SEC JSL L012F07 PLY PLY STX $68 STA $66 BRL L017FC0 L01807D LDX $E2 LDA $E0 PHX PHA LDX $E6 LDA $E4 JSL L012FF8 PLA PLX CLC ADC $DC STA $D8 LDA $CC BNE L018099 BRL L0180F5 L018099 SEC LDA $E4 SBC $E0 BNE L0180A6 LDA $E6 SBC $E2 BRA L0180AC L0180A6 LDA $E6 SBC $E2 REP #$02 L0180AC BNE L0180B1 BRL L0180F5 L0180B1 LDA $DA BRL L0180E6 L0180B6 LDA $D8 SEC SBC #$0001 BVS L0180C1 EOR #$8000 L0180C1 BMI L0180C8 LDA #$0001 STA $D8 L0180C8 BRL L0180F5 L0180CB LDA #L0387EF LDX #^L0387EF STX $77 STA $75 BRL L0180F5 L0180D8 LDA #L0387F2 LDX #^L0387F2 STX $77 STA $75 BRA L0180F5 BRA L0180F5 L0180E6 CMP #$0058 BEQ L0180D8 CMP #$006F BEQ L0180B6 CMP #$0078 BEQ L0180CB L0180F5 BRL L0189B7 L0180F8 LDA $DC SEC SBC #$0000 BVS L018103 EOR #$8000 L018103 BMI L01810A LDA #$0006 STA $DC L01810A LDX $FB LDA $F9 CLC ADC #$000A PHA TXA ADC #$0000 TAX PLA STX $FB STA $F9 CLC ADC #$FFF6 PHA TXA ADC #$FFFF TAX PLA STA $EA STX $EC LDY #$0008 LDA [$EA],Y PHA LDY #$0006 LDA [$EA],Y PHA LDY #$0004 LDA [$EA],Y PHA LDY #$0002 LDA [$EA],Y PHA LDA [$EA] PHA PEA $0000 TDC CLC ADC #$005C PHA JSL L01AAA6 PLY PLY PLY PLY PLY L018159 PEA $0000 TDC CLC ADC #$0058 PHA PEA $0000 TDC CLC ADC #$005A PHA LDA $DC CLC ADC #$0001 SEC SBC #$0013 BVS L01817A EOR #$8000 L01817A BMI L018184 LDA $DC CLC ADC #$0001 BRA L018187 L018184 LDA #$0013 L018187 PHA PEI $64 PEI $62 PEI $60 PEI $5E PEI $5C JSL L01A7C0 TAY TSC CLC ADC #$0014 TCS TYA STX $E6 STA $E4 L0181A2 LDA $58 BEQ L0181B2 LDA #L0387F5 LDX #^L0387F5 STX $77 STA $75 BRA L0181D0 L0181B2 LDA $D2 BEQ L0181C2 LDA #L0387F7 LDX #^L0387F7 STX $77 STA $75 BRA L0181D0 L0181C2 LDA $CE BEQ L0181D0 LDA #L0387F9 LDX #^L0387F9 STX $77 STA $75 L0181D0 LDX #$0000 TDC CLC ADC #$0079 STX $E2 STA $E0 LDA [$E4] AND #$00FF CMP #$0049 BEQ L0181F0 LDA [$E4] AND #$00FF CMP #$004E BNE L0181F3 L0181F0 BRL L018396 L0181F3 LDA [$E4] AND #$00FF CMP #$0000 BEQ L018212 LDX $E6 LDA $E4 INC $E4 BNE L018207 INC $E6 L018207 STA $EA STX $EC LDA [$EA] AND #$00FF BRA L018215 L018212 LDA #$0030 L018215 PHA LDX $E2 LDA $E0 INC $E0 BNE L018220 INC $E2 L018220 STA $EA STX $EC PLA SEP #$20 STA [$EA] REP #$20 LDA $DC CMP #$0000 BNE L018236 LDA $CC BEQ L01824D L018236 LDX $E2 LDA $E0 INC $E0 BNE L018240 INC $E2 L018240 STA $EA STX $EC LDA #$002E SEP #$20 STA [$EA] REP #$20 L01824D LDA $DC STA $D6 BRA L01827B L018253 LDX $E6 LDA $E4 INC $E4 BNE L01825D INC $E6 L01825D STA $EA STX $EC LDA [$EA] PHA LDX $E2 LDA $E0 INC $E0 BNE L01826E INC $E2 L01826E STA $EA STX $EC PLA SEP #$20 STA [$EA] REP #$20 DEC $D6 L01827B LDA $D6 SEC SBC #$0000 BEQ L018294 BVS L018288 EOR #$8000 L018288 BPL L018294 LDA [$E4] AND #$00FF CMP #$0000 BNE L018253 L018294 LDX #$0000 TDC CLC ADC #$0079 STX $E6 STA $E4 LDA $5A SEC SBC #$0001 STA $50 LDA $50 SEC SBC #$0000 BVS L0182B3 EOR #$8000 L0182B3 BMI L0182BD LDA $50 EOR #$FFFF INC STA $50 L0182BD LDA #$000A PHA LDA $50 SEC JSL L012E82 PLA CLC ADC #$0030 PHA LDA $71 BNE L0182D4 DEC $73 L0182D4 DEC $71 LDX $73 LDA $71 STA $EA STX $EC PLA SEP #$20 STA [$EA] REP #$20 LDA #$000A PHA LDA $50 SEC JSL L012E82 PLY STA $50 LDA $50 CMP #$0000 BNE L0182BD LDX #$0000 TDC CLC ADC #$0070 SEC SBC #$0002 PHA TXA SBC #$0000 TAX PLA PHX PHA LDX $73 LDA $71 JSL L013333 BVS L01831C EOR #$8000 L01831C BPL L0182BD LDA $5A SEC SBC #$0000 BEQ L018332 BVS L01832B EOR #$8000 L01832B BPL L018332 LDA #$002B BRA L018335 L018332 LDA #$002D L018335 PHA LDA $71 BNE L01833C DEC $73 L01833C DEC $71 LDX $73 LDA $71 STA $EA STX $EC PLA SEP #$20 STA [$EA] REP #$20 LDA $DA LDX #$0000 TAY BPL L018356 DEX L018356 PHX PHA LDA #L037E33 LDX #^L037E33 JSL L012E77 PLA PLX STA $EA STX $EC LDA [$EA] AND #$00FF AND #$0001 TAY BEQ L018378 LDA #$0045 BRA L01837B L018378 LDA #$0065 L01837B PHA LDA $71 BNE L018382 DEC $73 L018382 DEC $71 LDX $73 LDA $71 STA $EA STX $EC PLA SEP #$20 STA [$EA] REP #$20 BRL L0189B7 L018396 LDA [$E4] AND #$00FF CMP #$0049 BNE L0183B5 PEA ^L0387FB PEA L0387FB PEI $E2 PEI $E0 JSL L014524 PLY PLY PLY PLY BRL L01844B L0183B5 PEA ^L0387FF PEA L0387FF PEI $E2 PEI $E0 JSL L014524 PLY PLY PLY PLY LDY #$0004 LDA [$E4],Y AND #$00FF PHA JSL L01AC30 PLY PHA LDY #$0003 LDA [$E4],Y AND #$00FF PHA JSL L01AC30 PLY PHA LDA #$0010 SEC JSL L013003 PLA PLX STX $EE CLC ADC $EE STA $50 LDA #$0006 STA $52 BRA L01843E L0183FD LDA #$000A PHA LDA $50 SEC JSL L012E82 PLA CLC ADC #$0030 PHA LDA $52 DEC $52 LDX #$0000 TAY BPL L018419 DEX L018419 PHX PHA LDX $E2 LDA $E0 JSL L012E77 PLA PLX STA $EA STX $EC PLA SEP #$20 STA [$EA] REP #$20 LDA #$000A PHA LDA $50 SEC JSL L012E82 PLY STA $50 L01843E LDA $52 SEC SBC #$0004 BVS L018449 EOR #$8000 L018449 BMI L0183FD L01844B LDX $E2 LDA $E0 STX $E6 STA $E4 PEI $E6 PEI $E4 JSL L0140CE PLY PLY LDX #$0000 TAY BPL L018464 DEX L018464 PHX PHA LDX $E6 LDA $E4 JSL L012E77 PLA PLX STX $E2 STA $E0 BRL L0189B7 L018477 LDA $DC SEC SBC #$0000 BVS L018482 EOR #$8000 L018482 BMI L018489 LDA #$0006 STA $DC L018489 LDX $FB LDA $F9 CLC ADC #$000A PHA TXA ADC #$0000 TAX PLA STX $FB STA $F9 CLC ADC #$FFF6 PHA TXA ADC #$FFFF TAX PLA STA $EA STX $EC LDY #$0008 LDA [$EA],Y PHA LDY #$0006 LDA [$EA],Y PHA LDY #$0004 LDA [$EA],Y PHA LDY #$0002 LDA [$EA],Y PHA LDA [$EA] PHA PEA $0000 TDC CLC ADC #$005C PHA JSL L01AAA6 PLY PLY PLY PLY PLY PEA $0000 TDC CLC ADC #$0058 PHA PEA $0000 TDC CLC ADC #$005A PHA PEI $DC PEI $64 PEI $62 PEI $60 PEI $5E PEI $5C JSL L01A7F8 TAY TSC CLC ADC #$0014 TCS TYA STX $E6 STA $E4 L018506 LDA $58 BEQ L018516 LDA #L038808 LDX #^L038808 STX $77 STA $75 BRA L018534 L018516 LDA $D2 BEQ L018526 LDA #L03880A LDX #^L03880A STX $77 STA $75 BRA L018534 L018526 LDA $CE BEQ L018534 LDA #L03880C LDX #^L03880C STX $77 STA $75 L018534 LDX #$0000 TDC CLC ADC #$0079 STX $E2 STA $E0 LDA [$E4] AND #$00FF CMP #$0049 BEQ L018554 LDA [$E4] AND #$00FF CMP #$004E BNE L018557 L018554 BRL L018396 L018557 LDA $DC SEC SBC #$0000 BEQ L018566 BVS L018564 EOR #$8000 L018564 BMI L01856A L018566 LDA $CC BEQ L018572 L01856A LDA #$0001 CLC ADC $DC BRA L018575 L018572 LDA #$0000 L018575 PHA LDA [$75] AND #$00FF CMP #$0000 BNE L018585 LDA #$0000 BRA L018588 L018585 LDA #$0001 L018588 CLC ADC $5A PLX STX $EE CLC ADC $EE SEC SBC #$0050 BEQ L0185A6 BVS L01859C EOR #$8000 L01859C BPL L0185A6 LDA #$0012 STA $DC BRL L018159 L0185A6 LDA $5A STA $50 L0185AA LDA $50 SEC SBC #$0000 BEQ L0185C3 BVS L0185B7 EOR #$8000 L0185B7 BPL L0185C3 LDA [$E4] AND #$00FF CMP #$0000 BNE L0185C8 L0185C3 LDA #$0030 BRA L0185DB L0185C8 LDX $E6 LDA $E4 INC $E4 BNE L0185D2 INC $E6 L0185D2 STA $EA STX $EC LDA [$EA] AND #$00FF L0185DB PHA LDX $E2 LDA $E0 INC $E0 BNE L0185E6 INC $E2 L0185E6 STA $EA STX $EC PLA SEP #$20 STA [$EA] REP #$20 DEC $50 LDA $50 SEC SBC #$0000 BEQ L018602 BVS L018600 EOR #$8000 L018600 BMI L0185AA L018602 LDA $CC BNE L018615 LDA $DC SEC SBC #$0000 BEQ L01862C BVS L018613 EOR #$8000 L018613 BPL L01862C L018615 LDX $E2 LDA $E0 INC $E0 BNE L01861F INC $E2 L01861F STA $EA STX $EC LDA #$002E SEP #$20 STA [$EA] REP #$20 L01862C LDA $DC STA $50 L018630 DEC $50 LDA $50 SEC SBC #$0000 BVS L01863D EOR #$8000 L01863D BPL L01868A INC $5A LDA $5A SEC SBC #$0000 BEQ L01865A BVS L01864E EOR #$8000 L01864E BPL L01865A LDA [$E4] AND #$00FF CMP #$0000 BNE L01865F L01865A LDA #$0030 BRA L018672 L01865F LDX $E6 LDA $E4 INC $E4 BNE L018669 INC $E6 L018669 STA $EA STX $EC LDA [$EA] AND #$00FF L018672 PHA LDX $E2 LDA $E0 INC $E0 BNE L01867D INC $E2 L01867D STA $EA STX $EC PLA SEP #$20 STA [$EA] REP #$20 BRA L018630 L01868A LDX #$0000 TDC CLC ADC #$0079 STX $E6 STA $E4 BRL L0189B7 L018699 LDA $DC SEC SBC #$0000 BVS L0186A4 EOR #$8000 L0186A4 BMI L0186AD LDA #$0006 STA $DC BRA L0186B9 L0186AD LDA $DC CMP #$0000 BNE L0186B9 LDA #$0001 STA $DC L0186B9 LDX $FB LDA $F9 CLC ADC #$000A PHA TXA ADC #$0000 TAX PLA STX $FB STA $F9 CLC ADC #$FFF6 PHA TXA ADC #$FFFF TAX PLA STA $EA STX $EC LDY #$0008 LDA [$EA],Y PHA LDY #$0006 LDA [$EA],Y PHA LDY #$0004 LDA [$EA],Y PHA LDY #$0002 LDA [$EA],Y PHA LDA [$EA] PHA PEA $0000 TDC CLC ADC #$005C PHA JSL L01AAA6 PLY PLY PLY PLY PLY PEA $0000 TDC CLC ADC #$0058 PHA PEA $0000 TDC CLC ADC #$005A PHA LDA $DC SEC SBC #$0013 BVS L018725 EOR #$8000 L018725 BMI L01872B LDA $DC BRA L01872E L01872B LDA #$0013 L01872E PHA PEI $64 PEI $62 PEI $60 PEI $5E PEI $5C JSL L01A7C0 TAY TSC CLC ADC #$0014 TCS TYA STX $E6 STA $E4 LDA $DC STA $52 LDA $CC BNE L0187A5 PEI $E6 PEI $E4 JSL L0140CE PLY PLY STA $50 LDA $50 SEC SBC $52 BVS L018767 EOR #$8000 L018767 BMI L01876D LDA $50 STA $52 L01876D LDA $52 SEC SBC #$0001 BVS L018778 EOR #$8000 L018778 BPL L0187A5 LDA $52 SEC SBC #$0001 LDX #$0000 TAY BPL L018787 DEX L018787 PHX PHA LDX $E6 LDA $E4 JSL L012E77 PLA PLX STA $EA STX $EC LDA [$EA] AND #$00FF CMP #$0030 BNE L0187A5 DEC $52 BRA L01876D L0187A5 LDA $5A SEC SBC #$FFFD BVS L0187B0 EOR #$8000 L0187B0 BPL L0187C0 LDA $5A SEC SBC $DC BEQ L0187CB BVS L0187BE EOR #$8000 L0187BE BPL L0187CB L0187C0 LDA $52 SEC SBC #$0001 STA $DC BRL L0181A2 L0187CB LDA $52 SEC SBC $5A STA $DC BRL L018506 L0187D5 LDA $DA SEP #$20 STA $79 REP #$20 BRL L01880A L0187E0 LDX $FB LDA $F9 CLC ADC #$0002 PHA TXA ADC #$0000 TAX PLA STX $FB STA $F9 CLC ADC #$FFFE PHA TXA ADC #$FFFF TAX PLA STA $EA STX $EC LDA [$EA] SEP #$20 STA $79 REP #$20 L01880A LDX #$0000 TDC CLC ADC #$0079 STX $E6 STA $E4 CLC ADC #$0001 PHA TXA ADC #$0000 TAX PLA STX $E2 STA $E0 BRL L0189B7 L018828 LDX $FB LDA $F9 CLC ADC #$0004 PHA TXA ADC #$0000 TAX PLA STX $FB STA $F9 CLC ADC #$FFFC PHA TXA ADC #$FFFF TAX PLA STA $EA STX $EC LDY #$0002 LDA [$EA],Y TAX LDA [$EA] STX $E6 STA $E4 STX $E2 STA $E0 LDA $DC SEC SBC #$0000 BVS L018865 EOR #$8000 L018865 BMI L01888A PEI $E6 PEI $E4 JSL L0140CE PLY PLY LDX #$0000 TAY BPL L018878 DEX L018878 PHX PHA LDX $E2 LDA $E0 JSL L012E77 PLA PLX STX $E2 STA $E0 BRA L0188BB L01888A LDX $E2 LDA $E0 INC $E0 BNE L018894 INC $E2 L018894 STA $EA STX $EC LDA [$EA] AND #$00FF CMP #$0000 BEQ L0188B3 DEC $DC LDA $DC SEC SBC #$0000 BVS L0188AF EOR #$8000 L0188AF BPL L0188B3 BRA L01888A L0188B3 LDA $E0 BNE L0188B9 DEC $E2 L0188B9 DEC $E0 L0188BB BRL L0189B7 L0188BE LDX $FB LDA $F9 CLC ADC #$0004 PHA TXA ADC #$0000 TAX PLA STX $FB STA $F9 CLC ADC #$FFFC PHA TXA ADC #$FFFF TAX PLA STA $EA STX $EC LDY #$0002 LDA [$EA],Y TAX LDA [$EA] STX $E6 STA $E4 STX $E2 STA $E0 LDA $DC SEC SBC #$0000 BVS L0188FB EOR #$8000 L0188FB BPL L01890C LDA [$E4] AND #$00FF SEC SBC $DC BVS L01890A EOR #$8000 L01890A BMI L01892E L01890C LDA [$E4] AND #$00FF CLC ADC #$0001 LDX #$0000 TAY BPL L01891C DEX L01891C PHX PHA LDX $E2 LDA $E0 JSL L012E77 PLA PLX STX $E2 STA $E0 BRA L01894B L01892E LDA $DC CLC ADC #$0001 LDX #$0000 TAY BPL L01893B DEX L01893B PHX PHA LDX $E2 LDA $E0 JSL L012E77 PLA PLX STX $E2 STA $E0 L01894B LDX $E6 LDA $E4 CLC ADC #$0001 PHA TXA ADC #$0000 TAX PLA STX $E6 STA $E4 BRL L0189B7 L018961 LDA #$FFFF BRL L018DE3 BRL L0189B7 L01896A DA L018961 DA L0180F8 DA L018699 DA L017E5B DA L0187E0 DA L017E4B DA L0180F8 DA L018477 DA L018699 DA L017E53 DA L0188BE DA L018828 DA L017E4B DA L017E5B DA L0187D5 L018988 DW $0000 DW $0045 DW $0047 DW $0058 DW $0063 DW $0064 DW $0065 DW $0066 DW $0067 DW $006F DW $0070 DW $0073 DW $0075 DW $0078 L0189A4 TAX PEA ^L018988 PEA L018988 LDA #$001A JSL L01ABAC PLA PLA JMP (L01896A,X) L0189B7 LDA $D8 SEC SBC #$0000 BVS L0189C2 EOR #$8000 L0189C2 BMI L0189C6 STZ $D8 L0189C6 LDA $D6 SEC SBC #$0000 BVS L0189D1 EOR #$8000 L0189D1 BMI L0189D5 STZ $D6 L0189D5 LDX $73 LDA $71 PHX PHA LDA [$75] AND #$00FF CMP #$0000 BNE L0189EA LDA #$0000 BRA L0189FF L0189EA LDY #$0001 LDA [$75],Y AND #$00FF CMP #$0000 BNE L0189FC LDA #$0001 BRA L0189FF L0189FC LDA #$0002 L0189FF PHA LDX $E6 LDA $E4 PHX PHA LDX $E2 LDA $E0 JSL L012FF8 PLA PLX STA $50 CLC ADC $D8 CLC ADC $D6 PLX STX $EE CLC ADC $EE LDX #$0000 TAY BPL L018A25 DEX L018A25 PHX PHA LDX #$0000 TDC CLC ADC #$0070 JSL L012E77 PLA PLX JSL L012FF8 PLA PLX STA $52 LDA $DE SEC SBC $52 BEQ L018A4F BVS L018A49 EOR #$8000 L018A49 BPL L018A4F LDA $DE BRA L018A51 L018A4F LDA $52 L018A51 PHA LDA $E8 PLX STX $EE CLC ADC $EE STA $E8 LDA $D0 BNE L018AC9 L018A60 DEC $DE LDA $DE SEC SBC $52 BVS L018A6C EOR #$8000 L018A6C BPL L018AC9 LDA [$FD] DEC STA [$FD] SEC SBC #$0000 BVS L018A7C EOR #$8000 L018A7C BPL L018AB5 LDY #$0004 LDA [$FD],Y TAX LDY #$0002 LDA [$FD],Y PHX PHA CLC ADC #$0001 LDY #$0002 STA [$FD],Y LDY #$0004 LDA [$FD],Y BCC L018A9C INC L018A9C LDY #$0004 STA [$FD],Y PLA PLX STA $EA STX $EC LDA #$0020 SEP #$20 STA [$EA] REP #$20 AND #$00FF BRA L018AC7 L018AB5 PEI $FF PEI $FD LDA #$0020 AND #$00FF PHA JSL L01AF18 PLY PLY PLY L018AC7 BRA L018A60 L018AC9 LDA [$75] AND #$00FF CMP #$0000 BEQ L018B4B LDA [$FD] DEC STA [$FD] SEC SBC #$0000 BVS L018AE1 EOR #$8000 L018AE1 BPL L018B29 LDX $77 LDA $75 INC $75 BNE L018AED INC $77 L018AED STA $EA STX $EC LDA [$EA] PHA LDY #$0004 LDA [$FD],Y TAX LDY #$0002 LDA [$FD],Y PHX PHA CLC ADC #$0001 LDY #$0002 STA [$FD],Y LDY #$0004 LDA [$FD],Y BCC L018B12 INC L018B12 LDY #$0004 STA [$FD],Y PLA PLX STA $EA STX $EC PLA SEP #$20 STA [$EA] REP #$20 AND #$00FF BRA L018B48 L018B29 PEI $FF PEI $FD LDX $77 LDA $75 INC $75 BNE L018B37 INC $77 L018B37 STA $EA STX $EC LDA [$EA] AND #$00FF PHA JSL L01AF18 PLY PLY PLY L018B48 BRL L018AC9 L018B4B DEC $D8 LDA $D8 SEC SBC #$0000 BVS L018B58 EOR #$8000 L018B58 BPL L018BB5 LDA [$FD] DEC STA [$FD] SEC SBC #$0000 BVS L018B68 EOR #$8000 L018B68 BPL L018BA1 LDY #$0004 LDA [$FD],Y TAX LDY #$0002 LDA [$FD],Y PHX PHA CLC ADC #$0001 LDY #$0002 STA [$FD],Y LDY #$0004 LDA [$FD],Y BCC L018B88 INC L018B88 LDY #$0004 STA [$FD],Y PLA PLX STA $EA STX $EC LDA #$0030 SEP #$20 STA [$EA] REP #$20 AND #$00FF BRA L018BB3 L018BA1 PEI $FF PEI $FD LDA #$0030 AND #$00FF PHA JSL L01AF18 PLY PLY PLY L018BB3 BRA L018B4B L018BB5 LDA $50 SEC SBC #$0000 BNE L018BC0 BRL L018C8B L018BC0 BVS L018BC5 EOR #$8000 L018BC5 BMI L018BCA BRL L018C8B L018BCA LDA $50 CMP #$0001 BNE L018C2C LDA [$FD] DEC STA [$FD] SEC SBC #$0000 BVS L018BDF EOR #$8000 L018BDF BPL L018C19 LDA [$E4] PHA LDY #$0004 LDA [$FD],Y TAX LDY #$0002 LDA [$FD],Y PHX PHA CLC ADC #$0001 LDY #$0002 STA [$FD],Y LDY #$0004 LDA [$FD],Y BCC L018C02 INC L018C02 LDY #$0004 STA [$FD],Y PLA PLX STA $EA STX $EC PLA SEP #$20 STA [$EA] REP #$20 AND #$00FF BRA L018C2A L018C19 PEI $FF PEI $FD LDA [$E4] AND #$00FF PHA JSL L01AF18 PLY PLY PLY L018C2A BRA L018C8B L018C2C LDY #$0012 LDA [$FD],Y CMP #$0014 BNE L018C72 LDA $50 LDX #$0000 TAY BPL L018C3F DEX L018C3F PHX PHA PEI $50 PEI $E6 PEI $E4 LDY #$0004 LDA [$FD],Y TAX LDY #$0002 LDA [$FD],Y PHX PHA JSL L013E61 PLY PLY PLY PLY PLY JSL L012E77 PLA PLX LDY #$0004 PHA TXA STA [$FD],Y PLA LDY #$0002 STA [$FD],Y BRA L018C8B L018C72 PEI $FF PEI $FD PEI $50 PEA $0001 PEI $E6 PEI $E4 JSL L01ACA1 TAY TSC CLC ADC #$000C TCS TYA L018C8B DEC $D6 LDA $D6 SEC SBC #$0000 BVS L018C98 EOR #$8000 L018C98 BPL L018CF5 LDA [$FD] DEC STA [$FD] SEC SBC #$0000 BVS L018CA8 EOR #$8000 L018CA8 BPL L018CE1 LDY #$0004 LDA [$FD],Y TAX LDY #$0002 LDA [$FD],Y PHX PHA CLC ADC #$0001 LDY #$0002 STA [$FD],Y LDY #$0004 LDA [$FD],Y BCC L018CC8 INC L018CC8 LDY #$0004 STA [$FD],Y PLA PLX STA $EA STX $EC LDA #$0030 SEP #$20 STA [$EA] REP #$20 AND #$00FF BRA L018CF3 L018CE1 PEI $FF PEI $FD LDA #$0030 AND #$00FF PHA JSL L01AF18 PLY PLY PLY L018CF3 BRA L018C8B L018CF5 LDA [$71] AND #$00FF CMP #$0000 BEQ L018D77 LDA [$FD] DEC STA [$FD] SEC SBC #$0000 BVS L018D0D EOR #$8000 L018D0D BPL L018D55 LDX $73 LDA $71 INC $71 BNE L018D19 INC $73 L018D19 STA $EA STX $EC LDA [$EA] PHA LDY #$0004 LDA [$FD],Y TAX LDY #$0002 LDA [$FD],Y PHX PHA CLC ADC #$0001 LDY #$0002 STA [$FD],Y LDY #$0004 LDA [$FD],Y BCC L018D3E INC L018D3E LDY #$0004 STA [$FD],Y PLA PLX STA $EA STX $EC PLA SEP #$20 STA [$EA] REP #$20 AND #$00FF BRA L018D74 L018D55 PEI $FF PEI $FD LDX $73 LDA $71 INC $71 BNE L018D63 INC $73 L018D63 STA $EA STX $EC LDA [$EA] AND #$00FF PHA JSL L01AF18 PLY PLY PLY L018D74 BRL L018CF5 L018D77 DEC $DE LDA $DE SEC SBC $52 BVS L018D83 EOR #$8000 L018D83 BPL L018DE0 LDA [$FD] DEC STA [$FD] SEC SBC #$0000 BVS L018D93 EOR #$8000 L018D93 BPL L018DCC LDY #$0004 LDA [$FD],Y TAX LDY #$0002 LDA [$FD],Y PHX PHA CLC ADC #$0001 LDY #$0002 STA [$FD],Y LDY #$0004 LDA [$FD],Y BCC L018DB3 INC L018DB3 LDY #$0004 STA [$FD],Y PLA PLX STA $EA STX $EC LDA #$0020 SEP #$20 STA [$EA] REP #$20 AND #$00FF BRA L018DDE L018DCC PEI $FF PEI $FD LDA #$0020 AND #$00FF PHA JSL L01AF18 PLY PLY PLY L018DDE BRA L018D77 L018DE0 BRL L017B1D L018DE3 TAY TDC CLC ADC #$00EF TCS TYA PLD RTL L018DED ENT PHD TSC SEC SBC #$00F7 TCD ADC #$00F0 TCS PEA $0000 JSL sendLDStill PLY TSC CLC ADC #$0006 TCS PLD RTL L018E08 PHD TSC SEC SBC #$00F7 TCD ADC #$00F0 TCS PHX PHA LDAL L031DDC TAX LDAL L031DDA PHX PHA PEA ^L03896F PEA L03896F PEA ^L038977 PEA L038977 PEA $0001 PEA $0000 PEA $0000 PEA $0000 PEA $0000 PEA $0000 PEA $0000 PEA $0001 PEA ^L038965 PEA L038965 _NewControl BCS L018E56 LDA #$0000 L018E56 STAL L020002 PLA PLX LDY #$0002 PHA TXA STA [$FD],Y PLA STA [$FD] TSC CLC ADC #$0006 TCS PLD RTL L018E6E ENT PHD TSC SEC SBC #$00F7 TCD ADC #$00EC TCS LDX $FF LDA $FD CLC ADC #$0004 PHA TXA ADC #$0000 TAX PLA STX $F0 STA $EE LDA [$EE] PHA JSL L01ABF2 PLY TSC CLC ADC #$000A TCS PLD RTL L018E9C ENT PHD TSC SEC SBC #$00F7 TCD ADC #$00EC TCS LDX $FF LDA $FD CLC ADC #$0004 PHA TXA ADC #$0000 TAX PLA STX $F0 STA $EE LDY #$0001 LDA [$EE],Y AND #$00FF PHA LDA [$EE] AND #$00FF PLX STX $F6 CLC ADC $F6 PHA JSL sendLDAudioControl PLY TSC CLC ADC #$000A TCS PLD RTL L018EDC ENT PHD TSC SEC SBC #$00F7 TCD ADC #$00EC TCS LDX $FF LDA $FD CLC ADC #$0004 PHA TXA ADC #$0000 TAX PLA STX $F0 STA $EE LDA [$EE] AND #$00FF BEQ L018F06 LDA #$0001 ; on (normal) BRA L018F09 L018F06 LDA #$0000 ; off L018F09 PHA ; send video control JSL sendLDVideoControl PLY TSC CLC ADC #$000A TCS PLD RTL L018F17 PHD TSC SEC SBC #$00F5 TCD ADC #$00C6 TCS LDX $FD LDA $FB STX $EE STA $EC LDA [$EC] AND #$00FF AND #$0080 TAY BEQ L018F4A LDX $FD LDA $FB CLC ADC #$0011 PHA TXA ADC #$0000 TAX PLA STX $E8 STA $E6 BRA L018F65 L018F4A LDY #$000B LDA [$EC],Y TAX LDY #$0009 LDA [$EC],Y PHX PHA LDX $FD LDA $FB JSL L012E77 PLA PLX STX $E8 STA $E6 L018F65 LDY #$0007 LDA [$EC],Y BEQ L018F71 LDA #$0005 BRA L018F74 L018F71 LDA #$0007 L018F74 STA $EA PEA ^L01B1DB PEA L01B1DB PEI $EA LDY #$0005 LDA [$EC],Y PHA PEI $E8 PEI $E6 PEA $0000 TDC CLC ADC #$00FF PHA JSL L016912 TAY TSC CLC ADC #$0010 TCS TYA STA $E4 LDA $E4 CMP #$FFFF BNE L018FB1 LDX #$0000 LDA #$0000 BRL L0192CE BRA L018FCF L018FB1 LDA $EA PHA LDA $E4 CLC JSL L013003 PLA LDX #$0000 PHX PHA LDX $E8 LDA $E6 JSL L012E77 PLA PLX STX $E8 STA $E6 L018FCF LDY #$0007 LDA [$EC],Y BEQ L019000 LDX $E8 LDA $E6 STX $D2 STA $D0 LDY #$0003 LDA [$D0],Y PHA LDY #$0007 LDA [$EC],Y CLC JSL L013003 LDA #$0011 PLX STX $F4 CLC ADC $F4 LDX #$0000 STX $E2 STA $E0 BRA L01900F L019000 LDY #$0005 LDA [$E6],Y TAX LDY #$0003 LDA [$E6],Y STX $E2 STA $E0 L01900F LDA [$EC] AND #$00FF AND #$0080 TAY BNE L01902A LDX $FD LDA $FB CLC ADC $E0 PHA TXA ADC $E2 TAX PLA BRL L0192CE L01902A PHX PHA _GetCursorAdr BCS L019038 LDA #$0000 L019038 STAL L020002 PLA PLX STX $D6 STA $D4 _WaitCursor BCS L01904E LDA #$0000 L01904E STAL L020002 LDY #$000F LDA [$EC],Y TAX LDY #$000D LDA [$EC],Y STX $DE STA $DC STZ $DA BRA L0190C2 L019065 LDA $DA CLC ADC #$0001 PHA LDY #$0004 LDA [$DC],Y PLX STX $F0 CMP $F0 BEQ L0190BE BCC L0190BE LDA $DA CLC ADC #$0001 LDX #$0000 TAY BPL L019087 DEX L019087 STX $F4 ASL ROL $F4 ASL ROL $F4 LDX $F4 PHX PHA LDY #$0008 LDA [$DC],Y TAX LDY #$0006 LDA [$DC],Y JSL L012E77 PLA PLX STA $F0 STX $F2 LDY #$0002 LDA [$F0],Y TAX LDA [$F0] PHX PHA LDX $E2 LDA $E0 JSL L013333 BEQ L0190C0 BCC L0190C0 L0190BE BRA L0190CD L0190C0 INC $DA L0190C2 LDY #$0004 LDA [$DC],Y CMP $DA BEQ L0190CD BCS L019065 L0190CD LDY #$000A LDA [$DC],Y CMP $DA BNE L0190D9 BRL L01926A L0190D9 PEI $DA PEI $E2 PEI $E0 PEA ^L03871A PEA L03871A JSL L050256 PLY PLY PLY PLY PLY LDY #$000A LDA [$DC],Y PHA PEA ^L038748 PEA L038748 JSL L050256 PLY PLY PLY LDY #$000A LDA [$DC],Y CMP #$FFFF BEQ L01913F LDY #$000E LDA [$DC],Y TAX LDY #$000C LDA [$DC],Y PHX PHA _DisposeHandle BCS L019124 LDA #$0000 L019124 STAL L020002 LDA L020002 STA $D8 TAY BEQ L01913F PEI $D8 PEA ^L03877A PEA L03877A JSL L050256 PLY PLY PLY L01913F LDA $DA LDX #$0000 TAY BPL L019148 DEX L019148 STX $F4 ASL ROL $F4 ASL ROL $F4 LDX $F4 PHX PHA LDY #$0008 LDA [$DC],Y TAX LDY #$0006 LDA [$DC],Y JSL L012E77 PLA PLX STA $F0 STX $F2 LDY #$0002 LDA [$F0],Y TAX LDA [$F0] STX $CE STA $CC LDA $DA CLC ADC #$0001 PHA LDY #$0004 LDA [$DC],Y PLX STX $F0 CMP $F0 BEQ L01918A BCS L019197 L01918A LDY #$000B LDA [$EC],Y TAX LDY #$0009 LDA [$EC],Y BRA L0191CD L019197 LDA $DA CLC ADC #$0001 LDX #$0000 TAY BPL L0191A4 DEX L0191A4 STX $F4 ASL ROL $F4 ASL ROL $F4 LDX $F4 PHX PHA LDY #$0008 LDA [$DC],Y TAX LDY #$0006 LDA [$DC],Y JSL L012E77 PLA PLX STA $F0 STX $F2 LDY #$0002 LDA [$F0],Y TAX LDA [$F0] L0191CD STX $CA STA $C8 PEI $CA PEI $C8 PEI $CE PEI $CC PEA $0000 PEA $0000 PEA $0000 PEA $0000 LDY #$0002 LDA [$DC],Y TAX LDA [$DC] PHX PHA JSL L010B2B TAY TSC CLC ADC #$0014 TCS TYA LDY #$000E PHA TXA STA [$DC],Y PLA LDY #$000C STA [$DC],Y LDY #$000E LDA [$DC],Y TAX LDY #$000C LDA [$DC],Y STX $F0 ORA $F0 BNE L019225 PEA ^L0387AA PEA L0387AA JSL L050256 PLY PLY L019225 LDY #$000E LDA [$DC],Y TAX LDY #$000C LDA [$DC],Y STA $F0 STX $F2 LDY #$0002 LDA [$F0],Y TAX LDA [$F0] LDY #$0012 PHA TXA STA [$DC],Y PLA LDY #$0010 STA [$DC],Y LDX $CA LDA $C8 SEC SBC $CC PHA TXA SBC $CE TAX PLA LDY #$0016 PHA TXA STA [$DC],Y PLA LDY #$0014 STA [$DC],Y LDA $DA LDY #$000A STA [$DC],Y L01926A PEI $D6 PEI $D4 _SetCursor BCS L01927A LDA #$0000 L01927A STAL L020002 LDY #$000A LDA [$DC],Y LDX #$0000 TAY BPL L01928A DEX L01928A STX $F4 ASL ROL $F4 ASL ROL $F4 LDX $F4 PHX PHA LDY #$0008 LDA [$DC],Y TAX LDY #$0006 LDA [$DC],Y JSL L012E77 PLA PLX STA $F0 STX $F2 LDY #$0002 LDA [$F0],Y TAX LDA [$F0] PHX PHA LDX $E2 LDA $E0 JSL L012FF8 LDY #$0012 LDA [$DC],Y TAX LDY #$0010 LDA [$DC],Y JSL L012E77 PLA PLX L0192CE TAY TSC CLC ADC #$002E TCS TYA PLD RTL L0192D8 PHD TSC SEC SBC #$00F5 TCD ADC #$00E4 TCS PHX PHA PEA $0000 PEA $000B LDA L02004A PHA PEA $0008 PEA $0000 PEA $0000 _NewHandle BCS L019304 LDA #$0000 L019304 STAL L020002 PLA PLX STX $EC STA $EA LDA L020002 STA $EE TAY BEQ L01932B PEA ^L038991 PEA L038991 JSL L050256 PLY PLY LDX #$0000 LDA #$0000 BRL L01946A L01932B PEI $EC PEI $EA _HLock BCS L01933B LDA #$0000 L01933B STAL L020002 LDA L020002 STA $EE TAY BEQ L01935C PEA ^L0389B8 PEA L0389B8 JSL L050256 PLY PLY LDX #$0000 LDA #$0000 BRL L01946A L01935C LDY #$0002 LDA [$EA],Y TAX LDA [$EA] STX $E8 STA $E6 LDY #$0002 LDA [$FB],Y TAX LDA [$FB] LDY #$0002 PHA TXA STA [$E6],Y PLA STA [$E6] L01937A LDY #$0002 LDA [$FB],Y TAX LDA [$FB] STA $F0 STX $F2 LDA [$F0] AND #$00FF BEQ L0193AD LDY #$0002 LDA [$FB],Y TAX LDA [$FB] CLC ADC #$0001 STA [$FB] PHA LDY #$0002 LDA [$FB],Y BCC L0193A4 INC L0193A4 TAX LDY #$0002 STA [$FB],Y PLA BRA L01937A L0193AD LDY #$0002 LDA [$FB],Y TAX LDA [$FB] CLC ADC #$0001 STA [$FB] PHA LDY #$0002 LDA [$FB],Y BCC L0193C4 INC L0193C4 TAX LDY #$0002 STA [$FB],Y PLA LDY #$0002 LDA [$FB],Y TAX LDA [$FB] STA $F0 STX $F2 LDA [$F0] LDY #$0004 STA [$E6],Y LDY #$0002 LDA [$FB],Y TAX LDA [$FB] CLC ADC #$0002 PHA TXA ADC #$0000 TAX PLA LDY #$0002 PHA TXA STA [$FB],Y PLA STA [$FB] LDY #$0002 LDA [$FB],Y TAX LDA [$FB] STA $F0 STX $F2 LDA [$F0] LDY #$0006 STA [$E6],Y LDY #$0002 LDA [$FB],Y TAX LDA [$FB] CLC ADC #$0002 PHA TXA ADC #$0000 TAX PLA LDY #$0002 PHA TXA STA [$FB],Y PLA STA [$FB] LDY #$0002 LDA [$FB],Y TAX LDA [$FB] STA $F0 STX $F2 LDA [$F0] LDY #$0008 STA [$E6],Y LDY #$0002 LDA [$FB],Y TAX LDA [$FB] CLC ADC #$0002 PHA TXA ADC #$0000 TAX PLA LDY #$0002 PHA TXA STA [$FB],Y PLA STA [$FB] LDA $FF SEP #$20 LDY #$000A STA [$E6],Y REP #$20 LDX $E8 LDA $E6 L01946A TAY TSC CLC ADC #$0010 TCS TYA PLD RTL llSerialStatus PHD TSC SEC SBC #$00F9 TCD ADC #$00E6 TCS LDX #$0000 LDA #$C110 ; STATUS STA $F4 STX $F6 LDA [$F4] AND #$00FF PHA LDA #$C100 PLX STX $F8 CLC ADC $F8 STA $EA PHP PEA $0000 PEA $0000 PEA $0000 PEA $0000 LDA $FF PHA PEA $00C2 PEA $0020 PEI $EA _FWEntry PLA STA $EC PLA STA $EE PLA STA $F0 PLP PLP BCS L0194CD LDA #$0000 ; carry clear: return 0 => not ready STA $E8 BRA L0194D2 L0194CD LDA #$0001 ; carry set: return 1 => yes, ready STA $E8 L0194D2 PLP LDA $EE BEQ L0194DE LDA #$0002 BRA L0194E0 BRA L0194E0 L0194DE LDA $E8 L0194E0 TAY TSC CLC ADC #$0012 TCS TYA PLD RTL L0194EA ENT PHD TSC SEC SBC #$00F7 TCD ADC #$00E0 TCS STZ $E8 LDA #$003C STA $E6 STZ $E4 STZ $E2 LDX $FF LDA $FD CLC ADC #$0004 PHA TXA ADC #$0000 TAX PLA STX $F0 STA $EE LDX $F0 LDA $EE CLC ADC #$0004 PHA TXA ADC #$0000 TAX PLA STX $EC STA $EA STZ $E8 BRL L019586 L01952B LDA [$EA] AND #$00FF BRL L019577 L019533 LDY #$0001 LDA [$EA],Y STA $E6 LDX $EC LDA $EA CLC ADC #$0003 PHA TXA ADC #$0000 TAX PLA STX $EC STA $EA BRL L019584 L019550 LDA #$0001 STA $E4 INC $EA BNE L01955B INC $EC L01955B BRL L019584 L01955E LDA #$0001 STA $E2 INC $EA BNE L019569 INC $EC L019569 BRL L019584 L01956C BRL L019584 L01956F DA L019533 DA L01955E DA L019550 DA L01956C L019577 CMP #$0003 BCC L01957F LDA #$0003 L01957F ASL TAX JMP (L01956F,X) L019584 INC $E8 L019586 LDY #$0002 LDA [$FD],Y CMP $E8 BEQ L019591 BCS L01952B L019591 LDA $E2 BEQ L01959D LDA #L01A6F9 LDX #^L01A6F9 BRA L0195A3 L01959D LDX #$0000 LDA #$0000 L0195A3 PHX PHA PEI $E4 PEI $E6 LDY #$0002 LDA [$EE],Y PHA LDA [$EE] PHA JSL L013620 TAY TSC CLC ADC #$000C TCS TYA TSC CLC ADC #$0016 TCS PLD RTL L0195C6 ENT PHD TSC SEC SBC #$00F7 TCD ADC #$00EC TCS LDX $FF LDA $FD CLC ADC #$0004 PHA TXA ADC #$0000 TAX PLA STX $F0 STA $EE LDY #$0004 LDA [$EE],Y AND #$00FF PHA LDY #$0002 LDA [$EE],Y PHA LDA [$EE] PHA JSL L01B84D PLY PLY PLY TSC CLC ADC #$000A TCS PLD RTL L019605 ENT PHD TSC SEC SBC #$00F7 TCD ADC #$00D0 TCS LDX $FF LDA $FD CLC ADC #$0004 PHA TXA ADC #$0000 TAX PLA STX $F0 STA $EE LDX $F0 LDA $EE CLC ADC #$0003 PHA TXA ADC #$0000 TAX PLA STX $EC STA $EA STZ $D4 STZ $D2 LDA [$EE] PHA LDX L02007A LDA L020078 PHX PHA JSL L018F17 PLY PLY PLY STX $E8 STA $E6 PEA $000E PEI $E8 PEI $E6 PEA $0000 TDC CLC ADC #$00D8 PHA JSL L013E61 PLY PLY PLY PLY PLY STZ $D6 BRL L019845 L01966E LDA [$EA] AND #$00FF BRL L019836 L019676 LDA #$0001 STA $D4 LDY #$0001 LDA [$EA],Y STA $D8 LDY #$0003 LDA [$EA],Y STA $DA LDY #$0002 LDA [$EE],Y AND #$00FF CMP #$0002 BNE L01969E LDX #$00E1 LDA #$2000 BRA L0196B9 L01969E LDY #$0002 LDA [$EE],Y AND #$00FF CMP #$0001 BNE L0196B3 LDX L0200F4 LDA L0200F2 BRA L0196B9 L0196B3 LDX #$0000 LDA #$0000 L0196B9 PHX PHA PEI $D2 LDX $E8 LDA $E6 CLC ADC #$000E PHA TXA ADC #$0000 TAX PLA PHX PHA PEA $0000 TDC CLC ADC #$00D8 PHA JSL L01B660 TAY TSC CLC ADC #$000E TCS TYA LDX $EC LDA $EA CLC ADC #$0005 PHA TXA ADC #$0000 TAX PLA STX $EC STA $EA BRL L019843 L0196F9 LDA #$0001 STA $D4 LDY #$0001 LDA [$EA],Y PHA LDA $D8 PLX STX $F6 CLC ADC $F6 STA $D8 LDY #$0003 LDA [$EA],Y PHA LDA $DA PLX STX $F6 CLC ADC $F6 STA $DA LDY #$0002 LDA [$EE],Y AND #$00FF CMP #$0002 BNE L019733 LDX #$00E1 LDA #$2000 BRA L01974E L019733 LDY #$0002 LDA [$EE],Y AND #$00FF CMP #$0001 BNE L019748 LDX L0200F4 LDA L0200F2 BRA L01974E L019748 LDX #$0000 LDA #$0000 L01974E PHX PHA PEI $D2 LDX $E8 LDA $E6 CLC ADC #$000E PHA TXA ADC #$0000 TAX PLA PHX PHA PEA $0000 TDC CLC ADC #$00D8 PHA JSL L01B660 TAY TSC CLC ADC #$000E TCS TYA LDX $EC LDA $EA CLC ADC #$0005 PHA TXA ADC #$0000 TAX PLA STX $EC STA $EA BRL L019843 L01978E LDA $E0 AND #$00FF AND #$000F SEP #$20 STA $E0 REP #$20 LDA $E0 AND #$00FF ORA #$0010 SEP #$20 STA $E0 REP #$20 LDX $EC LDA $EA CLC ADC #$0002 PHA TXA ADC #$0000 TAX PLA STX $EC STA $EA BRL L019843 L0197C0 LDA $E0 AND #$00FF AND #$000F SEP #$20 STA $E0 REP #$20 LDA $E0 AND #$00FF ORA #$0020 SEP #$20 STA $E0 REP #$20 LDX $EC LDA $EA CLC ADC #$0002 PHA TXA ADC #$0000 TAX PLA STX $EC STA $EA BRL L019843 L0197F2 LDA $E0 AND #$00FF AND #$000F SEP #$20 STA $E0 REP #$20 LDA $E0 AND #$00FF ORA #$0030 SEP #$20 STA $E0 REP #$20 INC $EA BNE L019814 INC $EC L019814 BRL L019843 L019817 LDA #$0001 STA $D2 INC $EA BNE L019822 INC $EC L019822 BRL L019843 L019825 BRL L019843 L019828 DA L019676 DA L019817 DA L0197F2 DA L01978E DA L0197C0 DA L0196F9 DA L019825 L019836 CMP #$0006 BCC L01983E LDA #$0006 L01983E ASL TAX JMP (L019828,X) L019843 INC $D6 L019845 LDY #$0002 LDA [$FD],Y CMP $D6 BEQ L019853 BCC L019853 BRL L01966E L019853 LDA $D4 BNE L0198B1 LDY #$0002 LDA [$EE],Y AND #$00FF CMP #$0002 BNE L01986C LDX #$00E1 LDA #$2000 BRA L019887 L01986C LDY #$0002 LDA [$EE],Y AND #$00FF CMP #$0001 BNE L019881 LDX L0200F4 LDA L0200F2 BRA L019887 L019881 LDX #$0000 LDA #$0000 L019887 PHX PHA PEI $D2 LDX $E8 LDA $E6 CLC ADC #$000E PHA TXA ADC #$0000 TAX PLA PHX PHA PEA $0000 TDC CLC ADC #$00D8 PHA JSL L01B660 TAY TSC CLC ADC #$000E TCS TYA L0198B1 TSC CLC ADC #$0026 TCS PLD RTL L0198B9 ENT PHD TSC SEC SBC #$00F7 TCD ADC #$00E6 TCS LDX $FF LDA $FD CLC ADC #$0004 PHA TXA ADC #$0000 TAX PLA STX $F0 STA $EE LDX $F0 LDA $EE CLC ADC #$0002 PHA TXA ADC #$0000 TAX PLA STX $EC STA $EA STZ $E8 LDY #$0002 LDA [$FD],Y BEQ L019902 LDA [$EA] AND #$00FF CMP #$0000 BNE L019902 LDA #$0001 STA $E8 L019902 PEI $E8 LDA [$EE] PHA JSL L01B9FD PLY PLY TSC CLC ADC #$0010 TCS PLD RTL L019915 ENT PHD TSC SEC SBC #$00F7 TCD ADC #$00EC TCS LDX $FF LDA $FD CLC ADC #$0004 PHA TXA ADC #$0000 TAX PLA STX $F0 STA $EE LDA [$EE] AND #$00FF PHA JSL L01335E PLY TSC CLC ADC #$000A TCS PLD RTL L019946 ENT PHD TSC SEC SBC #$00F7 TCD ADC #$00D8 TCS LDA #$0001 STA $EA LDA #$003C STA $DE LDA #$0023 STA $E0 LDA #$00A0 STA $E2 LDA #$00FA STA $E4 LDX $FF LDA $FD CLC ADC #$0004 PHA TXA ADC #$0000 TAX PLA STX $EE STA $EC LDX $EE LDA $EC CLC ADC #$0002 PHA TXA ADC #$0000 TAX PLA STX $E8 STA $E6 LDA [$EC] PHA LDX L02007E LDA L02007C PHX PHA JSL L018F17 PLY PLY PLY STX $DC STA $DA STZ $F0 BRL L019A27 L0199AB LDA [$E6] AND #$00FF BRL L019A18 L0199B3 LDY #$0001 LDA [$E6],Y AND #$00FF BEQ L0199C2 LDA #$0001 BRA L0199C5 L0199C2 LDA #$0000 L0199C5 STA $EA LDX $E8 LDA $E6 CLC ADC #$0002 PHA TXA ADC #$0000 TAX PLA STX $E8 STA $E6 BRL L019A25 L0199DD LDY #$0001 LDA [$E6],Y STA $DE LDY #$0003 LDA [$E6],Y STA $E0 LDY #$0005 LDA [$E6],Y STA $E2 LDY #$0007 LDA [$E6],Y STA $E4 LDX $E8 LDA $E6 CLC ADC #$0009 PHA TXA ADC #$0000 TAX PLA STX $E8 STA $E6 BRL L019A25 L019A0F BRL L019A25 L019A12 DA L0199B3 DA L0199DD DA L019A0F L019A18 CMP #$0002 BCC L019A20 LDA #$0002 L019A20 ASL TAX JMP (L019A12,X) L019A25 INC $F0 L019A27 LDY #$0002 LDA [$FD],Y CMP $F0 BEQ L019A35 BCC L019A35 BRL L0199AB L019A35 PEI $EA LDX #$0000 TDC CLC ADC #$00DE TAY TSC SEC SBC #$0008 TCS PHX PHY PEA $0000 INC PHA PEA $0008 JSL L016E99 PLY PLY PLY PLY PLY PEI $DC PEI $DA JSL L01A646 TAY TSC CLC ADC #$000E TCS TYA TSC CLC ADC #$001E TCS PLD RTL L019A71 PHD TSC SEC SBC #$00EB TCD ADC #$00AE TCS STZ $E4 PHA PEA $FFFF PEA $0000 _FlushEvents BCS L019A91 LDA #$0000 L019A91 STAL L020002 PLA STZ $C0 L019A98 LDA $E4 BEQ L019A9F BRL L019D3F L019A9F LDX $F3 LDA $F1 STX $E6 ORA $E6 BNE L019AAC BRL L019BCB L019AAC JSL L015B49 STX $DE STA $DC LDA $FD BNE L019ABB BRL L019B48 L019ABB LDA $DC CMP #$FFFF BNE L019AD0 LDA $DE CMP #$FFFF BNE L019AD0 LDA #$0001 STA $E4 BRA L019B45 L019AD0 LDY #$0002 LDA [$F1],Y LDX #$0000 PHX PHA LDX $DE LDA $DC JSL L013333 BEQ L019AEB BVS L019AE9 EOR #$8000 L019AE9 BMI L019B0E L019AEB PEA $0000 PEA $0000 PEA $0000 PEA $003C LDA [$F1] PHA LDY #$0002 LDA [$F1],Y PHA JSL L013620 TAY TSC CLC ADC #$000C TCS TYA BRA L019B45 L019B0E LDA [$F1] LDX #$0000 PHX PHA LDX $DE LDA $DC JSL L013333 BVS L019B22 EOR #$8000 L019B22 BPL L019B45 PEA $0000 PEA $0000 PEA $0000 PEA $003C LDY #$0002 LDA [$F1],Y PHA LDA [$F1] PHA JSL L013620 TAY TSC CLC ADC #$000C TCS TYA L019B45 BRL L019BCB L019B48 SEC LDA $DC SBC #$FFFF BNE L019B57 LDA $DE SBC #$FFFF BRA L019B5E L019B57 LDA $DE SBC #$FFFF REP #$02 L019B5E BEQ L019B7B LDY #$0002 LDA [$F1],Y LDX #$0000 PHX PHA LDX $DE LDA $DC JSL L013333 BEQ L019B7B BVS L019B79 EOR #$8000 L019B79 BMI L019B80 L019B7B LDA #$0001 STA $E4 L019B80 LDA L020111 BEQ L019BCB L019B85 LDX $DE LDA $DC PHA LDA $C0 PHA LDA #$000B CLC JSL L013003 PLA LDX #$0000 PHX PHA LDA #L0389E9 LDX #^L0389E9 JSL L012E77 PLA PLX STA $E6 STX $E8 LDY #$0001 LDA [$E6],Y PLX STX $E6 CMP $E6 BEQ L019BB9 BCS L019BCB L019BB9 LDA $C0 CMP L020111 BCS L019BCB PEI $C0 JSL L01B456 PLY INC $C0 BRA L019B85 L019BCB PHA PEA $000A PEA $0000 TDC CLC ADC #$00B0 PHA _GetNextEvent BCS L019BE4 LDA #$0000 L019BE4 STAL L020002 PLA TAY BNE L019BEF BRL L019D3C L019BEF LDA $B0 BRL L019D2E L019BF4 PHA PEA $0000 TDC CLC ADC #$00E0 PHA PEI $BC PEI $BA LDAL L031DDC TAX LDAL L031DDA PHX PHA _FindControl BCS L019C19 LDA #$0000 L019C19 STAL L020002 PLA STA $C2 LDX $F7 LDA $F5 STX $E6 ORA $E6 BNE L019C34 LDX $FB LDA $F9 STX $E6 ORA $E6 BEQ L019C4F L019C34 LDA $C2 CMP #$0002 BNE L019C4F LDX $F3 LDA $F1 STX $E6 ORA $E6 BEQ L019C4D PEA $0000 JSL sendLDStill PLY L019C4D BRA L019C52 L019C4F BRL L019D3C L019C52 LDX $FB LDA $F9 STX $E6 ORA $E6 BEQ L019CB7 LDX #$0000 LDA #$0002 PHX PHA LDY #$0002 LDA [$E0],Y TAX LDA [$E0] STA $E6 STX $E8 LDY #$0022 LDA [$E6],Y TAX LDY #$0020 LDA [$E6],Y JSL L013333 BNE L019CB7 PEA $0002 PEI $FB PEI $F9 _HiliteControl BCS L019C94 LDA #$0000 L019C94 STAL L020002 LDX $F3 LDA $F1 STX $E6 ORA $E6 BEQ L019CA7 LDA #$0001 BRA L019CAA L019CA7 LDA #$0000 L019CAA PHA JSL L070C78 PLY LDA #$0001 STA $E4 BRA L019CE8 L019CB7 LDX $F7 LDA $F5 STX $E6 ORA $E6 BEQ L019CE8 PEA $0002 PEI $F7 PEI $F5 _HiliteControl BCS L019CD4 LDA #$0000 L019CD4 STAL L020002 LDA $FF BEQ L019CE3 LDA #$0001 STAL L031DFC L019CE3 LDA #$0001 STA $E4 L019CE8 BRL L019D3C L019CEB LDA $B2 CMP #$000D BNE L019D1D LDA $B4 CMP #$0000 BNE L019D1D PEA $0002 PEI $F7 PEI $F5 _HiliteControl BCS L019D0C LDA #$0000 L019D0C STAL L020002 PEA $0000 JSL sendLDStill PLY LDA #$0001 STA $E4 L019D1D BRL L019D3C L019D20 BRL L019D3C BRL L019D3C L019D26 DA L019BF4 DA L019D20 DA L019CEB DA L019D20 L019D2E DEC CMP #$0003 BCC L019D37 LDA #$0003 L019D37 ASL TAX JMP (L019D26,X) L019D3C BRL L019A98 L019D3F TSC CLC ADC #$003C TCS PLD RTL L019D47 ENT PHD TSC SEC SBC #$00F7 TCD ADC #$00EC TCS LDX $FF LDA $FD CLC ADC #$0004 PHA TXA ADC #$0000 TAX PLA STX $F0 STA $EE LDA [$EE] AND #$00FF PHA _SetSolidPenPat BCS L019D77 LDA #$0000 L019D77 STAL L020002 LDY #$0003 LDA [$EE],Y PHA LDY #$0001 LDA [$EE],Y PHA _MoveTo BCS L019D93 LDA #$0000 L019D93 STAL L020002 LDY #$0007 LDA [$EE],Y PHA LDY #$0005 LDA [$EE],Y PHA _LineTo BCS L019DAF LDA #$0000 L019DAF STAL L020002 TSC CLC ADC #$000A TCS PLD RTL L019DBB PHD TSC SEC SBC #$00EF TCD ADC #$00DC TCS LDA #$0002 PHA LDA [$FD] CLC JSL L012E82 PLY LDX #$0000 PHX PHA LDY #$0002 LDA [$FD],Y PHA LDA #$00A0 CLC JSL L013003 PLA LDX #$0000 PHX PHA LDX $F7 LDA $F5 JSL L012E77 PLA PLX JSL L012E77 PLA PLX STX $E8 STA $E6 LDA #$0002 PHA LDA [$FD] CLC JSL L012E82 PLY LDX #$0000 PHX PHA LDY #$0002 LDA [$FD],Y PHA LDA #$00A0 CLC JSL L013003 PLA LDX #$0000 PHX PHA LDX $FB LDA $F9 JSL L012E77 PLA PLX JSL L012E77 PLA PLX STX $E4 STA $E2 LDA #$0002 PHA LDY #$0004 LDA [$FD],Y CLC JSL L012E82 PLY STA $E0 STZ $DE BRA L019E94 L019E4D PEI $E8 PEI $E6 PEI $E4 PEI $E2 LDA $E0 LDX #$0000 PHX PHA _BlockMove BCS L019E68 LDA #$0000 L019E68 STAL L020002 LDX $E8 LDA $E6 CLC ADC #$00A0 PHA TXA ADC #$0000 TAX PLA STX $E8 STA $E6 LDX $E4 LDA $E2 CLC ADC #$00A0 PHA TXA ADC #$0000 TAX PLA STX $E4 STA $E2 INC $DE L019E94 LDY #$0006 LDA [$FD],Y CMP $DE BEQ L019E9F BCS L019E4D L019E9F TSC CLC ADC #$0012 TCS PLD RTL L019EA7 ENT PHD TSC SEC SBC #$00F7 TCD ADC #$00F0 TCS LDY #$0004 LDA [$FD],Y AND #$00FF PHA PEA $0002 JSL L012C5A PLY PLY TSC CLC ADC #$0006 TCS PLD RTL L019ECC ENT PHD TSC SEC SBC #$00F7 TCD ADC #$00EC TCS LDX $FF LDA $FD CLC ADC #$0004 PHA TXA ADC #$0000 TAX PLA STX $F0 STA $EE LDA [$EE] AND #$00FF PHA JSL L015CDA PLY TSC CLC ADC #$000A TCS PLD RTL L019EFD ENT PHD TSC SEC SBC #$00F7 TCD ADC #$00E0 TCS LDX $FF LDA $FD CLC ADC #$0004 PHA TXA ADC #$0000 TAX PLA STX $F0 STA $EE LDX $F0 LDA $EE CLC ADC #$0001 PHA TXA ADC #$0000 TAX PLA STX $EC STA $EA LDX $F0 LDA $EE CLC ADC #$0009 PHA TXA ADC #$0000 TAX PLA STX $E8 STA $E6 LDA [$E6] AND #$00FF CMP #$0000 BNE L019F81 LDY #$0001 LDA [$E6],Y AND #$00FF CMP #$0002 BNE L019F60 LDX #$00E1 LDA #$2000 BRA L019F7B L019F60 LDY #$0001 LDA [$E6],Y AND #$00FF CMP #$0001 BNE L019F75 LDX L0200F4 LDA L0200F2 BRA L019F7B L019F75 LDX #$0000 LDA #$0000 L019F7B STX $E4 STA $E2 BRA L019F8B L019F81 LDX #$00E1 LDA #$2000 STX $E4 STA $E2 L019F8B LDA [$EE] AND #$00FF PHA PEI $EC PEI $EA PEI $E4 PEI $E2 JSL L01BD93 PLY PLY PLY PLY PLY TSC CLC ADC #$0016 TCS PLD RTL L019FAA ENT PHD TSC SEC SBC #$00F7 TCD ADC #$00E8 TCS LDX $FF LDA $FD CLC ADC #$0004 PHA TXA ADC #$0000 TAX PLA STX $F0 STA $EE LDA [$EE] PHA LDX L02007A LDA L020078 PHX PHA JSL L018F17 PLY PLY PLY STX $EC STA $EA PEA $0000 LDY #$0006 LDA [$EA],Y LDX #$0000 STX $F6 ASL ROL $F6 ASL ROL $F6 ASL ROL $F6 ASL ROL $F6 ASL ROL $F6 LDX $F6 PHX PHA LDX L020092 LDA L020090 JSL L012E77 _SetColorTable BCS L01A014 LDA #$0000 L01A014 STAL L020002 TSC CLC ADC #$000E TCS PLD RTL L01A020 ENT PHD TSC SEC SBC #$00F7 TCD ADC #$00EC TCS LDX $FF LDA $FD CLC ADC #$0004 PHA TXA ADC #$0000 TAX PLA STX $F0 STA $EE LDA [$EE] AND #$00FF BRL L01A0DF L01A046 LDY #$0001 LDA [$EE],Y PHA LDX L02007A LDA L020078 PHX PHA JSL L018F17 PLY PLY PLY PHA TXA STAL L031DE8 PLA STAL L031DE6 BRL L01A0EC L01A069 LDY #$0001 LDA [$EE],Y PHA LDX L02007E LDA L02007C PHX PHA JSL L018F17 PLY PLY PLY PHA TXA STAL L031DE8 PLA STAL L031DE6 BRL L01A0EC L01A08C LDY #$0001 LDA [$EE],Y PHA LDX L020086 LDA L020084 PHX PHA JSL L018F17 PLY PLY PLY PHA TXA STAL L031DE8 PLA STAL L031DE6 BRL L01A0EC L01A0AF LDY #$0001 LDA [$EE],Y PHA LDX L020082 LDA L020080 PHX PHA JSL L018F17 PLY PLY PLY PHA TXA STAL L031DE8 PLA STAL L031DE6 BRL L01A0EC L01A0D2 BRL L01A0EC L01A0D5 DA L01A0AF DA L01A046 DA L01A069 DA L01A08C DA L01A0D2 L01A0DF CMP #$0004 BCC L01A0E7 LDA #$0004 L01A0E7 ASL TAX JMP (L01A0D5,X) L01A0EC TSC CLC ADC #$000A TCS PLD RTL L01A0F4 ENT PHD TSC SEC SBC #$00F7 TCD ADC #$00F0 TCS JSL L012BFB TSC CLC ADC #$0006 TCS PLD RTL L01A10B ENT PHD TSC SEC SBC #$00F7 TCD ADC #$00F0 TCS _HideCursor BCS L01A122 LDA #$0000 L01A122 STAL L020002 TSC CLC ADC #$0006 TCS PLD RTL L01A12E ENT PHD TSC SEC SBC #$00F7 TCD ADC #$00E0 TCS STZ $EE LDX $FF LDA $FD CLC ADC #$0004 PHA TXA ADC #$0000 TAX PLA STX $EC STA $EA LDX $EC LDA $EA CLC ADC #$0004 PHA TXA ADC #$0000 TAX PLA STX $E8 STA $E6 STX $E4 STA $E2 L01A165 LDA [$E2] AND #$00FF BEQ L01A174 INC $E2 BNE L01A172 INC $E4 L01A172 BRA L01A165 L01A174 INC $E2 BNE L01A17A INC $E4 L01A17A STZ $F0 BRL L01A21F L01A17F LDA [$E2] AND #$00FF BRL L01A210 L01A187 LDY #$0001 LDA [$E2],Y AND #$00FF PHA _SetForeColor BCS L01A19C LDA #$0000 L01A19C STAL L020002 LDX $E4 LDA $E2 CLC ADC #$0002 PHA TXA ADC #$0000 TAX PLA STX $E4 STA $E2 BRL L01A21D L01A1B6 LDY #$0001 LDA [$E2],Y AND #$00FF PHA _SetBackColor BCS L01A1CB LDA #$0000 L01A1CB STAL L020002 LDX $E4 LDA $E2 CLC ADC #$0002 PHA TXA ADC #$0000 TAX PLA STX $E4 STA $E2 BRL L01A21D L01A1E5 LDY #$0001 LDA [$E2],Y AND #$00FF STA $EE LDX $E4 LDA $E2 CLC ADC #$0002 PHA TXA ADC #$0000 TAX PLA STX $E4 STA $E2 BRL L01A21D L01A205 BRL L01A21D L01A208 DA L01A1B6 DA L01A1E5 DA L01A187 DA L01A205 L01A210 CMP #$0003 BCC L01A218 LDA #$0003 L01A218 ASL TAX JMP (L01A208,X) L01A21D INC $F0 L01A21F LDY #$0002 LDA [$FD],Y CMP $F0 BEQ L01A22D BCC L01A22D BRL L01A17F L01A22D PEI $EE JSL L01335E PLY LDA [$EA] PHA LDY #$0002 LDA [$EA],Y PHA _MoveTo BCS L01A249 LDA #$0000 L01A249 STAL L020002 PEI $E8 PEI $E6 _DrawCString BCS L01A25D LDA #$0000 L01A25D STAL L020002 TSC CLC ADC #$0016 TCS PLD RTL L01A269 ENT PHD TSC SEC SBC #$00F7 TCD ADC #$00DB TCS LDX $FF LDA $FD CLC ADC #$0004 PHA TXA ADC #$0000 TAX PLA STX $F0 STA $EE LDX $F0 LDA $EE CLC ADC #$0002 PHA TXA ADC #$0000 TAX PLA STX $EC STA $EA SEP #$20 STZ $E7 REP #$20 STZ $E5 STZ $E8 BRL L01A325 L01A2A7 LDA [$EA] AND #$00FF BRL L01A316 L01A2AF LDY #$0001 LDA [$EA],Y SEP #$20 STA $E7 REP #$20 LDX $EC LDA $EA CLC ADC #$0002 PHA TXA ADC #$0000 TAX PLA STX $EC STA $EA BRL L01A323 L01A2D0 LDA #$0001 STA $E5 LDY #$0001 LDA [$EA],Y STA $DD LDY #$0003 LDA [$EA],Y STA $DF LDY #$0005 LDA [$EA],Y SEC SBC $DD STA $E1 LDY #$0007 LDA [$EA],Y SEC SBC $DF STA $E3 LDX $EC LDA $EA CLC ADC #$0009 PHA TXA ADC #$0000 TAX PLA STX $EC STA $EA BRL L01A323 L01A30D BRL L01A323 L01A310 DA L01A2D0 DA L01A2AF DA L01A30D L01A316 CMP #$0002 BCC L01A31E LDA #$0002 L01A31E ASL TAX JMP (L01A310,X) L01A323 INC $E8 L01A325 LDY #$0002 LDA [$FD],Y CMP $E8 BEQ L01A333 BCC L01A333 BRL L01A2A7 L01A333 LDA $E5 BNE L01A33A BRL L01A3B0 L01A33A PEA $0000 TDC CLC ADC #$00DD PHA LDY #$0001 LDA [$EE],Y AND #$00FF CMP #$0002 BNE L01A358 LDX #$00E1 LDA #$2000 BRA L01A373 L01A358 LDY #$0001 LDA [$EE],Y AND #$00FF CMP #$0001 BNE L01A36D LDX L0200F4 LDA L0200F2 BRA L01A373 L01A36D LDX #$0000 LDA #$0000 L01A373 PHX PHA LDA [$EE] AND #$00FF CMP #$0002 BNE L01A387 LDX #$00E1 LDA #$2000 BRA L01A39F L01A387 LDA [$EE] AND #$00FF CMP #$0001 BNE L01A399 LDX L0200F4 LDA L0200F2 BRA L01A39F L01A399 LDX #$0000 LDA #$0000 L01A39F PHX PHA JSL L019DBB TAY TSC CLC ADC #$000C TCS TYA BRL L01A41D L01A3B0 LDA $E7 AND #$00FF PHA LDY #$0001 LDA [$EE],Y AND #$00FF CMP #$0002 BNE L01A3CB LDX #$00E1 LDA #$2000 BRA L01A3E6 L01A3CB LDY #$0001 LDA [$EE],Y AND #$00FF CMP #$0001 BNE L01A3E0 LDX L0200F4 LDA L0200F2 BRA L01A3E6 L01A3E0 LDX #$0000 LDA #$0000 L01A3E6 PHX PHA LDA [$EE] AND #$00FF CMP #$0002 BNE L01A3FA LDX #$00E1 LDA #$2000 BRA L01A412 L01A3FA LDA [$EE] AND #$00FF CMP #$0001 BNE L01A40C LDX L0200F4 LDA L0200F2 BRA L01A412 L01A40C LDX #$0000 LDA #$0000 L01A412 PHX PHA JSL L015EAC PLY PLY PLY PLY PLY L01A41D TSC CLC ADC #$001B TCS PLD RTL L01A425 ENT PHD TSC SEC SBC #$00F7 TCD ADC #$00F0 TCS _InitCursor BCS L01A43C LDA #$0000 L01A43C STAL L020002 TSC CLC ADC #$0006 TCS PLD RTL L01A448 ENT PHD TSC SEC SBC #$00F7 TCD ADC #$00F0 TCS _WaitCursor BCS L01A45F LDA #$0000 L01A45F STAL L020002 TSC CLC ADC #$0006 TCS PLD RTL L01A46B ENT PHD TSC SEC SBC #$00F7 TCD ADC #$00F0 TCS _ShowCursor BCS L01A482 LDA #$0000 L01A482 STAL L020002 TSC CLC ADC #$0006 TCS PLD RTL L01A48E ENT PHD TSC SEC SBC #$00F7 TCD ADC #$00EC TCS LDX $FF LDA $FD CLC ADC #$0004 PHA TXA ADC #$0000 TAX PLA STX $F0 STA $EE PEA $0001 PEA $0001 _SetPenSize BCS L01A4BE LDA #$0000 L01A4BE STAL L020002 LDA [$EE] AND #$00FF PHA _SetSolidPenPat BCS L01A4D4 LDA #$0000 L01A4D4 STAL L020002 PEA ^L038CC9 PEA L038CC9 _PaintRect BCS L01A4EA LDA #$0000 L01A4EA STAL L020002 TSC CLC ADC #$000A TCS PLD RTL L01A4F6 ENT PHD TSC SEC SBC #$00F7 TCD ADC #$00F0 TCS JSL L012E00 TSC CLC ADC #$0006 TCS PLD RTL L01A50D ENT PHD TSC SEC SBC #$00F7 TCD ADC #$00D4 TCS STZ $DA LDX $FF LDA $FD CLC ADC #$0004 PHA TXA ADC #$0000 TAX PLA STX $F0 STA $EE LDX $F0 LDA $EE CLC ADC #$0008 PHA TXA ADC #$0000 TAX PLA STX $EC STA $EA STX $E8 STA $E6 L01A544 LDX $E8 LDA $E6 INC $E6 BNE L01A54E INC $E8 L01A54E STA $F2 STX $F4 LDA [$F2] AND #$00FF BEQ L01A55B BRA L01A544 L01A55B INC $E6 BNE L01A561 INC $E8 L01A561 LDX $E8 LDA $E6 STX $E4 STA $E2 LDX $E4 LDA $E2 CLC ADC #$0008 PHA TXA ADC #$0000 TAX PLA STX $DE STA $DC STZ $E0 BRL L01A5AC L01A581 LDA [$DC] AND #$00FF BRL L01A5A5 L01A589 LDA #$0001 STA $DA LDX $DE LDA $DC CLC ADC #$0002 PHA TXA ADC #$0000 TAX PLA STX $DE STA $DC BRA L01A5AA BRA L01A5AA L01A5A5 CMP #$0000 BEQ L01A589 L01A5AA INC $E0 L01A5AC LDY #$0002 LDA [$FD],Y CMP $E0 BEQ L01A5B7 BCS L01A581 L01A5B7 PHX PHA LDAL L031DDC TAX LDAL L031DDA PHX PHA PEA $0000 TDC CLC ADC #$00EE PHA PEI $EC PEI $EA LDY #$0002 LDA [$E2],Y PHA PEA $0000 PEA $0000 PEA $0000 PEA ^L0138ED PEA L0138ED LDY #$0006 LDA [$E2],Y TAX LDY #$0004 LDA [$E2],Y PHX PHA LDA $DA BEQ L01A5FF LDA #L038CD1 LDX #^L038CD1 BRA L01A605 L01A5FF LDX #$0000 LDA #$0000 L01A605 PHX PHA _NewControl BCS L01A613 LDA #$0000 L01A613 STAL L020002 PLA PLX STX $D8 STA $D6 PHX PHA _ShowControl BCS L01A62B LDA #$0000 L01A62B STAL L020002 LDX $D8 LDA $D6 PHA TXA STAL L031DFA PLA STAL L031DF8 TSC CLC ADC #$0022 TCS PLD RTL L01A646 PHD TSC SEC SBC #$00ED TCD ADC #$00D8 TCS PEI $F5 PEI $F3 JSL L01BE7C PLY PLY STX $E2 STA $E0 LDY #$0002 LDA [$E0],Y TAX LDA [$E0] STX $DE STA $DC PEI $FF PEA $000F PEA $0000 PEI $DE PEI $DC PEA $0000 TDC CLC ADC #$00F7 PHA JSL L01BAD3 TAY TSC CLC ADC #$000E TCS TYA STX $E6 STA $E4 LDA $FF BEQ L01A6CC PEI $E6 PEI $E4 JSL L01A71C PLY PLY PEI $E2 PEI $E0 _DisposeHandle BCS L01A6AE LDA #$0000 L01A6AE STAL L020002 LDA L020002 STA $DA TAY BEQ L01A6C9 PEI $DA PEA ^L037E09 PEA L037E09 JSL L050256 PLY PLY PLY L01A6C9 BRL L01A6F1 L01A6CC LDX $E2 LDA $E0 STX L02010B STA L020109 LDX $E6 LDA $E4 STX L02010F STA L02010D LDA #L01BF3E LDX #^L01BF3E PHA TXA STAL L031DEC PLA STAL L031DEA L01A6F1 TSC CLC ADC #$0014 TCS PLD RTL L01A6F9 PHD TSC SEC SBC #$00FB TCD ADC #$00F4 TCS PEA $0006 PEA $0003 PEA $0000 JSL L015D04 PLY PLY PLY TSC CLC ADC #$0006 TCS PLD RTL L01A71C PHD TSC SEC SBC #$00F7 TCD ADC #$00D4 TCS STZ $D8 LDX #$0000 LDA #$0904 STX $F0 STA $EE L01A733 LDA $D8 BEQ L01A73A BRL L01A79B L01A73A PHA PEA $FEFF PEA $0000 TDC CLC ADC #$00DA PHA _TaskMaster BCS L01A753 LDA #$0000 L01A753 STAL L020002 PLA STA $D6 LDX $FF LDA $FD PHX PHA LDX $EC LDA $EA JSL L013333 BEQ L01A76C BRA L01A733 L01A76C LDA $D6 BRL L01A791 L01A771 PEI $FF PEI $FD _CloseWindow BCS L01A781 LDA #$0000 L01A781 STAL L020002 LDA #$0001 STA $D8 BRL L01A799 L01A78D BRA L01A799 BRA L01A799 L01A791 CMP #$0016 BEQ L01A771 JMP L01A78D L01A799 BRA L01A733 L01A79B TSC CLC ADC #$0022 TCS PLD RTL getSerialOutputStatus PHD TSC SEC SBC #$00FB TCD ADC #$00F4 TCS PEA $0000 JSL llSerialStatus ; Are you ready to accept output? PLY ; 1, yes TAY . 0: no TSC CLC ADC #$0006 TCS TYA PLD RTL L01A7C0 PHD TSC SEC SBC #$00E7 TCD ADC #$00E0 TCS PEA $0000 PEI $FF PEI $FD PEI $FB PEI $F9 PEI $F7 PEI $F5 PEI $F3 PEI $F1 PEI $EF PEI $ED JSL L01C2E5 TAY TSC CLC ADC #$0016 TCS TYA TAY TDC CLC ADC #$00E7 TCS TYA PLD RTL L01A7F8 PHD TSC SEC SBC #$00E7 TCD ADC #$00E0 TCS PEA $0001 PEI $FF PEI $FD PEI $FB PEI $F9 PEI $F7 PEI $F5 PEI $F3 PEI $F1 PEI $EF PEI $ED JSL L01C2E5 TAY TSC CLC ADC #$0016 TCS TYA TAY TDC CLC ADC #$00E7 TCS TYA PLD RTL L01A830 PHD TSC SEC SBC #$00FB TCD ADC #$00EC TCS STZ $F4 STZ $F4 BRL L01A916 L01A842 LDA $F4 PHA LDA #$000B CLC JSL L013003 PLA LDX #$0000 PHX PHA LDA #L0389E9 LDX #^L0389E9 JSL L012E77 PLA PLX STA $F6 STX $F8 LDA [$F6] AND #$00FF BRL L01A906 L01A86B PHX PHA LDA $F4 PHA LDA #$000B CLC JSL L013003 PLA LDX #$0000 PHX PHA LDA #L0389E9 LDX #^L0389E9 JSL L012E77 PLA PLX STA $F6 STX $F8 LDY #$0009 LDA [$F6],Y TAX LDY #$0007 LDA [$F6],Y PHX PHA _FindHandle BCS L01A8A7 LDA #$0000 L01A8A7 STAL L020002 PLA PLX STX $F2 STA $F0 LDA L020002 STA $EE TAY BEQ L01A8C8 PEI $EE PEA ^L038912 PEA L038912 JSL L050256 PLY PLY PLY L01A8C8 PEI $F2 PEI $F0 _DisposeHandle BCS L01A8D8 LDA #$0000 L01A8D8 STAL L020002 LDA L020002 STA $EE TAY BEQ L01A8F3 PEI $EE PEA ^L03893A PEA L03893A JSL L050256 PLY PLY PLY L01A8F3 BRL L01A914 L01A8F6 BRL L01A914 L01A8F9 BRL L01A914 L01A8FC DA L01A8F6 DA L01A86B DA L01A86B DA L01A86B DA L01A8F9 L01A906 DEC CMP #$0004 BCC L01A90F LDA #$0004 L01A90F ASL TAX JMP (L01A8FC,X) L01A914 INC $F4 L01A916 LDA $F4 CMP L020111 BCS L01A920 BRL L01A842 L01A920 TSC CLC ADC #$000E TCS PLD RTL L01A928 PHD TSC SEC SBC #$00FB TCD ADC #$00F2 TCS STZ $F4 STZ $F4 BRL L01AA75 L01A93A LDA $F4 PHA LDA #$000B CLC JSL L013003 PLA LDX #$0000 PHX PHA LDA #L0389E9 LDX #^L0389E9 JSL L012E77 PLA PLX STA $F6 STX $F8 LDA [$F6] AND #$00FF BRL L01AA65 L01A963 LDA $F4 PHA LDA #$000B CLC JSL L013003 PLA LDX #$0000 PHX PHA LDA #L0389E9 LDX #^L0389E9 JSL L012E77 PLA PLX STA $F6 STX $F8 LDY #$0005 LDA [$F6],Y TAX LDY #$0003 LDA [$F6],Y STA $F6 STX $F8 LDY #$000C LDA [$F6],Y PHA LDA $F4 PHA LDA #$000B CLC JSL L013003 PLA LDX #$0000 PHX PHA LDA #L0389E9 LDX #^L0389E9 JSL L012E77 PLA PLX STA $F6 STX $F8 LDY #$0005 LDA [$F6],Y TAX LDY #$0003 LDA [$F6],Y STA $F6 STX $F8 LDY #$000A LDA [$F6],Y PHA PEA $0000 PEA $0000 LDA $F4 PHA LDA #$000B CLC JSL L013003 PLA LDX #$0000 PHX PHA LDA #L0389E9 LDX #^L0389E9 JSL L012E77 PLA PLX STA $F6 STX $F8 LDY #$0005 LDA [$F6],Y TAX LDY #$0003 LDA [$F6],Y CLC ADC #$000E PHA TXA ADC #$0000 TAX PLA PHX PHA JSL L013C06 TAY TSC CLC ADC #$000C TCS TYA PHX PHA LDA $F4 PHA LDA #$000B CLC JSL L013003 PLA LDX #$0000 PHX PHA LDA #L0389E9 LDX #^L0389E9 JSL L012E77 PLA PLX STA $F6 STX $F8 PLA PLX LDY #$0009 PHA TXA STA [$F6],Y PLA LDY #$0007 STA [$F6],Y BRL L01AA73 L01AA4F BRL L01AA73 L01AA52 BRL L01AA73 L01AA55 BRL L01AA73 L01AA58 BRL L01AA73 L01AA5B DA L01AA4F DA L01AA55 DA L01A963 DA L01AA52 DA L01AA58 L01AA65 DEC CMP #$0004 BCC L01AA6E LDA #$0004 L01AA6E ASL TAX JMP (L01AA5B,X) L01AA73 INC $F4 L01AA75 LDA $F4 CMP L020111 BCS L01AA7F BRL L01A93A L01AA7F PEA ^L01B7E3 PEA L01B7E3 PEA $000B LDA L020111 PHA PEA ^L0389E9 PEA L0389E9 JSL L01AB66 TAY TSC CLC ADC #$000C TCS TYA TSC CLC ADC #$0008 TCS PLD RTL L01AAA6 TSC CLC ADC #$0008 PEA $0000 PHA LDA $0A,S PHA LDA $0A,S PHA PEA $0010 _SANEFP816 LDA $02,S STA $06,S LDA $00,S STA $04,S PLY PLY RTL sendLDSCAN PHD TSC SEC SBC #$00F9 TCD ADC #$00F2 TCS LDA $FF CMP #$0000 BNE L01AAEA PEA ^L0380A0 ; Scan Forward PEA L0380A0 JSL sendLDCommand PLY PLY BRA L01AAF6 L01AAEA PEA ^L0380A3 ; Scan Reverse PEA L0380A3 JSL sendLDCommand PLY PLY L01AAF6 TAY TSC CLC ADC #$0006 TCS TYA PLD RTL L01AB00 PHD TSC SEC SBC #$00F7 TCD ADC #$00F0 TCS PHX PHA LDAL L031DDC TAX LDAL L031DDA PHX PHA PEA ^L038984 PEA L038984 PEA ^L03898C PEA L03898C PEA $0000 PEA $0000 PEA $0000 PEA $0000 PEA $0000 PEA $0000 PEA $0000 PEA $0002 PEA ^L03897A PEA L03897A _NewControl BCS L01AB4E LDA #$0000 L01AB4E STAL L020002 PLA PLX LDY #$0002 PHA TXA STA [$FD],Y PLA STA [$FD] TSC CLC ADC #$0006 TCS PLD RTL L01AB66 PHD TSC SEC SBC #$00EF TCD ADC #$00E8 TCS LDX $FF LDA $FD STX L020107 STA L020105 LDA $FB STA L020103 LDA $FB PHA LDA $F9 CLC JSL L013003 PLA LDX #$0000 PHX PHA LDX $F7 LDA $F5 JSL L012E77 PEI $F7 PEI $F5 JSL L01BF91 PLY PLY PLY PLY TDC CLC ADC #$00EF TCS PLD RTL L01ABAC TAY PHB LDA $06,S PHA PLB PLB PHY PHY PEA $0000 TXA CMP ($0B,S),Y BEQ L01ABEC LDY #$0000 CMP ($0B,S),Y BEQ L01ABEC BRA L01ABC9 L01ABC6 TYA STA $03,S L01ABC9 LDA $03,S CMP $01,S BEQ L01ABE7 CLC ADC $01,S LSR AND #$00FE CMP $01,S BEQ L01ABE7 TAY TXA CMP ($0B,S),Y BEQ L01ABEC BCC L01ABC6 TYA STA $01,S BRA L01ABC9 L01ABE7 LDA $05,S INC INC TAY L01ABEC TYX PLA PLA PLA PLB RTL L01ABF2 PHD TSC SEC SBC #$00F9 TCD ADC #$00E2 TCS PEI $FF PEA ^L0380C6 PEA L0380C6 PEA $0000 TDC CLC ADC #$00E4 PHA JSL L01508C PLY PLY PLY PLY PLY PEA $0000 TDC CLC ADC #$00E4 PHA JSL sendLDCommand PLY PLY TAY TSC CLC ADC #$0016 TCS TYA PLD RTL L01AC30 PHD TSC SEC SBC #$00F9 TCD ADC #$00F2 TCS LDA $FF AND #$00FF LDX #$0000 PHX PHA LDA #L037E33 LDX #^L037E33 JSL L012E77 PLA PLX STA $F4 STX $F6 LDA [$F4] AND #$00FF AND #$0080 TAY BEQ L01AC94 LDA $FF AND #$00FF SEC SBC #$0039 BEQ L01AC72 BVS L01AC70 EOR #$8000 L01AC70 BMI L01AC7D L01AC72 LDA $FF AND #$00FF SEC SBC #$0030 BRA L01AC90 L01AC7D LDA $FF AND #$00FF PHA JSL L01B219 PLY SEC SBC #$0061 CLC ADC #$000A L01AC90 BRA L01AC97 BRA L01AC97 L01AC94 LDA #$FFFF L01AC97 TAY TDC CLC ADC #$00F9 TCS TYA PLD RTL L01ACA1 PHD TSC SEC SBC #$00EF TCD ADC #$00DC TCS LDA $F9 SEC SBC #$0000 BNE L01ACB7 BRL L01AD35 L01ACB7 BVS L01ACBC EOR #$8000 L01ACBC BPL L01AD35 LDA $FB SEC SBC #$0000 BEQ L01AD35 BVS L01ACCB EOR #$8000 L01ACCB BPL L01AD35 LDY #$0010 LDA [$FD],Y AND #$0012 CMP #$0002 BNE L01AD23 LDX #$0000 LDA #$0000 PHX PHA LDY #$0008 LDA [$FD],Y TAX LDY #$0006 LDA [$FD],Y JSL L013333 BEQ L01AD23 LDY #$0008 LDA [$FD],Y TAX LDY #$0006 LDA [$FD],Y PHX PHA LDY #$0004 LDA [$FD],Y TAX LDY #$0002 LDA [$FD],Y JSL L013333 BNE L01AD2F LDA [$FD] CMP #$0000 BNE L01AD2F LDY #$0010 LDA [$FD],Y AND #$0044 TAY BNE L01AD2F L01AD23 PEI $FF PEI $FD JSL L01B0F6 PLY PLY BRA L01AD32 L01AD2F LDA #$0000 L01AD32 TAY BEQ L01AD3B L01AD35 LDA #$0000 BRL L01AF0E L01AD3B LDA $F9 PHA LDA $FB SEC JSL L013003 PLA STA $E8 LDY #$0010 LDA [$FD],Y AND #$0044 TAY BNE L01AD56 BRL L01ADDB L01AD56 LDY #$0010 LDA [$FD],Y AND #$0004 TAY BEQ L01AD79 PEI $E8 PEI $F7 PEI $F5 LDY #$0012 LDA [$FD],Y PHA JSL L01C6F7 PLY PLY PLY PLY STA $E6 BRA L01ADAB L01AD79 STZ $E6 BRA L01ADA5 L01AD7D PEI $FF PEI $FD LDX $F7 LDA $F5 INC $F5 BNE L01AD8B INC $F7 L01AD8B STA $EA STX $EC LDA [$EA] AND #$00FF PHA JSL L01AF18 PLY PLY PLY CMP #$FFFF BNE L01ADA3 BRA L01ADAB L01ADA3 INC $E6 L01ADA5 LDA $E6 CMP $E8 BCC L01AD7D L01ADAB LDA $E6 SEC SBC #$0000 BVS L01ADB6 EOR #$8000 L01ADB6 BMI L01ADC0 LDA #$0000 BRL L01AF0E BRA L01ADDB L01ADC0 LDA $E6 CMP $E8 BNE L01ADCD LDA $FB BRL L01AF0E BRA L01ADDB L01ADCD LDA $F9 PHA LDA $E6 SEC JSL L012E82 PLY BRL L01AF0E L01ADDB LDY #$000C LDA [$FD],Y TAX LDY #$000A LDA [$FD],Y STX $E0 STA $DE L01ADEA LDY #$0004 LDA [$FD],Y TAX LDY #$0002 LDA [$FD],Y STX $E4 STA $E2 PHX PHA LDX $E0 LDA $DE JSL L012FF8 PLA PLX STA $E6 SEC SBC #$0000 BEQ L01AE14 BVS L01AE12 EOR #$8000 L01AE12 BMI L01AE43 L01AE14 PEI $FF PEI $FD JSL L01B913 PLY PLY CMP #$FFFF BNE L01AE41 LDA $F9 PHA LDA $E8 CLC ADC $F9 SEC SBC #$0001 CLC JSL L012E82 PLY PHA LDA $FB PLX STX $EE SEC SBC $EE BRL L01AF0E L01AE41 BRA L01ADEA L01AE43 LDA $E6 CMP $E8 BEQ L01AE4F BCC L01AE4F LDA $E8 BRA L01AE51 L01AE4F LDA $E6 L01AE51 STA $E6 PEI $E6 PEI $F7 PEI $F5 PEI $E4 PEI $E2 JSL L013E61 PLY PLY PLY PLY PLY LDA [$FD] SEC SBC $E6 STA [$FD] LDA $E6 LDX #$0000 TAY BPL L01AE76 DEX L01AE76 PHX PHA LDY #$0004 LDA [$FD],Y TAX LDY #$0002 LDA [$FD],Y JSL L012E77 PLA PLX LDY #$0004 PHA TXA STA [$FD],Y PLA LDY #$0002 STA [$FD],Y LDY #$0004 LDA [$FD],Y TAX LDY #$0002 LDA [$FD],Y PHX PHA LDY #$000C LDA [$FD],Y TAX LDY #$000A LDA [$FD],Y JSL L012FF8 PLA PLX PHA LDA [$FD] SEC SBC #$0000 BVS L01AEC0 EOR #$8000 L01AEC0 BMI L01AEC7 LDA #$0000 BRA L01AEC9 L01AEC7 LDA [$FD] L01AEC9 PLX STX $EA SEC SBC $EA BEQ L01AEE2 BVS L01AED6 EOR #$8000 L01AED6 BPL L01AEE2 PEI $FF PEI $FD JSL L01B8A7 PLY PLY L01AEE2 LDA $E8 SEC SBC $E6 STA $E8 CMP #$0000 BNE L01AEF2 LDA $FB BRA L01AF0E L01AEF2 LDA $E6 LDX #$0000 TAY BPL L01AEFB DEX L01AEFB PHX PHA LDX $F7 LDA $F5 JSL L012E77 PLA PLX STX $F7 STA $F5 BRL L01ADEA L01AF0E TAY TDC CLC ADC #$00EF TCS TYA PLD RTL L01AF18 PHD TSC SEC SBC #$00F5 TCD ADC #$00ED TCS LDY #$0010 LDA [$FD],Y AND #$0052 CMP #$0042 BEQ L01AF33 BRL L01AFB8 L01AF33 LDY #$000C LDA [$FD],Y TAX LDY #$000A LDA [$FD],Y PHX PHA LDY #$0004 LDA [$FD],Y TAX LDY #$0002 LDA [$FD],Y JSL L013333 BEQ L01AF58 BVS L01AF56 EOR #$8000 L01AF56 BMI L01AF5B L01AF58 BRL L01B007 L01AF5B LDY #$0004 LDA [$FD],Y TAX LDY #$0002 LDA [$FD],Y PHX PHA CLC ADC #$0001 LDY #$0002 STA [$FD],Y LDY #$0004 LDA [$FD],Y BCC L01AF79 INC L01AF79 LDY #$0004 STA [$FD],Y PLA PLX STA $F0 STX $F2 LDA $FB SEP #$20 STA [$F0] REP #$20 AND #$00FF CMP #$000A BEQ L01AF9C LDA $FB AND #$00FF BRL L01B0EC L01AF9C PEI $FF PEI $FD JSL L01B913 PLY PLY CMP #$FFFF BNE L01AFB0 LDA #$FFFF BRA L01AFB5 L01AFB0 LDA $FB AND #$00FF L01AFB5 BRL L01B0EC L01AFB8 LDY #$0010 LDA [$FD],Y AND #$0016 CMP #$0006 BNE L01B007 LDA $FB SEP #$20 STA $EF REP #$20 PEA $0001 PEA $0000 TDC CLC ADC #$00EF PHA LDY #$0012 LDA [$FD],Y PHA JSL L01C6F7 PLY PLY PLY PLY CMP #$0001 BNE L01AFF4 LDA $FB AND #$00FF BRL L01B0EC L01AFF4 LDY #$0010 LDA [$FD],Y ORA #$0020 LDY #$0010 STA [$FD],Y LDA #$FFFF BRL L01B0EC L01B007 LDY #$0010 LDA [$FD],Y AND #$0012 CMP #$0002 BNE L01B05D LDX #$0000 LDA #$0000 PHX PHA LDY #$0008 LDA [$FD],Y TAX LDY #$0006 LDA [$FD],Y JSL L013333 BEQ L01B05D LDY #$0008 LDA [$FD],Y TAX LDY #$0006 LDA [$FD],Y PHX PHA LDY #$0004 LDA [$FD],Y TAX LDY #$0002 LDA [$FD],Y JSL L013333 BNE L01B069 LDA [$FD] CMP #$0000 BNE L01B069 LDY #$0010 LDA [$FD],Y AND #$0044 TAY BNE L01B069 L01B05D PEI $FF PEI $FD JSL L01B0F6 PLY PLY BRA L01B06C L01B069 LDA #$0000 L01B06C TAY BEQ L01B074 LDA #$FFFF BRA L01B0EC L01B074 PEI $FF PEI $FD JSL L01B913 PLY PLY LDA [$FD] DEC STA [$FD] SEC SBC #$0000 BVS L01B08C EOR #$8000 L01B08C BPL L01B0C6 LDA $FB PHA LDY #$0004 LDA [$FD],Y TAX LDY #$0002 LDA [$FD],Y PHX PHA CLC ADC #$0001 LDY #$0002 STA [$FD],Y LDY #$0004 LDA [$FD],Y BCC L01B0AF INC L01B0AF LDY #$0004 STA [$FD],Y PLA PLX STA $F0 STX $F2 PLA SEP #$20 STA [$F0] REP #$20 AND #$00FF BRA L01B0D7 L01B0C6 PEI $FF PEI $FD LDA $FB AND #$00FF PHA JSL L01AF18 PLY PLY PLY L01B0D7 LDY #$0010 LDA [$FD],Y AND #$0020 TAY BEQ L01B0E7 LDA #$FFFF BRA L01B0EC L01B0E7 LDA $FB AND #$00FF L01B0EC TAY TDC CLC ADC #$00F5 TCS TYA PLD RTL L01B0F6 PHD TSC SEC SBC #$00F7 TCD ADC #$00F0 TCS LDY #$0010 LDA [$FD],Y AND #$0012 CMP #$0002 BEQ L01B12F LDY #$0010 LDA [$FD],Y AND #$0082 TAY BNE L01B11F LDA #$FFFF BRL L01B1D1 L01B11F LDY #$0010 LDA [$FD],Y AND #$FFEF ORA #$0002 LDY #$0010 STA [$FD],Y L01B12F LDX #$0000 LDA #$0000 PHX PHA LDY #$0004 LDA [$FD],Y TAX LDY #$0002 LDA [$FD],Y JSL L013333 BNE L01B152 PEI $FF PEI $FD JSL L01B254 PLY PLY L01B152 LDY #$0008 LDA [$FD],Y TAX LDY #$0006 LDA [$FD],Y PHX PHA LDY #$0004 LDA [$FD],Y TAX LDY #$0002 LDA [$FD],Y JSL L013333 BNE L01B1CE LDY #$0010 LDA [$FD],Y AND #$0044 TAY BNE L01B1CE LDY #$000E LDA [$FD],Y STA [$FD] LDY #$0004 LDA [$FD],Y TAX LDY #$0002 LDA [$FD],Y PHX PHA LDY #$000C LDA [$FD],Y TAX LDY #$000A LDA [$FD],Y JSL L012FF8 PLA PLX PHA LDA [$FD] SEC SBC #$0000 BVS L01B1AC EOR #$8000 L01B1AC BMI L01B1B3 LDA #$0000 BRA L01B1B5 L01B1B3 LDA [$FD] L01B1B5 PLX STX $F2 SEC SBC $F2 BEQ L01B1CE BVS L01B1C2 EOR #$8000 L01B1C2 BPL L01B1CE PEI $FF PEI $FD JSL L01B8A7 PLY PLY L01B1CE LDA #$0000 L01B1D1 TAY TDC CLC ADC #$00F7 TCS TYA PLD RTL L01B1DB PHD TSC SEC SBC #$00F3 TCD ADC #$00EC TCS LDA [$F9] PHA LDA [$FD] PLX STX $EE CMP $EE BCS L01B1F9 LDA #$0001 BRA L01B20F BRA L01B20F L01B1F9 LDA [$F9] PHA LDA [$FD] PLX STX $EE CMP $EE BNE L01B20C LDA #$0000 BRA L01B20F BRA L01B20F L01B20C LDA #$FFFF L01B20F TAY TSC CLC ADC #$0006 TCS TYA PLD RTL L01B219 PHD TSC SEC SBC #$00F9 TCD ADC #$00F2 TCS LDA $FF SEC SBC #$0041 BVS L01B22F EOR #$8000 L01B22F BPL L01B248 LDA $FF SEC SBC #$005A BEQ L01B240 BVS L01B23E EOR #$8000 L01B23E BMI L01B248 L01B240 LDA $FF SEC SBC #$FFE0 STA $FF L01B248 LDA $FF TAY TDC CLC ADC #$00F9 TCS TYA PLD RTL L01B254 PHD TSC SEC SBC #$00F7 TCD ADC #$00EA TCS LDA L020123 STA $F0 LDA L020002 STA $EE LDA L020125 BEQ L01B27D STZ L020125 PEA ^L01B60C PEA L01B60C JSL L01C958 PLY PLY L01B27D LDY #$0010 LDA [$FD],Y AND #$0004 TAY BEQ L01B2A6 LDA #$0000 LDY #$000E STA [$FD],Y LDX #$0000 LDA #$0000 LDY #$0008 PHA TXA STA [$FD],Y PLA LDY #$0006 STA [$FD],Y BRL L01B3D7 L01B2A6 LDY #$000E LDA [$FD],Y CMP #$0000 BNE L01B30E LDX #$0000 LDA #$0000 LDY #$0008 PHA TXA STA [$FD],Y PLA LDY #$0006 STA [$FD],Y LDY #$0010 LDA [$FD],Y AND #$0040 TAY BEQ L01B2D8 LDA #$0064 LDY #$000E STA [$FD],Y BRA L01B30E L01B2D8 PEA $0000 TDC CLC ADC #$00EC PHA PEA $6603 LDY #$0012 LDA [$FD],Y PHA JSL L01C4F2 PLY PLY PLY PLY SEC SBC #$0000 BVS L01B2FB EOR #$8000 L01B2FB BPL L01B306 LDA $EC LDY #$000E STA [$FD],Y BRA L01B30E L01B306 LDA #$0400 LDY #$000E STA [$FD],Y L01B30E LDX #$0000 LDA #$0000 PHX PHA LDY #$0008 LDA [$FD],Y TAX LDY #$0006 LDA [$FD],Y JSL L013333 BEQ L01B32A BRL L01B3D7 L01B32A LDY #$000E LDA [$FD],Y LDX #$0000 PHX PHA JSL L014878 PLY PLY LDY #$0008 PHA TXA STA [$FD],Y PLA LDY #$0006 STA [$FD],Y LDX #$0000 LDA #$0000 PHX PHA LDY #$0008 LDA [$FD],Y TAX LDY #$0006 LDA [$FD],Y JSL L013333 BNE L01B3A2 LDY #$000E LDA [$FD],Y CMP #$0064 BEQ L01B3A2 BCC L01B3A2 LDY #$000E LDA [$FD],Y CMP #$0400 BEQ L01B37D BCC L01B37D LDA #$0400 BRA L01B380 L01B37D LDA #$0064 L01B380 LDY #$000E STA [$FD],Y LDY #$000E LDA [$FD],Y LDX #$0000 PHX PHA JSL L014878 PLY PLY LDY #$0008 PHA TXA STA [$FD],Y PLA LDY #$0006 STA [$FD],Y L01B3A2 LDX #$0000 LDA #$0000 PHX PHA LDY #$0008 LDA [$FD],Y TAX LDY #$0006 LDA [$FD],Y JSL L013333 BEQ L01B3CA LDY #$0010 LDA [$FD],Y ORA #$0008 LDY #$0010 STA [$FD],Y BRA L01B3D7 L01B3CA LDY #$0010 LDA [$FD],Y ORA #$0004 LDY #$0010 STA [$FD],Y L01B3D7 LDY #$000E LDA [$FD],Y LDX #$0000 PHX PHA LDY #$0008 LDA [$FD],Y TAX LDY #$0006 LDA [$FD],Y JSL L012E77 PLA PLX LDY #$000C PHA TXA STA [$FD],Y PLA LDY #$000A STA [$FD],Y LDY #$0008 LDA [$FD],Y TAX LDY #$0006 LDA [$FD],Y LDY #$0004 PHA TXA STA [$FD],Y PLA LDY #$0002 STA [$FD],Y PEA $0000 PEA $6602 LDY #$0012 LDA [$FD],Y PHA JSL L01C4F2 PLY PLY PLY SEC SBC #$0000 BVS L01B433 EOR #$8000 L01B433 BPL L01B442 LDY #$0010 LDA [$FD],Y ORA #$0100 LDY #$0010 STA [$FD],Y L01B442 LDA $F0 STA L020123 LDA $EE STA L020002 TAY TDC CLC ADC #$00F7 TCS TYA PLD RTL L01B456 PHD TSC SEC SBC #$00F9 TCD ADC #$00DA TCS LDA $FF LDX #$0000 PEA $0000 PEA $000B CLC JSL L013048 LDA #L0389E9 LDX #^L0389E9 JSL L012E77 PLA PLX STX $F2 STA $F0 LDY #$0005 LDA [$F0],Y TAX LDY #$0003 LDA [$F0],Y STX $EE STA $EC LDY #$0009 LDA [$F0],Y TAX LDY #$0007 LDA [$F0],Y STX $EA STA $E8 LDA [$F0] AND #$00FF BRL L01B5F6 L01B4A7 PEA $0000 LDY #$0006 LDA [$EC],Y LDX #$0000 STX $F8 ASL ROL $F8 ASL ROL $F8 ASL ROL $F8 ASL ROL $F8 ASL ROL $F8 LDX $F8 PHX PHA LDX L020092 LDA L020090 JSL L012E77 _SetColorTable BCS L01B4DD LDA #$0000 L01B4DD STAL L020002 LDY #$0004 LDA [$EC],Y PHA LDY #$000C LDA [$EC],Y PHA LDY #$0008 LDA [$EC],Y AND #$00FF AND #$000F PHA LDY #$0008 LDA [$EC],Y AND #$00FF AND #$00F0 PHA LDY #$0002 LDA [$EC],Y PHA LDA [$EC] PHA PEA $00E1 PEA $2000 PEI $EA PEI $E8 JSL L014D17 TAY TSC CLC ADC #$0014 TCS TYA BRL L01B604 L01B527 LDY #$0002 LDA [$EC],Y STA $E0 LDA [$EC] STA $E2 LDY #$0004 LDA [$EC],Y PHA LDY #$000C LDA [$EC],Y CLC JSL L012E82 PLY PHA LDA $E0 PLX STX $F8 CLC ADC $F8 STA $E4 LDY #$0004 LDA [$EC],Y ASL PHA LDA $E2 PLX STX $F8 CLC ADC $F8 STA $E6 PEA $000E PEA $0000 TDC CLC ADC #$00E0 PHA PEA $00E1 PEA $2000 JSL L01BD93 PLY PLY PLY PLY PLY BRL L01B604 L01B57D LDX $EA LDA $E8 STX $DE STA $DC LDY #$000A LDA [$DC],Y AND #$00FF PHA LDY #$0008 LDA [$DC],Y PHA LDY #$0006 LDA [$DC],Y PHA LDY #$0004 LDA [$DC],Y PHA LDY #$0002 LDA [$DC],Y TAX LDA [$DC] PHX PHA JSL L0C02CE TAY TSC CLC ADC #$000C TCS TYA BRL L01B604 L01B5B9 LDX $EA LDA $E8 STX $DE STA $DC LDY #$0008 LDA [$DC],Y PHA LDY #$0006 LDA [$DC],Y PHA LDY #$0004 LDA [$DC],Y PHA LDY #$0002 LDA [$DC],Y TAX LDA [$DC] PHX PHA JSL L0C00F5 PLY PLY PLY PLY PLY BRL L01B604 L01B5E9 BRL L01B604 L01B5EC DA L01B527 DA L01B5B9 DA L01B4A7 DA L01B57D DA L01B5E9 L01B5F6 DEC CMP #$0004 BCC L01B5FF LDA #$0004 L01B5FF ASL TAX JMP (L01B5EC,X) L01B604 TSC CLC ADC #$001E TCS PLD RTL L01B60C PHD TSC SEC SBC #$00FB TCD ADC #$00F0 TCS LDA #L038CF2 LDX #^L038CF2 STX $F4 STA $F2 BRA L01B639 L01B623 PEI $F4 PEI $F2 JSL L01C7D9 PLY PLY LDA $F2 CLC ADC #$0014 STA $F2 BCC L01B639 INC $F4 L01B639 SEC LDA $F2 SBC L020113 BNE L01B648 LDA $F4 SBC L020115 BRA L01B64F L01B648 LDA $F4 SBC L020115 REP #$02 L01B64F BVS L01B654 EOR #$8000 L01B654 BPL L01B623 TAY TDC CLC ADC #$00FB TCS TYA PLD RTL L01B660 PHD TSC SEC SBC #$00ED TCD ADC #$00E0 TCS LDY #$000C LDA [$F3],Y CMP #$74E0 BEQ L01B678 BRL L01B6FD L01B678 LDY #$0008 LDA [$F3],Y AND #$00FF AND #$00F0 CMP #$0030 BNE L01B6FD LDA $FB CMP #$0000 BNE L01B6C9 PEA $0000 LDY #$0006 LDA [$F3],Y LDX #$0000 STX $EC ASL ROL $EC ASL ROL $EC ASL ROL $EC ASL ROL $EC ASL ROL $EC LDX $EC PHX PHA LDX L020092 LDA L020090 JSL L012E77 _SetColorTable BCS L01B6C5 LDA #$0000 L01B6C5 STAL L020002 L01B6C9 LDY #$000C LDA [$F3],Y PHA LDY #$000A LDA [$F3],Y PHA LDX $FF LDA $FD CLC ADC #$0820 PHA TXA ADC #$0000 TAX PLA PHX PHA PEI $F9 PEI $F7 JSL L013C06 TAY TSC CLC ADC #$000C TCS TYA STX $E8 ORA $E8 BRL L01B7D9 L01B6FD LDY #$000C LDA [$F3],Y PHA LDY #$000A LDA [$F3],Y PHA PEA $0000 PEA $0000 PEI $F9 PEI $F7 JSL L013C06 TAY TSC CLC ADC #$000C TCS TYA STX $E6 STA $E4 LDX $E6 LDA $E4 STX $E8 ORA $E8 LDA $FB CMP #$0000 BNE L01B76C PEA $0000 LDY #$0006 LDA [$F3],Y LDX #$0000 STX $EC ASL ROL $EC ASL ROL $EC ASL ROL $EC ASL ROL $EC ASL ROL $EC LDX $EC PHX PHA LDX L020092 LDA L020090 JSL L012E77 _SetColorTable BCS L01B768 LDA #$0000 L01B768 STAL L020002 L01B76C LDY #$0004 LDA [$F3],Y PHA LDY #$000C LDA [$F3],Y PHA LDY #$0008 LDA [$F3],Y AND #$00FF AND #$000F PHA LDY #$0008 LDA [$F3],Y AND #$00FF AND #$00F0 PHA LDY #$0002 LDA [$F3],Y PHA LDA [$F3] PHA PEI $FF PEI $FD PEI $E6 PEI $E4 JSL L014D17 TAY TSC CLC ADC #$0014 TCS TYA PHX PHA PEI $E6 PEI $E4 _FindHandle BCS L01B7BF LDA #$0000 L01B7BF STAL L020002 _DisposeHandle BCS L01B7CF LDA #$0000 L01B7CF STAL L020002 LDA L020002 STA $E2 TAY L01B7D9 TAY TSC CLC ADC #$000C TCS TYA PLD RTL L01B7E3 PHD TSC SEC SBC #$00F3 TCD ADC #$00E4 TCS LDX $FB LDA $F9 STX $EC STA $EA LDX $FF LDA $FD STX $E8 STA $E6 LDY #$0001 LDA [$EA],Y PHA LDY #$0001 LDA [$E6],Y PLX STX $EE CMP $EE BEQ L01B819 BCC L01B819 LDA #$FFFF BRA L01B843 BRA L01B843 L01B819 LDY #$0001 LDA [$EA],Y PHA LDY #$0001 LDA [$E6],Y PLX STX $EE CMP $EE BNE L01B840 LDA [$E6] AND #$00FF PHA LDA [$EA] AND #$00FF PLX STX $F2 SEC SBC $F2 BRA L01B843 BRA L01B843 L01B840 LDA #$0001 L01B843 TAY TSC CLC ADC #$000E TCS TYA PLD RTL L01B84D PHD TSC SEC SBC #$00F5 TCD ADC #$00E6 TCS LDA $FF AND #$00FF PHA _SetSolidPenPat BCS L01B86A LDA #$0000 L01B86A STAL L020002 LDA $FB STA $EA LDA $FD STA $E8 LDA $FB CLC ADC #$0005 STA $EE LDA $FD CLC ADC #$0003 STA $EC PEA $0000 TDC CLC ADC #$00E8 PHA _PaintRect BCS L01B89B LDA #$0000 L01B89B STAL L020002 TSC CLC ADC #$000E TCS PLD RTL L01B8A7 PHD TSC SEC SBC #$00F7 TCD ADC #$00EE TCS LDY #$0004 LDA [$FD],Y TAX LDY #$0002 LDA [$FD],Y PHX PHA LDY #$000C LDA [$FD],Y TAX LDY #$000A LDA [$FD],Y JSL L012FF8 PLA PLX STA $F0 SEC SBC #$0000 BVS L01B8DB EOR #$8000 L01B8DB BMI L01B8F7 LDY #$000C LDA [$FD],Y TAX LDY #$000A LDA [$FD],Y LDY #$0004 PHA TXA STA [$FD],Y PLA LDY #$0002 STA [$FD],Y BRA L01B909 L01B8F7 LDA [$FD] SEC SBC $F0 BEQ L01B909 BVS L01B903 EOR #$8000 L01B903 BPL L01B909 LDA $F0 STA [$FD] L01B909 TAY TDC CLC ADC #$00F7 TCS TYA PLD RTL L01B913 PHD TSC SEC SBC #$00F7 TCD ADC #$00EA TCS LDY #$0008 LDA [$FD],Y TAX LDY #$0006 LDA [$FD],Y STX $F0 STA $EE PHX PHA LDY #$0004 LDA [$FD],Y TAX LDY #$0002 LDA [$FD],Y JSL L012FF8 PLA PLX STA $EC LDX $F0 LDA $EE LDY #$0004 PHA TXA STA [$FD],Y PLA LDY #$0002 STA [$FD],Y LDY #$0010 LDA [$FD],Y AND #$0044 TAY BEQ L01B963 LDA #$0000 BRA L01B968 L01B963 LDY #$000E LDA [$FD],Y L01B968 STA [$FD] LDY #$0004 LDA [$FD],Y TAX LDY #$0002 LDA [$FD],Y PHX PHA LDY #$000C LDA [$FD],Y TAX LDY #$000A LDA [$FD],Y JSL L012FF8 PLA PLX PHA LDA [$FD] SEC SBC #$0000 BVS L01B994 EOR #$8000 L01B994 BMI L01B99B LDA #$0000 BRA L01B99D L01B99B LDA [$FD] L01B99D PLX STX $F2 SEC SBC $F2 BEQ L01B9B6 BVS L01B9AA EOR #$8000 L01B9AA BPL L01B9B6 PEI $FF PEI $FD JSL L01B8A7 PLY PLY L01B9B6 LDA $EC SEC SBC #$0000 BEQ L01B9F0 BVS L01B9C3 EOR #$8000 L01B9C3 BPL L01B9F0 LDA $EC PHA PEI $F0 PEI $EE LDY #$0012 LDA [$FD],Y PHA JSL L01C6F7 PLY PLY PLY PLY CMP $EC BEQ L01B9F0 LDY #$0010 LDA [$FD],Y ORA #$0020 LDY #$0010 STA [$FD],Y LDA #$FFFF BRA L01B9F3 L01B9F0 LDA #$0000 L01B9F3 TAY TDC CLC ADC #$00F7 TCS TYA PLD RTL L01B9FD PHD TSC SEC SBC #$00F7 TCD ADC #$00C6 TCS JSL L015B49 STA $F0 LDA #$0001 STA $EC LDA $FF BEQ L01BA33 PEA $0000 PEA $0000 TDC CLC ADC #$00CC PHA _GetColorTable BCS L01BA2F LDA #$0000 L01BA2F STAL L020002 L01BA33 LDA #$0001 BNE L01BA3B BRL L01BAC9 L01BA3B LDA $FF BEQ L01BA4E PEA $0000 TDC CLC ADC #$00CC PHA JSL L01CAE8 PLY PLY L01BA4E JSL L015B49 STA $EE LDA $FF BEQ L01BA74 PEA $0000 PEA $0000 TDC CLC ADC #$00CC PHA _SetColorTable BCS L01BA70 LDA #$0000 L01BA70 STAL L020002 L01BA74 PEI $EE PEI $FD PEI $F0 JSL L01CAAA PLY PLY PLY TAY BEQ L01BA89 LDA #$0001 BRA L01BAC9 L01BA89 LDA $EC BEQ L01BAC6 JSL L015B49 STA $CA STZ $EC LDA $CA CMP $EE BNE L01BAA0 LDA #$0000 BRA L01BAC9 L01BAA0 LDA $CA CMP $EE BCS L01BAB3 LDA $FD CMP $EE BEQ L01BAB3 BCC L01BAB3 LDA #$0000 BRA L01BAC9 L01BAB3 LDA $CA CMP $EE BEQ L01BAC6 BCC L01BAC6 LDA $FD CMP $EE BCS L01BAC6 LDA #$0000 BRA L01BAC9 L01BAC6 BRL L01BA33 L01BAC9 TAY TSC CLC ADC #$0030 TCS TYA PLD RTL L01BAD3 PHD TSC SEC SBC #$00ED TCD ADC #$00CA TCS _WaitCursor BCS L01BAEA LDA #$0000 L01BAEA STAL L020002 LDA #$0003 STA $CE LDA #$0000 SEP #$20 STA $D0 REP #$20 LDA #$000A SEP #$20 STA $D1 REP #$20 PHX PHA _FMGetSysFID BCS L01BB13 LDA #$0000 L01BB13 STAL L020002 PLA PLX STX $D4 STA $D2 LDX #$0000 TDC CLC ADC #$00CE TAY TSC SEC SBC #$0004 TCS PHX PHY PEA $0000 INC PHA PEA $0004 JSL L016E99 PLY PLY PLY PLY PLY PEA $0000 _InstallFont BCS L01BB4E LDA #$0000 L01BB4E STAL L020002 LDX #$0000 TDC CLC ADC #$00CE TAY TSC SEC SBC #$0004 TCS PHX PHY PEA $0000 INC PHA PEA $0004 JSL L016E99 PLY PLY PLY PLY PLY _FMSetSysFont BCS L01BB80 LDA #$0000 L01BB80 STAL L020002 _LoadSysFont BCS L01BB90 LDA #$0000 L01BB90 STAL L020002 LDA $CE STAL L038F13 LDA $D0 AND #$00FF STAL L038F16 LDA $D1 SEP #$20 STAL L038F15 REP #$20 LDA #$0000 STAL L038F18 LDA $FF BEQ L01BBC1 LDA #$D020 STAL L038EA8 BRA L01BBC8 L01BBC1 LDA #$1020 STAL L038EA8 L01BBC8 LDA [$F3] STAL L038EB2 STAL L038EE4 LDY #$0004 LDA [$F3],Y STAL L038EB6 STAL L038EE8 LDY #$0002 LDA [$F3],Y STAL L038EB4 STAL L038EE6 LDY #$0006 LDA [$F3],Y STAL L038EB8 STAL L038EEA PEA $0000 TDC CLC ADC #$00D6 PHA _GetFontInfo BCS L01BC0E LDA #$0000 L01BC0E STAL L020002 LDA $D6 CLC ADC $D8 CLC ADC $DC STA L020121 LDA L020121 CLC ADC #$0001 STAL L038ECA LDA #$0002 PHA LDAL L038EE8 SEC SBCL L038EE4 SEC JSL L012E82 PLY STAL L038ECE STZ $DE LDX $F9 LDA $F7 STX $E2 STA $E0 L01BC49 LDA [$E0] AND #$00FF BEQ L01BC6C LDX $E2 LDA $E0 INC $E0 BNE L01BC5A INC $E2 L01BC5A STA $E8 STX $EA LDA [$E8] AND #$00FF CMP #$000A BNE L01BC6A INC $DE L01BC6A BRA L01BC49 L01BC6C LDA L020121 PHA LDA $DE CLC JSL L013003 PLA CLC ADC #$0002 STAL L038EC2 LDX $F9 LDA $F7 STX L02011B STA L020119 LDA #L01CB51 LDX #^L01CB51 PHA TXA STAL L038EE2 PLA STAL L038EE0 PHX PHA PEA ^L038EA6 PEA L038EA6 _NewWindow BCS L01BCAF LDA #$0000 L01BCAF STAL L020002 PLA PLX STX $E6 STA $E4 STX L02011F STA L02011D LDA L020002 STA $CC TAY BEQ L01BCD6 PEI $CC PEA ^L038EF4 PEA L038EF4 JSL L050256 PLY PLY PLY L01BCD6 PEI $FD _SetBackColor BCS L01BCE4 LDA #$0000 L01BCE4 STAL L020002 PEI $FB _SetForeColor BCS L01BCF6 LDA #$0000 L01BCF6 STAL L020002 PEI $E6 PEI $E4 _SelectWindow BCS L01BD0A LDA #$0000 L01BD0A STAL L020002 PEI $E6 PEI $E4 _BeginUpdate BCS L01BD1E LDA #$0000 L01BD1E STAL L020002 JSL L01CB51 PEI $E6 PEI $E4 _EndUpdate BCS L01BD36 LDA #$0000 L01BD36 STAL L020002 _InitCursor BCS L01BD46 LDA #$0000 L01BD46 STAL L020002 PEI $D4 PEI $D2 PEA $0000 _InstallFont BCS L01BD5D LDA #$0000 L01BD5D STAL L020002 PEI $D4 PEI $D2 _FMSetSysFont BCS L01BD71 LDA #$0000 L01BD71 STAL L020002 _LoadSysFont BCS L01BD81 LDA #$0000 L01BD81 STAL L020002 LDX $E6 LDA $E4 TAY TSC CLC ADC #$0022 TCS TYA PLD RTL L01BD93 PHD TSC SEC SBC #$00F1 TCD ADC #$00DC TCS LDA #$0002 PHA LDY #$0002 LDA [$FB],Y SEC JSL L012E82 PLY LDX #$0000 TAY BPL L01BDB4 DEX L01BDB4 PHX PHA LDA [$FB] PHA LDA #$00A0 SEC JSL L013003 PLA LDX #$0000 TAY BPL L01BDC9 DEX L01BDC9 PHX PHA LDX $F9 LDA $F7 JSL L012E77 PLA PLX JSL L012E77 PLA PLX STX $EA STA $E8 LDA [$FB] PHA LDY #$0004 LDA [$FB],Y PLX STX $F0 SEC SBC $F0 STA $E6 LDA #$0002 PHA LDY #$0002 LDA [$FB],Y PHA LDY #$0006 LDA [$FB],Y PLX STX $F0 SEC SBC $F0 SEC JSL L012E82 PLY STA $E4 LDA #$00A0 SEC SBC $E4 STA $DE LDA $FF AND #$00FF ASL ASL ASL ASL PHA LDA $FF AND #$00FF AND #$000F PLX STX $F0 ORA $F0 SEP #$20 STA $FF REP #$20 STZ $E2 BRA L01BE6E L01BE35 STZ $E0 BRA L01BE51 L01BE39 LDX $EA LDA $E8 INC $E8 BNE L01BE43 INC $EA L01BE43 STA $EC STX $EE LDA $FF SEP #$20 STA [$EC] REP #$20 INC $E0 L01BE51 LDA $E0 CMP $E4 BCC L01BE39 LDA $DE LDX #$0000 PHX PHA LDX $EA LDA $E8 JSL L012E77 PLA PLX STX $EA STA $E8 INC $E2 L01BE6E LDA $E2 CMP $E6 BCC L01BE35 TSC CLC ADC #$0014 TCS PLD RTL L01BE7C PHD TSC SEC SBC #$00F7 TCD ADC #$00EA TCS PHX PHA LDA [$FD] CLC ADC #$0001 LDX #$0000 PHX PHA LDA L02004A PHA PEA $0008 PEA $0000 PEA $0000 _NewHandle BCS L01BEAD LDA #$0000 L01BEAD STAL L020002 PLA PLX STX $F0 STA $EE LDA L020002 STA $EC TAY BEQ L01BED6 PEI $EC PEA ^L038006 PEA L038006 JSL L050256 PLY PLY PLY LDX #$0000 LDA #$0000 BRA L01BF34 L01BED6 PEI $F0 PEI $EE _HLock BCS L01BEE6 LDA #$0000 L01BEE6 STAL L020002 LDA L020002 STA $EC TAY BEQ L01BF09 PEI $EC PEA ^L038027 PEA L038027 JSL L050256 PLY PLY PLY LDX #$0000 LDA #$0000 BRA L01BF34 L01BF09 LDA [$FD] PHA LDY #$0002 LDA [$EE],Y TAX LDA [$EE] PHX PHA LDX $FF LDA $FD CLC ADC #$0003 PHA TXA ADC #$0000 TAX PLA PHX PHA JSL L01C3BA PLY PLY PLY PLY PLY LDX $F0 LDA $EE L01BF34 TAY TSC CLC ADC #$000C TCS TYA PLD RTL L01BF3E PHD TSC SEC SBC #$00FB TCD ADC #$00F4 TCS PEA ^L037DE1 PEA L037DE1 JSL L050269 PLY PLY LDX L02010B LDA L020109 PHX PHA _DisposeHandle BCS L01BF69 LDA #$0000 L01BF69 STAL L020002 LDX L02010F LDA L02010D PHX PHA _CloseWindow BCS L01BF81 LDA #$0000 L01BF81 STAL L020002 JSL L0502BC TSC CLC ADC #$0006 TCS PLD RTL L01BF91 PHD TSC SEC SBC #$00F3 TCD ADC #$00D6 TCS LDA L020103 STA $E4 L01BFA1 LDX $FB LDA $F9 PHX PHA LDX $FF LDA $FD JSL L012FF8 PLA PLX STA $D8 PHA LDA $E4 PLX STX $EE CMP $EE BCC L01BFC0 BRL L01C2DB L01BFC0 LDA $E4 PHA LDA #$0002 SEC JSL L013003 LDA $D8 CLC JSL L012E82 PLY PHA LDA $E4 CLC JSL L013003 PLA STA $D8 LDA $D8 LDX #$0000 PHX PHA LDX $FB LDA $F9 JSL L012E77 PLA PLX STX $E2 STA $E0 STX $DE STA $DC LDX $FB LDA $F9 STX $EC STA $EA LDA $E4 LDX #$0000 TAY BPL L01C008 DEX L01C008 PHX PHA LDX $FF LDA $FD JSL L012FF8 PLA PLX STX $E8 STA $E6 L01C018 LDA #$0001 BNE L01C020 BRL L01C2DB L01C020 SEC LDA $EA SBC $E0 BNE L01C02D LDA $EC SBC $E2 BRA L01C033 L01C02D LDA $EC SBC $E2 REP #$02 L01C033 BVS L01C038 EOR #$8000 L01C038 BPL L01C03D BRL L01C0B4 L01C03D PEI $E2 PEI $E0 PEI $EC PEI $EA LDX L020107 LDA L020105 STA $EE STX $F0 LDA $EE LDX $F0 JSL L014572 PLY PLY PLY PLY STA $DA CMP #$0000 BNE L01C08B LDA $E4 LDX #$0000 TAY BPL L01C06B DEX L01C06B PHX PHA LDX $E2 LDA $E0 JSL L012FF8 PLA PLX STX $E2 STA $E0 PHX PHA PEI $EC PEI $EA JSL L01C693 PLY PLY PLY PLY BRA L01C018 L01C08B LDA $DA SEC SBC #$0000 BVS L01C096 EOR #$8000 L01C096 BMI L01C0B4 LDA $E4 LDX #$0000 TAY BPL L01C0A1 DEX L01C0A1 PHX PHA LDX $EC LDA $EA JSL L012E77 PLA PLX STX $EC STA $EA BRL L01C018 L01C0B4 SEC LDA $E6 SBC $DC BNE L01C0C1 LDA $E8 SBC $DE BRA L01C0C7 L01C0C1 LDA $E8 SBC $DE REP #$02 L01C0C7 BNE L01C0CC BRL L01C1F5 L01C0CC BVS L01C0D1 EOR #$8000 L01C0D1 BMI L01C0D6 BRL L01C1F5 L01C0D6 PEI $E8 PEI $E6 PEI $DE PEI $DC LDX L020107 LDA L020105 STA $EE STX $F0 LDA $EE LDX $F0 JSL L014572 PLY PLY PLY PLY STA $DA CMP #$0000 BNE L01C124 PEI $E8 PEI $E6 LDA $E4 LDX #$0000 TAY BPL L01C108 DEX L01C108 PHX PHA LDX $DE LDA $DC JSL L012E77 PLA PLX STX $DE STA $DC PHX PHA JSL L01C693 PLY PLY PLY PLY BRA L01C0B4 L01C124 LDA $DA SEC SBC #$0000 BNE L01C12F BRL L01C1D9 L01C12F BVS L01C134 EOR #$8000 L01C134 BMI L01C139 BRL L01C1D9 L01C139 LDA $EA CMP $E0 BNE L01C194 LDA $EC CMP $E2 BNE L01C194 PEI $E8 PEI $E6 LDA $E4 LDX #$0000 TAY BPL L01C152 DEX L01C152 PHX PHA LDX $DE LDA $DC JSL L012E77 PLA PLX STX $DE STA $DC PHX PHA PEI $EC PEI $EA JSL L01C9EE TAY TSC CLC ADC #$000C TCS TYA LDA $E4 LDX #$0000 TAY BPL L01C17D DEX L01C17D PHX PHA LDX $E2 LDA $E0 JSL L012E77 PLA PLX STX $E2 STA $E0 STX $EC STA $EA BRL L01C0B4 L01C194 PEI $E8 PEI $E6 PEI $EC PEI $EA JSL L01C693 PLY PLY PLY PLY LDA $E4 LDX #$0000 TAY BPL L01C1AD DEX L01C1AD PHX PHA LDX $E8 LDA $E6 JSL L012FF8 PLA PLX STX $E8 STA $E6 LDA $E4 LDX #$0000 TAY BPL L01C1C6 DEX L01C1C6 PHX PHA LDX $EC LDA $EA JSL L012E77 PLA PLX STX $EC STA $EA BRL L01C018 L01C1D9 LDA $E4 LDX #$0000 TAY BPL L01C1E2 DEX L01C1E2 PHX PHA LDX $E8 LDA $E6 JSL L012FF8 PLA PLX STX $E8 STA $E6 BRL L01C0B4 L01C1F5 LDA $EA CMP $E0 BEQ L01C1FE BRL L01C28C L01C1FE LDA $EC CMP $E2 BEQ L01C207 BRL L01C28C L01C207 LDX $FB LDA $F9 PHX PHA LDX $E2 LDA $E0 JSL L012FF8 PLA PLX PHA LDX $DE LDA $DC PHX PHA LDX $FF LDA $FD JSL L012FF8 PLA PLX PLX STX $EE SEC SBC $EE BEQ L01C237 BVS L01C235 EOR #$8000 L01C235 BMI L01C260 L01C237 PEI $FF PEI $FD LDA $E4 LDX #$0000 TAY BPL L01C244 DEX L01C244 PHX PHA LDX $DE LDA $DC JSL L012E77 JSL L01BF91 PLY PLY PLY PLY LDX $E2 LDA $E0 STX $FF STA $FD BRA L01C289 L01C260 PEI $E2 PEI $E0 PEI $FB PEI $F9 JSL L01BF91 PLY PLY PLY PLY LDA $E4 LDX #$0000 TAY BPL L01C279 DEX L01C279 PHX PHA LDX $DE LDA $DC JSL L012E77 PLA PLX STX $FB STA $F9 L01C289 BRL L01BFA1 L01C28C PEI $EC PEI $EA LDA $E4 LDX #$0000 TAY BPL L01C299 DEX L01C299 PHX PHA LDX $E2 LDA $E0 JSL L012FF8 PLA PLX STX $E2 STA $E0 PHX PHA PEI $E8 PEI $E6 JSL L01C9EE TAY TSC CLC ADC #$000C TCS TYA LDA $E4 LDX #$0000 TAY BPL L01C2C4 DEX L01C2C4 PHX PHA LDX $DE LDA $DC JSL L012FF8 PLA PLX STX $DE STA $DC STX $E8 STA $E6 BRL L01C018 L01C2DB TAY TDC CLC ADC #$00F3 TCS TYA PLD RTL L01C2E5 PHD TSC SEC SBC #$00E5 TCD ADC #$00DA TCS LDA $FF STA $DC LDA $F5 STA $DE PEA ^L038F48 PEA L038F48 PEI $F3 PEI $F1 PEI $EF PEI $ED PEI $EB PEA $0000 TDC CLC ADC #$00DC PHA JSL L01CA73 TAY TSC CLC ADC #$0012 TCS TYA LDAL L038F4D AND #$00FF BRL L01C368 L01C327 BRL L01C37F L01C32A PEA $0000 PEI $FD PEI $FB PEI $F9 PEI $F7 PEA $0013 PEI $F3 PEI $F1 PEI $EF PEI $ED PEI $EB JSL L01C2E5 TAY TSC CLC ADC #$0016 TCS TYA BRL L01C3B0 L01C351 LDA #$0000 STAL L038F4A L01C358 LDAL L038F4C AND #$00FF CLC ADCL L038F4A STA [$F7] BRA L01C37F L01C368 CMP #$0030 BEQ L01C351 CMP #$003F BEQ L01C32A CMP #$0049 BEQ L01C327 CMP #$004E BEQ L01C327 JMP L01C358 L01C37F LDAL L038F48 STA [$FB] LDAL L038F4C AND #$00FF LDX #$0000 PHX PHA LDA #L038F4D LDX #^L038F4D JSL L012E77 PLA PLX STA $E0 STX $E2 LDA #$0000 SEP #$20 STA [$E0] REP #$20 LDA #L038F4D LDX #^L038F4D L01C3B0 TAY TDC CLC ADC #$00E5 TCS TYA PLD RTL L01C3BA PHD TSC SEC SBC #$00F1 TCD ADC #$00DC TCS STZ $E8 LDX $FD LDA $FB STX $E0 STA $DE LDX L0200FC LDA L0200FA PHX PHA _HLock BCS L01C3E3 LDA #$0000 L01C3E3 STAL L020002 STZ $EA BRL L01C4BA L01C3EC LDX L0200FC LDA L0200FA STA $EC STX $EE LDY #$0002 LDA [$EC],Y TAX LDA [$EC] STX $E6 STA $E4 LDA #$0001 STA $E2 L01C407 LDA $E2 BNE L01C40E BRL L01C4B8 L01C40E LDA $E8 CMP #$0008 BNE L01C41D INC $F7 BNE L01C41B INC $F9 L01C41B STZ $E8 L01C41D LDA $E8 PHA LDA [$F7] AND #$00FF SEC JSL L013B07 PLA AND #$0080 TAY BEQ L01C466 LDY #$0003 LDA [$E4],Y LDX #$0000 TAY BPL L01C43D DEX L01C43D PEA $0000 PEA $0005 CLC JSL L013048 LDX L0200FC LDA L0200FA STA $EC STX $EE LDY #$0002 LDA [$EC],Y TAX LDA [$EC] JSL L012E77 PLA PLX STX $E6 STA $E4 BRA L01C499 L01C466 LDY #$0001 LDA [$E4],Y LDX #$0000 TAY BPL L01C472 DEX L01C472 PEA $0000 PEA $0005 CLC JSL L013048 LDX L0200FC LDA L0200FA STA $EC STX $EE LDY #$0002 LDA [$EC],Y TAX LDA [$EC] JSL L012E77 PLA PLX STX $E6 STA $E4 L01C499 INC $E8 LDA [$E4] AND #$00FF CMP #$0080 BEQ L01C4B5 LDA [$E4] SEP #$20 STA [$DE] REP #$20 INC $DE BNE L01C4B3 INC $E0 L01C4B3 STZ $E2 L01C4B5 BRL L01C407 L01C4B8 INC $EA L01C4BA LDA $EA SEC SBC $FF BVS L01C4C4 EOR #$8000 L01C4C4 BMI L01C4C9 BRL L01C3EC L01C4C9 LDA #$0000 SEP #$20 STA [$DE] REP #$20 LDX L0200FC LDA L0200FA PHX PHA _HUnlock BCS L01C4E6 LDA #$0000 L01C4E6 STAL L020002 TSC CLC ADC #$0014 TCS PLD RTL L01C4F2 PHD TSC SEC SBC #$00F3 TCD ADC #$00DE TCS LDA $F9 SEC SBC #$0000 BVS L01C508 EOR #$8000 L01C508 BMI L01C51C PEA $0000 PEA $0016 JSL L01CB27 PLY PLY LDA #$FFFF BRL L01C689 L01C51C PEA $0000 TDC CLC ADC #$00F9 PHA JSL L01D924 PLY PLY STX $EC STA $EA LDA $EA CMP #$0000 BNE L01C543 LDA $EC CMP #$0000 BNE L01C543 LDA #$FFFF BRL L01C689 L01C543 LDA $FB BRL L01C67E L01C548 PEI $FF PEI $FD PEI $FB PEI $EC PEI $EA LDY #$0006 LDA [$EA],Y TAX LDY #$0004 LDA [$EA],Y STA $EE STX $F0 LDY #$0016 LDA [$EE],Y TAX LDY #$0014 LDA [$EE],Y STA $EE STX $F0 LDA $EE LDX $F0 JSL L014572 PLY PLY PLY PLY PLY STA $E2 LDA $E2 CMP #$0000 BNE L01C58C LDA #$0000 BRL L01C689 L01C58C LDY #$0002 LDA [$EA],Y PHA PEI $E2 JSL L01CB27 PLY PLY LDA #$FFFF BRL L01C689 L01C5A0 LDX $FF LDA $FD SEC SBC #$0000 BVS L01C5AD EOR #$8000 L01C5AD BMI L01C5C1 PEA $0000 PEA $0009 JSL L01CB27 PLY PLY LDA #$FFFF BRL L01C689 L01C5C1 LDX $FF LDA $FD PHA LDA #$FFFF PLX STX $F2 SEC SBC $F2 STA $E4 PEA $0000 TDC CLC ADC #$00E4 PHA JSL L01D924 PLY PLY STX $E8 STA $E6 LDA $E6 CMP #$0000 BNE L01C5F8 LDA $E8 CMP #$0000 BNE L01C5F8 LDA #$FFFF BRL L01C689 L01C5F8 PEA $0000 TDC CLC ADC #$00F9 PHA JSL L01D924 PLY PLY STX $EC STA $EA LDA $EA LDX $EC PHX PHA LDA $E8 PHA LDA $E6 PHA PEA $0012 JSL L016E99 PLA PLA PLA PLA PLX PEA $0000 PEA $6601 PEI $EC PEI $EA LDY #$0006 LDA [$EA],Y TAX LDY #$0004 LDA [$EA],Y STA $EE STX $F0 LDY #$0016 LDA [$EE],Y TAX LDY #$0014 LDA [$EE],Y STA $EE STX $F0 LDA $EE LDX $F0 JSL L014572 PLY PLY PLY PLY STA $E2 LDA $E2 CMP #$0000 BEQ L01C678 LDA #$0000 STA [$E6] LDY #$0002 LDA [$EA],Y PHA PEI $E2 JSL L01CB27 PLY PLY LDA #$FFFF BRA L01C689 L01C678 LDA $E4 BRA L01C689 BRA L01C689 L01C67E CMP #$6601 BNE L01C686 BRL L01C5A0 L01C686 JMP L01C548 L01C689 TAY TDC CLC ADC #$00F3 TCS TYA PLD RTL L01C693 PHD TSC SEC SBC #$00F3 TCD ADC #$00E1 TCS LDA L020103 STA $E3 LDX $FB LDA $F9 STX $EC STA $EA LDX $FF LDA $FD STX $E8 STA $E6 L01C6B3 LDA [$EA] SEP #$20 STA $E5 REP #$20 LDA [$E6] PHA LDX $EC LDA $EA INC $EA BNE L01C6C8 INC $EC L01C6C8 STA $EE STX $F0 PLA SEP #$20 STA [$EE] REP #$20 LDX $E8 LDA $E6 INC $E6 BNE L01C6DD INC $E8 L01C6DD STA $EE STX $F0 LDA $E5 SEP #$20 STA [$EE] REP #$20 DEC $E3 LDA $E3 BNE L01C6B3 TDC CLC ADC #$00F3 TCS PLD RTL L01C6F7 PHD TSC SEC SBC #$00F3 TCD ADC #$00E6 TCS LDA $F9 SEC SBC #$0000 BVS L01C70D EOR #$8000 L01C70D BMI L01C721 PEA $0000 PEA $0016 JSL L01CB27 PLY PLY LDA #$FFFF BRL L01C7CF L01C721 PEA $0000 TDC CLC ADC #$00F9 PHA JSL L01D924 PLY PLY STX $EC STA $EA LDA $EA CMP #$0000 BNE L01C748 LDA $EC CMP #$0000 BNE L01C748 LDA #$FFFF BRL L01C7CF L01C748 LDA [$EA] AND #$0002 TAY BNE L01C761 PEA $0000 PEA $0009 JSL L01CB27 PLY PLY LDA #$FFFF BRA L01C7CF L01C761 LDA $FF LDY #$000C STA [$EA],Y LDX $FD LDA $FB LDY #$0010 PHA TXA STA [$EA],Y PLA LDY #$000E STA [$EA],Y PEI $EC PEI $EA LDY #$0006 LDA [$EA],Y TAX LDY #$0004 LDA [$EA],Y STA $EE STX $F0 LDY #$0012 LDA [$EE],Y TAX LDY #$0010 LDA [$EE],Y STA $EE STX $F0 LDA $EE LDX $F0 JSL L014572 PLY PLY STA $E8 LDA $E8 CMP #$0000 BEQ L01C7C1 LDY #$0002 LDA [$EA],Y PHA PEI $E8 JSL L01CB27 PLY PLY LDA #$FFFF BRA L01C7CF L01C7C1 LDY #$000C LDA [$EA],Y PHA LDA $FF PLX STX $F2 SEC SBC $F2 L01C7CF TAY TDC CLC ADC #$00F3 TCS TYA PLD RTL L01C7D9 PHD TSC SEC SBC #$00F7 TCD ADC #$00EE TCS LDA #$FFFF STA $F0 LDA $FD CMP #$0000 BNE L01C7FD LDA $FF CMP #$0000 BNE L01C7FD LDA #$FFFF BRL L01C8B3 L01C7FD LDY #$0010 LDA [$FD],Y AND #$0083 TAY BEQ L01C83F LDY #$0010 LDA [$FD],Y AND #$0004 TAY BEQ L01C818 LDA #$0000 BRA L01C822 L01C818 PEI $FF PEI $FD JSL L01C8BD PLY PLY L01C822 STA $F0 LDY #$0012 LDA [$FD],Y PHA JSL L01E259 PLY SEC SBC #$0000 BVS L01C838 EOR #$8000 L01C838 BMI L01C83F LDA #$FFFF STA $F0 L01C83F LDY #$0010 LDA [$FD],Y AND #$0008 TAY BEQ L01C88C PHX PHA LDY #$0008 LDA [$FD],Y TAX LDY #$0006 LDA [$FD],Y PHX PHA _FindHandle BCS L01C865 LDA #$0000 L01C865 STAL L020002 _DisposeHandle BCS L01C875 LDA #$0000 L01C875 STAL L020002 LDX #$0000 LDA #$0000 LDY #$0008 PHA TXA STA [$FD],Y PLA LDY #$0006 STA [$FD],Y L01C88C LDA #$0000 LDY #$0010 STA [$FD],Y LDA #$0000 STA [$FD] LDY #$0008 LDA [$FD],Y TAX LDY #$0006 LDA [$FD],Y LDY #$0004 PHA TXA STA [$FD],Y PLA LDY #$0002 STA [$FD],Y LDA $F0 L01C8B3 TAY TDC CLC ADC #$00F7 TCS TYA PLD RTL L01C8BD PHD TSC SEC SBC #$00F7 TCD ADC #$00F0 TCS LDY #$0010 LDA [$FD],Y AND #$0002 TAY BNE L01C8DD LDA #$0000 STA [$FD] LDA #$0000 BRA L01C94E L01C8DD LDY #$0010 LDA [$FD],Y AND #$0004 TAY BNE L01C93B LDY #$0010 LDA [$FD],Y AND #$0002 TAY BEQ L01C93B LDX #$0000 LDA #$0000 PHX PHA LDY #$0008 LDA [$FD],Y TAX LDY #$0006 LDA [$FD],Y JSL L013333 BEQ L01C93B LDY #$0008 LDA [$FD],Y TAX LDY #$0006 LDA [$FD],Y PHX PHA LDY #$0004 LDA [$FD],Y TAX LDY #$0002 LDA [$FD],Y JSL L013333 BVS L01C92D EOR #$8000 L01C92D BMI L01C93B PEI $FF PEI $FD JSL L01B913 PLY PLY BRA L01C8DD L01C93B LDY #$0010 LDA [$FD],Y AND #$0020 TAY BEQ L01C94B LDA #$FFFF BRA L01C94E L01C94B LDA #$0000 L01C94E TAY TDC CLC ADC #$00F7 TCS TYA PLD RTL L01C958 PHD TSC SEC SBC #$00F7 TCD ADC #$00EC TCS LDAL L037F47 TAX LDAL L037F45 STA $F2 STX $F4 LDX $F4 LDA #$0010 CLC ADC $F2 BCC L01C97B INX L01C97B STX $F0 STA $EE BRA L01C9B6 L01C981 LDX #$0000 LDA #$0000 PHX PHA LDY #$0002 LDA [$EE],Y TAX LDA [$EE] JSL L013333 BNE L01C9AA LDX $FF LDA $FD LDY #$0002 PHA TXA STA [$EE],Y PLA STA [$EE] LDA #$0000 BRA L01C9E4 L01C9AA LDA $EE CLC ADC #$0004 STA $EE BCC L01C9B6 INC $F0 L01C9B6 LDAL L037F47 TAX LDAL L037F45 STA $F2 STX $F4 LDX $F4 LDA #$0028 CLC ADC $F2 BCC L01C9CE INX L01C9CE PHX PHA LDX $F0 LDA $EE JSL L013333 BEQ L01C9E1 BVS L01C9DF EOR #$8000 L01C9DF BMI L01C981 L01C9E1 LDA #$0001 L01C9E4 TAY TDC CLC ADC #$00F7 TCS TYA PLD RTL L01C9EE PHD TSC SEC SBC #$00EF TCD ADC #$00D8 TCS LDA L020103 STA $DA LDX $F7 LDA $F5 STX $E8 STA $E6 LDX $FB LDA $F9 STX $E4 STA $E2 LDX $FF LDA $FD STX $E0 STA $DE L01CA16 LDA [$E6] AND #$00FF STA $DC LDA [$DE] PHA LDX $E8 LDA $E6 INC $E6 BNE L01CA2A INC $E8 L01CA2A STA $EA STX $EC PLA SEP #$20 STA [$EA] REP #$20 LDA [$E2] PHA LDX $E0 LDA $DE INC $DE BNE L01CA42 INC $E0 L01CA42 STA $EA STX $EC PLA SEP #$20 STA [$EA] REP #$20 LDA $DC PHA LDX $E4 LDA $E2 INC $E2 BNE L01CA5A INC $E4 L01CA5A STA $EA STX $EC PLA SEP #$20 STA [$EA] REP #$20 DEC $DA LDA $DA BNE L01CA16 TDC CLC ADC #$00EF TCS PLD RTL L01CA73 PHD TSC SEC SBC #$00E9 TCD ADC #$00E2 TCS PEI $F1 PEI $EF PEA $0000 TDC CLC ADC #$00F3 PHA PEI $FF PEI $FD PEA $000B _SANEFP816 BCS L01CA9E LDA #$0000 L01CA9E STAL L020002 TDC CLC ADC #$00E9 TCS PLD RTL L01CAAA PHD TSC SEC SBC #$00F5 TCD ADC #$00EE TCS LDA $FB CMP $FD BEQ L01CABD BCS L01CACA L01CABD LDA $FD CMP $FF BEQ L01CAC5 BCS L01CACA L01CAC5 LDA #$0001 BRA L01CADE L01CACA LDA $FB CMP $FD BCC L01CADB LDA $FD CMP $FF BCC L01CADB LDA #$0001 BRA L01CADE L01CADB LDA #$0000 L01CADE TAY TSC CLC ADC #$0006 TCS TYA PLD RTL L01CAE8 PHD TSC SEC SBC #$00F7 TCD ADC #$00EE TCS LDA [$FD] STA $F0 PEA $000E LDX $FF LDA $FD CLC ADC #$0002 PHA TXA ADC #$0000 TAX PLA PHX PHA PEI $FF PEI $FD JSL L013E61 PLY PLY PLY PLY PLY LDA $F0 LDY #$000E STA [$FD],Y TSC CLC ADC #$0008 TCS PLD RTL L01CB27 PHD TSC SEC SBC #$00F7 TCD ADC #$00F0 TCS LDA $FF CMP #$0000 BNE L01CB3D LDA $FD BRA L01CB44 L01CB3D PEI $FF JSL L01D80F PLY L01CB44 STA L020123 TAY TDC CLC ADC #$00F7 TCS TYA PLD RTL L01CB51 PHD TSC SEC SBC #$00FB TCD ADC #$FF4B TCS LDX #$FF6B STZ $00,X PHX PHA LDX L02011F LDA L02011D PHX PHA _GetContentOrigin BCS L01CB77 LDA #$0000 L01CB77 STAL L020002 PLA PLX TXY LDX #$FF67 STY $02,X STA $00,X TYX LDA L020121 PHA LDX #$FF69 LDA $00,X TAX PHX LDX #$FF67 LDA $00,X PLX CLC JSL L012E82 PLY LDX #$FF71 STA $00,X PHX PHA LDX L02011F LDA L02011D PHX PHA _GetZoomRect BCS L01CBB8 LDA #$0000 L01CBB8 STAL L020002 PLA PLX TXY LDX #$FF63 STY $02,X STA $00,X TYX LDA L020121 PHA LDX #$FF65 LDA $00,X TAX PHX LDX #$FF63 LDA $00,X PLX STA $F6 STX $F8 LDA [$F6] PHA LDX #$FF65 LDA $00,X TAX PHX LDX #$FF63 LDA $00,X PLX STA $F6 STX $F8 LDY #$0004 LDA [$F6],Y PLX STX $FA SEC SBC $FA CLC JSL L012E82 PLY CLC ADC #$0001 LDX #$FF6D STA $00,X LDX L02011B LDA L020119 TXY LDX #$FF78 STY $02,X STA $00,X TYX LDX #$FF6F STZ $00,X L01CC1E LDX #$FF6F LDA $00,X LDX #$FF71 CMP $00,X BCS L01CC66 L01CC2A LDX #$FF7A LDA $00,X TAX PHX LDX #$FF78 LDA $00,X PHA CLC ADC #$0001 LDX #$FF78 STA $00,X LDX #$FF7A LDA $00,X BCC L01CC48 INC L01CC48 LDX #$FF7A STA $00,X PLA PLX STA $F6 STX $F8 LDA [$F6] AND #$00FF CMP #$000A BEQ L01CC5F BRA L01CC2A L01CC5F LDX #$FF6F INC $00,X BRA L01CC1E L01CC66 LDX #$FF61 STZ $00,X L01CC6B LDX #$FF61 LDA $00,X BEQ L01CC75 BRL L01D78A L01CC75 LDX #$FF71 LDA $00,X CLC LDX #$FF6D ADC $00,X LDX #$FF6F CMP $00,X BCS L01CC91 LDA #$0001 LDX #$FF61 STA $00,X BRA L01CC6B L01CC91 LDX #$0000 TDC CLC ADC #$FF80 TXY LDX #$FF7C STY $02,X STA $00,X TYX LDX #$FF6B STZ $00,X LDX #$FF53 STZ $00,X L01CCAC LDX #$FF7A LDA $00,X TAX PHX LDX #$FF78 LDA $00,X PLX STA $F6 STX $F8 LDA [$F6] AND #$00FF BEQ L01CD23 LDX #$FF7A LDA $00,X TAX PHX LDX #$FF78 LDA $00,X PHA CLC ADC #$0001 LDX #$FF78 STA $00,X LDX #$FF7A LDA $00,X BCC L01CCE2 INC L01CCE2 LDX #$FF7A STA $00,X PLA PLX STA $F6 STX $F8 LDA [$F6] PHA LDX #$FF7E LDA $00,X TAX PHX LDX #$FF7C LDA $00,X PLX STA $F6 STX $F8 PLA SEP #$20 STA [$F6] REP #$20 AND #$00FF CMP #$000A BEQ L01CD23 LDX #$FF7C INC $00,X BNE L01CD1C LDX #$FF7E INC $00,X L01CD1C LDX #$FF6B INC $00,X BRA L01CCAC L01CD23 LDX #$FF7E LDA $00,X TAX PHX LDX #$FF7C LDA $00,X PLX STA $F6 STX $F8 LDA #$0000 SEP #$20 STA [$F6] REP #$20 PEA $000A LDX #$FF6F LDA $00,X PHA INC LDX #$FF6F STA $00,X PLA CLC ADC #$0001 PHA LDA L020121 CLC JSL L013003 _MoveTo BCS L01CD66 LDA #$0000 L01CD66 STAL L020002 LDA #$0000 LDX #$FF5F STA $00,X LDX #$FF55 STA $00,X LDX #$FF57 STA $00,X L01CD7C LDX #$FF5F LDA $00,X SEC SBC #$007F BEQ L01CD91 BVS L01CD8C EOR #$8000 L01CD8C BPL L01CD91 BRL L01D764 L01CD91 LDX #$FF6B LDA $00,X CMP #$0000 BNE L01CD9E BRL L01D764 L01CD9E BCS L01CDA3 BRL L01D764 L01CDA3 LDX #$FF5F LDA $00,X LDX #$0000 PHX PHA LDX #$0000 TDC CLC ADC #$FF80 JSL L012E77 PLA PLX STA $F6 STX $F8 LDA [$F6] AND #$00FF BRL L01D741 L01CDC7 LDX #$FF57 LDA $00,X SEC SBC #$0000 BNE L01CDD5 BRL L01CE7D L01CDD5 BVS L01CDDA EOR #$8000 L01CDDA BMI L01CDDF BRL L01CE7D L01CDDF LDX #$FF5F LDA $00,X SEC LDX #$FF57 SBC $00,X LDX #$FF55 STA $00,X LDX #$FF5B STZ $00,X BRA L01CE45 L01CDF6 LDX #$FF55 LDA $00,X PHA INC LDX #$FF55 STA $00,X PLA LDX #$0000 PHX PHA LDX #$0000 TDC CLC ADC #$FF80 JSL L012E77 PLA PLX STA $F6 STX $F8 LDA [$F6] PHA LDX #$FF5B LDA $00,X LDX #$0000 PHX PHA LDX #$0000 TDC CLC ADC #$0076 JSL L012E77 PLA PLX STA $F6 STX $F8 PLA SEP #$20 STA [$F6] REP #$20 LDX #$FF5B INC $00,X L01CE45 LDX #$FF5B LDA $00,X SEC LDX #$FF57 SBC $00,X BEQ L01CDF6 BVS L01CE57 EOR #$8000 L01CE57 BPL L01CDF6 PEA $0000 TDC CLC ADC #$0076 PHA LDX #$FF57 LDA $00,X PHA _DrawText BCS L01CE74 LDA #$0000 L01CE74 STAL L020002 LDX #$FF57 STZ $00,X L01CE7D LDX #$FF5F LDA $00,X INC LDX #$FF5F STA $00,X LDX #$0000 PHX PHA LDX #$0000 TDC CLC ADC #$FF80 JSL L012E77 PLA PLX STA $F6 STX $F8 LDA [$F6] SEP #$20 LDX #$FF77 STA $00,X REP #$20 LDX #$FF77 LDA $00,X AND #$00FF BRL L01D4BF L01CEB5 LDAL L038F16 CLC ADC #$0001 SEC SBC #$0008 BVS L01CEC6 EOR #$8000 L01CEC6 BMI L01CEE3 LDAL L038F16 CLC ADC #$0001 STAL L038F16 LDA #$0001 STAL L038F18 PEA $0001 JSL L01DB8F PLY L01CEE3 BRL L01D4D2 L01CEE6 LDX #$FF5D STZ $00,X L01CEEB LDX #$FF5F LDA $00,X INC LDX #$FF5F STA $00,X LDX #$0000 PHX PHA LDX #$0000 TDC CLC ADC #$FF80 JSL L012E77 PLA PLX STA $F6 STX $F8 LDA [$F6] AND #$00FF LDX #$0000 PHX PHA LDA #L037E33 LDX #^L037E33 JSL L012E77 PLA PLX STA $F6 STX $F8 LDA [$F6] AND #$00FF AND #$0004 TAY BEQ L01CF7F LDX #$FF5F LDA $00,X LDX #$0000 PHX PHA LDX #$0000 TDC CLC ADC #$FF80 JSL L012E77 PLA PLX STA $F6 STX $F8 LDA [$F6] PHA LDX #$FF5D LDA $00,X PHA INC LDX #$FF5D STA $00,X PLA LDX #$0000 PHX PHA LDX #$0000 TDC CLC ADC #$FF73 JSL L012E77 PLA PLX STA $F6 STX $F8 PLA SEP #$20 STA [$F6] REP #$20 BRL L01CEEB L01CF7F LDX #$FF5D LDA $00,X LDX #$0000 PHX PHA LDX #$0000 TDC CLC ADC #$FF73 JSL L012E77 PLA PLX STA $F6 STX $F8 LDA #$0000 SEP #$20 STA [$F6] REP #$20 PEA $0000 TDC CLC ADC #$FF73 PHA JSL L01DEEF PLY PLY SEP #$20 STAL L038F15 REP #$20 PEA ^L038F13 PEA L038F13 JSL L01D792 PLY PLY BRL L01D4D2 L01CFCA LDX #$FF5D STZ $00,X L01CFCF LDX #$FF5F LDA $00,X INC LDX #$FF5F STA $00,X LDX #$0000 PHX PHA LDX #$0000 TDC CLC ADC #$FF80 JSL L012E77 PLA PLX STA $F6 STX $F8 LDA [$F6] AND #$00FF LDX #$0000 PHX PHA LDA #L037E33 LDX #^L037E33 JSL L012E77 PLA PLX STA $F6 STX $F8 LDA [$F6] AND #$00FF AND #$0004 TAY BEQ L01D063 LDX #$FF5F LDA $00,X LDX #$0000 PHX PHA LDX #$0000 TDC CLC ADC #$FF80 JSL L012E77 PLA PLX STA $F6 STX $F8 LDA [$F6] PHA LDX #$FF5D LDA $00,X PHA INC LDX #$FF5D STA $00,X PLA LDX #$0000 PHX PHA LDX #$0000 TDC CLC ADC #$FF73 JSL L012E77 PLA PLX STA $F6 STX $F8 PLA SEP #$20 STA [$F6] REP #$20 BRL L01CFCF L01D063 LDX #$FF5D LDA $00,X LDX #$0000 PHX PHA LDX #$0000 TDC CLC ADC #$FF73 JSL L012E77 PLA PLX STA $F6 STX $F8 LDA #$0000 SEP #$20 STA [$F6] REP #$20 PEA $0000 TDC CLC ADC #$FF73 PHA JSL L01DEEF PLY PLY LDX #$FF5B STA $00,X LDX #$FF5D STZ $00,X L01D0A1 LDX #$FF5F LDA $00,X INC LDX #$FF5F STA $00,X LDX #$0000 PHX PHA LDX #$0000 TDC CLC ADC #$FF80 JSL L012E77 PLA PLX STA $F6 STX $F8 LDA [$F6] AND #$00FF LDX #$0000 PHX PHA LDA #L037E33 LDX #^L037E33 JSL L012E77 PLA PLX STA $F6 STX $F8 LDA [$F6] AND #$00FF AND #$0004 TAY BEQ L01D135 LDX #$FF5F LDA $00,X LDX #$0000 PHX PHA LDX #$0000 TDC CLC ADC #$FF80 JSL L012E77 PLA PLX STA $F6 STX $F8 LDA [$F6] PHA LDX #$FF5D LDA $00,X PHA INC LDX #$FF5D STA $00,X PLA LDX #$0000 PHX PHA LDX #$0000 TDC CLC ADC #$FF73 JSL L012E77 PLA PLX STA $F6 STX $F8 PLA SEP #$20 STA [$F6] REP #$20 BRL L01D0A1 L01D135 LDX #$FF5D LDA $00,X LDX #$0000 PHX PHA LDX #$0000 TDC CLC ADC #$FF73 JSL L012E77 PLA PLX STA $F6 STX $F8 LDA #$0000 SEP #$20 STA [$F6] REP #$20 PEA $0000 TDC CLC ADC #$FF73 PHA JSL L01DEEF PLY PLY LDX #$FF59 STA $00,X LDX #$FF5B LDA $00,X PHA LDX #$FF59 LDA $00,X PHA _MoveTo BCS L01D186 LDA #$0000 L01D186 STAL L020002 BRL L01D4D2 L01D18D LDX #$FF5D STZ $00,X L01D192 LDX #$FF5F LDA $00,X INC LDX #$FF5F STA $00,X LDX #$0000 PHX PHA LDX #$0000 TDC CLC ADC #$FF80 JSL L012E77 PLA PLX STA $F6 STX $F8 LDA [$F6] AND #$00FF LDX #$0000 PHX PHA LDA #L037E33 LDX #^L037E33 JSL L012E77 PLA PLX STA $F6 STX $F8 LDA [$F6] AND #$00FF AND #$0004 TAY BEQ L01D226 LDX #$FF5F LDA $00,X LDX #$0000 PHX PHA LDX #$0000 TDC CLC ADC #$FF80 JSL L012E77 PLA PLX STA $F6 STX $F8 LDA [$F6] PHA LDX #$FF5D LDA $00,X PHA INC LDX #$FF5D STA $00,X PLA LDX #$0000 PHX PHA LDX #$0000 TDC CLC ADC #$FF73 JSL L012E77 PLA PLX STA $F6 STX $F8 PLA SEP #$20 STA [$F6] REP #$20 BRL L01D192 L01D226 LDX #$FF5D LDA $00,X LDX #$0000 PHX PHA LDX #$0000 TDC CLC ADC #$FF73 JSL L012E77 PLA PLX STA $F6 STX $F8 LDA #$0000 SEP #$20 STA [$F6] REP #$20 PEA $0000 TDC CLC ADC #$FF73 PHA JSL L01DEEF PLY PLY STAL L038F13 LDA #$000A SEP #$20 STAL L038F15 REP #$20 LDA #$0000 STAL L038F16 PEA ^L038F13 PEA L038F13 JSL L01D792 PLY PLY BRL L01D4D2 L01D27F LDX #$FF5D STZ $00,X L01D284 LDX #$FF5F LDA $00,X INC LDX #$FF5F STA $00,X LDX #$0000 PHX PHA LDX #$0000 TDC CLC ADC #$FF80 JSL L012E77 PLA PLX STA $F6 STX $F8 LDA [$F6] AND #$00FF LDX #$0000 PHX PHA LDA #L037E33 LDX #^L037E33 JSL L012E77 PLA PLX STA $F6 STX $F8 LDA [$F6] AND #$00FF AND #$0004 TAY BEQ L01D318 LDX #$FF5F LDA $00,X LDX #$0000 PHX PHA LDX #$0000 TDC CLC ADC #$FF80 JSL L012E77 PLA PLX STA $F6 STX $F8 LDA [$F6] PHA LDX #$FF5D LDA $00,X PHA INC LDX #$FF5D STA $00,X PLA LDX #$0000 PHX PHA LDX #$0000 TDC CLC ADC #$FF73 JSL L012E77 PLA PLX STA $F6 STX $F8 PLA SEP #$20 STA [$F6] REP #$20 BRL L01D284 L01D318 LDX #$FF5D LDA $00,X LDX #$0000 PHX PHA LDX #$0000 TDC CLC ADC #$FF73 JSL L012E77 PLA PLX STA $F6 STX $F8 LDA #$0000 SEP #$20 STA [$F6] REP #$20 PEA $0000 TDC CLC ADC #$FF73 PHA JSL L01DEEF PLY PLY LDX #$FF5D STA $00,X LDX #$FF5D LDA $00,X PHA _SetForeColor BCS L01D363 LDA #$0000 L01D363 STAL L020002 BRL L01D4D2 L01D36A LDAL L038F16 CLC ADC #$0002 SEC SBC #$0008 BVS L01D37B EOR #$8000 L01D37B BMI L01D398 LDAL L038F16 CLC ADC #$0002 STAL L038F16 LDA #$0001 STAL L038F18 PEA $0002 JSL L01DB8F PLY L01D398 BRL L01D4D2 L01D39B PEA $0000 TDC CLC ADC #$FF4D PHA _GetPen BCS L01D3B0 LDA #$0000 L01D3B0 STAL L020002 LDX #$FF4F LDA $00,X PHA LDX #$FF4D LDA $00,X CLC ADC #$0003 PHA _MoveTo BCS L01D3D0 LDA #$0000 L01D3D0 STAL L020002 PEA $0064 JSL L01DB8F PLY LDX #$FF5F INC $00,X BRL L01D4D2 L01D3E4 PEA $0000 TDC CLC ADC #$FF4D PHA _GetPen BCS L01D3F9 LDA #$0000 L01D3F9 STAL L020002 LDX #$FF4F LDA $00,X PHA LDX #$FF4D LDA $00,X SEC SBC #$0004 PHA _MoveTo BCS L01D419 LDA #$0000 L01D419 STAL L020002 PEA $0065 JSL L01DB8F PLY LDX #$FF5F INC $00,X BRL L01D4D2 L01D42D LDAL L038F16 CLC ADC #$0004 SEC SBC #$0008 BVS L01D43E EOR #$8000 L01D43E BMI L01D45B LDAL L038F16 CLC ADC #$0004 STAL L038F16 LDA #$0001 STAL L038F18 PEA $0004 JSL L01DB8F PLY L01D45B BRL L01D4D2 L01D45E LDX #$FF57 INC $00,X BRL L01D4D2 L01D466 BRL L01D4D2 L01D469 DA L01CEB5 DA L01CEE6 DA L01CFCA DA L01D18D DA L01D27F DA L01D36A DA L01D3E4 DA L01D39B DA L01D42D DA L01D45E DA L01CEB5 DA L01CEE6 DA L01CFCA DA L01D18D DA L01D27F DA L01D36A DA L01D3E4 DA L01D39B DA L01D42D DA L01D45E DA L01D45E DA L01D466 L01D495 DW $0042 DW $0043 DW $0044 DW $0046 DW $0048 DW $0049 DW $0050 DW $0053 DW $0055 DW $0060 DW $0062 DW $0063 DW $0064 DW $0066 DW $0068 DW $0069 DW $0070 DW $0073 DW $0075 DW $007B DW $007D L01D4BF TAX PEA ^L01D495 PEA L01D495 LDA #$0028 JSL L01ABAC PLA PLA JMP (L01D469,X) L01D4D2 BRL L01D75C L01D4D5 LDAL L038F18 BEQ L01D4EE PEA ^L038F13 PEA L038F13 JSL L01D792 PLY PLY LDA #$0000 STAL L038F18 L01D4EE BRL L01D75C L01D4F1 LDX #$FF5F LDA $00,X SEC LDX #$FF57 SBC $00,X LDX #$FF55 STA $00,X LDX #$FF5B STZ $00,X BRA L01D557 L01D508 LDX #$FF55 LDA $00,X PHA INC LDX #$FF55 STA $00,X PLA LDX #$0000 PHX PHA LDX #$0000 TDC CLC ADC #$FF80 JSL L012E77 PLA PLX STA $F6 STX $F8 LDA [$F6] PHA LDX #$FF5B LDA $00,X LDX #$0000 PHX PHA LDX #$0000 TDC CLC ADC #$0076 JSL L012E77 PLA PLX STA $F6 STX $F8 PLA SEP #$20 STA [$F6] REP #$20 LDX #$FF5B INC $00,X L01D557 LDX #$FF57 LDA $00,X SEC SBC #$0001 SEC LDX #$FF5B SBC $00,X BVS L01D56B EOR #$8000 L01D56B BMI L01D508 PEA $0000 TDC CLC ADC #$0076 PHA LDX #$FF57 LDA $00,X PHA _DrawText BCS L01D588 LDA #$0000 L01D588 STAL L020002 LDX #$FF57 STZ $00,X JSL L01DB47 LDX #$FF51 STA $00,X LDX #$FF51 LDA $00,X BRL L01D640 L01D5A2 PEA $0000 TDC CLC ADC #$FF4D PHA _GetPen BCS L01D5B7 LDA #$0000 L01D5B7 STAL L020002 LDX #$FF4F LDA $00,X PHA LDX #$FF4D LDA $00,X SEC SBC #$0003 PHA _MoveTo BCS L01D5D7 LDA #$0000 L01D5D7 STAL L020002 BRL L01D651 L01D5DE PEA $0000 TDC CLC ADC #$FF4D PHA _GetPen BCS L01D5F3 LDA #$0000 L01D5F3 STAL L020002 LDX #$FF4F LDA $00,X PHA LDX #$FF4D LDA $00,X CLC ADC #$0004 PHA _MoveTo BCS L01D613 LDA #$0000 L01D613 STAL L020002 BRL L01D651 L01D61A LDAL L038F16 SEC LDX #$FF51 SBC $00,X STAL L038F16 PEA ^L038F13 PEA L038F13 JSL L01D792 PLY PLY BRL L01D651 BRL L01D651 L01D63A DA L01D5A2 DA L01D5DE DA L01D61A L01D640 SEC SBC #$0064 CMP #$0002 BCC L01D64C LDA #$0002 L01D64C ASL TAX JMP (L01D63A,X) L01D651 BRL L01D75C L01D654 LDX #$FF5F LDA $00,X LDX #$0000 PHX PHA LDX #$0000 TDC CLC ADC #$FF80 JSL L012E77 PLA PLX STA $F6 STX $F8 LDA [$F6] AND #$00FF CMP #$0000 BEQ L01D67D BRL L01D738 L01D67D LDX #$FF57 LDA $00,X SEC SBC #$0000 BNE L01D68B BRL L01D72E L01D68B BVS L01D690 EOR #$8000 L01D690 BMI L01D695 BRL L01D72E L01D695 LDX #$FF5F LDA $00,X SEC LDX #$FF57 SBC $00,X LDX #$FF55 STA $00,X LDX #$FF5B STZ $00,X BRA L01D6FB L01D6AC LDX #$FF55 LDA $00,X PHA INC LDX #$FF55 STA $00,X PLA LDX #$0000 PHX PHA LDX #$0000 TDC CLC ADC #$FF80 JSL L012E77 PLA PLX STA $F6 STX $F8 LDA [$F6] PHA LDX #$FF5B LDA $00,X LDX #$0000 PHX PHA LDX #$0000 TDC CLC ADC #$0076 JSL L012E77 PLA PLX STA $F6 STX $F8 PLA SEP #$20 STA [$F6] REP #$20 LDX #$FF5B INC $00,X L01D6FB LDX #$FF5B LDA $00,X SEC LDX #$FF57 SBC $00,X BEQ L01D6AC BVS L01D70D EOR #$8000 L01D70D BPL L01D6AC PEA $0000 TDC CLC ADC #$0076 PHA LDX #$FF57 LDA $00,X PHA _DrawText BCS L01D72A LDA #$0000 L01D72A STAL L020002 L01D72E LDA #$0080 LDX #$FF5F STA $00,X BRA L01D73D L01D738 LDX #$FF57 INC $00,X L01D73D BRA L01D75C BRA L01D75C L01D741 CMP #$0060 BNE L01D749 BRL L01CDC7 L01D749 CMP #$007B BNE L01D751 BRL L01D4D5 L01D751 CMP #$007D BNE L01D759 BRL L01D4F1 L01D759 JMP L01D654 L01D75C LDX #$FF5F INC $00,X BRL L01CD7C L01D764 LDX #$FF7A LDA $00,X TAX PHX LDX #$FF78 LDA $00,X PLX STA $F6 STX $F8 LDA [$F6] AND #$00FF CMP #$0000 BNE L01D787 LDA #$0001 LDX #$FF61 STA $00,X L01D787 BRL L01CC6B L01D78A TSC CLC ADC #$01AF TCS PLD RTL L01D792 PHD TSC SEC SBC #$00F7 TCD ADC #$00EE TCS LDA [$FD] STAL L038F44 LDY #$0003 LDA [$FD],Y SEP #$20 STAL L038F46 REP #$20 LDY #$0002 LDA [$FD],Y SEP #$20 STAL L038F47 REP #$20 LDA #L038F44 LDX #^L038F44 TAY TSC SEC SBC #$0004 TCS PHX PHY PEA $0000 INC PHA PEA $0004 JSL L016E99 PLY PLY PLY PLY PLY PEA $0000 _InstallFont BCS L01D7EC LDA #$0000 L01D7EC STAL L020002 LDA L020002 STA $F0 TAY BEQ L01D807 PEI $F0 PEA ^L038E82 PEA L038E82 JSL L050256 PLY PLY PLY L01D807 TSC CLC ADC #$0008 TCS PLD RTL L01D80F PHD TSC SEC SBC #$00F9 TCD ADC #$00F0 TCS STZ $F2 LDA $FF BRL L01D905 L01D821 BRL L01D918 L01D824 LDA #$0014 STA $F2 BRL L01D918 L01D82C LDA #$000E STA $F2 BRL L01D918 L01D834 LDA #$001C STA $F2 BRL L01D918 L01D83C LDA #$0011 STA $F2 BRL L01D918 L01D844 LDA #$0006 STA $F2 BRL L01D918 L01D84C LDA #$0006 STA $F2 BRL L01D918 L01D854 LDA #$0010 STA $F2 BRL L01D918 L01D85C LDA #$0002 STA $F2 BRL L01D918 L01D864 LDA #$0009 STA $F2 BRL L01D918 L01D86C LDA #$0005 STA $F2 BRL L01D918 L01D874 LDA #$0017 STA $F2 BRL L01D918 L01D87C LDA #$000C STA $F2 BRL L01D918 L01D884 LDA #$001A STA $F2 BRL L01D918 L01D88C LDA #$0016 STA $F2 BRL L01D918 L01D894 LDA #$000D STA $F2 BRL L01D918 L01D89C LDA #$001E STA $F2 BRL L01D918 BRL L01D918 L01D8A7 DA L01D821 DA L01D86C DA L01D89C DA L01D82C DA L01D874 DA L01D864 DA L01D85C DA L01D84C DA L01D85C DA L01D83C DA L01D834 DA L01D834 DA L01D824 DA L01D844 DA L01D84C DA L01D894 DA L01D884 DA L01D824 DA L01D88C DA L01D87C DA L01D854 DA L01D84C DA L01D84C DA L01D821 L01D8D7 DW $0000 DW $0027 DW $002B DW $0040 DW $0042 DW $0043 DW $0044 DW $0045 DW $0046 DW $0047 DW $0048 DW $0049 DW $004B DW $004C DW $004D DW $004E DW $0050 DW $0052 DW $0053 DW $0054 DW $0057 DW $0058 DW $005A L01D905 TAX PEA ^L01D8D7 PEA L01D8D7 LDA #$002C JSL L01ABAC PLA PLA JMP (L01D8A7,X) L01D918 LDA $F2 TAY TDC CLC ADC #$00F9 TCS TYA PLD RTL L01D924 PHD TSC SEC SBC #$00F7 TCD ADC #$00E6 TCS LDAL L037F49 CMP #$0000 BNE L01D93C JSL L01DBD5 L01D93C LDA #$0012 PHA LDAL L037F49 SEC JSL L012E82 PLY SEC SBC #$0001 STA $F0 LDA [$FD] SEC SBC #$0000 BVS L01D95B EOR #$8000 L01D95B BPL L01D961 LDA [$FD] BRA L01D96D L01D961 LDA [$FD] PHA LDA #$FFFF PLX STX $F6 SEC SBC $F6 L01D96D SEC SBC $F0 BEQ L01D98E BVS L01D977 EOR #$8000 L01D977 BPL L01D98E PEA $0000 PEA $0016 JSL L01CB27 PLY PLY LDX #$0000 LDA #$0000 BRL L01DB3D L01D98E LDA [$FD] SEC SBC #$0000 BVS L01D999 EOR #$8000 L01D999 BPL L01D9DC LDA [$FD] LDX #$0000 TAY BPL L01D9A4 DEX L01D9A4 PEA $0000 PEA $0012 CLC JSL L013048 LDAL L037F4D TAX LDAL L037F4B JSL L012E77 PLA PLX STX $EE STA $EC LDA [$EC] CMP #$0000 BNE L01D9D9 PEA $0000 PEA $0009 JSL L01CB27 PLY PLY STZ $EC STZ $EE L01D9D9 BRL L01DB39 L01D9DC LDA [$FD] PHA LDA #$FFFF PLX STX $F6 SEC SBC $F6 LDX #$0000 TAY BPL L01D9EF DEX L01D9EF PEA $0000 PEA $0012 CLC JSL L013048 LDAL L037F4D TAX LDAL L037F4B JSL L012E77 PLA PLX STX $EE STA $EC BRA L01DA24 L01DA0F LDA [$EC] CMP #$0000 BNE L01DA18 BRA L01DA54 L01DA18 LDA $EC CLC ADC #$0012 STA $EC BCC L01DA24 INC $EE L01DA24 LDA $F0 LDX #$0000 TAY BPL L01DA2D DEX L01DA2D PEA $0000 PEA $0012 CLC JSL L013048 LDAL L037F4D TAX LDAL L037F4B JSL L012E77 LDX $EE LDA $EC JSL L013333 BVS L01DA52 EOR #$8000 L01DA52 BMI L01DA0F L01DA54 LDA $F0 LDX #$0000 TAY BPL L01DA5D DEX L01DA5D PEA $0000 PEA $0012 CLC JSL L013048 LDAL L037F4D TAX LDAL L037F4B JSL L012E77 LDX $EE LDA $EC JSL L013333 BVS L01DA82 EOR #$8000 L01DA82 BPL L01DA87 BRL L01DB13 L01DA87 LDAL L037F49 CLC ADC #$00B4 LDX #$0000 TAY BPL L01DA96 DEX L01DA96 PHX PHA LDAL L037F4D TAX LDAL L037F4B PHX PHA JSL L01E05C PLY PLY PLY PLY STX $EA STA $E8 LDA $E8 CMP #$0000 BNE L01DAD2 LDA $EA CMP #$0000 BNE L01DAD2 PEA $0000 PEA $0018 JSL L01CB27 PLY PLY LDX #$0000 LDA #$0000 BRL L01DB3D L01DAD2 LDA $F0 CLC ADC #$0001 LDX #$0000 TAY BPL L01DADF DEX L01DADF PEA $0000 PEA $0012 CLC JSL L013048 LDX $EA LDA $E8 JSL L012E77 PLA PLX STX $EE STA $EC LDAL L037F49 CLC ADC #$00B4 STAL L037F49 LDX $EA LDA $E8 PHA TXA STAL L037F4D PLA STAL L037F4B L01DB13 LDX #$0000 LDA #$0012 PHX PHA LDAL L037F4D TAX LDAL L037F4B PHX PHA LDX $EE LDA $EC JSL L012FF8 PLA PLX SEC JSL L012F07 PLY PLY STA [$FD] L01DB39 LDX $EE LDA $EC L01DB3D TAY TDC CLC ADC #$00F7 TCS TYA PLD RTL L01DB47 PHD TSC SEC SBC #$00FB TCD ADC #$00F4 TCS DEC L020117 LDA L020117 SEC SBC #$0000 BVS L01DB61 EOR #$8000 L01DB61 BPL L01DB82 LDA L020117 ASL LDX #$0000 PHX PHA LDA #L038F1A LDX #^L038F1A JSL L012E77 PLA PLX STA $F6 STX $F8 LDA [$F6] BRA L01DB85 BRA L01DB85 L01DB82 LDA #$0000 L01DB85 TAY TSC CLC ADC #$0006 TCS TYA PLD RTL L01DB8F PHD TSC SEC SBC #$00F9 TCD ADC #$00F2 TCS LDA L020117 SEC SBC #$0014 BEQ L01DBAA BVS L01DBA8 EOR #$8000 L01DBA8 BMI L01DBCD L01DBAA LDA L020117 PHA INC STA L020117 PLA ASL LDX #$0000 PHX PHA LDA #L038F1A LDX #^L038F1A JSL L012E77 PLA PLX STA $F4 STX $F6 LDA $FF STA [$F4] L01DBCD TSC CLC ADC #$0006 TCS PLD RTL L01DBD5 PHD TSC SEC SBC #$00FB TCD ADC #$00EE TCS LDA #$00B4 STAL L037F49 PEA $0000 PEA $00B4 PEA $0000 PEA $0000 JSL L01E05C PLY PLY PLY PLY PHA TXA STAL L037F4D PLA STAL L037F4B SEC LDAL L037F53 SBC #$0000 BNE L01DC19 LDAL L037F55 SBC #$0000 BRA L01DC22 L01DC19 LDAL L037F55 SBC #$0000 REP #$02 L01DC22 BNE L01DC27 BRL L01DCE4 L01DC27 LDAL L037F55 TAX LDAL L037F53 STA $F6 STX $F8 LDY #$001A LDA [$F6],Y TAX LDY #$0018 LDA [$F6],Y PHX PHA LDAL L037F4D TAX LDAL L037F4B PHX PHA PEA $0000 PEA $0036 _BlockMove BCS L01DC5E LDA #$0000 L01DC5E STAL L020002 LDAL L037F4D TAX LDAL L037F4B STX $F4 STA $F2 BRA L01DCB8 L01DC71 LDA [$F2] CMP #$0000 BEQ L01DCAC PEA $0000 PEA $6601 PEI $F4 PEI $F2 LDY #$0006 LDA [$F2],Y TAX LDY #$0004 LDA [$F2],Y STA $F6 STX $F8 LDY #$0016 LDA [$F6],Y TAX LDY #$0014 LDA [$F6],Y STA $F6 STX $F8 LDA $F6 LDX $F8 JSL L014572 PLY PLY PLY PLY L01DCAC LDA $F2 CLC ADC #$0012 STA $F2 BCC L01DCB8 INC $F4 L01DCB8 LDAL L037F4D TAX LDAL L037F4B STA $F6 STX $F8 LDX $F8 LDA #$0024 CLC ADC $F6 BCC L01DCD0 INX L01DCD0 PHX PHA LDX $F4 LDA $F2 JSL L013333 BVS L01DCDF EOR #$8000 L01DCDF BMI L01DC71 BRL L01DEC1 L01DCE4 PEA $0000 PEA ^L038F6A PEA L038F6A JSL L01DF99 PLY PLY PLY STA $F0 PEA $0000 TDC CLC ADC #$00F0 PHA JSL L01D924 PLY PLY STX $F4 STA $F2 PHX PHA PEA $0000 PEA $0004 LDA L020004 ORA #$0F00 PHA PEA $8300 PEA $0000 PEA $0000 _NewHandle BCS L01DD2D LDA #$0000 L01DD2D STAL L020002 PLA PLX LDY #$000A PHA TXA STA [$F2],Y PLA LDY #$0008 STA [$F2],Y LDY #$000A LDA [$F2],Y TAX LDY #$0008 LDA [$F2],Y STA $F6 STX $F8 LDY #$0002 LDA [$F6],Y TAX LDA [$F6] STA $F6 STX $F8 LDA #$0000 STA [$F6] LDY #$000A LDA [$F2],Y TAX LDY #$0008 LDA [$F2],Y STA $F6 STX $F8 LDY #$0002 LDA [$F6],Y TAX LDA [$F6] STA $F6 STX $F8 LDA #$0000 LDY #$0002 STA [$F6],Y PEA $0001 PEA ^L038F73 PEA L038F73 JSL L01DF99 PLY PLY PLY STA $F0 PEA $0000 TDC CLC ADC #$00F0 PHA JSL L01D924 PLY PLY STX $F4 STA $F2 PHX PHA PEA $0000 PEA $0004 LDA L020004 ORA #$0F00 PHA PEA $8300 PEA $0000 PEA $0000 _NewHandle BCS L01DDCC LDA #$0000 L01DDCC STAL L020002 PLA PLX LDY #$000A PHA TXA STA [$F2],Y PLA LDY #$0008 STA [$F2],Y LDY #$000A LDA [$F2],Y TAX LDY #$0008 LDA [$F2],Y STA $F6 STX $F8 LDY #$0002 LDA [$F6],Y TAX LDA [$F6] STA $F6 STX $F8 LDA #$0000 STA [$F6] LDY #$000A LDA [$F2],Y TAX LDY #$0008 LDA [$F2],Y STA $F6 STX $F8 LDY #$0002 LDA [$F6],Y TAX LDA [$F6] STA $F6 STX $F8 LDA #$0001 LDY #$0002 STA [$F6],Y PEA $0001 PEA ^L038F7C PEA L038F7C JSL L01DF99 PLY PLY PLY STA $F0 PEA $0000 TDC CLC ADC #$00F0 PHA JSL L01D924 PLY PLY STX $F4 STA $F2 PHX PHA PEA $0000 PEA $0004 LDA L020004 ORA #$0F00 PHA PEA $8300 PEA $0000 PEA $0000 _NewHandle BCS L01DE6B LDA #$0000 L01DE6B STAL L020002 PLA PLX LDY #$000A PHA TXA STA [$F2],Y PLA LDY #$0008 STA [$F2],Y LDY #$000A LDA [$F2],Y TAX LDY #$0008 LDA [$F2],Y STA $F6 STX $F8 LDY #$0002 LDA [$F6],Y TAX LDA [$F6] STA $F6 STX $F8 LDA #$0000 STA [$F6] LDY #$000A LDA [$F2],Y TAX LDY #$0008 LDA [$F2],Y STA $F6 STX $F8 LDY #$0002 LDA [$F6],Y TAX LDA [$F6] STA $F6 STX $F8 LDA #$0002 LDY #$0002 STA [$F6],Y L01DEC1 LDA #L01E4D4 LDX #^L01E4D4 PHX PHA LDAL L037F47 TAX LDAL L037F45 STA $F6 STX $F8 PLA PLX LDY #$000A PHA TXA STA [$F6],Y PLA LDY #$0008 STA [$F6],Y TAY TDC CLC ADC #$00FB TCS TYA PLD RTL L01DEEF PHD TSC SEC SBC #$00F7 TCD ADC #$00EC TCS STZ $F0 STZ $EE L01DEFE LDA [$FD] AND #$00FF BRL L01DF13 L01DF06 BRL L01DF29 L01DF09 INC $EE L01DF0B INC $FD BNE L01DF11 INC $FF L01DF11 BRA L01DF27 L01DF13 CMP #$0009 BEQ L01DF06 CMP #$0020 BEQ L01DF06 CMP #$002B BEQ L01DF0B CMP #$002D BEQ L01DF09 L01DF27 BRA L01DF31 L01DF29 INC $FD BNE L01DF2F INC $FF L01DF2F BRA L01DEFE L01DF31 LDA [$FD] AND #$00FF SEC SBC #$0030 BVS L01DF3F EOR #$8000 L01DF3F BPL L01DF81 LDA [$FD] AND #$00FF SEC SBC #$0039 BEQ L01DF53 BVS L01DF51 EOR #$8000 L01DF51 BMI L01DF81 L01DF53 LDX $FF LDA $FD INC $FD BNE L01DF5D INC $FF L01DF5D STA $F2 STX $F4 LDA [$F2] AND #$00FF PHA LDA $F0 PHA LDA #$000A SEC JSL L013003 PLA PLX STX $F6 CLC ADC $F6 SEC SBC #$0030 STA $F0 BRA L01DF31 L01DF81 LDA $EE BEQ L01DF8D LDA $F0 EOR #$FFFF INC BRA L01DF8F L01DF8D LDA $F0 L01DF8F TAY TDC CLC ADC #$00F7 TCS TYA PLD RTL L01DF99 PHD TSC SEC SBC #$00F5 TCD ADC #$00E2 TCS LDA #$FFFF STA $E6 PEA $0000 TDC CLC ADC #$00E6 PHA JSL L01D924 PLY PLY STX $EA STA $E8 LDA $E8 CMP #$0000 BNE L01DFD0 LDA $EA CMP #$0000 BNE L01DFD0 LDA #$FFFF BRL L01E052 L01DFD0 LDA $FF CLC ADC #$0001 STA [$E8] LDA #$0000 LDY #$0002 STA [$E8],Y LDX #$0000 LDA #$0000 LDY #$0006 PHA TXA STA [$E8],Y PLA LDY #$0004 STA [$E8],Y PEI $EA PEI $E8 PEA $6400 PEI $FD PEI $FB PEA $0000 TDC CLC ADC #$00EC PHA JSL L01E302 TAY TSC CLC ADC #$000E TCS TYA STA $E4 LDA $E4 CMP #$0000 BEQ L01E026 LDA #$0000 STA [$E8] LDA #$FFFF BRA L01E052 L01E026 LDX #$0000 LDA #$0000 PHX PHA LDY #$0006 LDA [$E8],Y TAX LDY #$0004 LDA [$E8],Y JSL L013333 BNE L01E050 LDX $EE LDA $EC LDY #$0006 PHA TXA STA [$E8],Y PLA LDY #$0004 STA [$E8],Y L01E050 LDA $E6 L01E052 TAY TDC CLC ADC #$00F5 TCS TYA PLD RTL L01E05C PHD TSC SEC SBC #$00F3 TCD ADC #$00DC TCS STZ $EA STZ $EC STZ $E6 STZ $E8 SEC LDA $F9 SBC #$0000 BNE L01E07E LDA $FB SBC #$0000 BRA L01E085 L01E07E LDA $FB SBC #$0000 REP #$02 L01E085 BNE L01E08A BRL L01E11D L01E08A PHX PHA PEI $FB PEI $F9 _FindHandle BCS L01E09C LDA #$0000 L01E09C STAL L020002 PLA PLX STX $EC STA $EA PHX PHA PEI $EC PEI $EA _GetHandleSize BCS L01E0B8 LDA #$0000 L01E0B8 STAL L020002 PLA PLX STX $E8 STA $E6 SEC LDA $FD SBC $E6 BNE L01E0CF LDA $FF SBC $E8 BRA L01E0D5 L01E0CF LDA $FF SBC $E8 REP #$02 L01E0D5 BVS L01E0DA EOR #$8000 L01E0DA BMI L01E109 PEI $EC PEI $EA PEI $FF PEI $FD _SetHandleSize BCS L01E0F0 LDA #$0000 L01E0F0 STAL L020002 LDY #$0002 LDA [$EA],Y TAX LDA [$EA] AND #$FFFF PHA TXA AND #$00FF TAX PLA BRL L01E24F L01E109 PEI $EC PEI $EA _HUnlock BCS L01E119 LDA #$0000 L01E119 STAL L020002 L01E11D PHX PHA PEI $FF PEI $FD LDA L020004 ORA #$0F00 PHA PEA $8300 PEA $0000 PEA $0000 _NewHandle BCS L01E13F LDA #$0000 L01E13F STAL L020002 PLA PLX STX $E4 STA $E2 LDA L020002 BEQ L01E183 SEC LDA $EA SBC #$0000 BNE L01E15D LDA $EC SBC #$0000 BRA L01E164 L01E15D LDA $EC SBC #$0000 REP #$02 L01E164 BEQ L01E17A PEI $EC PEI $EA _HLock BCS L01E176 LDA #$0000 L01E176 STAL L020002 L01E17A LDX #$0000 LDA #$0000 BRL L01E24F L01E183 PEI $E4 PEI $E2 _HLock BCS L01E193 LDA #$0000 L01E193 STAL L020002 SEC LDA $F9 SBC #$0000 BNE L01E1A6 LDA $FB SBC #$0000 BRA L01E1AD L01E1A6 LDA $FB SBC #$0000 REP #$02 L01E1AD BEQ L01E1EB LDY #$0002 LDA [$EA],Y TAX LDA [$EA] PHX PHA LDY #$0002 LDA [$E2],Y TAX LDA [$E2] PHX PHA PEI $E8 PEI $E6 _BlockMove BCS L01E1D3 LDA #$0000 L01E1D3 STAL L020002 PEI $EC PEI $EA _DisposeHandle BCS L01E1E7 LDA #$0000 L01E1E7 STAL L020002 L01E1EB LDY #$0002 LDA [$E2],Y TAX LDA [$E2] CLC ADC $E6 PHA TXA ADC $E8 TAX PLA STX $E0 STA $DE L01E200 LDY #$0002 LDA [$E2],Y TAX LDA [$E2] CLC ADC $FD PHA TXA ADC $FF TAX PLA PHX PHA LDX $E0 LDA $DE JSL L013333 BEQ L01E23D BVS L01E222 EOR #$8000 L01E222 BPL L01E23D LDX $E0 LDA $DE INC $DE BNE L01E22E INC $E0 L01E22E STA $EE STX $F0 LDA #$0000 SEP #$20 STA [$EE] REP #$20 BRA L01E200 L01E23D LDY #$0002 LDA [$E2],Y TAX LDA [$E2] AND #$FFFF PHA TXA AND #$00FF TAX PLA L01E24F TAY TDC CLC ADC #$00F3 TCS TYA PLD RTL L01E259 PHD TSC SEC SBC #$00F9 TCD ADC #$00EC TCS LDA $FF SEC SBC #$0000 BVS L01E26F EOR #$8000 L01E26F BMI L01E282 PEA $0000 PEA $0016 JSL L01CB27 PLY PLY LDA #$FFFF BRA L01E2F8 L01E282 PEA $0000 TDC CLC ADC #$00FF PHA JSL L01D924 PLY PLY STX $F2 STA $F0 LDA $F0 CMP #$0000 BNE L01E2A8 LDA $F2 CMP #$0000 BNE L01E2A8 LDA #$FFFF BRA L01E2F8 L01E2A8 PEI $F2 PEI $F0 LDY #$0006 LDA [$F0],Y TAX LDY #$0004 LDA [$F0],Y STA $F4 STX $F6 LDY #$000A LDA [$F4],Y TAX LDY #$0008 LDA [$F4],Y STA $F4 STX $F6 LDA $F4 LDX $F6 JSL L014572 PLY PLY STA $EE LDA #$0000 STA [$F0] LDA $EE CMP #$0000 BEQ L01E2F5 LDY #$0002 LDA [$F0],Y PHA PEI $EE JSL L01CB27 PLY PLY LDA #$FFFF BRA L01E2F8 L01E2F5 LDA #$0000 L01E2F8 TAY TDC CLC ADC #$00F9 TCS TYA PLD RTL L01E302 PHD TSC SEC SBC #$00ED TCD ADC #$00DE TCS LDA [$F7] AND #$00FF CMP #$0000 BEQ L01E31C LDA #$0000 BRA L01E31F L01E31C LDA #$0001 L01E31F PHA LDX #$0000 LDA #$0000 PHX PHA LDX $F9 LDA $F7 JSL L013333 BEQ L01E337 LDA #$0000 BRA L01E33A L01E337 LDA #$0001 L01E33A PLX STX $EC ORA $EC TAY BEQ L01E354 PEA $0000 PEA $0016 JSL L01CB27 PLY PLY LDA #$FFFF BRL L01E4CA L01E354 LDAL L037F4F CMP #$0000 BNE L01E377 LDAL L037F51 CMP #$0000 BNE L01E377 LDA #L038F85 LDX #^L038F85 PHA TXA STAL L037F51 PLA STAL L037F4F L01E377 LDAL L037F51 TAX LDAL L037F4F STX $E2 STA $E0 BRA L01E3AD L01E386 LDX #$0000 LDA #$0000 PHX PHA LDY #$0006 LDA [$E0],Y TAX LDY #$0004 LDA [$E0],Y JSL L013333 BNE L01E3A1 BRA L01E3D8 L01E3A1 LDA $E0 CLC ADC #$0018 STA $E0 BCC L01E3AD INC $E2 L01E3AD LDAL L037F51 TAX LDAL L037F4F STA $E8 STX $EA LDX $EA LDA #$0078 CLC ADC $E8 BCC L01E3C5 INX L01E3C5 PHX PHA LDX $E2 LDA $E0 JSL L013333 BEQ L01E3D8 BVS L01E3D6 EOR #$8000 L01E3D6 BMI L01E386 L01E3D8 LDA #$4006 STA $E6 L01E3DD LDAL L037F51 TAX LDAL L037F4F PHX PHA LDX $E2 LDA $E0 SEC SBC #$0018 STA $E0 PHA LDA $E2 SBC #$0000 TAX STA $E2 PLA JSL L013333 BEQ L01E409 BVS L01E407 EOR #$8000 L01E407 BMI L01E442 L01E409 PEI $FF PEI $FD PEI $FB PEI $F9 PEI $F7 LDY #$0006 LDA [$E0],Y TAX LDY #$0004 LDA [$E0],Y STA $E8 STX $EA LDA $E8 LDX $EA JSL L014572 PLY PLY PLY PLY PLY STA $E6 LDA $E6 SEC SBC #$0000 BVS L01E43C EOR #$8000 L01E43C BPL L01E440 BRA L01E442 L01E440 BRA L01E3DD L01E442 SEC LDA $F3 SBC #$0000 BNE L01E451 LDA $F5 SBC #$0000 BRA L01E458 L01E451 LDA $F5 SBC #$0000 REP #$02 L01E458 BEQ L01E488 SEC LDA $E0 SBCL L037F4F BNE L01E46B LDA $E2 SBCL L037F51 BRA L01E473 L01E46B LDA $E2 SBCL L037F51 REP #$02 L01E473 BVS L01E478 EOR #$8000 L01E478 BPL L01E488 LDX $E2 LDA $E0 LDY #$0002 PHA TXA STA [$F3],Y PLA STA [$F3] L01E488 LDA $E6 AND #$4000 CMP #$0000 BNE L01E496 LDA $E6 BRA L01E4CA L01E496 LDA $E6 STA $E4 LDA $E4 AND #$8000 TAY BEQ L01E4B4 LDA $E4 AND #$BFFF STA $E4 LDA $E4 AND #$7FFF STA $E4 STZ $E6 BRA L01E4BD L01E4B4 LDA $E6 AND #$BFFF STA $E6 STZ $E4 L01E4BD PEI $E4 PEI $E6 JSL L01CB27 PLY PLY LDA #$FFFF L01E4CA TAY TDC CLC ADC #$00ED TCS TYA PLD RTL L01E4D4 PHD TSC SEC SBC #$00F9 TCD ADC #$00EE TCS LDA #$0012 PHA LDAL L037F49 SEC JSL L012E82 PLY SEC SBC #$0001 STA $F0 STZ $F2 BRA L01E500 L01E4F7 PEI $F2 JSL L01E259 PLY INC $F2 L01E500 LDA $F2 SEC SBC $F0 BEQ L01E4F7 BVS L01E50C EOR #$8000 L01E50C BPL L01E4F7 TAY TDC CLC ADC #$00F9 TCS TYA PLD RTL L01E518 ENT PHD TSC SEC SBC #$00FB TCD ADC #$00F4 TCS LDA #$0000 TAY TDC CLC ADC #$00FB TCS TYA PLD RTL L01E530 ENT PHD TSC SEC SBC #$00F1 TCD ADC #$00EA TCS LDA #$0000 TAY TDC CLC ADC #$00F1 TCS TYA PLD RTL L01E548 ENT PHD TSC SEC SBC #$00F7 TCD ADC #$00EE TCS LDY #$000A LDA [$FD],Y TAX LDY #$0008 LDA [$FD],Y STA $F2 STX $F4 LDY #$0002 LDA [$F2],Y TAX LDA [$F2] STA $F2 STX $F4 LDA [$F2] DEC STA [$F2] SEC SBC #$0000 BEQ L01E583 BVS L01E57E EOR #$8000 L01E57E BPL L01E583 BRL L01E5EB L01E583 LDY #$000A LDA [$FD],Y TAX LDY #$0008 LDA [$FD],Y STA $F2 STX $F4 LDY #$0002 LDA [$F2],Y TAX LDA [$F2] STA $F2 STX $F4 LDY #$0002 LDA [$F2],Y STAL L038329 PEA $0014 PEA ^L038329 PEA L038329 JSL L014421 LDA L020002 CMP #$0000 BEQ L01E5C4 LDA L020002 LDY #$0002 STA [$FD],Y L01E5C4 LDA L020002 STA $F0 LDY #$000A LDA [$FD],Y TAX LDY #$0008 LDA [$FD],Y PHX PHA _DisposeHandle BCS L01E5E2 LDA #$0000 L01E5E2 STAL L020002 LDA $F0 STA L020002 L01E5EB LDA L020002 CMP #$0000 BNE L01E5F8 LDA #$0000 BRA L01E5FB L01E5F8 LDA #$0009 L01E5FB TAY TDC CLC ADC #$00F7 TCS TYA PLD RTL L01E605 ENT PHD TSC SEC SBC #$00F1 TCD ADC #$00E6 TCS LDA $FB BRL L01E972 L01E615 LDA #$0000 LDY #$0002 STA [$F7],Y LDA #$0016 BRL L01E9A3 L01E623 LDY #$000A LDA [$F7],Y TAX LDY #$0008 LDA [$F7],Y STA $EC STX $EE LDY #$0002 LDA [$EC],Y TAX LDA [$EC] STA $EC STX $EE LDY #$0002 LDA [$EC],Y STA $EA LDA $EA STAL L03833D PEA $0019 PEA ^L03833D PEA L03833D JSL L014421 LDA L020002 CMP #$0000 BEQ L01E666 LDA #$001D BRL L01E9A3 L01E666 LDA $EA STAL L038337 LDA [$FD] BRL L01E70F L01E671 LDY #$0004 LDA [$FD],Y TAX LDY #$0002 LDA [$FD],Y PHA TXA STAL L03833B PLA STAL L038339 BRL L01E71C L01E68A PEA $0017 PEA ^L038337 PEA L038337 JSL L014421 LDA L020002 CMP #$0000 BEQ L01E6A2 BRL L01E71C L01E6A2 LDY #$0004 LDA [$FD],Y TAX LDY #$0002 LDA [$FD],Y PHX PHA LDAL L03833B TAX LDAL L038339 JSL L012E77 PLA PLX PHA TXA STAL L03833B PLA STAL L038339 BRL L01E71C L01E6CC LDY #$0004 LDA [$FD],Y TAX LDY #$0002 LDA [$FD],Y PHX PHA LDAL L038341 TAX LDAL L03833F JSL L012E77 PLA PLX PHA TXA STAL L03833B PLA STAL L038339 BRL L01E71C L01E6F6 LDA #$0000 LDY #$0002 STA [$F7],Y LDA #$0016 BRL L01E9A3 BRL L01E71C L01E707 DA L01E671 DA L01E68A DA L01E6CC DA L01E6F6 L01E70F CMP #$0003 BCC L01E717 LDA #$0003 L01E717 ASL TAX JMP (L01E707,X) L01E71C LDA L020002 CMP #$0000 BEQ L01E72E LDA [$FD] CMP #$0000 BEQ L01E72E BRL L01E7C0 L01E72E SEC LDAL L038339 SBCL L03833F BNE L01E743 LDAL L03833B SBCL L038341 BRA L01E74D L01E743 LDAL L03833B SBCL L038341 REP #$02 L01E74D BNE L01E752 BRL L01E7B3 L01E752 BVS L01E757 EOR #$8000 L01E757 BMI L01E75C BRL L01E7B3 L01E75C LDA [$FD] CMP #$0002 BEQ L01E784 LDA $EA STAL L03833D PEA $0019 PEA ^L03833D PEA L03833D JSL L014421 LDA L020002 CMP #$0000 BEQ L01E784 LDA #$001D BRL L01E9A3 L01E784 LDAL L03833B TAX LDAL L038339 PHA TXA STAL L038341 PLA STAL L03833F PEA $0018 PEA ^L03833D PEA L03833D JSL L014421 LDA L020002 CMP #$0000 BEQ L01E7B3 LDA #$001D BRL L01E9A3 L01E7B3 PEA $0016 PEA ^L038337 PEA L038337 JSL L014421 L01E7C0 LDA L020002 CMP #$0000 BEQ L01E7D6 LDA L020002 LDY #$0002 STA [$F7],Y LDA #$001D BRL L01E9A3 L01E7D6 LDAL L03833B TAX LDAL L038339 LDY #$0004 PHA TXA STA [$FD],Y PLA LDY #$0002 STA [$FD],Y BRL L01E983 L01E7EF LDY #$000A LDA [$F7],Y TAX LDY #$0008 LDA [$F7],Y STA $EC STX $EE LDY #$0002 LDA [$EC],Y TAX LDA [$EC] STA $EC STX $EE LDA [$EC] INC STA [$EC] BRL L01E983 L01E812 LDA #$0000 LDY #$0002 STA [$F7],Y LDA #$0016 BRL L01E9A3 L01E820 LDY #$000A LDA [$F7],Y TAX LDY #$0008 LDA [$F7],Y STA $EC STX $EE LDY #$0002 LDA [$EC],Y TAX LDA [$EC] STA $EC STX $EE LDY #$0002 LDA [$EC],Y STA [$FD] BRL L01E983 L01E845 LDY #$000A LDA [$F7],Y TAX LDY #$0008 LDA [$F7],Y STA $EC STX $EE LDY #$0002 LDA [$EC],Y TAX LDA [$EC] STA $EC STX $EE LDY #$0002 LDA [$EC],Y STAL L03833D PEA $0019 PEA ^L03833D PEA L03833D JSL L014421 LDAL L038341 TAX LDAL L03833F LDY #$0002 PHA TXA STA [$FD],Y PLA STA [$FD] BRL L01E983 L01E88C LDY #$000A LDA [$F7],Y TAX LDY #$0008 LDA [$F7],Y STA $EC STX $EE LDY #$0002 LDA [$EC],Y TAX LDA [$EC] STA $EC STX $EE LDY #$0002 LDA [$EC],Y STAL L03833D LDX $FF LDA $FD PHA TXA STAL L038341 PLA STAL L03833F PEA $0018 PEA ^L03833D PEA L03833D JSL L014421 BRL L01E983 L01E8CF LDY #$000A LDA [$F7],Y TAX LDY #$0008 LDA [$F7],Y STA $EC STX $EE LDY #$0002 LDA [$EC],Y TAX LDA [$EC] STA $EC STX $EE LDY #$0002 LDA [$EC],Y STAL L038337 PEA $0017 PEA ^L038337 PEA L038337 JSL L014421 LDAL L03833B TAX LDAL L038339 LDY #$0002 PHA TXA STA [$FD],Y PLA STA [$FD] BRL L01E983 L01E916 LDY #$000A LDA [$F7],Y TAX LDY #$0008 LDA [$F7],Y STA $EC STX $EE LDY #$0002 LDA [$EC],Y TAX LDA [$EC] STA $EC STX $EE LDY #$0002 LDA [$EC],Y STAL L038337 LDX $FF LDA $FD PHA TXA STAL L03833B PLA STAL L038339 PEA $0016 PEA ^L038337 PEA L038337 JSL L014421 BRL L01E983 BRL L01E983 L01E95C DA L01E623 DA L01E7EF DA L01E615 DA L01E812 DA L01E615 DA L01E820 DA L01E88C DA L01E845 DA L01E916 DA L01E8CF DA L01E615 L01E972 SEC SBC #$6600 CMP #$000A BCC L01E97E LDA #$000A L01E97E ASL TAX JMP (L01E95C,X) L01E983 LDA L020002 CMP #$0000 BEQ L01E993 LDA L020002 LDY #$0002 STA [$F7],Y L01E993 LDA L020002 CMP #$0000 BNE L01E9A0 LDA #$0000 BRA L01E9A3 L01E9A0 LDA #$0016 L01E9A3 TAY TDC CLC ADC #$00F1 TCS TYA PLD RTL L01E9AD ENT PHD TSC SEC SBC #$00F7 TCD ADC #$00F0 TCS LDY #$000A LDA [$FD],Y TAX LDY #$0008 LDA [$FD],Y STA $F2 STX $F4 LDY #$0002 LDA [$F2],Y TAX LDA [$F2] STA $F2 STX $F4 LDY #$0002 LDA [$F2],Y CMP #$0002 BNE L01EA4E LDY #$0010 LDA [$FD],Y TAX LDY #$000E LDA [$FD],Y PHX PHA PEA $0000 LDY #$000C LDA [$FD],Y PHA _ErrWriteBlock BCS L01E9FF LDA #$0000 L01E9FF STAL L020002 LDY #$000C LDA [$FD],Y SEC SBC #$0001 LDX #$0000 PHX PHA LDY #$0010 LDA [$FD],Y TAX LDY #$000E LDA [$FD],Y JSL L012E77 PLA PLX STA $F2 STX $F4 LDA [$F2] AND #$00FF CMP #$000A BNE L01EA4C PEA ^L039006 PEA L039006 PEA $0000 PEA $0001 _ErrWriteBlock BCS L01EA48 LDA #$0000 L01EA48 STAL L020002 L01EA4C BRA L01EABD L01EA4E LDY #$0010 LDA [$FD],Y TAX LDY #$000E LDA [$FD],Y PHX PHA PEA $0000 LDY #$000C LDA [$FD],Y PHA _TextWriteBlock BCS L01EA70 LDA #$0000 L01EA70 STAL L020002 LDY #$000C LDA [$FD],Y SEC SBC #$0001 LDX #$0000 PHX PHA LDY #$0010 LDA [$FD],Y TAX LDY #$000E LDA [$FD],Y JSL L012E77 PLA PLX STA $F2 STX $F4 LDA [$F2] AND #$00FF CMP #$000A BNE L01EABD PEA ^L039008 PEA L039008 PEA $0000 PEA $0001 _TextWriteBlock BCS L01EAB9 LDA #$0000 L01EAB9 STAL L020002 L01EABD LDY #$000C LDA [$FD],Y LDX #$0000 PHX PHA LDY #$0010 LDA [$FD],Y TAX LDY #$000E LDA [$FD],Y JSL L012E77 PLA PLX LDY #$0010 PHA TXA STA [$FD],Y PLA LDY #$000E STA [$FD],Y LDA #$0000 LDY #$000C STA [$FD],Y LDA #$0000 TAY TDC CLC ADC #$00F7 TCS TYA PLD RTL L01EAFA ENT PHD TSC SEC SBC #$00F7 TCD ADC #$00F0 TCS LDA #$0000 TAY TDC CLC ADC #$00F7 TCS TYA PLD RTL L01EB12 ENT PHD TSC SEC SBC #$00F7 TCD ADC #$00EA TCS LDA [$FD] AND #$0008 TAY BNE L01EB28 BRL L01EBBF L01EB28 LDY #$000A LDA [$FD],Y TAX LDY #$0008 LDA [$FD],Y STA $F2 STX $F4 LDY #$0002 LDA [$F2],Y TAX LDA [$F2] STA $F2 STX $F4 LDY #$0002 LDA [$F2],Y STAL L03833D PEA $0019 PEA ^L03833D PEA L03833D JSL L014421 LDA L020002 CMP #$0000 BEQ L01EB64 BRL L01EBBF L01EB64 LDY #$000A LDA [$FD],Y TAX LDY #$0008 LDA [$FD],Y STA $F2 STX $F4 LDY #$0002 LDA [$F2],Y TAX LDA [$F2] STA $F2 STX $F4 LDY #$0002 LDA [$F2],Y STAL L038337 LDAL L038341 TAX LDAL L03833F PHA TXA STAL L03833B PLA STAL L038339 PEA $0016 PEA ^L038337 PEA L038337 JSL L014421 LDA L020002 CMP #$0000 BEQ L01EBBF LDA L020002 LDY #$0002 STA [$FD],Y LDA #$001D BRL L01ECCA L01EBBF LDA [$FD] AND #$0020 TAY BNE L01EC0F LDY #$000C LDA [$FD],Y STA $F0 LDY #$0010 LDA [$FD],Y TAX LDY #$000E LDA [$FD],Y STX $EE STA $EC BRA L01EC00 L01EBDF LDA [$EC] AND #$00FF CMP #$000A BNE L01EBF2 LDA #$000D SEP #$20 STA [$EC] REP #$20 L01EBF2 LDA $F0 DEC $F0 LDX $EE LDA $EC INC $EC BNE L01EC00 INC $EE L01EC00 LDA $F0 SEC SBC #$0000 BEQ L01EC0F BVS L01EC0D EOR #$8000 L01EC0D BMI L01EBDF L01EC0F LDY #$000A LDA [$FD],Y TAX LDY #$0008 LDA [$FD],Y STA $F2 STX $F4 LDY #$0002 LDA [$F2],Y TAX LDA [$F2] STA $F2 STX $F4 LDY #$0002 LDA [$F2],Y STAL L038329 LDY #$000C LDA [$FD],Y LDX #$0000 PHA TXA STAL L038331 PLA STAL L03832F LDY #$0010 LDA [$FD],Y TAX LDY #$000E LDA [$FD],Y PHA TXA STAL L03832D PLA STAL L03832B PEA $0013 PEA ^L038329 PEA L038329 JSL L014421 LDA L020002 CMP #$0000 BNE L01ECB2 LDY #$000C LDA [$FD],Y LDX #$0000 SEC SBCL L038333 PHA TXA SBCL L038335 TAX PLA LDY #$000C STA [$FD],Y LDY #$0010 LDA [$FD],Y TAX LDY #$000E LDA [$FD],Y CLC ADCL L038333 PHA TXA ADCL L038335 TAX PLA LDY #$0010 PHA TXA STA [$FD],Y PLA LDY #$000E STA [$FD],Y BRA L01ECBA L01ECB2 LDA L020002 LDY #$0002 STA [$FD],Y L01ECBA LDA L020002 CMP #$0000 BNE L01ECC7 LDA #$0000 BRA L01ECCA L01ECC7 LDA #$0005 L01ECCA TAY TDC CLC ADC #$00F7 TCS TYA PLD RTL L01ECD4 ENT PHD TSC SEC SBC #$00F1 TCD ADC #$00EA TCS LDA $FB BRL L01ED17 L01ECE4 LDA #$0000 STA [$FD] LDX #$0000 LDA #$0000 LDY #$0004 PHA TXA STA [$FD],Y PLA LDY #$0002 STA [$FD],Y LDA #$0000 BRL L01ED28 L01ED02 LDA #$0000 BRL L01ED28 L01ED08 LDA #$0016 BRL L01ED28 BRL L01ED28 L01ED11 DA L01ECE4 DA L01ED02 DA L01ED08 L01ED17 SEC SBC #$6600 CMP #$0002 BCC L01ED23 LDA #$0002 L01ED23 ASL TAX JMP (L01ED11,X) L01ED28 TAY TDC CLC ADC #$00F1 TCS TYA PLD RTL L01ED32 ENT PHD TSC SEC SBC #$00F7 TCD ADC #$00F0 TCS LDY #$000C LDA [$FD],Y LDX #$0000 PHX PHA LDY #$0010 LDA [$FD],Y TAX LDY #$000E LDA [$FD],Y JSL L012E77 PLA PLX LDY #$0010 PHA TXA STA [$FD],Y PLA LDY #$000E STA [$FD],Y LDA #$0000 LDY #$000C STA [$FD],Y LDA #$0000 TAY TDC CLC ADC #$00F7 TCS TYA PLD RTL L01ED7A ENT PHD TSC SEC SBC #$00F1 TCD ADC #$00EA TCS PEA $0001 PEA $0000 PEA ^L038FFD PEA L038FFD PEI $F9 PEI $F7 JSL L012B09 TAY TSC CLC ADC #$000C TCS TYA TAY BNE L01EDAA LDA #$FFFF BRL L01EDC4 L01EDAA LDA $FB BRL L01EDBC L01EDAF LDA #$4016 BRL L01EDC4 L01EDB5 LDA #$0000 BRA L01EDC4 BRA L01EDC4 L01EDBC CMP #$6400 BEQ L01EDB5 JMP L01EDAF L01EDC4 TAY TDC CLC ADC #$00F1 TCS TYA PLD RTL L01EDCE ENT PHD TSC SEC SBC #$00F1 TCD ADC #$00EA TCS SEC LDA $F7 SBC #$0000 BNE L01EDE8 LDA $F9 SBC #$0000 BRA L01EDEF L01EDE8 LDA $F9 SBC #$0000 REP #$02 L01EDEF BEQ L01EDFB LDA [$F7] AND #$00FF CMP #$0000 BNE L01EE01 L01EDFB LDA #$4016 BRL L01EF4A L01EE01 LDA $FB BRL L01EF17 L01EE06 LDA #$4016 BRL L01EF4A L01EE0C PEI $F9 PEI $F7 PEI $FF PEI $FD JSL L01F304 PLY PLY PLY PLY BRL L01EF4A L01EE1F PEI $F9 PEI $F7 JSL L013A1F PLY PLY LDX $F9 LDA $F7 PHA TXA STAL L0382FF PLA STAL L0382FD PEA $0002 PEA ^L0382FD PEA L0382FD JSL L014421 PEI $F9 PEI $F7 JSL L013A8B PLY PLY BRL L01EF28 L01EE52 PEI $F9 PEI $F7 JSL L013A1F PLY PLY PEI $FF PEI $FD JSL L013A1F PLY PLY LDX $F9 LDA $F7 PHA TXA STAL L0382FF PLA STAL L0382FD LDX $FF LDA $FD PHA TXA STAL L038303 PLA STAL L038301 PEA $0004 PEA ^L0382FD PEA L0382FD JSL L014421 PEI $F9 PEI $F7 JSL L013A8B PLY PLY PEI $FF PEI $FD JSL L013A8B PLY PLY BRL L01EF28 L01EEA8 PEI $F9 PEI $F7 JSL L013A1F PLY PLY LDX $F9 LDA $F7 PHA TXA STAL L038307 PLA STAL L038305 PEA $0006 PEA ^L038305 PEA L038305 JSL L014421 LDA $FB CMP #$6403 BNE L01EEDF LDX $FF LDA $FD STAL L03830B BRA L01EEEE L01EEDF LDX $FF LDA $FD PHA TXA STAL L03830F PLA STAL L03830D L01EEEE PEA $0005 PEA ^L038305 PEA L038305 JSL L014421 PEI $F9 PEI $F7 JSL L013A8B PLY PLY BRL L01EF28 BRL L01EF28 L01EF0B DA L01EE0C DA L01EE1F DA L01EE52 DA L01EEA8 DA L01EEA8 DA L01EE06 L01EF17 SEC SBC #$6400 CMP #$0005 BCC L01EF23 LDA #$0005 L01EF23 ASL TAX JMP (L01EF0B,X) L01EF28 LDA L020002 CMP #$0000 BNE L01EF35 LDA #$0000 BRA L01EF4A L01EF35 LDA L020002 PHA LDA #$8000 PLX STX $F0 ORA $F0 PHA LDA #$4000 PLX STX $F0 ORA $F0 L01EF4A TAY TDC CLC ADC #$00F1 TCS TYA PLD RTL L01EF54 ENT PHD TSC SEC SBC #$00F1 TCD ADC #$00E4 TCS PEA $0001 PEA $0000 PEA ^L03910A PEA L03910A PEI $F9 PEI $F7 JSL L012B09 TAY TSC CLC ADC #$000C TCS TYA TAY BEQ L01EF84 LDA #$0000 BRL L01F0C4 L01EF84 PEA $0001 PEA $0000 PEA ^L039110 PEA L039110 PEI $F9 PEI $F7 JSL L012B09 TAY TSC CLC ADC #$000C TCS TYA TAY BEQ L01EFA8 STZ $EA BRL L01EFFA L01EFA8 PEA $0001 PEA $0000 PEA ^L039117 PEA L039117 PEI $F9 PEI $F7 JSL L012B09 TAY TSC CLC ADC #$000C TCS TYA TAY BEQ L01EFCE LDA #$0001 STA $EA BRA L01EFFA L01EFCE PEA $0001 PEA $0000 PEA ^L03911F PEA L03911F PEI $F9 PEI $F7 JSL L012B09 TAY TSC CLC ADC #$000C TCS TYA TAY BEQ L01EFF4 LDA #$0002 STA $EA BRA L01EFFA L01EFF4 LDA #$FFFF BRL L01F0C4 L01EFFA LDA $FB CMP #$6400 BEQ L01F007 LDA #$4016 BRL L01F0C4 L01F007 LDA [$FD] AND #$0500 CMP #$0500 BNE L01F017 LDA #$4011 BRL L01F0C4 L01F017 PEA $0000 TDC CLC ADC #$00EA PHA JSL L01D924 PLY PLY STX $E8 STA $E6 LDA $E6 CMP #$0000 BNE L01F03E LDA $E8 CMP #$0000 BNE L01F03E LDA #$4009 BRL L01F0C4 L01F03E LDA [$FD] PHA LDA [$E6] PLX STX $F0 AND $F0 AND #$0003 PHA LDA [$FD] AND #$0003 PLX STX $EC CMP $EC BEQ L01F05D LDA #$400D BRA L01F0C4 L01F05D PEA $0000 PEA $6601 PEI $E8 PEI $E6 LDY #$0006 LDA [$E6],Y TAX LDY #$0004 LDA [$E6],Y STA $EC STX $EE LDY #$0016 LDA [$EC],Y TAX LDY #$0014 LDA [$EC],Y STA $EC STX $EE LDA $EC LDX $EE JSL L014572 PLY PLY PLY PLY LDY #$0006 LDA [$E6],Y TAX LDY #$0004 LDA [$E6],Y LDY #$0006 PHA TXA STA [$FD],Y PLA LDY #$0004 STA [$FD],Y LDY #$000A LDA [$E6],Y TAX LDY #$0008 LDA [$E6],Y LDY #$000A PHA TXA STA [$FD],Y PLA LDY #$0008 STA [$FD],Y LDA #$0000 L01F0C4 TAY TDC CLC ADC #$00F1 TCS TYA PLD RTL L01F0CE ENT PHD TSC SEC SBC #$00F7 TCD ADC #$00F0 TCS LDA L020127 SEC SBC #$0000 BEQ L01F0E9 BVS L01F0E7 EOR #$8000 L01F0E7 BMI L01F108 L01F0E9 PEA $0100 PEA ^L03900A PEA L03900A JSL L01F57E PLY PLY PLY STA L020127 LDA #L03900A LDX #^L03900A STX L02012B STA L020129 L01F108 LDY #$000C LDA [$FD],Y CMP #$0000 BNE L01F115 BRL L01F1AD L01F115 BCS L01F11A BRL L01F1AD L01F11A LDA L020127 SEC SBC #$0000 BNE L01F126 BRL L01F1AD L01F126 BVS L01F12B EOR #$8000 L01F12B BMI L01F130 BRL L01F1AD L01F130 LDX L02012B LDA L020129 STA $F2 STX $F4 LDA [$F2] AND #$00FF CMP #$0000 BNE L01F147 BRL L01F1AD L01F147 LDX L02012B LDA L020129 PHX PHA CLC ADC #$0001 STA L020129 LDA L02012B BCC L01F15C INC L01F15C STA L02012B PLA PLX STA $F2 STX $F4 LDA [$F2] PHA LDY #$0010 LDA [$FD],Y TAX LDY #$000E LDA [$FD],Y PHX PHA CLC ADC #$0001 LDY #$000E STA [$FD],Y LDY #$0010 LDA [$FD],Y BCC L01F186 INC L01F186 LDY #$0010 STA [$FD],Y PLA PLX STA $F2 STX $F4 PLA SEP #$20 STA [$F2] REP #$20 LDY #$000C LDA [$FD],Y DEC LDY #$000C STA [$FD],Y LDA L020127 DEC STA L020127 BRL L01F108 L01F1AD LDA #$0000 TAY TDC CLC ADC #$00F7 TCS TYA PLD RTL L01F1BA ENT PHD TSC SEC SBC #$00F7 TCD ADC #$00E8 TCS LDY #$000A LDA [$FD],Y TAX LDY #$0008 LDA [$FD],Y STA $F2 STX $F4 LDY #$0002 LDA [$F2],Y TAX LDA [$F2] STA $F2 STX $F4 LDY #$0002 LDA [$F2],Y STAL L038329 LDY #$000C LDA [$FD],Y LDX #$0000 PHA TXA STAL L038331 PLA STAL L03832F LDY #$0010 LDA [$FD],Y TAX LDY #$000E LDA [$FD],Y PHA TXA STAL L03832D PLA STAL L03832B PEA $0012 PEA ^L038329 PEA L038329 JSL L014421 LDA [$FD] AND #$0020 TAY BNE L01F273 LDAL L038335 TAX LDAL L038333 STA $EE LDY #$0010 LDA [$FD],Y TAX LDY #$000E LDA [$FD],Y STX $EC STA $EA BRA L01F264 L01F243 LDA [$EA] AND #$00FF CMP #$000D BNE L01F256 LDA #$000A SEP #$20 STA [$EA] REP #$20 L01F256 LDA $EE DEC $EE LDX $EC LDA $EA INC $EA BNE L01F264 INC $EC L01F264 LDA $EE SEC SBC #$0000 BEQ L01F273 BVS L01F271 EOR #$8000 L01F271 BMI L01F243 L01F273 LDA L020002 CMP #$004C BNE L01F27F STZ $F0 BRA L01F284 L01F27F LDA L020002 STA $F0 L01F284 LDA $F0 CMP #$0000 BNE L01F2CC LDY #$000C LDA [$FD],Y LDX #$0000 SEC SBCL L038333 PHA TXA SBCL L038335 TAX PLA LDY #$000C STA [$FD],Y LDY #$0010 LDA [$FD],Y TAX LDY #$000E LDA [$FD],Y CLC ADCL L038333 PHA TXA ADCL L038335 TAX PLA LDY #$0010 PHA TXA STA [$FD],Y PLA LDY #$000E STA [$FD],Y BRA L01F2D3 L01F2CC LDA $F0 LDY #$0002 STA [$FD],Y L01F2D3 LDA $F0 CMP #$0000 BNE L01F2DF LDA #$0000 BRA L01F2E2 L01F2DF LDA #$0005 L01F2E2 TAY TDC CLC ADC #$00F7 TCS TYA PLD RTL L01F2EC ENT PHD TSC SEC SBC #$00F7 TCD ADC #$00F0 TCS LDA #$0000 TAY TDC CLC ADC #$00F7 TCS TYA PLD RTL L01F304 PHD TSC SEC SBC #$00F3 TCD ADC #$00E6 TCS STZ $EA PEI $FF PEI $FD JSL L013A1F PLY PLY LDA [$F9] STA $EC LDX $FF LDA $FD PHA TXA STAL L038307 PLA STAL L038305 PEA $0006 PEA ^L038305 PEA L038305 JSL L014421 LDA L020002 CMP #$0000 BEQ L01F346 BRL L01F3FC L01F346 LDA $EC AND #$0500 CMP #$0500 BNE L01F358 LDA #$0011 STA $EA BRL L01F3F9 L01F358 LDA $EC AND #$0001 TAY BEQ L01F36A LDAL L038309 AND #$0001 TAY BEQ L01F37C L01F36A LDA $EC AND #$0002 TAY BEQ L01F384 LDAL L038309 AND #$0002 TAY BNE L01F384 L01F37C LDA #$000D STA $EA BRL L01F3F9 L01F384 LDX $FF LDA $FD PHA TXA STAL L038323 PLA STAL L038321 PEA $0010 PEA ^L03831F PEA L03831F JSL L014421 LDA L020002 CMP #$0000 BEQ L01F3AB BRL L01F3F9 L01F3AB LDA $EC AND #$0200 TAY BNE L01F3B6 BRL L01F3F9 L01F3B6 LDX #$0000 LDA #$0000 PHA TXA STAL L038341 PLA STAL L03833F LDAL L03831F STAL L03833D PEA $0018 PEA ^L03833D PEA L03833D JSL L014421 LDA L020002 CMP #$0000 BEQ L01F3F9 LDAL L03831F STAL L038329 PEA $0014 PEA ^L038329 PEA L038329 JSL L014421 L01F3F9 BRL L01F4A2 L01F3FC LDA L020002 CMP #$0046 BEQ L01F407 BRL L01F4A2 L01F407 LDA $EC AND #$0100 TAY BNE L01F412 BRL L01F4A2 L01F412 LDAL L038309 ORA #$00C3 STAL L038309 LDA $EC AND #$0020 TAY BEQ L01F42E LDA #$0000 STAL L03830B BRA L01F435 L01F42E LDA #$0004 STAL L03830B L01F435 LDA #$0000 STAL L038315 STAL L038313 PEA $0001 PEA ^L038305 PEA L038305 JSL L014421 LDA L020002 CMP #$0000 BEQ L01F458 BRL L01F4A2 L01F458 LDX $FF LDA $FD PHA TXA STAL L038323 PLA STAL L038321 PEA $0010 PEA ^L03831F PEA L03831F JSL L014421 LDA L020002 STA $E8 LDA L020002 CMP #$0000 BEQ L01F4A2 LDX $FF LDA $FD PHA TXA STAL L0382FF PLA STAL L0382FD PEA $0002 PEA ^L0382FD PEA L0382FD JSL L014421 LDA $E8 STA L020002 L01F4A2 PEI $FF PEI $FD JSL L013A8B PLY PLY LDA L020002 CMP #$0000 BEQ L01F4CC LDA L020002 PHA LDA #$8000 PLX STX $F2 ORA $F2 STA $EA LDA L020002 LDY #$0002 STA [$F9],Y BRA L01F4DB L01F4CC LDA $EA CMP #$0000 BEQ L01F4DB LDA #$0000 LDY #$0002 STA [$F9],Y L01F4DB LDA $EA CMP #$0000 BNE L01F55D PHX PHA PEA $0000 PEA $000E LDA L020004 ORA #$0F00 PHA PEA $8300 PEA $0000 PEA $0000 _NewHandle BCS L01F506 LDA #$0000 L01F506 STAL L020002 PLA PLX LDY #$000A PHA TXA STA [$F9],Y PLA LDY #$0008 STA [$F9],Y LDY #$000A LDA [$F9],Y TAX LDY #$0008 LDA [$F9],Y STA $EE STX $F0 LDY #$0002 LDA [$EE],Y TAX LDA [$EE] STA $EE STX $F0 LDAL L03831F LDY #$0002 STA [$EE],Y LDY #$000A LDA [$F9],Y TAX LDY #$0008 LDA [$F9],Y STA $EE STX $F0 LDY #$0002 LDA [$EE],Y TAX LDA [$EE] STA $EE STX $F0 LDA #$0001 STA [$EE] L01F55D LDA $EA CMP #$0000 BNE L01F569 LDA #$0000 BRA L01F574 L01F569 LDA $EA PHA LDA #$4000 PLX STX $F2 ORA $F2 L01F574 TAY TDC CLC ADC #$00F3 TCS TYA PLD RTL L01F57E PHD TSC SEC SBC #$00F5 TCD ADC #$00EB TCS STZ $EE L01F58B LDA $EE SEC SBC $FF BVS L01F595 EOR #$8000 L01F595 BPL L01F59A BRL L01F6E1 L01F59A PHA PEA $0001 _ReadChar BCS L01F5AA LDA #$0000 L01F5AA STAL L020002 PLA SEP #$20 STA $ED REP #$20 PHA LDX $FD LDA $FB INC $FB BNE L01F5C0 INC $FD L01F5C0 STA $F0 STX $F2 PLA SEP #$20 STA [$F0] REP #$20 INC $EE LDA $ED AND #$00FF CMP #$000D BNE L01F609 LDX $FD LDA $FB SEC SBC #$0001 PHA TXA SBC #$0000 TAX PLA STA $F0 STX $F2 LDA #$000A SEP #$20 STA [$F0] REP #$20 PEA $000A _WriteChar BCS L01F602 LDA #$0000 L01F602 STAL L020002 BRL L01F6E1 L01F609 LDA $ED AND #$00FF CMP #$0000 BNE L01F63C PEA $000D _WriteChar BCS L01F622 LDA #$0000 L01F622 STAL L020002 PEA $000A _WriteChar BCS L01F635 LDA #$0000 L01F635 STAL L020002 BRL L01F6E1 L01F63C LDA $ED AND #$00FF CMP #$007F BEQ L01F649 BRL L01F6DE L01F649 LDA $FB BNE L01F64F DEC $FD L01F64F DEC $FB DEC $EE PEA $0008 _WriteChar BCS L01F662 LDA #$0000 L01F662 STAL L020002 PEA $0020 _WriteChar BCS L01F675 LDA #$0000 L01F675 STAL L020002 PEA $0008 _WriteChar BCS L01F688 LDA #$0000 L01F688 STAL L020002 LDA $EE SEC SBC #$0000 BEQ L01F6DE BVS L01F699 EOR #$8000 L01F699 BPL L01F6DE LDA $FB BNE L01F6A1 DEC $FD L01F6A1 DEC $FB DEC $EE PEA $0008 _WriteChar BCS L01F6B4 LDA #$0000 L01F6B4 STAL L020002 PEA $0020 _WriteChar BCS L01F6C7 LDA #$0000 L01F6C7 STAL L020002 PEA $0008 _WriteChar BCS L01F6DA LDA #$0000 L01F6DA STAL L020002 L01F6DE BRL L01F58B L01F6E1 LDA $EE TAY TDC CLC ADC #$00F5 TCS TYA PLD RTL