Google
 

Trailing-Edge - PDP-10 Archives - mit_emacs_170_teco_1220 - emacs/vtsdef.mid
There are no other files named vtsdef.mid in the archive.
;-*-MIDAS-*-

.MOFCI==:60			; Read full 12-bit character
				; changed from 52 to 60 for v5 9/7/82
VTSOP=:JSYS 635
RTMOD=:JSYS 636
STMOD=:JSYS 637
RTCHR=:JSYS 640
STCHR=:JSYS 641

; Terminal characteristics word
TC%MOV==:1_35.			; Absolute or relative cursor motion
TC%BS==: 1_34.			; Cursor back at least (backspace)
TC%HOM==:1_33.			; Home to top left hand corner
TC%CLR==:1_32.			; Clear entire screen at least
TC%SCL==:1_31.			; Clear selective portions of screen
TC%LID==:1_30.			; Line insert/delete
TC%CID==:1_29.			; Character insert/delete
TC%VBL==:1_28.			; Visible bell
TC%MET==:1_27.			; Has META (8-bit) key
TC%SCR==:1_26.			; Scrolls on down from bottom line
TC%RSC==:1_25.			; Reverse-scrolls on up from top-line
TC%OVR==:1_24.			; Overwrites
TC%FCI==:1_23.			; Has full 12-bit input capability

TC%PRT==:1_18.			; Printing terminal
TC%WRP==:1_17.			; Outputting in last line pos will CRLF

; Terminal mode word
TM%DPY==:1_35.			; Process ^P codes
TM%SCR==:1_34.			; Scroll mode / Wrap mode
TM%MOR==:1_33.			; More processing enabled
TM%MVR==:1_32.			; Verbose sort of more
TM%MSM==:1_31.			; Smart about more
TM%VBL==:1_30.			; Use visible bell for ^G

TM%ITP==:1_18.			; Intelligent terminal protocol in use
; VTS function codes

	.VTCNT==:1		; First arg is repeat count unless otherwise
				;  defined

.VTNOP==:0			; NOP - force cursor update
.VTFWD==:1			; Cursor forward
.VTBCK==:2			; Cursor back
.VTUP==:3			; Cursor up
.VTDWN==:4			; Cursor down
.VTHRZ==:5			; Set horizontal pos
	.VTHRA==:1			; value
.VTVRT==:6			; Set vertical pos
	.VTVRA==:1			; value
.VTMOV==:7			; Move cursor (x and y)
	.VTPOS==:1			; Y coord,,X coord
.VTHOM==:10			; Home up
.VTHMD==:11			; Home down
.VTADV==:12			; Advance to next line
.VTSAV==:13			; Save pos
.VTRES==:14			; Restore pos
.VTCLR==:15			; Clear window
.VTCEW==:16			; Clear to end-of-window
.VTCEL==:17			; Clear to end-of-line
.VTERA==:20			; Erase character ???
.VTBEC==:21			; Backspace and erase
.VTLID==:22			; Line insert/delete
;	.VTCNT==:1			; Repeat count
	.VTYLM==:2			; First line,,Last line
.VTCID==:23			; Character insert/delete
;	.VTCNT==:1			; Repeat count
	.VTXLM==:2			; First char,,Last char
.VTESC==:24			; Output VTS escape
; DPYOP JSYS (this should really be in the proper alphabetical place)

; Flags in AC2

DP%AG1==1_1			; First arg (in 3) exists
DP%AG2==1_2			; Second arg (in 4) exists