diff --git a/Original dsk images/The Print Shop Companion source code - fastload, protection, title page - volume V13.dsk b/Original dsk images/The Print Shop Companion source code - fastload, protection, title page - volume V13.dsk new file mode 100644 index 0000000..15c4fe0 Binary files /dev/null and b/Original dsk images/The Print Shop Companion source code - fastload, protection, title page - volume V13.dsk differ diff --git a/Original dsk images/The Print Shop Companion source code disk 1 - system - volume V10.dsk b/Original dsk images/The Print Shop Companion source code disk 1 - system - volume V10.dsk new file mode 100644 index 0000000..3ab89a5 Binary files /dev/null and b/Original dsk images/The Print Shop Companion source code disk 1 - system - volume V10.dsk differ diff --git a/Original dsk images/The Print Shop Companion source code disk 2 - editors - volume V11.dsk b/Original dsk images/The Print Shop Companion source code disk 2 - editors - volume V11.dsk new file mode 100644 index 0000000..90ea61c Binary files /dev/null and b/Original dsk images/The Print Shop Companion source code disk 2 - editors - volume V11.dsk differ diff --git a/Original dsk images/The Print Shop Companion source code disk 3 - calendar - volume V12.dsk b/Original dsk images/The Print Shop Companion source code disk 3 - calendar - volume V12.dsk new file mode 100644 index 0000000..2bda338 Binary files /dev/null and b/Original dsk images/The Print Shop Companion source code disk 3 - calendar - volume V12.dsk differ diff --git a/PSC Source Disk 1 - System (v10)/A_MH.txt b/PSC Source Disk 1 - System (v10)/A_MH.txt new file mode 100644 index 0000000..29c111d --- /dev/null +++ b/PSC Source Disk 1 - System (v10)/A_MH.txt @@ -0,0 +1,14 @@ + 5 PRINT "MONC" + 10 LL = - 21920:LH = - 21919: DEF FN L(A) = PEEK (LL) + 256 * PEEK (LH) + 20 PRINT "BLOAD IPL,A$4000":BF = 16384 + FN L(0) + 30 READ F$,AL,AH: POKE BF,AL: POKE BF + 1,AH:BF = BF + 2: IF AH THEN PRINT "BLOAD "F$",A"BF + 2: POKE BF, PEEK (LL): POKE BF + 1, PEEK (LH):BF = BF + 2 + FN L(0): GOTO 30 + 40 REM GOSUB100 + 45 REM EX$=",V12":GOSUB100 + 46 EX$ = ",S4": GOSUB 100 + 50 END + 100 PRINT "BSAVE "F$",A16384,L"BF - 16384;EX$: RETURN + 1000 DATA "SUBPAK",0,224: REM $E000 + 1010 DATA "SYSLIB2",0,133: REM $8500 + 1020 DATA "O:HELLO",0,8: REM $0800 + 2000 DATA "HELLO",, + 63999 PRINT "SAVE MH" diff --git a/PSC Source Disk 1 - System (v10)/IPL.txt b/PSC Source Disk 1 - System (v10)/IPL.txt new file mode 100644 index 0000000..b6e5a42 --- /dev/null +++ b/PSC Source Disk 1 - System (v10)/IPL.txt @@ -0,0 +1,108 @@ +4000- 20 59 40 JSR $4059 +4003- 20 CC 40 JSR $40CC +4006- 20 0F 40 JSR $400F +4009- 20 0F E0 JSR $E00F +400C- 4C 00 08 JMP $0800 +400F- 2C 83 C0 BIT $C083 rw:LCBANK2 +4012- 2C 83 C0 BIT $C083 rw:LCBANK2 +4015- A0 E6 LDY #$E6 +4017- A9 40 LDA #$40 +4019- 84 3A STY $3A +401B- 85 3B STA $3B +401D- A0 00 LDY #$00 +401F- 20 50 40 JSR $4050 +4022- 85 3C STA $3C +4024- 20 50 40 JSR $4050 +4027- 85 3D STA $3D +4029- 05 3C ORA $3C +402B- F0 2B BEQ $4058 +402D- 20 50 40 JSR $4050 +4030- AA TAX +4031- 20 50 40 JSR $4050 +4034- 85 3F STA $3F +4036- 20 50 40 JSR $4050 +4039- 91 3C STA ($3C),Y +403B- E6 3C INC $3C +403D- D0 02 BNE $4041 +403F- E6 3D INC $3D +4041- 8A TXA +4042- D0 02 BNE $4046 +4044- C6 3F DEC $3F +4046- CA DEX +4047- D0 ED BNE $4036 +4049- 8A TXA +404A- 05 3F ORA $3F +404C- D0 E8 BNE $4036 +404E- F0 CF BEQ $401F +4050- B1 3A LDA ($3A),Y +4052- E6 3A INC $3A +4054- D0 02 BNE $4058 +4056- E6 3B INC $3B +4058- 60 RTS +4059- 2C 83 C0 BIT $C083 rw:LCBANK2 +405C- 2C 83 C0 BIT $C083 rw:LCBANK2 +405F- A2 00 LDX #$00 +4061- 8E 00 E0 STX $E000 +4064- EC 00 E0 CPX $E000 +4067- D0 04 BNE $406D +4069- E8 INX +406A- D0 F5 BNE $4061 +406C- 60 RTS +406D- 2C 81 C0 BIT $C081 rw:ROMIN +4070- 20 2F FB JSR $FB2F F8ROM:INIT +4073- 20 58 FC JSR $FC58 F8ROM:HOME +4076- 20 84 FE JSR $FE84 F8ROM:SETNORM +4079- 20 93 FE JSR $FE93 F8ROM:SETVID +407C- 20 89 FE JSR $FE89 F8ROM:SETKBD +407F- A9 08 LDA #$08 +4081- 20 5B FB JSR $FB5B F8ROM:TABV +4084- A0 00 LDY #$00 +4086- B9 99 40 LDA $4099,Y +4089- F0 FE BEQ $4089 +408B- 20 ED FD JSR $FDED F8ROM:COUT +408E- C9 8D CMP #$8D +4090- D0 04 BNE $4096 +4092- A9 07 LDA #$07 +4094- 85 24 STA $24 +4096- C8 INY +4097- D0 ED BNE $4086 +4099- 8D D4 C8 STA $C8D4 +409C- C5 A0 CMP $A0 +409E- D0 D2 BNE $4072 +40A0- C9 CE CMP #$CE +40A2- D4 ??? +40A3- A0 D3 LDY #$D3 +40A5- C8 INY +40A6- CF ??? +40A7- D0 A0 BNE $4049 +40A9- C3 ??? +40AA- CF ??? +40AB- CD D0 C1 CMP $C1D0 +40AE- CE C9 CF DEC $CFC9 +40B1- CE 8D 8D DEC $8D8D +40B4- A0 D2 LDY #$D2 +40B6- C5 D1 CMP $D1 +40B8- D5 C9 CMP $C9,X +40BA- D2 C5 CMP ($C5) +40BC- D3 ??? +40BD- A0 B6 LDY #$B6 +40BF- B4 CB LDY $CB,X +40C1- A0 CF LDY #$CF +40C3- C6 A0 DEC $A0 +40C5- CD C5 CD CMP $CDC5 +40C8- CF ??? +40C9- D2 D9 CMP ($D9) +40CB- 00 BRK +40CC- A0 00 LDY #$00 +40CE- A9 F8 LDA #$F8 +40D0- 84 3A STY $3A +40D2- 85 3B STA $3B +40D4- 2C 81 C0 BIT $C081 rw:ROMIN +40D7- 2C 81 C0 BIT $C081 rw:ROMIN +40DA- B1 3A LDA ($3A),Y +40DC- 91 3A STA ($3A),Y +40DE- C8 INY +40DF- D0 F9 BNE $40DA +40E1- E6 3B INC $3B +40E3- D0 F5 BNE $40DA +40E5- 60 RTS diff --git a/PSC Source Disk 1 - System (v10)/MAKE SYSLIB2.TXT b/PSC Source Disk 1 - System (v10)/MAKE SYSLIB2.TXT new file mode 100644 index 0000000..d950a1c --- /dev/null +++ b/PSC Source Disk 1 - System (v10)/MAKE SYSLIB2.TXT @@ -0,0 +1,8 @@ +FP +MONCIO +BLOAD SYSLIB2,A$8500 +BLOAD O:FDRAW,A$8A00 +BLOAD O:8800 ,A$8800 +BLOAD O:8E00 ,A$8E00 +BSAVE SYSLIB2,A$8500,L$10C8 +RUN MH diff --git a/PSC Source Disk 1 - System (v10)/O_8800.txt b/PSC Source Disk 1 - System (v10)/O_8800.txt new file mode 100644 index 0000000..b9834e3 --- /dev/null +++ b/PSC Source Disk 1 - System (v10)/O_8800.txt @@ -0,0 +1,269 @@ +8800- 4C 58 FC JMP $FC58 F8ROM:HOME +8803- 4C 40 88 JMP $8840 +8806- 00 BRK +8807- 00 BRK +8808- 00 BRK +8809- 00 BRK +880A- 00 BRK +880B- 80 00 BRA $880D +880D- 4C 85 88 JMP $8885 +8810- 00 BRK +8811- 80 00 BRA $8813 +8813- 80 00 BRA $8815 +8815- 80 00 BRA $8817 +8817- 80 28 BRA $8841 +8819- A8 TAY +881A- 28 PLP +881B- A8 TAY +881C- 28 PLP +881D- A8 TAY +881E- 28 PLP +881F- A8 TAY +8820- 50 D0 BVC $87F2 +8822- 50 D0 BVC $87F4 +8824- 50 D0 BVC $87F6 +8826- 50 D0 BVC $87F8 +8828- 04 04 TSB $04 +882A- 05 05 ORA $05 +882C- 06 06 ASL $06 +882E- 07 ??? +882F- 07 ??? +8830- 04 04 TSB $04 +8832- 05 05 ORA $05 +8834- 06 06 ASL $06 +8836- 07 ??? +8837- 07 ??? +8838- 04 04 TSB $04 +883A- 05 05 ORA $05 +883C- 06 06 ASL $06 +883E- 07 ??? +883F- 07 ??? +8840- A5 08 LDA $08 +8842- 48 PHA +8843- A5 09 LDA $09 +8845- 48 PHA +8846- 20 50 88 JSR $8850 +8849- 68 PLA +884A- 85 09 STA $09 +884C- 68 PLA +884D- 85 08 STA $08 +884F- 60 RTS +8850- AE 07 88 LDX $8807 +8853- BD 10 88 LDA $8810,X +8856- 85 08 STA $08 +8858- BD 28 88 LDA $8828,X +885B- 85 09 STA $09 +885D- AD 08 88 LDA $8808 +8860- 8D C6 88 STA $88C6 +8863- AD 09 88 LDA $8809 +8866- 8D C7 88 STA $88C7 +8869- AC 06 88 LDY $8806 +886C- A2 00 LDX #$00 +886E- 8E 0C 88 STX $880C +8871- 20 C5 88 JSR $88C5 +8874- F0 0E BEQ $8884 +8876- 29 3F AND #$3F +8878- 0D 0B 88 ORA $880B +887B- 91 08 STA ($08),Y +887D- E8 INX +887E- C8 INY +887F- EC 0A 88 CPX $880A +8882- D0 ED BNE $8871 +8884- 60 RTS +8885- 8E 08 88 STX $8808 +8888- 8C 09 88 STY $8809 +888B- 8D 07 88 STA $8807 +888E- A9 00 LDA #$00 +8890- 8D 06 88 STA $8806 +8893- A2 28 LDX #$28 +8895- 8D 0A 88 STA $880A +8898- A9 01 LDA #$01 +889A- 8D C4 88 STA $88C4 +889D- AD C4 88 LDA $88C4 +88A0- A2 80 LDX #$80 +88A2- 8E 0B 88 STX $880B +88A5- 20 40 88 JSR $8840 +88A8- E8 INX +88A9- 8A TXA +88AA- 18 CLC +88AB- 6D 08 88 ADC $8808 +88AE- 8D 08 88 STA $8808 +88B1- 90 03 BCC $88B6 +88B3- EE 09 88 INC $8809 +88B6- EE 07 88 INC $8807 +88B9- EE C4 88 INC $88C4 +88BC- 20 C5 88 JSR $88C5 +88BF- C9 FF CMP #$FF +88C1- D0 DA BNE $889D +88C3- 60 RTS +88C4- 00 BRK +88C5- BD 00 80 LDA $8000,X +88C8- 60 RTS +88C9- 86 09 STX $09 +88CB- 84 0A STY $0A +88CD- 20 18 E0 JSR $E018 +88D0- A6 09 LDX $09 +88D2- A4 0A LDY $0A +88D4- B0 08 BCS $88DE +88D6- 0A ASL +88D7- 30 05 BMI $88DE +88D9- 90 03 BCC $88DE +88DB- A9 0D LDA #$0D +88DD- 60 RTS +88DE- A9 00 LDA #$00 +88E0- 60 RTS +88E1- BD 10 88 LDA $8810,X +88E4- 85 08 STA $08 +88E6- BD 28 88 LDA $8828,X +88E9- 85 09 STA $09 +88EB- 60 RTS +88EC- 20 E1 88 JSR $88E1 +88EF- A0 27 LDY #$27 +88F1- B9 80 03 LDA $0380,Y +88F4- 91 08 STA ($08),Y +88F6- 88 DEY +88F7- 10 F8 BPL $88F1 +88F9- 60 RTS +88FA- 00 BRK +88FB- 00 BRK +88FC- 00 BRK +88FD- 00 BRK +88FE- 00 BRK +88FF- 00 BRK +8900- 4C C9 88 JMP $88C9 +8903- EA NOP +8904- EA NOP +8905- EA NOP +8906- EA NOP +8907- EA NOP +8908- 4C 77 89 JMP $8977 +890B- 4C C7 89 JMP $89C7 +890E- 7D 2A 28 ADC $282A,X +8911- A8 TAY +8912- 9C 11 2B STZ $2B11 +8915- 29 2C AND #$2C +8917- A2 11 LDX #$11 +8919- 2B ??? +891A- 2A ROL +891B- 2C A0 11 BIT $11A0 +891E- EA NOP +891F- AC 2A A0 LDY $A02A +8922- 11 2A ORA ($2A),Y +8924- 6A ROR +8925- 29 A6 AND #$A6 +8927- 11 2A ORA ($2A),Y +8929- 69 29 ADC #$29 +892B- A2 11 LDX #$11 +892D- 2A ROL +892E- 28 PLP +892F- A8 TAY +8930- 9E 73 CA STZ $CA73,X +8933- 2F ??? +8934- A8 TAY +8935- 9C 4A 2B STZ $2B4A +8938- 22 ??? +8939- 2C A2 4A BIT $4AA2 +893C- 2B ??? +893D- 22 ??? +893E- 2C A0 73 BIT $73A0 +8941- CA DEX +8942- A2 2A LDX #$2A +8944- A0 42 LDY #$42 +8946- 8A TXA +8947- 62 ??? +8948- 29 A6 AND #$A6 +894A- 42 ??? +894B- 4A LSR +894C- 62 ??? +894D- 29 A2 AND #$A2 +894F- 42 ??? +8950- 2A ROL +8951- 22 ??? +8952- 28 PLP +8953- 9E 78 42 STZ $4278,X +8956- 27 ??? +8957- 28 PLP +8958- 9C 44 A2 STZ $A244 +895B- 28 PLP +895C- AC A2 44 LDY $44A2 +895F- A2 28 LDX #$28 +8961- 2C A0 79 BIT $79A0 +8964- 12 27 ORA ($27) +8966- 2A ROL +8967- A0 41 LDY #$41 +8969- F2 20 SBC ($20) +896B- A9 A6 LDA #$A6 +896D- 42 ??? +896E- 0A ASL +896F- 28 PLP +8970- A9 A2 LDA #$A2 +8972- 42 ??? +8973- 09 C7 ORA #$C7 +8975- 28 PLP +8976- 9E A9 00 STZ $00A9,X +8979- 85 E0 STA $E0 +897B- 85 E3 STA $E3 +897D- A5 E4 LDA $E4 +897F- 85 E2 STA $E2 +8981- A9 28 LDA #$28 +8983- 85 E1 STA $E1 +8985- A6 E2 LDX $E2 +8987- BD BF 89 LDA $89BF,X +898A- A4 E0 LDY $E0 +898C- 99 80 03 STA $0380,Y +898F- C8 INY +8990- C4 E1 CPY $E1 +8992- D0 F8 BNE $898C +8994- A6 E3 LDX $E3 +8996- 20 EC 88 JSR $88EC +8999- A9 13 LDA #$13 +899B- 38 SEC +899C- E5 E3 SBC $E3 +899E- AA TAX +899F- 20 EC 88 JSR $88EC +89A2- E6 E0 INC $E0 +89A4- C6 E1 DEC $E1 +89A6- E6 E2 INC $E2 +89A8- A5 E2 LDA $E2 +89AA- 29 07 AND #$07 +89AC- 85 E2 STA $E2 +89AE- E6 E3 INC $E3 +89B0- A5 E3 LDA $E3 +89B2- C9 0A CMP #$0A +89B4- D0 CF BNE $8985 +89B6- E6 E4 INC $E4 +89B8- A5 E4 LDA $E4 +89BA- 29 07 AND #$07 +89BC- 85 E4 STA $E4 +89BE- 60 RTS +89BF- BB ??? +89C0- 99 DD CC STA $CCDD,Y +89C3- EE 66 77 INC $7766 +89C6- 33 ??? +89C7- A2 13 LDX #$13 +89C9- 8E 07 88 STX $8807 +89CC- 20 E1 88 JSR $88E1 +89CF- A0 27 LDY #$27 +89D1- B1 08 LDA ($08),Y +89D3- 29 0F AND #$0F +89D5- AA TAX +89D6- BD E5 89 LDA $89E5,X +89D9- 91 08 STA ($08),Y +89DB- 88 DEY +89DC- 10 F3 BPL $89D1 +89DE- AE 07 88 LDX $8807 +89E1- CA DEX +89E2- 10 E5 BPL $89C9 +89E4- 60 RTS +89E5- 00 BRK +89E6- 00 BRK +89E7- 00 BRK +89E8- BB ??? +89E9- 00 BRK +89EA- 00 BRK +89EB- 77 ??? +89EC- 33 ??? +89ED- 00 BRK +89EE- DD 00 99 CMP $9900,X +89F1- EE CC 66 INC $66CC +89F4- 00 BRK diff --git a/PSC Source Disk 1 - System (v10)/O_8E00.txt b/PSC Source Disk 1 - System (v10)/O_8E00.txt new file mode 100644 index 0000000..27f57e7 --- /dev/null +++ b/PSC Source Disk 1 - System (v10)/O_8E00.txt @@ -0,0 +1,205 @@ +8E00- 4C 00 89 JMP $8900 +8E03- 4C 91 8E JMP $8E91 +8E06- 00 BRK +8E07- 00 BRK +8E08- 00 BRK +8E09- A9 00 LDA #$00 +8E0B- 8D 08 8E STA $8E08 +8E0E- A5 80 LDA $80 +8E10- 48 PHA +8E11- A5 81 LDA $81 +8E13- 48 PHA +8E14- A5 82 LDA $82 +8E16- 48 PHA +8E17- A5 83 LDA $83 +8E19- 48 PHA +8E1A- 86 80 STX $80 +8E1C- 84 81 STY $81 +8E1E- A0 04 LDY #$04 +8E20- B1 80 LDA ($80),Y +8E22- 48 PHA +8E23- A0 09 LDY #$09 +8E25- B1 80 LDA ($80),Y +8E27- 48 PHA +8E28- C8 INY +8E29- B1 80 LDA ($80),Y +8E2B- 48 PHA +8E2C- A0 0B LDY #$0B +8E2E- B1 80 LDA ($80),Y +8E30- 99 03 8A STA $8A03,Y +8E33- 88 DEY +8E34- 10 F8 BPL $8E2E +8E36- 20 00 8A JSR $8A00 +8E39- AD 0C 8A LDA $8A0C +8E3C- 85 82 STA $82 +8E3E- AD 0D 8A LDA $8A0D +8E41- 85 83 STA $83 +8E43- A0 00 LDY #$00 +8E45- B1 82 LDA ($82),Y +8E47- F0 03 BEQ $8E4C +8E49- C8 INY +8E4A- D0 F9 BNE $8E45 +8E4C- 8C 99 8F STY $8F99 +8E4F- C8 INY +8E50- B1 82 LDA ($82),Y +8E52- C9 FF CMP #$FF +8E54- F0 20 BEQ $8E76 +8E56- AD 08 8E LDA $8E08 +8E59- D0 1B BNE $8E76 +8E5B- 98 TYA +8E5C- A0 09 LDY #$09 +8E5E- 18 CLC +8E5F- 71 80 ADC ($80),Y +8E61- 91 80 STA ($80),Y +8E63- C8 INY +8E64- B1 80 LDA ($80),Y +8E66- 69 00 ADC #$00 +8E68- 91 80 STA ($80),Y +8E6A- A0 04 LDY #$04 +8E6C- B1 80 LDA ($80),Y +8E6E- 18 CLC +8E6F- 69 08 ADC #$08 +8E71- 91 80 STA ($80),Y +8E73- 4C 2C 8E JMP $8E2C +8E76- A0 0A LDY #$0A +8E78- 68 PLA +8E79- 91 80 STA ($80),Y +8E7B- 88 DEY +8E7C- 68 PLA +8E7D- 91 80 STA ($80),Y +8E7F- A0 04 LDY #$04 +8E81- 68 PLA +8E82- 91 80 STA ($80),Y +8E84- 68 PLA +8E85- 85 83 STA $83 +8E87- 68 PLA +8E88- 85 82 STA $82 +8E8A- 68 PLA +8E8B- 85 81 STA $81 +8E8D- 68 PLA +8E8E- 85 80 STA $80 +8E90- 60 RTS +8E91- AD 06 8E LDA $8E06 +8E94- 8D 96 8F STA $8F96 +8E97- AD 07 8E LDA $8E07 +8E9A- 8D 97 8F STA $8F97 +8E9D- A5 82 LDA $82 +8E9F- 48 PHA +8EA0- A5 83 LDA $83 +8EA2- 48 PHA +8EA3- A2 09 LDX #$09 +8EA5- 20 95 8F JSR $8F95 +8EA8- 85 82 STA $82 +8EAA- E8 INX +8EAB- 20 95 8F JSR $8F95 +8EAE- 85 83 STA $83 +8EB0- A2 02 LDX #$02 +8EB2- 20 95 8F JSR $8F95 +8EB5- A8 TAY +8EB6- B9 98 93 LDA $9398,Y +8EB9- 85 3A STA $3A +8EBB- A9 27 LDA #$27 +8EBD- 38 SEC +8EBE- E5 3A SBC $3A +8EC0- 85 3C STA $3C +8EC2- A2 04 LDX #$04 +8EC4- 20 95 8F JSR $8F95 +8EC7- 85 3B STA $3B +8EC9- A9 07 LDA #$07 +8ECB- 85 3D STA $3D +8ECD- A9 A9 LDA #$A9 +8ECF- A0 00 LDY #$00 +8ED1- 20 78 E0 JSR $E078 +8ED4- AE 06 8E LDX $8E06 +8ED7- AC 07 8E LDY $8E07 +8EDA- 20 0E 8E JSR $8E0E +8EDD- AD 05 8A LDA $8A05 +8EE0- 8D 9B 8F STA $8F9B +8EE3- AD 06 8A LDA $8A06 +8EE6- 8D 9C 8F STA $8F9C +8EE9- 20 48 E0 JSR $E048 +8EEC- 20 69 8F JSR $8F69 +8EEF- 20 1F E0 JSR $E01F +8EF2- 30 0A BMI $8EFE +8EF4- C6 4E DEC $4E +8EF6- D0 F7 BNE $8EEF +8EF8- C6 4F DEC $4F +8EFA- 10 F3 BPL $8EEF +8EFC- 30 EB BMI $8EE9 +8EFE- 48 PHA +8EFF- 20 6C 8F JSR $8F6C +8F02- 68 PLA +8F03- C9 0D CMP #$0D +8F05- F0 58 BEQ $8F5F +8F07- C9 1B CMP #$1B +8F09- F0 56 BEQ $8F61 +8F0B- C9 08 CMP #$08 +8F0D- F0 3B BEQ $8F4A +8F0F- C9 7F CMP #$7F +8F11- F0 37 BEQ $8F4A +8F13- C9 05 CMP #$05 +8F15- F0 3D BEQ $8F54 +8F17- C9 2C CMP #$2C +8F19- F0 CE BEQ $8EE9 +8F1B- C9 40 CMP #$40 +8F1D- F0 CA BEQ $8EE9 +8F1F- C9 20 CMP #$20 +8F21- 90 C6 BCC $8EE9 +8F23- C9 5B CMP #$5B +8F25- B0 C2 BCS $8EE9 +8F27- AC 99 8F LDY $8F99 +8F2A- C0 00 CPY #$00 +8F2C- D0 0F BNE $8F3D +8F2E- C9 20 CMP #$20 +8F30- F0 B7 BEQ $8EE9 +8F32- AC 08 8E LDY $8E08 +8F35- C0 0F CPY #$0F +8F37- D0 04 BNE $8F3D +8F39- C9 41 CMP #$41 +8F3B- 90 AC BCC $8EE9 +8F3D- AC 99 8F LDY $8F99 +8F40- CC 08 8E CPY $8E08 +8F43- B0 A4 BCS $8EE9 +8F45- 91 82 STA ($82),Y +8F47- C8 INY +8F48- D0 06 BNE $8F50 +8F4A- AC 99 8F LDY $8F99 +8F4D- F0 9A BEQ $8EE9 +8F4F- 88 DEY +8F50- A9 00 LDA #$00 +8F52- F0 03 BEQ $8F57 +8F54- A9 00 LDA #$00 +8F56- A8 TAY +8F57- 91 82 STA ($82),Y +8F59- 8C 99 8F STY $8F99 +8F5C- 4C B0 8E JMP $8EB0 +8F5F- 18 CLC +8F60- 24 38 BIT $38 +8F62- 68 PLA +8F63- 85 83 STA $83 +8F65- 68 PLA +8F66- 85 82 STA $82 +8F68- 60 RTS +8F69- A9 04 LDA #$04 +8F6B- 2C A9 03 BIT $03A9 +8F6E- 8D 03 8A STA $8A03 +8F71- A9 00 LDA #$00 +8F73- 8D 0A 8A STA $8A0A +8F76- 8D 04 8A STA $8A04 +8F79- AD 9B 8F LDA $8F9B +8F7C- 8D 05 8A STA $8A05 +8F7F- AD 9C 8F LDA $8F9C +8F82- 8D 06 8A STA $8A06 +8F85- A9 92 LDA #$92 +8F87- 8D 0C 8A STA $8A0C +8F8A- A9 8F LDA #$8F +8F8C- 8D 0D 8A STA $8A0D +8F8F- 4C 00 8A JMP $8A00 +8F92- 49 49 EOR #$49 +8F94- 00 BRK +8F95- BD 00 80 LDA $8000,X +8F98- 60 RTS +8F99- 00 BRK +8F9A- 00 BRK +8F9B- 00 BRK +8F9C- 00 BRK diff --git a/PSC Source Disk 1 - System (v10)/O_FDRAW.txt b/PSC Source Disk 1 - System (v10)/O_FDRAW.txt new file mode 100644 index 0000000..67936c9 --- /dev/null +++ b/PSC Source Disk 1 - System (v10)/O_FDRAW.txt @@ -0,0 +1,447 @@ +8A00- 4C 18 8A JMP $8A18 +8A03- 02 ??? +8A04- 02 ??? +8A05- 00 BRK +8A06- 00 BRK +8A07- 00 BRK +8A08- 00 BRK +8A09- 00 BRK +8A0A- 01 00 ORA ($00,X) +8A0C- 00 BRK +8A0D- 00 BRK +8A0E- 00 BRK +8A0F- 4C 3D 8D JMP $8D3D +8A12- 4C 34 8D JMP $8D34 +8A15- 4C 5B 8D JMP $8D5B +8A18- 20 00 8D JSR $8D00 +8A1B- AD 0C 8A LDA $8A0C +8A1E- 8D DD 8A STA $8ADD +8A21- AD 0D 8A LDA $8A0D +8A24- 8D DE 8A STA $8ADE +8A27- 2C 0E 8A BIT $8A0E +8A2A- 30 03 BMI $8A2F +8A2C- 20 28 8B JSR $8B28 +8A2F- AD 04 8A LDA $8A04 +8A32- F0 60 BEQ $8A94 +8A34- A2 00 LDX #$00 +8A36- 86 5D STX $5D +8A38- 86 5E STX $5E +8A3A- 20 DC 8A JSR $8ADC +8A3D- F0 1A BEQ $8A59 +8A3F- 38 SEC +8A40- E9 20 SBC #$20 +8A42- A8 TAY +8A43- B9 00 85 LDA $8500,Y +8A46- 38 SEC +8A47- FD 00 03 SBC $0300,X +8A4A- 18 CLC +8A4B- 6D 0A 8A ADC $8A0A +8A4E- 65 5D ADC $5D +8A50- 85 5D STA $5D +8A52- 90 02 BCC $8A56 +8A54- E6 5E INC $5E +8A56- E8 INX +8A57- D0 E1 BNE $8A3A +8A59- E0 00 CPX #$00 +8A5B- F0 18 BEQ $8A75 +8A5D- A5 5D LDA $5D +8A5F- 38 SEC +8A60- ED 0A 8A SBC $8A0A +8A63- 85 5D STA $5D +8A65- B0 02 BCS $8A69 +8A67- C6 5E DEC $5E +8A69- AE 0B 8A LDX $8A0B +8A6C- F0 07 BEQ $8A75 +8A6E- 06 5D ASL $5D +8A70- 26 5E ROL $5E +8A72- CA DEX +8A73- D0 F9 BNE $8A6E +8A75- AE 04 8A LDX $8A04 +8A78- E0 03 CPX #$03 +8A7A- F0 59 BEQ $8AD5 +8A7C- CA DEX +8A7D- F0 04 BEQ $8A83 +8A7F- 46 5E LSR $5E +8A81- 66 5D ROR $5D +8A83- AD 05 8A LDA $8A05 +8A86- 38 SEC +8A87- E5 5D SBC $5D +8A89- 8D 05 8A STA $8A05 +8A8C- AD 06 8A LDA $8A06 +8A8F- E5 5E SBC $5E +8A91- 8D 06 8A STA $8A06 +8A94- A2 00 LDX #$00 +8A96- 86 63 STX $63 +8A98- 20 DC 8A JSR $8ADC +8A9B- F0 3C BEQ $8AD9 +8A9D- 20 E0 8A JSR $8AE0 +8AA0- A6 63 LDX $63 +8AA2- 20 DC 8A JSR $8ADC +8AA5- 38 SEC +8AA6- E9 20 SBC #$20 +8AA8- A8 TAY +8AA9- AD 0A 8A LDA $8A0A +8AAC- 18 CLC +8AAD- 79 00 85 ADC $8500,Y +8AB0- E8 INX +8AB1- 38 SEC +8AB2- FD 00 03 SBC $0300,X +8AB5- A0 00 LDY #$00 +8AB7- 84 5F STY $5F +8AB9- AC 0B 8A LDY $8A0B +8ABC- F0 06 BEQ $8AC4 +8ABE- 0A ASL +8ABF- 26 5F ROL $5F +8AC1- 88 DEY +8AC2- D0 FA BNE $8ABE +8AC4- 18 CLC +8AC5- 6D 05 8A ADC $8A05 +8AC8- 8D 05 8A STA $8A05 +8ACB- A5 5F LDA $5F +8ACD- 6D 06 8A ADC $8A06 +8AD0- 8D 06 8A STA $8A06 +8AD3- 90 C1 BCC $8A96 +8AD5- A4 5D LDY $5D +8AD7- A5 5E LDA $5E +8AD9- A2 01 LDX #$01 +8ADB- 60 RTS +8ADC- BD 0C 8A LDA $8A0C,X +8ADF- 60 RTS +8AE0- 38 SEC +8AE1- E9 20 SBC #$20 +8AE3- F0 42 BEQ $8B27 +8AE5- AA TAX +8AE6- BD 3B 85 LDA $853B,X +8AE9- 85 61 STA $61 +8AEB- BD 00 85 LDA $8500,X +8AEE- 85 62 STA $62 +8AF0- BD 76 85 LDA $8576,X +8AF3- 85 50 STA $50 +8AF5- BD B1 85 LDA $85B1,X +8AF8- 85 51 STA $51 +8AFA- AD 0B 8A LDA $8A0B +8AFD- 0A ASL +8AFE- D0 02 BNE $8B02 +8B00- A9 01 LDA #$01 +8B02- 85 5F STA $5F +8B04- AD 07 8A LDA $8A07 +8B07- 85 60 STA $60 +8B09- AD 05 8A LDA $8A05 +8B0C- 85 52 STA $52 +8B0E- AD 06 8A LDA $8A06 +8B11- 85 53 STA $53 +8B13- A5 62 LDA $62 +8B15- 85 54 STA $54 +8B17- A4 60 LDY $60 +8B19- 20 26 8C JSR $8C26 +8B1C- A5 60 LDA $60 +8B1E- 18 CLC +8B1F- 65 5F ADC $5F +8B21- 85 60 STA $60 +8B23- C6 61 DEC $61 +8B25- D0 E2 BNE $8B09 +8B27- 60 RTS +8B28- A2 00 LDX #$00 +8B2A- 8E 00 03 STX $0300 +8B2D- 86 63 STX $63 +8B2F- 20 DC 8A JSR $8ADC +8B32- F0 2B BEQ $8B5F +8B34- AC 0E 8A LDY $8A0E +8B37- F0 1B BEQ $8B54 +8B39- C9 41 CMP #$41 +8B3B- 90 17 BCC $8B54 +8B3D- 85 56 STA $56 +8B3F- E8 INX +8B40- 20 DC 8A JSR $8ADC +8B43- F0 1A BEQ $8B5F +8B45- C9 41 CMP #$41 +8B47- 90 0B BCC $8B54 +8B49- 85 57 STA $57 +8B4B- 20 65 8B JSR $8B65 +8B4E- A5 59 LDA $59 +8B50- C9 64 CMP #$64 +8B52- 90 02 BCC $8B56 +8B54- A9 00 LDA #$00 +8B56- A6 63 LDX $63 +8B58- E8 INX +8B59- 9D 00 03 STA $0300,X +8B5C- 4C 2D 8B JMP $8B2D +8B5F- A9 00 LDA #$00 +8B61- 9D 00 03 STA $0300,X +8B64- 60 RTS +8B65- 38 SEC +8B66- 66 5B ROR $5B +8B68- A5 56 LDA $56 +8B6A- 20 CE 8B JSR $8BCE +8B6D- 85 54 STA $54 +8B6F- 84 5A STY $5A +8B71- BD 76 85 LDA $8576,X +8B74- 85 50 STA $50 +8B76- BD B1 85 LDA $85B1,X +8B79- 85 51 STA $51 +8B7B- BD 3B 85 LDA $853B,X +8B7E- 85 61 STA $61 +8B80- A5 57 LDA $57 +8B82- 20 CE 8B JSR $8BCE +8B85- 85 55 STA $55 +8B87- BD 76 85 LDA $8576,X +8B8A- 85 52 STA $52 +8B8C- BD B1 85 LDA $85B1,X +8B8F- 85 53 STA $53 +8B91- BD 3B 85 LDA $853B,X +8B94- C5 61 CMP $61 +8B96- B0 02 BCS $8B9A +8B98- 85 61 STA $61 +8B9A- A5 5B LDA $5B +8B9C- 18 CLC +8B9D- 6D 0A 8A ADC $8A0A +8BA0- 85 59 STA $59 +8BA2- 20 EC 8B JSR $8BEC +8BA5- 85 5F STA $5F +8BA7- 20 0A 8C JSR $8C0A +8BAA- 18 CLC +8BAB- 65 5F ADC $5F +8BAD- C5 59 CMP $59 +8BAF- B0 02 BCS $8BB3 +8BB1- 85 59 STA $59 +8BB3- A5 50 LDA $50 +8BB5- 18 CLC +8BB6- 65 54 ADC $54 +8BB8- 85 50 STA $50 +8BBA- 90 02 BCC $8BBE +8BBC- E6 51 INC $51 +8BBE- A5 52 LDA $52 +8BC0- 18 CLC +8BC1- 65 55 ADC $55 +8BC3- 85 52 STA $52 +8BC5- 90 02 BCC $8BC9 +8BC7- E6 53 INC $53 +8BC9- C6 61 DEC $61 +8BCB- D0 D5 BNE $8BA2 +8BCD- 60 RTS +8BCE- 38 SEC +8BCF- E9 20 SBC #$20 +8BD1- AA TAX +8BD2- BD 00 85 LDA $8500,X +8BD5- C5 5B CMP $5B +8BD7- B0 02 BCS $8BDB +8BD9- 85 5B STA $5B +8BDB- 38 SEC +8BDC- E9 01 SBC #$01 +8BDE- 48 PHA +8BDF- 29 07 AND #$07 +8BE1- 49 07 EOR #$07 +8BE3- A8 TAY +8BE4- 68 PLA +8BE5- 4A LSR +8BE6- 4A LSR +8BE7- 4A LSR +8BE8- 18 CLC +8BE9- 69 01 ADC #$01 +8BEB- 60 RTS +8BEC- A2 00 LDX #$00 +8BEE- A4 54 LDY $54 +8BF0- 88 DEY +8BF1- B1 50 LDA ($50),Y +8BF3- D0 0B BNE $8C00 +8BF5- 8A TXA +8BF6- 18 CLC +8BF7- 69 08 ADC #$08 +8BF9- AA TAX +8BFA- 88 DEY +8BFB- 10 F4 BPL $8BF1 +8BFD- A9 64 LDA #$64 +8BFF- 60 RTS +8C00- E8 INX +8C01- 4A LSR +8C02- 90 FC BCC $8C00 +8C04- CA DEX +8C05- 8A TXA +8C06- 38 SEC +8C07- E5 5A SBC $5A +8C09- 60 RTS +8C0A- A2 00 LDX #$00 +8C0C- A0 00 LDY #$00 +8C0E- B1 52 LDA ($52),Y +8C10- D0 0D BNE $8C1F +8C12- 8A TXA +8C13- 18 CLC +8C14- 69 08 ADC #$08 +8C16- AA TAX +8C17- C8 INY +8C18- C4 55 CPY $55 +8C1A- D0 F2 BNE $8C0E +8C1C- A9 64 LDA #$64 +8C1E- 60 RTS +8C1F- E8 INX +8C20- 0A ASL +8C21- 90 FC BCC $8C1F +8C23- CA DEX +8C24- 8A TXA +8C25- 60 RTS +8C26- B9 C0 91 LDA $91C0,Y +8C29- 85 55 STA $55 +8C2B- B9 00 91 LDA $9100,Y +8C2E- 85 56 STA $56 +8C30- B9 C1 91 LDA $91C1,Y +8C33- 85 57 STA $57 +8C35- B9 01 91 LDA $9101,Y +8C38- 85 58 STA $58 +8C3A- A6 52 LDX $52 +8C3C- A5 53 LDA $53 +8C3E- F0 08 BEQ $8C48 +8C40- BD B0 95 LDA $95B0,X +8C43- BC 98 94 LDY $9498,X +8C46- D0 06 BNE $8C4E +8C48- BD B0 94 LDA $94B0,X +8C4B- BC 98 93 LDY $9398,X +8C4E- 84 59 STY $59 +8C50- A0 08 LDY #$08 +8C52- 88 DEY +8C53- 38 SEC +8C54- 66 5C ROR $5C +8C56- 4A LSR +8C57- 90 F9 BCC $8C52 +8C59- A2 00 LDX #$00 +8C5B- AD 0B 8A LDA $8A0B +8C5E- D0 3E BNE $8C9E +8C60- A1 50 LDA ($50,X) +8C62- 49 FF EOR #$FF +8C64- 85 5A STA $5A +8C66- E6 50 INC $50 +8C68- D0 02 BNE $8C6C +8C6A- E6 51 INC $51 +8C6C- A2 08 LDX #$08 +8C6E- 06 5A ASL $5A +8C70- 66 5C ROR $5C +8C72- 88 DEY +8C73- D0 0D BNE $8C82 +8C75- A4 59 LDY $59 +8C77- E6 59 INC $59 +8C79- A5 5C LDA $5C +8C7B- 4A LSR +8C7C- 31 55 AND ($55),Y +8C7E- 91 55 STA ($55),Y +8C80- A0 07 LDY #$07 +8C82- C6 54 DEC $54 +8C84- F0 05 BEQ $8C8B +8C86- CA DEX +8C87- D0 E5 BNE $8C6E +8C89- F0 D5 BEQ $8C60 +8C8B- C0 07 CPY #$07 +8C8D- F0 0E BEQ $8C9D +8C8F- A5 5C LDA $5C +8C91- 38 SEC +8C92- 6A ROR +8C93- 88 DEY +8C94- D0 FB BNE $8C91 +8C96- 4A LSR +8C97- A4 59 LDY $59 +8C99- 31 55 AND ($55),Y +8C9B- 91 55 STA ($55),Y +8C9D- 60 RTS +8C9E- A1 50 LDA ($50,X) +8CA0- 49 FF EOR #$FF +8CA2- 85 5A STA $5A +8CA4- E6 50 INC $50 +8CA6- D0 02 BNE $8CAA +8CA8- E6 51 INC $51 +8CAA- A2 08 LDX #$08 +8CAC- 86 5B STX $5B +8CAE- 06 5A ASL $5A +8CB0- A2 02 LDX #$02 +8CB2- 08 PHP +8CB3- 66 5C ROR $5C +8CB5- 88 DEY +8CB6- D0 15 BNE $8CCD +8CB8- A4 59 LDY $59 +8CBA- E6 59 INC $59 +8CBC- A5 5C LDA $5C +8CBE- 4A LSR +8CBF- 85 5C STA $5C +8CC1- 31 55 AND ($55),Y +8CC3- 91 55 STA ($55),Y +8CC5- A5 5C LDA $5C +8CC7- 31 57 AND ($57),Y +8CC9- 91 57 STA ($57),Y +8CCB- A0 07 LDY #$07 +8CCD- 28 PLP +8CCE- CA DEX +8CCF- D0 E1 BNE $8CB2 +8CD1- C6 54 DEC $54 +8CD3- F0 07 BEQ $8CDC +8CD5- A6 5B LDX $5B +8CD7- CA DEX +8CD8- D0 D2 BNE $8CAC +8CDA- F0 C2 BEQ $8C9E +8CDC- C0 07 CPY #$07 +8CDE- F0 16 BEQ $8CF6 +8CE0- A5 5C LDA $5C +8CE2- 38 SEC +8CE3- 6A ROR +8CE4- 88 DEY +8CE5- D0 FB BNE $8CE2 +8CE7- 4A LSR +8CE8- 85 5C STA $5C +8CEA- A4 59 LDY $59 +8CEC- 31 55 AND ($55),Y +8CEE- 91 55 STA ($55),Y +8CF0- A5 5C LDA $5C +8CF2- 31 57 AND ($57),Y +8CF4- 91 57 STA ($57),Y +8CF6- 60 RTS +8CF7- 11 31 ORA ($31),Y +8CF9- 51 18 EOR ($18),Y +8CFB- 38 SEC +8CFC- 18 CLC +8CFD- 00 BRK +8CFE- FF ??? +8CFF- 00 BRK +8D00- AC 03 8A LDY $8A03 +8D03- B9 F5 8C LDA $8CF5,Y +8D06- 48 PHA +8D07- BE F8 8C LDX $8CF8,Y +8D0A- B9 FB 8C LDA $8CFB,Y +8D0D- A8 TAY +8D0E- 68 PLA +8D0F- 4C 12 8D JMP $8D12 +8D12- 8D 7C 8C STA $8C7C +8D15- 8D 99 8C STA $8C99 +8D18- 8D C1 8C STA $8CC1 +8D1B- 8D C7 8C STA $8CC7 +8D1E- 8D EC 8C STA $8CEC +8D21- 8D F2 8C STA $8CF2 +8D24- 8E 53 8C STX $8C53 +8D27- 8E 91 8C STX $8C91 +8D2A- 8E E2 8C STX $8CE2 +8D2D- 8C 63 8C STY $8C63 +8D30- 8C A1 8C STY $8CA1 +8D33- 60 RTS +8D34- 20 3D 8D JSR $8D3D +8D37- 12 8D ORA ($8D) +8D39- 26 8C ROL $8C +8D3B- 85 60 STA $60 +8D3D- 20 69 E0 JSR $E069 +8D40- 20 6C E0 JSR $E06C +8D43- 8D 10 8D STA $8D10 +8D46- 20 6C E0 JSR $E06C +8D49- 8D 11 8D STA $8D11 +8D4C- 20 6C E0 JSR $E06C +8D4F- 8D 1A 8B STA $8B1A +8D52- 20 6C E0 JSR $E06C +8D55- 8D 1B 8B STA $8B1B +8D58- 20 6C E0 JSR $E06C +8D5B- 8D 45 8A STA $8A45 +8D5E- 8D AF 8A STA $8AAF +8D61- 8D E8 8A STA $8AE8 +8D64- 8D ED 8A STA $8AED +8D67- 8D F2 8A STA $8AF2 +8D6A- 8D F7 8A STA $8AF7 +8D6D- 8D 73 8B STA $8B73 +8D70- 8D 78 8B STA $8B78 +8D73- 8D 7D 8B STA $8B7D +8D76- 8D 89 8B STA $8B89 +8D79- 8D 8E 8B STA $8B8E +8D7C- 8D 93 8B STA $8B93 +8D7F- 8D D4 8B STA $8BD4 +8D82- 60 RTS diff --git a/PSC Source Disk 1 - System (v10)/O_HELLO.txt b/PSC Source Disk 1 - System (v10)/O_HELLO.txt new file mode 100644 index 0000000..9ae9f5a --- /dev/null +++ b/PSC Source Disk 1 - System (v10)/O_HELLO.txt @@ -0,0 +1,859 @@ +0800- 4C 38 08 JMP $0838 +0803- 4C 19 0D JMP $0D19 +0806- 4C 51 0D JMP $0D51 +0809- 4C D3 0D JMP $0DD3 +080C- 54 ??? +080D- 48 PHA +080E- 45 20 EOR $20 +0810- 50 52 BVC $0864 +0812- 49 4E EOR #$4E +0814- 54 ??? +0815- 20 53 48 JSR $4853 +0818- 4F ??? +0819- 50 00 BVC $081B +081B- 43 ??? +081C- 4F ??? +081D- 4D 50 41 EOR $4150 +0820- 4E 49 4F LSR $4F49 +0823- 4E 00 41 LSR $4100 +0826- 4E 44 20 LSR $2044 +0829- 50 52 BVC $087D +082B- 45 53 EOR $53 +082D- 53 ??? +082E- 20 3C 52 JSR $523C +0831- 45 54 EOR $54 +0833- 55 52 EOR $52,X +0835- 4E 3E 00 LSR $003E +0838- 20 26 0A JSR $0A26 +083B- A9 2C LDA #$2C +083D- 8D 38 08 STA $0838 +0840- A2 FF LDX #$FF +0842- 9A TXS +0843- 20 06 E0 JSR $E006 +0846- 20 00 E0 JSR $E000 +0849- 10 01 BPL $084C +084B- 10 26 BPL $0873 +084D- 0F ??? +084E- 02 ??? +084F- 05 08 ORA $08 +0851- 0A ASL +0852- 0F ??? +0853- 06 8C ASL $8C +0855- 00 BRK +0856- 01 09 ORA ($09,X) +0858- 0C 08 0D TSB $0D08 +085B- 09 1B ORA #$1B +085D- 08 PHP +085E- 0D 00 20 ORA $2000 +0861- 49 0A EOR #$0A +0863- 20 00 E0 JSR $E000 +0866- 06 8C ASL $8C +0868- 00 BRK +0869- 24 05 BIT $05 +086B- 0D 4D 41 ORA $414D +086E- 49 4E EOR #$4E +0870- 20 4D 45 JSR $454D +0873- 4E 55 0D LSR $0D55 +0876- 06 4C ASL $4C +0878- 00 BRK +0879- 42 ??? +087A- 47 ??? +087B- 52 41 EOR ($41) +087D- 50 48 BVC $08C7 +087F- 49 43 EOR #$43 +0881- 20 45 44 JSR $4445 +0884- 49 54 EOR #$54 +0886- 4F ??? +0887- 52 2B EOR ($2B) +0889- 0D 42 4F ORA $4F42 +088C- 52 44 EOR ($44) +088E- 45 52 EOR $52 +0890- 20 45 44 JSR $4445 +0893- 49 54 EOR #$54 +0895- 4F ??? +0896- 52 0D EOR ($0D) +0898- 46 4F LSR $4F +089A- 4E 54 20 LSR $2054 +089D- 45 44 EOR $44 +089F- 49 54 EOR #$54 +08A1- 4F ??? +08A2- 52 0D EOR ($0D) +08A4- 54 ??? +08A5- 49 4C EOR #$4C +08A7- 45 20 EOR $20 +08A9- 4D 41 47 EOR $4741 +08AC- 49 43 EOR #$43 +08AE- 0D 43 52 ORA $5243 +08B1- 45 41 EOR $41 +08B3- 54 ??? +08B4- 55 52 EOR $52,X +08B6- 45 20 EOR $20 +08B8- 4D 41 4B EOR $4B41 +08BB- 45 52 EOR $52 +08BD- 0D 43 41 ORA $4143 +08C0- 4C 45 4E JMP $4E45 +08C3- 44 ??? +08C4- 41 52 EOR ($52,X) +08C6- 0D 53 45 ORA $4553 +08C9- 54 ??? +08CA- 55 50 EOR $50,X +08CC- 0D 45 58 ORA $5845 +08CF- 49 54 EOR #$54 +08D1- 20 50 52 JSR $5250 +08D4- 4F ??? +08D5- 47 ??? +08D6- 52 41 EOR ($41) +08D8- 4D 0D 10 EOR $100D +08DB- 15 45 ORA $45,X +08DD- 0F ??? +08DE- 02 ??? +08DF- 10 15 BPL $08F6 +08E1- 7C 0F 02 JMP ($020F,X) +08E4- 11 70 ORA ($70),Y +08E6- 14 45 TRB $45 +08E8- 01 39 ORA ($39,X) +08EA- 11 07 ORA ($07),Y +08EC- 24 45 BIT $45 +08EE- 01 39 ORA ($39,X) +08F0- 00 BRK +08F1- 20 B7 0A JSR $0AB7 +08F4- A9 01 LDA #$01 +08F6- C9 06 CMP #$06 +08F8- F0 50 BEQ $094A +08FA- AC F5 95 LDY $95F5 +08FD- 20 28 E0 JSR $E028 +0900- 82 ??? +0901- 12 41 ORA ($41) +0903- 08 PHP +0904- 88 DEY +0905- 0A ASL +0906- 8C F5 95 STY $95F5 +0909- B0 EB BCS $08F6 +090B- AA TAX +090C- 30 19 BMI $0927 +090E- 20 40 09 JSR $0940 +0911- AC F5 95 LDY $95F5 +0914- 20 4B E0 JSR $E04B +0917- E3 ??? +0918- 09 F8 ORA #$F8 +091A- 09 05 ORA #$05 +091C- 0A ASL +091D- E6 09 INC $09 +091F- D9 09 1C CMP $1C09,Y +0922- 0A ASL +0923- 12 0A ORA ($0A) +0925- 4C 09 20 JMP $2009 +0928- 00 BRK +0929- E0 05 CPX #$05 +092B- 02 ??? +092C- 06 8C ASL $8C +092E- 00 BRK +092F- B8 CLV +0930- 56 45 LSR $45,X +0932- 52 53 EOR ($53) +0934- 49 4F EOR #$4F +0936- 4E 20 31 LSR $3120 +0939- 2E 32 0D ROL $0D32 +093C- 00 BRK +093D- 4C FA 08 JMP $08FA +0940- 20 00 E0 JSR $E000 +0943- 10 00 BPL $0945 +0945- B8 CLV +0946- 28 PLP +0947- 07 ??? +0948- 00 BRK +0949- 60 RTS +094A- F0 49 BEQ $0995 +094C- 20 00 E0 JSR $E000 +094F- 0F ??? +0950- 01 1F ORA ($1F,X) +0952- 26 98 ROL $98 +0954- 06 8C ASL $8C +0956- 00 BRK +0957- 50 05 BVC $095E +0959- 50 4C BVC $09A7 +095B- 45 41 EOR $41 +095D- 53 ??? +095E- 45 20 EOR $20 +0960- 49 4E EOR #$4E +0962- 53 ??? +0963- 45 52 EOR $52 +0965- 54 ??? +0966- 20 41 4E JSR $4E41 +0969- 4F ??? +096A- 54 ??? +096B- 48 PHA +096C- 45 52 EOR $52 +096E- 20 44 49 JSR $4944 +0971- 53 ??? +0972- 4B ??? +0973- 0D 0D 09 ORA $090D +0976- 25 08 AND $08 +0978- 0D 00 20 ORA $2000 +097B- 09 E0 ORA #$E0 +097D- 20 25 E0 JSR $E025 +0980- C9 0D CMP #$0D +0982- F0 03 BEQ $0987 +0984- 4C 38 08 JMP $0838 +0987- 20 18 E0 JSR $E018 +098A- B0 03 BCS $098F +098C- 0A ASL +098D- 30 F8 BMI $0987 +098F- 20 15 E0 JSR $E015 +0992- 6C FC FF JMP ($FFFC) +0995- A2 00 LDX #$00 +0997- A0 BF LDY #$BF +0999- BD C0 91 LDA $91C0,X +099C- 85 00 STA $00 +099E- B9 C0 91 LDA $91C0,Y +09A1- 9D C0 91 STA $91C0,X +09A4- 85 02 STA $02 +09A6- A5 00 LDA $00 +09A8- 99 C0 91 STA $91C0,Y +09AB- BD 00 91 LDA $9100,X +09AE- 85 01 STA $01 +09B0- B9 00 91 LDA $9100,Y +09B3- 9D 00 91 STA $9100,X +09B6- 85 03 STA $03 +09B8- A5 01 LDA $01 +09BA- 99 00 91 STA $9100,Y +09BD- 98 TYA +09BE- 48 PHA +09BF- A0 27 LDY #$27 +09C1- B1 00 LDA ($00),Y +09C3- 48 PHA +09C4- B1 02 LDA ($02),Y +09C6- 91 00 STA ($00),Y +09C8- 68 PLA +09C9- 91 02 STA ($02),Y +09CB- 88 DEY +09CC- 10 F3 BPL $09C1 +09CE- 68 PLA +09CF- A8 TAY +09D0- 88 DEY +09D1- E8 INX +09D2- E0 60 CPX #$60 +09D4- 90 C3 BCC $0999 +09D6- 4C FA 08 JMP $08FA +09D9- A0 06 LDY #$06 +09DB- 20 60 0A JSR $0A60 +09DE- D0 F9 BNE $09D9 +09E0- A9 06 LDA #$06 +09E2- 2C A9 00 BIT $00A9 +09E5- 2C A9 03 BIT $03A9 +09E8- 8D F6 09 STA $09F6 +09EB- 20 51 0A JSR $0A51 +09EE- A0 03 LDY #$03 +09F0- 20 60 0A JSR $0A60 +09F3- D0 F9 BNE $09EE +09F5- 4C 00 40 JMP $4000 +09F8- A0 04 LDY #$04 +09FA- 20 60 0A JSR $0A60 +09FD- D0 F9 BNE $09F8 +09FF- 20 58 0A JSR $0A58 +0A02- 4C 00 40 JMP $4000 +0A05- 20 51 0A JSR $0A51 +0A08- A0 05 LDY #$05 +0A0A- 20 60 0A JSR $0A60 +0A0D- D0 F9 BNE $0A08 +0A0F- 4C 00 60 JMP $6000 +0A12- A0 08 LDY #$08 +0A14- 20 60 0A JSR $0A60 +0A17- D0 F9 BNE $0A12 +0A19- 4C 00 58 JMP $5800 +0A1C- A0 07 LDY #$07 +0A1E- 20 60 0A JSR $0A60 +0A21- D0 F9 BNE $0A1C +0A23- 4C 00 40 JMP $4000 +0A26- 20 22 E0 JSR $E022 +0A29- C9 1B CMP #$1B +0A2B- F0 19 BEQ $0A46 +0A2D- 20 39 E0 JSR $E039 +0A30- 50 52 BVC $0A84 +0A32- 43 ??? +0A33- 4F ??? +0A34- 4D 53 00 EOR $0053 +0A37- D0 F4 BNE $0A2D +0A39- 20 39 E0 JSR $E039 +0A3C- 43 ??? +0A3D- 4F ??? +0A3E- 4E 46 49 LSR $4946 +0A41- 47 ??? +0A42- 00 BRK +0A43- D0 F4 BNE $0A39 +0A45- 60 RTS +0A46- 4C 00 10 JMP $1000 +0A49- A0 00 LDY #$00 +0A4B- 20 60 0A JSR $0A60 +0A4E- D0 F9 BNE $0A49 +0A50- 60 RTS +0A51- A0 02 LDY #$02 +0A53- 20 60 0A JSR $0A60 +0A56- D0 F9 BNE $0A51 +0A58- A0 01 LDY #$01 +0A5A- 20 63 0A JSR $0A63 +0A5D- D0 F9 BNE $0A58 +0A5F- 60 RTS +0A60- A9 02 LDA #$02 +0A62- 2C A9 00 BIT $00A9 +0A65- 85 00 STA $00 +0A67- 84 01 STY $01 +0A69- B9 B1 0C LDA $0CB1,Y +0A6C- 30 0D BMI $0A7B +0A6E- 18 CLC +0A6F- A9 01 LDA #$01 +0A71- 20 5D E0 JSR $E05D +0A74- B0 0F BCS $0A85 +0A76- 20 00 E0 JSR $E000 +0A79- 18 CLC +0A7A- 00 BRK +0A7B- A4 01 LDY $01 +0A7D- A5 00 LDA $00 +0A7F- 8D 0D B0 STA $B00D +0A82- 4C 8E 0B JMP $0B8E +0A85- 4C 38 08 JMP $0838 +0A88- BD A7 0A LDA $0AA7,X +0A8B- 85 3E STA $3E +0A8D- BD A8 0A LDA $0AA8,X +0A90- 85 3F STA $3F +0A92- A2 03 LDX #$03 +0A94- BD A3 0A LDA $0AA3,X +0A97- 95 3A STA $3A,X +0A99- CA DEX +0A9A- 10 F8 BPL $0A94 +0A9C- A9 B1 LDA #$B1 +0A9E- A0 3E LDY #$3E +0AA0- 4C 78 E0 JMP $E078 +0AA3- 15 47 ORA $47,X +0AA5- 0F ??? +0AA6- 35 00 AND $00,X +0AA8- 40 RTI +0AA9- 1B ??? +0AAA- 43 ??? +0AAB- 36 46 ROL $46,X +0AAD- 51 49 EOR ($49),Y +0AAF- 6C 4C 87 JMP ($874C) +0AB2- 4F ??? +0AB3- A2 52 LDX #$52 +0AB5- BD 55 AD LDA $AD55,X +0AB8- F5 95 SBC $95,X +0ABA- 10 36 BPL $0AF2 +0ABC- A9 06 LDA #$06 +0ABE- 8D F5 95 STA $95F5 +0AC1- 20 00 E0 JSR $E000 +0AC4- 05 0A ORA $0A +0AC6- 0A ASL +0AC7- 06 8C ASL $8C +0AC9- 00 BRK +0ACA- 96 57 STX $57,Y +0ACC- 45 4C EOR $4C +0ACE- 43 ??? +0ACF- 4F ??? +0AD0- 4D 45 20 EOR $2045 +0AD3- 54 ??? +0AD4- 4F ??? +0AD5- 0D 09 0C ORA $0C09 +0AD8- 08 PHP +0AD9- 20 09 1B JSR $1B09 +0ADC- 08 PHP +0ADD- 21 0D AND ($0D,X) +0ADF- 09 29 ORA #$29 +0AE1- 08 PHP +0AE2- 20 54 4F JSR $4F54 +0AE5- 20 52 55 JSR $5552 +0AE8- 4E 20 53 LSR $5320 +0AEB- 45 54 EOR $54 +0AED- 55 50 EOR $50,X +0AEF- 0D 00 60 ORA $6000 +0AF2- 20 48 0B JSR $0B48 +0AF5- 20 00 E0 JSR $E000 +0AF8- 05 06 ORA $06 +0AFA- 8C 00 98 STY $9800 +0AFD- 55 53 EOR $53,X +0AFF- 45 20 EOR $20 +0B01- 20 20 20 JSR $2020 +0B04- 20 20 20 JSR $2020 +0B07- 41 4E EOR ($4E,X) +0B09- 44 ??? +0B0A- 09 2E ORA #$2E +0B0C- 08 PHP +0B0D- 0D 54 4F ORA $4F54 +0B10- 20 4D 41 JSR $414D +0B13- 4B ??? +0B14- 45 20 EOR $20 +0B16- 53 ??? +0B17- 45 4C EOR $4C +0B19- 45 43 EOR $43 +0B1B- 54 ??? +0B1C- 49 4F EOR #$4F +0B1E- 4E 2E 20 LSR $202E +0B21- 20 4F 52 JSR $524F +0B24- 2C 20 55 BIT $5520 +0B27- 53 ??? +0B28- 45 0D EOR $0D +0B2A- 4D 4F 55 EOR $554F +0B2D- 53 ??? +0B2E- 45 2C EOR $2C +0B30- 20 4A 4F JSR $4F4A +0B33- 59 53 54 EOR $5453,Y +0B36- 49 43 EOR #$43 +0B38- 4B ??? +0B39- 2C 20 4F BIT $4F20 +0B3C- 52 20 EOR ($20) +0B3E- 4B ??? +0B3F- 4F ??? +0B40- 41 4C EOR ($4C,X) +0B42- 41 50 EOR ($50,X) +0B44- 41 44 EOR ($44,X) +0B46- 0D 00 AD ORA $AD00 +0B49- 68 PLA +0B4A- FA PLX +0B4B- C9 C0 CMP #$C0 +0B4D- F0 22 BEQ $0B71 +0B4F- AD B3 FB LDA $FBB3 F8ROM:VERSION +0B52- C9 06 CMP #$06 +0B54- F0 1B BEQ $0B71 +0B56- 20 0C E0 JSR $E00C +0B59- 0D 98 01 ORA $0198 +0B5C- 06 81 ASL $81 +0B5E- 0C 06 C1 TSB $C106 +0B61- 06 0C ASL $0C +0B63- 20 0C E0 JSR $E00C +0B66- 0F ??? +0B67- 98 TYA +0B68- 01 06 ORA ($06,X) +0B6A- 81 18 STA ($18,X) +0B6C- 30 C1 BMI $0B2F +0B6E- 30 18 BMI $0B88 +0B70- 60 RTS +0B71- 20 0C E0 JSR $E00C +0B74- 0D 98 01 ORA $0198 +0B77- 07 ??? +0B78- 08 PHP +0B79- 08 PHP +0B7A- 08 PHP +0B7B- 6B ??? +0B7C- 3E 1C 08 ROL $081C,X +0B7F- 20 0C E0 JSR $E00C +0B82- 0F ??? +0B83- 98 TYA +0B84- 01 07 ORA ($07,X) +0B86- 08 PHP +0B87- 1C 3E 6B TRB $6B3E +0B8A- 08 PHP +0B8B- 08 PHP +0B8C- 08 PHP +0B8D- 60 RTS +0B8E- 84 04 STY $04 +0B90- A9 00 LDA #$00 +0B92- 85 05 STA $05 +0B94- A2 FF LDX #$FF +0B96- 88 DEY +0B97- 30 12 BMI $0BAB +0B99- E8 INX +0B9A- BD 61 0C LDA $0C61,X +0B9D- D0 FA BNE $0B99 +0B9F- E8 INX +0BA0- E8 INX +0BA1- BD 61 0C LDA $0C61,X +0BA4- 18 CLC +0BA5- 65 05 ADC $05 +0BA7- 85 05 STA $05 +0BA9- D0 EB BNE $0B96 +0BAB- A0 FF LDY #$FF +0BAD- E8 INX +0BAE- C8 INY +0BAF- BD 61 0C LDA $0C61,X +0BB2- 99 A5 0E STA $0EA5,Y +0BB5- D0 F6 BNE $0BAD +0BB7- A9 60 LDA #$60 +0BB9- 99 A6 0E STA $0EA6,Y +0BBC- BD 62 0C LDA $0C62,X +0BBF- 85 06 STA $06 +0BC1- BD 63 0C LDA $0C63,X +0BC4- 85 07 STA $07 +0BC6- A4 04 LDY $04 +0BC8- A9 01 LDA #$01 +0BCA- BE B1 0C LDX $0CB1,Y +0BCD- 30 18 BMI $0BE7 +0BCF- 20 A2 0E JSR $0EA2 +0BD2- D0 12 BNE $0BE6 +0BD4- 2C 7F 02 BIT $027F +0BD7- 10 0B BPL $0BE4 +0BD9- A9 00 LDA #$00 +0BDB- 20 E7 0B JSR $0BE7 +0BDE- A6 04 LDX $04 +0BE0- 38 SEC +0BE1- 7E B1 0C ROR $0CB1,X +0BE4- A9 00 LDA #$00 +0BE6- 60 RTS +0BE7- 85 08 STA $08 +0BE9- 8D 09 C0 STA $C009 w:SETALTZP +0BEC- A2 20 LDX #$20 +0BEE- BD 28 0C LDA $0C28,X +0BF1- 95 80 STA $80,X +0BF3- CA DEX +0BF4- 10 F8 BPL $0BEE +0BF6- 8D 08 C0 STA $C008 w:SETSTDZP +0BF9- A4 05 LDY $05 +0BFB- E6 05 INC $05 +0BFD- BE 49 0C LDX $0C49,Y +0C00- A4 06 LDY $06 +0C02- 98 TYA +0C03- 18 CLC +0C04- 69 08 ADC #$08 +0C06- 85 06 STA $06 +0C08- A5 08 LDA $08 +0C0A- 8D 09 C0 STA $C009 w:SETALTZP +0C0D- 86 01 STX $01 +0C0F- 84 03 STY $03 +0C11- D0 04 BNE $0C17 +0C13- 84 01 STY $01 +0C15- 86 03 STX $03 +0C17- A0 00 LDY #$00 +0C19- 84 00 STY $00 +0C1B- 84 02 STY $02 +0C1D- 20 80 00 JSR $0080 +0C20- 8D 08 C0 STA $C008 w:SETSTDZP +0C23- C6 07 DEC $07 +0C25- D0 D2 BNE $0BF9 +0C27- 60 RTS +0C28- AA TAX +0C29- 9D 02 C0 STA $C002,X +0C2C- 49 01 EOR #$01 +0C2E- AA TAX +0C2F- 9D 04 C0 STA $C004,X +0C32- A2 08 LDX #$08 +0C34- B1 00 LDA ($00),Y +0C36- 91 02 STA ($02),Y +0C38- C8 INY +0C39- D0 F9 BNE $0C34 +0C3B- E6 01 INC $01 +0C3D- E6 03 INC $03 +0C3F- CA DEX +0C40- D0 F2 BNE $0C34 +0C42- 8D 04 C0 STA $C004 w:WRMAINRAM +0C45- 8D 02 C0 STA $C002 w:RDMAINRAM +0C48- 60 RTS +0C49- 40 RTI +0C4A- 48 PHA +0C4B- 50 58 BVC $0CA5 +0C4D- 60 RTS +0C4E- 68 PLA +0C4F- 70 78 BVS $0CC9 +0C51- 80 88 BRA $0BDB +0C53- 90 98 BCC $0BED +0C55- A0 A8 LDY #$A8 +0C57- B0 B8 BCS $0C11 +0C59- D0 D8 BNE $0C33 +0C5B- E0 E8 CPX #$E8 +0C5D- F0 F8 BEQ $0C57 +0C5F- 10 18 BPL $0C79 +0C61- 49 43 EOR #$43 +0C63- 4F ??? +0C64- 4E 53 00 LSR $0053 +0C67- 40 RTI +0C68- 04 5B TSB $5B +0C6A- 43 ??? +0C6B- 44 ??? +0C6C- 5D 2C 41 EOR $412C,X +0C6F- 34 30 BIT $30,X +0C71- 39 36 00 AND $0036,Y +0C74- 10 01 BPL $0C77 +0C76- 45 44 EOR $44 +0C78- 49 54 EOR #$54 +0C7A- 00 BRK +0C7B- 50 02 BVC $0C7F +0C7D- 47 ??? +0C7E- 52 45 EOR ($45) +0C80- 44 ??? +0C81- 49 54 EOR #$54 +0C83- 00 BRK +0C84- 40 RTI +0C85- 02 ??? +0C86- 42 ??? +0C87- 4F ??? +0C88- 45 44 EOR $44 +0C8A- 49 54 EOR #$54 +0C8C- 00 BRK +0C8D- 40 RTI +0C8E- 03 ??? +0C8F- 46 4F LSR $4F +0C91- 45 44 EOR $44 +0C93- 49 54 EOR #$54 +0C95- 00 BRK +0C96- 60 RTS +0C97- 03 ??? +0C98- 43 ??? +0C99- 52 44 EOR ($44) +0C9B- 41 54 EOR ($54,X) +0C9D- 41 00 EOR ($00,X) +0C9F- 60 RTS +0CA0- 03 ??? +0CA1- 43 ??? +0CA2- 41 4C EOR ($4C,X) +0CA4- 45 4E EOR $4E +0CA6- 00 BRK +0CA7- 40 RTI +0CA8- 04 53 TSB $53 +0CAA- 45 54 EOR $54 +0CAC- 55 50 EOR $50,X +0CAE- 00 BRK +0CAF- 58 CLI +0CB0- 01 00 ORA ($00,X) +0CB2- 00 BRK +0CB3- 00 BRK +0CB4- 00 BRK +0CB5- 00 BRK +0CB6- 00 BRK +0CB7- 00 BRK +0CB8- 00 BRK +0CB9- 00 BRK +0CBA- 43 ??? +0CBB- 48 PHA +0CBC- 4F ??? +0CBD- 4F ??? +0CBE- 53 ??? +0CBF- 45 20 EOR $20 +0CC1- 41 20 EOR ($20,X) +0CC3- 46 4F LSR $4F +0CC5- 4E 54 3A LSR $3A54 +0CC8- 00 BRK +0CC9- 52 45 EOR ($45) +0CCB- 46 45 LSR $45 +0CCD- 52 45 EOR ($45) +0CCF- 4E 43 45 LSR $4543 +0CD2- 20 46 4F JSR $4F46 +0CD5- 4E 54 00 LSR $0054 +0CD8- 46 52 LSR $52 +0CDA- 4F ??? +0CDB- 4D 20 50 EOR $5020 +0CDE- 52 49 EOR ($49) +0CE0- 4E 54 20 LSR $2054 +0CE3- 53 ??? +0CE4- 48 PHA +0CE5- 4F ??? +0CE6- 50 20 BVC $0D08 +0CE8- 44 ??? +0CE9- 49 53 EOR #$53 +0CEB- 4B ??? +0CEC- 00 BRK +0CED- 46 52 LSR $52 +0CEF- 4F ??? +0CF0- 4D 20 43 EOR $4320 +0CF3- 4F ??? +0CF4- 4D 50 41 EOR $4150 +0CF7- 4E 49 4F LSR $4F49 +0CFA- 4E 20 44 LSR $4420 +0CFD- 49 53 EOR #$53 +0CFF- 4B ??? +0D00- 00 BRK +0D01- 46 52 LSR $52 +0D03- 4F ??? +0D04- 4D 20 4F EOR $4F20 +0D07- 54 ??? +0D08- 48 PHA +0D09- 45 52 EOR $52 +0D0B- 20 44 49 JSR $4944 +0D0E- 53 ??? +0D0F- 4B ??? +0D10- 00 BRK +0D11- 4E 4F 20 LSR $204F +0D14- 46 4F LSR $4F +0D16- 4E 54 00 LSR $0054 +0D19- 8C 46 0D STY $0D46 +0D1C- A0 C9 LDY #$C9 +0D1E- A9 0C LDA #$0C +0D20- B0 04 BCS $0D26 +0D22- A0 D8 LDY #$D8 +0D24- A9 0C LDA #$0C +0D26- 8C 43 0D STY $0D43 +0D29- 8D 44 0D STA $0D44 +0D2C- 20 72 E0 JSR $E072 +0D2F- 20 00 E0 JSR $E000 +0D32- 05 06 ORA $06 +0D34- 8C 00 3C STY $3C00 +0D37- 09 BA ORA #$BA +0D39- 0C 0D 0D TSB $0D0D +0D3C- 0D 00 20 ORA $2000 +0D3F- 75 E0 ADC $E0,X +0D41- 05 04 ORA $04 +0D43- FF ??? +0D44- FF ??? +0D45- A0 00 LDY #$00 +0D47- 20 28 E0 JSR $E028 +0D4A- 07 ??? +0D4B- 1A INC +0D4C- 53 ??? +0D4D- 04 50 TSB $50 +0D4F- 0D 60 8C ORA $8C60 +0D52- 9C 0D 20 STZ $200D +0D55- 72 E0 ADC ($E0) +0D57- 20 00 E0 JSR $E000 +0D5A- 05 06 ORA $06 +0D5C- 8C 00 2D STY $2D00 +0D5F- 09 BA ORA #$BA +0D61- 0C 0D 0D TSB $0D0D +0D64- 0D 52 53 ORA $5352 +0D67- 56 50 LSR $50,X +0D69- 0D 41 4C ORA $4C41 +0D6C- 45 58 EOR $58 +0D6E- 49 41 EOR #$41 +0D70- 0D 4E 45 ORA $454E +0D73- 57 ??? +0D74- 53 ??? +0D75- 0D 54 45 ORA $4554 +0D78- 43 ??? +0D79- 48 PHA +0D7A- 0D 50 41 ORA $4150 +0D7D- 52 54 EOR ($54) +0D7F- 59 0D 42 EOR $420D,Y +0D82- 4C 4F 43 JMP $434F +0D85- 4B ??? +0D86- 0D 54 59 ORA $5954 +0D89- 50 45 BVC $0DD0 +0D8B- 57 ??? +0D8C- 52 49 EOR ($49) +0D8E- 54 ??? +0D8F- 45 52 EOR $52 +0D91- 0D 53 54 ORA $5453 +0D94- 45 4E EOR $4E +0D96- 43 ??? +0D97- 49 4C EOR #$4C +0D99- 0D 00 A0 ORA $A000 +0D9C- 00 BRK +0D9D- 20 28 E0 JSR $E028 +0DA0- 0C 10 44 TSB $4410 +0DA3- 08 PHP +0DA4- 50 0D BVC $0DB3 +0DA6- 8C CB 0D STY $0DCB +0DA9- B0 1F BCS $0DCA +0DAB- C8 INY +0DAC- 98 TYA +0DAD- 09 30 ORA #$30 +0DAF- 8D BF 0D STA $0DBF +0DB2- 20 72 E0 JSR $E072 +0DB5- 38 SEC +0DB6- 20 5A E0 JSR $E05A +0DB9- B0 0F BCS $0DCA +0DBB- 20 39 E0 JSR $E039 +0DBE- 46 31 LSR $31 +0DC0- 00 BRK +0DC1- 18 CLC +0DC2- F0 06 BEQ $0DCA +0DC4- A9 08 LDA #$08 +0DC6- 20 42 E0 JSR $E042 +0DC9- 38 SEC +0DCA- A0 00 LDY #$00 +0DCC- 60 RTS +0DCD- 46 4F LSR $4F +0DCF- 4E 54 2E LSR $2E54 +0DD2- 00 BRK +0DD3- 8C F0 0D STY $0DF0 +0DD6- 20 72 E0 JSR $E072 +0DD9- 20 00 E0 JSR $E000 +0DDC- 05 06 ORA $06 +0DDE- 8C 00 1D STY $1D00 +0DE1- 09 BA ORA #$BA +0DE3- 0C 0D 0D TSB $0D0D +0DE6- 0D 00 20 ORA $2000 +0DE9- 75 E0 ADC $E0,X +0DEB- 05 0C ORA $0C +0DED- 47 ??? +0DEE- 0E A0 00 ASL $00A0 +0DF1- 20 28 E0 JSR $E028 +0DF4- 0C 10 34 TSB $3410 +0DF7- 0C 50 0D TSB $0D50 +0DFA- 8C 45 0E STY $0E45 +0DFD- B0 45 BCS $0E44 +0DFF- A2 FF LDX #$FF +0E01- 88 DEY +0E02- 30 08 BMI $0E0C +0E04- E8 INX +0E05- BD 47 0E LDA $0E47,X +0E08- D0 FA BNE $0E04 +0E0A- F0 F5 BEQ $0E01 +0E0C- A0 00 LDY #$00 +0E0E- B9 CD 0D LDA $0DCD,Y +0E11- F0 06 BEQ $0E19 +0E13- 99 A5 0E STA $0EA5,Y +0E16- C8 INY +0E17- D0 F5 BNE $0E0E +0E19- E8 INX +0E1A- C8 INY +0E1B- BD 47 0E LDA $0E47,X +0E1E- 99 A4 0E STA $0EA4,Y +0E21- D0 F6 BNE $0E19 +0E23- A9 60 LDA #$60 +0E25- 99 A5 0E STA $0EA5,Y +0E28- 20 72 E0 JSR $E072 +0E2B- 18 CLC +0E2C- A9 01 LDA #$01 +0E2E- 20 5D E0 JSR $E05D +0E31- B0 11 BCS $0E44 +0E33- 20 00 E0 JSR $E000 +0E36- 18 CLC +0E37- 00 BRK +0E38- 20 A2 0E JSR $0EA2 +0E3B- 18 CLC +0E3C- F0 06 BEQ $0E44 +0E3E- A9 08 LDA #$08 +0E40- 20 42 E0 JSR $E042 +0E43- 38 SEC +0E44- A0 00 LDY #$00 +0E46- 60 RTS +0E47- 42 ??? +0E48- 41 4C EOR ($4C,X) +0E4A- 4C 4F 4F JMP $4F4F +0E4D- 4E 00 4F LSR $4F00 +0E50- 48 PHA +0E51- 49 4F EOR #$4F +0E53- 00 BRK +0E54- 50 4C BVC $0EA2 +0E56- 41 54 EOR ($54,X) +0E58- 46 4F LSR $4F +0E5A- 52 4D EOR ($4D) +0E5C- 00 BRK +0E5D- 44 ??? +0E5E- 45 43 EOR $43 +0E60- 4F ??? +0E61- 00 BRK +0E62- 41 4E EOR ($4E,X) +0E64- 47 ??? +0E65- 4C 45 00 JMP $0045 +0E68- 4C 4F 57 JMP $574F +0E6B- 45 52 EOR $52 +0E6D- 20 43 41 JSR $4143 +0E70- 53 ??? +0E71- 45 00 EOR $00 +0E73- 4F ??? +0E74- 52 49 EOR ($49) +0E76- 45 4E EOR $4E +0E78- 54 ??? +0E79- 00 BRK +0E7A- 43 ??? +0E7B- 41 42 EOR ($42,X) +0E7D- 41 52 EOR ($52,X) +0E7F- 45 54 EOR $54 +0E81- 00 BRK +0E82- 47 ??? +0E83- 41 54 EOR ($54,X) +0E85- 53 ??? +0E86- 42 ??? +0E87- 59 00 53 EOR $5300,Y +0E8A- 41 4C EOR ($4C,X) +0E8C- 4F ??? +0E8D- 4F ??? +0E8E- 4E 00 53 LSR $5300 +0E91- 41 4E EOR ($4E,X) +0E93- 44 ??? +0E94- 57 ??? +0E95- 49 43 EOR #$43 +0E97- 48 PHA +0E98- 00 BRK +0E99- 52 45 EOR ($45) +0E9B- 50 4F BVC $0EEC +0E9D- 52 54 EOR ($54) +0E9F- 45 52 EOR $52 +0EA1- 00 BRK +0EA2- 20 39 E0 JSR $E039 diff --git a/PSC Source Disk 1 - System (v10)/SP.TXT b/PSC Source Disk 1 - System (v10)/SP.TXT new file mode 100644 index 0000000..60c871a --- /dev/null +++ b/PSC Source Disk 1 - System (v10)/SP.TXT @@ -0,0 +1,90 @@ +;----------- +; +; Subroutine package: +; +SP = $E000 +; +PRINT = SP +CLSCREEN = SP+3 +WITEBORD = SP+6 +ESCBACK = SP+9 +PICDRAW = SP+12 +; +DEVICENW = SP+15 +DEVICEON = SP+18 +DEVICEOF = SP+21 +DEVICERD = SP+24 +DEVICEST = SP+27 +SCALING = SP+30 +; +POLEBTN = SP+31 +POLEKEY = SP+34 +GETKEY = SP+37 +SELECT = SP+40 +; +SETTYPE = SP+43 +GETFILE = SP+46 +SAVEFILE = SP+49 +TYPELEN = SP+52 +FLSTART = SP+53 +FLLENGTH = SP+55 +BLOAD = SP+57 +BSAVE = SP+60 +DOSCR = SP+63 +ERROR = SP+66 +; +MUSIC = SP+69 +FLSHINIT = SP+72 +JMPVECTS = SP+75 +LINES = SP+78 +PARSE = SP+81 +SHOWAROW = SP+84 +NUMBER = SP+87 +WAITPSD = SP+90 +WAITCD = SP+93 +ANYKEY = SP+96 +CHKPRINT = SP+99 +BOOP = SP+102 +GETINIT = SP+105 +GETBYTE = SP+108 +INPUT = SP+111 +CLS1 = SP+114 +PRINTGRP = SP+117 +RTOS = SP+120 +SPACEBAR = SP+123 +GETPDISK = SP+126 +ESCMAIN = SP+129 +TESTPAPR = SP+132 +GETANUMB = SP+135 +ANYKEY2 = SP+138 +; +WITE = $FF +GRAY = $AA +GRAY2 = $55 +BLAK = $00 +; +PRNORM = 1 +PRINVR = 2 +PRLEFT = 3 +PRRITE = 4 +PRCNTR = 5 +PRLOC = 6 +PRSMAL = 7 +PRBIG = 8 +PRSTR = 9 +PRSPC = 10 +PRHTAB = 11 +PRVTAB = 12 +CR = 13 +NOCR = 14 +RTOSBLAK = 15 +RTOSWITE = 16 +RTOSANY = 17 +PRCSPACE = 18 +PRPIC = 19 +PRRTAB = 20 +PRRTAB2 = 21 +PRKERN = 22 +RTOSINV = 23 +GOOBER = 24 +; diff --git a/PSC Source Disk 1 - System (v10)/SUBPAK.txt b/PSC Source Disk 1 - System (v10)/SUBPAK.txt new file mode 100644 index 0000000..0b1a282 --- /dev/null +++ b/PSC Source Disk 1 - System (v10)/SUBPAK.txt @@ -0,0 +1,3008 @@ +E000- 4C 4E E9 JMP $E94E +E003- 4C 2F EB JMP $EB2F +E006- 4C 39 E1 JMP $E139 +E009- 4C 08 E2 JMP $E208 +E00C- 4C 8A E1 JMP $E18A +E00F- 4C F3 F3 JMP $F3F3 +E012- 4C 12 E0 JMP $E012 +E015- 4C 15 E0 JMP $E015 +E018- 4C 18 E0 JMP $E018 +E01B- 4C 1B E0 JMP $E01B +E01E- 00 BRK +E01F- 4C 57 E1 JMP $E157 +E022- 4C 67 E1 JMP $E167 +E025- 4C 81 E1 JMP $E181 +E028- 4C AE EB JMP $EBAE +E02B- 4C 25 E2 JMP $E225 +E02E- 4C 7E E2 JMP $E27E +E031- 4C A4 E2 JMP $E2A4 +E034- 00 BRK +E035- 00 BRK +E036- 00 BRK +E037- 00 BRK +E038- 00 BRK +E039- 4C FB E4 JMP $E4FB +E03C- 4C FE E4 JMP $E4FE +E03F- 4C 8A E5 JMP $E58A +E042- 4C B0 E5 JMP $E5B0 +E045- 4C A1 E0 JMP $E0A1 +E048- 4C 88 F4 JMP $F488 +E04B- 4C D9 EC JMP $ECD9 +E04E- 4C EB EC JMP $ECEB +E051- 4C 68 ED JMP $ED68 +E054- 4C 8D ED JMP $ED8D +E057- 4C 8B EE JMP $EE8B +E05A- 4C 04 E8 JMP $E804 +E05D- 4C 08 E8 JMP $E808 +E060- 4C DF E1 JMP $E1DF +E063- 4C B8 E8 JMP $E8B8 +E066- 4C 90 E0 JMP $E090 +E069- 4C 66 EB JMP $EB66 +E06C- 4C 8A EB JMP $EB8A +E06F- 4C F4 EA JMP $EAF4 +E072- 4C 42 EB JMP $EB42 +E075- 4C AC EA JMP $EAAC +E078- 4C D0 EE JMP $EED0 +E07B- 4C 02 EF JMP $EF02 +E07E- 4C 16 F2 JMP $F216 +E081- 4C 81 EF JMP $EF81 +E084- 4C EC F1 JMP $F1EC +E087- 4C F5 F2 JMP $F2F5 +E08A- 4C E2 E1 JMP $E1E2 +E08D- 4C 59 F3 JMP $F359 +E090- 08 PHP +E091- 78 SEI +E092- A0 20 LDY #$20 +E094- 2C 30 C0 BIT $C030 rw:SPKR +E097- A9 18 LDA #$18 +E099- 20 A8 FC JSR $FCA8 F8ROM:WAIT +E09C- 88 DEY +E09D- D0 F5 BNE $E094 +E09F- 28 PLP +E0A0- 60 RTS +E0A1- 08 PHP +E0A2- 78 SEI +E0A3- A0 04 LDY #$04 +E0A5- 84 F0 STY $F0 +E0A7- B9 CE E0 LDA $E0CE,Y +E0AA- 8D B1 E0 STA $E0B1 +E0AD- B9 C9 E0 LDA $E0C9,Y +E0B0- A2 00 LDX #$00 +E0B2- C8 INY +E0B3- D0 04 BNE $E0B9 +E0B5- E9 01 SBC #$01 +E0B7- 30 09 BMI $E0C2 +E0B9- CA DEX +E0BA- D0 F6 BNE $E0B2 +E0BC- AE 30 C0 LDX $C030 rw:SPKR +E0BF- 4C B0 E0 JMP $E0B0 +E0C2- A4 F0 LDY $F0 +E0C4- 88 DEY +E0C5- 10 DE BPL $E0A5 +E0C7- 28 PLP +E0C8- 60 RTS +E0C9- 60 RTS +E0CA- 30 30 BMI $E0FC +E0CC- 18 CLC +E0CD- 18 CLC +E0CE- 5E 4C 80 LSR $804C,X +E0D1- 72 80 ADC ($80) +E0D3- 09 80 ORA #$80 +E0D5- 4C ED FD JMP $FDED F8ROM:COUT +E0D8- 49 4E EOR #$4E +E0DA- 49 54 EOR #$54 +E0DC- 49 41 EOR #$41 +E0DE- 4C 49 5A JMP $5A49 +E0E1- 45 00 EOR $00 +E0E3- 50 52 BVC $E137 +E0E5- 45 53 EOR $53 +E0E7- 53 ??? +E0E8- 20 3C 52 JSR $523C +E0EB- 45 54 EOR $54 +E0ED- 55 52 EOR $52,X +E0EF- 4E 3E 00 LSR $003E +E0F2- 43 ??? +E0F3- 48 PHA +E0F4- 4F ??? +E0F5- 4F ??? +E0F6- 53 ??? +E0F7- 45 20 EOR $20 +E0F9- 41 20 EOR ($20,X) +E0FB- 00 BRK +E0FC- 49 4E EOR #$4E +E0FE- 20 44 52 JSR $5244 +E101- 49 56 EOR #$56 +E103- 45 20 EOR $20 +E105- 20 00 44 JSR $4400 +E108- 41 54 EOR ($54,X) +E10A- 41 20 EOR ($20,X) +E10C- 44 ??? +E10D- 49 53 EOR #$53 +E10F- 4B ??? +E110- 00 BRK +E111- 50 52 BVC $E165 +E113- 49 4E EOR #$4E +E115- 54 ??? +E116- 20 53 48 JSR $4853 +E119- 4F ??? +E11A- 50 00 BVC $E11C +E11C- 43 ??? +E11D- 4F ??? +E11E- 4D 50 41 EOR $4150 +E121- 4E 49 4F LSR $4F49 +E124- 4E 00 44 LSR $4400 +E127- 41 54 EOR ($54,X) +E129- 41 00 EOR ($00,X) +E12B- 50 52 BVC $E17F +E12D- 45 53 EOR $53 +E12F- 53 ??? +E130- 20 41 4E JSR $4E41 +E133- 59 20 4B EOR $4B20,Y +E136- 45 59 EOR $59 +E138- 00 BRK +E139- 20 2F EB JSR $EB2F +E13C- 20 4E E9 JSR $E94E +E13F- 10 00 BPL $E141 +E141- 00 BRK +E142- 01 C0 ORA ($C0,X) +E144- 10 27 BPL $E16D +E146- 00 BRK +E147- 01 C0 ORA ($C0,X) +E149- 10 01 BPL $E14C +E14B- 00 BRK +E14C- 26 10 ROL $10 +E14E- 10 01 BPL $E151 +E150- B7 ??? +E151- 26 09 ROL $09 +E153- 00 BRK +E154- 4C AD F1 JMP $F1AD +E157- A0 00 LDY #$00 +E159- 20 18 E0 JSR $E018 +E15C- B0 09 BCS $E167 +E15E- 0A ASL +E15F- 30 06 BMI $E167 +E161- 90 04 BCC $E167 +E163- A9 8D LDA #$8D +E165- D0 08 BNE $E16F +E167- AD 00 C0 LDA $C000 r:KBD w:CLR80COL +E16A- 30 03 BMI $E16F +E16C- A9 00 LDA #$00 +E16E- 60 RTS +E16F- 08 PHP +E170- 2C 10 C0 BIT $C010 r:KBDSTRB +E173- C9 FF CMP #$FF +E175- F0 06 BEQ $E17D +E177- C9 E0 CMP #$E0 +E179- 90 02 BCC $E17D +E17B- 29 DF AND #$DF +E17D- 29 7F AND #$7F +E17F- 28 PLP +E180- 60 RTS +E181- 2C 10 C0 BIT $C010 r:KBDSTRB +E184- 20 57 E1 JSR $E157 +E187- 10 FB BPL $E184 +E189- 60 RTS +E18A- 20 66 EB JSR $EB66 +E18D- A2 00 LDX #$00 +E18F- 86 F4 STX $F4 +E191- 20 8A EB JSR $EB8A +E194- 95 F0 STA $F0,X +E196- E8 INX +E197- E0 04 CPX #$04 +E199- 90 F6 BCC $E191 +E19B- A6 F1 LDX $F1 +E19D- A5 F0 LDA $F0 +E19F- 18 CLC +E1A0- 7D C0 91 ADC $91C0,X +E1A3- 85 F8 STA $F8 +E1A5- BD 00 91 LDA $9100,X +E1A8- 85 F9 STA $F9 +E1AA- A0 00 LDY #$00 +E1AC- 20 BC E1 JSR $E1BC +E1AF- 91 F8 STA ($F8),Y +E1B1- C8 INY +E1B2- C4 F2 CPY $F2 +E1B4- 90 F6 BCC $E1AC +E1B6- E8 INX +E1B7- C6 F3 DEC $F3 +E1B9- D0 E2 BNE $E19D +E1BB- 60 RTS +E1BC- A5 F4 LDA $F4 +E1BE- F0 06 BEQ $E1C6 +E1C0- A9 00 LDA #$00 +E1C2- C6 F4 DEC $F4 +E1C4- 10 05 BPL $E1CB +E1C6- 20 8A EB JSR $EB8A +E1C9- 30 01 BMI $E1CC +E1CB- 60 RTS +E1CC- 48 PHA +E1CD- 0A ASL +E1CE- 0A ASL +E1CF- A9 00 LDA #$00 +E1D1- 90 02 BCC $E1D5 +E1D3- A9 7F LDA #$7F +E1D5- 8D C1 E1 STA $E1C1 +E1D8- 68 PLA +E1D9- 29 3F AND #$3F +E1DB- 85 F4 STA $F4 +E1DD- 10 DD BPL $E1BC +E1DF- A0 AD LDY #$AD +E1E1- 2C A0 B9 BIT $B9A0 +E1E4- 8C ED E1 STY $E1ED +E1E7- 20 4E E9 JSR $E94E +E1EA- 06 8C ASL $8C +E1EC- 00 BRK +E1ED- 00 BRK +E1EE- 05 09 ORA $09 +E1F0- 2B ??? +E1F1- E1 20 SBC ($20,X) +E1F3- 54 ??? +E1F4- 4F ??? +E1F5- 20 43 4F JSR $4F43 +E1F8- 4E 54 49 LSR $4954 +E1FB- 4E 55 45 LSR $4555 +E1FE- 2E 2E 2E ROL $2E2E +E201- 0E 00 20 ASL $2000 +E204- 81 E1 STA ($E1,X) +E206- 38 SEC +E207- 60 RTS +E208- 20 4E E9 JSR $E94E +E20B- 06 8C ASL $8C +E20D- 00 BRK +E20E- B8 CLV +E20F- 05 02 ORA $02 +E211- 3C 45 53 BIT $5345,X +E214- 43 ??? +E215- 3E 20 54 ROL $5420,X +E218- 4F ??? +E219- 20 47 4F JSR $4F47 +E21C- 20 42 41 JSR $4142 +E21F- 43 ??? +E220- 4B ??? +E221- 0D 00 38 ORA $3800 +E224- 60 RTS +E225- 20 66 EB JSR $EB66 +E228- A0 00 LDY #$00 +E22A- 20 8A EB JSR $EB8A +E22D- 99 5D E2 STA $E25D,Y +E230- F0 03 BEQ $E235 +E232- C8 INY +E233- D0 F5 BNE $E22A +E235- A0 00 LDY #$00 +E237- 20 8A EB JSR $EB8A +E23A- 99 67 E2 STA $E267,Y +E23D- F0 03 BEQ $E242 +E23F- C8 INY +E240- D0 F5 BNE $E237 +E242- A0 00 LDY #$00 +E244- 20 8A EB JSR $EB8A +E247- 99 78 E2 STA $E278,Y +E24A- F0 03 BEQ $E24F +E24C- C8 INY +E24D- D0 F5 BNE $E244 +E24F- A0 00 LDY #$00 +E251- 20 8A EB JSR $EB8A +E254- 99 34 E0 STA $E034,Y +E257- C8 INY +E258- C0 05 CPY #$05 +E25A- 90 F5 BCC $E251 +E25C- 60 RTS +E25D- 00 BRK +E25E- 00 BRK +E25F- 00 BRK +E260- 00 BRK +E261- 00 BRK +E262- 00 BRK +E263- 00 BRK +E264- 00 BRK +E265- 00 BRK +E266- 00 BRK +E267- 00 BRK +E268- 00 BRK +E269- 00 BRK +E26A- 00 BRK +E26B- 00 BRK +E26C- 00 BRK +E26D- 00 BRK +E26E- 00 BRK +E26F- 00 BRK +E270- 00 BRK +E271- 00 BRK +E272- 00 BRK +E273- 00 BRK +E274- 00 BRK +E275- 00 BRK +E276- 00 BRK +E277- 00 BRK +E278- 00 BRK +E279- 00 BRK +E27A- 00 BRK +E27B- 00 BRK +E27C- 00 BRK +E27D- 00 BRK +E27E- 8D AD E3 STA $E3AD +E281- AD F4 95 LDA $95F4 +E284- 48 PHA +E285- A0 26 LDY #$26 +E287- A2 E1 LDX #$E1 +E289- B0 06 BCS $E291 +E28B- A0 1C LDY #$1C +E28D- A2 E1 LDX #$E1 +E28F- A9 01 LDA #$01 +E291- 8D F4 95 STA $95F4 +E294- 8C 0A E3 STY $E30A +E297- 8E 0B E3 STX $E30B +E29A- A9 01 LDA #$01 +E29C- 20 AB E2 JSR $E2AB +E29F- 68 PLA +E2A0- 8D F4 95 STA $95F4 +E2A3- 60 RTS +E2A4- A9 00 LDA #$00 +E2A6- 38 SEC +E2A7- 6E C6 EF ROR $EFC6 +E2AA- 38 SEC +E2AB- 8D 77 E2 STA $E277 +E2AE- 6E A8 E3 ROR $E3A8 +E2B1- AD F4 95 LDA $95F4 +E2B4- 8D 68 AA STA $AA68 +E2B7- 09 30 ORA #$30 +E2B9- C9 31 CMP #$31 +E2BB- D0 02 BNE $E2BF +E2BD- A9 20 LDA #$20 +E2BF- 8D 05 E1 STA $E105 +E2C2- 20 39 E1 JSR $E139 +E2C5- 20 08 E2 JSR $E208 +E2C8- 4C CE E2 JMP $E2CE +E2CB- 20 42 EB JSR $EB42 +E2CE- 20 4E E9 JSR $E94E +E2D1- 02 ??? +E2D2- 04 06 TSB $06 +E2D4- 95 00 STA $00,X +E2D6- 04 09 TSB $09 +E2D8- 67 ??? +E2D9- E2 ??? +E2DA- 3A DEC +E2DB- 0D 00 AD ORA $AD00 +E2DE- 77 ??? +E2DF- E2 ??? +E2E0- F0 33 BEQ $E315 +E2E2- 20 4E E9 JSR $E94E +E2E5- 08 PHP +E2E6- 02 ??? +E2E7- 06 A0 ASL $A0 +E2E9- 00 BRK +E2EA- 01 47 ORA ($47,X) +E2EC- 45 54 EOR $54 +E2EE- 0D 07 01 ORA $0107 +E2F1- 05 06 ORA $06 +E2F3- 8C 00 34 STY $3400 +E2F6- 09 F2 ORA #$F2 +E2F8- E0 09 CPX #$09 +E2FA- 5D E2 3A EOR $3AE2,X +E2FD- 0D 06 0F ORA $0F06 +E300- 00 BRK +E301- 5C ??? +E302- 03 ??? +E303- 50 4C BVC $E351 +E305- 41 43 EOR ($43,X) +E307- 45 20 EOR $20 +E309- 09 FF ORA #$FF +E30B- FF ??? +E30C- 09 0B ORA #$0B +E30E- E1 20 SBC ($20,X) +E310- 0E 00 4C ASL $4C00 +E313- 6A ROR +E314- E3 ??? +E315- 20 4E E9 JSR $E94E +E318- 08 PHP +E319- 02 ??? +E31A- 06 A0 ASL $A0 +E31C- 00 BRK +E31D- 01 53 ORA ($53,X) +E31F- 41 56 EOR ($56,X) +E321- 45 0D EOR $0D +E323- 00 BRK +E324- 20 C5 EF JSR $EFC5 +E327- 90 01 BCC $E32A +E329- 60 RTS +E32A- 20 42 EB JSR $EB42 +E32D- 20 4E E9 JSR $E94E +E330- 06 8C ASL $8C +E332- 00 BRK +E333- 30 05 BMI $E33A +E335- 54 ??? +E336- 4F ??? +E337- 20 53 41 JSR $4153 +E33A- 56 45 LSR $45,X +E33C- 20 09 5D JSR $5D09 +E33F- E2 ??? +E340- 20 59 4F JSR $4F59 +E343- 55 20 EOR $20,X +E345- 41 52 EOR ($52,X) +E347- 45 0D EOR $0D +E349- 57 ??? +E34A- 4F ??? +E34B- 52 4B EOR ($4B) +E34D- 49 4E EOR #$4E +E34F- 47 ??? +E350- 20 4F 4E JSR $4E4F +E353- 3A DEC +E354- 0D 03 06 ORA $0603 +E357- 0F ??? +E358- 00 BRK +E359- 5C ??? +E35A- 50 4C BVC $E3A8 +E35C- 41 43 EOR ($43,X) +E35E- 45 20 EOR $20 +E360- 09 D8 ORA #$D8 +E362- E0 44 CPX #$44 +E364- 20 09 07 JSR $0709 +E367- E1 0D SBC ($0D,X) +E369- 00 BRK +E36A- 20 4E E9 JSR $E94E +E36D- 09 FC ORA #$FC +E36F- E0 0D CPX #$0D +E371- 06 0F ASL $0F +E373- 00 BRK +E374- 74 54 STZ $54,X +E376- 59 50 45 EOR $4550,Y +E379- 20 49 4E JSR $4E49 +E37C- 20 4E 41 JSR $414E +E37F- 4D 45 20 EOR $2045 +E382- 4F ??? +E383- 46 20 LSR $20 +E385- 09 5D ORA #$5D +E387- E2 ??? +E388- 20 4F 52 JSR $524F +E38B- 20 0D 09 JSR $090D +E38E- E3 ??? +E38F- E0 20 CPX #$20 +E391- 46 4F LSR $4F +E393- 52 20 EOR ($20) +E395- 09 5D ORA #$5D +E397- E2 ??? +E398- 20 4C 49 JSR $494C +E39B- 53 ??? +E39C- 54 ??? +E39D- 0D 0D 3E ORA $3E0D +E3A0- 0E 00 20 ASL $2000 +E3A3- 9B ??? +E3A4- E4 B0 CPX $B0 +E3A6- 53 ??? +E3A7- A9 00 LDA #$00 +E3A9- 30 0A BMI $E3B5 +E3AB- 18 CLC +E3AC- A9 00 LDA #$00 +E3AE- 20 08 E8 JSR $E808 +E3B1- 90 07 BCC $E3BA +E3B3- B0 42 BCS $E3F7 +E3B5- 20 4C F1 JSR $F14C +E3B8- B0 40 BCS $E3FA +E3BA- 20 EE E5 JSR $E5EE +E3BD- AD AA E4 LDA $E4AA +E3C0- F0 4F BEQ $E411 +E3C2- AD 77 E2 LDA $E277 +E3C5- F0 06 BEQ $E3CD +E3C7- 20 2A E5 JSR $E52A +E3CA- 4C F1 E3 JMP $E3F1 +E3CD- 20 ED E8 JSR $E8ED +E3D0- D0 22 BNE $E3F4 +E3D2- 20 27 E5 JSR $E527 +E3D5- F0 06 BEQ $E3DD +E3D7- C9 06 CMP #$06 +E3D9- F0 13 BEQ $E3EE +E3DB- D0 17 BNE $E3F4 +E3DD- A9 63 LDA #$63 +E3DF- 20 B0 E5 JSR $E5B0 +E3E2- C9 0D CMP #$0D +E3E4- D0 11 BNE $E3F7 +E3E6- 20 42 EB JSR $EB42 +E3E9- 20 30 E5 JSR $E530 +E3EC- D0 06 BNE $E3F4 +E3EE- 20 2D E5 JSR $E52D +E3F1- 18 CLC +E3F2- F0 06 BEQ $E3FA +E3F4- 20 B0 E5 JSR $E5B0 +E3F7- 4C CB E2 JMP $E2CB +E3FA- 90 0C BCC $E408 +E3FC- AD 77 E2 LDA $E277 +E3FF- D0 07 BNE $E408 +E401- 38 SEC +E402- 6E C6 EF ROR $EFC6 +E405- 4C CB E2 JMP $E2CB +E408- 60 RTS +E409- A9 08 LDA #$08 +E40B- 20 B0 E5 JSR $E5B0 +E40E- 4C CB E2 JMP $E2CB +E411- 20 4C EB JSR $EB4C +E414- 20 4E E9 JSR $E94E +E417- 06 8C ASL $8C +E419- 00 BRK +E41A- 14 05 TRB $05 +E41C- 4C 49 53 JMP $5349 +E41F- 54 ??? +E420- 20 4F 46 JSR $464F +E423- 20 09 5D JSR $5D09 +E426- E2 ??? +E427- 53 ??? +E428- 20 4F 4E JSR $4E4F +E42B- 20 54 48 JSR $4854 +E42E- 49 53 EOR #$53 +E430- 09 0B ORA #$0B +E432- E1 3A SBC ($3A,X) +E434- 0D 00 A9 ORA $A900 +E437- FF ??? +E438- 8D 6B E4 STA $E46B +E43B- 8D 84 E4 STA $E484 +E43E- 20 EC E6 JSR $E6EC +E441- B0 C6 BCS $E409 +E443- EE 84 E4 INC $E484 +E446- 20 01 E7 JSR $E701 +E449- B0 BE BCS $E409 +E44B- D0 36 BNE $E483 +E44D- 8D 7C E4 STA $E47C +E450- 8C 7D E4 STY $E47D +E453- EE 6B E4 INC $E46B +E456- AD 6B E4 LDA $E46B +E459- 49 0F EOR #$0F +E45B- D0 0D BNE $E46A +E45D- 8D 6B E4 STA $E46B +E460- 20 DF E1 JSR $E1DF +E463- C9 1B CMP #$1B +E465- F0 31 BEQ $E498 +E467- 20 4C EB JSR $EB4C +E46A- A9 00 LDA #$00 +E46C- 0A ASL +E46D- 0A ASL +E46E- 0A ASL +E46F- 69 24 ADC #$24 +E471- 8D 7A E4 STA $E47A +E474- 20 4E E9 JSR $E94E +E477- 06 40 ASL $40 +E479- 00 BRK +E47A- FF ??? +E47B- 09 FF ORA #$FF +E47D- FF ??? +E47E- 0D 00 4C ORA $4C00 +E481- 43 ??? +E482- E4 A9 CPX $A9 +E484- 00 BRK +E485- D0 0E BNE $E495 +E487- 20 4E E9 JSR $E94E +E48A- 06 8C ASL $8C +E48C- 00 BRK +E48D- 40 RTI +E48E- 05 4E ORA $4E +E490- 4F ??? +E491- 4E 45 0D LSR $0D45 +E494- 00 BRK +E495- 20 DF E1 JSR $E1DF +E498- 4C CB E2 JMP $E2CB +E49B- A9 00 LDA #$00 +E49D- 8D AA E4 STA $E4AA +E4A0- 20 F4 EA JSR $EAF4 +E4A3- AA TAX +E4A4- E4 0F CPX $0F +E4A6- 1B ??? +E4A7- 00 BRK +E4A8- 8C 60 00 STY $0060 +E4AB- 00 BRK +E4AC- 00 BRK +E4AD- 00 BRK +E4AE- 00 BRK +E4AF- 00 BRK +E4B0- 00 BRK +E4B1- 00 BRK +E4B2- 00 BRK +E4B3- 00 BRK +E4B4- 00 BRK +E4B5- 00 BRK +E4B6- 00 BRK +E4B7- 00 BRK +E4B8- 00 BRK +E4B9- 00 BRK +E4BA- BD D1 E4 LDA $E4D1,X +E4BD- 85 F6 STA $F6 +E4BF- BD D2 E4 LDA $E4D2,X +E4C2- 85 F7 STA $F7 +E4C4- A0 00 LDY #$00 +E4C6- B1 F6 LDA ($F6),Y +E4C8- F0 06 BEQ $E4D0 +E4CA- 20 D3 E0 JSR $E0D3 +E4CD- C8 INY +E4CE- D0 F6 BNE $E4C6 +E4D0- 60 RTS +E4D1- D9 E4 E2 CMP $E2E4,Y +E4D4- E4 EA CPX $EA +E4D6- E4 F2 CPX $F2 +E4D8- E4 0D CPX $0D +E4DA- 04 56 TSB $56 +E4DC- 45 52 EOR $52 +E4DE- 49 46 EOR #$46 +E4E0- 59 00 0D EOR $0D00,Y +E4E3- 04 42 TSB $42 +E4E5- 4C 4F 41 JMP $414F +E4E8- 44 ??? +E4E9- 00 BRK +E4EA- 0D 04 42 ORA $4204 +E4ED- 53 ??? +E4EE- 41 56 EOR ($56,X) +E4F0- 45 00 EOR $00 +E4F2- 0D 04 44 ORA $4404 +E4F5- 45 4C EOR $4C +E4F7- 00 BRK +E4F8- A2 00 LDX #$00 +E4FA- 2C A2 02 BIT $02A2 +E4FD- 2C A2 04 BIT $04A2 +E500- 2C A2 06 BIT $06A2 +E503- 86 F6 STX $F6 +E505- 20 66 EB JSR $EB66 +E508- A9 01 LDA #$01 +E50A- 20 B1 E7 JSR $E7B1 +E50D- B0 10 BCS $E51F +E50F- A6 F6 LDX $F6 +E511- 20 BA E4 JSR $E4BA +E514- 20 8A EB JSR $EB8A +E517- F0 71 BEQ $E58A +E519- 20 D3 E0 JSR $E0D3 +E51C- 4C 14 E5 JMP $E514 +E51F- 20 8A EB JSR $EB8A +E522- D0 FB BNE $E51F +E524- A9 08 LDA #$08 +E526- 60 RTS +E527- A2 00 LDX #$00 +E529- 2C A2 02 BIT $02A2 +E52C- 2C A2 04 BIT $04A2 +E52F- 2C A2 06 BIT $06A2 +E532- 86 F0 STX $F0 +E534- 20 BA E4 JSR $E4BA +E537- A0 00 LDY #$00 +E539- B9 78 E2 LDA $E278,Y +E53C- F0 06 BEQ $E544 +E53E- 20 D3 E0 JSR $E0D3 +E541- C8 INY +E542- D0 F5 BNE $E539 +E544- A0 00 LDY #$00 +E546- B9 AA E4 LDA $E4AA,Y +E549- F0 06 BEQ $E551 +E54B- 20 D3 E0 JSR $E0D3 +E54E- C8 INY +E54F- D0 F5 BNE $E546 +E551- A5 F0 LDA $F0 +E553- F0 20 BEQ $E575 +E555- C9 06 CMP #$06 +E557- F0 1C BEQ $E575 +E559- A9 41 LDA #$41 +E55B- AE 35 E0 LDX $E035 +E55E- AC 36 E0 LDY $E036 +E561- 20 78 E5 JSR $E578 +E564- A5 F0 LDA $F0 +E566- C9 02 CMP #$02 +E568- F0 0B BEQ $E575 +E56A- A9 4C LDA #$4C +E56C- AE 37 E0 LDX $E037 +E56F- AC 38 E0 LDY $E038 +E572- 20 78 E5 JSR $E578 +E575- 4C 8A E5 JMP $E58A +E578- 48 PHA +E579- A9 2C LDA #$2C +E57B- 20 D3 E0 JSR $E0D3 +E57E- 68 PLA +E57F- 20 D3 E0 JSR $E0D3 +E582- A9 24 LDA #$24 +E584- 20 D3 E0 JSR $E0D3 +E587- 4C 40 F9 JMP $F940 F8ROM:PRNTYX +E58A- A2 4C LDX #$4C +E58C- A0 A3 LDY #$A3 +E58E- A9 E5 LDA #$E5 +E590- 8E D8 A6 STX $A6D8 +E593- 8C D9 A6 STY $A6D9 +E596- 8D DA A6 STA $A6DA +E599- BA TSX +E59A- 8E A4 E5 STX $E5A4 +E59D- 20 8E FD JSR $FD8E F8ROM:CROUT +E5A0- A9 00 LDA #$00 +E5A2- 60 RTS +E5A3- A2 00 LDX #$00 +E5A5- 9A TXS +E5A6- 20 16 A3 JSR $A316 +E5A9- 20 EA 03 JSR $03EA +E5AC- AD 5C AA LDA $AA5C +E5AF- 60 RTS +E5B0- 8D CC E5 STA $E5CC +E5B3- 20 42 EB JSR $EB42 +E5B6- 20 A1 E0 JSR $E0A1 +E5B9- 20 4E E9 JSR $E94E +E5BC- 06 8C ASL $8C +E5BE- 00 BRK +E5BF- 40 RTI +E5C0- 00 BRK +E5C1- A2 FD LDX #$FD +E5C3- E8 INX +E5C4- E8 INX +E5C5- E8 INX +E5C6- BD DC E5 LDA $E5DC,X +E5C9- F0 04 BEQ $E5CF +E5CB- C9 00 CMP #$00 +E5CD- D0 F4 BNE $E5C3 +E5CF- BD DD E5 LDA $E5DD,X +E5D2- 85 F6 STA $F6 +E5D4- BD DE E5 LDA $E5DE,X +E5D7- 85 F7 STA $F7 +E5D9- 6C F6 00 JMP ($00F6) +E5DC- 04 F7 TSB $F7 +E5DE- E5 06 SBC $06 +E5E0- 16 E6 ASL $E6,X +E5E2- 09 5A ORA #$5A +E5E4- E6 0A INC $0A +E5E6- 6E E6 63 ROR $63E6 +E5E9- 85 E6 STA $E6 +E5EB- 00 BRK +E5EC- 3F ??? +E5ED- E6 A9 INC $A9 +E5EF- 00 BRK +E5F0- 2C A9 02 BIT $02A9 +E5F3- 8D 0D B0 STA $B00D +E5F6- 60 RTS +E5F7- 20 4E E9 JSR $E94E +E5FA- 05 09 ORA $09 +E5FC- 0C E1 20 TSB $20E1 +E5FF- 49 53 EOR #$53 +E601- 20 57 52 JSR $5257 +E604- 49 54 EOR #$54 +E606- 45 20 EOR $20 +E608- 50 52 BVC $E65C +E60A- 4F ??? +E60B- 54 ??? +E60C- 45 43 EOR $43 +E60E- 54 ??? +E60F- 45 44 EOR $44 +E611- 0D 00 4C ORA $4C00 +E614- DF ??? +E615- E1 20 SBC ($20,X) +E617- 4E E9 06 LSR $06E9 +E61A- 8C 00 30 STY $3000 +E61D- 05 43 ORA $43 +E61F- 41 4E EOR ($4E,X) +E621- 4E 4F 54 LSR $544F +E624- 20 46 49 JSR $4946 +E627- 4E 44 0D LSR $0D44 +E62A- 0D 09 AA ORA $AA09 +E62D- E4 0D CPX $0D +E62F- 0D 4F 4E ORA $4E4F +E632- 20 54 48 JSR $4854 +E635- 49 53 EOR #$53 +E637- 09 0B ORA #$0B +E639- E1 0D SBC ($0D,X) +E63B- 00 BRK +E63C- 4C DF E1 JMP $E1DF +E63F- 20 4E E9 JSR $E94E +E642- 05 09 ORA $09 +E644- 0C E1 20 TSB $20E1 +E647- 45 52 EOR $52 +E649- 52 4F EOR ($4F) +E64B- 52 20 EOR ($20) +E64D- 4F ??? +E64E- 43 ??? +E64F- 43 ??? +E650- 55 52 EOR $52,X +E652- 52 45 EOR ($45) +E654- 44 ??? +E655- 0D 00 4C ORA $4C00 +E658- DF ??? +E659- E1 20 SBC ($20,X) +E65B- 4E E9 05 LSR $05E9 +E65E- 09 0C ORA #$0C +E660- E1 20 SBC ($20,X) +E662- 49 53 EOR #$53 +E664- 20 46 55 JSR $5546 +E667- 4C 4C 0D JMP $0D4C +E66A- 00 BRK +E66B- 4C DF E1 JMP $E1DF +E66E- 20 4E E9 JSR $E94E +E671- 05 46 ORA $46 +E673- 49 4C EOR #$4C +E675- 45 20 EOR $20 +E677- 49 53 EOR #$53 +E679- 20 4C 4F JSR $4F4C +E67C- 43 ??? +E67D- 4B ??? +E67E- 45 44 EOR $44 +E680- 0D 00 4C ORA $4C00 +E683- DF ??? +E684- E1 20 SBC ($20,X) +E686- 4E E9 05 LSR $05E9 +E689- 06 8C ASL $8C +E68B- 00 BRK +E68C- 38 SEC +E68D- 57 ??? +E68E- 41 52 EOR ($52,X) +E690- 4E 49 4E LSR $4E49 +E693- 47 ??? +E694- 3A DEC +E695- 0D 0D 0D ORA $0D0D +E698- 54 ??? +E699- 48 PHA +E69A- 45 20 EOR $20 +E69C- 4F ??? +E69D- 4C 44 20 JMP $2044 +E6A0- 43 ??? +E6A1- 4F ??? +E6A2- 4E 54 45 LSR $4554 +E6A5- 4E 54 53 LSR $5354 +E6A8- 20 4F 46 JSR $464F +E6AB- 0D 0D 09 ORA $090D +E6AE- AA TAX +E6AF- E4 0D CPX $0D +E6B1- 0D 57 49 ORA $4957 +E6B4- 4C 4C 20 JMP $204C +E6B7- 42 ??? +E6B8- 45 20 EOR $20 +E6BA- 4C 4F 53 JMP $534F +E6BD- 54 ??? +E6BE- 20 57 48 JSR $4857 +E6C1- 45 4E EOR $4E +E6C3- 0D 54 48 ORA $4854 +E6C6- 49 53 EOR #$53 +E6C8- 20 46 49 JSR $4946 +E6CB- 4C 45 20 JMP $2045 +E6CE- 49 53 EOR #$53 +E6D0- 20 53 41 JSR $4153 +E6D3- 56 45 LSR $45,X +E6D5- 44 ??? +E6D6- 0D 0C A7 ORA $A70C +E6D9- 09 E3 ORA #$E3 +E6DB- E0 20 CPX #$20 +E6DD- 54 ??? +E6DE- 4F ??? +E6DF- 20 53 41 JSR $4153 +E6E2- 56 45 LSR $45,X +E6E4- 0D 4F 52 ORA $524F +E6E7- 0D 00 4C ORA $4C00 +E6EA- 81 E1 STA ($E1,X) +E6EC- AD F4 95 LDA $95F4 +E6EF- 20 B1 E7 JSR $E7B1 +E6F2- B0 0C BCS $E700 +E6F4- A9 00 LDA #$00 +E6F6- 85 F2 STA $F2 +E6F8- A0 11 LDY #$11 +E6FA- 4C 8B E7 JMP $E78B +E6FD- A2 FF LDX #$FF +E6FF- 18 CLC +E700- 60 RTS +E701- A5 F6 LDA $F6 +E703- 18 CLC +E704- 69 23 ADC #$23 +E706- 85 F6 STA $F6 +E708- 90 02 BCC $E70C +E70A- E6 F7 INC $F7 +E70C- C6 F2 DEC $F2 +E70E- 10 1B BPL $E72B +E710- AC 01 84 LDY $8401 +E713- AD 02 84 LDA $8402 +E716- F0 E5 BEQ $E6FD +E718- 20 8B E7 JSR $E78B +E71B- B0 E3 BCS $E700 +E71D- A0 E8 LDY #$E8 +E71F- A9 83 LDA #$83 +E721- 84 F6 STY $F6 +E723- 85 F7 STA $F7 +E725- A9 07 LDA #$07 +E727- 85 F2 STA $F2 +E729- D0 D6 BNE $E701 +E72B- A0 00 LDY #$00 +E72D- B1 F6 LDA ($F6),Y +E72F- 30 D0 BMI $E701 +E731- F0 CA BEQ $E6FD +E733- A0 02 LDY #$02 +E735- B1 F6 LDA ($F6),Y +E737- 29 7F AND #$7F +E739- C9 04 CMP #$04 +E73B- D0 C4 BNE $E701 +E73D- AD 34 E0 LDA $E034 +E740- F0 0F BEQ $E751 +E742- A0 21 LDY #$21 +E744- B1 F6 LDA ($F6),Y +E746- C9 21 CMP #$21 +E748- D0 02 BNE $E74C +E74A- A9 22 LDA #$22 +E74C- CD 34 E0 CMP $E034 +E74F- D0 B0 BNE $E701 +E751- A0 02 LDY #$02 +E753- A2 FF LDX #$FF +E755- E8 INX +E756- C8 INY +E757- BD 78 E2 LDA $E278,X +E75A- F0 08 BEQ $E764 +E75C- 09 80 ORA #$80 +E75E- D1 F6 CMP ($F6),Y +E760- F0 F3 BEQ $E755 +E762- D0 9D BNE $E701 +E764- 8C 83 E7 STY $E783 +E767- A0 20 LDY #$20 +E769- B1 F6 LDA ($F6),Y +E76B- 49 A0 EOR #$A0 +E76D- D0 05 BNE $E774 +E76F- 91 F6 STA ($F6),Y +E771- 88 DEY +E772- 10 F5 BPL $E769 +E774- B1 F6 LDA ($F6),Y +E776- 29 7F AND #$7F +E778- 91 F6 STA ($F6),Y +E77A- 88 DEY +E77B- D0 F7 BNE $E774 +E77D- A5 F6 LDA $F6 +E77F- A4 F7 LDY $F7 +E781- 18 CLC +E782- 69 08 ADC #$08 +E784- 90 01 BCC $E787 +E786- C8 INY +E787- 18 CLC +E788- A2 00 LDX #$00 +E78A- 60 RTS +E78B- A2 01 LDX #$01 +E78D- 8D ED B7 STA $B7ED +E790- AD F4 95 LDA $95F4 +E793- 8D EA B7 STA $B7EA +E796- 8C EC B7 STY $B7EC +E799- A9 00 LDA #$00 +E79B- 8D EB B7 STA $B7EB +E79E- A0 00 LDY #$00 +E7A0- A9 84 LDA #$84 +E7A2- 8C F0 B7 STY $B7F0 +E7A5- 8D F1 B7 STA $B7F1 +E7A8- 8E F4 B7 STX $B7F4 +E7AB- 20 E3 03 JSR $03E3 +E7AE- 4C D9 03 JMP $03D9 +E7B1- 8D 68 AA STA $AA68 +E7B4- 8D EA B7 STA $B7EA +E7B7- AC 00 BD LDY $BD00 +E7BA- C0 4C CPY #$4C +E7BC- 18 CLC +E7BD- F0 3E BEQ $E7FD +E7BF- C9 01 CMP #$01 +E7C1- F0 1D BEQ $E7E0 +E7C3- AE E9 B7 LDX $B7E9 +E7C6- 20 8E BE JSR $BE8E +E7C9- B9 F8 04 LDA $04F8,Y +E7CC- 10 12 BPL $E7E0 +E7CE- A9 24 LDA #$24 +E7D0- 99 F8 04 STA $04F8,Y +E7D3- 20 E0 E7 JSR $E7E0 +E7D6- 90 25 BCC $E7FD +E7D8- 20 8E BE JSR $BE8E +E7DB- A9 A0 LDA #$A0 +E7DD- 99 F8 04 STA $04F8,Y +E7E0- A0 11 LDY #$11 +E7E2- A2 00 LDX #$00 +E7E4- 20 96 E7 JSR $E796 +E7E7- AE E9 B7 LDX $B7E9 +E7EA- BD 89 C0 LDA $C089,X +E7ED- A9 20 LDA #$20 +E7EF- 85 F0 STA $F0 +E7F1- 20 44 B9 JSR $B944 +E7F4- 90 04 BCC $E7FA +E7F6- C6 F0 DEC $F0 +E7F8- D0 F7 BNE $E7F1 +E7FA- BD 88 C0 LDA $C088,X +E7FD- 60 RTS +E7FE- 11 1C ORA ($1C),Y +E800- E1 E1 SBC ($E1,X) +E802- 01 03 ORA ($03,X) +E804- A2 00 LDX #$00 +E806- 8A TXA +E807- 2C A2 01 BIT $01A2 +E80A- 8D 3D E8 STA $E83D +E80D- A8 TAY +E80E- F0 07 BEQ $E817 +E810- 09 40 ORA #$40 +E812- 8D 9E E8 STA $E89E +E815- A0 20 LDY #$20 +E817- 8C 98 E8 STY $E898 +E81A- BD FE E7 LDA $E7FE,X +E81D- 8D 78 E8 STA $E878 +E820- BD 00 E8 LDA $E800,X +E823- 8D 79 E8 STA $E879 +E826- BD 02 E8 LDA $E802,X +E829- 8D 39 E8 STA $E839 +E82C- 20 F1 E5 JSR $E5F1 +E82F- B0 19 BCS $E84A +E831- A9 01 LDA #$01 +E833- 20 A3 E8 JSR $E8A3 +E836- B0 0F BCS $E847 +E838- C9 00 CMP #$00 +E83A- D0 0B BNE $E847 +E83C- A9 00 LDA #$00 +E83E- F0 05 BEQ $E845 +E840- CD FE 84 CMP $84FE +E843- D0 02 BNE $E847 +E845- 18 CLC +E846- 60 RTS +E847- 20 A1 E0 JSR $E0A1 +E84A- 20 5C EB JSR $EB5C +E84D- A0 20 LDY #$20 +E84F- AD F4 95 LDA $95F4 +E852- 4A LSR +E853- F0 02 BEQ $E857 +E855- A0 31 LDY #$31 +E857- 8C 88 E8 STY $E888 +E85A- 20 4E E9 JSR $E94E +E85D- 05 06 ORA $06 +E85F- 8C 00 50 STY $5000 +E862- 50 4C BVC $E8B0 +E864- 45 41 EOR $41 +E866- 53 ??? +E867- 45 20 EOR $20 +E869- 50 4C BVC $E8B7 +E86B- 41 43 EOR ($43,X) +E86D- 45 09 EOR $09 +E86F- 98 TYA +E870- E8 INX +E871- 0D 54 48 ORA $4854 +E874- 45 20 EOR $20 +E876- 22 ??? +E877- 09 FF ORA #$FF +E879- FF ??? +E87A- 22 ??? +E87B- 09 0B ORA #$0B +E87D- E1 0D SBC ($0D,X) +E87F- 49 4E EOR #$4E +E881- 20 44 52 JSR $5244 +E884- 49 56 EOR #$56 +E886- 45 20 EOR $20 +E888- 31 0D AND ($0D),Y +E88A- 00 BRK +E88B- 20 DF E1 JSR $E1DF +E88E- 48 PHA +E88F- 20 5C EB JSR $EB5C +E892- 68 PLA +E893- C9 1B CMP #$1B +E895- D0 9A BNE $E831 +E897- 60 RTS +E898- 20 53 49 JSR $4953 +E89B- 44 ??? +E89C- 45 20 EOR $20 +E89E- 41 20 EOR ($20,X) +E8A0- 4F ??? +E8A1- 46 00 LSR $00 +E8A3- 20 B1 E7 JSR $E7B1 +E8A6- B0 0C BCS $E8B4 +E8A8- A2 01 LDX #$01 +E8AA- A0 11 LDY #$11 +E8AC- A9 00 LDA #$00 +E8AE- 8D ED B7 STA $B7ED +E8B1- 20 96 E7 JSR $E796 +E8B4- AD FF 84 LDA $84FF +E8B7- 60 RTS +E8B8- 8D E1 E8 STA $E8E1 +E8BB- AD F7 95 LDA $95F7 +E8BE- F0 02 BEQ $E8C2 +E8C0- 18 CLC +E8C1- 60 RTS +E8C2- 20 A1 E0 JSR $E0A1 +E8C5- 20 4E E9 JSR $E94E +E8C8- 05 12 ORA $12 +E8CA- 01 22 ORA ($22,X) +E8CC- 53 ??? +E8CD- 45 54 EOR $54 +E8CF- 55 50 EOR $50,X +E8D1- 22 ??? +E8D2- 20 57 41 JSR $4157 +E8D5- 53 ??? +E8D6- 20 4E 45 JSR $454E +E8D9- 56 45 LSR $45,X +E8DB- 52 20 EOR ($20) +E8DD- 52 55 EOR ($55) +E8DF- 4E 20 2D LSR $2D20 +E8E2- 20 09 2B JSR $2B09 +E8E5- E1 0D SBC ($0D,X) +E8E7- 00 BRK +E8E8- 20 81 E1 JSR $E181 +E8EB- 38 SEC +E8EC- 60 RTS +E8ED- AD F5 95 LDA $95F5 +E8F0- 49 05 EOR #$05 +E8F2- F0 2D BEQ $E921 +E8F4- AD F4 95 LDA $95F4 +E8F7- 8D 09 E5 STA $E509 +E8FA- 20 F8 E4 JSR $E4F8 +E8FD- 5B ??? +E8FE- 43 ??? +E8FF- 44 ??? +E900- 5D 00 F0 EOR $F000,X +E903- 1D 20 29 ORA $2920,X +E906- E9 20 SBC #$20 +E908- FE E4 5B INC $5BE4,X +E90B- 43 ??? +E90C- 44 ??? +E90D- 5D 2C 41 EOR $412C,X +E910- 24 36 BIT $36 +E912- 33 ??? +E913- 30 30 BMI $E945 +E915- 2C 4C 24 BIT $244C +E918- 38 SEC +E919- 30 30 BMI $E94B +E91B- 00 BRK +E91C- 48 PHA +E91D- 20 29 E9 JSR $E929 +E920- 68 PLA +E921- 48 PHA +E922- A9 01 LDA #$01 +E924- 8D 09 E5 STA $E509 +E927- 68 PLA +E928- 60 RTS +E929- A2 08 LDX #$08 +E92B- A0 00 LDY #$00 +E92D- A9 63 LDA #$63 +E92F- 84 F0 STY $F0 +E931- 85 F1 STA $F1 +E933- A9 10 LDA #$10 +E935- 84 F2 STY $F2 +E937- 85 F3 STA $F3 +E939- B1 F0 LDA ($F0),Y +E93B- 48 PHA +E93C- B1 F2 LDA ($F2),Y +E93E- 91 F0 STA ($F0),Y +E940- 68 PLA +E941- 91 F2 STA ($F2),Y +E943- C8 INY +E944- D0 F3 BNE $E939 +E946- E6 F1 INC $F1 +E948- E6 F3 INC $F3 +E94A- CA DEX +E94B- D0 EC BNE $E939 +E94D- 60 RTS +E94E- 20 66 EB JSR $EB66 +E951- 20 BE E9 JSR $E9BE +E954- 20 C7 E9 JSR $E9C7 +E957- 20 F7 E9 JSR $E9F7 +E95A- A9 08 LDA #$08 +E95C- 8D 63 EA STA $EA63 +E95F- A9 02 LDA #$02 +E961- 8D 0A 8A STA $8A0A +E964- A2 00 LDX #$00 +E966- 20 8A EB JSR $EB8A +E969- C9 20 CMP #$20 +E96B- 90 06 BCC $E973 +E96D- 9D 00 BB STA $BB00,X +E970- E8 INX +E971- D0 F3 BNE $E966 +E973- 0A ASL +E974- A8 TAY +E975- B9 89 E9 LDA $E989,Y +E978- 8D 83 E9 STA $E983 +E97B- B9 8A E9 LDA $E98A,Y +E97E- 8D 84 E9 STA $E984 +E981- 18 CLC +E982- 20 FF FF JSR $FFFF +E985- 90 DF BCC $E966 +E987- B0 DB BCS $E964 +E989- BB ??? +E98A- E9 BE SBC #$BE +E98C- E9 C1 SBC #$C1 +E98E- E9 C7 SBC #$C7 +E990- E9 CA SBC #$CA +E992- E9 CD SBC #$CD +E994- E9 E6 SBC #$E6 +E996- E9 F7 SBC #$F7 +E998- E9 FA SBC #$FA +E99A- E9 07 SBC #$07 +E99C- EA NOP +E99D- 25 EA AND $EA +E99F- D3 ??? +E9A0- E9 E9 SBC #$E9 +E9A2- E9 51 SBC #$51 +E9A4- EA NOP +E9A5- 69 EA ADC #$EA +E9A7- 81 EA STA ($EA,X) +E9A9- 84 EA STY $EA +E9AB- 7D EA F0 ADC $F0EA,X +E9AE- E9 8D SBC #$8D +E9B0- E1 2D SBC ($2D,X) +E9B2- EA NOP +E9B3- 44 ??? +E9B4- EA NOP +E9B5- 00 BRK +E9B6- EA NOP +E9B7- 87 ??? +E9B8- EA NOP +E9B9- EE EA 68 INC $68EA +E9BC- 68 PLA +E9BD- 60 RTS +E9BE- A9 02 LDA #$02 +E9C0- 2C A9 03 BIT $03A9 +E9C3- 8D 03 8A STA $8A03 +E9C6- 60 RTS +E9C7- A9 00 LDA #$00 +E9C9- 2C A9 01 BIT $01A9 +E9CC- 2C A9 02 BIT $02A9 +E9CF- 8D 04 8A STA $8A04 +E9D2- 60 RTS +E9D3- 20 8A EB JSR $EB8A +E9D6- 8D 05 8A STA $8A05 +E9D9- 8D 55 EA STA $EA55 +E9DC- 20 8A EB JSR $EB8A +E9DF- 8D 06 8A STA $8A06 +E9E2- 8D 57 EA STA $EA57 +E9E5- 60 RTS +E9E6- 20 D3 E9 JSR $E9D3 +E9E9- 20 8A EB JSR $EB8A +E9EC- 8D 07 8A STA $8A07 +E9EF- 60 RTS +E9F0- 20 8A EB JSR $EB8A +E9F3- 8D 0A 8A STA $8A0A +E9F6- 60 RTS +E9F7- A9 00 LDA #$00 +E9F9- 2C A9 01 BIT $01A9 +E9FC- 8D 0B 8A STA $8A0B +E9FF- 60 RTS +EA00- 20 8A EB JSR $EB8A +EA03- 8D 0E 8A STA $8A0E +EA06- 60 RTS +EA07- 20 8A EB JSR $EB8A +EA0A- 8D 16 EA STA $EA16 +EA0D- 20 8A EB JSR $EB8A +EA10- 8D 17 EA STA $EA17 +EA13- A0 00 LDY #$00 +EA15- B9 FF FF LDA $FFFF,Y +EA18- F0 11 BEQ $EA2B +EA1A- C9 20 CMP #$20 +EA1C- 90 04 BCC $EA22 +EA1E- 9D 00 BB STA $BB00,X +EA21- E8 INX +EA22- C8 INY +EA23- D0 F0 BNE $EA15 +EA25- 20 8A EB JSR $EB8A +EA28- 8D 63 EA STA $EA63 +EA2B- 18 CLC +EA2C- 60 RTS +EA2D- 20 69 EA JSR $EA69 +EA30- 20 8A EB JSR $EB8A +EA33- 18 CLC +EA34- 6D 55 EA ADC $EA55 +EA37- 8D 05 8A STA $8A05 +EA3A- AD 57 EA LDA $EA57 +EA3D- 69 00 ADC #$00 +EA3F- 8D 06 8A STA $8A06 +EA42- 38 SEC +EA43- 60 RTS +EA44- 20 2D EA JSR $EA2D +EA47- 8D 57 EA STA $EA57 +EA4A- AD 05 8A LDA $8A05 +EA4D- 8D 55 EA STA $EA55 +EA50- 60 RTS +EA51- 20 69 EA JSR $EA69 +EA54- A0 00 LDY #$00 +EA56- A9 00 LDA #$00 +EA58- 8C 05 8A STY $8A05 +EA5B- 8D 06 8A STA $8A06 +EA5E- AD 07 8A LDA $8A07 +EA61- 18 CLC +EA62- 69 00 ADC #$00 +EA64- 8D 07 8A STA $8A07 +EA67- 38 SEC +EA68- 60 RTS +EA69- A9 00 LDA #$00 +EA6B- 9D 00 BB STA $BB00,X +EA6E- A0 00 LDY #$00 +EA70- A9 BB LDA #$BB +EA72- 8C 0C 8A STY $8A0C +EA75- 8D 0D 8A STA $8A0D +EA78- 20 00 8A JSR $8A00 +EA7B- 38 SEC +EA7C- 60 RTS +EA7D- 20 8A EB JSR $EB8A +EA80- 2C A9 00 BIT $00A9 +EA83- 2C A9 7F BIT $7FA9 +EA86- 2C A9 FF BIT $FFA9 +EA89- 0A ASL +EA8A- 08 PHP +EA8B- 4A LSR +EA8C- A8 TAY +EA8D- 28 PLP +EA8E- A9 A0 LDA #$A0 +EA90- 90 01 BCC $EA93 +EA92- 0A ASL +EA93- 09 09 ORA #$09 +EA95- 48 PHA +EA96- A2 00 LDX #$00 +EA98- 20 8A EB JSR $EB8A +EA9B- C9 FF CMP #$FF +EA9D- F0 02 BEQ $EAA1 +EA9F- 95 3A STA $3A,X +EAA1- E8 INX +EAA2- E0 04 CPX #$04 +EAA4- 90 F2 BCC $EA98 +EAA6- 68 PLA +EAA7- 20 D0 EE JSR $EED0 +EAAA- 38 SEC +EAAB- 60 RTS +EAAC- 20 66 EB JSR $EB66 +EAAF- 20 86 EB JSR $EB86 +EAB2- 8E E5 EA STX $EAE5 +EAB5- 85 F2 STA $F2 +EAB7- 20 86 EB JSR $EB86 +EABA- 86 F0 STX $F0 +EABC- 85 F1 STA $F1 +EABE- 20 96 EB JSR $EB96 +EAC1- 20 D8 EA JSR $EAD8 +EAC4- A0 00 LDY #$00 +EAC6- B1 F0 LDA ($F0),Y +EAC8- E6 F0 INC $F0 +EACA- D0 02 BNE $EACE +EACC- E6 F1 INC $F1 +EACE- AA TAX +EACF- D0 F5 BNE $EAC6 +EAD1- C6 F2 DEC $F2 +EAD3- D0 EC BNE $EAC1 +EAD5- 4C A3 EB JMP $EBA3 +EAD8- A6 F0 LDX $F0 +EADA- A5 F1 LDA $F1 +EADC- 8E E7 EA STX $EAE7 +EADF- 8D E8 EA STA $EAE8 +EAE2- 20 4E E9 JSR $E94E +EAE5- 05 09 ORA $09 +EAE7- FF ??? +EAE8- FF ??? +EAE9- 0D 00 60 ORA $6000 +EAEC- 56 EB LSR $EB,X +EAEE- AD 2E EB LDA $EB2E +EAF1- 6C EC EA JMP ($EAEC) +EAF4- 20 66 EB JSR $EB66 +EAF7- 20 86 EB JSR $EB86 +EAFA- 8E 2B EB STX $EB2B +EAFD- 8D 2C EB STA $EB2C +EB00- 20 8A EB JSR $EB8A +EB03- 8D 08 8E STA $8E08 +EB06- 20 86 EB JSR $EB86 +EB09- 8E 24 EB STX $EB24 +EB0C- 8D 25 EB STA $EB25 +EB0F- 20 8A EB JSR $EB8A +EB12- 8D 26 EB STA $EB26 +EB15- A2 22 LDX #$22 +EB17- A0 EB LDY #$EB +EB19- 8E 06 8E STX $8E06 +EB1C- 8C 07 8E STY $8E07 +EB1F- 4C 03 8E JMP $8E03 +EB22- 02 ??? +EB23- 00 BRK +EB24- 00 BRK +EB25- 00 BRK +EB26- 00 BRK +EB27- 00 BRK +EB28- 00 BRK +EB29- 02 ??? +EB2A- 00 BRK +EB2B- 00 BRK +EB2C- 00 BRK +EB2D- 00 BRK +EB2E- 00 BRK +EB2F- 20 4E E9 JSR $E94E +EB32- 0F ??? +EB33- 00 BRK +EB34- 00 BRK +EB35- 28 PLP +EB36- C0 00 CPY #$00 +EB38- 2C 57 C0 BIT $C057 rw:HIRES +EB3B- 2C 52 C0 BIT $C052 rw:MIXCLR +EB3E- 2C 50 C0 BIT $C050 rw:TXTCLR +EB41- 60 RTS +EB42- 20 4E E9 JSR $E94E +EB45- 0F ??? +EB46- 01 11 ORA ($11,X) +EB48- 26 A5 ROL $A5 +EB4A- 00 BRK +EB4B- 60 RTS +EB4C- 20 4E E9 JSR $E94E +EB4F- 0F ??? +EB50- 01 1C ORA ($1C,X) +EB52- 26 9A ROL $9A +EB54- 00 BRK +EB55- 60 RTS +EB56- EE 2E EB INC $EB2E +EB59- 4C BA EC JMP $ECBA +EB5C- 20 4E E9 JSR $E94E +EB5F- 0F ??? +EB60- 01 1F ORA ($1F,X) +EB62- 26 97 ROL $97 +EB64- 00 BRK +EB65- 60 RTS +EB66- BA TSX +EB67- BD 03 01 LDA $0103,X +EB6A- 8D 93 EB STA $EB93 +EB6D- BD 04 01 LDA $0104,X +EB70- 8D 94 EB STA $EB94 +EB73- A9 7D LDA #$7D +EB75- 9D 03 01 STA $0103,X +EB78- A9 EB LDA #$EB +EB7A- 9D 04 01 STA $0104,X +EB7D- 60 RTS +EB7E- 48 PHA +EB7F- 20 8A EB JSR $EB8A +EB82- 68 PLA +EB83- 6C 93 EB JMP ($EB93) +EB86- 20 8A EB JSR $EB8A +EB89- AA TAX +EB8A- EE 93 EB INC $EB93 +EB8D- D0 03 BNE $EB92 +EB8F- EE 94 EB INC $EB94 +EB92- AD FF FF LDA $FFFF +EB95- 60 RTS +EB96- AC 93 EB LDY $EB93 +EB99- AD 94 EB LDA $EB94 +EB9C- 8C A4 EB STY $EBA4 +EB9F- 8D A6 EB STA $EBA6 +EBA2- 60 RTS +EBA3- A0 00 LDY #$00 +EBA5- A9 00 LDA #$00 +EBA7- 8C 93 EB STY $EB93 +EBAA- 8D 94 EB STA $EB94 +EBAD- 60 RTS +EBAE- 8C CC EC STY $ECCC +EBB1- AD 1E E0 LDA $E01E +EBB4- 8D 42 EC STA $EC42 +EBB7- 4E 1E E0 LSR $E01E +EBBA- 20 66 EB JSR $EB66 +EBBD- A2 00 LDX #$00 +EBBF- 8E B7 EC STX $ECB7 +EBC2- 20 8A EB JSR $EB8A +EBC5- 9D CD EC STA $ECCD,X +EBC8- E8 INX +EBC9- E0 06 CPX #$06 +EBCB- 90 F5 BCC $EBC2 +EBCD- 0E CD EC ASL $ECCD +EBD0- A0 16 LDY #$16 +EBD2- B0 02 BCS $EBD6 +EBD4- A0 FF LDY #$FF +EBD6- 8C 30 EC STY $EC30 +EBD9- 4E CD EC LSR $ECCD +EBDC- AD CC EC LDA $ECCC +EBDF- 20 A0 EC JSR $ECA0 +EBE2- 20 6E EC JSR $EC6E +EBE5- 20 96 EB JSR $EB96 +EBE8- 20 C4 EC JSR $ECC4 +EBEB- 20 A3 EB JSR $EBA3 +EBEE- A0 00 LDY #$00 +EBF0- 20 18 E0 JSR $E018 +EBF3- B0 1A BCS $EC0F +EBF5- 0A ASL +EBF6- 30 17 BMI $EC0F +EBF8- B0 41 BCS $EC3B +EBFA- 98 TYA +EBFB- 4A LSR +EBFC- 4A LSR +EBFD- C9 00 CMP #$00 +EBFF- 8D FE EB STA $EBFE +EC02- F0 0B BEQ $EC0F +EC04- CD D0 EC CMP $ECD0 +EC07- 90 48 BCC $EC51 +EC09- AE D0 EC LDX $ECD0 +EC0C- CA DEX +EC0D- 10 3E BPL $EC4D +EC0F- 20 67 E1 JSR $E167 +EC12- 10 DA BPL $EBEE +EC14- AE CC EC LDX $ECCC +EC17- C9 08 CMP #$08 +EC19- F0 40 BEQ $EC5B +EC1B- C9 0B CMP #$0B +EC1D- F0 3C BEQ $EC5B +EC1F- C9 15 CMP #$15 +EC21- F0 41 BEQ $EC64 +EC23- C9 0A CMP #$0A +EC25- F0 3D BEQ $EC64 +EC27- C9 1B CMP #$1B +EC29- F0 11 BEQ $EC3C +EC2B- C9 0D CMP #$0D +EC2D- F0 0C BEQ $EC3B +EC2F- C9 00 CMP #$00 +EC31- F0 05 BEQ $EC38 +EC33- 20 8E EC JSR $EC8E +EC36- D0 B6 BNE $EBEE +EC38- 6E B7 EC ROR $ECB7 +EC3B- 18 CLC +EC3C- 08 PHP +EC3D- 20 6E EC JSR $EC6E +EC40- 28 PLP +EC41- A9 00 LDA #$00 +EC43- 8D 1E E0 STA $E01E +EC46- AD B7 EC LDA $ECB7 +EC49- AC CC EC LDY $ECCC +EC4C- 60 RTS +EC4D- 8A TXA +EC4E- 20 A0 EC JSR $ECA0 +EC51- 48 PHA +EC52- 20 6E EC JSR $EC6E +EC55- 68 PLA +EC56- 8D CC EC STA $ECCC +EC59- 10 87 BPL $EBE2 +EC5B- CA DEX +EC5C- 10 EF BPL $EC4D +EC5E- AE D0 EC LDX $ECD0 +EC61- CA DEX +EC62- 10 E9 BPL $EC4D +EC64- E8 INX +EC65- EC D0 EC CPX $ECD0 +EC68- 90 E3 BCC $EC4D +EC6A- A2 00 LDX #$00 +EC6C- F0 DF BEQ $EC4D +EC6E- AD CC EC LDA $ECCC +EC71- 0A ASL +EC72- 0A ASL +EC73- 0A ASL +EC74- 6D CF EC ADC $ECCF +EC77- 85 3B STA $3B +EC79- A9 09 LDA #$09 +EC7B- 85 3D STA $3D +EC7D- AC CD EC LDY $ECCD +EC80- AD CE EC LDA $ECCE +EC83- 84 3A STY $3A +EC85- 85 3C STA $3C +EC87- A9 49 LDA #$49 +EC89- A0 7F LDY #$7F +EC8B- 4C D0 EE JMP $EED0 +EC8E- AC B7 EC LDY $ECB7 +EC91- D9 B0 EC CMP $ECB0,Y +EC94- F0 03 BEQ $EC99 +EC96- A0 FF LDY #$FF +EC98- 24 C8 BIT $C8 +EC9A- 8C B7 EC STY $ECB7 +EC9D- A9 01 LDA #$01 +EC9F- 60 RTS +ECA0- 48 PHA +ECA1- 8D FE EB STA $EBFE +ECA4- 0A ASL +ECA5- 0A ASL +ECA6- 69 02 ADC #$02 +ECA8- A8 TAY +ECA9- A2 00 LDX #$00 +ECAB- 20 1B E0 JSR $E01B +ECAE- 68 PLA +ECAF- 60 RTS +ECB0- 53 ??? +ECB1- 54 ??? +ECB2- 45 56 EOR $56 +ECB4- 45 4E EOR $4E +ECB6- 00 BRK +ECB7- 00 BRK +ECB8- D4 ??? +ECB9- EC 29 07 CPX $0729 +ECBC- F0 03 BEQ $ECC1 +ECBE- 18 CLC +ECBF- 60 RTS +ECC0- 6D 6C B8 ADC $B86C +ECC3- EC AD CC CPX $CCAD +ECC6- EC 0A AA CPX $AA0A +ECC9- 6C D1 EC JMP ($ECD1) +ECCC- 00 BRK +ECCD- 00 BRK +ECCE- 00 BRK +ECCF- 00 BRK +ECD0- 00 BRK +ECD1- 00 BRK +ECD2- 00 BRK +ECD3- 20 20 E0 JSR $E020 +ECD6- BC 18 60 LDY $6018,X +ECD9- 20 66 EB JSR $EB66 +ECDC- 20 86 EB JSR $EB86 +ECDF- 86 F0 STX $F0 +ECE1- 85 F1 STA $F1 +ECE3- 88 DEY +ECE4- 10 F6 BPL $ECDC +ECE6- 68 PLA +ECE7- 68 PLA +ECE8- 6C F0 00 JMP ($00F0) +ECEB- A9 00 LDA #$00 +ECED- 8D 41 ED STA $ED41 +ECF0- 20 66 EB JSR $EB66 +ECF3- 20 8A EB JSR $EB8A +ECF6- 8D 1B ED STA $ED1B +ECF9- 10 06 BPL $ED01 +ECFB- 20 8A EB JSR $EB8A +ECFE- 8D 41 ED STA $ED41 +ED01- 20 8A EB JSR $EB8A +ED04- C9 01 CMP #$01 +ED06- F0 5F BEQ $ED67 +ED08- 8D 53 ED STA $ED53 +ED0B- 20 8A EB JSR $EB8A +ED0E- AA TAX +ED0F- 20 8A EB JSR $EB8A +ED12- 8D 3B ED STA $ED3B +ED15- 20 8A EB JSR $EB8A +ED18- 85 F0 STA $F0 +ED1A- A9 00 LDA #$00 +ED1C- 29 7F AND #$7F +ED1E- C9 56 CMP #$56 +ED20- F0 0B BEQ $ED2D +ED22- 20 3A ED JSR $ED3A +ED25- E8 INX +ED26- C6 F0 DEC $F0 +ED28- D0 F8 BNE $ED22 +ED2A- 4C 01 ED JMP $ED01 +ED2D- 20 3A ED JSR $ED3A +ED30- EE 3B ED INC $ED3B +ED33- C6 F0 DEC $F0 +ED35- D0 F6 BNE $ED2D +ED37- 4C 01 ED JMP $ED01 +ED3A- A0 00 LDY #$00 +ED3C- B9 C0 91 LDA $91C0,Y +ED3F- 18 CLC +ED40- 69 00 ADC #$00 +ED42- 85 F8 STA $F8 +ED44- B9 00 91 LDA $9100,Y +ED47- 85 F9 STA $F9 +ED49- 84 F2 STY $F2 +ED4B- BC 98 93 LDY $9398,X +ED4E- 98 TYA +ED4F- 45 F2 EOR $F2 +ED51- 4A LSR +ED52- A9 00 LDA #$00 +ED54- 90 01 BCC $ED57 +ED56- 4A LSR +ED57- 3D B0 94 AND $94B0,X +ED5A- 85 F2 STA $F2 +ED5C- BD B0 94 LDA $94B0,X +ED5F- 49 FF EOR #$FF +ED61- 31 F8 AND ($F8),Y +ED63- 05 F2 ORA $F2 +ED65- 91 F8 STA ($F8),Y +ED67- 60 RTS +ED68- 85 F0 STA $F0 +ED6A- 20 4A FF JSR $FF4A F8ROM:SAVE +ED6D- 20 66 EB JSR $EB66 +ED70- 20 8A EB JSR $EB8A +ED73- F0 15 BEQ $ED8A +ED75- 45 F0 EOR $F0 +ED77- 48 PHA +ED78- 20 86 EB JSR $EB86 +ED7B- 86 F1 STX $F1 +ED7D- 85 F2 STA $F2 +ED7F- 68 PLA +ED80- D0 EE BNE $ED70 +ED82- 68 PLA +ED83- 68 PLA +ED84- 20 3F FF JSR $FF3F F8ROM:RESTORE +ED87- 6C F1 00 JMP ($00F1) +ED8A- 4C 3F FF JMP $FF3F F8ROM:RESTORE +ED8D- 8E A6 ED STX $EDA6 +ED90- 8C A7 ED STY $EDA7 +ED93- 0A ASL +ED94- 0A ASL +ED95- 8D 3E EE STA $EE3E +ED98- 8A TXA +ED99- 0A ASL +ED9A- 0A ASL +ED9B- 0A ASL +ED9C- 38 SEC +ED9D- ED A6 ED SBC $EDA6 +EDA0- 8D 4F EE STA $EE4F +EDA3- 20 8A E1 JSR $E18A +EDA6- 1A INC +EDA7- 01 06 ORA ($06,X) +EDA9- 25 82 AND $82 +EDAB- 40 RTI +EDAC- 01 84 ORA ($84,X) +EDAE- 60 RTS +EDAF- 03 ??? +EDB0- 84 30 STY $30 +EDB2- 06 84 ASL $84 +EDB4- 18 CLC +EDB5- 0C 84 0C TSB $0C84 +EDB8- 18 CLC +EDB9- 84 06 STY $06 +EDBB- 30 84 BMI $ED41 +EDBD- 03 ??? +EDBE- 60 RTS +EDBF- 83 ??? +EDC0- 40 RTI +EDC1- 01 40 ORA ($40,X) +EDC3- 01 82 ORA ($82,X) +EDC5- 60 RTS +EDC6- 01 40 ORA ($40,X) +EDC8- 03 ??? +EDC9- 82 ??? +EDCA- 40 RTI +EDCB- 01 40 ORA ($40,X) +EDCD- 01 82 ORA ($82,X) +EDCF- 40 RTI +EDD0- 01 40 ORA ($40,X) +EDD2- 01 82 ORA ($82,X) +EDD4- 46 01 LSR $01 +EDD6- 40 RTI +EDD7- 31 82 AND ($82),Y +EDD9- 47 ??? +EDDA- 01 40 ORA ($40,X) +EDDC- 71 81 ADC ($81),Y +EDDE- 40 RTI +EDDF- 7D 01 40 ADC $4001,X +EDE2- 5F ??? +EDE3- 01 60 ORA ($60,X) +EDE5- 84 03 STY $03 +EDE7- 30 84 BMI $ED6D +EDE9- 06 18 ASL $18 +EDEB- 84 0C STY $0C +EDED- 0C 84 18 TSB $1884 +EDF0- 06 84 ASL $84 +EDF2- 30 0C BMI $EE00 +EDF4- 84 18 STY $18 +EDF6- 18 CLC +EDF7- 84 0C STY $0C +EDF9- 30 84 BMI $ED7F +EDFB- 06 60 ASL $60 +EDFD- 84 03 STY $03 +EDFF- 40 RTI +EE00- 7D 01 40 ADC $4001,X +EE03- 5F ??? +EE04- 01 81 ORA ($81,X) +EE06- 47 ??? +EE07- 01 40 ORA ($40,X) +EE09- 71 82 ADC ($82),Y +EE0B- 46 01 LSR $01 +EE0D- 40 RTI +EE0E- 31 82 AND ($82),Y +EE10- 40 RTI +EE11- 01 40 ORA ($40,X) +EE13- 01 82 ORA ($82,X) +EE15- 40 RTI +EE16- 01 40 ORA ($40,X) +EE18- 01 82 ORA ($82,X) +EE1A- 60 RTS +EE1B- 01 40 ORA ($40,X) +EE1D- 03 ??? +EE1E- 82 ??? +EE1F- 40 RTI +EE20- 01 40 ORA ($40,X) +EE22- 01 83 ORA ($83,X) +EE24- 03 ??? +EE25- 60 RTS +EE26- 84 06 STY $06 +EE28- 30 84 BMI $EDAE +EE2A- 0C 18 84 TSB $8418 +EE2D- 18 CLC +EE2E- 0C 84 30 TSB $3084 +EE31- 06 84 ASL $84 +EE33- 60 RTS +EE34- 03 ??? +EE35- 84 40 STY $40 +EE37- 01 82 ORA ($82,X) +EE39- A9 00 LDA #$00 +EE3B- 85 F5 STA $F5 +EE3D- A0 00 LDY #$00 +EE3F- EE 3E EE INC $EE3E +EE42- B9 70 EE LDA $EE70,Y +EE45- 8D 64 EE STA $EE64 +EE48- A4 F5 LDY $F5 +EE4A- B9 78 EE LDA $EE78,Y +EE4D- 18 CLC +EE4E- 69 00 ADC #$00 +EE50- 8D 61 EE STA $EE61 +EE53- B9 7C EE LDA $EE7C,Y +EE56- 6D A7 ED ADC $EDA7 +EE59- 8D 63 EE STA $EE63 +EE5C- 20 4E E9 JSR $E94E +EE5F- 05 06 ORA $06 +EE61- 00 BRK +EE62- 00 BRK +EE63- 00 BRK +EE64- 20 0E 00 JSR $000E +EE67- E6 F5 INC $F5 +EE69- A5 F5 LDA $F5 +EE6B- C9 04 CMP #$04 +EE6D- 90 CE BCC $EE3D +EE6F- 60 RTS +EE70- 49 4A EOR #$4A +EE72- 4B ??? +EE73- 4D 57 41 EOR $4157 +EE76- 53 ??? +EE77- 5A PHY +EE78- 15 0C ORA $0C,X +EE7A- 1E 15 07 ASL $0715,X +EE7D- 0F ??? +EE7E- 0F ??? +EE7F- 17 ??? +EE80- A0 FF LDY #$FF +EE82- 38 SEC +EE83- C8 INY +EE84- E9 0A SBC #$0A +EE86- B0 FB BCS $EE83 +EE88- 69 0A ADC #$0A +EE8A- 60 RTS +EE8B- 8E C7 EE STX $EEC7 +EE8E- 8C AC EE STY $EEAC +EE91- 20 80 EE JSR $EE80 +EE94- 48 PHA +EE95- 20 9D EE JSR $EE9D +EE98- 68 PLA +EE99- EE C7 EE INC $EEC7 +EE9C- A8 TAY +EE9D- B9 86 85 LDA $8586,Y +EEA0- 85 F6 STA $F6 +EEA2- B9 C1 85 LDA $85C1,Y +EEA5- 85 F7 STA $F7 +EEA7- A9 07 LDA #$07 +EEA9- 85 F2 STA $F2 +EEAB- A2 00 LDX #$00 +EEAD- BD C0 91 LDA $91C0,X +EEB0- 85 F8 STA $F8 +EEB2- BD 00 91 LDA $9100,X +EEB5- 85 F9 STA $F9 +EEB7- A0 00 LDY #$00 +EEB9- B1 F6 LDA ($F6),Y +EEBB- E6 F6 INC $F6 +EEBD- D0 02 BNE $EEC1 +EEBF- E6 F7 INC $F7 +EEC1- 4A LSR +EEC2- A8 TAY +EEC3- B9 80 90 LDA $9080,Y +EEC6- A0 00 LDY #$00 +EEC8- 91 F8 STA ($F8),Y +EECA- E8 INX +EECB- C6 F2 DEC $F2 +EECD- D0 DE BNE $EEAD +EECF- 60 RTS +EED0- 8D EA EE STA $EEEA +EED3- 8C EB EE STY $EEEB +EED6- A6 3B LDX $3B +EED8- BD 00 91 LDA $9100,X +EEDB- 85 41 STA $41 +EEDD- BD C0 91 LDA $91C0,X +EEE0- 18 CLC +EEE1- 65 3A ADC $3A +EEE3- 85 40 STA $40 +EEE5- A4 3C LDY $3C +EEE7- 88 DEY +EEE8- B1 40 LDA ($40),Y +EEEA- 49 7F EOR #$7F +EEEC- 91 40 STA ($40),Y +EEEE- 88 DEY +EEEF- 10 F7 BPL $EEE8 +EEF1- A5 3E LDA $3E +EEF3- 18 CLC +EEF4- 65 3C ADC $3C +EEF6- 85 3E STA $3E +EEF8- 90 02 BCC $EEFC +EEFA- E6 3F INC $3F +EEFC- E8 INX +EEFD- C6 3D DEC $3D +EEFF- D0 D7 BNE $EED8 +EF01- 60 RTS +EF02- 8D 08 EF STA $EF08 +EF05- 20 8A E1 JSR $E18A +EF08- 1A INC +EF09- B5 0E LDA $0E,X +EF0B- 0B ??? +EF0C- 78 SEI +EF0D- 79 79 79 ADC $7979,Y +EF10- 3C 70 79 BIT $7970,X +EF13- 71 71 ADC ($71),Y +EF15- 7D 70 63 ADC $6370,X +EF18- 73 ??? +EF19- 03 ??? +EF1A- 18 CLC +EF1B- 1B ??? +EF1C- 1B ??? +EF1D- 0C 06 18 TSB $1806 +EF20- 18 CLC +EF21- 1B ??? +EF22- 1B ??? +EF23- 0C 30 36 TSB $3630 +EF26- 36 06 ROL $06,X +EF28- 78 SEI +EF29- 79 79 78 ADC $7879,Y +EF2C- 3C 70 79 BIT $7970,X +EF2F- 79 1B 3C ADC $3C1B,Y +EF32- 70 73 BVS $EFA7 +EF34- 77 ??? +EF35- 03 ??? +EF36- 18 CLC +EF37- 58 CLI +EF38- 19 40 61 ORA $6140,Y +EF3B- 81 1B STA ($1B,X) +EF3D- 18 CLC +EF3E- 1B ??? +EF3F- 0C 30 36 TSB $3630 +EF42- 36 03 ROL $03,X +EF44- 18 CLC +EF45- 18 CLC +EF46- 7B ??? +EF47- 79 3C 70 ADC $703C,Y +EF4A- 19 18 73 ORA $7318,Y +EF4D- 7D 70 33 ADC $3370,X +EF50- 36 06 ROL $06,X +EF52- 91 78 STA ($78),Y +EF54- 79 7C 70 ADC $707C,Y +EF57- 1C 4F 4F TRB $4F4F +EF5A- 0F ??? +EF5B- 86 18 STX $18 +EF5D- 4C 4D 71 JMP $714D +EF60- 5F ??? +EF61- 59 59 01 EOR $0159,Y +EF64- 86 78 STX $78 +EF66- 4C 7D 30 JMP $307D +EF69- 5B ??? +EF6A- 59 4F 07 EOR $074F,Y +EF6D- 86 18 STX $18 +EF6F- 4C 6D 30 JMP $306D +EF72- 58 CLI +EF73- 59 4D 01 EOR $014D,Y +EF76- 86 18 STX $18 +EF78- 78 SEI +EF79- 4C 31 18 JMP $1831 +EF7C- 4F ??? +EF7D- 59 0F 83 EOR $830F,Y +EF80- 60 RTS +EF81- 20 4E E9 JSR $E94E +EF84- 10 00 BPL $EF86 +EF86- B7 ??? +EF87- 28 PLP +EF88- 09 00 ORA #$00 +EF8A- 20 A1 E0 JSR $E0A1 +EF8D- 20 4E E9 JSR $E94E +EF90- 06 8C ASL $8C +EF92- 00 BRK +EF93- AE 05 3C LDX $3C05 +EF96- 45 53 EOR $53 +EF98- 43 ??? +EF99- 3E 20 54 ROL $5420,X +EF9C- 4F ??? +EF9D- 20 47 4F JSR $4F47 +EFA0- 20 54 4F JSR $4F54 +EFA3- 20 4D 41 JSR $414D +EFA6- 49 4E EOR #$4E +EFA8- 20 4D 45 JSR $454D +EFAB- 4E 55 0D LSR $0D55 +EFAE- 00 BRK +EFAF- 20 81 E1 JSR $E181 +EFB2- C9 1B CMP #$1B +EFB4- D0 03 BNE $EFB9 +EFB6- 4C 00 08 JMP $0800 +EFB9- 20 4E E9 JSR $E94E +EFBC- 0F ??? +EFBD- 01 AE ORA ($AE,X) +EFBF- 26 07 ROL $07 +EFC1- 00 BRK +EFC2- 4C 08 E2 JMP $E208 +EFC5- A9 00 LDA #$00 +EFC7- 0A ASL +EFC8- 90 5F BCC $F029 +EFCA- 20 42 EB JSR $EB42 +EFCD- 20 4E E9 JSR $E94E +EFD0- 06 8C ASL $8C +EFD2- 00 BRK +EFD3- 40 RTI +EFD4- 05 42 ORA $42 +EFD6- 45 46 EOR $46 +EFD8- 4F ??? +EFD9- 52 45 EOR ($45) +EFDB- 20 53 41 JSR $4153 +EFDE- 56 49 LSR $49,X +EFE0- 4E 47 20 LSR $2047 +EFE3- 59 4F 55 EOR $554F,Y +EFE6- 52 20 EOR ($20) +EFE8- 09 5D ORA #$5D +EFEA- E2 ??? +EFEB- 2C 0D 44 BIT $440D +EFEE- 4F ??? +EFEF- 20 59 4F JSR $4F59 +EFF2- 55 20 EOR $20,X +EFF4- 4E 45 45 LSR $4545 +EFF7- 44 ??? +EFF8- 20 54 4F JSR $4F54 +EFFB- 20 09 D8 JSR $D809 +EFFE- E0 0D CPX #$0D +F000- 41 20 EOR ($20,X) +F002- 4E 45 57 LSR $5745 +F005- 20 09 07 JSR $0709 +F008- E1 3F SBC ($3F,X) +F00A- 0D 0D 0D ORA $0D0D +F00D- 4E 4F 0D LSR $0D4F +F010- 59 45 53 EOR $5345,Y +F013- 0D 00 A0 ORA $A000 +F016- 00 BRK +F017- 8C C6 EF STY $EFC6 +F01A- 20 AE EB JSR $EBAE +F01D- 11 06 ORA ($06),Y +F01F- 67 ??? +F020- 02 ??? +F021- 58 CLI +F022- FF ??? +F023- B0 04 BCS $F029 +F025- C0 01 CPY #$01 +F027- F0 01 BEQ $F02A +F029- 60 RTS +F02A- 20 42 EB JSR $EB42 +F02D- 20 4E E9 JSR $E94E +F030- 06 8C ASL $8C +F032- 00 BRK +F033- 28 PLP +F034- 00 BRK +F035- AD F4 95 LDA $95F4 +F038- C9 02 CMP #$02 +F03A- F0 1A BEQ $F056 +F03C- 20 4E E9 JSR $E94E +F03F- 05 52 ORA $52 +F041- 45 4D EOR $4D +F043- 4F ??? +F044- 56 45 LSR $45,X +F046- 20 09 1C JSR $1C09 +F049- E1 09 SBC ($09,X) +F04B- 0B ??? +F04C- E1 20 SBC ($20,X) +F04E- 41 4E EOR ($4E,X) +F050- 44 ??? +F051- 0D 00 4C ORA $4C00 +F054- 5B ??? +F055- F0 20 BEQ $F077 +F057- 4E E9 0D LSR $0DE9 +F05A- 00 BRK +F05B- 20 4E E9 JSR $E94E +F05E- 05 49 ORA $49 +F060- 4E 53 45 LSR $4553 +F063- 52 54 EOR ($54) +F065- 20 42 4C JSR $4C42 +F068- 41 4E EOR ($4E,X) +F06A- 4B ??? +F06B- 09 0B ORA #$0B +F06D- E1 20 SBC ($20,X) +F06F- 09 FC ORA #$FC +F071- E0 0D CPX #$0D +F073- 0D 09 E3 ORA $E309 +F076- E0 20 CPX #$20 +F078- 54 ??? +F079- 4F ??? +F07A- 20 09 D8 JSR $D809 +F07D- E0 09 CPX #$09 +F07F- 0B ??? +F080- E1 2E SBC ($2E,X) +F082- 0D 0D 0D ORA $0D0D +F085- 0D 2A 2A ORA $2A2A +F088- 2A ROL +F089- 2A ROL +F08A- 20 57 20 JSR $2057 +F08D- 41 20 EOR ($20,X) +F08F- 52 20 EOR ($20) +F091- 4E 20 49 LSR $4920 +F094- 20 4E 20 JSR $204E +F097- 47 ??? +F098- 20 2A 2A JSR $2A2A +F09B- 2A ROL +F09C- 2A ROL +F09D- 0D 0D 41 ORA $410D +F0A0- 4C 4C 20 JMP $204C +F0A3- 44 ??? +F0A4- 41 54 EOR ($54,X) +F0A6- 41 20 EOR ($20,X) +F0A8- 4F ??? +F0A9- 4E 20 54 LSR $5420 +F0AC- 48 PHA +F0AD- 49 53 EOR #$53 +F0AF- 09 0B ORA #$0B +F0B1- E1 0D SBC ($0D,X) +F0B3- 57 ??? +F0B4- 49 4C EOR #$4C +F0B6- 4C 20 42 JMP $4220 +F0B9- 45 20 EOR $20 +F0BB- 45 52 EOR $52 +F0BD- 41 53 EOR ($53,X) +F0BF- 45 44 EOR $44 +F0C1- 21 0D AND ($0D,X) +F0C3- 00 BRK +F0C4- 20 81 E1 JSR $E181 +F0C7- C9 0D CMP #$0D +F0C9- F0 07 BEQ $F0D2 +F0CB- C9 1B CMP #$1B +F0CD- D0 F5 BNE $F0C4 +F0CF- 4C CA EF JMP $EFCA +F0D2- 20 42 EB JSR $EB42 +F0D5- 20 4C F1 JSR $F14C +F0D8- B0 4A BCS $F124 +F0DA- 20 2E F1 JSR $F12E +F0DD- 20 4E E9 JSR $E94E +F0E0- 05 49 ORA $49 +F0E2- 4E 20 50 LSR $5020 +F0E5- 52 4F EOR ($4F) +F0E7- 47 ??? +F0E8- 52 45 EOR ($45) +F0EA- 53 ??? +F0EB- 53 ??? +F0EC- 0D 00 20 ORA $2000 +F0EF- EE E5 A0 INC $A0E5 +F0F2- 00 BRK +F0F3- B9 27 F1 LDA $F127,Y +F0F6- F0 06 BEQ $F0FE +F0F8- 20 D3 E0 JSR $E0D3 +F0FB- C8 INY +F0FC- D0 F5 BNE $F0F3 +F0FE- 20 8A E5 JSR $E58A +F101- D0 1E BNE $F121 +F103- 20 ED E8 JSR $E8ED +F106- D0 19 BNE $F121 +F108- 20 42 EB JSR $EB42 +F10B- 20 2E F1 JSR $F12E +F10E- 20 4E E9 JSR $E94E +F111- 05 43 ORA $43 +F113- 4F ??? +F114- 4D 50 4C EOR $4C50 +F117- 45 54 EOR $54 +F119- 45 0D EOR $0D +F11B- 00 BRK +F11C- 20 DF E1 JSR $E1DF +F11F- 18 CLC +F120- 60 RTS +F121- 20 B0 E5 JSR $E5B0 +F124- 4C 2A F0 JMP $F02A +F127- 0D 04 53 ORA $5304 +F12A- 45 45 EOR $45 +F12C- 45 00 EOR $00 +F12E- 20 4E E9 JSR $E94E +F131- 05 06 ORA $06 +F133- 8C 00 40 STY $4000 +F136- 09 0C ORA #$0C +F138- E1 20 SBC ($20,X) +F13A- 49 4E EOR #$4E +F13C- 49 54 EOR #$54 +F13E- 49 41 EOR #$41 +F140- 4C 49 5A JMP $5A49 +F143- 41 54 EOR ($54,X) +F145- 49 4F EOR #$4F +F147- 4E 0D 0D LSR $0D0D +F14A- 00 BRK +F14B- 60 RTS +F14C- AD F4 95 LDA $95F4 +F14F- 20 A3 E8 JSR $E8A3 +F152- 90 02 BCC $F156 +F154- 18 CLC +F155- 60 RTS +F156- AA TAX +F157- F0 FB BEQ $F154 +F159- E0 05 CPX #$05 +F15B- B0 F7 BCS $F154 +F15D- BC A4 F1 LDY $F1A4,X +F160- BD A8 F1 LDA $F1A8,X +F163- 8C 7D F1 STY $F17D +F166- 8D 7E F1 STA $F17E +F169- 20 42 EB JSR $EB42 +F16C- 20 A1 E0 JSR $E0A1 +F16F- 20 4E E9 JSR $E94E +F172- 05 06 ORA $06 +F174- 8C 00 40 STY $4000 +F177- 54 ??? +F178- 48 PHA +F179- 45 20 EOR $20 +F17B- 22 ??? +F17C- 09 FF ORA #$FF +F17E- FF ??? +F17F- 22 ??? +F180- 09 0B ORA #$0B +F182- E1 20 SBC ($20,X) +F184- 43 ??? +F185- 41 4E EOR ($4E,X) +F187- 4E 4F 54 LSR $544F +F18A- 0D 42 45 ORA $4542 +F18D- 20 55 53 JSR $5355 +F190- 45 44 EOR $44 +F192- 20 41 53 JSR $5341 +F195- 20 41 20 JSR $2041 +F198- 09 07 ORA #$07 +F19A- E1 0D SBC ($0D,X) +F19C- 00 BRK +F19D- 20 DF E1 JSR $E1DF +F1A0- 20 42 EB JSR $EB42 +F1A3- 38 SEC +F1A4- 60 RTS +F1A5- 11 11 ORA ($11),Y +F1A7- 1C 1C E1 TRB $E11C +F1AA- E1 E1 SBC ($E1,X) +F1AC- E1 A9 SBC ($A9,X) +F1AE- 8D 85 F1 STA $F185 +F1B1- A0 D6 LDY #$D6 +F1B3- 84 F0 STY $F0 +F1B5- A2 00 LDX #$00 +F1B7- A9 55 LDA #$55 +F1B9- 81 F0 STA ($F0,X) +F1BB- A9 3C LDA #$3C +F1BD- A2 E0 LDX #$E0 +F1BF- A0 0F LDY #$0F +F1C1- 20 D3 F1 JSR $F1D3 +F1C4- A9 36 LDA #$36 +F1C6- A2 19 LDX #$19 +F1C8- A0 3F LDY #$3F +F1CA- 20 D3 F1 JSR $F1D3 +F1CD- A9 36 LDA #$36 +F1CF- A2 B5 LDX #$B5 +F1D1- A0 35 LDY #$35 +F1D3- 86 F2 STX $F2 +F1D5- 0A ASL +F1D6- A2 00 LDX #$00 +F1D8- 38 SEC +F1D9- 6A ROR +F1DA- 85 F3 STA $F3 +F1DC- 98 TYA +F1DD- 18 CLC +F1DE- 51 F2 EOR ($F2),Y +F1E0- 61 F0 ADC ($F0,X) +F1E2- 88 DEY +F1E3- 81 F0 STA ($F0,X) +F1E5- 10 F5 BPL $F1DC +F1E7- 06 F3 ASL $F3 +F1E9- 06 F2 ASL $F2 +F1EB- 60 RTS +F1EC- A9 0D LDA #$0D +F1EE- 20 00 18 JSR $1800 +F1F1- A2 7F LDX #$7F +F1F3- A0 03 LDY #$03 +F1F5- 20 06 18 JSR $1806 +F1F8- A2 7F LDX #$7F +F1FA- A0 03 LDY #$03 +F1FC- 8A TXA +F1FD- 29 1F AND #$1F +F1FF- F0 03 BEQ $F204 +F201- A9 00 LDA #$00 +F203- 2C A9 01 BIT $01A9 +F206- 20 09 18 JSR $1809 +F209- CA DEX +F20A- D0 F0 BNE $F1FC +F20C- 88 DEY +F20D- 10 ED BPL $F1FC +F20F- A2 01 LDX #$01 +F211- A0 01 LDY #$01 +F213- 4C 03 18 JMP $1803 +F216- 8E 73 F2 STX $F273 +F219- 8C 75 F2 STY $F275 +F21C- 48 PHA +F21D- 20 4E E9 JSR $E94E +F220- 06 32 ASL $32 +F222- 00 BRK +F223- 84 45 STY $45 +F225- 4E 54 45 LSR $4554 +F228- 52 20 EOR ($20) +F22A- 4E 4F 2E LSR $2E4F +F22D- 20 4F 46 JSR $464F +F230- 20 47 52 JSR $5247 +F233- 41 50 EOR ($50,X) +F235- 48 PHA +F236- 49 43 EOR #$43 +F238- 3E 0E 00 ROL $000E,X +F23B- A2 3C LDX #$3C +F23D- 86 F0 STX $F0 +F23F- A2 DC LDX #$DC +F241- A0 84 LDY #$84 +F243- 68 PLA +F244- 20 F5 F2 JSR $F2F5 +F247- B0 40 BCS $F289 +F249- 8D 94 F2 STA $F294 +F24C- 8A TXA +F24D- 20 80 EE JSR $EE80 +F250- 8D 71 F2 STA $F271 +F253- 8C 6C F2 STY $F26C +F256- C8 INY +F257- 98 TYA +F258- 09 30 ORA #$30 +F25A- 8D 67 F2 STA $F267 +F25D- 38 SEC +F25E- 20 04 E8 JSR $E804 +F261- B0 26 BCS $F289 +F263- 20 FB E4 JSR $E4FB +F266- 49 58 EOR #$58 +F268- 00 BRK +F269- D0 1A BNE $F285 +F26B- A2 00 LDX #$00 +F26D- 20 A3 F2 JSR $F2A3 +F270- A2 00 LDX #$00 +F272- A0 00 LDY #$00 +F274- A9 00 LDA #$00 +F276- 8E 03 60 STX $6003 +F279- 8C 1C 60 STY $601C +F27C- 8D 20 60 STA $6020 +F27F- 20 00 60 JSR $6000 +F282- 18 CLC +F283- 90 04 BCC $F289 +F285- 20 B0 E5 JSR $E5B0 +F288- 38 SEC +F289- 08 PHP +F28A- 20 4E E9 JSR $E94E +F28D- 0F ??? +F28E- 01 84 ORA ($84,X) +F290- 26 07 ROL $07 +F292- 00 BRK +F293- A9 00 LDA #$00 +F295- 28 PLP +F296- 60 RTS +F297- 77 ??? +F298- 56 3E LSR $3E,X +F29A- 1F ??? +F29B- 02 ??? +F29C- 79 0F 0F ADC $0F0F,Y +F29F- 10 11 BPL $F2B2 +F2A1- 11 14 ORA ($14),Y +F2A3- BC 97 F2 LDY $F297,X +F2A6- BD 9D F2 LDA $F29D,X +F2A9- 84 F0 STY $F0 +F2AB- 18 CLC +F2AC- 69 60 ADC #$60 +F2AE- 85 F1 STA $F1 +F2B0- A0 FF LDY #$FF +F2B2- A9 77 LDA #$77 +F2B4- 84 F2 STY $F2 +F2B6- 85 F3 STA $F3 +F2B8- 20 E8 F2 JSR $F2E8 +F2BB- 85 F4 STA $F4 +F2BD- 20 E8 F2 JSR $F2E8 +F2C0- C5 F4 CMP $F4 +F2C2- D0 08 BNE $F2CC +F2C4- 20 E8 F2 JSR $F2E8 +F2C7- AA TAX +F2C8- 20 E8 F2 JSR $F2E8 +F2CB- 2C A2 01 BIT $01A2 +F2CE- 86 F5 STX $F5 +F2D0- A0 00 LDY #$00 +F2D2- 91 F2 STA ($F2),Y +F2D4- A6 F2 LDX $F2 +F2D6- D0 02 BNE $F2DA +F2D8- C6 F3 DEC $F3 +F2DA- C6 F2 DEC $F2 +F2DC- A6 F3 LDX $F3 +F2DE- E0 60 CPX #$60 +F2E0- 90 12 BCC $F2F4 +F2E2- C6 F5 DEC $F5 +F2E4- D0 EC BNE $F2D2 +F2E6- F0 D5 BEQ $F2BD +F2E8- A4 F0 LDY $F0 +F2EA- D0 02 BNE $F2EE +F2EC- C6 F1 DEC $F1 +F2EE- C6 F0 DEC $F0 +F2F0- A0 00 LDY #$00 +F2F2- B1 F0 LDA ($F0),Y +F2F4- 60 RTS +F2F5- 8E 26 F3 STX $F326 +F2F8- 8C 28 F3 STY $F328 +F2FB- A6 F0 LDX $F0 +F2FD- 8E 4F F3 STX $F34F +F300- AA TAX +F301- F0 18 BEQ $F31B +F303- A2 00 LDX #$00 +F305- C9 0A CMP #$0A +F307- 90 0C BCC $F315 +F309- 20 80 EE JSR $EE80 +F30C- 48 PHA +F30D- 98 TYA +F30E- 09 30 ORA #$30 +F310- 9D 0A BB STA $BB0A,X +F313- E8 INX +F314- 68 PLA +F315- 09 30 ORA #$30 +F317- 9D 0A BB STA $BB0A,X +F31A- E8 INX +F31B- A9 00 LDA #$00 +F31D- 9D 0A BB STA $BB0A,X +F320- 20 F4 EA JSR $EAF4 +F323- 0A ASL +F324- BB ??? +F325- 02 ??? +F326- DC ??? +F327- 00 BRK +F328- 84 B0 STY $B0 +F32A- 2D A0 00 AND $00A0 +F32D- 98 TYA +F32E- BE 0A BB LDX $BB0A,Y +F331- F0 19 BEQ $F34C +F333- E0 30 CPX #$30 +F335- 90 1B BCC $F352 +F337- E0 3A CPX #$3A +F339- B0 17 BCS $F352 +F33B- 85 F0 STA $F0 +F33D- 0A ASL +F33E- 0A ASL +F33F- 65 F0 ADC $F0 +F341- 0A ASL +F342- 86 F0 STX $F0 +F344- 65 F0 ADC $F0 +F346- 38 SEC +F347- E9 30 SBC #$30 +F349- C8 INY +F34A- D0 E2 BNE $F32E +F34C- AA TAX +F34D- CA DEX +F34E- E0 00 CPX #$00 +F350- 90 06 BCC $F358 +F352- 20 90 E0 JSR $E090 +F355- 4C 20 F3 JMP $F320 +F358- 60 RTS +F359- 20 4E E9 JSR $E94E +F35C- 0F ??? +F35D- 00 BRK +F35E- B5 28 LDA $28,X +F360- 0B ??? +F361- 05 06 ORA $06 +F363- 8C 00 B9 STY $B900 +F366- 12 01 ORA ($01) +F368- 50 4C BVC $F3B6 +F36A- 55 47 EOR $47,X +F36C- 20 49 4E JSR $4E49 +F36F- 20 49 4E JSR $4E49 +F372- 50 55 BVC $F3C9 +F374- 54 ??? +F375- 20 44 45 JSR $4544 +F378- 56 49 LSR $49,X +F37A- 43 ??? +F37B- 45 2C EOR $2C +F37D- 20 09 2B JSR $2B09 +F380- E1 0D SBC ($0D,X) +F382- 00 BRK +F383- 20 67 E1 JSR $E167 +F386- 10 FB BPL $F383 +F388- 20 15 E0 JSR $E015 +F38B- 4C F3 F3 JMP $F3F3 +F38E- 20 00 F7 JSR $F700 +F391- B0 3A BCS $F3CD +F393- A2 03 LDX #$03 +F395- BD D3 F3 LDA $F3D3,X +F398- D0 05 BNE $F39F +F39A- CA DEX +F39B- 10 F8 BPL $F395 +F39D- 30 2E BMI $F3CD +F39F- C9 40 CMP #$40 +F3A1- 90 02 BCC $F3A5 +F3A3- A9 40 LDA #$40 +F3A5- 38 SEC +F3A6- E9 01 SBC #$01 +F3A8- 0A ASL +F3A9- 0A ASL +F3AA- 18 CLC +F3AB- 7D CF F3 ADC $F3CF,X +F3AE- AA TAX +F3AF- A0 03 LDY #$03 +F3B1- B9 D7 F3 LDA $F3D7,Y +F3B4- D0 05 BNE $F3BB +F3B6- 88 DEY +F3B7- 10 F8 BPL $F3B1 +F3B9- 30 12 BMI $F3CD +F3BB- C9 40 CMP #$40 +F3BD- 90 02 BCC $F3C1 +F3BF- A9 40 LDA #$40 +F3C1- 38 SEC +F3C2- E9 01 SBC #$01 +F3C4- 0A ASL +F3C5- 0A ASL +F3C6- 18 CLC +F3C7- 79 CF F3 ADC $F3CF,Y +F3CA- A8 TAY +F3CB- 18 CLC +F3CC- 60 RTS +F3CD- 38 SEC +F3CE- 60 RTS +F3CF- 00 BRK +F3D0- 01 02 ORA ($02,X) +F3D2- 03 ??? +F3D3- 00 BRK +F3D4- 00 BRK +F3D5- 00 BRK +F3D6- 00 BRK +F3D7- 00 BRK +F3D8- 00 BRK +F3D9- 00 BRK +F3DA- 00 BRK +F3DB- AD 70 C0 LDA $C070 rw:PTRIG +F3DE- A2 00 LDX #$00 +F3E0- A0 10 LDY #$10 +F3E2- AD 64 C0 LDA $C064 r:PADDL0 +F3E5- 0D 65 C0 ORA $C065 r:PADDL1 +F3E8- 10 08 BPL $F3F2 +F3EA- CA DEX +F3EB- D0 F5 BNE $F3E2 +F3ED- 88 DEY +F3EE- D0 F2 BNE $F3E2 +F3F0- 68 PLA +F3F1- 68 PLA +F3F2- 60 RTS +F3F3- AD C0 FB LDA $FBC0 F8ROM:ZIDBYTE +F3F6- F0 03 BEQ $F3FB +F3F8- 20 1F F4 JSR $F41F +F3FB- 20 41 F5 JSR $F541 +F3FE- 20 41 F6 JSR $F641 +F401- 20 1F F4 JSR $F41F +F404- 20 E0 F6 JSR $F6E0 +F407- 68 PLA +F408- 85 FC STA $FC +F40A- 68 PLA +F40B- 85 FD STA $FD +F40D- A0 0C LDY #$0C +F40F- B1 FC LDA ($FC),Y +F411- 99 11 E0 STA $E011,Y +F414- 88 DEY +F415- D0 F8 BNE $F40F +F417- 68 PLA +F418- 68 PLA +F419- 2C FF CF BIT $CFFF rw:CLRROM +F41C- 4C 12 E0 JMP $E012 +F41F- A0 00 LDY #$00 +F421- A9 C7 LDA #$C7 +F423- 84 FC STY $FC +F425- 85 FD STA $FD +F427- A0 0C LDY #$0C +F429- B1 FC LDA ($FC),Y +F42B- C9 20 CMP #$20 +F42D- D0 2B BNE $F45A +F42F- A0 FB LDY #$FB +F431- B1 FC LDA ($FC),Y +F433- C9 D6 CMP #$D6 +F435- D0 23 BNE $F45A +F437- A5 FD LDA $FD +F439- 8D 99 F4 STA $F499 +F43C- 29 0F AND #$0F +F43E- 8D B1 F4 STA $F4B1 +F441- 0A ASL +F442- 0A ASL +F443- 0A ASL +F444- 0A ASL +F445- 8D 9E F4 STA $F49E +F448- 20 63 F4 JSR $F463 +F44B- 20 07 F4 JSR $F407 +F44E- 4C 6D F4 JMP $F46D +F451- 4C 91 F4 JMP $F491 +F454- 4C A9 F4 JMP $F4A9 +F457- 4C 1E F5 JMP $F51E +F45A- C6 FD DEC $FD +F45C- A5 FD LDA $FD +F45E- C9 C1 CMP #$C1 +F460- B0 C3 BCS $F425 +F462- 60 RTS +F463- A0 19 LDY #$19 +F465- 20 96 F4 JSR $F496 +F468- A9 2C LDA #$2C +F46A- 8D 65 F4 STA $F465 +F46D- A0 12 LDY #$12 +F46F- A9 01 LDA #$01 +F471- 20 96 F4 JSR $F496 +F474- A0 64 LDY #$64 +F476- A9 00 LDA #$00 +F478- AE C0 FB LDX $FBC0 F8ROM:ZIDBYTE +F47B- D0 04 BNE $F481 +F47D- A0 58 LDY #$58 +F47F- A9 02 LDA #$02 +F481- 8C 89 F4 STY $F489 +F484- 8D 8B F4 STA $F48B +F487- 60 RTS +F488- A0 00 LDY #$00 +F48A- A9 00 LDA #$00 +F48C- 84 4E STY $4E +F48E- 85 4F STA $4F +F490- 60 RTS +F491- 78 SEI +F492- A0 12 LDY #$12 +F494- A9 00 LDA #$00 +F496- 48 PHA +F497- B9 00 C4 LDA $C400,Y +F49A- AE 99 F4 LDX $F499 +F49D- A0 00 LDY #$00 +F49F- 8D A7 F4 STA $F4A7 +F4A2- 8E A8 F4 STX $F4A8 +F4A5- 68 PLA +F4A6- 4C 00 C4 JMP $C400 +F4A9- 08 PHP +F4AA- 78 SEI +F4AB- A0 14 LDY #$14 +F4AD- 20 96 F4 JSR $F496 +F4B0- A0 00 LDY #$00 +F4B2- B9 78 07 LDA $0778,Y +F4B5- 48 PHA +F4B6- B9 78 04 LDA $0478,Y +F4B9- 85 FC STA $FC +F4BB- B9 78 05 LDA $0578,Y +F4BE- 85 FD STA $FD +F4C0- 2C 1E E0 BIT $E01E +F4C3- 30 04 BMI $F4C9 +F4C5- 46 FD LSR $FD +F4C7- 66 FC ROR $FC +F4C9- AE C0 FB LDX $FBC0 F8ROM:ZIDBYTE +F4CC- F0 04 BEQ $F4D2 +F4CE- 46 FD LSR $FD +F4D0- 66 FC ROR $FC +F4D2- A6 FC LDX $FC +F4D4- B9 F8 04 LDA $04F8,Y +F4D7- 85 FC STA $FC +F4D9- B9 F8 05 LDA $05F8,Y +F4DC- 85 FD STA $FD +F4DE- 46 FD LSR $FD +F4E0- 66 FC ROR $FC +F4E2- 2C 1E E0 BIT $E01E +F4E5- 30 04 BMI $F4EB +F4E7- 46 FD LSR $FD +F4E9- 66 FC ROR $FC +F4EB- AD C0 FB LDA $FBC0 F8ROM:ZIDBYTE +F4EE- F0 04 BEQ $F4F4 +F4F0- 46 FD LSR $FD +F4F2- 66 FC ROR $FC +F4F4- A4 FC LDY $FC +F4F6- 68 PLA +F4F7- 28 PLP +F4F8- 29 FF AND #$FF +F4FA- 18 CLC +F4FB- 60 RTS +F4FC- 18 CLC +F4FD- 24 38 BIT $38 +F4FF- A0 00 LDY #$00 +F501- 84 FD STY $FD +F503- 90 03 BCC $F508 +F505- 0A ASL +F506- 26 FD ROL $FD +F508- 2C 1E E0 BIT $E01E +F50B- 30 03 BMI $F510 +F50D- 0A ASL +F50E- 26 FD ROL $FD +F510- AE C0 FB LDX $FBC0 F8ROM:ZIDBYTE +F513- F0 03 BEQ $F518 +F515- 0A ASL +F516- 26 FD ROL $FD +F518- AC B1 F4 LDY $F4B1 +F51B- A6 FD LDX $FD +F51D- 60 RTS +F51E- 08 PHP +F51F- 78 SEI +F520- 8C 2F F5 STY $F52F +F523- 8A TXA +F524- 20 FC F4 JSR $F4FC +F527- 99 78 04 STA $0478,Y +F52A- 8A TXA +F52B- 99 78 05 STA $0578,Y +F52E- A9 00 LDA #$00 +F530- 20 FE F4 JSR $F4FE +F533- 99 F8 04 STA $04F8,Y +F536- 8A TXA +F537- 99 F8 05 STA $05F8,Y +F53A- A0 16 LDY #$16 +F53C- 20 96 F4 JSR $F496 +F53F- 28 PLP +F540- 60 RTS +F541- 20 DB F3 JSR $F3DB +F544- 20 6A F5 JSR $F56A +F547- 90 01 BCC $F54A +F549- 60 RTS +F54A- 20 07 F4 JSR $F407 +F54D- 4C C6 F5 JMP $F5C6 +F550- 4C 58 FF JMP $FF58 F8ROM:IORTS +F553- 4C CD F5 JMP $F5CD +F556- 4C 0E F6 JMP $F60E +F559- 00 BRK +F55A- 00 BRK +F55B- 00 BRK +F55C- 00 BRK +F55D- 00 BRK +F55E- 00 BRK +F55F- 00 BRK +F560- 00 BRK +F561- 00 BRK +F562- 00 BRK +F563- 00 BRK +F564- 00 BRK +F565- 00 BRK +F566- 00 BRK +F567- 00 BRK +F568- 00 BRK +F569- 00 BRK +F56A- 20 8E F3 JSR $F38E +F56D- E0 10 CPX #$10 +F56F- B0 04 BCS $F575 +F571- C0 10 CPY #$10 +F573- 90 50 BCC $F5C5 +F575- 8A TXA +F576- 29 FE AND #$FE +F578- CD F9 F6 CMP $F6F9 +F57B- 8D F9 F6 STA $F6F9 +F57E- D0 EA BNE $F56A +F580- 8A TXA +F581- 38 SEC +F582- E9 10 SBC #$10 +F584- B0 02 BCS $F588 +F586- A9 00 LDA #$00 +F588- 2C 1E E0 BIT $E01E +F58B- 30 01 BMI $F58E +F58D- 4A LSR +F58E- AA TAX +F58F- 98 TYA +F590- 29 FE AND #$FE +F592- CD FA F6 CMP $F6FA +F595- 8D FA F6 STA $F6FA +F598- D0 D0 BNE $F56A +F59A- 98 TYA +F59B- 38 SEC +F59C- E9 10 SBC #$10 +F59E- B0 02 BCS $F5A2 +F5A0- A9 00 LDA #$00 +F5A2- 2C 1E E0 BIT $E01E +F5A5- 30 1C BMI $F5C3 +F5A7- 85 FD STA $FD +F5A9- A9 00 LDA #$00 +F5AB- 46 FD LSR $FD +F5AD- 6A ROR +F5AE- 46 FD LSR $FD +F5B0- 6A ROR +F5B1- A4 FD LDY $FD +F5B3- 85 FA STA $FA +F5B5- 84 FB STY $FB +F5B7- 46 FD LSR $FD +F5B9- 6A ROR +F5BA- 46 FD LSR $FD +F5BC- 6A ROR +F5BD- 65 FA ADC $FA +F5BF- A5 FD LDA $FD +F5C1- 65 FB ADC $FB +F5C3- A8 TAY +F5C4- 38 SEC +F5C5- 60 RTS +F5C6- A0 28 LDY #$28 +F5C8- A9 00 LDA #$00 +F5CA- 4C 81 F4 JMP $F481 +F5CD- 20 6A F5 JSR $F56A +F5D0- 90 22 BCC $F5F4 +F5D2- 8A TXA +F5D3- AE 59 F5 LDX $F559 +F5D6- 9D 5A F5 STA $F55A,X +F5D9- 98 TYA +F5DA- 9D 62 F5 STA $F562,X +F5DD- E8 INX +F5DE- 8A TXA +F5DF- 29 07 AND #$07 +F5E1- 8D 59 F5 STA $F559 +F5E4- A2 00 LDX #$00 +F5E6- 20 24 F6 JSR $F624 +F5E9- 8D F7 F6 STA $F6F7 +F5EC- A2 08 LDX #$08 +F5EE- 20 24 F6 JSR $F624 +F5F1- 8D F8 F6 STA $F6F8 +F5F4- AE F7 F6 LDX $F6F7 +F5F7- AC F8 F6 LDY $F6F8 +F5FA- AD 61 C0 LDA $C061 r:BUTN0 +F5FD- 0D 62 C0 ORA $C062 r:BUTN1 +F600- 29 80 AND #$80 +F602- 09 00 ORA #$00 +F604- 48 PHA +F605- 4A LSR +F606- 29 40 AND #$40 +F608- 8D 03 F6 STA $F603 +F60B- 68 PLA +F60C- 18 CLC +F60D- 60 RTS +F60E- 20 D9 F6 JSR $F6D9 +F611- 8A TXA +F612- A2 07 LDX #$07 +F614- 9D 5A F5 STA $F55A,X +F617- CA DEX +F618- 10 FA BPL $F614 +F61A- 98 TYA +F61B- A0 07 LDY #$07 +F61D- 99 62 F5 STA $F562,Y +F620- 88 DEY +F621- 10 FA BPL $F61D +F623- 60 RTS +F624- A0 00 LDY #$00 +F626- 98 TYA +F627- 84 FD STY $FD +F629- 18 CLC +F62A- 7D 5A F5 ADC $F55A,X +F62D- 90 02 BCC $F631 +F62F- E6 FD INC $FD +F631- E8 INX +F632- C8 INY +F633- C0 08 CPY #$08 +F635- 90 F3 BCC $F62A +F637- 46 FD LSR $FD +F639- 6A ROR +F63A- 46 FD LSR $FD +F63C- 6A ROR +F63D- 46 FD LSR $FD +F63F- 6A ROR +F640- 60 RTS +F641- 20 DB F3 JSR $F3DB +F644- 20 B7 F6 JSR $F6B7 +F647- F0 01 BEQ $F64A +F649- 60 RTS +F64A- 20 07 F4 JSR $F407 +F64D- 4C C6 F5 JMP $F5C6 +F650- 4C 58 FF JMP $FF58 F8ROM:IORTS +F653- 4C 61 F6 JMP $F661 +F656- 4C D9 F6 JMP $F6D9 +F659- 14 05 TRB $05 +F65B- 0A ASL +F65C- 2D 2D 0A AND $0A2D +F65F- 2D 0A B9 AND $B90A +F662- 5B ??? +F663- F6 8D INC $8D,X +F665- 7D F6 B9 ADC $B9F6,X +F668- 5E F6 8D LSR $8DF6,X +F66B- 8E F6 20 STX $20F6 +F66E- B7 ??? +F66F- F6 D0 INC $D0,X +F671- 11 A2 ORA ($A2),Y +F673- 08 PHP +F674- 8E 5A F6 STX $F65A +F677- A2 01 LDX #$01 +F679- 8E 59 F6 STX $F659 +F67C- A2 2D LDX #$2D +F67E- 8E 93 F6 STX $F693 +F681- D0 2B BNE $F6AE +F683- CE 59 F6 DEC $F659 +F686- D0 26 BNE $F6AE +F688- CE 5A F6 DEC $F65A +F68B- D0 05 BNE $F692 +F68D- A2 0A LDX #$0A +F68F- 8E 93 F6 STX $F693 +F692- A2 00 LDX #$00 +F694- 8E 59 F6 STX $F659 +F697- 18 CLC +F698- 6D F7 F6 ADC $F6F7 +F69B- C9 FF CMP #$FF +F69D- F0 03 BEQ $F6A2 +F69F- 8D F7 F6 STA $F6F7 +F6A2- 98 TYA +F6A3- 18 CLC +F6A4- 6D F8 F6 ADC $F6F8 +F6A7- C9 FF CMP #$FF +F6A9- F0 03 BEQ $F6AE +F6AB- 8D F8 F6 STA $F6F8 +F6AE- AE F7 F6 LDX $F6F7 +F6B1- AC F8 F6 LDY $F6F8 +F6B4- 4C FA F5 JMP $F5FA +F6B7- 20 8E F3 JSR $F38E +F6BA- 8A TXA +F6BB- 20 CD F6 JSR $F6CD +F6BE- 85 FA STA $FA +F6C0- 98 TYA +F6C1- 20 CD F6 JSR $F6CD +F6C4- A8 TAY +F6C5- 05 FA ORA $FA +F6C7- 08 PHP +F6C8- A5 FA LDA $FA +F6CA- 28 PLP +F6CB- 18 CLC +F6CC- 60 RTS +F6CD- AA TAX +F6CE- A9 FF LDA #$FF +F6D0- E0 30 CPX #$30 +F6D2- 69 00 ADC #$00 +F6D4- E0 A0 CPX #$A0 +F6D6- 69 00 ADC #$00 +F6D8- 60 RTS +F6D9- 8E F7 F6 STX $F6F7 +F6DC- 8C F8 F6 STY $F6F8 +F6DF- 60 RTS +F6E0- 20 07 F4 JSR $F407 +F6E3- 4C EF F6 JMP $F6EF +F6E6- 4C EF F6 JMP $F6EF +F6E9- 4C EF F6 JMP $F6EF +F6EC- 4C EF F6 JMP $F6EF +F6EF- A0 B8 LDY #$B8 +F6F1- A9 0B LDA #$0B +F6F3- 38 SEC +F6F4- 4C 81 F4 JMP $F481 +F6F7- 00 BRK +F6F8- 00 BRK +F6F9- 00 BRK +F6FA- 00 BRK +F6FB- EA NOP +F6FC- EA NOP +F6FD- EA NOP +F6FE- EA NOP +F6FF- EA NOP +F700- A9 00 LDA #$00 +F702- A0 07 LDY #$07 +F704- 99 D3 F3 STA $F3D3,Y +F707- 88 DEY +F708- 10 FA BPL $F704 +F70A- AA TAX +F70B- 18 CLC +F70C- AD 70 C0 LDA $C070 rw:PTRIG +F70F- E8 INX +F710- 30 68 BMI $F77A +F712- 2C 64 C0 BIT $C064 r:PADDL0 +F715- 10 43 BPL $F75A +F717- 2C 65 C0 BIT $C065 r:PADDL1 +F71A- 10 26 BPL $F742 +F71C- 2C 64 C0 BIT $C064 r:PADDL0 +F71F- 10 41 BPL $F762 +F721- 2C 65 C0 BIT $C065 r:PADDL1 +F724- 10 24 BPL $F74A +F726- 2C 64 C0 BIT $C064 r:PADDL0 +F729- 10 3F BPL $F76A +F72B- 2C 65 C0 BIT $C065 r:PADDL1 +F72E- 10 22 BPL $F752 +F730- 2C 64 C0 BIT $C064 r:PADDL0 +F733- 10 3D BPL $F772 +F735- 2C 65 C0 BIT $C065 r:PADDL1 +F738- 30 D5 BMI $F70F +F73A- 2C 64 C0 BIT $C064 r:PADDL0 +F73D- 8E DA F3 STX $F3DA +F740- 90 79 BCC $F7BB +F742- 2C 64 C0 BIT $C064 r:PADDL0 +F745- 8E D7 F3 STX $F3D7 +F748- 90 59 BCC $F7A3 +F74A- 2C 64 C0 BIT $C064 r:PADDL0 +F74D- 8E D8 F3 STX $F3D8 +F750- 90 59 BCC $F7AB +F752- 2C 64 C0 BIT $C064 r:PADDL0 +F755- 8E D9 F3 STX $F3D9 +F758- 90 59 BCC $F7B3 +F75A- 2C 65 C0 BIT $C065 r:PADDL1 +F75D- 8E D3 F3 STX $F3D3 +F760- 90 1D BCC $F77F +F762- 2C 65 C0 BIT $C065 r:PADDL1 +F765- 8E D4 F3 STX $F3D4 +F768- 90 1D BCC $F787 +F76A- 2C 65 C0 BIT $C065 r:PADDL1 +F76D- 8E D5 F3 STX $F3D5 +F770- 90 1D BCC $F78F +F772- 2C 65 C0 BIT $C065 r:PADDL1 +F775- 8E D6 F3 STX $F3D6 +F778- 90 1D BCC $F797 +F77A- 38 SEC +F77B- 60 RTS +F77C- 2C 65 C0 BIT $C065 r:PADDL1 +F77F- 10 43 BPL $F7C4 +F781- EA NOP +F782- EA NOP +F783- EA NOP +F784- 2C 65 C0 BIT $C065 r:PADDL1 +F787- 10 40 BPL $F7C9 +F789- EA NOP +F78A- EA NOP +F78B- EA NOP +F78C- 2C 65 C0 BIT $C065 r:PADDL1 +F78F- 10 3D BPL $F7CE +F791- EA NOP +F792- EA NOP +F793- EA NOP +F794- 2C 65 C0 BIT $C065 r:PADDL1 +F797- 10 3A BPL $F7D3 +F799- EA NOP +F79A- EA NOP +F79B- E8 INX +F79C- 10 DE BPL $F77C +F79E- 30 DA BMI $F77A +F7A0- 2C 64 C0 BIT $C064 r:PADDL0 +F7A3- 10 33 BPL $F7D8 +F7A5- EA NOP +F7A6- EA NOP +F7A7- EA NOP +F7A8- 2C 64 C0 BIT $C064 r:PADDL0 +F7AB- 10 30 BPL $F7DD +F7AD- EA NOP +F7AE- EA NOP +F7AF- EA NOP +F7B0- 2C 64 C0 BIT $C064 r:PADDL0 +F7B3- 10 2D BPL $F7E2 +F7B5- EA NOP +F7B6- EA NOP +F7B7- EA NOP +F7B8- 2C 64 C0 BIT $C064 r:PADDL0 +F7BB- 10 2A BPL $F7E7 +F7BD- EA NOP +F7BE- EA NOP +F7BF- E8 INX +F7C0- 10 DE BPL $F7A0 +F7C2- 30 B6 BMI $F77A +F7C4- 8E D7 F3 STX $F3D7 +F7C7- 90 21 BCC $F7EA +F7C9- 8E D8 F3 STX $F3D8 +F7CC- 90 1C BCC $F7EA +F7CE- 8E D9 F3 STX $F3D9 +F7D1- 90 17 BCC $F7EA +F7D3- 8E DA F3 STX $F3DA +F7D6- 90 12 BCC $F7EA +F7D8- 8E D3 F3 STX $F3D3 +F7DB- 90 0D BCC $F7EA +F7DD- 8E D4 F3 STX $F3D4 +F7E0- 90 08 BCC $F7EA +F7E2- 8E D5 F3 STX $F3D5 +F7E5- 90 03 BCC $F7EA +F7E7- 8E D6 F3 STX $F3D6 +F7EA- E0 40 CPX #$40 +F7EC- B0 0F BCS $F7FD +F7EE- 20 58 FF JSR $FF58 F8ROM:IORTS +F7F1- 20 58 FF JSR $FF58 F8ROM:IORTS +F7F4- 20 58 FF JSR $FF58 F8ROM:IORTS +F7F7- EA NOP +F7F8- EA NOP +F7F9- EA NOP +F7FA- E8 INX +F7FB- D0 ED BNE $F7EA +F7FD- 18 CLC +F7FE- 60 RTS diff --git a/PSC Source Disk 1 - System (v10)/SYSLIB2.txt b/PSC Source Disk 1 - System (v10)/SYSLIB2.txt new file mode 100644 index 0000000..b38d0de --- /dev/null +++ b/PSC Source Disk 1 - System (v10)/SYSLIB2.txt @@ -0,0 +1,2501 @@ +8500- 04 04 TSB $04 +8502- 06 08 ASL $08 +8504- 06 08 ASL $08 +8506- 08 PHP +8507- 04 03 TSB $03 +8509- 03 ??? +850A- 08 PHP +850B- 06 04 ASL $04 +850D- 05 04 ORA $04 +850F- 08 PHP +8510- 06 04 ASL $04 +8512- 06 06 ASL $06 +8514- 07 ??? +8515- 06 06 ASL $06 +8517- 06 06 ASL $06 +8519- 06 04 ASL $04 +851B- 04 05 TSB $05 +851D- 06 05 ASL $05 +851F- 06 58 ASL $58 +8521- 07 ??? +8522- 07 ??? +8523- 07 ??? +8524- 07 ??? +8525- 06 06 ASL $06 +8527- 07 ??? +8528- 07 ??? +8529- 02 ??? +852A- 06 07 ASL $07 +852C- 06 0A ASL $0A +852E- 08 PHP +852F- 07 ??? +8530- 07 ??? +8531- 07 ??? +8532- 07 ??? +8533- 07 ??? +8534- 06 07 ASL $07 +8536- 08 PHP +8537- 0A ASL +8538- 08 PHP +8539- 08 PHP +853A- 06 00 ASL $00 +853C- 07 ??? +853D- 03 ??? +853E- 07 ??? +853F- 07 ??? +8540- 07 ??? +8541- 07 ??? +8542- 03 ??? +8543- 07 ??? +8544- 07 ??? +8545- 06 06 ASL $06 +8547- 07 ??? +8548- 04 07 TSB $07 +854A- 07 ??? +854B- 07 ??? +854C- 07 ??? +854D- 07 ??? +854E- 07 ??? +854F- 07 ??? +8550- 07 ??? +8551- 07 ??? +8552- 07 ??? +8553- 07 ??? +8554- 07 ??? +8555- 06 07 ASL $07 +8557- 07 ??? +8558- 05 07 ORA $07 +855A- 07 ??? +855B- 34 07 BIT $07,X +855D- 07 ??? +855E- 07 ??? +855F- 07 ??? +8560- 07 ??? +8561- 07 ??? +8562- 07 ??? +8563- 07 ??? +8564- 07 ??? +8565- 07 ??? +8566- 07 ??? +8567- 07 ??? +8568- 07 ??? +8569- 07 ??? +856A- 07 ??? +856B- 07 ??? +856C- 07 ??? +856D- 07 ??? +856E- 07 ??? +856F- 07 ??? +8570- 07 ??? +8571- 07 ??? +8572- 07 ??? +8573- 07 ??? +8574- 07 ??? +8575- 07 ??? +8576- 0D 3C 6A ORA $6A3C +8579- EC F8 FF CPX $FFF8 +857C- 06 12 ASL $12 +857E- 19 1E 2E ORA $2E1E,Y +8581- F3 ??? +8582- 0E 34 0D ASL $0D34 +8585- 25 4A AND $4A +8587- 63 ??? +8588- 56 50 LSR $50,X +858A- 6A ROR +858B- 75 7B ADC $7B,X +858D- 5C ??? +858E- 81 87 STA ($87,X) +8590- 38 SEC +8591- 38 SEC +8592- 28 PLP +8593- 71 14 ADC ($14),Y +8595- 43 ??? +8596- 00 BRK +8597- 8E B0 9C STX $9CB0 +859A- B6 BC LDX $BC,Y +859C- C2 ??? +859D- A2 8F LDX #$8F +859F- C6 A9 DEC $A9 +85A1- 95 C7 STA $C7,X +85A3- 1B ??? +85A4- D4 ??? +85A5- E1 CD SBC ($CD,X) +85A7- E7 ??? +85A8- EE FA 07 INC $07FA +85AB- F4 ??? +85AC- DA PHX +85AD- 25 0E AND $0E +85AF- 14 01 TRB $01 +85B1- 86 86 STX $86 +85B3- 86 85 STX $85 +85B5- 85 85 STA $85 +85B7- 86 86 STX $86 +85B9- 86 86 STX $86 +85BB- 86 85 STX $85 +85BD- 86 86 STX $86 +85BF- 86 86 STX $86 +85C1- 86 86 STX $86 +85C3- 86 86 STX $86 +85C5- 86 86 STX $86 +85C7- 86 86 STX $86 +85C9- 86 86 STX $86 +85CB- 86 86 STX $86 +85CD- 86 86 STX $86 +85CF- 86 86 STX $86 +85D1- 78 SEI +85D2- 86 86 STX $86 +85D4- 86 86 STX $86 +85D6- 86 86 STX $86 +85D8- 86 86 STX $86 +85DA- 86 86 STX $86 +85DC- 86 86 STX $86 +85DE- 87 ??? +85DF- 86 86 STX $86 +85E1- 86 86 STX $86 +85E3- 86 86 STX $86 +85E5- 87 ??? +85E6- 86 86 STX $86 +85E8- 87 ??? +85E9- 87 ??? +85EA- 87 ??? +85EB- 87 ??? +85EC- 66 66 ROR $66 +85EE- FF ??? +85EF- 66 FF ROR $FF +85F1- 66 66 ROR $66 +85F3- 00 BRK +85F4- 30 30 BMI $8626 +85F6- FC ??? +85F7- 30 30 BMI $8629 +85F9- 7C C0 78 JMP ($78C0,X) +85FC- 0C F8 30 TSB $30F8 +85FF- 63 ??? +8600- 96 6C STX $6C,Y +8602- 18 CLC +8603- 36 69 ROL $69,X +8605- C6 38 DEC $38 +8607- 6C 6C 38 JMP ($386C) +860A- 7B ??? +860B- CC 76 00 CPY $0076 +860E- 00 BRK +860F- 00 BRK +8610- 00 BRK +8611- 00 BRK +8612- 60 RTS +8613- 60 RTS +8614- C0 60 CPY #$60 +8616- 30 18 BMI $8630 +8618- 30 60 BMI $867A +861A- C0 C0 CPY #$C0 +861C- C0 C0 CPY #$C0 +861E- C0 60 CPY #$60 +8620- 60 RTS +8621- 60 RTS +8622- 60 RTS +8623- 60 RTS +8624- C0 03 CPY #$03 +8626- 06 0C ASL $0C +8628- 18 CLC +8629- 30 60 BMI $868B +862B- C0 60 CPY #$60 +862D- 30 18 BMI $8647 +862F- DB ??? +8630- 3C 3C DB BIT $DB3C,X +8633- 18 CLC +8634- 00 BRK +8635- 00 BRK +8636- 00 BRK +8637- F8 SED +8638- 00 BRK +8639- 60 RTS +863A- 60 RTS +863B- 00 BRK +863C- 60 RTS +863D- 60 RTS +863E- 60 RTS +863F- 60 RTS +8640- 60 RTS +8641- 00 BRK +8642- 60 RTS +8643- 78 SEI +8644- CC 0C 18 CPY $180C +8647- 30 00 BMI $8649 +8649- 30 78 BMI $86C3 +864B- CC CC CC CPY $CCCC +864E- CC CC 78 CPY $78CC +8651- CC 0C 38 CPY $380C +8654- 0C CC 78 TSB $78CC +8657- CC 0C 18 CPY $180C +865A- 30 60 BMI $86BC +865C- FC ??? +865D- 0C 18 30 TSB $3018 +8660- 60 RTS +8661- C0 C0 CPY #$C0 +8663- 20 60 E0 JSR $E060 +8666- 60 RTS +8667- 60 RTS +8668- 60 RTS +8669- F0 CC BEQ $8637 +866B- CC CC CC CPY $CCCC +866E- FE 0C 0C INC $0C0C,X +8671- 00 BRK +8672- 00 BRK +8673- FC ??? +8674- 00 BRK +8675- FC ??? +8676- C0 F8 CPY #$F8 +8678- 0C 0C CC TSB $CC0C +867B- 78 SEI +867C- CC C0 F8 CPY $F8C0 +867F- CC CC 78 CPY $78CC +8682- CC CC 78 CPY $78CC +8685- CC CC 78 CPY $78CC +8688- CC CC 7C CPY $7CCC +868B- 0C CC 78 TSB $78CC +868E- 7C C6 C6 JMP ($C6C6,X) +8691- C6 FE DEC $FE +8693- C6 C6 DEC $C6 +8695- C6 CC DEC $CC +8697- D8 CLD +8698- F0 D8 BEQ $8672 +869A- CC C6 7C CPY $7CC6 +869D- C6 C0 DEC $C0 +869F- C0 C0 CPY #$C0 +86A1- C6 7C DEC $7C +86A3- C6 C0 DEC $C0 +86A5- C0 CE CPY #$CE +86A7- C6 7E DEC $7E +86A9- 0C 0C 0C TSB $0C0C +86AC- 0C 0C CC TSB $CC0C +86AF- 78 SEI +86B0- FC ??? +86B1- C6 C6 DEC $C6 +86B3- FC ??? +86B4- C6 C6 DEC $C6 +86B6- FC ??? +86B7- C6 C6 DEC $C6 +86B9- C6 C6 DEC $C6 +86BB- C6 FC DEC $FC +86BD- C0 C0 CPY #$C0 +86BF- F8 SED +86C0- C0 C0 CPY #$C0 +86C2- FC ??? +86C3- C0 C0 CPY #$C0 +86C5- F8 SED +86C6- C0 C0 CPY #$C0 +86C8- C0 C0 CPY #$C0 +86CA- C0 C0 CPY #$C0 +86CC- C0 FC CPY #$FC +86CE- C6 C6 DEC $C6 +86D0- FC ??? +86D1- C0 C0 CPY #$C0 +86D3- C0 C3 CPY #$C3 +86D5- E3 ??? +86D6- F3 ??? +86D7- DB ??? +86D8- CF ??? +86D9- C7 ??? +86DA- C3 ??? +86DB- C3 ??? +86DC- 66 66 ROR $66 +86DE- 3C 3C 18 BIT $183C,X +86E1- 7C C6 C6 JMP ($C6C6,X) +86E4- C6 C6 DEC $C6 +86E6- C6 7C DEC $7C +86E8- C6 C6 DEC $C6 +86EA- C6 DC DEC $DC +86EC- CC 76 FC CPY $FC76 +86EF- C6 C6 DEC $C6 +86F1- FC ??? +86F2- D8 CLD +86F3- CC C6 C6 CPY $C6C6 +86F6- C6 C6 DEC $C6 +86F8- C6 C6 DEC $C6 +86FA- 7C C6 C0 JMP ($C0C6,X) +86FD- 7C 06 C6 JMP ($C606,X) +8700- 7C FC 0C JMP ($0CFC,X) +8703- 18 CLC +8704- 30 60 BMI $8766 +8706- C0 FC CPY #$FC +8708- 30 30 BMI $873A +870A- 30 30 BMI $873C +870C- 30 30 BMI $873E +870E- C3 ??? +870F- 66 3C ROR $3C +8711- 18 CLC +8712- 3C 66 C3 BIT $C366,X +8715- 66 3C ROR $3C +8717- 18 CLC +8718- 18 CLC +8719- 18 CLC +871A- 18 CLC +871B- E1 C0 SBC ($C0,X) +871D- F3 ??? +871E- C0 DE CPY #$DE +8720- C0 CC CPY #$CC +8722- C0 C0 CPY #$C0 +8724- C0 C0 CPY #$C0 +8726- C0 C0 CPY #$C0 +8728- C0 CC CPY #$CC +872A- C0 CC CPY #$CC +872C- C0 CC CPY #$CC +872E- C0 CC CPY #$CC +8730- C0 73 CPY #$73 +8732- 80 00 BRA $8734 +8734- 00 BRK +8735- 00 BRK +8736- 00 BRK +8737- 00 BRK +8738- 00 BRK +8739- 00 BRK +873A- 00 BRK +873B- 00 BRK +873C- 00 BRK +873D- 00 BRK +873E- 00 BRK +873F- 00 BRK +8740- 00 BRK +8741- 00 BRK +8742- 00 BRK +8743- 00 BRK +8744- 00 BRK +8745- 00 BRK +8746- 00 BRK +8747- 00 BRK +8748- 00 BRK +8749- 00 BRK +874A- 00 BRK +874B- 00 BRK +874C- 00 BRK +874D- 00 BRK +874E- 00 BRK +874F- 00 BRK +8750- 00 BRK +8751- 00 BRK +8752- 00 BRK +8753- 00 BRK +8754- 00 BRK +8755- 00 BRK +8756- 00 BRK +8757- 00 BRK +8758- 00 BRK +8759- 00 BRK +875A- 00 BRK +875B- 00 BRK +875C- 00 BRK +875D- 00 BRK +875E- 00 BRK +875F- 00 BRK +8760- 00 BRK +8761- 00 BRK +8762- 00 BRK +8763- 00 BRK +8764- 00 BRK +8765- 00 BRK +8766- 00 BRK +8767- 00 BRK +8768- 00 BRK +8769- 00 BRK +876A- 00 BRK +876B- 00 BRK +876C- 00 BRK +876D- 00 BRK +876E- 00 BRK +876F- 00 BRK +8770- 00 BRK +8771- 00 BRK +8772- 00 BRK +8773- 00 BRK +8774- 00 BRK +8775- 00 BRK +8776- 00 BRK +8777- 00 BRK +8778- 00 BRK +8779- 00 BRK +877A- 00 BRK +877B- 00 BRK +877C- 00 BRK +877D- 00 BRK +877E- 00 BRK +877F- 00 BRK +8780- 00 BRK +8781- 00 BRK +8782- 00 BRK +8783- 00 BRK +8784- 00 BRK +8785- 00 BRK +8786- 00 BRK +8787- 00 BRK +8788- 00 BRK +8789- 00 BRK +878A- 00 BRK +878B- 00 BRK +878C- 00 BRK +878D- 00 BRK +878E- 00 BRK +878F- 00 BRK +8790- 00 BRK +8791- 00 BRK +8792- 00 BRK +8793- 00 BRK +8794- 00 BRK +8795- 00 BRK +8796- 00 BRK +8797- 00 BRK +8798- 00 BRK +8799- 00 BRK +879A- 00 BRK +879B- 00 BRK +879C- 00 BRK +879D- 00 BRK +879E- 00 BRK +879F- 00 BRK +87A0- 00 BRK +87A1- 00 BRK +87A2- 00 BRK +87A3- 00 BRK +87A4- 00 BRK +87A5- 00 BRK +87A6- 00 BRK +87A7- 00 BRK +87A8- 00 BRK +87A9- 00 BRK +87AA- 00 BRK +87AB- 00 BRK +87AC- 00 BRK +87AD- 00 BRK +87AE- 00 BRK +87AF- 00 BRK +87B0- 00 BRK +87B1- 00 BRK +87B2- 00 BRK +87B3- 00 BRK +87B4- 00 BRK +87B5- 00 BRK +87B6- 00 BRK +87B7- 00 BRK +87B8- 00 BRK +87B9- 00 BRK +87BA- 00 BRK +87BB- 00 BRK +87BC- 00 BRK +87BD- 00 BRK +87BE- 00 BRK +87BF- 00 BRK +87C0- 00 BRK +87C1- 00 BRK +87C2- 00 BRK +87C3- 00 BRK +87C4- 00 BRK +87C5- 00 BRK +87C6- 00 BRK +87C7- 00 BRK +87C8- 00 BRK +87C9- 00 BRK +87CA- 00 BRK +87CB- 00 BRK +87CC- 00 BRK +87CD- 00 BRK +87CE- 00 BRK +87CF- 00 BRK +87D0- 00 BRK +87D1- 00 BRK +87D2- 00 BRK +87D3- 00 BRK +87D4- 00 BRK +87D5- 00 BRK +87D6- 00 BRK +87D7- 00 BRK +87D8- 00 BRK +87D9- 00 BRK +87DA- 00 BRK +87DB- 00 BRK +87DC- 00 BRK +87DD- 00 BRK +87DE- 00 BRK +87DF- 00 BRK +87E0- 00 BRK +87E1- 00 BRK +87E2- 00 BRK +87E3- 00 BRK +87E4- 00 BRK +87E5- 00 BRK +87E6- 00 BRK +87E7- 00 BRK +87E8- 00 BRK +87E9- 00 BRK +87EA- 00 BRK +87EB- 00 BRK +87EC- 00 BRK +87ED- 00 BRK +87EE- 00 BRK +87EF- 00 BRK +87F0- 00 BRK +87F1- 00 BRK +87F2- 00 BRK +87F3- 00 BRK +87F4- 00 BRK +87F5- 00 BRK +87F6- 00 BRK +87F7- 00 BRK +87F8- 00 BRK +87F9- 00 BRK +87FA- 00 BRK +87FB- 00 BRK +87FC- 00 BRK +87FD- 00 BRK +87FE- 00 BRK +87FF- 00 BRK +8800- 4C 58 FC JMP $FC58 F8ROM:HOME +8803- 4C 40 88 JMP $8840 +8806- 00 BRK +8807- 00 BRK +8808- 00 BRK +8809- 00 BRK +880A- 00 BRK +880B- 80 00 BRA $880D +880D- 4C 85 88 JMP $8885 +8810- 00 BRK +8811- 80 00 BRA $8813 +8813- 80 00 BRA $8815 +8815- 80 00 BRA $8817 +8817- 80 28 BRA $8841 +8819- A8 TAY +881A- 28 PLP +881B- A8 TAY +881C- 28 PLP +881D- A8 TAY +881E- 28 PLP +881F- A8 TAY +8820- 50 D0 BVC $87F2 +8822- 50 D0 BVC $87F4 +8824- 50 D0 BVC $87F6 +8826- 50 D0 BVC $87F8 +8828- 04 04 TSB $04 +882A- 05 05 ORA $05 +882C- 06 06 ASL $06 +882E- 07 ??? +882F- 07 ??? +8830- 04 04 TSB $04 +8832- 05 05 ORA $05 +8834- 06 06 ASL $06 +8836- 07 ??? +8837- 07 ??? +8838- 04 04 TSB $04 +883A- 05 05 ORA $05 +883C- 06 06 ASL $06 +883E- 07 ??? +883F- 07 ??? +8840- A5 08 LDA $08 +8842- 48 PHA +8843- A5 09 LDA $09 +8845- 48 PHA +8846- 20 50 88 JSR $8850 +8849- 68 PLA +884A- 85 09 STA $09 +884C- 68 PLA +884D- 85 08 STA $08 +884F- 60 RTS +8850- AE 07 88 LDX $8807 +8853- BD 10 88 LDA $8810,X +8856- 85 08 STA $08 +8858- BD 28 88 LDA $8828,X +885B- 85 09 STA $09 +885D- AD 08 88 LDA $8808 +8860- 8D C6 88 STA $88C6 +8863- AD 09 88 LDA $8809 +8866- 8D C7 88 STA $88C7 +8869- AC 06 88 LDY $8806 +886C- A2 00 LDX #$00 +886E- 8E 0C 88 STX $880C +8871- 20 C5 88 JSR $88C5 +8874- F0 0E BEQ $8884 +8876- 29 3F AND #$3F +8878- 0D 0B 88 ORA $880B +887B- 91 08 STA ($08),Y +887D- E8 INX +887E- C8 INY +887F- EC 0A 88 CPX $880A +8882- D0 ED BNE $8871 +8884- 60 RTS +8885- 8E 08 88 STX $8808 +8888- 8C 09 88 STY $8809 +888B- 8D 07 88 STA $8807 +888E- A9 00 LDA #$00 +8890- 8D 06 88 STA $8806 +8893- A2 28 LDX #$28 +8895- 8D 0A 88 STA $880A +8898- A9 01 LDA #$01 +889A- 8D C4 88 STA $88C4 +889D- AD C4 88 LDA $88C4 +88A0- A2 80 LDX #$80 +88A2- 8E 0B 88 STX $880B +88A5- 20 40 88 JSR $8840 +88A8- E8 INX +88A9- 8A TXA +88AA- 18 CLC +88AB- 6D 08 88 ADC $8808 +88AE- 8D 08 88 STA $8808 +88B1- 90 03 BCC $88B6 +88B3- EE 09 88 INC $8809 +88B6- EE 07 88 INC $8807 +88B9- EE C4 88 INC $88C4 +88BC- 20 C5 88 JSR $88C5 +88BF- C9 FF CMP #$FF +88C1- D0 DA BNE $889D +88C3- 60 RTS +88C4- 00 BRK +88C5- BD 00 80 LDA $8000,X +88C8- 60 RTS +88C9- 86 09 STX $09 +88CB- 84 0A STY $0A +88CD- 20 18 E0 JSR $E018 +88D0- A6 09 LDX $09 +88D2- A4 0A LDY $0A +88D4- B0 08 BCS $88DE +88D6- 0A ASL +88D7- 30 05 BMI $88DE +88D9- 90 03 BCC $88DE +88DB- A9 0D LDA #$0D +88DD- 60 RTS +88DE- A9 00 LDA #$00 +88E0- 60 RTS +88E1- BD 10 88 LDA $8810,X +88E4- 85 08 STA $08 +88E6- BD 28 88 LDA $8828,X +88E9- 85 09 STA $09 +88EB- 60 RTS +88EC- 20 E1 88 JSR $88E1 +88EF- A0 27 LDY #$27 +88F1- B9 80 03 LDA $0380,Y +88F4- 91 08 STA ($08),Y +88F6- 88 DEY +88F7- 10 F8 BPL $88F1 +88F9- 60 RTS +88FA- 00 BRK +88FB- 00 BRK +88FC- 00 BRK +88FD- 00 BRK +88FE- 00 BRK +88FF- 00 BRK +8900- 4C C9 88 JMP $88C9 +8903- EA NOP +8904- EA NOP +8905- EA NOP +8906- EA NOP +8907- EA NOP +8908- 4C 77 89 JMP $8977 +890B- 4C C7 89 JMP $89C7 +890E- 7D 2A 28 ADC $282A,X +8911- A8 TAY +8912- 9C 11 2B STZ $2B11 +8915- 29 2C AND #$2C +8917- A2 11 LDX #$11 +8919- 2B ??? +891A- 2A ROL +891B- 2C A0 11 BIT $11A0 +891E- EA NOP +891F- AC 2A A0 LDY $A02A +8922- 11 2A ORA ($2A),Y +8924- 6A ROR +8925- 29 A6 AND #$A6 +8927- 11 2A ORA ($2A),Y +8929- 69 29 ADC #$29 +892B- A2 11 LDX #$11 +892D- 2A ROL +892E- 28 PLP +892F- A8 TAY +8930- 9E 73 CA STZ $CA73,X +8933- 2F ??? +8934- A8 TAY +8935- 9C 4A 2B STZ $2B4A +8938- 22 ??? +8939- 2C A2 4A BIT $4AA2 +893C- 2B ??? +893D- 22 ??? +893E- 2C A0 73 BIT $73A0 +8941- CA DEX +8942- A2 2A LDX #$2A +8944- A0 42 LDY #$42 +8946- 8A TXA +8947- 62 ??? +8948- 29 A6 AND #$A6 +894A- 42 ??? +894B- 4A LSR +894C- 62 ??? +894D- 29 A2 AND #$A2 +894F- 42 ??? +8950- 2A ROL +8951- 22 ??? +8952- 28 PLP +8953- 9E 78 42 STZ $4278,X +8956- 27 ??? +8957- 28 PLP +8958- 9C 44 A2 STZ $A244 +895B- 28 PLP +895C- AC A2 44 LDY $44A2 +895F- A2 28 LDX #$28 +8961- 2C A0 79 BIT $79A0 +8964- 12 27 ORA ($27) +8966- 2A ROL +8967- A0 41 LDY #$41 +8969- F2 20 SBC ($20) +896B- A9 A6 LDA #$A6 +896D- 42 ??? +896E- 0A ASL +896F- 28 PLP +8970- A9 A2 LDA #$A2 +8972- 42 ??? +8973- 09 C7 ORA #$C7 +8975- 28 PLP +8976- 9E A9 00 STZ $00A9,X +8979- 85 E0 STA $E0 +897B- 85 E3 STA $E3 +897D- A5 E4 LDA $E4 +897F- 85 E2 STA $E2 +8981- A9 28 LDA #$28 +8983- 85 E1 STA $E1 +8985- A6 E2 LDX $E2 +8987- BD BF 89 LDA $89BF,X +898A- A4 E0 LDY $E0 +898C- 99 80 03 STA $0380,Y +898F- C8 INY +8990- C4 E1 CPY $E1 +8992- D0 F8 BNE $898C +8994- A6 E3 LDX $E3 +8996- 20 EC 88 JSR $88EC +8999- A9 13 LDA #$13 +899B- 38 SEC +899C- E5 E3 SBC $E3 +899E- AA TAX +899F- 20 EC 88 JSR $88EC +89A2- E6 E0 INC $E0 +89A4- C6 E1 DEC $E1 +89A6- E6 E2 INC $E2 +89A8- A5 E2 LDA $E2 +89AA- 29 07 AND #$07 +89AC- 85 E2 STA $E2 +89AE- E6 E3 INC $E3 +89B0- A5 E3 LDA $E3 +89B2- C9 0A CMP #$0A +89B4- D0 CF BNE $8985 +89B6- E6 E4 INC $E4 +89B8- A5 E4 LDA $E4 +89BA- 29 07 AND #$07 +89BC- 85 E4 STA $E4 +89BE- 60 RTS +89BF- BB ??? +89C0- 99 DD CC STA $CCDD,Y +89C3- EE 66 77 INC $7766 +89C6- 33 ??? +89C7- A2 13 LDX #$13 +89C9- 8E 07 88 STX $8807 +89CC- 20 E1 88 JSR $88E1 +89CF- A0 27 LDY #$27 +89D1- B1 08 LDA ($08),Y +89D3- 29 0F AND #$0F +89D5- AA TAX +89D6- BD E5 89 LDA $89E5,X +89D9- 91 08 STA ($08),Y +89DB- 88 DEY +89DC- 10 F3 BPL $89D1 +89DE- AE 07 88 LDX $8807 +89E1- CA DEX +89E2- 10 E5 BPL $89C9 +89E4- 60 RTS +89E5- 00 BRK +89E6- 00 BRK +89E7- 00 BRK +89E8- BB ??? +89E9- 00 BRK +89EA- 00 BRK +89EB- 77 ??? +89EC- 33 ??? +89ED- 00 BRK +89EE- DD 00 99 CMP $9900,X +89F1- EE CC 66 INC $66CC +89F4- 00 BRK +89F5- FF ??? +89F6- FF ??? +89F7- FF ??? +89F8- FF ??? +89F9- FF ??? +89FA- FF ??? +89FB- FF ??? +89FC- FF ??? +89FD- FF ??? +89FE- FF ??? +89FF- FF ??? +8A00- 4C 18 8A JMP $8A18 +8A03- 02 ??? +8A04- 02 ??? +8A05- 00 BRK +8A06- 00 BRK +8A07- 00 BRK +8A08- 00 BRK +8A09- 00 BRK +8A0A- 01 00 ORA ($00,X) +8A0C- 00 BRK +8A0D- 00 BRK +8A0E- 00 BRK +8A0F- 4C 3D 8D JMP $8D3D +8A12- 4C 34 8D JMP $8D34 +8A15- 4C 5B 8D JMP $8D5B +8A18- 20 00 8D JSR $8D00 +8A1B- AD 0C 8A LDA $8A0C +8A1E- 8D DD 8A STA $8ADD +8A21- AD 0D 8A LDA $8A0D +8A24- 8D DE 8A STA $8ADE +8A27- 2C 0E 8A BIT $8A0E +8A2A- 30 03 BMI $8A2F +8A2C- 20 28 8B JSR $8B28 +8A2F- AD 04 8A LDA $8A04 +8A32- F0 60 BEQ $8A94 +8A34- A2 00 LDX #$00 +8A36- 86 5D STX $5D +8A38- 86 5E STX $5E +8A3A- 20 DC 8A JSR $8ADC +8A3D- F0 1A BEQ $8A59 +8A3F- 38 SEC +8A40- E9 20 SBC #$20 +8A42- A8 TAY +8A43- B9 00 85 LDA $8500,Y +8A46- 38 SEC +8A47- FD 00 03 SBC $0300,X +8A4A- 18 CLC +8A4B- 6D 0A 8A ADC $8A0A +8A4E- 65 5D ADC $5D +8A50- 85 5D STA $5D +8A52- 90 02 BCC $8A56 +8A54- E6 5E INC $5E +8A56- E8 INX +8A57- D0 E1 BNE $8A3A +8A59- E0 00 CPX #$00 +8A5B- F0 18 BEQ $8A75 +8A5D- A5 5D LDA $5D +8A5F- 38 SEC +8A60- ED 0A 8A SBC $8A0A +8A63- 85 5D STA $5D +8A65- B0 02 BCS $8A69 +8A67- C6 5E DEC $5E +8A69- AE 0B 8A LDX $8A0B +8A6C- F0 07 BEQ $8A75 +8A6E- 06 5D ASL $5D +8A70- 26 5E ROL $5E +8A72- CA DEX +8A73- D0 F9 BNE $8A6E +8A75- AE 04 8A LDX $8A04 +8A78- E0 03 CPX #$03 +8A7A- F0 59 BEQ $8AD5 +8A7C- CA DEX +8A7D- F0 04 BEQ $8A83 +8A7F- 46 5E LSR $5E +8A81- 66 5D ROR $5D +8A83- AD 05 8A LDA $8A05 +8A86- 38 SEC +8A87- E5 5D SBC $5D +8A89- 8D 05 8A STA $8A05 +8A8C- AD 06 8A LDA $8A06 +8A8F- E5 5E SBC $5E +8A91- 8D 06 8A STA $8A06 +8A94- A2 00 LDX #$00 +8A96- 86 63 STX $63 +8A98- 20 DC 8A JSR $8ADC +8A9B- F0 3C BEQ $8AD9 +8A9D- 20 E0 8A JSR $8AE0 +8AA0- A6 63 LDX $63 +8AA2- 20 DC 8A JSR $8ADC +8AA5- 38 SEC +8AA6- E9 20 SBC #$20 +8AA8- A8 TAY +8AA9- AD 0A 8A LDA $8A0A +8AAC- 18 CLC +8AAD- 79 00 85 ADC $8500,Y +8AB0- E8 INX +8AB1- 38 SEC +8AB2- FD 00 03 SBC $0300,X +8AB5- A0 00 LDY #$00 +8AB7- 84 5F STY $5F +8AB9- AC 0B 8A LDY $8A0B +8ABC- F0 06 BEQ $8AC4 +8ABE- 0A ASL +8ABF- 26 5F ROL $5F +8AC1- 88 DEY +8AC2- D0 FA BNE $8ABE +8AC4- 18 CLC +8AC5- 6D 05 8A ADC $8A05 +8AC8- 8D 05 8A STA $8A05 +8ACB- A5 5F LDA $5F +8ACD- 6D 06 8A ADC $8A06 +8AD0- 8D 06 8A STA $8A06 +8AD3- 90 C1 BCC $8A96 +8AD5- A4 5D LDY $5D +8AD7- A5 5E LDA $5E +8AD9- A2 01 LDX #$01 +8ADB- 60 RTS +8ADC- BD 0C 8A LDA $8A0C,X +8ADF- 60 RTS +8AE0- 38 SEC +8AE1- E9 20 SBC #$20 +8AE3- F0 42 BEQ $8B27 +8AE5- AA TAX +8AE6- BD 3B 85 LDA $853B,X +8AE9- 85 61 STA $61 +8AEB- BD 00 85 LDA $8500,X +8AEE- 85 62 STA $62 +8AF0- BD 76 85 LDA $8576,X +8AF3- 85 50 STA $50 +8AF5- BD B1 85 LDA $85B1,X +8AF8- 85 51 STA $51 +8AFA- AD 0B 8A LDA $8A0B +8AFD- 0A ASL +8AFE- D0 02 BNE $8B02 +8B00- A9 01 LDA #$01 +8B02- 85 5F STA $5F +8B04- AD 07 8A LDA $8A07 +8B07- 85 60 STA $60 +8B09- AD 05 8A LDA $8A05 +8B0C- 85 52 STA $52 +8B0E- AD 06 8A LDA $8A06 +8B11- 85 53 STA $53 +8B13- A5 62 LDA $62 +8B15- 85 54 STA $54 +8B17- A4 60 LDY $60 +8B19- 20 26 8C JSR $8C26 +8B1C- A5 60 LDA $60 +8B1E- 18 CLC +8B1F- 65 5F ADC $5F +8B21- 85 60 STA $60 +8B23- C6 61 DEC $61 +8B25- D0 E2 BNE $8B09 +8B27- 60 RTS +8B28- A2 00 LDX #$00 +8B2A- 8E 00 03 STX $0300 +8B2D- 86 63 STX $63 +8B2F- 20 DC 8A JSR $8ADC +8B32- F0 2B BEQ $8B5F +8B34- AC 0E 8A LDY $8A0E +8B37- F0 1B BEQ $8B54 +8B39- C9 41 CMP #$41 +8B3B- 90 17 BCC $8B54 +8B3D- 85 56 STA $56 +8B3F- E8 INX +8B40- 20 DC 8A JSR $8ADC +8B43- F0 1A BEQ $8B5F +8B45- C9 41 CMP #$41 +8B47- 90 0B BCC $8B54 +8B49- 85 57 STA $57 +8B4B- 20 65 8B JSR $8B65 +8B4E- A5 59 LDA $59 +8B50- C9 64 CMP #$64 +8B52- 90 02 BCC $8B56 +8B54- A9 00 LDA #$00 +8B56- A6 63 LDX $63 +8B58- E8 INX +8B59- 9D 00 03 STA $0300,X +8B5C- 4C 2D 8B JMP $8B2D +8B5F- A9 00 LDA #$00 +8B61- 9D 00 03 STA $0300,X +8B64- 60 RTS +8B65- 38 SEC +8B66- 66 5B ROR $5B +8B68- A5 56 LDA $56 +8B6A- 20 CE 8B JSR $8BCE +8B6D- 85 54 STA $54 +8B6F- 84 5A STY $5A +8B71- BD 76 85 LDA $8576,X +8B74- 85 50 STA $50 +8B76- BD B1 85 LDA $85B1,X +8B79- 85 51 STA $51 +8B7B- BD 3B 85 LDA $853B,X +8B7E- 85 61 STA $61 +8B80- A5 57 LDA $57 +8B82- 20 CE 8B JSR $8BCE +8B85- 85 55 STA $55 +8B87- BD 76 85 LDA $8576,X +8B8A- 85 52 STA $52 +8B8C- BD B1 85 LDA $85B1,X +8B8F- 85 53 STA $53 +8B91- BD 3B 85 LDA $853B,X +8B94- C5 61 CMP $61 +8B96- B0 02 BCS $8B9A +8B98- 85 61 STA $61 +8B9A- A5 5B LDA $5B +8B9C- 18 CLC +8B9D- 6D 0A 8A ADC $8A0A +8BA0- 85 59 STA $59 +8BA2- 20 EC 8B JSR $8BEC +8BA5- 85 5F STA $5F +8BA7- 20 0A 8C JSR $8C0A +8BAA- 18 CLC +8BAB- 65 5F ADC $5F +8BAD- C5 59 CMP $59 +8BAF- B0 02 BCS $8BB3 +8BB1- 85 59 STA $59 +8BB3- A5 50 LDA $50 +8BB5- 18 CLC +8BB6- 65 54 ADC $54 +8BB8- 85 50 STA $50 +8BBA- 90 02 BCC $8BBE +8BBC- E6 51 INC $51 +8BBE- A5 52 LDA $52 +8BC0- 18 CLC +8BC1- 65 55 ADC $55 +8BC3- 85 52 STA $52 +8BC5- 90 02 BCC $8BC9 +8BC7- E6 53 INC $53 +8BC9- C6 61 DEC $61 +8BCB- D0 D5 BNE $8BA2 +8BCD- 60 RTS +8BCE- 38 SEC +8BCF- E9 20 SBC #$20 +8BD1- AA TAX +8BD2- BD 00 85 LDA $8500,X +8BD5- C5 5B CMP $5B +8BD7- B0 02 BCS $8BDB +8BD9- 85 5B STA $5B +8BDB- 38 SEC +8BDC- E9 01 SBC #$01 +8BDE- 48 PHA +8BDF- 29 07 AND #$07 +8BE1- 49 07 EOR #$07 +8BE3- A8 TAY +8BE4- 68 PLA +8BE5- 4A LSR +8BE6- 4A LSR +8BE7- 4A LSR +8BE8- 18 CLC +8BE9- 69 01 ADC #$01 +8BEB- 60 RTS +8BEC- A2 00 LDX #$00 +8BEE- A4 54 LDY $54 +8BF0- 88 DEY +8BF1- B1 50 LDA ($50),Y +8BF3- D0 0B BNE $8C00 +8BF5- 8A TXA +8BF6- 18 CLC +8BF7- 69 08 ADC #$08 +8BF9- AA TAX +8BFA- 88 DEY +8BFB- 10 F4 BPL $8BF1 +8BFD- A9 64 LDA #$64 +8BFF- 60 RTS +8C00- E8 INX +8C01- 4A LSR +8C02- 90 FC BCC $8C00 +8C04- CA DEX +8C05- 8A TXA +8C06- 38 SEC +8C07- E5 5A SBC $5A +8C09- 60 RTS +8C0A- A2 00 LDX #$00 +8C0C- A0 00 LDY #$00 +8C0E- B1 52 LDA ($52),Y +8C10- D0 0D BNE $8C1F +8C12- 8A TXA +8C13- 18 CLC +8C14- 69 08 ADC #$08 +8C16- AA TAX +8C17- C8 INY +8C18- C4 55 CPY $55 +8C1A- D0 F2 BNE $8C0E +8C1C- A9 64 LDA #$64 +8C1E- 60 RTS +8C1F- E8 INX +8C20- 0A ASL +8C21- 90 FC BCC $8C1F +8C23- CA DEX +8C24- 8A TXA +8C25- 60 RTS +8C26- B9 C0 91 LDA $91C0,Y +8C29- 85 55 STA $55 +8C2B- B9 00 91 LDA $9100,Y +8C2E- 85 56 STA $56 +8C30- B9 C1 91 LDA $91C1,Y +8C33- 85 57 STA $57 +8C35- B9 01 91 LDA $9101,Y +8C38- 85 58 STA $58 +8C3A- A6 52 LDX $52 +8C3C- A5 53 LDA $53 +8C3E- F0 08 BEQ $8C48 +8C40- BD B0 95 LDA $95B0,X +8C43- BC 98 94 LDY $9498,X +8C46- D0 06 BNE $8C4E +8C48- BD B0 94 LDA $94B0,X +8C4B- BC 98 93 LDY $9398,X +8C4E- 84 59 STY $59 +8C50- A0 08 LDY #$08 +8C52- 88 DEY +8C53- 38 SEC +8C54- 66 5C ROR $5C +8C56- 4A LSR +8C57- 90 F9 BCC $8C52 +8C59- A2 00 LDX #$00 +8C5B- AD 0B 8A LDA $8A0B +8C5E- D0 3E BNE $8C9E +8C60- A1 50 LDA ($50,X) +8C62- 49 FF EOR #$FF +8C64- 85 5A STA $5A +8C66- E6 50 INC $50 +8C68- D0 02 BNE $8C6C +8C6A- E6 51 INC $51 +8C6C- A2 08 LDX #$08 +8C6E- 06 5A ASL $5A +8C70- 66 5C ROR $5C +8C72- 88 DEY +8C73- D0 0D BNE $8C82 +8C75- A4 59 LDY $59 +8C77- E6 59 INC $59 +8C79- A5 5C LDA $5C +8C7B- 4A LSR +8C7C- 31 55 AND ($55),Y +8C7E- 91 55 STA ($55),Y +8C80- A0 07 LDY #$07 +8C82- C6 54 DEC $54 +8C84- F0 05 BEQ $8C8B +8C86- CA DEX +8C87- D0 E5 BNE $8C6E +8C89- F0 D5 BEQ $8C60 +8C8B- C0 07 CPY #$07 +8C8D- F0 0E BEQ $8C9D +8C8F- A5 5C LDA $5C +8C91- 38 SEC +8C92- 6A ROR +8C93- 88 DEY +8C94- D0 FB BNE $8C91 +8C96- 4A LSR +8C97- A4 59 LDY $59 +8C99- 31 55 AND ($55),Y +8C9B- 91 55 STA ($55),Y +8C9D- 60 RTS +8C9E- A1 50 LDA ($50,X) +8CA0- 49 FF EOR #$FF +8CA2- 85 5A STA $5A +8CA4- E6 50 INC $50 +8CA6- D0 02 BNE $8CAA +8CA8- E6 51 INC $51 +8CAA- A2 08 LDX #$08 +8CAC- 86 5B STX $5B +8CAE- 06 5A ASL $5A +8CB0- A2 02 LDX #$02 +8CB2- 08 PHP +8CB3- 66 5C ROR $5C +8CB5- 88 DEY +8CB6- D0 15 BNE $8CCD +8CB8- A4 59 LDY $59 +8CBA- E6 59 INC $59 +8CBC- A5 5C LDA $5C +8CBE- 4A LSR +8CBF- 85 5C STA $5C +8CC1- 31 55 AND ($55),Y +8CC3- 91 55 STA ($55),Y +8CC5- A5 5C LDA $5C +8CC7- 31 57 AND ($57),Y +8CC9- 91 57 STA ($57),Y +8CCB- A0 07 LDY #$07 +8CCD- 28 PLP +8CCE- CA DEX +8CCF- D0 E1 BNE $8CB2 +8CD1- C6 54 DEC $54 +8CD3- F0 07 BEQ $8CDC +8CD5- A6 5B LDX $5B +8CD7- CA DEX +8CD8- D0 D2 BNE $8CAC +8CDA- F0 C2 BEQ $8C9E +8CDC- C0 07 CPY #$07 +8CDE- F0 16 BEQ $8CF6 +8CE0- A5 5C LDA $5C +8CE2- 38 SEC +8CE3- 6A ROR +8CE4- 88 DEY +8CE5- D0 FB BNE $8CE2 +8CE7- 4A LSR +8CE8- 85 5C STA $5C +8CEA- A4 59 LDY $59 +8CEC- 31 55 AND ($55),Y +8CEE- 91 55 STA ($55),Y +8CF0- A5 5C LDA $5C +8CF2- 31 57 AND ($57),Y +8CF4- 91 57 STA ($57),Y +8CF6- 60 RTS +8CF7- 11 31 ORA ($31),Y +8CF9- 51 18 EOR ($18),Y +8CFB- 38 SEC +8CFC- 18 CLC +8CFD- 00 BRK +8CFE- FF ??? +8CFF- 00 BRK +8D00- AC 03 8A LDY $8A03 +8D03- B9 F5 8C LDA $8CF5,Y +8D06- 48 PHA +8D07- BE F8 8C LDX $8CF8,Y +8D0A- B9 FB 8C LDA $8CFB,Y +8D0D- A8 TAY +8D0E- 68 PLA +8D0F- 4C 12 8D JMP $8D12 +8D12- 8D 7C 8C STA $8C7C +8D15- 8D 99 8C STA $8C99 +8D18- 8D C1 8C STA $8CC1 +8D1B- 8D C7 8C STA $8CC7 +8D1E- 8D EC 8C STA $8CEC +8D21- 8D F2 8C STA $8CF2 +8D24- 8E 53 8C STX $8C53 +8D27- 8E 91 8C STX $8C91 +8D2A- 8E E2 8C STX $8CE2 +8D2D- 8C 63 8C STY $8C63 +8D30- 8C A1 8C STY $8CA1 +8D33- 60 RTS +8D34- 20 3D 8D JSR $8D3D +8D37- 12 8D ORA ($8D) +8D39- 26 8C ROL $8C +8D3B- 85 60 STA $60 +8D3D- 20 69 E0 JSR $E069 +8D40- 20 6C E0 JSR $E06C +8D43- 8D 10 8D STA $8D10 +8D46- 20 6C E0 JSR $E06C +8D49- 8D 11 8D STA $8D11 +8D4C- 20 6C E0 JSR $E06C +8D4F- 8D 1A 8B STA $8B1A +8D52- 20 6C E0 JSR $E06C +8D55- 8D 1B 8B STA $8B1B +8D58- 20 6C E0 JSR $E06C +8D5B- 8D 45 8A STA $8A45 +8D5E- 8D AF 8A STA $8AAF +8D61- 8D E8 8A STA $8AE8 +8D64- 8D ED 8A STA $8AED +8D67- 8D F2 8A STA $8AF2 +8D6A- 8D F7 8A STA $8AF7 +8D6D- 8D 73 8B STA $8B73 +8D70- 8D 78 8B STA $8B78 +8D73- 8D 7D 8B STA $8B7D +8D76- 8D 89 8B STA $8B89 +8D79- 8D 8E 8B STA $8B8E +8D7C- 8D 93 8B STA $8B93 +8D7F- 8D D4 8B STA $8BD4 +8D82- 60 RTS +8D83- 8D 60 A5 STA $A560 +8D86- C3 ??? +8D87- 85 C0 STA $C0 +8D89- A5 C4 LDA $C4 +8D8B- 18 CLC +8D8C- 69 5E ADC #$5E +8D8E- 85 C1 STA $C1 +8D90- A6 C5 LDX $C5 +8D92- E0 08 CPX #$08 +8D94- B0 83 BCS $8D19 +8D96- BD B0 94 LDA $94B0,X +8D99- 60 RTS +8D9A- 80 40 BRA $8DDC +8D9C- 20 10 08 JSR $0810 +8D9F- 04 02 TSB $02 +8DA1- 01 A9 ORA ($A9,X) +8DA3- 55 8D EOR $8D,X +8DA5- D6 8D DEC $8D,X +8DA7- A9 3C LDA #$3C +8DA9- A2 E0 LDX #$E0 +8DAB- A0 0F LDY #$0F +8DAD- 20 BF 8D JSR $8DBF +8DB0- A9 36 LDA #$36 +8DB2- A2 19 LDX #$19 +8DB4- A0 3F LDY #$3F +8DB6- 20 BF 8D JSR $8DBF +8DB9- A9 36 LDA #$36 +8DBB- A2 B5 LDX #$B5 +8DBD- A0 35 LDY #$35 +8DBF- 86 DE STX $DE +8DC1- 0A ASL +8DC2- 38 SEC +8DC3- 6A ROR +8DC4- 85 DF STA $DF +8DC6- 98 TYA +8DC7- 51 DE EOR ($DE),Y +8DC9- 18 CLC +8DCA- 6D D6 8D ADC $8DD6 +8DCD- 8D D6 8D STA $8DD6 +8DD0- 88 DEY +8DD1- 10 F3 BPL $8DC6 +8DD3- 06 DF ASL $DF +8DD5- 60 RTS +8DD6- 09 EE ORA #$EE +8DD8- F5 8D SBC $8D,X +8DDA- AD F5 8D LDA $8DF5 +8DDD- 29 03 AND #$03 +8DDF- D0 F4 BNE $8DD5 +8DE1- A9 01 LDA #$01 +8DE3- 8D EA B7 STA $B7EA +8DE6- 8D F8 B7 STA $B7F8 +8DE9- A9 AB LDA #$AB +8DEB- 49 17 EOR #$17 +8DED- 8D F4 8D STA $8DF4 +8DF0- 6C F3 8D JMP ($8DF3) +8DF3- E0 17 CPX #$17 +8DF5- 03 ??? +8DF6- 8D 6C FA STA $FA6C +8DF9- 8D E0 17 STA $17E0 +8DFC- 17 ??? +8DFD- 03 ??? +8DFE- 00 BRK +8DFF- 00 BRK +8E00- 4C 00 89 JMP $8900 +8E03- 4C 91 8E JMP $8E91 +8E06- 00 BRK +8E07- 00 BRK +8E08- 00 BRK +8E09- A9 00 LDA #$00 +8E0B- 8D 08 8E STA $8E08 +8E0E- A5 80 LDA $80 +8E10- 48 PHA +8E11- A5 81 LDA $81 +8E13- 48 PHA +8E14- A5 82 LDA $82 +8E16- 48 PHA +8E17- A5 83 LDA $83 +8E19- 48 PHA +8E1A- 86 80 STX $80 +8E1C- 84 81 STY $81 +8E1E- A0 04 LDY #$04 +8E20- B1 80 LDA ($80),Y +8E22- 48 PHA +8E23- A0 09 LDY #$09 +8E25- B1 80 LDA ($80),Y +8E27- 48 PHA +8E28- C8 INY +8E29- B1 80 LDA ($80),Y +8E2B- 48 PHA +8E2C- A0 0B LDY #$0B +8E2E- B1 80 LDA ($80),Y +8E30- 99 03 8A STA $8A03,Y +8E33- 88 DEY +8E34- 10 F8 BPL $8E2E +8E36- 20 00 8A JSR $8A00 +8E39- AD 0C 8A LDA $8A0C +8E3C- 85 82 STA $82 +8E3E- AD 0D 8A LDA $8A0D +8E41- 85 83 STA $83 +8E43- A0 00 LDY #$00 +8E45- B1 82 LDA ($82),Y +8E47- F0 03 BEQ $8E4C +8E49- C8 INY +8E4A- D0 F9 BNE $8E45 +8E4C- 8C 99 8F STY $8F99 +8E4F- C8 INY +8E50- B1 82 LDA ($82),Y +8E52- C9 FF CMP #$FF +8E54- F0 20 BEQ $8E76 +8E56- AD 08 8E LDA $8E08 +8E59- D0 1B BNE $8E76 +8E5B- 98 TYA +8E5C- A0 09 LDY #$09 +8E5E- 18 CLC +8E5F- 71 80 ADC ($80),Y +8E61- 91 80 STA ($80),Y +8E63- C8 INY +8E64- B1 80 LDA ($80),Y +8E66- 69 00 ADC #$00 +8E68- 91 80 STA ($80),Y +8E6A- A0 04 LDY #$04 +8E6C- B1 80 LDA ($80),Y +8E6E- 18 CLC +8E6F- 69 08 ADC #$08 +8E71- 91 80 STA ($80),Y +8E73- 4C 2C 8E JMP $8E2C +8E76- A0 0A LDY #$0A +8E78- 68 PLA +8E79- 91 80 STA ($80),Y +8E7B- 88 DEY +8E7C- 68 PLA +8E7D- 91 80 STA ($80),Y +8E7F- A0 04 LDY #$04 +8E81- 68 PLA +8E82- 91 80 STA ($80),Y +8E84- 68 PLA +8E85- 85 83 STA $83 +8E87- 68 PLA +8E88- 85 82 STA $82 +8E8A- 68 PLA +8E8B- 85 81 STA $81 +8E8D- 68 PLA +8E8E- 85 80 STA $80 +8E90- 60 RTS +8E91- AD 06 8E LDA $8E06 +8E94- 8D 96 8F STA $8F96 +8E97- AD 07 8E LDA $8E07 +8E9A- 8D 97 8F STA $8F97 +8E9D- A5 82 LDA $82 +8E9F- 48 PHA +8EA0- A5 83 LDA $83 +8EA2- 48 PHA +8EA3- A2 09 LDX #$09 +8EA5- 20 95 8F JSR $8F95 +8EA8- 85 82 STA $82 +8EAA- E8 INX +8EAB- 20 95 8F JSR $8F95 +8EAE- 85 83 STA $83 +8EB0- A2 02 LDX #$02 +8EB2- 20 95 8F JSR $8F95 +8EB5- A8 TAY +8EB6- B9 98 93 LDA $9398,Y +8EB9- 85 3A STA $3A +8EBB- A9 27 LDA #$27 +8EBD- 38 SEC +8EBE- E5 3A SBC $3A +8EC0- 85 3C STA $3C +8EC2- A2 04 LDX #$04 +8EC4- 20 95 8F JSR $8F95 +8EC7- 85 3B STA $3B +8EC9- A9 07 LDA #$07 +8ECB- 85 3D STA $3D +8ECD- A9 A9 LDA #$A9 +8ECF- A0 00 LDY #$00 +8ED1- 20 78 E0 JSR $E078 +8ED4- AE 06 8E LDX $8E06 +8ED7- AC 07 8E LDY $8E07 +8EDA- 20 0E 8E JSR $8E0E +8EDD- AD 05 8A LDA $8A05 +8EE0- 8D 9B 8F STA $8F9B +8EE3- AD 06 8A LDA $8A06 +8EE6- 8D 9C 8F STA $8F9C +8EE9- 20 48 E0 JSR $E048 +8EEC- 20 69 8F JSR $8F69 +8EEF- 20 1F E0 JSR $E01F +8EF2- 30 0A BMI $8EFE +8EF4- C6 4E DEC $4E +8EF6- D0 F7 BNE $8EEF +8EF8- C6 4F DEC $4F +8EFA- 10 F3 BPL $8EEF +8EFC- 30 EB BMI $8EE9 +8EFE- 48 PHA +8EFF- 20 6C 8F JSR $8F6C +8F02- 68 PLA +8F03- C9 0D CMP #$0D +8F05- F0 58 BEQ $8F5F +8F07- C9 1B CMP #$1B +8F09- F0 56 BEQ $8F61 +8F0B- C9 08 CMP #$08 +8F0D- F0 3B BEQ $8F4A +8F0F- C9 7F CMP #$7F +8F11- F0 37 BEQ $8F4A +8F13- C9 05 CMP #$05 +8F15- F0 3D BEQ $8F54 +8F17- C9 2C CMP #$2C +8F19- F0 CE BEQ $8EE9 +8F1B- C9 40 CMP #$40 +8F1D- F0 CA BEQ $8EE9 +8F1F- C9 20 CMP #$20 +8F21- 90 C6 BCC $8EE9 +8F23- C9 5B CMP #$5B +8F25- B0 C2 BCS $8EE9 +8F27- AC 99 8F LDY $8F99 +8F2A- C0 00 CPY #$00 +8F2C- D0 0F BNE $8F3D +8F2E- C9 20 CMP #$20 +8F30- F0 B7 BEQ $8EE9 +8F32- AC 08 8E LDY $8E08 +8F35- C0 0F CPY #$0F +8F37- D0 04 BNE $8F3D +8F39- C9 41 CMP #$41 +8F3B- 90 AC BCC $8EE9 +8F3D- AC 99 8F LDY $8F99 +8F40- CC 08 8E CPY $8E08 +8F43- B0 A4 BCS $8EE9 +8F45- 91 82 STA ($82),Y +8F47- C8 INY +8F48- D0 06 BNE $8F50 +8F4A- AC 99 8F LDY $8F99 +8F4D- F0 9A BEQ $8EE9 +8F4F- 88 DEY +8F50- A9 00 LDA #$00 +8F52- F0 03 BEQ $8F57 +8F54- A9 00 LDA #$00 +8F56- A8 TAY +8F57- 91 82 STA ($82),Y +8F59- 8C 99 8F STY $8F99 +8F5C- 4C B0 8E JMP $8EB0 +8F5F- 18 CLC +8F60- 24 38 BIT $38 +8F62- 68 PLA +8F63- 85 83 STA $83 +8F65- 68 PLA +8F66- 85 82 STA $82 +8F68- 60 RTS +8F69- A9 04 LDA #$04 +8F6B- 2C A9 03 BIT $03A9 +8F6E- 8D 03 8A STA $8A03 +8F71- A9 00 LDA #$00 +8F73- 8D 0A 8A STA $8A0A +8F76- 8D 04 8A STA $8A04 +8F79- AD 9B 8F LDA $8F9B +8F7C- 8D 05 8A STA $8A05 +8F7F- AD 9C 8F LDA $8F9C +8F82- 8D 06 8A STA $8A06 +8F85- A9 92 LDA #$92 +8F87- 8D 0C 8A STA $8A0C +8F8A- A9 8F LDA #$8F +8F8C- 8D 0D 8A STA $8A0D +8F8F- 4C 00 8A JMP $8A00 +8F92- 49 49 EOR #$49 +8F94- 00 BRK +8F95- BD 00 80 LDA $8000,X +8F98- 60 RTS +8F99- 00 BRK +8F9A- 00 BRK +8F9B- 00 BRK +8F9C- 00 BRK +8F9D- 20 CE 8E JSR $8ECE +8FA0- AD 05 8A LDA $8A05 +8FA3- 8D 7A 90 STA $907A +8FA6- AD 06 8A LDA $8A06 +8FA9- 8D 7B 90 STA $907B +8FAC- 20 47 90 JSR $9047 +8FAF- 20 00 8E JSR $8E00 +8FB2- D0 27 BNE $8FDB +8FB4- EE 79 90 INC $9079 +8FB7- AD 79 90 LDA $9079 +8FBA- 0A ASL +8FBB- 0A ASL +8FBC- D0 03 BNE $8FC1 +8FBE- 20 47 90 JSR $9047 +8FC1- 0A ASL +8FC2- D0 03 BNE $8FC7 +8FC4- 20 4B 90 JSR $904B +8FC7- AD 00 C0 LDA $C000 r:KBD w:CLR80COL +8FCA- 10 E3 BPL $8FAF +8FCC- 8D 10 C0 STA $C010 r:KBDSTRB +8FCF- 29 7F AND #$7F +8FD1- C9 7F CMP #$7F +8FD3- F0 06 BEQ $8FDB +8FD5- C9 60 CMP #$60 +8FD7- 90 02 BCC $8FDB +8FD9- 29 5F AND #$5F +8FDB- 48 PHA +8FDC- 20 4B 90 JSR $904B +8FDF- 68 PLA +8FE0- C9 0D CMP #$0D +8FE2- F0 58 BEQ $903C +8FE4- C9 1B CMP #$1B +8FE6- F0 57 BEQ $903F +8FE8- C9 08 CMP #$08 +8FEA- F0 3B BEQ $9027 +8FEC- C9 7F CMP #$7F +8FEE- F0 37 BEQ $9027 +8FF0- C9 05 CMP #$05 +8FF2- F0 3D BEQ $9031 +8FF4- C9 2C CMP #$2C +8FF6- F0 B4 BEQ $8FAC +8FF8- C9 40 CMP #$40 +8FFA- F0 B0 BEQ $8FAC +8FFC- C9 20 CMP #$20 +8FFE- 90 AC BCC $8FAC +9000- C9 5B CMP #$5B +9002- B0 A8 BCS $8FAC +9004- AC 78 90 LDY $9078 +9007- C0 00 CPY #$00 +9009- D0 0F BNE $901A +900B- C9 20 CMP #$20 +900D- F0 9D BEQ $8FAC +900F- AC 17 8E LDY $8E17 +9012- C0 0F CPY #$0F +9014- D0 04 BNE $901A +9016- C9 41 CMP #$41 +9018- 90 92 BCC $8FAC +901A- AC 78 90 LDY $9078 +901D- CC 17 8E CPY $8E17 +9020- B0 8A BCS $8FAC +9022- 91 82 STA ($82),Y +9024- C8 INY +9025- D0 06 BNE $902D +9027- AC 78 90 LDY $9078 +902A- F0 80 BEQ $8FAC +902C- 88 DEY +902D- A9 00 LDA #$00 +902F- F0 03 BEQ $9034 +9031- A9 00 LDA #$00 +9033- A8 TAY +9034- 91 82 STA ($82),Y +9036- 8C 78 90 STY $9078 +9039- 4C 70 8F JMP $8F70 +903C- 18 CLC +903D- 90 01 BCC $9040 +903F- 38 SEC +9040- 68 PLA +9041- 85 83 STA $83 +9043- 68 PLA +9044- 85 82 STA $82 +9046- 60 RTS +9047- A9 02 LDA #$02 +9049- D0 02 BNE $904D +904B- A9 03 LDA #$03 +904D- 8D 03 8A STA $8A03 +9050- A9 00 LDA #$00 +9052- 8D 0A 8A STA $8A0A +9055- 8D 04 8A STA $8A04 +9058- AD 7A 90 LDA $907A +905B- 8D 05 8A STA $8A05 +905E- AD 7B 90 LDA $907B +9061- 8D 06 8A STA $8A06 +9064- A9 71 LDA #$71 +9066- 8D 0C 8A STA $8A0C +9069- A9 90 LDA #$90 +906B- 8D 0D 8A STA $8A0D +906E- 4C 00 8A JMP $8A00 +9071- 49 49 EOR #$49 +9073- 00 BRK +9074- BD 00 80 LDA $8000,X +9077- 60 RTS +9078- 00 BRK +9079- 00 BRK +907A- 00 BRK +907B- 00 BRK +907C- 00 BRK +907D- 00 BRK +907E- FF ??? +907F- 00 BRK +9080- 00 BRK +9081- 40 RTI +9082- 20 60 10 JSR $1060 +9085- 50 30 BVC $90B7 +9087- 70 08 BVS $9091 +9089- 48 PHA +908A- 28 PLP +908B- 68 PLA +908C- 18 CLC +908D- 58 CLI +908E- 38 SEC +908F- 78 SEI +9090- 04 44 TSB $44 +9092- 24 64 BIT $64 +9094- 14 54 TRB $54 +9096- 34 74 BIT $74,X +9098- 0C 4C 2C TSB $2C4C +909B- 6C 1C 5C JMP ($5C1C) +909E- 3C 7C 02 BIT $027C,X +90A1- 42 ??? +90A2- 22 ??? +90A3- 62 ??? +90A4- 12 52 ORA ($52) +90A6- 32 72 AND ($72) +90A8- 0A ASL +90A9- 4A LSR +90AA- 2A ROL +90AB- 6A ROR +90AC- 1A INC +90AD- 5A PHY +90AE- 3A DEC +90AF- 7A PLY +90B0- 06 46 ASL $46 +90B2- 26 66 ROL $66 +90B4- 16 56 ASL $56,X +90B6- 36 76 ROL $76,X +90B8- 0E 4E 2E ASL $2E4E +90BB- 6E 1E 5E ROR $5E1E +90BE- 3E 7E 01 ROL $017E,X +90C1- 41 21 EOR ($21,X) +90C3- 61 11 ADC ($11,X) +90C5- 51 31 EOR ($31),Y +90C7- 71 09 ADC ($09),Y +90C9- 49 29 EOR #$29 +90CB- 69 19 ADC #$19 +90CD- 59 39 79 EOR $7939,Y +90D0- 05 45 ORA $45 +90D2- 25 65 AND $65 +90D4- 15 55 ORA $55,X +90D6- 35 75 AND $75,X +90D8- 0D 4D 2D ORA $2D4D +90DB- 6D 1D 5D ADC $5D1D +90DE- 3D 7D 03 AND $037D,X +90E1- 43 ??? +90E2- 23 ??? +90E3- 63 ??? +90E4- 13 ??? +90E5- 53 ??? +90E6- 33 ??? +90E7- 73 ??? +90E8- 0B ??? +90E9- 4B ??? +90EA- 2B ??? +90EB- 6B ??? +90EC- 1B ??? +90ED- 5B ??? +90EE- 3B ??? +90EF- 7B ??? +90F0- 07 ??? +90F1- 47 ??? +90F2- 27 ??? +90F3- 67 ??? +90F4- 17 ??? +90F5- 57 ??? +90F6- 37 ??? +90F7- 77 ??? +90F8- 0F ??? +90F9- 4F ??? +90FA- 2F ??? +90FB- 6F ??? +90FC- 1F ??? +90FD- 5F ??? +90FE- 3F ??? +90FF- 7F ??? +9100- 20 24 28 JSR $2824 +9103- 2C 30 34 BIT $3430 +9106- 38 SEC +9107- 3C 20 24 BIT $2420,X +910A- 28 PLP +910B- 2C 30 34 BIT $3430 +910E- 38 SEC +910F- 3C 21 25 BIT $2521,X +9112- 29 2D AND #$2D +9114- 31 35 AND ($35),Y +9116- 39 3D 21 AND $213D,Y +9119- 25 29 AND $29 +911B- 2D 31 35 AND $3531 +911E- 39 3D 22 AND $223D,Y +9121- 26 2A ROL $2A +9123- 2E 32 36 ROL $3632 +9126- 3A DEC +9127- 3E 22 26 ROL $2622,X +912A- 2A ROL +912B- 2E 32 36 ROL $3632 +912E- 3A DEC +912F- 3E 23 27 ROL $2723,X +9132- 2B ??? +9133- 2F ??? +9134- 33 ??? +9135- 37 ??? +9136- 3B ??? +9137- 3F ??? +9138- 23 ??? +9139- 27 ??? +913A- 2B ??? +913B- 2F ??? +913C- 33 ??? +913D- 37 ??? +913E- 3B ??? +913F- 3F ??? +9140- 20 24 28 JSR $2824 +9143- 2C 30 34 BIT $3430 +9146- 38 SEC +9147- 3C 20 24 BIT $2420,X +914A- 28 PLP +914B- 2C 30 34 BIT $3430 +914E- 38 SEC +914F- 3C 21 25 BIT $2521,X +9152- 29 2D AND #$2D +9154- 31 35 AND ($35),Y +9156- 39 3D 21 AND $213D,Y +9159- 25 29 AND $29 +915B- 2D 31 35 AND $3531 +915E- 39 3D 22 AND $223D,Y +9161- 26 2A ROL $2A +9163- 2E 32 36 ROL $3632 +9166- 3A DEC +9167- 3E 22 26 ROL $2622,X +916A- 2A ROL +916B- 2E 32 36 ROL $3632 +916E- 3A DEC +916F- 3E 23 27 ROL $2723,X +9172- 2B ??? +9173- 2F ??? +9174- 33 ??? +9175- 37 ??? +9176- 3B ??? +9177- 3F ??? +9178- 23 ??? +9179- 27 ??? +917A- 2B ??? +917B- 2F ??? +917C- 33 ??? +917D- 37 ??? +917E- 3B ??? +917F- 3F ??? +9180- 20 24 28 JSR $2824 +9183- 2C 30 34 BIT $3430 +9186- 38 SEC +9187- 3C 20 24 BIT $2420,X +918A- 28 PLP +918B- 2C 30 34 BIT $3430 +918E- 38 SEC +918F- 3C 21 25 BIT $2521,X +9192- 29 2D AND #$2D +9194- 31 35 AND ($35),Y +9196- 39 3D 21 AND $213D,Y +9199- 25 29 AND $29 +919B- 2D 31 35 AND $3531 +919E- 39 3D 22 AND $223D,Y +91A1- 26 2A ROL $2A +91A3- 2E 32 36 ROL $3632 +91A6- 3A DEC +91A7- 3E 22 26 ROL $2622,X +91AA- 2A ROL +91AB- 2E 32 36 ROL $3632 +91AE- 3A DEC +91AF- 3E 23 27 ROL $2723,X +91B2- 2B ??? +91B3- 2F ??? +91B4- 33 ??? +91B5- 37 ??? +91B6- 3B ??? +91B7- 3F ??? +91B8- 23 ??? +91B9- 27 ??? +91BA- 2B ??? +91BB- 2F ??? +91BC- 33 ??? +91BD- 37 ??? +91BE- 3B ??? +91BF- 3F ??? +91C0- 00 BRK +91C1- 00 BRK +91C2- 00 BRK +91C3- 00 BRK +91C4- 00 BRK +91C5- 00 BRK +91C6- 00 BRK +91C7- 00 BRK +91C8- 80 80 BRA $914A +91CA- 80 80 BRA $914C +91CC- 80 80 BRA $914E +91CE- 80 80 BRA $9150 +91D0- 00 BRK +91D1- 00 BRK +91D2- 00 BRK +91D3- 00 BRK +91D4- 00 BRK +91D5- 00 BRK +91D6- 00 BRK +91D7- 00 BRK +91D8- 80 80 BRA $915A +91DA- 80 80 BRA $915C +91DC- 80 80 BRA $915E +91DE- 80 80 BRA $9160 +91E0- 00 BRK +91E1- 00 BRK +91E2- 00 BRK +91E3- 00 BRK +91E4- 00 BRK +91E5- 00 BRK +91E6- 00 BRK +91E7- 00 BRK +91E8- 80 80 BRA $916A +91EA- 80 80 BRA $916C +91EC- 80 80 BRA $916E +91EE- 80 80 BRA $9170 +91F0- 00 BRK +91F1- 00 BRK +91F2- 00 BRK +91F3- 00 BRK +91F4- 00 BRK +91F5- 00 BRK +91F6- 00 BRK +91F7- 00 BRK +91F8- 80 80 BRA $917A +91FA- 80 80 BRA $917C +91FC- 80 80 BRA $917E +91FE- 80 80 BRA $9180 +9200- 28 PLP +9201- 28 PLP +9202- 28 PLP +9203- 28 PLP +9204- 28 PLP +9205- 28 PLP +9206- 28 PLP +9207- 28 PLP +9208- A8 TAY +9209- A8 TAY +920A- A8 TAY +920B- A8 TAY +920C- A8 TAY +920D- A8 TAY +920E- A8 TAY +920F- A8 TAY +9210- 28 PLP +9211- 28 PLP +9212- 28 PLP +9213- 28 PLP +9214- 28 PLP +9215- 28 PLP +9216- 28 PLP +9217- 28 PLP +9218- A8 TAY +9219- A8 TAY +921A- A8 TAY +921B- A8 TAY +921C- A8 TAY +921D- A8 TAY +921E- A8 TAY +921F- A8 TAY +9220- 28 PLP +9221- 28 PLP +9222- 28 PLP +9223- 28 PLP +9224- 28 PLP +9225- 28 PLP +9226- 28 PLP +9227- 28 PLP +9228- A8 TAY +9229- A8 TAY +922A- A8 TAY +922B- A8 TAY +922C- A8 TAY +922D- A8 TAY +922E- A8 TAY +922F- A8 TAY +9230- 28 PLP +9231- 28 PLP +9232- 28 PLP +9233- 28 PLP +9234- 28 PLP +9235- 28 PLP +9236- 28 PLP +9237- 28 PLP +9238- A8 TAY +9239- A8 TAY +923A- A8 TAY +923B- A8 TAY +923C- A8 TAY +923D- A8 TAY +923E- A8 TAY +923F- A8 TAY +9240- 50 50 BVC $9292 +9242- 50 50 BVC $9294 +9244- 50 50 BVC $9296 +9246- 50 50 BVC $9298 +9248- D0 D0 BNE $921A +924A- D0 D0 BNE $921C +924C- D0 D0 BNE $921E +924E- D0 D0 BNE $9220 +9250- 50 50 BVC $92A2 +9252- 50 50 BVC $92A4 +9254- 50 50 BVC $92A6 +9256- 50 50 BVC $92A8 +9258- D0 D0 BNE $922A +925A- D0 D0 BNE $922C +925C- D0 D0 BNE $922E +925E- D0 D0 BNE $9230 +9260- 50 50 BVC $92B2 +9262- 50 50 BVC $92B4 +9264- 50 50 BVC $92B6 +9266- 50 50 BVC $92B8 +9268- D0 D0 BNE $923A +926A- D0 D0 BNE $923C +926C- D0 D0 BNE $923E +926E- D0 D0 BNE $9240 +9270- 50 50 BVC $92C2 +9272- 50 50 BVC $92C4 +9274- 50 50 BVC $92C6 +9276- 50 50 BVC $92C8 +9278- D0 D0 BNE $924A +927A- D0 D0 BNE $924C +927C- D0 D0 BNE $924E +927E- D0 D0 BNE $9250 +9280- 00 BRK +9281- 00 BRK +9282- 00 BRK +9283- 00 BRK +9284- 01 01 ORA ($01,X) +9286- 01 02 ORA ($02,X) +9288- 02 ??? +9289- 02 ??? +928A- 02 ??? +928B- 03 ??? +928C- 03 ??? +928D- 03 ??? +928E- 04 04 TSB $04 +9290- 04 04 TSB $04 +9292- 05 05 ORA $05 +9294- 05 06 ORA $06 +9296- 06 06 ASL $06 +9298- 06 07 ASL $07 +929A- 07 ??? +929B- 07 ??? +929C- 08 PHP +929D- 08 PHP +929E- 08 PHP +929F- 08 PHP +92A0- 09 09 ORA #$09 +92A2- 09 0A ORA #$0A +92A4- 0A ASL +92A5- 0A ASL +92A6- 0A ASL +92A7- 0B ??? +92A8- 0B ??? +92A9- 0B ??? +92AA- 0C 0C 0C TSB $0C0C +92AD- 0C 0D 0D TSB $0D0D +92B0- 0D 0E 0E ORA $0E0E +92B3- 0E 0E 0F ASL $0F0E +92B6- 0F ??? +92B7- 0F ??? +92B8- 10 10 BPL $92CA +92BA- 10 10 BPL $92CC +92BC- 11 11 ORA ($11),Y +92BE- 11 12 ORA ($12),Y +92C0- 12 12 ORA ($12) +92C2- 12 13 ORA ($13) +92C4- 13 ??? +92C5- 13 ??? +92C6- 14 14 TRB $14 +92C8- 14 14 TRB $14 +92CA- 15 15 ORA $15,X +92CC- 15 16 ORA $16,X +92CE- 16 16 ASL $16,X +92D0- 16 17 ASL $17,X +92D2- 17 ??? +92D3- 17 ??? +92D4- 18 CLC +92D5- 18 CLC +92D6- 18 CLC +92D7- 18 CLC +92D8- 19 19 19 ORA $1919,Y +92DB- 1A INC +92DC- 1A INC +92DD- 1A INC +92DE- 1A INC +92DF- 1B ??? +92E0- 1B ??? +92E1- 1B ??? +92E2- 1C 1C 1C TRB $1C1C +92E5- 1C 1D 1D TRB $1D1D +92E8- 1D 1E 1E ORA $1E1E,X +92EB- 1E 1E 1F ASL $1F1E,X +92EE- 1F ??? +92EF- 1F ??? +92F0- 20 20 20 JSR $2020 +92F3- 20 21 21 JSR $2121 +92F6- 21 22 AND ($22,X) +92F8- 22 ??? +92F9- 22 ??? +92FA- 22 ??? +92FB- 23 ??? +92FC- 23 ??? +92FD- 23 ??? +92FE- 24 24 BIT $24 +9300- 24 24 BIT $24 +9302- 25 25 AND $25 +9304- 25 26 AND $26 +9306- 26 26 ROL $26 +9308- 26 27 ROL $27 +930A- 27 ??? +930B- 27 ??? +930C- 01 04 ORA ($04,X) +930E- 10 40 BPL $9350 +9310- 02 ??? +9311- 08 PHP +9312- 20 01 04 JSR $0401 +9315- 10 40 BPL $9357 +9317- 02 ??? +9318- 08 PHP +9319- 20 01 04 JSR $0401 +931C- 10 40 BPL $935E +931E- 02 ??? +931F- 08 PHP +9320- 20 01 04 JSR $0401 +9323- 10 40 BPL $9365 +9325- 02 ??? +9326- 08 PHP +9327- 20 01 04 JSR $0401 +932A- 10 40 BPL $936C +932C- 02 ??? +932D- 08 PHP +932E- 20 01 04 JSR $0401 +9331- 10 40 BPL $9373 +9333- 02 ??? +9334- 08 PHP +9335- 20 01 04 JSR $0401 +9338- 10 40 BPL $937A +933A- 02 ??? +933B- 08 PHP +933C- 20 01 04 JSR $0401 +933F- 10 40 BPL $9381 +9341- 02 ??? +9342- 08 PHP +9343- 20 01 04 JSR $0401 +9346- 10 40 BPL $9388 +9348- 02 ??? +9349- 08 PHP +934A- 20 01 04 JSR $0401 +934D- 10 40 BPL $938F +934F- 02 ??? +9350- 08 PHP +9351- 20 01 04 JSR $0401 +9354- 10 40 BPL $9396 +9356- 02 ??? +9357- 08 PHP +9358- 20 01 04 JSR $0401 +935B- 10 40 BPL $939D +935D- 02 ??? +935E- 08 PHP +935F- 20 01 04 JSR $0401 +9362- 10 40 BPL $93A4 +9364- 02 ??? +9365- 08 PHP +9366- 20 01 04 JSR $0401 +9369- 10 40 BPL $93AB +936B- 02 ??? +936C- 08 PHP +936D- 20 01 04 JSR $0401 +9370- 10 40 BPL $93B2 +9372- 02 ??? +9373- 08 PHP +9374- 20 01 04 JSR $0401 +9377- 10 40 BPL $93B9 +9379- 02 ??? +937A- 08 PHP +937B- 20 01 04 JSR $0401 +937E- 10 40 BPL $93C0 +9380- 02 ??? +9381- 08 PHP +9382- 20 01 04 JSR $0401 +9385- 10 40 BPL $93C7 +9387- 02 ??? +9388- 08 PHP +9389- 20 01 04 JSR $0401 +938C- 10 40 BPL $93CE +938E- 02 ??? +938F- 08 PHP +9390- 20 01 04 JSR $0401 +9393- 10 40 BPL $93D5 +9395- 02 ??? +9396- 08 PHP +9397- 20 00 00 JSR $0000 +939A- 00 BRK +939B- 00 BRK +939C- 00 BRK +939D- 00 BRK +939E- 00 BRK +939F- 01 01 ORA ($01,X) +93A1- 01 01 ORA ($01,X) +93A3- 01 01 ORA ($01,X) +93A5- 01 02 ORA ($02,X) +93A7- 02 ??? +93A8- 02 ??? +93A9- 02 ??? +93AA- 02 ??? +93AB- 02 ??? +93AC- 02 ??? +93AD- 03 ??? +93AE- 03 ??? +93AF- 03 ??? +93B0- 03 ??? +93B1- 03 ??? +93B2- 03 ??? +93B3- 03 ??? +93B4- 04 04 TSB $04 +93B6- 04 04 TSB $04 +93B8- 04 04 TSB $04 +93BA- 04 05 TSB $05 +93BC- 05 05 ORA $05 +93BE- 05 05 ORA $05 +93C0- 05 05 ORA $05 +93C2- 06 06 ASL $06 +93C4- 06 06 ASL $06 +93C6- 06 06 ASL $06 +93C8- 06 07 ASL $07 +93CA- 07 ??? +93CB- 07 ??? +93CC- 07 ??? +93CD- 07 ??? +93CE- 07 ??? +93CF- 07 ??? +93D0- 08 PHP +93D1- 08 PHP +93D2- 08 PHP +93D3- 08 PHP +93D4- 08 PHP +93D5- 08 PHP +93D6- 08 PHP +93D7- 09 09 ORA #$09 +93D9- 09 09 ORA #$09 +93DB- 09 09 ORA #$09 +93DD- 09 0A ORA #$0A +93DF- 0A ASL +93E0- 0A ASL +93E1- 0A ASL +93E2- 0A ASL +93E3- 0A ASL +93E4- 0A ASL +93E5- 0B ??? +93E6- 0B ??? +93E7- 0B ??? +93E8- 0B ??? +93E9- 0B ??? +93EA- 0B ??? +93EB- 0B ??? +93EC- 0C 0C 0C TSB $0C0C +93EF- 0C 0C 0C TSB $0C0C +93F2- 0C 0D 0D TSB $0D0D +93F5- 0D 0D 0D ORA $0D0D +93F8- 0D 0D 0E ORA $0E0D +93FB- 0E 0E 0E ASL $0E0E +93FE- 0E 0E 0E ASL $0E0E +9401- 0F ??? +9402- 0F ??? +9403- 0F ??? +9404- 0F ??? +9405- 0F ??? +9406- 0F ??? +9407- 0F ??? +9408- 10 10 BPL $941A +940A- 10 10 BPL $941C +940C- 10 10 BPL $941E +940E- 10 11 BPL $9421 +9410- 11 11 ORA ($11),Y +9412- 11 11 ORA ($11),Y +9414- 11 11 ORA ($11),Y +9416- 12 12 ORA ($12) +9418- 12 12 ORA ($12) +941A- 12 12 ORA ($12) +941C- 12 13 ORA ($13) +941E- 13 ??? +941F- 13 ??? +9420- 13 ??? +9421- 13 ??? +9422- 13 ??? +9423- 13 ??? +9424- 14 14 TRB $14 +9426- 14 14 TRB $14 +9428- 14 14 TRB $14 +942A- 14 15 TRB $15 +942C- 15 15 ORA $15,X +942E- 15 15 ORA $15,X +9430- 15 15 ORA $15,X +9432- 16 16 ASL $16,X +9434- 16 16 ASL $16,X +9436- 16 16 ASL $16,X +9438- 16 17 ASL $17,X +943A- 17 ??? +943B- 17 ??? +943C- 17 ??? +943D- 17 ??? +943E- 17 ??? +943F- 17 ??? +9440- 18 CLC +9441- 18 CLC +9442- 18 CLC +9443- 18 CLC +9444- 18 CLC +9445- 18 CLC +9446- 18 CLC +9447- 19 19 19 ORA $1919,Y +944A- 19 19 19 ORA $1919,Y +944D- 19 1A 1A ORA $1A1A,Y +9450- 1A INC +9451- 1A INC +9452- 1A INC +9453- 1A INC +9454- 1A INC +9455- 1B ??? +9456- 1B ??? +9457- 1B ??? +9458- 1B ??? +9459- 1B ??? +945A- 1B ??? +945B- 1B ??? +945C- 1C 1C 1C TRB $1C1C +945F- 1C 1C 1C TRB $1C1C +9462- 1C 1D 1D TRB $1D1D +9465- 1D 1D 1D ORA $1D1D,X +9468- 1D 1D 1E ORA $1E1D,X +946B- 1E 1E 1E ASL $1E1E,X +946E- 1E 1E 1E ASL $1E1E,X +9471- 1F ??? +9472- 1F ??? +9473- 1F ??? +9474- 1F ??? +9475- 1F ??? +9476- 1F ??? +9477- 1F ??? +9478- 20 20 20 JSR $2020 +947B- 20 20 20 JSR $2020 +947E- 20 21 21 JSR $2121 +9481- 21 21 AND ($21,X) +9483- 21 21 AND ($21,X) +9485- 21 22 AND ($22,X) +9487- 22 ??? +9488- 22 ??? +9489- 22 ??? +948A- 22 ??? +948B- 22 ??? +948C- 22 ??? +948D- 23 ??? +948E- 23 ??? +948F- 23 ??? +9490- 23 ??? +9491- 23 ??? +9492- 23 ??? +9493- 23 ??? +9494- 24 24 BIT $24 +9496- 24 24 BIT $24 +9498- 24 24 BIT $24 +949A- 24 25 BIT $25 +949C- 25 25 AND $25 +949E- 25 25 AND $25 +94A0- 25 25 AND $25 +94A2- 26 26 ROL $26 +94A4- 26 26 ROL $26 +94A6- 26 26 ROL $26 +94A8- 26 27 ROL $27 +94AA- 27 ??? +94AB- 27 ??? +94AC- 27 ??? +94AD- 27 ??? +94AE- 27 ??? +94AF- 27 ??? +94B0- 01 02 ORA ($02,X) +94B2- 04 08 TSB $08 +94B4- 10 20 BPL $94D6 +94B6- 40 RTI +94B7- 01 02 ORA ($02,X) +94B9- 04 08 TSB $08 +94BB- 10 20 BPL $94DD +94BD- 40 RTI +94BE- 01 02 ORA ($02,X) +94C0- 04 08 TSB $08 +94C2- 10 20 BPL $94E4 +94C4- 40 RTI +94C5- 01 02 ORA ($02,X) +94C7- 04 08 TSB $08 +94C9- 10 20 BPL $94EB +94CB- 40 RTI +94CC- 01 02 ORA ($02,X) +94CE- 04 08 TSB $08 +94D0- 10 20 BPL $94F2 +94D2- 40 RTI +94D3- 01 02 ORA ($02,X) +94D5- 04 08 TSB $08 +94D7- 10 20 BPL $94F9 +94D9- 40 RTI +94DA- 01 02 ORA ($02,X) +94DC- 04 08 TSB $08 +94DE- 10 20 BPL $9500 +94E0- 40 RTI +94E1- 01 02 ORA ($02,X) +94E3- 04 08 TSB $08 +94E5- 10 20 BPL $9507 +94E7- 40 RTI +94E8- 01 02 ORA ($02,X) +94EA- 04 08 TSB $08 +94EC- 10 20 BPL $950E +94EE- 40 RTI +94EF- 01 02 ORA ($02,X) +94F1- 04 08 TSB $08 +94F3- 10 20 BPL $9515 +94F5- 40 RTI +94F6- 01 02 ORA ($02,X) +94F8- 04 08 TSB $08 +94FA- 10 20 BPL $951C +94FC- 40 RTI +94FD- 01 02 ORA ($02,X) +94FF- 04 08 TSB $08 +9501- 10 20 BPL $9523 +9503- 40 RTI +9504- 01 02 ORA ($02,X) +9506- 04 08 TSB $08 +9508- 10 20 BPL $952A +950A- 40 RTI +950B- 01 02 ORA ($02,X) +950D- 04 08 TSB $08 +950F- 10 20 BPL $9531 +9511- 40 RTI +9512- 01 02 ORA ($02,X) +9514- 04 08 TSB $08 +9516- 10 20 BPL $9538 +9518- 40 RTI +9519- 01 02 ORA ($02,X) +951B- 04 08 TSB $08 +951D- 10 20 BPL $953F +951F- 40 RTI +9520- 01 02 ORA ($02,X) +9522- 04 08 TSB $08 +9524- 10 20 BPL $9546 +9526- 40 RTI +9527- 01 02 ORA ($02,X) +9529- 04 08 TSB $08 +952B- 10 20 BPL $954D +952D- 40 RTI +952E- 01 02 ORA ($02,X) +9530- 04 08 TSB $08 +9532- 10 20 BPL $9554 +9534- 40 RTI +9535- 01 02 ORA ($02,X) +9537- 04 08 TSB $08 +9539- 10 20 BPL $955B +953B- 40 RTI +953C- 01 02 ORA ($02,X) +953E- 04 08 TSB $08 +9540- 10 20 BPL $9562 +9542- 40 RTI +9543- 01 02 ORA ($02,X) +9545- 04 08 TSB $08 +9547- 10 20 BPL $9569 +9549- 40 RTI +954A- 01 02 ORA ($02,X) +954C- 04 08 TSB $08 +954E- 10 20 BPL $9570 +9550- 40 RTI +9551- 01 02 ORA ($02,X) +9553- 04 08 TSB $08 +9555- 10 20 BPL $9577 +9557- 40 RTI +9558- 01 02 ORA ($02,X) +955A- 04 08 TSB $08 +955C- 10 20 BPL $957E +955E- 40 RTI +955F- 01 02 ORA ($02,X) +9561- 04 08 TSB $08 +9563- 10 20 BPL $9585 +9565- 40 RTI +9566- 01 02 ORA ($02,X) +9568- 04 08 TSB $08 +956A- 10 20 BPL $958C +956C- 40 RTI +956D- 01 02 ORA ($02,X) +956F- 04 08 TSB $08 +9571- 10 20 BPL $9593 +9573- 40 RTI +9574- 01 02 ORA ($02,X) +9576- 04 08 TSB $08 +9578- 10 20 BPL $959A +957A- 40 RTI +957B- 01 02 ORA ($02,X) +957D- 04 08 TSB $08 +957F- 10 20 BPL $95A1 +9581- 40 RTI +9582- 01 02 ORA ($02,X) +9584- 04 08 TSB $08 +9586- 10 20 BPL $95A8 +9588- 40 RTI +9589- 01 02 ORA ($02,X) +958B- 04 08 TSB $08 +958D- 10 20 BPL $95AF +958F- 40 RTI +9590- 01 02 ORA ($02,X) +9592- 04 08 TSB $08 +9594- 10 20 BPL $95B6 +9596- 40 RTI +9597- 01 02 ORA ($02,X) +9599- 04 08 TSB $08 +959B- 10 20 BPL $95BD +959D- 40 RTI +959E- 01 02 ORA ($02,X) +95A0- 04 08 TSB $08 +95A2- 10 20 BPL $95C4 +95A4- 40 RTI +95A5- 01 02 ORA ($02,X) +95A7- 04 08 TSB $08 +95A9- 10 20 BPL $95CB +95AB- 40 RTI +95AC- 01 02 ORA ($02,X) +95AE- 04 08 TSB $08 +95B0- 10 20 BPL $95D2 +95B2- 40 RTI +95B3- 01 02 ORA ($02,X) +95B5- 04 08 TSB $08 +95B7- 10 20 BPL $95D9 +95B9- 40 RTI +95BA- 01 02 ORA ($02,X) +95BC- 04 08 TSB $08 +95BE- 10 20 BPL $95E0 +95C0- 40 RTI +95C1- 01 02 ORA ($02,X) +95C3- 04 08 TSB $08 +95C5- 10 20 BPL $95E7 +95C7- 40 RTI diff --git a/PSC Source Disk 1 - System (v10)/S_8800.txt b/PSC Source Disk 1 - System (v10)/S_8800.txt new file mode 100644 index 0000000..8556271 --- /dev/null +++ b/PSC Source Disk 1 - System (v10)/S_8800.txt @@ -0,0 +1,285 @@ + NLS + TTL "S:8800" +ORG = $8800 + NOG +; +; Routines for pages $8800 & $8900 +; +;------------ +* +* AGE ROUTINES +* AR PAGE +* NT STRING +* +TADDR EPZ $08 +XSAVE EPZ $09 +YSAVE EPZ $0A +* +KBCODE EQU $C000 +KBSTROBE EQU $C010 +*------- ---- + ORG ORG + OBJ $800 +*------- ---- +TCLEAR JMP $FC58 + JMP TPRINT +* +CURSX HEX 00 +CURSY HEX 00 +STRADDR HEX 0000 +INMAX HEX 00 +VOPTION HEX 80 +RETFLAG HEX 00 +* + JMP DOIT +* +TEXTLO HEX 0080008000800080 + HEX 28A828A828A828A8 + HEX 50D050D050D050D0 +* +TEXTHI HEX 0404050506060707 + HEX 0404050506060707 + HEX 0404050506060707 +*------- ------------- +TPRINT LDA TADDR + PHA + LDA TADDR+1 + PHA + JSR >0 + PLA + STA TADDR+1 + PLA + STA TADDR + RTS +*------- ----------- +* TEXT STRING +* +^0 LDX CURSY + LDA TEXTLO,X + STA TADDR + LDA TEXTHI,X + STA TADDR+1 + LDA STRADDR + STA TLDA+1 + LDA STRADDR+1 + STA TLDA+2 + LDY CURSX + LDX #00 + STX RETFLAG +^1 JSR TLDA + BEQ >2 + AND #$3F + ORA VOPTION + STA (TADDR),Y + INX + INY + CPX INMAX + BNE <1 +^2 RTS +*------- ----------- +* DISPLAY MULTIPLE LINES +* STRADDR +* ITIAL CURSY +* SET TO ZERO +* UNTIL $FF FOUND +* +DOIT STX STRADDR + STY STRADDR+1 + STA CURSY + LDA #00 + STA CURSX + LDX #40 + STA INMAX + LDA #01 + STA LCOUNT +* +DOIT1 LDA LCOUNT + LDX #$80 + STX VOPTION + JSR TPRINT + INX + TXA + CLC + ADC STRADDR + STA STRADDR + BCC DOIT3 + INC STRADDR+1 +DOIT3 INC CURSY + INC LCOUNT + JSR TLDA + CMP #$FF + BNE DOIT1 + RTS +* +LCOUNT HEX 00 +*------- ---- +* +TLDA LDA $8000,X + RTS +******** ************* +;----------- +; +; Check input device button +; +BUTTON STX XSAVE + STY YSAVE + JSR DEVICERD + LDX XSAVE + LDY YSAVE + BCS >0 + ASL + BMI >0 + BCC >0 + LDA #13 + RTS +; +^0 LDA #0 + RTS +;----------- +; +; Calc Ybase +; +LRKYCALC LDA TEXTLO,X + STA TADDR + LDA TEXTHI,X + STA TADDR+1 + RTS +;----------- +; +; PRINT TEXT STRING +; +TPRT JSR LRKYCALC + LDY #39 +^0 LDA BUFFER,Y + STA (TADDR),Y + DEY + BPL <0 +TPDONE RTS +;----------- +; +; Substitute code for PRCOMS file +; that has the lores routines at +; $9600. This routine is at $8900. +; +; LO-RES KALEIDOSCOPE +; +BUFFER = $380 +; +DAT EPZ $E0 +; +BUFPTR1 EPZ DAT +BUFPTR2 EPZ DAT+1 +COLORPTR EPZ DAT+2 +LINENO EPZ DAT+3 +CSTART EPZ DAT+4 +BYTCNT EPZ DAT+5 +BYTPTR EPZ DAT+6 +;--- +SP = $E000 +; +DEVICERD = SP+24 +; +; Start at next page +; + DFS $100-*&$FF,0 +;----------- + JMP BUTTON + DFS 5,$EA + JMP LRK + JMP UPLRK +;----------- +MSG HEX 7D2A28A89C + HEX 112B292CA2 + HEX 112B2A2CA0 + HEX 11EAAC2AA0 + HEX 112A6A29A6 + HEX 112A6929A2 + HEX 112A28A89E +; + HEX 73CA2FA89C + HEX 4A2B222CA2 + HEX 4A2B222CA0 + HEX 73CAA22AA0 + HEX 428A6229A6 + HEX 424A6229A2 + HEX 422A22289E +; + HEX 784227289C + HEX 44A228ACA2 + HEX 44A2282CA0 + HEX 7912272AA0 + HEX 41F220A9A6 + HEX 420A28A9A2 + HEX 4209C7289E +;----------- +; +; Draw the initial color lines +; +LRK LDA #00 + STA BUFPTR1 + STA LINENO + LDA CSTART + STA COLORPTR + LDA #40 + STA BUFPTR2 +LRK1 LDX COLORPTR + LDA COLOR,X + LDY BUFPTR1 +LRK2 STA BUFFER,Y + INY + CPY BUFPTR2 + BNE LRK2 + LDX LINENO + JSR TPRT + LDA #19 + SEC + SBC LINENO + TAX + JSR TPRT + INC BUFPTR1 + DEC BUFPTR2 + INC COLORPTR + LDA COLORPTR + AND #07 + STA COLORPTR + INC LINENO + LDA LINENO + CMP #10 + BNE LRK1 + INC CSTART + LDA CSTART + AND #07 + STA CSTART + RTS +; +COLOR HEX BB99DDCC + HEX EE667733 +;----------- +; +; Rotate the lores colors by one +; +UPLRK LDX #19 +UPLRK2 STX CURSY + JSR LRKYCALC + LDY #39 +UPLRK3 LDA (TADDR),Y + AND #$0F + TAX + LDA NEXTC,X + STA (TADDR),Y + DEY + BPL UPLRK3 + LDX CURSY + DEX + BPL UPLRK2 + RTS +; +NEXTC HEX 000000BB + HEX 00007733 + HEX 00DD0099 + HEX EECC6600 +;----------- +; +; + USR "O:8800",ORG + END diff --git a/PSC Source Disk 1 - System (v10)/S_8E00.txt b/PSC Source Disk 1 - System (v10)/S_8E00.txt new file mode 100644 index 0000000..9c944d9 --- /dev/null +++ b/PSC Source Disk 1 - System (v10)/S_8E00.txt @@ -0,0 +1,272 @@ + NLS + TTL "S:8E00" +ORG = $8E00 +; +GETBTNS = $8900 +; +SP = $E000 +; +POLEKEY = SP+31 +FLSHINIT = SP+72 +PARSE = SP+81 +RTOS = SP+120 +; +X0 EPZ $3A +Y0 EPZ $3B +WIDTH EPZ $3C +HEIGHT EPZ $3D +;----------- +; +; AUX SYSTEM LIB ROUTINES +; +XTEMP EPZ $70 +YTEMP EPZ $71 +DADDR EPZ $80 +SADDR EPZ $82 +; +STRING = $8A00 +XBYTE2 EQU $9398 +;* + ORG ORG + OBJ $800 +;* + JMP GETBTNS + JMP TINPUT +PARAMS HEX 0000 +INMAX HEX 00 +;---------------- +; GDOIT - X,Y ADDR OF PARAMS +; DRAW CONSECUTIVE STRINGS +; Y+=9 EACH TIME +; +GDOIT LDA #00 + STA INMAX +GPRINT LDA DADDR + PHA + LDA DADDR+1 + PHA + LDA SADDR + PHA + LDA SADDR+1 + PHA + STX DADDR + STY DADDR+1 + LDY #04 + LDA (DADDR),Y + PHA + LDY #09 + LDA (DADDR),Y + PHA + INY + LDA (DADDR),Y + PHA +* +GDOIT0 LDY #11 +GDOIT1 LDA (DADDR),Y + STA STRING+3,Y + DEY + BPL GDOIT1 + JSR STRING + LDA STRING+12 + STA SADDR + LDA STRING+13 + STA SADDR+1 + LDY #00 +GDOIT2 LDA (SADDR),Y + BEQ GDOIT3 + INY + BNE GDOIT2 +GDOIT3 STY STRPTR + INY + LDA (SADDR),Y + CMP #$FF + BEQ GDOITX + LDA INMAX + BNE GDOITX + TYA + LDY #09 + CLC + ADC (DADDR),Y + STA (DADDR),Y + INY + LDA (DADDR),Y + ADC #00 + STA (DADDR),Y + LDY #04 + LDA (DADDR),Y + CLC + ADC #08 + STA (DADDR),Y + JMP GDOIT0 +* +GDOITX LDY #10 + PLA + STA (DADDR),Y + DEY + PLA + STA (DADDR),Y + LDY #04 + PLA + STA (DADDR),Y +RESTORE PLA + STA SADDR+1 + PLA + STA SADDR + PLA + STA DADDR+1 + PLA + STA DADDR + RTS +;------------------ +; +; TEXT INPUT +; +TINPUT LDA PARAMS + STA GETPARAM+1 + LDA PARAMS+1 + STA GETPARAM+2 + LDA SADDR + PHA + LDA SADDR+1 + PHA + LDX #09 + JSR GETPARAM + STA SADDR + INX + JSR GETPARAM + STA SADDR+1 +TINPUT1 LDX #02 + JSR GETPARAM + TAY + LDA XBYTE2,Y + STA X0 + LDA #39 + SEC + SBC X0 + STA WIDTH + LDX #04 + JSR GETPARAM + STA Y0 + LDA #07 + STA HEIGHT + LDA #$A9 + LDY #$00 + JSR RTOS + LDX PARAMS + LDY PARAMS+1 + JSR GPRINT + LDA STRING+5 + STA CURSX + LDA STRING+6 + STA CURSX+1 +;--- +; +; Get a key +; +KEYIN JSR FLSHINIT + JSR CURSOR +^0 JSR POLEKEY + BMI >1 + DEC $4E + BNE <0 + DEC $4F + BPL <0 + BMI KEYIN +; +^1 PHA + JSR CURSOFF + PLA +; +; Process keypress +; + CMP #$0D + BEQ RETURN + CMP #$1B + BEQ ESC + CMP #$08 + BEQ BS + CMP #$7F + BEQ BS + CMP #$05 + BEQ CTRLE + CMP #',' + BEQ KEYIN + CMP #'@' + BEQ KEYIN +; + CMP #' ' + BLT KEYIN + CMP #'Z'+1 + BGE KEYIN +* + LDY STRPTR + CPY #00 + BNE CHAR2 + CMP #' ' + BEQ KEYIN + LDY INMAX + CPY #15 + BNE CHAR2 + CMP #'A' + BLT KEYIN +CHAR2 LDY STRPTR + CPY INMAX + BCS KEYIN + STA (SADDR),Y + INY + BNE BS2 +* +BS LDY STRPTR + BEQ KEYIN + DEY +BS2 LDA #00 + BEQ CTRLE2 +* +CTRLE LDA #00 + TAY +CTRLE2 STA (SADDR),Y + STY STRPTR +JT1 JMP TINPUT1 +* +RETURN CLC + HEX 24 +* +ESC SEC + PLA + STA SADDR+1 + PLA + STA SADDR + RTS +;--- +; +; Plot cursor +; +CURSOR LDA #4 + HEX 2C +CURSOFF LDA #03 + STA STRING+3 + LDA #00 + STA STRING+10 + STA STRING+4 + LDA CURSX + STA STRING+5 + LDA CURSX+1 + STA STRING+6 + LDA #CURSTR + STA STRING+12 + LDA /CURSTR + STA STRING+13 + JMP STRING +* +CURSTR ASC 'II' + HEX 00 +* +GETPARAM LDA $8000,X + RTS +* +STRPTR HEX 00 +CFLAG HEX 00 +CURSX HEX 0000 +* + USR "O:8E00",ORG + END diff --git a/PSC Source Disk 1 - System (v10)/S_EDIT.txt b/PSC Source Disk 1 - System (v10)/S_EDIT.txt new file mode 100644 index 0000000..78d69a5 --- /dev/null +++ b/PSC Source Disk 1 - System (v10)/S_EDIT.txt @@ -0,0 +1,3 @@ + NLS +; S:EDIT + ICL "S:EDIT1" diff --git a/PSC Source Disk 1 - System (v10)/S_EDIT1.txt b/PSC Source Disk 1 - System (v10)/S_EDIT1.txt new file mode 100644 index 0000000..2557cc0 --- /dev/null +++ b/PSC Source Disk 1 - System (v10)/S_EDIT1.txt @@ -0,0 +1,592 @@ + TTL "S:EDIT" +; S:EDIT1 + NOG +ORG = $5000 +OBJ = $800 +; +; 02/27/85 +; 07/31/85 last mod +; added support for FONTS +; +; Editor for use with +; The Print Shop Companion Disk +; +; For FONTS and GRAPHICS +; +; by Roland Gustafsson +; +DAT EPZ $D0 +; +XCOOR EPZ DAT +YCOOR EPZ DAT+1 +BUFLO EPZ DAT+2 +BUFHI EPZ DAT+3 +TBUFLO EPZ DAT+4 +TBUFHI EPZ DAT+5 +XMAX EPZ DAT+6 +YMAX EPZ DAT+7 +OLDXCOOR EPZ DAT+8 +OLDYCOOR EPZ DAT+9 +X1 EPZ DAT+10 +Y1 EPZ DAT+11 +X2 EPZ DAT+12 +Y2 EPZ DAT+13 +BUTTON EPZ DAT+14 +CNSTRAIN EPZ DAT+15 +; +PTMP0 EPZ DAT+16 +PTMP1 EPZ DAT+17 +; +; Temporary z-page for use within +; subroutines +; +PLOTX EPZ $4D +FLASHLO EPZ $4E +FLASHHI EPZ $4F +; +TMP0 EPZ $F0 +TMP1 EPZ $F1 +TMP2 EPZ $F2 +TMP3 EPZ $F3 +TMP4 EPZ $F4 +TMP5 EPZ $F5 +HIRES1 EPZ $F6 +HIRES2 EPZ $F8 +HIRES3 EPZ $FA +; +TMPLO EPZ TMP0 +TMPHI EPZ TMP1 +; +; Absolute references: +; +EDITBUFF = $7800 +UNDOBUFF = EDITBUFF+$240 +TEMPBUFF = UNDOBUFF+$240 +; +XSTACK = $8300 +YSTACK = $8400 +; +; Subroutine package entry points +; +SP = $E000 +; +PRINT = SP +CLSCREEN = SP+3 +WITEBORD = SP+6 +ESCBACK = SP+9 +PICDRAW = SP+12 +; +DEVICENW = SP+15 +DEVICEON = SP+18 +DEVICEOF = SP+21 +DEVICERD = SP+24 +DEVICEST = SP+27 +SCALING = SP+30 +; +POLEBTN = SP+31 +POLEKEY = SP+34 +GETKEY = SP+37 +SELECT = SP+40 +; +SETTYPE = SP+43 +GETFILE = SP+46 +SAVEFILE = SP+49 +TYPELEN = SP+52 +FLSTART = SP+53 +FLLENGTH = SP+55 +BLOAD = SP+57 +BSAVE = SP+60 +DOSCR = SP+63 +ERROR = SP+66 +; +MUSIC = SP+69 +FLSHINIT = SP+72 +JMPVECTS = SP+75 +LINES = SP+78 +PARSE = SP+81 +SHOWAROW = SP+84 +NUMBER = SP+87 +BOOP = SP+102 +; +WITE = $FF +GRAY = $AA +BLAK = $00 +; +PRNORM = 1 +PRINVR = 2 +PRLEFT = 3 +PRRITE = 4 +PRCNTR = 5 +PRLOC = 6 +PRSMAL = 7 +PRBIG = 8 +PRSTR = 9 +PRSPC = 10 +PRHTAB = 11 +PRVTAB = 12 +CR = 13 +NOCR = 14 +RTOSBLAK = 15 +RTOSWITE = 16 +RTOSANY = 17 +PRCSPACE = 18 +; +ESC = $1B +; +; SYSLIB tables +; +SYSFONT = $8500 +FLIPPER = $9080 +YBASELO = $91C0 +YBASEHI = $9100 +XBYTEOFF = $9280 +; +FONTDATA = $8500 +; +FONTWITH = FONTDATA +FONTHITE = FONTDATA+$3B +FONTADRL = FONTDATA+$76 +FONTADRH = FONTDATA+$B1 +; +WAIT = $FCA8 +; +; Variables: +; +GRAFXOFF = 0 +GRAFYOFF = 23 +; +FONTXOFF = 1 +FONTYOFF = 38 +; +REFMOVER = $4003 +; +FONTW = 48 +FONTH = 38 +; +;----------- + ORG ORG + OBJ OBJ +;----------- + JMP EDITINIT + JMP SHOWBOXS + JMP SHOWGR + JMP CHKBUFF + JMP CLRBUFF + JMP ORBUFF + JMP BUFFSAVE + JMP BASECALC + JMP SETPLOTX + JMP SETBIT + JMP CLRBIT + JMP PRINTGR + JMP DRAWTEXT + JMP DOSHAPE + JMP EDITLOOP + JMP FONTMODS +FONTRX1 HEX 80 +FONTRY1 HEX 80 +FONTRY2 HEX 80 +REFLINES HEX 80 + JMP RESETBT1 +;----------- +; +; Initialize XMAX & YMAX +; Center the cursor and update screen +; +EDITINIT STX XMAX + STY YMAX +GRCENTER LDA XMAX + LSR + STA XCOOR + DEC XCOOR + LDA YMAX + LSR + STA YCOOR + DEC YCOOR + RTS +;----------- +; +; Show fill pattern and mirror status +; +SHOWBOXS LDY #FILLPLOC-1 + JSR SHOWBOX + LDY #MIRRPLOC-1 + JSR SHOWBOX + JSR SHOWFILL + JSR SHOWMIRR + JMP SHOWLOCK +;----------- +; +; Check EDITBUFF for all zeroes +; +CHKBUFF LDY #0 + TYA +^0 ORA EDITBUFF,Y + ORA EDITBUFF+$100,Y + INY + BNE <0 +^1 ORA EDITBUFF+$200,Y + INY + CPY #60 + BLT <1 + TAY + RTS +;----------- +; +; Clear EDITBUFF +; +CLRBUFF LDY #0 +; +; Clear buffer +; +BUFFCLR LDA BUFFERS,Y + STA TMPLO + LDA BUFFERS+1,Y + STA TMPHI + LDY #0 + TYA + LDX #2 +^0 STA (TMPLO),Y + INY + BNE <0 + INC TMPHI + DEX + BNE <0 +^1 STA (TMPLO),Y + INY + CPY #60 + BLT <1 + RTS +; +BUFFERS ADR EDITBUFF + ADR UNDOBUFF + ADR TEMPBUFF +;----------- +; +; OR UNDOBUFF into EDITBUFF +; +ORBUFF LDY #0 +^0 LDA UNDOBUFF,Y + ORA EDITBUFF,Y + STA EDITBUFF,Y + LDA UNDOBUFF+$100,Y + ORA EDITBUFF+$100,Y + STA EDITBUFF+$100,Y + INY + BNE <0 +^1 LDA UNDOBUFF+$200,Y + ORA EDITBUFF+$200,Y + STA EDITBUFF+$200,Y + INY + CPY #60 + BLT <1 + RTS +;----------- +; +; Move EDIT buffer to UNDO buffer +; +BUFFSAVE LDY #0 + LDX #2 +; +; Move buffer Y->X +; +BUFFMOVE LDA BUFFERS,Y + STA TMP0 + LDA BUFFERS+1,Y + STA TMP1 + LDA BUFFERS,X + STA TMP2 + LDA BUFFERS+1,X + STA TMP3 + LDX #2 + LDY #0 +^0 LDA (TMP0),Y + STA (TMP2),Y + INY + BNE <0 + INC TMP1 + INC TMP3 + DEX + BNE <0 +; +^1 LDA (TMP0),Y + STA (TMP2),Y + INY + CPY #60 + BLT <1 + RTS +;----------- +; +; Calculate pointer into buffer +; 3 entry points: +; +; BASECLCT=point into TEMPBUFF +; BASECLCU=point into UNDOBUFF +; +; BASECALC=point only EDITBUFF +; +BASECLCU LDA #UNDOBUFF-EDITBUFF + LDX /UNDOBUFF-EDITBUFF + BNE >0 +; +BASECLCT LDA #TEMPBUFF-EDITBUFF + LDX /TEMPBUFF-EDITBUFF +; +^0 LDY YCOOR + CLC + ADC EDYBASEL,Y + STA TBUFLO + TXA + ADC EDYBASEH,Y + STA TBUFHI +; +BASECALC LDY YCOOR + LDA EDYBASEL,Y + STA BUFLO + LDA EDYBASEH,Y + STA BUFHI +; +; Get mask (in A) and offset (in Y) +; +GETXMASK LDA XCOOR + LSR + LSR + LSR + TAY + LDA XCOOR + AND #7 + TAX + LDA XCOORMSK,X + RTS +; +; X-coor mask +; +XCOORMSK BYT %10000000 + BYT %01000000 + BYT %00100000 + BYT %00010000 + BYT %00001000 + BYT %00000100 + BYT %00000010 + BYT %00000001 +;----------- +; +; Given XCOOR,YCOOR set +; PLOT routine to opposite +; of whatever is in this +; coordinate. +; +SETPLOTX JSR BASECALC + LDX #PLSET + AND (BUFLO),Y + BEQ *+4 + LDX #PLCLR +SETPLTX2 STX PLOTX +; +; Set PLOT routine, given X +; +PLSET = 0 +PLCLR = 2 +PLEOR = 4 +PLUNDO = 6 +PLTEMP = 8 +; +SETPLOT LDY SETPLOT2,X + LDA SETPLOT2+1,X + STY PLOT+1 + STA PLOT+2 + RTS +; +SETPLOT2 ADR SETBIT + ADR CLRBIT + ADR EORBIT + ADR UNDOBIT + ADR TEMPBIT +; +PLOT JMP SETBIT +; +; If FONT editor, then check +; for reference lines. +; +FONTREF BIT REFLINES + BPL >0 + LDA XCOOR + CMP FONTRX1 + BNE *+5 + JSR DOFONTX +; + LDA YCOOR + CMP FONTRY1 + BNE *+5 + JSR DOFONTY +; + LDA YCOOR + CMP FONTRY2 + BEQ DOFONTY +^0 RTS +; +DOFONTX ASL + ADC #1 + STA >0+1 + JSR LINES + BYT "V",FONTXOFF +^0 BYT GRAY,00,FONTYOFF,3*FONTH + BYT 1 + RTS +; +DOFONTY STA TMP0 + ASL + ADC TMP0 + ADC #FONTYOFF+2 + STA >0+2 + JSR LINES + BYT "H",FONTXOFF +^0 BYT GRAY,0,00,2*FONTW + BYT 1 + RTS +;----------- +; +; Set bit in section and screen +; +SETBIT JSR BASECALC + ORA (BUFLO),Y + STA (BUFLO),Y +SETBIT2 JMP PLOTON +; +; Clear bit in section and screen +; +CLRBIT JSR BASECALC + EOR #$FF + AND (BUFLO),Y + STA (BUFLO),Y +CLRBIT2 JMP PLOTOFF +; +; Invert bit at current location +; +EORBIT JSR BASECALC + STA TMP0 + EOR (BUFLO),Y + STA (BUFLO),Y + LDA TMP0 + BNE RESETBT2 +; +; Restore current location, use +; after BRFLASH +; +RESETBIT JSR RESETBT1 + JMP FONTREF +; +RESETBT1 JSR BASECALC +RESETBT2 AND (BUFLO),Y + BEQ CLRBIT2 + BNE SETBIT2 +;----------- +; +; Move bit TEMPBUFF-->EDITBUFF +; +TEMPBIT JSR BASECLCT + BNE >0 +; +; Move bit UNDOBUFF-->EDITBUFF +; +UNDOBIT JSR BASECLCU +^0 STA TMP0 + AND (TBUFLO),Y + STA TMP1 + LDA TMP0 + EOR #$FF + AND (BUFLO),Y + ORA TMP1 + STA (BUFLO),Y + LDA TMP1 + JMP RESETBT2 +;----------- +; +; Do PLOT routine with mirrors +; +MRPLOT LDX XCOOR + LDY YCOOR + STX MRXSAVE + STY MRYSAVE + JSR PLOT + LDA CURRMIRR + BEQ MRDOBITR + CMP #2 + BEQ >2 + CMP #3 + BEQ >3 +; +; Mirror both axis +; +^1 JSR >3 + JSR >2 + LDA YMAX + SEC + SBC YCOOR + STA YCOOR + LDA XMAX + SEC + SBC XCOOR + STA XCOOR + JMP MRDOBIT +; +; Mirror vertical +; +^2 LDA YMAX + SEC + SBC YCOOR + STA YCOOR + JMP MRDOBIT +; +; Mirror horizontal +; +^3 LDA XMAX + SEC + SBC XCOOR + STA XCOOR +; +; Do one bit and restore X,Y +; +MRDOBIT LDA XCOOR + CMP XMAX + BGE >0 + LDA YCOOR + CMP YMAX + BGE >0 + JSR PLOT +^0 LDX #00 +MRXSAVE = *-1 + LDY #00 +MRYSAVE = *-1 + STX XCOOR + STY YCOOR +MRDOBITR RTS +;----------- +; +; Ybase for EDITBUFF +; +EDYBASEL HEX 000B16212C37424D58636E79848F9AA5 + HEX B0BBC6D1DCE7F2FD08131E29343F4A55 + HEX 606B76818C97A2ADB8C3CED9E4EFFA05 + HEX 101B2631 +; +EDYBASEH HEX 78787878787878787878787878787878 + HEX 78787878787878787979797979797979 + HEX 7979797979797979797979797979797A + HEX 7A7A7A7A +;----------- +; +; Font modifications +; +FONTMODS LDX #FONTXOFF + LDY #FONTYOFF + STX XOFFSET + STY YOFFSET + LDA #$20 + STA PLOT + RTS +;----------- +; +; +; + ICL "S:EDIT2" diff --git a/PSC Source Disk 1 - System (v10)/S_EDIT2.txt b/PSC Source Disk 1 - System (v10)/S_EDIT2.txt new file mode 100644 index 0000000..6772fdd --- /dev/null +++ b/PSC Source Disk 1 - System (v10)/S_EDIT2.txt @@ -0,0 +1,981 @@ +; +; S:EDIT2 +; +; The main editor calls here to +; get a key and let the editor +; do it's job. +; +EDITLOOP LDX XCOOR + LDY YCOOR + STX OLDXCOOR + STY OLDYCOOR + JSR DEVICEST +^0 JSR SETFLASH +; +^1 LDY #2 +JOYMOD = *-1 + JSR DEVICERD + BCS >2 +; + STA BUTTON + JSR DODEVICE + LDA #1 + BIT BUTTON + BMI >3 +; +^2 LDA #0 + STA CNSTRAIN + JSR POLEKEY + BMI KEYPRESS + LDA #2 +; +^3 STA JOYMOD + DEC FLASHLO + BNE <1 + DEC FLASHHI + BPL <1 + BMI <0 +; +; Since didn't match one of our +; commands, then return calling +; program and let it handle this +; key. +; +NOTOURS LDA KEYGOT + JMP LOCKOFF +; +; Process keypress +; +KEYPRESS STA KEYGOT + JSR RESETBIT + LDY #$FD +^0 INY + INY + INY + LDA COMMANDS,Y + BEQ NOTOURS + AND #$7F + CMP #00 +KEYGOT = *-1 + BNE <0 +; +; If a "LOCKstopper", then doit! +; + CPY #LOCKSTOP-COMMANDS + BLT >1 + JSR LOCKOFF +; +; If move command, and lockmode +; is on, plot! +; +^1 CPY #MOVECOM?-COMMANDS + BGE >1 + LDA #00 +LOCKMODE = *-1 + BPL >1 + TYA + PHA + JSR MRPLOT + PLA + TAY +; +^1 LDA COMMANDS+1,Y + STA >4+1 + LDA COMMANDS+2,Y + STA >4+2 +; + LDA COMMANDS,Y + BPL >3 +; + JSR BUFFSAVE +; +^3 LDX XCOOR + LDY YCOOR +; +^4 JSR $FFFF + JMP EDITLOOP +;----------- +; +; Handle input device +; +; First check to see if it moved +; +DODEVICE CPX XCOOR + BNE >0 + CPY YCOOR + BEQ >3 +; +; Device moved +; +^0 LDA CNSTRAIN + BPL >1 +; +; Figure out which direction +; to constrain +; + LDA #1 + CPX XCOOR + BEQ *+3 + ASL + STA CNSTRAIN +; +^1 STX >1+1 + STY >2+1 + JSR RESETBIT + LDX XCOOR + LDY YCOOR + STX OLDXCOOR + STY OLDYCOOR +^1 LDX #00 +^2 LDY #00 + JSR DEVCONST +; +; If button down, plot new point +; else, just plot cursor. +; + BIT BUTTON + BMI DOBUTTON + BPL SETFLASH +; +; End up here if device didn't move. +; If button is not down or if button +; was down last time, then exit. +; +^3 STX OLDXCOOR + STY OLDYCOOR + BIT BUTTON + BPL DEVRTS + BVS DEVRTS +; +; Handle button press +; +DOBUTTON BVS >0 +; +; Button down for first time, so +; get bit and invert. +; + LDA LOCKMODE + STA CNSTRAIN + JSR BUFFSAVE + JSR SETPLOTX +; +; Draw a line from +; (OLDXCOOR,OLDYCOOR) to +; (XCOOR,YCOOR) +; +^0 JSR LINE +; +; Invert current position and +; set countdown timer +; +SETFLASH JSR GRFLASH + JSR FLSHINIT +; +; Show coordinates +; + LDA XCOOR + LDX #4 + LDY #185 + JSR NUMBER + LDA YCOOR + LDX #10 + LDY #185 + JMP NUMBER +; +DEVRTS RTS +; +; Device input constrain +; but only when the constrain +; feature is selected. +; +DEVCONST BIT DEVRTS + LDA CNSTRAIN + BEQ DEVCLAMP +; + LSR + BCC >0 +; +; Constrain X? +; + CPX XCOOR + BEQ DEVCLMP2 + LDX XCOOR + CLV + BVC DEVCLMP2 +; +; Constrain Y? +; +^0 CPY YCOOR + BEQ DEVCLMP2 + LDY YCOOR + CLV + BVC DEVCLMP2 +; +; Device input clamping +; +DEVCLAMP BIT DEVRTS +DEVCLMP2 CPX XMAX + BLT >0 + CLV + LDX XMAX + DEX +^0 CPY YMAX + BLT >1 + CLV + LDY YMAX + DEY +^1 STX XCOOR + STY YCOOR + BVS DEVRTS + JMP DEVICEST +;----------- +; +; Commands followed by their +; locations in memory +; +COMMANDS .DA #'I',MOVEUP + .DA #$0B,MOVEUP + .DA #'M',MOVEDOWN + .DA #$0A,MOVEDOWN + .DA #'J',MOVELEFT + .DA #$08,MOVELEFT + .DA #'K',MOVERITE + .DA #$15,MOVERITE +MOVECOM?: + .DA #'L'-$40,TOGGLOCK + .DA #"D",GRSET + .DA #"E",GRCLEAR +LOCKSTOP: +; + .DA #'W',SCRLUP + .DA #'Z',SCRLDOWN + .DA #'A',SCRLLEFT + .DA #'S',SCRLRITE +; + .DA #"1",INSEROW + .DA #"2",DELEROW + .DA #"3",INSECOLU + .DA #"4",DELECOLU +; + .DA #'H',FLIPHORI + .DA #'V',FLIPVERT + .DA #'N',GRINVERS + .DA #"F",FLODFILL + .DA #'P',NEXTPATT + .DA #'X',NEXTMIRR +; + .DA #'U',UNDO +; + BRK +;----------- +; +; Swap UNDO buffer with EDIT buffer +; +UNDO LDY #EDITBUFF + LDA /EDITBUFF + STY TMP0 + STA TMP1 + LDY #UNDOBUFF + LDA /UNDOBUFF + STY TMP2 + STA TMP3 + LDY #0 + LDX #0 +; +^0 LDA (TMP0),Y + PHA + LDA (TMP2),Y + STA (TMP0),Y + PLA + STA (TMP2),Y + CPX #2 + BNE >1 + CPY #59 + BEQ >2 +^1 INY + BNE <0 + INC TMP1 + INC TMP3 + INX + BNE <0 +; +^2 JMP SHOWGR +;----------- +; +; Keyboard cursor move +; +MOVEUP DEY + BPL MOVEDONE + LDY YMAX + DEY + BNE MOVEDONE +; +MOVEDOWN INY + CPY YMAX + BLT MOVEDONE + LDY #0 +; +; Set new coordinates +; +MOVEDONE STX XCOOR + STY YCOOR + RTS +; +MOVELEFT DEX + BPL MOVEDONE + LDX XMAX + DEX + BNE MOVEDONE +; +MOVERITE INX + CPX XMAX + BLT MOVEDONE + LDX #0 + BEQ MOVEDONE +;----------- +; +; Delete row +; +DELEROW LDA YCOOR + STA TMP5 + JSR INITBOT2 + LDY #11 + BNE >0 +; +; Insert row +; +INSEROW LDA YCOOR + STA TMP5 + JSR INITBOTT + LDY #$F5 +; +^0 LDA YMAX + SEC + SBC TMP5 + TAX + DEX + JSR MOVEALL +; + LDY #10 + LDA #0 +^1 STA (BUFLO),Y + DEY + BPL <1 + LDA TMP5 + STA YCOOR + JMP SHOWGR +; +; Scroll down +; +SCRLDOWN LDA YCOOR + PHA + JSR INITBOTT + LDY #$F5 + JSR MOVEALL + PLA + STA YCOOR + BPL SCRLDONE +; +; Scroll up +; +SCRLUP JSR INITTOP +; + LDY #11 + JSR MOVEALL +; +; Restore line, redraw +; +SCRLDONE LDY #10 +^0 LDA TEMPBUFF,Y + STA (BUFLO),Y + DEY + BPL <0 + JMP SHOWGR +; +; Init pointer to bottom +; +INITBOTT LDY YMAX + DEY + STY YCOOR +INITBOT2 JSR BASECALC + JMP SCRLSAVE +; +; Init pointer to top +; +INITTOP LDY #EDITBUFF + LDA /EDITBUFF + STY BUFLO + STA BUFHI + STY TMPLO + STA TMPHI +; +; Bottom or Top line save for +; scroll routines +; +SCRLSAVE LDY #10 +^0 LDA (BUFLO),Y + STA TEMPBUFF,Y + DEY + BPL <0 + LDX YMAX + DEX + RTS +; +; Given A,Y = add, X=# of lines +; +; move from BUF->TMP +; +MOVEALL STY >1+1 + TXA + BEQ >4 + LDA #$FF + CPY #$F5 + BEQ >0 + LDA #$00 +^0 STA >2+1 +; +^0 LDA BUFLO + STA TMPLO + CLC +^1 ADC #00 + STA BUFLO + LDA BUFHI + STA TMPHI +^2 ADC #00 + STA BUFHI + LDY #10 +^3 LDA (BUFLO),Y + STA (TMPLO),Y + DEY + BPL <3 + DEX + BNE <0 +^4 RTS +; +; Insert Column +; +INSECOLU LDY #>0 + LDA />0 + JMP DOLINES +; +^0 LDA TEMPBUFF,X + STA TEMPBUFF+1,X + DEX + BMI >1 + CPX XCOOR + BGE <0 +^1 LDA #0 + INX + STA TEMPBUFF,X + RTS +; +; Delete Column +; +DELECOLU LDY #>0 + LDA />0 + JMP DOLINES +; +^0 LDY XCOOR +^1 LDA TEMPBUFF+1,Y + STA TEMPBUFF,Y + INY + DEX + BMI >2 + CPX XCOOR + BGE <1 +^2 LDA #0 + STA TEMPBUFF,Y + RTS +; +; Scroll left +; +SCRLLEFT LDY #>0 + LDA />0 + JMP DOLINES +; +^0 LDA TEMPBUFF + PHA +^1 LDA TEMPBUFF+1,Y + STA TEMPBUFF,Y + INY + DEX + BPL <1 + PLA + STA TEMPBUFF,Y + RTS +; +; Scroll right +; +SCRLRITE LDY #>0 + LDA />0 + JMP DOLINES +; +^0 LDA TEMPBUFF+1,X + PHA +^1 LDA TEMPBUFF,X + STA TEMPBUFF+1,X + DEX + BPL <1 + PLA + STA TEMPBUFF + RTS +;----------- +; +; Flip vertical +; +FLIPVERT LDA YCOOR + PHA + JSR INITTOP + JSR INITBOTT + TXA + LSR + TAX +; +^0 LDY #10 +^1 LDA (TMPLO),Y + PHA + LDA (BUFLO),Y + STA (TMPLO),Y + PLA + STA (BUFLO),Y + DEY + BPL <1 +; + LDA TMPLO + CLC + ADC #11 + STA TMPLO + BCC >2 + INC TMPHI +^2 LDA BUFLO + SEC + SBC #11 + STA BUFLO + BCS >3 + DEC BUFHI +^3 DEX + BPL <0 + PLA + STA YCOOR + JMP SHOWGR +; +; Flip horizontal +; +FLIPHORI LDY #>0 + LDA />0 + JMP DOLINES +; +^0 INX +^1 LDA TEMPBUFF,X + PHA + LDA TEMPBUFF,Y + STA TEMPBUFF,X + PLA + STA TEMPBUFF,Y + DEX + STX >2+1 + INY +^2 CPY #00 + BLT <1 + RTS +; +; Invert buffer +; +GRINVERS LDY #>0 + LDA />0 + JMP DOLINES +; +^0 INX +^1 LDA TEMPBUFF,X + EOR #1 + STA TEMPBUFF,X + DEX + BPL <1 + RTS +;----------- +; +; General purpose line mod routine +; +DOLINES STY DOLINESB+1 + STA DOLINESB+2 + LDY #EDITBUFF + LDA /EDITBUFF + STY BUFLO + STA BUFHI + LDA YMAX +DOLINELP PHA + LDX #0 + STX TMP0 +; +^1 LDY TMP0 + INC TMP0 + LDA (BUFLO),Y + STA TMP1 + LDY #8 +; +^2 DEY + BMI <1 + ASL TMP1 + ROL + STA TEMPBUFF,X + INX + CPX XMAX + BLT <2 +; + DEX + DEX + LDY #0 +DOLINESB JSR $FFFF +; + LDX #0 + STX TMP0 +; +^1 LDY #8 +; +^2 DEY + BPL >3 + LDY TMP0 + STA (BUFLO),Y + INC TMP0 + BNE <1 +; +^3 ROR TEMPBUFF,X + ROL + INX + CPX XMAX + BLT <2 +; +^4 DEY + BMI >5 + ASL + BPL <4 +; +^5 LDY TMP0 + STA (BUFLO),Y +; + LDA BUFLO + CLC + ADC #11 + STA BUFLO + BCC >6 + INC BUFHI +^6 PLA + SEC + SBC #1 + BNE DOLINELP + JMP SHOWGR +;----------- +; +; Set bit when "D" is pressed +; +GRSET LDX #PLSET + LDA #$16 + BNE >0 +; +; Clear bit when "E" is pressed +; +GRCLEAR LDX #PLCLR + LDA #$18 +; +^0 PHA + JSR SETPLOT + JSR MRPLOT + PLA + TAY +; +; Click the speaker +; +^0 LDX #7 +^1 LDA $C030 + TYA + JSR WAIT + DEX + BNE <1 + RTS +;----------- +; +; Here is the nifty flood-fill +; routine. (Same as in Dazzle Draw) +; +FLZ EPZ $80 +; +FLTMP0 EPZ FLZ +FLINVERT EPZ FLZ+1 +FLXMIN EPZ FLZ+2 +FLXMAX EPZ FLZ+3 +FLMASK EPZ FLZ+4 +FLSTACK1 EPZ FLZ+5 +FLSTACK2 EPZ FLZ+6 +; +FLODFILL JSR SAVECOOR + LDY #4 + JSR BUFFCLR + LDA #0 + STA FLSTACK1 + STA FLSTACK2 + STA FLINVERT + JSR FLODPUSH + JSR FLGETBIT + STA FLINVERT +; +; Main recursive routine: +; +FLODMAIN JSR FLODPULL +; +; If we've already been here, +; then don't bother checking +; + JSR FLGETBIT + LDA FLMASK + AND (TBUFLO),Y + BNE FLODRDON +; +; Fill left +; + LDA XCOOR + PHA +^0 DEC XCOOR + BMI >1 + JSR FLODCHEK + BEQ <0 +; +; Fill right +; +^1 LDX XCOOR + INX + STX FLXMIN + PLA + STA XCOOR +; +^2 JSR FLODCHEK + BNE >3 + INC XCOOR + LDA XCOOR + CMP XMAX + BLT <2 +; +; Now scan above and below +; +^3 LDA XCOOR + STA FLXMAX +; + INC YCOOR + JSR FLODSCAN + DEC YCOOR + DEC YCOOR + JSR FLODSCAN +; +; Is stack empty? +; +FLODRDON LDA FLSTACK1 + CMP FLSTACK2 + BNE FLODMAIN + JSR DOFONTRF + JMP RESTCOOR +; +; Scan a line for new runs +; +FLODSCAN LDA YCOOR + CMP YMAX + BGE >2 + LDA FLXMAX + STA XCOOR +; +^0 JSR FLDECGET + BNE <0 + LDA FLMASK + AND (TBUFLO),Y + BNE >1 + JSR FLODPUSH +; +^1 JSR FLDECGET + BEQ <1 + BNE <0 +; +^2 RTS +; +FLODCHEK JSR FLGETBIT + BNE >9 +; +; Get bit from pattern +; + LDA YCOOR + AND #7 + STA FLTMP0 + LDA CURRPATT + ASL + ASL + ASL + ADC FLTMP0 + TAX + LDA FILLPATT,X + AND FLMASK + STA FLTMP0 +; +; Set bit in temp buffer +; + LDA FLMASK + ORA (TBUFLO),Y + STA (TBUFLO),Y +; +; Set bit in edit buffer +; + LDA FLMASK + EOR #$FF + AND (BUFLO),Y +; + ORA FLTMP0 + STA (BUFLO),Y + LDA FLMASK + JSR RESETBT2 + LDA #0 +^9 RTS +; +; Push current point on stack +; +FLODPUSH LDY FLSTACK1 + LDA XCOOR + STA XSTACK,Y + LDA YCOOR + STA YSTACK,Y + INC FLSTACK1 + RTS +; +; Pull next point from stack +; +FLODPULL LDY FLSTACK2 + LDA XSTACK,Y + STA XCOOR + LDA YSTACK,Y + STA YCOOR + INC FLSTACK2 + RTS +; +; Decrement X, check for min +; +FLDECGET LDA XCOOR + CMP FLXMIN + BNE >0 + PLA + PLA + RTS +; +^0 DEC XCOOR +; +; Check bit +; +FLGETBIT JSR BASECLCT + STA FLMASK + AND (BUFLO),Y + PHP + PLA + EOR FLINVERT + AND #2 + RTS +;----------- +; +SHOWXLOC = 37 +FILLPLOC = 39 +; +; Increment pattern pointer +; +NEXTPATT INC CURRPATT +SHOWFILL LDA #01 +CURRPATT = *-1 + CMP #FILLPATS/8 + BNE >0 + LDA #0 +^0 STA CURRPATT + LDY #FILLPLOC + STY SHOWYLOC + LDY #FILLPATT + LDX /FILLPATT + JMP SHOWPATT +; +; Fill patterns: +; +FILLPATT HEX FFFFFFFFFFFFFFFF + HEX 55AA55AA55AA55AA + HEX 8822882288228822 + HEX 8800220088002200 + HEX 8000080080000800 + HEX 0000000000000000 + HEX 8010022001084004 +; + HEX FF808080FF080808 + HEX 8040200002040800 + HEX 8244384482010101 + HEX F87422478F172271 + HEX FF000000FF000000 + HEX 8888888888888888 + HEX 081C22C180010204 + HEX 40A00000040A0000 + HEX 8080413E080814E3 + HEX 0102040810204080 +FILLPATS = *-FILLPATT +; +; Increment mirror pointer +; +MIRRPLOC = 50 +; +NEXTMIRR INC CURRMIRR +SHOWMIRR LDA #00 +CURRMIRR = *-1 + CMP #4 + BNE >0 + LDA #0 +^0 STA CURRMIRR + LDY #MIRRPLOC + STY SHOWYLOC + LDY #MIRRPATT + LDX /MIRRPATT + JMP SHOWPATT +; +; Mirror patterns: +; +MIRRPATT HEX FFFFFFFFFFFFFFFF + HEX E7E7E70000E7E7E7 + HEX FFFFFF0000FFFFFF + HEX E7E7E7E7E7E7E7E7 +;----------- +; +; Turn off lock mode +; +LOCKOFF STX >0+1 + STY >1+1 + STA >2+1 + LDA LOCKMODE + BPL >2 +; +; Toggle lock mode +; +TOGGLOCK LDA LOCKMODE + EOR #$80 + STA LOCKMODE + BPL SHOWLOCK +; +; If we are turning on lock mode, +; then save graphic in UNDOBUFF +; and use opposite color of +; current X,Y. +; + JSR BUFFSAVE + JSR SETPLOTX +; +; Show lock mode +; +SHOWLOCK JSR PRINT + BYT RTOSBLAK,39,9,1,9,0 + LDA LOCKMODE + BPL >0 + JSR PICDRAW + BYT 39,9,1,9 + HEX 1C222222C17777777F +^0 LDX #00 +^1 LDY #00 +^2 LDA #00 +^3 RTS +; +; +; + ICL "S:EDIT3" diff --git a/PSC Source Disk 1 - System (v10)/S_EDIT3.txt b/PSC Source Disk 1 - System (v10)/S_EDIT3.txt new file mode 100644 index 0000000..921dee3 --- /dev/null +++ b/PSC Source Disk 1 - System (v10)/S_EDIT3.txt @@ -0,0 +1,332 @@ +; +; S:EDIT3 +; +; Low-level routines that draw to +; the screen. +; +;----------- +; +; Plot ON,OFF, FLASH +; +PLOTON JSR PLOTINIT + EOR #$7F + STA PTMP0 + AND (HIRES1),Y + STA (HIRES1),Y + LDA PTMP0 + AND (HIRES2),Y + STA (HIRES2),Y + LDA PTMP0 + AND (HIRES3),Y + STA (HIRES3),Y + TXA + BNE >0 + RTS +; +^0 INY + EOR #$7F + TAX + AND (HIRES1),Y + STA (HIRES1),Y + TXA + AND (HIRES2),Y + STA (HIRES2),Y + TXA + AND (HIRES3),Y + STA (HIRES3),Y + RTS +; +PLOTOFF JSR PLOTINIT + ORA (HIRES1),Y + STA (HIRES1),Y + LDA PTMP0 + ORA (HIRES2),Y + STA (HIRES2),Y + LDA PTMP0 + ORA (HIRES3),Y + STA (HIRES3),Y + TXA + BNE >0 + RTS +; +^0 INY + ORA (HIRES1),Y + STA (HIRES1),Y + TXA + ORA (HIRES2),Y + STA (HIRES2),Y + TXA + ORA (HIRES3),Y + STA (HIRES3),Y + RTS +; +GRFLASH JSR PLOTINIT + EOR (HIRES2),Y + STA (HIRES2),Y + INY + TXA + EOR (HIRES2),Y + STA (HIRES2),Y + RTS +;----------- +; +; Redraw entire area, quickly +; +; To optimize this routine for speed, +; make sure that the main loop +; doesn't cross a page boundard! It +; will slow it down. +; +BYTE EPZ TMP0 +WIDTH EPZ TMP1 +BITS8 EPZ TMP2 +MASK EPZ TMP3 +; +SHOWGR JSR SAVECOOR + LDY #EDITBUFF + LDA /EDITBUFF + STY BUFLO + STA BUFHI + LDY #0 +SHOWGR1 STY YCOOR +; + JSR PLOTINIT +; + LDY #1 + STY BITS8 +; + LDY BUFLO + LDA BUFHI + STY SHOWGRMD+1 + STA SHOWGRMD+2 + LDX XMAX + STX WIDTH + LDX #7 + LDY XOFFSET +; +; X-loop +; +SHOWGR2 DEC BITS8 + BNE >1 + STA >0+1 + LDA #8 + STA BITS8 +SHOWGRMD LDA EDITBUFF + EOR #$FF + STA BYTE + INC SHOWGRMD+1 + BNE >0 + INC SHOWGRMD+2 +^0 LDA #00 +; +^1 ASL BYTE + PHP + ROR + DEX + BNE >2 + LSR + STA (HIRES1),Y + STA (HIRES2),Y + STA (HIRES3),Y + LDX #7 + INY +^2 PLP + ROR + DEX + BNE >3 + LSR + STA (HIRES1),Y + STA (HIRES2),Y + STA (HIRES3),Y + LDX #7 + INY +^3 DEC WIDTH + BNE SHOWGR2 +; + STA BYTE + LDA GRDRWMSK-1,X + STA MASK +^4 LSR BYTE + DEX + BPL <4 + LDA (HIRES1),Y + AND MASK + ORA BYTE + STA (HIRES1),Y + STA (HIRES2),Y + STA (HIRES3),Y +; + LDA BUFLO + CLC + ADC #11 + STA BUFLO + BCC >5 + INC BUFHI +; +^5 LDY YCOOR + INY + CPY YMAX + BGE >6 + JMP SHOWGR1 +; +^6 JSR DOFONTRF + JMP RESTCOOR +; +GRDRWMSK HEX 406070787C7E7F +;----------- +; +; Display the Font reference lines +; +DOFONTRF LDA PLOT + CMP #$4C + BEQ >0 + BIT REFLINES + BPL >0 + LDA FONTRX1 + BMI *+5 + JSR DOFONTX + LDA FONTRY1 + BMI *+5 + JSR DOFONTY + LDA FONTRY2 + BMI *+5 + JSR DOFONTY +^0 RTS +;----------- +; +; Init plot routine +; +; Multiply Y by 3 +; +PLOTINIT LDA YCOOR + ASL + ADC YCOOR + ADC #GRAFYOFF +YOFFSET = *-1 + TAX + LDA YBASELO,X + STA HIRES1 + LDA YBASEHI,X + STA HIRES1+1 + LDA YBASELO+1,X + STA HIRES2 + LDA YBASEHI+1,X + STA HIRES2+1 + LDA YBASELO+2,X + STA HIRES3 + LDA YBASEHI+2,X + STA HIRES3+1 +; +; Get bit pattern +; + LDX XCOOR + LDY XLOOK,X + LDA XDATA,Y + STA PTMP0 + LDA XDATA+1,Y + STA PTMP1 +; +; Get X byte offset +; + LDA XBYTEOFF,X + ADC #GRAFXOFF +XOFFSET = *-1 + TAY +; + LDA PTMP0 + LDX PTMP1 + RTS +; +; X lookup table +; +XLOOK HEX 00020406080A0C00 + HEX 020406080A0C0002 + HEX 0406080A0C000204 + HEX 06080A0C00020406 + HEX 080A0C0002040608 + HEX 0A0C00020406080A + HEX 0C00020406080A0C + HEX 00020406080A0C00 + HEX 020406080A0C0002 + HEX 0406080A0C000204 + HEX 06080A0C00020406 +; +XDATA HEX 0300 + HEX 0C00 + HEX 3000 + HEX 4001 + HEX 0600 + HEX 1800 + HEX 6000 +; +; Display current pattern on screen +; +SHOWPATT ASL + ASL + ASL + STY TMP0 + ADC TMP0 + STA PATTADR+1 + BCC *+3 + INX + STX PATTADR+2 +; + LDA #0 + STA TMP0 + LDA #8 + STA TMP1 + LDX #00 +SHOWYLOC = *-1 +; +^0 LDA YBASELO,X + STA HIRES1 + LDA YBASEHI,X + STA HIRES1+1 +; + LDY TMP0 + INC TMP0 +PATTADR LDA FILLPATT,Y + EOR #$FF + PHA + ASL + PHP + LDY #SHOWXLOC + LDA (HIRES1),Y + ASL + ASL + PLP + ROR + LSR + STA (HIRES1),Y + PLA + AND #$7F + TAY + LDA FLIPPER,Y + LDY #SHOWXLOC+1 + STA (HIRES1),Y + INX + DEC TMP1 + BNE <0 + RTS +; +; Box routine for border around +; the current pattern and mirror +; +SHOWBOX STY >0+1 + JSR PICDRAW +^0 BYT SHOWXLOC,0,3,10 + HEX 707F03 + HEX 307F03 + HEX 307F03 + HEX 307F03 + HEX 307F03 + HEX 307F03 + HEX 307F03 + HEX 307F03 + HEX 307F03 + HEX 707F03 + RTS +; +; +; + ICL "S:EDIT4" diff --git a/PSC Source Disk 1 - System (v10)/S_EDIT4.txt b/PSC Source Disk 1 - System (v10)/S_EDIT4.txt new file mode 100644 index 0000000..7d784f9 --- /dev/null +++ b/PSC Source Disk 1 - System (v10)/S_EDIT4.txt @@ -0,0 +1,998 @@ +; +; S:EDIT4 +; +; Miscellaneous junk +; +; Save coordinates +; +SAVECOOR LDX XCOOR + LDY YCOOR + STX RESTCOOR+1 + STY RESTCOOR+3 + RTS +; +; Restore coordinates +; +RESTCOOR LDX #00 + LDY #00 + STX XCOOR + STY YCOOR + RTS +;----------- +; +; Special shape routine +; +; X=0:draw line +; 2:draw box (rectangle) +; 4:draw oval (elipse) +; 6:move reference lines +; +; The initial corner of the shape +; is XCOOR,YCOOR which is stored +; in X1,Y1. Then XCOOR,YCOOR is +; "rubber-banded" around to form +; a rectangle in which the shape +; is drawn. This second coordinate +; is X2,Y2. (XCOOR,YCOOR) +; +^9 ADR DRAWLINE + ADR DRAWBOX + ADR DRAWOVAL + ADR REFMOVER +; +DOSHAPE LDA <9+0,X + STA SHAPEMOD+1 + LDA <9+1,X + STA SHAPEMOD+2 +; + BCS >0 + LDX XCOOR + LDY YCOOR + STX X1 + STY Y1 +; +; Save graphic in TEMPBUFF +; for later reference +; +^0 LDY #0 + LDX #4 + JSR BUFFMOVE +; +; Main frame loop +; +SHAPLOOP LDX XCOOR + LDY YCOOR + JSR DEVICEST +; +SHAPLOP2 JSR SETFLASH +; +^0 LDY #2 + JSR DEVICERD + BCS >2 + ASL + BMI >1 + BCS SHAPCR +^1 JSR SHAPEDEV +; +^2 JSR POLEKEY + BMI >3 +; + DEC FLASHLO + BNE <0 + DEC FLASHHI + BPL <0 + BMI SHAPLOP2 +; +^3 PHA + JSR RESETBIT + PLA + LDX XCOOR + LDY YCOOR + JSR PARSE + .DA #'I',SHAPUP + .DA #$0B,SHAPUP + .DA #'M',SHAPDOWN + .DA #$0A,SHAPDOWN + .DA #'J',SHAPLEFT + .DA #$08,SHAPLEFT + .DA #'K',SHAPRITE + .DA #$15,SHAPRITE + .DA #'N',SHAPNEG + .DA #'O',SHAPOVMD + .DA #CR,SHAPCR + .DA #ESC,SHAPESC + BRK + JMP SHAPLOP2 +;----------- +SHAPESC JSR SHAPEREM + SEC + HEX 90 +SHAPCR CLC + RTS +;----------- +SHAPUP DEY + BPL SHAPDONE +; +SHAPDOWN INY + CPY YMAX + BLT SHAPDONE + BGE SHAPUP +; +SHAPDONE JSR SHAPENEW + JMP SHAPLOOP +; +SHAPLEFT DEX + BPL SHAPDONE +; +SHAPRITE INX + CPX XMAX + BLT SHAPDONE + BGE SHAPLEFT +;----------- +; +; See if device moved +; +SHAPEDEV CPX XCOOR + BNE >0 + CPY YCOOR + BNE >0 + RTS +; +^0 PLA + PLA + JSR SHAPENEW + JMP SHAPLOP2 +; +SHAPENEW STX >1+1 + STY >2+1 + JSR RESETBIT + JSR SHAPEREM +^1 LDX #00 +^2 LDY #00 + JSR DEVCLAMP +; +; Fall into put new shape +; +; Put or Remove shape from graphic +; +SHAPEPUT LDX PLOTX + HEX 2C +SHAPEREM LDX #PLTEMP + JSR SETPLOT + LDA PLOT + PHA + LDA #$4C + STA PLOT + LDX X1 + LDY Y1 + STX OLDXCOOR + STY OLDYCOOR + LDX XCOOR + LDY YCOOR + STX X2 + STY Y2 +SHAPEMOD JSR $FFFF + LDX X2 + LDY Y2 + STX XCOOR + STY YCOOR + PLA + STA PLOT + JMP DOFONTRF +;----------- +; +; Line handler +; +DRAWLINE JSR LINENORM + JSR >0 + JSR LINE +; +LINEMIRR LDY #MRPLOT + LDA /MRPLOT + BNE >0 +; +LINENORM LDY #PLOT + LDA /PLOT +; +^0 STY LINETYPE+1 + STA LINETYPE+2 + RTS +;----------- +; +; Box handler (rectangle) +; +DRAWBOX JSR LINENORM + LDX X2 + LDY Y1 + JSR >0 + LDY Y2 + JSR >0 + LDX X1 + JSR >0 + LDY Y1 + JSR >0 + JMP LINEMIRR +; +^0 STX XCOOR + STY YCOOR + JSR LINE + LDX XCOOR + LDY YCOOR + STX OLDXCOOR + STY OLDYCOOR + RTS +;----------- +; +; Toggle black/white +; +SHAPNEG JSR SHAPEREM + LDA PLOTX + EOR #PLSET^PLCLR + TAX + JSR SETPLTX2 + JMP >0 +;----------- +; +; Toggle oval mode +; +SHAPOVMD JSR SHAPEREM + LDA OVALMOD + EOR #$80 + STA OVALMOD +^0 JSR SHAPEPUT + JMP SHAPLOP2 +; +; Oval handler (elipse) +; +DRAWOVAL LDA X1 + LDX X2 + JSR DRAWOVL2 + STA OVXC + STX OVXR + LDA Y1 + LDX Y2 + JSR DRAWOVL2 + STA OVYC + STX OVYR + JMP OVAL +; +; Given A,X +; return A=center, X=radius +; +DRAWOVL2 LDY #$80 +OVALMOD = *-1 + BMI >1 + STA TMP0 + STX TMP1 + CMP TMP1 + BLT >0 + STX TMP0 + STA TMP1 +; +^0 LDA TMP1 + SEC + SBC TMP0 + TAY + LSR + TAX + CLC + ADC TMP0 + RTS +; +; Center oriented oval +; +^1 PHA + STX TMP0 + SEC + SBC TMP0 + BCS >2 + EOR #$FF + ADC #1 +^2 TAX + PLA + RTS +;----------- +; +; Print Shop Companion +; Graphic Editor+ "print" routine +; +CRLF = $1803 +SENDGC = $1806 +GCOUT = $1809 +; +PRZ EPZ $80 +; +PRTYCOOR EPZ PRZ +PRTBUILD EPZ PRZ+1 +PRTCOUNT EPZ PRZ+2 +; +PRINTGR JSR SAVECOOR +; + LDA #0 +; +; Output a single line of the graphic +; +PRTLOOP1 STA PRTYCOOR +; +; Tell printer how many bytes are +; coming, then send out 32 zeros +; + LDX #32+88 + LDY /32+88 + JSR SENDGC +; + LDY #32 +^0 LDA #$00 + JSR GCOUT + DEY + BNE <0 +; + LDX #0 +; +; Output a byte of the line +; +PRTLOOP2 STX XCOOR + LDY PRTYCOOR + LDX #0 + STX PRTBUILD +; +^0 STX PRTCOUNT + STY YCOOR +; + JSR BASECALC + AND (BUFLO),Y + BEQ >1 + LDY PRTCOUNT + LDA BITS7,Y + ORA PRTBUILD + STA PRTBUILD +^1 LDY YCOOR + INY + LDX PRTCOUNT + INX + CPY #52 + BEQ >2 + CPX #7 + BLT <0 +; +^2 STX PRTSPACE + LDA PRTBUILD + JSR GCOUT +; + LDX XCOOR + INX + CPX #88 + BLT PRTLOOP2 +; + LDX #00 +PRTSPACE = *-1 + LDY #1 + JSR CRLF + LDA PRTYCOOR + CLC + ADC #7 + CMP #52 + BLT PRTLOOP1 +; +; Be a nice guy and set the spacing +; back to 6 chars per inch. +; + LDX #12 + LDY #0 + JSR CRLF +; + JMP RESTCOOR +; +BITS7 HEX 40201008040201 +;----------- +; +; Draw text on graphic +; -------------------- +; +; Spacing between characters +; +TXCSPACE = 2 +TXYSPACE = 8 +TXXMAX = 86 +TXYMAX = 45 +; +TXZ EPZ $80 +; +TXFONTLO EPZ TXZ +TXFONTHI EPZ TXZ+1 +TXCWIDTH EPZ TXZ+2 +TXCHITE EPZ TXZ+3 +TXBYTE EPZ TXZ+4 +TXBITS EPZ TXZ+5 +TXXSTART EPZ TXZ+6 +TXPOINT EPZ TXZ+7 +TXGKFLAG EPZ TXZ+8 +TXCHAR EPZ TXZ+9 +; +; Borrow buffers from fill routine +; +TXCHRBUF = TEMPBUFF +TXXBUF = XSTACK +TXYBUF = YSTACK +; +DRAWTEXT JSR SAVECOOR +; +; Make sure X,Y are good values +; + LDA XCOOR + CMP #TXXMAX+1 + BLT *+4 + LDA #TXXMAX + STA XCOOR + STA TXXSTART +; + LDA YCOOR + CMP #TXYMAX+1 + BLT *+4 + LDA #TXYMAX + STA YCOOR +; + LDX #0 + STX TXPOINT +; +TEXTLOOP JSR GKTEXT +; + STA TXCHAR + LDX TXPOINT + INC TXPOINT + STA TXCHRBUF,X + LDA XCOOR + STA TXXBUF,X + LDA YCOOR + STA TXYBUF,X + LDA TXCHAR +; + CMP #CR + BEQ TEXTCR + CMP #ESC + BEQ TEXTESC + CMP #8 + BEQ TEXTBS + CMP #127 + BEQ TEXTBS +; + CMP #' ' + BLT TEXTERR + CMP #'@' + BEQ TEXTERR + CMP #'Z'+1 + BGE TEXTERR +; +; Attempt to draw character +; + JSR TEXTSET + BCC TEXTADDX +; +; Didn't fit, so do a CR +; + JSR TEXTCR2 + BCS TEXTERR +; +; Try again +; + LDA TXCHAR + JSR TEXTSET + BCC TEXTADDX +; +TEXTERR DEC TXPOINT + JSR BOOP + JMP TEXTLOOP +; +; Add width to XCOOR. +; +TEXTADDX ADC XCOOR + ADC #TXCSPACE + CMP #TXXMAX+1 + STA XCOOR + BLT TEXTLOOP + JSR TEXTCR2 + JMP TEXTLOOP +; +; Process backspace +; +TEXTBS TXA + BEQ TEXTERR + DEX + STX TXPOINT + JSR TEXTBS2 + BEQ >0 + JSR TEXTUNDO + BCC >0 + JSR TEXTCR2 + LDA TXCHAR + JSR TEXTUNDO + JSR TEXTBS2 +^0 JMP TEXTLOOP +; +TEXTBS2 LDX TXPOINT + LDA TXXBUF,X + STA XCOOR + LDA TXYBUF,X + STA YCOOR + LDA TXCHRBUF,X + STA TXCHAR + CMP #CR + RTS +; +; Quit the text routine +; +TEXTESC JMP RESTCOOR +; +; Do CR when pressed. +; +TEXTCR JSR TEXTCR2 + BCS TEXTERR + JMP TEXTLOOP +; +; Do a CR, if too far then exit +; with SEC, else, update XCOOR,YCOOR. +; +TEXTCR2 LDA YCOOR + CLC + ADC #TXYSPACE + CMP #TXYMAX+1 + BCS >0 + STA YCOOR + LDA TXXSTART + STA XCOOR +^0 RTS +; +; GETKEY with flashing "I" +; +GKTEXT ASL TXGKFLAG +^0 INC TXGKFLAG + JSR TEXTCURS + JSR FLSHINIT +; +; Flash cursor half-fast +; + ASL FLASHLO + ROL FLASHHI +; +^1 JSR POLEBTN + BMI >2 + DEC FLASHLO + BNE <1 + DEC FLASHHI + BPL <1 + BMI <0 +; +^2 PHA + LSR TXGKFLAG + BCC >3 + JSR TEXTCURS +^3 PLA + RTS +; +; Draw cursor (letter I) +; +TEXTCURS INC XCOOR + INC XCOOR + JSR >0 + DEC XCOOR + DEC XCOOR +^0 LDA #'I' +; + LDX #PLEOR + HEX 2C +; +; Given char in A, eor it into +; the graphic. +; +; Return with SEC=too wide +; CLC=ok, A=width of this char +; +TEXTSET LDX PLOTX + HEX 2C +TEXTUNDO LDX #PLUNDO + PHA + JSR SETPLOT + PLA +; + SEC + SBC #$20 + TAX + LDA FONTADRL,X + STA TXFONTLO + LDA FONTADRH,X + STA TXFONTHI +; +; If this character goes over too +; far to right, exit with SEC. +; + LDA FONTWITH,X + STA TXCWIDTH + CLC + ADC XCOOR + CMP #TXXMAX+2 + BGE TEXTEOR9 +; +; If SPACE, then exit now! +; + TXA + BEQ TEXTEOR8 +; + LDA FONTHITE,X + STA TXCHITE +; + LDA YCOOR + PHA +; +; Do one line of the char +; +^0 LDA XCOOR + PHA + LDA TXCWIDTH + PHA +; +; Get a byte from the FONT data +; +^1 LDY #0 + LDA (TXFONTLO),Y + STA TXBYTE + INC TXFONTLO + BNE *+4 + INC TXFONTHI + LDA #8 + STA TXBITS +; +^2 ASL TXBYTE + BCC >3 +; + JSR PLOT +; +^3 INC XCOOR + DEC TXCWIDTH + BEQ >4 + DEC TXBITS + BNE <2 + BEQ <1 +; +^4 PLA + STA TXCWIDTH + PLA + STA XCOOR + INC YCOOR + DEC TXCHITE + BNE <0 +; + PLA + STA YCOOR +TEXTEOR8 LDA TXCWIDTH + CLC +TEXTEOR9 RTS +;----------- +; +LZ EPZ $80 +; +LINEDIR EPZ LZ +LINECONT EPZ LZ+1 +; +; Draw a line between +; (OLDXCOOR,OLDYCOOR) - (XCOOR,YCOOR) +; +; Find delta X and delta Y +; +LINE LDX #$7F + LDA XCOOR + SEC + SBC OLDXCOOR + BCS >0 + EOR #$FF + ADC #1 + INX +^0 STX LINEDIR + STA DELTAX +; + LDA YCOOR + CLC + SBC OLDYCOOR + BCC >1 + EOR #$FF + ADC #$FE +^1 STA DELTAY + ROR LINEDIR + SEC + SBC DELTAX + STA LINECONT + EOR #$FF + LSR +; + LDX OLDXCOOR + LDY OLDYCOOR + STX XCOOR + STY YCOOR +; + SEC + BCS >1 +; +LINEMOVX BVC >0 + DEC XCOOR + DEC XCOOR +^0 INC XCOOR +^1 ADC #00 +DELTAY = *-1 +; +^2 PHA + PHP +LINETYPE JSR MRPLOT + PLP + PLA +; + INC LINECONT + BEQ >4 +; + BIT LINEDIR + BCS LINEMOVX + BMI >3 + DEC YCOOR + DEC YCOOR +^3 INC YCOOR + ADC #00 +DELTAX = *-1 + BVC <2 +; +^4 RTS +;----------- +; +; Modified Bresenham circle +; draw routine. +; +; Modified to do ellipses. +; +; 06/18/85 Roland Gustafsson +; +OZ EPZ $80 +; +OVXC EPZ OZ +OVYC EPZ OZ+1 +OVXR EPZ OZ+2 +OVYR EPZ OZ+3 +OVYADDLO EPZ OZ+4 +OVYADDHI EPZ OZ+5 +OVDLO EPZ OZ+6 +OVDHI EPZ OZ+7 +OVX EPZ OZ+8 +OVY EPZ OZ+9 +OVY1 EPZ OZ+10 +OVY1F EPZ OZ+11 +OVY2 EPZ OZ+12 +OVY2F EPZ OZ+13 +OVA1 EPZ OZ+14 +OVA2 EPZ OZ+15 +; +; Divide routine +; +ACC1LO EPZ OZ+16 +ACC1HI EPZ OZ+17 +ACC2LO EPZ OZ+18 +ACC2HI EPZ OZ+19 +REMLO EPZ OZ+20 +REMHI EPZ OZ+21 +; +; Draw an oval on the screen +; +; given: OVXR=X radius +; OVYR=Y radius +; OVXC=X center +; OVYC=Y center +; +OVAL LDX OVXR + CPX OVYR + BCS >0 + LDY OVYR + STY OVXR + STX OVYR +^0 ROR OVSWAP +; +; Compute (YD*256)/XD +; + LDY #0 + LDA OVYR + LDX OVXR +; + STY OVX + STY OVY2 + STY OVY2F + STX OVY + STX OVDLO + STA OVY1 + STY OVY1F +; + STX ACC2LO + STY ACC2HI + JSR DIVIDE + STY OVYADDLO + STA OVYADDHI +; +; D = 3-2*Y +; + ASL OVDLO + LDA #3 + SEC + SBC OVDLO + STA OVDLO + LDA #0 + SBC #0 + STA OVDHI +; +; Main oval loop +; +OVLOOP LDA OVX + CMP OVY + BGE OVDONE + JSR OVPLOT + LDA OVX + BIT OVDHI + BPL >0 +; +; D=D+4*X+6 +; + ASL + ASL + ADC #6 + BNE OVADDD +; +; D=D+4*(X-Y)+10 +; +^0 SEC + SBC OVY + TAX + LDA #0 + SBC #0 + TAY + TXA + ASL + ASL + CLC + ADC OVDLO + STA OVDLO + TYA + ADC OVDHI + STA OVDHI +; + DEC OVY +; + LDA OVY1F + SEC + SBC OVYADDLO + STA OVY1F + LDA OVY1 + SBC OVYADDHI + STA OVY1 + JSR OVPLOT +; + LDA #10 +; +OVADDD CLC + ADC OVDLO + STA OVDLO + BCC *+4 + INC OVDHI +; + INC OVX +; + LDA OVY2F + CLC + ADC OVYADDLO + STA OVY2F + LDA OVY2 + ADC OVYADDHI + STA OVY2 + JMP OVLOOP +; +; If X=Y then plot points +; +OVDONE BNE OVPLRTS +; +; Plot 8 points around oval +; +OVPLOT LDX OVX + LDY OVY1 + JSR OVPLOT1 + LDX OVY + LDY OVY2 +; +; If special flag set, then swap +; coordinate offsets. +; +OVPLOT1 STX OVA1 + STY OVA2 + LDA #00 +OVSWAP = *-1 + BMI >0 + STY OVA1 + STX OVA2 +; +; (X,Y) +; +^0 CLC + LDA OVXC + ADC OVA1 + PHA + TAX + LDA OVYC + ADC OVA2 + TAY + JSR PLOTXY +; +; (-X,Y) +; + LDA OVXC + SBC OVA1 + TAX + JSR PLOTXY +; +; (-X,-Y) +; + LDA OVYC + SBC OVA2 + TAY + JSR PLOTXY +; +; (X,-Y) +; + PLA + TAX +; +; Plot a point, ignoring values +; that are too big. +; +PLOTXY STX XCOOR + STY YCOOR + CPX XMAX + BGE >0 + CPY YMAX + BGE >0 + JSR PLOT +^0 LDX XCOOR + LDY YCOOR + SEC +OVPLRTS RTS +;----------- +; +; 16 bit divide routine +; +; ACC1=ACC1/ACC2, remainder in REM +; +; Enter with A=hi, Y=lo +; ACC2LO,HI set +; +; Return with result in A=hi, Y=lo +; +DIVIDE STY ACC1LO + STA ACC1HI + LDA #0 + STA REMLO + STA REMHI + LDY #16 +^0 ASL ACC1LO + ROL ACC1HI + ROL REMLO + ROL REMHI + SEC + LDA REMLO + SBC ACC2LO + TAX + LDA REMHI + SBC ACC2HI + BCC >1 + STX REMLO + STA REMHI + INC ACC1LO +^1 DEY + BNE <0 + LDY ACC1LO + LDA ACC1HI + RTS +;----------- +; +; +; + USR "EDIT,S4",ORG + END diff --git a/PSC Source Disk 1 - System (v10)/S_FDRAW.txt b/PSC Source Disk 1 - System (v10)/S_FDRAW.txt new file mode 100644 index 0000000..12577dc --- /dev/null +++ b/PSC Source Disk 1 - System (v10)/S_FDRAW.txt @@ -0,0 +1,622 @@ + NLS + TTL "S:FDRAW" +ORG = $8A00 +; +; Routine to draw string +; of chars using pixel data table +; +; New fast version +; by Roland Gustafsson +; +SP = $E000 +; +GETINIT = SP+105 +GETBYTE = SP+108 +; +FONTADDR = $8500 +WTABLE = FONTADDR +HTABLE = FONTADDR+$3B +PIXADLO = FONTADDR+$76 +PIXADHI = FONTADDR+$B1 +; +KTABLE = $0300 +; +TABHI = $9100 +TABLO = $91C0 +XBYTE2 = $9398 +XBIT2 = $94B0 +;----------- +; +; CSIZE, PIXAD & XCUR are to be used +; by external LINEDRAW routines. +; +DAT EPZ $50 +; +PIXAD EPZ DAT +XCUR EPZ DAT+2 +WCOUNT EPZ DAT+4 +BUFFER1 EPZ DAT+5 +BUFFER2 EPZ DAT+7 +XBYTE EPZ DAT+9 +DATABYTE EPZ DAT+10 +BCOUNT EPZ DAT+11 +BLDBYTE EPZ DAT+12 +; +SLENGTH EPZ DAT+13 +TEMP EPZ DAT+15 +YCUR EPZ DAT+16 +HCOUNT EPZ DAT+17 +WIDTH EPZ DAT+18 +STRPTR EPZ DAT+19 +;----------- + ORG ORG + OBJ $0800 +;----------- +START JMP STRING0 +;----------- +OPTION HEX 02 +XOPTION HEX 02 +XPOS HEX 0000 +YPOS HEX 0000 +PIECE HEX 00 +CSPACE HEX 01 +CSIZE HEX 00 +STRADDR HEX 0000 +KERN? HEX 00 +;----------- +; Kern mode $00:no kern +; $01:kern +; $80:use same kern table +;----------- + JMP INSTALL + JMP SCREEN + JMP FINSTALL +;----------- +; +STRING0 JSR OPTIONMD +; + LDA STRADDR + STA GETSTRX+1 + LDA STRADDR+1 + STA GETSTRX+2 +; + BIT KERN? + BMI >0 + JSR KERN +; +; If left justify, then skip +; length-computation routine +; +^0 LDA XOPTION + BEQ STRING1 +; +; Compute length of string +; + LDX #0 + STX SLENGTH + STX SLENGTH+1 +; +^0 JSR GETSTRX + BEQ >2 + SEC + SBC #$20 + TAY + LDA WTABLE,Y +FONTMOD0 = *-1 + SEC + SBC KTABLE,X + CLC + ADC CSPACE + ADC SLENGTH + STA SLENGTH + BCC >1 + INC SLENGTH+1 +^1 INX + BNE <0 +; +^2 CPX #0 + BEQ >4 + LDA SLENGTH + SEC + SBC CSPACE + STA SLENGTH + BCS *+4 + DEC SLENGTH+1 + LDX CSIZE + BEQ >4 +^3 ASL SLENGTH + ROL SLENGTH+1 + DEX + BNE <3 +; +^4 LDX XOPTION + CPX #3 + BEQ STRLENGT + DEX + BEQ >5 + LSR SLENGTH+1 + ROR SLENGTH +^5 LDA XPOS + SEC + SBC SLENGTH + STA XPOS + LDA XPOS+1 + SBC SLENGTH+1 + STA XPOS+1 +; +; Draw the string to buffer +; +STRING1 LDX #0 +^0 STX STRPTR + JSR GETSTRX + BEQ STRING8 + JSR CHAR + LDX STRPTR + JSR GETSTRX + SEC + SBC #$20 + TAY + LDA CSPACE + CLC + ADC WTABLE,Y +FONTMOD1 = *-1 + INX + SEC + SBC KTABLE,X + LDY #0 + STY TEMP + LDY CSIZE + BEQ >2 +^1 ASL + ROL TEMP + DEY + BNE <1 +^2 CLC + ADC XPOS + STA XPOS + LDA TEMP + ADC XPOS+1 + STA XPOS+1 + BCC <0 +; +STRLENGT LDY SLENGTH + LDA SLENGTH+1 +STRING8 LDX #1 + RTS +;----------- +; Routine for LDA STRING,X +; +GETSTRX LDA STRADDR,X + RTS +;----------- +; +; Draw character on screen +; Upper left corner in XPOS,YPOS +; +CHAR SEC + SBC #$20 + BEQ CDONE + TAX + LDA HTABLE,X +FONTMOD2 = *-1 + STA HCOUNT + LDA WTABLE,X +FONTMOD3 = *-1 + STA WIDTH + LDA PIXADLO,X +FONTMOD4 = *-1 + STA PIXAD + LDA PIXADHI,X +FONTMOD5 = *-1 + STA PIXAD+1 + LDA CSIZE + ASL + BNE CHAR1 + LDA #1 +CHAR1 STA TEMP + LDA YPOS + STA YCUR +CHAR2 LDA XPOS + STA XCUR + LDA XPOS+1 + STA XCUR+1 + LDA WIDTH + STA WCOUNT + LDY YCUR +LINEMOD JSR LINEDRAW +; + LDA YCUR + CLC + ADC TEMP + STA YCUR + DEC HCOUNT + BNE CHAR2 +CDONE RTS +;----------- +; KERN SECTION +; +LADDR EPZ DAT +RADDR EPZ DAT+2 +LBWIDTH EPZ DAT+4 +RBWIDTH EPZ DAT+5 +LCHAR EPZ DAT+6 +RCHAR EPZ DAT+7 +KCOUNT EPZ DAT+9 +LREM EPZ DAT+10 +MINWIDTH EPZ DAT+11 +; +KERN LDX #0 + STX KTABLE +KERN0 STX STRPTR + JSR GETSTRX + BEQ KDONE +; + LDY KERN? + BEQ KERN2 +; + CMP #'A' + BCC KERN2 + STA LCHAR + INX + JSR GETSTRX + BEQ KDONE + CMP #'A' + BCC KERN2 + STA RCHAR + JSR KSETUP + LDA KCOUNT + CMP #100 + BCC KERN1 +KERN2 LDA #0 +KERN1 LDX STRPTR + INX + STA KTABLE,X + JMP KERN0 +KDONE LDA #0 + STA KTABLE,X + RTS +; +KSETUP SEC + ROR MINWIDTH + LDA LCHAR + JSR BWCOMP + STA LBWIDTH + STY LREM + LDA PIXADLO,X +FONTMOD6 = *-1 + STA LADDR + LDA PIXADHI,X +FONTMOD7 = *-1 + STA LADDR+1 + LDA HTABLE,X +FONTMOD8 = *-1 + STA HCOUNT + LDA RCHAR + JSR BWCOMP + STA RBWIDTH + LDA PIXADLO,X +FONTMOD9 = *-1 + STA RADDR + LDA PIXADHI,X +FONTMODA = *-1 + STA RADDR+1 + LDA HTABLE,X +FONTMODB = *-1 + CMP HCOUNT + BGE KERN4 + STA HCOUNT +KERN4 LDA MINWIDTH + CLC + ADC CSPACE + STA KCOUNT +KERN5 JSR LCOMP + STA TEMP + JSR RCOMP + CLC + ADC TEMP + CMP KCOUNT + BGE KERN6 + STA KCOUNT +KERN6 LDA LADDR + CLC + ADC LBWIDTH + STA LADDR + BCC KERN7 + INC LADDR+1 +KERN7 LDA RADDR + CLC + ADC RBWIDTH + STA RADDR + BCC KERN8 + INC RADDR+1 +KERN8 DEC HCOUNT + BNE KERN5 + RTS +; +BWCOMP SEC + SBC #$20 + TAX + LDA WTABLE,X +FONTMODC = *-1 + CMP MINWIDTH + BGE >0 + STA MINWIDTH +^0 SEC + SBC #1 + PHA + AND #$07 + EOR #$07 + TAY + PLA + LSR + LSR + LSR + CLC + ADC #1 + RTS +; +LCOMP LDX #0 + LDY LBWIDTH + DEY +LCOMP2 LDA (LADDR),Y + BNE LCOMP3 + TXA + CLC + ADC #8 + TAX + DEY + BPL LCOMP2 + LDA #100 + RTS +LCOMP3 INX + LSR + BCC LCOMP3 + DEX + TXA + SEC + SBC LREM + RTS +; +RCOMP LDX #0 + LDY #0 +RCOMP2 LDA (RADDR),Y + BNE RCOMP3 + TXA + CLC + ADC #$08 + TAX + INY + CPY RBWIDTH + BNE RCOMP2 + LDA #100 + RTS +RCOMP3 INX + ASL + BCC RCOMP3 + DEX + TXA + RTS +;----------- +; +; Draw line of font data +; +; given Y=ycoor +; +LINEDRAW LDA TABLO,Y + STA BUFFER1 + LDA TABHI,Y + STA BUFFER1+1 + LDA TABLO+1,Y + STA BUFFER2 + LDA TABHI+1,Y + STA BUFFER2+1 +; + LDX XCUR + LDA XCUR+1 + BEQ >0 + LDA XBIT2+256,X + LDY XBYTE2+256,X + BNE >1 +^0 LDA XBIT2,X + LDY XBYTE2,X +^1 STY XBYTE +; +; Compensate for bits not to be +; affected to the left. +; + LDY #8 +^2 DEY +SD1MOD0 SEC + ROR BLDBYTE + LSR + BCC <2 +; + LDX #0 + LDA CSIZE + BNE LINEDUBL +; +; Do a line of normal size +; +LINENORM LDA (PIXAD,X) + EOR #$FF +SD2MOD0 = *-1 + STA DATABYTE + INC PIXAD + BNE *+4 + INC PIXAD+1 + LDX #8 +^0 ASL DATABYTE + ROR BLDBYTE + DEY + BNE >1 +; + LDY XBYTE + INC XBYTE + LDA BLDBYTE + LSR +SD0MOD0 AND (BUFFER1),Y + STA (BUFFER1),Y + LDY #7 +; +^1 DEC WCOUNT + BEQ >2 + DEX + BNE <0 + BEQ LINENORM +; +^2 CPY #7 + BEQ >3 + LDA BLDBYTE +SD1MOD1 SEC + ROR + DEY + BNE SD1MOD1 + LSR + LDY XBYTE +SD0MOD1 AND (BUFFER1),Y + STA (BUFFER1),Y +^3 RTS +; +; Do a line of double size +; +LINEDUBL LDA (PIXAD,X) + EOR #$FF +SD2MOD1 = *-1 + STA DATABYTE + INC PIXAD + BNE *+4 + INC PIXAD+1 + LDX #8 +^0 STX BCOUNT + ASL DATABYTE + LDX #2 +^1 PHP + ROR BLDBYTE + DEY + BNE >2 +; + LDY XBYTE + INC XBYTE + LDA BLDBYTE + LSR + STA BLDBYTE +SD0MOD2 AND (BUFFER1),Y + STA (BUFFER1),Y + LDA BLDBYTE +SD0MOD3 AND (BUFFER2),Y + STA (BUFFER2),Y + LDY #7 +; +^2 PLP + DEX + BNE <1 +; + DEC WCOUNT + BEQ >3 + LDX BCOUNT + DEX + BNE <0 + BEQ LINEDUBL +; +^3 CPY #7 + BEQ >4 + LDA BLDBYTE +SD1MOD2 SEC + ROR + DEY + BNE SD1MOD2 + LSR + STA BLDBYTE + LDY XBYTE +SD0MOD4 AND (BUFFER1),Y + STA (BUFFER1),Y + LDA BLDBYTE +SD0MOD5 AND (BUFFER2),Y + STA (BUFFER2),Y +^4 RTS +;----------- +; #2 #3 #4 +; ORA/AND/EOR how to put on screen +; CLC/SEC/CLC what to fill excess with +; $00/$FF/$00 eor after getting data +; +MODS0 HEX 113151 +MODS1 HEX 183818 +MODS2 HEX 00FF00 +; +; Option mod routine. +; +OPTIONMD LDY OPTION + LDA MODS0-2,Y + PHA + LDX MODS1-2,Y + LDA MODS2-2,Y + TAY + PLA +OPTNMOD JMP SCRNOPTN +; +; OPTION mods for internal screen +; routines +; +SCRNOPTN STA SD0MOD0 + STA SD0MOD1 + STA SD0MOD2 + STA SD0MOD3 + STA SD0MOD4 + STA SD0MOD5 +; + STX SD1MOD0 + STX SD1MOD1 + STX SD1MOD2 +; + STY SD2MOD0 + STY SD2MOD1 + RTS +;----------- +; +; Reset STROUT for screen draw +; +SCREEN JSR INSTALL + ADR SCRNOPTN + ADR LINEDRAW + HBY FONTADDR + RTS +;----------- +; +; JSR INSTALL +; ADR OPTIONMD ; option mods +; ADR LINEDRAW ; line draw routine +; HBY FONTADDR ; hi byte of font data +; +INSTALL JSR GETINIT +; + JSR GETBYTE + STA OPTNMOD+1 + JSR GETBYTE + STA OPTNMOD+2 +; + JSR GETBYTE + STA LINEMOD+1 + JSR GETBYTE + STA LINEMOD+2 +; + JSR GETBYTE +FINSTALL STA FONTMOD0 + STA FONTMOD1 + STA FONTMOD2 + STA FONTMOD3 + STA FONTMOD4 + STA FONTMOD5 + STA FONTMOD6 + STA FONTMOD7 + STA FONTMOD8 + STA FONTMOD9 + STA FONTMODA + STA FONTMODB + STA FONTMODC + RTS +; +; +; + USR "O:FDRAW",ORG + END diff --git a/PSC Source Disk 1 - System (v10)/S_HELLO.txt b/PSC Source Disk 1 - System (v10)/S_HELLO.txt new file mode 100644 index 0000000..3543e37 --- /dev/null +++ b/PSC Source Disk 1 - System (v10)/S_HELLO.txt @@ -0,0 +1,864 @@ + NLS + TTL "S:HELLO" + NOG +; +ORG = $800 +; +; 05/27/85 +; 09/10/85 last mod (Font stuff) +; +; Hello Program for +; +; The Print Shop Companion Disk +; +; by Roland Gustafsson +; +HAS128K = $27F +; +DAT EPZ $00 +; +TMP0 EPZ DAT +TMP1 EPZ DAT+1 +TMP2 EPZ DAT+2 +TMP3 EPZ DAT+3 +LDPROG EPZ DAT+4 +LDPOINT EPZ DAT+5 +LDPADR EPZ DAT+6 +LDLENGTH EPZ DAT+7 +LDDIRECT EPZ DAT+8 +; +ICONS = $4000 +; +YHI = $9100 +YLO = $91C0 +SELCTION = $95F5 +; +; SUBPAK entry points: +; +SP = $E000 +; +PRINT = SP +CLSCREEN = SP+3 +WITEBORD = SP+6 +ESCBACK = SP+9 +PICDRAW = SP+12 +; +DEVICENW = SP+15 +DEVICEON = SP+18 +DEVICEOF = SP+21 +DEVICERD = SP+24 +DEVICEST = SP+27 +SCALING = SP+30 +; +POLEBTN = SP+31 +POLEKEY = SP+34 +GETKEY = SP+37 +SELECT = SP+40 +; +SETTYPE = SP+43 +GETFILE = SP+46 +SAVEFILE = SP+49 +TYPELEN = SP+52 +FLSTART = SP+53 +FLLENGTH = SP+55 +BLOAD = SP+57 +BSAVE = SP+60 +DOSCR = SP+63 +ERROR = SP+66 +; +MUSIC = SP+69 +FLSHINIT = SP+72 +JMPVECTS = SP+75 +LINES = SP+78 +PARSE = SP+81 +SHOWAROW = SP+84 +NUMBER = SP+87 +WAITPSD = SP+90 +WAITCD = SP+93 +ANYKEY = SP+96 +CHKPRINT = SP+99 +BOOP = SP+102 +GETINIT = SP+105 +GETBYTE = SP+108 +INPUT = SP+111 +CLS1 = SP+114 +PRINTGRP = SP+117 +RTOS = SP+120 +RTOSPARM EPZ $3A +; +PRNORM = 1 +PRINVR = 2 +PRLEFT = 3 +PRRITE = 4 +PRCNTR = 5 +PRLOC = 6 +PRSMAL = 7 +PRBIG = 8 +PRSTR = 9 +PRSPC = 10 +PRHTAB = 11 +PRVTAB = 12 +CR = 13 +NOCR = 14 +RTOSBLAK = 15 +RTOSWITE = 16 +RTOSANY = 17 +PRCSPACE = 18 +PRPIC = 19 +PRRTAB = 20 +PRRTAB2 = 21 +PRKERN = 22 +RTOSINV = 23 +GOOBER = 24 +; +ESC = 27 +; +;----------- + ORG ORG + OBJ $800 +;----------- +; +START JMP MAINMENU + JMP FGETMAIN + JMP FGETPSD + JMP FGETCD +;----------- +TXTTPS BYT 'THE PRINT SHOP',0 +TXTC BYT 'COMPANION',0 +; +TXTAPRET BYT 'AND ' +TXTPRET BYT 'PRESS' +TXTSRET BYT ' ' +TXTRET BYT '',0 +;----------- +MAINMENU JSR LOADINIT + LDA #$2C + STA MAINMENU +; + LDX #$FF + TXS + JSR WITEBORD + JSR PRINT + BYT RTOSWITE,1,16,38,15 + BYT PRINVR,PRCNTR,PRBIG + BYT PRSPC,15 + .DA #PRLOC,140,#1 + .DA #PRSTR,TXTTPS,#CR + .DA #PRSTR,TXTC,#CR,#0 +; + JSR LOADICON +; + JSR PRINT + .DA #PRLOC,140,#36 + BYT PRCNTR + BYT CR,'MAIN MENU',CR +; + .DA #PRLOC,76,#66 + BYT 'GRAPHIC EDITOR+',CR + BYT 'BORDER EDITOR',CR + BYT 'FONT EDITOR',CR + BYT 'TILE MAGIC',CR + BYT 'CREATURE MAKER',CR + BYT 'CALENDAR',CR + BYT 'SETUP',CR + BYT 'EXIT PROGRAM',CR +; +; ICON border +; +ICONY = 71 + BYT RTOSWITE,21,ICONY-2,15,2 + BYT RTOSWITE,21,ICONY+53,15,2 + BYT RTOSANY,$70,20,ICONY-2,1,57 + BYT RTOSANY,$07,36,ICONY-2,1,57 +; + BRK + JSR SHOWBOTM +; + LDA #1 +SELPROG CMP #6 + BEQ DOWEIRD +WEIRDONE LDY SELCTION + JSR SELECT + BYT 2+128,18,65,8 + ADR DRAWICON + STY SELCTION + BCS SELPROG +; +; Version requested? +; + TAX + BMI >0 +; + JSR CLRBOTM + LDY SELCTION + JSR JMPVECTS + ADR RUNGE + ADR RUNBE + ADR RUNFE + ADR RUNTM + ADR RUNCM + ADR RUNCA + ADR RUNSE + ADR EXIT +; +;----------- +; +^0 JSR PRINT + BYT PRCNTR,PRINVR + .DA #PRLOC,140,#184 + BYT 'VERSION 1.2',CR + BRK + JMP WEIRDONE +; +CLRBOTM JSR PRINT + BYT RTOSWITE,0,184,40,7,0 + RTS +;----------- +DOWEIRD BEQ DOWEIRD2 +;----------- +; +; Exit! +; +EXIT JSR PRINT + BYT RTOSBLAK,1,31,38,152 + .DA #PRLOC,140,#80 + BYT PRCNTR + BYT 'PLEASE INSERT ANOTHER DISK',CR + BYT CR + .DA #PRSTR,TXTAPRET + BYT CR,0 + JSR ESCBACK + JSR GETKEY + CMP #CR + BEQ >0 + JMP MAINMENU +; +^0 JSR DEVICERD + BCS >1 + ASL + BMI <0 +^1 JSR DEVICEOF + JMP ($FFFC) +;----------- +; +; Useless code for fun +; +DOWEIRD2 LDX #$00 + LDY #$BF +^0 LDA YLO,X + STA TMP0 + LDA YLO,Y + STA YLO,X + STA TMP2 + LDA TMP0 + STA YLO,Y +; + LDA YHI,X + STA TMP1 + LDA YHI,Y + STA YHI,X + STA TMP3 + LDA TMP1 + STA YHI,Y +; + TYA + PHA + LDY #39 +^1 LDA (TMP0),Y + PHA + LDA (TMP2),Y + STA (TMP0),Y + PLA + STA (TMP2),Y + DEY + BPL <1 + PLA + TAY +; + DEY + INX + CPX #$60 + BLT <0 + JMP WEIRDONE +;----------- +; +; Run the Creature Maker. +; +RUNCM LDY #6 + JSR BLOAD2 + BNE RUNCM + LDA #6 + HEX 2C +; +; Run the Graphic editor. +; +RUNGE LDA #0 + HEX 2C +; +; Run Tile magic. +; +RUNTM LDA #3 + STA >9+1 + JSR LOADEDIT +^0 LDY #3 + JSR BLOAD2 + BNE <0 +^9 JMP $4000 +;----------- +; +; Run the Border editor. +; +RUNBE LDY #4 + JSR BLOAD2 + BNE RUNBE + JSR LOADSUPP + JMP $4000 +;----------- +; +; Run the Font editor. +; +RUNFE JSR LOADEDIT +^0 LDY #5 + JSR BLOAD2 + BNE <0 + JMP $6000 +;----------- +; +; Run the setup program. +; +RUNSE LDY #8 + JSR BLOAD2 + BNE RUNSE + JMP $5800 +;----------- +; +; Run the calendar program +; +RUNCA LDY #7 + JSR BLOAD2 + BNE RUNCA + JMP $4000 +;----------- +; +; Load stuff from disk: +; +LOADINIT JSR POLEKEY + CMP #ESC + BEQ >2 +; +^0 JSR BLOAD + BYT 'PRCOMS',0 + BNE <0 +; +^1 JSR BLOAD + BYT 'CONFIG',0 + BNE <1 + RTS +; +^2 JMP $1000 +;----------- +; +; Load MAINMENU icons +; +LOADICON LDY #0 + JSR BLOAD2 + BNE LOADICON + RTS +;----------- +; +; Load EDIT routines +; +LOADEDIT LDY #2 + JSR BLOAD2 + BNE LOADEDIT +;--- +; +; Load the SUPP file, which is saved +; onto data disks automatically by +; the SAVEFILE routine. +; +LOADSUPP LDY #1 + JSR BLOAD3 + BNE LOADSUPP + RTS +;----------- +; +; BLOAD a file from the COMPANION +; disk. If error and ESC is pressed, +; then re-run the MAINMENU program. +; +BLOAD2 LDA #2 + HEX 2C +BLOAD3 LDA #0 + STA TMP0 + STY TMP1 + LDA LPFLAGS,Y + BMI >0 + CLC + LDA #1 + JSR WAITCD + BCS >1 + JSR PRINT + BYT GOOBER,0 +^0 LDY TMP1 + LDA TMP0 + STA $B00D + JMP LOADPROG +^1 JMP MAINMENU +;----------- +; +; Draw ICON on screen +; +DRAWICON LDA ICONADR,X + STA RTOSPARM+4 + LDA ICONADR+1,X + STA RTOSPARM+5 + LDX #3 +^0 LDA ICONLOC,X + STA RTOSPARM,X + DEX + BPL <0 + LDA #$B1 + LDY #RTOSPARM+4 + JMP RTOS +; +ICONLOC BYT 21,ICONY,15,53 +; +L = 15*53 +; +ICONADR ADR ICONS + ADR ICONS+L + ADR ICONS+L*2 + ADR ICONS+L*3 + ADR ICONS+L*4 + ADR ICONS+L*5 + ADR ICONS+L*6 + ADR ICONS+L*7 +;----------- +; +; Show message at bottom of screen +; +SHOWBOTM LDA SELCTION + BPL >0 +; +; First time booting, so display +; message +; +; Force SETUP +; + LDA #6 + STA SELCTION + JSR PRINT + BYT PRCNTR + BYT PRSPC,10 + .DA #PRLOC,140,#150 + BYT 'WELCOME TO',CR + .DA #PRSTR,TXTTPS + BYT ' ' + .DA #PRSTR,TXTC + BYT '!',CR + .DA #PRSTR,TXTPRET + BYT ' TO RUN SETUP',CR + BRK + RTS +;--- +; +; Regular message +; +^0 JSR ARROWS + JSR PRINT + BYT PRCNTR + .DA #PRLOC,140,#152 + BYT 'USE AND' + .DA #PRSTR,TXTSRET,#CR + BYT 'TO MAKE SELECTION. OR, USE',CR + BYT 'MOUSE, JOYSTICK, OR KOALAPAD',CR + BRK +;--- +; +; Draw either left/right arrows +; or up/down arrows, depending on +; machine type. +; +AROWX = 13 +AROWY = 152 +; +ARROWS LDA $FA68 + CMP #$C0 + BEQ ARROW2E + LDA $FBB3 + CMP #$06 + BEQ ARROW2E +;--- +; LEFT + JSR PICDRAW + BYT AROWX,AROWY,1,6 + HEX 810C06C1060C +; RIGHT + JSR PICDRAW + BYT AROWX+2,AROWY,1,6 + HEX 811830C13018 + RTS +;--- +; DOWN +ARROW2E JSR PICDRAW + BYT AROWX,AROWY,1,7 + HEX 0808086B3E1C08 +; UP + JSR PICDRAW + BYT AROWX+2,AROWY,1,7 + HEX 081C3E6B080808 + RTS +;----------- +; +; Enter with Y=0-8 load file. +; If 128k, then load from AUX memory, +; if program isn't there yet, then +; load from disk and transfer it. +; +LOADPROG STY LDPROG + LDA #0 + STA LDPOINT + LDX #$FF +^0 DEY + BMI >2 +^1 INX + LDA FILEINFO,X + BNE <1 + INX + INX + LDA FILEINFO,X + CLC + ADC LDPOINT + STA LDPOINT + BNE <0 +; +; Modify BLOAD filename parameter +; +^2 LDY #$FF +^3 INX + INY + LDA FILEINFO,X + STA BLOADMOD,Y + BNE <3 + LDA #$60 + STA BLOADMOD+1,Y +; +; Get starting/length info +; + LDA FILEINFO+1,X + STA LDPADR + LDA FILEINFO+2,X + STA LDLENGTH +; +; Is this module already loaded? +; + LDY LDPROG + LDA #1 + LDX LPFLAGS,Y + BMI LPMOVE +; +; Since program isn't loaded, load it! +; + JSR BLOADPRO + BNE >1 + BIT HAS128K + BPL >0 +; +; Move program into AUX memory +; + LDA #0 + JSR LPMOVE + LDX LDPROG + SEC + ROR LPFLAGS,X +; +^0 LDA #0 +^1 RTS +;--- +; +; Move routine. +; +; Given A=0, MAIN->AUX +; A=1, AUX->MAIN +; +; LDPROG = program address +; LDPOINT = pointer into AUX table +; LDLENGTH = length in 2k chunks +; +; Set ALTZP, init zpage, and move +; routine down to $80 +; +LPMOVE STA LDDIRECT +; + STA $C009 + LDX #LP80LEN-1 +^0 LDA LP80,X + STA $80,X + DEX + BPL <0 + STA $C008 +; +; Move the program +; +^1 LDY LDPOINT + INC LDPOINT + LDX LPADDR,Y + LDY LDPADR + TYA + CLC + ADC #8 + STA LDPADR +; +; X=AUX address, Y=program address +; + LDA LDDIRECT + STA $C009 + STX TMP1 + STY TMP3 + BNE >2 + STY TMP1 + STX TMP3 +^2 LDY #0 + STY TMP0 + STY TMP2 + JSR $80 + STA $C008 + DEC LDLENGTH + BNE <1 + RTS +;----------- +; +; Routine that sits at $0080 +; +LP80 TAX + STA $C002,X + EOR #1 + TAX + STA $C004,X + LDX #8 +^0 LDA (TMP0),Y + STA (TMP2),Y + INY + BNE <0 + INC TMP1 + INC TMP3 + DEX + BNE <0 + STA $C004 + STA $C002 + RTS +LP80LEN = *-LP80 +;----------- +; +; 24x8k available +; +LPADDR HEX 4048505860687078 + HEX 80889098A0A8B0B8 + HEX D0D8E0E8F0F81018 +;----------- +; +; ,0,,<2k pages> +; +FILEINFO BYT 'ICONS',0,$40,4 + BYT '[CD],A4096',0,$10,1 + BYT 'EDIT',0,$50,2 + BYT 'GREDIT',0,$40,2 + BYT 'BOEDIT',0,$40,3 + BYT 'FOEDIT',0,$60,3 + BYT 'CRDATA',0,$60,3 + BYT 'CALEN',0,$40,4 + BYT 'SETUP',0,$58,1 +;--- +; +; If minus, then that program has +; already been loaded. +; +LPFLAGS DFS 9,0 +; +;--------------- +; +; Font selection menus +; +FGY1 = 60 +FGY2 = 45 +FGY3 = FGY2-16 +; +TXTCAF BYT 'CHOOSE A FONT:',0 +;----------- +FGET0 BYT 'REFERENCE FONT',0 +FGET1 BYT 'FROM PRINT SHOP DISK',0 + BYT 'FROM COMPANION DISK',0 + BYT 'FROM OTHER DISK',0 + BYT 'NO FONT',0 +; +; Get Menu selection Y=default +; +FGETMAIN STY >2+1 + LDY #FGET0 + LDA /FGET0 + BCS >0 + LDY #FGET1 + LDA /FGET1 +^0 STY >1+0 + STA >1+1 +; + JSR CLS1 + JSR PRINT + BYT PRCNTR + .DA #PRLOC,140,#FGY1 + .DA #PRSTR,TXTCAF,#CR + BYT CR,CR,0 +; + JSR PRINTGRP + BYT PRCNTR,4 +^1 ADR $FFFF +; +^2 LDY #00 + JSR SELECT + BYT 7,26,FGY1+23,4 + ADR RTS +RTS RTS +;----------- +; +; Get FONT from Print Shop disk +; +FGETPSD STY >0+1 + JSR CLS1 + JSR PRINT + BYT PRCNTR + .DA #PRLOC,140,#FGY2 + .DA #PRSTR,TXTCAF,#CR + BYT CR,CR + BYT 'RSVP',CR + BYT 'ALEXIA',CR + BYT 'NEWS',CR + BYT 'TECH',CR + BYT 'PARTY',CR + BYT 'BLOCK',CR + BYT 'TYPEWRITER',CR + BYT 'STENCIL',CR,0 +; +^0 LDY #00 + JSR SELECT + BYT 12,16,FGY2+23,8 + ADR RTS + STY >9+1 + BCS >9 +; + INY + TYA + ORA #'0' + STA >1+1 + JSR CLS1 + SEC + JSR WAITPSD + BCS >9 + JSR BLOAD +^1 BYT 'F1',0 + CLC + BEQ >9 + LDA #8 + JSR ERROR + SEC +; +^9 LDY #00 + RTS +;----------- +; +; Get FONT from Companion disk +; +FTEXT BYT 'FONT.',0 +; +FGETCD STY >0+1 + JSR CLS1 + JSR PRINT + BYT PRCNTR + .DA #PRLOC,140,#FGY3 + .DA #PRSTR,TXTCAF,#CR + BYT CR,CR,0 + JSR PRINTGRP + BYT PRCNTR,12 + ADR CDFONTS +; +^0 LDY #00 + JSR SELECT + BYT 12,16,FGY3+23,12 + ADR RTS + STY >9+1 + BCS >9 + LDX #$FF +; +; Find filename +; +^1 DEY + BMI >3 +^2 INX + LDA CDFONTS,X + BNE <2 + BEQ <1 +; +; Move filename to BLOAD name buffer +; +^3 LDY #0 +^4 LDA FTEXT,Y + BEQ >5 + STA BLOADMOD,Y + INY + BNE <4 +; +^5 INX + INY + LDA CDFONTS,X + STA BLOADMOD-1,Y + BNE <5 + LDA #$60 + STA BLOADMOD,Y +; +; Load the file +; + JSR CLS1 +^6 CLC + LDA #1 + JSR WAITCD + BCS >9 + JSR PRINT + BYT GOOBER,0 + JSR BLOADPRO + CLC + BEQ >9 + LDA #8 + JSR ERROR + SEC +; +^9 LDY #00 + RTS +; +;--- +; +; Names of Companion Disk fonts +; +CDFONTS BYT 'BALLOON',0 + BYT 'OHIO',0 + BYT 'PLATFORM',0 + BYT 'DECO',0 + BYT 'ANGLE',0 + BYT 'LOWER CASE',0 + BYT 'ORIENT',0 + BYT 'CABARET',0 + BYT 'GATSBY',0 + BYT 'SALOON',0 + BYT 'SANDWICH',0 + BYT 'REPORTER',0 +;----------- +; +; BLOAD mod routine +; +BLOADPRO JSR BLOAD +BLOADMOD: +;----------- +; +; +; + USR "O:HELLO",ORG + END diff --git a/PSC Source Disk 1 - System (v10)/S_IPL.txt b/PSC Source Disk 1 - System (v10)/S_IPL.txt new file mode 100644 index 0000000..1e805c0 --- /dev/null +++ b/PSC Source Disk 1 - System (v10)/S_IPL.txt @@ -0,0 +1,145 @@ + NLS + TTL "S:IPL" +ORG = $4000 +; +; The Print Shop Companion +; Initial program loader +; +; Sets up: SUBPAK,SYSLIB2,HELLO +; +; also moves hires page to RAMcard +; +TEXT = $FB2F +HOME = $FC58 +NORMAL = $FE84 +COUT = $FDED +VTAB = $FB5B +PR0 = $FE93 +IN0 = $FE89 +; +SRCLO EPZ $3A +SRCHI EPZ $3B +DSTLO EPZ $3C +DSTHI EPZ $3D +LENLO EPZ $3E +LENHI EPZ $3F +; +SP = $E000 +DEVICENW = SP+15 +; + ORG ORG + OBJ $800 +; + JSR CHECK64K + JSR MOVEROM + JSR MOVEPROG + JSR DEVICENW + JMP $0800 +;----------- +; +; Move programs to their homes +; +MOVEPROG BIT $C083 + BIT $C083 + LDY #PROGRAMS + LDA /PROGRAMS + STY SRCLO + STA SRCHI + LDY #0 +; +^0 JSR MOVEGET + STA DSTLO + JSR MOVEGET + STA DSTHI + ORA DSTLO + BEQ MOVERTS + JSR MOVEGET + TAX + JSR MOVEGET + STA LENHI +; +^1 JSR MOVEGET + STA (DSTLO),Y + INC DSTLO + BNE >2 + INC DSTHI +^2 TXA + BNE >3 + DEC LENHI +^3 DEX + BNE <1 + TXA + ORA LENHI + BNE <1 + BEQ <0 +; +; Get a byte from program data +; +MOVEGET LDA (SRCLO),Y + INC SRCLO + BNE MOVERTS + INC SRCHI +MOVERTS RTS +;----------- +; +; Check for 64k +; +CHECK64K BIT $C083 + BIT $C083 + LDX #0 +^0 STX $E000 + CPX $E000 + BNE >1 + INX + BNE <0 + RTS +; +^1 BIT $C081 + JSR TEXT + JSR HOME + JSR NORMAL + JSR PR0 + JSR IN0 + LDA #8 + JSR VTAB + LDY #0 +^2 LDA TEXT64K,Y + BEQ * + JSR COUT + CMP #$8D + BNE >3 + LDA #7 + STA $24 +^3 INY + BNE <2 +; +; Need 64k message +; +TEXT64K BYT $8D + BYT "THE PRINT SHOP COMPANION",$8D,$8D + BYT " REQUIRES 64K OF MEMORY",0 +;----------- +; +; Move monitor ROM into RAMcard +; +MOVEROM LDY #$00 + LDA #$F8 + STY SRCLO + STA SRCHI + BIT $C081 + BIT $C081 +^0 LDA (SRCLO),Y + STA (SRCLO),Y + INY + BNE <0 + INC SRCHI + BNE <0 + RTS +;----------- +; +; Append programs here: +; +PROGRAMS: +; + USR "IPL",ORG + END diff --git a/PSC Source Disk 1 - System (v10)/S_SETUP.txt b/PSC Source Disk 1 - System (v10)/S_SETUP.txt new file mode 100644 index 0000000..0fde6ed --- /dev/null +++ b/PSC Source Disk 1 - System (v10)/S_SETUP.txt @@ -0,0 +1,907 @@ + NLS + TTL "S:SETUP" + NOG +ORG = $5800 +; +; 06/11/85 +; 10/03/85 last mod +; +; Print Shop Companion +; +; SETUP option, updates original +; Print Shop disk to recognize +; Companion disk and fixes a few bugs! +; Also grabs PRCOMMS, CONFIG from +; original Print Shop disk. +; +; by Roland Gustafsson +; Copyright 1985 +; +TMP0 EPZ $F0 +TMP1 EPZ $F1 +TMP2 EPZ $F2 +TMP3 EPZ $F3 +; +MAINMENU = $800 +; +PRCOMS = $1800 +PRCOMLEN = 8 +;----------- +; +; Subroutine package: +; +SP = $E000 +; +PRINT = SP +CLSCREEN = SP+3 +WITEBORD = SP+6 +ESCBACK = SP+9 +PICDRAW = SP+12 +; +DEVICENW = SP+15 +DEVICEON = SP+18 +DEVICEOF = SP+21 +DEVICERD = SP+24 +DEVICEST = SP+27 +SCALING = SP+30 +; +POLEBTN = SP+31 +POLEKEY = SP+34 +GETKEY = SP+37 +SELECT = SP+40 +; +SETTYPE = SP+43 +GETFILE = SP+46 +SAVEFILE = SP+49 +TYPELEN = SP+52 +FLSTART = SP+53 +FLLENGTH = SP+55 +BLOAD = SP+57 +BSAVE = SP+60 +DOSCR = SP+63 +ERROR = SP+66 +; +MUSIC = SP+69 +FLSHINIT = SP+72 +JMPVECTS = SP+75 +LINES = SP+78 +PARSE = SP+81 +SHOWAROW = SP+84 +NUMBER = SP+87 +WAITPSD = SP+90 +WAITCD = SP+93 +ANYKEY = SP+96 +CHKPRINT = SP+99 +BOOP = SP+102 +GETINIT = SP+105 +GETBYTE = SP+108 +INPUT = SP+111 +CLS1 = SP+114 +PRINTGRP = SP+117 +RTOS = SP+120 +SPACEBAR = SP+123 +GETPDISK = SP+126 +ESCMAIN = SP+129 +; +WITE = $FF +GRAY = $AA +BLAK = $00 +; +PRNORM = 1 +PRINVR = 2 +PRLEFT = 3 +PRRITE = 4 +PRCNTR = 5 +PRLOC = 6 +PRSMAL = 7 +PRBIG = 8 +PRSTR = 9 +PRSPC = 10 +PRHTAB = 11 +PRVTAB = 12 +CR = 13 +NOCR = 14 +RTOSBLAK = 15 +RTOSWITE = 16 +RTOSANY = 17 +PRCSPACE = 18 +GOOBER = 24 +; +; Monitor routines: +; +RTS = $FF58 +; +; SYSLIB +; +MENULAST = $95F5 +MENUOTHR = $95F6 +FIRSTIME = $95F7 +;----------- +ESC = $1B +; +MENUTOP = 20 +MENU0Y = 70 +MENU1Y = 64 +MENU2Y = 72 +;----------- + ORG ORG + OBJ $800 +; +START LDX #$FF + TXS + JSR WITEBORD + JSR ESCBACK + JSR PRINT + BYT PRBIG,PRCNTR,PRINVR + .DA #PRLOC,140,#1 + BYT 'SETUP',CR,0 +; + LDA FIRSTIME + BNE >0 + JMP MENUFRST +; +^0 JSR PRINT + BYT PRCNTR + BYT PRVTAB,MENU0Y + BYT 'MAKE A CHOICE:',CR + BYT CR + .DA #PRSTR,MENUTXT1,#CR + .DA #PRSTR,MENUTXT2,#CR + BYT 'GO TO MAIN MENU',CR + BRK +START2 JSR PRINT + BYT PRVTAB,MENUTOP,0 +; +^0 LDY #00 +SEL1 = *-1 + JSR SELECT + BYT 3,34,MENU0Y+15,3 + ADR RTS + BCS >2 + STY SEL1 + JSR CLS1 + JSR >1 + JMP START +; +^1 LDA #6 + STA MENULAST + LDY SEL1 + JSR JMPVECTS + ADR MENU1 + ADR MENU2 + ADR MAINMENU +; +^2 JSR ESCMAIN + BCS START2 +; +CLS3 JSR PRINT + BYT RTOSBLAK,1,31,38,151,0 + RTS +;----------- +TXTTOU BYT 'THIS OPTION UPDATES',0 +TXTFYWU BYT 'FIRST YOU WILL UPDATE',0 +TXTNYWU BYT 'NEXT YOU WILL UPDATE',0 +TXTPS BYT 'PRINT SHOP',0 +TXTINFO BYT 'INFORMATION',0 +;----------- +; +; Borrow PRCOMMS and CONFIG from +; original Print Shop disk and save +; them on the Companion disk. +; +MENUTXT1 BYT 'UPDATE ' +CDSTXT BYT 'COMPANION DISK SETUP',0 +; +MENU1A LDX #TXTNYWU + LDA /TXTNYWU + STX >0+1 + STA >0+2 +; +MENU1 JSR PRINT + BYT PRCNTR + .DA #PRSTR,MENUTXT1,#CR + BYT PRVTAB,MENU1Y +^0 .DA #PRSTR,TXTTOU,' THE',#CR + BYT 'COMPANION DISK WITH THE SETUP',CR + .DA #PRSTR,TXTINFO + BYT ' FROM THE ORIGINAL',CR + .DA #PRSTR,TXTPS,'. THIS INCLUDES',#CR + BYT 'PRINTER, INTERFACE AND DISK',CR + BYT 'DRIVE ' + .DA #PRSTR,TXTINFO,'.',#CR + BRK + JSR ANYKEY + CMP #ESC + BEQ MENU1DON +; + JSR CLS3 + LDA #$80 +MENU1FLG = *-1 + ASL +^0 JSR WAITPSD2 + BCS MENU1DON + JSR BLOAD + BYT 'PRCOMS,D1',0 + JSR ERROR? + BCS <0 +; + JSR FXPRCOMS +; + JSR BLOAD + BYT 'CONFIG',0 + JSR ERROR? + BCS <0 +; +; Has the SETUP program been run on +; the original Print Shop? +; + LDA FIRSTIME + BEQ >2 +; + LDA #0 + STA MENULAST +;--- + SEC +^1 JSR WAITCD2 + BCS <0 + JSR BSAVE + BYT 'PRCOMS,A$1800,L$800',0 + JSR ERROR? + BCS <1 +; + JSR BSAVE + BYT 'CONFIG,A$95F0,L$10',0 + JSR ERROR? + BCS <1 +; +MENU1DON RTS +;--- +; +; Setup was never run on the original +; Print Shop. +; +^2 JSR MUSIC + JSR PRINT + BYT PRCNTR + .DA #PRLOC,140,#68 + BYT 'YOU MUST FIRST RUN SETUP',CR + BYT CR + BYT 'ON YOUR ' + .DA #PRSTR,TXTPS + BYT ' DISK.',CR + BRK + JSR ANYKEY + LDA #7 + STA MENULAST + JMP MAINMENU +;----------- +; +; Scan through PRCOMS file +; and change all references to +; the $9600 page to $8900. +; +; Uses monitor routine $F88C +; +; Given: X=0, $3A.3B pointing to data +; +; Return: $2F=length of instrucion-1 +; +FXPRCOMS LDY #PRCOMS + LDA /PRCOMS + STY $3A + STA $3B + LDA #PRCOMLEN + STA TMP0 +^0 LDX #0 + LDA ($3A,X) + JSR $F88E + LDY $2F + CPY #2 + BNE >2 + LDA ($3A),Y + CMP #$96 + BNE >2 +; +; Now check for appropriate +; instructions, JSR, JMP or +; LDA $FFFF,Y +; + LDY #0 + LDA ($3A),Y + CMP #$20 + BEQ >1 + CMP #$4C + BEQ >1 + CMP #$B9 + BNE >2 +; +; LDA $890E,Y +; There is at least one version +; of the Print Shop that doesn't +; use the LDA $960E,Y table but +; one at $9608,Y !!! +; + INY + LDA #$0E + STA ($3A),Y +; +; Change page reference to $8900 +; +^1 LDY #2 + LDA #$89 + STA ($3A),Y +; +^2 TYA + SEC + ADC $3A + STA $3A + BCC <0 + INC $3B + DEC TMP0 + BNE <0 + RTS +;----------- +; +; Update original Print Shop disk to +; recognize "FROM OTHER DISK" for +; borders and fonts, also fix a few +; bugs associated with "FROM OTHER +; DISK" +; +MENUTXT2 BYT 'UPDATE PRINT SHOP DISK',0 +; +MENU2A LDX #TXTFYWU + LDA /TXTFYWU + STX >0+1 + STA >0+2 +; +MENU2 JSR PRINT + BYT PRCNTR + .DA #PRSTR,MENUTXT2,#CR + BYT PRVTAB,MENU2Y +^0 .DA #PRSTR,TXTTOU,' YOUR',#CR + .DA #PRSTR,TXTPS + BYT ' DISK TO RECOGNIZE',CR + BYT 'BORDERS AND FONTS',CR + BYT 'FROM OTHER DISKS',CR,0 + JSR ANYKEY + CMP #ESC + BEQ >0 +; + JSR M2MODS +; +^0 RTS +;----------- +; +; Make changes to PRINT SHOP files +; +M2MODS SEC +^0 JSR WAITPSD2 + BCS M2MODS2 +; +; Make sure Print Shop is checked +; for protection +; + LDA #8 +^1 PHA + JSR GOOBERDO + PLA + SEC + SBC #1 + BNE <1 +; + JSR FXCONFIG + BCS <0 + JSR FXHELLO + BCS <0 + JSR FXMENLIB + BCS <0 + JSR FXMENUS1 + BCS <0 + JSR FXMENUS5 + BCS <0 + JSR FXDRAW3 + BCS <0 +; +M2MODS2 RTS +;----------- +; +; "HELLO" file +; +FXHELLO JSR SWAP800 + JSR BLOAD + BYT 'HELLO',0 + JSR ERROR? + BCS SWAP800 +; +; Fix bug with printer cards that +; use $C800 space. If any other +; card is using that space, then +; the PRCOMS will crash. +; + LDY #CFFFLEN-1 +^0 LDA CFFFMOD,Y + STA $83D,Y + DEY + BPL <0 +; +; FONT from other disk bug, was +; LDA, should have been LDX +; + LDA #$A2 + STA $D58 +; +; Move $1800 bytes, not $1700 +; + LDA #$18 + STA $D74 +; +; pressed when asking for +; DATA DISK, didn't clear screen +; + LDA #$97 + STA $BBB +; +; New routine to get SUPP file +; + LDY #SUPPFIXL-1 +^0 LDA SUPPFIX,Y + STA $BC0,Y + DEY + BPL <0 +; +; New text for supplemental disk +; + LDY #SUPPTXTL-1 +^0 LDA SUPPTEXT,Y + STA $C28,Y + DEY + BPL <0 +; + LDY #SUPPTX2L-1 +^1 LDA SUPPTXT2,Y + STA $C62,Y + DEY + BPL <1 +; + LDA #$3B + STA $BA9 +; +; Change SUPP filename to [CD] +; + LDY #3 +^0 LDA SUPPNAME,Y + STA $CA9,Y + DEY + BPL <0 +; + JSR BSAVE + BYT 'HELLO,A$800,L$800',0 + JSR ERROR? +; +SWAP800 LDA #8 + JMP SWAP +;--- +; +; Hit $CFFF when booting +; +CFFFMOD LDA $CFFF + LDA $C000 + CMP #$9B + BNE *+5 +CFFFLEN = *-CFFFMOD +; +; Replacement text for +; "SUPPLEMENTAL DISK" +; +SUPPTEXT BYT 'DATA DISK IN ' + BYT 'DRIVE 2' + DFS 8,$20 + BYT 0 +SUPPTXTL = *-SUPPTEXT +; +SUPPTXT2 BYT ' DATA DISK ' + BYT 0,0 +SUPPTX2L = *-SUPPTXT2 +; +SUPPNAME BYT '[CD]' +; +; Change to SUPP routine +; +SUPPFIX LDA #0 + STA $B00D + LDX #$A9 + LDY #$0C + JSR $0CD2 + BEQ >0 + JSR $B53 + LDX #$9D + LDY #$0C + JSR $8E06 + JSR $8005 + JMP $0B8E +^0 LDA $CB1 + JSR $6300 + NOP + NOP + NOP +SUPPFIXL = *-SUPPFIX +;----------- +; +; "MENULIB" file +; +FXMENLIB JSR BLOAD + BYT 'MENULIB',0 + JSR ERROR? + BCS >9 +; +; Better way of checking for 16k +; RAMcard. Old one killed contents +; + LDY #RMCHKLEN-1 +^0 LDA RMCHK,Y + STA $78D6,Y + DEY + BPL <0 +; +; Enable to work during +; CATALOGs!!! +; + LDY #$E0 + LDA #$81 + STY $80C1 + STA $80C2 + LDY #PAKMSG2L-1 +^1 LDA PAKMSG2,Y + STA $81E0,Y + DEY + BPL <1 +; +; Fix PSDCHK bug which causes +; DISK ERROR if you try to use +; COMPANION disk as a graphic +; data disk. +; + LDY #PSDCHKL-1 +^0 LDA PSDCHK,Y + STA $77D9,Y + DEY + BPL <0 +; + JSR BSAVE + BYT 'MENULIB,A$6000,L$21F8',0 + JSR ERROR? +; +^9 RTS +;--- +; +; New RAMcard check routine +; +RMCHK LDA $C083 + LDA $C083 + LDY $D000 + LDX #0 +^0 STX $D000 + CPX $D000 + BNE >1 + INX + BNE <0 +^1 STY $D000 + STA $C082 + RTS +RMCHKLEN = *-RMCHK +;--- +; +; Patch to allow ESC exit +; from CATALOG +; +PAKMSG2 JSR $80F4 + AND #$7F + CMP #ESC + BNE >0 + PLA + PLA +^0 RTS +PAKMSG2L = *-PAKMSG2 +;--- +; +; Correct error in PSDCHK which +; returned SEC for any data disk +; that had a 3 or greater at loc +; TS(17,0) offset $FF +; +; +PSDCHK LDA #0 + STA $B00D + SEC + ROL +PSDCHKL = *-PSDCHK +;----------- +; +; "CONFIG" file +; +FXCONFIG JSR BLOAD + BYT 'CONFIG,A$55F0',0 + JSR ERROR? + BCS >0 +; +; Enable FROM OTHER DISK messages +; + LDA MENUOTHR-$4000 + CMP #4 + BGE >1 + LDA #3 + STA MENUOTHR-$4000 +; + LDY #15 +^0 LDA $55F0,Y + STA $95F0,Y + DEY + BPL <0 +; + JSR BSAVE + BYT 'CONFIG,A$95F0,L16',0 + JSR ERROR? +; +^0 RTS +;--- +; +; Don't update this Print Shop +; +^1 JSR CLS3 + JSR MUSIC + JSR PRINT + BYT PRCNTR + .DA #PRLOC,140,#MENU2Y+8 + BYT 'THIS ' + .DA #PRSTR,TXTPS + BYT ' DISK DOES',CR + BYT 'NOT NEED TO BE UPDATED.',CR + BRK + JSR ANYKEY + PLA + PLA + CLC + RTS +;----------- +FXMENUS1 JSR BLOAD + BYT 'MENUS1',0 + JSR ERROR? + BCS >9 +; +; Fix bug in greeting card when +; using two different fonts from +; other disk, edit window got +; wrong information after printing +; and backing up with +; + LDX #$E0 + LDY #$54 + STX $4AD4 + STY $4AD5 +; + LDY #MEN1FLEN-1 +^0 LDA MENU1FIX,Y + STA $54E0,Y + DEY + BPL <0 +; + JSR BSAVE + BYT 'MENUS1,A$4000,L$17F8',0 + JSR ERROR? +; +^9 RTS +;--- +MENU1FIX LDA #$60 + STA $D6F + JSR $D27 + LDA #$A9 + STA $D6F + LDA $C082 + JMP $4204 +MEN1FLEN = *-MENU1FIX +;----------- +; +; "MENUS5" files +; +FXMENUS5 JSR SWAP1000 +; + JSR BLOAD + BYT 'MENUS5',0 + JSR ERROR? + BCS SWAP1000 +; +; Screen Magic Font bug, didn't +; get parameters in the correct +; order +; + LDY #SMFIXLEN-1 +^0 LDA SMFIX,Y + STA $154A,Y + DEY + BPL <0 +; + JSR BSAVE + BYT 'MENUS5,A$1000,L$DF8',0 + JSR ERROR? +; +SWAP1000 LDA #$10 + JMP SWAP +; +; Screen Magic patch +; +SMFIX: +TEXT2 = *-$21 +; + LDA $81F + STA $1BC4 + LDA $820 + STA $1BB2 + LDA $821 + STA $1BBB + LDX $85C0 + DEX + LDA $1BBC,X + STA $7904 + LDA $15AB,X + ASL + ASL + ASL + SEC + SBC $15AB,X + STA $7905 + LDA #01 + STA $7906 + JSR $7900 + DEC $7906 + LDA $83FF + CMP #$1B + BEQ TEXT2 + JSR $7016 + LDA $85C0 + JSR $810 +SMFIXLEN = *-SMFIX +;----------- +; +; "DRAW3" file (LETTERHEAD) +; +FXDRAW3 JSR BLOAD + BYT 'DRAW3',0 + JSR ERROR? + BCS >9 +; +; Letterhead draw enhancement. +; + LDX #$A2 + LDA #$00 + STX $7B66 + STA $7B67 + LDX #$4C + LDY #$D1 + LDA #$7C + STX $7B68 + STY $7B69 + STA $7B6A +; + LDY #LHDRWLEN-1 +^0 LDA LHDRWFIX,Y + STA $7CD1,Y + DEY + BPL <0 +; + JSR BSAVE + BYT 'DRAW3,A$7800,L$4F8',0 + JSR ERROR? +; +^9 RTS +; +; This routine enhances the +; Letterhead draw routine by +; automatically doubling fonts +; that are small enough to be +; doubled. +; +LHDRWFIX LDA $87C0 + CMP #7 + BLT >3 + CMP #10 + BNE >2 + LDY #'Z'-$20 +^0 CPY #$20 + BEQ >1 + LDA $603B,Y + CMP #19+1 + BGE >3 +^1 DEY + BPL <0 +^2 INX +^3 STX $8A0B + RTS +LHDRWLEN = *-LHDRWFIX +;----------- +; +; Enter with A= DOS error code +; +ERROR? BNE >0 + CLC + RTS +; +^0 JSR ERROR + SEC + RTS +;----------- +WAITPSD2 JSR WAITPSD +^0 BCS >1 +GOOBERDO JSR PRINT + BYT GOOBER,0 +^1 RTS +; +WAITCD2 LDA #1 + JSR WAITCD + BCC <0 + RTS +;----------- +; +; Swap memory given A=page +; +; Swaps 16 pages with $6000 +; +SWAP LDX #$10 + LDY #0 + STY TMP0 + STA TMP1 + LDA #$60 + STY TMP2 + STA TMP3 +; +^0 LDA (TMP0),Y + PHA + LDA (TMP2),Y + STA (TMP0),Y + PLA + STA (TMP2),Y + INY + BNE <0 + INC TMP1 + INC TMP3 + DEX + BNE <0 + RTS +;----------- +; +; Update Print Shop and Companion +; for the first time. +; +MENUFRST LSR MENU1FLG + LDA #1 + JSR MENUF + LDA #0 + JSR MENUF + JMP MAINMENU +; +MENUF PHA + JSR CLS1 + JSR PRINT + .DA #PRLOC,140,#MENUTOP + BRK + PLA + TAY + JSR >1 + BCC >0 + JSR PRINT + BYT RTOSBLAK,1,160,38,23,0 + JSR ESCMAIN + PLA + PLA + BCS MENUFRST +^0 RTS +; +^1 JSR JMPVECTS + ADR MENU1A + ADR MENU2A +;----------- +; +; +; + USR "SETUP,S4",ORG + END diff --git a/PSC Source Disk 1 - System (v10)/S_SUBPAK.txt b/PSC Source Disk 1 - System (v10)/S_SUBPAK.txt new file mode 100644 index 0000000..a973608 --- /dev/null +++ b/PSC Source Disk 1 - System (v10)/S_SUBPAK.txt @@ -0,0 +1,3 @@ + NLS +; S:SUBPAK + ICL "S:SUBPAK1" diff --git a/PSC Source Disk 1 - System (v10)/S_SUBPAK1.txt b/PSC Source Disk 1 - System (v10)/S_SUBPAK1.txt new file mode 100644 index 0000000..258e47e --- /dev/null +++ b/PSC Source Disk 1 - System (v10)/S_SUBPAK1.txt @@ -0,0 +1,212 @@ + TTL "S:SUBPAK" +; S:SUBPAK1 + NOG +ORG = $E000 +OBJ = $800 +; +; 03/11/85 +; 08/23/85 last mod +; +; The Print Shop Companion Disk +; Subroutine Package +; +; by Roland Gustafsson +; +;------------ +; +; Temp z-page +; +FLASHLO EPZ $4E +FLASHHI EPZ $4F +; +TMP EPZ $F0 +TMP0 EPZ TMP +TMP1 EPZ TMP+1 +TMP2 EPZ TMP+2 +TMP3 EPZ TMP+3 +TMP4 EPZ TMP+4 +TMP5 EPZ TMP+5 +; +TMPLO EPZ TMP+6 +TMPHI EPZ TMP+7 +HIRES EPZ TMP+8 +; +; For input device only! +; +DTMP0 EPZ TMP+10 +DTMP1 EPZ TMP+11 +DTMPLO EPZ TMP+12 +DTMPHI EPZ TMP+13 +;----------- +; +; Absolute references: +; +; Printer routines +; +PT = $1800 +; +PTCOUT = PT +PTCRLF = PT+3 +PTSENDGC = PT+6 +PTGCOUT = PT+9 +; +PRINBUFF = $BB00 +SECTBUFF = $8400 +; +MAINMENU = $0800 +; +DATADRIV = $95F4 +MENULAST = $95F5 +CALENDAR = 5 +CHEKPROT = $BCE0 +; +; SYSLIB routines +; +STROUT = $8A00 +SPARM = STROUT+3 +STRGET = $8E03 +; +; SYSLIB tables +; +YBASELO = $91C0 +YBASEHI = $9100 +XBYTEOFF = $9398 +XBITS = $94B0 +SYSFONT = $8500 +FLIPPER = $9080 +; +; Monitor routines +; +WAIT = $FCA8 +CROUT = $FD8E +RTS = $FF58 +SAVEREGS = $FF4A +RESTREGS = $FF3F +; +; Variables +; +MAXFLEN = 15 +ESC = $1B +;----------- + ORG ORG + OBJ OBJ +;----------- +; Screen output routines: +; + JMP PRINT + JMP CLSCREEN + JMP WITEBORD + JMP ESCBACK + JMP PICDRAW +; +; Device input routines: +; + JMP DEVICENW +DEVMODS: +DEVICEON JMP DEVICEON +DEVICEOF JMP DEVICEOF +DEVICERD JMP DEVICERD +DEVICEST JMP DEVICEST +SCALING HEX 00 +; +; Keyboard routines: +; + JMP POLEBTN + JMP POLEKEY + JMP GETKEY + JMP SELECT +; +; Load/Save routines: +; + JMP SETTYPE + JMP GETFILE + JMP SAVEFILE +TYPELEN HEX 00 +FLSTART ADR 0 +FLLENGTH ADR 0 +; + JMP BLOAD + JMP BSAVE + JMP DOSCR + JMP ERROR +; +; Miscellaneous routines: +; + JMP MUSIC + JMP FLSHINIT + JMP JMPVECTS + JMP LINES + JMP PARSE + JMP SHOWAROW + JMP NUMBER + JMP WAITPSD + JMP WAITCD + JMP ANYKEY + JMP CHKPRINT + JMP BOOP + JMP GETINIT + JMP GETBYTE + JMP INPUT + JMP CLS1 + JMP PRINTGRP + JMP RTOS + JMP SPACEBAR + JMP GETPDISK + JMP ESCMAIN + JMP TESTPAPR + JMP GETANUMB + JMP ANYKEY2 + JMP DEVICECH +;----------- +; +; Make sure that the following +; routines don't cross page +; boundaries. +; +;----------- +; +; Single tone error bell +; +BOOP PHP + SEI + LDY #$20 +^0 BIT $C030 + LDA #$18 + JSR WAIT + DEY + BNE <0 + PLP + RTS +; +; Error Music +; +MUSIC PHP + SEI + LDY #4 +^0 STY TMP0 + LDA MUSICFRQ,Y + STA >1+1 + LDA MUSICDUR,Y +^1 LDX #00 +^2 INY + BNE >3 + SBC #1 + BMI >4 +^3 DEX + BNE <2 + LDX $C030 + JMP <1 +^4 LDY TMP0 + DEY + BPL <0 + PLP + RTS +; +MUSICDUR HEX 6030301818 +MUSICFRQ HEX 5E4C807280 +; +;----------- +; +; +; + ICL "S:SUBPAK2" diff --git a/PSC Source Disk 1 - System (v10)/S_SUBPAK2.txt b/PSC Source Disk 1 - System (v10)/S_SUBPAK2.txt new file mode 100644 index 0000000..877a2f8 --- /dev/null +++ b/PSC Source Disk 1 - System (v10)/S_SUBPAK2.txt @@ -0,0 +1,1060 @@ +; +; S:SUBPAK2 +; +COUT ORA #$80 + JMP $FDED +;----------- +TXTINIT BYT 'INITIALIZE',0 +; +TXTPRET BYT 'PRESS ' +TXTRET BYT '',0 +TXTCA BYT 'CHOOSE A ',0 +; +TXTINDRV BYT 'IN ' +TXTDRIVE BYT 'DRIVE ',0 +; +TXTDD BYT 'DATA' +TXTSD BYT ' ' +TXTD BYT 'DISK',0 +; +PSTEXT BYT 'PRINT SHOP',0 +CTEXT BYT 'COMPANION',0 +DTEXT BYT 'DATA',0 +TXTPAK BYT 'PRESS ANY KEY',0 +;----------- +; +; Clear screen and display +; the standard white border +; +WITEBORD JSR CLSCREEN + JSR PRINT + BYT RTOSWITE,0,0,1,192 + BYT RTOSWITE,39,0,1,192 + BYT RTOSWITE,1,0,38,16 + BYT RTOSWITE,1,183,38,9 + BRK + JMP PCHEKSUM +;----------- +; +; Check for keypress BPL=no key +; BMI=key in A +; +POLEBTN LDY #0 + JSR DEVICERD + BCS POLEKEY + ASL + BMI POLEKEY + BCC POLEKEY + LDA #$8D + BNE >0 +; +POLEKEY LDA $C000 + BMI >0 + LDA #0 + RTS +; +^0 PHP + BIT $C010 + CMP #$FF + BEQ >1 + CMP #$E0 + BLT >1 + AND #$DF +^1 AND #$7F + PLP +^2 RTS +; +; Get a key +; +GETKEY BIT $C010 +^0 JSR POLEBTN + BPL <0 + RTS +;----------- +; +; JSR PICDRAW +; BYT ,,, +; HEX +; +; TMP0=Start X +; TMP1=Start Y +; TMP2=width +; TMP3=height +; TMP4=Repeat counter +; +PICDRAW JSR GETINIT +PICDRAW2 LDX #0 + STX TMP4 +^0 JSR GETBYTE + STA TMP0,X + INX + CPX #4 + BLT <0 +; + LDX TMP1 +^1 LDA TMP0 + CLC + ADC YBASELO,X + STA HIRES + LDA YBASEHI,X + STA HIRES+1 + LDY #0 +; +^2 JSR PICBYTE + STA (HIRES),Y + INY + CPY TMP2 + BLT <2 + INX + DEC TMP3 + BNE <1 + RTS +; +PICBYTE LDA TMP4 + BEQ >0 +; +PICREPT LDA #00 + DEC TMP4 + BPL >1 +; +^0 JSR GETBYTE + BMI >2 +; +^1 RTS +; +^2 PHA + ASL + ASL + LDA #$00 + BCC >3 + LDA #$7F +^3 STA PICREPT+1 + PLA + AND #%00111111 + STA TMP4 + BPL PICBYTE +;----------- +; +; "PRESS ANY KEY TO CONTINUE..." +; +ANYKEY LDY #173 + HEX 2C +ANYKEY2 LDY #185 + STY >0+3 + JSR PRINT +^0 .DA #PRLOC,140,#00 + BYT PRCNTR + .DA #PRSTR,TXTPAK,' TO ' + BYT 'CONTINUE...',NOCR,0 +; + JSR GETKEY + SEC + RTS +;----------- +; +; " TO GO BACK" +; +ESCBACK JSR PRINT + .DA #PRLOC,140,#184 + BYT PRCNTR,PRINVR + BYT ' TO GO BACK',CR,0 + SEC + RTS +;----------- +; +; JSR SETTYPE +; BYT '',0 +; BYT '
',0 +; BYT '',0 +; BYT +; ADR +; ADR +; +; Get type text "GRAPHIC" +; +SETTYPE JSR GETINIT + LDY #0 +^0 JSR GETBYTE + STA TYPETEXT,Y + BEQ >0 + INY + BNE <0 +; +; Get header text "GRAPHIC EDITOR+" +; +^0 LDY #0 +^1 JSR GETBYTE + STA HEADTEXT,Y + BEQ >0 + INY + BNE <1 +; +; Get file prefix "BORD." +; +^0 LDY #0 +^1 JSR GETBYTE + STA FLPREFIX,Y + BEQ >0 + INY + BNE <1 +; +; Get CAT length, loadadr, length +; +^0 LDY #0 +^1 JSR GETBYTE + STA TYPELEN,Y + INY + CPY #5 + BLT <1 + RTS +; +TYPETEXT DFS 10,0 +HEADTEXT DFS 16,0 +;----------- +; +; 0=Save file +; 1=Load file +; +SAVEGET HEX 00 +; +FLPREFIX DFS 6,0 +; +; The following routines assume +; that SETTYPE was done. +; +; Get a file, if SEC then get from +; COMPANION disk which is drive one. +; Else, use the DATADRIV parameter. +; +GETFILE STA GETCSIDE + LDA DATADRIV + PHA + LDY #DTEXT + LDX /DTEXT + BCS >0 +; + LDY #CTEXT + LDX /CTEXT + LDA #1 +; +^0 STA DATADRIV + STY GET1MOD+1 + STX GET1MOD+2 + LDA #1 + JSR DOFILE + PLA + STA DATADRIV + RTS +;----------- +; +; Save file +; +SAVEFILE LDA #0 + SEC + ROR INITFLAG + SEC +; +DOFILE STA SAVEGET + ROR MASTMOD +; + LDA DATADRIV + STA $AA68 + ORA #'0' + CMP #'1' + BNE *+4 + LDA #' ' + STA TXTDRIVE+6 +; + JSR WITEBORD + JSR ESCBACK + JMP DISKLOP2 +; +DISKLOOP JSR CLS1 +DISKLOP2 JSR PRINT + BYT PRINVR,PRRITE + .DA #PRLOC,149,#4 + .DA #PRSTR,HEADTEXT + BYT ':',CR,0 +; + LDA SAVEGET + BEQ >0 +; + JSR PRINT + BYT PRBIG,PRINVR + .DA #PRLOC,160,#1 + BYT 'GET',CR + BYT PRSMAL,PRNORM + BYT PRCNTR + .DA #PRLOC,140,#52 + .DA #PRSTR,TXTCA + .DA #PRSTR,TYPETEXT + BYT ':',CR + .DA #PRLOC,15,#92,#PRLEFT + BYT 'PLACE ' +GET1MOD .DA #PRSTR,$FFFF + .DA #PRSTR,TXTSD + BYT ' ',NOCR,0 + JMP >1 +; +^0 JSR PRINT + BYT PRBIG,PRINVR + .DA #PRLOC,160,#1 + BYT 'SAVE',CR + BRK + JSR INIT? + BCC *+3 + RTS +; + JSR CLS1 + JSR PRINT + .DA #PRLOC,140,#48 + BYT PRCNTR + BYT 'TO SAVE ' + .DA #PRSTR,TYPETEXT + BYT ' YOU ARE',CR + BYT 'WORKING ON:',CR + BYT PRLEFT + .DA #PRLOC,15,#92 + BYT 'PLACE ' + .DA #PRSTR,TXTINIT + BYT 'D ' + .DA #PRSTR,TXTDD,#CR + BRK +; +^1 JSR PRINT + .DA #PRSTR,TXTINDRV,#CR + .DA #PRLOC,15,#116 + BYT 'TYPE IN NAME OF ' + .DA #PRSTR,TYPETEXT + BYT ' OR ',CR + .DA #PRSTR,TXTPRET + BYT ' FOR ' + .DA #PRSTR,TYPETEXT + BYT ' LIST',CR,CR,'>',NOCR,0 +; + JSR INPUTNAM + BCS DISKQUIT +; + LDA #00 +MASTMOD = *-1 + BMI >0 +; +; Getting from Companion disk +; so make sure it is in drive. +; + CLC + LDA #00 +GETCSIDE = *-1 + JSR WAITCD + BCC >1 + BCS >5 +; +; Getting/Saving to other disk +; so make sure that Companion +; or Print Shop disk is not in +; drive. +; +^0 JSR REMOMAST + BCS DISKQUIT +; +^1 JSR NOPROT + LDA FILENAME + BEQ CATALOG +; + LDA SAVEGET + BEQ >0 +; + JSR BLOADTY + JMP >3 +; +^0 JSR SAVESUPP + BNE >4 + JSR VERIFYTY + BEQ >1 + CMP #6 + BEQ >2 + BNE >4 +^1 LDA #99 + JSR ERROR + CMP #CR + BNE >5 + JSR CLS1 + JSR DELETETY + BNE >4 +^2 JSR BSAVETY +; +^3 CLC + BEQ DISKQUIT +^4 JSR ERROR +^5 JMP DISKLOOP +; +DISKQUIT BCC >0 + LDA SAVEGET + BNE >0 + SEC + ROR INITFLAG + JMP DISKLOOP +^0 RTS +; +DISKERR LDA #8 + JSR ERROR + JMP DISKLOOP +; +; CATALOG disk +; +CATALOG JSR CLS2 + JSR PRINT + .DA #PRLOC,140,#20,#PRCNTR + BYT 'LIST OF ' + .DA #PRSTR,TYPETEXT + BYT 'S ON THIS' + .DA #PRSTR,TXTSD + BYT ':',CR,0 + LDA #$FF + STA CATPAGE + STA CATCOUNT + JSR CATINIT + BCS DISKERR +; +^0 INC CATCOUNT + JSR CATFILE + BCS DISKERR + BNE CATDONE + STA CATFLMOD + STY CATFLMOD+1 + INC CATPAGE + LDA CATPAGE + EOR #15 + BNE >1 + STA CATPAGE + JSR ANYKEY + CMP #ESC + BEQ CATDONE2 + JSR CLS2 +; +^1 LDA #00 +CATPAGE = *-1 + ASL + ASL + ASL + ADC #36 + STA CATYMOD + JSR PRINT + .DA #PRLOC,64 +CATYMOD HEX FF + .DA #PRSTR +CATFLMOD ADR $FFFF + BYT CR,0 + JMP <0 +; +CATDONE LDA #00 + BNE >0 + JSR PRINT + .DA #PRLOC,140,#64,#PRCNTR + BYT 'NONE',CR,0 +; +^0 JSR ANYKEY +CATDONE2 JMP DISKLOOP +; +CATCOUNT = CATDONE+1 +; +; Input file name +; +INPUTNAM LDA #0 + STA FILENAME + JSR INPUT + ADR FILENAME + BYT MAXFLEN + ADR 27 + BYT 140 + RTS +; +; Filename that user enters +; +FILENAME DFS MAXFLEN+1,0 +;----------- +; +; DOS commands: +; 0=VERIFY +; 2=BLOAD +; 4=BSAVE +; 6=DELETE +; +DOSCOMM LDA DOSCOMM2,X + STA TMPLO + LDA DOSCOMM2+1,X + STA TMPHI + LDY #0 +^0 LDA (TMPLO),Y + BEQ >1 + JSR COUT + INY + BNE <0 +^1 RTS +; +DOSCOMM2 ADR >0 + ADR >1 + ADR >2 + ADR >3 +; +^0 BYT 13,4,'VERIFY',0 +^1 BYT 13,4,'BLOAD',0 +^2 BYT 13,4,'BSAVE',0 +^3 BYT 13,4,'DEL',0 +;----------- +; +; JSR BLOAD +; BYT 'FILENAME',0 +; +VERIFY LDX #0 + HEX 2C +BLOAD LDX #2 + HEX 2C +BSAVE LDX #4 + HEX 2C +DELETE LDX #6 +; + STX TMPLO + JSR GETINIT + LDA #1 +CHK4MOD = *-1 + JSR CHK4DISK + BCS >2 + LDX TMPLO + JSR DOSCOMM +; +^1 JSR GETBYTE + BEQ DOSCR + JSR COUT + JMP <1 +; +^2 JSR GETBYTE + BNE <2 + LDA #8 + RTS +; +; DOS stuff for TYPE file +; +VERIFYTY LDX #0 + HEX 2C +BLOADTY LDX #2 + HEX 2C +BSAVETY LDX #4 + HEX 2C +DELETETY LDX #6 + STX TMP0 + JSR DOSCOMM +; +; Print the filename with prefix +; +PRINFILE LDY #0 +^0 LDA FLPREFIX,Y + BEQ >1 + JSR COUT + INY + BNE <0 +; +^1 LDY #0 +^2 LDA FILENAME,Y + BEQ >3 + JSR COUT + INY + BNE <2 +; +; Print params: +; +^3 LDA TMP0 + BEQ >0 + CMP #6 + BEQ >0 +; + LDA #'A' + LDX FLSTART + LDY FLSTART+1 + JSR >1 + LDA TMP0 + CMP #2 + BEQ >0 +; + LDA #'L' + LDX FLLENGTH + LDY FLLENGTH+1 + JSR >1 +^0 JMP DOSCR +; +^1 PHA + LDA #',' + JSR COUT + PLA + JSR COUT + LDA #'$' + JSR COUT + JMP $F940 +; +DOSCR LDX #$4C + LDY #DOSERROR + LDA /DOSERROR + STX $A6D8 + STY $A6D9 + STA $A6DA + TSX + STX DOSERROR+1 + JSR CROUT + LDA #0 + RTS +; +; ERROR! fix stack pointer, +; close file, reset I/O hooks +; +DOSERROR LDX #00 + TXS + JSR $A316 + JSR $3EA + LDA $AA5C + RTS +; +; Error handling subroutine +; +ERROR STA >2+1 + JSR CLS1 + JSR MUSIC + JSR PRINT + .DA #PRLOC,140,#64,#0 + LDX #$FD +^1 INX + INX + INX + LDA ERRORADR,X + BEQ >3 +^2 CMP #00 + BNE <1 +; +^3 LDA ERRORADR+1,X + STA TMPLO + LDA ERRORADR+2,X + STA TMPHI + JMP (TMPLO) +; +ERRORADR .DA #4,ERROR4 + .DA #6,ERROR6 + .DA #9,ERROR9 + .DA #10,ERROR10 + .DA #99,ERROR99 + .DA #0,ERROR8 +; +NOPROT LDA #0 + HEX 2C +PROT LDA #2 + STA $B00D + RTS +; +ERROR4 JSR PRINT + BYT PRCNTR + .DA #PRSTR,TXTD + BYT ' IS WRITE PROTECTED',CR,0 + JMP ANYKEY +; +ERROR6 JSR PRINT + .DA #PRLOC,140,#48 + BYT PRCNTR + BYT 'CANNOT FIND',CR,CR + .DA #PRSTR,FILENAME,#CR,#CR + BYT 'ON THIS' + .DA #PRSTR,TXTSD,#CR,#0 + JMP ANYKEY +; +ERROR8 JSR PRINT + BYT PRCNTR + .DA #PRSTR,TXTD + BYT ' ERROR OCCURRED',CR,0 + JMP ANYKEY +; +ERROR9 JSR PRINT + BYT PRCNTR + .DA #PRSTR,TXTD + BYT ' IS FULL',CR,0 + JMP ANYKEY +; +ERROR10 JSR PRINT + BYT PRCNTR + BYT 'FILE IS LOCKED',CR,0 + JMP ANYKEY +; +ERROR99 JSR PRINT + BYT PRCNTR + .DA #PRLOC,140,#56 + BYT 'WARNING:',CR,CR,CR + BYT 'THE OLD CONTENTS OF',CR,CR + .DA #PRSTR,FILENAME,#CR,#CR + BYT 'WILL BE LOST WHEN',CR + BYT 'THIS FILE IS SAVED',CR + BYT PRVTAB,167 + .DA #PRSTR,TXTPRET + BYT ' TO SAVE',CR + BYT 'OR',CR,0 + JMP GETKEY +;----------- +; +; Read CATALOG routine +; +; JSR CATINIT to initialize +; +; JSR CATFILE to get a filename +; +; SEC=disk error +; +; CLC=no disk error: +; BNE=no more files +; BEQ=file found: +; A=lo byte\ +; Y=hi byte--address of text +; +CATINIT LDA DATADRIV + JSR CHK4DISK + BCS CATEND2 + LDA #0 + STA TMP2 + LDY #17 + JMP READSECT +; +CATEND LDX #$FF + CLC +CATEND2 RTS +; +CATFILE LDA TMPLO + CLC + ADC #$23 + STA TMPLO + BCC >0 + INC TMPHI +^0 DEC TMP2 + BPL >1 +; + LDY SECTBUFF+1 + LDA SECTBUFF+2 + BEQ CATEND + JSR READSECT + BCS CATEND2 + LDY #SECTBUFF-24 + LDA /SECTBUFF-24 + STY TMPLO + STA TMPHI + LDA #7 + STA TMP2 + BNE CATFILE +; +; Check filename +; +; Deleted? end of cat? +; +^1 LDY #0 + LDA (TMPLO),Y + BMI CATFILE + BEQ CATEND +; +; Binary file? +; + LDY #2 + LDA (TMPLO),Y + AND #$7F + CMP #4 + BNE CATFILE +; +; Correct length? +; + LDA TYPELEN + BEQ >2 + LDY #$21 + LDA (TMPLO),Y +; +; Accept 33 or 34 for hires pictures +; + CMP #33 + BNE *+4 + LDA #34 + CMP TYPELEN + BNE CATFILE +; +^2 LDY #2 + LDX #$FF +^3 INX + INY + LDA FLPREFIX,X + BEQ >4 + ORA #$80 + CMP (TMPLO),Y + BEQ <3 + BNE CATFILE +; +^4 STY CATFILE2+1 +; + LDY #$20 +^5 LDA (TMPLO),Y + EOR #$A0 + BNE >6 + STA (TMPLO),Y + DEY + BPL <5 +; +^6 LDA (TMPLO),Y + AND #$7F + STA (TMPLO),Y + DEY + BNE <6 +; + LDA TMPLO + LDY TMPHI + CLC +CATFILE2 ADC #8 + BCC >7 + INY +^7 CLC + LDX #0 + RTS +;----------- +IOB = $B7E8 +; +; Read a sector +; A=sector, Y=track +; X=command +; +READSECT LDX #1 + STA IOB+5 + LDA DATADRIV + STA IOB+2 +READSCT2 STY IOB+4 + LDA #0 + STA IOB+3 + LDY #SECTBUFF + LDA /SECTBUFF + STY IOB+8 + STA IOB+9 + STX IOB+12 + JSR $3E3 + JMP $3D9 +;----------- +; +; Position head over track 17 +; and check for a disk. +; +CHK4DISK STA $AA68 + STA IOB+2 +; + LDY $BD00 + CPY #$4C + CLC + BEQ >3 + CMP #1 + BEQ >0 +; +; If drive 2, then if first time, +; read data. If error, then recal +; and try again. +; + LDX IOB+1 + JSR $BE8E + LDA $4F8,Y + BPL >0 + LDA #18*2 + STA $4F8,Y + JSR >0 + BCC >3 + JSR $BE8E + LDA #$A0 + STA $4F8,Y +; +^0 LDY #17 + LDX #0 + JSR READSCT2 + LDX IOB+1 + LDA $C089,X + LDA #32 + STA TMP0 +; +^1 JSR $B944 + BCC >2 + DEC TMP0 + BNE <1 +^2 LDA $C088,X +^3 RTS +;----------- +; +; Wait for user to insert the +; Print Shop, Companion, +; or data disk. +; +WAITTBL1 BYT PSTEXT + BYT CTEXT +WAITTBL2 HBY PSTEXT + HBY CTEXT +WAITTBL3 BYT 1,3 +;--- +; +; Wait for PS disk +; +WAITPSD LDX #0 + TXA + HEX 2C +;--- +; +; Wait for Comp disk, side given +; in A: 0=either side +; 1=side A +; 2=side B +; +WAITCD LDX #1 +; +WAITDISK STA WAITSIDE + TAY + BEQ >0 + ORA #'@' + STA TXTSIDE+6 + LDY #' ' +^0 STY TXTSIDE +; + LDA WAITTBL1,X + STA WAITANY1+1 + LDA WAITTBL2,X + STA WAITANY1+2 + LDA WAITTBL3,X + STA >2+1 +; + JSR PROT + BCS >4 +; +^1 LDA #1 + JSR READVTOC + BCS >3 +^2 CMP #00 + BNE >3 +; +; Is a specific side requested? +; + LDA #00 +WAITSIDE = *-1 + BEQ WAITNOPE + CMP SECTBUFF+$FE + BNE >3 +WAITNOPE CLC + RTS +; +^3 JSR MUSIC +^4 JSR CLS3 + LDY #' ' + LDA DATADRIV + LSR + BEQ *+4 + LDY #'1' + STY >5+9 + JSR PRINT + BYT PRCNTR + .DA #PRLOC,140,#80 + BYT 'PLEASE PLACE' + .DA #PRSTR,TXTSIDE + BYT CR + BYT 'THE "' +WAITANY1 .DA #PRSTR,$FFFF + BYT '"' + .DA #PRSTR,TXTSD,#CR +^5 BYT 'IN DRIVE 1',CR,0 + JSR ANYKEY + PHA + JSR CLS3 + PLA + CMP #ESC + BNE <1 +^9 RTS +; +TXTSIDE BYT ' SIDE A OF',0 +;----------- +; +; Enter with A=drive parm +; +; Read in VTOC sector +; Return with A=ID byte for that +; disk. 1:Print Shop side 1 +; 3:Companion disk +; +; SEC:error +; +READVTOC JSR CHK4DISK + BCS >0 + LDX #1 + LDY #17 + LDA #0 + STA IOB+5 + JSR READSCT2 +^0 LDA SECTBUFF+$FF + RTS +;----------- +; +; Display message if printer +; SETUP was never run. +; +CHKPRINT STA >1+0 + LDA $95F7 + BEQ >0 + CLC + RTS +; +^0 JSR MUSIC + JSR PRINT + BYT PRCNTR,PRCSPACE,1 + BYT '"SETUP" WAS NEVER RUN ' +^1 BYT '- ' + .DA #PRSTR,TXTPAK,#CR + BRK + JSR GETKEY + SEC + RTS +;----------- +; +; Check to see if the SUPP file +; is on the disk. +; +SAVESUPP LDA MENULAST + EOR #CALENDAR + BEQ >9 + LDA DATADRIV + STA CHK4MOD + JSR VERIFY + BYT '[CD]',0 + BEQ >9 + JSR SWAP6300 + JSR BSAVE + BYT '[CD],A$6300,L$800',0 + PHA + JSR SWAP6300 + PLA +^9 PHA + LDA #1 + STA CHK4MOD + PLA + RTS +; +SWAP6300 LDX #8 + LDY #0 + LDA #$63 + STY TMP0 + STA TMP1 + LDA #$10 + STY TMP2 + STA TMP3 +^0 LDA (TMP0),Y + PHA + LDA (TMP2),Y + STA (TMP0),Y + PLA + STA (TMP2),Y + INY + BNE <0 + INC TMP1 + INC TMP3 + DEX + BNE <0 + RTS +;----------- +; +; +; + ICL "S:SUBPAK3" diff --git a/PSC Source Disk 1 - System (v10)/S_SUBPAK3.txt b/PSC Source Disk 1 - System (v10)/S_SUBPAK3.txt new file mode 100644 index 0000000..7fb0202 --- /dev/null +++ b/PSC Source Disk 1 - System (v10)/S_SUBPAK3.txt @@ -0,0 +1,898 @@ +; +; S:SUBPAK3 +; +; PRINT routine +; +PRDONE = 0 +PRNORM = 1 +PRINVR = 2 +PRLEFT = 3 +PRRITE = 4 +PRCNTR = 5 +PRLOC = 6 +PRSMAL = 7 +PRBIG = 8 +PRSTR = 9 +PRSPC = 10 +PRHTAB = 11 +PRVTAB = 12 +CR = 13 +NOCR = 14 +RTOSBLAK = 15 +RTOSWITE = 16 +RTOSANY = 17 +PRCSPACE = 18 +PRPIC = 19 +PRRTAB = 20 +PRRTAB2 = 21 +PRKERN = 22 +RTOSINV = 23 +GOOBER = 24 +; +PRINT JSR GETINIT + JSR PRZZNORM + JSR PRZZLEFT + JSR PRZZSMAL + LDA #8 + STA PRNTYINC + LDA #2 + STA SPARM+7 +; +PRINT1 LDX #0 +PRINT2 JSR GETBYTE + CMP #' ' + BLT PRINT3 + STA PRINBUFF,X + INX + BNE PRINT2 +; +PRINT3 ASL + TAY + LDA PRINT5,Y + STA PRINT4+1 + LDA PRINT5+1,Y + STA PRINT4+2 + CLC +PRINT4 JSR $FFFF + BCC PRINT2 + BCS PRINT1 +; +; Addresses of print options +; +PRINT5 ADR PRZZDONE + ADR PRZZNORM + ADR PRZZINVR + ADR PRZZLEFT + ADR PRZZRITE + ADR PRZZCNTR + ADR PRZZLOC + ADR PRZZSMAL + ADR PRZZBIG + ADR PRZZSTR + ADR PRZZSPC + ADR PRZZHTAB + ADR PRZZVTAB + ADR PRZZCR + ADR PRZZNOCR + ADR PRZZBLAK + ADR PRZZWITE + ADR PRZZANY + ADR PRZZCSPC + ADR PICDRAW2 + ADR PRZZRTAB + ADR PRZZRTB2 + ADR PRZZKERN + ADR PRZZRINV + ADR GOOBER1 +; +PRZZDONE PLA + PLA + RTS +; +PRZZNORM LDA #2 + HEX 2C +PRZZINVR LDA #3 + STA SPARM+0 + RTS +; +PRZZLEFT LDA #0 + HEX 2C +PRZZRITE LDA #1 + HEX 2C +PRZZCNTR LDA #2 + STA SPARM+1 + RTS +; +PRZZHTAB JSR GETBYTE + STA SPARM+2 + STA PRNTXLO + JSR GETBYTE + STA SPARM+3 + STA PRNTXHI + RTS +; +PRZZLOC JSR PRZZHTAB +PRZZVTAB JSR GETBYTE + STA SPARM+4 + RTS +; +PRZZCSPC JSR GETBYTE + STA SPARM+7 + RTS +; +PRZZSMAL LDA #0 + HEX 2C +PRZZBIG LDA #1 + STA SPARM+8 + RTS +; +PRZZKERN JSR GETBYTE + STA SPARM+11 + RTS +; +PRZZSTR JSR GETBYTE + STA >0+1 + JSR GETBYTE + STA >0+2 + LDY #0 +^0 LDA $FFFF,Y + BEQ >2 + CMP #$20 + BLT >1 + STA PRINBUFF,X + INX +^1 INY + BNE <0 +; +PRZZSPC JSR GETBYTE + STA PRNTYINC +^2 CLC + RTS +; +PRZZRTAB JSR PRZZNOCR + JSR GETBYTE + CLC + ADC PRNTXLO + STA SPARM+2 + LDA PRNTXHI + ADC #0 + STA SPARM+3 + SEC + RTS +; +PRZZRTB2 JSR PRZZRTAB + STA PRNTXHI + LDA SPARM+2 + STA PRNTXLO + RTS +; +PRZZCR JSR PRZZNOCR + LDY #00 +PRNTXLO = *-1 + LDA #00 +PRNTXHI = *-1 + STY SPARM+2 + STA SPARM+3 + LDA SPARM+4 + CLC + ADC #00 +PRNTYINC = *-1 + STA SPARM+4 + SEC + RTS +; +PRZZNOCR LDA #0 + STA PRINBUFF,X + LDY #PRINBUFF + LDA /PRINBUFF + STY SPARM+9 + STA SPARM+10 + JSR STROUT + SEC + RTS +; +PRZZANY JSR GETBYTE + HEX 2C +PRZZBLAK LDA #$00 + HEX 2C +PRZZWITE LDA #$7F + HEX 2C +PRZZRINV LDA #$FF + ASL + PHP + LSR + TAY + PLP + LDA #$A0 + BCC *+3 + ASL + ORA #$09 +; + PHA + LDX #0 +^1 JSR GETBYTE + CMP #$FF + BEQ >2 + STA RTOSPARM,X +^2 INX + CPX #4 + BLT <1 + PLA + JSR RTOS + SEC + RTS +;----------- +; +; JSR PRINTGRP +; BYT +; BYT <# items> +; ADR +; +PRINTGRP JSR GETINIT + JSR GETWORD + STX PRINTGM0 + STA TMP2 + JSR GETWORD + STX TMP0 + STA TMP1 + JSR SAVEGOT +; +^0 JSR PRINTGR2 + LDY #0 +^1 LDA (TMP0),Y + INC TMP0 + BNE *+4 + INC TMP1 + TAX + BNE <1 + DEC TMP2 + BNE <0 + JMP RESTGOT +; +; Print string pointed to +; by TMP0.TMP1 +; +PRINTGR2 LDX TMP0 + LDA TMP1 + STX PRINTGM1+1 + STA PRINTGM1+2 + JSR PRINT +PRINTGM0 BYT PRCNTR +PRINTGM1 .DA #PRSTR,$FFFF,#CR,#0 + RTS +;----------- +GOOBER0 ADR GOOBER2 +GOOBER1 LDA READPROT + JMP (GOOBER0) +;----------- +; +; JSR INPUT +; ADR +; BYT +; .DA +; BYT +; +INPUT JSR GETINIT + JSR GETWORD + STX INPUTP3 + STA INPUTP3+1 + JSR GETBYTE + STA STRGET+5 + JSR GETWORD + STX INPUTP1 + STA INPUTP1+1 + JSR GETBYTE + STA INPUTP2 + LDX #INPUTP + LDY /INPUTP + STX STRGET+3 + STY STRGET+4 + JMP STRGET +; +INPUTP HEX 0200 +INPUTP1 ADR 0 +INPUTP2 ADR 0 + HEX 000200 +INPUTP3 ADR 0 + HEX 00 +;----------- +READPROT HEX 00 +;----------- +; +; Clear screen routines +; +CLSCREEN JSR PRINT + BYT RTOSBLAK,0,0,40,192,0 + BIT $C057 + BIT $C052 + BIT $C050 + RTS +; +CLS1 JSR PRINT + BYT RTOSBLAK,1,17,38,165,0 + RTS +; +CLS2 JSR PRINT + BYT RTOSBLAK,1,28,38,154,0 + RTS +;----------- +GOOBER2 INC READPROT + JMP GOOBER3 +;----------- +; +CLS3 JSR PRINT + BYT RTOSBLAK,1,31,38,151,0 + RTS +; +; GET routines +; +GETINIT TSX + LDA $103,X + STA GOTBYTE+1 + LDA $104,X + STA GOTBYTE+2 + LDA #>0-1 + STA $103,X + LDA />0-1 + STA $104,X + RTS +; +^0 PHA + JSR GETBYTE + PLA + JMP (GOTBYTE+1) +; +; Get a word +; X=lo, A=hi +; +GETWORD JSR GETBYTE + TAX +; +; Get a byte +; +GETBYTE INC GOTBYTE+1 + BNE GOTBYTE + INC GOTBYTE+2 +GOTBYTE LDA $FFFF + RTS +; +; Save GOTBYTE info +; +SAVEGOT LDY GOTBYTE+1 + LDA GOTBYTE+2 + STY RESTGOT+1 + STA RESTGOT+3 + RTS +; +; Restore GOTBYTE info +; +RESTGOT LDY #00 + LDA #00 + STY GOTBYTE+1 + STA GOTBYTE+2 + RTS +;----------- +; +; JSR SELECT +; BYT ,,, +; ADR +; +SELECT STY SELCUR + LDA SCALING + STA SCALSAVE + LSR SCALING + JSR GETINIT +; + LDX #0 + STX SELWERDP +^0 JSR GETBYTE + STA SELECTXS,X + INX + CPX #6 + BLT <0 +; + ASL SELECTXS + LDY #'V'-$40 + BCS *+4 + LDY #$FF + STY SELVRMOD + LSR SELECTXS +; +; Set input device to default +; + LDA SELCUR + JSR SELSET +; +SELLOOP JSR SELECTIV + JSR SAVEGOT + JSR SELSUB + JSR RESTGOT +; +^0 LDY #0 + JSR DEVICERD + BCS >1 +; +; If button was down at last +; reading, then ignore. +; + ASL + BMI >1 +; +; If button is down now, then +; selection made +; + BCS SELDONE + TYA + LSR + LSR + CMP #00 +SELDEVY = *-1 + STA SELDEVY + BEQ >1 + CMP SELECTMX + BLT SELNEW +; +; Too big, so set device to +; maximum. +; + LDX SELECTMX + DEX + BPL >9 +; +^1 JSR POLEKEY + BPL <0 +; + LDX SELCUR + CMP #8 + BEQ SELUP + CMP #$0B + BEQ SELUP + CMP #$15 + BEQ SELDOWN + CMP #$0A + BEQ SELDOWN + CMP #ESC + BEQ >2 + CMP #CR + BEQ SELDONE + CMP #00 +SELVRMOD = *-1 + BEQ SELVERS + JSR SELDOWRD + BNE <0 +; +SELVERS ROR SELWERDP +; +SELDONE CLC +^2 PHP + JSR SELECTIV + PLP + LDA #00 +SCALSAVE = *-1 + STA SCALING + LDA SELWERDP + LDY SELCUR + RTS +;--- +; +; Since keyboard was used, +; update device also. +; +^9 TXA + JSR SELSET +SELNEW PHA + JSR SELECTIV + PLA + STA SELCUR + BPL SELLOOP +; +SELUP DEX + BPL <9 + LDX SELECTMX + DEX + BPL <9 +; +SELDOWN INX + CPX SELECTMX + BLT <9 + LDX #0 + BEQ <9 +; +SELECTIV LDA SELCUR + ASL + ASL + ASL + ADC SELECTYS + STA RTOSPARM+1 + LDA #9 + STA RTOSPARM+3 + LDY SELECTXS + LDA SELECTXW + STY RTOSPARM + STA RTOSPARM+2 + LDA #$49 + LDY #$7F + JMP RTOS +; +SELDOWRD LDY SELWERDP + CMP SELWEIRD,Y + BEQ >0 + LDY #$FF + HEX 24 +^0 INY + STY SELWERDP + LDA #1 + RTS +; +; Set input device +; +SELSET PHA + STA SELDEVY + ASL + ASL + ADC #2 + TAY + LDX #0 + JSR DEVICEST + PLA + RTS +; +SELWEIRD BYT 'STEVEN',0 +SELWERDP BRK +;----------- +GOOBER30 ADR GOOBER4 +GOOBER3 AND #7 + BEQ >0 + CLC + RTS + HEX 6D +^0 JMP (GOOBER30) +;----------- +SELSUB LDA SELCUR + ASL + TAX + JMP (SELADR) +; +SELCUR BRK +; +SELECTXS BRK +SELECTXW BRK +SELECTYS BRK +SELECTMX BRK +SELADR ADR 0 +;----------- + HEX 20 +GOOBER4 JSR CHEKPROT + CLC + RTS +;----------- +; +; JMP to routine given in Y +; +; JSR JMPVECTS +; ADR ROUTINE0 +; ADR ROUTINE1 +; +JMPVECTS JSR GETINIT +^0 JSR GETWORD + STX TMP0 + STA TMP1 + DEY + BPL <0 + PLA + PLA + JMP (TMP0) +;----------- +; +; JSR LINES +; BYT 'V' (or 'H') for vertical/horiz +; BYT ,,, +; BYT 1 (terminate) +; +; TMP0=length +; +LINES LDA #0 + STA LINEXOFF + JSR GETINIT + JSR GETBYTE + STA LINETYPE + BPL >0 + JSR GETBYTE + STA LINEXOFF +; +^0 JSR GETBYTE + CMP #1 + BEQ LINERTS + STA LINECOLR + JSR GETBYTE + TAX + JSR GETBYTE + STA LINEY + JSR GETBYTE + STA TMP0 + LDA #00 +LINETYPE = *-1 + AND #$7F + CMP #'V' + BEQ LINEV +; +LINEH JSR LINEDOT + INX + DEC TMP0 + BNE LINEH + JMP <0 +; +LINEV JSR LINEDOT + INC LINEY + DEC TMP0 + BNE LINEV + JMP <0 +; +LINEDOT LDY #00 +LINEY = *-1 + LDA YBASELO,Y + CLC + ADC #00 +LINEXOFF = *-1 + STA HIRES + LDA YBASEHI,Y + STA HIRES+1 + STY TMP2 + LDY XBYTEOFF,X + TYA + EOR TMP2 + LSR + LDA #00 +LINECOLR = *-1 + BCC >0 + LSR +^0 AND XBITS,X + STA TMP2 + LDA XBITS,X + EOR #$FF + AND (HIRES),Y + ORA TMP2 + STA (HIRES),Y +LINERTS RTS +;----------- +; +; JSR PARSE +; .DA #'A',JMPA +; .DA #'B',JMPB +; BRK +; +; If no match, then routine simply +; continues to execute code after +; the BRK instruction. +; +; all registers preserved +; +PARSE STA TMP0 + JSR SAVEREGS + JSR GETINIT +^0 JSR GETBYTE + BEQ >1 + EOR TMP0 + PHA + JSR GETWORD + STX TMP1 + STA TMP2 + PLA + BNE <0 + PLA + PLA + JSR RESTREGS + JMP (TMP1) +^1 JMP RESTREGS +;----------- +; +; Draw arrow at X,Y +; A=0 for IJMK, 1 for WASZ +; +SHOWAROW STX ARROWX + STY ARROWY + ASL + ASL + STA AROWTYPE +; +; Compute bit location by +; multiplying X by 7. +; + TXA + ASL + ASL + ASL + SEC + SBC ARROWX + STA ARROWX2 +; + JSR PICDRAW +ARROWX BYT 26 +ARROWY BYT 1 + BYT 6,37 + HEX 82400184600384300684180C840C1884 + HEX 06308403608340014001826001400382 + HEX 40014001824001400182460140318247 + HEX 01407181407D01405F01608403308406 + HEX 18840C0C84180684300C841818840C30 + HEX 8406608403407D01405F018147014071 + HEX 82460140318240014001824001400182 + HEX 60014003824001400183036084063084 + HEX 0C1884180C84300684600384400182 +; + LDA #0 + STA TMP5 +^1 LDY #00 +AROWTYPE = *-1 + INC AROWTYPE + LDA SHOWARTB,Y + STA >3+0 + LDY TMP5 + LDA ARROWOFX,Y + CLC + ADC #00 +ARROWX2 = *-1 + STA >2+1 + LDA ARROWOFY,Y + ADC ARROWY + STA >2+3 + JSR PRINT + BYT PRCNTR +^2 .DA #PRLOC,00,#00 +^3 BYT ' ',NOCR,0 +; + INC TMP5 + LDA TMP5 + CMP #4 + BLT <1 + RTS +; +SHOWARTB BYT 'IJKMWASZ' +; +ARROWOFX BYT 21,12,30,21 +ARROWOFY BYT 7,15,15,23 +;----------- +; +; Convert number to text +; given in A, return +; Y=tens digit, A=ones digit +; +MAKENUMB LDY #$FF + SEC +^0 INY + SBC #10 + BCS <0 + ADC #10 + RTS +;----------- +; +; Print a number +; +; Given X,Y and A=number +; +NUMBER STX DIGITX + STY DIGITY + JSR MAKENUMB + PHA + JSR DIGITPRN + PLA + INC DIGITX +; + TAY +DIGITPRN LDA SYSFONT+$86,Y + STA TMPLO + LDA SYSFONT+$C1,Y + STA TMPHI + LDA #7 + STA TMP2 + LDX #00 +DIGITY = *-1 +^0 LDA YBASELO,X + STA HIRES + LDA YBASEHI,X + STA HIRES+1 + LDY #0 + LDA (TMPLO),Y + INC TMPLO + BNE *+4 + INC TMPHI + LSR + TAY + LDA FLIPPER,Y + LDY #00 +DIGITX = *-1 + STA (HIRES),Y + INX + DEC TMP2 + BNE <0 + RTS +;----------- +; +; Ram TO Screen routine +; A is opcode +; Y is operand +; +RTOSPARM EPZ $3A +; +RTX EPZ RTOSPARM +RTY EPZ RTOSPARM+1 +RTXL EPZ RTOSPARM+2 +RTYL EPZ RTOSPARM+3 +RTADRL EPZ RTOSPARM+4 +RTADRH EPZ RTOSPARM+5 +; +RTSCRL EPZ RTOSPARM+6 +RTSCRH EPZ RTOSPARM+7 +; +RTOS STA RTOSMD0 + STY RTOSMD0+1 +; + LDX RTY +^0 LDA YBASEHI,X + STA RTSCRH + LDA YBASELO,X + CLC + ADC RTX + STA RTSCRL + LDY RTXL + DEY +^1 LDA (RTSCRL),Y +RTOSMD0 EOR #$7F + STA (RTSCRL),Y + DEY + BPL <1 + LDA RTADRL + CLC + ADC RTXL + STA RTADRL + BCC >2 + INC RTADRH +^2 INX + DEC RTYL + BNE <0 + RTS +;----------- +; +; PRESS SPACE BAR +; FOR MORE +; +SPACEBAR STA >0+0 + JSR PICDRAW +^0 BYT 26,181,14,11 + HEX 787979793C707971717D70637303181B + HEX 1B0C0618181B1B0C3036360678797978 + HEX 3C7079791B3C70737703185819406181 + HEX 1B181B0C3036360318187B793C701918 + HEX 737D703336069178797C701C4F4F0F86 + HEX 184C4D715F59590186784C7D305B594F + HEX 0786184C6D3058594D018618784C3118 + HEX 4F590F83 + RTS +;----------- +; +; TO GO TO MAIN MENU +; +ESCMAIN JSR PRINT + BYT RTOSWITE,0,183,40,9 + BRK +; + JSR MUSIC +; + JSR PRINT + .DA #PRLOC,140,#174 + BYT PRCNTR + BYT ' TO GO TO MAIN MENU',CR + BRK + JSR GETKEY + CMP #ESC + BNE >0 + JMP MAINMENU +; +^0 JSR PRINT + BYT RTOSBLAK,1,174,38,7,0 + JMP ESCBACK +;----------- +; +; +; + ICL "S:SUBPAK4" diff --git a/PSC Source Disk 1 - System (v10)/S_SUBPAK4.txt b/PSC Source Disk 1 - System (v10)/S_SUBPAK4.txt new file mode 100644 index 0000000..b49d719 --- /dev/null +++ b/PSC Source Disk 1 - System (v10)/S_SUBPAK4.txt @@ -0,0 +1,519 @@ +; +; S:SUBPAK4 +; +; Miscellaneous routines +; +INY1 = 64 +; +INIT? LDA #00 +INITFLAG = *-1 + ASL + BCC >0 +INIT1 JSR CLS1 + JSR PRINT + .DA #PRLOC,140,#INY1 + BYT PRCNTR + BYT 'BEFORE SAVING YOUR ' + .DA #PRSTR,TYPETEXT + BYT ',',CR + BYT 'DO YOU NEED TO ' + .DA #PRSTR,TXTINIT,#CR + BYT 'A NEW ' + .DA #PRSTR,TXTDD + BYT '?',CR + BYT CR,CR + BYT 'NO',CR,'YES',CR + BRK + LDY #0 + STY INITFLAG + JSR SELECT + BYT 17,6,INY1+7+4*8,2 + ADR RTS + BCS >0 + CPY #1 + BEQ INIT2 +^0 RTS +;--- +; +; Go ahead with the initializing +; +INIT2 JSR CLS1 + JSR PRINT + .DA #PRLOC,140,#40,#0 +; + LDA DATADRIV + CMP #2 + BEQ >2 +; +; For 1 drive systems +; + JSR PRINT + BYT PRCNTR + BYT 'REMOVE ' + .DA #PRSTR,CTEXT + .DA #PRSTR,TXTSD + BYT ' AND',CR + BRK + JMP >3 +; +; For 2 drive systems +; +^2 JSR PRINT + BYT CR + BRK +; +^3 JSR PRINT + BYT PRCNTR + BYT 'INSERT BLANK' + .DA #PRSTR,TXTSD + BYT ' ' + .DA #PRSTR,TXTINDRV,#CR + BYT CR + .DA #PRSTR,TXTPRET + BYT ' TO ' + .DA #PRSTR,TXTINIT + .DA #PRSTR,TXTSD + BYT '.',CR + BYT CR,CR,CR + BYT '**** W A R N I N G ****',CR + BYT CR + BYT 'ALL DATA ON THIS' + .DA #PRSTR,TXTSD,#CR + BYT 'WILL BE ERASED!',CR + BRK +^0 JSR GETKEY + CMP #CR + BEQ INIT3 + CMP #ESC + BNE <0 +^1 JMP INIT1 +;--- +INIT3 JSR CLS1 + JSR REMOMAST + BCS >3 + JSR INITDI + JSR PRINT + BYT PRCNTR + BYT 'IN PROGRESS',CR,0 +; + JSR NOPROT + LDY #0 +^0 LDA INITTEXT,Y + BEQ >1 + JSR COUT + INY + BNE <0 +; +^1 JSR DOSCR + BNE >2 + JSR SAVESUPP + BNE >2 +; +; Successful initialization +; + JSR CLS1 + JSR INITDI + JSR PRINT + BYT PRCNTR + BYT 'COMPLETE',CR,0 + JSR ANYKEY + CLC + RTS +; +^2 JSR ERROR +^3 JMP INIT2 +;--- +INITTEXT BYT 13,4,'SEEE',0 +;--- +; +; "DISK INITIALIZATION" message +; +INITDI JSR PRINT + BYT PRCNTR + .DA #PRLOC,140,#64 + .DA #PRSTR,TXTD + BYT ' INITIALIZATION',CR + BYT CR,0 + RTS +;----------- +; +; Check for master disk in data drive +; If it is there, print appropriate +; message. +; +REMOMAST LDA DATADRIV + JSR READVTOC + BCC >1 +^0 CLC + RTS +; +; If data disk (0) or non-master (>4) +; then just exit with CLC. +; +^1 TAX + BEQ <0 + CPX #5 + BGE <0 +; +; Display message +; + LDY REMOMSTL-1,X + LDA REMOMSTH-1,X + STY >2+1 + STA >2+2 +; + JSR CLS1 + JSR MUSIC + JSR PRINT + BYT PRCNTR + .DA #PRLOC,140,#64 + BYT 'THE "' +^2 .DA #PRSTR,$FFFF + BYT '"' + .DA #PRSTR,TXTSD + BYT ' CANNOT',CR + BYT 'BE USED AS A ' + .DA #PRSTR,TXTDD + BYT CR,0 + JSR ANYKEY + JSR CLS1 + SEC + RTS +; +REMOMSTL BYT PSTEXT + BYT PSTEXT + BYT CTEXT + BYT CTEXT +REMOMSTH HBY PSTEXT + HBY PSTEXT + HBY CTEXT + HBY CTEXT +;----------- +; +; Make sure that routine to check +; for copy protection is still there. +; +PROTBYTE = $8DD6 +; +PCHEKSUM LDA /PROTBYTE + STA TMP1 + LDY #PROTBYTE + STY TMP0 +; + LDX #0 + LDA #$55 + STA (TMP0,X) +; + LDA #$3C + LDX #$E0 + LDY #$0F + JSR >0 +; + LDA #$36 + LDX #$19 + LDY #$3F + JSR >0 +; + LDA #$36 + LDX #$B5 + LDY #$35 +; +^0 STX TMP2 + ASL + LDX #0 + SEC + ROR + STA TMP3 +^1 TYA + CLC + EOR (TMP2),Y + ADC (TMP0,X) + DEY + STA (TMP0,X) + BPL <1 + ASL TMP3 + ASL TMP2 + RTS +;----------- +; +; Test paper position +; +TESTPAPR LDA #CR + JSR PTCOUT + LDX #$7F + LDY #$03 + JSR PTSENDGC + LDX #$7F + LDY #$03 +^0 TXA + AND #$1F + BEQ >1 + LDA #0 + HEX 2C +^1 LDA #1 + JSR PTGCOUT + DEX + BNE <0 + DEY + BPL <0 + LDX #1 + LDY #1 + JMP PTCRLF +;----------- +; +; Get a graphic by number +; from the original Print Shop +; +; Enter with A=number 00-60 +; X,Y= pointer to dest buffer +; +; return with A=new number and +; dest buffer containing graphic +; if SEC then ESC pressed. +; +IBUFFER = $6000 +; +GETPDISK STX GPBUFLO + STY GPBUFHI + PHA + JSR PRINT + .DA #PRLOC,50,#132 + BYT 'ENTER NO. OF GRAPHIC>',NOCR,0 +; + LDX #60 + STX TMP0 + LDX #220 + LDY #132 + PLA + JSR GETANUMB + BCS GETPDONE + STA GPNUMB + TXA +; +; Figure out the filename, and load +; the graphic +; + JSR MAKENUMB + STA GPONES + STY GPTENS + INY + TYA + ORA #'0' + STA >0+1 +; + SEC + JSR WAITPSD + BCS GETPDONE + JSR BLOAD +^0 BYT 'IX',0 + BNE >9 +; +; Move the graphic to the buffer +; + LDX #00 +GPTENS = *-1 + JSR UNPACK + LDX #00 +GPONES = *-1 + LDY #00 +GPBUFLO = *-1 + LDA #00 +GPBUFHI = *-1 + STX IBUFFER+3 + STY IBUFFER+28 + STA IBUFFER+32 + JSR IBUFFER + CLC + BCC GETPDONE +; +; Display error message and quit +; +^9 JSR ERROR + SEC +;--- +; +; Return to calling program +; +GETPDONE PHP + JSR PRINT + BYT RTOSBLAK,1,132,38,7,0 + LDA #00 +GPNUMB = *-1 + PLP + RTS +;----------- +; +; Graphics from Print Shop disk +; Unpack routine. +; +UPTBL EPZ TMP0 +UPGBAS EPZ TMP2 +UPRCODE EPZ TMP4 +UPREPT EPZ TMP5 +; +; Lengths of the 6 "I" files +; +UPFLENL HEX 77563E1F0279 +UPFLENH HEX 0F0F10111114 +; +; Icon unpack routine +; +UNPACK LDY UPFLENL,X + LDA UPFLENH,X + STY UPTBL + CLC + ADC /IBUFFER + STA UPTBL+1 + LDY #IBUFFER+$17FF + LDA /IBUFFER+$17FF + STY UPGBAS + STA UPGBAS+1 + JSR UPTBLGET + STA UPRCODE +; +^0 JSR UPTBLGET + CMP UPRCODE + BNE >1 +; + JSR UPTBLGET + TAX + JSR UPTBLGET + HEX 2C +; +^1 LDX #1 + STX UPREPT + LDY #0 +^2 STA (UPGBAS),Y + LDX UPGBAS + BNE *+4 + DEC UPGBAS+1 + DEC UPGBAS + LDX UPGBAS+1 + CPX /IBUFFER + BLT >3 + DEC UPREPT + BNE <2 + BEQ <0 +; +; Get a byte from the packed data. +; +UPTBLGET LDY UPTBL + BNE *+4 + DEC UPTBL+1 + DEC UPTBL + LDY #0 + LDA (UPTBL),Y +^3 RTS +;----------- +; +; Input a number given: +; +; X,Y : position of cursor +; A : default number 0=no default +; TMP0: maximum value for A +; +; Returns A:new number CLC +; X:A-1 +; +; SEC: was pressed +; +GETBUFF = PRINBUFF+10 +; +GETANUMB STX GANX + STY GANY + LDX TMP0 + STX GANMAX +; +; Fill GETBUFF with the text of the +; default number given in A +; + TAX + BEQ >1 +; + LDX #0 + CMP #10 + BLT >0 + JSR MAKENUMB + PHA + TYA + ORA #'0' + STA GETBUFF,X + INX + PLA +^0 ORA #'0' + STA GETBUFF,X + INX +^1 LDA #0 + STA GETBUFF,X +;--- +; +; Get the number from keyboard +; +GANAGAIN JSR INPUT + ADR GETBUFF + BYT 2 +GANX .DA 220 +GANY BYT 132 +; + BCS GANDONE +;--- +; +; Now compute number typed in A +; + LDY #0 + TYA +^0 LDX GETBUFF,Y + BEQ >1 +; + CPX #'0' + BLT GANERROR + CPX #'9'+1 + BGE GANERROR + STA TMP0 + ASL + ASL + ADC TMP0 + ASL + STX TMP0 + ADC TMP0 + SEC + SBC #'0' + INY + BNE <0 +; +; Is the number within limits? +; ie: 1-GANMAX +; +^1 TAX + DEX + CPX #00 +GANMAX = *-1 + BCC GANDONE +; +; Error +; +GANERROR JSR BOOP + JMP GANAGAIN +; +GANDONE RTS +;----------- +; +; Change input device +; +DEVICECH JSR PRINT + BYT RTOSBLAK,0,181,40,11 + BYT PRCNTR + .DA #PRLOC,140,#185 + BYT PRCSPACE,1 + BYT 'PLUG IN INPUT DEVICE, ' + .DA #PRSTR,TXTPAK,#CR + BRK +^0 JSR POLEKEY + BPL <0 + JSR DEVICEOF + JMP DEVICENW +;----------- +; +; +; + ICL "S:SUBPAK5" diff --git a/PSC Source Disk 1 - System (v10)/S_SUBPAK5.txt b/PSC Source Disk 1 - System (v10)/S_SUBPAK5.txt new file mode 100644 index 0000000..8c86827 --- /dev/null +++ b/PSC Source Disk 1 - System (v10)/S_SUBPAK5.txt @@ -0,0 +1,842 @@ +; +; S:SUBPAK5 +; +; Input device support routines +; ----------------------------- +; The Print Shop Companion Disk +; +; +; DEVICENW: Find current input device +; and intialize it, and set +; up the following vectors: +; +; DEVICEON: Turn on current input +; device and return flashing +; cursor delay in A,Y. +; +; DEVICEOF: Turn off current input +; device. +; +; DEVICERD: Read current input device. +; SEC=error, ignore values +; CLC=good values in X,Y +; A=button status +; bit 7:button is down +; bit 6:button was down at +; last reading +; +; DEVICEST: Set X,Y coordinates, given +; X,Y. This is used for +; clamping. +; +; SCALING: hi bit 0:graphic 88x52 +; hi bit 1:full screen 192x140 +; +; Read both paddles +; +READPDL JSR FASTPDL + BCS PDLERROR +; +; First compute X-coor (paddle 0) +; +^1 LDX #3 +^2 LDA P0D0,X + BNE >3 + DEX + BPL <2 + BMI PDLERROR +; +^3 CMP #$40 + BLT >4 + LDA #$40 +^4 SEC + SBC #1 + ASL + ASL + CLC + ADC PDLADD,X + TAX +; +; Last, compute Y-coor (paddle 1) +; + LDY #3 +^0 LDA P1D0,Y + BNE >1 + DEY + BPL <0 + BMI PDLERROR +; +^1 CMP #$40 + BLT >2 + LDA #$40 +^2 SEC + SBC #1 + ASL + ASL + CLC + ADC PDLADD,Y + TAY + CLC + RTS +; +; Return error code +; +PDLERROR SEC + RTS +; +PDLADD BYT 0,1,2,3 +; +P0D0 BRK +P0D1 BRK +P0D2 BRK +P0D3 BRK +P1D0 BRK +P1D1 BRK +P1D2 BRK +P1D3 BRK +; +; Check for paddles +; +CHECKPDL LDA $C070 + LDX #0 + LDY #16 +^0 LDA $C064 + ORA $C065 + BPL >1 + DEX + BNE <0 + DEY + BNE <0 +; +; If no paddle, then return to main +; + PLA + PLA +^1 RTS +;--------------------------- +; +; Select input device to use +; +DEVICENW LDA $FBC0 + BEQ >0 +; +; If //c, check for paddles first +; + JSR FINDMOUS +^0 JSR FINDKOLA + JSR FINDJOYS + JSR FINDMOUS + JSR NODEVICE +; +; NODEVICE always installs +; +; Install vectors +; +; JSR INSTALL +; +; JMP DEVICEON +; JMP DEVICEOF +; JMP DEVICERD +; JMP DEVICEST +; +; Installs the 4 jump vectors +; following the JSR INSTALL. +; +INSTALL PLA + STA DTMPLO + PLA + STA DTMPHI + LDY #12 +^0 LDA (DTMPLO),Y + STA DEVMODS-1,Y + DEY + BNE <0 + PLA + PLA +;--- +; +; Since the routine that scans +; for a mouse turns on the $C800 +; rom behind either $C3 or another +; card, turn it off!!! +; + BIT $CFFF + JMP DEVICEON +;----------------- +; +; Search for mouse +; +FINDMOUS LDY #$00 + LDA #$C7 + STY DTMPLO +^0 STA DTMPHI + LDY #$0C + LDA (DTMPLO),Y + CMP #$20 + BNE >1 + LDY #$FB + LDA (DTMPLO),Y + CMP #$D6 + BNE >1 + LDA DTMPHI + STA MOUSECN + AND #$0F + STA MOUSEN + ASL + ASL + ASL + ASL + STA MOUSEN0 + JSR MSINIT +; + JSR INSTALL + JMP MSTURNON + JMP MSTURNOF + JMP MSREAD + JMP MSSET +; +^1 DEC DTMPHI + LDA DTMPHI + CMP #$C1 + BGE <0 + RTS +; +; Initialize the mouse +; +MSINIT LDY #$19 +MSINIT2 JSR DOMOUSE +; +; On the ][ and ][+, this routine +; will clear hires page 1, so only +; execute it once. +; + LDA #$2C + STA MSINIT2 +; +; fall into... +; +; Turn on the mouse +; +MSTURNON LDY #$12 + LDA #1 + JSR DOMOUSE + LDY #100 + LDA /100 + LDX $FBC0 + BNE SETFLASH +; +; The //c mouse routines are faster! +; + LDY #600 + LDA /600 +; +SETFLASH STY FLSHINIT+1 + STA >1+1 + RTS +;----------- +FLSHINIT LDY #00 +^1 LDA #00 + STY FLASHLO + STA FLASHHI + RTS +; +; Turn off the mouse +; +MSTURNOF SEI + LDY #$12 + LDA #0 +; +; Do mouse routine given in Y +; with parameter in A +; +DOMOUSE PHA + LDA $C400,Y +MOUSECN = *-1 + LDX MOUSECN + LDY #00 +MOUSEN0 = *-1 + STA >0+1 + STX >0+2 + PLA +^0 JMP $C400 +; +; Read the mouse +; +MSREAD PHP + SEI + LDY #$14 + JSR DOMOUSE + LDY #00 +MOUSEN = *-1 +; +; Get button status +; + LDA $778,Y + PHA +; +; X-coor +; + LDA $478,Y + STA DTMPLO + LDA $578,Y + STA DTMPHI + BIT SCALING + BMI >0 + LSR DTMPHI + ROR DTMPLO +^0 LDX $FBC0 + BEQ >1 + LSR DTMPHI + ROR DTMPLO +^1 LDX DTMPLO +; +; Y-coor +; + LDA $4F8,Y + STA DTMPLO + LDA $5F8,Y + STA DTMPHI + LSR DTMPHI + ROR DTMPLO + BIT SCALING + BMI >2 + LSR DTMPHI + ROR DTMPLO +^2 LDA $FBC0 + BEQ >3 + LSR DTMPHI + ROR DTMPLO +^3 LDY DTMPLO +; + PLA + PLP + AND #$FF + CLC + RTS +; +; Compute actual mouse address given +; A=either X or Y +; +MSDOX CLC + HEX 24 +MSDOY SEC + LDY #0 + STY DTMPHI + BCC >0 + ASL + ROL DTMPHI +^0 BIT SCALING + BMI >1 + ASL + ROL DTMPHI +^1 LDX $FBC0 + BEQ >2 + ASL + ROL DTMPHI +^2 LDY MOUSEN + LDX DTMPHI + RTS +; +; Set mouse to given coordinates +; +MSSET PHP + SEI + STY >0+1 + TXA + JSR MSDOX + STA $478,Y + TXA + STA $578,Y +^0 LDA #00 + JSR MSDOY + STA $4F8,Y + TXA + STA $5F8,Y + LDY #$16 + JSR DOMOUSE + PLP + RTS +;------------------- +; +; Check for KoalaPad +; +FINDKOLA JSR CHECKPDL +; +; If X,Y is less than KPMIN +; then assume KoalaPad. +; + JSR KPONPAD + BCC >0 + RTS +; +^0 JSR INSTALL + JMP KPTURNON + JMP KPTURNOF + JMP KPREAD + JMP KPSET +; +KPMIN = 16 +; +; Tables to keep track of last +; 8 coordinates +; +KPPOINT HEX 00 +; +KPXLAST DFS 8,0 +KPYLAST DFS 8,0 +; +; Get coordinates from KoalaPad +; If CLC then pen is off pad +; SEC then X,Y are adjusted values +; +KPONPAD JSR READPDL + CPX #KPMIN + BGE >0 + CPY #KPMIN + BLT KPONPADR +; +; Don't believe paddle readings unless +; you get the same values twice. +; (ignoring bit 0) +; +; compute X +; +^0 TXA + AND #$FE + CMP LASTX + STA LASTX + BNE KPONPAD +; + TXA + SEC + SBC #KPMIN + BCS *+4 + LDA #0 + BIT SCALING + BMI >1 + LSR +^1 TAX +; +; compute Y +; + TYA + AND #$FE + CMP LASTY + STA LASTY + BNE KPONPAD +; + TYA + SEC + SBC #KPMIN + BCS *+4 + LDA #0 + BIT SCALING + BMI >2 +; +; Y*.3125 (1/4+1/16) +; + STA DTMPHI + LDA #0 + LSR DTMPHI + ROR + LSR DTMPHI + ROR + LDY DTMPHI + STA DTMP0 + STY DTMP1 + LSR DTMPHI + ROR + LSR DTMPHI + ROR + ADC DTMP0 + LDA DTMPHI + ADC DTMP1 +; +^2 TAY + SEC +KPONPADR RTS +; +KPTURNON LDY #40 + LDA /40 + JMP SETFLASH +; +KPTURNOF = RTS +; +; Read KoalaPad by averaging +; the current reading with the +; last 7 readings +; +KPREAD JSR KPONPAD + BCC KPDONE + TXA + LDX KPPOINT + STA KPXLAST,X + TYA + STA KPYLAST,X + INX + TXA + AND #7 + STA KPPOINT +; + LDX #0 + JSR KPAVG + STA XCOOR + LDX #8 + JSR KPAVG + STA YCOOR +KPDONE LDX XCOOR + LDY YCOOR +; +; Read KoalaPad/Joystick buttons +; +READBTN LDA $C061 + ORA $C062 + AND #$80 +LASTBTN ORA #00 + PHA + LSR + AND #$40 + STA LASTBTN+1 + PLA + CLC + RTS +; +; Set KoalaPad averaging tables +; +KPSET JSR JYSET + TXA + LDX #7 +^0 STA KPXLAST,X + DEX + BPL <0 +; + TYA + LDY #7 +^1 STA KPYLAST,Y + DEY + BPL <1 + RTS +; +; Compute average of last 8 +; readings and return result in A +; +KPAVG LDY #0 + TYA + STY DTMPHI + CLC +^0 ADC KPXLAST,X + BCC >1 + INC DTMPHI +^1 INX + INY + CPY #8 + BCC <0 +; + LSR DTMPHI + ROR + LSR DTMPHI + ROR + LSR DTMPHI + ROR + RTS +;------------------- +; +; Check for Joystick +; +FINDJOYS JSR CHECKPDL +; +; If joystick is centered, +; then assume joystick +; + JSR JYREAD2 + BEQ >0 + RTS +; +^0 JSR INSTALL + JMP JYTURNON + JMP JYTURNOF + JMP JYREAD + JMP JYSET +; +JYTIMER BYT 20 +JYSPEEDU BYT 5 +; +; "How fast to return values" +; constants +; +JYSLOW = 45 +JYFAST = 10 +; +JYTURNON = KPTURNON +; +JYTURNOF = RTS +; +JYTBL0 BYT JYFAST,JYSLOW,JYSLOW +JYTBL1 BYT JYFAST,JYSLOW,JYFAST +; +JYREAD LDA JYTBL0,Y + STA JYMOD0 + LDA JYTBL1,Y + STA JYMOD1 + JSR JYREAD2 + BNE >0 +; +; Joystick is centered, so reset all +; the JY values +; + LDX #8 + STX JYSPEEDU + LDX #1 + STX JYTIMER + LDX #JYSLOW +JYMOD0 = *-1 + STX JYSPEED + BNE >3 +; +^0 DEC JYTIMER + BNE >3 +; + DEC JYSPEEDU + BNE >1 + LDX #JYFAST +JYMOD1 = *-1 + STX JYSPEED +; +^1 LDX #00 +JYSPEED = *-1 + STX JYTIMER + CLC + ADC XCOOR + CMP #$FF + BEQ >2 + STA XCOOR +^2 TYA + CLC + ADC YCOOR + CMP #$FF + BEQ >3 + STA YCOOR +; +^3 LDX XCOOR + LDY YCOOR + JMP READBTN +; +; Compute direction add value +; in A for X, and Y for Y +; +JYREAD2 JSR READPDL + TXA + JSR JYCALC + STA DTMP0 + TYA + JSR JYCALC + TAY + ORA DTMP0 + PHP + LDA DTMP0 + PLP + CLC + RTS +; +; Calculate add value FF,00,01 +; based on position of joystick +; +JYCALC TAX + LDA #$FF + CPX #$30 + ADC #0 + CPX #$A0 + ADC #0 + RTS +; +JYSET STX XCOOR + STY YCOOR + RTS +; +; No input device connected handler +; +NODEVICE JSR INSTALL + JMP >0 + JMP >0 + JMP >0 + JMP >0 +; +; Satisfy DEVICEON +; +^0 LDY #3000 + LDA /3000 +; +; Satisfy DEVICERD +; + SEC + JMP SETFLASH +; +; Scratch pad area: +; +XCOOR BRK +YCOOR BRK +LASTX BRK +LASTY BRK +; +; +; David Snider's +; Fast paddle read routine +; +; Make sure on page boundary +; + DFS $100-*&$FF,$EA +; +FASTPDL LDA #0 + LDY #7 +^0 STA P0D0,Y + DEY + BPL <0 + TAX + CLC + LDA $C070 +; +; Both paddles loop +; +^1 INX + BMI PDLERR2 + BIT $C064 + BPL P0X0 + BIT $C065 + BPL P1X0 + BIT $C064 + BPL P0X1 + BIT $C065 + BPL P1X1 + BIT $C064 + BPL P0X2 + BIT $C065 + BPL P1X2 + BIT $C064 + BPL P0X3 + BIT $C065 + BMI <1 +; +; Paddle 1 exits +; +P1X3 BIT $C064 + STX P1D3 + BCC P0W3 +P1X0 BIT $C064 + STX P1D0 + BCC P0W0 +P1X1 BIT $C064 + STX P1D1 + BCC P0W1 +P1X2 BIT $C064 + STX P1D2 + BCC P0W2 +; +; Paddle 0 exits +; +P0X0 BIT $C065 + STX P0D0 + BCC P1W0 +P0X1 BIT $C065 + STX P0D1 + BCC P1W1 +P0X2 BIT $C065 + STX P0D2 + BCC P1W2 +P0X3 BIT $C065 + STX P0D3 + BCC P1W3 +; +PDLERR2 SEC + RTS +; +; +; Wait for paddle 1 to time out +; +^0 BIT $C065 +P1W0 BPL P1F0 + NOP + NOP + NOP + BIT $C065 +P1W1 BPL P1F1 + NOP + NOP + NOP + BIT $C065 +P1W2 BPL P1F2 + NOP + NOP + NOP + BIT $C065 +P1W3 BPL P1F3 + NOP + NOP + INX + BPL <0 + BMI PDLERR2 +; +; Wait for paddle 0 to time out +; +^0 BIT $C064 +P0W0 BPL P0F0 + NOP + NOP + NOP + BIT $C064 +P0W1 BPL P0F1 + NOP + NOP + NOP + BIT $C064 +P0W2 BPL P0F2 + NOP + NOP + NOP + BIT $C064 +P0W3 BPL P0F3 + NOP + NOP + INX + BPL <0 + BMI PDLERR2 +; +; Final stuff +; +P1F0 STX P1D0 + BCC >0 +P1F1 STX P1D1 + BCC >0 +P1F2 STX P1D2 + BCC >0 +P1F3 STX P1D3 + BCC >0 +P0F0 STX P0D0 + BCC >0 +P0F1 STX P0D1 + BCC >0 +P0F2 STX P0D2 + BCC >0 +P0F3 STX P0D3 +; +; Make sure this routine always takes +; the same amount of time. +; +; 51 microsecond loop until X=$40 +; +^0 CPX #$40 + BGE >1 + JSR RTS + JSR RTS + JSR RTS + NOP + NOP + NOP + INX + BNE <0 +^1 CLC + RTS +; +; +; + USR "SUBPAK",ORG + END diff --git a/PSC Source Disk 2 - Editors (v11)/A_CAPTURE.txt b/PSC Source Disk 2 - Editors (v11)/A_CAPTURE.txt new file mode 100644 index 0000000..9064286 --- /dev/null +++ b/PSC Source Disk 2 - Editors (v11)/A_CAPTURE.txt @@ -0,0 +1,24 @@ + 0 REM 0 + 1 M = 4: IF PEEK (2054) = 48 THEN PRINT "BLOADCAPTURE.OBJ": POKE 2054,49 + 2 OP = 1 + 3 POKE 10,OP * 128 + 5 Y0 = 4096:Y1 = Y0 + 256:FL = Y1 + 192:HX = Y1 + 224:CP = Y0 + 512: GOTO 1000 + 10 POKE - 16302,0: POKE - 16301,0: POKE - 16297,0: POKE - 16304,0 + 20 VTAB 14: IN# M: INPUT X,Y,B: IN# 0:X = INT (X / 20):Y = INT (Y / 6): IF X > 39 THEN X = 39 + 30 IF Y > 159 THEN Y = 159 + 40 POKE 0,X: POKE 1,Y: CALL FL: GOSUB 50: CALL FL: GOSUB 50: ON B < > 2 GOTO 20: PRINT CHR$ (7);: VTAB 24: RETURN + 50 FOR A = 1 TO 25: NEXT : RETURN + 1000 TEXT : NORMAL : POKE - 16302,0: POKE - 16301,0: POKE - 16297,0: POKE - 16304,0: PR# M: PRINT CHR$ (1);: PR# 0 + 1010 HOME : VTAB 23: PRINT "SELECT UPPER LEFT CORNER": GOSUB 10:OX = X:OY = Y: PRINT "X="X",Y="Y" NOW LOWER RIGHT": GOSUB 10: PRINT "X="X",Y="Y + 1020 POKE 0,OX: POKE 1,OY: POKE 2,X + 1: POKE 3,Y + 1: CALL CP: VTAB 24: PRINT "PRESS TO ACCEPT...";: POKE 49168,0 + 1030 K = PEEK (49152): ON K < 128 GOTO 1030: POKE 49168,0: CALL CP: ON K < > 141 GOTO 1010 + 1035 CALL CP:EN = PEEK (6) + 256 * PEEK (7) + 1040 CALL 1002: TEXT : HOME : PRINT "LENGTH="EN - 16384: INPUT "FILE NAME ?";F$: IF NOT OP THEN 2000 + 1042 : IF LEN (F$) THEN PRINT "OPEN"F$: PRINT "WRITE"F$ + 1045 PRINT "I "F$": BYT "OX","OY","X - OX + 1","Y - OY + 1;:H = 0 + 1050 FOR A = 16384 TO EN - 1: IF H / 16 = INT (H / 16) THEN PRINT : PRINT " HEX "; + 1060 POKE 0, PEEK (A): CALL HX:H = H + 1: NEXT + 1070 PRINT " ; ;": PRINT "CLOSE" + 1080 END + 2000 PRINT "BSAVE"F$",A16384,L"EN - 16384: STOP + 63999 POKE 2054,48: PRINT "SAVE CAPTURE" diff --git a/PSC Source Disk 2 - Editors (v11)/A_COMP BORDS.txt b/PSC Source Disk 2 - Editors (v11)/A_COMP BORDS.txt new file mode 100644 index 0000000..c7690f8 --- /dev/null +++ b/PSC Source Disk 2 - Editors (v11)/A_COMP BORDS.txt @@ -0,0 +1,36 @@ + 5 F$ = "COMPRESSED BORDERS" + 10 SP = 4096: PRINT "BLOAD O:BORDDATA,A"SP + 15 GOSUB 60000 + 20 DP = 8192:OP = DP + 30 FOR BR = 1 TO 9: PRINT "BORDER #"BR + 31 CO = 48 * (1 + 2 * (BR < 3)):BR(BR) = DP: GOSUB 1000:EB(BR) = DP - 1 + 32 CO = 28 * (1 + 2 * (BR < 3)):SC(BR) = DP: GOSUB 1000:ES(BR) = DP - 1 + 50 NEXT + 60 PRINT "OPEN "F$: PRINT "WRITE "F$ + 70 PRINT "INS" + 100 FOR BR = 1 TO 9 + 110 PRINT "PSBRD"BR;:A1 = BR(BR):A2 = EB(BR): GOSUB 200 + 115 PRINT ";" + 120 PRINT "PSSCR"BR;:A1 = SC(BR):A2 = ES(BR): GOSUB 200 + 130 PRINT ";-------" + 140 NEXT + 142 Q$ = CHR$ (34) + 145 FOR A = 1 TO 3: PRINT ";": NEXT : PRINT " USR "Q$"BOEDIT,V12"Q$",ORG": PRINT " END" + 150 PRINT "CLOSE": STOP + 200 C = 0: FOR A = A1 TO A2: IF NOT C THEN PRINT " HEX "; + 210 CALL 768, PEEK (A):C = C + 1: IF C = 8 THEN C = 0: PRINT + 220 NEXT : IF C THEN PRINT + 230 RETURN + 1000 AA = DP:BB = SP + 1010 A = PEEK (SP): ON A = PEEK (SP + 1) GOTO 2000 + 1020 SP = SP + 1: POKE DP,A:DP = DP + 1:CO = CO - 1 + 1040 IF CO THEN 1010 + 1050 PRINT DP - AA,SP - BB: RETURN + 2000 C = 1:RB = A: IF CO = 1 THEN 1020 + 2010 IF PEEK (SP) < > PEEK (SP + 1) THEN 3000 + 2020 SP = SP + 1:C = C + 1:CO = CO - 1: IF CO THEN 2010 + 3000 POKE DP,C + 128: POKE DP + 1,RB:DP = DP + 2 + 3005 SP = SP + (CO > 0):CO = CO - (CO > 0) + 3010 GOTO 1040 + 60000 FOR A = 768 TO 774: READ B: POKE A,B: NEXT : RETURN : DATA 32,76,231,138,76,218,253 + 63999 PRINT "SAVE COMP BORDS" diff --git a/PSC Source Disk 2 - Editors (v11)/A_COMP NUMB BORD.txt b/PSC Source Disk 2 - Editors (v11)/A_COMP NUMB BORD.txt new file mode 100644 index 0000000..32afb47 --- /dev/null +++ b/PSC Source Disk 2 - Editors (v11)/A_COMP NUMB BORD.txt @@ -0,0 +1,29 @@ + 5 F$ = "NUMB BORDER" + 10 SP = 4096: PRINT "BLOAD O:NUMBBORD,A"SP + 15 GOSUB 60000 + 20 DP = 8192:OP = DP + 32 CO = 28 * 3:SC(BR) = DP: GOSUB 1000:ES(BR) = DP - 1 + 60 PRINT "OPEN "F$: PRINT "WRITE "F$ + 70 PRINT "INS" + 120 PRINT "PAGE3DAT";:A1 = SC(BR):A2 = ES(BR): GOSUB 200 + 130 PRINT ";-------" + 142 Q$ = CHR$ (34) + 145 FOR A = 1 TO 3: PRINT ";": NEXT + 150 PRINT "CLOSE": STOP + 200 C = 0: FOR A = A1 TO A2: IF NOT C THEN PRINT " HEX "; + 210 CALL 768, PEEK (A):C = C + 1: IF C = 8 THEN C = 0: PRINT + 220 NEXT : IF C THEN PRINT + 230 RETURN + 1000 AA = DP:BB = SP + 1010 A = PEEK (SP): ON A = PEEK (SP + 1) GOTO 2000 + 1020 SP = SP + 1: POKE DP,A:DP = DP + 1:CO = CO - 1 + 1040 IF CO THEN 1010 + 1050 PRINT DP - AA,SP - BB: RETURN + 2000 C = 1:RB = A: IF CO = 1 THEN 1020 + 2010 IF PEEK (SP) < > PEEK (SP + 1) THEN 3000 + 2020 SP = SP + 1:C = C + 1:CO = CO - 1: IF CO THEN 2010 + 3000 POKE DP,C + 128: POKE DP + 1,RB:DP = DP + 2 + 3005 SP = SP + (CO > 0):CO = CO - (CO > 0) + 3010 GOTO 1040 + 60000 FOR A = 768 TO 774: READ B: POKE A,B: NEXT : RETURN : DATA 32,76,231,138,76,218,253 + 63999 PRINT "SAVE COMP NUMB BORD" diff --git a/PSC Source Disk 2 - Editors (v11)/A_MAKE SUPP.txt b/PSC Source Disk 2 - Editors (v11)/A_MAKE SUPP.txt new file mode 100644 index 0000000..0b769ad --- /dev/null +++ b/PSC Source Disk 2 - Editors (v11)/A_MAKE SUPP.txt @@ -0,0 +1,9 @@ + 5 A = 25344:E = A: PRINT "MONC" + 10 DEF FN A(A) = PEEK ( - 21920) + PEEK ( - 21919) * 256 + 20 READ A$: IF A$ < > "" THEN PRINT "BLOAD"A$",A"E:E = E + FN A(0): GOTO 20 + 30 READ V: IF V THEN GOSUB 100: GOTO 30 + 40 END + 100 F$ = "[CD],V" + STR$ (V): PRINT "UNLOCK "F$: PRINT "BSAVE "F$",A"A",L"E - A: PRINT "LOCK "F$: RETURN + 1000 DATA "O:SUPPHEADER","O:D000","O:SUPPGET", + 60000 DATA 11,14,15, + 63999 PRINT "SAVE MAKE SUPP" diff --git a/PSC Source Disk 2 - Editors (v11)/CAPTURE.OBJ.txt b/PSC Source Disk 2 - Editors (v11)/CAPTURE.OBJ.txt new file mode 100644 index 0000000..f15dfd4 --- /dev/null +++ b/PSC Source Disk 2 - Editors (v11)/CAPTURE.OBJ.txt @@ -0,0 +1,523 @@ +1000- 00 BRK +1001- 00 BRK +1002- 00 BRK +1003- 00 BRK +1004- 00 BRK +1005- 00 BRK +1006- 00 BRK +1007- 00 BRK +1008- 80 80 BRA $0F8A +100A- 80 80 BRA $0F8C +100C- 80 80 BRA $0F8E +100E- 80 80 BRA $0F90 +1010- 00 BRK +1011- 00 BRK +1012- 00 BRK +1013- 00 BRK +1014- 00 BRK +1015- 00 BRK +1016- 00 BRK +1017- 00 BRK +1018- 80 80 BRA $0F9A +101A- 80 80 BRA $0F9C +101C- 80 80 BRA $0F9E +101E- 80 80 BRA $0FA0 +1020- 00 BRK +1021- 00 BRK +1022- 00 BRK +1023- 00 BRK +1024- 00 BRK +1025- 00 BRK +1026- 00 BRK +1027- 00 BRK +1028- 80 80 BRA $0FAA +102A- 80 80 BRA $0FAC +102C- 80 80 BRA $0FAE +102E- 80 80 BRA $0FB0 +1030- 00 BRK +1031- 00 BRK +1032- 00 BRK +1033- 00 BRK +1034- 00 BRK +1035- 00 BRK +1036- 00 BRK +1037- 00 BRK +1038- 80 80 BRA $0FBA +103A- 80 80 BRA $0FBC +103C- 80 80 BRA $0FBE +103E- 80 80 BRA $0FC0 +1040- 28 PLP +1041- 28 PLP +1042- 28 PLP +1043- 28 PLP +1044- 28 PLP +1045- 28 PLP +1046- 28 PLP +1047- 28 PLP +1048- A8 TAY +1049- A8 TAY +104A- A8 TAY +104B- A8 TAY +104C- A8 TAY +104D- A8 TAY +104E- A8 TAY +104F- A8 TAY +1050- 28 PLP +1051- 28 PLP +1052- 28 PLP +1053- 28 PLP +1054- 28 PLP +1055- 28 PLP +1056- 28 PLP +1057- 28 PLP +1058- A8 TAY +1059- A8 TAY +105A- A8 TAY +105B- A8 TAY +105C- A8 TAY +105D- A8 TAY +105E- A8 TAY +105F- A8 TAY +1060- 28 PLP +1061- 28 PLP +1062- 28 PLP +1063- 28 PLP +1064- 28 PLP +1065- 28 PLP +1066- 28 PLP +1067- 28 PLP +1068- A8 TAY +1069- A8 TAY +106A- A8 TAY +106B- A8 TAY +106C- A8 TAY +106D- A8 TAY +106E- A8 TAY +106F- A8 TAY +1070- 28 PLP +1071- 28 PLP +1072- 28 PLP +1073- 28 PLP +1074- 28 PLP +1075- 28 PLP +1076- 28 PLP +1077- 28 PLP +1078- A8 TAY +1079- A8 TAY +107A- A8 TAY +107B- A8 TAY +107C- A8 TAY +107D- A8 TAY +107E- A8 TAY +107F- A8 TAY +1080- 50 50 BVC $10D2 +1082- 50 50 BVC $10D4 +1084- 50 50 BVC $10D6 +1086- 50 50 BVC $10D8 +1088- D0 D0 BNE $105A +108A- D0 D0 BNE $105C +108C- D0 D0 BNE $105E +108E- D0 D0 BNE $1060 +1090- 50 50 BVC $10E2 +1092- 50 50 BVC $10E4 +1094- 50 50 BVC $10E6 +1096- 50 50 BVC $10E8 +1098- D0 D0 BNE $106A +109A- D0 D0 BNE $106C +109C- D0 D0 BNE $106E +109E- D0 D0 BNE $1070 +10A0- 50 50 BVC $10F2 +10A2- 50 50 BVC $10F4 +10A4- 50 50 BVC $10F6 +10A6- 50 50 BVC $10F8 +10A8- D0 D0 BNE $107A +10AA- D0 D0 BNE $107C +10AC- D0 D0 BNE $107E +10AE- D0 D0 BNE $1080 +10B0- 50 50 BVC $1102 +10B2- 50 50 BVC $1104 +10B4- 50 50 BVC $1106 +10B6- 50 50 BVC $1108 +10B8- D0 D0 BNE $108A +10BA- D0 D0 BNE $108C +10BC- D0 D0 BNE $108E +10BE- D0 D0 BNE $1090 +10C0- 00 BRK +10C1- 00 BRK +10C2- 00 BRK +10C3- 00 BRK +10C4- 00 BRK +10C5- 00 BRK +10C6- 00 BRK +10C7- 00 BRK +10C8- 00 BRK +10C9- 00 BRK +10CA- 00 BRK +10CB- 00 BRK +10CC- 00 BRK +10CD- 00 BRK +10CE- 00 BRK +10CF- 00 BRK +10D0- 00 BRK +10D1- 00 BRK +10D2- 00 BRK +10D3- 00 BRK +10D4- 00 BRK +10D5- 00 BRK +10D6- 00 BRK +10D7- 00 BRK +10D8- 00 BRK +10D9- 00 BRK +10DA- 00 BRK +10DB- 00 BRK +10DC- 00 BRK +10DD- 00 BRK +10DE- 00 BRK +10DF- 00 BRK +10E0- 00 BRK +10E1- 00 BRK +10E2- 00 BRK +10E3- 00 BRK +10E4- 00 BRK +10E5- 00 BRK +10E6- 00 BRK +10E7- 00 BRK +10E8- 00 BRK +10E9- 00 BRK +10EA- 00 BRK +10EB- 00 BRK +10EC- 00 BRK +10ED- 00 BRK +10EE- 00 BRK +10EF- 00 BRK +10F0- 00 BRK +10F1- 00 BRK +10F2- 00 BRK +10F3- 00 BRK +10F4- 00 BRK +10F5- 00 BRK +10F6- 00 BRK +10F7- 00 BRK +10F8- 00 BRK +10F9- 00 BRK +10FA- 00 BRK +10FB- 00 BRK +10FC- 00 BRK +10FD- 00 BRK +10FE- 00 BRK +10FF- 00 BRK +1100- 20 24 28 JSR $2824 +1103- 2C 30 34 BIT $3430 +1106- 38 SEC +1107- 3C 20 24 BIT $2420,X +110A- 28 PLP +110B- 2C 30 34 BIT $3430 +110E- 38 SEC +110F- 3C 21 25 BIT $2521,X +1112- 29 2D AND #$2D +1114- 31 35 AND ($35),Y +1116- 39 3D 21 AND $213D,Y +1119- 25 29 AND $29 +111B- 2D 31 35 AND $3531 +111E- 39 3D 22 AND $223D,Y +1121- 26 2A ROL $2A +1123- 2E 32 36 ROL $3632 +1126- 3A DEC +1127- 3E 22 26 ROL $2622,X +112A- 2A ROL +112B- 2E 32 36 ROL $3632 +112E- 3A DEC +112F- 3E 23 27 ROL $2723,X +1132- 2B ??? +1133- 2F ??? +1134- 33 ??? +1135- 37 ??? +1136- 3B ??? +1137- 3F ??? +1138- 23 ??? +1139- 27 ??? +113A- 2B ??? +113B- 2F ??? +113C- 33 ??? +113D- 37 ??? +113E- 3B ??? +113F- 3F ??? +1140- 20 24 28 JSR $2824 +1143- 2C 30 34 BIT $3430 +1146- 38 SEC +1147- 3C 20 24 BIT $2420,X +114A- 28 PLP +114B- 2C 30 34 BIT $3430 +114E- 38 SEC +114F- 3C 21 25 BIT $2521,X +1152- 29 2D AND #$2D +1154- 31 35 AND ($35),Y +1156- 39 3D 21 AND $213D,Y +1159- 25 29 AND $29 +115B- 2D 31 35 AND $3531 +115E- 39 3D 22 AND $223D,Y +1161- 26 2A ROL $2A +1163- 2E 32 36 ROL $3632 +1166- 3A DEC +1167- 3E 22 26 ROL $2622,X +116A- 2A ROL +116B- 2E 32 36 ROL $3632 +116E- 3A DEC +116F- 3E 23 27 ROL $2723,X +1172- 2B ??? +1173- 2F ??? +1174- 33 ??? +1175- 37 ??? +1176- 3B ??? +1177- 3F ??? +1178- 23 ??? +1179- 27 ??? +117A- 2B ??? +117B- 2F ??? +117C- 33 ??? +117D- 37 ??? +117E- 3B ??? +117F- 3F ??? +1180- 20 24 28 JSR $2824 +1183- 2C 30 34 BIT $3430 +1186- 38 SEC +1187- 3C 20 24 BIT $2420,X +118A- 28 PLP +118B- 2C 30 34 BIT $3430 +118E- 38 SEC +118F- 3C 21 25 BIT $2521,X +1192- 29 2D AND #$2D +1194- 31 35 AND ($35),Y +1196- 39 3D 21 AND $213D,Y +1199- 25 29 AND $29 +119B- 2D 31 35 AND $3531 +119E- 39 3D 22 AND $223D,Y +11A1- 26 2A ROL $2A +11A3- 2E 32 36 ROL $3632 +11A6- 3A DEC +11A7- 3E 22 26 ROL $2622,X +11AA- 2A ROL +11AB- 2E 32 36 ROL $3632 +11AE- 3A DEC +11AF- 3E 23 27 ROL $2723,X +11B2- 2B ??? +11B3- 2F ??? +11B4- 33 ??? +11B5- 37 ??? +11B6- 3B ??? +11B7- 3F ??? +11B8- 23 ??? +11B9- 27 ??? +11BA- 2B ??? +11BB- 2F ??? +11BC- 33 ??? +11BD- 37 ??? +11BE- 3B ??? +11BF- 3F ??? +11C0- A4 01 LDY $01 +11C2- B9 00 10 LDA $1000,Y +11C5- 85 3A STA $3A +11C7- B9 00 11 LDA $1100,Y +11CA- 85 3B STA $3B +11CC- A4 00 LDY $00 +11CE- B1 3A LDA ($3A),Y +11D0- 49 7F EOR #$7F +11D2- 91 3A STA ($3A),Y +11D4- 60 RTS +11D5- 44 ??? +11D6- 20 E3 03 JSR $03E3 +11D9- 20 20 F4 JSR $F420 +11DC- 11 F0 ORA ($F0),Y +11DE- 14 20 TRB $20 +11E0- A5 00 LDA $00 +11E2- 4C DA FD JMP $FDDA F8ROM:PRBYTE +11E5- 20 61 20 JSR $2061 +11E8- 66 6C ROR $6C +11EA- 6F ??? +11EB- 70 70 BVS $125D +11ED- 79 0A 0D ADC $0D0A,Y +11F0- 00 BRK +11F1- A9 FF LDA #$FF +11F3- 60 RTS +11F4- 8D 71 12 STA $1271 +11F7- CA DEX +11F8- 8E 70 12 STX $1270 +11FB- CE 71 12 DEC $1271 +11FE- A2 62 LDX #$62 +1200- A0 00 LDY #$00 +1202- A9 40 LDA #$40 +1204- 84 06 STY $06 +1206- 85 07 STA $07 +1208- A6 01 LDX $01 +120A- 20 7D 12 JSR $127D +120D- 20 63 12 JSR $1263 +1210- 85 09 STA $09 +1212- 24 08 BIT $08 +1214- 30 3B BMI $1251 +1216- 24 0A BIT $0A +1218- 10 08 BPL $1222 +121A- C9 00 CMP #$00 +121C- F0 0A BEQ $1228 +121E- C9 7F CMP #$7F +1220- F0 06 BEQ $1228 +1222- 20 53 12 JSR $1253 +1225- 4C 0D 12 JMP $120D +1228- 8D 35 12 STA $1235 +122B- 29 40 AND #$40 +122D- 09 81 ORA #$81 +122F- 85 09 STA $09 +1231- 20 63 12 JSR $1263 +1234- C9 00 CMP #$00 +1236- D0 11 BNE $1249 +1238- E6 09 INC $09 +123A- 24 08 BIT $08 +123C- 30 13 BMI $1251 +123E- A5 09 LDA $09 +1240- 29 3F AND #$3F +1242- D0 ED BNE $1231 +1244- C6 09 DEC $09 +1246- AD 35 12 LDA $1235 +1249- 48 PHA +124A- 20 51 12 JSR $1251 +124D- 68 PLA +124E- 4C 10 12 JMP $1210 +1251- A5 09 LDA $09 +1253- 8C 61 12 STY $1261 +1256- A0 00 LDY #$00 +1258- 91 06 STA ($06),Y +125A- E6 06 INC $06 +125C- D0 02 BNE $1260 +125E- E6 07 INC $07 +1260- A0 00 LDY #$00 +1262- 60 RTS +1263- B1 04 LDA ($04),Y +1265- 49 7F EOR #$7F +1267- 91 04 STA ($04),Y +1269- 49 7F EOR #$7F +126B- C8 INY +126C- C4 02 CPY $02 +126E- 90 08 BCC $1278 +1270- 48 PHA +1271- E8 INX +1272- 20 7D 12 JSR $127D +1275- 68 PLA +1276- E4 03 CPX $03 +1278- 66 08 ROR $08 +127A- 29 7F AND #$7F +127C- 60 RTS +127D- BD 00 10 LDA $1000,X +1280- 85 04 STA $04 +1282- BD 00 11 LDA $1100,X +1285- 85 05 STA $05 +1287- A4 00 LDY $00 +1289- 60 RTS +128A- 00 BRK +128B- 00 BRK +128C- 00 BRK +128D- 00 BRK +128E- 00 BRK +128F- 00 BRK +1290- 00 BRK +1291- 00 BRK +1292- 00 BRK +1293- 00 BRK +1294- 00 BRK +1295- 00 BRK +1296- 00 BRK +1297- 00 BRK +1298- 00 BRK +1299- 00 BRK +129A- 00 BRK +129B- 00 BRK +129C- 00 BRK +129D- 00 BRK +129E- 00 BRK +129F- 00 BRK +12A0- 00 BRK +12A1- 00 BRK +12A2- 00 BRK +12A3- 00 BRK +12A4- 00 BRK +12A5- 00 BRK +12A6- 00 BRK +12A7- 00 BRK +12A8- 00 BRK +12A9- 00 BRK +12AA- 00 BRK +12AB- 00 BRK +12AC- 00 BRK +12AD- 00 BRK +12AE- 00 BRK +12AF- 00 BRK +12B0- 00 BRK +12B1- 00 BRK +12B2- 00 BRK +12B3- 00 BRK +12B4- 00 BRK +12B5- 00 BRK +12B6- 00 BRK +12B7- 00 BRK +12B8- 00 BRK +12B9- 00 BRK +12BA- 00 BRK +12BB- 00 BRK +12BC- 00 BRK +12BD- 00 BRK +12BE- 00 BRK +12BF- 00 BRK +12C0- 00 BRK +12C1- 00 BRK +12C2- 00 BRK +12C3- 00 BRK +12C4- 00 BRK +12C5- 00 BRK +12C6- 00 BRK +12C7- 00 BRK +12C8- 00 BRK +12C9- 00 BRK +12CA- 00 BRK +12CB- 00 BRK +12CC- 00 BRK +12CD- 00 BRK +12CE- 00 BRK +12CF- 00 BRK +12D0- 00 BRK +12D1- 00 BRK +12D2- 00 BRK +12D3- 00 BRK +12D4- 00 BRK +12D5- 00 BRK +12D6- 00 BRK +12D7- 00 BRK +12D8- 00 BRK +12D9- 00 BRK +12DA- 00 BRK +12DB- 00 BRK +12DC- 00 BRK +12DD- 00 BRK +12DE- 00 BRK +12DF- 00 BRK +12E0- 00 BRK +12E1- 00 BRK +12E2- 00 BRK +12E3- 00 BRK +12E4- 00 BRK +12E5- 00 BRK +12E6- 00 BRK +12E7- 00 BRK +12E8- 00 BRK +12E9- 00 BRK +12EA- 00 BRK +12EB- 00 BRK +12EC- 00 BRK +12ED- 00 BRK +12EE- 00 BRK +12EF- 00 BRK +12F0- 00 BRK +12F1- 00 BRK +12F2- 00 BRK +12F3- 00 BRK +12F4- 00 BRK +12F5- 00 BRK +12F6- 00 BRK +12F7- 00 BRK diff --git a/PSC Source Disk 2 - Editors (v11)/COMPRESSED BORDERS.txt b/PSC Source Disk 2 - Editors (v11)/COMPRESSED BORDERS.txt new file mode 100644 index 0000000..d4ba975 --- /dev/null +++ b/PSC Source Disk 2 - Editors (v11)/COMPRESSED BORDERS.txt @@ -0,0 +1,104 @@ +INS +PSBRD1 HEX 827F9600827F9501 + HEX 9900970100827F96 + HEX 00827F9600 + ; +PSSCR1 HEX 827F030003000300 + HEX 0300030003000300 + HEX 0300030003000300 + HEX 03000300827F9A00 + HEX 0300030003000300 + HEX 0300030003000300 + HEX 0300030003000300 + HEX 03000300 + ;------- +PSBRD2 HEX 827F89008A40827F + HEX 00827F9501009701 + HEX 00970100827F8900 + HEX 827F8B00827F8900 + HEX 827F8B00 + ; +PSSCR2 HEX 827F030003000300 + HEX 0300030003000360 + HEX 0360036003600360 + HEX 036003837F8C0082 + HEX 7F8C009C03 + ;------- +PSBRD3 HEX 977F00977F00 + ; +PSSCR3 HEX 9C7F + ;------- +PSBRD4 HEX 00030F1F1C3D303A + HEX 3075606A6075603A + HEX 3035381E1F0F0382 + HEX 00407078383C0C5C + HEX 0C2E0656062E065C + HEX 0C2C5C8278704000 + ; +PSSCR4 HEX 4003700F18192C34 + HEX 0C3126640E712664 + HEX 0C312C341819700F + HEX 40038200 + ;------- +PSBRD5 HEX 7182738274820C82 + HEX 1C8221618221821C + HEX 820C827482737100 + HEX 4782678217821882 + HEX 1C8242438242821C + HEX 8218821782674700 + ; +PSSCR5 HEX 477167731774180C + HEX 821C022084630220 + HEX 821C180C17746773 + HEX 4771 + ;------- +PSBRD6 HEX 0001020A16821211 + HEX 091D84231D091182 + HEX 12160A0201820060 + HEX 10141A821222646E + HEX 84716E642282121A + HEX 14106000 + ; +PSSCR6 HEX 82004001380E2412 + HEX 24125C1D62236223 + HEX 5C1D24122412380E + HEX 40018300 + ;------- +PSBRD7 HEX 008301830382070F + HEX 3F7F3F0F82078303 + HEX 8301860083408260 + HEX 707C7E7C70826083 + HEX 408600 + ; +PSSCR7 HEX 0001000140034003 + HEX 6007781F7E7F781F + HEX 6007400340030001 + HEX 00018300 + ;------- +PSBRD8 HEX 8200018203820682 + HEX 0C1830703018820C + HEX 8206820301830038 + HEX 7C7E46840307060C + HEX 180C06078403467E + HEX 7C3800 + ; +PSSCR8 HEX 82001C0E3E1F6739 + HEX 4330033007380E82 + HEX 1C0E380760014085 + HEX 00 + ;------- +PSBRD9 HEX 827F8348824F8948 + HEX 827F8340827F0082 + HEX 7F8301827F890982 + HEX 798309827F00 + ; +PSSCR9 HEX 827F19401940797F + HEX 194C194C194C194C + HEX 194C194C7F4F014C + HEX 014C827F + ;------- + ; + ; + ; + USR "BOEDIT,V12",ORG + END diff --git a/PSC Source Disk 2 - Editors (v11)/NUMB BORDER.txt b/PSC Source Disk 2 - Editors (v11)/NUMB BORDER.txt new file mode 100644 index 0000000..df42a04 --- /dev/null +++ b/PSC Source Disk 2 - Editors (v11)/NUMB BORDER.txt @@ -0,0 +1,12 @@ +INS +PAGE3DAT HEX 877F7E3F7E1F7E3F + HEX 7E3F7E3F7E1F7C8E + HEX 7F0F7E677C7F7C3F + HEX 7E1F7F4F7F077C8E + HEX 7F1F7C4F797F793F + HEX 7C7F794F791F7C88 + HEX 7F + ;------- + ; + ; + ; diff --git a/PSC Source Disk 2 - Editors (v11)/O_BORDDATA.txt b/PSC Source Disk 2 - Editors (v11)/O_BORDDATA.txt new file mode 100644 index 0000000..394bc90 --- /dev/null +++ b/PSC Source Disk 2 - Editors (v11)/O_BORDDATA.txt @@ -0,0 +1,779 @@ +1000- 7F ??? +1001- 7F ??? +1002- 00 BRK +1003- 00 BRK +1004- 00 BRK +1005- 00 BRK +1006- 00 BRK +1007- 00 BRK +1008- 00 BRK +1009- 00 BRK +100A- 00 BRK +100B- 00 BRK +100C- 00 BRK +100D- 00 BRK +100E- 00 BRK +100F- 00 BRK +1010- 00 BRK +1011- 00 BRK +1012- 00 BRK +1013- 00 BRK +1014- 00 BRK +1015- 00 BRK +1016- 00 BRK +1017- 00 BRK +1018- 7F ??? +1019- 7F ??? +101A- 01 01 ORA ($01,X) +101C- 01 01 ORA ($01,X) +101E- 01 01 ORA ($01,X) +1020- 01 01 ORA ($01,X) +1022- 01 01 ORA ($01,X) +1024- 01 01 ORA ($01,X) +1026- 01 01 ORA ($01,X) +1028- 01 01 ORA ($01,X) +102A- 01 01 ORA ($01,X) +102C- 01 01 ORA ($01,X) +102E- 01 00 ORA ($00,X) +1030- 00 BRK +1031- 00 BRK +1032- 00 BRK +1033- 00 BRK +1034- 00 BRK +1035- 00 BRK +1036- 00 BRK +1037- 00 BRK +1038- 00 BRK +1039- 00 BRK +103A- 00 BRK +103B- 00 BRK +103C- 00 BRK +103D- 00 BRK +103E- 00 BRK +103F- 00 BRK +1040- 00 BRK +1041- 00 BRK +1042- 00 BRK +1043- 00 BRK +1044- 00 BRK +1045- 00 BRK +1046- 00 BRK +1047- 00 BRK +1048- 01 01 ORA ($01,X) +104A- 01 01 ORA ($01,X) +104C- 01 01 ORA ($01,X) +104E- 01 01 ORA ($01,X) +1050- 01 01 ORA ($01,X) +1052- 01 01 ORA ($01,X) +1054- 01 01 ORA ($01,X) +1056- 01 01 ORA ($01,X) +1058- 01 01 ORA ($01,X) +105A- 01 01 ORA ($01,X) +105C- 01 01 ORA ($01,X) +105E- 01 00 ORA ($00,X) +1060- 7F ??? +1061- 7F ??? +1062- 00 BRK +1063- 00 BRK +1064- 00 BRK +1065- 00 BRK +1066- 00 BRK +1067- 00 BRK +1068- 00 BRK +1069- 00 BRK +106A- 00 BRK +106B- 00 BRK +106C- 00 BRK +106D- 00 BRK +106E- 00 BRK +106F- 00 BRK +1070- 00 BRK +1071- 00 BRK +1072- 00 BRK +1073- 00 BRK +1074- 00 BRK +1075- 00 BRK +1076- 00 BRK +1077- 00 BRK +1078- 7F ??? +1079- 7F ??? +107A- 00 BRK +107B- 00 BRK +107C- 00 BRK +107D- 00 BRK +107E- 00 BRK +107F- 00 BRK +1080- 00 BRK +1081- 00 BRK +1082- 00 BRK +1083- 00 BRK +1084- 00 BRK +1085- 00 BRK +1086- 00 BRK +1087- 00 BRK +1088- 00 BRK +1089- 00 BRK +108A- 00 BRK +108B- 00 BRK +108C- 00 BRK +108D- 00 BRK +108E- 00 BRK +108F- 00 BRK +1090- 7F ??? +1091- 7F ??? +1092- 03 ??? +1093- 00 BRK +1094- 03 ??? +1095- 00 BRK +1096- 03 ??? +1097- 00 BRK +1098- 03 ??? +1099- 00 BRK +109A- 03 ??? +109B- 00 BRK +109C- 03 ??? +109D- 00 BRK +109E- 03 ??? +109F- 00 BRK +10A0- 03 ??? +10A1- 00 BRK +10A2- 03 ??? +10A3- 00 BRK +10A4- 03 ??? +10A5- 00 BRK +10A6- 03 ??? +10A7- 00 BRK +10A8- 03 ??? +10A9- 00 BRK +10AA- 03 ??? +10AB- 00 BRK +10AC- 7F ??? +10AD- 7F ??? +10AE- 00 BRK +10AF- 00 BRK +10B0- 00 BRK +10B1- 00 BRK +10B2- 00 BRK +10B3- 00 BRK +10B4- 00 BRK +10B5- 00 BRK +10B6- 00 BRK +10B7- 00 BRK +10B8- 00 BRK +10B9- 00 BRK +10BA- 00 BRK +10BB- 00 BRK +10BC- 00 BRK +10BD- 00 BRK +10BE- 00 BRK +10BF- 00 BRK +10C0- 00 BRK +10C1- 00 BRK +10C2- 00 BRK +10C3- 00 BRK +10C4- 00 BRK +10C5- 00 BRK +10C6- 00 BRK +10C7- 00 BRK +10C8- 03 ??? +10C9- 00 BRK +10CA- 03 ??? +10CB- 00 BRK +10CC- 03 ??? +10CD- 00 BRK +10CE- 03 ??? +10CF- 00 BRK +10D0- 03 ??? +10D1- 00 BRK +10D2- 03 ??? +10D3- 00 BRK +10D4- 03 ??? +10D5- 00 BRK +10D6- 03 ??? +10D7- 00 BRK +10D8- 03 ??? +10D9- 00 BRK +10DA- 03 ??? +10DB- 00 BRK +10DC- 03 ??? +10DD- 00 BRK +10DE- 03 ??? +10DF- 00 BRK +10E0- 03 ??? +10E1- 00 BRK +10E2- 03 ??? +10E3- 00 BRK +10E4- 7F ??? +10E5- 7F ??? +10E6- 00 BRK +10E7- 00 BRK +10E8- 00 BRK +10E9- 00 BRK +10EA- 00 BRK +10EB- 00 BRK +10EC- 00 BRK +10ED- 00 BRK +10EE- 00 BRK +10EF- 40 RTI +10F0- 40 RTI +10F1- 40 RTI +10F2- 40 RTI +10F3- 40 RTI +10F4- 40 RTI +10F5- 40 RTI +10F6- 40 RTI +10F7- 40 RTI +10F8- 40 RTI +10F9- 7F ??? +10FA- 7F ??? +10FB- 00 BRK +10FC- 7F ??? +10FD- 7F ??? +10FE- 01 01 ORA ($01,X) +1100- 01 01 ORA ($01,X) +1102- 01 01 ORA ($01,X) +1104- 01 01 ORA ($01,X) +1106- 01 01 ORA ($01,X) +1108- 01 01 ORA ($01,X) +110A- 01 01 ORA ($01,X) +110C- 01 01 ORA ($01,X) +110E- 01 01 ORA ($01,X) +1110- 01 01 ORA ($01,X) +1112- 01 00 ORA ($00,X) +1114- 01 01 ORA ($01,X) +1116- 01 01 ORA ($01,X) +1118- 01 01 ORA ($01,X) +111A- 01 01 ORA ($01,X) +111C- 01 01 ORA ($01,X) +111E- 01 01 ORA ($01,X) +1120- 01 01 ORA ($01,X) +1122- 01 01 ORA ($01,X) +1124- 01 01 ORA ($01,X) +1126- 01 01 ORA ($01,X) +1128- 01 01 ORA ($01,X) +112A- 01 00 ORA ($00,X) +112C- 01 01 ORA ($01,X) +112E- 01 01 ORA ($01,X) +1130- 01 01 ORA ($01,X) +1132- 01 01 ORA ($01,X) +1134- 01 01 ORA ($01,X) +1136- 01 01 ORA ($01,X) +1138- 01 01 ORA ($01,X) +113A- 01 01 ORA ($01,X) +113C- 01 01 ORA ($01,X) +113E- 01 01 ORA ($01,X) +1140- 01 01 ORA ($01,X) +1142- 01 00 ORA ($00,X) +1144- 7F ??? +1145- 7F ??? +1146- 00 BRK +1147- 00 BRK +1148- 00 BRK +1149- 00 BRK +114A- 00 BRK +114B- 00 BRK +114C- 00 BRK +114D- 00 BRK +114E- 00 BRK +114F- 7F ??? +1150- 7F ??? +1151- 00 BRK +1152- 00 BRK +1153- 00 BRK +1154- 00 BRK +1155- 00 BRK +1156- 00 BRK +1157- 00 BRK +1158- 00 BRK +1159- 00 BRK +115A- 00 BRK +115B- 00 BRK +115C- 7F ??? +115D- 7F ??? +115E- 00 BRK +115F- 00 BRK +1160- 00 BRK +1161- 00 BRK +1162- 00 BRK +1163- 00 BRK +1164- 00 BRK +1165- 00 BRK +1166- 00 BRK +1167- 7F ??? +1168- 7F ??? +1169- 00 BRK +116A- 00 BRK +116B- 00 BRK +116C- 00 BRK +116D- 00 BRK +116E- 00 BRK +116F- 00 BRK +1170- 00 BRK +1171- 00 BRK +1172- 00 BRK +1173- 00 BRK +1174- 7F ??? +1175- 7F ??? +1176- 03 ??? +1177- 00 BRK +1178- 03 ??? +1179- 00 BRK +117A- 03 ??? +117B- 00 BRK +117C- 03 ??? +117D- 00 BRK +117E- 03 ??? +117F- 00 BRK +1180- 03 ??? +1181- 00 BRK +1182- 03 ??? +1183- 60 RTS +1184- 03 ??? +1185- 60 RTS +1186- 03 ??? +1187- 60 RTS +1188- 03 ??? +1189- 60 RTS +118A- 03 ??? +118B- 60 RTS +118C- 03 ??? +118D- 60 RTS +118E- 03 ??? +118F- 7F ??? +1190- 7F ??? +1191- 7F ??? +1192- 00 BRK +1193- 00 BRK +1194- 00 BRK +1195- 00 BRK +1196- 00 BRK +1197- 00 BRK +1198- 00 BRK +1199- 00 BRK +119A- 00 BRK +119B- 00 BRK +119C- 00 BRK +119D- 00 BRK +119E- 7F ??? +119F- 7F ??? +11A0- 00 BRK +11A1- 00 BRK +11A2- 00 BRK +11A3- 00 BRK +11A4- 00 BRK +11A5- 00 BRK +11A6- 00 BRK +11A7- 00 BRK +11A8- 00 BRK +11A9- 00 BRK +11AA- 00 BRK +11AB- 00 BRK +11AC- 03 ??? +11AD- 03 ??? +11AE- 03 ??? +11AF- 03 ??? +11B0- 03 ??? +11B1- 03 ??? +11B2- 03 ??? +11B3- 03 ??? +11B4- 03 ??? +11B5- 03 ??? +11B6- 03 ??? +11B7- 03 ??? +11B8- 03 ??? +11B9- 03 ??? +11BA- 03 ??? +11BB- 03 ??? +11BC- 03 ??? +11BD- 03 ??? +11BE- 03 ??? +11BF- 03 ??? +11C0- 03 ??? +11C1- 03 ??? +11C2- 03 ??? +11C3- 03 ??? +11C4- 03 ??? +11C5- 03 ??? +11C6- 03 ??? +11C7- 03 ??? +11C8- 7F ??? +11C9- 7F ??? +11CA- 7F ??? +11CB- 7F ??? +11CC- 7F ??? +11CD- 7F ??? +11CE- 7F ??? +11CF- 7F ??? +11D0- 7F ??? +11D1- 7F ??? +11D2- 7F ??? +11D3- 7F ??? +11D4- 7F ??? +11D5- 7F ??? +11D6- 7F ??? +11D7- 7F ??? +11D8- 7F ??? +11D9- 7F ??? +11DA- 7F ??? +11DB- 7F ??? +11DC- 7F ??? +11DD- 7F ??? +11DE- 7F ??? +11DF- 00 BRK +11E0- 7F ??? +11E1- 7F ??? +11E2- 7F ??? +11E3- 7F ??? +11E4- 7F ??? +11E5- 7F ??? +11E6- 7F ??? +11E7- 7F ??? +11E8- 7F ??? +11E9- 7F ??? +11EA- 7F ??? +11EB- 7F ??? +11EC- 7F ??? +11ED- 7F ??? +11EE- 7F ??? +11EF- 7F ??? +11F0- 7F ??? +11F1- 7F ??? +11F2- 7F ??? +11F3- 7F ??? +11F4- 7F ??? +11F5- 7F ??? +11F6- 7F ??? +11F7- 00 BRK +11F8- 7F ??? +11F9- 7F ??? +11FA- 7F ??? +11FB- 7F ??? +11FC- 7F ??? +11FD- 7F ??? +11FE- 7F ??? +11FF- 7F ??? +1200- 7F ??? +1201- 7F ??? +1202- 7F ??? +1203- 7F ??? +1204- 7F ??? +1205- 7F ??? +1206- 7F ??? +1207- 7F ??? +1208- 7F ??? +1209- 7F ??? +120A- 7F ??? +120B- 7F ??? +120C- 7F ??? +120D- 7F ??? +120E- 7F ??? +120F- 7F ??? +1210- 7F ??? +1211- 7F ??? +1212- 7F ??? +1213- 7F ??? +1214- 00 BRK +1215- 03 ??? +1216- 0F ??? +1217- 1F ??? +1218- 1C 3D 30 TRB $303D +121B- 3A DEC +121C- 30 75 BMI $1293 +121E- 60 RTS +121F- 6A ROR +1220- 60 RTS +1221- 75 60 ADC $60,X +1223- 3A DEC +1224- 30 35 BMI $125B +1226- 38 SEC +1227- 1E 1F 0F ASL $0F1F,X +122A- 03 ??? +122B- 00 BRK +122C- 00 BRK +122D- 40 RTI +122E- 70 78 BVS $12A8 +1230- 38 SEC +1231- 3C 0C 5C BIT $5C0C,X +1234- 0C 2E 06 TSB $062E +1237- 56 06 LSR $06,X +1239- 2E 06 5C ROL $5C06 +123C- 0C 2C 5C TSB $5C2C +123F- 78 SEI +1240- 78 SEI +1241- 70 40 BVS $1283 +1243- 00 BRK +1244- 40 RTI +1245- 03 ??? +1246- 70 0F BVS $1257 +1248- 18 CLC +1249- 19 2C 34 ORA $342C,Y +124C- 0C 31 26 TSB $2631 +124F- 64 0E STZ $0E +1251- 71 26 ADC ($26),Y +1253- 64 0C STZ $0C +1255- 31 2C AND ($2C),Y +1257- 34 18 BIT $18,X +1259- 19 70 0F ORA $0F70,Y +125C- 40 RTI +125D- 03 ??? +125E- 00 BRK +125F- 00 BRK +1260- 71 73 ADC ($73),Y +1262- 73 ??? +1263- 74 74 STZ $74,X +1265- 0C 0C 1C TSB $1C0C +1268- 1C 21 21 TRB $2121 +126B- 61 21 ADC ($21,X) +126D- 21 1C AND ($1C,X) +126F- 1C 0C 0C TRB $0C0C +1272- 74 74 STZ $74,X +1274- 73 ??? +1275- 73 ??? +1276- 71 00 ADC ($00),Y +1278- 47 ??? +1279- 67 ??? +127A- 67 ??? +127B- 17 ??? +127C- 17 ??? +127D- 18 CLC +127E- 18 CLC +127F- 1C 1C 42 TRB $421C +1282- 42 ??? +1283- 43 ??? +1284- 42 ??? +1285- 42 ??? +1286- 1C 1C 18 TRB $181C +1289- 18 CLC +128A- 17 ??? +128B- 17 ??? +128C- 67 ??? +128D- 67 ??? +128E- 47 ??? +128F- 00 BRK +1290- 47 ??? +1291- 71 67 ADC ($67),Y +1293- 73 ??? +1294- 17 ??? +1295- 74 18 STZ $18,X +1297- 0C 1C 1C TSB $1C1C +129A- 02 ??? +129B- 20 63 63 JSR $6363 +129E- 63 ??? +129F- 63 ??? +12A0- 02 ??? +12A1- 20 1C 1C JSR $1C1C +12A4- 18 CLC +12A5- 0C 17 74 TSB $7417 +12A8- 67 ??? +12A9- 73 ??? +12AA- 47 ??? +12AB- 71 00 ADC ($00),Y +12AD- 01 02 ORA ($02,X) +12AF- 0A ASL +12B0- 16 12 ASL $12,X +12B2- 12 11 ORA ($11) +12B4- 09 1D ORA #$1D +12B6- 23 ??? +12B7- 23 ??? +12B8- 23 ??? +12B9- 23 ??? +12BA- 1D 09 11 ORA $1109,X +12BD- 12 12 ORA ($12) +12BF- 16 0A ASL $0A,X +12C1- 02 ??? +12C2- 01 00 ORA ($00,X) +12C4- 00 BRK +12C5- 60 RTS +12C6- 10 14 BPL $12DC +12C8- 1A INC +12C9- 12 12 ORA ($12) +12CB- 22 ??? +12CC- 64 6E STZ $6E +12CE- 71 71 ADC ($71),Y +12D0- 71 71 ADC ($71),Y +12D2- 6E 64 22 ROR $2264 +12D5- 12 12 ORA ($12) +12D7- 1A INC +12D8- 14 10 TRB $10 +12DA- 60 RTS +12DB- 00 BRK +12DC- 00 BRK +12DD- 00 BRK +12DE- 40 RTI +12DF- 01 38 ORA ($38,X) +12E1- 0E 24 12 ASL $1224 +12E4- 24 12 BIT $12 +12E6- 5C ??? +12E7- 1D 62 23 ORA $2362,X +12EA- 62 ??? +12EB- 23 ??? +12EC- 5C ??? +12ED- 1D 24 12 ORA $1224,X +12F0- 24 12 BIT $12 +12F2- 38 SEC +12F3- 0E 40 01 ASL $0140 +12F6- 00 BRK +12F7- 00 BRK +12F8- 00 BRK +12F9- 01 01 ORA ($01,X) +12FB- 01 03 ORA ($03,X) +12FD- 03 ??? +12FE- 03 ??? +12FF- 07 ??? +1300- 07 ??? +1301- 0F ??? +1302- 3F ??? +1303- 7F ??? +1304- 3F ??? +1305- 0F ??? +1306- 07 ??? +1307- 07 ??? +1308- 03 ??? +1309- 03 ??? +130A- 03 ??? +130B- 01 01 ORA ($01,X) +130D- 01 00 ORA ($00,X) +130F- 00 BRK +1310- 00 BRK +1311- 00 BRK +1312- 00 BRK +1313- 00 BRK +1314- 40 RTI +1315- 40 RTI +1316- 40 RTI +1317- 60 RTS +1318- 60 RTS +1319- 70 7C BVS $1397 +131B- 7E 7C 70 ROR $707C,X +131E- 60 RTS +131F- 60 RTS +1320- 40 RTI +1321- 40 RTI +1322- 40 RTI +1323- 00 BRK +1324- 00 BRK +1325- 00 BRK +1326- 00 BRK +1327- 00 BRK +1328- 00 BRK +1329- 01 00 ORA ($00,X) +132B- 01 40 ORA ($40,X) +132D- 03 ??? +132E- 40 RTI +132F- 03 ??? +1330- 60 RTS +1331- 07 ??? +1332- 78 SEI +1333- 1F ??? +1334- 7E 7F 78 ROR $787F,X +1337- 1F ??? +1338- 60 RTS +1339- 07 ??? +133A- 40 RTI +133B- 03 ??? +133C- 40 RTI +133D- 03 ??? +133E- 00 BRK +133F- 01 00 ORA ($00,X) +1341- 01 00 ORA ($00,X) +1343- 00 BRK +1344- 00 BRK +1345- 00 BRK +1346- 01 03 ORA ($03,X) +1348- 03 ??? +1349- 06 06 ASL $06 +134B- 0C 0C 18 TSB $180C +134E- 30 70 BMI $13C0 +1350- 30 18 BMI $136A +1352- 0C 0C 06 TSB $060C +1355- 06 03 ASL $03 +1357- 03 ??? +1358- 01 00 ORA ($00,X) +135A- 00 BRK +135B- 00 BRK +135C- 38 SEC +135D- 7C 7E 46 JMP ($467E,X) +1360- 03 ??? +1361- 03 ??? +1362- 03 ??? +1363- 03 ??? +1364- 07 ??? +1365- 06 0C ASL $0C +1367- 18 CLC +1368- 0C 06 07 TSB $0706 +136B- 03 ??? +136C- 03 ??? +136D- 03 ??? +136E- 03 ??? +136F- 46 7E LSR $7E +1371- 7C 38 00 JMP ($0038,X) +1374- 00 BRK +1375- 00 BRK +1376- 1C 0E 3E TRB $3E0E +1379- 1F ??? +137A- 67 ??? +137B- 39 43 30 AND $3043,Y +137E- 03 ??? +137F- 30 07 BMI $1388 +1381- 38 SEC +1382- 0E 1C 1C ASL $1C1C +1385- 0E 38 07 ASL $0738 +1388- 60 RTS +1389- 01 40 ORA ($40,X) +138B- 00 BRK +138C- 00 BRK +138D- 00 BRK +138E- 00 BRK +138F- 00 BRK +1390- 7F ??? +1391- 7F ??? +1392- 48 PHA +1393- 48 PHA +1394- 48 PHA +1395- 4F ??? +1396- 4F ??? +1397- 48 PHA +1398- 48 PHA +1399- 48 PHA +139A- 48 PHA +139B- 48 PHA +139C- 48 PHA +139D- 48 PHA +139E- 48 PHA +139F- 48 PHA +13A0- 7F ??? +13A1- 7F ??? +13A2- 40 RTI +13A3- 40 RTI +13A4- 40 RTI +13A5- 7F ??? +13A6- 7F ??? +13A7- 00 BRK +13A8- 7F ??? +13A9- 7F ??? +13AA- 01 01 ORA ($01,X) +13AC- 01 7F ORA ($7F,X) +13AE- 7F ??? +13AF- 09 09 ORA #$09 +13B1- 09 09 ORA #$09 +13B3- 09 09 ORA #$09 +13B5- 09 09 ORA #$09 +13B7- 09 79 ORA #$79 +13B9- 79 09 09 ADC $0909,Y +13BC- 09 7F ORA #$7F +13BE- 7F ??? +13BF- 00 BRK +13C0- 7F ??? +13C1- 7F ??? +13C2- 19 40 19 ORA $1940,Y +13C5- 40 RTI +13C6- 79 7F 19 ADC $197F,Y +13C9- 4C 19 4C JMP $4C19 +13CC- 19 4C 19 ORA $194C,Y +13CF- 4C 19 4C JMP $4C19 +13D2- 19 4C 7F ORA $7F4C,Y +13D5- 4F ??? +13D6- 01 4C ORA ($4C,X) +13D8- 01 4C ORA ($4C,X) +13DA- 7F ??? +13DB- 7F ??? diff --git a/PSC Source Disk 2 - Editors (v11)/O_D000.txt b/PSC Source Disk 2 - Editors (v11)/O_D000.txt new file mode 100644 index 0000000..0fbbf86 --- /dev/null +++ b/PSC Source Disk 2 - Editors (v11)/O_D000.txt @@ -0,0 +1,267 @@ +D000- 4C 4B D0 JMP $D04B +D003- AA TAX +D004- A0 3F LDY #$3F +D006- B9 19 D0 LDA $D019,Y +D009- 99 C0 02 STA $02C0,Y +D00C- 88 DEY +D00D- 10 F7 BPL $D006 +D00F- A9 3F LDA #$3F +D011- 48 PHA +D012- A9 FF LDA #$FF +D014- 48 PHA +D015- 8A TXA +D016- 4C C0 02 JMP $02C0 +D019- 48 PHA +D01A- 2C 8B C0 BIT $C08B rw:LCBANK1 +D01D- 2C 8B C0 BIT $C08B rw:LCBANK1 +D020- A2 08 LDX #$08 +D022- A0 07 LDY #$07 +D024- A9 D2 LDA #$D2 +D026- 84 3A STY $3A +D028- 85 3B STA $3B +D02A- A0 00 LDY #$00 +D02C- A9 40 LDA #$40 +D02E- 84 3C STY $3C +D030- 85 3D STA $3D +D032- B1 3A LDA ($3A),Y +D034- 48 PHA +D035- B1 3C LDA ($3C),Y +D037- 91 3A STA ($3A),Y +D039- 68 PLA +D03A- 91 3C STA ($3C),Y +D03C- C8 INY +D03D- D0 F3 BNE $D032 +D03F- E6 3B INC $3B +D041- E6 3D INC $3D +D043- CA DEX +D044- D0 EC BNE $D032 +D046- 2C 81 C0 BIT $C081 rw:ROMIN +D049- 68 PLA +D04A- 60 RTS +D04B- A9 00 LDA #$00 +D04D- A0 DE LDY #$DE +D04F- AE 00 83 LDX $8300 +D052- E0 01 CPX #$01 +D054- D0 01 BNE $D057 +D056- C8 INY +D057- 85 86 STA $86 +D059- 84 87 STY $87 +D05B- 20 64 D1 JSR $D164 +D05E- A5 88 LDA $88 +D060- 0A ASL +D061- 69 20 ADC #$20 +D063- 85 83 STA $83 +D065- A9 00 LDA #$00 +D067- 85 82 STA $82 +D069- A0 24 LDY #$24 +D06B- 91 82 STA ($82),Y +D06D- 88 DEY +D06E- 10 FB BPL $D06B +D070- A9 25 LDA #$25 +D072- 85 82 STA $82 +D074- A6 88 LDX $88 +D076- E4 89 CPX $89 +D078- F0 2C BEQ $D0A6 +D07A- CA DEX +D07B- E4 89 CPX $89 +D07D- F0 27 BEQ $D0A6 +D07F- A2 02 LDX #$02 +D081- A9 00 LDA #$00 +D083- 20 31 D1 JSR $D131 +D086- A9 00 LDA #$00 +D088- 20 DE D0 JSR $D0DE +D08B- A9 C3 LDA #$C3 +D08D- 85 82 STA $82 +D08F- E6 83 INC $83 +D091- A9 02 LDA #$02 +D093- 20 DE D0 JSR $D0DE +D096- A0 0A LDY #$0A +D098- A9 00 LDA #$00 +D09A- 91 82 STA ($82),Y +D09C- 88 DEY +D09D- 10 FB BPL $D09A +D09F- E6 88 INC $88 +D0A1- C6 8A DEC $8A +D0A3- D0 B9 BNE $D05E +D0A5- 60 RTS +D0A6- A9 01 LDA #$01 +D0A8- A6 89 LDX $89 +D0AA- E0 18 CPX #$18 +D0AC- F0 02 BEQ $D0B0 +D0AE- A9 00 LDA #$00 +D0B0- 85 3C STA $3C +D0B2- A2 00 LDX #$00 +D0B4- A5 3C LDA $3C +D0B6- 20 31 D1 JSR $D131 +D0B9- 20 DC D0 JSR $D0DC +D0BC- A2 01 LDX #$01 +D0BE- A5 3C LDA $3C +D0C0- 20 31 D1 JSR $D131 +D0C3- A2 11 LDX #$11 +D0C5- 20 DC D0 JSR $D0DC +D0C8- CA DEX +D0C9- D0 FA BNE $D0C5 +D0CB- E6 3C INC $3C +D0CD- E6 3C INC $3C +D0CF- A2 00 LDX #$00 +D0D1- A5 3C LDA $3C +D0D3- 20 31 D1 JSR $D131 +D0D6- 20 DC D0 JSR $D0DC +D0D9- 4C 96 D0 JMP $D096 +D0DC- A5 3C LDA $3C +D0DE- A0 00 LDY #$00 +D0E0- 84 3A STY $3A +D0E2- 31 86 AND ($86),Y +D0E4- 4A LSR +D0E5- 66 3D ROR $3D +D0E7- 4A LSR +D0E8- 90 02 BCC $D0EC +D0EA- A0 16 LDY #$16 +D0EC- 84 3B STY $3B +D0EE- A4 3A LDY $3A +D0F0- B1 84 LDA ($84),Y +D0F2- 24 3D BIT $3D +D0F4- 10 04 BPL $D0FA +D0F6- A8 TAY +D0F7- B9 80 90 LDA $9080,Y +D0FA- A4 3B LDY $3B +D0FC- 31 82 AND ($82),Y +D0FE- 8D 0E D1 STA $D10E +D101- A4 3A LDY $3A +D103- B1 80 LDA ($80),Y +D105- 24 3D BIT $3D +D107- 10 04 BPL $D10D +D109- A8 TAY +D10A- B9 80 90 LDA $9080,Y +D10D- 09 00 ORA #$00 +D10F- A4 3B LDY $3B +D111- 91 82 STA ($82),Y +D113- B0 02 BCS $D117 +D115- C8 INY +D116- C8 INY +D117- E6 3A INC $3A +D119- 88 DEY +D11A- 84 3B STY $3B +D11C- A5 3A LDA $3A +D11E- 49 17 EOR #$17 +D120- D0 CC BNE $D0EE +D122- A9 17 LDA #$17 +D124- 18 CLC +D125- 65 82 ADC $82 +D127- 85 82 STA $82 +D129- 90 02 BCC $D12D +D12B- E6 83 INC $83 +D12D- 60 RTS +D12E- 04 34 TSB $34 +D130- 64 A0 STZ $A0 +D132- 00 BRK +D133- 31 86 AND ($86),Y +D135- 45 88 EOR $88 +D137- 4A LSR +D138- B0 02 BCS $D13C +D13A- A0 18 LDY #$18 +D13C- A5 86 LDA $86 +D13E- 85 80 STA $80 +D140- A5 87 LDA $87 +D142- 85 81 STA $81 +D144- 98 TYA +D145- 18 CLC +D146- 7D 2E D1 ADC $D12E,X +D149- 8D 5B D1 STA $D15B +D14C- 18 CLC +D14D- 65 80 ADC $80 +D14F- 85 80 STA $80 +D151- 90 02 BCC $D155 +D153- E6 81 INC $81 +D155- A9 00 LDA #$00 +D157- A0 BB LDY #$BB +D159- 18 CLC +D15A- 69 00 ADC #$00 +D15C- 85 84 STA $84 +D15E- 90 01 BCC $D161 +D160- C8 INY +D161- 84 85 STY $85 +D163- 60 RTS +D164- 20 FC D1 JSR $D1FC +D167- A0 00 LDY #$00 +D169- B1 86 LDA ($86),Y +D16B- 29 04 AND #$04 +D16D- D0 01 BNE $D170 +D16F- 60 RTS +D170- A2 02 LDX #$02 +D172- A0 00 LDY #$00 +D174- 20 3C D1 JSR $D13C +D177- 20 81 D1 JSR $D181 +D17A- 20 CB D1 JSR $D1CB +D17D- CA DEX +D17E- 10 F2 BPL $D172 +D180- 60 RTS +D181- E0 02 CPX #$02 +D183- F0 41 BEQ $D1C6 +D185- A0 2E LDY #$2E +D187- 84 3B STY $3B +D189- A0 16 LDY #$16 +D18B- 84 3A STY $3A +D18D- A9 7F LDA #$7F +D18F- 85 3C STA $3C +D191- 31 80 AND ($80),Y +D193- F0 07 BEQ $D19C +D195- A5 3C LDA $3C +D197- 0A ASL +D198- 29 7F AND #$7F +D19A- 10 F3 BPL $D18F +D19C- A5 3C LDA $3C +D19E- 91 84 STA ($84),Y +D1A0- D0 04 BNE $D1A6 +D1A2- E0 00 CPX #$00 +D1A4- F0 20 BEQ $D1C6 +D1A6- C9 7F CMP #$7F +D1A8- D0 15 BNE $D1BF +D1AA- A9 7F LDA #$7F +D1AC- A4 3B LDY $3B +D1AE- 85 3C STA $3C +D1B0- 31 80 AND ($80),Y +D1B2- F0 07 BEQ $D1BB +D1B4- A5 3C LDA $3C +D1B6- 0A ASL +D1B7- 29 7F AND #$7F +D1B9- 10 F3 BPL $D1AE +D1BB- A5 3C LDA $3C +D1BD- 91 84 STA ($84),Y +D1BF- C6 3B DEC $3B +D1C1- A4 3A LDY $3A +D1C3- 88 DEY +D1C4- 10 C5 BPL $D18B +D1C6- 60 RTS +D1C7- 31 84 AND ($84),Y +D1C9- 29 FF AND #$FF +D1CB- E0 01 CPX #$01 +D1CD- F0 F7 BEQ $D1C6 +D1CF- BD C7 D1 LDA $D1C7,X +D1D2- 8D ED D1 STA $D1ED +D1D5- BD C8 D1 LDA $D1C8,X +D1D8- 8D EE D1 STA $D1EE +D1DB- A0 2E LDY #$2E +D1DD- A9 7F LDA #$7F +D1DF- 85 3C STA $3C +D1E1- B1 80 LDA ($80),Y +D1E3- 25 3C AND $3C +D1E5- F0 04 BEQ $D1EB +D1E7- 45 3C EOR $3C +D1E9- 85 3C STA $3C +D1EB- A5 3C LDA $3C +D1ED- 11 84 ORA ($84),Y +D1EF- 91 84 STA ($84),Y +D1F1- 88 DEY +D1F2- 30 07 BMI $D1FB +D1F4- C0 17 CPY #$17 +D1F6- D0 E9 BNE $D1E1 +D1F8- 88 DEY +D1F9- D0 E2 BNE $D1DD +D1FB- 60 RTS +D1FC- A0 90 LDY #$90 +D1FE- A9 00 LDA #$00 +D200- 88 DEY +D201- 99 00 BB STA $BB00,Y +D204- D0 FA BNE $D200 +D206- 60 RTS diff --git a/PSC Source Disk 2 - Editors (v11)/O_NUMBBORD.txt b/PSC Source Disk 2 - Editors (v11)/O_NUMBBORD.txt new file mode 100644 index 0000000..1f44e93 --- /dev/null +++ b/PSC Source Disk 2 - Editors (v11)/O_NUMBBORD.txt @@ -0,0 +1,62 @@ +1000- 7F ??? +1001- 7F ??? +1002- 7F ??? +1003- 7F ??? +1004- 7F ??? +1005- 7F ??? +1006- 7F ??? +1007- 7E 3F 7E ROR $7E3F,X +100A- 1F ??? +100B- 7E 3F 7E ROR $7E3F,X +100E- 3F ??? +100F- 7E 3F 7E ROR $7E3F,X +1012- 1F ??? +1013- 7C 7F 7F JMP ($7F7F,X) +1016- 7F ??? +1017- 7F ??? +1018- 7F ??? +1019- 7F ??? +101A- 7F ??? +101B- 7F ??? +101C- 7F ??? +101D- 7F ??? +101E- 7F ??? +101F- 7F ??? +1020- 7F ??? +1021- 7F ??? +1022- 0F ??? +1023- 7E 67 7C ROR $7C67,X +1026- 7F ??? +1027- 7C 3F 7E JMP ($7E3F,X) +102A- 1F ??? +102B- 7F ??? +102C- 4F ??? +102D- 7F ??? +102E- 07 ??? +102F- 7C 7F 7F JMP ($7F7F,X) +1032- 7F ??? +1033- 7F ??? +1034- 7F ??? +1035- 7F ??? +1036- 7F ??? +1037- 7F ??? +1038- 7F ??? +1039- 7F ??? +103A- 7F ??? +103B- 7F ??? +103C- 7F ??? +103D- 7F ??? +103E- 1F ??? +103F- 7C 4F 79 JMP ($794F,X) +1042- 7F ??? +1043- 79 3F 7C ADC $7C3F,Y +1046- 7F ??? +1047- 79 4F 79 ADC $794F,Y +104A- 1F ??? +104B- 7C 7F 7F JMP ($7F7F,X) +104E- 7F ??? +104F- 7F ??? +1050- 7F ??? +1051- 7F ??? +1052- 7F ??? +1053- 7F ??? diff --git a/PSC Source Disk 2 - Editors (v11)/O_SUPPGET.txt b/PSC Source Disk 2 - Editors (v11)/O_SUPPGET.txt new file mode 100644 index 0000000..582da22 --- /dev/null +++ b/PSC Source Disk 2 - Editors (v11)/O_SUPPGET.txt @@ -0,0 +1,510 @@ +4000- 20 F3 42 JSR $42F3 +4003- A9 00 LDA #$00 +4005- 8D 0D B0 STA $B00D +4008- AD F4 95 LDA $95F4 +400B- 8D 68 AA STA $AA68 +400E- 8D EA B7 STA $B7EA +4011- 09 30 ORA #$30 +4013- C9 31 CMP #$31 +4015- D0 02 BNE $4019 +4017- A9 20 LDA #$20 +4019- 8D 53 40 STA $4053 +401C- 20 C9 42 JSR $42C9 +401F- 20 FF 41 JSR $41FF +4022- 04 01 TSB $01 +4024- 8C 00 34 STY $3400 +4027- 43 ??? +4028- 48 PHA +4029- 4F ??? +402A- 4F ??? +402B- 53 ??? +402C- 45 20 EOR $20 +402E- 41 20 EOR ($20,X) +4030- 02 ??? +4031- 0C 44 3A TSB $3A44 +4034- 05 03 ORA $03 +4036- 01 0F ORA ($0F,X) +4038- 00 BRK +4039- 5C ??? +403A- 50 4C BVC $4088 +403C- 41 43 EOR ($43,X) +403E- 45 20 EOR $20 +4040- 44 ??? +4041- 41 54 EOR ($54,X) +4043- 41 20 EOR ($20,X) +4045- 44 ??? +4046- 49 53 EOR #$53 +4048- 4B ??? +4049- 20 49 4E JSR $4E49 +404C- 20 44 52 JSR $5244 +404F- 49 56 EOR #$56 +4051- 45 20 EOR $20 +4053- 32 05 AND ($05) +4055- 05 05 ORA $05 +4057- 54 ??? +4058- 59 50 45 EOR $4550,Y +405B- 20 49 4E JSR $4E49 +405E- 20 4E 41 JSR $414E +4061- 4D 45 20 EOR $2045 +4064- 4F ??? +4065- 46 20 LSR $20 +4067- 02 ??? +4068- 0C 44 20 TSB $2044 +406B- 4F ??? +406C- 52 05 EOR ($05) +406E- 50 52 BVC $40C2 +4070- 45 53 EOR $53 +4072- 53 ??? +4073- 20 3C 52 JSR $523C +4076- 45 54 EOR $54 +4078- 55 52 EOR $52,X +407A- 4E 3E 20 LSR $203E +407D- 46 4F LSR $4F +407F- 52 20 EOR ($20) +4081- 02 ??? +4082- 0C 44 20 TSB $2044 +4085- 4C 49 53 JMP $5349 +4088- 54 ??? +4089- 05 05 ORA $05 +408B- 3E 06 00 ROL $0006,X +408E- 20 41 41 JSR $4141 +4091- AD 00 C0 LDA $C000 r:KBD w:CLR80COL +4094- 8D FF 83 STA $83FF +4097- B0 15 BCS $40AE +4099- 20 19 70 JSR $7019 +409C- D0 0D BNE $40AB +409E- 20 C9 42 JSR $42C9 +40A1- AD 13 44 LDA $4413 +40A4- F0 13 BEQ $40B9 +40A6- 20 64 41 JSR $4164 +40A9- 90 03 BCC $40AE +40AB- 4C 1C 40 JMP $401C +40AE- A9 01 LDA #$01 +40B0- 8D 68 AA STA $AA68 +40B3- 20 C9 42 JSR $42C9 +40B6- 4C C0 02 JMP $02C0 +40B9- 20 FF 41 JSR $41FF +40BC- 04 01 TSB $01 +40BE- 8C 00 14 STY $1400 +40C1- 4C 49 53 JMP $5349 +40C4- 54 ??? +40C5- 20 4F 46 JSR $464F +40C8- 20 02 0C JSR $0C02 +40CB- 44 ??? +40CC- 53 ??? +40CD- 20 4F 4E JSR $4E4F +40D0- 20 54 48 JSR $4854 +40D3- 49 53 EOR #$53 +40D5- 20 44 49 JSR $4944 +40D8- 53 ??? +40D9- 4B ??? +40DA- 3A DEC +40DB- 05 00 ORA $00 +40DD- A9 FF LDA #$FF +40DF- 8D 10 41 STA $4110 +40E2- 8D 2A 41 STA $412A +40E5- 20 65 43 JSR $4365 +40E8- EE 2A 41 INC $412A +40EB- 20 70 43 JSR $4370 +40EE- B0 39 BCS $4129 +40F0- 8D 22 41 STA $4122 +40F3- 8C 23 41 STY $4123 +40F6- EE 10 41 INC $4110 +40F9- AD 10 41 LDA $4110 +40FC- 49 0F EOR #$0F +40FE- D0 0F BNE $410F +4100- 8D 10 41 STA $4110 +4103- 20 05 80 JSR $8005 +4106- 29 7F AND #$7F +4108- C9 1B CMP #$1B +410A- F0 32 BEQ $413E +410C- 20 CC 42 JSR $42CC +410F- A9 00 LDA #$00 +4111- 0A ASL +4112- 0A ASL +4113- 0A ASL +4114- 69 24 ADC #$24 +4116- 8D 20 41 STA $4120 +4119- 20 FF 41 JSR $41FF +411C- 03 ??? +411D- 01 40 ORA ($40,X) +411F- 00 BRK +4120- FF ??? +4121- 02 ??? +4122- FF ??? +4123- FF ??? +4124- 05 00 ORA $00 +4126- 4C E8 40 JMP $40E8 +4129- A9 00 LDA #$00 +412B- D0 0E BNE $413B +412D- 20 FF 41 JSR $41FF +4130- 04 01 TSB $01 +4132- 8C 00 40 STY $4000 +4135- 4E 4F 4E LSR $4E4F +4138- 45 05 EOR $05 +413A- 00 BRK +413B- 20 05 80 JSR $8005 +413E- 4C 1C 40 JMP $401C +4141- A2 58 LDX #$58 +4143- A0 41 LDY #$41 +4145- A9 0F LDA #$0F +4147- 8E 15 8E STX $8E15 +414A- 8C 16 8E STY $8E16 +414D- 8D 17 8E STA $8E17 +4150- A9 00 LDA #$00 +4152- 8D 13 44 STA $4413 +4155- 4C 12 8E JMP $8E12 +4158- 02 ??? +4159- 00 BRK +415A- 1B ??? +415B- 00 BRK +415C- 8C 00 00 STY $0000 +415F- 02 ??? +4160- 00 BRK +4161- 13 ??? +4162- 44 ??? +4163- 02 ??? +4164- A0 0F LDY #$0F +4166- A9 20 LDA #$20 +4168- 88 DEY +4169- 99 4E 43 STA $434E,Y +416C- D0 FA BNE $4168 +416E- B9 13 44 LDA $4413,Y +4171- F0 06 BEQ $4179 +4173- 99 4E 43 STA $434E,Y +4176- C8 INY +4177- D0 F5 BNE $416E +4179- A2 49 LDX #$49 +417B- A0 43 LDY #$43 +417D- 20 09 08 JSR $0809 +4180- D0 3E BNE $41C0 +4182- A9 00 LDA #$00 +4184- D0 38 BNE $41BE +4186- 2C 83 C0 BIT $C083 rw:LCBANK2 +4189- 2C 83 C0 BIT $C083 rw:LCBANK2 +418C- A0 0C LDY #$0C +418E- B1 FA LDA ($FA),Y +4190- 29 7F AND #$7F +4192- 91 FA STA ($FA),Y +4194- C8 INY +4195- C0 47 CPY #$47 +4197- 90 F5 BCC $418E +4199- A0 2C LDY #$2C +419B- A9 58 LDA #$58 +419D- 91 FA STA ($FA),Y +419F- A0 67 LDY #$67 +41A1- A9 34 LDA #$34 +41A3- 91 FA STA ($FA),Y +41A5- A0 A2 LDY #$A2 +41A7- A9 00 LDA #$00 +41A9- 91 FA STA ($FA),Y +41AB- A0 DD LDY #$DD +41AD- A9 58 LDA #$58 +41AF- 91 FA STA ($FA),Y +41B1- A0 0B LDY #$0B +41B3- B1 FA LDA ($FA),Y +41B5- 99 16 08 STA $0816,Y +41B8- 88 DEY +41B9- 10 F8 BPL $41B3 +41BB- AD 82 C0 LDA $C082 +41BE- 18 CLC +41BF- 60 RTS +41C0- C9 06 CMP #$06 +41C2- F0 08 BEQ $41CC +41C4- 20 16 A3 JSR $A316 +41C7- 20 08 80 JSR $8008 +41CA- 38 SEC +41CB- 60 RTS +41CC- 20 C9 42 JSR $42C9 +41CF- 20 CC 6F JSR $6FCC +41D2- 20 FF 41 JSR $41FF +41D5- 04 01 TSB $01 +41D7- 8C 00 30 STY $3000 +41DA- 43 ??? +41DB- 41 4E EOR ($4E,X) +41DD- 4E 4F 54 LSR $544F +41E0- 20 46 49 JSR $4946 +41E3- 4E 44 05 LSR $0544 +41E6- 05 02 ORA $02 +41E8- 13 ??? +41E9- 44 ??? +41EA- 05 05 ORA $05 +41EC- 4F ??? +41ED- 4E 20 54 LSR $5420 +41F0- 48 PHA +41F1- 49 53 EOR #$53 +41F3- 20 44 49 JSR $4944 +41F6- 53 ??? +41F7- 4B ??? +41F8- 05 00 ORA $00 +41FA- 20 05 80 JSR $8005 +41FD- 38 SEC +41FE- 60 RTS +41FF- 68 PLA +4200- 85 3A STA $3A +4202- 68 PLA +4203- 85 3B STA $3B +4205- A9 02 LDA #$02 +4207- 8D 03 8A STA $8A03 +420A- 8D 0A 8A STA $8A0A +420D- A2 00 LDX #$00 +420F- 20 B6 42 JSR $42B6 +4212- C9 20 CMP #$20 +4214- 90 06 BCC $421C +4216- 9D 00 BB STA $BB00,X +4219- E8 INX +421A- D0 F3 BNE $420F +421C- 0A ASL +421D- A8 TAY +421E- B9 32 42 LDA $4232,Y +4221- 8D 2C 42 STA $422C +4224- B9 33 42 LDA $4233,Y +4227- 8D 2D 42 STA $422D +422A- 18 CLC +422B- 20 FF FF JSR $FFFF +422E- 90 DF BCC $420F +4230- B0 DB BCS $420D +4232- 40 RTI +4233- 42 ??? +4234- 48 PHA +4235- 42 ??? +4236- 61 42 ADC ($42,X) +4238- 81 42 STA ($42,X) +423A- 84 42 STY $42 +423C- 8A TXA +423D- 42 ??? +423E- A2 42 LDX #$42 +4240- 68 PLA +4241- 68 PLA +4242- 20 B6 42 JSR $42B6 +4245- 6C 3A 00 JMP ($003A) +4248- 20 B6 42 JSR $42B6 +424B- 8D 05 8A STA $8A05 +424E- 8D 8E 42 STA $428E +4251- 20 B6 42 JSR $42B6 +4254- 8D 06 8A STA $8A06 +4257- 8D 90 42 STA $4290 +425A- 20 B6 42 JSR $42B6 +425D- 8D 07 8A STA $8A07 +4260- 60 RTS +4261- 20 B6 42 JSR $42B6 +4264- 8D 70 42 STA $4270 +4267- 20 B6 42 JSR $42B6 +426A- 8D 71 42 STA $4271 +426D- A0 00 LDY #$00 +426F- B9 FF FF LDA $FFFF,Y +4272- F0 0B BEQ $427F +4274- C9 20 CMP #$20 +4276- 90 04 BCC $427C +4278- 9D 00 BB STA $BB00,X +427B- E8 INX +427C- C8 INY +427D- D0 F0 BNE $426F +427F- 18 CLC +4280- 60 RTS +4281- A9 00 LDA #$00 +4283- 2C A9 02 BIT $02A9 +4286- 8D 04 8A STA $8A04 +4289- 60 RTS +428A- 20 A2 42 JSR $42A2 +428D- A0 00 LDY #$00 +428F- A9 00 LDA #$00 +4291- 8C 05 8A STY $8A05 +4294- 8D 06 8A STA $8A06 +4297- AD 07 8A LDA $8A07 +429A- 18 CLC +429B- 69 08 ADC #$08 +429D- 8D 07 8A STA $8A07 +42A0- 38 SEC +42A1- 60 RTS +42A2- A9 00 LDA #$00 +42A4- 9D 00 BB STA $BB00,X +42A7- A0 00 LDY #$00 +42A9- A9 BB LDA #$BB +42AB- 8C 0C 8A STY $8A0C +42AE- 8D 0D 8A STA $8A0D +42B1- 20 00 8A JSR $8A00 +42B4- 38 SEC +42B5- 60 RTS +42B6- E6 3A INC $3A +42B8- D0 02 BNE $42BC +42BA- E6 3B INC $3B +42BC- A0 00 LDY #$00 +42BE- B1 3A LDA ($3A),Y +42C0- 60 RTS +42C1- 01 11 ORA ($11,X) +42C3- 26 A5 ROL $A5 +42C5- 01 1C ORA ($1C,X) +42C7- 26 9A ROL $9A +42C9- A2 03 LDX #$03 +42CB- 2C A2 07 BIT $07A2 +42CE- A0 03 LDY #$03 +42D0- BD C1 42 LDA $42C1,X +42D3- 99 0C 8E STA $8E0C,Y +42D6- CA DEX +42D7- 88 DEY +42D8- 10 F6 BPL $42D0 +42DA- A9 01 LDA #$01 +42DC- 4C 09 8E JMP $8E09 +42DF- 81 89 STA ($89,X) +42E1- 00 BRK +42E2- 07 ??? +42E3- 46 4F LSR $4F +42E5- 4E 54 00 LSR $0054 +42E8- D0 E8 BNE $42D2 +42EA- 42 ??? +42EB- 4F ??? +42EC- 52 44 EOR ($44) +42EE- 45 52 EOR $52 +42F0- 00 BRK +42F1- DE DF 8D DEC $8DDF,X +42F4- 83 ??? +42F5- 41 A8 EOR ($A8,X) +42F7- BE DF 42 LDX $42DF,Y +42FA- BD 00 C0 LDA $C000,X +42FD- BD 00 C0 LDA $C000,X +4300- BE E1 42 LDX $42E1,Y +4303- A0 00 LDY #$00 +4305- BD E3 42 LDA $42E3,X +4308- 99 0C 44 STA $440C,Y +430B- F0 0B BEQ $4318 +430D- C0 04 CPY #$04 +430F- B0 03 BCS $4314 +4311- 99 49 43 STA $4349,Y +4314- E8 INX +4315- C8 INY +4316- D0 ED BNE $4305 +4318- AD F5 95 LDA $95F5 +431B- 4A LSR +431C- 90 08 BCC $4326 +431E- 4D 00 83 EOR $8300 +4321- C9 01 CMP #$01 +4323- D0 01 BNE $4326 +4325- E8 INX +4326- BD E4 42 LDA $42E4,X +4329- A0 00 LDY #$00 +432B- 84 FA STY $FA +432D- 85 FB STA $FB +432F- 48 PHA +4330- 4A LSR +4331- 4A LSR +4332- 4A LSR +4333- 4A LSR +4334- 20 3B 43 JSR $433B +4337- 8D 60 43 STA $4360 +433A- 68 PLA +433B- 29 0F AND #$0F +433D- 09 30 ORA #$30 +433F- C9 3A CMP #$3A +4341- 90 02 BCC $4345 +4343- 69 06 ADC #$06 +4345- 8D 61 43 STA $4361 +4348- 60 RTS +4349- 58 CLI +434A- 58 CLI +434B- 58 CLI +434C- 58 CLI +434D- 2E 00 00 ROL $0000 +4350- 00 BRK +4351- 00 BRK +4352- 00 BRK +4353- 00 BRK +4354- 00 BRK +4355- 00 BRK +4356- 00 BRK +4357- 00 BRK +4358- 00 BRK +4359- 00 BRK +435A- 00 BRK +435B- 00 BRK +435C- 00 BRK +435D- 2C 41 24 BIT $2441 +4360- 58 CLI +4361- 58 CLI +4362- 30 30 BMI $4394 +4364- 00 BRK +4365- A9 00 LDA #$00 +4367- 85 FE STA $FE +4369- A0 11 LDY #$11 +436B- 20 DD 43 JSR $43DD +436E- 38 SEC +436F- 60 RTS +4370- A5 FC LDA $FC +4372- 18 CLC +4373- 69 23 ADC #$23 +4375- 85 FC STA $FC +4377- 90 02 BCC $437B +4379- E6 FD INC $FD +437B- C6 FE DEC $FE +437D- 10 19 BPL $4398 +437F- AC 14 44 LDY $4414 +4382- AD 15 44 LDA $4415 +4385- F0 E7 BEQ $436E +4387- 20 DD 43 JSR $43DD +438A- A0 FB LDY #$FB +438C- A9 43 LDA #$43 +438E- 84 FC STY $FC +4390- 85 FD STA $FD +4392- A9 07 LDA #$07 +4394- 85 FE STA $FE +4396- D0 D8 BNE $4370 +4398- A0 00 LDY #$00 +439A- B1 FC LDA ($FC),Y +439C- 30 D2 BMI $4370 +439E- F0 CE BEQ $436E +43A0- C8 INY +43A1- C8 INY +43A2- B1 FC LDA ($FC),Y +43A4- 29 7F AND #$7F +43A6- C9 04 CMP #$04 +43A8- D0 C6 BNE $4370 +43AA- A2 00 LDX #$00 +43AC- C8 INY +43AD- B1 FC LDA ($FC),Y +43AF- 29 7F AND #$7F +43B1- DD 49 43 CMP $4349,X +43B4- D0 BA BNE $4370 +43B6- E8 INX +43B7- E0 05 CPX #$05 +43B9- 90 F1 BCC $43AC +43BB- A0 20 LDY #$20 +43BD- B1 FC LDA ($FC),Y +43BF- 49 A0 EOR #$A0 +43C1- D0 05 BNE $43C8 +43C3- 91 FC STA ($FC),Y +43C5- 88 DEY +43C6- 10 F5 BPL $43BD +43C8- B1 FC LDA ($FC),Y +43CA- 29 7F AND #$7F +43CC- 91 FC STA ($FC),Y +43CE- 88 DEY +43CF- D0 F7 BNE $43C8 +43D1- A5 FC LDA $FC +43D3- A4 FD LDY $FD +43D5- 18 CLC +43D6- 69 08 ADC #$08 +43D8- 90 01 BCC $43DB +43DA- C8 INY +43DB- 18 CLC +43DC- 60 RTS +43DD- 8D ED B7 STA $B7ED +43E0- 8C EC B7 STY $B7EC +43E3- A9 00 LDA #$00 +43E5- 8D EB B7 STA $B7EB +43E8- A0 13 LDY #$13 +43EA- A9 44 LDA #$44 +43EC- 8C F0 B7 STY $B7F0 +43EF- 8D F1 B7 STA $B7F1 +43F2- A9 01 LDA #$01 +43F4- 8D F4 B7 STA $B7F4 +43F7- 20 E3 03 JSR $03E3 +43FA- 20 D9 03 JSR $03D9 +43FD- B0 01 BCS $4400 +43FF- 60 RTS +4400- 68 PLA +4401- 68 PLA +4402- 68 PLA +4403- 68 PLA +4404- A9 08 LDA #$08 +4406- 20 C0 41 JSR $41C0 +4409- 4C 1C 40 JMP $401C diff --git a/PSC Source Disk 2 - Editors (v11)/O_SUPPHEADER.txt b/PSC Source Disk 2 - Editors (v11)/O_SUPPHEADER.txt new file mode 100644 index 0000000..e88436f --- /dev/null +++ b/PSC Source Disk 2 - Editors (v11)/O_SUPPHEADER.txt @@ -0,0 +1,97 @@ +6300- 48 PHA +6301- 2C 8B C0 BIT $C08B rw:LCBANK1 +6304- 2C 8B C0 BIT $C08B rw:LCBANK1 +6307- A2 08 LDX #$08 +6309- A0 00 LDY #$00 +630B- B9 CA 63 LDA $63CA,Y +630E- 99 00 D0 STA $D000,Y +6311- C8 INY +6312- D0 F7 BNE $630B +6314- EE 0D 63 INC $630D +6317- EE 10 63 INC $6310 +631A- CA DEX +631B- D0 EE BNE $630B +631D- BD 51 63 LDA $6351,X +6320- F0 1D BEQ $633F +6322- A0 00 LDY #$00 +6324- BD 51 63 LDA $6351,X +6327- E8 INX +6328- 99 3A 00 STA $003A,Y +632B- C8 INY +632C- C0 03 CPY #$03 +632E- 90 F4 BCC $6324 +6330- A0 00 LDY #$00 +6332- BD 51 63 LDA $6351,X +6335- E8 INX +6336- 91 3B STA ($3B),Y +6338- C8 INY +6339- C6 3A DEC $3A +633B- D0 F5 BNE $6332 +633D- F0 DE BEQ $631D +633F- 68 PLA +6340- 20 03 D0 JSR $D003 +6343- A0 3B LDY #$3B +6345- B9 8E 63 LDA $638E,Y +6348- 99 25 02 STA $0225,Y +634B- 88 DEY +634C- 10 F7 BPL $6345 +634E- 4C 25 02 JMP $0225 +6351- 09 8B ORA #$8B +6353- 0B ??? +6354- 2C 8B C0 BIT $C08B rw:LCBANK1 +6357- 2C 8B C0 BIT $C08B rw:LCBANK1 +635A- 4C 03 D0 JMP $D003 +635D- 1C D0 88 TRB $88D0 +6360- 38 SEC +6361- 66 4E ROR $4E +6363- 38 SEC +6364- E9 20 SBC #$20 +6366- AA TAX +6367- BD 00 60 LDA $6000,X +636A- C5 4E CMP $4E +636C- B0 02 BCS $6370 +636E- 85 4E STA $4E +6370- 4C 76 8C JMP $8C76 +6373- A5 4E LDA $4E +6375- 18 CLC +6376- 6D 0A 8A ADC $8A0A +6379- 85 D9 STA $D9 +637B- 60 RTS +637C- 02 ??? +637D- 10 8C BPL $630B +637F- D0 88 BNE $6309 +6381- 02 ??? +6382- 28 PLP +6383- 8C D3 88 STY $88D3 +6386- 04 3F TSB $3F +6388- 8C 20 E3 STY $E320 +638B- 88 DEY +638C- EA NOP +638D- 00 BRK +638E- 18 CLC +638F- 20 4B 02 JSR $024B +6392- 20 3E 02 JSR $023E +6395- A2 27 LDX #$27 +6397- A0 0B LDY #$0B +6399- 20 D2 0C JSR $0CD2 +639C- D0 F4 BNE $6392 +639E- 38 SEC +639F- 20 4B 02 JSR $024B +63A2- 68 PLA +63A3- 68 PLA +63A4- 4C 53 0B JMP $0B53 +63A7- AD F4 95 LDA $95F4 +63AA- C9 02 CMP #$02 +63AC- F0 03 BEQ $63B1 +63AE- 4C 15 78 JMP $7815 +63B1- 4C F9 77 JMP $77F9 +63B4- A0 1E LDY #$1E +63B6- B0 08 BCS $63C0 +63B8- B9 00 70 LDA $7000,Y +63BB- 99 61 02 STA $0261,Y +63BE- 90 06 BCC $63C6 +63C0- B9 61 02 LDA $0261,Y +63C3- 99 00 70 STA $7000,Y +63C6- 88 DEY +63C7- 10 ED BPL $63B6 +63C9- 60 RTS diff --git a/PSC Source Disk 2 - Editors (v11)/S_BOEDIT.txt b/PSC Source Disk 2 - Editors (v11)/S_BOEDIT.txt new file mode 100644 index 0000000..65231c6 --- /dev/null +++ b/PSC Source Disk 2 - Editors (v11)/S_BOEDIT.txt @@ -0,0 +1,3 @@ + NLS +; S:BOEDIT + ICL "S:BOEDIT1" diff --git a/PSC Source Disk 2 - Editors (v11)/S_BOEDIT1.txt b/PSC Source Disk 2 - Editors (v11)/S_BOEDIT1.txt new file mode 100644 index 0000000..4eceeae --- /dev/null +++ b/PSC Source Disk 2 - Editors (v11)/S_BOEDIT1.txt @@ -0,0 +1,459 @@ + TTL "S:BOEDIT" +; S:BOEDIT1 + NOG +ORG = $4000 +; +; 06/03/85 +; 07/24/85 last mod +; +; The Print Shop COMPANION +; +; Border Editor +; +; Copyright 1985 +; by Roland Gustafsson +; +DAT EPZ $00 +; +BORDER EPZ DAT +XCOOR EPZ DAT+2 +YCOOR EPZ DAT+3 +SECTION EPZ DAT+4 +BUTTON EPZ DAT+5 +OLDXCOOR EPZ DAT+6 +OLDYCOOR EPZ DAT+7 +MINICNT EPZ DAT+8 +CNSTRAIN EPZ DAT+9 +; +; Temporary z-page for use within +; subroutines +; +HIRES1 EPZ $40 +HIRES2 EPZ $42 +HIRES3 EPZ $44 +; +; Absolute references: +; +BORDBASE = $7800 +BORDLEN = $94 +UNDOBUFF = $7900 +FFBUFFER = $7A00 +FFSTACK = $7B00 +; +; Constants: +; +XMAX = 23 +YMAX = 14 +; +XOFFSET = 5 +YOFFSET = 45 +; +MINIX1 = 1 +MINIY1 = 23 +MINIW1 = 11 +MINIH1 = 11 +; +MINIX2 = 28 +MINIY2 = 79 +MINIW2 = 4 +MINIH2 = 4 +; +INFO1Y = 123 +; +XCENT = 223 +XEDGE = 170 +XEDGEB = XEDGE/7 +XR1 = 13 +XR2 = 24 +; +LOCKX = 37 +LOCKY = 9 +;----------- + ORG ORG + OBJ $800 +;----------- + JSR SETTYPE +TXTBORD BYT 'BORDER',0 +BETEXT BYT 'BORDER EDITOR',0 + BYT 'BORD.',0 + BYT 2 + ADR BORDBASE + ADR BORDLEN +; + JSR ZEROBORD + LDA #0 + STA MINICNT +;----------------------- +; +; Draw Border Editor main screen +; + JSR SCREEN1 + JSR BUFFSAVE + JMP MAINLOOP +; + ASC "(C) 1985" + ASC "R GUSTAFSSON" +;--- +TXTCTRL BYT 'CTRL-',0 +TXTEB BYT 'EDIT BOX',0 +;----------- +; +; Get a border +; +BRGET JSR GETTEXT + JSR PRINT + BYT PRCNTR + .DA #PRLOC,140,#60 + .DA #PRSTR,CABTEXT,#CR + BYT CR,CR + BYT 'FROM PRINT SHOP DISK',CR + BYT 'FROM COMPANION DISK',CR + BYT 'FROM OTHER DISK',CR,0 +; +^0 LDY #00 + JSR SELECT + BYT 6,28,83,3 + ADR RTS + BCS >1 +; + STY <0+1 + JSR >2 + BCS BRGET + JSR BUFFSAVE +^1 JMP SCREEN1 +; +^2 JSR JMPVECTS + ADR GETPSDSK + ADR GETCPDSK + ADR GETOTDSK +; +CABTEXT BYT 'CHOOSE A BORDER:',0 +; +GETCPDSK LDA #0 + CLC + HEX 24 +GETOTDSK SEC + JMP GETFILE +;----------- +; +; "GET" text window +; +GETTEXT JSR WITEBORD + JSR PRINT + BYT PRINVR,PRRITE + .DA #PRLOC,149,#4 + .DA #PRSTR,BETEXT + BYT ':',CR + BYT PRBIG,PRLEFT + .DA #PRLOC,160,#1 + BYT 'GET',CR,0 + JMP ESCBACK +;----------- +; +; Save a border +; +BRSAVE JSR SAVEFILE + JMP SCREEN1 +;----------- +; +; Print the border +; +BRPRINT JSR BLAKBOTM + JSR PRINT + .DA #PRLOC,140,#185 + BRK + LDA #'-' + JSR CHKPRINT + BCS >0 + JSR PRINT + BYT PRCNTR + .DA #PRSTR,TXTPRET + BYT ' TO PRINT ' + .DA #PRSTR,TXTBORD,#CR,#0 + JSR GETKEY + CMP #CR + BNE >0 + JSR PRINTBR +^0 JMP SHOWBOTM +;----------- +; +; Clear the border +; +CMDCLEAR JSR BLAKBOTM + JSR PRINT + BYT PRCNTR + .DA #PRLOC,140,#185 + .DA #PRSTR,TXTRET + BYT ' TO CLEAR ' + .DA #PRSTR,TXTBORD + BYT CR,0 + JSR GETKEY + CMP #CR + BNE >0 + JSR BUFFSAVE + JSR BRINIT + JSR MINITURE +^0 JMP SHOWBOTM +;----------- +; +; Quit? +; +QUIT JSR BLAKBOTM + JSR PRINT + .DA #PRLOC,140,#185 + BYT PRCNTR + .DA #PRSTR,TXTPRET + BYT ' TO ' + BYT 'GO TO MAIN MENU',NOCR,0 + JSR GETKEY + CMP #CR + BEQ >0 + JMP SHOWBOTM +^0 JMP MAINMENU +; +TXTPRET BYT 'PRESS ' +TXTRET BYT '',0 +;----------- +; +; Draw starup screen +; +SCREEN1 JSR CLSCREEN + JSR PRINT + BYT RTOSWITE,0,0,24,16 + BYT PRINVR,PRCNTR + .DA #PRLOC,84,#4 + .DA #PRSTR,BETEXT,#CR +; + BYT RTOSANY,$70,MINIX1-1,MINIY1-3 + BYT 1,6+14*MINIH1 + BYT RTOSWITE,MINIX1,MINIY1-3 + BYT 2*MINIW1,6+14*MINIH1 + BYT RTOSANY,$07,MINIX1+2*MINIW1,MINIY1-3 + BYT 1,6+14*MINIH1 + BRK +; +; Draw border window +; +MX1 = XOFFSET*7 +MY1 = YOFFSET +; + JSR LINES + BYT 'H' +; BYT BLAK,MX1-4,MY1-4,102,BLAK,MX1-4,MY1-3,102 + BYT GRAY,MX1-2,MY1-2,98,GRAY,MX1-2,MY1-1,98 + BYT GRAY,MX1-2,MY1+42,98,GRAY,MX1-2,MY1+43,98 +; BYT BLAK,MX1+48,MY1+44,50,BLAK,MX1+48,MY1+45,50 + BYT GRAY,MX1-2,MY1+86,48,GRAY,MX1-2,MY1+87,48 +; BYT BLAK,MX1-4,MY1+88,54,BLAK,MX1-4,MY1+89,54 + BYT 1 +; + JSR LINES + BYT 'V' +; BYT BLAK,MX1-4,MY1-4,94,BLAK,MX1-3,MY1-4,94 + BYT GRAY,MX1-2,MY1-2,90,GRAY,MX1-1,MY1-2,90 + BYT GRAY,MX1+46,MY1-2,90,GRAY,MX1+47,MY1-2,90 +; BYT BLAK,MX1+48,MY1+44,46,BLAK,MX1+49,MY1+44,46 + BYT GRAY,MX1+94,MY1-2,46,GRAY,MX1+95,MY1-2,46 +; BYT BLAK,MX1+96,MY1-4,50,BLAK,MX1+97,MY1-4,50 + BYT 1 +; + JSR PRINT + BYT PRINVR + BYT PRSPC,44 + .DA #PRLOC,MX1-9,#MY1+17 + BYT '1',NOCR + BYT PRRTAB2,107 + BYT '2',CR + .DA #PRHTAB,MX1-10 + BYT '3',NOCR + BRK +; +; Draw miniature greeting card border +; + JSR MINITURE + JSR SHOWRITE + JMP BRCENTER +;----------- +BLAKRITE JSR PRINT + BYT RTOSBLAK,XEDGEB,0,40-XEDGEB,192 + BYT RTOSWITE,XEDGEB,61,40-XEDGEB,2 + BYT RTOSWITE,XEDGEB,177,40-XEDGEB,2 + BRK + RTS +; +BLAKBOTM JSR PRINT + BYT RTOSBLAK,0,181,40,11,0 + RTS +; +BLAKPAGE JSR PRINT + BYT RTOSBLAK,XEDGEB,63,40-XEDGEB,114,0 + RTS +;----------- +; +; Display help info on right side +; of screen +; +SHOWRITE JSR BLAKRITE + LDX #XEDGEB + LDY #0 + TYA + JSR SHOWAROW + JSR PRINT + .DA #PRLOC,XEDGE+45,#11 + BYT 'MOVE',CR + BYT 'CURSOR',CR + .DA #PRLOC,XCENT,#41 + BYT PRCNTR + BYT PRCSPACE,1 + BYT 'USE 1, 2 OR 3 TO',CR + BYT 'SELECT ' + .DA #PRSTR,TXTEB,#CR +; + BRK +; + JSR SHOWPAGE +; +; Display bottom +; +SHOWBOTM JSR BLAKBOTM + JSR SHOWCOOR + JSR PRINT + .DA #PRHTAB,164 + BYT PRRITE,PRCSPACE,1 + BYT 'U - UNDO',NOCR + BRK + LDA #XEDGEB+1 + JSR SPACEBAR + CLC + RTS +;----------- +; +; Show coor X= Y= +; +SHOWCOOR JSR PRINT + .DA #PRLOC,7,#185 + BYT 'X=',NOCR + BYT PRRTAB,42 + BYT 'Y=',NOCR,0 + RTS +;----------- +; +; Show next help page +; +CMDSPACE INC PAGENUM + LDA PAGENUM + EOR #4 + BNE SHOWPAGE + STA PAGENUM +; +; Show current help page +; +SHOWPAGE JSR BLAKPAGE + JSR >0 + CLC + RTS +; +^0 LDY #00 +PAGENUM = *-1 + JSR JMPVECTS + ADR PAGE1 + ADR PAGE2 + ADR PAGE3 + ADR PAGE4 +;----------- +PAGE1 JSR PRINT + BYT PRSPC,15 + .DA #PRLOC,XEDGE,#71 + .DA #PRSTR,TXTCTRL,'S',#CR + .DA #PRSTR,TXTCTRL,'G',#CR + .DA #PRSTR,TXTCTRL,'P',#CR + .DA #PRSTR,TXTCTRL,'C',#CR + .DA #PRSTR,TXTCTRL,'D',#CR + .DA #PRSTR,TXTCTRL,'Q',#CR + .DA #PRSTR,TXTCTRL,'L',#CR + .DA #PRLOC,277,#71 + BYT PRRITE + BYT 'SAVE',CR + BYT 'GET',CR + BYT 'PRINT',CR + BYT 'CLEAR',CR + BYT 'DEVICE',CR + BYT 'QUIT',CR + BYT 'LOCK',CR + BRK + RTS +;----------- +P2SPC = 11 +; +PAGE2 JSR PRINT + BYT PRCSPACE,1 + BYT PRSPC,P2SPC + .DA #PRLOC,XEDGE,#67 + BYT 'D - DRAW',CR + BYT 'E',PRRTAB,XR1,'- ERASE',CR +; + BYT PRSPC,8 + BYT 'H - FLIP',CR + BYT PRSPC,P2SPC,PRRTAB,XR2 + BYT 'HORIZONTAL',CR +; + BYT PRSPC,8 + BYT 'V',PRRTAB,XR1,'- FLIP',CR + BYT PRSPC,P2SPC,PRRTAB,XR2 + BYT 'VERTICAL',CR +; + BYT 'N',PRRTAB,XR1,'- NEGATIVE',CR + BRK + LDX #XEDGEB + LDY #136 + LDA #1 + JSR SHOWAROW + JSR PRINT + .DA #PRLOC,XEDGE+45,#151 + BYT 'SCROLL',CR + BRK + RTS +;----------- +P3Y = 66 +PAGE3 JSR PRINT + .DA #PRLOC,XCENT,#P3Y + BYT PRCNTR,PRCSPACE,1 + .DA #PRSTR,TXTBORD + BYT ' LAYOUT:',CR + BYT PRLEFT + .DA #PRLOC,XEDGE,#MINIY2+6+MINIH2*14 + BYT 'B - FLIP BOTTOM',CR + BYT 'R - FLIP RIGHT',CR + BYT 'T',PRRTAB,XR1,'- TILE',CR + BYT PRRTAB,XR2,'BOUNDARY',CR + BRK + JMP PAG3DIAG +;----------- +P4Y = 83 +; +FFXLOC = 37 +FFYLOC = 131 +; +PAGE4 JSR PRINT + .DA #PRLOC,XEDGE,#P4Y + BYT 'C',PRRTAB,XR1,'-',PRRTAB,XR2,'COPY THE',CR + BYT PRRTAB2,XR2 + BYT 'CURRENT',CR + .DA #PRSTR,TXTEB,' TO',#CR + BYT 'THE OTHER',CR + .DA #PRSTR,TXTEB,'ES',#CR + BYT CR + .DA #PRHTAB,XEDGE + BYT 'P',PRRTAB,XR1,'-',PRRTAB,XR2,'PATTERN',CR + BYT RTOSANY,$70,FFXLOC,FFYLOC-1,1,10 + BYT RTOSWITE,FFXLOC+1,FFYLOC-1,1,10 + BYT RTOSANY,$03,FFXLOC+2,FFYLOC-1,1,10 + BYT CR + BYT 'F',PRRTAB,XR1,'-',PRRTAB,XR2,'FLOOD FILL',CR + BRK + JMP SHOWFILL +;----------- +; +; +; + ICL "S:BOEDIT2" diff --git a/PSC Source Disk 2 - Editors (v11)/S_BOEDIT2.txt b/PSC Source Disk 2 - Editors (v11)/S_BOEDIT2.txt new file mode 100644 index 0000000..f6f5b60 --- /dev/null +++ b/PSC Source Disk 2 - Editors (v11)/S_BOEDIT2.txt @@ -0,0 +1,816 @@ +; +; S:BOEDIT2 +; +; Here is the Main Loop +; +MAINLOOP LDX XCOOR + LDY YCOOR + STX OLDXCOOR + STY OLDYCOOR + JSR DEVICEST +; +^0 JSR SETFLASH + LDX MINICNT + BEQ >1 + DEX + STX MINICNT + BNE >1 + JSR MINITURE +; +^1 LDY #1 + JSR DEVICERD + BCS >2 +; + STA BUTTON + JSR DODEVICE + BIT BUTTON + BMI >3 + BVC >2 + LDX #0 + STX MINICNT + JSR MINITURE +; +^2 LDA #0 + STA CNSTRAIN + JSR POLEKEY + BMI KEYPRESS +; +^3 DEC FLASHLO + BNE <1 + DEC FLASHHI + BPL <1 + BMI <0 +; +KEYPRESS STA >1+1 + JSR BRRESET + LDY #$FC +^0 INY + INY + INY + INY + LDA COMMANDS,Y + BEQ MAINLOOP +^1 CMP #00 + BNE <0 +; + CPY #LOCKSTOP-COMMANDS + BLT >1 + JSR LOCKOFF +; +^1 CPY #MOVECOM?-COMMANDS + BGE >1 + LDA #00 +LOCKMODE = *-1 + BPL >1 + TYA + PHA + LDA #2 + STA MINICNT + JSR PLOT + PLA + TAY +; +^1 LDA COMMANDS+1,Y + LDX #$20 + LSR + BCS *+4 + LDX #$2C + STX >2+0 +; + LDX #$20 + LSR + BCS *+4 + LDX #$2C + STX >4+0 +; + LDA COMMANDS+2,Y + STA >3+1 + LDA COMMANDS+3,Y + STA >3+2 +; +^2 JSR BUFFSAVE +; + LDX XCOOR + LDY YCOOR + LDA SECTION +; +^3 JSR $FFFF +^4 JSR MINITURE + JMP MAINLOOP +; +; #key,,
+; +; byte 1= bit 0:BUFFSAVE? +; bit 1:MINITURE? +; +COMMANDS .DA #'I',#0,MOVEUP + .DA #$0B,#0,MOVEUP + .DA #'M',#0,MOVEDOWN + .DA #$0A,#0,MOVEDOWN + .DA #'J',#0,MOVELEFT + .DA #$08,#0,MOVELEFT + .DA #'K',#0,MOVERITE + .DA #$15,#0,MOVERITE +MOVECOM?: + .DA #'L'-$40,#0,TOGGLOCK + .DA #'D',#3,BRSET + .DA #'E',#3,BRCLEAR +LOCKSTOP: + .DA #'C',#3,BRCOPY + .DA #'C'-$40,#0,CMDCLEAR + .DA #'F',#3,FLODFILL + .DA #'P',#0,NEXTPATT +; + .DA #'W',#2,SCRLUP + .DA #'Z',#2,SCRLDOWN + .DA #'A',#2,SCRLLEFT + .DA #'S',#2,SCRLRITE +; + .DA #'H',#2,FLIPHORI + .DA #'V',#2,FLIPVERT + .DA #'N',#2,BRNEGATI +; + .DA #'1',#0,SECTION1 + .DA #'2',#0,SECTION2 + .DA #'3',#0,SECTION3 +; + .DA #$07,#0,BRGET + .DA #$13,#0,BRSAVE + .DA #$11,#0,QUIT +; + .DA #'T',#2,TGLMASK + .DA #'R',#2,TGLRITE + .DA #'B',#2,TGLBOTT +; + .DA #'U',#2,UNDO +; + .DA #' ',#0,CMDSPACE + .DA #'D'-$40,#0,NWDEVICE + .DA #'P'-$40,#0,BRPRINT +; + BRK +;----------- +; +; Input device handler +; +DODEVICE CPX XCOOR + BNE >0 + CPY YCOOR + BEQ >3 +; +; Device moved +; +^0 LDA CNSTRAIN + BPL >1 +; +; Figure out which direction +; to constrain +; + LDA #1 + CPX XCOOR + BEQ *+3 + ASL + STA CNSTRAIN +; +^1 STX >1+1 + STY >2+1 + JSR BRRESET + LDX XCOOR + LDY YCOOR + STX OLDXCOOR + STY OLDYCOOR +^1 LDX #00 +^2 LDY #00 + JSR DEVCONST +; +; If button down, plot new point +; else, just plot cursor. +; + BIT BUTTON + BMI DOBUTTON + BPL SETFLASH +; +; End up here if device didn't move. +; If button is not down or if button +; was down last time, then exit. +; +^3 STX OLDXCOOR + STY OLDYCOOR + BIT BUTTON + BPL DEVRTS + BVS DEVRTS +; +; Handle button press +; +DOBUTTON BVS >0 +; +; Button down for first time, so +; get bit and invert. +; + LDA LOCKMODE + STA CNSTRAIN + JSR BUFFSAVE + JSR SETPLOTX +; +; Plot current position and +; set new cursor. +; +^0 JSR PLOT +; +; After flashing cursor in the +; same place 10 times, then +; display the miniature. +; + LDA #10 + STA MINICNT +; +SETFLASH JSR BRFLASH + JSR FLSHINIT +; +; Display X,Y coordinates +; +SHOWXY LDA XCOOR + LDX #4 + LDY #185 + JSR NUMBER + LDA YCOOR + LDX #10 + LDY #185 + JMP NUMBER +; +DEVRTS RTS +; +; Device input constrain +; but only when the constrain +; feature is selected. +; +DEVCONST BIT DEVRTS + LDA CNSTRAIN + BEQ DEVCLAMP +; + LSR + BCC >0 +; +; Constrain X? +; + CPX XCOOR + BEQ DEVCLMP2 + LDX XCOOR + CLV + BVC DEVCLMP2 +; +; Constrain Y? +; +^0 CPY YCOOR + BEQ DEVCLMP2 + LDY YCOOR + CLV + BVC DEVCLMP2 +; +; Input device clamping +; +DEVCLAMP BIT DEVRTS +DEVCLMP2 CPX #XMAX + BLT >0 + CLV + LDX #XMAX-1 +^0 CPY #YMAX + BLT >1 + CLV + LDY #YMAX-1 +^1 STX XCOOR + STY YCOOR + BVS DEVRTS + JMP DEVICEST +;----------- +; +; Given XCOOR,YCOOR set PLOT routine +; to opposite of whatever is in this +; coordinate +; +SETPLOTX JSR GETMASK + AND (BORDER),Y +SETPLOT PHP + LDY #CLRBIT + LDX /CLRBIT + PLP + BNE >0 + LDY #SETBIT + LDX /SETBIT +^0 STY PLOT+1 + STX PLOT+2 + RTS +; +PLOT JMP SETBIT +;----------- +; +; Swap UNDO buffer and EDIT buffer +; +UNDO JSR UNDO2 + JMP BRDRAWAL +; +UNDO2 LDY #0 +^0 LDA BORDBASE,Y + PHA + LDA UNDOBUFF,Y + STA BORDBASE,Y + PLA + STA UNDOBUFF,Y + INY + CPY #$94 + BNE <0 + RTS +; +BUFFSAVE LDY #0 +^0 LDA BORDBASE,Y + STA UNDOBUFF,Y + INY + CPY #$94 + BNE <0 + RTS +;----------- +; +; Scroll left/right +; +SCRLLEFT LDX #1 + HEX 2C +SCRLRITE LDX #22 +; +^0 LDY #0 +^1 LDA (BORDER),Y + PHA +^2 INY + LDA (BORDER),Y + DEY + STA (BORDER),Y + INY + CPY #22 + BEQ >3 + CPY #46 + BNE <2 +^3 PLA + STA (BORDER),Y + INY + INY + CPY #24 + BEQ <1 + DEX + BNE <0 + JMP BRDRAW +;----------- +; +; Scroll up/down +; +SCRLUP LDX #1 + HEX 2C +SCRLDOWN LDX #13 +; +^0 LDY #0 +^1 LDA (BORDER),Y + LSR + LDA #0 + ROR + STA TMP0 + TYA + PHA + CLC + ADC #24 + TAY + LDA TMP0 + ORA (BORDER),Y + LSR + STA (BORDER),Y + PLA + TAY + LDA #0 + ROR + ORA (BORDER),Y + LSR + STA (BORDER),Y + INY + CPY #23 + BLT <1 + DEX + BNE <0 + JMP BRDRAW +;----------- +; +; Flip vertical +; +FLIPVERT LDY #0 +^0 LDA (BORDER),Y + TAX + TYA + PHA + CLC + ADC #24 + TAY + LDA (BORDER),Y + PHA + LDA FLIPPER,X + STA (BORDER),Y + PLA + TAX + PLA + TAY + LDA FLIPPER,X + STA (BORDER),Y + INY + CPY #23 + BLT <0 + JMP BRDRAW +;----------- +; +; Flip horizontal +; +FLIPHORI LDA #0 + HEX 2C +FLIPHOR2 LDA #24 + STA TMP0 + CLC + ADC #22 + STA TMP1 + LDX #11 +^0 LDY TMP0 + LDA (BORDER),Y + PHA + LDY TMP1 + LDA (BORDER),Y + LDY TMP0 + STA (BORDER),Y + PLA + LDY TMP1 + STA (BORDER),Y + INC TMP0 + DEC TMP1 + DEX + BNE <0 + LDA TMP0 + CMP #24 + BLT FLIPHOR2 + JMP BRDRAW +;----------- +; +; Move up +; +MOVEUP DEY + BPL MOVEDONE + LDY #YMAX-2 +; +; Move down +; +MOVEDOWN INY + CPY #YMAX + BLT MOVEDONE + LDY #0 +; +; Set new coordinates +; +MOVEDONE STX XCOOR + STY YCOOR + RTS +; +; Move left +; +MOVELEFT DEX + BPL MOVEDONE + LDX #XMAX-2 +; +; Move right +; +MOVERITE INX + CPX #XMAX + BLT MOVEDONE + LDX #0 + BEQ MOVEDONE +;----------- +; +; Move cursor to section +; +SECTION1 LDA #0 + HEX 2C +SECTION2 LDA #1 + HEX 2C +SECTION3 LDA #2 +; +; Given A=section, set BORDER pointer +; and SECTION to correct values +; +SETBORD STA SECTION + ASL + ADC SECTION + ASL + ASL + ASL + ASL + ADC #4 + STA BORDER + LDA /BORDBASE + STA BORDER+1 + RTS +;----------- +; +; Zero out border area +; +ZEROBORD LDY #$94 + LDA #0 +^0 DEY + STA BORDBASE,Y + BNE <0 +^1 RTS +;----------- +; +; Initialize border data +; +BRINIT JSR ZEROBORD +; +; Center the cursor +; +BRCENTER LDX #11 + LDY #6 + STX XCOOR + STY YCOOR +; +; Start with corner +; + LDA #0 + JSR SETBORD +; +; fall into re-draw routine +; +;----------- +; +; Draw all sections +; restore old section +; +BRDRAWAL JSR SHOWMASK + LDA SECTION + PHA + LDY #0 +^0 STY SECTION + TYA + JSR SETBORD + JSR BRDRAW + LDY SECTION + INY + CPY #3 + BLT <0 + PLA + JMP SETBORD +;----------- +; +; Copy from 0 to 1 and 2 +; +BRCOPY LDY #47 +^0 LDA (BORDER),Y + STA BORDBASE+$04,Y + STA BORDBASE+$34,Y + STA BORDBASE+$64,Y + DEY + BPL <0 + BMI BRDRAWAL +;----------- +; +; Draw current section +; +BRDRAW LDA XCOOR + PHA + LDA YCOOR + PHA + LDY #0 + STY XCOOR +^0 STY YCOOR + JSR BRRESET +; + LDY YCOOR + INY + CPY #14 + BLT <0 +; + LDY #0 + INC XCOOR + LDA XCOOR + CMP #23 + BLT <0 + PLA + STA YCOOR + PLA + STA XCOOR + RTS +;----------- +; +; Restore current location, use +; after BRFLASH +; +BRRESET JSR GETMASK + AND (BORDER),Y + BEQ >0 + JMP PLOTON +^0 JMP PLOTOFF +;----------- +; +; Invert current section +; +BRNEGATI LDY #46 +^0 LDA (BORDER),Y + EOR #$7F + STA (BORDER),Y + DEY +; +; When done, redraw section +; + BMI BRDRAW + CPY #23 + BNE <0 + DEY + BNE <0 +;----------- +; +; Clear bit in section and screen +; +BRCLEAR LDA #$18 + LDY #1 + BNE >0 +; +; Set bit in section and screen +; +BRSET LDA #$16 + LDY #0 +^0 PHA + JSR SETPLOT + JSR PLOT + PLA + TAY +; +BRBEEP LDX #7 +^0 LDA $C030 + TYA + JSR WAIT + DEX + BNE <0 + RTS +; +CLRBIT JSR GETMASK + EOR #$7F + AND (BORDER),Y + STA (BORDER),Y + JMP PLOTOFF +; +SETBIT JSR GETMASK + ORA (BORDER),Y + STA (BORDER),Y + JMP PLOTON +; +; Get mask (in A) and offset (in Y) +; +GETMASK LDY YCOOR + LDA GETMASKT,Y + PHA + LDA XCOOR + CPY #7 + BGE >0 + ADC #24 +^0 TAY + PLA + RTS +; +; Y-coor mask for border 0-13 +; +GETMASKT BYT %0000001 + BYT %0000010 + BYT %0000100 + BYT %0001000 + BYT %0010000 + BYT %0100000 + BYT %1000000 + BYT %0000001 + BYT %0000010 + BYT %0000100 + BYT %0001000 + BYT %0010000 + BYT %0100000 + BYT %1000000 +;----------- +; +; Toggle masking +; +TGLMASK LDA BORDBASE + EOR #%100 + STA BORDBASE + AND #%100 + BEQ SHOWMASK + LDA BORDBASE + ORA #%111 + STA BORDBASE +; +SHOWMASK JSR PAG3DIAG + LDX #WITE + JSR TGLMSK2 + JSR PRINT + BYT RTOSWITE,15,132,4,17,0 + LDX #GRAY2 + LDA BORDBASE + AND #%100 + BEQ TGLMSK2 +; +; "Fill to edge" arrows +; + LDX #15 + LDY #132 + JMP TILEAROW +; +; Tile boundary line +; +TGLMSK2 STX >0+0 + STX >1+0 + STX >2+0 + STX >3+0 + JSR LINES + BYT "H",MINIX1 +^0 BYT GRAY,14,MINIY1+14,14*MINIW1-2 +^1 BYT GRAY,14,MINIY1+13+14*MINIH1-2,14*MINIW1-2 + BYT 1 + JSR LINES + BYT "V",MINIX1 +^2 BYT GRAY,14,MINIY1+14,14*MINIH1-2 +^3 BYT GRAY,13+14*MINIW1-2,MINIY1+14,14*MINIH1-2 + BYT 1 + RTS +;----------- +; +; Toggle right side +; +TGLRITE LDA BORDBASE + AND #%11111011 + EOR #%00000010 + STA BORDBASE + JMP SHOWMASK +;----------- +; +; Toggle bottom +; +TGLBOTT LDA BORDBASE + AND #%11111011 + EOR #%00000001 + STA BORDBASE + JMP SHOWMASK +;----------- +; +; Tile boundary arrow +; +TILEAROW STX >0+0 + STY >0+1 + JSR PICDRAW +^0 BYT 15,132,4,17 + HEX C27EC23F7CC21F78C20F70C21F78C21B + HEX 58C20181C2827E3F827CC1827EC10181 + HEX C21B58C21F78C20F70C21F78C23F7CC3 + HEX 7E7F + RTS +;----------- +; +; Turn off lock mode +; +LOCKOFF STX >0+1 + STY >1+1 + STA >2+1 + LDA LOCKMODE + BPL >2 +; +; Toggle lock mode +; +TOGGLOCK LDA LOCKMODE + EOR #$80 + STA LOCKMODE + BPL SHOWLOCK +; +; If we are turning on lock mode, +; then save border in UNDOBUFF. +; + JSR BUFFSAVE + JSR SETPLOTX +; +; Show lock mode +; +SHOWLOCK JSR PRINT + BYT RTOSBLAK,LOCKX,LOCKY,1,9,0 + LDA LOCKMODE + BPL >0 + JSR PICDRAW + BYT LOCKX,LOCKY,1,9 + HEX 1C222222C17777777F +^0 LDX #00 +^1 LDY #00 +^2 LDA #00 + RTS +;----------- +; +; Select input device +; +NWDEVICE JSR DEVICECH + JMP SHOWBOTM +;----------- +; +; +; + ICL "S:BOEDIT3" diff --git a/PSC Source Disk 2 - Editors (v11)/S_BOEDIT3.txt b/PSC Source Disk 2 - Editors (v11)/S_BOEDIT3.txt new file mode 100644 index 0000000..c1aaddf --- /dev/null +++ b/PSC Source Disk 2 - Editors (v11)/S_BOEDIT3.txt @@ -0,0 +1,505 @@ +; +; S:BOEDIT3 +; --------- +; Low-level screen stuff +; +; +; Draw Miniature greeting card border +; on hires page, complete with +; right and bottom flipping. +; +MNZ EPZ $80 +; +MINIX EPZ MNZ +MINIY EPZ MNZ+1 +MINIWITH EPZ MNZ+2 +MINIHITE EPZ MNZ+3 +; +; Temporary table where miniature +; is built. +; +MINITEMP = $BB00 +MINIBUFF = MINITEMP +TEMPTBL = MINITEMP+28*3 +; +MINITURE LDX #MINIX1 + LDY #MINIY1 + STX MINIX + STY MINIY + LDX #MINIW1 + LDY #MINIH1 + CLC +;----------- +; +; Enter with X=width +; Y=height +; +; z-page MINIX=x position +; MINIY=y position +; +MINITUR2 DEX + STX MINIWITH + DEY + STY MINIHITE +; +; If carry set, then don't do +; the compression, data is all +; ready at MINIBUFF. +; + BCS *+5 + JSR MINICALC +; +; Top line +; + LDY #0 + JSR MINILINE +; +; Do left and right edges +; +^1 INY + CPY MINIHITE + BEQ MINILINE + LDX #0 + JSR MINISTR2 + LDX MINIWITH + JSR MINISTR2 + JMP <1 +; +; Given Y, do one line +; +MINILINE LDX MINIWITH + JSR MINISTR0 +^0 DEX + BEQ >1 + JSR MINISTR1 + JMP <0 +^1 JMP MINISTR0 +; +; Interpolate from 23x14 to 14x14 +; for each of the 3 sections. +; +; TMP0.1 points into BORDBASE +; TMP2.3 points into MINIBUFF +; +MINICALC LDY #BORDBASE+4 + LDA /BORDBASE+4 + STY TMP0 + STA TMP1 + LDY #MINIBUFF + LDA /MINIBUFF + STY TMP2 + STA TMP3 +; +; Now squish the three sections +; + LDA #3 +^0 PHA +; +; Do top part then bottom part +; + LDY #24 + JSR MINISQSH + LDY #0 + JSR MINISQSH +; + LDA TMP0 + CLC + ADC #48 + STA TMP0 +; + PLA + SBC #0 + BNE <0 + RTS +; +; Squish 23 vertically oriented bytes +; to 14 horizontally oriented bytes. +; +MINISQSH LDX #0 +^0 LDA MINIORTB,X + STA TMP4 +; + LDA #0 +^1 ORA (TMP0),Y + INY + DEC TMP4 + BNE <1 +; + STX >3+1 + ASL + STA TMP4 + LDX #12 +; +^2 LSR TEMPTBL,X + LSR TEMPTBL+1,X + LDA #0 + ROR + ROR + ORA TEMPTBL,X + STA TEMPTBL,X + LDA #0 + ASL TMP4 + ROR + ROR + ORA TEMPTBL+1,X + STA TEMPTBL+1,X + DEX + DEX + BPL <2 +; +^3 LDX #00 + INX + CPX #14 + BLT <0 +; + LDY #13 +^4 LDA TEMPTBL,Y + EOR #$7F + STA (TMP2),Y + DEY + BPL <4 + LDA TMP2 + CLC + ADC #14 + STA TMP2 + RTS +; +; Table which tells how many +; bytes to OR together +; +MINIORTB HEX 02010202010202 + HEX 01020102020102 +; +; Draw a section given: +; +; A=section to use +; X,Y=position +; +; Computed: +; TMP0.1= MINIBUFF pointer +; +MINISTR0 LDA #0 + HEX 2C +MINISTR1 LDA #28 + HEX 2C +MINISTR2 LDA #56 + STA TMP0 + LDA /MINIBUFF + STA TMP1 + STX MINIXSAV + STY MINIYSAV + LDA #0 + CPX MINIWITH + BNE *+4 + ORA #2 + CPY MINIHITE + BNE *+4 + ORA #1 + AND BORDBASE + PHA +; +; Compute X and Y screen addresses +; +; X= X*2+MINIX +; + TXA + ASL + ADC MINIX + STA MINIXPOS +; +; Y= Y*14+MINIY +; + TYA + ASL + STA TMP2 + ASL + ASL + ASL + ADC MINIY + SEC + SBC TMP2 + STA MINIYPOS +; + PLA + LSR + AND #1 + STA MINIFLIP +; +; If flipping bottom, then start from +; end of MINIBUFF data. +; + LDY #$E6 ; INC + LDA #0 + BCC >0 + LDA #26 + LDY #$C6 ; DEC +^0 CLC + ADC TMP0 + STA TMP0 + STY MINIBMD0 + STY MINIBMD1 + LDX #14 +; +; Miniature border section store loop +; +MINISLOP LDY #00 +MINIYPOS = *-1 + LDA YBASELO,Y + CLC + ADC #00 +MINIXPOS = *-1 + STA HIRES1 + LDA YBASEHI,Y + STA HIRES1+1 +; +; Now do a single row +; + LDY #0 + LDA #00 +MINIFLIP = *-1 + BNE >0 +; +; Standard +; + LDA (TMP0),Y + STA (HIRES1),Y + INY + LDA (TMP0),Y + JMP >1 +; +; Flip horizontally +; +^0 LDA (TMP0),Y + TAY + LDA FLIPPER,Y + LDY #1 + STA (HIRES1),Y + LDA (TMP0),Y + TAY + LDA FLIPPER,Y + LDY #0 +; +^1 STA (HIRES1),Y +MINIBMD0 INC TMP0 +MINIBMD1 INC TMP0 +; + INC MINIYPOS + DEX + BNE MINISLOP +; + LDX #00 +MINIXSAV = *-1 + LDY #00 +MINIYSAV = *-1 + RTS +;----------- +; +; Plot routine entry points +; +PLOTON JSR PLOTINIT + EOR #$7F + STA TMP0 + AND (HIRES1),Y + STA (HIRES1),Y + STA (HIRES3),Y + LDA TMP0 + AND (HIRES2),Y + STA (HIRES2),Y + TXA + BNE >0 + RTS +; +^0 INY + EOR #$7F + TAX + AND (HIRES1),Y + STA (HIRES1),Y + STA (HIRES3),Y + TXA + AND (HIRES2),Y + STA (HIRES2),Y + RTS +; +PLOTOFF JSR PLOTINIT + STA TMP0 + ORA (HIRES1),Y + STA (HIRES1),Y + STA (HIRES3),Y + LDA TMP0 + ORA (HIRES2),Y + STA (HIRES2),Y + TXA + BNE >0 + RTS +; +^0 INY + ORA (HIRES1),Y + STA (HIRES1),Y + STA (HIRES3),Y + TXA + ORA (HIRES2),Y + STA (HIRES2),Y + RTS +; +BRFLASH JSR PLOTINIT + EOR (HIRES2),Y + STA (HIRES2),Y + INY + TXA + EOR (HIRES2),Y + STA (HIRES2),Y + RTS +; +; Init plot routine +; +; Multiply Y by 3 and add +; section offset. +; +PLOTINIT LDA YCOOR + ASL + ADC YCOOR + LDY SECTION + ADC YBYTEOFF,Y + TAX +; + LDA YBASELO+YOFFSET,X + STA HIRES1 + LDA YBASEHI+YOFFSET,X + STA HIRES1+1 + LDA YBASELO+YOFFSET+1,X + STA HIRES2 + LDA YBASEHI+YOFFSET+1,X + STA HIRES2+1 + LDA YBASELO+YOFFSET+2,X + STA HIRES3 + LDA YBASEHI+YOFFSET+2,X + STA HIRES3+1 +; +; Get bit pattern +; + LDA XCOOR + ADC XBITOFF,Y + TAX +; + LDA XLOOK,X + AND #$0F + ASL + TAY + LDA XDATA,Y + STA >0+1 + LDA XDATA+1,Y + STA >1+1 +; +; Get X byte offset +; + LDA XLOOK,X + LSR + LSR + LSR + LSR + LDY SECTION + ADC XBYTEOFF,Y + TAY +; +^0 LDA #00 +^1 LDX #00 + RTS +; +; X lookup table +; +XLOOK HEX 0001020314151620 + HEX 2122233435364041 + HEX 4243545556606162 + HEX 63747576 +; +XDATA HEX 0300 + HEX 0C00 + HEX 3000 + HEX 4001 + HEX 0600 + HEX 1800 + HEX 6000 +; +; Offsets for the 3 border sections +; +XBITOFF BYT 0 + BYT 3 + BYT 0 +; +XBYTEOFF BYT XOFFSET + BYT XOFFSET+6 + BYT XOFFSET +; +YBYTEOFF BYT 0 + BYT 0 + BYT 44 +;----------- +; +; If page 3 is being displayed, then +; update "border layout" +; +PAG3DIAG LDA PAGENUM + CMP #2 + BEQ >0 + RTS +; +^0 JSR PRINT + BYT RTOSWITE,MINIX2+2,MINIY2+14 + BYT 2*MINIW2-2,14*MINIH2-2,0 +; + LDA BORDBASE + PHA + LDY #>1 + LDA />1 + STY TMP0 + STA TMP1 + LDA #28 + STA TMP4 + LDY #MINIBUFF + LDA /MINIBUFF + LDX #0 + JSR GETPSUNP + LDX #MINIX2 + LDY #MINIY2 + STX MINIX + STY MINIY + LDX #MINIW2 + LDY #MINIH2 + SEC + PLA + STA BORDBASE + JSR MINITUR2 +; +; Display tile boundary info +; + LDA BORDBASE + AND #%100 + BEQ >0 + LDX #MINIX2+2 + LDY #MINIY2-8-MINIH2*7 + JMP TILEAROW +; +^0 JSR LINES + BYT "H",MINIX2 + BYT GRAY2,14,MINIY2+14,14*MINIW2-2 + BYT GRAY2,14,MINIY2+13+14*MINIH2-2,14*MINIW2-2 + BYT 1 + JSR LINES + BYT "V",MINIX2 + BYT GRAY2,14,MINIY2+14,14*MINIH2-2 + BYT GRAY2,13+14*MINIW2-2,MINIY2+14,14*MINIH2-2 + BYT 1 + RTS +; +^1 HEX 877F7E3F7E1F7E3F + HEX 7E3F7E3F7E1F7C8E + HEX 7F0F7E677C7F7C3F + HEX 7E1F7F4F7F077C8E + HEX 7F1F7C4F797F793F + HEX 7C7F794F791F7C88 + HEX 7F +;----------- +; +; +; + ICL "S:BOEDIT4" diff --git a/PSC Source Disk 2 - Editors (v11)/S_BOEDIT4.txt b/PSC Source Disk 2 - Editors (v11)/S_BOEDIT4.txt new file mode 100644 index 0000000..d19d885 --- /dev/null +++ b/PSC Source Disk 2 - Editors (v11)/S_BOEDIT4.txt @@ -0,0 +1,330 @@ +; +; S:BOEDIT4 +; +;----------- +; +; Print border +; +BPWIDTH = 120 +CRLF = $1803 +SENDGC = $1806 +GCOUT = $1809 +; +PRINTBR LDA #24 + JSR PRINTBR2 + JSR PRINTBR2 + LDA #120 + JSR PRINTBR2 + JSR PRINTBR2 + LDX #12 + LDY #1 + JMP CRLF +; +PRINTBR2 STA TMP2 + LDX #BPWIDTH + LDY #0 + STY TMP0 + JSR SENDGC + LDA #32 + JSR PRINTBR3 + LDX TMP2 +^0 LDA #23 + STA TMP1 +^1 LDY BORDBASE+4,X + LDA FLIPPER,Y + JSR GCOUT + INX + INC TMP0 + DEC TMP1 + BNE <1 + INX + TXA + CLC + ADC #24 + TAX + CPX #96 + BLT <0 + LDA #BPWIDTH + SEC + SBC TMP0 + JSR PRINTBR3 + LDX #7 + LDY #1 + JSR CRLF + LDA TMP2 + SEC + SBC #24 + RTS +; +; Output X zero bytes +; +PRINTBR3 TAX +^0 LDA #0 + JSR GCOUT + INC TMP0 + DEX + BNE <0 + RTS +;----------- +; +; Get a border from the original +; Print Shop. All of them are stored +; in here in packed format. +; +GETPSDSK JSR GETTEXT + JSR PRINT + BYT PRCNTR + .DA #PRLOC,140,#26 + .DA #PRSTR,CABTEXT,#CR + BYT PRVTAB,66 + BYT 'THIN LINE',CR + BYT 'DOUBLE LINE',CR + BYT 'THICK LINE',CR + BYT 'BEADS',CR + BYT 'LATTICE',CR + BYT 'FLORAL',CR + BYT 'STARS',CR + BYT 'HEARTS',CR + BYT 'WICKER',CR + BRK +^0 LDY #00 + JSR SELECT + BYT 11,18,65,9 + ADR GETPSHOW + BCS >1 +; +; Unpack actual data and store it +; + STY <0+1 + TYA + ASL + TAX + LDA PSBRDTBL,X + STA TMP0 + LDA PSBRDTBL+1,X + STA TMP1 + LDA #48 + STA TMP4 + LDY #BORDBASE+4 + LDA /BORDBASE+4 + JSR GETPSUNP + CLC +^1 RTS +;----------- +; +; Given X=table pointer, unpack +; data into MINIBUFF and display it +; +GETPSHOW LDA BORDBASE + PHA + LDA PSSCRTBL,X + STA TMP0 + LDA PSSCRTBL+1,X + STA TMP1 + LDA #28 + STA TMP4 + LDY #MINIBUFF + LDA /MINIBUFF + JSR GETPSUNP +; +; Got the border in buffer, now +; display it +; + LDX #6 + LDY #39 + STX MINIX + STY MINIY + LDX #14 + LDY #9 + SEC + JSR MINITUR2 + PLA + STA BORDBASE + RTS +;----------- +; +; Given TMP4=28 for screen, 48 for +; printer data. A,Y=dest buffer. +; +GETPSUNP STY >3+1 + STA >3+2 +; +; TMP4=TMP4 * 3 +; + LDA TMP4 + STA TMP2 + ASL + ADC TMP2 + STA TMP4 +; + LDY #7 + CPX #2*2 + BLT >0 +; + LDY #0 + LDA TMP2 +; +^0 STY BORDBASE +; +; First unpack border into buffer. +; For 1 and 2 all 3 sections +; are defined and info byte=7 +; +; For the rest, decompress 3 times, +; until X=LEN*3 (TMP4) +; +; TMP2=counter +; TMP3=repeat counter +; + LDX #0 +^1 PHA + STA TMP2 + LDY #$FF +^2 LDA #1 + STA TMP3 + INY + LDA (TMP0),Y + BPL >3 + AND #$7F + STA TMP3 + INY + LDA (TMP0),Y +^3 STA $FFFF,X + INX + DEC TMP2 + BEQ >4 + DEC TMP3 + BNE <3 + BEQ <2 +; +^4 PLA + CPX TMP4 + BLT <1 + RTS +;----------- +; +PSBRDTBL ADR PSBRD1 + ADR PSBRD2 + ADR PSBRD3 + ADR PSBRD4 + ADR PSBRD5 + ADR PSBRD6 + ADR PSBRD7 + ADR PSBRD8 + ADR PSBRD9 +; +PSSCRTBL ADR PSSCR1 + ADR PSSCR2 + ADR PSSCR3 + ADR PSSCR4 + ADR PSSCR5 + ADR PSSCR6 + ADR PSSCR7 + ADR PSSCR8 + ADR PSSCR9 +; +; Borders from original Print Shop +; disk in compressed format. +; +PSBRD1 HEX 827F9600827F9501 + HEX 9900970100827F96 + HEX 00827F9600 +; +PSSCR1 HEX 827F030003000300 + HEX 0300030003000300 + HEX 0300030003000300 + HEX 03000300827F9A00 + HEX 0300030003000300 + HEX 0300030003000300 + HEX 0300030003000300 + HEX 03000300 +;------- +PSBRD2 HEX 827F89008A40827F + HEX 00827F9501009701 + HEX 00970100827F8900 + HEX 827F8B00827F8900 + HEX 827F8B00 +; +PSSCR2 HEX 827F030003000300 + HEX 0300030003000360 + HEX 0360036003600360 + HEX 036003837F8C0082 + HEX 7F8C009C03 +;------- +PSBRD3 HEX 977F00977F00 +; +PSSCR3 HEX 9C7F +;------- +PSBRD4 HEX 00030F1F1C3D303A + HEX 3075606A6075603A + HEX 3035381E1F0F0382 + HEX 00407078383C0C5C + HEX 0C2E0656062E065C + HEX 0C2C5C8278704000 +; +PSSCR4 HEX 4003700F18192C34 + HEX 0C3126640E712664 + HEX 0C312C341819700F + HEX 40038200 +;------- +PSBRD5 HEX 7182738274820C82 + HEX 1C8221618221821C + HEX 820C827482737100 + HEX 4782678217821882 + HEX 1C8242438242821C + HEX 8218821782674700 +; +PSSCR5 HEX 477167731774180C + HEX 821C022084630220 + HEX 821C180C17746773 + HEX 4771 +;------- +PSBRD6 HEX 0001020A16821211 + HEX 091D84231D091182 + HEX 12160A0201820060 + HEX 10141A821222646E + HEX 84716E642282121A + HEX 14106000 +; +PSSCR6 HEX 82004001380E2412 + HEX 24125C1D62236223 + HEX 5C1D24122412380E + HEX 40018300 +;------- +PSBRD7 HEX 008301830382070F + HEX 3F7F3F0F82078303 + HEX 8301860083408260 + HEX 707C7E7C70826083 + HEX 408600 +; +PSSCR7 HEX 0001000140034003 + HEX 6007781F7E7F781F + HEX 6007400340030001 + HEX 00018300 +;------- +PSBRD8 HEX 8200018203820682 + HEX 0C1830703018820C + HEX 8206820301830038 + HEX 7C7E46840307060C + HEX 180C06078403467E + HEX 7C3800 +; +PSSCR8 HEX 82001C0E3E1F6739 + HEX 4330033007380E82 + HEX 1C0E380760014085 + HEX 00 +;------- +PSBRD9 HEX 827F8348824F8948 + HEX 827F8340827F0082 + HEX 7F8301827F890982 + HEX 798309827F00 +; +PSSCR9 HEX 827F19401940797F + HEX 194C194C194C194C + HEX 194C194C7F4F014C + HEX 014C827F +;----------- +; +; +; + ICL "S:BOEDIT5" diff --git a/PSC Source Disk 2 - Editors (v11)/S_BOEDIT5.txt b/PSC Source Disk 2 - Editors (v11)/S_BOEDIT5.txt new file mode 100644 index 0000000..a16da01 --- /dev/null +++ b/PSC Source Disk 2 - Editors (v11)/S_BOEDIT5.txt @@ -0,0 +1,293 @@ +; +; S:BOEDIT5 +; +; Here is the nifty flood-fill +; routine. (Same as in Dazzle Draw) +; +FLZ EPZ $80 +; +FLTMP0 EPZ FLZ +FLINVERT EPZ FLZ+1 +FLXMIN EPZ FLZ+2 +FLXMAX EPZ FLZ+3 +FLMASK EPZ FLZ+4 +FLSTACK1 EPZ FLZ+5 +FLSTACK2 EPZ FLZ+6 +; +FLODFILL LDA XCOOR + PHA + LDA YCOOR + PHA +; + LDY #47 + LDA #0 +^0 STA FFBUFFER,Y + DEY + BPL <0 +; + STA FLSTACK1 + STA FLSTACK2 + STA FLINVERT +; + JSR FLODPUSH + JSR FLGETBIT + STA FLINVERT +; +; Main recursive routine: +; +FLODMAIN JSR FLODPULL +; +; If we've already been here, +; then don't bother checking +; + JSR FLGETBIT + LDA FLMASK + AND FFBUFFER,Y + BNE FLODRDON +; +; Fill left +; + LDA XCOOR + PHA +^0 DEC XCOOR + BMI >1 + JSR FLODCHEK + BEQ <0 +; +; Fill right +; +^1 LDX XCOOR + INX + STX FLXMIN + PLA + STA XCOOR +; +^2 JSR FLODCHEK + BNE >3 + INC XCOOR + LDA XCOOR + CMP #XMAX + BLT <2 +; +; Now scan above and below +; +^3 LDA XCOOR + STA FLXMAX +; + INC YCOOR + JSR FLODSCAN + DEC YCOOR + DEC YCOOR + JSR FLODSCAN +; +; Is stack empty? +; +FLODRDON LDA FLSTACK1 + CMP FLSTACK2 + BNE FLODMAIN + PLA + STA YCOOR + PLA + STA XCOOR + RTS +;--- +; +; Scan a line for new runs +; +FLODSCAN LDA YCOOR + CMP #YMAX + BGE >2 + LDA FLXMAX + STA XCOOR +; +^0 JSR FLDECGET + BNE <0 + LDA FLMASK + AND FFBUFFER,Y + BNE >1 + JSR FLODPUSH +; +^1 JSR FLDECGET + BEQ <1 + BNE <0 +; +^2 RTS +; +BITS8 HEX 8040201008040201 +; +FLODCHEK JSR FLGETBIT + BNE >9 +; +; Get bit from pattern +; + LDA YCOOR + AND #7 + STA FLTMP0 + LDA CURRPATT + ASL + ASL + ASL + ADC FLTMP0 + TAX + LDA FILLPATT,X + STA FLTMP0 + LDA XCOOR + AND #7 + TAX + LDA BITS8,X + AND FLTMP0 + BEQ >0 + LDA FLMASK +^0 STA FLTMP0 +; +; Set bit in temp buffer +; + LDA FLMASK + ORA FFBUFFER,Y + STA FFBUFFER,Y +; +; Set bit in edit buffer +; + LDA FLMASK + EOR #$FF + AND (BORDER),Y +; + ORA FLTMP0 + STA (BORDER),Y + JSR PLOTOFF + LDA FLTMP0 + BEQ >8 + JSR PLOTON +^8 LDA #0 +^9 RTS +; +; Push current point on stack +; +FLODPUSH LDY FLSTACK1 + LDA XCOOR + STA FFSTACK,Y + LDA YCOOR + STA FFSTACK+1,Y + INC FLSTACK1 + INC FLSTACK1 + RTS +; +; Pull next point from stack +; +FLODPULL LDY FLSTACK2 + LDA FFSTACK,Y + STA XCOOR + LDA FFSTACK+1,Y + STA YCOOR + INC FLSTACK2 + INC FLSTACK2 + RTS +; +; Decrement X, check for min +; +FLDECGET LDA XCOOR + CMP FLXMIN + BNE >0 + PLA + PLA + RTS +; +^0 DEC XCOOR +; +; Check bit +; +FLGETBIT JSR GETMASK + STA FLMASK + AND (BORDER),Y + PHP + PLA + EOR FLINVERT + AND #2 + RTS +;----------- +; +; Increment pattern pointer +; +NEXTPATT INC CURRPATT +SHOWFILL LDA #01 +CURRPATT = *-1 + CMP #FILLPATS/8 + BNE >0 + LDA #0 +^0 STA CURRPATT + LDY PAGENUM + CPY #3 + BNE >1 + JSR SHOWPATT +^1 RTS +; +; Fill patterns: +; +FILLPATT HEX FFFFFFFFFFFFFFFF + HEX 55AA55AA55AA55AA + HEX 8822882288228822 + HEX 8800220088002200 + HEX 8000080080000800 + HEX 0000000000000000 + HEX 8010022001084004 +; + HEX FF808080FF080808 + HEX 8040200002040800 + HEX 8244384482010101 + HEX F87422478F172271 + HEX FF000000FF000000 + HEX 8888888888888888 + HEX 081C22C180010204 + HEX 40A00000040A0000 + HEX 8080413E080814E3 + HEX 0102040810204080 +FILLPATS = *-FILLPATT +;----------- +; +; Display current pattern on screen +; +SHOWPATT ASL + ASL + ASL + STA TMP0 + LDA #8 + STA TMP1 + LDX #FFYLOC +; +^0 LDA YBASELO,X + STA HIRES1 + LDA YBASEHI,X + STA HIRES1+1 +; + LDY TMP0 + INC TMP0 + LDA FILLPATT,Y + EOR #$FF + PHA + ASL + PHP + LDY #FFXLOC + LDA (HIRES1),Y + ASL + ASL + PLP + ROR + LSR + STA (HIRES1),Y + PLA + AND #$7F + TAY + LDA FLIPPER,Y + LDY #FFXLOC+1 + STA (HIRES1),Y + INX + DEC TMP1 + BNE <0 + RTS +;----------- +; +; +; + USR "BOEDIT,S4",ORG +; + ICL "S:COMMON" diff --git a/PSC Source Disk 2 - Editors (v11)/S_BORDDATA.txt b/PSC Source Disk 2 - Editors (v11)/S_BORDDATA.txt new file mode 100644 index 0000000..020f594 --- /dev/null +++ b/PSC Source Disk 2 - Editors (v11)/S_BORDDATA.txt @@ -0,0 +1,307 @@ + NLS + TTL "S:BORDDATA" +ORG = $1000 +; +; BORDER TILE PIXEL DATA +; ---------------------- +; Actual data followed by +; screen equivalent +; + ORG ORG + OBJ $800 +;----------- +; +; SINGLE LINE +; + HEX 7F7F0000000000000000000000000000 + HEX 00000000000000007F7F010101010101 + HEX 01010101010101010101010101010100 + HEX 00000000000000000000000000000000 + HEX 00000000000000000101010101010101 + HEX 01010101010101010101010101010100 + HEX 7F7F0000000000000000000000000000 + HEX 00000000000000007F7F000000000000 + HEX 00000000000000000000000000000000 +; + HEX 7F7F + HEX 0300 + HEX 0300 + HEX 0300 + HEX 0300 + HEX 0300 + HEX 0300 + HEX 0300 + HEX 0300 + HEX 0300 + HEX 0300 + HEX 0300 + HEX 0300 + HEX 0300 +; + HEX 7F7F + HEX 0000 + HEX 0000 + HEX 0000 + HEX 0000 + HEX 0000 + HEX 0000 + HEX 0000 + HEX 0000 + HEX 0000 + HEX 0000 + HEX 0000 + HEX 0000 + HEX 0000 +; + HEX 0300 + HEX 0300 + HEX 0300 + HEX 0300 + HEX 0300 + HEX 0300 + HEX 0300 + HEX 0300 + HEX 0300 + HEX 0300 + HEX 0300 + HEX 0300 + HEX 0300 + HEX 0300 +;----------- +; +; DOUBLE LINE +; +B2 HEX 7F7F0000000000000000004040404040 + HEX 40404040407F7F007F7F010101010101 + HEX 01010101010101010101010101010100 + HEX 01010101010101010101010101010101 + HEX 01010101010101000101010101010101 + HEX 01010101010101010101010101010100 + HEX 7F7F0000000000000000007F7F000000 + HEX 00000000000000007F7F000000000000 + HEX 0000007F7F0000000000000000000000 +; + HEX 7F7F + HEX 0300 + HEX 0300 + HEX 0300 + HEX 0300 + HEX 0300 + HEX 0300 + HEX 0360 + HEX 0360 + HEX 0360 + HEX 0360 + HEX 0360 + HEX 0360 + HEX 037F +; + HEX 7F7F + HEX 0000 + HEX 0000 + HEX 0000 + HEX 0000 + HEX 0000 + HEX 0000 + HEX 7F7F + HEX 0000 + HEX 0000 + HEX 0000 + HEX 0000 + HEX 0000 + HEX 0000 +; + HEX 0303 + HEX 0303 + HEX 0303 + HEX 0303 + HEX 0303 + HEX 0303 + HEX 0303 + HEX 0303 + HEX 0303 + HEX 0303 + HEX 0303 + HEX 0303 + HEX 0303 + HEX 0303 +;----------- +; +; THICK LINE +; + HEX 7F7F7F7F7F7F7F7F + HEX 7F7F7F7F7F7F7F7F + HEX 7F7F7F7F7F7F7F00 + HEX 7F7F7F7F7F7F7F7F + HEX 7F7F7F7F7F7F7F7F + HEX 7F7F7F7F7F7F7F00 +; + HEX 7F7F + HEX 7F7F + HEX 7F7F + HEX 7F7F + HEX 7F7F + HEX 7F7F + HEX 7F7F + HEX 7F7F + HEX 7F7F + HEX 7F7F + HEX 7F7F + HEX 7F7F + HEX 7F7F + HEX 7F7F +;----------- +; +; BEADS +; + HEX 00030F1F1C3D303A + HEX 3075606A6075603A + HEX 3035381E1F0F0300 + HEX 00407078383C0C5C + HEX 0C2E0656062E065C + HEX 0C2C5C7878704000 +; + HEX 4003 + HEX 700F + HEX 1819 + HEX 2C34 + HEX 0C31 + HEX 2664 + HEX 0E71 + HEX 2664 + HEX 0C31 + HEX 2C34 + HEX 1819 + HEX 700F + HEX 4003 + HEX 0000 +;----------- +; +; FANCY +; + HEX 71737374740C0C1C + HEX 1C21216121211C1C + HEX 0C0C747473737100 + HEX 476767171718181C + HEX 1C42424342421C1C + HEX 1818171767674700 +; + HEX 4771 + HEX 6773 + HEX 1774 + HEX 180C + HEX 1C1C + HEX 0220 + HEX 6363 + HEX 6363 + HEX 0220 + HEX 1C1C + HEX 180C + HEX 1774 + HEX 6773 + HEX 4771 +;----------- +; +; FLORAL +; + HEX 0001020A16121211 + HEX 091D232323231D09 + HEX 111212160A020100 + HEX 006010141A121222 + HEX 646E717171716E64 + HEX 2212121A14106000 +; + HEX 0000 + HEX 4001 + HEX 380E + HEX 2412 + HEX 2412 + HEX 5C1D + HEX 6223 + HEX 6223 + HEX 5C1D + HEX 2412 + HEX 2412 + HEX 380E + HEX 4001 + HEX 0000 +;----------- +; +; STARS +; + HEX 0001010103030307 + HEX 070F3F7F3F0F0707 + HEX 0303030101010000 + HEX 0000000040404060 + HEX 60707C7E7C706060 + HEX 4040400000000000 +; + HEX 0001 + HEX 0001 + HEX 4003 + HEX 4003 + HEX 6007 + HEX 781F + HEX 7E7F + HEX 781F + HEX 6007 + HEX 4003 + HEX 4003 + HEX 0001 + HEX 0001 + HEX 0000 +;----------- +; +; HEARTS +; + HEX 000001030306060C + HEX 0C18307030180C0C + HEX 0606030301000000 + HEX 387C7E4603030303 + HEX 07060C180C060703 + HEX 030303467E7C3800 +; + HEX 0000 + HEX 1C0E + HEX 3E1F + HEX 6739 + HEX 4330 + HEX 0330 + HEX 0738 + HEX 0E1C + HEX 1C0E + HEX 3807 + HEX 6001 + HEX 4000 + HEX 0000 + HEX 0000 +;----------- +; +; WICKER +; + HEX 7F7F4848484F4F48 + HEX 4848484848484848 + HEX 7F7F4040407F7F00 + HEX 7F7F0101017F7F09 + HEX 0909090909090909 + HEX 79790909097F7F00 +; + HEX 7F7F + HEX 1940 + HEX 1940 + HEX 797F + HEX 194C + HEX 194C + HEX 194C + HEX 194C + HEX 194C + HEX 194C + HEX 7F4F + HEX 014C + HEX 014C + HEX 7F7F +; +; +; + USR "O:BORDDATA",ORG + END diff --git a/PSC Source Disk 2 - Editors (v11)/S_COMMON.txt b/PSC Source Disk 2 - Editors (v11)/S_COMMON.txt new file mode 100644 index 0000000..d35bb0b --- /dev/null +++ b/PSC Source Disk 2 - Editors (v11)/S_COMMON.txt @@ -0,0 +1,139 @@ +; +; S:COMMON +; +TMP EPZ $F0 +TMP0 EPZ TMP +TMP1 EPZ TMP+1 +TMP2 EPZ TMP+2 +TMP3 EPZ TMP+3 +TMP4 EPZ TMP+4 +TMP5 EPZ TMP+5 +; +TMPLO EPZ TMP0 +TMPHI EPZ TMP1 +; +FLASHLO EPZ $4E +FLASHHI EPZ $4F +; +ESC = 27 +;----------- +; +; MAIN MENU routines +; +MM = $0800 +; +MAINMENU = MM +FGETMAIN = MM+3 +FGETPSD = MM+6 +FGETCD = MM+9 +; +HAS128K = $27F +;----------- +; +; Subroutine package +; +SP = $E000 +; +PRINT = SP +CLSCREEN = SP+3 +WITEBORD = SP+6 +ESCBACK = SP+9 +PICDRAW = SP+12 +; +DEVICENW = SP+15 +DEVICEON = SP+18 +DEVICEOF = SP+21 +DEVICERD = SP+24 +DEVICEST = SP+27 +SCALING = SP+30 +; +POLEBTN = SP+31 +POLEKEY = SP+34 +GETKEY = SP+37 +SELECT = SP+40 +; +SETTYPE = SP+43 +GETFILE = SP+46 +SAVEFILE = SP+49 +TYPELEN = SP+52 +FLSTART = SP+53 +FLLENGTH = SP+55 +BLOAD = SP+57 +BSAVE = SP+60 +DOSCR = SP+63 +ERROR = SP+66 +; +MUSIC = SP+69 +FLSHINIT = SP+72 +JMPVECTS = SP+75 +LINES = SP+78 +PARSE = SP+81 +SHOWAROW = SP+84 +NUMBER = SP+87 +WAITPSD = SP+90 +WAITCD = SP+93 +ANYKEY = SP+96 +CHKPRINT = SP+99 +BOOP = SP+102 +GETINIT = SP+105 +GETBYTE = SP+108 +INPUT = SP+111 +CLS1 = SP+114 +PRINTGRP = SP+117 +RTOS = SP+120 +SPACEBAR = SP+123 +GETPDISK = SP+126 +ESCMAIN = SP+129 +TESTPAPR = SP+132 +GETANUMB = SP+135 +ANYKEY2 = SP+138 +DEVICECH = SP+141 +; +WITE = $FF +GRAY = $AA +GRAY2 = $55 +BLAK = $00 +; +PRNORM = 1 +PRINVR = 2 +PRLEFT = 3 +PRRITE = 4 +PRCNTR = 5 +PRLOC = 6 +PRSMAL = 7 +PRBIG = 8 +PRSTR = 9 +PRSPC = 10 +PRHTAB = 11 +PRVTAB = 12 +CR = 13 +NOCR = 14 +RTOSBLAK = 15 +RTOSWITE = 16 +RTOSANY = 17 +PRCSPACE = 18 +PRPIC = 19 +PRRTAB = 20 +PRRTAB2 = 21 +PRKERN = 22 +RTOSINV = 23 +;----------- +; +; Monitor routines +; +WAIT = $FCA8 +RTS = $FF58 +;----------- +; +; SYSLIB stuff +; +FLIPPER = $9080 +YBASEHI = $9100 +YBASELO = $91C0 +XBYTE = $9398 +XBIT = $94B0 +;----------- +; +; +; + END diff --git a/PSC Source Disk 2 - Editors (v11)/S_COMMONEDIT.txt b/PSC Source Disk 2 - Editors (v11)/S_COMMONEDIT.txt new file mode 100644 index 0000000..09f6f28 --- /dev/null +++ b/PSC Source Disk 2 - Editors (v11)/S_COMMONEDIT.txt @@ -0,0 +1,46 @@ +; +; S:COMMONEDIT +; +; Edit buffer locations +; +EDZ EPZ $D0 +; +XCOOR EPZ EDZ +YCOOR EPZ EDZ+1 +BUFLO EPZ EDZ+2 +BUFHI EPZ EDZ+3 +TBUFLO EPZ EDZ+4 +TBUFHI EPZ EDZ+5 +; +ED = $5000 +; +EDITINIT = ED +SHOWBOXS = ED+3 +SHOWGR = ED+6 +CHKBUFF = ED+9 +CLRBUFF = ED+12 +ORBUFF = ED+15 +BUFFSAVE = ED+18 +BASECALC = ED+21 +SETPLOTX = ED+24 +SETBIT = ED+27 +CLRBIT = ED+30 +PRINTGR = ED+33 +DRAWTEXT = ED+36 +DOSHAPE = ED+39 +EDITLOOP = ED+42 +FONTMODS = ED+45 +; +REFLINES = ED+48 +REFX1 = ED+48 +REFY1 = ED+49 +REFY2 = ED+50 +REFFLAGS = ED+51 +RESETBIT = ED+52 +; +EDITBUFF = $7800 +UNDOBUFF = EDITBUFF+$240 +; +; +; + ICL "S:COMMON" diff --git a/PSC Source Disk 2 - Editors (v11)/S_D000.txt b/PSC Source Disk 2 - Editors (v11)/S_D000.txt new file mode 100644 index 0000000..df42060 --- /dev/null +++ b/PSC Source Disk 2 - Editors (v11)/S_D000.txt @@ -0,0 +1,449 @@ + NLS + TTL "S:D000" +ORG = $D000 +; +; 02/09/85 +; +; Border routine that is used during +; printing. It sits at $D000, $8B$8B +; +; by Roland Gustafsson +; +MASKBUFF = $BB00 +SUPPGET = $4000 +SUPPBORD = ORG +SWAPRAM = $02C0 +; +; +TMP0 EPZ $3A +TMP1 EPZ $3B +TMP2 EPZ $3C +TMP3 EPZ $3D +; +BORDER EPZ $80 +BUFFER EPZ $82 +MASK EPZ $84 +BASELO EPZ $86 +BASEHI EPZ $87 +SCANLINE EPZ $88 +DOACROSS EPZ $89 +COUNTER EPZ $8A +; +FLIPPER = $9080 +; +BORDDATA = $DE00 +;----------- + ORG ORG + OBJ $0800 +;----------- + JMP DRAWBORD +; +; Move swap routine down to its home +; and call it. +; + TAX +; + LDY #$3F +^0 LDA SWPRAM,Y + STA SWAPRAM,Y + DEY + BPL <0 +; + LDA /SUPPGET-1 + PHA + LDA #SUPPGET-1 + PHA + TXA + JMP SWAPRAM +;----------- +; +; Swap RAMcard with $4000, 8 pages. +; +SWPRAM PHA + BIT $C08B + BIT $C08B + LDX #8 + LDY #END + LDA /END + STY TMP0 + STA TMP1 + LDY #0 + LDA /SUPPGET + STY TMP2 + STA TMP3 +^0 LDA (TMP0),Y + PHA + LDA (TMP2),Y + STA (TMP0),Y + PLA + STA (TMP2),Y + INY + BNE <0 + INC TMP1 + INC TMP3 + DEX + BNE <0 + BIT $C081 + PLA + RTS +;----------- +; +; Draw the border +; +; Point to the border data +; +DRAWBORD LDA #BORDDATA + LDY /BORDDATA + LDX $8300 + CPX #1 + BNE >0 + INY +; +^0 STA BASELO + STY BASEHI +; + JSR SETMASKS +; +; Generate buffer address +; +BORDLOOP LDA SCANLINE + ASL + ADC #$20 + STA BUFFER+1 + LDA #0 + STA BUFFER +; +; Clear first bytes to zero +; + LDY #$24 +^0 STA (BUFFER),Y + DEY + BPL <0 + LDA #$25 + STA BUFFER +; +; Check for top or bottom +; + LDX SCANLINE + CPX DOACROSS + BEQ DOLINE + DEX + CPX DOACROSS + BEQ DOLINE +; +; Not top or bottom, so do edges +; +; Left side first +; + LDX #2 + LDA #0 + JSR GETADR + LDA #0 + JSR STORE +; +; Now skip to right side +; + LDA #$C3 + STA BUFFER + INC BUFFER+1 +; +; Store right side +; + LDA #2 + JSR STORE +; +; Now go for nextline +; +NEXTLINE LDY #10 + LDA #0 +^0 STA (BUFFER),Y + DEY + BPL <0 + INC SCANLINE + DEC COUNTER + BNE BORDLOOP + RTS +;----------- +; +; Do either top or bottom line +; +; Determine if top or bottom +; +DOLINE LDA #1 ; bottom + LDX DOACROSS + CPX #$18 + BEQ >0 + LDA #0 +; +^0 STA TMP2 +; +; First do left corner +; + LDX #0 + LDA TMP2 + JSR GETADR + JSR STORTMP2 +; +; Now fill in 17 borders +; + LDX #1 + LDA TMP2 + JSR GETADR +; + LDX #17 +^0 JSR STORTMP2 + DEX + BNE <0 +; +; Next do right corner +; + INC TMP2 + INC TMP2 + LDX #0 + LDA TMP2 + JSR GETADR + JSR STORTMP2 + JMP NEXTLINE +; +STORTMP2 LDA TMP2 +; +; Fall through to store +;---------------------- +; +; STORE border +; +; A=mask, 0=normal +; 1=bottom +; 2=right +; 3=bottom and right +; +YFLIP EPZ TMP3 +; +STORE LDY #0 + STY TMP0 + AND (BASELO),Y + LSR + ROR YFLIP + LSR + BCC >0 + LDY #22 +; +^0 STY TMP1 +; +^1 LDY TMP0 + LDA (MASK),Y + BIT YFLIP + BPL >2 + TAY + LDA FLIPPER,Y +; +^2 LDY TMP1 + AND (BUFFER),Y + STA >3+1 + LDY TMP0 + LDA (BORDER),Y + BIT YFLIP + BPL >3 + TAY + LDA FLIPPER,Y +^3 ORA #00 + LDY TMP1 + STA (BUFFER),Y +; + BCS >4 + INY + INY +^4 INC TMP0 + DEY + STY TMP1 + LDA TMP0 + EOR #23 + BNE <1 +; + LDA #23 +; +INCBUF CLC + ADC BUFFER + STA BUFFER + BCC >1 + INC BUFFER+1 +^1 RTS +;----------- +; +; Generate BORDER and MASK addresses +; given A=00,ignore config +; 01,use config (for right) +; X=border # 0-2 +; +BORDLOC HEX 043464 +; +GETADR LDY #0 + AND (BASELO),Y + EOR SCANLINE + LSR + BCS GETADR2 + LDY #$18 +; +GETADR2 LDA BASELO + STA BORDER + LDA BASEHI + STA BORDER+1 +; + TYA + CLC + ADC BORDLOC,X + STA >2+1 +; + CLC + ADC BORDER + STA BORDER + BCC >1 + INC BORDER+1 +; +^1 LDA #MASKBUFF + LDY /MASKBUFF +; + CLC +^2 ADC #00 + STA MASK + BCC >3 + INY +^3 STY MASK+1 + RTS +;----------- +; +; Clear mask tables and if mask +; generator bit is set, create +; the MASKBUFF table. +; +SETMASKS JSR CLRMASKS + LDY #0 + LDA (BASELO),Y + AND #4 + BNE >0 + RTS +; +^0 LDX #2 +; +^1 LDY #0 + JSR GETADR2 + JSR DOMASK1 + JSR DOMASK2 + DEX + BPL <1 + RTS +;----------- +CURRENT EPZ TMP2 +; +; Create mask from bottom to top, +; storing values into MASK +; +DOMASK1 CPX #2 + BEQ QUITMASK +; + LDY #46 + STY TMP1 + LDY #22 +; +^0 STY TMP0 + LDA #$7F +^1 STA CURRENT + AND (BORDER),Y + BEQ >2 + LDA CURRENT + ASL + AND #$7F + BPL <1 +; +^2 LDA CURRENT + STA (MASK),Y + BNE >3 +; +; If the right to left scan up mask +; hits zero, and we are doing a +; corner, quit! +; + CPX #0 + BEQ QUITMASK +; +^3 CMP #$7F + BNE >6 +; + LDA #$7F + LDY TMP1 +^4 STA CURRENT + AND (BORDER),Y + BEQ >5 + LDA CURRENT + ASL + AND #$7F + BPL <4 +; +^5 LDA CURRENT + STA (MASK),Y +; +^6 DEC TMP1 + LDY TMP0 + DEY + BPL <0 +QUITMASK RTS +;----------- +; +; Create mask by scanning right +; to left. If corner, then AND +; data together to get correct +; mask. +; +DOMASK2T AND (MASK),Y + AND #$FF +; +DOMASK2 CPX #1 + BEQ QUITMASK +; +; X=0 means corner AND (MASK),Y +; X=2 means left AND #$FF +; + LDA DOMASK2T,X + STA DOMASK2M + LDA DOMASK2T+1,X + STA DOMASK2M+1 +; + LDY #46 +; +^0 LDA #$7F + STA CURRENT +; +^1 LDA (BORDER),Y + AND CURRENT + BEQ >2 + EOR CURRENT + STA CURRENT +; +^2 LDA CURRENT +DOMASK2M ORA (MASK),Y + STA (MASK),Y + DEY + BMI >3 + CPY #23 + BNE <1 + DEY + BNE <0 +; +^3 RTS +;----------- +; +; Clear mask tables to zero +; +CLRMASKS LDY #48*3 + LDA #0 +^0 DEY + STA MASKBUFF,Y + BNE <0 + RTS +;----------- +END: +; +; +; + USR "O:D000",ORG + END diff --git a/PSC Source Disk 2 - Editors (v11)/S_FOEDIT.txt b/PSC Source Disk 2 - Editors (v11)/S_FOEDIT.txt new file mode 100644 index 0000000..8c614bd --- /dev/null +++ b/PSC Source Disk 2 - Editors (v11)/S_FOEDIT.txt @@ -0,0 +1,3 @@ + NLS +; S:FOEDIT + ICL "S:FOEDIT1" diff --git a/PSC Source Disk 2 - Editors (v11)/S_FOEDIT1.txt b/PSC Source Disk 2 - Editors (v11)/S_FOEDIT1.txt new file mode 100644 index 0000000..c7dc3b9 --- /dev/null +++ b/PSC Source Disk 2 - Editors (v11)/S_FOEDIT1.txt @@ -0,0 +1,844 @@ + TTL "S:FOEDIT" +; S:FOEDIT1 + NOG +ORG = $4000 +ORGLOAD = $6000 +ORGDIFF = ORGLOAD-ORG +TAILORG = $9600 +; +; 08/02/85 +; 09/10/85 last mod +; +; Font Editor main control +; +; The Print Shop Companion +; +; Copyright 1985 +; by Roland Gustafsson +; +; +XOFF = 1 +XOFF2 = XOFF*7 +YOFF = 38 +FONTW = 48 +FONTH = 38 +; +SDX = 113 +SDY = YOFF+4 +SDW = 4 +SDH = 9 +;--- +FONTBUFF = $5FF4 +MAXLEN = $1800 +; +FONT1BUF = $6000 +FONT1W = FONT1BUF +FONT1H = FONT1BUF+$3B +FONT1AL = FONT1BUF+$76 +FONT1AH = FONT1BUF+$B1 +FONT1BEG = FONT1BUF+$EC +; +FONT2BUF = $7800 +FONT2W = FONT2BUF +FONT2H = FONT2BUF+$3B +FONT2AL = FONT2BUF+$76 +FONT2AH = FONT2BUF+$B1 +FONT2BEG = FONT2BUF+$EC +; +UFONTBUF = $8500 +UFONTW = UFONTBUF +; +DAT EPZ $00 +; +LENLO EPZ DAT +LENHI EPZ DAT+1 +; +OLDCHAR EPZ DAT+2 +OLDLEN EPZ DAT+3 +; +NEWCHAR EPZ DAT+4 +NEWWITH EPZ DAT+5 +NEWHITE EPZ DAT+6 +NEWLEN EPZ DAT+7 +; +ACC1LO EPZ DAT+8 +ACC1HI EPZ DAT+9 +ACC2LO EPZ DAT+10 +ACC2HI EPZ DAT+11 +REMLO EPZ DAT+12 +REMHI EPZ DAT+13 +; +SAVED? EPZ DAT+14 +;----------- + ORG ORG + OBJ $800 +;----------- +START JMP MOVEPROG+ORGDIFF + JMP MOVEREFS +;----------- + ASC "COPYRIGHT 1985 " + ASC "ROLAND GUSTAFSSON" +; +TXTCTRL BYT 'CTRL-',0 +TXTTOCLR BYT ' TO CLEAR ',0 +TXTTOPRN BYT ' TO PRINT ',0 +;----------- +; +; Set default font to MEDIUM REFERENCE +; +START2 JSR MOVUFONT + LDY #1 + JSR SGRFONT2 +;----------- +; +; Draw Font Editor main screen +; +SCR1MAIN JSR SCREEN1 + JSR SHOWDONE +; +^0 JSR LOADCHAR + LSR REFFLAGS + JSR SHOWGR + ASL REFFLAGS + JSR SHOWCURR + JSR GETKEY + JSR >1 + BCC <0 + BCS SCR1MAIN +; +^1 JSR PARSE + .DA #'G'-$40,SCR1GET + .DA #'S'-$40,SCR1SAVE + .DA #'Q'-$40,SCR1QUIT + .DA #'C'-$40,SCR1CLR + .DA #'P'-$40,SCR1PRIN + .DA #CR,SCR1EDIT + .DA #'@',SCR1SKIP + .DA #' ',SCR1SKIP + BRK + SEC + SBC #$20 + CMP #'Z'-$1F + BGE SCR1SKIP + STA OLDCHAR +SCR1SKIP CLC + RTS +;----------- +; +; Clear the "done bit" flags +; +SCR1CLR JSR PRINT + BYT PRCNTR + .DA #PRLOC,140,#184 + .DA #PRSTR,TXTPRET + .DA #PRSTR,TXTTOCLR + BYT 'LIST',CR + BRK + JSR WAITCR + BNE >1 +; + LDY #'Z'-$20 +^0 LDA FONT1W,Y + AND #$7F + STA FONT1W,Y + DEY + BPL <0 + JSR BLAKDONE + JSR SHOWDONE +; +^1 JMP BLAKBOTM +;----------- +SCR1PRIN JSR CKPRINT + BCS <1 + JSR PRINT + BYT PRCNTR + .DA #PRSTR,TXTPRET + .DA #PRSTR,TXTTOPRN + .DA #PRSTR,TXTFONT,#CR + BRK + JSR WAITCR + BNE <1 + JSR DEVICEOF + JSR PRINFONT + JSR DEVICEON + SEC + RTS +;----------- +; +; Load the character to edit +; +SCR1EDIT JSR SHOWGR + JSR BUFFSAVE +; +; Edit without reloading char or +; messing with the UNDO buffer. +; +^0 JSR SCR2RITE + JSR EDITCHAR + BCS >3 +; +; Left justify the character +; + JSR LEFTJUST +; +; Now select where to store this +; character. +; + JSR BLAKDONE + JSR SHOWDONE + JSR BLAKBOTM +; +SCR3AGAN JSR SCR3RITE + LDA OLDCHAR + STA NEWCHAR +; +^1 LDY #SC3Y1+25 + JSR SCR3KEY + PHA + JSR BLAKBOTM + PLA + CMP #CR + BEQ SCR3ESTR + CMP #ESC + BEQ <0 +; + CMP #'@' + BEQ >2 + CMP #'!' + BCC >2 + CMP #'Z'+1 + BCS >2 + SBC #$1F + STA NEWCHAR + BNE <1 +; +; Attempt to store NEWCHAR +; +SCR3ESTR JSR SCR3ALRY + BCS SCR3AGAN + SEC + ROR SAVED? + JSR SAVECHAR + BCC >5 + ASL SAVED? + JSR PRINT + BYT PRCNTR + .DA #PRLOC,140,#185 + BYT 'NOT ENOUGH ROOM ! ' + BYT 'SEE MANUAL.',NOCR,0 +; +^2 JSR BOOP + JMP SCR3AGAN +; +^3 JSR CMPCHAR + BEQ >4 + JSR CMPCHAR + JSR BLAKBOTM + JSR MUSIC + JSR PRINT + BYT PRCNTR + .DA #PRLOC,140,#185 + BYT PRCSPACE,1 + BYT ' TO MAIN SCREEN WILL ERASE CHANGES',CR,0 + JSR GETKEY + CMP #ESC + BEQ >4 + JMP <0 +; +^4 JSR BLAKDONE +; +^5 JSR SHOWDONE + JSR TOP1 + JSR SCR1RITE + CLC + RTS +;----------- +BLAKDONE JSR PRINT + BYT RTOSBLAK,16,32,9,126,0 + RTS +;----------- +; +; Save the graphic +; +SCR1SAVE JSR CALCHEAD +; + LDY LENLO + LDA LENHI + STY SETLEN + STA SETLEN+1 + JSR SETADR + JSR SAVEFILE + BCS >0 + LSR SAVED? +^0 SEC + RTS +;----------- +; +; Get a font +; +TXTGET BYT 'GET',0 +; +SCR1GET LDX #TXTGET + LDY /TXTGET + JSR NEEDSAVE + JSR GETTEXT + JSR SETADR +^0 LDY #00 + SEC + JSR FGETMAIN + BCS >1 + STY <0+1 + JSR SCR1GET2 + BCS <0 + LDA #0 +; +; Special secret command! +; type password during GET +; and press ESC to double the +; font in memory. MAY CRASH +; if font is too big... +; +^1 EOR #6 + BNE >2 + INC DUBLMOD + JSR SGMOVE + DEC DUBLMOD +; +^2 SEC + RTS +;--- +SCR1GET2 JSR JMPVECTS + ADR SGRFONT + ADR SGPSD + ADR SGCD + ADR SGOD +;--- +; +; Get from Print Shop disk +; +SGPSD LDY #00 + JSR FGETPSD + STY SGPSD+1 + BCS >9 + STY TMP5 + JMP SGMOVE +;--- +; +; Get from Companion disk +; +SGCD LDY #00 + JSR FGETCD + STY SGCD+1 + BCS >9 + JMP SGMOVE +;--- +; +; Get font from other disk +; +SGOD SEC + JSR GETFILE + LDY #11 + STY TMP5 + BCC SGMOVE +^9 RTS +;--- +; +; Select reference size font +; +SGRFY = 60 +; +SGRFONT JSR MOVUFONT + JSR CLS1 + JSR PRINT + .DA #PRLOC,140,#SGRFY + BYT PRCNTR + BYT 'CHOOSE SIZE:',CR + BYT CR + BYT 'SMALL',CR + BYT 'MEDIUM',CR + BYT 'LARGE',CR,0 +; +^0 LDY #00 + JSR SELECT + BYT 15,10,SGRFY+15,3 + ADR RTS + BCS <9 + STY <0+1 +; +SGRFONT2 TYA + PHA + JSR MOVEFONT + PLA + CLC + ADC #8 + TAY + JMP SGSETREF +;--- +; +; Save $8000.8FFF +; +SGMOVE JSR CLS1 + JSR SWAPD000 +; +; Move font data to buffer2 +; + LDY #0 + LDA /FONT1BUF + STY TMP0 + STA TMP1 + LDA /FONT2BUF + STY TMP2 + STA TMP3 + LDX #$18 +^1 LDA (TMP0),Y + STA (TMP2),Y + INY + BNE <1 + INC TMP1 + INC TMP3 + DEX + BNE <1 +; +; Now do lint removal and unpacking +; + LDY #0 +DUBLMOD = *-1 + JSR MOVEFONT + JSR SWAPD000 +; +; Set the reference lines +; + LDA FONT1W+$20 + STA REFX1 + LDA FONT1H+$20 + STA REFY1 + LDA FONT1AL+$20 + STA REFY2 +; + LDA FONT1AH+$20 + CMP #$58 + BLT >0 +; +; If no reference lines, then use +; lookup table +; + LDY TMP5 +SGSETREF LDA PSREFX1,Y + STA REFX1 + LDA PSREFY1,Y + STA REFY1 + LDA PSREFY2,Y + STA REFY2 +; +^0 LDA #'A'-$20 + STA OLDCHAR + LSR SAVED? + CLC + RTS +; +; Reference line lookup table +; First 8 are for Print Shop fonts +; then 3 are for the reference fonts +; the last one is the default +; +PSREFX1 BYT 35,27,23,21,19,15,10,12 + BYT 6,13,27,13 +PSREFY1 BYT 15,10,12,9,9,7,7,6 + BYT 2,5,11,5 +PSREFY2 BYT 29,29,25,24,24,17,16,14 + BYT 6,13,27,13 +;--- +; +; SWAP $D000 area +; +SWAPD000 BIT $C083 + BIT $C083 + LDY #0 + LDA #$80 + STY TMP0 + STA TMP1 + LDA #$D0 + STY TMP2 + STA TMP3 + LDX #16 +^0 LDA (TMP0),Y + PHA + LDA (TMP2),Y + STA (TMP0),Y + PLA + STA (TMP2),Y + INY + BNE <0 + INC TMP1 + INC TMP3 + DEX + BNE <0 + RTS +;----------- +; +; GET text window +; +GETTEXT JSR WITEBORD + JSR PRINT + BYT PRINVR,PRRITE + .DA #PRLOC,149,#4 + .DA #PRSTR,TXTFEDIT + BYT ':',CR + BYT PRBIG,PRLEFT + .DA #PRLOC,160,#1 + BYT 'GET',CR,0 + JMP ESCBACK +;----------- +; +; Set load/save parameters +; +SETADR JSR SETTYPE +TXTFONT BYT 'FONT',0 +TXTFEDIT BYT 'FONT EDITOR',0 + BYT 'FONT.',0 + BYT 0 + ADR FONTBUFF +SETLEN ADR 0 + RTS +;----------- +; +; Quit the editor +; +TXTQUIT BYT 'QUIT',0 +; +SCR1QUIT LDX #TXTQUIT + LDY /TXTQUIT + JSR NEEDSAVE + PHP + JSR BLAKBOTM + JSR PRINT + .DA #PRLOC,140,#184 + BYT PRCNTR + .DA #PRSTR,TXTPRET,' TO ' + .DA #PRSTR,TXTGTMM,#NOCR,#0 + JSR WAITCR + BNE >0 + JMP MAINMENU +^0 JSR BLAKBOTM + PLP + RTS +;----------- +TXTGTMM BYT 'GO TO MAIN MENU',0 +TXTPRET BYT 'PRESS ' +TXTRET BYT '',0 +;----------- +; +; Draw initial screen +; +SCREEN1 JSR CLSCREEN + JSR TOP1 +; +; Edit box +; + JSR PRINT + BYT RTOSANY,$7E,XOFF-1,YOFF-6,1,12+3*FONTH + BYT RTOSWITE,XOFF,YOFF-6,14,12+3*FONTH + BYT RTOSANY,$0F,XOFF+14,YOFF-6,1,12+3*FONTH + BRK + JSR LINES + BYT 'H' + BYT GRAY,XOFF2-4,YOFF-4,8+2*FONTW + BYT GRAY,XOFF2-4,YOFF-3,8+2*FONTW + BYT GRAY,XOFF2-4,YOFF+2+3*FONTH,8+2*FONTW + BYT GRAY,XOFF2-4,YOFF+3+3*FONTH,8+2*FONTW + BYT 1 + JSR LINES + BYT 'V' + BYT GRAY,XOFF2-4,YOFF-4,8+3*FONTH + BYT GRAY,XOFF2-3,YOFF-4,8+3*FONTH + BYT GRAY,XOFF2+2+2*FONTW,YOFF-4,8+3*FONTH + BYT GRAY,XOFF2+3+2*FONTW,YOFF-4,8+3*FONTH + BYT 1 +; +; Right side of SCREEN1 +; +S1SPC = 18 +SC1Y1 = 20 +SC1Y2 = SC1Y1+67 +; +SCR1RITE JSR BLAKRITE + JSR PRINT + BYT PRCNTR + .DA #PRLOC,XCENT,#SC1Y1 + BYT 'SELECT',CR + BRK + JSR MESS1 + JSR PRINT + BYT PRCNTR + BYT 'PRESS',CR + .DA #PRSTR,TXTRET,#CR + BYT 'TO EDIT',CR +; + BYT RTOSWITE,26,SC1Y2,14,2 +; + BYT PRSPC,S1SPC + BYT PRLEFT + .DA #PRLOC,XEDGE,#SC1Y2+9 + .DA #PRSTR,TXTCTRL,'G',#CR + .DA #PRSTR,TXTCTRL,'S',#CR + .DA #PRSTR,TXTCTRL,'P',#CR + .DA #PRSTR,TXTCTRL,'C',#CR + .DA #PRSTR,TXTCTRL,'Q',#CR + BYT PRRITE + .DA #PRLOC,279,#SC1Y2+9+4 + .DA #PRSTR,TXTFONT,#CR + .DA #PRSTR,TXTFONT,#CR + .DA #PRSTR,TXTFONT,#CR + BYT 'LIST',CR + .DA #PRLOC,279,#SC1Y2+5 + BYT 'GET',CR + BYT 'SAVE',CR + BYT 'PRINT',CR + BYT PRSPC,S1SPC+4 + BYT 'CLEAR',CR + BYT 'QUIT',CR + BYT RTOSWITE,26,SC1Y2+91,14,2 +; +MUY = YOFF+124 + BYT PRLEFT + .DA #PRLOC,3,#MUY + BYT 'MEMORY USED: %',CR + BRK + JSR CALCMEM + LDX #16 + LDY #MUY + JMP NUMBER +;----------- +MESS1 JSR PRINT + BYT PRCNTR + .DA #PRSTR,TXTCHAR,#CR + BYT 'USING THE',CR + BYT 'KEYBOARD',CR + BYT CR,0 + RTS +;----------- +; +; Show the current letter +; +SCY = MUY+9 +SCX1 = 108 +SCX2 = 16 +SCX2B = SCX2*7 +; +SHOWCURR LDA OLDCHAR + CLC + ADC #$20 + STA >0+0 + JSR PRINT + BYT PRRITE + .DA #PRLOC,SCX1,#SCY + .DA #PRSTR,TXTCHAR + BYT ':',NOCR + BYT RTOSWITE,SCX2,SCY-1,2,9 + .DA #PRHTAB,SCX2B+7 + BYT PRCNTR + BYT PRINVR +^0 BYT ' ',NOCR,0 + RTS +;----------- +; +; Top line of screen +; +TOPX = 140 +; +TOP JSR PRINT + BYT RTOSWITE,0,0,40,16 + BYT PRRITE,PRINVR + .DA #PRLOC,TOPX,#4 + .DA #PRSTR,TXTFEDIT + BYT ':',CR + .DA #PRLOC,TOPX+5,#1 + BRK + RTS +; +TOP1 JSR TOP + JSR PRINT + BYT PRBIG,PRINVR + BYT 'MAIN',CR,0 + RTS +; +T2X = 105 +T2Y = 74 +TOP2 JSR BLAKDONE + JSR PRINT + BYT RTOSWITE,17,T2Y-2,7,35 + BYT PRCNTR,PRINVR + .DA #PRLOC,143,#T2Y + BYT PRCSPACE,1 + BYT 'PRESS',CR + .DA #PRSTR,TXTCTRL,'S',#CR + BYT 'WHEN',CR + BYT 'DONE',CR + BYT PRCSPACE,2 + BYT RTOSWITE,0,0,26,16 + BYT PRRITE + .DA #PRLOC,T2X,#4 + .DA #PRSTR,TXTFEDIT + BYT ':',CR + .DA #PRLOC,T2X+5,#1 + BYT PRBIG,PRLEFT + BYT 'EDIT',CR,0 + RTS +; +TOP3 JSR TOP + JSR PRINT + BYT PRBIG,PRINVR + BYT 'STORE',CR,0 + RTS +;----------- +; +; Right side of SCREEN3 +; +SC3Y1 = YOFF+11 +SC3Y2 = 164 +; +TXTTSA BYT 'TO STORE AS',0 +; +SCR3RITE JSR PRINT + BYT RTOSBLAK,26,16,14,169,0 + JSR TOP3 + JSR PRINT + BYT PRCNTR + .DA #PRLOC,XCENT,#SC3Y1 + BYT 'PRESS',CR + .DA #PRSTR,TXTRET,#CR + .DA #PRSTR,TXTTSA,#CR + BYT PRVTAB,SC3Y1+36 + BYT 'OR STORE AS',CR + BYT 'A DIFFERENT',CR + BRK + JSR MESS1 +; + JSR PRINT + BYT RTOSWITE,26,SC3Y2-5,14,2 + BYT PRVTAB,SC3Y2 + BRK + JMP >0 +;--- +; +; Error message for right side +; of screen 3, when user tries +; to save character more than +; once. +; +SC3Y9 = SC3Y1-12 +SCR3RIT2 JSR BLAKRITE + JSR MUSIC + JSR PRINT + BYT RTOSANY,$60,26,SC3Y9-8,1,132 + BYT RTOSANY,$60,39,SC3Y9-8,1,132 + BYT RTOSWITE,27,SC3Y9-8,13,2 + BYT RTOSWITE,27,SC3Y9+122,13,2 + BYT PRCNTR + .DA #PRLOC,XCENT,#SC3Y9 + BYT 'WARNING !',CR + BYT CR + BYT 'YOU HAVE',CR + BYT 'ALREADY',CR + BYT 'STORED A',CR + .DA #PRSTR,TXTCHAR,#CR + BYT PRSPC,2,CR,PRSPC,8 + BYT 'AS: ',CR + BYT PRSPC,2,CR,PRSPC,8 + BYT 'PRESS',CR + .DA #PRSTR,TXTRET,#CR + BYT PRSPC,12 + BYT 'TO STORE',CR + BYT 'OR',CR + BRK +;--- +^0 JSR PRINT + BYT PRCNTR + BYT ' TO',CR + BYT 'GO BACK',CR + BRK + RTS +;--- +; +; Show NEWCHAR and get key +; +SCR3KEY STY SLOP0 + STY SLOP2 + INY + STY SLOP1 +; + LDA NEWCHAR + CLC + ADC #$20 + STA >0+0 + JSR PRINT + BYT RTOSBLAK,32,SC3Y1+25,2,9 +SLOP0 = *-3 + BYT PRCNTR + .DA #PRLOC,XCENT,#SC3Y1+26 +SLOP1 = *-1 +^0 BYT '?',CR,0 +;--- + ASL TMP0 +^0 JSR SCR3CURS + JSR FLSHINIT + ASL FLASHLO + ROL FLASHHI +^1 JSR POLEBTN + BMI >2 + DEC FLASHLO + BNE <1 + DEC FLASHHI + BPL <1 + BMI <0 +; +SCR3CURS JSR PRINT + BYT RTOSINV,32,SC3Y1+25,2,9,0 +SLOP2 = *-4 + INC TMP0 +^2 RTS +;----------- +; +; Check to see if this char has +; already been stored. If so, +; display message. SEC= +; CLC=ok to store. +; +SCR3ALRY LDY NEWCHAR + LDA FONT1W,Y + BPL >1 + JSR SCR3RIT2 +^0 LDY #SC3Y9+49 + JSR SCR3KEY + CMP #ESC + BEQ >2 + CMP #CR + BEQ >1 + JSR BOOP + JMP <0 +; +^1 CLC +^2 RTS +;----------- +; +; Wait for return key +; with flashing bottom line +; +WAITCR JSR PRINT + BYT RTOSINV,0,183,40,9,0 + JSR FLSHINIT +^0 JSR POLEBTN + BNE >1 + DEC FLASHLO + BNE <0 + DEC FLASHHI + BPL <0 + BMI WAITCR +; +^1 CMP #CR + RTS +;----------- +; +; +; + ICL "S:FOEDIT2" diff --git a/PSC Source Disk 2 - Editors (v11)/S_FOEDIT2.txt b/PSC Source Disk 2 - Editors (v11)/S_FOEDIT2.txt new file mode 100644 index 0000000..b1441ce --- /dev/null +++ b/PSC Source Disk 2 - Editors (v11)/S_FOEDIT2.txt @@ -0,0 +1,602 @@ +; +; S:FOEDIT2 +; +; Routines necessary to edit +; single character. +; +; Main Editor loop +; +EDITCHAR JSR EDITLOOP + JSR >1 + JMP EDITCHAR +; +^1 JSR PARSE + .DA #'L',CMDLINES + .DA #'R',CMDRAYS + .DA #'B',CMDBOX + .DA #'O',CMDOVAL +; + .DA #'C'-$40,CMDCLEAR + .DA #'P'-$40,CMDPRINT + .DA #'D'-$40,CMDDEVIC + .DA #'I'-$40,CMDREFLN + .DA #'A'-$40,CMDADJST + .DA #'R'-$40,CMDRESTR + .DA #' ',CMDSPACE + .DA #ESC,EDITDESC + .DA #'S'-$40,EDITDCR + BRK + RTS +;----------- +; +; Restore old character +; +CMDRESTR JSR BUFFSAVE + JSR LOADCHAR + JMP SHOWGR +;----------- +; +; Leave the EDIT mode +; +EDITDESC SEC + HEX 24 +EDITDCR CLC + PLA + PLA + RTS +;----------- +; +; Toggle reference lines +; +CMDREFLN LDA REFFLAGS + EOR #$80 + STA REFFLAGS + JMP SHOWGR +;----------- +; +; Adjust reference lines +; +ARY1 = 34 +ARY2 = ARY1+80 +; +; Save ref lines and X,Y +; +CMDADJST JSR BLAKDONE + LDA XCOOR + PHA + LDA YCOOR + PHA + LDX #2 +^0 LDA REFX1,X + PHA + DEX + BPL <0 +; + BIT REFFLAGS + BMI >1 + JSR CMDREFLN +; +^1 JSR BLAKRIT2 + LDX #26 + LDY #ARY1 + LDA #0 + JSR SHOWAROW + JSR PRINT + BYT PRSPC,9 + .DA #PRLOC,227,#ARY1+3 + BYT 'MOVE',CR + BYT 'CURSOR',CR + BYT 'TO',CR + BYT 'ADJUST',CR + BYT PRCNTR + .DA #PRHTAB,XCENT + BYT 'INDEX',CR + .DA #PRSTR,TXTLINES,#CR +; + BYT PRVTAB,ARY2 + BYT 'PRESS',CR + .DA #PRSTR,TXTRET,#CR + .DA #PRSTR,TXTWD,#CR + BRK + JSR SHOWCOOR +; + LDX #1 + JSR ADJUST1 + BCS >0 + LDX #0 + JSR ADJUST1 +; +; If SEC then restore ref lines +; +^0 ROR TMP0 + LDX #0 +^1 PLA + BIT TMP0 + BPL >2 + STA REFX1,X +^2 INX + CPX #3 + BLT <1 + PLA + STA YCOOR + PLA + STA XCOOR + JSR SHOWGR + JMP SCR2RITE +;--- +; +; Enter with X=0 or 1, move the +; reference lines. +; +ADJUST1 STX MOVERFY + LDA REFY1,X + STA YCOOR + LDA REFX1 + STA XCOOR + LDX #6 + CLC + JMP DOSHAPE +; +; DOSHAPE calls this routine which +; erases the old reference lines. +; DOSHAPE will plot the new lines +; automatically upon return. +; +MOVEREFS STX >8+1 + STY >9+1 +; +; Erase horizontal line +; + LDX #00 +MOVERFY = *-1 + LDY REFY1,X + LDX #FONTW-1 +^0 JSR MOVEREF1 + DEX + BPL <0 +; +; Erase vertical line +; + LDX REFX1 + LDY #FONTH-1 +^1 JSR MOVEREF1 + DEY + BPL <1 +; +^8 LDX #00 + STX REFX1 +^9 LDA #00 + LDX MOVERFY + STA REFY1,X + RTS +;--- +; +; Reset bit at X,Y +; +MOVEREF1 STX XCOOR + STY YCOOR + JSR RESETBIT + LDX XCOOR + LDY YCOOR + RTS +;----------- +; +; Clear work area +; +CMDCLEAR JSR BLAKBOTM + JSR PRINT + .DA #PRLOC,140,#185 + BYT PRCNTR + .DA #PRSTR,TXTRET + .DA #PRSTR,TXTTOCLR + .DA #PRSTR,TXTCHAR,#CR,#0 + JSR GETKEY + CMP #CR + BNE >0 + JSR BUFFSAVE + JSR CLRBUFF + JSR SHOWGR +^0 JMP SCR2BOTM +TXTCHAR BYT 'CHARACTER',0 +;----------- +; +; Check SETUP +; +CKPRINT JSR BLAKBOTM + JSR PRINT + .DA #PRLOC,140,#184 + BRK + LDA #'-' + JMP CHKPRINT +;----------- +; +; Print character +; +CMDPRINT JSR CKPRINT + BCS >0 + JSR PRINT + BYT PRCNTR + .DA #PRSTR,TXTPRET + .DA #PRSTR,TXTTOPRN + .DA #PRSTR,TXTCHAR + BYT CR,0 + JSR GETKEY + CMP #CR + BNE >0 + JSR PRINTGR +^0 JMP SCR2BOTM +;----------- +; +; Change input device +; +CMDDEVIC JSR DEVICECH + JMP SCR2BOTM +;----------- +; +; Shape handlers +; +CMDLINES LDA #0 + HEX 2C +CMDRAYS LDA #1 + HEX 2C +CMDBOX LDA #2 + HEX 2C +CMDOVAL LDA #3 + JSR SHAPHELP + JSR SHOWCOOR +; + LDA SHAPETYP + AND #7 + STA >0+1 + CLC +; +^0 LDX #00 + JSR DOSHAPE + BCS >1 + LDA #00 +SHAPETYP = *-1 + ASL + BMI <0 +; +; Fix up screen when done +; +^1 JMP SCR2RITE +;----------- +; +; Print help screen +; +HY1 = 2 +HY2 = 36 +HY3 = 105 +HY4 = 164 +; +SHAPHELP STA TMP0 + ASL + ADC TMP0 + ASL + TAX + LDY SHAPHLP9+0,X + LDA SHAPHLP9+1,X + STY >0+1 + STA >0+2 + LDA SHAPHLP9+2,X + STA SHAPETYP +; + LDY SHAPHLP9+3,X + LDA SHAPHLP9+4,X + STY >4+1 + STA >4+2 +; + LDA SHAPHLP9+5,X + STA HELPTEMP +; + JSR SETPLOTX + JSR BUFFSAVE +; + JSR BLAKDONE + JSR BLAKRIT2 + JSR PRINT + BYT PRBIG,PRCNTR + .DA #PRLOC,XCENT,#HY1 +^0 .DA #PRSTR,$FFFF,#NOCR,#0 +; + LDX #26 + LDY #HY2 + LDA #0 + JSR SHOWAROW + JSR PRINT + .DA #PRLOC,227,#HY2+3 + BYT 'MOVE',CR + BYT 'CURSOR',CR + BYT 'TO',CR + BYT 'DRAW',CR + .DA #PRLOC,XCENT,#HY2+48 + BYT PRCNTR + BYT PRCSPACE,1 + .DA 'N ',#PRSTR,TXTNEGA,#CR + BYT PRCSPACE,2 + BYT PRCNTR + .DA #PRLOC,XCENT,#HY3 + BYT 'PRESS',CR + .DA #PRSTR,TXTRET,#CR + BYT 'TO PLACE',CR + BYT PRCNTR +^4 .DA #PRSTR,$FFFF,#CR + BYT RTOSWITE,26,HY4-6,14,2 + BYT PRVTAB,HY4 + BYT 'PRESS ',CR,0 +; + LDA #00 +HELPTEMP = *-1 + BPL >5 + JSR PRINT + BYT PRCNTR + .DA #PRSTR,TXTWD,#CR,#0 + JMP >6 +; +^5 JSR PRINT + BYT PRCNTR + BYT 'TO GO BACK',CR,0 +; +^6 RTS +; +TXTWD BYT 'WHEN DONE',0 +; +; 64 means stay in shape routine +; until ESC is pressed. 128 means +; don't re-initialize X1,Y1 each time +; the remaining number is the shape +; number used by DOSHAPE +; +SHAPHLP9 .DA TXTLINES,#0+64 + .DA TXTLINE,#$80 +; + .DA TXTRAYS,#0+64+128 + .DA TXTLINE,#$80 +; + .DA TXTBOX,#2 + .DA TXTBOX,#$00 +; + .DA TXTOVAL,#4 + .DA TXTOVAL,#$00 +; +TXTLINE BYT 'LINE',0 +TXTLINES BYT 'LINES',0 +TXTRAYS BYT 'RAYS',0 +TXTBOX BYT 'BOX',0 +TXTOVAL BYT 'OVAL',0 +;----------- +; +; Show next page +; +CMDSPACE INC PAGENUM + LDA PAGENUM + EOR #4 + BNE SHOWPAGE + STA PAGENUM +; +; Show help screen +; +SHOWPAGE JSR BLAKPAGE +; + LDY #0 +PAGENUM = *-1 + JSR JMPVECTS + ADR PAGE1 + ADR PAGE2 + ADR PAGE3 + ADR PAGE4 +; +XCENT = 231 +XEDGE = 182 +XR1 = 13 +XR2 = 24 +P1SPC = 13 +; +PG1Y = 69 +PAGE1 JSR PRINT + BYT PRCSPACE,1 + BYT PRSPC,P1SPC + .DA #PRLOC,XEDGE,#PG1Y + .DA #PRSTR,TXTCTRL,'P',#CR + .DA #PRSTR,TXTCTRL,'C',#CR + .DA #PRSTR,TXTCTRL,'D',#CR + .DA #PRSTR,TXTCTRL,'L',#CR + .DA #PRSTR,TXTCTRL,'I' + BYT PRSPC,8+P1SPC,CR + .DA #PRSTR,TXTCTRL,'A' + BYT PRSPC,8+P1SPC,CR + .DA #PRSTR,TXTCTRL,'R',#CR +; + BYT PRRITE,PRSPC,P1SPC + .DA #PRLOC,279,#PG1Y + BYT 'PRINT',CR + BYT 'CLEAR',CR + BYT 'DEVICE',CR + BYT 'LOCK',CR + BYT PRSPC,8 + BYT 'INDEX',CR + BYT PRSPC,P1SPC + BYT 'LINES',CR + BYT PRSPC,8 + BYT 'ADJUST',CR + BYT PRSPC,P1SPC + BYT 'INDEX LINES',CR + BYT 'REDO',CR +; + BRK + RTS +;----------- +PAGE2 JSR PRINT + BYT PRSPC,14 + BYT PRCSPACE,1 + .DA #PRLOC,XEDGE,#66 +; + BYT 'D - DRAW',CR + BYT 'E',PRRTAB,XR1,'- ERASE',CR + BYT '1',PRRTAB,XR1,'- INSERT ROW',CR + BYT '2',PRRTAB,XR1,'- DELETE ROW',CR +; + BYT PRSPC,8 + BYT '3',PRRTAB,XR1,'- INSERT',CR + BYT PRSPC,14,PRRTAB,XR2 + .DA #PRSTR,PAGE2COL,#CR +; + BYT PRSPC,8 + BYT '4',PRRTAB,XR1,'- DELETE',CR + BYT PRSPC,14,PRRTAB,XR2 + .DA #PRSTR,PAGE2COL,#CR +; + BYT 'F',PRRTAB,XR1,'- FLOOD FILL',CR + BRK + RTS +; +PAGE2COL BYT 'COLUMN',0 +;----------- +PAGE3 JSR PRINT + BYT PRCSPACE,1 + .DA #PRLOC,XEDGE,#66 +; + BYT PRSPC,8 + BYT 'H - FLIP',CR + BYT PRSPC,12,PRRTAB,XR2 + BYT 'HORIZONTAL',CR +; + BYT PRSPC,8 + BYT 'V',PRRTAB,XR1,'- FLIP',CR + BYT PRSPC,12,PRRTAB,XR2 + BYT 'VERTICAL',CR +; + BYT 'N',PRRTAB,XR1 + .DA #PRSTR,TXTNEGA,#CR + BYT 'ESC - GO BACK',CR + BRK + LDX #26 + LDY #133 + LDA #1 + JSR SHOWAROW + JSR PRINT + BYT PRRITE + .DA #PRLOC,279,#148 + BYT 'SCROLL',CR,0 + RTS +TXTNEGA BYT '- NEGATIVE',0 +;----------- +PAGE4Y = 105 +Z1 = 17 +Z2 = PAGE4Y-1 +; +PAGE4 JSR PRINT + .DA #PRLOC,XCENT,#66 + BYT PRCNTR + BYT 'POSITION',CR + BYT 'CURSOR',CR + BYT '& PRESS:',CR +; BYT RTOSWITE,26,92,14,2 + BYT PRLEFT,PRSPC,Z1 + BYT PRVTAB,PAGE4Y + .DA #PRHTAB,XEDGE +; + BYT 'L',PRRTAB,XR1,'- ' + .DA #PRSTR,TXTLINES,#CR + BYT PRPIC,37,Z2,2,9 + HEX 813E70230F2081208123602018200620 + HEX C13F +; + BYT 'R',PRRTAB,XR1,'- ' + .DA #PRSTR,TXTRAYS,#CR + BYT PRPIC,37,Z2+Z1,2,9 + HEX 218131811181191809064D0135810F81 + HEX C13F +; + BYT 'B',PRRTAB,XR1,'- ' + .DA #PRSTR,TXTBOX,#CR + BYT PRPIC,37,Z2+Z1*2,2,9 + HEX C13F0120012001200120012001200120 + HEX C13F +; + BYT 'O',PRRTAB,XR1,'- ' + .DA #PRSTR,TXTOVAL,#CR + BYT PRPIC,37,Z2+Z1*3,2,9 + HEX 70030C0C021001200120012002100C0C + HEX 7003 + BRK + RTS +;----------- +; +; Erase the top of the right side +; used by EDIT screen. +; +BLAKRIT2 JSR PRINT + BYT RTOSBLAK,26,0,14,16 + BRK +; +; Erase right side of screen +; +BLAKRITE JSR PRINT + BYT RTOSBLAK,26,16,14,176 + BRK +; +; Erase bottom of screen +; +BLAKBOTM JSR PRINT + BYT RTOSBLAK,0,181,40,11,0 + CLC + RTS +; +; Erase help page area +; +BLAKPAGE JSR PRINT + BYT RTOSBLAK,26,63,14,114,0 + RTS +;----------- +; +; Show right part of screen +; +SCR2RITE JSR TOP2 + JSR BLAKRIT2 + LDX #26 + LDY #0 + TYA + JSR SHOWAROW + JSR PRINT + .DA #PRLOC,227,#11 + BYT 'MOVE',CR + BYT 'CURSOR',CR + .DA #PRLOC,182,#39 + BYT PRSPC,11 + BYT PRCSPACE,1 + BYT 'P - PATTERN',CR + BYT 'X',PRRTAB,XR1,'- MIRRORS',CR + BYT RTOSWITE,26,61,14,2 + BYT RTOSWITE,26,177,14,2 + BRK + JSR SHOWBOXS + JSR SHOWPAGE +; +; Display bottom help stuff +; +SCR2BOTM JSR BLAKBOTM + JSR SHOWCOOR + JSR PRINT + .DA #PRHTAB,169 + BYT PRRITE,PRCSPACE,1 + BYT 'U - UNDO',NOCR,0 +; + LDA #XEDGE/7 + JMP SPACEBAR +;----------- +; +; Show coordinates X= Y= +; +SHOWCOOR JSR PRINT + .DA #PRLOC,7,#185 + BYT 'X=',NOCR + .DA #PRHTAB,49 + BYT 'Y=',NOCR,0 + RTS +;----------- +; +; +; + ICL "S:FOEDIT3" diff --git a/PSC Source Disk 2 - Editors (v11)/S_FOEDIT3.txt b/PSC Source Disk 2 - Editors (v11)/S_FOEDIT3.txt new file mode 100644 index 0000000..8ef71ec --- /dev/null +++ b/PSC Source Disk 2 - Editors (v11)/S_FOEDIT3.txt @@ -0,0 +1,653 @@ +; +; S:FOEDIT3 +; +; Low level stuff +; --------------- +; +; MOVEFONT: given Y=size 0,1 or 2, +; move font loaded at BUF2 +; into BUF1 with sizing. +; +; MOVUFONT: move user font to BUF2 +; +; LOADCHAR: given OLDCHAR=character +; move data into EDITBUFF +; +; SAVECHAR: given NEWCHAR=char to be +; replaced, remove that +; character from buffer. +; If not enough room then +; SEC is returned. +; +; SHOWDONE: show which characters have +; been altered. +; +;-------------- +MFZ EPZ $80 +; +MFSIZE EPZ MFZ +MFSIZEX2 EPZ MFZ+1 +MFSIZET EPZ MFZ+2 +MFCHAR EPZ MFZ+3 +MFDESTL EPZ MFZ+4 +MFDESTH EPZ MFZ+5 +MFSOURL EPZ MFZ+6 +MFSOURH EPZ MFZ+7 +MFHEIGHT EPZ MFZ+8 +MFWIDTH EPZ MFZ+9 +MFTMPW EPZ MFZ+10 +MFFDATA EPZ MFZ+11 +MFBUILD EPZ MFZ+12 +; +; Given Y=0,1 or 2 for small, medium +; or large sizing, move font in +; FONT2BUF down to official font +; buffer. This routine also removes +; and extraneous lint bits. +; +^0 BYT 1,2,4 +; +MOVEFONT STY MFSIZE + LDA <0+0,Y + STA MFSIZEX2 +; +; Initialize destination pointer +; + LDY #FONT1BEG + LDA /FONT1BEG + STY MFDESTL + STA MFDESTH +; +; Scan through the entire font, +; skipping: " " and "@" +; + LDX #1 +MFNXCHAR STX MFCHAR + CPX #'@'-$20 + BEQ MFSKIP +; +; Point to font data +; + LDA FONT2AL,X + STA MFSOURL + LDA FONT2AH,X + CLC + ADC /FONT2BUF-FONT1BUF + STA MFSOURH +; + LDA FONT2W,X + AND #$7F + STA MFWIDTH + STA FONT1W,X +; + LDA FONT2H,X + STA MFHEIGHT + STA FONT1H,X +; +; Compute new size +; + LDY MFSIZE +^0 DEY + BMI >1 + ASL FONT1W,X + ASL FONT1H,X + JMP <0 +; +; Add "done bit" back in +; +^1 LDA FONT2W,X + AND #$80 + ORA FONT1W,X + STA FONT1W,X +; +; Update data pointer +; + LDA MFDESTL + STA FONT1AL,X + LDA MFDESTH + STA FONT1AH,X +; + JSR MFDOCHAR +; +MFSKIP LDX MFCHAR + INX + CPX #'Z'-$1F + BCC MFNXCHAR + LDA MFDESTL + SBC #FONTBUFF + STA LENLO + LDA MFDESTH + SBC /FONTBUFF + STA LENHI + RTS +;--- +; +; Move character to FONT1BUF +; +MFDOCHAR LDY MFSOURL + LDA MFSOURH + STY >1+1 + STA >2+1 + LDA MFSIZEX2 +^0 PHA +^1 LDY #00 +^2 LDA #00 + STY MFSOURL + STA MFSOURH + JSR MFDOLINE + PLA + SEC + SBC #1 + BNE <0 + DEC MFHEIGHT + BNE MFDOCHAR + RTS +;--- +; +; Move one line of font data +; +MFDOLINE LDA MFWIDTH + STA MFTMPW + LDX #8 +^0 LDY #0 + LDA (MFSOURL),Y + STA MFFDATA + INC MFSOURL + BNE *+4 + INC MFSOURH + LDY #8 +; +^1 LDA MFSIZEX2 + STA MFSIZET + ASL MFFDATA +^2 PHP + ROL MFBUILD + DEX + BNE >3 + JSR MFSTORE + LDX #8 +^3 PLP + DEC MFSIZET + BNE <2 +; + DEC MFTMPW + BEQ >4 + DEY + BNE <1 + BEQ <0 +; +^4 CPX #8 + BEQ MFSRTS +; +; Compensate for straggling bits +; +^5 ASL MFBUILD + DEX + BNE <5 +; +; Fall into STORE +; +; Store a byte into FONT1BUF +; +MFSTORE LDA MFBUILD + STY >0+1 + LDY #0 + STA (MFDESTL),Y + INC MFDESTL + BNE >0 + INC MFDESTH +^0 LDY #00 +MFSRTS RTS +;----------- +; +; Move user font into BUF2 +; and make it look like a normal +; font that is loaded at $6000 +; +MOVUFONT LDY #0 +^0 LDA UFONTBUF,Y + STA FONT2BUF,Y + LDA UFONTBUF+$100,Y + STA FONT2BUF+$100,Y + LDA UFONTBUF+$200,Y + STA FONT2BUF+$200,Y + LDA UFONTBUF+$300,Y + STA FONT2BUF+$300,Y + INY + BNE <0 +; +; Adjust data pointers +; + LDY #'Z'-$20 +^1 LDA FONT2AH,Y + SEC + SBC /UFONTBUF-FONT1BUF + STA FONT2AH,Y + DEY + BPL <1 + RTS +;----------- +; +; Load char into edit buffer +; +LOADCHAR JSR CLRBUFF +; +; Compare character with edit +; buffer BEQ if the same, BNE +; if different. +; +CMPCHAR LDY OLDCHAR + LDA FONT1AL,Y + STA >1+1 + LDA FONT1AH,Y + STA >1+2 + JSR GETXYLEN + STX NEWWITH + STY NEWHITE + JSR PNTEDIT +^0 LDY #0 +^1 LDA $FFFF,X + INX + EOR (TMP0),Y + STA (TMP0),Y + INY + CPY NEWWITH + BLT <1 + JSR INCEDIT + DEC NEWHITE + BNE <0 + JMP CHKBUFF +;----------- +; +; Save the character +; +; First check to see if there is +; enough room for the edited char. +; +; This is done by subracting out the +; length of the character that is to +; be replaced and adding in the new +; length of the edited character. If +; this value is greater than or equal +; to $17F4, then MEMORY FULL!!! +; +SAVECHAR JSR FINDDIM + LDY NEWCHAR + LDA FONT1AL,Y + STA TMP0 + LDA FONT1AH,Y + STA TMP1 + JSR GETXYLEN + STA OLDLEN +; +; Subtract out old char length +; + LDA LENLO + LDY LENHI + SEC + SBC OLDLEN + BCS >0 + DEY +; +; Add in new char length +; +^0 CLC + ADC NEWLEN + BCC >1 + INY +; +; Is it too big? +; +^1 CPY /MAXLEN+1 + BNE >2 + CMP #MAXLEN+1 +^2 BCC >3 + RTS +; +; Enough room, so: +; +; Remove character given in NEWCHAR +; +; TMP0.1 points to data for char +; to be removed +; +; TMP2.3 points to data just above +; char to be removed +; +^3 LDA OLDLEN + CLC + ADC TMP0 + STA TMP2 + LDA TMP1 + ADC #0 + STA TMP3 +; +; Scan through FONT DATA and fix +; all pointers that point to data +; above this character +; + LDX #$3A +^0 CPX #'@'-$20 + BEQ >2 +; + LDA FONT1AH,X + CMP TMP1 + BNE >1 + LDA FONT1AL,X + CMP TMP0 +^1 BLT >2 +; + LDA FONT1AL,X + SEC + SBC OLDLEN + STA FONT1AL,X + BCS >2 + DEC FONT1AH,X +; +^2 DEX + BPL <0 +; +; Calculate new length by +; subtracting length of removed char +; + LDA LENLO + LDY LENHI + SEC + SBC OLDLEN + BCS >3 + DEY +^3 STA LENLO + STY LENHI +; +; Set TMP4.5 to first available byte +; + CLC + ADC #FONTBUFF + STA TMP4 + TYA + ADC /FONTBUFF + STA TMP5 +; +; Move data down +; + LDY #0 +^0 LDA TMP1 + CMP TMP5 + BNE >1 + LDA TMP0 + CMP TMP4 + BEQ >2 +^1 LDA (TMP2),Y + STA (TMP0),Y + INC TMP0 + BNE *+4 + INC TMP1 + INC TMP2 + BNE *+4 + INC TMP3 + JMP <0 +; +; Move edited character to its home +; +; Given TMP4.5 points to end of file +; NEWWITH, NEWHITE and NEWCHAR. +; +^2 LDY NEWCHAR + LDA NEWWITH +; +; Set "done bit" +; + ORA #$80 + STA FONT1W,Y +; + LDA NEWHITE + STA FONT1H,Y + LDA TMP4 + STA >2+1 + STA FONT1AL,Y + LDA TMP5 + STA >2+2 + STA FONT1AH,Y +; +; Calc width in bytes +; + LDX NEWWITH + JSR GETLENTH + STX NEWWITH +; + JSR PNTEDIT +; +; Move EDITBUFF data to end of +; FONT data file +; +^0 LDY #0 +^1 LDA (TMP0),Y +^2 STA $FFFF,X + INX + INY + CPY NEWWITH + BLT <1 + JSR INCEDIT + DEC NEWHITE + BNE <0 +; + TXA + CLC + ADC LENLO + STA LENLO + BCC >3 + INC LENHI +^3 CLC + RTS +;----------- +; +; Given Y=character +; return: X=width in bytes +; Y=height in bytes +; A=length in bytes +; +GETXYLEN LDA FONT1W,Y + AND #$7F + TAX + LDA FONT1H,Y + TAY +; +; Calculate length given +; X=width, Y=height +; See above for returned values +; +GETLENTH STY >1+1 + DEX + TXA + LSR + LSR + LSR + TAX + INX + LDA #0 + CLC + STX >0+1 +^0 ADC #00 + DEY + BNE <0 +^1 LDY #00 + RTS +;--- +; +; Point to EDITBUFF +; +PNTEDIT LDY #EDITBUFF + LDA /EDITBUFF + STY TMP0 + STA TMP1 + LDX #0 + RTS +;--- +; +; INC EDITBUFF pointer by 11 +; +INCEDIT LDA TMP0 + CLC + ADC #11 + STA TMP0 + BCC >0 + INC TMP1 +^0 RTS +;----------- +; +; Find dimensions of character +; in the edit buffer. +; +FINDDIM LDA XCOOR + PHA + LDA YCOOR + PHA +; + LDA #0 + STA NEWWITH + STA NEWHITE + STA XCOOR + STA YCOOR +; +^0 JSR BASECALC + AND (BUFLO),Y + BEQ >2 +; + LDA XCOOR + CMP NEWWITH + BLT >1 + STA NEWWITH +; +^1 LDA YCOOR + CMP NEWHITE + BLT >2 + STA NEWHITE +; +^2 INC XCOOR + LDA XCOOR + EOR #FONTW + BNE <0 + STA XCOOR + INC YCOOR + LDA YCOOR + EOR #FONTH + BNE <0 +; + INC NEWWITH + INC NEWHITE +; + LDX NEWWITH + LDY NEWHITE + JSR GETLENTH + STA NEWLEN + PLA + STA YCOOR + PLA + STA XCOOR + RTS +;----------- +; +; Display all the letters in font +; and inverse those that have been +; altered. +; +SDCENTER BYT 2,0,4,3,4,5 + BYT 1,4,4,6,6,4 +SDCRCHR BYT '!&,16;AFKOSW',0 +; +SHOWDONE LDY #0 + STY SDYLOC + LDY #SDY-SDH + STY SHOWDY + LDA #'!' +SDLOOP PHA + STA SDBOXMD3 + TAX + CMP #'@' + BEQ SDSKIP +; + LDY #$FF +^0 INY + LDA SDCRCHR,Y + BEQ >1 + PLA + PHA + CMP SDCRCHR,Y + BEQ >0 + BNE <0 +; +; Start new line +; +^0 LDY #00 +SDYLOC = *-1 + INC SDYLOC + LDA SDCENTER,Y + CLC + ADC #SDX + STA SHOWDX + LDA SHOWDY + ADC #SDH + STA SHOWDY + STA SDBOXMD1+3 +; +; Update X +; +^1 LDA #00 +SHOWDX = *-1 + STA SDBOXMD0+2 + CLC + ADC #SDW/2 + STA SDBOXMD1+1 +; +; Get char width +; + LDA UFONTW-$20,X + CLC + ADC #SDW + STA SDBOXMD0+4 + ADC SHOWDX + STA SHOWDX +; +; Has char been altered? +; + LDA FONT1W-$20,X + BPL >3 +; +; Draw white box where letter is to +; be drawn. +; + LDY #00 +SHOWDY = *-1 + DEY + STY SDBOXMD0+3 + LDA #9 +^2 PHA + JSR LINES +SDBOXMD0 BYT 'H',WITE,0,0,0,1 + INC SDBOXMD0+3 + PLA + SEC + SBC #1 + BNE <2 + LDA #PRINVR + HEX 2C +; +^3 LDA #PRNORM + STA SDBOXMD2 + JSR PRINT +SDBOXMD1 .DA #PRLOC,0,#0 +SDBOXMD2 BYT PRINVR +SDBOXMD3 BYT ' ',NOCR,0 +; +SDSKIP PLA + CLC + ADC #1 + CMP #'Z'+1 + BEQ >4 + JMP SDLOOP +^4 RTS +;----------- +; +; +; + ICL "S:FOEDIT4" diff --git a/PSC Source Disk 2 - Editors (v11)/S_FOEDIT4.txt b/PSC Source Disk 2 - Editors (v11)/S_FOEDIT4.txt new file mode 100644 index 0000000..960187b --- /dev/null +++ b/PSC Source Disk 2 - Editors (v11)/S_FOEDIT4.txt @@ -0,0 +1,500 @@ +; +; S:FOEDIT4 +; +; MAINCODE is the length of the +; code that must fit in the +; $4000.4FFF area +; +MCODE = *-ORG +; +;----------- +; +; Move program to it's home +; +MOVEPROG LDY #0 + STY SAVED? + LDX #16 +^0 LDA ORGLOAD,Y +^1 STA ORG,Y + INY + BNE <0 + INC <0+2+ORGDIFF + INC <1+2+ORGDIFF + DEX + BNE <0 +; + LDX #4 +^2 LDA TAILEND+ORGDIFF,Y +^3 STA TAILORG,Y + TXA + BNE >4 + CPY #$A5 + BEQ >5 +^4 INY + BNE <2 + INC <2+2+ORGDIFF + INC <3+2+ORGDIFF + DEX + BPL <2 +; +; Set EDIT routines +; +^5 LDX #FONTW + LDY #FONTH + JSR EDITINIT + JSR FONTMODS + JMP START2 +;----------- +TAILEND: + PHS TAILORG +;----------- +; +; Math routines +; +; +; CALCMEM : returns A=% memory used +; +; CALCHEAD: calculates and stores the +; 12 header bytes and also +; calculates the values for +; the space character ($20) +; +CPLMAX = 26 +LPPMAX = 14 +;----------- +; +; Calculate percentage of memory used +; +MAXLD100 = MAXLEN/100 +; +CALCMEM LDY #MAXLD100+1 + LDA /MAXLD100+1 + STY ACC2LO + STA ACC2HI + LDY LENLO + LDA LENHI + JSR DIVIDE + TYA + RTS +;----------- +; +; Calculate the 12 header bytes +; +;------ +CHZ EPZ $80 +; +CHMWL EPZ $50+13 +CHMWH EPZ $50+14 +CHMH EPZ CHZ +; +HEADER = FONTBUFF +; +CALCHEAD JSR STINSTAL + ADR RTS + ADR RTS + HBY FONT2BUF +; +; Transfer font pointers over to +; FONT2BUF +; + JSR TRF1F2 +; +; Print sample text to generate width +; variable +; + JSR PRINT + BYT PRRITE + BYT PRCSPACE,0 + BYT PRKERN,1 +^2 BYT 'ABCDEFGHIJKLM' + BYT 'NOPQRSTUVWXYZ' +CHLCOUNT = *-<2 + BYT CR + BYT PRKERN,0 + BRK + JSR STSCREEN +;--- +; +; Calculate the maximum height +; + LDA #0 + LDX #'Z'-$20 +^3 CPX #'@'-$20 + BEQ >4 + CMP FONT1H,X + BGE >4 + LDA FONT1H,X +^4 DEX + BNE <3 + STA CHMH +;--- +; +; Calculate average width and +; store space ($20) values +; + LDY #CHLCOUNT + LDA /CHLCOUNT + STY ACC2LO + STA ACC2HI + LDY CHMWL + LDA CHMWH + JSR DIVIDE +; +; Use 1/2 of average width +; + TYA + LSR + STA FONT1W + LDA #0 + STA FONT1H + LDY #FONT1H + LDA /FONT1H + STY FONT1AL + STA FONT1AH +;--- +; +; Store the reference line values +; + LDA REFX1 + STA FONT1W+$20 + LDA REFY1 + STA FONT1H+$20 + LDA REFY2 + STA FONT1AL+$20 + LDA #0 + STA FONT1AH+$20 +;--- +; +; Greeting card data +; + LDY #0 + LDX #CHGCTABL-CHTABLES + JSR CHCALC +;--- +; +; Letterhead data +; +; If the font will fit after it +; has been doubled, then use +; that value instead... +; + LDA CHMH + PHA + CMP #1+FONTH/2 + BGE >0 + ASL CHMH +; +^0 LDY #4 + LDX #CHLHTABL-CHTABLES + JSR CHCALC +; + LDA #52 + SEC + SBC CHMH + LSR + CLC + ADC #3 + STA HEADER+5 + LDA HEADER+7 + STA HEADER+6 + PLA + STA CHMH +;--- +; +; Banner calc +; + LDA #40 + SEC + SBC CHMH + LSR + STA HEADER+7 +;--- +; +; Screen Magic data +; + LDY #8 + LDX #CHSMTABL-CHTABLES +; +; fall into CHCALC +; +;------ +; +; Calculate group of values +; +; 1) Characters Per Line (CPL) +; +; (WIDTH/MW) +; +CHCALC STY TMP0 + STX TMP1 + LDY CHMWL + LDA CHMWH + STY ACC2LO + STA ACC2HI + LDY CHTABLES,X + LDA CHTABLES+1,X + JSR DIVIDE + TYA +; +; Make even +; + LSR + ASL +; + CMP #CPLMAX + BLT *+4 + LDA #CPLMAX + LDY TMP0 + STA HEADER,Y +; +; 2) Y-Increment (YINC) +; +; (MH+ADD VALUE) +; + LDX TMP1 + LDA CHMH + CLC + ADC CHTABLES+5,X + STA HEADER+3,Y +; +; 3) Letters Per Page (LPP) +; +; (HEIGHT/YINC) +; + STA ACC2LO + LDA #0 + STA ACC2HI + LDY CHTABLES+2,X + LDA CHTABLES+3,X + JSR DIVIDE + TYA +; + CMP #LPPMAX + BLT *+4 + LDA #LPPMAX + LDY TMP0 + STA HEADER+1,Y +; +; 4) Y starting Top (YTOP) +; +; (HEIGHT-(LPP*YINC))/2 +; + STA ACC1LO + LDA #0 + STA ACC1HI + LDA HEADER+3,Y + TAY + LDA #0 + JSR MULTIPLY +; + LDX TMP1 + LDA CHTABLES+2,X + SEC + SBC ACC1LO + STA ACC1LO + LDA CHTABLES+3,X + SBC ACC1HI + LSR + LDA ACC1LO + ROR + LDY TMP0 + CLC + ADC CHTABLES+4,X + STA HEADER+2,Y + RTS +;--- +; +; Header calc tables +; +CHTABLES: +CHGCTABL .DA CHLCOUNT*391,336 + BYT 30 + BYT 4 +CHLHTABL .DA CHLCOUNT*960,0 + BYT 0 + BYT 4 +CHSMTABL .DA CHLCOUNT*280,192 + BYT 0 + BYT 4 +;----------- +; +; 16 bit multiply routine +; +; ACC1=ACC1*ACC2 +; +; Enter with ACC2 in A,Y +; +; Return with result in A,Y +; +MULTIPLY STY ACC2LO + STA ACC2HI + LDA #0 + STA REMLO + STA REMHI + LDY #16 +^0 ASL REMLO + ROL REMHI + ASL ACC2LO + ROL ACC2HI + BCC >1 + CLC + LDA REMLO + ADC ACC1LO + STA REMLO + LDA REMHI + ADC ACC1HI + STA REMHI +^1 DEY + BNE <0 + LDY REMLO + LDA REMHI + STY ACC1LO + STA ACC1HI + RTS +;----------- +; +; 16 bit divide routine +; +; ACC1=ACC1/ACC2, remainder in REM +; +; Enter with A=hi, Y=lo +; ACC2LO,HI set +; +; Return with result in A=hi, Y=lo +; +DIVIDE STY ACC1LO + STA ACC1HI + LDA #0 + STA REMLO + STA REMHI + LDY #16 +^0 ASL ACC1LO + ROL ACC1HI + ROL REMLO + ROL REMHI + SEC + LDA REMLO + SBC ACC2LO + TAX + LDA REMHI + SBC ACC2HI + BCC >1 + STX REMLO + STA REMHI + INC ACC1LO +^1 DEY + BNE <0 + LDY ACC1LO + LDA ACC1HI + RTS +;----------- +; +; We can't use the FONT1BUF +; because the width table has all +; the hi bits messed up, so +; transfer the width, height and +; pointer tables to the FONT2BUF +; and clear the hi bits. +; +TRF1F2 LDY #0 +^0 LDA FONT1BUF,Y + STA FONT2BUF,Y + INY + CPY #$EC + BLT <0 + LDY #$3A +^1 LDA FONT2W,Y + AND #$7F + STA FONT2W,Y + DEY + BPL <1 + RTS +;----------- +; +; If the FONT hasn't been saved, +; then put warning on the screen. +; +NEEDSAVE LDA SAVED? + BMI >0 + CLC + RTS +; +^0 STX >1+1 + STY >1+2 + JSR >9 + JSR MUSIC + JSR PRINT + BYT PRCNTR + .DA #PRLOC,140,#50 + BYT 'WARNING !',CR,CR,CR + BYT 'YOU HAVE NOT SAVED',CR + BYT 'YOUR CURRENT FONT',CR + BYT CR + .DA #PRSTR,TXTPRET,' TO ' +^1 .DA #PRSTR,$FFFF,#CR + BYT PRSPC,4,CR + BYT 'OR',CR,CR + BYT CR,PRSPC,8 + BYT ' TO GO BACK',CR,0 +; + JSR GETKEY + CMP #CR + BEQ >9 + PLA + PLA +^9 JSR PRINT + BYT RTOSBLAK,0,16,40,176,0 + SEC + RTS +;----------- +; +; Left justify character +; +LEFTJUST JSR CHKBUFF + BEQ >9 +; + LDA XCOOR + PHA + LDA YCOOR + PHA +; +^0 LDX #0 + LDY #FONTH-1 + STX XCOOR + STY YCOOR +^1 JSR BASECALC + AND (BUFLO),Y + BNE >8 + DEC YCOOR + BPL <1 +; +; Scroll to the left one bit +; + LDX #FONTH +^2 LDY #5 + CLC +^3 LDA (BUFLO),Y + ROL + STA (BUFLO),Y + DEY + BPL <3 + LDA BUFLO + ADC #11 + STA BUFLO + BCC *+4 + INC BUFHI + DEX + BNE <2 + BEQ <0 +; +^8 JSR SHOWGR + PLA + STA YCOOR + PLA + STA XCOOR +^9 RTS +;----------- +; +; +; + ICL "S:FOEDIT5" diff --git a/PSC Source Disk 2 - Editors (v11)/S_FOEDIT5.txt b/PSC Source Disk 2 - Editors (v11)/S_FOEDIT5.txt new file mode 100644 index 0000000..d83b3fe --- /dev/null +++ b/PSC Source Disk 2 - Editors (v11)/S_FOEDIT5.txt @@ -0,0 +1,459 @@ +; +; S:FOEDIT5 +; +; Print the entire font +; +;----------- +; +; PRCOMS locations +; +CRLF = $1803 +SENDGC = $1806 +GCOUT = $1809 +MTHINK = $180C +MPRINT = $180F +MPAUSE = $1812 +COPYCONT = $1815 +UPLRK = $1816 +;----------- +; +; Print buffer constants +; +BUFWIDTH = 1024 +; +BUFMAX = 950 +; +PBUFFER = $2000 +TBUFFER = $BB00 +;----------- +; +; STROUT variables +; +STROUT = $8A00 +SPARM = STROUT+3 +; +; STROUT mod routines +; +STINSTAL = STROUT+$0F +STSCREEN = STROUT+$12 +; +STRZ EPZ $50 +; +PIXAD EPZ STRZ +XCUR EPZ STRZ+2 +WCOUNT EPZ STRZ+4 +BUFFER1 EPZ STRZ+5 +BUFFER2 EPZ STRZ+7 +SDXBYTE EPZ STRZ+9 +DATABYTE EPZ STRZ+10 +BCOUNT EPZ STRZ+11 +BLDBYTE EPZ STRZ+12 +;----------- +PRZ EPZ $80 +; +PYEND EPZ PRZ +PXCOOR EPZ PRZ+1 +PYCOOR EPZ PRZ+2 +PYCOORSV EPZ PRZ+3 +; +PXCOUNT EPZ PRZ+4 +PYCOUNT EPZ PRZ+5 +; +PBUILD EPZ PRZ+6 +PYSPACE EPZ PRZ+7 +; +PBUFSAVL EPZ PRZ+8 +PBUFSAVH EPZ PRZ+9 +PBUFL EPZ PRZ+10 +PBUFH EPZ PRZ+11 +; +PCHAR EPZ PRZ+12 +PCHAREND EPZ PRZ+13 +PMAXH EPZ PRZ+14 +PSTACK EPZ PRZ+15 +;----------- +; +; Print the font +; +; First install the font +; +PRINFONT JSR PRINT + BYT PRKERN,1 + BYT PRCSPACE,3 + BYT PRVTAB,0 + BRK + JSR STINSTAL + ADR PFOPTION + ADR PFLINDRW + HBY FONT2BUF +; + JSR TRF1F2 + JSR MTHINK +; + TSX + STX PSTACK + LDY #'A' + STY PCHAR + BNE PRSTART +;----------- +; +; Main loop +; +^0 STY PCHAR +; +; Find end of buffer +; + LDX #$FF +^1 INX + LDA TBUFFER,X + BNE <1 + STX PCHAREND +; +; Store char into buffer +; + TYA + STA TBUFFER,X + LDA #0 + STA TBUFFER+1,X +; +; Will the string fit? +; + LDA #3 + STA SPARM+1 + JSR UPLRK + JSR STROUT + CPY #BUFMAX + SBC /BUFMAX + BLT >3 +; +; String too long, get rid of last +; character and print the string. +; + LDX PCHAREND + LDA #0 + STA TBUFFER,X + JSR PRINLINE +; +PRSTART JSR MTHINK + LDY PCHAR + LDA #0 + STA TBUFFER + STA PMAXH + BEQ <0 +; +^3 LDY PCHAR + LDA FONT2H-$20,Y + CMP PMAXH + BLT >4 + STA PMAXH +^4 INY + CPY #'@' + BEQ >5 + CPY #'Z'+1 + BLT <0 + LDY #'!' + BNE <0 +; +; Now print +; +^5 LDA PMAXH + BEQ PFABORT + JSR PRINLINE + CLC +; +PFABORT LDX PSTACK + TXS + PHP + JSR STSCREEN + LDA #0 + STA SPARM+11 + JSR CLRPBUF2 + PLP + BCS >0 + LDX #12 + LDY #3 + JSR CRLF +^0 SEC + RTS +;----------- +; +; Clear print buffer +; +CLRPBUFF JSR MTHINK +; +CLRPBUF2 LDY #0 + LDX #$20 + STY TMP0 + STX TMP1 + TYA +^0 STA (TMP0),Y + INY + BNE <0 + INC TMP1 + DEX + BNE <0 + RTS +;----------- +; +; SMC for OPTION +; +PFOPTION STA SD0MOD0 + STA SD0MOD1 +; + STX SD1MOD0 + STX SD1MOD1 +; + STY SD2MOD0 + RTS +; +; LINEDRAW routine +; Buffer is PBUFFER+Y*128. +; +LORESL BRK +LORESH BRK +; +PFLINDRW TYA + LSR + ORA #$20 + STA BUFFER1+1 + LDA #0 + ROR + STA BUFFER1 +; +; Update lores screen? +; + LDA LORESL + ADC WCOUNT + STA LORESL + BCC >1 + INC LORESH + LDA LORESH + EOR #20 + BNE >1 + STA LORESH + JSR CHECKESC + JSR UPLRK +; +; Starting X-byte offset = XCUR/8 +; +^1 LDA XCUR+1 + STA SDXBYTE + LDA XCUR + LSR SDXBYTE + ROR + LSR SDXBYTE + ROR + LSR + STA SDXBYTE +; +; Compensate for bits not to be +; affected to the left. +; + LDA XCUR + AND #7 + TAX + LDY #9 +SD1MOD0 SEC + ROL BLDBYTE + DEY + DEX + BPL SD1MOD0 +; + LDX #0 +; +; Do a line of normal size +; +PFLINNRM LDA (PIXAD,X) + EOR #$FF +SD2MOD0 = *-1 + STA DATABYTE + INC PIXAD + BNE *+4 + INC PIXAD+1 + LDX #8 +^0 ASL DATABYTE + ROL BLDBYTE + DEY + BNE >1 +; + LDY SDXBYTE + INC SDXBYTE + LDA BLDBYTE +SD0MOD0 AND (BUFFER1),Y + STA (BUFFER1),Y + LDY #8 +; +^1 DEC WCOUNT + BEQ >2 + DEX + BNE <0 + BEQ PFLINNRM +; +^2 CPY #8 + BEQ >3 + LDA BLDBYTE +SD1MOD1 SEC + ROL + DEY + BNE SD1MOD1 + LDY SDXBYTE +SD0MOD1 AND (BUFFER1),Y + STA (BUFFER1),Y +^3 RTS +;----------- +; +; Print string to buffer, then print. +; +PRINLINE JSR CLRPBUFF + STA SPARM+1 + STA SPARM+2 + STA SPARM+3 + JSR STROUT +; + LDA PMAXH + CLC + ADC #6 + STA PYEND +; + JSR MPRINT +; + LDA #0 +; +; Print single line of buffer +; +PFPRLOP1 STA PYCOORSV +; +; Calculate buffer address +; + LSR + TAY + LDA #0 + ROR + STA PBUFSAVL + TYA + ADC /PBUFFER + STA PBUFSAVH +; +; Tell printer how many bytes +; + LDX #BUFWIDTH + LDY /BUFWIDTH + JSR SENDGC +; + LDX #0 +; +; Output line of data +; +PFPRLOP2 STX PXCOOR + LDX #0 +; +; Output 8 bytes +; +PFPRLOP3 STX PXCOUNT + LDX PBUFSAVL + LDA PBUFSAVH + STX PBUFL + STA PBUFH + LDX #0 + STX PBUILD + LDY PYCOORSV +; +; Output 1 byte +; +; X=counter, 0-6 +; Y=Y-coordinate +; +PFPRLOP4 STX PYCOUNT + STY PYCOOR +; + LDY PXCOOR + LDA (PBUFL),Y + LDX PXCOUNT + AND PBITS8,X + BEQ >1 +; + LDY PYCOUNT + LDA PBITS7,Y + ORA PBUILD + STA PBUILD +; +^1 LDA PBUFL + EOR #$80 + STA PBUFL + BNE *+4 + INC PBUFH +; + LDY PYCOOR + INY + LDX PYCOUNT + INX + CPY PYEND + BEQ >2 + CPX #7 + BLT PFPRLOP4 +; +^2 STX PYSPACE + LDA PBUILD + JSR GCOUT +; + LDX PXCOUNT + INX + CPX #8 + BLT PFPRLOP3 +; + LDX PXCOOR + INX + CPX #BUFWIDTH/8 + BLT PFPRLOP2 +; + LDX PYSPACE + LDY #1 + JSR CRLF +; + JSR CHECKESC +; + LDA PYCOORSV + CLC + ADC PYSPACE + CMP PYEND + CLC + BEQ >9 + JMP PFPRLOP1 +; +; Set spacing back to 6 characters +; per inch (12/72) +; +^9 RTS +; +; Bit lookup tables +; +PBITS8 HEX 80 +PBITS7 HEX 40201008040201 +;----------- +; +; Check for , if yes then +; show pausing message and allow +; another to abort. +; +CHECKESC JSR POLEKEY + CMP #ESC + BNE <9 + JSR DEVICEON + JSR MPAUSE + PHP + JSR DEVICEOF + PLP + BCC <9 + JMP PFABORT +;----------- +ACODE = *-TAILORG + DPH +;----------- +; +; +; + USR "FOEDIT,S4",ORGLOAD + LST +MAINLEN = MCODE +ALTLEN = ACODE + ICL "S:COMMONEDIT" diff --git a/PSC Source Disk 2 - Editors (v11)/S_GREDIT.txt b/PSC Source Disk 2 - Editors (v11)/S_GREDIT.txt new file mode 100644 index 0000000..d06f947 --- /dev/null +++ b/PSC Source Disk 2 - Editors (v11)/S_GREDIT.txt @@ -0,0 +1,3 @@ + NLS +; S:GREDIT + ICL "S:GREDIT1" diff --git a/PSC Source Disk 2 - Editors (v11)/S_GREDIT1.txt b/PSC Source Disk 2 - Editors (v11)/S_GREDIT1.txt new file mode 100644 index 0000000..bd32f19 --- /dev/null +++ b/PSC Source Disk 2 - Editors (v11)/S_GREDIT1.txt @@ -0,0 +1,817 @@ + TTL "S:GREDIT" +; S:GREDIT1 + NOG +; +ORG = $4000 +OBJ = $800 +; +; 04/11/85 +; 09/11/85 last mod +; (removed ESC) +; +; Graphic Editor main control +; +; The Print Shop Companion Disk +; +; by Roland Gustafsson +; +XSCRNMAX = 192 +YSCRNMAX = 140 +; +PICTBUFF = $6000 +;----------- + ORG ORG + OBJ OBJ +;----------- +START JMP GREDIT + JMP TILEMAGC + JMP CRMAKER +; + ASC "COPYRIGHT 1985 " + ASC "ROLAND GUSTAFSSON" +; +; Graphic Editor main entry point +; +GREDIT JSR SETMAX + JSR BUFFSAVE +; +; Graphic Editor entry point from +; Tile Magic and Creature Maker +; +GREDIT2: +; +; Draw Graphic Editor main screen +; +MAINSCRN JSR CLSCREEN + JSR PRINT + BYT RTOSWITE,0,0,25,16 + BYT PRCNTR,PRINVR + .DA #PRLOC,88,#4 + .DA #PRSTR,TXTGEDIT,#CR + BRK +; + JSR SHOWGR + JSR SHOWRITE +; +; Main loop +; +^0 JSR EDITLOOP + JSR >1 + BCC <0 + JMP MAINSCRN +; +^1 JSR PARSE + .DA #'L',CMDLINES + .DA #'R',CMDRAYS + .DA #'B',CMDBOX + .DA #'O',CMDOVAL + .DA #'T',CMDTEXT +; + .DA #'S'-$40,CMDSAVE + .DA #'G'-$40,CMDGET + .DA #'P'-$40,CMDPRINT + .DA #'D'-$40,CMDDEVIC + .DA #'C'-$40,CMDCLEAR + .DA #'Q'-$40,CMDQUIT + .DA #'T'-$40,CMDTILES + .DA #' ',CMDSPACE +TILEMOD .DA #$FF,ESC4TILE +CRMOD .DA #$FF,ESC4CR + BRK + CLC + RTS +;----------- +; +; Show graphic tiled +; +CMDTILES JSR CLSCREEN + JSR PRINT + BYT RTOSWITE,0,0,40,172 + BYT PRINVR + BYT PRSPC,52 + BYT PRCSPACE,0 + .DA #PRLOC,8,#8 + BYT '@@@',CR + BYT '@@@',CR + BYT '@@@',CR,0 + JMP ANYKEY2 +;----------- +; +; Save the graphic +; +CMDSAVE LDY #EDITBUFF + LDA /EDITBUFF + JSR SETADR + JSR SAVEFILE + SEC +^9 RTS +;----------- +; +; Get a graphic +; +CMDGET JSR LOADUNDO + BCS >1 + JSR CHKBUFF + BEQ >0 + JSR SUPERIMP + BCS CMDGET + DEY + BEQ >0 + JSR CLRBUFF +^0 JSR ORBUFF + JSR BUFFSAVE +^1 LSR SCALING + SEC + RTS +; +; Ask question about superimposing: +; +SUPERIMP JSR GETTEXT + JSR PRINT + BYT PRCNTR + .DA #PRLOC,140,#60 + BYT 'WOULD YOU LIKE TO SUPERIMPOSE',CR + BYT 'THE ' + .DA #PRSTR,TXTGR,' THAT YOU JUST',#CR + BYT 'SELECTED OVER THE ' + .DA #PRSTR,TXTGR,#CR + BYT 'ALREADY IN THE EDIT WINDOW ?',CR + BYT CR,'NO',CR,'YES',CR,0 + LDY #0 + JSR SELECT + BYT 17,6,99,2 + ADR >0 +^0 RTS +; +; Load the UNDO buffer with graphic +; that user selects from any of many +; different places! SEC=ESC pressed +; +TXTFRM BYT 'FROM ',0 +LOADUNDO JSR GETTEXT + JSR PRINT + BYT PRCNTR + .DA #PRLOC,140,#52 + BYT 'CHOOSE A ' + .DA #PRSTR,TXTGR,':',#CR + BYT CR,CR + .DA #PRSTR,TXTFRM,'PRINT SHOP DISK',#CR + .DA #PRSTR,TXTFRM,'COMPANION DISK',#CR + .DA #PRSTR,TXTFRM,'OTHER DISK',#CR + .DA #PRSTR,TXTFRM,#PRSTR,TXTSCRN,' MEMORY',#CR + .DA #PRSTR,TXTFRM,#PRSTR,TXTSCRN,' FILE',#CR + BRK +^0 LDY #00 +LOADFROM = *-1 + JSR SELECT + BYT 6,28,75,5 + ADR RTS + BCS >2 +; + STY LOADFROM + JSR >1 + BCC >2 + JMP LOADUNDO +; +^1 JSR JMPVECTS + ADR >3 + ADR GETCDISK + ADR GETODISK + ADR FRAMGRAB + ADR PICTLOAD +; +^2 RTS +;--- +; +; Get graphic from PS disk +; +^3 LDA #00 + LDX #UNDOBUFF + LDY /UNDOBUFF + JSR GETPDISK + BCS >4 + STA <3+1 + LDA #$FF + STA CRMOD +^4 RTS +;--- +; +; Get graphic from Companion Disk +; SIDE 2 !!! +; +GETCDISK LDA #2 + CLC + HEX 24 +; +; Get graphic from other disk +; +GETODISK SEC + PHP + LDY #UNDOBUFF + LDA /UNDOBUFF + JSR SETADR + PLP + JMP GETFILE +; +; Load a new hires picture file +; +PICTLOAD JSR SWAPD000 +; + JSR SETTYPE +TXTSCRN BYT 'SCREEN',0 + BYT 'SCREEN',0 + BYT 0 + BYT 34 +^0 ADR PICTBUFF + ADR $1FF8 +; + SEC + JSR GETFILE + PHP + JSR SWAPD000 + PLP + BCS >2 + JMP FRAMGRAB +; +; Swap $6000.7FFF with $D000 banks +; +SWAPD000 LDY #0 + LDA /PICTBUFF + STY TMP0 + STA TMP1 + LDX #$03 + JSR >0 + LDX #$0B +; +^0 LDA $C080,X + LDA $C080,X + STY TMP2 + LDA #$D0 + STA TMP3 + LDX #16 +; +^1 LDA (TMP0),Y + PHA + LDA (TMP2),Y + STA (TMP0),Y + PLA + STA (TMP2),Y + INY + BNE <1 + INC TMP1 + INC TMP3 + DEX + BNE <1 +^2 RTS +;----------- +; +; GET text window +; +GETTEXT JSR WITEBORD + JSR PRINT + BYT PRINVR,PRRITE + .DA #PRLOC,149,#4 + .DA #PRSTR,TXTGEDIT + BYT ':',CR + BYT PRBIG,PRLEFT + .DA #PRLOC,160,#1 + BYT 'GET',CR,0 + JMP ESCBACK +; +; Set type info with correct +; address for load/save +; +SETADR STY >0+0 + STA >0+1 + JSR SETTYPE +TXTGR BYT 'GRAPHIC',0 +TXTGEDIT BYT 'GRAPHIC EDITOR+',0 + BYT 0 + BYT 4 +^0 ADR UNDOBUFF + ADR $240 + RTS +;----------- +; +; Print current EDITBUFF to printer +; +CMDPRINT JSR BLAKBOTM + JSR PRINT + .DA #PRLOC,140,#185 + BRK + LDA #'-' + JSR CHKPRINT + BCS >0 + JSR PRINT + BYT PRCNTR + .DA #PRSTR,TXTPRET + BYT ' TO PRINT ' + .DA #PRSTR,TXTGR,#CR,#0 + JSR GETKEY + CMP #CR + BNE >0 + JSR PRINTGR +^0 JMP SHOWBOTM +;----------- +; +; Change input device +; +CMDDEVIC JSR DEVICECH + JMP SHOWBOTM +;----------- +; +; Clear buffer +; +CMDCLEAR JSR BLAKBOTM + JSR PRINT + .DA #PRLOC,140,#185 + BYT PRCNTR + .DA #PRSTR,TXTRET + BYT ' TO CLEAR ' + .DA #PRSTR,TXTGR + BYT ' AREA',CR,0 + JSR GETKEY + CMP #CR + BNE >0 + JSR BUFFSAVE + JSR SETMAX + JSR SHOWGR +^0 JMP SHOWBOTM +;----------- +; +; Quit the editor +; +CMDQUIT JSR CMDQUIT2 + JSR SHOWBOTM +QUITRTS RTS +; +CMDQUIT2 JSR BLAKBOTM + JSR PRINT + .DA #PRLOC,140,#185 + BYT PRCNTR + .DA #PRSTR,TXTPRET,' TO ' + .DA #PRSTR,TXTGTMM,#NOCR,#0 + JSR GETKEY + CMP #CR + BNE QUITRTS + JMP MAINMENU +TXTGTMM BYT 'GO TO MAIN MENU',0 +TXTPRET BYT 'PRESS ' +TXTRET BYT '',0 +;----------- +; +; Text in graphic +; +CMDTEXT LDA #4 + JSR SHAPHELP + JSR DRAWTEXT + JMP SHOWRITE +;----------- +; +; Shape handlers +; +CMDLINES LDA #0 + HEX 2C +CMDRAYS LDA #1 + HEX 2C +CMDBOX LDA #2 + HEX 2C +CMDOVAL LDA #3 + JSR SHAPHELP + JSR SHOWCOOR +; + LDA SHAPETYP + AND #7 + STA >0+1 + CLC +; +^0 LDX #00 + JSR DOSHAPE + BCS >1 + LDA #00 +SHAPETYP = *-1 + ASL + BMI <0 +; +; Fix up screen when done +; +^1 JMP SHOWRITE +;----------- +; +; Print help screen +; +HY1 = 2 +HY2 = 36 +HY3 = 105 +HY4 = 164 +; +HELPTEMP BRK +; +SHAPHELP STA TMP0 + ASL + ADC TMP0 + ASL + TAX + LDY SHAPHLP9+0,X + LDA SHAPHLP9+1,X + STY >0+1 + STA >0+2 + LDA SHAPHLP9+2,X + STA SHAPETYP +; + LDY SHAPHLP9+3,X + LDA SHAPHLP9+4,X + STY >4+1 + STA >4+2 +; + LDA SHAPHLP9+5,X + STA HELPTEMP +; + JSR SETPLOTX + JSR BUFFSAVE +; + JSR BLAKBOTM + JSR PRINT + BYT RTOSBLAK,26,0,14,192 + BYT PRBIG,PRCNTR + .DA #PRLOC,XCENT,#HY1 +^0 .DA #PRSTR,$FFFF,#NOCR,#0 +; + LSR HELPTEMP + BCC >1 +; + LDX #26 + LDY #HY2 + LDA #0 + JSR SHOWAROW + JSR PRINT + .DA #PRLOC,227,#HY2+3 + BYT 'MOVE',CR + BYT 'CURSOR',CR + BYT 'TO',CR + BYT 'DRAW',CR + .DA #PRLOC,XCENT,#HY2+48 + BYT PRCNTR + BYT PRCSPACE,1 + .DA 'N ',#PRSTR,TXTNEGA,#CR + BRK +; +^1 LSR HELPTEMP + BCC >2 + JSR PRINT + BYT PRCNTR + .DA #PRLOC,XCENT,#HY2+26 + BYT 'USE',CR + BYT 'KEYBOARD',CR + BYT 'TO ENTER',CR,0 + JMP >3 +; +^2 JSR PRINT + BYT PRCNTR + .DA #PRLOC,XCENT,#HY3 + BYT 'PRESS',CR + .DA #PRSTR,TXTRET,#CR + BYT 'TO PLACE',CR,0 +; +^3 JSR PRINT + BYT PRCNTR +^4 .DA #PRSTR,$FFFF,#CR + BYT RTOSWITE,26,HY4-6,14,2 + BYT PRVTAB,HY4 + BYT 'PRESS ',CR,0 +; + LSR HELPTEMP + BCC >5 + JSR PRINT + BYT PRCNTR + .DA #PRSTR,TXTWD,#CR,#0 + JMP >6 +; +^5 JSR PRINT + BYT PRCNTR + BYT 'TO GO BACK',CR,0 +; +^6 RTS +; +TXTWD BYT 'WHEN DONE',0 +; +; 64 means stay in shape routine +; until ESC is pressed. 128 means +; don't re-initialize X1,Y1 each time +; the remaining number is the shape +; number used by DOSHAPE +; +SHAPHLP9 .DA TXTLINES,#0+64 + .DA TXTLINE,#%101 +; + .DA TXTRAYS,#0+64+128 + .DA TXTLINE,#%101 +; + .DA TXTBOX,#2 + .DA TXTBOX,#%001 +; + .DA TXTOVAL,#4 + .DA TXTOVAL,#%001 +; + .DA TXTTEXT,#0 + .DA TXTTEXT,#%110 +; +TXTLINE BYT 'LINE',0 +TXTLINES BYT 'LINES',0 +TXTRAYS BYT 'RAYS',0 +TXTBOX BYT 'BOX',0 +TXTOVAL BYT 'OVAL',0 +TXTTEXT BYT 'TEXT',0 +;----------- +; +; Show next page +; +CMDSPACE INC PAGENUM + LDA PAGENUM + EOR #4 + BNE SHOWPAGE + STA PAGENUM +; +; Show help screen +; +SHOWPAGE JSR BLAKPAGE + JSR >0 + CLC + RTS +; +^0 LDY #0 +PAGENUM = *-1 + JSR JMPVECTS + ADR PAGE1 + ADR PAGE2 + ADR PAGE3 + ADR PAGE4 +; +XCENT = 231 +XEDGE = 182 +XR1 = 13 +XR2 = 24 +; +PG1Y = 68 +PAGE1 JSR PRINT + BYT PRCSPACE,1 + BYT PRSPC,14 + .DA #PRLOC,XEDGE,#PG1Y + .DA #PRSTR,TXTCTRL,'S',#CR + .DA #PRSTR,TXTCTRL,'G',#CR + .DA #PRSTR,TXTCTRL,'P',#CR + .DA #PRSTR,TXTCTRL,'C',#CR + .DA #PRSTR,TXTCTRL,'D',#CR + .DA #PRSTR,TXTCTRL,'Q',#CR + .DA #PRSTR,TXTCTRL,'L',#CR + .DA #PRSTR,TXTCTRL,'T',#CR + .DA #PRLOC,279,#PG1Y + BYT PRRITE + BYT 'SAVE',CR + BYT 'GET',CR + BYT 'PRINT',CR + BYT 'CLEAR',CR + BYT 'DEVICE',CR + BYT 'QUIT',CR + BYT 'LOCK',CR + .DA #PRSTR,TXTTILE,#CR + BRK + RTS +; +TXTCTRL BYT 'CTRL-',0 +;----------- +PAGE2 JSR PRINT + BYT PRSPC,14 + BYT PRCSPACE,1 + .DA #PRLOC,XEDGE,#66 +; + BYT 'D - DRAW',CR + BYT 'E',PRRTAB,XR1,'- ERASE',CR + BYT '1',PRRTAB,XR1,'- INSERT ROW',CR + BYT '2',PRRTAB,XR1,'- DELETE ROW',CR +; + BYT PRSPC,8 + BYT '3',PRRTAB,XR1,'- INSERT',CR + BYT PRSPC,14,PRRTAB,XR2 + .DA #PRSTR,PAGE2COL,#CR +; + BYT PRSPC,8 + BYT '4',PRRTAB,XR1,'- DELETE',CR + BYT PRSPC,14,PRRTAB,XR2 + .DA #PRSTR,PAGE2COL,#CR +; + BYT 'F',PRRTAB,XR1,'- FLOOD FILL',CR + BRK + RTS +; +PAGE2COL BYT 'COLUMN',0 +;----------- +P3SPC = 15 +; +PAGE3 JSR PRINT + BYT PRCSPACE,1 + .DA #PRLOC,XEDGE,#66 +; + BYT 'H - FLIP',CR + BYT PRSPC,P3SPC,PRRTAB,XR2 + BYT 'HORIZONTAL',CR +; + BYT PRSPC,8 + BYT 'V',PRRTAB,XR1,'- FLIP',CR + BYT PRSPC,P3SPC,PRRTAB,XR2 + BYT 'VERTICAL',CR +; + BYT 'N',PRRTAB,XR1 + .DA #PRSTR,TXTNEGA,#CR +;;;;;;;; BYT 'ESC - GO BACK',CR + BRK + LDX #26 + LDY #133 + LDA #1 + JSR SHOWAROW + JSR PRINT + BYT PRRITE + .DA #PRLOC,279,#148 + BYT 'SCROLL',CR,0 + RTS +TXTNEGA BYT '- NEGATIVE',0 +;----------- +PAGE4Y = 101 +Z1 = 15 +Z2 = PAGE4Y-1 +; +PAGE4 JSR PRINT + .DA #PRLOC,XCENT,#66 + BYT PRCNTR + BYT 'POSITION',CR + BYT 'CURSOR',CR + BYT '& PRESS:',CR +; BYT RTOSWITE,26,92,14,2 + BYT PRLEFT,PRSPC,Z1 + BYT PRVTAB,PAGE4Y + .DA #PRHTAB,XEDGE +; + BYT 'L',PRRTAB,XR1,'- ' + .DA #PRSTR,TXTLINES,#CR + BYT PRPIC,37,Z2,2,9 + HEX 813E70230F2081208123602018200620 + HEX C13F +; + BYT 'R',PRRTAB,XR1,'- ' + .DA #PRSTR,TXTRAYS,#CR + BYT PRPIC,37,Z2+Z1,2,9 + HEX 218131811181191809064D0135810F81 + HEX C13F +; + BYT 'B',PRRTAB,XR1,'- ' + .DA #PRSTR,TXTBOX,#CR + BYT PRPIC,37,Z2+Z1*2,2,9 + HEX C13F0120012001200120012001200120 + HEX C13F +; + BYT 'O',PRRTAB,XR1,'- ' + .DA #PRSTR,TXTOVAL,#CR + BYT PRPIC,37,Z2+Z1*3,2,9 + HEX 70030C0C021001200120012002100C0C + HEX 7003 +; +LISABUG0 = Z2+Z1*4 + BYT 'T',PRRTAB,XR1,'- ' + .DA #PRSTR,TXTTEXT,#CR + BYT PRPIC,37,LISABUG0-1,2,11 + HEX 1E1F33333F1F3333331F821E1F033303 + HEX 3303331E1F + BRK + RTS +;----------- +; +; Erase right side of screen +; +BLAKRITE JSR PRINT + BYT RTOSBLAK,26,0,14,192 + BYT RTOSWITE,26,61,14,2 + BYT RTOSWITE,26,177,14,2,0 +; +; Erase bottom of screen +; +BLAKBOTM JSR PRINT + BYT RTOSBLAK,0,181,40,11,0 + RTS +; +; Erase help page area +; +BLAKPAGE JSR PRINT + BYT RTOSBLAK,26,63,14,114,0 + RTS +;----------- +; +; Show right part of screen +; +SHOWRITE JSR BLAKRITE + LDX #26 + LDY #0 + TYA + JSR SHOWAROW + JSR PRINT + .DA #PRLOC,227,#11 + BYT 'MOVE',CR + BYT 'CURSOR',CR + .DA #PRLOC,182,#39 + BYT PRSPC,11 + BYT PRCSPACE,1 + BYT 'P - PATTERN',CR + BYT 'X',PRRTAB,XR1,'- MIRRORS',CR + BRK + JSR SHOWBOXS + JSR SHOWPAGE +; +; Display bottom help stuff +; +SHOWBOTM JSR BLAKBOTM + JSR SHOWCOOR + JSR PRINT + .DA #PRHTAB,169 + BYT PRRITE,PRCSPACE,1 + BYT 'U - UNDO',NOCR,0 +; + LDA #XEDGE/7 + JSR SPACEBAR +; + CLC + RTS +;----------- +; +; Show coordinates X= Y= +; +SHOWCOOR JSR PRINT + .DA #PRLOC,7,#185 + BYT 'X=',NOCR + .DA #PRHTAB,49 + BYT 'Y=',NOCR,0 + RTS +;----------- +; +; Set parameters for EDIT routines +; and clear EDITBUFF +; +SETMAX LDX #88 + LDY #52 + JSR EDITINIT + JMP CLRBUFF +;----------- +; +; Save special graphic +; enter with A: 0=Tile Magic +; 1=Creature Maker +; +SAVESP0 ADR TXTTM + ADR TXTCMAKE +SAVESP1 ADR TXTTILE + ADR TXTCREAT +; +TXTTILE BYT 'TILE',0 +TXTCREAT BYT 'CREATURE',0 +; +SAVESPY0 = 32 +SAVESPY1 = 108 +; +SAVESPEC ASL + TAX + LDA SAVESP0,X + STA >0+1 + LDA SAVESP0+1,X + STA >0+2 + LDA SAVESP1,X + STA >1+1 + LDA SAVESP1+1,X + STA >1+2 +; + JSR WITEBORD + JSR ESCBACK + JSR PRINT + BYT PRCNTR,PRBIG,PRINVR + .DA #PRLOC,140,#1 +^0 .DA #PRSTR,0000,#CR + BYT RTOSWITE,13,SAVESPY0,14,60 + BYT PRVTAB,SAVESPY0+4 + BYT PRSMAL,'@',CR + BYT PRVTAB,SAVESPY1 + BYT PRNORM + BYT 'MAKE A CHOICE:',CR + BYT CR,CR + BYT 'SAVE ' +^1 .DA #PRSTR,0000,#CR + .DA 'GO TO ',#PRSTR,TXTGEDIT,#CR + .DA #PRSTR,TXTGTMM,#CR + BRK +^2 LDY #00 + JSR SELECT + BYT 6,28,SAVESPY1+23,3 + ADR RTS + BCS >3 + STY <2+1 +^3 RTS +; +; +; + ICL "S:GREDIT2" diff --git a/PSC Source Disk 2 - Editors (v11)/S_GREDIT2.txt b/PSC Source Disk 2 - Editors (v11)/S_GREDIT2.txt new file mode 100644 index 0000000..259239d --- /dev/null +++ b/PSC Source Disk 2 - Editors (v11)/S_GREDIT2.txt @@ -0,0 +1,405 @@ +; +; S:GREDIT2 +; +FZ EPZ $80 +; +FGXCOOR EPZ FZ +FGYCOOR EPZ FZ+1 +FGHIRES EPZ FZ+2 ; 3 +FGBYTE EPZ FZ+4 +FGBCOUNT EPZ FZ+5 +FGRAMCRD EPZ FZ+6 +FGHIRES2 EPZ FZ+8 +FGWIDTH EPZ FZ+10 +; +; Frame grabber CAPTURE +; +FRAMGRAB JSR FRAMPICT + SEC + ROR SCALING + LDX #96 + LDY #70 + STX FGXCOOR + STY FGYCOOR +; +; Invert current position and +; set countdown timer +; +FRAMLOOP ASL KEEPTRAK + LDX FGXCOOR + LDY FGYCOOR + JSR DEVICEST +FRAMLOP2 JSR FLSHINIT + JSR DRAWBOX + INC KEEPTRAK +; +^0 LDY #2 + JSR DEVICERD + BCS >1 + ASL + BMI >1 + BCS FRAMDON2 + JSR FRAMDEV +; +^1 JSR POLEKEY + BMI >3 +; +^2 DEC FLASHLO + BNE <0 + DEC FLASHHI + BPL <0 + BMI FRAMLOP2 +; +FRAMDONE PLA + PLA +FRAMDON2 JSR RESTSCRN + JSR CAPBOX + CLC + RTS +; +^3 PHA + JSR RESTSCRN + PLA + LDX FGXCOOR + LDY FGYCOOR + JSR >1 + STX FGXCOOR + STY FGYCOOR + JMP FRAMLOOP +; +^1 JSR PARSE + .DA #'I',FRAMUP + .DA #$0B,FRAMUP + .DA #'M',FRAMDOWN + .DA #$0A,FRAMDOWN + .DA #'J',FRAMLEFT + .DA #$08,FRAMLEFT + .DA #'K',FRAMRITE + .DA #$15,FRAMRITE +; + .DA #'N',FRAMNEG +; + .DA #'D',FRAMDUBL + .DA #'A',FRAM2LFT + .DA #'S',FRAM2RIT +; + .DA #$1B,FRAMESC + .DA #$0D,FRAMDONE +; + BRK + RTS +; +FRAMESC PLA + PLA + SEC + RTS +; +; Invert screen +; +FRAMNEG LDA FRAMIMD0 + EOR #$7F + STA FRAMIMD0 + STA FRAMIMD1 + STA FRAMIMD2 +; +; Pop stack, draw screen and return +; to main loop +; +FRAMWERD JSR FRAMPICT +FRAMWRD2 PLA + PLA + JMP FRAMLOOP +;----------- +; +; Toggle double-hires option +; +; If not 128k, then ignore +; +FRAMDUBL LDA HAS128K + BPL FRAMWERD +; + LDA FRAM2FLG + EOR #$80 + STA FRAM2FLG + BNE FRAMWERD +; +; Move double hires picture right +; +FRAM2RIT LDX FRAM2POS + DEX + BPL FRAM2ST +; +FRAM2ERR JSR BOOP + JMP FRAMWRD2 +; +; Move double hires left +; +FRAM2LFT LDX FRAM2POS + INX + CPX #21 + BGE FRAM2ERR +; +FRAM2ST STX FRAM2POS + JMP FRAMWERD +; +FRAM2FLG HEX 01 +FRAM2POS HEX 00 +;----------- +; +; Up +; +FRAMUP DEY + CPY #$FF + BNE >0 + LDY #YSCRNMAX-1 +; +; Down +; +FRAMDOWN INY + CPY #YSCRNMAX+1 + BLT >0 + LDY #0 +^0 RTS +; +; Left +; +FRAMLEFT DEX + CPX #$FF + BNE >0 + LDX #XSCRNMAX-1 +; +; Right +; +FRAMRITE INX + CPX #XSCRNMAX+1 + BLT >0 + LDX #0 +^0 RTS +;------------ +; +; Check to see if device moved +; +FRAMDEV CPX FGXCOOR + BNE >0 + CPY FGYCOOR + BNE >0 +FRAMRTS RTS +; +; Device moved +; +^0 STX >1+1 + STY >2+1 + JSR RESTSCRN +^1 LDX #00 +^2 LDY #00 +; +; Device input clamping +; + BIT FRAMRTS + CPX #XSCRNMAX+1 + BLT >3 + CLV + LDX #XSCRNMAX +^3 CPY #YSCRNMAX+1 + BLT >4 + CLV + LDY #YSCRNMAX +^4 STX FGXCOOR + STY FGYCOOR + BVS FRAMRTS + JMP DEVICEST +; +KEEPTRAK BRK +; +; Remove box if necessary +; +RESTSCRN LSR KEEPTRAK + ROR + ASL KEEPTRAK + ROL + BCC FRAMRTS +;----------- +; +; Draw box +; +DRAWBOX LDY FGYCOOR + STY TMP1 + LDY #0 +; +DRAWBOXL JSR YBASCALC + LDX #0 +^0 JSR BITCALC + EOR (FGHIRES),Y + STA (FGHIRES),Y + CPX #87 + BEQ >2 + LDA TMP0 + BEQ >1 + CMP #51 + BEQ >1 + LDX #86 +^1 INX + BNE <0 +; +^2 LDY TMP0 + INY + CPY #52 + BLT DRAWBOXL + RTS +; +; Capture box into UNDOBUFF +; +CAPBOX LDY #UNDOBUFF + LDA /UNDOBUFF + STY TMP2 + STA TMP3 +; + LDY FGYCOOR + STY TMP1 + LDY #0 + STY FGBCOUNT +; +CAPBOXL JSR YBASCALC + LDX #0 +^0 JSR BITCALC + AND (FGHIRES),Y + CMP #1 + LDA #0 + ROL + EOR #1 + LSR + ROL FGBYTE + INC FGBCOUNT + LDA FGBCOUNT + EOR #8 + BNE >1 +; + STA FGBCOUNT + LDA FGBYTE + LDY #0 + STA (TMP2),Y + INC TMP2 + BNE >1 + INC TMP3 +; +^1 INX + CPX #88 + BLT <0 +; +^2 LDY TMP0 + INY + CPY #52 + BLT CAPBOXL + RTS +; +; Calc Ybase +; +YBASCALC STY TMP0 + LDY TMP1 + INC TMP1 + LDA YBASELO,Y + STA FGHIRES + LDA YBASEHI,Y + STA FGHIRES+1 + RTS +; +; Calculate hires X coor +; +BITCALC TXA + CLC + ADC FGXCOOR + TAY + BCC >1 +; + LDA XBIT+256,Y + PHA + LDA XBYTE+256,Y + TAY + PLA + BNE >2 +; +^1 LDA XBIT,Y + PHA + LDA XBYTE,Y + TAY + PLA +^2 RTS +;----------- +; +; Get picture from RAMcard +; +FRAMPICT LDA #0 +FRAMPCT2 PHA +; +; Transfer line +; + TAY + LDA YBASELO,Y + STA FGHIRES + STA FGHIRES2 + STA FGRAMCRD + LDA YBASEHI,Y + STA FGHIRES+1 + STA FGHIRES2+1 + LDY #0 + AND #$10 + BEQ >0 + LDY #8 +^0 LDA $C083,Y + LDA $C083,Y + LDA FGHIRES+1 + AND #$0F + ORA #$D0 + STA FGRAMCRD+1 +; + LDA #39 + BIT FRAM2FLG + BMI >2 +; +; Regular hires +; + TAY +^1 LDA (FGRAMCRD),Y + EOR #00 +FRAMIMD0 = *-1 + STA (FGHIRES),Y + DEY + BPL <1 + BMI >4 +; +; Double hires +; +^2 LSR + STA FGWIDTH + LDY FRAM2POS + LDX #0 + STA $C001 +^3 BIT $C055 + LDA (FGHIRES2),Y + BIT $C054 + EOR #00 +FRAMIMD1 = *-1 + STA (FGHIRES,X) + INC FGHIRES + LDA (FGRAMCRD),Y + EOR #00 +FRAMIMD2 = *-1 + STA (FGHIRES,X) + INC FGHIRES + INY + DEC FGWIDTH + BPL <3 + STA $C000 +; +; Next line +; +^4 PLA + CLC + ADC #1 + CMP #$C0 + BLT FRAMPCT2 + RTS +; +; +; + ICL "S:GREDIT3" diff --git a/PSC Source Disk 2 - Editors (v11)/S_GREDIT3.txt b/PSC Source Disk 2 - Editors (v11)/S_GREDIT3.txt new file mode 100644 index 0000000..2ab7d28 --- /dev/null +++ b/PSC Source Disk 2 - Editors (v11)/S_GREDIT3.txt @@ -0,0 +1,433 @@ +; +; S:GREDIT3 +; +; Print Shop Companion +; +; Tile Magic +; +; by Roland Gustafsson +; Copyright 1985 +; +TZ EPZ $80 +; +TMXSTART EPZ TZ +TMYSTART EPZ TZ+1 +TMXPOS EPZ TZ+2 +TMYPOS EPZ TZ+3 +TMXQTR EPZ TZ+4 +TMYQTR EPZ TZ+5 +TMCOLOR EPZ TZ+6 +TMCOUNT EPZ TZ+7 +TMBCOUNT EPZ TZ+8 +; +TILEXMAX = 88 +TILEYMAX = 52 +; +; +TILEMAGC LDA #ESC + STA TILEMOD + JSR SETMAX +; + JSR CLSCREEN + JSR PRINT + BYT RTOSWITE,0,0,25,16 + BYT PRCNTR,PRINVR + .DA #PRLOC,88,#4 + .DA #PRSTR,TXTTM + BYT CR,0 + JSR DOMAGIC +; +ESC4TILE LDA #0 + JSR SAVESPEC + BCC >0 + JMP TILEMAGC +; +^0 JSR JMPVECTS + ADR TILESAVE + ADR GREDIT2 + ADR MAINMENU +;----------- +; +; Save the Tile +; +TILESAVE JSR SETTYPE + BYT 'GRAPHIC',0 +TXTTM BYT 'TILE MAGIC',0 + BYT 0 + BYT 4 + ADR EDITBUFF + ADR $240 + JSR SAVEFILE + JMP ESC4TILE +;----------- +; +; Helpful instructions for our +; favorite person, the consumer. +; +DOMAGIC JSR BLAKRITE + JSR PRINT + BYT RTOSWITE,26,0,14,2 + BYT PRBIG,PRCNTR + BYT PRSPC,16 + .DA #PRLOC,231,#16 + BYT 'TILE',CR + BYT 'MAGIC',CR,0 +; + JSR PRINT + BYT PRCNTR + .DA #PRLOC,231,#83 + .DA #PRSTR,TXTRET,#CR + BYT 'TO CHANGE',CR + BYT 'PATTERN',CR,CR,CR + BYT '',CR + BYT 'TO "FREEZE"',CR + BYT 'TILE',CR + BRK +; +; Do the fireworks +; +; Same as Kaleidoscope 1 from +; the original Print Shop. +; + JSR BUFFSAVE +NEXTTILE JSR SETTRP + JSR CLRBUFF + JSR SHOWGR +; +LTRP LDA #$40 + STA TMXSTART + LDA #0 + STA TMYSTART + STA TMCOLOR + LDA #12 + STA STRTFLAG +LTRP2 LDA $C05F + ADC $C059 + ADC $C05D + ADC TMXSTART + STA TMXSTART + STA TMXPOS + LDA TMYPOS + ROL + EOR TMXPOS + STA TMYPOS + STA TMYSTART + DEC TMCOLOR + LDX #26 + LDA STRTFLAG + BEQ LTRP2A + LDX #2 + DEC STRTFLAG +LTRP2A STX TMCOUNT +LTRP2B INC TMCOLOR + LDA TMCOLOR + AND #3 + CMP #3 + BEQ LTRP2B + CMP #0 + BNE LTRP2C + LDA STRTFLAG + BNE LTRP2B +LTRP2C DEC TMCOUNT + BEQ LTRP2 + JSR SETC +LTRP3 JSR PUT4 + JSR BTNCHK + BPL LTRP8 + CMP #$0D + BEQ NEXTTILE + RTS +; +LTRP8 LDA TMYPOS +; +YTRIP DFS 6,0 +; + STA TMYQTR + LDA TMXPOS + SEC + SBC TMYQTR + STA TMXPOS +; +XTRIP DFS 6,0 +; + CLC + ADC TMYPOS + STA TMYPOS + CMP TMYSTART + BNE LTRP3 + LDA TMXPOS + CMP TMXSTART + BNE LTRP3 + BEQ LTRP2B +; +PUT4 LDA TMXPOS + LSR + LSR + TAX + LDA RANGE44,X + STA TMXQTR +; + LDA TMYPOS + LSR + LSR + LSR + TAX + LDA RANGE26,X + STA TMYQTR +; + LDA #TILEXMAX/2 + CLC + ADC TMXQTR + TAX + LDA #TILEYMAX/2 + CLC + ADC TMYQTR + TAY + JSR XYPLOT + LDA #TILEXMAX/2 + SEC + SBC TMXQTR + TAX + JSR XYPLOT + LDA #TILEYMAX/2 + SEC + SBC TMYQTR + TAY + JSR XYPLOT + LDA #TILEXMAX/2 + CLC + ADC TMXQTR + TAX +; +XYPLOT CPY #TILEYMAX + BGE XYDONE + CPX #TILEXMAX + BGE XYDONE +; + STX XCOOR + STY YCOOR +TMXYMOD JSR $FFFF + LDX XCOOR + LDY YCOOR +XYDONE RTS +;----------- +; +; Check for CR +; +BTNCHK DEC TMBCOUNT + LDA TMBCOUNT + AND #$7F + BNE >0 + JMP POLEBTN +^0 LDA #0 + RTS +; +; Set color +; +SETC LDX #SETBIT + LDY /SETBIT + LDA TMCOLOR + AND #2 + BNE >0 + LDX #CLRBIT + LDY /CLRBIT +; +^0 STX TMXYMOD+1 + STY TMXYMOD+2 + RTS +; +; Set trip format +; +SETTRP LDA TRIPN + ASL + ADC TRIPN + ASL + TAX + LDY #0 +^0 LDA XTRPS,X + STA XTRIP,Y + LDA YTRPS,X + STA YTRIP,Y + INX + INY + CPY #6 + BLT <0 + LDX TRIPN + INX + CPX #11 + BNE >1 + LDX #0 +^1 STX TRIPN + RTS +;X1 +XTRPS LSR + LSR + LSR + NOP + NOP + NOP +;X2 + LSR + LSR + NOP + NOP + NOP + NOP +;X3 + LSR + NOP + NOP + NOP + NOP + NOP +;X4 + LSR + NOP + NOP + NOP + NOP + NOP +;X5 + NOP + NOP + NOP + NOP + NOP + NOP +;X6 + LSR + LSR + LSR + CLC + ADC TMXPOS +;X7 + LSR + LSR + NOP + CLC + ADC TMXPOS +;X8 + LSR + NOP + NOP + CLC + ADC TMXPOS +;X9 + LSR + LSR + LSR + SEC + SBC TMXPOS +;X10 + LSR + LSR + NOP + SEC + SBC TMXPOS +;X11 + LSR + NOP + NOP + SEC + SBC TMXPOS +;Y1 +YTRPS LSR + LSR + LSR + NOP + NOP + NOP +;Y2 + LSR + LSR + NOP + NOP + NOP + NOP +;Y3 + LSR + NOP + NOP + NOP + NOP + NOP +;Y4 + NOP + NOP + NOP + NOP + NOP + NOP +;Y5 + LSR + NOP + NOP + NOP + NOP + NOP +;Y6 + LSR + LSR + LSR + CLC + ADC TMYPOS +;Y7 + LSR + LSR + NOP + CLC + ADC TMYPOS +;Y8 + LSR + NOP + NOP + CLC + ADC TMYPOS +;Y9 + LSR + LSR + LSR + SEC + SBC TMYPOS +;Y10 + LSR + LSR + NOP + SEC + SBC TMYPOS +;Y11 + LSR + NOP + NOP + SEC + SBC TMYPOS +; +;---------- +; +TRIPN HEX 03 +STRTFLAG HEX 00 +; +; Lookup tables for getting +; range +; +; X= 0-44 +; +RANGE44 HEX 0001010203030405 + HEX 0606070808090A0A + HEX 0B0C0C0D0E0F0F10 + HEX 1111121313141515 + HEX 16171718191A1A1B + HEX 1C1C1D1E1E1F2020 + HEX 2122232324252526 + HEX 27272829292A2B2C +; +; X= 0-26 +; +RANGE26 HEX 0001020303040506 + HEX 070808090A0B0C0C + HEX 0D0E0F1011111213 + HEX 141515161718191A +; +; +; + ICL "S:GREDIT4" diff --git a/PSC Source Disk 2 - Editors (v11)/S_GREDIT4.txt b/PSC Source Disk 2 - Editors (v11)/S_GREDIT4.txt new file mode 100644 index 0000000..21c5f4e --- /dev/null +++ b/PSC Source Disk 2 - Editors (v11)/S_GREDIT4.txt @@ -0,0 +1,376 @@ +; +; S:GREDIT4 +; +; Print Shop Companion +; +; Creature Maker +; +; by Roland Gustafsson +; Copyright 1985 +; +; +YPOS1 = 93 +YPOS2 = 121 +YPOS3 = 149 +; +CRPART1 = 18 +CRPART2 = 17 +CRPART3 = 17 +; +CREATURS = $6000 +CRCOUNT = CREATURS +; +; +CRMAKER LDA #ESC + STA CRMOD + JSR SETMAX + JSR CLSCREEN + LDX #26 + LDY #13 + LDA #0 + JSR SHOWAROW +; + JSR PRINT + BYT RTOSWITE,0,0,25,16 + BYT PRCNTR,PRINVR + .DA #PRLOC,88,#4 + .DA #PRSTR,TXTCMAKE,#CR +; + BYT PRNORM,PRRITE + BYT RTOSWITE,26,0,14,2 + .DA #PRLOC,279,#11 + BYT PRCSPACE,1,PRSPC,11 + BYT 'USE UP &',CR + BYT 'DOWN TO',CR + BYT 'SELECT',CR + BYT 'PART. USE',CR + .DA #PRHTAB,231 + BYT PRCSPACE,2 + BYT PRCNTR + BYT 'LEFT & RIGHT',CR + BYT 'TO SELECT',CR + BYT 'CREATURE.',CR +; + BYT PRINVR +; + BYT RTOSWITE,26,YPOS1,14,2+11 + BYT PRVTAB,YPOS1+3 + BYT 'HEAD',CR +; + BYT RTOSWITE,26,YPOS2,14,2+11 + BYT PRVTAB,YPOS2+3 + BYT 'BODY',CR +; + BYT RTOSWITE,26,YPOS3,14,2+11 + BYT PRVTAB,YPOS3+3 + BYT 'LEGS',CR +; + BYT RTOSWITE,26,177,14,2 + BRK +; + LDA PART + PHA + LDA #0 + STA PART + JSR MOVEPIEC + INC PART + JSR MOVEPIEC + INC PART + JSR MOVEPIEC + PLA + STA PART +; +; Do the creature selection stuff +; +CRMAKER2 JSR BLAKBOTM + JSR PRINT + BYT PRCNTR + .DA #PRLOC,140,#185 + .DA #PRSTR,TXTPRET + BYT ' ' + .DA #PRSTR,TXTWD,#CR + BRK + JSR CRSELECT +; +ESC4CR LDA #1 + JSR SAVESPEC + BCC >0 + JMP CRMAKER +; +^0 JSR JMPVECTS + ADR CRSAVE + ADR GREDIT2 + ADR MAINMENU +;----------- +; +; Save the creature! +; +CRSAVE JSR SETTYPE + BYT 'GRAPHIC',0 +TXTCMAKE BYT 'CREATURE MAKER',0 + BYT 0 + BYT 4 + ADR EDITBUFF + ADR $240 + JSR SAVEFILE + JMP ESC4CR +;----------- +; +; Build a creature +; +CRSELECT JSR SHOWGR +CRSELEC1 LSR CRARROWF +; +CRSELEC2 JSR CRARROWT + JSR FLSHINIT +; +^0 JSR POLEBTN + BMI >1 + DEC FLASHLO + BNE <0 + DEC FLASHHI + BPL <0 + BMI CRSELEC2 +; +^1 PHA + JSR CRARROW0 + PLA + LDX PART + LDY PART1,X + JSR >2 + BCS CRSELECT + BCC CRSELEC1 +; +^2 JSR PARSE + .DA #'I',CRUP + .DA #$0B,CRUP + .DA #'M',CRDOWN + .DA #$0A,CRDOWN + .DA #'J',CRLEFT + .DA #$08,CRLEFT + .DA #'K',CRRITE + .DA #$15,CRRITE +; + .DA #CR,CRDONE + .DA #ESC,CRESC +; + BRK + CLC + RTS +; +CRESC PLA + PLA + PLA + PLA + JSR CMDQUIT2 + JMP CRMAKER2 +; +CRDONE PLA + PLA + RTS +; +CRUP DEX + BPL >0 + LDX #1 +; +CRDOWN INX + CPX #3 + BLT >0 + LDX #0 +^0 STX PART + CLC + RTS +; +CRLEFT DEY + BPL >0 + LDY CRCOUNT + DEY + DEY +; +CRRITE INY + CPY CRCOUNT + BLT >0 + LDY #0 +^0 TYA + STA PART1,X + JSR MOVEPIEC + SEC + RTS +;----------- +; +; Move piece from CRDATA to EDITBUFF +; and print it's name. +; +; PART is given in PART +; PIECE 0-9 is given in PART1,2 or 3 +; +MOVEPIEC LDY PART + LDA PART1,Y + ASL + TAX + LDA CRADR,X + ADC CROFFSTL,Y + STA TMP0 + LDA CRADR+1,X + ADC CROFFSTH,Y + STA TMP1 +; + LDA #EDITBUFF + ADC CROFFSTL,Y + STA TMP2 + LDA /EDITBUFF + ADC CROFFSTH,Y + STA TMP3 +; + LDA CRLENGTH,Y + TAY +; +; Move piece over to EDITBUFF +; +^0 DEY + CPY #$FF + BEQ >1 + LDA (TMP0),Y + STA (TMP2),Y + BLT <0 +; +; Now print name of that piece +; +; First get address of text +; +^1 LDA CRCOUNT + ASL + TAY + LDA CRADR,Y + STA TMP0 + LDA CRADR+1,Y + STA TMP1 +; + LDY PART + LDX PART1,Y +; + LDY #0 +; +; Find text location +; +^0 DEX + BMI >2 +^1 LDA (TMP0),Y + PHA + INC TMP0 + BNE *+4 + INC TMP1 + PLA + BNE <1 + BEQ <0 +; +^2 LDY TMP0 + LDA TMP1 + STY >5+0 + STA >5+1 +; + JSR GETYPOS + ADC #17 + STA >3+0 + STA >4+0 + JSR PRINT + BYT RTOSBLAK,29 +^3 BYT 0,11,7 + .DA #PRLOC,203 +^4 HEX 00 + BYT PRSTR +^5 .DA 0000,#CR,#0 + RTS +;----------- +CRARROWF HEX 00 +; +; Toggle arrow on or off +; +CRARROWT LDA CRARROWF + EOR #$80 + STA CRARROWF + BMI CRARROW1 +; +; Erase arrow +; +CRARROW0 JSR GETYPOS + ADC #16 + STA >0+0 + JSR PRINT + BYT RTOSBLAK + BYT 26 +^0 BYT 0,3,9,0 + RTS +; +; Draw arrow +; +CRARROW1 JSR GETYPOS + ADC #16 + STA >0+0 + JSR PICDRAW + BYT 26 +^0 BYT 0,3,9 + HEX 810E8238826001C207C21FC207816001 + HEX 8138820E00 + RTS +;----------- +; +; LOOKUP TABLES.... +; +CLEN = 11*52 +; +C = CREATURS+1 +; +; Address of each piece +; +CRADR ADR C+0*CLEN + ADR C+1*CLEN + ADR C+2*CLEN + ADR C+3*CLEN + ADR C+4*CLEN + ADR C+5*CLEN + ADR C+6*CLEN + ADR C+7*CLEN + ADR C+8*CLEN + ADR C+9*CLEN + ADR C+10*CLEN +;----------- +; +; Offsets for each of the 3 parts +; +CROFF1 = 0 +CROFF2 = 11*CRPART1 +CROFF3 = 11*CRPART1+CRPART2 +; +CROFFSTL BYT CROFF1,CROFF2,CROFF3 +CROFFSTH HBY CROFF1,CROFF2,CROFF3 +; +; Length of each part +; +CRLENGTH BYT 11*CRPART1 + BYT 11*CRPART2 + BYT 11*CRPART3 +;----------- +; +; Y position for each part +; +GETYPOS LDY PART + LDA YPOS,Y + CLC + RTS +; +YPOS BYT YPOS1,YPOS2,YPOS3 +;----------- +; +; DATA +; +PART HEX 00 +PART1 BRK +PART2 BRK +PART3 BRK +; +; +; + USR "GREDIT,S4",ORG +; + ICL "S:COMMONEDIT" diff --git a/PSC Source Disk 2 - Editors (v11)/S_SUPPGET.txt b/PSC Source Disk 2 - Editors (v11)/S_SUPPGET.txt new file mode 100644 index 0000000..15bc70a --- /dev/null +++ b/PSC Source Disk 2 - Editors (v11)/S_SUPPGET.txt @@ -0,0 +1,663 @@ + NLS + TTL "S:SUPPGET" + NOG +ORG = $4000 +; +SWAPRAM = $2C0 +; +; 02/10/85 +; 09/09/85 last mod +; +; Routine that sits in RAMcard and +; moves itself down to $4000 when +; it is used. +; +; Constants: +; +MAXFLEN = 15 +; +ESC = 27 +; +; Zero page +; +PRLO EPZ $3A +PRHI EPZ $3B +LOADLO EPZ $FA +LOADHI EPZ $FB +TMP0 EPZ $FC +TMP1 EPZ $FD +TMP2 EPZ $FE +TMP3 EPZ $FF +; +TMPLO EPZ TMP0 +TMPHI EPZ TMP1 +; +; Existing routines: +; +DATADRIV = $95F4 +MENUSEL = $95F5 +; +SOUND = $6FCC +; +BLOAD = $0809 +PSDQ = $7019 +ANYKEY = $8005 +CATERR = $8008 +STRPUT = $8E06 +RTOS = $8E09 +STRGET = $8E12 +STRGETPM = $8E15 +; +STROUT = $8A00 +SPARM = STROUT+3 +PRINBUFF = $BB00 +;----------- + ORG ORG + OBJ $800 +;----------- + JSR SETTYPE +; +; Access normal catalog +; + LDA #0 + STA $B00D + LDA DATADRIV + STA $AA68 + STA $B7EA + ORA #'0' + CMP #'1' + BNE *+4 + LDA #' ' + STA DRIVENUM +; +MAINLOOP JSR CLS + JSR PRINT + BYT PRCNTR + .DA #PRLOC,140,#52 + BYT 'CHOOSE A ' + .DA #PRSTR,TXTTYPE + BYT ':',CR +; + BYT PRLEFT + .DA #PRLOC,15,#92 + BYT 'PLACE DATA DISK IN DRIVE ' +DRIVENUM BYT '2',CR,CR,CR + BYT 'TYPE IN NAME OF ' + .DA #PRSTR,TXTTYPE + BYT ' OR',CR + BYT 'PRESS FOR ' + .DA #PRSTR,TXTTYPE + BYT ' LIST',CR,CR + BYT '>',NOCR,0 +; + JSR INPUTNAM +; +; pressed? +; + LDA $C000 + STA $83FF + BCS QUIT +; +; Make sure that data disk is +; in the drive. +; + JSR PSDQ + BNE >0 +; + JSR CLS +; + LDA NAMEBUFF + BEQ CATALOG +; + JSR LOADFILE + BCC QUIT +^0 JMP MAINLOOP +; +QUIT LDA #1 + STA $AA68 + JSR CLS + JMP SWAPRAM +;----------- +; +; CATALOG disk +; +CATALOG JSR PRINT + BYT PRCNTR + .DA #PRLOC,140,#20 + BYT 'LIST OF ' + .DA #PRSTR,TXTTYPE + BYT 'S ON THIS DISK:',CR,0 +; + LDA #$FF + STA CATPAGE + STA CATCOUNT + JSR CATINIT +; +^0 INC CATCOUNT + JSR CATFILE + BCS CATDONE + STA CATFLMOD + STY CATFLMOD+1 + INC CATPAGE + LDA CATPAGE + EOR #15 + BNE >1 + STA CATPAGE + JSR ANYKEY + AND #$7F + CMP #ESC + BEQ CATDONE2 + JSR CLS2 +; +^1 LDA #00 +CATPAGE = *-1 + ASL + ASL + ASL + ADC #36 + STA CATYMOD + JSR PRINT + BYT PRLEFT + .DA #PRLOC,64 +CATYMOD HEX FF + .DA #PRSTR +CATFLMOD ADR $FFFF + BYT CR,0 + JMP <0 +; +CATDONE LDA #00 + BNE >0 + JSR PRINT + BYT PRCNTR + .DA #PRLOC,140,#64 + BYT 'NONE',CR,0 +; +^0 JSR ANYKEY +CATDONE2 JMP MAINLOOP +; +CATCOUNT = CATDONE+1 +;----------- +; +; Input file name +; +INPUTNAM LDX #INPUTNM2 + LDY /INPUTNM2 + LDA #MAXFLEN + STX STRGETPM + STY STRGETPM+1 + STA STRGETPM+2 + LDA #0 + STA NAMEBUFF + JMP STRGET +; +INPUTNM2 HEX 0200 + ADR 27 + ADR 140 + HEX 000200 + ADR NAMEBUFF + HEX 02 +;----------- +; +; Load in file +; +LOADFILE LDY #MAXFLEN + LDA #' ' +^0 DEY + STA FILENAME+5,Y + BNE <0 +; +^1 LDA NAMEBUFF,Y + BEQ >2 + STA FILENAME+5,Y + INY + BNE <1 +; +^2 LDX #FILENAME + LDY /FILENAME + JSR BLOAD + BNE ERROR +; +; If FONT, then transfer info +; to $816-$821 +; + LDA #00 +TYPE = *-1 + BNE >5 +; +; Turn off hi bits (done flags) +; + BIT $C083 + BIT $C083 + LDY #$00+$0C +^3 LDA (LOADLO),Y + AND #$7F + STA (LOADLO),Y + INY + CPY #$3B+$0C + BLT <3 +; +; Fix "@" pointers in font +; + LDY #$00+$2C + LDA #88 + STA (LOADLO),Y + LDY #$3B+$2C + LDA #52 + STA (LOADLO),Y + LDY #$76+$2C + LDA #$00 + STA (LOADLO),Y + LDY #$B1+$2C + LDA #$58 + STA (LOADLO),Y +; + LDY #$0B +^4 LDA (LOADLO),Y + STA $816,Y + DEY + BPL <4 + LDA $C082 +; +^5 CLC + RTS +;----------- +; +; Handle DOS errors. Only handles +; +; FILE NOT FOUND and I/O ERROR! +; +ERROR CMP #6 + BEQ >0 +; +; I/O error message +; + JSR $A316 + JSR CATERR + SEC + RTS +; +; File not found message +; +^0 JSR CLS + JSR SOUND + JSR PRINT + BYT PRCNTR + .DA #PRLOC,140,#48 + BYT 'CANNOT FIND',CR,CR + .DA #PRSTR,NAMEBUFF,#CR,#CR + BYT 'ON THIS DISK',CR,0 +; +^1 JSR ANYKEY + SEC + RTS +;----------- +; +; PRINT routine +; +PRLOC = 1 +PRSTR = 2 +PRLEFT = 3 +PRCNTR = 4 +CR = 5 +NOCR = 6 +; +; WARNING!!! the "CR" defined here is +; for PRINT purposes only, as you can +; see, it is 5, not the normal 13! +; +PRINT PLA + STA PRLO + PLA + STA PRHI +; + LDA #2 + STA SPARM + STA SPARM+7 +; +PRINT1 LDX #0 +PRINT2 JSR PRINTGET + CMP #' ' + BLT PRINT3 + STA PRINBUFF,X + INX + BNE PRINT2 +; +PRINT3 ASL + TAY + LDA PRINT5,Y + STA PRINT4+1 + LDA PRINT5+1,Y + STA PRINT4+2 + CLC +PRINT4 JSR $FFFF + BCC PRINT2 + BCS PRINT1 +; +PRINT5 ADR PRZZDONE + ADR PRZZLOC + ADR PRZZSTR + ADR PRZZLEFT + ADR PRZZCNTR + ADR PRZZCR + ADR PRZZNOCR +;-0- +PRZZDONE PLA + PLA + JSR PRINTGET + JMP (PRLO) +;-1- +PRZZLOC JSR PRINTGET + STA SPARM+2 + STA PRNTXLO + JSR PRINTGET + STA SPARM+3 + STA PRNTXHI + JSR PRINTGET + STA SPARM+4 + RTS +;-2- +PRZZSTR JSR PRINTGET + STA >0+1 + JSR PRINTGET + STA >0+2 + LDY #0 +^0 LDA $FFFF,Y + BEQ >2 + CMP #' ' + BLT >1 + STA PRINBUFF,X + INX +^1 INY + BNE <0 +^2 CLC + RTS +;-3- +PRZZLEFT LDA #0 + HEX 2C +;-4- +PRZZCNTR LDA #2 + STA SPARM+1 + RTS +;-5- +PRZZCR JSR PRZZNOCR + LDY #00 +PRNTXLO = *-1 + LDA #00 +PRNTXHI = *-1 + STY SPARM+2 + STA SPARM+3 + LDA SPARM+4 + CLC + ADC #8 + STA SPARM+4 + SEC + RTS +;-6- +PRZZNOCR LDA #0 + STA PRINBUFF,X + LDY #PRINBUFF + LDA /PRINBUFF + STY SPARM+9 + STA SPARM+10 + JSR STROUT + SEC + RTS +;--- +PRINTGET INC PRLO + BNE >0 + INC PRHI +^0 LDY #0 + LDA (PRLO),Y + RTS +;----------- +; +; Clear screen routines +; +CLSDATA BYT 1,17,38,165 + BYT 1,28,38,154 +; +CLS LDX #3 + HEX 2C +CLS2 LDX #7 + LDY #3 +^0 LDA CLSDATA,X + STA RTOS+3,Y + DEX + DEY + BPL <0 + LDA #1 + JMP RTOS +;----------- +; +; Given A=TYPE (0:font, 1:border) +; initialize all the type variables +; text, load address, etc... +; +SETTRAM BYT $81,$89 +SETTTYP BYT TXTYPE0-TXTYPES + BYT TXTYPE1-TXTYPES +; +; Text type and load addresses +; +TXTYPES: +TXTYPE0 BYT 'FONT',0 + HEX D0E8 +; +TXTYPE1 BYT 'BORDER',0 + HEX DEDF +;--- +; +; First set 16k RAMcard +; +SETTYPE STA TYPE + TAY + LDX SETTRAM,Y + LDA $C000,X + LDA $C000,X + LDX SETTTYP,Y +; + LDY #0 +; +; Set type text +; +^0 LDA TXTYPES,X + STA TXTTYPE,Y + BEQ >2 +; +; Set file prefix +; + CPY #4 + BGE >1 + STA FILENAME,Y +; +^1 INX + INY + BNE <0 +;--- +; +; Check page byte +; +; If 2 (SIGN) or 4 (BANNER) then +; skip page check. +; If 1 (GC) then don't invert +; If 3 (LH) then invert +; +^2 LDA MENUSEL + LSR + BCC >1 + EOR $8300 + CMP #1 + BNE >1 + INX +; +^1 LDA TXTYPES+1,X + LDY #0 + STY LOADLO + STA LOADHI +; +; Store text equivalent in FILEADR +; + PHA + LSR + LSR + LSR + LSR + JSR >2 + STA FILEADR + PLA +; +^2 AND #$0F + ORA #'0' + CMP #'9'+1 + BLT >3 + ADC #6 +^3 STA FILEADR+1 + RTS +;----------- +; +; Filename used during loading +; +FILENAME ASC 'XXXX.' + DFS MAXFLEN,0 + ASC ',A$' +FILEADR ASC 'XX' + ASC '00' + HEX 00 +;----------- +; +; Read CATALOG routine +; +; JSR CATINIT to initialize +; +; JSR CATFILE to get a filename +; +; SEC=no more files +; +; CLC=found a file +; A=lo byte\ +; Y=hi byte-address of text +; +CATINIT LDA #0 + STA TMP2 + LDY #17 + JSR READSECT +CATEND SEC + RTS +; +CATFILE LDA TMPLO + CLC + ADC #$23 + STA TMPLO + BCC >0 + INC TMPHI +^0 DEC TMP2 + BPL >1 +; + LDY SECTBUFF+1 + LDA SECTBUFF+2 + BEQ CATEND + JSR READSECT + LDY #SECTBUFF-24 + LDA /SECTBUFF-24 + STY TMPLO + STA TMPHI + LDA #7 + STA TMP2 + BNE CATFILE +; +; Check filename +; +; Deleted? end of cat? +; +^1 LDY #0 + LDA (TMPLO),Y + BMI CATFILE + BEQ CATEND +; +; Binary file? +; + INY + INY + LDA (TMPLO),Y + AND #$7F + CMP #4 + BNE CATFILE +; + LDX #0 +^0 INY + LDA (TMPLO),Y + AND #$7F + CMP FILENAME,X + BNE CATFILE + INX + CPX #5 + BLT <0 +; + LDY #$20 +^1 LDA (TMPLO),Y + EOR #$A0 + BNE >2 + STA (TMPLO),Y + DEY + BPL <1 +; +^2 LDA (TMPLO),Y + AND #$7F + STA (TMPLO),Y + DEY + BNE <2 +; + LDA TMPLO + LDY TMPHI + CLC + ADC #8 + BCC >3 + INY +^3 CLC + RTS +;--- +IOB = $B7E8 +; +; Read a sector +; A=sector, Y=track +; +READSECT STA IOB+5 + STY IOB+4 + LDA #0 + STA IOB+3 + LDY #SECTBUFF + LDA /SECTBUFF + STY IOB+8 + STA IOB+9 + LDA #1 + STA IOB+12 + JSR $3E3 + JSR $3D9 + BCS >0 + RTS +; +^0 PLA + PLA + PLA + PLA + LDA #8 + JSR ERROR + JMP MAINLOOP +;----------- +; +; Don't need to save all the storage +; areas +; + USR "O:SUPPGET",ORG +;----------- +TXTTYPE BYT 'BORDER',0 +; +; Filename that user enters +; +NAMEBUFF: +SECTBUFF: +END: +; +; +; + END diff --git a/PSC Source Disk 2 - Editors (v11)/S_SUPPHEADER.txt b/PSC Source Disk 2 - Editors (v11)/S_SUPPHEADER.txt new file mode 100644 index 0000000..de56965 --- /dev/null +++ b/PSC Source Disk 2 - Editors (v11)/S_SUPPHEADER.txt @@ -0,0 +1,181 @@ + NLS + TTL "S:SUPPHEADER" +; +ORG = $6300 +; +; FIXLOC needs $3C+$1F +; Make sure it doesn't walk over +; the RESET routine at $280 +; +SPECLEN = $3C+$1F +FIXLOC = $280-SPECLEN +; +; First time through SUPP file header +; +CLS1 = $B53 +; +DATADRIV = $95F4 +CHECKPS1 = $7815 +CHECKPS2 = $77F9 +; +TMP0 EPZ $3A +TMP1 EPZ $3B +TMP2 EPZ $3C +;----------- + ORG ORG + OBJ $800 +;----------- + PHA +; +; Move program to RAMcard +; + BIT $C08B + BIT $C08B + LDX #8 + LDY #0 +^0 LDA PROGRAM,Y +^1 STA $D000,Y + INY + BNE <0 + INC <0+2 + INC <1+2 + DEX + BNE <0 +; +; Make patches to Print Shop +; +^2 LDA PATCHES,X + BEQ >5 + LDY #0 +^3 LDA PATCHES,X + INX + STA TMP0,Y + INY + CPY #3 + BLT <3 + LDY #0 +^4 LDA PATCHES,X + INX + STA (TMP1),Y + INY + DEC TMP0 + BNE <4 + BEQ <2 +; +^5 PLA + JSR $D003 +; +; Now reload MENULIB +; + LDY #FIXLEN-1 +^6 LDA FIXIT,Y + STA FIXLOC,Y + DEY + BPL <6 + JMP FIXLOC +;----------- +PATCHES: + BYT 9 + ADR $B8B + BIT $C08B + BIT $C08B + JMP $D003 +; + BYT 28 + ADR $88D0 + SEC + ROR $4E + SEC + SBC #$20 + TAX + LDA $6000,X + CMP $4E + BGE *+4 + STA $4E + JMP $8C76 + LDA $4E + CLC + ADC $8A0A + STA $D9 + RTS +; + BYT 2 + ADR $8C10 + ADR $88D0 +; + BYT 2 + ADR $8C28 + ADR $88D3 +; + BYT 4 + ADR $8C3F + JSR $88E3 + NOP +; + BRK +;----------- +; +; Remember MENULIB variables, then +; reload it and restore the vars. +; +FIXIT: + PHS FIXLOC +; +; Save vars and check for PS disk +; + CLC + JSR SWAP7000 +FIXIT1 JSR FIXIT2 +; +; Load MENULIB +; + LDX #$27 + LDY #$0B + JSR $CD2 + BNE FIXIT1 +; +; Restore vars and exit +; + SEC + JSR SWAP7000 + PLA + PLA + JMP CLS1 +;--- +; +; Make sure that PS disk in drive. +; +FIXIT2 LDA DATADRIV + CMP #2 + BEQ FIXIT3 + JMP CHECKPS1 +FIXIT3 JMP CHECKPS2 +;--- +; +; SEC:copy save area to $7000 +; CLC:copy $7000 to save area +; +SWAP7000 LDY #$1E +; +SWAP7001 BCS SWAP7002 + LDA $7000,Y + STA SWAPSAVE,Y + BCC SWAP7003 +; +SWAP7002 LDA SWAPSAVE,Y + STA $7000,Y +; +SWAP7003 DEY + BPL SWAP7001 + RTS +SWAPSAVE: + DPH +FIXLEN = *-FIXIT +;----------- +PROGRAM: +;----------- +; +; +; + USR "O:SUPPHEADER",ORG + END diff --git a/PSC Source Disk 2 - Editors (v11)/[CD].txt b/PSC Source Disk 2 - Editors (v11)/[CD].txt new file mode 100644 index 0000000..49a87bb --- /dev/null +++ b/PSC Source Disk 2 - Editors (v11)/[CD].txt @@ -0,0 +1,874 @@ +6300- 48 PHA +6301- 2C 8B C0 BIT $C08B rw:LCBANK1 +6304- 2C 8B C0 BIT $C08B rw:LCBANK1 +6307- A2 08 LDX #$08 +6309- A0 00 LDY #$00 +630B- B9 CA 63 LDA $63CA,Y +630E- 99 00 D0 STA $D000,Y +6311- C8 INY +6312- D0 F7 BNE $630B +6314- EE 0D 63 INC $630D +6317- EE 10 63 INC $6310 +631A- CA DEX +631B- D0 EE BNE $630B +631D- BD 51 63 LDA $6351,X +6320- F0 1D BEQ $633F +6322- A0 00 LDY #$00 +6324- BD 51 63 LDA $6351,X +6327- E8 INX +6328- 99 3A 00 STA $003A,Y +632B- C8 INY +632C- C0 03 CPY #$03 +632E- 90 F4 BCC $6324 +6330- A0 00 LDY #$00 +6332- BD 51 63 LDA $6351,X +6335- E8 INX +6336- 91 3B STA ($3B),Y +6338- C8 INY +6339- C6 3A DEC $3A +633B- D0 F5 BNE $6332 +633D- F0 DE BEQ $631D +633F- 68 PLA +6340- 20 03 D0 JSR $D003 +6343- A0 3B LDY #$3B +6345- B9 8E 63 LDA $638E,Y +6348- 99 25 02 STA $0225,Y +634B- 88 DEY +634C- 10 F7 BPL $6345 +634E- 4C 25 02 JMP $0225 +6351- 09 8B ORA #$8B +6353- 0B ??? +6354- 2C 8B C0 BIT $C08B rw:LCBANK1 +6357- 2C 8B C0 BIT $C08B rw:LCBANK1 +635A- 4C 03 D0 JMP $D003 +635D- 1C D0 88 TRB $88D0 +6360- 38 SEC +6361- 66 4E ROR $4E +6363- 38 SEC +6364- E9 20 SBC #$20 +6366- AA TAX +6367- BD 00 60 LDA $6000,X +636A- C5 4E CMP $4E +636C- B0 02 BCS $6370 +636E- 85 4E STA $4E +6370- 4C 76 8C JMP $8C76 +6373- A5 4E LDA $4E +6375- 18 CLC +6376- 6D 0A 8A ADC $8A0A +6379- 85 D9 STA $D9 +637B- 60 RTS +637C- 02 ??? +637D- 10 8C BPL $630B +637F- D0 88 BNE $6309 +6381- 02 ??? +6382- 28 PLP +6383- 8C D3 88 STY $88D3 +6386- 04 3F TSB $3F +6388- 8C 20 E3 STY $E320 +638B- 88 DEY +638C- EA NOP +638D- 00 BRK +638E- 18 CLC +638F- 20 4B 02 JSR $024B +6392- 20 3E 02 JSR $023E +6395- A2 27 LDX #$27 +6397- A0 0B LDY #$0B +6399- 20 D2 0C JSR $0CD2 +639C- D0 F4 BNE $6392 +639E- 38 SEC +639F- 20 4B 02 JSR $024B +63A2- 68 PLA +63A3- 68 PLA +63A4- 4C 53 0B JMP $0B53 +63A7- AD F4 95 LDA $95F4 +63AA- C9 02 CMP #$02 +63AC- F0 03 BEQ $63B1 +63AE- 4C 15 78 JMP $7815 +63B1- 4C F9 77 JMP $77F9 +63B4- A0 1E LDY #$1E +63B6- B0 08 BCS $63C0 +63B8- B9 00 70 LDA $7000,Y +63BB- 99 61 02 STA $0261,Y +63BE- 90 06 BCC $63C6 +63C0- B9 61 02 LDA $0261,Y +63C3- 99 00 70 STA $7000,Y +63C6- 88 DEY +63C7- 10 ED BPL $63B6 +63C9- 60 RTS +63CA- 4C 4B D0 JMP $D04B +63CD- AA TAX +63CE- A0 3F LDY #$3F +63D0- B9 19 D0 LDA $D019,Y +63D3- 99 C0 02 STA $02C0,Y +63D6- 88 DEY +63D7- 10 F7 BPL $63D0 +63D9- A9 3F LDA #$3F +63DB- 48 PHA +63DC- A9 FF LDA #$FF +63DE- 48 PHA +63DF- 8A TXA +63E0- 4C C0 02 JMP $02C0 +63E3- 48 PHA +63E4- 2C 8B C0 BIT $C08B rw:LCBANK1 +63E7- 2C 8B C0 BIT $C08B rw:LCBANK1 +63EA- A2 08 LDX #$08 +63EC- A0 07 LDY #$07 +63EE- A9 D2 LDA #$D2 +63F0- 84 3A STY $3A +63F2- 85 3B STA $3B +63F4- A0 00 LDY #$00 +63F6- A9 40 LDA #$40 +63F8- 84 3C STY $3C +63FA- 85 3D STA $3D +63FC- B1 3A LDA ($3A),Y +63FE- 48 PHA +63FF- B1 3C LDA ($3C),Y +6401- 91 3A STA ($3A),Y +6403- 68 PLA +6404- 91 3C STA ($3C),Y +6406- C8 INY +6407- D0 F3 BNE $63FC +6409- E6 3B INC $3B +640B- E6 3D INC $3D +640D- CA DEX +640E- D0 EC BNE $63FC +6410- 2C 81 C0 BIT $C081 rw:ROMIN +6413- 68 PLA +6414- 60 RTS +6415- A9 00 LDA #$00 +6417- A0 DE LDY #$DE +6419- AE 00 83 LDX $8300 +641C- E0 01 CPX #$01 +641E- D0 01 BNE $6421 +6420- C8 INY +6421- 85 86 STA $86 +6423- 84 87 STY $87 +6425- 20 64 D1 JSR $D164 +6428- A5 88 LDA $88 +642A- 0A ASL +642B- 69 20 ADC #$20 +642D- 85 83 STA $83 +642F- A9 00 LDA #$00 +6431- 85 82 STA $82 +6433- A0 24 LDY #$24 +6435- 91 82 STA ($82),Y +6437- 88 DEY +6438- 10 FB BPL $6435 +643A- A9 25 LDA #$25 +643C- 85 82 STA $82 +643E- A6 88 LDX $88 +6440- E4 89 CPX $89 +6442- F0 2C BEQ $6470 +6444- CA DEX +6445- E4 89 CPX $89 +6447- F0 27 BEQ $6470 +6449- A2 02 LDX #$02 +644B- A9 00 LDA #$00 +644D- 20 31 D1 JSR $D131 +6450- A9 00 LDA #$00 +6452- 20 DE D0 JSR $D0DE +6455- A9 C3 LDA #$C3 +6457- 85 82 STA $82 +6459- E6 83 INC $83 +645B- A9 02 LDA #$02 +645D- 20 DE D0 JSR $D0DE +6460- A0 0A LDY #$0A +6462- A9 00 LDA #$00 +6464- 91 82 STA ($82),Y +6466- 88 DEY +6467- 10 FB BPL $6464 +6469- E6 88 INC $88 +646B- C6 8A DEC $8A +646D- D0 B9 BNE $6428 +646F- 60 RTS +6470- A9 01 LDA #$01 +6472- A6 89 LDX $89 +6474- E0 18 CPX #$18 +6476- F0 02 BEQ $647A +6478- A9 00 LDA #$00 +647A- 85 3C STA $3C +647C- A2 00 LDX #$00 +647E- A5 3C LDA $3C +6480- 20 31 D1 JSR $D131 +6483- 20 DC D0 JSR $D0DC +6486- A2 01 LDX #$01 +6488- A5 3C LDA $3C +648A- 20 31 D1 JSR $D131 +648D- A2 11 LDX #$11 +648F- 20 DC D0 JSR $D0DC +6492- CA DEX +6493- D0 FA BNE $648F +6495- E6 3C INC $3C +6497- E6 3C INC $3C +6499- A2 00 LDX #$00 +649B- A5 3C LDA $3C +649D- 20 31 D1 JSR $D131 +64A0- 20 DC D0 JSR $D0DC +64A3- 4C 96 D0 JMP $D096 +64A6- A5 3C LDA $3C +64A8- A0 00 LDY #$00 +64AA- 84 3A STY $3A +64AC- 31 86 AND ($86),Y +64AE- 4A LSR +64AF- 66 3D ROR $3D +64B1- 4A LSR +64B2- 90 02 BCC $64B6 +64B4- A0 16 LDY #$16 +64B6- 84 3B STY $3B +64B8- A4 3A LDY $3A +64BA- B1 84 LDA ($84),Y +64BC- 24 3D BIT $3D +64BE- 10 04 BPL $64C4 +64C0- A8 TAY +64C1- B9 80 90 LDA $9080,Y +64C4- A4 3B LDY $3B +64C6- 31 82 AND ($82),Y +64C8- 8D 0E D1 STA $D10E +64CB- A4 3A LDY $3A +64CD- B1 80 LDA ($80),Y +64CF- 24 3D BIT $3D +64D1- 10 04 BPL $64D7 +64D3- A8 TAY +64D4- B9 80 90 LDA $9080,Y +64D7- 09 00 ORA #$00 +64D9- A4 3B LDY $3B +64DB- 91 82 STA ($82),Y +64DD- B0 02 BCS $64E1 +64DF- C8 INY +64E0- C8 INY +64E1- E6 3A INC $3A +64E3- 88 DEY +64E4- 84 3B STY $3B +64E6- A5 3A LDA $3A +64E8- 49 17 EOR #$17 +64EA- D0 CC BNE $64B8 +64EC- A9 17 LDA #$17 +64EE- 18 CLC +64EF- 65 82 ADC $82 +64F1- 85 82 STA $82 +64F3- 90 02 BCC $64F7 +64F5- E6 83 INC $83 +64F7- 60 RTS +64F8- 04 34 TSB $34 +64FA- 64 A0 STZ $A0 +64FC- 00 BRK +64FD- 31 86 AND ($86),Y +64FF- 45 88 EOR $88 +6501- 4A LSR +6502- B0 02 BCS $6506 +6504- A0 18 LDY #$18 +6506- A5 86 LDA $86 +6508- 85 80 STA $80 +650A- A5 87 LDA $87 +650C- 85 81 STA $81 +650E- 98 TYA +650F- 18 CLC +6510- 7D 2E D1 ADC $D12E,X +6513- 8D 5B D1 STA $D15B +6516- 18 CLC +6517- 65 80 ADC $80 +6519- 85 80 STA $80 +651B- 90 02 BCC $651F +651D- E6 81 INC $81 +651F- A9 00 LDA #$00 +6521- A0 BB LDY #$BB +6523- 18 CLC +6524- 69 00 ADC #$00 +6526- 85 84 STA $84 +6528- 90 01 BCC $652B +652A- C8 INY +652B- 84 85 STY $85 +652D- 60 RTS +652E- 20 FC D1 JSR $D1FC +6531- A0 00 LDY #$00 +6533- B1 86 LDA ($86),Y +6535- 29 04 AND #$04 +6537- D0 01 BNE $653A +6539- 60 RTS +653A- A2 02 LDX #$02 +653C- A0 00 LDY #$00 +653E- 20 3C D1 JSR $D13C +6541- 20 81 D1 JSR $D181 +6544- 20 CB D1 JSR $D1CB +6547- CA DEX +6548- 10 F2 BPL $653C +654A- 60 RTS +654B- E0 02 CPX #$02 +654D- F0 41 BEQ $6590 +654F- A0 2E LDY #$2E +6551- 84 3B STY $3B +6553- A0 16 LDY #$16 +6555- 84 3A STY $3A +6557- A9 7F LDA #$7F +6559- 85 3C STA $3C +655B- 31 80 AND ($80),Y +655D- F0 07 BEQ $6566 +655F- A5 3C LDA $3C +6561- 0A ASL +6562- 29 7F AND #$7F +6564- 10 F3 BPL $6559 +6566- A5 3C LDA $3C +6568- 91 84 STA ($84),Y +656A- D0 04 BNE $6570 +656C- E0 00 CPX #$00 +656E- F0 20 BEQ $6590 +6570- C9 7F CMP #$7F +6572- D0 15 BNE $6589 +6574- A9 7F LDA #$7F +6576- A4 3B LDY $3B +6578- 85 3C STA $3C +657A- 31 80 AND ($80),Y +657C- F0 07 BEQ $6585 +657E- A5 3C LDA $3C +6580- 0A ASL +6581- 29 7F AND #$7F +6583- 10 F3 BPL $6578 +6585- A5 3C LDA $3C +6587- 91 84 STA ($84),Y +6589- C6 3B DEC $3B +658B- A4 3A LDY $3A +658D- 88 DEY +658E- 10 C5 BPL $6555 +6590- 60 RTS +6591- 31 84 AND ($84),Y +6593- 29 FF AND #$FF +6595- E0 01 CPX #$01 +6597- F0 F7 BEQ $6590 +6599- BD C7 D1 LDA $D1C7,X +659C- 8D ED D1 STA $D1ED +659F- BD C8 D1 LDA $D1C8,X +65A2- 8D EE D1 STA $D1EE +65A5- A0 2E LDY #$2E +65A7- A9 7F LDA #$7F +65A9- 85 3C STA $3C +65AB- B1 80 LDA ($80),Y +65AD- 25 3C AND $3C +65AF- F0 04 BEQ $65B5 +65B1- 45 3C EOR $3C +65B3- 85 3C STA $3C +65B5- A5 3C LDA $3C +65B7- 11 84 ORA ($84),Y +65B9- 91 84 STA ($84),Y +65BB- 88 DEY +65BC- 30 07 BMI $65C5 +65BE- C0 17 CPY #$17 +65C0- D0 E9 BNE $65AB +65C2- 88 DEY +65C3- D0 E2 BNE $65A7 +65C5- 60 RTS +65C6- A0 90 LDY #$90 +65C8- A9 00 LDA #$00 +65CA- 88 DEY +65CB- 99 00 BB STA $BB00,Y +65CE- D0 FA BNE $65CA +65D0- 60 RTS +65D1- 20 F3 42 JSR $42F3 +65D4- A9 00 LDA #$00 +65D6- 8D 0D B0 STA $B00D +65D9- AD F4 95 LDA $95F4 +65DC- 8D 68 AA STA $AA68 +65DF- 8D EA B7 STA $B7EA +65E2- 09 30 ORA #$30 +65E4- C9 31 CMP #$31 +65E6- D0 02 BNE $65EA +65E8- A9 20 LDA #$20 +65EA- 8D 53 40 STA $4053 +65ED- 20 C9 42 JSR $42C9 +65F0- 20 FF 41 JSR $41FF +65F3- 04 01 TSB $01 +65F5- 8C 00 34 STY $3400 +65F8- 43 ??? +65F9- 48 PHA +65FA- 4F ??? +65FB- 4F ??? +65FC- 53 ??? +65FD- 45 20 EOR $20 +65FF- 41 20 EOR ($20,X) +6601- 02 ??? +6602- 0C 44 3A TSB $3A44 +6605- 05 03 ORA $03 +6607- 01 0F ORA ($0F,X) +6609- 00 BRK +660A- 5C ??? +660B- 50 4C BVC $6659 +660D- 41 43 EOR ($43,X) +660F- 45 20 EOR $20 +6611- 44 ??? +6612- 41 54 EOR ($54,X) +6614- 41 20 EOR ($20,X) +6616- 44 ??? +6617- 49 53 EOR #$53 +6619- 4B ??? +661A- 20 49 4E JSR $4E49 +661D- 20 44 52 JSR $5244 +6620- 49 56 EOR #$56 +6622- 45 20 EOR $20 +6624- 32 05 AND ($05) +6626- 05 05 ORA $05 +6628- 54 ??? +6629- 59 50 45 EOR $4550,Y +662C- 20 49 4E JSR $4E49 +662F- 20 4E 41 JSR $414E +6632- 4D 45 20 EOR $2045 +6635- 4F ??? +6636- 46 20 LSR $20 +6638- 02 ??? +6639- 0C 44 20 TSB $2044 +663C- 4F ??? +663D- 52 05 EOR ($05) +663F- 50 52 BVC $6693 +6641- 45 53 EOR $53 +6643- 53 ??? +6644- 20 3C 52 JSR $523C +6647- 45 54 EOR $54 +6649- 55 52 EOR $52,X +664B- 4E 3E 20 LSR $203E +664E- 46 4F LSR $4F +6650- 52 20 EOR ($20) +6652- 02 ??? +6653- 0C 44 20 TSB $2044 +6656- 4C 49 53 JMP $5349 +6659- 54 ??? +665A- 05 05 ORA $05 +665C- 3E 06 00 ROL $0006,X +665F- 20 41 41 JSR $4141 +6662- AD 00 C0 LDA $C000 r:KBD w:CLR80COL +6665- 8D FF 83 STA $83FF +6668- B0 15 BCS $667F +666A- 20 19 70 JSR $7019 +666D- D0 0D BNE $667C +666F- 20 C9 42 JSR $42C9 +6672- AD 13 44 LDA $4413 +6675- F0 13 BEQ $668A +6677- 20 64 41 JSR $4164 +667A- 90 03 BCC $667F +667C- 4C 1C 40 JMP $401C +667F- A9 01 LDA #$01 +6681- 8D 68 AA STA $AA68 +6684- 20 C9 42 JSR $42C9 +6687- 4C C0 02 JMP $02C0 +668A- 20 FF 41 JSR $41FF +668D- 04 01 TSB $01 +668F- 8C 00 14 STY $1400 +6692- 4C 49 53 JMP $5349 +6695- 54 ??? +6696- 20 4F 46 JSR $464F +6699- 20 02 0C JSR $0C02 +669C- 44 ??? +669D- 53 ??? +669E- 20 4F 4E JSR $4E4F +66A1- 20 54 48 JSR $4854 +66A4- 49 53 EOR #$53 +66A6- 20 44 49 JSR $4944 +66A9- 53 ??? +66AA- 4B ??? +66AB- 3A DEC +66AC- 05 00 ORA $00 +66AE- A9 FF LDA #$FF +66B0- 8D 10 41 STA $4110 +66B3- 8D 2A 41 STA $412A +66B6- 20 65 43 JSR $4365 +66B9- EE 2A 41 INC $412A +66BC- 20 70 43 JSR $4370 +66BF- B0 39 BCS $66FA +66C1- 8D 22 41 STA $4122 +66C4- 8C 23 41 STY $4123 +66C7- EE 10 41 INC $4110 +66CA- AD 10 41 LDA $4110 +66CD- 49 0F EOR #$0F +66CF- D0 0F BNE $66E0 +66D1- 8D 10 41 STA $4110 +66D4- 20 05 80 JSR $8005 +66D7- 29 7F AND #$7F +66D9- C9 1B CMP #$1B +66DB- F0 32 BEQ $670F +66DD- 20 CC 42 JSR $42CC +66E0- A9 00 LDA #$00 +66E2- 0A ASL +66E3- 0A ASL +66E4- 0A ASL +66E5- 69 24 ADC #$24 +66E7- 8D 20 41 STA $4120 +66EA- 20 FF 41 JSR $41FF +66ED- 03 ??? +66EE- 01 40 ORA ($40,X) +66F0- 00 BRK +66F1- FF ??? +66F2- 02 ??? +66F3- FF ??? +66F4- FF ??? +66F5- 05 00 ORA $00 +66F7- 4C E8 40 JMP $40E8 +66FA- A9 00 LDA #$00 +66FC- D0 0E BNE $670C +66FE- 20 FF 41 JSR $41FF +6701- 04 01 TSB $01 +6703- 8C 00 40 STY $4000 +6706- 4E 4F 4E LSR $4E4F +6709- 45 05 EOR $05 +670B- 00 BRK +670C- 20 05 80 JSR $8005 +670F- 4C 1C 40 JMP $401C +6712- A2 58 LDX #$58 +6714- A0 41 LDY #$41 +6716- A9 0F LDA #$0F +6718- 8E 15 8E STX $8E15 +671B- 8C 16 8E STY $8E16 +671E- 8D 17 8E STA $8E17 +6721- A9 00 LDA #$00 +6723- 8D 13 44 STA $4413 +6726- 4C 12 8E JMP $8E12 +6729- 02 ??? +672A- 00 BRK +672B- 1B ??? +672C- 00 BRK +672D- 8C 00 00 STY $0000 +6730- 02 ??? +6731- 00 BRK +6732- 13 ??? +6733- 44 ??? +6734- 02 ??? +6735- A0 0F LDY #$0F +6737- A9 20 LDA #$20 +6739- 88 DEY +673A- 99 4E 43 STA $434E,Y +673D- D0 FA BNE $6739 +673F- B9 13 44 LDA $4413,Y +6742- F0 06 BEQ $674A +6744- 99 4E 43 STA $434E,Y +6747- C8 INY +6748- D0 F5 BNE $673F +674A- A2 49 LDX #$49 +674C- A0 43 LDY #$43 +674E- 20 09 08 JSR $0809 +6751- D0 3E BNE $6791 +6753- A9 00 LDA #$00 +6755- D0 38 BNE $678F +6757- 2C 83 C0 BIT $C083 rw:LCBANK2 +675A- 2C 83 C0 BIT $C083 rw:LCBANK2 +675D- A0 0C LDY #$0C +675F- B1 FA LDA ($FA),Y +6761- 29 7F AND #$7F +6763- 91 FA STA ($FA),Y +6765- C8 INY +6766- C0 47 CPY #$47 +6768- 90 F5 BCC $675F +676A- A0 2C LDY #$2C +676C- A9 58 LDA #$58 +676E- 91 FA STA ($FA),Y +6770- A0 67 LDY #$67 +6772- A9 34 LDA #$34 +6774- 91 FA STA ($FA),Y +6776- A0 A2 LDY #$A2 +6778- A9 00 LDA #$00 +677A- 91 FA STA ($FA),Y +677C- A0 DD LDY #$DD +677E- A9 58 LDA #$58 +6780- 91 FA STA ($FA),Y +6782- A0 0B LDY #$0B +6784- B1 FA LDA ($FA),Y +6786- 99 16 08 STA $0816,Y +6789- 88 DEY +678A- 10 F8 BPL $6784 +678C- AD 82 C0 LDA $C082 +678F- 18 CLC +6790- 60 RTS +6791- C9 06 CMP #$06 +6793- F0 08 BEQ $679D +6795- 20 16 A3 JSR $A316 +6798- 20 08 80 JSR $8008 +679B- 38 SEC +679C- 60 RTS +679D- 20 C9 42 JSR $42C9 +67A0- 20 CC 6F JSR $6FCC +67A3- 20 FF 41 JSR $41FF +67A6- 04 01 TSB $01 +67A8- 8C 00 30 STY $3000 +67AB- 43 ??? +67AC- 41 4E EOR ($4E,X) +67AE- 4E 4F 54 LSR $544F +67B1- 20 46 49 JSR $4946 +67B4- 4E 44 05 LSR $0544 +67B7- 05 02 ORA $02 +67B9- 13 ??? +67BA- 44 ??? +67BB- 05 05 ORA $05 +67BD- 4F ??? +67BE- 4E 20 54 LSR $5420 +67C1- 48 PHA +67C2- 49 53 EOR #$53 +67C4- 20 44 49 JSR $4944 +67C7- 53 ??? +67C8- 4B ??? +67C9- 05 00 ORA $00 +67CB- 20 05 80 JSR $8005 +67CE- 38 SEC +67CF- 60 RTS +67D0- 68 PLA +67D1- 85 3A STA $3A +67D3- 68 PLA +67D4- 85 3B STA $3B +67D6- A9 02 LDA #$02 +67D8- 8D 03 8A STA $8A03 +67DB- 8D 0A 8A STA $8A0A +67DE- A2 00 LDX #$00 +67E0- 20 B6 42 JSR $42B6 +67E3- C9 20 CMP #$20 +67E5- 90 06 BCC $67ED +67E7- 9D 00 BB STA $BB00,X +67EA- E8 INX +67EB- D0 F3 BNE $67E0 +67ED- 0A ASL +67EE- A8 TAY +67EF- B9 32 42 LDA $4232,Y +67F2- 8D 2C 42 STA $422C +67F5- B9 33 42 LDA $4233,Y +67F8- 8D 2D 42 STA $422D +67FB- 18 CLC +67FC- 20 FF FF JSR $FFFF +67FF- 90 DF BCC $67E0 +6801- B0 DB BCS $67DE +6803- 40 RTI +6804- 42 ??? +6805- 48 PHA +6806- 42 ??? +6807- 61 42 ADC ($42,X) +6809- 81 42 STA ($42,X) +680B- 84 42 STY $42 +680D- 8A TXA +680E- 42 ??? +680F- A2 42 LDX #$42 +6811- 68 PLA +6812- 68 PLA +6813- 20 B6 42 JSR $42B6 +6816- 6C 3A 00 JMP ($003A) +6819- 20 B6 42 JSR $42B6 +681C- 8D 05 8A STA $8A05 +681F- 8D 8E 42 STA $428E +6822- 20 B6 42 JSR $42B6 +6825- 8D 06 8A STA $8A06 +6828- 8D 90 42 STA $4290 +682B- 20 B6 42 JSR $42B6 +682E- 8D 07 8A STA $8A07 +6831- 60 RTS +6832- 20 B6 42 JSR $42B6 +6835- 8D 70 42 STA $4270 +6838- 20 B6 42 JSR $42B6 +683B- 8D 71 42 STA $4271 +683E- A0 00 LDY #$00 +6840- B9 FF FF LDA $FFFF,Y +6843- F0 0B BEQ $6850 +6845- C9 20 CMP #$20 +6847- 90 04 BCC $684D +6849- 9D 00 BB STA $BB00,X +684C- E8 INX +684D- C8 INY +684E- D0 F0 BNE $6840 +6850- 18 CLC +6851- 60 RTS +6852- A9 00 LDA #$00 +6854- 2C A9 02 BIT $02A9 +6857- 8D 04 8A STA $8A04 +685A- 60 RTS +685B- 20 A2 42 JSR $42A2 +685E- A0 00 LDY #$00 +6860- A9 00 LDA #$00 +6862- 8C 05 8A STY $8A05 +6865- 8D 06 8A STA $8A06 +6868- AD 07 8A LDA $8A07 +686B- 18 CLC +686C- 69 08 ADC #$08 +686E- 8D 07 8A STA $8A07 +6871- 38 SEC +6872- 60 RTS +6873- A9 00 LDA #$00 +6875- 9D 00 BB STA $BB00,X +6878- A0 00 LDY #$00 +687A- A9 BB LDA #$BB +687C- 8C 0C 8A STY $8A0C +687F- 8D 0D 8A STA $8A0D +6882- 20 00 8A JSR $8A00 +6885- 38 SEC +6886- 60 RTS +6887- E6 3A INC $3A +6889- D0 02 BNE $688D +688B- E6 3B INC $3B +688D- A0 00 LDY #$00 +688F- B1 3A LDA ($3A),Y +6891- 60 RTS +6892- 01 11 ORA ($11,X) +6894- 26 A5 ROL $A5 +6896- 01 1C ORA ($1C,X) +6898- 26 9A ROL $9A +689A- A2 03 LDX #$03 +689C- 2C A2 07 BIT $07A2 +689F- A0 03 LDY #$03 +68A1- BD C1 42 LDA $42C1,X +68A4- 99 0C 8E STA $8E0C,Y +68A7- CA DEX +68A8- 88 DEY +68A9- 10 F6 BPL $68A1 +68AB- A9 01 LDA #$01 +68AD- 4C 09 8E JMP $8E09 +68B0- 81 89 STA ($89,X) +68B2- 00 BRK +68B3- 07 ??? +68B4- 46 4F LSR $4F +68B6- 4E 54 00 LSR $0054 +68B9- D0 E8 BNE $68A3 +68BB- 42 ??? +68BC- 4F ??? +68BD- 52 44 EOR ($44) +68BF- 45 52 EOR $52 +68C1- 00 BRK +68C2- DE DF 8D DEC $8DDF,X +68C5- 83 ??? +68C6- 41 A8 EOR ($A8,X) +68C8- BE DF 42 LDX $42DF,Y +68CB- BD 00 C0 LDA $C000,X +68CE- BD 00 C0 LDA $C000,X +68D1- BE E1 42 LDX $42E1,Y +68D4- A0 00 LDY #$00 +68D6- BD E3 42 LDA $42E3,X +68D9- 99 0C 44 STA $440C,Y +68DC- F0 0B BEQ $68E9 +68DE- C0 04 CPY #$04 +68E0- B0 03 BCS $68E5 +68E2- 99 49 43 STA $4349,Y +68E5- E8 INX +68E6- C8 INY +68E7- D0 ED BNE $68D6 +68E9- AD F5 95 LDA $95F5 +68EC- 4A LSR +68ED- 90 08 BCC $68F7 +68EF- 4D 00 83 EOR $8300 +68F2- C9 01 CMP #$01 +68F4- D0 01 BNE $68F7 +68F6- E8 INX +68F7- BD E4 42 LDA $42E4,X +68FA- A0 00 LDY #$00 +68FC- 84 FA STY $FA +68FE- 85 FB STA $FB +6900- 48 PHA +6901- 4A LSR +6902- 4A LSR +6903- 4A LSR +6904- 4A LSR +6905- 20 3B 43 JSR $433B +6908- 8D 60 43 STA $4360 +690B- 68 PLA +690C- 29 0F AND #$0F +690E- 09 30 ORA #$30 +6910- C9 3A CMP #$3A +6912- 90 02 BCC $6916 +6914- 69 06 ADC #$06 +6916- 8D 61 43 STA $4361 +6919- 60 RTS +691A- 58 CLI +691B- 58 CLI +691C- 58 CLI +691D- 58 CLI +691E- 2E 00 00 ROL $0000 +6921- 00 BRK +6922- 00 BRK +6923- 00 BRK +6924- 00 BRK +6925- 00 BRK +6926- 00 BRK +6927- 00 BRK +6928- 00 BRK +6929- 00 BRK +692A- 00 BRK +692B- 00 BRK +692C- 00 BRK +692D- 00 BRK +692E- 2C 41 24 BIT $2441 +6931- 58 CLI +6932- 58 CLI +6933- 30 30 BMI $6965 +6935- 00 BRK +6936- A9 00 LDA #$00 +6938- 85 FE STA $FE +693A- A0 11 LDY #$11 +693C- 20 DD 43 JSR $43DD +693F- 38 SEC +6940- 60 RTS +6941- A5 FC LDA $FC +6943- 18 CLC +6944- 69 23 ADC #$23 +6946- 85 FC STA $FC +6948- 90 02 BCC $694C +694A- E6 FD INC $FD +694C- C6 FE DEC $FE +694E- 10 19 BPL $6969 +6950- AC 14 44 LDY $4414 +6953- AD 15 44 LDA $4415 +6956- F0 E7 BEQ $693F +6958- 20 DD 43 JSR $43DD +695B- A0 FB LDY #$FB +695D- A9 43 LDA #$43 +695F- 84 FC STY $FC +6961- 85 FD STA $FD +6963- A9 07 LDA #$07 +6965- 85 FE STA $FE +6967- D0 D8 BNE $6941 +6969- A0 00 LDY #$00 +696B- B1 FC LDA ($FC),Y +696D- 30 D2 BMI $6941 +696F- F0 CE BEQ $693F +6971- C8 INY +6972- C8 INY +6973- B1 FC LDA ($FC),Y +6975- 29 7F AND #$7F +6977- C9 04 CMP #$04 +6979- D0 C6 BNE $6941 +697B- A2 00 LDX #$00 +697D- C8 INY +697E- B1 FC LDA ($FC),Y +6980- 29 7F AND #$7F +6982- DD 49 43 CMP $4349,X +6985- D0 BA BNE $6941 +6987- E8 INX +6988- E0 05 CPX #$05 +698A- 90 F1 BCC $697D +698C- A0 20 LDY #$20 +698E- B1 FC LDA ($FC),Y +6990- 49 A0 EOR #$A0 +6992- D0 05 BNE $6999 +6994- 91 FC STA ($FC),Y +6996- 88 DEY +6997- 10 F5 BPL $698E +6999- B1 FC LDA ($FC),Y +699B- 29 7F AND #$7F +699D- 91 FC STA ($FC),Y +699F- 88 DEY +69A0- D0 F7 BNE $6999 +69A2- A5 FC LDA $FC +69A4- A4 FD LDY $FD +69A6- 18 CLC +69A7- 69 08 ADC #$08 +69A9- 90 01 BCC $69AC +69AB- C8 INY +69AC- 18 CLC +69AD- 60 RTS +69AE- 8D ED B7 STA $B7ED +69B1- 8C EC B7 STY $B7EC +69B4- A9 00 LDA #$00 +69B6- 8D EB B7 STA $B7EB +69B9- A0 13 LDY #$13 +69BB- A9 44 LDA #$44 +69BD- 8C F0 B7 STY $B7F0 +69C0- 8D F1 B7 STA $B7F1 +69C3- A9 01 LDA #$01 +69C5- 8D F4 B7 STA $B7F4 +69C8- 20 E3 03 JSR $03E3 +69CB- 20 D9 03 JSR $03D9 +69CE- B0 01 BCS $69D1 +69D0- 60 RTS +69D1- 68 PLA +69D2- 68 PLA +69D3- 68 PLA +69D4- 68 PLA +69D5- A9 08 LDA #$08 +69D7- 20 C0 41 JSR $41C0 +69DA- 4C 1C 40 JMP $401C diff --git a/PSC Source Disk 3 - Calendar (v12)/A_MCAL.txt b/PSC Source Disk 3 - Calendar (v12)/A_MCAL.txt new file mode 100644 index 0000000..34403fe --- /dev/null +++ b/PSC Source Disk 3 - Calendar (v12)/A_MCAL.txt @@ -0,0 +1,12 @@ + 10 LL = - 21920:LH = - 21919: DEF FN L(A) = PEEK (LL) + 256 * PEEK (LH): PRINT "MONC" + 20 READ F$,A,A: PRINT "BLOAD "F$",A$4000":BF = 16384 + FN L(0) + 30 READ F$,AL,AH: POKE BF,AL: POKE BF + 1,AH:BF = BF + 2: IF AH THEN PRINT "BLOAD "F$",A"BF + 2: POKE BF, PEEK (LL): POKE BF + 1, PEEK (LH):BF = BF + 2 + FN L(0): GOTO 30 + 40 EX$ = ".TOO BIG,V13": GOSUB 100 + 45 REM EX$=",S4":GOSUB100 + 50 END + 100 PRINT "BSAVE "F$EX$",A16384,L"BF - 16384: RETURN + 1000 DATA "UCAL",0,64: REM $4000 + 1005 DATA "PCAL",0,15: REM $0F00 + 1010 DATA "ICAL",0,123: REM $7B00 + 1015 DATA "CALEN",, + 63999 PRINT "SAVE MCAL" diff --git a/PSC Source Disk 3 - Calendar (v12)/ICAL.txt b/PSC Source Disk 3 - Calendar (v12)/ICAL.txt new file mode 100644 index 0000000..21c805e --- /dev/null +++ b/PSC Source Disk 3 - Calendar (v12)/ICAL.txt @@ -0,0 +1,1121 @@ +7B00- 4C 24 7B JMP $7B24 +7B03- 4C 4D 7B JMP $7B4D +7B06- 4C 65 7B JMP $7B65 +7B09- 4C FF 7B JMP $7BFF +7B0C- 4C 30 7C JMP $7C30 +7B0F- 4C 5E 7C JMP $7C5E +7B12- 4C 7F 7C JMP $7C7F +7B15- 4C 72 82 JMP $8272 +7B18- 4C EC 7F JMP $7FEC +7B1B- 4C 7F 81 JMP $817F +7B1E- 4C 8A 83 JMP $838A +7B21- 4C D2 7C JMP $7CD2 +7B24- A0 00 LDY #$00 +7B26- 98 TYA +7B27- 99 00 D0 STA $D000,Y +7B2A- C8 INY +7B2B- D0 FA BNE $7B27 +7B2D- 88 DEY +7B2E- 8C 59 D0 STY $D059 +7B31- A0 5E LDY #$5E +7B33- A9 D0 LDA #$D0 +7B35- 8C 13 D0 STY $D013 +7B38- 8D 14 D0 STA $D014 +7B3B- 60 RTS +7B3C- B9 15 D0 LDA $D015,Y +7B3F- 85 D3 STA $D3 +7B41- 85 D5 STA $D5 +7B43- B9 37 D0 LDA $D037,Y +7B46- 85 D4 STA $D4 +7B48- 85 D6 STA $D6 +7B4A- 05 D5 ORA $D5 +7B4C- 60 RTS +7B4D- 20 3C 7B JSR $7B3C +7B50- D0 05 BNE $7B57 +7B52- 8D 00 96 STA $9600 +7B55- 18 CLC +7B56- 60 RTS +7B57- A0 00 LDY #$00 +7B59- B1 D5 LDA ($D5),Y +7B5B- 99 00 96 STA $9600,Y +7B5E- F0 03 BEQ $7B63 +7B60- C8 INY +7B61- D0 F6 BNE $7B59 +7B63- 38 SEC +7B64- 60 RTS +7B65- 98 TYA +7B66- 48 PHA +7B67- 20 9C 7B JSR $7B9C +7B6A- 68 PLA +7B6B- A8 TAY +7B6C- AD 00 96 LDA $9600 +7B6F- D0 07 BNE $7B78 +7B71- 99 15 D0 STA $D015,Y +7B74- 99 37 D0 STA $D037,Y +7B77- 60 RTS +7B78- AD 13 D0 LDA $D013 +7B7B- 99 15 D0 STA $D015,Y +7B7E- 85 D3 STA $D3 +7B80- AD 14 D0 LDA $D014 +7B83- 99 37 D0 STA $D037,Y +7B86- 85 D4 STA $D4 +7B88- A0 00 LDY #$00 +7B8A- B9 00 96 LDA $9600,Y +7B8D- 91 D3 STA ($D3),Y +7B8F- EE 13 D0 INC $D013 +7B92- D0 03 BNE $7B97 +7B94- EE 14 D0 INC $D014 +7B97- C8 INY +7B98- AA TAX +7B99- D0 EF BNE $7B8A +7B9B- 60 RTS +7B9C- 20 3C 7B JSR $7B3C +7B9F- F0 5D BEQ $7BFE +7BA1- A9 00 LDA #$00 +7BA3- 85 D7 STA $D7 +7BA5- A0 00 LDY #$00 +7BA7- B1 D5 LDA ($D5),Y +7BA9- E6 D5 INC $D5 +7BAB- D0 02 BNE $7BAF +7BAD- E6 D6 INC $D6 +7BAF- E6 D7 INC $D7 +7BB1- A8 TAY +7BB2- D0 F1 BNE $7BA5 +7BB4- A2 21 LDX #$21 +7BB6- BD 37 D0 LDA $D037,X +7BB9- C5 D6 CMP $D6 +7BBB- D0 05 BNE $7BC2 +7BBD- BD 15 D0 LDA $D015,X +7BC0- C5 D5 CMP $D5 +7BC2- 90 0D BCC $7BD1 +7BC4- BD 15 D0 LDA $D015,X +7BC7- E5 D7 SBC $D7 +7BC9- 9D 15 D0 STA $D015,X +7BCC- B0 03 BCS $7BD1 +7BCE- DE 37 D0 DEC $D037,X +7BD1- CA DEX +7BD2- 10 E2 BPL $7BB6 +7BD4- A5 D6 LDA $D6 +7BD6- CD 14 D0 CMP $D014 +7BD9- D0 05 BNE $7BE0 +7BDB- A5 D5 LDA $D5 +7BDD- CD 13 D0 CMP $D013 +7BE0- F0 12 BEQ $7BF4 +7BE2- B1 D5 LDA ($D5),Y +7BE4- 91 D3 STA ($D3),Y +7BE6- E6 D3 INC $D3 +7BE8- D0 02 BNE $7BEC +7BEA- E6 D4 INC $D4 +7BEC- E6 D5 INC $D5 +7BEE- D0 02 BNE $7BF2 +7BF0- E6 D6 INC $D6 +7BF2- D0 E0 BNE $7BD4 +7BF4- E5 D7 SBC $D7 +7BF6- 8D 13 D0 STA $D013 +7BF9- B0 03 BCS $7BFE +7BFB- CE 14 D0 DEC $D014 +7BFE- 60 RTS +7BFF- 20 4D 7B JSR $7B4D +7C02- A0 00 LDY #$00 +7C04- 98 TYA +7C05- A2 00 LDX #$00 +7C07- 29 1F AND #$1F +7C09- D0 02 BNE $7C0D +7C0B- A2 80 LDX #$80 +7C0D- 8A TXA +7C0E- 99 00 97 STA $9700,Y +7C11- C8 INY +7C12- D0 F0 BNE $7C04 +7C14- A2 E0 LDX #$E0 +7C16- B9 00 96 LDA $9600,Y +7C19- F0 14 BEQ $7C2F +7C1B- 30 07 BMI $7C24 +7C1D- 9D 00 97 STA $9700,X +7C20- E8 INX +7C21- C8 INY +7C22- D0 F2 BNE $7C16 +7C24- 48 PHA +7C25- 8A TXA +7C26- 18 CLC +7C27- 69 20 ADC #$20 +7C29- 29 E0 AND #$E0 +7C2B- AA TAX +7C2C- 68 PLA +7C2D- 30 EE BMI $7C1D +7C2F- 60 RTS +7C30- 98 TYA +7C31- 48 PHA +7C32- A2 00 LDX #$00 +7C34- A0 00 LDY #$00 +7C36- BD 00 97 LDA $9700,X +7C39- 99 00 96 STA $9600,Y +7C3C- F0 04 BEQ $7C42 +7C3E- E8 INX +7C3F- C8 INY +7C40- D0 F4 BNE $7C36 +7C42- 8A TXA +7C43- 18 CLC +7C44- 69 20 ADC #$20 +7C46- 29 E0 AND #$E0 +7C48- AA TAX +7C49- D0 EB BNE $7C36 +7C4B- 88 DEY +7C4C- 30 05 BMI $7C53 +7C4E- B9 00 96 LDA $9600,Y +7C51- 30 F8 BMI $7C4B +7C53- C8 INY +7C54- A9 00 LDA #$00 +7C56- 99 00 96 STA $9600,Y +7C59- 68 PLA +7C5A- A8 TAY +7C5B- 4C 65 7B JMP $7B65 +7C5E- A0 00 LDY #$00 +7C60- 8C 56 7A STY $7A56 +7C63- A5 D9 LDA $D9 +7C65- C9 0A CMP #$0A +7C67- 90 0D BCC $7C76 +7C69- A2 FF LDX #$FF +7C6B- E8 INX +7C6C- E9 0A SBC #$0A +7C6E- B0 FB BCS $7C6B +7C70- 69 0A ADC #$0A +7C72- 09 30 ORA #$30 +7C74- A8 TAY +7C75- 8A TXA +7C76- 09 30 ORA #$30 +7C78- 8D 54 7A STA $7A54 +7C7B- 8C 55 7A STY $7A55 +7C7E- 60 RTS +7C7F- A2 FF LDX #$FF +7C81- 88 DEY +7C82- 30 08 BMI $7C8C +7C84- E8 INX +7C85- BD 99 7C LDA $7C99,X +7C88- D0 FA BNE $7C84 +7C8A- F0 F5 BEQ $7C81 +7C8C- A0 FF LDY #$FF +7C8E- E8 INX +7C8F- C8 INY +7C90- BD 99 7C LDA $7C99,X +7C93- 99 4A 7A STA $7A4A,Y +7C96- D0 F6 BNE $7C8E +7C98- 60 RTS +7C99- 53 ??? +7C9A- 55 4E EOR $4E,X +7C9C- 44 ??? +7C9D- 41 59 EOR ($59,X) +7C9F- 00 BRK +7CA0- 4D 4F 4E EOR $4E4F +7CA3- 44 ??? +7CA4- 41 59 EOR ($59,X) +7CA6- 00 BRK +7CA7- 54 ??? +7CA8- 55 45 EOR $45,X +7CAA- 53 ??? +7CAB- 44 ??? +7CAC- 41 59 EOR ($59,X) +7CAE- 00 BRK +7CAF- 57 ??? +7CB0- 45 44 EOR $44 +7CB2- 4E 45 53 LSR $5345 +7CB5- 44 ??? +7CB6- 41 59 EOR ($59,X) +7CB8- 00 BRK +7CB9- 54 ??? +7CBA- 48 PHA +7CBB- 55 52 EOR $52,X +7CBD- 53 ??? +7CBE- 44 ??? +7CBF- 41 59 EOR ($59,X) +7CC1- 00 BRK +7CC2- 46 52 LSR $52 +7CC4- 49 44 EOR #$44 +7CC6- 41 59 EOR ($59,X) +7CC8- 00 BRK +7CC9- 53 ??? +7CCA- 41 54 EOR ($54,X) +7CCC- 55 52 EOR $52,X +7CCE- 44 ??? +7CCF- 41 59 EOR ($59,X) +7CD1- 00 BRK +7CD2- 48 PHA +7CD3- 86 D3 STX $D3 +7CD5- A9 14 LDA #$14 +7CD7- 38 SEC +7CD8- E5 D3 SBC $D3 +7CDA- 0A ASL +7CDB- 85 D3 STA $D3 +7CDD- 68 PLA +7CDE- 8D 19 7D STA $7D19 +7CE1- 8D 1F 7D STA $7D1F +7CE4- 8E 16 7D STX $7D16 +7CE7- 8E 21 7D STX $7D21 +7CEA- 8E 26 7D STX $7D26 +7CED- CA DEX +7CEE- 8A TXA +7CEF- 18 CLC +7CF0- 65 D3 ADC $D3 +7CF2- 8D 1C 7D STA $7D1C +7CF5- 8C 17 7D STY $7D17 +7CF8- 8C 1D 7D STY $7D1D +7CFB- 88 DEY +7CFC- 88 DEY +7CFD- 8C 22 7D STY $7D22 +7D00- 98 TYA +7D01- 69 02 ADC #$02 +7D03- 6D 19 7D ADC $7D19 +7D06- 8D 27 7D STA $7D27 +7D09- A5 D3 LDA $D3 +7D0B- 8D 23 7D STA $7D23 +7D0E- 8D 28 7D STA $7D28 +7D11- 20 00 E0 JSR $E000 +7D14- 11 07 ORA ($07),Y +7D16- 00 BRK +7D17- 00 BRK +7D18- 01 00 ORA ($00,X) +7D1A- 11 70 ORA ($70),Y +7D1C- 00 BRK +7D1D- 00 BRK +7D1E- 01 00 ORA ($00,X) +7D20- 10 00 BPL $7D22 +7D22- 00 BRK +7D23- 00 BRK +7D24- 02 ??? +7D25- 10 00 BPL $7D27 +7D27- 00 BRK +7D28- 00 BRK +7D29- 02 ??? +7D2A- 00 BRK +7D2B- 60 RTS +7D2C- 45 44 EOR $44 +7D2E- 49 54 EOR #$54 +7D30- 20 49 4E JSR $4E49 +7D33- 53 ??? +7D34- 54 ??? +7D35- 52 55 EOR ($55) +7D37- 43 ??? +7D38- 54 ??? +7D39- 49 4F EOR #$4F +7D3B- 4E 53 00 LSR $0053 +7D3E- 20 4F 46 JSR $464F +7D41- 20 4C 49 JSR $494C +7D44- 4E 45 20 LSR $2045 +7D47- 00 BRK +7D48- 20 00 E0 JSR $E000 +7D4B- 06 0C ASL $0C +7D4D- 00 BRK +7D4E- A6 3C LDX $3C +7D50- 43 ??? +7D51- 54 ??? +7D52- 52 4C EOR ($4C) +7D54- 2D 20 20 AND $2020 +7D57- 3E 20 54 ROL $5420,X +7D5A- 4F ??? +7D5B- 20 53 45 JSR $4553 +7D5E- 45 20 EOR $20 +7D60- 09 2C ORA #$2C +7D62- 7D 0D 13 ADC $130D,X +7D65- 09 A6 ORA #$A6 +7D67- 01 07 ORA ($07,X) +7D69- 0F ??? +7D6A- 06 06 ASL $06 +7D6C- 06 06 ASL $06 +7D6E- 06 0F ASL $0F +7D70- 00 BRK +7D71- 60 RTS +7D72- 08 PHP +7D73- 20 72 E0 JSR $E072 +7D76- 20 00 E0 JSR $E000 +7D79- 06 4C ASL $4C +7D7B- 00 BRK +7D7C- 16 09 ASL $09,X +7D7E- 2C 7D 0D BIT $0D7D +7D81- 00 BRK +7D82- 28 PLP +7D83- B0 67 BCS $7DEC +7D85- 20 00 E0 JSR $E000 +7D88- 06 10 ASL $10 +7D8A- 00 BRK +7D8B- 3A DEC +7D8C- 3C 43 54 BIT $5443,X +7D8F- 52 4C EOR ($4C) +7D91- 2D 50 3E AND $3E50 +7D94- 0E 14 5B ASL $5B14 +7D97- 50 4F BVC $7DE8 +7D99- 53 ??? +7D9A- 49 54 EOR #$54 +7D9C- 49 4F EOR #$4F +7D9E- 4E 09 41 LSR $4109 +7DA1- 7D 4F 46 ADC $464F,X +7DA4- 20 54 45 JSR $4554 +7DA7- 58 CLI +7DA8- 54 ??? +7DA9- 0D 06 7A ORA $7A06 +7DAC- 00 BRK +7DAD- 45 4C EOR $4C +7DAF- 0D 43 0D ORA $0D43 +7DB2- 52 0D EOR ($0D) +7DB4- 06 94 ASL $94 +7DB6- 00 BRK +7DB7- 45 4C EOR $4C +7DB9- 45 46 EOR $46 +7DBB- 54 ??? +7DBC- 0D 43 45 ORA $4543 +7DBF- 4E 54 45 LSR $4554 +7DC2- 52 0D EOR ($0D) +7DC4- 52 49 EOR ($49) +7DC6- 47 ??? +7DC7- 48 PHA +7DC8- 54 ??? +7DC9- 0D 06 10 ORA $1006 +7DCC- 00 BRK +7DCD- 64 3C STZ $3C +7DCF- 43 ??? +7DD0- 54 ??? +7DD1- 52 4C EOR ($4C) +7DD3- 2D 53 3E AND $3E53 +7DD6- 0E 14 5B ASL $5B14 +7DD9- 43 ??? +7DDA- 48 PHA +7DDB- 41 4E EOR ($4E,X) +7DDD- 47 ??? +7DDE- 45 20 EOR $20 +7DE0- 53 ??? +7DE1- 49 5A EOR #$5A +7DE3- 45 09 EOR $09 +7DE5- 3E 7D 0D ROL $0D7D,X +7DE8- 00 BRK +7DE9- 4C 39 7E JMP $7E39 +7DEC- 20 00 E0 JSR $E000 +7DEF- 06 10 ASL $10 +7DF1- 00 BRK +7DF2- 44 ??? +7DF3- 3C 43 54 BIT $5443,X +7DF6- 52 4C EOR ($4C) +7DF8- 2D 46 3E AND $3E46 +7DFB- 0E 14 5B ASL $5B14 +7DFE- 43 ??? +7DFF- 48 PHA +7E00- 41 4E EOR ($4E,X) +7E02- 47 ??? +7E03- 45 20 EOR $20 +7E05- 46 4F LSR $4F +7E07- 52 4D EOR ($4D) +7E09- 09 3E ORA #$3E +7E0B- 7D 0D 06 ADC $060D,X +7E0E- 94 00 STY $00,X +7E10- 4F ??? +7E11- 53 ??? +7E12- 4F ??? +7E13- 4C 49 44 JMP $4449 +7E16- 0D 4F 55 ORA $554F +7E19- 54 ??? +7E1A- 4C 49 4E JMP $4E49 +7E1D- 45 0D EOR $0D +7E1F- 33 ??? +7E20- 2D 44 0D AND $0D44 +7E23- 00 BRK +7E24- A2 11 LDX #$11 +7E26- A0 4F LDY #$4F +7E28- 20 71 7E JSR $7E71 +7E2B- A2 11 LDX #$11 +7E2D- A0 57 LDY #$57 +7E2F- 20 8D 7E JSR $7E8D +7E32- A2 11 LDX #$11 +7E34- A0 5F LDY #$5F +7E36- 20 A9 7E JSR $7EA9 +7E39- 20 45 7E JSR $7E45 +7E3C- 4C 60 E0 JMP $E060 +7E3F- A9 05 LDA #$05 +7E41- A2 8C LDX #$8C +7E43- D0 04 BNE $7E49 +7E45- A9 03 LDA #$03 +7E47- A2 10 LDX #$10 +7E49- 8D 52 7E STA $7E52 +7E4C- 8E 54 7E STX $7E54 +7E4F- 20 00 E0 JSR $E000 +7E52- 03 ??? +7E53- 06 00 ASL $00 +7E55- 00 BRK +7E56- 90 3C BCC $7E94 +7E58- 43 ??? +7E59- 54 ??? +7E5A- 52 4C EOR ($4C) +7E5C- 2D 45 3E AND $3E45 +7E5F- 20 20 20 JSR $2020 +7E62- 20 20 45 JSR $4520 +7E65- 52 41 EOR ($41) +7E67- 53 ??? +7E68- 45 20 EOR $20 +7E6A- 4C 49 4E JMP $4E49 +7E6D- 45 0D EOR $0D +7E6F- 00 BRK +7E70- 60 RTS +7E71- 8E 7A 7E STX $7E7A +7E74- 8C 7B 7E STY $7E7B +7E77- 20 0C E0 JSR $E00C +7E7A- 00 BRK +7E7B- 00 BRK +7E7C- 02 ??? +7E7D- 07 ??? +7E7E- 7C 1F 7C JMP ($7C1F,X) +7E81- 1F ??? +7E82- 7C 1F 7C JMP ($7C1F,X) +7E85- 1F ??? +7E86- 7C 1F 7C JMP ($7C1F,X) +7E89- 1F ??? +7E8A- 7C 1F 60 JMP ($601F,X) +7E8D- 8E 96 7E STX $7E96 +7E90- 8C 97 7E STY $7E97 +7E93- 20 0C E0 JSR $E00C +7E96- 00 BRK +7E97- 00 BRK +7E98- 02 ??? +7E99- 07 ??? +7E9A- 7C 1F 0C JMP ($0C1F,X) +7E9D- 18 CLC +7E9E- 0C 18 0C TSB $0C18 +7EA1- 18 CLC +7EA2- 0C 18 0C TSB $0C18 +7EA5- 18 CLC +7EA6- 7C 1F 60 JMP ($601F,X) +7EA9- 8E B2 7E STX $7EB2 +7EAC- 8C B3 7E STY $7EB3 +7EAF- 20 0C E0 JSR $E00C +7EB2- 00 BRK +7EB3- 00 BRK +7EB4- 02 ??? +7EB5- 07 ??? +7EB6- 1C 1F 36 TRB $361F +7EB9- 33 ??? +7EBA- 30 33 BMI $7EEF +7EBC- 18 CLC +7EBD- 33 ??? +7EBE- 30 33 BMI $7EF3 +7EC0- 36 33 ROL $33,X +7EC2- 1C 1F 60 TRB $601F +7EC5- 20 69 E0 JSR $E069 +7EC8- 20 E5 7F JSR $7FE5 +7ECB- 8C F7 7E STY $7EF7 +7ECE- 8D F8 7E STA $7EF8 +7ED1- 20 E5 7F JSR $7FE5 +7ED4- 8C FA 7E STY $7EFA +7ED7- 8D FB 7E STA $7EFB +7EDA- 20 E5 7F JSR $7FE5 +7EDD- 8C 1C 7F STY $7F1C +7EE0- 8D 1D 7F STA $7F1D +7EE3- 20 E5 7F JSR $7FE5 +7EE6- 8C 11 7F STY $7F11 +7EE9- 8D 5D 7F STA $7F5D +7EEC- 20 E5 7F JSR $7FE5 +7EEF- 8C 07 7F STY $7F07 +7EF2- 8D 0C 7F STA $7F0C +7EF5- 60 RTS +7EF6- 20 FF FF JSR $FFFF +7EF9- 20 FF FF JSR $FFFF +7EFC- A4 D5 LDY $D5 +7EFE- A5 D6 LDA $D6 +7F00- 8C 0C 8A STY $8A0C +7F03- 8D 0D 8A STA $8A0D +7F06- A9 00 LDA #$00 +7F08- 8D 0A 8A STA $8A0A +7F0B- A9 00 LDA #$00 +7F0D- 8D 0E 8A STA $8A0E +7F10- A2 00 LDX #$00 +7F12- F0 07 BEQ $7F1B +7F14- A0 00 LDY #$00 +7F16- A9 85 LDA #$85 +7F18- 20 09 0F JSR $0F09 +7F1B- 20 FF FF JSR $FFFF +7F1E- 20 81 7F JSR $7F81 +7F21- 48 PHA +7F22- A0 FF LDY #$FF +7F24- C8 INY +7F25- B1 D5 LDA ($D5),Y +7F27- D0 FB BNE $7F24 +7F29- 68 PLA +7F2A- A2 01 LDX #$01 +7F2C- 20 51 E0 JSR $E051 +7F2F- 08 PHP +7F30- 70 7F BVS $7FB1 +7F32- 7F ??? +7F33- 70 7F BVS $7FB4 +7F35- 05 6E ORA $6E +7F37- 7F ??? +7F38- 0D 7F 7F ORA $7F7F +7F3B- 0A ASL +7F3C- 7F ??? +7F3D- 7F ??? +7F3E- 1B ??? +7F3F- 7E 7F 0B ROR $0B7F,X +7F42- 7E 7F 09 ROR $097F,X +7F45- 7D 7F 13 ADC $137F,X +7F48- 7C 7F 10 JMP ($107F,X) +7F4B- 7B ??? +7F4C- 7F ??? +7F4D- 06 7A ASL $7A +7F4F- 7F ??? +7F50- 40 RTI +7F51- 1E 7F 00 ASL $007F,X +7F54- C9 20 CMP #$20 +7F56- 90 C6 BCC $7F1E +7F58- C9 5B CMP #$5B +7F5A- B0 C2 BCS $7F1E +7F5C- C0 00 CPY #$00 +7F5E- B0 BE BCS $7F1E +7F60- 91 D5 STA ($D5),Y +7F62- C8 INY +7F63- A9 00 LDA #$00 +7F65- 91 D5 STA ($D5),Y +7F67- AD 04 8A LDA $8A04 +7F6A- F0 8D BEQ $7EF9 +7F6C- D0 88 BNE $7EF6 +7F6E- A0 01 LDY #$01 +7F70- 88 DEY +7F71- 30 AB BMI $7F1E +7F73- A9 00 LDA #$00 +7F75- 91 D5 STA ($D5),Y +7F77- 4C F6 7E JMP $7EF6 +7F7A- E8 INX +7F7B- E8 INX +7F7C- E8 INX +7F7D- E8 INX +7F7E- E8 INX +7F7F- 8A TXA +7F80- 60 RTS +7F81- 06 C1 ASL $C1 +7F83- 20 A4 7F JSR $7FA4 +7F86- E6 C1 INC $C1 +7F88- 20 48 E0 JSR $E048 +7F8B- 20 1F E0 JSR $E01F +7F8E- 30 0A BMI $7F9A +7F90- C6 4E DEC $4E +7F92- D0 F7 BNE $7F8B +7F94- C6 4F DEC $4F +7F96- 10 F3 BPL $7F8B +7F98- 30 E9 BMI $7F83 +7F9A- 48 PHA +7F9B- 46 C1 LSR $C1 +7F9D- 90 03 BCC $7FA2 +7F9F- 20 A4 7F JSR $7FA4 +7FA2- 68 PLA +7FA3- 60 RTS +7FA4- A9 04 LDA #$04 +7FA6- 8D 03 8A STA $8A03 +7FA9- AD 04 8A LDA $8A04 +7FAC- 48 PHA +7FAD- AD 05 8A LDA $8A05 +7FB0- 48 PHA +7FB1- AD 06 8A LDA $8A06 +7FB4- 48 PHA +7FB5- AD 0A 8A LDA $8A0A +7FB8- 48 PHA +7FB9- A9 00 LDA #$00 +7FBB- 8D 04 8A STA $8A04 +7FBE- 8D 0A 8A STA $8A0A +7FC1- A0 E2 LDY #$E2 +7FC3- A9 7F LDA #$7F +7FC5- 8C 0C 8A STY $8A0C +7FC8- 8D 0D 8A STA $8A0D +7FCB- 20 00 8A JSR $8A00 +7FCE- 68 PLA +7FCF- 8D 0A 8A STA $8A0A +7FD2- 68 PLA +7FD3- 8D 06 8A STA $8A06 +7FD6- 68 PLA +7FD7- 8D 05 8A STA $8A05 +7FDA- 68 PLA +7FDB- 8D 04 8A STA $8A04 +7FDE- 4E 03 8A LSR $8A03 +7FE1- 60 RTS +7FE2- 49 49 EOR #$49 +7FE4- 00 BRK +7FE5- 20 6C E0 JSR $E06C +7FE8- A8 TAY +7FE9- 4C 6C E0 JMP $E06C +7FEC- 86 D9 STX $D9 +7FEE- A9 00 LDA #$00 +7FF0- 85 C0 STA $C0 +7FF2- A4 D9 LDY $D9 +7FF4- 88 DEY +7FF5- 20 FF 7B JSR $7BFF +7FF8- 20 C5 7E JSR $7EC5 +7FFB- 20 81 58 JSR $5881 +7FFE- FF ??? +7FFF- 46 81 LSR $81 +8001- 7E 1E 02 ROR $021E,X +8004- 00 BRK +8005- A2 47 LDX #$47 +8007- A0 00 LDY #$00 +8009- 86 D0 STX $D0 +800B- 84 D1 STY $D1 +800D- A0 36 LDY #$36 +800F- 84 D2 STY $D2 +8011- 20 4B 81 JSR $814B +8014- 20 48 7D JSR $7D48 +8017- A2 0A LDX #$0A +8019- A0 36 LDY #$36 +801B- A9 5A LDA #$5A +801D- 20 D2 7C JSR $7CD2 +8020- A0 FF LDY #$FF +8022- 20 03 0F JSR $0F03 +8025- A0 00 LDY #$00 +8027- 20 9E 80 JSR $809E +802A- C8 INY +802B- 90 FA BCC $8027 +802D- A4 C0 LDY $C0 +802F- 84 C0 STY $C0 +8031- 20 F6 7E JSR $7EF6 +8034- 48 PHA +8035- A4 C0 LDY $C0 +8037- 20 06 0F JSR $0F06 +803A- 68 PLA +803B- 20 51 E0 JSR $E051 +803E- 01 50 ORA ($50,X) +8040- 80 02 BRA $8044 +8042- 58 CLI +8043- 80 03 BRA $8048 +8045- D8 CLD +8046- 80 04 BRA $804C +8048- DF ??? +8049- 80 05 BRA $8050 +804B- 7F ??? +804C- 80 06 BRA $8054 +804E- 31 80 AND ($80),Y +8050- C8 INY +8051- 20 06 0F JSR $0F06 +8054- 90 D9 BCC $802F +8056- B0 03 BCS $805B +8058- 88 DEY +8059- 10 D4 BPL $802F +805B- 20 66 80 JSR $8066 +805E- B0 1E BCS $807E +8060- A4 D9 LDY $D9 +8062- 88 DEY +8063- 20 30 7C JSR $7C30 +8066- AD 13 D0 LDA $D013 +8069- C9 D4 CMP #$D4 +806B- AD 14 D0 LDA $D014 +806E- E9 DE SBC #$DE +8070- 90 0C BCC $807E +8072- A9 00 LDA #$00 +8074- 8D 00 96 STA $9600 +8077- A4 D9 LDY $D9 +8079- 88 DEY +807A- 20 65 7B JSR $7B65 +807D- 38 SEC +807E- 60 RTS +807F- BD 00 97 LDA $9700,X +8082- 48 PHA +8083- 29 06 AND #$06 +8085- 18 CLC +8086- 69 02 ADC #$02 +8088- C9 06 CMP #$06 +808A- D0 02 BNE $808E +808C- A9 00 LDA #$00 +808E- 85 D3 STA $D3 +8090- 68 PLA +8091- 29 F9 AND #$F9 +8093- 05 D3 ORA $D3 +8095- 9D 00 97 STA $9700,X +8098- 20 9E 80 JSR $809E +809B- 4C 31 80 JMP $8031 +809E- 8C D3 80 STY $80D3 +80A1- 20 39 81 JSR $8139 +80A4- B0 2C BCS $80D2 +80A6- BD 00 97 LDA $9700,X +80A9- 4A LSR +80AA- 29 03 AND #$03 +80AC- A8 TAY +80AD- B9 D5 80 LDA $80D5,Y +80B0- 8D C7 80 STA $80C7 +80B3- A4 C2 LDY $C2 +80B5- 8C C0 80 STY $80C0 +80B8- 8C C6 80 STY $80C6 +80BB- 20 00 E0 JSR $E000 +80BE- 0F ??? +80BF- 1E 00 02 ASL $0200,X +80C2- 08 PHP +80C3- 06 D8 ASL $D8 +80C5- 00 BRK +80C6- 00 BRK +80C7- 20 0D 00 JSR $000D +80CA- A2 08 LDX #$08 +80CC- A4 C2 LDY $C2 +80CE- 20 71 7E JSR $7E71 +80D1- 18 CLC +80D2- A0 00 LDY #$00 +80D4- 60 RTS +80D5- 4C 43 52 JMP $5243 +80D8- 18 CLC +80D9- 20 72 7D JSR $7D72 +80DC- 4C 11 80 JMP $8011 +80DF- BD 00 97 LDA $9700,X +80E2- 49 01 EOR #$01 +80E4- 9D 00 97 STA $9700,X +80E7- A5 C0 LDA $C0 +80E9- 48 PHA +80EA- 38 SEC +80EB- 84 C0 STY $C0 +80ED- 08 PHP +80EE- 20 20 81 JSR $8120 +80F1- 28 PLP +80F2- B0 03 BCS $80F7 +80F4- 20 46 81 JSR $8146 +80F7- A4 C2 LDY $C2 +80F9- 8C 04 81 STY $8104 +80FC- 8C 09 81 STY $8109 +80FF- 20 00 E0 JSR $E000 +8102- 0F ??? +8103- 08 PHP +8104- 00 BRK +8105- 02 ??? +8106- 10 0F BPL $8117 +8108- 1E 00 02 ASL $0200,X +810B- 10 00 BPL $810D +810D- A4 C0 LDY $C0 +810F- 20 9E 80 JSR $809E +8112- A4 C0 LDY $C0 +8114- C8 INY +8115- 20 06 0F JSR $0F06 +8118- 90 D1 BCC $80EB +811A- 68 PLA +811B- 85 C0 STA $C0 +811D- 4C 31 80 JMP $8031 +8120- A4 C0 LDY $C0 +8122- 20 39 81 JSR $8139 +8125- 8D 33 81 STA $8133 +8128- 48 PHA +8129- A5 D4 LDA $D4 +812B- 8D 35 81 STA $8135 +812E- 20 00 E0 JSR $E000 +8131- 0F ??? +8132- 0B ??? +8133- 00 BRK +8134- 12 00 ORA ($00) +8136- 00 BRK +8137- 68 PLA +8138- 60 RTS +8139- 20 06 0F JSR $0F06 +813C- B0 07 BCS $8145 +813E- A5 D3 LDA $D3 +8140- 18 CLC +8141- 69 4E ADC #$4E +8143- 85 C2 STA $C2 +8145- 60 RTS +8146- A4 C0 LDY $C0 +8148- 4C 03 0F JMP $0F03 +814B- 20 72 E0 JSR $E072 +814E- 20 00 E0 JSR $E000 +8151- 05 06 ORA $06 +8153- 8C 00 1A STY $1A00 +8156- 4E 4F 57 LSR $574F +8159- 20 54 59 JSR $5954 +815C- 50 45 BVC $81A3 +815E- 20 49 4E JSR $4E49 +8161- 20 59 4F JSR $4F59 +8164- 55 52 EOR $52,X +8166- 0D 45 56 ORA $5645 +8169- 45 4E EOR $4E +816B- 54 ??? +816C- 53 ??? +816D- 20 41 4E JSR $4E41 +8170- 44 ??? +8171- 20 52 45 JSR $4552 +8174- 4D 49 4E EOR $4E49 +8177- 44 ??? +8178- 45 52 EOR $52 +817A- 53 ??? +817B- 3A DEC +817C- 0D 00 60 ORA $6000 +817F- 8A TXA +8180- 0A ASL +8181- 0A ASL +8182- 8D 1A 82 STA $821A +8185- 18 CLC +8186- 8A TXA +8187- 6D 0C D0 ADC $D00C +818A- C9 07 CMP #$07 +818C- 90 02 BCC $8190 +818E- E9 07 SBC #$07 +8190- A8 TAY +8191- 8A TXA +8192- 18 CLC +8193- 6D 0A D0 ADC $D00A +8196- CD 0D D0 CMP $D00D +8199- 90 07 BCC $81A2 +819B- F0 05 BEQ $81A2 +819D- ED 0D D0 SBC $D00D +81A0- EA NOP +81A1- EA NOP +81A2- 85 D9 STA $D9 +81A4- 20 7F 7C JSR $7C7F +81A7- 20 5E 7C JSR $7C5E +81AA- 20 C5 7E JSR $7EC5 +81AD- 28 PLP +81AE- 82 ??? +81AF- 58 CLI +81B0- FF ??? +81B1- 4C 82 EE JMP $EE82 +81B4- 64 01 STZ $01 +81B6- 01 20 ORA ($20,X) +81B8- 4B ??? +81B9- 81 20 STA ($20,X) +81BB- 00 BRK +81BC- E0 05 CPX #$05 +81BE- 06 8C ASL $8C +81C0- 00 BRK +81C1- 3A DEC +81C2- 09 4A ORA #$4A +81C4- 7A PLY +81C5- 20 09 54 JSR $5409 +81C8- 7A PLY +81C9- 0D 00 A2 ORA $A200 +81CC- 02 ??? +81CD- A0 47 LDY #$47 +81CF- A9 29 LDA #$29 +81D1- 20 D2 7C JSR $7CD2 +81D4- 20 3F 7E JSR $7E3F +81D7- A0 03 LDY #$03 +81D9- 84 C0 STY $C0 +81DB- 20 15 82 JSR $8215 +81DE- 20 28 82 JSR $8228 +81E1- 20 4C 82 JSR $824C +81E4- A4 C0 LDY $C0 +81E6- 88 DEY +81E7- D0 F0 BNE $81D9 +81E9- 84 C0 STY $C0 +81EB- 20 15 82 JSR $8215 +81EE- 20 F6 7E JSR $7EF6 +81F1- 20 51 E0 JSR $E051 +81F4- 01 FE ORA ($FE,X) +81F6- 81 02 STA ($02,X) +81F8- 00 BRK +81F9- 82 ??? +81FA- 00 BRK +81FB- 4C EE 81 JMP $81EE +81FE- 18 CLC +81FF- 24 38 BIT $38 +8201- 08 PHP +8202- 20 17 82 JSR $8217 +8205- 28 PLP +8206- A4 C0 LDY $C0 +8208- 90 04 BCC $820E +820A- 88 DEY +820B- 10 DC BPL $81E9 +820D- 60 RTS +820E- C8 INY +820F- C0 04 CPY #$04 +8211- 90 D6 BCC $81E9 +8213- 18 CLC +8214- 60 RTS +8215- 18 CLC +8216- 24 38 BIT $38 +8218- 08 PHP +8219- A9 00 LDA #$00 +821B- 18 CLC +821C- 65 C0 ADC $C0 +821E- A8 TAY +821F- 28 PLP +8220- B0 03 BCS $8225 +8222- 4C 4D 7B JMP $7B4D +8225- 4C 65 7B JMP $7B65 +8228- 20 44 82 JSR $8244 +822B- 8D 33 82 STA $8233 +822E- 20 00 E0 JSR $E000 +8231- 0F ??? +8232- 03 ??? +8233- 00 BRK +8234- 22 ??? +8235- 07 ??? +8236- 16 01 ASL $01,X +8238- 12 01 ORA ($01) +823A- 00 BRK +823B- A0 00 LDY #$00 +823D- A9 96 LDA #$96 +823F- 84 D5 STY $D5 +8241- 85 D6 STA $D6 +8243- 60 RTS +8244- A5 C0 LDA $C0 +8246- 0A ASL +8247- 0A ASL +8248- 0A ASL +8249- 69 4C ADC #$4C +824B- 60 RTS +824C- 20 44 82 JSR $8244 +824F- A2 15 LDX #$15 +8251- A0 00 LDY #$00 +8253- 8E 05 8A STX $8A05 +8256- A2 00 LDX #$00 +8258- 8E 06 8A STX $8A06 +825B- E8 INX +825C- 8E 0A 8A STX $8A0A +825F- 8C 04 8A STY $8A04 +8262- 8D 07 8A STA $8A07 +8265- A4 D5 LDY $D5 +8267- A5 D6 LDA $D6 +8269- 8C 0C 8A STY $8A0C +826C- 8D 0D 8A STA $8A0D +826F- 4C 00 8A JMP $8A00 +8272- AD 0E D0 LDA $D00E +8275- 49 03 EOR #$03 +8277- F0 1E BEQ $8297 +8279- 20 C5 7E JSR $7EC5 +827C- 5B ??? +827D- 83 ??? +827E- 64 83 STZ $83 +8280- 80 83 BRA $8205 +8282- EE 3E 01 INC $013E +8285- 01 20 ORA ($20,X) +8287- 98 TYA +8288- 82 ??? +8289- A0 1F LDY #$1F +828B- 20 DE 82 JSR $82DE +828E- B0 07 BCS $8297 +8290- A0 20 LDY #$20 +8292- 20 DE 82 JSR $82DE +8295- B0 F2 BCS $8289 +8297- 60 RTS +8298- 20 72 E0 JSR $E072 +829B- A0 38 LDY #$38 +829D- A9 1F LDA #$1F +829F- 20 C7 82 JSR $82C7 +82A2- A0 67 LDY #$67 +82A4- A9 20 LDA #$20 +82A6- 20 C7 82 JSR $82C7 +82A9- 20 00 E0 JSR $E000 +82AC- 05 08 ORA $08 +82AE- 06 8C ASL $8C +82B0- 00 BRK +82B1- 25 4C AND $4C +82B3- 49 4E EOR #$4E +82B5- 45 20 EOR $20 +82B7- 31 0D AND ($0D),Y +82B9- 07 ??? +82BA- 0C 5B 4C TSB $4C5B +82BD- 49 4E EOR #$4E +82BF- 45 20 EOR $20 +82C1- 32 0D AND ($0D) +82C3- 00 BRK +82C4- 4C 48 7D JMP $7D48 +82C7- 85 C0 STA $C0 +82C9- A2 02 LDX #$02 +82CB- A9 0F LDA #$0F +82CD- 20 D2 7C JSR $7CD2 +82D0- A4 C0 LDY $C0 +82D2- 20 4D 7B JSR $7B4D +82D5- 20 28 83 JSR $8328 +82D8- 20 5B 83 JSR $835B +82DB- 4C 80 83 JMP $8380 +82DE- 84 C0 STY $C0 +82E0- A4 C0 LDY $C0 +82E2- 20 4D 7B JSR $7B4D +82E5- 20 F6 7E JSR $7EF6 +82E8- 48 PHA +82E9- A4 C0 LDY $C0 +82EB- 20 65 7B JSR $7B65 +82EE- 68 PLA +82EF- 20 51 E0 JSR $E051 +82F2- 01 11 ORA ($11,X) +82F4- 83 ??? +82F5- 02 ??? +82F6- 13 ??? +82F7- 83 ??? +82F8- 03 ??? +82F9- 02 ??? +82FA- 83 ??? +82FB- 06 15 ASL $15 +82FD- 83 ??? +82FE- 00 BRK +82FF- 4C E5 82 JMP $82E5 +8302- A5 C0 LDA $C0 +8304- 48 PHA +8305- 38 SEC +8306- 20 72 7D JSR $7D72 +8309- 20 98 82 JSR $8298 +830C- 68 PLA +830D- A8 TAY +830E- 4C DE 82 JMP $82DE +8311- 18 CLC +8312- 60 RTS +8313- 38 SEC +8314- 60 RTS +8315- AE 00 96 LDX $9600 +8318- E8 INX +8319- E0 83 CPX #$83 +831B- D0 02 BNE $831F +831D- A2 80 LDX #$80 +831F- 8E 00 96 STX $9600 +8322- 20 28 83 JSR $8328 +8325- 4C E5 82 JMP $82E5 +8328- 20 45 83 JSR $8345 +832B- 38 SEC +832C- E9 0E SBC #$0E +832E- A8 TAY +832F- A2 02 LDX #$02 +8331- AD 00 96 LDA $9600 +8334- C9 81 CMP #$81 +8336- F0 07 BEQ $833F +8338- C9 82 CMP #$82 +833A- F0 06 BEQ $8342 +833C- 4C 71 7E JMP $7E71 +833F- 4C 8D 7E JMP $7E8D +8342- 4C A9 7E JMP $7EA9 +8345- A4 C0 LDY $C0 +8347- B9 36 83 LDA $8336,Y +834A- 48 PHA +834B- B9 38 83 LDA $8338,Y +834E- AA TAX +834F- B9 3A 83 LDA $833A,Y +8352- A8 TAY +8353- 68 PLA +8354- 60 RTS +8355- 3C 6B D6 BIT $D66B,X +8358- AC 01 03 LDY $0301 +835B- 20 45 83 JSR $8345 +835E- 20 2B 82 JSR $822B +8361- E6 D5 INC $D5 +8363- 60 RTS +8364- A9 03 LDA #$03 +8366- 8D 0A 8A STA $8A0A +8369- A4 D5 LDY $D5 +836B- A5 D6 LDA $D6 +836D- 8C 0C 8A STY $8A0C +8370- 8D 0D 8A STA $8A0D +8373- 20 45 83 JSR $8345 +8376- A9 60 LDA #$60 +8378- 20 09 0F JSR $0F09 +837B- A9 85 LDA #$85 +837D- 4C 15 8A JMP $8A15 +8380- 20 45 83 JSR $8345 +8383- A2 8C LDX #$8C +8385- A0 02 LDY #$02 +8387- 4C 53 82 JMP $8253 +838A- 20 C5 7E JSR $7EC5 +838D- 06 40 ASL $40 +838F- 58 CLI +8390- FF ??? +8391- 09 40 ORA #$40 +8393- 00 BRK +8394- 80 02 BRA $8398 +8396- 00 BRK +8397- 20 3F 7E JSR $7E3F +839A- A0 21 LDY #$21 +839C- 20 4D 7B JSR $7B4D +839F- A0 00 LDY #$00 +83A1- 84 DA STY $DA +83A3- 20 F6 7E JSR $7EF6 +83A6- 20 51 E0 JSR $E051 +83A9- 01 B3 ORA ($B3,X) +83AB- 83 ??? +83AC- 02 ??? +83AD- B5 83 LDA $83,X +83AF- 00 BRK +83B0- 4C A3 83 JMP $83A3 +83B3- 18 CLC +83B4- 24 38 BIT $38 +83B6- 08 PHP +83B7- A0 21 LDY #$21 +83B9- 20 65 7B JSR $7B65 +83BC- 28 PLP +83BD- 60 RTS diff --git a/PSC Source Disk 3 - Calendar (v12)/PCAL.txt b/PSC Source Disk 3 - Calendar (v12)/PCAL.txt new file mode 100644 index 0000000..236a716 --- /dev/null +++ b/PSC Source Disk 3 - Calendar (v12)/PCAL.txt @@ -0,0 +1,1106 @@ +0F00- 4C 0C 0F JMP $0F0C +0F03- 4C 14 14 JMP $1414 +0F06- 4C 61 14 JMP $1461 +0F09- 4C B1 14 JMP $14B1 +0F0C- BA TSX +0F0D- 8E 5D 0F STX $0F5D +0F10- 20 6A 0F JSR $0F6A +0F13- A9 80 LDA #$80 +0F15- AE F8 95 LDX $95F8 +0F18- F0 02 BEQ $0F1C +0F1A- A9 20 LDA #$20 +0F1C- 85 74 STA $74 +0F1E- BD 34 16 LDA $1634,X +0F21- 8D 2B 16 STA $162B +0F24- A2 03 LDX #$03 +0F26- AD F8 95 LDA $95F8 +0F29- F0 0B BEQ $0F36 +0F2B- BD 5A D0 LDA $D05A,X +0F2E- AC 59 D0 LDY $D059 +0F31- C8 INY +0F32- F0 02 BEQ $0F36 +0F34- A9 00 LDA #$00 +0F36- 95 77 STA $77,X +0F38- CA DEX +0F39- 10 EB BPL $0F26 +0F3B- 20 F2 14 JSR $14F2 +0F3E- A9 1C LDA #$1C +0F40- 20 AF 0F JSR $0FAF +0F43- A2 33 LDX #$33 +0F45- A0 12 LDY #$12 +0F47- A9 80 LDA #$80 +0F49- 20 CA 0F JSR $0FCA +0F4C- 20 F8 0F JSR $0FF8 +0F4F- 20 64 10 JSR $1064 +0F52- AD 15 18 LDA $1815 +0F55- F0 05 BEQ $0F5C +0F57- CE 15 18 DEC $1815 +0F5A- D0 DF BNE $0F3B +0F5C- A2 00 LDX #$00 +0F5E- 9A TXS +0F5F- 20 12 8A JSR $8A12 +0F62- A9 00 LDA #$00 +0F64- 8D 0E 8A STA $8A0E +0F67- 8D 15 18 STA $1815 +0F6A- 2C 8B C0 BIT $C08B rw:LCBANK1 +0F6D- 2C 8B C0 BIT $C08B rw:LCBANK1 +0F70- A2 00 LDX #$00 +0F72- A0 00 LDY #$00 +0F74- 84 D3 STY $D3 +0F76- A9 40 LDA #$40 +0F78- 84 D5 STY $D5 +0F7A- 85 D6 STA $D6 +0F7C- BD 9C 0F LDA $0F9C,X +0F7F- F0 14 BEQ $0F95 +0F81- 85 D4 STA $D4 +0F83- B1 D3 LDA ($D3),Y +0F85- 48 PHA +0F86- B1 D5 LDA ($D5),Y +0F88- 91 D3 STA ($D3),Y +0F8A- 68 PLA +0F8B- 91 D5 STA ($D5),Y +0F8D- C8 INY +0F8E- D0 F3 BNE $0F83 +0F90- E6 D6 INC $D6 +0F92- E8 INX +0F93- D0 E7 BNE $0F7C +0F95- 2C 83 C0 BIT $C083 rw:LCBANK2 +0F98- 2C 83 C0 BIT $C083 rw:LCBANK2 +0F9B- 60 RTS +0F9C- D0 D1 BNE $0F6F +0F9E- D2 D3 CMP ($D3) +0FA0- D4 ??? +0FA1- D5 D6 CMP $D6,X +0FA3- D7 ??? +0FA4- D8 CLD +0FA5- D9 DA DB CMP $DBDA,Y +0FA8- DC ??? +0FA9- DD DE DF CMP $DFDE,X +0FAC- 98 TYA +0FAD- 99 00 AA STA $AA00,Y +0FB0- F0 15 BEQ $0FC7 +0FB2- 48 PHA +0FB3- A2 0C LDX #$0C +0FB5- C9 0C CMP #$0C +0FB7- B0 01 BCS $0FBA +0FB9- AA TAX +0FBA- 86 D3 STX $D3 +0FBC- A0 01 LDY #$01 +0FBE- 20 03 18 JSR $1803 +0FC1- 68 PLA +0FC2- 38 SEC +0FC3- E5 D3 SBC $D3 +0FC5- D0 EB BNE $0FB2 +0FC7- 4C FB 14 JMP $14FB +0FCA- 8E DA 0F STX $0FDA +0FCD- 8C DB 0F STY $0FDB +0FD0- 85 76 STA $76 +0FD2- A9 00 LDA #$00 +0FD4- 85 75 STA $75 +0FD6- 20 FB 14 JSR $14FB +0FD9- 20 FF FF JSR $FFFF +0FDC- A5 76 LDA $76 +0FDE- 38 SEC +0FDF- E5 75 SBC $75 +0FE1- C5 74 CMP $74 +0FE3- 90 02 BCC $0FE7 +0FE5- A5 74 LDA $74 +0FE7- 20 57 16 JSR $1657 +0FEA- A5 75 LDA $75 +0FEC- 18 CLC +0FED- 65 74 ADC $74 +0FEF- C5 76 CMP $76 +0FF1- 90 E1 BCC $0FD4 +0FF3- A9 00 LDA #$00 +0FF5- 85 75 STA $75 +0FF7- 60 RTS +0FF8- AD 00 D0 LDA $D000 +0FFB- F0 03 BEQ $1000 +0FFD- 4C 37 13 JMP $1337 +1000- 18 CLC +1001- AD 0D D0 LDA $D00D +1004- 6D 0C D0 ADC $D00C +1007- A0 FC LDY #$FC +1009- C8 INY +100A- 38 SEC +100B- E9 07 SBC #$07 +100D- F0 02 BEQ $1011 +100F- B0 F8 BCS $1009 +1011- B9 2A 10 LDA $102A,Y +1014- 48 PHA +1015- 18 CLC +1016- 69 10 ADC #$10 +1018- 20 AF 0F JSR $0FAF +101B- 20 2D 10 JSR $102D +101E- A9 18 LDA #$18 +1020- 20 57 16 JSR $1657 +1023- 20 0F 11 JSR $110F +1026- 68 PLA +1027- 4C AF 0F JMP $0FAF +102A- 5A PHY +102B- 2D 00 A5 AND $A500 +102E- 79 85 73 ADC $7385,Y +1031- 20 00 E0 JSR $E000 +1034- 06 48 ASL $48 +1036- 00 BRK +1037- 00 BRK +1038- 05 08 ORA $08 +103A- 53 ??? +103B- 55 4E EOR $4E,X +103D- 0E 15 87 ASL $8715 +1040- 4D 4F 4E EOR $4E4F +1043- 0E 15 87 ASL $8715 +1046- 54 ??? +1047- 55 45 EOR $45,X +1049- 0E 15 87 ASL $8715 +104C- 57 ??? +104D- 45 44 EOR $44 +104F- 0E 15 87 ASL $8715 +1052- 54 ??? +1053- 48 PHA +1054- 55 0E EOR $0E,X +1056- 15 87 ORA $87,X +1058- 46 52 LSR $52 +105A- 49 0E EOR #$0E +105C- 15 87 ORA $87,X +105E- 53 ??? +105F- 41 54 EOR ($54,X) +1061- 0E 00 60 ASL $6000 +1064- A5 7A LDA $7A +1066- 85 73 STA $73 +1068- A9 19 LDA #$19 +106A- 20 AF 0F JSR $0FAF +106D- A0 21 LDY #$21 +106F- 20 03 7B JSR $7B03 +1072- 20 00 E0 JSR $E000 +1075- 05 08 ORA $08 +1077- 06 E0 ASL $E0 +1079- 01 00 ORA ($00,X) +107B- 09 00 ORA #$00 +107D- 96 0D STX $0D,Y +107F- 00 BRK +1080- A9 1E LDA #$1E +1082- 4C 57 16 JMP $1657 +1085- AD 01 D0 LDA $D001 +1088- 49 03 EOR #$03 +108A- F0 63 BEQ $10EF +108C- AD 03 D0 LDA $D003 +108F- A2 00 LDX #$00 +1091- C9 05 CMP #$05 +1093- 90 03 BCC $1098 +1095- E9 05 SBC #$05 +1097- E8 INX +1098- BC F5 10 LDY $10F5,X +109B- 8C DC 10 STY $10DC +109E- BC F7 10 LDY $10F7,X +10A1- 8C E0 10 STY $10E0 +10A4- BC F9 10 LDY $10F9,X +10A7- 8C C7 10 STY $10C7 +10AA- AA TAX +10AB- BD F0 10 LDA $10F0,X +10AE- 8D DB 10 STA $10DB +10B1- BC FB 10 LDY $10FB,X +10B4- BD 00 11 LDA $1100,X +10B7- 8C DE 10 STY $10DE +10BA- 8D DF 10 STA $10DF +10BD- BD 05 11 LDA $1105,X +10C0- 8D E2 10 STA $10E2 +10C3- BD 0A 11 LDA $110A,X +10C6- 18 CLC +10C7- EA NOP +10C8- 69 00 ADC #$00 +10CA- A8 TAY +10CB- A9 00 LDA #$00 +10CD- 99 00 96 STA $9600,Y +10D0- A9 40 LDA #$40 +10D2- 88 DEY +10D3- 10 F8 BPL $10CD +10D5- 8E E9 10 STX $10E9 +10D8- 20 00 E0 JSR $E000 +10DB- 03 ??? +10DC- 07 ??? +10DD- 06 00 ASL $00 +10DF- 00 BRK +10E0- 00 BRK +10E1- 12 00 ORA ($00) +10E3- 09 00 ORA #$00 +10E5- 96 0D STX $0D,Y +10E7- 00 BRK +10E8- A2 00 LDX #$00 +10EA- CA DEX +10EB- E0 01 CPX #$01 +10ED- F0 BC BEQ $10AB +10EF- 60 RTS +10F0- 03 ??? +10F1- 04 03 TSB $03 +10F3- 05 05 ORA $05 +10F5- 07 ??? +10F6- 08 PHP +10F7- 1A INC +10F8- 00 BRK +10F9- EA NOP +10FA- 4A LSR +10FB- 00 BRK +10FC- BE 00 E0 LDX $E000,Y +10FF- E0 00 CPX #$00 +1101- 03 ??? +1102- 00 BRK +1103- 01 01 ORA ($01,X) +1105- 00 BRK +1106- 00 BRK +1107- 00 BRK +1108- 56 00 LSR $00,X +110A- 01 01 ORA ($01,X) +110C- 01 06 ORA ($06,X) +110E- 0A ASL +110F- A9 01 LDA #$01 +1111- 85 7D STA $7D +1113- A2 31 LDX #$31 +1115- A0 11 LDY #$11 +1117- A5 7D LDA $7D +1119- 18 CLC +111A- 69 06 ADC #$06 +111C- CD 0D D0 CMP $D00D +111F- A9 5A LDA #$5A +1121- 69 00 ADC #$00 +1123- 48 PHA +1124- 20 CA 0F JSR $0FCA +1127- A5 D9 LDA $D9 +1129- 85 7D STA $7D +112B- 68 PLA +112C- 49 5A EOR #$5A +112E- F0 E3 BEQ $1113 +1130- 60 RTS +1131- A5 7D LDA $7D +1133- 85 D9 STA $D9 +1135- AD 0C D0 LDA $D00C +1138- A4 D9 LDY $D9 +113A- 88 DEY +113B- F0 02 BEQ $113F +113D- A9 00 LDA #$00 +113F- 85 70 STA $70 +1141- A6 70 LDX $70 +1143- BC 57 11 LDY $1157,X +1146- BD 5E 11 LDA $115E,X +1149- 20 65 11 JSR $1165 +114C- E6 D9 INC $D9 +114E- E6 70 INC $70 +1150- A5 70 LDA $70 +1152- 49 07 EOR #$07 +1154- D0 EB BNE $1141 +1156- 60 RTS +1157- 05 8C ORA $8C +1159- 13 ??? +115A- 9A TXS +115B- 21 A8 AND ($A8,X) +115D- 2F ??? +115E- 00 BRK +115F- 00 BRK +1160- 01 01 ORA ($01,X) +1162- 02 ??? +1163- 02 ??? +1164- 03 ??? +1165- 84 D0 STY $D0 +1167- 85 D1 STA $D1 +1169- A0 00 LDY #$00 +116B- 84 D2 STY $D2 +116D- 20 9D 11 JSR $119D +1170- A4 D9 LDY $D9 +1172- CC 0D D0 CPY $D00D +1175- 90 03 BCC $117A +1177- F0 01 BEQ $117A +1179- 60 RTS +117A- 88 DEY +117B- 20 09 7B JSR $7B09 +117E- A0 FF LDY #$FF +1180- 20 14 14 JSR $1414 +1183- A2 00 LDX #$00 +1185- 20 A8 11 JSR $11A8 +1188- E8 INX +1189- 20 A8 11 JSR $11A8 +118C- A2 87 LDX #$87 +118E- 20 A8 11 JSR $11A8 +1191- E8 INX +1192- 20 A8 11 JSR $11A8 +1195- A0 5A LDY #$5A +1197- 20 9D 11 JSR $119D +119A- 4C 16 18 JMP $1816 +119D- A2 00 LDX #$00 +119F- 20 B3 11 JSR $11B3 +11A2- E8 INX +11A3- E0 89 CPX #$89 +11A5- 90 F8 BCC $119F +11A7- 60 RTS +11A8- A0 00 LDY #$00 +11AA- 20 B3 11 JSR $11B3 +11AD- C8 INY +11AE- C0 5A CPY #$5A +11B0- 90 F8 BCC $11AA +11B2- 60 RTS +11B3- 8E CA 11 STX $11CA +11B6- 8C CC 11 STY $11CC +11B9- 8A TXA +11BA- 18 CLC +11BB- 65 D0 ADC $D0 +11BD- AA TAX +11BE- A5 D1 LDA $D1 +11C0- 69 00 ADC #$00 +11C2- A8 TAY +11C3- AD CC 11 LDA $11CC +11C6- 20 CE 11 JSR $11CE +11C9- A2 00 LDX #$00 +11CB- A0 00 LDY #$00 +11CD- 60 RTS +11CE- 85 60 STA $60 +11D0- 38 SEC +11D1- E5 75 SBC $75 +11D3- C5 74 CMP $74 +11D5- B0 5B BCS $1232 +11D7- 8E 2F 12 STX $122F +11DA- 8C 31 12 STY $1231 +11DD- 4A LSR +11DE- 48 PHA +11DF- A9 00 LDA #$00 +11E1- 6A ROR +11E2- 85 D3 STA $D3 +11E4- 68 PLA +11E5- 69 20 ADC #$20 +11E7- 85 D4 STA $D4 +11E9- 86 D6 STX $D6 +11EB- 8A TXA +11EC- 29 07 AND #$07 +11EE- AA TAX +11EF- BD 13 17 LDA $1713,X +11F2- 85 D5 STA $D5 +11F4- 98 TYA +11F5- 4A LSR +11F6- 66 D6 ROR $D6 +11F8- 4A LSR +11F9- A5 D6 LDA $D6 +11FB- 6A ROR +11FC- 4A LSR +11FD- 85 D6 STA $D6 +11FF- A4 79 LDY $79 +1201- B9 2B 16 LDA $162B,Y +1204- 85 58 STA $58 +1206- 10 0A BPL $1212 +1208- A5 60 LDA $60 +120A- 29 0F AND #$0F +120C- AA TAX +120D- BC 37 16 LDY $1637,X +1210- 10 EF BPL $1201 +1212- A4 D6 LDY $D6 +1214- 46 58 LSR $58 +1216- 90 06 BCC $121E +1218- A5 D5 LDA $D5 +121A- 11 D3 ORA ($D3),Y +121C- 91 D3 STA ($D3),Y +121E- A5 D4 LDA $D4 +1220- 18 CLC +1221- 69 10 ADC #$10 +1223- 85 D4 STA $D4 +1225- C9 60 CMP #$60 +1227- B0 05 BCS $122E +1229- AD F8 95 LDA $95F8 +122C- D0 E6 BNE $1214 +122E- A2 00 LDX #$00 +1230- A0 00 LDY #$00 +1232- 60 RTS +1233- A5 78 LDA $78 +1235- 85 73 STA $73 +1237- 20 85 10 JSR $1085 +123A- A5 77 LDA $77 +123C- 85 73 STA $73 +123E- AD 0E D0 LDA $D00E +1241- C9 03 CMP #$03 +1243- F0 69 BEQ $12AE +1245- 20 E9 14 JSR $14E9 +1248- A2 00 LDX #$00 +124A- A0 1F LDY #$1F +124C- 20 59 12 JSR $1259 +124F- A2 01 LDX #$01 +1251- A0 20 LDY #$20 +1253- 20 59 12 JSR $1259 +1256- 4C F2 14 JMP $14F2 +1259- A9 01 LDA #$01 +125B- 8D CE 12 STA $12CE +125E- BD E2 12 LDA $12E2,X +1261- 8D CC 12 STA $12CC +1264- BD E4 12 LDA $12E4,X +1267- 8D 80 12 STA $1280 +126A- BD E6 12 LDA $12E6,X +126D- 8D BE 12 STA $12BE +1270- 20 03 7B JSR $7B03 +1273- A0 00 LDY #$00 +1275- 84 D5 STY $D5 +1277- B9 01 96 LDA $9601,Y +127A- F0 0E BEQ $128A +127C- AA TAX +127D- BD 1B 60 LDA $601B,X +1280- 0A ASL +1281- C5 D5 CMP $D5 +1283- 90 02 BCC $1287 +1285- 85 D5 STA $D5 +1287- C8 INY +1288- D0 ED BNE $1277 +128A- 46 D5 LSR $D5 +128C- AD BE 12 LDA $12BE +128F- 38 SEC +1290- E5 D5 SBC $D5 +1292- 8D BE 12 STA $12BE +1295- AD 00 96 LDA $9600 +1298- 0A ASL +1299- AA TAX +129A- BD E8 12 LDA $12E8,X +129D- 85 D5 STA $D5 +129F- BD E9 12 LDA $12E9,X +12A2- 8D B0 12 STA $12B0 +12A5- A6 D5 LDX $D5 +12A7- E6 D5 INC $D5 +12A9- BD EE 12 LDA $12EE,X +12AC- 10 01 BPL $12AF +12AE- 60 RTS +12AF- 49 00 EOR #$00 +12B1- 8D CB 12 STA $12CB +12B4- A9 E0 LDA #$E0 +12B6- 18 CLC +12B7- 7D 07 13 ADC $1307,X +12BA- 8D D1 12 STA $12D1 +12BD- A9 00 LDA #$00 +12BF- 18 CLC +12C0- 7D 1F 13 ADC $131F,X +12C3- 8D D3 12 STA $12D3 +12C6- 20 00 E0 JSR $E000 +12C9- 12 03 ORA ($03) +12CB- 02 ??? +12CC- 08 PHP +12CD- 16 01 ASL $01,X +12CF- 05 06 ORA $06 +12D1- E0 01 CPX #$01 +12D3- 00 BRK +12D4- 09 01 ORA #$01 +12D6- 96 0D STX $0D,Y +12D8- 16 00 ASL $00,X +12DA- 00 BRK +12DB- 38 SEC +12DC- 6E CE 12 ROR $12CE +12DF- 4C A5 12 JMP $12A5 +12E2- 08 PHP +12E3- 07 ??? +12E4- 0A ASL +12E5- EA NOP +12E6- 28 PLP +12E7- 64 00 STZ $00 +12E9- 00 BRK +12EA- 00 BRK +12EB- 03 ??? +12EC- 10 00 BPL $12EE +12EE- 02 ??? +12EF- 02 ??? +12F0- 02 ??? +12F1- 02 ??? +12F2- 02 ??? +12F3- 02 ??? +12F4- 02 ??? +12F5- 02 ??? +12F6- 02 ??? +12F7- 02 ??? +12F8- 02 ??? +12F9- 02 ??? +12FA- 02 ??? +12FB- 02 ??? +12FC- 01 FF ORA ($FF,X) +12FE- 02 ??? +12FF- 01 02 ORA ($02,X) +1301- 01 02 ORA ($02,X) +1303- 01 02 ORA ($02,X) +1305- 01 FF ORA ($FF,X) +1307- 00 BRK +1308- 01 02 ORA ($02,X) +130A- 03 ??? +130B- 04 00 TSB $00 +130D- 01 03 ORA ($03,X) +130F- 04 00 TSB $00 +1311- 01 02 ORA ($02,X) +1313- 03 ??? +1314- 04 02 TSB $02 +1316- FF ??? +1317- 00 BRK +1318- 01 02 ORA ($02,X) +131A- 03 ??? +131B- 04 05 TSB $05 +131D- 06 07 ASL $07 +131F- 00 BRK +1320- 00 BRK +1321- 00 BRK +1322- 00 BRK +1323- 00 BRK +1324- 01 01 ORA ($01,X) +1326- 01 01 ORA ($01,X) +1328- 02 ??? +1329- 02 ??? +132A- 02 ??? +132B- 02 ??? +132C- 02 ??? +132D- 01 FF ORA ($FF,X) +132F- 00 BRK +1330- 01 02 ORA ($02,X) +1332- 03 ??? +1333- 04 05 TSB $05 +1335- 06 07 ASL $07 +1337- A9 0D LDA #$0D +1339- 20 AF 0F JSR $0FAF +133C- A9 00 LDA #$00 +133E- AE 0A D0 LDX $D00A +1341- AC 0C D0 LDY $D00C +1344- 85 72 STA $72 +1346- 86 D9 STX $D9 +1348- 84 70 STY $70 +134A- A2 79 LDX #$79 +134C- A0 13 LDY #$13 +134E- A5 72 LDA $72 +1350- C9 06 CMP #$06 +1352- A9 51 LDA #$51 +1354- 69 00 ADC #$00 +1356- 20 CA 0F JSR $0FCA +1359- A6 D9 LDX $D9 +135B- E8 INX +135C- EC 0D D0 CPX $D00D +135F- F0 04 BEQ $1365 +1361- 90 02 BCC $1365 +1363- A2 01 LDX #$01 +1365- A4 70 LDY $70 +1367- C8 INY +1368- C0 07 CPY #$07 +136A- 90 02 BCC $136E +136C- A0 00 LDY #$00 +136E- A5 72 LDA $72 +1370- 18 CLC +1371- 69 01 ADC #$01 +1373- C9 07 CMP #$07 +1375- 90 CD BCC $1344 +1377- 18 CLC +1378- 60 RTS +1379- A5 72 LDA $72 +137B- 0A ASL +137C- 0A ASL +137D- 48 PHA +137E- A4 70 LDY $70 +1380- 20 12 7B JSR $7B12 +1383- A2 BF LDX #$BF +1385- A0 03 LDY #$03 +1387- A9 00 LDA #$00 +1389- 20 CE 11 JSR $11CE +138C- A9 51 LDA #$51 +138E- 20 CE 11 JSR $11CE +1391- CA DEX +1392- D0 F3 BNE $1387 +1394- 88 DEY +1395- 10 F0 BPL $1387 +1397- 20 0F 7B JSR $7B0F +139A- A5 79 LDA $79 +139C- 85 73 STA $73 +139E- 20 00 E0 JSR $E000 +13A1- 08 PHP +13A2- 0A ASL +13A3- 19 06 04 ORA $0406,Y +13A6- 00 BRK +13A7- 09 09 ORA #$09 +13A9- 4A LSR +13AA- 7A PLY +13AB- 0D 15 32 ORA $3215 +13AE- 05 09 ORA $09 +13B0- 54 ??? +13B1- 7A PLY +13B2- 0D 06 FA ORA $FA06 +13B5- 00 BRK +13B6- 09 00 ORA #$00 +13B8- A5 7A LDA $7A +13BA- 85 73 STA $73 +13BC- 68 PLA +13BD- A8 TAY +13BE- 20 C1 13 JSR $13C1 +13C1- 20 C4 13 JSR $13C4 +13C4- 8C D6 13 STY $13D6 +13C7- 20 03 7B JSR $7B03 +13CA- 20 00 E0 JSR $E000 +13CD- 08 PHP +13CE- 0A ASL +13CF- 10 09 BPL $13DA +13D1- 00 BRK +13D2- 96 0D STX $0D,Y +13D4- 00 BRK +13D5- A0 00 LDY #$00 +13D7- C8 INY +13D8- 60 RTS +13D9- A4 D0 LDY $D0 +13DB- A5 D1 LDA $D1 +13DD- 8C F3 13 STY $13F3 +13E0- 8D F4 13 STA $13F4 +13E3- A4 D2 LDY $D2 +13E5- 8C F5 13 STY $13F5 +13E8- 20 0F 7B JSR $7B0F +13EB- A5 79 LDA $79 +13ED- 85 73 STA $73 +13EF- 20 00 E0 JSR $E000 +13F2- 06 00 ASL $00 +13F4- 00 BRK +13F5- 00 BRK +13F6- 16 00 ASL $00,X +13F8- 15 0A ORA $0A,X +13FA- 0A ASL +13FB- 06 0D ASL $0D +13FD- 08 PHP +13FE- 09 54 ORA #$54 +1400- 7A PLY +1401- 0D 00 A5 ORA $A500 +1404- 7A PLY +1405- 85 73 STA $73 +1407- A0 00 LDY #$00 +1409- 98 TYA +140A- 48 PHA +140B- 20 14 14 JSR $1414 +140E- 68 PLA +140F- A8 TAY +1410- C8 INY +1411- 90 F6 BCC $1409 +1413- 60 RTS +1414- C0 FF CPY #$FF +1416- F0 C1 BEQ $13D9 +1418- 20 61 14 JSR $1461 +141B- B0 3A BCS $1457 +141D- BD 00 97 LDA $9700,X +1420- 4E 0B 8A LSR $8A0B +1423- 4A LSR +1424- 2E 0B 8A ROL $8A0B +1427- 29 03 AND #$03 +1429- A8 TAY +142A- B9 58 14 LDA $1458,Y +142D- 8D 04 8A STA $8A04 +1430- B9 5B 14 LDA $145B,Y +1433- 18 CLC +1434- 65 D0 ADC $D0 +1436- 8D 05 8A STA $8A05 +1439- B9 5E 14 LDA $145E,Y +143C- 65 D1 ADC $D1 +143E- 8D 06 8A STA $8A06 +1441- A5 D3 LDA $D3 +1443- 65 D2 ADC $D2 +1445- 69 18 ADC #$18 +1447- 8D 07 8A STA $8A07 +144A- A2 7E LDX #$7E +144C- A0 00 LDY #$00 +144E- A9 85 LDA #$85 +1450- 20 B1 14 JSR $14B1 +1453- 20 00 8A JSR $8A00 +1456- 18 CLC +1457- 60 RTS +1458- 00 BRK +1459- 02 ??? +145A- 01 06 ORA ($06,X) +145C- 45 84 EOR $84 +145E- 00 BRK +145F- 00 BRK +1460- 00 BRK +1461- A2 00 LDX #$00 +1463- 86 D3 STX $D3 +1465- BD 00 97 LDA $9700,X +1468- 4A LSR +1469- A9 08 LDA #$08 +146B- 90 01 BCC $146E +146D- 0A ASL +146E- 85 D4 STA $D4 +1470- 8A TXA +1471- D9 A9 14 CMP $14A9,Y +1474- F0 0C BEQ $1482 +1476- A5 D3 LDA $D3 +1478- 65 D4 ADC $D4 +147A- 85 D3 STA $D3 +147C- 8A TXA +147D- 69 20 ADC #$20 +147F- AA TAX +1480- D0 E3 BNE $1465 +1482- 18 CLC +1483- A5 D3 LDA $D3 +1485- 65 D4 ADC $D4 +1487- C9 41 CMP #$41 +1489- 90 15 BCC $14A0 +148B- A5 D4 LDA $D4 +148D- C9 08 CMP #$08 +148F- F0 0F BEQ $14A0 +1491- 4A LSR +1492- 85 D4 STA $D4 +1494- 65 D3 ADC $D3 +1496- C9 41 CMP #$41 +1498- B0 06 BCS $14A0 +149A- 5E 00 97 LSR $9700,X +149D- 1E 00 97 ASL $9700,X +14A0- E8 INX +14A1- 86 D5 STX $D5 +14A3- A9 97 LDA #$97 +14A5- 85 D6 STA $D6 +14A7- CA DEX +14A8- 60 RTS +14A9- 00 BRK +14AA- 20 40 60 JSR $6040 +14AD- 80 A0 BRA $144F +14AF- C0 E0 CPY #$E0 +14B1- 8E D5 14 STX $14D5 +14B4- 8C D1 14 STY $14D1 +14B7- 20 15 8A JSR $8A15 +14BA- AD 04 8A LDA $8A04 +14BD- 48 PHA +14BE- A9 03 LDA #$03 +14C0- 8D 04 8A STA $8A04 +14C3- A4 D5 LDY $D5 +14C5- A5 D6 LDA $D6 +14C7- 8C 0C 8A STY $8A0C +14CA- 8D 0D 8A STA $8A0D +14CD- 20 00 8A JSR $8A00 +14D0- C9 00 CMP #$00 +14D2- D0 02 BNE $14D6 +14D4- C0 00 CPY #$00 +14D6- 90 0C BCC $14E4 +14D8- A0 FF LDY #$FF +14DA- C8 INY +14DB- B1 D5 LDA ($D5),Y +14DD- D0 FB BNE $14DA +14DF- 88 DEY +14E0- 91 D5 STA ($D5),Y +14E2- 10 E9 BPL $14CD +14E4- 68 PLA +14E5- 8D 04 8A STA $8A04 +14E8- 60 RTS +14E9- 20 0F 8A JSR $8A0F +14EC- 17 ??? +14ED- 15 29 ORA $29,X +14EF- 15 60 ORA $60,X +14F1- 60 RTS +14F2- 20 0F 8A JSR $8A0F +14F5- 17 ??? +14F6- 15 29 ORA $29,X +14F8- 15 85 ORA $85,X +14FA- 60 RTS +14FB- 20 0C 18 JSR $180C +14FE- A0 00 LDY #$00 +1500- A9 20 LDA #$20 +1502- A2 40 LDX #$40 +1504- 8D 0A 15 STA $150A +1507- 98 TYA +1508- 99 00 20 STA $2000,Y +150B- C8 INY +150C- D0 FA BNE $1508 +150E- EE 0A 15 INC $150A +1511- CA DEX +1512- D0 F4 BNE $1508 +1514- 85 7C STA $7C +1516- 60 RTS +1517- 98 TYA +1518- 49 FF EOR #$FF +151A- 8D F0 15 STA $15F0 +151D- A5 54 LDA $54 +151F- 18 CLC +1520- 65 50 ADC $50 +1522- 85 50 STA $50 +1524- 90 02 BCC $1528 +1526- E6 51 INC $51 +1528- 60 RTS +1529- A6 54 LDX $54 +152B- CA DEX +152C- 8A TXA +152D- 4A LSR +152E- 4A LSR +152F- 4A LSR +1530- AA TAX +1531- E8 INX +1532- 86 54 STX $54 +1534- 98 TYA +1535- 18 CLC +1536- 6D 0B 8A ADC $8A0B +1539- 38 SEC +153A- E5 75 SBC $75 +153C- C5 74 CMP $74 +153E- F0 02 BEQ $1542 +1540- B0 DB BCS $151D +1542- A5 7B LDA $7B +1544- 65 54 ADC $54 +1546- 85 7B STA $7B +1548- 90 10 BCC $155A +154A- E6 7C INC $7C +154C- A5 7C LDA $7C +154E- 49 04 EOR #$04 +1550- D0 08 BNE $155A +1552- 85 7C STA $7C +1554- 20 48 17 JSR $1748 +1557- 20 16 18 JSR $1816 +155A- A4 54 LDY $54 +155C- 88 DEY +155D- B1 50 LDA ($50),Y +155F- 99 E0 8D STA $8DE0,Y +1562- 88 DEY +1563- 10 F8 BPL $155D +1565- 20 1D 15 JSR $151D +1568- AD 0B 8A LDA $8A0B +156B- F0 29 BEQ $1596 +156D- A6 54 LDX $54 +156F- 8A TXA +1570- 0A ASL +1571- 85 57 STA $57 +1573- BD DF 8D LDA $8DDF,X +1576- 29 0F AND #$0F +1578- A8 TAY +1579- B9 47 16 LDA $1647,Y +157C- A4 57 LDY $57 +157E- 99 DF 8D STA $8DDF,Y +1581- BD DF 8D LDA $8DDF,X +1584- 4A LSR +1585- 4A LSR +1586- 4A LSR +1587- 4A LSR +1588- A8 TAY +1589- B9 47 16 LDA $1647,Y +158C- A4 57 LDY $57 +158E- 99 DE 8D STA $8DDE,Y +1591- CA DEX +1592- D0 DB BNE $156F +1594- 06 54 ASL $54 +1596- A5 52 LDA $52 +1598- 29 07 AND #$07 +159A- A8 TAY +159B- F0 18 BEQ $15B5 +159D- A6 54 LDX $54 +159F- A9 00 LDA #$00 +15A1- 9D E0 8D STA $8DE0,X +15A4- E6 54 INC $54 +15A6- A2 00 LDX #$00 +15A8- 18 CLC +15A9- 7E E0 8D ROR $8DE0,X +15AC- E8 INX +15AD- 8A TXA +15AE- 45 54 EOR $54 +15B0- D0 F7 BNE $15A9 +15B2- 88 DEY +15B3- D0 F1 BNE $15A6 +15B5- A5 53 LDA $53 +15B7- 85 57 STA $57 +15B9- A5 52 LDA $52 +15BB- 46 57 LSR $57 +15BD- 6A ROR +15BE- 46 57 LSR $57 +15C0- 6A ROR +15C1- 4A LSR +15C2- 85 57 STA $57 +15C4- A4 60 LDY $60 +15C6- 20 D1 15 JSR $15D1 +15C9- AD 0B 8A LDA $8A0B +15CC- F0 5C BEQ $162A +15CE- A4 60 LDY $60 +15D0- C8 INY +15D1- 98 TYA +15D2- 8D F6 15 STA $15F6 +15D5- 38 SEC +15D6- E5 75 SBC $75 +15D8- C5 74 CMP $74 +15DA- B0 4E BCS $162A +15DC- 4A LSR +15DD- A8 TAY +15DE- A9 00 LDA #$00 +15E0- 6A ROR +15E1- 05 57 ORA $57 +15E3- 85 55 STA $55 +15E5- 98 TYA +15E6- 69 20 ADC #$20 +15E8- 85 56 STA $56 +15EA- A4 73 LDY $73 +15EC- B9 2B 16 LDA $162B,Y +15EF- 29 FF AND #$FF +15F1- 85 58 STA $58 +15F3- 10 0A BPL $15FF +15F5- A9 00 LDA #$00 +15F7- 29 0F AND #$0F +15F9- AA TAX +15FA- BC 37 16 LDY $1637,X +15FD- 10 ED BPL $15EC +15FF- A9 19 LDA #$19 +1601- 46 58 LSR $58 +1603- B0 02 BCS $1607 +1605- A9 59 LDA #$59 +1607- 8D 12 16 STA $1612 +160A- A4 54 LDY $54 +160C- 88 DEY +160D- B1 55 LDA ($55),Y +160F- 19 E0 8D ORA $8DE0,Y +1612- 19 E0 8D ORA $8DE0,Y +1615- 91 55 STA ($55),Y +1617- 88 DEY +1618- 10 F3 BPL $160D +161A- A5 56 LDA $56 +161C- 18 CLC +161D- 69 10 ADC #$10 +161F- 85 56 STA $56 +1621- C9 60 CMP #$60 +1623- B0 05 BCS $162A +1625- AD F8 95 LDA $95F8 +1628- D0 D5 BNE $15FF +162A- 60 RTS +162B- 08 PHP +162C- 02 ??? +162D- 03 ??? +162E- 01 05 ORA ($05,X) +1630- 04 06 TSB $06 +1632- 80 00 BRA $1634 +1634- 01 08 ORA ($08,X) +1636- 07 ??? +1637- 01 01 ORA ($01,X) +1639- 01 02 ORA ($02,X) +163B- 02 ??? +163C- 03 ??? +163D- 03 ??? +163E- 03 ??? +163F- 04 04 TSB $04 +1641- 04 05 TSB $05 +1643- 05 05 ORA $05 +1645- 06 06 ASL $06 +1647- 00 BRK +1648- 03 ??? +1649- 0C 0F 30 TSB $300F +164C- 33 ??? +164D- 3C 3F C0 BIT $C03F,X +1650- C3 ??? +1651- CC CF F0 CPY $F0CF +1654- F3 ??? +1655- FC ??? +1656- FF ??? +1657- 85 80 STA $80 +1659- 20 0F 18 JSR $180F +165C- A9 00 LDA #$00 +165E- 85 83 STA $83 +1660- 4A LSR +1661- A8 TAY +1662- A9 00 LDA #$00 +1664- 6A ROR +1665- 85 88 STA $88 +1667- 98 TYA +1668- 69 20 ADC #$20 +166A- 85 89 STA $89 +166C- AD F8 95 LDA $95F8 +166F- F0 02 BEQ $1673 +1671- A9 03 LDA #$03 +1673- 85 8D STA $8D +1675- F0 05 BEQ $167C +1677- A6 8D LDX $8D +1679- 20 1D 18 JSR $181D +167C- 20 1B 17 JSR $171B +167F- F0 62 BEQ $16E3 +1681- A2 00 LDX #$00 +1683- A0 04 LDY #$04 +1685- 20 06 18 JSR $1806 +1688- A2 00 LDX #$00 +168A- 86 81 STX $81 +168C- A2 00 LDX #$00 +168E- 86 84 STX $84 +1690- A6 88 LDX $88 +1692- A5 89 LDA $89 +1694- 86 8A STX $8A +1696- 85 8B STA $8B +1698- A2 00 LDX #$00 +169A- 86 86 STX $86 +169C- A4 83 LDY $83 +169E- 86 85 STX $85 +16A0- 84 82 STY $82 +16A2- A4 81 LDY $81 +16A4- B1 8A LDA ($8A),Y +16A6- A6 84 LDX $84 +16A8- 3D 13 17 AND $1713,X +16AB- F0 09 BEQ $16B6 +16AD- A4 85 LDY $85 +16AF- B9 14 17 LDA $1714,Y +16B2- 05 86 ORA $86 +16B4- 85 86 STA $86 +16B6- A5 8A LDA $8A +16B8- 49 80 EOR #$80 +16BA- 85 8A STA $8A +16BC- D0 02 BNE $16C0 +16BE- E6 8B INC $8B +16C0- A4 82 LDY $82 +16C2- C8 INY +16C3- A6 85 LDX $85 +16C5- E8 INX +16C6- C4 80 CPY $80 +16C8- F0 04 BEQ $16CE +16CA- E0 07 CPX #$07 +16CC- 90 D0 BCC $169E +16CE- 86 87 STX $87 +16D0- A5 86 LDA $86 +16D2- 20 09 18 JSR $1809 +16D5- A6 84 LDX $84 +16D7- E8 INX +16D8- E0 08 CPX #$08 +16DA- 90 B2 BCC $168E +16DC- A6 81 LDX $81 +16DE- E8 INX +16DF- E0 80 CPX #$80 +16E1- 90 A7 BCC $168A +16E3- A9 0D LDA #$0D +16E5- 20 00 18 JSR $1800 +16E8- AD F8 95 LDA $95F8 +16EB- F0 0E BEQ $16FB +16ED- A5 89 LDA $89 +16EF- 18 CLC +16F0- 69 10 ADC #$10 +16F2- 85 89 STA $89 +16F4- C6 8D DEC $8D +16F6- 30 03 BMI $16FB +16F8- 4C 77 16 JMP $1677 +16FB- A6 87 LDX $87 +16FD- A0 01 LDY #$01 +16FF- 20 03 18 JSR $1803 +1702- 20 48 17 JSR $1748 +1705- A5 83 LDA $83 +1707- 18 CLC +1708- 65 87 ADC $87 +170A- C5 80 CMP $80 +170C- 18 CLC +170D- F0 03 BEQ $1712 +170F- 4C 5E 16 JMP $165E +1712- 60 RTS +1713- 80 40 BRA $1755 +1715- 20 10 08 JSR $0810 +1718- 04 02 TSB $02 +171A- 01 A4 ORA ($A4,X) +171C- 88 DEY +171D- A5 89 LDA $89 +171F- 84 8A STY $8A +1721- 85 8B STA $8B +1723- A5 80 LDA $80 +1725- 38 SEC +1726- E5 83 SBC $83 +1728- C9 07 CMP #$07 +172A- 90 02 BCC $172E +172C- A9 07 LDA #$07 +172E- 85 87 STA $87 +1730- AA TAX +1731- A0 00 LDY #$00 +1733- B1 8A LDA ($8A),Y +1735- D0 10 BNE $1747 +1737- C8 INY +1738- 10 F9 BPL $1733 +173A- A5 8A LDA $8A +173C- 49 80 EOR #$80 +173E- 85 8A STA $8A +1740- D0 02 BNE $1744 +1742- E6 8B INC $8B +1744- CA DEX +1745- D0 EA BNE $1731 +1747- 60 RTS +1748- 20 22 E0 JSR $E022 +174B- C9 1B CMP #$1B +174D- D0 F8 BNE $1747 +174F- 20 12 E0 JSR $E012 +1752- 20 12 18 JSR $1812 +1755- 78 SEI +1756- 08 PHP +1757- 20 15 E0 JSR $E015 +175A- 28 PLP +175B- 90 EA BCC $1747 +175D- 4C 5C 0F JMP $0F5C diff --git a/PSC Source Disk 3 - Calendar (v12)/S_COMMON.txt b/PSC Source Disk 3 - Calendar (v12)/S_COMMON.txt new file mode 100644 index 0000000..e680d1d --- /dev/null +++ b/PSC Source Disk 3 - Calendar (v12)/S_COMMON.txt @@ -0,0 +1,327 @@ + NLS +; S:COMMON +; +; Common equates for Calendar +; source files. +; +GOOFBALL = * +;----------- +; +; Monthly data margins +; +DTCXMAX = 126 +DTCYMAX = 90 +DTCXMARG = 6 +DTCYMARG = 24 +;----------- +; +; Common zero page +; +CLZ EPZ $D0 +; +XOFFLO EPZ CLZ +XOFFHI EPZ CLZ+1 +YOFF EPZ CLZ+2 +TMP0 EPZ CLZ+3 +TMP1 EPZ CLZ+4 +TMP2 EPZ CLZ+5 +TMP3 EPZ CLZ+6 +TMP4 EPZ CLZ+7 +TMP5 EPZ CLZ+8 +; +DATE EPZ CLZ+9 +; +CRLINE EPZ CLZ+10 +; +;----------- +UFONT = $8500 +UFONTW = UFONT +CLFONT = $6000 +CFONTH = CLFONT+$3B +;----------- +; +; Constants: +; +GRBUFF = $7800 +FONTBUFF = $5FF4 +ESC = 27 +;------ +; +; Temporary buffer for text +; +TEMPTEXT = $7A40 +; +MONTHTXT = TEMPTEXT +; worst:SEPTEMBER (9+1) +WEEKTEXT = MONTHTXT+10 +; worst:WEDNESDAY (9+1) +DATETEXT = WEEKTEXT+10 +; worst:31 (2+1) +;----------- +; +; Common buffer +; +COBUFF = $D000 +; + ORG COBUFF +;-- +CLTYPE DFS 1 ; Calendar type +;-- +GRSEL DFS 1 ; Graphic selection +NOGR = 3 +GRNUM DFS 1 ; # from PSD +GROPTION DFS 1 ; Position option +;-- +YEARTEXT DFS 5 +;-- +MONTH DFS 1 ; 0-11 +MNDATE DFS 1 ; mini-calen default +MNWDATE DFS 1 ; mini-week default +MNFDAY DFS 1 ; day of week 0-6 +MNLAST DFS 1 ; # days in month +;-- +FONTSEL DFS 1 ; Font selection +NOFONT = 3 +FONTPSD DFS 1 ; # from PSD +FONTCD DFS 1 ; # from CD +;-- +PRSEL DFS 1 ; printer item +PRCOPIES DFS 1 ; # copies to print +;-- +; +; 0-30:monthly data (DATE-1) +; 0-27:weekly date in groups of 4 +; 31 :top line +; 32 :second line +; 33 :credit line +; +DBUFCONT = 34 ; # strings +; +DBUFENDL DFS 1 ; EOF pointer +DBUFENDH DFS 1 +; +DBUFPNTL DFS DBUFCONT ; pointers +DBUFPNTH DFS DBUFCONT ; to the text +; +; If COLORFLG=$FF then next 4 +; are colors for: +; 0:Font +; 1:Graphics +; 2:Lines +; 3:Highlites +; +COLORFLG DFS 1 ; $FF=color follows +DCOLOR0 DFS 1 +DCOLOR1 DFS 1 +DCOLOR2 DFS 1 +DCOLOR3 DFS 1 +; +DBUFFER DFS 1 ; first byte of buffer +;----------- +; +; Z-page +; +FLASHLO EPZ $4E +FLASHHI EPZ $4F +;----------- +; +; MAIN MENU routines +; +MM = $0800 +; +MAINMENU = MM +FGETMAIN = MM+3 +FGETPSD = MM+6 +FGETCD = MM+9 +; +HAS128K = $27F +CONFIG = $95F0 +COLORPR = CONFIG+8 +;----------- +; +; Subroutine package +; +SP = $E000 +; +PRINT = SP +CLSCREEN = SP+3 +WITEBORD = SP+6 +ESCBACK = SP+9 +PICDRAW = SP+12 +; +DEVICENW = SP+15 +DEVICEON = SP+18 +DEVICEOF = SP+21 +DEVICERD = SP+24 +DEVICEST = SP+27 +SCALING = SP+30 +; +POLEBTN = SP+31 +POLEKEY = SP+34 +GETKEY = SP+37 +SELECT = SP+40 +; +SETTYPE = SP+43 +GETFILE = SP+46 +SAVEFILE = SP+49 +TYPELEN = SP+52 +FLSTART = SP+53 +FLLENGTH = SP+55 +BLOAD = SP+57 +BSAVE = SP+60 +DOSCR = SP+63 +ERROR = SP+66 +; +MUSIC = SP+69 +FLSHINIT = SP+72 +JMPVECTS = SP+75 +LINES = SP+78 +PARSE = SP+81 +SHOWAROW = SP+84 +NUMBER = SP+87 +WAITPSD = SP+90 +WAITCD = SP+93 +ANYKEY = SP+96 +CHKPRINT = SP+99 +BOOP = SP+102 +GETINIT = SP+105 +GETBYTE = SP+108 +INPUT = SP+111 +CLS1 = SP+114 +PRINTGRP = SP+117 +RTOS = SP+120 +SPACEBAR = SP+123 +GETPDISK = SP+126 +ESCMAIN = SP+129 +TESTPAPR = SP+132 +GETANUMB = SP+135 +ANYKEY2 = SP+138 +; +WITE = $FF +GRAY = $AA +GRAY2 = $55 +BLAK = $00 +; +PRNORM = 1 +PRINVR = 2 +PRLEFT = 3 +PRRITE = 4 +PRCNTR = 5 +PRLOC = 6 +PRSMAL = 7 +PRBIG = 8 +PRSTR = 9 +PRSPC = 10 +PRHTAB = 11 +PRVTAB = 12 +CR = 13 +NOCR = 14 +RTOSBLAK = 15 +RTOSWITE = 16 +RTOSANY = 17 +PRCSPACE = 18 +PRPIC = 19 +PRRTAB = 20 +PRRTAB2 = 21 +PRKERN = 22 +RTOSINV = 23 +;----------- +; +; Monitor routines +; +WAIT = $FCA8 +RTS = $FF58 +;----------- +; +; PRCOMS locations +; +COUT1 = $1800 +CRLF = $1803 +SENDGC = $1806 +GCOUT = $1809 +MTHINK = $180C +MPRINT = $180F +MPAUSE = $1812 +COPYCONT = $1815 +UPLRK = $1816 +COLORCHG = $181D +;----------- +; +; Buffer handler routines +; +TEXTBUFF = $9600 +EDITBUFF = $9700 +; +BF = $7B00 +; +; Credit line info +; +CRXB = 4 +CRXMAXB = 32 +CRX = CRXB*7 +CRXMAX = CRXMAXB*7 +; +CRY1 = 78 +; + .IF BF-ORG +CLRCOBUF = BF +GETTEXT = BF+3 +PUTTEXT = BF+6 +GETEDIT = BF+9 +PUTEDIT = BF+12 +MAKEDTXT = BF+15 +MAKEWTXT = BF+18 +; +TOPTEXT = BF+21 +GTMTEXT = BF+24 +GTWTEXT = BF+27 +CREDIT = BF+30 +; +DRAWBOX = BF+33 + .FI +;----------- +; +; Print routines +; +PR = $F00 +; + .IF PR-ORG +DOCALEN = PR +EDITDRAW = PR+3 +EDITYOFF = PR+6 +STRCROP = PR+9 + .FI +;----------- +; +; MAIN code vectors +; +MN = $4000 +; + .IF MN-ORG +CRBLAK = MN+6 +CRDRAW = MN+9 + .FI +;----------- +; +; Print buffer constants +; +BUFWIDTH = 1024 +LMARGIN = 10 +CLBUFFER = $2000 +;----------- +; +; STROUT variables +; +STROUT = $8A00 +SPARM = STROUT+3 +CSIZE = STROUT+$0B +; +; STROUT mod routines +; +STINSTAL = STROUT+$0F +STSCREEN = STROUT+$12 +FINSTALL = STROUT+$15 +; +;----------- + PHS GOOFBALL + END diff --git a/PSC Source Disk 3 - Calendar (v12)/S_ICAL.txt b/PSC Source Disk 3 - Calendar (v12)/S_ICAL.txt new file mode 100644 index 0000000..b31537c --- /dev/null +++ b/PSC Source Disk 3 - Calendar (v12)/S_ICAL.txt @@ -0,0 +1,3 @@ + NLS +; S:ICAL + ICL "S:ICAL1" diff --git a/PSC Source Disk 3 - Calendar (v12)/S_ICAL1.txt b/PSC Source Disk 3 - Calendar (v12)/S_ICAL1.txt new file mode 100644 index 0000000..73c0418 --- /dev/null +++ b/PSC Source Disk 3 - Calendar (v12)/S_ICAL1.txt @@ -0,0 +1,400 @@ + TTL "S:ICAL" +; S:ICAL1 + NOG +ORG = $7B00 +; +; 09/13/85 +; 12/05/85 last mod, full +; credit line +; +;----------- +BFZ EPZ $C0 +; +ILINE EPZ BFZ +ICURFLAG EPZ BFZ+1 +IEDYOFF EPZ BFZ+2 +;----------- +; +; Common buffer routines. +; +; Print Shop Companion Calendar +; +; by Roland Gustafsson +; Copyright 1985 +; +;----------- + ORG ORG + OBJ $800 +;----------- + JMP CLRCOBUF + JMP GETTEXT + JMP PUTTEXT + JMP GETEDIT + JMP PUTEDIT +; + JMP MAKEDTXT + JMP MAKEWTXT +; + JMP TOPTEXT + JMP GTMTEXT + JMP GTWTEXT + JMP CREDIT +; + JMP DRAWBOX +;----------- +; +; Turn on the main bank of +; the $D000 area +; Clear the common buffer +; +CLRCOBUF LDY #0 + TYA +^0 STA COBUFF,Y + INY + BNE <0 +; + DEY + STY COLORFLG +; + LDY #DBUFFER + LDA /DBUFFER + STY DBUFENDL + STA DBUFENDH + RTS +;----------- +; +; Get pointer into DBUFFER +; BEQ if no data for this date +; +GETDPNT LDA DBUFPNTL,Y + STA TMP0 + STA TMP2 + LDA DBUFPNTH,Y + STA TMP1 + STA TMP3 + ORA TMP2 + RTS +;----------- +; +; GETTEXT from DBUFFER into TEXTBUFF +; If empty, return CLC +; +GETTEXT JSR GETDPNT + BNE >0 + STA TEXTBUFF + CLC + RTS +; +^0 LDY #0 +^1 LDA (TMP2),Y + STA TEXTBUFF,Y + BEQ >2 + INY + BNE <1 +; +^2 SEC + RTS +;----------- +; +; PUTTEXT from TEXTBUFF to DBUFFER +; +PUTTEXT TYA + PHA + JSR REMTEXT + PLA + TAY + LDA TEXTBUFF + BNE >0 + STA DBUFPNTL,Y + STA DBUFPNTH,Y + RTS +; +^0 LDA DBUFENDL + STA DBUFPNTL,Y + STA TMP0 + LDA DBUFENDH + STA DBUFPNTH,Y + STA TMP1 +; + LDY #0 +^1 LDA TEXTBUFF,Y + STA (TMP0),Y + INC DBUFENDL + BNE >2 + INC DBUFENDH +^2 INY + TAX + BNE <1 + RTS +;----------- +; +; Remove data form DBUFFER, if any. +; +REMTEXT JSR GETDPNT + BEQ >9 +; +; There is data, so calculate its +; length and then remove it. +; +; TMP0.1:start of text to be removed +; TMP2.3:next byte after text +; TMP4 :length (TMP2.3-TMP0.1) +; + LDA #0 + STA TMP4 +^0 LDY #0 + LDA (TMP2),Y + INC TMP2 + BNE *+4 + INC TMP3 + INC TMP4 + TAY + BNE <0 +; +; First fix pointers pointing above +; text just removed +; + LDX #DBUFCONT-1 +^0 LDA DBUFPNTH,X + CMP TMP3 + BNE >1 + LDA DBUFPNTL,X + CMP TMP2 +^1 BCC >2 + LDA DBUFPNTL,X + SBC TMP4 + STA DBUFPNTL,X + BCS >2 + DEC DBUFPNTH,X +^2 DEX + BPL <0 +; +; Now close up the space +; +^0 LDA TMP3 + CMP DBUFENDH + BNE >1 + LDA TMP2 + CMP DBUFENDL +^1 BEQ >2 + LDA (TMP2),Y + STA (TMP0),Y + INC TMP0 + BNE *+4 + INC TMP1 + INC TMP2 + BNE *+4 + INC TMP3 + BNE <0 +; +; Update DBUFEND pointer +; +^2 SBC TMP4 + STA DBUFENDL + BCS >9 + DEC DBUFENDH +^9 RTS +;----------- +; +; Get EDITBUFF from DBUFFER. +; +; First get data into TEXTBUFF +; +GETEDIT JSR GETTEXT +; +; Clear EDITBUFF +; + LDY #0 +^0 TYA + LDX #0 + AND #%00011111 + BNE *+4 + LDX #$80 + TXA + STA EDITBUFF,Y + INY + BNE <0 +; +; Now unpack it into EDITBUFF +; + LDX #0-32 +; +^1 LDA TEXTBUFF,Y + BEQ >4 + BMI >3 +^2 STA EDITBUFF,X + INX + INY + BNE <1 +; +^3 PHA + TXA + CLC + ADC #32 + AND #%11100000 + TAX + PLA + BMI <2 +; +^4 RTS +;----------- +; +; Move EDITBUFF into DBUFFER +; +PUTEDIT TYA + PHA +; +; First pack data into TEXTBUFF +; + LDX #0 + LDY #0 +^0 LDA EDITBUFF,X + STA TEXTBUFF,Y + BEQ >1 + INX + INY + BNE <0 +; +; Do next string +; +^1 TXA + CLC + ADC #32 + AND #%11100000 + TAX + BNE <0 +; +; Now strip off trailing nulls. +; +^2 DEY + BMI >3 + LDA TEXTBUFF,Y + BMI <2 +; +; Store zero at end. +; +^3 INY + LDA #0 + STA TEXTBUFF,Y +; +; Now do the actual move +; + PLA + TAY + JMP PUTTEXT +;----------- +; +; Convert date to decimal ASCII +; +MAKEDTXT LDY #0 + STY DATETEXT+2 + LDA DATE + CMP #10 + BLT >1 + LDX #$FF +; +^0 INX + SBC #10 + BCS <0 + ADC #10 + ORA #'0' + TAY + TXA +^1 ORA #'0' +; + STA DATETEXT + STY DATETEXT+1 + RTS +;----------- +; +; Given Y=0-6, make WEEKTEXT +; +MAKEWTXT LDX #$FF +^0 DEY + BMI >2 +^1 INX + LDA MAKEWTX2,X + BNE <1 + BEQ <0 +; +^2 LDY #$FF +^3 INX + INY + LDA MAKEWTX2,X + STA WEEKTEXT,Y + BNE <3 + RTS +; +MAKEWTX2 BYT 'SUNDAY',0 + BYT 'MONDAY',0 + BYT 'TUESDAY',0 + BYT 'WEDNESDAY',0 + BYT 'THURSDAY',0 + BYT 'FRIDAY',0 + BYT 'SATURDAY',0 +;----------- +; +; Draw a box on the screen +; given X,Y: location (X is byte) +; A: height +; +; Automatically generates width based +; on X-coordinate. +; +DRAWBOX PHA +; +; W = 2*(20-X) +; + STX TMP0 + LDA #20 + SEC + SBC TMP0 + ASL + STA TMP0 + PLA +;--- +; +; Enter here with TMP0=width +; +; H +DRAWBOX2 STA >0+5 + STA >1+5 +; X + STX >0+2 + STX >2+1 + STX >3+1 +; X+W + DEX + TXA + CLC + ADC TMP0 + STA >1+2 +; Y + STY >0+3 + STY >1+3 +; Y-2 + DEY + DEY + STY >2+2 +; Y+H + TYA + ADC #2 + ADC >0+5 + STA >3+2 +; W + LDA TMP0 + STA >2+3 + STA >3+3 +; + JSR PRINT +^0 BYT RTOSANY,$07,0,0,1,0 +^1 BYT RTOSANY,$70,0,0,1,0 +^2 BYT RTOSWITE,0,0,0,2 +^3 BYT RTOSWITE,0,0,0,2 + BRK + RTS +;----------- +; +; +; + ICL "S:ICAL2" diff --git a/PSC Source Disk 3 - Calendar (v12)/S_ICAL2.txt b/PSC Source Disk 3 - Calendar (v12)/S_ICAL2.txt new file mode 100644 index 0000000..2299ee3 --- /dev/null +++ b/PSC Source Disk 3 - Calendar (v12)/S_ICAL2.txt @@ -0,0 +1,160 @@ +; +; S:ICAL2 +; +; String Edit routines +; +; +; SHOWEIAM: Show EI available message +; +; SHOWEI : Show EI screen +; +;----------- +TXTEI BYT 'EDIT INSTRUCTIONS',0 +; +TXTOLINE BYT ' OF' +TXTLINE BYT ' LINE ',0 +;----------- +; +; Show that CTRL-I for help is +; available. The "I" used here is +; not the normal "I" in UFONT. This +; "I" has a hat and shoes on. +; +SHOWEIAM JSR PRINT + .DA #PRLOC,12,#166 + BYT ' TO SEE ' + .DA #PRSTR,TXTEI,#CR + BYT PRPIC + BYT 9,166,1,7 + HEX 0F06060606060F +; + BRK + RTS +;----------- +; +; Show help screen +; +; SEC:top text +; CLC:monthly date text +; +EIY = 22 +EIY1 = 58 +EIY2 = 68 +EIY3 = 160 +; +SHOWEI PHP + JSR CLS1 + JSR PRINT + .DA #PRLOC,76,#EIY + .DA #PRSTR,TXTEI,#CR + BRK + PLP + BCS >0 +;--- +; +; Position message and size message +; + JSR PRINT + .DA #PRLOC,16,#EIY1 + BYT '',NOCR + BYT PRRTAB,91 + BYT 'POSITION' + .DA #PRSTR,TXTLINE + BYT 'OF TEXT',CR + .DA #PRLOC,122,#EIY1+11 + BYT 'L',CR,'C',CR,'R',CR + .DA #PRLOC,148,#EIY1+11 + BYT 'LEFT',CR + BYT 'CENTER',CR + BYT 'RIGHT',CR +; + .DA #PRLOC,16,#EIY1+42 + BYT '',NOCR + BYT PRRTAB,91 + BYT 'CHANGE SIZE' + .DA #PRSTR,TXTOLINE,#CR + BRK + JMP >1 +;--- +; +; Form message +; +^0 JSR PRINT + .DA #PRLOC,16,#EIY2 + BYT '',NOCR + BYT PRRTAB,91 + BYT 'CHANGE FORM' + .DA #PRSTR,TXTOLINE,#CR + .DA #PRLOC,148,#EIY2+11 + BYT 'SOLID',CR + BYT 'OUTLINE',CR + BYT '3-D',CR + BRK + LDX #17 + LDY #EIY2+11 + JSR FSOLID + LDX #17 + LDY #EIY2+19 + JSR FOUTLINE + LDX #17 + LDY #EIY2+27 + JSR F3D +;--- +; +; Erase message +; +^1 JSR ERASMESS + JMP ANYKEY +;--- +; +ERASMES2 LDA #PRCNTR + LDX #140 + BNE >0 +; +ERASMESS LDA #PRLEFT + LDX #16 +^0 STA >1+0 + STX >2+1 + JSR PRINT +^1 BYT PRLEFT +^2 .DA #PRLOC,0,#144 +; + BYT ' ERASE LINE',CR + BRK + RTS +;----------- +; +; Solid form +; +FSOLID STX >0+0 + STY >0+1 + JSR PICDRAW +^0 BYT 0,0,2,7 + HEX 7C1F7C1F7C1F7C1F + HEX 7C1F7C1F7C1F + RTS +; +; Outline form +; +FOUTLINE STX >0+0 + STY >0+1 + JSR PICDRAW +^0 BYT 0,0,2,7 + HEX 7C1F0C180C180C18 + HEX 0C180C187C1F + RTS +; +; 3-D form +; +F3D STX >0+0 + STY >0+1 + JSR PICDRAW +^0 BYT 0,0,2,7 + HEX 1C1F363330331833 + HEX 303336331C1F + RTS +;----------- +; +; +; + ICL "S:ICAL3" diff --git a/PSC Source Disk 3 - Calendar (v12)/S_ICAL3.txt b/PSC Source Disk 3 - Calendar (v12)/S_ICAL3.txt new file mode 100644 index 0000000..dfeeb11 --- /dev/null +++ b/PSC Source Disk 3 - Calendar (v12)/S_ICAL3.txt @@ -0,0 +1,231 @@ +; +; S:ICAL3 +; +; Edit a string. GIVEN: +; +; 1)*Routine to BLAK current string +; edit area. Must also return +; string address in TMP2.3 +; 2) Routine to crop extra characters +; off the end of too-long strings. +; Used when the string will be +; printed using the loaded font. +; 3)*Routine to actually draw the +; string onto the screen. +; +; 4)*Maximum width on screen +; 5)*Maximum number of characters +; 6)*CSPACE on screen +; 7)*Kerning? +; +; * you must supply this parameter +; +;----------- +; +; Initialize TEDIT routine +; +TEINIT JSR GETINIT + JSR GETWORD + STY TBLAKMOD+1 + STA TBLAKMOD+2 + JSR GETWORD + STY TCROPMOD+1 + STA TCROPMOD+2 + JSR GETWORD + STY TDRAWMOD+1 + STA TDRAWMOD+2 + JSR GETWORD + STY TMAXWITH + STA TMAXCONT + JSR GETWORD + STY TCSPACE + STA TKERNING + RTS +;----------- +; +; Text edit routine +; +TEDIT: +TBLAKMOD JSR $FFFF +TCROPMOD JSR $FFFF +; +; Screen crop routine +; +; Set CSPACE and KERN +; + LDY TMP2 + LDA TMP3 + STY SPARM+9 + STA SPARM+10 +; + LDA #00 +TCSPACE = *-1 + STA SPARM+7 +; + LDA #00 +TKERNING = *-1 + STA SPARM+11 +; + LDX #00 +TMAXWITH = *-1 + BEQ TDRAWMOD + LDY #0 + LDA /UFONT + JSR STRCROP +; +TDRAWMOD JSR $FFFF +; +; Main loop (sort of) +; +^0 JSR IGETKEY + PHA +; +; Calc length into Y +; + LDY #$FF +^1 INY + LDA (TMP2),Y + BNE <1 +; + PLA + LDX #1 + JSR PARSE + .DA #'H'-$40,INPCTRLH + .DA #127,INPCTRLH + .DA #'E'-$40,INPCTRLE +; +; Return the following commands to +; the calling program. +; + .DA #CR,INPCR + .DA #'J'-$40,INPCR + .DA #ESC,INPESC + .DA #'K'-$40,INPESC +; + .DA #'I'-$40,INPCTRLI + .DA #'S'-$40,INPCTRLS + .DA #'P'-$40,INPCTRLP + .DA #'F'-$40,INPCTRLF +; + .DA #'@',<0+0 + BRK + CMP #' ' + BLT <0 + CMP #'Z'+1 + BGE <0 +; +; Too many letters? +; + CPY #00 +TMAXCONT = *-1 + BGE <0 +; +; Store char into buffer +; + STA (TMP2),Y + INY + LDA #0 + STA (TMP2),Y +; +; If left justify, then don't need +; to black out old string. +; + LDA SPARM+1 + BEQ TCROPMOD + BNE TBLAKMOD +;----------- +; +; Erase line +; +INPCTRLE LDY #1 +;----------- +; +; Backspace +; +INPCTRLH DEY + BMI <0 + LDA #0 + STA (TMP2),Y + JMP TEDIT +;----------- +INPCTRLF INX +INPCTRLP INX +INPCTRLS INX +INPCTRLI INX +INPESC INX +INPCR TXA + RTS +;----------- +; +; Get a key with flashing cursor +; +IGETKEY ASL ICURFLAG +^0 JSR ICURSOR + INC ICURFLAG + JSR FLSHINIT +; +^1 JSR POLEBTN + BMI >2 + DEC FLASHLO + BNE <1 + DEC FLASHHI + BPL <1 + BMI <0 +; +^2 PHA + LSR ICURFLAG + BCC >3 + JSR ICURSOR +^3 PLA + RTS +; +; EOR cursor onto screen +; +ICURSOR LDA #4 + STA SPARM+0 +; +; SAVE: XOPTION,X,CSPACE +; + LDA SPARM+1 + PHA + LDA SPARM+2 + PHA + LDA SPARM+3 + PHA + LDA SPARM+7 + PHA +; + LDA #0 + STA SPARM+1 + STA SPARM+7 + LDY #ICURSTXT + LDA /ICURSTXT + STY SPARM+9 + STA SPARM+10 + JSR STROUT +; + PLA + STA SPARM+7 + PLA + STA SPARM+3 + PLA + STA SPARM+2 + PLA + STA SPARM+1 +; +; Set option back to OR +; (4/2 = 2!!!) +; + LSR SPARM+0 + RTS +; +ICURSTXT BYT 'II',0 +;----------- +GETWORD JSR GETBYTE + TAY + JMP GETBYTE +;----------- +; +; +; + ICL "S:ICAL4" diff --git a/PSC Source Disk 3 - Calendar (v12)/S_ICAL4.txt b/PSC Source Disk 3 - Calendar (v12)/S_ICAL4.txt new file mode 100644 index 0000000..084a71d --- /dev/null +++ b/PSC Source Disk 3 - Calendar (v12)/S_ICAL4.txt @@ -0,0 +1,254 @@ +; +; S:ICAL4 +; +; GTMTEXT +; +; Get text for monthly calendar +; +MCXOFF = 71 +MCYOFF = 54 +MCWIDTH = 126 +; +; Initialize everything! +; +GTMTEXT STX DATE + LDA #0 + STA ILINE +; +; Get text for this day +; + LDY DATE + DEY + JSR GETEDIT +; +; Configure TEDIT routine +; + JSR TEINIT + ADR GTMBLAK + ADR RTS + ADR GTMDRAW + BYT 126,30,2,0 +; + LDX #MCXOFF + LDY /MCXOFF + STX XOFFLO + STY XOFFHI + LDY #MCYOFF + STY YOFF +;----------- +; +; Draw the initial screen +; +GTMDATE2 JSR GTTOP + JSR SHOWEIAM + LDX #10 + LDY #MCYOFF + LDA #90 + JSR DRAWBOX + LDY #$FF + JSR EDITDRAW +; +; Show all the attributes +; + LDY #0 +^0 JSR GTMSTUFF + INY + BCC <0 +; + LDY ILINE +; +; Now edit one of the strings +; +GTMDNEXT STY ILINE +GTMDGET JSR TEDIT + PHA + LDY ILINE + JSR EDITYOFF + PLA + JSR PARSE + .DA #1,GTMCR + .DA #2,GTMESC + .DA #3,GTMCTRLI + .DA #4,GTMCTRLS + .DA #5,GTMCTRLP + .DA #6,GTMDGET +;--- +GTMCR INY + JSR EDITYOFF + BCC GTMDNEXT + BCS >0 +;--- +GTMESC DEY + BPL GTMDNEXT +;--- +; +; Room? +; +^0 JSR GTMBCHEK + BCS >9 +; +; Put it into buffer +; + LDY DATE + DEY + JSR PUTEDIT +; +; Fall into the check routine +; +;--- +; +; Check to see if data goes to +; far into buffer. +; If it won't fit, then erase it +; and return with SEC +; +; COBUFFER+(4096-300) +; 58 for pointers +; 64*3 for three strings +; 50 for good luck +; +GTMOMAX = $D000+3796 +; +GTMBCHEK LDA DBUFENDL + CMP #GTMOMAX + LDA DBUFENDH + SBC /GTMOMAX + BCC >9 + LDA #0 + STA TEXTBUFF + LDY DATE + DEY + JSR PUTTEXT + SEC +^9 RTS +;--- +GTMCTRLP LDA EDITBUFF,X + PHA + AND #6 + CLC + ADC #2 + CMP #6 + BNE *+4 + LDA #0 + STA TMP0 + PLA + AND #%11111001 + ORA TMP0 + STA EDITBUFF,X + JSR GTMSTUFF + JMP GTMDGET +;----------- +; +; Show text position and +; box on left edge. +; +GTMSTUFF STY >9+1 + JSR GTMYCALC + BCS >9 + LDA EDITBUFF,X + LSR + AND #3 + TAY + LDA GTMPOSIT,Y + STA >2+0 + LDY IEDYOFF + STY >0+2 + STY >1+3 + JSR PRINT +^0 BYT RTOSBLAK,30,0,2,8 +^1 .DA #PRLOC,216,#0 +^2 BYT ' ',CR + BRK + LDX #8 + LDY IEDYOFF + JSR FSOLID + CLC +^9 LDY #00 + RTS +; +GTMPOSIT BYT 'LCR' +;--- +GTMCTRLI CLC + JSR SHOWEI + JMP GTMDATE2 +;--- +GTMCTRLS LDA EDITBUFF,X + EOR #1 + STA EDITBUFF,X +;--- +; +; Redraw from Y down +; + LDA ILINE + PHA + SEC +^0 STY ILINE + PHP + JSR GTMBLAK + PLP + BCS >1 + JSR GTMDRAW +^1 LDY IEDYOFF + STY >2+2 + STY >3+2 + JSR PRINT +^2 BYT RTOSBLAK,8,0,2,16 +^3 BYT RTOSBLAK,30,0,2,16 + BRK + LDY ILINE + JSR GTMSTUFF +; + LDY ILINE + INY + JSR EDITYOFF + BCC <0 + PLA + STA ILINE + JMP GTMDGET +;----------- +; +; Routine to erase current line +; +GTMBLAK LDY ILINE + JSR GTMYCALC + STA >0+2 + PHA + LDA TMP1 + STA >0+4 + JSR PRINT +^0 BYT RTOSBLAK,11,0,18,0 + BRK + PLA + RTS +;----------- +; +; Calculate Yoffset and X index +; +GTMYCALC JSR EDITYOFF + BCS >0 + LDA TMP0 + CLC + ADC #MCYOFF+DTCYMARG + STA IEDYOFF +^0 RTS +;----------- +GTMDRAW LDY ILINE + JMP EDITDRAW +;----------- +; +; Show top of events and reminders +; screen input. +; +GTTOP JSR CLS1 + JSR PRINT + BYT PRCNTR + .DA #PRLOC,140,#26 + BYT 'NOW TYPE IN YOUR',CR + BYT 'EVENTS AND REMINDERS:',CR + BRK + RTS +;----------- +; +; +; + ICL "S:ICAL5" diff --git a/PSC Source Disk 3 - Calendar (v12)/S_ICAL5.txt b/PSC Source Disk 3 - Calendar (v12)/S_ICAL5.txt new file mode 100644 index 0000000..eeaaf0b --- /dev/null +++ b/PSC Source Disk 3 - Calendar (v12)/S_ICAL5.txt @@ -0,0 +1,191 @@ +; +; S:ICAL5 +; +; GTWTEXT +; +; Get text for weekly calendar +; +WCXOFF = 21 +WCYOFF = 76 +WCWIDTH = 238 +; +WBOXX = 2 +WBOXY = WCYOFF-5 +WBOXH = 9+4*8 +; +; Initialize everything! +; +; Compute string offset +; +GTWTEXT TXA + ASL + ASL + STA GTWSBOFF +; +; Compute day of week +; + CLC + TXA + ADC MNFDAY + CMP #7 + BLT >0 + SBC #7 +^0 TAY +; +; Compute date +; + TXA + CLC + ADC MNDATE + CMP MNLAST + BLT >1 + BEQ >1 + SBC MNLAST + NOP + NOP +^1 STA DATE + JSR MAKEWTXT + JSR MAKEDTXT +; + JSR TEINIT + ADR GTWBLAK + ADR RTS + ADR GTWDRAW + BYT WCWIDTH,100,1,1 +; +; Draw the initial screen +; + JSR GTTOP +; + JSR PRINT + BYT PRCNTR + .DA #PRLOC,140,#WCYOFF-18 + .DA #PRSTR,WEEKTEXT,' ' + .DA #PRSTR,DATETEXT,#CR + BRK + LDX #WBOXX + LDY #WBOXY + LDA #WBOXH + JSR DRAWBOX +; + JSR ERASMES2 +; +; Draw all four strings +; + LDY #3 +^0 STY ILINE + JSR GTWGET + JSR GTWBLAK + JSR GTWDRAW + LDY ILINE + DEY + BNE <0 +; +; Now edit one of the strings +; +GTWDNEXT STY ILINE + JSR GTWGET +^0 JSR TEDIT + JSR PARSE + .DA #1,GTWCR + .DA #2,GTWESC + BRK + JMP <0 +;--- +GTWCR CLC + HEX 24 +;--- +GTWESC SEC + PHP + JSR GTWPUT + PLP + LDY ILINE + BCC >0 + DEY + BPL GTWDNEXT + RTS +; +^0 INY + CPY #4 + BLT GTWDNEXT + CLC + RTS +;--- +; +; Get text from buffer +; +GTWGET CLC + HEX 24 +; +; Put text into buffer +; +GTWPUT SEC + PHP + LDA #00 +GTWSBOFF = *-1 + CLC + ADC ILINE + TAY + PLP + BCS >0 + JMP GETTEXT +^0 JMP PUTTEXT +;--- +; +; Routine to erase current line +; +GTWBLAK JSR GTWYCALC +GTWBLAK2 STA >0+2 + JSR PRINT +^0 BYT RTOSBLAK,3,0,34,7 + BYT PRKERN,1 + BYT PRCSPACE,1 + BRK +; +SETTMP2 LDY #TEXTBUFF + LDA /TEXTBUFF + STY TMP2 + STA TMP3 + RTS +;----------- +; +; Calculate Y position +; +GTWYCALC LDA ILINE + ASL + ASL + ASL + ADC #WCYOFF + RTS +;----------- +; +; Draw current string +; +GTWDRAW JSR GTWYCALC + LDX #WCXOFF + LDY #0 +;--- +; +; Common draw routine +; X:X-coordinate +; Y:XOPTION +; A:Y-coordinate +; TMP2.3:string address +; +COMMDRAW STX SPARM+2 + LDX #0 + STX SPARM+3 + INX + STX SPARM+7 + STY SPARM+1 + STA SPARM+4 + LDY TMP2 + LDA TMP3 + STY SPARM+9 + STA SPARM+10 + JMP STROUT +;----------- +; +; +; + ICL "S:ICAL6" diff --git a/PSC Source Disk 3 - Calendar (v12)/S_ICAL6.txt b/PSC Source Disk 3 - Calendar (v12)/S_ICAL6.txt new file mode 100644 index 0000000..a42d387 --- /dev/null +++ b/PSC Source Disk 3 - Calendar (v12)/S_ICAL6.txt @@ -0,0 +1,229 @@ +; +; S:ICAL6 +; +; TOPTEXT:edit text for the top of the +; calendar. +; +; CREDIT:edit text for credit line. +; +TTY1 = 60 +TTY2 = 107 +; +;----------- +; +; Edit text for top of screen +; +TOPTEXT LDA FONTSEL + EOR #NOFONT + BEQ >1 +;--- +; +; Initialze toptext input +; + JSR TEINIT + ADR TPBLAK + ADR TPCROP + ADR TPDRAW + BYT 238,62,1,1 +; + JSR SHOWTOP +^0 LDY #31 + JSR TOPEDIT + BCS >1 + LDY #32 + JSR TOPEDIT + BCS <0 +^1 RTS +;--- +; +; Show top of screen +; +SHOWTOP JSR CLS1 + LDY #TTY1-4 + LDA #31 + JSR SHOWTOP1 + LDY #TTY2-4 + LDA #32 + JSR SHOWTOP1 +; + JSR PRINT + BYT PRCNTR,PRBIG + .DA #PRLOC,140,#TTY1-23 + BYT 'LINE 1',CR + BYT PRSMAL + BYT PRVTAB,TTY2-16 + BYT 'LINE 2',CR + BRK + JMP SHOWEIAM +;--- +; +; Y for box +; A is string number +; +SHOWTOP1 STA ILINE + LDX #2 + LDA #15 + JSR DRAWBOX + LDY ILINE + JSR GETTEXT + JSR TPFORM + JSR TPBLAK +; JSR TPCROP <<<<<< + JMP TPDRAW +;----------- +; +; Now edit one of the strings +; +TOPEDIT STY ILINE + LDY ILINE + JSR GETTEXT +TOPEDIT2 JSR TEDIT + PHA + LDY ILINE + JSR PUTTEXT + PLA + JSR PARSE + .DA #1,TPCR + .DA #2,TPESC + .DA #3,TPCTRLI + .DA #6,TPCTRLF + BRK + JMP TOPEDIT2 +;--- +TPCTRLI LDA ILINE + PHA + SEC + JSR SHOWEI + JSR SHOWTOP + PLA + TAY + JMP TOPEDIT +;--- +TPCR CLC + RTS +; +TPESC SEC + RTS +;--- +; +; Change form +; +TPCTRLF LDX TEXTBUFF + INX + CPX #$83 + BNE >0 + LDX #$80 +^0 STX TEXTBUFF + JSR TPFORM + JMP TOPEDIT2 +;--- +; +; Show current form +; +TPFORM JSR TPCALC + SEC + SBC #14 + TAY + LDX #2 + LDA TEXTBUFF + CMP #$81 + BEQ >1 + CMP #$82 + BEQ >2 +; + JMP FSOLID +^1 JMP FOUTLINE +^2 JMP F3D +;--- +; +; Returns X,Y:maximum width +; A:Y position +; +TPCALC LDY ILINE + LDA TPYCALC7-31,Y + PHA + LDA TPYCALC8-31,Y + TAX + LDA TPYCALC9-31,Y + TAY + PLA + RTS +; +TPYCALC7 BYT TTY1,TTY2 +TPYCALC8 BYT 470,940 +TPYCALC9 HBY 470,940 +;--- +; +; Routine to erase current line +; +TPBLAK JSR TPCALC + JSR GTWBLAK2 + INC TMP2 + RTS +;--- +; +; Crop off extra characters based +; on selected font. +; +TPCROP LDA #3 + STA SPARM+7 + LDY TMP2 + LDA TMP3 + STY SPARM+9 + STA SPARM+10 + JSR TPCALC + LDA /CLFONT + JSR STRCROP + LDA /UFONT + JMP FINSTALL +;--- +; +; Draw current string +; +TPDRAW JSR TPCALC + LDX #140 + LDY #2 + JMP COMMDRAW +;----------- +;----------- +; +; Edit credit line +; +CREDIT JSR TEINIT + ADR CRBLAK + ADR RTS + ADR CRDRAW + BYT 0,128,2,0 +; + JSR ERASMES2 + LDY #33 + JSR GETTEXT +; + LDY #0 + STY CRLINE +; +; TEDIT time +; +^0 JSR TEDIT + JSR PARSE + .DA #1,CRYCR + .DA #2,CRYESC + BRK + JMP <0 +;--- +CRYCR CLC + HEX 24 +;--- +CRYESC SEC + PHP + LDY #33 + JSR PUTTEXT + PLP + RTS +;----------- +; +; +; + USR "ICAL",ORG +; + ICL "S:COMMON" diff --git a/PSC Source Disk 3 - Calendar (v12)/S_PCAL.txt b/PSC Source Disk 3 - Calendar (v12)/S_PCAL.txt new file mode 100644 index 0000000..2546649 --- /dev/null +++ b/PSC Source Disk 3 - Calendar (v12)/S_PCAL.txt @@ -0,0 +1,3 @@ + NLS +; S:PCAL + ICL "S:PCAL1" diff --git a/PSC Source Disk 3 - Calendar (v12)/S_PCAL1.txt b/PSC Source Disk 3 - Calendar (v12)/S_PCAL1.txt new file mode 100644 index 0000000..36414cc --- /dev/null +++ b/PSC Source Disk 3 - Calendar (v12)/S_PCAL1.txt @@ -0,0 +1,1189 @@ + TTL "S:PCAL" +; S:PCAL1 + NOG +ORG = $F00 +;----------- +; +; APPLE! +; +; 6/17/86 mod for color +; +; +; CALENDAR DRAW/PRINT +; +;----------- +DCZ EPZ $70 +; +DCDAYOWK EPZ DCZ +DCTMP0 EPZ DCZ+1 +; +WKPIECE EPZ DCZ+2 +; +; COLOR stuff: +; +COLOR EPZ DCZ+3 +YMAX EPZ DCZ+4 +YCLIP EPZ DCZ+5 +YSIZE EPZ DCZ+6 +; +COLOR0 EPZ DCZ+7 +COLOR1 EPZ DCZ+8 +COLOR2 EPZ DCZ+9 +COLOR3 EPZ DCZ+10 +; +LORESL EPZ DCZ+11 +LORESH EPZ DCZ+12 +; +STRTDATE EPZ DCZ+13 +; +; COLOR:color to use when drawing +; YMAX :maximum Y-coordinate when drawing +; 128 for B/W, 32 for color +; YCLIP:Y-value to subract when drawing +; into buffer. Set to 0,32,64,96 +; when drawing top line. +; YSIZE:size of buffer to draw to during +; MAGIPRIN routine. +; +;----------- +; +; Monthly calendar date info +; CDM=margin at left edge +; CDW=width of each day +; CDH=height +; +CDM = 5 +CDW = 135 +CDH = 90 +; +; Weekly calendar position info +; +WDRWX1 = 4 +WDRWY1 = 9 +WDRWX2 = 250 +WDRWY2 = 9 +; +;----------- + ORG ORG + OBJ $800 +;----------- + JMP DOCALEN + JMP EDITDRAW + JMP EDITYOFF + JMP STRCROP +;----------- +; +; Save $4000.4FFF +; +DOCALEN TSX + STX STACK + JSR SWAPD000 +;--- +; +; Set color variables +; + LDA #128 + LDX COLORPR + BEQ >0 + LDA #32 +^0 STA YMAX +; + LDA BLACKTBL,X + STA COLORTBL +; +; Move color bytes over from COBUFF +; + LDX #3 +^1 LDA COLORPR + BEQ >2 + LDA DCOLOR0,X + LDY COLORFLG + INY + BEQ >2 + LDA #0 +^2 STA COLOR0,X + DEX + BPL <1 +;--- +; +; First skip down 28 +; +DOCALENL JSR INSUFONT + LDA #28 + JSR SPACE +;--- +; +; Now draw graphics and month/year +; and print it. +; + LDX #DOTOP + LDY /DOTOP + LDA #128 + JSR MAGIPRIN +;--- +; +; Now do actual calendar part +; + JSR DOCENTER +;--- +; +; Credit line at bottom +; + JSR DOCREDIT +;--- +; +; Decrement COPYCONT +; + LDA COPYCONT + BEQ ABORT + DEC COPYCONT + BNE DOCALENL +;----------- +; +; Go here to abort printout +; and when done! +; +ABORT LDX #00 +STACK = *-1 + TXS + JSR STSCREEN +; +; Make sure that kerning +; is off. +; + LDA #0 + STA SPARM+11 + STA COPYCONT +; +; Swap program with print buffer +; +SWAPD000 BIT $C08B + BIT $C08B + LDX #0 + LDY #0 + STY TMP0 + LDA #$40 + STY TMP2 + STA TMP3 +; +^0 LDA SWAPBUFR,X + BEQ >2 + STA TMP1 +^1 LDA (TMP0),Y + PHA + LDA (TMP2),Y + STA (TMP0),Y + PLA + STA (TMP2),Y + INY + BNE <1 + INC TMP3 + INX + BNE <0 +; +^2 BIT $C083 + BIT $C083 + RTS +; +SWAPBUFR HEX D0D1D2D3D4D5D6D7 + HEX D8D9DADBDCDDDEDF + HEX 9899 + BRK +;----------- +; +; Blank spaces! +; +SPACE TAX + BEQ >2 +^0 PHA + LDX #12 + CMP #12 + BGE >1 + TAX +^1 STX TMP0 + LDY #1 + JSR CRLF + PLA + SEC + SBC TMP0 + BNE <0 +^2 JMP CLRPBUFF +;----------- +; +; Self adjusting draw routine +; for drawing areas larger than +; the maximum 32 lines for color. +; +; Given X,Y = address of routine, +; A = buffer size +; +; The routine will repeatedly call +; the draw routine and print as much +; as possible each pass. In B/W mode +; the whole buffer will be done in +; a single pass. In color mode, it +; can take up to 4 passes for 128 +; byte tall buffers. +; +MAGIPRIN STX >1+1 + STY >1+2 + STA YSIZE + LDA #0 +^0 STA YCLIP + JSR CLRPBUFF +^1 JSR $FFFF +; +; Print MIN (YSIZE-YCLIP,YMAX) lines +; + LDA YSIZE + SEC + SBC YCLIP + CMP YMAX + BLT >2 + LDA YMAX +^2 JSR PRINBUFF +; + LDA YCLIP + CLC + ADC YMAX + CMP YSIZE + BLT <0 +; + LDA #0 + STA YCLIP + RTS +;----------- +; +; Draw center of calendar +; +DOCENTER LDA CLTYPE + BEQ DOMONTH + JMP DOWEEKLY +;----------- +; +; Monthly calendar +; +; First space down +; +DOMONTH CLC + LDA MNLAST + ADC MNFDAY + LDY #0-4 +; +^0 INY + SEC + SBC #7 + BEQ >1 + BCS <0 +; +^1 LDA SPCTABLE,Y + PHA + CLC + ADC #16 + JSR SPACE +; +; Now draw days of the week +; + JSR DRAWDAYS + LDA #24 + JSR PRINBUFF +; +; Now do actual calendar +; + JSR DOAMONTH +; +; Space down last amount +; + PLA + JMP SPACE +; +SPCTABLE BYT 90,45,0 +;----------- +; +; Draw days of the week +; +DRAWDAYS LDA COLOR2 + STA COLOR + JSR PRINT + .DA #PRLOC,CDM+CDW/2,#0 + BYT PRCNTR,PRBIG,'SUN',NOCR + BYT PRRTAB2,CDW,'MON',NOCR + BYT PRRTAB2,CDW,'TUE',NOCR + BYT PRRTAB2,CDW,'WED',NOCR + BYT PRRTAB2,CDW,'THU',NOCR + BYT PRRTAB2,CDW,'FRI',NOCR + BYT PRRTAB2,CDW,'SAT',NOCR + BRK + RTS +;----------- +; +; Do credit line +; +DOCREDIT LDA COLOR3 + STA COLOR + LDA #25 + JSR SPACE + LDY #33 + JSR GETTEXT + JSR PRINT + BYT PRCNTR,PRBIG + .DA #PRLOC,480,#0 + .DA #PRSTR,TEXTBUFF,#CR,#0 + LDA #30 + JMP PRINBUFF +;----------- +; +; 0:left +; 1:right +; 2:left & right +; 3:row of 6 (or 3 for double size) +; 4:tiled +; 5-9:same as above, but double size +; +; Draw graphic(s) into buffer +; +DRAWGRS LDA GRSEL + EOR #NOGR + BEQ >9 +; + LDA GROPTION + LDX #0 + CMP #5 + BCC >0 +; + SBC #5 + INX +; +^0 LDY O2TBL1,X + STY O2 + LDY O2TBL2,X + STY O3+3 + LDY O2TBL3,X + STY >2+0 + TAX +; +; X-option +; +^1 LDA O1TBL,X + STA O1 +; +; X-position +; + LDY O3TBLL,X + LDA O3TBLH,X + STY O3+1 + STA O3+2 +; +; Character spacing +; + LDA O4TBL,X + STA O4+1 +; +; # of graphics to plot +; + LDA O5TBL,X + CLC +^2 NOP + ADC #0 + TAY +; +; Build string +; + LDA #0 +^3 STA TEXTBUFF,Y + LDA #'@' + DEY + BPL <3 +; + STX >4+1 +; + JSR PRINT +O1 BYT PRLEFT +O2 BYT PRSMAL +O3 .DA #PRLOC,0,#0 +O4 BYT PRCSPACE,0 + .DA #PRSTR,TEXTBUFF,#CR,#0 +; +; If L+R then go back and do the +; right side. +; +^4 LDX #00 + DEX + CPX #1 + BEQ <1 +^9 RTS +; +O1TBL BYT PRLEFT,PRRITE,PRLEFT,PRCNTR,PRCNTR +; +O2TBL1 BYT PRSMAL,PRBIG +O2TBL2 BYT 26,0 +O2TBL3 BYT $EA,$4A +; +O3TBLL BYT 0,958,0,480,480 +O3TBLH HBY 0,958,0,480,480 +; +O4TBL BYT 0,0,0,86,0 +; +O5TBL BYT 1,1,1,6,10 +;----------- +; +; Do MONTHLY calendar +; +DOAMONTH LDA #1 + STA STRTDATE +; +^0 LDX #DOAWEEK + LDY /DOAWEEK +; + LDA STRTDATE + CLC + ADC #6 + CMP MNLAST + LDA #CDH + ADC #0 +; + PHA + JSR MAGIPRIN + LDA DATE + STA STRTDATE + PLA + EOR #CDH + BEQ <0 + RTS +;----------- +; +; Do a week +; +DOAWEEK LDA STRTDATE + STA DATE +; + LDA MNFDAY + LDY DATE + DEY + BEQ >0 + LDA #0 +^0 STA DCDAYOWK +; +^1 LDX DCDAYOWK + LDY DWXL,X + LDA DWXH,X +; + JSR DWDATE + INC DATE +; + INC DCDAYOWK + LDA DCDAYOWK + EOR #7 + BNE <1 + RTS +;--- +DWXL BYT CDM,CDM+CDW,CDM+CDW*2 + BYT CDM+CDW*3,CDM+CDW*4 + BYT CDM+CDW*5,CDM+CDW*6 +DWXH HBY CDM,CDM+CDW,CDM+CDW*2 + HBY CDM+CDW*3,CDM+CDW*4 + HBY CDM+CDW*5,CDM+CDW*6 +;--- +; +; Print rectangle and date with +; info, if any. +; +; Set X,Y offsets +; +DWDATE STY XOFFLO + STA XOFFHI + LDY #0 + STY YOFF +; +; Always draw top line +; + JSR DWHLINE +; +; Valid date? +; + LDY DATE + CPY MNLAST + BLT >0 + BEQ >0 + RTS +; +; Draw the data inside the box +; +^0 DEY + JSR GETEDIT + LDY #$FF + JSR EDITDRAW +; +; Now put frame around date +; +; left edge +; + LDX #0 + JSR DWVLINE + INX + JSR DWVLINE +; +; right edge +; + LDX #CDW + JSR DWVLINE + INX + JSR DWVLINE +; +; bottom line +; + LDY #CDH + JSR DWHLINE +; +; Update lores screen +; +^0 JMP UPLRK +;--- +; +; Given Y, do X=0-(CDW+1) +; +DWHLINE LDX #0 +^0 JSR DWPLOT + INX + CPX #CDW+2 + BLT <0 + RTS +;--- +; +; Given X, do Y=0-(CDH) +; +DWVLINE LDY #0 +^0 JSR DWPLOT + INY + CPY #CDH + BLT <0 + RTS +;--- +; +; Plot point with XOFFSET adjust +; for monthly calendar +; +DWPLOT STX DWPLOTSX + STY DWPLOTSY +; +; Compute X,Y +; + TXA + CLC + ADC XOFFLO + TAX + LDA XOFFHI + ADC #0 + TAY + LDA DWPLOTSY + JSR PLOTDOT + LDX #00 +DWPLOTSX = *-1 + LDY #00 +DWPLOTSY = *-1 + RTS +;----------- +; +; Plot point into buffer +; +; Enter with X,Y:Xcoor +; A :Ycoor +; +PLOTDOT STA YCUR + SEC + SBC YCLIP + CMP YMAX + BGE DOTPLOTX +; + STX PLXSAVE + STY PLYSAVE +; +; Compute address into yellow plane +; + LSR + PHA + LDA #0 + ROR + STA TMP0 + PLA + ADC /CLBUFFER + STA TMP1 +; +; Compute bit position +; X=Xcoor mod 8 +; + STX TMP3 + TXA + AND #7 + TAX + LDA PBITS8,X + STA TMP2 +; +; Compute byte offset +; Y=Xcoor/8 +; + TYA + LSR + ROR TMP3 + LSR + LDA TMP3 + ROR + LSR + STA TMP3 +; +; Set color +; + LDY COLOR2 +^0 LDA COLORTBL,Y + STA COLORTMP + BPL >1 +; +; Rainbow! +; + LDA YCUR + AND #$0F + TAX + LDY RBTBL,X + BPL <0 +; +^1 LDY TMP3 +; +; Set bits! +; +^2 LSR COLORTMP + BCC >3 + LDA TMP2 + ORA (TMP0),Y + STA (TMP0),Y +; +; Point to next plane +; +^3 LDA TMP1 + CLC + ADC #$10 + STA TMP1 + CMP /CLBUFFER+$4000 + BGE >4 + LDA COLORPR + BNE <2 +; +^4 LDX #00 +PLXSAVE = *-1 + LDY #00 +PLYSAVE = *-1 +; +DOTPLOTX RTS +;----------- +; +; Draw top of calendar +; +DOTOP LDA COLOR1 + STA COLOR + JSR DRAWGRS + LDA COLOR0 + STA COLOR +;;;;;;;; JMP DRAWMY +;----------- +; +; Draw month and year +; +DRAWMY LDA FONTSEL + CMP #NOFONT + BEQ >9 + JSR INSCFONT +; + LDX #0 + LDY #31 + JSR >0 + LDX #1 + LDY #32 + JSR >0 + JMP INSUFONT +; +^0 LDA #1 + STA DRAWKERN +; + LDA DRAWMYT1,X + STA DRAWSIZE +; + LDA DRAWMYT2,X + STA DRAWMYM2 +; + LDA DRAWMYT3,X + STA DRAWYOFF +; + JSR GETTEXT +;--- +; +; Scan through the string to find the +; tallest letter in the string. +; + LDY #0 + STY TMP2 +; +^0 LDA TEXTBUFF+1,Y + BEQ >2 + TAX + LDA CFONTH-$20,X +DRAWMYM2 ASL + CMP TMP2 + BLT >1 + STA TMP2 +^1 INY + BNE <0 +;--- +; +; Subtract 1/2 height of height +; +^2 LSR TMP2 + LDA DRAWYOFF + SEC + SBC TMP2 + STA DRAWYOFF +; +; Now set options +; + LDA TEXTBUFF + ASL + TAX + LDA DSNORMAL,X + STA TMP2 + LDA DSNORMAL+1,X + STA DRAWEOR +;----------- +; +; Using tables, draw the string. +; +^0 LDX TMP2 + INC TMP2 +; + LDA DSOTBL0,X + BPL >1 +; +; DONE! +; +^9 RTS +;--- +; +^1 EOR #00 +DRAWEOR = *-1 + STA DRAWOPT +; + LDA #480 + CLC + ADC DSXTBL0,X + STA DRAWX +; + LDA #00 +DRAWYOFF = *-1 + CLC + ADC DSYTBL0,X + STA DRAWY +;--- +; +; Draw text into buffer +; + JSR PRINT + BYT PRCSPACE,3 +DRAWOPT BYT PRINVR +DRAWSIZE BYT PRBIG + BYT PRKERN,1 +DRAWKERN = *-1 + BYT PRCNTR + .DA #PRLOC,480,#00 +DRAWX = *-3 +DRAWY = *-1 + BYT PRSTR + ADR TEXTBUFF+1 + BYT CR + BYT PRKERN,0 + BRK +; + SEC + ROR DRAWKERN + JMP <0 +;--- +; +; 0=month, 1=year +; +DRAWMYT1 BYT PRBIG,PRSMAL +DRAWMYT2 ASL + NOP +DRAWMYT3 BYT 40,100 +;--- +; +; Pointers to parameters for String +; Draw subroutine. +; +; , +; +DSNORMAL BYT 0,0 +DSOUTLIN BYT 0,PRNORM^PRINVR +DS3D BYT 16,0 +;--- +; +; Option tables +; +DSOTBL0 DFS 14,PRINVR + BYT PRNORM + HEX FF +; +DSOTBL1 BYT PRINVR,PRNORM + BYT PRINVR,PRNORM + BYT PRINVR,PRNORM + BYT PRINVR,PRNORM + HEX FF +;--- +; +; X offsets for +; +DSXTBL0 BYT 0,1,2,3,4 + BYT 0,1,3,4,0 + BYT 1,2,3,4,2 + HEX FF +DSXTBL1 BYT 0,1,2,3,4,5,6,7 +; +; Y offsets +; +DSYTBL0 BYT 0,0,0,0,0 + BYT 1,1,1,1,2 + BYT 2,2,2,2,1 + HEX FF +DSYTBL1 BYT 0,1,2,3,4,5,6,7 +;----------- +; +; Do weekly calendar +; +; Space down 13 +; +DOWEEKLY LDA #13 + JSR SPACE +; + LDA #0 + LDX MNDATE + LDY MNFDAY +; +^0 STA WKPIECE + STX DATE + STY DCDAYOWK +; + LDX #DOWEEK2 + LDY /DOWEEK2 + LDA WKPIECE + CMP #6 + LDA #81 + ADC #0 + JSR MAGIPRIN +; + LDX DATE + INX + CPX MNLAST + BEQ >1 + BLT >1 + LDX #1 +^1 LDY DCDAYOWK + INY + CPY #7 + BLT >2 + LDY #0 +^2 LDA WKPIECE + CLC + ADC #1 + CMP #7 + BLT <0 + CLC + RTS +;--- +; +; Enter with Y=0-6 for day of week +; A=0-6 section. DATE=date! +; +DOWEEK2 LDA WKPIECE + ASL + ASL + PHA + LDY DCDAYOWK + JSR MAKEWTXT +; +; Draw lines +; + LDX #959 + LDY /959 +^0 LDA #0 + JSR PLOTDOT + LDA #81 + JSR PLOTDOT + DEX + BNE <0 + DEY + BPL <0 +; +; Draw day of week and date and +; position the cursor for the rest +; of the data. +; + JSR MAKEDTXT +; + LDA COLOR2 + STA COLOR +; + JSR PRINT + BYT PRBIG,PRSPC,25 + .DA #PRLOC,WDRWX1,#WDRWY1 + .DA #PRSTR,WEEKTEXT,#CR + BYT PRRTAB2,50 + BYT PRCNTR + .DA #PRSTR,DATETEXT,#CR + .DA #PRLOC,WDRWX2,#WDRWY2 + BRK +; +; Now draw the 4 strings +; + LDA COLOR3 + STA COLOR +; + PLA + TAY + JSR >0 +^0 JSR >1 +; +; Draw string +; +^1 STY >2+1 + JSR GETTEXT + JSR PRINT + BYT PRBIG + BYT PRSPC,16 + .DA #PRSTR,TEXTBUFF,#CR,#0 +; +^2 LDY #00 + INY + RTS +;----------- +; +; Draw the date and all the data +; typed in for this date. +; Given EDITBUFF. +; +EDITDRAL LDY XOFFLO + LDA XOFFHI + STY >0+1 + STA >0+2 + LDY YOFF + STY >0+3 +; + JSR MAKEDTXT +; +; # is printed with LINE color +; + LDA COLOR2 + STA COLOR +; + JSR PRINT +^0 .DA #PRLOC,0,#0 + BYT PRKERN,0 + BYT PRRTAB2,10 + BYT PRSPC,6,CR + BYT PRBIG + .DA #PRSTR,DATETEXT,#CR,#0 +; +; Now draw the strings until the +; end is reached. +; + LDA COLOR3 + STA COLOR +; + LDY #0 +^1 TYA + PHA + JSR EDITDRAW + PLA + TAY + INY + BCC <1 + RTS +;----------- +; +; Print a line of the EDITBUFF given +; in Y (0-7). SEC=if off bottom. +; +EDITDRAW CPY #$FF + BEQ EDITDRAL +; + JSR EDITYOFF + BCS >9 +; +; Set size parameter +; + LDA EDITBUFF,X + LSR SPARM+8 + LSR + ROL SPARM+8 +; +; Now set Xoption parameters +; + AND #3 + TAY + LDA EDITXTYP,Y + STA SPARM+1 +; +; Set coordinates +; + LDA EDITXLO,Y + CLC + ADC XOFFLO + STA SPARM+2 + LDA EDITXHI,Y + ADC XOFFHI + STA SPARM+3 +; + LDA TMP0 + ADC YOFF + ADC #DTCYMARG + STA SPARM+4 +; +; Strip off extra characters +; + LDX #DTCXMAX + LDY /DTCXMAX + LDA /UFONT + JSR STRCROP +; +; Now print the string +; + JSR STROUT + CLC +^9 RTS +;--- +; +; Left, Center, Right +; +EDITXTYP BYT 0,2,1 +EDITXLO BYT DTCXMARG + BYT DTCXMARG+DTCXMAX/2 + BYT DTCXMARG+DTCXMAX +EDITXHI HBY DTCXMARG + HBY DTCXMARG+DTCXMAX/2 + HBY DTCXMARG+DTCXMAX +;----------- +; +; Calculate the following based +; on line # in Y. +; +; RETURNS: +; +;TMP0:Y offset +;TMP1:size (8 or 16) +;TMP2.3:address of string +; +; X:offset into EDITBUFF +; Y:unchanged +; SEC:forget it, no room +; +; CLC:ok +; +EDITYOFF LDX #0 + STX TMP0 +^0 LDA EDITBUFF,X + LSR + LDA #8 + BCC >1 + ASL +^1 STA TMP1 + TXA + CMP EDITOFF,Y + BEQ >2 + LDA TMP0 + ADC TMP1 + STA TMP0 + TXA + ADC #32 + TAX + BNE <0 +; +^2 CLC + LDA TMP0 + ADC TMP1 + CMP #65 + BCC >9 +; +; Try small letter +; + LDA TMP1 + CMP #8 + BEQ >9 + LSR + STA TMP1 + ADC TMP0 + CMP #65 + BCS >9 + LSR EDITBUFF,X + ASL EDITBUFF,X +; +; set TMP2.3 +; +^9 INX + STX TMP2 + LDA /EDITBUFF + STA TMP3 + DEX + RTS +; +EDITOFF HEX 0020406080A0C0E0 +;----------- +; +; Chop letters off string until +; it fits on line, given: +; A:Font address +; X:lo byte maxwidth +; Y:hi byte maxwidth +; TMP2.3:string address +; +STRCROP STX STRCROP0 + STY STRCROP1 + JSR FINSTALL +; + LDA SPARM+1 + PHA +; +; Set STROUT to return width value +; + LDA #3 + STA SPARM+1 +; +; Point to string +; + LDY TMP2 + LDA TMP3 + STY SPARM+9 + STA SPARM+10 +; +; Strip off letters until string +; fits on line. +; +^0 JSR STROUT + CMP /00 +STRCROP1 = *-1 + BNE >1 + CPY #00 +STRCROP0 = *-1 +^1 BLT >3 +; +; Strip off a character +; + LDY #$FF +^2 INY + LDA (TMP2),Y + BNE <2 + DEY + STA (TMP2),Y + BPL <0 +; +^3 PLA + STA SPARM+1 + RTS +;----------- +; +; +; + ICL "S:PCAL2" diff --git a/PSC Source Disk 3 - Calendar (v12)/S_PCAL2.txt b/PSC Source Disk 3 - Calendar (v12)/S_PCAL2.txt new file mode 100644 index 0000000..4c21c5a --- /dev/null +++ b/PSC Source Disk 3 - Calendar (v12)/S_PCAL2.txt @@ -0,0 +1,586 @@ +; +; S:PCAL2 +; +; Low-level print buffer routines +; ------------------------------- +; +; Install calendar buffer hooks: +; +; INSCFONT : install calendar font +; INSUFONT : install user font +; ------------------------------- +; CLRPBUFF : clear print buffer +; PRINBUFF : print buffer to printer +; ------------------------------- +; +ROWBUF = $8E00-32 +; +STRZ EPZ $50 +; +PIXAD EPZ STRZ +XCUR EPZ STRZ+2 +WCOUNT EPZ STRZ+4 +PBUFLO EPZ STRZ+5 +PBUFHI EPZ STRZ+6 +XBYTE EPZ STRZ+7 +COLORTMP EPZ STRZ+8 +; thru 12 available! +YCUR EPZ STRZ+16 +; +;PIXAD :pointer into font data +;XCUR :16 bit x-coordinate +;WCOUNT :starts as bit width of line +; but is converted to bytes. +;PBUF :pointer into planes +;XBYTE :byte offset into plane +;COLORTMP:color to use for current line +; (each line different for rainbow) +; +;----------- +; +; Install calendar line draw routine +; +; Calendar font +; +INSCFONT JSR STINSTAL + ADR CLOPTION + ADR CLLINDRW + HBY CLFONT + RTS +; +; User font +; +INSUFONT JSR STINSTAL + ADR CLOPTION + ADR CLLINDRW + HBY UFONT + RTS +;----------- +; +; Clear calendar buffer +; +CLRPBUFF JSR MTHINK + LDY #0 + LDA /CLBUFFER + LDX #$40 + STA >0+2 + TYA +^0 STA CLBUFFER,Y + INY + BNE <0 + INC <0+2 + DEX + BNE <0 + STA LORESH + RTS +;----------- +; +; SMC for OPTION +; +; If normal, Y=00 +; erase , Y=FF +; So if erase is desired, then +; set mask to #$00 +; +CLOPTION TYA + EOR #$FF + STA CLINVR +; +; Only useful when we exit from +; the linedraw routine. +; +INCPIXAD LDA WCOUNT + CLC + ADC PIXAD + STA PIXAD + BCC >0 + INC PIXAD+1 +^0 RTS +;----------- +; +; Calendar LINEDRAW routine +; +; Compute byte width of font data +; INT((bits-1)/8)+1 +; +CLLINDRW LDX WCOUNT + DEX + TXA + LSR + LSR + LSR + TAX + INX + STX WCOUNT +; +; Now, should we bother with the +; line draw routine? +; + TYA + CLC + ADC CSIZE + SEC + SBC YCLIP + CMP YMAX + BEQ >0 + BGE INCPIXAD +; +; Update lores screen? +; +^0 LDA LORESL + ADC WCOUNT + STA LORESL + BCC >0 + INC LORESH + LDA LORESH + EOR #4 + BNE >0 + STA LORESH + JSR CHECKESC + JSR UPLRK +;--- +; +; Move data into ROWBUF +; +^0 LDY WCOUNT + DEY +^1 LDA (PIXAD),Y + STA ROWBUF,Y + DEY + BPL <1 +; + JSR INCPIXAD +;--- +; +; Double size of buffer? +; + LDA CSIZE + BEQ >3 +; +; NOTE:XBYTE is used as TEMP var +; + LDX WCOUNT +^2 TXA + ASL + STA XBYTE +; + LDA ROWBUF-1,X + AND #$0F + TAY + LDA DBLTBL,Y + LDY XBYTE + STA ROWBUF-1,Y +; + LDA ROWBUF-1,X + LSR + LSR + LSR + LSR + TAY + LDA DBLTBL,Y + LDY XBYTE + STA ROWBUF-2,Y + DEX + BNE <2 + ASL WCOUNT +;--- +; +; Rotate buffer to the right if +; necessary. +; +^3 LDA XCUR + AND #7 + TAY + BEQ >6 +; +; Rotate (XCUR & 7) times +; + LDX WCOUNT + LDA #0 + STA ROWBUF,X + INC WCOUNT +^4 LDX #0 + CLC +^5 ROR ROWBUF,X + INX + TXA + EOR WCOUNT + BNE <5 + DEY + BNE <4 +; +; Starting X-byte offset = XCUR/8 +; +^6 LDA XCUR+1 + STA XBYTE + LDA XCUR + LSR XBYTE + ROR + LSR XBYTE + ROR + LSR + STA XBYTE +; +; Now draw ROWBUF into buffer +; + LDY YCUR + JSR PUTROW + LDA CSIZE + BEQ PUTROWX + LDY YCUR + INY +;--- +; +; Draw ROWBUF into buffers +; +; $2000.2FFF yellow (black in B/W) +; 3000.3FFF red +; 4000.4FFF blue +; 5000.5FFF black +; +; Set PBUF pointer to yellow plane +; +PUTROW TYA + STA RAINY + SEC + SBC YCLIP + CMP YMAX + BGE PUTROWX +; + LSR + TAY + LDA #0 + ROR + ORA XBYTE + STA PBUFLO + TYA + ADC /CLBUFFER + STA PBUFHI +; +; Set color plane +; NOTE:if erasing, then CLINVR will +; be set to #$00, causing all 4 +; planes to be erased. +; + LDY COLOR +^0 LDA COLORTBL,Y + AND #$FF ; smc +CLINVR = *-1 + STA COLORTMP + BPL >1 +; +; If rainbow, go back and get new color! +; + LDA #00 +RAINY = *-1 + AND #$0F + TAX + LDY RBTBL,X + BPL <0 +;--- +; +; Now determine whether or not to +; turn bits on or off! +; +^1 LDA #$19 ; ORA ABS,Y + LSR COLORTMP + BCS *+4 + LDA #$59 ; EOR ABS,Y + STA >3+0 + LDY WCOUNT + DEY +^2 LDA (PBUFLO),Y + ORA ROWBUF,Y +^3 ORA ROWBUF,Y ; (EOR ROWBUF,Y) + STA (PBUFLO),Y + DEY + BPL <2 +; +; Point to next color plane +; + LDA PBUFHI + CLC + ADC #$10 + STA PBUFHI + CMP /CLBUFFER+$4000 + BGE PUTROWX +; +; If color, go back and do it! +; + LDA COLORPR + BNE <1 +; +PUTROWX RTS +;----------- +; +; ----- RIBBON COLOR ----- +; +; bit 0 yellow +; bit 1 red +; bit 2 blue +; bit 3 black +; +; BLACK,RED,ORANGE,YELLOW,GREEN +; BLUE,PURPLE,RAINBOW,CLEAR +; +COLORTBL BYT 8,2,3,1,5,4,6 +RAINBOW BYT $80,0 +; +; Black ribbon mod +; +; 1 color,4 color,3 color +; 1 only draws to yellow plane!!! +; +BLACKTBL BYT 1,8,7 +; +; Rainbow colors +; +RBTBL BYT 1,1,1,2,2,3,3,3 + BYT 4,4,4,5,5,5,6,6 +; +; Double 4 bits to 8 bits +; +DBLTBL HEX 00030C0F + HEX 30333C3F + HEX C0C3CCCF + HEX F0F3FCFF +;----------- +******** ************************* +;----------- +; +PRZ EPZ $80 +; +PYEND EPZ PRZ +PXCOOR EPZ PRZ+1 +PYCOOR EPZ PRZ+2 +PYCOORSV EPZ PRZ+3 +; +PXCOUNT EPZ PRZ+4 +PYCOUNT EPZ PRZ+5 +; +PBUILD EPZ PRZ+6 +PYSPACE EPZ PRZ+7 +; +PBUFSAVL EPZ PRZ+8 +PBUFSAVH EPZ PRZ+9 +PBUFL EPZ PRZ+10 +PBUFH EPZ PRZ+11 +PBUFOFF EPZ PRZ+12 +PRRIBBON EPZ PRZ+13 +; +; Print buffer A=# of scan lines +; to print. +; +; Returns: SEC=ESC pressed +; CLC=entire buffer printed +; +PRINBUFF STA PYEND +; + JSR MPRINT +; + LDA #0 +; +; Print single line of buffer +; +CLPRLOP1 STA PYCOORSV +; +; Calculate buffer address +; + LSR + TAY + LDA #0 + ROR + STA PBUFSAVL + TYA + ADC /CLBUFFER + STA PBUFSAVH +; +; COLOR? +; + LDA COLORPR + BEQ >0 + LDA #3 +^0 STA PRRIBBON + BEQ >1 +;--- +; +; Loop here for color +; +CLPRCOL1 LDX PRRIBBON + JSR COLORCHG +; +; Check to see if all zeros +; +^1 JSR CLBUFZER + BEQ CLPRSKP1 +; +; Tell printer how many bytes +; + LDX #BUFWIDTH + LDY /BUFWIDTH + JSR SENDGC +; + LDX #0 +; +; Output line of data +; +CLPRLOP2 STX PXCOOR + LDX #0 +; +; Output 8 bytes +; +CLPRLOP3 STX PXCOUNT + LDX PBUFSAVL + LDA PBUFSAVH + STX PBUFL + STA PBUFH + LDX #0 + STX PBUILD + LDY PYCOORSV +; +; Output 1 byte +; +; X=counter, 0-6 +; Y=Y-coordinate +; +CLPRLOP4 STX PYCOUNT + STY PYCOOR +; + LDY PXCOOR + LDA (PBUFL),Y + LDX PXCOUNT + AND PBITS8,X + BEQ >1 +; + LDY PYCOUNT + LDA PBITS7,Y + ORA PBUILD + STA PBUILD +; +^1 LDA PBUFL + EOR #$80 + STA PBUFL + BNE *+4 + INC PBUFH +; + LDY PYCOOR + INY + LDX PYCOUNT + INX + CPY PYEND + BEQ >2 + CPX #7 + BLT CLPRLOP4 +; +^2 STX PYSPACE + LDA PBUILD + JSR GCOUT +; + LDX PXCOUNT + INX + CPX #8 + BLT CLPRLOP3 +; + LDX PXCOOR + INX + CPX #BUFWIDTH/8 + BLT CLPRLOP2 +; +; CR without LF +; +CLPRSKP1 LDA #CR + JSR COUT1 +; +; If color then go to next plane +; + LDA COLORPR + BEQ >0 + LDA PBUFSAVH + CLC + ADC #$10 + STA PBUFSAVH + DEC PRRIBBON + BMI >0 + JMP CLPRCOL1 +; +; Now do LF +; +^0 LDX PYSPACE + LDY #1 + JSR CRLF +; + JSR CHECKESC +; + LDA PYCOORSV + CLC + ADC PYSPACE + CMP PYEND + CLC + BEQ >9 + JMP CLPRLOP1 +^9 RTS +; +; Bit lookup tables +; +PBITS8 HEX 80 +PBITS7 HEX 40201008040201 +;----------- +; +; Check current buffer for zeros +; +; BEQ=this line is all zeros +; BNE=this line contains data +; +CLBUFZER LDY PBUFSAVL + LDA PBUFSAVH + STY PBUFL + STA PBUFH +; +; Calculate how many lines to check +; + LDA PYEND + SEC + SBC PYCOORSV + CMP #7 + BLT *+4 + LDA #7 + STA PYSPACE + TAX +; +^0 LDY #0 +^1 LDA (PBUFL),Y + BNE >2 + INY + BPL <1 + LDA PBUFL + EOR #$80 + STA PBUFL + BNE *+4 + INC PBUFH + DEX + BNE <0 +^2 RTS +;----------- +; +; Check for , if yes then +; show pausing message and allow +; another to abort. +; +CHECKESC JSR POLEKEY + CMP #ESC + BNE <2 + JSR DEVICEON + JSR MPAUSE + SEI + PHP + JSR DEVICEOF + PLP + BCC <2 + JMP ABORT +;----------- +; +; +; + USR "PCAL",ORG +; + ICL "S:COMMON" diff --git a/PSC Source Disk 3 - Calendar (v12)/S_UCAL.txt b/PSC Source Disk 3 - Calendar (v12)/S_UCAL.txt new file mode 100644 index 0000000..82166c0 --- /dev/null +++ b/PSC Source Disk 3 - Calendar (v12)/S_UCAL.txt @@ -0,0 +1,3 @@ + NLS +; S:UCAL + ICL "S:UCAL1" diff --git a/PSC Source Disk 3 - Calendar (v12)/S_UCAL1.txt b/PSC Source Disk 3 - Calendar (v12)/S_UCAL1.txt new file mode 100644 index 0000000..584e063 --- /dev/null +++ b/PSC Source Disk 3 - Calendar (v12)/S_UCAL1.txt @@ -0,0 +1,252 @@ + TTL "S:UCAL" +; S:UCAL1 + NOG +ORG = $4000 +; +; 09/13/85 +; 12/05/85 +; +; Print Shop Companion Calendar +; by Roland Gustafsson +; Copyright 1985 +; +; User interface module, menus, +; screens, etc... +; +;----------- + ORG ORG + OBJ $800 +;----------- + JMP START + JMP START +; + JMP CRBLAK + JMP CRDRAW +;----------- +; + ASC "COPYRIGHT 1985 " + BYT "ROLAND GUSTAFSSON" +; +; Initialize external routines +; +START BIT $C083 + BIT $C083 + JSR INITCAL +;----------- +;----------- +; +; Clear variables START FRESH +; +START1 JSR CLRCOBUF +;----------- +; +; Enter here to leave data intact +; +START2 JSR TPTITLE2 +; +; If no printer setup, then quit. +; + JSR PRINT + .DA #PRLOC,140,#70 + BRK + LDA #CR + JSR CHKPRINT + BCC MENUSCT0 + JMP MAINMENU +;----------- +; +; Select calendar type +; +MENUSCT0 JSR SELTYPE + BCC MENUSGR0 + JSR ESCMAIN + BCS MENUSCT0 +;----------- +; +; Select graphic +; +MENUSGR0 JSR SELGR + BCS MENUSCT0 +; +; Graphic position +; +MENUSGR1 JSR SELGRPOS + BCS MENUSGR0 +;----------- +; +; Select YEAR +; +MENUSYR0 JSR SELYEAR + BCS MENUSGR1 +;----------- +; +; Select MONTH +; +MENUSMN0 JSR SELMONTH + BCS MENUSYR0 +;----------- +; +; Select FONT +; +MENUSFN0 JSR SELFONT + BCS MENUSMN0 +; +; Enter text for top of page +; +MENUSFN1 JSR TPTITLE + JSR TOPTEXT + BCS MENUSFN0 +;----------- +; +; Enter data for CENTER of calendar +; +MENUCTR0 JSR CRTITLE + JSR CENTER + BCS MENUSFN1 +;----------- +; +; Credit line for bottom of page +; +MENUCRL0 JSR BMTITLE + JSR CREDIT2 + BCS MENUCTR0 +;----------- +; +; Select colors +; +MENUCOLR JSR SELCOLOR + BCS MENUCRL0 +;----------- +; +; PRINT MENU +; +; SEC= pressed +; CLC=start fresh +; + JSR PRINMENU + BCS MENUCOLR + BCC START1 +;----------- +; +; TOP +; +TPTITLE BCC >0 +TPTITLE2 PHP + JSR TITLE + JSR PRINT + BYT PRBIG,PRINVR + BYT 'TOP',CR,0 + PLP +^0 RTS +; +; CENTER +; +CRTITLE PHP + JSR TITLE + JSR PRINT + BYT PRBIG,PRINVR + BYT 'CENTER',CR,0 + PLP + RTS +; +; BOTTOM +; +BMTITLE JSR TITLE + JSR PRINT + BYT PRBIG,PRINVR + BYT 'BOTTOM',CR,0 + RTS +;--- +; +; Print menu +; +PRTITLE BCS >0 +PRTITLE2 PHP + JSR TITLE + JSR PRINT + BYT PRBIG,PRINVR + BYT 'PRINT',CR + BRK + PLP +^0 RTS +;--- +; +; TITLE +; +TITLE JSR WITEBORD + JSR ESCBACK + JSR PRINT + .DA #PRLOC,136,#4 + BYT PRRITE,PRINVR + .DA #PRSTR,TXTCAL + BYT ':',CR + .DA #PRLOC,146,#1,#0 + RTS +;----------- +; +; Center of calendar handler +; +CENTER LDA CLTYPE + BNE GTWEEKLY +;----------- +; +; Menus for monthly calendar. +; +GTMONTH JSR SELDATE + BCS >9 +; DONE? + CPX MNLAST + BEQ >0 + BGE >8 +; +; Type in text for date +; +^0 JSR GTMTEXT + BCC GTMONTH +; +; Out of memory! +; + JSR CLS1 + JSR MUSIC + JSR PRINT + BYT PRCNTR + .DA #PRLOC,140,#66 + BYT 'SORRY, OUT OF MEMORY',CR + BYT CR + BYT 'UNABLE TO STORE...',CR + BRK + JSR ANYKEY + JMP GTMONTH +; +^8 CLC +^9 RTS +;----------- +; +; Menus for weekly calendar. +; +; First, select starting date +; +GTWEEKLY BCS >1 +^0 JSR SELDATE + BCS <9 +; +; Calculate day of week! +; + LDY MNDATE + JSR CALCDAY +; +; Now select which day to edit +; +^1 JSR SELWDATE + BCS <0 +; DONE? + CPX #7 + BEQ <8 +; + JSR GTWTEXT + JMP <1 +;----------- +; +; +; + ICL "S:UCAL2" diff --git a/PSC Source Disk 3 - Calendar (v12)/S_UCAL2.txt b/PSC Source Disk 3 - Calendar (v12)/S_UCAL2.txt new file mode 100644 index 0000000..7e39950 --- /dev/null +++ b/PSC Source Disk 3 - Calendar (v12)/S_UCAL2.txt @@ -0,0 +1,523 @@ +; +; S:UCAL2 +; +; Calendar user interface menus +; +; SELGRPOS:select graphic position +; SELYEAR :type in year for calendar +; SELMONTH:select month +; CALCDAY :calculate day of week +; given Y=date 1-31, +; MONTH=0-11 and YEARTEXT +; +;----------- +; +; Select graphic position option +; +LCTXT BYT 'LEFT CORNER',0 +RCTXT BYT 'RIGHT CORNER',0 +BCTXT BYT 'BOTH CORNERS',0 +ROTXT BYT 'ROW OF ',0 +; +SGPY = 28 +SGBXY = 136 +; +SELGRPOS LDA GRSEL + EOR #NOGR + BEQ >0 +; + JSR CLS1 + JSR PRINT + BYT PRCNTR + .DA #PRLOC,140,#SGPY + BYT 'SELECT ' + .DA #PRSTR,TXTGR + BYT ' POSITION:',CR + BYT CR + .DA #PRSTR,LCTXT,#CR + .DA #PRSTR,RCTXT,#CR + .DA #PRSTR,BCTXT,#CR + .DA #PRSTR,ROTXT + BYT 'SIX',CR + BYT 'TILED',CR +; + .DA #PRSTR,LCTXT,#CR + .DA #PRSTR,RCTXT,#CR + .DA #PRSTR,BCTXT,#CR + .DA #PRSTR,ROTXT + BYT 'THREE',CR + BYT 'TILED',CR +; +; Draw box for position information: +; + BYT RTOSANY,$60,8,SGBXY,1,30 + BYT RTOSANY,$03,31,SGBXY,1,30 + BYT RTOSWITE,9,SGBXY,22,1 + BYT RTOSWITE,9,SGBXY+29,22,1 + BRK +; + LDY GROPTION + JSR SELECT + BYT 10,20,SGPY+15,10 + ADR SGBOX + STY GROPTION +^0 RTS +;--- +; +; Show position on screen +; +SGBOX PHA + JSR PRINT + BYT RTOSBLAK,9,SGBXY+1,22,21,0 + PLA +; + LSR + TAX +; + LDY #SGBXSMAL + LDA /SGBXSMAL + CPX #5 + BLT >0 + LDY #SGBXBIG + LDA /SGBXBIG +^0 STY SGBOX1+1 + STA SGBOX1+2 +; + LDA SGBXSTRT,X + STA TMP0 + LDA SGBXNUMB,X + STA TMP1 + LDA SGBXINC,X + STA TMP2 +; +^1 LDX TMP0 +SGBOX1 JSR $FFFF + LDA TMP0 + CLC + ADC TMP2 + STA TMP0 + DEC TMP1 + BNE <1 + RTS +; +; Xstart,Xcount,Xinc +; +SGBXSTRT BYT 9,29,9,9,10 + BYT 9,27,9,10,10 +SGBXNUMB BYT 1,1,2,6,10 + BYT 1,1,2,3,5 +SGBXINC BYT 0,0,20,4,2 + BYT 0,0,18,8,4 +; +; Small +; +SGBXSMAL STX >0+2 + INX + STX >1+2 + JSR PRINT +^0 BYT RTOSANY,$7E,00,SGBXY+7,1,10 +^1 BYT RTOSANY,$3F,01,SGBXY+7,1,10 + BRK + RTS +; +; Big +; +SGBXBIG STX >0+2 + INX + STX >1+1 + INX + INX + STX >2+2 + JSR PRINT +^0 BYT RTOSANY,$7E,00,SGBXY+2,1,20 +^1 BYT RTOSWITE,01,SGBXY+2,2,20 +^2 BYT RTOSANY,$3F,03,SGBXY+2,1,20 + BRK + RTS +;----------- +; +; Select year for calendar +; +SYX = 61 +SYY = 69 +; +SELYEAR JSR CLS1 + JSR PRINT + .DA #PRLOC,SYX,#SYY + BYT 'WHAT YEAR IS THIS',CR + .DA #PRSTR,TXTCAL,' FOR ?',#CR + BYT CR,'>',CR,CR + BYT '(1753-9999)',CR,0 +; +^0 JSR INPUT + ADR YEARTEXT + BYT 4 + .DA SYX+9 + BYT SYY+24 + BCS >9 +; + JSR CALCYEAR + LDY #32 + LDX #YEARTEXT + LDA /YEARTEXT + STX TMP4 + STA TMP5 + BCC STORE? +; + JSR BOOP + JMP <0 +;----------- +; +; Given TMP4.5: source buffer +; Y : dest string # +; (X,A): dest buffer +; +; If there is no data for the string, +; store the text pointed to by X,A. +; +STORE? STX STOREADR+1 + STA STOREADR+2 + STY >1+1 + JSR GETTEXT +; +; Move the text to buffers +; + LDA #$80 + STA TEXTBUFF + LDY #$FF +^0 INY + LDA (TMP4),Y +STOREADR STA $FFFF,Y + STA TEXTBUFF+1,Y + BNE <0 + BCS >2 +; +^1 LDY #00 + JSR PUTTEXT +; +^2 CLC +^9 RTS +;----------- +; +; Get month for calendar +; +SMY = 34 +; +SELMONTH JSR CLS1 + JSR PRINT + BYT PRCNTR + .DA #PRLOC,140,#SMY + .DA #PRSTR,TXTCHOO + BYT 'A MONTH:',CR,CR,0 +; + JSR PRINTGRP + BYT PRCNTR + BYT 12 + ADR TXTJAN +; + LDY MONTH + JSR SELECT + BYT 13,14,SMY+15,12 + ADR RTS + STY MONTH + BCS <9 +; + LDX MONTHADL,Y + LDA MONTHADH,Y + STX TMP4 + STA TMP5 +; + LDX #MONTHTXT + LDA /MONTHTXT + LDY #31 + BCC STORE? +;----------- +MONTHADL BYT TXTJAN,TXTFEB,TXTMAR + BYT TXTAPR,TXTMAY,TXTJUN + BYT TXTJUL,TXTAUG,TXTSEP + BYT TXTOCT,TXTNOV,TXTDEC +; +MONTHADH HBY TXTJAN,TXTFEB,TXTMAR + HBY TXTAPR,TXTMAY,TXTJUN + HBY TXTJUL,TXTAUG,TXTSEP + HBY TXTOCT,TXTNOV,TXTDEC +; +; Text for all the months +; +TXTJAN BYT 'JANUARY',0 +TXTFEB BYT 'FEBRUARY',0 +TXTMAR BYT 'MARCH',0 +TXTAPR BYT 'APRIL',0 +TXTMAY BYT 'MAY',0 +TXTJUN BYT 'JUNE',0 +TXTJUL BYT 'JULY',0 +TXTAUG BYT 'AUGUST',0 +TXTSEP BYT 'SEPTEMBER',0 +TXTOCT BYT 'OCTOBER',0 +TXTNOV BYT 'NOVEMBER',0 +TXTDEC BYT 'DECEMBER',0 +;----------- +; +; Given YEARTEXT, compute CDYRLO.HI +; If SEC, then not a valid year. +; +MINYEAR = 1753 +; +CALCYEAR LDY #0 + STY CDYRLO + STY CDYRHI +^0 LDA YEARTEXT,Y + CMP #'0' + BCC >2 + CMP #'9'+1 + BCS >2 + AND #$0F + PHA +; +; Multiply by 10 +; + LDX CDYRHI + LDA CDYRLO + ASL + ROL CDYRHI + ASL + ROL CDYRHI + ADC CDYRLO + STA CDYRLO + TXA + ADC CDYRHI + STA CDYRHI + ASL CDYRLO + ROL CDYRHI +; +; Add in new digit +; + PLA + ADC CDYRLO + STA CDYRLO + BCC *+4 + INC CDYRHI + INY + CPY #4 + BLT <0 +; + LDY CDYRLO + LDA CDYRHI + CMP /MINYEAR + BNE >1 + CPY #MINYEAR +^1 BLT >2 + CLC + RTS +; +^2 SEC + RTS +;----------- +; +; Given YEARTEXT:1753-9999 +; MONTH:0-11 +; Y:date 1-31 +; +; Calculate which day of the week this +; month starts on and # days in month. +; +; 0:Sunday 1:Monday 2:Tuesday +; 3:Wednesday 4:Thursday 5:Friday +; 6:Saturday +; +; Uses the following weird formula +; invented by Roland +; +; DAY= (YEAR +; +INT((YEAR-1)/4) +; -INT((YEAR-1)/100) +; +INT((YEAR-1)/400) +; +(#days in previous months) (0 for JAN, 31 for FEB) +; +(DATE-1) +; ) MOD 7 +;--- +CDZ EPZ $70 +; +CDDAYLO EPZ CDZ +CDDAYHI EPZ CDZ+1 +CDYRLO EPZ CDZ+2 +CDYRHI EPZ CDZ+3 +CDLPFLG EPZ CDZ+4 +; +ACCUMLO EPZ CDZ+5 +ACCUMHI EPZ CDZ+6 +ACCUM2LO EPZ CDZ+7 +ACCUM2HI EPZ CDZ+8 +REMAINLO EPZ CDZ+9 +REMAINHI EPZ CDZ+10 +;--- +CALCDAY DEY + STY DATE + JSR CALCYEAR + LDY CDYRLO + LDA CDYRHI + STY CDDAYLO + STA CDDAYHI +; +; Modify February if leap year +; + JSR CDLEAP? + LDA #28 + ADC #0 + STA DYSINMON+1 +; +; Set YR=(YEAR-1) +; + LDX CDYRLO + BNE >0 + DEC CDYRHI +^0 DEC CDYRLO +; +; Now do mathematics +; + JSR DIVYR4 + JSR CDDAYADD +; + JSR DIVYR100 + JSR CDDAYSUB +; + JSR DIVYR400 + JSR CDDAYADD +; +; Add in days for previous months +; + LDY #0 + LDX MONTH + LDA DYSINMON,X + STA MNLAST +^0 DEX + BMI >1 + LDA DYSINMON,X + JSR CDDAYADD + BCC <0 +; +; Add in current date +; +^1 LDA DATE + JSR CDDAYADD +; + LDY CDDAYLO + LDA CDDAYHI + STY ACCUMLO + STA ACCUMHI +; +; Get DAY modulus 7 +; + LDA #7 + LDY #0 + JSR DIV16 + LDA REMAINLO + STA MNFDAY + RTS +;--- +; +; Days in month +; +DYSINMON BYT 31,28,31,30,31,30 + BYT 31,31,30,31,30,31 +;--- +; +; Subtract Y,A from DAY +; +CDDAYSUB EOR #$FF + PHA + TYA + EOR #$FF + TAY + PLA + SEC + HEX 24 +; +; Add Y,A to DAY +; +CDDAYADD CLC + ADC CDDAYLO + STA CDDAYLO + TYA + ADC CDDAYHI + STA CDDAYHI + RTS +;--- +; +; Return SEC if leap year +; +CDLEAP? ASL CDLPFLG + JSR DIVYR4 + BCS >0 + INC CDLPFLG +^0 JSR DIVYR100 + BCS >1 + DEC CDLPFLG +^1 JSR DIVYR400 + BCS >2 + INC CDLPFLG +^2 ROR CDLPFLG + RTS +;--- +; +; Divide year routines: +; for 4,100 and 400 +; +DIVYR4 LDA #4 + HEX 2C +; +DIVYR100 LDA #100 + LDY #0 + BEQ >0 +; +DIVYR400 LDA #400 + LDY /400 +; +; Divide YR by Y,A +; +^0 LDX CDYRLO + STX ACCUMLO + LDX CDYRHI + STX ACCUMHI +; +; Divide ACCUM by Y,A +; +; Return result in Y,A +; SEC means there was a remainder +; +DIV16 STA ACCUM2LO + STY ACCUM2HI + LDA #0 + STA REMAINLO + STA REMAINHI +; + LDY #16 +^0 ASL ACCUMLO + ROL ACCUMHI + ROL REMAINLO + ROL REMAINHI + SEC + LDA REMAINLO + SBC ACCUM2LO + TAX + LDA REMAINHI + SBC ACCUM2HI + BCC >1 + STX REMAINLO + STA REMAINHI + INC ACCUMLO +^1 DEY + BNE <0 + SEC + LDA REMAINLO + ORA REMAINHI + BNE >2 + CLC +^2 LDA ACCUMLO + LDY ACCUMHI + RTS +;----------- +; +; +; + ICL "S:UCAL3" diff --git a/PSC Source Disk 3 - Calendar (v12)/S_UCAL3.txt b/PSC Source Disk 3 - Calendar (v12)/S_UCAL3.txt new file mode 100644 index 0000000..f56ca74 --- /dev/null +++ b/PSC Source Disk 3 - Calendar (v12)/S_UCAL3.txt @@ -0,0 +1,578 @@ +; +; S:UCAL3 +; +; More menus +; +; SELTYPE :select calendar type +; SELGR :select graphic +; SELFONT :select font +; CREDIT2 :type in credit line +; PRINMENU:print menu +; SELCOLOR:select colors +; +;----------- +; +TXTCHOO BYT 'CHOOSE ',0 +TXTFROM BYT 'FROM ',0 +TXTPS BYT 'PRINT SHOP',0 +TXTC BYT 'COMPANION',0 +; +TXTFOD BYT 'FROM OTHER' +TXTSD BYT ' ' +TXTD BYT 'DISK',0 +; +TXTGTMM BYT 'GO TO MAIN MENU',0 +TXTRET BYT '',0 +;----------- +STY = 64 +; +; Select type of calendar +; +SELTYPE JSR CLS1 + JSR PRINT + .DA #PRLOC,140,#STY + BYT PRCNTR + .DA #PRSTR,TXTCHOO + .DA #PRSTR,TXTCAL,':',#CR + BYT CR,CR + BYT 'MONTHLY',CR + BYT 'WEEKLY',CR + .DA #PRSTR,TXTFOD,#CR + BRK +^0 LDY CLTYPE +; + JSR SELECT + BYT 10,20,STY+23,3 + ADR RTS +; + BCS >2 +; +; If we are switching type +; of calendar, then you better +; erase the COBUFFER +; + TYA + PHA + CMP CLTYPE + BEQ >1 + JSR CLRCOBUF +^1 CLC + PLA + STA CLTYPE + TAY +; + JSR JMPVECTS + ADR RTS + ADR RTS + ADR LOADCAL +^2 RTS +;--- +; +; Load calendar from disk +; +LOADCAL JSR SETCAL + SEC + JSR GETFILE + JSR TPTITLE2 + BCC <2 + JMP SELTYPE +;----------- +SLMY = 50 +; +; Select graphic +; +SELGR JSR CLS1 + JSR PRINT + .DA #PRLOC,140,#SLMY + BYT PRCNTR + .DA #PRSTR,TXTCHOO,'A ' + .DA #PRSTR,TXTGR,':',#CR + BYT CR,CR + .DA #PRSTR,TXTFROM,#PRSTR,TXTPS,#PRSTR,TXTSD,#CR + .DA #PRSTR,TXTFROM,#PRSTR,TXTC,#PRSTR,TXTSD,#CR + .DA #PRSTR,TXTFOD,#CR + .DA 'NO ',#PRSTR,TXTGR,#CR + BRK + LDY GRSEL + JSR SELECT + BYT 6,28,SLMY+23,4 + ADR RTS + STY GRSEL + BCS >0 +; + LDX #1 + JSR FIXCOLOR +; + JSR JMPVECTS + ADR SGPSD + ADR SGCD + ADR SGOD + ADR RTS +^0 RTS +; +; From Print Shop disk +; +SGPSD LDA GRNUM + LDX #GRBUFF + LDY /GRBUFF + JSR GETPDISK + BCS >1 + STA GRNUM +^0 RTS +; +; From Companion disk +; +SGCD LDA #2 + CLC + HEX 24 +; +; From other disk +; +SGOD SEC + PHP + JSR SETTYPE +TXTGR BYT 'GRAPHIC',0 +TXTCAL BYT 'CALENDAR',0 + BYT 0 + BYT 4 + ADR GRBUFF + ADR $240 + PLP + JSR GETFILE + JSR TPTITLE2 + BCC <0 +^1 JMP SELGR +;----------- +; +; Select Font +; +SELFONT LDY FONTSEL + CLC + JSR FGETMAIN + STY FONTSEL + BCS >0 +; + LDX #0 + JSR FIXCOLOR +; + JSR >1 + BCS SELFONT +^0 RTS +; +^1 JSR JMPVECTS + ADR SFPSD + ADR SFCD + ADR SFOD + ADR RTS +; +; Font from Print Shop disk +; +SFPSD LDY FONTPSD + JSR FGETPSD + STY FONTPSD + RTS +; +; Font from Companion disk +; +SFCD LDY FONTCD + JSR FGETCD + STY FONTCD + RTS +; +; Font from other disk +; +SFOD JSR SETTYPE +TXTFONT BYT 'FONT',0 + BYT 'CALENDAR FONT',0 + BYT 'FONT.',0 + BYT 0 + ADR FONTBUFF + ADR 0 + SEC + JSR GETFILE +; +; Turn off list indicators from +; the Font Editor +; + LDY #'Z'-$20 +^0 LDA FONTBUFF+12,Y + AND #$7F + STA FONTBUFF+12,Y + DEY + BPL <0 +; + JMP TPTITLE2 +;----------- +; +; Credit line +; +CREDIT2 JSR CLS1 + JSR PRINT + BYT PRCNTR + .DA #PRLOC,140 + BYT CRY1-22 + BYT 'TYPE ONE-LINER FOR',CR + BYT 'BOTTOM OF ' + .DA #PRSTR,TXTCAL + BYT CR,0 + LDX #CRXB-1 + LDY #CRY1 + LDA #19 + JSR DRAWBOX + JMP CREDIT +;----------- +PRMY = 32 +; +; Print menu +; +PRINMENC CLC + HEX B0 +PRINMENU SEC + JSR PRTITLE + JSR CLS1 + JSR PRINT + BYT PRCNTR + .DA #PRLOC,140,#PRMY + BYT 'MAKE SURE PRINTER IS READY',CR + BYT 'AND CHOOSE OPTION(S):',CR + BYT CR,CR,CR + BYT 'SET NUMBER OF COPIES',CR + BYT 'TEST PAPER POSITION',CR + BYT '**** PRINT ****',CR + .DA 'SAVE THIS ',#PRSTR,TXTCAL,#CR + BYT 'START FROM SCRATCH',CR + .DA 'GOODBYE: ',#PRSTR,TXTGTMM,#CR + BRK +; +PRINMEN2 LDY PRSEL + JSR SELECT + BYT 5,30,PRMY+39,6 + ADR RTS + STY PRSEL + BCS >0 +; + JSR JMPVECTS + ADR PRSETNUM + ADR PRTESTP + ADR PRPRINT + ADR PRSAVE + ADR PSCRATCH + ADR PRGOMENU +; +^0 RTS +;--- +; +; Set number of copies +; +PRSETNUM JSR PRINT + .DA #PRLOC,44,#136 + BYT 'HOW MANY COPIES DO YOU',CR + BYT 'WISH TO PRINT?',CR,0 +; + LDA #99 + STA TMP0 + LDX #165 + LDY #144 + LDA PRCOPIES + JSR GETANUMB + BCS >0 + STA PRCOPIES + INC PRSEL +; +^0 JSR PRINT + BYT RTOSBLAK,1,136,38,16,0 + JMP PRINMEN2 +;--- +; +; Test paper position +; +PRTESTP JSR DEVICEOF + JSR TESTPAPR + JSR DEVICEON + JMP PRINMEN2 +;--- +; +; Print the calendar +; +PRPRINT JSR DEVICEOF +; + LDA PRCOPIES + STA COPYCONT + JSR DOCALEN +; + JSR DEVICEON + JMP PRINMENC +;--- +; +; Save calendar to data disk +; +PRSAVE JSR SETCAL + LDA #0 + STA PRSEL + JSR SAVEFILE + LDA #3 + STA PRSEL + JMP PRINMENC +;--- +; +; Go back to main menu +; +PRGOMENU JSR PRINT + BYT PRCNTR + .DA #PRLOC,140,#167 + .DA #PRSTR,TXTRET + BYT ' TO ' + .DA #PRSTR,TXTGTMM,#CR + BYT 'OR',CR,0 + JSR GETKEY + CMP #CR + BEQ >1 +^0 JSR PRINT + BYT RTOSBLAK,1,167,38,16,0 + JMP PRINMEN2 +; +^1 JMP MAINMENU +;--- +; +; Start from scratch +; +PSCRATCH JSR PRINT + BYT PRCNTR + .DA #PRLOC,140,#167 + .DA #PRSTR,TXTRET + BYT ' TO START OVER',CR + BYT 'OR',CR,0 + JSR GETKEY + CMP #CR + BNE <0 + CLC + RTS +;----------- +; +; Set file info for calendar +; +SETCAL LDY DBUFENDL + LDA DBUFENDH + SEC + SBC /COBUFF + STY SETCALEN + STA SETCALEN+1 + JSR SETTYPE + BYT 'CALENDAR',0 + BYT 'CALENDAR',0 + BYT 'CALE.',0 + BYT 0 + ADR COBUFF +SETCALEN ADR 0 +^9 RTS +;----------- +; +; FIX color selections for +; graphics and fonts. +; +FIXCOLOR PHP + LDA COLORFLG + CMP #$FF + BNE >1 + LDA #8 + CPY #NOGR ; NOFONT + BEQ >0 + EOR DCOLOR0,X + BNE >1 +^0 STA DCOLOR0,X +^1 PLP + RTS +;----------- +; +; Color selection menu +; +SELCOLOR JSR PRTITLE +; +; Is this menu available??? +; + LDY COLORPR + BEQ <9 + LDY COLORFLG + INY + BNE <9 +; + JSR CLS1 + JSR PRINT + BYT PRCNTR + .DA #PRLOC,140,#32 + .DA #PRSTR,TXTCHOO + BYT 'COLORS:',CR +; + BYT PRLEFT + .DA #PRLOC,69,#56 + .DA #PRSTR,TXTFONT,#CR + .DA #PRSTR,TXTGR,#CR + BYT 'LINES',CR + BYT 'NOTES',CR + BRK +; +; Display colors +; + LDA #3 +^0 PHA + STA TMP0 + JSR SLRSHOW + PLA + SEC + SBC #1 + BPL <0 +; + JSR SLRAROWS + JSR PRINT + .DA #PRLOC,44,#128 + BYT 'USE',PRRTAB,68 + BYT ' TO SELECT ITEM',CR + BYT CR + BYT 'PRESS TO CHANGE',CR + BYT 'COLORS OF SELECTED ITEM',CR + BYT CR + BYT 'PRESS ' + .DA #PRSTR,TXTRET + BYT ' WHEN DONE',CR + BRK +; +^0 LDX #0 +^1 STX TMP0 +^2 JSR SLRHILIT + JSR GETKEY + PHA + JSR SLRHILIT + PLA + LDX TMP0 + LDY DCOLOR0,X + JSR PARSE + .DA #CR,SLRDONE + .DA #ESC,SLRESC + .DA #$08,SLRUP + .DA #$0B,SLRUP + .DA #$15,SLRDOWN + .DA #$0A,SLRDOWN + .DA #$20,SLRSPACE + BRK + JMP <2 +; +SLRUP DEX + BPL <1 + LDX #2 +SLRDOWN INX + CPX #4 + BLT <1 + BEQ <0 +; +SLRSPACE CPY #8 + BEQ <2 + INY + TYA + CMP #8 + BLT *+4 + LDA #0 + STA DCOLOR0,X + JSR SLRSHOW + JMP <2 +;--- +; +; Highlite current color item +; +SLRHILIT LDA TMP0 + ASL + ASL + ASL + ADC #55 + STA >0+2 + JSR PRINT +^0 BYT RTOSINV,9,00,14,9 + BRK +SLRESC SEC + RTS +SLRDONE CLC + RTS +;--- +; +; Given A=color#, show current setting +; +SLRSHOW LDA TMP0 + TAY + ASL + ASL + ASL + ADC #56 + STA SCMOD0+2 + STA SCMOD1+3 +; +; Point to text +; + LDX DCOLOR0,Y + LDY #$FF +^0 DEX + BMI >2 +^1 INY + LDA COLORTXT,Y + BNE <1 + BEQ <0 +^2 INY + TYA + CLC + ADC #COLORTXT + STA SCMOD2+1 + LDA /COLORTXT + ADC #0 + STA SCMOD2+2 +; +; Erase and show color +; + JSR PRINT +SCMOD0 BYT RTOSBLAK,24,00,15,7 +SCMOD1 .DA #PRLOC,169,#00 +SCMOD2 .DA #PRSTR,$FFFF,#NOCR + BRK + RTS +;--- +COLORTXT BYT 'BLACK',0 + BYT 'RED',0 + BYT 'ORANGE',0 + BYT 'YELLOW',0 + BYT 'GREEN',0 + BYT 'BLUE',0 + BYT 'PURPLE',0 + BYT 'RAINBOW',0 + BYT ' ----',0 +;----------- +AROWX = 12 +AROWY = 128 +; +SLRAROWS LDA $FA68 + CMP #$C0 + BEQ ARROW2E + LDA $FBB3 + CMP #$06 + BEQ ARROW2E +;--- +; LEFT + JSR PICDRAW + BYT AROWX,AROWY+1,1,5 + HEX 0C06C1060C +; RIGHT + JSR PICDRAW + BYT AROWX+2,AROWY+1,1,5 + HEX 1830C13018 + RTS +;--- +; DOWN +ARROW2E JSR PICDRAW + BYT AROWX,AROWY,1,7 + HEX 0808086B3E1C08 +; UP + JSR PICDRAW + BYT AROWX+2,AROWY,1,7 + HEX 081C3E6B080808 + RTS +;----------- +; +; +; + ICL "S:UCAL4" diff --git a/PSC Source Disk 3 - Calendar (v12)/S_UCAL4.txt b/PSC Source Disk 3 - Calendar (v12)/S_UCAL4.txt new file mode 100644 index 0000000..f282bb2 --- /dev/null +++ b/PSC Source Disk 3 - Calendar (v12)/S_UCAL4.txt @@ -0,0 +1,819 @@ +; +; S:UCAL4 +; +; Calendar user interface menus +; +; +; SELDATE : given MNDATE as default, +; draws miniature calendar +; and allows user to select +; new date. Returns new date +; in X and in MNDATE. +; +; SELWDATE: given MNWDATE as default, +; draws miniature weekly +; calendar and allows user +; to select which piece to +; edit. Returns # in X and +; in MNWDATE. 7=DONE +; +;----------- +; +; Select day of month +; +; Miniature calendar width, height +; +HBW = 3 +HBW2 = HBW*7 +HBH = 18 +; +; Location of miniature calendar +; +HBM = 4 +HBM2 = HBM*7 +HBY = 61 +;--- +HBZ EPZ $80 +; +HCALX EPZ HBZ +HCALY EPZ HBZ+1 +HCLSTFLG EPZ HBZ+2 +HCDAYOWK EPZ HBZ+3 +HCMNLAST EPZ HBZ+4 +HCGKFLAG EPZ HBZ+5 +HCDVX EPZ HBZ+6 +HCDVY EPZ HBZ+7 +HCDWIDTH EPZ HBZ+8 +HCMNLST7 EPZ HBZ+9 +HWPIECE EPZ HBZ+10 +HWSTRING EPZ HBZ+11 +HWDONE EPZ HBZ+12 +;----------- +; +; See above explanation +; +SELDATE JSR CLS1 + LDY #1 + JSR CALCDAY + LDX MNLAST + LDA CLTYPE + BNE >0 +;----------- +; +; Monthly date selection, +; with DONE box. +; + INX + STX HCMNLAST + LDY #24 + JSR SLDHELP1 + JSR HCALEN + JMP HGETDATE +;----------- +; +; Weekly date selection +; +^0 STX HCMNLAST + JSR PRINT + BYT PRCNTR + .DA #PRLOC,140,#19 + BYT 'SELECT THE FIRST DAY FOR',CR + BYT 'YOUR WEEKLY ' + .DA #PRSTR,TXTCAL,#CR + BRK + JSR HCALEN + JSR SLDHELP + JSR PRINT + BYT PRCNTR + BYT 'WHEN DONE',CR,0 + JMP HGETDATE +;----------- +; +; Show help information +; +HBHELPX = 32 +; +SLDHELP1 STY >0+3 + JSR PRINT + BYT PRCNTR +^0 .DA #PRLOC,140,#00 + BYT 'HIGHLIGHT SPECIAL OCCASIONS',CR,0 + JSR SLDHELP + JSR PRINT + BYT PRCNTR + BYT 'TO ENTER',CR + BYT 'TEXT',CR,0 + RTS +; +SLDHELP LDX #HBHELPX-3 + LDY #HBY-12 + LDA #0 + JSR SHOWAROW + JSR PRINT + BYT PRCNTR + .DA #PRLOC,HBHELPX*7,#HBY+36 + BYT 'MOVE',CR + BYT 'CURSOR',CR + BYT 'TO SELECT',CR + BYT 'DATE',CR,CR + BYT 'PRESS',CR + .DA #PRSTR,TXTRET,#CR + BRK + RTS +;----------- +; +; Draw miniature calendar +; +HCALEN JSR PRINT + BYT PRSPC,9 + BYT PRCNTR + .DA #PRLOC,HBM2+73,#HBY-18 + .DA #PRSTR,MONTHTXT,', ' + .DA #PRSTR,YEARTEXT,#CR +; + .DA #PRHTAB,HBM2+HBW2/2 + BYT 'S',NOCR + BYT PRRTAB2,HBW2,'M',NOCR + BYT PRRTAB2,HBW2,'T',NOCR + BYT PRRTAB2,HBW2,'W',NOCR + BYT PRRTAB2,HBW2,'T',NOCR + BYT PRRTAB2,HBW2,'F',NOCR + BYT PRRTAB2,HBW2,'S',NOCR + BRK +; +; Draw all the dates +; + LDY #1 +^0 STY DATE + JSR HCDATE + LDY DATE + INY + CPY HCMNLAST + BLT <0 + BEQ <0 + RTS +;--- +HCDATE JSR HCXYCALC + STA HCALX + STY HCALY + LDA HCWX2,X + STA >0+1 + STY >0+3 + JSR PRINT +^0 .DA #PRLOC,0,#0,#0 +; +; Draw the frame +; + LDA HCALX + JSR HCDVLIN + LDA HCALX + CLC + ADC HCDWIDTH + JSR HCDVLIN +; + LDA #14 + SEC + SBC MNFDAY + CMP DATE + BLT >1 + LDA HCALY + JSR HCDHLIN +^1 LDA HCALY + CLC + ADC #HBH + JSR HCDHLIN +; +; "DONE" box? +; + LDY DATE + CPY MNLAST + BLT >1 + BEQ >1 +; + LDA HCALY + JSR HCDHLIN + JSR PRINT + BYT PRSPC,5,CR + BYT PRRTAB2,5 + BYT 'DONE',CR,0 + RTS +; +; Check to see if any data +; if so, put * under date. +; +^1 LDA MNLAST + EOR HCMNLAST + BEQ >2 +; +; BUT only for monthly !!! +; + LDA #'*' + LDX DBUFPNTH-1,Y + BNE >3 +^2 LDA #NOCR +^3 STA >4+2 +; +; Print number +; + JSR MAKEDTXT + JSR PRINT + BYT PRSPC,2,CR,PRSPC,8 + BYT PRRTAB2,4 + .DA #PRSTR,DATETEXT,#CR +^4 BYT PRRTAB,3,'?',NOCR + BRK + RTS +;--- +; +; Draw horizontal line +; +HCDHLIN LDX HCALX + LDY HCDWIDTH + STX >0+1 + STA >0+2 + STA >1+2 + STY >0+3 + TXA + CLC + ADC HCDWIDTH + STA >1+1 + JSR PRINT +^0 BYT RTOSWITE,00,00,HBW,1 + BYT RTOSANY +^1 BYT $03,00,00,1,1,0 + RTS +;--- +; +; Draw vertical line +; +HCDVLIN LDY HCALY + INY + STY >0+2 + STA >0+1 + JSR PRINT + BYT RTOSANY +^0 BYT $03,00,01,1,HBH,0 + RTS +;--- +; +; Calculate screen address in X,Y +; given DATE +; +; returns A:X byte offset +; Y:Y byte offset +; X:lookup table index, 0-6 +; (used for X-bit offset) +; HCWIDTH:width of box +; +HCXYCALC LDA DATE + CMP MNLAST + BEQ >0 + BLT >0 +; +; "DONE" box if DATE > MNLAST +; + LDA #HBW*2 + STA HCDWIDTH + LDA #HBM+2+HBW*2 + LDY #158 + LDX #7 + RTS +; +^0 LDY #HBW + STY HCDWIDTH + CLC + ADC MNFDAY + SBC #0 + LDX #$FF +^1 INX + SEC + SBC #7 + BCS <1 + ADC #7 + LDY HCWY,X + TAX + LDA HCWX,X + RTS +;--- +; +; X-byte location +; +HCWX BYT HBM,HBM+HBW,HBM+HBW*2 + BYT HBM+HBW*3,HBM+HBW*4 + BYT HBM+HBW*5,HBM+HBW*6 +; +; X-bit location +; +HCWX2 BYT HBM2,HBM2+HBW2,HBM2+HBW2*2 + BYT HBM2+HBW2*3,HBM2+HBW2*4 + BYT HBM2+HBW2*5,HBM2+HBW2*6 + BYT HBM2+14+HBW2*2 +; +; Y-byte location +; +HCWY BYT HBY,HBY+HBH,HBY+HBH*2 + BYT HBY+HBH*3,HBY+HBH*4 + BYT HBY+HBH*5 +;----------- +; +; Move cursor around to select date +; +HGETDATE LDX MNDATE + BNE *+3 + INX + CPX HCMNLAST + BLT *+4 + LDX HCMNLAST + STX DATE + LDA HCMNLAST + CLC + ADC #7 + STA HCMNLST7 +HGETDAT2 ASL HCGKFLAG + JSR HGETDVRD + STX HCDVX + STY HCDVY +; +^0 INC HCGKFLAG + JSR HCCURSOR + JSR FLSHINIT +; +^1 JSR HGETDVRD + BCS >2 + ASL + BMI >2 + BCS >3 + JSR HGETDEVC +; +^2 JSR POLEKEY + BMI >4 + DEC FLASHLO + BNE <1 + DEC FLASHHI + BPL <1 + BMI <0 +; +^3 LDA #CR +; +; Key pressed +; +^4 JSR HCCURSOF + LDX DATE + JSR PARSE + .DA #CR,HCGDCR + .DA #ESC,HCGDESC + .DA #'I',HCGDUP + .DA #$0B,HCGDUP + .DA #'M',HCGDDOWN + .DA #$0A,HCGDDOWN + .DA #'J',HCGDLEFT + .DA #$08,HCGDLEFT + .DA #'K',HCGDRITE + .DA #$15,HCGDRITE + BRK + JMP HGETDAT2 +;--- +; +; Handle input device +; +HGETDEVC CPX HCDVX + BNE >0 + CPY HCDVY + BNE >0 + RTS +; +; Device moved +; +^0 JSR HGETDVST + JSR HCCURSOF +; +; Compute date given X,Y coordinates +; + LDA HCDVX + LDY HCDVY +^1 CLC + ADC #7 + DEY + BPL <1 + SBC #6 + SBC MNFDAY + LDY #0 + TAX +^2 PLA + PLA + TXA + JMP HGETDVAD +;--- +; +; Do device clamping +; +HGETDVST BIT RTS + CPX #7 + BLT >0 + LDX #6 + CLV +^0 CPY #8 + BLT >1 + LDY #7 + CLV +^1 STX HCDVX + STY HCDVY + BVS >2 + TXA + ASL + ASL + ASL + TAX + TYA + ASL + ASL + TAY + JSR DEVICEST +^2 RTS +;--- +; +; Get scaled values from input device +; +HGETDVRD LDY #0 + JSR DEVICERD + PHP + PHA + TXA + LSR + LSR + LSR + TAX + TYA + LSR + LSR + TAY + PLA + PLP + RTS +;--- +HCCURSOF LSR HCGKFLAG + PHA + BCC >8 + PLA +; +; Plot cursor +; +HCCURSOR PHA + JSR HCXYCALC + TAX + STX >0+2 + INX + STX >1+1 +; + INY + STY >0+3 + STY >1+2 +; + LDX HCDWIDTH + DEX + STX >1+3 + JSR PRINT +^0 BYT RTOSANY,$FC,00,01,1,HBH-1 +^1 BYT RTOSINV,01,01,HBW-1,HBH-1,0 +^8 PLA + RTS +;--- +HCGDCR CLC + HEX 24 +HCGDESC SEC + PHP + CPX HCMNLAST + BLT >0 + LDX HCMNLAST +^0 STX MNDATE + PLP + RTS +; +HCGDUP LDY #0 + HEX 2C +HCGDDOWN LDY #1 + HEX 2C +HCGDLEFT LDY #2 + HEX 2C +HCGDRITE LDY #3 +; + DEX + TXA + CLC + ADC HCGDTBL0,Y +HGETDVAD: + BPL >0 + SEC + SBC HCGDTBL0,Y +; +^0 TAX + INX + CPX HCMNLST7 + BLT >1 + DEX + TXA + SBC #7 + BCS <0 +; +; If no DONE box, then clamp. +; +^1 LDA HCMNLAST + CMP MNLAST + BNE >2 + CPX HCMNLAST + BLT >2 + TAX +; +^2 STX DATE + JMP HGETDAT2 +; +HCGDTBL0 BYT 0-7,7,0-1,1 +;----------- +; +; Select which piece of weekly +; calendar to edit. +; +HWX = 5 +HWX2 = HWX*7 +HWY = 37 +HWX2L = 140 +HWW = 6 +HWH = 18 +HWX2LMAX = 91 +; +SELWDATE JSR CLS1 + LDA MNDATE + STA DATE + JSR MAKEDTXT + LDY #19 + JSR SLDHELP1 + JSR PRINT + BYT PRCSPACE,1 + BYT PRCNTR + .DA #PRLOC,140,#19+8 + BYT 'FOR THE WEEK OF ' + .DA #PRSTR,MONTHTXT,' ' + .DA #PRSTR,DATETEXT,', ' + .DA #PRSTR,YEARTEXT,#CR +; +; Draw border +; + BYT RTOSANY,$60,HWX-1,HWY,1,1+8*HWH + BYT RTOSANY,$03,HWX+6,HWY,1,1+8*HWH + BYT RTOSANY,$60,HWX+19,HWY,1,1+7*HWH + BRK +; +; Fill in the blanks +; + JSR SWDOWEEK + LDX MNWDATE +; +; Select new MNWDATE +; +NEWPIECE STX HWPIECE + ASL HCGKFLAG + JSR HGETDVRD + STX HCDVX + STY HCDVY +; +^0 INC HCGKFLAG + JSR WKCURSOR + JSR FLSHINIT +; +^1 JSR HGETDVRD + BCS >2 + ASL + BMI >2 + BCS >3 + JSR WKDEVICE + BNE NEWPIECE +; +^2 JSR POLEKEY + BMI >4 + DEC FLASHLO + BNE <1 + DEC FLASHHI + BPL <1 + BMI <0 +; +^3 LDA #CR +; +^4 JSR WKCURSOF + LDX HWPIECE + JSR PARSE + .DA #CR,WKGDCR + .DA #ESC,WKGDESC + .DA #'I',WKGDUP + .DA #$0B,WKGDUP + .DA #$08,WKGDUP + .DA #'M',WKGDDOWN + .DA #$0A,WKGDDOWN + .DA #$15,WKGDDOWN + BRK + JMP NEWPIECE +; +WKGDCR CLC + HEX 24 +WKGDESC SEC + STX MNWDATE + RTS +; +WKGDUP DEX + BPL >0 + LDX #6 +; +WKGDDOWN INX + CPX #8 + BLT >0 + LDX #0 +^0 JMP NEWPIECE +;--- +; +; Handle input device +; +WKDEVICE CPX HCDVX + BNE >0 + CPY HCDVY + BNE >0 + RTS +; +^0 JSR HGETDVST + JSR WKCURSOF + LDX HCDVY + LDA #1 + RTS +;--- +; +; Turn off cursor +; +WKCURSOF LSR HCGKFLAG + PHA + BCC >1 + PLA +; +; Toggle cursor +; +WKCURSOR PHA + JSR SWDYCALC + INY + STY >0+2 + JSR PRINT +^0 BYT RTOSINV,HWX,01,HWW,HWH-1,0 +^1 PLA + RTS +;--- +; +; Draw mini-cal +; +SWDOWEEK LDA #0 + LDX MNDATE + LDY MNFDAY +; +^0 STA HWPIECE + STX DATE + STY HCDAYOWK + JSR SWDDODAY + LDX DATE + INX + CPX MNLAST + BEQ >1 + BLT >1 + LDX #1 +^1 LDY HCDAYOWK + INY + CPY #7 + BLT >2 + LDY #0 +^2 LDA HWPIECE + CLC + ADC #1 + CMP #8 + BLT <0 + RTS +;----------- +; +; Draw day of week, given +; +; given:HWPIECE : 0-7 +; DATE : 1-31 +; HCDAYOWK: 0-6 +; +SWDDODAY LDY HCDAYOWK + JSR MAKEWTXT + LDA #0 + STA WEEKTEXT+3 + JSR MAKEDTXT +; + LDA HWPIECE + CMP #7 + ROR HWDONE +; +; Draw top line +; + JSR SWDYCALC + STY >0+2 + STY >1+3 + INY + STY GRAPHY + JSR LINES + BYT "H",HWX-1 +^0 BYT WITE,5,HWY,HWX2L + BYT WITE,5,HWY+8*HWH,44 + BYT 1 +; +; +; Next draw text +; + JSR PRINT +^1 .DA #PRLOC,HWX2+21,#00 + BRK +; + BIT HWDONE + BPL >2 +;--- +; +; DONE box +; + JSR PRINT + BYT PRCNTR + BYT PRSPC,5,CR + BYT 'DONE',CR,0 + RTS +;--- +; +; Day of week box +; +^2 JSR PRINT + BYT PRCNTR + BYT PRSPC,2,CR,PRSPC,8 + .DA #PRSTR,WEEKTEXT,#CR + .DA #PRSTR,DATETEXT,#CR + BRK +;--- +; +; Now do this really clever thing here +; with the data in the buffer, sort +; of a graph indicating how much data +; has been typed in!!!! +; + LDA HWPIECE + ASL + ASL + STA HWSTRING +; + LDA #4 +SWDGLOOP PHA +; +; Get length of string +; + LDY HWSTRING + INC HWSTRING + JSR GETTEXT + TYA + ASL + CMP #HWX2LMAX + BLT *+4 + LDA #HWX2LMAX + STA GRAPHY+1 +; +; Now draw the line +; + LDA #3 +^0 PHA + INC GRAPHY + LDA TEXTBUFF + BEQ >1 +; + JSR LINES + BYT "H",HWX-1 + BYT WITE,52,00,11 +GRAPHY = *-2 + BYT 1 +; +^1 PLA + SEC + SBC #1 + BNE <0 + INC GRAPHY + PLA + SBC #1 + BNE SWDGLOOP + RTS +;----------- +; +; Given HWPIECE, compute Y-offset +; and self modify code. +; +SWDYCALC LDX HWPIECE + LDY >0+0,X + RTS +; +^0 BYT HWY,HWY+HWH,HWY+2*HWH + BYT HWY+3*HWH,HWY+4*HWH + BYT HWY+5*HWH,HWY+6*HWH + BYT HWY+7*HWH +;----------- +; +; +; + ICL "S:UCAL5" diff --git a/PSC Source Disk 3 - Calendar (v12)/S_UCAL5.txt b/PSC Source Disk 3 - Calendar (v12)/S_UCAL5.txt new file mode 100644 index 0000000..c8e46d4 --- /dev/null +++ b/PSC Source Disk 3 - Calendar (v12)/S_UCAL5.txt @@ -0,0 +1,160 @@ +; +; S:UCAL5 +; +; Credit line stuff that didn't fit +; in ICAL. CRBLAK/CRDRAW +; +; INITCAL:move code to homes +; +;----------- +; +; Routine to erase current line +; +CRBLAK LDY CRLINE + LDA TEXTBUFF + BNE >0 + STA CRLINE + TAY + JSR >0 + LDY #1 +; +^0 LDA CRYTBL,Y + STA >1+2 + JSR PRINT +^1 BYT RTOSBLAK,CRXB,00 + BYT CRXMAXB,7,0 + LDY #TEXTBUFF + LDA /TEXTBUFF + STY TMP2 + STA TMP3 + RTS +;--- +; +; Draw +; +CRDRAW LDY CRLINE + JSR CRDRAW2 + LDY CRLINE + BNE >1 +; + LDA TEXTBUFF,X + BEQ CRRTS + INC CRLINE + BNE CRDRAW +; +^1 LDX CRPOS,Y + LDA TEXTBUFF,X + BNE CRRTS + DEC CRLINE + BEQ CRDRAW +;--- +; +; Given Y=0 or 1, draw given line +; +CRDRAW2 STY CRLINE + LDA CRYTBL,Y + STA >2+3 + LDX CRPOS,Y + STX >3+1 + LDA #0 + DEX +^0 INX + LDY TEXTBUFF,X + BEQ >1 + CLC + ADC UFONTW-$20,Y + ADC #2 + CMP #CRXMAX+1 + BLT <0 +; +^1 LDA TEXTBUFF,X + PHA + LDA #0 + STA TEXTBUFF,X + TXA + PHA +; + JSR PRINT +^2 .DA #PRLOC,CRX,#00 +^3 .DA #PRSTR,TEXTBUFF + BYT NOCR,0 +; + PLA + TAX + PLA + STA TEXTBUFF,X +; + LDY CRLINE + BEQ >4 + LDA #0 + STA TEXTBUFF,X +CRRTS RTS +; +^4 STX CRPOS+1 + RTS +; +CRYTBL BYT CRY1+2 + BYT CRY1+10 +CRPOS BYT 0 + BYT 0 +;----------- +; +; Initialize all the external +; subroutines, move them to their +; homes. +; +SRCLO EPZ $3A +SRCHI EPZ $3B +DSTLO EPZ $3C +DSTHI EPZ $3D +LENLO EPZ $3E +LENHI EPZ $3F +; +INITCAL LDY #EXTERNAL + LDA /EXTERNAL + STY SRCLO + STA SRCHI + LDY #0 +; +^0 JSR MOVEGET + STA DSTLO + JSR MOVEGET + STA DSTHI + ORA DSTLO + BEQ MOVERTS + JSR MOVEGET + TAX + JSR MOVEGET + STA LENHI +; +^1 JSR MOVEGET + STA (DSTLO),Y + INC DSTLO + BNE >2 + INC DSTHI +^2 TXA + BNE >3 + DEC LENHI +^3 DEX + BNE <1 + TXA + ORA LENHI + BNE <1 + BEQ <0 +; +; Get a byte from program data +; +MOVEGET LDA (SRCLO),Y + INC SRCLO + BNE MOVERTS + INC SRCHI +MOVERTS RTS +;----------- +; +; +EXTERNAL: +; +; + USR "UCAL",ORG +; + ICL "S:COMMON" diff --git a/PSC Source Disk 3 - Calendar (v12)/UCAL.txt b/PSC Source Disk 3 - Calendar (v12)/UCAL.txt new file mode 100644 index 0000000..0f6b99c --- /dev/null +++ b/PSC Source Disk 3 - Calendar (v12)/UCAL.txt @@ -0,0 +1,2179 @@ +4000- 4C 2C 40 JMP $402C +4003- 4C 2C 40 JMP $402C +4006- 4C E6 4F JMP $4FE6 +4009- 4C 0D 50 JMP $500D +400C- C3 ??? +400D- CF ??? +400E- D0 D9 BNE $3FE9 +4010- D2 C9 CMP ($C9) +4012- C7 ??? +4013- C8 INY +4014- D4 ??? +4015- A0 B1 LDY #$B1 +4017- B9 B8 B5 LDA $B5B8,Y +401A- A0 D2 LDY #$D2 +401C- CF ??? +401D- CC C1 CE CPY $CEC1 +4020- C4 A0 CPY $A0 +4022- C7 ??? +4023- D5 D3 CMP $D3,X +4025- D4 ??? +4026- C1 C6 CMP ($C6,X) +4028- D3 ??? +4029- D3 ??? +402A- CF ??? +402B- CE 2C 83 DEC $832C +402E- C0 2C CPY #$2C +4030- 83 ??? +4031- C0 20 CPY #$20 +4033- 7B ??? +4034- 50 20 BVC $4056 +4036- 00 BRK +4037- 7B ??? +4038- 20 96 40 JSR $4096 +403B- 20 00 E0 JSR $E000 +403E- 06 8C ASL $8C +4040- 00 BRK +4041- 46 00 LSR $00 +4043- A9 0D LDA #$0D +4045- 20 63 E0 JSR $E063 +4048- 90 03 BCC $404D +404A- 4C 00 08 JMP $0800 +404D- 20 5E 45 JSR $455E +4050- 90 05 BCC $4057 +4052- 20 81 E0 JSR $E081 +4055- B0 F6 BCS $404D +4057- 20 BE 45 JSR $45BE +405A- B0 F1 BCS $404D +405C- 20 98 41 JSR $4198 +405F- B0 F6 BCS $4057 +4061- 20 B2 42 JSR $42B2 +4064- B0 F6 BCS $405C +4066- 20 30 43 JSR $4330 +4069- B0 F6 BCS $4061 +406B- 20 53 46 JSR $4653 +406E- B0 F6 BCS $4066 +4070- 20 94 40 JSR $4094 +4073- 20 15 7B JSR $7B15 +4076- B0 F3 BCS $406B +4078- 20 A6 40 JSR $40A6 +407B- 20 F8 40 JSR $40F8 +407E- B0 F0 BCS $4070 +4080- 20 B9 40 JSR $40B9 +4083- 20 BE 46 JSR $46BE +4086- B0 F0 BCS $4078 +4088- 20 E6 48 JSR $48E6 +408B- B0 F3 BCS $4080 +408D- 20 F9 46 JSR $46F9 +4090- B0 F6 BCS $4088 +4092- 90 A1 BCC $4035 +4094- 90 0F BCC $40A5 +4096- 08 PHP +4097- 20 DE 40 JSR $40DE +409A- 20 00 E0 JSR $E000 +409D- 08 PHP +409E- 02 ??? +409F- 54 ??? +40A0- 4F ??? +40A1- 50 0D BVC $40B0 +40A3- 00 BRK +40A4- 28 PLP +40A5- 60 RTS +40A6- 08 PHP +40A7- 20 DE 40 JSR $40DE +40AA- 20 00 E0 JSR $E000 +40AD- 08 PHP +40AE- 02 ??? +40AF- 43 ??? +40B0- 45 4E EOR $4E +40B2- 54 ??? +40B3- 45 52 EOR $52 +40B5- 0D 00 28 ORA $2800 +40B8- 60 RTS +40B9- 20 DE 40 JSR $40DE +40BC- 20 00 E0 JSR $E000 +40BF- 08 PHP +40C0- 02 ??? +40C1- 42 ??? +40C2- 4F ??? +40C3- 54 ??? +40C4- 54 ??? +40C5- 4F ??? +40C6- 4D 0D 00 EOR $000D +40C9- 60 RTS +40CA- B0 11 BCS $40DD +40CC- 08 PHP +40CD- 20 DE 40 JSR $40DE +40D0- 20 00 E0 JSR $E000 +40D3- 08 PHP +40D4- 02 ??? +40D5- 50 52 BVC $4129 +40D7- 49 4E EOR #$4E +40D9- 54 ??? +40DA- 0D 00 28 ORA $2800 +40DD- 60 RTS +40DE- 20 06 E0 JSR $E006 +40E1- 20 09 E0 JSR $E009 +40E4- 20 00 E0 JSR $E000 +40E7- 06 88 ASL $88 +40E9- 00 BRK +40EA- 04 04 TSB $04 +40EC- 02 ??? +40ED- 09 38 ORA #$38 +40EF- 46 3A LSR $3A +40F1- 0D 06 92 ORA $9206 +40F4- 00 BRK +40F5- 01 00 ORA ($00,X) +40F7- 60 RTS +40F8- AD 00 D0 LDA $D000 +40FB- D0 51 BNE $414E +40FD- 20 BB 4A JSR $4ABB +4100- B0 4B BCS $414D +4102- EC 0D D0 CPX $D00D +4105- F0 02 BEQ $4109 +4107- B0 43 BCS $414C +4109- 20 18 7B JSR $7B18 +410C- 90 EF BCC $40FD +410E- 20 72 E0 JSR $E072 +4111- 20 45 E0 JSR $E045 +4114- 20 00 E0 JSR $E000 +4117- 05 06 ORA $06 +4119- 8C 00 42 STY $4200 +411C- 53 ??? +411D- 4F ??? +411E- 52 52 EOR ($52) +4120- 59 2C 20 EOR $202C,Y +4123- 4F ??? +4124- 55 54 EOR $54,X +4126- 20 4F 46 JSR $464F +4129- 20 4D 45 JSR $454D +412C- 4D 4F 52 EOR $524F +412F- 59 0D 0D EOR $0D0D,Y +4132- 55 4E EOR $4E,X +4134- 41 42 EOR ($42,X) +4136- 4C 45 20 JMP $2045 +4139- 54 ??? +413A- 4F ??? +413B- 20 53 54 JSR $5453 +413E- 4F ??? +413F- 52 45 EOR ($45) +4141- 2E 2E 2E ROL $2E2E +4144- 0D 00 20 ORA $2000 +4147- 60 RTS +4148- E0 4C CPX #$4C +414A- FD 40 18 SBC $1840,X +414D- 60 RTS +414E- B0 0B BCS $415B +4150- 20 BB 4A JSR $4ABB +4153- B0 F8 BCS $414D +4155- AC 0A D0 LDY $D00A +4158- 20 2A 44 JSR $442A +415B- 20 25 4E JSR $4E25 +415E- B0 F0 BCS $4150 +4160- E0 07 CPX #$07 +4162- F0 E8 BEQ $414C +4164- 20 1B 7B JSR $7B1B +4167- 4C 5B 41 JMP $415B +416A- 4C 45 46 JMP $4645 +416D- 54 ??? +416E- 20 43 4F JSR $4F43 +4171- 52 4E EOR ($4E) +4173- 45 52 EOR $52 +4175- 00 BRK +4176- 52 49 EOR ($49) +4178- 47 ??? +4179- 48 PHA +417A- 54 ??? +417B- 20 43 4F JSR $4F43 +417E- 52 4E EOR ($4E) +4180- 45 52 EOR $52 +4182- 00 BRK +4183- 42 ??? +4184- 4F ??? +4185- 54 ??? +4186- 48 PHA +4187- 20 43 4F JSR $4F43 +418A- 52 4E EOR ($4E) +418C- 45 52 EOR $52 +418E- 53 ??? +418F- 00 BRK +4190- 52 4F EOR ($4F) +4192- 57 ??? +4193- 20 4F 46 JSR $464F +4196- 20 00 AD JSR $AD00 +4199- 01 D0 ORA ($D0,X) +419B- 49 03 EOR #$03 +419D- F0 7B BEQ $421A +419F- 20 72 E0 JSR $E072 +41A2- 20 00 E0 JSR $E000 +41A5- 05 06 ORA $06 +41A7- 8C 00 1C STY $1C00 +41AA- 53 ??? +41AB- 45 4C EOR $4C +41AD- 45 43 EOR $43 +41AF- 54 ??? +41B0- 20 09 30 JSR $3009 +41B3- 46 20 LSR $20 +41B5- 50 4F BVC $4206 +41B7- 53 ??? +41B8- 49 54 EOR #$54 +41BA- 49 4F EOR #$4F +41BC- 4E 3A 0D LSR $0D3A +41BF- 0D 09 6A ORA $6A09 +41C2- 41 0D EOR ($0D,X) +41C4- 09 76 ORA #$76 +41C6- 41 0D EOR ($0D,X) +41C8- 09 83 ORA #$83 +41CA- 41 0D EOR ($0D,X) +41CC- 09 90 ORA #$90 +41CE- 41 53 EOR ($53,X) +41D0- 49 58 EOR #$58 +41D2- 0D 54 49 ORA $4954 +41D5- 4C 45 44 JMP $4445 +41D8- 0D 09 6A ORA $6A09 +41DB- 41 0D EOR ($0D,X) +41DD- 09 76 ORA #$76 +41DF- 41 0D EOR ($0D,X) +41E1- 09 83 ORA #$83 +41E3- 41 0D EOR ($0D,X) +41E5- 09 90 ORA #$90 +41E7- 41 54 EOR ($54,X) +41E9- 48 PHA +41EA- 52 45 EOR ($45) +41EC- 45 0D EOR $0D +41EE- 54 ??? +41EF- 49 4C EOR #$4C +41F1- 45 44 EOR $44 +41F3- 0D 11 60 ORA $6011 +41F6- 08 PHP +41F7- 88 DEY +41F8- 01 1E ORA ($1E,X) +41FA- 11 03 ORA ($03),Y +41FC- 1F ??? +41FD- 88 DEY +41FE- 01 1E ORA ($1E,X) +4200- 10 09 BPL $420B +4202- 88 DEY +4203- 16 01 ASL $01,X +4205- 10 09 BPL $4210 +4207- A5 16 LDA $16 +4209- 01 00 ORA ($00,X) +420B- AC 03 D0 LDY $D003 +420E- 20 28 E0 JSR $E028 +4211- 0A ASL +4212- 14 2B TRB $2B +4214- 0A ASL +4215- 1B ??? +4216- 42 ??? +4217- 8C 03 D0 STY $D003 +421A- 60 RTS +421B- 48 PHA +421C- 20 00 E0 JSR $E000 +421F- 0F ??? +4220- 09 89 ORA #$89 +4222- 16 15 ASL $15,X +4224- 00 BRK +4225- 68 PLA +4226- 4A LSR +4227- AA TAX +4228- A0 78 LDY #$78 +422A- A9 42 LDA #$42 +422C- E0 05 CPX #$05 +422E- 90 04 BCC $4234 +4230- A0 90 LDY #$90 +4232- A9 42 LDA #$42 +4234- 8C 4C 42 STY $424C +4237- 8D 4D 42 STA $424D +423A- BD 5A 42 LDA $425A,X +423D- 85 D3 STA $D3 +423F- BD 64 42 LDA $4264,X +4242- 85 D4 STA $D4 +4244- BD 6E 42 LDA $426E,X +4247- 85 D5 STA $D5 +4249- A6 D3 LDX $D3 +424B- 20 FF FF JSR $FFFF +424E- A5 D3 LDA $D3 +4250- 18 CLC +4251- 65 D5 ADC $D5 +4253- 85 D3 STA $D3 +4255- C6 D4 DEC $D4 +4257- D0 F0 BNE $4249 +4259- 60 RTS +425A- 09 1D ORA #$1D +425C- 09 09 ORA #$09 +425E- 0A ASL +425F- 09 1B ORA #$1B +4261- 09 0A ORA #$0A +4263- 0A ASL +4264- 01 01 ORA ($01,X) +4266- 02 ??? +4267- 06 0A ASL $0A +4269- 01 01 ORA ($01,X) +426B- 02 ??? +426C- 03 ??? +426D- 05 00 ORA $00 +426F- 00 BRK +4270- 14 04 TRB $04 +4272- 02 ??? +4273- 00 BRK +4274- 00 BRK +4275- 12 08 ORA ($08) +4277- 04 8E TSB $8E +4279- 84 42 STY $42 +427B- E8 INX +427C- 8E 8A 42 STX $428A +427F- 20 00 E0 JSR $E000 +4282- 11 7E ORA ($7E),Y +4284- 00 BRK +4285- 8F ??? +4286- 01 0A ORA ($0A,X) +4288- 11 3F ORA ($3F),Y +428A- 01 8F ORA ($8F,X) +428C- 01 0A ORA ($0A,X) +428E- 00 BRK +428F- 60 RTS +4290- 8E A1 42 STX $42A1 +4293- E8 INX +4294- 8E A6 42 STX $42A6 +4297- E8 INX +4298- E8 INX +4299- 8E AC 42 STX $42AC +429C- 20 00 E0 JSR $E000 +429F- 11 7E ORA ($7E),Y +42A1- 00 BRK +42A2- 8A TXA +42A3- 01 14 ORA ($14,X) +42A5- 10 01 BPL $42A8 +42A7- 8A TXA +42A8- 02 ??? +42A9- 14 11 TRB $11 +42AB- 3F ??? +42AC- 03 ??? +42AD- 8A TXA +42AE- 01 14 ORA ($14,X) +42B0- 00 BRK +42B1- 60 RTS +42B2- 20 72 E0 JSR $E072 +42B5- 20 00 E0 JSR $E000 +42B8- 06 3D ASL $3D +42BA- 00 BRK +42BB- 45 57 EOR $57 +42BD- 48 PHA +42BE- 41 54 EOR ($54,X) +42C0- 20 59 45 JSR $4559 +42C3- 41 52 EOR ($52,X) +42C5- 20 49 53 JSR $5349 +42C8- 20 54 48 JSR $4854 +42CB- 49 53 EOR #$53 +42CD- 0D 09 38 ORA $3809 +42D0- 46 20 LSR $20 +42D2- 46 4F LSR $4F +42D4- 52 20 EOR ($20) +42D6- 3F ??? +42D7- 0D 0D 3E ORA $3E0D +42DA- 0D 0D 28 ORA $280D +42DD- 31 37 AND ($37),Y +42DF- 35 33 AND $33,X +42E1- 2D 39 39 AND $3939 +42E4- 39 39 29 AND $2939,Y +42E7- 0D 00 20 ORA $2000 +42EA- 6F ??? +42EB- E0 04 CPX #$04 +42ED- D0 04 BNE $42F3 +42EF- 46 00 LSR $00 +42F1- 5D B0 3B EOR $3BB0,X +42F4- 20 E1 43 JSR $43E1 +42F7- A0 20 LDY #$20 +42F9- A2 04 LDX #$04 +42FB- A9 D0 LDA #$D0 +42FD- 86 D7 STX $D7 +42FF- 85 D8 STA $D8 +4301- 90 06 BCC $4309 +4303- 20 66 E0 JSR $E066 +4306- 4C E9 42 JMP $42E9 +4309- 8E 20 43 STX $4320 +430C- 8D 21 43 STA $4321 +430F- 8C 2A 43 STY $432A +4312- 20 03 7B JSR $7B03 +4315- A9 80 LDA #$80 +4317- 8D 00 96 STA $9600 +431A- A0 FF LDY #$FF +431C- C8 INY +431D- B1 D7 LDA ($D7),Y +431F- 99 FF FF STA $FFFF,Y +4322- 99 01 96 STA $9601,Y +4325- D0 F5 BNE $431C +4327- B0 05 BCS $432E +4329- A0 00 LDY #$00 +432B- 20 06 7B JSR $7B06 +432E- 18 CLC +432F- 60 RTS +4330- 20 72 E0 JSR $E072 +4333- 20 00 E0 JSR $E000 +4336- 05 06 ORA $06 +4338- 8C 00 22 STY $2200 +433B- 09 12 ORA #$12 +433D- 45 41 EOR $41 +433F- 20 4D 4F JSR $4F4D +4342- 4E 54 48 LSR $4854 +4345- 3A DEC +4346- 0D 0D 00 ORA $000D +4349- 20 75 E0 JSR $E075 +434C- 05 0C ORA $0C +434E- 8B ??? +434F- 43 ??? +4350- AC 09 D0 LDY $D009 +4353- 20 28 E0 JSR $E028 +4356- 0D 0E 31 ORA $310E +4359- 0C 58 FF TSB $FF58 F8ROM:IORTS +435C- 8C 09 D0 STY $D009 +435F- B0 CE BCS $432F +4361- BE 73 43 LDX $4373,Y +4364- B9 7F 43 LDA $437F,Y +4367- 86 D7 STX $D7 +4369- 85 D8 STA $D8 +436B- A2 40 LDX #$40 +436D- A9 7A LDA #$7A +436F- A0 1F LDY #$1F +4371- 90 96 BCC $4309 +4373- 8B ??? +4374- 93 ??? +4375- 9C A2 A8 STZ $A8A2 +4378- AC B1 B6 LDY $B6B1 +437B- BD C7 CF LDA $CFC7,X +437E- D8 CLD +437F- 43 ??? +4380- 43 ??? +4381- 43 ??? +4382- 43 ??? +4383- 43 ??? +4384- 43 ??? +4385- 43 ??? +4386- 43 ??? +4387- 43 ??? +4388- 43 ??? +4389- 43 ??? +438A- 43 ??? +438B- 4A LSR +438C- 41 4E EOR ($4E,X) +438E- 55 41 EOR $41,X +4390- 52 59 EOR ($59) +4392- 00 BRK +4393- 46 45 LSR $45 +4395- 42 ??? +4396- 52 55 EOR ($55) +4398- 41 52 EOR ($52,X) +439A- 59 00 4D EOR $4D00,Y +439D- 41 52 EOR ($52,X) +439F- 43 ??? +43A0- 48 PHA +43A1- 00 BRK +43A2- 41 50 EOR ($50,X) +43A4- 52 49 EOR ($49) +43A6- 4C 00 4D JMP $4D00 +43A9- 41 59 EOR ($59,X) +43AB- 00 BRK +43AC- 4A LSR +43AD- 55 4E EOR $4E,X +43AF- 45 00 EOR $00 +43B1- 4A LSR +43B2- 55 4C EOR $4C,X +43B4- 59 00 41 EOR $4100,Y +43B7- 55 47 EOR $47,X +43B9- 55 53 EOR $53,X +43BB- 54 ??? +43BC- 00 BRK +43BD- 53 ??? +43BE- 45 50 EOR $50 +43C0- 54 ??? +43C1- 45 4D EOR $4D +43C3- 42 ??? +43C4- 45 52 EOR $52 +43C6- 00 BRK +43C7- 4F ??? +43C8- 43 ??? +43C9- 54 ??? +43CA- 4F ??? +43CB- 42 ??? +43CC- 45 52 EOR $52 +43CE- 00 BRK +43CF- 4E 4F 56 LSR $564F +43D2- 45 4D EOR $4D +43D4- 42 ??? +43D5- 45 52 EOR $52 +43D7- 00 BRK +43D8- 44 ??? +43D9- 45 43 EOR $43 +43DB- 45 4D EOR $4D +43DD- 42 ??? +43DE- 45 52 EOR $52 +43E0- 00 BRK +43E1- A0 00 LDY #$00 +43E3- 84 72 STY $72 +43E5- 84 73 STY $73 +43E7- B9 04 D0 LDA $D004,Y +43EA- C9 30 CMP #$30 +43EC- 90 3A BCC $4428 +43EE- C9 3A CMP #$3A +43F0- B0 36 BCS $4428 +43F2- 29 0F AND #$0F +43F4- 48 PHA +43F5- A6 73 LDX $73 +43F7- A5 72 LDA $72 +43F9- 0A ASL +43FA- 26 73 ROL $73 +43FC- 0A ASL +43FD- 26 73 ROL $73 +43FF- 65 72 ADC $72 +4401- 85 72 STA $72 +4403- 8A TXA +4404- 65 73 ADC $73 +4406- 85 73 STA $73 +4408- 06 72 ASL $72 +440A- 26 73 ROL $73 +440C- 68 PLA +440D- 65 72 ADC $72 +440F- 85 72 STA $72 +4411- 90 02 BCC $4415 +4413- E6 73 INC $73 +4415- C8 INY +4416- C0 04 CPY #$04 +4418- 90 CD BCC $43E7 +441A- A4 72 LDY $72 +441C- A5 73 LDA $73 +441E- C9 06 CMP #$06 +4420- D0 02 BNE $4424 +4422- C0 D9 CPY #$D9 +4424- 90 02 BCC $4428 +4426- 18 CLC +4427- 60 RTS +4428- 38 SEC +4429- 60 RTS +442A- 88 DEY +442B- 84 D9 STY $D9 +442D- 20 E1 43 JSR $43E1 +4430- A4 72 LDY $72 +4432- A5 73 LDA $73 +4434- 84 70 STY $70 +4436- 85 71 STA $71 +4438- 20 AD 44 JSR $44AD +443B- A9 1C LDA #$1C +443D- 69 00 ADC #$00 +443F- 8D 8D 44 STA $448D +4442- A6 72 LDX $72 +4444- D0 02 BNE $4448 +4446- C6 73 DEC $73 +4448- C6 72 DEC $72 +444A- 20 C7 44 JSR $44C7 +444D- 20 A2 44 JSR $44A2 +4450- 20 CA 44 JSR $44CA +4453- 20 98 44 JSR $4498 +4456- 20 D0 44 JSR $44D0 +4459- 20 A2 44 JSR $44A2 +445C- A0 00 LDY #$00 +445E- AE 09 D0 LDX $D009 +4461- BD 8C 44 LDA $448C,X +4464- 8D 0D D0 STA $D00D +4467- CA DEX +4468- 30 08 BMI $4472 +446A- BD 8C 44 LDA $448C,X +446D- 20 A2 44 JSR $44A2 +4470- 90 F5 BCC $4467 +4472- A5 D9 LDA $D9 +4474- 20 A2 44 JSR $44A2 +4477- A4 70 LDY $70 +4479- A5 71 LDA $71 +447B- 84 75 STY $75 +447D- 85 76 STA $76 +447F- A9 07 LDA #$07 +4481- A0 00 LDY #$00 +4483- 20 DC 44 JSR $44DC +4486- A5 79 LDA $79 +4488- 8D 0C D0 STA $D00C +448B- 60 RTS +448C- 1F ??? +448D- 1C 1F 1E TRB $1E1F +4490- 1F ??? +4491- 1E 1F 1F ASL $1F1F,X +4494- 1E 1F 1E ASL $1E1F,X +4497- 1F ??? +4498- 49 FF EOR #$FF +449A- 48 PHA +449B- 98 TYA +449C- 49 FF EOR #$FF +449E- A8 TAY +449F- 68 PLA +44A0- 38 SEC +44A1- 24 18 BIT $18 +44A3- 65 70 ADC $70 +44A5- 85 70 STA $70 +44A7- 98 TYA +44A8- 65 71 ADC $71 +44AA- 85 71 STA $71 +44AC- 60 RTS +44AD- 06 74 ASL $74 +44AF- 20 C7 44 JSR $44C7 +44B2- B0 02 BCS $44B6 +44B4- E6 74 INC $74 +44B6- 20 CA 44 JSR $44CA +44B9- B0 02 BCS $44BD +44BB- C6 74 DEC $74 +44BD- 20 D0 44 JSR $44D0 +44C0- B0 02 BCS $44C4 +44C2- E6 74 INC $74 +44C4- 66 74 ROR $74 +44C6- 60 RTS +44C7- A9 04 LDA #$04 +44C9- 2C A9 64 BIT $64A9 +44CC- A0 00 LDY #$00 +44CE- F0 04 BEQ $44D4 +44D0- A9 90 LDA #$90 +44D2- A0 01 LDY #$01 +44D4- A6 72 LDX $72 +44D6- 86 75 STX $75 +44D8- A6 73 LDX $73 +44DA- 86 76 STX $76 +44DC- 85 77 STA $77 +44DE- 84 78 STY $78 +44E0- A9 00 LDA #$00 +44E2- 85 79 STA $79 +44E4- 85 7A STA $7A +44E6- A0 10 LDY #$10 +44E8- 06 75 ASL $75 +44EA- 26 76 ROL $76 +44EC- 26 79 ROL $79 +44EE- 26 7A ROL $7A +44F0- 38 SEC +44F1- A5 79 LDA $79 +44F3- E5 77 SBC $77 +44F5- AA TAX +44F6- A5 7A LDA $7A +44F8- E5 78 SBC $78 +44FA- 90 06 BCC $4502 +44FC- 86 79 STX $79 +44FE- 85 7A STA $7A +4500- E6 75 INC $75 +4502- 88 DEY +4503- D0 E3 BNE $44E8 +4505- 38 SEC +4506- A5 79 LDA $79 +4508- 05 7A ORA $7A +450A- D0 01 BNE $450D +450C- 18 CLC +450D- A5 75 LDA $75 +450F- A4 76 LDY $76 +4511- 60 RTS +4512- 43 ??? +4513- 48 PHA +4514- 4F ??? +4515- 4F ??? +4516- 53 ??? +4517- 45 20 EOR $20 +4519- 00 BRK +451A- 46 52 LSR $52 +451C- 4F ??? +451D- 4D 20 00 EOR $0020 +4520- 50 52 BVC $4574 +4522- 49 4E EOR #$4E +4524- 54 ??? +4525- 20 53 48 JSR $4853 +4528- 4F ??? +4529- 50 00 BVC $452B +452B- 43 ??? +452C- 4F ??? +452D- 4D 50 41 EOR $4150 +4530- 4E 49 4F LSR $4F49 +4533- 4E 00 46 LSR $4600 +4536- 52 4F EOR ($4F) +4538- 4D 20 4F EOR $4F20 +453B- 54 ??? +453C- 48 PHA +453D- 45 52 EOR $52 +453F- 20 44 49 JSR $4944 +4542- 53 ??? +4543- 4B ??? +4544- 00 BRK +4545- 47 ??? +4546- 4F ??? +4547- 20 54 4F JSR $4F54 +454A- 20 4D 41 JSR $414D +454D- 49 4E EOR #$4E +454F- 20 4D 45 JSR $454D +4552- 4E 55 00 LSR $0055 +4555- 3C 52 45 BIT $4552,X +4558- 54 ??? +4559- 55 52 EOR $52,X +455B- 4E 3E 00 LSR $003E +455E- 20 72 E0 JSR $E072 +4561- 20 00 E0 JSR $E000 +4564- 06 8C ASL $8C +4566- 00 BRK +4567- 40 RTI +4568- 05 09 ORA $09 +456A- 12 45 ORA ($45) +456C- 09 38 ORA #$38 +456E- 46 3A LSR $3A +4570- 0D 0D 0D ORA $0D0D +4573- 4D 4F 4E EOR $4E4F +4576- 54 ??? +4577- 48 PHA +4578- 4C 59 0D JMP $0D59 +457B- 57 ??? +457C- 45 45 EOR $45 +457E- 4B ??? +457F- 4C 59 0D JMP $0D59 +4582- 09 35 ORA #$35 +4584- 45 0D EOR $0D +4586- 00 BRK +4587- AC 00 D0 LDY $D000 +458A- 20 28 E0 JSR $E028 +458D- 0A ASL +458E- 14 57 TRB $57 +4590- 03 ??? +4591- 58 CLI +4592- FF ??? +4593- B0 19 BCS $45AE +4595- 98 TYA +4596- 48 PHA +4597- CD 00 D0 CMP $D000 +459A- F0 03 BEQ $459F +459C- 20 00 7B JSR $7B00 +459F- 18 CLC +45A0- 68 PLA +45A1- 8D 00 D0 STA $D000 +45A4- A8 TAY +45A5- 20 4B E0 JSR $E04B +45A8- 58 CLI +45A9- FF ??? +45AA- 58 CLI +45AB- FF ??? +45AC- AF ??? +45AD- 45 60 EOR $60 +45AF- 20 9E 48 JSR $489E +45B2- 38 SEC +45B3- 20 2E E0 JSR $E02E +45B6- 20 96 40 JSR $4096 +45B9- 90 F3 BCC $45AE +45BB- 4C 5E 45 JMP $455E +45BE- 20 72 E0 JSR $E072 +45C1- 20 00 E0 JSR $E000 +45C4- 06 8C ASL $8C +45C6- 00 BRK +45C7- 32 05 AND ($05) +45C9- 09 12 ORA #$12 +45CB- 45 41 EOR $41 +45CD- 20 09 30 JSR $3009 +45D0- 46 3A LSR $3A +45D2- 0D 0D 0D ORA $0D0D +45D5- 09 1A ORA #$1A +45D7- 45 09 EOR $09 +45D9- 20 45 09 JSR $0945 +45DC- 3F ??? +45DD- 45 0D EOR $0D +45DF- 09 1A ORA #$1A +45E1- 45 09 EOR $09 +45E3- 2B ??? +45E4- 45 09 EOR $09 +45E6- 3F ??? +45E7- 45 0D EOR $0D +45E9- 09 35 ORA #$35 +45EB- 45 0D EOR $0D +45ED- 4E 4F 20 LSR $204F +45F0- 09 30 ORA #$30 +45F2- 46 0D LSR $0D +45F4- 00 BRK +45F5- AC 01 D0 LDY $D001 +45F8- 20 28 E0 JSR $E028 +45FB- 06 1C ASL $1C +45FD- 49 04 EOR #$04 +45FF- 58 CLI +4600- FF ??? +4601- 8C 01 D0 STY $D001 +4604- B0 10 BCS $4616 +4606- A2 01 LDX #$01 +4608- 20 CE 48 JSR $48CE +460B- 20 4B E0 JSR $E04B +460E- 17 ??? +460F- 46 27 LSR $27 +4611- 46 2B LSR $2B +4613- 46 58 LSR $58 +4615- FF ??? +4616- 60 RTS +4617- AD 02 D0 LDA $D002 +461A- A2 00 LDX #$00 +461C- A0 78 LDY #$78 +461E- 20 7E E0 JSR $E07E +4621- B0 2D BCS $4650 +4623- 8D 02 D0 STA $D002 +4626- 60 RTS +4627- A9 02 LDA #$02 +4629- 18 CLC +462A- 24 38 BIT $38 +462C- 08 PHP +462D- 20 2B E0 JSR $E02B +4630- 47 ??? +4631- 52 41 EOR ($41) +4633- 50 48 BVC $467D +4635- 49 43 EOR #$43 +4637- 00 BRK +4638- 43 ??? +4639- 41 4C EOR ($4C,X) +463B- 45 4E EOR $4E +463D- 44 ??? +463E- 41 52 EOR ($52,X) +4640- 00 BRK +4641- 00 BRK +4642- 04 00 TSB $00 +4644- 78 SEI +4645- 40 RTI +4646- 02 ??? +4647- 28 PLP +4648- 20 2E E0 JSR $E02E +464B- 20 96 40 JSR $4096 +464E- 90 D6 BCC $4626 +4650- 4C BE 45 JMP $45BE +4653- AC 0E D0 LDY $D00E +4656- 18 CLC +4657- 20 03 08 JSR $0803 +465A- 8C 0E D0 STY $D00E +465D- B0 0A BCS $4669 +465F- A2 00 LDX #$00 +4661- 20 CE 48 JSR $48CE +4664- 20 6A 46 JSR $466A +4667- B0 EA BCS $4653 +4669- 60 RTS +466A- 20 4B E0 JSR $E04B +466D- 75 46 ADC $46,X +466F- 7F ??? +4670- 46 89 LSR $89 +4672- 46 58 LSR $58 +4674- FF ??? +4675- AC 0F D0 LDY $D00F +4678- 20 06 08 JSR $0806 +467B- 8C 0F D0 STY $D00F +467E- 60 RTS +467F- AC 10 D0 LDY $D010 +4682- 20 09 08 JSR $0809 +4685- 8C 10 D0 STY $D010 +4688- 60 RTS +4689- 20 2B E0 JSR $E02B +468C- 46 4F LSR $4F +468E- 4E 54 00 LSR $0054 +4691- 43 ??? +4692- 41 4C EOR ($4C,X) +4694- 45 4E EOR $4E +4696- 44 ??? +4697- 41 52 EOR ($52,X) +4699- 20 46 4F JSR $4F46 +469C- 4E 54 00 LSR $0054 +469F- 46 4F LSR $4F +46A1- 4E 54 2E LSR $2E54 +46A4- 00 BRK +46A5- 00 BRK +46A6- F4 ??? +46A7- 5F ??? +46A8- 00 BRK +46A9- 00 BRK +46AA- 38 SEC +46AB- 20 2E E0 JSR $E02E +46AE- A0 3A LDY #$3A +46B0- B9 00 60 LDA $6000,Y +46B3- 29 7F AND #$7F +46B5- 99 00 60 STA $6000,Y +46B8- 88 DEY +46B9- 10 F5 BPL $46B0 +46BB- 4C 96 40 JMP $4096 +46BE- 20 72 E0 JSR $E072 +46C1- 20 00 E0 JSR $E000 +46C4- 05 06 ORA $06 +46C6- 8C 00 38 STY $3800 +46C9- 54 ??? +46CA- 59 50 45 EOR $4550,Y +46CD- 20 4F 4E JSR $4E4F +46D0- 45 2D EOR $2D +46D2- 4C 49 4E JMP $4E49 +46D5- 45 52 EOR $52 +46D7- 20 46 4F JSR $4F46 +46DA- 52 0D EOR ($0D) +46DC- 42 ??? +46DD- 4F ??? +46DE- 54 ??? +46DF- 54 ??? +46E0- 4F ??? +46E1- 4D 20 4F EOR $4F20 +46E4- 46 20 LSR $20 +46E6- 09 38 ORA #$38 +46E8- 46 0D LSR $0D +46EA- 00 BRK +46EB- A2 03 LDX #$03 +46ED- A0 4E LDY #$4E +46EF- A9 13 LDA #$13 +46F1- 20 21 7B JSR $7B21 +46F4- 4C 1E 7B JMP $7B1E +46F7- 18 CLC +46F8- B0 38 BCS $4732 +46FA- 20 CA 40 JSR $40CA +46FD- 20 72 E0 JSR $E072 +4700- 20 00 E0 JSR $E000 +4703- 05 06 ORA $06 +4705- 8C 00 20 STY $2000 +4708- 4D 41 4B EOR $4B41 +470B- 45 20 EOR $20 +470D- 53 ??? +470E- 55 52 EOR $52,X +4710- 45 20 EOR $20 +4712- 50 52 BVC $4766 +4714- 49 4E EOR #$4E +4716- 54 ??? +4717- 45 52 EOR $52 +4719- 20 49 53 JSR $5349 +471C- 20 52 45 JSR $4552 +471F- 41 44 EOR ($44,X) +4721- 59 0D 41 EOR $410D,Y +4724- 4E 44 20 LSR $2044 +4727- 43 ??? +4728- 48 PHA +4729- 4F ??? +472A- 4F ??? +472B- 53 ??? +472C- 45 20 EOR $20 +472E- 4F ??? +472F- 50 54 BVC $4785 +4731- 49 4F EOR #$4F +4733- 4E 28 53 LSR $5328 +4736- 29 3A AND #$3A +4738- 0D 0D 0D ORA $0D0D +473B- 0D 53 45 ORA $4553 +473E- 54 ??? +473F- 20 4E 55 JSR $554E +4742- 4D 42 45 EOR $4542 +4745- 52 20 EOR ($20) +4747- 4F ??? +4748- 46 20 LSR $20 +474A- 43 ??? +474B- 4F ??? +474C- 50 49 BVC $4797 +474E- 45 53 EOR $53 +4750- 0D 54 45 ORA $4554 +4753- 53 ??? +4754- 54 ??? +4755- 20 50 41 JSR $4150 +4758- 50 45 BVC $479F +475A- 52 20 EOR ($20) +475C- 50 4F BVC $47AD +475E- 53 ??? +475F- 49 54 EOR #$54 +4761- 49 4F EOR #$4F +4763- 4E 0D 2A LSR $2A0D +4766- 2A ROL +4767- 2A ROL +4768- 2A ROL +4769- 20 20 20 JSR $2020 +476C- 50 52 BVC $47C0 +476E- 49 4E EOR #$4E +4770- 54 ??? +4771- 20 20 20 JSR $2020 +4774- 2A ROL +4775- 2A ROL +4776- 2A ROL +4777- 2A ROL +4778- 0D 53 41 ORA $4153 +477B- 56 45 LSR $45,X +477D- 20 54 48 JSR $4854 +4780- 49 53 EOR #$53 +4782- 20 09 38 JSR $3809 +4785- 46 0D LSR $0D +4787- 53 ??? +4788- 54 ??? +4789- 41 52 EOR ($52,X) +478B- 54 ??? +478C- 20 46 52 JSR $5246 +478F- 4F ??? +4790- 4D 20 53 EOR $5320 +4793- 43 ??? +4794- 52 41 EOR ($41) +4796- 54 ??? +4797- 43 ??? +4798- 48 PHA +4799- 0D 47 4F ORA $4F47 +479C- 4F ??? +479D- 44 ??? +479E- 42 ??? +479F- 59 45 3A EOR $3A45,Y +47A2- 20 09 45 JSR $4509 +47A5- 45 0D EOR $0D +47A7- 00 BRK +47A8- AC 11 D0 LDY $D011 +47AB- 20 28 E0 JSR $E028 +47AE- 05 1E ORA $1E +47B0- 47 ??? +47B1- 06 58 ASL $58 +47B3- FF ??? +47B4- 8C 11 D0 STY $D011 +47B7- B0 0F BCS $47C8 +47B9- 20 4B E0 JSR $E04B +47BC- C9 47 CMP #$47 +47BE- 19 48 25 ORA $2548,Y +47C1- 48 PHA +47C2- 37 ??? +47C3- 48 PHA +47C4- 77 ??? +47C5- 48 PHA +47C6- 4A LSR +47C7- 48 PHA +47C8- 60 RTS +47C9- 20 00 E0 JSR $E000 +47CC- 06 2C ASL $2C +47CE- 00 BRK +47CF- 88 DEY +47D0- 48 PHA +47D1- 4F ??? +47D2- 57 ??? +47D3- 20 4D 41 JSR $414D +47D6- 4E 59 20 LSR $2059 +47D9- 43 ??? +47DA- 4F ??? +47DB- 50 49 BVC $4826 +47DD- 45 53 EOR $53 +47DF- 20 44 4F JSR $4F44 +47E2- 20 59 4F JSR $4F59 +47E5- 55 0D EOR $0D,X +47E7- 57 ??? +47E8- 49 53 EOR #$53 +47EA- 48 PHA +47EB- 20 54 4F JSR $4F54 +47EE- 20 50 52 JSR $5250 +47F1- 49 4E EOR #$4E +47F3- 54 ??? +47F4- 3F ??? +47F5- 0D 00 A9 ORA $A900 +47F8- 63 ??? +47F9- 85 D3 STA $D3 +47FB- A2 A5 LDX #$A5 +47FD- A0 90 LDY #$90 +47FF- AD 12 D0 LDA $D012 +4802- 20 87 E0 JSR $E087 +4805- B0 06 BCS $480D +4807- 8D 12 D0 STA $D012 +480A- EE 11 D0 INC $D011 +480D- 20 00 E0 JSR $E000 +4810- 0F ??? +4811- 01 88 ORA ($88,X) +4813- 26 10 ROL $10 +4815- 00 BRK +4816- 4C A8 47 JMP $47A8 +4819- 20 15 E0 JSR $E015 +481C- 20 84 E0 JSR $E084 +481F- 20 12 E0 JSR $E012 +4822- 4C A8 47 JMP $47A8 +4825- 20 15 E0 JSR $E015 +4828- AD 12 D0 LDA $D012 +482B- 8D 15 18 STA $1815 +482E- 20 00 0F JSR $0F00 +4831- 20 12 E0 JSR $E012 +4834- 4C F7 46 JMP $46F7 +4837- 20 9E 48 JSR $489E +483A- A9 00 LDA #$00 +483C- 8D 11 D0 STA $D011 +483F- 20 31 E0 JSR $E031 +4842- A9 03 LDA #$03 +4844- 8D 11 D0 STA $D011 +4847- 4C F7 46 JMP $46F7 +484A- 20 00 E0 JSR $E000 +484D- 05 06 ORA $06 +484F- 8C 00 A7 STY $A700 +4852- 09 55 ORA #$55 +4854- 45 20 EOR $20 +4856- 54 ??? +4857- 4F ??? +4858- 20 09 45 JSR $4509 +485B- 45 0D EOR $0D +485D- 4F ??? +485E- 52 0D EOR ($0D) +4860- 00 BRK +4861- 20 25 E0 JSR $E025 +4864- C9 0D CMP #$0D +4866- F0 0C BEQ $4874 +4868- 20 00 E0 JSR $E000 +486B- 0F ??? +486C- 01 A7 ORA ($A7,X) +486E- 26 10 ROL $10 +4870- 00 BRK +4871- 4C A8 47 JMP $47A8 +4874- 4C 00 08 JMP $0800 +4877- 20 00 E0 JSR $E000 +487A- 05 06 ORA $06 +487C- 8C 00 A7 STY $A700 +487F- 09 55 ORA #$55 +4881- 45 20 EOR $20 +4883- 54 ??? +4884- 4F ??? +4885- 20 53 54 JSR $5453 +4888- 41 52 EOR ($52,X) +488A- 54 ??? +488B- 20 4F 56 JSR $564F +488E- 45 52 EOR $52 +4890- 0D 4F 52 ORA $524F +4893- 0D 00 20 ORA $2000 +4896- 25 E0 AND $E0 +4898- C9 0D CMP #$0D +489A- D0 CC BNE $4868 +489C- 18 CLC +489D- 60 RTS +489E- AC 13 D0 LDY $D013 +48A1- AD 14 D0 LDA $D014 +48A4- 38 SEC +48A5- E9 D0 SBC #$D0 +48A7- 8C CB 48 STY $48CB +48AA- 8D CC 48 STA $48CC +48AD- 20 2B E0 JSR $E02B +48B0- 43 ??? +48B1- 41 4C EOR ($4C,X) +48B3- 45 4E EOR $4E +48B5- 44 ??? +48B6- 41 52 EOR ($52,X) +48B8- 00 BRK +48B9- 43 ??? +48BA- 41 4C EOR ($4C,X) +48BC- 45 4E EOR $4E +48BE- 44 ??? +48BF- 41 52 EOR ($52,X) +48C1- 00 BRK +48C2- 43 ??? +48C3- 41 4C EOR ($4C,X) +48C5- 45 2E EOR $2E +48C7- 00 BRK +48C8- 00 BRK +48C9- 00 BRK +48CA- D0 00 BNE $48CC +48CC- 00 BRK +48CD- 60 RTS +48CE- 08 PHP +48CF- AD 59 D0 LDA $D059 +48D2- C9 FF CMP #$FF +48D4- D0 0E BNE $48E4 +48D6- A9 08 LDA #$08 +48D8- C0 03 CPY #$03 +48DA- F0 05 BEQ $48E1 +48DC- 5D 5A D0 EOR $D05A,X +48DF- D0 03 BNE $48E4 +48E1- 9D 5A D0 STA $D05A,X +48E4- 28 PLP +48E5- 60 RTS +48E6- 20 CA 40 JSR $40CA +48E9- AC F8 95 LDY $95F8 +48EC- F0 DF BEQ $48CD +48EE- AC 59 D0 LDY $D059 +48F1- C8 INY +48F2- D0 D9 BNE $48CD +48F4- 20 72 E0 JSR $E072 +48F7- 20 00 E0 JSR $E000 +48FA- 05 06 ORA $06 +48FC- 8C 00 20 STY $2000 +48FF- 09 12 ORA #$12 +4901- 45 43 EOR $43 +4903- 4F ??? +4904- 4C 4F 52 JMP $524F +4907- 53 ??? +4908- 3A DEC +4909- 0D 03 06 ORA $0603 +490C- 45 00 EOR $00 +490E- 38 SEC +490F- 09 8C ORA #$8C +4911- 46 0D LSR $0D +4913- 09 30 ORA #$30 +4915- 46 0D LSR $0D +4917- 4C 49 4E JMP $4E49 +491A- 45 53 EOR $53 +491C- 0D 4E 4F ORA $4F4E +491F- 54 ??? +4920- 45 53 EOR $53 +4922- 0D 00 A9 ORA $A900 +4925- 03 ??? +4926- 48 PHA +4927- 85 D3 STA $D3 +4929- 20 00 4A JSR $4A00 +492C- 68 PLA +492D- 38 SEC +492E- E9 01 SBC #$01 +4930- 10 F4 BPL $4926 +4932- 20 77 4A JSR $4A77 +4935- 20 00 E0 JSR $E000 +4938- 06 2C ASL $2C +493A- 00 BRK +493B- 80 55 BRA $4992 +493D- 53 ??? +493E- 45 14 EOR $14 +4940- 44 ??? +4941- 20 54 4F JSR $4F54 +4944- 20 53 45 JSR $4553 +4947- 4C 45 43 JMP $4345 +494A- 54 ??? +494B- 20 49 54 JSR $5449 +494E- 45 4D EOR $4D +4950- 0D 0D 50 ORA $500D +4953- 52 45 EOR ($45) +4955- 53 ??? +4956- 53 ??? +4957- 20 3C 53 JSR $533C +495A- 50 41 BVC $499D +495C- 43 ??? +495D- 45 3E EOR $3E +495F- 20 54 4F JSR $4F54 +4962- 20 43 48 JSR $4843 +4965- 41 4E EOR ($4E,X) +4967- 47 ??? +4968- 45 0D EOR $0D +496A- 43 ??? +496B- 4F ??? +496C- 4C 4F 52 JMP $524F +496F- 53 ??? +4970- 20 4F 46 JSR $464F +4973- 20 53 45 JSR $4553 +4976- 4C 45 43 JMP $4345 +4979- 54 ??? +497A- 45 44 EOR $44 +497C- 20 49 54 JSR $5449 +497F- 45 4D EOR $4D +4981- 0D 0D 50 ORA $500D +4984- 52 45 EOR ($45) +4986- 53 ??? +4987- 53 ??? +4988- 20 09 55 JSR $5509 +498B- 45 20 EOR $20 +498D- 57 ??? +498E- 48 PHA +498F- 45 4E EOR $4E +4991- 20 44 4F JSR $4F44 +4994- 4E 45 0D LSR $0D45 +4997- 00 BRK +4998- A2 00 LDX #$00 +499A- 86 D3 STX $D3 +499C- 20 E9 49 JSR $49E9 +499F- 20 25 E0 JSR $E025 +49A2- 48 PHA +49A3- 20 E9 49 JSR $49E9 +49A6- 68 PLA +49A7- A6 D3 LDX $D3 +49A9- BC 5A D0 LDY $D05A,X +49AC- 20 51 E0 JSR $E051 +49AF- 0D FE 49 ORA $49FE +49B2- 1B ??? +49B3- FC ??? +49B4- 49 08 EOR #$08 +49B6- C8 INY +49B7- 49 0B EOR #$0B +49B9- C8 INY +49BA- 49 15 EOR #$15 +49BC- CD 49 0A CMP $0A49 +49BF- CD 49 20 CMP $2049 +49C2- D4 ??? +49C3- 49 00 EOR #$00 +49C5- 4C 9C 49 JMP $499C +49C8- CA DEX +49C9- 10 CF BPL $499A +49CB- A2 02 LDX #$02 +49CD- E8 INX +49CE- E0 04 CPX #$04 +49D0- 90 C8 BCC $499A +49D2- F0 C4 BEQ $4998 +49D4- C0 08 CPY #$08 +49D6- F0 C4 BEQ $499C +49D8- C8 INY +49D9- 98 TYA +49DA- C9 08 CMP #$08 +49DC- 90 02 BCC $49E0 +49DE- A9 00 LDA #$00 +49E0- 9D 5A D0 STA $D05A,X +49E3- 20 00 4A JSR $4A00 +49E6- 4C 9C 49 JMP $499C +49E9- A5 D3 LDA $D3 +49EB- 0A ASL +49EC- 0A ASL +49ED- 0A ASL +49EE- 69 37 ADC #$37 +49F0- 8D F8 49 STA $49F8 +49F3- 20 00 E0 JSR $E000 +49F6- 17 ??? +49F7- 09 00 ORA #$00 +49F9- 0E 09 00 ASL $0009 +49FC- 38 SEC +49FD- 60 RTS +49FE- 18 CLC +49FF- 60 RTS +4A00- A5 D3 LDA $D3 +4A02- A8 TAY +4A03- 0A ASL +4A04- 0A ASL +4A05- 0A ASL +4A06- 69 38 ADC #$38 +4A08- 8D 32 4A STA $4A32 +4A0B- 8D 38 4A STA $4A38 +4A0E- BE 5A D0 LDX $D05A,Y +4A11- A0 FF LDY #$FF +4A13- CA DEX +4A14- 30 08 BMI $4A1E +4A16- C8 INY +4A17- B9 3F 4A LDA $4A3F,Y +4A1A- D0 FA BNE $4A16 +4A1C- F0 F5 BEQ $4A13 +4A1E- C8 INY +4A1F- 98 TYA +4A20- 18 CLC +4A21- 69 3F ADC #$3F +4A23- 8D 3A 4A STA $4A3A +4A26- A9 4A LDA #$4A +4A28- 69 00 ADC #$00 +4A2A- 8D 3B 4A STA $4A3B +4A2D- 20 00 E0 JSR $E000 +4A30- 0F ??? +4A31- 18 CLC +4A32- 00 BRK +4A33- 0F ??? +4A34- 07 ??? +4A35- 06 A9 ASL $A9 +4A37- 00 BRK +4A38- 00 BRK +4A39- 09 FF ORA #$FF +4A3B- FF ??? +4A3C- 0E 00 60 ASL $6000 +4A3F- 42 ??? +4A40- 4C 41 43 JMP $4341 +4A43- 4B ??? +4A44- 00 BRK +4A45- 52 45 EOR ($45) +4A47- 44 ??? +4A48- 00 BRK +4A49- 4F ??? +4A4A- 52 41 EOR ($41) +4A4C- 4E 47 45 LSR $4547 +4A4F- 00 BRK +4A50- 59 45 4C EOR $4C45,Y +4A53- 4C 4F 57 JMP $574F +4A56- 00 BRK +4A57- 47 ??? +4A58- 52 45 EOR ($45) +4A5A- 45 4E EOR $4E +4A5C- 00 BRK +4A5D- 42 ??? +4A5E- 4C 55 45 JMP $4555 +4A61- 00 BRK +4A62- 50 55 BVC $4AB9 +4A64- 52 50 EOR ($50) +4A66- 4C 45 00 JMP $0045 +4A69- 52 41 EOR ($41) +4A6B- 49 4E EOR #$4E +4A6D- 42 ??? +4A6E- 4F ??? +4A6F- 57 ??? +4A70- 00 BRK +4A71- 20 2D 2D JSR $2D2D +4A74- 2D 2D 00 AND $002D +4A77- AD 68 FA LDA $FA68 +4A7A- C9 C0 CMP #$C0 +4A7C- F0 20 BEQ $4A9E +4A7E- AD B3 FB LDA $FBB3 F8ROM:VERSION +4A81- C9 06 CMP #$06 +4A83- F0 19 BEQ $4A9E +4A85- 20 0C E0 JSR $E00C +4A88- 0C 81 01 TSB $0181 +4A8B- 05 0C ORA $0C +4A8D- 06 C1 ASL $C1 +4A8F- 06 0C ASL $0C +4A91- 20 0C E0 JSR $E00C +4A94- 0E 81 01 ASL $0181 +4A97- 05 18 ORA $18 +4A99- 30 C1 BMI $4A5C +4A9B- 30 18 BMI $4AB5 +4A9D- 60 RTS +4A9E- 20 0C E0 JSR $E00C +4AA1- 0C 80 01 TSB $0180 +4AA4- 07 ??? +4AA5- 08 PHP +4AA6- 08 PHP +4AA7- 08 PHP +4AA8- 6B ??? +4AA9- 3E 1C 08 ROL $081C,X +4AAC- 20 0C E0 JSR $E00C +4AAF- 0E 80 01 ASL $0180 +4AB2- 07 ??? +4AB3- 08 PHP +4AB4- 1C 3E 6B TRB $6B3E +4AB7- 08 PHP +4AB8- 08 PHP +4AB9- 08 PHP +4ABA- 60 RTS +4ABB- 20 72 E0 JSR $E072 +4ABE- A0 01 LDY #$01 +4AC0- 20 2A 44 JSR $442A +4AC3- AE 0D D0 LDX $D00D +4AC6- AD 00 D0 LDA $D000 +4AC9- D0 0E BNE $4AD9 +4ACB- E8 INX +4ACC- 86 84 STX $84 +4ACE- A0 18 LDY #$18 +4AD0- 20 25 4B JSR $4B25 +4AD3- 20 9D 4B JSR $4B9D +4AD6- 4C E2 4C JMP $4CE2 +4AD9- 86 84 STX $84 +4ADB- 20 00 E0 JSR $E000 +4ADE- 05 06 ORA $06 +4AE0- 8C 00 13 STY $1300 +4AE3- 53 ??? +4AE4- 45 4C EOR $4C +4AE6- 45 43 EOR $43 +4AE8- 54 ??? +4AE9- 20 54 48 JSR $4854 +4AEC- 45 20 EOR $20 +4AEE- 46 49 LSR $49 +4AF0- 52 53 EOR ($53) +4AF2- 54 ??? +4AF3- 20 44 41 JSR $4144 +4AF6- 59 20 46 EOR $4620,Y +4AF9- 4F ??? +4AFA- 52 0D EOR ($0D) +4AFC- 59 4F 55 EOR $554F,Y +4AFF- 52 20 EOR ($20) +4B01- 57 ??? +4B02- 45 45 EOR $45 +4B04- 4B ??? +4B05- 4C 59 20 JMP $2059 +4B08- 09 38 ORA #$38 +4B0A- 46 0D LSR $0D +4B0C- 00 BRK +4B0D- 20 9D 4B JSR $4B9D +4B10- 20 64 4B JSR $4B64 +4B13- 20 00 E0 JSR $E000 +4B16- 05 57 ORA $57 +4B18- 48 PHA +4B19- 45 4E EOR $4E +4B1B- 20 44 4F JSR $4F44 +4B1E- 4E 45 0D LSR $0D45 +4B21- 00 BRK +4B22- 4C E2 4C JMP $4CE2 +4B25- 8C 2F 4B STY $4B2F +4B28- 20 00 E0 JSR $E000 +4B2B- 05 06 ORA $06 +4B2D- 8C 00 00 STY $0000 +4B30- 48 PHA +4B31- 49 47 EOR #$47 +4B33- 48 PHA +4B34- 4C 49 47 JMP $4749 +4B37- 48 PHA +4B38- 54 ??? +4B39- 20 53 50 JSR $5053 +4B3C- 45 43 EOR $43 +4B3E- 49 41 EOR #$41 +4B40- 4C 20 4F JMP $4F20 +4B43- 43 ??? +4B44- 43 ??? +4B45- 41 53 EOR ($53,X) +4B47- 49 4F EOR #$4F +4B49- 4E 53 0D LSR $0D53 +4B4C- 00 BRK +4B4D- 20 64 4B JSR $4B64 +4B50- 20 00 E0 JSR $E000 +4B53- 05 54 ORA $54 +4B55- 4F ??? +4B56- 20 45 4E JSR $4E45 +4B59- 54 ??? +4B5A- 45 52 EOR $52 +4B5C- 0D 54 45 ORA $4554 +4B5F- 58 CLI +4B60- 54 ??? +4B61- 0D 00 60 ORA $6000 +4B64- A2 1D LDX #$1D +4B66- A0 31 LDY #$31 +4B68- A9 00 LDA #$00 +4B6A- 20 54 E0 JSR $E054 +4B6D- 20 00 E0 JSR $E000 +4B70- 05 06 ORA $06 +4B72- E0 00 CPX #$00 +4B74- 61 4D ADC ($4D,X) +4B76- 4F ??? +4B77- 56 45 LSR $45,X +4B79- 0D 43 55 ORA $5543 +4B7C- 52 53 EOR ($53) +4B7E- 4F ??? +4B7F- 52 0D EOR ($0D) +4B81- 54 ??? +4B82- 4F ??? +4B83- 20 53 45 JSR $4553 +4B86- 4C 45 43 JMP $4345 +4B89- 54 ??? +4B8A- 0D 44 41 ORA $4144 +4B8D- 54 ??? +4B8E- 45 0D EOR $0D +4B90- 0D 50 52 ORA $5250 +4B93- 45 53 EOR $53 +4B95- 53 ??? +4B96- 0D 09 55 ORA $5509 +4B99- 45 0D EOR $0D +4B9B- 00 BRK +4B9C- 60 RTS +4B9D- 20 00 E0 JSR $E000 +4BA0- 0A ASL +4BA1- 09 05 ORA #$05 +4BA3- 06 65 ASL $65 +4BA5- 00 BRK +4BA6- 2B ??? +4BA7- 09 40 ORA #$40 +4BA9- 7A PLY +4BAA- 2C 20 09 BIT $0920 +4BAD- 04 D0 TSB $D0 +4BAF- 0D 0B 26 ORA $260B +4BB2- 00 BRK +4BB3- 53 ??? +4BB4- 0E 15 15 ASL $1515 +4BB7- 4D 0E 15 EOR $150E +4BBA- 15 54 ORA $54,X +4BBC- 0E 15 15 ASL $1515 +4BBF- 57 ??? +4BC0- 0E 15 15 ASL $1515 +4BC3- 54 ??? +4BC4- 0E 15 15 ASL $1515 +4BC7- 46 0E LSR $0E +4BC9- 15 15 ORA $15,X +4BCB- 53 ??? +4BCC- 0E 00 A0 ASL $A000 +4BCF- 01 84 ORA ($84,X) +4BD1- D9 20 DF CMP $DF20,Y +4BD4- 4B ??? +4BD5- A4 D9 LDY $D9 +4BD7- C8 INY +4BD8- C4 84 CPY $84 +4BDA- 90 F4 BCC $4BD0 +4BDC- F0 F2 BEQ $4BD0 +4BDE- 60 RTS +4BDF- 20 9D 4C JSR $4C9D +4BE2- 85 80 STA $80 +4BE4- 84 81 STY $81 +4BE6- BD D4 4C LDA $4CD4,X +4BE9- 8D F3 4B STA $4BF3 +4BEC- 8C F5 4B STY $4BF5 +4BEF- 20 00 E0 JSR $E000 +4BF2- 06 00 ASL $00 +4BF4- 00 BRK +4BF5- 00 BRK +4BF6- 00 BRK +4BF7- A5 80 LDA $80 +4BF9- 20 89 4C JSR $4C89 +4BFC- A5 80 LDA $80 +4BFE- 18 CLC +4BFF- 65 88 ADC $88 +4C01- 20 89 4C JSR $4C89 +4C04- A9 0E LDA #$0E +4C06- 38 SEC +4C07- ED 0C D0 SBC $D00C +4C0A- C5 D9 CMP $D9 +4C0C- 90 05 BCC $4C13 +4C0E- A5 81 LDA $81 +4C10- 20 62 4C JSR $4C62 +4C13- A5 81 LDA $81 +4C15- 18 CLC +4C16- 69 12 ADC #$12 +4C18- 20 62 4C JSR $4C62 +4C1B- A4 D9 LDY $D9 +4C1D- CC 0D D0 CPY $D00D +4C20- 90 16 BCC $4C38 +4C22- F0 14 BEQ $4C38 +4C24- A5 81 LDA $81 +4C26- 20 62 4C JSR $4C62 +4C29- 20 00 E0 JSR $E000 +4C2C- 0A ASL +4C2D- 05 0D ORA $0D +4C2F- 15 05 ORA $05,X +4C31- 44 ??? +4C32- 4F ??? +4C33- 4E 45 0D LSR $0D45 +4C36- 00 BRK +4C37- 60 RTS +4C38- AD 0D D0 LDA $D00D +4C3B- 45 84 EOR $84 +4C3D- F0 07 BEQ $4C46 +4C3F- A9 2A LDA #$2A +4C41- BE 36 D0 LDX $D036,Y +4C44- D0 02 BNE $4C48 +4C46- A9 0E LDA #$0E +4C48- 8D 5E 4C STA $4C5E +4C4B- 20 0F 7B JSR $7B0F +4C4E- 20 00 E0 JSR $E000 +4C51- 0A ASL +4C52- 02 ??? +4C53- 0D 0A 08 ORA $080A +4C56- 15 04 ORA $04,X +4C58- 09 54 ORA #$54 +4C5A- 7A PLY +4C5B- 0D 14 03 ORA $0314 +4C5E- 3F ??? +4C5F- 0E 00 60 ASL $6000 +4C62- A6 80 LDX $80 +4C64- A4 88 LDY $88 +4C66- 8E 7D 4C STX $4C7D +4C69- 8D 7E 4C STA $4C7E +4C6C- 8D 84 4C STA $4C84 +4C6F- 8C 7F 4C STY $4C7F +4C72- 8A TXA +4C73- 18 CLC +4C74- 65 88 ADC $88 +4C76- 8D 83 4C STA $4C83 +4C79- 20 00 E0 JSR $E000 +4C7C- 10 00 BPL $4C7E +4C7E- 00 BRK +4C7F- 03 ??? +4C80- 01 11 ORA ($11,X) +4C82- 03 ??? +4C83- 00 BRK +4C84- 00 BRK +4C85- 01 01 ORA ($01,X) +4C87- 00 BRK +4C88- 60 RTS +4C89- A4 81 LDY $81 +4C8B- C8 INY +4C8C- 8C 98 4C STY $4C98 +4C8F- 8D 97 4C STA $4C97 +4C92- 20 00 E0 JSR $E000 +4C95- 11 03 ORA ($03),Y +4C97- 00 BRK +4C98- 01 01 ORA ($01,X) +4C9A- 12 00 ORA ($00) +4C9C- 60 RTS +4C9D- A5 D9 LDA $D9 +4C9F- CD 0D D0 CMP $D00D +4CA2- F0 0D BEQ $4CB1 +4CA4- 90 0B BCC $4CB1 +4CA6- A9 06 LDA #$06 +4CA8- 85 88 STA $88 +4CAA- A9 0C LDA #$0C +4CAC- A0 9E LDY #$9E +4CAE- A2 07 LDX #$07 +4CB0- 60 RTS +4CB1- A0 03 LDY #$03 +4CB3- 84 88 STY $88 +4CB5- 18 CLC +4CB6- 6D 0C D0 ADC $D00C +4CB9- E9 00 SBC #$00 +4CBB- A2 FF LDX #$FF +4CBD- E8 INX +4CBE- 38 SEC +4CBF- E9 07 SBC #$07 +4CC1- B0 FA BCS $4CBD +4CC3- 69 07 ADC #$07 +4CC5- BC DC 4C LDY $4CDC,X +4CC8- AA TAX +4CC9- BD CD 4C LDA $4CCD,X +4CCC- 60 RTS +4CCD- 04 07 TSB $07 +4CCF- 0A ASL +4CD0- 0D 10 13 ORA $1310 +4CD3- 16 1C ASL $1C,X +4CD5- 31 46 AND ($46),Y +4CD7- 5B ??? +4CD8- 70 85 BVS $4C5F +4CDA- 9A TXS +4CDB- 54 ??? +4CDC- 3D 4F 61 AND $614F,X +4CDF- 73 ??? +4CE0- 85 97 STA $97 +4CE2- AE 0A D0 LDX $D00A +4CE5- D0 01 BNE $4CE8 +4CE7- E8 INX +4CE8- E4 84 CPX $84 +4CEA- 90 02 BCC $4CEE +4CEC- A6 84 LDX $84 +4CEE- 86 D9 STX $D9 +4CF0- A5 84 LDA $84 +4CF2- 18 CLC +4CF3- 69 07 ADC #$07 +4CF5- 85 89 STA $89 +4CF7- 06 85 ASL $85 +4CF9- 20 9B 4D JSR $4D9B +4CFC- 86 86 STX $86 +4CFE- 84 87 STY $87 +4D00- E6 85 INC $85 +4D02- 20 B4 4D JSR $4DB4 +4D05- 20 48 E0 JSR $E048 +4D08- 20 9B 4D JSR $4D9B +4D0B- B0 08 BCS $4D15 +4D0D- 0A ASL +4D0E- 30 05 BMI $4D15 +4D10- B0 12 BCS $4D24 +4D12- 20 50 4D JSR $4D50 +4D15- 20 22 E0 JSR $E022 +4D18- 30 0C BMI $4D26 +4D1A- C6 4E DEC $4E +4D1C- D0 EA BNE $4D08 +4D1E- C6 4F DEC $4F +4D20- 10 E6 BPL $4D08 +4D22- 30 DC BMI $4D00 +4D24- A9 0D LDA #$0D +4D26- 20 AE 4D JSR $4DAE +4D29- A6 D9 LDX $D9 +4D2B- 20 51 E0 JSR $E051 +4D2E- 0D DE 4D ORA $4DDE +4D31- 1B ??? +4D32- E0 4D CPX #$4D +4D34- 49 ED EOR #$ED +4D36- 4D 0B ED EOR $ED0B +4D39- 4D 4D F0 EOR $F04D +4D3C- 4D 0A F0 EOR $F00A +4D3F- 4D 4A F3 EOR $F34A +4D42- 4D 08 F3 EOR $F308 +4D45- 4D 4B F6 EOR $F64B +4D48- 4D 15 F6 EOR $F615 +4D4B- 4D 00 4C EOR $4C00 +4D4E- F7 ??? +4D4F- 4C E4 86 JMP $86E4 +4D52- D0 05 BNE $4D59 +4D54- C4 87 CPY $87 +4D56- D0 01 BNE $4D59 +4D58- 60 RTS +4D59- 20 77 4D JSR $4D77 +4D5C- 20 AE 4D JSR $4DAE +4D5F- A5 86 LDA $86 +4D61- A4 87 LDY $87 +4D63- 18 CLC +4D64- 69 07 ADC #$07 +4D66- 88 DEY +4D67- 10 FA BPL $4D63 +4D69- E9 06 SBC #$06 +4D6B- ED 0C D0 SBC $D00C +4D6E- A0 00 LDY #$00 +4D70- AA TAX +4D71- 68 PLA +4D72- 68 PLA +4D73- 8A TXA +4D74- 4C FE 4D JMP $4DFE +4D77- 2C 58 FF BIT $FF58 F8ROM:IORTS +4D7A- E0 07 CPX #$07 +4D7C- 90 03 BCC $4D81 +4D7E- A2 06 LDX #$06 +4D80- B8 CLV +4D81- C0 08 CPY #$08 +4D83- 90 03 BCC $4D88 +4D85- A0 07 LDY #$07 +4D87- B8 CLV +4D88- 86 86 STX $86 +4D8A- 84 87 STY $87 +4D8C- 70 0C BVS $4D9A +4D8E- 8A TXA +4D8F- 0A ASL +4D90- 0A ASL +4D91- 0A ASL +4D92- AA TAX +4D93- 98 TYA +4D94- 0A ASL +4D95- 0A ASL +4D96- A8 TAY +4D97- 20 1B E0 JSR $E01B +4D9A- 60 RTS +4D9B- A0 00 LDY #$00 +4D9D- 20 18 E0 JSR $E018 +4DA0- 08 PHP +4DA1- 48 PHA +4DA2- 8A TXA +4DA3- 4A LSR +4DA4- 4A LSR +4DA5- 4A LSR +4DA6- AA TAX +4DA7- 98 TYA +4DA8- 4A LSR +4DA9- 4A LSR +4DAA- A8 TAY +4DAB- 68 PLA +4DAC- 28 PLP +4DAD- 60 RTS +4DAE- 46 85 LSR $85 +4DB0- 48 PHA +4DB1- 90 29 BCC $4DDC +4DB3- 68 PLA +4DB4- 48 PHA +4DB5- 20 9D 4C JSR $4C9D +4DB8- AA TAX +4DB9- 8E D2 4D STX $4DD2 +4DBC- E8 INX +4DBD- 8E D7 4D STX $4DD7 +4DC0- C8 INY +4DC1- 8C D3 4D STY $4DD3 +4DC4- 8C D8 4D STY $4DD8 +4DC7- A6 88 LDX $88 +4DC9- CA DEX +4DCA- 8E D9 4D STX $4DD9 +4DCD- 20 00 E0 JSR $E000 +4DD0- 11 FC ORA ($FC),Y +4DD2- 00 BRK +4DD3- 01 01 ORA ($01,X) +4DD5- 11 17 ORA ($17),Y +4DD7- 01 01 ORA ($01,X) +4DD9- 02 ??? +4DDA- 11 00 ORA ($00),Y +4DDC- 68 PLA +4DDD- 60 RTS +4DDE- 18 CLC +4DDF- 24 38 BIT $38 +4DE1- 08 PHP +4DE2- E4 84 CPX $84 +4DE4- 90 02 BCC $4DE8 +4DE6- A6 84 LDX $84 +4DE8- 8E 0A D0 STX $D00A +4DEB- 28 PLP +4DEC- 60 RTS +4DED- A0 00 LDY #$00 +4DEF- 2C A0 01 BIT $01A0 +4DF2- 2C A0 02 BIT $02A0 +4DF5- 2C A0 03 BIT $03A0 +4DF8- CA DEX +4DF9- 8A TXA +4DFA- 18 CLC +4DFB- 79 21 4E ADC $4E21,Y +4DFE- 10 04 BPL $4E04 +4E00- 38 SEC +4E01- F9 21 4E SBC $4E21,Y +4E04- AA TAX +4E05- E8 INX +4E06- E4 89 CPX $89 +4E08- 90 06 BCC $4E10 +4E0A- CA DEX +4E0B- 8A TXA +4E0C- E9 07 SBC #$07 +4E0E- B0 F4 BCS $4E04 +4E10- A5 84 LDA $84 +4E12- CD 0D D0 CMP $D00D +4E15- D0 05 BNE $4E1C +4E17- E4 84 CPX $84 +4E19- 90 01 BCC $4E1C +4E1B- AA TAX +4E1C- 86 D9 STX $D9 +4E1E- 4C F7 4C JMP $4CF7 +4E21- F9 07 FF SBC $FF07,Y +4E24- 01 20 ORA ($20,X) +4E26- 72 E0 ADC ($E0) +4E28- AD 0A D0 LDA $D00A +4E2B- 85 D9 STA $D9 +4E2D- 20 0F 7B JSR $7B0F +4E30- A0 13 LDY #$13 +4E32- 20 25 4B JSR $4B25 +4E35- 20 00 E0 JSR $E000 +4E38- 12 01 ORA ($01) +4E3A- 05 06 ORA $06 +4E3C- 8C 00 1B STY $1B00 +4E3F- 46 4F LSR $4F +4E41- 52 20 EOR ($20) +4E43- 54 ??? +4E44- 48 PHA +4E45- 45 20 EOR $20 +4E47- 57 ??? +4E48- 45 45 EOR $45 +4E4A- 4B ??? +4E4B- 20 4F 46 JSR $464F +4E4E- 20 09 40 JSR $4009 +4E51- 7A PLY +4E52- 20 09 54 JSR $5409 +4E55- 7A PLY +4E56- 2C 20 09 BIT $0920 +4E59- 04 D0 TSB $D0 +4E5B- 0D 11 60 ORA $6011 +4E5E- 04 25 TSB $25 +4E60- 01 91 ORA ($91,X) +4E62- 11 03 ORA ($03),Y +4E64- 0B ??? +4E65- 25 01 AND $01 +4E67- 91 11 STA ($11),Y +4E69- 60 RTS +4E6A- 18 CLC +4E6B- 25 01 AND $01 +4E6D- 7F ??? +4E6E- 00 BRK +4E6F- 20 0F 4F JSR $4F0F +4E72- AE 0B D0 LDX $D00B +4E75- 86 8A STX $8A +4E77- 06 85 ASL $85 +4E79- 20 9B 4D JSR $4D9B +4E7C- 86 86 STX $86 +4E7E- 84 87 STY $87 +4E80- E6 85 INC $85 +4E82- 20 FC 4E JSR $4EFC +4E85- 20 48 E0 JSR $E048 +4E88- 20 9B 4D JSR $4D9B +4E8B- B0 0A BCS $4E97 +4E8D- 0A ASL +4E8E- 30 07 BMI $4E97 +4E90- B0 14 BCS $4EA6 +4E92- 20 E2 4E JSR $4EE2 +4E95- D0 DE BNE $4E75 +4E97- 20 22 E0 JSR $E022 +4E9A- 30 0C BMI $4EA8 +4E9C- C6 4E DEC $4E +4E9E- D0 E8 BNE $4E88 +4EA0- C6 4F DEC $4F +4EA2- 10 E4 BPL $4E88 +4EA4- 30 DA BMI $4E80 +4EA6- A9 0D LDA #$0D +4EA8- 20 F6 4E JSR $4EF6 +4EAB- A6 8A LDX $8A +4EAD- 20 51 E0 JSR $E051 +4EB0- 0D CC 4E ORA $4ECC +4EB3- 1B ??? +4EB4- CE 4E 49 DEC $494E +4EB7- D3 ??? +4EB8- 4E 0B D3 LSR $D30B +4EBB- 4E 08 D3 LSR $D308 +4EBE- 4E 4D D8 LSR $D84D +4EC1- 4E 0A D8 LSR $D80A +4EC4- 4E 15 D8 LSR $D815 +4EC7- 4E 00 4C LSR $4C00 +4ECA- 75 4E ADC $4E,X +4ECC- 18 CLC +4ECD- 24 38 BIT $38 +4ECF- 8E 0B D0 STX $D00B +4ED2- 60 RTS +4ED3- CA DEX +4ED4- 10 09 BPL $4EDF +4ED6- A2 06 LDX #$06 +4ED8- E8 INX +4ED9- E0 08 CPX #$08 +4EDB- 90 02 BCC $4EDF +4EDD- A2 00 LDX #$00 +4EDF- 4C 75 4E JMP $4E75 +4EE2- E4 86 CPX $86 +4EE4- D0 05 BNE $4EEB +4EE6- C4 87 CPY $87 +4EE8- D0 01 BNE $4EEB +4EEA- 60 RTS +4EEB- 20 77 4D JSR $4D77 +4EEE- 20 F6 4E JSR $4EF6 +4EF1- A6 87 LDX $87 +4EF3- A9 01 LDA #$01 +4EF5- 60 RTS +4EF6- 46 85 LSR $85 +4EF8- 48 PHA +4EF9- 90 12 BCC $4F0D +4EFB- 68 PLA +4EFC- 48 PHA +4EFD- 20 D8 4F JSR $4FD8 +4F00- C8 INY +4F01- 8C 09 4F STY $4F09 +4F04- 20 00 E0 JSR $E000 +4F07- 17 ??? +4F08- 05 01 ORA $01 +4F0A- 06 11 ASL $11 +4F0C- 00 BRK +4F0D- 68 PLA +4F0E- 60 RTS +4F0F- A9 00 LDA #$00 +4F11- AE 0A D0 LDX $D00A +4F14- AC 0C D0 LDY $D00C +4F17- 85 8A STA $8A +4F19- 86 D9 STX $D9 +4F1B- 84 83 STY $83 +4F1D- 20 3F 4F JSR $4F3F +4F20- A6 D9 LDX $D9 +4F22- E8 INX +4F23- EC 0D D0 CPX $D00D +4F26- F0 04 BEQ $4F2C +4F28- 90 02 BCC $4F2C +4F2A- A2 01 LDX #$01 +4F2C- A4 83 LDY $83 +4F2E- C8 INY +4F2F- C0 07 CPY #$07 +4F31- 90 02 BCC $4F35 +4F33- A0 00 LDY #$00 +4F35- A5 8A LDA $8A +4F37- 18 CLC +4F38- 69 01 ADC #$01 +4F3A- C9 08 CMP #$08 +4F3C- 90 D9 BCC $4F17 +4F3E- 60 RTS +4F3F- A4 83 LDY $83 +4F41- 20 12 7B JSR $7B12 +4F44- A9 00 LDA #$00 +4F46- 8D 4D 7A STA $7A4D +4F49- 20 0F 7B JSR $7B0F +4F4C- A5 8A LDA $8A +4F4E- C9 07 CMP #$07 +4F50- 66 8C ROR $8C +4F52- 20 D8 4F JSR $4FD8 +4F55- 8C 66 4F STY $4F66 +4F58- 8C 73 4F STY $4F73 +4F5B- C8 INY +4F5C- 8C C6 4F STY $4FC6 +4F5F- 20 4E E0 JSR $E04E +4F62- C8 INY +4F63- 04 FF TSB $FF +4F65- 05 25 ORA $25 +4F67- 8C FF 05 STY $05FF +4F6A- B5 2C LDA $2C,X +4F6C- 01 20 ORA ($20,X) +4F6E- 00 BRK +4F6F- E0 06 CPX #$06 +4F71- 38 SEC +4F72- 00 BRK +4F73- 00 BRK +4F74- 00 BRK +4F75- 24 8C BIT $8C +4F77- 10 0E BPL $4F87 +4F79- 20 00 E0 JSR $E000 +4F7C- 05 0A ORA $0A +4F7E- 05 0D ORA $0D +4F80- 44 ??? +4F81- 4F ??? +4F82- 4E 45 0D LSR $0D45 +4F85- 00 BRK +4F86- 60 RTS +4F87- 20 00 E0 JSR $E000 +4F8A- 05 0A ORA $0A +4F8C- 02 ??? +4F8D- 0D 0A 08 ORA $080A +4F90- 09 4A ORA #$4A +4F92- 7A PLY +4F93- 0D 09 54 ORA $5409 +4F96- 7A PLY +4F97- 0D 00 A5 ORA $A500 +4F9A- 8A TXA +4F9B- 0A ASL +4F9C- 0A ASL +4F9D- 85 8B STA $8B +4F9F- A9 04 LDA #$04 +4FA1- 48 PHA +4FA2- A4 8B LDY $8B +4FA4- E6 8B INC $8B +4FA6- 20 03 7B JSR $7B03 +4FA9- 98 TYA +4FAA- 0A ASL +4FAB- C9 5B CMP #$5B +4FAD- 90 02 BCC $4FB1 +4FAF- A9 5B LDA #$5B +4FB1- 8D C7 4F STA $4FC7 +4FB4- A9 03 LDA #$03 +4FB6- 48 PHA +4FB7- EE C6 4F INC $4FC6 +4FBA- AD 00 96 LDA $9600 +4FBD- F0 0A BEQ $4FC9 +4FBF- 20 4E E0 JSR $E04E +4FC2- C8 INY +4FC3- 04 FF TSB $FF +4FC5- 34 00 BIT $00,X +4FC7- 0B ??? +4FC8- 01 68 ORA ($68,X) +4FCA- 38 SEC +4FCB- E9 01 SBC #$01 +4FCD- D0 E7 BNE $4FB6 +4FCF- EE C6 4F INC $4FC6 +4FD2- 68 PLA +4FD3- E9 01 SBC #$01 +4FD5- D0 CA BNE $4FA1 +4FD7- 60 RTS +4FD8- A6 8A LDX $8A +4FDA- BC DE 4F LDY $4FDE,X +4FDD- 60 RTS +4FDE- 25 37 AND $37 +4FE0- 49 5B EOR #$5B +4FE2- 6D 7F 91 ADC $917F +4FE5- A3 ??? +4FE6- A4 DA LDY $DA +4FE8- AD 00 96 LDA $9600 +4FEB- D0 08 BNE $4FF5 +4FED- 85 DA STA $DA +4FEF- A8 TAY +4FF0- 20 F5 4F JSR $4FF5 +4FF3- A0 01 LDY #$01 +4FF5- B9 77 50 LDA $5077,Y +4FF8- 8D 00 50 STA $5000 +4FFB- 20 00 E0 JSR $E000 +4FFE- 0F ??? +4FFF- 04 00 TSB $00 +5001- 20 07 00 JSR $0007 +5004- A0 00 LDY #$00 +5006- A9 96 LDA #$96 +5008- 84 D5 STY $D5 +500A- 85 D6 STA $D6 +500C- 60 RTS +500D- A4 DA LDY $DA +500F- 20 2B 50 JSR $502B +5012- A4 DA LDY $DA +5014- D0 09 BNE $501F +5016- BD 00 96 LDA $9600,X +5019- F0 57 BEQ $5072 +501B- E6 DA INC $DA +501D- D0 EE BNE $500D +501F- BE 79 50 LDX $5079,Y +5022- BD 00 96 LDA $9600,X +5025- D0 4B BNE $5072 +5027- C6 DA DEC $DA +5029- F0 E2 BEQ $500D +502B- 84 DA STY $DA +502D- B9 77 50 LDA $5077,Y +5030- 8D 5D 50 STA $505D +5033- BE 79 50 LDX $5079,Y +5036- 8E 5F 50 STX $505F +5039- A9 00 LDA #$00 +503B- CA DEX +503C- E8 INX +503D- BC 00 96 LDY $9600,X +5040- F0 0A BEQ $504C +5042- 18 CLC +5043- 79 E0 84 ADC $84E0,Y +5046- 69 02 ADC #$02 +5048- C9 E1 CMP #$E1 +504A- 90 F0 BCC $503C +504C- BD 00 96 LDA $9600,X +504F- 48 PHA +5050- A9 00 LDA #$00 +5052- 9D 00 96 STA $9600,X +5055- 8A TXA +5056- 48 PHA +5057- 20 00 E0 JSR $E000 +505A- 06 1C ASL $1C +505C- 00 BRK +505D- 00 BRK +505E- 09 00 ORA #$00 +5060- 96 0E STX $0E,Y +5062- 00 BRK +5063- 68 PLA +5064- AA TAX +5065- 68 PLA +5066- 9D 00 96 STA $9600,X +5069- A4 DA LDY $DA +506B- F0 06 BEQ $5073 +506D- A9 00 LDA #$00 +506F- 9D 00 96 STA $9600,X +5072- 60 RTS +5073- 8E 7A 50 STX $507A +5076- 60 RTS +5077- 50 58 BVC $50D1 +5079- 00 BRK +507A- 00 BRK +507B- A0 BF LDY #$BF +507D- A9 50 LDA #$50 +507F- 84 3A STY $3A +5081- 85 3B STA $3B +5083- A0 00 LDY #$00 +5085- 20 B6 50 JSR $50B6 +5088- 85 3C STA $3C +508A- 20 B6 50 JSR $50B6 +508D- 85 3D STA $3D +508F- 05 3C ORA $3C +5091- F0 2B BEQ $50BE +5093- 20 B6 50 JSR $50B6 +5096- AA TAX +5097- 20 B6 50 JSR $50B6 +509A- 85 3F STA $3F +509C- 20 B6 50 JSR $50B6 +509F- 91 3C STA ($3C),Y +50A1- E6 3C INC $3C +50A3- D0 02 BNE $50A7 +50A5- E6 3D INC $3D +50A7- 8A TXA +50A8- D0 02 BNE $50AC +50AA- C6 3F DEC $3F +50AC- CA DEX +50AD- D0 ED BNE $509C +50AF- 8A TXA +50B0- 05 3F ORA $3F +50B2- D0 E8 BNE $509C +50B4- F0 CF BEQ $5085 +50B6- B1 3A LDA ($3A),Y +50B8- E6 3A INC $3A +50BA- D0 02 BNE $50BE +50BC- E6 3B INC $3B +50BE- 60 RTS diff --git a/PSC Source Disk 4 - Fastload - Copy Protection - Title Page (v13)/A_C.WELCOME.txt b/PSC Source Disk 4 - Fastload - Copy Protection - Title Page (v13)/A_C.WELCOME.txt new file mode 100644 index 0000000..aae0bd2 --- /dev/null +++ b/PSC Source Disk 4 - Fastload - Copy Protection - Title Page (v13)/A_C.WELCOME.txt @@ -0,0 +1,11 @@ + 5 HIMEM: 32768 + 10 TEXT : HOME : NORMAL : PRINT "CHANGE CONFIG FILE TO 'WELCOME' STATE": POKE 34,9 + 20 PRINT "BLOADCONFIG.WELCOME" + 30 HOME : PRINT "PUT COMPANION DISK IN SLOT 6, DRIVE 1": PRINT : PRINT : PRINT "AND PRESS ..."; + 40 GET A$: IF A$ < > CHR$ (13) THEN 40 + 50 HOME : PRINT + 55 POKE 45069,2 + 56 POKE 38389,255 + 60 PRINT "BSAVE CONFIG,S6,D1,A$95F0,L16" + 65 POKE 45069,0 + 70 GOTO 30 diff --git a/PSC Source Disk 4 - Fastload - Copy Protection - Title Page (v13)/A_CC.txt b/PSC Source Disk 4 - Fastload - Copy Protection - Title Page (v13)/A_CC.txt new file mode 100644 index 0000000..e903c61 --- /dev/null +++ b/PSC Source Disk 4 - Fastload - Copy Protection - Title Page (v13)/A_CC.txt @@ -0,0 +1,6 @@ + 10 TEXT : HOME : NORMAL : PRINT "UPDATE COMPANION PROGRAM": VTAB 10: PRINT "PUT NEW COMPANION DISK IN DRIVE 1 AND PUT COMPANION TO BE UPDATED IN DRIVE 2 AND PRESS ..."; + 15 GET A$: IF A$ < > CHR$ (13) THEN 15 + 20 HOME :IOB = 47080:SL = IOB + 1:DR = IOB + 2:VO = IOB + 3:TR = IOB + 4:SE = IOB + 5:BL = IOB + 8:BH = IOB + 9:CO = IOB + 12:RE = 768: HGR : VTAB 22 + 30 POKE VO,0: POKE 1150,68: PRINT "COPYING DRIVE 1 TO 2": FOR T = 34 TO 1 STEP - 7:C = 1: GOSUB 100:C = 2: GOSUB 100: NEXT : CALL - 1052: RUN + 100 POKE CO,C: POKE DR,C: POKE TR,T - (T = 34): POKE SE,15: POKE 0,7 * 16: POKE BL,0: POKE BH,143: CALL PEEK (175) + 256 * PEEK (176) - 56: RETURN + 63999 PRINT "SAVE CC" diff --git a/PSC Source Disk 4 - Fastload - Copy Protection - Title Page (v13)/A_DF.txt b/PSC Source Disk 4 - Fastload - Copy Protection - Title Page (v13)/A_DF.txt new file mode 100644 index 0000000..6dfa392 --- /dev/null +++ b/PSC Source Disk 4 - Fastload - Copy Protection - Title Page (v13)/A_DF.txt @@ -0,0 +1,6 @@ + 6 SV = 14 + 10 TEXT : HOME : NORMAL : PRINT "Copy Hard disk to floppy": VTAB 10: PRINT "Destination disk in DRIVE ONE,SLOT SIX SOURCE VOLUME -->"SV" Press to continue..."; + 15 GET A$: IF A$ < > CHR$ (13) THEN 15 + 20 HOME :IOB = 47080:SL = IOB + 1:DR = IOB + 2:VO = IOB + 3:TR = IOB + 4:SE = IOB + 5:BL = IOB + 8:BH = IOB + 9:CO = IOB + 12:RE = 768: HGR : VTAB 22 + 30 POKE 1150,68: PRINT "Backing up volume "SV: FOR T = 34 TO 1 STEP - 7:C = 1: POKE DR,1: POKE SL,112: POKE VO,SV: POKE 49385,0: GOSUB 100:C = 2: POKE SL,96: POKE VO,0: GOSUB 100: NEXT : CALL - 1052: RUN + 100 POKE CO,C: POKE TR,T - (T = 34): POKE SE,15: POKE 0,7 * 16: POKE BL,0: POKE BH,143: CALL PEEK (175) + 256 * PEEK (176) - 56: RETURN diff --git a/PSC Source Disk 4 - Fastload - Copy Protection - Title Page (v13)/A_FD.txt b/PSC Source Disk 4 - Fastload - Copy Protection - Title Page (v13)/A_FD.txt new file mode 100644 index 0000000..9dfd81c --- /dev/null +++ b/PSC Source Disk 4 - Fastload - Copy Protection - Title Page (v13)/A_FD.txt @@ -0,0 +1,6 @@ + 6 DV = 14 + 10 TEXT : HOME : NORMAL : PRINT "Copy Floppy to Hard Disk": VTAB 10: PRINT "COMPANION in SLOT SIX,DRIVE ONE DESTINATION VOLUME -->";DV" PRESS TO CONTINUE..."; + 15 GET A$: IF A$ < > CHR$ (13) THEN 15 + 20 HOME :IOB = 47080:SL = IOB + 1:DR = IOB + 2:VO = IOB + 3:TR = IOB + 4:SE = IOB + 5:BL = IOB + 8:BH = IOB + 9:CO = IOB + 12:RE = 768: HGR : VTAB 22 + 30 POKE 1150,68: PRINT "Downloading volume "DV: FOR T = 34 TO 1 STEP - 7:C = 1: POKE DR,1: POKE SL,96: POKE VO,0: GOSUB 100: POKE 49385 - (T = 6),0:C = 2: POKE SL,112: POKE VO,DV: GOSUB 100: NEXT : CALL - 1052: RUN + 100 POKE CO,C: POKE TR,T - (T = 34): POKE SE,15: POKE 0,7 * 16: POKE BL,0: POKE BH,143: CALL PEEK (175) + 256 * PEEK (176) - 56: RETURN diff --git a/PSC Source Disk 4 - Fastload - Copy Protection - Title Page (v13)/A_FIX.CALEN.txt b/PSC Source Disk 4 - Fastload - Copy Protection - Title Page (v13)/A_FIX.CALEN.txt new file mode 100644 index 0000000..2ee5ea2 --- /dev/null +++ b/PSC Source Disk 4 - Fastload - Copy Protection - Title Page (v13)/A_FIX.CALEN.txt @@ -0,0 +1,9 @@ + 5 PRINT "MONC": PRINT "BLOADCLEARMEM": CALL 768 + 10 PRINT "BLOAD CALEN.TOO BIG" + 20 PRINT "BSAVE CALEN.TAIL END,A$5D00,L$700" + 30 PRINT "BLOAD O:CALTAIL,A$5D00" + 34 POKE 16385,0: POKE 16386,93: REM +$4001:00.5D + 40 PRINT "BSAVE CALEN.FIRST PART,A$4000,L$1DF8" + 50 END + 63999 PRINT "SAVE FIX.CALEN" diff --git a/PSC Source Disk 4 - Fastload - Copy Protection - Title Page (v13)/A_MAKETITLEPIC.txt b/PSC Source Disk 4 - Fastload - Copy Protection - Title Page (v13)/A_MAKETITLEPIC.txt new file mode 100644 index 0000000..989f61e --- /dev/null +++ b/PSC Source Disk 4 - Fastload - Copy Protection - Title Page (v13)/A_MAKETITLEPIC.txt @@ -0,0 +1,10 @@ + 5 F$ = "COMPANION.PIC" + 6 F2$ = "CTITLE" + 10 TEXT : HOME : HGR : POKE - 16302,0: PRINT "BLOAD "F$",A8192" + 20 PRINT "BLOAD O:MAKETITLEPIC,A4096" + 30 PRINT "BLOAD O:SHOWTITLEPIC,A16384" + 40 CALL 4096:L = PEEK (0) + 256 * PEEK (1) - 16384 + 50 TEXT : PRINT "THE LENGTH IS "L + 60 PRINT "BSAVE "F2$",A16384,L"L + 70 PRINT "DONE...": END + 63999 PRINT "SAVE A:MAKETITLEPIC" diff --git a/PSC Source Disk 4 - Fastload - Copy Protection - Title Page (v13)/A_PRTG.txt b/PSC Source Disk 4 - Fastload - Copy Protection - Title Page (v13)/A_PRTG.txt new file mode 100644 index 0000000..014a4b2 --- /dev/null +++ b/PSC Source Disk 4 - Fastload - Copy Protection - Title Page (v13)/A_PRTG.txt @@ -0,0 +1,10 @@ + 5 BF = 8192: POKE 47081,64 + 10 GOSUB 63950: TEXT : HOME : NORMAL + 20 PRINT "SLOT 4, DRIVE 1 COMPANION PROTECTION ENABLER: 0 - TURN OFF 1 - TURN ON SELECTION (0-1) ? "; + 30 GET A$:B = VAL (A$): IF B > 1 THEN 30 + 40 HOME :C = 1: GOSUB 100 + 45 POKE BF + 2,15 - B * 2 + 50 C = 2: GOSUB 100: END + 100 CALL BF(0)C,17,0,BF,1: IF NOT PEEK (0) THEN RETURN + 110 PRINT "ERROR!": END + 63950 A = PEEK (175) + PEEK (176) * 256 - 4:B = PEEK (A) / 2:A = A - B * 2: FOR C = 0 TO B - 1:BF(C) = A - PEEK (A + C * 2) - 256 * PEEK (A + C * 2 + 1): NEXT : RETURN diff --git a/PSC Source Disk 4 - Fastload - Copy Protection - Title Page (v13)/A_PS.SIDEB.HELLO.txt b/PSC Source Disk 4 - Fastload - Copy Protection - Title Page (v13)/A_PS.SIDEB.HELLO.txt new file mode 100644 index 0000000..0797cb6 --- /dev/null +++ b/PSC Source Disk 4 - Fastload - Copy Protection - Title Page (v13)/A_PS.SIDEB.HELLO.txt @@ -0,0 +1,17 @@ + 10 PR# 0: CALL 1002:UP = 4096:ME = 6656: HIMEM: ME:AD = 34048:D$ = "BLOAD" + 20 POKE 49164,0: POKE 49166,0 + 30 PRINT D$"DEMOMENU": PRINT D$"DEMOLIB" + 35 ONERR GOTO 100 + 40 CALL 54915: CALL ME: HOME : IF PEEK (ME + 3) = 1 THEN GOSUB 1000: GOTO 40 + 50 HOME : IF NOT UL THEN PRINT D$"CAL1": PRINT D$"CAL2": PRINT D$"CALUP":UL = 1 + 55 ONERR GOTO 70 + 60 CALL UP: GOTO 35 + 70 CALL UP + 3: GOTO 60 + 100 TEXT : HOME : NORMAL : VTAB 8: PRINT "UNABLE TO READ DISK. PLEASE INSERT SIDE B OF THE PRINT SHOP AND PRESS " + 110 WAIT 49152,128: POKE 49168,0: GOTO 40 + 1000 UL = 0:M = PEEK (ME + 4): ON M = 7 GOTO 2000: GOSUB 3000 + 1010 CALL AD + 3: ON NOT PEEK (AD + 6) GOTO 1010: RETURN + 2000 FOR M = 1 TO 6: GOSUB 3000: CALL AD + 3: IF PEEK (AD + 6) THEN RETURN + 2010 NEXT : GOTO 2000 + 3000 PRINT D$"PIC"M"A,A$4000": PRINT D$"PIC"M"B,A$6000": CALL AD: POKE AD + 7,128: RETURN + 63999 PRINT "SAVEPS.SIDEB.HELLO diff --git a/PSC Source Disk 4 - Fastload - Copy Protection - Title Page (v13)/A_PS.WELCOME.txt b/PSC Source Disk 4 - Fastload - Copy Protection - Title Page (v13)/A_PS.WELCOME.txt new file mode 100644 index 0000000..2c2531e --- /dev/null +++ b/PSC Source Disk 4 - Fastload - Copy Protection - Title Page (v13)/A_PS.WELCOME.txt @@ -0,0 +1,10 @@ + 5 HIMEM: 32768 + 10 TEXT : HOME : NORMAL : PRINT "CHANGE CONFIG FILE TO 'WELCOME' STATE": POKE 34,9 + 20 PRINT "BLOADCONFIG.WELCOME" + 30 HOME : PRINT "PUT PRINT SHOP DISK IN SLOT 6, DRIVE 1 AND PRESS ..."; + 40 GET A$: IF A$ < > CHR$ (13) THEN 40 + 50 HOME : PRINT + 55 POKE 45069,2 + 60 PRINT "BSAVE CONFIG,S6,D1,A$95F0,L16" + 65 POKE 45069,0 + 70 GOTO 30 diff --git a/PSC Source Disk 4 - Fastload - Copy Protection - Title Page (v13)/A_TESTPROT.txt b/PSC Source Disk 4 - Fastload - Copy Protection - Title Page (v13)/A_TESTPROT.txt new file mode 100644 index 0000000..1cee170 --- /dev/null +++ b/PSC Source Disk 4 - Fastload - Copy Protection - Title Page (v13)/A_TESTPROT.txt @@ -0,0 +1,11 @@ + 5 TP = 4096: PRINT "BLOAD O:TESTPROT,A"TP + 10 TEXT : HOME : NORMAL : PRINT "Check Print Shop or Companion for copy protection...": FOR A = 1 TO 13: PRINT "---";: NEXT : PRINT : POKE 34,4: CALL TP: READ A$(0),A$(1) + 20 HOME : VTAB 10: PRINT "INSERT DISK AND PRESS ...";: GOSUB 2000 + 40 A$ = "ONE MOMENT WHILE I THINK ABOUT THIS...": POKE 0,100: GOSUB 1000: CALL TP + 3:A$ = "HERE'S THE VERDICT:": GOSUB 1000 + 50 VTAB 23: PRINT "PRESS ...";: GOSUB 2000: GOTO 20 + 1000 VTAB 10: PRINT A$ TAB( 81): PRINT + 1005 FOR A = 0 TO 1: IF A = PEEK (0) THEN INVERSE + 1010 PRINT A$(A): NORMAL : NEXT : RETURN + 2000 GET A$: ON A$ < > CHR$ (13) GOTO 2000: HOME : RETURN + 60000 DATA "OK COPY","PIRATE COPY" + 63999 PRINT "SAVEHELLO" diff --git a/PSC Source Disk 4 - Fastload - Copy Protection - Title Page (v13)/A_UP.PS.SIDEB.txt b/PSC Source Disk 4 - Fastload - Copy Protection - Title Page (v13)/A_UP.PS.SIDEB.txt new file mode 100644 index 0000000..7106a0b --- /dev/null +++ b/PSC Source Disk 4 - Fastload - Copy Protection - Title Page (v13)/A_UP.PS.SIDEB.txt @@ -0,0 +1,17 @@ + 10 B$ = "BLOAD":S$ = "BSAVE": PRINT "MONC": HGR : HGR2 : TEXT : HOME + 20 PRINT B$"O:NOMOREBACKUP,A$2000" + 22 PRINT B$"CALEN.TAIL END,A$2200" + 24 PRINT B$"CALEN.FIRST PART,A$4000" + 26 PRINT B$"O:CALUPDATER,A$1000" + 28 PRINT B$"DEMOMENU,A$1A00" + 30 VTAB 8: PRINT "PUT SIDE B OF PRINT SHOP IN SLOT SIX, DRIVE ONE, AND PRESS ..."; + 32 GET A$: IF A$ < > CHR$ (13) THEN 32 + 40 PRINT : PRINT : PRINT : PRINT + 42 POKE 45069,2 + 44 PRINT S$"CAL1,A$4000,L$1DF8,S6,D1" + 45 PRINT S$"CAL2,A$2000,L$900" + 46 PRINT S$"CALUP,A$1000,L$800" + 48 PRINT S$"DEMOMENU,A$1A00,L$5F8" + 50 POKE 45069,0 + 1000 STOP + 63999 PRINT "SAVEUP.PS.SIDEB" diff --git a/PSC Source Disk 4 - Fastload - Copy Protection - Title Page (v13)/CALEN.FIRST PART.txt b/PSC Source Disk 4 - Fastload - Copy Protection - Title Page (v13)/CALEN.FIRST PART.txt new file mode 100644 index 0000000..1ed8e31 --- /dev/null +++ b/PSC Source Disk 4 - Fastload - Copy Protection - Title Page (v13)/CALEN.FIRST PART.txt @@ -0,0 +1,3894 @@ +4000- 4C 00 5D JMP $5D00 +4003- 4C 2C 40 JMP $402C +4006- 4C E6 4F JMP $4FE6 +4009- 4C 0D 50 JMP $500D +400C- C3 ??? +400D- CF ??? +400E- D0 D9 BNE $3FE9 +4010- D2 C9 CMP ($C9) +4012- C7 ??? +4013- C8 INY +4014- D4 ??? +4015- A0 B1 LDY #$B1 +4017- B9 B8 B5 LDA $B5B8,Y +401A- A0 D2 LDY #$D2 +401C- CF ??? +401D- CC C1 CE CPY $CEC1 +4020- C4 A0 CPY $A0 +4022- C7 ??? +4023- D5 D3 CMP $D3,X +4025- D4 ??? +4026- C1 C6 CMP ($C6,X) +4028- D3 ??? +4029- D3 ??? +402A- CF ??? +402B- CE 2C 83 DEC $832C +402E- C0 2C CPY #$2C +4030- 83 ??? +4031- C0 20 CPY #$20 +4033- 7B ??? +4034- 50 20 BVC $4056 +4036- 00 BRK +4037- 7B ??? +4038- 20 96 40 JSR $4096 +403B- 20 00 E0 JSR $E000 +403E- 06 8C ASL $8C +4040- 00 BRK +4041- 46 00 LSR $00 +4043- A9 0D LDA #$0D +4045- 20 63 E0 JSR $E063 +4048- 90 03 BCC $404D +404A- 4C 00 08 JMP $0800 +404D- 20 5E 45 JSR $455E +4050- 90 05 BCC $4057 +4052- 20 81 E0 JSR $E081 +4055- B0 F6 BCS $404D +4057- 20 BE 45 JSR $45BE +405A- B0 F1 BCS $404D +405C- 20 98 41 JSR $4198 +405F- B0 F6 BCS $4057 +4061- 20 B2 42 JSR $42B2 +4064- B0 F6 BCS $405C +4066- 20 30 43 JSR $4330 +4069- B0 F6 BCS $4061 +406B- 20 53 46 JSR $4653 +406E- B0 F6 BCS $4066 +4070- 20 94 40 JSR $4094 +4073- 20 15 7B JSR $7B15 +4076- B0 F3 BCS $406B +4078- 20 A6 40 JSR $40A6 +407B- 20 F8 40 JSR $40F8 +407E- B0 F0 BCS $4070 +4080- 20 B9 40 JSR $40B9 +4083- 20 BE 46 JSR $46BE +4086- B0 F0 BCS $4078 +4088- 20 E6 48 JSR $48E6 +408B- B0 F3 BCS $4080 +408D- 20 F9 46 JSR $46F9 +4090- B0 F6 BCS $4088 +4092- 90 A1 BCC $4035 +4094- 90 0F BCC $40A5 +4096- 08 PHP +4097- 20 DE 40 JSR $40DE +409A- 20 00 E0 JSR $E000 +409D- 08 PHP +409E- 02 ??? +409F- 54 ??? +40A0- 4F ??? +40A1- 50 0D BVC $40B0 +40A3- 00 BRK +40A4- 28 PLP +40A5- 60 RTS +40A6- 08 PHP +40A7- 20 DE 40 JSR $40DE +40AA- 20 00 E0 JSR $E000 +40AD- 08 PHP +40AE- 02 ??? +40AF- 43 ??? +40B0- 45 4E EOR $4E +40B2- 54 ??? +40B3- 45 52 EOR $52 +40B5- 0D 00 28 ORA $2800 +40B8- 60 RTS +40B9- 20 DE 40 JSR $40DE +40BC- 20 00 E0 JSR $E000 +40BF- 08 PHP +40C0- 02 ??? +40C1- 42 ??? +40C2- 4F ??? +40C3- 54 ??? +40C4- 54 ??? +40C5- 4F ??? +40C6- 4D 0D 00 EOR $000D +40C9- 60 RTS +40CA- B0 11 BCS $40DD +40CC- 08 PHP +40CD- 20 DE 40 JSR $40DE +40D0- 20 00 E0 JSR $E000 +40D3- 08 PHP +40D4- 02 ??? +40D5- 50 52 BVC $4129 +40D7- 49 4E EOR #$4E +40D9- 54 ??? +40DA- 0D 00 28 ORA $2800 +40DD- 60 RTS +40DE- 20 06 E0 JSR $E006 +40E1- 20 09 E0 JSR $E009 +40E4- 20 00 E0 JSR $E000 +40E7- 06 88 ASL $88 +40E9- 00 BRK +40EA- 04 04 TSB $04 +40EC- 02 ??? +40ED- 09 38 ORA #$38 +40EF- 46 3A LSR $3A +40F1- 0D 06 92 ORA $9206 +40F4- 00 BRK +40F5- 01 00 ORA ($00,X) +40F7- 60 RTS +40F8- AD 00 D0 LDA $D000 +40FB- D0 51 BNE $414E +40FD- 20 BB 4A JSR $4ABB +4100- B0 4B BCS $414D +4102- EC 0D D0 CPX $D00D +4105- F0 02 BEQ $4109 +4107- B0 43 BCS $414C +4109- 20 18 7B JSR $7B18 +410C- 90 EF BCC $40FD +410E- 20 72 E0 JSR $E072 +4111- 20 45 E0 JSR $E045 +4114- 20 00 E0 JSR $E000 +4117- 05 06 ORA $06 +4119- 8C 00 42 STY $4200 +411C- 53 ??? +411D- 4F ??? +411E- 52 52 EOR ($52) +4120- 59 2C 20 EOR $202C,Y +4123- 4F ??? +4124- 55 54 EOR $54,X +4126- 20 4F 46 JSR $464F +4129- 20 4D 45 JSR $454D +412C- 4D 4F 52 EOR $524F +412F- 59 0D 0D EOR $0D0D,Y +4132- 55 4E EOR $4E,X +4134- 41 42 EOR ($42,X) +4136- 4C 45 20 JMP $2045 +4139- 54 ??? +413A- 4F ??? +413B- 20 53 54 JSR $5453 +413E- 4F ??? +413F- 52 45 EOR ($45) +4141- 2E 2E 2E ROL $2E2E +4144- 0D 00 20 ORA $2000 +4147- 60 RTS +4148- E0 4C CPX #$4C +414A- FD 40 18 SBC $1840,X +414D- 60 RTS +414E- B0 0B BCS $415B +4150- 20 BB 4A JSR $4ABB +4153- B0 F8 BCS $414D +4155- AC 0A D0 LDY $D00A +4158- 20 2A 44 JSR $442A +415B- 20 25 4E JSR $4E25 +415E- B0 F0 BCS $4150 +4160- E0 07 CPX #$07 +4162- F0 E8 BEQ $414C +4164- 20 1B 7B JSR $7B1B +4167- 4C 5B 41 JMP $415B +416A- 4C 45 46 JMP $4645 +416D- 54 ??? +416E- 20 43 4F JSR $4F43 +4171- 52 4E EOR ($4E) +4173- 45 52 EOR $52 +4175- 00 BRK +4176- 52 49 EOR ($49) +4178- 47 ??? +4179- 48 PHA +417A- 54 ??? +417B- 20 43 4F JSR $4F43 +417E- 52 4E EOR ($4E) +4180- 45 52 EOR $52 +4182- 00 BRK +4183- 42 ??? +4184- 4F ??? +4185- 54 ??? +4186- 48 PHA +4187- 20 43 4F JSR $4F43 +418A- 52 4E EOR ($4E) +418C- 45 52 EOR $52 +418E- 53 ??? +418F- 00 BRK +4190- 52 4F EOR ($4F) +4192- 57 ??? +4193- 20 4F 46 JSR $464F +4196- 20 00 AD JSR $AD00 +4199- 01 D0 ORA ($D0,X) +419B- 49 03 EOR #$03 +419D- F0 7B BEQ $421A +419F- 20 72 E0 JSR $E072 +41A2- 20 00 E0 JSR $E000 +41A5- 05 06 ORA $06 +41A7- 8C 00 1C STY $1C00 +41AA- 53 ??? +41AB- 45 4C EOR $4C +41AD- 45 43 EOR $43 +41AF- 54 ??? +41B0- 20 09 30 JSR $3009 +41B3- 46 20 LSR $20 +41B5- 50 4F BVC $4206 +41B7- 53 ??? +41B8- 49 54 EOR #$54 +41BA- 49 4F EOR #$4F +41BC- 4E 3A 0D LSR $0D3A +41BF- 0D 09 6A ORA $6A09 +41C2- 41 0D EOR ($0D,X) +41C4- 09 76 ORA #$76 +41C6- 41 0D EOR ($0D,X) +41C8- 09 83 ORA #$83 +41CA- 41 0D EOR ($0D,X) +41CC- 09 90 ORA #$90 +41CE- 41 53 EOR ($53,X) +41D0- 49 58 EOR #$58 +41D2- 0D 54 49 ORA $4954 +41D5- 4C 45 44 JMP $4445 +41D8- 0D 09 6A ORA $6A09 +41DB- 41 0D EOR ($0D,X) +41DD- 09 76 ORA #$76 +41DF- 41 0D EOR ($0D,X) +41E1- 09 83 ORA #$83 +41E3- 41 0D EOR ($0D,X) +41E5- 09 90 ORA #$90 +41E7- 41 54 EOR ($54,X) +41E9- 48 PHA +41EA- 52 45 EOR ($45) +41EC- 45 0D EOR $0D +41EE- 54 ??? +41EF- 49 4C EOR #$4C +41F1- 45 44 EOR $44 +41F3- 0D 11 60 ORA $6011 +41F6- 08 PHP +41F7- 88 DEY +41F8- 01 1E ORA ($1E,X) +41FA- 11 03 ORA ($03),Y +41FC- 1F ??? +41FD- 88 DEY +41FE- 01 1E ORA ($1E,X) +4200- 10 09 BPL $420B +4202- 88 DEY +4203- 16 01 ASL $01,X +4205- 10 09 BPL $4210 +4207- A5 16 LDA $16 +4209- 01 00 ORA ($00,X) +420B- AC 03 D0 LDY $D003 +420E- 20 28 E0 JSR $E028 +4211- 0A ASL +4212- 14 2B TRB $2B +4214- 0A ASL +4215- 1B ??? +4216- 42 ??? +4217- 8C 03 D0 STY $D003 +421A- 60 RTS +421B- 48 PHA +421C- 20 00 E0 JSR $E000 +421F- 0F ??? +4220- 09 89 ORA #$89 +4222- 16 15 ASL $15,X +4224- 00 BRK +4225- 68 PLA +4226- 4A LSR +4227- AA TAX +4228- A0 78 LDY #$78 +422A- A9 42 LDA #$42 +422C- E0 05 CPX #$05 +422E- 90 04 BCC $4234 +4230- A0 90 LDY #$90 +4232- A9 42 LDA #$42 +4234- 8C 4C 42 STY $424C +4237- 8D 4D 42 STA $424D +423A- BD 5A 42 LDA $425A,X +423D- 85 D3 STA $D3 +423F- BD 64 42 LDA $4264,X +4242- 85 D4 STA $D4 +4244- BD 6E 42 LDA $426E,X +4247- 85 D5 STA $D5 +4249- A6 D3 LDX $D3 +424B- 20 FF FF JSR $FFFF +424E- A5 D3 LDA $D3 +4250- 18 CLC +4251- 65 D5 ADC $D5 +4253- 85 D3 STA $D3 +4255- C6 D4 DEC $D4 +4257- D0 F0 BNE $4249 +4259- 60 RTS +425A- 09 1D ORA #$1D +425C- 09 09 ORA #$09 +425E- 0A ASL +425F- 09 1B ORA #$1B +4261- 09 0A ORA #$0A +4263- 0A ASL +4264- 01 01 ORA ($01,X) +4266- 02 ??? +4267- 06 0A ASL $0A +4269- 01 01 ORA ($01,X) +426B- 02 ??? +426C- 03 ??? +426D- 05 00 ORA $00 +426F- 00 BRK +4270- 14 04 TRB $04 +4272- 02 ??? +4273- 00 BRK +4274- 00 BRK +4275- 12 08 ORA ($08) +4277- 04 8E TSB $8E +4279- 84 42 STY $42 +427B- E8 INX +427C- 8E 8A 42 STX $428A +427F- 20 00 E0 JSR $E000 +4282- 11 7E ORA ($7E),Y +4284- 00 BRK +4285- 8F ??? +4286- 01 0A ORA ($0A,X) +4288- 11 3F ORA ($3F),Y +428A- 01 8F ORA ($8F,X) +428C- 01 0A ORA ($0A,X) +428E- 00 BRK +428F- 60 RTS +4290- 8E A1 42 STX $42A1 +4293- E8 INX +4294- 8E A6 42 STX $42A6 +4297- E8 INX +4298- E8 INX +4299- 8E AC 42 STX $42AC +429C- 20 00 E0 JSR $E000 +429F- 11 7E ORA ($7E),Y +42A1- 00 BRK +42A2- 8A TXA +42A3- 01 14 ORA ($14,X) +42A5- 10 01 BPL $42A8 +42A7- 8A TXA +42A8- 02 ??? +42A9- 14 11 TRB $11 +42AB- 3F ??? +42AC- 03 ??? +42AD- 8A TXA +42AE- 01 14 ORA ($14,X) +42B0- 00 BRK +42B1- 60 RTS +42B2- 20 72 E0 JSR $E072 +42B5- 20 00 E0 JSR $E000 +42B8- 06 3D ASL $3D +42BA- 00 BRK +42BB- 45 57 EOR $57 +42BD- 48 PHA +42BE- 41 54 EOR ($54,X) +42C0- 20 59 45 JSR $4559 +42C3- 41 52 EOR ($52,X) +42C5- 20 49 53 JSR $5349 +42C8- 20 54 48 JSR $4854 +42CB- 49 53 EOR #$53 +42CD- 0D 09 38 ORA $3809 +42D0- 46 20 LSR $20 +42D2- 46 4F LSR $4F +42D4- 52 20 EOR ($20) +42D6- 3F ??? +42D7- 0D 0D 3E ORA $3E0D +42DA- 0D 0D 28 ORA $280D +42DD- 31 37 AND ($37),Y +42DF- 35 33 AND $33,X +42E1- 2D 39 39 AND $3939 +42E4- 39 39 29 AND $2939,Y +42E7- 0D 00 20 ORA $2000 +42EA- 6F ??? +42EB- E0 04 CPX #$04 +42ED- D0 04 BNE $42F3 +42EF- 46 00 LSR $00 +42F1- 5D B0 3B EOR $3BB0,X +42F4- 20 E1 43 JSR $43E1 +42F7- A0 20 LDY #$20 +42F9- A2 04 LDX #$04 +42FB- A9 D0 LDA #$D0 +42FD- 86 D7 STX $D7 +42FF- 85 D8 STA $D8 +4301- 90 06 BCC $4309 +4303- 20 66 E0 JSR $E066 +4306- 4C E9 42 JMP $42E9 +4309- 8E 20 43 STX $4320 +430C- 8D 21 43 STA $4321 +430F- 8C 2A 43 STY $432A +4312- 20 03 7B JSR $7B03 +4315- A9 80 LDA #$80 +4317- 8D 00 96 STA $9600 +431A- A0 FF LDY #$FF +431C- C8 INY +431D- B1 D7 LDA ($D7),Y +431F- 99 FF FF STA $FFFF,Y +4322- 99 01 96 STA $9601,Y +4325- D0 F5 BNE $431C +4327- B0 05 BCS $432E +4329- A0 00 LDY #$00 +432B- 20 06 7B JSR $7B06 +432E- 18 CLC +432F- 60 RTS +4330- 20 72 E0 JSR $E072 +4333- 20 00 E0 JSR $E000 +4336- 05 06 ORA $06 +4338- 8C 00 22 STY $2200 +433B- 09 12 ORA #$12 +433D- 45 41 EOR $41 +433F- 20 4D 4F JSR $4F4D +4342- 4E 54 48 LSR $4854 +4345- 3A DEC +4346- 0D 0D 00 ORA $000D +4349- 20 75 E0 JSR $E075 +434C- 05 0C ORA $0C +434E- 8B ??? +434F- 43 ??? +4350- AC 09 D0 LDY $D009 +4353- 20 28 E0 JSR $E028 +4356- 0D 0E 31 ORA $310E +4359- 0C 58 FF TSB $FF58 F8ROM:IORTS +435C- 8C 09 D0 STY $D009 +435F- B0 CE BCS $432F +4361- BE 73 43 LDX $4373,Y +4364- B9 7F 43 LDA $437F,Y +4367- 86 D7 STX $D7 +4369- 85 D8 STA $D8 +436B- A2 40 LDX #$40 +436D- A9 7A LDA #$7A +436F- A0 1F LDY #$1F +4371- 90 96 BCC $4309 +4373- 8B ??? +4374- 93 ??? +4375- 9C A2 A8 STZ $A8A2 +4378- AC B1 B6 LDY $B6B1 +437B- BD C7 CF LDA $CFC7,X +437E- D8 CLD +437F- 43 ??? +4380- 43 ??? +4381- 43 ??? +4382- 43 ??? +4383- 43 ??? +4384- 43 ??? +4385- 43 ??? +4386- 43 ??? +4387- 43 ??? +4388- 43 ??? +4389- 43 ??? +438A- 43 ??? +438B- 4A LSR +438C- 41 4E EOR ($4E,X) +438E- 55 41 EOR $41,X +4390- 52 59 EOR ($59) +4392- 00 BRK +4393- 46 45 LSR $45 +4395- 42 ??? +4396- 52 55 EOR ($55) +4398- 41 52 EOR ($52,X) +439A- 59 00 4D EOR $4D00,Y +439D- 41 52 EOR ($52,X) +439F- 43 ??? +43A0- 48 PHA +43A1- 00 BRK +43A2- 41 50 EOR ($50,X) +43A4- 52 49 EOR ($49) +43A6- 4C 00 4D JMP $4D00 +43A9- 41 59 EOR ($59,X) +43AB- 00 BRK +43AC- 4A LSR +43AD- 55 4E EOR $4E,X +43AF- 45 00 EOR $00 +43B1- 4A LSR +43B2- 55 4C EOR $4C,X +43B4- 59 00 41 EOR $4100,Y +43B7- 55 47 EOR $47,X +43B9- 55 53 EOR $53,X +43BB- 54 ??? +43BC- 00 BRK +43BD- 53 ??? +43BE- 45 50 EOR $50 +43C0- 54 ??? +43C1- 45 4D EOR $4D +43C3- 42 ??? +43C4- 45 52 EOR $52 +43C6- 00 BRK +43C7- 4F ??? +43C8- 43 ??? +43C9- 54 ??? +43CA- 4F ??? +43CB- 42 ??? +43CC- 45 52 EOR $52 +43CE- 00 BRK +43CF- 4E 4F 56 LSR $564F +43D2- 45 4D EOR $4D +43D4- 42 ??? +43D5- 45 52 EOR $52 +43D7- 00 BRK +43D8- 44 ??? +43D9- 45 43 EOR $43 +43DB- 45 4D EOR $4D +43DD- 42 ??? +43DE- 45 52 EOR $52 +43E0- 00 BRK +43E1- A0 00 LDY #$00 +43E3- 84 72 STY $72 +43E5- 84 73 STY $73 +43E7- B9 04 D0 LDA $D004,Y +43EA- C9 30 CMP #$30 +43EC- 90 3A BCC $4428 +43EE- C9 3A CMP #$3A +43F0- B0 36 BCS $4428 +43F2- 29 0F AND #$0F +43F4- 48 PHA +43F5- A6 73 LDX $73 +43F7- A5 72 LDA $72 +43F9- 0A ASL +43FA- 26 73 ROL $73 +43FC- 0A ASL +43FD- 26 73 ROL $73 +43FF- 65 72 ADC $72 +4401- 85 72 STA $72 +4403- 8A TXA +4404- 65 73 ADC $73 +4406- 85 73 STA $73 +4408- 06 72 ASL $72 +440A- 26 73 ROL $73 +440C- 68 PLA +440D- 65 72 ADC $72 +440F- 85 72 STA $72 +4411- 90 02 BCC $4415 +4413- E6 73 INC $73 +4415- C8 INY +4416- C0 04 CPY #$04 +4418- 90 CD BCC $43E7 +441A- A4 72 LDY $72 +441C- A5 73 LDA $73 +441E- C9 06 CMP #$06 +4420- D0 02 BNE $4424 +4422- C0 D9 CPY #$D9 +4424- 90 02 BCC $4428 +4426- 18 CLC +4427- 60 RTS +4428- 38 SEC +4429- 60 RTS +442A- 88 DEY +442B- 84 D9 STY $D9 +442D- 20 E1 43 JSR $43E1 +4430- A4 72 LDY $72 +4432- A5 73 LDA $73 +4434- 84 70 STY $70 +4436- 85 71 STA $71 +4438- 20 AD 44 JSR $44AD +443B- A9 1C LDA #$1C +443D- 69 00 ADC #$00 +443F- 8D 8D 44 STA $448D +4442- A6 72 LDX $72 +4444- D0 02 BNE $4448 +4446- C6 73 DEC $73 +4448- C6 72 DEC $72 +444A- 20 C7 44 JSR $44C7 +444D- 20 A2 44 JSR $44A2 +4450- 20 CA 44 JSR $44CA +4453- 20 98 44 JSR $4498 +4456- 20 D0 44 JSR $44D0 +4459- 20 A2 44 JSR $44A2 +445C- A0 00 LDY #$00 +445E- AE 09 D0 LDX $D009 +4461- BD 8C 44 LDA $448C,X +4464- 8D 0D D0 STA $D00D +4467- CA DEX +4468- 30 08 BMI $4472 +446A- BD 8C 44 LDA $448C,X +446D- 20 A2 44 JSR $44A2 +4470- 90 F5 BCC $4467 +4472- A5 D9 LDA $D9 +4474- 20 A2 44 JSR $44A2 +4477- A4 70 LDY $70 +4479- A5 71 LDA $71 +447B- 84 75 STY $75 +447D- 85 76 STA $76 +447F- A9 07 LDA #$07 +4481- A0 00 LDY #$00 +4483- 20 DC 44 JSR $44DC +4486- A5 79 LDA $79 +4488- 8D 0C D0 STA $D00C +448B- 60 RTS +448C- 1F ??? +448D- 1C 1F 1E TRB $1E1F +4490- 1F ??? +4491- 1E 1F 1F ASL $1F1F,X +4494- 1E 1F 1E ASL $1E1F,X +4497- 1F ??? +4498- 49 FF EOR #$FF +449A- 48 PHA +449B- 98 TYA +449C- 49 FF EOR #$FF +449E- A8 TAY +449F- 68 PLA +44A0- 38 SEC +44A1- 24 18 BIT $18 +44A3- 65 70 ADC $70 +44A5- 85 70 STA $70 +44A7- 98 TYA +44A8- 65 71 ADC $71 +44AA- 85 71 STA $71 +44AC- 60 RTS +44AD- 06 74 ASL $74 +44AF- 20 C7 44 JSR $44C7 +44B2- B0 02 BCS $44B6 +44B4- E6 74 INC $74 +44B6- 20 CA 44 JSR $44CA +44B9- B0 02 BCS $44BD +44BB- C6 74 DEC $74 +44BD- 20 D0 44 JSR $44D0 +44C0- B0 02 BCS $44C4 +44C2- E6 74 INC $74 +44C4- 66 74 ROR $74 +44C6- 60 RTS +44C7- A9 04 LDA #$04 +44C9- 2C A9 64 BIT $64A9 +44CC- A0 00 LDY #$00 +44CE- F0 04 BEQ $44D4 +44D0- A9 90 LDA #$90 +44D2- A0 01 LDY #$01 +44D4- A6 72 LDX $72 +44D6- 86 75 STX $75 +44D8- A6 73 LDX $73 +44DA- 86 76 STX $76 +44DC- 85 77 STA $77 +44DE- 84 78 STY $78 +44E0- A9 00 LDA #$00 +44E2- 85 79 STA $79 +44E4- 85 7A STA $7A +44E6- A0 10 LDY #$10 +44E8- 06 75 ASL $75 +44EA- 26 76 ROL $76 +44EC- 26 79 ROL $79 +44EE- 26 7A ROL $7A +44F0- 38 SEC +44F1- A5 79 LDA $79 +44F3- E5 77 SBC $77 +44F5- AA TAX +44F6- A5 7A LDA $7A +44F8- E5 78 SBC $78 +44FA- 90 06 BCC $4502 +44FC- 86 79 STX $79 +44FE- 85 7A STA $7A +4500- E6 75 INC $75 +4502- 88 DEY +4503- D0 E3 BNE $44E8 +4505- 38 SEC +4506- A5 79 LDA $79 +4508- 05 7A ORA $7A +450A- D0 01 BNE $450D +450C- 18 CLC +450D- A5 75 LDA $75 +450F- A4 76 LDY $76 +4511- 60 RTS +4512- 43 ??? +4513- 48 PHA +4514- 4F ??? +4515- 4F ??? +4516- 53 ??? +4517- 45 20 EOR $20 +4519- 00 BRK +451A- 46 52 LSR $52 +451C- 4F ??? +451D- 4D 20 00 EOR $0020 +4520- 50 52 BVC $4574 +4522- 49 4E EOR #$4E +4524- 54 ??? +4525- 20 53 48 JSR $4853 +4528- 4F ??? +4529- 50 00 BVC $452B +452B- 43 ??? +452C- 4F ??? +452D- 4D 50 41 EOR $4150 +4530- 4E 49 4F LSR $4F49 +4533- 4E 00 46 LSR $4600 +4536- 52 4F EOR ($4F) +4538- 4D 20 4F EOR $4F20 +453B- 54 ??? +453C- 48 PHA +453D- 45 52 EOR $52 +453F- 20 44 49 JSR $4944 +4542- 53 ??? +4543- 4B ??? +4544- 00 BRK +4545- 47 ??? +4546- 4F ??? +4547- 20 54 4F JSR $4F54 +454A- 20 4D 41 JSR $414D +454D- 49 4E EOR #$4E +454F- 20 4D 45 JSR $454D +4552- 4E 55 00 LSR $0055 +4555- 3C 52 45 BIT $4552,X +4558- 54 ??? +4559- 55 52 EOR $52,X +455B- 4E 3E 00 LSR $003E +455E- 20 72 E0 JSR $E072 +4561- 20 00 E0 JSR $E000 +4564- 06 8C ASL $8C +4566- 00 BRK +4567- 40 RTI +4568- 05 09 ORA $09 +456A- 12 45 ORA ($45) +456C- 09 38 ORA #$38 +456E- 46 3A LSR $3A +4570- 0D 0D 0D ORA $0D0D +4573- 4D 4F 4E EOR $4E4F +4576- 54 ??? +4577- 48 PHA +4578- 4C 59 0D JMP $0D59 +457B- 57 ??? +457C- 45 45 EOR $45 +457E- 4B ??? +457F- 4C 59 0D JMP $0D59 +4582- 09 35 ORA #$35 +4584- 45 0D EOR $0D +4586- 00 BRK +4587- AC 00 D0 LDY $D000 +458A- 20 28 E0 JSR $E028 +458D- 0A ASL +458E- 14 57 TRB $57 +4590- 03 ??? +4591- 58 CLI +4592- FF ??? +4593- B0 19 BCS $45AE +4595- 98 TYA +4596- 48 PHA +4597- CD 00 D0 CMP $D000 +459A- F0 03 BEQ $459F +459C- 20 00 7B JSR $7B00 +459F- 18 CLC +45A0- 68 PLA +45A1- 8D 00 D0 STA $D000 +45A4- A8 TAY +45A5- 20 4B E0 JSR $E04B +45A8- 58 CLI +45A9- FF ??? +45AA- 58 CLI +45AB- FF ??? +45AC- AF ??? +45AD- 45 60 EOR $60 +45AF- 20 9E 48 JSR $489E +45B2- 38 SEC +45B3- 20 2E E0 JSR $E02E +45B6- 20 96 40 JSR $4096 +45B9- 90 F3 BCC $45AE +45BB- 4C 5E 45 JMP $455E +45BE- 20 72 E0 JSR $E072 +45C1- 20 00 E0 JSR $E000 +45C4- 06 8C ASL $8C +45C6- 00 BRK +45C7- 32 05 AND ($05) +45C9- 09 12 ORA #$12 +45CB- 45 41 EOR $41 +45CD- 20 09 30 JSR $3009 +45D0- 46 3A LSR $3A +45D2- 0D 0D 0D ORA $0D0D +45D5- 09 1A ORA #$1A +45D7- 45 09 EOR $09 +45D9- 20 45 09 JSR $0945 +45DC- 3F ??? +45DD- 45 0D EOR $0D +45DF- 09 1A ORA #$1A +45E1- 45 09 EOR $09 +45E3- 2B ??? +45E4- 45 09 EOR $09 +45E6- 3F ??? +45E7- 45 0D EOR $0D +45E9- 09 35 ORA #$35 +45EB- 45 0D EOR $0D +45ED- 4E 4F 20 LSR $204F +45F0- 09 30 ORA #$30 +45F2- 46 0D LSR $0D +45F4- 00 BRK +45F5- AC 01 D0 LDY $D001 +45F8- 20 28 E0 JSR $E028 +45FB- 06 1C ASL $1C +45FD- 49 04 EOR #$04 +45FF- 58 CLI +4600- FF ??? +4601- 8C 01 D0 STY $D001 +4604- B0 10 BCS $4616 +4606- A2 01 LDX #$01 +4608- 20 CE 48 JSR $48CE +460B- 20 4B E0 JSR $E04B +460E- 17 ??? +460F- 46 27 LSR $27 +4611- 46 2B LSR $2B +4613- 46 58 LSR $58 +4615- FF ??? +4616- 60 RTS +4617- AD 02 D0 LDA $D002 +461A- A2 00 LDX #$00 +461C- A0 78 LDY #$78 +461E- 20 7E E0 JSR $E07E +4621- B0 2D BCS $4650 +4623- 8D 02 D0 STA $D002 +4626- 60 RTS +4627- A9 02 LDA #$02 +4629- 18 CLC +462A- 24 38 BIT $38 +462C- 08 PHP +462D- 20 2B E0 JSR $E02B +4630- 47 ??? +4631- 52 41 EOR ($41) +4633- 50 48 BVC $467D +4635- 49 43 EOR #$43 +4637- 00 BRK +4638- 43 ??? +4639- 41 4C EOR ($4C,X) +463B- 45 4E EOR $4E +463D- 44 ??? +463E- 41 52 EOR ($52,X) +4640- 00 BRK +4641- 00 BRK +4642- 04 00 TSB $00 +4644- 78 SEI +4645- 40 RTI +4646- 02 ??? +4647- 28 PLP +4648- 20 2E E0 JSR $E02E +464B- 20 96 40 JSR $4096 +464E- 90 D6 BCC $4626 +4650- 4C BE 45 JMP $45BE +4653- AC 0E D0 LDY $D00E +4656- 18 CLC +4657- 20 03 08 JSR $0803 +465A- 8C 0E D0 STY $D00E +465D- B0 0A BCS $4669 +465F- A2 00 LDX #$00 +4661- 20 CE 48 JSR $48CE +4664- 20 6A 46 JSR $466A +4667- B0 EA BCS $4653 +4669- 60 RTS +466A- 20 4B E0 JSR $E04B +466D- 75 46 ADC $46,X +466F- 7F ??? +4670- 46 89 LSR $89 +4672- 46 58 LSR $58 +4674- FF ??? +4675- AC 0F D0 LDY $D00F +4678- 20 06 08 JSR $0806 +467B- 8C 0F D0 STY $D00F +467E- 60 RTS +467F- AC 10 D0 LDY $D010 +4682- 20 09 08 JSR $0809 +4685- 8C 10 D0 STY $D010 +4688- 60 RTS +4689- 20 2B E0 JSR $E02B +468C- 46 4F LSR $4F +468E- 4E 54 00 LSR $0054 +4691- 43 ??? +4692- 41 4C EOR ($4C,X) +4694- 45 4E EOR $4E +4696- 44 ??? +4697- 41 52 EOR ($52,X) +4699- 20 46 4F JSR $4F46 +469C- 4E 54 00 LSR $0054 +469F- 46 4F LSR $4F +46A1- 4E 54 2E LSR $2E54 +46A4- 00 BRK +46A5- 00 BRK +46A6- F4 ??? +46A7- 5F ??? +46A8- 00 BRK +46A9- 00 BRK +46AA- 38 SEC +46AB- 20 2E E0 JSR $E02E +46AE- A0 3A LDY #$3A +46B0- B9 00 60 LDA $6000,Y +46B3- 29 7F AND #$7F +46B5- 99 00 60 STA $6000,Y +46B8- 88 DEY +46B9- 10 F5 BPL $46B0 +46BB- 4C 96 40 JMP $4096 +46BE- 20 72 E0 JSR $E072 +46C1- 20 00 E0 JSR $E000 +46C4- 05 06 ORA $06 +46C6- 8C 00 38 STY $3800 +46C9- 54 ??? +46CA- 59 50 45 EOR $4550,Y +46CD- 20 4F 4E JSR $4E4F +46D0- 45 2D EOR $2D +46D2- 4C 49 4E JMP $4E49 +46D5- 45 52 EOR $52 +46D7- 20 46 4F JSR $4F46 +46DA- 52 0D EOR ($0D) +46DC- 42 ??? +46DD- 4F ??? +46DE- 54 ??? +46DF- 54 ??? +46E0- 4F ??? +46E1- 4D 20 4F EOR $4F20 +46E4- 46 20 LSR $20 +46E6- 09 38 ORA #$38 +46E8- 46 0D LSR $0D +46EA- 00 BRK +46EB- A2 03 LDX #$03 +46ED- A0 4E LDY #$4E +46EF- A9 13 LDA #$13 +46F1- 20 21 7B JSR $7B21 +46F4- 4C 1E 7B JMP $7B1E +46F7- 18 CLC +46F8- B0 38 BCS $4732 +46FA- 20 CA 40 JSR $40CA +46FD- 20 72 E0 JSR $E072 +4700- 20 00 E0 JSR $E000 +4703- 05 06 ORA $06 +4705- 8C 00 20 STY $2000 +4708- 4D 41 4B EOR $4B41 +470B- 45 20 EOR $20 +470D- 53 ??? +470E- 55 52 EOR $52,X +4710- 45 20 EOR $20 +4712- 50 52 BVC $4766 +4714- 49 4E EOR #$4E +4716- 54 ??? +4717- 45 52 EOR $52 +4719- 20 49 53 JSR $5349 +471C- 20 52 45 JSR $4552 +471F- 41 44 EOR ($44,X) +4721- 59 0D 41 EOR $410D,Y +4724- 4E 44 20 LSR $2044 +4727- 43 ??? +4728- 48 PHA +4729- 4F ??? +472A- 4F ??? +472B- 53 ??? +472C- 45 20 EOR $20 +472E- 4F ??? +472F- 50 54 BVC $4785 +4731- 49 4F EOR #$4F +4733- 4E 28 53 LSR $5328 +4736- 29 3A AND #$3A +4738- 0D 0D 0D ORA $0D0D +473B- 0D 53 45 ORA $4553 +473E- 54 ??? +473F- 20 4E 55 JSR $554E +4742- 4D 42 45 EOR $4542 +4745- 52 20 EOR ($20) +4747- 4F ??? +4748- 46 20 LSR $20 +474A- 43 ??? +474B- 4F ??? +474C- 50 49 BVC $4797 +474E- 45 53 EOR $53 +4750- 0D 54 45 ORA $4554 +4753- 53 ??? +4754- 54 ??? +4755- 20 50 41 JSR $4150 +4758- 50 45 BVC $479F +475A- 52 20 EOR ($20) +475C- 50 4F BVC $47AD +475E- 53 ??? +475F- 49 54 EOR #$54 +4761- 49 4F EOR #$4F +4763- 4E 0D 2A LSR $2A0D +4766- 2A ROL +4767- 2A ROL +4768- 2A ROL +4769- 20 20 20 JSR $2020 +476C- 50 52 BVC $47C0 +476E- 49 4E EOR #$4E +4770- 54 ??? +4771- 20 20 20 JSR $2020 +4774- 2A ROL +4775- 2A ROL +4776- 2A ROL +4777- 2A ROL +4778- 0D 53 41 ORA $4153 +477B- 56 45 LSR $45,X +477D- 20 54 48 JSR $4854 +4780- 49 53 EOR #$53 +4782- 20 09 38 JSR $3809 +4785- 46 0D LSR $0D +4787- 53 ??? +4788- 54 ??? +4789- 41 52 EOR ($52,X) +478B- 54 ??? +478C- 20 46 52 JSR $5246 +478F- 4F ??? +4790- 4D 20 53 EOR $5320 +4793- 43 ??? +4794- 52 41 EOR ($41) +4796- 54 ??? +4797- 43 ??? +4798- 48 PHA +4799- 0D 47 4F ORA $4F47 +479C- 4F ??? +479D- 44 ??? +479E- 42 ??? +479F- 59 45 3A EOR $3A45,Y +47A2- 20 09 45 JSR $4509 +47A5- 45 0D EOR $0D +47A7- 00 BRK +47A8- AC 11 D0 LDY $D011 +47AB- 20 28 E0 JSR $E028 +47AE- 05 1E ORA $1E +47B0- 47 ??? +47B1- 06 58 ASL $58 +47B3- FF ??? +47B4- 8C 11 D0 STY $D011 +47B7- B0 0F BCS $47C8 +47B9- 20 4B E0 JSR $E04B +47BC- C9 47 CMP #$47 +47BE- 19 48 25 ORA $2548,Y +47C1- 48 PHA +47C2- 37 ??? +47C3- 48 PHA +47C4- 77 ??? +47C5- 48 PHA +47C6- 4A LSR +47C7- 48 PHA +47C8- 60 RTS +47C9- 20 00 E0 JSR $E000 +47CC- 06 2C ASL $2C +47CE- 00 BRK +47CF- 88 DEY +47D0- 48 PHA +47D1- 4F ??? +47D2- 57 ??? +47D3- 20 4D 41 JSR $414D +47D6- 4E 59 20 LSR $2059 +47D9- 43 ??? +47DA- 4F ??? +47DB- 50 49 BVC $4826 +47DD- 45 53 EOR $53 +47DF- 20 44 4F JSR $4F44 +47E2- 20 59 4F JSR $4F59 +47E5- 55 0D EOR $0D,X +47E7- 57 ??? +47E8- 49 53 EOR #$53 +47EA- 48 PHA +47EB- 20 54 4F JSR $4F54 +47EE- 20 50 52 JSR $5250 +47F1- 49 4E EOR #$4E +47F3- 54 ??? +47F4- 3F ??? +47F5- 0D 00 A9 ORA $A900 +47F8- 63 ??? +47F9- 85 D3 STA $D3 +47FB- A2 A5 LDX #$A5 +47FD- A0 90 LDY #$90 +47FF- AD 12 D0 LDA $D012 +4802- 20 87 E0 JSR $E087 +4805- B0 06 BCS $480D +4807- 8D 12 D0 STA $D012 +480A- EE 11 D0 INC $D011 +480D- 20 00 E0 JSR $E000 +4810- 0F ??? +4811- 01 88 ORA ($88,X) +4813- 26 10 ROL $10 +4815- 00 BRK +4816- 4C A8 47 JMP $47A8 +4819- 20 15 E0 JSR $E015 +481C- 20 84 E0 JSR $E084 +481F- 20 12 E0 JSR $E012 +4822- 4C A8 47 JMP $47A8 +4825- 20 15 E0 JSR $E015 +4828- AD 12 D0 LDA $D012 +482B- 8D 15 18 STA $1815 +482E- 20 00 0F JSR $0F00 +4831- 20 12 E0 JSR $E012 +4834- 4C F7 46 JMP $46F7 +4837- 20 9E 48 JSR $489E +483A- A9 00 LDA #$00 +483C- 8D 11 D0 STA $D011 +483F- 20 31 E0 JSR $E031 +4842- A9 03 LDA #$03 +4844- 8D 11 D0 STA $D011 +4847- 4C F7 46 JMP $46F7 +484A- 20 00 E0 JSR $E000 +484D- 05 06 ORA $06 +484F- 8C 00 A7 STY $A700 +4852- 09 55 ORA #$55 +4854- 45 20 EOR $20 +4856- 54 ??? +4857- 4F ??? +4858- 20 09 45 JSR $4509 +485B- 45 0D EOR $0D +485D- 4F ??? +485E- 52 0D EOR ($0D) +4860- 00 BRK +4861- 20 25 E0 JSR $E025 +4864- C9 0D CMP #$0D +4866- F0 0C BEQ $4874 +4868- 20 00 E0 JSR $E000 +486B- 0F ??? +486C- 01 A7 ORA ($A7,X) +486E- 26 10 ROL $10 +4870- 00 BRK +4871- 4C A8 47 JMP $47A8 +4874- 4C 00 08 JMP $0800 +4877- 20 00 E0 JSR $E000 +487A- 05 06 ORA $06 +487C- 8C 00 A7 STY $A700 +487F- 09 55 ORA #$55 +4881- 45 20 EOR $20 +4883- 54 ??? +4884- 4F ??? +4885- 20 53 54 JSR $5453 +4888- 41 52 EOR ($52,X) +488A- 54 ??? +488B- 20 4F 56 JSR $564F +488E- 45 52 EOR $52 +4890- 0D 4F 52 ORA $524F +4893- 0D 00 20 ORA $2000 +4896- 25 E0 AND $E0 +4898- C9 0D CMP #$0D +489A- D0 CC BNE $4868 +489C- 18 CLC +489D- 60 RTS +489E- AC 13 D0 LDY $D013 +48A1- AD 14 D0 LDA $D014 +48A4- 38 SEC +48A5- E9 D0 SBC #$D0 +48A7- 8C CB 48 STY $48CB +48AA- 8D CC 48 STA $48CC +48AD- 20 2B E0 JSR $E02B +48B0- 43 ??? +48B1- 41 4C EOR ($4C,X) +48B3- 45 4E EOR $4E +48B5- 44 ??? +48B6- 41 52 EOR ($52,X) +48B8- 00 BRK +48B9- 43 ??? +48BA- 41 4C EOR ($4C,X) +48BC- 45 4E EOR $4E +48BE- 44 ??? +48BF- 41 52 EOR ($52,X) +48C1- 00 BRK +48C2- 43 ??? +48C3- 41 4C EOR ($4C,X) +48C5- 45 2E EOR $2E +48C7- 00 BRK +48C8- 00 BRK +48C9- 00 BRK +48CA- D0 00 BNE $48CC +48CC- 00 BRK +48CD- 60 RTS +48CE- 08 PHP +48CF- AD 59 D0 LDA $D059 +48D2- C9 FF CMP #$FF +48D4- D0 0E BNE $48E4 +48D6- A9 08 LDA #$08 +48D8- C0 03 CPY #$03 +48DA- F0 05 BEQ $48E1 +48DC- 5D 5A D0 EOR $D05A,X +48DF- D0 03 BNE $48E4 +48E1- 9D 5A D0 STA $D05A,X +48E4- 28 PLP +48E5- 60 RTS +48E6- 20 CA 40 JSR $40CA +48E9- AC F8 95 LDY $95F8 +48EC- F0 DF BEQ $48CD +48EE- AC 59 D0 LDY $D059 +48F1- C8 INY +48F2- D0 D9 BNE $48CD +48F4- 20 72 E0 JSR $E072 +48F7- 20 00 E0 JSR $E000 +48FA- 05 06 ORA $06 +48FC- 8C 00 20 STY $2000 +48FF- 09 12 ORA #$12 +4901- 45 43 EOR $43 +4903- 4F ??? +4904- 4C 4F 52 JMP $524F +4907- 53 ??? +4908- 3A DEC +4909- 0D 03 06 ORA $0603 +490C- 45 00 EOR $00 +490E- 38 SEC +490F- 09 8C ORA #$8C +4911- 46 0D LSR $0D +4913- 09 30 ORA #$30 +4915- 46 0D LSR $0D +4917- 4C 49 4E JMP $4E49 +491A- 45 53 EOR $53 +491C- 0D 4E 4F ORA $4F4E +491F- 54 ??? +4920- 45 53 EOR $53 +4922- 0D 00 A9 ORA $A900 +4925- 03 ??? +4926- 48 PHA +4927- 85 D3 STA $D3 +4929- 20 00 4A JSR $4A00 +492C- 68 PLA +492D- 38 SEC +492E- E9 01 SBC #$01 +4930- 10 F4 BPL $4926 +4932- 20 77 4A JSR $4A77 +4935- 20 00 E0 JSR $E000 +4938- 06 2C ASL $2C +493A- 00 BRK +493B- 80 55 BRA $4992 +493D- 53 ??? +493E- 45 14 EOR $14 +4940- 44 ??? +4941- 20 54 4F JSR $4F54 +4944- 20 53 45 JSR $4553 +4947- 4C 45 43 JMP $4345 +494A- 54 ??? +494B- 20 49 54 JSR $5449 +494E- 45 4D EOR $4D +4950- 0D 0D 50 ORA $500D +4953- 52 45 EOR ($45) +4955- 53 ??? +4956- 53 ??? +4957- 20 3C 53 JSR $533C +495A- 50 41 BVC $499D +495C- 43 ??? +495D- 45 3E EOR $3E +495F- 20 54 4F JSR $4F54 +4962- 20 43 48 JSR $4843 +4965- 41 4E EOR ($4E,X) +4967- 47 ??? +4968- 45 0D EOR $0D +496A- 43 ??? +496B- 4F ??? +496C- 4C 4F 52 JMP $524F +496F- 53 ??? +4970- 20 4F 46 JSR $464F +4973- 20 53 45 JSR $4553 +4976- 4C 45 43 JMP $4345 +4979- 54 ??? +497A- 45 44 EOR $44 +497C- 20 49 54 JSR $5449 +497F- 45 4D EOR $4D +4981- 0D 0D 50 ORA $500D +4984- 52 45 EOR ($45) +4986- 53 ??? +4987- 53 ??? +4988- 20 09 55 JSR $5509 +498B- 45 20 EOR $20 +498D- 57 ??? +498E- 48 PHA +498F- 45 4E EOR $4E +4991- 20 44 4F JSR $4F44 +4994- 4E 45 0D LSR $0D45 +4997- 00 BRK +4998- A2 00 LDX #$00 +499A- 86 D3 STX $D3 +499C- 20 E9 49 JSR $49E9 +499F- 20 25 E0 JSR $E025 +49A2- 48 PHA +49A3- 20 E9 49 JSR $49E9 +49A6- 68 PLA +49A7- A6 D3 LDX $D3 +49A9- BC 5A D0 LDY $D05A,X +49AC- 20 51 E0 JSR $E051 +49AF- 0D FE 49 ORA $49FE +49B2- 1B ??? +49B3- FC ??? +49B4- 49 08 EOR #$08 +49B6- C8 INY +49B7- 49 0B EOR #$0B +49B9- C8 INY +49BA- 49 15 EOR #$15 +49BC- CD 49 0A CMP $0A49 +49BF- CD 49 20 CMP $2049 +49C2- D4 ??? +49C3- 49 00 EOR #$00 +49C5- 4C 9C 49 JMP $499C +49C8- CA DEX +49C9- 10 CF BPL $499A +49CB- A2 02 LDX #$02 +49CD- E8 INX +49CE- E0 04 CPX #$04 +49D0- 90 C8 BCC $499A +49D2- F0 C4 BEQ $4998 +49D4- C0 08 CPY #$08 +49D6- F0 C4 BEQ $499C +49D8- C8 INY +49D9- 98 TYA +49DA- C9 08 CMP #$08 +49DC- 90 02 BCC $49E0 +49DE- A9 00 LDA #$00 +49E0- 9D 5A D0 STA $D05A,X +49E3- 20 00 4A JSR $4A00 +49E6- 4C 9C 49 JMP $499C +49E9- A5 D3 LDA $D3 +49EB- 0A ASL +49EC- 0A ASL +49ED- 0A ASL +49EE- 69 37 ADC #$37 +49F0- 8D F8 49 STA $49F8 +49F3- 20 00 E0 JSR $E000 +49F6- 17 ??? +49F7- 09 00 ORA #$00 +49F9- 0E 09 00 ASL $0009 +49FC- 38 SEC +49FD- 60 RTS +49FE- 18 CLC +49FF- 60 RTS +4A00- A5 D3 LDA $D3 +4A02- A8 TAY +4A03- 0A ASL +4A04- 0A ASL +4A05- 0A ASL +4A06- 69 38 ADC #$38 +4A08- 8D 32 4A STA $4A32 +4A0B- 8D 38 4A STA $4A38 +4A0E- BE 5A D0 LDX $D05A,Y +4A11- A0 FF LDY #$FF +4A13- CA DEX +4A14- 30 08 BMI $4A1E +4A16- C8 INY +4A17- B9 3F 4A LDA $4A3F,Y +4A1A- D0 FA BNE $4A16 +4A1C- F0 F5 BEQ $4A13 +4A1E- C8 INY +4A1F- 98 TYA +4A20- 18 CLC +4A21- 69 3F ADC #$3F +4A23- 8D 3A 4A STA $4A3A +4A26- A9 4A LDA #$4A +4A28- 69 00 ADC #$00 +4A2A- 8D 3B 4A STA $4A3B +4A2D- 20 00 E0 JSR $E000 +4A30- 0F ??? +4A31- 18 CLC +4A32- 00 BRK +4A33- 0F ??? +4A34- 07 ??? +4A35- 06 A9 ASL $A9 +4A37- 00 BRK +4A38- 00 BRK +4A39- 09 FF ORA #$FF +4A3B- FF ??? +4A3C- 0E 00 60 ASL $6000 +4A3F- 42 ??? +4A40- 4C 41 43 JMP $4341 +4A43- 4B ??? +4A44- 00 BRK +4A45- 52 45 EOR ($45) +4A47- 44 ??? +4A48- 00 BRK +4A49- 4F ??? +4A4A- 52 41 EOR ($41) +4A4C- 4E 47 45 LSR $4547 +4A4F- 00 BRK +4A50- 59 45 4C EOR $4C45,Y +4A53- 4C 4F 57 JMP $574F +4A56- 00 BRK +4A57- 47 ??? +4A58- 52 45 EOR ($45) +4A5A- 45 4E EOR $4E +4A5C- 00 BRK +4A5D- 42 ??? +4A5E- 4C 55 45 JMP $4555 +4A61- 00 BRK +4A62- 50 55 BVC $4AB9 +4A64- 52 50 EOR ($50) +4A66- 4C 45 00 JMP $0045 +4A69- 52 41 EOR ($41) +4A6B- 49 4E EOR #$4E +4A6D- 42 ??? +4A6E- 4F ??? +4A6F- 57 ??? +4A70- 00 BRK +4A71- 20 2D 2D JSR $2D2D +4A74- 2D 2D 00 AND $002D +4A77- AD 68 FA LDA $FA68 +4A7A- C9 C0 CMP #$C0 +4A7C- F0 20 BEQ $4A9E +4A7E- AD B3 FB LDA $FBB3 F8ROM:VERSION +4A81- C9 06 CMP #$06 +4A83- F0 19 BEQ $4A9E +4A85- 20 0C E0 JSR $E00C +4A88- 0C 81 01 TSB $0181 +4A8B- 05 0C ORA $0C +4A8D- 06 C1 ASL $C1 +4A8F- 06 0C ASL $0C +4A91- 20 0C E0 JSR $E00C +4A94- 0E 81 01 ASL $0181 +4A97- 05 18 ORA $18 +4A99- 30 C1 BMI $4A5C +4A9B- 30 18 BMI $4AB5 +4A9D- 60 RTS +4A9E- 20 0C E0 JSR $E00C +4AA1- 0C 80 01 TSB $0180 +4AA4- 07 ??? +4AA5- 08 PHP +4AA6- 08 PHP +4AA7- 08 PHP +4AA8- 6B ??? +4AA9- 3E 1C 08 ROL $081C,X +4AAC- 20 0C E0 JSR $E00C +4AAF- 0E 80 01 ASL $0180 +4AB2- 07 ??? +4AB3- 08 PHP +4AB4- 1C 3E 6B TRB $6B3E +4AB7- 08 PHP +4AB8- 08 PHP +4AB9- 08 PHP +4ABA- 60 RTS +4ABB- 20 72 E0 JSR $E072 +4ABE- A0 01 LDY #$01 +4AC0- 20 2A 44 JSR $442A +4AC3- AE 0D D0 LDX $D00D +4AC6- AD 00 D0 LDA $D000 +4AC9- D0 0E BNE $4AD9 +4ACB- E8 INX +4ACC- 86 84 STX $84 +4ACE- A0 18 LDY #$18 +4AD0- 20 25 4B JSR $4B25 +4AD3- 20 9D 4B JSR $4B9D +4AD6- 4C E2 4C JMP $4CE2 +4AD9- 86 84 STX $84 +4ADB- 20 00 E0 JSR $E000 +4ADE- 05 06 ORA $06 +4AE0- 8C 00 13 STY $1300 +4AE3- 53 ??? +4AE4- 45 4C EOR $4C +4AE6- 45 43 EOR $43 +4AE8- 54 ??? +4AE9- 20 54 48 JSR $4854 +4AEC- 45 20 EOR $20 +4AEE- 46 49 LSR $49 +4AF0- 52 53 EOR ($53) +4AF2- 54 ??? +4AF3- 20 44 41 JSR $4144 +4AF6- 59 20 46 EOR $4620,Y +4AF9- 4F ??? +4AFA- 52 0D EOR ($0D) +4AFC- 59 4F 55 EOR $554F,Y +4AFF- 52 20 EOR ($20) +4B01- 57 ??? +4B02- 45 45 EOR $45 +4B04- 4B ??? +4B05- 4C 59 20 JMP $2059 +4B08- 09 38 ORA #$38 +4B0A- 46 0D LSR $0D +4B0C- 00 BRK +4B0D- 20 9D 4B JSR $4B9D +4B10- 20 64 4B JSR $4B64 +4B13- 20 00 E0 JSR $E000 +4B16- 05 57 ORA $57 +4B18- 48 PHA +4B19- 45 4E EOR $4E +4B1B- 20 44 4F JSR $4F44 +4B1E- 4E 45 0D LSR $0D45 +4B21- 00 BRK +4B22- 4C E2 4C JMP $4CE2 +4B25- 8C 2F 4B STY $4B2F +4B28- 20 00 E0 JSR $E000 +4B2B- 05 06 ORA $06 +4B2D- 8C 00 00 STY $0000 +4B30- 48 PHA +4B31- 49 47 EOR #$47 +4B33- 48 PHA +4B34- 4C 49 47 JMP $4749 +4B37- 48 PHA +4B38- 54 ??? +4B39- 20 53 50 JSR $5053 +4B3C- 45 43 EOR $43 +4B3E- 49 41 EOR #$41 +4B40- 4C 20 4F JMP $4F20 +4B43- 43 ??? +4B44- 43 ??? +4B45- 41 53 EOR ($53,X) +4B47- 49 4F EOR #$4F +4B49- 4E 53 0D LSR $0D53 +4B4C- 00 BRK +4B4D- 20 64 4B JSR $4B64 +4B50- 20 00 E0 JSR $E000 +4B53- 05 54 ORA $54 +4B55- 4F ??? +4B56- 20 45 4E JSR $4E45 +4B59- 54 ??? +4B5A- 45 52 EOR $52 +4B5C- 0D 54 45 ORA $4554 +4B5F- 58 CLI +4B60- 54 ??? +4B61- 0D 00 60 ORA $6000 +4B64- A2 1D LDX #$1D +4B66- A0 31 LDY #$31 +4B68- A9 00 LDA #$00 +4B6A- 20 54 E0 JSR $E054 +4B6D- 20 00 E0 JSR $E000 +4B70- 05 06 ORA $06 +4B72- E0 00 CPX #$00 +4B74- 61 4D ADC ($4D,X) +4B76- 4F ??? +4B77- 56 45 LSR $45,X +4B79- 0D 43 55 ORA $5543 +4B7C- 52 53 EOR ($53) +4B7E- 4F ??? +4B7F- 52 0D EOR ($0D) +4B81- 54 ??? +4B82- 4F ??? +4B83- 20 53 45 JSR $4553 +4B86- 4C 45 43 JMP $4345 +4B89- 54 ??? +4B8A- 0D 44 41 ORA $4144 +4B8D- 54 ??? +4B8E- 45 0D EOR $0D +4B90- 0D 50 52 ORA $5250 +4B93- 45 53 EOR $53 +4B95- 53 ??? +4B96- 0D 09 55 ORA $5509 +4B99- 45 0D EOR $0D +4B9B- 00 BRK +4B9C- 60 RTS +4B9D- 20 00 E0 JSR $E000 +4BA0- 0A ASL +4BA1- 09 05 ORA #$05 +4BA3- 06 65 ASL $65 +4BA5- 00 BRK +4BA6- 2B ??? +4BA7- 09 40 ORA #$40 +4BA9- 7A PLY +4BAA- 2C 20 09 BIT $0920 +4BAD- 04 D0 TSB $D0 +4BAF- 0D 0B 26 ORA $260B +4BB2- 00 BRK +4BB3- 53 ??? +4BB4- 0E 15 15 ASL $1515 +4BB7- 4D 0E 15 EOR $150E +4BBA- 15 54 ORA $54,X +4BBC- 0E 15 15 ASL $1515 +4BBF- 57 ??? +4BC0- 0E 15 15 ASL $1515 +4BC3- 54 ??? +4BC4- 0E 15 15 ASL $1515 +4BC7- 46 0E LSR $0E +4BC9- 15 15 ORA $15,X +4BCB- 53 ??? +4BCC- 0E 00 A0 ASL $A000 +4BCF- 01 84 ORA ($84,X) +4BD1- D9 20 DF CMP $DF20,Y +4BD4- 4B ??? +4BD5- A4 D9 LDY $D9 +4BD7- C8 INY +4BD8- C4 84 CPY $84 +4BDA- 90 F4 BCC $4BD0 +4BDC- F0 F2 BEQ $4BD0 +4BDE- 60 RTS +4BDF- 20 9D 4C JSR $4C9D +4BE2- 85 80 STA $80 +4BE4- 84 81 STY $81 +4BE6- BD D4 4C LDA $4CD4,X +4BE9- 8D F3 4B STA $4BF3 +4BEC- 8C F5 4B STY $4BF5 +4BEF- 20 00 E0 JSR $E000 +4BF2- 06 00 ASL $00 +4BF4- 00 BRK +4BF5- 00 BRK +4BF6- 00 BRK +4BF7- A5 80 LDA $80 +4BF9- 20 89 4C JSR $4C89 +4BFC- A5 80 LDA $80 +4BFE- 18 CLC +4BFF- 65 88 ADC $88 +4C01- 20 89 4C JSR $4C89 +4C04- A9 0E LDA #$0E +4C06- 38 SEC +4C07- ED 0C D0 SBC $D00C +4C0A- C5 D9 CMP $D9 +4C0C- 90 05 BCC $4C13 +4C0E- A5 81 LDA $81 +4C10- 20 62 4C JSR $4C62 +4C13- A5 81 LDA $81 +4C15- 18 CLC +4C16- 69 12 ADC #$12 +4C18- 20 62 4C JSR $4C62 +4C1B- A4 D9 LDY $D9 +4C1D- CC 0D D0 CPY $D00D +4C20- 90 16 BCC $4C38 +4C22- F0 14 BEQ $4C38 +4C24- A5 81 LDA $81 +4C26- 20 62 4C JSR $4C62 +4C29- 20 00 E0 JSR $E000 +4C2C- 0A ASL +4C2D- 05 0D ORA $0D +4C2F- 15 05 ORA $05,X +4C31- 44 ??? +4C32- 4F ??? +4C33- 4E 45 0D LSR $0D45 +4C36- 00 BRK +4C37- 60 RTS +4C38- AD 0D D0 LDA $D00D +4C3B- 45 84 EOR $84 +4C3D- F0 07 BEQ $4C46 +4C3F- A9 2A LDA #$2A +4C41- BE 36 D0 LDX $D036,Y +4C44- D0 02 BNE $4C48 +4C46- A9 0E LDA #$0E +4C48- 8D 5E 4C STA $4C5E +4C4B- 20 0F 7B JSR $7B0F +4C4E- 20 00 E0 JSR $E000 +4C51- 0A ASL +4C52- 02 ??? +4C53- 0D 0A 08 ORA $080A +4C56- 15 04 ORA $04,X +4C58- 09 54 ORA #$54 +4C5A- 7A PLY +4C5B- 0D 14 03 ORA $0314 +4C5E- 3F ??? +4C5F- 0E 00 60 ASL $6000 +4C62- A6 80 LDX $80 +4C64- A4 88 LDY $88 +4C66- 8E 7D 4C STX $4C7D +4C69- 8D 7E 4C STA $4C7E +4C6C- 8D 84 4C STA $4C84 +4C6F- 8C 7F 4C STY $4C7F +4C72- 8A TXA +4C73- 18 CLC +4C74- 65 88 ADC $88 +4C76- 8D 83 4C STA $4C83 +4C79- 20 00 E0 JSR $E000 +4C7C- 10 00 BPL $4C7E +4C7E- 00 BRK +4C7F- 03 ??? +4C80- 01 11 ORA ($11,X) +4C82- 03 ??? +4C83- 00 BRK +4C84- 00 BRK +4C85- 01 01 ORA ($01,X) +4C87- 00 BRK +4C88- 60 RTS +4C89- A4 81 LDY $81 +4C8B- C8 INY +4C8C- 8C 98 4C STY $4C98 +4C8F- 8D 97 4C STA $4C97 +4C92- 20 00 E0 JSR $E000 +4C95- 11 03 ORA ($03),Y +4C97- 00 BRK +4C98- 01 01 ORA ($01,X) +4C9A- 12 00 ORA ($00) +4C9C- 60 RTS +4C9D- A5 D9 LDA $D9 +4C9F- CD 0D D0 CMP $D00D +4CA2- F0 0D BEQ $4CB1 +4CA4- 90 0B BCC $4CB1 +4CA6- A9 06 LDA #$06 +4CA8- 85 88 STA $88 +4CAA- A9 0C LDA #$0C +4CAC- A0 9E LDY #$9E +4CAE- A2 07 LDX #$07 +4CB0- 60 RTS +4CB1- A0 03 LDY #$03 +4CB3- 84 88 STY $88 +4CB5- 18 CLC +4CB6- 6D 0C D0 ADC $D00C +4CB9- E9 00 SBC #$00 +4CBB- A2 FF LDX #$FF +4CBD- E8 INX +4CBE- 38 SEC +4CBF- E9 07 SBC #$07 +4CC1- B0 FA BCS $4CBD +4CC3- 69 07 ADC #$07 +4CC5- BC DC 4C LDY $4CDC,X +4CC8- AA TAX +4CC9- BD CD 4C LDA $4CCD,X +4CCC- 60 RTS +4CCD- 04 07 TSB $07 +4CCF- 0A ASL +4CD0- 0D 10 13 ORA $1310 +4CD3- 16 1C ASL $1C,X +4CD5- 31 46 AND ($46),Y +4CD7- 5B ??? +4CD8- 70 85 BVS $4C5F +4CDA- 9A TXS +4CDB- 54 ??? +4CDC- 3D 4F 61 AND $614F,X +4CDF- 73 ??? +4CE0- 85 97 STA $97 +4CE2- AE 0A D0 LDX $D00A +4CE5- D0 01 BNE $4CE8 +4CE7- E8 INX +4CE8- E4 84 CPX $84 +4CEA- 90 02 BCC $4CEE +4CEC- A6 84 LDX $84 +4CEE- 86 D9 STX $D9 +4CF0- A5 84 LDA $84 +4CF2- 18 CLC +4CF3- 69 07 ADC #$07 +4CF5- 85 89 STA $89 +4CF7- 06 85 ASL $85 +4CF9- 20 9B 4D JSR $4D9B +4CFC- 86 86 STX $86 +4CFE- 84 87 STY $87 +4D00- E6 85 INC $85 +4D02- 20 B4 4D JSR $4DB4 +4D05- 20 48 E0 JSR $E048 +4D08- 20 9B 4D JSR $4D9B +4D0B- B0 08 BCS $4D15 +4D0D- 0A ASL +4D0E- 30 05 BMI $4D15 +4D10- B0 12 BCS $4D24 +4D12- 20 50 4D JSR $4D50 +4D15- 20 22 E0 JSR $E022 +4D18- 30 0C BMI $4D26 +4D1A- C6 4E DEC $4E +4D1C- D0 EA BNE $4D08 +4D1E- C6 4F DEC $4F +4D20- 10 E6 BPL $4D08 +4D22- 30 DC BMI $4D00 +4D24- A9 0D LDA #$0D +4D26- 20 AE 4D JSR $4DAE +4D29- A6 D9 LDX $D9 +4D2B- 20 51 E0 JSR $E051 +4D2E- 0D DE 4D ORA $4DDE +4D31- 1B ??? +4D32- E0 4D CPX #$4D +4D34- 49 ED EOR #$ED +4D36- 4D 0B ED EOR $ED0B +4D39- 4D 4D F0 EOR $F04D +4D3C- 4D 0A F0 EOR $F00A +4D3F- 4D 4A F3 EOR $F34A +4D42- 4D 08 F3 EOR $F308 +4D45- 4D 4B F6 EOR $F64B +4D48- 4D 15 F6 EOR $F615 +4D4B- 4D 00 4C EOR $4C00 +4D4E- F7 ??? +4D4F- 4C E4 86 JMP $86E4 +4D52- D0 05 BNE $4D59 +4D54- C4 87 CPY $87 +4D56- D0 01 BNE $4D59 +4D58- 60 RTS +4D59- 20 77 4D JSR $4D77 +4D5C- 20 AE 4D JSR $4DAE +4D5F- A5 86 LDA $86 +4D61- A4 87 LDY $87 +4D63- 18 CLC +4D64- 69 07 ADC #$07 +4D66- 88 DEY +4D67- 10 FA BPL $4D63 +4D69- E9 06 SBC #$06 +4D6B- ED 0C D0 SBC $D00C +4D6E- A0 00 LDY #$00 +4D70- AA TAX +4D71- 68 PLA +4D72- 68 PLA +4D73- 8A TXA +4D74- 4C FE 4D JMP $4DFE +4D77- 2C 58 FF BIT $FF58 F8ROM:IORTS +4D7A- E0 07 CPX #$07 +4D7C- 90 03 BCC $4D81 +4D7E- A2 06 LDX #$06 +4D80- B8 CLV +4D81- C0 08 CPY #$08 +4D83- 90 03 BCC $4D88 +4D85- A0 07 LDY #$07 +4D87- B8 CLV +4D88- 86 86 STX $86 +4D8A- 84 87 STY $87 +4D8C- 70 0C BVS $4D9A +4D8E- 8A TXA +4D8F- 0A ASL +4D90- 0A ASL +4D91- 0A ASL +4D92- AA TAX +4D93- 98 TYA +4D94- 0A ASL +4D95- 0A ASL +4D96- A8 TAY +4D97- 20 1B E0 JSR $E01B +4D9A- 60 RTS +4D9B- A0 00 LDY #$00 +4D9D- 20 18 E0 JSR $E018 +4DA0- 08 PHP +4DA1- 48 PHA +4DA2- 8A TXA +4DA3- 4A LSR +4DA4- 4A LSR +4DA5- 4A LSR +4DA6- AA TAX +4DA7- 98 TYA +4DA8- 4A LSR +4DA9- 4A LSR +4DAA- A8 TAY +4DAB- 68 PLA +4DAC- 28 PLP +4DAD- 60 RTS +4DAE- 46 85 LSR $85 +4DB0- 48 PHA +4DB1- 90 29 BCC $4DDC +4DB3- 68 PLA +4DB4- 48 PHA +4DB5- 20 9D 4C JSR $4C9D +4DB8- AA TAX +4DB9- 8E D2 4D STX $4DD2 +4DBC- E8 INX +4DBD- 8E D7 4D STX $4DD7 +4DC0- C8 INY +4DC1- 8C D3 4D STY $4DD3 +4DC4- 8C D8 4D STY $4DD8 +4DC7- A6 88 LDX $88 +4DC9- CA DEX +4DCA- 8E D9 4D STX $4DD9 +4DCD- 20 00 E0 JSR $E000 +4DD0- 11 FC ORA ($FC),Y +4DD2- 00 BRK +4DD3- 01 01 ORA ($01,X) +4DD5- 11 17 ORA ($17),Y +4DD7- 01 01 ORA ($01,X) +4DD9- 02 ??? +4DDA- 11 00 ORA ($00),Y +4DDC- 68 PLA +4DDD- 60 RTS +4DDE- 18 CLC +4DDF- 24 38 BIT $38 +4DE1- 08 PHP +4DE2- E4 84 CPX $84 +4DE4- 90 02 BCC $4DE8 +4DE6- A6 84 LDX $84 +4DE8- 8E 0A D0 STX $D00A +4DEB- 28 PLP +4DEC- 60 RTS +4DED- A0 00 LDY #$00 +4DEF- 2C A0 01 BIT $01A0 +4DF2- 2C A0 02 BIT $02A0 +4DF5- 2C A0 03 BIT $03A0 +4DF8- CA DEX +4DF9- 8A TXA +4DFA- 18 CLC +4DFB- 79 21 4E ADC $4E21,Y +4DFE- 10 04 BPL $4E04 +4E00- 38 SEC +4E01- F9 21 4E SBC $4E21,Y +4E04- AA TAX +4E05- E8 INX +4E06- E4 89 CPX $89 +4E08- 90 06 BCC $4E10 +4E0A- CA DEX +4E0B- 8A TXA +4E0C- E9 07 SBC #$07 +4E0E- B0 F4 BCS $4E04 +4E10- A5 84 LDA $84 +4E12- CD 0D D0 CMP $D00D +4E15- D0 05 BNE $4E1C +4E17- E4 84 CPX $84 +4E19- 90 01 BCC $4E1C +4E1B- AA TAX +4E1C- 86 D9 STX $D9 +4E1E- 4C F7 4C JMP $4CF7 +4E21- F9 07 FF SBC $FF07,Y +4E24- 01 20 ORA ($20,X) +4E26- 72 E0 ADC ($E0) +4E28- AD 0A D0 LDA $D00A +4E2B- 85 D9 STA $D9 +4E2D- 20 0F 7B JSR $7B0F +4E30- A0 13 LDY #$13 +4E32- 20 25 4B JSR $4B25 +4E35- 20 00 E0 JSR $E000 +4E38- 12 01 ORA ($01) +4E3A- 05 06 ORA $06 +4E3C- 8C 00 1B STY $1B00 +4E3F- 46 4F LSR $4F +4E41- 52 20 EOR ($20) +4E43- 54 ??? +4E44- 48 PHA +4E45- 45 20 EOR $20 +4E47- 57 ??? +4E48- 45 45 EOR $45 +4E4A- 4B ??? +4E4B- 20 4F 46 JSR $464F +4E4E- 20 09 40 JSR $4009 +4E51- 7A PLY +4E52- 20 09 54 JSR $5409 +4E55- 7A PLY +4E56- 2C 20 09 BIT $0920 +4E59- 04 D0 TSB $D0 +4E5B- 0D 11 60 ORA $6011 +4E5E- 04 25 TSB $25 +4E60- 01 91 ORA ($91,X) +4E62- 11 03 ORA ($03),Y +4E64- 0B ??? +4E65- 25 01 AND $01 +4E67- 91 11 STA ($11),Y +4E69- 60 RTS +4E6A- 18 CLC +4E6B- 25 01 AND $01 +4E6D- 7F ??? +4E6E- 00 BRK +4E6F- 20 0F 4F JSR $4F0F +4E72- AE 0B D0 LDX $D00B +4E75- 86 8A STX $8A +4E77- 06 85 ASL $85 +4E79- 20 9B 4D JSR $4D9B +4E7C- 86 86 STX $86 +4E7E- 84 87 STY $87 +4E80- E6 85 INC $85 +4E82- 20 FC 4E JSR $4EFC +4E85- 20 48 E0 JSR $E048 +4E88- 20 9B 4D JSR $4D9B +4E8B- B0 0A BCS $4E97 +4E8D- 0A ASL +4E8E- 30 07 BMI $4E97 +4E90- B0 14 BCS $4EA6 +4E92- 20 E2 4E JSR $4EE2 +4E95- D0 DE BNE $4E75 +4E97- 20 22 E0 JSR $E022 +4E9A- 30 0C BMI $4EA8 +4E9C- C6 4E DEC $4E +4E9E- D0 E8 BNE $4E88 +4EA0- C6 4F DEC $4F +4EA2- 10 E4 BPL $4E88 +4EA4- 30 DA BMI $4E80 +4EA6- A9 0D LDA #$0D +4EA8- 20 F6 4E JSR $4EF6 +4EAB- A6 8A LDX $8A +4EAD- 20 51 E0 JSR $E051 +4EB0- 0D CC 4E ORA $4ECC +4EB3- 1B ??? +4EB4- CE 4E 49 DEC $494E +4EB7- D3 ??? +4EB8- 4E 0B D3 LSR $D30B +4EBB- 4E 08 D3 LSR $D308 +4EBE- 4E 4D D8 LSR $D84D +4EC1- 4E 0A D8 LSR $D80A +4EC4- 4E 15 D8 LSR $D815 +4EC7- 4E 00 4C LSR $4C00 +4ECA- 75 4E ADC $4E,X +4ECC- 18 CLC +4ECD- 24 38 BIT $38 +4ECF- 8E 0B D0 STX $D00B +4ED2- 60 RTS +4ED3- CA DEX +4ED4- 10 09 BPL $4EDF +4ED6- A2 06 LDX #$06 +4ED8- E8 INX +4ED9- E0 08 CPX #$08 +4EDB- 90 02 BCC $4EDF +4EDD- A2 00 LDX #$00 +4EDF- 4C 75 4E JMP $4E75 +4EE2- E4 86 CPX $86 +4EE4- D0 05 BNE $4EEB +4EE6- C4 87 CPY $87 +4EE8- D0 01 BNE $4EEB +4EEA- 60 RTS +4EEB- 20 77 4D JSR $4D77 +4EEE- 20 F6 4E JSR $4EF6 +4EF1- A6 87 LDX $87 +4EF3- A9 01 LDA #$01 +4EF5- 60 RTS +4EF6- 46 85 LSR $85 +4EF8- 48 PHA +4EF9- 90 12 BCC $4F0D +4EFB- 68 PLA +4EFC- 48 PHA +4EFD- 20 D8 4F JSR $4FD8 +4F00- C8 INY +4F01- 8C 09 4F STY $4F09 +4F04- 20 00 E0 JSR $E000 +4F07- 17 ??? +4F08- 05 01 ORA $01 +4F0A- 06 11 ASL $11 +4F0C- 00 BRK +4F0D- 68 PLA +4F0E- 60 RTS +4F0F- A9 00 LDA #$00 +4F11- AE 0A D0 LDX $D00A +4F14- AC 0C D0 LDY $D00C +4F17- 85 8A STA $8A +4F19- 86 D9 STX $D9 +4F1B- 84 83 STY $83 +4F1D- 20 3F 4F JSR $4F3F +4F20- A6 D9 LDX $D9 +4F22- E8 INX +4F23- EC 0D D0 CPX $D00D +4F26- F0 04 BEQ $4F2C +4F28- 90 02 BCC $4F2C +4F2A- A2 01 LDX #$01 +4F2C- A4 83 LDY $83 +4F2E- C8 INY +4F2F- C0 07 CPY #$07 +4F31- 90 02 BCC $4F35 +4F33- A0 00 LDY #$00 +4F35- A5 8A LDA $8A +4F37- 18 CLC +4F38- 69 01 ADC #$01 +4F3A- C9 08 CMP #$08 +4F3C- 90 D9 BCC $4F17 +4F3E- 60 RTS +4F3F- A4 83 LDY $83 +4F41- 20 12 7B JSR $7B12 +4F44- A9 00 LDA #$00 +4F46- 8D 4D 7A STA $7A4D +4F49- 20 0F 7B JSR $7B0F +4F4C- A5 8A LDA $8A +4F4E- C9 07 CMP #$07 +4F50- 66 8C ROR $8C +4F52- 20 D8 4F JSR $4FD8 +4F55- 8C 66 4F STY $4F66 +4F58- 8C 73 4F STY $4F73 +4F5B- C8 INY +4F5C- 8C C6 4F STY $4FC6 +4F5F- 20 4E E0 JSR $E04E +4F62- C8 INY +4F63- 04 FF TSB $FF +4F65- 05 25 ORA $25 +4F67- 8C FF 05 STY $05FF +4F6A- B5 2C LDA $2C,X +4F6C- 01 20 ORA ($20,X) +4F6E- 00 BRK +4F6F- E0 06 CPX #$06 +4F71- 38 SEC +4F72- 00 BRK +4F73- 00 BRK +4F74- 00 BRK +4F75- 24 8C BIT $8C +4F77- 10 0E BPL $4F87 +4F79- 20 00 E0 JSR $E000 +4F7C- 05 0A ORA $0A +4F7E- 05 0D ORA $0D +4F80- 44 ??? +4F81- 4F ??? +4F82- 4E 45 0D LSR $0D45 +4F85- 00 BRK +4F86- 60 RTS +4F87- 20 00 E0 JSR $E000 +4F8A- 05 0A ORA $0A +4F8C- 02 ??? +4F8D- 0D 0A 08 ORA $080A +4F90- 09 4A ORA #$4A +4F92- 7A PLY +4F93- 0D 09 54 ORA $5409 +4F96- 7A PLY +4F97- 0D 00 A5 ORA $A500 +4F9A- 8A TXA +4F9B- 0A ASL +4F9C- 0A ASL +4F9D- 85 8B STA $8B +4F9F- A9 04 LDA #$04 +4FA1- 48 PHA +4FA2- A4 8B LDY $8B +4FA4- E6 8B INC $8B +4FA6- 20 03 7B JSR $7B03 +4FA9- 98 TYA +4FAA- 0A ASL +4FAB- C9 5B CMP #$5B +4FAD- 90 02 BCC $4FB1 +4FAF- A9 5B LDA #$5B +4FB1- 8D C7 4F STA $4FC7 +4FB4- A9 03 LDA #$03 +4FB6- 48 PHA +4FB7- EE C6 4F INC $4FC6 +4FBA- AD 00 96 LDA $9600 +4FBD- F0 0A BEQ $4FC9 +4FBF- 20 4E E0 JSR $E04E +4FC2- C8 INY +4FC3- 04 FF TSB $FF +4FC5- 34 00 BIT $00,X +4FC7- 0B ??? +4FC8- 01 68 ORA ($68,X) +4FCA- 38 SEC +4FCB- E9 01 SBC #$01 +4FCD- D0 E7 BNE $4FB6 +4FCF- EE C6 4F INC $4FC6 +4FD2- 68 PLA +4FD3- E9 01 SBC #$01 +4FD5- D0 CA BNE $4FA1 +4FD7- 60 RTS +4FD8- A6 8A LDX $8A +4FDA- BC DE 4F LDY $4FDE,X +4FDD- 60 RTS +4FDE- 25 37 AND $37 +4FE0- 49 5B EOR #$5B +4FE2- 6D 7F 91 ADC $917F +4FE5- A3 ??? +4FE6- A4 DA LDY $DA +4FE8- AD 00 96 LDA $9600 +4FEB- D0 08 BNE $4FF5 +4FED- 85 DA STA $DA +4FEF- A8 TAY +4FF0- 20 F5 4F JSR $4FF5 +4FF3- A0 01 LDY #$01 +4FF5- B9 77 50 LDA $5077,Y +4FF8- 8D 00 50 STA $5000 +4FFB- 20 00 E0 JSR $E000 +4FFE- 0F ??? +4FFF- 04 00 TSB $00 +5001- 20 07 00 JSR $0007 +5004- A0 00 LDY #$00 +5006- A9 96 LDA #$96 +5008- 84 D5 STY $D5 +500A- 85 D6 STA $D6 +500C- 60 RTS +500D- A4 DA LDY $DA +500F- 20 2B 50 JSR $502B +5012- A4 DA LDY $DA +5014- D0 09 BNE $501F +5016- BD 00 96 LDA $9600,X +5019- F0 57 BEQ $5072 +501B- E6 DA INC $DA +501D- D0 EE BNE $500D +501F- BE 79 50 LDX $5079,Y +5022- BD 00 96 LDA $9600,X +5025- D0 4B BNE $5072 +5027- C6 DA DEC $DA +5029- F0 E2 BEQ $500D +502B- 84 DA STY $DA +502D- B9 77 50 LDA $5077,Y +5030- 8D 5D 50 STA $505D +5033- BE 79 50 LDX $5079,Y +5036- 8E 5F 50 STX $505F +5039- A9 00 LDA #$00 +503B- CA DEX +503C- E8 INX +503D- BC 00 96 LDY $9600,X +5040- F0 0A BEQ $504C +5042- 18 CLC +5043- 79 E0 84 ADC $84E0,Y +5046- 69 02 ADC #$02 +5048- C9 E1 CMP #$E1 +504A- 90 F0 BCC $503C +504C- BD 00 96 LDA $9600,X +504F- 48 PHA +5050- A9 00 LDA #$00 +5052- 9D 00 96 STA $9600,X +5055- 8A TXA +5056- 48 PHA +5057- 20 00 E0 JSR $E000 +505A- 06 1C ASL $1C +505C- 00 BRK +505D- 00 BRK +505E- 09 00 ORA #$00 +5060- 96 0E STX $0E,Y +5062- 00 BRK +5063- 68 PLA +5064- AA TAX +5065- 68 PLA +5066- 9D 00 96 STA $9600,X +5069- A4 DA LDY $DA +506B- F0 06 BEQ $5073 +506D- A9 00 LDA #$00 +506F- 9D 00 96 STA $9600,X +5072- 60 RTS +5073- 8E 7A 50 STX $507A +5076- 60 RTS +5077- 50 58 BVC $50D1 +5079- 00 BRK +507A- 00 BRK +507B- A0 BF LDY #$BF +507D- A9 50 LDA #$50 +507F- 84 3A STY $3A +5081- 85 3B STA $3B +5083- A0 00 LDY #$00 +5085- 20 B6 50 JSR $50B6 +5088- 85 3C STA $3C +508A- 20 B6 50 JSR $50B6 +508D- 85 3D STA $3D +508F- 05 3C ORA $3C +5091- F0 2B BEQ $50BE +5093- 20 B6 50 JSR $50B6 +5096- AA TAX +5097- 20 B6 50 JSR $50B6 +509A- 85 3F STA $3F +509C- 20 B6 50 JSR $50B6 +509F- 91 3C STA ($3C),Y +50A1- E6 3C INC $3C +50A3- D0 02 BNE $50A7 +50A5- E6 3D INC $3D +50A7- 8A TXA +50A8- D0 02 BNE $50AC +50AA- C6 3F DEC $3F +50AC- CA DEX +50AD- D0 ED BNE $509C +50AF- 8A TXA +50B0- 05 3F ORA $3F +50B2- D0 E8 BNE $509C +50B4- F0 CF BEQ $5085 +50B6- B1 3A LDA ($3A),Y +50B8- E6 3A INC $3A +50BA- D0 02 BNE $50BE +50BC- E6 3B INC $3B +50BE- 60 RTS +50BF- 00 BRK +50C0- 0F ??? +50C1- 60 RTS +50C2- 08 PHP +50C3- 4C 0C 0F JMP $0F0C +50C6- 4C 14 14 JMP $1414 +50C9- 4C 61 14 JMP $1461 +50CC- 4C B1 14 JMP $14B1 +50CF- BA TSX +50D0- 8E 5D 0F STX $0F5D +50D3- 20 6A 0F JSR $0F6A +50D6- A9 80 LDA #$80 +50D8- AE F8 95 LDX $95F8 +50DB- F0 02 BEQ $50DF +50DD- A9 20 LDA #$20 +50DF- 85 74 STA $74 +50E1- BD 34 16 LDA $1634,X +50E4- 8D 2B 16 STA $162B +50E7- A2 03 LDX #$03 +50E9- AD F8 95 LDA $95F8 +50EC- F0 0B BEQ $50F9 +50EE- BD 5A D0 LDA $D05A,X +50F1- AC 59 D0 LDY $D059 +50F4- C8 INY +50F5- F0 02 BEQ $50F9 +50F7- A9 00 LDA #$00 +50F9- 95 77 STA $77,X +50FB- CA DEX +50FC- 10 EB BPL $50E9 +50FE- 20 F2 14 JSR $14F2 +5101- A9 1C LDA #$1C +5103- 20 AF 0F JSR $0FAF +5106- A2 33 LDX #$33 +5108- A0 12 LDY #$12 +510A- A9 80 LDA #$80 +510C- 20 CA 0F JSR $0FCA +510F- 20 F8 0F JSR $0FF8 +5112- 20 64 10 JSR $1064 +5115- AD 15 18 LDA $1815 +5118- F0 05 BEQ $511F +511A- CE 15 18 DEC $1815 +511D- D0 DF BNE $50FE +511F- A2 00 LDX #$00 +5121- 9A TXS +5122- 20 12 8A JSR $8A12 +5125- A9 00 LDA #$00 +5127- 8D 0E 8A STA $8A0E +512A- 8D 15 18 STA $1815 +512D- 2C 8B C0 BIT $C08B rw:LCBANK1 +5130- 2C 8B C0 BIT $C08B rw:LCBANK1 +5133- A2 00 LDX #$00 +5135- A0 00 LDY #$00 +5137- 84 D3 STY $D3 +5139- A9 40 LDA #$40 +513B- 84 D5 STY $D5 +513D- 85 D6 STA $D6 +513F- BD 9C 0F LDA $0F9C,X +5142- F0 14 BEQ $5158 +5144- 85 D4 STA $D4 +5146- B1 D3 LDA ($D3),Y +5148- 48 PHA +5149- B1 D5 LDA ($D5),Y +514B- 91 D3 STA ($D3),Y +514D- 68 PLA +514E- 91 D5 STA ($D5),Y +5150- C8 INY +5151- D0 F3 BNE $5146 +5153- E6 D6 INC $D6 +5155- E8 INX +5156- D0 E7 BNE $513F +5158- 2C 83 C0 BIT $C083 rw:LCBANK2 +515B- 2C 83 C0 BIT $C083 rw:LCBANK2 +515E- 60 RTS +515F- D0 D1 BNE $5132 +5161- D2 D3 CMP ($D3) +5163- D4 ??? +5164- D5 D6 CMP $D6,X +5166- D7 ??? +5167- D8 CLD +5168- D9 DA DB CMP $DBDA,Y +516B- DC ??? +516C- DD DE DF CMP $DFDE,X +516F- 98 TYA +5170- 99 00 AA STA $AA00,Y +5173- F0 15 BEQ $518A +5175- 48 PHA +5176- A2 0C LDX #$0C +5178- C9 0C CMP #$0C +517A- B0 01 BCS $517D +517C- AA TAX +517D- 86 D3 STX $D3 +517F- A0 01 LDY #$01 +5181- 20 03 18 JSR $1803 +5184- 68 PLA +5185- 38 SEC +5186- E5 D3 SBC $D3 +5188- D0 EB BNE $5175 +518A- 4C FB 14 JMP $14FB +518D- 8E DA 0F STX $0FDA +5190- 8C DB 0F STY $0FDB +5193- 85 76 STA $76 +5195- A9 00 LDA #$00 +5197- 85 75 STA $75 +5199- 20 FB 14 JSR $14FB +519C- 20 FF FF JSR $FFFF +519F- A5 76 LDA $76 +51A1- 38 SEC +51A2- E5 75 SBC $75 +51A4- C5 74 CMP $74 +51A6- 90 02 BCC $51AA +51A8- A5 74 LDA $74 +51AA- 20 57 16 JSR $1657 +51AD- A5 75 LDA $75 +51AF- 18 CLC +51B0- 65 74 ADC $74 +51B2- C5 76 CMP $76 +51B4- 90 E1 BCC $5197 +51B6- A9 00 LDA #$00 +51B8- 85 75 STA $75 +51BA- 60 RTS +51BB- AD 00 D0 LDA $D000 +51BE- F0 03 BEQ $51C3 +51C0- 4C 37 13 JMP $1337 +51C3- 18 CLC +51C4- AD 0D D0 LDA $D00D +51C7- 6D 0C D0 ADC $D00C +51CA- A0 FC LDY #$FC +51CC- C8 INY +51CD- 38 SEC +51CE- E9 07 SBC #$07 +51D0- F0 02 BEQ $51D4 +51D2- B0 F8 BCS $51CC +51D4- B9 2A 10 LDA $102A,Y +51D7- 48 PHA +51D8- 18 CLC +51D9- 69 10 ADC #$10 +51DB- 20 AF 0F JSR $0FAF +51DE- 20 2D 10 JSR $102D +51E1- A9 18 LDA #$18 +51E3- 20 57 16 JSR $1657 +51E6- 20 0F 11 JSR $110F +51E9- 68 PLA +51EA- 4C AF 0F JMP $0FAF +51ED- 5A PHY +51EE- 2D 00 A5 AND $A500 +51F1- 79 85 73 ADC $7385,Y +51F4- 20 00 E0 JSR $E000 +51F7- 06 48 ASL $48 +51F9- 00 BRK +51FA- 00 BRK +51FB- 05 08 ORA $08 +51FD- 53 ??? +51FE- 55 4E EOR $4E,X +5200- 0E 15 87 ASL $8715 +5203- 4D 4F 4E EOR $4E4F +5206- 0E 15 87 ASL $8715 +5209- 54 ??? +520A- 55 45 EOR $45,X +520C- 0E 15 87 ASL $8715 +520F- 57 ??? +5210- 45 44 EOR $44 +5212- 0E 15 87 ASL $8715 +5215- 54 ??? +5216- 48 PHA +5217- 55 0E EOR $0E,X +5219- 15 87 ORA $87,X +521B- 46 52 LSR $52 +521D- 49 0E EOR #$0E +521F- 15 87 ORA $87,X +5221- 53 ??? +5222- 41 54 EOR ($54,X) +5224- 0E 00 60 ASL $6000 +5227- A5 7A LDA $7A +5229- 85 73 STA $73 +522B- A9 19 LDA #$19 +522D- 20 AF 0F JSR $0FAF +5230- A0 21 LDY #$21 +5232- 20 03 7B JSR $7B03 +5235- 20 00 E0 JSR $E000 +5238- 05 08 ORA $08 +523A- 06 E0 ASL $E0 +523C- 01 00 ORA ($00,X) +523E- 09 00 ORA #$00 +5240- 96 0D STX $0D,Y +5242- 00 BRK +5243- A9 1E LDA #$1E +5245- 4C 57 16 JMP $1657 +5248- AD 01 D0 LDA $D001 +524B- 49 03 EOR #$03 +524D- F0 63 BEQ $52B2 +524F- AD 03 D0 LDA $D003 +5252- A2 00 LDX #$00 +5254- C9 05 CMP #$05 +5256- 90 03 BCC $525B +5258- E9 05 SBC #$05 +525A- E8 INX +525B- BC F5 10 LDY $10F5,X +525E- 8C DC 10 STY $10DC +5261- BC F7 10 LDY $10F7,X +5264- 8C E0 10 STY $10E0 +5267- BC F9 10 LDY $10F9,X +526A- 8C C7 10 STY $10C7 +526D- AA TAX +526E- BD F0 10 LDA $10F0,X +5271- 8D DB 10 STA $10DB +5274- BC FB 10 LDY $10FB,X +5277- BD 00 11 LDA $1100,X +527A- 8C DE 10 STY $10DE +527D- 8D DF 10 STA $10DF +5280- BD 05 11 LDA $1105,X +5283- 8D E2 10 STA $10E2 +5286- BD 0A 11 LDA $110A,X +5289- 18 CLC +528A- EA NOP +528B- 69 00 ADC #$00 +528D- A8 TAY +528E- A9 00 LDA #$00 +5290- 99 00 96 STA $9600,Y +5293- A9 40 LDA #$40 +5295- 88 DEY +5296- 10 F8 BPL $5290 +5298- 8E E9 10 STX $10E9 +529B- 20 00 E0 JSR $E000 +529E- 03 ??? +529F- 07 ??? +52A0- 06 00 ASL $00 +52A2- 00 BRK +52A3- 00 BRK +52A4- 12 00 ORA ($00) +52A6- 09 00 ORA #$00 +52A8- 96 0D STX $0D,Y +52AA- 00 BRK +52AB- A2 00 LDX #$00 +52AD- CA DEX +52AE- E0 01 CPX #$01 +52B0- F0 BC BEQ $526E +52B2- 60 RTS +52B3- 03 ??? +52B4- 04 03 TSB $03 +52B6- 05 05 ORA $05 +52B8- 07 ??? +52B9- 08 PHP +52BA- 1A INC +52BB- 00 BRK +52BC- EA NOP +52BD- 4A LSR +52BE- 00 BRK +52BF- BE 00 E0 LDX $E000,Y +52C2- E0 00 CPX #$00 +52C4- 03 ??? +52C5- 00 BRK +52C6- 01 01 ORA ($01,X) +52C8- 00 BRK +52C9- 00 BRK +52CA- 00 BRK +52CB- 56 00 LSR $00,X +52CD- 01 01 ORA ($01,X) +52CF- 01 06 ORA ($06,X) +52D1- 0A ASL +52D2- A9 01 LDA #$01 +52D4- 85 7D STA $7D +52D6- A2 31 LDX #$31 +52D8- A0 11 LDY #$11 +52DA- A5 7D LDA $7D +52DC- 18 CLC +52DD- 69 06 ADC #$06 +52DF- CD 0D D0 CMP $D00D +52E2- A9 5A LDA #$5A +52E4- 69 00 ADC #$00 +52E6- 48 PHA +52E7- 20 CA 0F JSR $0FCA +52EA- A5 D9 LDA $D9 +52EC- 85 7D STA $7D +52EE- 68 PLA +52EF- 49 5A EOR #$5A +52F1- F0 E3 BEQ $52D6 +52F3- 60 RTS +52F4- A5 7D LDA $7D +52F6- 85 D9 STA $D9 +52F8- AD 0C D0 LDA $D00C +52FB- A4 D9 LDY $D9 +52FD- 88 DEY +52FE- F0 02 BEQ $5302 +5300- A9 00 LDA #$00 +5302- 85 70 STA $70 +5304- A6 70 LDX $70 +5306- BC 57 11 LDY $1157,X +5309- BD 5E 11 LDA $115E,X +530C- 20 65 11 JSR $1165 +530F- E6 D9 INC $D9 +5311- E6 70 INC $70 +5313- A5 70 LDA $70 +5315- 49 07 EOR #$07 +5317- D0 EB BNE $5304 +5319- 60 RTS +531A- 05 8C ORA $8C +531C- 13 ??? +531D- 9A TXS +531E- 21 A8 AND ($A8,X) +5320- 2F ??? +5321- 00 BRK +5322- 00 BRK +5323- 01 01 ORA ($01,X) +5325- 02 ??? +5326- 02 ??? +5327- 03 ??? +5328- 84 D0 STY $D0 +532A- 85 D1 STA $D1 +532C- A0 00 LDY #$00 +532E- 84 D2 STY $D2 +5330- 20 9D 11 JSR $119D +5333- A4 D9 LDY $D9 +5335- CC 0D D0 CPY $D00D +5338- 90 03 BCC $533D +533A- F0 01 BEQ $533D +533C- 60 RTS +533D- 88 DEY +533E- 20 09 7B JSR $7B09 +5341- A0 FF LDY #$FF +5343- 20 14 14 JSR $1414 +5346- A2 00 LDX #$00 +5348- 20 A8 11 JSR $11A8 +534B- E8 INX +534C- 20 A8 11 JSR $11A8 +534F- A2 87 LDX #$87 +5351- 20 A8 11 JSR $11A8 +5354- E8 INX +5355- 20 A8 11 JSR $11A8 +5358- A0 5A LDY #$5A +535A- 20 9D 11 JSR $119D +535D- 4C 16 18 JMP $1816 +5360- A2 00 LDX #$00 +5362- 20 B3 11 JSR $11B3 +5365- E8 INX +5366- E0 89 CPX #$89 +5368- 90 F8 BCC $5362 +536A- 60 RTS +536B- A0 00 LDY #$00 +536D- 20 B3 11 JSR $11B3 +5370- C8 INY +5371- C0 5A CPY #$5A +5373- 90 F8 BCC $536D +5375- 60 RTS +5376- 8E CA 11 STX $11CA +5379- 8C CC 11 STY $11CC +537C- 8A TXA +537D- 18 CLC +537E- 65 D0 ADC $D0 +5380- AA TAX +5381- A5 D1 LDA $D1 +5383- 69 00 ADC #$00 +5385- A8 TAY +5386- AD CC 11 LDA $11CC +5389- 20 CE 11 JSR $11CE +538C- A2 00 LDX #$00 +538E- A0 00 LDY #$00 +5390- 60 RTS +5391- 85 60 STA $60 +5393- 38 SEC +5394- E5 75 SBC $75 +5396- C5 74 CMP $74 +5398- B0 5B BCS $53F5 +539A- 8E 2F 12 STX $122F +539D- 8C 31 12 STY $1231 +53A0- 4A LSR +53A1- 48 PHA +53A2- A9 00 LDA #$00 +53A4- 6A ROR +53A5- 85 D3 STA $D3 +53A7- 68 PLA +53A8- 69 20 ADC #$20 +53AA- 85 D4 STA $D4 +53AC- 86 D6 STX $D6 +53AE- 8A TXA +53AF- 29 07 AND #$07 +53B1- AA TAX +53B2- BD 13 17 LDA $1713,X +53B5- 85 D5 STA $D5 +53B7- 98 TYA +53B8- 4A LSR +53B9- 66 D6 ROR $D6 +53BB- 4A LSR +53BC- A5 D6 LDA $D6 +53BE- 6A ROR +53BF- 4A LSR +53C0- 85 D6 STA $D6 +53C2- A4 79 LDY $79 +53C4- B9 2B 16 LDA $162B,Y +53C7- 85 58 STA $58 +53C9- 10 0A BPL $53D5 +53CB- A5 60 LDA $60 +53CD- 29 0F AND #$0F +53CF- AA TAX +53D0- BC 37 16 LDY $1637,X +53D3- 10 EF BPL $53C4 +53D5- A4 D6 LDY $D6 +53D7- 46 58 LSR $58 +53D9- 90 06 BCC $53E1 +53DB- A5 D5 LDA $D5 +53DD- 11 D3 ORA ($D3),Y +53DF- 91 D3 STA ($D3),Y +53E1- A5 D4 LDA $D4 +53E3- 18 CLC +53E4- 69 10 ADC #$10 +53E6- 85 D4 STA $D4 +53E8- C9 60 CMP #$60 +53EA- B0 05 BCS $53F1 +53EC- AD F8 95 LDA $95F8 +53EF- D0 E6 BNE $53D7 +53F1- A2 00 LDX #$00 +53F3- A0 00 LDY #$00 +53F5- 60 RTS +53F6- A5 78 LDA $78 +53F8- 85 73 STA $73 +53FA- 20 85 10 JSR $1085 +53FD- A5 77 LDA $77 +53FF- 85 73 STA $73 +5401- AD 0E D0 LDA $D00E +5404- C9 03 CMP #$03 +5406- F0 69 BEQ $5471 +5408- 20 E9 14 JSR $14E9 +540B- A2 00 LDX #$00 +540D- A0 1F LDY #$1F +540F- 20 59 12 JSR $1259 +5412- A2 01 LDX #$01 +5414- A0 20 LDY #$20 +5416- 20 59 12 JSR $1259 +5419- 4C F2 14 JMP $14F2 +541C- A9 01 LDA #$01 +541E- 8D CE 12 STA $12CE +5421- BD E2 12 LDA $12E2,X +5424- 8D CC 12 STA $12CC +5427- BD E4 12 LDA $12E4,X +542A- 8D 80 12 STA $1280 +542D- BD E6 12 LDA $12E6,X +5430- 8D BE 12 STA $12BE +5433- 20 03 7B JSR $7B03 +5436- A0 00 LDY #$00 +5438- 84 D5 STY $D5 +543A- B9 01 96 LDA $9601,Y +543D- F0 0E BEQ $544D +543F- AA TAX +5440- BD 1B 60 LDA $601B,X +5443- 0A ASL +5444- C5 D5 CMP $D5 +5446- 90 02 BCC $544A +5448- 85 D5 STA $D5 +544A- C8 INY +544B- D0 ED BNE $543A +544D- 46 D5 LSR $D5 +544F- AD BE 12 LDA $12BE +5452- 38 SEC +5453- E5 D5 SBC $D5 +5455- 8D BE 12 STA $12BE +5458- AD 00 96 LDA $9600 +545B- 0A ASL +545C- AA TAX +545D- BD E8 12 LDA $12E8,X +5460- 85 D5 STA $D5 +5462- BD E9 12 LDA $12E9,X +5465- 8D B0 12 STA $12B0 +5468- A6 D5 LDX $D5 +546A- E6 D5 INC $D5 +546C- BD EE 12 LDA $12EE,X +546F- 10 01 BPL $5472 +5471- 60 RTS +5472- 49 00 EOR #$00 +5474- 8D CB 12 STA $12CB +5477- A9 E0 LDA #$E0 +5479- 18 CLC +547A- 7D 07 13 ADC $1307,X +547D- 8D D1 12 STA $12D1 +5480- A9 00 LDA #$00 +5482- 18 CLC +5483- 7D 1F 13 ADC $131F,X +5486- 8D D3 12 STA $12D3 +5489- 20 00 E0 JSR $E000 +548C- 12 03 ORA ($03) +548E- 02 ??? +548F- 08 PHP +5490- 16 01 ASL $01,X +5492- 05 06 ORA $06 +5494- E0 01 CPX #$01 +5496- 00 BRK +5497- 09 01 ORA #$01 +5499- 96 0D STX $0D,Y +549B- 16 00 ASL $00,X +549D- 00 BRK +549E- 38 SEC +549F- 6E CE 12 ROR $12CE +54A2- 4C A5 12 JMP $12A5 +54A5- 08 PHP +54A6- 07 ??? +54A7- 0A ASL +54A8- EA NOP +54A9- 28 PLP +54AA- 64 00 STZ $00 +54AC- 00 BRK +54AD- 00 BRK +54AE- 03 ??? +54AF- 10 00 BPL $54B1 +54B1- 02 ??? +54B2- 02 ??? +54B3- 02 ??? +54B4- 02 ??? +54B5- 02 ??? +54B6- 02 ??? +54B7- 02 ??? +54B8- 02 ??? +54B9- 02 ??? +54BA- 02 ??? +54BB- 02 ??? +54BC- 02 ??? +54BD- 02 ??? +54BE- 02 ??? +54BF- 01 FF ORA ($FF,X) +54C1- 02 ??? +54C2- 01 02 ORA ($02,X) +54C4- 01 02 ORA ($02,X) +54C6- 01 02 ORA ($02,X) +54C8- 01 FF ORA ($FF,X) +54CA- 00 BRK +54CB- 01 02 ORA ($02,X) +54CD- 03 ??? +54CE- 04 00 TSB $00 +54D0- 01 03 ORA ($03,X) +54D2- 04 00 TSB $00 +54D4- 01 02 ORA ($02,X) +54D6- 03 ??? +54D7- 04 02 TSB $02 +54D9- FF ??? +54DA- 00 BRK +54DB- 01 02 ORA ($02,X) +54DD- 03 ??? +54DE- 04 05 TSB $05 +54E0- 06 07 ASL $07 +54E2- 00 BRK +54E3- 00 BRK +54E4- 00 BRK +54E5- 00 BRK +54E6- 00 BRK +54E7- 01 01 ORA ($01,X) +54E9- 01 01 ORA ($01,X) +54EB- 02 ??? +54EC- 02 ??? +54ED- 02 ??? +54EE- 02 ??? +54EF- 02 ??? +54F0- 01 FF ORA ($FF,X) +54F2- 00 BRK +54F3- 01 02 ORA ($02,X) +54F5- 03 ??? +54F6- 04 05 TSB $05 +54F8- 06 07 ASL $07 +54FA- A9 0D LDA #$0D +54FC- 20 AF 0F JSR $0FAF +54FF- A9 00 LDA #$00 +5501- AE 0A D0 LDX $D00A +5504- AC 0C D0 LDY $D00C +5507- 85 72 STA $72 +5509- 86 D9 STX $D9 +550B- 84 70 STY $70 +550D- A2 79 LDX #$79 +550F- A0 13 LDY #$13 +5511- A5 72 LDA $72 +5513- C9 06 CMP #$06 +5515- A9 51 LDA #$51 +5517- 69 00 ADC #$00 +5519- 20 CA 0F JSR $0FCA +551C- A6 D9 LDX $D9 +551E- E8 INX +551F- EC 0D D0 CPX $D00D +5522- F0 04 BEQ $5528 +5524- 90 02 BCC $5528 +5526- A2 01 LDX #$01 +5528- A4 70 LDY $70 +552A- C8 INY +552B- C0 07 CPY #$07 +552D- 90 02 BCC $5531 +552F- A0 00 LDY #$00 +5531- A5 72 LDA $72 +5533- 18 CLC +5534- 69 01 ADC #$01 +5536- C9 07 CMP #$07 +5538- 90 CD BCC $5507 +553A- 18 CLC +553B- 60 RTS +553C- A5 72 LDA $72 +553E- 0A ASL +553F- 0A ASL +5540- 48 PHA +5541- A4 70 LDY $70 +5543- 20 12 7B JSR $7B12 +5546- A2 BF LDX #$BF +5548- A0 03 LDY #$03 +554A- A9 00 LDA #$00 +554C- 20 CE 11 JSR $11CE +554F- A9 51 LDA #$51 +5551- 20 CE 11 JSR $11CE +5554- CA DEX +5555- D0 F3 BNE $554A +5557- 88 DEY +5558- 10 F0 BPL $554A +555A- 20 0F 7B JSR $7B0F +555D- A5 79 LDA $79 +555F- 85 73 STA $73 +5561- 20 00 E0 JSR $E000 +5564- 08 PHP +5565- 0A ASL +5566- 19 06 04 ORA $0406,Y +5569- 00 BRK +556A- 09 09 ORA #$09 +556C- 4A LSR +556D- 7A PLY +556E- 0D 15 32 ORA $3215 +5571- 05 09 ORA $09 +5573- 54 ??? +5574- 7A PLY +5575- 0D 06 FA ORA $FA06 +5578- 00 BRK +5579- 09 00 ORA #$00 +557B- A5 7A LDA $7A +557D- 85 73 STA $73 +557F- 68 PLA +5580- A8 TAY +5581- 20 C1 13 JSR $13C1 +5584- 20 C4 13 JSR $13C4 +5587- 8C D6 13 STY $13D6 +558A- 20 03 7B JSR $7B03 +558D- 20 00 E0 JSR $E000 +5590- 08 PHP +5591- 0A ASL +5592- 10 09 BPL $559D +5594- 00 BRK +5595- 96 0D STX $0D,Y +5597- 00 BRK +5598- A0 00 LDY #$00 +559A- C8 INY +559B- 60 RTS +559C- A4 D0 LDY $D0 +559E- A5 D1 LDA $D1 +55A0- 8C F3 13 STY $13F3 +55A3- 8D F4 13 STA $13F4 +55A6- A4 D2 LDY $D2 +55A8- 8C F5 13 STY $13F5 +55AB- 20 0F 7B JSR $7B0F +55AE- A5 79 LDA $79 +55B0- 85 73 STA $73 +55B2- 20 00 E0 JSR $E000 +55B5- 06 00 ASL $00 +55B7- 00 BRK +55B8- 00 BRK +55B9- 16 00 ASL $00,X +55BB- 15 0A ORA $0A,X +55BD- 0A ASL +55BE- 06 0D ASL $0D +55C0- 08 PHP +55C1- 09 54 ORA #$54 +55C3- 7A PLY +55C4- 0D 00 A5 ORA $A500 +55C7- 7A PLY +55C8- 85 73 STA $73 +55CA- A0 00 LDY #$00 +55CC- 98 TYA +55CD- 48 PHA +55CE- 20 14 14 JSR $1414 +55D1- 68 PLA +55D2- A8 TAY +55D3- C8 INY +55D4- 90 F6 BCC $55CC +55D6- 60 RTS +55D7- C0 FF CPY #$FF +55D9- F0 C1 BEQ $559C +55DB- 20 61 14 JSR $1461 +55DE- B0 3A BCS $561A +55E0- BD 00 97 LDA $9700,X +55E3- 4E 0B 8A LSR $8A0B +55E6- 4A LSR +55E7- 2E 0B 8A ROL $8A0B +55EA- 29 03 AND #$03 +55EC- A8 TAY +55ED- B9 58 14 LDA $1458,Y +55F0- 8D 04 8A STA $8A04 +55F3- B9 5B 14 LDA $145B,Y +55F6- 18 CLC +55F7- 65 D0 ADC $D0 +55F9- 8D 05 8A STA $8A05 +55FC- B9 5E 14 LDA $145E,Y +55FF- 65 D1 ADC $D1 +5601- 8D 06 8A STA $8A06 +5604- A5 D3 LDA $D3 +5606- 65 D2 ADC $D2 +5608- 69 18 ADC #$18 +560A- 8D 07 8A STA $8A07 +560D- A2 7E LDX #$7E +560F- A0 00 LDY #$00 +5611- A9 85 LDA #$85 +5613- 20 B1 14 JSR $14B1 +5616- 20 00 8A JSR $8A00 +5619- 18 CLC +561A- 60 RTS +561B- 00 BRK +561C- 02 ??? +561D- 01 06 ORA ($06,X) +561F- 45 84 EOR $84 +5621- 00 BRK +5622- 00 BRK +5623- 00 BRK +5624- A2 00 LDX #$00 +5626- 86 D3 STX $D3 +5628- BD 00 97 LDA $9700,X +562B- 4A LSR +562C- A9 08 LDA #$08 +562E- 90 01 BCC $5631 +5630- 0A ASL +5631- 85 D4 STA $D4 +5633- 8A TXA +5634- D9 A9 14 CMP $14A9,Y +5637- F0 0C BEQ $5645 +5639- A5 D3 LDA $D3 +563B- 65 D4 ADC $D4 +563D- 85 D3 STA $D3 +563F- 8A TXA +5640- 69 20 ADC #$20 +5642- AA TAX +5643- D0 E3 BNE $5628 +5645- 18 CLC +5646- A5 D3 LDA $D3 +5648- 65 D4 ADC $D4 +564A- C9 41 CMP #$41 +564C- 90 15 BCC $5663 +564E- A5 D4 LDA $D4 +5650- C9 08 CMP #$08 +5652- F0 0F BEQ $5663 +5654- 4A LSR +5655- 85 D4 STA $D4 +5657- 65 D3 ADC $D3 +5659- C9 41 CMP #$41 +565B- B0 06 BCS $5663 +565D- 5E 00 97 LSR $9700,X +5660- 1E 00 97 ASL $9700,X +5663- E8 INX +5664- 86 D5 STX $D5 +5666- A9 97 LDA #$97 +5668- 85 D6 STA $D6 +566A- CA DEX +566B- 60 RTS +566C- 00 BRK +566D- 20 40 60 JSR $6040 +5670- 80 A0 BRA $5612 +5672- C0 E0 CPY #$E0 +5674- 8E D5 14 STX $14D5 +5677- 8C D1 14 STY $14D1 +567A- 20 15 8A JSR $8A15 +567D- AD 04 8A LDA $8A04 +5680- 48 PHA +5681- A9 03 LDA #$03 +5683- 8D 04 8A STA $8A04 +5686- A4 D5 LDY $D5 +5688- A5 D6 LDA $D6 +568A- 8C 0C 8A STY $8A0C +568D- 8D 0D 8A STA $8A0D +5690- 20 00 8A JSR $8A00 +5693- C9 00 CMP #$00 +5695- D0 02 BNE $5699 +5697- C0 00 CPY #$00 +5699- 90 0C BCC $56A7 +569B- A0 FF LDY #$FF +569D- C8 INY +569E- B1 D5 LDA ($D5),Y +56A0- D0 FB BNE $569D +56A2- 88 DEY +56A3- 91 D5 STA ($D5),Y +56A5- 10 E9 BPL $5690 +56A7- 68 PLA +56A8- 8D 04 8A STA $8A04 +56AB- 60 RTS +56AC- 20 0F 8A JSR $8A0F +56AF- 17 ??? +56B0- 15 29 ORA $29,X +56B2- 15 60 ORA $60,X +56B4- 60 RTS +56B5- 20 0F 8A JSR $8A0F +56B8- 17 ??? +56B9- 15 29 ORA $29,X +56BB- 15 85 ORA $85,X +56BD- 60 RTS +56BE- 20 0C 18 JSR $180C +56C1- A0 00 LDY #$00 +56C3- A9 20 LDA #$20 +56C5- A2 40 LDX #$40 +56C7- 8D 0A 15 STA $150A +56CA- 98 TYA +56CB- 99 00 20 STA $2000,Y +56CE- C8 INY +56CF- D0 FA BNE $56CB +56D1- EE 0A 15 INC $150A +56D4- CA DEX +56D5- D0 F4 BNE $56CB +56D7- 85 7C STA $7C +56D9- 60 RTS +56DA- 98 TYA +56DB- 49 FF EOR #$FF +56DD- 8D F0 15 STA $15F0 +56E0- A5 54 LDA $54 +56E2- 18 CLC +56E3- 65 50 ADC $50 +56E5- 85 50 STA $50 +56E7- 90 02 BCC $56EB +56E9- E6 51 INC $51 +56EB- 60 RTS +56EC- A6 54 LDX $54 +56EE- CA DEX +56EF- 8A TXA +56F0- 4A LSR +56F1- 4A LSR +56F2- 4A LSR +56F3- AA TAX +56F4- E8 INX +56F5- 86 54 STX $54 +56F7- 98 TYA +56F8- 18 CLC +56F9- 6D 0B 8A ADC $8A0B +56FC- 38 SEC +56FD- E5 75 SBC $75 +56FF- C5 74 CMP $74 +5701- F0 02 BEQ $5705 +5703- B0 DB BCS $56E0 +5705- A5 7B LDA $7B +5707- 65 54 ADC $54 +5709- 85 7B STA $7B +570B- 90 10 BCC $571D +570D- E6 7C INC $7C +570F- A5 7C LDA $7C +5711- 49 04 EOR #$04 +5713- D0 08 BNE $571D +5715- 85 7C STA $7C +5717- 20 48 17 JSR $1748 +571A- 20 16 18 JSR $1816 +571D- A4 54 LDY $54 +571F- 88 DEY +5720- B1 50 LDA ($50),Y +5722- 99 E0 8D STA $8DE0,Y +5725- 88 DEY +5726- 10 F8 BPL $5720 +5728- 20 1D 15 JSR $151D +572B- AD 0B 8A LDA $8A0B +572E- F0 29 BEQ $5759 +5730- A6 54 LDX $54 +5732- 8A TXA +5733- 0A ASL +5734- 85 57 STA $57 +5736- BD DF 8D LDA $8DDF,X +5739- 29 0F AND #$0F +573B- A8 TAY +573C- B9 47 16 LDA $1647,Y +573F- A4 57 LDY $57 +5741- 99 DF 8D STA $8DDF,Y +5744- BD DF 8D LDA $8DDF,X +5747- 4A LSR +5748- 4A LSR +5749- 4A LSR +574A- 4A LSR +574B- A8 TAY +574C- B9 47 16 LDA $1647,Y +574F- A4 57 LDY $57 +5751- 99 DE 8D STA $8DDE,Y +5754- CA DEX +5755- D0 DB BNE $5732 +5757- 06 54 ASL $54 +5759- A5 52 LDA $52 +575B- 29 07 AND #$07 +575D- A8 TAY +575E- F0 18 BEQ $5778 +5760- A6 54 LDX $54 +5762- A9 00 LDA #$00 +5764- 9D E0 8D STA $8DE0,X +5767- E6 54 INC $54 +5769- A2 00 LDX #$00 +576B- 18 CLC +576C- 7E E0 8D ROR $8DE0,X +576F- E8 INX +5770- 8A TXA +5771- 45 54 EOR $54 +5773- D0 F7 BNE $576C +5775- 88 DEY +5776- D0 F1 BNE $5769 +5778- A5 53 LDA $53 +577A- 85 57 STA $57 +577C- A5 52 LDA $52 +577E- 46 57 LSR $57 +5780- 6A ROR +5781- 46 57 LSR $57 +5783- 6A ROR +5784- 4A LSR +5785- 85 57 STA $57 +5787- A4 60 LDY $60 +5789- 20 D1 15 JSR $15D1 +578C- AD 0B 8A LDA $8A0B +578F- F0 5C BEQ $57ED +5791- A4 60 LDY $60 +5793- C8 INY +5794- 98 TYA +5795- 8D F6 15 STA $15F6 +5798- 38 SEC +5799- E5 75 SBC $75 +579B- C5 74 CMP $74 +579D- B0 4E BCS $57ED +579F- 4A LSR +57A0- A8 TAY +57A1- A9 00 LDA #$00 +57A3- 6A ROR +57A4- 05 57 ORA $57 +57A6- 85 55 STA $55 +57A8- 98 TYA +57A9- 69 20 ADC #$20 +57AB- 85 56 STA $56 +57AD- A4 73 LDY $73 +57AF- B9 2B 16 LDA $162B,Y +57B2- 29 FF AND #$FF +57B4- 85 58 STA $58 +57B6- 10 0A BPL $57C2 +57B8- A9 00 LDA #$00 +57BA- 29 0F AND #$0F +57BC- AA TAX +57BD- BC 37 16 LDY $1637,X +57C0- 10 ED BPL $57AF +57C2- A9 19 LDA #$19 +57C4- 46 58 LSR $58 +57C6- B0 02 BCS $57CA +57C8- A9 59 LDA #$59 +57CA- 8D 12 16 STA $1612 +57CD- A4 54 LDY $54 +57CF- 88 DEY +57D0- B1 55 LDA ($55),Y +57D2- 19 E0 8D ORA $8DE0,Y +57D5- 19 E0 8D ORA $8DE0,Y +57D8- 91 55 STA ($55),Y +57DA- 88 DEY +57DB- 10 F3 BPL $57D0 +57DD- A5 56 LDA $56 +57DF- 18 CLC +57E0- 69 10 ADC #$10 +57E2- 85 56 STA $56 +57E4- C9 60 CMP #$60 +57E6- B0 05 BCS $57ED +57E8- AD F8 95 LDA $95F8 +57EB- D0 D5 BNE $57C2 +57ED- 60 RTS +57EE- 08 PHP +57EF- 02 ??? +57F0- 03 ??? +57F1- 01 05 ORA ($05,X) +57F3- 04 06 TSB $06 +57F5- 80 00 BRA $57F7 +57F7- 01 08 ORA ($08,X) +57F9- 07 ??? +57FA- 01 01 ORA ($01,X) +57FC- 01 02 ORA ($02,X) +57FE- 02 ??? +57FF- 03 ??? +5800- 03 ??? +5801- 03 ??? +5802- 04 04 TSB $04 +5804- 04 05 TSB $05 +5806- 05 05 ORA $05 +5808- 06 06 ASL $06 +580A- 00 BRK +580B- 03 ??? +580C- 0C 0F 30 TSB $300F +580F- 33 ??? +5810- 3C 3F C0 BIT $C03F,X +5813- C3 ??? +5814- CC CF F0 CPY $F0CF +5817- F3 ??? +5818- FC ??? +5819- FF ??? +581A- 85 80 STA $80 +581C- 20 0F 18 JSR $180F +581F- A9 00 LDA #$00 +5821- 85 83 STA $83 +5823- 4A LSR +5824- A8 TAY +5825- A9 00 LDA #$00 +5827- 6A ROR +5828- 85 88 STA $88 +582A- 98 TYA +582B- 69 20 ADC #$20 +582D- 85 89 STA $89 +582F- AD F8 95 LDA $95F8 +5832- F0 02 BEQ $5836 +5834- A9 03 LDA #$03 +5836- 85 8D STA $8D +5838- F0 05 BEQ $583F +583A- A6 8D LDX $8D +583C- 20 1D 18 JSR $181D +583F- 20 1B 17 JSR $171B +5842- F0 62 BEQ $58A6 +5844- A2 00 LDX #$00 +5846- A0 04 LDY #$04 +5848- 20 06 18 JSR $1806 +584B- A2 00 LDX #$00 +584D- 86 81 STX $81 +584F- A2 00 LDX #$00 +5851- 86 84 STX $84 +5853- A6 88 LDX $88 +5855- A5 89 LDA $89 +5857- 86 8A STX $8A +5859- 85 8B STA $8B +585B- A2 00 LDX #$00 +585D- 86 86 STX $86 +585F- A4 83 LDY $83 +5861- 86 85 STX $85 +5863- 84 82 STY $82 +5865- A4 81 LDY $81 +5867- B1 8A LDA ($8A),Y +5869- A6 84 LDX $84 +586B- 3D 13 17 AND $1713,X +586E- F0 09 BEQ $5879 +5870- A4 85 LDY $85 +5872- B9 14 17 LDA $1714,Y +5875- 05 86 ORA $86 +5877- 85 86 STA $86 +5879- A5 8A LDA $8A +587B- 49 80 EOR #$80 +587D- 85 8A STA $8A +587F- D0 02 BNE $5883 +5881- E6 8B INC $8B +5883- A4 82 LDY $82 +5885- C8 INY +5886- A6 85 LDX $85 +5888- E8 INX +5889- C4 80 CPY $80 +588B- F0 04 BEQ $5891 +588D- E0 07 CPX #$07 +588F- 90 D0 BCC $5861 +5891- 86 87 STX $87 +5893- A5 86 LDA $86 +5895- 20 09 18 JSR $1809 +5898- A6 84 LDX $84 +589A- E8 INX +589B- E0 08 CPX #$08 +589D- 90 B2 BCC $5851 +589F- A6 81 LDX $81 +58A1- E8 INX +58A2- E0 80 CPX #$80 +58A4- 90 A7 BCC $584D +58A6- A9 0D LDA #$0D +58A8- 20 00 18 JSR $1800 +58AB- AD F8 95 LDA $95F8 +58AE- F0 0E BEQ $58BE +58B0- A5 89 LDA $89 +58B2- 18 CLC +58B3- 69 10 ADC #$10 +58B5- 85 89 STA $89 +58B7- C6 8D DEC $8D +58B9- 30 03 BMI $58BE +58BB- 4C 77 16 JMP $1677 +58BE- A6 87 LDX $87 +58C0- A0 01 LDY #$01 +58C2- 20 03 18 JSR $1803 +58C5- 20 48 17 JSR $1748 +58C8- A5 83 LDA $83 +58CA- 18 CLC +58CB- 65 87 ADC $87 +58CD- C5 80 CMP $80 +58CF- 18 CLC +58D0- F0 03 BEQ $58D5 +58D2- 4C 5E 16 JMP $165E +58D5- 60 RTS +58D6- 80 40 BRA $5918 +58D8- 20 10 08 JSR $0810 +58DB- 04 02 TSB $02 +58DD- 01 A4 ORA ($A4,X) +58DF- 88 DEY +58E0- A5 89 LDA $89 +58E2- 84 8A STY $8A +58E4- 85 8B STA $8B +58E6- A5 80 LDA $80 +58E8- 38 SEC +58E9- E5 83 SBC $83 +58EB- C9 07 CMP #$07 +58ED- 90 02 BCC $58F1 +58EF- A9 07 LDA #$07 +58F1- 85 87 STA $87 +58F3- AA TAX +58F4- A0 00 LDY #$00 +58F6- B1 8A LDA ($8A),Y +58F8- D0 10 BNE $590A +58FA- C8 INY +58FB- 10 F9 BPL $58F6 +58FD- A5 8A LDA $8A +58FF- 49 80 EOR #$80 +5901- 85 8A STA $8A +5903- D0 02 BNE $5907 +5905- E6 8B INC $8B +5907- CA DEX +5908- D0 EA BNE $58F4 +590A- 60 RTS +590B- 20 22 E0 JSR $E022 +590E- C9 1B CMP #$1B +5910- D0 F8 BNE $590A +5912- 20 12 E0 JSR $E012 +5915- 20 12 18 JSR $1812 +5918- 78 SEI +5919- 08 PHP +591A- 20 15 E0 JSR $E015 +591D- 28 PLP +591E- 90 EA BCC $590A +5920- 4C 5C 0F JMP $0F5C +5923- 00 BRK +5924- 7B ??? +5925- BE 08 4C LDX $4C08,Y +5928- 24 7B BIT $7B +592A- 4C 4D 7B JMP $7B4D +592D- 4C 65 7B JMP $7B65 +5930- 4C FF 7B JMP $7BFF +5933- 4C 30 7C JMP $7C30 +5936- 4C 5E 7C JMP $7C5E +5939- 4C 7F 7C JMP $7C7F +593C- 4C 72 82 JMP $8272 +593F- 4C EC 7F JMP $7FEC +5942- 4C 7F 81 JMP $817F +5945- 4C 8A 83 JMP $838A +5948- 4C D2 7C JMP $7CD2 +594B- A0 00 LDY #$00 +594D- 98 TYA +594E- 99 00 D0 STA $D000,Y +5951- C8 INY +5952- D0 FA BNE $594E +5954- 88 DEY +5955- 8C 59 D0 STY $D059 +5958- A0 5E LDY #$5E +595A- A9 D0 LDA #$D0 +595C- 8C 13 D0 STY $D013 +595F- 8D 14 D0 STA $D014 +5962- 60 RTS +5963- B9 15 D0 LDA $D015,Y +5966- 85 D3 STA $D3 +5968- 85 D5 STA $D5 +596A- B9 37 D0 LDA $D037,Y +596D- 85 D4 STA $D4 +596F- 85 D6 STA $D6 +5971- 05 D5 ORA $D5 +5973- 60 RTS +5974- 20 3C 7B JSR $7B3C +5977- D0 05 BNE $597E +5979- 8D 00 96 STA $9600 +597C- 18 CLC +597D- 60 RTS +597E- A0 00 LDY #$00 +5980- B1 D5 LDA ($D5),Y +5982- 99 00 96 STA $9600,Y +5985- F0 03 BEQ $598A +5987- C8 INY +5988- D0 F6 BNE $5980 +598A- 38 SEC +598B- 60 RTS +598C- 98 TYA +598D- 48 PHA +598E- 20 9C 7B JSR $7B9C +5991- 68 PLA +5992- A8 TAY +5993- AD 00 96 LDA $9600 +5996- D0 07 BNE $599F +5998- 99 15 D0 STA $D015,Y +599B- 99 37 D0 STA $D037,Y +599E- 60 RTS +599F- AD 13 D0 LDA $D013 +59A2- 99 15 D0 STA $D015,Y +59A5- 85 D3 STA $D3 +59A7- AD 14 D0 LDA $D014 +59AA- 99 37 D0 STA $D037,Y +59AD- 85 D4 STA $D4 +59AF- A0 00 LDY #$00 +59B1- B9 00 96 LDA $9600,Y +59B4- 91 D3 STA ($D3),Y +59B6- EE 13 D0 INC $D013 +59B9- D0 03 BNE $59BE +59BB- EE 14 D0 INC $D014 +59BE- C8 INY +59BF- AA TAX +59C0- D0 EF BNE $59B1 +59C2- 60 RTS +59C3- 20 3C 7B JSR $7B3C +59C6- F0 5D BEQ $5A25 +59C8- A9 00 LDA #$00 +59CA- 85 D7 STA $D7 +59CC- A0 00 LDY #$00 +59CE- B1 D5 LDA ($D5),Y +59D0- E6 D5 INC $D5 +59D2- D0 02 BNE $59D6 +59D4- E6 D6 INC $D6 +59D6- E6 D7 INC $D7 +59D8- A8 TAY +59D9- D0 F1 BNE $59CC +59DB- A2 21 LDX #$21 +59DD- BD 37 D0 LDA $D037,X +59E0- C5 D6 CMP $D6 +59E2- D0 05 BNE $59E9 +59E4- BD 15 D0 LDA $D015,X +59E7- C5 D5 CMP $D5 +59E9- 90 0D BCC $59F8 +59EB- BD 15 D0 LDA $D015,X +59EE- E5 D7 SBC $D7 +59F0- 9D 15 D0 STA $D015,X +59F3- B0 03 BCS $59F8 +59F5- DE 37 D0 DEC $D037,X +59F8- CA DEX +59F9- 10 E2 BPL $59DD +59FB- A5 D6 LDA $D6 +59FD- CD 14 D0 CMP $D014 +5A00- D0 05 BNE $5A07 +5A02- A5 D5 LDA $D5 +5A04- CD 13 D0 CMP $D013 +5A07- F0 12 BEQ $5A1B +5A09- B1 D5 LDA ($D5),Y +5A0B- 91 D3 STA ($D3),Y +5A0D- E6 D3 INC $D3 +5A0F- D0 02 BNE $5A13 +5A11- E6 D4 INC $D4 +5A13- E6 D5 INC $D5 +5A15- D0 02 BNE $5A19 +5A17- E6 D6 INC $D6 +5A19- D0 E0 BNE $59FB +5A1B- E5 D7 SBC $D7 +5A1D- 8D 13 D0 STA $D013 +5A20- B0 03 BCS $5A25 +5A22- CE 14 D0 DEC $D014 +5A25- 60 RTS +5A26- 20 4D 7B JSR $7B4D +5A29- A0 00 LDY #$00 +5A2B- 98 TYA +5A2C- A2 00 LDX #$00 +5A2E- 29 1F AND #$1F +5A30- D0 02 BNE $5A34 +5A32- A2 80 LDX #$80 +5A34- 8A TXA +5A35- 99 00 97 STA $9700,Y +5A38- C8 INY +5A39- D0 F0 BNE $5A2B +5A3B- A2 E0 LDX #$E0 +5A3D- B9 00 96 LDA $9600,Y +5A40- F0 14 BEQ $5A56 +5A42- 30 07 BMI $5A4B +5A44- 9D 00 97 STA $9700,X +5A47- E8 INX +5A48- C8 INY +5A49- D0 F2 BNE $5A3D +5A4B- 48 PHA +5A4C- 8A TXA +5A4D- 18 CLC +5A4E- 69 20 ADC #$20 +5A50- 29 E0 AND #$E0 +5A52- AA TAX +5A53- 68 PLA +5A54- 30 EE BMI $5A44 +5A56- 60 RTS +5A57- 98 TYA +5A58- 48 PHA +5A59- A2 00 LDX #$00 +5A5B- A0 00 LDY #$00 +5A5D- BD 00 97 LDA $9700,X +5A60- 99 00 96 STA $9600,Y +5A63- F0 04 BEQ $5A69 +5A65- E8 INX +5A66- C8 INY +5A67- D0 F4 BNE $5A5D +5A69- 8A TXA +5A6A- 18 CLC +5A6B- 69 20 ADC #$20 +5A6D- 29 E0 AND #$E0 +5A6F- AA TAX +5A70- D0 EB BNE $5A5D +5A72- 88 DEY +5A73- 30 05 BMI $5A7A +5A75- B9 00 96 LDA $9600,Y +5A78- 30 F8 BMI $5A72 +5A7A- C8 INY +5A7B- A9 00 LDA #$00 +5A7D- 99 00 96 STA $9600,Y +5A80- 68 PLA +5A81- A8 TAY +5A82- 4C 65 7B JMP $7B65 +5A85- A0 00 LDY #$00 +5A87- 8C 56 7A STY $7A56 +5A8A- A5 D9 LDA $D9 +5A8C- C9 0A CMP #$0A +5A8E- 90 0D BCC $5A9D +5A90- A2 FF LDX #$FF +5A92- E8 INX +5A93- E9 0A SBC #$0A +5A95- B0 FB BCS $5A92 +5A97- 69 0A ADC #$0A +5A99- 09 30 ORA #$30 +5A9B- A8 TAY +5A9C- 8A TXA +5A9D- 09 30 ORA #$30 +5A9F- 8D 54 7A STA $7A54 +5AA2- 8C 55 7A STY $7A55 +5AA5- 60 RTS +5AA6- A2 FF LDX #$FF +5AA8- 88 DEY +5AA9- 30 08 BMI $5AB3 +5AAB- E8 INX +5AAC- BD 99 7C LDA $7C99,X +5AAF- D0 FA BNE $5AAB +5AB1- F0 F5 BEQ $5AA8 +5AB3- A0 FF LDY #$FF +5AB5- E8 INX +5AB6- C8 INY +5AB7- BD 99 7C LDA $7C99,X +5ABA- 99 4A 7A STA $7A4A,Y +5ABD- D0 F6 BNE $5AB5 +5ABF- 60 RTS +5AC0- 53 ??? +5AC1- 55 4E EOR $4E,X +5AC3- 44 ??? +5AC4- 41 59 EOR ($59,X) +5AC6- 00 BRK +5AC7- 4D 4F 4E EOR $4E4F +5ACA- 44 ??? +5ACB- 41 59 EOR ($59,X) +5ACD- 00 BRK +5ACE- 54 ??? +5ACF- 55 45 EOR $45,X +5AD1- 53 ??? +5AD2- 44 ??? +5AD3- 41 59 EOR ($59,X) +5AD5- 00 BRK +5AD6- 57 ??? +5AD7- 45 44 EOR $44 +5AD9- 4E 45 53 LSR $5345 +5ADC- 44 ??? +5ADD- 41 59 EOR ($59,X) +5ADF- 00 BRK +5AE0- 54 ??? +5AE1- 48 PHA +5AE2- 55 52 EOR $52,X +5AE4- 53 ??? +5AE5- 44 ??? +5AE6- 41 59 EOR ($59,X) +5AE8- 00 BRK +5AE9- 46 52 LSR $52 +5AEB- 49 44 EOR #$44 +5AED- 41 59 EOR ($59,X) +5AEF- 00 BRK +5AF0- 53 ??? +5AF1- 41 54 EOR ($54,X) +5AF3- 55 52 EOR $52,X +5AF5- 44 ??? +5AF6- 41 59 EOR ($59,X) +5AF8- 00 BRK +5AF9- 48 PHA +5AFA- 86 D3 STX $D3 +5AFC- A9 14 LDA #$14 +5AFE- 38 SEC +5AFF- E5 D3 SBC $D3 +5B01- 0A ASL +5B02- 85 D3 STA $D3 +5B04- 68 PLA +5B05- 8D 19 7D STA $7D19 +5B08- 8D 1F 7D STA $7D1F +5B0B- 8E 16 7D STX $7D16 +5B0E- 8E 21 7D STX $7D21 +5B11- 8E 26 7D STX $7D26 +5B14- CA DEX +5B15- 8A TXA +5B16- 18 CLC +5B17- 65 D3 ADC $D3 +5B19- 8D 1C 7D STA $7D1C +5B1C- 8C 17 7D STY $7D17 +5B1F- 8C 1D 7D STY $7D1D +5B22- 88 DEY +5B23- 88 DEY +5B24- 8C 22 7D STY $7D22 +5B27- 98 TYA +5B28- 69 02 ADC #$02 +5B2A- 6D 19 7D ADC $7D19 +5B2D- 8D 27 7D STA $7D27 +5B30- A5 D3 LDA $D3 +5B32- 8D 23 7D STA $7D23 +5B35- 8D 28 7D STA $7D28 +5B38- 20 00 E0 JSR $E000 +5B3B- 11 07 ORA ($07),Y +5B3D- 00 BRK +5B3E- 00 BRK +5B3F- 01 00 ORA ($00,X) +5B41- 11 70 ORA ($70),Y +5B43- 00 BRK +5B44- 00 BRK +5B45- 01 00 ORA ($00,X) +5B47- 10 00 BPL $5B49 +5B49- 00 BRK +5B4A- 00 BRK +5B4B- 02 ??? +5B4C- 10 00 BPL $5B4E +5B4E- 00 BRK +5B4F- 00 BRK +5B50- 02 ??? +5B51- 00 BRK +5B52- 60 RTS +5B53- 45 44 EOR $44 +5B55- 49 54 EOR #$54 +5B57- 20 49 4E JSR $4E49 +5B5A- 53 ??? +5B5B- 54 ??? +5B5C- 52 55 EOR ($55) +5B5E- 43 ??? +5B5F- 54 ??? +5B60- 49 4F EOR #$4F +5B62- 4E 53 00 LSR $0053 +5B65- 20 4F 46 JSR $464F +5B68- 20 4C 49 JSR $494C +5B6B- 4E 45 20 LSR $2045 +5B6E- 00 BRK +5B6F- 20 00 E0 JSR $E000 +5B72- 06 0C ASL $0C +5B74- 00 BRK +5B75- A6 3C LDX $3C +5B77- 43 ??? +5B78- 54 ??? +5B79- 52 4C EOR ($4C) +5B7B- 2D 20 20 AND $2020 +5B7E- 3E 20 54 ROL $5420,X +5B81- 4F ??? +5B82- 20 53 45 JSR $4553 +5B85- 45 20 EOR $20 +5B87- 09 2C ORA #$2C +5B89- 7D 0D 13 ADC $130D,X +5B8C- 09 A6 ORA #$A6 +5B8E- 01 07 ORA ($07,X) +5B90- 0F ??? +5B91- 06 06 ASL $06 +5B93- 06 06 ASL $06 +5B95- 06 0F ASL $0F +5B97- 00 BRK +5B98- 60 RTS +5B99- 08 PHP +5B9A- 20 72 E0 JSR $E072 +5B9D- 20 00 E0 JSR $E000 +5BA0- 06 4C ASL $4C +5BA2- 00 BRK +5BA3- 16 09 ASL $09,X +5BA5- 2C 7D 0D BIT $0D7D +5BA8- 00 BRK +5BA9- 28 PLP +5BAA- B0 67 BCS $5C13 +5BAC- 20 00 E0 JSR $E000 +5BAF- 06 10 ASL $10 +5BB1- 00 BRK +5BB2- 3A DEC +5BB3- 3C 43 54 BIT $5443,X +5BB6- 52 4C EOR ($4C) +5BB8- 2D 50 3E AND $3E50 +5BBB- 0E 14 5B ASL $5B14 +5BBE- 50 4F BVC $5C0F +5BC0- 53 ??? +5BC1- 49 54 EOR #$54 +5BC3- 49 4F EOR #$4F +5BC5- 4E 09 41 LSR $4109 +5BC8- 7D 4F 46 ADC $464F,X +5BCB- 20 54 45 JSR $4554 +5BCE- 58 CLI +5BCF- 54 ??? +5BD0- 0D 06 7A ORA $7A06 +5BD3- 00 BRK +5BD4- 45 4C EOR $4C +5BD6- 0D 43 0D ORA $0D43 +5BD9- 52 0D EOR ($0D) +5BDB- 06 94 ASL $94 +5BDD- 00 BRK +5BDE- 45 4C EOR $4C +5BE0- 45 46 EOR $46 +5BE2- 54 ??? +5BE3- 0D 43 45 ORA $4543 +5BE6- 4E 54 45 LSR $4554 +5BE9- 52 0D EOR ($0D) +5BEB- 52 49 EOR ($49) +5BED- 47 ??? +5BEE- 48 PHA +5BEF- 54 ??? +5BF0- 0D 06 10 ORA $1006 +5BF3- 00 BRK +5BF4- 64 3C STZ $3C +5BF6- 43 ??? +5BF7- 54 ??? +5BF8- 52 4C EOR ($4C) +5BFA- 2D 53 3E AND $3E53 +5BFD- 0E 14 5B ASL $5B14 +5C00- 43 ??? +5C01- 48 PHA +5C02- 41 4E EOR ($4E,X) +5C04- 47 ??? +5C05- 45 20 EOR $20 +5C07- 53 ??? +5C08- 49 5A EOR #$5A +5C0A- 45 09 EOR $09 +5C0C- 3E 7D 0D ROL $0D7D,X +5C0F- 00 BRK +5C10- 4C 39 7E JMP $7E39 +5C13- 20 00 E0 JSR $E000 +5C16- 06 10 ASL $10 +5C18- 00 BRK +5C19- 44 ??? +5C1A- 3C 43 54 BIT $5443,X +5C1D- 52 4C EOR ($4C) +5C1F- 2D 46 3E AND $3E46 +5C22- 0E 14 5B ASL $5B14 +5C25- 43 ??? +5C26- 48 PHA +5C27- 41 4E EOR ($4E,X) +5C29- 47 ??? +5C2A- 45 20 EOR $20 +5C2C- 46 4F LSR $4F +5C2E- 52 4D EOR ($4D) +5C30- 09 3E ORA #$3E +5C32- 7D 0D 06 ADC $060D,X +5C35- 94 00 STY $00,X +5C37- 4F ??? +5C38- 53 ??? +5C39- 4F ??? +5C3A- 4C 49 44 JMP $4449 +5C3D- 0D 4F 55 ORA $554F +5C40- 54 ??? +5C41- 4C 49 4E JMP $4E49 +5C44- 45 0D EOR $0D +5C46- 33 ??? +5C47- 2D 44 0D AND $0D44 +5C4A- 00 BRK +5C4B- A2 11 LDX #$11 +5C4D- A0 4F LDY #$4F +5C4F- 20 71 7E JSR $7E71 +5C52- A2 11 LDX #$11 +5C54- A0 57 LDY #$57 +5C56- 20 8D 7E JSR $7E8D +5C59- A2 11 LDX #$11 +5C5B- A0 5F LDY #$5F +5C5D- 20 A9 7E JSR $7EA9 +5C60- 20 45 7E JSR $7E45 +5C63- 4C 60 E0 JMP $E060 +5C66- A9 05 LDA #$05 +5C68- A2 8C LDX #$8C +5C6A- D0 04 BNE $5C70 +5C6C- A9 03 LDA #$03 +5C6E- A2 10 LDX #$10 +5C70- 8D 52 7E STA $7E52 +5C73- 8E 54 7E STX $7E54 +5C76- 20 00 E0 JSR $E000 +5C79- 03 ??? +5C7A- 06 00 ASL $00 +5C7C- 00 BRK +5C7D- 90 3C BCC $5CBB +5C7F- 43 ??? +5C80- 54 ??? +5C81- 52 4C EOR ($4C) +5C83- 2D 45 3E AND $3E45 +5C86- 20 20 20 JSR $2020 +5C89- 20 20 45 JSR $4520 +5C8C- 52 41 EOR ($41) +5C8E- 53 ??? +5C8F- 45 20 EOR $20 +5C91- 4C 49 4E JMP $4E49 +5C94- 45 0D EOR $0D +5C96- 00 BRK +5C97- 60 RTS +5C98- 8E 7A 7E STX $7E7A +5C9B- 8C 7B 7E STY $7E7B +5C9E- 20 0C E0 JSR $E00C +5CA1- 00 BRK +5CA2- 00 BRK +5CA3- 02 ??? +5CA4- 07 ??? +5CA5- 7C 1F 7C JMP ($7C1F,X) +5CA8- 1F ??? +5CA9- 7C 1F 7C JMP ($7C1F,X) +5CAC- 1F ??? +5CAD- 7C 1F 7C JMP ($7C1F,X) +5CB0- 1F ??? +5CB1- 7C 1F 60 JMP ($601F,X) +5CB4- 8E 96 7E STX $7E96 +5CB7- 8C 97 7E STY $7E97 +5CBA- 20 0C E0 JSR $E00C +5CBD- 00 BRK +5CBE- 00 BRK +5CBF- 02 ??? +5CC0- 07 ??? +5CC1- 7C 1F 0C JMP ($0C1F,X) +5CC4- 18 CLC +5CC5- 0C 18 0C TSB $0C18 +5CC8- 18 CLC +5CC9- 0C 18 0C TSB $0C18 +5CCC- 18 CLC +5CCD- 7C 1F 60 JMP ($601F,X) +5CD0- 8E B2 7E STX $7EB2 +5CD3- 8C B3 7E STY $7EB3 +5CD6- 20 0C E0 JSR $E00C +5CD9- 00 BRK +5CDA- 00 BRK +5CDB- 02 ??? +5CDC- 07 ??? +5CDD- 1C 1F 36 TRB $361F +5CE0- 33 ??? +5CE1- 30 33 BMI $5D16 +5CE3- 18 CLC +5CE4- 33 ??? +5CE5- 30 33 BMI $5D1A +5CE7- 36 33 ROL $33,X +5CE9- 1C 1F 60 TRB $601F +5CEC- 20 69 E0 JSR $E069 +5CEF- 20 E5 7F JSR $7FE5 +5CF2- 8C F7 7E STY $7EF7 +5CF5- 8D F8 7E STA $7EF8 +5CF8- 20 E5 7F JSR $7FE5 +5CFB- 8C FA 7E STY $7EFA +5CFE- 8D FB 18 STA $18FB +5D01- B0 38 BCS $5D3B +5D03- A0 00 LDY #$00 +5D05- B9 00 5D LDA $5D00,Y +5D08- 99 00 78 STA $7800,Y +5D0B- C8 INY +5D0C- D0 F7 BNE $5D05 +5D0E- 4C 11 78 JMP $7811 +5D11- B0 6E BCS $5D81 +5D13- 8C F0 B7 STY $B7F0 +5D16- 8C EB B7 STY $B7EB +5D19- 8C EC B7 STY $B7EC +5D1C- A2 0F LDX #$0F +5D1E- A0 63 LDY #$63 +5D20- 8E ED B7 STX $B7ED +5D23- 8C F1 B7 STY $B7F1 +5D26- 20 E3 03 JSR $03E3 +5D29- 20 D9 03 JSR $03D9 +5D2C- B0 F8 BCS $5D26 +5D2E- AE ED B7 LDX $B7ED +5D31- AC F1 B7 LDY $B7F1 +5D34- 88 DEY +5D35- CA DEX +5D36- E0 09 CPX #$09 +5D38- B0 E6 BCS $5D20 +5D3A- 2C 7F 02 BIT $027F +5D3D- 10 56 BPL $5D95 +5D3F- A0 00 LDY #$00 +5D41- 8D 05 C0 STA $C005 w:WRCARDRAM +5D44- B9 00 5D LDA $5D00,Y +5D47- 99 00 18 STA $1800,Y +5D4A- B9 00 5E LDA $5E00,Y +5D4D- 99 00 19 STA $1900,Y +5D50- B9 00 5F LDA $5F00,Y +5D53- 99 00 1A STA $1A00,Y +5D56- B9 00 60 LDA $6000,Y +5D59- 99 00 1B STA $1B00,Y +5D5C- B9 00 61 LDA $6100,Y +5D5F- 99 00 1C STA $1C00,Y +5D62- B9 00 62 LDA $6200,Y +5D65- 99 00 1D STA $1D00,Y +5D68- B9 00 63 LDA $6300,Y +5D6B- 99 00 1E STA $1E00,Y +5D6E- C8 INY +5D6F- D0 D3 BNE $5D44 +5D71- 8D 04 C0 STA $C004 w:WRMAINRAM +5D74- 8D 09 C0 STA $C009 w:SETALTZP +5D77- A9 02 LDA #$02 +5D79- 8D 01 E0 STA $E001 +5D7C- 8D 08 C0 STA $C008 w:SETSTDZP +5D7F- D0 14 BNE $5D95 +5D81- 8D 09 C0 STA $C009 w:SETALTZP +5D84- A0 35 LDY #$35 +5D86- B9 98 78 LDA $7898,Y +5D89- 99 00 01 STA $0100,Y +5D8C- 88 DEY +5D8D- 10 F7 BPL $5D86 +5D8F- 20 00 01 JSR $0100 +5D92- 8D 08 C0 STA $C008 w:SETSTDZP +5D95- 4C 03 40 JMP $4003 +5D98- 8D 03 C0 STA $C003 w:RDCARDRAM +5D9B- A0 00 LDY #$00 +5D9D- B9 00 18 LDA $1800,Y +5DA0- 99 00 5D STA $5D00,Y +5DA3- B9 00 19 LDA $1900,Y +5DA6- 99 00 5E STA $5E00,Y +5DA9- B9 00 1A LDA $1A00,Y +5DAC- 99 00 5F STA $5F00,Y +5DAF- B9 00 1B LDA $1B00,Y +5DB2- 99 00 60 STA $6000,Y +5DB5- B9 00 1C LDA $1C00,Y +5DB8- 99 00 61 STA $6100,Y +5DBB- B9 00 1D LDA $1D00,Y +5DBE- 99 00 62 STA $6200,Y +5DC1- B9 00 1E LDA $1E00,Y +5DC4- 99 00 63 STA $6300,Y +5DC7- C8 INY +5DC8- D0 D3 BNE $5D9D +5DCA- 8D 02 C0 STA $C002 w:RDMAINRAM +5DCD- 60 RTS +5DCE- 03 ??? +5DCF- 8A TXA +5DD0- AD 04 8A LDA $8A04 +5DD3- 48 PHA +5DD4- AD 05 8A LDA $8A05 +5DD7- 48 PHA +5DD8- AD 06 8A LDA $8A06 +5DDB- 48 PHA +5DDC- AD 0A 8A LDA $8A0A +5DDF- 48 PHA +5DE0- A9 00 LDA #$00 +5DE2- 8D 04 8A STA $8A04 +5DE5- 8D 0A 8A STA $8A0A +5DE8- A0 E2 LDY #$E2 +5DEA- A9 7F LDA #$7F +5DEC- 8C 0C 8A STY $8A0C +5DEF- 8D 0D 8A STA $8A0D +5DF2- 20 00 8A JSR $8A00 +5DF5- 68 PLA +5DF6- 8D 0A 00 STA $000A diff --git a/PSC Source Disk 4 - Fastload - Copy Protection - Title Page (v13)/CALEN.TAIL END.txt b/PSC Source Disk 4 - Fastload - Copy Protection - Title Page (v13)/CALEN.TAIL END.txt new file mode 100644 index 0000000..266b1d4 --- /dev/null +++ b/PSC Source Disk 4 - Fastload - Copy Protection - Title Page (v13)/CALEN.TAIL END.txt @@ -0,0 +1,1158 @@ +5D00- 7E 20 E5 ROR $E520,X +5D03- 7F ??? +5D04- 8C 1C 7F STY $7F1C +5D07- 8D 1D 7F STA $7F1D +5D0A- 20 E5 7F JSR $7FE5 +5D0D- 8C 11 7F STY $7F11 +5D10- 8D 5D 7F STA $7F5D +5D13- 20 E5 7F JSR $7FE5 +5D16- 8C 07 7F STY $7F07 +5D19- 8D 0C 7F STA $7F0C +5D1C- 60 RTS +5D1D- 20 FF FF JSR $FFFF +5D20- 20 FF FF JSR $FFFF +5D23- A4 D5 LDY $D5 +5D25- A5 D6 LDA $D6 +5D27- 8C 0C 8A STY $8A0C +5D2A- 8D 0D 8A STA $8A0D +5D2D- A9 00 LDA #$00 +5D2F- 8D 0A 8A STA $8A0A +5D32- A9 00 LDA #$00 +5D34- 8D 0E 8A STA $8A0E +5D37- A2 00 LDX #$00 +5D39- F0 07 BEQ $5D42 +5D3B- A0 00 LDY #$00 +5D3D- A9 85 LDA #$85 +5D3F- 20 09 0F JSR $0F09 +5D42- 20 FF FF JSR $FFFF +5D45- 20 81 7F JSR $7F81 +5D48- 48 PHA +5D49- A0 FF LDY #$FF +5D4B- C8 INY +5D4C- B1 D5 LDA ($D5),Y +5D4E- D0 FB BNE $5D4B +5D50- 68 PLA +5D51- A2 01 LDX #$01 +5D53- 20 51 E0 JSR $E051 +5D56- 08 PHP +5D57- 70 7F BVS $5DD8 +5D59- 7F ??? +5D5A- 70 7F BVS $5DDB +5D5C- 05 6E ORA $6E +5D5E- 7F ??? +5D5F- 0D 7F 7F ORA $7F7F +5D62- 0A ASL +5D63- 7F ??? +5D64- 7F ??? +5D65- 1B ??? +5D66- 7E 7F 0B ROR $0B7F,X +5D69- 7E 7F 09 ROR $097F,X +5D6C- 7D 7F 13 ADC $137F,X +5D6F- 7C 7F 10 JMP ($107F,X) +5D72- 7B ??? +5D73- 7F ??? +5D74- 06 7A ASL $7A +5D76- 7F ??? +5D77- 40 RTI +5D78- 1E 7F 00 ASL $007F,X +5D7B- C9 20 CMP #$20 +5D7D- 90 C6 BCC $5D45 +5D7F- C9 5B CMP #$5B +5D81- B0 C2 BCS $5D45 +5D83- C0 00 CPY #$00 +5D85- B0 BE BCS $5D45 +5D87- 91 D5 STA ($D5),Y +5D89- C8 INY +5D8A- A9 00 LDA #$00 +5D8C- 91 D5 STA ($D5),Y +5D8E- AD 04 8A LDA $8A04 +5D91- F0 8D BEQ $5D20 +5D93- D0 88 BNE $5D1D +5D95- A0 01 LDY #$01 +5D97- 88 DEY +5D98- 30 AB BMI $5D45 +5D9A- A9 00 LDA #$00 +5D9C- 91 D5 STA ($D5),Y +5D9E- 4C F6 7E JMP $7EF6 +5DA1- E8 INX +5DA2- E8 INX +5DA3- E8 INX +5DA4- E8 INX +5DA5- E8 INX +5DA6- 8A TXA +5DA7- 60 RTS +5DA8- 06 C1 ASL $C1 +5DAA- 20 A4 7F JSR $7FA4 +5DAD- E6 C1 INC $C1 +5DAF- 20 48 E0 JSR $E048 +5DB2- 20 1F E0 JSR $E01F +5DB5- 30 0A BMI $5DC1 +5DB7- C6 4E DEC $4E +5DB9- D0 F7 BNE $5DB2 +5DBB- C6 4F DEC $4F +5DBD- 10 F3 BPL $5DB2 +5DBF- 30 E9 BMI $5DAA +5DC1- 48 PHA +5DC2- 46 C1 LSR $C1 +5DC4- 90 03 BCC $5DC9 +5DC6- 20 A4 7F JSR $7FA4 +5DC9- 68 PLA +5DCA- 60 RTS +5DCB- A9 04 LDA #$04 +5DCD- 8D 03 8A STA $8A03 +5DD0- AD 04 8A LDA $8A04 +5DD3- 48 PHA +5DD4- AD 05 8A LDA $8A05 +5DD7- 48 PHA +5DD8- AD 06 8A LDA $8A06 +5DDB- 48 PHA +5DDC- AD 0A 8A LDA $8A0A +5DDF- 48 PHA +5DE0- A9 00 LDA #$00 +5DE2- 8D 04 8A STA $8A04 +5DE5- 8D 0A 8A STA $8A0A +5DE8- A0 E2 LDY #$E2 +5DEA- A9 7F LDA #$7F +5DEC- 8C 0C 8A STY $8A0C +5DEF- 8D 0D 8A STA $8A0D +5DF2- 20 00 8A JSR $8A00 +5DF5- 68 PLA +5DF6- 8D 0A 8A STA $8A0A +5DF9- 68 PLA +5DFA- 8D 06 8A STA $8A06 +5DFD- 68 PLA +5DFE- 8D 05 8A STA $8A05 +5E01- 68 PLA +5E02- 8D 04 8A STA $8A04 +5E05- 4E 03 8A LSR $8A03 +5E08- 60 RTS +5E09- 49 49 EOR #$49 +5E0B- 00 BRK +5E0C- 20 6C E0 JSR $E06C +5E0F- A8 TAY +5E10- 4C 6C E0 JMP $E06C +5E13- 86 D9 STX $D9 +5E15- A9 00 LDA #$00 +5E17- 85 C0 STA $C0 +5E19- A4 D9 LDY $D9 +5E1B- 88 DEY +5E1C- 20 FF 7B JSR $7BFF +5E1F- 20 C5 7E JSR $7EC5 +5E22- 20 81 58 JSR $5881 +5E25- FF ??? +5E26- 46 81 LSR $81 +5E28- 7E 1E 02 ROR $021E,X +5E2B- 00 BRK +5E2C- A2 47 LDX #$47 +5E2E- A0 00 LDY #$00 +5E30- 86 D0 STX $D0 +5E32- 84 D1 STY $D1 +5E34- A0 36 LDY #$36 +5E36- 84 D2 STY $D2 +5E38- 20 4B 81 JSR $814B +5E3B- 20 48 7D JSR $7D48 +5E3E- A2 0A LDX #$0A +5E40- A0 36 LDY #$36 +5E42- A9 5A LDA #$5A +5E44- 20 D2 7C JSR $7CD2 +5E47- A0 FF LDY #$FF +5E49- 20 03 0F JSR $0F03 +5E4C- A0 00 LDY #$00 +5E4E- 20 9E 80 JSR $809E +5E51- C8 INY +5E52- 90 FA BCC $5E4E +5E54- A4 C0 LDY $C0 +5E56- 84 C0 STY $C0 +5E58- 20 F6 7E JSR $7EF6 +5E5B- 48 PHA +5E5C- A4 C0 LDY $C0 +5E5E- 20 06 0F JSR $0F06 +5E61- 68 PLA +5E62- 20 51 E0 JSR $E051 +5E65- 01 50 ORA ($50,X) +5E67- 80 02 BRA $5E6B +5E69- 58 CLI +5E6A- 80 03 BRA $5E6F +5E6C- D8 CLD +5E6D- 80 04 BRA $5E73 +5E6F- DF ??? +5E70- 80 05 BRA $5E77 +5E72- 7F ??? +5E73- 80 06 BRA $5E7B +5E75- 31 80 AND ($80),Y +5E77- C8 INY +5E78- 20 06 0F JSR $0F06 +5E7B- 90 D9 BCC $5E56 +5E7D- B0 03 BCS $5E82 +5E7F- 88 DEY +5E80- 10 D4 BPL $5E56 +5E82- 20 66 80 JSR $8066 +5E85- B0 1E BCS $5EA5 +5E87- A4 D9 LDY $D9 +5E89- 88 DEY +5E8A- 20 30 7C JSR $7C30 +5E8D- AD 13 D0 LDA $D013 +5E90- C9 D4 CMP #$D4 +5E92- AD 14 D0 LDA $D014 +5E95- E9 DE SBC #$DE +5E97- 90 0C BCC $5EA5 +5E99- A9 00 LDA #$00 +5E9B- 8D 00 96 STA $9600 +5E9E- A4 D9 LDY $D9 +5EA0- 88 DEY +5EA1- 20 65 7B JSR $7B65 +5EA4- 38 SEC +5EA5- 60 RTS +5EA6- BD 00 97 LDA $9700,X +5EA9- 48 PHA +5EAA- 29 06 AND #$06 +5EAC- 18 CLC +5EAD- 69 02 ADC #$02 +5EAF- C9 06 CMP #$06 +5EB1- D0 02 BNE $5EB5 +5EB3- A9 00 LDA #$00 +5EB5- 85 D3 STA $D3 +5EB7- 68 PLA +5EB8- 29 F9 AND #$F9 +5EBA- 05 D3 ORA $D3 +5EBC- 9D 00 97 STA $9700,X +5EBF- 20 9E 80 JSR $809E +5EC2- 4C 31 80 JMP $8031 +5EC5- 8C D3 80 STY $80D3 +5EC8- 20 39 81 JSR $8139 +5ECB- B0 2C BCS $5EF9 +5ECD- BD 00 97 LDA $9700,X +5ED0- 4A LSR +5ED1- 29 03 AND #$03 +5ED3- A8 TAY +5ED4- B9 D5 80 LDA $80D5,Y +5ED7- 8D C7 80 STA $80C7 +5EDA- A4 C2 LDY $C2 +5EDC- 8C C0 80 STY $80C0 +5EDF- 8C C6 80 STY $80C6 +5EE2- 20 00 E0 JSR $E000 +5EE5- 0F ??? +5EE6- 1E 00 02 ASL $0200,X +5EE9- 08 PHP +5EEA- 06 D8 ASL $D8 +5EEC- 00 BRK +5EED- 00 BRK +5EEE- 20 0D 00 JSR $000D +5EF1- A2 08 LDX #$08 +5EF3- A4 C2 LDY $C2 +5EF5- 20 71 7E JSR $7E71 +5EF8- 18 CLC +5EF9- A0 00 LDY #$00 +5EFB- 60 RTS +5EFC- 4C 43 52 JMP $5243 +5EFF- 18 CLC +5F00- 20 72 7D JSR $7D72 +5F03- 4C 11 80 JMP $8011 +5F06- BD 00 97 LDA $9700,X +5F09- 49 01 EOR #$01 +5F0B- 9D 00 97 STA $9700,X +5F0E- A5 C0 LDA $C0 +5F10- 48 PHA +5F11- 38 SEC +5F12- 84 C0 STY $C0 +5F14- 08 PHP +5F15- 20 20 81 JSR $8120 +5F18- 28 PLP +5F19- B0 03 BCS $5F1E +5F1B- 20 46 81 JSR $8146 +5F1E- A4 C2 LDY $C2 +5F20- 8C 04 81 STY $8104 +5F23- 8C 09 81 STY $8109 +5F26- 20 00 E0 JSR $E000 +5F29- 0F ??? +5F2A- 08 PHP +5F2B- 00 BRK +5F2C- 02 ??? +5F2D- 10 0F BPL $5F3E +5F2F- 1E 00 02 ASL $0200,X +5F32- 10 00 BPL $5F34 +5F34- A4 C0 LDY $C0 +5F36- 20 9E 80 JSR $809E +5F39- A4 C0 LDY $C0 +5F3B- C8 INY +5F3C- 20 06 0F JSR $0F06 +5F3F- 90 D1 BCC $5F12 +5F41- 68 PLA +5F42- 85 C0 STA $C0 +5F44- 4C 31 80 JMP $8031 +5F47- A4 C0 LDY $C0 +5F49- 20 39 81 JSR $8139 +5F4C- 8D 33 81 STA $8133 +5F4F- 48 PHA +5F50- A5 D4 LDA $D4 +5F52- 8D 35 81 STA $8135 +5F55- 20 00 E0 JSR $E000 +5F58- 0F ??? +5F59- 0B ??? +5F5A- 00 BRK +5F5B- 12 00 ORA ($00) +5F5D- 00 BRK +5F5E- 68 PLA +5F5F- 60 RTS +5F60- 20 06 0F JSR $0F06 +5F63- B0 07 BCS $5F6C +5F65- A5 D3 LDA $D3 +5F67- 18 CLC +5F68- 69 4E ADC #$4E +5F6A- 85 C2 STA $C2 +5F6C- 60 RTS +5F6D- A4 C0 LDY $C0 +5F6F- 4C 03 0F JMP $0F03 +5F72- 20 72 E0 JSR $E072 +5F75- 20 00 E0 JSR $E000 +5F78- 05 06 ORA $06 +5F7A- 8C 00 1A STY $1A00 +5F7D- 4E 4F 57 LSR $574F +5F80- 20 54 59 JSR $5954 +5F83- 50 45 BVC $5FCA +5F85- 20 49 4E JSR $4E49 +5F88- 20 59 4F JSR $4F59 +5F8B- 55 52 EOR $52,X +5F8D- 0D 45 56 ORA $5645 +5F90- 45 4E EOR $4E +5F92- 54 ??? +5F93- 53 ??? +5F94- 20 41 4E JSR $4E41 +5F97- 44 ??? +5F98- 20 52 45 JSR $4552 +5F9B- 4D 49 4E EOR $4E49 +5F9E- 44 ??? +5F9F- 45 52 EOR $52 +5FA1- 53 ??? +5FA2- 3A DEC +5FA3- 0D 00 60 ORA $6000 +5FA6- 8A TXA +5FA7- 0A ASL +5FA8- 0A ASL +5FA9- 8D 1A 82 STA $821A +5FAC- 18 CLC +5FAD- 8A TXA +5FAE- 6D 0C D0 ADC $D00C +5FB1- C9 07 CMP #$07 +5FB3- 90 02 BCC $5FB7 +5FB5- E9 07 SBC #$07 +5FB7- A8 TAY +5FB8- 8A TXA +5FB9- 18 CLC +5FBA- 6D 0A D0 ADC $D00A +5FBD- CD 0D D0 CMP $D00D +5FC0- 90 07 BCC $5FC9 +5FC2- F0 05 BEQ $5FC9 +5FC4- ED 0D D0 SBC $D00D +5FC7- EA NOP +5FC8- EA NOP +5FC9- 85 D9 STA $D9 +5FCB- 20 7F 7C JSR $7C7F +5FCE- 20 5E 7C JSR $7C5E +5FD1- 20 C5 7E JSR $7EC5 +5FD4- 28 PLP +5FD5- 82 ??? +5FD6- 58 CLI +5FD7- FF ??? +5FD8- 4C 82 EE JMP $EE82 +5FDB- 64 01 STZ $01 +5FDD- 01 20 ORA ($20,X) +5FDF- 4B ??? +5FE0- 81 20 STA ($20,X) +5FE2- 00 BRK +5FE3- E0 05 CPX #$05 +5FE5- 06 8C ASL $8C +5FE7- 00 BRK +5FE8- 3A DEC +5FE9- 09 4A ORA #$4A +5FEB- 7A PLY +5FEC- 20 09 54 JSR $5409 +5FEF- 7A PLY +5FF0- 0D 00 A2 ORA $A200 +5FF3- 02 ??? +5FF4- A0 47 LDY #$47 +5FF6- A9 29 LDA #$29 +5FF8- 20 D2 7C JSR $7CD2 +5FFB- 20 3F 7E JSR $7E3F +5FFE- A0 03 LDY #$03 +6000- 84 C0 STY $C0 +6002- 20 15 82 JSR $8215 +6005- 20 28 82 JSR $8228 +6008- 20 4C 82 JSR $824C +600B- A4 C0 LDY $C0 +600D- 88 DEY +600E- D0 F0 BNE $6000 +6010- 84 C0 STY $C0 +6012- 20 15 82 JSR $8215 +6015- 20 F6 7E JSR $7EF6 +6018- 20 51 E0 JSR $E051 +601B- 01 FE ORA ($FE,X) +601D- 81 02 STA ($02,X) +601F- 00 BRK +6020- 82 ??? +6021- 00 BRK +6022- 4C EE 81 JMP $81EE +6025- 18 CLC +6026- 24 38 BIT $38 +6028- 08 PHP +6029- 20 17 82 JSR $8217 +602C- 28 PLP +602D- A4 C0 LDY $C0 +602F- 90 04 BCC $6035 +6031- 88 DEY +6032- 10 DC BPL $6010 +6034- 60 RTS +6035- C8 INY +6036- C0 04 CPY #$04 +6038- 90 D6 BCC $6010 +603A- 18 CLC +603B- 60 RTS +603C- 18 CLC +603D- 24 38 BIT $38 +603F- 08 PHP +6040- A9 00 LDA #$00 +6042- 18 CLC +6043- 65 C0 ADC $C0 +6045- A8 TAY +6046- 28 PLP +6047- B0 03 BCS $604C +6049- 4C 4D 7B JMP $7B4D +604C- 4C 65 7B JMP $7B65 +604F- 20 44 82 JSR $8244 +6052- 8D 33 82 STA $8233 +6055- 20 00 E0 JSR $E000 +6058- 0F ??? +6059- 03 ??? +605A- 00 BRK +605B- 22 ??? +605C- 07 ??? +605D- 16 01 ASL $01,X +605F- 12 01 ORA ($01) +6061- 00 BRK +6062- A0 00 LDY #$00 +6064- A9 96 LDA #$96 +6066- 84 D5 STY $D5 +6068- 85 D6 STA $D6 +606A- 60 RTS +606B- A5 C0 LDA $C0 +606D- 0A ASL +606E- 0A ASL +606F- 0A ASL +6070- 69 4C ADC #$4C +6072- 60 RTS +6073- 20 44 82 JSR $8244 +6076- A2 15 LDX #$15 +6078- A0 00 LDY #$00 +607A- 8E 05 8A STX $8A05 +607D- A2 00 LDX #$00 +607F- 8E 06 8A STX $8A06 +6082- E8 INX +6083- 8E 0A 8A STX $8A0A +6086- 8C 04 8A STY $8A04 +6089- 8D 07 8A STA $8A07 +608C- A4 D5 LDY $D5 +608E- A5 D6 LDA $D6 +6090- 8C 0C 8A STY $8A0C +6093- 8D 0D 8A STA $8A0D +6096- 4C 00 8A JMP $8A00 +6099- AD 0E D0 LDA $D00E +609C- 49 03 EOR #$03 +609E- F0 1E BEQ $60BE +60A0- 20 C5 7E JSR $7EC5 +60A3- 5B ??? +60A4- 83 ??? +60A5- 64 83 STZ $83 +60A7- 80 83 BRA $602C +60A9- EE 3E 01 INC $013E +60AC- 01 20 ORA ($20,X) +60AE- 98 TYA +60AF- 82 ??? +60B0- A0 1F LDY #$1F +60B2- 20 DE 82 JSR $82DE +60B5- B0 07 BCS $60BE +60B7- A0 20 LDY #$20 +60B9- 20 DE 82 JSR $82DE +60BC- B0 F2 BCS $60B0 +60BE- 60 RTS +60BF- 20 72 E0 JSR $E072 +60C2- A0 38 LDY #$38 +60C4- A9 1F LDA #$1F +60C6- 20 C7 82 JSR $82C7 +60C9- A0 67 LDY #$67 +60CB- A9 20 LDA #$20 +60CD- 20 C7 82 JSR $82C7 +60D0- 20 00 E0 JSR $E000 +60D3- 05 08 ORA $08 +60D5- 06 8C ASL $8C +60D7- 00 BRK +60D8- 25 4C AND $4C +60DA- 49 4E EOR #$4E +60DC- 45 20 EOR $20 +60DE- 31 0D AND ($0D),Y +60E0- 07 ??? +60E1- 0C 5B 4C TSB $4C5B +60E4- 49 4E EOR #$4E +60E6- 45 20 EOR $20 +60E8- 32 0D AND ($0D) +60EA- 00 BRK +60EB- 4C 48 7D JMP $7D48 +60EE- 85 C0 STA $C0 +60F0- A2 02 LDX #$02 +60F2- A9 0F LDA #$0F +60F4- 20 D2 7C JSR $7CD2 +60F7- A4 C0 LDY $C0 +60F9- 20 4D 7B JSR $7B4D +60FC- 20 28 83 JSR $8328 +60FF- 20 5B 83 JSR $835B +6102- 4C 80 83 JMP $8380 +6105- 84 C0 STY $C0 +6107- A4 C0 LDY $C0 +6109- 20 4D 7B JSR $7B4D +610C- 20 F6 7E JSR $7EF6 +610F- 48 PHA +6110- A4 C0 LDY $C0 +6112- 20 65 7B JSR $7B65 +6115- 68 PLA +6116- 20 51 E0 JSR $E051 +6119- 01 11 ORA ($11,X) +611B- 83 ??? +611C- 02 ??? +611D- 13 ??? +611E- 83 ??? +611F- 03 ??? +6120- 02 ??? +6121- 83 ??? +6122- 06 15 ASL $15 +6124- 83 ??? +6125- 00 BRK +6126- 4C E5 82 JMP $82E5 +6129- A5 C0 LDA $C0 +612B- 48 PHA +612C- 38 SEC +612D- 20 72 7D JSR $7D72 +6130- 20 98 82 JSR $8298 +6133- 68 PLA +6134- A8 TAY +6135- 4C DE 82 JMP $82DE +6138- 18 CLC +6139- 60 RTS +613A- 38 SEC +613B- 60 RTS +613C- AE 00 96 LDX $9600 +613F- E8 INX +6140- E0 83 CPX #$83 +6142- D0 02 BNE $6146 +6144- A2 80 LDX #$80 +6146- 8E 00 96 STX $9600 +6149- 20 28 83 JSR $8328 +614C- 4C E5 82 JMP $82E5 +614F- 20 45 83 JSR $8345 +6152- 38 SEC +6153- E9 0E SBC #$0E +6155- A8 TAY +6156- A2 02 LDX #$02 +6158- AD 00 96 LDA $9600 +615B- C9 81 CMP #$81 +615D- F0 07 BEQ $6166 +615F- C9 82 CMP #$82 +6161- F0 06 BEQ $6169 +6163- 4C 71 7E JMP $7E71 +6166- 4C 8D 7E JMP $7E8D +6169- 4C A9 7E JMP $7EA9 +616C- A4 C0 LDY $C0 +616E- B9 36 83 LDA $8336,Y +6171- 48 PHA +6172- B9 38 83 LDA $8338,Y +6175- AA TAX +6176- B9 3A 83 LDA $833A,Y +6179- A8 TAY +617A- 68 PLA +617B- 60 RTS +617C- 3C 6B D6 BIT $D66B,X +617F- AC 01 03 LDY $0301 +6182- 20 45 83 JSR $8345 +6185- 20 2B 82 JSR $822B +6188- E6 D5 INC $D5 +618A- 60 RTS +618B- A9 03 LDA #$03 +618D- 8D 0A 8A STA $8A0A +6190- A4 D5 LDY $D5 +6192- A5 D6 LDA $D6 +6194- 8C 0C 8A STY $8A0C +6197- 8D 0D 8A STA $8A0D +619A- 20 45 83 JSR $8345 +619D- A9 60 LDA #$60 +619F- 20 09 0F JSR $0F09 +61A2- A9 85 LDA #$85 +61A4- 4C 15 8A JMP $8A15 +61A7- 20 45 83 JSR $8345 +61AA- A2 8C LDX #$8C +61AC- A0 02 LDY #$02 +61AE- 4C 53 82 JMP $8253 +61B1- 20 C5 7E JSR $7EC5 +61B4- 06 40 ASL $40 +61B6- 58 CLI +61B7- FF ??? +61B8- 09 40 ORA #$40 +61BA- 00 BRK +61BB- 80 02 BRA $61BF +61BD- 00 BRK +61BE- 20 3F 7E JSR $7E3F +61C1- A0 21 LDY #$21 +61C3- 20 4D 7B JSR $7B4D +61C6- A0 00 LDY #$00 +61C8- 84 DA STY $DA +61CA- 20 F6 7E JSR $7EF6 +61CD- 20 51 E0 JSR $E051 +61D0- 01 B3 ORA ($B3,X) +61D2- 83 ??? +61D3- 02 ??? +61D4- B5 83 LDA $83,X +61D6- 00 BRK +61D7- 4C A3 83 JMP $83A3 +61DA- 18 CLC +61DB- 24 38 BIT $38 +61DD- 08 PHP +61DE- A0 21 LDY #$21 +61E0- 20 65 7B JSR $7B65 +61E3- 28 PLP +61E4- 60 RTS +61E5- 00 BRK +61E6- 00 BRK +61E7- 00 BRK +61E8- 00 BRK +61E9- 00 BRK +61EA- 00 BRK +61EB- 00 BRK +61EC- 00 BRK +61ED- 00 BRK +61EE- 00 BRK +61EF- 00 BRK +61F0- 00 BRK +61F1- 00 BRK +61F2- 00 BRK +61F3- 00 BRK +61F4- 00 BRK +61F5- 00 BRK +61F6- 00 BRK +61F7- 00 BRK +61F8- 00 BRK +61F9- 00 BRK +61FA- 00 BRK +61FB- 00 BRK +61FC- 00 BRK +61FD- 00 BRK +61FE- 00 BRK +61FF- 00 BRK +6200- 00 BRK +6201- 00 BRK +6202- 00 BRK +6203- 00 BRK +6204- 00 BRK +6205- 00 BRK +6206- 00 BRK +6207- 00 BRK +6208- 00 BRK +6209- 00 BRK +620A- 00 BRK +620B- 00 BRK +620C- 00 BRK +620D- 00 BRK +620E- 00 BRK +620F- 00 BRK +6210- 00 BRK +6211- 00 BRK +6212- 00 BRK +6213- 00 BRK +6214- 00 BRK +6215- 00 BRK +6216- 00 BRK +6217- 00 BRK +6218- 00 BRK +6219- 00 BRK +621A- 00 BRK +621B- 00 BRK +621C- 00 BRK +621D- 00 BRK +621E- 00 BRK +621F- 00 BRK +6220- 00 BRK +6221- 00 BRK +6222- 00 BRK +6223- 00 BRK +6224- 00 BRK +6225- 00 BRK +6226- 00 BRK +6227- 00 BRK +6228- 00 BRK +6229- 00 BRK +622A- 00 BRK +622B- 00 BRK +622C- 00 BRK +622D- 00 BRK +622E- 00 BRK +622F- 00 BRK +6230- 00 BRK +6231- 00 BRK +6232- 00 BRK +6233- 00 BRK +6234- 00 BRK +6235- 00 BRK +6236- 00 BRK +6237- 00 BRK +6238- 00 BRK +6239- 00 BRK +623A- 00 BRK +623B- 00 BRK +623C- 00 BRK +623D- 00 BRK +623E- 00 BRK +623F- 00 BRK +6240- 00 BRK +6241- 00 BRK +6242- 00 BRK +6243- 00 BRK +6244- 00 BRK +6245- 00 BRK +6246- 00 BRK +6247- 00 BRK +6248- 00 BRK +6249- 00 BRK +624A- 00 BRK +624B- 00 BRK +624C- 00 BRK +624D- 00 BRK +624E- 00 BRK +624F- 00 BRK +6250- 00 BRK +6251- 00 BRK +6252- 00 BRK +6253- 00 BRK +6254- 00 BRK +6255- 00 BRK +6256- 00 BRK +6257- 00 BRK +6258- 00 BRK +6259- 00 BRK +625A- 00 BRK +625B- 00 BRK +625C- 00 BRK +625D- 00 BRK +625E- 00 BRK +625F- 00 BRK +6260- 00 BRK +6261- 00 BRK +6262- 00 BRK +6263- 00 BRK +6264- 00 BRK +6265- 00 BRK +6266- 00 BRK +6267- 00 BRK +6268- 00 BRK +6269- 00 BRK +626A- 00 BRK +626B- 00 BRK +626C- 00 BRK +626D- 00 BRK +626E- 00 BRK +626F- 00 BRK +6270- 00 BRK +6271- 00 BRK +6272- 00 BRK +6273- 00 BRK +6274- 00 BRK +6275- 00 BRK +6276- 00 BRK +6277- 00 BRK +6278- 00 BRK +6279- 00 BRK +627A- 00 BRK +627B- 00 BRK +627C- 00 BRK +627D- 00 BRK +627E- 00 BRK +627F- 00 BRK +6280- 00 BRK +6281- 00 BRK +6282- 00 BRK +6283- 00 BRK +6284- 00 BRK +6285- 00 BRK +6286- 00 BRK +6287- 00 BRK +6288- 00 BRK +6289- 00 BRK +628A- 00 BRK +628B- 00 BRK +628C- 00 BRK +628D- 00 BRK +628E- 00 BRK +628F- 00 BRK +6290- 00 BRK +6291- 00 BRK +6292- 00 BRK +6293- 00 BRK +6294- 00 BRK +6295- 00 BRK +6296- 00 BRK +6297- 00 BRK +6298- 00 BRK +6299- 00 BRK +629A- 00 BRK +629B- 00 BRK +629C- 00 BRK +629D- 00 BRK +629E- 00 BRK +629F- 00 BRK +62A0- 00 BRK +62A1- 00 BRK +62A2- 00 BRK +62A3- 00 BRK +62A4- 00 BRK +62A5- 00 BRK +62A6- 00 BRK +62A7- 00 BRK +62A8- 00 BRK +62A9- 00 BRK +62AA- 00 BRK +62AB- 00 BRK +62AC- 00 BRK +62AD- 00 BRK +62AE- 00 BRK +62AF- 00 BRK +62B0- 00 BRK +62B1- 00 BRK +62B2- 00 BRK +62B3- 00 BRK +62B4- 00 BRK +62B5- 00 BRK +62B6- 00 BRK +62B7- 00 BRK +62B8- 00 BRK +62B9- 00 BRK +62BA- 00 BRK +62BB- 00 BRK +62BC- 00 BRK +62BD- 00 BRK +62BE- 00 BRK +62BF- 00 BRK +62C0- 00 BRK +62C1- 00 BRK +62C2- 00 BRK +62C3- 00 BRK +62C4- 00 BRK +62C5- 00 BRK +62C6- 00 BRK +62C7- 00 BRK +62C8- 00 BRK +62C9- 00 BRK +62CA- 00 BRK +62CB- 00 BRK +62CC- 00 BRK +62CD- 00 BRK +62CE- 00 BRK +62CF- 00 BRK +62D0- 00 BRK +62D1- 00 BRK +62D2- 00 BRK +62D3- 00 BRK +62D4- 00 BRK +62D5- 00 BRK +62D6- 00 BRK +62D7- 00 BRK +62D8- 00 BRK +62D9- 00 BRK +62DA- 00 BRK +62DB- 00 BRK +62DC- 00 BRK +62DD- 00 BRK +62DE- 00 BRK +62DF- 00 BRK +62E0- 00 BRK +62E1- 00 BRK +62E2- 00 BRK +62E3- 00 BRK +62E4- 00 BRK +62E5- 00 BRK +62E6- 00 BRK +62E7- 00 BRK +62E8- 00 BRK +62E9- 00 BRK +62EA- 00 BRK +62EB- 00 BRK +62EC- 00 BRK +62ED- 00 BRK +62EE- 00 BRK +62EF- 00 BRK +62F0- 00 BRK +62F1- 00 BRK +62F2- 00 BRK +62F3- 00 BRK +62F4- 00 BRK +62F5- 00 BRK +62F6- 00 BRK +62F7- 00 BRK +62F8- 00 BRK +62F9- 00 BRK +62FA- 00 BRK +62FB- 00 BRK +62FC- 00 BRK +62FD- 00 BRK +62FE- 00 BRK +62FF- 00 BRK +6300- 00 BRK +6301- 00 BRK +6302- 00 BRK +6303- 00 BRK +6304- 00 BRK +6305- 00 BRK +6306- 00 BRK +6307- 00 BRK +6308- 00 BRK +6309- 00 BRK +630A- 00 BRK +630B- 00 BRK +630C- 00 BRK +630D- 00 BRK +630E- 00 BRK +630F- 00 BRK +6310- 00 BRK +6311- 00 BRK +6312- 00 BRK +6313- 00 BRK +6314- 00 BRK +6315- 00 BRK +6316- 00 BRK +6317- 00 BRK +6318- 00 BRK +6319- 00 BRK +631A- 00 BRK +631B- 00 BRK +631C- 00 BRK +631D- 00 BRK +631E- 00 BRK +631F- 00 BRK +6320- 00 BRK +6321- 00 BRK +6322- 00 BRK +6323- 00 BRK +6324- 00 BRK +6325- 00 BRK +6326- 00 BRK +6327- 00 BRK +6328- 00 BRK +6329- 00 BRK +632A- 00 BRK +632B- 00 BRK +632C- 00 BRK +632D- 00 BRK +632E- 00 BRK +632F- 00 BRK +6330- 00 BRK +6331- 00 BRK +6332- 00 BRK +6333- 00 BRK +6334- 00 BRK +6335- 00 BRK +6336- 00 BRK +6337- 00 BRK +6338- 00 BRK +6339- 00 BRK +633A- 00 BRK +633B- 00 BRK +633C- 00 BRK +633D- 00 BRK +633E- 00 BRK +633F- 00 BRK +6340- 00 BRK +6341- 00 BRK +6342- 00 BRK +6343- 00 BRK +6344- 00 BRK +6345- 00 BRK +6346- 00 BRK +6347- 00 BRK +6348- 00 BRK +6349- 00 BRK +634A- 00 BRK +634B- 00 BRK +634C- 00 BRK +634D- 00 BRK +634E- 00 BRK +634F- 00 BRK +6350- 00 BRK +6351- 00 BRK +6352- 00 BRK +6353- 00 BRK +6354- 00 BRK +6355- 00 BRK +6356- 00 BRK +6357- 00 BRK +6358- 00 BRK +6359- 00 BRK +635A- 00 BRK +635B- 00 BRK +635C- 00 BRK +635D- 00 BRK +635E- 00 BRK +635F- 00 BRK +6360- 00 BRK +6361- 00 BRK +6362- 00 BRK +6363- 00 BRK +6364- 00 BRK +6365- 00 BRK +6366- 00 BRK +6367- 00 BRK +6368- 00 BRK +6369- 00 BRK +636A- 00 BRK +636B- 00 BRK +636C- 00 BRK +636D- 00 BRK +636E- 00 BRK +636F- 00 BRK +6370- 00 BRK +6371- 00 BRK +6372- 00 BRK +6373- 00 BRK +6374- 00 BRK +6375- 00 BRK +6376- 00 BRK +6377- 00 BRK +6378- 00 BRK +6379- 00 BRK +637A- 00 BRK +637B- 00 BRK +637C- 00 BRK +637D- 00 BRK +637E- 00 BRK +637F- 00 BRK +6380- 00 BRK +6381- 00 BRK +6382- 00 BRK +6383- 00 BRK +6384- 00 BRK +6385- 00 BRK +6386- 00 BRK +6387- 00 BRK +6388- 00 BRK +6389- 00 BRK +638A- 00 BRK +638B- 00 BRK +638C- 00 BRK +638D- 00 BRK +638E- 00 BRK +638F- 00 BRK +6390- 00 BRK +6391- 00 BRK +6392- 00 BRK +6393- 00 BRK +6394- 00 BRK +6395- 00 BRK +6396- 00 BRK +6397- 00 BRK +6398- 00 BRK +6399- 00 BRK +639A- 00 BRK +639B- 00 BRK +639C- 00 BRK +639D- 00 BRK +639E- 00 BRK +639F- 00 BRK +63A0- 00 BRK +63A1- 00 BRK +63A2- 00 BRK +63A3- 00 BRK +63A4- 00 BRK +63A5- 00 BRK +63A6- 00 BRK +63A7- 00 BRK +63A8- 00 BRK +63A9- 00 BRK +63AA- 00 BRK +63AB- 00 BRK +63AC- 00 BRK +63AD- 00 BRK +63AE- 00 BRK +63AF- 00 BRK +63B0- 00 BRK +63B1- 00 BRK +63B2- 00 BRK +63B3- 00 BRK +63B4- 00 BRK +63B5- 00 BRK +63B6- 00 BRK +63B7- 00 BRK +63B8- 00 BRK +63B9- 00 BRK +63BA- 00 BRK +63BB- 00 BRK +63BC- 00 BRK +63BD- 00 BRK +63BE- 00 BRK +63BF- 00 BRK +63C0- 00 BRK +63C1- 00 BRK +63C2- 00 BRK +63C3- 00 BRK +63C4- 00 BRK +63C5- 00 BRK +63C6- 00 BRK +63C7- 00 BRK +63C8- 00 BRK +63C9- 00 BRK +63CA- 00 BRK +63CB- 00 BRK +63CC- 00 BRK +63CD- 00 BRK +63CE- 00 BRK +63CF- 00 BRK +63D0- 00 BRK +63D1- 00 BRK +63D2- 00 BRK +63D3- 00 BRK +63D4- 00 BRK +63D5- 00 BRK +63D6- 00 BRK +63D7- 00 BRK +63D8- 00 BRK +63D9- 00 BRK +63DA- 00 BRK +63DB- 00 BRK +63DC- 00 BRK +63DD- 00 BRK +63DE- 00 BRK +63DF- 00 BRK +63E0- 00 BRK +63E1- 00 BRK +63E2- 00 BRK +63E3- 00 BRK +63E4- 00 BRK +63E5- 00 BRK +63E6- 00 BRK +63E7- 00 BRK +63E8- 00 BRK +63E9- 00 BRK +63EA- 00 BRK +63EB- 00 BRK +63EC- 00 BRK +63ED- 00 BRK +63EE- 00 BRK +63EF- 00 BRK +63F0- 00 BRK +63F1- 00 BRK +63F2- 00 BRK +63F3- 00 BRK +63F4- 00 BRK +63F5- 00 BRK +63F6- 00 BRK +63F7- 00 BRK +63F8- 00 BRK +63F9- 00 BRK +63FA- 00 BRK +63FB- 00 BRK +63FC- 00 BRK +63FD- 00 BRK +63FE- 00 BRK +63FF- 00 BRK diff --git a/PSC Source Disk 4 - Fastload - Copy Protection - Title Page (v13)/CALEN.TOO BIG.txt b/PSC Source Disk 4 - Fastload - Copy Protection - Title Page (v13)/CALEN.TOO BIG.txt new file mode 100644 index 0000000..1369fcd --- /dev/null +++ b/PSC Source Disk 4 - Fastload - Copy Protection - Title Page (v13)/CALEN.TOO BIG.txt @@ -0,0 +1,4415 @@ +4000- 4C 2C 40 JMP $402C +4003- 4C 2C 40 JMP $402C +4006- 4C E6 4F JMP $4FE6 +4009- 4C 0D 50 JMP $500D +400C- C3 ??? +400D- CF ??? +400E- D0 D9 BNE $3FE9 +4010- D2 C9 CMP ($C9) +4012- C7 ??? +4013- C8 INY +4014- D4 ??? +4015- A0 B1 LDY #$B1 +4017- B9 B8 B5 LDA $B5B8,Y +401A- A0 D2 LDY #$D2 +401C- CF ??? +401D- CC C1 CE CPY $CEC1 +4020- C4 A0 CPY $A0 +4022- C7 ??? +4023- D5 D3 CMP $D3,X +4025- D4 ??? +4026- C1 C6 CMP ($C6,X) +4028- D3 ??? +4029- D3 ??? +402A- CF ??? +402B- CE 2C 83 DEC $832C +402E- C0 2C CPY #$2C +4030- 83 ??? +4031- C0 20 CPY #$20 +4033- 7B ??? +4034- 50 20 BVC $4056 +4036- 00 BRK +4037- 7B ??? +4038- 20 96 40 JSR $4096 +403B- 20 00 E0 JSR $E000 +403E- 06 8C ASL $8C +4040- 00 BRK +4041- 46 00 LSR $00 +4043- A9 0D LDA #$0D +4045- 20 63 E0 JSR $E063 +4048- 90 03 BCC $404D +404A- 4C 00 08 JMP $0800 +404D- 20 5E 45 JSR $455E +4050- 90 05 BCC $4057 +4052- 20 81 E0 JSR $E081 +4055- B0 F6 BCS $404D +4057- 20 BE 45 JSR $45BE +405A- B0 F1 BCS $404D +405C- 20 98 41 JSR $4198 +405F- B0 F6 BCS $4057 +4061- 20 B2 42 JSR $42B2 +4064- B0 F6 BCS $405C +4066- 20 30 43 JSR $4330 +4069- B0 F6 BCS $4061 +406B- 20 53 46 JSR $4653 +406E- B0 F6 BCS $4066 +4070- 20 94 40 JSR $4094 +4073- 20 15 7B JSR $7B15 +4076- B0 F3 BCS $406B +4078- 20 A6 40 JSR $40A6 +407B- 20 F8 40 JSR $40F8 +407E- B0 F0 BCS $4070 +4080- 20 B9 40 JSR $40B9 +4083- 20 BE 46 JSR $46BE +4086- B0 F0 BCS $4078 +4088- 20 E6 48 JSR $48E6 +408B- B0 F3 BCS $4080 +408D- 20 F9 46 JSR $46F9 +4090- B0 F6 BCS $4088 +4092- 90 A1 BCC $4035 +4094- 90 0F BCC $40A5 +4096- 08 PHP +4097- 20 DE 40 JSR $40DE +409A- 20 00 E0 JSR $E000 +409D- 08 PHP +409E- 02 ??? +409F- 54 ??? +40A0- 4F ??? +40A1- 50 0D BVC $40B0 +40A3- 00 BRK +40A4- 28 PLP +40A5- 60 RTS +40A6- 08 PHP +40A7- 20 DE 40 JSR $40DE +40AA- 20 00 E0 JSR $E000 +40AD- 08 PHP +40AE- 02 ??? +40AF- 43 ??? +40B0- 45 4E EOR $4E +40B2- 54 ??? +40B3- 45 52 EOR $52 +40B5- 0D 00 28 ORA $2800 +40B8- 60 RTS +40B9- 20 DE 40 JSR $40DE +40BC- 20 00 E0 JSR $E000 +40BF- 08 PHP +40C0- 02 ??? +40C1- 42 ??? +40C2- 4F ??? +40C3- 54 ??? +40C4- 54 ??? +40C5- 4F ??? +40C6- 4D 0D 00 EOR $000D +40C9- 60 RTS +40CA- B0 11 BCS $40DD +40CC- 08 PHP +40CD- 20 DE 40 JSR $40DE +40D0- 20 00 E0 JSR $E000 +40D3- 08 PHP +40D4- 02 ??? +40D5- 50 52 BVC $4129 +40D7- 49 4E EOR #$4E +40D9- 54 ??? +40DA- 0D 00 28 ORA $2800 +40DD- 60 RTS +40DE- 20 06 E0 JSR $E006 +40E1- 20 09 E0 JSR $E009 +40E4- 20 00 E0 JSR $E000 +40E7- 06 88 ASL $88 +40E9- 00 BRK +40EA- 04 04 TSB $04 +40EC- 02 ??? +40ED- 09 38 ORA #$38 +40EF- 46 3A LSR $3A +40F1- 0D 06 92 ORA $9206 +40F4- 00 BRK +40F5- 01 00 ORA ($00,X) +40F7- 60 RTS +40F8- AD 00 D0 LDA $D000 +40FB- D0 51 BNE $414E +40FD- 20 BB 4A JSR $4ABB +4100- B0 4B BCS $414D +4102- EC 0D D0 CPX $D00D +4105- F0 02 BEQ $4109 +4107- B0 43 BCS $414C +4109- 20 18 7B JSR $7B18 +410C- 90 EF BCC $40FD +410E- 20 72 E0 JSR $E072 +4111- 20 45 E0 JSR $E045 +4114- 20 00 E0 JSR $E000 +4117- 05 06 ORA $06 +4119- 8C 00 42 STY $4200 +411C- 53 ??? +411D- 4F ??? +411E- 52 52 EOR ($52) +4120- 59 2C 20 EOR $202C,Y +4123- 4F ??? +4124- 55 54 EOR $54,X +4126- 20 4F 46 JSR $464F +4129- 20 4D 45 JSR $454D +412C- 4D 4F 52 EOR $524F +412F- 59 0D 0D EOR $0D0D,Y +4132- 55 4E EOR $4E,X +4134- 41 42 EOR ($42,X) +4136- 4C 45 20 JMP $2045 +4139- 54 ??? +413A- 4F ??? +413B- 20 53 54 JSR $5453 +413E- 4F ??? +413F- 52 45 EOR ($45) +4141- 2E 2E 2E ROL $2E2E +4144- 0D 00 20 ORA $2000 +4147- 60 RTS +4148- E0 4C CPX #$4C +414A- FD 40 18 SBC $1840,X +414D- 60 RTS +414E- B0 0B BCS $415B +4150- 20 BB 4A JSR $4ABB +4153- B0 F8 BCS $414D +4155- AC 0A D0 LDY $D00A +4158- 20 2A 44 JSR $442A +415B- 20 25 4E JSR $4E25 +415E- B0 F0 BCS $4150 +4160- E0 07 CPX #$07 +4162- F0 E8 BEQ $414C +4164- 20 1B 7B JSR $7B1B +4167- 4C 5B 41 JMP $415B +416A- 4C 45 46 JMP $4645 +416D- 54 ??? +416E- 20 43 4F JSR $4F43 +4171- 52 4E EOR ($4E) +4173- 45 52 EOR $52 +4175- 00 BRK +4176- 52 49 EOR ($49) +4178- 47 ??? +4179- 48 PHA +417A- 54 ??? +417B- 20 43 4F JSR $4F43 +417E- 52 4E EOR ($4E) +4180- 45 52 EOR $52 +4182- 00 BRK +4183- 42 ??? +4184- 4F ??? +4185- 54 ??? +4186- 48 PHA +4187- 20 43 4F JSR $4F43 +418A- 52 4E EOR ($4E) +418C- 45 52 EOR $52 +418E- 53 ??? +418F- 00 BRK +4190- 52 4F EOR ($4F) +4192- 57 ??? +4193- 20 4F 46 JSR $464F +4196- 20 00 AD JSR $AD00 +4199- 01 D0 ORA ($D0,X) +419B- 49 03 EOR #$03 +419D- F0 7B BEQ $421A +419F- 20 72 E0 JSR $E072 +41A2- 20 00 E0 JSR $E000 +41A5- 05 06 ORA $06 +41A7- 8C 00 1C STY $1C00 +41AA- 53 ??? +41AB- 45 4C EOR $4C +41AD- 45 43 EOR $43 +41AF- 54 ??? +41B0- 20 09 30 JSR $3009 +41B3- 46 20 LSR $20 +41B5- 50 4F BVC $4206 +41B7- 53 ??? +41B8- 49 54 EOR #$54 +41BA- 49 4F EOR #$4F +41BC- 4E 3A 0D LSR $0D3A +41BF- 0D 09 6A ORA $6A09 +41C2- 41 0D EOR ($0D,X) +41C4- 09 76 ORA #$76 +41C6- 41 0D EOR ($0D,X) +41C8- 09 83 ORA #$83 +41CA- 41 0D EOR ($0D,X) +41CC- 09 90 ORA #$90 +41CE- 41 53 EOR ($53,X) +41D0- 49 58 EOR #$58 +41D2- 0D 54 49 ORA $4954 +41D5- 4C 45 44 JMP $4445 +41D8- 0D 09 6A ORA $6A09 +41DB- 41 0D EOR ($0D,X) +41DD- 09 76 ORA #$76 +41DF- 41 0D EOR ($0D,X) +41E1- 09 83 ORA #$83 +41E3- 41 0D EOR ($0D,X) +41E5- 09 90 ORA #$90 +41E7- 41 54 EOR ($54,X) +41E9- 48 PHA +41EA- 52 45 EOR ($45) +41EC- 45 0D EOR $0D +41EE- 54 ??? +41EF- 49 4C EOR #$4C +41F1- 45 44 EOR $44 +41F3- 0D 11 60 ORA $6011 +41F6- 08 PHP +41F7- 88 DEY +41F8- 01 1E ORA ($1E,X) +41FA- 11 03 ORA ($03),Y +41FC- 1F ??? +41FD- 88 DEY +41FE- 01 1E ORA ($1E,X) +4200- 10 09 BPL $420B +4202- 88 DEY +4203- 16 01 ASL $01,X +4205- 10 09 BPL $4210 +4207- A5 16 LDA $16 +4209- 01 00 ORA ($00,X) +420B- AC 03 D0 LDY $D003 +420E- 20 28 E0 JSR $E028 +4211- 0A ASL +4212- 14 2B TRB $2B +4214- 0A ASL +4215- 1B ??? +4216- 42 ??? +4217- 8C 03 D0 STY $D003 +421A- 60 RTS +421B- 48 PHA +421C- 20 00 E0 JSR $E000 +421F- 0F ??? +4220- 09 89 ORA #$89 +4222- 16 15 ASL $15,X +4224- 00 BRK +4225- 68 PLA +4226- 4A LSR +4227- AA TAX +4228- A0 78 LDY #$78 +422A- A9 42 LDA #$42 +422C- E0 05 CPX #$05 +422E- 90 04 BCC $4234 +4230- A0 90 LDY #$90 +4232- A9 42 LDA #$42 +4234- 8C 4C 42 STY $424C +4237- 8D 4D 42 STA $424D +423A- BD 5A 42 LDA $425A,X +423D- 85 D3 STA $D3 +423F- BD 64 42 LDA $4264,X +4242- 85 D4 STA $D4 +4244- BD 6E 42 LDA $426E,X +4247- 85 D5 STA $D5 +4249- A6 D3 LDX $D3 +424B- 20 FF FF JSR $FFFF +424E- A5 D3 LDA $D3 +4250- 18 CLC +4251- 65 D5 ADC $D5 +4253- 85 D3 STA $D3 +4255- C6 D4 DEC $D4 +4257- D0 F0 BNE $4249 +4259- 60 RTS +425A- 09 1D ORA #$1D +425C- 09 09 ORA #$09 +425E- 0A ASL +425F- 09 1B ORA #$1B +4261- 09 0A ORA #$0A +4263- 0A ASL +4264- 01 01 ORA ($01,X) +4266- 02 ??? +4267- 06 0A ASL $0A +4269- 01 01 ORA ($01,X) +426B- 02 ??? +426C- 03 ??? +426D- 05 00 ORA $00 +426F- 00 BRK +4270- 14 04 TRB $04 +4272- 02 ??? +4273- 00 BRK +4274- 00 BRK +4275- 12 08 ORA ($08) +4277- 04 8E TSB $8E +4279- 84 42 STY $42 +427B- E8 INX +427C- 8E 8A 42 STX $428A +427F- 20 00 E0 JSR $E000 +4282- 11 7E ORA ($7E),Y +4284- 00 BRK +4285- 8F ??? +4286- 01 0A ORA ($0A,X) +4288- 11 3F ORA ($3F),Y +428A- 01 8F ORA ($8F,X) +428C- 01 0A ORA ($0A,X) +428E- 00 BRK +428F- 60 RTS +4290- 8E A1 42 STX $42A1 +4293- E8 INX +4294- 8E A6 42 STX $42A6 +4297- E8 INX +4298- E8 INX +4299- 8E AC 42 STX $42AC +429C- 20 00 E0 JSR $E000 +429F- 11 7E ORA ($7E),Y +42A1- 00 BRK +42A2- 8A TXA +42A3- 01 14 ORA ($14,X) +42A5- 10 01 BPL $42A8 +42A7- 8A TXA +42A8- 02 ??? +42A9- 14 11 TRB $11 +42AB- 3F ??? +42AC- 03 ??? +42AD- 8A TXA +42AE- 01 14 ORA ($14,X) +42B0- 00 BRK +42B1- 60 RTS +42B2- 20 72 E0 JSR $E072 +42B5- 20 00 E0 JSR $E000 +42B8- 06 3D ASL $3D +42BA- 00 BRK +42BB- 45 57 EOR $57 +42BD- 48 PHA +42BE- 41 54 EOR ($54,X) +42C0- 20 59 45 JSR $4559 +42C3- 41 52 EOR ($52,X) +42C5- 20 49 53 JSR $5349 +42C8- 20 54 48 JSR $4854 +42CB- 49 53 EOR #$53 +42CD- 0D 09 38 ORA $3809 +42D0- 46 20 LSR $20 +42D2- 46 4F LSR $4F +42D4- 52 20 EOR ($20) +42D6- 3F ??? +42D7- 0D 0D 3E ORA $3E0D +42DA- 0D 0D 28 ORA $280D +42DD- 31 37 AND ($37),Y +42DF- 35 33 AND $33,X +42E1- 2D 39 39 AND $3939 +42E4- 39 39 29 AND $2939,Y +42E7- 0D 00 20 ORA $2000 +42EA- 6F ??? +42EB- E0 04 CPX #$04 +42ED- D0 04 BNE $42F3 +42EF- 46 00 LSR $00 +42F1- 5D B0 3B EOR $3BB0,X +42F4- 20 E1 43 JSR $43E1 +42F7- A0 20 LDY #$20 +42F9- A2 04 LDX #$04 +42FB- A9 D0 LDA #$D0 +42FD- 86 D7 STX $D7 +42FF- 85 D8 STA $D8 +4301- 90 06 BCC $4309 +4303- 20 66 E0 JSR $E066 +4306- 4C E9 42 JMP $42E9 +4309- 8E 20 43 STX $4320 +430C- 8D 21 43 STA $4321 +430F- 8C 2A 43 STY $432A +4312- 20 03 7B JSR $7B03 +4315- A9 80 LDA #$80 +4317- 8D 00 96 STA $9600 +431A- A0 FF LDY #$FF +431C- C8 INY +431D- B1 D7 LDA ($D7),Y +431F- 99 FF FF STA $FFFF,Y +4322- 99 01 96 STA $9601,Y +4325- D0 F5 BNE $431C +4327- B0 05 BCS $432E +4329- A0 00 LDY #$00 +432B- 20 06 7B JSR $7B06 +432E- 18 CLC +432F- 60 RTS +4330- 20 72 E0 JSR $E072 +4333- 20 00 E0 JSR $E000 +4336- 05 06 ORA $06 +4338- 8C 00 22 STY $2200 +433B- 09 12 ORA #$12 +433D- 45 41 EOR $41 +433F- 20 4D 4F JSR $4F4D +4342- 4E 54 48 LSR $4854 +4345- 3A DEC +4346- 0D 0D 00 ORA $000D +4349- 20 75 E0 JSR $E075 +434C- 05 0C ORA $0C +434E- 8B ??? +434F- 43 ??? +4350- AC 09 D0 LDY $D009 +4353- 20 28 E0 JSR $E028 +4356- 0D 0E 31 ORA $310E +4359- 0C 58 FF TSB $FF58 F8ROM:IORTS +435C- 8C 09 D0 STY $D009 +435F- B0 CE BCS $432F +4361- BE 73 43 LDX $4373,Y +4364- B9 7F 43 LDA $437F,Y +4367- 86 D7 STX $D7 +4369- 85 D8 STA $D8 +436B- A2 40 LDX #$40 +436D- A9 7A LDA #$7A +436F- A0 1F LDY #$1F +4371- 90 96 BCC $4309 +4373- 8B ??? +4374- 93 ??? +4375- 9C A2 A8 STZ $A8A2 +4378- AC B1 B6 LDY $B6B1 +437B- BD C7 CF LDA $CFC7,X +437E- D8 CLD +437F- 43 ??? +4380- 43 ??? +4381- 43 ??? +4382- 43 ??? +4383- 43 ??? +4384- 43 ??? +4385- 43 ??? +4386- 43 ??? +4387- 43 ??? +4388- 43 ??? +4389- 43 ??? +438A- 43 ??? +438B- 4A LSR +438C- 41 4E EOR ($4E,X) +438E- 55 41 EOR $41,X +4390- 52 59 EOR ($59) +4392- 00 BRK +4393- 46 45 LSR $45 +4395- 42 ??? +4396- 52 55 EOR ($55) +4398- 41 52 EOR ($52,X) +439A- 59 00 4D EOR $4D00,Y +439D- 41 52 EOR ($52,X) +439F- 43 ??? +43A0- 48 PHA +43A1- 00 BRK +43A2- 41 50 EOR ($50,X) +43A4- 52 49 EOR ($49) +43A6- 4C 00 4D JMP $4D00 +43A9- 41 59 EOR ($59,X) +43AB- 00 BRK +43AC- 4A LSR +43AD- 55 4E EOR $4E,X +43AF- 45 00 EOR $00 +43B1- 4A LSR +43B2- 55 4C EOR $4C,X +43B4- 59 00 41 EOR $4100,Y +43B7- 55 47 EOR $47,X +43B9- 55 53 EOR $53,X +43BB- 54 ??? +43BC- 00 BRK +43BD- 53 ??? +43BE- 45 50 EOR $50 +43C0- 54 ??? +43C1- 45 4D EOR $4D +43C3- 42 ??? +43C4- 45 52 EOR $52 +43C6- 00 BRK +43C7- 4F ??? +43C8- 43 ??? +43C9- 54 ??? +43CA- 4F ??? +43CB- 42 ??? +43CC- 45 52 EOR $52 +43CE- 00 BRK +43CF- 4E 4F 56 LSR $564F +43D2- 45 4D EOR $4D +43D4- 42 ??? +43D5- 45 52 EOR $52 +43D7- 00 BRK +43D8- 44 ??? +43D9- 45 43 EOR $43 +43DB- 45 4D EOR $4D +43DD- 42 ??? +43DE- 45 52 EOR $52 +43E0- 00 BRK +43E1- A0 00 LDY #$00 +43E3- 84 72 STY $72 +43E5- 84 73 STY $73 +43E7- B9 04 D0 LDA $D004,Y +43EA- C9 30 CMP #$30 +43EC- 90 3A BCC $4428 +43EE- C9 3A CMP #$3A +43F0- B0 36 BCS $4428 +43F2- 29 0F AND #$0F +43F4- 48 PHA +43F5- A6 73 LDX $73 +43F7- A5 72 LDA $72 +43F9- 0A ASL +43FA- 26 73 ROL $73 +43FC- 0A ASL +43FD- 26 73 ROL $73 +43FF- 65 72 ADC $72 +4401- 85 72 STA $72 +4403- 8A TXA +4404- 65 73 ADC $73 +4406- 85 73 STA $73 +4408- 06 72 ASL $72 +440A- 26 73 ROL $73 +440C- 68 PLA +440D- 65 72 ADC $72 +440F- 85 72 STA $72 +4411- 90 02 BCC $4415 +4413- E6 73 INC $73 +4415- C8 INY +4416- C0 04 CPY #$04 +4418- 90 CD BCC $43E7 +441A- A4 72 LDY $72 +441C- A5 73 LDA $73 +441E- C9 06 CMP #$06 +4420- D0 02 BNE $4424 +4422- C0 D9 CPY #$D9 +4424- 90 02 BCC $4428 +4426- 18 CLC +4427- 60 RTS +4428- 38 SEC +4429- 60 RTS +442A- 88 DEY +442B- 84 D9 STY $D9 +442D- 20 E1 43 JSR $43E1 +4430- A4 72 LDY $72 +4432- A5 73 LDA $73 +4434- 84 70 STY $70 +4436- 85 71 STA $71 +4438- 20 AD 44 JSR $44AD +443B- A9 1C LDA #$1C +443D- 69 00 ADC #$00 +443F- 8D 8D 44 STA $448D +4442- A6 72 LDX $72 +4444- D0 02 BNE $4448 +4446- C6 73 DEC $73 +4448- C6 72 DEC $72 +444A- 20 C7 44 JSR $44C7 +444D- 20 A2 44 JSR $44A2 +4450- 20 CA 44 JSR $44CA +4453- 20 98 44 JSR $4498 +4456- 20 D0 44 JSR $44D0 +4459- 20 A2 44 JSR $44A2 +445C- A0 00 LDY #$00 +445E- AE 09 D0 LDX $D009 +4461- BD 8C 44 LDA $448C,X +4464- 8D 0D D0 STA $D00D +4467- CA DEX +4468- 30 08 BMI $4472 +446A- BD 8C 44 LDA $448C,X +446D- 20 A2 44 JSR $44A2 +4470- 90 F5 BCC $4467 +4472- A5 D9 LDA $D9 +4474- 20 A2 44 JSR $44A2 +4477- A4 70 LDY $70 +4479- A5 71 LDA $71 +447B- 84 75 STY $75 +447D- 85 76 STA $76 +447F- A9 07 LDA #$07 +4481- A0 00 LDY #$00 +4483- 20 DC 44 JSR $44DC +4486- A5 79 LDA $79 +4488- 8D 0C D0 STA $D00C +448B- 60 RTS +448C- 1F ??? +448D- 1C 1F 1E TRB $1E1F +4490- 1F ??? +4491- 1E 1F 1F ASL $1F1F,X +4494- 1E 1F 1E ASL $1E1F,X +4497- 1F ??? +4498- 49 FF EOR #$FF +449A- 48 PHA +449B- 98 TYA +449C- 49 FF EOR #$FF +449E- A8 TAY +449F- 68 PLA +44A0- 38 SEC +44A1- 24 18 BIT $18 +44A3- 65 70 ADC $70 +44A5- 85 70 STA $70 +44A7- 98 TYA +44A8- 65 71 ADC $71 +44AA- 85 71 STA $71 +44AC- 60 RTS +44AD- 06 74 ASL $74 +44AF- 20 C7 44 JSR $44C7 +44B2- B0 02 BCS $44B6 +44B4- E6 74 INC $74 +44B6- 20 CA 44 JSR $44CA +44B9- B0 02 BCS $44BD +44BB- C6 74 DEC $74 +44BD- 20 D0 44 JSR $44D0 +44C0- B0 02 BCS $44C4 +44C2- E6 74 INC $74 +44C4- 66 74 ROR $74 +44C6- 60 RTS +44C7- A9 04 LDA #$04 +44C9- 2C A9 64 BIT $64A9 +44CC- A0 00 LDY #$00 +44CE- F0 04 BEQ $44D4 +44D0- A9 90 LDA #$90 +44D2- A0 01 LDY #$01 +44D4- A6 72 LDX $72 +44D6- 86 75 STX $75 +44D8- A6 73 LDX $73 +44DA- 86 76 STX $76 +44DC- 85 77 STA $77 +44DE- 84 78 STY $78 +44E0- A9 00 LDA #$00 +44E2- 85 79 STA $79 +44E4- 85 7A STA $7A +44E6- A0 10 LDY #$10 +44E8- 06 75 ASL $75 +44EA- 26 76 ROL $76 +44EC- 26 79 ROL $79 +44EE- 26 7A ROL $7A +44F0- 38 SEC +44F1- A5 79 LDA $79 +44F3- E5 77 SBC $77 +44F5- AA TAX +44F6- A5 7A LDA $7A +44F8- E5 78 SBC $78 +44FA- 90 06 BCC $4502 +44FC- 86 79 STX $79 +44FE- 85 7A STA $7A +4500- E6 75 INC $75 +4502- 88 DEY +4503- D0 E3 BNE $44E8 +4505- 38 SEC +4506- A5 79 LDA $79 +4508- 05 7A ORA $7A +450A- D0 01 BNE $450D +450C- 18 CLC +450D- A5 75 LDA $75 +450F- A4 76 LDY $76 +4511- 60 RTS +4512- 43 ??? +4513- 48 PHA +4514- 4F ??? +4515- 4F ??? +4516- 53 ??? +4517- 45 20 EOR $20 +4519- 00 BRK +451A- 46 52 LSR $52 +451C- 4F ??? +451D- 4D 20 00 EOR $0020 +4520- 50 52 BVC $4574 +4522- 49 4E EOR #$4E +4524- 54 ??? +4525- 20 53 48 JSR $4853 +4528- 4F ??? +4529- 50 00 BVC $452B +452B- 43 ??? +452C- 4F ??? +452D- 4D 50 41 EOR $4150 +4530- 4E 49 4F LSR $4F49 +4533- 4E 00 46 LSR $4600 +4536- 52 4F EOR ($4F) +4538- 4D 20 4F EOR $4F20 +453B- 54 ??? +453C- 48 PHA +453D- 45 52 EOR $52 +453F- 20 44 49 JSR $4944 +4542- 53 ??? +4543- 4B ??? +4544- 00 BRK +4545- 47 ??? +4546- 4F ??? +4547- 20 54 4F JSR $4F54 +454A- 20 4D 41 JSR $414D +454D- 49 4E EOR #$4E +454F- 20 4D 45 JSR $454D +4552- 4E 55 00 LSR $0055 +4555- 3C 52 45 BIT $4552,X +4558- 54 ??? +4559- 55 52 EOR $52,X +455B- 4E 3E 00 LSR $003E +455E- 20 72 E0 JSR $E072 +4561- 20 00 E0 JSR $E000 +4564- 06 8C ASL $8C +4566- 00 BRK +4567- 40 RTI +4568- 05 09 ORA $09 +456A- 12 45 ORA ($45) +456C- 09 38 ORA #$38 +456E- 46 3A LSR $3A +4570- 0D 0D 0D ORA $0D0D +4573- 4D 4F 4E EOR $4E4F +4576- 54 ??? +4577- 48 PHA +4578- 4C 59 0D JMP $0D59 +457B- 57 ??? +457C- 45 45 EOR $45 +457E- 4B ??? +457F- 4C 59 0D JMP $0D59 +4582- 09 35 ORA #$35 +4584- 45 0D EOR $0D +4586- 00 BRK +4587- AC 00 D0 LDY $D000 +458A- 20 28 E0 JSR $E028 +458D- 0A ASL +458E- 14 57 TRB $57 +4590- 03 ??? +4591- 58 CLI +4592- FF ??? +4593- B0 19 BCS $45AE +4595- 98 TYA +4596- 48 PHA +4597- CD 00 D0 CMP $D000 +459A- F0 03 BEQ $459F +459C- 20 00 7B JSR $7B00 +459F- 18 CLC +45A0- 68 PLA +45A1- 8D 00 D0 STA $D000 +45A4- A8 TAY +45A5- 20 4B E0 JSR $E04B +45A8- 58 CLI +45A9- FF ??? +45AA- 58 CLI +45AB- FF ??? +45AC- AF ??? +45AD- 45 60 EOR $60 +45AF- 20 9E 48 JSR $489E +45B2- 38 SEC +45B3- 20 2E E0 JSR $E02E +45B6- 20 96 40 JSR $4096 +45B9- 90 F3 BCC $45AE +45BB- 4C 5E 45 JMP $455E +45BE- 20 72 E0 JSR $E072 +45C1- 20 00 E0 JSR $E000 +45C4- 06 8C ASL $8C +45C6- 00 BRK +45C7- 32 05 AND ($05) +45C9- 09 12 ORA #$12 +45CB- 45 41 EOR $41 +45CD- 20 09 30 JSR $3009 +45D0- 46 3A LSR $3A +45D2- 0D 0D 0D ORA $0D0D +45D5- 09 1A ORA #$1A +45D7- 45 09 EOR $09 +45D9- 20 45 09 JSR $0945 +45DC- 3F ??? +45DD- 45 0D EOR $0D +45DF- 09 1A ORA #$1A +45E1- 45 09 EOR $09 +45E3- 2B ??? +45E4- 45 09 EOR $09 +45E6- 3F ??? +45E7- 45 0D EOR $0D +45E9- 09 35 ORA #$35 +45EB- 45 0D EOR $0D +45ED- 4E 4F 20 LSR $204F +45F0- 09 30 ORA #$30 +45F2- 46 0D LSR $0D +45F4- 00 BRK +45F5- AC 01 D0 LDY $D001 +45F8- 20 28 E0 JSR $E028 +45FB- 06 1C ASL $1C +45FD- 49 04 EOR #$04 +45FF- 58 CLI +4600- FF ??? +4601- 8C 01 D0 STY $D001 +4604- B0 10 BCS $4616 +4606- A2 01 LDX #$01 +4608- 20 CE 48 JSR $48CE +460B- 20 4B E0 JSR $E04B +460E- 17 ??? +460F- 46 27 LSR $27 +4611- 46 2B LSR $2B +4613- 46 58 LSR $58 +4615- FF ??? +4616- 60 RTS +4617- AD 02 D0 LDA $D002 +461A- A2 00 LDX #$00 +461C- A0 78 LDY #$78 +461E- 20 7E E0 JSR $E07E +4621- B0 2D BCS $4650 +4623- 8D 02 D0 STA $D002 +4626- 60 RTS +4627- A9 02 LDA #$02 +4629- 18 CLC +462A- 24 38 BIT $38 +462C- 08 PHP +462D- 20 2B E0 JSR $E02B +4630- 47 ??? +4631- 52 41 EOR ($41) +4633- 50 48 BVC $467D +4635- 49 43 EOR #$43 +4637- 00 BRK +4638- 43 ??? +4639- 41 4C EOR ($4C,X) +463B- 45 4E EOR $4E +463D- 44 ??? +463E- 41 52 EOR ($52,X) +4640- 00 BRK +4641- 00 BRK +4642- 04 00 TSB $00 +4644- 78 SEI +4645- 40 RTI +4646- 02 ??? +4647- 28 PLP +4648- 20 2E E0 JSR $E02E +464B- 20 96 40 JSR $4096 +464E- 90 D6 BCC $4626 +4650- 4C BE 45 JMP $45BE +4653- AC 0E D0 LDY $D00E +4656- 18 CLC +4657- 20 03 08 JSR $0803 +465A- 8C 0E D0 STY $D00E +465D- B0 0A BCS $4669 +465F- A2 00 LDX #$00 +4661- 20 CE 48 JSR $48CE +4664- 20 6A 46 JSR $466A +4667- B0 EA BCS $4653 +4669- 60 RTS +466A- 20 4B E0 JSR $E04B +466D- 75 46 ADC $46,X +466F- 7F ??? +4670- 46 89 LSR $89 +4672- 46 58 LSR $58 +4674- FF ??? +4675- AC 0F D0 LDY $D00F +4678- 20 06 08 JSR $0806 +467B- 8C 0F D0 STY $D00F +467E- 60 RTS +467F- AC 10 D0 LDY $D010 +4682- 20 09 08 JSR $0809 +4685- 8C 10 D0 STY $D010 +4688- 60 RTS +4689- 20 2B E0 JSR $E02B +468C- 46 4F LSR $4F +468E- 4E 54 00 LSR $0054 +4691- 43 ??? +4692- 41 4C EOR ($4C,X) +4694- 45 4E EOR $4E +4696- 44 ??? +4697- 41 52 EOR ($52,X) +4699- 20 46 4F JSR $4F46 +469C- 4E 54 00 LSR $0054 +469F- 46 4F LSR $4F +46A1- 4E 54 2E LSR $2E54 +46A4- 00 BRK +46A5- 00 BRK +46A6- F4 ??? +46A7- 5F ??? +46A8- 00 BRK +46A9- 00 BRK +46AA- 38 SEC +46AB- 20 2E E0 JSR $E02E +46AE- A0 3A LDY #$3A +46B0- B9 00 60 LDA $6000,Y +46B3- 29 7F AND #$7F +46B5- 99 00 60 STA $6000,Y +46B8- 88 DEY +46B9- 10 F5 BPL $46B0 +46BB- 4C 96 40 JMP $4096 +46BE- 20 72 E0 JSR $E072 +46C1- 20 00 E0 JSR $E000 +46C4- 05 06 ORA $06 +46C6- 8C 00 38 STY $3800 +46C9- 54 ??? +46CA- 59 50 45 EOR $4550,Y +46CD- 20 4F 4E JSR $4E4F +46D0- 45 2D EOR $2D +46D2- 4C 49 4E JMP $4E49 +46D5- 45 52 EOR $52 +46D7- 20 46 4F JSR $4F46 +46DA- 52 0D EOR ($0D) +46DC- 42 ??? +46DD- 4F ??? +46DE- 54 ??? +46DF- 54 ??? +46E0- 4F ??? +46E1- 4D 20 4F EOR $4F20 +46E4- 46 20 LSR $20 +46E6- 09 38 ORA #$38 +46E8- 46 0D LSR $0D +46EA- 00 BRK +46EB- A2 03 LDX #$03 +46ED- A0 4E LDY #$4E +46EF- A9 13 LDA #$13 +46F1- 20 21 7B JSR $7B21 +46F4- 4C 1E 7B JMP $7B1E +46F7- 18 CLC +46F8- B0 38 BCS $4732 +46FA- 20 CA 40 JSR $40CA +46FD- 20 72 E0 JSR $E072 +4700- 20 00 E0 JSR $E000 +4703- 05 06 ORA $06 +4705- 8C 00 20 STY $2000 +4708- 4D 41 4B EOR $4B41 +470B- 45 20 EOR $20 +470D- 53 ??? +470E- 55 52 EOR $52,X +4710- 45 20 EOR $20 +4712- 50 52 BVC $4766 +4714- 49 4E EOR #$4E +4716- 54 ??? +4717- 45 52 EOR $52 +4719- 20 49 53 JSR $5349 +471C- 20 52 45 JSR $4552 +471F- 41 44 EOR ($44,X) +4721- 59 0D 41 EOR $410D,Y +4724- 4E 44 20 LSR $2044 +4727- 43 ??? +4728- 48 PHA +4729- 4F ??? +472A- 4F ??? +472B- 53 ??? +472C- 45 20 EOR $20 +472E- 4F ??? +472F- 50 54 BVC $4785 +4731- 49 4F EOR #$4F +4733- 4E 28 53 LSR $5328 +4736- 29 3A AND #$3A +4738- 0D 0D 0D ORA $0D0D +473B- 0D 53 45 ORA $4553 +473E- 54 ??? +473F- 20 4E 55 JSR $554E +4742- 4D 42 45 EOR $4542 +4745- 52 20 EOR ($20) +4747- 4F ??? +4748- 46 20 LSR $20 +474A- 43 ??? +474B- 4F ??? +474C- 50 49 BVC $4797 +474E- 45 53 EOR $53 +4750- 0D 54 45 ORA $4554 +4753- 53 ??? +4754- 54 ??? +4755- 20 50 41 JSR $4150 +4758- 50 45 BVC $479F +475A- 52 20 EOR ($20) +475C- 50 4F BVC $47AD +475E- 53 ??? +475F- 49 54 EOR #$54 +4761- 49 4F EOR #$4F +4763- 4E 0D 2A LSR $2A0D +4766- 2A ROL +4767- 2A ROL +4768- 2A ROL +4769- 20 20 20 JSR $2020 +476C- 50 52 BVC $47C0 +476E- 49 4E EOR #$4E +4770- 54 ??? +4771- 20 20 20 JSR $2020 +4774- 2A ROL +4775- 2A ROL +4776- 2A ROL +4777- 2A ROL +4778- 0D 53 41 ORA $4153 +477B- 56 45 LSR $45,X +477D- 20 54 48 JSR $4854 +4780- 49 53 EOR #$53 +4782- 20 09 38 JSR $3809 +4785- 46 0D LSR $0D +4787- 53 ??? +4788- 54 ??? +4789- 41 52 EOR ($52,X) +478B- 54 ??? +478C- 20 46 52 JSR $5246 +478F- 4F ??? +4790- 4D 20 53 EOR $5320 +4793- 43 ??? +4794- 52 41 EOR ($41) +4796- 54 ??? +4797- 43 ??? +4798- 48 PHA +4799- 0D 47 4F ORA $4F47 +479C- 4F ??? +479D- 44 ??? +479E- 42 ??? +479F- 59 45 3A EOR $3A45,Y +47A2- 20 09 45 JSR $4509 +47A5- 45 0D EOR $0D +47A7- 00 BRK +47A8- AC 11 D0 LDY $D011 +47AB- 20 28 E0 JSR $E028 +47AE- 05 1E ORA $1E +47B0- 47 ??? +47B1- 06 58 ASL $58 +47B3- FF ??? +47B4- 8C 11 D0 STY $D011 +47B7- B0 0F BCS $47C8 +47B9- 20 4B E0 JSR $E04B +47BC- C9 47 CMP #$47 +47BE- 19 48 25 ORA $2548,Y +47C1- 48 PHA +47C2- 37 ??? +47C3- 48 PHA +47C4- 77 ??? +47C5- 48 PHA +47C6- 4A LSR +47C7- 48 PHA +47C8- 60 RTS +47C9- 20 00 E0 JSR $E000 +47CC- 06 2C ASL $2C +47CE- 00 BRK +47CF- 88 DEY +47D0- 48 PHA +47D1- 4F ??? +47D2- 57 ??? +47D3- 20 4D 41 JSR $414D +47D6- 4E 59 20 LSR $2059 +47D9- 43 ??? +47DA- 4F ??? +47DB- 50 49 BVC $4826 +47DD- 45 53 EOR $53 +47DF- 20 44 4F JSR $4F44 +47E2- 20 59 4F JSR $4F59 +47E5- 55 0D EOR $0D,X +47E7- 57 ??? +47E8- 49 53 EOR #$53 +47EA- 48 PHA +47EB- 20 54 4F JSR $4F54 +47EE- 20 50 52 JSR $5250 +47F1- 49 4E EOR #$4E +47F3- 54 ??? +47F4- 3F ??? +47F5- 0D 00 A9 ORA $A900 +47F8- 63 ??? +47F9- 85 D3 STA $D3 +47FB- A2 A5 LDX #$A5 +47FD- A0 90 LDY #$90 +47FF- AD 12 D0 LDA $D012 +4802- 20 87 E0 JSR $E087 +4805- B0 06 BCS $480D +4807- 8D 12 D0 STA $D012 +480A- EE 11 D0 INC $D011 +480D- 20 00 E0 JSR $E000 +4810- 0F ??? +4811- 01 88 ORA ($88,X) +4813- 26 10 ROL $10 +4815- 00 BRK +4816- 4C A8 47 JMP $47A8 +4819- 20 15 E0 JSR $E015 +481C- 20 84 E0 JSR $E084 +481F- 20 12 E0 JSR $E012 +4822- 4C A8 47 JMP $47A8 +4825- 20 15 E0 JSR $E015 +4828- AD 12 D0 LDA $D012 +482B- 8D 15 18 STA $1815 +482E- 20 00 0F JSR $0F00 +4831- 20 12 E0 JSR $E012 +4834- 4C F7 46 JMP $46F7 +4837- 20 9E 48 JSR $489E +483A- A9 00 LDA #$00 +483C- 8D 11 D0 STA $D011 +483F- 20 31 E0 JSR $E031 +4842- A9 03 LDA #$03 +4844- 8D 11 D0 STA $D011 +4847- 4C F7 46 JMP $46F7 +484A- 20 00 E0 JSR $E000 +484D- 05 06 ORA $06 +484F- 8C 00 A7 STY $A700 +4852- 09 55 ORA #$55 +4854- 45 20 EOR $20 +4856- 54 ??? +4857- 4F ??? +4858- 20 09 45 JSR $4509 +485B- 45 0D EOR $0D +485D- 4F ??? +485E- 52 0D EOR ($0D) +4860- 00 BRK +4861- 20 25 E0 JSR $E025 +4864- C9 0D CMP #$0D +4866- F0 0C BEQ $4874 +4868- 20 00 E0 JSR $E000 +486B- 0F ??? +486C- 01 A7 ORA ($A7,X) +486E- 26 10 ROL $10 +4870- 00 BRK +4871- 4C A8 47 JMP $47A8 +4874- 4C 00 08 JMP $0800 +4877- 20 00 E0 JSR $E000 +487A- 05 06 ORA $06 +487C- 8C 00 A7 STY $A700 +487F- 09 55 ORA #$55 +4881- 45 20 EOR $20 +4883- 54 ??? +4884- 4F ??? +4885- 20 53 54 JSR $5453 +4888- 41 52 EOR ($52,X) +488A- 54 ??? +488B- 20 4F 56 JSR $564F +488E- 45 52 EOR $52 +4890- 0D 4F 52 ORA $524F +4893- 0D 00 20 ORA $2000 +4896- 25 E0 AND $E0 +4898- C9 0D CMP #$0D +489A- D0 CC BNE $4868 +489C- 18 CLC +489D- 60 RTS +489E- AC 13 D0 LDY $D013 +48A1- AD 14 D0 LDA $D014 +48A4- 38 SEC +48A5- E9 D0 SBC #$D0 +48A7- 8C CB 48 STY $48CB +48AA- 8D CC 48 STA $48CC +48AD- 20 2B E0 JSR $E02B +48B0- 43 ??? +48B1- 41 4C EOR ($4C,X) +48B3- 45 4E EOR $4E +48B5- 44 ??? +48B6- 41 52 EOR ($52,X) +48B8- 00 BRK +48B9- 43 ??? +48BA- 41 4C EOR ($4C,X) +48BC- 45 4E EOR $4E +48BE- 44 ??? +48BF- 41 52 EOR ($52,X) +48C1- 00 BRK +48C2- 43 ??? +48C3- 41 4C EOR ($4C,X) +48C5- 45 2E EOR $2E +48C7- 00 BRK +48C8- 00 BRK +48C9- 00 BRK +48CA- D0 00 BNE $48CC +48CC- 00 BRK +48CD- 60 RTS +48CE- 08 PHP +48CF- AD 59 D0 LDA $D059 +48D2- C9 FF CMP #$FF +48D4- D0 0E BNE $48E4 +48D6- A9 08 LDA #$08 +48D8- C0 03 CPY #$03 +48DA- F0 05 BEQ $48E1 +48DC- 5D 5A D0 EOR $D05A,X +48DF- D0 03 BNE $48E4 +48E1- 9D 5A D0 STA $D05A,X +48E4- 28 PLP +48E5- 60 RTS +48E6- 20 CA 40 JSR $40CA +48E9- AC F8 95 LDY $95F8 +48EC- F0 DF BEQ $48CD +48EE- AC 59 D0 LDY $D059 +48F1- C8 INY +48F2- D0 D9 BNE $48CD +48F4- 20 72 E0 JSR $E072 +48F7- 20 00 E0 JSR $E000 +48FA- 05 06 ORA $06 +48FC- 8C 00 20 STY $2000 +48FF- 09 12 ORA #$12 +4901- 45 43 EOR $43 +4903- 4F ??? +4904- 4C 4F 52 JMP $524F +4907- 53 ??? +4908- 3A DEC +4909- 0D 03 06 ORA $0603 +490C- 45 00 EOR $00 +490E- 38 SEC +490F- 09 8C ORA #$8C +4911- 46 0D LSR $0D +4913- 09 30 ORA #$30 +4915- 46 0D LSR $0D +4917- 4C 49 4E JMP $4E49 +491A- 45 53 EOR $53 +491C- 0D 4E 4F ORA $4F4E +491F- 54 ??? +4920- 45 53 EOR $53 +4922- 0D 00 A9 ORA $A900 +4925- 03 ??? +4926- 48 PHA +4927- 85 D3 STA $D3 +4929- 20 00 4A JSR $4A00 +492C- 68 PLA +492D- 38 SEC +492E- E9 01 SBC #$01 +4930- 10 F4 BPL $4926 +4932- 20 77 4A JSR $4A77 +4935- 20 00 E0 JSR $E000 +4938- 06 2C ASL $2C +493A- 00 BRK +493B- 80 55 BRA $4992 +493D- 53 ??? +493E- 45 14 EOR $14 +4940- 44 ??? +4941- 20 54 4F JSR $4F54 +4944- 20 53 45 JSR $4553 +4947- 4C 45 43 JMP $4345 +494A- 54 ??? +494B- 20 49 54 JSR $5449 +494E- 45 4D EOR $4D +4950- 0D 0D 50 ORA $500D +4953- 52 45 EOR ($45) +4955- 53 ??? +4956- 53 ??? +4957- 20 3C 53 JSR $533C +495A- 50 41 BVC $499D +495C- 43 ??? +495D- 45 3E EOR $3E +495F- 20 54 4F JSR $4F54 +4962- 20 43 48 JSR $4843 +4965- 41 4E EOR ($4E,X) +4967- 47 ??? +4968- 45 0D EOR $0D +496A- 43 ??? +496B- 4F ??? +496C- 4C 4F 52 JMP $524F +496F- 53 ??? +4970- 20 4F 46 JSR $464F +4973- 20 53 45 JSR $4553 +4976- 4C 45 43 JMP $4345 +4979- 54 ??? +497A- 45 44 EOR $44 +497C- 20 49 54 JSR $5449 +497F- 45 4D EOR $4D +4981- 0D 0D 50 ORA $500D +4984- 52 45 EOR ($45) +4986- 53 ??? +4987- 53 ??? +4988- 20 09 55 JSR $5509 +498B- 45 20 EOR $20 +498D- 57 ??? +498E- 48 PHA +498F- 45 4E EOR $4E +4991- 20 44 4F JSR $4F44 +4994- 4E 45 0D LSR $0D45 +4997- 00 BRK +4998- A2 00 LDX #$00 +499A- 86 D3 STX $D3 +499C- 20 E9 49 JSR $49E9 +499F- 20 25 E0 JSR $E025 +49A2- 48 PHA +49A3- 20 E9 49 JSR $49E9 +49A6- 68 PLA +49A7- A6 D3 LDX $D3 +49A9- BC 5A D0 LDY $D05A,X +49AC- 20 51 E0 JSR $E051 +49AF- 0D FE 49 ORA $49FE +49B2- 1B ??? +49B3- FC ??? +49B4- 49 08 EOR #$08 +49B6- C8 INY +49B7- 49 0B EOR #$0B +49B9- C8 INY +49BA- 49 15 EOR #$15 +49BC- CD 49 0A CMP $0A49 +49BF- CD 49 20 CMP $2049 +49C2- D4 ??? +49C3- 49 00 EOR #$00 +49C5- 4C 9C 49 JMP $499C +49C8- CA DEX +49C9- 10 CF BPL $499A +49CB- A2 02 LDX #$02 +49CD- E8 INX +49CE- E0 04 CPX #$04 +49D0- 90 C8 BCC $499A +49D2- F0 C4 BEQ $4998 +49D4- C0 08 CPY #$08 +49D6- F0 C4 BEQ $499C +49D8- C8 INY +49D9- 98 TYA +49DA- C9 08 CMP #$08 +49DC- 90 02 BCC $49E0 +49DE- A9 00 LDA #$00 +49E0- 9D 5A D0 STA $D05A,X +49E3- 20 00 4A JSR $4A00 +49E6- 4C 9C 49 JMP $499C +49E9- A5 D3 LDA $D3 +49EB- 0A ASL +49EC- 0A ASL +49ED- 0A ASL +49EE- 69 37 ADC #$37 +49F0- 8D F8 49 STA $49F8 +49F3- 20 00 E0 JSR $E000 +49F6- 17 ??? +49F7- 09 00 ORA #$00 +49F9- 0E 09 00 ASL $0009 +49FC- 38 SEC +49FD- 60 RTS +49FE- 18 CLC +49FF- 60 RTS +4A00- A5 D3 LDA $D3 +4A02- A8 TAY +4A03- 0A ASL +4A04- 0A ASL +4A05- 0A ASL +4A06- 69 38 ADC #$38 +4A08- 8D 32 4A STA $4A32 +4A0B- 8D 38 4A STA $4A38 +4A0E- BE 5A D0 LDX $D05A,Y +4A11- A0 FF LDY #$FF +4A13- CA DEX +4A14- 30 08 BMI $4A1E +4A16- C8 INY +4A17- B9 3F 4A LDA $4A3F,Y +4A1A- D0 FA BNE $4A16 +4A1C- F0 F5 BEQ $4A13 +4A1E- C8 INY +4A1F- 98 TYA +4A20- 18 CLC +4A21- 69 3F ADC #$3F +4A23- 8D 3A 4A STA $4A3A +4A26- A9 4A LDA #$4A +4A28- 69 00 ADC #$00 +4A2A- 8D 3B 4A STA $4A3B +4A2D- 20 00 E0 JSR $E000 +4A30- 0F ??? +4A31- 18 CLC +4A32- 00 BRK +4A33- 0F ??? +4A34- 07 ??? +4A35- 06 A9 ASL $A9 +4A37- 00 BRK +4A38- 00 BRK +4A39- 09 FF ORA #$FF +4A3B- FF ??? +4A3C- 0E 00 60 ASL $6000 +4A3F- 42 ??? +4A40- 4C 41 43 JMP $4341 +4A43- 4B ??? +4A44- 00 BRK +4A45- 52 45 EOR ($45) +4A47- 44 ??? +4A48- 00 BRK +4A49- 4F ??? +4A4A- 52 41 EOR ($41) +4A4C- 4E 47 45 LSR $4547 +4A4F- 00 BRK +4A50- 59 45 4C EOR $4C45,Y +4A53- 4C 4F 57 JMP $574F +4A56- 00 BRK +4A57- 47 ??? +4A58- 52 45 EOR ($45) +4A5A- 45 4E EOR $4E +4A5C- 00 BRK +4A5D- 42 ??? +4A5E- 4C 55 45 JMP $4555 +4A61- 00 BRK +4A62- 50 55 BVC $4AB9 +4A64- 52 50 EOR ($50) +4A66- 4C 45 00 JMP $0045 +4A69- 52 41 EOR ($41) +4A6B- 49 4E EOR #$4E +4A6D- 42 ??? +4A6E- 4F ??? +4A6F- 57 ??? +4A70- 00 BRK +4A71- 20 2D 2D JSR $2D2D +4A74- 2D 2D 00 AND $002D +4A77- AD 68 FA LDA $FA68 +4A7A- C9 C0 CMP #$C0 +4A7C- F0 20 BEQ $4A9E +4A7E- AD B3 FB LDA $FBB3 F8ROM:VERSION +4A81- C9 06 CMP #$06 +4A83- F0 19 BEQ $4A9E +4A85- 20 0C E0 JSR $E00C +4A88- 0C 81 01 TSB $0181 +4A8B- 05 0C ORA $0C +4A8D- 06 C1 ASL $C1 +4A8F- 06 0C ASL $0C +4A91- 20 0C E0 JSR $E00C +4A94- 0E 81 01 ASL $0181 +4A97- 05 18 ORA $18 +4A99- 30 C1 BMI $4A5C +4A9B- 30 18 BMI $4AB5 +4A9D- 60 RTS +4A9E- 20 0C E0 JSR $E00C +4AA1- 0C 80 01 TSB $0180 +4AA4- 07 ??? +4AA5- 08 PHP +4AA6- 08 PHP +4AA7- 08 PHP +4AA8- 6B ??? +4AA9- 3E 1C 08 ROL $081C,X +4AAC- 20 0C E0 JSR $E00C +4AAF- 0E 80 01 ASL $0180 +4AB2- 07 ??? +4AB3- 08 PHP +4AB4- 1C 3E 6B TRB $6B3E +4AB7- 08 PHP +4AB8- 08 PHP +4AB9- 08 PHP +4ABA- 60 RTS +4ABB- 20 72 E0 JSR $E072 +4ABE- A0 01 LDY #$01 +4AC0- 20 2A 44 JSR $442A +4AC3- AE 0D D0 LDX $D00D +4AC6- AD 00 D0 LDA $D000 +4AC9- D0 0E BNE $4AD9 +4ACB- E8 INX +4ACC- 86 84 STX $84 +4ACE- A0 18 LDY #$18 +4AD0- 20 25 4B JSR $4B25 +4AD3- 20 9D 4B JSR $4B9D +4AD6- 4C E2 4C JMP $4CE2 +4AD9- 86 84 STX $84 +4ADB- 20 00 E0 JSR $E000 +4ADE- 05 06 ORA $06 +4AE0- 8C 00 13 STY $1300 +4AE3- 53 ??? +4AE4- 45 4C EOR $4C +4AE6- 45 43 EOR $43 +4AE8- 54 ??? +4AE9- 20 54 48 JSR $4854 +4AEC- 45 20 EOR $20 +4AEE- 46 49 LSR $49 +4AF0- 52 53 EOR ($53) +4AF2- 54 ??? +4AF3- 20 44 41 JSR $4144 +4AF6- 59 20 46 EOR $4620,Y +4AF9- 4F ??? +4AFA- 52 0D EOR ($0D) +4AFC- 59 4F 55 EOR $554F,Y +4AFF- 52 20 EOR ($20) +4B01- 57 ??? +4B02- 45 45 EOR $45 +4B04- 4B ??? +4B05- 4C 59 20 JMP $2059 +4B08- 09 38 ORA #$38 +4B0A- 46 0D LSR $0D +4B0C- 00 BRK +4B0D- 20 9D 4B JSR $4B9D +4B10- 20 64 4B JSR $4B64 +4B13- 20 00 E0 JSR $E000 +4B16- 05 57 ORA $57 +4B18- 48 PHA +4B19- 45 4E EOR $4E +4B1B- 20 44 4F JSR $4F44 +4B1E- 4E 45 0D LSR $0D45 +4B21- 00 BRK +4B22- 4C E2 4C JMP $4CE2 +4B25- 8C 2F 4B STY $4B2F +4B28- 20 00 E0 JSR $E000 +4B2B- 05 06 ORA $06 +4B2D- 8C 00 00 STY $0000 +4B30- 48 PHA +4B31- 49 47 EOR #$47 +4B33- 48 PHA +4B34- 4C 49 47 JMP $4749 +4B37- 48 PHA +4B38- 54 ??? +4B39- 20 53 50 JSR $5053 +4B3C- 45 43 EOR $43 +4B3E- 49 41 EOR #$41 +4B40- 4C 20 4F JMP $4F20 +4B43- 43 ??? +4B44- 43 ??? +4B45- 41 53 EOR ($53,X) +4B47- 49 4F EOR #$4F +4B49- 4E 53 0D LSR $0D53 +4B4C- 00 BRK +4B4D- 20 64 4B JSR $4B64 +4B50- 20 00 E0 JSR $E000 +4B53- 05 54 ORA $54 +4B55- 4F ??? +4B56- 20 45 4E JSR $4E45 +4B59- 54 ??? +4B5A- 45 52 EOR $52 +4B5C- 0D 54 45 ORA $4554 +4B5F- 58 CLI +4B60- 54 ??? +4B61- 0D 00 60 ORA $6000 +4B64- A2 1D LDX #$1D +4B66- A0 31 LDY #$31 +4B68- A9 00 LDA #$00 +4B6A- 20 54 E0 JSR $E054 +4B6D- 20 00 E0 JSR $E000 +4B70- 05 06 ORA $06 +4B72- E0 00 CPX #$00 +4B74- 61 4D ADC ($4D,X) +4B76- 4F ??? +4B77- 56 45 LSR $45,X +4B79- 0D 43 55 ORA $5543 +4B7C- 52 53 EOR ($53) +4B7E- 4F ??? +4B7F- 52 0D EOR ($0D) +4B81- 54 ??? +4B82- 4F ??? +4B83- 20 53 45 JSR $4553 +4B86- 4C 45 43 JMP $4345 +4B89- 54 ??? +4B8A- 0D 44 41 ORA $4144 +4B8D- 54 ??? +4B8E- 45 0D EOR $0D +4B90- 0D 50 52 ORA $5250 +4B93- 45 53 EOR $53 +4B95- 53 ??? +4B96- 0D 09 55 ORA $5509 +4B99- 45 0D EOR $0D +4B9B- 00 BRK +4B9C- 60 RTS +4B9D- 20 00 E0 JSR $E000 +4BA0- 0A ASL +4BA1- 09 05 ORA #$05 +4BA3- 06 65 ASL $65 +4BA5- 00 BRK +4BA6- 2B ??? +4BA7- 09 40 ORA #$40 +4BA9- 7A PLY +4BAA- 2C 20 09 BIT $0920 +4BAD- 04 D0 TSB $D0 +4BAF- 0D 0B 26 ORA $260B +4BB2- 00 BRK +4BB3- 53 ??? +4BB4- 0E 15 15 ASL $1515 +4BB7- 4D 0E 15 EOR $150E +4BBA- 15 54 ORA $54,X +4BBC- 0E 15 15 ASL $1515 +4BBF- 57 ??? +4BC0- 0E 15 15 ASL $1515 +4BC3- 54 ??? +4BC4- 0E 15 15 ASL $1515 +4BC7- 46 0E LSR $0E +4BC9- 15 15 ORA $15,X +4BCB- 53 ??? +4BCC- 0E 00 A0 ASL $A000 +4BCF- 01 84 ORA ($84,X) +4BD1- D9 20 DF CMP $DF20,Y +4BD4- 4B ??? +4BD5- A4 D9 LDY $D9 +4BD7- C8 INY +4BD8- C4 84 CPY $84 +4BDA- 90 F4 BCC $4BD0 +4BDC- F0 F2 BEQ $4BD0 +4BDE- 60 RTS +4BDF- 20 9D 4C JSR $4C9D +4BE2- 85 80 STA $80 +4BE4- 84 81 STY $81 +4BE6- BD D4 4C LDA $4CD4,X +4BE9- 8D F3 4B STA $4BF3 +4BEC- 8C F5 4B STY $4BF5 +4BEF- 20 00 E0 JSR $E000 +4BF2- 06 00 ASL $00 +4BF4- 00 BRK +4BF5- 00 BRK +4BF6- 00 BRK +4BF7- A5 80 LDA $80 +4BF9- 20 89 4C JSR $4C89 +4BFC- A5 80 LDA $80 +4BFE- 18 CLC +4BFF- 65 88 ADC $88 +4C01- 20 89 4C JSR $4C89 +4C04- A9 0E LDA #$0E +4C06- 38 SEC +4C07- ED 0C D0 SBC $D00C +4C0A- C5 D9 CMP $D9 +4C0C- 90 05 BCC $4C13 +4C0E- A5 81 LDA $81 +4C10- 20 62 4C JSR $4C62 +4C13- A5 81 LDA $81 +4C15- 18 CLC +4C16- 69 12 ADC #$12 +4C18- 20 62 4C JSR $4C62 +4C1B- A4 D9 LDY $D9 +4C1D- CC 0D D0 CPY $D00D +4C20- 90 16 BCC $4C38 +4C22- F0 14 BEQ $4C38 +4C24- A5 81 LDA $81 +4C26- 20 62 4C JSR $4C62 +4C29- 20 00 E0 JSR $E000 +4C2C- 0A ASL +4C2D- 05 0D ORA $0D +4C2F- 15 05 ORA $05,X +4C31- 44 ??? +4C32- 4F ??? +4C33- 4E 45 0D LSR $0D45 +4C36- 00 BRK +4C37- 60 RTS +4C38- AD 0D D0 LDA $D00D +4C3B- 45 84 EOR $84 +4C3D- F0 07 BEQ $4C46 +4C3F- A9 2A LDA #$2A +4C41- BE 36 D0 LDX $D036,Y +4C44- D0 02 BNE $4C48 +4C46- A9 0E LDA #$0E +4C48- 8D 5E 4C STA $4C5E +4C4B- 20 0F 7B JSR $7B0F +4C4E- 20 00 E0 JSR $E000 +4C51- 0A ASL +4C52- 02 ??? +4C53- 0D 0A 08 ORA $080A +4C56- 15 04 ORA $04,X +4C58- 09 54 ORA #$54 +4C5A- 7A PLY +4C5B- 0D 14 03 ORA $0314 +4C5E- 3F ??? +4C5F- 0E 00 60 ASL $6000 +4C62- A6 80 LDX $80 +4C64- A4 88 LDY $88 +4C66- 8E 7D 4C STX $4C7D +4C69- 8D 7E 4C STA $4C7E +4C6C- 8D 84 4C STA $4C84 +4C6F- 8C 7F 4C STY $4C7F +4C72- 8A TXA +4C73- 18 CLC +4C74- 65 88 ADC $88 +4C76- 8D 83 4C STA $4C83 +4C79- 20 00 E0 JSR $E000 +4C7C- 10 00 BPL $4C7E +4C7E- 00 BRK +4C7F- 03 ??? +4C80- 01 11 ORA ($11,X) +4C82- 03 ??? +4C83- 00 BRK +4C84- 00 BRK +4C85- 01 01 ORA ($01,X) +4C87- 00 BRK +4C88- 60 RTS +4C89- A4 81 LDY $81 +4C8B- C8 INY +4C8C- 8C 98 4C STY $4C98 +4C8F- 8D 97 4C STA $4C97 +4C92- 20 00 E0 JSR $E000 +4C95- 11 03 ORA ($03),Y +4C97- 00 BRK +4C98- 01 01 ORA ($01,X) +4C9A- 12 00 ORA ($00) +4C9C- 60 RTS +4C9D- A5 D9 LDA $D9 +4C9F- CD 0D D0 CMP $D00D +4CA2- F0 0D BEQ $4CB1 +4CA4- 90 0B BCC $4CB1 +4CA6- A9 06 LDA #$06 +4CA8- 85 88 STA $88 +4CAA- A9 0C LDA #$0C +4CAC- A0 9E LDY #$9E +4CAE- A2 07 LDX #$07 +4CB0- 60 RTS +4CB1- A0 03 LDY #$03 +4CB3- 84 88 STY $88 +4CB5- 18 CLC +4CB6- 6D 0C D0 ADC $D00C +4CB9- E9 00 SBC #$00 +4CBB- A2 FF LDX #$FF +4CBD- E8 INX +4CBE- 38 SEC +4CBF- E9 07 SBC #$07 +4CC1- B0 FA BCS $4CBD +4CC3- 69 07 ADC #$07 +4CC5- BC DC 4C LDY $4CDC,X +4CC8- AA TAX +4CC9- BD CD 4C LDA $4CCD,X +4CCC- 60 RTS +4CCD- 04 07 TSB $07 +4CCF- 0A ASL +4CD0- 0D 10 13 ORA $1310 +4CD3- 16 1C ASL $1C,X +4CD5- 31 46 AND ($46),Y +4CD7- 5B ??? +4CD8- 70 85 BVS $4C5F +4CDA- 9A TXS +4CDB- 54 ??? +4CDC- 3D 4F 61 AND $614F,X +4CDF- 73 ??? +4CE0- 85 97 STA $97 +4CE2- AE 0A D0 LDX $D00A +4CE5- D0 01 BNE $4CE8 +4CE7- E8 INX +4CE8- E4 84 CPX $84 +4CEA- 90 02 BCC $4CEE +4CEC- A6 84 LDX $84 +4CEE- 86 D9 STX $D9 +4CF0- A5 84 LDA $84 +4CF2- 18 CLC +4CF3- 69 07 ADC #$07 +4CF5- 85 89 STA $89 +4CF7- 06 85 ASL $85 +4CF9- 20 9B 4D JSR $4D9B +4CFC- 86 86 STX $86 +4CFE- 84 87 STY $87 +4D00- E6 85 INC $85 +4D02- 20 B4 4D JSR $4DB4 +4D05- 20 48 E0 JSR $E048 +4D08- 20 9B 4D JSR $4D9B +4D0B- B0 08 BCS $4D15 +4D0D- 0A ASL +4D0E- 30 05 BMI $4D15 +4D10- B0 12 BCS $4D24 +4D12- 20 50 4D JSR $4D50 +4D15- 20 22 E0 JSR $E022 +4D18- 30 0C BMI $4D26 +4D1A- C6 4E DEC $4E +4D1C- D0 EA BNE $4D08 +4D1E- C6 4F DEC $4F +4D20- 10 E6 BPL $4D08 +4D22- 30 DC BMI $4D00 +4D24- A9 0D LDA #$0D +4D26- 20 AE 4D JSR $4DAE +4D29- A6 D9 LDX $D9 +4D2B- 20 51 E0 JSR $E051 +4D2E- 0D DE 4D ORA $4DDE +4D31- 1B ??? +4D32- E0 4D CPX #$4D +4D34- 49 ED EOR #$ED +4D36- 4D 0B ED EOR $ED0B +4D39- 4D 4D F0 EOR $F04D +4D3C- 4D 0A F0 EOR $F00A +4D3F- 4D 4A F3 EOR $F34A +4D42- 4D 08 F3 EOR $F308 +4D45- 4D 4B F6 EOR $F64B +4D48- 4D 15 F6 EOR $F615 +4D4B- 4D 00 4C EOR $4C00 +4D4E- F7 ??? +4D4F- 4C E4 86 JMP $86E4 +4D52- D0 05 BNE $4D59 +4D54- C4 87 CPY $87 +4D56- D0 01 BNE $4D59 +4D58- 60 RTS +4D59- 20 77 4D JSR $4D77 +4D5C- 20 AE 4D JSR $4DAE +4D5F- A5 86 LDA $86 +4D61- A4 87 LDY $87 +4D63- 18 CLC +4D64- 69 07 ADC #$07 +4D66- 88 DEY +4D67- 10 FA BPL $4D63 +4D69- E9 06 SBC #$06 +4D6B- ED 0C D0 SBC $D00C +4D6E- A0 00 LDY #$00 +4D70- AA TAX +4D71- 68 PLA +4D72- 68 PLA +4D73- 8A TXA +4D74- 4C FE 4D JMP $4DFE +4D77- 2C 58 FF BIT $FF58 F8ROM:IORTS +4D7A- E0 07 CPX #$07 +4D7C- 90 03 BCC $4D81 +4D7E- A2 06 LDX #$06 +4D80- B8 CLV +4D81- C0 08 CPY #$08 +4D83- 90 03 BCC $4D88 +4D85- A0 07 LDY #$07 +4D87- B8 CLV +4D88- 86 86 STX $86 +4D8A- 84 87 STY $87 +4D8C- 70 0C BVS $4D9A +4D8E- 8A TXA +4D8F- 0A ASL +4D90- 0A ASL +4D91- 0A ASL +4D92- AA TAX +4D93- 98 TYA +4D94- 0A ASL +4D95- 0A ASL +4D96- A8 TAY +4D97- 20 1B E0 JSR $E01B +4D9A- 60 RTS +4D9B- A0 00 LDY #$00 +4D9D- 20 18 E0 JSR $E018 +4DA0- 08 PHP +4DA1- 48 PHA +4DA2- 8A TXA +4DA3- 4A LSR +4DA4- 4A LSR +4DA5- 4A LSR +4DA6- AA TAX +4DA7- 98 TYA +4DA8- 4A LSR +4DA9- 4A LSR +4DAA- A8 TAY +4DAB- 68 PLA +4DAC- 28 PLP +4DAD- 60 RTS +4DAE- 46 85 LSR $85 +4DB0- 48 PHA +4DB1- 90 29 BCC $4DDC +4DB3- 68 PLA +4DB4- 48 PHA +4DB5- 20 9D 4C JSR $4C9D +4DB8- AA TAX +4DB9- 8E D2 4D STX $4DD2 +4DBC- E8 INX +4DBD- 8E D7 4D STX $4DD7 +4DC0- C8 INY +4DC1- 8C D3 4D STY $4DD3 +4DC4- 8C D8 4D STY $4DD8 +4DC7- A6 88 LDX $88 +4DC9- CA DEX +4DCA- 8E D9 4D STX $4DD9 +4DCD- 20 00 E0 JSR $E000 +4DD0- 11 FC ORA ($FC),Y +4DD2- 00 BRK +4DD3- 01 01 ORA ($01,X) +4DD5- 11 17 ORA ($17),Y +4DD7- 01 01 ORA ($01,X) +4DD9- 02 ??? +4DDA- 11 00 ORA ($00),Y +4DDC- 68 PLA +4DDD- 60 RTS +4DDE- 18 CLC +4DDF- 24 38 BIT $38 +4DE1- 08 PHP +4DE2- E4 84 CPX $84 +4DE4- 90 02 BCC $4DE8 +4DE6- A6 84 LDX $84 +4DE8- 8E 0A D0 STX $D00A +4DEB- 28 PLP +4DEC- 60 RTS +4DED- A0 00 LDY #$00 +4DEF- 2C A0 01 BIT $01A0 +4DF2- 2C A0 02 BIT $02A0 +4DF5- 2C A0 03 BIT $03A0 +4DF8- CA DEX +4DF9- 8A TXA +4DFA- 18 CLC +4DFB- 79 21 4E ADC $4E21,Y +4DFE- 10 04 BPL $4E04 +4E00- 38 SEC +4E01- F9 21 4E SBC $4E21,Y +4E04- AA TAX +4E05- E8 INX +4E06- E4 89 CPX $89 +4E08- 90 06 BCC $4E10 +4E0A- CA DEX +4E0B- 8A TXA +4E0C- E9 07 SBC #$07 +4E0E- B0 F4 BCS $4E04 +4E10- A5 84 LDA $84 +4E12- CD 0D D0 CMP $D00D +4E15- D0 05 BNE $4E1C +4E17- E4 84 CPX $84 +4E19- 90 01 BCC $4E1C +4E1B- AA TAX +4E1C- 86 D9 STX $D9 +4E1E- 4C F7 4C JMP $4CF7 +4E21- F9 07 FF SBC $FF07,Y +4E24- 01 20 ORA ($20,X) +4E26- 72 E0 ADC ($E0) +4E28- AD 0A D0 LDA $D00A +4E2B- 85 D9 STA $D9 +4E2D- 20 0F 7B JSR $7B0F +4E30- A0 13 LDY #$13 +4E32- 20 25 4B JSR $4B25 +4E35- 20 00 E0 JSR $E000 +4E38- 12 01 ORA ($01) +4E3A- 05 06 ORA $06 +4E3C- 8C 00 1B STY $1B00 +4E3F- 46 4F LSR $4F +4E41- 52 20 EOR ($20) +4E43- 54 ??? +4E44- 48 PHA +4E45- 45 20 EOR $20 +4E47- 57 ??? +4E48- 45 45 EOR $45 +4E4A- 4B ??? +4E4B- 20 4F 46 JSR $464F +4E4E- 20 09 40 JSR $4009 +4E51- 7A PLY +4E52- 20 09 54 JSR $5409 +4E55- 7A PLY +4E56- 2C 20 09 BIT $0920 +4E59- 04 D0 TSB $D0 +4E5B- 0D 11 60 ORA $6011 +4E5E- 04 25 TSB $25 +4E60- 01 91 ORA ($91,X) +4E62- 11 03 ORA ($03),Y +4E64- 0B ??? +4E65- 25 01 AND $01 +4E67- 91 11 STA ($11),Y +4E69- 60 RTS +4E6A- 18 CLC +4E6B- 25 01 AND $01 +4E6D- 7F ??? +4E6E- 00 BRK +4E6F- 20 0F 4F JSR $4F0F +4E72- AE 0B D0 LDX $D00B +4E75- 86 8A STX $8A +4E77- 06 85 ASL $85 +4E79- 20 9B 4D JSR $4D9B +4E7C- 86 86 STX $86 +4E7E- 84 87 STY $87 +4E80- E6 85 INC $85 +4E82- 20 FC 4E JSR $4EFC +4E85- 20 48 E0 JSR $E048 +4E88- 20 9B 4D JSR $4D9B +4E8B- B0 0A BCS $4E97 +4E8D- 0A ASL +4E8E- 30 07 BMI $4E97 +4E90- B0 14 BCS $4EA6 +4E92- 20 E2 4E JSR $4EE2 +4E95- D0 DE BNE $4E75 +4E97- 20 22 E0 JSR $E022 +4E9A- 30 0C BMI $4EA8 +4E9C- C6 4E DEC $4E +4E9E- D0 E8 BNE $4E88 +4EA0- C6 4F DEC $4F +4EA2- 10 E4 BPL $4E88 +4EA4- 30 DA BMI $4E80 +4EA6- A9 0D LDA #$0D +4EA8- 20 F6 4E JSR $4EF6 +4EAB- A6 8A LDX $8A +4EAD- 20 51 E0 JSR $E051 +4EB0- 0D CC 4E ORA $4ECC +4EB3- 1B ??? +4EB4- CE 4E 49 DEC $494E +4EB7- D3 ??? +4EB8- 4E 0B D3 LSR $D30B +4EBB- 4E 08 D3 LSR $D308 +4EBE- 4E 4D D8 LSR $D84D +4EC1- 4E 0A D8 LSR $D80A +4EC4- 4E 15 D8 LSR $D815 +4EC7- 4E 00 4C LSR $4C00 +4ECA- 75 4E ADC $4E,X +4ECC- 18 CLC +4ECD- 24 38 BIT $38 +4ECF- 8E 0B D0 STX $D00B +4ED2- 60 RTS +4ED3- CA DEX +4ED4- 10 09 BPL $4EDF +4ED6- A2 06 LDX #$06 +4ED8- E8 INX +4ED9- E0 08 CPX #$08 +4EDB- 90 02 BCC $4EDF +4EDD- A2 00 LDX #$00 +4EDF- 4C 75 4E JMP $4E75 +4EE2- E4 86 CPX $86 +4EE4- D0 05 BNE $4EEB +4EE6- C4 87 CPY $87 +4EE8- D0 01 BNE $4EEB +4EEA- 60 RTS +4EEB- 20 77 4D JSR $4D77 +4EEE- 20 F6 4E JSR $4EF6 +4EF1- A6 87 LDX $87 +4EF3- A9 01 LDA #$01 +4EF5- 60 RTS +4EF6- 46 85 LSR $85 +4EF8- 48 PHA +4EF9- 90 12 BCC $4F0D +4EFB- 68 PLA +4EFC- 48 PHA +4EFD- 20 D8 4F JSR $4FD8 +4F00- C8 INY +4F01- 8C 09 4F STY $4F09 +4F04- 20 00 E0 JSR $E000 +4F07- 17 ??? +4F08- 05 01 ORA $01 +4F0A- 06 11 ASL $11 +4F0C- 00 BRK +4F0D- 68 PLA +4F0E- 60 RTS +4F0F- A9 00 LDA #$00 +4F11- AE 0A D0 LDX $D00A +4F14- AC 0C D0 LDY $D00C +4F17- 85 8A STA $8A +4F19- 86 D9 STX $D9 +4F1B- 84 83 STY $83 +4F1D- 20 3F 4F JSR $4F3F +4F20- A6 D9 LDX $D9 +4F22- E8 INX +4F23- EC 0D D0 CPX $D00D +4F26- F0 04 BEQ $4F2C +4F28- 90 02 BCC $4F2C +4F2A- A2 01 LDX #$01 +4F2C- A4 83 LDY $83 +4F2E- C8 INY +4F2F- C0 07 CPY #$07 +4F31- 90 02 BCC $4F35 +4F33- A0 00 LDY #$00 +4F35- A5 8A LDA $8A +4F37- 18 CLC +4F38- 69 01 ADC #$01 +4F3A- C9 08 CMP #$08 +4F3C- 90 D9 BCC $4F17 +4F3E- 60 RTS +4F3F- A4 83 LDY $83 +4F41- 20 12 7B JSR $7B12 +4F44- A9 00 LDA #$00 +4F46- 8D 4D 7A STA $7A4D +4F49- 20 0F 7B JSR $7B0F +4F4C- A5 8A LDA $8A +4F4E- C9 07 CMP #$07 +4F50- 66 8C ROR $8C +4F52- 20 D8 4F JSR $4FD8 +4F55- 8C 66 4F STY $4F66 +4F58- 8C 73 4F STY $4F73 +4F5B- C8 INY +4F5C- 8C C6 4F STY $4FC6 +4F5F- 20 4E E0 JSR $E04E +4F62- C8 INY +4F63- 04 FF TSB $FF +4F65- 05 25 ORA $25 +4F67- 8C FF 05 STY $05FF +4F6A- B5 2C LDA $2C,X +4F6C- 01 20 ORA ($20,X) +4F6E- 00 BRK +4F6F- E0 06 CPX #$06 +4F71- 38 SEC +4F72- 00 BRK +4F73- 00 BRK +4F74- 00 BRK +4F75- 24 8C BIT $8C +4F77- 10 0E BPL $4F87 +4F79- 20 00 E0 JSR $E000 +4F7C- 05 0A ORA $0A +4F7E- 05 0D ORA $0D +4F80- 44 ??? +4F81- 4F ??? +4F82- 4E 45 0D LSR $0D45 +4F85- 00 BRK +4F86- 60 RTS +4F87- 20 00 E0 JSR $E000 +4F8A- 05 0A ORA $0A +4F8C- 02 ??? +4F8D- 0D 0A 08 ORA $080A +4F90- 09 4A ORA #$4A +4F92- 7A PLY +4F93- 0D 09 54 ORA $5409 +4F96- 7A PLY +4F97- 0D 00 A5 ORA $A500 +4F9A- 8A TXA +4F9B- 0A ASL +4F9C- 0A ASL +4F9D- 85 8B STA $8B +4F9F- A9 04 LDA #$04 +4FA1- 48 PHA +4FA2- A4 8B LDY $8B +4FA4- E6 8B INC $8B +4FA6- 20 03 7B JSR $7B03 +4FA9- 98 TYA +4FAA- 0A ASL +4FAB- C9 5B CMP #$5B +4FAD- 90 02 BCC $4FB1 +4FAF- A9 5B LDA #$5B +4FB1- 8D C7 4F STA $4FC7 +4FB4- A9 03 LDA #$03 +4FB6- 48 PHA +4FB7- EE C6 4F INC $4FC6 +4FBA- AD 00 96 LDA $9600 +4FBD- F0 0A BEQ $4FC9 +4FBF- 20 4E E0 JSR $E04E +4FC2- C8 INY +4FC3- 04 FF TSB $FF +4FC5- 34 00 BIT $00,X +4FC7- 0B ??? +4FC8- 01 68 ORA ($68,X) +4FCA- 38 SEC +4FCB- E9 01 SBC #$01 +4FCD- D0 E7 BNE $4FB6 +4FCF- EE C6 4F INC $4FC6 +4FD2- 68 PLA +4FD3- E9 01 SBC #$01 +4FD5- D0 CA BNE $4FA1 +4FD7- 60 RTS +4FD8- A6 8A LDX $8A +4FDA- BC DE 4F LDY $4FDE,X +4FDD- 60 RTS +4FDE- 25 37 AND $37 +4FE0- 49 5B EOR #$5B +4FE2- 6D 7F 91 ADC $917F +4FE5- A3 ??? +4FE6- A4 DA LDY $DA +4FE8- AD 00 96 LDA $9600 +4FEB- D0 08 BNE $4FF5 +4FED- 85 DA STA $DA +4FEF- A8 TAY +4FF0- 20 F5 4F JSR $4FF5 +4FF3- A0 01 LDY #$01 +4FF5- B9 77 50 LDA $5077,Y +4FF8- 8D 00 50 STA $5000 +4FFB- 20 00 E0 JSR $E000 +4FFE- 0F ??? +4FFF- 04 00 TSB $00 +5001- 20 07 00 JSR $0007 +5004- A0 00 LDY #$00 +5006- A9 96 LDA #$96 +5008- 84 D5 STY $D5 +500A- 85 D6 STA $D6 +500C- 60 RTS +500D- A4 DA LDY $DA +500F- 20 2B 50 JSR $502B +5012- A4 DA LDY $DA +5014- D0 09 BNE $501F +5016- BD 00 96 LDA $9600,X +5019- F0 57 BEQ $5072 +501B- E6 DA INC $DA +501D- D0 EE BNE $500D +501F- BE 79 50 LDX $5079,Y +5022- BD 00 96 LDA $9600,X +5025- D0 4B BNE $5072 +5027- C6 DA DEC $DA +5029- F0 E2 BEQ $500D +502B- 84 DA STY $DA +502D- B9 77 50 LDA $5077,Y +5030- 8D 5D 50 STA $505D +5033- BE 79 50 LDX $5079,Y +5036- 8E 5F 50 STX $505F +5039- A9 00 LDA #$00 +503B- CA DEX +503C- E8 INX +503D- BC 00 96 LDY $9600,X +5040- F0 0A BEQ $504C +5042- 18 CLC +5043- 79 E0 84 ADC $84E0,Y +5046- 69 02 ADC #$02 +5048- C9 E1 CMP #$E1 +504A- 90 F0 BCC $503C +504C- BD 00 96 LDA $9600,X +504F- 48 PHA +5050- A9 00 LDA #$00 +5052- 9D 00 96 STA $9600,X +5055- 8A TXA +5056- 48 PHA +5057- 20 00 E0 JSR $E000 +505A- 06 1C ASL $1C +505C- 00 BRK +505D- 00 BRK +505E- 09 00 ORA #$00 +5060- 96 0E STX $0E,Y +5062- 00 BRK +5063- 68 PLA +5064- AA TAX +5065- 68 PLA +5066- 9D 00 96 STA $9600,X +5069- A4 DA LDY $DA +506B- F0 06 BEQ $5073 +506D- A9 00 LDA #$00 +506F- 9D 00 96 STA $9600,X +5072- 60 RTS +5073- 8E 7A 50 STX $507A +5076- 60 RTS +5077- 50 58 BVC $50D1 +5079- 00 BRK +507A- 00 BRK +507B- A0 BF LDY #$BF +507D- A9 50 LDA #$50 +507F- 84 3A STY $3A +5081- 85 3B STA $3B +5083- A0 00 LDY #$00 +5085- 20 B6 50 JSR $50B6 +5088- 85 3C STA $3C +508A- 20 B6 50 JSR $50B6 +508D- 85 3D STA $3D +508F- 05 3C ORA $3C +5091- F0 2B BEQ $50BE +5093- 20 B6 50 JSR $50B6 +5096- AA TAX +5097- 20 B6 50 JSR $50B6 +509A- 85 3F STA $3F +509C- 20 B6 50 JSR $50B6 +509F- 91 3C STA ($3C),Y +50A1- E6 3C INC $3C +50A3- D0 02 BNE $50A7 +50A5- E6 3D INC $3D +50A7- 8A TXA +50A8- D0 02 BNE $50AC +50AA- C6 3F DEC $3F +50AC- CA DEX +50AD- D0 ED BNE $509C +50AF- 8A TXA +50B0- 05 3F ORA $3F +50B2- D0 E8 BNE $509C +50B4- F0 CF BEQ $5085 +50B6- B1 3A LDA ($3A),Y +50B8- E6 3A INC $3A +50BA- D0 02 BNE $50BE +50BC- E6 3B INC $3B +50BE- 60 RTS +50BF- 00 BRK +50C0- 0F ??? +50C1- 60 RTS +50C2- 08 PHP +50C3- 4C 0C 0F JMP $0F0C +50C6- 4C 14 14 JMP $1414 +50C9- 4C 61 14 JMP $1461 +50CC- 4C B1 14 JMP $14B1 +50CF- BA TSX +50D0- 8E 5D 0F STX $0F5D +50D3- 20 6A 0F JSR $0F6A +50D6- A9 80 LDA #$80 +50D8- AE F8 95 LDX $95F8 +50DB- F0 02 BEQ $50DF +50DD- A9 20 LDA #$20 +50DF- 85 74 STA $74 +50E1- BD 34 16 LDA $1634,X +50E4- 8D 2B 16 STA $162B +50E7- A2 03 LDX #$03 +50E9- AD F8 95 LDA $95F8 +50EC- F0 0B BEQ $50F9 +50EE- BD 5A D0 LDA $D05A,X +50F1- AC 59 D0 LDY $D059 +50F4- C8 INY +50F5- F0 02 BEQ $50F9 +50F7- A9 00 LDA #$00 +50F9- 95 77 STA $77,X +50FB- CA DEX +50FC- 10 EB BPL $50E9 +50FE- 20 F2 14 JSR $14F2 +5101- A9 1C LDA #$1C +5103- 20 AF 0F JSR $0FAF +5106- A2 33 LDX #$33 +5108- A0 12 LDY #$12 +510A- A9 80 LDA #$80 +510C- 20 CA 0F JSR $0FCA +510F- 20 F8 0F JSR $0FF8 +5112- 20 64 10 JSR $1064 +5115- AD 15 18 LDA $1815 +5118- F0 05 BEQ $511F +511A- CE 15 18 DEC $1815 +511D- D0 DF BNE $50FE +511F- A2 00 LDX #$00 +5121- 9A TXS +5122- 20 12 8A JSR $8A12 +5125- A9 00 LDA #$00 +5127- 8D 0E 8A STA $8A0E +512A- 8D 15 18 STA $1815 +512D- 2C 8B C0 BIT $C08B rw:LCBANK1 +5130- 2C 8B C0 BIT $C08B rw:LCBANK1 +5133- A2 00 LDX #$00 +5135- A0 00 LDY #$00 +5137- 84 D3 STY $D3 +5139- A9 40 LDA #$40 +513B- 84 D5 STY $D5 +513D- 85 D6 STA $D6 +513F- BD 9C 0F LDA $0F9C,X +5142- F0 14 BEQ $5158 +5144- 85 D4 STA $D4 +5146- B1 D3 LDA ($D3),Y +5148- 48 PHA +5149- B1 D5 LDA ($D5),Y +514B- 91 D3 STA ($D3),Y +514D- 68 PLA +514E- 91 D5 STA ($D5),Y +5150- C8 INY +5151- D0 F3 BNE $5146 +5153- E6 D6 INC $D6 +5155- E8 INX +5156- D0 E7 BNE $513F +5158- 2C 83 C0 BIT $C083 rw:LCBANK2 +515B- 2C 83 C0 BIT $C083 rw:LCBANK2 +515E- 60 RTS +515F- D0 D1 BNE $5132 +5161- D2 D3 CMP ($D3) +5163- D4 ??? +5164- D5 D6 CMP $D6,X +5166- D7 ??? +5167- D8 CLD +5168- D9 DA DB CMP $DBDA,Y +516B- DC ??? +516C- DD DE DF CMP $DFDE,X +516F- 98 TYA +5170- 99 00 AA STA $AA00,Y +5173- F0 15 BEQ $518A +5175- 48 PHA +5176- A2 0C LDX #$0C +5178- C9 0C CMP #$0C +517A- B0 01 BCS $517D +517C- AA TAX +517D- 86 D3 STX $D3 +517F- A0 01 LDY #$01 +5181- 20 03 18 JSR $1803 +5184- 68 PLA +5185- 38 SEC +5186- E5 D3 SBC $D3 +5188- D0 EB BNE $5175 +518A- 4C FB 14 JMP $14FB +518D- 8E DA 0F STX $0FDA +5190- 8C DB 0F STY $0FDB +5193- 85 76 STA $76 +5195- A9 00 LDA #$00 +5197- 85 75 STA $75 +5199- 20 FB 14 JSR $14FB +519C- 20 FF FF JSR $FFFF +519F- A5 76 LDA $76 +51A1- 38 SEC +51A2- E5 75 SBC $75 +51A4- C5 74 CMP $74 +51A6- 90 02 BCC $51AA +51A8- A5 74 LDA $74 +51AA- 20 57 16 JSR $1657 +51AD- A5 75 LDA $75 +51AF- 18 CLC +51B0- 65 74 ADC $74 +51B2- C5 76 CMP $76 +51B4- 90 E1 BCC $5197 +51B6- A9 00 LDA #$00 +51B8- 85 75 STA $75 +51BA- 60 RTS +51BB- AD 00 D0 LDA $D000 +51BE- F0 03 BEQ $51C3 +51C0- 4C 37 13 JMP $1337 +51C3- 18 CLC +51C4- AD 0D D0 LDA $D00D +51C7- 6D 0C D0 ADC $D00C +51CA- A0 FC LDY #$FC +51CC- C8 INY +51CD- 38 SEC +51CE- E9 07 SBC #$07 +51D0- F0 02 BEQ $51D4 +51D2- B0 F8 BCS $51CC +51D4- B9 2A 10 LDA $102A,Y +51D7- 48 PHA +51D8- 18 CLC +51D9- 69 10 ADC #$10 +51DB- 20 AF 0F JSR $0FAF +51DE- 20 2D 10 JSR $102D +51E1- A9 18 LDA #$18 +51E3- 20 57 16 JSR $1657 +51E6- 20 0F 11 JSR $110F +51E9- 68 PLA +51EA- 4C AF 0F JMP $0FAF +51ED- 5A PHY +51EE- 2D 00 A5 AND $A500 +51F1- 79 85 73 ADC $7385,Y +51F4- 20 00 E0 JSR $E000 +51F7- 06 48 ASL $48 +51F9- 00 BRK +51FA- 00 BRK +51FB- 05 08 ORA $08 +51FD- 53 ??? +51FE- 55 4E EOR $4E,X +5200- 0E 15 87 ASL $8715 +5203- 4D 4F 4E EOR $4E4F +5206- 0E 15 87 ASL $8715 +5209- 54 ??? +520A- 55 45 EOR $45,X +520C- 0E 15 87 ASL $8715 +520F- 57 ??? +5210- 45 44 EOR $44 +5212- 0E 15 87 ASL $8715 +5215- 54 ??? +5216- 48 PHA +5217- 55 0E EOR $0E,X +5219- 15 87 ORA $87,X +521B- 46 52 LSR $52 +521D- 49 0E EOR #$0E +521F- 15 87 ORA $87,X +5221- 53 ??? +5222- 41 54 EOR ($54,X) +5224- 0E 00 60 ASL $6000 +5227- A5 7A LDA $7A +5229- 85 73 STA $73 +522B- A9 19 LDA #$19 +522D- 20 AF 0F JSR $0FAF +5230- A0 21 LDY #$21 +5232- 20 03 7B JSR $7B03 +5235- 20 00 E0 JSR $E000 +5238- 05 08 ORA $08 +523A- 06 E0 ASL $E0 +523C- 01 00 ORA ($00,X) +523E- 09 00 ORA #$00 +5240- 96 0D STX $0D,Y +5242- 00 BRK +5243- A9 1E LDA #$1E +5245- 4C 57 16 JMP $1657 +5248- AD 01 D0 LDA $D001 +524B- 49 03 EOR #$03 +524D- F0 63 BEQ $52B2 +524F- AD 03 D0 LDA $D003 +5252- A2 00 LDX #$00 +5254- C9 05 CMP #$05 +5256- 90 03 BCC $525B +5258- E9 05 SBC #$05 +525A- E8 INX +525B- BC F5 10 LDY $10F5,X +525E- 8C DC 10 STY $10DC +5261- BC F7 10 LDY $10F7,X +5264- 8C E0 10 STY $10E0 +5267- BC F9 10 LDY $10F9,X +526A- 8C C7 10 STY $10C7 +526D- AA TAX +526E- BD F0 10 LDA $10F0,X +5271- 8D DB 10 STA $10DB +5274- BC FB 10 LDY $10FB,X +5277- BD 00 11 LDA $1100,X +527A- 8C DE 10 STY $10DE +527D- 8D DF 10 STA $10DF +5280- BD 05 11 LDA $1105,X +5283- 8D E2 10 STA $10E2 +5286- BD 0A 11 LDA $110A,X +5289- 18 CLC +528A- EA NOP +528B- 69 00 ADC #$00 +528D- A8 TAY +528E- A9 00 LDA #$00 +5290- 99 00 96 STA $9600,Y +5293- A9 40 LDA #$40 +5295- 88 DEY +5296- 10 F8 BPL $5290 +5298- 8E E9 10 STX $10E9 +529B- 20 00 E0 JSR $E000 +529E- 03 ??? +529F- 07 ??? +52A0- 06 00 ASL $00 +52A2- 00 BRK +52A3- 00 BRK +52A4- 12 00 ORA ($00) +52A6- 09 00 ORA #$00 +52A8- 96 0D STX $0D,Y +52AA- 00 BRK +52AB- A2 00 LDX #$00 +52AD- CA DEX +52AE- E0 01 CPX #$01 +52B0- F0 BC BEQ $526E +52B2- 60 RTS +52B3- 03 ??? +52B4- 04 03 TSB $03 +52B6- 05 05 ORA $05 +52B8- 07 ??? +52B9- 08 PHP +52BA- 1A INC +52BB- 00 BRK +52BC- EA NOP +52BD- 4A LSR +52BE- 00 BRK +52BF- BE 00 E0 LDX $E000,Y +52C2- E0 00 CPX #$00 +52C4- 03 ??? +52C5- 00 BRK +52C6- 01 01 ORA ($01,X) +52C8- 00 BRK +52C9- 00 BRK +52CA- 00 BRK +52CB- 56 00 LSR $00,X +52CD- 01 01 ORA ($01,X) +52CF- 01 06 ORA ($06,X) +52D1- 0A ASL +52D2- A9 01 LDA #$01 +52D4- 85 7D STA $7D +52D6- A2 31 LDX #$31 +52D8- A0 11 LDY #$11 +52DA- A5 7D LDA $7D +52DC- 18 CLC +52DD- 69 06 ADC #$06 +52DF- CD 0D D0 CMP $D00D +52E2- A9 5A LDA #$5A +52E4- 69 00 ADC #$00 +52E6- 48 PHA +52E7- 20 CA 0F JSR $0FCA +52EA- A5 D9 LDA $D9 +52EC- 85 7D STA $7D +52EE- 68 PLA +52EF- 49 5A EOR #$5A +52F1- F0 E3 BEQ $52D6 +52F3- 60 RTS +52F4- A5 7D LDA $7D +52F6- 85 D9 STA $D9 +52F8- AD 0C D0 LDA $D00C +52FB- A4 D9 LDY $D9 +52FD- 88 DEY +52FE- F0 02 BEQ $5302 +5300- A9 00 LDA #$00 +5302- 85 70 STA $70 +5304- A6 70 LDX $70 +5306- BC 57 11 LDY $1157,X +5309- BD 5E 11 LDA $115E,X +530C- 20 65 11 JSR $1165 +530F- E6 D9 INC $D9 +5311- E6 70 INC $70 +5313- A5 70 LDA $70 +5315- 49 07 EOR #$07 +5317- D0 EB BNE $5304 +5319- 60 RTS +531A- 05 8C ORA $8C +531C- 13 ??? +531D- 9A TXS +531E- 21 A8 AND ($A8,X) +5320- 2F ??? +5321- 00 BRK +5322- 00 BRK +5323- 01 01 ORA ($01,X) +5325- 02 ??? +5326- 02 ??? +5327- 03 ??? +5328- 84 D0 STY $D0 +532A- 85 D1 STA $D1 +532C- A0 00 LDY #$00 +532E- 84 D2 STY $D2 +5330- 20 9D 11 JSR $119D +5333- A4 D9 LDY $D9 +5335- CC 0D D0 CPY $D00D +5338- 90 03 BCC $533D +533A- F0 01 BEQ $533D +533C- 60 RTS +533D- 88 DEY +533E- 20 09 7B JSR $7B09 +5341- A0 FF LDY #$FF +5343- 20 14 14 JSR $1414 +5346- A2 00 LDX #$00 +5348- 20 A8 11 JSR $11A8 +534B- E8 INX +534C- 20 A8 11 JSR $11A8 +534F- A2 87 LDX #$87 +5351- 20 A8 11 JSR $11A8 +5354- E8 INX +5355- 20 A8 11 JSR $11A8 +5358- A0 5A LDY #$5A +535A- 20 9D 11 JSR $119D +535D- 4C 16 18 JMP $1816 +5360- A2 00 LDX #$00 +5362- 20 B3 11 JSR $11B3 +5365- E8 INX +5366- E0 89 CPX #$89 +5368- 90 F8 BCC $5362 +536A- 60 RTS +536B- A0 00 LDY #$00 +536D- 20 B3 11 JSR $11B3 +5370- C8 INY +5371- C0 5A CPY #$5A +5373- 90 F8 BCC $536D +5375- 60 RTS +5376- 8E CA 11 STX $11CA +5379- 8C CC 11 STY $11CC +537C- 8A TXA +537D- 18 CLC +537E- 65 D0 ADC $D0 +5380- AA TAX +5381- A5 D1 LDA $D1 +5383- 69 00 ADC #$00 +5385- A8 TAY +5386- AD CC 11 LDA $11CC +5389- 20 CE 11 JSR $11CE +538C- A2 00 LDX #$00 +538E- A0 00 LDY #$00 +5390- 60 RTS +5391- 85 60 STA $60 +5393- 38 SEC +5394- E5 75 SBC $75 +5396- C5 74 CMP $74 +5398- B0 5B BCS $53F5 +539A- 8E 2F 12 STX $122F +539D- 8C 31 12 STY $1231 +53A0- 4A LSR +53A1- 48 PHA +53A2- A9 00 LDA #$00 +53A4- 6A ROR +53A5- 85 D3 STA $D3 +53A7- 68 PLA +53A8- 69 20 ADC #$20 +53AA- 85 D4 STA $D4 +53AC- 86 D6 STX $D6 +53AE- 8A TXA +53AF- 29 07 AND #$07 +53B1- AA TAX +53B2- BD 13 17 LDA $1713,X +53B5- 85 D5 STA $D5 +53B7- 98 TYA +53B8- 4A LSR +53B9- 66 D6 ROR $D6 +53BB- 4A LSR +53BC- A5 D6 LDA $D6 +53BE- 6A ROR +53BF- 4A LSR +53C0- 85 D6 STA $D6 +53C2- A4 79 LDY $79 +53C4- B9 2B 16 LDA $162B,Y +53C7- 85 58 STA $58 +53C9- 10 0A BPL $53D5 +53CB- A5 60 LDA $60 +53CD- 29 0F AND #$0F +53CF- AA TAX +53D0- BC 37 16 LDY $1637,X +53D3- 10 EF BPL $53C4 +53D5- A4 D6 LDY $D6 +53D7- 46 58 LSR $58 +53D9- 90 06 BCC $53E1 +53DB- A5 D5 LDA $D5 +53DD- 11 D3 ORA ($D3),Y +53DF- 91 D3 STA ($D3),Y +53E1- A5 D4 LDA $D4 +53E3- 18 CLC +53E4- 69 10 ADC #$10 +53E6- 85 D4 STA $D4 +53E8- C9 60 CMP #$60 +53EA- B0 05 BCS $53F1 +53EC- AD F8 95 LDA $95F8 +53EF- D0 E6 BNE $53D7 +53F1- A2 00 LDX #$00 +53F3- A0 00 LDY #$00 +53F5- 60 RTS +53F6- A5 78 LDA $78 +53F8- 85 73 STA $73 +53FA- 20 85 10 JSR $1085 +53FD- A5 77 LDA $77 +53FF- 85 73 STA $73 +5401- AD 0E D0 LDA $D00E +5404- C9 03 CMP #$03 +5406- F0 69 BEQ $5471 +5408- 20 E9 14 JSR $14E9 +540B- A2 00 LDX #$00 +540D- A0 1F LDY #$1F +540F- 20 59 12 JSR $1259 +5412- A2 01 LDX #$01 +5414- A0 20 LDY #$20 +5416- 20 59 12 JSR $1259 +5419- 4C F2 14 JMP $14F2 +541C- A9 01 LDA #$01 +541E- 8D CE 12 STA $12CE +5421- BD E2 12 LDA $12E2,X +5424- 8D CC 12 STA $12CC +5427- BD E4 12 LDA $12E4,X +542A- 8D 80 12 STA $1280 +542D- BD E6 12 LDA $12E6,X +5430- 8D BE 12 STA $12BE +5433- 20 03 7B JSR $7B03 +5436- A0 00 LDY #$00 +5438- 84 D5 STY $D5 +543A- B9 01 96 LDA $9601,Y +543D- F0 0E BEQ $544D +543F- AA TAX +5440- BD 1B 60 LDA $601B,X +5443- 0A ASL +5444- C5 D5 CMP $D5 +5446- 90 02 BCC $544A +5448- 85 D5 STA $D5 +544A- C8 INY +544B- D0 ED BNE $543A +544D- 46 D5 LSR $D5 +544F- AD BE 12 LDA $12BE +5452- 38 SEC +5453- E5 D5 SBC $D5 +5455- 8D BE 12 STA $12BE +5458- AD 00 96 LDA $9600 +545B- 0A ASL +545C- AA TAX +545D- BD E8 12 LDA $12E8,X +5460- 85 D5 STA $D5 +5462- BD E9 12 LDA $12E9,X +5465- 8D B0 12 STA $12B0 +5468- A6 D5 LDX $D5 +546A- E6 D5 INC $D5 +546C- BD EE 12 LDA $12EE,X +546F- 10 01 BPL $5472 +5471- 60 RTS +5472- 49 00 EOR #$00 +5474- 8D CB 12 STA $12CB +5477- A9 E0 LDA #$E0 +5479- 18 CLC +547A- 7D 07 13 ADC $1307,X +547D- 8D D1 12 STA $12D1 +5480- A9 00 LDA #$00 +5482- 18 CLC +5483- 7D 1F 13 ADC $131F,X +5486- 8D D3 12 STA $12D3 +5489- 20 00 E0 JSR $E000 +548C- 12 03 ORA ($03) +548E- 02 ??? +548F- 08 PHP +5490- 16 01 ASL $01,X +5492- 05 06 ORA $06 +5494- E0 01 CPX #$01 +5496- 00 BRK +5497- 09 01 ORA #$01 +5499- 96 0D STX $0D,Y +549B- 16 00 ASL $00,X +549D- 00 BRK +549E- 38 SEC +549F- 6E CE 12 ROR $12CE +54A2- 4C A5 12 JMP $12A5 +54A5- 08 PHP +54A6- 07 ??? +54A7- 0A ASL +54A8- EA NOP +54A9- 28 PLP +54AA- 64 00 STZ $00 +54AC- 00 BRK +54AD- 00 BRK +54AE- 03 ??? +54AF- 10 00 BPL $54B1 +54B1- 02 ??? +54B2- 02 ??? +54B3- 02 ??? +54B4- 02 ??? +54B5- 02 ??? +54B6- 02 ??? +54B7- 02 ??? +54B8- 02 ??? +54B9- 02 ??? +54BA- 02 ??? +54BB- 02 ??? +54BC- 02 ??? +54BD- 02 ??? +54BE- 02 ??? +54BF- 01 FF ORA ($FF,X) +54C1- 02 ??? +54C2- 01 02 ORA ($02,X) +54C4- 01 02 ORA ($02,X) +54C6- 01 02 ORA ($02,X) +54C8- 01 FF ORA ($FF,X) +54CA- 00 BRK +54CB- 01 02 ORA ($02,X) +54CD- 03 ??? +54CE- 04 00 TSB $00 +54D0- 01 03 ORA ($03,X) +54D2- 04 00 TSB $00 +54D4- 01 02 ORA ($02,X) +54D6- 03 ??? +54D7- 04 02 TSB $02 +54D9- FF ??? +54DA- 00 BRK +54DB- 01 02 ORA ($02,X) +54DD- 03 ??? +54DE- 04 05 TSB $05 +54E0- 06 07 ASL $07 +54E2- 00 BRK +54E3- 00 BRK +54E4- 00 BRK +54E5- 00 BRK +54E6- 00 BRK +54E7- 01 01 ORA ($01,X) +54E9- 01 01 ORA ($01,X) +54EB- 02 ??? +54EC- 02 ??? +54ED- 02 ??? +54EE- 02 ??? +54EF- 02 ??? +54F0- 01 FF ORA ($FF,X) +54F2- 00 BRK +54F3- 01 02 ORA ($02,X) +54F5- 03 ??? +54F6- 04 05 TSB $05 +54F8- 06 07 ASL $07 +54FA- A9 0D LDA #$0D +54FC- 20 AF 0F JSR $0FAF +54FF- A9 00 LDA #$00 +5501- AE 0A D0 LDX $D00A +5504- AC 0C D0 LDY $D00C +5507- 85 72 STA $72 +5509- 86 D9 STX $D9 +550B- 84 70 STY $70 +550D- A2 79 LDX #$79 +550F- A0 13 LDY #$13 +5511- A5 72 LDA $72 +5513- C9 06 CMP #$06 +5515- A9 51 LDA #$51 +5517- 69 00 ADC #$00 +5519- 20 CA 0F JSR $0FCA +551C- A6 D9 LDX $D9 +551E- E8 INX +551F- EC 0D D0 CPX $D00D +5522- F0 04 BEQ $5528 +5524- 90 02 BCC $5528 +5526- A2 01 LDX #$01 +5528- A4 70 LDY $70 +552A- C8 INY +552B- C0 07 CPY #$07 +552D- 90 02 BCC $5531 +552F- A0 00 LDY #$00 +5531- A5 72 LDA $72 +5533- 18 CLC +5534- 69 01 ADC #$01 +5536- C9 07 CMP #$07 +5538- 90 CD BCC $5507 +553A- 18 CLC +553B- 60 RTS +553C- A5 72 LDA $72 +553E- 0A ASL +553F- 0A ASL +5540- 48 PHA +5541- A4 70 LDY $70 +5543- 20 12 7B JSR $7B12 +5546- A2 BF LDX #$BF +5548- A0 03 LDY #$03 +554A- A9 00 LDA #$00 +554C- 20 CE 11 JSR $11CE +554F- A9 51 LDA #$51 +5551- 20 CE 11 JSR $11CE +5554- CA DEX +5555- D0 F3 BNE $554A +5557- 88 DEY +5558- 10 F0 BPL $554A +555A- 20 0F 7B JSR $7B0F +555D- A5 79 LDA $79 +555F- 85 73 STA $73 +5561- 20 00 E0 JSR $E000 +5564- 08 PHP +5565- 0A ASL +5566- 19 06 04 ORA $0406,Y +5569- 00 BRK +556A- 09 09 ORA #$09 +556C- 4A LSR +556D- 7A PLY +556E- 0D 15 32 ORA $3215 +5571- 05 09 ORA $09 +5573- 54 ??? +5574- 7A PLY +5575- 0D 06 FA ORA $FA06 +5578- 00 BRK +5579- 09 00 ORA #$00 +557B- A5 7A LDA $7A +557D- 85 73 STA $73 +557F- 68 PLA +5580- A8 TAY +5581- 20 C1 13 JSR $13C1 +5584- 20 C4 13 JSR $13C4 +5587- 8C D6 13 STY $13D6 +558A- 20 03 7B JSR $7B03 +558D- 20 00 E0 JSR $E000 +5590- 08 PHP +5591- 0A ASL +5592- 10 09 BPL $559D +5594- 00 BRK +5595- 96 0D STX $0D,Y +5597- 00 BRK +5598- A0 00 LDY #$00 +559A- C8 INY +559B- 60 RTS +559C- A4 D0 LDY $D0 +559E- A5 D1 LDA $D1 +55A0- 8C F3 13 STY $13F3 +55A3- 8D F4 13 STA $13F4 +55A6- A4 D2 LDY $D2 +55A8- 8C F5 13 STY $13F5 +55AB- 20 0F 7B JSR $7B0F +55AE- A5 79 LDA $79 +55B0- 85 73 STA $73 +55B2- 20 00 E0 JSR $E000 +55B5- 06 00 ASL $00 +55B7- 00 BRK +55B8- 00 BRK +55B9- 16 00 ASL $00,X +55BB- 15 0A ORA $0A,X +55BD- 0A ASL +55BE- 06 0D ASL $0D +55C0- 08 PHP +55C1- 09 54 ORA #$54 +55C3- 7A PLY +55C4- 0D 00 A5 ORA $A500 +55C7- 7A PLY +55C8- 85 73 STA $73 +55CA- A0 00 LDY #$00 +55CC- 98 TYA +55CD- 48 PHA +55CE- 20 14 14 JSR $1414 +55D1- 68 PLA +55D2- A8 TAY +55D3- C8 INY +55D4- 90 F6 BCC $55CC +55D6- 60 RTS +55D7- C0 FF CPY #$FF +55D9- F0 C1 BEQ $559C +55DB- 20 61 14 JSR $1461 +55DE- B0 3A BCS $561A +55E0- BD 00 97 LDA $9700,X +55E3- 4E 0B 8A LSR $8A0B +55E6- 4A LSR +55E7- 2E 0B 8A ROL $8A0B +55EA- 29 03 AND #$03 +55EC- A8 TAY +55ED- B9 58 14 LDA $1458,Y +55F0- 8D 04 8A STA $8A04 +55F3- B9 5B 14 LDA $145B,Y +55F6- 18 CLC +55F7- 65 D0 ADC $D0 +55F9- 8D 05 8A STA $8A05 +55FC- B9 5E 14 LDA $145E,Y +55FF- 65 D1 ADC $D1 +5601- 8D 06 8A STA $8A06 +5604- A5 D3 LDA $D3 +5606- 65 D2 ADC $D2 +5608- 69 18 ADC #$18 +560A- 8D 07 8A STA $8A07 +560D- A2 7E LDX #$7E +560F- A0 00 LDY #$00 +5611- A9 85 LDA #$85 +5613- 20 B1 14 JSR $14B1 +5616- 20 00 8A JSR $8A00 +5619- 18 CLC +561A- 60 RTS +561B- 00 BRK +561C- 02 ??? +561D- 01 06 ORA ($06,X) +561F- 45 84 EOR $84 +5621- 00 BRK +5622- 00 BRK +5623- 00 BRK +5624- A2 00 LDX #$00 +5626- 86 D3 STX $D3 +5628- BD 00 97 LDA $9700,X +562B- 4A LSR +562C- A9 08 LDA #$08 +562E- 90 01 BCC $5631 +5630- 0A ASL +5631- 85 D4 STA $D4 +5633- 8A TXA +5634- D9 A9 14 CMP $14A9,Y +5637- F0 0C BEQ $5645 +5639- A5 D3 LDA $D3 +563B- 65 D4 ADC $D4 +563D- 85 D3 STA $D3 +563F- 8A TXA +5640- 69 20 ADC #$20 +5642- AA TAX +5643- D0 E3 BNE $5628 +5645- 18 CLC +5646- A5 D3 LDA $D3 +5648- 65 D4 ADC $D4 +564A- C9 41 CMP #$41 +564C- 90 15 BCC $5663 +564E- A5 D4 LDA $D4 +5650- C9 08 CMP #$08 +5652- F0 0F BEQ $5663 +5654- 4A LSR +5655- 85 D4 STA $D4 +5657- 65 D3 ADC $D3 +5659- C9 41 CMP #$41 +565B- B0 06 BCS $5663 +565D- 5E 00 97 LSR $9700,X +5660- 1E 00 97 ASL $9700,X +5663- E8 INX +5664- 86 D5 STX $D5 +5666- A9 97 LDA #$97 +5668- 85 D6 STA $D6 +566A- CA DEX +566B- 60 RTS +566C- 00 BRK +566D- 20 40 60 JSR $6040 +5670- 80 A0 BRA $5612 +5672- C0 E0 CPY #$E0 +5674- 8E D5 14 STX $14D5 +5677- 8C D1 14 STY $14D1 +567A- 20 15 8A JSR $8A15 +567D- AD 04 8A LDA $8A04 +5680- 48 PHA +5681- A9 03 LDA #$03 +5683- 8D 04 8A STA $8A04 +5686- A4 D5 LDY $D5 +5688- A5 D6 LDA $D6 +568A- 8C 0C 8A STY $8A0C +568D- 8D 0D 8A STA $8A0D +5690- 20 00 8A JSR $8A00 +5693- C9 00 CMP #$00 +5695- D0 02 BNE $5699 +5697- C0 00 CPY #$00 +5699- 90 0C BCC $56A7 +569B- A0 FF LDY #$FF +569D- C8 INY +569E- B1 D5 LDA ($D5),Y +56A0- D0 FB BNE $569D +56A2- 88 DEY +56A3- 91 D5 STA ($D5),Y +56A5- 10 E9 BPL $5690 +56A7- 68 PLA +56A8- 8D 04 8A STA $8A04 +56AB- 60 RTS +56AC- 20 0F 8A JSR $8A0F +56AF- 17 ??? +56B0- 15 29 ORA $29,X +56B2- 15 60 ORA $60,X +56B4- 60 RTS +56B5- 20 0F 8A JSR $8A0F +56B8- 17 ??? +56B9- 15 29 ORA $29,X +56BB- 15 85 ORA $85,X +56BD- 60 RTS +56BE- 20 0C 18 JSR $180C +56C1- A0 00 LDY #$00 +56C3- A9 20 LDA #$20 +56C5- A2 40 LDX #$40 +56C7- 8D 0A 15 STA $150A +56CA- 98 TYA +56CB- 99 00 20 STA $2000,Y +56CE- C8 INY +56CF- D0 FA BNE $56CB +56D1- EE 0A 15 INC $150A +56D4- CA DEX +56D5- D0 F4 BNE $56CB +56D7- 85 7C STA $7C +56D9- 60 RTS +56DA- 98 TYA +56DB- 49 FF EOR #$FF +56DD- 8D F0 15 STA $15F0 +56E0- A5 54 LDA $54 +56E2- 18 CLC +56E3- 65 50 ADC $50 +56E5- 85 50 STA $50 +56E7- 90 02 BCC $56EB +56E9- E6 51 INC $51 +56EB- 60 RTS +56EC- A6 54 LDX $54 +56EE- CA DEX +56EF- 8A TXA +56F0- 4A LSR +56F1- 4A LSR +56F2- 4A LSR +56F3- AA TAX +56F4- E8 INX +56F5- 86 54 STX $54 +56F7- 98 TYA +56F8- 18 CLC +56F9- 6D 0B 8A ADC $8A0B +56FC- 38 SEC +56FD- E5 75 SBC $75 +56FF- C5 74 CMP $74 +5701- F0 02 BEQ $5705 +5703- B0 DB BCS $56E0 +5705- A5 7B LDA $7B +5707- 65 54 ADC $54 +5709- 85 7B STA $7B +570B- 90 10 BCC $571D +570D- E6 7C INC $7C +570F- A5 7C LDA $7C +5711- 49 04 EOR #$04 +5713- D0 08 BNE $571D +5715- 85 7C STA $7C +5717- 20 48 17 JSR $1748 +571A- 20 16 18 JSR $1816 +571D- A4 54 LDY $54 +571F- 88 DEY +5720- B1 50 LDA ($50),Y +5722- 99 E0 8D STA $8DE0,Y +5725- 88 DEY +5726- 10 F8 BPL $5720 +5728- 20 1D 15 JSR $151D +572B- AD 0B 8A LDA $8A0B +572E- F0 29 BEQ $5759 +5730- A6 54 LDX $54 +5732- 8A TXA +5733- 0A ASL +5734- 85 57 STA $57 +5736- BD DF 8D LDA $8DDF,X +5739- 29 0F AND #$0F +573B- A8 TAY +573C- B9 47 16 LDA $1647,Y +573F- A4 57 LDY $57 +5741- 99 DF 8D STA $8DDF,Y +5744- BD DF 8D LDA $8DDF,X +5747- 4A LSR +5748- 4A LSR +5749- 4A LSR +574A- 4A LSR +574B- A8 TAY +574C- B9 47 16 LDA $1647,Y +574F- A4 57 LDY $57 +5751- 99 DE 8D STA $8DDE,Y +5754- CA DEX +5755- D0 DB BNE $5732 +5757- 06 54 ASL $54 +5759- A5 52 LDA $52 +575B- 29 07 AND #$07 +575D- A8 TAY +575E- F0 18 BEQ $5778 +5760- A6 54 LDX $54 +5762- A9 00 LDA #$00 +5764- 9D E0 8D STA $8DE0,X +5767- E6 54 INC $54 +5769- A2 00 LDX #$00 +576B- 18 CLC +576C- 7E E0 8D ROR $8DE0,X +576F- E8 INX +5770- 8A TXA +5771- 45 54 EOR $54 +5773- D0 F7 BNE $576C +5775- 88 DEY +5776- D0 F1 BNE $5769 +5778- A5 53 LDA $53 +577A- 85 57 STA $57 +577C- A5 52 LDA $52 +577E- 46 57 LSR $57 +5780- 6A ROR +5781- 46 57 LSR $57 +5783- 6A ROR +5784- 4A LSR +5785- 85 57 STA $57 +5787- A4 60 LDY $60 +5789- 20 D1 15 JSR $15D1 +578C- AD 0B 8A LDA $8A0B +578F- F0 5C BEQ $57ED +5791- A4 60 LDY $60 +5793- C8 INY +5794- 98 TYA +5795- 8D F6 15 STA $15F6 +5798- 38 SEC +5799- E5 75 SBC $75 +579B- C5 74 CMP $74 +579D- B0 4E BCS $57ED +579F- 4A LSR +57A0- A8 TAY +57A1- A9 00 LDA #$00 +57A3- 6A ROR +57A4- 05 57 ORA $57 +57A6- 85 55 STA $55 +57A8- 98 TYA +57A9- 69 20 ADC #$20 +57AB- 85 56 STA $56 +57AD- A4 73 LDY $73 +57AF- B9 2B 16 LDA $162B,Y +57B2- 29 FF AND #$FF +57B4- 85 58 STA $58 +57B6- 10 0A BPL $57C2 +57B8- A9 00 LDA #$00 +57BA- 29 0F AND #$0F +57BC- AA TAX +57BD- BC 37 16 LDY $1637,X +57C0- 10 ED BPL $57AF +57C2- A9 19 LDA #$19 +57C4- 46 58 LSR $58 +57C6- B0 02 BCS $57CA +57C8- A9 59 LDA #$59 +57CA- 8D 12 16 STA $1612 +57CD- A4 54 LDY $54 +57CF- 88 DEY +57D0- B1 55 LDA ($55),Y +57D2- 19 E0 8D ORA $8DE0,Y +57D5- 19 E0 8D ORA $8DE0,Y +57D8- 91 55 STA ($55),Y +57DA- 88 DEY +57DB- 10 F3 BPL $57D0 +57DD- A5 56 LDA $56 +57DF- 18 CLC +57E0- 69 10 ADC #$10 +57E2- 85 56 STA $56 +57E4- C9 60 CMP #$60 +57E6- B0 05 BCS $57ED +57E8- AD F8 95 LDA $95F8 +57EB- D0 D5 BNE $57C2 +57ED- 60 RTS +57EE- 08 PHP +57EF- 02 ??? +57F0- 03 ??? +57F1- 01 05 ORA ($05,X) +57F3- 04 06 TSB $06 +57F5- 80 00 BRA $57F7 +57F7- 01 08 ORA ($08,X) +57F9- 07 ??? +57FA- 01 01 ORA ($01,X) +57FC- 01 02 ORA ($02,X) +57FE- 02 ??? +57FF- 03 ??? +5800- 03 ??? +5801- 03 ??? +5802- 04 04 TSB $04 +5804- 04 05 TSB $05 +5806- 05 05 ORA $05 +5808- 06 06 ASL $06 +580A- 00 BRK +580B- 03 ??? +580C- 0C 0F 30 TSB $300F +580F- 33 ??? +5810- 3C 3F C0 BIT $C03F,X +5813- C3 ??? +5814- CC CF F0 CPY $F0CF +5817- F3 ??? +5818- FC ??? +5819- FF ??? +581A- 85 80 STA $80 +581C- 20 0F 18 JSR $180F +581F- A9 00 LDA #$00 +5821- 85 83 STA $83 +5823- 4A LSR +5824- A8 TAY +5825- A9 00 LDA #$00 +5827- 6A ROR +5828- 85 88 STA $88 +582A- 98 TYA +582B- 69 20 ADC #$20 +582D- 85 89 STA $89 +582F- AD F8 95 LDA $95F8 +5832- F0 02 BEQ $5836 +5834- A9 03 LDA #$03 +5836- 85 8D STA $8D +5838- F0 05 BEQ $583F +583A- A6 8D LDX $8D +583C- 20 1D 18 JSR $181D +583F- 20 1B 17 JSR $171B +5842- F0 62 BEQ $58A6 +5844- A2 00 LDX #$00 +5846- A0 04 LDY #$04 +5848- 20 06 18 JSR $1806 +584B- A2 00 LDX #$00 +584D- 86 81 STX $81 +584F- A2 00 LDX #$00 +5851- 86 84 STX $84 +5853- A6 88 LDX $88 +5855- A5 89 LDA $89 +5857- 86 8A STX $8A +5859- 85 8B STA $8B +585B- A2 00 LDX #$00 +585D- 86 86 STX $86 +585F- A4 83 LDY $83 +5861- 86 85 STX $85 +5863- 84 82 STY $82 +5865- A4 81 LDY $81 +5867- B1 8A LDA ($8A),Y +5869- A6 84 LDX $84 +586B- 3D 13 17 AND $1713,X +586E- F0 09 BEQ $5879 +5870- A4 85 LDY $85 +5872- B9 14 17 LDA $1714,Y +5875- 05 86 ORA $86 +5877- 85 86 STA $86 +5879- A5 8A LDA $8A +587B- 49 80 EOR #$80 +587D- 85 8A STA $8A +587F- D0 02 BNE $5883 +5881- E6 8B INC $8B +5883- A4 82 LDY $82 +5885- C8 INY +5886- A6 85 LDX $85 +5888- E8 INX +5889- C4 80 CPY $80 +588B- F0 04 BEQ $5891 +588D- E0 07 CPX #$07 +588F- 90 D0 BCC $5861 +5891- 86 87 STX $87 +5893- A5 86 LDA $86 +5895- 20 09 18 JSR $1809 +5898- A6 84 LDX $84 +589A- E8 INX +589B- E0 08 CPX #$08 +589D- 90 B2 BCC $5851 +589F- A6 81 LDX $81 +58A1- E8 INX +58A2- E0 80 CPX #$80 +58A4- 90 A7 BCC $584D +58A6- A9 0D LDA #$0D +58A8- 20 00 18 JSR $1800 +58AB- AD F8 95 LDA $95F8 +58AE- F0 0E BEQ $58BE +58B0- A5 89 LDA $89 +58B2- 18 CLC +58B3- 69 10 ADC #$10 +58B5- 85 89 STA $89 +58B7- C6 8D DEC $8D +58B9- 30 03 BMI $58BE +58BB- 4C 77 16 JMP $1677 +58BE- A6 87 LDX $87 +58C0- A0 01 LDY #$01 +58C2- 20 03 18 JSR $1803 +58C5- 20 48 17 JSR $1748 +58C8- A5 83 LDA $83 +58CA- 18 CLC +58CB- 65 87 ADC $87 +58CD- C5 80 CMP $80 +58CF- 18 CLC +58D0- F0 03 BEQ $58D5 +58D2- 4C 5E 16 JMP $165E +58D5- 60 RTS +58D6- 80 40 BRA $5918 +58D8- 20 10 08 JSR $0810 +58DB- 04 02 TSB $02 +58DD- 01 A4 ORA ($A4,X) +58DF- 88 DEY +58E0- A5 89 LDA $89 +58E2- 84 8A STY $8A +58E4- 85 8B STA $8B +58E6- A5 80 LDA $80 +58E8- 38 SEC +58E9- E5 83 SBC $83 +58EB- C9 07 CMP #$07 +58ED- 90 02 BCC $58F1 +58EF- A9 07 LDA #$07 +58F1- 85 87 STA $87 +58F3- AA TAX +58F4- A0 00 LDY #$00 +58F6- B1 8A LDA ($8A),Y +58F8- D0 10 BNE $590A +58FA- C8 INY +58FB- 10 F9 BPL $58F6 +58FD- A5 8A LDA $8A +58FF- 49 80 EOR #$80 +5901- 85 8A STA $8A +5903- D0 02 BNE $5907 +5905- E6 8B INC $8B +5907- CA DEX +5908- D0 EA BNE $58F4 +590A- 60 RTS +590B- 20 22 E0 JSR $E022 +590E- C9 1B CMP #$1B +5910- D0 F8 BNE $590A +5912- 20 12 E0 JSR $E012 +5915- 20 12 18 JSR $1812 +5918- 78 SEI +5919- 08 PHP +591A- 20 15 E0 JSR $E015 +591D- 28 PLP +591E- 90 EA BCC $590A +5920- 4C 5C 0F JMP $0F5C +5923- 00 BRK +5924- 7B ??? +5925- BE 08 4C LDX $4C08,Y +5928- 24 7B BIT $7B +592A- 4C 4D 7B JMP $7B4D +592D- 4C 65 7B JMP $7B65 +5930- 4C FF 7B JMP $7BFF +5933- 4C 30 7C JMP $7C30 +5936- 4C 5E 7C JMP $7C5E +5939- 4C 7F 7C JMP $7C7F +593C- 4C 72 82 JMP $8272 +593F- 4C EC 7F JMP $7FEC +5942- 4C 7F 81 JMP $817F +5945- 4C 8A 83 JMP $838A +5948- 4C D2 7C JMP $7CD2 +594B- A0 00 LDY #$00 +594D- 98 TYA +594E- 99 00 D0 STA $D000,Y +5951- C8 INY +5952- D0 FA BNE $594E +5954- 88 DEY +5955- 8C 59 D0 STY $D059 +5958- A0 5E LDY #$5E +595A- A9 D0 LDA #$D0 +595C- 8C 13 D0 STY $D013 +595F- 8D 14 D0 STA $D014 +5962- 60 RTS +5963- B9 15 D0 LDA $D015,Y +5966- 85 D3 STA $D3 +5968- 85 D5 STA $D5 +596A- B9 37 D0 LDA $D037,Y +596D- 85 D4 STA $D4 +596F- 85 D6 STA $D6 +5971- 05 D5 ORA $D5 +5973- 60 RTS +5974- 20 3C 7B JSR $7B3C +5977- D0 05 BNE $597E +5979- 8D 00 96 STA $9600 +597C- 18 CLC +597D- 60 RTS +597E- A0 00 LDY #$00 +5980- B1 D5 LDA ($D5),Y +5982- 99 00 96 STA $9600,Y +5985- F0 03 BEQ $598A +5987- C8 INY +5988- D0 F6 BNE $5980 +598A- 38 SEC +598B- 60 RTS +598C- 98 TYA +598D- 48 PHA +598E- 20 9C 7B JSR $7B9C +5991- 68 PLA +5992- A8 TAY +5993- AD 00 96 LDA $9600 +5996- D0 07 BNE $599F +5998- 99 15 D0 STA $D015,Y +599B- 99 37 D0 STA $D037,Y +599E- 60 RTS +599F- AD 13 D0 LDA $D013 +59A2- 99 15 D0 STA $D015,Y +59A5- 85 D3 STA $D3 +59A7- AD 14 D0 LDA $D014 +59AA- 99 37 D0 STA $D037,Y +59AD- 85 D4 STA $D4 +59AF- A0 00 LDY #$00 +59B1- B9 00 96 LDA $9600,Y +59B4- 91 D3 STA ($D3),Y +59B6- EE 13 D0 INC $D013 +59B9- D0 03 BNE $59BE +59BB- EE 14 D0 INC $D014 +59BE- C8 INY +59BF- AA TAX +59C0- D0 EF BNE $59B1 +59C2- 60 RTS +59C3- 20 3C 7B JSR $7B3C +59C6- F0 5D BEQ $5A25 +59C8- A9 00 LDA #$00 +59CA- 85 D7 STA $D7 +59CC- A0 00 LDY #$00 +59CE- B1 D5 LDA ($D5),Y +59D0- E6 D5 INC $D5 +59D2- D0 02 BNE $59D6 +59D4- E6 D6 INC $D6 +59D6- E6 D7 INC $D7 +59D8- A8 TAY +59D9- D0 F1 BNE $59CC +59DB- A2 21 LDX #$21 +59DD- BD 37 D0 LDA $D037,X +59E0- C5 D6 CMP $D6 +59E2- D0 05 BNE $59E9 +59E4- BD 15 D0 LDA $D015,X +59E7- C5 D5 CMP $D5 +59E9- 90 0D BCC $59F8 +59EB- BD 15 D0 LDA $D015,X +59EE- E5 D7 SBC $D7 +59F0- 9D 15 D0 STA $D015,X +59F3- B0 03 BCS $59F8 +59F5- DE 37 D0 DEC $D037,X +59F8- CA DEX +59F9- 10 E2 BPL $59DD +59FB- A5 D6 LDA $D6 +59FD- CD 14 D0 CMP $D014 +5A00- D0 05 BNE $5A07 +5A02- A5 D5 LDA $D5 +5A04- CD 13 D0 CMP $D013 +5A07- F0 12 BEQ $5A1B +5A09- B1 D5 LDA ($D5),Y +5A0B- 91 D3 STA ($D3),Y +5A0D- E6 D3 INC $D3 +5A0F- D0 02 BNE $5A13 +5A11- E6 D4 INC $D4 +5A13- E6 D5 INC $D5 +5A15- D0 02 BNE $5A19 +5A17- E6 D6 INC $D6 +5A19- D0 E0 BNE $59FB +5A1B- E5 D7 SBC $D7 +5A1D- 8D 13 D0 STA $D013 +5A20- B0 03 BCS $5A25 +5A22- CE 14 D0 DEC $D014 +5A25- 60 RTS +5A26- 20 4D 7B JSR $7B4D +5A29- A0 00 LDY #$00 +5A2B- 98 TYA +5A2C- A2 00 LDX #$00 +5A2E- 29 1F AND #$1F +5A30- D0 02 BNE $5A34 +5A32- A2 80 LDX #$80 +5A34- 8A TXA +5A35- 99 00 97 STA $9700,Y +5A38- C8 INY +5A39- D0 F0 BNE $5A2B +5A3B- A2 E0 LDX #$E0 +5A3D- B9 00 96 LDA $9600,Y +5A40- F0 14 BEQ $5A56 +5A42- 30 07 BMI $5A4B +5A44- 9D 00 97 STA $9700,X +5A47- E8 INX +5A48- C8 INY +5A49- D0 F2 BNE $5A3D +5A4B- 48 PHA +5A4C- 8A TXA +5A4D- 18 CLC +5A4E- 69 20 ADC #$20 +5A50- 29 E0 AND #$E0 +5A52- AA TAX +5A53- 68 PLA +5A54- 30 EE BMI $5A44 +5A56- 60 RTS +5A57- 98 TYA +5A58- 48 PHA +5A59- A2 00 LDX #$00 +5A5B- A0 00 LDY #$00 +5A5D- BD 00 97 LDA $9700,X +5A60- 99 00 96 STA $9600,Y +5A63- F0 04 BEQ $5A69 +5A65- E8 INX +5A66- C8 INY +5A67- D0 F4 BNE $5A5D +5A69- 8A TXA +5A6A- 18 CLC +5A6B- 69 20 ADC #$20 +5A6D- 29 E0 AND #$E0 +5A6F- AA TAX +5A70- D0 EB BNE $5A5D +5A72- 88 DEY +5A73- 30 05 BMI $5A7A +5A75- B9 00 96 LDA $9600,Y +5A78- 30 F8 BMI $5A72 +5A7A- C8 INY +5A7B- A9 00 LDA #$00 +5A7D- 99 00 96 STA $9600,Y +5A80- 68 PLA +5A81- A8 TAY +5A82- 4C 65 7B JMP $7B65 +5A85- A0 00 LDY #$00 +5A87- 8C 56 7A STY $7A56 +5A8A- A5 D9 LDA $D9 +5A8C- C9 0A CMP #$0A +5A8E- 90 0D BCC $5A9D +5A90- A2 FF LDX #$FF +5A92- E8 INX +5A93- E9 0A SBC #$0A +5A95- B0 FB BCS $5A92 +5A97- 69 0A ADC #$0A +5A99- 09 30 ORA #$30 +5A9B- A8 TAY +5A9C- 8A TXA +5A9D- 09 30 ORA #$30 +5A9F- 8D 54 7A STA $7A54 +5AA2- 8C 55 7A STY $7A55 +5AA5- 60 RTS +5AA6- A2 FF LDX #$FF +5AA8- 88 DEY +5AA9- 30 08 BMI $5AB3 +5AAB- E8 INX +5AAC- BD 99 7C LDA $7C99,X +5AAF- D0 FA BNE $5AAB +5AB1- F0 F5 BEQ $5AA8 +5AB3- A0 FF LDY #$FF +5AB5- E8 INX +5AB6- C8 INY +5AB7- BD 99 7C LDA $7C99,X +5ABA- 99 4A 7A STA $7A4A,Y +5ABD- D0 F6 BNE $5AB5 +5ABF- 60 RTS +5AC0- 53 ??? +5AC1- 55 4E EOR $4E,X +5AC3- 44 ??? +5AC4- 41 59 EOR ($59,X) +5AC6- 00 BRK +5AC7- 4D 4F 4E EOR $4E4F +5ACA- 44 ??? +5ACB- 41 59 EOR ($59,X) +5ACD- 00 BRK +5ACE- 54 ??? +5ACF- 55 45 EOR $45,X +5AD1- 53 ??? +5AD2- 44 ??? +5AD3- 41 59 EOR ($59,X) +5AD5- 00 BRK +5AD6- 57 ??? +5AD7- 45 44 EOR $44 +5AD9- 4E 45 53 LSR $5345 +5ADC- 44 ??? +5ADD- 41 59 EOR ($59,X) +5ADF- 00 BRK +5AE0- 54 ??? +5AE1- 48 PHA +5AE2- 55 52 EOR $52,X +5AE4- 53 ??? +5AE5- 44 ??? +5AE6- 41 59 EOR ($59,X) +5AE8- 00 BRK +5AE9- 46 52 LSR $52 +5AEB- 49 44 EOR #$44 +5AED- 41 59 EOR ($59,X) +5AEF- 00 BRK +5AF0- 53 ??? +5AF1- 41 54 EOR ($54,X) +5AF3- 55 52 EOR $52,X +5AF5- 44 ??? +5AF6- 41 59 EOR ($59,X) +5AF8- 00 BRK +5AF9- 48 PHA +5AFA- 86 D3 STX $D3 +5AFC- A9 14 LDA #$14 +5AFE- 38 SEC +5AFF- E5 D3 SBC $D3 +5B01- 0A ASL +5B02- 85 D3 STA $D3 +5B04- 68 PLA +5B05- 8D 19 7D STA $7D19 +5B08- 8D 1F 7D STA $7D1F +5B0B- 8E 16 7D STX $7D16 +5B0E- 8E 21 7D STX $7D21 +5B11- 8E 26 7D STX $7D26 +5B14- CA DEX +5B15- 8A TXA +5B16- 18 CLC +5B17- 65 D3 ADC $D3 +5B19- 8D 1C 7D STA $7D1C +5B1C- 8C 17 7D STY $7D17 +5B1F- 8C 1D 7D STY $7D1D +5B22- 88 DEY +5B23- 88 DEY +5B24- 8C 22 7D STY $7D22 +5B27- 98 TYA +5B28- 69 02 ADC #$02 +5B2A- 6D 19 7D ADC $7D19 +5B2D- 8D 27 7D STA $7D27 +5B30- A5 D3 LDA $D3 +5B32- 8D 23 7D STA $7D23 +5B35- 8D 28 7D STA $7D28 +5B38- 20 00 E0 JSR $E000 +5B3B- 11 07 ORA ($07),Y +5B3D- 00 BRK +5B3E- 00 BRK +5B3F- 01 00 ORA ($00,X) +5B41- 11 70 ORA ($70),Y +5B43- 00 BRK +5B44- 00 BRK +5B45- 01 00 ORA ($00,X) +5B47- 10 00 BPL $5B49 +5B49- 00 BRK +5B4A- 00 BRK +5B4B- 02 ??? +5B4C- 10 00 BPL $5B4E +5B4E- 00 BRK +5B4F- 00 BRK +5B50- 02 ??? +5B51- 00 BRK +5B52- 60 RTS +5B53- 45 44 EOR $44 +5B55- 49 54 EOR #$54 +5B57- 20 49 4E JSR $4E49 +5B5A- 53 ??? +5B5B- 54 ??? +5B5C- 52 55 EOR ($55) +5B5E- 43 ??? +5B5F- 54 ??? +5B60- 49 4F EOR #$4F +5B62- 4E 53 00 LSR $0053 +5B65- 20 4F 46 JSR $464F +5B68- 20 4C 49 JSR $494C +5B6B- 4E 45 20 LSR $2045 +5B6E- 00 BRK +5B6F- 20 00 E0 JSR $E000 +5B72- 06 0C ASL $0C +5B74- 00 BRK +5B75- A6 3C LDX $3C +5B77- 43 ??? +5B78- 54 ??? +5B79- 52 4C EOR ($4C) +5B7B- 2D 20 20 AND $2020 +5B7E- 3E 20 54 ROL $5420,X +5B81- 4F ??? +5B82- 20 53 45 JSR $4553 +5B85- 45 20 EOR $20 +5B87- 09 2C ORA #$2C +5B89- 7D 0D 13 ADC $130D,X +5B8C- 09 A6 ORA #$A6 +5B8E- 01 07 ORA ($07,X) +5B90- 0F ??? +5B91- 06 06 ASL $06 +5B93- 06 06 ASL $06 +5B95- 06 0F ASL $0F +5B97- 00 BRK +5B98- 60 RTS +5B99- 08 PHP +5B9A- 20 72 E0 JSR $E072 +5B9D- 20 00 E0 JSR $E000 +5BA0- 06 4C ASL $4C +5BA2- 00 BRK +5BA3- 16 09 ASL $09,X +5BA5- 2C 7D 0D BIT $0D7D +5BA8- 00 BRK +5BA9- 28 PLP +5BAA- B0 67 BCS $5C13 +5BAC- 20 00 E0 JSR $E000 +5BAF- 06 10 ASL $10 +5BB1- 00 BRK +5BB2- 3A DEC +5BB3- 3C 43 54 BIT $5443,X +5BB6- 52 4C EOR ($4C) +5BB8- 2D 50 3E AND $3E50 +5BBB- 0E 14 5B ASL $5B14 +5BBE- 50 4F BVC $5C0F +5BC0- 53 ??? +5BC1- 49 54 EOR #$54 +5BC3- 49 4F EOR #$4F +5BC5- 4E 09 41 LSR $4109 +5BC8- 7D 4F 46 ADC $464F,X +5BCB- 20 54 45 JSR $4554 +5BCE- 58 CLI +5BCF- 54 ??? +5BD0- 0D 06 7A ORA $7A06 +5BD3- 00 BRK +5BD4- 45 4C EOR $4C +5BD6- 0D 43 0D ORA $0D43 +5BD9- 52 0D EOR ($0D) +5BDB- 06 94 ASL $94 +5BDD- 00 BRK +5BDE- 45 4C EOR $4C +5BE0- 45 46 EOR $46 +5BE2- 54 ??? +5BE3- 0D 43 45 ORA $4543 +5BE6- 4E 54 45 LSR $4554 +5BE9- 52 0D EOR ($0D) +5BEB- 52 49 EOR ($49) +5BED- 47 ??? +5BEE- 48 PHA +5BEF- 54 ??? +5BF0- 0D 06 10 ORA $1006 +5BF3- 00 BRK +5BF4- 64 3C STZ $3C +5BF6- 43 ??? +5BF7- 54 ??? +5BF8- 52 4C EOR ($4C) +5BFA- 2D 53 3E AND $3E53 +5BFD- 0E 14 5B ASL $5B14 +5C00- 43 ??? +5C01- 48 PHA +5C02- 41 4E EOR ($4E,X) +5C04- 47 ??? +5C05- 45 20 EOR $20 +5C07- 53 ??? +5C08- 49 5A EOR #$5A +5C0A- 45 09 EOR $09 +5C0C- 3E 7D 0D ROL $0D7D,X +5C0F- 00 BRK +5C10- 4C 39 7E JMP $7E39 +5C13- 20 00 E0 JSR $E000 +5C16- 06 10 ASL $10 +5C18- 00 BRK +5C19- 44 ??? +5C1A- 3C 43 54 BIT $5443,X +5C1D- 52 4C EOR ($4C) +5C1F- 2D 46 3E AND $3E46 +5C22- 0E 14 5B ASL $5B14 +5C25- 43 ??? +5C26- 48 PHA +5C27- 41 4E EOR ($4E,X) +5C29- 47 ??? +5C2A- 45 20 EOR $20 +5C2C- 46 4F LSR $4F +5C2E- 52 4D EOR ($4D) +5C30- 09 3E ORA #$3E +5C32- 7D 0D 06 ADC $060D,X +5C35- 94 00 STY $00,X +5C37- 4F ??? +5C38- 53 ??? +5C39- 4F ??? +5C3A- 4C 49 44 JMP $4449 +5C3D- 0D 4F 55 ORA $554F +5C40- 54 ??? +5C41- 4C 49 4E JMP $4E49 +5C44- 45 0D EOR $0D +5C46- 33 ??? +5C47- 2D 44 0D AND $0D44 +5C4A- 00 BRK +5C4B- A2 11 LDX #$11 +5C4D- A0 4F LDY #$4F +5C4F- 20 71 7E JSR $7E71 +5C52- A2 11 LDX #$11 +5C54- A0 57 LDY #$57 +5C56- 20 8D 7E JSR $7E8D +5C59- A2 11 LDX #$11 +5C5B- A0 5F LDY #$5F +5C5D- 20 A9 7E JSR $7EA9 +5C60- 20 45 7E JSR $7E45 +5C63- 4C 60 E0 JMP $E060 +5C66- A9 05 LDA #$05 +5C68- A2 8C LDX #$8C +5C6A- D0 04 BNE $5C70 +5C6C- A9 03 LDA #$03 +5C6E- A2 10 LDX #$10 +5C70- 8D 52 7E STA $7E52 +5C73- 8E 54 7E STX $7E54 +5C76- 20 00 E0 JSR $E000 +5C79- 03 ??? +5C7A- 06 00 ASL $00 +5C7C- 00 BRK +5C7D- 90 3C BCC $5CBB +5C7F- 43 ??? +5C80- 54 ??? +5C81- 52 4C EOR ($4C) +5C83- 2D 45 3E AND $3E45 +5C86- 20 20 20 JSR $2020 +5C89- 20 20 45 JSR $4520 +5C8C- 52 41 EOR ($41) +5C8E- 53 ??? +5C8F- 45 20 EOR $20 +5C91- 4C 49 4E JMP $4E49 +5C94- 45 0D EOR $0D +5C96- 00 BRK +5C97- 60 RTS +5C98- 8E 7A 7E STX $7E7A +5C9B- 8C 7B 7E STY $7E7B +5C9E- 20 0C E0 JSR $E00C +5CA1- 00 BRK +5CA2- 00 BRK +5CA3- 02 ??? +5CA4- 07 ??? +5CA5- 7C 1F 7C JMP ($7C1F,X) +5CA8- 1F ??? +5CA9- 7C 1F 7C JMP ($7C1F,X) +5CAC- 1F ??? +5CAD- 7C 1F 7C JMP ($7C1F,X) +5CB0- 1F ??? +5CB1- 7C 1F 60 JMP ($601F,X) +5CB4- 8E 96 7E STX $7E96 +5CB7- 8C 97 7E STY $7E97 +5CBA- 20 0C E0 JSR $E00C +5CBD- 00 BRK +5CBE- 00 BRK +5CBF- 02 ??? +5CC0- 07 ??? +5CC1- 7C 1F 0C JMP ($0C1F,X) +5CC4- 18 CLC +5CC5- 0C 18 0C TSB $0C18 +5CC8- 18 CLC +5CC9- 0C 18 0C TSB $0C18 +5CCC- 18 CLC +5CCD- 7C 1F 60 JMP ($601F,X) +5CD0- 8E B2 7E STX $7EB2 +5CD3- 8C B3 7E STY $7EB3 +5CD6- 20 0C E0 JSR $E00C +5CD9- 00 BRK +5CDA- 00 BRK +5CDB- 02 ??? +5CDC- 07 ??? +5CDD- 1C 1F 36 TRB $361F +5CE0- 33 ??? +5CE1- 30 33 BMI $5D16 +5CE3- 18 CLC +5CE4- 33 ??? +5CE5- 30 33 BMI $5D1A +5CE7- 36 33 ROL $33,X +5CE9- 1C 1F 60 TRB $601F +5CEC- 20 69 E0 JSR $E069 +5CEF- 20 E5 7F JSR $7FE5 +5CF2- 8C F7 7E STY $7EF7 +5CF5- 8D F8 7E STA $7EF8 +5CF8- 20 E5 7F JSR $7FE5 +5CFB- 8C FA 7E STY $7EFA +5CFE- 8D FB 7E STA $7EFB +5D01- 20 E5 7F JSR $7FE5 +5D04- 8C 1C 7F STY $7F1C +5D07- 8D 1D 7F STA $7F1D +5D0A- 20 E5 7F JSR $7FE5 +5D0D- 8C 11 7F STY $7F11 +5D10- 8D 5D 7F STA $7F5D +5D13- 20 E5 7F JSR $7FE5 +5D16- 8C 07 7F STY $7F07 +5D19- 8D 0C 7F STA $7F0C +5D1C- 60 RTS +5D1D- 20 FF FF JSR $FFFF +5D20- 20 FF FF JSR $FFFF +5D23- A4 D5 LDY $D5 +5D25- A5 D6 LDA $D6 +5D27- 8C 0C 8A STY $8A0C +5D2A- 8D 0D 8A STA $8A0D +5D2D- A9 00 LDA #$00 +5D2F- 8D 0A 8A STA $8A0A +5D32- A9 00 LDA #$00 +5D34- 8D 0E 8A STA $8A0E +5D37- A2 00 LDX #$00 +5D39- F0 07 BEQ $5D42 +5D3B- A0 00 LDY #$00 +5D3D- A9 85 LDA #$85 +5D3F- 20 09 0F JSR $0F09 +5D42- 20 FF FF JSR $FFFF +5D45- 20 81 7F JSR $7F81 +5D48- 48 PHA +5D49- A0 FF LDY #$FF +5D4B- C8 INY +5D4C- B1 D5 LDA ($D5),Y +5D4E- D0 FB BNE $5D4B +5D50- 68 PLA +5D51- A2 01 LDX #$01 +5D53- 20 51 E0 JSR $E051 +5D56- 08 PHP +5D57- 70 7F BVS $5DD8 +5D59- 7F ??? +5D5A- 70 7F BVS $5DDB +5D5C- 05 6E ORA $6E +5D5E- 7F ??? +5D5F- 0D 7F 7F ORA $7F7F +5D62- 0A ASL +5D63- 7F ??? +5D64- 7F ??? +5D65- 1B ??? +5D66- 7E 7F 0B ROR $0B7F,X +5D69- 7E 7F 09 ROR $097F,X +5D6C- 7D 7F 13 ADC $137F,X +5D6F- 7C 7F 10 JMP ($107F,X) +5D72- 7B ??? +5D73- 7F ??? +5D74- 06 7A ASL $7A +5D76- 7F ??? +5D77- 40 RTI +5D78- 1E 7F 00 ASL $007F,X +5D7B- C9 20 CMP #$20 +5D7D- 90 C6 BCC $5D45 +5D7F- C9 5B CMP #$5B +5D81- B0 C2 BCS $5D45 +5D83- C0 00 CPY #$00 +5D85- B0 BE BCS $5D45 +5D87- 91 D5 STA ($D5),Y +5D89- C8 INY +5D8A- A9 00 LDA #$00 +5D8C- 91 D5 STA ($D5),Y +5D8E- AD 04 8A LDA $8A04 +5D91- F0 8D BEQ $5D20 +5D93- D0 88 BNE $5D1D +5D95- A0 01 LDY #$01 +5D97- 88 DEY +5D98- 30 AB BMI $5D45 +5D9A- A9 00 LDA #$00 +5D9C- 91 D5 STA ($D5),Y +5D9E- 4C F6 7E JMP $7EF6 +5DA1- E8 INX +5DA2- E8 INX +5DA3- E8 INX +5DA4- E8 INX +5DA5- E8 INX +5DA6- 8A TXA +5DA7- 60 RTS +5DA8- 06 C1 ASL $C1 +5DAA- 20 A4 7F JSR $7FA4 +5DAD- E6 C1 INC $C1 +5DAF- 20 48 E0 JSR $E048 +5DB2- 20 1F E0 JSR $E01F +5DB5- 30 0A BMI $5DC1 +5DB7- C6 4E DEC $4E +5DB9- D0 F7 BNE $5DB2 +5DBB- C6 4F DEC $4F +5DBD- 10 F3 BPL $5DB2 +5DBF- 30 E9 BMI $5DAA +5DC1- 48 PHA +5DC2- 46 C1 LSR $C1 +5DC4- 90 03 BCC $5DC9 +5DC6- 20 A4 7F JSR $7FA4 +5DC9- 68 PLA +5DCA- 60 RTS +5DCB- A9 04 LDA #$04 +5DCD- 8D 03 8A STA $8A03 +5DD0- AD 04 8A LDA $8A04 +5DD3- 48 PHA +5DD4- AD 05 8A LDA $8A05 +5DD7- 48 PHA +5DD8- AD 06 8A LDA $8A06 +5DDB- 48 PHA +5DDC- AD 0A 8A LDA $8A0A +5DDF- 48 PHA +5DE0- A9 00 LDA #$00 +5DE2- 8D 04 8A STA $8A04 +5DE5- 8D 0A 8A STA $8A0A +5DE8- A0 E2 LDY #$E2 +5DEA- A9 7F LDA #$7F +5DEC- 8C 0C 8A STY $8A0C +5DEF- 8D 0D 8A STA $8A0D +5DF2- 20 00 8A JSR $8A00 +5DF5- 68 PLA +5DF6- 8D 0A 8A STA $8A0A +5DF9- 68 PLA +5DFA- 8D 06 8A STA $8A06 +5DFD- 68 PLA +5DFE- 8D 05 8A STA $8A05 +5E01- 68 PLA +5E02- 8D 04 8A STA $8A04 +5E05- 4E 03 8A LSR $8A03 +5E08- 60 RTS +5E09- 49 49 EOR #$49 +5E0B- 00 BRK +5E0C- 20 6C E0 JSR $E06C +5E0F- A8 TAY +5E10- 4C 6C E0 JMP $E06C +5E13- 86 D9 STX $D9 +5E15- A9 00 LDA #$00 +5E17- 85 C0 STA $C0 +5E19- A4 D9 LDY $D9 +5E1B- 88 DEY +5E1C- 20 FF 7B JSR $7BFF +5E1F- 20 C5 7E JSR $7EC5 +5E22- 20 81 58 JSR $5881 +5E25- FF ??? +5E26- 46 81 LSR $81 +5E28- 7E 1E 02 ROR $021E,X +5E2B- 00 BRK +5E2C- A2 47 LDX #$47 +5E2E- A0 00 LDY #$00 +5E30- 86 D0 STX $D0 +5E32- 84 D1 STY $D1 +5E34- A0 36 LDY #$36 +5E36- 84 D2 STY $D2 +5E38- 20 4B 81 JSR $814B +5E3B- 20 48 7D JSR $7D48 +5E3E- A2 0A LDX #$0A +5E40- A0 36 LDY #$36 +5E42- A9 5A LDA #$5A +5E44- 20 D2 7C JSR $7CD2 +5E47- A0 FF LDY #$FF +5E49- 20 03 0F JSR $0F03 +5E4C- A0 00 LDY #$00 +5E4E- 20 9E 80 JSR $809E +5E51- C8 INY +5E52- 90 FA BCC $5E4E +5E54- A4 C0 LDY $C0 +5E56- 84 C0 STY $C0 +5E58- 20 F6 7E JSR $7EF6 +5E5B- 48 PHA +5E5C- A4 C0 LDY $C0 +5E5E- 20 06 0F JSR $0F06 +5E61- 68 PLA +5E62- 20 51 E0 JSR $E051 +5E65- 01 50 ORA ($50,X) +5E67- 80 02 BRA $5E6B +5E69- 58 CLI +5E6A- 80 03 BRA $5E6F +5E6C- D8 CLD +5E6D- 80 04 BRA $5E73 +5E6F- DF ??? +5E70- 80 05 BRA $5E77 +5E72- 7F ??? +5E73- 80 06 BRA $5E7B +5E75- 31 80 AND ($80),Y +5E77- C8 INY +5E78- 20 06 0F JSR $0F06 +5E7B- 90 D9 BCC $5E56 +5E7D- B0 03 BCS $5E82 +5E7F- 88 DEY +5E80- 10 D4 BPL $5E56 +5E82- 20 66 80 JSR $8066 +5E85- B0 1E BCS $5EA5 +5E87- A4 D9 LDY $D9 +5E89- 88 DEY +5E8A- 20 30 7C JSR $7C30 +5E8D- AD 13 D0 LDA $D013 +5E90- C9 D4 CMP #$D4 +5E92- AD 14 D0 LDA $D014 +5E95- E9 DE SBC #$DE +5E97- 90 0C BCC $5EA5 +5E99- A9 00 LDA #$00 +5E9B- 8D 00 96 STA $9600 +5E9E- A4 D9 LDY $D9 +5EA0- 88 DEY +5EA1- 20 65 7B JSR $7B65 +5EA4- 38 SEC +5EA5- 60 RTS +5EA6- BD 00 97 LDA $9700,X +5EA9- 48 PHA +5EAA- 29 06 AND #$06 +5EAC- 18 CLC +5EAD- 69 02 ADC #$02 +5EAF- C9 06 CMP #$06 +5EB1- D0 02 BNE $5EB5 +5EB3- A9 00 LDA #$00 +5EB5- 85 D3 STA $D3 +5EB7- 68 PLA +5EB8- 29 F9 AND #$F9 +5EBA- 05 D3 ORA $D3 +5EBC- 9D 00 97 STA $9700,X +5EBF- 20 9E 80 JSR $809E +5EC2- 4C 31 80 JMP $8031 +5EC5- 8C D3 80 STY $80D3 +5EC8- 20 39 81 JSR $8139 +5ECB- B0 2C BCS $5EF9 +5ECD- BD 00 97 LDA $9700,X +5ED0- 4A LSR +5ED1- 29 03 AND #$03 +5ED3- A8 TAY +5ED4- B9 D5 80 LDA $80D5,Y +5ED7- 8D C7 80 STA $80C7 +5EDA- A4 C2 LDY $C2 +5EDC- 8C C0 80 STY $80C0 +5EDF- 8C C6 80 STY $80C6 +5EE2- 20 00 E0 JSR $E000 +5EE5- 0F ??? +5EE6- 1E 00 02 ASL $0200,X +5EE9- 08 PHP +5EEA- 06 D8 ASL $D8 +5EEC- 00 BRK +5EED- 00 BRK +5EEE- 20 0D 00 JSR $000D +5EF1- A2 08 LDX #$08 +5EF3- A4 C2 LDY $C2 +5EF5- 20 71 7E JSR $7E71 +5EF8- 18 CLC +5EF9- A0 00 LDY #$00 +5EFB- 60 RTS +5EFC- 4C 43 52 JMP $5243 +5EFF- 18 CLC +5F00- 20 72 7D JSR $7D72 +5F03- 4C 11 80 JMP $8011 +5F06- BD 00 97 LDA $9700,X +5F09- 49 01 EOR #$01 +5F0B- 9D 00 97 STA $9700,X +5F0E- A5 C0 LDA $C0 +5F10- 48 PHA +5F11- 38 SEC +5F12- 84 C0 STY $C0 +5F14- 08 PHP +5F15- 20 20 81 JSR $8120 +5F18- 28 PLP +5F19- B0 03 BCS $5F1E +5F1B- 20 46 81 JSR $8146 +5F1E- A4 C2 LDY $C2 +5F20- 8C 04 81 STY $8104 +5F23- 8C 09 81 STY $8109 +5F26- 20 00 E0 JSR $E000 +5F29- 0F ??? +5F2A- 08 PHP +5F2B- 00 BRK +5F2C- 02 ??? +5F2D- 10 0F BPL $5F3E +5F2F- 1E 00 02 ASL $0200,X +5F32- 10 00 BPL $5F34 +5F34- A4 C0 LDY $C0 +5F36- 20 9E 80 JSR $809E +5F39- A4 C0 LDY $C0 +5F3B- C8 INY +5F3C- 20 06 0F JSR $0F06 +5F3F- 90 D1 BCC $5F12 +5F41- 68 PLA +5F42- 85 C0 STA $C0 +5F44- 4C 31 80 JMP $8031 +5F47- A4 C0 LDY $C0 +5F49- 20 39 81 JSR $8139 +5F4C- 8D 33 81 STA $8133 +5F4F- 48 PHA +5F50- A5 D4 LDA $D4 +5F52- 8D 35 81 STA $8135 +5F55- 20 00 E0 JSR $E000 +5F58- 0F ??? +5F59- 0B ??? +5F5A- 00 BRK +5F5B- 12 00 ORA ($00) +5F5D- 00 BRK +5F5E- 68 PLA +5F5F- 60 RTS +5F60- 20 06 0F JSR $0F06 +5F63- B0 07 BCS $5F6C +5F65- A5 D3 LDA $D3 +5F67- 18 CLC +5F68- 69 4E ADC #$4E +5F6A- 85 C2 STA $C2 +5F6C- 60 RTS +5F6D- A4 C0 LDY $C0 +5F6F- 4C 03 0F JMP $0F03 +5F72- 20 72 E0 JSR $E072 +5F75- 20 00 E0 JSR $E000 +5F78- 05 06 ORA $06 +5F7A- 8C 00 1A STY $1A00 +5F7D- 4E 4F 57 LSR $574F +5F80- 20 54 59 JSR $5954 +5F83- 50 45 BVC $5FCA +5F85- 20 49 4E JSR $4E49 +5F88- 20 59 4F JSR $4F59 +5F8B- 55 52 EOR $52,X +5F8D- 0D 45 56 ORA $5645 +5F90- 45 4E EOR $4E +5F92- 54 ??? +5F93- 53 ??? +5F94- 20 41 4E JSR $4E41 +5F97- 44 ??? +5F98- 20 52 45 JSR $4552 +5F9B- 4D 49 4E EOR $4E49 +5F9E- 44 ??? +5F9F- 45 52 EOR $52 +5FA1- 53 ??? +5FA2- 3A DEC +5FA3- 0D 00 60 ORA $6000 +5FA6- 8A TXA +5FA7- 0A ASL +5FA8- 0A ASL +5FA9- 8D 1A 82 STA $821A +5FAC- 18 CLC +5FAD- 8A TXA +5FAE- 6D 0C D0 ADC $D00C +5FB1- C9 07 CMP #$07 +5FB3- 90 02 BCC $5FB7 +5FB5- E9 07 SBC #$07 +5FB7- A8 TAY +5FB8- 8A TXA +5FB9- 18 CLC +5FBA- 6D 0A D0 ADC $D00A +5FBD- CD 0D D0 CMP $D00D +5FC0- 90 07 BCC $5FC9 +5FC2- F0 05 BEQ $5FC9 +5FC4- ED 0D D0 SBC $D00D +5FC7- EA NOP +5FC8- EA NOP +5FC9- 85 D9 STA $D9 +5FCB- 20 7F 7C JSR $7C7F +5FCE- 20 5E 7C JSR $7C5E +5FD1- 20 C5 7E JSR $7EC5 +5FD4- 28 PLP +5FD5- 82 ??? +5FD6- 58 CLI +5FD7- FF ??? +5FD8- 4C 82 EE JMP $EE82 +5FDB- 64 01 STZ $01 +5FDD- 01 20 ORA ($20,X) +5FDF- 4B ??? +5FE0- 81 20 STA ($20,X) +5FE2- 00 BRK +5FE3- E0 05 CPX #$05 +5FE5- 06 8C ASL $8C +5FE7- 00 BRK +5FE8- 3A DEC +5FE9- 09 4A ORA #$4A +5FEB- 7A PLY +5FEC- 20 09 54 JSR $5409 +5FEF- 7A PLY +5FF0- 0D 00 A2 ORA $A200 +5FF3- 02 ??? +5FF4- A0 47 LDY #$47 +5FF6- A9 29 LDA #$29 +5FF8- 20 D2 7C JSR $7CD2 +5FFB- 20 3F 7E JSR $7E3F +5FFE- A0 03 LDY #$03 +6000- 84 C0 STY $C0 +6002- 20 15 82 JSR $8215 +6005- 20 28 82 JSR $8228 +6008- 20 4C 82 JSR $824C +600B- A4 C0 LDY $C0 +600D- 88 DEY +600E- D0 F0 BNE $6000 +6010- 84 C0 STY $C0 +6012- 20 15 82 JSR $8215 +6015- 20 F6 7E JSR $7EF6 +6018- 20 51 E0 JSR $E051 +601B- 01 FE ORA ($FE,X) +601D- 81 02 STA ($02,X) +601F- 00 BRK +6020- 82 ??? +6021- 00 BRK +6022- 4C EE 81 JMP $81EE +6025- 18 CLC +6026- 24 38 BIT $38 +6028- 08 PHP +6029- 20 17 82 JSR $8217 +602C- 28 PLP +602D- A4 C0 LDY $C0 +602F- 90 04 BCC $6035 +6031- 88 DEY +6032- 10 DC BPL $6010 +6034- 60 RTS +6035- C8 INY +6036- C0 04 CPY #$04 +6038- 90 D6 BCC $6010 +603A- 18 CLC +603B- 60 RTS +603C- 18 CLC +603D- 24 38 BIT $38 +603F- 08 PHP +6040- A9 00 LDA #$00 +6042- 18 CLC +6043- 65 C0 ADC $C0 +6045- A8 TAY +6046- 28 PLP +6047- B0 03 BCS $604C +6049- 4C 4D 7B JMP $7B4D +604C- 4C 65 7B JMP $7B65 +604F- 20 44 82 JSR $8244 +6052- 8D 33 82 STA $8233 +6055- 20 00 E0 JSR $E000 +6058- 0F ??? +6059- 03 ??? +605A- 00 BRK +605B- 22 ??? +605C- 07 ??? +605D- 16 01 ASL $01,X +605F- 12 01 ORA ($01) +6061- 00 BRK +6062- A0 00 LDY #$00 +6064- A9 96 LDA #$96 +6066- 84 D5 STY $D5 +6068- 85 D6 STA $D6 +606A- 60 RTS +606B- A5 C0 LDA $C0 +606D- 0A ASL +606E- 0A ASL +606F- 0A ASL +6070- 69 4C ADC #$4C +6072- 60 RTS +6073- 20 44 82 JSR $8244 +6076- A2 15 LDX #$15 +6078- A0 00 LDY #$00 +607A- 8E 05 8A STX $8A05 +607D- A2 00 LDX #$00 +607F- 8E 06 8A STX $8A06 +6082- E8 INX +6083- 8E 0A 8A STX $8A0A +6086- 8C 04 8A STY $8A04 +6089- 8D 07 8A STA $8A07 +608C- A4 D5 LDY $D5 +608E- A5 D6 LDA $D6 +6090- 8C 0C 8A STY $8A0C +6093- 8D 0D 8A STA $8A0D +6096- 4C 00 8A JMP $8A00 +6099- AD 0E D0 LDA $D00E +609C- 49 03 EOR #$03 +609E- F0 1E BEQ $60BE +60A0- 20 C5 7E JSR $7EC5 +60A3- 5B ??? +60A4- 83 ??? +60A5- 64 83 STZ $83 +60A7- 80 83 BRA $602C +60A9- EE 3E 01 INC $013E +60AC- 01 20 ORA ($20,X) +60AE- 98 TYA +60AF- 82 ??? +60B0- A0 1F LDY #$1F +60B2- 20 DE 82 JSR $82DE +60B5- B0 07 BCS $60BE +60B7- A0 20 LDY #$20 +60B9- 20 DE 82 JSR $82DE +60BC- B0 F2 BCS $60B0 +60BE- 60 RTS +60BF- 20 72 E0 JSR $E072 +60C2- A0 38 LDY #$38 +60C4- A9 1F LDA #$1F +60C6- 20 C7 82 JSR $82C7 +60C9- A0 67 LDY #$67 +60CB- A9 20 LDA #$20 +60CD- 20 C7 82 JSR $82C7 +60D0- 20 00 E0 JSR $E000 +60D3- 05 08 ORA $08 +60D5- 06 8C ASL $8C +60D7- 00 BRK +60D8- 25 4C AND $4C +60DA- 49 4E EOR #$4E +60DC- 45 20 EOR $20 +60DE- 31 0D AND ($0D),Y +60E0- 07 ??? +60E1- 0C 5B 4C TSB $4C5B +60E4- 49 4E EOR #$4E +60E6- 45 20 EOR $20 +60E8- 32 0D AND ($0D) +60EA- 00 BRK +60EB- 4C 48 7D JMP $7D48 +60EE- 85 C0 STA $C0 +60F0- A2 02 LDX #$02 +60F2- A9 0F LDA #$0F +60F4- 20 D2 7C JSR $7CD2 +60F7- A4 C0 LDY $C0 +60F9- 20 4D 7B JSR $7B4D +60FC- 20 28 83 JSR $8328 +60FF- 20 5B 83 JSR $835B +6102- 4C 80 83 JMP $8380 +6105- 84 C0 STY $C0 +6107- A4 C0 LDY $C0 +6109- 20 4D 7B JSR $7B4D +610C- 20 F6 7E JSR $7EF6 +610F- 48 PHA +6110- A4 C0 LDY $C0 +6112- 20 65 7B JSR $7B65 +6115- 68 PLA +6116- 20 51 E0 JSR $E051 +6119- 01 11 ORA ($11,X) +611B- 83 ??? +611C- 02 ??? +611D- 13 ??? +611E- 83 ??? +611F- 03 ??? +6120- 02 ??? +6121- 83 ??? +6122- 06 15 ASL $15 +6124- 83 ??? +6125- 00 BRK +6126- 4C E5 82 JMP $82E5 +6129- A5 C0 LDA $C0 +612B- 48 PHA +612C- 38 SEC +612D- 20 72 7D JSR $7D72 +6130- 20 98 82 JSR $8298 +6133- 68 PLA +6134- A8 TAY +6135- 4C DE 82 JMP $82DE +6138- 18 CLC +6139- 60 RTS +613A- 38 SEC +613B- 60 RTS +613C- AE 00 96 LDX $9600 +613F- E8 INX +6140- E0 83 CPX #$83 +6142- D0 02 BNE $6146 +6144- A2 80 LDX #$80 +6146- 8E 00 96 STX $9600 +6149- 20 28 83 JSR $8328 +614C- 4C E5 82 JMP $82E5 +614F- 20 45 83 JSR $8345 +6152- 38 SEC +6153- E9 0E SBC #$0E +6155- A8 TAY +6156- A2 02 LDX #$02 +6158- AD 00 96 LDA $9600 +615B- C9 81 CMP #$81 +615D- F0 07 BEQ $6166 +615F- C9 82 CMP #$82 +6161- F0 06 BEQ $6169 +6163- 4C 71 7E JMP $7E71 +6166- 4C 8D 7E JMP $7E8D +6169- 4C A9 7E JMP $7EA9 +616C- A4 C0 LDY $C0 +616E- B9 36 83 LDA $8336,Y +6171- 48 PHA +6172- B9 38 83 LDA $8338,Y +6175- AA TAX +6176- B9 3A 83 LDA $833A,Y +6179- A8 TAY +617A- 68 PLA +617B- 60 RTS +617C- 3C 6B D6 BIT $D66B,X +617F- AC 01 03 LDY $0301 +6182- 20 45 83 JSR $8345 +6185- 20 2B 82 JSR $822B +6188- E6 D5 INC $D5 +618A- 60 RTS +618B- A9 03 LDA #$03 +618D- 8D 0A 8A STA $8A0A +6190- A4 D5 LDY $D5 +6192- A5 D6 LDA $D6 +6194- 8C 0C 8A STY $8A0C +6197- 8D 0D 8A STA $8A0D +619A- 20 45 83 JSR $8345 +619D- A9 60 LDA #$60 +619F- 20 09 0F JSR $0F09 +61A2- A9 85 LDA #$85 +61A4- 4C 15 8A JMP $8A15 +61A7- 20 45 83 JSR $8345 +61AA- A2 8C LDX #$8C +61AC- A0 02 LDY #$02 +61AE- 4C 53 82 JMP $8253 +61B1- 20 C5 7E JSR $7EC5 +61B4- 06 40 ASL $40 +61B6- 58 CLI +61B7- FF ??? +61B8- 09 40 ORA #$40 +61BA- 00 BRK +61BB- 80 02 BRA $61BF +61BD- 00 BRK +61BE- 20 3F 7E JSR $7E3F +61C1- A0 21 LDY #$21 +61C3- 20 4D 7B JSR $7B4D +61C6- A0 00 LDY #$00 +61C8- 84 DA STY $DA +61CA- 20 F6 7E JSR $7EF6 +61CD- 20 51 E0 JSR $E051 +61D0- 01 B3 ORA ($B3,X) +61D2- 83 ??? +61D3- 02 ??? +61D4- B5 83 LDA $83,X +61D6- 00 BRK +61D7- 4C A3 83 JMP $83A3 +61DA- 18 CLC +61DB- 24 38 BIT $38 +61DD- 08 PHP +61DE- A0 21 LDY #$21 +61E0- 20 65 7B JSR $7B65 +61E3- 28 PLP +61E4- 60 RTS +61E5- 00 BRK +61E6- 00 BRK diff --git a/PSC Source Disk 4 - Fastload - Copy Protection - Title Page (v13)/CLEARMEM.txt b/PSC Source Disk 4 - Fastload - Copy Protection - Title Page (v13)/CLEARMEM.txt new file mode 100644 index 0000000..f2b1af5 --- /dev/null +++ b/PSC Source Disk 4 - Fastload - Copy Protection - Title Page (v13)/CLEARMEM.txt @@ -0,0 +1,24 @@ +0300- A0 00 LDY #$00 +0302- 98 TYA +0303- A2 80 LDX #$80 +0305- 99 00 10 STA $1000,Y +0308- C8 INY +0309- D0 FA BNE $0305 +030B- EE 07 03 INC $0307 +030E- CA DEX +030F- D0 F4 BNE $0305 +0311- 60 RTS +0312- 00 BRK +0313- 00 BRK +0314- 00 BRK +0315- 00 BRK +0316- 00 BRK +0317- 00 BRK +0318- 00 BRK +0319- 00 BRK +031A- 00 BRK +031B- 00 BRK +031C- 00 BRK +031D- 00 BRK +031E- 00 BRK +031F- 00 BRK diff --git a/PSC Source Disk 4 - Fastload - Copy Protection - Title Page (v13)/COMPANION.PIC.bmp b/PSC Source Disk 4 - Fastload - Copy Protection - Title Page (v13)/COMPANION.PIC.bmp new file mode 100644 index 0000000..249f6d9 Binary files /dev/null and b/PSC Source Disk 4 - Fastload - Copy Protection - Title Page (v13)/COMPANION.PIC.bmp differ diff --git a/PSC Source Disk 4 - Fastload - Copy Protection - Title Page (v13)/CONFIG.WELCOME.txt b/PSC Source Disk 4 - Fastload - Copy Protection - Title Page (v13)/CONFIG.WELCOME.txt new file mode 100644 index 0000000..887dc4c --- /dev/null +++ b/PSC Source Disk 4 - Fastload - Copy Protection - Title Page (v13)/CONFIG.WELCOME.txt @@ -0,0 +1,13 @@ +95F0- 01 01 ORA ($01,X) +95F2- 01 06 ORA ($06,X) +95F4- 01 00 ORA ($00,X) +95F6- 00 BRK +95F7- 00 BRK +95F8- 00 BRK +95F9- 00 BRK +95FA- 00 BRK +95FB- 00 BRK +95FC- 00 BRK +95FD- 00 BRK +95FE- 00 BRK +95FF- 00 BRK diff --git a/PSC Source Disk 4 - Fastload - Copy Protection - Title Page (v13)/CTITLE.txt b/PSC Source Disk 4 - Fastload - Copy Protection - Title Page (v13)/CTITLE.txt new file mode 100644 index 0000000..ce38bec --- /dev/null +++ b/PSC Source Disk 4 - Fastload - Copy Protection - Title Page (v13)/CTITLE.txt @@ -0,0 +1,1378 @@ +4000- A2 00 LDX #$00 +4002- 8A TXA +4003- 48 PHA +4004- 29 C0 AND #$C0 +4006- 85 85 STA $85 +4008- 4A LSR +4009- 4A LSR +400A- 05 85 ORA $85 +400C- 85 85 STA $85 +400E- 68 PLA +400F- 85 86 STA $86 +4011- 0A ASL +4012- 0A ASL +4013- 0A ASL +4014- 26 86 ROL $86 +4016- 0A ASL +4017- 26 86 ROL $86 +4019- 0A ASL +401A- 66 85 ROR $85 +401C- A5 86 LDA $86 +401E- 29 1F AND #$1F +4020- 09 20 ORA #$20 +4022- 9D 00 1F STA $1F00,X +4025- A5 85 LDA $85 +4027- 9D 00 1E STA $1E00,X +402A- E8 INX +402B- E0 C0 CPX #$C0 +402D- 90 D3 BCC $4002 +402F- A0 89 LDY #$89 +4031- A9 90 LDA #$90 +4033- 84 81 STY $81 +4035- 85 82 STA $82 +4037- A2 00 LDX #$00 +4039- A0 00 LDY #$00 +403B- BD 00 1E LDA $1E00,X +403E- 85 84 STA $84 +4040- BD 00 1F LDA $1F00,X +4043- 85 85 STA $85 +4045- 20 59 90 JSR $9059 +4048- 29 7F AND #$7F +404A- 91 84 STA ($84),Y +404C- E8 INX +404D- E0 C0 CPX #$C0 +404F- 90 EA BCC $403B +4051- A2 00 LDX #$00 +4053- C8 INY +4054- C0 28 CPY #$28 +4056- 90 E3 BCC $403B +4058- 60 RTS +4059- A9 00 LDA #$00 +405B- 10 09 BPL $4066 +405D- C6 83 DEC $83 +405F- D0 0A BNE $406B +4061- 4E 5A 90 LSR $905A +4064- 10 05 BPL $406B +4066- 20 77 90 JSR $9077 +4069- 30 01 BMI $406C +406B- 60 RTS +406C- 8D 5A 90 STA $905A +406F- 20 77 90 JSR $9077 +4072- 85 83 STA $83 +4074- 4C 59 90 JMP $9059 +4077- 8C 85 90 STY $9085 +407A- A0 00 LDY #$00 +407C- B1 81 LDA ($81),Y +407E- E6 81 INC $81 +4080- D0 02 BNE $4084 +4082- E6 82 INC $82 +4084- A0 00 LDY #$00 +4086- 29 FF AND #$FF +4088- 60 RTS +4089- 80 FF BRA $408A +408B- 80 FF BRA $408C +408D- 80 44 BRA $40D3 +408F- 18 CLC +4090- 78 SEI +4091- 18 CLC +4092- B0 02 BCS $4096 +4094- E0 03 CPX #$03 +4096- C0 02 CPY #$02 +4098- 80 5A BRA $40F4 +409A- C0 02 CPY #$02 +409C- 80 58 BRA $40F6 +409E- C0 02 CPY #$02 +40A0- 78 SEI +40A1- 40 RTI +40A2- 43 ??? +40A3- 7C 80 04 JMP ($0480,X) +40A6- 81 02 STA ($02,X) +40A8- 7F ??? +40A9- 80 45 BRA $40F0 +40AB- FE 02 7C INC $7C02,X +40AE- F0 12 BEQ $40C2 +40B0- FF ??? +40B1- 02 ??? +40B2- F0 07 BEQ $40BB +40B4- 78 SEI +40B5- 7E 7C 80 ROR $807C,X +40B8- 0C C0 02 TSB $02C0 +40BB- E0 03 CPX #$03 +40BD- F0 06 BEQ $40C5 +40BF- E0 03 CPX #$03 +40C1- C0 02 CPY #$02 +40C3- 80 31 BRA $40F6 +40C5- 81 02 STA ($02,X) +40C7- 0F ??? +40C8- 01 61 ORA ($61,X) +40CA- 1F ??? +40CB- 80 04 BRA $40D1 +40CD- C0 02 CPY #$02 +40CF- 7F ??? +40D0- 40 RTI +40D1- 80 44 BRA $4117 +40D3- FF ??? +40D4- 03 ??? +40D5- 81 05 STA ($05,X) +40D7- 41 21 EOR ($21,X) +40D9- 11 49 ORA ($49),Y +40DB- 25 13 AND $13 +40DD- 09 05 ORA #$05 +40DF- 03 ??? +40E0- 01 41 ORA ($41,X) +40E2- 71 7F ADC ($7F),Y +40E4- 1F ??? +40E5- 03 ??? +40E6- 81 09 STA ($09,X) +40E8- 80 09 BRA $40F3 +40EA- 40 RTI +40EB- 78 SEI +40EC- 7E FF 12 ROR $12FF,X +40EF- 7E 78 40 ROR $4078,X +40F2- 80 2F BRA $4123 +40F4- 0C 0F 0C TSB $0C0F +40F7- 86 02 STX $02 +40F9- 83 ??? +40FA- 03 ??? +40FB- 01 41 ORA ($41,X) +40FD- 07 ??? +40FE- 19 63 03 ORA $0363,Y +4101- 86 03 STX $03 +4103- 8C 02 78 STY $7802 +4106- 80 3C BRA $4144 +4108- 07 ??? +4109- 1F ??? +410A- 3F ??? +410B- 7E FC 02 ROR $02FC,X +410E- 7A PLY +410F- 79 7C 7A ADC $7A7C,Y +4112- 79 F8 02 ADC $02F8,Y +4115- FC ??? +4116- 02 ??? +4117- BE 02 1F LDX $1F02,Y +411A- 0F ??? +411B- 03 ??? +411C- 80 15 BRA $4133 +411E- 1F ??? +411F- 70 80 BVS $40A1 +4121- 14 70 TRB $70 +4123- 1F ??? +4124- 80 36 BRA $415C +4126- 8C 02 7F STY $7F02 +4129- 8C 02 7F STY $7F02 +412C- 80 06 BRA $4134 +412E- 7F ??? +412F- 80 3C BRA $416D +4131- E0 02 CPX #$02 +4133- 40 RTI +4134- 80 02 BRA $4138 +4136- 81 04 STA ($04,X) +4138- 71 79 ADC ($79),Y +413A- 99 02 30 STA $3002,Y +413D- 80 0B BRA $414A +413F- 40 RTI +4140- E0 02 CPX #$02 +4142- 80 0E BRA $4152 +4144- 01 07 ORA ($07,X) +4146- 0C 18 00 TSB $0018 +4149- C0 03 CPY #$03 +414B- E0 06 CPX #$06 +414D- C0 03 CPY #$03 +414F- 00 BRK +4150- 18 CLC +4151- 0C 07 01 TSB $0107 +4154- 80 30 BRA $4186 +4156- 0C 3C 4C TSB $4C3C +4159- 98 TYA +415A- 02 ??? +415B- B0 03 BCS $4160 +415D- E0 02 CPX #$02 +415F- 78 SEI +4160- 66 31 ROR $31 +4162- 30 98 BMI $40FC +4164- 03 ??? +4165- 8C 02 07 STY $0702 +4168- 80 3C BRA $41A6 +416A- FF ??? +416B- 03 ??? +416C- 9E 06 FF STZ $FF06,X +416F- 02 ??? +4170- 9E 07 5E STZ $5E07,X +4173- 3E 1E 5E ROL $5E1E,X +4176- 3E 9E 02 ROL $029E,X +4179- FF ??? +417A- 03 ??? +417B- 80 0E BRA $418B +417D- 70 7C BVS $41FB +417F- 7E FF 10 ROR $10FF,X +4182- 7E 7C 70 ROR $707C,X +4185- 80 17 BRA $419E +4187- 7E C6 02 ROR $02C6,X +418A- 7E C6 02 ROR $02C6,X +418D- 7E 80 10 ROR $1080,X +4190- E0 02 CPX #$02 +4192- 7C 60 61 JMP ($6160,X) +4195- 7E 80 06 ROR $0680,X +4198- 7F ??? +4199- 80 45 BRA $41E0 +419B- FF ??? +419C- 03 ??? +419D- 40 RTI +419E- 80 03 BRA $41A3 +41A0- 40 RTI +41A1- 60 RTS +41A2- FF ??? +41A3- 02 ??? +41A4- F0 03 BEQ $41A9 +41A6- 78 SEI +41A7- 64 72 STZ $72 +41A9- 69 64 ADC #$64 +41AB- 62 ??? +41AC- 41 C0 EOR ($C0,X) +41AE- 02 ??? +41AF- 80 03 BRA $41B4 +41B1- 81 02 STA ($02,X) +41B3- 80 0D BRA $41C2 +41B5- 3F ??? +41B6- 61 81 ADC ($81,X) +41B8- 14 61 TRB $61 +41BA- 3F ??? +41BB- 80 16 BRA $41D3 +41BD- 0C 19 71 TSB $7119 +41C0- 60 RTS +41C1- E1 02 SBC ($02,X) +41C3- 60 RTS +41C4- 80 09 BRA $41CF +41C6- 60 RTS +41C7- B0 03 BCS $41CC +41C9- 70 B0 BVS $417B +41CB- 02 ??? +41CC- 80 02 BRA $41D0 +41CE- 07 ??? +41CF- 40 RTI +41D0- 30 0F BMI $41E1 +41D2- 00 BRK +41D3- C0 03 CPY #$03 +41D5- E0 02 CPX #$02 +41D7- 3F ??? +41D8- 80 45 BRA $421F +41DA- 03 ??? +41DB- 0F ??? +41DC- 1F ??? +41DD- BF ??? +41DE- 05 1F ORA $1F +41E0- 07 ??? +41E1- 81 05 STA ($05,X) +41E3- 83 ??? +41E4- 05 87 ORA $87 +41E6- 03 ??? +41E7- 8F ??? +41E8- 03 ??? +41E9- 9E 02 BE STZ $BE02,X +41EC- 02 ??? +41ED- FC ??? +41EE- 02 ??? +41EF- 78 SEI +41F0- 70 80 BVS $4172 +41F2- 08 PHP +41F3- 03 ??? +41F4- 0E 18 B0 ASL $B018 Dvx: xprint_path +41F7- 02 ??? +41F8- E0 03 CPX #$03 +41FA- C0 06 CPY #$06 +41FC- E0 03 CPX #$03 +41FE- B0 02 BCS $4202 +4200- 18 CLC +4201- 0E 03 80 ASL $8003 +4204- 17 ??? +4205- 06 03 ASL $03 +4207- 01 80 ORA ($80,X) +4209- 0D 47 CC ORA $CC47 +420C- 03 ??? +420D- 4F ??? +420E- CC 02 80 CPY $8002 +4211- 02 ??? +4212- 06 07 ASL $07 +4214- 06 83 ASL $83 +4216- 02 ??? +4217- 81 03 STA ($03,X) +4219- 80 48 BRA $4263 +421B- FF ??? +421C- 02 ??? +421D- 7E F8 16 ROR $16F8,X +4220- 7E FF 02 ROR $02FF,X +4223- 80 02 BRA $4227 +4225- 83 ??? +4226- 02 ??? +4227- 01 80 ORA ($80,X) +4229- 08 PHP +422A- C0 04 CPY #$04 +422C- E0 04 CPX #$04 +422E- 70 71 BVS $42A1 +4230- B1 02 LDA ($02),Y +4232- 99 03 18 STA $1803,Y +4235- 8C 04 86 STY $8604 +4238- 04 80 TSB $80 +423A- 16 78 ASL $78,X +423C- 98 TYA +423D- 02 ??? +423E- 78 SEI +423F- 58 CLI +4240- 98 TYA +4241- 02 ??? +4242- 80 09 BRA $424D +4244- 81 06 STA ($06,X) +4246- 1F ??? +4247- 80 52 BRA $429B +4249- E7 ??? +424A- 02 ??? +424B- 43 ??? +424C- 80 0A BRA $4258 +424E- C0 03 CPY #$03 +4250- E0 05 CPX #$05 +4252- C0 03 CPY #$03 +4254- 00 BRK +4255- 03 ??? +4256- 87 ??? +4257- 02 ??? +4258- 80 0E BRA $4268 +425A- 01 03 ORA ($03,X) +425C- 07 ??? +425D- 0F ??? +425E- 1F ??? +425F- 3F ??? +4260- FF ??? +4261- 04 7E TSB $7E +4263- 7C 78 70 JMP ($7078,X) +4266- 60 RTS +4267- 40 RTI +4268- 80 14 BRA $427E +426A- 78 SEI +426B- 8C 05 78 STY $7805 +426E- 80 02 BRA $4272 +4270- 43 ??? +4271- E6 02 INC $02 +4273- 63 ??? +4274- 61 63 ADC ($63,X) +4276- 46 80 LSR $80 +4278- 09 83 ORA #$83 +427A- 06 3F ASL $3F +427C- 00 BRK +427D- C0 0A CPY #$0A +427F- 80 47 BRA $42C8 +4281- FF ??? +4282- 03 ??? +4283- FC ??? +4284- 02 ??? +4285- 5C ??? +4286- 1C 8E 03 TRB $038E +4289- 87 ??? +428A- 03 ??? +428B- 03 ??? +428C- 43 ??? +428D- 23 ??? +428E- 11 49 ORA ($49),Y +4290- 25 13 AND $13 +4292- 09 07 ORA #$07 +4294- 83 ??? +4295- 02 ??? +4296- 07 ??? +4297- 4E 7E 7C LSR $7C7E +429A- 78 SEI +429B- 80 14 BRA $42B1 +429D- 01 03 ORA ($03,X) +429F- 47 ??? +42A0- 6F ??? +42A1- 3F ??? +42A2- 1F ??? +42A3- 0F ??? +42A4- 07 ??? +42A5- 03 ??? +42A6- 01 80 ORA ($80,X) +42A8- 13 ??? +42A9- 61 33 ADC ($33,X) +42AB- B0 03 BCS $42B0 +42AD- 33 ??? +42AE- 61 80 ADC ($80,X) +42B0- 02 ??? +42B1- 0F ??? +42B2- 98 TYA +42B3- 05 0F ORA $0F +42B5- 80 09 BRA $42C0 +42B7- C0 07 CPY #$07 +42B9- 1F ??? +42BA- B1 03 LDA ($03),Y +42BC- 1F ??? +42BD- B1 05 LDA ($05),Y +42BF- 1F ??? +42C0- 80 19 BRA $42DB +42C2- 40 RTI +42C3- 80 2D BRA $42F2 +42C5- 41 43 EOR ($43,X) +42C7- 07 ??? +42C8- 0F ??? +42C9- 1F ??? +42CA- 3F ??? +42CB- 7F ??? +42CC- 7E 7C F8 ROR $F87C,X +42CF- 02 ??? +42D0- 64 52 STZ $52 +42D2- 09 04 ORA #$04 +42D4- 02 ??? +42D5- 01 80 ORA ($80,X) +42D7- 06 02 ASL $02 +42D9- 87 ??? +42DA- 03 ??? +42DB- 03 ??? +42DC- 01 80 ORA ($80,X) +42DE- 0F ??? +42DF- 40 RTI +42E0- 60 RTS +42E1- 70 78 BVS $435B +42E3- 7C 7E 7F JMP ($7F7E,X) +42E6- 7D 7C F8 ADC $F87C,X +42E9- 04 F0 TSB $F0 +42EB- 04 E0 TSB $E0 +42ED- 04 80 TSB $80 +42EF- 0D 47 CC ORA $CC47 +42F2- 05 47 ORA $47 +42F4- 80 02 BRA $42F8 +42F6- 83 ??? +42F7- 06 3F ASL $3F +42F9- 80 09 BRA $4304 +42FB- 1F ??? +42FC- B1 02 LDA ($02),Y +42FE- 1F ??? +42FF- 0D 19 31 ORA $3119 +4302- 80 04 BRA $4308 +4304- 38 SEC +4305- 0C C6 03 TSB $03C6 +4308- 86 02 STX $02 +430A- 80 02 BRA $430E +430C- 7C 06 83 JMP ($8306,X) +430F- 02 ??? +4310- 06 1C ASL $1C +4312- 30 E0 BMI $42F4 +4314- 02 ??? +4315- 30 1F BMI $4336 +4317- 80 0C BRA $4325 +4319- 03 ??? +431A- 7F ??? +431B- 7E 7C 3C ROR $3C7C,X +431E- 1C 0C 06 TRB $060C +4321- 66 C6 ROR $C6 +4323- 02 ??? +4324- 7C 38 80 JMP ($8038,X) +4327- 21 FF AND ($FF,X) +4329- 03 ??? +432A- 9C 04 1D STZ $1D04 +432D- 9F ??? +432E- 06 1E ASL $1E +4330- 9C 0E 80 STZ $800E +4333- 0C 04 06 TSB $0604 +4336- 87 ??? +4337- 02 ??? +4338- 8F ??? +4339- 04 9F TSB $9F +433B- 04 BF TSB $BF +433D- 04 FF TSB $FF +433F- 08 PHP +4340- 80 0D BRA $434F +4342- 1F ??? +4343- B1 02 LDA ($02),Y +4345- 1F ??? +4346- 81 03 STA ($03,X) +4348- 80 02 BRA $434C +434A- 7C C6 03 JMP ($03C6,X) +434D- 7E C6 02 ROR $02C6,X +4350- 80 09 BRA $435B +4352- 46 E6 LSR $E6 +4354- 05 46 ORA $46 +4356- 80 04 BRA $435C +4358- 0E 03 B1 ASL $B103 +435B- 03 ??? +435C- 18 CLC +435D- 0E 80 06 ASL $0680 +4360- 70 58 BVS $43BA +4362- 8C 03 58 STY $5803 +4365- 70 80 BVS $42E7 +4367- 0D FF 03 ORA $03FF +436A- F8 SED +436B- 05 F9 ORA $F9 +436D- 02 ??? +436E- F8 SED +436F- 0F ??? +4370- 7E FF 02 ROR $02FF,X +4373- 80 0F BRA $4384 +4375- 0C 1C 79 TSB $791C +4378- 71 E0 ADC ($E0),Y +437A- 04 B0 TSB $B0 +437C- 04 60 TSB $60 +437E- 40 RTI +437F- 80 1D BRA $439E +4381- F8 SED +4382- 14 F9 TRB $F9 +4384- 04 80 TSB $80 +4386- 0D 43 66 ORA $6643 +4389- 3C 98 04 BIT $0498,X +438C- 80 02 BRA $4390 +438E- 18 CLC +438F- 39 79 59 AND $5979,Y +4392- 99 03 80 STA $8003,Y +4395- 09 0F ORA #$0F +4397- 18 CLC +4398- 80 02 BRA $439C +439A- 1C 18 1F TRB $1F18 +439D- C0 04 CPY #$04 +439F- 78 SEI +43A0- 4C C6 03 JMP $03C6 +43A3- 6C 38 80 JMP ($8038) +43A6- 02 ??? +43A7- 40 RTI +43A8- 60 RTS +43A9- B0 02 BCS $43AD +43AB- 7C 31 B3 JMP ($B331,X) +43AE- 03 ??? +43AF- 31 30 AND ($30),Y +43B1- 80 0D BRA $43C0 +43B3- FF ??? +43B4- 03 ??? +43B5- 70 60 BVS $4417 +43B7- 40 RTI +43B8- 00 BRK +43B9- 18 CLC +43BA- 8C 02 78 STY $7802 +43BD- 70 80 BVS $433F +43BF- 0D 03 87 ORA $8703 +43C2- 02 ??? +43C3- 80 11 BRA $43D6 +43C5- FF ??? +43C6- 03 ??? +43C7- 43 ??? +43C8- 41 C0 EOR ($C0,X) +43CA- 02 ??? +43CB- 46 CC LSR $CC +43CD- 02 ??? +43CE- 47 ??? +43CF- 43 ??? +43D0- C0 0D CPY #$0D +43D2- 70 F8 BVS $43CC +43D4- 02 ??? +43D5- 80 0D BRA $43E4 +43D7- 7F ??? +43D8- BF ??? +43D9- 12 7F ORA ($7F) +43DB- BF ??? +43DC- 04 80 TSB $80 +43DE- 0D 79 98 ORA $9879 +43E1- 02 ??? +43E2- 78 SEI +43E3- 58 CLI +43E4- 98 TYA +43E5- 02 ??? +43E6- 80 02 BRA $43EA +43E8- CC 03 4D CPY $4D03 +43EB- 4F ??? +43EC- 4E 4C 80 LSR $804C +43EF- 09 E3 ORA #$E3 +43F1- 03 ??? +43F2- 7F ??? +43F3- E3 ??? +43F4- 03 ??? +43F5- 81 04 STA ($04,X) +43F7- 61 31 ADC ($31,X) +43F9- 19 79 19 ORA $1979,Y +43FC- 30 60 BMI $445E +43FE- 80 02 BRA $4402 +4400- 67 ??? +4401- E0 03 CPX #$03 +4403- 79 E0 04 ADC $04E0,Y +4406- 40 RTI +4407- 80 0D BRA $4416 +4409- 0E 67 63 ASL $6367 +440C- 41 81 EOR ($81,X) +440E- 03 ??? +440F- 83 ??? +4410- 04 01 TSB $01 +4412- 80 0E BRA $4422 +4414- 40 RTI +4415- E0 02 CPX #$02 +4417- 80 11 BRA $442A +4419- FF ??? +441A- 03 ??? +441B- 87 ??? +441C- 04 47 TSB $47 +441E- E7 ??? +441F- 02 ??? +4420- 47 ??? +4421- 87 ??? +4422- 0E 1F BF ASL $BF1F +4425- 02 ??? +4426- 80 0D BRA $4435 +4428- 0F ??? +4429- 78 SEI +442A- 40 RTI +442B- 80 0E BRA $443B +442D- 40 RTI +442E- 78 SEI +442F- 0F ??? +4430- 80 11 BRA $4443 +4432- 63 ??? +4433- E6 02 INC $02 +4435- 63 ??? +4436- 61 63 ADC ($63,X) +4438- 66 80 ROR $80 +443A- 02 ??? +443B- 1F ??? +443C- B1 05 LDA ($05),Y +443E- 1F ??? +443F- 80 09 BRA $444A +4441- 7C B0 06 JMP ($06B0,X) +4444- 80 04 BRA $444A +4446- 01 43 ORA ($43,X) +4448- 66 63 ROR $63 +444A- 60 RTS +444B- 66 63 ROR $63 +444D- 80 06 BRA $4455 +444F- 33 ??? +4450- B0 04 BCS $4456 +4452- 61 43 ADC ($43,X) +4454- 80 0D BRA $4463 +4456- FF ??? +4457- 02 ??? +4458- 1F ??? +4459- 9E 07 FE STZ $FE07,X +445C- 03 ??? +445D- 3E 9E 04 ROL $049E,X +4460- 5E 3E 1E LSR $1E3E,X +4463- 5E 3E 9E LSR $9E3E,X +4466- 02 ??? +4467- FF ??? +4468- 03 ??? +4469- 80 04 BRA $446F +446B- 40 RTI +446C- F0 02 BEQ $4470 +446E- 80 08 BRA $4478 +4470- 60 RTS +4471- 70 3F BVS $44B2 +4473- 1F ??? +4474- 8F ??? +4475- 02 ??? +4476- 0E 0C 18 ASL $180C +4479- 19 98 02 ORA $0298,Y +447C- 0F ??? +447D- 07 ??? +447E- 80 1F BRA $449F +4480- 03 ??? +4481- 06 8C ASL $8C +4483- 02 ??? +4484- 98 TYA +4485- 08 PHP +4486- CC 02 66 CPY $6602 +4489- 63 ??? +448A- B0 02 BCS $448E +448C- 78 SEI +448D- 18 CLC +448E- 8C 02 80 STY $8002 +4491- 0D 78 8C ORA $8C78 +4494- 03 ??? +4495- 4C 0C 78 JMP $780C +4498- 80 03 BRA $449D +449A- C0 05 CPY #$05 +449C- 80 0A BRA $44A8 +449E- 79 8C 02 ADC $028C,Y +44A1- 78 SEI +44A2- 00 BRK +44A3- 0C 78 E0 TSB $E078 +44A6- 04 67 TSB $67 +44A8- 61 E0 ADC ($E0,X) +44AA- 03 ??? +44AB- 40 RTI +44AC- 80 07 BRA $44B5 +44AE- E6 05 INC $05 +44B0- 3F ??? +44B1- 19 80 0D ORA $0D80,Y +44B4- FF ??? +44B5- 02 ??? +44B6- 60 RTS +44B7- C0 02 CPY #$02 +44B9- 80 03 BRA $44BE +44BB- 7E FF 02 ROR $02FF,X +44BE- 41 20 EOR ($20,X) +44C0- 10 48 BPL $450A +44C2- 24 12 BIT $12 +44C4- 09 04 ORA #$04 +44C6- 02 ??? +44C7- 01 80 ORA ($80,X) +44C9- 05 41 ORA $41 +44CB- 61 70 ADC ($70,X) +44CD- 78 SEI +44CE- 7C 3E 1F JMP ($1F3E,X) +44D1- 07 ??? +44D2- 01 80 ORA ($80,X) +44D4- 33 ??? +44D5- C0 02 CPY #$02 +44D7- E0 02 CPX #$02 +44D9- F0 02 BEQ $44DD +44DB- F8 SED +44DC- 02 ??? +44DD- FC ??? +44DE- 02 ??? +44DF- FE 02 F3 INC $F302,X +44E2- 02 ??? +44E3- E1 02 SBC ($02,X) +44E5- C0 02 CPY #$02 +44E7- 80 02 BRA $44EB +44E9- 7F ??? +44EA- 80 10 BRA $44FC +44EC- 31 33 AND ($33),Y +44EE- 30 70 BMI $4560 +44F0- B3 ??? +44F1- 03 ??? +44F2- 80 02 BRA $44F6 +44F4- 1F ??? +44F5- 31 81 AND ($81),Y +44F7- 02 ??? +44F8- 39 31 3F AND $3F31,Y +44FB- 80 09 BRA $4506 +44FD- 01 03 ORA ($03,X) +44FF- 00 BRK +4500- 01 83 ORA ($83,X) +4502- 02 ??? +4503- 01 80 ORA ($80,X) +4505- 04 07 TSB $07 +4507- 0C 98 03 TSB $0398 +450A- 0D 07 80 ORA $8007 +450D- 06 78 ASL $78 +450F- 4C 00 78 JMP $7800 +4512- 0C 18 70 TSB $7018 +4515- 80 0B BRA $4522 +4517- 0C 0E 47 TSB $470E +451A- 43 ??? +451B- 81 03 STA ($03,X) +451D- 80 04 BRA $4523 +451F- 03 ??? +4520- 07 ??? +4521- 0F ??? +4522- 9F ??? +4523- 02 ??? +4524- BE 0A 9F LDX $9F0A,Y +4527- 02 ??? +4528- 4F ??? +4529- 47 ??? +452A- 03 ??? +452B- 01 80 ORA ($80,X) +452D- 38 SEC +452E- 81 02 STA ($02,X) +4530- 83 ??? +4531- 02 ??? +4532- 87 ??? +4533- 02 ??? +4534- 8F ??? +4535- 02 ??? +4536- 9F ??? +4537- 02 ??? +4538- BF ??? +4539- 02 ??? +453A- FF ??? +453B- 09 7E ORA #$7E +453D- FC ??? +453E- 02 ??? +453F- 80 0D BRA $454E +4541- 4C 8C 02 JMP $028C +4544- 0F ??? +4545- 8C 03 80 STY $8003 +4548- 02 ??? +4549- C6 06 DEC $06 +454B- 7C 80 09 JMP ($0980,X) +454E- 7C 8C 02 JMP ($028C,X) +4551- 7C 6C 4C JMP ($4C6C,X) +4554- 0C 80 04 TSB $0480 +4557- E3 ??? +4558- 05 36 ORA $36 +455A- 1C 80 06 TRB $0680 +455D- 40 RTI +455E- 61 B3 ADC ($B3,X) +4560- 04 31 TSB $31 +4562- 80 0D BRA $4571 +4564- FF ??? +4565- 03 ??? +4566- BC 04 FC LDY $FC04,X +4569- 02 ??? +456A- BC 0A 7C LDY $7C0A,X +456D- BC 02 7C LDY $7C02,X +4570- BC 02 FF LDY $FF02,X +4573- 03 ??? +4574- 80 23 BRA $4599 +4576- C0 03 CPY #$03 +4578- 80 22 BRA $459C +457A- 81 02 STA ($02,X) +457C- 83 ??? +457D- 02 ??? +457E- 87 ??? +457F- 02 ??? +4580- 8F ??? +4581- 02 ??? +4582- 9F ??? +4583- 02 ??? +4584- 80 0D BRA $4593 +4586- 1F ??? +4587- 86 06 STX $06 +4589- 80 02 BRA $458D +458B- 71 99 ADC ($99),Y +458D- 02 ??? +458E- 71 01 ADC ($01),Y +4590- 19 70 80 ORA $8070,Y +4593- 09 71 ORA #$71 +4595- B3 ??? +4596- 02 ??? +4597- 71 30 ADC ($30),Y +4599- 31 73 AND ($73),Y +459B- 80 04 BRA $45A1 +459D- 70 58 BVS $45F7 +459F- 8C 05 80 STY $8005 +45A2- 06 73 ASL $73 +45A4- 58 CLI +45A5- 0C 7C 0C TSB $0C7C +45A8- 18 CLC +45A9- 70 80 BVS $452B +45AB- 0D FF 03 ORA $03FF +45AE- 80 02 BRA $45B2 +45B0- C0 02 CPY #$02 +45B2- FF ??? +45B3- 02 ??? +45B4- 80 03 BRA $45B9 +45B6- 40 RTI +45B7- 60 RTS +45B8- 30 38 BMI $45F2 +45BA- 34 32 BIT $32,X +45BC- 39 64 42 AND $4264,Y +45BF- 01 80 ORA ($80,X) +45C1- 03 ??? +45C2- FF ??? +45C3- 03 ??? +45C4- 80 10 BRA $45D6 +45C6- 60 RTS +45C7- 78 SEI +45C8- 7C 3E 9E JMP ($9E3E,X) +45CB- 03 ??? +45CC- 3E 7E 7C ROL $7C7E,X +45CF- 78 SEI +45D0- 70 80 BVS $4552 +45D2- 03 ??? +45D3- 78 SEI +45D4- 7C 0E 03 JMP ($030E,X) +45D7- 01 21 ORA ($21,X) +45D9- 31 73 AND ($73),Y +45DB- 63 ??? +45DC- 03 ??? +45DD- 06 0C ASL $0C +45DF- 78 SEI +45E0- 70 40 BVS $4622 +45E2- 80 0C BRA $45F0 +45E4- 03 ??? +45E5- 07 ??? +45E6- 1F ??? +45E7- 3F ??? +45E8- FF ??? +45E9- 06 7B ASL $7B +45EB- 73 ??? +45EC- 43 ??? +45ED- 83 ??? +45EE- 0B ??? +45EF- 80 0E BRA $45FF +45F1- 40 RTI +45F2- 60 RTS +45F3- C0 03 CPY #$03 +45F5- 60 RTS +45F6- 80 02 BRA $45FA +45F8- 73 ??? +45F9- 46 40 LSR $40 +45FB- 43 ??? +45FC- C6 02 DEC $02 +45FE- 43 ??? +45FF- 80 09 BRA $460A +4601- 67 ??? +4602- B0 02 BCS $4606 +4604- 63 ??? +4605- 00 BRK +4606- 30 67 BMI $466F +4608- 80 04 BRA $460E +460A- 40 RTI +460B- 61 B3 ADC ($B3,X) +460D- 03 ??? +460E- 63 ??? +460F- 43 ??? +4610- 80 07 BRA $4619 +4612- 01 03 ORA ($03,X) +4614- 01 00 ORA ($00,X) +4616- 03 ??? +4617- 01 80 ORA ($80,X) +4619- 0B ??? +461A- 18 CLC +461B- 1C 9F 02 TRB $029F +461E- 3F ??? +461F- 78 SEI +4620- 70 81 BVS $45A3 +4622- 02 ??? +4623- 03 ??? +4624- 07 ??? +4625- 0E 0C 00 ASL $000C +4628- 1F ??? +4629- 3F ??? +462A- 70 60 BVS $468C +462C- 66 4E ROR $4E +462E- 4C 67 63 JMP $6367 +4631- F0 02 BEQ $4635 +4633- 78 SEI +4634- 7C FF 03 JMP ($03FF,X) +4637- 80 10 BRA $4649 +4639- 0F ??? +463A- 3F ??? +463B- 7F ??? +463C- 70 C0 BVS $45FE +463E- 03 ??? +463F- 00 BRK +4640- 01 0F ORA ($0F,X) +4642- 3F ??? +4643- FF ??? +4644- 02 ??? +4645- 78 SEI +4646- 60 RTS +4647- 40 RTI +4648- 21 13 AND ($13,X) +464A- 4E 26 16 LSR $1626 +464D- 0E 07 03 ASL $0307 +4650- 80 02 BRA $4654 +4652- 60 RTS +4653- FF ??? +4654- 02 ??? +4655- 3F ??? +4656- 80 10 BRA $4668 +4658- 01 03 ORA ($03,X) +465A- 0F ??? +465B- 1F ??? +465C- FF ??? +465D- 06 7C ASL $7C +465F- 78 SEI +4660- 60 RTS +4661- 40 RTI +4662- 80 13 BRA $4677 +4664- 61 B1 ADC ($B1,X) +4666- 02 ??? +4667- 61 01 ADC ($01,X) +4669- 31 63 AND ($63),Y +466B- 80 02 BRA $466F +466D- 67 ??? +466E- B1 03 LDA ($03),Y +4670- 71 B1 ADC ($B1),Y +4672- 02 ??? +4673- 80 09 BRA $467E +4675- 47 ??? +4676- 4C 40 47 JMP $4740 +4679- CC 02 47 CPY $4702 +467C- 8C 04 0F STY $0F04 +467F- 8C 04 06 STY $0604 +4682- 03 ??? +4683- 80 29 BRA $46AE +4685- 81 02 STA ($02,X) +4687- 83 ??? +4688- 02 ??? +4689- 81 02 STA ($02,X) +468B- 80 04 BRA $4691 +468D- 01 83 ORA ($83,X) +468F- 02 ??? +4690- 80 10 BRA $46A2 +4692- 18 CLC +4693- 1C 0F 07 TRB $070F +4696- 83 ??? +4697- 04 01 TSB $01 +4699- 80 02 BRA $469D +469B- 01 07 ORA ($07,X) +469D- 1F ??? +469E- BF ??? +469F- 02 ??? +46A0- 7E 7F FC ROR $FC7F,X +46A3- 05 BE ORA $BE +46A5- 02 ??? +46A6- 1F ??? +46A7- 0F ??? +46A8- 07 ??? +46A9- 01 80 ORA ($80,X) +46AB- 16 01 ASL $01,X +46AD- 07 ??? +46AE- 0F ??? +46AF- 3F ??? +46B0- FF ??? +46B1- 05 7E ORA $7E +46B3- 7C 70 60 JMP ($6070,X) +46B6- 80 0F BRA $46C7 +46B8- 43 ??? +46B9- E6 02 INC $02 +46BB- 47 ??? +46BC- E6 02 INC $02 +46BE- 43 ??? +46BF- 80 02 BRA $46C3 +46C1- 47 ??? +46C2- CC 03 4F CPY $4F03 +46C5- CC 02 80 CPY $8002 +46C8- 09 1F ORA #$1F +46CA- 81 02 STA ($02,X) +46CC- 0F ??? +46CD- 81 02 STA ($02,X) +46CF- 1F ??? +46D0- 80 52 BRA $4724 +46D2- FF ??? +46D3- 02 ??? +46D4- 7E F8 16 ROR $16F8,X +46D7- 7E FF 02 ROR $02FF,X +46DA- 80 05 BRA $46E1 +46DC- C0 02 CPY #$02 +46DE- 80 06 BRA $46E6 +46E0- E6 0E INC $0E +46E2- E7 ??? +46E3- 09 66 ORA #$66 +46E5- 80 0D BRA $46F4 +46E7- 47 ??? +46E8- CC 02 07 CPY $0702 +46EB- 0C 4C 07 TSB $074C +46EE- 80 02 BRA $46F2 +46F0- 1F ??? +46F1- C1 02 CMP ($02,X) +46F3- 0F ??? +46F4- 01 41 ORA ($41,X) +46F6- 01 80 ORA ($80,X) +46F8- 09 3F ORA #$3F +46FA- E3 ??? +46FB- 02 ??? +46FC- 3F ??? +46FD- 1B ??? +46FE- 33 ??? +46FF- 63 ??? +4700- 80 11 BRA $4713 +4702- C0 07 CPY #$07 +4704- 80 3A BRA $4740 +4706- FF ??? +4707- 02 ??? +4708- 80 06 BRA $4710 +470A- 78 SEI +470B- 7C 7F 07 JMP ($077F,X) +470E- 03 ??? +470F- 41 20 EOR ($20,X) +4711- 10 48 BPL $475B +4713- 24 12 BIT $12 +4715- 09 04 ORA #$04 +4717- 02 ??? +4718- 01 80 ORA ($80,X) +471A- 02 ??? +471B- 03 ??? +471C- 87 ??? +471D- 02 ??? +471E- 40 RTI +471F- 60 RTS +4720- 70 78 BVS $479A +4722- 7E 1F 07 ROR $071F,X +4725- 80 06 BRA $472D +4727- FF ??? +4728- 18 CLC +4729- 80 0D BRA $4738 +472B- 1F ??? +472C- 01 0F ORA ($0F,X) +472E- 98 TYA +472F- 02 ??? +4730- 19 0F 80 ORA $800F,Y +4733- 02 ??? +4734- 1F ??? +4735- 31 01 AND ($01),Y +4737- 1F ??? +4738- 30 31 BMI $476B +473A- 1F ??? +473B- 80 09 BRA $4746 +473D- 8C 02 98 STY $9802 +4740- 02 ??? +4741- F0 02 BEQ $4745 +4743- 60 RTS +4744- 80 11 BRA $4757 +4746- 1F ??? +4747- B1 02 LDA ($02),Y +4749- 1F ??? +474A- 81 03 STA ($03,X) +474C- 80 38 BRA $4786 +474E- 30 38 BMI $4788 +4750- 1F ??? +4751- 0F ??? +4752- 07 ??? +4753- 86 02 STX $02 +4755- 80 03 BRA $475A +4757- 03 ??? +4758- 0F ??? +4759- 1F ??? +475A- 3E 7D 7C ROL $7C7D,X +475D- 7A PLY +475E- 79 F8 08 ADC $08F8,Y +4761- FC ??? +4762- 02 ??? +4763- 3E 1F 0F ROL $0F1F,X +4766- 07 ??? +4767- 03 ??? +4768- 01 80 ORA ($80,X) +476A- 09 81 ORA #$81 +476C- 03 ??? +476D- 41 E1 EOR ($E1,X) +476F- 02 ??? +4770- F1 03 SBC ($03),Y +4772- F9 06 F1 SBC $F106,Y +4775- 03 ??? +4776- E1 02 SBC ($02,X) +4778- 41 81 EOR ($81,X) +477A- 03 ??? +477B- 80 16 BRA $4793 +477D- 7C 46 06 JMP ($0646,X) +4780- 7C 40 46 JMP ($4640,X) +4783- 7C 80 09 JMP ($0980,X) +4786- E6 02 INC $02 +4788- E3 ??? +4789- 02 ??? +478A- E1 02 SBC ($02,X) +478C- 60 RTS +478D- 80 11 BRA $47A0 +478F- 7E C6 02 ROR $02C6,X +4792- 7E 36 66 ROR $6636,X +4795- 46 80 LSR $80 +4797- 3E 40 E0 ROL $E040,X +479A- 02 ??? +479B- F0 03 BEQ $47A0 +479D- F8 SED +479E- 04 F9 TSB $F9 +47A0- 05 F1 ORA $F1 +47A2- 03 ??? +47A3- E1 02 SBC ($02,X) +47A5- 40 RTI +47A6- 80 10 BRA $47B8 +47A8- 60 RTS +47A9- 3C BF 14 BIT $14BF,X +47AC- 3C 60 80 BIT $8060,X +47AF- 16 70 ASL $70,X +47B1- 19 98 02 ORA $0298,Y +47B4- 99 02 70 STA $7002,Y +47B7- 80 09 BRA $47C2 +47B9- 4F ??? +47BA- C0 02 CPY #$02 +47BC- 47 ??? +47BD- C0 02 CPY #$02 +47BF- 4F ??? +47C0- 80 11 BRA $47D3 +47C2- 78 SEI +47C3- 99 02 78 STA $7802,Y +47C6- 98 TYA +47C7- 02 ??? +47C8- 79 80 3A ADC $3A80,Y +47CB- 70 7C BVS $4849 +47CD- 1E 0F 87 ASL $870F,X +47D0- 02 ??? +47D1- 83 ??? +47D2- 08 PHP +47D3- 43 ??? +47D4- 23 ??? +47D5- 13 ??? +47D6- 4B ??? +47D7- 27 ??? +47D8- 13 ??? +47D9- 0B ??? +47DA- 07 ??? +47DB- 03 ??? +47DC- 87 ??? +47DD- 02 ??? +47DE- 0F ??? +47DF- 1E 7C 70 ASL $707C,X +47E2- 80 0C BRA $47F0 +47E4- 0F ??? +47E5- 78 SEI +47E6- 40 RTI +47E7- 80 12 BRA $47FB +47E9- 40 RTI +47EA- 78 SEI +47EB- 0F ??? +47EC- 80 16 BRA $4804 +47EE- 63 ??? +47EF- E6 05 INC $05 +47F1- 63 ??? +47F2- 80 09 BRA $47FD +47F4- 1F ??? +47F5- B1 05 LDA ($05),Y +47F7- 1F ??? +47F8- 80 11 BRA $480B +47FA- 73 ??? +47FB- 98 TYA +47FC- 02 ??? +47FD- 71 00 ADC ($00),Y +47FF- 18 CLC +4800- 73 ??? +4801- 80 3A BRA $483D +4803- 1F ??? +4804- 7F ??? +4805- 70 60 BVS $4867 +4807- C0 02 CPY #$02 +4809- 00 BRK +480A- 40 RTI +480B- 20 10 48 JSR $4810 +480E- 24 12 BIT $12 +4810- 09 04 ORA #$04 +4812- 02 ??? +4813- 01 80 ORA ($80,X) +4815- 06 C0 ASL $C0 +4817- 02 ??? +4818- 60 RTS +4819- 70 7F BVS $489A +481B- 1F ??? +481C- 80 0E BRA $482C +481E- 03 ??? +481F- 06 8C ASL $8C +4821- 02 ??? +4822- 98 TYA +4823- 03 ??? +4824- B0 06 BCS $482C +4826- 98 TYA +4827- 03 ??? +4828- 8C 02 06 STY $0602 +482B- 03 ??? +482C- 80 18 BRA $4846 +482E- 30 31 BMI $4861 +4830- 33 ??? +4831- 36 3C ROL $3C,X +4833- 38 SEC +4834- 30 80 BMI $47B6 +4836- 21 63 AND ($63,X) +4838- 66 60 ROR $60 +483A- 63 ??? +483B- E6 02 INC $02 +483D- 63 ??? +483E- 80 3C BRA $487C +4840- 01 03 ORA ($03,X) +4842- 07 ??? +4843- 8F ??? +4844- 02 ??? +4845- 9F ??? +4846- 03 ??? +4847- BF ??? +4848- 09 9F ORA #$9F +484A- 03 ??? +484B- 8F ??? +484C- 02 ??? +484D- 07 ??? +484E- 03 ??? +484F- 01 80 ORA ($80,X) +4851- 0E 06 0E ASL $0E06 +4854- 3E FE 07 ROL $07FE,X +4857- 76 66 ROR $66,X +4859- 86 0C STX $0C +485B- 80 3E BRA $489B +485D- 4F ??? +485E- C0 02 CPY #$02 +4860- 47 ??? +4861- C0 02 CPY #$02 +4863- 4F ??? +4864- 80 3A BRA $48A0 +4866- FC ??? +4867- 02 ??? +4868- 78 SEI +4869- E0 11 CPX #$11 +486B- 61 7F ADC ($7F,X) +486D- 7E E0 07 ROR $07E0,X +4870- 70 7C BVS $48EE +4872- 78 SEI +4873- 80 0C BRA $4881 +4875- 03 ??? +4876- 07 ??? +4877- 1F ??? +4878- 3F ??? +4879- FF ??? +487A- 05 7E ORA $7E +487C- 78 SEI +487D- 70 40 BVS $48BF +487F- 80 45 BRA $48C6 +4881- 61 63 ADC ($63,X) +4883- 67 ??? +4884- 6D 79 71 ADC $7179 +4887- 61 80 ADC ($80,X) +4889- 3A DEC +488A- FF ??? +488B- 03 ??? +488C- 83 ??? +488D- 06 43 ASL $43 +488F- 23 ??? +4890- 13 ??? +4891- 4B ??? +4892- 27 ??? +4893- 13 ??? +4894- 0B ??? +4895- 07 ??? +4896- 83 ??? +4897- 02 ??? +4898- 63 ??? +4899- 7F ??? +489A- 3F ??? +489B- 07 ??? +489C- 83 ??? +489D- 09 01 ORA #$01 +489F- 80 10 BRA $48B1 +48A1- 01 03 ORA ($03,X) +48A3- 0F ??? +48A4- 1F ??? +48A5- FF ??? +48A6- 06 7C ASL $7C +48A8- 78 SEI +48A9- 60 RTS +48AA- 40 RTI +48AB- 80 40 BRA $48ED +48AD- 7C B0 06 JMP ($06B0,X) +48B0- 80 3A BRA $48EC +48B2- 0F ??? +48B3- 3F ??? +48B4- 7F ??? +48B5- 7C F8 02 JMP ($02F8,X) +48B8- 74 72 STZ $72,X +48BA- 79 74 72 ADC $7274,Y +48BD- 71 70 ADC ($70),Y +48BF- F8 SED +48C0- 02 ??? +48C1- FC ??? +48C2- 02 ??? +48C3- 3E 1F 07 ROL $071F,X +48C6- 01 80 ORA ($80,X) +48C8- 14 8C TRB $8C +48CA- 0D 0D 8F ORA $8F0D +48CD- 08 PHP +48CE- 0E 0C 80 ASL $800C +48D1- 3E 79 8C ROL $8C79,X +48D4- 02 ??? +48D5- 78 SEI +48D6- 00 BRK +48D7- 0C 78 80 TSB $8078 +48DA- 3D 81 02 AND $0281,X +48DD- 83 ??? +48DE- 08 PHP +48DF- 81 02 STA ($02,X) +48E1- 80 70 BRA $4953 +48E3- 01 03 ORA ($03,X) +48E5- 00 BRK +48E6- 01 03 ORA ($03,X) +48E8- 63 ??? +48E9- 61 80 ADC ($80,X) +48EB- 38 SEC +48EC- 7C B0 06 JMP ($06B0,X) +48EF- 80 7F BRA $4970 +48F1- B0 02 BCS $48F5 +48F3- 80 38 BRA $492D +48F5- 39 78 58 AND $5878,Y +48F8- 98 TYA +48F9- 04 80 TSB $80 +48FB- 7F ??? +48FC- 98 TYA +48FD- 02 ??? +48FE- 80 38 BRA $4938 +4900- 38 SEC +4901- 3C 37 33 BIT $3337,X +4904- B0 03 BCS $4909 +4906- 80 68 BRA $4970 +4908- 00 BRK diff --git a/PSC Source Disk 4 - Fastload - Copy Protection - Title Page (v13)/DEMOMENU.S.txt b/PSC Source Disk 4 - Fastload - Copy Protection - Title Page (v13)/DEMOMENU.S.txt new file mode 100644 index 0000000..9ff0734 --- /dev/null +++ b/PSC Source Disk 4 - Fastload - Copy Protection - Title Page (v13)/DEMOMENU.S.txt @@ -0,0 +1,2093 @@ +0901- 20 CC D3 JSR $D3CC +0904- D4 ??? +0905- 20 CF C6 JSR $C6CF +0908- C6 8D DEC $8D +090A- AA TAX +090B- 8D AA 20 STA $20AA +090E- C4 C5 CPY $C5 +0910- CD CF 20 CMP $20CF +0913- CD C5 CE CMP $CEC5 +0916- D5 8D CMP $8D,X +0918- AA TAX +0919- 8D C3 CC STA $CCC3 +091C- C5 C1 CMP $C1 +091E- D2 A0 CMP ($A0) +0920- C5 D1 CMP $D1 +0922- D5 A0 CMP $A0,X +0924- A4 B8 LDY $B8 +0926- C5 B0 CMP $B0 +0928- B0 8D BCS $08B7 +092A- D4 ??? +092B- D0 D2 BNE $08FF +092D- C9 CE CMP #$CE +092F- D4 ??? +0930- A0 C5 LDY #$C5 +0932- D1 D5 CMP ($D5),Y +0934- A0 C3 LDY #$C3 +0936- CC C5 C1 CPY $C1C5 +0939- D2 AB CMP ($AB) +093B- B3 ??? +093C- 8D D4 C9 STA $C9D4 +093F- CE D0 D5 DEC $D5D0 +0942- D4 ??? +0943- A0 C5 LDY #$C5 +0945- D1 D5 CMP ($D5),Y +0947- A0 C3 LDY #$C3 +0949- CC C5 C1 CPY $C1C5 +094C- D2 AB CMP ($AB) +094E- B6 8D LDX $8D,Y +0950- C3 ??? +0951- D5 D2 CMP $D2,X +0953- D3 ??? +0954- D8 CLD +0955- A0 C5 LDY #$C5 +0957- D1 D5 CMP ($D5),Y +0959- A0 C3 LDY #$C3 +095B- CC C5 C1 CPY $C1C5 +095E- D2 AB CMP ($AB) +0960- B9 8D C3 LDA $C38D,Y +0963- D5 D2 CMP $D2,X +0965- D3 ??? +0966- D9 A0 C5 CMP $C5A0,Y +0969- D1 D5 CMP ($D5),Y +096B- A0 C3 LDY #$C3 +096D- CC C5 C1 CPY $C1C5 +0970- D2 AB CMP ($AB) +0972- B1 B0 LDA ($B0),Y +0974- 8D D3 D4 STA $D4D3 +0977- D2 C1 CMP ($C1) +0979- C4 C4 CPY $C4 +097B- D2 A0 CMP ($A0) +097D- C5 D1 CMP $D1 +097F- D5 A0 CMP $A0,X +0981- C3 ??? +0982- CC C5 C1 CPY $C1C5 +0985- D2 AB CMP ($AB) +0987- B1 B1 LDA ($B1),Y +0989- 8D C9 CE STA $CEC9 +098C- CD C1 D8 CMP $D8C1 +098F- A0 C5 LDY #$C5 +0991- D1 D5 CMP ($D5),Y +0993- A0 C3 LDY #$C3 +0995- CC C5 C1 CPY $C1C5 +0998- D2 AB CMP ($AB) +099A- B1 B3 LDA ($B3),Y +099C- 8D D6 CF STA $CFD6 +099F- D0 D4 BNE $0975 +09A1- C9 CF CMP #$CF +09A3- CE A0 C5 DEC $C5A0 +09A6- D1 D5 CMP ($D5),Y +09A8- A0 C3 LDY #$C3 +09AA- CC C5 C1 CPY $C1C5 +09AD- D2 AB CMP ($AB) +09AF- B1 B4 LDA ($B4),Y +09B1- 8D D2 C5 STA $C5D2 +09B4- D4 ??? +09B5- C6 CC DEC $CC +09B7- C1 C7 CMP ($C7,X) +09B9- A0 C5 LDY #$C5 +09BB- D1 D5 CMP ($D5),Y +09BD- A0 C3 LDY #$C3 +09BF- CC C5 C1 CPY $C1C5 +09C2- D2 AB CMP ($AB) +09C4- B1 B5 LDA ($B5),Y +09C6- 8D C4 CF STA $CFC4 +09C9- C9 D4 CMP #$D4 +09CB- A0 C5 LDY #$C5 +09CD- D1 D5 CMP ($D5),Y +09CF- A0 C3 LDY #$C3 +09D1- CC C5 C1 CPY $C1C5 +09D4- D2 AB CMP ($AB) +09D6- B1 B6 LDA ($B6),Y +09D8- 8D D3 C5 STA $C5D3 +09DB- CC C3 D5 CPY $D5C3 +09DE- D2 A0 CMP ($A0) +09E0- C5 D1 CMP $D1 +09E2- D5 A0 CMP $A0,X +09E4- C3 ??? +09E5- CC C5 C1 CPY $C1C5 +09E8- D2 AB CMP ($AB) +09EA- B1 B9 LDA ($B9),Y +09EC- 8D C7 C5 STA $C5C7 +09EF- D4 ??? +09F0- C2 ??? +09F1- D4 ??? +09F2- CE D3 A0 DEC $A0D3 +09F5- C5 D1 CMP $D1 +09F7- D5 A0 CMP $A0,X +09F9- C3 ??? +09FA- CC C5 C1 CPY $C1C5 +09FD- D2 AB CMP ($AB) +09FF- B2 B0 LDA ($B0) +0A01- 8D AA 8D STA $8DAA +0A04- CB ??? +0A05- C2 ??? +0A06- C3 ??? +0A07- CF ??? +0A08- C4 C5 CPY $C5 +0A0A- A0 C5 LDY #$C5 +0A0C- D1 D5 CMP ($D5),Y +0A0E- A0 A4 LDY #$A4 +0A10- C3 ??? +0A11- B0 B0 BCS $09C3 +0A13- B0 8D BCS $09A2 +0A15- CB ??? +0A16- C2 ??? +0A17- D3 ??? +0A18- D4 ??? +0A19- D2 CF CMP ($CF) +0A1B- C2 ??? +0A1C- C5 A0 CMP $A0 +0A1E- C5 D1 CMP $D1 +0A20- D5 A0 CMP $A0,X +0A22- A4 C3 LDY $C3 +0A24- B0 B1 BCS $09D7 +0A26- B0 8D BCS $09B5 +0A28- C2 ??? +0A29- D5 D4 CMP $D4,X +0A2B- D4 ??? +0A2C- CE B0 A0 DEC $A0B0 +0A2F- C5 D1 CMP $D1 +0A31- D5 A0 CMP $A0,X +0A33- A4 C3 LDY $C3 +0A35- B0 B6 BCS $09ED +0A37- B1 8D LDA ($8D),Y +0A39- C2 ??? +0A3A- D5 D4 CMP $D4,X +0A3C- D4 ??? +0A3D- CE B1 A0 DEC $A0B1 +0A40- C5 D1 CMP $D1 +0A42- D5 A0 CMP $A0,X +0A44- A4 C3 LDY $C3 +0A46- B0 B6 BCS $09FE +0A48- B2 8D LDA ($8D) +0A4A- AA TAX +0A4B- AD AD AD LDA $ADAD +0A4E- AD AD AD LDA $ADAD +0A51- AD AD AD LDA $ADAD +0A54- AD AD AD LDA $ADAD +0A57- AD AD AD LDA $ADAD +0A5A- 8D A0 CF STA $CFA0 +0A5D- D2 C7 CMP ($C7) +0A5F- A0 A4 LDY #$A4 +0A61- B1 C1 LDA ($C1),Y +0A63- B0 B0 BCS $0A15 +0A65- 8D AA 8D STA $8DAA +0A68- A0 CA LDY #$CA +0A6A- CD D0 A0 CMP $A0D0 +0A6D- CD D3 D4 CMP $D4D3 +0A70- C1 D2 CMP ($D2,X) +0A72- D4 ??? +0A73- 8D AA 8D STA $8DAA +0A76- CC C1 D3 CPY $D3C1 +0A79- D4 ??? +0A7A- CD B1 A0 CMP $A0B1 +0A7D- C8 INY +0A7E- C5 D8 CMP $D8 +0A80- A0 B0 LDY #$B0 +0A82- B2 8D LDA ($8D) +0A84- CC C1 D3 CPY $D3C1 +0A87- D4 ??? +0A88- CD B2 A0 CMP $A0B2 +0A8B- C8 INY +0A8C- C5 D8 CMP $D8 +0A8E- A0 B0 LDY #$B0 +0A90- B1 8D LDA ($8D),Y +0A92- D3 ??? +0A93- C5 CC CMP $CC +0A95- CD C1 D8 CMP $D8C1 +0A98- A0 C8 LDY #$C8 +0A9A- C5 D8 CMP $D8 +0A9C- A0 B0 LDY #$B0 +0A9E- B0 8D BCS $0A2D +0AA0- CB ??? +0AA1- C6 CC DEC $CC +0AA3- C1 C7 CMP ($C7,X) +0AA5- A0 C8 LDY #$C8 +0AA7- C5 D8 CMP $D8 +0AA9- A0 B0 LDY #$B0 +0AAB- B0 8D BCS $0A3A +0AAD- AA TAX +0AAE- AD AD AD LDA $ADAD +0AB1- AD AD AD LDA $ADAD +0AB4- AD AD AD LDA $ADAD +0AB7- AD AD AD LDA $ADAD +0ABA- AD AD AD LDA $ADAD +0ABD- AD AD AD LDA $ADAD +0AC0- AD 8D AA LDA $AA8D +0AC3- 8D CD D3 STA $D3CD +0AC6- D4 ??? +0AC7- C1 D2 CMP ($D2,X) +0AC9- D4 ??? +0ACA- A0 CC LDY #$CC +0ACC- C4 C1 CPY $C1 +0ACE- A0 CC LDY #$CC +0AD0- C1 D3 CMP ($D3,X) +0AD2- D4 ??? +0AD3- CD B1 8D CMP $8DB1 +0AD6- A0 C3 LDY #$C3 +0AD8- CD D0 A0 CMP $A0D0 +0ADB- A3 ??? +0ADC- B0 B1 BCS $0A8F +0ADE- 8D A0 C2 STA $C2A0 +0AE1- C5 D1 CMP $D1 +0AE3- A0 CD LDY #$CD +0AE5- C5 CE CMP $CE +0AE7- D5 B2 CMP $B2,X +0AE9- 8D AA 8D STA $8DAA +0AEC- CD C5 CE CMP $CEC5 +0AEF- D5 A0 CMP $A0,X +0AF1- CA DEX +0AF2- D3 ??? +0AF3- D2 A0 CMP ($A0) +0AF5- C3 ??? +0AF6- CC C5 C1 CPY $C1C5 +0AF9- D2 8D CMP ($8D) +0AFB- A0 CC LDY #$CC +0AFD- C4 C1 CPY $C1 +0AFF- A0 A4 LDY #$A4 +0B01- C3 ??? +0B02- B0 B5 BCS $0AB9 +0B04- B1 8D LDA ($8D),Y +0B06- A0 CC LDY #$CC +0B08- C4 C1 CPY $C1 +0B0A- A0 A3 LDY #$A3 +0B0C- B0 B0 BCS $0ABE +0B0E- 8D A0 D3 STA $D3A0 +0B11- D4 ??? +0B12- C1 A0 CMP ($A0,X) +0B14- D3 ??? +0B15- C5 CC CMP $CC +0B17- C3 ??? +0B18- D5 D2 CMP $D2,X +0B1A- 8D A0 CC STA $CCA0 +0B1D- C4 C1 CPY $C1 +0B1F- A0 A3 LDY #$A3 +0B21- B0 B0 BCS $0AD3 +0B23- 8D A0 CC STA $CCA0 +0B26- C4 D8 CPY $D8 +0B28- A0 A3 LDY #$A3 +0B2A- CD C5 CE CMP $CEC5 +0B2D- D5 D3 CMP $D3,X +0B2F- D4 ??? +0B30- D2 8D CMP ($8D) +0B32- A0 CC LDY #$CC +0B34- C4 D9 CPY $D9 +0B36- A0 A3 LDY #$A3 +0B38- BE CD C5 LDX $C5CD,Y +0B3B- CE D5 D3 DEC $D3D5 +0B3E- D4 ??? +0B3F- D2 8D CMP ($8D) +0B41- A0 CA LDY #$CA +0B43- D3 ??? +0B44- D2 A0 CMP ($A0) +0B46- C4 CF CPY $CF +0B48- C9 D4 CMP #$D4 +0B4A- 8D A0 C9 STA $C9A0 +0B4D- CE C3 A0 DEC $A0C3 +0B50- CB ??? +0B51- C6 CC DEC $CC +0B53- C1 C7 CMP ($C7,X) +0B55- 8D A0 CC STA $CCA0 +0B58- C4 C1 CPY $C1 +0B5A- A0 CC LDY #$CC +0B5C- C1 D3 CMP ($D3,X) +0B5E- D4 ??? +0B5F- CD B1 8D CMP $8DB1 +0B62- A0 D3 LDY #$D3 +0B64- D4 ??? +0B65- C1 A0 CMP ($A0,X) +0B67- D3 ??? +0B68- C5 CC CMP $CC +0B6A- C3 ??? +0B6B- D5 D2 CMP $D2,X +0B6D- 8D A0 CC STA $CCA0 +0B70- C4 C1 CPY $C1 +0B72- A0 A3 LDY #$A3 +0B74- B0 B2 BCS $0B28 +0B76- 8D A0 D3 STA $D3A0 +0B79- D4 ??? +0B7A- C1 A0 CMP ($A0,X) +0B7C- D3 ??? +0B7D- C5 CC CMP $CC +0B7F- CD C1 D8 CMP $D8C1 +0B82- 8D A0 CA STA $CAA0 +0B85- D3 ??? +0B86- D2 A0 CMP ($A0) +0B88- D3 ??? +0B89- C5 CC CMP $CC +0B8B- C5 C3 CMP $C3 +0B8D- D4 ??? +0B8E- 8D A0 CC STA $CCA0 +0B91- C4 C1 CPY $C1 +0B93- A0 D3 LDY #$D3 +0B95- C5 CC CMP $CC +0B97- C3 ??? +0B98- D5 D2 CMP $D2,X +0B9A- 8D A0 D3 STA $D3A0 +0B9D- D4 ??? +0B9E- C1 A0 CMP ($A0,X) +0BA0- CC C1 D3 CPY $D3C1 +0BA3- D4 ??? +0BA4- CD B1 8D CMP $8DB1 +0BA7- A0 C2 LDY #$C2 +0BA9- C3 ??? +0BAA- D3 ??? +0BAB- A0 CD LDY #$CD +0BAD- C5 CE CMP $CE +0BAF- D5 8D CMP $8D,X +0BB1- A0 C3 LDY #$C3 +0BB3- CD D0 A0 CMP $A0D0 +0BB6- A3 ??? +0BB7- B0 B1 BCS $0B6A +0BB9- 8D A0 C2 STA $C2A0 +0BBC- C5 D1 CMP $D1 +0BBE- A0 CD LDY #$CD +0BC0- C5 CE CMP $CE +0BC2- D5 B2 CMP $B2,X +0BC4- 8D A0 D2 STA $D2A0 +0BC7- D4 ??? +0BC8- D3 ??? +0BC9- 8D AA 8D STA $8DAA +0BCC- CD C5 CE CMP $CEC5 +0BCF- D5 B2 CMP $B2,X +0BD1- A0 CA LDY #$CA +0BD3- D3 ??? +0BD4- D2 A0 CMP ($A0) +0BD6- C3 ??? +0BD7- CC C5 C1 CPY $C1C5 +0BDA- D2 8D CMP ($8D) +0BDC- A0 CC LDY #$CC +0BDE- C4 C1 CPY $C1 +0BE0- A0 A4 LDY #$A4 +0BE2- C3 ??? +0BE3- B0 B5 BCS $0B9A +0BE5- B1 8D LDA ($8D),Y +0BE7- A0 CC LDY #$CC +0BE9- C4 C1 CPY $C1 +0BEB- A0 A3 LDY #$A3 +0BED- B0 B0 BCS $0B9F +0BEF- 8D A0 D3 STA $D3A0 +0BF2- D4 ??? +0BF3- C1 A0 CMP ($A0,X) +0BF5- CB ??? +0BF6- C6 CC DEC $CC +0BF8- C1 C7 CMP ($C7,X) +0BFA- 8D A0 D3 STA $D3A0 +0BFD- D4 ??? +0BFE- C1 A0 CMP ($A0,X) +0C00- D3 ??? +0C01- C5 CC CMP $CC +0C03- C3 ??? +0C04- D5 D2 CMP $D2,X +0C06- 8D A0 CC STA $CCA0 +0C09- C4 D8 CPY $D8 +0C0B- A0 A3 LDY #$A3 +0C0D- CD CD D3 CMP $D3CD +0C10- D4 ??? +0C11- D2 8D CMP ($8D) +0C13- A0 CC LDY #$CC +0C15- C4 D9 CPY $D9 +0C17- A0 A3 LDY #$A3 +0C19- BE CD CD LDX $CDCD,Y +0C1C- D3 ??? +0C1D- D4 ??? +0C1E- D2 8D CMP ($8D) +0C20- A0 CA LDY #$CA +0C22- D3 ??? +0C23- D2 A0 CMP ($A0) +0C25- C4 CF CPY $CF +0C27- C9 D4 CMP #$D4 +0C29- 8D A0 CC STA $CCA0 +0C2C- C4 C1 CPY $C1 +0C2E- A0 CC LDY #$CC +0C30- C1 D3 CMP ($D3,X) +0C32- D4 ??? +0C33- CD B2 8D CMP $8DB2 +0C36- A0 D3 LDY #$D3 +0C38- D4 ??? +0C39- C1 A0 CMP ($A0,X) +0C3B- D3 ??? +0C3C- C5 CC CMP $CC +0C3E- C3 ??? +0C3F- D5 D2 CMP $D2,X +0C41- 8D A0 CC STA $CCA0 +0C44- C4 C1 CPY $C1 +0C46- A0 A3 LDY #$A3 +0C48- B0 B7 BCS $0C01 +0C4A- 8D A0 D3 STA $D3A0 +0C4D- D4 ??? +0C4E- C1 A0 CMP ($A0,X) +0C50- D3 ??? +0C51- C5 CC CMP $CC +0C53- CD C1 D8 CMP $D8C1 +0C56- 8D A0 CC STA $CCA0 +0C59- C4 C1 CPY $C1 +0C5B- A0 A3 LDY #$A3 +0C5D- B1 B5 LDA ($B5),Y +0C5F- 8D A0 CC STA $CCA0 +0C62- C4 D8 CPY $D8 +0C64- A0 A3 LDY #$A3 +0C66- CD CD D3 CMP $D3CD +0C69- C5 CC CMP $CC +0C6B- 8D A0 CC STA $CCA0 +0C6E- C4 D9 CPY $D9 +0C70- A0 A3 LDY #$A3 +0C72- BE CD CD LDX $CDCD,Y +0C75- D3 ??? +0C76- C5 CC CMP $CC +0C78- 8D A0 CA STA $CAA0 +0C7B- D3 ??? +0C7C- D2 A0 CMP ($A0) +0C7E- D3 ??? +0C7F- C5 CC CMP $CC +0C81- C5 C3 CMP $C3 +0C83- D4 ??? +0C84- 8D A0 CC STA $CCA0 +0C87- C4 C1 CPY $C1 +0C89- A0 D3 LDY #$D3 +0C8B- C5 CC CMP $CC +0C8D- C3 ??? +0C8E- D5 D2 CMP $D2,X +0C90- 8D A0 D3 STA $D3A0 +0C93- D4 ??? +0C94- C1 A0 CMP ($A0,X) +0C96- CC C1 D3 CPY $D3C1 +0C99- D4 ??? +0C9A- CD B2 8D CMP $8DB2 +0C9D- A0 C2 LDY #$C2 +0C9F- C3 ??? +0CA0- D3 ??? +0CA1- A0 CD LDY #$CD +0CA3- C5 CE CMP $CE +0CA5- D5 8D CMP $8D,X +0CA7- A0 D2 LDY #$D2 +0CA9- D4 ??? +0CAA- D3 ??? +0CAB- 8D AA 8D STA $8DAA +0CAE- CB ??? +0CAF- C4 CF CPY $CF +0CB1- C9 D4 CMP #$D4 +0CB3- A0 D0 LDY #$D0 +0CB5- C8 INY +0CB6- C1 8D CMP ($8D,X) +0CB8- A0 CC LDY #$CC +0CBA- C4 C1 CPY $C1 +0CBC- A0 CB LDY #$CB +0CBE- C6 CC DEC $CC +0CC0- C1 C7 CMP ($C7,X) +0CC2- 8D A0 C2 STA $C2A0 +0CC5- CE C5 A0 DEC $A0C5 +0CC8- CB ??? +0CC9- C4 CF CPY $CF +0CCB- C9 D4 CMP #$D4 +0CCD- B0 8D BCS $0C5C +0CCF- A0 D0 LDY #$D0 +0CD1- CC C1 8D CPY $8DC1 +0CD4- A0 CA LDY #$CA +0CD6- CD D0 A0 CMP $A0D0 +0CD9- C4 CF CPY $CF +0CDB- C9 D4 CMP #$D4 +0CDD- 8D AA 8D STA $8DAA +0CE0- CB ??? +0CE1- C4 CF CPY $CF +0CE3- C9 D4 CMP #$D4 +0CE5- B0 A0 BCS $0C87 +0CE7- D0 CC BNE $0CB5 +0CE9- C1 8D CMP ($8D,X) +0CEB- A0 CC LDY #$CC +0CED- C4 C1 CPY $C1 +0CEF- A0 A3 LDY #$A3 +0CF1- B1 B8 LDA ($B8),Y +0CF3- 8D A0 CC STA $CCA0 +0CF6- C4 D8 CPY $D8 +0CF8- A0 A3 LDY #$A3 +0CFA- D3 ??? +0CFB- C5 CC CMP $CC +0CFD- B1 8D LDA ($8D),Y +0CFF- A0 CC LDY #$CC +0D01- C4 D9 CPY $D9 +0D03- A0 A3 LDY #$A3 +0D05- BE D3 C5 LDX $C5D3,Y +0D08- CC B1 8D CPY $8DB1 +0D0B- A0 CA LDY #$CA +0D0D- D3 ??? +0D0E- D2 A0 CMP ($A0) +0D10- C4 CF CPY $CF +0D12- C9 D4 CMP #$D4 +0D14- 8D A0 CC STA $CCA0 +0D17- C4 C1 CPY $C1 +0D19- A0 A3 LDY #$A3 +0D1B- B1 B3 LDA ($B3),Y +0D1D- 8D A0 CC STA $CCA0 +0D20- C4 D8 CPY $D8 +0D22- A0 A3 LDY #$A3 +0D24- D3 ??? +0D25- C5 CC CMP $CC +0D27- B2 C1 LDA ($C1) +0D29- 8D A0 CC STA $CCA0 +0D2C- C4 D9 CPY $D9 +0D2E- A0 A3 LDY #$A3 +0D30- BE D3 C5 LDX $C5D3,Y +0D33- CC B2 C1 CPY $C1B2 +0D36- 8D A0 CA STA $CAA0 +0D39- D3 ??? +0D3A- D2 A0 CMP ($A0) +0D3C- C4 CF CPY $CF +0D3E- C9 D4 CMP #$D4 +0D40- 8D A0 CC STA $CCA0 +0D43- C4 C1 CPY $C1 +0D45- A0 A3 LDY #$A3 +0D47- B1 B4 LDA ($B4),Y +0D49- 8D A0 CC STA $CCA0 +0D4C- C4 D8 CPY $D8 +0D4E- A0 A3 LDY #$A3 +0D50- D3 ??? +0D51- C5 CC CMP $CC +0D53- B2 C2 LDA ($C2) +0D55- 8D A0 CC STA $CCA0 +0D58- C4 D9 CPY $D9 +0D5A- A0 A3 LDY #$A3 +0D5C- BE D3 C5 LDX $C5D3,Y +0D5F- CC B2 C2 CPY $C2B2 +0D62- 8D A0 CA STA $CAA0 +0D65- CD D0 A0 CMP $A0D0 +0D68- C4 CF CPY $CF +0D6A- C9 D4 CMP #$D4 +0D6C- 8D AA AD STA $ADAA +0D6F- AD AD AD LDA $ADAD +0D72- AD AD AD LDA $ADAD +0D75- AD AD AD LDA $ADAD +0D78- AD AD AD LDA $ADAD +0D7B- AD AD AD LDA $ADAD +0D7E- AD AD AD LDA $ADAD +0D81- AD 8D CB LDA $CB8D +0D84- C5 D9 CMP $D9 +0D86- C9 CE CMP #$CE +0D88- A0 D3 LDY #$D3 +0D8A- D4 ??? +0D8B- C1 A0 CMP ($A0,X) +0D8D- CB ??? +0D8E- C2 ??? +0D8F- D3 ??? +0D90- D4 ??? +0D91- D2 CF CMP ($CF) +0D93- C2 ??? +0D94- C5 8D CMP $8D +0D96- CB ??? +0D97- C5 D9 CMP $D9 +0D99- C9 CE CMP #$CE +0D9B- B1 A0 LDA ($A0),Y +0D9D- CA DEX +0D9E- D3 ??? +0D9F- D2 A0 CMP ($A0) +0DA1- C7 ??? +0DA2- C5 D4 CMP $D4 +0DA4- C2 ??? +0DA5- D4 ??? +0DA6- CE D3 8D DEC $8DD3 +0DA9- A0 C2 LDY #$C2 +0DAB- CE C5 A0 DEC $A0C5 +0DAE- CB ??? +0DAF- C5 D9 CMP $D9 +0DB1- C9 CE CMP #$CE +0DB3- D8 CLD +0DB4- 8D A0 CC STA $CCA0 +0DB7- C4 C1 CPY $C1 +0DB9- A0 CB LDY #$CB +0DBB- C2 ??? +0DBC- C3 ??? +0DBD- CF ??? +0DBE- C4 C5 CPY $C5 +0DC0- 8D A0 C2 STA $C2A0 +0DC3- D0 CC BNE $0D91 +0DC5- A0 CB LDY #$CB +0DC7- C5 D9 CMP $D9 +0DC9- C9 CE CMP #$CE +0DCB- B1 8D LDA ($8D),Y +0DCD- A0 D3 LDY #$D3 +0DCF- D4 ??? +0DD0- C1 A0 CMP ($A0,X) +0DD2- CB ??? +0DD3- C2 ??? +0DD4- D3 ??? +0DD5- D4 ??? +0DD6- D2 CF CMP ($CF) +0DD8- C2 ??? +0DD9- C5 8D CMP $8D +0DDB- CB ??? +0DDC- C5 D9 CMP $D9 +0DDE- C9 CE CMP #$CE +0DE0- D8 CLD +0DE1- A0 D2 LDY #$D2 +0DE3- D4 ??? +0DE4- D3 ??? +0DE5- 8D AA AD STA $ADAA +0DE8- AD AD AD LDA $ADAD +0DEB- AD AD AD LDA $ADAD +0DEE- AD AD AD LDA $ADAD +0DF1- AD AD AD LDA $ADAD +0DF4- AD AD AD LDA $ADAD +0DF7- AD AD AD LDA $ADAD +0DFA- AD AD AD LDA $ADAD +0DFD- AD 8D AA LDA $AA8D +0E00- 20 D3 C5 JSR $C5D3 +0E03- CC C5 C3 CPY $C3C5 +0E06- D4 ??? +0E07- 20 AD 20 JSR $20AD +0E0A- C7 ??? +0E0B- C5 D4 CMP $D4 +0E0D- 20 CD C5 JSR $C5CD +0E10- CE D5 20 DEC $20D5 +0E13- C3 ??? +0E14- C8 INY +0E15- CF ??? +0E16- C9 C3 CMP #$C3 +0E18- C5 8D CMP $8D +0E1A- AA TAX +0E1B- 20 C1 AC JSR $ACC1 +0E1E- D8 CLD +0E1F- AC D9 20 LDY $20D9 +0E22- D3 ??? +0E23- C5 D4 CMP $D4 +0E25- 20 D5 D0 JSR $D0D5 +0E28- 20 C6 CF JSR $CFC6 +0E2B- D2 20 CMP ($20) +0E2D- C4 CF CPY $CF +0E2F- C9 D4 CMP #$D4 +0E31- 8D AA 20 STA $20AA +0E34- D3 ??? +0E35- C5 CC CMP $CC +0E37- CD C1 D8 CMP $D8C1 +0E3A- 20 BD 20 JSR $20BD +0E3D- CE CF 20 DEC $20CF +0E40- CF ??? +0E41- C6 20 DEC $20 +0E43- C3 ??? +0E44- C8 INY +0E45- CF ??? +0E46- C9 C3 CMP #$C3 +0E48- C5 D3 CMP $D3 +0E4A- 8D AA 20 STA $20AA +0E4D- D2 C5 CMP ($C5) +0E4F- C1 C4 CMP ($C4,X) +0E51- D3 ??? +0E52- 20 CB C2 JSR $C2CB +0E55- C4 20 CPY $20 +0E57- A6 20 LDX $20 +0E59- CA DEX +0E5A- CF ??? +0E5B- D9 D3 D4 CMP $D4D3,Y +0E5E- CB ??? +0E5F- 8D AA 8D STA $8DAA +0E62- D3 ??? +0E63- C5 CC CMP $CC +0E65- C5 C3 CMP $C3 +0E67- D4 ??? +0E68- A0 D3 LDY #$D3 +0E6A- D4 ??? +0E6B- C1 A0 CMP ($A0,X) +0E6D- C1 D4 CMP ($D4,X) +0E6F- C5 CD CMP $CD +0E71- D0 8D BNE $0E00 +0E73- A0 D3 LDY #$D3 +0E75- D4 ??? +0E76- D8 CLD +0E77- A0 D8 LDY #$D8 +0E79- D4 ??? +0E7A- C5 CD CMP $CD +0E7C- D0 8D BNE $0E0B +0E7E- A0 D3 LDY #$D3 +0E80- D4 ??? +0E81- D9 A0 D9 CMP $D9A0,Y +0E84- D4 ??? +0E85- C5 CD CMP $CD +0E87- D0 8D BNE $0E16 +0E89- A0 D3 LDY #$D3 +0E8B- D4 ??? +0E8C- C1 A0 CMP ($A0,X) +0E8E- CB ??? +0E8F- C2 ??? +0E90- D3 ??? +0E91- D4 ??? +0E92- D2 CF CMP ($CF) +0E94- C2 ??? +0E95- C5 8D CMP $8D +0E97- AA TAX +0E98- 8D D3 C5 STA $C5D3 +0E9B- CC C5 C3 CPY $C3C5 +0E9E- D4 ??? +0E9F- B0 A0 BCS $0E41 +0EA1- CC C4 C1 CPY $C1C4 +0EA4- A0 C1 LDY #$C1 +0EA6- D4 ??? +0EA7- C5 CD CMP $CD +0EA9- D0 8D BNE $0E38 +0EAB- A0 CC LDY #$CC +0EAD- C4 D8 CPY $D8 +0EAF- A0 D8 LDY #$D8 +0EB1- D4 ??? +0EB2- C5 CD CMP $CD +0EB4- D0 8D BNE $0E43 +0EB6- A0 CC LDY #$CC +0EB8- C4 D9 CPY $D9 +0EBA- A0 D9 LDY #$D9 +0EBC- D4 ??? +0EBD- C5 CD CMP $CD +0EBF- D0 8D BNE $0E4E +0EC1- A0 CA LDY #$CA +0EC3- D3 ??? +0EC4- D2 A0 CMP ($A0) +0EC6- CB ??? +0EC7- C4 CF CPY $CF +0EC9- C9 D4 CMP #$D4 +0ECB- 8D A0 CA STA $CAA0 +0ECE- D3 ??? +0ECF- D2 A0 CMP ($A0) +0ED1- CA DEX +0ED2- D3 ??? +0ED3- D4 ??? +0ED4- C9 C3 CMP #$C3 +0ED6- CB ??? +0ED7- 8D A0 C3 STA $C3A0 +0EDA- CD D0 A0 CMP $A0D0 +0EDD- A3 ??? +0EDE- B0 B1 BCS $0E91 +0EE0- 8D A0 C2 STA $C2A0 +0EE3- C5 D1 CMP $D1 +0EE5- A0 C4 LDY #$C4 +0EE7- CF ??? +0EE8- D7 ??? +0EE9- CE 8D A0 DEC $A08D +0EEC- C3 ??? +0EED- CD D0 A0 CMP $A0D0 +0EF0- A3 ??? +0EF1- A4 C6 LDY $C6 +0EF3- C6 8D DEC $8D +0EF5- A0 C2 LDY #$C2 +0EF7- C5 D1 CMP $D1 +0EF9- A0 D5 LDY #$D5 +0EFB- D0 8D BNE $0E8A +0EFD- A0 CA LDY #$CA +0EFF- D3 ??? +0F00- D2 A0 CMP ($A0) +0F02- C7 ??? +0F03- C5 D4 CMP $D4 +0F05- C2 ??? +0F06- D4 ??? +0F07- CE D3 8D DEC $8DD3 +0F0A- A0 C2 LDY #$C2 +0F0C- CE C5 A0 DEC $A0C5 +0F0F- D3 ??? +0F10- C5 CC CMP $CC +0F12- C5 C3 CMP $C3 +0F14- D4 ??? +0F15- B1 8D LDA ($8D),Y +0F17- A0 CC LDY #$CC +0F19- C4 C1 CPY $C1 +0F1B- A0 CB LDY #$CB +0F1D- C2 ??? +0F1E- C3 ??? +0F1F- CF ??? +0F20- C4 C5 CPY $C5 +0F22- 8D A0 C2 STA $C2A0 +0F25- D0 CC BNE $0EF3 +0F27- A0 D3 LDY #$D3 +0F29- C5 CC CMP $CC +0F2B- C5 C3 CMP $C3 +0F2D- D4 ??? +0F2E- B0 8D BCS $0EBD +0F30- A0 D3 LDY #$D3 +0F32- D4 ??? +0F33- C1 A0 CMP ($A0,X) +0F35- CB ??? +0F36- C2 ??? +0F37- D3 ??? +0F38- D4 ??? +0F39- D2 CF CMP ($CF) +0F3B- C2 ??? +0F3C- C5 8D CMP $8D +0F3E- A0 C1 LDY #$C1 +0F40- CE C4 A0 DEC $A0C4 +0F43- A3 ??? +0F44- A4 B7 LDY $B7 +0F46- C6 8D DEC $8D +0F48- D3 ??? +0F49- C5 CC CMP $CC +0F4B- C5 C3 CMP $C3 +0F4D- D4 ??? +0F4E- B1 A0 LDA ($A0),Y +0F50- C3 ??? +0F51- CD D0 A0 CMP $A0D0 +0F54- A3 ??? +0F55- A4 B0 LDY $B0 +0F57- C4 8D CPY $8D +0F59- A0 C2 LDY #$C2 +0F5B- C5 D1 CMP $D1 +0F5D- A0 D3 LDY #$D3 +0F5F- D2 C5 CMP ($C5) +0F61- D4 ??? +0F62- D5 D2 CMP $D2,X +0F64- CE 8D A0 DEC $A08D +0F67- C3 ??? +0F68- CD D0 A0 CMP $A0D0 +0F6B- A3 ??? +0F6C- A4 B1 LDY $B1 +0F6E- C2 ??? +0F6F- 8D A0 C2 STA $C2A0 +0F72- C5 D1 CMP $D1 +0F74- A0 D3 LDY #$D3 +0F76- C5 D3 CMP $D3 +0F78- C3 ??? +0F79- 8D A0 C3 STA $C3A0 +0F7C- CD D0 A0 CMP $A0D0 +0F7F- A3 ??? +0F80- B2 B1 LDA ($B1) +0F82- 8D A0 C2 STA $C2A0 +0F85- C5 D1 CMP $D1 +0F87- A0 C4 LDY #$C4 +0F89- CF ??? +0F8A- D7 ??? +0F8B- CE 8D A0 DEC $A08D +0F8E- C3 ??? +0F8F- CD D0 A0 CMP $A0D0 +0F92- A3 ??? +0F93- B1 B0 LDA ($B0),Y +0F95- 8D A0 C2 STA $C2A0 +0F98- C5 D1 CMP $D1 +0F9A- A0 C4 LDY #$C4 +0F9C- CF ??? +0F9D- D7 ??? +0F9E- CE 8D A0 DEC $A08D +0FA1- C3 ??? +0FA2- CD D0 A0 CMP $A0D0 +0FA5- A3 ??? +0FA6- B0 B8 BCS $0F60 +0FA8- 8D A0 C2 STA $C2A0 +0FAB- C5 D1 CMP $D1 +0FAD- A0 D5 LDY #$D5 +0FAF- D0 8D BNE $0F3E +0FB1- A0 C3 LDY #$C3 +0FB3- CD D0 A0 CMP $A0D0 +0FB6- A3 ??? +0FB7- B1 B1 LDA ($B1),Y +0FB9- 8D A0 C2 STA $C2A0 +0FBC- C5 D1 CMP $D1 +0FBE- A0 D5 LDY #$D5 +0FC0- D0 8D BNE $0F4F +0FC2- A0 CA LDY #$CA +0FC4- CD D0 A0 CMP $A0D0 +0FC7- D3 ??? +0FC8- C5 CC CMP $CC +0FCA- C5 C3 CMP $C3 +0FCC- D4 ??? +0FCD- B0 8D BCS $0F5C +0FCF- AA TAX +0FD0- 8D D3 D2 STA $D2D3 +0FD3- C5 D4 CMP $D4 +0FD5- D5 D2 CMP $D2,X +0FD7- CE A0 C3 DEC $C3A0 +0FDA- CC C3 8D CPY $8DC3 +0FDD- A0 D2 LDY #$D2 +0FDF- D4 ??? +0FE0- D3 ??? +0FE1- 8D AA 8D STA $8DAA +0FE4- D3 ??? +0FE5- C5 D3 CMP $D3 +0FE7- C3 ??? +0FE8- A0 D3 LDY #$D3 +0FEA- C5 C3 CMP $C3 +0FEC- 8D A0 D2 STA $D2A0 +0FEF- D4 ??? +0FF0- D3 ??? +0FF1- 8D AA 8D STA $8DAA +0FF4- D5 D0 CMP $D0,X +0FF6- A0 C4 LDY #$C4 +0FF8- C5 C3 CMP $C3 +0FFA- A0 D3 LDY #$D3 +0FFC- C5 CC CMP $CC +0FFE- C3 ??? +0FFF- D5 D2 CMP $D2,X +1001- 8D A0 C2 STA $C2A0 +1004- CE C5 A0 DEC $A0C5 +1007- C3 ??? +1008- D3 ??? +1009- C5 D4 CMP $D4 +100B- 8D A0 CC STA $CCA0 +100E- C4 C1 CPY $C1 +1010- A0 D3 LDY #$D3 +1012- C5 CC CMP $CC +1014- CD C1 D8 CMP $D8C1 +1017- 8D A0 D3 STA $D3A0 +101A- D4 ??? +101B- C1 A0 CMP ($A0,X) +101D- D3 ??? +101E- C5 CC CMP $CC +1020- C3 ??? +1021- D5 D2 CMP $D2,X +1023- 8D A0 CA STA $CAA0 +1026- CD D0 A0 CMP $A0D0 +1029- C3 ??? +102A- D3 ??? +102B- C5 D4 CMP $D4 +102D- 8D AA 8D STA $8DAA +1030- C4 CF CPY $CF +1032- D7 ??? +1033- CE A0 CC DEC $CCA0 +1036- C4 D8 CPY $D8 +1038- A0 D3 LDY #$D3 +103A- C5 CC CMP $CC +103C- C3 ??? +103D- D5 D2 CMP $D2,X +103F- 8D A0 C3 STA $C3A0 +1042- D0 D8 BNE $101C +1044- A0 D3 LDY #$D3 +1046- C5 CC CMP $CC +1048- CD C1 D8 CMP $D8C1 +104B- 8D A0 C2 STA $C2A0 +104E- CE C5 A0 DEC $A0C5 +1051- C4 CF CPY $CF +1053- D7 ??? +1054- CE B2 8D DEC $8DB2 +1057- A0 CC LDY #$CC +1059- C4 D8 CPY $D8 +105B- A0 A3 LDY #$A3 +105D- B0 B0 BCS $100F +105F- 8D C4 CF STA $CFC4 +1062- D7 ??? +1063- CE B2 A0 DEC $A0B2 +1066- C9 CE CMP #$CE +1068- D8 CLD +1069- 8D A0 D3 STA $D3A0 +106C- D4 ??? +106D- D8 CLD +106E- A0 D3 LDY #$D3 +1070- C5 CC CMP $CC +1072- C3 ??? +1073- D5 D2 CMP $D2,X +1075- 8D C3 D3 STA $D3C3 +1078- C5 D4 CMP $D4 +107A- A0 CC LDY #$CC +107C- C4 C1 CPY $C1 +107E- A0 A3 LDY #$A3 +1080- B1 B6 LDA ($B6),Y +1082- 8D A0 D3 STA $D3A0 +1085- D4 ??? +1086- C1 A0 CMP ($A0,X) +1088- C3 ??? +1089- C6 CC DEC $CC +108B- C1 C7 CMP ($C7,X) +108D- 8D A0 CA STA $CAA0 +1090- CD D0 A0 CMP $A0D0 +1093- D3 ??? +1094- C5 CC CMP $CC +1096- C5 C3 CMP $C3 +1098- D4 ??? +1099- B0 8D BCS $1028 +109B- AA TAX +109C- 8D AA AD STA $ADAA +109F- AD AD AD LDA $ADAD +10A2- AD AD AD LDA $ADAD +10A5- AD AD AD LDA $ADAD +10A8- AD AD 8D LDA $8DAD +10AB- CA DEX +10AC- D3 ??? +10AD- D4 ??? +10AE- C9 C3 CMP #$C3 +10B0- CB ??? +10B1- A0 CA LDY #$CA +10B3- D3 ??? +10B4- D2 A0 CMP ($A0) +10B6- C7 ??? +10B7- C5 D4 CMP $D4 +10B9- D0 C4 BNE $107F +10BB- CC D3 8D CPY $8DD3 +10BE- A0 C4 LDY #$C4 +10C0- C5 C3 CMP $C3 +10C2- A0 C3 LDY #$C3 +10C4- C6 CC DEC $CC +10C6- C1 C7 CMP ($C7,X) +10C8- 8D A0 C2 STA $C2A0 +10CB- CE C5 A0 DEC $A0C5 +10CE- CA DEX +10CF- D3 ??? +10D0- D4 ??? +10D1- C9 C3 CMP #$C3 +10D3- CB ??? +10D4- D8 CLD +10D5- 8D A0 C9 STA $C9A0 +10D8- CE C3 A0 DEC $A0C3 +10DB- C3 ??? +10DC- C6 CC DEC $CC +10DE- C1 C7 CMP ($C7,X) +10E0- 8D A0 CC STA $CCA0 +10E3- C4 C1 CPY $C1 +10E5- A0 CA LDY #$CA +10E7- C6 CC DEC $CC +10E9- C1 C7 CMP ($C7,X) +10EB- 8D A0 C2 STA $C2A0 +10EE- CE C5 A0 DEC $A0C5 +10F1- CA DEX +10F2- D3 ??? +10F3- D4 ??? +10F4- C9 C3 CMP #$C3 +10F6- CB ??? +10F7- B0 8D BCS $1086 +10F9- A0 CC LDY #$CC +10FB- C4 C1 CPY $C1 +10FD- A0 C2 LDY #$C2 +10FF- D5 D4 CMP $D4,X +1101- D4 ??? +1102- CE B0 8D DEC $8DB0 +1105- A0 CF LDY #$CF +1107- D2 C1 CMP ($C1) +1109- A0 C2 LDY #$C2 +110B- D5 D4 CMP $D4,X +110D- D4 ??? +110E- CE B1 8D DEC $8DB1 +1111- A0 C1 LDY #$C1 +1113- CE C4 A0 DEC $A0C4 +1116- A3 ??? +1117- A4 B8 LDY $B8 +1119- B0 8D BCS $10A8 +111B- A0 CF LDY #$CF +111D- D2 C1 CMP ($C1) +111F- A0 D9 LDY #$D9 +1121- C4 C9 CPY $C9 +1123- D2 8D CMP ($8D) +1125- A0 C2 LDY #$C2 +1127- C5 D1 CMP $D1 +1129- A0 CA LDY #$CA +112B- D3 ??? +112C- D4 ??? +112D- C9 C3 CMP #$C3 +112F- CB ??? +1130- B0 8D BCS $10BF +1132- CA DEX +1133- D3 ??? +1134- D4 ??? +1135- C9 C3 CMP #$C3 +1137- CB ??? +1138- D8 CLD +1139- A0 CC LDY #$CC +113B- C4 C1 CPY $C1 +113D- A0 A3 LDY #$A3 +113F- B0 B0 BCS $10F1 +1141- 8D A0 D4 STA $D4A0 +1144- C1 D8 CMP ($D8,X) +1146- 8D A0 D4 STA $D4A0 +1149- C1 D9 CMP ($D9,X) +114B- 8D A0 D2 STA $D2A0 +114E- D4 ??? +114F- D3 ??? +1150- 8D AA 8D STA $8DAA +1153- CA DEX +1154- D3 ??? +1155- D4 ??? +1156- C9 C3 CMP #$C3 +1158- CB ??? +1159- B0 A0 BCS $10FB +115B- CC C4 C1 CPY $C1C4 +115E- A0 A3 LDY #$A3 +1160- B0 B1 BCS $1113 +1162- 8D A0 D3 STA $D3A0 +1165- D4 ??? +1166- C1 A0 CMP ($A0,X) +1168- CA DEX +1169- C6 CC DEC $CC +116B- C1 C7 CMP ($C7,X) +116D- 8D A0 CC STA $CCA0 +1170- C4 C1 CPY $C1 +1172- A0 D9 LDY #$D9 +1174- C4 C9 CPY $C9 +1176- D2 8D CMP ($8D) +1178- A0 D2 LDY #$D2 +117A- D4 ??? +117B- D3 ??? +117C- 8D AA 8D STA $8DAA +117F- C7 ??? +1180- C5 D4 CMP $D4 +1182- D0 C4 BNE $1148 +1184- CC D3 A0 CPY $A0D3 +1187- CC C4 C1 CPY $C1C4 +118A- A0 A3 LDY #$A3 +118C- A4 B2 LDY $B2 +118E- B8 CLV +118F- 8D A0 CA STA $CAA0 +1192- D3 ??? +1193- D2 A0 CMP ($A0) +1195- A4 C6 LDY $C6 +1197- C3 ??? +1198- C1 B8 CMP ($B8,X) +119A- 8D A0 CC STA $CCA0 +119D- C4 D8 CPY $D8 +119F- A0 A3 LDY #$A3 +11A1- B0 B1 BCS $1154 +11A3- 8D A0 CA STA $CAA0 +11A6- D3 ??? +11A7- D2 A0 CMP ($A0) +11A9- A4 C6 LDY $C6 +11AB- C2 ??? +11AC- B1 C5 LDA ($C5),Y +11AE- 8D A0 CC STA $CCA0 +11B1- C4 D8 CPY $D8 +11B3- A0 A3 LDY #$A3 +11B5- B0 B0 BCS $1167 +11B7- 8D A0 C3 STA $C3A0 +11BA- D0 D9 BNE $1195 +11BC- A0 A3 LDY #$A3 +11BE- A4 B1 LDY $B1 +11C0- B0 8D BCS $114F +11C2- A0 C2 LDY #$C2 +11C4- C3 ??? +11C5- D3 ??? +11C6- A0 D0 LDY #$D0 +11C8- D3 ??? +11C9- B2 8D LDA ($8D) +11CB- A0 C4 LDY #$C4 +11CD- C5 D8 CMP $D8 +11CF- 8D D0 D3 STA $D3D0 +11D2- B2 A0 LDA ($A0) +11D4- C3 ??? +11D5- D0 D9 BNE $11B0 +11D7- A0 A3 LDY #$A3 +11D9- A4 C6 LDY $C6 +11DB- B0 8D BCS $116A +11DD- A0 C2 LDY #$C2 +11DF- C3 ??? +11E0- C3 ??? +11E1- A0 D0 LDY #$D0 +11E3- D3 ??? +11E4- D8 CLD +11E5- 8D A0 C9 STA $C9A0 +11E8- CE D8 8D DEC $8DD8 +11EB- D0 D3 BNE $11C0 +11ED- D8 CLD +11EE- A0 D3 LDY #$D3 +11F0- D4 ??? +11F1- D8 CLD +11F2- A0 D9 LDY #$D9 +11F4- C4 C9 CPY $C9 +11F6- D2 8D CMP ($8D) +11F8- A0 D2 LDY #$D2 +11FA- D4 ??? +11FB- D3 ??? +11FC- 8D AA 8D STA $8DAA +11FF- CA DEX +1200- C6 CC DEC $CC +1202- C1 C7 CMP ($C7,X) +1204- A0 C8 LDY #$C8 +1206- C5 D8 CMP $D8 +1208- A0 B0 LDY #$B0 +120A- B0 8D BCS $1199 +120C- C3 ??? +120D- C6 CC DEC $CC +120F- C1 C7 CMP ($C7,X) +1211- A0 C8 LDY #$C8 +1213- C5 D8 CMP $D8 +1215- A0 B0 LDY #$B0 +1217- C6 8D DEC $8D +1219- D9 C4 C9 CMP $C9C4,Y +121C- D2 A0 CMP ($A0) +121E- C8 INY +121F- C5 D8 CMP $D8 +1221- A0 B0 LDY #$B0 +1223- B0 8D BCS $11B2 +1225- C1 D4 CMP ($D4,X) +1227- C5 CD CMP $CD +1229- D0 A0 BNE $11CB +122B- C8 INY +122C- C5 D8 CMP $D8 +122E- A0 B0 LDY #$B0 +1230- B0 8D BCS $11BF +1232- D8 CLD +1233- D4 ??? +1234- C5 CD CMP $CD +1236- D0 A0 BNE $11D8 +1238- C8 INY +1239- C5 D8 CMP $D8 +123B- A0 B0 LDY #$B0 +123D- B0 8D BCS $11CC +123F- D9 D4 C5 CMP $C5D4,Y +1242- CD D0 A0 CMP $A0D0 +1245- C8 INY +1246- C5 D8 CMP $D8 +1248- A0 B0 LDY #$B0 +124A- B0 8D BCS $11D9 +124C- AA TAX +124D- AD AD AD LDA $ADAD +1250- AD AD AD LDA $ADAD +1253- AD AD AD LDA $ADAD +1256- AD AD AD LDA $ADAD +1259- AD AD AD LDA $ADAD +125C- AD AD AD LDA $ADAD +125F- AD 8D AA LDA $AA8D +1262- 20 CD C5 JSR $C5CD +1265- CE D5 20 DEC $20D5 +1268- D4 ??? +1269- C5 D8 CMP $D8 +126B- D4 ??? +126C- 8D AA 8D STA $8DAA +126F- CD C5 CE CMP $CEC5 +1272- D5 D3 CMP $D3,X +1274- D4 ??? +1275- D2 A0 CMP ($A0) +1277- C1 D3 CMP ($D3,X) +1279- C3 ??? +127A- A0 A7 LDY #$A7 +127C- 20 20 20 JSR $2020 +127F- 20 20 20 JSR $2020 +1282- 20 20 20 JSR $2020 +1285- 20 20 20 JSR $2020 +1288- 20 20 AA JSR $AA20 +128B- AA TAX +128C- AA TAX +128D- AA TAX +128E- AA TAX +128F- AA TAX +1290- AA TAX +1291- AA TAX +1292- AA TAX +1293- AA TAX +1294- AA TAX +1295- AA TAX +1296- A7 ??? +1297- 8D A0 C8 STA $C8A0 +129A- C5 D8 CMP $D8 +129C- A0 B0 LDY #$B0 +129E- B0 8D BCS $122D +12A0- A0 C1 LDY #$C1 +12A2- D3 ??? +12A3- C3 ??? +12A4- A0 A7 LDY #$A7 +12A6- 20 20 20 JSR $2020 +12A9- 20 20 20 JSR $2020 +12AC- 20 20 20 JSR $2020 +12AF- 20 20 20 JSR $2020 +12B2- 20 20 AA JSR $AA20 +12B5- 20 20 20 JSR $2020 +12B8- 20 20 20 JSR $2020 +12BB- 20 20 20 JSR $2020 +12BE- 20 AA A7 JSR $A7AA +12C1- 8D A0 C8 STA $C8A0 +12C4- C5 D8 CMP $D8 +12C6- A0 B0 LDY #$B0 +12C8- B0 8D BCS $1257 +12CA- A0 C1 LDY #$C1 +12CC- D3 ??? +12CD- C3 ??? +12CE- A0 A7 LDY #$A7 +12D0- 20 20 20 JSR $2020 +12D3- 20 20 20 JSR $2020 +12D6- 20 20 20 JSR $2020 +12D9- 20 20 20 JSR $2020 +12DC- 20 20 AA JSR $AA20 +12DF- 20 D7 C5 JSR $C5D7 +12E2- CC C3 CF CPY $CFC3 +12E5- CD C5 A1 CMP $A1C5 +12E8- 20 AA A7 JSR $A7AA +12EB- 8D A0 C8 STA $C8A0 +12EE- C5 D8 CMP $D8 +12F0- A0 B0 LDY #$B0 +12F2- B0 8D BCS $1281 +12F4- A0 C1 LDY #$C1 +12F6- D3 ??? +12F7- C3 ??? +12F8- A0 A7 LDY #$A7 +12FA- 20 20 20 JSR $2020 +12FD- 20 20 20 JSR $2020 +1300- 20 20 20 JSR $2020 +1303- 20 20 20 JSR $2020 +1306- 20 20 AA JSR $AA20 +1309- 20 20 20 JSR $2020 +130C- 20 20 20 JSR $2020 +130F- 20 20 20 JSR $2020 +1312- 20 AA A7 JSR $A7AA +1315- 8D A0 C8 STA $C8A0 +1318- C5 D8 CMP $D8 +131A- A0 B0 LDY #$B0 +131C- B0 8D BCS $12AB +131E- A0 C1 LDY #$C1 +1320- D3 ??? +1321- C3 ??? +1322- A0 A7 LDY #$A7 +1324- 20 20 20 JSR $2020 +1327- 20 20 20 JSR $2020 +132A- 20 20 20 JSR $2020 +132D- 20 20 20 JSR $2020 +1330- 20 20 AA JSR $AA20 +1333- AA TAX +1334- AA TAX +1335- AA TAX +1336- AA TAX +1337- AA TAX +1338- AA TAX +1339- AA TAX +133A- AA TAX +133B- AA TAX +133C- AA TAX +133D- AA TAX +133E- A7 ??? +133F- 8D A0 C8 STA $C8A0 +1342- C5 D8 CMP $D8 +1344- A0 B0 LDY #$B0 +1346- B0 B0 BCS $12F8 +1348- B0 8D BCS $12D7 +134A- A0 C1 LDY #$C1 +134C- D3 ??? +134D- C3 ??? +134E- A0 A7 LDY #$A7 +1350- AD AD AD LDA $ADAD +1353- AD AD AD LDA $ADAD +1356- AD AD AD LDA $ADAD +1359- AD AD AD LDA $ADAD +135C- AD AD AD LDA $ADAD +135F- AD AD AD LDA $ADAD +1362- AD AD AD LDA $ADAD +1365- AD AD AD LDA $ADAD +1368- AD AD AD LDA $ADAD +136B- AD AD AD LDA $ADAD +136E- AD AD AD LDA $ADAD +1371- AD AD AD LDA $ADAD +1374- AD AD AD LDA $ADAD +1377- AD A7 8D LDA $8DA7 +137A- A0 C8 LDY #$C8 +137C- C5 D8 CMP $D8 +137E- A0 B0 LDY #$B0 +1380- B0 B0 BCS $1332 +1382- B0 8D BCS $1311 +1384- A0 C1 LDY #$C1 +1386- D3 ??? +1387- C3 ??? +1388- A0 A7 LDY #$A7 +138A- D5 D3 CMP $D3,X +138C- C5 20 CMP $20 +138E- C1 D2 CMP ($D2,X) +1390- D2 CF CMP ($CF) +1392- D7 ??? +1393- 20 CB C5 JSR $C5CB +1396- D9 D3 20 CMP $20D3,Y +1399- D4 ??? +139A- CF ??? +139B- 20 CD C1 JSR $C1CD +139E- CB ??? +139F- C5 20 CMP $20 +13A1- C1 20 CMP ($20,X) +13A3- D3 ??? +13A4- C5 CC CMP $CC +13A6- C5 C3 CMP $C3 +13A8- D4 ??? +13A9- C9 CF CMP #$CF +13AB- CE A7 8D DEC $8DA7 +13AE- A0 C8 LDY #$C8 +13B0- C5 D8 CMP $D8 +13B2- A0 B0 LDY #$B0 +13B4- B0 8D BCS $1343 +13B6- A0 C1 LDY #$C1 +13B8- D3 ??? +13B9- C3 ??? +13BA- A0 A7 LDY #$A7 +13BC- C1 CE CMP ($CE,X) +13BE- C4 20 CPY $20 +13C0- D0 D2 BNE $1394 +13C2- C5 D3 CMP $D3 +13C4- D3 ??? +13C5- 20 BC D2 JSR $D2BC +13C8- C5 D4 CMP $D4 +13CA- D5 D2 CMP $D2,X +13CC- CE BE A7 DEC $A7BE +13CF- 8D A0 C8 STA $C8A0 +13D2- C5 D8 CMP $D8 +13D4- A0 B0 LDY #$B0 +13D6- B0 B0 BCS $1388 +13D8- B0 B0 BCS $138A +13DA- B0 B0 BCS $138C +13DC- B0 B0 BCS $138E +13DE- B0 B0 BCS $1390 +13E0- B0 8D BCS $136F +13E2- A0 C8 LDY #$C8 +13E4- C5 D8 CMP $D8 +13E6- A0 B0 LDY #$B0 +13E8- B0 B0 BCS $139A +13EA- B0 B0 BCS $139C +13EC- B0 B0 BCS $139E +13EE- B0 B0 BCS $13A0 +13F0- B0 B0 BCS $13A2 +13F2- B0 8D BCS $1381 +13F4- A0 C1 LDY #$C1 +13F6- D3 ??? +13F7- C3 ??? +13F8- A0 A7 LDY #$A7 +13FA- AD AD AD LDA $ADAD +13FD- AD AD AD LDA $ADAD +1400- AD AD AD LDA $ADAD +1403- AD AD AD LDA $ADAD +1406- AD AD AD LDA $ADAD +1409- AD AD AD LDA $ADAD +140C- AD AD AD LDA $ADAD +140F- AD AD AD LDA $ADAD +1412- AD AD AD LDA $ADAD +1415- AD AD AD LDA $ADAD +1418- AD AD AD LDA $ADAD +141B- AD AD AD LDA $ADAD +141E- AD AD AD LDA $ADAD +1421- AD A7 8D LDA $8DA7 +1424- A0 C8 LDY #$C8 +1426- C5 D8 CMP $D8 +1428- A0 B0 LDY #$B0 +142A- B0 8D BCS $13B9 +142C- A0 C1 LDY #$C1 +142E- D3 ??? +142F- C3 ??? +1430- A0 A7 LDY #$A7 +1432- 20 20 CF JSR $CF20 +1435- D2 AC CMP ($AC) +1437- 20 D4 D5 JSR $D5D4 +143A- D2 CE CMP ($CE) +143C- 20 CF D6 JSR $D6CF +143F- C5 D2 CMP $D2 +1441- 20 D4 C8 JSR $C8D4 +1444- C5 20 CMP $20 +1446- C4 C9 CPY $C9 +1448- D3 ??? +1449- CB ??? +144A- 20 C1 CE JSR $CEC1 +144D- C4 20 CPY $20 +144F- D2 C5 CMP ($C5) +1451- D3 ??? +1452- C5 D4 CMP $D4 +1454- 20 D4 C8 JSR $C8D4 +1457- C5 A7 CMP $A7 +1459- 8D A0 C8 STA $C8A0 +145C- C5 D8 CMP $D8 +145E- A0 B0 LDY #$B0 +1460- B0 8D BCS $13EF +1462- A0 C1 LDY #$C1 +1464- D3 ??? +1465- C3 ??? +1466- A0 A7 LDY #$A7 +1468- 20 20 20 JSR $2020 +146B- 20 C3 CF JSR $CFC3 +146E- CD D0 D5 CMP $D5D0 +1471- D4 ??? +1472- C5 D2 CMP $D2 +1474- 20 D4 CF JSR $CFD4 +1477- 20 D2 D5 JSR $D5D2 +147A- CE 20 A2 DEC $A220 +147D- D4 ??? +147E- C8 INY +147F- C5 20 CMP $20 +1481- D0 D2 BNE $1455 +1483- C9 CE CMP #$CE +1485- D4 ??? +1486- 20 D3 C8 JSR $C8D3 +1489- CF ??? +148A- D0 A2 BNE $142E +148C- A7 ??? +148D- 8D A0 C8 STA $C8A0 +1490- C5 D8 CMP $D8 +1492- A0 B0 LDY #$B0 +1494- B0 C6 BCS $145C +1496- C6 8D DEC $8D +1498- AA TAX +1499- 8D D3 C5 STA $C5D3 +149C- CC B1 A0 CPY $A0B1 +149F- C1 D3 CMP ($D3,X) +14A1- C3 ??? +14A2- A0 A7 LDY #$A7 +14A4- D2 D5 CMP ($D5) +14A6- CE 20 A2 DEC $A220 +14A9- CD C1 D2 CMP $D2C1 +14AC- D4 ??? +14AD- D9 CD C1 CMP $C1CD,Y +14B0- D4 ??? +14B1- C9 CF CMP #$CF +14B3- CE D3 A2 DEC $A2D3 +14B6- A7 ??? +14B7- 8D A0 C8 STA $C8A0 +14BA- C5 D8 CMP $D8 +14BC- A0 B0 LDY #$B0 +14BE- B0 C6 BCS $1486 +14C0- C6 8D DEC $8D +14C2- D3 ??? +14C3- C5 CC CMP $CC +14C5- B2 C1 LDA ($C1) +14C7- A0 C8 LDY #$C8 +14C9- C5 D8 CMP $D8 +14CB- A0 B0 LDY #$B0 +14CD- B0 8D BCS $145C +14CF- A0 C1 LDY #$C1 +14D1- D3 ??? +14D2- C3 ??? +14D3- A0 A7 LDY #$A7 +14D5- D2 D5 CMP ($D5) +14D7- CE 20 D0 DEC $D020 +14DA- D2 C9 CMP ($C9) +14DC- CE D4 20 DEC $20D4 +14DF- D3 ??? +14E0- C8 INY +14E1- CF ??? +14E2- D0 20 BNE $1504 +14E4- C3 ??? +14E5- CF ??? +14E6- CD D0 C1 CMP $C1D0 +14E9- CE C9 CF DEC $CFC9 +14EC- CE A7 8D DEC $8DA7 +14EF- A0 C8 LDY #$C8 +14F1- C5 D8 CMP $D8 +14F3- A0 B0 LDY #$B0 +14F5- B0 C6 BCS $14BD +14F7- C6 8D DEC $8D +14F9- D3 ??? +14FA- C5 CC CMP $CC +14FC- B2 C2 LDA ($C2) +14FE- A0 C8 LDY #$C8 +1500- C5 D8 CMP $D8 +1502- A0 B0 LDY #$B0 +1504- B0 8D BCS $1493 +1506- A0 C1 LDY #$C1 +1508- D3 ??? +1509- C3 ??? +150A- A0 A7 LDY #$A7 +150C- D5 D0 CMP $D0,X +150E- C7 ??? +150F- D2 C1 CMP ($C1) +1511- C4 C5 CPY $C5 +1513- 20 D5 D4 JSR $D4D5 +1516- C9 CC CMP #$CC +1518- C9 D4 CMP #$D4 +151A- D9 A7 8D CMP $8DA7,Y +151D- A0 C8 LDY #$C8 +151F- C5 D8 CMP $D8 +1521- A0 B0 LDY #$B0 +1523- B0 C6 BCS $14EB +1525- C6 8D DEC $8D +1527- AA TAX +1528- AD AD AD LDA $ADAD +152B- AD AD AD LDA $ADAD +152E- AD AD AD LDA $ADAD +1531- AD AD AD LDA $ADAD +1534- AD AD AD LDA $ADAD +1537- 8D AA 8D STA $8DAA +153A- CD CD D3 CMP $D3CD +153D- D4 ??? +153E- D2 A0 CMP ($A0) +1540- C1 D3 CMP ($D3,X) +1542- C3 ??? +1543- A0 A7 LDY #$A7 +1545- 20 20 20 JSR $2020 +1548- 20 20 20 JSR $2020 +154B- 20 20 20 JSR $2020 +154E- AA TAX +154F- AA TAX +1550- AA TAX +1551- AA TAX +1552- AA TAX +1553- AA TAX +1554- AA TAX +1555- AA TAX +1556- AA TAX +1557- AA TAX +1558- AA TAX +1559- AA TAX +155A- AA TAX +155B- AA TAX +155C- AA TAX +155D- AA TAX +155E- AA TAX +155F- AA TAX +1560- AA TAX +1561- AA TAX +1562- AA TAX +1563- AA TAX +1564- A7 ??? +1565- 8D A0 C8 STA $C8A0 +1568- C5 D8 CMP $D8 +156A- A0 B0 LDY #$B0 +156C- B0 8D BCS $14FB +156E- A0 C1 LDY #$C1 +1570- D3 ??? +1571- C3 ??? +1572- A0 A7 LDY #$A7 +1574- 20 20 20 JSR $2020 +1577- 20 20 20 JSR $2020 +157A- 20 20 20 JSR $2020 +157D- AA TAX +157E- 20 C3 CF JSR $CFC3 +1581- CD C9 CE CMP $CEC9 +1584- C7 ??? +1585- 20 C1 D4 JSR $D4C1 +1588- D4 ??? +1589- D2 C1 CMP ($C1) +158B- C3 ??? +158C- D4 ??? +158D- C9 CF CMP #$CF +158F- CE D3 20 DEC $20D3 +1592- AA TAX +1593- A7 ??? +1594- 8D A0 C8 STA $C8A0 +1597- C5 D8 CMP $D8 +1599- A0 B0 LDY #$B0 +159B- B0 8D BCS $152A +159D- A0 C1 LDY #$C1 +159F- D3 ??? +15A0- C3 ??? +15A1- A0 A7 LDY #$A7 +15A3- 20 20 20 JSR $2020 +15A6- 20 20 20 JSR $2020 +15A9- 20 20 20 JSR $2020 +15AC- AA TAX +15AD- AA TAX +15AE- AA TAX +15AF- AA TAX +15B0- AA TAX +15B1- AA TAX +15B2- AA TAX +15B3- AA TAX +15B4- AA TAX +15B5- AA TAX +15B6- AA TAX +15B7- AA TAX +15B8- AA TAX +15B9- AA TAX +15BA- AA TAX +15BB- AA TAX +15BC- AA TAX +15BD- AA TAX +15BE- AA TAX +15BF- AA TAX +15C0- AA TAX +15C1- AA TAX +15C2- A7 ??? +15C3- 8D A0 C8 STA $C8A0 +15C6- C5 D8 CMP $D8 +15C8- A0 B0 LDY #$B0 +15CA- B0 B0 BCS $157C +15CC- B0 8D BCS $155B +15CE- A0 C1 LDY #$C1 +15D0- D3 ??? +15D1- C3 ??? +15D2- A0 A7 LDY #$A7 +15D4- AD AD AD LDA $ADAD +15D7- AD AD AD LDA $ADAD +15DA- AD AD AD LDA $ADAD +15DD- AD AD AD LDA $ADAD +15E0- AD AD AD LDA $ADAD +15E3- AD AD AD LDA $ADAD +15E6- AD AD AD LDA $ADAD +15E9- AD AD AD LDA $ADAD +15EC- AD AD AD LDA $ADAD +15EF- AD AD AD LDA $ADAD +15F2- AD AD AD LDA $ADAD +15F5- AD AD AD LDA $ADAD +15F8- AD AD AD LDA $ADAD +15FB- AD A7 8D LDA $8DA7 +15FE- A0 C8 LDY #$C8 +1600- C5 D8 CMP $D8 +1602- A0 B0 LDY #$B0 +1604- B0 8D BCS $1593 +1606- A0 C1 LDY #$C1 +1608- D3 ??? +1609- C3 ??? +160A- A0 A7 LDY #$A7 +160C- D7 ??? +160D- C5 20 CMP $20 +160F- C8 INY +1610- C5 D2 CMP $D2 +1612- C5 20 CMP $20 +1614- C1 D4 CMP ($D4,X) +1616- 20 C2 D2 JSR $D2C2 +1619- B0 C4 BCS $15DF +161B- C5 D2 CMP $D2 +161D- C2 ??? +161E- D5 CE CMP $CE,X +1620- C4 20 CPY $20 +1622- D7 ??? +1623- CF ??? +1624- D5 CC CMP $CC,X +1626- C4 20 CPY $20 +1628- CC C9 CB CPY $CBC9 +162B- C5 20 CMP $20 +162D- D4 ??? +162E- CF ??? +162F- A7 ??? +1630- 8D A0 C8 STA $C8A0 +1633- C5 D8 CMP $D8 +1635- A0 B0 LDY #$B0 +1637- B0 8D BCS $15C6 +1639- A0 C1 LDY #$C1 +163B- D3 ??? +163C- C3 ??? +163D- A0 A7 LDY #$A7 +163F- D3 ??? +1640- C8 INY +1641- C1 D2 CMP ($D2,X) +1643- C5 20 CMP $20 +1645- D7 ??? +1646- C9 D4 CMP #$D4 +1648- C8 INY +1649- 20 D9 CF JSR $CFD9 +164C- D5 20 CMP $20,X +164E- C1 20 CMP ($20,X) +1650- C7 ??? +1651- CC C9 CD CPY $CDC9 +1654- D0 D3 BNE $1629 +1656- C5 20 CMP $20 +1658- CF ??? +1659- C6 20 DEC $20 +165B- D4 ??? +165C- C8 INY +165D- C5 20 CMP $20 +165F- C6 D5 DEC $D5 +1661- D4 ??? +1662- D5 D2 CMP $D2,X +1664- C5 AE CMP $AE +1666- A7 ??? +1667- 8D A0 C8 STA $C8A0 +166A- C5 D8 CMP $D8 +166C- A0 B0 LDY #$B0 +166E- B0 8D BCS $15FD +1670- A0 C1 LDY #$C1 +1672- D3 ??? +1673- C3 ??? +1674- A0 A7 LDY #$A7 +1676- CD C1 D2 CMP $D2C1 +1679- D4 ??? +167A- C9 CE CMP #$CE +167C- 20 CB C1 JSR $C1CB +167F- C8 INY +1680- CE AC 20 DEC $20AC +1683- CF ??? +1684- CE C5 20 DEC $20C5 +1687- CF ??? +1688- C6 20 DEC $20 +168A- D4 ??? +168B- C8 INY +168C- C5 20 CMP $20 +168E- C1 D5 CMP ($D5,X) +1690- D4 ??? +1691- C8 INY +1692- CF ??? +1693- D2 D3 CMP ($D3) +1695- 20 CF C6 JSR $C6CF +1698- A7 ??? +1699- 8D A0 C8 STA $C8A0 +169C- C5 D8 CMP $D8 +169E- A0 B0 LDY #$B0 +16A0- B0 8D BCS $162F +16A2- A0 C1 LDY #$C1 +16A4- D3 ??? +16A5- C3 ??? +16A6- A0 A7 LDY #$A7 +16A8- A2 D4 LDX #$D4 +16AA- C8 INY +16AB- C5 20 CMP $20 +16AD- D0 D2 BNE $1681 +16AF- C9 CE CMP #$CE +16B1- D4 ??? +16B2- 20 D3 C8 JSR $C8D3 +16B5- CF ??? +16B6- D0 A2 BNE $165A +16B8- AC 20 C8 LDY $C820 +16BB- C1 D3 CMP ($D3,X) +16BD- 20 C4 C5 JSR $C5C4 +16C0- D6 C5 DEC $C5,X +16C2- CC CF D0 CPY $D0CF +16C5- C5 C4 CMP $C4 +16C7- 20 C1 20 JSR $20C1 +16CA- CE C5 D7 DEC $D7C5 +16CD- A7 ??? +16CE- 8D A0 C8 STA $C8A0 +16D1- C5 D8 CMP $D8 +16D3- A0 B0 LDY #$B0 +16D5- B0 8D BCS $1664 +16D7- A0 C1 LDY #$C1 +16D9- D3 ??? +16DA- C3 ??? +16DB- A0 A7 LDY #$A7 +16DD- C1 CE CMP ($CE,X) +16DF- C9 CD CMP #$CD +16E1- C1 D4 CMP ($D4,X) +16E3- C9 CF CMP #$CF +16E5- CE 20 D4 DEC $D420 +16E8- C5 C3 CMP $C3 +16EA- C8 INY +16EB- CE C9 D1 DEC $D1C9 +16EE- D5 C5 CMP $C5,X +16F0- 20 C6 CF JSR $CFC6 +16F3- D2 20 CMP ($20) +16F5- D4 ??? +16F6- C8 INY +16F7- C5 20 CMP $20 +16F9- C1 D0 CMP ($D0,X) +16FB- D0 CC BNE $16C9 +16FD- C5 20 CMP $20 +16FF- C9 C9 CMP #$C9 +1701- AE A7 8D LDX $8DA7 +1704- A0 C8 LDY #$C8 +1706- C5 D8 CMP $D8 +1708- A0 B0 LDY #$B0 +170A- B0 8D BCS $1699 +170C- A0 C1 LDY #$C1 +170E- D3 ??? +170F- C3 ??? +1710- A0 A7 LDY #$A7 +1712- D7 ??? +1713- C5 20 CMP $20 +1715- C8 INY +1716- CF ??? +1717- D0 C5 BNE $16DE +1719- 20 D4 CF JSR $CFD4 +171C- 20 C2 C5 JSR $C5C2 +171F- 20 D5 D3 JSR $D3D5 +1722- C9 CE CMP #$CE +1724- C7 ??? +1725- 20 D4 C8 JSR $C8D4 +1728- C9 D3 CMP #$D3 +172A- 20 C5 D8 JSR $D8C5 +172D- C3 ??? +172E- C9 D4 CMP #$D4 +1730- C9 CE CMP #$CE +1732- C7 ??? +1733- A7 ??? +1734- 8D A0 C8 STA $C8A0 +1737- C5 D8 CMP $D8 +1739- A0 B0 LDY #$B0 +173B- B0 8D BCS $16CA +173D- A0 C1 LDY #$C1 +173F- D3 ??? +1740- C3 ??? +1741- A0 A7 LDY #$A7 +1743- D4 ??? +1744- C5 C3 CMP $C3 +1746- C8 INY +1747- CE C9 D1 DEC $D1C9 +174A- D5 C5 CMP $C5,X +174C- 20 C9 CE JSR $CEC9 +174F- 20 D5 D0 JSR $D0D5 +1752- C3 ??? +1753- CF ??? +1754- CD C9 CE CMP $CEC9 +1757- C7 ??? +1758- 20 D0 D2 JSR $D2D0 +175B- CF ??? +175C- C4 D5 CPY $D5 +175E- C3 ??? +175F- D4 ??? +1760- D3 ??? +1761- AE 20 20 LDX $2020 +1764- C2 ??? +1765- D5 D4 CMP $D4,X +1767- 20 C6 CF JSR $CFC6 +176A- D2 A7 CMP ($A7) +176C- 8D A0 C8 STA $C8A0 +176F- C5 D8 CMP $D8 +1771- A0 B0 LDY #$B0 +1773- B0 8D BCS $1702 +1775- A0 C1 LDY #$C1 +1777- D3 ??? +1778- C3 ??? +1779- A0 A7 LDY #$A7 +177B- CE CF D7 DEC $D7CF +177E- AC 20 C8 LDY $C820 +1781- C5 D2 CMP $D2 +1783- C5 20 CMP $20 +1785- C9 D3 CMP #$D3 +1787- 20 C1 20 JSR $20C1 +178A- CC C9 D4 CPY $D4C9 +178D- D4 ??? +178E- CC C5 20 CPY $20C5 +1791- D4 ??? +1792- C1 D3 CMP ($D3,X) +1794- D4 ??? +1795- C5 AE CMP $AE +1797- 20 20 C8 JSR $C820 +179A- CF ??? +179B- CC C4 20 CPY $20C4 +179E- CF ??? +179F- CE A7 8D DEC $8DA7 +17A2- A0 C8 LDY #$C8 +17A4- C5 D8 CMP $D8 +17A6- A0 B0 LDY #$B0 +17A8- B0 8D BCS $1737 +17AA- A0 C1 LDY #$C1 +17AC- D3 ??? +17AD- C3 ??? +17AE- A0 A7 LDY #$A7 +17B0- D4 ??? +17B1- CF ??? +17B2- 20 D9 CF JSR $CFD9 +17B5- D5 D2 CMP $D2,X +17B7- 20 D3 C5 JSR $C5D3 +17BA- C1 D4 CMP ($D4,X) +17BC- D3 ??? +17BD- AC 20 C1 LDY $C120 +17C0- CE C4 20 DEC $20C4 +17C3- CD C1 CB CMP $CBC1 +17C6- C5 20 CMP $20 +17C8- C1 20 CMP ($20,X) +17CA- D3 ??? +17CB- C5 CC CMP $CC +17CD- C5 C3 CMP $C3 +17CF- D4 ??? +17D0- C9 CF CMP #$CF +17D2- CE BA A7 DEC $A7BA +17D5- 8D A0 C8 STA $C8A0 +17D8- C5 D8 CMP $D8 +17DA- A0 B0 LDY #$B0 +17DC- B0 B0 BCS $178E +17DE- B0 B0 BCS $1790 +17E0- B0 B0 BCS $1792 +17E2- B0 B0 BCS $1794 +17E4- B0 B0 BCS $1796 +17E6- B0 B0 BCS $1798 +17E8- B0 B0 BCS $179A +17EA- B0 B0 BCS $179C +17EC- B0 8D BCS $177B +17EE- A0 C1 LDY #$C1 +17F0- D3 ??? +17F1- C3 ??? +17F2- A0 A7 LDY #$A7 +17F4- AD AD AD LDA $ADAD +17F7- AD AD AD LDA $ADAD +17FA- AD AD AD LDA $ADAD +17FD- AD AD AD LDA $ADAD +1800- AD AD AD LDA $ADAD +1803- AD AD AD LDA $ADAD +1806- AD AD AD LDA $ADAD +1809- AD AD AD LDA $ADAD +180C- AD AD AD LDA $ADAD +180F- AD AD AD LDA $ADAD +1812- AD AD AD LDA $ADAD +1815- AD AD AD LDA $ADAD +1818- AD AD AD LDA $ADAD +181B- A7 ??? +181C- 8D A0 C8 STA $C8A0 +181F- C5 D8 CMP $D8 +1821- A0 B0 LDY #$B0 +1823- B0 8D BCS $17B2 +1825- A0 C1 LDY #$C1 +1827- D3 ??? +1828- C3 ??? +1829- A0 A7 LDY #$A7 +182B- BC C5 D3 LDY $D3C5,X +182E- C3 ??? +182F- BE 20 D4 LDX $D420,Y +1832- CF ??? +1833- 20 C7 CF JSR $CFC7 +1836- 20 C2 C1 JSR $C1C2 +1839- C3 ??? +183A- CB ??? +183B- A7 ??? +183C- 8D A0 C8 STA $C8A0 +183F- C5 D8 CMP $D8 +1841- A0 B0 LDY #$B0 +1843- B0 C6 BCS $180B +1845- C6 8D DEC $8D +1847- AA TAX +1848- 8D CD CD STA $CDCD +184B- D3 ??? +184C- C5 CC CMP $CC +184E- A0 C1 LDY #$C1 +1850- D3 ??? +1851- C3 ??? +1852- A0 A7 LDY #$A7 +1854- C2 ??? +1855- D5 C2 CMP $C2,X +1857- C2 ??? +1858- CC C5 D3 CPY $D3C5 +185B- A7 ??? +185C- 8D A0 C8 STA $C8A0 +185F- C5 D8 CMP $D8 +1861- A0 B0 LDY #$B0 +1863- B0 8D BCS $17F2 +1865- A0 C1 LDY #$C1 +1867- D3 ??? +1868- C3 ??? +1869- A0 A7 LDY #$A7 +186B- D3 ??? +186C- D0 C9 BNE $1837 +186E- D2 C1 CMP ($C1) +1870- CC A7 8D CPY $8DA7 +1873- A0 C8 LDY #$C8 +1875- C5 D8 CMP $D8 +1877- A0 B0 LDY #$B0 +1879- B0 8D BCS $1808 +187B- A0 C1 LDY #$C1 +187D- D3 ??? +187E- C3 ??? +187F- A0 A7 LDY #$A7 +1881- D7 ??? +1882- C8 INY +1883- C9 D2 CMP #$D2 +1885- CC D0 CF CPY $CFD0 +1888- CF ??? +1889- CC A7 8D CPY $8DA7 +188C- A0 C8 LDY #$C8 +188E- C5 D8 CMP $D8 +1890- A0 B0 LDY #$B0 +1892- B0 8D BCS $1821 +1894- A0 C1 LDY #$C1 +1896- D3 ??? +1897- C3 ??? +1898- A0 A7 LDY #$A7 +189A- C1 D3 CMP ($D3,X) +189C- D4 ??? +189D- C5 D2 CMP $D2 +189F- CF ??? +18A0- C9 C4 CMP #$C4 +18A2- A7 ??? +18A3- 8D A0 C8 STA $C8A0 +18A6- C5 D8 CMP $D8 +18A8- A0 B0 LDY #$B0 +18AA- B0 8D BCS $1839 +18AC- A0 C1 LDY #$C1 +18AE- D3 ??? +18AF- C3 ??? +18B0- A0 A7 LDY #$A7 +18B2- D2 C9 CMP ($C9) +18B4- D0 D0 BNE $1886 +18B6- CC C5 A7 CPY $A7C5 +18B9- 8D A0 C8 STA $C8A0 +18BC- C5 D8 CMP $D8 +18BE- A0 B0 LDY #$B0 +18C0- B0 8D BCS $184F +18C2- A0 C1 LDY #$C1 +18C4- D3 ??? +18C5- C3 ??? +18C6- A0 A7 LDY #$A7 +18C8- C2 ??? +18C9- D2 C1 CMP ($C1) +18CB- C9 CE CMP #$CE +18CD- D7 ??? +18CE- C1 D6 CMP ($D6,X) +18D0- C5 A7 CMP $A7 +18D2- 8D A0 C8 STA $C8A0 +18D5- C5 D8 CMP $D8 +18D7- A0 B0 LDY #$B0 +18D9- B0 8D BCS $1868 +18DB- A0 C1 LDY #$C1 +18DD- D3 ??? +18DE- C3 ??? +18DF- A0 A7 LDY #$A7 +18E1- C3 ??? +18E2- CF ??? +18E3- CE D4 C9 DEC $C9D4 +18E6- CE D5 CF DEC $CFD5 +18E9- D5 D3 CMP $D3,X +18EB- 20 A2 CD JSR $CDA2 +18EE- C1 D2 CMP ($D2,X) +18F0- D4 ??? +18F1- D9 CD C1 CMP $C1CD,Y +18F4- D4 ??? +18F5- C9 CF CMP #$CF +18F7- CE A2 20 DEC $20A2 +18FA- C4 C5 CPY $C5 +18FC- CD CF A7 CMP $A7CF +18FF- 8D A0 C8 STA $C8A0 +1902- C5 D8 CMP $D8 +1904- A0 B0 LDY #$B0 +1906- B0 C6 BCS $18CE +1908- C6 8D DEC $8D +190A- A0 C5 LDY #$C5 +190C- CE C4 8D DEC $8DC4 diff --git a/PSC Source Disk 4 - Fastload - Copy Protection - Title Page (v13)/DEMOMENU.txt b/PSC Source Disk 4 - Fastload - Copy Protection - Title Page (v13)/DEMOMENU.txt new file mode 100644 index 0000000..4b567e2 --- /dev/null +++ b/PSC Source Disk 4 - Fastload - Copy Protection - Title Page (v13)/DEMOMENU.txt @@ -0,0 +1,697 @@ +1A00- 4C 07 1A JMP $1A07 +1A03- 02 ??? +1A04- 01 00 ORA ($00,X) +1A06- 00 BRK +1A07- AD 03 1A LDA $1A03 +1A0A- C9 01 CMP #$01 +1A0C- F0 32 BEQ $1A40 +1A0E- 20 00 8E JSR $8E00 +1A11- AD 51 C0 LDA $C051 rw:TXTSET +1A14- A9 00 LDA #$00 +1A16- 8D 13 8E STA $8E13 +1A19- A9 00 LDA #$00 +1A1B- A2 69 LDX #$69 +1A1D- A0 1B LDY #$1B +1A1F- 20 10 8E JSR $8E10 +1A22- EE 06 1A INC $1A06 +1A25- AD 03 1A LDA $1A03 +1A28- 8D 13 8E STA $8E13 +1A2B- A9 02 LDA #$02 +1A2D- 8D 05 1A STA $1A05 +1A30- 20 A9 1A JSR $1AA9 +1A33- AD 13 8E LDA $8E13 +1A36- 8D 03 1A STA $1A03 +1A39- B0 D3 BCS $1A0E +1A3B- C9 01 CMP #$01 +1A3D- F0 01 BEQ $1A40 +1A3F- 60 RTS +1A40- 20 00 8E JSR $8E00 +1A43- AD 51 C0 LDA $C051 rw:TXTSET +1A46- A9 00 LDA #$00 +1A48- 8D 06 1A STA $1A06 +1A4B- 8D 13 8E STA $8E13 +1A4E- A2 13 LDX #$13 +1A50- A0 1D LDY #$1D +1A52- 20 10 8E JSR $8E10 +1A55- AD 04 1A LDA $1A04 +1A58- 8D 13 8E STA $8E13 +1A5B- A9 07 LDA #$07 +1A5D- 8D 05 1A STA $1A05 +1A60- A9 0F LDA #$0F +1A62- A2 30 LDX #$30 +1A64- A0 1F LDY #$1F +1A66- 20 A9 1A JSR $1AA9 +1A69- AD 13 8E LDA $8E13 +1A6C- 8D 04 1A STA $1A04 +1A6F- B0 9D BCS $1A0E +1A71- 60 RTS +1A72- 48 PHA +1A73- AD 06 1A LDA $1A06 +1A76- D0 04 BNE $1A7C +1A78- 68 PLA +1A79- 4C 10 8E JMP $8E10 +1A7C- 68 PLA +1A7D- A9 12 LDA #$12 +1A7F- A2 D2 LDX #$D2 +1A81- A0 1C LDY #$1C +1A83- 20 10 8E JSR $8E10 +1A86- A9 0D LDA #$0D +1A88- A2 E6 LDX #$E6 +1A8A- A0 1C LDY #$1C +1A8C- 20 10 8E JSR $8E10 +1A8F- A9 0E LDA #$0E +1A91- A2 01 LDX #$01 +1A93- A0 1D LDY #$1D +1A95- 4C 10 8E JMP $8E10 +1A98- 8D 10 C0 STA $C010 r:KBDSTRB +1A9B- 20 14 8E JSR $8E14 +1A9E- D0 08 BNE $1AA8 +1AA0- AD 00 C0 LDA $C000 r:KBD w:CLR80COL +1AA3- 10 F6 BPL $1A9B +1AA5- 8D 10 C0 STA $C010 r:KBDSTRB +1AA8- 60 RTS +1AA9- 8D 66 1B STA $1B66 +1AAC- 8E 67 1B STX $1B67 +1AAF- 8C 68 1B STY $1B68 +1AB2- 8D 10 C0 STA $C010 r:KBDSTRB +1AB5- AD 66 1B LDA $1B66 +1AB8- AE 67 1B LDX $1B67 +1ABB- AC 68 1B LDY $1B68 +1ABE- 20 72 1A JSR $1A72 +1AC1- 20 1E 1B JSR $1B1E +1AC4- C9 01 CMP #$01 +1AC6- F0 40 BEQ $1B08 +1AC8- C9 FF CMP #$FF +1ACA- F0 2E BEQ $1AFA +1ACC- 20 14 8E JSR $8E14 +1ACF- D0 0A BNE $1ADB +1AD1- AD 00 C0 LDA $C000 r:KBD w:CLR80COL +1AD4- 10 DF BPL $1AB5 +1AD6- 8D 10 C0 STA $C010 r:KBDSTRB +1AD9- 29 7F AND #$7F +1ADB- C9 0D CMP #$0D +1ADD- F0 17 BEQ $1AF6 +1ADF- C9 1B CMP #$1B +1AE1- F0 15 BEQ $1AF8 +1AE3- C9 15 CMP #$15 +1AE5- F0 21 BEQ $1B08 +1AE7- C9 0A CMP #$0A +1AE9- F0 1D BEQ $1B08 +1AEB- C9 08 CMP #$08 +1AED- F0 0B BEQ $1AFA +1AEF- C9 0B CMP #$0B +1AF1- F0 07 BEQ $1AFA +1AF3- 4C B5 1A JMP $1AB5 +1AF6- 18 CLC +1AF7- 60 RTS +1AF8- 38 SEC +1AF9- 60 RTS +1AFA- CE 13 8E DEC $8E13 +1AFD- D0 17 BNE $1B16 +1AFF- AD 05 1A LDA $1A05 +1B02- 8D 13 8E STA $8E13 +1B05- 4C 16 1B JMP $1B16 +1B08- AE 13 8E LDX $8E13 +1B0B- EC 05 1A CPX $1A05 +1B0E- D0 02 BNE $1B12 +1B10- A2 00 LDX #$00 +1B12- E8 INX +1B13- 8E 13 8E STX $8E13 +1B16- A9 10 LDA #$10 +1B18- 8D 64 1B STA $1B64 +1B1B- 4C B5 1A JMP $1AB5 +1B1E- 20 49 1B JSR $1B49 +1B21- CE 64 1B DEC $1B64 +1B24- D0 15 BNE $1B3B +1B26- EE 64 1B INC $1B64 +1B29- AD 63 1B LDA $1B63 +1B2C- D0 12 BNE $1B40 +1B2E- AD 61 C0 LDA $C061 r:BUTN0 +1B31- 0D 62 C0 ORA $C062 r:BUTN1 +1B34- 29 80 AND #$80 +1B36- 0D 65 1B ORA $1B65 +1B39- F0 05 BEQ $1B40 +1B3B- A9 00 LDA #$00 +1B3D- AA TAX +1B3E- A8 TAY +1B3F- 60 RTS +1B40- A9 01 LDA #$01 +1B42- 8D 63 1B STA $1B63 +1B45- AD 65 1B LDA $1B65 +1B48- 60 RTS +1B49- A9 28 LDA #$28 +1B4B- 20 A8 FC JSR $FCA8 F8ROM:WAIT +1B4E- A2 01 LDX #$01 +1B50- 20 1E FB JSR $FB1E F8ROM:PREAD +1B53- A2 00 LDX #$00 +1B55- C0 10 CPY #$10 +1B57- B0 01 BCS $1B5A +1B59- CA DEX +1B5A- C0 F0 CPY #$F0 +1B5C- 90 01 BCC $1B5F +1B5E- E8 INX +1B5F- 8E 65 1B STX $1B65 +1B62- 60 RTS +1B63- 00 BRK +1B64- 0F ??? +1B65- 00 BRK +1B66- 00 BRK +1B67- 00 BRK +1B68- 00 BRK +1B69- 20 20 20 JSR $2020 +1B6C- 20 20 20 JSR $2020 +1B6F- 20 20 20 JSR $2020 +1B72- 20 20 20 JSR $2020 +1B75- 20 20 2A JSR $2A20 +1B78- 2A ROL +1B79- 2A ROL +1B7A- 2A ROL +1B7B- 2A ROL +1B7C- 2A ROL +1B7D- 2A ROL +1B7E- 2A ROL +1B7F- 2A ROL +1B80- 2A ROL +1B81- 2A ROL +1B82- 2A ROL +1B83- 00 BRK +1B84- 20 20 20 JSR $2020 +1B87- 20 20 20 JSR $2020 +1B8A- 20 20 20 JSR $2020 +1B8D- 20 20 20 JSR $2020 +1B90- 20 20 2A JSR $2A20 +1B93- 20 20 20 JSR $2020 +1B96- 20 20 20 JSR $2020 +1B99- 20 20 20 JSR $2020 +1B9C- 20 2A 00 JSR $002A +1B9F- 20 20 20 JSR $2020 +1BA2- 20 20 20 JSR $2020 +1BA5- 20 20 20 JSR $2020 +1BA8- 20 20 20 JSR $2020 +1BAB- 20 20 2A JSR $2A20 +1BAE- 20 57 45 JSR $4557 +1BB1- 4C 43 4F JMP $4F43 +1BB4- 4D 45 21 EOR $2145 +1BB7- 20 2A 00 JSR $002A +1BBA- 20 20 20 JSR $2020 +1BBD- 20 20 20 JSR $2020 +1BC0- 20 20 20 JSR $2020 +1BC3- 20 20 20 JSR $2020 +1BC6- 20 20 2A JSR $2A20 +1BC9- 20 20 20 JSR $2020 +1BCC- 20 20 20 JSR $2020 +1BCF- 20 20 20 JSR $2020 +1BD2- 20 2A 00 JSR $002A +1BD5- 20 20 20 JSR $2020 +1BD8- 20 20 20 JSR $2020 +1BDB- 20 20 20 JSR $2020 +1BDE- 20 20 20 JSR $2020 +1BE1- 20 20 2A JSR $2A20 +1BE4- 2A ROL +1BE5- 2A ROL +1BE6- 2A ROL +1BE7- 2A ROL +1BE8- 2A ROL +1BE9- 2A ROL +1BEA- 2A ROL +1BEB- 2A ROL +1BEC- 2A ROL +1BED- 2A ROL +1BEE- 2A ROL +1BEF- 00 BRK +1BF0- 00 BRK +1BF1- 2D 2D 2D AND $2D2D +1BF4- 2D 2D 2D AND $2D2D +1BF7- 2D 2D 2D AND $2D2D +1BFA- 2D 2D 2D AND $2D2D +1BFD- 2D 2D 2D AND $2D2D +1C00- 2D 2D 2D AND $2D2D +1C03- 2D 2D 2D AND $2D2D +1C06- 2D 2D 2D AND $2D2D +1C09- 2D 2D 2D AND $2D2D +1C0C- 2D 2D 2D AND $2D2D +1C0F- 2D 2D 2D AND $2D2D +1C12- 2D 2D 2D AND $2D2D +1C15- 2D 2D 2D AND $2D2D +1C18- 2D 00 00 AND $0000 +1C1B- 55 53 EOR $53,X +1C1D- 45 20 EOR $20 +1C1F- 41 52 EOR ($52,X) +1C21- 52 4F EOR ($4F) +1C23- 57 ??? +1C24- 20 4B 45 JSR $454B +1C27- 59 53 20 EOR $2053,Y +1C2A- 54 ??? +1C2B- 4F ??? +1C2C- 20 4D 41 JSR $414D +1C2F- 4B ??? +1C30- 45 20 EOR $20 +1C32- 41 20 EOR ($20,X) +1C34- 53 ??? +1C35- 45 4C EOR $4C +1C37- 45 43 EOR $43 +1C39- 54 ??? +1C3A- 49 4F EOR #$4F +1C3C- 4E 00 41 LSR $4100 +1C3F- 4E 44 20 LSR $2044 +1C42- 50 52 BVC $1C96 +1C44- 45 53 EOR $53 +1C46- 53 ??? +1C47- 20 3C 52 JSR $523C +1C4A- 45 54 EOR $54 +1C4C- 55 52 EOR $52,X +1C4E- 4E 3E 00 LSR $003E +1C51- 00 BRK +1C52- 00 BRK +1C53- 00 BRK +1C54- 00 BRK +1C55- 00 BRK +1C56- 00 BRK +1C57- 00 BRK +1C58- 00 BRK +1C59- 00 BRK +1C5A- 00 BRK +1C5B- 00 BRK +1C5C- 2D 2D 2D AND $2D2D +1C5F- 2D 2D 2D AND $2D2D +1C62- 2D 2D 2D AND $2D2D +1C65- 2D 2D 2D AND $2D2D +1C68- 2D 2D 2D AND $2D2D +1C6B- 2D 2D 2D AND $2D2D +1C6E- 2D 2D 2D AND $2D2D +1C71- 2D 2D 2D AND $2D2D +1C74- 2D 2D 2D AND $2D2D +1C77- 2D 2D 2D AND $2D2D +1C7A- 2D 2D 2D AND $2D2D +1C7D- 2D 2D 2D AND $2D2D +1C80- 2D 2D 2D AND $2D2D +1C83- 2D 00 20 AND $2000 +1C86- 20 4F 52 JSR $524F +1C89- 2C 20 54 BIT $5420 +1C8C- 55 52 EOR $52,X +1C8E- 4E 20 4F LSR $4F20 +1C91- 56 45 LSR $45,X +1C93- 52 20 EOR ($20) +1C95- 54 ??? +1C96- 48 PHA +1C97- 45 20 EOR $20 +1C99- 44 ??? +1C9A- 49 53 EOR #$53 +1C9C- 4B ??? +1C9D- 20 41 4E JSR $4E41 +1CA0- 44 ??? +1CA1- 20 52 45 JSR $4552 +1CA4- 53 ??? +1CA5- 45 54 EOR $54 +1CA7- 20 54 48 JSR $4854 +1CAA- 45 00 EOR $00 +1CAC- 20 20 20 JSR $2020 +1CAF- 20 43 4F JSR $4F43 +1CB2- 4D 50 55 EOR $5550 +1CB5- 54 ??? +1CB6- 45 52 EOR $52 +1CB8- 20 54 4F JSR $4F54 +1CBB- 20 52 55 JSR $5552 +1CBE- 4E 20 22 LSR $2220 +1CC1- 54 ??? +1CC2- 48 PHA +1CC3- 45 20 EOR $20 +1CC5- 50 52 BVC $1D19 +1CC7- 49 4E EOR #$4E +1CC9- 54 ??? +1CCA- 20 53 48 JSR $4853 +1CCD- 4F ??? +1CCE- 50 22 BVC $1CF2 +1CD0- 00 BRK +1CD1- FF ??? +1CD2- 52 55 EOR ($55) +1CD4- 4E 20 22 LSR $2220 +1CD7- 4D 41 52 EOR $5241 +1CDA- 54 ??? +1CDB- 59 4D 41 EOR $414D,Y +1CDE- 54 ??? +1CDF- 49 4F EOR #$4F +1CE1- 4E 53 22 LSR $2253 +1CE4- 00 BRK +1CE5- FF ??? +1CE6- 00 BRK +1CE7- 52 55 EOR ($55) +1CE9- 4E 20 50 LSR $5020 +1CEC- 52 49 EOR ($49) +1CEE- 4E 54 20 LSR $2054 +1CF1- 53 ??? +1CF2- 48 PHA +1CF3- 4F ??? +1CF4- 50 20 BVC $1D16 +1CF6- 43 ??? +1CF7- 4F ??? +1CF8- 4D 50 41 EOR $4150 +1CFB- 4E 49 4F LSR $4F49 +1CFE- 4E 00 FF LSR $FF00 +1D01- 00 BRK +1D02- 55 50 EOR $50,X +1D04- 47 ??? +1D05- 52 41 EOR ($41) +1D07- 44 ??? +1D08- 45 20 EOR $20 +1D0A- 55 54 EOR $54,X +1D0C- 49 4C EOR #$4C +1D0E- 49 54 EOR #$54 +1D10- 59 00 FF EOR $FF00,Y +1D13- 20 20 20 JSR $2020 +1D16- 20 20 20 JSR $2020 +1D19- 20 20 20 JSR $2020 +1D1C- 2A ROL +1D1D- 2A ROL +1D1E- 2A ROL +1D1F- 2A ROL +1D20- 2A ROL +1D21- 2A ROL +1D22- 2A ROL +1D23- 2A ROL +1D24- 2A ROL +1D25- 2A ROL +1D26- 2A ROL +1D27- 2A ROL +1D28- 2A ROL +1D29- 2A ROL +1D2A- 2A ROL +1D2B- 2A ROL +1D2C- 2A ROL +1D2D- 2A ROL +1D2E- 2A ROL +1D2F- 2A ROL +1D30- 2A ROL +1D31- 2A ROL +1D32- 00 BRK +1D33- 20 20 20 JSR $2020 +1D36- 20 20 20 JSR $2020 +1D39- 20 20 20 JSR $2020 +1D3C- 2A ROL +1D3D- 20 43 4F JSR $4F43 +1D40- 4D 49 4E EOR $4E49 +1D43- 47 ??? +1D44- 20 41 54 JSR $5441 +1D47- 54 ??? +1D48- 52 41 EOR ($41) +1D4A- 43 ??? +1D4B- 54 ??? +1D4C- 49 4F EOR #$4F +1D4E- 4E 53 20 LSR $2053 +1D51- 2A ROL +1D52- 00 BRK +1D53- 20 20 20 JSR $2020 +1D56- 20 20 20 JSR $2020 +1D59- 20 20 20 JSR $2020 +1D5C- 2A ROL +1D5D- 2A ROL +1D5E- 2A ROL +1D5F- 2A ROL +1D60- 2A ROL +1D61- 2A ROL +1D62- 2A ROL +1D63- 2A ROL +1D64- 2A ROL +1D65- 2A ROL +1D66- 2A ROL +1D67- 2A ROL +1D68- 2A ROL +1D69- 2A ROL +1D6A- 2A ROL +1D6B- 2A ROL +1D6C- 2A ROL +1D6D- 2A ROL +1D6E- 2A ROL +1D6F- 2A ROL +1D70- 2A ROL +1D71- 2A ROL +1D72- 00 BRK +1D73- 00 BRK +1D74- 2D 2D 2D AND $2D2D +1D77- 2D 2D 2D AND $2D2D +1D7A- 2D 2D 2D AND $2D2D +1D7D- 2D 2D 2D AND $2D2D +1D80- 2D 2D 2D AND $2D2D +1D83- 2D 2D 2D AND $2D2D +1D86- 2D 2D 2D AND $2D2D +1D89- 2D 2D 2D AND $2D2D +1D8C- 2D 2D 2D AND $2D2D +1D8F- 2D 2D 2D AND $2D2D +1D92- 2D 2D 2D AND $2D2D +1D95- 2D 2D 2D AND $2D2D +1D98- 2D 2D 2D AND $2D2D +1D9B- 2D 00 57 AND $5700 +1D9E- 45 20 EOR $20 +1DA0- 48 PHA +1DA1- 45 52 EOR $52 +1DA3- 45 20 EOR $20 +1DA5- 41 54 EOR ($54,X) +1DA7- 20 42 52 JSR $5242 +1DAA- 30 44 BMI $1DF0 +1DAC- 45 52 EOR $52 +1DAE- 42 ??? +1DAF- 55 4E EOR $4E,X +1DB1- 44 ??? +1DB2- 20 57 4F JSR $4F57 +1DB5- 55 4C EOR $4C,X +1DB7- 44 ??? +1DB8- 20 4C 49 JSR $494C +1DBB- 4B ??? +1DBC- 45 20 EOR $20 +1DBE- 54 ??? +1DBF- 4F ??? +1DC0- 00 BRK +1DC1- 53 ??? +1DC2- 48 PHA +1DC3- 41 52 EOR ($52,X) +1DC5- 45 20 EOR $20 +1DC7- 57 ??? +1DC8- 49 54 EOR #$54 +1DCA- 48 PHA +1DCB- 20 59 4F JSR $4F59 +1DCE- 55 20 EOR $20,X +1DD0- 41 20 EOR ($20,X) +1DD2- 47 ??? +1DD3- 4C 49 4D JMP $4D49 +1DD6- 50 53 BVC $1E2B +1DD8- 45 20 EOR $20 +1DDA- 4F ??? +1DDB- 46 20 LSR $20 +1DDD- 54 ??? +1DDE- 48 PHA +1DDF- 45 20 EOR $20 +1DE1- 46 55 LSR $55 +1DE3- 54 ??? +1DE4- 55 52 EOR $52,X +1DE6- 45 2E EOR $2E +1DE8- 00 BRK +1DE9- 4D 41 52 EOR $5241 +1DEC- 54 ??? +1DED- 49 4E EOR #$4E +1DEF- 20 4B 41 JSR $414B +1DF2- 48 PHA +1DF3- 4E 2C 20 LSR $202C +1DF6- 4F ??? +1DF7- 4E 45 20 LSR $2045 +1DFA- 4F ??? +1DFB- 46 20 LSR $20 +1DFD- 54 ??? +1DFE- 48 PHA +1DFF- 45 20 EOR $20 +1E01- 41 55 EOR ($55,X) +1E03- 54 ??? +1E04- 48 PHA +1E05- 4F ??? +1E06- 52 53 EOR ($53) +1E08- 20 4F 46 JSR $464F +1E0B- 00 BRK +1E0C- 22 ??? +1E0D- 54 ??? +1E0E- 48 PHA +1E0F- 45 20 EOR $20 +1E11- 50 52 BVC $1E65 +1E13- 49 4E EOR #$4E +1E15- 54 ??? +1E16- 20 53 48 JSR $4853 +1E19- 4F ??? +1E1A- 50 22 BVC $1E3E +1E1C- 2C 20 48 BIT $4820 +1E1F- 41 53 EOR ($53,X) +1E21- 20 44 45 JSR $4544 +1E24- 56 45 LSR $45,X +1E26- 4C 4F 50 JMP $504F +1E29- 45 44 EOR $44 +1E2B- 20 41 20 JSR $2041 +1E2E- 4E 45 57 LSR $5745 +1E31- 00 BRK +1E32- 41 4E EOR ($4E,X) +1E34- 49 4D EOR #$4D +1E36- 41 54 EOR ($54,X) +1E38- 49 4F EOR #$4F +1E3A- 4E 20 54 LSR $5420 +1E3D- 45 43 EOR $43 +1E3F- 48 PHA +1E40- 4E 49 51 LSR $5149 +1E43- 55 45 EOR $45,X +1E45- 20 46 4F JSR $4F46 +1E48- 52 20 EOR ($20) +1E4A- 54 ??? +1E4B- 48 PHA +1E4C- 45 20 EOR $20 +1E4E- 41 50 EOR ($50,X) +1E50- 50 4C BVC $1E9E +1E52- 45 20 EOR $20 +1E54- 49 49 EOR #$49 +1E56- 2E 00 57 ROL $5700 +1E59- 45 20 EOR $20 +1E5B- 48 PHA +1E5C- 4F ??? +1E5D- 50 45 BVC $1EA4 +1E5F- 20 54 4F JSR $4F54 +1E62- 20 42 45 JSR $4542 +1E65- 20 55 53 JSR $5355 +1E68- 49 4E EOR #$4E +1E6A- 47 ??? +1E6B- 20 54 48 JSR $4854 +1E6E- 49 53 EOR #$53 +1E70- 20 45 58 JSR $5845 +1E73- 43 ??? +1E74- 49 54 EOR #$54 +1E76- 49 4E EOR #$4E +1E78- 47 ??? +1E79- 00 BRK +1E7A- 54 ??? +1E7B- 45 43 EOR $43 +1E7D- 48 PHA +1E7E- 4E 49 51 LSR $5149 +1E81- 55 45 EOR $45,X +1E83- 20 49 4E JSR $4E49 +1E86- 20 55 50 JSR $5055 +1E89- 43 ??? +1E8A- 4F ??? +1E8B- 4D 49 4E EOR $4E49 +1E8E- 47 ??? +1E8F- 20 50 52 JSR $5250 +1E92- 4F ??? +1E93- 44 ??? +1E94- 55 43 EOR $43,X +1E96- 54 ??? +1E97- 53 ??? +1E98- 2E 20 20 ROL $2020 +1E9B- 42 ??? +1E9C- 55 54 EOR $54,X +1E9E- 20 46 4F JSR $4F46 +1EA1- 52 00 EOR ($00) +1EA3- 4E 4F 57 LSR $574F +1EA6- 2C 20 48 BIT $4820 +1EA9- 45 52 EOR $52 +1EAB- 45 20 EOR $20 +1EAD- 49 53 EOR #$53 +1EAF- 20 41 20 JSR $2041 +1EB2- 4C 49 54 JMP $5449 +1EB5- 54 ??? +1EB6- 4C 45 20 JMP $2045 +1EB9- 54 ??? +1EBA- 41 53 EOR ($53,X) +1EBC- 54 ??? +1EBD- 45 2E EOR $2E +1EBF- 20 20 48 JSR $4820 +1EC2- 4F ??? +1EC3- 4C 44 20 JMP $2044 +1EC6- 4F ??? +1EC7- 4E 00 54 LSR $5400 +1ECA- 4F ??? +1ECB- 20 59 4F JSR $4F59 +1ECE- 55 52 EOR $52,X +1ED0- 20 53 45 JSR $4553 +1ED3- 41 54 EOR ($54,X) +1ED5- 53 ??? +1ED6- 2C 20 41 BIT $4120 +1ED9- 4E 44 20 LSR $2044 +1EDC- 4D 41 4B EOR $4B41 +1EDF- 45 20 EOR $20 +1EE1- 41 20 EOR ($20,X) +1EE3- 53 ??? +1EE4- 45 4C EOR $4C +1EE6- 45 43 EOR $43 +1EE8- 54 ??? +1EE9- 49 4F EOR #$4F +1EEB- 4E 3A 00 LSR $003A +1EEE- 00 BRK +1EEF- 00 BRK +1EF0- 00 BRK +1EF1- 00 BRK +1EF2- 00 BRK +1EF3- 00 BRK +1EF4- 00 BRK +1EF5- 00 BRK +1EF6- 2D 2D 2D AND $2D2D +1EF9- 2D 2D 2D AND $2D2D +1EFC- 2D 2D 2D AND $2D2D +1EFF- 2D 2D 2D AND $2D2D +1F02- 2D 2D 2D AND $2D2D +1F05- 2D 2D 2D AND $2D2D +1F08- 2D 2D 2D AND $2D2D +1F0B- 2D 2D 2D AND $2D2D +1F0E- 2D 2D 2D AND $2D2D +1F11- 2D 2D 2D AND $2D2D +1F14- 2D 2D 2D AND $2D2D +1F17- 2D 2D 2D AND $2D2D +1F1A- 2D 2D 2D AND $2D2D +1F1D- 00 BRK +1F1E- 3C 45 53 BIT $5345,X +1F21- 43 ??? +1F22- 3E 20 54 ROL $5420,X +1F25- 4F ??? +1F26- 20 47 4F JSR $4F47 +1F29- 20 42 41 JSR $4142 +1F2C- 43 ??? +1F2D- 4B ??? +1F2E- 00 BRK +1F2F- FF ??? +1F30- 42 ??? +1F31- 55 42 EOR $42,X +1F33- 42 ??? +1F34- 4C 45 53 JMP $5345 +1F37- 00 BRK +1F38- 53 ??? +1F39- 50 49 BVC $1F84 +1F3B- 52 41 EOR ($41) +1F3D- 4C 00 57 JMP $5700 +1F40- 48 PHA +1F41- 49 52 EOR #$52 +1F43- 4C 50 4F JMP $4F50 +1F46- 4F ??? +1F47- 4C 00 41 JMP $4100 +1F4A- 53 ??? +1F4B- 54 ??? +1F4C- 45 52 EOR $52 +1F4E- 4F ??? +1F4F- 49 44 EOR #$44 +1F51- 00 BRK +1F52- 52 49 EOR ($49) +1F54- 50 50 BVC $1FA6 +1F56- 4C 45 00 JMP $0045 +1F59- 42 ??? +1F5A- 52 41 EOR ($41) +1F5C- 49 4E EOR #$4E +1F5E- 57 ??? +1F5F- 41 56 EOR ($56,X) +1F61- 45 00 EOR $00 +1F63- 43 ??? +1F64- 4F ??? +1F65- 4E 54 49 LSR $4954 +1F68- 4E 55 4F LSR $4F55 +1F6B- 55 53 EOR $53,X +1F6D- 20 22 4D JSR $4D22 +1F70- 41 52 EOR ($52,X) +1F72- 54 ??? +1F73- 59 4D 41 EOR $414D,Y +1F76- 54 ??? +1F77- 49 4F EOR #$4F +1F79- 4E 22 20 LSR $2022 +1F7C- 44 ??? +1F7D- 45 4D EOR $4D +1F7F- 4F ??? +1F80- 00 BRK +1F81- FF ??? diff --git a/PSC Source Disk 4 - Fastload - Copy Protection - Title Page (v13)/O_BACKUP.txt b/PSC Source Disk 4 - Fastload - Copy Protection - Title Page (v13)/O_BACKUP.txt new file mode 100644 index 0000000..0e503ad --- /dev/null +++ b/PSC Source Disk 4 - Fastload - Copy Protection - Title Page (v13)/O_BACKUP.txt @@ -0,0 +1,1045 @@ +1000- 4C E6 14 JMP $14E6 +1003- 20 54 10 JSR $1054 +1006- AE F8 05 LDX $05F8 +1009- 86 08 STX $08 +100B- BD 89 C0 LDA $C089,X +100E- A9 2C LDA #$2C +1010- 85 E0 STA $E0 +1012- A0 00 LDY #$00 +1014- 88 DEY +1015- D0 04 BNE $101B +1017- C6 E0 DEC $E0 +1019- F0 1D BEQ $1038 +101B- BD 8C C0 LDA $C08C,X +101E- 10 FB BPL $101B +1020- C9 A5 CMP #$A5 +1022- D0 F0 BNE $1014 +1024- BD 8C C0 LDA $C08C,X +1027- 10 FB BPL $1024 +1029- C9 DF CMP #$DF +102B- D0 F3 BNE $1020 +102D- BD 8C C0 LDA $C08C,X +1030- 10 FB BPL $102D +1032- C9 D4 CMP #$D4 +1034- D0 F3 BNE $1029 +1036- 18 CLC +1037- 24 38 BIT $38 +1039- BD 88 C0 LDA $C088,X +103C- 60 RTS +103D- AE F8 05 LDX $05F8 +1040- BD 89 C0 LDA $C089,X +1043- A9 40 LDA #$40 +1045- 85 E0 STA $E0 +1047- 20 44 B9 JSR $B944 +104A- 90 04 BCC $1050 +104C- C6 E0 DEC $E0 +104E- D0 F7 BNE $1047 +1050- BD 88 C0 LDA $C088,X +1053- 60 RTS +1054- A9 00 LDA #$00 +1056- 8D F4 B7 STA $B7F4 +1059- A9 22 LDA #$22 +105B- 8D EC B7 STA $B7EC +105E- A9 00 LDA #$00 +1060- 8D EB B7 STA $B7EB +1063- A0 E8 LDY #$E8 +1065- A9 B7 LDA #$B7 +1067- 4C B5 B7 JMP $B7B5 +106A- 00 BRK +106B- 09 12 ORA #$12 +106D- 1B ??? +106E- 8D F4 B7 STA $B7F4 +1071- A4 E4 LDY $E4 +1073- B9 69 10 LDA $1069,Y +1076- 8D EC B7 STA $B7EC +1079- A9 0F LDA #$0F +107B- 8D ED B7 STA $B7ED +107E- A9 90 LDA #$90 +1080- 85 E0 STA $E0 +1082- A9 20 LDA #$20 +1084- 8D F1 B7 STA $B7F1 +1087- A9 00 LDA #$00 +1089- 8D F0 B7 STA $B7F0 +108C- 20 5E 10 JSR $105E +108F- B0 1D BCS $10AE +1091- AC ED B7 LDY $B7ED +1094- 88 DEY +1095- 10 0C BPL $10A3 +1097- EE EC B7 INC $B7EC +109A- AD EC B7 LDA $B7EC +109D- C9 22 CMP #$22 +109F- B0 0C BCS $10AD +10A1- A0 0F LDY #$0F +10A3- 8C ED B7 STY $B7ED +10A6- EE F1 B7 INC $B7F1 +10A9- C6 E0 DEC $E0 +10AB- D0 DF BNE $108C +10AD- 60 RTS +10AE- 20 58 FC JSR $FC58 F8ROM:HOME +10B1- AD F4 B7 LDA $B7F4 +10B4- C9 02 CMP #$02 +10B6- F0 3A BEQ $10F2 +10B8- 20 2B 11 JSR $112B +10BB- C5 D2 CMP $D2 +10BD- D2 CF CMP ($CF) +10BF- D2 A0 CMP ($A0) +10C1- D2 C5 CMP ($C5) +10C3- C1 C4 CMP ($C4,X) +10C5- C9 CE CMP #$CE +10C7- C7 ??? +10C8- A0 C3 LDY #$C3 +10CA- CF ??? +10CB- CD D0 C1 CMP $C1D0 +10CE- CE C9 CF DEC $CFC9 +10D1- CE A0 C4 DEC $C4A0 +10D4- C9 D3 CMP #$D3 +10D6- CB ??? +10D7- 8D D5 CE STA $CED5 +10DA- C1 C2 CMP ($C2,X) +10DC- CC C5 A0 CPY $A0C5 +10DF- D4 ??? +10E0- CF ??? +10E1- A0 CD LDY #$CD +10E3- C1 CB CMP ($CB,X) +10E5- C5 A0 CMP $A0 +10E7- C2 ??? +10E8- C1 C3 CMP ($C3,X) +10EA- CB ??? +10EB- D5 D0 CMP $D0,X +10ED- AE 00 4C LDX $4C00 +10F0- 58 CLI +10F1- 12 20 ORA ($20) +10F3- 2B ??? +10F4- 11 D5 ORA ($D5),Y +10F6- CE C1 C2 DEC $C2C1 +10F9- CC C5 A0 CPY $A0C5 +10FC- D4 ??? +10FD- CF ??? +10FE- A0 D7 LDY #$D7 +1100- D2 C9 CMP ($C9) +1102- D4 ??? +1103- C5 AC CMP $AC +1105- A0 C2 LDY #$C2 +1107- C1 C4 CMP ($C4,X) +1109- A0 C4 LDY #$C4 +110B- C9 D3 CMP #$D3 +110D- CB ??? +110E- AE 8D D0 LDX $D08D +1111- CC C5 C1 CPY $C1C5 +1114- D3 ??? +1115- C5 A0 CMP $A0 +1117- D4 ??? +1118- D2 D9 CMP ($D9) +111A- A0 C1 LDY #$C1 +111C- CE CF D4 DEC $D4CF +111F- C8 INY +1120- C5 D2 CMP $D2 +1122- AE AE AE LDX $AEAE +1125- 00 BRK +1126- 4C 58 12 JMP $1258 +1129- 46 EA LSR $EA +112B- A9 FF LDA #$FF +112D- 2C A9 3F BIT $3FA9 +1130- 85 32 STA $32 +1132- A9 00 LDA #$00 +1134- 85 E3 STA $E3 +1136- 68 PLA +1137- 85 E0 STA $E0 +1139- 68 PLA +113A- 85 E1 STA $E1 +113C- E6 E0 INC $E0 +113E- D0 02 BNE $1142 +1140- E6 E1 INC $E1 +1142- A0 00 LDY #$00 +1144- B1 E0 LDA ($E0),Y +1146- F0 15 BEQ $115D +1148- 24 EA BIT $EA +114A- 10 04 BPL $1150 +114C- 24 E3 BIT $E3 +114E- 10 19 BPL $1169 +1150- 48 PHA +1151- 20 F0 FD JSR $FDF0 F8ROM:COUT1 +1154- 68 PLA +1155- C9 A0 CMP #$A0 +1157- B0 E3 BCS $113C +1159- 46 E3 LSR $E3 +115B- 10 DF BPL $113C +115D- A5 E1 LDA $E1 +115F- 48 PHA +1160- A5 E0 LDA $E0 +1162- 48 PHA +1163- 38 SEC +1164- 66 EA ROR $EA +1166- 4C 84 FE JMP $FE84 F8ROM:SETNORM +1169- B1 E0 LDA ($E0),Y +116B- C9 A0 CMP #$A0 +116D- 90 03 BCC $1172 +116F- C8 INY +1170- D0 F7 BNE $1169 +1172- 98 TYA +1173- 4A LSR +1174- 49 FF EOR #$FF +1176- 18 CLC +1177- 69 12 ADC #$12 +1179- 85 24 STA $24 +117B- 38 SEC +117C- 66 E3 ROR $E3 +117E- 4C 42 11 JMP $1142 +1181- A0 30 LDY #$30 +1183- AD 30 C0 LDA $C030 rw:SPKR +1186- A9 11 LDA #$11 +1188- 20 A8 FC JSR $FCA8 F8ROM:WAIT +118B- AD 30 C0 LDA $C030 rw:SPKR +118E- A9 13 LDA #$13 +1190- 20 A8 FC JSR $FCA8 F8ROM:WAIT +1193- 88 DEY +1194- D0 ED BNE $1183 +1196- 60 RTS +1197- A9 17 LDA #$17 +1199- 20 C1 FB JSR $FBC1 F8ROM:BASCALC +119C- A0 27 LDY #$27 +119E- A9 20 LDA #$20 +11A0- 91 28 STA ($28),Y +11A2- 88 DEY +11A3- 10 FB BPL $11A0 +11A5- 60 RTS +11A6- 20 2F FB JSR $FB2F F8ROM:INIT +11A9- 20 58 FC JSR $FC58 F8ROM:HOME +11AC- A9 02 LDA #$02 +11AE- 85 20 STA $20 +11B0- A9 24 LDA #$24 +11B2- 85 21 STA $21 +11B4- A9 08 LDA #$08 +11B6- 85 22 STA $22 +11B8- A9 16 LDA #$16 +11BA- 85 23 STA $23 +11BC- A9 00 LDA #$00 +11BE- 20 99 11 JSR $1199 +11C1- A9 01 LDA #$01 +11C3- 20 99 11 JSR $1199 +11C6- A9 02 LDA #$02 +11C8- 20 99 11 JSR $1199 +11CB- 20 97 11 JSR $1197 +11CE- A9 17 LDA #$17 +11D0- 48 PHA +11D1- 20 C1 FB JSR $FBC1 F8ROM:BASCALC +11D4- A0 00 LDY #$00 +11D6- A9 20 LDA #$20 +11D8- 91 28 STA ($28),Y +11DA- A0 27 LDY #$27 +11DC- 91 28 STA ($28),Y +11DE- 68 PLA +11DF- 38 SEC +11E0- E9 01 SBC #$01 +11E2- 10 EC BPL $11D0 +11E4- 20 2E 11 JSR $112E +11E7- 8D D0 D2 STA $D2D0 +11EA- C9 CE CMP #$CE +11EC- D4 ??? +11ED- A0 D3 LDY #$D3 +11EF- C8 INY +11F0- CF ??? +11F1- D0 A0 BNE $1193 +11F3- C3 ??? +11F4- CF ??? +11F5- CD D0 C1 CMP $C1D0 +11F8- CE C9 CF DEC $CFC9 +11FB- CE A0 C2 DEC $C2A0 +11FE- C1 C3 CMP ($C3,X) +1200- CB ??? +1201- D5 D0 CMP $D0,X +1203- A0 D5 LDY #$D5 +1205- D4 ??? +1206- C9 CC CMP #$CC +1208- C9 D4 CMP #$D4 +120A- D9 00 60 CMP $6000,Y +120D- A9 17 LDA #$17 +120F- 20 5B FB JSR $FB5B F8ROM:TABV +1212- 20 2E 11 JSR $112E +1215- D0 D2 BNE $11E9 +1217- C5 D3 CMP $D3 +1219- D3 ??? +121A- A0 BC LDY #$BC +121C- C5 D3 CMP $D3 +121E- C3 ??? +121F- BE A0 D4 LDX $D4A0,Y +1222- CF ??? +1223- A0 C3 LDY #$C3 +1225- C1 CE CMP ($CE,X) +1227- C3 ??? +1228- C5 CC CMP $CC +122A- 00 BRK +122B- 60 RTS +122C- 20 97 11 JSR $1197 +122F- 24 E2 BIT $E2 +1231- 30 03 BMI $1236 +1233- 20 0D 12 JSR $120D +1236- AD 00 C0 LDA $C000 r:KBD w:CLR80COL +1239- 10 FB BPL $1236 +123B- 2C 10 C0 BIT $C010 r:KBDSTRB +123E- C9 9B CMP #$9B +1240- F0 06 BEQ $1248 +1242- 48 PHA +1243- 20 97 11 JSR $1197 +1246- 68 PLA +1247- 60 RTS +1248- 24 E2 BIT $E2 +124A- 10 06 BPL $1252 +124C- 20 81 11 JSR $1181 +124F- 4C 2C 12 JMP $122C +1252- 20 58 FC JSR $FC58 F8ROM:HOME +1255- 4C 5D 12 JMP $125D +1258- A9 14 LDA #$14 +125A- 20 5B FB JSR $FB5B F8ROM:TABV +125D- 20 2B 11 JSR $112B +1260- CD C1 CB CMP $CBC1 +1263- C5 A0 CMP $A0 +1265- D3 ??? +1266- D5 D2 CMP $D2,X +1268- C5 A0 CMP $A0 +126A- D4 ??? +126B- C8 INY +126C- C1 D4 CMP ($D4,X) +126E- A0 D4 LDY #$D4 +1270- C8 INY +1271- C5 A0 CMP $A0 +1273- C3 ??? +1274- CF ??? +1275- CD D0 C1 CMP $C1D0 +1278- CE C9 CF DEC $CFC9 +127B- CE A0 C4 DEC $C4A0 +127E- C9 D3 CMP #$D3 +1280- CB ??? +1281- 8D C9 D3 STA $D3C9 +1284- A0 C9 LDY #$C9 +1286- CE A0 C4 DEC $C4A0 +1289- D2 C9 CMP ($C9) +128B- D6 C5 DEC $C5,X +128D- A0 C1 LDY #$C1 +128F- CE C4 A0 DEC $A0C4 +1292- D0 D2 BNE $1266 +1294- C5 D3 CMP $D3 +1296- D3 ??? +1297- A0 BC LDY #$BC +1299- D2 C5 CMP ($C5) +129B- D4 ??? +129C- D5 D2 CMP $D2,X +129E- CE BE 00 DEC $00BE +12A1- 38 SEC +12A2- 66 E2 ROR $E2 +12A4- 20 81 11 JSR $1181 +12A7- 20 2C 12 JSR $122C +12AA- C9 8D CMP #$8D +12AC- D0 F6 BNE $12A4 +12AE- 20 2F FB JSR $FB2F F8ROM:INIT +12B1- 20 58 FC JSR $FC58 F8ROM:HOME +12B4- 4C 80 02 JMP $0280 +12B7- 20 2B 11 JSR $112B +12BA- 8D 8D 8D STA $8D8D +12BD- D0 D2 BNE $1291 +12BF- C5 D3 CMP $D3 +12C1- D3 ??? +12C2- A0 BC LDY #$BC +12C4- D2 C5 CMP ($C5) +12C6- D4 ??? +12C7- D5 D2 CMP $D2,X +12C9- CE BE A0 DEC $A0BE +12CC- D4 ??? +12CD- CF ??? +12CE- A0 C3 LDY #$C3 +12D0- CF ??? +12D1- CE D4 C9 DEC $C9D4 +12D4- CE D5 C5 DEC $C5D5 +12D7- 00 BRK +12D8- 20 2C 12 JSR $122C +12DB- C9 8D CMP #$8D +12DD- D0 F9 BNE $12D8 +12DF- 4C 58 FC JMP $FC58 F8ROM:HOME +12E2- 8D F5 12 STA $12F5 +12E5- 20 54 10 JSR $1054 +12E8- AE F8 05 LDX $05F8 +12EB- BD 89 C0 LDA $C089,X +12EE- A9 04 LDA #$04 +12F0- 85 E6 STA $E6 +12F2- A0 00 LDY #$00 +12F4- A9 00 LDA #$00 +12F6- 84 E7 STY $E7 +12F8- 85 E8 STA $E8 +12FA- BD 8C C0 LDA $C08C,X +12FD- 10 FB BPL $12FA +12FF- C9 A5 CMP #$A5 +1301- D0 F7 BNE $12FA +1303- BD 8C C0 LDA $C08C,X +1306- 10 FB BPL $1303 +1308- C9 DF CMP #$DF +130A- D0 F3 BNE $12FF +130C- BD 8C C0 LDA $C08C,X +130F- 10 FB BPL $130C +1311- C9 D4 CMP #$D4 +1313- D0 F3 BNE $1308 +1315- BD 8C C0 LDA $C08C,X +1318- 10 FB BPL $1315 +131A- 2A ROL +131B- 85 E5 STA $E5 +131D- BD 8C C0 LDA $C08C,X +1320- 10 FB BPL $131D +1322- 25 E5 AND $E5 +1324- 91 E7 STA ($E7),Y +1326- C8 INY +1327- D0 EC BNE $1315 +1329- 0E FF FF ASL $FFFF +132C- BD 8C C0 LDA $C08C,X +132F- 10 FB BPL $132C +1331- C9 CF CMP #$CF +1333- D0 B9 BNE $12EE +1335- E6 E8 INC $E8 +1337- C6 E6 DEC $E6 +1339- D0 DA BNE $1315 +133B- BD 88 C0 LDA $C088,X +133E- 60 RTS +133F- 20 03 10 JSR $1003 +1342- 90 01 BCC $1345 +1344- 60 RTS +1345- 20 58 FC JSR $FC58 F8ROM:HOME +1348- 20 81 11 JSR $1181 +134B- 20 2B 11 JSR $112B +134E- D2 C5 CMP ($C5) +1350- CD CF D6 CMP $D6CF +1353- C5 A0 CMP $A0 +1355- C3 ??? +1356- CF ??? +1357- CD D0 C1 CMP $C1D0 +135A- CE C9 CF DEC $CFC9 +135D- CE A0 C4 DEC $C4A0 +1360- C9 D3 CMP #$D3 +1362- CB ??? +1363- AE 8D 8D LDX $8D8D +1366- 00 BRK +1367- 24 E9 BIT $E9 +1369- 30 27 BMI $1392 +136B- 20 2B 11 JSR $112B +136E- C9 CE CMP #$CE +1370- D3 ??? +1371- C5 D2 CMP $D2 +1373- D4 ??? +1374- A0 C2 LDY #$C2 +1376- CC C1 CE CPY $CEC1 +1379- CB ??? +137A- A0 C4 LDY #$C4 +137C- C9 D3 CMP #$D3 +137E- CB ??? +137F- A0 C9 LDY #$C9 +1381- CE A0 C4 DEC $C4A0 +1384- C9 D3 CMP #$D3 +1386- CB ??? +1387- A0 C4 LDY #$C4 +1389- D2 C9 CMP ($C9) +138B- D6 C5 DEC $C5,X +138D- AE 00 4C LDX $4C00 +1390- B7 ??? +1391- 13 ??? +1392- 20 2B 11 JSR $112B +1395- C9 CE CMP #$CE +1397- D3 ??? +1398- C5 D2 CMP $D2 +139A- D4 ??? +139B- A0 C2 LDY #$C2 +139D- C1 C3 CMP ($C3,X) +139F- CB ??? +13A0- D5 D0 CMP $D0,X +13A2- A0 C4 LDY #$C4 +13A4- C9 D3 CMP #$D3 +13A6- CB ??? +13A7- A0 C9 LDY #$C9 +13A9- CE A0 C4 DEC $C4A0 +13AC- C9 D3 CMP #$D3 +13AE- CB ??? +13AF- A0 C4 LDY #$C4 +13B1- D2 C9 CMP ($C9) +13B3- D6 C5 DEC $C5,X +13B5- AE 00 20 LDX $2000 +13B8- B7 ??? +13B9- 12 4C ORA ($4C) +13BB- 3F ??? +13BC- 13 ??? +13BD- 20 03 10 JSR $1003 +13C0- B0 01 BCS $13C3 +13C2- 60 RTS +13C3- 20 58 FC JSR $FC58 F8ROM:HOME +13C6- 20 81 11 JSR $1181 +13C9- 20 2B 11 JSR $112B +13CC- D0 CC BNE $139A +13CE- C5 C1 CMP $C1 +13D0- D3 ??? +13D1- C5 A0 CMP $A0 +13D3- D2 C5 CMP ($C5) +13D5- CD CF D6 CMP $D6CF +13D8- C5 A0 CMP $A0 +13DA- D4 ??? +13DB- C8 INY +13DC- C5 A0 CMP $A0 +13DE- C2 ??? +13DF- C1 C3 CMP ($C3,X) +13E1- CB ??? +13E2- D5 D0 CMP $D0,X +13E4- A0 C4 LDY #$C4 +13E6- C9 D3 CMP #$D3 +13E8- CB ??? +13E9- A0 8D LDY #$8D +13EB- C1 CE CMP ($CE,X) +13ED- C4 A0 CPY $A0 +13EF- C9 CE CMP #$CE +13F1- D3 ??? +13F2- C5 D2 CMP $D2 +13F4- D4 ??? +13F5- A0 D4 LDY #$D4 +13F7- C8 INY +13F8- C5 A0 CMP $A0 +13FA- C3 ??? +13FB- CF ??? +13FC- CD D0 C1 CMP $C1D0 +13FF- CE C9 CF DEC $CFC9 +1402- CE A0 C4 DEC $C4A0 +1405- C9 D3 CMP #$D3 +1407- CB ??? +1408- AE 00 20 LDX $2000 +140B- B7 ??? +140C- 12 4C ORA ($4C) +140E- BD 13 20 LDA $2013,X +1411- C9 14 CMP #$14 +1413- 20 3D 10 JSR $103D +1416- B0 2E BCS $1446 +1418- 20 58 FC JSR $FC58 F8ROM:HOME +141B- 20 81 11 JSR $1181 +141E- 20 2B 11 JSR $112B +1421- C3 ??? +1422- C1 D5 CMP ($D5,X) +1424- D4 ??? +1425- C9 CF CMP #$CF +1427- CE BA A0 DEC $A0BA +142A- D4 ??? +142B- C8 INY +142C- C9 D3 CMP #$D3 +142E- A0 C4 LDY #$C4 +1430- C9 D3 CMP #$D3 +1432- CB ??? +1433- A0 C8 LDY #$C8 +1435- C1 D3 CMP ($D3,X) +1437- A0 C4 LDY #$C4 +1439- C1 D4 CMP ($D4,X) +143B- C1 A0 CMP ($A0,X) +143D- CF ??? +143E- CE A0 C9 DEC $C9A0 +1441- D4 ??? +1442- 00 BRK +1443- 20 B7 12 JSR $12B7 +1446- 20 3F 13 JSR $133F +1449- 20 C9 14 JSR $14C9 +144C- A9 04 LDA #$04 +144E- 8D F4 B7 STA $B7F4 +1451- 20 5E 10 JSR $105E +1454- B0 01 BCS $1457 +1456- 60 RTS +1457- AE F8 05 LDX $05F8 +145A- 20 2A B8 JSR $B82A +145D- 90 06 BCC $1465 +145F- 20 99 14 JSR $1499 +1462- 4C 93 14 JMP $1493 +1465- 20 58 FC JSR $FC58 F8ROM:HOME +1468- 20 81 11 JSR $1181 +146B- 20 2B 11 JSR $112B +146E- C4 C5 CPY $C5 +1470- C6 C5 DEC $C5 +1472- C3 ??? +1473- D4 ??? +1474- C9 D6 CMP #$D6 +1476- C5 A0 CMP $A0 +1478- C2 ??? +1479- CC C1 CE CPY $CEC1 +147C- CB ??? +147D- A0 C4 LDY #$C4 +147F- C9 D3 CMP #$D3 +1481- CB ??? +1482- AC A0 D4 LDY $D4A0 +1485- D2 D9 CMP ($D9) +1487- A0 C1 LDY #$C1 +1489- CE CF D4 DEC $D4CF +148C- C8 INY +148D- C5 D2 CMP $D2 +148F- 00 BRK +1490- 20 B7 12 JSR $12B7 +1493- 20 3F 13 JSR $133F +1496- 4C 10 14 JMP $1410 +1499- 20 58 FC JSR $FC58 F8ROM:HOME +149C- 20 81 11 JSR $1181 +149F- 20 2B 11 JSR $112B +14A2- D0 CC BNE $1470 +14A4- C5 C1 CMP $C1 +14A6- D3 ??? +14A7- C5 A0 CMP $A0 +14A9- D2 C5 CMP ($C5) +14AB- CD CF D6 CMP $D6CF +14AE- C5 A0 CMP $A0 +14B0- D4 ??? +14B1- C8 INY +14B2- C5 A0 CMP $A0 +14B4- D7 ??? +14B5- D2 C9 CMP ($C9) +14B7- D4 ??? +14B8- C5 A0 CMP $A0 +14BA- D0 D2 BNE $148E +14BC- CF ??? +14BD- D4 ??? +14BE- C5 C3 CMP $C3 +14C0- D4 ??? +14C1- A0 D4 LDY #$D4 +14C3- C1 C2 CMP ($C2,X) +14C5- 00 BRK +14C6- 4C B7 12 JMP $12B7 +14C9- 20 58 FC JSR $FC58 F8ROM:HOME +14CC- 20 2B 11 JSR $112B +14CF- CD C1 CB CMP $CBC1 +14D2- C9 CE CMP #$CE +14D4- C7 ??? +14D5- A0 C2 LDY #$C2 +14D7- C1 C3 CMP ($C3,X) +14D9- CB ??? +14DA- D5 D0 CMP $D0,X +14DC- A0 C4 LDY #$C4 +14DE- C9 D3 CMP #$D3 +14E0- CB ??? +14E1- AE AE AE LDX $AEAE +14E4- 00 BRK +14E5- 60 RTS +14E6- 46 E2 LSR $E2 +14E8- 46 E9 LSR $E9 +14EA- 38 SEC +14EB- 66 EA ROR $EA +14ED- 20 A6 11 JSR $11A6 +14F0- 20 58 FC JSR $FC58 F8ROM:HOME +14F3- 20 03 10 JSR $1003 +14F6- A9 08 LDA #$08 +14F8- 20 E2 12 JSR $12E2 +14FB- 2C 10 C0 BIT $C010 r:KBDSTRB +14FE- AD FF 0B LDA $0BFF +1501- F0 62 BEQ $1565 +1503- C9 01 CMP #$01 +1505- F0 04 BEQ $150B +1507- C9 02 CMP #$02 +1509- F0 38 BEQ $1543 +150B- 20 2B 11 JSR $112B +150E- D4 ??? +150F- C8 INY +1510- C9 D3 CMP #$D3 +1512- A0 C4 LDY #$C4 +1514- C9 D3 CMP #$D3 +1516- CB ??? +1517- A0 C8 LDY #$C8 +1519- C1 D3 CMP ($D3,X) +151B- A0 C1 LDY #$C1 +151D- CC D2 C5 CPY $C5D2 +1520- C1 C4 CMP ($C4,X) +1522- D9 A0 C2 CMP $C2A0,Y +1525- C5 C5 CMP $C5 +1527- CE 8D D5 DEC $D58D +152A- D3 ??? +152B- C5 C4 CMP $C4 +152D- A0 D4 LDY #$D4 +152F- CF ??? +1530- A0 CD LDY #$CD +1532- C1 CB CMP ($CB,X) +1534- C5 A0 CMP $A0 +1536- C1 A0 CMP ($A0,X) +1538- C2 ??? +1539- C1 C3 CMP ($C3,X) +153B- CB ??? +153C- D5 D0 CMP $D0,X +153E- AE 00 4C LDX $4C00 +1541- 58 CLI +1542- 12 20 ORA ($20) +1544- 2B ??? +1545- 11 D4 ORA ($D4),Y +1547- C8 INY +1548- C9 D3 CMP #$D3 +154A- A0 C4 LDY #$C4 +154C- C9 D3 CMP #$D3 +154E- CB ??? +154F- A0 C3 LDY #$C3 +1551- C1 CE CMP ($CE,X) +1553- CE CF D4 DEC $D4CF +1556- A0 C2 LDY #$C2 +1558- C5 A0 CMP $A0 +155A- C3 ??? +155B- CF ??? +155C- D0 C9 BNE $1527 +155E- C5 C4 CMP $C4 +1560- AE 00 4C LDX $4C00 +1563- 58 CLI +1564- 12 C6 ORA ($C6) +1566- 22 ??? +1567- C6 22 DEC $22 +1569- 20 58 FC JSR $FC58 F8ROM:HOME +156C- 20 2E 11 JSR $112E +156F- D4 ??? +1570- C8 INY +1571- C9 D3 CMP #$D3 +1573- A0 D5 LDY #$D5 +1575- D4 ??? +1576- C9 CC CMP #$CC +1578- C9 D4 CMP #$D4 +157A- D9 A0 CC CMP $CCA0,Y +157D- C5 D4 CMP $D4 +157F- D3 ??? +1580- A0 D9 LDY #$D9 +1582- CF ??? +1583- D5 A0 CMP $A0,X +1585- CD C1 CB CMP $CBC1 +1588- C5 A0 CMP $A0 +158A- CF ??? +158B- CE C5 8D DEC $8DC5 +158E- C2 ??? +158F- C1 C3 CMP ($C3,X) +1591- CB ??? +1592- D5 D0 CMP $D0,X +1594- A0 C3 LDY #$C3 +1596- CF ??? +1597- D0 D9 BNE $1572 +1599- A0 CF LDY #$CF +159B- C6 A0 DEC $A0 +159D- D4 ??? +159E- C8 INY +159F- C5 A0 CMP $A0 +15A1- C6 D2 DEC $D2 +15A3- CF ??? +15A4- CE D4 A0 DEC $A0D4 +15A7- D3 ??? +15A8- C9 C4 CMP #$C4 +15AA- C5 8D CMP $8D +15AC- CF ??? +15AD- C6 A0 DEC $A0 +15AF- D9 CF D5 CMP $D5CF,Y +15B2- D2 A0 CMP ($A0) +15B4- C3 ??? +15B5- CF ??? +15B6- CD D0 C1 CMP $C1D0 +15B9- CE C9 CF DEC $CFC9 +15BC- CE A0 C4 DEC $C4A0 +15BF- C9 D3 CMP #$D3 +15C1- CB ??? +15C2- 00 BRK +15C3- 20 29 11 JSR $1129 +15C6- 8D 8D 8D STA $8D8D +15C9- 8D C9 CD STA $CDC9 +15CC- D0 CF BNE $159D +15CE- D2 D4 CMP ($D4) +15D0- C1 CE CMP ($CE,X) +15D2- D4 ??? +15D3- BA TSX +15D4- A0 D9 LDY #$D9 +15D6- CF ??? +15D7- D5 A0 CMP $A0,X +15D9- CD C1 D9 CMP $D9C1 +15DC- A0 D5 LDY #$D5 +15DE- D3 ??? +15DF- C5 A0 CMP $A0 +15E1- D4 ??? +15E2- C8 INY +15E3- C9 D3 CMP #$D3 +15E5- A0 CF LDY #$CF +15E7- D0 D4 BNE $15BD +15E9- C9 CF CMP #$CF +15EB- CE 8D CF DEC $CF8D +15EE- CE CC D9 DEC $D9CC +15F1- A0 CF LDY #$CF +15F3- CE C3 C5 DEC $C5C3 +15F6- AE 8D 8D LDX $8D8D +15F9- D4 ??? +15FA- CF ??? +15FB- A0 CD LDY #$CD +15FD- C1 CB CMP ($CB,X) +15FF- C5 A0 CMP $A0 +1601- C1 A0 CMP ($A0,X) +1603- C2 ??? +1604- C1 C3 CMP ($C3,X) +1606- CB ??? +1607- D5 D0 CMP $D0,X +1609- AC A0 D9 LDY $D9A0 +160C- CF ??? +160D- D5 A0 CMP $A0,X +160F- D7 ??? +1610- C9 CC CMP #$CC +1612- CC A0 CE CPY $CEA0 +1615- C5 C5 CMP $C5 +1617- C4 A0 CPY $A0 +1619- CF ??? +161A- CE C5 8D DEC $8DC5 +161D- C2 ??? +161E- CC C1 CE CPY $CEC1 +1621- CB ??? +1622- A0 C4 LDY #$C4 +1624- C9 D3 CMP #$D3 +1626- CB ??? +1627- AE 00 20 LDX $2000 +162A- B7 ??? +162B- 12 20 ORA ($20) +162D- 58 CLI +162E- FC ??? +162F- E6 22 INC $22 +1631- E6 22 INC $22 +1633- 20 58 FC JSR $FC58 F8ROM:HOME +1636- 20 29 11 JSR $1129 +1639- D9 CF D5 CMP $D5CF,Y +163C- A0 D7 LDY #$D7 +163E- C9 CC CMP #$CC +1640- CC A0 CE CPY $CEA0 +1643- C5 C5 CMP $C5 +1645- C4 A0 CPY $A0 +1647- D4 ??? +1648- CF ??? +1649- A0 D3 LDY #$D3 +164B- D7 ??? +164C- C1 D0 CMP ($D0,X) +164E- A0 C4 LDY #$C4 +1650- C9 D3 CMP #$D3 +1652- CB ??? +1653- D3 ??? +1654- A0 C1 LDY #$C1 +1656- A0 CE LDY #$CE +1658- D5 CD CMP $CD,X +165A- C2 ??? +165B- C5 D2 CMP $D2 +165D- CF ??? +165E- C6 A0 DEC $A0 +1660- D4 ??? +1661- C9 CD CMP #$CD +1663- C5 D3 CMP $D3 +1665- AE A0 D4 LDX $D4A0 +1668- C8 INY +1669- C5 A0 CMP $A0 +166B- D0 D2 BNE $163F +166D- CF ??? +166E- C7 ??? +166F- D2 C1 CMP ($C1) +1671- CD A0 D7 CMP $D7A0 +1674- C9 CC CMP #$CC +1676- CC A0 D4 CPY $D4A0 +1679- C5 CC CMP $CC +167B- CC A0 D9 CPY $D9A0 +167E- CF ??? +167F- D5 8D CMP $8D,X +1681- D7 ??? +1682- C8 INY +1683- C5 CE CMP $CE +1685- A0 D4 LDY #$D4 +1687- CF ??? +1688- A0 C4 LDY #$C4 +168A- CF ??? +168B- A0 D4 LDY #$D4 +168D- C8 INY +168E- C9 D3 CMP #$D3 +1690- AE 8D 8D LDX $8D8D +1693- D4 ??? +1694- CF ??? +1695- A0 D3 LDY #$D3 +1697- D4 ??? +1698- C1 D2 CMP ($D2,X) +169A- D4 ??? +169B- AC A0 CD LDY $CDA0 +169E- C1 CB CMP ($CB,X) +16A0- C5 A0 CMP $A0 +16A2- D3 ??? +16A3- D5 D2 CMP $D2,X +16A5- C5 A0 CMP $A0 +16A7- D9 CF D5 CMP $D5CF,Y +16AA- D2 A0 CMP ($A0) +16AC- C3 ??? +16AD- CF ??? +16AE- CD D0 C1 CMP $C1D0 +16B1- CE C9 CF DEC $CFC9 +16B4- CE 8D C4 DEC $C48D +16B7- C9 D3 CMP #$D3 +16B9- CB ??? +16BA- A0 A8 LDY #$A8 +16BC- CC C1 C2 CPY $C2C1 +16BF- C5 CC CMP $CC +16C1- A0 D3 LDY #$D3 +16C3- C9 C4 CMP #$C4 +16C5- C5 A0 CMP $A0 +16C7- D5 D0 CMP $D0,X +16C9- A9 A0 LDA #$A0 +16CB- C9 D3 CMP #$D3 +16CD- A0 C9 LDY #$C9 +16CF- CE A0 D9 DEC $D9A0 +16D2- CF ??? +16D3- D5 D2 CMP $D2,X +16D5- 8D C4 C9 STA $C9C4 +16D8- D3 ??? +16D9- CB ??? +16DA- A0 C4 LDY #$C4 +16DC- D2 C9 CMP ($C9) +16DE- D6 C5 DEC $C5,X +16E0- AE 00 20 LDX $2000 +16E3- B7 ??? +16E4- 12 A0 ORA ($A0) +16E6- 01 84 ORA ($84,X) +16E8- E4 20 CPX $20 +16EA- 58 CLI +16EB- FC ??? +16EC- 20 BD 13 JSR $13BD +16EF- A9 0C LDA #$0C +16F1- 20 E2 12 JSR $12E2 +16F4- AD FF 0F LDA $0FFF +16F7- F0 03 BEQ $16FC +16F9- 4C E6 14 JMP $14E6 +16FC- 20 2B 11 JSR $112B +16FF- D2 C5 CMP ($C5) +1701- C1 C4 CMP ($C4,X) +1703- C9 CE CMP #$CE +1705- C7 ??? +1706- A0 C3 LDY #$C3 +1708- CF ??? +1709- CD D0 C1 CMP $C1D0 +170C- CE C9 CF DEC $CFC9 +170F- CE A0 C4 DEC $C4A0 +1712- C9 D3 CMP #$D3 +1714- CB ??? +1715- AE AE AE LDX $AEAE +1718- 00 BRK +1719- A9 01 LDA #$01 +171B- 20 6E 10 JSR $106E +171E- A5 E4 LDA $E4 +1720- C9 04 CMP #$04 +1722- D0 35 BNE $1759 +1724- 20 E0 BC JSR $BCE0 +1727- 20 54 10 JSR $1054 +172A- BD 89 C0 LDA $C089,X +172D- A2 0D LDX #$0D +172F- A9 D0 LDA #$D0 +1731- 20 03 08 JSR $0803 +1734- 90 09 BCC $173F +1736- BD 88 C0 LDA $C088,X +1739- 20 99 14 JSR $1499 +173C- 4C E9 16 JMP $16E9 +173F- A9 01 LDA #$01 +1741- 8D FF 07 STA $07FF +1744- 20 00 08 JSR $0800 +1747- 20 00 09 JSR $0900 +174A- 38 SEC +174B- 66 E2 ROR $E2 +174D- AE F8 05 LDX $05F8 +1750- BD 88 C0 LDA $C088,X +1753- 20 45 13 JSR $1345 +1756- 4C 5C 17 JMP $175C +1759- 20 3F 13 JSR $133F +175C- A5 E4 LDA $E4 +175E- C9 01 CMP #$01 +1760- D0 06 BNE $1768 +1762- 20 10 14 JSR $1410 +1765- 38 SEC +1766- 66 E9 ROR $E9 +1768- 20 C9 14 JSR $14C9 +176B- A9 02 LDA #$02 +176D- 20 6E 10 JSR $106E +1770- A4 E4 LDY $E4 +1772- C8 INY +1773- C0 05 CPY #$05 +1775- B0 03 BCS $177A +1777- 4C E7 16 JMP $16E7 +177A- 20 54 10 JSR $1054 +177D- AE F8 05 LDX $05F8 +1780- BD 89 C0 LDA $C089,X +1783- A9 02 LDA #$02 +1785- 8D FF 07 STA $07FF +1788- 20 00 08 JSR $0800 +178B- 20 00 09 JSR $0900 +178E- AE F8 05 LDX $05F8 +1791- BD 88 C0 LDA $C088,X +1794- C6 22 DEC $22 +1796- C6 22 DEC $22 +1798- 20 58 FC JSR $FC58 F8ROM:HOME +179B- 20 2B 11 JSR $112B +179E- C2 ??? +179F- C1 C3 CMP ($C3,X) +17A1- CB ??? +17A2- D5 D0 CMP $D0,X +17A4- A0 C3 LDY #$C3 +17A6- CF ??? +17A7- CD D0 CC CMP $CCD0 +17AA- C5 D4 CMP $D4 +17AC- C5 AE CMP $AE +17AE- 8D 8D D0 STA $D08D +17B1- CC C5 C1 CPY $C1C5 +17B4- D3 ??? +17B5- C5 A0 CMP $A0 +17B7- CC C1 C2 CPY $C2C1 +17BA- C5 CC CMP $CC +17BC- A0 D9 LDY #$D9 +17BE- CF ??? +17BF- D5 D2 CMP $D2,X +17C1- A0 C4 LDY #$C4 +17C3- C9 D3 CMP #$D3 +17C5- CB ??? +17C6- AE 00 20 LDX $2000 +17C9- 29 11 AND #$11 +17CB- 8D 8D 8D STA $8D8D +17CE- 8D CE CF STA $CFCE +17D1- D4 ??? +17D2- C5 BA CMP $BA +17D4- A0 D4 LDY #$D4 +17D6- CF ??? +17D7- A0 C3 LDY #$C3 +17D9- CF ??? +17DA- D0 D9 BNE $17B5 +17DC- A0 D4 LDY #$D4 +17DE- C8 INY +17DF- C5 A0 CMP $A0 +17E1- C2 ??? +17E2- C1 C3 CMP ($C3,X) +17E4- CB ??? +17E5- A0 D3 LDY #$D3 +17E7- C9 C4 CMP #$C4 +17E9- C5 A0 CMP $A0 +17EB- CF ??? +17EC- C6 8D DEC $8D +17EE- D4 ??? +17EF- C8 INY +17F0- C5 A0 CMP $A0 +17F2- C4 C9 CPY $C9 +17F4- D3 ??? +17F5- CB ??? +17F6- AC A0 D5 LDY $D5A0 +17F9- D3 ??? +17FA- C5 A0 CMP $A0 +17FC- D4 ??? +17FD- C8 INY +17FE- C5 A0 CMP $A0 +1800- D3 ??? +1801- D4 ??? +1802- C1 CE CMP ($CE,X) +1804- C4 C1 CPY $C1 +1806- D2 C4 CMP ($C4) +1808- A0 C3 LDY #$C3 +180A- CF ??? +180B- D0 D9 BNE $17E6 +180D- 8D D0 D2 STA $D2D0 +1810- CF ??? +1811- C7 ??? +1812- D2 C1 CMP ($C1) +1814- CD A0 D4 CMP $D4A0 +1817- C8 INY +1818- C1 D4 CMP ($D4,X) +181A- A0 C3 LDY #$C3 +181C- C1 CD CMP ($CD,X) +181E- C5 A0 CMP $A0 +1820- D7 ??? +1821- C9 D4 CMP #$D4 +1823- C8 INY +1824- A0 D9 LDY #$D9 +1826- CF ??? +1827- D5 D2 CMP $D2,X +1829- 8D C3 CF STA $CFC3 +182C- CD D0 D5 CMP $D5D0 +182F- D4 ??? +1830- C5 D2 CMP $D2 +1832- AE 8D 00 LDX $008D +1835- 4C 58 12 JMP $1258 diff --git a/PSC Source Disk 4 - Fastload - Copy Protection - Title Page (v13)/O_BOOT1.txt b/PSC Source Disk 4 - Fastload - Copy Protection - Title Page (v13)/O_BOOT1.txt new file mode 100644 index 0000000..9a2c7b9 --- /dev/null +++ b/PSC Source Disk 4 - Fastload - Copy Protection - Title Page (v13)/O_BOOT1.txt @@ -0,0 +1,70 @@ +0800- 01 A9 ORA ($A9,X) +0802- 60 RTS +0803- 8D 01 08 STA $0801 +0806- A2 00 LDX #$00 +0808- B5 00 LDA $00,X +080A- 9D 00 10 STA $1000,X +080D- E8 INX +080E- D0 F8 BNE $0808 +0810- 8D 08 C0 STA $C008 w:SETSTDZP +0813- BD 00 10 LDA $1000,X +0816- 95 00 STA $00,X +0818- E8 INX +0819- D0 F8 BNE $0813 +081B- A9 FF LDA #$FF +081D- 8D FB 04 STA $04FB +0820- 8D F3 03 STA $03F3 +0823- 8D F4 03 STA $03F4 +0826- 8D 00 C0 STA $C000 r:KBD w:CLR80COL +0829- 8D 0C C0 STA $C00C w:CLR80VID +082C- 8D 0E C0 STA $C00E w:CLRALTCHAR +082F- 8D 5F C0 STA $C05F rw:CLRAN3 +0832- 8D 81 C0 STA $C081 rw:ROMIN +0835- 20 2F FB JSR $FB2F F8ROM:INIT +0838- 20 58 FC JSR $FC58 F8ROM:HOME +083B- 20 84 FE JSR $FE84 F8ROM:SETNORM +083E- 20 93 FE JSR $FE93 F8ROM:SETVID +0841- 20 89 FE JSR $FE89 F8ROM:SETKBD +0844- A9 14 LDA #$14 +0846- 85 22 STA $22 +0848- A6 2B LDX $2B +084A- 8A TXA +084B- 4A LSR +084C- 4A LSR +084D- 4A LSR +084E- 4A LSR +084F- 09 C0 ORA #$C0 +0851- 8D 68 08 STA $0868 +0854- A9 0F LDA #$0F +0856- 85 50 STA $50 +0858- A4 50 LDY $50 +085A- B9 72 08 LDA $0872,Y +085D- 85 3D STA $3D +085F- B9 82 08 LDA $0882,Y +0862- F0 05 BEQ $0869 +0864- 85 27 STA $27 +0866- 20 5C 00 JSR $005C +0869- C6 50 DEC $50 +086B- D0 EB BNE $0858 +086D- A6 2B LDX $2B +086F- 4C 00 40 JMP $4000 +0872- 00 BRK +0873- 0D 0B 09 ORA $090B +0876- 07 ??? +0877- 05 03 ORA $03 +0879- 01 0E ORA ($0E,X) +087B- 0C 0A 08 TSB $080A +087E- 06 04 ASL $04 +0880- 02 ??? +0881- 0F ??? +0882- 00 BRK +0883- 40 RTI +0884- 41 42 EOR ($42,X) +0886- 43 ??? +0887- 44 ??? +0888- 45 10 EOR $10 +088A- 11 12 ORA ($12),Y +088C- 13 ??? +088D- 14 15 TRB $15 +088F- 16 17 ASL $17,X +0891- 18 CLC diff --git a/PSC Source Disk 4 - Fastload - Copy Protection - Title Page (v13)/O_BOOT1SIDEB.txt b/PSC Source Disk 4 - Fastload - Copy Protection - Title Page (v13)/O_BOOT1SIDEB.txt new file mode 100644 index 0000000..5b22c8b --- /dev/null +++ b/PSC Source Disk 4 - Fastload - Copy Protection - Title Page (v13)/O_BOOT1SIDEB.txt @@ -0,0 +1,70 @@ +0800- 01 A9 ORA ($A9,X) +0802- 60 RTS +0803- 8D 01 08 STA $0801 +0806- A2 00 LDX #$00 +0808- B5 00 LDA $00,X +080A- 9D 00 10 STA $1000,X +080D- E8 INX +080E- D0 F8 BNE $0808 +0810- 8D 08 C0 STA $C008 w:SETSTDZP +0813- BD 00 10 LDA $1000,X +0816- 95 00 STA $00,X +0818- E8 INX +0819- D0 F8 BNE $0813 +081B- A9 FF LDA #$FF +081D- 8D FB 04 STA $04FB +0820- 8D F3 03 STA $03F3 +0823- 8D F4 03 STA $03F4 +0826- 8D 00 C0 STA $C000 r:KBD w:CLR80COL +0829- 8D 0C C0 STA $C00C w:CLR80VID +082C- 8D 0E C0 STA $C00E w:CLRALTCHAR +082F- 8D 5F C0 STA $C05F rw:CLRAN3 +0832- 8D 81 C0 STA $C081 rw:ROMIN +0835- 20 2F FB JSR $FB2F F8ROM:INIT +0838- 20 58 FC JSR $FC58 F8ROM:HOME +083B- 20 84 FE JSR $FE84 F8ROM:SETNORM +083E- 20 93 FE JSR $FE93 F8ROM:SETVID +0841- 20 89 FE JSR $FE89 F8ROM:SETKBD +0844- A9 14 LDA #$14 +0846- 85 22 STA $22 +0848- A6 2B LDX $2B +084A- 8A TXA +084B- 4A LSR +084C- 4A LSR +084D- 4A LSR +084E- 4A LSR +084F- 09 C0 ORA #$C0 +0851- 8D 68 08 STA $0868 +0854- A9 0F LDA #$0F +0856- 85 50 STA $50 +0858- A4 50 LDY $50 +085A- B9 75 08 LDA $0875,Y +085D- 85 3D STA $3D +085F- B9 85 08 LDA $0885,Y +0862- F0 05 BEQ $0869 +0864- 85 27 STA $27 +0866- 20 5C 00 JSR $005C +0869- C6 50 DEC $50 +086B- D0 EB BNE $0858 +086D- A6 2B LDX $2B +086F- BD 88 C0 LDA $C088,X +0872- 4C 00 10 JMP $1000 +0875- 00 BRK +0876- 0D 0B 09 ORA $090B +0879- 07 ??? +087A- 05 03 ORA $03 +087C- 01 0E ORA ($0E,X) +087E- 0C 0A 08 TSB $080A +0881- 06 04 ASL $04 +0883- 02 ??? +0884- 0F ??? +0885- 00 BRK +0886- 10 11 BPL $0899 +0888- 12 60 ORA ($60) +088A- 61 62 ADC ($62,X) +088C- 63 ??? +088D- 64 65 STZ $65 +088F- 66 67 ROR $67 +0891- 68 PLA +0892- 69 6A ADC #$6A +0894- 6B ??? diff --git a/PSC Source Disk 4 - Fastload - Copy Protection - Title Page (v13)/O_BOOT2.txt b/PSC Source Disk 4 - Fastload - Copy Protection - Title Page (v13)/O_BOOT2.txt new file mode 100644 index 0000000..9684c83 --- /dev/null +++ b/PSC Source Disk 4 - Fastload - Copy Protection - Title Page (v13)/O_BOOT2.txt @@ -0,0 +1,654 @@ +4000- 4C 88 43 JMP $4388 +4003- 38 SEC +4004- 60 RTS +4005- 86 54 STX $54 +4007- 8A TXA +4008- 09 8C ORA #$8C +400A- 8D 64 40 STA $4064 +400D- 8D 7B 40 STA $407B +4010- 8D 91 40 STA $4091 +4013- 8D A5 40 STA $40A5 +4016- 8D BA 40 STA $40BA +4019- A5 58 LDA $58 +401B- A4 59 LDY $59 +401D- 8D B7 40 STA $40B7 +4020- 8C B8 40 STY $40B8 +4023- 38 SEC +4024- E9 54 SBC #$54 +4026- B0 02 BCS $402A +4028- 88 DEY +4029- 38 SEC +402A- 8D 9F 40 STA $409F +402D- 8C A0 40 STY $40A0 +4030- E9 57 SBC #$57 +4032- B0 01 BCS $4035 +4034- 88 DEY +4035- 8D 78 40 STA $4078 +4038- 8C 79 40 STY $4079 +403B- A0 20 LDY #$20 +403D- 88 DEY +403E- F0 C3 BEQ $4003 +4040- BD 8C C0 LDA $C08C,X +4043- 10 FB BPL $4040 +4045- 49 D5 EOR #$D5 +4047- D0 F4 BNE $403D +4049- EA NOP +404A- BD 8C C0 LDA $C08C,X +404D- 10 FB BPL $404A +404F- C9 AA CMP #$AA +4051- D0 F2 BNE $4045 +4053- EA NOP +4054- BD 8C C0 LDA $C08C,X +4057- 10 FB BPL $4054 +4059- C9 AD CMP #$AD +405B- D0 E8 BNE $4045 +405D- A0 AA LDY #$AA +405F- A9 00 LDA #$00 +4061- 85 26 STA $26 +4063- AE 8C C0 LDX $C08C +4066- 10 FB BPL $4063 +4068- BD 00 41 LDA $4100,X +406B- 99 00 02 STA $0200,Y +406E- 45 26 EOR $26 +4070- C8 INY +4071- D0 EE BNE $4061 +4073- A0 AA LDY #$AA +4075- D0 03 BNE $407A +4077- 99 FF FF STA $FFFF,Y +407A- AE 8C C0 LDX $C08C +407D- 10 FB BPL $407A +407F- 5D 00 41 EOR $4100,X +4082- BE 00 02 LDX $0200,Y +4085- 5D 00 42 EOR $4200,X +4088- C8 INY +4089- D0 EC BNE $4077 +408B- 48 PHA +408C- 29 FC AND #$FC +408E- A0 AA LDY #$AA +4090- AE 8C C0 LDX $C08C +4093- 10 FB BPL $4090 +4095- 5D 00 41 EOR $4100,X +4098- BE 00 02 LDX $0200,Y +409B- 5D 01 42 EOR $4201,X +409E- 99 FF FF STA $FFFF,Y +40A1- C8 INY +40A2- D0 EC BNE $4090 +40A4- AE 8C C0 LDX $C08C +40A7- 10 FB BPL $40A4 +40A9- 29 FC AND #$FC +40AB- A0 AC LDY #$AC +40AD- 5D 00 41 EOR $4100,X +40B0- BE FE 01 LDX $01FE,Y +40B3- 5D 02 42 EOR $4202,X +40B6- 99 FF FF STA $FFFF,Y +40B9- AE 8C C0 LDX $C08C +40BC- 10 FB BPL $40B9 +40BE- C8 INY +40BF- D0 EC BNE $40AD +40C1- 29 FC AND #$FC +40C3- 5D 00 41 EOR $4100,X +40C6- A6 54 LDX $54 +40C8- A8 TAY +40C9- D0 09 BNE $40D4 +40CB- BD 8C C0 LDA $C08C,X +40CE- 10 FB BPL $40CB +40D0- C9 DE CMP #$DE +40D2- F0 02 BEQ $40D6 +40D4- 38 SEC +40D5- 24 18 BIT $18 +40D7- 68 PLA +40D8- A0 55 LDY #$55 +40DA- 91 58 STA ($58),Y +40DC- 60 RTS +40DD- 0A ASL +40DE- 85 5A STA $5A +40E0- A5 57 LDA $57 +40E2- 85 5B STA $5B +40E4- 38 SEC +40E5- E5 5A SBC $5A +40E7- F0 29 BEQ $4112 +40E9- B0 04 BCS $40EF +40EB- E6 57 INC $57 +40ED- 90 02 BCC $40F1 +40EF- C6 57 DEC $57 +40F1- 20 07 41 JSR $4107 +40F4- 20 13 41 JSR $4113 +40F7- A5 5B LDA $5B +40F9- 29 03 AND #$03 +40FB- 0A ASL +40FC- 05 54 ORA $54 +40FE- A8 TAY +40FF- B9 80 C0 LDA $C080,Y +4102- 20 13 41 JSR $4113 +4105- F0 D9 BEQ $40E0 +4107- A5 57 LDA $57 +4109- 29 03 AND #$03 +410B- 0A ASL +410C- 05 54 ORA $54 +410E- A8 TAY +410F- B9 81 C0 LDA $C081,Y +4112- 60 RTS +4113- A9 28 LDA #$28 +4115- 4C A8 FC JMP $FCA8 F8ROM:WAIT +4118- 38 SEC +4119- 60 RTS +411A- A0 FC LDY #$FC +411C- 84 5A STY $5A +411E- C8 INY +411F- D0 04 BNE $4125 +4121- E6 5A INC $5A +4123- F0 F3 BEQ $4118 +4125- BD 8C C0 LDA $C08C,X +4128- 10 FB BPL $4125 +412A- C9 D5 CMP #$D5 +412C- D0 F0 BNE $411E +412E- EA NOP +412F- BD 8C C0 LDA $C08C,X +4132- 10 FB BPL $412F +4134- C9 AA CMP #$AA +4136- D0 F2 BNE $412A +4138- A0 03 LDY #$03 +413A- BD 8C C0 LDA $C08C,X +413D- 10 FB BPL $413A +413F- C9 96 CMP #$96 +4141- D0 E7 BNE $412A +4143- A9 00 LDA #$00 +4145- 85 5B STA $5B +4147- BD 8C C0 LDA $C08C,X +414A- 10 FB BPL $4147 +414C- 2A ROL +414D- 85 5A STA $5A +414F- BD 8C C0 LDA $C08C,X +4152- 10 FB BPL $414F +4154- 25 5A AND $5A +4156- 99 2C 00 STA $002C,Y +4159- 45 5B EOR $5B +415B- 88 DEY +415C- 10 E7 BPL $4145 +415E- A8 TAY +415F- D0 B7 BNE $4118 +4161- BD 8C C0 LDA $C08C,X +4164- 10 FB BPL $4161 +4166- C9 DE CMP #$DE +4168- D0 AE BNE $4118 +416A- EA NOP +416B- BD 8C C0 LDA $C08C,X +416E- 10 FB BPL $416B +4170- C9 AA CMP #$AA +4172- D0 A4 BNE $4118 +4174- 18 CLC +4175- 60 RTS +4176- FF ??? +4177- FF ??? +4178- FF ??? +4179- FF ??? +417A- FF ??? +417B- FF ??? +417C- FF ??? +417D- FF ??? +417E- FF ??? +417F- FF ??? +4180- 00 BRK +4181- 00 BRK +4182- 00 BRK +4183- 00 BRK +4184- 00 BRK +4185- 00 BRK +4186- 00 BRK +4187- 00 BRK +4188- 00 BRK +4189- 00 BRK +418A- 00 BRK +418B- 00 BRK +418C- 00 BRK +418D- 00 BRK +418E- 00 BRK +418F- 00 BRK +4190- 00 BRK +4191- 00 BRK +4192- 00 BRK +4193- 00 BRK +4194- 00 BRK +4195- 00 BRK +4196- 00 BRK +4197- 04 98 TSB $98 +4199- 99 08 0C STA $0C08,Y +419C- 9C 10 14 STZ $1410 +419F- 18 CLC +41A0- A0 A1 LDY #$A1 +41A2- A2 A3 LDX #$A3 +41A4- A4 A5 LDY $A5 +41A6- 1C 20 A8 TRB $A820 +41A9- A9 AA LDA #$AA +41AB- 24 28 BIT $28 +41AD- 2C 30 34 BIT $3430 +41B0- B0 B1 BCS $4163 +41B2- 38 SEC +41B3- 3C 40 44 BIT $4440,X +41B6- 48 PHA +41B7- 4C B8 50 JMP $50B8 +41BA- 54 ??? +41BB- 58 CLI +41BC- 5C ??? +41BD- 60 RTS +41BE- 64 68 STZ $68 +41C0- C0 C1 CPY #$C1 +41C2- C2 ??? +41C3- C3 ??? +41C4- C4 C5 CPY $C5 +41C6- C6 C7 DEC $C7 +41C8- C8 INY +41C9- C9 CA CMP #$CA +41CB- 6C CC 70 JMP ($70CC) +41CE- 74 78 STZ $78,X +41D0- D0 D1 BNE $41A3 +41D2- D2 7C CMP ($7C) +41D4- D4 ??? +41D5- D5 80 CMP $80,X +41D7- 84 D8 STY $D8 +41D9- 88 DEY +41DA- 8C 90 94 STY $9490 +41DD- 98 TYA +41DE- 9C A0 E0 STZ $E0A0 +41E1- E1 E2 SBC ($E2,X) +41E3- E3 ??? +41E4- E4 A4 CPX $A4 +41E6- A8 TAY +41E7- AC E8 B0 LDY $B0E8 +41EA- B4 B8 LDY $B8,X +41EC- BC C0 C4 LDY $C4C0,X +41EF- C8 INY +41F0- F0 F1 BEQ $41E3 +41F2- CC D0 D4 CPY $D4D0 +41F5- D8 CLD +41F6- DC ??? +41F7- E0 F8 CPX #$F8 +41F9- E4 E8 CPX $E8 +41FB- EC F0 F4 CPX $F4F0 +41FE- F8 SED +41FF- FC ??? +4200- 00 BRK +4201- 00 BRK +4202- 00 BRK +4203- 96 02 STX $02,Y +4205- 00 BRK +4206- 00 BRK +4207- 97 ??? +4208- 01 00 ORA ($00,X) +420A- 00 BRK +420B- 9A TXS +420C- 03 ??? +420D- 00 BRK +420E- 00 BRK +420F- 9B ??? +4210- 00 BRK +4211- 02 ??? +4212- 00 BRK +4213- 9D 02 02 STA $0202,X +4216- 00 BRK +4217- 9E 01 02 STZ $0201,X +421A- 00 BRK +421B- 9F ??? +421C- 03 ??? +421D- 02 ??? +421E- 00 BRK +421F- A6 00 LDX $00 +4221- 01 00 ORA ($00,X) +4223- A7 ??? +4224- 02 ??? +4225- 01 00 ORA ($00,X) +4227- AB ??? +4228- 01 01 ORA ($01,X) +422A- 00 BRK +422B- AC 03 01 LDY $0103 +422E- 00 BRK +422F- AD 00 03 LDA $0300 +4232- 00 BRK +4233- AE 02 03 LDX $0302 +4236- 00 BRK +4237- AF ??? +4238- 01 03 ORA ($03,X) +423A- 00 BRK +423B- B2 03 LDA ($03) +423D- 03 ??? +423E- 00 BRK +423F- B3 ??? +4240- 00 BRK +4241- 00 BRK +4242- 02 ??? +4243- B4 02 LDY $02,X +4245- 00 BRK +4246- 02 ??? +4247- B5 01 LDA $01,X +4249- 00 BRK +424A- 02 ??? +424B- B6 03 LDX $03,Y +424D- 00 BRK +424E- 02 ??? +424F- B7 ??? +4250- 00 BRK +4251- 02 ??? +4252- 02 ??? +4253- B9 02 02 LDA $0202,Y +4256- 02 ??? +4257- BA TSX +4258- 01 02 ORA ($02,X) +425A- 02 ??? +425B- BB ??? +425C- 03 ??? +425D- 02 ??? +425E- 02 ??? +425F- BC 00 01 LDY $0100,X +4262- 02 ??? +4263- BD 02 01 LDA $0102,X +4266- 02 ??? +4267- BE 01 01 LDX $0101,Y +426A- 02 ??? +426B- BF ??? +426C- 03 ??? +426D- 01 02 ORA ($02,X) +426F- CB ??? +4270- 00 BRK +4271- 03 ??? +4272- 02 ??? +4273- CD 02 03 CMP $0302 +4276- 02 ??? +4277- CE 01 03 DEC $0301 +427A- 02 ??? +427B- CF ??? +427C- 03 ??? +427D- 03 ??? +427E- 02 ??? +427F- D3 ??? +4280- 00 BRK +4281- 00 BRK +4282- 01 D6 ORA ($D6,X) +4284- 02 ??? +4285- 00 BRK +4286- 01 D7 ORA ($D7,X) +4288- 01 00 ORA ($00,X) +428A- 01 D9 ORA ($D9,X) +428C- 03 ??? +428D- 00 BRK +428E- 01 DA ORA ($DA,X) +4290- 00 BRK +4291- 02 ??? +4292- 01 DB ORA ($DB,X) +4294- 02 ??? +4295- 02 ??? +4296- 01 DC ORA ($DC,X) +4298- 01 02 ORA ($02,X) +429A- 01 DD ORA ($DD,X) +429C- 03 ??? +429D- 02 ??? +429E- 01 DE ORA ($DE,X) +42A0- 00 BRK +42A1- 01 01 ORA ($01,X) +42A3- DF ??? +42A4- 02 ??? +42A5- 01 01 ORA ($01,X) +42A7- E5 01 SBC $01 +42A9- 01 01 ORA ($01,X) +42AB- E6 03 INC $03 +42AD- 01 01 ORA ($01,X) +42AF- E7 ??? +42B0- 00 BRK +42B1- 03 ??? +42B2- 01 E9 ORA ($E9,X) +42B4- 02 ??? +42B5- 03 ??? +42B6- 01 EA ORA ($EA,X) +42B8- 01 03 ORA ($03,X) +42BA- 01 EB ORA ($EB,X) +42BC- 03 ??? +42BD- 03 ??? +42BE- 01 EC ORA ($EC,X) +42C0- 00 BRK +42C1- 00 BRK +42C2- 03 ??? +42C3- ED 02 00 SBC $0002 +42C6- 03 ??? +42C7- EE 01 00 INC $0001 +42CA- 03 ??? +42CB- EF ??? +42CC- 03 ??? +42CD- 00 BRK +42CE- 03 ??? +42CF- F2 00 SBC ($00) +42D1- 02 ??? +42D2- 03 ??? +42D3- F3 ??? +42D4- 02 ??? +42D5- 02 ??? +42D6- 03 ??? +42D7- F4 ??? +42D8- 01 02 ORA ($02,X) +42DA- 03 ??? +42DB- F5 03 SBC $03,X +42DD- 02 ??? +42DE- 03 ??? +42DF- F6 00 INC $00,X +42E1- 01 03 ORA ($03,X) +42E3- F7 ??? +42E4- 02 ??? +42E5- 01 03 ORA ($03,X) +42E7- F9 01 01 SBC $0101,Y +42EA- 03 ??? +42EB- FA PLX +42EC- 03 ??? +42ED- 01 03 ORA ($03,X) +42EF- FB ??? +42F0- 00 BRK +42F1- 03 ??? +42F2- 03 ??? +42F3- FC ??? +42F4- 02 ??? +42F5- 03 ??? +42F6- 03 ??? +42F7- FD 01 03 SBC $0301,X +42FA- 03 ??? +42FB- FE 03 03 INC $0303,X +42FE- 03 ??? +42FF- FF ??? +4300- 20 DD 40 JSR $40DD +4303- A2 0F LDX #$0F +4305- BC 46 43 LDY $4346,X +4308- B1 50 LDA ($50),Y +430A- 9D 80 02 STA $0280,X +430D- CA DEX +430E- 10 F5 BPL $4305 +4310- A6 54 LDX $54 +4312- A9 60 LDA #$60 +4314- 85 55 STA $55 +4316- C6 55 DEC $55 +4318- F0 2A BEQ $4344 +431A- 20 1A 41 JSR $411A +431D- B0 F7 BCS $4316 +431F- A4 2D LDY $2D +4321- B9 80 02 LDA $0280,Y +4324- F0 F0 BEQ $4316 +4326- 85 59 STA $59 +4328- A9 00 LDA #$00 +432A- 85 58 STA $58 +432C- 20 05 40 JSR $4005 +432F- B0 E5 BCS $4316 +4331- A4 2D LDY $2D +4333- A9 00 LDA #$00 +4335- 99 80 02 STA $0280,Y +4338- A0 0F LDY #$0F +433A- B9 80 02 LDA $0280,Y +433D- D0 D7 BNE $4316 +433F- 88 DEY +4340- 10 F8 BPL $433A +4342- 18 CLC +4343- 24 38 BIT $38 +4345- 60 RTS +4346- 00 BRK +4347- 07 ??? +4348- 0E 06 0D ASL $0D06 +434B- 05 0C ORA $0C +434D- 04 0B TSB $0B +434F- 03 ??? +4350- 0A ASL +4351- 02 ??? +4352- 09 01 ORA #$01 +4354- 08 PHP +4355- 0F ??? +4356- 8D 66 43 STA $4366 +4359- A0 70 LDY #$70 +435B- A9 02 LDA #$02 +435D- 84 50 STY $50 +435F- 85 51 STA $51 +4361- A0 0F LDY #$0F +4363- 98 TYA +4364- 18 CLC +4365- 69 00 ADC #$00 +4367- 91 50 STA ($50),Y +4369- 88 DEY +436A- 10 F7 BPL $4363 +436C- A5 56 LDA $56 +436E- E6 56 INC $56 +4370- 20 00 43 JSR $4300 +4373- B0 01 BCS $4376 +4375- 60 RTS +4376- C6 56 DEC $56 +4378- A0 00 LDY #$00 +437A- 98 TYA +437B- 2C 30 C0 BIT $C030 rw:SPKR +437E- 38 SEC +437F- E9 01 SBC #$01 +4381- D0 FB BNE $437E +4383- 88 DEY +4384- D0 F4 BNE $437A +4386- F0 E4 BEQ $436C +4388- 86 54 STX $54 +438A- 20 13 44 JSR $4413 +438D- A0 00 LDY #$00 +438F- 84 57 STY $57 +4391- C8 INY +4392- 84 56 STY $56 +4394- A9 90 LDA #$90 +4396- 20 56 43 JSR $4356 +4399- 20 00 90 JSR $9000 +439C- 2C 57 C0 BIT $C057 rw:HIRES +439F- 2C 52 C0 BIT $C052 rw:MIXCLR +43A2- 2C 50 C0 BIT $C050 rw:TXTCLR +43A5- A9 C2 LDA #$C2 +43A7- 8D F7 07 STA $07F7 +43AA- A9 A0 LDA #$A0 +43AC- 20 56 43 JSR $4356 +43AF- A9 B0 LDA #$B0 +43B1- 20 56 43 JSR $4356 +43B4- A6 54 LDX $54 +43B6- 8E E9 B7 STX $B7E9 +43B9- 8E F7 B7 STX $B7F7 +43BC- 20 8E BE JSR $BE8E +43BF- A5 57 LDA $57 +43C1- 99 78 04 STA $0478,Y +43C4- A9 A0 LDA #$A0 +43C6- 99 F8 04 STA $04F8,Y +43C9- A0 58 LDY #$58 +43CB- A9 FF LDA #$FF +43CD- 84 36 STY $36 +43CF- 85 37 STA $37 +43D1- A0 FD LDY #$FD +43D3- A9 B6 LDA #$B6 +43D5- 84 38 STY $38 +43D7- 85 39 STA $39 +43D9- A0 24 LDY #$24 +43DB- B9 92 44 LDA $4492,Y +43DE- 99 80 02 STA $0280,Y +43E1- 88 DEY +43E2- 10 F7 BPL $43DB +43E4- A0 80 LDY #$80 +43E6- A9 02 LDA #$02 +43E8- 8C F2 03 STY $03F2 +43EB- 8D F3 03 STA $03F3 +43EE- 49 A5 EOR #$A5 +43F0- 8D F4 03 STA $03F4 +43F3- A2 FF LDX #$FF +43F5- 9A TXS +43F6- A9 34 LDA #$34 +43F8- 8D 42 9E STA $9E42 +43FB- AD 00 C0 LDA $C000 r:KBD w:CLR80COL +43FE- 2C 10 C0 BIT $C010 r:KBDSTRB +4401- C9 9B CMP #$9B +4403- D0 08 BNE $440D +4405- AD 00 10 LDA $1000 +4408- F0 03 BEQ $440D +440A- 4C 00 10 JMP $1000 +440D- 20 48 44 JSR $4448 +4410- 4C 84 9D JMP $9D84 +4413- A0 00 LDY #$00 +4415- A9 20 LDA #$20 +4417- 84 50 STY $50 +4419- 85 51 STA $51 +441B- A2 03 LDX #$03 +441D- 20 22 44 JSR $4422 +4420- A2 0B LDX #$0B +4422- BD 80 C0 LDA $C080,X +4425- BD 80 C0 LDA $C080,X +4428- A2 10 LDX #$10 +442A- A0 00 LDY #$00 +442C- A9 D0 LDA #$D0 +442E- 84 52 STY $52 +4430- 85 53 STA $53 +4432- B1 50 LDA ($50),Y +4434- 91 52 STA ($52),Y +4436- A9 00 LDA #$00 +4438- 91 50 STA ($50),Y +443A- C8 INY +443B- D0 F5 BNE $4432 +443D- E6 51 INC $51 +443F- E6 53 INC $53 +4441- CA DEX +4442- D0 EE BNE $4432 +4444- 8D 81 C0 STA $C081 rw:ROMIN +4447- 60 RTS +4448- 8D 81 C0 STA $C081 rw:ROMIN +444B- AD B3 FB LDA $FBB3 F8ROM:VERSION +444E- C9 06 CMP #$06 +4450- D0 16 BNE $4468 +4452- 2C 17 C0 BIT $C017 r:RDC3ROM +4455- 30 11 BMI $4468 +4457- A2 24 LDX #$24 +4459- BD 6D 44 LDA $446D,X +445C- 95 80 STA $80,X +445E- CA DEX +445F- 10 F8 BPL $4459 +4461- 20 80 00 JSR $0080 +4464- B0 02 BCS $4468 +4466- 38 SEC +4467- 24 18 BIT $18 +4469- 6E 7F 02 ROR $027F +446C- 60 RTS +446D- A9 EE LDA #$EE +446F- 8D 05 C0 STA $C005 w:WRCARDRAM +4472- 8D 03 C0 STA $C003 w:RDCARDRAM +4475- 8D 00 08 STA $0800 +4478- AD 00 0C LDA $0C00 +447B- C9 EE CMP #$EE +447D- D0 0B BNE $448A +447F- 0E 00 0C ASL $0C00 +4482- AD 00 08 LDA $0800 +4485- CD 00 0C CMP $0C00 +4488- F0 01 BEQ $448B +448A- 18 CLC +448B- 8D 04 C0 STA $C004 w:WRMAINRAM +448E- 8D 02 C0 STA $C002 w:RDMAINRAM +4491- 60 RTS +4492- 8D 81 C0 STA $C081 rw:ROMIN +4495- 20 2F FB JSR $FB2F F8ROM:INIT +4498- 20 58 FC JSR $FC58 F8ROM:HOME +449B- A0 00 LDY #$00 +449D- 98 TYA +449E- 99 00 08 STA $0800,Y +44A1- C8 INY +44A2- D0 FA BNE $449E +44A4- EE 8E 02 INC $028E +44A7- AD 8E 02 LDA $028E +44AA- C9 C0 CMP #$C0 +44AC- 90 EF BCC $449D +44AE- 8D F3 03 STA $03F3 +44B1- 8D F4 03 STA $03F4 +44B4- 6C FC FF JMP ($FFFC) diff --git a/PSC Source Disk 4 - Fastload - Copy Protection - Title Page (v13)/O_CALTAIL.txt b/PSC Source Disk 4 - Fastload - Copy Protection - Title Page (v13)/O_CALTAIL.txt new file mode 100644 index 0000000..77f32db --- /dev/null +++ b/PSC Source Disk 4 - Fastload - Copy Protection - Title Page (v13)/O_CALTAIL.txt @@ -0,0 +1,80 @@ +7800- 18 CLC +7801- B0 38 BCS $783B +7803- A0 00 LDY #$00 +7805- B9 00 5D LDA $5D00,Y +7808- 99 00 78 STA $7800,Y +780B- C8 INY +780C- D0 F7 BNE $7805 +780E- 4C 11 78 JMP $7811 +7811- B0 6E BCS $7881 +7813- 8C F0 B7 STY $B7F0 +7816- 8C EB B7 STY $B7EB +7819- 8C EC B7 STY $B7EC +781C- A2 0F LDX #$0F +781E- A0 63 LDY #$63 +7820- 8E ED B7 STX $B7ED +7823- 8C F1 B7 STY $B7F1 +7826- 20 E3 03 JSR $03E3 +7829- 20 D9 03 JSR $03D9 +782C- B0 F8 BCS $7826 +782E- AE ED B7 LDX $B7ED +7831- AC F1 B7 LDY $B7F1 +7834- 88 DEY +7835- CA DEX +7836- E0 09 CPX #$09 +7838- B0 E6 BCS $7820 +783A- 2C 7F 02 BIT $027F +783D- 10 56 BPL $7895 +783F- A0 00 LDY #$00 +7841- 8D 05 C0 STA $C005 w:WRCARDRAM +7844- B9 00 5D LDA $5D00,Y +7847- 99 00 18 STA $1800,Y +784A- B9 00 5E LDA $5E00,Y +784D- 99 00 19 STA $1900,Y +7850- B9 00 5F LDA $5F00,Y +7853- 99 00 1A STA $1A00,Y +7856- B9 00 60 LDA $6000,Y +7859- 99 00 1B STA $1B00,Y +785C- B9 00 61 LDA $6100,Y +785F- 99 00 1C STA $1C00,Y +7862- B9 00 62 LDA $6200,Y +7865- 99 00 1D STA $1D00,Y +7868- B9 00 63 LDA $6300,Y +786B- 99 00 1E STA $1E00,Y +786E- C8 INY +786F- D0 D3 BNE $7844 +7871- 8D 04 C0 STA $C004 w:WRMAINRAM +7874- 8D 09 C0 STA $C009 w:SETALTZP +7877- A9 02 LDA #$02 +7879- 8D 01 E0 STA $E001 +787C- 8D 08 C0 STA $C008 w:SETSTDZP +787F- D0 14 BNE $7895 +7881- 8D 09 C0 STA $C009 w:SETALTZP +7884- A0 35 LDY #$35 +7886- B9 98 78 LDA $7898,Y +7889- 99 00 01 STA $0100,Y +788C- 88 DEY +788D- 10 F7 BPL $7886 +788F- 20 00 01 JSR $0100 +7892- 8D 08 C0 STA $C008 w:SETSTDZP +7895- 4C 03 40 JMP $4003 +7898- 8D 03 C0 STA $C003 w:RDCARDRAM +789B- A0 00 LDY #$00 +789D- B9 00 18 LDA $1800,Y +78A0- 99 00 5D STA $5D00,Y +78A3- B9 00 19 LDA $1900,Y +78A6- 99 00 5E STA $5E00,Y +78A9- B9 00 1A LDA $1A00,Y +78AC- 99 00 5F STA $5F00,Y +78AF- B9 00 1B LDA $1B00,Y +78B2- 99 00 60 STA $6000,Y +78B5- B9 00 1C LDA $1C00,Y +78B8- 99 00 61 STA $6100,Y +78BB- B9 00 1D LDA $1D00,Y +78BE- 99 00 62 STA $6200,Y +78C1- B9 00 1E LDA $1E00,Y +78C4- 99 00 63 STA $6300,Y +78C7- C8 INY +78C8- D0 D3 BNE $789D +78CA- 8D 02 C0 STA $C002 w:RDMAINRAM +78CD- 60 RTS diff --git a/PSC Source Disk 4 - Fastload - Copy Protection - Title Page (v13)/O_CALUPDATER.txt b/PSC Source Disk 4 - Fastload - Copy Protection - Title Page (v13)/O_CALUPDATER.txt new file mode 100644 index 0000000..88b5c29 --- /dev/null +++ b/PSC Source Disk 4 - Fastload - Copy Protection - Title Page (v13)/O_CALUPDATER.txt @@ -0,0 +1,567 @@ +1000- 4C 4C 12 JMP $124C +1003- 4C E1 13 JMP $13E1 +1006- 43 ??? +1007- 4F ??? +1008- 50 59 BVC $1063 +100A- 52 49 EOR ($49) +100C- 47 ??? +100D- 48 PHA +100E- 54 ??? +100F- 20 31 39 JSR $3931 +1012- 38 SEC +1013- 36 20 ROL $20,X +1015- 42 ??? +1016- 59 20 52 EOR $5220,Y +1019- 4F ??? +101A- 4C 41 4E JMP $4E41 +101D- 44 ??? +101E- 20 47 55 JSR $5547 +1021- 53 ??? +1022- 54 ??? +1023- 41 46 EOR ($46,X) +1025- 53 ??? +1026- 53 ??? +1027- 4F ??? +1028- 4E 20 81 LSR $8120 +102B- 10 AE BPL $0FDB +102D- E9 B7 SBC #$B7 +102F- BD 89 C0 LDA $C089,X +1032- A9 2C LDA #$2C +1034- 85 E1 STA $E1 +1036- A0 00 LDY #$00 +1038- 88 DEY +1039- D0 04 BNE $103F +103B- C6 E1 DEC $E1 +103D- F0 3A BEQ $1079 +103F- BD 8C C0 LDA $C08C,X +1042- 10 FB BPL $103F +1044- C9 A5 CMP #$A5 +1046- D0 F0 BNE $1038 +1048- BD 8C C0 LDA $C08C,X +104B- 10 FB BPL $1048 +104D- C9 DF CMP #$DF +104F- D0 F3 BNE $1044 +1051- BD 8C C0 LDA $C08C,X +1054- 10 FB BPL $1051 +1056- C9 D4 CMP #$D4 +1058- D0 F3 BNE $104D +105A- A9 01 LDA #$01 +105C- 8D F4 B7 STA $B7F4 +105F- A2 11 LDX #$11 +1061- A0 00 LDY #$00 +1063- A9 19 LDA #$19 +1065- 20 89 10 JSR $1089 +1068- B0 0F BCS $1079 +106A- AC FE 19 LDY $19FE +106D- 88 DEY +106E- D0 09 BNE $1079 +1070- AC FF 19 LDY $19FF +1073- C0 03 CPY #$03 +1075- D0 02 BNE $1079 +1077- 18 CLC +1078- B0 38 BCS $10B2 +107A- AE E9 B7 LDX $B7E9 +107D- BD 88 C0 LDA $C088,X +1080- 60 RTS +1081- A9 00 LDA #$00 +1083- 8D F4 B7 STA $B7F4 +1086- A8 TAY +1087- A2 22 LDX #$22 +1089- 8E EC B7 STX $B7EC +108C- 8C ED B7 STY $B7ED +108F- 8D F1 B7 STA $B7F1 +1092- A9 00 LDA #$00 +1094- 8D F0 B7 STA $B7F0 +1097- 8D EB B7 STA $B7EB +109A- A0 E8 LDY #$E8 +109C- A9 B7 LDA #$B7 +109E- 20 B5 B7 JSR $B7B5 +10A1- AE EC B7 LDX $B7EC +10A4- AC ED B7 LDY $B7ED +10A7- AD F1 B7 LDA $B7F1 +10AA- 60 RTS +10AB- A9 0A LDA #$0A +10AD- 2C A9 09 BIT $09A9 +10B0- 48 PHA +10B1- 20 58 FC JSR $FC58 F8ROM:HOME +10B4- 68 PLA +10B5- 4C 5B FB JMP $FB5B F8ROM:TABV +10B8- 46 E3 LSR $E3 +10BA- A9 FF LDA #$FF +10BC- 2C A9 3F BIT $3FA9 +10BF- 85 32 STA $32 +10C1- A9 00 LDA #$00 +10C3- 85 E2 STA $E2 +10C5- 68 PLA +10C6- 85 E0 STA $E0 +10C8- 68 PLA +10C9- 85 E1 STA $E1 +10CB- E6 E0 INC $E0 +10CD- D0 02 BNE $10D1 +10CF- E6 E1 INC $E1 +10D1- A0 00 LDY #$00 +10D3- B1 E0 LDA ($E0),Y +10D5- F0 15 BEQ $10EC +10D7- 24 E3 BIT $E3 +10D9- 10 04 BPL $10DF +10DB- 24 E2 BIT $E2 +10DD- 10 19 BPL $10F8 +10DF- 48 PHA +10E0- 20 F0 FD JSR $FDF0 F8ROM:COUT1 +10E3- 68 PLA +10E4- C9 A0 CMP #$A0 +10E6- B0 E3 BCS $10CB +10E8- 46 E2 LSR $E2 +10EA- 10 DF BPL $10CB +10EC- A5 E1 LDA $E1 +10EE- 48 PHA +10EF- A5 E0 LDA $E0 +10F1- 48 PHA +10F2- 38 SEC +10F3- 66 E3 ROR $E3 +10F5- 4C 84 FE JMP $FE84 F8ROM:SETNORM +10F8- B1 E0 LDA ($E0),Y +10FA- C9 A0 CMP #$A0 +10FC- 90 03 BCC $1101 +10FE- C8 INY +10FF- D0 F7 BNE $10F8 +1101- 98 TYA +1102- 4A LSR +1103- 49 FF EOR #$FF +1105- 18 CLC +1106- 69 13 ADC #$13 +1108- 85 24 STA $24 +110A- 38 SEC +110B- 66 E2 ROR $E2 +110D- 4C D1 10 JMP $10D1 +1110- A0 30 LDY #$30 +1112- AD 30 C0 LDA $C030 rw:SPKR +1115- A9 11 LDA #$11 +1117- 20 A8 FC JSR $FCA8 F8ROM:WAIT +111A- AD 30 C0 LDA $C030 rw:SPKR +111D- A9 13 LDA #$13 +111F- 20 A8 FC JSR $FCA8 F8ROM:WAIT +1122- 88 DEY +1123- D0 ED BNE $1112 +1125- 60 RTS +1126- A9 17 LDA #$17 +1128- 20 C1 FB JSR $FBC1 F8ROM:BASCALC +112B- A0 27 LDY #$27 +112D- A9 20 LDA #$20 +112F- 91 28 STA ($28),Y +1131- 88 DEY +1132- 10 FB BPL $112F +1134- 60 RTS +1135- 20 2F FB JSR $FB2F F8ROM:INIT +1138- 20 58 FC JSR $FC58 F8ROM:HOME +113B- A9 02 LDA #$02 +113D- 85 20 STA $20 +113F- A9 24 LDA #$24 +1141- 85 21 STA $21 +1143- A9 08 LDA #$08 +1145- 85 22 STA $22 +1147- A9 16 LDA #$16 +1149- 85 23 STA $23 +114B- A9 00 LDA #$00 +114D- 20 28 11 JSR $1128 +1150- A9 01 LDA #$01 +1152- 20 28 11 JSR $1128 +1155- A9 02 LDA #$02 +1157- 20 28 11 JSR $1128 +115A- 20 26 11 JSR $1126 +115D- A9 17 LDA #$17 +115F- 48 PHA +1160- 20 C1 FB JSR $FBC1 F8ROM:BASCALC +1163- A0 00 LDY #$00 +1165- A9 20 LDA #$20 +1167- 91 28 STA ($28),Y +1169- A0 27 LDY #$27 +116B- 91 28 STA ($28),Y +116D- 68 PLA +116E- 38 SEC +116F- E9 01 SBC #$01 +1171- 10 EC BPL $115F +1173- 20 BD 10 JSR $10BD +1176- 8D D0 D2 STA $D2D0 +1179- C9 CE CMP #$CE +117B- D4 ??? +117C- A0 D3 LDY #$D3 +117E- C8 INY +117F- CF ??? +1180- D0 A0 BNE $1122 +1182- C3 ??? +1183- CF ??? +1184- CD D0 C1 CMP $C1D0 +1187- CE C9 CF DEC $CFC9 +118A- CE A0 D5 DEC $D5A0 +118D- D0 C7 BNE $1156 +118F- D2 C1 CMP ($C1) +1191- C4 C5 CPY $C5 +1193- A0 D5 LDY #$D5 +1195- D4 ??? +1196- C9 CC CMP #$CC +1198- C9 D4 CMP #$D4 +119A- D9 00 A9 CMP $A900,Y +119D- 17 ??? +119E- 20 5B FB JSR $FB5B F8ROM:TABV +11A1- 20 BD 10 JSR $10BD +11A4- BC C5 D3 LDY $D3C5,X +11A7- C3 ??? +11A8- BE A0 D4 LDX $D4A0,Y +11AB- CF ??? +11AC- A0 C7 LDY #$C7 +11AE- CF ??? +11AF- A0 C2 LDY #$C2 +11B1- C1 C3 CMP ($C3,X) +11B3- CB ??? +11B4- 00 BRK +11B5- 60 RTS +11B6- 20 BA 10 JSR $10BA +11B9- 8D 8D D0 STA $D08D +11BC- D2 C5 CMP ($C5) +11BE- D3 ??? +11BF- D3 ??? +11C0- A0 BC LDY #$BC +11C2- D2 C5 CMP ($C5) +11C4- D4 ??? +11C5- D5 D2 CMP $D2,X +11C7- CE BE A0 DEC $A0BE +11CA- D4 ??? +11CB- CF ??? +11CC- A0 C3 LDY #$C3 +11CE- CF ??? +11CF- CE D4 C9 DEC $C9D4 +11D2- CE D5 C5 DEC $C5D5 +11D5- 00 BRK +11D6- 4C DC 11 JMP $11DC +11D9- 20 10 11 JSR $1110 +11DC- AD 00 C0 LDA $C000 r:KBD w:CLR80COL +11DF- 10 FB BPL $11DC +11E1- 2C 10 C0 BIT $C010 r:KBDSTRB +11E4- C9 8D CMP #$8D +11E6- F0 06 BEQ $11EE +11E8- C9 9B CMP #$9B +11EA- D0 ED BNE $11D9 +11EC- 09 00 ORA #$00 +11EE- 60 RTS +11EF- 8D 02 12 STA $1202 +11F2- 20 81 10 JSR $1081 +11F5- AE E9 B7 LDX $B7E9 +11F8- BD 89 C0 LDA $C089,X +11FB- A9 04 LDA #$04 +11FD- 85 E5 STA $E5 +11FF- A0 00 LDY #$00 +1201- A9 00 LDA #$00 +1203- 84 E6 STY $E6 +1205- 85 E7 STA $E7 +1207- BD 8C C0 LDA $C08C,X +120A- 10 FB BPL $1207 +120C- C9 A5 CMP #$A5 +120E- D0 F7 BNE $1207 +1210- BD 8C C0 LDA $C08C,X +1213- 10 FB BPL $1210 +1215- C9 DF CMP #$DF +1217- D0 F3 BNE $120C +1219- BD 8C C0 LDA $C08C,X +121C- 10 FB BPL $1219 +121E- C9 D4 CMP #$D4 +1220- D0 F3 BNE $1215 +1222- BD 8C C0 LDA $C08C,X +1225- 10 FB BPL $1222 +1227- 2A ROL +1228- 85 E4 STA $E4 +122A- BD 8C C0 LDA $C08C,X +122D- 10 FB BPL $122A +122F- 25 E4 AND $E4 +1231- 91 E6 STA ($E6),Y +1233- C8 INY +1234- D0 EC BNE $1222 +1236- 0E FF FF ASL $FFFF +1239- BD 8C C0 LDA $C08C,X +123C- 10 FB BPL $1239 +123E- C9 CF CMP #$CF +1240- D0 B9 BNE $11FB +1242- E6 E7 INC $E7 +1244- C6 E5 DEC $E5 +1246- D0 DA BNE $1222 +1248- BD 88 C0 LDA $C088,X +124B- 60 RTS +124C- 38 SEC +124D- 66 E3 ROR $E3 +124F- 20 35 11 JSR $1135 +1252- 20 58 FC JSR $FC58 F8ROM:HOME +1255- 20 BA 10 JSR $10BA +1258- D0 CC BNE $1226 +125A- C5 C1 CMP $C1 +125C- D3 ??? +125D- C5 A0 CMP $A0 +125F- C9 CE CMP #$CE +1261- D3 ??? +1262- C5 D2 CMP $D2 +1264- D4 ??? +1265- A0 D3 LDY #$D3 +1267- C9 C4 CMP #$C4 +1269- C5 A0 CMP $A0 +126B- C1 A0 CMP ($A0,X) +126D- CF ??? +126E- C6 A0 DEC $A0 +1270- D4 ??? +1271- C8 INY +1272- C5 8D CMP $8D +1274- 8D D0 D2 STA $D2D0 +1277- C9 CE CMP #$CE +1279- D4 ??? +127A- A0 D3 LDY #$D3 +127C- C8 INY +127D- CF ??? +127E- D0 A0 BNE $1220 +1280- C3 ??? +1281- CF ??? +1282- CD D0 C1 CMP $C1D0 +1285- CE C9 CF DEC $CFC9 +1288- CE A0 C1 DEC $C1A0 +128B- CE C4 8D DEC $8DC4 +128E- 8D D0 D2 STA $D2D0 +1291- C5 D3 CMP $D3 +1293- D3 ??? +1294- A0 BC LDY #$BC +1296- D2 C5 CMP ($C5) +1298- D4 ??? +1299- D5 D2 CMP $D2,X +129B- CE BE A0 DEC $A0BE +129E- D4 ??? +129F- CF ??? +12A0- A0 D5 LDY #$D5 +12A2- D0 C7 BNE $126B +12A4- D2 C1 CMP ($C1) +12A6- C4 C5 CPY $C5 +12A8- 00 BRK +12A9- 20 DC 11 JSR $11DC +12AC- F0 06 BEQ $12B4 +12AE- 20 2F FB JSR $FB2F F8ROM:INIT +12B1- 4C 58 FC JMP $FC58 F8ROM:HOME +12B4- 20 58 FC JSR $FC58 F8ROM:HOME +12B7- 20 29 10 JSR $1029 +12BA- 90 06 BCC $12C2 +12BC- 20 10 11 JSR $1110 +12BF- 4C 52 12 JMP $1252 +12C2- A9 29 LDA #$29 +12C4- 20 EF 11 JSR $11EF +12C7- AD FF 2C LDA $2CFF +12CA- F0 03 BEQ $12CF +12CC- 4C 98 13 JMP $1398 +12CF- 20 10 11 JSR $1110 +12D2- 20 BA 10 JSR $10BA +12D5- D9 CF D5 CMP $D5CF,Y +12D8- A0 C8 LDY #$C8 +12DA- C1 D6 CMP ($D6,X) +12DC- C5 A0 CMP $A0 +12DE- CE CF D4 DEC $D4CF +12E1- A0 CD LDY #$CD +12E3- C1 C4 CMP ($C4,X) +12E5- C5 A0 CMP $A0 +12E7- C1 A0 CMP ($A0,X) +12E9- C2 ??? +12EA- C1 C3 CMP ($C3,X) +12EC- CB ??? +12ED- D5 D0 CMP $D0,X +12EF- A0 CF LDY #$CF +12F1- C6 A0 DEC $A0 +12F3- D9 CF D5 CMP $D5CF,Y +12F6- D2 8D CMP ($8D) +12F8- C3 ??? +12F9- CF ??? +12FA- CD D0 C1 CMP $C1D0 +12FD- CE C9 CF DEC $CFC9 +1300- CE A0 C4 DEC $C4A0 +1303- C9 D3 CMP #$D3 +1305- CB ??? +1306- AE A0 D9 LDX $D9A0 +1309- CF ??? +130A- D5 A0 CMP $A0,X +130C- CD D5 D3 CMP $D3D5 +130F- D4 ??? +1310- A0 CD LDY #$CD +1312- C1 CB CMP ($CB,X) +1314- C5 A0 CMP $A0 +1316- C1 8D CMP ($8D,X) +1318- C2 ??? +1319- C1 C3 CMP ($C3,X) +131B- CB ??? +131C- D5 D0 CMP $D0,X +131E- A0 C2 LDY #$C2 +1320- C5 C6 CMP $C6 +1322- CF ??? +1323- D2 C5 CMP ($C5) +1325- A0 D4 LDY #$D4 +1327- C8 INY +1328- C5 A0 CMP $A0 +132A- D5 D0 CMP $D0,X +132C- C7 ??? +132D- D2 C1 CMP ($C1) +132F- C4 C5 CPY $C5 +1331- A0 D5 LDY #$D5 +1333- D4 ??? +1334- C9 CC CMP #$CC +1336- C9 D4 CMP #$D4 +1338- D9 8D C3 CMP $C38D,Y +133B- C1 CE CMP ($CE,X) +133D- A0 C2 LDY #$C2 +133F- C5 A0 CMP $A0 +1341- D2 D5 CMP ($D5) +1343- CE AE A0 DEC $A0AE +1346- D3 ??? +1347- C5 C5 CMP $C5 +1349- A0 D3 LDY #$D3 +134B- C5 C3 CMP $C3 +134D- D4 ??? +134E- C9 CF CMP #$CF +1350- CE A0 C9 DEC $C9A0 +1353- A0 CF LDY #$CF +1355- C6 8D DEC $8D +1357- C3 ??? +1358- CF ??? +1359- CD D0 C1 CMP $C1D0 +135C- CE C9 CF DEC $CFC9 +135F- CE A0 CD DEC $CDA0 +1362- C1 CE CMP ($CE,X) +1364- D5 C1 CMP $C1,X +1366- CC A0 C6 CPY $C6A0 +1369- CF ??? +136A- D2 A0 CMP ($A0) +136C- C9 CE CMP #$CE +136E- D3 ??? +136F- D4 ??? +1370- D2 D5 CMP ($D5) +1372- C3 ??? +1373- D4 ??? +1374- C9 CF CMP #$CF +1376- CE D3 8D DEC $8DD3 +1379- CF ??? +137A- CE A0 CD DEC $CDA0 +137D- C1 CB CMP ($CB,X) +137F- C9 CE CMP #$CE +1381- C7 ??? +1382- A0 C1 LDY #$C1 +1384- A0 C2 LDY #$C2 +1386- C1 C3 CMP ($C3,X) +1388- CB ??? +1389- D5 D0 CMP $D0,X +138B- AE 00 20 LDX $2000 +138E- B6 11 LDX $11,Y +1390- F0 03 BEQ $1395 +1392- 4C 52 12 JMP $1252 +1395- 4C AE 12 JMP $12AE +1398- 20 AB 10 JSR $10AB +139B- 20 BA 10 JSR $10BA +139E- D5 D0 CMP $D0,X +13A0- C7 ??? +13A1- D2 C1 CMP ($C1) +13A3- C4 C9 CPY $C9 +13A5- CE C7 A0 DEC $A0C7 +13A8- C3 ??? +13A9- CF ??? +13AA- CD D0 C1 CMP $C1D0 +13AD- CE C9 CF DEC $CFC9 +13B0- CE A0 C4 DEC $C4A0 +13B3- C9 D3 CMP #$D3 +13B5- CB ??? +13B6- AE AE AE LDX $AEAE +13B9- 8D 00 20 STA $2000 +13BC- 35 14 AND $14,X +13BE- 20 5F 14 JSR $145F +13C1- 20 AE 10 JSR $10AE +13C4- 20 BA 10 JSR $10BA +13C7- D5 D0 CMP $D0,X +13C9- C7 ??? +13CA- D2 C1 CMP ($C1) +13CC- C4 C5 CPY $C5 +13CE- A0 C3 LDY #$C3 +13D0- CF ??? +13D1- CD D0 CC CMP $CCD0 +13D4- C5 D4 CMP $D4 +13D6- C5 AE CMP $AE +13D8- 00 BRK +13D9- 20 B6 11 JSR $11B6 +13DC- F0 B7 BEQ $1395 +13DE- 4C 52 12 JMP $1252 +13E1- 20 AE 10 JSR $10AE +13E4- 20 10 11 JSR $1110 +13E7- A5 DE LDA $DE +13E9- C9 04 CMP #$04 +13EB- F0 1E BEQ $140B +13ED- C9 10 CMP #$10 +13EF- F0 1A BEQ $140B +13F1- 20 BA 10 JSR $10BA +13F4- C4 C9 CPY $C9 +13F6- D3 ??? +13F7- CB ??? +13F8- A0 C5 LDY #$C5 +13FA- D2 D2 CMP ($D2) +13FC- CF ??? +13FD- D2 A0 CMP ($A0) +13FF- CF ??? +1400- C3 ??? +1401- C3 ??? +1402- D5 D2 CMP $D2,X +1404- D2 C5 CMP ($C5) +1406- C4 00 CPY $00 +1408- 4C B6 11 JMP $11B6 +140B- 20 BA 10 JSR $10BA +140E- D0 CC BNE $13DC +1410- C5 C1 CMP $C1 +1412- D3 ??? +1413- C5 A0 CMP $A0 +1415- D2 C5 CMP ($C5) +1417- CD CF D6 CMP $D6CF +141A- C5 A0 CMP $A0 +141C- D4 ??? +141D- C8 INY +141E- C5 A0 CMP $A0 +1420- D7 ??? +1421- D2 C9 CMP ($C9) +1423- D4 ??? +1424- C5 A0 CMP $A0 +1426- D0 D2 BNE $13FA +1428- CF ??? +1429- D4 ??? +142A- C5 C3 CMP $C3 +142C- D4 ??? +142D- A0 D4 LDY #$D4 +142F- C1 C2 CMP ($C2,X) +1431- 00 BRK +1432- 4C B6 11 JMP $11B6 +1435- A0 00 LDY #$00 +1437- B9 43 14 LDA $1443,Y +143A- F0 06 BEQ $1442 +143C- 20 ED FD JSR $FDED F8ROM:COUT +143F- C8 INY +1440- D0 F5 BNE $1437 +1442- 60 RTS +1443- 8D 84 C2 STA $C284 +1446- D3 ??? +1447- C1 D6 CMP ($D6,X) +1449- C5 C3 CMP $C3 +144B- C1 CC CMP ($CC,X) +144D- C5 CE CMP $CE +144F- AC C1 A4 LDY $A4C1 +1452- B4 B0 LDY $B0,X +1454- B0 B0 BCS $1406 +1456- AC CC A4 LDY $A4CC +1459- B1 C4 LDA ($C4),Y +145B- C6 B8 DEC $B8 +145D- 8D 00 A9 STA $A900 +1460- 02 ??? +1461- 8D F4 B7 STA $B7F4 +1464- A2 00 LDX #$00 +1466- A0 0F LDY #$0F +1468- A9 28 LDA #$28 +146A- 20 89 10 JSR $1089 +146D- B0 08 BCS $1477 +146F- E9 00 SBC #$00 +1471- 88 DEY +1472- C0 07 CPY #$07 +1474- B0 F4 BCS $146A +1476- 60 RTS +1477- AE F5 B7 LDX $B7F5 +147A- 4C 12 D4 JMP $D412 diff --git a/PSC Source Disk 4 - Fastload - Copy Protection - Title Page (v13)/O_DDBOOT.txt b/PSC Source Disk 4 - Fastload - Copy Protection - Title Page (v13)/O_DDBOOT.txt new file mode 100644 index 0000000..d5806c3 --- /dev/null +++ b/PSC Source Disk 4 - Fastload - Copy Protection - Title Page (v13)/O_DDBOOT.txt @@ -0,0 +1,90 @@ +0800- 01 A6 ORA ($A6,X) +0802- 2B ??? +0803- BD 88 C0 LDA $C088,X +0806- 8D 00 C0 STA $C000 r:KBD w:CLR80COL +0809- 8D 0C C0 STA $C00C w:CLR80VID +080C- 8D 0E C0 STA $C00E w:CLRALTCHAR +080F- 8D 54 C0 STA $C054 rw:TXTPAGE1 +0812- 20 2F FB JSR $FB2F F8ROM:INIT +0815- 20 84 FE JSR $FE84 F8ROM:SETNORM +0818- 20 58 FC JSR $FC58 F8ROM:HOME +081B- 20 89 FE JSR $FE89 F8ROM:SETKBD +081E- 20 93 FE JSR $FE93 F8ROM:SETVID +0821- A0 00 LDY #$00 +0823- B9 50 08 LDA $0850,Y +0826- F0 06 BEQ $082E +0828- 20 F0 FD JSR $FDF0 F8ROM:COUT1 +082B- C8 INY +082C- D0 F5 BNE $0823 +082E- 8D F3 03 STA $03F3 +0831- 8D F4 03 STA $03F4 +0834- AD 00 C0 LDA $C000 r:KBD w:CLR80COL +0837- C9 A0 CMP #$A0 +0839- D0 F9 BNE $0834 +083B- 2C 10 C0 BIT $C010 r:KBDSTRB +083E- 20 58 FC JSR $FC58 F8ROM:HOME +0841- A5 2B LDA $2B +0843- 4A LSR +0844- 4A LSR +0845- 4A LSR +0846- 4A LSR +0847- 09 C0 ORA #$C0 +0849- E9 00 SBC #$00 +084B- 48 PHA +084C- A9 FF LDA #$FF +084E- 48 PHA +084F- 60 RTS +0850- 8D 8D 8D STA $8D8D +0853- 8D 8D 8D STA $8D8D +0856- 14 08 TRB $08 +0858- 09 13 ORA #$13 +085A- 20 09 13 JSR $1309 +085D- 20 01 20 JSR $2001 +0860- 10 12 BPL $0874 +0862- 09 0E ORA #$0E +0864- 14 20 TRB $20 +0866- 13 ??? +0867- 08 PHP +0868- 0F ??? +0869- 10 20 BPL $088B +086B- 04 01 TSB $01 +086D- 14 01 TRB $01 +086F- 20 04 09 JSR $0904 +0872- 13 ??? +0873- 0B ??? +0874- 8D 8D 8D STA $8D8D +0877- 87 ??? +0878- A0 A0 LDY #$A0 +087A- D0 CC BNE $0848 +087C- C5 C1 CMP $C1 +087E- D3 ??? +087F- C5 A0 CMP $A0 +0881- C9 CE CMP #$CE +0883- D3 ??? +0884- C5 D2 CMP $D2 +0886- D4 ??? +0887- A0 C1 LDY #$C1 +0889- CE CF D4 DEC $D4CF +088C- C8 INY +088D- C5 D2 CMP $D2 +088F- A0 C4 LDY #$C4 +0891- C9 D3 CMP #$D3 +0893- CB ??? +0894- 8D 8D A0 STA $A08D +0897- A0 C1 LDY #$C1 +0899- CE C4 A0 DEC $A0C4 +089C- D0 D2 BNE $0870 +089E- C5 D3 CMP $D3 +08A0- D3 ??? +08A1- A0 D4 LDY #$D4 +08A3- C8 INY +08A4- C5 A0 CMP $A0 +08A6- D3 ??? +08A7- D0 C1 BNE $086A +08A9- C3 ??? +08AA- C5 A0 CMP $A0 +08AC- C2 ??? +08AD- C1 D2 CMP ($D2,X) +08AF- AE AE AE LDX $AEAE +08B2- 60 RTS +08B3- 00 BRK diff --git a/PSC Source Disk 4 - Fastload - Copy Protection - Title Page (v13)/O_DRIVER.txt b/PSC Source Disk 4 - Fastload - Copy Protection - Title Page (v13)/O_DRIVER.txt new file mode 100644 index 0000000..db79db0 --- /dev/null +++ b/PSC Source Disk 4 - Fastload - Copy Protection - Title Page (v13)/O_DRIVER.txt @@ -0,0 +1,589 @@ +6000- 4C CB 62 JMP $62CB +6003- 4A LSR +6004- 49 FF EOR #$FF +6006- 18 CLC +6007- 69 15 ADC #$15 +6009- 85 24 STA $24 +600B- 68 PLA +600C- 85 00 STA $00 +600E- 68 PLA +600F- 85 01 STA $01 +6011- A0 00 LDY #$00 +6013- E6 00 INC $00 +6015- D0 02 BNE $6019 +6017- E6 01 INC $01 +6019- B1 00 LDA ($00),Y +601B- F0 06 BEQ $6023 +601D- 20 ED FD JSR $FDED F8ROM:COUT +6020- 4C 13 60 JMP $6013 +6023- A5 01 LDA $01 +6025- 48 PHA +6026- A5 00 LDA $00 +6028- 48 PHA +6029- 60 RTS +602A- A2 16 LDX #$16 +602C- 8A TXA +602D- 20 C1 FB JSR $FBC1 F8ROM:BASCALC +6030- A5 28 LDA $28 +6032- 85 2A STA $2A +6034- A5 29 LDA $29 +6036- 85 2B STA $2B +6038- CA DEX +6039- 8A TXA +603A- 20 C1 FB JSR $FBC1 F8ROM:BASCALC +603D- A0 27 LDY #$27 +603F- B1 28 LDA ($28),Y +6041- 91 2A STA ($2A),Y +6043- 88 DEY +6044- 10 F9 BPL $603F +6046- E0 00 CPX #$00 +6048- D0 E2 BNE $602C +604A- 2C 30 C0 BIT $C030 rw:SPKR +604D- 4C 9E FC JMP $FC9E F8ROM:CLREOLZ +6050- E6 4E INC $4E +6052- AD 00 C0 LDA $C000 r:KBD w:CLR80COL +6055- 10 F9 BPL $6050 +6057- 2C 10 C0 BIT $C010 r:KBDSTRB +605A- C9 9B CMP #$9B +605C- F0 08 BEQ $6066 +605E- C9 D2 CMP #$D2 +6060- D0 03 BNE $6065 +6062- 4C CB 62 JMP $62CB +6065- 60 RTS +6066- 4C 00 10 JMP $1000 +6069- 20 84 FE JSR $FE84 F8ROM:SETNORM +606C- 20 58 FC JSR $FC58 F8ROM:HOME +606F- 20 0B 60 JSR $600B +6072- C2 ??? +6073- D9 C5 A0 CMP $A0C5,Y +6076- A1 A1 LDA ($A1,X) +6078- A1 8D LDA ($8D,X) +607A- 00 BRK +607B- 4C D3 03 JMP $03D3 +607E- A5 F3 LDA $F3 +6080- 18 CLC +6081- 65 F6 ADC $F6 +6083- 85 F3 STA $F3 +6085- 30 08 BMI $608F +6087- A5 F5 LDA $F5 +6089- C5 F3 CMP $F3 +608B- B0 0A BCS $6097 +608D- 90 02 BCC $6091 +608F- A9 00 LDA #$00 +6091- 85 F3 STA $F3 +6093- A9 00 LDA #$00 +6095- 85 F6 STA $F6 +6097- A5 F6 LDA $F6 +6099- F0 04 BEQ $609F +609B- 30 06 BMI $60A3 +609D- 10 08 BPL $60A7 +609F- A9 A1 LDA #$A1 +60A1- D0 06 BNE $60A9 +60A3- A9 DC LDA #$DC +60A5- D0 02 BNE $60A9 +60A7- A9 AF LDA #$AF +60A9- A6 F3 LDX $F3 +60AB- 9D 00 04 STA $0400,X +60AE- 48 PHA +60AF- 8A TXA +60B0- 18 CLC +60B1- 65 F4 ADC $F4 +60B3- AA TAX +60B4- 68 PLA +60B5- 9D 00 04 STA $0400,X +60B8- 2C 30 C0 BIT $C030 rw:SPKR +60BB- A5 F7 LDA $F7 +60BD- F0 0A BEQ $60C9 +60BF- 48 PHA +60C0- 20 A8 FC JSR $FCA8 F8ROM:WAIT +60C3- 68 PLA +60C4- 48 PHA +60C5- 20 A8 FC JSR $FCA8 F8ROM:WAIT +60C8- 68 PLA +60C9- A8 TAY +60CA- C5 F0 CMP $F0 +60CC- F0 05 BEQ $60D3 +60CE- B0 02 BCS $60D2 +60D0- C8 INY +60D1- 24 88 BIT $88 +60D3- 84 F7 STY $F7 +60D5- AD 00 C0 LDA $C000 r:KBD w:CLR80COL +60D8- C9 B1 CMP #$B1 +60DA- 90 13 BCC $60EF +60DC- C9 B6 CMP #$B6 +60DE- B0 0F BCS $60EF +60E0- 29 0F AND #$0F +60E2- C5 FA CMP $FA +60E4- F0 09 BEQ $60EF +60E6- 85 FA STA $FA +60E8- AA TAX +60E9- CA DEX +60EA- BD 07 61 LDA $6107,X +60ED- 85 F0 STA $F0 +60EF- A5 FA LDA $FA +60F1- 18 CLC +60F2- F8 SED +60F3- 65 F8 ADC $F8 +60F5- 85 F8 STA $F8 +60F7- A5 F9 LDA $F9 +60F9- 69 00 ADC #$00 +60FB- 85 F9 STA $F9 +60FD- D8 CLD +60FE- AD 30 C0 LDA $C030 rw:SPKR +6101- 20 34 61 JSR $6134 +6104- 4C 2A 60 JMP $602A +6107- 70 60 BVS $6169 +6109- 45 30 EOR $30 +610B- 01 D2 ORA ($D2,X) +610D- CF ??? +610E- C1 C4 CMP ($C4,X) +6110- A0 CC LDY #$CC +6112- C5 C6 CMP $C6 +6114- D4 ??? +6115- BD B1 B5 LDA $B5B1,X +6118- B0 B0 BCS $60CA +611A- A0 A0 LDY #$A0 +611C- A0 A0 LDY #$A0 +611E- A0 C7 LDY #$C7 +6120- C5 C1 CMP $C1 +6122- D2 BD CMP ($BD) +6124- B0 A0 BCS $60C6 +6126- A0 A0 LDY #$A0 +6128- A0 A0 LDY #$A0 +612A- D3 ??? +612B- C3 ??? +612C- CF ??? +612D- D2 C5 CMP ($C5) +612F- BD B0 B0 LDA $B0B0,X +6132- B0 B0 BCS $60E4 +6134- A5 FA LDA $FA +6136- 09 B0 ORA #$B0 +6138- 8D E8 07 STA $07E8 +613B- A2 24 LDX #$24 +613D- A5 F9 LDA $F9 +613F- 20 44 61 JSR $6144 +6142- A5 F8 LDA $F8 +6144- 48 PHA +6145- 4A LSR +6146- 4A LSR +6147- 4A LSR +6148- 4A LSR +6149- 20 4F 61 JSR $614F +614C- 68 PLA +614D- 29 0F AND #$0F +614F- 09 B0 ORA #$B0 +6151- 9D D0 07 STA $07D0,X +6154- E8 INX +6155- 60 RTS +6156- E6 FB INC $FB +6158- D0 02 BNE $615C +615A- E6 FC INC $FC +615C- 60 RTS +615D- A9 0A LDA #$0A +615F- 48 PHA +6160- A9 3F LDA #$3F +6162- 85 32 STA $32 +6164- A9 00 LDA #$00 +6166- 85 33 STA $33 +6168- 20 87 61 JSR $6187 +616B- A9 FF LDA #$FF +616D- 85 32 STA $32 +616F- A9 80 LDA #$80 +6171- 85 33 STA $33 +6173- 20 87 61 JSR $6187 +6176- 68 PLA +6177- 38 SEC +6178- E9 01 SBC #$01 +617A- D0 E3 BNE $615F +617C- A2 00 LDX #$00 +617E- 20 AC 61 JSR $61AC +6181- 2C 10 C0 BIT $C010 r:KBDSTRB +6184- 4C 35 64 JMP $6435 +6187- A9 00 LDA #$00 +6189- 85 3C STA $3C +618B- 2C 30 C0 BIT $C030 rw:SPKR +618E- A9 04 LDA #$04 +6190- 85 3D STA $3D +6192- A0 00 LDY #$00 +6194- B1 3C LDA ($3C),Y +6196- 25 32 AND $32 +6198- 05 33 ORA $33 +619A- 91 3C STA ($3C),Y +619C- C8 INY +619D- D0 F5 BNE $6194 +619F- E6 3D INC $3D +61A1- 2C 30 C0 BIT $C030 rw:SPKR +61A4- A5 3D LDA $3D +61A6- C9 08 CMP #$08 +61A8- D0 EA BNE $6194 +61AA- A2 14 LDX #$14 +61AC- BC 00 F8 LDY $F800,X +61AF- 88 DEY +61B0- D0 FD BNE $61AF +61B2- 2C 30 C0 BIT $C030 rw:SPKR +61B5- CA DEX +61B6- D0 F4 BNE $61AC +61B8- 60 RTS +61B9- A6 F2 LDX $F2 +61BB- BD D0 05 LDA $05D0,X +61BE- C9 A0 CMP #$A0 +61C0- D0 9B BNE $615D +61C2- E8 INX +61C3- BD D0 05 LDA $05D0,X +61C6- C9 A0 CMP #$A0 +61C8- D0 93 BNE $615D +61CA- A9 1C LDA #$1C +61CC- 9D D0 05 STA $05D0,X +61CF- CA DEX +61D0- A9 2F LDA #$2F +61D2- 9D D0 05 STA $05D0,X +61D5- 60 RTS +61D6- AD 00 C0 LDA $C000 r:KBD w:CLR80COL +61D9- A0 FF LDY #$FF +61DB- C9 C2 CMP #$C2 +61DD- D0 02 BNE $61E1 +61DF- 84 F1 STY $F1 +61E1- C9 CE CMP #$CE +61E3- D0 03 BNE $61E8 +61E5- C8 INY +61E6- 84 F1 STY $F1 +61E8- C9 CD CMP #$CD +61EA- D0 04 BNE $61F0 +61EC- A0 01 LDY #$01 +61EE- 84 F1 STY $F1 +61F0- A5 F2 LDA $F2 +61F2- 18 CLC +61F3- 65 F1 ADC $F1 +61F5- 85 F2 STA $F2 +61F7- A5 3E LDA $3E +61F9- 38 SEC +61FA- F8 SED +61FB- E9 01 SBC #$01 +61FD- 85 3E STA $3E +61FF- A5 3F LDA $3F +6201- E9 00 SBC #$00 +6203- 85 3F STA $3F +6205- D8 CLD +6206- C9 99 CMP #$99 +6208- D0 03 BNE $620D +620A- 4C 35 64 JMP $6435 +620D- A2 0A LDX #$0A +620F- A5 3F LDA $3F +6211- 20 44 61 JSR $6144 +6214- A5 3E LDA $3E +6216- 20 44 61 JSR $6144 +6219- 4C B9 61 JMP $61B9 +621C- 20 84 FE JSR $FE84 F8ROM:SETNORM +621F- 20 2F FB JSR $FB2F F8ROM:INIT +6222- 20 58 FC JSR $FC58 F8ROM:HOME +6225- 20 9E 62 JSR $629E +6228- A2 27 LDX #$27 +622A- BD 0C 61 LDA $610C,X +622D- 9D D0 07 STA $07D0,X +6230- CA DEX +6231- 10 F7 BPL $622A +6233- A9 15 LDA #$15 +6235- 85 3F STA $3F +6237- A9 00 LDA #$00 +6239- 85 F1 STA $F1 +623B- 85 F6 STA $F6 +623D- 85 F8 STA $F8 +623F- 85 3E STA $3E +6241- 85 F9 STA $F9 +6243- 85 FA STA $FA +6245- A9 8A LDA #$8A +6247- 85 FB STA $FB +6249- A9 64 LDA #$64 +624B- 85 FC STA $FC +624D- A9 13 LDA #$13 +624F- 85 F2 STA $F2 +6251- A9 27 LDA #$27 +6253- 38 SEC +6254- E5 F4 SBC $F4 +6256- 85 F5 STA $F5 +6258- A5 F4 LDA $F4 +625A- 4A LSR +625B- 38 SEC +625C- E9 14 SBC #$14 +625E- 49 FF EOR #$FF +6260- 85 F3 STA $F3 +6262- A9 01 LDA #$01 +6264- 85 F7 STA $F7 +6266- A9 18 LDA #$18 +6268- 48 PHA +6269- 2C 10 C0 BIT $C010 r:KBDSTRB +626C- 20 7E 60 JSR $607E +626F- 20 B9 61 JSR $61B9 +6272- 68 PLA +6273- 38 SEC +6274- E9 01 SBC #$01 +6276- D0 F0 BNE $6268 +6278- A9 01 LDA #$01 +627A- 85 FA STA $FA +627C- AD 07 61 LDA $6107 +627F- 85 F7 STA $F7 +6281- 85 F0 STA $F0 +6283- A0 00 LDY #$00 +6285- B1 FB LDA ($FB),Y +6287- 85 F6 STA $F6 +6289- 20 56 61 JSR $6156 +628C- A9 0A LDA #$0A +628E- 48 PHA +628F- 20 7E 60 JSR $607E +6292- 20 D6 61 JSR $61D6 +6295- 68 PLA +6296- 38 SEC +6297- E9 01 SBC #$01 +6299- D0 F3 BNE $628E +629B- 4C 83 62 JMP $6283 +629E- A5 4E LDA $4E +62A0- 09 01 ORA #$01 +62A2- 85 4E STA $4E +62A4- A0 00 LDY #$00 +62A6- A2 05 LDX #$05 +62A8- A5 4E LDA $4E +62AA- 65 4E ADC $4E +62AC- 85 4E STA $4E +62AE- CA DEX +62AF- D0 F7 BNE $62A8 +62B1- 45 4F EOR $4F +62B3- 85 F6 STA $F6 +62B5- 38 SEC +62B6- E9 03 SBC #$03 +62B8- B0 F9 BCS $62B3 +62BA- A5 F6 LDA $F6 +62BC- E9 00 SBC #$00 +62BE- 99 8A 64 STA $648A,Y +62C1- A5 4F LDA $4F +62C3- 69 2F ADC #$2F +62C5- 85 4F STA $4F +62C7- C8 INY +62C8- D0 DC BNE $62A6 +62CA- 60 RTS +62CB- A9 00 LDA #$00 +62CD- 85 40 STA $40 +62CF- 85 41 STA $41 +62D1- 20 80 FE JSR $FE80 F8ROM:SETINV +62D4- 20 89 FE JSR $FE89 F8ROM:SETKBD +62D7- 20 93 FE JSR $FE93 F8ROM:SETVID +62DA- 20 2F FB JSR $FB2F F8ROM:INIT +62DD- 20 58 FC JSR $FC58 F8ROM:HOME +62E0- A9 0E LDA #$0E +62E2- 20 03 60 JSR $6003 +62E5- AD AA BE LDA $BEAA +62E8- A0 C4 LDY #$C4 +62EA- D2 C9 CMP ($C9) +62EC- D6 C5 DEC $C5,X +62EE- D2 A0 CMP ($A0) +62F0- BC AA AD LDY $ADAA,X +62F3- 8D 8D 00 STA $008D +62F6- 20 84 FE JSR $FE84 F8ROM:SETNORM +62F9- A9 14 LDA #$14 +62FB- 20 03 60 JSR $6003 +62FE- C2 ??? +62FF- D9 A0 D2 CMP $D2A0,Y +6302- CF ??? +6303- CC C1 CE CPY $CEC1 +6306- C4 A0 CPY $A0 +6308- C7 ??? +6309- D5 D3 CMP $D3,X +630B- D4 ??? +630C- C1 C6 CMP ($C6,X) +630E- D3 ??? +630F- D3 ??? +6310- CF ??? +6311- CE 00 A9 DEC $A900 +6314- 09 85 ORA #$85 +6316- 20 20 0B JSR $0B20 +6319- 60 RTS +631A- 8D 8D A0 STA $A08D +631D- A0 C3 LDY #$C3 +631F- C8 INY +6320- CF ??? +6321- CF ??? +6322- D3 ??? +6323- C5 A0 CMP $A0 +6325- D3 ??? +6326- CB ??? +6327- C9 CC CMP #$CC +6329- CC A0 CC CPY $CCA0 +632C- C5 D6 CMP $D6 +632E- C5 CC CMP $CC +6330- BA TSX +6331- 8D 8D B1 STA $B18D +6334- A0 AD LDY #$AD +6336- A0 C2 LDY #$C2 +6338- C5 C7 CMP $C7 +633A- C9 CE CMP #$CE +633C- CE C5 D2 DEC $D2C5 +633F- 8D B2 A0 STA $A0B2 +6342- AD A0 CE LDA $CEA0 +6345- CF ??? +6346- D6 C9 DEC $C9,X +6348- C3 ??? +6349- C5 8D CMP $8D +634B- B3 ??? +634C- A0 AD LDY #$AD +634E- A0 C6 LDY #$C6 +6350- C1 C9 CMP ($C9,X) +6352- D2 8D CMP ($8D) +6354- B4 A0 LDY $A0,X +6356- AD A0 C2 LDA $C2A0 +6359- C5 D4 CMP $D4 +635B- D4 ??? +635C- C5 D2 CMP $D2 +635E- 8D B5 A0 STA $A0B5 +6361- AD A0 C9 LDA $C9A0 +6364- CE D4 C5 DEC $C5D4 +6367- D2 CD CMP ($CD) +6369- C5 C4 CMP $C4 +636B- C9 C1 CMP #$C1 +636D- D4 ??? +636E- C5 8D CMP $8D +6370- B6 A0 LDX $A0,Y +6372- AD A0 D0 LDA $D0A0 +6375- D2 C5 CMP ($C5) +6377- D4 ??? +6378- D4 ??? +6379- D9 A0 C7 CMP $C7A0,Y +637C- CF ??? +637D- CF ??? +637E- C4 8D CPY $8D +6380- B7 ??? +6381- A0 AD LDY #$AD +6383- A0 D0 LDY #$D0 +6385- D2 CF CMP ($CF) +6387- C6 C5 DEC $C5 +6389- D3 ??? +638A- D3 ??? +638B- C9 CF CMP #$CF +638D- CE C1 CC DEC $CCC1 +6390- 8D B8 A0 STA $A0B8 +6393- AD A0 D4 LDA $D4A0 +6396- C8 INY +6397- D2 C5 CMP ($C5) +6399- C1 C4 CMP ($C4,X) +639B- A0 D4 LDY #$D4 +639D- C8 INY +639E- C5 A0 CMP $A0 +63A0- CE C5 C5 DEC $C5C5 +63A3- C4 CC CPY $CC +63A5- C5 8D CMP $8D +63A7- 8D D2 A0 STA $A0D2 +63AA- AD A0 D2 LDA $D2A0 +63AD- C5 D3 CMP $D3 +63AF- C5 D4 CMP $D4 +63B1- A0 C8 LDY #$C8 +63B3- C9 AD CMP #$AD +63B5- D3 ??? +63B6- C3 ??? +63B7- CF ??? +63B8- D2 C5 CMP ($C5) +63BA- 8D 8D A0 STA $A08D +63BD- A0 D3 LDY #$D3 +63BF- C5 CC CMP $CC +63C1- C5 C3 CMP $C3 +63C3- D4 ??? +63C4- C9 CF CMP #$CF +63C6- CE A0 A8 DEC $A8A0 +63C9- B1 AD LDA ($AD),Y +63CB- B8 CLV +63CC- A9 A0 LDA #$A0 +63CE- BF ??? +63CF- 00 BRK +63D0- A9 00 LDA #$00 +63D2- 85 20 STA $20 +63D4- 20 0B 60 JSR $600B +63D7- 8D 8D 8D STA $8D8D +63DA- C2 ??? +63DB- AD A0 D4 LDA $D4A0 +63DE- D5 D2 CMP $D2,X +63E0- CE A0 CC DEC $CCA0 +63E3- C5 C6 CMP $C6 +63E5- D4 ??? +63E6- AC A0 CE LDY $CEA0 +63E9- AD A0 D3 LDA $D3A0 +63EC- D4 ??? +63ED- D2 C1 CMP ($C1) +63EF- C9 C7 CMP #$C7 +63F1- C8 INY +63F2- D4 ??? +63F3- AC A0 CD LDY $CDA0 +63F6- AD A0 D4 LDA $D4A0 +63F9- D5 D2 CMP $D2,X +63FB- CE A0 D2 DEC $D2A0 +63FE- C9 C7 CMP #$C7 +6400- C8 INY +6401- D4 ??? +6402- 00 BRK +6403- A2 08 LDX #$08 +6405- BD 6D 64 LDA $646D,X +6408- F0 06 BEQ $6410 +640A- 9D D0 07 STA $07D0,X +640D- E8 INX +640E- D0 F5 BNE $6405 +6410- A5 41 LDA $41 +6412- 20 44 61 JSR $6144 +6415- A5 40 LDA $40 +6417- 20 44 61 JSR $6144 +641A- 20 50 60 JSR $6050 +641D- 38 SEC +641E- E9 B0 SBC #$B0 +6420- C9 01 CMP #$01 +6422- 90 F6 BCC $641A +6424- C9 09 CMP #$09 +6426- B0 F2 BCS $641A +6428- 49 FF EOR #$FF +642A- 18 CLC +642B- 69 0A ADC #$0A +642D- 0A ASL +642E- AA TAX +642F- E8 INX +6430- 86 F4 STX $F4 +6432- 4C 1C 62 JMP $621C +6435- A5 F9 LDA $F9 +6437- C5 41 CMP $41 +6439- 90 2F BCC $646A +643B- D0 06 BNE $6443 +643D- A5 F8 LDA $F8 +643F- C5 40 CMP $40 +6441- 90 27 BCC $646A +6443- 20 58 FC JSR $FC58 F8ROM:HOME +6446- A9 0C LDA #$0C +6448- 20 24 FC JSR $FC24 F8ROM:VTABZ +644B- A9 0C LDA #$0C +644D- 20 03 60 JSR $6003 +6450- CE C5 D7 DEC $D7C5 +6453- A0 C8 LDY #$C8 +6455- C9 AD CMP #$AD +6457- D3 ??? +6458- C3 ??? +6459- CF ??? +645A- D2 C5 CMP ($C5) +645C- A0 A1 LDY #$A1 +645E- 87 ??? +645F- 87 ??? +6460- 87 ??? +6461- 00 BRK +6462- A5 F9 LDA $F9 +6464- 85 41 STA $41 +6466- A5 F8 LDA $F8 +6468- 85 40 STA $40 +646A- A0 0F LDY #$0F +646C- 20 A8 FC JSR $FCA8 F8ROM:WAIT +646F- 88 DEY +6470- 10 FA BPL $646C +6472- 4C D1 62 JMP $62D1 +6475- A0 C3 LDY #$C3 +6477- D5 D2 CMP $D2,X +6479- D2 C5 CMP ($C5) +647B- CE D4 A0 DEC $A0D4 +647E- C8 INY +647F- C9 AD CMP #$AD +6481- D3 ??? +6482- C3 ??? +6483- CF ??? +6484- D2 C5 CMP ($C5) +6486- A0 BD LDY #$BD +6488- A0 00 LDY #$00 +648A- 00 BRK diff --git a/PSC Source Disk 4 - Fastload - Copy Protection - Title Page (v13)/O_MAKETITLEPIC.txt b/PSC Source Disk 4 - Fastload - Copy Protection - Title Page (v13)/O_MAKETITLEPIC.txt new file mode 100644 index 0000000..681e382 --- /dev/null +++ b/PSC Source Disk 4 - Fastload - Copy Protection - Title Page (v13)/O_MAKETITLEPIC.txt @@ -0,0 +1,84 @@ +1000- A9 20 LDA #$20 +1002- 85 E6 STA $E6 +1004- AD 81 C0 LDA $C081 rw:ROMIN +1007- A0 00 LDY #$00 +1009- 84 00 STY $00 +100B- 98 TYA +100C- 20 17 F4 JSR $F417 +100F- A4 00 LDY $00 +1011- A5 26 LDA $26 +1013- 99 00 1E STA $1E00,Y +1016- A5 27 LDA $27 +1018- 99 00 1F STA $1F00,Y +101B- C8 INY +101C- C0 C0 CPY #$C0 +101E- 90 E9 BCC $1009 +1020- A9 00 LDA #$00 +1022- 18 CLC +1023- 6D 60 AA ADC $AA60 +1026- 85 00 STA $00 +1028- A9 40 LDA #$40 +102A- 6D 61 AA ADC $AA61 +102D- 85 01 STA $01 +102F- A9 00 LDA #$00 +1031- 85 02 STA $02 +1033- 85 03 STA $03 +1035- 20 83 10 JSR $1083 +1038- 85 04 STA $04 +103A- 20 83 10 JSR $1083 +103D- B0 32 BCS $1071 +103F- C5 04 CMP $04 +1041- F0 0A BEQ $104D +1043- 48 PHA +1044- A5 04 LDA $04 +1046- 20 78 10 JSR $1078 +1049- 68 PLA +104A- 4C 38 10 JMP $1038 +104D- 09 80 ORA #$80 +104F- 20 78 10 JSR $1078 +1052- A9 02 LDA #$02 +1054- 85 05 STA $05 +1056- 20 83 10 JSR $1083 +1059- B0 0B BCS $1066 +105B- C5 04 CMP $04 +105D- D0 06 BNE $1065 +105F- E6 05 INC $05 +1061- D0 F3 BNE $1056 +1063- C6 05 DEC $05 +1065- 18 CLC +1066- 48 PHA +1067- A5 05 LDA $05 +1069- 20 78 10 JSR $1078 +106C- 68 PLA +106D- 90 C9 BCC $1038 +106F- B0 07 BCS $1078 +1071- 48 PHA +1072- A5 04 LDA $04 +1074- 20 78 10 JSR $1078 +1077- 68 PLA +1078- A0 00 LDY #$00 +107A- 91 00 STA ($00),Y +107C- E6 00 INC $00 +107E- D0 02 BNE $1082 +1080- E6 01 INC $01 +1082- 60 RTS +1083- A6 03 LDX $03 +1085- BD 00 1E LDA $1E00,X +1088- 85 06 STA $06 +108A- BD 00 1F LDA $1F00,X +108D- 85 07 STA $07 +108F- A4 02 LDY $02 +1091- B1 06 LDA ($06),Y +1093- 49 7F EOR #$7F +1095- 91 06 STA ($06),Y +1097- 49 7F EOR #$7F +1099- 29 7F AND #$7F +109B- E8 INX +109C- E0 C0 CPX #$C0 +109E- 90 05 BCC $10A5 +10A0- A2 00 LDX #$00 +10A2- C8 INY +10A3- C0 28 CPY #$28 +10A5- 84 02 STY $02 +10A7- 86 03 STX $03 +10A9- 60 RTS diff --git a/PSC Source Disk 4 - Fastload - Copy Protection - Title Page (v13)/O_NOMOREBACKUP.txt b/PSC Source Disk 4 - Fastload - Copy Protection - Title Page (v13)/O_NOMOREBACKUP.txt new file mode 100644 index 0000000..e789f60 --- /dev/null +++ b/PSC Source Disk 4 - Fastload - Copy Protection - Title Page (v13)/O_NOMOREBACKUP.txt @@ -0,0 +1,167 @@ +1000- 4C DC 10 JMP $10DC +1003- 46 E3 LSR $E3 +1005- A9 FF LDA #$FF +1007- 2C A9 3F BIT $3FA9 +100A- 85 32 STA $32 +100C- A9 00 LDA #$00 +100E- 85 E2 STA $E2 +1010- 68 PLA +1011- 85 E0 STA $E0 +1013- 68 PLA +1014- 85 E1 STA $E1 +1016- E6 E0 INC $E0 +1018- D0 02 BNE $101C +101A- E6 E1 INC $E1 +101C- A0 00 LDY #$00 +101E- B1 E0 LDA ($E0),Y +1020- F0 15 BEQ $1037 +1022- 24 E3 BIT $E3 +1024- 10 04 BPL $102A +1026- 24 E2 BIT $E2 +1028- 10 19 BPL $1043 +102A- 48 PHA +102B- 20 F0 FD JSR $FDF0 F8ROM:COUT1 +102E- 68 PLA +102F- C9 A0 CMP #$A0 +1031- B0 E3 BCS $1016 +1033- 46 E2 LSR $E2 +1035- 10 DF BPL $1016 +1037- A5 E1 LDA $E1 +1039- 48 PHA +103A- A5 E0 LDA $E0 +103C- 48 PHA +103D- 38 SEC +103E- 66 E3 ROR $E3 +1040- 4C 84 FE JMP $FE84 F8ROM:SETNORM +1043- B1 E0 LDA ($E0),Y +1045- C9 A0 CMP #$A0 +1047- 90 03 BCC $104C +1049- C8 INY +104A- D0 F7 BNE $1043 +104C- 98 TYA +104D- 4A LSR +104E- 49 FF EOR #$FF +1050- 18 CLC +1051- 69 12 ADC #$12 +1053- 85 24 STA $24 +1055- 38 SEC +1056- 66 E2 ROR $E2 +1058- 4C 1C 10 JMP $101C +105B- A0 30 LDY #$30 +105D- AD 30 C0 LDA $C030 rw:SPKR +1060- A9 11 LDA #$11 +1062- 20 A8 FC JSR $FCA8 F8ROM:WAIT +1065- AD 30 C0 LDA $C030 rw:SPKR +1068- A9 13 LDA #$13 +106A- 20 A8 FC JSR $FCA8 F8ROM:WAIT +106D- 88 DEY +106E- D0 ED BNE $105D +1070- 60 RTS +1071- A9 17 LDA #$17 +1073- 20 C1 FB JSR $FBC1 F8ROM:BASCALC +1076- A0 27 LDY #$27 +1078- A9 20 LDA #$20 +107A- 91 28 STA ($28),Y +107C- 88 DEY +107D- 10 FB BPL $107A +107F- 60 RTS +1080- 20 2F FB JSR $FB2F F8ROM:INIT +1083- 20 58 FC JSR $FC58 F8ROM:HOME +1086- A9 02 LDA #$02 +1088- 85 20 STA $20 +108A- A9 24 LDA #$24 +108C- 85 21 STA $21 +108E- A9 0A LDA #$0A +1090- 85 22 STA $22 +1092- A9 16 LDA #$16 +1094- 85 23 STA $23 +1096- A9 00 LDA #$00 +1098- 20 73 10 JSR $1073 +109B- A9 01 LDA #$01 +109D- 20 73 10 JSR $1073 +10A0- A9 02 LDA #$02 +10A2- 20 73 10 JSR $1073 +10A5- 20 71 10 JSR $1071 +10A8- A9 17 LDA #$17 +10AA- 48 PHA +10AB- 20 C1 FB JSR $FBC1 F8ROM:BASCALC +10AE- A0 00 LDY #$00 +10B0- A9 20 LDA #$20 +10B2- 91 28 STA ($28),Y +10B4- A0 27 LDY #$27 +10B6- 91 28 STA ($28),Y +10B8- 68 PLA +10B9- 38 SEC +10BA- E9 01 SBC #$01 +10BC- 10 EC BPL $10AA +10BE- 20 08 10 JSR $1008 +10C1- 8D D4 C8 STA $C8D4 +10C4- C5 A0 CMP $A0 +10C6- D0 D2 BNE $109A +10C8- C9 CE CMP #$CE +10CA- D4 ??? +10CB- A0 D3 LDY #$D3 +10CD- C8 INY +10CE- CF ??? +10CF- D0 A0 BNE $1071 +10D1- C3 ??? +10D2- CF ??? +10D3- CD D0 C1 CMP $C1D0 +10D6- CE C9 CF DEC $CFC9 +10D9- CE 00 60 DEC $6000 +10DC- A6 2B LDX $2B +10DE- BD 88 C0 LDA $C088,X +10E1- 38 SEC +10E2- 66 E3 ROR $E3 +10E4- 20 80 10 JSR $1080 +10E7- 20 58 FC JSR $FC58 F8ROM:HOME +10EA- 20 05 10 JSR $1005 +10ED- C3 ??? +10EE- CF ??? +10EF- CE D4 C1 DEC $C1D4 +10F2- C3 ??? +10F3- D4 ??? +10F4- A0 C2 LDY #$C2 +10F6- D2 CF CMP ($CF) +10F8- C4 C5 CPY $C5 +10FA- D2 C2 CMP ($C2) +10FC- D5 CE CMP $CE,X +10FE- C4 A0 CPY $A0 +1100- D3 ??? +1101- CF ??? +1102- C6 D4 DEC $D4 +1104- D7 ??? +1105- C1 D2 CMP ($D2,X) +1107- C5 8D CMP $8D +1109- C6 CF DEC $CF +110B- D2 A0 CMP ($A0) +110D- C2 ??? +110E- C1 C3 CMP ($C3,X) +1110- CB ??? +1111- D5 D0 CMP $D0,X +1113- A0 C4 LDY #$C4 +1115- C9 D3 CMP #$D3 +1117- CB ??? +1118- 8D 8D D0 STA $D08D +111B- D2 C5 CMP ($C5) +111D- D3 ??? +111E- D3 ??? +111F- A0 BC LDY #$BC +1121- D2 C5 CMP ($C5) +1123- D4 ??? +1124- D5 D2 CMP $D2,X +1126- CE BE A0 DEC $A0BE +1129- D4 ??? +112A- CF ??? +112B- A0 C3 LDY #$C3 +112D- CF ??? +112E- CE D4 C9 DEC $C9D4 +1131- CE D5 C5 DEC $C5D5 +1134- AE AE AE LDX $AEAE +1137- 00 BRK +1138- 20 5B 10 JSR $105B +113B- AD 00 C0 LDA $C000 r:KBD w:CLR80COL +113E- C9 8D CMP #$8D +1140- D0 F9 BNE $113B +1142- 2C 10 C0 BIT $C010 r:KBDSTRB +1145- 6C FC FF JMP ($FFFC) diff --git a/PSC Source Disk 4 - Fastload - Copy Protection - Title Page (v13)/O_NOMOREBACKUP2.txt b/PSC Source Disk 4 - Fastload - Copy Protection - Title Page (v13)/O_NOMOREBACKUP2.txt new file mode 100644 index 0000000..8e174eb --- /dev/null +++ b/PSC Source Disk 4 - Fastload - Copy Protection - Title Page (v13)/O_NOMOREBACKUP2.txt @@ -0,0 +1,163 @@ +1000- 4C DC 10 JMP $10DC +1003- 46 E3 LSR $E3 +1005- A9 FF LDA #$FF +1007- 2C A9 3F BIT $3FA9 +100A- 85 32 STA $32 +100C- A9 00 LDA #$00 +100E- 85 E2 STA $E2 +1010- 68 PLA +1011- 85 E0 STA $E0 +1013- 68 PLA +1014- 85 E1 STA $E1 +1016- E6 E0 INC $E0 +1018- D0 02 BNE $101C +101A- E6 E1 INC $E1 +101C- A0 00 LDY #$00 +101E- B1 E0 LDA ($E0),Y +1020- F0 15 BEQ $1037 +1022- 24 E3 BIT $E3 +1024- 10 04 BPL $102A +1026- 24 E2 BIT $E2 +1028- 10 19 BPL $1043 +102A- 48 PHA +102B- 20 F0 FD JSR $FDF0 F8ROM:COUT1 +102E- 68 PLA +102F- C9 A0 CMP #$A0 +1031- B0 E3 BCS $1016 +1033- 46 E2 LSR $E2 +1035- 10 DF BPL $1016 +1037- A5 E1 LDA $E1 +1039- 48 PHA +103A- A5 E0 LDA $E0 +103C- 48 PHA +103D- 38 SEC +103E- 66 E3 ROR $E3 +1040- 4C 84 FE JMP $FE84 F8ROM:SETNORM +1043- B1 E0 LDA ($E0),Y +1045- C9 A0 CMP #$A0 +1047- 90 03 BCC $104C +1049- C8 INY +104A- D0 F7 BNE $1043 +104C- 98 TYA +104D- 4A LSR +104E- 49 FF EOR #$FF +1050- 18 CLC +1051- 69 12 ADC #$12 +1053- 85 24 STA $24 +1055- 38 SEC +1056- 66 E2 ROR $E2 +1058- 4C 1C 10 JMP $101C +105B- A0 30 LDY #$30 +105D- AD 30 C0 LDA $C030 rw:SPKR +1060- A9 11 LDA #$11 +1062- 20 A8 FC JSR $FCA8 F8ROM:WAIT +1065- AD 30 C0 LDA $C030 rw:SPKR +1068- A9 13 LDA #$13 +106A- 20 A8 FC JSR $FCA8 F8ROM:WAIT +106D- 88 DEY +106E- D0 ED BNE $105D +1070- 60 RTS +1071- A9 17 LDA #$17 +1073- 20 C1 FB JSR $FBC1 F8ROM:BASCALC +1076- A0 27 LDY #$27 +1078- A9 20 LDA #$20 +107A- 91 28 STA ($28),Y +107C- 88 DEY +107D- 10 FB BPL $107A +107F- 60 RTS +1080- 20 2F FB JSR $FB2F F8ROM:INIT +1083- 20 58 FC JSR $FC58 F8ROM:HOME +1086- A9 02 LDA #$02 +1088- 85 20 STA $20 +108A- A9 24 LDA #$24 +108C- 85 21 STA $21 +108E- A9 0A LDA #$0A +1090- 85 22 STA $22 +1092- A9 16 LDA #$16 +1094- 85 23 STA $23 +1096- A9 00 LDA #$00 +1098- 20 73 10 JSR $1073 +109B- A9 01 LDA #$01 +109D- 20 73 10 JSR $1073 +10A0- A9 02 LDA #$02 +10A2- 20 73 10 JSR $1073 +10A5- 20 71 10 JSR $1071 +10A8- A9 17 LDA #$17 +10AA- 48 PHA +10AB- 20 C1 FB JSR $FBC1 F8ROM:BASCALC +10AE- A0 00 LDY #$00 +10B0- A9 20 LDA #$20 +10B2- 91 28 STA ($28),Y +10B4- A0 27 LDY #$27 +10B6- 91 28 STA ($28),Y +10B8- 68 PLA +10B9- 38 SEC +10BA- E9 01 SBC #$01 +10BC- 10 EC BPL $10AA +10BE- 20 08 10 JSR $1008 +10C1- 8D D4 C8 STA $C8D4 +10C4- C5 A0 CMP $A0 +10C6- D0 D2 BNE $109A +10C8- C9 CE CMP #$CE +10CA- D4 ??? +10CB- A0 D3 LDY #$D3 +10CD- C8 INY +10CE- CF ??? +10CF- D0 A0 BNE $1071 +10D1- C3 ??? +10D2- CF ??? +10D3- CD D0 C1 CMP $C1D0 +10D6- CE C9 CF DEC $CFC9 +10D9- CE 00 60 DEC $6000 +10DC- A6 2B LDX $2B +10DE- BD 88 C0 LDA $C088,X +10E1- 38 SEC +10E2- 66 E3 ROR $E3 +10E4- 20 80 10 JSR $1080 +10E7- 20 58 FC JSR $FC58 F8ROM:HOME +10EA- 20 05 10 JSR $1005 +10ED- D3 ??? +10EE- C5 C5 CMP $C5 +10F0- A0 D2 LDY #$D2 +10F2- C5 C6 CMP $C6 +10F4- C5 D2 CMP $D2 +10F6- C5 CE CMP $CE +10F8- C3 ??? +10F9- C5 A0 CMP $A0 +10FB- CD C1 CE CMP $CEC1 +10FE- D5 C1 CMP $C1,X +1100- CC A0 C6 CPY $C6A0 +1103- CF ??? +1104- D2 8D CMP ($8D) +1106- C2 ??? +1107- C1 C3 CMP ($C3,X) +1109- CB ??? +110A- D5 D0 CMP $D0,X +110C- A0 C9 LDY #$C9 +110E- CE C6 CF DEC $CFC6 +1111- D2 CD CMP ($CD) +1113- C1 D4 CMP ($D4,X) +1115- C9 CF CMP #$CF +1117- CE AE 8D DEC $8DAE +111A- 8D D0 D2 STA $D2D0 +111D- C5 D3 CMP $D3 +111F- D3 ??? +1120- A0 BC LDY #$BC +1122- D2 C5 CMP ($C5) +1124- D4 ??? +1125- D5 D2 CMP $D2,X +1127- CE BE A0 DEC $A0BE +112A- D4 ??? +112B- CF ??? +112C- A0 C3 LDY #$C3 +112E- CF ??? +112F- CE D4 C9 DEC $C9D4 +1132- CE D5 C5 DEC $C5D5 +1135- AE AE AE LDX $AEAE +1138- 00 BRK +1139- 20 5B 10 JSR $105B +113C- AD 00 C0 LDA $C000 r:KBD w:CLR80COL +113F- C9 8D CMP #$8D +1141- D0 F9 BNE $113C +1143- 2C 10 C0 BIT $C010 r:KBDSTRB +1146- 6C FC FF JMP ($FFFC) diff --git a/PSC Source Disk 4 - Fastload - Copy Protection - Title Page (v13)/O_SHOWTITLEPIC.txt b/PSC Source Disk 4 - Fastload - Copy Protection - Title Page (v13)/O_SHOWTITLEPIC.txt new file mode 100644 index 0000000..481211d --- /dev/null +++ b/PSC Source Disk 4 - Fastload - Copy Protection - Title Page (v13)/O_SHOWTITLEPIC.txt @@ -0,0 +1,71 @@ +9000- A2 00 LDX #$00 +9002- 8A TXA +9003- 48 PHA +9004- 29 C0 AND #$C0 +9006- 85 85 STA $85 +9008- 4A LSR +9009- 4A LSR +900A- 05 85 ORA $85 +900C- 85 85 STA $85 +900E- 68 PLA +900F- 85 86 STA $86 +9011- 0A ASL +9012- 0A ASL +9013- 0A ASL +9014- 26 86 ROL $86 +9016- 0A ASL +9017- 26 86 ROL $86 +9019- 0A ASL +901A- 66 85 ROR $85 +901C- A5 86 LDA $86 +901E- 29 1F AND #$1F +9020- 09 20 ORA #$20 +9022- 9D 00 1F STA $1F00,X +9025- A5 85 LDA $85 +9027- 9D 00 1E STA $1E00,X +902A- E8 INX +902B- E0 C0 CPX #$C0 +902D- 90 D3 BCC $9002 +902F- A0 89 LDY #$89 +9031- A9 90 LDA #$90 +9033- 84 81 STY $81 +9035- 85 82 STA $82 +9037- A2 00 LDX #$00 +9039- A0 00 LDY #$00 +903B- BD 00 1E LDA $1E00,X +903E- 85 84 STA $84 +9040- BD 00 1F LDA $1F00,X +9043- 85 85 STA $85 +9045- 20 59 90 JSR $9059 +9048- 29 7F AND #$7F +904A- 91 84 STA ($84),Y +904C- E8 INX +904D- E0 C0 CPX #$C0 +904F- 90 EA BCC $903B +9051- A2 00 LDX #$00 +9053- C8 INY +9054- C0 28 CPY #$28 +9056- 90 E3 BCC $903B +9058- 60 RTS +9059- A9 00 LDA #$00 +905B- 10 09 BPL $9066 +905D- C6 83 DEC $83 +905F- D0 0A BNE $906B +9061- 4E 5A 90 LSR $905A +9064- 10 05 BPL $906B +9066- 20 77 90 JSR $9077 +9069- 30 01 BMI $906C +906B- 60 RTS +906C- 8D 5A 90 STA $905A +906F- 20 77 90 JSR $9077 +9072- 85 83 STA $83 +9074- 4C 59 90 JMP $9059 +9077- 8C 85 90 STY $9085 +907A- A0 00 LDY #$00 +907C- B1 81 LDA ($81),Y +907E- E6 81 INC $81 +9080- D0 02 BNE $9084 +9082- E6 82 INC $82 +9084- A0 00 LDY #$00 +9086- 29 FF AND #$FF +9088- 60 RTS diff --git a/PSC Source Disk 4 - Fastload - Copy Protection - Title Page (v13)/O_SIDEB.txt b/PSC Source Disk 4 - Fastload - Copy Protection - Title Page (v13)/O_SIDEB.txt new file mode 100644 index 0000000..3020aa2 --- /dev/null +++ b/PSC Source Disk 4 - Fastload - Copy Protection - Title Page (v13)/O_SIDEB.txt @@ -0,0 +1,283 @@ +1000- 4C 26 11 JMP $1126 +1003- 46 E3 LSR $E3 +1005- A9 FF LDA #$FF +1007- 2C A9 3F BIT $3FA9 +100A- 85 32 STA $32 +100C- A9 00 LDA #$00 +100E- 85 E2 STA $E2 +1010- 68 PLA +1011- 85 E0 STA $E0 +1013- 68 PLA +1014- 85 E1 STA $E1 +1016- E6 E0 INC $E0 +1018- D0 02 BNE $101C +101A- E6 E1 INC $E1 +101C- A0 00 LDY #$00 +101E- B1 E0 LDA ($E0),Y +1020- F0 15 BEQ $1037 +1022- 24 E3 BIT $E3 +1024- 10 04 BPL $102A +1026- 24 E2 BIT $E2 +1028- 10 19 BPL $1043 +102A- 48 PHA +102B- 20 F0 FD JSR $FDF0 F8ROM:COUT1 +102E- 68 PLA +102F- C9 A0 CMP #$A0 +1031- B0 E3 BCS $1016 +1033- 46 E2 LSR $E2 +1035- 10 DF BPL $1016 +1037- A5 E1 LDA $E1 +1039- 48 PHA +103A- A5 E0 LDA $E0 +103C- 48 PHA +103D- 38 SEC +103E- 66 E3 ROR $E3 +1040- 4C 84 FE JMP $FE84 F8ROM:SETNORM +1043- B1 E0 LDA ($E0),Y +1045- C9 A0 CMP #$A0 +1047- 90 03 BCC $104C +1049- C8 INY +104A- D0 F7 BNE $1043 +104C- 98 TYA +104D- 4A LSR +104E- 49 FF EOR #$FF +1050- 18 CLC +1051- 69 12 ADC #$12 +1053- 85 24 STA $24 +1055- 38 SEC +1056- 66 E2 ROR $E2 +1058- 4C 1C 10 JMP $101C +105B- A0 30 LDY #$30 +105D- AD 30 C0 LDA $C030 rw:SPKR +1060- A9 11 LDA #$11 +1062- 20 A8 FC JSR $FCA8 F8ROM:WAIT +1065- AD 30 C0 LDA $C030 rw:SPKR +1068- A9 13 LDA #$13 +106A- 20 A8 FC JSR $FCA8 F8ROM:WAIT +106D- 88 DEY +106E- D0 ED BNE $105D +1070- 60 RTS +1071- A9 17 LDA #$17 +1073- 20 C1 FB JSR $FBC1 F8ROM:BASCALC +1076- A0 27 LDY #$27 +1078- A9 20 LDA #$20 +107A- 91 28 STA ($28),Y +107C- 88 DEY +107D- 10 FB BPL $107A +107F- 60 RTS +1080- 20 2F FB JSR $FB2F F8ROM:INIT +1083- 20 58 FC JSR $FC58 F8ROM:HOME +1086- A9 02 LDA #$02 +1088- 85 20 STA $20 +108A- A9 24 LDA #$24 +108C- 85 21 STA $21 +108E- A9 0A LDA #$0A +1090- 85 22 STA $22 +1092- A9 16 LDA #$16 +1094- 85 23 STA $23 +1096- A9 00 LDA #$00 +1098- 20 73 10 JSR $1073 +109B- A9 01 LDA #$01 +109D- 20 73 10 JSR $1073 +10A0- A9 02 LDA #$02 +10A2- 20 73 10 JSR $1073 +10A5- A9 03 LDA #$03 +10A7- 20 73 10 JSR $1073 +10AA- A9 04 LDA #$04 +10AC- 20 73 10 JSR $1073 +10AF- 20 71 10 JSR $1071 +10B2- A9 17 LDA #$17 +10B4- 48 PHA +10B5- 20 C1 FB JSR $FBC1 F8ROM:BASCALC +10B8- A0 00 LDY #$00 +10BA- A9 20 LDA #$20 +10BC- 91 28 STA ($28),Y +10BE- A0 27 LDY #$27 +10C0- 91 28 STA ($28),Y +10C2- 68 PLA +10C3- 38 SEC +10C4- E9 01 SBC #$01 +10C6- 10 EC BPL $10B4 +10C8- 20 08 10 JSR $1008 +10CB- 8D D4 C8 STA $C8D4 +10CE- C5 A0 CMP $A0 +10D0- D0 D2 BNE $10A4 +10D2- C9 CE CMP #$CE +10D4- D4 ??? +10D5- A0 D3 LDY #$D3 +10D7- C8 INY +10D8- CF ??? +10D9- D0 A0 BNE $107B +10DB- C3 ??? +10DC- CF ??? +10DD- CD D0 C1 CMP $C1D0 +10E0- CE C9 CF DEC $CFC9 +10E3- CE 8D C3 DEC $C38D +10E6- CF ??? +10E7- D0 D9 BNE $10C2 +10E9- D2 C9 CMP ($C9) +10EB- C7 ??? +10EC- C8 INY +10ED- D4 ??? +10EE- A0 B1 LDY #$B1 +10F0- B9 B8 B5 LDA $B5B8,Y +10F3- 8D C2 D9 STA $D9C2 +10F6- A0 D2 LDY #$D2 +10F8- CF ??? +10F9- CC C1 CE CPY $CEC1 +10FC- C4 A0 CPY $A0 +10FE- C7 ??? +10FF- D5 D3 CMP $D3,X +1101- D4 ??? +1102- C1 C6 CMP ($C6,X) +1104- D3 ??? +1105- D3 ??? +1106- CF ??? +1107- CE 00 A9 DEC $A900 +110A- 17 ??? +110B- 20 5B FB JSR $FB5B F8ROM:TABV +110E- 20 08 10 JSR $1008 +1111- C2 ??? +1112- D2 B0 CMP ($B0) +1114- C4 C5 CPY $C5 +1116- D2 C2 CMP ($C2) +1118- D5 CE CMP $CE,X +111A- C4 A0 CPY $A0 +111C- D3 ??? +111D- CF ??? +111E- C6 D4 DEC $D4 +1120- D7 ??? +1121- C1 D2 CMP ($D2,X) +1123- C5 00 CMP $00 +1125- 60 RTS +1126- 38 SEC +1127- 66 E3 ROR $E3 +1129- 20 80 10 JSR $1080 +112C- 20 58 FC JSR $FC58 F8ROM:HOME +112F- 20 5B 10 JSR $105B +1132- 20 05 10 JSR $1005 +1135- D3 ??? +1136- C9 C4 CMP #$C4 +1138- C5 A0 CMP $A0 +113A- C2 ??? +113B- A0 C4 LDY #$C4 +113D- CF ??? +113E- C5 D3 CMP $D3 +1140- A0 CE LDY #$CE +1142- CF ??? +1143- D4 ??? +1144- A0 C2 LDY #$C2 +1146- CF ??? +1147- CF ??? +1148- D4 ??? +1149- AE 00 20 LDX $2000 +114C- 05 10 ORA $10 +114E- 8D 8D D0 STA $D08D +1151- CC C5 C1 CPY $C1C5 +1154- D3 ??? +1155- C5 A0 CMP $A0 +1157- D0 D5 BNE $112E +1159- D4 ??? +115A- A0 D3 LDY #$D3 +115C- C9 C4 CMP #$C4 +115E- C5 A0 CMP $A0 +1160- C1 A0 CMP ($A0,X) +1162- CF ??? +1163- C6 8D DEC $8D +1165- D4 ??? +1166- C8 INY +1167- C5 A0 CMP $A0 +1169- C3 ??? +116A- CF ??? +116B- CD D0 C1 CMP $C1D0 +116E- CE C9 CF DEC $CFC9 +1171- CE A0 C4 DEC $C4A0 +1174- C9 D3 CMP #$D3 +1176- CB ??? +1177- A0 C9 LDY #$C9 +1179- CE A0 C4 DEC $C4A0 +117C- D2 C9 CMP ($C9) +117E- D6 C5 DEC $C5,X +1180- 8D C1 CE STA $CEC1 +1183- C4 A0 CPY $A0 +1185- D0 D2 BNE $1159 +1187- C5 D3 CMP $D3 +1189- D3 ??? +118A- A0 BC LDY #$BC +118C- D2 C5 CMP ($C5) +118E- D4 ??? +118F- D5 D2 CMP $D2,X +1191- CE BE 8D DEC $8DBE +1194- 00 BRK +1195- AD 00 C0 LDA $C000 r:KBD w:CLR80COL +1198- 10 FB BPL $1195 +119A- 2C 10 C0 BIT $C010 r:KBDSTRB +119D- C9 9B CMP #$9B +119F- F0 0B BEQ $11AC +11A1- C9 9E CMP #$9E +11A3- F0 6F BEQ $1214 +11A5- C9 8D CMP #$8D +11A7- D0 EC BNE $1195 +11A9- 6C FC FF JMP ($FFFC) +11AC- A9 09 LDA #$09 +11AE- 85 22 STA $22 +11B0- 20 58 FC JSR $FC58 F8ROM:HOME +11B3- 20 05 10 JSR $1005 +11B6- D4 ??? +11B7- CF ??? +11B8- A0 C3 LDY #$C3 +11BA- CF ??? +11BB- D0 D9 BNE $1196 +11BD- A0 D4 LDY #$D4 +11BF- C8 INY +11C0- C9 D3 CMP #$D3 +11C2- A0 D3 LDY #$D3 +11C4- C9 C4 CMP #$C4 +11C6- C5 A0 CMP $A0 +11C8- CF ??? +11C9- C6 A0 DEC $A0 +11CB- D4 ??? +11CC- C8 INY +11CD- C5 A0 CMP $A0 +11CF- C4 C9 CPY $C9 +11D1- D3 ??? +11D2- CB ??? +11D3- 8D D5 D3 STA $D3D5 +11D6- C5 A0 CMP $A0 +11D8- D4 ??? +11D9- C8 INY +11DA- C5 A0 CMP $A0 +11DC- D3 ??? +11DD- D4 ??? +11DE- C1 CE CMP ($CE,X) +11E0- C4 C1 CPY $C1 +11E2- D2 C4 CMP ($C4) +11E4- A0 C3 LDY #$C3 +11E6- CF ??? +11E7- D0 D9 BNE $11C2 +11E9- A0 D0 LDY #$D0 +11EB- D2 CF CMP ($CF) +11ED- C7 ??? +11EE- D2 C1 CMP ($C1) +11F0- CD 8D D4 CMP $D48D +11F3- C8 INY +11F4- C1 D4 CMP ($D4,X) +11F6- A0 C3 LDY #$C3 +11F8- C1 CD CMP ($CD,X) +11FA- C5 A0 CMP $A0 +11FC- D7 ??? +11FD- C9 D4 CMP #$D4 +11FF- C8 INY +1200- A0 D9 LDY #$D9 +1202- CF ??? +1203- D5 D2 CMP $D2,X +1205- A0 C3 LDY #$C3 +1207- CF ??? +1208- CD D0 D5 CMP $D5D0 +120B- D4 ??? +120C- C5 D2 CMP $D2 +120E- AE 8D 00 LDX $008D +1211- 4C 4B 11 JMP $114B +1214- 20 2F FB JSR $FB2F F8ROM:INIT +1217- 20 58 FC JSR $FC58 F8ROM:HOME +121A- 4C 00 60 JMP $6000 diff --git a/PSC Source Disk 4 - Fastload - Copy Protection - Title Page (v13)/O_TESTPROT.txt b/PSC Source Disk 4 - Fastload - Copy Protection - Title Page (v13)/O_TESTPROT.txt new file mode 100644 index 0000000..a416d9b --- /dev/null +++ b/PSC Source Disk 4 - Fastload - Copy Protection - Title Page (v13)/O_TESTPROT.txt @@ -0,0 +1,83 @@ +1000- 4C 06 10 JMP $1006 +1003- 4C 1B 10 JMP $101B +1006- 20 A4 10 JSR $10A4 +1009- A9 80 LDA #$80 +100B- 8D 78 04 STA $0478 +100E- A9 00 LDA #$00 +1010- 20 A0 B9 JSR $B9A0 +1013- A9 44 LDA #$44 +1015- 20 A0 B9 JSR $B9A0 +1018- 4C 9D 10 JMP $109D +101B- 20 A4 10 JSR $10A4 +101E- A0 02 LDY #$02 +1020- 84 03 STY $03 +1022- 88 DEY +1023- 84 01 STY $01 +1025- 84 02 STY $02 +1027- A9 FF LDA #$FF +1029- 99 00 BB STA $BB00,Y +102C- C8 INY +102D- D0 FA BNE $1029 +102F- C6 01 DEC $01 +1031- D0 0D BNE $1040 +1033- C6 02 DEC $02 +1035- D0 09 BNE $1040 +1037- C6 03 DEC $03 +1039- 10 05 BPL $1040 +103B- A9 01 LDA #$01 +103D- 4C 9B 10 JMP $109B +1040- AE F7 B7 LDX $B7F7 +1043- BD 8C C0 LDA $C08C,X +1046- 10 FB BPL $1043 +1048- C9 D4 CMP #$D4 +104A- D0 E3 BNE $102F +104C- 20 B2 10 JSR $10B2 +104F- C9 D5 CMP #$D5 +1051- D0 F5 BNE $1048 +1053- 20 B2 10 JSR $10B2 +1056- C9 DE CMP #$DE +1058- D0 F5 BNE $104F +105A- 20 B2 10 JSR $10B2 +105D- C9 D4 CMP #$D4 +105F- D0 F5 BNE $1056 +1061- EA NOP +1062- BD 8C C0 LDA $C08C,X +1065- 10 FB BPL $1062 +1067- 2A ROL +1068- 85 04 STA $04 +106A- BD 8C C0 LDA $C08C,X +106D- 10 FB BPL $106A +106F- 25 04 AND $04 +1071- A8 TAY +1072- 20 B2 10 JSR $10B2 +1075- C9 F5 CMP #$F5 +1077- D0 B6 BNE $102F +1079- 20 B2 10 JSR $10B2 +107C- C9 AA CMP #$AA +107E- D0 AF BNE $102F +1080- B9 00 BB LDA $BB00,Y +1083- F0 AA BEQ $102F +1085- A9 00 LDA #$00 +1087- 99 00 BB STA $BB00,Y +108A- AA TAX +108B- A8 TAY +108C- B9 00 BB LDA $BB00,Y +108F- 30 01 BMI $1092 +1091- E8 INX +1092- C8 INY +1093- D0 F7 BNE $108C +1095- E0 A0 CPX #$A0 +1097- 90 96 BCC $102F +1099- A9 00 LDA #$00 +109B- 85 00 STA $00 +109D- AE F7 B7 LDX $B7F7 +10A0- BD 88 C0 LDA $C088,X +10A3- 60 RTS +10A4- AE F7 B7 LDX $B7F7 +10A7- BD 89 C0 LDA $C089,X +10AA- A9 80 LDA #$80 +10AC- 20 A8 FC JSR $FCA8 F8ROM:WAIT +10AF- 4C A8 FC JMP $FCA8 F8ROM:WAIT +10B2- BD 8C C0 LDA $C08C,X +10B5- 10 FB BPL $10B2 +10B7- 60 RTS diff --git a/PSC Source Disk 4 - Fastload - Copy Protection - Title Page (v13)/PS.BACKUP.800.BFF.txt b/PSC Source Disk 4 - Fastload - Copy Protection - Title Page (v13)/PS.BACKUP.800.BFF.txt new file mode 100644 index 0000000..7062dfa --- /dev/null +++ b/PSC Source Disk 4 - Fastload - Copy Protection - Title Page (v13)/PS.BACKUP.800.BFF.txt @@ -0,0 +1,880 @@ +0800- 4C 96 08 JMP $0896 +0803- 86 3C STX $3C +0805- 85 3B STA $3B +0807- A0 00 LDY #$00 +0809- 84 3A STY $3A +080B- A6 08 LDX $08 +080D- BD 8D C0 LDA $C08D,X +0810- BD 8E C0 LDA $C08E,X +0813- 10 02 BPL $0817 +0815- 38 SEC +0816- 60 RTS +0817- A0 06 LDY #$06 +0819- A9 FF LDA #$FF +081B- 9D 8F C0 STA $C08F,X +081E- 1D 8C C0 ORA $C08C,X +0821- 26 4E ROL $4E +0823- EA NOP +0824- 20 95 08 JSR $0895 +0827- 20 95 08 JSR $0895 +082A- 9D 8D C0 STA $C08D,X +082D- 1D 8C C0 ORA $C08C,X +0830- 88 DEY +0831- D0 F0 BNE $0823 +0833- EA NOP +0834- A5 00 LDA $00 +0836- 20 8B 08 JSR $088B +0839- A5 01 LDA $01 +083B- 20 8B 08 JSR $088B +083E- A5 02 LDA $02 +0840- 20 8B 08 JSR $088B +0843- EA NOP +0844- 90 0C BCC $0852 +0846- 98 TYA +0847- D0 09 BNE $0852 +0849- A5 03 LDA $03 +084B- EA NOP +084C- EA NOP +084D- 20 8F 08 JSR $088F +0850- 26 4E ROL $4E +0852- B1 3A LDA ($3A),Y +0854- 48 PHA +0855- 4A LSR +0856- 09 AA ORA #$AA +0858- 9D 8D C0 STA $C08D,X +085B- DD 8C C0 CMP $C08C,X +085E- C8 INY +085F- D0 07 BNE $0868 +0861- E6 3B INC $3B +0863- C6 3C DEC $3C +0865- 4C 6B 08 JMP $086B +0868- 20 95 08 JSR $0895 +086B- 68 PLA +086C- 09 AA ORA #$AA +086E- 9D 8D C0 STA $C08D,X +0871- DD 8C C0 CMP $C08C,X +0874- A5 3C LDA $3C +0876- D0 CE BNE $0846 +0878- A5 03 LDA $03 +087A- A5 03 LDA $03 +087C- 20 8C 08 JSR $088C +087F- A5 03 LDA $03 +0881- 20 8B 08 JSR $088B +0884- BD 8E C0 LDA $C08E,X +0887- BD 8C C0 LDA $C08C,X +088A- 60 RTS +088B- 18 CLC +088C- EA NOP +088D- EA NOP +088E- EA NOP +088F- 9D 8D C0 STA $C08D,X +0892- 1D 8C C0 ORA $C08C,X +0895- 60 RTS +0896- A9 A5 LDA #$A5 +0898- 85 00 STA $00 +089A- A9 DF LDA #$DF +089C- 85 01 STA $01 +089E- A9 D4 LDA #$D4 +08A0- 85 02 STA $02 +08A2- A9 CF LDA #$CF +08A4- 85 03 STA $03 +08A6- A2 04 LDX #$04 +08A8- A9 04 LDA #$04 +08AA- 4C 03 08 JMP $0803 +08AD- 00 BRK +08AE- 00 BRK +08AF- 00 BRK +08B0- 00 BRK +08B1- 00 BRK +08B2- 00 BRK +08B3- 00 BRK +08B4- 00 BRK +08B5- 00 BRK +08B6- 00 BRK +08B7- 00 BRK +08B8- 00 BRK +08B9- 00 BRK +08BA- 00 BRK +08BB- 00 BRK +08BC- 00 BRK +08BD- 00 BRK +08BE- 00 BRK +08BF- 00 BRK +08C0- 00 BRK +08C1- 00 BRK +08C2- 00 BRK +08C3- 00 BRK +08C4- 00 BRK +08C5- 00 BRK +08C6- 00 BRK +08C7- 00 BRK +08C8- 00 BRK +08C9- 00 BRK +08CA- 00 BRK +08CB- 00 BRK +08CC- 00 BRK +08CD- 00 BRK +08CE- 00 BRK +08CF- 00 BRK +08D0- 00 BRK +08D1- 00 BRK +08D2- 00 BRK +08D3- 00 BRK +08D4- 00 BRK +08D5- 00 BRK +08D6- 00 BRK +08D7- 00 BRK +08D8- 00 BRK +08D9- 00 BRK +08DA- 00 BRK +08DB- 00 BRK +08DC- 00 BRK +08DD- 00 BRK +08DE- 00 BRK +08DF- 00 BRK +08E0- 00 BRK +08E1- 00 BRK +08E2- 00 BRK +08E3- 00 BRK +08E4- 00 BRK +08E5- 00 BRK +08E6- 00 BRK +08E7- 00 BRK +08E8- 00 BRK +08E9- 00 BRK +08EA- 00 BRK +08EB- 00 BRK +08EC- 00 BRK +08ED- 00 BRK +08EE- 00 BRK +08EF- 00 BRK +08F0- 00 BRK +08F1- 00 BRK +08F2- 00 BRK +08F3- 00 BRK +08F4- 00 BRK +08F5- 00 BRK +08F6- 00 BRK +08F7- 00 BRK +08F8- 00 BRK +08F9- 00 BRK +08FA- 00 BRK +08FB- 00 BRK +08FC- 00 BRK +08FD- 00 BRK +08FE- 00 BRK +08FF- 00 BRK +0900- A6 08 LDX $08 +0902- BD 8D C0 LDA $C08D,X +0905- BD 8E C0 LDA $C08E,X +0908- A0 00 LDY #$00 +090A- A9 00 LDA #$00 +090C- 9D 8F C0 STA $C08F,X +090F- 1D 8C C0 ORA $C08C,X +0912- EA NOP +0913- EA NOP +0914- EA NOP +0915- A9 00 LDA #$00 +0917- 20 5F 09 JSR $095F +091A- A9 D4 LDA #$D4 +091C- 20 5F 09 JSR $095F +091F- A9 D5 LDA #$D5 +0921- 20 5F 09 JSR $095F +0924- A9 DE LDA #$DE +0926- 20 5F 09 JSR $095F +0929- A9 D4 LDA #$D4 +092B- 20 5F 09 JSR $095F +092E- 98 TYA +092F- 20 4D 09 JSR $094D +0932- A9 F5 LDA #$F5 +0934- 20 5F 09 JSR $095F +0937- A9 AA LDA #$AA +0939- 20 5F 09 JSR $095F +093C- A9 00 LDA #$00 +093E- 20 5F 09 JSR $095F +0941- 24 00 BIT $00 +0943- C8 INY +0944- D0 CF BNE $0915 +0946- BD 8E C0 LDA $C08E,X +0949- BD 8C C0 LDA $C08C,X +094C- 60 RTS +094D- 48 PHA +094E- EA NOP +094F- 4A LSR +0950- 09 AA ORA #$AA +0952- 9D 8D C0 STA $C08D,X +0955- DD 8C C0 CMP $C08C,X +0958- 68 PLA +0959- 09 AA ORA #$AA +095B- EA NOP +095C- EA NOP +095D- EA NOP +095E- EA NOP +095F- A6 08 LDX $08 +0961- EA NOP +0962- EA NOP +0963- EA NOP +0964- 9D 8D C0 STA $C08D,X +0967- DD 8C C0 CMP $C08C,X +096A- 60 RTS +096B- 00 BRK +096C- 00 BRK +096D- 00 BRK +096E- 00 BRK +096F- 00 BRK +0970- 00 BRK +0971- 00 BRK +0972- 00 BRK +0973- 00 BRK +0974- 00 BRK +0975- 00 BRK +0976- 00 BRK +0977- 00 BRK +0978- 00 BRK +0979- 00 BRK +097A- 00 BRK +097B- 00 BRK +097C- 00 BRK +097D- 00 BRK +097E- 00 BRK +097F- 00 BRK +0980- 00 BRK +0981- 00 BRK +0982- 00 BRK +0983- 00 BRK +0984- 00 BRK +0985- 00 BRK +0986- 00 BRK +0987- 00 BRK +0988- 00 BRK +0989- 00 BRK +098A- 00 BRK +098B- 00 BRK +098C- 00 BRK +098D- 00 BRK +098E- 00 BRK +098F- 00 BRK +0990- 00 BRK +0991- 00 BRK +0992- 00 BRK +0993- 00 BRK +0994- 00 BRK +0995- 00 BRK +0996- 00 BRK +0997- 00 BRK +0998- 00 BRK +0999- 00 BRK +099A- 00 BRK +099B- 00 BRK +099C- 00 BRK +099D- 00 BRK +099E- 00 BRK +099F- 00 BRK +09A0- 00 BRK +09A1- 00 BRK +09A2- 00 BRK +09A3- 00 BRK +09A4- 00 BRK +09A5- 00 BRK +09A6- 00 BRK +09A7- 00 BRK +09A8- 00 BRK +09A9- 00 BRK +09AA- 00 BRK +09AB- 00 BRK +09AC- 00 BRK +09AD- 00 BRK +09AE- 00 BRK +09AF- 00 BRK +09B0- 00 BRK +09B1- 00 BRK +09B2- 00 BRK +09B3- 00 BRK +09B4- 00 BRK +09B5- 00 BRK +09B6- 00 BRK +09B7- 00 BRK +09B8- 00 BRK +09B9- 00 BRK +09BA- 00 BRK +09BB- 00 BRK +09BC- 00 BRK +09BD- 00 BRK +09BE- 00 BRK +09BF- 00 BRK +09C0- 00 BRK +09C1- 00 BRK +09C2- 00 BRK +09C3- 00 BRK +09C4- 00 BRK +09C5- 00 BRK +09C6- 00 BRK +09C7- 00 BRK +09C8- 00 BRK +09C9- 00 BRK +09CA- 00 BRK +09CB- 00 BRK +09CC- 00 BRK +09CD- 00 BRK +09CE- 00 BRK +09CF- 00 BRK +09D0- 00 BRK +09D1- 00 BRK +09D2- 00 BRK +09D3- 00 BRK +09D4- 00 BRK +09D5- 00 BRK +09D6- 00 BRK +09D7- 00 BRK +09D8- 00 BRK +09D9- 00 BRK +09DA- 00 BRK +09DB- 00 BRK +09DC- 00 BRK +09DD- 00 BRK +09DE- 00 BRK +09DF- 00 BRK +09E0- 00 BRK +09E1- 00 BRK +09E2- 00 BRK +09E3- 00 BRK +09E4- 00 BRK +09E5- 00 BRK +09E6- 00 BRK +09E7- 00 BRK +09E8- 00 BRK +09E9- 00 BRK +09EA- 00 BRK +09EB- 00 BRK +09EC- 00 BRK +09ED- 00 BRK +09EE- 00 BRK +09EF- 00 BRK +09F0- 00 BRK +09F1- 00 BRK +09F2- 00 BRK +09F3- 00 BRK +09F4- 00 BRK +09F5- 00 BRK +09F6- 00 BRK +09F7- 00 BRK +09F8- 00 BRK +09F9- 00 BRK +09FA- 00 BRK +09FB- 00 BRK +09FC- 00 BRK +09FD- 00 BRK +09FE- 00 BRK +09FF- 00 BRK +0A00- 00 BRK +0A01- 00 BRK +0A02- 00 BRK +0A03- 00 BRK +0A04- 00 BRK +0A05- 00 BRK +0A06- 00 BRK +0A07- 00 BRK +0A08- 00 BRK +0A09- 00 BRK +0A0A- 00 BRK +0A0B- 00 BRK +0A0C- 00 BRK +0A0D- 00 BRK +0A0E- 00 BRK +0A0F- 00 BRK +0A10- 00 BRK +0A11- 00 BRK +0A12- 00 BRK +0A13- 00 BRK +0A14- 00 BRK +0A15- 00 BRK +0A16- 00 BRK +0A17- 00 BRK +0A18- 00 BRK +0A19- 00 BRK +0A1A- 00 BRK +0A1B- 00 BRK +0A1C- 00 BRK +0A1D- 00 BRK +0A1E- 00 BRK +0A1F- 00 BRK +0A20- 00 BRK +0A21- 00 BRK +0A22- 00 BRK +0A23- 00 BRK +0A24- 00 BRK +0A25- 00 BRK +0A26- 00 BRK +0A27- 00 BRK +0A28- 00 BRK +0A29- 00 BRK +0A2A- 00 BRK +0A2B- 00 BRK +0A2C- 00 BRK +0A2D- 00 BRK +0A2E- 00 BRK +0A2F- 00 BRK +0A30- 00 BRK +0A31- 00 BRK +0A32- 00 BRK +0A33- 00 BRK +0A34- 00 BRK +0A35- 00 BRK +0A36- 00 BRK +0A37- 00 BRK +0A38- 00 BRK +0A39- 00 BRK +0A3A- 00 BRK +0A3B- 00 BRK +0A3C- 00 BRK +0A3D- 00 BRK +0A3E- 00 BRK +0A3F- 00 BRK +0A40- 00 BRK +0A41- 00 BRK +0A42- 00 BRK +0A43- 00 BRK +0A44- 00 BRK +0A45- 00 BRK +0A46- 00 BRK +0A47- 00 BRK +0A48- 00 BRK +0A49- 00 BRK +0A4A- 00 BRK +0A4B- 00 BRK +0A4C- 00 BRK +0A4D- 00 BRK +0A4E- 00 BRK +0A4F- 00 BRK +0A50- 00 BRK +0A51- 00 BRK +0A52- 00 BRK +0A53- 00 BRK +0A54- 00 BRK +0A55- 00 BRK +0A56- 00 BRK +0A57- 00 BRK +0A58- 00 BRK +0A59- 00 BRK +0A5A- 00 BRK +0A5B- 00 BRK +0A5C- 00 BRK +0A5D- 00 BRK +0A5E- 00 BRK +0A5F- 00 BRK +0A60- 00 BRK +0A61- 00 BRK +0A62- 00 BRK +0A63- 00 BRK +0A64- 00 BRK +0A65- 00 BRK +0A66- 00 BRK +0A67- 00 BRK +0A68- 00 BRK +0A69- 00 BRK +0A6A- 00 BRK +0A6B- 00 BRK +0A6C- 00 BRK +0A6D- 00 BRK +0A6E- 00 BRK +0A6F- 00 BRK +0A70- 00 BRK +0A71- 00 BRK +0A72- 00 BRK +0A73- 00 BRK +0A74- 00 BRK +0A75- 00 BRK +0A76- 00 BRK +0A77- 00 BRK +0A78- 00 BRK +0A79- 00 BRK +0A7A- 00 BRK +0A7B- 00 BRK +0A7C- 00 BRK +0A7D- 00 BRK +0A7E- 00 BRK +0A7F- 00 BRK +0A80- 00 BRK +0A81- 00 BRK +0A82- 00 BRK +0A83- 00 BRK +0A84- 00 BRK +0A85- 00 BRK +0A86- 00 BRK +0A87- 00 BRK +0A88- 00 BRK +0A89- 00 BRK +0A8A- 00 BRK +0A8B- 00 BRK +0A8C- 00 BRK +0A8D- 00 BRK +0A8E- 00 BRK +0A8F- 00 BRK +0A90- 00 BRK +0A91- 00 BRK +0A92- 00 BRK +0A93- 00 BRK +0A94- 00 BRK +0A95- 00 BRK +0A96- 00 BRK +0A97- 00 BRK +0A98- 00 BRK +0A99- 00 BRK +0A9A- 00 BRK +0A9B- 00 BRK +0A9C- 00 BRK +0A9D- 00 BRK +0A9E- 00 BRK +0A9F- 00 BRK +0AA0- 00 BRK +0AA1- 00 BRK +0AA2- 00 BRK +0AA3- 00 BRK +0AA4- 00 BRK +0AA5- 00 BRK +0AA6- 00 BRK +0AA7- 00 BRK +0AA8- 00 BRK +0AA9- 00 BRK +0AAA- 00 BRK +0AAB- 00 BRK +0AAC- 00 BRK +0AAD- 00 BRK +0AAE- 00 BRK +0AAF- 00 BRK +0AB0- 00 BRK +0AB1- 00 BRK +0AB2- 00 BRK +0AB3- 00 BRK +0AB4- 00 BRK +0AB5- 00 BRK +0AB6- 00 BRK +0AB7- 00 BRK +0AB8- 00 BRK +0AB9- 00 BRK +0ABA- 00 BRK +0ABB- 00 BRK +0ABC- 00 BRK +0ABD- 00 BRK +0ABE- 00 BRK +0ABF- 00 BRK +0AC0- 00 BRK +0AC1- 00 BRK +0AC2- 00 BRK +0AC3- 00 BRK +0AC4- 00 BRK +0AC5- 00 BRK +0AC6- 00 BRK +0AC7- 00 BRK +0AC8- 00 BRK +0AC9- 00 BRK +0ACA- 00 BRK +0ACB- 00 BRK +0ACC- 00 BRK +0ACD- 00 BRK +0ACE- 00 BRK +0ACF- 00 BRK +0AD0- 00 BRK +0AD1- 00 BRK +0AD2- 00 BRK +0AD3- 00 BRK +0AD4- 00 BRK +0AD5- 00 BRK +0AD6- 00 BRK +0AD7- 00 BRK +0AD8- 00 BRK +0AD9- 00 BRK +0ADA- 00 BRK +0ADB- 00 BRK +0ADC- 00 BRK +0ADD- 00 BRK +0ADE- 00 BRK +0ADF- 00 BRK +0AE0- 00 BRK +0AE1- 00 BRK +0AE2- 00 BRK +0AE3- 00 BRK +0AE4- 00 BRK +0AE5- 00 BRK +0AE6- 00 BRK +0AE7- 00 BRK +0AE8- 00 BRK +0AE9- 00 BRK +0AEA- 00 BRK +0AEB- 00 BRK +0AEC- 00 BRK +0AED- 00 BRK +0AEE- 00 BRK +0AEF- 00 BRK +0AF0- 00 BRK +0AF1- 00 BRK +0AF2- 00 BRK +0AF3- 00 BRK +0AF4- 00 BRK +0AF5- 00 BRK +0AF6- 00 BRK +0AF7- 00 BRK +0AF8- 00 BRK +0AF9- 00 BRK +0AFA- 00 BRK +0AFB- 00 BRK +0AFC- 00 BRK +0AFD- 00 BRK +0AFE- 00 BRK +0AFF- 00 BRK +0B00- 00 BRK +0B01- 00 BRK +0B02- 00 BRK +0B03- 00 BRK +0B04- 00 BRK +0B05- 00 BRK +0B06- 00 BRK +0B07- 00 BRK +0B08- 00 BRK +0B09- 00 BRK +0B0A- 00 BRK +0B0B- 00 BRK +0B0C- 00 BRK +0B0D- 00 BRK +0B0E- 00 BRK +0B0F- 00 BRK +0B10- 00 BRK +0B11- 00 BRK +0B12- 00 BRK +0B13- 00 BRK +0B14- 00 BRK +0B15- 00 BRK +0B16- 00 BRK +0B17- 00 BRK +0B18- 00 BRK +0B19- 00 BRK +0B1A- 00 BRK +0B1B- 00 BRK +0B1C- 00 BRK +0B1D- 00 BRK +0B1E- 00 BRK +0B1F- 00 BRK +0B20- 00 BRK +0B21- 00 BRK +0B22- 00 BRK +0B23- 00 BRK +0B24- 00 BRK +0B25- 00 BRK +0B26- 00 BRK +0B27- 00 BRK +0B28- 00 BRK +0B29- 00 BRK +0B2A- 00 BRK +0B2B- 00 BRK +0B2C- 00 BRK +0B2D- 00 BRK +0B2E- 00 BRK +0B2F- 00 BRK +0B30- 00 BRK +0B31- 00 BRK +0B32- 00 BRK +0B33- 00 BRK +0B34- 00 BRK +0B35- 00 BRK +0B36- 00 BRK +0B37- 00 BRK +0B38- 00 BRK +0B39- 00 BRK +0B3A- 00 BRK +0B3B- 00 BRK +0B3C- 00 BRK +0B3D- 00 BRK +0B3E- 00 BRK +0B3F- 00 BRK +0B40- 00 BRK +0B41- 00 BRK +0B42- 00 BRK +0B43- 00 BRK +0B44- 00 BRK +0B45- 00 BRK +0B46- 00 BRK +0B47- 00 BRK +0B48- 00 BRK +0B49- 00 BRK +0B4A- 00 BRK +0B4B- 00 BRK +0B4C- 00 BRK +0B4D- 00 BRK +0B4E- 00 BRK +0B4F- 00 BRK +0B50- 00 BRK +0B51- 00 BRK +0B52- 00 BRK +0B53- 00 BRK +0B54- 00 BRK +0B55- 00 BRK +0B56- 00 BRK +0B57- 00 BRK +0B58- 00 BRK +0B59- 00 BRK +0B5A- 00 BRK +0B5B- 00 BRK +0B5C- 00 BRK +0B5D- 00 BRK +0B5E- 00 BRK +0B5F- 00 BRK +0B60- 00 BRK +0B61- 00 BRK +0B62- 00 BRK +0B63- 00 BRK +0B64- 00 BRK +0B65- 00 BRK +0B66- 00 BRK +0B67- 00 BRK +0B68- 00 BRK +0B69- 00 BRK +0B6A- 00 BRK +0B6B- 00 BRK +0B6C- 00 BRK +0B6D- 00 BRK +0B6E- 00 BRK +0B6F- 00 BRK +0B70- 00 BRK +0B71- 00 BRK +0B72- 00 BRK +0B73- 00 BRK +0B74- 00 BRK +0B75- 00 BRK +0B76- 00 BRK +0B77- 00 BRK +0B78- 00 BRK +0B79- 00 BRK +0B7A- 00 BRK +0B7B- 00 BRK +0B7C- 00 BRK +0B7D- 00 BRK +0B7E- 00 BRK +0B7F- 00 BRK +0B80- 00 BRK +0B81- 00 BRK +0B82- 00 BRK +0B83- 00 BRK +0B84- 00 BRK +0B85- 00 BRK +0B86- 00 BRK +0B87- 00 BRK +0B88- 00 BRK +0B89- 00 BRK +0B8A- 00 BRK +0B8B- 00 BRK +0B8C- 00 BRK +0B8D- 00 BRK +0B8E- 00 BRK +0B8F- 00 BRK +0B90- 00 BRK +0B91- 00 BRK +0B92- 00 BRK +0B93- 00 BRK +0B94- 00 BRK +0B95- 00 BRK +0B96- 00 BRK +0B97- 00 BRK +0B98- 00 BRK +0B99- 00 BRK +0B9A- 00 BRK +0B9B- 00 BRK +0B9C- 00 BRK +0B9D- 00 BRK +0B9E- 00 BRK +0B9F- 00 BRK +0BA0- 00 BRK +0BA1- 00 BRK +0BA2- 00 BRK +0BA3- 00 BRK +0BA4- 00 BRK +0BA5- 00 BRK +0BA6- 00 BRK +0BA7- 00 BRK +0BA8- 00 BRK +0BA9- 00 BRK +0BAA- 00 BRK +0BAB- 00 BRK +0BAC- 00 BRK +0BAD- 00 BRK +0BAE- 00 BRK +0BAF- 00 BRK +0BB0- 00 BRK +0BB1- 00 BRK +0BB2- 00 BRK +0BB3- 00 BRK +0BB4- 00 BRK +0BB5- 00 BRK +0BB6- 00 BRK +0BB7- 00 BRK +0BB8- 00 BRK +0BB9- 00 BRK +0BBA- 00 BRK +0BBB- 00 BRK +0BBC- 00 BRK +0BBD- 00 BRK +0BBE- 00 BRK +0BBF- 00 BRK +0BC0- 00 BRK +0BC1- 00 BRK +0BC2- 00 BRK +0BC3- 00 BRK +0BC4- 00 BRK +0BC5- 00 BRK +0BC6- 00 BRK +0BC7- 00 BRK +0BC8- 00 BRK +0BC9- 00 BRK +0BCA- 00 BRK +0BCB- 00 BRK +0BCC- 00 BRK +0BCD- 00 BRK +0BCE- 00 BRK +0BCF- 00 BRK +0BD0- 00 BRK +0BD1- 00 BRK +0BD2- 00 BRK +0BD3- 00 BRK +0BD4- 00 BRK +0BD5- 00 BRK +0BD6- 00 BRK +0BD7- 00 BRK +0BD8- 00 BRK +0BD9- 00 BRK +0BDA- 00 BRK +0BDB- 00 BRK +0BDC- 00 BRK +0BDD- 00 BRK +0BDE- 00 BRK +0BDF- 00 BRK +0BE0- 00 BRK +0BE1- 00 BRK +0BE2- 00 BRK +0BE3- 00 BRK +0BE4- 00 BRK +0BE5- 00 BRK +0BE6- 00 BRK +0BE7- 00 BRK +0BE8- 00 BRK +0BE9- 00 BRK +0BEA- 00 BRK +0BEB- 00 BRK +0BEC- 00 BRK +0BED- 00 BRK +0BEE- 00 BRK +0BEF- 00 BRK +0BF0- 00 BRK +0BF1- 00 BRK +0BF2- 00 BRK +0BF3- 00 BRK +0BF4- 00 BRK +0BF5- 00 BRK +0BF6- 00 BRK +0BF7- 00 BRK +0BF8- 00 BRK +0BF9- 00 BRK +0BFA- 00 BRK +0BFB- 00 BRK +0BFC- 00 BRK +0BFD- 00 BRK +0BFE- 00 BRK +0BFF- 00 BRK diff --git a/PSC Source Disk 4 - Fastload - Copy Protection - Title Page (v13)/PS.COPY.txt b/PSC Source Disk 4 - Fastload - Copy Protection - Title Page (v13)/PS.COPY.txt new file mode 100644 index 0000000..d95bbf8 --- /dev/null +++ b/PSC Source Disk 4 - Fastload - Copy Protection - Title Page (v13)/PS.COPY.txt @@ -0,0 +1,584 @@ +2000- A9 00 LDA #$00 +2002- 8D EC B7 STA $B7EC +2005- 20 09 12 JSR $1209 +2008- A9 22 LDA #$22 +200A- 20 E0 20 JSR $20E0 +200D- EA NOP +200E- EA NOP +200F- EA NOP +2010- A9 D0 LDA #$D0 +2012- A2 0D LDX #$0D +2014- 20 03 21 JSR $2103 +2017- A9 D4 LDA #$D4 +2019- 85 00 STA $00 +201B- A9 D7 LDA #$D7 +201D- 85 01 STA $01 +201F- A9 DF LDA #$DF +2021- 85 02 STA $02 +2023- A9 D0 LDA #$D0 +2025- A2 01 LDX #$01 +2027- 20 03 21 JSR $2103 +202A- 20 00 21 JSR $2100 +202D- 20 00 22 JSR $2200 +2030- 60 RTS +2031- 00 BRK +2032- 00 BRK +2033- 00 BRK +2034- 00 BRK +2035- 00 BRK +2036- 00 BRK +2037- 00 BRK +2038- 00 BRK +2039- 00 BRK +203A- 00 BRK +203B- 00 BRK +203C- 00 BRK +203D- 00 BRK +203E- 00 BRK +203F- 00 BRK +2040- 00 BRK +2041- 00 BRK +2042- 00 BRK +2043- 00 BRK +2044- 00 BRK +2045- 00 BRK +2046- 00 BRK +2047- 00 BRK +2048- 00 BRK +2049- 00 BRK +204A- 00 BRK +204B- 00 BRK +204C- 00 BRK +204D- 00 BRK +204E- 00 BRK +204F- 00 BRK +2050- 00 BRK +2051- 00 BRK +2052- 00 BRK +2053- 00 BRK +2054- 00 BRK +2055- 00 BRK +2056- 00 BRK +2057- 00 BRK +2058- 00 BRK +2059- 00 BRK +205A- 00 BRK +205B- 00 BRK +205C- 00 BRK +205D- 00 BRK +205E- 00 BRK +205F- 00 BRK +2060- 00 BRK +2061- 00 BRK +2062- 00 BRK +2063- 00 BRK +2064- 00 BRK +2065- 00 BRK +2066- 00 BRK +2067- 00 BRK +2068- 00 BRK +2069- 00 BRK +206A- 00 BRK +206B- 00 BRK +206C- 00 BRK +206D- 00 BRK +206E- 00 BRK +206F- 00 BRK +2070- 00 BRK +2071- 00 BRK +2072- 00 BRK +2073- 00 BRK +2074- 00 BRK +2075- 00 BRK +2076- 00 BRK +2077- 00 BRK +2078- 00 BRK +2079- 00 BRK +207A- 00 BRK +207B- 00 BRK +207C- 00 BRK +207D- 00 BRK +207E- 00 BRK +207F- 00 BRK +2080- 00 BRK +2081- 00 BRK +2082- 00 BRK +2083- 00 BRK +2084- 00 BRK +2085- 00 BRK +2086- 00 BRK +2087- 00 BRK +2088- 00 BRK +2089- 00 BRK +208A- 00 BRK +208B- 00 BRK +208C- 00 BRK +208D- 00 BRK +208E- 00 BRK +208F- 00 BRK +2090- 00 BRK +2091- 00 BRK +2092- 00 BRK +2093- 00 BRK +2094- 00 BRK +2095- 00 BRK +2096- 00 BRK +2097- 00 BRK +2098- 00 BRK +2099- 00 BRK +209A- 00 BRK +209B- 00 BRK +209C- 00 BRK +209D- 00 BRK +209E- 00 BRK +209F- 00 BRK +20A0- 00 BRK +20A1- 00 BRK +20A2- 00 BRK +20A3- 00 BRK +20A4- 00 BRK +20A5- 00 BRK +20A6- 00 BRK +20A7- 00 BRK +20A8- 00 BRK +20A9- 00 BRK +20AA- 00 BRK +20AB- 00 BRK +20AC- 00 BRK +20AD- 00 BRK +20AE- 00 BRK +20AF- 00 BRK +20B0- 00 BRK +20B1- 00 BRK +20B2- 00 BRK +20B3- 00 BRK +20B4- 00 BRK +20B5- 00 BRK +20B6- 00 BRK +20B7- 00 BRK +20B8- 00 BRK +20B9- 00 BRK +20BA- 00 BRK +20BB- 00 BRK +20BC- 00 BRK +20BD- 00 BRK +20BE- 00 BRK +20BF- 00 BRK +20C0- 00 BRK +20C1- 00 BRK +20C2- 00 BRK +20C3- 00 BRK +20C4- 00 BRK +20C5- 00 BRK +20C6- 00 BRK +20C7- 00 BRK +20C8- 00 BRK +20C9- 00 BRK +20CA- 00 BRK +20CB- 00 BRK +20CC- 00 BRK +20CD- 00 BRK +20CE- 00 BRK +20CF- 00 BRK +20D0- 00 BRK +20D1- 00 BRK +20D2- 00 BRK +20D3- 00 BRK +20D4- 00 BRK +20D5- 00 BRK +20D6- 00 BRK +20D7- 00 BRK +20D8- 00 BRK +20D9- 00 BRK +20DA- 00 BRK +20DB- 00 BRK +20DC- 00 BRK +20DD- 00 BRK +20DE- 00 BRK +20DF- 00 BRK +20E0- 48 PHA +20E1- A2 06 LDX #$06 +20E3- 86 24 STX $24 +20E5- 20 DA FD JSR $FDDA F8ROM:PRBYTE +20E8- 68 PLA +20E9- A6 08 LDX $08 +20EB- 0A ASL +20EC- 4C A0 B9 JMP $B9A0 +20EF- 00 BRK +20F0- A2 03 LDX #$03 +20F2- BD 70 37 LDA $3770,X +20F5- 95 04 STA $04,X +20F7- CA DEX +20F8- 10 F8 BPL $20F2 +20FA- 4C AD 22 JMP $22AD +20FD- 00 BRK +20FE- 00 BRK +20FF- 00 BRK +2100- 4C 96 21 JMP $2196 +2103- 86 3C STX $3C +2105- 85 3B STA $3B +2107- A0 00 LDY #$00 +2109- 84 3A STY $3A +210B- A6 08 LDX $08 +210D- BD 8D C0 LDA $C08D,X +2110- BD 8E C0 LDA $C08E,X +2113- 10 02 BPL $2117 +2115- 38 SEC +2116- 60 RTS +2117- A0 06 LDY #$06 +2119- A9 FF LDA #$FF +211B- 9D 8F C0 STA $C08F,X +211E- 1D 8C C0 ORA $C08C,X +2121- 26 4E ROL $4E +2123- EA NOP +2124- 20 95 21 JSR $2195 +2127- 20 95 21 JSR $2195 +212A- 9D 8D C0 STA $C08D,X +212D- 1D 8C C0 ORA $C08C,X +2130- 88 DEY +2131- D0 F0 BNE $2123 +2133- EA NOP +2134- A5 00 LDA $00 +2136- 20 8B 21 JSR $218B +2139- A5 01 LDA $01 +213B- 20 8B 21 JSR $218B +213E- A5 02 LDA $02 +2140- 20 8B 21 JSR $218B +2143- EA NOP +2144- 90 0C BCC $2152 +2146- 98 TYA +2147- D0 09 BNE $2152 +2149- A5 03 LDA $03 +214B- EA NOP +214C- EA NOP +214D- 20 8F 21 JSR $218F +2150- 26 4E ROL $4E +2152- B1 3A LDA ($3A),Y +2154- 48 PHA +2155- 4A LSR +2156- 09 AA ORA #$AA +2158- 9D 8D C0 STA $C08D,X +215B- DD 8C C0 CMP $C08C,X +215E- C8 INY +215F- D0 07 BNE $2168 +2161- E6 3B INC $3B +2163- C6 3C DEC $3C +2165- 4C 6B 21 JMP $216B +2168- 20 95 21 JSR $2195 +216B- 68 PLA +216C- 09 AA ORA #$AA +216E- 9D 8D C0 STA $C08D,X +2171- DD 8C C0 CMP $C08C,X +2174- A5 3C LDA $3C +2176- D0 CE BNE $2146 +2178- A5 03 LDA $03 +217A- A5 03 LDA $03 +217C- 20 8C 21 JSR $218C +217F- A5 03 LDA $03 +2181- 20 8B 21 JSR $218B +2184- BD 8E C0 LDA $C08E,X +2187- BD 8C C0 LDA $C08C,X +218A- 60 RTS +218B- 18 CLC +218C- EA NOP +218D- EA NOP +218E- EA NOP +218F- 9D 8D C0 STA $C08D,X +2192- 1D 8C C0 ORA $C08C,X +2195- 60 RTS +2196- A9 A5 LDA #$A5 +2198- 85 00 STA $00 +219A- A9 DF LDA #$DF +219C- 85 01 STA $01 +219E- A9 D4 LDA #$D4 +21A0- 85 02 STA $02 +21A2- A9 CF LDA #$CF +21A4- 85 03 STA $03 +21A6- A2 04 LDX #$04 +21A8- A9 24 LDA #$24 +21AA- 4C 03 21 JMP $2103 +21AD- 00 BRK +21AE- 00 BRK +21AF- 00 BRK +21B0- 00 BRK +21B1- 00 BRK +21B2- 00 BRK +21B3- 00 BRK +21B4- 00 BRK +21B5- 00 BRK +21B6- 00 BRK +21B7- 00 BRK +21B8- 00 BRK +21B9- 00 BRK +21BA- 00 BRK +21BB- 00 BRK +21BC- 00 BRK +21BD- 00 BRK +21BE- 00 BRK +21BF- 00 BRK +21C0- 00 BRK +21C1- 00 BRK +21C2- 00 BRK +21C3- 00 BRK +21C4- 00 BRK +21C5- 00 BRK +21C6- 00 BRK +21C7- 00 BRK +21C8- 00 BRK +21C9- 00 BRK +21CA- 00 BRK +21CB- 00 BRK +21CC- 00 BRK +21CD- 00 BRK +21CE- 00 BRK +21CF- 00 BRK +21D0- 00 BRK +21D1- 00 BRK +21D2- 00 BRK +21D3- 00 BRK +21D4- 00 BRK +21D5- 00 BRK +21D6- 00 BRK +21D7- 00 BRK +21D8- 00 BRK +21D9- 00 BRK +21DA- 00 BRK +21DB- 00 BRK +21DC- 00 BRK +21DD- 00 BRK +21DE- 00 BRK +21DF- 00 BRK +21E0- 00 BRK +21E1- 00 BRK +21E2- 00 BRK +21E3- 00 BRK +21E4- 00 BRK +21E5- 00 BRK +21E6- 00 BRK +21E7- 00 BRK +21E8- 00 BRK +21E9- 00 BRK +21EA- 00 BRK +21EB- 00 BRK +21EC- 00 BRK +21ED- 00 BRK +21EE- 00 BRK +21EF- 00 BRK +21F0- 00 BRK +21F1- 00 BRK +21F2- 00 BRK +21F3- 00 BRK +21F4- 00 BRK +21F5- 00 BRK +21F6- 00 BRK +21F7- 00 BRK +21F8- 00 BRK +21F9- 00 BRK +21FA- 00 BRK +21FB- 00 BRK +21FC- 00 BRK +21FD- 00 BRK +21FE- 00 BRK +21FF- 00 BRK +2200- A6 08 LDX $08 +2202- BD 8D C0 LDA $C08D,X +2205- BD 8E C0 LDA $C08E,X +2208- A0 00 LDY #$00 +220A- A9 00 LDA #$00 +220C- 9D 8F C0 STA $C08F,X +220F- 1D 8C C0 ORA $C08C,X +2212- EA NOP +2213- EA NOP +2214- EA NOP +2215- A9 00 LDA #$00 +2217- 20 5F 22 JSR $225F +221A- A9 D4 LDA #$D4 +221C- 20 5F 22 JSR $225F +221F- A9 D5 LDA #$D5 +2221- 20 5F 22 JSR $225F +2224- A9 DE LDA #$DE +2226- 20 5F 22 JSR $225F +2229- A9 D4 LDA #$D4 +222B- 20 5F 22 JSR $225F +222E- 98 TYA +222F- 20 4D 22 JSR $224D +2232- A9 F5 LDA #$F5 +2234- 20 5F 22 JSR $225F +2237- A9 AA LDA #$AA +2239- 20 5F 22 JSR $225F +223C- A9 00 LDA #$00 +223E- 20 5F 22 JSR $225F +2241- 24 00 BIT $00 +2243- C8 INY +2244- D0 CF BNE $2215 +2246- BD 8E C0 LDA $C08E,X +2249- BD 8C C0 LDA $C08C,X +224C- 60 RTS +224D- 48 PHA +224E- EA NOP +224F- 4A LSR +2250- 09 AA ORA #$AA +2252- 9D 8D C0 STA $C08D,X +2255- DD 8C C0 CMP $C08C,X +2258- 68 PLA +2259- 09 AA ORA #$AA +225B- EA NOP +225C- EA NOP +225D- EA NOP +225E- EA NOP +225F- A6 08 LDX $08 +2261- EA NOP +2262- EA NOP +2263- EA NOP +2264- 9D 8D C0 STA $C08D,X +2267- DD 8C C0 CMP $C08C,X +226A- 60 RTS +226B- 00 BRK +226C- 00 BRK +226D- 00 BRK +226E- 00 BRK +226F- 00 BRK +2270- 00 BRK +2271- 00 BRK +2272- 00 BRK +2273- 00 BRK +2274- 00 BRK +2275- 00 BRK +2276- 00 BRK +2277- 00 BRK +2278- 00 BRK +2279- 00 BRK +227A- 00 BRK +227B- 00 BRK +227C- 00 BRK +227D- 00 BRK +227E- 00 BRK +227F- 00 BRK +2280- 00 BRK +2281- 00 BRK +2282- 00 BRK +2283- 00 BRK +2284- 00 BRK +2285- 00 BRK +2286- 00 BRK +2287- 00 BRK +2288- 00 BRK +2289- 00 BRK +228A- 00 BRK +228B- 00 BRK +228C- 00 BRK +228D- 00 BRK +228E- 00 BRK +228F- 00 BRK +2290- 00 BRK +2291- 00 BRK +2292- 00 BRK +2293- 00 BRK +2294- 00 BRK +2295- 00 BRK +2296- 00 BRK +2297- 00 BRK +2298- 00 BRK +2299- 00 BRK +229A- 00 BRK +229B- 00 BRK +229C- 00 BRK +229D- 00 BRK +229E- 00 BRK +229F- 00 BRK +22A0- 00 BRK +22A1- 00 BRK +22A2- 00 BRK +22A3- 00 BRK +22A4- 00 BRK +22A5- 00 BRK +22A6- 00 BRK +22A7- 00 BRK +22A8- 00 BRK +22A9- 00 BRK +22AA- 00 BRK +22AB- 00 BRK +22AC- 00 BRK +22AD- 00 BRK +22AE- 00 BRK +22AF- 00 BRK +22B0- 00 BRK +22B1- 00 BRK +22B2- 00 BRK +22B3- 00 BRK +22B4- 00 BRK +22B5- 00 BRK +22B6- 00 BRK +22B7- 00 BRK +22B8- 00 BRK +22B9- 00 BRK +22BA- 00 BRK +22BB- 00 BRK +22BC- 00 BRK +22BD- 00 BRK +22BE- 00 BRK +22BF- 00 BRK +22C0- 00 BRK +22C1- 00 BRK +22C2- 00 BRK +22C3- 00 BRK +22C4- 00 BRK +22C5- 00 BRK +22C6- 00 BRK +22C7- 00 BRK +22C8- 00 BRK +22C9- 00 BRK +22CA- 00 BRK +22CB- 00 BRK +22CC- 00 BRK +22CD- 00 BRK +22CE- 00 BRK +22CF- 00 BRK +22D0- 00 BRK +22D1- 00 BRK +22D2- 00 BRK +22D3- 00 BRK +22D4- 00 BRK +22D5- 00 BRK +22D6- 00 BRK +22D7- 00 BRK +22D8- 00 BRK +22D9- 00 BRK +22DA- 00 BRK +22DB- 00 BRK +22DC- 00 BRK +22DD- 00 BRK +22DE- 00 BRK +22DF- 00 BRK +22E0- 00 BRK +22E1- 00 BRK +22E2- 00 BRK +22E3- 00 BRK +22E4- 00 BRK +22E5- 00 BRK +22E6- 00 BRK +22E7- 00 BRK +22E8- 00 BRK +22E9- 00 BRK +22EA- 00 BRK +22EB- 00 BRK +22EC- 00 BRK +22ED- 00 BRK +22EE- 00 BRK +22EF- 00 BRK +22F0- 00 BRK +22F1- 00 BRK +22F2- 00 BRK +22F3- 00 BRK +22F4- 00 BRK +22F5- 00 BRK +22F6- 00 BRK +22F7- 00 BRK +22F8- 00 BRK +22F9- 00 BRK +22FA- 00 BRK +22FB- 00 BRK +22FC- 00 BRK +22FD- 00 BRK +22FE- 00 BRK +22FF- 00 BRK diff --git a/PSC Source Disk 4 - Fastload - Copy Protection - Title Page (v13)/PS.DOS.txt b/PSC Source Disk 4 - Fastload - Copy Protection - Title Page (v13)/PS.DOS.txt new file mode 100644 index 0000000..f2d1afd --- /dev/null +++ b/PSC Source Disk 4 - Fastload - Copy Protection - Title Page (v13)/PS.DOS.txt @@ -0,0 +1,4598 @@ +1D00- D3 ??? +1D01- 9C 81 9E STZ $9E81 +1D04- BD 9E 75 LDA $759E,X +1D07- AA TAX +1D08- 93 ??? +1D09- AA TAX +1D0A- 60 RTS +1D0B- AA TAX +1D0C- 00 BRK +1D0D- 9D BB B5 STA $B5BB,X +1D10- EA NOP +1D11- 9E 11 9F STZ $9F11,X +1D14- 22 ??? +1D15- 9F ??? +1D16- 2E 9F 51 ROL $519F +1D19- 9F ??? +1D1A- 60 RTS +1D1B- 9F ??? +1D1C- 70 9F BVS $1CBD +1D1E- 4E A5 12 LSR $12A5 +1D21- A4 96 LDY $96 +1D23- A3 ??? +1D24- D0 A4 BNE $1CCA +1D26- EF ??? +1D27- A4 62 LDY $62 +1D29- A2 70 LDX #$70 +1D2B- A2 74 LDX #$74 +1D2D- A2 E9 LDX #$E9 +1D2F- A2 1A LDX #$1A +1D31- A5 C5 LDA $C5 +1D33- A5 0F LDA $0F +1D35- A5 DC LDA $DC +1D37- A5 A2 LDA $A2 +1D39- A2 97 LDX #$97 +1D3B- A2 80 LDX #$80 +1D3D- A2 6D LDX #$6D +1D3F- A5 32 LDA $32 +1D41- A2 3C LDX #$3C +1D43- A2 28 LDX #$28 +1D45- A2 2D LDX #$2D +1D47- A2 50 LDX #$50 +1D49- A2 79 LDX #$79 +1D4B- A5 9D LDA $9D +1D4D- A5 30 LDA $30 +1D4F- A3 ??? +1D50- 5C ??? +1D51- A3 ??? +1D52- 8D A3 7C STA $7CA3 +1D55- A2 FC LDX #$FC +1D57- A4 FC LDY $FC +1D59- A4 65 LDY $65 +1D5B- D8 CLD +1D5C- 00 BRK +1D5D- E0 3C CPX #$3C +1D5F- D4 ??? +1D60- F2 D4 SBC ($D4) +1D62- 36 E8 ROL $E8,X +1D64- E5 A4 SBC $A4 +1D66- E3 ??? +1D67- E3 ??? +1D68- 00 BRK +1D69- E0 03 CPX #$03 +1D6B- E0 FC CPX #$FC +1D6D- A4 FC LDY $FC +1D6F- A4 65 LDY $65 +1D71- D8 CLD +1D72- 00 BRK +1D73- E0 3C CPX #$3C +1D75- D4 ??? +1D76- F2 D4 SBC ($D4) +1D78- 06 A5 ASL $A5 +1D7A- 06 A5 ASL $A5 +1D7C- 67 ??? +1D7D- 10 84 BPL $1D03 +1D7F- 9D 3C 0C STA $0C3C,X +1D82- F2 0C SBC ($0C) +1D84- AD E9 B7 LDA $B7E9 +1D87- 4A LSR +1D88- 4A LSR +1D89- 4A LSR +1D8A- 4A LSR +1D8B- 8D 6A AA STA $AA6A +1D8E- AD EA B7 LDA $B7EA +1D91- 8D 68 AA STA $AA68 +1D94- AD 00 E0 LDA $E000 +1D97- 49 20 EOR #$20 +1D99- D0 11 BNE $1DAC +1D9B- 8D B6 AA STA $AAB6 +1D9E- A2 0A LDX #$0A +1DA0- BD 61 9D LDA $9D61,X +1DA3- 9D 55 9D STA $9D55,X +1DA6- CA DEX +1DA7- D0 F7 BNE $1DA0 +1DA9- 4C BC 9D JMP $9DBC +1DAC- A9 40 LDA #$40 +1DAE- 8D B6 AA STA $AAB6 +1DB1- A2 0C LDX #$0C +1DB3- BD 6B 9D LDA $9D6B,X +1DB6- 9D 55 9D STA $9D55,X +1DB9- CA DEX +1DBA- D0 F7 BNE $1DB3 +1DBC- 38 SEC +1DBD- B0 12 BCS $1DD1 +1DBF- AD B6 AA LDA $AAB6 +1DC2- D0 04 BNE $1DC8 +1DC4- A9 20 LDA #$20 +1DC6- D0 05 BNE $1DCD +1DC8- 0A ASL +1DC9- 10 05 BPL $1DD0 +1DCB- A9 4C LDA #$4C +1DCD- 20 B2 A5 JSR $A5B2 +1DD0- 18 CLC +1DD1- 08 PHP +1DD2- 20 51 A8 JSR $A851 +1DD5- A9 00 LDA #$00 +1DD7- 8D 5E AA STA $AA5E +1DDA- 8D 52 AA STA $AA52 +1DDD- 28 PLP +1DDE- 6A ROR +1DDF- 8D 51 AA STA $AA51 +1DE2- 30 03 BMI $1DE7 +1DE4- 6C 5E 9D JMP ($9D5E) +1DE7- 6C 5C 9D JMP ($9D5C) +1DEA- 0A ASL +1DEB- 10 19 BPL $1E06 +1DED- 8D B6 AA STA $AAB6 +1DF0- A2 0C LDX #$0C +1DF2- BD 77 9D LDA $9D77,X +1DF5- 9D 55 9D STA $9D55,X +1DF8- CA DEX +1DF9- D0 F7 BNE $1DF2 +1DFB- A2 1D LDX #$1D +1DFD- BD 93 AA LDA $AA93,X +1E00- 9D 75 AA STA $AA75,X +1E03- CA DEX +1E04- 10 F7 BPL $1DFD +1E06- AD B1 AA LDA $AAB1 +1E09- 8D 57 AA STA $AA57 +1E0C- 20 D4 A7 JSR $A7D4 +1E0F- AD B3 AA LDA $AAB3 +1E12- F0 09 BEQ $1E1D +1E14- 48 PHA +1E15- 20 9D A6 JSR $A69D +1E18- 68 PLA +1E19- A0 00 LDY #$00 +1E1B- 91 40 STA ($40),Y +1E1D- 20 5B A7 JSR $A75B +1E20- AD 5F AA LDA $AA5F +1E23- D0 20 BNE $1E45 +1E25- A2 2F LDX #$2F +1E27- BD 51 9E LDA $9E51,X +1E2A- 9D D0 03 STA $03D0,X +1E2D- CA DEX +1E2E- 10 F7 BPL $1E27 +1E30- AD 53 9E LDA $9E53 +1E33- 8D F3 03 STA $03F3 +1E36- 49 A5 EOR #$A5 +1E38- 8D F4 03 STA $03F4 +1E3B- AD 52 9E LDA $9E52 +1E3E- 8D F2 03 STA $03F2 +1E41- A9 34 LDA #$34 +1E43- D0 05 BNE $1E4A +1E45- AD 62 AA LDA $AA62 +1E48- F0 06 BEQ $1E50 +1E4A- 8D 5F AA STA $AA5F +1E4D- 4C 80 A1 JMP $A180 +1E50- 60 RTS +1E51- 4C 80 02 JMP $0280 +1E54- 4C 84 9D JMP $9D84 +1E57- 4C FD AA JMP $AAFD +1E5A- 4C B5 B7 JMP $B7B5 +1E5D- AD 0F 9D LDA $9D0F +1E60- AC 0E 9D LDY $9D0E +1E63- 60 RTS +1E64- AD C2 AA LDA $AAC2 +1E67- AC C1 AA LDY $AAC1 +1E6A- 60 RTS +1E6B- 4C 51 A8 JMP $A851 +1E6E- EA NOP +1E6F- EA NOP +1E70- 4C FA 03 JMP $03FA +1E73- 4C 65 FF JMP $FF65 F8ROM:MON +1E76- 4C 58 FF JMP $FF58 F8ROM:IORTS +1E79- EA NOP +1E7A- EA NOP +1E7B- 40 RTI +1E7C- 4C FA 03 JMP $03FA +1E7F- FA PLX +1E80- 03 ??? +1E81- 20 D1 9E JSR $9ED1 +1E84- AD 51 AA LDA $AA51 +1E87- F0 15 BEQ $1E9E +1E89- 48 PHA +1E8A- AD 5C AA LDA $AA5C +1E8D- 91 28 STA ($28),Y +1E8F- 68 PLA +1E90- 30 03 BMI $1E95 +1E92- 4C 26 A6 JMP $A626 +1E95- 20 EA 9D JSR $9DEA +1E98- A4 24 LDY $24 +1E9A- A9 60 LDA #$60 +1E9C- 91 28 STA ($28),Y +1E9E- AD B3 AA LDA $AAB3 +1EA1- F0 03 BEQ $1EA6 +1EA3- 20 82 A6 JSR $A682 +1EA6- A9 03 LDA #$03 +1EA8- 8D 52 AA STA $AA52 +1EAB- 20 BA 9F JSR $9FBA +1EAE- 20 BA 9E JSR $9EBA +1EB1- 8D 5C AA STA $AA5C +1EB4- 8E 5A AA STX $AA5A +1EB7- 4C B3 9F JMP $9FB3 +1EBA- 6C 38 00 JMP ($0038) +1EBD- 20 D1 9E JSR $9ED1 +1EC0- AD 52 AA LDA $AA52 +1EC3- 0A ASL +1EC4- AA TAX +1EC5- BD 11 9D LDA $9D11,X +1EC8- 48 PHA +1EC9- BD 10 9D LDA $9D10,X +1ECC- 48 PHA +1ECD- AD 5C AA LDA $AA5C +1ED0- 60 RTS +1ED1- 8D 5C AA STA $AA5C +1ED4- 8E 5A AA STX $AA5A +1ED7- 8C 5B AA STY $AA5B +1EDA- BA TSX +1EDB- E8 INX +1EDC- E8 INX +1EDD- 8E 59 AA STX $AA59 +1EE0- A2 03 LDX #$03 +1EE2- BD 53 AA LDA $AA53,X +1EE5- 95 36 STA $36,X +1EE7- CA DEX +1EE8- 10 F8 BPL $1EE2 +1EEA- 60 RTS +1EEB- AE B7 AA LDX $AAB7 +1EEE- F0 03 BEQ $1EF3 +1EF0- 4C 78 9F JMP $9F78 +1EF3- AE 51 AA LDX $AA51 +1EF6- F0 08 BEQ $1F00 +1EF8- C9 BF CMP #$BF +1EFA- F0 75 BEQ $1F71 +1EFC- C5 33 CMP $33 +1EFE- F0 27 BEQ $1F27 +1F00- A2 02 LDX #$02 +1F02- 8E 52 AA STX $AA52 +1F05- CD B2 AA CMP $AAB2 +1F08- D0 19 BNE $1F23 +1F0A- CA DEX +1F0B- 8E 52 AA STX $AA52 +1F0E- CA DEX +1F0F- 8E 5D AA STX $AA5D +1F12- AE 5D AA LDX $AA5D +1F15- 9D 00 02 STA $0200,X +1F18- E8 INX +1F19- 8E 5D AA STX $AA5D +1F1C- C9 8D CMP #$8D +1F1E- D0 75 BNE $1F95 +1F20- 4C CD 9F JMP $9FCD +1F23- C9 8D CMP #$8D +1F25- D0 7D BNE $1FA4 +1F27- A2 00 LDX #$00 +1F29- 8E 52 AA STX $AA52 +1F2C- 4C A4 9F JMP $9FA4 +1F2F- A2 00 LDX #$00 +1F31- 8E 52 AA STX $AA52 +1F34- C9 8D CMP #$8D +1F36- F0 07 BEQ $1F3F +1F38- AD B3 AA LDA $AAB3 +1F3B- F0 67 BEQ $1FA4 +1F3D- D0 5E BNE $1F9D +1F3F- 48 PHA +1F40- 38 SEC +1F41- AD B3 AA LDA $AAB3 +1F44- D0 03 BNE $1F49 +1F46- 20 5E A6 JSR $A65E +1F49- 68 PLA +1F4A- 90 EC BCC $1F38 +1F4C- AE 5A AA LDX $AA5A +1F4F- 4C 15 9F JMP $9F15 +1F52- C9 8D CMP #$8D +1F54- D0 05 BNE $1F5B +1F56- A9 05 LDA #$05 +1F58- 8D 52 AA STA $AA52 +1F5B- 20 0E A6 JSR $A60E +1F5E- 4C 99 9F JMP $9F99 +1F61- CD B2 AA CMP $AAB2 +1F64- F0 85 BEQ $1EEB +1F66- C9 8A CMP #$8A +1F68- F0 F1 BEQ $1F5B +1F6A- A2 04 LDX #$04 +1F6C- 8E 52 AA STX $AA52 +1F6F- D0 E1 BNE $1F52 +1F71- A9 00 LDA #$00 +1F73- 8D 52 AA STA $AA52 +1F76- F0 25 BEQ $1F9D +1F78- A9 00 LDA #$00 +1F7A- 8D B7 AA STA $AAB7 +1F7D- 20 51 A8 JSR $A851 +1F80- 4C DC A4 JMP $A4DC +1F83- AD 00 02 LDA $0200 +1F86- CD B2 AA CMP $AAB2 +1F89- F0 0A BEQ $1F95 +1F8B- A9 8D LDA #$8D +1F8D- 8D 00 02 STA $0200 +1F90- A2 00 LDX #$00 +1F92- 8E 5A AA STX $AA5A +1F95- A9 40 LDA #$40 +1F97- D0 06 BNE $1F9F +1F99- A9 10 LDA #$10 +1F9B- D0 02 BNE $1F9F +1F9D- A9 20 LDA #$20 +1F9F- 2D 5E AA AND $AA5E +1FA2- F0 0F BEQ $1FB3 +1FA4- 20 BA 9F JSR $9FBA +1FA7- 20 C5 9F JSR $9FC5 +1FAA- 8D 5C AA STA $AA5C +1FAD- 8C 5B AA STY $AA5B +1FB0- 8E 5A AA STX $AA5A +1FB3- 20 51 A8 JSR $A851 +1FB6- AE 59 AA LDX $AA59 +1FB9- 9A TXS +1FBA- AD 5C AA LDA $AA5C +1FBD- AC 5B AA LDY $AA5B +1FC0- AE 5A AA LDX $AA5A +1FC3- 38 SEC +1FC4- 60 RTS +1FC5- 6C 36 00 JMP ($0036) +1FC8- A9 8D LDA #$8D +1FCA- 4C C5 9F JMP $9FC5 +1FCD- A0 FF LDY #$FF +1FCF- 8C 5F AA STY $AA5F +1FD2- C8 INY +1FD3- 8C 62 AA STY $AA62 +1FD6- EE 5F AA INC $AA5F +1FD9- A2 00 LDX #$00 +1FDB- 08 PHP +1FDC- BD 00 02 LDA $0200,X +1FDF- CD B2 AA CMP $AAB2 +1FE2- D0 01 BNE $1FE5 +1FE4- E8 INX +1FE5- 8E 5D AA STX $AA5D +1FE8- 20 A4 A1 JSR $A1A4 +1FEB- 29 7F AND #$7F +1FED- 59 84 A8 EOR $A884,Y +1FF0- C8 INY +1FF1- 0A ASL +1FF2- F0 02 BEQ $1FF6 +1FF4- 68 PLA +1FF5- 08 PHP +1FF6- 90 F0 BCC $1FE8 +1FF8- 28 PLP +1FF9- F0 20 BEQ $201B +1FFB- B9 84 A8 LDA $A884,Y +1FFE- D0 D6 BNE $1FD6 +2000- AD 00 02 LDA $0200 +2003- CD B2 AA CMP $AAB2 +2006- F0 03 BEQ $200B +2008- 4C A4 9F JMP $9FA4 +200B- AD 01 02 LDA $0201 +200E- C9 8D CMP #$8D +2010- D0 06 BNE $2018 +2012- 20 5B A7 JSR $A75B +2015- 4C 95 9F JMP $9F95 +2018- 4C C4 A6 JMP $A6C4 +201B- 0E 5F AA ASL $AA5F +201E- AC 5F AA LDY $AA5F +2021- 20 5E A6 JSR $A65E +2024- 90 0C BCC $2032 +2026- A9 02 LDA #$02 +2028- 39 09 A9 AND $A909,Y +202B- F0 05 BEQ $2032 +202D- A9 0F LDA #$0F +202F- 4C D2 A6 JMP $A6D2 +2032- C0 06 CPY #$06 +2034- D0 02 BNE $2038 +2036- 84 33 STY $33 +2038- A9 20 LDA #$20 +203A- 39 09 A9 AND $A909,Y +203D- F0 61 BEQ $20A0 +203F- 20 95 A0 JSR $A095 +2042- 08 PHP +2043- 20 A4 A1 JSR $A1A4 +2046- F0 1E BEQ $2066 +2048- 0A ASL +2049- 90 05 BCC $2050 +204B- 30 03 BMI $2050 +204D- 4C 00 A0 JMP $A000 +2050- 6A ROR +2051- 4C 59 A0 JMP $A059 +2054- 20 93 A1 JSR $A193 +2057- F0 0D BEQ $2066 +2059- 99 75 AA STA $AA75,Y +205C- C8 INY +205D- C0 3C CPY #$3C +205F- 90 F3 BCC $2054 +2061- 20 93 A1 JSR $A193 +2064- D0 FB BNE $2061 +2066- 28 PLP +2067- D0 0F BNE $2078 +2069- AC 5F AA LDY $AA5F +206C- A9 10 LDA #$10 +206E- 39 09 A9 AND $A909,Y +2071- F0 0C BEQ $207F +2073- A0 1E LDY #$1E +2075- 08 PHP +2076- D0 CB BNE $2043 +2078- AD 93 AA LDA $AA93 +207B- C9 A0 CMP #$A0 +207D- F0 13 BEQ $2092 +207F- AD 75 AA LDA $AA75 +2082- C9 A0 CMP #$A0 +2084- D0 4B BNE $20D1 +2086- AC 5F AA LDY $AA5F +2089- A9 C0 LDA #$C0 +208B- 39 09 A9 AND $A909,Y +208E- F0 02 BEQ $2092 +2090- 10 3F BPL $20D1 +2092- 4C 00 A0 JMP $A000 +2095- A0 3C LDY #$3C +2097- A9 A0 LDA #$A0 +2099- 99 74 AA STA $AA74,Y +209C- 88 DEY +209D- D0 FA BNE $2099 +209F- 60 RTS +20A0- 8D 75 AA STA $AA75 +20A3- A9 0C LDA #$0C +20A5- 39 09 A9 AND $A909,Y +20A8- F0 27 BEQ $20D1 +20AA- 20 B9 A1 JSR $A1B9 +20AD- B0 1F BCS $20CE +20AF- A8 TAY +20B0- D0 17 BNE $20C9 +20B2- E0 11 CPX #$11 +20B4- B0 13 BCS $20C9 +20B6- AC 5F AA LDY $AA5F +20B9- A9 08 LDA #$08 +20BB- 39 09 A9 AND $A909,Y +20BE- F0 06 BEQ $20C6 +20C0- E0 08 CPX #$08 +20C2- B0 CE BCS $2092 +20C4- 90 0B BCC $20D1 +20C6- 8A TXA +20C7- D0 08 BNE $20D1 +20C9- A9 02 LDA #$02 +20CB- 4C D2 A6 JMP $A6D2 +20CE- 4C C4 A6 JMP $A6C4 +20D1- A9 00 LDA #$00 +20D3- 8D 65 AA STA $AA65 +20D6- 8D 74 AA STA $AA74 +20D9- 8D 66 AA STA $AA66 +20DC- 8D 6C AA STA $AA6C +20DF- 8D 6D AA STA $AA6D +20E2- 20 DC BF JSR $BFDC +20E5- AD 5D AA LDA $AA5D +20E8- 20 A4 A1 JSR $A1A4 +20EB- D0 1F BNE $210C +20ED- C9 8D CMP #$8D +20EF- D0 F7 BNE $20E8 +20F1- AE 5F AA LDX $AA5F +20F4- AD 65 AA LDA $AA65 +20F7- 1D 0A A9 ORA $A90A,X +20FA- 5D 0A A9 EOR $A90A,X +20FD- D0 93 BNE $2092 +20FF- AE 63 AA LDX $AA63 +2102- F0 76 BEQ $217A +2104- 8D 63 AA STA $AA63 +2107- 8E 5D AA STX $AA5D +210A- D0 DC BNE $20E8 +210C- A2 0A LDX #$0A +210E- DD 40 A9 CMP $A940,X +2111- F0 05 BEQ $2118 +2113- CA DEX +2114- D0 F8 BNE $210E +2116- F0 B6 BEQ $20CE +2118- BD 4A A9 LDA $A94A,X +211B- 30 47 BMI $2164 +211D- 0D 65 AA ORA $AA65 +2120- 8D 65 AA STA $AA65 +2123- CA DEX +2124- 8E 64 AA STX $AA64 +2127- 20 B9 A1 JSR $A1B9 +212A- B0 A2 BCS $20CE +212C- AD 64 AA LDA $AA64 +212F- 0A ASL +2130- 0A ASL +2131- A8 TAY +2132- A5 45 LDA $45 +2134- D0 09 BNE $213F +2136- A5 44 LDA $44 +2138- D9 55 A9 CMP $A955,Y +213B- 90 8C BCC $20C9 +213D- A5 45 LDA $45 +213F- D9 58 A9 CMP $A958,Y +2142- 90 0B BCC $214F +2144- D0 83 BNE $20C9 +2146- A5 44 LDA $44 +2148- D9 57 A9 CMP $A957,Y +214B- 90 02 BCC $214F +214D- D0 F5 BNE $2144 +214F- AD 63 AA LDA $AA63 +2152- D0 94 BNE $20E8 +2154- 98 TYA +2155- 4A LSR +2156- A8 TAY +2157- A5 45 LDA $45 +2159- 99 67 AA STA $AA67,Y +215C- A5 44 LDA $44 +215E- 99 66 AA STA $AA66,Y +2161- 4C E8 A0 JMP $A0E8 +2164- 48 PHA +2165- A9 80 LDA #$80 +2167- 0D 65 AA ORA $AA65 +216A- 8D 65 AA STA $AA65 +216D- 68 PLA +216E- 29 7F AND #$7F +2170- 0D 74 AA ORA $AA74 +2173- 8D 74 AA STA $AA74 +2176- D0 E9 BNE $2161 +2178- F0 9C BEQ $2116 +217A- 20 80 A1 JSR $A180 +217D- 4C 83 9F JMP $9F83 +2180- 20 5B A7 JSR $A75B +2183- 20 AE A1 JSR $A1AE +2186- AD 5F AA LDA $AA5F +2189- AA TAX +218A- BD 1F 9D LDA $9D1F,X +218D- 48 PHA +218E- BD 1E 9D LDA $9D1E,X +2191- 48 PHA +2192- 60 RTS +2193- AE 5D AA LDX $AA5D +2196- BD 00 02 LDA $0200,X +2199- C9 8D CMP #$8D +219B- F0 06 BEQ $21A3 +219D- E8 INX +219E- 8E 5D AA STX $AA5D +21A1- C9 AC CMP #$AC +21A3- 60 RTS +21A4- 20 93 A1 JSR $A193 +21A7- F0 FA BEQ $21A3 +21A9- C9 A0 CMP #$A0 +21AB- F0 F7 BEQ $21A4 +21AD- 60 RTS +21AE- A9 00 LDA #$00 +21B0- A0 16 LDY #$16 +21B2- 99 BA B5 STA $B5BA,Y +21B5- 88 DEY +21B6- D0 FA BNE $21B2 +21B8- 60 RTS +21B9- A9 00 LDA #$00 +21BB- 85 44 STA $44 +21BD- 85 45 STA $45 +21BF- 20 A4 A1 JSR $A1A4 +21C2- 08 PHP +21C3- C9 A4 CMP #$A4 +21C5- F0 3C BEQ $2203 +21C7- 28 PLP +21C8- 4C CE A1 JMP $A1CE +21CB- 20 A4 A1 JSR $A1A4 +21CE- D0 06 BNE $21D6 +21D0- A6 44 LDX $44 +21D2- A5 45 LDA $45 +21D4- 18 CLC +21D5- 60 RTS +21D6- 38 SEC +21D7- E9 B0 SBC #$B0 +21D9- 30 21 BMI $21FC +21DB- C9 0A CMP #$0A +21DD- B0 1D BCS $21FC +21DF- 20 FE A1 JSR $A1FE +21E2- 65 44 ADC $44 +21E4- AA TAX +21E5- A9 00 LDA #$00 +21E7- 65 45 ADC $45 +21E9- A8 TAY +21EA- 20 FE A1 JSR $A1FE +21ED- 20 FE A1 JSR $A1FE +21F0- 8A TXA +21F1- 65 44 ADC $44 +21F3- 85 44 STA $44 +21F5- 98 TYA +21F6- 65 45 ADC $45 +21F8- 85 45 STA $45 +21FA- 90 CF BCC $21CB +21FC- 38 SEC +21FD- 60 RTS +21FE- 06 44 ASL $44 +2200- 26 45 ROL $45 +2202- 60 RTS +2203- 28 PLP +2204- 20 A4 A1 JSR $A1A4 +2207- F0 C5 BEQ $21CE +2209- 38 SEC +220A- E9 B0 SBC #$B0 +220C- 30 EE BMI $21FC +220E- C9 0A CMP #$0A +2210- 90 08 BCC $221A +2212- E9 07 SBC #$07 +2214- 30 E6 BMI $21FC +2216- C9 10 CMP #$10 +2218- B0 E2 BCS $21FC +221A- A2 04 LDX #$04 +221C- 20 FE A1 JSR $A1FE +221F- CA DEX +2220- D0 FA BNE $221C +2222- 05 44 ORA $44 +2224- 85 44 STA $44 +2226- 4C 04 A2 JMP $A204 +2229- A5 44 LDA $44 +222B- 4C 95 FE JMP $FE95 F8ROM:OUTPORT +222E- A5 44 LDA $44 +2230- 4C 8B FE JMP $FE8B F8ROM:INPORT +2233- AD 5E AA LDA $AA5E +2236- 0D 74 AA ORA $AA74 +2239- 8D 5E AA STA $AA5E +223C- 60 RTS +223D- 2C 74 AA BIT $AA74 +2240- 50 03 BVC $2245 +2242- 20 C8 9F JSR $9FC8 +2245- A9 70 LDA #$70 +2247- 4D 74 AA EOR $AA74 +224A- 2D 5E AA AND $AA5E +224D- 8D 5E AA STA $AA5E +2250- 60 RTS +2251- A9 00 LDA #$00 +2253- 8D B3 AA STA $AAB3 +2256- A5 44 LDA $44 +2258- 48 PHA +2259- 20 16 A3 JSR $A316 +225C- 68 PLA +225D- 8D 57 AA STA $AA57 +2260- 4C D4 A7 JMP $A7D4 +2263- A9 05 LDA #$05 +2265- 20 AA A2 JSR $A2AA +2268- 20 64 A7 JSR $A764 +226B- A0 00 LDY #$00 +226D- 98 TYA +226E- 91 40 STA ($40),Y +2270- 60 RTS +2271- A9 07 LDA #$07 +2273- D0 02 BNE $2277 +2275- A9 08 LDA #$08 +2277- 20 AA A2 JSR $A2AA +227A- 4C EA A2 JMP $A2EA +227D- A9 0C LDA #$0C +227F- D0 F6 BNE $2277 +2281- AD 08 9D LDA $9D08 +2284- 8D BD B5 STA $B5BD +2287- AD 09 9D LDA $9D09 +228A- 8D BE B5 STA $B5BE +228D- A9 09 LDA #$09 +228F- 8D 63 AA STA $AA63 +2292- 20 C8 A2 JSR $A2C8 +2295- 4C EA A2 JMP $A2EA +2298- 20 A3 A2 JSR $A2A3 +229B- 20 8C A6 JSR $A68C +229E- D0 FB BNE $229B +22A0- 4C 71 B6 JMP $B671 +22A3- A9 00 LDA #$00 +22A5- 4C D5 A3 JMP $A3D5 +22A8- A9 01 LDA #$01 +22AA- 8D 63 AA STA $AA63 +22AD- AD 6C AA LDA $AA6C +22B0- D0 0A BNE $22BC +22B2- AD 6D AA LDA $AA6D +22B5- D0 05 BNE $22BC +22B7- A9 01 LDA #$01 +22B9- 8D 6C AA STA $AA6C +22BC- AD 6C AA LDA $AA6C +22BF- 8D BD B5 STA $B5BD +22C2- AD 6D AA LDA $AA6D +22C5- 8D BE B5 STA $B5BE +22C8- 20 EA A2 JSR $A2EA +22CB- A5 45 LDA $45 +22CD- D0 03 BNE $22D2 +22CF- 4C C8 A6 JMP $A6C8 +22D2- 85 41 STA $41 +22D4- A5 44 LDA $44 +22D6- 85 40 STA $40 +22D8- 20 43 A7 JSR $A743 +22DB- 20 4E A7 JSR $A74E +22DE- 20 1A A7 JSR $A71A +22E1- AD 63 AA LDA $AA63 +22E4- 8D BB B5 STA $B5BB +22E7- 4C A8 A6 JMP $A6A8 +22EA- AD 75 AA LDA $AA75 +22ED- C9 A0 CMP #$A0 +22EF- F0 25 BEQ $2316 +22F1- 20 64 A7 JSR $A764 +22F4- B0 3A BCS $2330 +22F6- 20 FC A2 JSR $A2FC +22F9- 4C EA A2 JMP $A2EA +22FC- 20 AF A7 JSR $A7AF +22FF- D0 05 BNE $2306 +2301- A9 00 LDA #$00 +2303- 8D B3 AA STA $AAB3 +2306- A0 00 LDY #$00 +2308- 98 TYA +2309- 91 40 STA ($40),Y +230B- 20 4E A7 JSR $A74E +230E- A9 02 LDA #$02 +2310- 8D BB B5 STA $B5BB +2313- 4C A8 A6 JMP $A6A8 +2316- 20 92 A7 JSR $A792 +2319- D0 05 BNE $2320 +231B- 20 9A A7 JSR $A79A +231E- F0 10 BEQ $2330 +2320- 20 AF A7 JSR $A7AF +2323- F0 F6 BEQ $231B +2325- 20 AA A7 JSR $A7AA +2328- F0 F1 BEQ $231B +232A- 20 FC A2 JSR $A2FC +232D- 4C 16 A3 JMP $A316 +2330- 60 RTS +2331- A9 09 LDA #$09 +2333- 2D 65 AA AND $AA65 +2336- C9 09 CMP #$09 +2338- F0 03 BEQ $233D +233A- 4C 00 A0 JMP $A000 +233D- A9 04 LDA #$04 +233F- 20 D5 A3 JSR $A3D5 +2342- AD 73 AA LDA $AA73 +2345- AC 72 AA LDY $AA72 +2348- 20 E0 A3 JSR $A3E0 +234B- AD 6D AA LDA $AA6D +234E- AC 6C AA LDY $AA6C +2351- 20 E0 A3 JSR $A3E0 +2354- AD 73 AA LDA $AA73 +2357- AC 72 AA LDY $AA72 +235A- 4C FF A3 JMP $A3FF +235D- 4C 6C A3 JMP $A36C +2360- A9 7F LDA #$7F +2362- 2D C2 B5 AND $B5C2 +2365- C9 04 CMP #$04 +2367- F0 03 BEQ $236C +2369- 4C D0 A6 JMP $A6D0 +236C- A9 04 LDA #$04 +236E- 20 D5 A3 JSR $A3D5 +2371- 20 7A A4 JSR $A47A +2374- AA TAX +2375- AD 65 AA LDA $AA65 +2378- 29 01 AND #$01 +237A- D0 06 BNE $2382 +237C- 8E 72 AA STX $AA72 +237F- 8C 73 AA STY $AA73 +2382- 20 7A A4 JSR $A47A +2385- AE 72 AA LDX $AA72 +2388- AC 73 AA LDY $AA73 +238B- 4C 71 A4 JMP $A471 +238E- 20 5D A3 JSR $A35D +2391- 20 51 A8 JSR $A851 +2394- 6C 72 AA JMP ($AA72) +2397- AD B6 AA LDA $AAB6 +239A- F0 20 BEQ $23BC +239C- A5 D6 LDA $D6 +239E- 10 03 BPL $23A3 +23A0- 4C CC A6 JMP $A6CC +23A3- A9 02 LDA #$02 +23A5- 20 D5 A3 JSR $A3D5 +23A8- 38 SEC +23A9- A5 AF LDA $AF +23AB- E5 67 SBC $67 +23AD- A8 TAY +23AE- A5 B0 LDA $B0 +23B0- E5 68 SBC $68 +23B2- 20 E0 A3 JSR $A3E0 +23B5- A5 68 LDA $68 +23B7- A4 67 LDY $67 +23B9- 4C FF A3 JMP $A3FF +23BC- A9 01 LDA #$01 +23BE- 20 D5 A3 JSR $A3D5 +23C1- 38 SEC +23C2- A5 4C LDA $4C +23C4- E5 CA SBC $CA +23C6- A8 TAY +23C7- A5 4D LDA $4D +23C9- E5 CB SBC $CB +23CB- 20 E0 A3 JSR $A3E0 +23CE- A5 CB LDA $CB +23D0- A4 CA LDY $CA +23D2- 4C FF A3 JMP $A3FF +23D5- 8D C2 B5 STA $B5C2 +23D8- 48 PHA +23D9- 20 A8 A2 JSR $A2A8 +23DC- 68 PLA +23DD- 4C C4 A7 JMP $A7C4 +23E0- 8C C1 B5 STY $B5C1 +23E3- 8C C3 B5 STY $B5C3 +23E6- 8D C2 B5 STA $B5C2 +23E9- A9 04 LDA #$04 +23EB- 8D BB B5 STA $B5BB +23EE- A9 01 LDA #$01 +23F0- 8D BC B5 STA $B5BC +23F3- 20 A8 A6 JSR $A6A8 +23F6- AD C2 B5 LDA $B5C2 +23F9- 8D C3 B5 STA $B5C3 +23FC- 4C A8 A6 JMP $A6A8 +23FF- 8C C3 B5 STY $B5C3 +2402- 8D C4 B5 STA $B5C4 +2405- A9 02 LDA #$02 +2407- 4C 86 B6 JMP $B686 +240A- 20 A8 A6 JSR $A6A8 +240D- 4C EA A2 JMP $A2EA +2410- 4C D0 A6 JMP $A6D0 +2413- 20 16 A3 JSR $A316 +2416- 20 A8 A2 JSR $A2A8 +2419- A9 23 LDA #$23 +241B- 2D C2 B5 AND $B5C2 +241E- F0 F0 BEQ $2410 +2420- 8D C2 B5 STA $B5C2 +2423- AD B6 AA LDA $AAB6 +2426- F0 28 BEQ $2450 +2428- A9 02 LDA #$02 +242A- 20 B1 A4 JSR $A4B1 +242D- 20 7A A4 JSR $A47A +2430- 18 CLC +2431- 65 67 ADC $67 +2433- AA TAX +2434- 98 TYA +2435- 65 68 ADC $68 +2437- C5 74 CMP $74 +2439- B0 70 BCS $24AB +243B- 85 B0 STA $B0 +243D- 85 6A STA $6A +243F- 86 AF STX $AF +2441- 86 69 STX $69 +2443- A6 67 LDX $67 +2445- A4 68 LDY $68 +2447- 20 71 A4 JSR $A471 +244A- 20 51 A8 JSR $A851 +244D- 6C 60 9D JMP ($9D60) +2450- A9 01 LDA #$01 +2452- 20 B1 A4 JSR $A4B1 +2455- 20 7A A4 JSR $A47A +2458- 38 SEC +2459- A5 4C LDA $4C +245B- ED 60 AA SBC $AA60 +245E- AA TAX +245F- A5 4D LDA $4D +2461- ED 61 AA SBC $AA61 +2464- 90 45 BCC $24AB +2466- A8 TAY +2467- C4 4B CPY $4B +2469- 90 40 BCC $24AB +246B- F0 3E BEQ $24AB +246D- 84 CB STY $CB +246F- 86 CA STX $CA +2471- 8E C3 B5 STX $B5C3 +2474- 8C C4 B5 STY $B5C4 +2477- 4C 71 A9 JMP $A971 +247A- AD 0A 9D LDA $9D0A +247D- 8D C3 B5 STA $B5C3 +2480- AD 0B 9D LDA $9D0B +2483- 8D C4 B5 STA $B5C4 +2486- A9 00 LDA #$00 +2488- 8D C2 B5 STA $B5C2 +248B- A9 02 LDA #$02 +248D- 8D C1 B5 STA $B5C1 +2490- A9 03 LDA #$03 +2492- 8D BB B5 STA $B5BB +2495- A9 02 LDA #$02 +2497- 8D BC B5 STA $B5BC +249A- 20 A8 A6 JSR $A6A8 +249D- AD 61 AA LDA $AA61 +24A0- 8D C2 B5 STA $B5C2 +24A3- A8 TAY +24A4- AD 60 AA LDA $AA60 +24A7- 8D C1 B5 STA $B5C1 +24AA- 60 RTS +24AB- 20 EA A2 JSR $A2EA +24AE- 4C CC A6 JMP $A6CC +24B1- CD C2 B5 CMP $B5C2 +24B4- F0 1A BEQ $24D0 +24B6- AE 5F AA LDX $AA5F +24B9- 8E 62 AA STX $AA62 +24BC- 4A LSR +24BD- F0 03 BEQ $24C2 +24BF- 4C 9E A5 JMP $A59E +24C2- A2 1D LDX #$1D +24C4- BD 75 AA LDA $AA75,X +24C7- 9D 93 AA STA $AA93,X +24CA- CA DEX +24CB- 10 F7 BPL $24C4 +24CD- 4C 7A A5 JMP $A57A +24D0- 60 RTS +24D1- AD B6 AA LDA $AAB6 +24D4- F0 03 BEQ $24D9 +24D6- 8D B7 AA STA $AAB7 +24D9- 20 13 A4 JSR $A413 +24DC- 20 C8 9F JSR $9FC8 +24DF- 20 51 A8 JSR $A851 +24E2- 6C 58 9D JMP ($9D58) +24E5- A5 4A LDA $4A +24E7- 85 CC STA $CC +24E9- A5 4B LDA $4B +24EB- 85 CD STA $CD +24ED- 6C 56 9D JMP ($9D56) +24F0- 20 16 A4 JSR $A416 +24F3- 20 C8 9F JSR $9FC8 +24F6- 20 51 A8 JSR $A851 +24F9- 6C 56 9D JMP ($9D56) +24FC- 20 65 D6 JSR $D665 +24FF- 85 33 STA $33 +2501- 85 D8 STA $D8 +2503- 4C D2 D7 JMP $D7D2 +2506- 20 65 0E JSR $0E65 +2509- 85 33 STA $33 +250B- 85 D8 STA $D8 +250D- 4C D4 0F JMP $0FD4 +2510- 20 26 A5 JSR $A526 +2513- A9 05 LDA #$05 +2515- 8D 52 AA STA $AA52 +2518- 4C 83 9F JMP $9F83 +251B- 20 26 A5 JSR $A526 +251E- A9 01 LDA #$01 +2520- 8D 51 AA STA $AA51 +2523- 4C 83 9F JMP $9F83 +2526- 20 64 A7 JSR $A764 +2529- 90 06 BCC $2531 +252B- 20 A3 A2 JSR $A2A3 +252E- 4C 34 A5 JMP $A534 +2531- 20 4E A7 JSR $A74E +2534- AD 65 AA LDA $AA65 +2537- 29 06 AND #$06 +2539- F0 13 BEQ $254E +253B- A2 03 LDX #$03 +253D- BD 6E AA LDA $AA6E,X +2540- 9D BD B5 STA $B5BD,X +2543- CA DEX +2544- 10 F7 BPL $253D +2546- A9 0A LDA #$0A +2548- 8D BB B5 STA $B5BB +254B- 20 A8 A6 JSR $A6A8 +254E- 60 RTS +254F- A9 40 LDA #$40 +2551- 2D 65 AA AND $AA65 +2554- F0 05 BEQ $255B +2556- AD 66 AA LDA $AA66 +2559- D0 05 BNE $2560 +255B- A9 FE LDA #$FE +255D- 8D 66 AA STA $AA66 +2560- AD 0D 9D LDA $9D0D +2563- 8D BC B5 STA $B5BC +2566- A9 0B LDA #$0B +2568- 20 AA A2 JSR $A2AA +256B- 4C 16 A3 JMP $A316 +256E- A9 06 LDA #$06 +2570- 20 AA A2 JSR $A2AA +2573- AD BF B5 LDA $B5BF +2576- 8D 66 AA STA $AA66 +2579- 60 RTS +257A- A9 4C LDA #$4C +257C- 20 B2 A5 JSR $A5B2 +257F- F0 2E BEQ $25AF +2581- A9 00 LDA #$00 +2583- 8D B6 AA STA $AAB6 +2586- A0 1E LDY #$1E +2588- 20 97 A0 JSR $A097 +258B- A2 09 LDX #$09 +258D- BD B7 AA LDA $AAB7,X +2590- 9D 74 AA STA $AA74,X +2593- CA DEX +2594- D0 F7 BNE $258D +2596- A9 C0 LDA #$C0 +2598- 8D 51 AA STA $AA51 +259B- 4C D1 A4 JMP $A4D1 +259E- A9 20 LDA #$20 +25A0- 20 B2 A5 JSR $A5B2 +25A3- F0 05 BEQ $25AA +25A5- A9 01 LDA #$01 +25A7- 4C D2 A6 JMP $A6D2 +25AA- A9 00 LDA #$00 +25AC- 8D B7 AA STA $AAB7 +25AF- 4C 84 9D JMP $9D84 +25B2- CD 00 E0 CMP $E000 +25B5- F0 0E BEQ $25C5 +25B7- 8D 80 C0 STA $C080 +25BA- CD 00 E0 CMP $E000 +25BD- F0 06 BEQ $25C5 +25BF- 8D 81 C0 STA $C081 rw:ROMIN +25C2- CD 00 E0 CMP $E000 +25C5- 60 RTS +25C6- 20 A3 A2 JSR $A2A3 +25C9- AD 4F AA LDA $AA4F +25CC- 8D B4 AA STA $AAB4 +25CF- AD 50 AA LDA $AA50 +25D2- 8D B5 AA STA $AAB5 +25D5- AD 75 AA LDA $AA75 +25D8- 8D B3 AA STA $AAB3 +25DB- D0 0E BNE $25EB +25DD- 20 64 A7 JSR $A764 +25E0- 90 06 BCC $25E8 +25E2- 20 A3 A2 JSR $A2A3 +25E5- 4C EB A5 JMP $A5EB +25E8- 20 4E A7 JSR $A74E +25EB- AD 65 AA LDA $AA65 +25EE- 29 04 AND #$04 +25F0- F0 1B BEQ $260D +25F2- AD 6E AA LDA $AA6E +25F5- D0 08 BNE $25FF +25F7- AE 6F AA LDX $AA6F +25FA- F0 11 BEQ $260D +25FC- CE 6F AA DEC $AA6F +25FF- CE 6E AA DEC $AA6E +2602- 20 8C A6 JSR $A68C +2605- F0 38 BEQ $263F +2607- C9 8D CMP #$8D +2609- D0 F7 BNE $2602 +260B- F0 E5 BEQ $25F2 +260D- 60 RTS +260E- 20 5E A6 JSR $A65E +2611- B0 66 BCS $2679 +2613- AD 5C AA LDA $AA5C +2616- 8D C3 B5 STA $B5C3 +2619- A9 04 LDA #$04 +261B- 8D BB B5 STA $B5BB +261E- A9 01 LDA #$01 +2620- 8D BC B5 STA $B5BC +2623- 4C A8 A6 JMP $A6A8 +2626- 20 5E A6 JSR $A65E +2629- B0 4E BCS $2679 +262B- A9 06 LDA #$06 +262D- 8D 52 AA STA $AA52 +2630- 20 8C A6 JSR $A68C +2633- D0 0F BNE $2644 +2635- 20 FC A2 JSR $A2FC +2638- A9 03 LDA #$03 +263A- CD 52 AA CMP $AA52 +263D- F0 CE BEQ $260D +263F- A9 05 LDA #$05 +2641- 4C D2 A6 JMP $A6D2 +2644- C9 E0 CMP #$E0 +2646- 90 02 BCC $264A +2648- 29 7F AND #$7F +264A- 8D 5C AA STA $AA5C +264D- AE 5A AA LDX $AA5A +2650- F0 09 BEQ $265B +2652- CA DEX +2653- BD 00 02 LDA $0200,X +2656- 09 80 ORA #$80 +2658- 9D 00 02 STA $0200,X +265B- 4C B3 9F JMP $9FB3 +265E- 48 PHA +265F- AD B6 AA LDA $AAB6 +2662- F0 0E BEQ $2672 +2664- A6 76 LDX $76 +2666- E8 INX +2667- F0 0D BEQ $2676 +2669- A6 33 LDX $33 +266B- E0 DD CPX #$DD +266D- F0 07 BEQ $2676 +266F- 68 PLA +2670- 18 CLC +2671- 60 RTS +2672- A5 D9 LDA $D9 +2674- 30 F9 BMI $266F +2676- 68 PLA +2677- 38 SEC +2678- 60 RTS +2679- 20 FC A2 JSR $A2FC +267C- 20 5B A7 JSR $A75B +267F- 4C B3 9F JMP $9FB3 +2682- 20 9D A6 JSR $A69D +2685- 20 4E A7 JSR $A74E +2688- A9 03 LDA #$03 +268A- D0 A1 BNE $262D +268C- A9 03 LDA #$03 +268E- 8D BB B5 STA $B5BB +2691- A9 01 LDA #$01 +2693- 8D BC B5 STA $B5BC +2696- 20 A8 A6 JSR $A6A8 +2699- AD C3 B5 LDA $B5C3 +269C- 60 RTS +269D- AD B5 AA LDA $AAB5 +26A0- 85 41 STA $41 +26A2- AD B4 AA LDA $AAB4 +26A5- 85 40 STA $40 +26A7- 60 RTS +26A8- 20 06 AB JSR $AB06 +26AB- 90 16 BCC $26C3 +26AD- AD C5 B5 LDA $B5C5 +26B0- C9 05 CMP #$05 +26B2- F0 03 BEQ $26B7 +26B4- 4C 5E B6 JMP $B65E +26B7- 4C 92 B6 JMP $B692 +26BA- EA NOP +26BB- 20 69 BA JSR $BA69 +26BE- A2 00 LDX #$00 +26C0- 8E C3 B5 STX $B5C3 +26C3- 60 RTS +26C4- A9 0B LDA #$0B +26C6- D0 0A BNE $26D2 +26C8- A9 0C LDA #$0C +26CA- D0 06 BNE $26D2 +26CC- A9 0E LDA #$0E +26CE- D0 02 BNE $26D2 +26D0- A9 0D LDA #$0D +26D2- 8D 5C AA STA $AA5C +26D5- 20 E6 BF JSR $BFE6 +26D8- AD B6 AA LDA $AAB6 +26DB- F0 04 BEQ $26E1 +26DD- A5 D8 LDA $D8 +26DF- 30 0E BMI $26EF +26E1- A2 00 LDX #$00 +26E3- 20 02 A7 JSR $A702 +26E6- AE 5C AA LDX $AA5C +26E9- 20 02 A7 JSR $A702 +26EC- 20 C8 9F JSR $9FC8 +26EF- 20 51 A8 JSR $A851 +26F2- 20 5E A6 JSR $A65E +26F5- AE 5C AA LDX $AA5C +26F8- A9 03 LDA #$03 +26FA- B0 03 BCS $26FF +26FC- 6C 5A 9D JMP ($9D5A) +26FF- 6C 5E 9D JMP ($9D5E) +2702- BD 3F AA LDA $AA3F,X +2705- AA TAX +2706- 8E 63 AA STX $AA63 +2709- BD 71 A9 LDA $A971,X +270C- 48 PHA +270D- 09 80 ORA #$80 +270F- 20 C5 9F JSR $9FC5 +2712- AE 63 AA LDX $AA63 +2715- E8 INX +2716- 68 PLA +2717- 10 ED BPL $2706 +2719- 60 RTS +271A- AD 66 AA LDA $AA66 +271D- 8D BF B5 STA $B5BF +2720- AD 68 AA LDA $AA68 +2723- 8D C0 B5 STA $B5C0 +2726- AD 6A AA LDA $AA6A +2729- 8D C1 B5 STA $B5C1 +272C- AD 06 9D LDA $9D06 +272F- 8D C3 B5 STA $B5C3 +2732- AD 07 9D LDA $9D07 +2735- 8D C4 B5 STA $B5C4 +2738- A5 40 LDA $40 +273A- 8D 4F AA STA $AA4F +273D- A5 41 LDA $41 +273F- 8D 50 AA STA $AA50 +2742- 60 RTS +2743- A0 1D LDY #$1D +2745- B9 75 AA LDA $AA75,Y +2748- 91 40 STA ($40),Y +274A- 88 DEY +274B- 10 F8 BPL $2745 +274D- 60 RTS +274E- A0 1E LDY #$1E +2750- B1 40 LDA ($40),Y +2752- 99 A9 B5 STA $B5A9,Y +2755- C8 INY +2756- C0 26 CPY #$26 +2758- D0 F6 BNE $2750 +275A- 60 RTS +275B- A0 00 LDY #$00 +275D- 8C 51 AA STY $AA51 +2760- 8C 52 AA STY $AA52 +2763- 60 RTS +2764- A9 00 LDA #$00 +2766- 85 45 STA $45 +2768- 20 92 A7 JSR $A792 +276B- 4C 73 A7 JMP $A773 +276E- 20 9A A7 JSR $A79A +2771- F0 1D BEQ $2790 +2773- 20 AA A7 JSR $A7AA +2776- D0 0A BNE $2782 +2778- A5 40 LDA $40 +277A- 85 44 STA $44 +277C- A5 41 LDA $41 +277E- 85 45 STA $45 +2780- D0 EC BNE $276E +2782- A0 1D LDY #$1D +2784- B1 40 LDA ($40),Y +2786- D9 75 AA CMP $AA75,Y +2789- D0 E3 BNE $276E +278B- 88 DEY +278C- 10 F6 BPL $2784 +278E- 18 CLC +278F- 60 RTS +2790- 38 SEC +2791- 60 RTS +2792- AD 00 9D LDA $9D00 +2795- AE 01 9D LDX $9D01 +2798- D0 0A BNE $27A4 +279A- A0 25 LDY #$25 +279C- B1 40 LDA ($40),Y +279E- F0 09 BEQ $27A9 +27A0- AA TAX +27A1- 88 DEY +27A2- B1 40 LDA ($40),Y +27A4- 86 41 STX $41 +27A6- 85 40 STA $40 +27A8- 8A TXA +27A9- 60 RTS +27AA- A0 00 LDY #$00 +27AC- B1 40 LDA ($40),Y +27AE- 60 RTS +27AF- AD B3 AA LDA $AAB3 +27B2- F0 0E BEQ $27C2 +27B4- AD B4 AA LDA $AAB4 +27B7- C5 40 CMP $40 +27B9- D0 08 BNE $27C3 +27BB- AD B5 AA LDA $AAB5 +27BE- C5 41 CMP $41 +27C0- F0 01 BEQ $27C3 +27C2- CA DEX +27C3- 60 RTS +27C4- 4D C2 B5 EOR $B5C2 +27C7- F0 0A BEQ $27D3 +27C9- 29 7F AND #$7F +27CB- F0 06 BEQ $27D3 +27CD- 20 EA A2 JSR $A2EA +27D0- 4C D0 A6 JMP $A6D0 +27D3- 60 RTS +27D4- 38 SEC +27D5- AD 00 9D LDA $9D00 +27D8- 85 40 STA $40 +27DA- AD 01 9D LDA $9D01 +27DD- 85 41 STA $41 +27DF- AD 57 AA LDA $AA57 +27E2- 8D 63 AA STA $AA63 +27E5- A0 00 LDY #$00 +27E7- 98 TYA +27E8- 91 40 STA ($40),Y +27EA- A0 1E LDY #$1E +27EC- 38 SEC +27ED- A5 40 LDA $40 +27EF- E9 2D SBC #$2D +27F1- 91 40 STA ($40),Y +27F3- 48 PHA +27F4- A5 41 LDA $41 +27F6- E9 00 SBC #$00 +27F8- C8 INY +27F9- 91 40 STA ($40),Y +27FB- AA TAX +27FC- CA DEX +27FD- 68 PLA +27FE- 48 PHA +27FF- C8 INY +2800- 91 40 STA ($40),Y +2802- 8A TXA +2803- C8 INY +2804- 91 40 STA ($40),Y +2806- AA TAX +2807- CA DEX +2808- 68 PLA +2809- 48 PHA +280A- C8 INY +280B- 91 40 STA ($40),Y +280D- C8 INY +280E- 8A TXA +280F- 91 40 STA ($40),Y +2811- CE 63 AA DEC $AA63 +2814- F0 17 BEQ $282D +2816- AA TAX +2817- 68 PLA +2818- 38 SEC +2819- E9 26 SBC #$26 +281B- C8 INY +281C- 91 40 STA ($40),Y +281E- 48 PHA +281F- 8A TXA +2820- E9 00 SBC #$00 +2822- C8 INY +2823- 91 40 STA ($40),Y +2825- 85 41 STA $41 +2827- 68 PLA +2828- 85 40 STA $40 +282A- 4C E5 A7 JMP $A7E5 +282D- 48 PHA +282E- A9 00 LDA #$00 +2830- C8 INY +2831- 91 40 STA ($40),Y +2833- C8 INY +2834- 91 40 STA ($40),Y +2836- AD B6 AA LDA $AAB6 +2839- F0 0B BEQ $2846 +283B- 68 PLA +283C- 85 74 STA $74 +283E- 85 70 STA $70 +2840- 68 PLA +2841- 85 73 STA $73 +2843- 85 6F STA $6F +2845- 60 RTS +2846- 68 PLA +2847- 85 4D STA $4D +2849- 85 CB STA $CB +284B- 68 PLA +284C- 85 4C STA $4C +284E- 85 CA STA $CA +2850- 60 RTS +2851- A5 39 LDA $39 +2853- CD 03 9D CMP $9D03 +2856- F0 12 BEQ $286A +2858- 8D 56 AA STA $AA56 +285B- A5 38 LDA $38 +285D- 8D 55 AA STA $AA55 +2860- AD 02 9D LDA $9D02 +2863- 85 38 STA $38 +2865- AD 03 9D LDA $9D03 +2868- 85 39 STA $39 +286A- A5 37 LDA $37 +286C- CD 05 9D CMP $9D05 +286F- F0 12 BEQ $2883 +2871- 8D 54 AA STA $AA54 +2874- A5 36 LDA $36 +2876- 8D 53 AA STA $AA53 +2879- AD 04 9D LDA $9D04 +287C- 85 36 STA $36 +287E- AD 05 9D LDA $9D05 +2881- 85 37 STA $37 +2883- 60 RTS +2884- 53 ??? +2885- 45 C5 EOR $C5 +2887- 4C 4F 41 JMP $414F +288A- C4 53 CPY $53 +288C- 41 56 EOR ($56,X) +288E- C5 52 CMP $52 +2890- 55 CE EOR $CE,X +2892- 43 ??? +2893- 48 PHA +2894- 41 49 EOR ($49,X) +2896- CE 44 45 DEC $4544 +2899- CC 4C 4F CPY $4F4C +289C- 43 ??? +289D- CB ??? +289E- 55 4E EOR $4E,X +28A0- 4C 4F 43 JMP $434F +28A3- CB ??? +28A4- 43 ??? +28A5- 4C 4F 53 JMP $534F +28A8- C5 52 CMP $52 +28AA- 45 41 EOR $41 +28AC- C4 45 CPY $45 +28AE- 58 CLI +28AF- 45 C3 EOR $C3 +28B1- 57 ??? +28B2- 52 49 EOR ($49) +28B4- 54 ??? +28B5- C5 50 CMP $50 +28B7- 4F ??? +28B8- 53 ??? +28B9- 49 54 EOR #$54 +28BB- 49 4F EOR #$4F +28BD- CE 4F 50 DEC $504F +28C0- 45 CE EOR $CE +28C2- 41 50 EOR ($50,X) +28C4- 50 45 BVC $290B +28C6- 4E C4 52 LSR $52C4 +28C9- 45 4E EOR $4E +28CB- 41 4D EOR ($4D,X) +28CD- C5 43 CMP $43 +28CF- 41 D4 EOR ($D4,X) +28D1- 4D 4F CE EOR $CE4F +28D4- 4E 4F 4D LSR $4D4F +28D7- 4F ??? +28D8- CE 50 52 DEC $5250 +28DB- A3 ??? +28DC- 49 4E EOR #$4E +28DE- A3 ??? +28DF- 4D 41 58 EOR $5841 +28E2- 46 49 LSR $49 +28E4- 4C 45 D3 JMP $D345 +28E7- 46 D0 LSR $D0 +28E9- 49 4E EOR #$4E +28EB- D4 ??? +28EC- 42 ??? +28ED- 53 ??? +28EE- 41 56 EOR ($56,X) +28F0- C5 42 CMP $42 +28F2- 4C 4F 41 JMP $414F +28F5- C4 42 CPY $42 +28F7- 52 55 EOR ($55) +28F9- CE 56 45 DEC $4556 +28FC- 52 49 EOR ($49) +28FE- 46 D9 LSR $D9 +2900- 00 BRK +2901- CE 56 45 DEC $4556 +2904- 52 49 EOR ($49) +2906- 46 D9 LSR $D9 +2908- 00 BRK +2909- 21 70 AND ($70,X) +290B- A0 70 LDY #$70 +290D- A1 70 LDA ($70,X) +290F- A0 70 LDY #$70 +2911- 20 70 20 JSR $2070 +2914- 70 20 BVS $2936 +2916- 70 20 BVS $2938 +2918- 70 60 BVS $297A +291A- 00 BRK +291B- 22 ??? +291C- 06 20 ASL $20 +291E- 74 22 STZ $22,X +2920- 06 22 ASL $22 +2922- 04 23 TSB $23 +2924- 78 SEI +2925- 22 ??? +2926- 70 30 BVS $2958 +2928- 70 40 BVS $296A +292A- 70 40 BVS $296C +292C- 80 40 BRA $296E +292E- 80 08 BRA $2938 +2930- 00 BRK +2931- 08 PHP +2932- 00 BRK +2933- 04 00 TSB $00 +2935- 40 RTI +2936- 70 40 BVS $2978 +2938- 00 BRK +2939- 21 79 AND ($79,X) +293B- 20 71 20 JSR $2071 +293E- 71 20 ADC ($20),Y +2940- 70 D6 BVS $2918 +2942- C4 D3 CPY $D3 +2944- CC D2 C2 CPY $C2D2 +2947- C1 C3 CMP ($C3,X) +2949- C9 CF CMP #$CF +294B- 40 RTI +294C- 20 10 08 JSR $0810 +294F- 04 02 TSB $02 +2951- 01 C0 ORA ($C0,X) +2953- A0 90 LDY #$90 +2955- 00 BRK +2956- 00 BRK +2957- FE 00 01 INC $0100,X +295A- 00 BRK +295B- 02 ??? +295C- 00 BRK +295D- 01 00 ORA ($00,X) +295F- 07 ??? +2960- 00 BRK +2961- 01 00 ORA ($00,X) +2963- FF ??? +2964- 7F ??? +2965- 00 BRK +2966- 00 BRK +2967- FF ??? +2968- 7F ??? +2969- 00 BRK +296A- 00 BRK +296B- FF ??? +296C- 7F ??? +296D- 00 BRK +296E- 00 BRK +296F- FF ??? +2970- FF ??? +2971- AD E6 B5 LDA $B5E6 +2974- 85 3A STA $3A +2976- AD C2 B5 LDA $B5C2 +2979- D0 03 BNE $297E +297B- 4C 0A A4 JMP $A40A +297E- A5 FE LDA $FE +2980- 48 PHA +2981- A5 FF LDA $FF +2983- 48 PHA +2984- 8A TXA +2985- 38 SEC +2986- E5 3A SBC $3A +2988- B0 01 BCS $298B +298A- 88 DEY +298B- 85 FE STA $FE +298D- 84 FF STY $FF +298F- C6 43 DEC $43 +2991- C6 43 DEC $43 +2993- A4 3A LDY $3A +2995- B1 42 LDA ($42),Y +2997- 91 FE STA ($FE),Y +2999- C8 INY +299A- D0 F9 BNE $2995 +299C- A5 FE LDA $FE +299E- A4 FF LDY $FF +29A0- C8 INY +29A1- 8D F0 B7 STA $B7F0 +29A4- 8C F1 B7 STY $B7F1 +29A7- C6 3A DEC $3A +29A9- AD C1 B5 LDA $B5C1 +29AC- 18 CLC +29AD- 65 3A ADC $3A +29AF- 8D C1 B5 STA $B5C1 +29B2- B0 03 BCS $29B7 +29B4- CE C2 B5 DEC $B5C2 +29B7- E6 43 INC $43 +29B9- A9 0E LDA #$0E +29BB- 8D 29 AA STA $AA29 +29BE- AC 29 AA LDY $AA29 +29C1- AD F1 B7 LDA $B7F1 +29C4- 85 FF STA $FF +29C6- AD F0 B7 LDA $B7F0 +29C9- 85 FE STA $FE +29CB- B1 42 LDA ($42),Y +29CD- F0 3B BEQ $2A0A +29CF- 8D EC B7 STA $B7EC +29D2- AD C2 B5 LDA $B5C2 +29D5- D0 0A BNE $29E1 +29D7- A5 42 LDA $42 +29D9- 8D F0 B7 STA $B7F0 +29DC- A5 43 LDA $43 +29DE- 8D F1 B7 STA $B7F1 +29E1- C8 INY +29E2- B1 42 LDA ($42),Y +29E4- 8D ED B7 STA $B7ED +29E7- C8 INY +29E8- 8C 29 AA STY $AA29 +29EB- 08 PHP +29EC- 20 15 AA JSR $AA15 +29EF- EE F1 B7 INC $B7F1 +29F2- AD C2 B5 LDA $B5C2 +29F5- F0 06 BEQ $29FD +29F7- CE C2 B5 DEC $B5C2 +29FA- 28 PLP +29FB- D0 C1 BNE $29BE +29FD- 28 PLP +29FE- AC C1 B5 LDY $B5C1 +2A01- B1 42 LDA ($42),Y +2A03- 91 FE STA ($FE),Y +2A05- 88 DEY +2A06- C0 FF CPY #$FF +2A08- D0 F7 BNE $2A01 +2A0A- E6 43 INC $43 +2A0C- 68 PLA +2A0D- 85 FF STA $FF +2A0F- 68 PLA +2A10- 85 FE STA $FE +2A12- 4C EA A2 JMP $A2EA +2A15- A9 00 LDA #$00 +2A17- 8D EB B7 STA $B7EB +2A1A- A9 B7 LDA #$B7 +2A1C- A0 E8 LDY #$E8 +2A1E- 20 B5 B7 JSR $B7B5 +2A21- B0 01 BCS $2A24 +2A23- 60 RTS +2A24- A9 08 LDA #$08 +2A26- 4C D2 A6 JMP $A6D2 +2A29- 00 BRK +2A2A- C3 ??? +2A2B- C5 A0 CMP $A0 +2A2D- C2 ??? +2A2E- C1 D2 CMP ($D2,X) +2A30- AE AE AE LDX $AEAE +2A33- 60 RTS +2A34- 00 BRK +2A35- 54 ??? +2A36- 20 43 4F JSR $4F43 +2A39- 4D 4D 41 EOR $414D +2A3C- 4E C4 8D LSR $8DC4 +2A3F- 00 BRK +2A40- 03 ??? +2A41- 19 19 24 ORA $2419,Y +2A44- 33 ??? +2A45- 3E 4C 5B ROL $5B4C,X +2A48- 64 6D STZ $6D +2A4A- 78 SEI +2A4B- 84 98 STY $98 +2A4D- AA TAX +2A4E- BB ??? +2A4F- D3 ??? +2A50- 9C 00 00 STZ $0000 +2A53- F0 FD BEQ $2A52 +2A55- 1B ??? +2A56- FD 01 03 SBC $0301,X +2A59- D0 0F BNE $2A6A +2A5B- 28 PLP +2A5C- 8D 06 00 STA $0006 +2A5F- 00 BRK +2A60- 44 ??? +2A61- 04 00 TSB $00 +2A63- 06 00 ASL $00 +2A65- 00 BRK +2A66- FE 00 01 INC $0100,X +2A69- 00 BRK +2A6A- 06 00 ASL $00 +2A6C- 01 00 ORA ($00,X) +2A6E- 00 BRK +2A6F- 00 BRK +2A70- 00 BRK +2A71- 00 BRK +2A72- 00 BRK +2A73- 10 00 BPL $2A75 +2A75- C8 INY +2A76- C5 CC CMP $CC +2A78- CC CF A0 CPY $A0CF +2A7B- A0 A0 LDY #$A0 +2A7D- A0 A0 LDY #$A0 +2A7F- A0 A0 LDY #$A0 +2A81- A0 A0 LDY #$A0 +2A83- A0 A0 LDY #$A0 +2A85- A0 A0 LDY #$A0 +2A87- A0 A0 LDY #$A0 +2A89- A0 A0 LDY #$A0 +2A8B- A0 A0 LDY #$A0 +2A8D- A0 A0 LDY #$A0 +2A8F- A0 A0 LDY #$A0 +2A91- A0 A0 LDY #$A0 +2A93- A0 A0 LDY #$A0 +2A95- A0 A0 LDY #$A0 +2A97- A0 A0 LDY #$A0 +2A99- A0 A0 LDY #$A0 +2A9B- A0 A0 LDY #$A0 +2A9D- A0 A0 LDY #$A0 +2A9F- A0 A0 LDY #$A0 +2AA1- A0 A0 LDY #$A0 +2AA3- A0 A0 LDY #$A0 +2AA5- A0 A0 LDY #$A0 +2AA7- A0 A0 LDY #$A0 +2AA9- A0 A0 LDY #$A0 +2AAB- A0 A0 LDY #$A0 +2AAD- A0 A0 LDY #$A0 +2AAF- A0 A0 LDY #$A0 +2AB1- 01 84 ORA ($84,X) +2AB3- 00 BRK +2AB4- 00 BRK +2AB5- 00 BRK +2AB6- 40 RTI +2AB7- 00 BRK +2AB8- C1 D0 CMP ($D0,X) +2ABA- D0 CC BNE $2A88 +2ABC- C5 D3 CMP $D3 +2ABE- CF ??? +2ABF- C6 D4 DEC $D4 +2AC1- E8 INX +2AC2- B7 ??? +2AC3- BB ??? +2AC4- B3 ??? +2AC5- BB ??? +2AC6- B4 00 LDY $00,X +2AC8- C0 7E CPY #$7E +2ACA- B3 ??? +2ACB- 21 AB AND ($AB,X) +2ACD- 05 AC ORA $AC +2ACF- 57 ??? +2AD0- AC 6F AC LDY $AC6F +2AD3- 2A ROL +2AD4- AD 97 AD LDA $AD97 +2AD7- EE AC F5 INC $F5AC +2ADA- AC 39 AC LDY $AC39 +2ADD- 11 AD ORA ($AD),Y +2ADF- 8D AE 17 STA $17AE +2AE2- AD 7E B3 LDA $B37E +2AE5- 7E B3 89 ROR $89B3,X +2AE8- AC 95 AC LDY $AC95 +2AEB- 86 AC STX $AC +2AED- 92 AC STA ($AC) +2AEF- 7E B3 7E ROR $7EB3,X +2AF2- B3 ??? +2AF3- BD AC C9 LDA $C9AC,X +2AF6- AC BA AC LDY $ACBA +2AF9- C6 AC DEC $AC +2AFB- 7E B3 E0 ROR $E0B3,X +2AFE- 00 BRK +2AFF- F0 02 BEQ $2B03 +2B01- A2 02 LDX #$02 +2B03- 8E 5F AA STX $AA5F +2B06- BA TSX +2B07- 8E 9B B3 STX $B39B +2B0A- 20 6A AE JSR $AE6A +2B0D- AD BB B5 LDA $B5BB +2B10- C9 0D CMP #$0D +2B12- B0 0B BCS $2B1F +2B14- 0A ASL +2B15- AA TAX +2B16- BD CA AA LDA $AACA,X +2B19- 48 PHA +2B1A- BD C9 AA LDA $AAC9,X +2B1D- 48 PHA +2B1E- 60 RTS +2B1F- 4C 63 B3 JMP $B363 +2B22- 20 28 AB JSR $AB28 +2B25- 4C 7F B3 JMP $B37F +2B28- 20 DC AB JSR $ABDC +2B2B- A9 01 LDA #$01 +2B2D- 8D E3 B5 STA $B5E3 +2B30- AE BE B5 LDX $B5BE +2B33- AD BD B5 LDA $B5BD +2B36- D0 05 BNE $2B3D +2B38- E0 00 CPX #$00 +2B3A- D0 01 BNE $2B3D +2B3C- E8 INX +2B3D- 8D E8 B5 STA $B5E8 +2B40- 8E E9 B5 STX $B5E9 +2B43- 20 C9 B1 JSR $B1C9 +2B46- 90 5E BCC $2BA6 +2B48- 8E 9C B3 STX $B39C +2B4B- AE 5F AA LDX $AA5F +2B4E- BD 09 A9 LDA $A909,X +2B51- AE 9C B3 LDX $B39C +2B54- 4A LSR +2B55- B0 0D BCS $2B64 +2B57- AD 51 AA LDA $AA51 +2B5A- C9 C0 CMP #$C0 +2B5C- D0 03 BNE $2B61 +2B5E- 4C 5F B3 JMP $B35F +2B61- 4C 73 B3 JMP $B373 +2B64- A9 00 LDA #$00 +2B66- 9D E8 B4 STA $B4E8,X +2B69- A9 01 LDA #$01 +2B6B- 9D E7 B4 STA $B4E7,X +2B6E- 8E 9C B3 STX $B39C +2B71- 20 44 B2 JSR $B244 +2B74- AE 9C B3 LDX $B39C +2B77- 9D C7 B4 STA $B4C7,X +2B7A- 8D D2 B5 STA $B5D2 +2B7D- 8D D4 B5 STA $B5D4 +2B80- AD F1 B5 LDA $B5F1 +2B83- 9D C6 B4 STA $B4C6,X +2B86- 8D D1 B5 STA $B5D1 +2B89- 8D D3 B5 STA $B5D3 +2B8C- AD C2 B5 LDA $B5C2 +2B8F- 9D C8 B4 STA $B4C8,X +2B92- 20 37 B0 JSR $B037 +2B95- 20 0C AF JSR $AF0C +2B98- 20 D6 B7 JSR $B7D6 +2B9B- 20 3A AF JSR $AF3A +2B9E- AE 9C B3 LDX $B39C +2BA1- A9 06 LDA #$06 +2BA3- 8D C5 B5 STA $B5C5 +2BA6- BD C6 B4 LDA $B4C6,X +2BA9- 8D D1 B5 STA $B5D1 +2BAC- BD C7 B4 LDA $B4C7,X +2BAF- 8D D2 B5 STA $B5D2 +2BB2- BD C8 B4 LDA $B4C8,X +2BB5- 8D C2 B5 STA $B5C2 +2BB8- 8D F6 B5 STA $B5F6 +2BBB- BD E7 B4 LDA $B4E7,X +2BBE- 8D EE B5 STA $B5EE +2BC1- BD E8 B4 LDA $B4E8,X +2BC4- 8D EF B5 STA $B5EF +2BC7- 8E D9 B5 STX $B5D9 +2BCA- A9 FF LDA #$FF +2BCC- 8D E0 B5 STA $B5E0 +2BCF- 8D E1 B5 STA $B5E1 +2BD2- AD E2 B3 LDA $B3E2 +2BD5- 8D DA B5 STA $B5DA +2BD8- 18 CLC +2BD9- 4C 5E AF JMP $AF5E +2BDC- A9 00 LDA #$00 +2BDE- AA TAX +2BDF- 9D D1 B5 STA $B5D1,X +2BE2- E8 INX +2BE3- E0 2D CPX #$2D +2BE5- D0 F8 BNE $2BDF +2BE7- AD BF B5 LDA $B5BF +2BEA- 49 FF EOR #$FF +2BEC- 8D F9 B5 STA $B5F9 +2BEF- AD C0 B5 LDA $B5C0 +2BF2- 8D F8 B5 STA $B5F8 +2BF5- AD C1 B5 LDA $B5C1 +2BF8- 0A ASL +2BF9- 0A ASL +2BFA- 0A ASL +2BFB- 0A ASL +2BFC- AA TAX +2BFD- 8E F7 B5 STX $B5F7 +2C00- A9 11 LDA #$11 +2C02- 8D FA B5 STA $B5FA +2C05- 60 RTS +2C06- 20 1D AF JSR $AF1D +2C09- 20 34 AF JSR $AF34 +2C0C- 20 C3 B2 JSR $B2C3 +2C0F- A9 02 LDA #$02 +2C11- 2D D5 B5 AND $B5D5 +2C14- F0 21 BEQ $2C37 +2C16- 20 F7 AF JSR $AFF7 +2C19- A9 00 LDA #$00 +2C1B- 18 CLC +2C1C- 20 11 B0 JSR $B011 +2C1F- 38 SEC +2C20- CE D8 B5 DEC $B5D8 +2C23- D0 F7 BNE $2C1C +2C25- AE D9 B5 LDX $B5D9 +2C28- AD EE B5 LDA $B5EE +2C2B- 9D E7 B4 STA $B4E7,X +2C2E- AD EF B5 LDA $B5EF +2C31- 9D E8 B4 STA $B4E8,X +2C34- 20 37 B0 JSR $B037 +2C37- 4C 7F B3 JMP $B37F +2C3A- 20 28 AB JSR $AB28 +2C3D- AD F6 B5 LDA $B5F6 +2C40- 30 2B BMI $2C6D +2C42- AD BD B5 LDA $B5BD +2C45- 85 42 STA $42 +2C47- AD BE B5 LDA $B5BE +2C4A- 85 43 STA $43 +2C4C- AE 9C B3 LDX $B39C +2C4F- 20 1C B2 JSR $B21C +2C52- 20 37 B0 JSR $B037 +2C55- 4C 7F B3 JMP $B37F +2C58- AD BC B5 LDA $B5BC +2C5B- C9 05 CMP #$05 +2C5D- B0 0B BCS $2C6A +2C5F- 0A ASL +2C60- AA TAX +2C61- BD E6 AA LDA $AAE6,X +2C64- 48 PHA +2C65- BD E5 AA LDA $AAE5,X +2C68- 48 PHA +2C69- 60 RTS +2C6A- 4C 67 B3 JMP $B367 +2C6D- 4C 7B B3 JMP $B37B +2C70- AD F6 B5 LDA $B5F6 +2C73- 30 F8 BMI $2C6D +2C75- AD BC B5 LDA $B5BC +2C78- C9 05 CMP #$05 +2C7A- B0 EE BCS $2C6A +2C7C- 0A ASL +2C7D- AA TAX +2C7E- BD F2 AA LDA $AAF2,X +2C81- 48 PHA +2C82- BD F1 AA LDA $AAF1,X +2C85- 48 PHA +2C86- 60 RTS +2C87- 20 00 B3 JSR $B300 +2C8A- 20 A8 AC JSR $ACA8 +2C8D- 8D C3 B5 STA $B5C3 +2C90- 4C 7F B3 JMP $B37F +2C93- 20 00 B3 JSR $B300 +2C96- 20 B5 B1 JSR $B1B5 +2C99- 20 A8 AC JSR $ACA8 +2C9C- 48 PHA +2C9D- 20 A2 B1 JSR $B1A2 +2CA0- A0 00 LDY #$00 +2CA2- 68 PLA +2CA3- 91 42 STA ($42),Y +2CA5- 4C 96 AC JMP $AC96 +2CA8- 20 B6 B0 JSR $B0B6 +2CAB- B0 0B BCS $2CB8 +2CAD- B1 42 LDA ($42),Y +2CAF- 48 PHA +2CB0- 20 5B B1 JSR $B15B +2CB3- 20 94 B1 JSR $B194 +2CB6- 68 PLA +2CB7- 60 RTS +2CB8- 4C 6F B3 JMP $B36F +2CBB- 20 00 B3 JSR $B300 +2CBE- AD C3 B5 LDA $B5C3 +2CC1- 20 DA AC JSR $ACDA +2CC4- 4C 7F B3 JMP $B37F +2CC7- 20 00 B3 JSR $B300 +2CCA- 20 A2 B1 JSR $B1A2 +2CCD- A0 00 LDY #$00 +2CCF- B1 42 LDA ($42),Y +2CD1- 20 DA AC JSR $ACDA +2CD4- 20 B5 B1 JSR $B1B5 +2CD7- 4C CA AC JMP $ACCA +2CDA- 48 PHA +2CDB- 20 B6 B0 JSR $B0B6 +2CDE- 68 PLA +2CDF- 91 42 STA ($42),Y +2CE1- A9 40 LDA #$40 +2CE3- 0D D5 B5 ORA $B5D5 +2CE6- 8D D5 B5 STA $B5D5 +2CE9- 20 5B B1 JSR $B15B +2CEC- 4C 94 B1 JMP $B194 +2CEF- A9 80 LDA #$80 +2CF1- 8D 9E B3 STA $B39E +2CF4- D0 05 BNE $2CFB +2CF6- A9 00 LDA #$00 +2CF8- 8D 9E B3 STA $B39E +2CFB- 20 28 AB JSR $AB28 +2CFE- AE 9C B3 LDX $B39C +2D01- BD C8 B4 LDA $B4C8,X +2D04- 29 7F AND #$7F +2D06- 0D 9E B3 ORA $B39E +2D09- 9D C8 B4 STA $B4C8,X +2D0C- 20 37 B0 JSR $B037 +2D0F- 4C 7F B3 JMP $B37F +2D12- 20 00 B3 JSR $B300 +2D15- 4C 7F B3 JMP $B37F +2D18- 20 28 AB JSR $AB28 +2D1B- 20 B6 B0 JSR $B0B6 +2D1E- B0 EF BCS $2D0F +2D20- EE E4 B5 INC $B5E4 +2D23- D0 F6 BNE $2D1B +2D25- EE E5 B5 INC $B5E5 +2D28- 4C 1B AD JMP $AD1B +2D2B- 20 28 AB JSR $AB28 +2D2E- AE 9C B3 LDX $B39C +2D31- BD C8 B4 LDA $B4C8,X +2D34- 10 03 BPL $2D39 +2D36- 4C 7B B3 JMP $B37B +2D39- AE 9C B3 LDX $B39C +2D3C- BD C6 B4 LDA $B4C6,X +2D3F- 8D D1 B5 STA $B5D1 +2D42- 9D E6 B4 STA $B4E6,X +2D45- A9 FF LDA #$FF +2D47- 9D C6 B4 STA $B4C6,X +2D4A- BC C7 B4 LDY $B4C7,X +2D4D- 8C D2 B5 STY $B5D2 +2D50- 20 37 B0 JSR $B037 +2D53- 18 CLC +2D54- 20 5E AF JSR $AF5E +2D57- B0 2A BCS $2D83 +2D59- 20 0C AF JSR $AF0C +2D5C- A0 0C LDY #$0C +2D5E- 8C 9C B3 STY $B39C +2D61- B1 42 LDA ($42),Y +2D63- 30 0B BMI $2D70 +2D65- F0 09 BEQ $2D70 +2D67- 48 PHA +2D68- C8 INY +2D69- B1 42 LDA ($42),Y +2D6B- A8 TAY +2D6C- 68 PLA +2D6D- 20 89 AD JSR $AD89 +2D70- AC 9C B3 LDY $B39C +2D73- C8 INY +2D74- C8 INY +2D75- D0 E7 BNE $2D5E +2D77- AD D3 B5 LDA $B5D3 +2D7A- AC D4 B5 LDY $B5D4 +2D7D- 20 89 AD JSR $AD89 +2D80- 38 SEC +2D81- B0 D1 BCS $2D54 +2D83- 20 FB AF JSR $AFFB +2D86- 4C 7F B3 JMP $B37F +2D89- 38 SEC +2D8A- 20 DD B2 JSR $B2DD +2D8D- A9 00 LDA #$00 +2D8F- A2 05 LDX #$05 +2D91- 9D F0 B5 STA $B5F0,X +2D94- CA DEX +2D95- 10 FA BPL $2D91 +2D97- 60 RTS +2D98- 20 DC AB JSR $ABDC +2D9B- A9 FF LDA #$FF +2D9D- 8D F9 B5 STA $B5F9 +2DA0- 20 F7 AF JSR $AFF7 +2DA3- A9 16 LDA #$16 +2DA5- 8D 9D B3 STA $B39D +2DA8- 20 2F AE JSR $AE2F +2DAB- 20 2F AE JSR $AE2F +2DAE- A2 0B LDX #$0B +2DB0- BD AF B3 LDA $B3AF,X +2DB3- 20 ED FD JSR $FDED F8ROM:COUT +2DB6- CA DEX +2DB7- 10 F7 BPL $2DB0 +2DB9- 86 45 STX $45 +2DBB- AD F6 B7 LDA $B7F6 +2DBE- 85 44 STA $44 +2DC0- 20 42 AE JSR $AE42 +2DC3- 20 2F AE JSR $AE2F +2DC6- 20 2F AE JSR $AE2F +2DC9- 18 CLC +2DCA- 20 11 B0 JSR $B011 +2DCD- B0 5D BCS $2E2C +2DCF- A2 00 LDX #$00 +2DD1- 8E 9C B3 STX $B39C +2DD4- BD C6 B4 LDA $B4C6,X +2DD7- F0 53 BEQ $2E2C +2DD9- 30 4A BMI $2E25 +2DDB- A0 A0 LDY #$A0 +2DDD- BD C8 B4 LDA $B4C8,X +2DE0- 10 02 BPL $2DE4 +2DE2- A0 AA LDY #$AA +2DE4- 98 TYA +2DE5- 20 ED FD JSR $FDED F8ROM:COUT +2DE8- BD C8 B4 LDA $B4C8,X +2DEB- 29 7F AND #$7F +2DED- A0 07 LDY #$07 +2DEF- 0A ASL +2DF0- 0A ASL +2DF1- B0 03 BCS $2DF6 +2DF3- 88 DEY +2DF4- D0 FA BNE $2DF0 +2DF6- B9 A7 B3 LDA $B3A7,Y +2DF9- 20 ED FD JSR $FDED F8ROM:COUT +2DFC- A9 A0 LDA #$A0 +2DFE- 20 ED FD JSR $FDED F8ROM:COUT +2E01- BD E7 B4 LDA $B4E7,X +2E04- 85 44 STA $44 +2E06- BD E8 B4 LDA $B4E8,X +2E09- 85 45 STA $45 +2E0B- 20 42 AE JSR $AE42 +2E0E- A9 A0 LDA #$A0 +2E10- 20 ED FD JSR $FDED F8ROM:COUT +2E13- E8 INX +2E14- E8 INX +2E15- E8 INX +2E16- A0 1D LDY #$1D +2E18- BD C6 B4 LDA $B4C6,X +2E1B- 20 ED FD JSR $FDED F8ROM:COUT +2E1E- E8 INX +2E1F- 88 DEY +2E20- 10 F6 BPL $2E18 +2E22- 20 2F AE JSR $AE2F +2E25- 20 30 B2 JSR $B230 +2E28- 90 A7 BCC $2DD1 +2E2A- B0 9E BCS $2DCA +2E2C- 4C 7F B3 JMP $B37F +2E2F- A9 8D LDA #$8D +2E31- 20 ED FD JSR $FDED F8ROM:COUT +2E34- CE 9D B3 DEC $B39D +2E37- D0 08 BNE $2E41 +2E39- 20 0C FD JSR $FD0C F8ROM:RDKEY +2E3C- A9 15 LDA #$15 +2E3E- 8D 9D B3 STA $B39D +2E41- 60 RTS +2E42- A0 02 LDY #$02 +2E44- A9 00 LDA #$00 +2E46- 48 PHA +2E47- A5 44 LDA $44 +2E49- D9 A4 B3 CMP $B3A4,Y +2E4C- 90 12 BCC $2E60 +2E4E- F9 A4 B3 SBC $B3A4,Y +2E51- 85 44 STA $44 +2E53- A5 45 LDA $45 +2E55- E9 00 SBC #$00 +2E57- 85 45 STA $45 +2E59- 68 PLA +2E5A- 69 00 ADC #$00 +2E5C- 48 PHA +2E5D- 4C 47 AE JMP $AE47 +2E60- 68 PLA +2E61- 09 B0 ORA #$B0 +2E63- 20 ED FD JSR $FDED F8ROM:COUT +2E66- 88 DEY +2E67- 10 DB BPL $2E44 +2E69- 60 RTS +2E6A- 20 08 AF JSR $AF08 +2E6D- A0 00 LDY #$00 +2E6F- 8C C5 B5 STY $B5C5 +2E72- B1 42 LDA ($42),Y +2E74- 99 D1 B5 STA $B5D1,Y +2E77- C8 INY +2E78- C0 2D CPY #$2D +2E7A- D0 F6 BNE $2E72 +2E7C- 18 CLC +2E7D- 60 RTS +2E7E- 20 08 AF JSR $AF08 +2E81- A0 00 LDY #$00 +2E83- B9 D1 B5 LDA $B5D1,Y +2E86- 91 42 STA ($42),Y +2E88- C8 INY +2E89- C0 2D CPY #$2D +2E8B- D0 F6 BNE $2E83 +2E8D- 60 RTS +2E8E- 20 DC AB JSR $ABDC +2E91- A9 04 LDA #$04 +2E93- 20 58 B0 JSR $B058 +2E96- AD F9 B5 LDA $B5F9 +2E99- 49 FF EOR #$FF +2E9B- 8D C1 B3 STA $B3C1 +2E9E- A9 11 LDA #$11 +2EA0- 8D EB B3 STA $B3EB +2EA3- A9 01 LDA #$01 +2EA5- 8D EC B3 STA $B3EC +2EA8- A2 38 LDX #$38 +2EAA- A9 00 LDA #$00 +2EAC- 9D BB B3 STA $B3BB,X +2EAF- E8 INX +2EB0- D0 FA BNE $2EAC +2EB2- A2 04 LDX #$04 +2EB4- E0 8C CPX #$8C +2EB6- F0 14 BEQ $2ECC +2EB8- A0 03 LDY #$03 +2EBA- B9 A0 B3 LDA $B3A0,Y +2EBD- 9D F3 B3 STA $B3F3,X +2EC0- E8 INX +2EC1- 88 DEY +2EC2- 10 F6 BPL $2EBA +2EC4- E0 44 CPX #$44 +2EC6- D0 EC BNE $2EB4 +2EC8- A2 48 LDX #$48 +2ECA- D0 E8 BNE $2EB4 +2ECC- 20 FB AF JSR $AFFB +2ECF- A2 00 LDX #$00 +2ED1- 8A TXA +2ED2- 9D BB B4 STA $B4BB,X +2ED5- E8 INX +2ED6- D0 FA BNE $2ED2 +2ED8- 20 45 B0 JSR $B045 Dvx: xProDOS_er +2EDB- A9 11 LDA #$11 +2EDD- AC F0 B3 LDY $B3F0 +2EE0- 88 DEY +2EE1- 88 DEY +2EE2- 8D EC B7 STA $B7EC +2EE5- 8D BC B4 STA $B4BC +2EE8- 8C BD B4 STY $B4BD +2EEB- C8 INY +2EEC- 8C ED B7 STY $B7ED +2EEF- A9 02 LDA #$02 +2EF1- 20 58 B0 JSR $B058 +2EF4- AC BD B4 LDY $B4BD +2EF7- 88 DEY +2EF8- 30 05 BMI $2EFF +2EFA- D0 EC BNE $2EE8 +2EFC- 98 TYA +2EFD- F0 E6 BEQ $2EE5 +2EFF- 2C C2 B7 BIT $B7C2 +2F02- 20 00 B6 JSR $B600 +2F05- 4C 7F B3 JMP $B37F +2F08- A2 00 LDX #$00 +2F0A- F0 06 BEQ $2F12 +2F0C- A2 02 LDX #$02 +2F0E- D0 02 BNE $2F12 +2F10- A2 04 LDX #$04 +2F12- BD C7 B5 LDA $B5C7,X +2F15- 85 42 STA $42 +2F17- BD C8 B5 LDA $B5C8,X +2F1A- 85 43 STA $43 +2F1C- 60 RTS +2F1D- 2C D5 B5 BIT $B5D5 +2F20- 70 01 BVS $2F23 +2F22- 60 RTS +2F23- 20 E4 AF JSR $AFE4 +2F26- A9 02 LDA #$02 +2F28- 20 52 B0 JSR $B052 +2F2B- A9 BF LDA #$BF +2F2D- 2D D5 B5 AND $B5D5 +2F30- 8D D5 B5 STA $B5D5 +2F33- 60 RTS +2F34- AD D5 B5 LDA $B5D5 +2F37- 30 01 BMI $2F3A +2F39- 60 RTS +2F3A- 20 4B AF JSR $AF4B +2F3D- A9 02 LDA #$02 +2F3F- 20 52 B0 JSR $B052 +2F42- A9 7F LDA #$7F +2F44- 2D D5 B5 AND $B5D5 +2F47- 8D D5 B5 STA $B5D5 +2F4A- 60 RTS +2F4B- AD C9 B5 LDA $B5C9 +2F4E- 8D F0 B7 STA $B7F0 +2F51- AD CA B5 LDA $B5CA +2F54- 8D F1 B7 STA $B7F1 +2F57- AE D3 B5 LDX $B5D3 +2F5A- AC D4 B5 LDY $B5D4 +2F5D- 60 RTS +2F5E- 08 PHP +2F5F- 20 34 AF JSR $AF34 +2F62- 20 4B AF JSR $AF4B +2F65- 20 0C AF JSR $AF0C +2F68- 28 PLP +2F69- B0 09 BCS $2F74 +2F6B- AE D1 B5 LDX $B5D1 +2F6E- AC D2 B5 LDY $B5D2 +2F71- 4C B5 AF JMP $AFB5 +2F74- A0 01 LDY #$01 +2F76- B1 42 LDA ($42),Y +2F78- F0 08 BEQ $2F82 +2F7A- AA TAX +2F7B- C8 INY +2F7C- B1 42 LDA ($42),Y +2F7E- A8 TAY +2F7F- 4C B5 AF JMP $AFB5 +2F82- AD BB B5 LDA $B5BB +2F85- C9 04 CMP #$04 +2F87- F0 02 BEQ $2F8B +2F89- 38 SEC +2F8A- 60 RTS +2F8B- 20 44 B2 JSR $B244 +2F8E- A0 02 LDY #$02 +2F90- 91 42 STA ($42),Y +2F92- 48 PHA +2F93- 88 DEY +2F94- AD F1 B5 LDA $B5F1 +2F97- 91 42 STA ($42),Y +2F99- 48 PHA +2F9A- 20 3A AF JSR $AF3A +2F9D- 20 D6 B7 JSR $B7D6 +2FA0- A0 05 LDY #$05 +2FA2- AD DE B5 LDA $B5DE +2FA5- 91 42 STA ($42),Y +2FA7- C8 INY +2FA8- AD DF B5 LDA $B5DF +2FAB- 91 42 STA ($42),Y +2FAD- 68 PLA +2FAE- AA TAX +2FAF- 68 PLA +2FB0- A8 TAY +2FB1- A9 02 LDA #$02 +2FB3- D0 02 BNE $2FB7 +2FB5- A9 01 LDA #$01 +2FB7- 8E D3 B5 STX $B5D3 +2FBA- 8C D4 B5 STY $B5D4 +2FBD- 20 52 B0 JSR $B052 +2FC0- A0 05 LDY #$05 +2FC2- B1 42 LDA ($42),Y +2FC4- 8D DC B5 STA $B5DC +2FC7- 18 CLC +2FC8- 6D DA B5 ADC $B5DA +2FCB- 8D DE B5 STA $B5DE +2FCE- C8 INY +2FCF- B1 42 LDA ($42),Y +2FD1- 8D DD B5 STA $B5DD +2FD4- 6D DB B5 ADC $B5DB +2FD7- 8D DF B5 STA $B5DF +2FDA- 18 CLC +2FDB- 60 RTS +2FDC- 20 E4 AF JSR $AFE4 +2FDF- A9 01 LDA #$01 +2FE1- 4C 52 B0 JMP $B052 +2FE4- AC CB B5 LDY $B5CB +2FE7- AD CC B5 LDA $B5CC +2FEA- 8C F0 B7 STY $B7F0 +2FED- 8D F1 B7 STA $B7F1 +2FF0- AE D6 B5 LDX $B5D6 +2FF3- AC D7 B5 LDY $B5D7 +2FF6- 60 RTS +2FF7- A9 01 LDA #$01 +2FF9- D0 02 BNE $2FFD +2FFB- A9 02 LDA #$02 +2FFD- AC C3 AA LDY $AAC3 +3000- 8C F0 B7 STY $B7F0 +3003- AC C4 AA LDY $AAC4 +3006- 8C F1 B7 STY $B7F1 +3009- AE FA B5 LDX $B5FA +300C- A0 02 LDY #$02 +300E- 4C 52 B0 JMP $B052 +3011- 08 PHP +3012- 20 45 B0 JSR $B045 Dvx: xProDOS_er +3015- 28 PLP +3016- B0 08 BCS $3020 +3018- AC BD B3 LDY $B3BD +301B- AE BC B3 LDX $B3BC +301E- D0 0A BNE $302A +3020- AE BC B4 LDX $B4BC +3023- D0 02 BNE $3027 +3025- 38 SEC +3026- 60 RTS +3027- AC BD B4 LDY $B4BD +302A- 8E 97 B3 STX $B397 +302D- 8C 98 B3 STY $B398 +3030- A9 01 LDA #$01 +3032- 20 52 B0 JSR $B052 +3035- 18 CLC +3036- 60 RTS +3037- 20 45 B0 JSR $B045 Dvx: xProDOS_er +303A- AE 97 B3 LDX $B397 +303D- AC 98 B3 LDY $B398 +3040- A9 02 LDA #$02 +3042- 4C 52 B0 JMP $B052 +3045- AD C5 AA LDA $AAC5 +3048- 8D F0 B7 STA $B7F0 +304B- AD C6 AA LDA $AAC6 +304E- 8D F1 B7 STA $B7F1 +3051- 60 RTS +3052- 8E EC B7 STX $B7EC +3055- 8C ED B7 STY $B7ED +3058- 8D F4 B7 STA $B7F4 +305B- C9 02 CMP #$02 +305D- D0 06 BNE $3065 +305F- 0D D5 B5 ORA $B5D5 +3062- 8D D5 B5 STA $B5D5 +3065- AD F9 B5 LDA $B5F9 +3068- 49 FF EOR #$FF +306A- 8D EB B7 STA $B7EB +306D- AD F7 B5 LDA $B5F7 +3070- 8D E9 B7 STA $B7E9 +3073- AD F8 B5 LDA $B5F8 +3076- 8D EA B7 STA $B7EA +3079- AD E2 B5 LDA $B5E2 +307C- 8D F2 B7 STA $B7F2 +307F- AD E3 B5 LDA $B5E3 +3082- 8D F3 B7 STA $B7F3 +3085- A9 01 LDA #$01 +3087- 8D E8 B7 STA $B7E8 +308A- AC C1 AA LDY $AAC1 +308D- AD C2 AA LDA $AAC2 +3090- 20 B5 B7 JSR $B7B5 +3093- AD F6 B7 LDA $B7F6 +3096- 8D BF B5 STA $B5BF +3099- A9 FF LDA #$FF +309B- 8D EB B7 STA $B7EB +309E- B0 01 BCS $30A1 +30A0- 60 RTS +30A1- AD F5 B7 LDA $B7F5 +30A4- A0 07 LDY #$07 +30A6- C9 20 CMP #$20 +30A8- F0 08 BEQ $30B2 +30AA- A0 04 LDY #$04 +30AC- C9 10 CMP #$10 +30AE- F0 02 BEQ $30B2 +30B0- A0 08 LDY #$08 +30B2- 98 TYA +30B3- 4C 85 B3 JMP $B385 +30B6- AD E4 B5 LDA $B5E4 +30B9- CD E0 B5 CMP $B5E0 +30BC- D0 08 BNE $30C6 +30BE- AD E5 B5 LDA $B5E5 +30C1- CD E1 B5 CMP $B5E1 +30C4- F0 66 BEQ $312C +30C6- 20 1D AF JSR $AF1D +30C9- AD E5 B5 LDA $B5E5 +30CC- CD DD B5 CMP $B5DD +30CF- 90 1C BCC $30ED +30D1- D0 08 BNE $30DB +30D3- AD E4 B5 LDA $B5E4 +30D6- CD DC B5 CMP $B5DC +30D9- 90 12 BCC $30ED +30DB- AD E5 B5 LDA $B5E5 +30DE- CD DF B5 CMP $B5DF +30E1- 90 10 BCC $30F3 +30E3- D0 08 BNE $30ED +30E5- AD E4 B5 LDA $B5E4 +30E8- CD DE B5 CMP $B5DE +30EB- 90 06 BCC $30F3 +30ED- 20 5E AF JSR $AF5E +30F0- 90 D7 BCC $30C9 +30F2- 60 RTS +30F3- 38 SEC +30F4- AD E4 B5 LDA $B5E4 +30F7- ED DC B5 SBC $B5DC +30FA- 0A ASL +30FB- 69 0C ADC #$0C +30FD- A8 TAY +30FE- 20 0C AF JSR $AF0C +3101- B1 42 LDA ($42),Y +3103- D0 0F BNE $3114 +3105- AD BB B5 LDA $B5BB +3108- C9 04 CMP #$04 +310A- F0 02 BEQ $310E +310C- 38 SEC +310D- 60 RTS +310E- 20 34 B1 JSR $B134 +3111- 4C 20 B1 JMP $B120 +3114- 8D D6 B5 STA $B5D6 +3117- C8 INY +3118- B1 42 LDA ($42),Y +311A- 8D D7 B5 STA $B5D7 +311D- 20 DC AF JSR $AFDC +3120- AD E4 B5 LDA $B5E4 +3123- 8D E0 B5 STA $B5E0 +3126- AD E5 B5 LDA $B5E5 +3129- 8D E1 B5 STA $B5E1 +312C- 20 10 AF JSR $AF10 +312F- AC E6 B5 LDY $B5E6 +3132- 18 CLC +3133- 60 RTS +3134- 8C 9D B3 STY $B39D +3137- 20 44 B2 JSR $B244 +313A- AC 9D B3 LDY $B39D +313D- C8 INY +313E- 91 42 STA ($42),Y +3140- 8D D7 B5 STA $B5D7 +3143- 88 DEY +3144- AD F1 B5 LDA $B5F1 +3147- 91 42 STA ($42),Y +3149- 8D D6 B5 STA $B5D6 +314C- 20 10 AF JSR $AF10 +314F- 20 D6 B7 JSR $B7D6 +3152- A9 C0 LDA #$C0 +3154- 0D D5 B5 ORA $B5D5 +3157- 8D D5 B5 STA $B5D5 +315A- 60 RTS +315B- AE EA B5 LDX $B5EA +315E- 8E BD B5 STX $B5BD +3161- AE EB B5 LDX $B5EB +3164- 8E BE B5 STX $B5BE +3167- AE EC B5 LDX $B5EC +316A- AC ED B5 LDY $B5ED +316D- 8E BF B5 STX $B5BF +3170- 8C C0 B5 STY $B5C0 +3173- E8 INX +3174- D0 01 BNE $3177 +3176- C8 INY +3177- CC E9 B5 CPY $B5E9 +317A- D0 11 BNE $318D +317C- EC E8 B5 CPX $B5E8 +317F- D0 0C BNE $318D +3181- A2 00 LDX #$00 +3183- A0 00 LDY #$00 +3185- EE EA B5 INC $B5EA +3188- D0 03 BNE $318D +318A- EE EB B5 INC $B5EB +318D- 8E EC B5 STX $B5EC +3190- 8C ED B5 STY $B5ED +3193- 60 RTS +3194- EE E6 B5 INC $B5E6 +3197- D0 08 BNE $31A1 +3199- EE E4 B5 INC $B5E4 +319C- D0 03 BNE $31A1 +319E- EE E5 B5 INC $B5E5 +31A1- 60 RTS +31A2- AC C3 B5 LDY $B5C3 +31A5- AE C4 B5 LDX $B5C4 +31A8- 84 42 STY $42 +31AA- 86 43 STX $43 +31AC- EE C3 B5 INC $B5C3 +31AF- D0 03 BNE $31B4 +31B1- EE C4 B5 INC $B5C4 +31B4- 60 RTS +31B5- AC C1 B5 LDY $B5C1 +31B8- D0 08 BNE $31C2 +31BA- AE C2 B5 LDX $B5C2 +31BD- F0 07 BEQ $31C6 +31BF- CE C2 B5 DEC $B5C2 +31C2- CE C1 B5 DEC $B5C1 +31C5- 60 RTS +31C6- 4C 7F B3 JMP $B37F +31C9- 20 F7 AF JSR $AFF7 +31CC- AD C3 B5 LDA $B5C3 +31CF- 85 42 STA $42 +31D1- AD C4 B5 LDA $B5C4 +31D4- 85 43 STA $43 +31D6- A9 01 LDA #$01 +31D8- 8D 9D B3 STA $B39D +31DB- A9 00 LDA #$00 +31DD- 8D D8 B5 STA $B5D8 +31E0- 18 CLC +31E1- EE D8 B5 INC $B5D8 +31E4- 20 11 B0 JSR $B011 +31E7- B0 51 BCS $323A +31E9- A2 00 LDX #$00 +31EB- 8E 9C B3 STX $B39C +31EE- BD C6 B4 LDA $B4C6,X +31F1- F0 1F BEQ $3212 +31F3- 30 22 BMI $3217 +31F5- A0 00 LDY #$00 +31F7- E8 INX +31F8- E8 INX +31F9- E8 INX +31FA- B1 42 LDA ($42),Y +31FC- DD C6 B4 CMP $B4C6,X +31FF- D0 0A BNE $320B +3201- C8 INY +3202- C0 1E CPY #$1E +3204- D0 F3 BNE $31F9 +3206- AE 9C B3 LDX $B39C +3209- 18 CLC +320A- 60 RTS +320B- 20 30 B2 JSR $B230 +320E- 90 DB BCC $31EB +3210- B0 CF BCS $31E1 +3212- AC 9D B3 LDY $B39D +3215- D0 C1 BNE $31D8 +3217- AC 9D B3 LDY $B39D +321A- D0 EF BNE $320B +321C- A0 00 LDY #$00 +321E- E8 INX +321F- E8 INX +3220- E8 INX +3221- B1 42 LDA ($42),Y +3223- 9D C6 B4 STA $B4C6,X +3226- C8 INY +3227- C0 1E CPY #$1E +3229- D0 F5 BNE $3220 +322B- AE 9C B3 LDX $B39C +322E- 38 SEC +322F- 60 RTS +3230- 18 CLC +3231- AD 9C B3 LDA $B39C +3234- 69 23 ADC #$23 +3236- AA TAX +3237- E0 F5 CPX #$F5 +3239- 60 RTS +323A- A9 00 LDA #$00 +323C- AC 9D B3 LDY $B39D +323F- D0 97 BNE $31D8 +3241- 4C 77 B3 JMP $B377 +3244- AD F1 B5 LDA $B5F1 +3247- F0 21 BEQ $326A +3249- CE F0 B5 DEC $B5F0 +324C- 30 17 BMI $3265 +324E- 18 CLC +324F- A2 04 LDX #$04 +3251- 3E F1 B5 ROL $B5F1,X +3254- CA DEX +3255- D0 FA BNE $3251 +3257- 90 F0 BCC $3249 +3259- EE EE B5 INC $B5EE +325C- D0 03 BNE $3261 +325E- EE EF B5 INC $B5EF +3261- AD F0 B5 LDA $B5F0 +3264- 60 RTS +3265- A9 00 LDA #$00 +3267- 8D F1 B5 STA $B5F1 +326A- A9 00 LDA #$00 +326C- 8D 9E B3 STA $B39E +326F- 20 F7 AF JSR $AFF7 +3272- 18 CLC +3273- AD EB B3 LDA $B3EB +3276- 6D EC B3 ADC $B3EC +3279- F0 09 BEQ $3284 +327B- CD EF B3 CMP $B3EF +327E- 90 14 BCC $3294 +3280- A9 FF LDA #$FF +3282- D0 0A BNE $328E +3284- AD 9E B3 LDA $B39E +3287- D0 37 BNE $32C0 +3289- A9 01 LDA #$01 +328B- 8D 9E B3 STA $B39E +328E- 8D EC B3 STA $B3EC +3291- 18 CLC +3292- 69 11 ADC #$11 +3294- 8D EB B3 STA $B3EB +3297- 8D F1 B5 STA $B5F1 +329A- A8 TAY +329B- 0A ASL +329C- 0A ASL +329D- A8 TAY +329E- A2 04 LDX #$04 +32A0- 18 CLC +32A1- B9 F6 B3 LDA $B3F6,Y +32A4- 9D F1 B5 STA $B5F1,X +32A7- F0 06 BEQ $32AF +32A9- 38 SEC +32AA- A9 00 LDA #$00 +32AC- 99 F6 B3 STA $B3F6,Y +32AF- 88 DEY +32B0- CA DEX +32B1- D0 EE BNE $32A1 +32B3- 90 BD BCC $3272 +32B5- 20 FB AF JSR $AFFB +32B8- AD F0 B3 LDA $B3F0 +32BB- 8D F0 B5 STA $B5F0 +32BE- D0 89 BNE $3249 +32C0- 4C 77 B3 JMP $B377 +32C3- AD F1 B5 LDA $B5F1 +32C6- D0 01 BNE $32C9 +32C8- 60 RTS +32C9- 48 PHA +32CA- 20 F7 AF JSR $AFF7 +32CD- AC F0 B5 LDY $B5F0 +32D0- 68 PLA +32D1- 18 CLC +32D2- 20 DD B2 JSR $B2DD +32D5- A9 00 LDA #$00 +32D7- 8D F1 B5 STA $B5F1 +32DA- 4C FB AF JMP $AFFB +32DD- A2 FC LDX #$FC +32DF- 7E F6 B4 ROR $B4F6,X +32E2- E8 INX +32E3- D0 FA BNE $32DF +32E5- C8 INY +32E6- CC F0 B3 CPY $B3F0 +32E9- D0 F2 BNE $32DD +32EB- 0A ASL +32EC- 0A ASL +32ED- A8 TAY +32EE- F0 0F BEQ $32FF +32F0- A2 04 LDX #$04 +32F2- BD F1 B5 LDA $B5F1,X +32F5- 19 F6 B3 ORA $B3F6,Y +32F8- 99 F6 B3 STA $B3F6,Y +32FB- 88 DEY +32FC- CA DEX +32FD- D0 F3 BNE $32F2 +32FF- 60 RTS +3300- AD BD B5 LDA $B5BD +3303- 8D E6 B5 STA $B5E6 +3306- 8D EA B5 STA $B5EA +3309- AD BE B5 LDA $B5BE +330C- 8D E4 B5 STA $B5E4 +330F- 8D EB B5 STA $B5EB +3312- A9 00 LDA #$00 +3314- 8D E5 B5 STA $B5E5 +3317- A0 10 LDY #$10 +3319- AA TAX +331A- AD E6 B5 LDA $B5E6 +331D- 4A LSR +331E- B0 03 BCS $3323 +3320- 8A TXA +3321- 90 0E BCC $3331 +3323- 18 CLC +3324- AD E5 B5 LDA $B5E5 +3327- 6D E8 B5 ADC $B5E8 +332A- 8D E5 B5 STA $B5E5 +332D- 8A TXA +332E- 6D E9 B5 ADC $B5E9 +3331- 6A ROR +3332- 6E E5 B5 ROR $B5E5 +3335- 6E E4 B5 ROR $B5E4 +3338- 6E E6 B5 ROR $B5E6 +333B- 88 DEY +333C- D0 DB BNE $3319 +333E- 18 CLC +333F- AD BF B5 LDA $B5BF +3342- 8D EC B5 STA $B5EC +3345- 6D E6 B5 ADC $B5E6 +3348- 8D E6 B5 STA $B5E6 +334B- AD C0 B5 LDA $B5C0 +334E- 8D ED B5 STA $B5ED +3351- 6D E4 B5 ADC $B5E4 +3354- 8D E4 B5 STA $B5E4 +3357- 90 03 BCC $335C +3359- EE E5 B5 INC $B5E5 +335C- 60 RTS +335D- 00 BRK +335E- 00 BRK +335F- A9 01 LDA #$01 +3361- D0 22 BNE $3385 +3363- A9 02 LDA #$02 +3365- D0 1E BNE $3385 +3367- A9 03 LDA #$03 +3369- D0 1A BNE $3385 +336B- A9 04 LDA #$04 +336D- D0 16 BNE $3385 +336F- A9 05 LDA #$05 +3371- D0 12 BNE $3385 +3373- A9 06 LDA #$06 +3375- D0 0E BNE $3385 +3377- 4C ED BF JMP $BFED +337A- EA NOP +337B- A9 0A LDA #$0A +337D- D0 06 BNE $3385 +337F- AD C5 B5 LDA $B5C5 +3382- 18 CLC +3383- 90 01 BCC $3386 +3385- 38 SEC +3386- 08 PHP +3387- 8D C5 B5 STA $B5C5 +338A- A9 00 LDA #$00 +338C- 85 48 STA $48 +338E- 20 7E AE JSR $AE7E +3391- 28 PLP +3392- AE 9B B3 LDX $B39B +3395- 9A TXS +3396- 60 RTS +3397- 11 0C ORA ($0C),Y +3399- 00 BRK +339A- 00 BRK +339B- EE 69 11 INC $1169 +339E- 00 BRK +339F- 00 BRK +33A0- 00 BRK +33A1- 00 BRK +33A2- FF ??? +33A3- FF ??? +33A4- 01 0A ORA ($0A,X) +33A6- 64 D4 STZ $D4 +33A8- C9 C1 CMP #$C1 +33AA- C2 ??? +33AB- D3 ??? +33AC- D2 C1 CMP ($C1) +33AE- C2 ??? +33AF- A0 C5 LDY #$C5 +33B1- CD D5 CC CMP $CCD5 +33B4- CF ??? +33B5- D6 A0 DEC $A0,X +33B7- CB ??? +33B8- D3 ??? +33B9- C9 C4 CMP #$C4 +33BB- 04 11 TSB $11 +33BD- 0F ??? +33BE- 03 ??? +33BF- 00 BRK +33C0- 00 BRK +33C1- FE 00 00 INC $0000,X +33C4- 00 BRK +33C5- 00 BRK +33C6- 00 BRK +33C7- 00 BRK +33C8- 00 BRK +33C9- 00 BRK +33CA- 00 BRK +33CB- 00 BRK +33CC- 00 BRK +33CD- 00 BRK +33CE- 00 BRK +33CF- 00 BRK +33D0- 00 BRK +33D1- 00 BRK +33D2- 00 BRK +33D3- 00 BRK +33D4- 00 BRK +33D5- 00 BRK +33D6- 00 BRK +33D7- 00 BRK +33D8- 00 BRK +33D9- 00 BRK +33DA- 00 BRK +33DB- 00 BRK +33DC- 00 BRK +33DD- 00 BRK +33DE- 00 BRK +33DF- 00 BRK +33E0- 00 BRK +33E1- 00 BRK +33E2- 7A PLY +33E3- 00 BRK +33E4- 00 BRK +33E5- 00 BRK +33E6- 00 BRK +33E7- 00 BRK +33E8- 00 BRK +33E9- 00 BRK +33EA- 00 BRK +33EB- 04 FF TSB $FF +33ED- 00 BRK +33EE- 00 BRK +33EF- 23 ??? +33F0- 10 00 BPL $33F2 +33F2- 01 00 ORA ($00,X) +33F4- 00 BRK +33F5- 00 BRK +33F6- 00 BRK +33F7- 00 BRK +33F8- 00 BRK +33F9- 00 BRK +33FA- 00 BRK +33FB- 00 BRK +33FC- 00 BRK +33FD- 00 BRK +33FE- 00 BRK +33FF- 9F ??? +3400- FF ??? +3401- 00 BRK +3402- 00 BRK +3403- 03 ??? +3404- FF ??? +3405- 00 BRK +3406- 00 BRK +3407- 00 BRK +3408- 00 BRK +3409- 00 BRK +340A- 00 BRK +340B- 00 BRK +340C- 00 BRK +340D- 00 BRK +340E- 00 BRK +340F- 00 BRK +3410- 00 BRK +3411- 00 BRK +3412- 00 BRK +3413- 07 ??? +3414- FF ??? +3415- 00 BRK +3416- 00 BRK +3417- 00 BRK +3418- 00 BRK +3419- 00 BRK +341A- 00 BRK +341B- 00 BRK +341C- 00 BRK +341D- 00 BRK +341E- 00 BRK +341F- 00 BRK +3420- 00 BRK +3421- 00 BRK +3422- 00 BRK +3423- 00 BRK +3424- 00 BRK +3425- 00 BRK +3426- 00 BRK +3427- 00 BRK +3428- 00 BRK +3429- 00 BRK +342A- 00 BRK +342B- 00 BRK +342C- 00 BRK +342D- 00 BRK +342E- 00 BRK +342F- 00 BRK +3430- 00 BRK +3431- 00 BRK +3432- 00 BRK +3433- 3C 00 00 BIT $0000,X +3436- 00 BRK +3437- 00 BRK +3438- 00 BRK +3439- 00 BRK +343A- 00 BRK +343B- 00 BRK +343C- 00 BRK +343D- 00 BRK +343E- 00 BRK +343F- 01 FF ORA ($FF,X) +3441- 00 BRK +3442- 00 BRK +3443- 3F ??? +3444- FF ??? +3445- 00 BRK +3446- 00 BRK +3447- 00 BRK +3448- 00 BRK +3449- 00 BRK +344A- 00 BRK +344B- 00 BRK +344C- FF ??? +344D- 00 BRK +344E- 00 BRK +344F- 00 BRK +3450- 00 BRK +3451- 00 BRK +3452- 00 BRK +3453- 01 FF ORA ($FF,X) +3455- 00 BRK +3456- 00 BRK +3457- 00 BRK +3458- 00 BRK +3459- 00 BRK +345A- 00 BRK +345B- 00 BRK +345C- 00 BRK +345D- 00 BRK +345E- 00 BRK +345F- 00 BRK +3460- 00 BRK +3461- 00 BRK +3462- 00 BRK +3463- 00 BRK +3464- 00 BRK +3465- 00 BRK +3466- 00 BRK +3467- 00 BRK +3468- 00 BRK +3469- 00 BRK +346A- 00 BRK +346B- 00 BRK +346C- 00 BRK +346D- 00 BRK +346E- 00 BRK +346F- F8 SED +3470- 00 BRK +3471- 00 BRK +3472- 00 BRK +3473- 00 BRK +3474- 00 BRK +3475- 00 BRK +3476- 00 BRK +3477- 00 BRK +3478- 00 BRK +3479- 00 BRK +347A- 00 BRK +347B- 00 BRK +347C- 00 BRK +347D- 00 BRK +347E- 00 BRK +347F- 00 BRK +3480- 00 BRK +3481- 00 BRK +3482- 00 BRK +3483- 00 BRK +3484- 00 BRK +3485- 00 BRK +3486- 00 BRK +3487- 00 BRK +3488- 00 BRK +3489- 00 BRK +348A- 00 BRK +348B- 00 BRK +348C- 00 BRK +348D- 00 BRK +348E- 00 BRK +348F- 00 BRK +3490- 00 BRK +3491- 00 BRK +3492- 00 BRK +3493- 00 BRK +3494- 00 BRK +3495- 00 BRK +3496- 00 BRK +3497- 00 BRK +3498- 00 BRK +3499- 00 BRK +349A- 00 BRK +349B- 00 BRK +349C- 00 BRK +349D- 00 BRK +349E- 00 BRK +349F- 00 BRK +34A0- 00 BRK +34A1- 00 BRK +34A2- 00 BRK +34A3- 00 BRK +34A4- 00 BRK +34A5- 00 BRK +34A6- 00 BRK +34A7- 00 BRK +34A8- 00 BRK +34A9- 00 BRK +34AA- 00 BRK +34AB- 00 BRK +34AC- 00 BRK +34AD- 00 BRK +34AE- 00 BRK +34AF- 00 BRK +34B0- 00 BRK +34B1- 00 BRK +34B2- 00 BRK +34B3- 00 BRK +34B4- 00 BRK +34B5- 00 BRK +34B6- 00 BRK +34B7- 00 BRK +34B8- 00 BRK +34B9- 00 BRK +34BA- 00 BRK +34BB- 00 BRK +34BC- 11 0B ORA ($0B),Y +34BE- 00 BRK +34BF- 04 04 TSB $04 +34C1- 00 BRK +34C2- 00 BRK +34C3- 00 BRK +34C4- 00 BRK +34C5- 00 BRK +34C6- FF ??? +34C7- 0D 04 C6 ORA $C604 +34CA- D5 CE CMP $CE,X +34CC- C4 C1 CPY $C1 +34CE- D4 ??? +34CF- C1 A0 CMP ($A0,X) +34D1- A0 A0 LDY #$A0 +34D3- A0 A0 LDY #$A0 +34D5- A0 A0 LDY #$A0 +34D7- A0 A0 LDY #$A0 +34D9- A0 A0 LDY #$A0 +34DB- A0 A0 LDY #$A0 +34DD- A0 A0 LDY #$A0 +34DF- A0 A0 LDY #$A0 +34E1- A0 A0 LDY #$A0 +34E3- A0 A0 LDY #$A0 +34E5- A0 10 LDY #$10 +34E7- 04 00 TSB $00 +34E9- 0A ASL +34EA- 01 04 ORA ($04,X) +34EC- C1 CC CMP ($CC,X) +34EE- CC C4 C1 CPY $C1C4 +34F1- D4 ??? +34F2- C1 A1 CMP ($A1,X) +34F4- A0 A0 LDY #$A0 +34F6- A0 A0 LDY #$A0 +34F8- A0 A0 LDY #$A0 +34FA- A0 A0 LDY #$A0 +34FC- A0 A0 LDY #$A0 +34FE- A0 A0 LDY #$A0 +3500- A0 A0 LDY #$A0 +3502- A0 A0 LDY #$A0 +3504- A0 A0 LDY #$A0 +3506- A0 A0 LDY #$A0 +3508- A0 A0 LDY #$A0 +350A- 05 24 ORA $24 +350C- 04 0D TSB $0D +350E- 04 D4 TSB $D4 +3510- D5 D2 CMP $D2,X +3512- C2 ??? +3513- CF ??? +3514- A0 A0 LDY #$A0 +3516- A0 A0 LDY #$A0 +3518- A0 A0 LDY #$A0 +351A- A0 A0 LDY #$A0 +351C- A0 A0 LDY #$A0 +351E- A0 A0 LDY #$A0 +3520- A0 A0 LDY #$A0 +3522- A0 A0 LDY #$A0 +3524- A0 A0 LDY #$A0 +3526- A0 A0 LDY #$A0 +3528- A0 A0 LDY #$A0 +352A- A0 A0 LDY #$A0 +352C- A0 04 LDY #$04 +352E- 24 00 BIT $00 +3530- 00 BRK +3531- 00 BRK +3532- 00 BRK +3533- 00 BRK +3534- 00 BRK +3535- 00 BRK +3536- 00 BRK +3537- 00 BRK +3538- 00 BRK +3539- 00 BRK +353A- 00 BRK +353B- 00 BRK +353C- 00 BRK +353D- 00 BRK +353E- 00 BRK +353F- 00 BRK +3540- 00 BRK +3541- 00 BRK +3542- 00 BRK +3543- 00 BRK +3544- 00 BRK +3545- 00 BRK +3546- 00 BRK +3547- 00 BRK +3548- 00 BRK +3549- 00 BRK +354A- 00 BRK +354B- 00 BRK +354C- 00 BRK +354D- 00 BRK +354E- 00 BRK +354F- 00 BRK +3550- 00 BRK +3551- 00 BRK +3552- 00 BRK +3553- 00 BRK +3554- 00 BRK +3555- 00 BRK +3556- 00 BRK +3557- 00 BRK +3558- 00 BRK +3559- 00 BRK +355A- 00 BRK +355B- 00 BRK +355C- 00 BRK +355D- 00 BRK +355E- 00 BRK +355F- 00 BRK +3560- 00 BRK +3561- 00 BRK +3562- 00 BRK +3563- 00 BRK +3564- 00 BRK +3565- 00 BRK +3566- 00 BRK +3567- 00 BRK +3568- 00 BRK +3569- 00 BRK +356A- 00 BRK +356B- 00 BRK +356C- 00 BRK +356D- 00 BRK +356E- 00 BRK +356F- 00 BRK +3570- 00 BRK +3571- 00 BRK +3572- 00 BRK +3573- 00 BRK +3574- 00 BRK +3575- 00 BRK +3576- 00 BRK +3577- 00 BRK +3578- 00 BRK +3579- 00 BRK +357A- 00 BRK +357B- 00 BRK +357C- 00 BRK +357D- 00 BRK +357E- 00 BRK +357F- 00 BRK +3580- 00 BRK +3581- 00 BRK +3582- 00 BRK +3583- 00 BRK +3584- 00 BRK +3585- 00 BRK +3586- 00 BRK +3587- 00 BRK +3588- 00 BRK +3589- 00 BRK +358A- 00 BRK +358B- 00 BRK +358C- 00 BRK +358D- 00 BRK +358E- 00 BRK +358F- 00 BRK +3590- 00 BRK +3591- 00 BRK +3592- 00 BRK +3593- 00 BRK +3594- 00 BRK +3595- 00 BRK +3596- 00 BRK +3597- 00 BRK +3598- 00 BRK +3599- 00 BRK +359A- 00 BRK +359B- 00 BRK +359C- 00 BRK +359D- 00 BRK +359E- 00 BRK +359F- 00 BRK +35A0- 00 BRK +35A1- 00 BRK +35A2- 00 BRK +35A3- 00 BRK +35A4- 00 BRK +35A5- 00 BRK +35A6- 00 BRK +35A7- 00 BRK +35A8- 00 BRK +35A9- 00 BRK +35AA- 00 BRK +35AB- 00 BRK +35AC- 00 BRK +35AD- 00 BRK +35AE- 00 BRK +35AF- 00 BRK +35B0- 00 BRK +35B1- 00 BRK +35B2- 00 BRK +35B3- 00 BRK +35B4- 00 BRK +35B5- 00 BRK +35B6- 00 BRK +35B7- 00 BRK +35B8- 00 BRK +35B9- 00 BRK +35BA- 00 BRK +35BB- 06 00 ASL $00 +35BD- 01 00 ORA ($00,X) +35BF- FE 01 06 INC $0601,X +35C2- 00 BRK +35C3- 75 AA ADC $AA,X +35C5- 00 BRK +35C6- 00 BRK +35C7- A6 9C LDX $9C +35C9- A6 9B LDX $9B +35CB- A6 9A LDX $9A +35CD- 00 BRK +35CE- 00 BRK +35CF- 00 BRK +35D0- 00 BRK +35D1- 00 BRK +35D2- 00 BRK +35D3- 00 BRK +35D4- 00 BRK +35D5- 00 BRK +35D6- 00 BRK +35D7- 00 BRK +35D8- 00 BRK +35D9- 00 BRK +35DA- 00 BRK +35DB- 00 BRK +35DC- 00 BRK +35DD- 00 BRK +35DE- 00 BRK +35DF- 00 BRK +35E0- 00 BRK +35E1- 00 BRK +35E2- 00 BRK +35E3- 00 BRK +35E4- 00 BRK +35E5- 00 BRK +35E6- 00 BRK +35E7- 00 BRK +35E8- 00 BRK +35E9- 00 BRK +35EA- 00 BRK +35EB- 00 BRK +35EC- 00 BRK +35ED- 00 BRK +35EE- 00 BRK +35EF- 00 BRK +35F0- 00 BRK +35F1- 00 BRK +35F2- 00 BRK +35F3- 00 BRK +35F4- 00 BRK +35F5- 00 BRK +35F6- 00 BRK +35F7- 60 RTS +35F8- 01 FF ORA ($FF,X) +35FA- 11 00 ORA ($00),Y +35FC- 00 BRK +35FD- 00 BRK +35FE- FD FE A9 SBC $A9FE,X +3601- 00 BRK +3602- 8D EB B7 STA $B7EB +3605- 8D EC B7 STA $B7EC +3608- 8D ED B7 STA $B7ED +360B- 8D F0 B7 STA $B7F0 +360E- A9 B7 LDA #$B7 +3610- 8D F1 B7 STA $B7F1 +3613- 20 E3 03 JSR $03E3 +3616- 4C D9 03 JMP $03D9 +3619- A0 00 LDY #$00 +361B- A9 FF LDA #$FF +361D- 99 00 BB STA $BB00,Y +3620- C8 INY +3621- D0 FA BNE $361D +3623- AE F8 05 LDX $05F8 +3626- BD 89 C0 LDA $C089,X +3629- BD 8C C0 LDA $C08C,X +362C- 10 FB BPL $3629 +362E- C9 D4 CMP #$D4 +3630- D0 F1 BNE $3623 +3632- 20 E5 B6 JSR $B6E5 +3635- C9 D5 CMP #$D5 +3637- D0 F5 BNE $362E +3639- 20 E5 B6 JSR $B6E5 +363C- C9 DE CMP #$DE +363E- D0 F5 BNE $3635 +3640- 20 E5 B6 JSR $B6E5 +3643- C9 D4 CMP #$D4 +3645- D0 F5 BNE $363C +3647- EA NOP +3648- BD 8C C0 LDA $C08C,X +364B- 10 FB BPL $3648 +364D- 2A ROL +364E- 85 26 STA $26 +3650- BD 8C C0 LDA $C08C,X +3653- 10 FB BPL $3650 +3655- 25 26 AND $26 +3657- A8 TAY +3658- 4C B5 B6 JMP $B6B5 +365B- 00 BRK +365C- 00 BRK +365D- 00 BRK +365E- 20 64 A7 JSR $A764 +3661- B0 08 BCS $366B +3663- A9 00 LDA #$00 +3665- A8 TAY +3666- 8D 5D B6 STA $B65D +3669- 91 40 STA ($40),Y +366B- AD C5 B5 LDA $B5C5 +366E- 4C D2 A6 JMP $A6D2 +3671- AD 5D B6 LDA $B65D +3674- F0 08 BEQ $367E +3676- EE BD B5 INC $B5BD +3679- D0 03 BNE $367E +367B- EE BE B5 INC $B5BE +367E- A9 00 LDA #$00 +3680- 8D 5D B6 STA $B65D +3683- 4C 84 BA JMP $BA84 +3686- 8D BC B5 STA $B5BC +3689- 20 A8 A6 JSR $A6A8 +368C- 20 EA A2 JSR $A2EA +368F- 4C 7D A2 JMP $A27D +3692- A0 13 LDY #$13 +3694- B1 42 LDA ($42),Y +3696- D0 14 BNE $36AC +3698- C8 INY +3699- C0 17 CPY #$17 +369B- D0 F7 BNE $3694 +369D- A0 19 LDY #$19 +369F- B1 42 LDA ($42),Y +36A1- 99 A4 B5 STA $B5A4,Y +36A4- C8 INY +36A5- C0 1D CPY #$1D +36A7- D0 F6 BNE $369F +36A9- 4C BB A6 JMP $A6BB +36AC- A2 FF LDX #$FF +36AE- 8E 5D B6 STX $B65D +36B1- D0 F6 BNE $36A9 +36B3- 00 BRK +36B4- 00 BRK +36B5- 20 E5 B6 JSR $B6E5 +36B8- C9 F5 CMP #$F5 +36BA- D0 20 BNE $36DC +36BC- 20 E5 B6 JSR $B6E5 +36BF- C9 AA CMP #$AA +36C1- D0 19 BNE $36DC +36C3- B9 00 BB LDA $BB00,Y +36C6- 10 14 BPL $36DC +36C8- A9 00 LDA #$00 +36CA- 99 00 BB STA $BB00,Y +36CD- AA TAX +36CE- A8 TAY +36CF- B9 00 BB LDA $BB00,Y +36D2- 30 01 BMI $36D5 +36D4- E8 INX +36D5- C8 INY +36D6- D0 F7 BNE $36CF +36D8- E0 A0 CPX #$A0 +36DA- B0 03 BCS $36DF +36DC- 4C 23 B6 JMP $B623 +36DF- AE F8 05 LDX $05F8 +36E2- BD 88 C0 LDA $C088,X +36E5- BD 8C C0 LDA $C08C,X +36E8- 10 FB BPL $36E5 +36EA- 60 RTS +36EB- 00 BRK +36EC- 00 BRK +36ED- 00 BRK +36EE- 00 BRK +36EF- 00 BRK +36F0- 00 BRK +36F1- 00 BRK +36F2- 00 BRK +36F3- 00 BRK +36F4- 00 BRK +36F5- 00 BRK +36F6- 00 BRK +36F7- 00 BRK +36F8- 00 BRK +36F9- 00 BRK +36FA- 00 BRK +36FB- 00 BRK +36FC- 00 BRK +36FD- 6C FC FF JMP ($FFFC) +3700- 01 A6 ORA ($A6,X) +3702- 2B ??? +3703- BD 88 C0 LDA $C088,X +3706- 8D 00 C0 STA $C000 r:KBD w:CLR80COL +3709- 8D 0C C0 STA $C00C w:CLR80VID +370C- 8D 0E C0 STA $C00E w:CLRALTCHAR +370F- 8D 54 C0 STA $C054 rw:TXTPAGE1 +3712- 20 2F FB JSR $FB2F F8ROM:INIT +3715- 20 84 FE JSR $FE84 F8ROM:SETNORM +3718- 20 58 FC JSR $FC58 F8ROM:HOME +371B- 20 89 FE JSR $FE89 F8ROM:SETKBD +371E- 20 93 FE JSR $FE93 F8ROM:SETVID +3721- A0 00 LDY #$00 +3723- B9 50 08 LDA $0850,Y +3726- F0 06 BEQ $372E +3728- 20 F0 FD JSR $FDF0 F8ROM:COUT1 +372B- C8 INY +372C- D0 F5 BNE $3723 +372E- 2C F3 03 BIT $03F3 +3731- 2C F4 03 BIT $03F4 +3734- AD 00 C0 LDA $C000 r:KBD w:CLR80COL +3737- C9 A0 CMP #$A0 +3739- D0 F9 BNE $3734 +373B- 2C 10 C0 BIT $C010 r:KBDSTRB +373E- 20 58 FC JSR $FC58 F8ROM:HOME +3741- A5 2B LDA $2B +3743- 4A LSR +3744- 4A LSR +3745- 4A LSR +3746- 4A LSR +3747- 09 C0 ORA #$C0 +3749- E9 00 SBC #$00 +374B- 48 PHA +374C- A9 FF LDA #$FF +374E- 48 PHA +374F- 60 RTS +3750- 8D 8D 8D STA $8D8D +3753- 8D 8D 8D STA $8D8D +3756- 14 08 TRB $08 +3758- 09 13 ORA #$13 +375A- 20 09 13 JSR $1309 +375D- 20 01 20 JSR $2001 +3760- 10 12 BPL $3774 +3762- 09 0E ORA #$0E +3764- 14 20 TRB $20 +3766- 13 ??? +3767- 08 PHP +3768- 0F ??? +3769- 10 20 BPL $378B +376B- 04 01 TSB $01 +376D- 14 01 TRB $01 +376F- 20 04 09 JSR $0904 +3772- 13 ??? +3773- 0B ??? +3774- 8D 8D 8D STA $8D8D +3777- 87 ??? +3778- A0 A0 LDY #$A0 +377A- D0 CC BNE $3748 +377C- C5 C1 CMP $C1 +377E- D3 ??? +377F- C5 A0 CMP $A0 +3781- C9 CE CMP #$CE +3783- D3 ??? +3784- C5 D2 CMP $D2 +3786- D4 ??? +3787- A0 C1 LDY #$C1 +3789- CE CF D4 DEC $D4CF +378C- C8 INY +378D- C5 D2 CMP $D2 +378F- A0 C4 LDY #$C4 +3791- C9 D3 CMP #$D3 +3793- CB ??? +3794- 8D 8D A0 STA $A08D +3797- A0 C1 LDY #$C1 +3799- CE C4 A0 DEC $A0C4 +379C- D0 D2 BNE $3770 +379E- C5 D3 CMP $D3 +37A0- D3 ??? +37A1- A0 D4 LDY #$D4 +37A3- C8 INY +37A4- C5 A0 CMP $A0 +37A6- D3 ??? +37A7- D0 C1 BNE $376A +37A9- C3 ??? +37AA- C5 A0 CMP $A0 +37AC- C2 ??? +37AD- C1 D2 CMP ($D2,X) +37AF- AE AE AE LDX $AEAE +37B2- 60 RTS +37B3- 00 BRK +37B4- 00 BRK +37B5- 08 PHP +37B6- 78 SEI +37B7- 20 00 BD JSR $BD00 +37BA- B0 03 BCS $37BF +37BC- 28 PLP +37BD- 18 CLC +37BE- 60 RTS +37BF- 28 PLP +37C0- 38 SEC +37C1- 60 RTS +37C2- 00 BRK +37C3- 00 BRK +37C4- 00 BRK +37C5- 00 BRK +37C6- 00 BRK +37C7- 00 BRK +37C8- 00 BRK +37C9- 00 BRK +37CA- 00 BRK +37CB- 00 BRK +37CC- 00 BRK +37CD- 00 BRK +37CE- 00 BRK +37CF- 00 BRK +37D0- 00 BRK +37D1- 00 BRK +37D2- 00 BRK +37D3- 00 BRK +37D4- 00 BRK +37D5- 00 BRK +37D6- A9 00 LDA #$00 +37D8- A8 TAY +37D9- 91 42 STA ($42),Y +37DB- C8 INY +37DC- D0 FB BNE $37D9 +37DE- 60 RTS +37DF- 00 BRK +37E0- 00 BRK +37E1- 00 BRK +37E2- 00 BRK +37E3- 00 BRK +37E4- 00 BRK +37E5- 00 BRK +37E6- 00 BRK +37E7- 00 BRK +37E8- 01 60 ORA ($60,X) +37EA- 01 FF ORA ($FF,X) +37EC- 11 0C ORA ($0C),Y +37EE- FB ??? +37EF- B7 ??? +37F0- BB ??? +37F1- B4 00 LDY $00,X +37F3- 00 BRK +37F4- 01 00 ORA ($00,X) +37F6- FE 60 01 INC $0160,X +37F9- 00 BRK +37FA- 00 BRK +37FB- 00 BRK +37FC- 01 EF ORA ($EF,X) +37FE- D8 CLD +37FF- 00 BRK +3800- A2 00 LDX #$00 +3802- A0 02 LDY #$02 +3804- 88 DEY +3805- B1 3E LDA ($3E),Y +3807- 4A LSR +3808- 3E 00 BC ROL $BC00,X +380B- 4A LSR +380C- 3E 00 BC ROL $BC00,X +380F- 99 00 BB STA $BB00,Y +3812- E8 INX +3813- E0 56 CPX #$56 +3815- 90 ED BCC $3804 +3817- A2 00 LDX #$00 +3819- 98 TYA +381A- D0 E8 BNE $3804 +381C- A2 55 LDX #$55 +381E- BD 00 BC LDA $BC00,X +3821- 29 3F AND #$3F +3823- 9D 00 BC STA $BC00,X +3826- CA DEX +3827- 10 F5 BPL $381E +3829- 60 RTS +382A- 38 SEC +382B- 86 27 STX $27 +382D- 8E 78 06 STX $0678 +3830- BD 8D C0 LDA $C08D,X +3833- BD 8E C0 LDA $C08E,X +3836- 30 7C BMI $38B4 +3838- AD 00 BC LDA $BC00 +383B- 85 26 STA $26 +383D- A9 FF LDA #$FF +383F- 9D 8F C0 STA $C08F,X +3842- 1D 8C C0 ORA $C08C,X +3845- 48 PHA +3846- 68 PLA +3847- EA NOP +3848- A0 04 LDY #$04 +384A- 48 PHA +384B- 68 PLA +384C- 20 B9 B8 JSR $B8B9 +384F- 88 DEY +3850- D0 F8 BNE $384A +3852- A9 D5 LDA #$D5 +3854- 20 B8 B8 JSR $B8B8 +3857- A9 AA LDA #$AA +3859- 20 B8 B8 JSR $B8B8 +385C- A9 AD LDA #$AD +385E- 20 B8 B8 JSR $B8B8 +3861- 98 TYA +3862- A0 56 LDY #$56 +3864- D0 03 BNE $3869 +3866- B9 00 BC LDA $BC00,Y +3869- 59 FF BB EOR $BBFF,Y +386C- AA TAX +386D- BD 29 BA LDA $BA29,X +3870- A6 27 LDX $27 +3872- 9D 8D C0 STA $C08D,X +3875- BD 8C C0 LDA $C08C,X +3878- 88 DEY +3879- D0 EB BNE $3866 +387B- A5 26 LDA $26 +387D- EA NOP +387E- 59 00 BB EOR $BB00,Y +3881- AA TAX +3882- BD 29 BA LDA $BA29,X +3885- AE 78 06 LDX $0678 +3888- 9D 8D C0 STA $C08D,X +388B- BD 8C C0 LDA $C08C,X +388E- B9 00 BB LDA $BB00,Y +3891- C8 INY +3892- D0 EA BNE $387E +3894- AA TAX +3895- BD 29 BA LDA $BA29,X +3898- A6 27 LDX $27 +389A- 20 BB B8 JSR $B8BB +389D- A9 DE LDA #$DE +389F- 20 B8 B8 JSR $B8B8 +38A2- A9 AA LDA #$AA +38A4- 20 B8 B8 JSR $B8B8 +38A7- A9 EB LDA #$EB +38A9- 20 B8 B8 JSR $B8B8 +38AC- A9 FF LDA #$FF +38AE- 20 B8 B8 JSR $B8B8 +38B1- BD 8E C0 LDA $C08E,X +38B4- BD 8C C0 LDA $C08C,X +38B7- 60 RTS +38B8- 18 CLC +38B9- 48 PHA +38BA- 68 PLA +38BB- 9D 8D C0 STA $C08D,X +38BE- 1D 8C C0 ORA $C08C,X +38C1- 60 RTS +38C2- A0 00 LDY #$00 +38C4- A2 56 LDX #$56 +38C6- CA DEX +38C7- 30 FB BMI $38C4 +38C9- B9 00 BB LDA $BB00,Y +38CC- 5E 00 BC LSR $BC00,X +38CF- 2A ROL +38D0- 5E 00 BC LSR $BC00,X +38D3- 2A ROL +38D4- 91 3E STA ($3E),Y +38D6- C8 INY +38D7- C4 26 CPY $26 +38D9- D0 EB BNE $38C6 +38DB- 60 RTS +38DC- A0 20 LDY #$20 +38DE- 88 DEY +38DF- F0 61 BEQ $3942 +38E1- BD 8C C0 LDA $C08C,X +38E4- 10 FB BPL $38E1 +38E6- 49 D5 EOR #$D5 +38E8- D0 F4 BNE $38DE +38EA- EA NOP +38EB- BD 8C C0 LDA $C08C,X +38EE- 10 FB BPL $38EB +38F0- C9 AA CMP #$AA +38F2- D0 F2 BNE $38E6 +38F4- A0 56 LDY #$56 +38F6- BD 8C C0 LDA $C08C,X +38F9- 10 FB BPL $38F6 +38FB- C9 AD CMP #$AD +38FD- D0 E7 BNE $38E6 +38FF- A9 00 LDA #$00 +3901- 88 DEY +3902- 84 26 STY $26 +3904- BC 8C C0 LDY $C08C,X +3907- 10 FB BPL $3904 +3909- 59 00 BA EOR $BA00,Y +390C- A4 26 LDY $26 +390E- 99 00 BC STA $BC00,Y +3911- D0 EE BNE $3901 +3913- 84 26 STY $26 +3915- BC 8C C0 LDY $C08C,X +3918- 10 FB BPL $3915 +391A- 59 00 BA EOR $BA00,Y +391D- A4 26 LDY $26 +391F- 99 00 BB STA $BB00,Y +3922- C8 INY +3923- D0 EE BNE $3913 +3925- BC 8C C0 LDY $C08C,X +3928- 10 FB BPL $3925 +392A- D9 00 BA CMP $BA00,Y +392D- D0 13 BNE $3942 +392F- BD 8C C0 LDA $C08C,X +3932- 10 FB BPL $392F +3934- C9 DE CMP #$DE +3936- D0 0A BNE $3942 +3938- EA NOP +3939- BD 8C C0 LDA $C08C,X +393C- 10 FB BPL $3939 +393E- C9 AA CMP #$AA +3940- F0 5C BEQ $399E +3942- 38 SEC +3943- 60 RTS +3944- A0 FC LDY #$FC +3946- 84 26 STY $26 +3948- C8 INY +3949- D0 04 BNE $394F +394B- E6 26 INC $26 +394D- F0 F3 BEQ $3942 +394F- BD 8C C0 LDA $C08C,X +3952- 10 FB BPL $394F +3954- C9 D5 CMP #$D5 +3956- D0 F0 BNE $3948 +3958- EA NOP +3959- BD 8C C0 LDA $C08C,X +395C- 10 FB BPL $3959 +395E- C9 AA CMP #$AA +3960- D0 F2 BNE $3954 +3962- A0 03 LDY #$03 +3964- BD 8C C0 LDA $C08C,X +3967- 10 FB BPL $3964 +3969- C9 96 CMP #$96 +396B- D0 E7 BNE $3954 +396D- A9 00 LDA #$00 +396F- 85 27 STA $27 +3971- BD 8C C0 LDA $C08C,X +3974- 10 FB BPL $3971 +3976- 2A ROL +3977- 85 26 STA $26 +3979- BD 8C C0 LDA $C08C,X +397C- 10 FB BPL $3979 +397E- 25 26 AND $26 +3980- 99 2C 00 STA $002C,Y +3983- 45 27 EOR $27 +3985- 88 DEY +3986- 10 E7 BPL $396F +3988- A8 TAY +3989- D0 B7 BNE $3942 +398B- BD 8C C0 LDA $C08C,X +398E- 10 FB BPL $398B +3990- C9 DE CMP #$DE +3992- D0 AE BNE $3942 +3994- EA NOP +3995- BD 8C C0 LDA $C08C,X +3998- 10 FB BPL $3995 +399A- C9 AA CMP #$AA +399C- D0 A4 BNE $3942 +399E- 18 CLC +399F- 60 RTS +39A0- 86 2B STX $2B +39A2- 85 2A STA $2A +39A4- CD 78 04 CMP $0478 +39A7- F0 53 BEQ $39FC +39A9- A9 00 LDA #$00 +39AB- 85 26 STA $26 +39AD- AD 78 04 LDA $0478 +39B0- 85 27 STA $27 +39B2- 38 SEC +39B3- E5 2A SBC $2A +39B5- F0 33 BEQ $39EA +39B7- B0 07 BCS $39C0 +39B9- 49 FF EOR #$FF +39BB- EE 78 04 INC $0478 +39BE- 90 05 BCC $39C5 +39C0- 69 FE ADC #$FE +39C2- CE 78 04 DEC $0478 +39C5- C5 26 CMP $26 +39C7- 90 02 BCC $39CB +39C9- A5 26 LDA $26 +39CB- C9 0C CMP #$0C +39CD- B0 01 BCS $39D0 +39CF- A8 TAY +39D0- 38 SEC +39D1- 20 EE B9 JSR $B9EE +39D4- B9 11 BA LDA $BA11,Y +39D7- 20 00 BA JSR $BA00 +39DA- A5 27 LDA $27 +39DC- 18 CLC +39DD- 20 F1 B9 JSR $B9F1 +39E0- B9 1D BA LDA $BA1D,Y +39E3- 20 00 BA JSR $BA00 +39E6- E6 26 INC $26 +39E8- D0 C3 BNE $39AD +39EA- 20 00 BA JSR $BA00 +39ED- 18 CLC +39EE- AD 78 04 LDA $0478 +39F1- 29 03 AND #$03 +39F3- 2A ROL +39F4- 05 2B ORA $2B +39F6- AA TAX +39F7- BD 80 C0 LDA $C080,X +39FA- A6 2B LDX $2B +39FC- 60 RTS +39FD- 00 BRK +39FE- 00 BRK +39FF- 00 BRK +3A00- A2 11 LDX #$11 +3A02- CA DEX +3A03- D0 FD BNE $3A02 +3A05- E6 46 INC $46 +3A07- D0 02 BNE $3A0B +3A09- E6 47 INC $47 +3A0B- 38 SEC +3A0C- E9 01 SBC #$01 +3A0E- D0 F0 BNE $3A00 +3A10- 60 RTS +3A11- 01 30 ORA ($30,X) +3A13- 28 PLP +3A14- 24 20 BIT $20 +3A16- 1E 1D 1C ASL $1C1D,X +3A19- 1C 1C 1C TRB $1C1C +3A1C- 1C 70 2C TRB $2C70 +3A1F- 26 22 ROL $22 +3A21- 1F ??? +3A22- 1E 1D 1C ASL $1C1D,X +3A25- 1C 1C 1C TRB $1C1C +3A28- 1C 96 97 TRB $9796 +3A2B- 9A TXS +3A2C- 9B ??? +3A2D- 9D 9E 9F STA $9F9E,X +3A30- A6 A7 LDX $A7 +3A32- AB ??? +3A33- AC AD AE LDY $AEAD +3A36- AF ??? +3A37- B2 B3 LDA ($B3) +3A39- B4 B5 LDY $B5,X +3A3B- B6 B7 LDX $B7,Y +3A3D- B9 BA BB LDA $BBBA,Y +3A40- BC BD BE LDY $BEBD,X +3A43- BF ??? +3A44- CB ??? +3A45- CD CE CF CMP $CFCE +3A48- D3 ??? +3A49- D6 D7 DEC $D7,X +3A4B- D9 DA DB CMP $DBDA,Y +3A4E- DC ??? +3A4F- DD DE DF CMP $DFDE,X +3A52- E5 E6 SBC $E6 +3A54- E7 ??? +3A55- E9 EA SBC #$EA +3A57- EB ??? +3A58- EC ED EE CPX $EEED +3A5B- EF ??? +3A5C- F2 F3 SBC ($F3) +3A5E- F4 ??? +3A5F- F5 F6 SBC $F6,X +3A61- F7 ??? +3A62- F9 FA FB SBC $FBFA,Y +3A65- FC ??? +3A66- FD FE FF SBC $FFFE,X +3A69- AE 5F AA LDX $AA5F +3A6C- E0 1C CPX #$1C +3A6E- F0 05 BEQ $3A75 +3A70- A2 00 LDX #$00 +3A72- 8E 5D B6 STX $B65D +3A75- 60 RTS +3A76- A9 FF LDA #$FF +3A78- 8D FB 04 STA $04FB +3A7B- 8D 0C C0 STA $C00C w:CLR80VID +3A7E- 8D 0E C0 STA $C00E w:CLRALTCHAR +3A81- 4C 2F FB JMP $FB2F F8ROM:INIT +3A84- AD BD B5 LDA $B5BD +3A87- 8D E6 B5 STA $B5E6 +3A8A- 8D EA B5 STA $B5EA +3A8D- BA TSX +3A8E- 8E 9B B3 STX $B39B +3A91- 4C 7F B3 JMP $B37F +3A94- 00 BRK +3A95- 00 BRK +3A96- 00 BRK +3A97- 01 98 ORA ($98,X) +3A99- 99 02 03 STA $0302,Y +3A9C- 9C 04 05 STZ $0504 +3A9F- 06 A0 ASL $A0 +3AA1- A1 A2 LDA ($A2,X) +3AA3- A3 ??? +3AA4- A4 A5 LDY $A5 +3AA6- 07 ??? +3AA7- 08 PHP +3AA8- A8 TAY +3AA9- A9 AA LDA #$AA +3AAB- 09 0A ORA #$0A +3AAD- 0B ??? +3AAE- 0C 0D B0 TSB $B00D +3AB1- B1 0E LDA ($0E),Y +3AB3- 0F ??? +3AB4- 10 11 BPL $3AC7 +3AB6- 12 13 ORA ($13) +3AB8- B8 CLV +3AB9- 14 15 TRB $15 +3ABB- 16 17 ASL $17,X +3ABD- 18 CLC +3ABE- 19 1A C0 ORA $C01A,Y +3AC1- C1 C2 CMP ($C2,X) +3AC3- C3 ??? +3AC4- C4 C5 CPY $C5 +3AC6- C6 C7 DEC $C7 +3AC8- C8 INY +3AC9- C9 CA CMP #$CA +3ACB- 1B ??? +3ACC- CC 1C 1D CPY $1D1C +3ACF- 1E D0 D1 ASL $D1D0,X +3AD2- D2 1F CMP ($1F) +3AD4- D4 ??? +3AD5- D5 20 CMP $20,X +3AD7- 21 D8 AND ($D8,X) +3AD9- 22 ??? +3ADA- 23 ??? +3ADB- 24 25 BIT $25 +3ADD- 26 27 ROL $27 +3ADF- 28 PLP +3AE0- E0 E1 CPX #$E1 +3AE2- E2 ??? +3AE3- E3 ??? +3AE4- E4 29 CPX $29 +3AE6- 2A ROL +3AE7- 2B ??? +3AE8- E8 INX +3AE9- 2C 2D 2E BIT $2E2D +3AEC- 2F ??? +3AED- 30 31 BMI $3B20 +3AEF- 32 F0 AND ($F0) +3AF1- F1 33 SBC ($33),Y +3AF3- 34 35 BIT $35,X +3AF5- 36 37 ROL $37,X +3AF7- 38 SEC +3AF8- F8 SED +3AF9- 39 3A 3B AND $3B3A,Y +3AFC- 3C 3D 3E BIT $3E3D,X +3AFF- 3F ??? +3B00- 00 BRK +3B01- 04 02 TSB $02 +3B03- 00 BRK +3B04- 01 01 ORA ($01,X) +3B06- 00 BRK +3B07- 00 BRK +3B08- 00 BRK +3B09- 00 BRK +3B0A- 00 BRK +3B0B- 3F ??? +3B0C- 03 ??? +3B0D- 01 31 ORA ($31,X) +3B0F- 35 33 AND $33,X +3B11- 31 30 AND ($30),Y +3B13- 35 30 AND $30,X +3B15- 28 PLP +3B16- 28 PLP +3B17- 28 PLP +3B18- 28 PLP +3B19- 28 PLP +3B1A- 28 PLP +3B1B- 28 PLP +3B1C- 28 PLP +3B1D- 28 PLP +3B1E- 28 PLP +3B1F- 28 PLP +3B20- 28 PLP +3B21- 28 PLP +3B22- 28 PLP +3B23- 28 PLP +3B24- 28 PLP +3B25- 28 PLP +3B26- 28 PLP +3B27- 28 PLP +3B28- 28 PLP +3B29- 28 PLP +3B2A- 28 PLP +3B2B- 04 01 TSB $01 +3B2D- 00 BRK +3B2E- 02 ??? +3B2F- 00 BRK +3B30- 01 30 ORA ($30,X) +3B32- 33 ??? +3B33- 33 ??? +3B34- 31 30 AND ($30),Y +3B36- 35 30 AND $30,X +3B38- 28 PLP +3B39- 28 PLP +3B3A- 28 PLP +3B3B- 28 PLP +3B3C- 28 PLP +3B3D- 28 PLP +3B3E- 28 PLP +3B3F- 28 PLP +3B40- 28 PLP +3B41- 28 PLP +3B42- 28 PLP +3B43- 28 PLP +3B44- 28 PLP +3B45- 28 PLP +3B46- 28 PLP +3B47- 28 PLP +3B48- 28 PLP +3B49- 28 PLP +3B4A- 28 PLP +3B4B- 28 PLP +3B4C- 28 PLP +3B4D- 28 PLP +3B4E- 28 PLP +3B4F- 01 09 ORA ($09,X) +3B51- 01 03 ORA ($03,X) +3B53- 01 35 ORA ($35,X) +3B55- 35 34 AND $34,X +3B57- 30 33 BMI $3B8C +3B59- 28 PLP +3B5A- 28 PLP +3B5B- 28 PLP +3B5C- 28 PLP +3B5D- 28 PLP +3B5E- 28 PLP +3B5F- 28 PLP +3B60- 28 PLP +3B61- 28 PLP +3B62- 28 PLP +3B63- 28 PLP +3B64- 28 PLP +3B65- 28 PLP +3B66- 28 PLP +3B67- 28 PLP +3B68- 28 PLP +3B69- 28 PLP +3B6A- 28 PLP +3B6B- 28 PLP +3B6C- 28 PLP +3B6D- 28 PLP +3B6E- 28 PLP +3B6F- 28 PLP +3B70- 28 PLP +3B71- 28 PLP +3B72- 01 09 ORA ($09,X) +3B74- 00 BRK +3B75- 00 BRK +3B76- 00 BRK +3B77- 00 BRK +3B78- 00 BRK +3B79- 00 BRK +3B7A- 00 BRK +3B7B- 00 BRK +3B7C- 00 BRK +3B7D- 00 BRK +3B7E- 00 BRK +3B7F- 00 BRK +3B80- 00 BRK +3B81- 00 BRK +3B82- 00 BRK +3B83- 00 BRK +3B84- 00 BRK +3B85- 00 BRK +3B86- 00 BRK +3B87- 00 BRK +3B88- 00 BRK +3B89- 00 BRK +3B8A- 00 BRK +3B8B- 00 BRK +3B8C- 00 BRK +3B8D- 00 BRK +3B8E- 00 BRK +3B8F- 00 BRK +3B90- 00 BRK +3B91- 00 BRK +3B92- 00 BRK +3B93- 00 BRK +3B94- 00 BRK +3B95- 00 BRK +3B96- 00 BRK +3B97- 00 BRK +3B98- 00 BRK +3B99- 00 BRK +3B9A- 00 BRK +3B9B- 00 BRK +3B9C- 00 BRK +3B9D- 00 BRK +3B9E- 00 BRK +3B9F- 00 BRK +3BA0- 00 BRK +3BA1- 00 BRK +3BA2- 00 BRK +3BA3- 00 BRK +3BA4- 00 BRK +3BA5- 00 BRK +3BA6- 00 BRK +3BA7- 00 BRK +3BA8- 00 BRK +3BA9- 00 BRK +3BAA- 00 BRK +3BAB- 00 BRK +3BAC- 00 BRK +3BAD- 00 BRK +3BAE- 00 BRK +3BAF- 00 BRK +3BB0- 00 BRK +3BB1- 00 BRK +3BB2- 00 BRK +3BB3- 00 BRK +3BB4- 00 BRK +3BB5- 00 BRK +3BB6- 00 BRK +3BB7- 00 BRK +3BB8- 00 BRK +3BB9- 00 BRK +3BBA- 00 BRK +3BBB- 00 BRK +3BBC- 00 BRK +3BBD- 00 BRK +3BBE- 00 BRK +3BBF- 00 BRK +3BC0- 00 BRK +3BC1- 00 BRK +3BC2- 00 BRK +3BC3- 00 BRK +3BC4- 00 BRK +3BC5- 00 BRK +3BC6- 00 BRK +3BC7- 00 BRK +3BC8- 00 BRK +3BC9- 00 BRK +3BCA- 00 BRK +3BCB- 00 BRK +3BCC- 00 BRK +3BCD- 00 BRK +3BCE- 00 BRK +3BCF- 00 BRK +3BD0- 00 BRK +3BD1- 00 BRK +3BD2- 00 BRK +3BD3- 00 BRK +3BD4- 00 BRK +3BD5- 00 BRK +3BD6- 00 BRK +3BD7- 00 BRK +3BD8- 00 BRK +3BD9- 00 BRK +3BDA- 00 BRK +3BDB- 00 BRK +3BDC- 00 BRK +3BDD- 00 BRK +3BDE- 00 BRK +3BDF- 00 BRK +3BE0- 00 BRK +3BE1- 00 BRK +3BE2- 00 BRK +3BE3- 00 BRK +3BE4- 00 BRK +3BE5- 00 BRK +3BE6- 00 BRK +3BE7- 00 BRK +3BE8- 00 BRK +3BE9- 00 BRK +3BEA- 00 BRK +3BEB- 00 BRK +3BEC- 00 BRK +3BED- 00 BRK +3BEE- 00 BRK +3BEF- 00 BRK +3BF0- 00 BRK +3BF1- 00 BRK +3BF2- 00 BRK +3BF3- 00 BRK +3BF4- 00 BRK +3BF5- 00 BRK +3BF6- 00 BRK +3BF7- 00 BRK +3BF8- 00 BRK +3BF9- 00 BRK +3BFA- 00 BRK +3BFB- 00 BRK +3BFC- 00 BRK +3BFD- 00 BRK +3BFE- 00 BRK +3BFF- 00 BRK +3C00- 02 ??? +3C01- 00 BRK +3C02- 00 BRK +3C03- 00 BRK +3C04- 00 BRK +3C05- 00 BRK +3C06- 00 BRK +3C07- 00 BRK +3C08- 00 BRK +3C09- 00 BRK +3C0A- 00 BRK +3C0B- 00 BRK +3C0C- 00 BRK +3C0D- 00 BRK +3C0E- 00 BRK +3C0F- 00 BRK +3C10- 00 BRK +3C11- 00 BRK +3C12- 00 BRK +3C13- 00 BRK +3C14- 00 BRK +3C15- 00 BRK +3C16- 00 BRK +3C17- 00 BRK +3C18- 00 BRK +3C19- 00 BRK +3C1A- 00 BRK +3C1B- 00 BRK +3C1C- 00 BRK +3C1D- 00 BRK +3C1E- 00 BRK +3C1F- 00 BRK +3C20- 00 BRK +3C21- 00 BRK +3C22- 00 BRK +3C23- 00 BRK +3C24- 00 BRK +3C25- 00 BRK +3C26- 00 BRK +3C27- 00 BRK +3C28- 00 BRK +3C29- 00 BRK +3C2A- 00 BRK +3C2B- 00 BRK +3C2C- 00 BRK +3C2D- 00 BRK +3C2E- 00 BRK +3C2F- 00 BRK +3C30- 00 BRK +3C31- 00 BRK +3C32- 00 BRK +3C33- 00 BRK +3C34- 00 BRK +3C35- 00 BRK +3C36- 00 BRK +3C37- 00 BRK +3C38- 00 BRK +3C39- 00 BRK +3C3A- 00 BRK +3C3B- 00 BRK +3C3C- 00 BRK +3C3D- 00 BRK +3C3E- 00 BRK +3C3F- 00 BRK +3C40- 00 BRK +3C41- 00 BRK +3C42- 00 BRK +3C43- 00 BRK +3C44- 00 BRK +3C45- 00 BRK +3C46- 00 BRK +3C47- 00 BRK +3C48- 00 BRK +3C49- 00 BRK +3C4A- 00 BRK +3C4B- 00 BRK +3C4C- 00 BRK +3C4D- 00 BRK +3C4E- 00 BRK +3C4F- 00 BRK +3C50- 00 BRK +3C51- 00 BRK +3C52- 00 BRK +3C53- 00 BRK +3C54- 00 BRK +3C55- 00 BRK +3C56- 38 SEC +3C57- BD 8D C0 LDA $C08D,X +3C5A- BD 8E C0 LDA $C08E,X +3C5D- 30 5E BMI $3CBD +3C5F- A9 FF LDA #$FF +3C61- 9D 8F C0 STA $C08F,X +3C64- DD 8C C0 CMP $C08C,X +3C67- 48 PHA +3C68- 68 PLA +3C69- 20 C3 BC JSR $BCC3 +3C6C- 20 C3 BC JSR $BCC3 +3C6F- 9D 8D C0 STA $C08D,X +3C72- DD 8C C0 CMP $C08C,X +3C75- EA NOP +3C76- 88 DEY +3C77- D0 F0 BNE $3C69 +3C79- A9 D5 LDA #$D5 +3C7B- 20 D5 BC JSR $BCD5 +3C7E- A9 AA LDA #$AA +3C80- 20 D5 BC JSR $BCD5 +3C83- A9 96 LDA #$96 +3C85- 20 D5 BC JSR $BCD5 +3C88- A5 41 LDA $41 +3C8A- 20 C4 BC JSR $BCC4 +3C8D- A5 44 LDA $44 +3C8F- 20 C4 BC JSR $BCC4 +3C92- A5 3F LDA $3F +3C94- 20 C4 BC JSR $BCC4 +3C97- A5 41 LDA $41 +3C99- 45 44 EOR $44 +3C9B- 45 3F EOR $3F +3C9D- 48 PHA +3C9E- 4A LSR +3C9F- 05 3E ORA $3E +3CA1- 9D 8D C0 STA $C08D,X +3CA4- BD 8C C0 LDA $C08C,X +3CA7- 68 PLA +3CA8- 09 AA ORA #$AA +3CAA- 20 D4 BC JSR $BCD4 +3CAD- A9 DE LDA #$DE +3CAF- 20 D5 BC JSR $BCD5 +3CB2- A9 AA LDA #$AA +3CB4- 20 D5 BC JSR $BCD5 +3CB7- A9 EB LDA #$EB +3CB9- 20 D5 BC JSR $BCD5 +3CBC- 18 CLC +3CBD- BD 8E C0 LDA $C08E,X +3CC0- BD 8C C0 LDA $C08C,X +3CC3- 60 RTS +3CC4- 48 PHA +3CC5- 4A LSR +3CC6- 05 3E ORA $3E +3CC8- 9D 8D C0 STA $C08D,X +3CCB- DD 8C C0 CMP $C08C,X +3CCE- 68 PLA +3CCF- EA NOP +3CD0- EA NOP +3CD1- EA NOP +3CD2- 09 AA ORA #$AA +3CD4- EA NOP +3CD5- EA NOP +3CD6- 48 PHA +3CD7- 68 PLA +3CD8- 9D 8D C0 STA $C08D,X +3CDB- DD 8C C0 CMP $C08C,X +3CDE- 60 RTS +3CDF- 00 BRK +3CE0- A9 00 LDA #$00 +3CE2- 8D F4 B7 STA $B7F4 +3CE5- A9 22 LDA #$22 +3CE7- 8D EC B7 STA $B7EC +3CEA- 20 FC BC JSR $BCFC +3CED- 4C 19 B6 JMP $B619 +3CF0- EA NOP +3CF1- EA NOP +3CF2- EA NOP +3CF3- EA NOP +3CF4- EA NOP +3CF5- EA NOP +3CF6- EA NOP +3CF7- EA NOP +3CF8- EA NOP +3CF9- EA NOP +3CFA- EA NOP +3CFB- EA NOP +3CFC- A0 E8 LDY #$E8 +3CFE- A9 B7 LDA #$B7 +3D00- 84 48 STY $48 +3D02- 85 49 STA $49 +3D04- A0 02 LDY #$02 +3D06- 8C F8 06 STY $06F8 +3D09- A0 04 LDY #$04 +3D0B- 8C F8 04 STY $04F8 +3D0E- A0 01 LDY #$01 +3D10- B1 48 LDA ($48),Y +3D12- AA TAX +3D13- A0 0F LDY #$0F +3D15- D1 48 CMP ($48),Y +3D17- F0 1B BEQ $3D34 +3D19- 8A TXA +3D1A- 48 PHA +3D1B- B1 48 LDA ($48),Y +3D1D- AA TAX +3D1E- 68 PLA +3D1F- 48 PHA +3D20- 91 48 STA ($48),Y +3D22- BD 8E C0 LDA $C08E,X +3D25- A0 08 LDY #$08 +3D27- BD 8C C0 LDA $C08C,X +3D2A- DD 8C C0 CMP $C08C,X +3D2D- D0 F6 BNE $3D25 +3D2F- 88 DEY +3D30- D0 F8 BNE $3D2A +3D32- 68 PLA +3D33- AA TAX +3D34- BD 8E C0 LDA $C08E,X +3D37- BD 8C C0 LDA $C08C,X +3D3A- A0 08 LDY #$08 +3D3C- BD 8C C0 LDA $C08C,X +3D3F- 48 PHA +3D40- 68 PLA +3D41- 48 PHA +3D42- 68 PLA +3D43- 8E F8 05 STX $05F8 +3D46- DD 8C C0 CMP $C08C,X +3D49- D0 03 BNE $3D4E +3D4B- 88 DEY +3D4C- D0 EE BNE $3D3C +3D4E- 08 PHP +3D4F- BD 89 C0 LDA $C089,X +3D52- A0 06 LDY #$06 +3D54- B1 48 LDA ($48),Y +3D56- 99 36 00 STA $0036,Y +3D59- C8 INY +3D5A- C0 0A CPY #$0A +3D5C- D0 F6 BNE $3D54 +3D5E- A0 03 LDY #$03 +3D60- B1 3C LDA ($3C),Y +3D62- 85 47 STA $47 +3D64- A0 02 LDY #$02 +3D66- B1 48 LDA ($48),Y +3D68- A0 10 LDY #$10 +3D6A- D1 48 CMP ($48),Y +3D6C- F0 06 BEQ $3D74 +3D6E- 91 48 STA ($48),Y +3D70- 28 PLP +3D71- A0 00 LDY #$00 +3D73- 08 PHP +3D74- 6A ROR +3D75- 90 05 BCC $3D7C +3D77- BD 8A C0 LDA $C08A,X +3D7A- B0 03 BCS $3D7F +3D7C- BD 8B C0 LDA $C08B,X +3D7F- 66 35 ROR $35 +3D81- 28 PLP +3D82- 08 PHP +3D83- D0 0B BNE $3D90 +3D85- A0 07 LDY #$07 +3D87- 20 00 BA JSR $BA00 +3D8A- 88 DEY +3D8B- D0 FA BNE $3D87 +3D8D- AE F8 05 LDX $05F8 +3D90- A0 04 LDY #$04 +3D92- B1 48 LDA ($48),Y +3D94- 20 5A BE JSR $BE5A +3D97- 28 PLP +3D98- D0 11 BNE $3DAB +3D9A- A4 47 LDY $47 +3D9C- 10 0D BPL $3DAB +3D9E- A0 12 LDY #$12 +3DA0- 88 DEY +3DA1- D0 FD BNE $3DA0 +3DA3- E6 46 INC $46 +3DA5- D0 F7 BNE $3D9E +3DA7- E6 47 INC $47 +3DA9- D0 F3 BNE $3D9E +3DAB- A0 0C LDY #$0C +3DAD- B1 48 LDA ($48),Y +3DAF- F0 5A BEQ $3E0B +3DB1- C9 04 CMP #$04 +3DB3- F0 58 BEQ $3E0D +3DB5- 6A ROR +3DB6- 08 PHP +3DB7- B0 03 BCS $3DBC +3DB9- 20 00 B8 JSR $B800 +3DBC- A0 30 LDY #$30 +3DBE- 8C 78 05 STY $0578 +3DC1- AE F8 05 LDX $05F8 +3DC4- 20 44 B9 JSR $B944 +3DC7- 90 24 BCC $3DED +3DC9- CE 78 05 DEC $0578 +3DCC- 10 F3 BPL $3DC1 +3DCE- AD 78 04 LDA $0478 +3DD1- 48 PHA +3DD2- A9 60 LDA #$60 +3DD4- 20 95 BE JSR $BE95 +3DD7- CE F8 06 DEC $06F8 +3DDA- F0 28 BEQ $3E04 +3DDC- A9 04 LDA #$04 +3DDE- 8D F8 04 STA $04F8 +3DE1- A9 00 LDA #$00 +3DE3- 20 5A BE JSR $BE5A +3DE6- 68 PLA +3DE7- 20 5A BE JSR $BE5A +3DEA- 4C BC BD JMP $BDBC +3DED- A4 2E LDY $2E +3DEF- CC 78 04 CPY $0478 +3DF2- F0 1C BEQ $3E10 +3DF4- AD 78 04 LDA $0478 +3DF7- 48 PHA +3DF8- 98 TYA +3DF9- 20 95 BE JSR $BE95 +3DFC- 68 PLA +3DFD- CE F8 04 DEC $04F8 +3E00- D0 E5 BNE $3DE7 +3E02- F0 CA BEQ $3DCE +3E04- 68 PLA +3E05- A9 40 LDA #$40 +3E07- 28 PLP +3E08- 4C 48 BE JMP $BE48 +3E0B- F0 39 BEQ $3E46 +3E0D- 4C AF BE JMP $BEAF +3E10- A0 03 LDY #$03 +3E12- B1 48 LDA ($48),Y +3E14- 48 PHA +3E15- A5 2F LDA $2F +3E17- A0 0E LDY #$0E +3E19- 91 48 STA ($48),Y +3E1B- 68 PLA +3E1C- F0 08 BEQ $3E26 +3E1E- A9 00 LDA #$00 +3E20- F0 04 BEQ $3E26 +3E22- A9 20 LDA #$20 +3E24- D0 E1 BNE $3E07 +3E26- A0 05 LDY #$05 +3E28- B1 48 LDA ($48),Y +3E2A- A8 TAY +3E2B- B9 B8 BF LDA $BFB8,Y +3E2E- C5 2D CMP $2D +3E30- D0 97 BNE $3DC9 +3E32- 28 PLP +3E33- 90 1C BCC $3E51 +3E35- 20 DC B8 JSR $B8DC +3E38- 08 PHP +3E39- B0 8E BCS $3DC9 +3E3B- 28 PLP +3E3C- A2 00 LDX #$00 +3E3E- 86 26 STX $26 +3E40- 20 C2 B8 JSR $B8C2 +3E43- AE F8 05 LDX $05F8 +3E46- 18 CLC +3E47- 24 38 BIT $38 +3E49- A0 0D LDY #$0D +3E4B- 91 48 STA ($48),Y +3E4D- BD 88 C0 LDA $C088,X +3E50- 60 RTS +3E51- 20 2A B8 JSR $B82A +3E54- 90 F0 BCC $3E46 +3E56- A9 10 LDA #$10 +3E58- B0 EE BCS $3E48 +3E5A- 48 PHA +3E5B- A0 01 LDY #$01 +3E5D- B1 3C LDA ($3C),Y +3E5F- 6A ROR +3E60- 68 PLA +3E61- 90 08 BCC $3E6B +3E63- 0A ASL +3E64- 20 6B BE JSR $BE6B +3E67- 4E 78 04 LSR $0478 +3E6A- 60 RTS +3E6B- 85 2A STA $2A +3E6D- 20 8E BE JSR $BE8E +3E70- B9 78 04 LDA $0478,Y +3E73- 24 35 BIT $35 +3E75- 30 03 BMI $3E7A +3E77- B9 F8 04 LDA $04F8,Y +3E7A- 8D 78 04 STA $0478 +3E7D- A5 2A LDA $2A +3E7F- 24 35 BIT $35 +3E81- 30 05 BMI $3E88 +3E83- 99 F8 04 STA $04F8,Y +3E86- 10 03 BPL $3E8B +3E88- 99 78 04 STA $0478,Y +3E8B- 4C A0 B9 JMP $B9A0 +3E8E- 8A TXA +3E8F- 4A LSR +3E90- 4A LSR +3E91- 4A LSR +3E92- 4A LSR +3E93- A8 TAY +3E94- 60 RTS +3E95- 48 PHA +3E96- A0 02 LDY #$02 +3E98- B1 48 LDA ($48),Y +3E9A- 6A ROR +3E9B- 66 35 ROR $35 +3E9D- 20 8E BE JSR $BE8E +3EA0- 68 PLA +3EA1- 0A ASL +3EA2- 24 35 BIT $35 +3EA4- 30 05 BMI $3EAB +3EA6- 99 F8 04 STA $04F8,Y +3EA9- 10 03 BPL $3EAE +3EAB- 99 78 04 STA $0478,Y +3EAE- 60 RTS +3EAF- A0 03 LDY #$03 +3EB1- B1 48 LDA ($48),Y +3EB3- 85 41 STA $41 +3EB5- A9 AA LDA #$AA +3EB7- 85 3E STA $3E +3EB9- A0 56 LDY #$56 +3EBB- A9 00 LDA #$00 +3EBD- 85 44 STA $44 +3EBF- 99 FF BB STA $BBFF,Y +3EC2- 88 DEY +3EC3- D0 FA BNE $3EBF +3EC5- 99 00 BB STA $BB00,Y +3EC8- 88 DEY +3EC9- D0 FA BNE $3EC5 +3ECB- A9 50 LDA #$50 +3ECD- 20 95 BE JSR $BE95 +3ED0- A9 28 LDA #$28 +3ED2- 85 45 STA $45 +3ED4- A5 44 LDA $44 +3ED6- 20 5A BE JSR $BE5A +3ED9- 20 0D BF JSR $BF0D +3EDC- A9 08 LDA #$08 +3EDE- B0 24 BCS $3F04 +3EE0- A9 30 LDA #$30 +3EE2- 8D 78 05 STA $0578 +3EE5- 38 SEC +3EE6- CE 78 05 DEC $0578 +3EE9- F0 19 BEQ $3F04 +3EEB- 20 44 B9 JSR $B944 +3EEE- B0 F5 BCS $3EE5 +3EF0- A5 2D LDA $2D +3EF2- D0 F1 BNE $3EE5 +3EF4- 20 DC B8 JSR $B8DC +3EF7- B0 EC BCS $3EE5 +3EF9- E6 44 INC $44 +3EFB- A5 44 LDA $44 +3EFD- C9 23 CMP #$23 +3EFF- 90 D3 BCC $3ED4 +3F01- 18 CLC +3F02- 90 05 BCC $3F09 +3F04- A0 0D LDY #$0D +3F06- 91 48 STA ($48),Y +3F08- 38 SEC +3F09- BD 88 C0 LDA $C088,X +3F0C- 60 RTS +3F0D- A9 00 LDA #$00 +3F0F- 85 3F STA $3F +3F11- A0 80 LDY #$80 +3F13- D0 02 BNE $3F17 +3F15- A4 45 LDY $45 +3F17- 20 56 BC JSR $BC56 +3F1A- B0 6B BCS $3F87 +3F1C- 20 2A B8 JSR $B82A +3F1F- B0 66 BCS $3F87 +3F21- E6 3F INC $3F +3F23- A5 3F LDA $3F +3F25- C9 10 CMP #$10 +3F27- 90 EC BCC $3F15 +3F29- A0 0F LDY #$0F +3F2B- 84 3F STY $3F +3F2D- A9 30 LDA #$30 +3F2F- 8D 78 05 STA $0578 +3F32- 99 A8 BF STA $BFA8,Y +3F35- 88 DEY +3F36- 10 FA BPL $3F32 +3F38- A4 45 LDY $45 +3F3A- 20 87 BF JSR $BF87 +3F3D- 20 87 BF JSR $BF87 +3F40- 20 87 BF JSR $BF87 +3F43- 48 PHA +3F44- 68 PLA +3F45- EA NOP +3F46- 88 DEY +3F47- D0 F1 BNE $3F3A +3F49- 20 44 B9 JSR $B944 +3F4C- B0 23 BCS $3F71 +3F4E- A5 2D LDA $2D +3F50- F0 15 BEQ $3F67 +3F52- A9 10 LDA #$10 +3F54- C5 45 CMP $45 +3F56- A5 45 LDA $45 +3F58- E9 01 SBC #$01 +3F5A- 85 45 STA $45 +3F5C- C9 05 CMP #$05 +3F5E- B0 11 BCS $3F71 +3F60- 38 SEC +3F61- 60 RTS +3F62- 20 44 B9 JSR $B944 +3F65- B0 05 BCS $3F6C +3F67- 20 DC B8 JSR $B8DC +3F6A- 90 1C BCC $3F88 +3F6C- CE 78 05 DEC $0578 +3F6F- D0 F1 BNE $3F62 +3F71- 20 44 B9 JSR $B944 +3F74- B0 0B BCS $3F81 +3F76- A5 2D LDA $2D +3F78- C9 0F CMP #$0F +3F7A- D0 05 BNE $3F81 +3F7C- 20 DC B8 JSR $B8DC +3F7F- 90 8C BCC $3F0D +3F81- CE 78 05 DEC $0578 +3F84- D0 EB BNE $3F71 +3F86- 38 SEC +3F87- 60 RTS +3F88- A4 2D LDY $2D +3F8A- B9 A8 BF LDA $BFA8,Y +3F8D- 30 DD BMI $3F6C +3F8F- A9 FF LDA #$FF +3F91- 99 A8 BF STA $BFA8,Y +3F94- C6 3F DEC $3F +3F96- 10 CA BPL $3F62 +3F98- A5 44 LDA $44 +3F9A- D0 0A BNE $3FA6 +3F9C- A5 45 LDA $45 +3F9E- C9 10 CMP #$10 +3FA0- 90 E5 BCC $3F87 +3FA2- C6 45 DEC $45 +3FA4- C6 45 DEC $45 +3FA6- 18 CLC +3FA7- 60 RTS +3FA8- 00 BRK +3FA9- 00 BRK +3FAA- 00 BRK +3FAB- 00 BRK +3FAC- 00 BRK +3FAD- 00 BRK +3FAE- 00 BRK +3FAF- 00 BRK +3FB0- 00 BRK +3FB1- 00 BRK +3FB2- 00 BRK +3FB3- 00 BRK +3FB4- 00 BRK +3FB5- 00 BRK +3FB6- 00 BRK +3FB7- 00 BRK +3FB8- 00 BRK +3FB9- 0D 0B 09 ORA $090B +3FBC- 07 ??? +3FBD- 05 03 ORA $03 +3FBF- 01 0E ORA ($0E,X) +3FC1- 0C 0A 08 TSB $080A +3FC4- 06 04 ASL $04 +3FC6- 02 ??? +3FC7- 0F ??? +3FC8- 20 93 FE JSR $FE93 F8ROM:SETVID +3FCB- AD 81 C0 LDA $C081 rw:ROMIN +3FCE- AD 81 C0 LDA $C081 rw:ROMIN +3FD1- A9 00 LDA #$00 +3FD3- 8D 00 E0 STA $E000 +3FD6- 20 76 BA JSR $BA76 +3FD9- 4C 44 B7 JMP $B744 +3FDC- 8D 63 AA STA $AA63 +3FDF- 8D 70 AA STA $AA70 +3FE2- 8D 71 AA STA $AA71 +3FE5- 60 RTS +3FE6- 20 5B A7 JSR $A75B +3FE9- 8C B7 AA STY $AAB7 +3FEC- 60 RTS +3FED- 20 7E AE JSR $AE7E +3FF0- AE 9B B3 LDX $B39B +3FF3- 9A TXS +3FF4- 20 16 A3 JSR $A316 +3FF7- BA TSX +3FF8- 8E 9B B3 STX $B39B +3FFB- A9 09 LDA #$09 +3FFD- 4C 85 B3 JMP $B385 diff --git a/PSC Source Disk 4 - Fastload - Copy Protection - Title Page (v13)/S_BACKUP.txt b/PSC Source Disk 4 - Fastload - Copy Protection - Title Page (v13)/S_BACKUP.txt new file mode 100644 index 0000000..34b3342 --- /dev/null +++ b/PSC Source Disk 4 - Fastload - Copy Protection - Title Page (v13)/S_BACKUP.txt @@ -0,0 +1,695 @@ + NLS + TTL "S:BACKUP" + NOG +ORG = $1000 +;--------------------------; +; ; +; The Print Shop Companion ; +; Backup program ; +; ; +; ; +; Copyright 1985 ; +; by Roland Gustafsson ; +; ; +;--------------------------; +; +DAT EPZ $E0 +; +TMPLO EPZ DAT +TMPHI EPZ DAT+1 +ESCFLAG EPZ DAT+2 +PRNTFLAG EPZ DAT+3 +PASS EPZ DAT+4 +; +; Used by special read routine: +; +TEMP EPZ DAT+5 +NUMT EPZ DAT+6 +BUFLO EPZ DAT+7 +BUFHI EPZ DAT+8 +BACKUP EPZ DAT+9 +CENTER EPZ DAT+10 +; +SN1 = $A5 +SN2 = $DF +SN3 = $D4 +CHK = $CF +;----------- +RESET = $0280 +; +SLOT = $05F8 +VTAB = $FB5B +HOME = $FC58 +TEXT = $FB2F +WAIT = $FCA8 +;----------- + ORG ORG + OBJ $800 +;----------- + JMP START +;----------- +; +; Check for master +; +; CLC = master is in drive +; SEC = not master +; +CHEKMAST JSR SEEK34 + LDX SLOT + STX $08 + LDA $C089,X + LDA #$2C + STA TMPLO + LDY #0 +^0 DEY + BNE >1 + DEC TMPLO + BEQ CHKMSTSC +; +^1 LDA $C08C,X + BPL *-3 +^2 CMP #SN1 + BNE <0 + LDA $C08C,X + BPL *-3 +^3 CMP #SN2 + BNE <2 + LDA $C08C,X + BPL *-3 + CMP #SN3 + BNE <3 + CLC + HEX 24 +CHKMSTSC SEC + LDA $C088,X + RTS +;----------- +; +; Check for data disk +; +; CLC = data disk in drive +; SEC = no data disk +; +CHEKDATA LDX SLOT + LDA $C089,X + LDA #$40 + STA TMPLO +^0 JSR $B944 + BCC >1 + DEC TMPLO + BNE <0 +^1 LDA $C088,X + RTS +;----------- +; +; Turn on drive and seek track 34 +; +SEEK34 LDA #0 + STA $B7F4 + LDA #34 + STA $B7EC +; +; RWTS access routine +; +RWTS LDA #0 + STA $B7EB + LDY #$E8 + LDA #$B7 + JMP $B7B5 +;----------- +; +; Read or Write 9 tracks +; +; given PASS=pass (reads forward) +; A=command +; +BLKBUFR = $2000 +; +PASSTBL BYT 0,9,18,27 +; +RWBLOCK STA $B7F4 +RWBLOCK2 LDY PASS + LDA PASSTBL-1,Y + STA $B7EC + LDA #$0F + STA $B7ED + LDA #9*16 + STA TMPLO +; + LDA /BLKBUFR + STA $B7F1 + LDA #0 + STA $B7F0 +; +RWLOOP JSR RWTS + BCS RWBLKERR + LDY $B7ED + DEY + BPL >1 + INC $B7EC + LDA $B7EC + CMP #34 + BGE >2 + LDY #$0F +^1 STY $B7ED + INC $B7F1 + DEC TMPLO + BNE RWLOOP +^2 RTS +; +; Handle error +; +RWBLKERR JSR HOME + LDA $B7F4 + CMP #2 + BEQ >9 + JSR PRINT + ASC "ERROR READING COMPANION DISK" + HEX 8D + ASC "UNABLE TO MAKE BACKUP." + BRK + JMP ABORT +; +^9 JSR PRINT + ASC "UNABLE TO WRITE, BAD DISK." + HEX 8D + ASC "PLEASE TRY ANOTHER..." + BRK + JMP ABORT +;----------- +; +; Print routine: +; +PRINTLFT LSR CENTER +; +PRINT LDA #$FF + HEX 2C +PRINTINV LDA #$3F + STA $32 + LDA #0 + STA PRNTFLAG + PLA + STA TMPLO + PLA + STA TMPHI +^0 INC TMPLO + BNE >1 + INC TMPHI +^1 LDY #0 + LDA (TMPLO),Y + BEQ >3 + BIT CENTER + BPL >2 + BIT PRNTFLAG + BPL >4 +^2 PHA + JSR $FDF0 + PLA + CMP #$A0 + BGE <0 + LSR PRNTFLAG + BPL <0 +; +^3 LDA TMPHI + PHA + LDA TMPLO + PHA + SEC + ROR CENTER + JMP $FE84 +; +^4 LDA (TMPLO),Y + CMP #$A0 + BLT >5 + INY + BNE <4 +; +^5 TYA + LSR + EOR #$FF + CLC + ADC #18 + STA $24 + SEC + ROR PRNTFLAG + JMP <1 +;----------- +; +; BEEP Speaker +; +BEEP LDY #$30 +^0 LDA $C030 + LDA #$11 + JSR WAIT + LDA $C030 + LDA #$13 + JSR WAIT + DEY + BNE <0 + RTS +;----------- +; +; Draw inverse line +; +BOTLINE LDA #23 +INVLINE JSR $FBC1 + LDY #39 + LDA #$20 +^0 STA ($28),Y + DEY + BPL <0 + RTS +;----------- +; +; Startup screen +; +SCREEN1 JSR TEXT + JSR HOME + LDA #2 + STA $20 + LDA #36 + STA $21 + LDA #8 + STA $22 + LDA #22 + STA $23 +; + LDA #0 + JSR INVLINE + LDA #1 + JSR INVLINE + LDA #2 + JSR INVLINE + JSR BOTLINE + LDA #23 +^0 PHA + JSR $FBC1 + LDY #0 + LDA #$20 + STA ($28),Y + LDY #39 + STA ($28),Y + PLA + SEC + SBC #1 + BPL <0 +; + JSR PRINTINV + HEX 8D + ASC "PRINT SHOP COMPANION BACKUP UTILITY" + BRK + RTS +;----------- +; +; Print bottom line +; +PRQUIT LDA #23 + JSR VTAB + JSR PRINTINV + ASC "PRESS TO CANCEL" + BRK + RTS +;----------- +; +; Get key +; +GETKEY JSR BOTLINE + BIT ESCFLAG + BMI >0 + JSR PRQUIT +^0 LDA $C000 + BPL <0 + BIT $C010 + CMP #$9B + BEQ >2 +^1 PHA + JSR BOTLINE + PLA + RTS +; +^2 BIT ESCFLAG + BPL >3 + JSR BEEP + JMP GETKEY +; +^3 JSR HOME + JMP ABORT2 +;----------- +; +; Abort & reboot routine +; +ABORT LDA #20 + JSR VTAB +ABORT2 JSR PRINT + ASC "MAKE SURE THAT THE COMPANION DISK" + HEX 8D + ASC "IS IN DRIVE AND PRESS " + BRK + SEC + ROR ESCFLAG +^0 JSR BEEP + JSR GETKEY + CMP #$8D + BNE <0 + JSR TEXT + JSR HOME + JMP RESET +;----------- +; +; Wait for RETURN key +; +WAITCR JSR PRINT + HEX 8D8D8D + ASC "PRESS TO CONTINUE" + BRK +^0 JSR GETKEY + CMP #$8D + BNE <0 + JMP HOME +;----------- +; +; Simple read routine +; +READPROT STA >0+1 + JSR SEEK34 + LDX SLOT + LDA $C089,X +ENTRY LDA #$04 + STA NUMT + LDY #0 +^0 LDA #00 + STY BUFLO + STA BUFHI +^0 LDA $C08C,X + BPL *-3 +RD2 CMP #SN1 + BNE <0 + LDA $C08C,X + BPL *-3 +RD4 CMP #SN2 + BNE RD2 + LDA $C08C,X + BPL *-3 +RD6 CMP #SN3 + BNE RD4 +RD7 LDA $C08C,X + BPL RD7 + ROL + STA TEMP +RD8 LDA $C08C,X + BPL RD8 + AND TEMP + STA (BUFLO),Y + INY + BNE RD7 + ASL $FFFF +RDCK LDA $C08C,X + BPL RDCK + CMP #CHK + BNE ENTRY + INC BUFHI + DEC NUMT + BNE RD7 + LDA $C088,X + RTS +;----------- +; +; Wait for user to remove Master +; +REMOMAST JSR CHEKMAST + BCC REMOMST2 + RTS +; +REMOMST2 JSR HOME + JSR BEEP + JSR PRINT + ASC "REMOVE COMPANION DISK." + HEX 8D8D + BRK + BIT BACKUP + BMI >1 + JSR PRINT + ASC "INSERT BLANK DISK IN DISK DRIVE." + BRK + JMP >2 +^1 JSR PRINT + ASC "INSERT BACKUP DISK IN DISK DRIVE." + BRK +^2 JSR WAITCR + JMP REMOMAST +;----------- +; +; Wait for user to remove BACKUP +; +REMOBACK JSR CHEKMAST + BCS >0 + RTS +; +^0 JSR HOME + JSR BEEP + JSR PRINT + ASC "PLEASE REMOVE THE BACKUP DISK " + HEX 8D + ASC "AND INSERT THE COMPANION DISK." + BRK + JSR WAITCR + JMP REMOBACK +;----------- +; +; Format blank disk +; +FORMAT JSR MAKEBACK + JSR CHEKDATA + BCS >0 + JSR HOME + JSR BEEP + JSR PRINT + ASC "CAUTION: THIS DISK HAS DATA ON IT" + BRK + JSR WAITCR +; +^0 JSR REMOMAST + JSR MAKEBACK + LDA #4 + STA $B7F4 + JSR RWTS + BCS >0 + RTS +; +^0 LDX SLOT + JSR $B82A + BCC >0 +; + JSR REMOWPRT + JMP >2 +; +^0 JSR HOME + JSR BEEP + JSR PRINT + ASC "DEFECTIVE BLANK DISK, TRY ANOTHER" + BRK +; +^1 JSR WAITCR +^2 JSR REMOMAST + JMP FORMAT +;----------- +; +; PLEASE REMOVE W/P TAB MESSAGE: +; +REMOWPRT JSR HOME + JSR BEEP + JSR PRINT + ASC "PLEASE REMOVE THE WRITE PROTECT TAB" + BRK + JMP WAITCR +;----------- +; +; MAKING BACKUP MESSAGE: +; +MAKEBACK JSR HOME + JSR PRINT + ASC "MAKING BACKUP DISK..." + BRK + RTS +;----------- +;----------- +; +; The program starts here: +; +START LSR ESCFLAG + LSR BACKUP + SEC + ROR CENTER + JSR SCREEN1 + JSR HOME +; + JSR CHEKMAST + LDA #8 + JSR READPROT + BIT $C010 + LDA $BFF + BEQ COPYOK + CMP #1 + BEQ MESSAGE1 + CMP #2 + BEQ MESSAGE2 +; +MESSAGE1 JSR PRINT + ASC "THIS DISK HAS ALREADY BEEN" + HEX 8D + ASC "USED TO MAKE A BACKUP." + BRK + JMP ABORT +; +MESSAGE2 JSR PRINT + ASC "THIS DISK CANNOT BE COPIED." + BRK + JMP ABORT +;--- +; +; Go ahead and make copy +; +COPYOK DEC $22 + DEC $22 + JSR HOME + JSR PRINTINV + ASC "THIS UTILITY LETS YOU MAKE ONE" + HEX 8D + ASC "BACKUP COPY OF THE FRONT SIDE" + HEX 8D + ASC "OF YOUR COMPANION DISK" + BRK + JSR PRINTLFT + HEX 8D8D8D8D + ASC "IMPORTANT: YOU MAY USE THIS OPTION" + HEX 8D + ASC "ONLY ONCE." + HEX 8D8D + ASC "TO MAKE A BACKUP, YOU WILL NEED ONE" + HEX 8D + ASC "BLANK DISK." + BRK + JSR WAITCR + JSR HOME + INC $22 + INC $22 + JSR HOME + JSR PRINTLFT + ASC "YOU WILL NEED TO SWAP DISKS A NUMBER" + ASC "OF TIMES. THE PROGRAM WILL TELL YOU" + HEX 8D + ASC "WHEN TO DO THIS." + HEX 8D8D + ASC "TO START, MAKE SURE YOUR COMPANION" + HEX 8D + ASC "DISK (LABEL SIDE UP) IS IN YOUR" + HEX 8D + ASC "DISK DRIVE." + BRK + JSR WAITCR +;--- + LDY #1 +MAINLOOP STY PASS +^0 JSR HOME + JSR REMOBACK +; +; Check to make sure no funny +; business has taken place +; + LDA #$0C + JSR READPROT + LDA $FFF + BEQ GEEWHIZ + JMP START +; +GEEWHIZ JSR PRINT + ASC "READING COMPANION DISK..." + BRK + LDA #1 + JSR RWBLOCK +; +; if pass 4, then do special stuff +; + LDA PASS + CMP #4 + BNE NOTPASS4 +; + JSR $BCE0 + JSR SEEK34 + LDA $C089,X + LDX #$0D + LDA #$D0 + JSR $803 + BCC >0 + LDA $C088,X + JSR REMOWPRT + JMP <0 +; +^0 LDA #1 + STA $7FF + JSR $800 + JSR $900 + SEC + ROR ESCFLAG + LDX SLOT + LDA $C088,X + JSR REMOMST2 + JMP >0 +; +NOTPASS4 JSR REMOMAST +; +^0 LDA PASS + CMP #1 + BNE NOTPASS1 +; + JSR FORMAT + SEC + ROR BACKUP +; +NOTPASS1 JSR MAKEBACK + LDA #2 + JSR RWBLOCK +; + LDY PASS + INY + CPY #5 + BGE >0 + JMP MAINLOOP +; +^0 JSR SEEK34 + LDX SLOT + LDA $C089,X + LDA #2 + STA $7FF + JSR $800 + JSR $900 + LDX SLOT + LDA $C088,X +; + DEC $22 + DEC $22 + JSR HOME + JSR PRINT + ASC "BACKUP COMPLETE." + HEX 8D8D + ASC "PLEASE LABEL YOUR DISK." + BRK + JSR PRINTLFT + HEX 8D8D + HEX 8D8D + ASC "NOTE: TO COPY THE BACK SIDE OF" + HEX 8D + ASC "THE DISK, USE THE STANDARD COPY" + HEX 8D + BYT "PROGRAM THAT CAME WITH YOUR" + HEX 8D + BYT "COMPUTER." + HEX 8D + BRK + JMP ABORT +;----------- +; +; +; + USR "O:BACKUP",ORG + END diff --git a/PSC Source Disk 4 - Fastload - Copy Protection - Title Page (v13)/S_BOOT1.txt b/PSC Source Disk 4 - Fastload - Copy Protection - Title Page (v13)/S_BOOT1.txt new file mode 100644 index 0000000..08ab462 --- /dev/null +++ b/PSC Source Disk 4 - Fastload - Copy Protection - Title Page (v13)/S_BOOT1.txt @@ -0,0 +1,102 @@ + NLS + TTL "S:BOOT1" +ORG = $800 +; +; Print Shop Companion +; $800 TS (0,0) Boot sector +; +; by Roland Gustafsson +; +SLOT EPZ $2B +; +SECTOR EPZ $50 +; +; MONITOR routines: +; +TEXT EQU $FB2F +HOME EQU $FC58 +NORMAL EQU $FE84 +PR0 EQU $FE93 +IN0 EQU $FE89 +; + ORG ORG + OBJ $800 +; + BYT 1 +; +ENTRY LDA #$60 + STA ENTRY +; +; Dazzle Draw leaves the alternate +; zero page on, so transfer it +; over to main zero page +; + LDX #0 +^0 LDA $00,X + STA $1000,X + INX + BNE <0 + STA $C008 +^0 LDA $1000,X + STA $00,X + INX + BNE <0 +; + LDA #$FF + STA $4FB + STA $3F3 + STA $3F4 + STA $C000 + STA $C00C + STA $C00E + STA $C05F + STA $C081 + JSR TEXT + JSR HOME + JSR NORMAL + JSR PR0 + JSR IN0 + LDA #20 + STA $22 + LDX SLOT + TXA + LSR + LSR + LSR + LSR + ORA #$C0 + STA READSECT+2 + LDA #$0F + STA SECTOR +; +; Now read in sectors +; +^0 LDY SECTOR + LDA SKEWTBL,Y + STA $3D + LDA SECTADDR,Y + BEQ >1 + STA $27 +READSECT JSR $005C +^1 DEC SECTOR + BNE <0 +; +; Now load in next stage of boot +; + LDX $2B + JMP $4000 +; +; Sector interleaving table +; +SKEWTBL HEX 000D0B0907050301 + HEX 0E0C0A080604020F +; +; Address where to load sector +; +SECTADDR HEX 0040414243444510 + HEX 1112131415161718 +; +; +; + USR "O:BOOT1",ORG + END diff --git a/PSC Source Disk 4 - Fastload - Copy Protection - Title Page (v13)/S_BOOT1SIDEB.txt b/PSC Source Disk 4 - Fastload - Copy Protection - Title Page (v13)/S_BOOT1SIDEB.txt new file mode 100644 index 0000000..0ce886b --- /dev/null +++ b/PSC Source Disk 4 - Fastload - Copy Protection - Title Page (v13)/S_BOOT1SIDEB.txt @@ -0,0 +1,104 @@ + NLS + TTL "S:BOOT1SIDEB" +ORG = $800 +; +; Print Shop Companion +; BACK SIDE +; $800 TS (0,0) Boot sector +; +; by Roland Gustafsson +; +SLOT EPZ $2B +; +SECTOR EPZ $50 +; +; MONITOR routines: +; +TEXT EQU $FB2F +HOME EQU $FC58 +NORMAL EQU $FE84 +PR0 EQU $FE93 +IN0 EQU $FE89 +; + ORG ORG + OBJ $800 +; + BYT 1 +; +ENTRY LDA #$60 + STA ENTRY +; +; Dazzle Draw leaves the alternate +; zero page on, so transfer it +; over to main zero page +; + LDX #0 +^0 LDA $00,X + STA $1000,X + INX + BNE <0 + STA $C008 +^0 LDA $1000,X + STA $00,X + INX + BNE <0 +; + LDA #$FF + STA $4FB + STA $3F3 + STA $3F4 + STA $C000 + STA $C00C + STA $C00E + STA $C05F + STA $C081 + JSR TEXT + JSR HOME + JSR NORMAL + JSR PR0 + JSR IN0 + LDA #20 + STA $22 + LDX SLOT + TXA + LSR + LSR + LSR + LSR + ORA #$C0 + STA READSECT+2 + LDA #$0F + STA SECTOR +; +; Now read in sectors +; +^0 LDY SECTOR + LDA SKEWTBL,Y + STA $3D + LDA SECTADDR,Y + BEQ >1 + STA $27 +READSECT JSR $005C +^1 DEC SECTOR + BNE <0 +; +; Now load in next stage of boot +; + LDX $2B + LDA $C088,X + JMP $1000 +; +; Sector interleaving table +; +SKEWTBL HEX 000D0B0907050301 + HEX 0E0C0A080604020F +; +; Address where to load sector +; +SECTADDR HEX 0010111260616263 + HEX 6465666768696A6B +; +; +; + USR "O:BOOT1SIDEB",ORG + END diff --git a/PSC Source Disk 4 - Fastload - Copy Protection - Title Page (v13)/S_BOOT2.txt b/PSC Source Disk 4 - Fastload - Copy Protection - Title Page (v13)/S_BOOT2.txt new file mode 100644 index 0000000..522fe36 --- /dev/null +++ b/PSC Source Disk 4 - Fastload - Copy Protection - Title Page (v13)/S_BOOT2.txt @@ -0,0 +1,600 @@ + NLS + TTL "S:BOOT2" + NOG +ORG = $4000 +; +; The Print Shop Companion +; DOS and title page loader. +; +; Copyright 1985 +; by Roland Gustafsson +; +HAS128K = $27F +SCREEN = $7F7 +;----------- +OUTVEC = $FF58 +INPVEC = $B6FD +; +DAT EPZ $50 +; +TMP0 EPZ DAT +TMP1 EPZ DAT+1 +TMP2 EPZ DAT+2 +TMP3 EPZ DAT+3 +; +SLOT EPZ DAT+4 +; +ERRORS EPZ DAT+5 +TRACK EPZ DAT+6 +LASTRK EPZ DAT+7 +BUF EPZ DAT+8 +BUFHI EPZ DAT+9 +; +CHECKSUM EPZ $26 +ADDRESS EPZ $2C +; +TMP26 EPZ DAT+10 +TMP27 EPZ DAT+11 +; +; SECTLO.HI points to 16 bytes +; that specify where to load +; the current track. If zero +; is specified, then skip that +; sector. +; +SECTLO EPZ TMP0 +SECTHI EPZ TMP1 +; +TEMPBUF = $0200 +TEMPTABL = TEMPBUF+$70 +READTBL = TEMPBUF+$80 +Q6L EQU $C08C +; +;----------- + ORG ORG + OBJ $800 +; + JMP START +;----------- +; +; Standard 16 sector fast loader +; +; Read data +; +ERR1 SEC + RTS +; +READBUF STX SLOT + TXA + ORA #$8C + STA SLTMOD1+1 + STA SLTMOD2+1 + STA SLTMOD3+1 + STA SLTMOD4+1 + STA SLTMOD5+1 + LDA BUF + LDY BUF+1 + STA BUFMOD1+1 + STY BUFMOD1+2 + SEC + SBC #$54 + BCS >0 + DEY + SEC +^0 STA BUFMOD2+1 + STY BUFMOD2+2 + SBC #$57 + BCS >0 + DEY +^0 STA BUFMOD3+1 + STY BUFMOD3+2 + LDY #$20 +^0 DEY + BEQ ERR1 +; +^1 LDA Q6L,X + BPL <1 +TRYD5 EOR #$D5 + BNE <0 + NOP +; +^0 LDA Q6L,X + BPL <0 + CMP #$AA + BNE TRYD5 + NOP +^0 LDA Q6L,X + BPL <0 + CMP #$AD + BNE TRYD5 + LDY #$AA + LDA #$00 +^0 STA CHECKSUM +; +SLTMOD1 LDX Q6L + BPL SLTMOD1 + LDA TABLE1,X + STA TEMPBUF,Y + EOR CHECKSUM + INY + BNE <0 + LDY #$AA + BNE SLTMOD2 +; +BUFMOD3 STA $FFFF,Y +; +SLTMOD2 LDX Q6L + BPL SLTMOD2 + EOR TABLE1,X + LDX TEMPBUF,Y + EOR TABLE2,X + INY + BNE BUFMOD3 + PHA + AND #$FC + LDY #$AA +; +SLTMOD3 LDX Q6L + BPL SLTMOD3 + EOR TABLE1,X + LDX TEMPBUF,Y + EOR TABLE2+1,X +BUFMOD2 STA $FFFF,Y + INY + BNE SLTMOD3 +; +SLTMOD4 LDX Q6L + BPL SLTMOD4 + AND #$FC + LDY #$AC +^0 EOR TABLE1,X + LDX TEMPBUF-2,Y + EOR TABLE2+2,X +BUFMOD1 STA $FFFF,Y +; +SLTMOD5 LDX Q6L + BPL SLTMOD5 + INY + BNE <0 + AND #$FC + EOR TABLE1,X + LDX SLOT + TAY + BNE ERR2 +^0 LDA Q6L,X + BPL <0 + CMP #$DE + BEQ NOERR +; +; Exit +; +ERR2 SEC + HEX 24 +NOERR CLC + PLA + LDY #$55 + STA (BUF),Y + RTS +;----------- +; +; SEEK routine +; +TRACKSTP ASL + STA TMP26 +TRKLOO LDA LASTRK + STA TMP27 + SEC + SBC TMP26 + BEQ RETURN + BCS SUBTRK + INC LASTRK + BCC ADCTRK +SUBTRK DEC LASTRK +ADCTRK JSR STEP + JSR DELAY + LDA TMP27 + AND #$03 + ASL + ORA SLOT + TAY + LDA $C080,Y + JSR DELAY + BEQ TRKLOO +STEP LDA LASTRK + AND #$03 + ASL + ORA SLOT + TAY + LDA $C081,Y +RETURN RTS +; +DELAY LDA #$28 + JMP $FCA8 +;----------- +; +; Read address marks +; +ADDERR SEC + RTS +; +ADDMARK LDY #$FC + STY TMP26 +^1 INY + BNE >0 + INC TMP26 + BEQ ADDERR +^0 LDA Q6L,X + BPL <0 +TRYD55 CMP #$D5 + BNE <1 + NOP +^0 LDA Q6L,X + BPL <0 + CMP #$AA + BNE TRYD55 + LDY #$03 +^0 LDA Q6L,X + BPL <0 + CMP #$96 + BNE TRYD55 + LDA #$00 +^3 STA TMP27 +^0 LDA Q6L,X + BPL <0 + ROL + STA TMP26 +^0 LDA Q6L,X + BPL <0 + AND TMP26 + STA ADDRESS,Y + EOR TMP27 + DEY + BPL <3 + TAY + BNE ADDERR +^0 LDA Q6L,X + BPL <0 + CMP #$DE + BNE ADDERR + NOP +^0 LDA Q6L,X + BPL <0 + CMP #$AA + BNE ADDERR + CLC + RTS +; + DFS $80-$FF&*,$FF +TABLE1 = *&$FF00 +; + HEX 00000000000000000000000000000000 + HEX 00000000000000049899080C9C101418 + HEX A0A1A2A3A4A51C20A8A9AA24282C3034 + HEX B0B1383C4044484CB85054585C606468 + HEX C0C1C2C3C4C5C6C7C8C9CA6CCC707478 + HEX D0D1D27CD4D58084D8888C9094989CA0 + HEX E0E1E2E3E4A4A8ACE8B0B4B8BCC0C4C8 + HEX F0F1CCD0D4D8DCE0F8E4E8ECF0F4F8FC +; +; Here is TABLE2 +; +TABLE2 HEX 00000096020000970100009A0300009B + HEX 0002009D0202009E0102009F030200A6 + HEX 000100A7020100AB010100AC030100AD + HEX 000300AE020300AF010300B2030300B3 + HEX 000002B4020002B5010002B6030002B7 + HEX 000202B9020202BA010202BB030202BC + HEX 000102BD020102BE010102BF030102CB + HEX 000302CD020302CE010302CF030302D3 + HEX 000001D6020001D7010001D9030001DA + HEX 000201DB020201DC010201DD030201DE + HEX 000101DF020101E5010101E6030101E7 + HEX 000301E9020301EA010301EB030301EC + HEX 000003ED020003EE010003EF030003F2 + HEX 000203F3020203F4010203F5030203F6 + HEX 000103F7020103F9010103FA030103FB + HEX 000303FC020303FD010303FE030303FF +;----------- +; +; Read a track +; +; A=track (0-22 format) +; +; SECTLO.HI points to 16 byte +; buffer that contains the +; addresses where the sectors will +; get loaded. +; +READTRAK JSR TRACKSTP + LDX #15 +^0 LDY SKEW,X + LDA (SECTLO),Y + STA READTBL,X + DEX + BPL <0 +; + LDX SLOT + LDA #96 + STA ERRORS +; +^0 DEC ERRORS + BEQ READERR + JSR ADDMARK + BCS <0 + LDY $2D ; sector number + LDA READTBL,Y + BEQ <0 ; already done + STA BUF+1 ; hi-byte + LDA #0 + STA BUF + JSR READBUF + BCS <0 + LDY $2D + LDA #0 + STA READTBL,Y + LDY #$0F +^1 LDA READTBL,Y + BNE <0 ; if any still pending + DEY ;then continue reading + BPL <1 + CLC + HEX 24 +READERR SEC + RTS +; +SKEW HEX 00070E060D050C04 + HEX 0B030A020901080F +;----------- +; +; Read track with all sectors +; in sequence, 0-F +; +READSEQU STA >1+1 + LDY #TEMPTABL + LDA /TEMPTABL + STY SECTLO + STA SECTHI + LDY #15 +; +^0 TYA + CLC +^1 ADC #00 + STA (SECTLO),Y + DEY + BPL <0 +;----------- +; +; Read current track and INC TRACK +; +READTRK LDA TRACK + INC TRACK + JSR READTRAK + BCS >0 + RTS +; +; WHOOP the speaker and try again. +; +^0 DEC TRACK + LDY #0 +^1 TYA + BIT $C030 +^2 SEC + SBC #1 + BNE <2 + DEY + BNE <1 + BEQ READTRK +;----------- +; +; BOOT2! +; +START STX SLOT +; +; Move hires page one into RAMcard +; + JSR MOVHIRES +; +; Set fastload parms +; + LDY #0 + STY LASTRK + INY + STY TRACK +; +; Load Title page +; + LDA #$90 + JSR READSEQU +; +; Show the title page +; + JSR $9000 + BIT $C057 + BIT $C052 + BIT $C050 +; +; Display version +; + LDA #"B" + STA SCREEN +; +; Load DOS +; + LDA #$A0 + JSR READSEQU + LDA #$B0 + JSR READSEQU +; +; Initialize DOS variables +; + LDX SLOT + STX $B7E9 + STX $B7F7 +; +; Set LASTRACK screen holes +; + JSR $BE8E + LDA LASTRK + STA $478,Y + LDA #$A0 + STA $4F8,Y +; +; Set I/O hooks to reboot +; + LDY #OUTVEC + LDA /OUTVEC + STY $36 + STA $37 + LDY #INPVEC + LDA /INPVEC + STY $38 + STA $39 +; +; Install reset routine +; + LDY #RESETLEN-1 +^0 LDA RESET,Y + STA RESETVEC,Y + DEY + BPL <0 +; +; Set reset vector +; + LDY #RESETVEC + LDA /RESETVEC + STY $3F2 + STA $3F3 + EOR #$A5 + STA $3F4 +; + LDX #$FF + TXS +; +; HELLO program type: +; +; $34:Binary, $06:Applesoft +; + LDA #$34 + STA $9E42 +; +; pressed? YES--backup! +; + LDA $C000 + BIT $C010 + CMP #$9B + BNE >2 + LDA $1000 + BEQ >2 + JMP $1000 +; +; JMP to DOS +; +^2 JSR CHEK128K + JMP $9D84 +;----------- +; +; Move HIRES picture into RAMcard +; +MOVHIRES LDY #$00 + LDA #$20 + STY TMP0 + STA TMP1 + LDX #$03 + JSR >0 + LDX #$0B +; +^0 LDA $C080,X + LDA $C080,X + LDX #$10 + LDY #$00 + LDA #$D0 + STY TMP2 + STA TMP3 +^1 LDA (TMP0),Y + STA (TMP2),Y + LDA #0 + STA (TMP0),Y + INY + BNE <1 + INC TMP1 + INC TMP3 + DEX + BNE <1 + STA $C081 + RTS +;----------- +; +; Check for 128k memory +; +CHEK128K STA $C081 + LDA $FBB3 + CMP #6 + BNE NOT128K +; + BIT $C017 + BMI NOT128K +; + LDX #CHECKERL-1 +^0 LDA CHECKER,X + STA $80,X + DEX + BPL <0 +; + JSR $80 + BCS NOT128K + SEC + HEX 24 +; +NOT128K CLC + ROR HAS128K + RTS +; +; Zero page routine +; +CHECKER LDA #$EE + STA $C005 + STA $C003 + STA $0800 + LDA $0C00 + CMP #$EE + BNE >0 + ASL $0C00 + LDA $0800 + CMP $0C00 + BEQ >1 +^0 CLC +^1 STA $C004 + STA $C002 + RTS +CHECKERL = *-CHECKER +;----------- +; +; RESET VECTOR +; +RESET: + PHS $280 +; +RESETVEC STA $C081 + JSR $FB2F + JSR $FC58 + LDY #0 +RESET0 TYA +RESET1 STA $0800,Y + INY + BNE RESET1 + INC RESET1+2 + LDA RESET1+2 + CMP #$C0 + BLT RESET0 + STA $3F3 + STA $3F4 + JMP ($FFFC) +; +RESETLEN = *-RESETVEC + DPH +;----------- +; +; +; + USR "O:BOOT2",ORG + END diff --git a/PSC Source Disk 4 - Fastload - Copy Protection - Title Page (v13)/S_CALTAIL.txt b/PSC Source Disk 4 - Fastload - Copy Protection - Title Page (v13)/S_CALTAIL.txt new file mode 100644 index 0000000..40ab64f --- /dev/null +++ b/PSC Source Disk 4 - Fastload - Copy Protection - Title Page (v13)/S_CALTAIL.txt @@ -0,0 +1,150 @@ + NLS + TTL "S:CALTAIL" +ORG = $7800 +; +; Routine that sits at $5D00 +; +; Loads $5D00.63FF from disk or +; AUX memory, depending on 128k +; sectors 9-F +; +HAS128K = $27F +; +VOLUME = $B7EB +TRACK = $B7EC +SECTOR = $B7ED +BUFLO = $B7F0 +BUFHI = $B7F1 +;----------- + ORG ORG + OBJ $800 +;----------- +; +; Enter here when loading from disk +; + CLC + HEX B0 +; +; Enter here when data is already +; in AUX memory (at $1800) +; + SEC +; + LDY #0 +^0 LDA $5D00,Y + STA ORG,Y + INY + BNE <0 + JMP *+3 +;--- + BCS FROMAUX +;--- +; +; Load from disk track 0 +; sector 09-0F +; + STY BUFLO + STY VOLUME + STY TRACK + LDX #$0F + LDY #$63 +; +^2 STX SECTOR + STY BUFHI +^3 JSR $3E3 + JSR $3D9 + BCS <3 + LDX SECTOR + LDY BUFHI + DEY + DEX + CPX #9 + BGE <2 +; +; 128k? +; + BIT HAS128K + BPL EXECUTE +; +; YES +; +; Move $5D00.63FF to AUX mem $1800 +; + LDY #0 + STA $C005 +^0 LDA $5D00,Y + STA $1800,Y + LDA $5E00,Y + STA $1900,Y + LDA $5F00,Y + STA $1A00,Y + LDA $6000,Y + STA $1B00,Y + LDA $6100,Y + STA $1C00,Y + LDA $6200,Y + STA $1D00,Y + LDA $6300,Y + STA $1E00,Y + INY + BNE <0 + STA $C004 +; +; Patch so it won't go to disk +; next time (4000: JMP $5D02) +; + STA $C009 + LDA #2 + STA $E001 + STA $C008 + BNE EXECUTE +;----------- +; +; Move 1/1800 to $5D00.63FF +; +FROMAUX STA $C009 + LDY #MOVERLEN-1 +^0 LDA MOVER,Y + STA $100,Y + DEY + BPL <0 + JSR $100 + STA $C008 +;--- +; +; Jump to CALENDAR +; +EXECUTE JMP $4003 +;----------- +; +; MOVER routine sits on AUX stack +; switches in AUX and moves it to +; MAIN $5D00.63FF +; +MOVER STA $C003 + LDY #0 +^0 LDA $1800,Y + STA $5D00,Y + LDA $1900,Y + STA $5E00,Y + LDA $1A00,Y + STA $5F00,Y + LDA $1B00,Y + STA $6000,Y + LDA $1C00,Y + STA $6100,Y + LDA $1D00,Y + STA $6200,Y + LDA $1E00,Y + STA $6300,Y + INY + BNE <0 + STA $C002 + RTS +MOVERLEN = *-MOVER +;----------- +; +; +; + USR "O:CALTAIL",ORG + END diff --git a/PSC Source Disk 4 - Fastload - Copy Protection - Title Page (v13)/S_CALUPDATER.txt b/PSC Source Disk 4 - Fastload - Copy Protection - Title Page (v13)/S_CALUPDATER.txt new file mode 100644 index 0000000..cb3288c --- /dev/null +++ b/PSC Source Disk 4 - Fastload - Copy Protection - Title Page (v13)/S_CALUPDATER.txt @@ -0,0 +1,521 @@ + NLS + TTL "S:CALUPDATER" + NOG +ORG = $1000 +;----------- +; +; Update Print Shop Companion +; with new color Calendar +; +; This program sits on side B +; of the Print Shop. +; +; Copyright 1985,86 +; by Roland Gustafsson +; +;----------- +TEMPBUFF = $1900 +T0BUFFER = $2000 +BUBUFFER = $2900 +;----------- +; +; +DAT EPZ $E0 +; +TMPLO EPZ DAT +TMPHI EPZ DAT+1 +PRNTFLAG EPZ DAT+2 +CENTER EPZ DAT+3 +; +; Used by special read routine: +; +TEMP EPZ DAT+4 +NUMT EPZ DAT+5 +BUFLO EPZ DAT+6 +BUFHI EPZ DAT+7 +; +SN1 = $A5 +SN2 = $DF +SN3 = $D4 +CHK = $CF +;----------- +RESET = $0280 +; +; RWTS parameters +; +IOB = $B7E8 +; +SLOT = $B7E9 +VOLUME = $B7EB +TRACK = $B7EC +SECTOR = $B7ED +RWTSBUFL = $B7F0 +RWTSBUFH = $B7F1 +COMMAND = $B7F4 +RWTSERR = $B7F5 +;----------- +; +; Monitor routines: +; +VTAB = $FB5B +HOME = $FC58 +TEXT = $FB2F +WAIT = $FCA8 +COUT = $FDED +CROUT = $FD8E +COUT1 = $FDF0 +;----------- + ORG ORG + OBJ $800 +;----------- + JMP START + JMP ERROR +; + BYT 'COPYRIGHT 1986 ' + BYT 'BY ROLAND GUSTAFSSON' +;----------- +; +; Check for master +; +; CLC = master is in drive +; SEC = not master +; +CHEKCOMP JSR SEEK34 + LDX SLOT + LDA $C089,X + LDA #$2C + STA TMPHI + LDY #0 +^0 DEY + BNE >1 + DEC TMPHI + BEQ CHKMSTSC +; +^1 LDA $C08C,X + BPL *-3 +^2 CMP #SN1 + BNE <0 + LDA $C08C,X + BPL *-3 +^3 CMP #SN2 + BNE <2 + LDA $C08C,X + BPL *-3 + CMP #SN3 + BNE <3 +; +; Now read VTOC to make sure that +; this is indeed side A of the +; Companion disk. +; + LDA #1 + STA COMMAND + LDX #17 + LDY #0 + LDA /TEMPBUFF + JSR RWTS + BCS CHKMSTSC + LDY TEMPBUFF+$FE + DEY + BNE CHKMSTSC + LDY TEMPBUFF+$FF + CPY #3 + BNE CHKMSTSC +; + CLC + HEX B0 +CHKMSTSC SEC + LDX SLOT + LDA $C088,X + RTS +;----------- +; +; Turn on drive and seek track 34 +; +SEEK34 LDA #0 + STA COMMAND + TAY + LDX #34 +; +; RWTS access routine +; +RWTS STX TRACK + STY SECTOR + STA RWTSBUFH + LDA #0 + STA RWTSBUFL + STA VOLUME + LDY #IOB + LDA /IOB + JSR $B7B5 + LDX TRACK + LDY SECTOR + LDA RWTSBUFH + RTS +;----------- +HOMECNTR LDA #10 + HEX 2C +HOMECNT2 LDA #9 + PHA + JSR HOME + PLA + JMP VTAB +;----------- +; +; Print routine: +; +PRINTLFT LSR CENTER +; +PRINT LDA #$FF + HEX 2C +PRINTINV LDA #$3F + STA $32 + LDA #0 + STA PRNTFLAG + PLA + STA TMPLO + PLA + STA TMPHI +^0 INC TMPLO + BNE >1 + INC TMPHI +^1 LDY #0 + LDA (TMPLO),Y + BEQ >3 + BIT CENTER + BPL >2 + BIT PRNTFLAG + BPL >4 +^2 PHA + JSR COUT1 + PLA + CMP #$A0 + BGE <0 + LSR PRNTFLAG + BPL <0 +; +^3 LDA TMPHI + PHA + LDA TMPLO + PHA + SEC + ROR CENTER + JMP $FE84 +; +^4 LDA (TMPLO),Y + CMP #$A0 + BLT >5 + INY + BNE <4 +; +^5 TYA + LSR + EOR #$FF + CLC + ADC #19 + STA $24 + SEC + ROR PRNTFLAG + JMP <1 +;----------- +; +; BEEP Speaker +; +BEEP LDY #$30 +^0 LDA $C030 + LDA #$11 + JSR WAIT + LDA $C030 + LDA #$13 + JSR WAIT + DEY + BNE <0 + RTS +;----------- +; +; Draw inverse line +; +BOTLINE LDA #23 +INVLINE JSR $FBC1 + LDY #39 + LDA #$20 +^0 STA ($28),Y + DEY + BPL <0 + RTS +;----------- +; +; Startup screen +; +SCREEN1 JSR TEXT + JSR HOME + LDA #2 + STA $20 + LDA #36 + STA $21 + LDA #8 + STA $22 + LDA #22 + STA $23 +; + LDA #0 + JSR INVLINE + LDA #1 + JSR INVLINE + LDA #2 + JSR INVLINE + JSR BOTLINE + LDA #23 +^0 PHA + JSR $FBC1 + LDY #0 + LDA #$20 + STA ($28),Y + LDY #39 + STA ($28),Y + PLA + SEC + SBC #1 + BPL <0 +; + JSR PRINTINV + HEX 8D + ASC "PRINT SHOP COMPANION UPGRADE UTILITY" + BRK +; + LDA #23 + JSR VTAB + JSR PRINTINV + ASC " TO GO BACK" + BRK + RTS +;----------- +; +; Return to continue +; +WAITCR JSR PRINT + HEX 8D8D + ASC "PRESS TO CONTINUE" + BRK + JMP GETKEY +;----------- +; +; Get key +; +; Returns +; +; BEQ for CR +; BNE for ESC +; +GETERR JSR BEEP +GETKEY LDA $C000 + BPL GETKEY + BIT $C010 + CMP #$8D + BEQ >0 + CMP #$9B + BNE GETERR + ORA #0 +^0 RTS +;----------- +; +; Simple read routine +; +READPROT STA >0+1 + JSR SEEK34 + LDX SLOT + LDA $C089,X +ENTRY LDA #$04 + STA NUMT + LDY #0 +^0 LDA #00 + STY BUFLO + STA BUFHI +^0 LDA $C08C,X + BPL *-3 +RD2 CMP #SN1 + BNE <0 + LDA $C08C,X + BPL *-3 +RD4 CMP #SN2 + BNE RD2 + LDA $C08C,X + BPL *-3 +RD6 CMP #SN3 + BNE RD4 +RD7 LDA $C08C,X + BPL RD7 + ROL + STA TEMP +RD8 LDA $C08C,X + BPL RD8 + AND TEMP + STA (BUFLO),Y + INY + BNE RD7 + ASL $FFFF +RDCK LDA $C08C,X + BPL RDCK + CMP #CHK + BNE ENTRY + INC BUFHI + DEC NUMT + BNE RD7 + LDA $C088,X + RTS +;----------- +;----------- +; +; The program starts here: +; +START SEC + ROR CENTER + JSR SCREEN1 +TRYAGAIN JSR HOME + JSR PRINT + ASC "PLEASE INSERT SIDE A OF THE" + HEX 8D8D + ASC "PRINT SHOP COMPANION AND" + HEX 8D8D + ASC "PRESS TO UPGRADE" + BRK + JSR GETKEY + BEQ UPGRADE +EXIT JSR TEXT + JMP HOME +;----------- +; +; Is Companion disk in drive??? +; +UPGRADE JSR HOME + JSR CHEKCOMP + BCC >0 + JSR BEEP + JMP TRYAGAIN +; +; Check to see if backup has been made +; +^0 LDA /BUBUFFER + JSR READPROT + LDA BUBUFFER+$3FF + BEQ >1 + JMP OKDOIT +; +; Since this disk hasn't been backed +; up, then don't allow update since +; the update wipes out the backup +; function. +; +^1 JSR BEEP + JSR PRINT + ASC "YOU HAVE NOT MADE A BACKUP OF YOUR" + HEX 8D + ASC "COMPANION DISK. YOU MUST MAKE A" + HEX 8D + ASC "BACKUP BEFORE THE UPGRADE UTILITY" + HEX 8D + ASC "CAN BE RUN. SEE SECTION I OF" + HEX 8D + ASC "COMPANION MANUAL FOR INSTRUCTIONS" + HEX 8D + ASC "ON MAKING A BACKUP." + BRK + JSR WAITCR + BEQ EXIT2 + JMP TRYAGAIN +EXIT2 JMP EXIT +;----------- +; +; Go ahead with update +; +; Companion disk is now in drive +; and ready for update... +; +; Update the Companion disk CALEN +; program and track zero. +; +OKDOIT JSR HOMECNTR + JSR PRINT + ASC "UPGRADING COMPANION DISK..." + HEX 8D00 + JSR DOBSAVE + JSR DORWTS +; + JSR HOMECNT2 + JSR PRINT + ASC "UPGRADE COMPLETE." + BRK + JSR WAITCR + BEQ EXIT2 + JMP TRYAGAIN +;----------- +; +; Handle error from PEEK(222) +; +ERROR JSR HOMECNT2 + JSR BEEP + LDA $DE + CMP #4 + BEQ WPERR + CMP #16 + BEQ WPERR +; +; I/O error +; + JSR PRINT + ASC "DISK ERROR OCCURRED" + BRK + JMP WAITCR +; +; Write protect error +; +WPERR JSR PRINT + ASC "PLEASE REMOVE THE WRITE PROTECT TAB" + BRK + JMP WAITCR +;----------- +; +; BSAVE the new CALEN file on +; Companion disk. +; +DOBSAVE LDY #0 +^0 LDA BSAVETXT,Y + BEQ >1 + JSR COUT + INY + BNE <0 +^1 RTS +; +BSAVETXT HEX 8D84 + ASC "BSAVECALEN,A$4000,L$1DF8" + HEX 8D00 +;----------- +; +; Write out stuff for track zero +; SCT:07 08 09 0A 0B 0C 0D 0E 0F +; BUF:10 11 5D 5E 5F 60 61 62 63 +; UP: 20 21 22 23 24 25 26 27 28 +; +DORWTS LDA #2 + STA COMMAND + LDX #0 + LDY #$0F + LDA /T0BUFFER+$800 +^0 JSR RWTS + BCS >1 + SBC #0 + DEY + CPY #7 + BGE <0 + RTS +; +; Give error to Applesoft +; +^1 LDX RWTSERR + JMP $D412 +;----------- +; +; +; + USR "O:CALUPDATER",ORG + END diff --git a/PSC Source Disk 4 - Fastload - Copy Protection - Title Page (v13)/S_DDBOOT.txt b/PSC Source Disk 4 - Fastload - Copy Protection - Title Page (v13)/S_DDBOOT.txt new file mode 100644 index 0000000..28076cf --- /dev/null +++ b/PSC Source Disk 4 - Fastload - Copy Protection - Title Page (v13)/S_DDBOOT.txt @@ -0,0 +1,71 @@ + NLS + TTL "S:DDBOOT" +ORG = $800 + NOG +; +; Print Shop +; Boot Data Disk message +; +; Boot Sector... +; + ORG ORG + OBJ $800 +; + HEX 01 +; + LDX $2B + LDA $C088,X +; + STA $C000 + STA $C00C + STA $C00E + STA $C054 + JSR $FB2F + JSR $FE84 + JSR $FC58 + JSR $FE89 + JSR $FE93 +; + LDY #0 +; +^0 LDA TEXT,Y + BEQ >1 + JSR $FDF0 + INY + BNE <0 +; +^1 STA $3F3 + STA $3F4 +; +^2 LDA $C000 + CMP #" " + BNE <2 + BIT $C010 + JSR $FC58 + LDA $2B + LSR + LSR + LSR + LSR + ORA #$C0 + SBC #0 + PHA + LDA #$FF + PHA + RTS +; +; +TEXT HEX 8D8D8D8D8D8D + INV "THIS IS A PRINT SHOP DATA DISK" + HEX 8D8D8D87 + ASC " " + ASC "PLEASE INSERT ANOTHER DISK" + HEX 8D8D + ASC " " + ASC "AND PRESS THE SPACE BAR..." + HEX 6000 +; +; +; + USR "O:DDBOOT",ORG + END diff --git a/PSC Source Disk 4 - Fastload - Copy Protection - Title Page (v13)/S_MAKETITLEPIC.txt b/PSC Source Disk 4 - Fastload - Copy Protection - Title Page (v13)/S_MAKETITLEPIC.txt new file mode 100644 index 0000000..2ee64f9 --- /dev/null +++ b/PSC Source Disk 4 - Fastload - Copy Protection - Title Page (v13)/S_MAKETITLEPIC.txt @@ -0,0 +1,133 @@ + NLS + TTL "S:MAKETITLEPIC" +ORG = $1000 +; +; Vertical hires screen compacter +; by Roland Gustafsson +; +DAT EPZ $00 +; +DESTLO EPZ DAT +DESTHI EPZ DAT+1 +XCOOR EPZ DAT+2 +YCOOR EPZ DAT+3 +LAST EPZ DAT+4 +REPT EPZ DAT+5 +HIRES EPZ DAT+6 +; +YLO = $1E00 +YHI = $1F00 +; +DATA = $4000 +; + ORG ORG + OBJ $0800 +; +; First make Ybase table +; + LDA #$20 + STA $E6 + LDA $C081 + LDY #0 +^0 STY DAT + TYA + JSR $F417 + LDY DAT + LDA $26 + STA YLO,Y + LDA $27 + STA YHI,Y + INY + CPY #$C0 + BLT <0 +; + LDA #DATA + CLC + ADC $AA60 + STA DESTLO + LDA /DATA + ADC $AA61 + STA DESTHI +; + LDA #0 + STA XCOOR + STA YCOOR + JSR GETBYTE +COMPLOOP STA LAST +; + JSR GETBYTE + BCS ITSOVER + CMP LAST + BEQ REPEAT + PHA + LDA LAST + JSR STORBYTE + PLA + JMP COMPLOOP +; +; Count number of repeats +; +REPEAT ORA #$80 + JSR STORBYTE + LDA #2 + STA REPT +^0 JSR GETBYTE + BCS >2 + CMP LAST + BNE >1 + INC REPT + BNE <0 + DEC REPT +; +^1 CLC +^2 PHA + LDA REPT + JSR STORBYTE + PLA + BCC COMPLOOP + BCS STORBYTE +; +; Last byte, so wrap up +; +ITSOVER PHA + LDA LAST + JSR STORBYTE + PLA +; +; Store byte to destination buffer +; +STORBYTE LDY #0 + STA (DESTLO),Y + INC DESTLO + BNE *+4 + INC DESTHI + RTS +; +; Get byte from hires page +; If SEC then this is last byte +; +GETBYTE LDX YCOOR + LDA YLO,X + STA HIRES + LDA YHI,X + STA HIRES+1 + LDY XCOOR + LDA (HIRES),Y + EOR #$7F + STA (HIRES),Y + EOR #$7F + AND #$7F + INX + CPX #$C0 + BLT >1 + LDX #0 + INY + CPY #$28 +^1 STY XCOOR + STX YCOOR + RTS +; +; +; + USR "O:MAKETITLEPIC",ORG + END diff --git a/PSC Source Disk 4 - Fastload - Copy Protection - Title Page (v13)/S_NOMOREBACKUP.txt b/PSC Source Disk 4 - Fastload - Copy Protection - Title Page (v13)/S_NOMOREBACKUP.txt new file mode 100644 index 0000000..d1e9147 --- /dev/null +++ b/PSC Source Disk 4 - Fastload - Copy Protection - Title Page (v13)/S_NOMOREBACKUP.txt @@ -0,0 +1,181 @@ + NLS + TTL "S:NOMOREBACKUP" + NOG +ORG = $1000 +; +; The Print Shop Companion +; +; Message instead of backup +; +SLOT EPZ $2B +; +DAT EPZ $E0 +; +TMPLO EPZ DAT +TMPHI EPZ DAT+1 +PRNTFLAG EPZ DAT+2 +CENTER EPZ DAT+3 +; +;----------- +VTAB = $FB5B +HOME = $FC58 +TEXT = $FB2F +WAIT = $FCA8 +;----------- + ORG ORG + OBJ $800 +;----------- + JMP START +;----------- +; +; Print routine: +; +PRINTLFT LSR CENTER +; +PRINT LDA #$FF + HEX 2C +PRINTINV LDA #$3F + STA $32 + LDA #0 + STA PRNTFLAG + PLA + STA TMPLO + PLA + STA TMPHI +^0 INC TMPLO + BNE >1 + INC TMPHI +^1 LDY #0 + LDA (TMPLO),Y + BEQ >3 + BIT CENTER + BPL >2 + BIT PRNTFLAG + BPL >4 +^2 PHA + JSR $FDF0 + PLA + CMP #$A0 + BGE <0 + LSR PRNTFLAG + BPL <0 +; +^3 LDA TMPHI + PHA + LDA TMPLO + PHA + SEC + ROR CENTER + JMP $FE84 +; +^4 LDA (TMPLO),Y + CMP #$A0 + BLT >5 + INY + BNE <4 +; +^5 TYA + LSR + EOR #$FF + CLC + ADC #18 + STA $24 + SEC + ROR PRNTFLAG + JMP <1 +;----------- +; +; BEEP Speaker +; +BEEP LDY #$30 +^0 LDA $C030 + LDA #$11 + JSR WAIT + LDA $C030 + LDA #$13 + JSR WAIT + DEY + BNE <0 + RTS +;----------- +; +; Draw inverse line +; +BOTLINE LDA #23 +INVLINE JSR $FBC1 + LDY #39 + LDA #$20 +^0 STA ($28),Y + DEY + BPL <0 + RTS +;----------- +; +; Startup screen +; +SCREEN1 JSR TEXT + JSR HOME + LDA #2 + STA $20 + LDA #36 + STA $21 + LDA #10 + STA $22 + LDA #22 + STA $23 +; + LDA #0 + JSR INVLINE + LDA #1 + JSR INVLINE + LDA #2 + JSR INVLINE + JSR BOTLINE + LDA #23 +^0 PHA + JSR $FBC1 + LDY #0 + LDA #$20 + STA ($28),Y + LDY #39 + STA ($28),Y + PLA + SEC + SBC #1 + BPL <0 +; + JSR PRINTINV + HEX 8D + ASC "THE PRINT SHOP COMPANION" + BRK + RTS +;----------- +; +; The program starts here: +; +START LDX SLOT + LDA $C088,X +; + SEC + ROR CENTER + JSR SCREEN1 + JSR HOME + JSR PRINT + BYT "CONTACT BRODERBUND SOFTWARE" + HEX 8D + BYT "FOR BACKUP DISK" + HEX 8D8D + ASC "PRESS TO CONTINUE..." + BRK + JSR BEEP +^0 LDA $C000 + CMP #$8D + BNE <0 + BIT $C010 + JMP ($FFFC) +;--- +; +; +; + USR "O:NOMOREBACKUP",ORG + END diff --git a/PSC Source Disk 4 - Fastload - Copy Protection - Title Page (v13)/S_NOMOREBACKUP2.txt b/PSC Source Disk 4 - Fastload - Copy Protection - Title Page (v13)/S_NOMOREBACKUP2.txt new file mode 100644 index 0000000..5bf58dc --- /dev/null +++ b/PSC Source Disk 4 - Fastload - Copy Protection - Title Page (v13)/S_NOMOREBACKUP2.txt @@ -0,0 +1,181 @@ + NLS + TTL "S:NOMOREBACKUP2" + NOG +ORG = $1000 +; +; The Print Shop Companion +; +; Message instead of backup +; +SLOT EPZ $2B +; +DAT EPZ $E0 +; +TMPLO EPZ DAT +TMPHI EPZ DAT+1 +PRNTFLAG EPZ DAT+2 +CENTER EPZ DAT+3 +; +;----------- +VTAB = $FB5B +HOME = $FC58 +TEXT = $FB2F +WAIT = $FCA8 +;----------- + ORG ORG + OBJ $800 +;----------- + JMP START +;----------- +; +; Print routine: +; +PRINTLFT LSR CENTER +; +PRINT LDA #$FF + HEX 2C +PRINTINV LDA #$3F + STA $32 + LDA #0 + STA PRNTFLAG + PLA + STA TMPLO + PLA + STA TMPHI +^0 INC TMPLO + BNE >1 + INC TMPHI +^1 LDY #0 + LDA (TMPLO),Y + BEQ >3 + BIT CENTER + BPL >2 + BIT PRNTFLAG + BPL >4 +^2 PHA + JSR $FDF0 + PLA + CMP #$A0 + BGE <0 + LSR PRNTFLAG + BPL <0 +; +^3 LDA TMPHI + PHA + LDA TMPLO + PHA + SEC + ROR CENTER + JMP $FE84 +; +^4 LDA (TMPLO),Y + CMP #$A0 + BLT >5 + INY + BNE <4 +; +^5 TYA + LSR + EOR #$FF + CLC + ADC #18 + STA $24 + SEC + ROR PRNTFLAG + JMP <1 +;----------- +; +; BEEP Speaker +; +BEEP LDY #$30 +^0 LDA $C030 + LDA #$11 + JSR WAIT + LDA $C030 + LDA #$13 + JSR WAIT + DEY + BNE <0 + RTS +;----------- +; +; Draw inverse line +; +BOTLINE LDA #23 +INVLINE JSR $FBC1 + LDY #39 + LDA #$20 +^0 STA ($28),Y + DEY + BPL <0 + RTS +;----------- +; +; Startup screen +; +SCREEN1 JSR TEXT + JSR HOME + LDA #2 + STA $20 + LDA #36 + STA $21 + LDA #10 + STA $22 + LDA #22 + STA $23 +; + LDA #0 + JSR INVLINE + LDA #1 + JSR INVLINE + LDA #2 + JSR INVLINE + JSR BOTLINE + LDA #23 +^0 PHA + JSR $FBC1 + LDY #0 + LDA #$20 + STA ($28),Y + LDY #39 + STA ($28),Y + PLA + SEC + SBC #1 + BPL <0 +; + JSR PRINTINV + HEX 8D + ASC "THE PRINT SHOP COMPANION" + BRK + RTS +;----------- +; +; The program starts here: +; +START LDX SLOT + LDA $C088,X +; + SEC + ROR CENTER + JSR SCREEN1 + JSR HOME + JSR PRINT + BYT "SEE REFERENCE MANUAL FOR" + HEX 8D + BYT "BACKUP INFORMATION." + HEX 8D8D + ASC "PRESS TO CONTINUE..." + BRK + JSR BEEP +^0 LDA $C000 + CMP #$8D + BNE <0 + BIT $C010 + JMP ($FFFC) +;--- +; +; +; + USR "O:NOMOREBACKUP2",ORG + END diff --git a/PSC Source Disk 4 - Fastload - Copy Protection - Title Page (v13)/S_SHOWTITLEPIC.txt b/PSC Source Disk 4 - Fastload - Copy Protection - Title Page (v13)/S_SHOWTITLEPIC.txt new file mode 100644 index 0000000..5cbf320 --- /dev/null +++ b/PSC Source Disk 4 - Fastload - Copy Protection - Title Page (v13)/S_SHOWTITLEPIC.txt @@ -0,0 +1,115 @@ + NLS + TTL "S:SHOWTITLEPIC" +ORG = $9000 +; +; Vertical hires screen decompacter +; by Roland Gustafsson +; +DAT EPZ $80 +; +TEMP EPZ DAT +SRCLO EPZ DAT+1 +SCRHI EPZ DAT+2 +COMPREPT EPZ DAT+3 +COMPSCRN EPZ DAT+4 +TMP0 EPZ DAT+5 +TMP1 EPZ DAT+6 +; +YLO = $1E00 +YHI = $1F00 +; + ORG ORG + OBJ $800 +;----------- +; +; Create YBASE table +; + LDX #0 +^0 TXA + PHA + AND #$C0 + STA TMP0 + LSR + LSR + ORA TMP0 + STA TMP0 + PLA + STA TMP1 + ASL + ASL + ASL + ROL TMP1 + ASL + ROL TMP1 + ASL + ROR TMP0 + LDA TMP1 + AND #$1F + ORA #$20 + STA YHI,X + LDA TMP0 + STA YLO,X + INX + CPX #$C0 + BCC <0 +; +; Point to title page +; + LDY #TITLEPIC + LDA /TITLEPIC + STY SRCLO + STA SCRHI +; + LDX #0 + LDY #0 +; +^1 LDA YLO,X + STA COMPSCRN + LDA YHI,X + STA COMPSCRN+1 + JSR COMPGET + AND #$7F + STA (COMPSCRN),Y + INX + CPX #$C0 + BLT <1 + LDX #0 + INY + CPY #$28 + BLT <1 + RTS +; +; Get a byte from compacted data +; +COMPGET LDA #00 + BPL >0 + DEC COMPREPT + BNE >1 + LSR COMPGET+1 + BPL >1 +; +^0 JSR COMPGET2 + BMI >2 +^1 RTS +; +^2 STA COMPGET+1 + JSR COMPGET2 + STA COMPREPT + JMP COMPGET +; +COMPGET2 STY >0+1 + LDY #00 + LDA (SRCLO),Y + INC SRCLO + BNE >0 + INC SCRHI +^0 LDY #00 + AND #$FF + RTS +; +TITLEPIC: +; +; +; + USR "O:SHOWTITLEPIC",ORG + END diff --git a/PSC Source Disk 4 - Fastload - Copy Protection - Title Page (v13)/S_SIDEB.txt b/PSC Source Disk 4 - Fastload - Copy Protection - Title Page (v13)/S_SIDEB.txt new file mode 100644 index 0000000..554bd1f --- /dev/null +++ b/PSC Source Disk 4 - Fastload - Copy Protection - Title Page (v13)/S_SIDEB.txt @@ -0,0 +1,219 @@ + NLS + TTL "S:SIDEB" + NOG +ORG = $1000 +;--------------------------; +; The Print Shop Companion ; +; Side B boot message ; +; ; +; Copyright 1985 ; +; by Roland Gustafsson ; +;--------------------------; +; +DAT EPZ $E0 +; +TMPLO EPZ DAT +TMPHI EPZ DAT+1 +PRNTFLAG EPZ DAT+2 +CENTER EPZ DAT+3 +;----------- +VTAB = $FB5B +HOME = $FC58 +TEXT = $FB2F +WAIT = $FCA8 +;----------- + ORG ORG + OBJ $800 +;----------- + JMP START +;----------- +; +; Print routine: +; +PRINTLFT LSR CENTER +; +PRINT LDA #$FF + HEX 2C +PRINTINV LDA #$3F + STA $32 + LDA #0 + STA PRNTFLAG + PLA + STA TMPLO + PLA + STA TMPHI +^0 INC TMPLO + BNE >1 + INC TMPHI +^1 LDY #0 + LDA (TMPLO),Y + BEQ >3 + BIT CENTER + BPL >2 + BIT PRNTFLAG + BPL >4 +^2 PHA + JSR $FDF0 + PLA + CMP #$A0 + BGE <0 + LSR PRNTFLAG + BPL <0 +; +^3 LDA TMPHI + PHA + LDA TMPLO + PHA + SEC + ROR CENTER + JMP $FE84 +; +^4 LDA (TMPLO),Y + CMP #$A0 + BLT >5 + INY + BNE <4 +; +^5 TYA + LSR + EOR #$FF + CLC + ADC #18 + STA $24 + SEC + ROR PRNTFLAG + JMP <1 +;----------- +; +; BEEP Speaker +; +BEEP LDY #$30 +^0 LDA $C030 + LDA #$11 + JSR WAIT + LDA $C030 + LDA #$13 + JSR WAIT + DEY + BNE <0 + RTS +;----------- +; +; Draw inverse line +; +BOTLINE LDA #23 +INVLINE JSR $FBC1 + LDY #39 + LDA #$20 +^0 STA ($28),Y + DEY + BPL <0 + RTS +;----------- +; +; Startup screen +; +SCREEN1 JSR TEXT + JSR HOME + LDA #2 + STA $20 + LDA #36 + STA $21 + LDA #10 + STA $22 + LDA #22 + STA $23 +; + LDA #0 + JSR INVLINE + LDA #1 + JSR INVLINE + LDA #2 + JSR INVLINE + LDA #3 + JSR INVLINE + LDA #4 + JSR INVLINE + JSR BOTLINE + LDA #23 +^0 PHA + JSR $FBC1 + LDY #0 + LDA #$20 + STA ($28),Y + LDY #39 + STA ($28),Y + PLA + SEC + SBC #1 + BPL <0 +; + JSR PRINTINV + HEX 8D + ASC "THE PRINT SHOP COMPANION" + HEX 8D + ASC "COPYRIGHT 1985" + HEX 8D + ASC "BY ROLAND GUSTAFSSON" + BRK + LDA #23 + JSR VTAB + JSR PRINTINV + ASC "BR0DERBUND SOFTWARE" + HEX 00 + RTS +;----------- +; +; The program starts here: +; +START SEC + ROR CENTER + JSR SCREEN1 + JSR HOME + JSR BEEP +; + JSR PRINT + ASC "SIDE B DOES NOT BOOT." + HEX 00 +START2 JSR PRINT + HEX 8D8D + ASC "PLEASE PUT SIDE A OF" + HEX 8D + ASC "THE COMPANION DISK IN DRIVE" + HEX 8D + ASC "AND PRESS " + HEX 8D00 +; +^0 LDA $C000 + BPL <0 + BIT $C010 +; + CMP #$9B + BEQ >1 + CMP #$9E + BEQ >2 + CMP #$8D + BNE <0 + JMP ($FFFC) +; +^1 LDA #9 + STA $22 + JSR HOME + JSR PRINT + ASC "TO COPY THIS SIDE OF THE DISK" + HEX 8D + ASC "USE THE STANDARD COPY PROGRAM" + HEX 8D + ASC "THAT CAME WITH YOUR COMPUTER." + HEX 8D00 + JMP START2 +; +^2 JSR TEXT + JSR HOME + JMP $6000 +;----------- +; +; +; + USR "O:SIDEB",ORG + END diff --git a/PSC Source Disk 4 - Fastload - Copy Protection - Title Page (v13)/S_TESTPROT.txt b/PSC Source Disk 4 - Fastload - Copy Protection - Title Page (v13)/S_TESTPROT.txt new file mode 100644 index 0000000..1cf2142 --- /dev/null +++ b/PSC Source Disk 4 - Fastload - Copy Protection - Title Page (v13)/S_TESTPROT.txt @@ -0,0 +1,138 @@ + NLS + TTL "S:TESTPROT" +ORG = $1000 +; +; Check Print Shop or Companion +; disk for copy protection and +; return the following error codes: +; PEEK(0)=0 ok disk +; =1 pirate copy +; +; +ERRCODE EPZ $00 +TIMERLO EPZ $01 +TIMERMD EPZ $02 +TIMERHI EPZ $03 +TEMP EPZ $04 +; +FLAGS = $BB00 +SLOT = $B7F7 +; +WAIT = $FCA8 +;----------- + ORG ORG + OBJ $800 +;----------- + JMP RECAL + JMP CHECK +;----------- +; +; Turn on drive and recal to track 34. +; +RECAL JSR DRIVEON + LDA #$80 + STA $478 + LDA #0 + JSR $B9A0 + LDA #34*2 + JSR $B9A0 + JMP DRIVEOFF +;----------- +; +; Check for copy protection +; +CHECK JSR DRIVEON +; +; Set timer for $020000 +; + LDY #2 + STY TIMERHI + DEY + STY TIMERLO + STY TIMERMD +; +; Set flags to FF +; + LDA #$FF +^0 STA FLAGS,Y + INY + BNE <0 +; +; Main Loop: +; +TOP DEC TIMERLO + BNE >0 + DEC TIMERMD + BNE >0 + DEC TIMERHI + BPL >0 + LDA #1 + JMP ERROR +; +^0 LDX SLOT + LDA $C08C,X + BPL *-3 +^1 CMP #$D4 + BNE TOP + JSR GETNYBL +^2 CMP #$D5 + BNE <1 + JSR GETNYBL +^3 CMP #$DE + BNE <2 + JSR GETNYBL + CMP #$D4 + BNE <3 + NOP + LDA $C08C,X + BPL *-3 + ROL + STA TEMP + LDA $C08C,X + BPL *-3 + AND TEMP + TAY + JSR GETNYBL + CMP #$F5 + BNE TOP + JSR GETNYBL + CMP #$AA + BNE TOP + LDA FLAGS,Y + BEQ TOP + LDA #$00 + STA FLAGS,Y + TAX + TAY +^0 LDA FLAGS,Y + BMI *+3 + INX + INY + BNE <0 + CPX #$A0 + BCC TOP +; + LDA #0 +ERROR STA ERRCODE +DRIVEOFF LDX SLOT + LDA $C088,X + RTS +;----------- +DRIVEON LDX SLOT + LDA $C089,X + LDA #$80 + JSR WAIT + JMP WAIT +;----------- +; +; Get a disk nybble +; +GETNYBL LDA $C08C,X + BPL GETNYBL + RTS +;----------- +; +; +; + USR "O:TESTPROT",ORG + END diff --git a/PSC Source Disk 4 - Fastload - Copy Protection - Title Page (v13)/TEST#040000.TXT b/PSC Source Disk 4 - Fastload - Copy Protection - Title Page (v13)/TEST#040000.TXT new file mode 100644 index 0000000..9e30303 --- /dev/null +++ b/PSC Source Disk 4 - Fastload - Copy Protection - Title Page (v13)/TEST#040000.TXT @@ -0,0 +1,8 @@ +HOME +FP +MONCIO +BLOAD PS.COPY +BLOAD PS.BACKUP.800.BFF,A$2400 +BLOAD TEST.B +CALL-151 +300L diff --git a/PSC Source Disk 4 - Fastload - Copy Protection - Title Page (v13)/TEST.B.txt b/PSC Source Disk 4 - Fastload - Copy Protection - Title Page (v13)/TEST.B.txt new file mode 100644 index 0000000..e128997 --- /dev/null +++ b/PSC Source Disk 4 - Fastload - Copy Protection - Title Page (v13)/TEST.B.txt @@ -0,0 +1,15 @@ +0300- A2 60 LDX #$60 +0302- BD 8B C0 LDA $C08B,X +0305- BD 89 C0 LDA $C089,X +0308- A9 60 LDA #$60 +030A- 8D 78 04 STA $0478 +030D- A9 00 LDA #$00 +030F- 20 A0 B9 JSR $B9A0 +0312- A9 44 LDA #$44 +0314- 20 A0 B9 JSR $B9A0 +0317- 86 08 STX $08 +0319- 4C 10 20 JMP $2010 +031C- 00 BRK +031D- 00 BRK +031E- 00 BRK +031F- 00 BRK diff --git a/PSC Source Disk 4 - Fastload - Copy Protection - Title Page (v13)/UP.BOOT.S4#040000.TXT b/PSC Source Disk 4 - Fastload - Copy Protection - Title Page (v13)/UP.BOOT.S4#040000.TXT new file mode 100644 index 0000000..da29440 --- /dev/null +++ b/PSC Source Disk 4 - Fastload - Copy Protection - Title Page (v13)/UP.BOOT.S4#040000.TXT @@ -0,0 +1,17 @@ +FP +MONI +BLOAD WRITE GROUP +HOME:CALL-151 +301:1 +3F8:4C 0 3 N 1000:0 N 1001<1000.2FFEM +.... +BLOAD O:BOOT1 ,A$1000 +BLOAD O:BOOT2 ,A$1100 +BLOAD O:BACKUP ,A$1700 +BLOAD CTITLE ,A$2000 +BLOAD PS.DOS ,A$2D00 +BLOAD O:DDBOOT ,A$4700 +B7E9:40 N 1000<0000.030F +.... +DONE +FP diff --git a/PSC Source Disk 4 - Fastload - Copy Protection - Title Page (v13)/UP.BOOT.S4.D2#040000.TXT b/PSC Source Disk 4 - Fastload - Copy Protection - Title Page (v13)/UP.BOOT.S4.D2#040000.TXT new file mode 100644 index 0000000..d6eb721 --- /dev/null +++ b/PSC Source Disk 4 - Fastload - Copy Protection - Title Page (v13)/UP.BOOT.S4.D2#040000.TXT @@ -0,0 +1,14 @@ +FP +MONI +BLOAD WRITE GROUP +HOME:CALL-151 +301:2 +3F8:4C 0 3 N 1000:0 N 1001<1000.2FFEM +.... +BLOAD O:BOOT1SIDEB ,A$1000 +BLOAD O:SIDEB ,A$1100 +BLOAD O:DRIVER ,A$1400 +B7E9:40 N 1000<0000.000F +.... +DONE +FP diff --git a/PSC Source Disk 4 - Fastload - Copy Protection - Title Page (v13)/UP.BOOT.S6#040000.TXT b/PSC Source Disk 4 - Fastload - Copy Protection - Title Page (v13)/UP.BOOT.S6#040000.TXT new file mode 100644 index 0000000..e8511e3 --- /dev/null +++ b/PSC Source Disk 4 - Fastload - Copy Protection - Title Page (v13)/UP.BOOT.S6#040000.TXT @@ -0,0 +1,16 @@ +FP +MONI +BLOAD WRITE GROUP +HOME:CALL-151 +3F8:4C 0 3 N 1000:0 N 1001<1000.2FFEM +.... +BLOAD O:BOOT1 ,A$1000 +BLOAD O:BOOT2 ,A$1100 +BLOAD O:BACKUP ,A$1800 +BLOAD CTITLE ,A$2000 +BLOAD PS.DOS ,A$2D00 +BLOAD O:DDBOOT ,A$4700 +B7E9