home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Assembler / dse-src6.dms / in.adf / BOUNCHSRCS.LZH / track.S < prev    next >
Encoding:
Text File  |  1987-05-18  |  638 b   |  39 lines
  1. track:
  2. move.l $4,a6
  3. move.l #0,a1
  4. jsr -294(a6)
  5. move.l d0,wport+$10
  6. lea wport,a1
  7. jsr -354(a6)
  8. lea wio,a1
  9. move.l #0,d0
  10. clr.l d1
  11. lea wtrddevice,a0
  12. jsr -444(a6)
  13. tst.l d0
  14. bne werror
  15. lea wio,a1
  16. move.l #wport,14(a1)
  17. move.w #2,28(a1) ;COMMAND:    2 LOAD - 3 SAVE - 11 FORMAT - 4 UTDATE
  18. move.l #$40000,40(a1) ;Where in memory
  19. move.l #$400,36(a1) ;Length
  20. move.l #$0,44(a1) ;Start on disk
  21. jsr -456(a6)
  22. move.w #$9,28(a1)   ;MOTOR
  23. move.l #0,36(a1)
  24. jsr -456(a6)
  25. lea wport,a1
  26. jsr -360(a6)
  27. lea wio,a1
  28. jsr -450(a6)
  29. werror:
  30. rts
  31.  
  32. wio: blk.l 20,0
  33. wport: blk.l 8,0
  34. PrgNr: dc.w 0
  35. PrgData:
  36. wtrddevice: dc 'trackdisk.device',0
  37. dosname: dc 'dos.library',0
  38. sluta:
  39.