; VT52.S: VT-52 emulation words ; Copyright John Redmond, 1989, 1990 ; Public domain for non-commercial use. ; section text even ; doesc: push d0 moveq.l #$1b,d0 push d0 bsr _conout bsr _conout rts ; _tab: moveq.l #$59,d0 bsr doesc moveq.l #$20,d0 add.l (a6)+,d0 push d0 bsr _conout moveq.l #$20,d0 add.l (a6)+,d0 push d0 bsr _conout rts ; _cursup: moveq.l #$41,d0 bsr doesc rts ; _cursdn: moveq.l #$42,d0 bsr doesc rts ; _cursrt: moveq.l #$43,d0 bsr doesc rts ; _curslft: moveq.l #$44,d0 bsr doesc rts ; _cls: moveq.l #$45,d0 bsr doesc rts ; _scursup: moveq.l #$49,d0 bsr doesc rts ; _kdown: moveq.l #$4a,d0 bsr doesc rts ; _kright:moveq.l #$4b,d0 bsr doesc rts ; _iline: moveq.l #$4c,d0 bsr doesc rts ; _kline: moveq.l #$4d,d0 bsr doesc rts ; _curson: moveq.l #$65,d0 bsr doesc rts ; _cursoff: moveq.l #$66,d0 bsr doesc rts ; section data even ; dc.b $83,'TA','B'!$80 ptrs _tab,16 ; dc.b $86,'CURSUP',$a0 ptrs _cursup,20 ; dc.b $86,'CURSDN',$a0 ptrs _cursdn,20 ; dc.b $86,'CURSRT',$a0 ptrs _cursrt,20 ; dc.b $87,'CURSLF','T'!$80 ptrs _curslft,20 ; dc.b $87,'SCURSU','P'!$80 ptrs _scursup,20 ; dc.b $85,'KDOW','N'!$80 ptrs _kdown,18 ; dc.b $86,'KRIGHT',$a0 ptrs _kright,20 ; dc.b $85,'ILIN','E'!$80 ptrs _iline,18 ; dc.b $85,'KLIN','E'!$80 ptrs _kline,18 ; dc.b $86,'CURSON',$a0 ptrs _curson,20 ; dc.b $87,'CURSOF','F'!$80 ptrs _cursoff,20 ;