Trailing-Edge
-
PDP-10 Archives
-
decuslib20-02
-
decus/20-0057/getbkt.mac
There are 2 other files named getbkt.mac in the archive. Click here to see a list.
TITLE GETBKT GET BREAK TABLE FOR COMPILER
ENTRY GETBKT
EXTERN BRKTB1,BRKTB2,BRKTB3,BRKTB4,S$$BKT
RADIX 10
SEARCH S$$NDF
COMMENT/
CALL: FUNCTION CALL, WITH ARGUMENTS EQUALIZED TO 1.
EXPECTS STRING ON ES, RETURNS 4-WORD BREAK TABLE IN BRKTB1
THROUGH BRKTB4/
MAKBKT: POP ES,R7 ; GET STRING DESCR
HRRZ R8,(R7) ; GET # OF CHARS
MOVEI R0,1 ; BIT MARK
MOVEI R1,R3 ; SET UP DUMMY TABLE IN R3-R6
SETZB R3,R4 ; AND CLEAR IT
SETZB R5,R6
MAKLOP: ILDB R2,R7 ; GET CHAR
DPB R0,S$$BKT(R2) ; SET BIT
SOJG R8,MAKLOP ; LOOP
MOVEM R3,BRKTB1 ; STORE TABLE IN EXTERNAL LOCS
MOVEM R4,BRKTB2
MOVEM R5,BRKTB3
MOVEM R6,BRKTB4
SETZ R1, ; RETURN NULL
JRST (R12)
; STORAGE
GETBKT: BYTE (4)4(5)0(4)1(5)0(18)MAKBKT ; FUNCTION DEF WORD
END