.TITLE  JNET_LINKWATCH JNET_LINKWATCH
	.IDENT  \01-003\
	.PSECT  $PLIT$,NOWRT,NOEXE,2
P.AAB:	.ASCII  \JNET_LW_NODES\<0><0><0>
P.AAA:	.LONG   17694733
	.ADDRESS P.AAB
P.AAD:	.ASCII  \JNET_LW_HOOK\
P.AAC:	.LONG   17694732
	.ADDRESS P.AAD
P.AAF:	.ASCII  \JNET_LW_CYCLE\<0><0><0>
P.AAE:	.LONG   17694733
	.ADDRESS P.AAF
P.AAH:	.ASCII  \JNET_LW_DELAY\<0><0><0>
P.AAG:	.LONG   17694733
	.ADDRESS P.AAH
P.AAJ:	.ASCII  \JNET_LW_RCMD\
P.AAI:	.LONG   17694732
	.ADDRESS P.AAJ
P.AAL:	.ASCII  \JNET_LW_PRCNAM\<0><0>
P.AAK:	.LONG   17694734
	.ADDRESS P.AAL
P.AAN:	.ASCII  \JNET_LW_MAIL_USERS\<0><0>
P.AAM:	.LONG   17694738
	.ADDRESS P.AAN
P.AAP:	.ASCII  \LNM$DCL_LOGICAL\<0>
P.AAO:	.LONG   17694735
	.ADDRESS P.AAP
P.AAR:	.ASCII  \0 00:30:00\<0><0>
P.AAQ:	.LONG   17694730
	.ADDRESS P.AAR
P.AAT:	.ASCII  \0 00:00:30\<0><0>
P.AAS:	.LONG   17694730
	.ADDRESS P.AAT
P.AAV:	.ASCII  \CPQ U OPERATOR\<0><0>
P.AAU:	.LONG   17694734
	.ADDRESS P.AAV
P.AAX:	.ASCII  \Jnet LinkWatch\<0><0>
P.AAW:	.LONG   17694734
	.ADDRESS P.AAX
P.AAZ:	.ASCII  \!%D  Zzzzzzzz....\<0><0><0>
P.AAY:	.LONG   17694737
	.ADDRESS P.AAZ
	.PSECT  $OWN$,NOEXE,2
U.17:	.WORD   0
	.BYTE   14, 2
	.LONG   0
U.18:	.WORD   0
	.BYTE   14, 2
	.LONG   0
U.19:	.BLKB   256
U.20:	.WORD   256
	.BYTE   14, 1
	.ADDRESS U.19
U.21:	.BLKB   8
U.22:	.WORD   8
	.BYTE   14, 1
	.ADDRESS U.21
U.23:	.BLKB   8
U.24:	.WORD   8
	.BYTE   14, 1
	.ADDRESS U.23
U.25:	.BLKB   100
U.26:	.WORD   99
	.BYTE   14, 1
	.ADDRESS U.25
U.27:	.BLKB   4
U.28:	.BLKB   4
U.29:	.BLKB   8
U.30:	.BLKB   8
U.31:	.WORD   0
	.BYTE   14, 2
	.LONG   0
U.32:	.WORD   0
	.BYTE   14, 2
	.LONG   0
U.33:	.WORD   0
	.BYTE   14, 2
	.LONG   0
U.34:	.WORD   0
	.BYTE   14, 2
	.LONG   0
U.35:	.WORD   0
	.BYTE   14, 2
	.LONG   0
U.36:	.WORD   0
	.BYTE   14, 1
	.LONG   0
U.37:	.BLKB   4
U.38:	.BLKB   4
U.39:	.BLKB   4
U.40:	.BLKB   4
U.5=		    P.AAA
U.6=		    P.AAC
U.7=		    P.AAE
U.8=		    P.AAG
U.9=		    P.AAI
U.10=		    P.AAK
U.11=		    P.AAM
U.12=		    P.AAO
U.13=		    P.AAQ
U.14=		    P.AAS
U.15=		    P.AAU
U.16=		    P.AAW
U.41=		    P.AAY
	.EXTRN  HG_SEND_MAIL, JAN_HOOK_INIT, JAN_RECEIVE_MSG, JAN_SEND_MSG, LIB$PUT_OUTPUT, STR$COPY_DX_R8
	.EXTRN  STR$COPY_R_R8, SYS$SETPRN, SYS$BINTIM, SYS$ADJWSL, SYS$SCHDWK, SYS$FAO, SYS$HIBER
	.PSECT  $CODE$,NOWRT,2
