Home » Archimedes archive » Acorn User » AU 1998-02 B.adf » JFShared » !JFShared/Help/EconetLib

!JFShared/Help/EconetLib

This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.

Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.

Tape/disk: Home » Archimedes archive » Acorn User » AU 1998-02 B.adf » JFShared
Filename: !JFShared/Help/EconetLib
Read OK: ✔
File size: 113C bytes
Load address: 0000
Exec address: 0000
File contents
HELP(�����,����$DIR$���F���.:��!Root�G����S�PPROCPG����T�,FN�G���$��[info�F����c��XstatnetPF����8C��statusDATAEconetLib routines
#Parent StrongHelp:!Menu
#Table Columns 2
<PROCiniteconet>
<FNeconet_decodestatus>
<FNeconet_senddata>
<FNeconet_listen>
<FNeconet_getstatus>
<PROCeconet_getdata>
<PROCeconet_abortall>
#EndTable
#Indent

<Information=>info> on EconetLib
DIR$PPLF�������initeconet�G���kT�Peconet_DATA�PROCiniteconet
#Parent !Root
Initialise the econet library variables

Call this routine at the start of any program that uses the EconetLib file.
DIR$PP8F���ԜB�dgetdata�F���RR��abortallDATAdPROCeconet_getdata(handle,buffer,size,statnet)
#Parent !Root
=>	{/}handle{/}	handle to read
<=	{/}buffer{/}	buffer read into (as given when opened with <FNeconet_listen>)
	{/}size{/}	size of data read in
	{/}<statnet>{/}	station received from

This call is used to read in data, once it has been found to have been received by <FNeconet_getstatus>.DATA�PROCeconet_abortall
#Parent !Root
This call is used to release all transmit and receive blocks that are still awaiting reception.
Usually this is used when a program exits.DIR$,,|G����Tלeconet_DIR$��F���v,A�rdecodestatus�F���UTC�Qsenddata�F����B�dlistenD
F���,>C�UgetstatusDATArFNeconet_decodestatus(status)
#Parent !Root
=>	{/}status{/}	status as returned by <FNeconet_getstatus>
\<=	string meaning of the status

If you need to debug routines or notify the user of the current status you can use this call to get more meaning out of the status number. This call shouldn't really be used in most programs but is included for completeness.
DATAQFNeconet_senddata(port,statnet,block,size)
#Parent !Root
=>	{/}port{/}	port to send data to
	{/}<statnet>{/}	station to send data to
	{/}block{/}	block to send (in RMA)
	{/}size{/}	size of the block
<=	handle

This call is used to send data to a station on the network. Use <FNeconet_getstatus> to check if the data has arrived.
DATAdFNeconet_listen(port,statnet,block,size)
#Parent !Root
=>	{/}port{/}	port to listen to
	{/}<statnet>{/}	station to listen for data from
	{/}block{/}	block to receive data in (in RMA)
	{/}size{/}	size of the block
<=	handle

This call is used to receive data from a station on the network. Use <FNeconet_getstatus> to check if the data has arrived.
DATAUFNeconet_getstatus(handle)
#Parent !Root
=>	{/}handle{/}	handle to check on
<=	<status> of the data

This call is used to check whether a send or listen has completed. Use <FNeconet_decodestatus> to get a textual version of the status number. After reading data, you should use <PROCeconet_getdata> to read the data into the buffer.
DATA[EconetLib help
#Align Centre
{fh3}JFShared EconetLib v1.00{f}
#Align Left

The Econet Library is a Basic Library file which provides an interface to the <Econet module=>OS:Econet_>. In conjunction with the <WimpLib=>WimpLib:!Root> and JFShared skeleton application this provides a very simple way of creating applications which can communicate using the econet network. This help file details the routines provided in EconetLib.

The Econet Library is referenced by \<JFEconetLibrary$File> and should be loaded with :
{fCode}LIBRARY "\<JFEconetLibrary$File>":PROCiniteconet{f}

The JFShared application is � <Justin Fletcher=>Filetypes:Authors_JustinFletcher>, 1995 and is released into the Public Domain with the same restrictions as subsist in most PD software. This includes the fact that when distributed the entire application must remain intact.DATAXstatnet values
{/}statnet{/} is a number composed of the station, network and sometimes the flags passed to (or from) one of the EconetLib routines. The data is formatted as {fCode}&00FFNNSS{f}.

FF	The flags for transmit or receive (user specified)
NN	Network number (or 00 for current network)
SS	Station number (or 00 to accept any)
DATA�Status numbers
No.	Meaning
#line
0	Transmitted ok
1	Line jammed
2	Network error
3	Not listening
4	No clock
5	Transmit ready
6	Transmitting
7	Receive ready
8	Receiving
9	Received ok
10	No reply
11	Escape pressed
12	Not present

00000000  48 45 4c 50 28 00 00 00  fa 00 00 00 ff ff ff ff  |HELP(...........|
00000010  2c 00 00 00 00 fd ff ff  00 00 00 00 c0 00 00 00  |,...............|
00000020  00 01 00 00 00 00 00 00  24 00 00 00 44 49 52 24  |........$...DIR$|
00000030  c8 00 00 00 c8 00 00 00  f4 00 00 00 46 fd ff ff  |............F...|
00000040  2e 3a a7 eb 08 01 00 00  13 00 00 00 00 00 00 00  |.:..............|
00000050  21 52 6f 6f 74 00 00 00  fc 01 00 00 47 fd ff ff  |!Root.......G...|
00000060  df 53 06 d7 50 00 00 00  13 01 00 00 00 00 00 00  |.S..P...........|
00000070  50 52 4f 43 00 00 00 00  50 05 00 00 47 fd ff ff  |PROC....P...G...|
00000080  98 54 06 d7 2c 00 00 00  13 01 00 00 00 00 00 00  |.T..,...........|
00000090  46 4e 00 00 9c 0b 00 00  47 fd ff ff 24 97 00 d7  |FN......G...$...|
000000a0  5b 03 00 00 13 00 00 00  00 00 00 00 69 6e 66 6f  |[...........info|
000000b0  00 00 00 00 f8 0e 00 00  46 fd ff ff c8 63 a5 eb  |........F....c..|
000000c0  58 01 00 00 13 00 00 00  00 00 00 00 73 74 61 74  |X...........stat|
000000d0  6e 65 74 00 50 10 00 00  46 fd ff ff 98 38 43 c9  |net.P...F....8C.|
000000e0  ea 00 00 00 13 00 00 00  00 00 00 00 73 74 61 74  |............stat|
000000f0  75 73 00 00 44 41 54 41  08 01 00 00 45 63 6f 6e  |us..DATA....Econ|
00000100  65 74 4c 69 62 20 72 6f  75 74 69 6e 65 73 0a 23  |etLib routines.#|
00000110  50 61 72 65 6e 74 20 53  74 72 6f 6e 67 48 65 6c  |Parent StrongHel|
00000120  70 3a 21 4d 65 6e 75 0a  23 54 61 62 6c 65 20 43  |p:!Menu.#Table C|
00000130  6f 6c 75 6d 6e 73 20 32  0a 3c 50 52 4f 43 69 6e  |olumns 2.<PROCin|
00000140  69 74 65 63 6f 6e 65 74  3e 0a 3c 46 4e 65 63 6f  |iteconet>.<FNeco|
00000150  6e 65 74 5f 64 65 63 6f  64 65 73 74 61 74 75 73  |net_decodestatus|
00000160  3e 0a 3c 46 4e 65 63 6f  6e 65 74 5f 73 65 6e 64  |>.<FNeconet_send|
00000170  64 61 74 61 3e 0a 3c 46  4e 65 63 6f 6e 65 74 5f  |data>.<FNeconet_|
00000180  6c 69 73 74 65 6e 3e 0a  3c 46 4e 65 63 6f 6e 65  |listen>.<FNecone|
00000190  74 5f 67 65 74 73 74 61  74 75 73 3e 0a 3c 50 52  |t_getstatus>.<PR|
000001a0  4f 43 65 63 6f 6e 65 74  5f 67 65 74 64 61 74 61  |OCeconet_getdata|
000001b0  3e 0a 3c 50 52 4f 43 65  63 6f 6e 65 74 5f 61 62  |>.<PROCeconet_ab|
000001c0  6f 72 74 61 6c 6c 3e 0a  23 45 6e 64 54 61 62 6c  |ortall>.#EndTabl|
000001d0  65 0a 23 49 6e 64 65 6e  74 0a 0a 3c 49 6e 66 6f  |e.#Indent..<Info|
000001e0  72 6d 61 74 69 6f 6e 3d  3e 69 6e 66 6f 3e 20 6f  |rmation=>info> o|
000001f0  6e 20 45 63 6f 6e 65 74  4c 69 62 0a 44 49 52 24  |n EconetLib.DIR$|
00000200  50 00 00 00 50 00 00 00  4c 02 00 00 46 ff ff ff  |P...P...L...F...|
00000210  b0 f4 01 fb 9a 00 00 00  13 00 00 00 00 00 00 00  |................|
00000220  69 6e 69 74 65 63 6f 6e  65 74 00 00 e8 02 00 00  |initeconet......|
00000230  47 fd ff ff 6b 54 06 d7  50 00 00 00 13 01 00 00  |G...kT..P.......|
00000240  00 00 00 00 65 63 6f 6e  65 74 5f 00 44 41 54 41  |....econet_.DATA|
00000250  9a 00 00 00 50 52 4f 43  69 6e 69 74 65 63 6f 6e  |....PROCinitecon|
00000260  65 74 0a 23 50 61 72 65  6e 74 20 21 52 6f 6f 74  |et.#Parent !Root|
00000270  0a 49 6e 69 74 69 61 6c  69 73 65 20 74 68 65 20  |.Initialise the |
00000280  65 63 6f 6e 65 74 20 6c  69 62 72 61 72 79 20 76  |econet library v|
00000290  61 72 69 61 62 6c 65 73  0a 0a 43 61 6c 6c 20 74  |ariables..Call t|
000002a0  68 69 73 20 72 6f 75 74  69 6e 65 20 61 74 20 74  |his routine at t|
000002b0  68 65 20 73 74 61 72 74  20 6f 66 20 61 6e 79 20  |he start of any |
000002c0  70 72 6f 67 72 61 6d 20  74 68 61 74 20 75 73 65  |program that use|
000002d0  73 20 74 68 65 20 45 63  6f 6e 65 74 4c 69 62 20  |s the EconetLib |
000002e0  66 69 6c 65 2e 0a 00 00  44 49 52 24 50 00 00 00  |file....DIR$P...|
000002f0  50 00 00 00 38 03 00 00  46 ff ff ff d4 9c 42 c9  |P...8...F.....B.|
00000300  64 01 00 00 13 00 00 00  00 00 00 00 67 65 74 64  |d...........getd|
00000310  61 74 61 00 9c 04 00 00  46 ff ff ff 52 52 a7 eb  |ata.....F...RR..|
00000320  b4 00 00 00 13 00 00 00  00 00 00 00 61 62 6f 72  |............abor|
00000330  74 61 6c 6c 00 00 00 00  44 41 54 41 64 01 00 00  |tall....DATAd...|
00000340  50 52 4f 43 65 63 6f 6e  65 74 5f 67 65 74 64 61  |PROCeconet_getda|
00000350  74 61 28 68 61 6e 64 6c  65 2c 62 75 66 66 65 72  |ta(handle,buffer|
00000360  2c 73 69 7a 65 2c 73 74  61 74 6e 65 74 29 0a 23  |,size,statnet).#|
00000370  50 61 72 65 6e 74 20 21  52 6f 6f 74 0a 3d 3e 09  |Parent !Root.=>.|
00000380  7b 2f 7d 68 61 6e 64 6c  65 7b 2f 7d 09 68 61 6e  |{/}handle{/}.han|
00000390  64 6c 65 20 74 6f 20 72  65 61 64 0a 3c 3d 09 7b  |dle to read.<=.{|
000003a0  2f 7d 62 75 66 66 65 72  7b 2f 7d 09 62 75 66 66  |/}buffer{/}.buff|
000003b0  65 72 20 72 65 61 64 20  69 6e 74 6f 20 28 61 73  |er read into (as|
000003c0  20 67 69 76 65 6e 20 77  68 65 6e 20 6f 70 65 6e  | given when open|
000003d0  65 64 20 77 69 74 68 20  3c 46 4e 65 63 6f 6e 65  |ed with <FNecone|
000003e0  74 5f 6c 69 73 74 65 6e  3e 29 0a 09 7b 2f 7d 73  |t_listen>)..{/}s|
000003f0  69 7a 65 7b 2f 7d 09 73  69 7a 65 20 6f 66 20 64  |ize{/}.size of d|
00000400  61 74 61 20 72 65 61 64  20 69 6e 0a 09 7b 2f 7d  |ata read in..{/}|
00000410  3c 73 74 61 74 6e 65 74  3e 7b 2f 7d 09 73 74 61  |<statnet>{/}.sta|
00000420  74 69 6f 6e 20 72 65 63  65 69 76 65 64 20 66 72  |tion received fr|
00000430  6f 6d 0a 0a 54 68 69 73  20 63 61 6c 6c 20 69 73  |om..This call is|
00000440  20 75 73 65 64 20 74 6f  20 72 65 61 64 20 69 6e  | used to read in|
00000450  20 64 61 74 61 2c 20 6f  6e 63 65 20 69 74 20 68  | data, once it h|
00000460  61 73 20 62 65 65 6e 20  66 6f 75 6e 64 20 74 6f  |as been found to|
00000470  20 68 61 76 65 20 62 65  65 6e 20 72 65 63 65 69  | have been recei|
00000480  76 65 64 20 62 79 20 3c  46 4e 65 63 6f 6e 65 74  |ved by <FNeconet|
00000490  5f 67 65 74 73 74 61 74  75 73 3e 2e 44 41 54 41  |_getstatus>.DATA|
000004a0  b4 00 00 00 50 52 4f 43  65 63 6f 6e 65 74 5f 61  |....PROCeconet_a|
000004b0  62 6f 72 74 61 6c 6c 0a  23 50 61 72 65 6e 74 20  |bortall.#Parent |
000004c0  21 52 6f 6f 74 0a 54 68  69 73 20 63 61 6c 6c 20  |!Root.This call |
000004d0  69 73 20 75 73 65 64 20  74 6f 20 72 65 6c 65 61  |is used to relea|
000004e0  73 65 20 61 6c 6c 20 74  72 61 6e 73 6d 69 74 20  |se all transmit |
000004f0  61 6e 64 20 72 65 63 65  69 76 65 20 62 6c 6f 63  |and receive bloc|
00000500  6b 73 20 74 68 61 74 20  61 72 65 20 73 74 69 6c  |ks that are stil|
00000510  6c 20 61 77 61 69 74 69  6e 67 20 72 65 63 65 70  |l awaiting recep|
00000520  74 69 6f 6e 2e 0a 55 73  75 61 6c 6c 79 20 74 68  |tion..Usually th|
00000530  69 73 20 69 73 20 75 73  65 64 20 77 68 65 6e 20  |is is used when |
00000540  61 20 70 72 6f 67 72 61  6d 20 65 78 69 74 73 2e  |a program exits.|
00000550  44 49 52 24 2c 00 00 00  2c 00 00 00 7c 05 00 00  |DIR$,...,...|...|
00000560  47 fd ff ff a4 54 06 d7  9c 00 00 00 13 01 00 00  |G....T..........|
00000570  00 00 00 00 65 63 6f 6e  65 74 5f 00 44 49 52 24  |....econet_.DIR$|
00000580  9c 00 00 00 9c 00 00 00  18 06 00 00 46 ff ff ff  |............F...|
00000590  76 2c 41 c9 72 01 00 00  13 00 00 00 00 00 00 00  |v,A.r...........|
000005a0  64 65 63 6f 64 65 73 74  61 74 75 73 00 00 00 00  |decodestatus....|
000005b0  8c 07 00 00 46 ff ff ff  55 54 43 c9 51 01 00 00  |....F...UTC.Q...|
000005c0  13 00 00 00 00 00 00 00  73 65 6e 64 64 61 74 61  |........senddata|
000005d0  00 00 00 00 e0 08 00 00  46 ff ff ff 8f 0e 42 c9  |........F.....B.|
000005e0  64 01 00 00 13 00 00 00  00 00 00 00 6c 69 73 74  |d...........list|
000005f0  65 6e 00 00 44 0a 00 00  46 ff ff ff 2c 3e 43 c9  |en..D...F...,>C.|
00000600  55 01 00 00 13 00 00 00  00 00 00 00 67 65 74 73  |U...........gets|
00000610  74 61 74 75 73 00 00 00  44 41 54 41 72 01 00 00  |tatus...DATAr...|
00000620  46 4e 65 63 6f 6e 65 74  5f 64 65 63 6f 64 65 73  |FNeconet_decodes|
00000630  74 61 74 75 73 28 73 74  61 74 75 73 29 0a 23 50  |tatus(status).#P|
00000640  61 72 65 6e 74 20 21 52  6f 6f 74 0a 3d 3e 09 7b  |arent !Root.=>.{|
00000650  2f 7d 73 74 61 74 75 73  7b 2f 7d 09 73 74 61 74  |/}status{/}.stat|
00000660  75 73 20 61 73 20 72 65  74 75 72 6e 65 64 20 62  |us as returned b|
00000670  79 20 3c 46 4e 65 63 6f  6e 65 74 5f 67 65 74 73  |y <FNeconet_gets|
00000680  74 61 74 75 73 3e 0a 5c  3c 3d 09 73 74 72 69 6e  |tatus>.\<=.strin|
00000690  67 20 6d 65 61 6e 69 6e  67 20 6f 66 20 74 68 65  |g meaning of the|
000006a0  20 73 74 61 74 75 73 0a  0a 49 66 20 79 6f 75 20  | status..If you |
000006b0  6e 65 65 64 20 74 6f 20  64 65 62 75 67 20 72 6f  |need to debug ro|
000006c0  75 74 69 6e 65 73 20 6f  72 20 6e 6f 74 69 66 79  |utines or notify|
000006d0  20 74 68 65 20 75 73 65  72 20 6f 66 20 74 68 65  | the user of the|
000006e0  20 63 75 72 72 65 6e 74  20 73 74 61 74 75 73 20  | current status |
000006f0  79 6f 75 20 63 61 6e 20  75 73 65 20 74 68 69 73  |you can use this|
00000700  20 63 61 6c 6c 20 74 6f  20 67 65 74 20 6d 6f 72  | call to get mor|
00000710  65 20 6d 65 61 6e 69 6e  67 20 6f 75 74 20 6f 66  |e meaning out of|
00000720  20 74 68 65 20 73 74 61  74 75 73 20 6e 75 6d 62  | the status numb|
00000730  65 72 2e 20 54 68 69 73  20 63 61 6c 6c 20 73 68  |er. This call sh|
00000740  6f 75 6c 64 6e 27 74 20  72 65 61 6c 6c 79 20 62  |ouldn't really b|
00000750  65 20 75 73 65 64 20 69  6e 20 6d 6f 73 74 20 70  |e used in most p|
00000760  72 6f 67 72 61 6d 73 20  62 75 74 20 69 73 20 69  |rograms but is i|
00000770  6e 63 6c 75 64 65 64 20  66 6f 72 20 63 6f 6d 70  |ncluded for comp|
00000780  6c 65 74 65 6e 65 73 73  2e 0a 00 00 44 41 54 41  |leteness....DATA|
00000790  51 01 00 00 46 4e 65 63  6f 6e 65 74 5f 73 65 6e  |Q...FNeconet_sen|
000007a0  64 64 61 74 61 28 70 6f  72 74 2c 73 74 61 74 6e  |ddata(port,statn|
000007b0  65 74 2c 62 6c 6f 63 6b  2c 73 69 7a 65 29 0a 23  |et,block,size).#|
000007c0  50 61 72 65 6e 74 20 21  52 6f 6f 74 0a 3d 3e 09  |Parent !Root.=>.|
000007d0  7b 2f 7d 70 6f 72 74 7b  2f 7d 09 70 6f 72 74 20  |{/}port{/}.port |
000007e0  74 6f 20 73 65 6e 64 20  64 61 74 61 20 74 6f 0a  |to send data to.|
000007f0  09 7b 2f 7d 3c 73 74 61  74 6e 65 74 3e 7b 2f 7d  |.{/}<statnet>{/}|
00000800  09 73 74 61 74 69 6f 6e  20 74 6f 20 73 65 6e 64  |.station to send|
00000810  20 64 61 74 61 20 74 6f  0a 09 7b 2f 7d 62 6c 6f  | data to..{/}blo|
00000820  63 6b 7b 2f 7d 09 62 6c  6f 63 6b 20 74 6f 20 73  |ck{/}.block to s|
00000830  65 6e 64 20 28 69 6e 20  52 4d 41 29 0a 09 7b 2f  |end (in RMA)..{/|
00000840  7d 73 69 7a 65 7b 2f 7d  09 73 69 7a 65 20 6f 66  |}size{/}.size of|
00000850  20 74 68 65 20 62 6c 6f  63 6b 0a 3c 3d 09 68 61  | the block.<=.ha|
00000860  6e 64 6c 65 0a 0a 54 68  69 73 20 63 61 6c 6c 20  |ndle..This call |
00000870  69 73 20 75 73 65 64 20  74 6f 20 73 65 6e 64 20  |is used to send |
00000880  64 61 74 61 20 74 6f 20  61 20 73 74 61 74 69 6f  |data to a statio|
00000890  6e 20 6f 6e 20 74 68 65  20 6e 65 74 77 6f 72 6b  |n on the network|
000008a0  2e 20 55 73 65 20 3c 46  4e 65 63 6f 6e 65 74 5f  |. Use <FNeconet_|
000008b0  67 65 74 73 74 61 74 75  73 3e 20 74 6f 20 63 68  |getstatus> to ch|
000008c0  65 63 6b 20 69 66 20 74  68 65 20 64 61 74 61 20  |eck if the data |
000008d0  68 61 73 20 61 72 72 69  76 65 64 2e 0a 00 00 00  |has arrived.....|
000008e0  44 41 54 41 64 01 00 00  46 4e 65 63 6f 6e 65 74  |DATAd...FNeconet|
000008f0  5f 6c 69 73 74 65 6e 28  70 6f 72 74 2c 73 74 61  |_listen(port,sta|
00000900  74 6e 65 74 2c 62 6c 6f  63 6b 2c 73 69 7a 65 29  |tnet,block,size)|
00000910  0a 23 50 61 72 65 6e 74  20 21 52 6f 6f 74 0a 3d  |.#Parent !Root.=|
00000920  3e 09 7b 2f 7d 70 6f 72  74 7b 2f 7d 09 70 6f 72  |>.{/}port{/}.por|
00000930  74 20 74 6f 20 6c 69 73  74 65 6e 20 74 6f 0a 09  |t to listen to..|
00000940  7b 2f 7d 3c 73 74 61 74  6e 65 74 3e 7b 2f 7d 09  |{/}<statnet>{/}.|
00000950  73 74 61 74 69 6f 6e 20  74 6f 20 6c 69 73 74 65  |station to liste|
00000960  6e 20 66 6f 72 20 64 61  74 61 20 66 72 6f 6d 0a  |n for data from.|
00000970  09 7b 2f 7d 62 6c 6f 63  6b 7b 2f 7d 09 62 6c 6f  |.{/}block{/}.blo|
00000980  63 6b 20 74 6f 20 72 65  63 65 69 76 65 20 64 61  |ck to receive da|
00000990  74 61 20 69 6e 20 28 69  6e 20 52 4d 41 29 0a 09  |ta in (in RMA)..|
000009a0  7b 2f 7d 73 69 7a 65 7b  2f 7d 09 73 69 7a 65 20  |{/}size{/}.size |
000009b0  6f 66 20 74 68 65 20 62  6c 6f 63 6b 0a 3c 3d 09  |of the block.<=.|
000009c0  68 61 6e 64 6c 65 0a 0a  54 68 69 73 20 63 61 6c  |handle..This cal|
000009d0  6c 20 69 73 20 75 73 65  64 20 74 6f 20 72 65 63  |l is used to rec|
000009e0  65 69 76 65 20 64 61 74  61 20 66 72 6f 6d 20 61  |eive data from a|
000009f0  20 73 74 61 74 69 6f 6e  20 6f 6e 20 74 68 65 20  | station on the |
00000a00  6e 65 74 77 6f 72 6b 2e  20 55 73 65 20 3c 46 4e  |network. Use <FN|
00000a10  65 63 6f 6e 65 74 5f 67  65 74 73 74 61 74 75 73  |econet_getstatus|
00000a20  3e 20 74 6f 20 63 68 65  63 6b 20 69 66 20 74 68  |> to check if th|
00000a30  65 20 64 61 74 61 20 68  61 73 20 61 72 72 69 76  |e data has arriv|
00000a40  65 64 2e 0a 44 41 54 41  55 01 00 00 46 4e 65 63  |ed..DATAU...FNec|
00000a50  6f 6e 65 74 5f 67 65 74  73 74 61 74 75 73 28 68  |onet_getstatus(h|
00000a60  61 6e 64 6c 65 29 0a 23  50 61 72 65 6e 74 20 21  |andle).#Parent !|
00000a70  52 6f 6f 74 0a 3d 3e 09  7b 2f 7d 68 61 6e 64 6c  |Root.=>.{/}handl|
00000a80  65 7b 2f 7d 09 68 61 6e  64 6c 65 20 74 6f 20 63  |e{/}.handle to c|
00000a90  68 65 63 6b 20 6f 6e 0a  3c 3d 09 3c 73 74 61 74  |heck on.<=.<stat|
00000aa0  75 73 3e 20 6f 66 20 74  68 65 20 64 61 74 61 0a  |us> of the data.|
00000ab0  0a 54 68 69 73 20 63 61  6c 6c 20 69 73 20 75 73  |.This call is us|
00000ac0  65 64 20 74 6f 20 63 68  65 63 6b 20 77 68 65 74  |ed to check whet|
00000ad0  68 65 72 20 61 20 73 65  6e 64 20 6f 72 20 6c 69  |her a send or li|
00000ae0  73 74 65 6e 20 68 61 73  20 63 6f 6d 70 6c 65 74  |sten has complet|
00000af0  65 64 2e 20 55 73 65 20  3c 46 4e 65 63 6f 6e 65  |ed. Use <FNecone|
00000b00  74 5f 64 65 63 6f 64 65  73 74 61 74 75 73 3e 20  |t_decodestatus> |
00000b10  74 6f 20 67 65 74 20 61  20 74 65 78 74 75 61 6c  |to get a textual|
00000b20  20 76 65 72 73 69 6f 6e  20 6f 66 20 74 68 65 20  | version of the |
00000b30  73 74 61 74 75 73 20 6e  75 6d 62 65 72 2e 20 41  |status number. A|
00000b40  66 74 65 72 20 72 65 61  64 69 6e 67 20 64 61 74  |fter reading dat|
00000b50  61 2c 20 79 6f 75 20 73  68 6f 75 6c 64 20 75 73  |a, you should us|
00000b60  65 20 3c 50 52 4f 43 65  63 6f 6e 65 74 5f 67 65  |e <PROCeconet_ge|
00000b70  74 64 61 74 61 3e 20 74  6f 20 72 65 61 64 20 74  |tdata> to read t|
00000b80  68 65 20 64 61 74 61 20  69 6e 74 6f 20 74 68 65  |he data into the|
00000b90  20 62 75 66 66 65 72 2e  0a 00 00 00 44 41 54 41  | buffer.....DATA|
00000ba0  5b 03 00 00 45 63 6f 6e  65 74 4c 69 62 20 68 65  |[...EconetLib he|
00000bb0  6c 70 0a 23 41 6c 69 67  6e 20 43 65 6e 74 72 65  |lp.#Align Centre|
00000bc0  0a 7b 66 68 33 7d 4a 46  53 68 61 72 65 64 20 45  |.{fh3}JFShared E|
00000bd0  63 6f 6e 65 74 4c 69 62  20 76 31 2e 30 30 7b 66  |conetLib v1.00{f|
00000be0  7d 0a 23 41 6c 69 67 6e  20 4c 65 66 74 0a 0a 54  |}.#Align Left..T|
00000bf0  68 65 20 45 63 6f 6e 65  74 20 4c 69 62 72 61 72  |he Econet Librar|
00000c00  79 20 69 73 20 61 20 42  61 73 69 63 20 4c 69 62  |y is a Basic Lib|
00000c10  72 61 72 79 20 66 69 6c  65 20 77 68 69 63 68 20  |rary file which |
00000c20  70 72 6f 76 69 64 65 73  20 61 6e 20 69 6e 74 65  |provides an inte|
00000c30  72 66 61 63 65 20 74 6f  20 74 68 65 20 3c 45 63  |rface to the <Ec|
00000c40  6f 6e 65 74 20 6d 6f 64  75 6c 65 3d 3e 4f 53 3a  |onet module=>OS:|
00000c50  45 63 6f 6e 65 74 5f 3e  2e 20 49 6e 20 63 6f 6e  |Econet_>. In con|
00000c60  6a 75 6e 63 74 69 6f 6e  20 77 69 74 68 20 74 68  |junction with th|
00000c70  65 20 3c 57 69 6d 70 4c  69 62 3d 3e 57 69 6d 70  |e <WimpLib=>Wimp|
00000c80  4c 69 62 3a 21 52 6f 6f  74 3e 20 61 6e 64 20 4a  |Lib:!Root> and J|
00000c90  46 53 68 61 72 65 64 20  73 6b 65 6c 65 74 6f 6e  |FShared skeleton|
00000ca0  20 61 70 70 6c 69 63 61  74 69 6f 6e 20 74 68 69  | application thi|
00000cb0  73 20 70 72 6f 76 69 64  65 73 20 61 20 76 65 72  |s provides a ver|
00000cc0  79 20 73 69 6d 70 6c 65  20 77 61 79 20 6f 66 20  |y simple way of |
00000cd0  63 72 65 61 74 69 6e 67  20 61 70 70 6c 69 63 61  |creating applica|
00000ce0  74 69 6f 6e 73 20 77 68  69 63 68 20 63 61 6e 20  |tions which can |
00000cf0  63 6f 6d 6d 75 6e 69 63  61 74 65 20 75 73 69 6e  |communicate usin|
00000d00  67 20 74 68 65 20 65 63  6f 6e 65 74 20 6e 65 74  |g the econet net|
00000d10  77 6f 72 6b 2e 20 54 68  69 73 20 68 65 6c 70 20  |work. This help |
00000d20  66 69 6c 65 20 64 65 74  61 69 6c 73 20 74 68 65  |file details the|
00000d30  20 72 6f 75 74 69 6e 65  73 20 70 72 6f 76 69 64  | routines provid|
00000d40  65 64 20 69 6e 20 45 63  6f 6e 65 74 4c 69 62 2e  |ed in EconetLib.|
00000d50  0a 0a 54 68 65 20 45 63  6f 6e 65 74 20 4c 69 62  |..The Econet Lib|
00000d60  72 61 72 79 20 69 73 20  72 65 66 65 72 65 6e 63  |rary is referenc|
00000d70  65 64 20 62 79 20 5c 3c  4a 46 45 63 6f 6e 65 74  |ed by \<JFEconet|
00000d80  4c 69 62 72 61 72 79 24  46 69 6c 65 3e 20 61 6e  |Library$File> an|
00000d90  64 20 73 68 6f 75 6c 64  20 62 65 20 6c 6f 61 64  |d should be load|
00000da0  65 64 20 77 69 74 68 20  3a 0a 7b 66 43 6f 64 65  |ed with :.{fCode|
00000db0  7d 4c 49 42 52 41 52 59  20 22 5c 3c 4a 46 45 63  |}LIBRARY "\<JFEc|
00000dc0  6f 6e 65 74 4c 69 62 72  61 72 79 24 46 69 6c 65  |onetLibrary$File|
00000dd0  3e 22 3a 50 52 4f 43 69  6e 69 74 65 63 6f 6e 65  |>":PROCinitecone|
00000de0  74 7b 66 7d 0a 0a 54 68  65 20 4a 46 53 68 61 72  |t{f}..The JFShar|
00000df0  65 64 20 61 70 70 6c 69  63 61 74 69 6f 6e 20 69  |ed application i|
00000e00  73 20 a9 20 3c 4a 75 73  74 69 6e 20 46 6c 65 74  |s . <Justin Flet|
00000e10  63 68 65 72 3d 3e 46 69  6c 65 74 79 70 65 73 3a  |cher=>Filetypes:|
00000e20  41 75 74 68 6f 72 73 5f  4a 75 73 74 69 6e 46 6c  |Authors_JustinFl|
00000e30  65 74 63 68 65 72 3e 2c  20 31 39 39 35 20 61 6e  |etcher>, 1995 an|
00000e40  64 20 69 73 20 72 65 6c  65 61 73 65 64 20 69 6e  |d is released in|
00000e50  74 6f 20 74 68 65 20 50  75 62 6c 69 63 20 44 6f  |to the Public Do|
00000e60  6d 61 69 6e 20 77 69 74  68 20 74 68 65 20 73 61  |main with the sa|
00000e70  6d 65 20 72 65 73 74 72  69 63 74 69 6f 6e 73 20  |me restrictions |
00000e80  61 73 20 73 75 62 73 69  73 74 20 69 6e 20 6d 6f  |as subsist in mo|
00000e90  73 74 20 50 44 20 73 6f  66 74 77 61 72 65 2e 20  |st PD software. |
00000ea0  54 68 69 73 20 69 6e 63  6c 75 64 65 73 20 74 68  |This includes th|
00000eb0  65 20 66 61 63 74 20 74  68 61 74 20 77 68 65 6e  |e fact that when|
00000ec0  20 64 69 73 74 72 69 62  75 74 65 64 20 74 68 65  | distributed the|
00000ed0  20 65 6e 74 69 72 65 20  61 70 70 6c 69 63 61 74  | entire applicat|
00000ee0  69 6f 6e 20 6d 75 73 74  20 72 65 6d 61 69 6e 20  |ion must remain |
00000ef0  69 6e 74 61 63 74 2e 00  44 41 54 41 58 01 00 00  |intact..DATAX...|
00000f00  73 74 61 74 6e 65 74 20  76 61 6c 75 65 73 0a 7b  |statnet values.{|
00000f10  2f 7d 73 74 61 74 6e 65  74 7b 2f 7d 20 69 73 20  |/}statnet{/} is |
00000f20  61 20 6e 75 6d 62 65 72  20 63 6f 6d 70 6f 73 65  |a number compose|
00000f30  64 20 6f 66 20 74 68 65  20 73 74 61 74 69 6f 6e  |d of the station|
00000f40  2c 20 6e 65 74 77 6f 72  6b 20 61 6e 64 20 73 6f  |, network and so|
00000f50  6d 65 74 69 6d 65 73 20  74 68 65 20 66 6c 61 67  |metimes the flag|
00000f60  73 20 70 61 73 73 65 64  20 74 6f 20 28 6f 72 20  |s passed to (or |
00000f70  66 72 6f 6d 29 20 6f 6e  65 20 6f 66 20 74 68 65  |from) one of the|
00000f80  20 45 63 6f 6e 65 74 4c  69 62 20 72 6f 75 74 69  | EconetLib routi|
00000f90  6e 65 73 2e 20 54 68 65  20 64 61 74 61 20 69 73  |nes. The data is|
00000fa0  20 66 6f 72 6d 61 74 74  65 64 20 61 73 20 7b 66  | formatted as {f|
00000fb0  43 6f 64 65 7d 26 30 30  46 46 4e 4e 53 53 7b 66  |Code}&00FFNNSS{f|
00000fc0  7d 2e 0a 0a 46 46 09 54  68 65 20 66 6c 61 67 73  |}...FF.The flags|
00000fd0  20 66 6f 72 20 74 72 61  6e 73 6d 69 74 20 6f 72  | for transmit or|
00000fe0  20 72 65 63 65 69 76 65  20 28 75 73 65 72 20 73  | receive (user s|
00000ff0  70 65 63 69 66 69 65 64  29 0a 4e 4e 09 4e 65 74  |pecified).NN.Net|
00001000  77 6f 72 6b 20 6e 75 6d  62 65 72 20 28 6f 72 20  |work number (or |
00001010  30 30 20 66 6f 72 20 63  75 72 72 65 6e 74 20 6e  |00 for current n|
00001020  65 74 77 6f 72 6b 29 0a  53 53 09 53 74 61 74 69  |etwork).SS.Stati|
00001030  6f 6e 20 6e 75 6d 62 65  72 20 28 6f 72 20 30 30  |on number (or 00|
00001040  20 74 6f 20 61 63 63 65  70 74 20 61 6e 79 29 0a  | to accept any).|
00001050  44 41 54 41 ea 00 00 00  53 74 61 74 75 73 20 6e  |DATA....Status n|
00001060  75 6d 62 65 72 73 0a 4e  6f 2e 09 4d 65 61 6e 69  |umbers.No..Meani|
00001070  6e 67 0a 23 6c 69 6e 65  0a 30 09 54 72 61 6e 73  |ng.#line.0.Trans|
00001080  6d 69 74 74 65 64 20 6f  6b 0a 31 09 4c 69 6e 65  |mitted ok.1.Line|
00001090  20 6a 61 6d 6d 65 64 0a  32 09 4e 65 74 77 6f 72  | jammed.2.Networ|
000010a0  6b 20 65 72 72 6f 72 0a  33 09 4e 6f 74 20 6c 69  |k error.3.Not li|
000010b0  73 74 65 6e 69 6e 67 0a  34 09 4e 6f 20 63 6c 6f  |stening.4.No clo|
000010c0  63 6b 0a 35 09 54 72 61  6e 73 6d 69 74 20 72 65  |ck.5.Transmit re|
000010d0  61 64 79 0a 36 09 54 72  61 6e 73 6d 69 74 74 69  |ady.6.Transmitti|
000010e0  6e 67 0a 37 09 52 65 63  65 69 76 65 20 72 65 61  |ng.7.Receive rea|
000010f0  64 79 0a 38 09 52 65 63  65 69 76 69 6e 67 0a 39  |dy.8.Receiving.9|
00001100  09 52 65 63 65 69 76 65  64 20 6f 6b 0a 31 30 09  |.Received ok.10.|
00001110  4e 6f 20 72 65 70 6c 79  0a 31 31 09 45 73 63 61  |No reply.11.Esca|
00001120  70 65 20 70 72 65 73 73  65 64 0a 31 32 09 4e 6f  |pe pressed.12.No|
00001130  74 20 70 72 65 73 65 6e  74 0a 00 00              |t present...|
0000113c

© Dominic Ford 2021–2025.

Our privacy policy is here.
Last updated: 01 May 2025, 21:49 UTC
Website designed by .