Enter your search terms Submit search form
	Web pdp-10.trailing-edge.com

 REP 3/1	;10C1
	;COPYRIGHT (C) 1975,1982,1983,1984 BY
 WIT
	;COPYRIGHT (C) 1975,1984 BY
 REP 29/68	;10C2
	EDIT(224); CORRECT EDIT 054 [JBS 4/1/80]
 WIT
	EDIT(224); CORRECT EDIT 054
 REP 39/68	;10C3
		;
		Edit(152);  Save AX over possible stack shifts.
		;
	FNN0:	SUBI	AX,(DB)		; [E152] Delocate AX over GETOWN
		TLO	AX,DB		; [E152]	"
 WIT

	EDIT(152);  SAVE AX OVER POSSIBLE STACK SHIFTS

	FNN0:	SUBI	AX,(DB)		; [E152] DELOCATE AX OVER GETOWN
		TLO	AX,DB		; [E152]
 REP 15/92	;10C4
		SKIPE	A2,(A2)		; [326] ANY MORE HEAL TABLES TO USE?
 WIT
		SKIPE	A2,(A2)		; [326] ANY MORE HEAP TABLES TO USE?
 REP 36/92	;10C5
		PUSH	SP,(A1)		; SAVE OLD UPEPER TABLE POINTER
 WIT
		PUSH	SP,(A1)		; SAVE OLD UPPER TABLE POINTER
 REP 39/141	;10C6
		CAIG	A2,(DB)		; BELOW STACK ?
 WIT
		CAIG	A2,(DB)		; BELOW STACK?
 REP 53/141	;10C7

	FNCG2:	TLZ	DB,TMPFL3	; SET OVL HEAP SEARCH FLAG

 WIT

	FNCG2:	TLZ	DB,TMPFL3	; SET OVL HEAP SEARCH FLAG
 REP 50/142	;10C8
		  JRST	  FNCG21		;   YES - USE IT
 WIT
		 JRST	  FNCG21	;   YES - USE IT
 REP 1/143	;10C9
	FNCCOR:	; GET CORE ANYWHERE
		SKIPE	A2,%SYSOV(DB)	; FIRST ENTRY ?
		  JRST	  FNCCR1	;   NO 
 WIT

	; GET CORE ANYWHERE
	FNCCOR:	SKIPE	A2,%SYSOV(DB)	; FIRST ENTRY ?
		 JRST	FNCCR1		;   NO 
 REP 14/143	;10C10
	FNCRAD:	; RETURN CORE
		MOVE	A1,@3(AX)	; ADDR OF PIECE TO RETURN
 WIT
	; RETURN CORE
	FNCRAD:	MOVE	A1,@3(AX)	; ADDR OF PIECE TO RETURN
 REP 1/144	;10C11
	FNCGOT:	; GET OTS (HEAP) CORE
		MOVE	A0,@4(AX)	; LENGTH
		PUSHJ	SP,GETOWN	; GET IT
		;
		; NOTE THAT, DESPITE THE DESCRIPTION IN SOME VERSIONS OF THE
		; DOCUMENTATION, THIS FUNCTION IS A "GET-CORE-ANYWHERE" TYPE
		;
 WIT

	; GET OTS (HEAP) CORE
	;
	; NOTE THAT, DESPITE THE DESCRIPTION IN SOME VERSIONS OF THE
	; DOCUMENTATION, THIS FUNCTION IS A "GET-CORE-ANYWHERE" TYPE
	;
	FNCGOT:	MOVE	A0,@4(AX)	; LENGTH
		PUSHJ	SP,GETOWN	; GET IT
 REP 11/144	;10C12
	FNCROT:	; RETURN OTS CORE
		MOVE	A1,@3(AX)	; ADDRESS
 WIT
	; RETURN OTS CORE
	FNCROT:	MOVE	A1,@3(AX)	; ADDRESS
 REP 17/144	;10C13
	FNCGCH:	; GET CHANNEL
		MOVEI	A1,17(DB)	; TRY 17 FIRST
 WIT
	; GET CHANNEL
	FNCGCH:	MOVEI	A1,17(DB)	; TRY 17 FIRST
 REP 30/144	;10C14
	FNCRCH:	; RETURN CHANNEL
		MOVE	A1,@3(AX)	; NUMBER
 WIT
	; RETURN CHANNEL
	FNCRCH:	MOVE	A1,@3(AX)	; NUMBER
 REP 37/144	;10C15
	FNCRNT:	; GET START RUN-TIME
		MOVE	A1,%SYS5(DB)
		JRST	FNCTST		; EASY

	FNCIFS:	; GET LOAD-FILE NAME, ETC
		MOVE	A1,%IFDAT+2(DB)	; DEVICE
 WIT
	; GET START RUN-TIME
	FNCRNT:	MOVE	A1,%SYS5(DB)
		JRST	FNCTST		; EASY

	; GET LOAD-FILE NAME, ETC
	FNCIFS:	MOVE	A1,%IFDAT+2(DB)	; DEVICE
 REP 57/144	;10C16
		BLT	A3,A3		; RETORE ACCS
 WIT
		BLT	A3,A3		; RESTORE ACCS
 DEL 65/144	;10C17

 SUM 105225