PrintShopCompanion-Apple-II/PSC Source Disk 1 - System .../IPL.txt

109 lines
3.5 KiB
Plaintext

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