Google
 

Trailing-Edge - PDP-10 Archives - BB-M836A-BM - tools/sed/seddd.mac
There are 2 other files named seddd.mac in the archive. Click here to see a list.
TITLE	SEDDD - DATA DISK 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 SEDDD,SED

	SEARCH	SEDSYM
IFE TOPS10,<SEARCH MONSYM>

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

TERMNL:	ODDISK	;ADDRESS OF THE TERMINAL TABLE TO USE

ODDISK: BYTE (7) 36		;CURSOR UP
	BYTE (7) 34		; DOWN
	BYTE (7) 35		; RIGHT
	BYTE (7) 10		; LEFT
	BYTE (7) 37		; HOME
	BYTE (7) 4,";",6	;CLEAR PAGE
	BYTE (7) 4,"+",6	;CLEAR LINE
	0			;ROLL UP AND CLEAR LINE	(NONE)
	0			;ROLL DOWN AND CLEAR LINE (NONE)
	BYTE (7) 16		;PROTECT ON
	BYTE (7) 17		;PROTECT OFF
	0			;INSERT LINE
	0			;INSERT SPACE
	0			;DELETE LINE
	0			;DELETE SPACE
	BYTE (7) 37,36		;MOVE TO BOTTOM
	BYTE (7) 37,4,";",6	;HOME AND CLEAR PAGE
	POSCUR			;ROUTINE TO POSITION TO CHARACTER
	POSLIN			;ROUTINE TO POSITION TO START OF LINE
	^D40			;LINES PER PAGE
	^D80			;CHARACTERS PER LINE
	WRP!TBS!NRD!NRU!NLP	;FLAGS (WRAPAROUND, HARD TABS, NO ROLLS, NULL)
	CPOPJ			;ROUTINE TO CALL ON ENTRY
	CPOPJ			;ROUTINE TO CALL ON EXIT
	2,,6			;SEND 2 ^F'S AS NULLS
	IDDISK			;ADDRESS OF TERMINAL INPUT TABLE

		 0			;COMMAND FOR RUBOUT (RESET)
IDDISK: EXP	40, 1, 2, 3, 4, 5, 6, 7 ;RECALL IS A NULL
	EXP	10,11,50,13,14,15,16,17
	EXP	20,21,22,23,24,25,26,27
	EXP	30,31,32,33,34,35,36,37

;MOVE TO ROW (RW), COLUMN (CM)

POSCUR:	MOVE	T1,[BYTE (7) 4,"-"]
	PUSHJ	P,PUTSQ1	;START IT OFF
	MOVE	T1,RW		;GET ROW POSITION
	IDIVI	T1,12
	ADDI	T1,"0"
	IDPB	T1,TY
	MOVEI	T1,"0"(T2)
	IDPB	T1,TY

	MOVE	T1,CM		;GET COLUMN POSITION
	IDIVI	T1,12
	ADDI	T1,"0"
	IDPB	T1,TY
	MOVEI	T1,"0"(T2)
	IDPB	T1,TY
	JRST	POSEND		;DONE

;MOVE TO START OF LINE (T4)

POSLIN:	MOVE	T1,[BYTE (7) 4,"-"]
	PUSHJ	P,PUTSQ1	;START IT OFF
	MOVE	T1,T4		;GET ROW POSITION
	IDIVI	T1,12
	ADDI	T1,"0"
	IDPB	T1,TY
	MOVEI	T1,"0"(T2)
	IDPB	T1,TY
	MOVEI	T1,"0"		;MOVE TO COLUMN ZERO
	IDPB	T1,TY
	IDPB	T1,TY
	JRST	POSEND		;DONE

	END