home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / commodore-scene-files / Coverdisks / CDU / V4D02.D64 / savev1.0.asm < prev    next >
Encoding:
Assembly Source File  |  2019-04-13  |  1005 b   |  69 lines
  1. e
  2. _ New save routine. Saves the start address, the end address
  3. _ and the execute address for the loader.
  4. _ Note that s "name",8,start,end
  5. _ transfers information from address start to end - 1. ie the byte at end
  6. _ address isn't given. therefore the loader has to cope with the fact that
  7. _ the length is truely end-start, not end-start+1.
  8.  
  9. savevec    = $332
  10. execadd    = $fa
  11. textout     = $ff7d
  12.  
  13. _ Start of the code, initialise the save routine
  14.  
  15.     org $1300
  16.     ¢ activ
  17.     ¢ deactiv
  18. activ    equ *
  19.     ¥ #>saverout
  20.     » savevec
  21.     ¥ #<saverout
  22.     » savevec+1
  23.     £ textout
  24.     db 13,"new save routine installed",13,0
  25.     ¬
  26.  
  27. _ Deactivate the save routine
  28.  
  29. deactiv    equ *
  30.     ¥ #$4e
  31.     » savevec
  32.     ¥ #$f5
  33.     » savevec+1
  34.     £ textout
  35.     db 13,"save routine deactivated",13,0
  36.     ¬
  37.  
  38. _ Here is the actual save routine
  39.  
  40. saverout    equ *
  41.     ƒ $b7
  42.     ê save1
  43.     ¢ $f691
  44. save1    equ *
  45.     ¥ #$61
  46.     » $b9
  47.     £ $f0cb
  48.     £ $f5bc
  49.     ¥ $ba
  50.     £ $e33e
  51.     ¥ $b9
  52.     £ $e4d2
  53.     ƒ #0
  54.     £ $ed51
  55.     £ $e503
  56.     ¥ $ad
  57.     £ $e503
  58.     ¥ $ae
  59.     £ $e503
  60.     ¥ $af
  61.     £ $e503
  62.     ¥ execadd
  63.     £ $e503
  64.     ¥ execadd+1
  65.     £ $e503
  66.     ¢ $f586 
  67.  
  68.  
  69.