home *** CD-ROM | disk | FTP | other *** search
/ Pokey's Magazine 11 & 12 / Pokeys_Magazine_11__12_1991_08___nl_Side_B.atr / scrol2.src < prev    next >
Text File  |  2023-02-26  |  2KB  |  90 lines
  1. * IDEM ALS SCROL1.SRC, MAAR NU MET
  2. * HARDWAREMATIGE SCROLLING.
  3.  
  4. SCREEN    EQU $BC40
  5. HSCROL    EQU $D404
  6. SETVBV    EQU $E45C
  7. SYSVBV    EQU $E45F
  8. DLST    EQU $230
  9.  
  10. RTCLOK    EQU $14
  11. TEXTADR    EQU $CB
  12. ZP    EQU $CB
  13.  
  14.     ORG $A800
  15.  
  16.     LDA DLST        LO BYTE DL
  17.     STA ZP
  18.     LDA DLST+1    HI BYTE DL
  19.     STA ZP+1
  20.     LDY #3
  21.     LDA (ZP),Y
  22.     ORA #%00010000
  23.     STA (ZP),Y
  24.  
  25. * BEGIN VAN TEXT IN (TEXTADR)
  26.  
  27.     LDA #TEXT:L
  28.     STA TEXTADR
  29.     LDA #TEXT:H
  30.     STA TEXTADR+1
  31.  
  32. * VERTICAL BLANK INTERRUPT INIT
  33.  
  34.     LDA #6
  35.     LDY #VBI:L
  36.     LDX #VBI:H
  37.     JSR SETVBV
  38.  
  39. * TERUG NAAR ATMAS
  40.  
  41.     RTS
  42.  
  43. * VERTICAL BLANK INTERRUPT:
  44. * COPIEER 40 BYTES VAN (TEXTADR)
  45. * TOT (TEXTADR)+40 NAAR $BC40
  46. * EN VERHOOG (TEXTADR)
  47. * OM DE TEXT NIET TE SNEL TE LATEN
  48. * GAAN (DEZE INTERRUPT WORDT 50
  49. * KEER PER SECONDE AANGEROEPEN)
  50. * WORDT ER MAAR TIJDENS 1 VAN DE 4
  51. * INTERRUPTS DAADWERKELIJK IETS
  52. * OP HET SCHERM GEKOPIEERD.
  53.  
  54. VBI    LDA RTCLOK    VAN 0-$FF
  55.     AND #%00000011    VAN 0-3
  56.     EOR #%00000011    VAN 3-0
  57.     STA HSCROL
  58.     CMP #3
  59.     BNE EXIT
  60.  
  61. * COPY TEXT NAAR SCREEN
  62.  
  63.     LDY #39+4
  64. COPTXT    LDA (TEXTADR),Y
  65.     STA SCREEN,Y
  66.     DEY
  67.     BPL COPTXT
  68.  
  69.     INC TEXTADR
  70.     BNE EXIT
  71.     INC TEXTADR+1
  72.  
  73. EXIT    JMP SYSVBV
  74.  
  75. * EN DE TEKST NATUURLIJK!
  76. * DEZE MOET NATUURLIJK NIET IN ASCII
  77. * MAAR IN INTERNE CODE GEASSEMBLEERD
  78. * WORDEN!
  79.  
  80. TEXT    ASC %                    %
  81.     ASC %                    %
  82.     ASC %EN ZIEDAAR, DE PROG%
  83.     ASC %RAMMEUR HAD DE EERSTE%
  84.     ASC % VAN VELE SCHERM %
  85.     ASC %ROLLERS GEMAAKT! %
  86.     ASC %HET SPREEKT VOOR ZICH%
  87.     ASC % DAT HIJ ER HEEL %
  88.     ASC %TROTS OP WAS EN %
  89.     ASC %BLA BLA BLA....  %
  90. ¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