home *** CD-ROM | disk | FTP | other *** search
/ Almathera Ten Pack 4: Demo 1 / almathera_demo1.bin / sourcecode / dexion / fct2.s < prev    next >
Text File  |  1995-03-17  |  643b  |  52 lines
  1. execbase=4
  2. openlib=-414
  3. open=-30
  4. close=-36
  5. read=-42
  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. bsr error
  14.  
  15. start:
  16. move.l #consolname,d1
  17. move.l #1005,d2
  18. move.l dosbase,a6
  19. jsr open(a6)
  20. tst.l d0
  21. beq error
  22. move.l d0,conhandle
  23. move #80,d3
  24. bsr readchr
  25. lea inline,a0
  26. clr.b 0(a0,d0)
  27. bsr pmsg
  28. move.l conhandle,d1
  29. move.l dosbase,a6
  30. jsr close(a6)
  31.  
  32. readchr:
  33. move.l #inline,d2
  34. move.l dosbase,a6
  35. move.l conhandle,d1
  36. jsr read(a6)
  37. rts
  38.  
  39. error:
  40. move.l #-1,d7
  41.  
  42. pmsg:
  43. move.l d2,a0
  44.  
  45. dosname: dc.b "dos.library",0,0
  46. consolname: dc.b "CON:0/100/640/100/**Hei**",0
  47. even
  48. dosbase: dc.b
  49. conhandle: dc.b
  50. even
  51. inline: blk.b 80,0
  52.