home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Assembler / dse-src6.dms / in.adf / BOUNCHSRCS.LZH / read-me.S < prev    next >
Encoding:
Text File  |  1987-05-18  |  402 b   |  26 lines
  1. spara:
  2. move.l $4,a6
  3. lea dos,a1
  4. jsr -408(a6)
  5. move.l d0,a6
  6. move.l #filename,d1
  7. move.l #00001006,d2  ;OPEN (1004=ReadWrite,1005=Old,1006=New)
  8. jsr -30(a6)
  9. beq error
  10. move.l d0,peekare
  11. move.l d0,d1
  12. move.l #$60000,d2  ;WHERE TO SAVE FROM
  13. move.l #$1f,d3  ;LENGTH
  14. jsr -48(a6)
  15. move.l peekare,d1
  16. jsr -36(a6)
  17. rts
  18.  
  19. error:
  20. bchg #1,$bfe001
  21. rts
  22.  
  23. Peekare: dc.l 0
  24. dos: dc 'dos.library',0
  25. filename: dc 'df0:MorotsPaj',0
  26.