Google
 

Trailing-Edge - PDP-10 Archives - BB-M836B-BM - tools/sed/sedaa.mac
There are 2 other files named sedaa.mac in the archive. Click here to see a list.
;THIS IS INCOMPLETE:
;  WHAT CAN BE USED TO MAKE UP FOR 12-14 BEING USED FOR CURSOR MVMT?
;  CHECK WRAPAROUND, TABS

;NOTE: this is incomplete

TITLE	SEDAA - ANN ARBOR TERMINAL DEFINITIONS FOR THE EDITOR
SUBTTL	A CHRISTOPHER HALL FECIT

;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
;  OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
;
;COPYRIGHT (C) 1981 BY DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS.

;LOAD THE EDITOR BY: .LOAD SEDAA,SED
;		     .SS SED

	SEARCH	SEDSYM
IFE TOPS10,<SEARCH MONSYM>

	EXTERN	CPOPJ,PUTTYP,PUTNUM,PUTSTG,PUTSQ1,TRMNAM
	INTERN	TERMNL

TERMNL:	OANNAB	;ADDRESS OF THE TERMINAL TABLE TO USE

;TERMINAL OUTPUT TABLE - SEQUENCES TO MAKE THE TERMINAL DO SPECIAL THINGS
;FILL IN WITH THE CODES FOR YOUR TERMINAL

OANNAB:	BYTE (7) 16		;CURSOR UP
	BYTE (7) 12		; DOWN
	BYTE (7) 37		; RIGHT
	BYTE (7) 10		; LEFT
	BYTE (7) 13		; HOME
	0			;CLEAR TO END OF PAGE
	0			;CLEAR TO END OF LINE
	0			;ROLL UP AND CLEAR LINE
	BYTE (7) 12		;ROLL DOWN AND CLEAR LINE
	CPOPJ			;PROTECT ON (CPOPJ IF NONE)
	CPOPJ			;PROTECT OFF (CPOPJ IF NONE)
	0			;INSERT LINE (0 IF NONE)
	0			;INSERT SPACE (0 IF NONE)
	0			;DELETE LINE (0 IF NONE)
	0			;DELETE SPACE (0 IF NONE)
	BYTE (7) 13,16		;MOVE TO BOTTOM
	BYTE (7) 13,14		;HOME AND CLEAR PAGE
	CPOPJ			;SEQUENCE FOR ABSOLUTE POSITIONING
	CPOPJ			;ALGORITHM FOR CURSOR POSITIONING
	^D40			;LINES PER PAGE
	^D80			;CHARACTERS PER LINE
	MRK!NRD!LSD		;FLAGS (MARK ON ENTER, NO ROLL DOWN, LF==CD)
	CPOPJ			;ROUTINE TO CALL ON ENTRY
	CPOPJ			;ROUTINE TO CALL ON EXIT
	0			;NO NULLS NEEDED
	IANNAB			;ADDRESS OF INPUT CHARACTER TABLE
	"$"			;MARK TO DISPLAY ON ENTER (OMIT IF MRK NOT SET)

;TERMINAL INPUT TABLE - TELLS WHAT CONTROL CHARACTERS OR SEQUENCES
;INVOKE WHICH COMMANDS

		 0			;COMMAND FOR RUBOUT (RESET)
IANNAB:	EXP	40, 1, 2, 3, 4, 5, 6, 7
	EXP	10,11,50,37,14,15,34,17 ;13==HOME, 16==UP
	EXP	20,21,22,23,24,25,26,27
	EXP	30,31,32
	-7,,ISUBTB			;ESCAPE NEEDS A SUBTABLE (FOR EXAMPLE)
	EXP		 34,35,36,35    ;37==RIGHT

ISUBTB: 36,,"A" 	;ESCAPE A == UP
	34,,"B" 	;ESCAPE B == DOWN
	35,,"C" 	;ESCAPE C == RIGHT
	10,,"D" 	;ESCAPE D == LEFT
	33,,"P" 	;ESCAPE P == ENTER
	37,,"R" 	;ESCAPE R == HOME
	40,,"Q" 	;ESCAPE Q == RECALL

	END