Google
 

Trailing-Edge - PDP-10 Archives - bb-bt99e-bb - glxmac.c08
There are 2 other files named glxmac.c08 in the archive. Click here to see a list.
 REP 2/1	;08C1
		SUBTTL	/PJT/MLB/DC/DPM/CTK 2-Jun-83
 WIT
		SUBTTL	/PJT/MLB/DC/DPM/CTK/NT/LWS 1-Mar-84
 REP 57/1	;08C2
		MACEDT==0235			;EDIT NUMBER
 WIT
		MACEDT==0242			;EDIT NUMBER
 INS 249/3	;08C3
	236		Expanded the TRMTYP macro to include the address of a
			terminal initialization routine, and the escape sequences
			to set and clear keypad application modes. 24-Oct-83/NT

	237		Added ERR error code IFB for indirect command files that
			are too big to fit in buffer. 28-Dec-83 /LWS

	240		Make $DEFAULT macro PRINTX error message if no arg given.
			Hopefully this will prevent unwanted BDS stopcodes.
			4-Jan-84 /LWS

	241		Add NDN (Null device name given) to support fix in
			GLXSCN that catches ":" device name bug. /LWS

	242	10015	Add new SAB flag word and MDB priv bits.
			26-Mar-84 /DPM

 INS 106/55	;08C4
		ERR	IFB,<Indirect file too big for internal buffer>	;;[237]
		ERR	NDN,<Null device name given>		;;[241]
 REP 7/59	;08C5
	DEFINE	TRMTYP,<
		LSTOF.
		X(33,TTY33,33,)				;;MODEL 33
		X(35,TTY35,35,)				;;MODEL 35
	TOPS20<
		X(37,TTY37,37,)				;;MODEL 37
		X(EXECUPORT,EXEC,EXE,)			;;TI EXECUPORT
	>;;END TOPS20
	TOPS10<
		X(LA120,LA120,L12,)			;;LA120
	>;;END TOPS10
		X(LA36,LA36,L36,)			;;LA36
		X(VT05,VT05,V05,<37,177,177,177>)	;;VT05
		X(VT100,VT100,100,<.CHESC,"[","K">)	;;VT100
	;**;[235]ADD 6 LINES AFTER VT100 ENTRY 2-Jun-83/CTK
	TOPS10<	X(VT101,VT101,101,<.CHESC,"[","K">)>	;[235] VT101
		X(VT102,VT102,102,<.CHESC,"[","K">)	;[235] VT102
	TOPS10<	X(VT103,VT103,103,<.CHESC,"[","K">)>	;[235] VT103
		X(VT125,VT125,125,<.CHESC,"[","K">)	;[235] VT125
	TOPS10<	X(VT180,VT180,180,<.CHESC,"[","K">)>	;[235] VT180
	TOPS10<	X(VT185,VT185,185,<.CHESC,"[","K">)>	;[235] VT185
		X(VT50,VT50,V50,<.CHESC,"J">)		;;VT50
		X(VT52,VT52,V52,<.CHESC,"J">)		;;VT52
	TOPS10<	X(VT61,VT61,V61,<.CHESC,"J">)>		;;VT61
 WIT
	;**;[236] Added three new fields to the TRMTYP macro to include
	;**;[236]  a per terminal initialization routine, and escape
	;**;[236]  to set and clear the keypad mode./NT
	DEFINE	TRMTYP,<
		LSTOF.
	 X(33,TTY33,33,.RETT,,,)			;;MODEL 33
	 X(35,TTY35,35,.RETT,,,)			;;MODEL 35
	TOPS20<
	 X(37,TTY37,37,.RETT,,,)			;;MODEL 37
	 X(EXECUPORT,EXEC,EXE,.RETT,,,)			;;TI EXECUPORT
	>;;END TOPS20
	TOPS10<
	 X(LA120,LA120,L12,.RETT,,,)			;;LA120
	>;;END TOPS10
	 X(LA36,LA36,L36,.RETT,,,)			;;LA36
	 X(VT05,VT05,V05,.RETT,<37,177,177,177>,,)	;;VT05
	 X(VT100,VT100,100,SETTLC,<.CHESC,"[","K">,<.CHESC,"=">,<.CHESC,.CHRAB>) ;;VT100
	;**;[235]ADD 6 LINES AFTER VT100 ENTRY 2-Jun-83/CTK
	TOPS10<	X(VT101,VT101,101,SETTLC,<.CHESC,"[","K">,<.CHESC,"=">,<.CHESC,.CHRAB>)> ;;[235] VT101
	 X(VT102,VT102,102,SETTLC,<.CHESC,"[","K">,<.CHESC,"=">,<.CHESC,.CHRAB>) ;;[235] VT102
	TOPS10<	X(VT103,VT103,103,SETTLC,<.CHESC,"[","K">,<.CHESC,"=">,<.CHESC,.CHRAB>)> ;;[235] VT103
	 X(VT125,VT125,125,SETTLC,<.CHESC,"[","K">,<.CHESC,"=">,<.CHESC,.CHRAB>) ;;[235] VT125
	TOPS10<	X(VT180,VT180,180,SETTLC,<.CHESC,"[","K">,<.CHESC,"=">,<.CHESC,.CHRAB>)> ;;[235] VT180
	TOPS10<	X(VT185,VT185,185,SETTLC,<.CHESC,"[","K">,<.CHESC,"=">,<.CHESC,.CHRAB>)> ;;[235] VT185
	 X(VT50,VT50,V50,SETTLC,<.CHESC,"J">,<.CHESC,"=">,<.CHESC,.CHRAB>) ;;VT50
	 X(VT52,VT52,V52,SETTLC,<.CHESC,"J">,<.CHESC,"=">,<.CHESC,.CHRAB>) ;;VT52
	TOPS10<	X(VT61,VT61,V61,SETTLC,<.CHESC,"J">,<.CHESC,"=">,<.CHESC,.CHRAB>)> ;;VT61
 INS 50/75	;08C6
	SAB.MZ:!				;MIMIUM LENGTH OF SAB

	SAB.FL:!	BLOCK	1		;FLAG WORD
		SF.ECD==77B35			;ERROR CODE TO SET ON SENDS

 INS 36/76	;08C7
		MD.PIP==1B3			;PROCESS HAS IPCF PRIV.
		MD.POK==1B4			;PROCESS HAS POKE PRIV.
		MD.PLG==1B5			;PROCESS IS LOGGED IN
		MD.PXO==1B6			;PROCESS IS EXECUTE-ONLY
 REP 16/87	;08C8
	DEFINE $DEFAULT (ARG),<DEFINE .$DEFM <POINT 7,[ASCIZ\ARG\]>
				.%DEFM==1>
 WIT
	DEFINE $DEFAULT (ARG),<
		IFDIF <ARG> <>,<
	DEFINE .$DEFM <POINT 7,[ASCIZ\ARG\]>
				.%DEFM==1>
		IFIDN <ARG> <>,<
	IF1 <
	PRINTX %Null argument in $DEFAULT macro>>>
 SUM 147113