home *** CD-ROM | disk | FTP | other *** search
/ Almathera Ten Pack 4: Demo 1 / almathera_demo1.bin / sourcecode / dexion / fct3.s < prev    next >
Text File  |  1995-03-17  |  2KB  |  109 lines
  1. openlib=-408
  2. closelib=-414
  3. execbase=4
  4.  
  5. open=-30
  6. close=-36
  7. read=-42
  8. mode_old=1005
  9. opendvice=-444
  10. closedev=-450
  11.  
  12. sendio=-462
  13. abortio=-480
  14.  
  15. translate=-30
  16.  
  17. init:
  18. move.l execbase,a6
  19. lea dosname,a1
  20. moveq #0,d0
  21. jsr openlib(a6)
  22. move.l d0,dosbase
  23. beq error
  24. lea transname,a1
  25. clr.l d0
  26. jsr openlib(a6)
  27. move.l d0,tranbase
  28. beq error
  29. lea talkio,a1
  30. move.l #nwrrep,14(a1)
  31. move.l #amaps,48+8(a1)
  32. move #4,48+12(a1)
  33. move.l #512,36(a1)
  34. move #3,28(a1)
  35. move.l #outtext,40(a1)
  36. clr.l d0
  37. clr.l d1
  38. lea nardevice,a0
  39. jsr open
  40. tst.l d0
  41. bne error
  42. move.l #consolname,d1
  43. move.l #mode_old,d2
  44. move.l dosbase,a6
  45. jsr open(a6)
  46. tst.l d0
  47. beq error
  48. move.l d0,conhandle
  49. move.l #intext,d2
  50. bsr pline
  51. sayit:
  52. lea intext,a0
  53. move.l #outtext-intext,d0
  54. lea outtext,a1
  55. move.l #512,d1
  56. move.l tranbase,a6
  57. jsr translate(a6)
  58. lea talkio,a1
  59. move.l #512,36(a1)
  60. move.l execbase,a6
  61. jsr sendio(a6)
  62. bsr readchr
  63. quit:move.l execbase,a6
  64. lea talkio,a1
  65. jsr abortio(a6)
  66. move.l conhandle,d1
  67. move.l dosbase,a6
  68. jsr close(a6)
  69. move.l dosbase,d1
  70. move.l execbase,a6
  71. jsr closelib(a6)
  72. lea talkio,a1
  73. jsr closedev(a6)
  74. move.l tranbase,a1
  75. jsr closelib(a6)
  76. rts
  77. pline:
  78. bsr pmsg
  79. pmsg:
  80. move.l d2,a0
  81. clr d3
  82. readchr:
  83. move.l #inline,d2
  84. move.l dosbase,a6
  85. move.l conhandle,d1
  86. jsr read(a6)
  87. rts
  88.  
  89. error:
  90. move.l #-1,d7
  91.  
  92. text: dc.b 'dette er en prqve tekst',10,13,10,13,0,0
  93. dosname: dc.b 'dos.library',0,0
  94. transname: dc.b "translator.library",0
  95. consolname: dc.b 'raw:0/100/640/100/**Test-vindue',0
  96. nardevice: dc.b 'narrator-device',0
  97. even
  98. dosbase: dc.l 0
  99. tranbase: dc.l 0
  100. amaps: dc.b 3,5,10,12
  101. even
  102. conhandle: dc.l 0
  103. talkio: blk.l 20,0
  104. nwrrep: blk.l 8,0
  105. intext: dc.b 'hello, i am the amiga talking to you',0
  106. even
  107. outtext: blk.l 512,0
  108. inline: blk.l 80,0 
  109.