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