Trailing-Edge - PDP-10 Archives - tops10and20_integ_tools_v9_3-aug-86 - tools/crc/browse/gtwrd.mac
There are no other files named gtwrd.mac in the archive.
	TITLE	gtwrd - get the word of the arg. may be a fortran string
	entry	gtwrd
;REFERENCE FROM macro with argument offset in t1,
;returns word in t1,
;uses t2.
;crclr:	movei	t1,2      		;get argument 2 (the 3rd)
;	call	gtwrd			;get the first word of the arg
;	movem	t1,@(cx)		;and move to start of array
;	...				;...
;	ret				;return
gtwrd:	add	t1,cx			;point to arg pointer
        ldb	t2,[point 4,(t1),12]	;get the argument type
	move	t1,@(t1)		;get the arg or text descr blk
	cain	t2,15			;type 15 = v7 asciz string
	 move	t1,(t1)			;v7 so get 1st word of text