Trailing-Edge
-
PDP-10 Archives
-
bb-y390o-bm_tops20_v41_atpch_20
-
autopatch/batcon.c12
There is 1 other file named batcon.c12 in the archive. Click here to see a list.
REP 28/1 ;12C1
BTNEDT==4217 ;EDIT NUMBER
WIT
BTNEDT==4301 ;EDIT NUMBER
INS 442/9 ;12C2
EDIT 4220 In routine STOPJB: check JL.UML to determine whether control Cs
should be sent to the job.
GCO 4.2.1618 SPR# 20-20752
4300 Increase version 4.2 maintenance edit number to correspond with version
5 maintenance edit number.
EDIT 4301 Allow user data line feeds and carriage returns to be passed
down the PTY: when the first character of the control file
is an "=". Suppress only the final CR-LF pair.
gco 5.1225
INS 11/43 ;12C3
;**;[4301]Insert 10 lines at CPYL.1:+1L JCR 10/15/85
TLNE F,FL.XCC ;[4301]Generated control character?
TLNE J,JL.UML ;[4301]Yes, at monitor level?
JRST CPYSND ;[4301]Yes, send character as is
CAIE CH,CHR.LF ;[4301]User level, don't treat ^J or ^L
CAIN CH,CHR.FF ;[4301]as generated control characters
JRST ZEROCC ;[4301]Go turn off FL.XCC
CAIE CH,CHR.CR ;[4301]Turn off FL.XCC for ^M also
JRST CPYSND ;[4301]Send it off
ZEROCC: TLZ F,FL.XCC ;[4301]Turn off FL.XCC
TLO F,FL.ZXC ;[4301]Indicate FL.XCC was once on
INS 15/43 ;12C4
;**;[4301] Insert 2 lines at CPYSND:+2L JCR 10/15/85
TLNE F,FL.ZXC ;[4301]Was this once a generated ctl char?
JRST CPYLIN ;[4301]Yes, get the next character
REP 27/43 ;12C5
;**;[4152] REPLACE 8 LINES AT CPYL.2:+0L WITH 6 LINES DSW 8/27/81
CPYL.2: CAIN CH,CHR.CR ;[4152] IS THIS THE CARRIAGE RETURN?
JRST CPYLIN ;[4152] YES, IGNORE THE CARRIAGE RETURN
CAIE CH,CHR.LF ;[4152] IS THIS A LINE FEED?
JRST CPYSND ;[4152] NO, SEND THIS CHARACTER
TLZ F,FL.SUP ;[4152] CLEAR THE SUPPRESSION FLAG
JRST CPYOUT ;[4152] OUTPUT THE CURRENT BUFFERS
WIT
;**;[4301]Replace 6 lines at CPYL.2:+0L with 17 lines JCR 10/15/85
CPYL.2: CAIN CH,CHR.CR ;[4301]Is this a carriage return?
JRST CHKCR ;[4301]Yes, determine if generated or not
CAIE CH,CHR.LF ;[4301]Is this a line feed?
JRST CHKFF ;[4301]No, check for form feed
TLZE F,FL.XCC ;[4301]Yes, is this a generated line feed?
JRST CHKLF ;[4301]Yes, this is user data, so send it
TLZ F,FL.SUP ;[4301]Clear the suppression flag
JRST CPYOUT ;[4301]Output the current buffers
CHKCR: TLZN F,FL.XCC ;[4301]Was this a generated carriage return?
JRST CPYLIN ;[4301]No, so ignore; get the next character
TLO F,FL.ZXC ;[4301]Yes, indicate it was once generated
JRST CPYSND ;[4301]Send it down the PTY:
CHKFF: CAIE CH,CHR.FF ;[4301]Is this a form feed?
JRST CPYSND ;[4301]No, so send it down the PTY
TLZ F,FL.XCC ;[4301]Yes, user data so turn off generated
CHKLF: TLO F,FL.ZXC ;[4301]Indicate it was once generated
JRST CPYSND ;[4301]Send it down the PTY:
INS 39/44 ;12C6
;**;[4301]Insert 1 line at UPZC.1:+1L JCR 10/15/85
TLO F,FL.ZXC ;[4301]Indicate FL.XCC was once on
REP 8/58 ;12C7
TLNE J,JL.UDI!JL.UJC!JL.UML ;INPUT OR JACCT OR AT EXEC SET
WIT
;**;[4220] change one line at STOPJB+4.L JYCW 5-JUN-85
TLNE J,JL.UML ;[4220] At user level
INS 9/75 ;12C8
;**;[4301] Insert 1 line at GETCTL:+6L JCR 10/15/85
TLZ F,FL.ZXC ;[4301]Clear zeroed FL.XCC bit
SUM 195198