Trailing-Edge
-
PDP-10 Archives
-
BB-FB51A-RM
-
sna-ai/sources/snacom.l36
There are no other files named snacom.l36 in the archive.
'G ( TOPS-20 Bliss-36 4A(225) 13-Feb-1985 13:31:43 Wedne * % , 1 6 ( 9 G I P T Y ` g n t | (
(# - 0 6 7 = E K R Y ^ _ e m (v ( 0 D (% (- 5 8 (: B 0I V (\ f (m v | 8} H 0 ) 0 1 7 = (? 0I S W \ ` d 0f 0p |
( 0# / 5 < D I O R W [ _ a f k l q { & " # ( @
ACCDRETURNPCODE @TRACDATAYLENGTH @V1 @WINTLEV2 @(
PCB_INTCNT @-PCB_PACKET_SIZE 8uGAD$PSI_CHANNELS x L CH$SEQUENCE 8G
LEVTAB_BLOCK 8 GAL$CONFIRM_VERSION 8.SNAABTBUF$B_UNBCDE @ARGUMENT_WORD_0 x nCH$LEN @<PCB_INTAIL_BUFFER 8)SNAABTBUF$B_MSGCDE P $FALSE 8kGAD$ABORT_REASON 8GPORT_CONTROL_BLOCK HLCHNTAB_BLOCK_FIELDS @kRAD_RETURN_CODE HIO_BUFFER_BLOCK_FIELDS @RBD_RETURN_CODE x cCH$ASCIC @ PCB_JFN @
ACCSPORTDNUMBER PAFRMAXIMUM BIND@DATADSIZE 8xENGTH @WRDERETURNCODE @bCHNTABADDRESS P EXPEDITEDDATA P$IOBUFFERBLOCKSIZE P
EV$ECO 8GAL$LINK_SERVICE x \CH$ASCII @/CON_USER_DATA_LENGTH @CON_RETURN_CODE @[UDB_E_DATA_LENGTH @
WORKING_AREA x8INITIAL_IO_BUFFER @\
RDEMRESERVED @REJTRETURNRCODE P{APEBINDUACCEPT @?BLOCK1 P EV$UEC @ RCNRETURNRCODE @BBLOCK2 @HREMRETURNCODE P%XV$CEC @DBLOCK3 8
RINGENTRY @dLEVTABRADDRESS @m x $ @}RBDPORTNUMBER @"TERRETURNCODE @INTERRUPTCHANNEL HPORTCONTROLBLOCKFIELDS @7RECPORTNUMBER @
TRA_RESERVED Pz AP_BINDDATA x CRLF 8GAL$RECEIVE_INTERRUPT @URDE_PORT_NUMBER @Q UDB_FLAGS PzAP_LISTEN_CONNECT x UCH$ASCIZ PFPORT_CONTROL_BLOCK_SIZE P$XV$ECO @OCHAN_1 @TCHAN_2 8
EDIT_VERSION @jUDB_ABORT_DATA @CON_PORT_NUMBER P
EV$VER 8$ GAP$O_FLUSH 8RING_BLOCK_VECTOR P4AF_ACC 87ARGUMENT_BLOCK @REJ_PORT_NUMBER P|
AP_FLUSH_BUF 8
GAM$SERVICEKPORT @sRADNSENSE CODE PACUDCE 8q
CON_PLU_NAME @FREM_PORT_NUMBER P%XV$GWA P{AP_NORMAL_DATA @#
CON_PASSWORD 8zUSER_DATA_BASE P~AF_MINIMUM_PACKET_SIZE @f DATA_BUFFER @
TRA_PORT_NUMBER P AC_DLA @'LIS_PORT_NUMBER @aRDE_DATA_AVAILABLE @rUDB_DATA_AVAILABLE P~AF_MAXIMUM_PACKET_SIZE PAF_MAXIMUM_USER_DATA_SIZE 8
GAL$REJECT 8g INTABLOCK @! PCBdSTATE PACNDA @ZRDEZEVENT CODE 8GAP$ICPROTOCOL TYPE @u RAD STATE HeRING ENTRYAFIELDS @xTERAPORT NUMBER @tUDB7BINDRAVAILABLE x 7DISX @REJSENSECODE P4ARACC PxASABD P MAXIMUMSUPPORTEDPORTS PACINA x!
GAP$INDATA @+ PCBERROR @5PCBOUTPUTBUFFER x %XERO PACIAR P$XV$VER P5AFREC PACDFT PACNCM P7AFRDE PARIAE @&PCBRESETSEEN xiCH$WWORD @%CONLOGONMODE P NORMALDATA @%TERSENSECODE PACBPN PAEDFT PAENCM HARGUMENTBLOCKFIELDS @ IOBOUTPUTBUFFER P6SNAABTBUF$KLEN PACSIE P
GAP$ONDATA @f RDEERROR PACBTL PAEFFT PyAPOUTGOINGNCONNECT 8 8
GAP$OACALL PAEEIGR P6AFEREJ P6ARGUMENT BLOCKSIZE PARIGE PARSAA x$$ @0DA P
ARUAB @ARECSEQSNUMBER P RINGSSIZE x:%ROUTINE PAC NLN P AC PSE PAEUCN PARBIN 8%GAP$ORECONNECT @!IOBOUTPUTMARKER PIOBUFFERSIZE @APCBRCVINTERRUPT PACBTS PyUSERDATABASESIZE 8o$SIGNEDBYTEVALUE PACSER PAENLN P9AFTRA 8 COPYRIGHTSTATEMENT @
ARNAN 8GAP$IEBIND ACCEPT @zRAD DATA @hJ p'MAC @ CONCIRCUITNAME PAEUNK P3ARREJ @>RECDATAPOINTER @CRECRH @`UDBABORTLENGTH P}APRECONCONFIRM P
ARIGR PARNSA PARBSNA @PREM SEQNUMBER @oUDBRDATA PvASNBNR @pRAD ABORTEREASON PARCNS P
AR_UND PAR_AST PuAS_BNW PvAS_FLU PuAS_UND 8
GAP$O_ACCEPT @/LIS_CIRCUIT_NAME xR%GLOBAL_ROUTINE PAC_RSS PAR_UBR @4CON_SLU_NUMBER 8~GAL$CHECK_VERSION 8GAP$I_BINDDATA PyAS_ERR 8 GAM$ASCIC @h IN_USE_FLAG x[
CH$RWORD_A @2PCB_INPUT_BUFFER @MREM_DATA @RREM_RH @YBBZ PAR_NSL 8
GAP$IACOPY xTRADATAPOINTER @ TRARH P ARIPV 8nGAD$LINKSTATUS xx
CH$WWORDA 8GAP$INFLUSHPBUF @IOBFINPUTTBUFFER @ PCBOBLOCKFIELD 8PPORTRCONTROLIBLOCKS PARBPNS PARISIU P ARURJ HaLEVTABZCHNTABwFIELDS @4LISSLUUNUMBER HlSIGNEDNBYTEBFIELDS P $TRUE @CON+INTERRUPTFCHANNEL 8 XVDECO @ TA @MWORD0 8 XVGWA P|
GAM$VERIFYTPORT @mSCIZ 8 GAL$RECEIVEDATA @<RECDATALENGTH 8iGAD$ABORTLINK @RBDBINDLENGTH @cUDBABORTSTATUS @YUDBDATALENGTH 8 GAP$OASSEMBLE @7PCBINHEADBUFFER xSTACK @-
CH$MOVSTRING 8oGAD$NETWORK_DESCRIPTOR @x
RAD_LENGTH @^UDB_BIND_LENGTH 8!
GAP$O_LISTEN @1LIS_ACCESS_NAME (]MULTIWORD_VECTOR @eUDB_USER 8\
CHNTAB_BLOCK 8}GAD$EC_SEND_DATA 8w
RINGBLOCK 8XVVER 8$IOBUFFERBLOCK @mVALUE @*CONUSER @KREMDATALENGTH 81SNAABTBUF$BABTCDE
/ey>/ch
d@H d-
B @ Z5%&R0AFV%!6:PA>JA JR% 9EdpQ4Z ") $(P +UQi` H x @1
+ 1
)@ `VD),$ / X
%0H*$<
* pE!(dq( @1(& * X @ @1(& * 0%eI&/ *@ @))10 X
i !E z @0
*%'h p p < ` D 8
$ $e v @0! z B) `+ v #h @! X @ z #X
$x | X #X
$ $e P d* 0 b`
`X "H p H pDa
'e! @1"D9($ 0!!$! $/"@
v \Da
'e! ( X @1$ ()
X X
I& e
&Da
p \ B` @1"D9($
v #h
d@H()& p \Da
'e! X X ` E1
!y$-@i$ &d*$y ` b)#`0
E)&
X@(J*) ` b)
$
: D!$ P @0J d- 0e!$$D8PB)$"$ '$q H D!$ P @0J d$ 0e!$$D8PB)$"$ '$q H D!$ P @8J)'b@
$ B@
$ D *E PB)$"$ '$q H @PJ)$i$DI #
R
dI
#
0!!
$D!>!@
$I
@(J'$a`R")($$p 0
$a&" X @J#"` R X @ P b)# 0%&*DI #
0D) $q'bH
%!"@ 0!!'D(PB)$%'$q(@8J)'b@
%
&$I $D8R
X%$B@
%
&$I $D8R \ "H
$))
$I
@8J&$q*( @(J*) @0J"E )
@33 C1Ce7QKI=k;Q_I I6>ZM)J&: @(J"
@
) @"Ch
d@H&$pPB)$"$ '$q X 0!!'D(P @0&$pXB)$"$ '$q`R ` b)
$ 0DH V b)# 0%&*DI #
0D) $q'bH
%!"@ 0!!'D(PB)$%'$q(@8J)'b@
%
&$I $D8R
V 0!!)dI@PJ)$i$DI #
X @X@(J"
@J$@
$a
'e!* @
%!"@
$)$)eP H ;sX; 0\X;9z<Hw];]3|Hd 3u!TuRg` H
$)) @"CX
) @A$ $%PB)$"$ '$q X `zd$y,"
\ da
' 0D) $q'b` `R ` b)
$ 0DH 0 p e1&`0+$`z `0+$`x @| 0!!$! $`R `0+$`x @| 0!!$! $@9$ *b@ R
v @0+$` * p e1&`0+$`z `0+$`x @| 0!!$! $/"@
v e1& @X @ zDD Ey`R ` \ e1&@ 2 p e1&`0+$`z #X
d@H+dA)
\ e1& X @ X BH @A$ 9$%P @0+$`x @| 0!! &%P B` H p , p e1&`0+$`z #X
d@H+dA)dP @0+$`x @| X X
d@H+dA)dP @0+$`x @| X X @
P "H / @
$q$*`< X h H @b) !%!&*
X h
Z 0D*e(P %p @
$q$*`< X h p %p h @8J'DI()"@ @ Z "H "H H "H Mh [h 8 $ ) 6 @ $ H $ $ > $ h $ $ Fp $ X8 $ $ > $ gP $ $ S@
$
$ $ cp $ Jp &
$'dY6e )y'E!$'y&d/dI4" `
02(e(/dy *Dy/Da !ey
$$a)
d'dY,"e! )`0.&%A&$i>)% 'E!
"e )Xe )y'E!$'y&d/dI4" `
02(e(/dy *Dy/Da !ey
$$a)
T cp x @
@( R X @ | )h H 5 H Wx
H ;P
H
$'dY6e'ey
'2/dI4" `
0")$q/$q()%y
$$a)
i*&I.'D!>+$('EX
$ 0/$q("E*(Xe'ey
'2/dI4" i*&I.'D!>+$('EX
$ 0$%)/e) (e("y 'E!&@I$$D9>)%Q
. b)# 0
dy*' 0
A
' 0$0 B)'$q(*
%!"B`
$1 @0J!e) * 0$DI($$a>) %
X@(J"
@PJ"I(&$$' 0DH E1
!y$-` : H [@ l
$'dY6I /E)
#%>!y%e-%h 8 @
$y>!$1
"Ey&d/DI
&R
d'dY,"e! )`0.&%A&$i>)% 'E!
"e )XI /E)
#%>!y%e-%h 8 @
$y>!$1
"Ey&d/DI
&R 2 b)# 0
dy*' 0
A
' 0$0 B)'$q(*
%!"B`
$1-@0J!e) * 0 $d>$E**di)d)$. h "` -@0J!e) * 0"$d>'%! *y DY
) z $I $I&dI /E)
#%P "H
$))
$)0$i!Dx b)
$ ` -@ $ D@ $ @ $ $ g $ #8 $ $ iH $ Ph H f`
H j` H NX P H /0 H e R 68 9` %
$'dY6e)&"Ey >!%
/dI4" `
0**d)$/ ( d)%y
$$a)
]0 H $ #` $ $ + H H H 1 H $H H : $ /P $ $ ^ H # H ^X H OP H 4
H @8
H 3 H l8 H h H "` H d H V` H +p H H ep H P( H HP
H PP H 38 H & $ lP H X` H R
H Xx H - H p $ 80 $ $( D _h F 6 H ;p H C0 H * H h H d@ H RP H 2
$ 8x
$ $ i(
H N@ H *@ H @ H f8 H Lp H 2X H %@ H 5( H 'x $ ( $ " , F P H Yx H Sh
H Z H 98 H *h H @x H 5h H (h H c H U` H j
H
$'dY6d $#$i
'y&d/dI4" `
0* D9*&$q(/Da !ey
$$a)
&@ H % H %h H
$'dY6 `
0&&%1( Ey&d/DI
&R Y H bH $ .` $ $ $ .x $ $ 0 H
$'dY6 `
0&!q( Ey&d/DI
&R )H $ ! $ $
$'dY6 `
0(&%1( Ey$E!!d1"!& l
$'dY6 `
0$)$9 "y,)>#$)"bH @ @ @ @ @ 2 2 3 3 4 4 5 5 6 6 7 7 8 8 9 9 : : ; ; < < @
") $(P UQi` H x @10+ 1
)@ `VEA,$ / X
0H!$<
`0
,B!+%p @10+ )
!
6B)&!! @8J)'b@ 0$0>B)"$q($d `Xb)&*DI #
0
D "
X H @(J*) X") $(P "H H b)
$
h") $(P "H
$I
@8J&$q*( @(J*) @PJ)$i$DI #
0DH 8B)&!! @8J)'b@ 0$0>B)"$q($d `Xb)&*DI #
0
D "
X H @(J*) X") $(P "H H b)
$
d
D "
X@J$@
$a
'e!*
%!"B@
%
&$I $D8R b)
$ D9"$( D9"E D9"I& D9"e! D9"D)( D9"e D9"e, D9"I D9" D9"D, D9"d) D9"D D9"dq D9"d) D9&dY$ D9&d1, D9&e, D9&)$ D9&D) D9&$q( D9&D D9&D D9&D12 D9&d)$ D9&e! D9&%4 D9&% D9 $$ D9 $e2 D9 $DI D9 $ ( D9 $Da D9 $D D9 $I D9 '$ D9 '% D9 'd D9 'I& D9 ' ( D9 'Da D9 'D @" 2