Mega Magazine 7/Mega_Magazine_07_19xx___nl_Disk_2_of_2_Side_B.atr/horbig.arc/HBDLINT.ASM

Assembly Source File | 1985-10-07 | 4KB | 1 lines

; POINT TO DLI¢     SEI¢     LDA #DLI&255¢     STA $200¢     LDA #DLI/256¢     STA $201¢     LDA #192       ; ACTIVATE¢     STA $D40E      ; DLI¢     CLI¢     RTS¢DLI¢; SAVE REGISTERS¢     PHA¢     TXA¢     PHA¢     TYA¢     PHA¢¢     LDX #255       ; FOR WSYNC¢¢     LDY DLN        ; CHECK IF DLN¢     CPY #2         ; COUNTER HAS COME¢     BMI NOMID      ; TO BIGSCROLLER¢     CPY #10¢     BPL NOMID      ; NO, MAYBE LATER¢¢     LDY #1         ; MAKE THE COLOUR¢     LDA 20         ; CYCLING¢DC16¢     CLC¢     ADC #2¢     STY $D40A¢     STA $D018¢     INY¢     CPY #13        ; DONE WHOLE CHAR¢     BNE DC16       ; YET ? NO, THEN DO¢     JMP EXITDLI¢NOMID¢¢     LDY DLN        ; TOP SCROLLER ?¢     BNE NOTOPSCR   ; NO, THEN SKIP¢     LDA HPOS+2     ; DO SCROLLER¢     STA $D404¢     LDY #0¢     LDA #$A8       ; NEW CHARSET¢     STA $D409¢DT1¢     TYA¢     CLC¢     ADC #112       ; SET SOME COLOURS¢     STX $D40A¢     STA $D016¢     LDA TABY,Y¢     CLC¢     ADC UPDAT¢     STA $D017¢     INY¢     CPY #14        ; WHOLE MODE LINE¢     BNE DT1        ; DONE ?¢     JMP EXITDLI¢NOTOPSCR¢¢     LDY DLN        ; SET SCROLL FOR¢     CPY #1         ; THE BIG TEXT ?¢     BNE NOT1       ; NO, THEN SKIP¢     LDA #0¢     STX $D40A¢     STA $D018¢     LDA HPOS+1¢     STA $D404¢     LDA #YOHO/256  ; POINT TO NEW CHAR¢     STA $D409      ; ONLY 255'S¢     JMP EXITDLI    ; ACTUALLY¢NOT1¢¢     LDY DLN        ; BOTTOM SCROLLER¢     CPY #11        ; REACHED ?¢     BNE NOLOWSCR   ; NO!¢¢     LDA HPOS       ; DO LOWER SCROLL¢     STA $D404¢     LDA #$A0       ; NEW CHARSET¢     STA $D409¢     LDA #0         ; BACKGROUND COLOUR¢     STX $D40A      ; SET TO BLACK¢     STA $D01A¢     LDY #0¢DB1¢     LDA BIGC,Y     ; DO SOME OTHER¢     SEC            ; COLOUR EFFECTS¢     SBC CNTR       ; ON LOWER SCROLL¢     STX $D40A¢     STA $D016¢     INY¢     CPY #14        ; DONE WHOLE MODE¢     BNE DB1        ; LINE YET ? NO!¢     JMP EXITDLI¢NOLOWSCR¢¢     LDY DLN        ; GRAPHICS 9 PIC.¢     CPY #12        ; REACHED ?¢     BNE NOGR9      ; NO, SKIP¢     LDA #1         ; SET GRPRIOR TO¢     ORA #96        ; GTIA 9¢     STA $D01B¢¢     LDA #0         ; SET PM SIZES¢     STA $D008¢     STA $D009¢     STA $D00A¢     STA $D00B¢¢     LDA #46        ; SET NORM. SCREEN¢     STA $D400      ; AND DOUBLE RES.¢¢     DEC SINP       ; 3 TIMES FOR¢     DEC SINP       ; SINUS POINTER¢     DEC SINP       ; TO DECREASE¢     LDY SINP¢     CPY #255       ; CHECK IT¢     BNE KAA1¢     LDY #179       ; RESET IT¢     STY SINP¢KAA1¢     LDA TABWAVE,Y  ; LOAD IT FROM¢     STA $D000      ; TABLE¢     CLC            ; AND PM'S WILL¢     ADC #8         ; FOLLOW¢     STA $D001¢     CLC¢     ADC #8¢     STA $D002¢     CLC¢     ADC #8¢     STA $D003¢¢     LDA DOBB+1     ; COLOUR EFFECT ON¢     CLC            ; PM¢     ADC #14¢     STA $D012¢     STA $D015¢     STA $D013¢     STA $D014¢     LDA DOBB+1¢     SEC¢     SBC #16¢     STA DOBB+1¢     LDY #0¢DOBB¢     LDA #0¢DOG9¢     CLC            ; SET COLOURS¢     ADC #16        ; ON GRAPHICS 9¢     STX $D40A      ; LINES¢     STA $D01A¢     INY¢     CPY #24¢     BNE DOG9¢     LDA #0         ; AND BACK TO BLACK¢     STY $D40A      ; WHEN DONE¢     STA $D01A¢     JMP EXITDLI¢NOGR9¢¢     LDY DLN        ; LOWER INFO LINE¢     CPY #13        ; REACHED ?¢     BNE NOBOTS     ; NO...¢     STY $D40A¢     LDA #0         ; BLACK!!¢     STA $D01A¢     STA $D018¢     STY $D017¢     LDA #1         ; SET PRIORITY¢     STA $D01B      ; BACK TO 1¢     LDA #$A8       ; NEW CHARSET¢     STA $D409¢     LDY #0¢POO1¢     LDA POOCOL,Y   ; AND DO THE COLOUR¢     STX $D40A      ; ON INFO LINE¢     STA $D016¢     INY¢     CPY #16¢     BNE POO1¢     JMP EXITDLI¢NOBOTS¢¢EXITDLI¢     INC DLN        ; INCREASE DLN¢                    ; COUNTER¢; RESTORE REGISTERS AND EXIT INTERRUPT¢     PLA¢     TAY¢     PLA¢     TAX¢     PLA¢     RTI¢