KLASXMIT ;RTM;MSM CPU<->CPU TRANSMIT; [ 08/12/92 3:25 PM ]
; COPYRIGHT MICRONETICS DESIGN CORP. @1985
; If you need to send $C(1) or $C(2) through as data,
; pick another character and change the line INIT+1.
; %HT = wait time for READs (0 or 1)
; %DT = # of READs from IO device since last terminal read
; %DC = # iterations thru fast loop with no data received
; %RS = 1 if recording, 0 if not
S %INT=0 K %MSM ; $D(%MSM) flag for calling from %TRANS
S $ZT="ERROR^%XMIT"
GO S %HT=0,%DT=0,%DC=0,%RS=0 G:%INT INIT
W !?10,$P($P($ZV,","),"-")," - Transmission Utility"
ASK R !!,"I/O PORT? > ",%IO G:%IO="" EXIT G:%IO?1"^".E EXIT I %IO?1"?".E D QUE G ASK
I $I=%IO!'%IO W !!,"Cannot select your own device.",*7 G ASK
S $ZT="NOPEN^%XMIT"
B 1 O %IO::0 E W *7,"..line in use..waiting.." O %IO W "ready"
S $ZT="ERROR^%XMIT"
U %IO I $ZB($ZA,2,1) U 0 W !,"Device ",%IO," is an output only device.",*7 G ASK
INIT U 0 S %ESC=$ZB($ZA,64,1) ; save escape processing status
S %EXIT=$C(1),%RECORD=$C(2)
; Turn off pass-all, esc processing, & tab control. Set terminators
OPEN U %IO:(0::::#001001:#800040:::$C(3,8,13,21,24,27,127))
U 0:(0::::#000001:#800040:::$C(3,8,13,15,18,21,24,27,127)) W !
TERM ;
U 0 R %X:%HT
S %CR=$ZB ; get READ terminator
G:$E(%X)=%EXIT EXIT D:$E(%X)=%RECORD
.D @$S(%RS:"HALT",1:"RECORD") S %X=$E(%X,2,$L(%X)) Q
U %IO W:$L(%X) %X W:$T $C(%CR) S:$L(%X)!$T %DC=0,%HT=0 S %DT=0
PORT ;
U %IO R %Y:%HT G:%INT&(%Y=$C(1)) EXIT S %CR=$ZB U 0 W:$L(%Y) %Y W:$T $C(%CR) S:$L(%Y)!$T %DC=0,%HT=0,%DT=%DT+1
S:$L(%Y)&%RS %XS=%XS_%Y I $T,%RS S ^XMIT(%XN,%XE)=%XS,%XE=%XE+1,%XS=""
PORT1 I %DT>20 G TERM ; heavy incoming data, force check of CRT
G TERM:$L(%X),PORT:$L(%Y)
S %DC=%DC+1 G:%DC<500 TERM S %HT=1 ; READ timeout 1, goto slow mode
TERMWAIT ; TERMWAIT and PORTWAIT handle periods in which no data has been
; received from either side for %DC iterations through the
; TERM & PORT loop.
U 0 R %X#1:%HT E G PORTWAIT
G:%X=%EXIT EXIT
I %X=%RECORD D @$S(%RS:"HALT",1:"RECORD") S (%DC,%DT,%HT)=0 G TERM
S %CR=$ZB
U %IO W %X W:'$L(%X) $C(%CR) S (%DC,%DT,%HT)=0 G TERM
PORTWAIT ;
U %IO R %Y#1:%HT E G TERMWAIT
G:%INT&(%Y=%EXIT) EXIT ; %TRANS rtn or gbl selection finished
S %CR=$ZB
U 0 W %Y W:'$L(%Y) $C(%CR) S (%DC,%DT,%HT)=0
; If recording...
S:$L(%Y)&%RS %XS=%XS_%Y ; add to captured string
; or terminate & file captured string
I '$L(%Y),%RS S ^XMIT(%XN,%XE)=%XS,%XE=%XE+1,%XS=""
G PORT
EXIT ;
D:%RS HALT I $D(%ESC),%ESC U 0:(::::64)
K %ESC,%X,%Y,%RS,%XN,%XE,%XS,%DC,%DT,%HT,%CR,%EXIT,%RECORD
U:(%IO?.N)&(%IO'="") %IO:(:::::#001001:::$C(13,27))
U 0:(:::::#000001:::$C(13,27))
I %INT!$D(%MSM) B 1 K %INT Q ; return to %TRANS
I %IO?.N&(%IO'="") C %IO U 0 K %IO,%INT
W:'$F($ZE,"<DSCON>") !,"Transmission Complete",!!
Q
RECORD ;
S:'$D(^XMIT) ^XMIT(0)=1
S %XN=^XMIT(0),^XMIT(0)=%XN+1,%RS=1,%XS="",%XE=1,%X=$E(%X,2,999),^XMIT(%XN)=$H
U 0 W !!,"Recording Started in ^XMIT(",%XN,",1)",!
Q
HALT ;
S:$L(%XS) ^XMIT(%XN,%XE)=%XS S %RS=0
U 0 W !!,"Recording halted, last node is ^XMIT(",%XN,",",%XE,")",!!
Q
NOPEN S %IO="" ; avoid <NOPEN> on <INRPT>
ERROR ;
I $F($ZE,"<MXSTR>") F %XE=%XE:1 G:%XS="" ERROR1 S ^XMIT(%XN,%XE)=$E(%XS,1,255),%XS=$E(%XS,256,9999)
I $F($ZE,"<INRPT>") U 0 W !!,"...Aborted." D EXIT V 0:$J:$ZB($V(0,$J,2),#0400,7):2
I $F($ZE,"<DSCON>") DO:$I'=$P D EXIT V 0:$J:$ZB($V(0,$J,2),#0400,7):2
.U 0 W !!,"...Disconnected."
ZQ
ERROR1 S $ZT="ERROR^%XMIT" G PORT1 ; resume after <MXSTR>
INT ;FROM TRANSFER UTILS
S %INT=1 B 0 G GO
;
QUE W !! F %IO=1:1 S %X=$T(TEXT+%IO) Q:%X="" W $P(%X,";",2),!
Q
TEXT ;
;Enter the port number to be used for the transmission.
;While the transmission is in progress, all characters except CTRL/A
;and CTRL/B will be passed through to the port.
;Use CTRL/B to start or stop recording of the information in the XMIT
;global, and CTRL/A to exit the program.
KLASXMIT ;RTM;MSM CPU<->CPU TRANSMIT; [ 08/12/92 3:25 PM ]
+1 ; COPYRIGHT MICRONETICS DESIGN CORP. @1985
+2 ; If you need to send $C(1) or $C(2) through as data,
+3 ; pick another character and change the line INIT+1.
+4 ; %HT = wait time for READs (0 or 1)
+5 ; %DT = # of READs from IO device since last terminal read
+6 ; %DC = # iterations thru fast loop with no data received
+7 ; %RS = 1 if recording, 0 if not
+8 ; $D(%MSM) flag for calling from %TRANS
SET %INT=0
KILL %MSM
+9 SET $ZT="ERROR^%XMIT"
GO SET %HT=0
SET %DT=0
SET %DC=0
SET %RS=0
IF %INT
GOTO INIT
+1 WRITE !?10,$PIECE($PIECE($ZV,","),"-")," - Transmission Utility"
ASK READ !!,"I/O PORT? > ",%IO
IF %IO=""
GOTO EXIT
IF %IO?1"^".E
GOTO EXIT
IF %IO?1"?".E
DO QUE
GOTO ASK
+1 IF $IO=%IO!'%IO
WRITE !!,"Cannot select your own device.",*7
GOTO ASK
+2 SET $ZT="NOPEN^%XMIT"
+3 BREAK 1
OPEN %IO::0
IF '$TEST
WRITE *7,"..line in use..waiting.."
OPEN %IO
WRITE "ready"
+4 SET $ZT="ERROR^%XMIT"
+5 USE %IO
IF $ZB($ZA,2,1)
USE 0
WRITE !,"Device ",%IO," is an output only device.",*7
GOTO ASK
INIT ; save escape processing status
USE 0
SET %ESC=$ZB($ZA,64,1)
+1 SET %EXIT=$CHAR(1)
SET %RECORD=$CHAR(2)
+2 ; Turn off pass-all, esc processing, & tab control. Set terminators
OPEN USE %IO:(0::::#001001:#800040:::$CHAR(3,8,13,21,24,27,127))
+1 USE 0:(0::::#000001:#800040:::$CHAR(3,8,13,15,18,21,24,27,127))
WRITE !
TERM ;
+1 USE 0
READ %X:%HT
+2 ; get READ terminator
SET %CR=$ZB
+3 IF $EXTRACT(%X)=%EXIT
GOTO EXIT
IF $EXTRACT(%X)=%RECORD
Begin DoDot:1
+4 DO @$SELECT(%RS:"HALT",1:"RECORD")
SET %X=$EXTRACT(%X,2,$LENGTH(%X))
QUIT
End DoDot:1
+5 USE %IO
IF $LENGTH(%X)
WRITE %X
IF $TEST
WRITE $CHAR(%CR)
IF $LENGTH(%X)!$TEST
SET %DC=0
SET %HT=0
SET %DT=0
PORT ;
+1 USE %IO
READ %Y:%HT
IF %INT&(%Y=$CHAR(1))
GOTO EXIT
SET %CR=$ZB
USE 0
IF $LENGTH(%Y)
WRITE %Y
IF $TEST
WRITE $CHAR(%CR)
IF $LENGTH(%Y)!$TEST
SET %DC=0
SET %HT=0
SET %DT=%DT+1
+2 IF $LENGTH(%Y)&%RS
SET %XS=%XS_%Y
IF $TEST
IF %RS
SET ^XMIT(%XN,%XE)=%XS
SET %XE=%XE+1
SET %XS=""
PORT1 ; heavy incoming data, force check of CRT
IF %DT>20
GOTO TERM
+1 IF $LENGTH(%X)
GOTO TERM
IF $LENGTH(%Y)
GOTO PORT
+2 ; READ timeout 1, goto slow mode
SET %DC=%DC+1
IF %DC<500
GOTO TERM
SET %HT=1
TERMWAIT ; TERMWAIT and PORTWAIT handle periods in which no data has been
+1 ; received from either side for %DC iterations through the
+2 ; TERM & PORT loop.
+3 USE 0
READ %X#1:%HT
IF '$TEST
GOTO PORTWAIT
+4 IF %X=%EXIT
GOTO EXIT
+5 IF %X=%RECORD
DO @$SELECT(%RS:"HALT",1:"RECORD")
SET (%DC,%DT,%HT)=0
GOTO TERM
+6 SET %CR=$ZB
+7 USE %IO
WRITE %X
IF '$LENGTH(%X)
WRITE $CHAR(%CR)
SET (%DC,%DT,%HT)=0
GOTO TERM
PORTWAIT ;
+1 USE %IO
READ %Y#1:%HT
IF '$TEST
GOTO TERMWAIT
+2 ; %TRANS rtn or gbl selection finished
IF %INT&(%Y=%EXIT)
GOTO EXIT
+3 SET %CR=$ZB
+4 USE 0
WRITE %Y
IF '$LENGTH(%Y)
WRITE $CHAR(%CR)
SET (%DC,%DT,%HT)=0
+5 ; If recording...
+6 ; add to captured string
IF $LENGTH(%Y)&%RS
SET %XS=%XS_%Y
+7 ; or terminate & file captured string
+8 IF '$LENGTH(%Y)
IF %RS
SET ^XMIT(%XN,%XE)=%XS
SET %XE=%XE+1
SET %XS=""
+9 GOTO PORT
EXIT ;
+1 IF %RS
DO HALT
IF $DATA(%ESC)
IF %ESC
USE 0:(::::64)
+2 KILL %ESC,%X,%Y,%RS,%XN,%XE,%XS,%DC,%DT,%HT,%CR,%EXIT,%RECORD
+3 IF (%IO?.N)&(%IO'="")
USE %IO:(:::::#001001:::$CHAR(13,27))
+4 USE 0:(:::::#000001:::$CHAR(13,27))
+5 ; return to %TRANS
IF %INT!$DATA(%MSM)
BREAK 1
KILL %INT
QUIT
+6 IF %IO?.N&(%IO'="")
CLOSE %IO
USE 0
KILL %IO,%INT
+7 IF '$FIND($ZE,"<DSCON>")
WRITE !,"Transmission Complete",!!
+8 QUIT
RECORD ;
+1 IF '$DATA(^XMIT)
SET ^XMIT(0)=1
+2 SET %XN=^XMIT(0)
SET ^XMIT(0)=%XN+1
SET %RS=1
SET %XS=""
SET %XE=1
SET %X=$EXTRACT(%X,2,999)
SET ^XMIT(%XN)=$HOROLOG
+3 USE 0
WRITE !!,"Recording Started in ^XMIT(",%XN,",1)",!
+4 QUIT
HALT ;
+1 IF $LENGTH(%XS)
SET ^XMIT(%XN,%XE)=%XS
SET %RS=0
+2 USE 0
WRITE !!,"Recording halted, last node is ^XMIT(",%XN,",",%XE,")",!!
+3 QUIT
NOPEN ; avoid <NOPEN> on <INRPT>
SET %IO=""
ERROR ;
+1 IF $FIND($ZE,"<MXSTR>")
FOR %XE=%XE:1
IF %XS=""
GOTO ERROR1
SET ^XMIT(%XN,%XE)=$EXTRACT(%XS,1,255)
SET %XS=$EXTRACT(%XS,256,9999)
+2 IF $FIND($ZE,"<INRPT>")
USE 0
WRITE !!,"...Aborted."
DO EXIT
VIEW 0:$JOB:$ZB($VIEW(0,$JOB,2),#0400,7):2
+3 IF $FIND($ZE,"<DSCON>")
IF $IO'=$PRINCIPAL
Begin DoDot:1
+4 USE 0
WRITE !!,"...Disconnected."
End DoDot:1
DO EXIT
VIEW 0:$JOB:$ZB($VIEW(0,$JOB,2),#0400,7):2
+5
*** ERROR ***
ERROR1 ; resume after <MXSTR>
SET $ZT="ERROR^%XMIT"
GOTO PORT1
INT ;FROM TRANSFER UTILS
+1 SET %INT=1
BREAK 0
GOTO GO
+2 ;
QUE WRITE !!
FOR %IO=1:1
SET %X=$TEXT(TEXT+%IO)
IF %X=""
QUIT
WRITE $PIECE(%X,";",2),!
+1 QUIT
TEXT ;
+1 ;Enter the port number to be used for the transmission.
+2 ;While the transmission is in progress, all characters except CTRL/A
+3 ;and CTRL/B will be passed through to the port.
+4 ;Use CTRL/B to start or stop recording of the information in the XMIT
+5 ;global, and CTRL/A to exit the program.
