Trailing-Edge
-
PDP-10 Archives
-
BB-L014E-BM
-
autopatch/pscan.c05
There are 2 other files named pscan.c05 in the archive. Click here to see a list.
REP 10/1 ;05C1
;COPYRIGHT (C) 1974, 1981 BY DIGITAL EQUIPMENT CORPORATION
WIT
;COPYRIGHT (C) 1974, 1981, 1982 BY DIGITAL EQUIPMENT CORPORATION
INS 17/1 ;05C2
;DMN 01-Apr-82 [1347] Eliminate warning for PIC +,999 or -,999
REP 23/12 ;05C3
JRST FINAER ;[1312] NO SIG DIGIT SPACE
WIT
JRST [LDB CH,[POINT 4,MSKWRD,23] ;[1347] YES, GET NEXT CHAR
CAIE CH,10 ;[1347] IS IT A FLOATING SIGN?
JRST FINSH1 ;[1347] NO, ASSUME USER KNOWS WHAT HE IS DOING
JRST FINAER] ;[1347] [1312] NO SIG DIGIT SPACE
SUM 220344