ASSEMBLY LISTING OF SEGMENT >dumps>old>h>ncp_tbl_.alm ASSEMBLED ON: 07/02/84 1145.4 mst Mon OPTIONS USED: list ASSEMBLED BY: ALM Version 6.6 November 1982 ASSEMBLER CREATED: 09/21/83 1227.3 mst Wed  1 " ***********************************************************  2 " * *  3 " * Copyright, (C) Honeywell Information Systems Inc., 1982 *  4 " * *  5 " * Copyright (c) 1976 by Massachusetts Institute of *  6 " * Technology and Honeywell Information Systems, Inc. *  7 " * *  8 " * Copyright (c) 1972 by Massachusetts Institute of *  9 " * Technology and Honeywell Information Systems, Inc. *  10 " * *  11 " ***********************************************************  12  13  000000 14 name ncp_tbl_  15  000000 16 segdef com_state_tbl  000250 17 segdef ctl_tbl 000000 18 segdef base  19  20 " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " "  21 "  22 " This module contains the state machine tables by which the NCP  23 " processes user requests and Host-Host control messages.  24 "  25 " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " "  26 "  27 " Last modified by Edwin W. Meyer, Jr., June 2, 1972 to change the  28 " tables so that it does not wait for an echoing close before  29 " flushing memory of a transaction. Rather, it sends out a CLS 30 " and then flushes the transaction. Any CLS coming in later  31 " that can not be matched with an existing transaction is ignored.  32 "  33 " Last modified by D. M. Wells, February, 1974 to convert to mexp rather  34 " than the ioc language which it had previously been in.  35 "  36 " Last modified by D. M. Wells, Summer, 1975 to remove the code for read  37 " and write, which have been primarily moved to the new module  38 " ncp_io_.pl1  39 "  40 " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " "  41  42 macro tbl 1 43 &(&=&x,1&[ vfd 18/&i&;,18/&i&]&) 2 44 &end  45 macro state_tbl  1 46 zero &1,&2  2 47 zero &3,&4  3 48 zero &5,&6  4 49 &end  50  51 macro tbl_ctn 1 52 zero &1,&2  2 53 zero &3,&4  3 54 zero &5,&6  4 55 zero &7,&8  5 56 &end  57  58 macro defidx  1 59 set DEFIDX_COUNTER,&1  2 60 &(2 equ &i,DEFIDX_COUNTER  3 61 set DEFIDX_COUNTER,DEFIDX_COUNTER+1 4 62 &)  5 63 &end  64  65 macro add_to_queue  1 66 equ opr01,1 2 67 zero *+2,opr01  3 68 zero &1,0  4 69 &end  70  71 macro allocate_read  1 72 equ opr02,2 2 73 zero *+1,opr02  3 74 &end  75  76 macro allocate_write  1 77 equ opr03,3 2 78 zero *+2,opr03  3 79 zero &1,0  4 80 &end  81  82 macro assign_link 1 83 equ opr04,4 2 84 zero *+2,opr04  3 85 zero &1,&2  4 86 &end  87  88 macro byte_length 1 89 equ opr05,5 2 90 zero *+2,opr05  3 91 zero &1,0  4 92 &end  93  94 macro check_bytesize  1 95 equ opr06,6 2 96 zero *+2,opr06  3 97 zero &1,0  4 98 &end  99  100 macro check_for_rfnm  1 101 equ opr07,7 2 102 zero *+2,opr07  3 103 zero &1,0  4 104 &end  105  106 macro ctl_mess  1 107 equ opr08,8 2 108 zero *+3,opr08  3 109 zero &1,&2  4 110 zero &3,&4  5 111 &end  112  113 macro deac_sw 1 114 equ opr09,9 2 115 zero *+2,opr09  3 116 zero &1,0  4 117 &end  118  119 macro deactivate  1 120 equ opr10,10  2 121 zero *+1,opr10  3 122 &end  123  124 macro deallocate_write  1 125 equ opr11,11  2 126 zero *+1,opr11  3 127 &end  128  129 macro delete_rfc  1 130 equ opr12,12  2 131 zero *+1,opr12  3 132 &end  133  134 macro error_code  1 135 zero *+2,opr13  2 136 equ opr13,13  3 137 zero &1,0  4 138 &end  139  140 " macro error_handler 141 " equ opr14,14  142 " zero *+1,opr14 143 " &end  144  145 macro find_entry_link_transfer  1 146 equ opr15,15  2 147 zero *+2,opr15  3 148 zero &1,&2  4 149 &end  150  151 macro find_entry_sock_transfer  1 152 equ opr16,16  2 153 zero *+2,opr16  3 154 zero &1,0  4 155 &end  156  157 macro fsoc_unequal  1 158 equ opr17,17  2 159 zero *+2,opr17  3 160 zero &1,0  4 161 &end  162  163 macro get_nxt_rfc 1 164 equ opr18,18  2 165 zero *+2,opr18  3 166 zero &1,0  4 167 &end  168  169 macro get_sockets 1 170 equ opr19,19  2 171 zero *+2,opr19  3 172 zero &1,&2  4 173 &end  174  175 macro go_to  1 176 equ opr20,20  2 177 zero *+2,opr20  3 178 zero &1,0  4 179 &end  180  181 macro imp_abort  1 182 equ opr21,21  2 183 zero *+1,opr21  3 184 &end  185  186 macro insert_socket_id  1 187 equ opr22,22  2 188 zero *+3,opr22  3 189 zero &1,&2  4 190 zero &3,0  5 191 &end  192  193 macro interrupt  1 194 equ opr23,23  2 195 zero *+1,opr23  3 196 &end  197  198 macro local_read_socket  1 199 equ opr24,24  2 200 zero *+2,opr24  3 201 zero &1,0  4 202 &end  203  204 macro ncp_error  1 205 equ opr25,25  2 206 zero *+2,opr25  3 207 zero &1,0  4 208 &end  209  210 " macro quit_enable  211 " equ opr26,26  212 " zero *+2,opr26 213 " zero &1,0  214 " &end  215  216 " macro read  217 " equ opr27,27  218 " zero *+2,opr27 219 " zero &1,0  220 " &end  221  222 " macro reset_host  223 " equ opr28,28  224 " zero *+2,opr28 225 " zero &1,0  226 " &end  227  228 macro return  1 229 equ opr29,29  2 230 zero *+1,opr29  3 231 &end  232  233 " macro byte_size 234 " equ opr30,30  235 " zero *+2,opr30 236 " zero &1,0  237 " &end  238  239 macro set_deac_sw 1 240 equ opr31,31  2 241 zero *+1,opr31  3 242 &end  243  244 macro set_empty_wakeup  1 245 equ opr32,32  2 246 zero *+1,opr32  3 247 &end  248  249 " macro record_erp  250 " equ opr33,33  251 " zero *+1,opr33 252 " &end  253  254 macro set_fsocr  1 255 equ opr34,34  2 256 zero *+1,opr34  3 257 &end  258  259 macro signal  1 260 equ opr35,35  2 261 zero *+2,opr35  3 262 zero &1,0  4 263 &end  264  265 " macro state 266 " equ opr36,36  267 " zero *+2,opr36 268 " zero &1,0  269 " &end  270  271 macro state_ns  1 272 equ opr37,37  2 273 zero *+2,opr37  3 274 zero &1,0  4 275 &end  276  277 macro state_ul_return 1 278 equ opr38,38  2 279 zero *+2,opr38  3 280 zero &1,0  4 281 &end  282  283 macro unassign_link  1 284 equ opr39,39  2 285 zero *+2,opr39  3 286 zero &1,0  4 287 &end  288  289 macro unlock_return  1 290 equ opr40,40  2 291 zero *+1,opr40  3 292 &end  293  294 " macro write 295 " equ opr41,41  296 " zero *+1,opr41 297 " &end  298 "  299 " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " "  300 " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " "  301  302 " SOCKET STATES:  000001 303 equ Active,1 " Socket is assigned but not being used.  000002 304 equ Listen,2 " Socket is listening for RFC's 000003 305 equ Rfc_rcvd,3 " An RFC has been received  000004 306 equ Abort,4 " A Received RFC has been aborted.  000005 307 equ Rfc_sent,5 " An RFC has been sent to a foreign socket. 000006 308 equ Open,6 " This socket is in communication with a foreign socket.  000007 309 equ Cls_wait,7 " A CLS has been sent, but no reply received.  000010 310 equ Inv8,8 " No longer used.  000011 311 equ Data_wait,9 " User has requested close, but data still here 000012 312 equ Rfnm_wait,10 " User has requested close, but final RFNM not back.  000013 313 equ Cls_read,11 " CLS has been received, but still data in buffers  000014 314 equ Inv12,12 " no longer used.  315 " " croggled  316 " " host was reset while socket was connected 317  318  319 defidx 17,(Rts,Str,Cls,All,Gvb,Ret,Int,Buf)  000021 set DEFIDX_COUNTER,17  000021 equ Rts,DEFIDX_COUNTER 000022 set DEFIDX_COUNTER,DEFIDX_COUNTER+1 000022 equ Str,DEFIDX_COUNTER 000023 set DEFIDX_COUNTER,DEFIDX_COUNTER+1 000023 equ Cls,DEFIDX_COUNTER 000024 set DEFIDX_COUNTER,DEFIDX_COUNTER+1 000024 equ All,DEFIDX_COUNTER 000025 set DEFIDX_COUNTER,DEFIDX_COUNTER+1 000025 equ Gvb,DEFIDX_COUNTER 000026 set DEFIDX_COUNTER,DEFIDX_COUNTER+1 000026 equ Ret,DEFIDX_COUNTER 000027 set DEFIDX_COUNTER,DEFIDX_COUNTER+1 000027 equ Int,DEFIDX_COUNTER 000030 set DEFIDX_COUNTER,DEFIDX_COUNTER+1 000030 equ Buf,DEFIDX_COUNTER 000031 set DEFIDX_COUNTER,DEFIDX_COUNTER+1  320  321 defidx 0,(NOP,RTS,STR,CLS,ALL,GVB,RET,INR,INS,ECO,ERP,ERR,RST,RRP) 000000 set DEFIDX_COUNTER,0  000000 equ NOP,DEFIDX_COUNTER 000001 set DEFIDX_COUNTER,DEFIDX_COUNTER+1 000001 equ RTS,DEFIDX_COUNTER 000002 set DEFIDX_COUNTER,DEFIDX_COUNTER+1 000002 equ STR,DEFIDX_COUNTER 000003 set DEFIDX_COUNTER,DEFIDX_COUNTER+1 000003 equ CLS,DEFIDX_COUNTER 000004 set DEFIDX_COUNTER,DEFIDX_COUNTER+1 000004 equ ALL,DEFIDX_COUNTER 000005 set DEFIDX_COUNTER,DEFIDX_COUNTER+1 000005 equ GVB,DEFIDX_COUNTER 000006 set DEFIDX_COUNTER,DEFIDX_COUNTER+1 000006 equ RET,DEFIDX_COUNTER 000007 set DEFIDX_COUNTER,DEFIDX_COUNTER+1 000007 equ INR,DEFIDX_COUNTER 000010 set DEFIDX_COUNTER,DEFIDX_COUNTER+1 000010 equ INS,DEFIDX_COUNTER 000011 set DEFIDX_COUNTER,DEFIDX_COUNTER+1 000011 equ ECO,DEFIDX_COUNTER 000012 set DEFIDX_COUNTER,DEFIDX_COUNTER+1 000012 equ ERP,DEFIDX_COUNTER 000013 set DEFIDX_COUNTER,DEFIDX_COUNTER+1 000013 equ ERR,DEFIDX_COUNTER 000014 set DEFIDX_COUNTER,DEFIDX_COUNTER+1 000014 equ RST,DEFIDX_COUNTER 000015 set DEFIDX_COUNTER,DEFIDX_COUNTER+1 000015 equ RRP,DEFIDX_COUNTER 000016 set DEFIDX_COUNTER,DEFIDX_COUNTER+1  322  323 defidx 64,(FSOC,LSOC,LINKN,BSPACE,MSPACE,CODEF,ERRTX,ECODT,FSOC1,BYTE) 000100 set DEFIDX_COUNTER,64  000100 equ FSOC,DEFIDX_COUNTER  000101 set DEFIDX_COUNTER,DEFIDX_COUNTER+1 000101 equ LSOC,DEFIDX_COUNTER  000102 set DEFIDX_COUNTER,DEFIDX_COUNTER+1 000102 equ LINKN,DEFIDX_COUNTER  000103 set DEFIDX_COUNTER,DEFIDX_COUNTER+1 000103 equ BSPACE,DEFIDX_COUNTER  000104 set DEFIDX_COUNTER,DEFIDX_COUNTER+1 000104 equ MSPACE,DEFIDX_COUNTER  000105 set DEFIDX_COUNTER,DEFIDX_COUNTER+1 000105 equ CODEF,DEFIDX_COUNTER  000106 set DEFIDX_COUNTER,DEFIDX_COUNTER+1 000106 equ ERRTX,DEFIDX_COUNTER  000107 set DEFIDX_COUNTER,DEFIDX_COUNTER+1 000107 equ ECODT,DEFIDX_COUNTER  000110 set DEFIDX_COUNTER,DEFIDX_COUNTER+1 000110 equ FSOC1,DEFIDX_COUNTER  000111 set DEFIDX_COUNTER,DEFIDX_COUNTER+1 000111 equ BYTE,DEFIDX_COUNTER  000112 set DEFIDX_COUNTER,DEFIDX_COUNTER+1  324  325 defidx 1,(netstate,netclose,netfhost,netbgend,notalloc)  000001 set DEFIDX_COUNTER,1  000001 equ netstate,DEFIDX_COUNTER  000002 set DEFIDX_COUNTER,DEFIDX_COUNTER+1 000002 equ netclose,DEFIDX_COUNTER  000003 set DEFIDX_COUNTER,DEFIDX_COUNTER+1 000003 equ netfhost,DEFIDX_COUNTER  000004 set DEFIDX_COUNTER,DEFIDX_COUNTER+1 000004 equ netbgend,DEFIDX_COUNTER  000005 set DEFIDX_COUNTER,DEFIDX_COUNTER+1 000005 equ notalloc,DEFIDX_COUNTER  000006 set DEFIDX_COUNTER,DEFIDX_COUNTER+1  326  327 " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " "  328 " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " "  329  000000 330 base:  331  000000 332 com_state_tbl:  333 state_tbl inv_state_,inv_state_,inv_state_,inv_state_,inv_state_,abort6_  000000 00 000260 000260 zero inv_state_,inv_state_  000001 00 000260 000260 zero inv_state_,inv_state_  000002 00 000260 000263 zero inv_state_,abort6_  334 tbl_ctn inv_state_,error_,inv_state_,abort6_,abort11_,error_,inv_state_,inv_state_ " /* abort - 1 */  000003 00 000260 001202 zero inv_state_,error_  000004 00 000260 000263 zero inv_state_,abort6_  000005 00 000265 001202 zero abort11_,error_ 000006 00 000260 000260 zero inv_state_,inv_state_  335  336 state_tbl connect1_,connect1_,inv_state_,inv_state_,inv_state_,inv_state_ 000007 00 000275 000275 zero connect1_,connect1_ 000010 00 000260 000260 zero inv_state_,inv_state_  000011 00 000260 000260 zero inv_state_,inv_state_  337 tbl_ctn inv_state_,error_,inv_state_,inv_state_,inv_state_,error_,inv_state_,inv_state_ " /* connect - 2 */  000012 00 000260 001202 zero inv_state_,error_  000013 00 000260 000260 zero inv_state_,inv_state_  000014 00 000260 001202 zero inv_state_,error_  000015 00 000260 000260 zero inv_state_,inv_state_  338  339 state_tbl error_,error_,error_,error_,error_,error_  000016 00 001202 001202 zero error_,error_  000017 00 001202 001202 zero error_,error_  000020 00 001202 001202 zero error_,error_  340 tbl_ctn error_,error_,error_,error_,error_,error_,error_,error_ " /* listen - 3 */  000021 00 001202 001202 zero error_,error_  000022 00 001202 001202 zero error_,error_  000023 00 001202 001202 zero error_,error_  000024 00 001202 001202 zero error_,error_  341  342 state_tbl inv_state_,inv_state_,reject3_,reject4_,inv_state_,inv_state_  000025 00 000260 000260 zero inv_state_,inv_state_  000026 00 000327 000350 zero reject3_,reject4_  000027 00 000260 000260 zero inv_state_,inv_state_  343 tbl_ctn inv_state_,error_,inv_state_,inv_state_,inv_state_,error_,inv_state_,inv_state_ " /* reject - 4 */  000030 00 000260 001202 zero inv_state_,error_  000031 00 000260 000260 zero inv_state_,inv_state_  000032 00 000260 001202 zero inv_state_,error_  000033 00 000260 000260 zero inv_state_,inv_state_  344  345 state_tbl inv_state_,inv_state_,accept3_,reject4_,inv_state_,inv_state_  000034 00 000260 000260 zero inv_state_,inv_state_  000035 00 000366 000350 zero accept3_,reject4_  000036 00 000260 000260 zero inv_state_,inv_state_  346 tbl_ctn inv_state_,error_,inv_state_,inv_state_,inv_state_,error_,inv_state_,inv_state_ " /* accept - 5 */  000037 00 000260 001202 zero inv_state_,error_  000040 00 000260 000260 zero inv_state_,inv_state_  000041 00 000260 001202 zero inv_state_,error_  000042 00 000260 000260 zero inv_state_,inv_state_  347  348 state_tbl close1_,close2_,close3_,close4_,close5_,close6_ 000043 00 000437 000443 zero close1_,close2_ 000044 00 000450 000455 zero close3_,close4_ 000045 00 000477 000505 zero close5_,close6_ 349 tbl_ctn inv_state_,error_,inv_state_,nop_,abort11_,error_,close13_,close13_ " /* close - 6 */  000046 00 000260 001202 zero inv_state_,error_  000047 00 000260 000262 zero inv_state_,nop_ 000050 00 000265 001202 zero abort11_,error_ 000051 00 000524 000524 zero close13_,close13_  350  351 state_tbl fdeac1_,fdeac1_,fdeac1_,fdeac1_,fdeac1_,deac11_ 000052 00 000532 000532 zero fdeac1_,fdeac1_ 000053 00 000532 000532 zero fdeac1_,fdeac1_ 000054 00 000532 000541 zero fdeac1_,deac11_ 352 tbl_ctn deac11_,error_,deac11_,deac11_,deac11_,error_,fdeac13_,fdeac13_ " /* force-deac - 7 */  000055 00 000541 001202 zero deac11_,error_  000056 00 000541 000541 zero deac11_,deac11_ 000057 00 000541 001202 zero deac11_,error_  000060 00 000537 000537 zero fdeac13_,fdeac13_  353  354 state_tbl error_,error_,error_,error_,error_,error_  000061 00 001202 001202 zero error_,error_  000062 00 001202 001202 zero error_,error_  000063 00 001202 001202 zero error_,error_  355 tbl_ctn error_,error_,error_,error_,error_,error_,error_,error_ " /* sendquit - 8 */ 000064 00 001202 001202 zero error_,error_  000065 00 001202 001202 zero error_,error_  000066 00 001202 001202 zero error_,error_  000067 00 001202 001202 zero error_,error_  356  357 state_tbl error_,error_,error_,error_,error_,error_  000070 00 001202 001202 zero error_,error_  000071 00 001202 001202 zero error_,error_  000072 00 001202 001202 zero error_,error_  358 tbl_ctn error_,error_,error_,error_,error_,error_,error_,error_ " /* quitenable - 9 */  000073 00 001202 001202 zero error_,error_  000074 00 001202 001202 zero error_,error_  000075 00 001202 001202 zero error_,error_  000076 00 001202 001202 zero error_,error_  359  360 state_tbl error_,error_,error_,error_,error_,error_  000077 00 001202 001202 zero error_,error_  000100 00 001202 001202 zero error_,error_  000101 00 001202 001202 zero error_,error_  361 tbl_ctn error_,error_,error_,error_,error_,error_,error_,error_ " /* quitinhibit - 10 */ 000102 00 001202 001202 zero error_,error_  000103 00 001202 001202 zero error_,error_  000104 00 001202 001202 zero error_,error_  000105 00 001202 001202 zero error_,error_  362  363 state_tbl error_,error_,error_,error_,error_,error_  000106 00 001202 001202 zero error_,error_  000107 00 001202 001202 zero error_,error_  000110 00 001202 001202 zero error_,error_  364 tbl_ctn error_,error_,error_,error_,error_,error_,error_,error_ " /* setbytesize - 11 */ 000111 00 001202 001202 zero error_,error_  000112 00 001202 001202 zero error_,error_  000113 00 001202 001202 zero error_,error_  000114 00 001202 001202 zero error_,error_  365  366 state_tbl error_,error_,error_,error_,error_,error_  000115 00 001202 001202 zero error_,error_  000116 00 001202 001202 zero error_,error_  000117 00 001202 001202 zero error_,error_  367 tbl_ctn error_,error_,error_,error_,error_,error_,error_,error_ " /* getbytesize - 12 */ 000120 00 001202 001202 zero error_,error_  000121 00 001202 001202 zero error_,error_  000122 00 001202 001202 zero error_,error_  000123 00 001202 001202 zero error_,error_  368  369 state_tbl error_,error_,error_,error_,error_,error_  000124 00 001202 001202 zero error_,error_  000125 00 001202 001202 zero error_,error_  000126 00 001202 001202 zero error_,error_  370 tbl_ctn error_,error_,error_,error_,error_,error_,error_,error_ " /* read - 13 */  000127 00 001202 001202 zero error_,error_  000130 00 001202 001202 zero error_,error_  000131 00 001202 001202 zero error_,error_  000132 00 001202 001202 zero error_,error_  371  372 state_tbl nop_,nop_,state3_,state4_,nop_,nop_ 000133 00 000262 000262 zero nop_,nop_  000134 00 000545 000551 zero state3_,state4_ 000135 00 000262 000262 zero nop_,nop_  373 tbl_ctn nop_,error_,nop_,nop_,nop_,error_,nop_,nop_ " /* state - 14 */  000136 00 000262 001202 zero nop_,error_ 000137 00 000262 000262 zero nop_,nop_  000140 00 000262 001202 zero nop_,error_ 000141 00 000262 000262 zero nop_,nop_  374  375 state_tbl error_,error_,error_,error_,error_,error_  000142 00 001202 001202 zero error_,error_  000143 00 001202 001202 zero error_,error_  000144 00 001202 001202 zero error_,error_  376 tbl_ctn error_,error_,error_,error_,error_,error_,error_,error_ " /* write - 15 */  000145 00 001202 001202 zero error_,error_  000146 00 001202 001202 zero error_,error_  000147 00 001202 001202 zero error_,error_  000150 00 001202 001202 zero error_,error_  377  378 state_tbl deac1_,deac1_,deac3_,deac4_,deac5_,deac6_  000151 00 000543 000543 zero deac1_,deac1_  000152 00 000447 000454 zero deac3_,deac4_  000153 00 000476 000504 zero deac5_,deac6_  379 tbl_ctn deac7_,error_,deac7_,deac7_,deac11_,error_,fdeac13_,fdeac13_ " /* deactivate - 16 */ 000154 00 000567 001202 zero deac7_,error_  000155 00 000567 000567 zero deac7_,deac7_  000156 00 000541 001202 zero deac11_,error_  000157 00 000537 000537 zero fdeac13_,fdeac13_  380  381 state_tbl auto_reject_,rts2_,rts3_,rts3_,rts5_,auto_reject_  000160 00 000707 000721 zero auto_reject_,rts2_  000161 00 000707 000707 zero rts3_,rts3_ 000162 00 000733 000707 zero rts5_,auto_reject_  382 tbl_ctn rfc7_,error_,auto_reject_,auto_reject_,auto_reject_,error_,auto_reject_,auto_reject_ " /* RTS - 17 */  000163 00 000763 001202 zero rfc7_,error_  000164 00 000707 000707 zero auto_reject_,auto_reject_  000165 00 000707 001202 zero auto_reject_,error_ 000166 00 000707 000707 zero auto_reject_,auto_reject_  383  384 state_tbl auto_reject_,str2_,str3_,str3_,str5_,auto_reject_  000167 00 000707 000717 zero auto_reject_,str2_  000170 00 000707 000707 zero str3_,str3_ 000171 00 000743 000707 zero str5_,auto_reject_  385 tbl_ctn rfc7_,error_,auto_reject_,auto_reject_,auto_reject_,error_,auto_reject_,auto_reject_ " /* STR - 18 */  000172 00 000763 001202 zero rfc7_,error_  000173 00 000707 000707 zero auto_reject_,auto_reject_  000174 00 000707 001202 zero auto_reject_,error_ 000175 00 000707 000707 zero auto_reject_,auto_reject_  386  387 state_tbl inv_CLS_,inv_CLS_,cls3_,cls4_,cls5_,cls6_  000176 00 001145 001145 zero inv_CLS_,inv_CLS_  000177 00 000766 001014 zero cls3_,cls4_ 000200 00 001024 001043 zero cls5_,cls6_ 388 tbl_ctn cls7_,error_,cls9_,cls6_,inv_CLS_,error_,inv_CLS_,inv_CLS_ " /* CLS - 19 */  000201 00 001066 001202 zero cls7_,error_  000202 00 001100 001043 zero cls9_,cls6_ 000203 00 001145 001202 zero inv_CLS_,error_ 000204 00 001145 001145 zero inv_CLS_,inv_CLS_  389  390 state_tbl inv_com_,inv_com_,inv_com_,inv_com_,inv_com_,all6_  000205 00 000713 000713 zero inv_com_,inv_com_  000206 00 000713 000713 zero inv_com_,inv_com_  000207 00 000713 001114 zero inv_com_,all6_  391 tbl_ctn nop_,error_,all6_,inv_com_,inv_com_,error_,inv_com_,inv_com_ " /* ALL - 20 */  000210 00 000262 001202 zero nop_,error_ 000211 00 001114 000713 zero all6_,inv_com_  000212 00 000713 001202 zero inv_com_,error_ 000213 00 000713 000713 zero inv_com_,inv_com_  392  393 state_tbl inv_com_,inv_com_,inv_com_,inv_com_,inv_com_,gvb6_  000214 00 000713 000713 zero inv_com_,inv_com_  000215 00 000713 000713 zero inv_com_,inv_com_  000216 00 000713 001121 zero inv_com_,gvb6_  394 tbl_ctn nop_,error_,gvb6_,inv_com_,inv_com_,error_,inv_com_,inv_com_ " /* GVB - 21 */  000217 00 000262 001202 zero nop_,error_ 000220 00 001121 000713 zero gvb6_,inv_com_  000221 00 000713 001202 zero inv_com_,error_ 000222 00 000713 000713 zero inv_com_,inv_com_  395  396 state_tbl inv_com_,inv_com_,inv_com_,inv_com_,inv_com_,nop_  000223 00 000713 000713 zero inv_com_,inv_com_  000224 00 000713 000713 zero inv_com_,inv_com_  000225 00 000713 000262 zero inv_com_,nop_  397 tbl_ctn nop_,error_,nop_,inv_com_,inv_com_,error_,inv_com_,inv_com_ " /* RET - 22 */ 000226 00 000262 001202 zero nop_,error_ 000227 00 000262 000713 zero nop_,inv_com_  000230 00 000713 001202 zero inv_com_,error_ 000231 00 000713 000713 zero inv_com_,inv_com_  398  399 state_tbl inv_com_,inv_com_,inv_com_,inv_com_,inv_com_,int6_  000232 00 000713 000713 zero inv_com_,inv_com_  000233 00 000713 000713 zero inv_com_,inv_com_  000234 00 000713 001126 zero inv_com_,int6_  400 tbl_ctn nop_,error_,nop_,inv_com_,inv_com_,error_,inv_com_,inv_com_ " /* INT - 23 */ 000235 00 000262 001202 zero nop_,error_ 000236 00 000262 000713 zero nop_,inv_com_  000237 00 000713 001202 zero inv_com_,error_ 000240 00 000713 000713 zero inv_com_,inv_com_  401  402 state_tbl error_,error_,error_,error_,error_,nop_ 000241 00 001202 001202 zero error_,error_  000242 00 001202 001202 zero error_,error_  000243 00 001202 000262 zero error_,nop_ 403 tbl_ctn error_,error_,buf9_,buf10_,error_,error_,nop_,nop_ " /* buf - 24 */ 000244 00 001202 001202 zero error_,error_  000245 00 001130 001140 zero buf9_,buf10_  000246 00 001202 001202 zero error_,error_  000247 00 000262 000262 zero nop_,nop_  404  405  000250 406 ctl_tbl:  407 tbl (error_,RTS_,STR_,CLS_,ALL_,GVB_,RET_,INR_,INS_,ECO_,error_,error_,error_,error_,error_,unk_)  000250 00 001202 000571 vfd 18/error_,18/RTS_,18/STR_,18/CLS_,18/ALL_,18/GVB_,18/RET_,18/INR_,18/INS_,18/ECO_,18/error_,18/error_,18/error_,18/error_,18/error_,18/unk_ 000251 00 000603 000615 000252 00 000630 000635 000253 00 000645 000655 000254 00 000665 000675 000255 00 001202 001202 000256 00 001202 001202 000257 00 001202 000703 408  000260 409 inv_state_: 410 error_code netstate  000260 0a 000262 000015 zero *+2,opr13  000015 equ opr13,13  000261 aa 000001 000000 zero netstate,0  411  000262 412 nop_:  413 unlock_return 000050 equ opr40,40  000262 0a 000263 000050 zero *+1,opr40  414  415 " /* ABORT user call */ 416  000263 417 abort6_:  418 imp_abort 000025 equ opr21,21  000263 0a 000264 000025 zero *+1,opr21  419 unlock_return 000050 equ opr40,40  000264 0a 000265 000050 zero *+1,opr40  420  000265 421 abort11_:  422 unassign_link 0 000047 equ opr39,39  000265 0a 000267 000047 zero *+2,opr39  000266 aa 000000 000000 zero 0,0 423 deac_sw deac1_  000011 equ opr09,9 000267 0a 000271 000011 zero *+2,opr09  000270 0a 000543 000000 zero deac1_,0  424 signal 1 000043 equ opr35,35  000271 0a 000273 000043 zero *+2,opr35  000272 aa 000001 000000 zero 1,0 425 state_ul_return Active  000046 equ opr38,38  000273 0a 000275 000046 zero *+2,opr38  000274 aa 000001 000000 zero Active,0  426  427 " /* CONNECT user call */  428  000275 429 connect1_:  430 insert_socket_id 0,connect1b_,connect1d_  000026 equ opr22,22  000275 0a 000300 000026 zero *+3,opr22  000276 a0 000000 000316 zero 0,connect1b_  000277 0a 000324 000000 zero connect1d_,0  431 local_read_socket connect1a_  000030 equ opr24,24  000300 0a 000302 000030 zero *+2,opr24  000301 0a 000307 000000 zero connect1a_,0  432 ctl_mess STR,LSOC,FSOC,BYTE  000010 equ opr08,8 000302 0a 000305 000010 zero *+3,opr08  000303 aa 000002 000101 zero STR,LSOC  000304 aa 000100 000111 zero FSOC,BYTE  433 state_ul_return Rfc_sent  000046 equ opr38,38  000305 0a 000307 000046 zero *+2,opr38  000306 aa 000005 000000 zero Rfc_sent,0  434  000307 435 connect1a_: 436 assign_link 0,connect1c_  000004 equ opr04,4 000307 0a 000311 000004 zero *+2,opr04  000310 a0 000000 000321 zero 0,connect1c_  437 ctl_mess RTS,LSOC,FSOC,LINKN  000010 equ opr08,8 000311 0a 000314 000010 zero *+3,opr08  000312 aa 000001 000101 zero RTS,LSOC  000313 aa 000100 000102 zero FSOC,LINKN  438 state_ul_return Rfc_sent  000046 equ opr38,38  000314 0a 000316 000046 zero *+2,opr38  000315 aa 000005 000000 zero Rfc_sent,0  439  000316 440 connect1b_: 441 error_code netfhost  000316 0a 000320 000015 zero *+2,opr13  000015 equ opr13,13  000317 aa 000003 000000 zero netfhost,0  442 unlock_return 000050 equ opr40,40  000320 0a 000321 000050 zero *+1,opr40  443  000321 444 connect1c_: 445 error_code notalloc  000321 0a 000323 000015 zero *+2,opr13  000015 equ opr13,13  000322 aa 000005 000000 zero notalloc,0  446 unlock_return 000050 equ opr40,40  000323 0a 000324 000050 zero *+1,opr40  447  000324 448 connect1d_: 449 error_code netbgend  000324 0a 000326 000015 zero *+2,opr13  000015 equ opr13,13  000325 aa 000004 000000 zero netbgend,0  450 unlock_return 000050 equ opr40,40  000326 0a 000327 000050 zero *+1,opr40  451  452 " /* LISTEN user call */  453 " listen1_: 454 " state_ul_return Listen  455  456 " /* REJECT user call */  000327 457 reject3_:  458 get_nxt_rfc error80_  000022 equ opr18,18  000327 0a 000331 000022 zero *+2,opr18  000330 0a 001146 000000 zero error80_,0  459 insert_socket_id 1,reject3b_,error87_  000026 equ opr22,22  000331 0a 000334 000026 zero *+3,opr22  000332 a0 000001 000337 zero 1,reject3b_ 000333 0a 001164 000000 zero error87_,0  460 ctl_mess CLS,LSOC,FSOC,0  000010 equ opr08,8 000334 0a 000337 000010 zero *+3,opr08  000335 aa 000003 000101 zero CLS,LSOC  000336 aa 000100 000000 zero FSOC,0  000337 461 reject3b_:  462 delete_rfc  000014 equ opr12,12  000337 0a 000340 000014 zero *+1,opr12  000340 463 accept3d_:  464 get_nxt_rfc reject3a_ 000022 equ opr18,18  000340 0a 000342 000022 zero *+2,opr18  000341 0a 000346 000000 zero reject3a_,0 465 signal 0 000043 equ opr35,35  000342 0a 000344 000043 zero *+2,opr35  000343 aa 000000 000000 zero 0,0 466 state_ul_return Rfc_rcvd  000046 equ opr38,38  000344 0a 000346 000046 zero *+2,opr38  000345 aa 000003 000000 zero Rfc_rcvd,0  000346 467 reject3a_:  468 state_ul_return Listen  000046 equ opr38,38  000346 0a 000350 000046 zero *+2,opr38  000347 aa 000002 000000 zero Listen,0  469  000350 470 reject4_:  471 get_nxt_rfc error81_  000022 equ opr18,18  000350 0a 000352 000022 zero *+2,opr18  000351 0a 001150 000000 zero error81_,0  472 set_fsocr 000042 equ opr34,34  000352 0a 000353 000042 zero *+1,opr34  473 delete_rfc  000014 equ opr12,12  000353 0a 000354 000014 zero *+1,opr12  474 get_nxt_rfc reject4a_ 000022 equ opr18,18  000354 0a 000356 000022 zero *+2,opr18  000355 0a 000363 000000 zero reject4a_,0 475 signal 0 000043 equ opr35,35  000356 0a 000360 000043 zero *+2,opr35  000357 aa 000000 000000 zero 0,0 476 state_ns Rfc_rcvd  000045 equ opr37,37  000360 0a 000362 000045 zero *+2,opr37  000361 aa 000003 000000 zero Rfc_rcvd,0  477 unlock_return 000050 equ opr40,40  000362 0a 000363 000050 zero *+1,opr40  000363 478 reject4a_:  479 state_ns Listen  000045 equ opr37,37  000363 0a 000365 000045 zero *+2,opr37  000364 aa 000002 000000 zero Listen,0  480 unlock_return 000050 equ opr40,40  000365 0a 000366 000050 zero *+1,opr40  481  482 " /* ACCEPT user call */  000366 483 accept3_:  484 get_nxt_rfc error82_  000022 equ opr18,18  000366 0a 000370 000022 zero *+2,opr18  000367 0a 001152 000000 zero error82_,0  485 insert_socket_id 1,error83_,error84_  000026 equ opr22,22  000370 0a 000373 000026 zero *+3,opr22  000371 a0 000001 001154 zero 1,error83_  000372 0a 001156 000000 zero error84_,0  486 local_read_socket accept3a_ 000030 equ opr24,24  000373 0a 000375 000030 zero *+2,opr24  000374 0a 000404 000000 zero accept3a_,0 487 assign_link 1,accept3c_  000004 equ opr04,4 000375 0a 000377 000004 zero *+2,opr04  000376 a0 000001 000427 zero 1,accept3c_ 488 ctl_mess STR,LSOC,FSOC,BYTE  000010 equ opr08,8 000377 0a 000402 000010 zero *+3,opr08  000400 aa 000002 000101 zero STR,LSOC  000401 aa 000100 000111 zero FSOC,BYTE  489 go_to accept3b_ 000024 equ opr20,20  000402 0a 000404 000024 zero *+2,opr20  000403 0a 000412 000000 zero accept3b_,0 490  000404 491 accept3a_:  492 assign_link 0,accept3c_  000004 equ opr04,4 000404 0a 000406 000004 zero *+2,opr04  000405 a0 000000 000427 zero 0,accept3c_ 493 ctl_mess RTS,LSOC,FSOC,LINKN  000010 equ opr08,8 000406 0a 000411 000010 zero *+3,opr08  000407 aa 000001 000101 zero RTS,LSOC  000410 aa 000100 000102 zero FSOC,LINKN  494 allocate_read 000002 equ opr02,2 000411 0a 000412 000002 zero *+1,opr02  000412 495 accept3b_:  496 delete_rfc  000014 equ opr12,12  000412 0a 000413 000014 zero *+1,opr12  497 get_nxt_rfc accept3e_ 000022 equ opr18,18  000413 0a 000415 000022 zero *+2,opr18  000414 0a 000425 000000 zero accept3e_,0 498 insert_socket_id 1,accept3b_,error95_  000026 equ opr22,22  000415 0a 000420 000026 zero *+3,opr22  000416 a0 000001 000412 zero 1,accept3b_ 000417 0a 001200 000000 zero error95_,0  499 ctl_mess CLS,LSOC,FSOC,0  000010 equ opr08,8 000420 0a 000423 000010 zero *+3,opr08  000421 aa 000003 000101 zero CLS,LSOC  000422 aa 000100 000000 zero FSOC,0  500 go_to accept3b_ 000024 equ opr20,20  000423 0a 000425 000024 zero *+2,opr20  000424 0a 000412 000000 zero accept3b_,0 000425 501 accept3e_:  502 state_ul_return Open  000046 equ opr38,38  000425 0a 000427 000046 zero *+2,opr38  000426 aa 000006 000000 zero Open,0  503  000427 504 accept3c_:  505 ctl_mess CLS,LSOC,FSOC,0  000010 equ opr08,8 000427 0a 000432 000010 zero *+3,opr08  000430 aa 000003 000101 zero CLS,LSOC  000431 aa 000100 000000 zero FSOC,0  506 delete_rfc  000014 equ opr12,12  000432 0a 000433 000014 zero *+1,opr12  507 error_code notalloc  000433 0a 000435 000015 zero *+2,opr13  000015 equ opr13,13  000434 aa 000005 000000 zero notalloc,0  508 go_to accept3d_ 000024 equ opr20,20  000435 0a 000437 000024 zero *+2,opr20  000436 0a 000340 000000 zero accept3d_,0 509  510 " /* CLOSE user call */ 000437 511 close1_:  512 deac_sw deac1_ " special to allow process term calls 000011 equ opr09,9 000437 0a 000441 000011 zero *+2,opr09  000440 0a 000543 000000 zero deac1_,0  513 go_to inv_state_  000024 equ opr20,20  000441 0a 000443 000024 zero *+2,opr20  000442 0a 000260 000000 zero inv_state_,0  514  000443 515 close2_:  516 deac_sw deac1_ " added 8/27  000011 equ opr09,9 000443 0a 000445 000011 zero *+2,opr09  000444 0a 000543 000000 zero deac1_,0  517 state_ul_return Active  000046 equ opr38,38  000445 0a 000447 000046 zero *+2,opr38  000446 aa 000001 000000 zero Active,0  518  000447 519 deac3_: 520 set_deac_sw  000037 equ opr31,31  000447 0a 000450 000037 zero *+1,opr31  000450 521 close3_:  522 get_nxt_rfc error85_  000022 equ opr18,18  000450 0a 000452 000022 zero *+2,opr18  000451 0a 001160 000000 zero error85_,0  523 go_to close3c_  000024 equ opr20,20  000452 0a 000454 000024 zero *+2,opr20  000453 0a 000462 000000 zero close3c_,0  524  000454 525 deac4_: 526 set_deac_sw  000037 equ opr31,31  000454 0a 000455 000037 zero *+1,opr31  000455 527 close4_:  528 get_nxt_rfc error88_  000022 equ opr18,18  000455 0a 000457 000022 zero *+2,opr18  000456 0a 001166 000000 zero error88_,0  000457 529 close4a_:  530 delete_rfc  000014 equ opr12,12  000457 0a 000460 000014 zero *+1,opr12  531 get_nxt_rfc close3b_  000022 equ opr18,18  000460 0a 000462 000022 zero *+2,opr18  000461 0a 000472 000000 zero close3b_,0  000462 532 close3c_:  533 insert_socket_id 1,close4a_,error86_  000026 equ opr22,22  000462 0a 000465 000026 zero *+3,opr22  000463 a0 000001 000457 zero 1,close4a_  000464 0a 001162 000000 zero error86_,0  534 ctl_mess CLS,LSOC,FSOC,0  000010 equ opr08,8 000465 0a 000470 000010 zero *+3,opr08  000466 aa 000003 000101 zero CLS,LSOC  000467 aa 000100 000000 zero FSOC,0  535 go_to close4a_  000024 equ opr20,20  000470 0a 000472 000024 zero *+2,opr20  000471 0a 000457 000000 zero close4a_,0  536  000472 537 close3b_:  538 deac_sw deac1_  000011 equ opr09,9 000472 0a 000474 000011 zero *+2,opr09  000473 0a 000543 000000 zero deac1_,0  539 state_ul_return Active  000046 equ opr38,38  000474 0a 000476 000046 zero *+2,opr38  000475 aa 000001 000000 zero Active,0  540  000476 541 deac5_: 542 set_deac_sw " changed and moved 12/75  000037 equ opr31,31  000476 0a 000477 000037 zero *+1,opr31  543  000477 544 close5_:  545 ctl_mess CLS,LSOC,FSOC,0  000010 equ opr08,8 000477 0a 000502 000010 zero *+3,opr08  000500 aa 000003 000101 zero CLS,LSOC  000501 aa 000100 000000 zero FSOC,0  546 state_ul_return Cls_wait  000046 equ opr38,38  000502 0a 000504 000046 zero *+2,opr38  000503 aa 000007 000000 zero Cls_wait,0  547  548  000504 549 deac6_: 550 set_deac_sw " moved 12/75  000037 equ opr31,31  000504 0a 000505 000037 zero *+1,opr31  551  000505 552 close6_:  553 local_read_socket close6a_  000030 equ opr24,24  000505 0a 000507 000030 zero *+2,opr24  000506 0a 000514 000000 zero close6a_,0  554 check_for_rfnm close6a_  000007 equ opr07,7 000507 0a 000511 000007 zero *+2,opr07  000510 0a 000514 000000 zero close6a_,0  555 set_empty_wakeup  000040 equ opr32,32  000511 0a 000512 000040 zero *+1,opr32  556 state_ul_return Data_wait 000046 equ opr38,38  000512 0a 000514 000046 zero *+2,opr38  000513 aa 000011 000000 zero Data_wait,0 557  000514 558 close6a_:  559 ctl_mess CLS,LSOC,FSOC,0  000010 equ opr08,8 000514 0a 000517 000010 zero *+3,opr08  000515 aa 000003 000101 zero CLS,LSOC  000516 aa 000100 000000 zero FSOC,0  560 imp_abort 000025 equ opr21,21  000517 0a 000520 000025 zero *+1,opr21  561 signal 1 000043 equ opr35,35  000520 0a 000522 000043 zero *+2,opr35  000521 aa 000001 000000 zero 1,0 562 state_ul_return Cls_wait  000046 equ opr38,38  000522 0a 000524 000046 zero *+2,opr38  000523 aa 000007 000000 zero Cls_wait,0  563  000524 564 close13_:  565 deac_sw deac1_ " added for fix to process termination problems  000011 equ opr09,9 000524 0a 000526 000011 zero *+2,opr09  000525 0a 000543 000000 zero deac1_,0  566 unassign_link 0 000047 equ opr39,39  000526 0a 000530 000047 zero *+2,opr39  000527 aa 000000 000000 zero 0,0 567 state_ul_return Active  000046 equ opr38,38  000530 0a 000532 000046 zero *+2,opr38  000531 aa 000001 000000 zero Active,0  568  569 " /* FORCE-DEAC user call */  570  000532 571 fdeac1_:  572 get_nxt_rfc fdeac13_  000022 equ opr18,18  000532 0a 000534 000022 zero *+2,opr18  000533 0a 000537 000000 zero fdeac13_,0  573 delete_rfc  000014 equ opr12,12  000534 0a 000535 000014 zero *+1,opr12  574 go_to fdeac1_  000024 equ opr20,20  000535 0a 000537 000024 zero *+2,opr20  000536 0a 000532 000000 zero fdeac1_,0  575  000537 576 fdeac13_:  577 signal 1 000043 equ opr35,35  000537 0a 000541 000043 zero *+2,opr35  000540 aa 000001 000000 zero 1,0 000541 578 deac11_:  579 unassign_link 0 000047 equ opr39,39  000541 0a 000543 000047 zero *+2,opr39  000542 aa 000000 000000 zero 0,0 000543 580 deac1_: 581 deactivate  000012 equ opr10,10  000543 0a 000544 000012 zero *+1,opr10  582 unlock_return 000050 equ opr40,40  000544 0a 000545 000050 zero *+1,opr40  583  584  585 " /* SENDQUIT user call */  586  587 " sendquit6_:  588 " local_read_socket sendquit6a_ 589 " ctl_mess INS,LINKN,0,0  590 " unlock_return  591 "  592 " sendquit6a_:  593 " ctl_mess INR,LINKN,0,0  594 " unlock_return  595 "  596 " /* QUITENABLE user call */  597 " quitenable_:  598 " quit_enable 1  599 " signal 0  600 " unlock_return  601  602 " /* QUITINHIBIT user call */  603 " quitinhib_:  604 " quit_enable 0  605 " signal 1  606 " unlock_return  607  608 " /* SETBYTESIZE user call */  609  610 " setbyte1_:  611 " byte_size 1 " set the byte size 612 " unlock_return  613  614 " /* GETBYTESIZE user call */  615 " getbyte1_:  616 " byte_size 0 " get the byte size 617 " unlock_return  618  619 " /* READ user call */  620  621 " read6_:  622 " local_read_socket read6a_ 623 " error_code netbgend  624 " unlock_return  625 " read6a_:  626 " read read6b_ 627 " unlock_return  628 " read6b_:  629 " allocate_read  630 " unlock_return  631  632 " read11_:  633 " local_read_socket read10a_  634 " error_code netbgend  635 " unlock_return  636 " read10a_: 637 " read read10b_  638 " read10b_: 639 " check_for_rfnm abort11_  640 " unlock_return  641  642 " /* STATE user call */ 000545 643 state3_:  644 get_nxt_rfc error89_  000022 equ opr18,18  000545 0a 000547 000022 zero *+2,opr18  000546 0a 001170 000000 zero error89_,0  645 set_fsocr 000042 equ opr34,34  000547 0a 000550 000042 zero *+1,opr34  646 unlock_return 000050 equ opr40,40  000550 0a 000551 000050 zero *+1,opr40  647  000551 648 state4_:  649 get_nxt_rfc error90_  000022 equ opr18,18  000551 0a 000553 000022 zero *+2,opr18  000552 0a 001172 000000 zero error90_,0  650 set_fsocr 000042 equ opr34,34  000553 0a 000554 000042 zero *+1,opr34  651 delete_rfc  000014 equ opr12,12  000554 0a 000555 000014 zero *+1,opr12  652 get_nxt_rfc state4a_  000022 equ opr18,18  000555 0a 000557 000022 zero *+2,opr18  000556 0a 000564 000000 zero state4a_,0  653 signal 0 000043 equ opr35,35  000557 0a 000561 000043 zero *+2,opr35  000560 aa 000000 000000 zero 0,0 654 state_ns Rfc_rcvd  000045 equ opr37,37  000561 0a 000563 000045 zero *+2,opr37  000562 aa 000003 000000 zero Rfc_rcvd,0  655 unlock_return 000050 equ opr40,40  000563 0a 000564 000050 zero *+1,opr40  656  000564 657 state4a_:  658 state_ns Listen  000045 equ opr37,37  000564 0a 000566 000045 zero *+2,opr37  000565 aa 000002 000000 zero Listen,0  659 unlock_return 000050 equ opr40,40  000566 0a 000567 000050 zero *+1,opr40  660  661 " /* WRITE user call */ 662  663 " write6_:  664 " local_read_socket write6a_  665 " write  666 " unlock_return  667 " write6a_: 668 " error_code netbgend  669 " unlock_return  670  671 " write10_: 672 " error_code netclose  673 " unlock_return  674  675 " /* DEACTIVATE user call */  676 " /* deac3_ and deac4_ are in close block group */  677 " /* deac5_ and deac6_ are with closes of same state */ 678  000567 679 deac7_: 680 set_deac_sw  000037 equ opr31,31  000567 0a 000570 000037 zero *+1,opr31  681 unlock_return 000050 equ opr40,40  000570 0a 000571 000050 zero *+1,opr40  682  683 " /* CONTROL MESSAGE FAN_OUT LIST BLOCKS */ 684  685 " NOP_: 686 " byte_length 1  687 " return  688  000571 689 RTS_:  690 byte_length 10  000005 equ opr05,5 000571 0a 000573 000005 zero *+2,opr05  000572 aa 000012 000000 zero 10,0  691 get_sockets 1,polarity_error  000023 equ opr19,19  000573 0a 000575 000023 zero *+2,opr19  000574 a0 000001 000624 zero 1,polarity_error  692 find_entry_sock_transfer Rts  000020 equ opr16,16  000575 0a 000577 000020 zero *+2,opr16  000576 aa 000021 000000 zero Rts,0  693 ctl_mess CLS,LSOC,FSOC1,0  000010 equ opr08,8 000577 0a 000602 000010 zero *+3,opr08  000600 aa 000003 000101 zero CLS,LSOC  000601 aa 000110 000000 zero FSOC1,0 694 return  000035 equ opr29,29  000602 0a 000603 000035 zero *+1,opr29  695  000603 696 STR_:  697 byte_length 10  000005 equ opr05,5 000603 0a 000605 000005 zero *+2,opr05  000604 aa 000012 000000 zero 10,0  698 get_sockets 2,polarity_error  000023 equ opr19,19  000605 0a 000607 000023 zero *+2,opr19  000606 a0 000002 000624 zero 2,polarity_error  699 find_entry_sock_transfer Str  000020 equ opr16,16  000607 0a 000611 000020 zero *+2,opr16  000610 aa 000022 000000 zero Str,0  700 ctl_mess CLS,LSOC,FSOC1,0  000010 equ opr08,8 000611 0a 000614 000010 zero *+3,opr08  000612 aa 000003 000101 zero CLS,LSOC  000613 aa 000110 000000 zero FSOC1,0 701 return  000035 equ opr29,29  000614 0a 000615 000035 zero *+1,opr29  702  000615 703 CLS_:  704 byte_length 9 000005 equ opr05,5 000615 0a 000617 000005 zero *+2,opr05  000616 aa 000011 000000 zero 9,0 705 get_sockets 3,polarity_error  000023 equ opr19,19  000617 0a 000621 000023 zero *+2,opr19  000620 a0 000003 000624 zero 3,polarity_error  706 find_entry_sock_transfer Cls  000020 equ opr16,16  000621 0a 000623 000020 zero *+2,opr16  000622 aa 000023 000000 zero Cls,0  707  708 " /* A glitch - we ignore this because it could be a legal CLS for a refused RFC */ 709 return  000035 equ opr29,29  000623 0a 000624 000035 zero *+1,opr29  710  000624 711 polarity_error: 712 ctl_mess ERR,CODEF,3,ERRTX 000010 equ opr08,8 000624 0a 000627 000010 zero *+3,opr08  000625 aa 000013 000105 zero ERR,CODEF  000626 aa 000003 000106 zero 3,ERRTX 713 return  000035 equ opr29,29  000627 0a 000630 000035 zero *+1,opr29  714  000630 715 ALL_:  716 byte_length 8 000005 equ opr05,5 000630 0a 000632 000005 zero *+2,opr05  000631 aa 000010 000000 zero 8,0 717 find_entry_link_transfer 1,All  000017 equ opr15,15  000632 0a 000634 000017 zero *+2,opr15  000633 aa 000001 000024 zero 1,All  718  719 " /* a glitch - we ignore this because it may be legally sent on an aborted connection */  720 return  000035 equ opr29,29  000634 0a 000635 000035 zero *+1,opr29  721  000635 722 GVB_:  723 byte_length 4 000005 equ opr05,5 000635 0a 000637 000005 zero *+2,opr05  000636 aa 000004 000000 zero 4,0 724 find_entry_link_transfer 1,Gvb  000017 equ opr15,15  000637 0a 000641 000017 zero *+2,opr15  000640 aa 000001 000025 zero 1,Gvb  725 ctl_mess ERR,CODEF,4,ERRTX 000010 equ opr08,8 000641 0a 000644 000010 zero *+3,opr08  000642 aa 000013 000105 zero ERR,CODEF  000643 aa 000004 000106 zero 4,ERRTX 726 return  000035 equ opr29,29  000644 0a 000645 000035 zero *+1,opr29  727  000645 728 RET_:  729 byte_length 8 000005 equ opr05,5 000645 0a 000647 000005 zero *+2,opr05  000646 aa 000010 000000 zero 8,0 730 find_entry_link_transfer 0,Ret  000017 equ opr15,15  000647 0a 000651 000017 zero *+2,opr15  000650 aa 000000 000026 zero 0,Ret  731 ctl_mess ERR,CODEF,4,ERRTX 000010 equ opr08,8 000651 0a 000654 000010 zero *+3,opr08  000652 aa 000013 000105 zero ERR,CODEF  000653 aa 000004 000106 zero 4,ERRTX 732 return  000035 equ opr29,29  000654 0a 000655 000035 zero *+1,opr29  733  000655 734 INR_:  735 byte_length 2 000005 equ opr05,5 000655 0a 000657 000005 zero *+2,opr05  000656 aa 000002 000000 zero 2,0 736 find_entry_link_transfer 1,Int  000017 equ opr15,15  000657 0a 000661 000017 zero *+2,opr15  000660 aa 000001 000027 zero 1,Int  737 ctl_mess ERR,CODEF,4,ERRTX 000010 equ opr08,8 000661 0a 000664 000010 zero *+3,opr08  000662 aa 000013 000105 zero ERR,CODEF  000663 aa 000004 000106 zero 4,ERRTX 738 return  000035 equ opr29,29  000664 0a 000665 000035 zero *+1,opr29  739  000665 740 INS_:  741 byte_length 2 000005 equ opr05,5 000665 0a 000667 000005 zero *+2,opr05  000666 aa 000002 000000 zero 2,0 742 find_entry_link_transfer 0,Int  000017 equ opr15,15  000667 0a 000671 000017 zero *+2,opr15  000670 aa 000000 000027 zero 0,Int  743 ctl_mess ERR,CODEF,4,ERRTX 000010 equ opr08,8 000671 0a 000674 000010 zero *+3,opr08  000672 aa 000013 000105 zero ERR,CODEF  000673 aa 000004 000106 zero 4,ERRTX 744 return  000035 equ opr29,29  000674 0a 000675 000035 zero *+1,opr29  745  000675 746 ECO_:  747 byte_length 2 000005 equ opr05,5 000675 0a 000677 000005 zero *+2,opr05  000676 aa 000002 000000 zero 2,0 748 ctl_mess ERP,ECODT,0,0 000010 equ opr08,8 000677 0a 000702 000010 zero *+3,opr08  000700 aa 000012 000107 zero ERP,ECODT  000701 aa 000000 000000 zero 0,0 749 return  000035 equ opr29,29  000702 0a 000703 000035 zero *+1,opr29  750  751 " ERP_: 752 " byte_length 2  753 " record_erp  754 " return  755 "  756 " ERR_: 757 " byte_length 12  758 " error_handler  759 " return  760 "  761 " RST_: 762 " byte_length 1  763 " reset_host 27  764 " ctl_mess RRP,0,0,0  765 " return  766 "  767 " RRP_: 768 " byte_length 1  769 " reset_host 28  770 " return  771 "  772 " iALL_:  773 " byte_length 8 " /* this is an ALL processed at interrupt time */ 774 " return  775  000703 776 unk_:  777 ctl_mess ERR,CODEF,1,ERRTX 000010 equ opr08,8 000703 0a 000706 000010 zero *+3,opr08  000704 aa 000013 000105 zero ERR,CODEF  000705 aa 000001 000106 zero 1,ERRTX 778 return  000035 equ opr29,29  000706 0a 000707 000035 zero *+1,opr29  779  780 " /* CONTROL MESSAGE PROCESSOR LIST BLOCKS */  781  000707 782 rts3_:  000707 783 str3_:  000707 784 auto_reject_:  785 ctl_mess CLS,LSOC,FSOC1,0  000010 equ opr08,8 000707 0a 000712 000010 zero *+3,opr08  000710 aa 000003 000101 zero CLS,LSOC  000711 aa 000110 000000 zero FSOC1,0 786 unlock_return 000050 equ opr40,40  000712 0a 000713 000050 zero *+1,opr40  787  000713 788 inv_com_:  789 ctl_mess ERR,CODEF,5,ERRTX 000010 equ opr08,8 000713 0a 000716 000010 zero *+3,opr08  000714 aa 000013 000105 zero ERR,CODEF  000715 aa 000005 000106 zero 5,ERRTX 790 unlock_return 000050 equ opr40,40  000716 0a 000717 000050 zero *+1,opr40  791  792 " /* RTS or STR control message */  793  000717 794 str2_:  795 check_bytesize auto_reject_  000006 equ opr06,6 000717 0a 000721 000006 zero *+2,opr06  000720 0a 000707 000000 zero auto_reject_,0  000721 796 rts2_:  797 get_nxt_rfc rfc2_append_  000022 equ opr18,18  000721 0a 000723 000022 zero *+2,opr18  000722 0a 000725 000000 zero rfc2_append_,0  798 " error91_: 799 ncp_error 91  000031 equ opr25,25  000723 0a 000725 000031 zero *+2,opr25  000724 aa 000133 000000 zero 91,0  800  000725 801 rfc2_append_:  802 add_to_queue auto_reject_ 000001 equ opr01,1 000725 0a 000727 000001 zero *+2,opr01  000726 0a 000707 000000 zero auto_reject_,0  803 signal 0 000043 equ opr35,35  000727 0a 000731 000043 zero *+2,opr35  000730 aa 000000 000000 zero 0,0 804 state_ul_return Rfc_rcvd  000046 equ opr38,38  000731 0a 000733 000046 zero *+2,opr38  000732 aa 000003 000000 zero Rfc_rcvd,0  805  806 " str3_:  807 " check_bytesize auto_reject_  808 " rts3_:  809 " get_nxt_rfc rfc3_append_  810 " fsoc_unequal rts3_  811 " error92_: 812 " ncp_error 92  813  814 " rfc3_append_: 815 " add_to_queue auto_reject_  816 " unlock_return  817  000733 818 rts5_:  819 fsoc_unequal auto_reject_  000021 equ opr17,17  000733 0a 000735 000021 zero *+2,opr17  000734 0a 000707 000000 zero auto_reject_,0  820 assign_link 1,rfc5a_  000004 equ opr04,4 000735 0a 000737 000004 zero *+2,opr04  000736 a0 000001 000754 zero 1,rfc5a_  821 signal 0 000043 equ opr35,35  000737 0a 000741 000043 zero *+2,opr35  000740 aa 000000 000000 zero 0,0 822 state_ul_return Open  000046 equ opr38,38  000741 0a 000743 000046 zero *+2,opr38  000742 aa 000006 000000 zero Open,0  823  000743 824 str5_:  825 fsoc_unequal auto_reject_  000021 equ opr17,17  000743 0a 000745 000021 zero *+2,opr17  000744 0a 000707 000000 zero auto_reject_,0  826 check_bytesize rfc5a_  000006 equ opr06,6 000745 0a 000747 000006 zero *+2,opr06  000746 0a 000754 000000 zero rfc5a_,0  827 allocate_read 000002 equ opr02,2 000747 0a 000750 000002 zero *+1,opr02  828 signal 0 000043 equ opr35,35  000750 0a 000752 000043 zero *+2,opr35  000751 aa 000000 000000 zero 0,0 829 state_ul_return Open  000046 equ opr38,38  000752 0a 000754 000046 zero *+2,opr38  000753 aa 000006 000000 zero Open,0  830  000754 831 rfc5a_: 832 ctl_mess CLS,LSOC,FSOC,0  000010 equ opr08,8 000754 0a 000757 000010 zero *+3,opr08  000755 aa 000003 000101 zero CLS,LSOC  000756 aa 000100 000000 zero FSOC,0  833 signal 0 000043 equ opr35,35  000757 0a 000761 000043 zero *+2,opr35  000760 aa 000000 000000 zero 0,0 834 state_ul_return Cls_wait  000046 equ opr38,38  000761 0a 000763 000046 zero *+2,opr38  000762 aa 000007 000000 zero Cls_wait,0  835  000763 836 rfc7_:  837 fsoc_unequal auto_reject_  000021 equ opr17,17  000763 0a 000765 000021 zero *+2,opr17  000764 0a 000707 000000 zero auto_reject_,0  838 " /* if sockets are equal, this is from an aborted RFC */  839 unlock_return 000050 equ opr40,40  000765 0a 000766 000050 zero *+1,opr40  840  841 " /* CLS control message */ 842  000766 843 cls3_:  844 get_nxt_rfc error93_  000022 equ opr18,18  000766 0a 000770 000022 zero *+2,opr18  000767 0a 001174 000000 zero error93_,0  845 fsoc_unequal cls3a_  000021 equ opr17,17  000770 0a 000772 000021 zero *+2,opr17  000771 0a 001003 000000 zero cls3a_,0  846 unassign_link 0 " added 9/77  000047 equ opr39,39  000772 0a 000774 000047 zero *+2,opr39  000773 aa 000000 000000 zero 0,0 847 ctl_mess CLS,LSOC,FSOC1,0  000010 equ opr08,8 000774 0a 000777 000010 zero *+3,opr08  000775 aa 000003 000101 zero CLS,LSOC  000776 aa 000110 000000 zero FSOC1,0 848 signal 0 000043 equ opr35,35  000777 0a 001001 000043 zero *+2,opr35  001000 aa 000000 000000 zero 0,0 849 state_ul_return Abort 000046 equ opr38,38  001001 0a 001003 000046 zero *+2,opr38  001002 aa 000004 000000 zero Abort,0 001003 850 cls3a_: 851 get_nxt_rfc cls3b_ " /* can't find, ignore */  000022 equ opr18,18  001003 0a 001005 000022 zero *+2,opr18  001004 0a 001013 000000 zero cls3b_,0  852 fsoc_unequal cls3a_  000021 equ opr17,17  001005 0a 001007 000021 zero *+2,opr17  001006 0a 001003 000000 zero cls3a_,0  853 delete_rfc  000014 equ opr12,12  001007 0a 001010 000014 zero *+1,opr12  854 ctl_mess CLS,LSOC,FSOC1,0  000010 equ opr08,8 001010 0a 001013 000010 zero *+3,opr08  001011 aa 000003 000101 zero CLS,LSOC  001012 aa 000110 000000 zero FSOC1,0 001013 855 cls3b_: 856 unlock_return 000050 equ opr40,40  001013 0a 001014 000050 zero *+1,opr40  857  001014 858 cls4_:  859 get_nxt_rfc error94_  000022 equ opr18,18  001014 0a 001016 000022 zero *+2,opr18  001015 0a 001176 000000 zero error94_,0  860 fsoc_unequal cls3a_  000021 equ opr17,17  001016 0a 001020 000021 zero *+2,opr17  001017 0a 001003 000000 zero cls3a_,0  861 ctl_mess ERR,CODEF,6,ERRTX 000010 equ opr08,8 001020 0a 001023 000010 zero *+3,opr08  001021 aa 000013 000105 zero ERR,CODEF  001022 aa 000006 000106 zero 6,ERRTX 862 unlock_return 000050 equ opr40,40  001023 0a 001024 000050 zero *+1,opr40  863  001024 864 cls5_:  865 fsoc_unequal inv_CLS_  000021 equ opr17,17  001024 0a 001026 000021 zero *+2,opr17  001025 0a 001145 000000 zero inv_CLS_,0  866 signal 0 000043 equ opr35,35  001026 0a 001030 000043 zero *+2,opr35  001027 aa 000000 000000 zero 0,0 867 ctl_mess CLS,LSOC,FSOC,0  000010 equ opr08,8 001030 0a 001033 000010 zero *+3,opr08  001031 aa 000003 000101 zero CLS,LSOC  001032 aa 000100 000000 zero FSOC,0  868 local_read_socket cls5a_  000030 equ opr24,24  001033 0a 001035 000030 zero *+2,opr24  001034 0a 001037 000000 zero cls5a_,0  869 state_ul_return Active  000046 equ opr38,38  001035 0a 001037 000046 zero *+2,opr38  001036 aa 000001 000000 zero Active,0  870  001037 871 cls5a_: 872 unassign_link 0 000047 equ opr39,39  001037 0a 001041 000047 zero *+2,opr39  001040 aa 000000 000000 zero 0,0 873 state_ul_return Active  000046 equ opr38,38  001041 0a 001043 000046 zero *+2,opr38  001042 aa 000001 000000 zero Active,0  874  001043 875 cls6_:  876 fsoc_unequal inv_CLS_  000021 equ opr17,17  001043 0a 001045 000021 zero *+2,opr17  001044 0a 001145 000000 zero inv_CLS_,0  877 local_read_socket cls6a_  000030 equ opr24,24  001045 0a 001047 000030 zero *+2,opr24  001046 0a 001055 000000 zero cls6a_,0  878 imp_abort 000025 equ opr21,21  001047 0a 001050 000025 zero *+1,opr21  879 check_for_rfnm buf10_  000007 equ opr07,7 001050 0a 001052 000007 zero *+2,opr07  001051 0a 001140 000000 zero buf10_,0  880 set_empty_wakeup  000040 equ opr32,32  001052 0a 001053 000040 zero *+1,opr32  881 state_ul_return Rfnm_wait 000046 equ opr38,38  001053 0a 001055 000046 zero *+2,opr38  001054 aa 000012 000000 zero Rfnm_wait,0 882  001055 883 cls6a_: 884 signal 1 000043 equ opr35,35  001055 0a 001057 000043 zero *+2,opr35  001056 aa 000001 000000 zero 1,0 885 ctl_mess CLS,LSOC,FSOC,0  000010 equ opr08,8 001057 0a 001062 000010 zero *+3,opr08  001060 aa 000003 000101 zero CLS,LSOC  001061 aa 000100 000000 zero FSOC,0  886 check_for_rfnm cls7a_  000007 equ opr07,7 001062 0a 001064 000007 zero *+2,opr07  001063 0a 001070 000000 zero cls7a_,0  887 state_ul_return Cls_read  000046 equ opr38,38  001064 0a 001066 000046 zero *+2,opr38  001065 aa 000013 000000 zero Cls_read,0  888  001066 889 cls7_:  890 fsoc_unequal inv_CLS_  000021 equ opr17,17  001066 0a 001070 000021 zero *+2,opr17  001067 0a 001145 000000 zero inv_CLS_,0  001070 891 cls7a_: 892 unassign_link 0  000047 equ opr39,39  001070 0a 001072 000047 zero *+2,opr39  001071 aa 000000 000000 zero 0,0 893 deac_sw deac1_  000011 equ opr09,9 001072 0a 001074 000011 zero *+2,opr09  001073 0a 000543 000000 zero deac1_,0  894 signal 1 000043 equ opr35,35  001074 0a 001076 000043 zero *+2,opr35  001075 aa 000001 000000 zero 1,0 895 state_ul_return Active  000046 equ opr38,38  001076 0a 001100 000046 zero *+2,opr38  001077 aa 000001 000000 zero Active,0  896  001100 897 cls9_:  898 fsoc_unequal inv_CLS_  000021 equ opr17,17  001100 0a 001102 000021 zero *+2,opr17  001101 0a 001145 000000 zero inv_CLS_,0  899 imp_abort 000025 equ opr21,21  001102 0a 001103 000025 zero *+1,opr21  900 check_for_rfnm cls9a_ " changed 1/76  000007 equ opr07,7 001103 0a 001105 000007 zero *+2,opr07  001104 0a 001107 000000 zero cls9a_,0  901 state_ul_return Rfnm_wait 000046 equ opr38,38  001105 0a 001107 000046 zero *+2,opr38  001106 aa 000012 000000 zero Rfnm_wait,0 902  001107 903 cls9a_: 904 ctl_mess CLS,LSOC,FSOC,0  000010 equ opr08,8 001107 0a 001112 000010 zero *+3,opr08  001110 aa 000003 000101 zero CLS,LSOC  001111 aa 000100 000000 zero FSOC,0  905 go_to cls7a_  000024 equ opr20,20  001112 0a 001114 000024 zero *+2,opr20  001113 0a 001070 000000 zero cls7a_,0  906  907 " /* ALL control message */ 908  001114 909 all6_:  910 allocate_write all6a_  000003 equ opr03,3 001114 0a 001116 000003 zero *+2,opr03  001115 0a 001120 000000 zero all6a_,0  911 signal 0 000043 equ opr35,35  001116 0a 001120 000043 zero *+2,opr35  001117 aa 000000 000000 zero 0,0 001120 912 all6a_: 913 unlock_return 000050 equ opr40,40  001120 0a 001121 000050 zero *+1,opr40  914  915 " /* GVB control message */ 916  001121 917 gvb6_:  918 deallocate_write  000013 equ opr11,11  001121 0a 001122 000013 zero *+1,opr11  919 ctl_mess RET,LINKN,MSPACE,BSPACE  000010 equ opr08,8 001122 0a 001125 000010 zero *+3,opr08  001123 aa 000006 000102 zero RET,LINKN  001124 aa 000104 000103 zero MSPACE,BSPACE  920 unlock_return 000050 equ opr40,40  001125 0a 001126 000050 zero *+1,opr40  921  001126 922 int6_:  923 interrupt 000027 equ opr23,23  001126 0a 001127 000027 zero *+1,opr23  924 unlock_return 000050 equ opr40,40  001127 0a 001130 000050 zero *+1,opr40  925  926 " /* buffer empty condition */  927  001130 928 buf9_:  929 check_for_rfnm buf9a_  000007 equ opr07,7 001130 0a 001132 000007 zero *+2,opr07  001131 0a 001133 000000 zero buf9a_,0  930 unlock_return 000050 equ opr40,40  001132 0a 001133 000050 zero *+1,opr40  931  001133 932 buf9a_: 933 ctl_mess CLS,LSOC,FSOC,0  000010 equ opr08,8 001133 0a 001136 000010 zero *+3,opr08  001134 aa 000003 000101 zero CLS,LSOC  001135 aa 000100 000000 zero FSOC,0  934 state_ul_return Cls_wait  000046 equ opr38,38  001136 0a 001140 000046 zero *+2,opr38  001137 aa 000007 000000 zero Cls_wait,0  935  001140 936 buf10_: 937 ctl_mess CLS,LSOC,FSOC,0  000010 equ opr08,8 001140 0a 001143 000010 zero *+3,opr08  001141 aa 000003 000101 zero CLS,LSOC  001142 aa 000100 000000 zero FSOC,0  938 go_to cls7a_  000024 equ opr20,20  001143 0a 001145 000024 zero *+2,opr20  001144 0a 001070 000000 zero cls7a_,0  939  001145 940 inv_CLS_:  941 unlock_return 000050 equ opr40,40  001145 0a 001146 000050 zero *+1,opr40  942  001146 943 error80_:  944 ncp_error 80  000031 equ opr25,25  001146 0a 001150 000031 zero *+2,opr25  001147 aa 000120 000000 zero 80,0  001150 945 error81_:  946 ncp_error 81  000031 equ opr25,25  001150 0a 001152 000031 zero *+2,opr25  001151 aa 000121 000000 zero 81,0  001152 947 error82_:  948 ncp_error 82  000031 equ opr25,25  001152 0a 001154 000031 zero *+2,opr25  001153 aa 000122 000000 zero 82,0  001154 949 error83_:  950 ncp_error 83  000031 equ opr25,25  001154 0a 001156 000031 zero *+2,opr25  001155 aa 000123 000000 zero 83,0  001156 951 error84_:  952 ncp_error 84  000031 equ opr25,25  001156 0a 001160 000031 zero *+2,opr25  001157 aa 000124 000000 zero 84,0  001160 953 error85_:  954 ncp_error 85  000031 equ opr25,25  001160 0a 001162 000031 zero *+2,opr25  001161 aa 000125 000000 zero 85,0  001162 955 error86_:  956 ncp_error 86  000031 equ opr25,25  001162 0a 001164 000031 zero *+2,opr25  001163 aa 000126 000000 zero 86,0  001164 957 error87_:  958 ncp_error 87  000031 equ opr25,25  001164 0a 001166 000031 zero *+2,opr25  001165 aa 000127 000000 zero 87,0  001166 959 error88_:  960 ncp_error 88  000031 equ opr25,25  001166 0a 001170 000031 zero *+2,opr25  001167 aa 000130 000000 zero 88,0  001170 961 error89_:  962 ncp_error 89  000031 equ opr25,25  001170 0a 001172 000031 zero *+2,opr25  001171 aa 000131 000000 zero 89,0  001172 963 error90_:  964 ncp_error 90  000031 equ opr25,25  001172 0a 001174 000031 zero *+2,opr25  001173 aa 000132 000000 zero 90,0  001174 965 error93_:  966 ncp_error 93  000031 equ opr25,25  001174 0a 001176 000031 zero *+2,opr25  001175 aa 000135 000000 zero 93,0  001176 967 error94_:  968 ncp_error 94  000031 equ opr25,25  001176 0a 001200 000031 zero *+2,opr25  001177 aa 000136 000000 zero 94,0  001200 969 error95_:  970 ncp_error 95  000031 equ opr25,25  001200 0a 001202 000031 zero *+2,opr25  001201 aa 000137 000000 zero 95,0  971  001202 972 error_: 973 ncp_error 99  000031 equ opr25,25  001202 0a 001204 000031 zero *+2,opr25  001203 aa 000143 000000 zero 99,0  974  975  976 end  NO LITERALS  NAME DEFINITIONS FOR ENTRY POINTS AND SEGDEFS 001204 5a 000003 000000 001205 5a 000041 600000 001206 aa 000000 000000 001207 55 000011 000002 001210 5a 000002 400003 001211 55 000006 000011 001212 aa 010 156 143 160 001213 aa 137 164 142 154 001214 aa 137 000 000 000 001215 55 000016 000003 001216 0a 000000 400000 001217 55 000014 000003 001220 aa 004 142 141 163 base  001221 aa 145 000 000 000 001222 55 000023 000011 001223 0a 000250 400000 001224 55 000021 000003 001225 aa 007 143 164 154 ctl_tbl 001226 aa 137 164 142 154 001227 55 000032 000016 001230 0a 000000 400000 001231 55 000026 000003 001232 aa 015 143 157 155 com_state_tbl  001233 aa 137 163 164 141 001234 aa 164 145 137 164 001235 aa 142 154 000 000 001236 55 000002 000023 001237 6a 000000 400002 001240 55 000035 000003 001241 aa 014 163 171 155 symbol_table  001242 aa 142 157 154 137 001243 aa 164 141 142 154 001244 aa 145 000 000 000 DEFINITIONS HASH TABLE  001245 aa 000000 000015 001246 aa 000000 000000 001247 5a 000011 000000 001250 aa 000000 000000 001251 aa 000000 000000 001252 aa 000000 000000 001253 aa 000000 000000 001254 5a 000023 000000 001255 5a 000032 000000 001256 5a 000016 000000 001257 aa 000000 000000 001260 aa 000000 000000 001261 aa 000000 000000 001262 aa 000000 000000 NO EXTERNAL NAMES  NO TRAP POINTER WORDS  TYPE PAIR BLOCKS  001263 aa 000001 000000 001264 aa 000000 000000 INTERNAL EXPRESSION WORDS 001265 aa 000000 000000 LINKAGE INFORMATION 000000 aa 000000 000000 000001 0a 001204 000000 000002 aa 000000 000000 000003 aa 000000 000000 000004 aa 000000 000000 000005 aa 000000 000000 000006 22 000010 000010 000007 a2 000000 000000 SYMBOL INFORMATION SYMBOL TABLE HEADER  000000 aa 000000 000001 000001 aa 163171 155142 000002 aa 164162 145145 000003 aa 000000 000004 000004 aa 000000 112143 000005 aa 305203 523135 000006 aa 000000 112711 000007 aa 531522 465217 000010 aa 141154 155040 000011 aa 040040 040040 000012 aa 000024 000040 000013 aa 000034 000040 000014 aa 000044 000100 000015 aa 000002 000002 000016 aa 000064 000000 000017 aa 000000 000273 000020 aa 000000 000101 000021 aa 000000 000262 000022 aa 000265 000101 000023 aa 000064 000000 000024 aa 101114 115040 000025 aa 126145 162163 000026 aa 151157 156040 000027 aa 040066 056066 000030 aa 040040 116157 000031 aa 166145 155142 000032 aa 145162 040061 000033 aa 071070 062040 000034 aa 107112 157150 000035 aa 156163 157156 000036 aa 056123 171163 000037 aa 115141 151156 000040 aa 164056 141040 000041 aa 040040 040040 000042 aa 040040 040040 000043 aa 040040 040040 000044 aa 154151 163164 000045 aa 040040 040040 000046 aa 040040 040040 000047 aa 040040 040040 000050 aa 040040 040040 000051 aa 040040 040040 000052 aa 040040 040040 000053 aa 040040 040040 000054 aa 040040 040040 000055 aa 040040 040040 000056 aa 040040 040040 000057 aa 040040 040040 000060 aa 040040 040040 000061 aa 040040 040040 000062 aa 040040 040040 000063 aa 040040 040040 000064 aa 000000 000001 000065 aa 000000 000001 000066 aa 000072 000031 000067 aa 127065 644773 000070 aa 000000 112711 000071 aa 522417 200000 000072 aa 076144 165155 >dumps>old>h>ncp_tbl_.alm  000073 aa 160163 076157 000074 aa 154144 076150 000075 aa 076156 143160 000076 aa 137164 142154 000077 aa 137056 141154 000100 aa 155040 040040 MULTICS ASSEMBLY CROSS REFERENCE LISTING Value Symbol Source file Line number  4 Abort ncp_tbl_: 306, 849.  265 abort11_ ncp_tbl_: 334, 349, 421. 263 abort6_ ncp_tbl_: 333, 334, 417. 404 accept3a_ ncp_tbl_: 486, 491.  412 accept3b_ ncp_tbl_: 489, 495, 498, 500.  427 accept3c_ ncp_tbl_: 487, 492, 504. 340 accept3d_ ncp_tbl_: 463, 508.  425 accept3e_ ncp_tbl_: 497, 501.  366 accept3_ ncp_tbl_: 345, 483.  1 Active ncp_tbl_: 303, 425, 517, 539, 567, 869, 873, 895.  4 ALL ncp_tbl_: 321. 630 ALL_ ncp_tbl_: 407, 715.  24 All ncp_tbl_: 319, 717.  1120 all6a_ ncp_tbl_: 910, 912.  1114 all6_ ncp_tbl_: 390, 391, 909. 707 auto_reject_ ncp_tbl_: 381, 382, 384, 385, 784, 795, 802, 819, 825, 837.  0 base ncp_tbl_: 18, 330.  103 BSPACE ncp_tbl_: 323, 919.  30 Buf ncp_tbl_: 319. 1140 buf10_ ncp_tbl_: 403, 879, 936. 1133 buf9a_ ncp_tbl_: 929, 932.  1130 buf9_ ncp_tbl_: 403, 928.  111 BYTE ncp_tbl_: 323, 432, 488. 524 close13_ ncp_tbl_: 349, 564.  437 close1_ ncp_tbl_: 348, 511.  443 close2_ ncp_tbl_: 348, 515.  472 close3b_ ncp_tbl_: 531, 537.  462 close3c_ ncp_tbl_: 523, 532.  450 close3_ ncp_tbl_: 348, 521.  457 close4a_ ncp_tbl_: 529, 533, 535. 455 close4_ ncp_tbl_: 348, 527.  477 close5_ ncp_tbl_: 348, 544.  514 close6a_ ncp_tbl_: 553, 554, 558. 505 close6_ ncp_tbl_: 348, 552.  3 CLS ncp_tbl_: 321, 460, 499, 505, 534, 545, 559, 693, 700, 785, 832, 847,  854, 867, 885, 904, 933, 937.  615 CLS_ ncp_tbl_: 407, 703.  23 Cls ncp_tbl_: 319, 706.  1003 cls3a_ ncp_tbl_: 845, 850, 852, 860.  1013 cls3b_ ncp_tbl_: 851, 855.  766 cls3_ ncp_tbl_: 387, 843.  1014 cls4_ ncp_tbl_: 387, 858.  1037 cls5a_ ncp_tbl_: 868, 871.  1024 cls5_ ncp_tbl_: 387, 864.  1055 cls6a_ ncp_tbl_: 877, 883.  1043 cls6_ ncp_tbl_: 387, 388, 875. 1070 cls7a_ ncp_tbl_: 886, 891, 905, 938.  1066 cls7_ ncp_tbl_: 388, 889.  1107 cls9a_ ncp_tbl_: 900, 903.  1100 cls9_ ncp_tbl_: 388, 897.  13 Cls_read ncp_tbl_: 313, 887.  7 Cls_wait ncp_tbl_: 309, 546, 562, 834, 934. 105 CODEF ncp_tbl_: 323, 712, 725, 731, 737, 743, 777, 789, 861. 0 com_state_tbl ncp_tbl_: 16, 332.  307 connect1a_ ncp_tbl_: 431, 435.  316 connect1b_ ncp_tbl_: 430, 440.  321 connect1c_ ncp_tbl_: 436, 444.  324 connect1d_ ncp_tbl_: 430, 448.  275 connect1_ ncp_tbl_: 336, 429.  250 ctl_tbl ncp_tbl_: 17, 406.  11 Data_wait ncp_tbl_: 311, 556.  541 deac11_ ncp_tbl_: 351, 352, 379, 578.  543 deac1_ ncp_tbl_: 378, 423, 512, 516, 538, 565, 580, 893.  447 deac3_ ncp_tbl_: 378, 519.  454 deac4_ ncp_tbl_: 378, 525.  476 deac5_ ncp_tbl_: 378, 541.  504 deac6_ ncp_tbl_: 378, 549.  567 deac7_ ncp_tbl_: 379, 679.  6 DEFIDX_COUNTER ncp_tbl_: 319, 321, 323, 325.  11 ECO ncp_tbl_: 321. 107 ECODT ncp_tbl_: 323, 748.  675 ECO_ ncp_tbl_: 407, 746.  12 ERP ncp_tbl_: 321, 748.  13 ERR ncp_tbl_: 321, 712, 725, 731, 737, 743, 777, 789, 861. 1146 error80_ ncp_tbl_: 458, 943.  1150 error81_ ncp_tbl_: 471, 945.  1152 error82_ ncp_tbl_: 484, 947.  1154 error83_ ncp_tbl_: 485, 949.  1156 error84_ ncp_tbl_: 485, 951.  1160 error85_ ncp_tbl_: 522, 953.  1162 error86_ ncp_tbl_: 533, 955.  1164 error87_ ncp_tbl_: 459, 957.  1166 error88_ ncp_tbl_: 528, 959.  1170 error89_ ncp_tbl_: 644, 961.  1172 error90_ ncp_tbl_: 649, 963.  1174 error93_ ncp_tbl_: 844, 965.  1176 error94_ ncp_tbl_: 859, 967.  1200 error95_ ncp_tbl_: 498, 969.  1202 error_ ncp_tbl_: 334, 337, 339, 340, 343, 346, 349, 352, 354, 355, 357, 358,  360, 361, 363, 364, 366, 367, 369, 370, 373, 375, 376, 379,  382, 385, 388, 391, 394, 397, 400, 402, 403, 407, 972. 106 ERRTX ncp_tbl_: 323, 712, 725, 731, 737, 743, 777, 789, 861. 537 fdeac13_ ncp_tbl_: 352, 379, 572, 576.  532 fdeac1_ ncp_tbl_: 351, 571, 574. 100 FSOC ncp_tbl_: 323, 432, 437, 460, 488, 493, 499, 505, 534, 545, 559, 832,  867, 885, 904, 933, 937. 110 FSOC1 ncp_tbl_: 323, 693, 700, 785, 847, 854.  5 GVB ncp_tbl_: 321. 635 GVB_ ncp_tbl_: 407, 722.  25 Gvb ncp_tbl_: 319, 724.  1121 gvb6_ ncp_tbl_: 393, 394, 917. 7 INR ncp_tbl_: 321. 655 INR_ ncp_tbl_: 407, 734.  10 INS ncp_tbl_: 321. 665 INS_ ncp_tbl_: 407, 740.  27 Int ncp_tbl_: 319, 736, 742. 1126 int6_ ncp_tbl_: 399, 922.  14 Inv12 ncp_tbl_: 314. 10 Inv8 ncp_tbl_: 310. 1145 inv_CLS_ ncp_tbl_: 387, 388, 865, 876, 890, 898, 940. 713 inv_com_ ncp_tbl_: 390, 391, 393, 394, 396, 397, 399, 400, 788. 260 inv_state_ ncp_tbl_: 333, 334, 336, 337, 342, 343, 345, 346, 349, 409, 513. 102 LINKN ncp_tbl_: 323, 437, 493, 919.  2 Listen ncp_tbl_: 304, 468, 479, 658.  101 LSOC ncp_tbl_: 323, 432, 437, 460, 488, 493, 499, 505, 534, 545, 559, 693,  700, 785, 832, 847, 854, 867, 885, 904, 933, 937.  104 MSPACE ncp_tbl_: 323, 919.  4 netbgend ncp_tbl_: 325, 449.  2 netclose ncp_tbl_: 325. 3 netfhost ncp_tbl_: 325, 441.  1 netstate ncp_tbl_: 325, 410.  0 NOP ncp_tbl_: 321. 262 nop_ ncp_tbl_: 349, 372, 373, 391, 394, 396, 397, 400, 402, 403, 412. 5 notalloc ncp_tbl_: 325, 445, 507. 6 Open ncp_tbl_: 308, 502, 822, 829.  1 opr01 ncp_tbl_: 802. 2 opr02 ncp_tbl_: 494, 827.  3 opr03 ncp_tbl_: 910. 4 opr04 ncp_tbl_: 436, 487, 492, 820.  5 opr05 ncp_tbl_: 690, 697, 704, 716, 723, 729, 735, 741, 747. 6 opr06 ncp_tbl_: 795, 826.  7 opr07 ncp_tbl_: 554, 879, 886, 900, 929. 10 opr08 ncp_tbl_: 432, 437, 460, 488, 493, 499, 505, 534, 545, 559, 693, 700,  712, 725, 731, 737, 743, 748, 777, 785, 789, 832, 847, 854,  861, 867, 885, 904, 919, 933, 937. 11 opr09 ncp_tbl_: 423, 512, 516, 538, 565, 893.  12 opr10 ncp_tbl_: 581. 13 opr11 ncp_tbl_: 918. 14 opr12 ncp_tbl_: 462, 473, 496, 506, 530, 573, 651, 853.  15 opr13 ncp_tbl_: 410, 441, 445, 449, 507. 17 opr15 ncp_tbl_: 717, 724, 730, 736, 742. 20 opr16 ncp_tbl_: 692, 699, 706. 21 opr17 ncp_tbl_: 819, 825, 837, 845, 852, 860, 865, 876, 890, 898.  22 opr18 ncp_tbl_: 458, 464, 471, 474, 484, 497, 522, 528, 531, 572, 644, 649,  652, 797, 844, 851, 859. 23 opr19 ncp_tbl_: 691, 698, 705. 24 opr20 ncp_tbl_: 489, 500, 508, 513, 523, 535, 574, 905, 938. 25 opr21 ncp_tbl_: 418, 560, 878, 899.  26 opr22 ncp_tbl_: 430, 459, 485, 498, 533. 27 opr23 ncp_tbl_: 923. 30 opr24 ncp_tbl_: 431, 486, 553, 868, 877. 31 opr25 ncp_tbl_: 799, 944, 946, 948, 950, 952, 954, 956, 958, 960, 962, 964,  966, 968, 970, 973.  35 opr29 ncp_tbl_: 694, 701, 709, 713, 720, 726, 732, 738, 744, 749, 778. 37 opr31 ncp_tbl_: 520, 526, 542, 550, 680. 40 opr32 ncp_tbl_: 555, 880.  42 opr34 ncp_tbl_: 472, 645, 650. 43 opr35 ncp_tbl_: 424, 465, 475, 561, 577, 653, 803, 821, 828, 833, 848, 866,  884, 894, 911. 45 opr37 ncp_tbl_: 476, 479, 654, 658.  46 opr38 ncp_tbl_: 425, 433, 438, 466, 468, 502, 517, 539, 546, 556, 562, 567,  804, 822, 829, 834, 849, 869, 873, 881, 887, 895, 901, 934.  47 opr39 ncp_tbl_: 422, 566, 579, 846, 872, 892.  50 opr40 ncp_tbl_: 413, 419, 442, 446, 450, 477, 480, 582, 646, 655, 659, 681,  786, 790, 839, 856, 862, 913, 920, 924, 930, 941.  624 polarity_error ncp_tbl_: 691, 698, 705, 711.  346 reject3a_ ncp_tbl_: 464, 467.  337 reject3b_ ncp_tbl_: 459, 461.  327 reject3_ ncp_tbl_: 342, 457.  363 reject4a_ ncp_tbl_: 474, 478.  350 reject4_ ncp_tbl_: 342, 345, 470. 6 RET ncp_tbl_: 321, 919.  645 RET_ ncp_tbl_: 407, 728.  26 Ret ncp_tbl_: 319, 730.  725 rfc2_append_ ncp_tbl_: 797, 801.  754 rfc5a_ ncp_tbl_: 820, 826, 831. 763 rfc7_ ncp_tbl_: 382, 385, 836. 3 Rfc_rcvd ncp_tbl_: 305, 466, 476, 654, 804. 5 Rfc_sent ncp_tbl_: 307, 433, 438. 12 Rfnm_wait ncp_tbl_: 312, 881, 901. 15 RRP ncp_tbl_: 321. 14 RST ncp_tbl_: 321. 1 RTS ncp_tbl_: 321, 437, 493. 571 RTS_ ncp_tbl_: 407, 689.  21 Rts ncp_tbl_: 319, 692.  721 rts2_ ncp_tbl_: 381, 796.  707 rts3_ ncp_tbl_: 381, 782.  733 rts5_ ncp_tbl_: 381, 818.  545 state3_ ncp_tbl_: 372, 643.  564 state4a_ ncp_tbl_: 652, 657.  551 state4_ ncp_tbl_: 372, 648.  2 STR ncp_tbl_: 321, 432, 488. 603 STR_ ncp_tbl_: 407, 696.  22 Str ncp_tbl_: 319, 699.  717 str2_ ncp_tbl_: 384, 794.  707 str3_ ncp_tbl_: 384, 783.  743 str5_ ncp_tbl_: 384, 824.  703 unk_ ncp_tbl_: 407, 776.  NO FATAL ERRORS  ----------------------------------------------------------- Historical Background This edition of the Multics software materials and documentation is provided and donated to Massachusetts Institute of Technology by Group BULL including BULL HN Information Systems Inc. as a contribution to computer science knowledge. This donation is made also to give evidence of the common contributions of Massachusetts Institute of Technology, Bell Laboratories, General Electric, Honeywell Information Systems Inc., Honeywell BULL Inc., Groupe BULL and BULL HN Information Systems Inc. to the development of this operating system. Multics development was initiated by Massachusetts Institute of Technology Project MAC (1963-1970), renamed the MIT Laboratory for Computer Science and Artificial Intelligence in the mid 1970s, under the leadership of Professor Fernando Jose Corbato. Users consider that Multics provided the best software architecture for managing computer hardware properly and for executing programs. Many subsequent operating systems incorporated Multics principles. Multics was distributed in 1975 to 2000 by Group Bull in Europe , and in the U.S. by Bull HN Information Systems Inc., as successor in interest by change in name only to Honeywell Bull Inc. and Honeywell Information Systems Inc. . ----------------------------------------------------------- Permission to use, copy, modify, and distribute these programs and their documentation for any purpose and without fee is hereby granted,provided that the below copyright notice and historical background appear in all copies and that both the copyright notice and historical background and this permission notice appear in supporting documentation, and that the names of MIT, HIS, BULL or BULL HN not be used in advertising or publicity pertaining to distribution of the programs without specific prior written permission. Copyright 1972 by Massachusetts Institute of Technology and Honeywell Information Systems Inc. Copyright 2006 by BULL HN Information Systems Inc. Copyright 2006 by Bull SAS All Rights Reserved