home *** CD-ROM | disk | FTP | other *** search
/ Den Wahnsinn 3 / Den_Wahnsinn_3_1988_Verruckten_de_Side_B.atr / flash1.src < prev    next >
Text File  |  2023-02-26  |  640b  |  33 lines
  1. **************************************
  2. * BILDSTOERUNGS-DEMO 1 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 SCHRIFT
  11. UHR    EQU 20
  12.  
  13.     ORG $A800
  14.  
  15.  
  16.     PLA    STACK LOESCHEN
  17.     PLA    UND UDEFINED
  18.     PLA    IN DEN SAVER
  19.     STA SAVER
  20.  
  21.     LDA #00  UHR LOESCHEN
  22.     STA UHR
  23.  
  24. FLASH    LDA RND
  25.     STA COL
  26.  
  27. ZEIT    LDA UHR   UHR IN DEN AKKU
  28.     CMP SAVER VERGLEICHEN MIT
  29.     BNE FLASH SAVER <> FLASH
  30.  
  31. ENDE    RTS
  32.  
  33. ¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