@Echo Control file to test Kermit-20 Transmit/Capture functions via pseudo-terminal LCLT20:: @CHKPNT LCLT20 @Echo Stomp TTY.CMD defaults @Terminal Ideal ! @Echo Test file is a funny MIT story: Alice's PDP-10" @Define F1: DOC:ALICES.PDP10.0 @Define F4: KT:ALICES.PDP10.0 @Echo Big file is Frank da Cruz and Chris Ryland's Assembler Guide (Incomplete) @Define F2: DOC:ASSEMBLER-GUIDE.DOC.0 @Define F3: KT:ASSEMBLER-GUIDE.DOC.0 VDirect F1:, F2: ! @Get Kermit @Info Ver ! ! LCLK20:: @CHKPNT LCLK20 ! @Start *Echo Condition Local Kermit-20 *CWD KT: *PWD *Set Prompt "Local-Kermit-20>" *Set Flow-Control None *Set Input Default-Timeout 6 *Set Input Timeout-Action Quit *Set Input Search-Default "\r\n@" *Show Input ! ! REMT20:: @CHKPNT REMT20 ! *Echo Sign into remote terminal, mount structure and connect to testing directory *Connect pseudo-terminal /stay !Don't waste a fork! *Input *Echo Note, no password needed for same user id on a pseudo-terminal *Output "slogin\r" *Input /silent *Echo Stomp TTY.CMD defaults *Output "Terminal Ideal\r" *Input /silent *Output "where Kermit Transmit/Capture Testing [Batch]\r" *Input /silent *Output "sm k20:\r" *Input /silent *Output "Connect k20:\r" *Input /silent ! ! REMK20:: @CHKPNT REMK20 ! *Echo Start Kermit on remote job *Output "Set NO Control-C-Capability\r" *Input /silent *Output "Get Kermit\r" *Input /silent *Output "Info Ver\r" *Input *Output "Start\r" *Input "Kermit-20>" ! ! *Echo Configure remote Kermit for easier recognition *Set Input Search-Default "\r\nRemote-Kermit-20>" *Show Input *Output "Set Prompt Remote-Kermit-20>\r" *Input /silent *Echo "Flow control over a pseudo-terminal doesn't really work" *Output "Set Flow-Control None\r" *Input /silent *Output "Set Input Default-Timeout 9\r" *Input /silent *Output "Show Input\r" *Input ! ! *Echo Basic test batteries to NUL: ! ! XMITNP:: @CHKPNT XMITNP ! *Echo Transmit/Capture with no parity *Set Parity None *Output "Set Parity None\r" *Input /silent *Output Capture /EOF  NUL: "Otto>>" \r *Input " instead\r\n" *Pause 1 !Give remote Kermit a chance to get going! *Transmit /Silent /EOF  F1: "Otto>>" *Input /silent ! ! XMITNS:: @CHKPNT XMITNS ! *Echo Transmit/Capture with Space parity (parity bit forced to zero) *Set Parity Space /Check-on-Receive /Packets-Only *Output "Set Parity Space /Check-on-Receive /Packets-Only\r" *Input /silent *Output Capture /EOF  NUL: "Otto>>" \r *Echo Transmit message changes somewhat after first time in Batch *Input " finish]\r\n" *Pause 1 *Transmit /silent /EOF  F1: "Otto>>" *Input /silent ! ! XMITNM:: @CHKPNT XMITNM ! *Echo Transmit/Capture with Mark parity (parity bit forced to one) *Set Parity Mark /Check-on-Receive /Packets-Only *Output "Set Parity Mark /Check-on-Receive /Packets-Only\r" *Input /silent *Output Capture /EOF  NUL: "Otto>>" \r *Input " finish]\r\n" *Pause 1 *Transmit /silent /EOF  F1: "Otto>>" *Input /silent ! ! XMITNO:: @CHKPNT XMITNO ! *Echo Transmit/Capture with Odd parity *Set Parity Odd /Check-on-Receive /Packets-Only *Output "Set Parity Odd /Check-on-Receive /Packets-Only\r" *Input /silent *Output Capture /EOF  NUL: "Otto>>" \r *Input " finish]\r\n" *Pause 1 *Transmit /silent /EOF  F1: "Otto>>" *Input /silent ! ! XMITNR:: @CHKPNT XMITNR ! *Echo Transmit/Capture with Odd parity, forcing an error *Set Parity None *Output "Set Parity Odd /Check-on-Receive /Packets-Only\r" *Input /silent *Output "Show Line\r" *Input *Output Capture /EOF  NUL: "Otto>>" \r *Input " finish]\r\n" *Pause 1 *Echo Have to time out so BATCON catches error when waiting for input @NOERROR *Transmit /Timeout 5 /EOF  F1: "Otto>>" *Echo Unclog the line *Clear /Display /Repeat 4,1.2 @ERROR *Output "\R" *Input /silent ! ! XMITNE:: @CHKPNT XMITNE ! *Echo "Transmit/Capture with Even parity" *Echo This is a harder test because it is testing both Tops-20 and Kermit parity *Output "Quit\r" *Input /silent "\r\n@" *Output "Terminal Parity\r" *Echo Must now check parity from Tops-20! *Set Parity Even /Check-on-Receive /Terminal-and-Packets *Input "\r\n@" *Output "Continue\r" *Input /silent *Output "Set Parity Even /Check-on-Receive /Terminal-and-Packets\r" *Input /silent *Output "Show Line\r" *Input *Output Capture /EOF  KT:ASSEMBLER-GUIDE.DOC;T "Otto>>" \r *Echo Note that continue resets the alert message *Input " instead\r\n" *Pause 1 *Transmit /Silent /EOF  F2: "Otto>>" *Input /silent *Output Capture /EOF  KT:ALICES.PDP10;T "Otto>>" \r *Input " finish]\r\n" *Pause 1 *Transmit /Silent /EOF  F1: "Otto>>" *Input /silent ! ! FINREM:: @CHKPNT FINREM *Echo Done with remote tests, exit the remote Kermit *Echo Show Remote Processor Time Used *Output "Quit\R" *Echo Set to look for EXEC prompt *Set Input Search-Default "\r\n@" *Input /silent *Output "Info Fork\R" *Input *Echo "Give the remote job a LONG time to log out" *Set Input Default-Timeout 20 *Output "Logout\R" *Input "Used" *Input "\r\n" ! ! FINLCL:: @CHKPNT FINLCL ! *Echo Finish up and close out the local Kermit *Clear /Display *Show Line *Connect Close *Quit @Info Fork ! ! CHKFIL:: @CHKPNT CHKFIL @Echo Compare transferred file @Info Job @Set Trap File @FILCOM *TTY:=F2:,F3: *TTY:=F1:,F4: = ! ! PORKY:: @CHKPNT PORKY @Modify Batch K20TCN /Dependency:0 @Echo That's all Folks!