Trailing-Edge
-
PDP-10 Archives
-
bb-kl11c-bm_tops20_v6_1_atpch1_16
-
autopatch/reaper.c13
There are no other files named reaper.c13 in the archive.
INS 1/1 ;13C1
; *** Edit 303 to REAPER.MAC by MAYO on 3-Jan-86, for SPR #21030
; Do not allow REAPER's internal mail buffer to overflow; notice when it gets
; filled and send what we have, restarting the buffer afterwards to allow for
; more mail. Also, make the buffer much bigger.
; *** Edit 302 to REAPER.MAC by MAYO on 20-Dec-85, for SPR #21031
; Check only those entries in DIRS that have meaningful values at CHKDI1.
REP 5/2 ;13C2
.EDIT=^D302
WIT
.EDIT=^D303
INS 52/3 ;13C3
;**; [303] At NFILMX+1, add 1 line SM 3-Jan-86
MSGSIZ=12000 ;[303] LOTS OF SPACE FOR MESSAGES
REP 13/4 ;13C4
W$ MSGSPC,2000
W$ DIRCNT
W$ DIRPTR
WIT
;**; [303] At W$ MSGSPC, change number to symbol SM 3-Jan-86
W$ MSGSPC,MSGSIZ
W$ DIRCNT
W$ DIRPTR
;**; [302] At W$ DIRPTR+1 Add 1 line SM 20-Dec-85
W$ SKPCNT ;[302] for count of skippables
INS 33/10 ;13C5
;**; [302] At SKIP2:+2L Add 1 line SM 20-Dec-85
HRLZM ITMSTK,SKPCNT ; [302] Save count in LH of SKPCNT
REP 141/12 ;13C6
MOVE T3,CURDIR ; Get current dir #
MOVSI T1,-NDIRS ; Those to check
CHKDI1: CAME T3,DIRS(T1) ; Skip this guy?
AOBJN T1,CHKDI1 ; Loop
JUMPGE T1,CPOPJ1 ; Done, no match
WIT
MOVE T3,CURDIR ; Get current dir #
;**; [302] At CHKDIR:+3L Replace 1 line SM 20-Dec-85
MOVN T1,SKPCNT ;[302] Get -count,,0 of skippable directories
CHKDI1: CAME T3,DIRS(T1) ; Skip this guy?
AOBJN T1,CHKDI1 ; Loop
JUMPGE T1,CPOPJ1 ; Done, no match
REP 35/20 ;13C7
MOVE T1,CURDIR
WIT
CONUSR: MOVE T1,CURDIR ;[303] Add label
REP 47/20 ;13C8
HRROI T1,CRLF
CALL CSTR
MOVEI T1,MLBLK
MOVE T2,MAILFL ; Pick up flag type user wanted
WIT
EN2USR: HRROI T1,CRLF ;[303] Add label
CALL CSTR
MOVEI T1,MLBLK
MOVE T2,MAILFL ; Pick up flag type user wanted
REP 67/20 ;13C9
RET
WIT
;**; [303] At DOTMP-4L, Replace 1 line with 5 SM 3-Jan-86
MOVEI T3,-MSGSPC(T2) ;[303] GET SIZE OF STRING
CAIGE T3,MSGSIZ-60 ;[303] GETTING NEAR THE END?
RET ;[303] NO, PLENTY ROOM, NOT TO WORRY
CALL EN2USR ;[303] FULL UP. DUMP WHAT WE HAVE..
JRST CONUSR ;[303] SET UP FOR MORE, AND THEN RETURN
SUM 93