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