U.1:	.WORD   ^M<R2,R3,R4,R5,R6,R7,R8,R9,R10>
	MOVAB   G^SYS$ADJWSL, R10
	MOVAB   G^SYS$BINTIM, R9
	MOVAB   G^SYS$SETPRN, R8
	MOVAB   W^U.36, R7
	SUBL2   #4, SP
	PUSHAB  -476(R7)
	PUSHAB  -484(R7)
	PUSHAB  -8(R7)
	PUSHAB  -16(R7)
	PUSHAB  -24(R7)
	PUSHAB  -32(R7)
	PUSHAB  -40(R7)
	CALLS   #7, W^U.2
	MOVL    R0, R6
	BLBC    R6, 2$
	PUSHAB  -484(R7)
	CALLS   #1, (R8)
	MOVL    R0, R6
	PUSHAB  -32(R7)
	MOVL    #2, 4(SP)
	PUSHAB  4(SP)
	CALLS   #2, G^JAN_HOOK_INIT
	BRW     13$
1$:	PUSHAB  -56(R7)
	PUSHAB  -16(R7)
	CALLS   #2, (R9)
	MOVL    R0, R6
	BLBC    R6, 2$
	PUSHAB  -48(R7)
	PUSHAB  -24(R7)
	CALLS   #2, (R9)
	MOVL    R0, R6
2$:	BLBS    R6, 3$
	BRW     14$
3$:	MOVL    -36(R7), 12(R7)
	MOVZWL  -40(R7), 8(R7)
4$:	MOVL    8(R7), R3
	BEQL    9$
	MOVL    12(R7), R2
	MOVL    R2, 4(R7)
	LOCC    #44, R3, (R2)
	BNEQ    5$
	CLRL    R1
5$:	TSTL    R1
	BEQL    6$
	SUBL2   R2, R1
	MOVW    R1, (R7)
	MOVAB   1(R1)[R2], 12(R7)
	SUBL3   R1, R3, R0
	MOVAB   -1(R0), 8(R7)
	BRB     7$
6$:	MOVW    R3, (R7)
	CLRL    8(R7)
7$:	CMPW    (R7), #8
	BLEQU   8$
	MOVW    #8, (R7)
8$:	MOVC5   #0, (SP), #0, #100, -172(R7)
	PUSHAB  -56(R7)
	PUSHAB  -8(R7)
	PUSHL   R7
	CALLS   #3, W^U.3
	BRB     4$
9$:	PUSHAB  -484(R7)
	CALLS   #1, (R8)
	MOVL    R0, R6
	PUSHAB  16(R7)
	CLRL    -(SP)
	CALLS   #2, (R10)
	MOVL    R0, R6
	CLRL    -(SP)
	SUBL3   16(R7), #300, -(SP)
	CALLS   #2, (R10)
	MOVL    R0, R6
	CLRL    -(SP)
	PUSHAB  -48(R7)
	CLRQ    -(SP)
	CALLS   #4, G^SYS$SCHDWK
	MOVL    R0, R6
10$:	CLRL    20(R7)
	MOVW    #256, -212(R7)
	CLRL    -(SP)
	PUSHAB  -212(R7)
	PUSHAB  -212(R7)
	PUSHAB  W^U.41
	CALLS   #4, G^SYS$FAO
	MOVL    R0, R6
	BLBC    R6, 14$
	PUSHAB  -212(R7)
	CALLS   #1, G^LIB$PUT_OUTPUT
	CALLS   #0, G^SYS$HIBER
	MOVL    R0, R6
11$:	PUSHAB  -64(R7)
	PUSHAB  -72(R7)
	PUSHAB  -196(R7)
	PUSHAB  -180(R7)
	PUSHAB  -60(R7)
	CALLS   #5, G^JAN_RECEIVE_MSG
	BLBC    R0, 12$
	INCL    20(R7)
	BRB     11$
