home *** CD-ROM | disk | FTP | other *** search
/ Emulator Universe CD / emulatoruniversecd1998.iso / CPC / ROMs / NEBULUS.DSK / fadein.dat < prev    next >
Encoding:
Text File  |  1995-07-20  |  512 b   |  33 lines
  1.  
  2. ; Prog to fade screen in
  3. ; Picture should be loaded
  4. ; into 04000H before calling
  5. ; routine to display it
  6. ; All JR's so can be loaded
  7. ; anywhere in ram.........
  8.  ÄORG  08000H
  9.  ÄLD âHL,0C000H
  10.  ÄLD âDE,1FA3H
  11.  ÄLD âBC,4000H
  12. COPYBYTE: àPUSH DE
  13.  ÄPUSH HL
  14.  ÄPOP  DE
  15.  ÄRES  7,D
  16.  ÄLD âA,(DE)
  17.  ÄLD â(HL),A
  18.  ÄPOP  DE
  19.  ÄADD  HL,DE
  20.  ÄJR âNC,NOOVERFLOW
  21.  ÄLD âA,H
  22.  ÄADD  A,0C0H
  23.  ÄLD âH,A
  24. NOOVERFLOW: âLD âA,00FH
  25. SLOWITDOWN: âDEC  A
  26.  ÄJR âNZ,SLOWITDOWN
  27.  ÄDEC  BC
  28.  ÄLD âA,B
  29.  ÄOR âC
  30.  ÄJR âNZ,COPYBYTE
  31.  ÄRET
  32.  
  33. ╤O+"╤O:╘O=2╘O├AOß╤┴