PrintShopCompanion-Apple-II/PSC Source Disk 4 - Fastloa.../O_NOMOREBACKUP.txt

168 lines
5.2 KiB
Plaintext

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)