gscifs/Library/TCPIP.Macs.s
2015-05-09 15:40:04 -04:00

631 lines
9.6 KiB
ArmAsm

*=================================================
*
* TCPIP.MACS.S - Developer macros for Marinetti
*
* Copyright (C) 1997-2003 Richard Bennett-Forrest
*
* This library is free software; you can redistribute it and/or
* modify it under the terms of the GNU Lesser General Public
* License as published by the Free Software Foundation; either
* version 2.1 of the License, or (at your option) any later version.
*
* This library is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
* Lesser General Public License for more details.
*
* You should have received a copy of the GNU Lesser General Public
* License along with this library; if not, write to the Free Software
* Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
*
*=================================================
*
* 2000.08.12 RJB Initial release as open source
* 2003.07.05 AJR Update for Marinetti 3.0
*
*=================================================
~TCPIPBootInit MAC
_TCPIPBootInit MAC
LDX #$0100+$36
JSL $E10000
<<<
~TCPIPStartUp MAC
_TCPIPStartUp MAC
LDX #$0200+$36
JSL $E10000
<<<
~TCPIPShutDown MAC
_TCPIPShutDown MAC
LDX #$0300+$36
JSL $E10000
<<<
~TCPIPVersion MAC
PHA
_TCPIPVersion MAC
LDX #$0400+$36
JSL $E10000
<<<
~TCPIPReset MAC
_TCPIPReset MAC
LDX #$0500+$36
JSL $E10000
<<<
~TCPIPStatus MAC
PHA
_TCPIPStatus MAC
LDX #$0600+$36
JSL $E10000
<<<
~TCPIPLongVersion MAC
PHS 2
_TCPIPLongVersion MAC
LDX #$0800+$36
JSL $E10000
<<<
~TCPIPGetConnectStatus MAC
PHA
_TCPIPGetConnectStatus MAC
LDX #$0900+$36
JSL $E10000
<<<
~TCPIPGetErrorTable MAC
PHS 2
_TCPIPGetErrorTable MAC
LDX #$0A00+$36
JSL $E10000
<<<
~TCPIPGetReconnectStatus MAC
PHA
_TCPIPGetReconnectStatus MAC
LDX #$0B00+$36
JSL $E10000
<<<
~TCPIPReconnect MAC
PHL ]1
_TCPIPReconnect MAC
LDX #$0C00+$36
JSL $E10000
<<<
~TCPIPConvertIPToHex MAC
PxL ]1;]2
_TCPIPConvertIPToHex MAC
LDX #$0D00+$36
JSL $E10000
<<<
~TCPIPConvertIPCToHex MAC
PxL ]1;]2
_TCPIPConvertIPCToHex MAC
LDX #$3F00+$36
JSL $E10000
<<<
~TCPIPConvertIPToASCII MAC
PHA
PxL ]1;]2
PHW ]3
_TCPIPConvertIPToASCII MAC
LDX #$0E00+$36
JSL $E10000
<<<
~TCPIPConvertIPToCASCII MAC
PHA
PxL ]1;]2
PHW ]3
_TCPIPConvertIPToCASCII MAC
LDX #$5800+$36
JSL $E10000
<<<
~TCPIPGetMyIPAddress MAC
PHS 2
_TCPIPGetMyIPAddress MAC
LDX #$0F00+$36
JSL $E10000
<<<
~TCPIPGetConnectMethod MAC
PHA
_TCPIPGetConnectMethod MAC
LDX #$1000+$36
JSL $E10000
<<<
~TCPIPSetConnectMethod MAC
PHW ]1
_TCPIPSetConnectMethod MAC
LDX #$1100+$36
JSL $E10000
<<<
~TCPIPConnect MAC
PHL ]1
_TCPIPConnect MAC
LDX #$1200+$36
JSL $E10000
<<<
~TCPIPDisconnect MAC
PHWL ]1;]2
_TCPIPDisconnect MAC
LDX #$1300+$36
JSL $E10000
<<<
~TCPIPGetMTU MAC
PHA
_TCPIPGetMTU MAC
LDX #$1400+$36
JSL $E10000
<<<
~TCPIPGetConnectData MAC
PHS 2
PxW ]1;]2
_TCPIPGetConnectData MAC
LDX #$1600+$36
JSL $E10000
<<<
~TCPIPSetConnectData MAC
PHWL ]1;]2
_TCPIPSetConnectData MAC
LDX #$1700+$36
JSL $E10000
<<<
~TCPIPGetDisconnectData MAC
PHS 2
PxW ]1;]2
_TCPIPGetDisconnectData MAC
LDX #$1800+$36
JSL $E10000
<<<
~TCPIPSetDisconnectData MAC
PHWL ]1;]2
_TCPIPSetDisconnectData MAC
LDX #$1900+$36
JSL $E10000
<<<
~TCPIPLoadPreferences MAC
_TCPIPLoadPreferences MAC
LDX #$1A00+$36
JSL $E10000
<<<
~TCPIPSavePreferences MAC
_TCPIPSavePreferences MAC
LDX #$1B00+$36
JSL $E10000
<<<
~TCPIPGetTuningTable MAC
PHL ]1
_TCPIPGetTuningTable MAC
LDX #$1E00+$36
JSL $E10000
<<<
~TCPIPSetTuningTable MAC
PHL ]1
_TCPIPSetTuningTable MAC
LDX #$1F00+$36
JSL $E10000
<<<
~TCPIPGetDNS MAC
PHL ]1
_TCPIPGetDNS MAC
LDX #$1C00+$36
JSL $E10000
<<<
~TCPIPSetDNS MAC
PHL ]1
_TCPIPSetDNS MAC
LDX #$1D00+$36
JSL $E10000
<<<
~TCPIPCancelDNR MAC
PHL ]1
_TCPIPCancelDNR MAC
LDX #$2000+$36
JSL $E10000
<<<
~TCPIPDNRNameToIP MAC
PxL ]1;]2
_TCPIPDNRNameToIP MAC
LDX #$2100+$36
JSL $E10000
<<<
~TCPIPPoll MAC
_TCPIPPoll MAC
LDX #$2200+$36
JSL $E10000
<<<
~TCPIPLogin MAC
PHS
PHWL ]1;]2
PxW ]3;]4;]5
_TCPIPLogin MAC
LDX #$2300+$36
JSL $E10000
<<<
~TCPIPLogout MAC
PHW ]1
_TCPIPLogout MAC
LDX #$2400+$36
JSL $E10000
<<<
~TCPIPSendICMP MAC
PHW ]1
PHLW ]2;]3
_TCPIPSendICMP MAC
LDX #$2500+$36
JSL $E10000
<<<
~TCPIPSendUDP MAC
PHW ]1
PHLW ]2;]3
_TCPIPSendUDP MAC
LDX #$2600+$36
JSL $E10000
<<<
~TCPIPGetDatagramCount MAC
PHA
PxW ]1;]2
_TCPIPGetDatagramCount MAC
LDX #$2700+$36
JSL $E10000
<<<
~TCPIPGetNextDatagram MAC
PHS 2
PxW ]1;]2;]3
_TCPIPGetNextDatagram MAC
LDX #$2800+$36
JSL $E10000
<<<
~TCPIPGetLoginCount MAC
PHA
_TCPIPGetLoginCount MAC
LDX #$2900+$36
JSL $E10000
<<<
~TCPIPSendICMPEcho MAC
PxW ]1;]2
_TCPIPSendICMPEcho MAC
LDX #$2A00+$36
JSL $E10000
<<<
~TCPIPReceiveICMPEcho MAC
PHA
PHW ]1
_TCPIPReceiveICMPEcho MAC
LDX #$2B00+$36
JSL $E10000
<<<
~TCPIPOpenTCP MAC
PHA
PHW ]1
_TCPIPOpenTCP MAC
LDX #$2C00+$36
JSL $E10000
<<<
~TCPIPWriteTCP MAC
PHA
PHW ]1
PxL ]2;]3
PxW ]4;]5
_TCPIPWriteTCP MAC
LDX #$2D00+$36
JSL $E10000
<<<
~TCPIPReadTCP MAC
PHA
PxW ]1;]2
PxL ]3;]4;]5
_TCPIPReadTCP MAC
LDX #$2E00+$36
JSL $E10000
<<<
~TCPIPCloseTCP MAC
PHA
PHW ]1
_TCPIPCloseTCP MAC
LDX #$2F00+$36
JSL $E10000
<<<
~TCPIPAbortTCP MAC
PHA
PHW ]1
_TCPIPAbortTCP MAC
LDX #$3000+$36
JSL $E10000
<<<
~TCPIPStatusTCP MAC
PHA
PHWL ]1;]2
_TCPIPStatusTCP MAC
LDX #$3100+$36
JSL $E10000
<<<
~TCPIPGetSourcePort MAC
PHA
PHW ]1
_TCPIPGetSourcePort MAC
LDX #$3200+$36
JSL $E10000
<<<
~TCPIPGetTOS MAC
PHA
PHW ]1
_TCPIPGetTOS MAC
LDX #$3300+$36
JSL $E10000
<<<
~TCPIPSetTOS MAC
PxW ]1;]2
_TCPIPSetTOS MAC
LDX #$3400+$36
JSL $E10000
<<<
~TCPIPGetTTL MAC
PHA
PHW ]1
_TCPIPGetTTL MAC
LDX #$3500+$36
JSL $E10000
<<<
~TCPIPSetTTL MAC
PxW ]1;]2
_TCPIPSetTTL MAC
LDX #$3600+$36
JSL $E10000
<<<
~TCPIPSetSourcePort MAC
PHW ]1;]2
_TCPIPSetSourcePort MAC
LDX #$3700+$36
JSL $E10000
<<<
~TCPIPSendIPDatagram MAC
PHL ]1
_TCPIPSendIPDatagram MAC
LDX #$4000+$36
JSL $E10000
<<<
~TCPIPConvertIPToClass MAC
PHS
PHL ]1
_TCPIPConvertIPToClass MAC
LDX #$4100+$36
JSL $E10000
<<<
~TCPIPGetConnectMsgFlag MAC
PHS
_TCPIPGetConnectMsgFlag MAC
LDX #$4200+$36
JSL $E10000
<<<
~TCPIPSetConnectMsgFlag MAC
PHW ]1
_TCPIPSetConnectMsgFlag MAC
LDX #$4300+$36
JSL $E10000
<<<
~TCPIPGetUsername MAC
PHL ]1
_TCPIPGetUsername MAC
LDX #$4400+$36
JSL $E10000
<<<
~TCPIPSetUsername MAC
PHL ]1
_TCPIPSetUsername MAC
LDX #$4500+$36
JSL $E10000
<<<
~TCPIPGetPassword MAC
PHL ]1
_TCPIPGetPassword MAC
LDX #$4600+$36
JSL $E10000
<<<
~TCPIPSetPassword MAC
PHL ]1
_TCPIPSetPassword MAC
LDX #$4700+$36
JSL $E10000
<<<
~TCPIPValidateIPString MAC
PHS
PHL ]1
_TCPIPValidateIPString MAC
LDX #$4800+$36
JSL $E10000
<<<
~TCPIPValidateIPCString MAC
PHS
PHL ]1
_TCPIPValidateIPCString MAC
LDX #$1500+$36
JSL $E10000
<<<
~TCPIPGetUserStatistic MAC
PHS 2
PxW ]1;]2
_TCPIPGetUserStatistic MAC
LDX #$4900+$36
JSL $E10000
<<<
~TCPIPGetLinkVariables MAC
PHS 2
_TCPIPGetLinkVariables MAC
LDX #$4A00+$36
JSL $E10000
<<<
~TCPIPEditLinkConfig MAC
PxL ]1;]2
_TCPIPEditLinkConfig MAC
LDX #$4B00+$36
JSL $E10000
<<<
~TCPIPGetModuleNames MAC
PHS 2
_TCPIPGetModuleNames MAC
LDX #$4C00+$36
JSL $E10000
<<<
~TCPIPListenTCP MAC
PHA
PHW ]1
_TCPIPListenTCP MAC
LDX #$4E00+$36
JSL $E10000
<<<
~TCPIPAcceptTCP MAC
PHA
PxW ]1;]2
_TCPIPAcceptTCP MAC
LDX #$4F00+$36
JSL $E10000
<<<
~TCPIPSetNewDestination MAC
PHWL ]1;]2
PHW ]3
_TCPIPSetNewDestination MAC
LDX #$5000+$36
JSL $E10000
<<<
~TCPIPGetHostName MAC
PHL ]1
_TCPIPGetHostName MAC
LDX #$5100+$36
JSL $E10000
<<<
~TCPIPSetHostName MAC
PHL ]1
_TCPIPSetHostName MAC
LDX #$5200+$36
JSL $E10000
<<<
~TCPIPStatusUDP MAC
PHWL ]1;]2
_TCPIPStatusUDP MAC
LDX #$5300+$36
JSL $E10000
<<<
~TCPIPGetLinkLayer MAC
PHL ]1
_TCPIPGetLinkLayer MAC
LDX #$5400+$36
JSL $E10000
<<<
~TCPIPPtrToPtr MAC
PxL ]1;]2;]3
_TCPIPPtrToPtr MAC
LDX #$5500+$36
JSL $E10000
<<<
~TCPIPPtrToPtrNeg MAC
PxL ]1;]2;]3
_TCPIPPtrToPtrNeg MAC
LDX #$5600+$36
JSL $E10000
<<<
~TCPIPGetAuthMessage MAC
PHS 2
PHW ]1
_TCPIPGetAuthMessage MAC
LDX #$5700+$36
JSL $E10000
<<<
~TCPIPMangleDomainName MAC
PHS
PHWL ]1;]2
_TCPIPMangleDomainName MAC
LDX #$5900+$36
JSL $E10000
<<<
~TCPIPGetAliveFlag MAC
PHS
_TCPIPGetAliveFlag MAC
LDX #$5A00+$36
JSL $E10000
<<<
~TCPIPSetAliveFlag MAC
PHW ]1
_TCPIPSetAliveFlag MAC
LDX #$5B00+$36
JSL $E10000
<<<
~TCPIPGetAliveMinutes MAC
PHS
_TCPIPGetAliveMinutes MAC
LDX #$5C00+$36
JSL $E10000
<<<
~TCPIPSetAliveMinutes MAC
PHW ]1
_TCPIPSetAliveMinutes MAC
LDX #$5D00+$36
JSL $E10000
<<<
~TCPIPReadLineTCP MAC
PHA
PHWL ]1;]2
PHW ]3
PxL ]4;]5;]6
_TCPIPReadLineTCP MAC
LDX #$5E00+$36
JSL $E10000
<<<
~TCPIPGetBootConnectFlag MAC
PHS
_TCPIPGetBootConnectFlag MAC
LDX #$5F00+$36
JSL $E10000
<<<
~TCPIPSetBootConnectFlag MAC
PHW ]1
_TCPIPSetBootConnectFlag MAC
LDX #$6000+$36
JSL $E10000
<<<
~TCPIPSetUDPDispatch MAC
PxW ]1;]2
_TCPIPSetUDPDispatch MAC
LDX #$6100+$36
JSL $E10000
<<<
~TCPIPGetDestination MAC
PHWL ]1;]2
_TCPIPGetDestination MAC
LDX #$6200+$36
JSL $E10000
<<<
~TCPIPGetUserEventTrigger MAC ;v2.1
PHS 2
PxW ]1;]2
_TCPIPGetUserEventTrigger MAC
LDX #$6300+$36
JSL $E10000
<<<
~TCPIPSetUserEventTrigger MAC ;v2.1
PxW ]1;]2
PHL ]3
_TCPIPSetUserEventTrigger MAC
LDX #$6400+$36
JSL $E10000
<<<
~TCPIPGetSysEventTrigger MAC ;v2.1
PHS 2
PHW ]1
_TCPIPGetSysEventTrigger MAC
LDX #$6500+$36
JSL $E10000
<<<
~TCPIPSetSysEventTrigger MAC ;v2.1
PHWL ]1;]2
_TCPIPSetSysEventTrigger MAC
LDX #$6600+$36
JSL $E10000
<<<
~TCPIPGetDNRTimeouts MAC ;v3.0
PHS 2
_TCPIPGetDNRTimeouts MAC
LDX #$6700+$36
JSL $E10000
<<<
~TCPIPSetDNRTimeouts MAC ;v3.0
PHL ]1
_TCPIPSetDNRTimeouts MAC
LDX #$6800+$36
JSL $E10000
<<<