home *** CD-ROM | disk | FTP | other *** search
/ GEMini Atari / GEMini_Atari_CD-ROM_Walnut_Creek_December_1993.iso / files / scrnsave / pyrosv_2 / pyro2.txt next >
Encoding:
Text File  |  1989-08-20  |  1.7 KB  |  51 lines
  1. QUICK HACK and CREDITS
  2.        Enclosed are different versions of the MAC fireworks screen saver
  3. J.SAFFER, uploaded in the file PYROSAVE.ARC (#11791).  I played around with
  4. the subroutine called 'continue' and changed the loop counter values.
  5. I figured out that on a stock 520 w/TOS 1.4 a value of 4285 equals 1 minute,
  6. 8570 works for 2 minutes, 12855 for 3 minutes, etc...   Download J.SAFFERs
  7. file for the complete source code. 
  8.  
  9.  
  10.  
  11. VERSIONS:
  12.        SAVER_1.PRG  delay for 1 minute
  13.        SAVER_3.PRG  delay for 3 minutes
  14.        SAVER_10.prg delay for 10 minutes
  15.        etc...
  16.  
  17.  
  18. THE CHANGE:
  19.        Here is the modified line:
  20.  
  21. continue:
  22.         move.w  vblanks,d0      ; get the vblanks counter value
  23.         addq.w  #1,d0           ; increment the counter
  24.         move.w  d0,vblanks      ; store the vblanks counter value
  25.         cmpi.w  #4285,d0       ; see if the appropriate time has passed
  26.                   ^
  27. **** CHANGE THIS  |  TO A MULTIPLE OF 4285 for x number of minutes ******
  28.  
  29.  
  30.         bne     gohome          ; otherwise skip it
  31.  
  32.         move.l  newscreen,d0    ; get the screen address
  33.         movea.l d0,a0           ; move the newscreen address into a0
  34.         move.w  #0,d0           ; set the loop counter to zero
  35.  
  36.  
  37. HOW COMPILED
  38.       I had problems with the original saver.prg crashing with TURBOST
  39. ver 1.6.  On a hunch I compiled it under MADMAC from the developer's
  40. kit using the following call:  mac saver_1.s -p   SAVER.PRG seems to
  41. work now with TURBOST.  
  42.  
  43. HOW TESTED:
  44.       These were tested on a mono monitor ST only.  I see no reason
  45. why they shouldn't work on a color system.
  46.  
  47.  
  48.                ENJOY,
  49.                       Brian Hunt (DILITHIUM, GEnie)
  50.                       Aug 20, 1989
  51.