Trailing-Edge
-
PDP-10 Archives
-
BB-L014E-BM
-
autopatch/srtsta.c05
There are 2 other files named srtsta.c05 in the archive. Click here to see a list.
REP 2/1 ;05C1
SUBTTL D.M.NIXON/DMN/DZN/DLC/BRF/CLRH/GCS 13-Apr-82
WIT
SUBTTL D.M.NIXON/DMN/DZN/DLC/BRF/CLRH/GCS 27-Oct-82
INS 17/12 ;05C2
;**;[511] @USRFMT + 13 lines, Insert 11 lines. DMN 27-Oct-82
SETZB T3,KY.FMT+2 ;[511] CLEAR FORMAT FLAGS.
CAIN T4,'B' ;[511] IS IT BLANK=?
JRST [ILDB T4,T0 ;[511] YES, SEE WHICH ONE.
CAIN T4,'N' ;[511] BLANK=NULL?
MOVX T3,KY%FBN ;[511] YES.
CAIN T4,'Z' ;[511] BLANK=ZERO?
MOVX T3,KY%FBZ ;[511] YES.
JUMPE T3,E$$FSA ;[511] NEITHER IS AN ERROR.
IORM T3,KY.FMT+2(T1) ;[511] STORE FLAGS.
ILDB T4,T0 ;[511] GET NEXT CHAR.
JRST .+1] ;[511] CONTINUE FORMAT SCAN.
REP 121/20 ;05C3
SETMAF: MOVEI J,IX.FPA ;[C20] FORTRAN FLOATING POINT ASCII
WIT
;**;[511] @SETMAF: Insert 2 lines. DMN 27-Oct-82
SETMAF: TXNE T1,RM.UNS ;[511] IS IT UNSIGNED?
SKIPA J,[IX.FPU] ;[511] YES.
MOVEI J,IX.FPA ;[C20] FORTRAN FLOATING POINT ASCII
SUM 47915