12$:	TSTL    20(R7)
	BNEQ    10$
	PUSHAB  -476(R7)
	PUSHAB  -484(R7)
	PUSHAB  -8(R7)
	PUSHAB  -16(R7)
	PUSHAB  -24(R7)
	PUSHAB  -32(R7)
	PUSHAB  -40(R7)
	CALLS   #7, W^U.2
13$:	MOVL    R0, R6
	BLBC    R6, 14$
	BRW     1$
14$:	MOVL    R6, R0
	RET
	.PSECT  $PLIT$,NOWRT,NOEXE,2
P.ABB:	.ASCII  \LNKWATCH\
P.ABA:	.LONG   17694728
	.ADDRESS P.ABB
	.PSECT  $OWN$,NOEXE,2
U.49:	.BLKB   255
	.BLKB   1
U.50:	.BLKB   4
U.51:	.BLKB   16
	.EXTRN  SYS$TRNLNM
	.PSECT  $CODE$,NOWRT,2
U.2:	.WORD   ^M<R2,R3,R4,R5,R6,R7,R8,R9,R10,-
		R11>
	MOVAB   G^SYS$TRNLNM, R11
	MOVAB   W^U.12, R10
	MOVAB   W^U.50, R9
	MOVAB   4(R9), R0
	MOVL    #131327, (R0)+
	MOVAB   -256(R9), (R0)+
	MOVAB   (R9), (R0)+
	CLRL    (R0)+
	PUSHAB  4(R9)
	CLRL    -(SP)
	PUSHAB  -164(R10)
	PUSHL   R10
	CLRL    -(SP)
	CALLS   #5, (R11)
	MOVL    R0, R3
	BLBS    R3, 1$
	BRW     14$
1$:	MOVAB   -256(R9), R2
	MOVL    (R9), R1
	MOVL    4(AP), R0
	JSB     G^STR$COPY_R_R8
	MOVL    R0, R3
	PUSHAB  4(R9)
	CLRL    -(SP)
	PUSHAB  -144(R10)
	PUSHL   R10
	CLRL    -(SP)
	CALLS   #5, (R11)
	MOVL    R0, R3
	BLBS    R3, 2$
	MOVAB   132(R10), R1
	MOVL    8(AP), R0
	JSB     G^STR$COPY_DX_R8
	BRB     4$
2$:	CMPL    (R9), #8
	BLEQU   3$
	MOVL    #8, (R9)
3$:	MOVAB   -256(R9), R2
	MOVL    (R9), R1
	MOVL    8(AP), R0
	JSB     G^STR$COPY_R_R8
4$:	MOVL    R0, R3
	PUSHAB  4(R9)
	CLRL    -(SP)
	PUSHAB  -120(R10)
	PUSHL   R10
	CLRL    -(SP)
	CALLS   #5, (R11)
	MOVL    R0, R3
	BLBC    R3, 5$
	MOVAB   -256(R9), R2
	MOVL    (R9), R1
	MOVL    12(AP), R0
	JSB     G^STR$COPY_R_R8
	BRB     6$
5$:	MOVAB   20(R10), R1
	MOVL    12(AP), R0
	JSB     G^STR$COPY_DX_R8
6$:	MOVL    R0, R3
	PUSHAB  4(R9)
	CLRL    -(SP)
	PUSHAB  -96(R10)
	PUSHL   R10
	CLRL    -(SP)
	CALLS   #5, (R11)
	MOVL    R0, R3
	BLBC    R3, 7$
	MOVAB   -256(R9), R2
	MOVL    (R9), R1
	MOVL    16(AP), R0
	JSB     G^STR$COPY_R_R8
	BRB     8$
7$:	MOVAB   40(R10), R1
	MOVL    16(AP), R0
	JSB     G^STR$COPY_DX_R8
8$:	MOVL    R0, R3
	PUSHAB  4(R9)
	CLRL    -(SP)
	PUSHAB  -76(R10)
	PUSHL   R10
	CLRL    -(SP)
	CALLS   #5, (R11)
	MOVL    R0, R3
	BLBC    R3, 9$
	MOVAB   -256(R9), R2
	MOVL    (R9), R1
	MOVL    20(AP), R0
	JSB     G^STR$COPY_R_R8
	BRB     10$
