home *** CD-ROM | disk | FTP | other *** search
/ GEMini Atari / GEMini_Atari_CD-ROM_Walnut_Creek_December_1993.iso / files / language / forst / vt52.s < prev    next >
Encoding:
Text File  |  1993-10-23  |  1.8 KB  |  114 lines
  1. ; VT52.S: VT-52 emulation words
  2. ; Copyright <C> John Redmond, 1989, 1990
  3. ; Public domain for non-commercial use.
  4. ;
  5.     section    text
  6.     even
  7. ;    
  8. doesc:  push    d0
  9.         moveq.l #$1b,d0
  10.         push    d0
  11.         bsr     _conout
  12.         bsr     _conout
  13.         rts
  14. ;
  15. _tab:   moveq.l #$59,d0
  16.         bsr     doesc
  17.         moveq.l #$20,d0
  18.         add.l   (a6)+,d0
  19.         push    d0
  20.         bsr     _conout
  21.         moveq.l #$20,d0
  22.         add.l   (a6)+,d0
  23.         push    d0
  24.         bsr     _conout
  25.         rts
  26. ;
  27. _cursup: moveq.l #$41,d0
  28.         bsr     doesc
  29.         rts
  30. ;
  31. _cursdn: moveq.l #$42,d0
  32.         bsr     doesc
  33.         rts
  34. ;
  35. _cursrt: moveq.l #$43,d0
  36.         bsr     doesc
  37.         rts
  38. ;
  39. _curslft: moveq.l #$44,d0
  40.         bsr     doesc
  41.         rts
  42. ;
  43. _cls:   moveq.l #$45,d0
  44.         bsr     doesc
  45.         rts
  46. ;
  47. _scursup: moveq.l #$49,d0
  48.         bsr     doesc
  49.         rts
  50. ;
  51. _kdown: moveq.l #$4a,d0
  52.         bsr     doesc
  53.         rts
  54. ;
  55. _kright:moveq.l #$4b,d0
  56.         bsr     doesc
  57.         rts
  58. ;
  59. _iline: moveq.l #$4c,d0
  60.         bsr     doesc
  61.         rts
  62. ;
  63. _kline: moveq.l #$4d,d0
  64.         bsr     doesc
  65.         rts
  66. ;
  67. _curson: moveq.l #$65,d0
  68.         bsr     doesc
  69.         rts
  70. ;
  71. _cursoff: moveq.l #$66,d0
  72.         bsr     doesc
  73.         rts
  74. ;
  75.     section    data
  76.     even
  77. ;
  78.     dc.b    $83,'TA','B'!$80
  79.     ptrs    _tab,16
  80. ;
  81.     dc.b    $86,'CURSUP',$a0
  82.     ptrs    _cursup,20
  83. ;
  84.     dc.b    $86,'CURSDN',$a0
  85.     ptrs    _cursdn,20
  86. ;
  87.     dc.b    $86,'CURSRT',$a0
  88.     ptrs    _cursrt,20
  89. ;
  90.     dc.b    $87,'CURSLF','T'!$80
  91.     ptrs    _curslft,20
  92. ;
  93.     dc.b    $87,'SCURSU','P'!$80
  94.     ptrs    _scursup,20
  95. ;
  96.     dc.b    $85,'KDOW','N'!$80
  97.     ptrs    _kdown,18
  98. ;
  99.     dc.b    $86,'KRIGHT',$a0
  100.     ptrs    _kright,20
  101. ;
  102.     dc.b    $85,'ILIN','E'!$80
  103.     ptrs    _iline,18
  104. ;
  105.     dc.b    $85,'KLIN','E'!$80
  106.     ptrs    _kline,18
  107. ;
  108.     dc.b    $86,'CURSON',$a0
  109.     ptrs    _curson,20
  110. ;
  111.     dc.b    $87,'CURSOF','F'!$80
  112.     ptrs    _cursoff,20
  113. ;
  114.