Trailing-Edge
-
PDP-10 Archives
-
bb-kl11f-bm_tops20_v7_0_atpch1_19
-
autopatch/cobold.c09
There are 2 other files named cobold.c09 in the archive. Click here to see a list.
INS 5/2 ;09C1
;MJC 10-AUG-84 [1541] Make IF-END and ELSE define tags without using
;; NXTSEN.
REP 23/34 ;09C2
SKIPN CH,NXTSNT
WIT
;[1541] SKIPN CH,NXTSNT
REP 27/34 ;09C3
HRRZM CH,NXTSNT
WIT
;[1541] HRRZM CH,NXTSNT
REP 156/68 ;09C4
P192.A: HRRZ TA,IFLVL
ADD TA,SPFLVL
HRRZ TC,ARGL2-1(TA) ;F-TARGET
HLRM TC,ARGL2-1(TA) ;CLEAR IT
JRST P127.A ;DEFINE IT
WIT
HRRZ TA,IFLVL ;[1541] MOVE P192.A
ADD TA,SPFLVL
HRRZ TC,ARGL2-1(TA) ;F-TARGET
HRRM CH,ARGL2-1(TA) ;[1541]SAVE NEW ELSE TAG
JRST P127.A ;DEFINE IT
;[1541] DUPLICATE PA192. FOR P192.A BECAUSE IT DOESN'T NEED THE EDIT
P192.A: HRRZ TA,IFLVL ;[1541]
ADD TA,SPFLVL ;[1541]
HRRZ TC,ARGL2-1(TA) ;[1541]F-TARGET
HLRM TC,ARGL2-1(TA) ;[1541]ZERO OUT ENTRY
JRST P127.A ;[1541]DEFINE IT
INS 17/135 ;09C5
TRZ TYPE,AMRGN. ;[1541]SHUT OFF ANY MARGIN FLAG
REP 66/135 ;09C6
PUSHJ PP,PA193. ;Put out tag if required
WIT
PUSHJ PP,PA37. ;[1541]CLEAN UP IFLVL STACK
REP 88/135 ;09C7
PUSHJ PP,PA193. ;Put out tag if required
WIT
PUSHJ PP,PA37. ;[1541] Put out tag if required
INS 83/136 ;09C8
TRZ TB,AMRGN. ;[1541]RESET A MARGIN FLAG
SUM 141413