home *** CD-ROM | disk | FTP | other *** search
/ Almathera Ten Pack 4: Demo 1 / almathera_demo1.bin / sourcecode / dexion / fct.s < prev    next >
Text File  |  1995-03-17  |  609b  |  45 lines
  1. execbase=4
  2. openlib=-408
  3. open=-30
  4. close=-36
  5. write=-48
  6.  
  7. int:
  8. move.l 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. move dosbase,a6
  19. jsr open(a6)
  20. tst.l d0
  21. beq error
  22. move.l d0,conhandle
  23. tst.l $dfe001
  24. bpl fyr
  25.  
  26. error:
  27. move.l #-1,d7
  28.  
  29. fyr:
  30. move.l dosbase,a6
  31. move.l conhandle,d1
  32. move.l #titel,d2
  33. move.l #titelende-titel,d3
  34. jsr write(a6)
  35.  
  36. dosname:
  37. dc.b "dos.library",0,0
  38. consolname: dc.b "CON:0/10/640/400/**FIRECAT OF UNITED**",0
  39. even
  40. dosbase: dc.l 0
  41. conhandle: dc.l 0
  42. even
  43. titel: dc.b"***** Hei din stoqoqojalksdjging ****"
  44. titelende:
  45.