mirror of
https://github.com/PDP-10/its.git
synced 2026-03-13 22:09:35 +00:00
SYSTEM;TS3TTY bumped to 401, fixes #641.
AAA mode in :TCTYP now supports VT100 reasonably well to run :emacs and :cube.
This commit is contained in:
committed by
Lars Brinkhoff
parent
06939ac3b7
commit
7dfb7a2d89
@@ -6733,12 +6733,12 @@ TYMAAA: PUSHJ P,TYMPOS ;get X-Y motion and set dests.
|
||||
IDPB E,C ;send esc
|
||||
MOVEI E,"[ ;[
|
||||
IDPB E,C
|
||||
JUMPE B,TYMAVT ;going vertically only
|
||||
JUMPE A,TYMAHZ ;horizontally only
|
||||
JUMPE D,TYMAP3 ;if going to top line, optimize out 1st coord
|
||||
;JUMPE B,TYMAVT ;going vertically only
|
||||
;JUMPE A,TYMAHZ ;horizontally only
|
||||
;JUMPE D,TYMAP3 ;if going to top line, optimize out 1st coord
|
||||
MOVE E,D
|
||||
PUSHJ P,SNDNUM ;send vertical coord
|
||||
JUMPE TT,TYMAP5 ;if moving to leftmost col no second coord
|
||||
;JUMPE TT,TYMAP5 ;if moving to leftmost col no second coord
|
||||
TYMAP3: MOVEI A,73 ;or semicolon
|
||||
IDPB A,C
|
||||
MOVE E,TT
|
||||
|
||||
Reference in New Issue
Block a user