Trailing-Edge
-
PDP-10 Archives
-
BB-L014E-BM
-
autopatch/pscan.c04
There are no other files named pscan.c04 in the archive.
REP 17/1 ;04C1
WIT
;WTK/JM 30-Sep-81 [1312] WARNING FOR PIC +,+++ OR -,---
;***** V12B *****
REP 11/12 ;04C2
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 ;04C3
FINSHA: ;[1312]
LDB CH,[POINT 8,MSKWRD,19] ;[1312] GET FIRST 2 MASK BYTES
CAIN CH,204 ;[1312] IF SIGN AND COMMA,
JRST FINAER ;[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