home *** CD-ROM | disk | FTP | other *** search
/ Almathera Ten Pack 4: Demo 1 / almathera_demo1.bin / sourcecode / dexion / fct1.s < prev    next >
Text File  |  1995-03-17  |  597b  |  45 lines
  1. execbase=4
  2. openlib=-408
  3. closelib=-414
  4. write=-48
  5. open=-30
  6.  
  7. int:
  8. move execbase,a6
  9. lea dosname,a1
  10. moveq #0,d0
  11. jsr openlib(a6)
  12. move.l d0,dosbase
  13. beq error
  14.  
  15. start:
  16. move.l #consolname,d1
  17. move.l #1005,d2
  18. bsr do_open
  19. beq error
  20. move.l d0,conhandle
  21. move.l dosbase,a6
  22. move.l conhandle,d1
  23. move.l #titel,d2
  24. move.l #titelende-titel,d3
  25. jsr write(a6)
  26.  
  27. do_open:
  28. move.l dosbase,a6
  29. jsr open(a6)
  30. tst.l d0
  31. rts
  32.  
  33. error:
  34. move.l #-1,d7
  35.  
  36. dosname: dc.b "dos.library",0,0
  37. consolname: dc.b "CON:0/10/640/200/**fct**",0
  38. even
  39. dosbase:blk.l 1
  40. conhandle: dc.b 0
  41. even
  42. titel: dc.b "**Velkommen til dette program**"
  43. titelende:
  44. even
  45.