Trailing-Edge
-
PDP-10 Archives
-
bb-kl11c-bm_tops20_v6_1_atpch1_16
-
autopatch/cobold.c15
There are 2 other files named cobold.c15 in the archive. Click here to see a list.
REP 3/1 ;15C1
SUBTTL PROCEDURE DIV. SYNTAX SCAN W.NEELY/CAM/SEB
WIT
SUBTTL PROCEDURE DIV. SYNTAX SCAN W.NEELY/CAM/SEB/MEM
INS 5/2 ;15C2
;MEM 4-NOV-85 [1635] Stop putting out an extra start expression
; operator for IF FOO(1:2) EQUALS BAR(1:2)
;MEM 16-OCT-86 [1631] Add error recovery for when we have dummy datab
; entry
REP 15/38 ;15C3
P120.2: SKIPN TA,TRMLVL ;COMING DOWN FROM HIGHER LEVEL?
WIT
P120.2: MOVEI TA,OPIF ;[1635] This indicates to PCA94A that we had
MOVEM TA,OPRTR+1 ;[1635] an AND or OR following an IF
SKIPN TA,TRMLVL ;COMING DOWN FROM HIGHER LEVEL?
INS 41/74 ;15C4
SOS TA ;[1631]Dummy entry is at 1+@datloc
CAMN TA,DATLOC ;[1631]IS IT THE DUMMY ENTRY?
JRST P205.3 ;[1631]YES - error
AOS TA ;[1631]Restore TA
REP 54/74 ;15C5
PUSHJ PP,PCA12. ;Skip to period
WIT
P205.3: PUSHJ PP,PCA12. ;[1631]Skip to period
REP 72/145 ;15C6
SKIPN TC ;[1562] If no current verb
DMOVE TC,IMPLOP ;[1562] get it from implop
DMOVEM TC,RMOPR ;
;[1561] CAIN TB,OPIF ;Is this an 'IF' clause?
WIT
;[1635] If we have IF FOO(1:2) EQUALS BAR(1:2)
;[1635] AND FOO(3:4) EQUALS BAR(3:4)
;[1635] then we come here four times for each of the RM. The first time
;[1635] OPRTR will be non-zero but the other three times it will be zero.
;[1635] We want to put out a '072' for the first RM after a IF, AND or OR.
;[1635] If we had an AND or OR then OPRTR+1, and therefore, TB was set to
;[1635] OPIF.
SKIPN TC ;[1562] If no current verb
MOVE TC,IMPLOP ;[1635] get it from implop
DMOVEM TC,RMOPR ;
SUM 252336