Google
 

Trailing-Edge - PDP-10 Archives - bb-bt99g-bb - cobddt.c07
There is 1 other file named cobddt.c07 in the archive. Click here to see a list.
 REP 7/1	;07C1
	;COPYRIGHT (C) 1974, 1981, 1982 BY
 WIT
	;COPYRIGHT (C) 1974, 1983 BY
 REP 26/1	;07C2
	EDIT==44
 WIT
	EDIT==46
 INS 34/2	;07C3
	;
	;.AUTOPATCH 7
	;
	;.EDIT	45	IMPLEMENT ACCEPT OF FLOATING POINT NUMBERS.
	;		DMN,21-APR-83,SPR:10-33718
	;		A:SRC COBDDT
	;
	;.EDIT	46	FIX 'STEP' WHEN 'MODULE' HAS CHANGED SYMBOL
	;;		TABLE IN USE
	;		JEH,23-JUN-83,SPR:10-33724
	;		A:SRC COBDDT
	;
 INS 12/12	;07C4
	ACTEPA:	BLOCK 1		;[46] ACTUAL CURRENT ENTRY POINT'S ADDRESS
 INS 53/16	;07C5
		MOVEM	T1,ACTEPA	;[46] SINCE 'MOD' COMMAND CAN ALTER CUREPA
 REP 40/69	;07C6
		SKIPN	@%NM		;DO WE HAVE SYMBOLS?
 WIT
		MOVE	T3,ACTEPA	;[46] Actual entry point
		HRRZ	T3,1(T3)	;[46] Low segment data for current module
		HRRZ	T2,%%NM.(T3)	;[46] Namtab table address
		SKIPN	T2		;[46] Any symbols?
 REP 44/69	;07C7
		ADD	T1,@%PR		;MAKE REAL ADDR
 WIT
		HRRZ	T3,%%PR.(T3)	;[46] Protab table address
		ADD	T1,T3		;[46] Protab entry for current routine
 REP 98/69	;07C8
		ADD	DT,@%NM
 WIT
		MOVE	T2,ACTEPA	;[46] Actual entry point
		HRRZ	T2,1(T2)	;[46] Current module's low seg data
		HRRZ	T2,%%NM.(T2)	;[46] Namtab table address
		ADD	DT,T2		;[46] Absolute address of symbol
 INS 58/70	;07C9
		HRRZM	T2,ACTEPA	;[46] Save as actual entry point, too
 REP 44/115	;07C10
	ACEP15:	PUSHJ	PP,ACEP25
 WIT
	ACEP15:	MOVE	T5,MODEB	;[45] GET MODE
		CAIN	T5,FPMODE	;[45] IF COMP-1
		JRST	ACEP16		;[45] USE FLOATING POINT
		PUSHJ	PP,ACEP25
 INS 1/116	;07C11
	;[45] FIELD IS FLOATING POINT

	ACEP16:	PUSHJ	PP,ACEP24	;[45] CREATE LITERAL FOR ACCEPT CALL
		SETZM	EAC		;[45] ACCEPT INTO 0 & 1
		MOVSI	CH,(MOVEM)	;[45]
		JRST	GENOPF		;[45]

 INS 18/116	;07C12
	ACEP24:	TRO	W1,1B19		;[45] FLOATING POINT FLAG
 REP 23/116	;07C13
	ACEP26:	HRR	W1,T2		;DECIMAL PLACES
 WIT
	ACEP26:	ADDI	W1,(T2)		;[45] DECIMAL PLACES
 SUM 212107