Trailing-Edge
-
PDP-10 Archives
-
bb-bt99e-bb
-
batctl.c08
There is 1 other file named batctl.c08 in the archive. Click here to see a list.
REP 2/1 ;08C1
SUBTTL C.D.O'Toole, D.P.Mastrovito /CDO/DPM 1-Jun-82
WIT
SUBTTL C.D.O'Toole, D.P.Mastrovito /CDO/DPM/LWS 8-Nov-83
REP 21/12 ;08C2
; Input a label into .JLABL(R) (:: required after label)
WIT
;[4707] Input a label into .JLLBL(R) (:: required after label)
REP 40/12 ;08C3
MOVEM T1,.JLABL(R) ;STORE LABEL
WIT
;**;[4707] Change 1 line at LABI.1+3L. 8-Nov-83 /LWS
MOVEM T1,.JLLBL(R) ;[4707] STORE LAST LABEL ENCOUNTERED
REP 10/14 ;08C4
LABS.2: PUSH P,.JLABL(R) ;SAVE LABEL WE'RE SEARCHING FOR
PUSHJ P,LABEL ;TRY TO INPUT A LABEL
JRST LABS.3 ;CAN'T
POP P,S1 ;RESTORE SAVED LABEL
EXCH S1,.JLABL(R) ;SWAP WITH NEW LABEL JUST FOUND
CAXN S1,<'%FIN '> ;SPECIAL %FIN LABEL?
JRST LABS.5 ;YES
CAME S1,.JLABL(R) ;FOUND WHAT WE WANT?
JRST LABS.4 ;NO
POPJ P, ;YES - RETURN
LABS.3: POP P,.JLABL(R) ;RESTORE LABEL WE'RE SEARCHING FOR
WIT
;**;[4707] Redo code at LABS.2+0L 8-Nov-83 /LWS
LABS.2: PUSHJ P,LABEL ;TRY TO INPUT A LABEL
JRST LABS.4 ;[4707] CAN'T
MOVE S1,.JLLBL(R) ;[4707] GET LABEL JUST FOUND
CAXN S1,<'%FIN '> ;SPECIAL %FIN LABEL?
JRST LABS.5 ;YES
CAMN S1,.JLABL(R) ;[4707] FOUND WHAT WE WANT?
POPJ P, ;YES - RETURN
REP 37/14 ;08C5
MOVEM S1,.JLABL(R) ;STORE %FIN
WIT
;**;[4707] Delete 1 line at LABS.5+4L. 8-Nov-83 /LWS
REP 27/34 ;08C6
$IDENT (DUMP,< Last label: ^W/.JLABL(R)/^A>)
WIT
;**;[4707] Change line at DUMP.2+10L. 8-Nov-83 /LWS
$IDENT (DUMP,< Last label: ^W/.JLLBL(R)/^A>) ;[4707]
SUM 156847