Trailing-Edge
-
PDP-10 Archives
-
bb-bt99g-bb
-
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
REP 17/1 ;05C2
WIT
;DMN 01-Apr-82 [1347] Eliminate warning for PIC +,999 or -,999
;WTK/JM 30-Sep-81 [1312] WARNING FOR PIC +,+++ OR -,---
;***** V12B *****
REP 11/12 ;05C3
JRST FINSH1 ;OK - NO SIGN OR LEADING SIGN
LDB CH,MP ;NOT LEADING BUT IS IT TRAILING?
CAIN CH,PICIS ;CHECK LAST MASK CHARACTER AGAINST INSERT SIGN
JRST FINSH1 ;OK - ITS TRAILING
WIT
JRST FINSHA ;[M1312] OK - NO SIGN OR LEADING SIGN
LDB CH,MP ;NOT LEADING BUT IS IT TRAILING?
CAIN CH,PICIS ;CHECK LAST MASK CHARACTER AGAINST INSERT SIGN
JRST FINSHA ;[M1312] OK - ITS TRAILING
INS 20/12 ;05C4
FINSHA: ;[1312]
LDB CH,[POINT 8,MSKWRD,19] ;[1312] GET FIRST 2 MASK BYTES
CAIN CH,204 ;[1312] IF SIGN AND COMMA,
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
LSH CH,-4 ;[1312] IF COMMA IS NOT FIRST
CAIE CH,4 ;[1312] AS IN +,+++ OR -,---
JRST FINSH1 ;[1312] ALL IS OK
FINAER: ;[1312]
MOVEI DW,E.651 ;[1312] OTHERWISE WARN ABOUT NO SIG. DIGIT
PUSHJ PP,WARNW## ;[1312] SPACE BEFORE COMMA
SUM 11786