Google
 

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