Commit be254918 authored by Neil Turton's avatar Neil Turton
Browse files

Import from cleaned 360 CD

parents
**/s/** gitlab-language=armasm linguist-language=armasm linguist-detectable=true
**/c/** gitlab-language=c linguist-language=c linguist-detectable=true
**/h/** gitlab-language=c linguist-language=c linguist-detectable=true
**/cmhg/** gitlab-language=cmhg linguist-language=cmhg linguist-detectable=true
Some source code is distributed under the Original BSD License:
Copyright (c) 1980-1993 The Regents of the University of California
Copyright (c) 1988 Stephen Deering.
(c) UNIX System Laboratories, Inc.
All rights reserved.
Redistribution and use in source and binary forms, with or without
modification, are permitted provided that the following conditions
are met:
1. Redistributions of source code must retain the above copyright
notice, this list of conditions and the following disclaimer.
2. Redistributions in binary form must reproduce the above copyright
notice, this list of conditions and the following disclaimer in the
documentation and/or other materials provided with the distribution.
3. All advertising materials mentioning features or use of this software
must display the following acknowledgement:
This product includes software developed by the University of
California, Berkeley and its contributors.
4. Neither the name of the University nor the names of its contributors
may be used to endorse or promote products derived from this software
without specific prior written permission.
THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
SUCH DAMAGE.
Some source code is distributed under this variant of the MIT License:
Copyright 1994, 1995 Massachusetts Institute of Technology
Permission to use, copy, modify, and distribute this software and
its documentation for any purpose and without fee is hereby
granted, provided that both the above copyright notice and this
permission notice appear in all copies, that both the above
copyright notice and this permission notice appear in all
supporting documentation, and that the name of M.I.T. not be used
in advertising or publicity pertaining to distribution of the
software without specific, written prior permission. M.I.T. makes
no representations about the suitability of this software for any
purpose. It is provided "as is" without express or implied
warranty.
THIS SOFTWARE IS PROVIDED BY M.I.T. ``AS IS''. M.I.T. DISCLAIMS
ALL EXPRESS OR IMPLIED WARRANTIES WITH REGARD TO THIS SOFTWARE,
INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF
MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE. IN NO EVENT
SHALL M.I.T. BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT
LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF
USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND
ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY,
OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT
OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
SUCH DAMAGE.
Some source code is distributed under the Apache License:
Apache License
Version 2.0, January 2004
http://www.apache.org/licenses/
TERMS AND CONDITIONS FOR USE, REPRODUCTION, AND DISTRIBUTION
1. Definitions.
"License" shall mean the terms and conditions for use, reproduction,
and distribution as defined by Sections 1 through 9 of this document.
"Licensor" shall mean the copyright owner or entity authorized by
the copyright owner that is granting the License.
"Legal Entity" shall mean the union of the acting entity and all
other entities that control, are controlled by, or are under common
control with that entity. For the purposes of this definition,
"control" means (i) the power, direct or indirect, to cause the
direction or management of such entity, whether by contract or
otherwise, or (ii) ownership of fifty percent (50%) or more of the
outstanding shares, or (iii) beneficial ownership of such entity.
"You" (or "Your") shall mean an individual or Legal Entity
exercising permissions granted by this License.
"Source" form shall mean the preferred form for making modifications,
including but not limited to software source code, documentation
source, and configuration files.
"Object" form shall mean any form resulting from mechanical
transformation or translation of a Source form, including but
not limited to compiled object code, generated documentation,
and conversions to other media types.
"Work" shall mean the work of authorship, whether in Source or
Object form, made available under the License, as indicated by a
copyright notice that is included in or attached to the work
(an example is provided in the Appendix below).
"Derivative Works" shall mean any work, whether in Source or Object
form, that is based on (or derived from) the Work and for which the
editorial revisions, annotations, elaborations, or other modifications
represent, as a whole, an original work of authorship. For the purposes
of this License, Derivative Works shall not include works that remain
separable from, or merely link (or bind by name) to the interfaces of,
the Work and Derivative Works thereof.
"Contribution" shall mean any work of authorship, including
the original version of the Work and any modifications or additions
to that Work or Derivative Works thereof, that is intentionally
submitted to Licensor for inclusion in the Work by the copyright owner
or by an individual or Legal Entity authorized to submit on behalf of
the copyright owner. For the purposes of this definition, "submitted"
means any form of electronic, verbal, or written communication sent
to the Licensor or its representatives, including but not limited to
communication on electronic mailing lists, source code control systems,
and issue tracking systems that are managed by, or on behalf of, the
Licensor for the purpose of discussing and improving the Work, but
excluding communication that is conspicuously marked or otherwise
designated in writing by the copyright owner as "Not a Contribution."
"Contributor" shall mean Licensor and any individual or Legal Entity
on behalf of whom a Contribution has been received by Licensor and
subsequently incorporated within the Work.
2. Grant of Copyright License. Subject to the terms and conditions of
this License, each Contributor hereby grants to You a perpetual,
worldwide, non-exclusive, no-charge, royalty-free, irrevocable
copyright license to reproduce, prepare Derivative Works of,
publicly display, publicly perform, sublicense, and distribute the
Work and such Derivative Works in Source or Object form.
3. Grant of Patent License. Subject to the terms and conditions of
this License, each Contributor hereby grants to You a perpetual,
worldwide, non-exclusive, no-charge, royalty-free, irrevocable
(except as stated in this section) patent license to make, have made,
use, offer to sell, sell, import, and otherwise transfer the Work,
where such license applies only to those patent claims licensable
by such Contributor that are necessarily infringed by their
Contribution(s) alone or by combination of their Contribution(s)
with the Work to which such Contribution(s) was submitted. If You
institute patent litigation against any entity (including a
cross-claim or counterclaim in a lawsuit) alleging that the Work
or a Contribution incorporated within the Work constitutes direct
or contributory patent infringement, then any patent licenses
granted to You under this License for that Work shall terminate
as of the date such litigation is filed.
4. Redistribution. You may reproduce and distribute copies of the
Work or Derivative Works thereof in any medium, with or without
modifications, and in Source or Object form, provided that You
meet the following conditions:
(a) You must give any other recipients of the Work or
Derivative Works a copy of this License; and
(b) You must cause any modified files to carry prominent notices
stating that You changed the files; and
(c) You must retain, in the Source form of any Derivative Works
that You distribute, all copyright, patent, trademark, and
attribution notices from the Source form of the Work,
excluding those notices that do not pertain to any part of
the Derivative Works; and
(d) If the Work includes a "NOTICE" text file as part of its
distribution, then any Derivative Works that You distribute must
include a readable copy of the attribution notices contained
within such NOTICE file, excluding those notices that do not
pertain to any part of the Derivative Works, in at least one
of the following places: within a NOTICE text file distributed
as part of the Derivative Works; within the Source form or
documentation, if provided along with the Derivative Works; or,
within a display generated by the Derivative Works, if and
wherever such third-party notices normally appear. The contents
of the NOTICE file are for informational purposes only and
do not modify the License. You may add Your own attribution
notices within Derivative Works that You distribute, alongside
or as an addendum to the NOTICE text from the Work, provided
that such additional attribution notices cannot be construed
as modifying the License.
You may add Your own copyright statement to Your modifications and
may provide additional or different license terms and conditions
for use, reproduction, or distribution of Your modifications, or
for any such Derivative Works as a whole, provided Your use,
reproduction, and distribution of the Work otherwise complies with
the conditions stated in this License.
5. Submission of Contributions. Unless You explicitly state otherwise,
any Contribution intentionally submitted for inclusion in the Work
by You to the Licensor shall be under the terms and conditions of
this License, without any additional terms or conditions.
Notwithstanding the above, nothing herein shall supersede or modify
the terms of any separate license agreement you may have executed
with Licensor regarding such Contributions.
6. Trademarks. This License does not grant permission to use the trade
names, trademarks, service marks, or product names of the Licensor,
except as required for reasonable and customary use in describing the
origin of the Work and reproducing the content of the NOTICE file.
7. Disclaimer of Warranty. Unless required by applicable law or
agreed to in writing, Licensor provides the Work (and each
Contributor provides its Contributions) on an "AS IS" BASIS,
WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or
implied, including, without limitation, any warranties or conditions
of TITLE, NON-INFRINGEMENT, MERCHANTABILITY, or FITNESS FOR A
PARTICULAR PURPOSE. You are solely responsible for determining the
appropriateness of using or redistributing the Work and assume any
risks associated with Your exercise of permissions under this License.
8. Limitation of Liability. In no event and under no legal theory,
whether in tort (including negligence), contract, or otherwise,
unless required by applicable law (such as deliberate and grossly
negligent acts) or agreed to in writing, shall any Contributor be
liable to You for damages, including any direct, indirect, special,
incidental, or consequential damages of any character arising as a
result of this License or out of the use or inability to use the
Work (including but not limited to damages for loss of goodwill,
work stoppage, computer failure or malfunction, or any and all
other commercial damages or losses), even if such Contributor
has been advised of the possibility of such damages.
9. Accepting Warranty or Additional Liability. While redistributing
the Work or Derivative Works thereof, You may choose to offer,
and charge a fee for, acceptance of support, warranty, indemnity,
or other liability obligations and/or rights consistent with this
License. However, in accepting such obligations, You may act only
on Your own behalf and on Your sole responsibility, not on behalf
of any other Contributor, and only if You agree to indemnify,
defend, and hold each Contributor harmless for any liability
incurred by, or claims asserted against, such Contributor by reason
of your accepting any such warranty or additional liability.
END OF TERMS AND CONDITIONS
APPENDIX: How to apply the Apache License to your work.
To apply the Apache License to your work, attach the following
boilerplate notice, with the fields enclosed by brackets "[]"
replaced with your own identifying information. (Don't include
the brackets!) The text should be enclosed in the appropriate
comment syntax for the file format. We also recommend that a
file or class name and description of purpose be included on the
same "printed page" as the copyright notice for easier
identification within third-party archives.
Copyright [yyyy] [name of copyright owner]
Licensed under the Apache License, Version 2.0 (the "License");
you may not use this file except in compliance with the License.
You may obtain a copy of the License at
http://www.apache.org/licenses/LICENSE-2.0
Unless required by applicable law or agreed to in writing, software
distributed under the License is distributed on an "AS IS" BASIS,
WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
See the License for the specific language governing permissions and
limitations under the License.
| Copyright 1996 Acorn Computers Ltd
|
| Licensed under the Apache License, Version 2.0 (the "License");
| you may not use this file except in compliance with the License.
| You may obtain a copy of the License at
|
| http://www.apache.org/licenses/LICENSE-2.0
|
| Unless required by applicable law or agreed to in writing, software
| distributed under the License is distributed on an "AS IS" BASIS,
| WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
| See the License for the specific language governing permissions and
| limitations under the License.
|
Dir <Obey$Dir>
amu_machine clean
| Copyright 1996 Acorn Computers Ltd
|
| Licensed under the Apache License, Version 2.0 (the "License");
| you may not use this file except in compliance with the License.
| You may obtain a copy of the License at
|
| http://www.apache.org/licenses/LICENSE-2.0
|
| Unless required by applicable law or agreed to in writing, software
| distributed under the License is distributed on an "AS IS" BASIS,
| WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
| See the License for the specific language governing permissions and
| limitations under the License.
|
Dir <Obey$Dir>
amu_machine rom
| Copyright 1996 Acorn Computers Ltd
|
| Licensed under the Apache License, Version 2.0 (the "License");
| you may not use this file except in compliance with the License.
| You may obtain a copy of the License at
|
| http://www.apache.org/licenses/LICENSE-2.0
|
| Unless required by applicable law or agreed to in writing, software
| distributed under the License is distributed on an "AS IS" BASIS,
| WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
| See the License for the specific language governing permissions and
| limitations under the License.
|
Dir <Obey$Dir>
cdir tmp
amu_machine rom_link ADDRESS=0 LINKDIR=@.tmp
cc -c -depend !Depend -pcc -zps1 -zM -ff -I^.^.include -DKERNEL -DINET -DGATEWAY -o o.whoami ^.whoami.c.whoami
Norcroft RISC OS ARM C vsn 5.06 (Acorn Computers Ltd) [Feb 16 1995]
cc -c -depend !Depend -pcc -zps1 -zM -ff -I^.^.include -DKERNEL -DINET -DGATEWAY -o o.unixenv ^.lib.c.unixenv
Norcroft RISC OS ARM C vsn 5.06 (Acorn Computers Ltd) [Feb 16 1995]
cc -c -depend !Depend -pcc -zps1 -zM -ff -I^.^.include -DKERNEL -DINET -DGATEWAY -o o.udp_usrreq ^.netinet.c.udp_usrreq
Norcroft RISC OS ARM C vsn 5.06 (Acorn Computers Ltd) [Feb 16 1995]
cc -c -depend !Depend -pcc -zps1 -zM -ff -I^.^.include -DKERNEL -DINET -DGATEWAY -o o.tcp_usrreq ^.netinet.c.tcp_usrreq
Norcroft RISC OS ARM C vsn 5.06 (Acorn Computers Ltd) [Feb 16 1995]
cc -c -depend !Depend -pcc -zps1 -zM -ff -I^.^.include -DKERNEL -DINET -DGATEWAY -o o.tcp_timer ^.netinet.c.tcp_timer
Norcroft RISC OS ARM C vsn 5.06 (Acorn Computers Ltd) [Feb 16 1995]
cc -c -depend !Depend -pcc -zps1 -zM -ff -I^.^.include -DKERNEL -DINET -DGATEWAY -o o.tcp_subr ^.netinet.c.tcp_subr
Norcroft RISC OS ARM C vsn 5.06 (Acorn Computers Ltd) [Feb 16 1995]
cc -c -depend !Depend -pcc -zps1 -zM -ff -I^.^.include -DKERNEL -DINET -DGATEWAY -o o.tcp_output ^.netinet.c.tcp_output
Norcroft RISC OS ARM C vsn 5.06 (Acorn Computers Ltd) [Feb 16 1995]
cc -c -depend !Depend -pcc -zps1 -zM -ff -I^.^.include -DKERNEL -DINET -DGATEWAY -o o.tcp_input ^.netinet.c.tcp_input
Norcroft RISC OS ARM C vsn 5.06 (Acorn Computers Ltd) [Feb 16 1995]
cc -c -depend !Depend -pcc -zps1 -zM -ff -I^.^.include -DKERNEL -DINET -DGATEWAY -o o.tcp_debug ^.netinet.c.tcp_debug
Norcroft RISC OS ARM C vsn 5.06 (Acorn Computers Ltd) [Feb 16 1995]
cc -c -depend !Depend -pcc -zps1 -zM -ff -I^.^.include -DKERNEL -DINET -DGATEWAY -o o.socket_swi ^.riscos.c.socket_swi
Norcroft RISC OS ARM C vsn 5.06 (Acorn Computers Ltd) [Feb 16 1995]
cc -c -depend !Depend -pcc -zps1 -zM -ff -I^.^.include -DKERNEL -DINET -DGATEWAY -o o.socket1 ^.sys.c.socket1
Norcroft RISC OS ARM C vsn 5.06 (Acorn Computers Ltd) [Feb 16 1995]
cc -c -depend !Depend -pcc -zps1 -zM -ff -I^.^.include -DKERNEL -DINET -DGATEWAY -o o.socket ^.sys.c.socket
Norcroft RISC OS ARM C vsn 5.06 (Acorn Computers Ltd) [Feb 16 1995]
cc -c -depend !Depend -pcc -zps1 -zM -ff -I^.^.include -DKERNEL -DINET -DGATEWAY -o o.setsoft ^.riscos.c.setsoft
Norcroft RISC OS ARM C vsn 5.06 (Acorn Computers Ltd) [Feb 16 1995]
cc -c -depend !Depend -pcc -zps1 -zM -ff -I^.^.include -DKERNEL -DINET -DGATEWAY -o o.route ^.net.c.route
Norcroft RISC OS ARM C vsn 5.06 (Acorn Computers Ltd) [Feb 16 1995]
cc -c -depend !Depend -pcc -zps1 -zM -ff -I^.^.include -DKERNEL -DINET -DGATEWAY -o o.raw_usrreq ^.net.c.raw_usrreq
Norcroft RISC OS ARM C vsn 5.06 (Acorn Computers Ltd) [Feb 16 1995]
cc -c -depend !Depend -pcc -zps1 -zM -ff -I^.^.include -DKERNEL -DINET -DGATEWAY -o o.raw_ip ^.netinet.c.raw_ip
Norcroft RISC OS ARM C vsn 5.06 (Acorn Computers Ltd) [Feb 16 1995]
cc -c -depend !Depend -pcc -zps1 -zM -ff -I^.^.include -DKERNEL -DINET -DGATEWAY -o o.raw_cb ^.net.c.raw_cb
Norcroft RISC OS ARM C vsn 5.06 (Acorn Computers Ltd) [Feb 16 1995]
objasm -depend !Depend -I<Hdr$Dir>.Global.,<Hdr$Dir>.Interface. -Stamp -quit s.poduleirq o.poduleirq
ARM AOF Macro Assembler 3.06 (Acorn Computers Ltd) [Jan 11 1995]
cc -c -depend !Depend -pcc -zps1 -zM -ff -I^.^.include -DKERNEL -DINET -DGATEWAY -o o.module ^.riscos.c.module
Norcroft RISC OS ARM C vsn 5.06 (Acorn Computers Ltd) [Feb 16 1995]
objasm -depend !Depend -I<Hdr$Dir>.Global.,<Hdr$Dir>.Interface. -Stamp -quit ^.riscos.s.mlink o.mlink
ARM AOF Macro Assembler 3.06 (Acorn Computers Ltd) [Jan 11 1995]
cc -c -depend !Depend -pcc -zps1 -zM -ff -I^.^.include -DKERNEL -DINET -DGATEWAY -o o.mbuf ^.riscos.c.mbuf
Norcroft RISC OS ARM C vsn 5.06 (Acorn Computers Ltd) [Feb 16 1995]
cc -c -depend !Depend -pcc -zps1 -zM -ff -I^.^.include -DKERNEL -DINET -DGATEWAY -o o.ip_output ^.netinet.c.ip_output
Norcroft RISC OS ARM C vsn 5.06 (Acorn Computers Ltd) [Feb 16 1995]
cc -c -depend !Depend -pcc -zps1 -zM -ff -I^.^.include -DKERNEL -DINET -DGATEWAY -o o.ip_input ^.netinet.c.ip_input
Norcroft RISC OS ARM C vsn 5.06 (Acorn Computers Ltd) [Feb 16 1995]
cc -c -depend !Depend -pcc -zps1 -zM -ff -I^.^.include -DKERNEL -DINET -DGATEWAY -o o.ip_icmp ^.netinet.c.ip_icmp
Norcroft RISC OS ARM C vsn 5.06 (Acorn Computers Ltd) [Feb 16 1995]
cc -c -depend !Depend -pcc -zps1 -zM -ff -I^.^.include -DKERNEL -DINET -DGATEWAY -o o.in_proto ^.netinet.c.in_proto
Norcroft RISC OS ARM C vsn 5.06 (Acorn Computers Ltd) [Feb 16 1995]
cc -c -depend !Depend -pcc -zps1 -zM -ff -I^.^.include -DKERNEL -DINET -DGATEWAY -o o.in_pcb ^.netinet.c.in_pcb
Norcroft RISC OS ARM C vsn 5.06 (Acorn Computers Ltd) [Feb 16 1995]
cc -c -depend !Depend -pcc -zps1 -zM -ff -I^.^.include -DKERNEL -DINET -DGATEWAY -o o.in_cksum ^.netinet.c.in_cksum
Norcroft RISC OS ARM C vsn 5.06 (Acorn Computers Ltd) [Feb 16 1995]
cmhg -o o.inethdr cmhg.inethdr
cc -c -depend !Depend -pcc -zps1 -zM -ff -I^.^.include -DKERNEL -DINET -DGATEWAY -o o.in ^.netinet.c.in
Norcroft RISC OS ARM C vsn 5.06 (Acorn Computers Ltd) [Feb 16 1995]
cc -c -depend !Depend -pcc -zps1 -zM -ff -I^.^.include -DKERNEL -DINET -DGATEWAY -o o.if_module ^.net.c.if_module
Norcroft RISC OS ARM C vsn 5.06 (Acorn Computers Ltd) [Feb 16 1995]
cc -c -depend !Depend -pcc -zps1 -zM -ff -I^.^.include -DKERNEL -DINET -DGATEWAY -o o.if_loop ^.net.c.if_loop
Norcroft RISC OS ARM C vsn 5.06 (Acorn Computers Ltd) [Feb 16 1995]
cc -c -depend !Depend -pcc -zps1 -zM -ff -I^.^.include -DKERNEL -DINET -DGATEWAY -o o.if_ether ^.netinet.c.if_ether
Norcroft RISC OS ARM C vsn 5.06 (Acorn Computers Ltd) [Feb 16 1995]
cc -c -depend !Depend -pcc -zps1 -zM -ff -I^.^.include -DKERNEL -DINET -DGATEWAY -o o.if ^.net.c.if
Norcroft RISC OS ARM C vsn 5.06 (Acorn Computers Ltd) [Feb 16 1995]
cc -c -depend !Depend -pcc -zps1 -zM -ff -I^.^.include -DKERNEL -DINET -DGATEWAY -o o.globdata ^.riscos.c.globdata
Norcroft RISC OS ARM C vsn 5.06 (Acorn Computers Ltd) [Feb 16 1995]
cc -c -depend !Depend -pcc -zps1 -zM -ff -I^.^.include -DKERNEL -DINET -DGATEWAY -o o.domain ^.sys.c.domain
Norcroft RISC OS ARM C vsn 5.06 (Acorn Computers Ltd) [Feb 16 1995]
cc -c -depend !Depend -pcc -zps1 -zM -ff -I^.^.include -DKERNEL -DINET -DGATEWAY -o o.af ^.net.c.af
Norcroft RISC OS ARM C vsn 5.06 (Acorn Computers Ltd) [Feb 16 1995]
link -o aof.Internet -aof af.o domain.o globdata.o if.o if_ether.o if_loop.o if_module.o in.o inethdr.o in_cksum.o in_pcb.o in_proto.o ip_icmp.o ip_input.o ip_output.o mbuf.o mlink.o module.o poduleirq.o raw_cb.o raw_ip.o raw_usrreq.o route.o setsoft.o socket.o socket1.o socket_swi.o tcp_debug.o tcp_input.o tcp_output.o tcp_subr.o tcp_timer.o tcp_usrreq.o udp_usrreq.o unixenv.o whoami.o RISCOSLIB:o.romcstubs
Internet: Module built (ROM)
This diff is collapsed.
*
!.gitignore
/* Copyright 1996 Acorn Computers Ltd
*
* Licensed under the Apache License, Version 2.0 (the "License");
* you may not use this file except in compliance with the License.
* You may obtain a copy of the License at
*
* http://www.apache.org/licenses/LICENSE-2.0
*
* Unless required by applicable law or agreed to in writing, software
* distributed under the License is distributed on an "AS IS" BASIS,
* WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
* See the License for the specific language governing permissions and
* limitations under the License.
*/
/* -*-C-*-
*
* $Header$
* $Source$
*
* Copyright(c) 1994 Acorn Computers Ltd., Cambridge, England
*
* svcprint.c
*
* print debugging information down the TML tube link.
*
* provides:
* %s - string
* %C - character in range 20->7F (space printed if outside range)
* %c - any character
* %X - reverses order of bytes if >2 (or >4) specified as width
* %x - hex
* %B - reverses order of bytes if >2 (or >4) specified as width
* %b - binary
* %D - reverses order of bytes if >2 (or >4) specified as width
* %d - decimal
*
* field width can be specified by placing a decimal number after the "%"
* character... if the width is started by a "0" then numbers are padded
* with "0"...
*
* standard format specifiers o,u,e,f and g are NOT supported
*
* $Log$
* Revision 1.2 95/03/31 11:36:04 kwelton
* Added new debugging function ctosym().
*
* Revision 1.1 94/12/02 09:57:20 kwelton
* Initial revision
*
*/
#include "kernel.h"
#include "swis.h"
#include "svcdebug.h"
#include "sys/types.h"
#ifndef NULL
# define NULL ((void *)0)
#endif
#ifdef DEBUG
int debug = 1;
#endif
/**********************************************************************/
static unsigned short ntohs(unsigned short n)
{
return(((n << 8) & 0xff00) | ((n >> 8) & 0x00ff));
}
/**********************************************************************/
static unsigned long ntohl(unsigned long n)
{
return(((n >> 24) & 0x000000ff) | ((n >> 8) & 0x0000ff00) |
((n << 8) & 0x00ff0000) | ((n << 24) & 0xff000000) );
}
/**********************************************************************/
/*
* call processor mode independant character output routine
*/
static void oswrch(unsigned char ch)
{
_kernel_swi_regs regset;
/*
* use HostFS_WriteC (SWI 0x40102) to print the character
*/
regset.r[0] = ch;
(void)_kernel_swi(0x40102, &regset, &regset);
}
/**********************************************************************/
/*
* Printn prints a number n in base b, minimum width w adding pad chars
* if needed.
*/
static void printn(unsigned n, unsigned b, int w, char pad)
{
if( n >= b )
{
printn(n / b, b, --w, pad);
oswrch("0123456789abcdef"[n % b]);
}
else
{
while (--w > 0)
oswrch(pad);
oswrch("0123456789abcdef"[n]);
}
}
/**********************************************************************/
static void prf(char *format, unsigned *argp, ...)
{
register int b; /* base to be used when displaying numbers */
register int c; /* current character read from format string */
register int w; /* field width */
char pad; /* field padding character */
unsigned val; /* value of argument */
loop:
val = *argp;
w = 0;
pad = ' ';
while( (c = *format++) != '%' )
{
if( c == '\0' )
return;
if( c == '\n' )
oswrch('\r');
oswrch(c);
}
again:
/*
* we have a special format command
*/
c = *format++;
switch( c )
{
case 's':
{
/* string */
char *p = (char *)*argp++;
int width = 0;
if (p != NULL)
{
/* NOT a NULL pointer */
while (*p)
{
oswrch(*p++);
width++;
}
}
while( width++ < w )
oswrch(' ');
goto loop;
}
case 'C':
if( (*argp < ' ') || (*argp > '~') )
{
oswrch(' ');
argp++;
goto loop;
}
case 'c':
/* character */
oswrch(*argp++);
goto loop;
case '0':
if (w == 0)
pad = '0';
case '1':
case '2':
case '3':
case '4':
case '5':
case '6':
case '7':
case '8':
case '9':
/* field width */
w = (w * 10) + ((int) c - '0');
goto again;
case 'X':
/* hex number */
if (w > 4)
val = (unsigned)ntohl(val);
else
{
if (w > 2)
val = (unsigned)ntohs(val);
}
/*
* NB
*
* fall through to set base
*/
case 'x':
/* hex number */
b = 16;
goto number;
case 'B':
/* binary number */
if (w > 4)
val = (unsigned)ntohl(val);
else
{
if( w > 2 )
val = (unsigned)ntohs(val);
}
/*
* NB
*
* fall through to set base
*/
case 'b':
/* binary number */
b = 2;
goto number;
case 'D':
/* decimal number */
if (w > 4)
val = (unsigned)ntohl(val);
else
{
if (w > 2)
val = (unsigned)ntohs(val);
}
/*
* NB
*
* fall through to set base
*/
case 'd':
b = 10;
/*
* NB
*
* fall through to write number
*/
number:
printn(val,b,w,pad);
argp++;
break;
} /* switch */
goto loop;
}
/**********************************************************************/
/*
* strprint - print a string to the tube podule
*/
static void strprint(char *s)
{
_kernel_swi_regs r;
r.r[0] = (int)s;
(void)_kernel_swi(0x40104, &r, &r);
}
/**********************************************************************/
#if 0
# define USETUBE
#endif /* 0/1 */
void Printf(char *format, ...)
{
unsigned *argp = (unsigned *)&format;
#ifdef USETUBE
_kernel_swi_regs reglist;
_kernel_oserror *err;
/* int s = splhi(); */
if( (err = _kernel_swi(0x40100, &reglist, &reglist)) != NULL )
{
prf("HostVDU: ", 0);
prf(err->errmess, 0);
/* splx(s); */
return;
}
#endif /* USETUBE */
int s = splhi();
prf(format, (argp + 1));
splx(s);
#ifdef USETUBE
if( (err = _kernel_swi(0x40101, &reglist, &reglist)) != NULL )
{
prf("TubeVDU: ", 0);
prf(err->errmess, 0);
/* splx(s); */
return;
}
/* splx(s); */
#endif /* USETUBE */
}
/**********************************************************************/
/*
* ctosym - convert an address to an entry in the module's symbol
* table
*/
int ctosym(caddr_t ptr)
{
/*
* XXX
*
* declare __module_header as an external *function*
* -- this stops it being incorrectly relocated
*/
extern void __module_header(void);
caddr_t address = (caddr_t)__module_header;
/*
* the hard part has alredy been done (finding the start
* address of the module) - all that remains is to convert
* passed pointer to an offset within the module.
*
* XXX
*
* the linker assumes a default offset of 32k, even for
* modules, when writing the symbol table; this could
* be considered a bug, but it is easily overcome.
*/
return((ptr - address) + 0x8000);
}
/**********************************************************************/
#define FCMAX 40
#ifdef GPROF
#define FN_ENTRY_SIZE (5+3) /* -p adds an extra 3 words to procedure entry */
#else GPROF
#define FN_ENTRY_SIZE (5)
#endif GPROF
backtrace(int dummy)
{
int frames = FCMAX;
int *fp, *ip, i;
int linechars = 0;
char *sep = "\021\004Stack backtrace: ";
char card[81];
fp = (int *)&dummy - 1; /* Points at stacked entry mask pointer */
fp = (int *)fp[-3]; /* Points at ditto of caller */
/*
* NOTE
*
* this stack backtracing loop works only
* for code from the Norcroft compiler.
*/
/* limit the scan number of frames backtraced */
while( frames-- >= 0 )
{
int *next_fp;
char *name = NULL;
ip = ((int *)(fp[0] & 0x03fffffc)) - 3;
/* ip now points at stmdb sp!, { .., fp, ip, lr, pc } */
for( i = FN_ENTRY_SIZE; i > 0; i-- )
{
if( (ip[0] & 0xffffff00) == 0xff000000 )
{
int len = ip[0] & 0xff;
if( (len % 4) == 0 )
{
name = (char *)ip - len;
break;
}
}
ip--;
}
if (name == NULL)
sprintf(card, "%s<fn@%08x>", sep, ip+3);
else
sprintf(card, "%s%s", sep, name);
sep = ", ";
linechars += strlen(card);
if( linechars >= 80 )
{
strprint(",\r\n ");
strprint(card + 2);
linechars = 5;
}
else
strprint(card);
/* TRACE */
if( !strcmp(name, "callb_handler") )
{
/*
* I think this is what is breaking
* the debugging module
*/
strprint(" (and that's as far as we're going)");
break;
}
next_fp = (int *)(fp[-3]);
if (next_fp == 0)
break;
else
{
#ifdef __KERNEL__
if( (next_fp < fp) ||
(next_fp > (int *)((int)&u + (UPAGES*NBPG))) )
#else
if( (next_fp < fp ) )
#endif
{
Printf("**** broken stack frame fp %08x, next fp %08x ****\n",
fp, next_fp);
break;
}
fp = next_fp;
}
}
Printf("\021\007\n");
}
/**********************************************************************/
/* EOF svcprint.c */
; Copyright 1996 Acorn Computers Ltd
;
; Licensed under the Apache License, Version 2.0 (the "License");
; you may not use this file except in compliance with the License.
; You may obtain a copy of the License at
;
; http://www.apache.org/licenses/LICENSE-2.0
;
; Unless required by applicable law or agreed to in writing, software
; distributed under the License is distributed on an "AS IS" BASIS,
; WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
; See the License for the specific language governing permissions and
; limitations under the License.
;
; -*-Text-*-
;
; $Header$
; $Source$
;
; InetHdr - cmhg header file for DCI 4 Internet module
;
; Copyright (c) 1994 Acorn Computers Ltd., Cambridge, England
;
; $Log$
; Revision 1.10 95/03/31 11:18:33 kwelton
; Another Black ROM build, another version number.
;
; Revision 1.9 95/03/19 18:27:46 kwelton
; Have added InternetStatus service call, and hacked the problem with
; panics in sleep().
; Official DCI version is 4.02.
; Module version incremented to 4.02 (a coincidence!).
;
; Revision 1.8 95/03/13 16:11:27 aideen
; Module version 4.01 for Black:
; IP and UDP checksums configured off by default
; netinet/ip_input.c
; netinet/udp_userreq.c
;
; Revision 1.7 95/03/10 17:34:12 kwelton
; Added a new *-command, InetChecksum. Module is now version 4.00 in
; readiness for the Black ROM freeze.
;
; Revision 1.6 95/03/07 16:08:25 kwelton
; Added invalid-syntax fields to *-command entries. Module version is now
; 3.57 (3.56 was never checked in).
;
; Revision 1.5 95/02/28 18:49:45 kwelton
; cmhg has been fixed, allowing the addition of extra *-commands: first
; candidate is InetGateway. Module version is now 3.55.
;
; Revision 1.4 95/01/30 18:55:11 kwelton
; A nasty bug in module.c has been fixed, this deserves a new module version.
;
; Revision 1.3 95/01/20 15:55:49 kwelton
; The fact that revarp hostname lookup now works is significant enough
; to warrant a new version number.
;
; Revision 1.2 95/01/03 14:29:04 kwelton
; Two main changes:
;
; 1) Add changes necessary for internationalised messages support.
;
; 2) Added another `irq-handler', startup_{entry,handler} for startup
; routine entered on callback.
;
; Incremented module version number.
;
; Revision 1.1 94/12/01 17:57:01 kwelton
; Initial revision
;
;
title-string: Internet
help-string: Internet 4.03
initialisation-code: inet_init
finalisation-code: inet_final
service-call-handler: sc_handler 0x45 0x5e 0x9d 0xa2
swi-chunk-base-number: 0x41200
swi-handler-code: sock_swi_handler
swi-decoding-table: Socket,
Creat Bind Listen Accept Connect Recv Recvfrom Recvmsg,
Send Sendto Sendmsg Shutdown Setsockopt Getsockopt,
Getpeername Getsockname Close Select,
Ioctl Read Write Stat Readv Writev Gettsize Sendtosm
;
; YUCK - need to mess around with internationalised help, but cannot
; use the automatic features added as part of RISC OS 3.5; cmhg's
; handling of this used to be broken - this *must* be build with cmhg
; version 4.55 or later.
;
command-keyword-table: sock_cli_handler
InetInfo(min-args:0, max-args:3, help:,
invalid-syntax: "Syntax: InetInfo [r] [i] [p]"),
InetGateway(min-args:0, max-args:1, help:,
invalid-syntax: "Syntax: InetGateway [on|off]"),
InetChecksum(min-args:0, max-args:2, help:,
invalid-syntax: "Syntax: InetChecksum [i|u|t on|off]")
; InetDebug(min-args:0, max-args:1, help:)
irq-handlers: tick_entry/tick_handler,
callb_entry/callb_handler,
startup_entry/startup_handler,
rxf_entry/rxf_handler
/* Copyright 1996 Acorn Computers Ltd
*
* Licensed under the Apache License, Version 2.0 (the "License");
* you may not use this file except in compliance with the License.
* You may obtain a copy of the License at
*
* http://www.apache.org/licenses/LICENSE-2.0
*
* Unless required by applicable law or agreed to in writing, software
* distributed under the License is distributed on an "AS IS" BASIS,
* WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
* See the License for the specific language governing permissions and
* limitations under the License.
*/
/* -*-C-*-
*
* $Header$
* $Source$
*
* Copyright(c) 1994 Acorn Computers Ltd., Cambridge, England
*
* debug.h - debug control for Internet module
*
* $Log$
* Revision 1.4 95/03/31 11:34:29 kwelton
* Added another couple of debugging control flags.
*
* Revision 1.3 95/03/01 12:05:57 kwelton
* Added a new debug control: DBGTCP.
*
* Revision 1.2 95/01/24 16:57:30 kwelton
* Added another couple of debug flags.
*
* Revision 1.1 94/12/02 09:48:55 kwelton
* Initial revision
*
*
*/
#pragma force_top_level
#pragma include_only_once
/*
* use this to control global debug status
*/
#if 0
# define DEBUG
#endif /* 0/1 */
#ifdef DEBUG
/*
* declaration of control variable
*/
extern int debugctrl;
# define DODEBUG(x) (debugctrl & (x))
#else
# define DODEBUG(x) (0)
#endif /* defined (DEBUG) */
#define DBGSTARTUP (1 << 0)
#define DBGUSER (1 << 1)
#define DBGINPUT (1 << 2)
#define DBGOUTPUT (1 << 3)
#define DBGARP (1 << 4)
#define DBGMMAN (1 << 5)
#define DBGICMP (1 << 6)
#define DBGADDRSRCH (1 << 7)
#define DBGTCP (1 << 8)
#define DBGUDP (1 << 9)
#define DBGSOCKIP (1 << 10)
/* EOF debug.h */
/* Copyright 1996 Acorn Computers Ltd
*
* Licensed under the Apache License, Version 2.0 (the "License");
* you may not use this file except in compliance with the License.
* You may obtain a copy of the License at
*
* http://www.apache.org/licenses/LICENSE-2.0
*
* Unless required by applicable law or agreed to in writing, software
* distributed under the License is distributed on an "AS IS" BASIS,
* WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
* See the License for the specific language governing permissions and
* limitations under the License.
*/
/* -*-C-*-
*
* $Header$
* $Source$
*
* Copyright(c) 1994 Acorn Computers Ltd., Cambridge, England
*
* $Log$
* Revision 1.1 94/12/02 09:50:59 kwelton
* Initial revision
*
*
*/
#define NETHER 1
/* EOF ether.h */
/* Copyright 1996 Acorn Computers Ltd
*
* Licensed under the Apache License, Version 2.0 (the "License");
* you may not use this file except in compliance with the License.
* You may obtain a copy of the License at
*
* http://www.apache.org/licenses/LICENSE-2.0
*
* Unless required by applicable law or agreed to in writing, software
* distributed under the License is distributed on an "AS IS" BASIS,
* WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
* See the License for the specific language governing permissions and
* limitations under the License.
*/
/* -*-C-*-
*
* $Header$
* $Source$
*
* Copyright(c) 1994 Acorn Computers Ltd., Cambridge, England
*
* $Log$
* Revision 1.2 95/03/01 12:09:07 kwelton
* Added include of "sys/param.h" - this is essential, because it
* contains the all-important definition of BSD.
*
* Revision 1.1 94/12/02 09:54:31 kwelton
* Initial revision
*
*
*/
/*
* Econet statistics
*/
typedef struct eco_stats {
int eco_rxcnt;
int eco_txcnt;
int eco_linejammed;
int eco_neterror;
int eco_notlistening;
int eco_noclock;
int eco_other;
int eco_txhwat;
int eco_txqlen;
int eco_txrej;
} Ecostats;
#ifdef OldCode
/*
* IP statistics
*/
struct ipstat {
long ips_total; /* total packets received */
long ips_badsum; /* checksum bad */
long ips_tooshort; /* packet too short */
long ips_toosmall; /* not enough data */
long ips_badhlen; /* ip header length < data size */
long ips_badlen; /* ip length < ip header length */
long ips_fragments; /* fragments received */
long ips_fragdropped; /* frags dropped (dups, out of space) */
long ips_fragtimeout; /* fragments timed out */
long ips_forward; /* packets forwarded */
long ips_cantforward; /* packets rcvd for unreachable dest */
long ips_redirectsent; /* packets forwarded on same net */
};
/*
* TCP statistics.
* Many of these should be kept per connection,
* but that's inconvenient at the moment.
*/
struct tcpstat {
#ifdef OLDSTAT
/*
* Declare statistics the same as in 4.3
* at the start of tcpstat (same size and
* position) for netstat.
*/
int tcps_rcvbadsum;
int tcps_rcvbadoff;
int tcps_rcvshort;
int tcps_badsegs;
int tcps_unack;
#define tcps_badsum tcps_rcvbadsum
#define tcps_badoff tcps_rcvbadoff
#define tcps_hdrops tcps_rcvshort
#endif OLDSTAT
u_long tcps_connattempt; /* connections initiated */
u_long tcps_accepts; /* connections accepted */
u_long tcps_connects; /* connections established */
u_long tcps_drops; /* connections dropped */
u_long tcps_conndrops; /* embryonic connections dropped */
u_long tcps_closed; /* conn. closed (includes drops) */
u_long tcps_segstimed; /* segs where we tried to get rtt */
u_long tcps_rttupdated; /* times we succeeded */
u_long tcps_delack; /* delayed acks sent */
u_long tcps_timeoutdrop; /* conn. dropped in rxmt timeout */
u_long tcps_rexmttimeo; /* retransmit timeouts */
u_long tcps_persisttimeo; /* persist timeouts */
u_long tcps_keeptimeo; /* keepalive timeouts */
u_long tcps_keepprobe; /* keepalive probes sent */
u_long tcps_keepdrops; /* connections dropped in keepalive */
u_long tcps_sndtotal; /* total packets sent */
u_long tcps_sndpack; /* data packets sent */
u_long tcps_sndbyte; /* data bytes sent */
u_long tcps_sndrexmitpack; /* data packets retransmitted */
u_long tcps_sndrexmitbyte; /* data bytes retransmitted */
u_long tcps_sndacks; /* ack-only packets sent */
u_long tcps_sndprobe; /* window probes sent */
u_long tcps_sndurg; /* packets sent with URG only */
u_long tcps_sndwinup; /* window update-only packets sent */
u_long tcps_sndctrl; /* control (SYN|FIN|RST) packets sent */
u_long tcps_rcvtotal; /* total packets received */
u_long tcps_rcvpack; /* packets received in sequence */
u_long tcps_rcvbyte; /* bytes received in sequence */
#ifndef OLDSTAT
u_long tcps_rcvbadsum; /* packets received with ccksum errs */
u_long tcps_rcvbadoff; /* packets received with bad offset */
u_long tcps_rcvshort; /* packets received too short */
#endif
u_long tcps_rcvduppack; /* duplicate-only packets received */
u_long tcps_rcvdupbyte; /* duplicate-only bytes received */
u_long tcps_rcvpartduppack; /* packets with some duplicate data */
u_long tcps_rcvpartdupbyte; /* dup. bytes in part-dup. packets */
u_long tcps_rcvoopack; /* out-of-order packets received */
u_long tcps_rcvoobyte; /* out-of-order bytes received */
u_long tcps_rcvpackafterwin; /* packets with data after window */
u_long tcps_rcvbyteafterwin; /* bytes rcvd after window */
u_long tcps_rcvafterclose; /* packets rcvd after "close" */
u_long tcps_rcvwinprobe; /* rcvd window probe packets */
u_long tcps_rcvdupack; /* rcvd duplicate acks */
u_long tcps_rcvacktoomuch; /* rcvd acks for unsent data */
u_long tcps_rcvackpack; /* rcvd ack packets */
u_long tcps_rcvackbyte; /* bytes acked by rcvd acks */
u_long tcps_rcvwinupd; /* rcvd window update packets */
};
struct udpstat {
int udps_hdrops;
int udps_badsum;
int udps_badlen;
};
#else /* OldCode */
# include "sys/param.h"
# include "netinet/ip.h"
# include "netinet/ip_var.h"
# include "netinet/tcp_var.h"
# include "netinet/udp_var.h"
#endif /* OldCode */
/* EOF instats.h */
/* Copyright 1996 Acorn Computers Ltd
*
* Licensed under the Apache License, Version 2.0 (the "License");
* you may not use this file except in compliance with the License.
* You may obtain a copy of the License at
*
* http://www.apache.org/licenses/LICENSE-2.0
*
* Unless required by applicable law or agreed to in writing, software
* distributed under the License is distributed on an "AS IS" BASIS,
* WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
* See the License for the specific language governing permissions and
* limitations under the License.
*/
/* -*-C-*-
*
* $Header$
* $Source$
*
* Copyright(c) 1994 Acorn Computers Ltd., Cambridge, England
*
* Module specific information
*
* $Log$
* Revision 1.5 95/03/31 14:07:08 kwelton
* Changed PANICBUFLEN to 81.
*
* Revision 1.4 95/03/31 11:15:35 kwelton
* Added some function prototypes and structures for keeping track of
* outstanding callbacks - this allows pending callbacks to be removed
* during module finalisation.
*
* Revision 1.3 95/02/28 18:51:15 kwelton
* Added a nasty scheme which "tunnels" RISC OS error blocks through
* integer error numbers/
*
* Revision 1.2 95/01/03 14:14:31 kwelton
* Added define for length of panic buffer
*
* Revision 1.1 94/12/02 09:55:51 kwelton
* Initial revision
*
*/
/*
* length of panic buffer
*/
#define PANICBUFLEN 81
/*
* function prototypes
*/
int if_module_output(struct ifnet *ifp, struct mbuf *m0, struct sockaddr *dst);
int if_module_ioctl(struct ifnet *ifp, int cmd, char *data);
int if_module_null(void);
int if_module_none(void);
_kernel_oserror *claim_frames(struct ifnet *ifp, int claim);
int looutput(struct ifnet *ifp, struct mbuf *m0, struct sockaddr *dst);
int loioctl(struct ifnet *ifp, int cmd, caddr_t data);
int callback(int callbackno);
void callback_entered(int callbackno);
/*
* structures for handling callbacks, which
* allow us to keep a record of outstanding
* transient callbacks
*/
#define CALLB_CALLB 0
#define CALLB_STARTUP 1
#define NCALLBACKS 2
struct callback_record
{
void (*cb_entry)();
int cb_outstanding;
} callbacks[NCALLBACKS];
/*
* some nasty error handling - we sometimes need to "tunnel"
* RISC OS error blocks through integer function returns;
* the following error number and error block is used to
* achieve this.
*/
_kernel_oserror errtunnel;
#define ETUNNEL 128
/* EOF module.h */
*
!.gitignore
*
!.gitignore
*
!.gitignore
*
!.gitignore
; Copyright 1996 Acorn Computers Ltd
;
; Licensed under the Apache License, Version 2.0 (the "License");
; you may not use this file except in compliance with the License.
; You may obtain a copy of the License at
;
; http://www.apache.org/licenses/LICENSE-2.0
;
; Unless required by applicable law or agreed to in writing, software
; distributed under the License is distributed on an "AS IS" BASIS,
; WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
; See the License for the specific language governing permissions and
; limitations under the License.
;
; generated by Norcroft RISC OS ARM C vsn 5.06 (Acorn Computers Ltd) [Feb 16 1995]
AREA |C$$code|, CODE, READONLY
|x$codeseg|
EXPORT null_init
null_init
LDR a2,[pc, #L000040-.-8]
LDR ip,[sl,#-0]
ADD a2,ip,a2
MOV a1,a2
ADD a2,a2,#&88
CMP a2,a1
MOVLSS pc,lr
LDR a3,[pc, #L000044-.-8]
LDR a4,[pc, #L000048-.-8]
|L000024.J4.null_init|
LDR ip,[a1,#0]
TEQ ip,#0
STMEQIA a1,{a3,a4}
ADD a1,a1,#8
CMP a2,a1
BHI |L000024.J4.null_init|
MOVS pc,lr
L000040
DCD afswitch
L000044
EXPORT null_hash
DCD null_hash
L000048
EXPORT null_netmatch
DCD null_netmatch
null_hash
MOV a1,#0
STR a1,[a2,#0]
STR a1,[a2,#4]!
MOVS pc,lr
null_netmatch
MOV a1,#0
MOVS pc,lr
AREA |C$$data|,DATA
|x$dataseg|
EXPORT afswitch
afswitch
DCD null_hash
DCD null_netmatch
DCD null_hash
DCD null_netmatch
IMPORT inet_hash
DCD inet_hash
IMPORT inet_netmatch
DCD inet_netmatch
DCD inet_hash
DCD inet_netmatch
DCD null_hash
DCD null_netmatch
DCD null_hash
DCD null_netmatch
DCD null_hash
DCD null_netmatch
DCD null_hash
DCD null_netmatch
DCD null_hash
DCD null_netmatch
DCD null_hash
DCD null_netmatch
DCD null_hash
DCD null_netmatch
DCD null_hash
DCD null_netmatch
DCD null_hash
DCD null_netmatch
DCD null_hash
DCD null_netmatch
DCD null_hash
DCD null_netmatch
DCD null_hash
DCD null_netmatch
DCD null_hash
DCD null_netmatch
EXPORT cpuspeed
AREA cpuspeed,COMMON,NOINIT
% 4
END
; Copyright 1996 Acorn Computers Ltd
;
; Licensed under the Apache License, Version 2.0 (the "License");
; you may not use this file except in compliance with the License.
; You may obtain a copy of the License at
;
; http://www.apache.org/licenses/LICENSE-2.0
;
; Unless required by applicable law or agreed to in writing, software
; distributed under the License is distributed on an "AS IS" BASIS,
; WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
; See the License for the specific language governing permissions and
; limitations under the License.
;
; generated by Norcroft RISC OS ARM C vsn 5.06 (Acorn Computers Ltd) [Feb 16 1995]
AREA |C$$code|, CODE, READONLY
|x$codeseg|
IMPORT null_init
EXPORT pffasttimo
EXPORT pfslowtimo
EXPORT domaininit
domaininit
MOV ip,sp
STMDB sp!,{v1,v2,fp,ip,lr,pc}
SUB fp,ip,#4
LDR a2,[pc, #L000090-.-8]
LDR ip,[sl,#-0]
ADD a2,ip,a2
LDR a3,[a2,#0]
LDR a1,[pc, #L000094-.-8]
LDR ip,[sl,#-0]
ADD a1,ip,a1
STR a3,[a1,#&1c]
STR a1,[a2,#0]
MOV v1,a1
|L000034.J4.domaininit|
LDR a1,[v1,#8]
TEQ a1,#0
MOVNE lr,pc
MOVNE pc,a1
LDR a1,[v1,#&18]
LDR v2,[v1,#&14]
CMP v2,a1
BCS |L000074.J10.domaininit|
|L000054.J9.domaininit|
LDR a1,[v2,#&20]
TEQ a1,#0
MOVNE lr,pc
MOVNE pc,a1
ADD v2,v2,#&30
LDR a1,[v1,#&18]
CMP v2,a1
BCC |L000054.J9.domaininit|
|L000074.J10.domaininit|
LDR v1,[v1,#&1c]
TEQ v1,#0
BNE |L000034.J4.domaininit|
BL null_init
BL pffasttimo
LDMDB fp,{v1,v2,fp,sp,lr}
B pfslowtimo
L000090
EXPORT domains
DCD domains
L000094
IMPORT inetdomain
DCD inetdomain
EXPORT pffindtype
pffindtype
LDR a3,[pc, #L000090-.-8]
LDR ip,[sl,#-0]
ADD a3,ip,a3
LDR a3,[a3,#0]
TEQ a3,#0
BEQ |L000100.J12.pffindtype|
|L0000b0.J4.pffindtype|
LDR a4,[a3,#0]
TEQ a4,a1
BEQ |L0000cc.J9.pffindtype|
LDR a3,[a3,#&1c]
TEQ a3,#0
BNE |L0000b0.J4.pffindtype|
B |L000100.J12.pffindtype|
|L0000cc.J9.pffindtype|
ADD a3,a3,#&14
LDMIA a3,{a1,a3}
CMP a1,a3
BCS |L000100.J12.pffindtype|
|L0000dc.J11.pffindtype|
LDR a4,[a1,#0]
MOV a4,a4,LSL #16
MOVS a4,a4,ASR #16
BEQ |L0000f4.J14.pffindtype|
TEQ a4,a2
MOVEQS pc,lr
|L0000f4.J14.pffindtype|
ADD a1,a1,#&30
CMP a1,a3
BCC |L0000dc.J11.pffindtype|
|L000100.J12.pffindtype|
MOV a1,#0
MOVS pc,lr
EXPORT pffindproto
pffindproto
STMDB sp!,{v1,lr}
MOV a4,#0
TEQ a1,#0
BEQ |L000148.J7.pffindproto|
LDR lr,[pc, #L000090-.-8]
LDR ip,[sl,#-0]
ADD lr,ip,lr
LDR ip,[lr,#0]
TEQ ip,#0
BEQ |L000148.J7.pffindproto|
|L000130.J6.pffindproto|
LDR lr,[ip,#0]
TEQ lr,a1
BEQ |L000150.J11.pffindproto|
LDR ip,[ip,#&1c]
TEQ ip,#0
BNE |L000130.J6.pffindproto|
|L000148.J7.pffindproto|
MOV a1,#0
LDMIA sp!,{v1,pc}^
|L000150.J11.pffindproto|
ADD ip,ip,#&14
LDMIA ip,{a1,ip}
CMP a1,ip
BCS |L0001b4.J14.pffindproto|
|L000160.J13.pffindproto|
LDR lr,[a1,#8]
MOV lr,lr,LSL #16
MOV lr,lr,ASR #16
TEQ lr,a2
LDREQ v1,[a1,#0]
MOVEQ v1,v1,LSL #16
MOVEQ v1,v1,ASR #16
TEQEQ v1,a3
LDMEQIA sp!,{v1,pc}^
TEQ a3,#3
LDREQ v1,[a1,#0]
MOVEQ v1,v1,LSL #16
MOVEQ v1,v1,ASR #16
TEQEQ v1,#3
TEQEQ lr,#0
BNE |L0001a8.J19.pffindproto|
TEQ a4,#0
MOVEQ a4,a1
|L0001a8.J19.pffindproto|
ADD a1,a1,#&30
CMP a1,ip
BCC |L000160.J13.pffindproto|
|L0001b4.J14.pffindproto|
MOV a1,a4
LDMIA sp!,{v1,pc}^
EXPORT pfctlinput
pfctlinput
MOV ip,sp
STMDB sp!,{v1-v4,fp,ip,lr,pc}
SUB fp,ip,#4
MOV v2,a1
MOV v1,a2
LDR a1,[pc, #L000090-.-8]
LDR ip,[sl,#-0]
ADD a1,ip,a1
LDR v3,[a1,#0]
TEQ v3,#0
LDMEQDB fp,{v1-v4,fp,sp,pc}^
|L0001e8.J4.pfctlinput|
LDR a1,[v3,#&18]
LDR v4,[v3,#&14]
CMP v4,a1
BCS |L000220.J8.pfctlinput|
|L0001f8.J7.pfctlinput|
LDR a3,[v4,#&14]
TEQ a3,#0
MOVNE a2,v1
MOVNE a1,v2
MOVNE lr,pc
MOVNE pc,a3
ADD v4,v4,#&30
LDR a1,[v3,#&18]
CMP v4,a1
BCC |L0001f8.J7.pfctlinput|
|L000220.J8.pfctlinput|
LDR v3,[v3,#&1c]
TEQ v3,#0
BNE |L0001e8.J4.pfctlinput|
LDMDB fp,{v1-v4,fp,sp,pc}^
IMPORT timeout
pfslowtimo
MOV ip,sp
STMDB sp!,{v1,v2,fp,ip,lr,pc}
SUB fp,ip,#4
LDR a1,[pc, #L000090-.-8]
LDR ip,[sl,#-0]
ADD a1,ip,a1
LDR v1,[a1,#0]
TEQ v1,#0
BEQ |L000290.J5.pfslowtimo|
|L000254.J4.pfslowtimo|
LDR a1,[v1,#&18]
LDR v2,[v1,#&14]
CMP v2,a1
BCS |L000284.J8.pfslowtimo|
|L000264.J7.pfslowtimo|
LDR a1,[v2,#&28]
TEQ a1,#0
MOVNE lr,pc
MOVNE pc,a1
ADD v2,v2,#&30
LDR a1,[v1,#&18]
CMP v2,a1
BCC |L000264.J7.pfslowtimo|
|L000284.J8.pfslowtimo|
LDR v1,[v1,#&1c]
TEQ v1,#0
BNE |L000254.J4.pfslowtimo|
|L000290.J5.pfslowtimo|
LDR a1,[pc, #L0002a4-.-8]
MOV a3,#&32
MOV a2,#0
LDMDB fp,{v1,v2,fp,sp,lr}
B timeout
L0002a4
DCD pfslowtimo
pffasttimo
MOV ip,sp
STMDB sp!,{v1,v2,fp,ip,lr,pc}
SUB fp,ip,#4
LDR a1,[pc, #L000090-.-8]
LDR ip,[sl,#-0]
ADD a1,ip,a1
LDR v1,[a1,#0]
TEQ v1,#0
BEQ |L000308.J5.pffasttimo|
|L0002cc.J4.pffasttimo|
LDR a1,[v1,#&18]
LDR v2,[v1,#&14]
CMP v2,a1
BCS |L0002fc.J8.pffasttimo|
|L0002dc.J7.pffasttimo|
LDR a1,[v2,#&24]
TEQ a1,#0
MOVNE lr,pc
MOVNE pc,a1
ADD v2,v2,#&30
LDR a1,[v1,#&18]
CMP v2,a1
BCC |L0002dc.J7.pffasttimo|
|L0002fc.J8.pffasttimo|
LDR v1,[v1,#&1c]
TEQ v1,#0
BNE |L0002cc.J4.pffasttimo|
|L000308.J5.pffasttimo|
LDR a1,[pc, #L00031c-.-8]
MOV a3,#&14
MOV a2,#0
LDMDB fp,{v1,v2,fp,sp,lr}
B timeout
L00031c
DCD pffasttimo
AREA |C$$data|,DATA
|x$dataseg|
AREA domains,COMMON,NOINIT
% 4
EXPORT cpuspeed
AREA cpuspeed,COMMON,NOINIT
% 4
END
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment