PROGRAM LISTING: 85-05/FADERII.M65

0100 ;FADERII.M65
0101 ;BY PATRICK DELL'ERA
0102 ;ANTIC MAGAZINE
0104 ;
0105 PROGRAM = $3E00
0106 BUFFER = $2007
0107 ;External reference equates
0108 LBL:105 = BUFFER+2
0109 LBL:106 = BUFFER+3
0110 LBL:091 = BUFFER+4
0111 LBL:064 = BUFFER+$0B
0112 LBL:121 = BUFFER+$0D
0113 LBL:125 = BUFFER+$0E
0114 LBL:127 = BUFFER+$16
0115 LBL:080 = BUFFER+$21
0116 LBL:107 = BUFFER+$22
0117 LBL:083 = BUFFER+$23
0118 LBL:078 = BUFFER+$24
0119 ;End of external references
0120 ;
0121 ;System equates used
0122 BOOT =  $09
0123 DOSVEC = $0A
0124 RTCLOK = $12
0125 SOUNDR = $41
0126 ATRACT = $4D
0127 SAVMSC = $58
0128 SDLSTL = $0230
0129 SDLSTH = $0231
0130 COLDST = $0244
0131 RUNADR = $02E0
0132 COLOR0 = $02C4
0133 COLOR1 = $02C5
0134 COLOR2 = $02C6
0135 COLOR4 = $02C8
0136 ICCOM = $0342
0137 ICBAL = $0344
0138 ICBAH = $0345
0139 ICBLL = $0348
0140 ICBLH = $0349
0141 ICAX1 = $034A
0142 ICAX2 = $034B
0143 CONSOL = $D01F
0144 RANDOM = $D20A
0145 CIOV =  $E456
0146 EOL =   $9B
0147 ;End of system equates
0148 ;Zero-page equates
0149 PIC.CTR = $E0
0150 N09 =   $EA
0151 CTR1 =  $BA
0152 CTR2 =  $BB
0153 SVCOLR = $CC
0154 PICTYPE = $CB
0155 N16 =   $EC
0156 N17 =   $E6
0157 N18 =   $E4
0158 N19 =   $E1
0159 N22 =   $E3
0160 N23 =   $EB
0161 N24 =   $E2
0162 N27 =   $E9
0163 N41 =   $80
0164 N42 =   $81
0165 N54 =   $82
0166 N55 =   $83
0167 N59 =   $84
0168 N60 =   $85
0169 ;End of zero-page equates
0170     .PAGE "Main Program  11/10/84"
0171 ;
0172 ;Program Start
0173 ; First two bytes are variables
0174 ; indicating the Pause length
0175 ; and the Drive # pictures are
0176 ; read from.
0177 ;
0178     *=  PROGRAM
0179 WAIT
0180     .BYTE 2
0181 DRNUM
0182     .BYTE '1
0183 ;
0184 ;Routine to load compressed
0185 ; files.
0186 ;
0187 READ.HDR
0188     INC PIC.CTR
0189     JMP GET.BYTE
0190 PIC.LDR
0191     LDA #$FF
0192     STA PIC.CTR
0193 LBL:007
0194     JSR READ.HDR
0195     LDX PIC.CTR
0196     CPX #$1A
0197     BEQ LBL:006
0198     CPX #$0D
0199     BEQ SVCOLR.PIC
0200     CPX #7
0201     BNE LBL:007
0202     STA N09
0203     JMP LBL:007
0204 SVCOLR.PIC
0205     STA SVCOLR+1
0206     JSR READ.HDR
0207     STA SVCOLR+2
0208     JSR READ.HDR
0209     STA SVCOLR+3
0210     JSR READ.HDR
0211     STA SVCOLR+4
0212     JSR READ.HDR
0213     STA SVCOLR
0214     JMP LBL:007
0215 LBL:006 LDA #0
0216     STA N16
0217     STA N17
0218     LDA SAVMSC
0219     STA PIC.CTR
0220     STA N18
0221     LDA SAVMSC+1
0222     STA PIC.CTR+1
0223     STA N18+1
0224 LBL:030 JSR GET.BYTE
0225     PHA 
0226     LDX #0
0227     STX N22
0228     AND #$80
0229     STA N23
0230     PLA 
0231     AND #$7F
0232     STA N24
0233     BNE LBL:025
0234     JSR GET.BYTE
0235     STA N22
0236     JSR GET.BYTE
0237     STA N24
0238 LBL:025 DEC N24
0239     LDA N23
0240     BNE LBL:026
0241     JSR GET.BYTE
0242     STA N27
0243 LBL:029
0244     JMP LBL:028
0245 LBL:032 DEC N24
0246     LDA #$FF
0247     CMP N24
0248     BNE LBL:029
0249     DEC N22
0250     LDA #$FF
0251     CMP N22
0252     BNE LBL:029
0253     BEQ LBL:030
0254 LBL:036 DEC N24
0255     LDA #$FF
0256     CMP N24
0257     BNE LBL:026
0258     DEC N22
0259     LDA #$FF
0260     CMP N22
0261     BEQ LBL:030
0262 LBL:026 JSR GET.BYTE
0263     STA N27
0264 LBL:028 LDA #2
0265     CMP N09
0266     BEQ LBL:031
0267 LBL:035 BEQ LBL:032
0268     LDA N27
0269     LDY #0
0270     STA (PIC.CTR),Y
0271     CLC 
0272     LDA #$50
0273     ADC PIC.CTR
0274     STA PIC.CTR
0275     LDA #0
0276     ADC PIC.CTR+1
0277     STA PIC.CTR+1
0278     INC N17
0279     LDA #$60
0280     CMP N17
0281     BNE LBL:033
0282     LDA #1
0283     CMP N16
0284     BNE LBL:034
0285     CLC 
0286     LDA #1
0287     ADC N18
0288     STA N18
0289     STA PIC.CTR
0290     LDA #0
0291     STA N16
0292     STA N17
0293     ADC N18+1
0294     STA N18+1
0295     STA PIC.CTR+1
0296     JMP LBL:033
0297 LBL:034 INC N16
0298     CLC 
0299     LDA #$28
0300     ADC N18
0301     STA PIC.CTR
0302     LDA #0
0303     STA N17
0304     ADC N18+1
0305     STA PIC.CTR+1
0306 LBL:033 LDA N23
0307     BEQ LBL:035
0308 LBL:037 BNE LBL:036
0309 LBL:031 LDA N27
0310     LDY #0
0311     STA (PIC.CTR),Y
0312     INC PIC.CTR
0313     BNE LBL:031.1
0314     INC PIC.CTR+1
0315 LBL:031.1
0316     LDA N23
0317     BEQ LBL:035 ;Forced branch
0318     BNE LBL:037 ;
0319 ;
0320 ;CIO utilities
0321 ;
0322 GET.BYTE
0323     LDX #$10
0324     LDA #0
0325     STA ICBLL,X
0326     STA ICBLH,X
0327     JSR CIOV
0328     BMI LBL:038
0329     RTS 
0330 LBL:038 PLA 
0331     PLA 
0332     JMP MIC.1
0333 CLOSE.CH1
0334     LDX #$10
0335 CLOSE.CH6
0336     LDA #$0C
0337     STA ICCOM,X
0338     JMP CIOV
0339 OPEN.1
0340     STA ICBAH,X
0341     TYA 
0342     STA ICBAL,X
0343     LDA #3
0344     STA ICCOM,X
0345 LBL:040 JSR CIOV
0346     BMI EXIT
0347     RTS 
0348 EXIT JSR CLOSE.CH1
0349     JMP (DOSVEC)
0350 ;
0351 ;Picture fader routine
0352 ;
0353 MSKTBL
0354     .BYTE $01,$08,$40,$02
0355     .BYTE $10,$80,$04,$20
0356 FADEIN
0357     LDA SAVMSC
0358     STA N41
0359     STA N54
0360     LDA #0
0361     STA CTR2
0362 LBL:104 LDA #7
0363     CMP CTR2
0364     BCS LBL:087
0365     RTS 
0366 LBL:087 LDX CTR2
0367     LDA #0
0368     STA LBL:080
0369 LBL:090 LDA #$FE
0370     CMP LBL:080
0371     BCC LBL:088
0372     TXA 
0373     PHA 
0374     LDX LBL:080
0375     LDY LBL:078,X
0376     PLA 
0377     TAX 
0378     JSR LBL:089
0379     INC LBL:080
0380     JMP LBL:090
0381 LBL:088 TXA 
0382     PHA 
0383     LDX #$FF
0384     LDY LBL:078,X
0385     PLA 
0386     TAX 
0387     JSR LBL:089
0388     LDA LBL:091
0389     BMI LBL:092
0390     LDY CTR2
0391     CPY #2
0392     BNE LBL:093
0393     LDA SVCOLR-1,Y
0394     STA COLOR0
0395 LBL:093
0396     CPY #3
0397     BNE LBL:096
0398     LDA SVCOLR-1,Y
0399     STA COLOR1
0400 LBL:096
0401     CPY #4
0402     BNE LBL:099
0403     LDA SVCOLR-1,Y
0404     STA COLOR2
0405 LBL:099
0406     CPY #5
0407     BNE LBL:092
0408     LDA SVCOLR
0409     STA COLOR4
0410 LBL:092 INC CTR2
0411     JMP LBL:104
0412 LBL:089
0413     LDA LBL:105
0414     STA N42
0415     LDA LBL:106
0416     STA N55
0417     LDA #0
0418     STA LBL:107
0419 LBL:113 LDA #$1D
0420     CMP LBL:107
0421     BCS LBL:108
0422     RTS 
0423 LBL:108 LDA (N41),Y
0424     AND MSKTBL,X
0425     BNE LBL:111
0426     LDA MSKTBL,X
0427     EOR #$FF
0428     AND (N54),Y
0429     JMP LBL:112
0430 LBL:111 ORA (N54),Y
0431 LBL:112 STA (N54),Y
0432     INC N42
0433     INC N55
0434     INX 
0435     TXA 
0436     AND #7
0437     TAX 
0438     INC LBL:107
0439     JMP LBL:113
0440 ;
0441 ;Program Entry
0442 ;
0443 START
0444     LDA DRNUM   ;User alterable
0445     STA DDVC+1  ;drive #
0446     LDX #1      ;Tells system
0447     STX BOOT    ;no Coldstart
0448     STX PICTYPE ;and initializes
0449     DEX 
0450     STX COLDST
0451     STX SOUNDR  ;No disk sound
0452 ;
0453 ;Build random table for fading
0454 ;picture.
0455 ;
0456 LBL:079 TXA 
0457     STA LBL:078,X
0458     INX 
0459     BNE LBL:079
0460     STX LBL:080
0461 LBL:081
0462     LDA #$FF
0463     STA N60
0464     EOR LBL:080
0465     PHA 
0466     STA N59
0467 LBL:062 ASL A
0468     BCS LBL:061
0469     LSR N60
0470     JMP LBL:062
0471 LBL:061 LDA RANDOM
0472     AND N60
0473     CMP N59
0474     BEQ LBL:063
0475     BCS LBL:061
0476 LBL:063
0477     STA LBL:083
0478     TAX 
0479     LDA LBL:078,X
0480     TAY 
0481     PLA 
0482     PHA 
0483     TAX 
0484     LDA LBL:078,X
0485     LDX LBL:083
0486     STA LBL:078,X
0487     PLA 
0488     TAX 
0489     TYA 
0490     STA LBL:078,X
0491     INC LBL:080
0492     INC PICTYPE
0493     BNE LBL:081
0494 ;
0495 ;Build screen dislpay list by
0496 ;closing channel 6
0497 ;
0498     LDX #$60
0499     JSR CLOSE.CH6
0500 ;
0501 ;Then open GRAPHICS 8+16
0502 ;
0503     LDA #$0C
0504     STA ICAX1,X
0505     LDA #8
0506     STA ICAX2,X
0507     LDY # <SDVC
0508     LDA # >SDVC
0509     JSR OPEN.1
0510 ;
0511 ;Give screen some color and
0512 ;modify display list to
0513 ;ANTIC E (GRAPHICS 7+) display
0514 ;list
0515 ;
0516     LDA #$80
0517     STA COLOR4
0518     LDA SDLSTL
0519     STA N41
0520     LDA SDLSTH
0521     STA N42
0522     LDY #3
0523     LDA #$4E
0524     STA (N41),Y
0525     LDY #6
0526 LBL:071 LDA #$0E
0527     STA (N41),Y
0528     INY 
0529     CPY #$63
0530     BNE LBL:071
0531     LDA #$4E
0532     STA (N41),Y
0533     INY 
0534     INY 
0535     INY 
0536 LBL:073 LDA (N41),Y
0537     CMP #$0F
0538     BNE LBL:072.A
0539     LDA #$0E
0540     STA (N41),Y
0541     INY 
0542     BNE LBL:073
0543 ;
0544 ;Set pointers to a hidden
0545 ;screen used to fade new
0546 ;picture into old.
0547 ;
0548 LBL:072.A
0549     STA LBL:106
0550     LDA SAVMSC+1
0551     STA LBL:106
0552     LDA LBL:106
0553     SEC 
0554     SBC #$20
0555     STA LBL:105
0556     LDA LBL:105
0557     STA SAVMSC+1
0558 ;
0559 ;Set ctr to point to first
0560 ;picture.
0561 ;
0562 FIRST.PIC LDA #1
0563     STA CTR1
0564 ;
0565 ;Open the disk directory for
0566 ;reading.
0567 ;
0568 NXT.PIC
0569     JSR CLOSE.CH1
0570     LDA #6
0571     STA ICAX1,X
0572     LDA #0
0573     STA ICAX2,X
0574     LDY # <DDVC
0575     LDA # >DDVC
0576     JSR OPEN.1
0577     STY CTR2    ;Y=0 always...
0578 ;
0579 ;Read filenames 'til CTR2=CTR1.
0580 ;CTR1 is index to which
0581 ;picture was last shown.
0582 ;
0583 LBL:119 LDA CTR1
0584     CMP CTR2
0585     BCC LBL:118
0586     LDX #$10
0587     LDA # <LBL:064+1
0588     STA ICBAL,X
0589     LDA # >LBL:064+1
0590     STA ICBAH,X
0591     LDA #20
0592     STA ICBLL,X
0593     LDA #0
0594     STA ICBLH,X
0595     LDA #5
0596     STA ICCOM,X
0597     JSR CIOV
0598     BMI FIRST.PIC
0599     INC CTR2
0600     BNE LBL:119
0601 ;
0602 ;Have read the correct # of
0603 ;filenames.  Now check if
0604 ;this is a FREE SECTORS message.
0605 ;If yes, start from 1st picture.
0606 ;
0607 LBL:118
0608     JSR CLOSE.CH1
0609     LDA LBL:121
0610     CMP #$20
0611     BNE FIRST.PIC
0612 ;
0613 ;Stick "D1:" in front of
0614 ;filename.
0615 ;
0616     LDX #2
0617 NAME.LOOP LDA DDVC,X
0618     STA LBL:064,X
0619     DEX 
0620     BPL NAME.LOOP
0621 ;
0622 ;Then reform name with no
0623 ;spaces, a period, the extender,
0624 ;and an end-of-line.
0625 ;
0626 NAME.LOOP.1 INX 
0627     CPX #8
0628     BEQ NAME.LOOP.2
0629     LDA LBL:125,X
0630     CMP #$20
0631     BNE NAME.LOOP.1
0632 NAME.LOOP.2 LDY LBL:127
0633     LDA #'.
0634     STA LBL:125,X
0635     TYA 
0636     INX 
0637     STA LBL:125,X
0638     STA PICTYPE
0639     LDA #'I
0640     INX 
0641     STA LBL:125,X
0642     LDA #'C
0643     INX 
0644     STA LBL:125,X
0645     LDA #EOL
0646     INX 
0647     STA LBL:125,X
0648 ;
0649 ;Open the picture for reading.
0650 ;
0651     JSR CLOSE.CH1
0652     LDA #4
0653     STA ICAX1,X
0654     LDA #0
0655     STA ICAX2,X
0656     LDY # <LBL:064
0657     LDA # >LBL:064
0658     JSR OPEN.1
0659     LDA LBL:105
0660     STA SAVMSC+1
0661     LDA #7
0662     LDX #$10
0663     STA ICCOM,X
0664 ;
0665 ;If the extender is 'PIC' then
0666 ;go to compressed picture load
0667 ;routine.
0668 ;
0669     LDY PICTYPE
0670     CPY #'P
0671     BNE MIC
0672     JMP PIC.LDR
0673 ;
0674 ;Otherwise, do standard load.
0675 ;
0676 MIC
0677     LDA SAVMSC
0678     STA ICBAL,X
0679     LDA SAVMSC+1
0680     STA ICBAH,X
0681     LDA #0
0682     STA ICBLL,X
0683     LDA #$1E
0684     STA ICBLH,X
0685     JSR LBL:040
0686     JSR GET.BYTE
0687     STA SVCOLR
0688     JSR GET.BYTE
0689     STA SVCOLR+1
0690     JSR GET.BYTE
0691     STA SVCOLR+2
0692     JSR GET.BYTE
0693     STA SVCOLR+3
0694 ;
0695 ;Both load types continue here.
0696 ;Fade new picture in.  Pause
0697 ;and read console keys.
0698 ;
0699 MIC.1
0700     JSR FADEIN
0701     JSR CLOSE.CH1
0702     LDA #0
0703     STA ATRACT
0704     STA RTCLOK+1
0705 LBL:134 LDA RTCLOK+1
0706     CMP WAIT
0707     BCS LBL:130
0708 LBL:132 LDA CONSOL
0709     CMP #5
0710     BNE LBL:133
0711     JMP EXIT
0712 LBL:133 CMP #3
0713     BNE LBL:133.1
0714 LBL:133.2
0715     LDA #6
0716 LBL:133.3
0717     CMP CONSOL
0718     BNE LBL:133.3
0719 LBL:133.1
0720     CMP #6
0721     BNE LBL:134
0722 LBL:130 INC CTR1
0723     JMP NXT.PIC
0724 DDVC
0725     .BYTE "D1:*.?IC",EOL
0726 SDVC
0727     .BYTE "S:",EOL
0728     *=  RUNADR
0729     .WORD START
0730     .SET 1,0