;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴커 ;� Network Module � ;읕컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� Jumps .386P DRIVERIDSTRING EQU "IPX Network Driver, Copyright (C) 1999 Jeffrey Lim", 0 FIXEDUSERNAME EQU 1 Segment DriverHeader PARA Public 'Code' Use16 Assume CS:DriverHeader, DS:Nothing ;***** Driver Header ******* include drhead.inc EndS ; DiskDataArea format: ; Word ConnectionIDNum ; 16 Username ; 10 Address ; DWord Reserved. ; Maintenance blocks ; Acknoweledgement: ; Offset 0: DB 0 ; Block type ; Offset 1: DB PacketID ; 2 bytes ; Intro: ; Offset 0: DB 1 ; Block type ; Offset 1: DB Initiate/Response ; Offset 2: DB NumberOfConnections ; Offset 3: 16 bytes name ; Offset 19: 12 bytes socket address ; Offset 31->114: 16 bytes name followed by 12 bytes address (3 sets) ; Max size = 115 bytes. ; Note: If Destination of Intro was FF:FF:FF:FF:FF:FF (ie. broadcast) ; Then a reply intro must be made ; Remove: ; Offset 0: DB 2 ; Block type - size = 1 ; Called when a person gains a maximum limit of 3 extra connections ; Or does not wish to be listed in the IPX screen any further. ; Quit: ; Offset 0: DB 3 ; Block type - size = 1 ; Called when a person unloads the IPX driver for any reason. ; Causes removal from group and removal from listings ; Talk: ; Offset 0: DB 4 ; Block type, talk ; Offset 1: 16 bytes ; Sender name ; Offset 17: 60 bytes ; Message ; Close connection ; Remove oneself from the group. ; Offset 0: DB 5 ; Causes removal from group ; Request connection ; Offset 0: DB 6 ; Offset 1: 16 bytes ; Sender name ; Only nodes with no connections can request connections ; Accept/Reject connection ; Offset 0: DB 7 ; Offset 1: DB Number of connections including this one. 0 = reject ; Offset 2: Other user information (name (16), full address(12)) ; Reply from requested node. ; Confirm connection ; Offset 0: DB 8 ; Offset 1: DB Confirm 0 = cancelled ; Offset 2: UserName (16), Full Address (12) ; Add this to the connection list ; Send out this information to anyone already connected to this group. ; Request intro ; Offset 0: DB 9 ; Notes: ; The IPX driver will automatically open port 'IT' (4945h) to listen ; for general/maintenance broadcasts (Socket1). Listening packets at ; socket 2 will (only) receive a maximum of 128 bytes. ; A dedicated (dynamically allocated) socket will be used for all music data. ; (Socket2). Socket2 will be able to receive the MAXDATASIZE (1024 bytes) ; Initiate/Terminate connection requests are handled through Socket1 ; Once established, the IPX driver will use 4 packets for listening. ; Each send packet will be timestamped in order to have a maximum timeout, ; after which an error message is generated, giving the user the option to ; drop the participant. ; Acknowledgement packets will be sent for everything received at Socket2 to ; Socket1 of the sender. ; Required functions: ; GetBuffer(NumberOfBytes) - returns pointer ; SetBuffer(NumberOfBytes, Data) ; GetTimer - returns number of ticks since program startup in EAX. ; Generic Function Handler ; S_GetDestination ; S_DrawString ; SetInfoLine ; Variables required: ; GlobalKeyList ; Provided functions: ; DriverScreen ; Poll (Update procedure) ; Note: IT's network handler will send data to: ; either 0 -> everyone ; or individual connections. ; MAXIMUMUSERS EQU 4 TIMEOUT EQU 10 SENDTIMEOUT EQU 182 ; 10 seconds RETRYTIMEOUT EQU 36 ; 2 seconds MAINTENANCETIMEOUT EQU 18 ; 1 second TRACEENABLED EQU 0 SCREENTRACEENABLED EQU 0 CREATENEWLOGFILE EQU 1 ;旼컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� ;� Externals � ;읕컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� ;袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴� ;袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴� Segment IPX PARA Public 'Code' USE16 Assume CS:IPX, DS:Nothing, ES:Nothing ORG 0 StartDriver: include vtable.inc include reqproc.inc IPXEntryAddress Label DWord DW Offset F_Nothing ; Done so that it won't crash if there's Seg14 DW 0 ; no IPX due to call to Poll IPXMaximumPacketSize DW 0 IPXRetryCount DW 0 IntroBlockInformation Label ; **************************************** DB 1 ; Block type NumberOfConnections DB 0 IF FIXEDUSERNAME include username.inc ELSE CONFIGURATIONOFFSET EQU $+128 CONFIGURATIONSIZE EQU 16 UserName DB 16 Dup (0) IPXLocalAddress Label IPXNetworkAddress DD 0 ; Do not change order IPXNodeAddress DW 0, 0, 0 ; IPXSocket DW 0 ; Dynamic socket ENDIF UserName1 DB 16 Dup (0) UserAddress1 DB 10 Dup (0) UserSocket1 DW 0 UserName2 DB 16 Dup (0) UserAddress2 DB 10 Dup (0) UserSocket2 DW 0 UserName3 DB 16 Dup (0) UserAddress3 DB 10 Dup (0) ; size = 26*4+2=106 UserSocket3 DW 0 AcknowledgementBlockInformation Label ; ************************************ DB 0 PacketID DB 0 ; Size = 2 ByteBlockInformation Label ByteBlock DB 0 OldNumberOfConnections DB 0 MessageReceived DB 0 IFE FIXEDUSERNAME DriverName DB "ITIPX.NET", 0 ENDIF ALIGN 2 OldNumNodes DW 0 NumNodes DW 0 TopNode DW 0 CurrentNode DW 0 NoReply DB 0 SendingData DB 0 SendTime DD 0 RetryTime DD 0 LastPacketSize DW 0 ; ---- Interface stuff -------------------------------------------------------- RequestConnectionBox DW 0 DB 27, 24, 54, 32 DB 3 RequestConnectionText DW 1 DB 29, 27 DB 20h DB "Connection request from:", 13 DB " " ConnectionRequestName DB 16 Dup (0) ConnectionRequestAddress DB 12 Dup (0) ConnectionRequest DB 0 ; Bit 0 = requesting a connection ; Bit 1 = connection requested, waiting ; for reply. ; Bit 2 = connection accepted, waiting ; for verification. ; Bit 7 = leave connetion request box IPXHeaderText DW 1 DB 36, 25 DB 23h DB "IPX Driver", 0 AcceptButton DW 2 DW 0FFFFh, 0FFFFh, 4, 4 DW 0 DW 0, 0 DW 0 DW 1 ; Returns 1 DW 0, 0, 0, 0 DB 28, 29, 39, 31 DB 8 DB 0 DB " Accept", 0 RejectButton DW 2 DW 0FFFFh, 0FFFFh, 3, 3 DW 0 DW 0, 0 DW 0 DW 0 ; Returns 0 DW 0, 0, 0, 0 DB 41, 29, 52, 31 DB 8 DB 0 DB " Reject", 0 ConnectionRequestList DW 3 DW IdleFunctionList2 DW ESCReturn0List DW RequestConnectionBox DW IPXHeaderText DW RequestConnectionText DW AcceptButton DW RejectButton DW 0 WaitforConnectList DW 2 DW IdleFunctionList2 ; Needs check for connection DW ESCReturn0List ; No global keys. DW NoIPXBox DW WaitforConnectText DW CancelButton DW 0 ConnectionRejectedList DW 2 DW IdleFunctionList DW ESCReturn0List DW NoIPXBox DW ConnectionRejectedText DW OKButton DW 0 ConnectionCancelledList DW 2 DW IdleFunctionList DW ESCReturn0List DW NoIPXBox DW ConnectionCancelledText DW OKButton DW 0 WaitforConnectText DW 1 DB 28, 27 DB 20h DB "Requesting Connection...", 0 FullScreenBox DW 0 DB 0, 0, 79, 49 DB 4 NoIPXBox DW 0 DB 25, 25, 54, 32 DB 3 NoIPXText DW 1 DB 28, 27 DB 20h DB "IPX Network not detected", 0 ConnectionRejectedText DW 1 DB 31, 27 DB 20h DB "Connection refused", 0 ConnectionCancelledText DW 1 DB 30, 27 DB 20h DB "Connection cancelled", 0 NoSocketText DW 1 DB 27, 27 DB 20h DB "IPX Socket request failure", 0 IFE FIXEDUSERNAME UserNameBox DW 0 DB 31, 29, 48, 31 DB 27 UserNameText DW 1 DB 29, 27 DB 20h DB "Please enter your name", 0 ENDIF ESCReturn0List DB 0 DW 101h DW Offset F_Return0 KeyListSeg1 DW 0 DB 0FFh IFE FIXEDUSERNAME UserNameInput DW 16 DB 32, 30 StringSeg1 DW 0 DW Offset UserName DW 16 DW Offset F_Return1 StringSeg2 DW 0 DW 0FFFFh, 0FFFFh, 0FFFFh, 0FFFFh ENDIF FillHeader DW 8 FillHeader2 DD 0 DrawHeader DW 8 DrawHeader2 DD 0 OKButton DW 2 DW 0FFFFh, 0FFFFh, 0FFFFh, 0FFFFh DW 0 DW 0, 0 DW 0 DW 0 ; Returns 0 DW 0, 0, 0, 0 DB 35, 29, 44, 31 DB 8 DB 0 DB " OK", 0 CancelButton DW 2 DW 0FFFFh, 0FFFFh, 0FFFFh, 0FFFFh DW 0 DW 0, 0 DW 0 DW 0 ; Returns 0 DW 0, 0, 0, 0 DB 34, 29, 45, 31 DB 8 DB 0 DB " Cancel", 0 SocketErrorList DW 2 DW Near Ptr IdleFunctionList DW 0 DW Near Ptr NoIPXBox DW Near Ptr NoSocketText DW Near Ptr OKButton DW Near Ptr FillHeader DW 0 NoIPXMessageList DW 2 DW Near Ptr IdleFunctionList DW Near Ptr ESCReturn0List DW Near Ptr NoIPXBox DW Near Ptr NoIPXText DW Near Ptr OKButton DW Near Ptr FillHeader DW 0 IFE FIXEDUSERNAME IPXGetName Label DW 5 DW Near Ptr IdleFunctionList DW Near Ptr ESCReturn0List DW Near Ptr DrawHeader DW Near Ptr FillHeader DW Near Ptr NoIPXBox DW Near Ptr UserNameText DW Near Ptr UserNameBox DW Near Ptr UserNameInput DW 0 ENDIF IPXConnectedScreen Label DW 5 DW Near Ptr IdleFunctionList2 DW Near Ptr GlobalKeyLink DW Near Ptr FullScreenBox DW Near Ptr DrawHeader DW Near Ptr FillHeader DW Near Ptr IPXHeader DW Near Ptr ConnectionDetailMsg DW Near Ptr LeaveSessionButton DW Near Ptr ShowConnectionDetails DW Near Ptr MessageBox DW Near Ptr MessageEnterBox DW Near Ptr SendMessageText DW Near Ptr GroupMessageInput DW Near Ptr ShowConnectMessages DW Near Ptr PacketsSentMessage DW Near Ptr PacketsReceivedMessage DW Near Ptr PacketsFailedMessage DW Near Ptr PacketsRetryMessage DW Near Ptr PacketsAckMessage DW 0 PacketsSentMessage DW 1 DB 2, 33 DB 20h DB "Packets sent: ", 0FDh, "D", 0 PacketsSent DW 0 PacketsReceivedMessage DW 1 DB 2, 34 DB 20h DB "Packets rcvd: ", 0FDh, "D", 0 PacketsReceived DW 0 PacketsFailedMessage DW 1 DB 2, 35 DB 20h DB "Packets fail: ", 0FDh, "D", 0 PacketsFailed DW 0 PacketsRetryMessage DW 1 DB 2, 36 DB 20h DB "Packets rtry: ", 0FDh, "D", 0 PacketsRetry DW 0 PacketsAckMessage DW 1 DB 2, 32 DB 20h DB "Acks Rcvd: ", 0FDh, "D", 0 PacketsAck DW 0 ConnectionDetailMsg DW 1 DB 2, 13 DB 23h DB "Connection Details", 0 LeaveSessionButton DW 2 DW 10, 10, 0FFFFh, 0FFFFh DW 0 DW 0, 0 DW 4 DW Offset IPX_LeaveSession Seg19 DW 0 DW 0, 0, 0 DB 61, 12, 78, 14 DB 8 DB 0 DB " Leave", 0 ShowConnectionDetails DW 8 DW Offset IPX_ShowConnectionDetails Seg20 DW 0 IPXScreen Label DW 5 DW Near Ptr IdleFunctionList2 DW Near Ptr GlobalKeyLink DW Near Ptr FullScreenBox DW Near Ptr DrawHeader DW Near Ptr FillHeader DW Near Ptr IPXHeader DW Near Ptr NodeBox DW Near Ptr ConnectNetworkList DW Near Ptr UnloadDriverButton DW Near Ptr MessageBox DW Near Ptr MessageEnterBox DW Near Ptr SendMessageText DW Near Ptr ConnectMessageInput DW Near Ptr ShowConnectMessages DW 0 IPXQueueScreen DW 0 IPXHeader DW 10 DB "IPX Network Driver", 0 NodeBox DW 0 DB 2, 12, 52, 36 DB 27 MessageBox DW 0 DB 2, 37, 78, 46 DB 27 MessageEnterBox DW 0 DB 15, 47, 78, 49 DB 27 SendMessageText DW 1 DB 3, 48 DB 20h DB "Send Message", 0 ConnectMessageInput DW 16 ; String input DB 16, 48 Seg16 DW 0 DW Offset MessageEntryArea DW 56 DW Offset IPX_SendMessage Seg17 DW 0 DW 5, 5, 5, 6 GroupMessageInput DW 16 ; String input DB 16, 48 Seg21 DW 0 DW Offset MessageEntryArea DW 56 DW Offset IPX_SendGroupMessage Seg22 DW 0 DW 5, 5, 5, 6 ShowConnectMessages DW 8 DW Offset IPX_DisplayMessages Seg18 DW 0 UnloadDriverButton DW 2 DW 0FFFFh, 10, 5, 10 DW 0 DW 0, 0 DW 4 DW Offset IPX_Shutdown Seg15 DW 0 DW 0, 0, 0 DB 61, 12, 78, 14 DB 8 DB 0 DB " Disconnect", 0 IdleFunctionList DD 0 DD 0 ConnectNetworkList DW 15 DrawConnectNetworkList DW Offset IPX_DrawConnect Seg11 DW 0 PreConnectNetworkList DW Offset IPX_PreConnect Seg12 DW 0 PostConnectNetworkList DW Offset IPX_PostConnect Seg13 DW 0 IdleFunctionList2 DD 0 DW Offset IdleCheck IdleSeg DW 0 DD 0 GlobalKeyLink DB 7 GlobalKeyLink2 DD 0 Label ConnectKeys Byte DB 0 DW 1C8h ; Up arrow DW IPX_ConnectUp DB 0 DW 1D0h ; Down arrow DW IPX_ConnectDown DB 0 ; PgUp DW 1C9h DW IPX_ConnectPgUp DB 0 ; PgDn DW 1D1h DW IPX_ConnectPgDn DB 0 DW 1C7h DW IPX_ConnectHome DB 0 DW 1CFh DW IPX_ConnectEnd DB 0 ; Tab DW 10Fh DW IPX_ConnectTab DB 0 DW 11Ch DW IPX_ConnectEnter DB 0FFh ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴 MessageBlock DB 4 MessageSenderName DB 16 Dup (0) MessageEntryArea DB 56 Dup (0) MessageData DB 72*8 Dup (0) InfoListMessage DB 64 Dup (0) ConnectionNumberMsg DB "Connection Number ", 0FDh, "D", 0Dh DB " User name: ", 0 ConnectionAddressMsg DB " User address: ", 0 UnknownPacketMessage DB "IPX Error: Unknown Packet Type Received", 0 ; This prompt needs to be reworded. AutoRejectMessage DB "IPX AutoRejectConnection: " ClosedMessage DB "IPX ClosedConnection: " AutoDropMessage DB "IPX DropConnection: " ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴 Macro_MaintenanceRHeader Macro Index MaintenanceRHeader&Index& Label DW 0 ; Checksum DW 0 ; Length DB 0 ; Transport Control DB 4 ; Packet type DB 12 Dup (0) ; Destination Address DB 12 Dup (0) ; Source Address MaintenanceRData&Index& Label DB 128 Dup (0) EndM IndexCounter = 1 Rept 4 Macro_MaintenanceRHeader %IndexCounter IndexCounter = IndexCounter+1 EndM MaintenanceSendHeaderBroadcast Label DW 0 ; Checksum DW 0 ; Length DB 0 ; Transport Control DB 4 ; Packet type DB 0, 0, 0, 0 ; Destination net address DB 0FFh, 0FFh, 0FFh, 0FFh, 0FFh, 0FFh ; Node address - broadcast DW 'IT' ; Destination socket DB 12 Dup (0) ; Source Address MaintenanceSendHeaderDirected Label DW 0 ; Checksum DW 0 ; Length DB 0 ; Transport Control DB 4 ; Packet type MaintenanceDirectedDestination Label DB 12 Dup (0) ; Destination address DB 12 Dup (0) ; Source Address MaintenanceECB1 Label DD 0 ; Link Address - IPX controlled DW Offset MaintenanceESR MESeg1 DW 0 DB 0 ; In use flag - IPX controlled DB 0 ; Completion code - IPX controlled DW 'IT' ; Socket Number - Required DB 16 Dup (0) ; IPX workspace - IPX controlled DB 6 Dup (0) ; Immediate address - IPX controlled DW 2 ; Fragment count - Required DW Offset MaintenanceRHeader1 Seg1 DW 0 DW 30 ; Fragment size 1 DW Offset MaintenanceRData1 Seg2 DW 0 DW 128 ; Fragment size 2 MaintenanceECB2 Label DD 0 ; Link Address - IPX controlled DW Offset MaintenanceESR MESeg2 DW 0 DB 0 ; In use flag - IPX controlled DB 0 ; Completion code - IPX controlled DW 'IT' ; Socket Number - Required DB 16 Dup (0) ; IPX workspace - IPX controlled DB 6 Dup (0) ; Immediate address - IPX controlled DW 2 ; Fragment count - Required DW Offset MaintenanceRHeader2 Seg3 DW 0 DW 30 ; Fragment size 1 DW Offset MaintenanceRData2 Seg4 DW 0 DW 128 ; Fragment size 2 MaintenanceECB3 Label DD 0 ; Link Address - IPX controlled DW Offset MaintenanceESR MESeg3 DW 0 DB 0 ; In use flag - IPX controlled DB 0 ; Completion code - IPX controlled DW 'IT' ; Socket Number - Required DB 16 Dup (0) ; IPX workspace - IPX controlled DB 6 Dup (0) ; Immediate address - IPX controlled DW 2 ; Fragment count - Required DW Offset MaintenanceRHeader3 Seg5 DW 0 DW 30 ; Fragment size 1 DW Offset MaintenanceRData3 Seg6 DW 0 DW 128 ; Fragment size 2 MaintenanceECB4 Label DD 0 ; Link Address - IPX controlled DW Offset MaintenanceESR MESeg4 DW 0 DB 0 ; In use flag - IPX controlled DB 0 ; Completion code - IPX controlled DW 'IT' ; Socket Number - Required DB 16 Dup (0) ; IPX workspace - IPX controlled DB 6 Dup (0) ; Immediate address - IPX controlled DW 2 ; Fragment count - Required DW Offset MaintenanceRHeader4 Seg7 DW 0 DW 30 ; Fragment size 1 DW Offset MaintenanceRData4 Seg8 DW 0 DW 128 ; Fragment size 2 MaintenanceSendECB Label DD 0 ; Link Address - IPX controlled DD 0 SendECBInUse Label Byte DB 0 ; In use flag - IPX controlled DB 0 ; Completion Code - IPX controlled DW 'IT' ; Socket Number - Required DB 16 Dup (0) ; IPX workspace - IPX controlled MSendDest DB 6 Dup (0FFh); Immediate address - broadcast DW 2 ; Fragment count - Required MaintenanceSendHeader DW 0 Seg9 DW 0 DW 30 ; Fragment size 1 MaintenanceSendDataOffset DW 0 Seg10 DW 0 MaintenanceSendDataSize DW 0 ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� MaintenanceSData DB 128 Dup (0) ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� ;Data packet definitions. Zero DB 0 Ten DB 10 NUMBEROFLISTENINGPACKETS EQU 4 MAXDATASIZE EQU 1024 Macro_DataReceiveBlock Macro Index DataReceiveHeader&Index& Label DW 0 ; Checksum DW 0 ; Length DB 0 ; Transport Control DB 4 ; Packet type DB 12 Dup (0) ; Destination Address DB 12 Dup (0) ; Source Address DataReceive&Index& Label DB MAXDATASIZE Dup (0) DataReceiveECB&Index& Label DD 0 ; Link Address -IPX controlled DW Offset DataESR DataSegA&Index& DW 0 DB 0 ; In use flag -IPX controlled DB 0 ; Completion code-IPX controlled DSocket&Index& DW 0 ; Socket Number -Required DB 16 Dup (0) ; IPX workspace -IPX controlled DB 6 Dup (0) ; Immediate addr -IPX controlled DW 2 ; Fragment count -Required DW Offset DataReceiveHeader&Index& DataSegB&Index& DW 0 DW 30 ; Fragment Size 1 DW Offset DataReceive&Index& DataSegC&Index& DW 0 DW MAXDATASIZE ; Fragment size 2 EndM Macro_SendAckBlock Macro Index SendAckHeader&Index& Label DW 0 ; Checksum DW 0 ; Length DB 0 ; Transport Control DB 4 ; Packet type DB 10 Dup (0) ; Destination Address DW 'IT' DB 12 Dup (0) ; Source Address SendAckECB&Index& Label DD 0 ; Link Address -IPX controlled DD 0 ; ESR Address -None DB 0 ; In use flag -IPX controlled DB 0 ; Completion code-IPX controlled DW 'IT' ; Socket Number -Required DB 16 Dup (0) ; IPX workspace -IPX controlled DB 6 Dup (0) ; Immediate addr -IPX controlled DW 2 ; Fragment count -Required DW Offset SendAckHeader&Index& SendAckA&Index& DW 0 DW 30 ; Fragment Size 1 DW Offset Zero ; Offset 42 = 2Ah SendAckB&Index& DW 0 DW 1 EndM IndexCounter = 1 Rept NUMBEROFLISTENINGPACKETS Macro_DataReceiveBlock %IndexCounter IndexCounter = IndexCounter + 1 EndM IndexCounter = 1 Rept (MAXIMUMUSERS-1) Macro_SendAckBlock %IndexCounter IndexCounter = IndexCounter + 1 EndM Macro_DataSendBlock Macro Index DataSendHeader&Index& Label DW 0 ; Checksum DW 0 ; Length DB 0 ; Transport Control DB 4 ; Packet type DB 12 Dup (0) ; Destination Address DB 12 Dup (0) ; Source Address DataSendECB&Index& Label DD 0 ; Link Address -IPX controlled DW Offset SendDataESR SDataSegA&Index& DW 0 DB 0 ; In use flag -IPX controlled SResult&Index& DB 0 ; Completion code-IPX controlled SDSocket&Index& DW 0 ; Socket Number -Required DB 16 Dup (0) ; IPX workspace -IPX controlled DB 6 Dup (0) ; Immediate addr -IPX controlled DW 2 ; Fragment count -Required DW Offset DataSendHeader&Index& SDataSegB&Index& DW 0 DW 30 ; Fragment Size 1 DW Offset DataSend SDataSegC&Index& DW 0 DW MAXDATASIZE ; Fragment size 2 EndM DataSend DB MAXDATASIZE Dup (0) IndexCounter = 1 Rept 3 Macro_DataSendBlock %IndexCounter IndexCounter = IndexCounter + 1 EndM ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� ; RELOCATION TABLE ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� Macro_DataSegments Macro Index DW Offset DataSegA&Index& DW Offset DataSegB&Index& DW Offset DataSegC&Index& EndM Macro_AckSegments Macro Index DW Offset SendAckA&Index& DW Offset SendAckB&Index& EndM Macro_SDataSegments Macro Index DW Offset SDataSegA&Index& DW Offset SDataSegB&Index& DW Offset SDataSegC&Index& EndM RelocationTable Label Word DW Offset Seg1, Offset Seg2, Offset Seg3, Offset Seg4 DW Offset Seg5, Offset Seg6, Offset Seg7, Offset Seg8 DW Offset Seg9, Offset Seg10 IFE FIXEDUSERNAME DW Offset StringSeg1, Offset StringSeg2 ENDIF DW Offset MESeg1, Offset MESeg2, Offset MESeg3, Offset MESeg4 Dw Offset KeyListSeg1, Offset IdleSeg, Offset Seg11, Offset Seg12 DW Offset Seg13, Offset Seg14, Offset Seg15, Offset Seg16 DW Offset Seg17, Offset Seg18, Offset Seg19, Offset Seg20 DW Offset Seg21, Offset Seg22 IndexCounter = 1 Rept NUMBEROFLISTENINGPACKETS Macro_DataSegments %IndexCounter IndexCounter = IndexCounter + 1 EndM IndexCounter = 1 Rept (MAXIMUMUSERS-1) Macro_AckSegments %IndexCounter IndexCounter = IndexCounter + 1 EndM IndexCounter = 1 Rept 3 Macro_SDataSegments %IndexCounter IndexCounter = IndexCounter + 1 EndM DW 0 ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� include debug.inc ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� Proc F_Nothing Far Xor AX, AX Ret EndP F_Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� Proc F_Return0 Far Xor DX, DX Mov AX, 4 Ret EndP F_Return0 ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� Proc F_Return1 Far Cmp Byte Ptr [CS:UserName], 0 JE F_Return0 Mov DX, 1 Mov AX, 4 Ret EndP F_Return1 ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴 Proc IdleCheck Far Push CS Pop DS Assume DS:IPX Mov AL, ConnectionRequest And ConnectionRequest, 0Fh Test AL, 1 JZ IdleCheckConnectionRequestBit1 IdleCheckConnectionRequestBit0: ; OK.. connection around Test AL, AL JNS IdleNoRedraw Mov DX, 1 ; Return 1. Jmp IdleCheckReturnValue IdleCheckConnectionRequestBit1: ; If connection is cancelled before Test AL, 2 JZ IdleCheckNoConnectionRequest Test AL, AL ; Acceptance or Rejection. JNS IdleNoRedraw Mov DX, 2 IdleCheckReturnValue: Mov AX, 5 Mov DI, 4 Ret IdleCheckNoConnectionRequest: Mov AL, NumberOfConnections Cmp OldNumberOfConnections, AL Mov OldNumberOfConnections, AL JE IdleCheck3 ; Mov AX, 5 ; Mov DI, 1 ; Redraw ; Ret Jmp IPX_DriverScreen IdleCheck3: Mov AX, NumNodes Cmp AX, OldNumNodes Mov OldNumNodes, AX JE IdleCheck1 IdleCheck2: Mov AX, 1 Ret IdleCheck1: Cmp MessageReceived, 0 Mov MessageReceived, 0 JNE IdleCheck2 IdleNoRedraw: Xor AX, AX Ret EndP IdleCheck Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴 Proc TransferDestinationAddress ; SI = Header Push AX Push CX Push SI Push DI Add SI, 12h Mov DI, Offset MaintenanceDirectedDestination Mov CX, 10/2 Rep MovsW Mov AX, 'IT' StosW Pop DI Pop SI Pop CX Pop AX Ret EndP TransferDestinationAddress ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴 Proc NodeSearch ; DS gets set to DiskDataArea ; Given EAX:EDX = Node address ; Returns carry if found and BX = address Assume DS:IPX Mov CX, NumNodes Mov DS, DiskDataArea Assume DS:Nothing ; ClC ; Ret Xor BX, BX JCXZ NodeSearch2 NodeSearch1: Cmp [BX+20], EAX JNE NodeSearch3 Cmp [BX+24], EDX JNE NodeSearch3 StC Ret NodeSearch3: Add BX, 32 Loop NodeSearch1 ; Dec CX ; JNZ NodeSearch1 NodeSearch2: Ret EndP NodeSearch ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴 Proc CheckFromSelf Push SI Push DI Add SI, 12h ; Source internetwork address Mov DI, Offset IPXLocalAddress Mov CX, 10 RepE CmpSB Pop DI Pop SI Ret EndP CheckFromSelf ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴 Proc ConnectionReject Mov DI, Offset MaintenanceSData Mov AX, 7 StosW Call IPX_MaintenanceSendData Ret EndP ConnectionReject ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴 Proc FindConnection ; Returns carry set if not found, ; BX = address, AX = connection number ; 0 = first connect Assume DS:IPX Push CX Push SI Push DI Xor AX, AX Add SI, 18 ; Address of sender Mov DI, Offset UserAddress1 FindConnection1: Cmp AL, NumberOfConnections JAE FindConnection2 Mov CX, 10 Push SI RepE CmpsB Pop SI JE FindConnection3 Add DI, CX Inc AX Add DI, 16+12-10 Jmp FindConnection1 FindConnection2: StC FindConnection3: LEA BX, [DI-26] Pop DI Pop SI Pop CX Ret EndP FindConnection ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴 Proc RemoveFromGroup ; Assumes DS = CS = IPX Call FindConnection JC RemoveFromGroupEnd PushA Push ES Push DS Pop ES Mov AH, 6 Mul AH Mov BX, AX Mov SI, Offset ClosedMessage Mov DI, Offset InfoListMessage Mov CX, 22/2 Rep MovsW Mov SI, [SendPacketInformation+BX] Sub SI, 16 Mov CX, 16/2 Rep MovsW Mov BX, 100 Mov SI, Offset InfoListMessage Call IT_SetInfoLine Pop ES PopA Proc RemoveFromGroup2 Assume DS:IPX Push AX Mov AH, NumberOfConnections Sub AH, AL Mov DI, BX LEA SI, [BX+28] Dec NumberOfConnections Mov AL, 28/2 Mul AH Mov CX, AX Rep MovsW ; Remove from ack list Pop CX Mov AX, 0FFFEh ShL AL, CL ; AL = mask for 'upper' bits ShL AH, CL Not AH ; AH = mask for 'lower' bits Mov CL, SendingData And AL, CL And AH, CL ShR AL, 1 Or AL, AH Mov SendingData, AL RemoveFromGroupEnd: Ret EndP RemoveFromGroup2 EndP RemoveFromGroup Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴 Proc SendDataOK ; Returns carry if data is still ; pending to send. Assume DS:IPX Xor AX, AX Mov AL, NumberOfConnections Test AL, AL JZ SendDataOK_Fail Cmp SResult1, 0 JNE SendDataOK_Fail Dec AX JZ SendDataOK_End Cmp SResult2, 0 JNE SendDataOK_Fail Dec AX JZ SendDataOK_End Cmp SResult3, 0 JE SendDataOK_End SendDataOK_Fail: StC SendDataOK_End: Ret EndP SendDataOK Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴 Macro_AckOffsets Macro Index DW Offset SendAckHeader&Index&+6 DW Offset SendAckECB&Index& EndM AckOffsets Label IndexCounter = 1 Rept (MAXIMUMUSERS-1) Macro_AckOffsets %IndexCounter IndexCounter = IndexCounter + 1 EndM PacketReceived DB 0 Proc DataESR Far PushF PushAD Push DS ScreenTraceStart Push ES Push SI Push CS Pop DS Assume DS:IPX ; Also ES = IPX ScreenTrace '0' ClD Mov PacketReceived, 1 Inc PacketsReceived Trace "R: ESR" ScreenTrace '1' Cmp Byte Ptr [SI+9], 0 ; Received packet successfully? JNE DESRBadPacket Mov DI, [SI+2Ah] ; Offset to fragment 2 Mov SI, [SI+24h] ; Offset to fragment 1 (ie. header) Mov CX, [SI+2] XChg CH, CL Sub CX, 30 ScreenTrace '2' Call FindConnection JC DESRRelisten ScreenTrace '3' ; Send acknowledgement PushA Push DS Push ES Mov BX, AX Mov SI, DI Call IT_ReceiveData ScreenTrace '4' Pop ES Pop DS PopA PushF Mov BX, AX ShL BX, 2 Mov EAX, [SI+12h] Mov ECX, [SI+16h] Mov DX, [SI+1Ah] Mov DI, [AckOffsets+BX] StosD Mov [DI], ECX Mov [DI+4], DX Mov SI, [AckOffsets+BX+2] Mov [SI+28], ECX Mov [SI+32], DX Mov Word Ptr [SI+2Ah], Offset Zero PopF JNC DESRNoBadPacket DESRBadPacket: ScreenTrace '5' Mov Word Ptr [SI+2Ah], Offset Ten Inc PacketsFailed DESRNoBadPacket: ScreenTrace '6' Mov BX, 3 Call [DWord Ptr IPXEntryAddress] ScreenTrace '7' Trace "R: Source recognised" Jmp DESRRelisten DESRRelisten: ScreenTrace '8' Pop SI Pop ES Trace "R: Packet relisten to socket" Mov BX, 4 ; Relisten to the socket. Call [DWord Ptr IPXEntryAddress] ScreenTrace '9' ScreenTraceEnd Pop DS PopAD PopF Ret EndP DataESR Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴 Proc SendDataGivenBX ; Given BX = Offset to SendPacketInfo stuff Mov SI, [BX] Mov DI, [BX+2] Mov CX, 6 Rep MovsW Sub SI, 8 Mov DI, [BX+4] Add DI, 28 ; Immediate address MovsW MovsW MovsW Inc PacketsSent Push AX Push BX Mov SI, [BX+4] Mov BX, LastPacketSize Mov AX, IPXSocket Mov [SI+0Ah], AX ; Socket Number Mov [SI+2Eh], BX Mov BX, 3 Call [DWord Ptr IPXEntryAddress] Pop BX Pop AX Ret EndP SendDataGivenBX ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴 SendPacketInformation DW Offset UserAddress1, Offset DataSendHeader1+6, Offset DataSendECB1 DW Offset UserAddress2, Offset DataSendHeader2+6, Offset DataSendECB2 DW Offset UserAddress3, Offset DataSendHeader3+6, Offset DataSendECB3 Proc SendITData Near PushAD PushF Push DS Push ES Push CS Push CS Pop ES Pop DS Assume DS:IPX Cmp SendingData, 0 JNE SendITDataCheckTime Mov AX, MAXDATASIZE Mov DI, Offset DataSend Call IT_SendData Test CX, CX JZ SendITDataEnd ; No Network Data to send Call IT_GetTime ; Returns EAX Mov SendTime, EAX Mov RetryTime, EAX Mov LastPacketSize, CX Mov AL, NumberOfConnections Mov BX, Offset SendPacketInformation Test AL, AL JZ SendITDataEnd Test DL, DL JNZ SendITDataSingle ; Have to send to all connections Mov CL, AL Mov CH, 1 ShL CH, CL Dec CH Mov SendingData, CH SendITData1: Trace "Sending broadcast packet" Call SendDataGivenBX Add BX, 6 Dec AL JNZ SendITData1 Jmp SendITDataEnd SendITDataSingle: Trace "Sending single packet" Cmp DL, AL JA SendITDataEnd ; Invalid destination Mov CL, AL Mov CH, 1 Dec CX ShL CH, CL Mov SendingData, CH ; Have to send to single destination Mov AL, 6 Mul DL ; AX = Destination*6 Add BX, AX Sub BX, 6 Call SendDataGivenBX Jmp SendITDataEnd SendITDataCheckTime: Mov DL, NumberOfConnections Test DL, DL JZ SendITDataEnd Call IT_GetTime Mov EBX, EAX Mov ECX, EAX Sub EBX, RetryTime Sub ECX, SendTime Cmp EBX, RETRYTIMEOUT JB SendITDataEnd ; Check for true timeout.. drop if so. Cmp ECX, SENDTIMEOUT JA SendITDataTimeout ; Else retry sending packet. Mov RetryTime, EAX Mov AL, SendingData Mov BX, Offset SendPacketInformation SendITDataRetry: ShR AL, 1 JNC SendITDataRetry2 Call SendDataGivenBX Inc PacketsRetry SendITDataRetry2: Add BX, 6 Dec DL JNZ SendITDataRetry Jmp SendITDataEnd SendITDataTimeout: Xor AX, AX ; AX = connection number Mov DH, SendingData SendITDataTimeout1: ShR DH, 1 JNC SendITDataTimeout2 Mov AH, 6 Mul AH Mov BX, AX Mov SI, Offset AutoDropMessage Mov DI, Offset InfoListMessage Mov CX, 20/2 Rep MovsW Mov SI, [SendPacketInformation+BX] Sub SI, 16 Mov CX, 16/2 Rep MovsW Mov BX, 100 Mov SI, Offset InfoListMessage Call IT_SetInfoLine Call RemoveFromGroup2 Jmp SendITDataEnd SendITDataTimeout2: Inc AX Dec DL JNZ SendITDataTimeout1 SendITDataEnd: Pop ES Pop DS PopF PopAD Ret EndP SendITData ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴 Proc SendDataESR Far Push DS PushF ScreenTraceStart Push CS Pop DS Assume DS:IPX ; Also ES = IPX ClD Trace "S: ESR" ScreenTrace 'A' Cmp Byte Ptr [SI+9], 0 ; Received packet successfully? JNE SDESRResend ScreenTrace 'B' Call SendITData ScreenTrace 'C' ScreenTraceEnd PopF Pop DS Ret SDESRResend: Inc PacketsFailed ScreenTrace 'D' Mov BX, 3 Call [DWord Ptr IPXEntryAddress] ScreenTrace 'E' ScreenTraceEnd PopF Pop DS Ret EndP SendDataESR Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴 MAXIMUMBLOCKTYPE = 10 MESRBlockOffsets Label Word DW Offset MESRBlockType0, Offset MESRBlockType1 DW Offset MESRBlockType2, Offset MESRBlockType3 DW Offset MESRBlockType4, Offset MESRBlockType5 DW Offset MESRBlockType6, Offset MESRBlockType7 DW Offset MESRBlockType8, Offset MESRBlockType9 DW Offset MESRBLockType10 ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴 Proc MaintenanceESR Far ; Given ES:SI = ECB PushF PushAD ScreenTraceStart Push DS Push SI ClD Push CS Pop DS Assume DS:IPX ; Also ES = IPX ScreenTrace 'a' Cmp Byte Ptr [SI+9], 0 ; Received packet successfully? JNE MESRRelisten ScreenTrace 'b' Mov DI, [SI+2Ah] ; Offset to fragment 2 Mov SI, [SI+24h] ; Offset to fragment 1 (ie. header) Mov DX, [DI] ; DL = block type Mov BX, DX And BX, 0FFh Cmp BL, MAXIMUMBLOCKTYPE JA MESRBlockTypeUnknown Add BX, BX Jmp [MESRBlockOffsets+BX] MESRBlockType0: ; Acknowledgement ScreenTrace 'c' Call FindConnection JC MESRBlockType0End Inc PacketsAck Mov CX, AX Mov AL, 0FEh RoL AL, CL And SendingData, AL ScreenTrace 'd' Call SendITData MESRBlockType0End: ScreenTrace 'e' Jmp MESRBlockTypeFinished ;****************************************************************************** MESRBlockType1: ; Intro ScreenTrace 'f' ; Cmp NumberOfConnections, 3 ; Don't respond if 3 connections already! ; JE MESRBlockType1End ; Ignore packets from self........ Call CheckFromSelf JE MESRBlockType1End ScreenTrace 'g' ; ................................. ; Now check whether destination was broadcast... Cmp Byte Ptr [DI+1], 0 JNE MESRBlockType1NoReply Cmp Word Ptr [SI+0Ah], 0FFFFh JNE MESRBlockType1NoReply Cmp DWord Ptr [SI+0Ch], 0FFFFFFFFh JNE MESRBlockType1NoReply Cmp NoReply, 0 JNE MESRBlockType1End ; Yes it was broadcast.. now reply.. ScreenTrace 'h' Mov AL, 1 Call SendConnectionData ScreenTrace 'i' MESRBlockType1NoReply: ScreenTrace 'j' ; Don't log if we don't want to log (ie. only log if current mode = 24) ; Cmp NumberOfConnections, 0 ; JNE MESRBlockType1End Call IT_GetCurrentMode Cmp AL, 24 JNE MESRBlockType1End ScreenTrace 'k' ; Don't log if already logged.. Mov EAX, [SI+20] ; Sender's ID Mov EDX, [SI+24] Call NodeSearch JC MESRBlockType1End ScreenTrace 'l' ; Don't have the node -> log it! LEA SI, [DI+2] Push CS Push DS Pop ES Pop DS Mov DI, NumNodes Xor DX, DX Cmp DI, 2000 JA MESRBlockType1End LodsB ShL DI, 5 Mov DL, AL Inc DX Xor AX, AX Add NumNodes, DX MESRBlockType1Transfer: StosW Mov CX, 26/2 Rep MovsW Inc AX Add DI, 4 Dec DX JNZ MESRBlockType1Transfer MESRBlockType1End: ScreenTrace 'm' Jmp MESRBlockTypeFinished ;****************************************************************************** MESRBlockType3: ; Quit ; Have to say farewell to direct connections ; also. Should cascade to MESRBlockType2 ScreenTrace 'n' Call RemoveFromGroup ;****************************************************************************** MESRBlockType2: ; Remove ; Only significant on connect driver screen ScreenTrace 'o' Cmp NumberOfConnections, 0 JNE MESRBlockType2End Call IT_GetCurrentMode Cmp AL, 24 JNE MESRBlockType2End ScreenTrace 'p' Mov EAX, [SI+20] ; Sender's ID Mov EDX, [SI+24] Call NodeSearch JNC MESRBlockType2End ; DS = DiskData ScreenTrace 'q' Push DS Pop ES Mov CX, CS:NumNodes Mov DI, BX ShL CX, 5 LEA SI, [BX+32] Xor AX, AX Sub CX, DI Rep MovsB Mov CX, 32/2 Rep StosW Mov SI, BX MESRBlockType2a: Cmp [SI], AX JE MESRBlockType2b Dec Word Ptr [SI] Add SI, 32 Jmp MESRBlockType2a MESRBlockType2b: ScreenTrace 'r' ShR BX, 5 Push CS Pop DS Dec NumNodes Cmp BX, CurrentNode JAE MESRBlockType2End Dec CurrentNode MESRBlockType2End: ScreenTrace 's' Jmp MESRBlockTypeFinished ;****************************************************************************** MESRBlockType4: ; Message ScreenTrace 't' Call CheckFromSelf JE MESRBlockType4End ; If NumberOfConnections = 0 && CurrentMode = 24, then check that name is logged Cmp NumberOfConnections, 0 JNE MESRBlockType4_6 Call IT_GetCurrentMode Cmp AL, 24 JNE MESRBlockType4_3 Push DS Push ES Mov EAX, [SI+20] ; Sender's ID Mov EDX, [SI+24] Call NodeSearch JC MESRBlockType4_4 ; Couldn't find node. Push DI Push SI Push CS Push DS Pop ES Pop DS LEA SI, [DI+1] Mov DI, NumNodes Cmp DI, 2000 JA MESRBlockType4_5 ShL DI, 5 Xor AX, AX StosW Mov CX, 16/2 Rep MovsW Pop SI Push SI Add SI, 18 Mov CX, 10/2 Rep MovsW Inc NumNodes MESRBlockType4_5: Pop SI Pop DI MESRBlockType4_4: Pop ES Pop DS Jmp MESRBlockType4_3 MESRBlockType4_6: ; Have connections.. only accept messages from group Call FindConnection JC MESRBlockType4End MESRBlockType4_3: Mov MessageReceived, 1 Push DI Mov SI, Offset MessageData+72 Mov DI, Offset MessageData Mov CX, (72*7)/2 Rep MovsW Pop SI LodsB Mov CX, 72/2 Rep MovsW Call IT_GetCurrentMode Cmp AL, 24 JE MESRBlockType4End Sub SI, 72 Mov DI, Offset InfoListMessage Mov CX, 61 Push SI MESRBlockType4_1: LodsB StosB Test AL, AL LoopNZ MESRBlockType4_1 Pop SI Mov Word Ptr [DI-1], ':'+ ' '*100h Inc DI Add SI, 16 Mov AX, 0FEh+2300h StosW MESRBlockType4_2: LodsB StosB Test AL, AL LoopNZ MESRBlockType4_2 Xor AL, AL StosB Mov BX, 150 Mov SI, Offset InfoListMessage Call IT_SetInfoLine MESRBlockType4End: Jmp MESRBlockTypeFinished ;****************************************************************************** MESRBlockType5: Call RemoveFromGroup Jmp MESRBlockTypeFinished ;****************************************************************************** MESRBlockType6: ; Request connection ; auto reject if: ; This node is requesting a connection ; Someone else is requesting a connection ; NumConnections already = 3 Cmp NumberOfConnections, 3 JE MESRBlockType6AutoReject Test ConnectionRequest, 0Fh JNE MESRBlockType6AutoReject Or ConnectionRequest, 2 ; Mark that someone is requesting a con ; Else prompt user ; Save connection request address Push DI Add SI, 18 ; Save address of connection requester Mov DI, Offset ConnectionRequestAddress Mov CX, 12/2 Rep MovsW Pop DI Inc DI Mov SI, DI Xor AL, AL Mov CX, 16 Push CX RepNE ScasB ; DI = one after 0 found Pop CX Sub DI, SI Mov DX, DI Sub CX, DI ShR CX, 1 Mov DI, Offset ConnectionRequestName Mov AL, ' ' Rep StosB Mov CX, DX Rep MovsB Mov IPXQueueScreen, 1 Jmp MESRBlockTypeFinished MESRBlockType6AutoReject: Call MaintenanceWaitforSend Call TransferDestinationAddress Push DI Mov SI, Offset AutoRejectMessage Mov DI, Offset InfoListMessage Mov CX, 26/2 Rep MovsW Pop SI Inc SI Mov CX, 16/2 Rep MovsW Mov BX, 100 Mov SI, Offset InfoListMessage Call IT_SetInfoLine Call ConnectionReject MESRBlockType6End: Jmp MESRBlockTypeFinished ;****************************************************************************** MESRBlockType7: ; Accept/Reject connection ; First verify that sender is the same as ConnectionRequestAddress and that ; connectionRequest Bit 0 is set. if not, then send negative confirmation Test [ConnectionRequest], 1 JZ MESRBlockType7Reject Push SI Push DI Mov CX, 10/2 Add SI, 18 ; Sender's address Mov DI, Offset ConnectionRequestAddress RepE CmpsW Pop DI Pop SI JNE MESRBlockType7Reject ; OK.. ; Connection rejected if DH = 0 Or ConnectionRequest, 80h ; Leave wait for connection request ; screen ShR DX, 8 JZ MESRBlockTypeFinished Call MaintenanceWaitforSend Call TransferDestinationAddress ; Connection accepted if DH != 0 ; Then copy DH*28 lots of bytes starting at UserName1 ; And set NumberOfConnections to DH ; Then call IT_EstablishConnection Mov NumberOfConnections, DL LEA SI, [DI+2] Mov DI, Offset UserName1 MESRBlockType7Accepted: Mov CX, 28/2 Rep MovsW Dec DX JNZ MESRBlockType7Accepted ; Send positive ack Mov SI, Offset UserName Mov DI, Offset MaintenanceSData Mov AX, 108h Mov CX, 28/2 StosW Rep MovsW Call IPX_MaintenanceSendData Call IT_NewConnection Jmp MESRBlockTypeFinished MESRBlockType7Reject: Test DH, DH ; If connection rejected, dont' send ; Further response. JZ MESRBlockType7End Mov DI, Offset MaintenanceSData Mov AX, 8 StosW Call IPX_MaintenanceSendData MESRBlockType7End: Jmp MESRBlockTypeFinished ;****************************************************************************** MESRBlockType8: ; Confirm connection ; Check whether connection was requested and whether this cancellation ; is from that sender. ; If Confirm connection is from ConnectionRequestAddress and ConnectRequest & 2 ; *OR* Confirm connection is from someone in the current group ; Then add user to user list, increment NumberOfConnections Cmp NumberOfConnections, 3 JE MESRBlockType8End Call FindConnection ; Was it from the group? JNC MESRBlockType8AddUser ; Yes -> Add user Push SI Push DI Add SI, 12h Mov DI, Offset ConnectionRequestAddress Mov CX, 12/2 RepE CmpsW Pop DI Pop SI JNE MESRBlockType8End Test DH, DH ; Cancelled? JZ MESRBlockType8ScreenRefresh ; If received from group, then don't send ; If not received from group, then send to rest of group. ; Establish connection ; If NumConnections != 0 ; then send connection establishment to all ; other connected users. ; Send to the rest of the group! Mov AL, NumberOfConnections Push AX Inc AL Call IT_EstablishConnection Pop AX Test AL, AL JZ MESRBlockType8AddUser Call MaintenanceWaitforSend Push DI Mov SI, DI Mov DI, Offset MaintenanceSData Mov CX, 30/2 Rep MovsW Mov SI, Offset UserAddress1 Mov [MaintenanceSendHeader], Offset MaintenanceSendHeaderDirected Mov [MaintenanceSendDataOffset], Offset MaintenanceSData Mov [MaintenanceSendDataSize], 30 MESRBlockType8Group1: Push AX Push SI Mov DI, Offset MaintenanceDirectedDestination Mov CX, 10/2 Rep MovsW Mov AX, 'IT' StosW Call SendMaintenancePacket Pop SI Pop AX Dec AL JZ MESRBlockType8GroupEnd Add SI, 28 Call MaintenanceWaitforSend Jmp MESRBlockType8Group1 MESRBlockType8GroupEnd: Pop DI MESRBlockType8AddUser: LEA SI, [DI+2] Mov AL, 28 Mul NumberOfConnections Mov DI, AX Add DI, Offset UserName1 Mov CX, 28/2 Rep MovsW Inc NumberOfConnections MESRBlockType8ScreenRefresh: Or ConnectionRequest, 80h MESRBlockType8End: Jmp MESRBlockTypeFinished ;****************************************************************************** MESRBlockType9: ; Request intro ; Mov [MaintenanceSendHeader], Offset MaintenanceSendHeaderDirected Mov AL, 1 Call SendConnectionData Jmp MESRBlockTypeFinished ;****************************************************************************** MESRBlockType10: ; Resend data Call FindConnection JC MESRBlockType10End Inc PacketsRetry Mov AH, 6 Mul AH Mov BX, AX Add BX, Offset SendPacketInformation Call SendDataGivenBX MESRBlockType10End: Jmp MESRBlockTypeFinished MESRBlockTypeUnknown: Mov BX, 72 Mov SI, Offset UnknownPacketMessage Call IT_SetInfoLine MESRBlockTypeFinished: ; Should process the info, respond if necessary and set the packet back ; for listening. MESRRelisten: Push CS Push CS Pop ES Pop DS Pop SI ScreenTrace 'z' Mov BX, 4 ; Relisten to the socket. Call [DWord Ptr IPXEntryAddress] ScreenTrace 'Z' Pop DS ScreenTraceEnd PopAD PopF Ret EndP MaintenanceESR Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴 Proc MaintenanceWaitForSend PushF PushAD Push DS ScreenTraceStart Push CS Pop DS Assume DS:IPX Call IT_GetTime ; Returns EAX Mov EDX, EAX SendMaintenancePacket1: Cmp [SendECBInUse], 0 JE SendMaintenancePacket2 StI Mov BX, 0Ah ; IPX processing. Call [DWord Ptr IPXEntryAddress] Mov EBX, EDX Call IT_GetTime Sub EBX, EAX Cmp EBX, MAINTENANCETIMEOUT JB SendMaintenancePacket1 ; Error message! SendMaintenancePacket2: ScreenTraceEnd Pop DS PopAD PopF Ret EndP MaintenanceWaitForSend Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴 Proc SendMaintenancePacket PushAD Push DS Push ES Push CS Push CS Pop ES Pop DS Assume DS:IPX Call MaintenanceWaitForSend Mov SI, [MaintenanceSendHeader] Mov DI, Offset MSendDest Add SI, 10 MovsW MovsW MovSW Mov BX, 3 Mov SI, Offset MaintenanceSendECB Call [DWord Ptr IPXEntryAddress] Pop ES Pop DS PopAD Ret EndP SendMaintenancePacket Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴 Proc DetectIPXNetwork Far ; IPX detection. Push CS Pop DS Assume DS:IPX IF FIXEDUSERNAME Mov CX, 18 Mov SI, Offset UserName ELSE Xor CX, CX ENDIF Call IT_DecodeUserName Mov AX, 7A00h Int 2Fh Sub AL, 0FFh JC DetectIPXNetwork1 Mov [Word Ptr IPXEntryAddress], DI Mov [Word Ptr IPXEntryAddress+2], ES Mov BX, 1Ah Call [DWord Ptr IPXEntryAddress] Mov [IPXMaximumPacketSize], AX Mov [IPXRetryCount], CX Push CS Pop ES Mov BX, 9 Mov SI, Offset IPXLocalAddress Call [DWord Ptr IPXEntryAddress] ClC DetectIPXNetwork1: Ret EndP DetectIPXNetwork Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴 Macro_SetupListenDataPackets Macro Index Mov DSocket&Index&, DX EndM Macro_ListenDataPackets Macro Index Mov SI, Offset DataReceiveECB&Index& Call [DWord Ptr IPXEntryAddress] EndM Proc IPX_Initialise Far Push CS Pop DS Assume DS:IPX Trace "IPX: Initialise" Mov SI, Offset RelocationTable IPX_RelocationFixup: LodsW Test AX, AX JZ IPX_RelocationEnd Mov BX, AX Mov [BX], DS Jmp IPX_RelocationFixup IPX_RelocationEnd: Mov EAX, IT_DrawHeader Mov EBX, IT_FillHeader Mov ECX, IdleUpdateInfoLine Mov EDX, GlobalKeyList Mov DrawHeader2, EAX Mov FillHeader2, EBX Mov IdleFunctionList, ECX Mov IdleFunctionList2, ECX Mov GlobalKeyLink2, EDX Call DetectIPXNetwork JNC IPX_Initialise1 Push DS Push Offset NoIPXMessageList Jmp IPX_InitialiseReturn IPX_Initialise1: Xor AL, AL Xor BX, BX ; Open socket Mov DX, 'IT' Call [DWord Ptr IPXEntryAddress] Test AL, AL JNZ IPX_InitialiseError1 Xor AL, AL Xor BX, BX Xor DX, DX Call [DWord Ptr IPXEntryAddress] Test AL, AL JNZ IPX_InitialiseError2 Mov IPXSocket, DX IndexCounter = 1 Rept NUMBEROFLISTENINGPACKETS Macro_SetupListenDataPackets %IndexCounter IndexCounter = IndexCounter + 1 EndM IPX_Initialise2: IFE FIXEDUSERNAME ; OK.. ask for user name. Push DS Push Offset IPXGetName Call IT_FunctionHandler Push CS Pop DS Test DX, DX JNZ IPX_Initialise3 Jmp IPX_Shutdown1 IPX_Initialise3: ENDIF ; Setup to listen for packets! Push CS Pop ES Mov BX, 4 Mov SI, Offset MaintenanceECB1 Call [DWord Ptr IPXEntryAddress] Mov SI, Offset MaintenanceECB2 Call [DWord Ptr IPXEntryAddress] Mov SI, Offset MaintenanceECB3 Call [DWord Ptr IPXEntryAddress] Mov SI, Offset MaintenanceECB4 Call [DWord Ptr IPXEntryAddress] IndexCounter = 1 Rept NUMBEROFLISTENINGPACKETS Macro_ListenDataPackets %IndexCounter IndexCounter = IndexCounter + 1 EndM Jmp IPX_DriverScreen IPX_InitialiseError2: ; Close socket. Mov BX, 1 Mov DX, 'IT' Call [DWord Ptr IPXEntryAddress] IPX_InitialiseError1: Push DS Push Offset SocketErrorList IPX_InitialiseReturn: Call IT_FunctionHandler Jmp IT_UnloadDriver EndP IPX_Initialise Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴 Proc BroadcastMaintenanceByte ; Given AL Call MaintenanceWaitforSend Mov [ByteBlock], AL Mov [MaintenanceSendHeader], Offset MaintenanceSendHeaderBroadcast Mov [MaintenanceSendDataOffset], Offset ByteBlockInformation Mov [MaintenanceSendDataSize], 1 Call SendMaintenancePacket Ret EndP BroadcastMaintenanceByte ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴 Proc IPX_DriverScreen Far Push CS Pop DS Assume DS:IPX Mov ES, DiskDataArea Xor DI, DI Mov CX, 32768 Xor AX, AX Rep StosW Cmp NumberOfConnections, 0 JE IPX_DriverScreen1 ; Alternative screens here for post-connection. Mov AX, 5 Mov SI, 1 Mov DI, AX Mov DX, Offset IPXConnectedScreen Mov CX, CS Ret IPX_DriverScreen1: Mov OldNumNodes, 0 Mov NumNodes, 0 Mov CurrentNode, 0 ; Call MaintenanceWaitforSend ; Mov [MaintenanceSendHeader], Offset MaintenanceSendHeaderBroadcast Xor AX, AX Call SendConnectionData Mov AX, 5 Mov SI, 1 Mov DI, AX Mov DX, Offset IPXScreen Mov CX, CS Ret EndP IPX_DriverScreen Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴 Proc IPX_Shutdown Far ; Shutdown has to: ; free all allocated ; Transmit logoff message ; release any allocated sockets ; Unload driver IFE FIXEDUSERNAME Call IT_GotoHomeDirectory ENDIF Push CS Pop DS Assume DS:IPX IFE FIXEDUSERNAME ; Now to save config into driver file. Mov AX, 3D02h ; Read write access Mov DX, Offset DriverName Int 21h JC SaveConfiguration2 Mov BX, AX Mov AX, 4200h Xor CX, CX Mov DX, Offset CONFIGURATIONOFFSET Int 21h JC SaveConfiguration1 Mov AH, 40h Mov CX, CONFIGURATIONSIZE Mov DX, Offset UserName Int 21h SaveConfiguration1: Mov AH, 3Eh Int 21h SaveConfiguration2: ENDIF Mov AL, 3 ; Block type 3 = quit Call BroadcastMaintenanceByte IPX_Shutdown1: ; Free both sockets Mov BX, 1 Mov DX, 'IT' ; Release maintenance socket. Call [DWord Ptr IPXEntryAddress] Mov DX, IPXSocket Call [DWord Ptr IPXEntryAddress] Jmp IT_UnloadDriver EndP IPX_Shutdown Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴 Proc IPX_LeaveSession Far Mov AL, 5 ; Log off from group. Call BroadcastMaintenanceByte Mov CS:NumberOfConnections, 0 Jmp IPX_DriverScreen EndP IPX_LeaveSession ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴 Proc IPX_Update Far Push CS Pop DS Assume DS:IPX Xor AX, AX XChg IPXQueueScreen, AX Test AX, 1 JZ IPX_Update2 Push AX ; For Connection requests.. And ConnectionRequest, 0Fh Call IT_S_SaveScreen Push CS Push Offset ConnectionRequestList Call IT_FunctionHandler Push CS Push CS Pop DS Pop ES Call IT_S_RestoreScreen ; Transfer destination address Mov SI, Offset ConnectionRequestAddress Mov DI, Offset MaintenanceDirectedDestination Mov CX, 12/2 Rep MovsW Cmp DX, 1 JB IPX_UpdateConnectionReject JA IPX_UpdateConnectionCancelled IPX_UpdateConnectionAccept: ; Have to send complete info about all connnections back ; including socket numbers Mov AH, NumberOfConnections Mov DI, Offset MaintenanceSData Mov AL, 7 Mov SI, Offset UserName Inc AH Mov CX, ((16+12)*3)/2 StosW Rep MovsW Call IPX_MaintenanceSendData Jmp IPX_UpdateConnectionEnd IPX_UpdateConnectionReject: Call ConnectionReject Jmp IPX_UpdateConnectionEnd IPX_UpdateConnectionCancelled: Push CS Push Offset ConnectionCancelledList Call IT_FunctionHandler Call IT_S_RestoreScreen IPX_UpdateConnectionEnd: And ConnectionRequest, Not 2 Pop AX IPX_Update3: Mov BX, 0Ah ; Relinquish control Call [DWord Ptr IPXEntryAddress] Mov AX, 1 Ret ; Redraw required. IPX_Update2: Call SendITData Call IT_GetCurrentMode Cmp AL, 24 JE IPX_Update3 IPX_UpdateEnd: Mov BX, 0Ah ; Relinquish control Call [DWord Ptr IPXEntryAddress] Xor AX, AX XChg AL, PacketReceived Ret EndP IPX_Update Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴 Proc IPX_DrawHexNumber ; Given AL = Number LodsB Mov DH, AL ShR AL, 4 Cmp AL, 10 SBB AL, 69h DAS StosW Mov AL, DH And AL, 0Fh Cmp AL, 10 SBB AL, 69h DAS StosW Ret EndP IPX_DrawHexNumber ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴 Proc IPX_DrawAddress Mov CX, 3 IPX_DrawAddress1: Call IPX_DrawHexNumber Mov AL, ':' StosW Loop IPX_DrawAddress1 Call IPX_DrawHexNumber Mov AL, ' ' StosW Mov CX, 5 IPX_DrawAddress2: Call IPX_DrawHexNumber Mov AL, ':' StosW Loop IPX_DrawAddress2 Call IPX_DrawHexNumber Ret EndP IPX_DrawAddress ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴 Proc IPX_DrawConnect Far Push CS Pop DS Assume DS:IPX Call IT_S_GetDestination ; Gets ES Mov AX, 168+200h Mov DI, (13*80+22)*2 Mov CX, 23 IPX_DrawConnect2: StosW Add DI, 158 Loop IPX_DrawConnect2 Cmp [NumNodes], 0 JNE IPX_DrawConnect1 Ret IPX_DrawConnect1: Mov SI, [TopNode] Mov DX, [NumNodes] Mov BX, [CurrentNode] Cmp BX, DX JB IPX_DrawConnectClip3 Mov BX, DX Dec BX Mov [CurrentNode], BX IPX_DrawConnectClip3: ; Need to make sure they're within bounds. Cmp BX, SI JAE IPX_DrawConnectClip1 Mov SI, BX IPX_DrawConnectClip1: LEA DI, [SI+22] Cmp BX, DI JBE IPX_DrawConnectClip2 LEA SI, [BX-22] IPX_DrawConnectClip2: Mov DI, (13*80+3)*2 Mov [TopNode], SI Sub DX, SI JZ IPX_DrawConnectEnd ShL SI, 5 Mov DS, [DiskDataArea] Assume DS:Nothing Cmp DX, 23 JB IPX_DrawConnectClip Mov DX, 23 IPX_DrawConnectClip: Push DI LodsW Mov AH, 3 Mov CX, 16 Test AL, AL JZ IPX_DrawConnectUserName Add DI, 4 IPX_DrawConnectUserName: LodsB StosW Loop IPX_DrawConnectUserName Pop DI Add DI, 40 Call IPX_DrawAddress Add SI, 4 Add DI, 62 Dec DL JNZ IPX_DrawConnectClip Mov CL, 0E0h Jmp IPX_PreConnectChain IPX_DrawConnectEnd: Ret EndP IPX_DrawConnect ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴 Proc IPX_PreConnect Far Mov CL, 30h IPX_PreConnectChain: Push CS Pop DS Assume DS:IPX Cmp [NumNodes], 0 JE IPX_PreConnectEnd Mov AX, [CurrentNode] Sub AX, [TopNode] Add AX, 13 Mov BX, 160 Mul BX Call IT_S_GetDestination Mov DL, CL Mov DH, CL Or DH, 2 LEA DI, [EAX+6] Mov CX, 49 IPX_PreConnectScreen1: Mov AX, [ES:DI] Mov AH, DL Cmp CX, 49-19 JNE IPX_PreConnectScreen2 Mov AH, DH IPX_PreConnectScreen2: StosW Loop IPX_PreConnectScreen1 IPX_PreConnectEnd: Ret EndP IPX_PreConnect Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴 Proc IPX_PostConnect Far Push CS Pop DS Assume DS:IPX Mov SI, Offset ConnectKeys Call IT_FunctionDivider JC IPX_PostConnect1 Jmp [Word Ptr SI] IPX_PostConnect1: Xor AX, AX Ret Xor AX, AX Ret EndP IPX_PostConnect ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴 Proc IPX_ConnectUp Far Assume DS:IPX Mov AX, 1 Sub CurrentNode, AX AdC CurrentNode, 0 Ret EndP IPX_ConnectUp Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴 Proc IPX_ConnectDown Far Assume DS:IPX Mov AX, 1 Add CurrentNode, AX Ret EndP IPX_ConnectDown Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴 Proc IPX_ConnectPgUp Far Assume DS:IPX Mov AX, CurrentNode Sub AX, 24 JNC IPX_ConnectPgUp1 Xor AX, AX IPX_ConnectPgUp1: Mov CurrentNode, AX Mov AX, 1 Ret EndP IPX_ConnectPgUp Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴 Proc IPX_ConnectPgDn Far Assume DS:IPX Add CurrentNode, 24 Mov AX, 1 Ret EndP IPX_ConnectPgDn Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴 Proc IPX_ConnectHome Far Mov CurrentNode, 0 Mov AX, 1 Ret EndP IPX_ConnectHome ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴 Proc IPX_ConnectEnd Far Mov CurrentNode, 1000 Mov AX, 1 Ret EndP IPX_ConnectEnd ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴 Proc IPX_ConnectTab Far Assume DS:IPX Mov AX, 6 StosW Mov AX, 1 Ret EndP IPX_ConnectTab Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴 Proc IPX_GetDestinationAddress Push CS Push CS Pop DS Pop ES Assume DS:IPX Cmp NumNodes, 1 JB IPX_GetDestinationAddress1 Mov SI, CurrentNode Mov DI, Offset MaintenanceDirectedDestination ShL SI, 5 Mov CX, 10/2 Add SI, 18 ; SI = offset to node address Push DS Mov DS, DiskDataArea Rep MovsW Mov AX, 'IT' StosW ; Destination socket is maintenance socket. Pop DS ClC IPX_GetDestinationAddress1: Ret EndP IPX_GetDestinationAddress Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴 Proc IPX_MaintenanceSendData Mov [MaintenanceSendHeader], Offset MaintenanceSendHeaderDirected Proc IPX_MaintenanceSendDataNoHeader Sub DI, Offset MaintenanceSData Mov [MaintenanceSendDataOffset], Offset MaintenanceSData Mov [MaintenanceSendDataSize], DI Call SendMaintenancePacket Ret EndP IPX_MaintenanceSendDataNoHeader EndP IPX_MaintenanceSendData ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴 Proc SendConnectionData Assume DS:IPX PushA Push DS Pop ES Call MaintenanceWaitforSend Mov [MaintenanceSendHeader], Offset MaintenanceSendHeaderBroadcast Test AX, AX JZ SendConnectionData2 Call TransferDestinationAddress Mov [MaintenanceSendHeader], Offset MaintenanceSendHeaderDirected SendConnectionData2: Mov DI, Offset MaintenanceSData Mov SI, Offset IntroBlockInformation MovsB StosB MovSB Mov DL, NumberOfConnections SendConnectionData1: Mov CX, (16+10)/2 Rep MovsW LodsW Dec DL JNS SendConnectionData1 Call IPX_MaintenanceSendDataNoHeader PopA Ret EndP SendConnectionData Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴 Proc IPX_ConnectEnter Far ; Have to request a connection Call IPX_GetDestinationAddress JC IPX_ConnectEnter1 Assume DS:IPX Or ConnectionRequest, 1 Push DS Mov DS, DiskDataArea Assume DS:Nothing Sub SI, 26 Mov DI, Offset ConnectionRequestName Mov CX, 26/2 Rep MovsW Pop DS Assume DS:IPX Mov SI, Offset UserName Mov DI, Offset MaintenanceSData Mov AL, 6 StosB Mov CX, 16/2 Rep MovsW Call IPX_MaintenanceSendData Push DS Push Offset WaitforConnectList Call IT_FunctionHandler Push CS Push CS Pop DS Pop ES And ConnectionRequest, Not 1 ; If DX = 0, then connection was cancelled ; If DX = 1, then either connected or cancelled. Test DX, DX JNZ IPX_ConnectEnter2 ; Connection cancelled. Mov SI, Offset ConnectionRequestAddress Mov DI, Offset MaintenanceDirectedDestination Mov CX, 10/2 Rep MovsW Mov AX, 'IT' StosW Mov DI, Offset MaintenanceSData Mov AX, 8 StosW Call IPX_MaintenanceSendData Jmp IPX_ConnectEnter1 IPX_ConnectEnter2: Cmp NumberOfConnections, 0 JNE IPX_ConnectEnter3 ; Connection rejected Push DS Push Offset ConnectionRejectedList Call IT_FunctionHandler Jmp IPX_ConnectEnter1 IPX_ConnectEnter3: ; Connection established IPX_ConnectEnter1: Mov AX, 1 Ret EndP IPX_ConnectEnter ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴 Proc IPX_SendGroupMessage Far Push CS Pop DS Cmp MessageEntryArea, 0 JE IPX_SendMessageEnd Mov SI, Offset UserName Mov DI, Offset MessageSenderName Mov CX, 16/2 Rep MovsW Mov [MaintenanceSendHeader], Offset MaintenanceSendHeaderDirected Mov [MaintenanceSendDataOffset], Offset MessageBlock Mov [MaintenanceSendDataSize], 73 Mov SI, Offset UserAddress1 Mov DL, NumberOfConnections IPX_SendGroupMessage1: Mov DI, Offset MaintenanceDirectedDestination Mov CX, 10/2 Rep MovsW Mov AX, 'IT' StosW Call SendMaintenancePacket Add SI, 18 Dec DL JNZ IPX_SendGroupMessage1 Jmp IPX_SendMessageChain ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴 Proc IPX_SendMessage Far Push CS Pop DS Cmp MessageEntryArea, 0 JE IPX_SendMessageEnd Mov SI, Offset UserName Mov DI, Offset MessageSenderName Mov CX, 16/2 Rep MovsW Mov [MaintenanceSendHeader], Offset MaintenanceSendHeaderBroadcast Mov [MaintenanceSendDataOffset], Offset MessageBlock Mov [MaintenanceSendDataSize], 73 Call SendMaintenancePacket ; Wait until sent, then does this.. IPX_SendMessageChain: Call MaintenanceWaitForSend Mov SI, Offset MessageData+72 Mov DI, Offset MessageData Mov CX, 72*7/2 Rep MovsW Mov SI, Offset MessageSenderName Mov CX, 72/2 Rep MovsW Xor AX, AX Mov DI, Offset MessageEntryArea Mov CX, 56/2 Rep StosW IPX_SendMessageEnd: Mov AX, 1 Ret EndP IPX_SendMessage EndP IPX_SendGroupMessage ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴 Proc IPX_ShowConnectionDetails Far Push CS Pop DS Assume DS:IPX MOv DX, 1 Mov DI, (4+15*80)*2 Mov BX, Offset UserName1 Call IT_S_GetDestination IPX_ShowConnectionDetailsLoop: ; Want to show: ; Connection %d ; User name: %s ; User address: [hex] ; (Bytes transferred) Push DX Mov AH, 20h Mov SI, Offset ConnectionNumberMsg Call IT_S_DrawString Mov SI, BX Mov CX, 16 IPX_ShowConnectionDetails1: LodsB StosW Loop IPX_ShowConnectionDetails1 Push SI Add DI, 104 Mov SI, Offset ConnectionAddressMsg Call IT_S_DrawString Pop SI Call IPX_DrawAddress Mov AL, ' ' StosW Call IPX_DrawHexNumber Call IPX_DrawHexNumber Mov BX, SI Add DI, 62+160 Pop DX Inc DX Cmp DL, NumberOfConnections JBE IPX_ShowConnectionDetailsLoop Ret EndP IPX_ShowConnectionDetails Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴 Proc IPX_DisplayMessages Far Push CS Pop DS Assume DS:IPX Call IT_S_GetDestination Mov CX, 8 Mov DI, (38*80+3)*2 Mov SI, Offset MessageData IPX_DisplayMessages1: Cmp Byte Ptr [SI], 0 JE IPX_DisplayMessages4 Push SI Push DI Push SI Mov AH, 3 IPX_DisplayMessages2: LodSB Test AL, AL JZ IPX_DisplayMessages5 StosW Jmp IPX_DisplayMessages2 IPX_DisplayMessages5: Pop SI Add SI, 16 Mov AL, ':' StosW Mov AL, ' ' StosW Mov AH, 2 IPX_DisplayMessages3: LodsB StosW Test AL, AL JNZ IPX_DisplayMessages3 Pop DI Pop SI IPX_DisplayMessages4: Add SI, 72 Add DI, 160 Loop IPX_DisplayMessages1 Ret EndP IPX_DisplayMessages Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴 Proc IPX_ConnectionStatus Far; Returns 0 if not connected ; Otherwise returns connection count Mov AL, CS:NumberOfConnections Ret EndP IPX_ConnectionStatus ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴 EndDriver: ProvidedVariableTableStart: DB NUMPROVIDEDVARIABLES-($-ProvidedVariableTableStart) Dup (0) ProvidedProcedureTableStart: DW Offset IPX_Initialise DW Offset IPX_Shutdown DW Offset IPX_DriverScreen DW Offset IPX_Update DW Offset IPX_ConnectionStatus DW NUMPROVIDEDFUNCTIONS - ($-ProvidedProcedureTableStart)/4 Dup (0) ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴 EndS End