Trailing-Edge
-
PDP-10 Archives
-
bb-bt99e-bb
-
strgen.c05
There are 2 other files named strgen.c05 in the archive. Click here to see a list.
INS 22/1 ;05C1
;V12B****************
;NAME DATE COMMENTS
;JEH 01-DEC-82 [1434] Allow UNSTRING to return signs to signed
; destination fields
;JEH 14-JUN-82 [1365] If STRING source is edited and has occurs clause
; wrong size is used, change to external size
;JEH 11-JUN-82 [1364] UNSTRING delimiter has wrong size if figurative
; constant and source is edited
INS 10/32 ;05C2
HRRZ TA,ETABLA ;[1365] GET ASSOCIATED DATA ITEM
LDB TE,LNKCOD ;[1365]
CAIE TE,TB.DAT ;[1365] IS IT IN DATAB?
JRST STR8BB ;[1365] NO,CONT
PUSHJ PP,LNKSET ;[1365] YES
LDB TE,DA.EDT ;[1365] IS IT EDITED?
JUMPE TE,STR8BB ;[1365] NO
LDB TE,DA.EXS ;[1365] YES,
MOVEM TE,ESIZEA ;[1365] USE EXTERNAL SIZE
STR8BB: ;[1365]
INS 12/54 ;05C3
SETZM ETABLA ;[1364] ZERO LINK TO SOURCE FIELD
INS 87/67 ;05C4
TSWF FBSIGN ;[1434] UNLESS B IS SIGNED -
SWON FASIGN ;[1434] THEN PASS IT ON
SUM 248306