From:	CSBVAX::MRGATE!graham@drcvax.arpa@SMTP 26-AUG-1988 11:58
To:	ARISIA::EVERHART
Subj:	SNAP, 5 OF 7


Date: 26 Aug 88 11:17:00 EST
From: <graham@drcvax.arpa>
Subject: SNAP, 5 OF 7
To: "everhart%arisia.decnet" <everhart%arisia.decnet@ge-crd.arpa>
Reply-To: <graham@drcvax.arpa>

+-+-+-+ Beginning of part 5 +-+-+-+
X`009    STAT_LINE(5) = ' Priority:        '//PRIBP//'/'//PRIP
X`0091`009//'         State:           '//STATE
X`009    STAT_LINE(6) = ' Working set:      '//MEM
X`0091`009//'         Page faults: '//PAGEFLTSP
X`009    STAT_LINE(7) = ' Buffered IO: '//BUFIOP//'         Direct IO:   '
X`0091`009//DIRIOP//'      '
X`009    STAT_LINE(8) = ' CPU time:    '//CPUTIMEP//'   Login time: '
X`0091`009//LOGINTIME
X`009    STAT_LINE(9) = ' Image:  '//IMAGES//'      '
X`009    STAT_LINE(10) = ' Dir:    '//DIRECTORY//'      '
X`009    STAT_LINE(11) = ' Server:    '//SERVER//'   Port: '//PORT
X
X`009    OPT_ROW = 11
X`009    OPT_COL = 72
X`009    STATUS = SMG$CREATE_VIRTUAL_DISPLAY(OPT_ROW,OPT_COL,VD3_ID,
X`0091`009SMG$M_BORDER)
X`009    STATUS = SMG$LABEL_BORDER (
X`0091`009VD3_ID,'Process Statistics',SMG$K_TOP,,SMG$M_REVERSE)
X`009    DO I = 1,11
X`009`009STATUS = SMG$PUT_CHARS (VD3_ID,STAT_LINE(I),
X`0091`009%REF(I),%REF(1),,,)
X`009    ENDDO
X`009    STATUS = SMG$PUT_CHARS (VD1_ID,'Press RETURN to continue...',
X`0091`009%REF(23),%REF(1),,,)
X`009    STATUS = SMG$PASTE_VIRTUAL_DISPLAY (
X`0091`009VD3_ID,PB_ID,%REF(5),%REF(5))
X`009    STATUS = SMG$SET_CURSOR_ABS(VD1_ID,%REF(23),%REF(28))
X`009    STATUS = SMG$READ_KEYSTROKE (KB_ID,DUMMY)
X`009    STATUS = SMG$DELETE_VIRTUAL_DISPLAY (VD3_ID)
X`009ENDIF
X
X`009STATUS = SMG$CHANGE_RENDITION(VD1_ID,%REF(24),CUR_COL,
X`0091   `009%REF(1),%REF(8),SMG$M_NORMAL)
X`009STATUS = SMG$ERASE_DISPLAY (VD2_ID)
X`009GOTO 5
X
X999`009STATUS = SYS$SETPRI(,,%VAL(4),)
X`009STATUS = SMG$DELETE_VIRTUAL_DISPLAY (VD1_ID)
X`009STATUS = SMG$DELETE_VIRTUAL_DISPLAY (VD2_ID)
X`009STATUS = SMG$DELETE_PASTEBOARD (PB_ID)
X`009END
$ GOSUB UNPACK_FILE
$ FILE_IS = "TERM.COM"
$ CHECKSUM_IS = 1985712035
$ COPY SYS$INPUT VMS_SHARE_DUMMY.DUMMY
X$!
X$!    Extract this note and "@" it to compile and link.
X$!    Usage: Run it. tell it what terminal.
X$!    it will then slave your terminal to the other's output stream.
X$!    if you type ^\ "input" mode is enabled; anything you type is
X$!    forced to the other terminal's input stream. Another ^\ disables
X$!    input mode. ^Z with input mode disabled will clean up and exit.
X$!    **** WARNING: Don't point this to a RTxx device *****
X$!    [unless you LIKE crashing systems].
X$ CREATE TTYDEF.MAR
X$ DECK/DOLLAR="%%"
X `009.MACRO`009$TTYDEF,$GBL`009`009;
X `009$DEFINI`009TTY,$GBL
X $DEF`009TTY$L_WB_FLINK`009.BLKL
X $DEF`009TTY$L_WB_BLINK`009.BLKL
X $DEF`009TTY$W_WB_SIZE`009.BLKW
X $DEF`009TTY$B_WB_TYPE`009.BLKB
X $DEF`009TTY$B_WB_FIPL`009.BLKB
X $DEF`009TTY$L_WB_FPC`009.BLKL
X $DEF`009TTY$L_WB_FR3`009.BLKL
X $DEF`009TTY$L_WB_FR4`009.BLKL
X $DEF`009TTY$L_WB_MAP`009.BLKL
X $DEF`009TTY$L_WB_NEXT`009.BLKL
X $DEF`009TTY$L_WB_END`009.BLKL
X $DEF`009TTY$L_WB_IRP`009.BLKL
X $DEF`009TTY$W_WB_STATUS`009.BLKW
X $DEF`009TTY$W_WB_BCNT`009.BLKW
X $DEF`009TTY$L_WB_RETADDR .BLKL
X $DEF`009TTY$C_WB_HDRLEN
X $DEF`009TTY$K_WB_HDRLEN
X $DEF`009TTY$L_WB_DATA`009.BLKL
X `009$DEFEND`009TTY,$GBL,DEF
X `009.ENDM`009$TTYDEF
X`009.MACRO`009$TTYDEFS $GBL
X`009$UCBDEF
X`009$DEFINI`009TTYDEFS,$GBL
X`009`009`009.BLKB`009UCB$C_LENGTH
X$DEF`009UCB$Q_TT_STATE
X`009`009`009.BLKQ`0091
X$DEF`009UCB$L_TT_MULTI
X`009`009`009.BLKL`0091
X$DEF`009UCB$L_TT_RDUE
X`009`009`009.BLKL`0091
X$DEF`009UCB$L_TT_RTIMOU
X`009`009`009.BLKL`0091
X$DEF`009UCB$L_TT_CTRLY
X`009`009`009.BLKL`0091
X$DEF`009UCB$L_TT_CTRLC
X`009`009`009.BLKL`0091
X$DEF`009UCB$L_TT_OUTBAND
X`009`009`009.BLKL`0091
X$DEF`009UCB$L_TT_BANDQUE
X`009`009`009.BLKL`0091
X$DEF`009UCB$L_TT_TYPAHD
X`009`009`009.BLKL`0091
X$DEF`009UCB$W_TT_INAHD
X`009`009`009.BLKW`0091
X$DEF`009UCB$W_TT_HOLD
X`009`009`009.BLKW`0091
X`009$VIELD`009TTY,0,<-
X`009`009<TANK_CHAR,8,M>-
X`009`009<TANK_XOFF,1,M>-
X`009`009<TANK_XON,1,M>-
X`009`009<TANK_STOP,1,M>-
X`009`009<TANK_STOP2,1,M>-
X`009`009<TANK_HOLD,1,M>-
X`009`009<TANK_BURST,1,M>-
X`009`009>
X$DEF`009UCB$W_TT_CURSOR
X`009`009`009.BLKW`0091
X$DEF`009UCB$B_TT_LINE
X`009`009`009.BLKB`0091
X$DEF`009UCB$B_TT_LASTC
X`009`009`009.BLKB`0091
X$DEF`009UCB$L_TT_DECHAR
X`009`009`009.BLKL`0091
X$DEF`009UCB$L_TT_DECHA1
X`009`009`009.BLKL`0091
X$DEF`009UCB$L_TT_WFLINK
X`009`009`009.BLKL`0091
X$DEF`009UCB$L_TT_WBLINK
X`009`009`009.BLKL`0091
X$DEF`009UCB$L_TT_WRTBUF
X`009`009`009.BLKL`0091
X$DEF`009UCB$L_TT_GETNXT
X`009`009`009.BLKL`0091
X$DEF`009UCB$L_TT_PUTNXT
X`009`009`009.BLKL`0091
X$DEF`009UCB$L_TT_CLASS
X`009`009`009.BLKL`0091
X$DEF`009UCB$L_TT_PORT
X`009`009`009.BLKL`0091
X$DEF`009UCB$L_TT_OUTADR
X`009`009`009.BLKL`0091
X$DEF`009UCB$W_TT_OUTLEN
X`009`009`009.BLKW`0091
X$DEF`009UCB$B_TT_DS_RCV
X`009`009`009.BLKB`0091
X$DEF`009UCB$B_TT_DS_TX
X`009`009`009.BLKB`0091
X$DEF`009UCB$W_TT_DS_ST
X`009`009`009.BLKW`0091
X$DEF `009UCB$W_TT_DS_TIM
X`009`009`009.BLKW`0091
X$DEF`009UCB$W_TT_SPEED
X`009`009`009.BLKW`0091
X`009$VIELD`009UCB,0,<-
X`009`009<TT_TSPEED,8,M>-
X`009`009<TT_RSPEED,8,M>-
X`009`009>
X$DEF`009UCB$B_TT_CRFILL
X`009`009`009.BLKB`0091
X$DEF`009UCB$B_TT_LFFILL
X`009`009`009.BLKB`0091
X$DEF`009UCB$B_TT_PARITY
X`009`009`009.BLKB`0091
X`009$VIELD`009UCB,3,<-
X`009`009<TT_LEN,2,M>-
X`009`009<TT_STOP,1,M>-
X`009`009<TT_PARTY,1,M>-
X`009`009<TT_ODD,1,M>-
X`009`009>
X$DEF`009UCB$B_TT_FILL
X`009`009`009.BLKB`0091
X$DEF`009UCB$W_TT_DESPEE
X`009`009`009.BLKW`0091
X$DEF`009UCB$B_TT_DECRF
X`009`009`009.BLKB`0091
X$DEF`009UCB$B_TT_DELFF
X`009`009`009.BLKB`0091
X$DEF`009UCB$B_TT_DEPARI
X`009`009`009.BLKB`0091
X$DEF`009UCB$B_TT_DETYPE
X`009`009`009.BLKB`0091
X$DEF`009UCB$W_TT_DESIZE
X`009`009`009.BLKW`0091
X`009`009`009.BLKB
X$DEF`009UCB$B_TT_MAINT
X`009`009`009.BLKB`0091
X`009$VIELD`009UCB,0,<-
X`009`009<,7,>,-
X`009`009<TT_DSBL,1,M>-
X`009`009>
X$DEF`009UCB$L_TT_ALTDRV
X`009`009`009.BLKL`0091
X$DEF`009UCB$L_TT_MAP
X`009`009`009.BLKL`0091
X$DEF`009UCB$W_TT_ALTLEN
X`009`009`009.BLKW`0091
X$DEF`009UCB$B_TT_ESC
X`009`009`009.BLKB`0091
X$DEF`009UCB$B_TT_ESC_O
X`009`009`009.BLKB`0091
X$DEF`009UCB$C_TT_LENGTH
X$DEF`009UCB$K_TT_LENGTH
X`009. = 0
X$DEF`009CLASS_GETNXT
X`009`009`009.BLKL`0091
X$DEF`009CLASS_PUTNXT
X`009`009`009.BLKL`0091
X$DEF`009CLASS_SETUP_UCB
X`009`009`009.BLKL`0091
X$DEF`009CLASS_DS_TRAN
X`009`009`009.BLKL`0091
X$DEF`009CLASS_DDT
X`009`009`009.BLKL`0091
X$DEF`009CLASS_READERROR
X`009`009`009.BLKL`0091
X`009. = 0
X$DEF`009PORT_STARTIO
X`009`009`009.BLKL`0091
X$DEF`009PORT_DISCONNECT
X`009`009`009.BLKL`0091
X$DEF`009PORT_SET_LINE
X`009`009`009.BLKL`0091
X$DEF`009PORT_DS_SET
X`009`009`009.BLKL`0091
X$DEF`009PORT_XON
X`009`009`009.BLKL`0091
X$DEF`009PORT_XOFF
X`009`009`009.BLKL`0091
X$DEF`009PORT_STOP
X`009`009`009.BLKL`0091
X$DEF`009PORT_STOP2
X`009`009`009.BLKL`0091
X$DEF`009PORT_ABORT
X`009`009`009.BLKL`0091
X$DEF`009PORT_RESUME
X`009`009`009.BLKL`0091
X$DEF`009PORT_SET_MODEM
X`009`009`009.BLKL`0091
X$DEF`009PORT_START_DMA
X`009`009`009.BLKL`0091
X$DEF`009PORT_MAINT
X`009`009`009.BLKL`0091
X`009. = 0
X$DEF`009TTY$L_RB_NXT
X`009`009`009.BLKL`0091
X$DEF`009TTY$L_RB_UVA
X`009`009`009.BLKL`0091
X$DEF`009TTY$W_RB_SIZE
X`009`009`009.BLKW`0091
X`009`009`009.BLKB`0091
X`009`009`009.BLKB`0091
X$DEF`009TTY$W_RB_ORGHOR
X`009`009`009.BLKW`0091
X$DEF`009TTY$W_RB_TIMOS
X`009`009`009.BLKW`0091
X$DEF`009TTY$L_RB_EXTEND
X`009`009`009.BLKL`0091
X$DEF`009TTY$L_RB_DATA
X`009`009`009.BLKL`0091
X`009. = 0
X
X$DEF`009TTY$L_TA_PUT
X`009`009`009.BLKL`0091
X$DEF`009TTY$L_TA_GET
X`009`009`009.BLKL`0091
X$DEF`009TTY$W_TA_SIZE
X`009`009`009.BLKW`0091
X$DEF`009TTY$B_TA_TYPE
X`009`009`009.BLKB`0091
X`009`009`009.BLKB`0091
X$DEF`009TTY$L_TA_END
X`009`009`009.BLKL`0091
X$DEF`009TTY$L_TA_DATA
X`009`009`009.BLKL`0091
X`009$VIELD`009TTY,0,<-
X`009`009<ST_CTRLS,,M>-
X`009`009<ST_FILL,,M>-
X`009`009<ST_CURSOR,,M>-
X`009`009<ST_SENDLF,,M>-
X`009`009<ST_MULTI,,M>-
X`009`009<ST_DMA,,M>-
X`009`009<ST_WRITE,,M>-
X`009`009<ST_BRDCST,,M>-
X`009`009<ST_EOL,,M>-
X`009`009<ST_CTRLR,,M>-
X`009`009<ST_READ,,M>-
X`009`009>
X`009$VIELD`009TTY,0,<-
X`009`009<ST_CTRLO,,M>-
X`009`009<ST_DEL,,M>-
X`009`009<ST_PASALL,,M>-
X`009`009<ST_NOECHO,,M>-
X`009`009<ST_WRTALL,,M>-
X`009`009<ST_PROMPT,,M>-
X`009`009<ST_NOFLTR,,M>-
X`009`009<ST_ESC,,M>-
X`009`009<ST_BADESC,,M>-
X`009`009<ST_NL,,M>-
X`009`009<ST_REFRSH,,M>-
X`009`009<ST_ESCAPE,,M>-
X`009`009<ST_TYPFUL,,M>-
X`009`009<ST_SKIPLF,,M>-
X`009`009<ST_GETAHD,,M>-
X`009`009<ST_UNSOL,,M>-
X`009`009<ST_ESC_O,,M>-
X`009`009<ST_CTRLSP,,M>-
X`009`009<ST_WRAP,,M>-
X`009`009<ST_BRDP,,M>-
X`009`009<ST_DMAABO,,M>-
X`009`009<ST_OVRFLO,,M>-
X`009`009<ST_AUTOP,,M>-
X`009`009>
X`009$VIELD`009TTY,0,<-
X`009`009<SX_CTRLS>-
X`009`009<SX_FILL>-
X`009`009<SX_CURSOR>-
X`009`009<SX_SENDLF>-
X`009`009<SX_MULTI>-
X`009`009<SX_DMA>-
X`009`009<SX_WRITE>-
X`009`009<SX_BRDCST>-
X`009`009<SX_EOL>-
X`009`009<SX_CTRLR>-
X`009`009<SX_READ>-
X`009`009>
X`009$VIELD`009TTY,0,<-
X`009`009<A,32>-
X`009`009<SX_CTRLO>-
X`009`009<SX_DEL>-
X`009`009<SX_PASALL>-
X`009`009<SX_NOECHO>-
X`009`009<SX_WRTALL>-
X`009`009<SX_PROMPT>-
X`009`009<SX_NOFLTR>-
X`009`009<SX_ESC>-
X`009`009<SX_BADESC>-
X`009`009<SX_NL>-
X`009`009<SX_REFRSH>-
X`009`009<SX_ESCAPE>-
X`009`009<SX_TYPFUL>-
X`009`009<SX_SKIPLF>-
X`009`009<SX_GETAHD>-
X`009`009<SX_UNSOL>-
X`009`009<SX_ESC_O>-
X`009`009<SX_CTRLSP>-
X`009`009<SX_WRAP>-
X`009`009<SX_BRDP>-
X`009`009<SX_DMAABO>-
X`009`009<SX_OVRFLO>-
X`009`009<SX_AUTOP>-
X`009`009>
X$EQULST TTY$C_,,0,1,<-
X`009`009<CTRLC,3>-
X`009`009<BELL,7>-
X`009`009<BS,8>-
X`009`009<TAB,9>-
X`009`009<LF,10>-
X`009`009<VT,11>-
X`009`009<FF,12>-
X`009`009<CR,13>-
X`009`009<CTRLO,15>-
X`009`009<CTRLQ,17>-
X`009`009>
X$EQULST TTY$C_,,,1,<-
X`009`009<XON,17>-
X`009`009<CTRLR,18>-
X`009`009<CTRLS,19>-
X`009`009<XOFF,19>-
X`009`009<CTRLU,21>-
X`009`009<CTRLX,24>-
X`009`009<CTRLY,25>-
X`009`009<CTRLZ,26>-
X`009`009<ESCAPE,27>-
X`009`009<BLANK,32>-
X`009`009<DOLLAR,36>-
X`009`009>
X$EQULST TTY$C_,,,1,<-
X`009`009<PLUS,43>-
X`009`009<ZERO,48>-
X`009`009<ONE,49>-
X`009`009<SCRIPT,96>-
X`009`009<LOWA,97>-
X`009`009<LOWZ,123>-
X`009`009<DELETE,127>-
X`009`009<NL,128>-
X`009`009>
X
X$EQULST TTY$C_,,0,1,<-
X`009`009<MAXPAGLEN,255>-
X`009`009<MAXPAGWID,511>-
X`009`009<HIGHIPL,22>-
X`009`009>
X
X
X$EQULST TTY$C_,,0,1,<-
X`009`009<FC_READ>-
X`009`009<FC_WRITE>-
X`009`009<FC_SETM>-
X`009`009<FC_SETC>-
X`009`009<FC_N_SET>-
X`009`009>
X
X`009$VIELD`009TTY,0,<-
X`009`009<,3,M>-
X`009`009<CH_LOWER,,M>-
X`009`009<CH_SPEC,,M>-
X`009`009<CH_CTRL,,M>-
X`009`009<CH_CTRL3,,M>-
X`009`009<CH_CTRL2,,M>-
X`009`009>
X
X$DEFEND`009UCB
X`009$CRBDEF
Xcrb$l_tt_modem`009`009=`009crb$l_timelink
Xcrb$l_dz_modem`009`009=`009crb$l_duetime
Xcrb$b_tt_timmask`009=`009crb$l_toutrout+3
Xcrb$b_tt_ring`009`009=`009crb$l_toutrout
Xcrb$b_tt_carrier`009=`009crb$l_toutrout+1
Xcrb$b_tt_dtr`009`009=`009crb$l_toutrout+2
Xcrb$b_tt_type`009`009=`009crb$b_type+1
X
XIDB$B_TT_ENABLE`009`009=`009^X0E
X
X`009.ENDM`009$TTYDEFS
X`009.MACRO`009$TTYMACS
X
X`009.MACRO`009GTSBITS`009BITS,MODE,TARGET,BRANCH,?L1
X`009F=0
X`009Z0=3
X`009X0=0
X`009W0=0
X`009Z1=3
X`009X1=0
X`009W1=0
X`009.IRP`009Y,<BITS>
X`009T=TTY$V_SX_'Y
X`009.IF`009LE`00932-T
X`009X1=T-32@-3
X`009.IF`009LT`009X1-Z1
X`009Z1=X1
X`009.ENDC
X`009W1=<TTY$M_ST_'Y>!W1
X`009.ENDC
X`009.IF`009GT`00932-T
X`009X0=T@-3
X`009.IF`009LT`009X0-Z0
X`009Z0=X0
X`009.ENDC
X`009W0=<TTY$M_ST_'Y>!W0
X`009.ENDC
X`009.ENDR
X`009.IF`009NE`009W0
X`009GTSBITS1 `009Z0,W0,MODE,0
X`009.IF`009NB`009TARGET
X`009.IF`009IDN`009BRANCH,BEQL
X`009.IF`009NE`009W1
X`009F=1
X`009BNEQ`009L1
X`009.IFF
X`009BEQL`009TARGET
X`009.ENDC
X`009.ENDC
X`009.IF`009DIF`009BRANCH,BEQL
X`009BNEQ`009TARGET
X`009.ENDC
X`009.ENDC
X`009.ENDC
X`009.IF`009NE`009W1
X`009GTSBITS1`009Z1,W1,MODE,4
X`009.IF`009NB`009TARGET
X`009BRANCH`009TARGET
X`009.ENDC
X`009.ENDC
X`009.IF`009NE`009F
XL1:
X`009.ENDC
X`009.ENDM`009GTSBITS
X
X
X`009.MACRO`009GTSBITS1`009Z,WX,MODE,BIAS
X`009WX=WX@-<Z*8>
X`009X=WX@-8
X`009.IF`009EQ`009X
X`009BI'MODE'B`009#WX,BIAS+Z(R2)
X`009.IFF
X`009X=WX@-16
X`009.IF`009EQ`009X
X`009BI'MODE'W`009#WX,BIAS+Z(R2)
X`009.IFF
X`009BI'MODE'L`009#WX,BIAS+Z(R2)
X`009.ENDC
X`009.ENDC
X`009.ENDM`009GTSBITS1
X
X`009.MACRO`009SET_STATE`009NAME
X`009GTSBITS`009<NAME>,S
X`009.ENDM`009SET_STATE
X
X`009.MACRO`009CLR_STATE`009NAME
X`009GTSBITS`009<NAME>,C
X`009.ENDM`009CLR_STATE
X
X`009.MACRO`009IF_STATE`009NAME,TARGET
X`009CNT = 0
X`009.IRP`009Y,<NAME>
X`009CNT = CNT + 1
X`009.ENDR
X
X`009.IF EQUAL CNT - 1
X`009ONE_BIT`009<NAME>,S,TARGET
X`009.IFF
X`009GTSBITS <NAME>,T,TARGET,BNEQ
X`009.ENDC
X`009.ENDM`009IF_STATE
X
X
X`009.MACRO`009IF_NOT_STATE`009NAME,TARGET
X`009CNT = 0
X`009.IRP`009Y,<NAME>
X`009CNT = CNT + 1
X`009.ENDR
X
X`009.IF EQUAL CNT - 1
X`009ONE_BIT`009<NAME>,C,TARGET
X`009.IFF
X`009GTSBITS <NAME>,T,TARGET,BEQL
X`009.ENDC
X`009.ENDM`009IF_NOT_STATE
X
X
X`009.MACRO`009ONE_BIT`009BIT,BRANCH,TARGET
X`009BB'BRANCH'`009#TTY$V_SX_'BIT',(R2),'TARGET'
X`009.ENDM`009ONE_BIT
X
X
X`009.MACRO`009NOSET`009BIT,?L1
X`009BBC`009#TT2$V_'BIT',R1,L1
X`009BICL`009#TT2$M_'BIT',R0
XL1:
X`009.ENDM`009NOSET
X
X`009.MACRO`009NOCLEAR`009BIT,?L1
X`009BBC`009#TT2$V_'BIT',R1,L1
X`009BISL`009#TT2$M_'BIT',R0
XL1:
X`009.ENDM`009NOCLEAR
X
X`009.MACRO`009NOMOD`009BIT,?L1
X`009BBC`009#TT2$V_'BIT',R1,L1
X`009XORL2`009#TT2$M_'BIT',R0
XL1:
X`009.ENDM`009NOMOD
X
X`009.MACRO`009PRIV_TO_MOD`009BIT,ERROR = NOPRIV_EXIT,?L1
X`009BBC`009#TT2$V_'BIT',R1,L1
X`009BITL`009#<<1@PRV$V_LOG_IO>!-
X`009`009<1@PRV$V_PHY_IO>>,-
X`009`009@IRP$L_ARB(R3)
X`009BNEQ`009L1
X`009BRW`009'ERROR'
XL1:
X`009.ENDM`009PRIV_TO_MOD
X
X`009.MACRO`009$TTYMACS
X`009.ENDM`009$TTYMACS
X
X`009.ENDM`009$TTYMACS
X`009.MACRO`009$TTYMODEM
X
X`009.MACRO`009STO_TQE`009OFFSET,SIZE,VALUE,BASE
X$$$$$$`009=`009.
X.`009=`009OFFSET+BASE
X`009.'SIZE`009VALUE
X.`009=`009$$$$$$
X`009.ENDM`009STO_TQE
X
X
X
Xmodem$b_st_onmask`009=`0090
Xmodem$b_st_offmask`009=`0091
Xmodem$w_st_timer`009=`0092
Xmodem$w_st_routine`009=`0094
Xmodem$c_st_length`009=`0096
X
Xmodem$b_tran_type`009=`0090
Xmodem$w_tran_nstate`009=`0092
Xmodem$b_tran_offmask`009=`0094
Xmodem$b_tran_onmask`009=`0095
Xmodem$c_tran_length`009=`0096
X
X
Xmodem$c_tran_time`009=`0091
Xmodem$c_tran_dataset`009=`0090
Xmodem$c_tran_end`009=`0092
Xmodem$c_tran_dialtype`009=`0093
Xmodem$c_tran_dz11`009=`0094
Xmodem$c_tran_nomodem`009=`0095
Xmodem$c_timer`009=`0094
Xmodem$c_dataset =`0093
Xmodem$c_init`009=`0090
Xmodem$c_shutdwn`009=`0091
Xmodem$c_null`009=`0092
X
Xmodem$m_enable =^x8000
X
X
X
X`009$VIELD`009TIMCTRL,0,<-
X`009`009<CANCEL,,M>,-
X`009`009<ACTIVE,,M>,-
X`009`009>
X
X
X`009.ENDM`009$TTYMODEM
X%%
X$ CREATE WATCH.MAR
X$ DECK/DOLLAR=%%
X`009`009.TITLE`009WATCH - Watch terminal output stream
X`009`009.LIBRARY`009/TTYDEF/
X`009`009.LIBRARY`009/SYS$LIBRARY:LIB/
X`009`009$IPLDEF`009`009`009`009; Define IPL levels
X`009`009$TTYDEF`009`009`009`009; Define term driver structures
X`009`009$TTYDEFS`009`009`009;  ditto
X`009`009$TTYMDMDEF`009`009`009; Define modem control signals
X`009`009$TTYVECDEF`009`009`009; Define port/class vectors
-+-+-+-+-+ End of part 5 +-+-+-+-+-
------
