; POINT PMSCROLL MESSAGE TO PAGE ZERO¢; LOCATION $80+$81 FOR THE SCROLL COUNT¢ LDA #PMSCROLL&255¢ STA $80 ; ZERO PAGE¢ LDA #PMSCROLL/256¢ STA $81¢¢; SET TIMERS TO ZERO¢ LDA #0¢ STA 20¢ STA 19¢ STA 18¢; ENABLE VBI¢ LDA #6¢ LDY #VBI&255¢ LDX #VBI/256¢ JMP $E45C¢VBI¢ PHA¢ TYA¢ PHA¢ TXA¢ PHA¢; POINT CHARSET AT $7800¢ LDA #$78¢ STA $D409¢; FIND THE CHARACTER TO COPY TO PM¢ LDX BYTE¢ CPX #8¢ BNE FINTHIS¢ LDY #0¢ STY BYTE¢ LDA ($80),Y¢ CMP #$9B¢ BNE SKRESPM¢ LDA #PMSCROLL&255¢ STA $80¢ LDA #PMSCROLL/256¢ STA $81¢ LDA ($80),Y¢SKRESPM¢ SEC¢ SBC #32¢ STA $82¢ STY $83¢ INC $80¢ BNE NPHI¢ INC $81¢NPHI¢ ASL $82¢ ROL $83¢ ASL $82¢ ROL $83¢ ASL $82¢ ROL $83¢¢ LDA $82¢ CLC¢ ADC #0¢ STA $82¢ LDA $83¢ ADC #$7C ; CHARSET POINTER¢ STA $83¢FINTHIS¢ LDY BYTE¢ LDA ($82),Y¢ EOR #255¢; PUT IT ON SCREEN¢ LDY SLPM¢ STA DIST¢; RESET BOTTOM OF PM¢ LDA #0¢ STA $A200,Y¢ STA $A280,Y¢ STA $A300,Y¢ STA $A380,Y¢; BUT FIRST CALCULATE THE BITS¢ ROL DIST¢ BCS NONO1¢ LDA #240¢ STA $A200,Y¢NONO1¢ ROL DIST¢ BCS NONO2¢ LDA $A200,Y¢ ORA #15¢ STA $A200,Y¢NONO2¢¢ ROL DIST¢ BCS NONO3¢ LDA #240¢ STA $A280,Y¢NONO3¢ ROL DIST¢ BCS NONO4¢ LDA $A280,Y¢ ORA #15¢ STA $A280,Y¢NONO4¢¢ ROL DIST¢ BCS NONO5¢ LDA #240¢ STA $A300,Y¢NONO5¢ ROL DIST¢ BCS NONO6¢ LDA $A300,Y¢ ORA #15¢ STA $A300,Y¢NONO6¢¢ ROL DIST¢ BCS NONO7¢ LDA #240¢ STA $A380,Y¢NONO7¢ ROL DIST¢ BCS NONO8¢ LDA $A380,Y¢ ORA #15¢ STA $A380,Y¢NONO8¢; DO EACH BYTE IN CHARACTER 8 TIMES¢; 32 * 32 PLAYER¢ DEC BYTE+1¢ BNE WAIT1¢ INC BYTE¢ LDA #8¢ STA BYTE+1¢WAIT1¢¢; MOVE IT ALL UP ONE LINE¢ LDY #18¢COPM1¢ INY¢ LDA $A200,Y¢ DEY¢ STA $A200,Y¢ INY¢ LDA $A280,Y¢ DEY¢ STA $A280,Y¢ INY¢ LDA $A300,Y¢ DEY¢ STA $A300,Y¢ INY¢ LDA $A380,Y¢ DEY¢ STA $A380,Y¢ INY¢ CPY SLPM¢ BNE COPM1¢¢; UPDATE SCROLL MESSAGES 1 AND 2¢¢ DEC HPOS¢ BNE SDL1¢ LDA #8¢ STA HPOS¢ LDA TOP+1¢ STA $D5¢ LDA TOP+2¢ STA $D6¢ LDY #25¢ LDA ($D5),Y¢ CMP #255¢ BNE CS1¢ LDA #SCROLL&255¢ STA TOP+1¢ LDA #SCROLL/256¢ STA TOP+2¢CS1¢ INC TOP+1¢ BNE SDL1¢ INC TOP+2¢SDL1¢ LDA HPOS¢ STA $D404¢NOSCR1¢¢ DEC HPOS+1¢ DEC HPOS+1¢ BNE SDL2¢ LDA #8¢ STA HPOS+1¢ LDA BOT+1¢ STA $D5¢ LDA BOT+2¢ STA $D6¢ LDY #25¢ LDA ($D5),Y¢ CMP #255¢ BNE CS2¢ LDA #SCR2&255¢ STA BOT+1¢ LDA #SCR2/256¢ STA BOT+2¢CS2¢ INC BOT+1¢ BNE SDL2¢ INC BOT+2¢SDL2¢¢ LDA #0¢ STA $D004¢;¢ LDA 20¢ AND #3¢ BNE NOCUPD¢ LDY FCOUNT¢ INC FCOUNT¢ CPY #14¢ BNE NORY¢ LDY #0¢ STY FCOUNT¢ LDA FLASH+1¢ CLC¢ ADC #16¢ STA FLASH+1¢NORY¢ LDA FCOL,Y¢ CLC¢ ADC FLASH+1¢ STA FLASH¢ LDA FLASH¢ STA 709¢NOCUPD¢¢EXITVBL¢ PLA¢ TAX¢ PLA¢ TAY¢ PLA¢ JMP $E45F¢
