home *** CD-ROM | disk | FTP | other *** search
/ Den Wahnsinn 3 / Den_Wahnsinn_3_1988_Verruckten_de_Side_B.atr / flash3.src < prev    next >
Text File  |  2023-02-26  |  640b  |  38 lines
  1. **************************************
  2. * BILDSTOERUNGS-DEMO 3 AUF ATMAS II  *
  3. *    GESCHRIEBEN AM 13.3.1988 VON    *
  4. *        GLORY LORRY         *
  5. *   BASICAUFRUF: X=USR(ADR(S$),Y,)   *
  6. **************************************
  7.  
  8. SAVER    EQU $00F0 UDEF IN ZERO PAGE
  9. RND    EQU $D20A ZUFALL
  10. COL    EQU $D018
  11. COL2    EQU $D017
  12. UHR    EQU 20
  13.  
  14.     ORG $A800
  15.  
  16.  
  17.  
  18.     PLA    STACK LOESCHEN
  19.     PLA    UND UDEFINED
  20.     PLA    IN DEN SAVER
  21.     STA SAVER
  22.  
  23.     LDA #00  UHR LOESCHEN
  24.     STA UHR
  25.  
  26. FLASH    LDA RND
  27.     STA COL
  28.     LDA RND
  29.     STA COL2
  30.  
  31.  
  32.  
  33. ZEIT    LDA UHR   UHR IN DEN AKKU
  34.     CMP SAVER VERGLEICHEN MIT
  35.     BNE FLASH SAVER <> FLASH
  36.  
  37. ENDE    RTS
  38. ¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