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

85 lines
2.6 KiB
Plaintext

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