UNIVERSAL STENEX -- FAKE TENEX DEFINITIONS

repeat 0,<
	DEFINE ASSIGN(NAME,TYPE,SIZE<1>) <
NAME=:TYPE
TYPE==TYPE+SIZE
>;DEFINE ASSIGN
>;repeat 0
	define assign(name,type,size<1>) <
name::	block size
>

	EXTERNAL TIME,GETAB,HALTF,OPRFN,RUNTM,DISMS,PUPI,PUPO
	EXTERNAL BOUT,NOUT,SOUT,ODTIM,PUPNM,PBOUT,CFIBF,JFNS
	external erstr,dirst,dobe

;&@&$%!# MAXC opcode
	DEFINE UPSHJ(AC,ADR)
<	PUSHJ P,[PUSH P,A
		 LDB A,[POINT 9,40,8]
		 MOVE A,ADR(A)
		 EXCH A,(P)
		 POPJ P,]
>;UPSHJ

	OPDEF DISMIS [CALLI 400024]
	OPDEF INTENB [CALLI 400025]
	OPDEF UWAIT [CALLI 400034]

	END