Trailing-Edge - PDP-10 Archives - tops10and20_integ_tools_v9_3-aug-86 - tools/crc/browse/gtbypt.mac
There are no other files named gtbypt.mac in the archive.
	TITLE	gtbypt - get a byte pointer to a fortran string
	entry	gtbypt
;REFERENCE FROM macro with argument offset in t1,
;returns byte pointer in t1,
;and byte count in t2.
;crsout:setz	t1,       		;get argument 0
;	call	gtbypt			;get the byte pointer to the string
;	psout%				;and output
;	ret				;return
gtbypt:	add	t1,cx			;point to arg pointer
        ldb	t2,[point 4,(t1),12]	;get the argument type
	caie	t2,15			;type 15 = v7 asciz string
	 jrst	[movei	t1,@(t1)	;not v7 so get adr of string
                hrli	t1,(point 7,)	;and make a byte pointer
		movei	t2,0		;unknown length of string
		ret]			;and skip v7 portion
	dmove	t1,@(t1)		;get the v7 byte descriptor