9$:	MOVAB   64(R10), R1
	MOVL    20(AP), R0
	JSB     G^STR$COPY_DX_R8
10$:	MOVL    R0, R3
	PUSHAB  4(R9)
	CLRL    -(SP)
	PUSHAB  -24(R10)
	PUSHL   R10
	CLRL    -(SP)
	CALLS   #5, (R11)
	MOVL    R0, R3
	BLBC    R3, 11$
	MOVAB   -256(R9), R2
	MOVL    (R9), R1
	MOVL    28(AP), R0
	JSB     G^STR$COPY_R_R8
	MOVL    R0, R3
11$:	PUSHAB  4(R9)
	CLRL    -(SP)
	PUSHAB  -52(R10)
	PUSHL   R10
	CLRL    -(SP)
	CALLS   #5, (R11)
	MOVL    R0, R3
	BLBC    R3, 12$
	MOVAB   -256(R9), R2
	MOVL    (R9), R1
	MOVL    24(AP), R0
	JSB     G^STR$COPY_R_R8
	BRB     13$
12$:	MOVAB   88(R10), R1
	MOVL    24(AP), R0
	JSB     G^STR$COPY_DX_R8
13$:	MOVL    R0, R3
14$:	MOVL    R3, R0
	RET
	.PSECT  $PLIT$,NOWRT,NOEXE,2
P.ABD:	.ASCII  \No response detected from BITNET node !AS -- check the link\
	.ASCII  \ status!/!AS\<0>
P.ABC:	.LONG   17694791
	.ADDRESS P.ABD
P.ABF:	.ASCII  \Error querying BITNET node !AS!/(!AS) - !AD\<0>
P.ABE:	.LONG   17694763
	.ADDRESS P.ABF
P.ABH:	.ASCII  \Path->!AS\<0><0><0>
P.ABG:	.LONG   17694729
	.ADDRESS P.ABH
P.ABJ:	.ASCII  \!%D  Sending message to !AS....\<0>
P.ABI:	.LONG   17694751
	.ADDRESS P.ABJ
P.ABL:	.BLKB   0
P.ABK:	.LONG   0
	.ADDRESS P.ABL
P.ABN:	.ASCII  \Jnet link failure\<0><0><0>
P.ABM:	.LONG   17694737
	.ADDRESS P.ABN
P.ABP:	.ASCII  \JAN_TMPSYS:\<0>
P.ABO:	.LONG   17694731
	.ADDRESS P.ABP
P.ABR:	.ASCII  \!%D  Received message from !AS....\<0><0>
P.ABQ:	.LONG   17694754
	.ADDRESS P.ABR
	.PSECT  $OWN$,NOEXE,2
U.57:	.BLKB   256
U.58:	.WORD   256
	.BYTE   14, 1
	.ADDRESS U.57
U.59:	.BLKB   4
U.60:	.BLKB   16
U.61:	.WORD   16
	.BYTE   14, 1
	.ADDRESS U.60
U.62:	.BLKB   256
U.63:	.WORD   256
	.BYTE   14, 1
	.ADDRESS U.62
U.64:	.BLKB   4
U.55=		    P.ABC
U.56=		    P.ABE
U.65=		    P.ABI
U.66=		    P.ABQ
	.EXTRN  SYS$CANWAK, SYS$GETMSG
	.PSECT  $CODE$,NOWRT,2
U.3:	.WORD   ^M<R2,R3,R4,R5,R6,R7,R8,R9,R10,-
		R11>
	MOVAB   G^LIB$PUT_OUTPUT, R9
	MOVAB   W^P.ABG, R8
	MOVAB   G^SYS$FAO, R7
	MOVAB   W^U.20, R6
	SUBL2   #4, SP
	MOVL    4(AP), R5
	MOVW    #16, 796(R6)
	PUSHL   R5
	PUSHAB  796(R6)
	PUSHAB  796(R6)
	PUSHL   R8
	CALLS   #4, (R7)
	MOVL    R0, R4
	BLBC    R4, 1$
	PUSHAB  796(R6)
	CALLS   #1, G^SYS$SETPRN
	MOVL    R0, R4
