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
SEARCH CRCSYM,MONSYM,MACSYM
entry gtwrd
;
;REFERENCE FROM macro with argument offset in t1,
;returns word in t1,
;uses t2.
;
;e.g.:-
;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
ret
end