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
SEARCH CRCSYM,MONSYM,MACSYM
entry gtbypt
;
;REFERENCE FROM macro with argument offset in t1,
;returns byte pointer in t1,
;and byte count in t2.
;
;e.g.:-
;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
ret
end