home *** CD-ROM | disk | FTP | other *** search
/ Almathera Ten Pack 4: Demo 1 / almathera_demo1.bin / sourcecode / dexion / demoload.s < prev    next >
Text File  |  1995-03-17  |  541b  |  44 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 #$40000,d2
  21. move.l #$10000,d3
  22. jsr -42(a6)
  23. move.l d0,lange
  24. beq error
  25. ;jsr $40000
  26. rts
  27.  
  28. error: 
  29. moveq #8,d0
  30. rts
  31. dosname:
  32. dc.b  "dos.library",0,0
  33. even
  34. dosbase:
  35. blk.l 1
  36. conhandle:
  37. dc.l     $00000000
  38. even
  39. filename:
  40. dc.b    "demodata",0,0
  41. even
  42. lange:
  43. dc.l    $00000000
  44.