home *** CD-ROM | disk | FTP | other *** search
/ Almathera Ten Pack 4: Demo 1 / almathera_demo1.bin / sourcecode / dexion / demoload+close.s < prev    next >
Text File  |  1995-03-17  |  571b  |  46 lines
  1. ; laden der dos-library
  2. execbase = 4
  3. openlib  = -408 
  4. open     = -30
  5.  
  6. start:
  7. move.l execbase,a6
  8. lea dosname,a1
  9. moveq #0,d0
  10. jsr openlib(a6)
  11. move.l d0,dosbase
  12. beq error
  13. move.l dosbase,a6
  14. move.l #filename,d1
  15. move #1005,d2
  16. jsr -30(a6)
  17. move.l d0,conhandle
  18. beq error
  19. move.l conhandle,d1
  20. move.l #$46700,d2
  21. move.l #$20000,d3
  22. jsr -42(a6)
  23. move.l d0,lange
  24. beq error
  25. move.l conhandle,d1
  26. jsr -36(a6)
  27. jsr $40000
  28. rts
  29.  
  30. error: 
  31. moveq #8,d0
  32. rts
  33. dosname:
  34. dc.b  "dos.library",0,0
  35. even
  36. dosbase:
  37. blk.l 1
  38. conhandle:
  39. dc.l     $00000000
  40. even
  41. filename:
  42. dc.b    "twotabs",0,0
  43. even
  44. lange:
  45. dc.l    $00000000
  46.