1$:	MOVW    #256, (R6)
	PUSHL   R5
	CLRL    -(SP)
	PUSHL   R6
	PUSHL   R6
	PUSHAB  40(R8)
	CALLS   #5, (R7)
	MOVL    R0, R4
	BLBS    R4, 2$
	BRW     10$
2$:	PUSHL   R6
	CALLS   #1, (R9)
	PUSHL   8(AP)
	PUSHAB  48(R8)
	PUSHL   R5
	CLRL    12(SP)
	PUSHAB  12(SP)
	CALLS   #4, G^JAN_SEND_MSG
	MOVL    R0, R4
	BLBC    R4, 5$
	CLRL    -(SP)
	PUSHL   12(AP)
	CLRQ    -(SP)
	CALLS   #4, G^SYS$SCHDWK
	MOVL    R0, R4
	CALLS   #0, G^SYS$HIBER
	MOVL    R0, R4
	CLRQ    -(SP)
	CALLS   #2, G^SYS$CANWAK
	MOVL    R0, R4
	PUSHAB  148(R6)
	PUSHAB  140(R6)
	PUSHAB  16(R6)
	PUSHAB  32(R6)
	PUSHAB  152(R6)
	CALLS   #5, G^JAN_RECEIVE_MSG
	MOVL    R0, R4
	BLBC    R4, 5$
	CMPC5   (R5), @4(R5), #32, 32(R6), -
		@36(R6)
	BNEQ    3$
	MOVL    #1, R0
	BRB     4$
3$:	CLRL    R0
4$:	MOVL    R0, 1068(R6)
	BRB     6$
5$:	CLRL    1068(R6)
6$:	MOVW    #256, (R6)
	BLBS    1068(R6), 9$
	BLBS    R4, 7$
	MOVQ    #15, -(SP)
	PUSHAB  768(R6)
	PUSHAB  768(R6)
	PUSHL   R4
	CALLS   #5, G^SYS$GETMSG
	MOVL    R0, R4
	PUSHAB  768(R6)
	PUSHL   R5
	PUSHL   R6
	PUSHL   R6
	PUSHAB  -72(R8)
	CALLS   #5, (R7)
	BRB     8$
7$:	PUSHAB  40(R6)
	PUSHL   148(R6)
	PUSHAB  32(R6)
	PUSHL   R5
	PUSHL   R6
	PUSHL   R6
	PUSHAB  -20(R8)
	CALLS   #7, (R7)
8$:	MOVL    R0, R4
	MOVAB   (R6), R0
	BSBW    U.4
	MOVL    R0, R4
	PUSHL   #2
	PUSHAB  96(R8)
	PUSHAB  -272(R6)
	PUSHAB  76(R8)
	CLRL    -(SP)
	PUSHL   R6
	PUSHAB  -264(R6)
	CALLS   #7, G^HG_SEND_MAIL
	MOVL    R0, R4
	BRB     11$
9$:	PUSHL   R5
	CLRL    -(SP)
	PUSHL   R6
	PUSHL   R6
	PUSHAB  140(R8)
	CALLS   #5, (R7)
	MOVL    R0, R4
	BLBS    R4, 11$
10$:	MOVL    R4, R0
	RET
11$:	PUSHL   R6
	CALLS   #1, (R9)
	MOVL    #1, R0
	RET
	.PSECT  $PLIT$,NOWRT,NOEXE,2
P.ABS:	.BYTE   3
	.WORD   64
	.BYTE   0
	.LONG   0
	.EXTRN  SYS$SNDOPR
	.PSECT  $CODE$,NOWRT,2
U.4:	PUSHR   #^M<R2,R3,R4,R5,R6>
	MOVAB   -272(SP), SP
	MOVL    R0, R6
	MOVC5   #8, W^P.ABS, #0, #264, 8(SP)
	MOVL    #17694984, (SP)
	MOVAB   8(SP), 4(SP)
	ADDW3   #8, (R6), (SP)
	MOVC3   (R6), @4(R6), 16(SP)
	CLRL    -(SP)
	PUSHAB  4(SP)
	CALLS   #2, G^SYS$SNDOPR
	MOVAB   272(SP), SP
	POPR    #^M<R2,R3,R4,R5,R6>
	RSB
	.END	U.1