Home » CEEFAX disks » telesoftware7.adl » 04-06-88/MANUAL

04-06-88/MANUAL

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 » CEEFAX disks » telesoftware7.adl
Filename: 04-06-88/MANUAL
Read OK:
File size: 4FEC bytes
Load address: 0000
Exec address: FFFFFFFF
File contents
              TELETEXT SERVER SYSTEM

The system consists of three programs

1. A basic program 'TFS' which runs in the machine with the teletext
adaptor (henceforth called the SERVER)
2. A machine code routine 'code' which is *RUN by the program TFS.
3. A machine code program 'TELETEXT' which runs in the local machine
(henceforth called the CLIENT)

The server and client communicate on ports &B2, &B3, &B4 and &B5. The base
port number of &B2 is transmitted to the client in accordance with the
Find Server protocol. It is possible to write programs to communicate with
the TELETEXT-SERVER using these ports but it could be that updates of the
server software may use a different base port number, in which case such
programs will cease to work.

              The TELETEXT program

This locates at &FFFF6E00 and so should not corrupt any BASIC program in
the CLIENT's memory. It will work with all versions of the BBC B, B+,
MASTER and ET. The program will also communicate with a SERVER across a
bridge although some of the headers may be lost as these are broadcast and
there is no collision detect across a bridge.

1. The first action is to open a receive block to receive a
TELETEXT-SERVER's reply to a find server request. This receive block
listens on port &B1 to all stations, as at this stage the CLIENT does not
know the station number of the SERVER.

2. The CLIENT broadcasts to all stations on port &B0 with a data field
containing 'TELETEXT' this being the name to which a TELETEXT-SERVER will
respond. The first SERVER to respond will be the one with which the CLIENT
subsequently interacts. Should more than one server be available then it
is possible to connect to a specific server by using its station number eg
*TELETEXT 2.45. You may wish to do this if you know that one server
receives a better signal than another, on the channel you wish to use.

3. The CLIENT polls the receive block until a SERVER responds or <ESCAPE>
is pressed.

4. The CLIENT reads the SERVER's reply and stores the SERVER's station and
network number. The base port number (&B2) is used to calculate the ports
for further communication. The CLIENT selects MODE 7, prints the SERVER's
station number (suppressing the network number if it is zero) and also the
version number.

5. The CLIENT opens three receive blocks. One on port &B5 (base+3) ready
to receive any page headers which arrive, one on port &B2 (base) ready to
receive any SERVER replies and one on port &B4 (base+2) to receive any
pages.

6. The CLIENT sends a request for page 1100 (the first digit indicates the
channel number). This is on port &B3 (base+1) with a control byte of &81.
The reply receive block is then polled until the SERVER responds. The
position in the queue returned by the SERVER is printed at the bottom of
the page. A new receive block for replies on port &B2 is set up. If an
error occurs then the error message is displayed at the bottom of the
screen and the page input routine is entered or if the error was a 'Bad
channel' error then the channel input routine is entered.

7. The CLIENT polls both receive blocks for a page (port &B4) and for a
header (port &B5), until one or the other receives a transmission.

8. If a page header is received then the cursor is moved to the header
position and it is printed out. An identical receive block is then set up
to replace the one which has been used.

9. If a requested page is received the first action is to test the control
byte. If this is &80 then it indicates the page has been found and is in
the receive block buffer ready to be transferred to the screen. If the
control byte is &81 then this indicates some error has occurred and that
an error message is in the receive block buffer waiting to be printed.

10. If an error has occurred then the error message is printed at the
bottom of the screen and the CLIENT program jumps to the page number input
routine to get another page number. A new receive block for a page is set
up.

11. If a page is successfully received then it is displayed. A new receive
block for a page is set up. The header receive block continues to be
polled and displayed until a key is pressed.

12. All the time the receive blocks are being polled the CLIENT program
also tests to see if a key has been pressed. If a key is pressed this is
taken to mean that you are about to request a new page. If 'C' is pressed
then the input channel routine is entered followed by the input page
routine. If <RETURN> is pressed then the last page you requested is
requested again. If 'R' is pressed the 'REVEAL' routine is called and this
toggles between revealing and concealing. If '*' is pressed then the star
command routine is entered. This allows the CLIENT to *SAVE pages etc. If
any other key is pressed the page input routine is entered.

13. The first action taken by both the channel input and page input
routines is to send a 'cancel page request' to the SERVER and then delete
the current page receive block. This means the SERVER will no longer have
to bother trying to find your last requested page. The prompt for a
channel input is 'C' and for a page input is 'P'. Both routines make use
of OSWORD 0 to read a line of input and so both need to be exited by
pressing <RETURN>. A new receive page block is set up and then the new
page number is transmitted to the SERVER.

14. The escape flag is continually polled so that the CLIENT can exit at
any time by pressing <ESCAPE>. This will send a logoff instruction to the
SERVER which stops it looking for any more pages for you. All receive
blocks are deleted.

                 Sub-pages

One of the features of the normal use of teletext is that pages will roll
so that they are constantly updated eg. for cricket scores or pages with
more than one screen of information. An approximation to this facility is
available from the SERVER. Pressing 'S' will enable the automatic rolling
of sub-pages. This is done by a call to the SERVER which signals that the
requested page must not be sent until at least 0.5 of the cycle time has
elapsed. Automatic rolling of sub-pages can be disabled by pressing 'S'
again. Enabling is signalled by a high beep and disabling by a low beep.
The rolling is disabled whenever a new page is requested.

This implementation of sub-pages is a compromise in that as more clients
use this feature the more full will be the queues and it is for this
reason automatic rolling must be deliberately selected for every new page.
It is also not possible to guarantee that you will get the immediately
following sub-page in the sequence.

               The TFS program

This program makes as full use as possible of the ATFS rom's ability to
search for several pages at once. The theoretical maximum is 20 at once
but the size of the TFS program limits this to about 10. The main problem
is that it is only possible to search for pages on one channel at a time
and some way has to be found to deal with this.

The approach adopted is to place a page request into one of 4 queues, one
for each channel. If the number of pages in a queue exceeds the maximum
number of pages for which the ATFS rom has space then a 'Channel busy'
error will be returned. This maximum number of pages is the number
returned by the max users per channel call. A record is kept of the total
number of pages requested and this is the queue position returned to the
CLIENT ie this is the overall queue position and not the position in the
queue for a particular channel. Whenever a page request is received the
whole queue is checked to see if that CLIENT (identified by the station
number) has any other page requested. If this is the case then that page
is dropped from the queue. Thus it is not possible for a CLIENT to request
more than one page at once. A cancel page request or a logoff will result
in all page requests for that CLIENT being dropped from the queue.

The way the ATFS rom works means that if you are 3rd in the queue you may
still receive your page before the CLIENT who is in 1st position. This is
probably best illustrated by example.

Suppose the following requests are issued :

Station 12 page 170 on channel 1
Station 14 page 400 on channel 4
Station 17 page 123 on channel 1

The TFS program will select channel 1 as this is the highest priority item
in the queue. When station 14's request arrives it will be stored in the
queue for channel 4. However when station 17's request arrives not only is
it added to the queue for channel 1 but a record is set up to receive the
page if it is transmitted. Suppose all these three requests arrive almost
simultaneously and at the moment the TFS program selects channel 1 the
page being transmitted is page 112. This means that station 17's page
(123) will arrive before station 12's page(170). Thus station 17 will
receive it's page first even though it was 3rd in the queue. The next page
to be sent will be 170 to station 12 and station 14 will receive its page
last even though it was 2nd in the queue. This is not disaster as in fact
station 12 has had no longer to wait than it would have had anyway. What
we have managed to do is also deal with station 17 as a spin-off from
station 1's request.

If more than one station requests the same page then this is spotted and
only one of the ATFS records is used. This means that it is possible to
have more than the maximum number of users per channel queued if that
channel is the currently selected one.

When an ATFS record has been used the page it was looking for is
remembered and once that page has been found the record is not cleared.
This means that provided the channel is not changed this page will
continue to be updated and will be permanently available. Suppose a CLIENT
requests page 171; the page is received and then transmitted. If another
CLIENT (or indeed the same one) requests the same page then it is
instantly available. This is particularly useful if you happen to be the
only CLIENT using the system as it means that the last 10 or so pages you
have requested on a given channel are not only buffered by the TFS
program, but also updated and instantly available.

The TFS program broadcasts whatever page number is currently at the top of
the screen by using the timer crossing zero event. This occurs every half
second.

Overall the response time of the system is very fast although it will
obviously be slowed down if CLIENTs request non-existent pages. The cycle
times for the different channels are important to the efficiency of the
TFS program and as these times may be subject to change they have been
included in a DATA statement at the very end of the program. The first
DATA statement is the fraction of the cycle time for which the TFS program
will wait before sending a sub-page. This is currently 0.5. The second
DATA statement consists of the cycle times for the four channels in
hundredths of a second. They are currently set to 40 seconds each.

             Installing the programs

1. Place 'TELETEXT' program in $.LIBRARY

2. Put 'TFS' and 'code' in a directory of their own. This might be the
root directory of a user TFS. If this user has a !BOOT file which CHAINs
the 'TFS' program then the whole system can be initialised by simply
typing *I AM TFS. The machine running the TFS program must not use shadow
screens as the header is POKED in to memory at &7C00 by the ATFS Rom. The
program may run in a second processor, in which case the whole of the I/O
processor memory becomes available for buffering pages and there will be
an associated increase in performance. There is no advantage in using
HIBASIC as the pages are buffered in the I/O processor.


          Compatibility with the new GIS adapter

The software is compatible with the new GIS teletext adapter although as
this connects to the user port rather than the 1MHz Bus the speed of
response is slightly slower. There appears to be a problem with the
routine to calculate the checksum of a page in that the GIS Rom gets it
wrong if a page header was broadcast while performing the check. There
does seem to be a problem with the MASTER 128 and the TUBE in that the
software will not work with either adapter in this configuration. This
looks like it may be a problem with the ANFS.

             Writing your own software

Below is an example of a BASIC program which illustrates how to write your
own software using the SERVER protocols. Using this principle it is
possible to write programs for automatically receiving and saving pages.

Read the time from a TELETEXT server

 10 osword=&FFF1:osbyte=&FFF4
 20 DIM blk% &100,buff &100
 30 REPEAT
 40                               :REM Set up receive blk for SERVER reply
 50 rx_no=FNset_up_rx(&B1,0,buff,&20)
  :REM Listen for all stations as we don't know the server station number
 70 REPEAT
 80 PROCbcast(&B0,&80,"TELETEXT") :REM Broadcast for a TELETEXT server
 90 TIME=0
100 REPEAT UNTIL TIME>50          :REM Wait for a while before retrying
110 UNTIL FNpoll_rx(rx_no)>127    :REM Keep trying until a reply received
120
130 PROCread_rx(rx_no)            :REM Read the receive block
140 buff?11=13                    :REM Check that it really was a TELETEXT
150 UNTIL $(buff+3)="TELETEXT"    :REM  server which responded
160 server%=blk%!3 AND &FFFF      :REM Read the server's number
170 base_port=buff?1              :REM Read the base port number
180 rx_no=FNset_up_rx(base_port,server%,buff,&20)
 :REM Set up a receive blk
190 REPEAT                        :REM  for the time
200 REPEAT
210 PROCtx(&84,base_port+1,server%,buff,1)
 :REM Transmit request for the time
220 TIME=0                        :REM Wait for a while before retrying
230 REPEAT UNTIL TIME>50
240 result%=FNpoll_tx
250 UNTIL result%=0               :REM Keep trying until transmit succeeds
260 UNTIL FNpoll_rx(rx_no)>127    :REM Keep trying until we get a reply
270 PROCread_rx(rx_no)            :REM Read the receive block
280
290 buff?19=13
300 date$=$(buff+9)               :REM Read the date
310 buff?9=13
320 time$=$(buff+1)               :REM Read the time
330 PRINT"The time is ";time$;" on ";date$
340 END
350
360 DEFPROCbcast(p%,cb%,server$)
370 ?blk%=cb%
380 blk%?1=p%
390 blk%!2=&FFFF
400 $(blk%+4)=server$
410 X%=blk%:Y%=X% DIV 256:A%=&10
420 CALL osword
430 ENDPROC
440
450 DEFFNset_up_rx(p%,st%,b%,l%)
460 ?blk%=0
470 blk%?1=&7F
480 blk%?2=p%
490 blk%!3=st%
500 blk%!5=b%
510 blk%!9=b%+l%
520 X%=blk%:Y%=X% DIV 256:A%=&11
530 CALL osword
540 =?blk%
550
560 DEFFNpoll_rx(r%)
570 A%=&33:X%=r%
580 =USR(osbyte) AND &8000
590
600 DEFPROCread_rx(r%)
610 ?blk%=r%
620 X%=blk%:Y%=X% DIV 256:A%=&11
630 CALL osword
640 ENDPROC
650
660 DEFPROCtx(cb%,p%,st%,b%,l%)
670 ?blk%=cb%
680 blk%?1=p%
690 blk%!2=st%
700 blk%!4=b%
710 blk%!8=b%+l%
720 X%=blk%:Y%=X% DIV 256:A%=&10
730 CALL osword
740 ENDPROC
750
760 DEFFNpoll_tx
770 REPEAT
780 A%=&32
790 test%=(USR(osbyte) AND &FF00) DIV &100
800 UNTIL test%<128
810 =test%


               SERVER Extensions

As you will find in the protocols section of this article a further
non-teletext related call has been included in the SERVER. This call
returns the value of the analogue ports. This means various devices can be
attached to the analogue port of the SERVER and can be sampled from
anywhere on the network. We are using this to monitor the outside
temperature.

             TELETEXT SERVER PROTOCOLS

All communications between teleserver and client are conducted on ports
base-base+3 (currently &B2-&B5). Transmissions from client to server are
on port &B3 and replies from the server are on port &B2. Port &B5 is
reserved for broadcasting the current page number being picked up by the
server and port &B4 is used for transmitting the page itself.

It is necessary to use four ports because the client may wish to have
three receive blocks open at the same time. One to continually update the
page header, one to request other information and one to receive the page
itself.

The page currently being received is broadcast on port &B5 and consists of
4 bytes:

Byte 1     Channel number in ASCII
Bytes 2-4  Page number in ASCII

All transmissions to the teleserver will result in a reply being sent. The
teleserver gives up if a 'Not listening' error occurs 5 times. There are
two standard forms of reply.

a) If an error has occurred (eg you have requested a silly page number or
channel number) then the first byte of the reply data will be an error
number and the following bytes will be an error message terminated by a
carriage return.

b) If no error has occurred the first byte of the reply data will be zero
and the subsequent bytes will be dependent on the call issued.

read teleserver version number

1/client to teleserver

port          &B3
control byte  &80
data          nil

2/teleserver to client

port          &B2
control byte  &80
data          0 or error number
data+1        version number as character string terminated by c/r

issue page request

1/client to teleserver

port          &B3
control byte  &81
data          channel number in ASCII
data+1-data+3 page number in ASCII

2/teleserver to client

port          &B2
control byte  &81
data          0 or error number
data+1        position in queue

cancel page request

1/client to teleserver

port          &B3
control byte  &82
data          nil

2/teleserver to client

port          &B2
control byte  &82
data          0 or error number
data+1        nil

read max users per channel

1/client to teleserver

port          &B3
control byte  &83
data          nil

2/teleserver to client

port          &B2
control byte  &83
data          0 or error number
data+1        max users

read date and time

1/client to teleserver

port          &B3
control byte  &84
data          nil

2/teleserver to client

port          &B2
control byte  &84
data          0 or error number
data+1        time and date in ASCII (HH:MM:SSDD/MM/YYYY)

logoff

1/client to teleserver

port          &B3
control byte  &85
data          nil

2/teleserver to client

port          &B2
control byte  &85
data          0 or error number
data+1        nil

page request with time delay

1/client to teleserver

port          &B3
control byte  &86
data          channel number in ASCII
data+1-data+3 page number in ASCII

2/teleserver to client

port          &B2
control byte  &86
data          0 or error number
data+1        position in queue

request port value

1/client to teleserver

port          &B3
control byte  &87
data          port number in range 0 to 3

2/teleserver to client

port          &B2
control byte  &87
data          0 or error number
data+1-data+2 port value

Reception of the teletext page

The teleserver sends the page on port &B4. The control byte will be &80 if
no error has occurred otherwise the control byte will be &81. The only
error that will occur will be a 'Timed out' error ie you have probably
asked for a non-existent page. The data in the receive block buffer will
be the page requested if there is no error, otherwise the data will be an
error message terminated by a carriage return.If you successfully receive
a page then locations &3FE and &3FF into the receive block buffer will
contain the sub page number in BCD format. &3FE contains the hi-byte and
&3FF contains the lo-byte

     ========================================================

ERROR NUMBERS

Possible error numbers are:

1  Bad page number
2  Bad channel
3  Channel busy
4  Time unavailable
5  Bad port

If an error is received then an error message terminated by a carriage
return will be returned in data+1.

The SERVER's receive buffer is &50 bytes.

The SERVER transmits a block of &400 bytes on port &B3 when transmitting a
page. It transmits a block of &20 bytes in all other cases.

           -------------------------------

Logging on to the server

Client to Server

port            &B0

control byte    &80

Data            The string TELETEXT as standard ASCII (the server type)

Server to Client

port            &B1

control byte    &80

Data            0 or error number
Data+1          base port number for further exchanges
Data+2          binary verison number of the server software
Data+3          Server type (8 chars, format as for Client to Server)
Data+11         Length of server name (=0 if not present)
Data+12         Server name (optional)
Data+12+NameLen Server type dependant OR error string

The length of the receive block buffer needed to receive this response
from the server will not exceed &20 bytes. 
00000000  20 20 20 20 20 20 20 20  20 20 20 20 20 20 54 45  |              TE|
00000010  4c 45 54 45 58 54 20 53  45 52 56 45 52 20 53 59  |LETEXT SERVER SY|
00000020  53 54 45 4d 0d 0d 54 68  65 20 73 79 73 74 65 6d  |STEM..The system|
00000030  20 63 6f 6e 73 69 73 74  73 20 6f 66 20 74 68 72  | consists of thr|
00000040  65 65 20 70 72 6f 67 72  61 6d 73 0d 0d 31 2e 20  |ee programs..1. |
00000050  41 20 62 61 73 69 63 20  70 72 6f 67 72 61 6d 20  |A basic program |
00000060  27 54 46 53 27 20 77 68  69 63 68 20 72 75 6e 73  |'TFS' which runs|
00000070  20 69 6e 20 74 68 65 20  6d 61 63 68 69 6e 65 20  | in the machine |
00000080  77 69 74 68 20 74 68 65  20 74 65 6c 65 74 65 78  |with the teletex|
00000090  74 0d 61 64 61 70 74 6f  72 20 28 68 65 6e 63 65  |t.adaptor (hence|
000000a0  66 6f 72 74 68 20 63 61  6c 6c 65 64 20 74 68 65  |forth called the|
000000b0  20 53 45 52 56 45 52 29  0d 32 2e 20 41 20 6d 61  | SERVER).2. A ma|
000000c0  63 68 69 6e 65 20 63 6f  64 65 20 72 6f 75 74 69  |chine code routi|
000000d0  6e 65 20 27 63 6f 64 65  27 20 77 68 69 63 68 20  |ne 'code' which |
000000e0  69 73 20 2a 52 55 4e 20  62 79 20 74 68 65 20 70  |is *RUN by the p|
000000f0  72 6f 67 72 61 6d 20 54  46 53 2e 0d 33 2e 20 41  |rogram TFS..3. A|
00000100  20 6d 61 63 68 69 6e 65  20 63 6f 64 65 20 70 72  | machine code pr|
00000110  6f 67 72 61 6d 20 27 54  45 4c 45 54 45 58 54 27  |ogram 'TELETEXT'|
00000120  20 77 68 69 63 68 20 72  75 6e 73 20 69 6e 20 74  | which runs in t|
00000130  68 65 20 6c 6f 63 61 6c  20 6d 61 63 68 69 6e 65  |he local machine|
00000140  0d 28 68 65 6e 63 65 66  6f 72 74 68 20 63 61 6c  |.(henceforth cal|
00000150  6c 65 64 20 74 68 65 20  43 4c 49 45 4e 54 29 0d  |led the CLIENT).|
00000160  0d 54 68 65 20 73 65 72  76 65 72 20 61 6e 64 20  |.The server and |
00000170  63 6c 69 65 6e 74 20 63  6f 6d 6d 75 6e 69 63 61  |client communica|
00000180  74 65 20 6f 6e 20 70 6f  72 74 73 20 26 42 32 2c  |te on ports &B2,|
00000190  20 26 42 33 2c 20 26 42  34 20 61 6e 64 20 26 42  | &B3, &B4 and &B|
000001a0  35 2e 20 54 68 65 20 62  61 73 65 0d 70 6f 72 74  |5. The base.port|
000001b0  20 6e 75 6d 62 65 72 20  6f 66 20 26 42 32 20 69  | number of &B2 i|
000001c0  73 20 74 72 61 6e 73 6d  69 74 74 65 64 20 74 6f  |s transmitted to|
000001d0  20 74 68 65 20 63 6c 69  65 6e 74 20 69 6e 20 61  | the client in a|
000001e0  63 63 6f 72 64 61 6e 63  65 20 77 69 74 68 20 74  |ccordance with t|
000001f0  68 65 0d 46 69 6e 64 20  53 65 72 76 65 72 20 70  |he.Find Server p|
00000200  72 6f 74 6f 63 6f 6c 2e  20 49 74 20 69 73 20 70  |rotocol. It is p|
00000210  6f 73 73 69 62 6c 65 20  74 6f 20 77 72 69 74 65  |ossible to write|
00000220  20 70 72 6f 67 72 61 6d  73 20 74 6f 20 63 6f 6d  | programs to com|
00000230  6d 75 6e 69 63 61 74 65  20 77 69 74 68 0d 74 68  |municate with.th|
00000240  65 20 54 45 4c 45 54 45  58 54 2d 53 45 52 56 45  |e TELETEXT-SERVE|
00000250  52 20 75 73 69 6e 67 20  74 68 65 73 65 20 70 6f  |R using these po|
00000260  72 74 73 20 62 75 74 20  69 74 20 63 6f 75 6c 64  |rts but it could|
00000270  20 62 65 20 74 68 61 74  20 75 70 64 61 74 65 73  | be that updates|
00000280  20 6f 66 20 74 68 65 0d  73 65 72 76 65 72 20 73  | of the.server s|
00000290  6f 66 74 77 61 72 65 20  6d 61 79 20 75 73 65 20  |oftware may use |
000002a0  61 20 64 69 66 66 65 72  65 6e 74 20 62 61 73 65  |a different base|
000002b0  20 70 6f 72 74 20 6e 75  6d 62 65 72 2c 20 69 6e  | port number, in|
000002c0  20 77 68 69 63 68 20 63  61 73 65 20 73 75 63 68  | which case such|
000002d0  0d 70 72 6f 67 72 61 6d  73 20 77 69 6c 6c 20 63  |.programs will c|
000002e0  65 61 73 65 20 74 6f 20  77 6f 72 6b 2e 0d 0d 20  |ease to work... |
000002f0  20 20 20 20 20 20 20 20  20 20 20 20 20 54 68 65  |             The|
00000300  20 54 45 4c 45 54 45 58  54 20 70 72 6f 67 72 61  | TELETEXT progra|
00000310  6d 0d 0d 54 68 69 73 20  6c 6f 63 61 74 65 73 20  |m..This locates |
00000320  61 74 20 26 46 46 46 46  36 45 30 30 20 61 6e 64  |at &FFFF6E00 and|
00000330  20 73 6f 20 73 68 6f 75  6c 64 20 6e 6f 74 20 63  | so should not c|
00000340  6f 72 72 75 70 74 20 61  6e 79 20 42 41 53 49 43  |orrupt any BASIC|
00000350  20 70 72 6f 67 72 61 6d  20 69 6e 0d 74 68 65 20  | program in.the |
00000360  43 4c 49 45 4e 54 27 73  20 6d 65 6d 6f 72 79 2e  |CLIENT's memory.|
00000370  20 49 74 20 77 69 6c 6c  20 77 6f 72 6b 20 77 69  | It will work wi|
00000380  74 68 20 61 6c 6c 20 76  65 72 73 69 6f 6e 73 20  |th all versions |
00000390  6f 66 20 74 68 65 20 42  42 43 20 42 2c 20 42 2b  |of the BBC B, B+|
000003a0  2c 0d 4d 41 53 54 45 52  20 61 6e 64 20 45 54 2e  |,.MASTER and ET.|
000003b0  20 54 68 65 20 70 72 6f  67 72 61 6d 20 77 69 6c  | The program wil|
000003c0  6c 20 61 6c 73 6f 20 63  6f 6d 6d 75 6e 69 63 61  |l also communica|
000003d0  74 65 20 77 69 74 68 20  61 20 53 45 52 56 45 52  |te with a SERVER|
000003e0  20 61 63 72 6f 73 73 20  61 0d 62 72 69 64 67 65  | across a.bridge|
000003f0  20 61 6c 74 68 6f 75 67  68 20 73 6f 6d 65 20 6f  | although some o|
00000400  66 20 74 68 65 20 68 65  61 64 65 72 73 20 6d 61  |f the headers ma|
00000410  79 20 62 65 20 6c 6f 73  74 20 61 73 20 74 68 65  |y be lost as the|
00000420  73 65 20 61 72 65 20 62  72 6f 61 64 63 61 73 74  |se are broadcast|
00000430  20 61 6e 64 0d 74 68 65  72 65 20 69 73 20 6e 6f  | and.there is no|
00000440  20 63 6f 6c 6c 69 73 69  6f 6e 20 64 65 74 65 63  | collision detec|
00000450  74 20 61 63 72 6f 73 73  20 61 20 62 72 69 64 67  |t across a bridg|
00000460  65 2e 0d 0d 31 2e 20 54  68 65 20 66 69 72 73 74  |e...1. The first|
00000470  20 61 63 74 69 6f 6e 20  69 73 20 74 6f 20 6f 70  | action is to op|
00000480  65 6e 20 61 20 72 65 63  65 69 76 65 20 62 6c 6f  |en a receive blo|
00000490  63 6b 20 74 6f 20 72 65  63 65 69 76 65 20 61 0d  |ck to receive a.|
000004a0  54 45 4c 45 54 45 58 54  2d 53 45 52 56 45 52 27  |TELETEXT-SERVER'|
000004b0  73 20 72 65 70 6c 79 20  74 6f 20 61 20 66 69 6e  |s reply to a fin|
000004c0  64 20 73 65 72 76 65 72  20 72 65 71 75 65 73 74  |d server request|
000004d0  2e 20 54 68 69 73 20 72  65 63 65 69 76 65 20 62  |. This receive b|
000004e0  6c 6f 63 6b 0d 6c 69 73  74 65 6e 73 20 6f 6e 20  |lock.listens on |
000004f0  70 6f 72 74 20 26 42 31  20 74 6f 20 61 6c 6c 20  |port &B1 to all |
00000500  73 74 61 74 69 6f 6e 73  2c 20 61 73 20 61 74 20  |stations, as at |
00000510  74 68 69 73 20 73 74 61  67 65 20 74 68 65 20 43  |this stage the C|
00000520  4c 49 45 4e 54 20 64 6f  65 73 20 6e 6f 74 0d 6b  |LIENT does not.k|
00000530  6e 6f 77 20 74 68 65 20  73 74 61 74 69 6f 6e 20  |now the station |
00000540  6e 75 6d 62 65 72 20 6f  66 20 74 68 65 20 53 45  |number of the SE|
00000550  52 56 45 52 2e 0d 0d 32  2e 20 54 68 65 20 43 4c  |RVER...2. The CL|
00000560  49 45 4e 54 20 62 72 6f  61 64 63 61 73 74 73 20  |IENT broadcasts |
00000570  74 6f 20 61 6c 6c 20 73  74 61 74 69 6f 6e 73 20  |to all stations |
00000580  6f 6e 20 70 6f 72 74 20  26 42 30 20 77 69 74 68  |on port &B0 with|
00000590  20 61 20 64 61 74 61 20  66 69 65 6c 64 0d 63 6f  | a data field.co|
000005a0  6e 74 61 69 6e 69 6e 67  20 27 54 45 4c 45 54 45  |ntaining 'TELETE|
000005b0  58 54 27 20 74 68 69 73  20 62 65 69 6e 67 20 74  |XT' this being t|
000005c0  68 65 20 6e 61 6d 65 20  74 6f 20 77 68 69 63 68  |he name to which|
000005d0  20 61 20 54 45 4c 45 54  45 58 54 2d 53 45 52 56  | a TELETEXT-SERV|
000005e0  45 52 20 77 69 6c 6c 0d  72 65 73 70 6f 6e 64 2e  |ER will.respond.|
000005f0  20 54 68 65 20 66 69 72  73 74 20 53 45 52 56 45  | The first SERVE|
00000600  52 20 74 6f 20 72 65 73  70 6f 6e 64 20 77 69 6c  |R to respond wil|
00000610  6c 20 62 65 20 74 68 65  20 6f 6e 65 20 77 69 74  |l be the one wit|
00000620  68 20 77 68 69 63 68 20  74 68 65 20 43 4c 49 45  |h which the CLIE|
00000630  4e 54 0d 73 75 62 73 65  71 75 65 6e 74 6c 79 20  |NT.subsequently |
00000640  69 6e 74 65 72 61 63 74  73 2e 20 53 68 6f 75 6c  |interacts. Shoul|
00000650  64 20 6d 6f 72 65 20 74  68 61 6e 20 6f 6e 65 20  |d more than one |
00000660  73 65 72 76 65 72 20 62  65 20 61 76 61 69 6c 61  |server be availa|
00000670  62 6c 65 20 74 68 65 6e  20 69 74 0d 69 73 20 70  |ble then it.is p|
00000680  6f 73 73 69 62 6c 65 20  74 6f 20 63 6f 6e 6e 65  |ossible to conne|
00000690  63 74 20 74 6f 20 61 20  73 70 65 63 69 66 69 63  |ct to a specific|
000006a0  20 73 65 72 76 65 72 20  62 79 20 75 73 69 6e 67  | server by using|
000006b0  20 69 74 73 20 73 74 61  74 69 6f 6e 20 6e 75 6d  | its station num|
000006c0  62 65 72 20 65 67 0d 2a  54 45 4c 45 54 45 58 54  |ber eg.*TELETEXT|
000006d0  20 32 2e 34 35 2e 20 59  6f 75 20 6d 61 79 20 77  | 2.45. You may w|
000006e0  69 73 68 20 74 6f 20 64  6f 20 74 68 69 73 20 69  |ish to do this i|
000006f0  66 20 79 6f 75 20 6b 6e  6f 77 20 74 68 61 74 20  |f you know that |
00000700  6f 6e 65 20 73 65 72 76  65 72 0d 72 65 63 65 69  |one server.recei|
00000710  76 65 73 20 61 20 62 65  74 74 65 72 20 73 69 67  |ves a better sig|
00000720  6e 61 6c 20 74 68 61 6e  20 61 6e 6f 74 68 65 72  |nal than another|
00000730  2c 20 6f 6e 20 74 68 65  20 63 68 61 6e 6e 65 6c  |, on the channel|
00000740  20 79 6f 75 20 77 69 73  68 20 74 6f 20 75 73 65  | you wish to use|
00000750  2e 0d 0d 33 2e 20 54 68  65 20 43 4c 49 45 4e 54  |...3. The CLIENT|
00000760  20 70 6f 6c 6c 73 20 74  68 65 20 72 65 63 65 69  | polls the recei|
00000770  76 65 20 62 6c 6f 63 6b  20 75 6e 74 69 6c 20 61  |ve block until a|
00000780  20 53 45 52 56 45 52 20  72 65 73 70 6f 6e 64 73  | SERVER responds|
00000790  20 6f 72 20 3c 45 53 43  41 50 45 3e 0d 69 73 20  | or <ESCAPE>.is |
000007a0  70 72 65 73 73 65 64 2e  0d 0d 34 2e 20 54 68 65  |pressed...4. The|
000007b0  20 43 4c 49 45 4e 54 20  72 65 61 64 73 20 74 68  | CLIENT reads th|
000007c0  65 20 53 45 52 56 45 52  27 73 20 72 65 70 6c 79  |e SERVER's reply|
000007d0  20 61 6e 64 20 73 74 6f  72 65 73 20 74 68 65 20  | and stores the |
000007e0  53 45 52 56 45 52 27 73  20 73 74 61 74 69 6f 6e  |SERVER's station|
000007f0  20 61 6e 64 0d 6e 65 74  77 6f 72 6b 20 6e 75 6d  | and.network num|
00000800  62 65 72 2e 20 54 68 65  20 62 61 73 65 20 70 6f  |ber. The base po|
00000810  72 74 20 6e 75 6d 62 65  72 20 28 26 42 32 29 20  |rt number (&B2) |
00000820  69 73 20 75 73 65 64 20  74 6f 20 63 61 6c 63 75  |is used to calcu|
00000830  6c 61 74 65 20 74 68 65  20 70 6f 72 74 73 0d 66  |late the ports.f|
00000840  6f 72 20 66 75 72 74 68  65 72 20 63 6f 6d 6d 75  |or further commu|
00000850  6e 69 63 61 74 69 6f 6e  2e 20 54 68 65 20 43 4c  |nication. The CL|
00000860  49 45 4e 54 20 73 65 6c  65 63 74 73 20 4d 4f 44  |IENT selects MOD|
00000870  45 20 37 2c 20 70 72 69  6e 74 73 20 74 68 65 20  |E 7, prints the |
00000880  53 45 52 56 45 52 27 73  0d 73 74 61 74 69 6f 6e  |SERVER's.station|
00000890  20 6e 75 6d 62 65 72 20  28 73 75 70 70 72 65 73  | number (suppres|
000008a0  73 69 6e 67 20 74 68 65  20 6e 65 74 77 6f 72 6b  |sing the network|
000008b0  20 6e 75 6d 62 65 72 20  69 66 20 69 74 20 69 73  | number if it is|
000008c0  20 7a 65 72 6f 29 20 61  6e 64 20 61 6c 73 6f 20  | zero) and also |
000008d0  74 68 65 0d 76 65 72 73  69 6f 6e 20 6e 75 6d 62  |the.version numb|
000008e0  65 72 2e 0d 0d 35 2e 20  54 68 65 20 43 4c 49 45  |er...5. The CLIE|
000008f0  4e 54 20 6f 70 65 6e 73  20 74 68 72 65 65 20 72  |NT opens three r|
00000900  65 63 65 69 76 65 20 62  6c 6f 63 6b 73 2e 20 4f  |eceive blocks. O|
00000910  6e 65 20 6f 6e 20 70 6f  72 74 20 26 42 35 20 28  |ne on port &B5 (|
00000920  62 61 73 65 2b 33 29 20  72 65 61 64 79 0d 74 6f  |base+3) ready.to|
00000930  20 72 65 63 65 69 76 65  20 61 6e 79 20 70 61 67  | receive any pag|
00000940  65 20 68 65 61 64 65 72  73 20 77 68 69 63 68 20  |e headers which |
00000950  61 72 72 69 76 65 2c 20  6f 6e 65 20 6f 6e 20 70  |arrive, one on p|
00000960  6f 72 74 20 26 42 32 20  28 62 61 73 65 29 20 72  |ort &B2 (base) r|
00000970  65 61 64 79 20 74 6f 0d  72 65 63 65 69 76 65 20  |eady to.receive |
00000980  61 6e 79 20 53 45 52 56  45 52 20 72 65 70 6c 69  |any SERVER repli|
00000990  65 73 20 61 6e 64 20 6f  6e 65 20 6f 6e 20 70 6f  |es and one on po|
000009a0  72 74 20 26 42 34 20 28  62 61 73 65 2b 32 29 20  |rt &B4 (base+2) |
000009b0  74 6f 20 72 65 63 65 69  76 65 20 61 6e 79 0d 70  |to receive any.p|
000009c0  61 67 65 73 2e 0d 0d 36  2e 20 54 68 65 20 43 4c  |ages...6. The CL|
000009d0  49 45 4e 54 20 73 65 6e  64 73 20 61 20 72 65 71  |IENT sends a req|
000009e0  75 65 73 74 20 66 6f 72  20 70 61 67 65 20 31 31  |uest for page 11|
000009f0  30 30 20 28 74 68 65 20  66 69 72 73 74 20 64 69  |00 (the first di|
00000a00  67 69 74 20 69 6e 64 69  63 61 74 65 73 20 74 68  |git indicates th|
00000a10  65 0d 63 68 61 6e 6e 65  6c 20 6e 75 6d 62 65 72  |e.channel number|
00000a20  29 2e 20 54 68 69 73 20  69 73 20 6f 6e 20 70 6f  |). This is on po|
00000a30  72 74 20 26 42 33 20 28  62 61 73 65 2b 31 29 20  |rt &B3 (base+1) |
00000a40  77 69 74 68 20 61 20 63  6f 6e 74 72 6f 6c 20 62  |with a control b|
00000a50  79 74 65 20 6f 66 20 26  38 31 2e 0d 54 68 65 20  |yte of &81..The |
00000a60  72 65 70 6c 79 20 72 65  63 65 69 76 65 20 62 6c  |reply receive bl|
00000a70  6f 63 6b 20 69 73 20 74  68 65 6e 20 70 6f 6c 6c  |ock is then poll|
00000a80  65 64 20 75 6e 74 69 6c  20 74 68 65 20 53 45 52  |ed until the SER|
00000a90  56 45 52 20 72 65 73 70  6f 6e 64 73 2e 20 54 68  |VER responds. Th|
00000aa0  65 0d 70 6f 73 69 74 69  6f 6e 20 69 6e 20 74 68  |e.position in th|
00000ab0  65 20 71 75 65 75 65 20  72 65 74 75 72 6e 65 64  |e queue returned|
00000ac0  20 62 79 20 74 68 65 20  53 45 52 56 45 52 20 69  | by the SERVER i|
00000ad0  73 20 70 72 69 6e 74 65  64 20 61 74 20 74 68 65  |s printed at the|
00000ae0  20 62 6f 74 74 6f 6d 20  6f 66 0d 74 68 65 20 70  | bottom of.the p|
00000af0  61 67 65 2e 20 41 20 6e  65 77 20 72 65 63 65 69  |age. A new recei|
00000b00  76 65 20 62 6c 6f 63 6b  20 66 6f 72 20 72 65 70  |ve block for rep|
00000b10  6c 69 65 73 20 6f 6e 20  70 6f 72 74 20 26 42 32  |lies on port &B2|
00000b20  20 69 73 20 73 65 74 20  75 70 2e 20 49 66 20 61  | is set up. If a|
00000b30  6e 0d 65 72 72 6f 72 20  6f 63 63 75 72 73 20 74  |n.error occurs t|
00000b40  68 65 6e 20 74 68 65 20  65 72 72 6f 72 20 6d 65  |hen the error me|
00000b50  73 73 61 67 65 20 69 73  20 64 69 73 70 6c 61 79  |ssage is display|
00000b60  65 64 20 61 74 20 74 68  65 20 62 6f 74 74 6f 6d  |ed at the bottom|
00000b70  20 6f 66 20 74 68 65 0d  73 63 72 65 65 6e 20 61  | of the.screen a|
00000b80  6e 64 20 74 68 65 20 70  61 67 65 20 69 6e 70 75  |nd the page inpu|
00000b90  74 20 72 6f 75 74 69 6e  65 20 69 73 20 65 6e 74  |t routine is ent|
00000ba0  65 72 65 64 20 6f 72 20  69 66 20 74 68 65 20 65  |ered or if the e|
00000bb0  72 72 6f 72 20 77 61 73  20 61 20 27 42 61 64 0d  |rror was a 'Bad.|
00000bc0  63 68 61 6e 6e 65 6c 27  20 65 72 72 6f 72 20 74  |channel' error t|
00000bd0  68 65 6e 20 74 68 65 20  63 68 61 6e 6e 65 6c 20  |hen the channel |
00000be0  69 6e 70 75 74 20 72 6f  75 74 69 6e 65 20 69 73  |input routine is|
00000bf0  20 65 6e 74 65 72 65 64  2e 0d 0d 37 2e 20 54 68  | entered...7. Th|
00000c00  65 20 43 4c 49 45 4e 54  20 70 6f 6c 6c 73 20 62  |e CLIENT polls b|
00000c10  6f 74 68 20 72 65 63 65  69 76 65 20 62 6c 6f 63  |oth receive bloc|
00000c20  6b 73 20 66 6f 72 20 61  20 70 61 67 65 20 28 70  |ks for a page (p|
00000c30  6f 72 74 20 26 42 34 29  20 61 6e 64 20 66 6f 72  |ort &B4) and for|
00000c40  20 61 0d 68 65 61 64 65  72 20 28 70 6f 72 74 20  | a.header (port |
00000c50  26 42 35 29 2c 20 75 6e  74 69 6c 20 6f 6e 65 20  |&B5), until one |
00000c60  6f 72 20 74 68 65 20 6f  74 68 65 72 20 72 65 63  |or the other rec|
00000c70  65 69 76 65 73 20 61 20  74 72 61 6e 73 6d 69 73  |eives a transmis|
00000c80  73 69 6f 6e 2e 0d 0d 38  2e 20 49 66 20 61 20 70  |sion...8. If a p|
00000c90  61 67 65 20 68 65 61 64  65 72 20 69 73 20 72 65  |age header is re|
00000ca0  63 65 69 76 65 64 20 74  68 65 6e 20 74 68 65 20  |ceived then the |
00000cb0  63 75 72 73 6f 72 20 69  73 20 6d 6f 76 65 64 20  |cursor is moved |
00000cc0  74 6f 20 74 68 65 20 68  65 61 64 65 72 0d 70 6f  |to the header.po|
00000cd0  73 69 74 69 6f 6e 20 61  6e 64 20 69 74 20 69 73  |sition and it is|
00000ce0  20 70 72 69 6e 74 65 64  20 6f 75 74 2e 20 41 6e  | printed out. An|
00000cf0  20 69 64 65 6e 74 69 63  61 6c 20 72 65 63 65 69  | identical recei|
00000d00  76 65 20 62 6c 6f 63 6b  20 69 73 20 74 68 65 6e  |ve block is then|
00000d10  20 73 65 74 20 75 70 0d  74 6f 20 72 65 70 6c 61  | set up.to repla|
00000d20  63 65 20 74 68 65 20 6f  6e 65 20 77 68 69 63 68  |ce the one which|
00000d30  20 68 61 73 20 62 65 65  6e 20 75 73 65 64 2e 0d  | has been used..|
00000d40  0d 39 2e 20 49 66 20 61  20 72 65 71 75 65 73 74  |.9. If a request|
00000d50  65 64 20 70 61 67 65 20  69 73 20 72 65 63 65 69  |ed page is recei|
00000d60  76 65 64 20 74 68 65 20  66 69 72 73 74 20 61 63  |ved the first ac|
00000d70  74 69 6f 6e 20 69 73 20  74 6f 20 74 65 73 74 20  |tion is to test |
00000d80  74 68 65 20 63 6f 6e 74  72 6f 6c 0d 62 79 74 65  |the control.byte|
00000d90  2e 20 49 66 20 74 68 69  73 20 69 73 20 26 38 30  |. If this is &80|
00000da0  20 74 68 65 6e 20 69 74  20 69 6e 64 69 63 61 74  | then it indicat|
00000db0  65 73 20 74 68 65 20 70  61 67 65 20 68 61 73 20  |es the page has |
00000dc0  62 65 65 6e 20 66 6f 75  6e 64 20 61 6e 64 20 69  |been found and i|
00000dd0  73 20 69 6e 0d 74 68 65  20 72 65 63 65 69 76 65  |s in.the receive|
00000de0  20 62 6c 6f 63 6b 20 62  75 66 66 65 72 20 72 65  | block buffer re|
00000df0  61 64 79 20 74 6f 20 62  65 20 74 72 61 6e 73 66  |ady to be transf|
00000e00  65 72 72 65 64 20 74 6f  20 74 68 65 20 73 63 72  |erred to the scr|
00000e10  65 65 6e 2e 20 49 66 20  74 68 65 0d 63 6f 6e 74  |een. If the.cont|
00000e20  72 6f 6c 20 62 79 74 65  20 69 73 20 26 38 31 20  |rol byte is &81 |
00000e30  74 68 65 6e 20 74 68 69  73 20 69 6e 64 69 63 61  |then this indica|
00000e40  74 65 73 20 73 6f 6d 65  20 65 72 72 6f 72 20 68  |tes some error h|
00000e50  61 73 20 6f 63 63 75 72  72 65 64 20 61 6e 64 20  |as occurred and |
00000e60  74 68 61 74 0d 61 6e 20  65 72 72 6f 72 20 6d 65  |that.an error me|
00000e70  73 73 61 67 65 20 69 73  20 69 6e 20 74 68 65 20  |ssage is in the |
00000e80  72 65 63 65 69 76 65 20  62 6c 6f 63 6b 20 62 75  |receive block bu|
00000e90  66 66 65 72 20 77 61 69  74 69 6e 67 20 74 6f 20  |ffer waiting to |
00000ea0  62 65 20 70 72 69 6e 74  65 64 2e 0d 0d 31 30 2e  |be printed...10.|
00000eb0  20 49 66 20 61 6e 20 65  72 72 6f 72 20 68 61 73  | If an error has|
00000ec0  20 6f 63 63 75 72 72 65  64 20 74 68 65 6e 20 74  | occurred then t|
00000ed0  68 65 20 65 72 72 6f 72  20 6d 65 73 73 61 67 65  |he error message|
00000ee0  20 69 73 20 70 72 69 6e  74 65 64 20 61 74 20 74  | is printed at t|
00000ef0  68 65 0d 62 6f 74 74 6f  6d 20 6f 66 20 74 68 65  |he.bottom of the|
00000f00  20 73 63 72 65 65 6e 20  61 6e 64 20 74 68 65 20  | screen and the |
00000f10  43 4c 49 45 4e 54 20 70  72 6f 67 72 61 6d 20 6a  |CLIENT program j|
00000f20  75 6d 70 73 20 74 6f 20  74 68 65 20 70 61 67 65  |umps to the page|
00000f30  20 6e 75 6d 62 65 72 20  69 6e 70 75 74 0d 72 6f  | number input.ro|
00000f40  75 74 69 6e 65 20 74 6f  20 67 65 74 20 61 6e 6f  |utine to get ano|
00000f50  74 68 65 72 20 70 61 67  65 20 6e 75 6d 62 65 72  |ther page number|
00000f60  2e 20 41 20 6e 65 77 20  72 65 63 65 69 76 65 20  |. A new receive |
00000f70  62 6c 6f 63 6b 20 66 6f  72 20 61 20 70 61 67 65  |block for a page|
00000f80  20 69 73 20 73 65 74 0d  75 70 2e 0d 0d 31 31 2e  | is set.up...11.|
00000f90  20 49 66 20 61 20 70 61  67 65 20 69 73 20 73 75  | If a page is su|
00000fa0  63 63 65 73 73 66 75 6c  6c 79 20 72 65 63 65 69  |ccessfully recei|
00000fb0  76 65 64 20 74 68 65 6e  20 69 74 20 69 73 20 64  |ved then it is d|
00000fc0  69 73 70 6c 61 79 65 64  2e 20 41 20 6e 65 77 20  |isplayed. A new |
00000fd0  72 65 63 65 69 76 65 0d  62 6c 6f 63 6b 20 66 6f  |receive.block fo|
00000fe0  72 20 61 20 70 61 67 65  20 69 73 20 73 65 74 20  |r a page is set |
00000ff0  75 70 2e 20 54 68 65 20  68 65 61 64 65 72 20 72  |up. The header r|
00001000  65 63 65 69 76 65 20 62  6c 6f 63 6b 20 63 6f 6e  |eceive block con|
00001010  74 69 6e 75 65 73 20 74  6f 20 62 65 0d 70 6f 6c  |tinues to be.pol|
00001020  6c 65 64 20 61 6e 64 20  64 69 73 70 6c 61 79 65  |led and displaye|
00001030  64 20 75 6e 74 69 6c 20  61 20 6b 65 79 20 69 73  |d until a key is|
00001040  20 70 72 65 73 73 65 64  2e 0d 0d 31 32 2e 20 41  | pressed...12. A|
00001050  6c 6c 20 74 68 65 20 74  69 6d 65 20 74 68 65 20  |ll the time the |
00001060  72 65 63 65 69 76 65 20  62 6c 6f 63 6b 73 20 61  |receive blocks a|
00001070  72 65 20 62 65 69 6e 67  20 70 6f 6c 6c 65 64 20  |re being polled |
00001080  74 68 65 20 43 4c 49 45  4e 54 20 70 72 6f 67 72  |the CLIENT progr|
00001090  61 6d 0d 61 6c 73 6f 20  74 65 73 74 73 20 74 6f  |am.also tests to|
000010a0  20 73 65 65 20 69 66 20  61 20 6b 65 79 20 68 61  | see if a key ha|
000010b0  73 20 62 65 65 6e 20 70  72 65 73 73 65 64 2e 20  |s been pressed. |
000010c0  49 66 20 61 20 6b 65 79  20 69 73 20 70 72 65 73  |If a key is pres|
000010d0  73 65 64 20 74 68 69 73  20 69 73 0d 74 61 6b 65  |sed this is.take|
000010e0  6e 20 74 6f 20 6d 65 61  6e 20 74 68 61 74 20 79  |n to mean that y|
000010f0  6f 75 20 61 72 65 20 61  62 6f 75 74 20 74 6f 20  |ou are about to |
00001100  72 65 71 75 65 73 74 20  61 20 6e 65 77 20 70 61  |request a new pa|
00001110  67 65 2e 20 49 66 20 27  43 27 20 69 73 20 70 72  |ge. If 'C' is pr|
00001120  65 73 73 65 64 0d 74 68  65 6e 20 74 68 65 20 69  |essed.then the i|
00001130  6e 70 75 74 20 63 68 61  6e 6e 65 6c 20 72 6f 75  |nput channel rou|
00001140  74 69 6e 65 20 69 73 20  65 6e 74 65 72 65 64 20  |tine is entered |
00001150  66 6f 6c 6c 6f 77 65 64  20 62 79 20 74 68 65 20  |followed by the |
00001160  69 6e 70 75 74 20 70 61  67 65 0d 72 6f 75 74 69  |input page.routi|
00001170  6e 65 2e 20 49 66 20 3c  52 45 54 55 52 4e 3e 20  |ne. If <RETURN> |
00001180  69 73 20 70 72 65 73 73  65 64 20 74 68 65 6e 20  |is pressed then |
00001190  74 68 65 20 6c 61 73 74  20 70 61 67 65 20 79 6f  |the last page yo|
000011a0  75 20 72 65 71 75 65 73  74 65 64 20 69 73 0d 72  |u requested is.r|
000011b0  65 71 75 65 73 74 65 64  20 61 67 61 69 6e 2e 20  |equested again. |
000011c0  49 66 20 27 52 27 20 69  73 20 70 72 65 73 73 65  |If 'R' is presse|
000011d0  64 20 74 68 65 20 27 52  45 56 45 41 4c 27 20 72  |d the 'REVEAL' r|
000011e0  6f 75 74 69 6e 65 20 69  73 20 63 61 6c 6c 65 64  |outine is called|
000011f0  20 61 6e 64 20 74 68 69  73 0d 74 6f 67 67 6c 65  | and this.toggle|
00001200  73 20 62 65 74 77 65 65  6e 20 72 65 76 65 61 6c  |s between reveal|
00001210  69 6e 67 20 61 6e 64 20  63 6f 6e 63 65 61 6c 69  |ing and conceali|
00001220  6e 67 2e 20 49 66 20 27  2a 27 20 69 73 20 70 72  |ng. If '*' is pr|
00001230  65 73 73 65 64 20 74 68  65 6e 20 74 68 65 20 73  |essed then the s|
00001240  74 61 72 0d 63 6f 6d 6d  61 6e 64 20 72 6f 75 74  |tar.command rout|
00001250  69 6e 65 20 69 73 20 65  6e 74 65 72 65 64 2e 20  |ine is entered. |
00001260  54 68 69 73 20 61 6c 6c  6f 77 73 20 74 68 65 20  |This allows the |
00001270  43 4c 49 45 4e 54 20 74  6f 20 2a 53 41 56 45 20  |CLIENT to *SAVE |
00001280  70 61 67 65 73 20 65 74  63 2e 20 49 66 0d 61 6e  |pages etc. If.an|
00001290  79 20 6f 74 68 65 72 20  6b 65 79 20 69 73 20 70  |y other key is p|
000012a0  72 65 73 73 65 64 20 74  68 65 20 70 61 67 65 20  |ressed the page |
000012b0  69 6e 70 75 74 20 72 6f  75 74 69 6e 65 20 69 73  |input routine is|
000012c0  20 65 6e 74 65 72 65 64  2e 0d 0d 31 33 2e 20 54  | entered...13. T|
000012d0  68 65 20 66 69 72 73 74  20 61 63 74 69 6f 6e 20  |he first action |
000012e0  74 61 6b 65 6e 20 62 79  20 62 6f 74 68 20 74 68  |taken by both th|
000012f0  65 20 63 68 61 6e 6e 65  6c 20 69 6e 70 75 74 20  |e channel input |
00001300  61 6e 64 20 70 61 67 65  20 69 6e 70 75 74 0d 72  |and page input.r|
00001310  6f 75 74 69 6e 65 73 20  69 73 20 74 6f 20 73 65  |outines is to se|
00001320  6e 64 20 61 20 27 63 61  6e 63 65 6c 20 70 61 67  |nd a 'cancel pag|
00001330  65 20 72 65 71 75 65 73  74 27 20 74 6f 20 74 68  |e request' to th|
00001340  65 20 53 45 52 56 45 52  20 61 6e 64 20 74 68 65  |e SERVER and the|
00001350  6e 20 64 65 6c 65 74 65  0d 74 68 65 20 63 75 72  |n delete.the cur|
00001360  72 65 6e 74 20 70 61 67  65 20 72 65 63 65 69 76  |rent page receiv|
00001370  65 20 62 6c 6f 63 6b 2e  20 54 68 69 73 20 6d 65  |e block. This me|
00001380  61 6e 73 20 74 68 65 20  53 45 52 56 45 52 20 77  |ans the SERVER w|
00001390  69 6c 6c 20 6e 6f 20 6c  6f 6e 67 65 72 20 68 61  |ill no longer ha|
000013a0  76 65 0d 74 6f 20 62 6f  74 68 65 72 20 74 72 79  |ve.to bother try|
000013b0  69 6e 67 20 74 6f 20 66  69 6e 64 20 79 6f 75 72  |ing to find your|
000013c0  20 6c 61 73 74 20 72 65  71 75 65 73 74 65 64 20  | last requested |
000013d0  70 61 67 65 2e 20 54 68  65 20 70 72 6f 6d 70 74  |page. The prompt|
000013e0  20 66 6f 72 20 61 0d 63  68 61 6e 6e 65 6c 20 69  | for a.channel i|
000013f0  6e 70 75 74 20 69 73 20  27 43 27 20 61 6e 64 20  |nput is 'C' and |
00001400  66 6f 72 20 61 20 70 61  67 65 20 69 6e 70 75 74  |for a page input|
00001410  20 69 73 20 27 50 27 2e  20 42 6f 74 68 20 72 6f  | is 'P'. Both ro|
00001420  75 74 69 6e 65 73 20 6d  61 6b 65 20 75 73 65 0d  |utines make use.|
00001430  6f 66 20 4f 53 57 4f 52  44 20 30 20 74 6f 20 72  |of OSWORD 0 to r|
00001440  65 61 64 20 61 20 6c 69  6e 65 20 6f 66 20 69 6e  |ead a line of in|
00001450  70 75 74 20 61 6e 64 20  73 6f 20 62 6f 74 68 20  |put and so both |
00001460  6e 65 65 64 20 74 6f 20  62 65 20 65 78 69 74 65  |need to be exite|
00001470  64 20 62 79 0d 70 72 65  73 73 69 6e 67 20 3c 52  |d by.pressing <R|
00001480  45 54 55 52 4e 3e 2e 20  41 20 6e 65 77 20 72 65  |ETURN>. A new re|
00001490  63 65 69 76 65 20 70 61  67 65 20 62 6c 6f 63 6b  |ceive page block|
000014a0  20 69 73 20 73 65 74 20  75 70 20 61 6e 64 20 74  | is set up and t|
000014b0  68 65 6e 20 74 68 65 20  6e 65 77 0d 70 61 67 65  |hen the new.page|
000014c0  20 6e 75 6d 62 65 72 20  69 73 20 74 72 61 6e 73  | number is trans|
000014d0  6d 69 74 74 65 64 20 74  6f 20 74 68 65 20 53 45  |mitted to the SE|
000014e0  52 56 45 52 2e 0d 0d 31  34 2e 20 54 68 65 20 65  |RVER...14. The e|
000014f0  73 63 61 70 65 20 66 6c  61 67 20 69 73 20 63 6f  |scape flag is co|
00001500  6e 74 69 6e 75 61 6c 6c  79 20 70 6f 6c 6c 65 64  |ntinually polled|
00001510  20 73 6f 20 74 68 61 74  20 74 68 65 20 43 4c 49  | so that the CLI|
00001520  45 4e 54 20 63 61 6e 20  65 78 69 74 20 61 74 0d  |ENT can exit at.|
00001530  61 6e 79 20 74 69 6d 65  20 62 79 20 70 72 65 73  |any time by pres|
00001540  73 69 6e 67 20 3c 45 53  43 41 50 45 3e 2e 20 54  |sing <ESCAPE>. T|
00001550  68 69 73 20 77 69 6c 6c  20 73 65 6e 64 20 61 20  |his will send a |
00001560  6c 6f 67 6f 66 66 20 69  6e 73 74 72 75 63 74 69  |logoff instructi|
00001570  6f 6e 20 74 6f 20 74 68  65 0d 53 45 52 56 45 52  |on to the.SERVER|
00001580  20 77 68 69 63 68 20 73  74 6f 70 73 20 69 74 20  | which stops it |
00001590  6c 6f 6f 6b 69 6e 67 20  66 6f 72 20 61 6e 79 20  |looking for any |
000015a0  6d 6f 72 65 20 70 61 67  65 73 20 66 6f 72 20 79  |more pages for y|
000015b0  6f 75 2e 20 41 6c 6c 20  72 65 63 65 69 76 65 0d  |ou. All receive.|
000015c0  62 6c 6f 63 6b 73 20 61  72 65 20 64 65 6c 65 74  |blocks are delet|
000015d0  65 64 2e 0d 0d 20 20 20  20 20 20 20 20 20 20 20  |ed...           |
000015e0  20 20 20 20 20 20 53 75  62 2d 70 61 67 65 73 0d  |      Sub-pages.|
000015f0  0d 4f 6e 65 20 6f 66 20  74 68 65 20 66 65 61 74  |.One of the feat|
00001600  75 72 65 73 20 6f 66 20  74 68 65 20 6e 6f 72 6d  |ures of the norm|
00001610  61 6c 20 75 73 65 20 6f  66 20 74 65 6c 65 74 65  |al use of telete|
00001620  78 74 20 69 73 20 74 68  61 74 20 70 61 67 65 73  |xt is that pages|
00001630  20 77 69 6c 6c 20 72 6f  6c 6c 0d 73 6f 20 74 68  | will roll.so th|
00001640  61 74 20 74 68 65 79 20  61 72 65 20 63 6f 6e 73  |at they are cons|
00001650  74 61 6e 74 6c 79 20 75  70 64 61 74 65 64 20 65  |tantly updated e|
00001660  67 2e 20 66 6f 72 20 63  72 69 63 6b 65 74 20 73  |g. for cricket s|
00001670  63 6f 72 65 73 20 6f 72  20 70 61 67 65 73 20 77  |cores or pages w|
00001680  69 74 68 0d 6d 6f 72 65  20 74 68 61 6e 20 6f 6e  |ith.more than on|
00001690  65 20 73 63 72 65 65 6e  20 6f 66 20 69 6e 66 6f  |e screen of info|
000016a0  72 6d 61 74 69 6f 6e 2e  20 41 6e 20 61 70 70 72  |rmation. An appr|
000016b0  6f 78 69 6d 61 74 69 6f  6e 20 74 6f 20 74 68 69  |oximation to thi|
000016c0  73 20 66 61 63 69 6c 69  74 79 20 69 73 0d 61 76  |s facility is.av|
000016d0  61 69 6c 61 62 6c 65 20  66 72 6f 6d 20 74 68 65  |ailable from the|
000016e0  20 53 45 52 56 45 52 2e  20 50 72 65 73 73 69 6e  | SERVER. Pressin|
000016f0  67 20 27 53 27 20 77 69  6c 6c 20 65 6e 61 62 6c  |g 'S' will enabl|
00001700  65 20 74 68 65 20 61 75  74 6f 6d 61 74 69 63 20  |e the automatic |
00001710  72 6f 6c 6c 69 6e 67 0d  6f 66 20 73 75 62 2d 70  |rolling.of sub-p|
00001720  61 67 65 73 2e 20 54 68  69 73 20 69 73 20 64 6f  |ages. This is do|
00001730  6e 65 20 62 79 20 61 20  63 61 6c 6c 20 74 6f 20  |ne by a call to |
00001740  74 68 65 20 53 45 52 56  45 52 20 77 68 69 63 68  |the SERVER which|
00001750  20 73 69 67 6e 61 6c 73  20 74 68 61 74 20 74 68  | signals that th|
00001760  65 0d 72 65 71 75 65 73  74 65 64 20 70 61 67 65  |e.requested page|
00001770  20 6d 75 73 74 20 6e 6f  74 20 62 65 20 73 65 6e  | must not be sen|
00001780  74 20 75 6e 74 69 6c 20  61 74 20 6c 65 61 73 74  |t until at least|
00001790  20 30 2e 35 20 6f 66 20  74 68 65 20 63 79 63 6c  | 0.5 of the cycl|
000017a0  65 20 74 69 6d 65 20 68  61 73 0d 65 6c 61 70 73  |e time has.elaps|
000017b0  65 64 2e 20 41 75 74 6f  6d 61 74 69 63 20 72 6f  |ed. Automatic ro|
000017c0  6c 6c 69 6e 67 20 6f 66  20 73 75 62 2d 70 61 67  |lling of sub-pag|
000017d0  65 73 20 63 61 6e 20 62  65 20 64 69 73 61 62 6c  |es can be disabl|
000017e0  65 64 20 62 79 20 70 72  65 73 73 69 6e 67 20 27  |ed by pressing '|
000017f0  53 27 0d 61 67 61 69 6e  2e 20 45 6e 61 62 6c 69  |S'.again. Enabli|
00001800  6e 67 20 69 73 20 73 69  67 6e 61 6c 6c 65 64 20  |ng is signalled |
00001810  62 79 20 61 20 68 69 67  68 20 62 65 65 70 20 61  |by a high beep a|
00001820  6e 64 20 64 69 73 61 62  6c 69 6e 67 20 62 79 20  |nd disabling by |
00001830  61 20 6c 6f 77 20 62 65  65 70 2e 0d 54 68 65 20  |a low beep..The |
00001840  72 6f 6c 6c 69 6e 67 20  69 73 20 64 69 73 61 62  |rolling is disab|
00001850  6c 65 64 20 77 68 65 6e  65 76 65 72 20 61 20 6e  |led whenever a n|
00001860  65 77 20 70 61 67 65 20  69 73 20 72 65 71 75 65  |ew page is reque|
00001870  73 74 65 64 2e 0d 0d 54  68 69 73 20 69 6d 70 6c  |sted...This impl|
00001880  65 6d 65 6e 74 61 74 69  6f 6e 20 6f 66 20 73 75  |ementation of su|
00001890  62 2d 70 61 67 65 73 20  69 73 20 61 20 63 6f 6d  |b-pages is a com|
000018a0  70 72 6f 6d 69 73 65 20  69 6e 20 74 68 61 74 20  |promise in that |
000018b0  61 73 20 6d 6f 72 65 20  63 6c 69 65 6e 74 73 0d  |as more clients.|
000018c0  75 73 65 20 74 68 69 73  20 66 65 61 74 75 72 65  |use this feature|
000018d0  20 74 68 65 20 6d 6f 72  65 20 66 75 6c 6c 20 77  | the more full w|
000018e0  69 6c 6c 20 62 65 20 74  68 65 20 71 75 65 75 65  |ill be the queue|
000018f0  73 20 61 6e 64 20 69 74  20 69 73 20 66 6f 72 20  |s and it is for |
00001900  74 68 69 73 0d 72 65 61  73 6f 6e 20 61 75 74 6f  |this.reason auto|
00001910  6d 61 74 69 63 20 72 6f  6c 6c 69 6e 67 20 6d 75  |matic rolling mu|
00001920  73 74 20 62 65 20 64 65  6c 69 62 65 72 61 74 65  |st be deliberate|
00001930  6c 79 20 73 65 6c 65 63  74 65 64 20 66 6f 72 20  |ly selected for |
00001940  65 76 65 72 79 20 6e 65  77 20 70 61 67 65 2e 0d  |every new page..|
00001950  49 74 20 69 73 20 61 6c  73 6f 20 6e 6f 74 20 70  |It is also not p|
00001960  6f 73 73 69 62 6c 65 20  74 6f 20 67 75 61 72 61  |ossible to guara|
00001970  6e 74 65 65 20 74 68 61  74 20 79 6f 75 20 77 69  |ntee that you wi|
00001980  6c 6c 20 67 65 74 20 74  68 65 20 69 6d 6d 65 64  |ll get the immed|
00001990  69 61 74 65 6c 79 0d 66  6f 6c 6c 6f 77 69 6e 67  |iately.following|
000019a0  20 73 75 62 2d 70 61 67  65 20 69 6e 20 74 68 65  | sub-page in the|
000019b0  20 73 65 71 75 65 6e 63  65 2e 0d 0d 20 20 20 20  | sequence...    |
000019c0  20 20 20 20 20 20 20 20  20 20 20 54 68 65 20 54  |           The T|
000019d0  46 53 20 70 72 6f 67 72  61 6d 0d 0d 54 68 69 73  |FS program..This|
000019e0  20 70 72 6f 67 72 61 6d  20 6d 61 6b 65 73 20 61  | program makes a|
000019f0  73 20 66 75 6c 6c 20 75  73 65 20 61 73 20 70 6f  |s full use as po|
00001a00  73 73 69 62 6c 65 20 6f  66 20 74 68 65 20 41 54  |ssible of the AT|
00001a10  46 53 20 72 6f 6d 27 73  20 61 62 69 6c 69 74 79  |FS rom's ability|
00001a20  20 74 6f 0d 73 65 61 72  63 68 20 66 6f 72 20 73  | to.search for s|
00001a30  65 76 65 72 61 6c 20 70  61 67 65 73 20 61 74 20  |everal pages at |
00001a40  6f 6e 63 65 2e 20 54 68  65 20 74 68 65 6f 72 65  |once. The theore|
00001a50  74 69 63 61 6c 20 6d 61  78 69 6d 75 6d 20 69 73  |tical maximum is|
00001a60  20 32 30 20 61 74 20 6f  6e 63 65 0d 62 75 74 20  | 20 at once.but |
00001a70  74 68 65 20 73 69 7a 65  20 6f 66 20 74 68 65 20  |the size of the |
00001a80  54 46 53 20 70 72 6f 67  72 61 6d 20 6c 69 6d 69  |TFS program limi|
00001a90  74 73 20 74 68 69 73 20  74 6f 20 61 62 6f 75 74  |ts this to about|
00001aa0  20 31 30 2e 20 54 68 65  20 6d 61 69 6e 20 70 72  | 10. The main pr|
00001ab0  6f 62 6c 65 6d 0d 69 73  20 74 68 61 74 20 69 74  |oblem.is that it|
00001ac0  20 69 73 20 6f 6e 6c 79  20 70 6f 73 73 69 62 6c  | is only possibl|
00001ad0  65 20 74 6f 20 73 65 61  72 63 68 20 66 6f 72 20  |e to search for |
00001ae0  70 61 67 65 73 20 6f 6e  20 6f 6e 65 20 63 68 61  |pages on one cha|
00001af0  6e 6e 65 6c 20 61 74 20  61 20 74 69 6d 65 0d 61  |nnel at a time.a|
00001b00  6e 64 20 73 6f 6d 65 20  77 61 79 20 68 61 73 20  |nd some way has |
00001b10  74 6f 20 62 65 20 66 6f  75 6e 64 20 74 6f 20 64  |to be found to d|
00001b20  65 61 6c 20 77 69 74 68  20 74 68 69 73 2e 0d 0d  |eal with this...|
00001b30  54 68 65 20 61 70 70 72  6f 61 63 68 20 61 64 6f  |The approach ado|
00001b40  70 74 65 64 20 69 73 20  74 6f 20 70 6c 61 63 65  |pted is to place|
00001b50  20 61 20 70 61 67 65 20  72 65 71 75 65 73 74 20  | a page request |
00001b60  69 6e 74 6f 20 6f 6e 65  20 6f 66 20 34 20 71 75  |into one of 4 qu|
00001b70  65 75 65 73 2c 20 6f 6e  65 0d 66 6f 72 20 65 61  |eues, one.for ea|
00001b80  63 68 20 63 68 61 6e 6e  65 6c 2e 20 49 66 20 74  |ch channel. If t|
00001b90  68 65 20 6e 75 6d 62 65  72 20 6f 66 20 70 61 67  |he number of pag|
00001ba0  65 73 20 69 6e 20 61 20  71 75 65 75 65 20 65 78  |es in a queue ex|
00001bb0  63 65 65 64 73 20 74 68  65 20 6d 61 78 69 6d 75  |ceeds the maximu|
00001bc0  6d 0d 6e 75 6d 62 65 72  20 6f 66 20 70 61 67 65  |m.number of page|
00001bd0  73 20 66 6f 72 20 77 68  69 63 68 20 74 68 65 20  |s for which the |
00001be0  41 54 46 53 20 72 6f 6d  20 68 61 73 20 73 70 61  |ATFS rom has spa|
00001bf0  63 65 20 74 68 65 6e 20  61 20 27 43 68 61 6e 6e  |ce then a 'Chann|
00001c00  65 6c 20 62 75 73 79 27  0d 65 72 72 6f 72 20 77  |el busy'.error w|
00001c10  69 6c 6c 20 62 65 20 72  65 74 75 72 6e 65 64 2e  |ill be returned.|
00001c20  20 54 68 69 73 20 6d 61  78 69 6d 75 6d 20 6e 75  | This maximum nu|
00001c30  6d 62 65 72 20 6f 66 20  70 61 67 65 73 20 69 73  |mber of pages is|
00001c40  20 74 68 65 20 6e 75 6d  62 65 72 0d 72 65 74 75  | the number.retu|
00001c50  72 6e 65 64 20 62 79 20  74 68 65 20 6d 61 78 20  |rned by the max |
00001c60  75 73 65 72 73 20 70 65  72 20 63 68 61 6e 6e 65  |users per channe|
00001c70  6c 20 63 61 6c 6c 2e 20  41 20 72 65 63 6f 72 64  |l call. A record|
00001c80  20 69 73 20 6b 65 70 74  20 6f 66 20 74 68 65 20  | is kept of the |
00001c90  74 6f 74 61 6c 0d 6e 75  6d 62 65 72 20 6f 66 20  |total.number of |
00001ca0  70 61 67 65 73 20 72 65  71 75 65 73 74 65 64 20  |pages requested |
00001cb0  61 6e 64 20 74 68 69 73  20 69 73 20 74 68 65 20  |and this is the |
00001cc0  71 75 65 75 65 20 70 6f  73 69 74 69 6f 6e 20 72  |queue position r|
00001cd0  65 74 75 72 6e 65 64 20  74 6f 20 74 68 65 0d 43  |eturned to the.C|
00001ce0  4c 49 45 4e 54 20 69 65  20 74 68 69 73 20 69 73  |LIENT ie this is|
00001cf0  20 74 68 65 20 6f 76 65  72 61 6c 6c 20 71 75 65  | the overall que|
00001d00  75 65 20 70 6f 73 69 74  69 6f 6e 20 61 6e 64 20  |ue position and |
00001d10  6e 6f 74 20 74 68 65 20  70 6f 73 69 74 69 6f 6e  |not the position|
00001d20  20 69 6e 20 74 68 65 0d  71 75 65 75 65 20 66 6f  | in the.queue fo|
00001d30  72 20 61 20 70 61 72 74  69 63 75 6c 61 72 20 63  |r a particular c|
00001d40  68 61 6e 6e 65 6c 2e 20  57 68 65 6e 65 76 65 72  |hannel. Whenever|
00001d50  20 61 20 70 61 67 65 20  72 65 71 75 65 73 74 20  | a page request |
00001d60  69 73 20 72 65 63 65 69  76 65 64 20 74 68 65 0d  |is received the.|
00001d70  77 68 6f 6c 65 20 71 75  65 75 65 20 69 73 20 63  |whole queue is c|
00001d80  68 65 63 6b 65 64 20 74  6f 20 73 65 65 20 69 66  |hecked to see if|
00001d90  20 74 68 61 74 20 43 4c  49 45 4e 54 20 28 69 64  | that CLIENT (id|
00001da0  65 6e 74 69 66 69 65 64  20 62 79 20 74 68 65 20  |entified by the |
00001db0  73 74 61 74 69 6f 6e 0d  6e 75 6d 62 65 72 29 20  |station.number) |
00001dc0  68 61 73 20 61 6e 79 20  6f 74 68 65 72 20 70 61  |has any other pa|
00001dd0  67 65 20 72 65 71 75 65  73 74 65 64 2e 20 49 66  |ge requested. If|
00001de0  20 74 68 69 73 20 69 73  20 74 68 65 20 63 61 73  | this is the cas|
00001df0  65 20 74 68 65 6e 20 74  68 61 74 20 70 61 67 65  |e then that page|
00001e00  0d 69 73 20 64 72 6f 70  70 65 64 20 66 72 6f 6d  |.is dropped from|
00001e10  20 74 68 65 20 71 75 65  75 65 2e 20 54 68 75 73  | the queue. Thus|
00001e20  20 69 74 20 69 73 20 6e  6f 74 20 70 6f 73 73 69  | it is not possi|
00001e30  62 6c 65 20 66 6f 72 20  61 20 43 4c 49 45 4e 54  |ble for a CLIENT|
00001e40  20 74 6f 20 72 65 71 75  65 73 74 0d 6d 6f 72 65  | to request.more|
00001e50  20 74 68 61 6e 20 6f 6e  65 20 70 61 67 65 20 61  | than one page a|
00001e60  74 20 6f 6e 63 65 2e 20  41 20 63 61 6e 63 65 6c  |t once. A cancel|
00001e70  20 70 61 67 65 20 72 65  71 75 65 73 74 20 6f 72  | page request or|
00001e80  20 61 20 6c 6f 67 6f 66  66 20 77 69 6c 6c 20 72  | a logoff will r|
00001e90  65 73 75 6c 74 0d 69 6e  20 61 6c 6c 20 70 61 67  |esult.in all pag|
00001ea0  65 20 72 65 71 75 65 73  74 73 20 66 6f 72 20 74  |e requests for t|
00001eb0  68 61 74 20 43 4c 49 45  4e 54 20 62 65 69 6e 67  |hat CLIENT being|
00001ec0  20 64 72 6f 70 70 65 64  20 66 72 6f 6d 20 74 68  | dropped from th|
00001ed0  65 20 71 75 65 75 65 2e  0d 0d 54 68 65 20 77 61  |e queue...The wa|
00001ee0  79 20 74 68 65 20 41 54  46 53 20 72 6f 6d 20 77  |y the ATFS rom w|
00001ef0  6f 72 6b 73 20 6d 65 61  6e 73 20 74 68 61 74 20  |orks means that |
00001f00  69 66 20 79 6f 75 20 61  72 65 20 33 72 64 20 69  |if you are 3rd i|
00001f10  6e 20 74 68 65 20 71 75  65 75 65 20 79 6f 75 20  |n the queue you |
00001f20  6d 61 79 0d 73 74 69 6c  6c 20 72 65 63 65 69 76  |may.still receiv|
00001f30  65 20 79 6f 75 72 20 70  61 67 65 20 62 65 66 6f  |e your page befo|
00001f40  72 65 20 74 68 65 20 43  4c 49 45 4e 54 20 77 68  |re the CLIENT wh|
00001f50  6f 20 69 73 20 69 6e 20  31 73 74 20 70 6f 73 69  |o is in 1st posi|
00001f60  74 69 6f 6e 2e 20 54 68  69 73 20 69 73 0d 70 72  |tion. This is.pr|
00001f70  6f 62 61 62 6c 79 20 62  65 73 74 20 69 6c 6c 75  |obably best illu|
00001f80  73 74 72 61 74 65 64 20  62 79 20 65 78 61 6d 70  |strated by examp|
00001f90  6c 65 2e 0d 0d 53 75 70  70 6f 73 65 20 74 68 65  |le...Suppose the|
00001fa0  20 66 6f 6c 6c 6f 77 69  6e 67 20 72 65 71 75 65  | following reque|
00001fb0  73 74 73 20 61 72 65 20  69 73 73 75 65 64 20 3a  |sts are issued :|
00001fc0  0d 0d 53 74 61 74 69 6f  6e 20 31 32 20 70 61 67  |..Station 12 pag|
00001fd0  65 20 31 37 30 20 6f 6e  20 63 68 61 6e 6e 65 6c  |e 170 on channel|
00001fe0  20 31 0d 53 74 61 74 69  6f 6e 20 31 34 20 70 61  | 1.Station 14 pa|
00001ff0  67 65 20 34 30 30 20 6f  6e 20 63 68 61 6e 6e 65  |ge 400 on channe|
00002000  6c 20 34 0d 53 74 61 74  69 6f 6e 20 31 37 20 70  |l 4.Station 17 p|
00002010  61 67 65 20 31 32 33 20  6f 6e 20 63 68 61 6e 6e  |age 123 on chann|
00002020  65 6c 20 31 0d 0d 54 68  65 20 54 46 53 20 70 72  |el 1..The TFS pr|
00002030  6f 67 72 61 6d 20 77 69  6c 6c 20 73 65 6c 65 63  |ogram will selec|
00002040  74 20 63 68 61 6e 6e 65  6c 20 31 20 61 73 20 74  |t channel 1 as t|
00002050  68 69 73 20 69 73 20 74  68 65 20 68 69 67 68 65  |his is the highe|
00002060  73 74 20 70 72 69 6f 72  69 74 79 20 69 74 65 6d  |st priority item|
00002070  0d 69 6e 20 74 68 65 20  71 75 65 75 65 2e 20 57  |.in the queue. W|
00002080  68 65 6e 20 73 74 61 74  69 6f 6e 20 31 34 27 73  |hen station 14's|
00002090  20 72 65 71 75 65 73 74  20 61 72 72 69 76 65 73  | request arrives|
000020a0  20 69 74 20 77 69 6c 6c  20 62 65 20 73 74 6f 72  | it will be stor|
000020b0  65 64 20 69 6e 20 74 68  65 0d 71 75 65 75 65 20  |ed in the.queue |
000020c0  66 6f 72 20 63 68 61 6e  6e 65 6c 20 34 2e 20 48  |for channel 4. H|
000020d0  6f 77 65 76 65 72 20 77  68 65 6e 20 73 74 61 74  |owever when stat|
000020e0  69 6f 6e 20 31 37 27 73  20 72 65 71 75 65 73 74  |ion 17's request|
000020f0  20 61 72 72 69 76 65 73  20 6e 6f 74 20 6f 6e 6c  | arrives not onl|
00002100  79 20 69 73 0d 69 74 20  61 64 64 65 64 20 74 6f  |y is.it added to|
00002110  20 74 68 65 20 71 75 65  75 65 20 66 6f 72 20 63  | the queue for c|
00002120  68 61 6e 6e 65 6c 20 31  20 62 75 74 20 61 20 72  |hannel 1 but a r|
00002130  65 63 6f 72 64 20 69 73  20 73 65 74 20 75 70 20  |ecord is set up |
00002140  74 6f 20 72 65 63 65 69  76 65 20 74 68 65 0d 70  |to receive the.p|
00002150  61 67 65 20 69 66 20 69  74 20 69 73 20 74 72 61  |age if it is tra|
00002160  6e 73 6d 69 74 74 65 64  2e 20 53 75 70 70 6f 73  |nsmitted. Suppos|
00002170  65 20 61 6c 6c 20 74 68  65 73 65 20 74 68 72 65  |e all these thre|
00002180  65 20 72 65 71 75 65 73  74 73 20 61 72 72 69 76  |e requests arriv|
00002190  65 20 61 6c 6d 6f 73 74  0d 73 69 6d 75 6c 74 61  |e almost.simulta|
000021a0  6e 65 6f 75 73 6c 79 20  61 6e 64 20 61 74 20 74  |neously and at t|
000021b0  68 65 20 6d 6f 6d 65 6e  74 20 74 68 65 20 54 46  |he moment the TF|
000021c0  53 20 70 72 6f 67 72 61  6d 20 73 65 6c 65 63 74  |S program select|
000021d0  73 20 63 68 61 6e 6e 65  6c 20 31 20 74 68 65 0d  |s channel 1 the.|
000021e0  70 61 67 65 20 62 65 69  6e 67 20 74 72 61 6e 73  |page being trans|
000021f0  6d 69 74 74 65 64 20 69  73 20 70 61 67 65 20 31  |mitted is page 1|
00002200  31 32 2e 20 54 68 69 73  20 6d 65 61 6e 73 20 74  |12. This means t|
00002210  68 61 74 20 73 74 61 74  69 6f 6e 20 31 37 27 73  |hat station 17's|
00002220  20 70 61 67 65 0d 28 31  32 33 29 20 77 69 6c 6c  | page.(123) will|
00002230  20 61 72 72 69 76 65 20  62 65 66 6f 72 65 20 73  | arrive before s|
00002240  74 61 74 69 6f 6e 20 31  32 27 73 20 70 61 67 65  |tation 12's page|
00002250  28 31 37 30 29 2e 20 54  68 75 73 20 73 74 61 74  |(170). Thus stat|
00002260  69 6f 6e 20 31 37 20 77  69 6c 6c 0d 72 65 63 65  |ion 17 will.rece|
00002270  69 76 65 20 69 74 27 73  20 70 61 67 65 20 66 69  |ive it's page fi|
00002280  72 73 74 20 65 76 65 6e  20 74 68 6f 75 67 68 20  |rst even though |
00002290  69 74 20 77 61 73 20 33  72 64 20 69 6e 20 74 68  |it was 3rd in th|
000022a0  65 20 71 75 65 75 65 2e  20 54 68 65 20 6e 65 78  |e queue. The nex|
000022b0  74 20 70 61 67 65 0d 74  6f 20 62 65 20 73 65 6e  |t page.to be sen|
000022c0  74 20 77 69 6c 6c 20 62  65 20 31 37 30 20 74 6f  |t will be 170 to|
000022d0  20 73 74 61 74 69 6f 6e  20 31 32 20 61 6e 64 20  | station 12 and |
000022e0  73 74 61 74 69 6f 6e 20  31 34 20 77 69 6c 6c 20  |station 14 will |
000022f0  72 65 63 65 69 76 65 20  69 74 73 20 70 61 67 65  |receive its page|
00002300  0d 6c 61 73 74 20 65 76  65 6e 20 74 68 6f 75 67  |.last even thoug|
00002310  68 20 69 74 20 77 61 73  20 32 6e 64 20 69 6e 20  |h it was 2nd in |
00002320  74 68 65 20 71 75 65 75  65 2e 20 54 68 69 73 20  |the queue. This |
00002330  69 73 20 6e 6f 74 20 64  69 73 61 73 74 65 72 20  |is not disaster |
00002340  61 73 20 69 6e 20 66 61  63 74 0d 73 74 61 74 69  |as in fact.stati|
00002350  6f 6e 20 31 32 20 68 61  73 20 68 61 64 20 6e 6f  |on 12 has had no|
00002360  20 6c 6f 6e 67 65 72 20  74 6f 20 77 61 69 74 20  | longer to wait |
00002370  74 68 61 6e 20 69 74 20  77 6f 75 6c 64 20 68 61  |than it would ha|
00002380  76 65 20 68 61 64 20 61  6e 79 77 61 79 2e 20 57  |ve had anyway. W|
00002390  68 61 74 0d 77 65 20 68  61 76 65 20 6d 61 6e 61  |hat.we have mana|
000023a0  67 65 64 20 74 6f 20 64  6f 20 69 73 20 61 6c 73  |ged to do is als|
000023b0  6f 20 64 65 61 6c 20 77  69 74 68 20 73 74 61 74  |o deal with stat|
000023c0  69 6f 6e 20 31 37 20 61  73 20 61 20 73 70 69 6e  |ion 17 as a spin|
000023d0  2d 6f 66 66 20 66 72 6f  6d 0d 73 74 61 74 69 6f  |-off from.statio|
000023e0  6e 20 31 27 73 20 72 65  71 75 65 73 74 2e 0d 0d  |n 1's request...|
000023f0  49 66 20 6d 6f 72 65 20  74 68 61 6e 20 6f 6e 65  |If more than one|
00002400  20 73 74 61 74 69 6f 6e  20 72 65 71 75 65 73 74  | station request|
00002410  73 20 74 68 65 20 73 61  6d 65 20 70 61 67 65 20  |s the same page |
00002420  74 68 65 6e 20 74 68 69  73 20 69 73 20 73 70 6f  |then this is spo|
00002430  74 74 65 64 20 61 6e 64  0d 6f 6e 6c 79 20 6f 6e  |tted and.only on|
00002440  65 20 6f 66 20 74 68 65  20 41 54 46 53 20 72 65  |e of the ATFS re|
00002450  63 6f 72 64 73 20 69 73  20 75 73 65 64 2e 20 54  |cords is used. T|
00002460  68 69 73 20 6d 65 61 6e  73 20 74 68 61 74 20 69  |his means that i|
00002470  74 20 69 73 20 70 6f 73  73 69 62 6c 65 20 74 6f  |t is possible to|
00002480  0d 68 61 76 65 20 6d 6f  72 65 20 74 68 61 6e 20  |.have more than |
00002490  74 68 65 20 6d 61 78 69  6d 75 6d 20 6e 75 6d 62  |the maximum numb|
000024a0  65 72 20 6f 66 20 75 73  65 72 73 20 70 65 72 20  |er of users per |
000024b0  63 68 61 6e 6e 65 6c 20  71 75 65 75 65 64 20 69  |channel queued i|
000024c0  66 20 74 68 61 74 0d 63  68 61 6e 6e 65 6c 20 69  |f that.channel i|
000024d0  73 20 74 68 65 20 63 75  72 72 65 6e 74 6c 79 20  |s the currently |
000024e0  73 65 6c 65 63 74 65 64  20 6f 6e 65 2e 0d 0d 57  |selected one...W|
000024f0  68 65 6e 20 61 6e 20 41  54 46 53 20 72 65 63 6f  |hen an ATFS reco|
00002500  72 64 20 68 61 73 20 62  65 65 6e 20 75 73 65 64  |rd has been used|
00002510  20 74 68 65 20 70 61 67  65 20 69 74 20 77 61 73  | the page it was|
00002520  20 6c 6f 6f 6b 69 6e 67  20 66 6f 72 20 69 73 0d  | looking for is.|
00002530  72 65 6d 65 6d 62 65 72  65 64 20 61 6e 64 20 6f  |remembered and o|
00002540  6e 63 65 20 74 68 61 74  20 70 61 67 65 20 68 61  |nce that page ha|
00002550  73 20 62 65 65 6e 20 66  6f 75 6e 64 20 74 68 65  |s been found the|
00002560  20 72 65 63 6f 72 64 20  69 73 20 6e 6f 74 20 63  | record is not c|
00002570  6c 65 61 72 65 64 2e 0d  54 68 69 73 20 6d 65 61  |leared..This mea|
00002580  6e 73 20 74 68 61 74 20  70 72 6f 76 69 64 65 64  |ns that provided|
00002590  20 74 68 65 20 63 68 61  6e 6e 65 6c 20 69 73 20  | the channel is |
000025a0  6e 6f 74 20 63 68 61 6e  67 65 64 20 74 68 69 73  |not changed this|
000025b0  20 70 61 67 65 20 77 69  6c 6c 0d 63 6f 6e 74 69  | page will.conti|
000025c0  6e 75 65 20 74 6f 20 62  65 20 75 70 64 61 74 65  |nue to be update|
000025d0  64 20 61 6e 64 20 77 69  6c 6c 20 62 65 20 70 65  |d and will be pe|
000025e0  72 6d 61 6e 65 6e 74 6c  79 20 61 76 61 69 6c 61  |rmanently availa|
000025f0  62 6c 65 2e 20 53 75 70  70 6f 73 65 20 61 20 43  |ble. Suppose a C|
00002600  4c 49 45 4e 54 0d 72 65  71 75 65 73 74 73 20 70  |LIENT.requests p|
00002610  61 67 65 20 31 37 31 3b  20 74 68 65 20 70 61 67  |age 171; the pag|
00002620  65 20 69 73 20 72 65 63  65 69 76 65 64 20 61 6e  |e is received an|
00002630  64 20 74 68 65 6e 20 74  72 61 6e 73 6d 69 74 74  |d then transmitt|
00002640  65 64 2e 20 49 66 20 61  6e 6f 74 68 65 72 0d 43  |ed. If another.C|
00002650  4c 49 45 4e 54 20 28 6f  72 20 69 6e 64 65 65 64  |LIENT (or indeed|
00002660  20 74 68 65 20 73 61 6d  65 20 6f 6e 65 29 20 72  | the same one) r|
00002670  65 71 75 65 73 74 73 20  74 68 65 20 73 61 6d 65  |equests the same|
00002680  20 70 61 67 65 20 74 68  65 6e 20 69 74 20 69 73  | page then it is|
00002690  0d 69 6e 73 74 61 6e 74  6c 79 20 61 76 61 69 6c  |.instantly avail|
000026a0  61 62 6c 65 2e 20 54 68  69 73 20 69 73 20 70 61  |able. This is pa|
000026b0  72 74 69 63 75 6c 61 72  6c 79 20 75 73 65 66 75  |rticularly usefu|
000026c0  6c 20 69 66 20 79 6f 75  20 68 61 70 70 65 6e 20  |l if you happen |
000026d0  74 6f 20 62 65 20 74 68  65 0d 6f 6e 6c 79 20 43  |to be the.only C|
000026e0  4c 49 45 4e 54 20 75 73  69 6e 67 20 74 68 65 20  |LIENT using the |
000026f0  73 79 73 74 65 6d 20 61  73 20 69 74 20 6d 65 61  |system as it mea|
00002700  6e 73 20 74 68 61 74 20  74 68 65 20 6c 61 73 74  |ns that the last|
00002710  20 31 30 20 6f 72 20 73  6f 20 70 61 67 65 73 20  | 10 or so pages |
00002720  79 6f 75 0d 68 61 76 65  20 72 65 71 75 65 73 74  |you.have request|
00002730  65 64 20 6f 6e 20 61 20  67 69 76 65 6e 20 63 68  |ed on a given ch|
00002740  61 6e 6e 65 6c 20 61 72  65 20 6e 6f 74 20 6f 6e  |annel are not on|
00002750  6c 79 20 62 75 66 66 65  72 65 64 20 62 79 20 74  |ly buffered by t|
00002760  68 65 20 54 46 53 0d 70  72 6f 67 72 61 6d 2c 20  |he TFS.program, |
00002770  62 75 74 20 61 6c 73 6f  20 75 70 64 61 74 65 64  |but also updated|
00002780  20 61 6e 64 20 69 6e 73  74 61 6e 74 6c 79 20 61  | and instantly a|
00002790  76 61 69 6c 61 62 6c 65  2e 0d 0d 54 68 65 20 54  |vailable...The T|
000027a0  46 53 20 70 72 6f 67 72  61 6d 20 62 72 6f 61 64  |FS program broad|
000027b0  63 61 73 74 73 20 77 68  61 74 65 76 65 72 20 70  |casts whatever p|
000027c0  61 67 65 20 6e 75 6d 62  65 72 20 69 73 20 63 75  |age number is cu|
000027d0  72 72 65 6e 74 6c 79 20  61 74 20 74 68 65 20 74  |rrently at the t|
000027e0  6f 70 20 6f 66 0d 74 68  65 20 73 63 72 65 65 6e  |op of.the screen|
000027f0  20 62 79 20 75 73 69 6e  67 20 74 68 65 20 74 69  | by using the ti|
00002800  6d 65 72 20 63 72 6f 73  73 69 6e 67 20 7a 65 72  |mer crossing zer|
00002810  6f 20 65 76 65 6e 74 2e  20 54 68 69 73 20 6f 63  |o event. This oc|
00002820  63 75 72 73 20 65 76 65  72 79 20 68 61 6c 66 0d  |curs every half.|
00002830  73 65 63 6f 6e 64 2e 0d  0d 4f 76 65 72 61 6c 6c  |second...Overall|
00002840  20 74 68 65 20 72 65 73  70 6f 6e 73 65 20 74 69  | the response ti|
00002850  6d 65 20 6f 66 20 74 68  65 20 73 79 73 74 65 6d  |me of the system|
00002860  20 69 73 20 76 65 72 79  20 66 61 73 74 20 61 6c  | is very fast al|
00002870  74 68 6f 75 67 68 20 69  74 20 77 69 6c 6c 0d 6f  |though it will.o|
00002880  62 76 69 6f 75 73 6c 79  20 62 65 20 73 6c 6f 77  |bviously be slow|
00002890  65 64 20 64 6f 77 6e 20  69 66 20 43 4c 49 45 4e  |ed down if CLIEN|
000028a0  54 73 20 72 65 71 75 65  73 74 20 6e 6f 6e 2d 65  |Ts request non-e|
000028b0  78 69 73 74 65 6e 74 20  70 61 67 65 73 2e 20 54  |xistent pages. T|
000028c0  68 65 20 63 79 63 6c 65  0d 74 69 6d 65 73 20 66  |he cycle.times f|
000028d0  6f 72 20 74 68 65 20 64  69 66 66 65 72 65 6e 74  |or the different|
000028e0  20 63 68 61 6e 6e 65 6c  73 20 61 72 65 20 69 6d  | channels are im|
000028f0  70 6f 72 74 61 6e 74 20  74 6f 20 74 68 65 20 65  |portant to the e|
00002900  66 66 69 63 69 65 6e 63  79 20 6f 66 20 74 68 65  |fficiency of the|
00002910  0d 54 46 53 20 70 72 6f  67 72 61 6d 20 61 6e 64  |.TFS program and|
00002920  20 61 73 20 74 68 65 73  65 20 74 69 6d 65 73 20  | as these times |
00002930  6d 61 79 20 62 65 20 73  75 62 6a 65 63 74 20 74  |may be subject t|
00002940  6f 20 63 68 61 6e 67 65  20 74 68 65 79 20 68 61  |o change they ha|
00002950  76 65 20 62 65 65 6e 0d  69 6e 63 6c 75 64 65 64  |ve been.included|
00002960  20 69 6e 20 61 20 44 41  54 41 20 73 74 61 74 65  | in a DATA state|
00002970  6d 65 6e 74 20 61 74 20  74 68 65 20 76 65 72 79  |ment at the very|
00002980  20 65 6e 64 20 6f 66 20  74 68 65 20 70 72 6f 67  | end of the prog|
00002990  72 61 6d 2e 20 54 68 65  20 66 69 72 73 74 0d 44  |ram. The first.D|
000029a0  41 54 41 20 73 74 61 74  65 6d 65 6e 74 20 69 73  |ATA statement is|
000029b0  20 74 68 65 20 66 72 61  63 74 69 6f 6e 20 6f 66  | the fraction of|
000029c0  20 74 68 65 20 63 79 63  6c 65 20 74 69 6d 65 20  | the cycle time |
000029d0  66 6f 72 20 77 68 69 63  68 20 74 68 65 20 54 46  |for which the TF|
000029e0  53 20 70 72 6f 67 72 61  6d 0d 77 69 6c 6c 20 77  |S program.will w|
000029f0  61 69 74 20 62 65 66 6f  72 65 20 73 65 6e 64 69  |ait before sendi|
00002a00  6e 67 20 61 20 73 75 62  2d 70 61 67 65 2e 20 54  |ng a sub-page. T|
00002a10  68 69 73 20 69 73 20 63  75 72 72 65 6e 74 6c 79  |his is currently|
00002a20  20 30 2e 35 2e 20 54 68  65 20 73 65 63 6f 6e 64  | 0.5. The second|
00002a30  0d 44 41 54 41 20 73 74  61 74 65 6d 65 6e 74 20  |.DATA statement |
00002a40  63 6f 6e 73 69 73 74 73  20 6f 66 20 74 68 65 20  |consists of the |
00002a50  63 79 63 6c 65 20 74 69  6d 65 73 20 66 6f 72 20  |cycle times for |
00002a60  74 68 65 20 66 6f 75 72  20 63 68 61 6e 6e 65 6c  |the four channel|
00002a70  73 20 69 6e 0d 68 75 6e  64 72 65 64 74 68 73 20  |s in.hundredths |
00002a80  6f 66 20 61 20 73 65 63  6f 6e 64 2e 20 54 68 65  |of a second. The|
00002a90  79 20 61 72 65 20 63 75  72 72 65 6e 74 6c 79 20  |y are currently |
00002aa0  73 65 74 20 74 6f 20 34  30 20 73 65 63 6f 6e 64  |set to 40 second|
00002ab0  73 20 65 61 63 68 2e 0d  0d 20 20 20 20 20 20 20  |s each...       |
00002ac0  20 20 20 20 20 20 49 6e  73 74 61 6c 6c 69 6e 67  |      Installing|
00002ad0  20 74 68 65 20 70 72 6f  67 72 61 6d 73 0d 0d 31  | the programs..1|
00002ae0  2e 20 50 6c 61 63 65 20  27 54 45 4c 45 54 45 58  |. Place 'TELETEX|
00002af0  54 27 20 70 72 6f 67 72  61 6d 20 69 6e 20 24 2e  |T' program in $.|
00002b00  4c 49 42 52 41 52 59 0d  0d 32 2e 20 50 75 74 20  |LIBRARY..2. Put |
00002b10  27 54 46 53 27 20 61 6e  64 20 27 63 6f 64 65 27  |'TFS' and 'code'|
00002b20  20 69 6e 20 61 20 64 69  72 65 63 74 6f 72 79 20  | in a directory |
00002b30  6f 66 20 74 68 65 69 72  20 6f 77 6e 2e 20 54 68  |of their own. Th|
00002b40  69 73 20 6d 69 67 68 74  20 62 65 20 74 68 65 0d  |is might be the.|
00002b50  72 6f 6f 74 20 64 69 72  65 63 74 6f 72 79 20 6f  |root directory o|
00002b60  66 20 61 20 75 73 65 72  20 54 46 53 2e 20 49 66  |f a user TFS. If|
00002b70  20 74 68 69 73 20 75 73  65 72 20 68 61 73 20 61  | this user has a|
00002b80  20 21 42 4f 4f 54 20 66  69 6c 65 20 77 68 69 63  | !BOOT file whic|
00002b90  68 20 43 48 41 49 4e 73  0d 74 68 65 20 27 54 46  |h CHAINs.the 'TF|
00002ba0  53 27 20 70 72 6f 67 72  61 6d 20 74 68 65 6e 20  |S' program then |
00002bb0  74 68 65 20 77 68 6f 6c  65 20 73 79 73 74 65 6d  |the whole system|
00002bc0  20 63 61 6e 20 62 65 20  69 6e 69 74 69 61 6c 69  | can be initiali|
00002bd0  73 65 64 20 62 79 20 73  69 6d 70 6c 79 0d 74 79  |sed by simply.ty|
00002be0  70 69 6e 67 20 2a 49 20  41 4d 20 54 46 53 2e 20  |ping *I AM TFS. |
00002bf0  54 68 65 20 6d 61 63 68  69 6e 65 20 72 75 6e 6e  |The machine runn|
00002c00  69 6e 67 20 74 68 65 20  54 46 53 20 70 72 6f 67  |ing the TFS prog|
00002c10  72 61 6d 20 6d 75 73 74  20 6e 6f 74 20 75 73 65  |ram must not use|
00002c20  20 73 68 61 64 6f 77 0d  73 63 72 65 65 6e 73 20  | shadow.screens |
00002c30  61 73 20 74 68 65 20 68  65 61 64 65 72 20 69 73  |as the header is|
00002c40  20 50 4f 4b 45 44 20 69  6e 20 74 6f 20 6d 65 6d  | POKED in to mem|
00002c50  6f 72 79 20 61 74 20 26  37 43 30 30 20 62 79 20  |ory at &7C00 by |
00002c60  74 68 65 20 41 54 46 53  20 52 6f 6d 2e 20 54 68  |the ATFS Rom. Th|
00002c70  65 0d 70 72 6f 67 72 61  6d 20 6d 61 79 20 72 75  |e.program may ru|
00002c80  6e 20 69 6e 20 61 20 73  65 63 6f 6e 64 20 70 72  |n in a second pr|
00002c90  6f 63 65 73 73 6f 72 2c  20 69 6e 20 77 68 69 63  |ocessor, in whic|
00002ca0  68 20 63 61 73 65 20 74  68 65 20 77 68 6f 6c 65  |h case the whole|
00002cb0  20 6f 66 20 74 68 65 20  49 2f 4f 0d 70 72 6f 63  | of the I/O.proc|
00002cc0  65 73 73 6f 72 20 6d 65  6d 6f 72 79 20 62 65 63  |essor memory bec|
00002cd0  6f 6d 65 73 20 61 76 61  69 6c 61 62 6c 65 20 66  |omes available f|
00002ce0  6f 72 20 62 75 66 66 65  72 69 6e 67 20 70 61 67  |or buffering pag|
00002cf0  65 73 20 61 6e 64 20 74  68 65 72 65 20 77 69 6c  |es and there wil|
00002d00  6c 20 62 65 0d 61 6e 20  61 73 73 6f 63 69 61 74  |l be.an associat|
00002d10  65 64 20 69 6e 63 72 65  61 73 65 20 69 6e 20 70  |ed increase in p|
00002d20  65 72 66 6f 72 6d 61 6e  63 65 2e 20 54 68 65 72  |erformance. Ther|
00002d30  65 20 69 73 20 6e 6f 20  61 64 76 61 6e 74 61 67  |e is no advantag|
00002d40  65 20 69 6e 20 75 73 69  6e 67 0d 48 49 42 41 53  |e in using.HIBAS|
00002d50  49 43 20 61 73 20 74 68  65 20 70 61 67 65 73 20  |IC as the pages |
00002d60  61 72 65 20 62 75 66 66  65 72 65 64 20 69 6e 20  |are buffered in |
00002d70  74 68 65 20 49 2f 4f 20  70 72 6f 63 65 73 73 6f  |the I/O processo|
00002d80  72 2e 0d 0d 0d 20 20 20  20 20 20 20 20 20 20 43  |r....          C|
00002d90  6f 6d 70 61 74 69 62 69  6c 69 74 79 20 77 69 74  |ompatibility wit|
00002da0  68 20 74 68 65 20 6e 65  77 20 47 49 53 20 61 64  |h the new GIS ad|
00002db0  61 70 74 65 72 0d 0d 54  68 65 20 73 6f 66 74 77  |apter..The softw|
00002dc0  61 72 65 20 69 73 20 63  6f 6d 70 61 74 69 62 6c  |are is compatibl|
00002dd0  65 20 77 69 74 68 20 74  68 65 20 6e 65 77 20 47  |e with the new G|
00002de0  49 53 20 74 65 6c 65 74  65 78 74 20 61 64 61 70  |IS teletext adap|
00002df0  74 65 72 20 61 6c 74 68  6f 75 67 68 20 61 73 0d  |ter although as.|
00002e00  74 68 69 73 20 63 6f 6e  6e 65 63 74 73 20 74 6f  |this connects to|
00002e10  20 74 68 65 20 75 73 65  72 20 70 6f 72 74 20 72  | the user port r|
00002e20  61 74 68 65 72 20 74 68  61 6e 20 74 68 65 20 31  |ather than the 1|
00002e30  4d 48 7a 20 42 75 73 20  74 68 65 20 73 70 65 65  |MHz Bus the spee|
00002e40  64 20 6f 66 0d 72 65 73  70 6f 6e 73 65 20 69 73  |d of.response is|
00002e50  20 73 6c 69 67 68 74 6c  79 20 73 6c 6f 77 65 72  | slightly slower|
00002e60  2e 20 54 68 65 72 65 20  61 70 70 65 61 72 73 20  |. There appears |
00002e70  74 6f 20 62 65 20 61 20  70 72 6f 62 6c 65 6d 20  |to be a problem |
00002e80  77 69 74 68 20 74 68 65  0d 72 6f 75 74 69 6e 65  |with the.routine|
00002e90  20 74 6f 20 63 61 6c 63  75 6c 61 74 65 20 74 68  | to calculate th|
00002ea0  65 20 63 68 65 63 6b 73  75 6d 20 6f 66 20 61 20  |e checksum of a |
00002eb0  70 61 67 65 20 69 6e 20  74 68 61 74 20 74 68 65  |page in that the|
00002ec0  20 47 49 53 20 52 6f 6d  20 67 65 74 73 20 69 74  | GIS Rom gets it|
00002ed0  0d 77 72 6f 6e 67 20 69  66 20 61 20 70 61 67 65  |.wrong if a page|
00002ee0  20 68 65 61 64 65 72 20  77 61 73 20 62 72 6f 61  | header was broa|
00002ef0  64 63 61 73 74 20 77 68  69 6c 65 20 70 65 72 66  |dcast while perf|
00002f00  6f 72 6d 69 6e 67 20 74  68 65 20 63 68 65 63 6b  |orming the check|
00002f10  2e 20 54 68 65 72 65 0d  64 6f 65 73 20 73 65 65  |. There.does see|
00002f20  6d 20 74 6f 20 62 65 20  61 20 70 72 6f 62 6c 65  |m to be a proble|
00002f30  6d 20 77 69 74 68 20 74  68 65 20 4d 41 53 54 45  |m with the MASTE|
00002f40  52 20 31 32 38 20 61 6e  64 20 74 68 65 20 54 55  |R 128 and the TU|
00002f50  42 45 20 69 6e 20 74 68  61 74 20 74 68 65 0d 73  |BE in that the.s|
00002f60  6f 66 74 77 61 72 65 20  77 69 6c 6c 20 6e 6f 74  |oftware will not|
00002f70  20 77 6f 72 6b 20 77 69  74 68 20 65 69 74 68 65  | work with eithe|
00002f80  72 20 61 64 61 70 74 65  72 20 69 6e 20 74 68 69  |r adapter in thi|
00002f90  73 20 63 6f 6e 66 69 67  75 72 61 74 69 6f 6e 2e  |s configuration.|
00002fa0  20 54 68 69 73 0d 6c 6f  6f 6b 73 20 6c 69 6b 65  | This.looks like|
00002fb0  20 69 74 20 6d 61 79 20  62 65 20 61 20 70 72 6f  | it may be a pro|
00002fc0  62 6c 65 6d 20 77 69 74  68 20 74 68 65 20 41 4e  |blem with the AN|
00002fd0  46 53 2e 0d 0d 20 20 20  20 20 20 20 20 20 20 20  |FS...           |
00002fe0  20 20 57 72 69 74 69 6e  67 20 79 6f 75 72 20 6f  |  Writing your o|
00002ff0  77 6e 20 73 6f 66 74 77  61 72 65 0d 0d 42 65 6c  |wn software..Bel|
00003000  6f 77 20 69 73 20 61 6e  20 65 78 61 6d 70 6c 65  |ow is an example|
00003010  20 6f 66 20 61 20 42 41  53 49 43 20 70 72 6f 67  | of a BASIC prog|
00003020  72 61 6d 20 77 68 69 63  68 20 69 6c 6c 75 73 74  |ram which illust|
00003030  72 61 74 65 73 20 68 6f  77 20 74 6f 20 77 72 69  |rates how to wri|
00003040  74 65 20 79 6f 75 72 0d  6f 77 6e 20 73 6f 66 74  |te your.own soft|
00003050  77 61 72 65 20 75 73 69  6e 67 20 74 68 65 20 53  |ware using the S|
00003060  45 52 56 45 52 20 70 72  6f 74 6f 63 6f 6c 73 2e  |ERVER protocols.|
00003070  20 55 73 69 6e 67 20 74  68 69 73 20 70 72 69 6e  | Using this prin|
00003080  63 69 70 6c 65 20 69 74  20 69 73 0d 70 6f 73 73  |ciple it is.poss|
00003090  69 62 6c 65 20 74 6f 20  77 72 69 74 65 20 70 72  |ible to write pr|
000030a0  6f 67 72 61 6d 73 20 66  6f 72 20 61 75 74 6f 6d  |ograms for autom|
000030b0  61 74 69 63 61 6c 6c 79  20 72 65 63 65 69 76 69  |atically receivi|
000030c0  6e 67 20 61 6e 64 20 73  61 76 69 6e 67 20 70 61  |ng and saving pa|
000030d0  67 65 73 2e 0d 0d 52 65  61 64 20 74 68 65 20 74  |ges...Read the t|
000030e0  69 6d 65 20 66 72 6f 6d  20 61 20 54 45 4c 45 54  |ime from a TELET|
000030f0  45 58 54 20 73 65 72 76  65 72 0d 0d 20 31 30 20  |EXT server.. 10 |
00003100  6f 73 77 6f 72 64 3d 26  46 46 46 31 3a 6f 73 62  |osword=&FFF1:osb|
00003110  79 74 65 3d 26 46 46 46  34 0d 20 32 30 20 44 49  |yte=&FFF4. 20 DI|
00003120  4d 20 62 6c 6b 25 20 26  31 30 30 2c 62 75 66 66  |M blk% &100,buff|
00003130  20 26 31 30 30 0d 20 33  30 20 52 45 50 45 41 54  | &100. 30 REPEAT|
00003140  0d 20 34 30 20 20 20 20  20 20 20 20 20 20 20 20  |. 40            |
00003150  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00003160  20 20 20 3a 52 45 4d 20  53 65 74 20 75 70 20 72  |   :REM Set up r|
00003170  65 63 65 69 76 65 20 62  6c 6b 20 66 6f 72 20 53  |eceive blk for S|
00003180  45 52 56 45 52 20 72 65  70 6c 79 0d 20 35 30 20  |ERVER reply. 50 |
00003190  72 78 5f 6e 6f 3d 46 4e  73 65 74 5f 75 70 5f 72  |rx_no=FNset_up_r|
000031a0  78 28 26 42 31 2c 30 2c  62 75 66 66 2c 26 32 30  |x(&B1,0,buff,&20|
000031b0  29 0d 20 20 3a 52 45 4d  20 4c 69 73 74 65 6e 20  |).  :REM Listen |
000031c0  66 6f 72 20 61 6c 6c 20  73 74 61 74 69 6f 6e 73  |for all stations|
000031d0  20 61 73 20 77 65 20 64  6f 6e 27 74 20 6b 6e 6f  | as we don't kno|
000031e0  77 20 74 68 65 20 73 65  72 76 65 72 20 73 74 61  |w the server sta|
000031f0  74 69 6f 6e 20 6e 75 6d  62 65 72 0d 20 37 30 20  |tion number. 70 |
00003200  52 45 50 45 41 54 0d 20  38 30 20 50 52 4f 43 62  |REPEAT. 80 PROCb|
00003210  63 61 73 74 28 26 42 30  2c 26 38 30 2c 22 54 45  |cast(&B0,&80,"TE|
00003220  4c 45 54 45 58 54 22 29  20 3a 52 45 4d 20 42 72  |LETEXT") :REM Br|
00003230  6f 61 64 63 61 73 74 20  66 6f 72 20 61 20 54 45  |oadcast for a TE|
00003240  4c 45 54 45 58 54 20 73  65 72 76 65 72 0d 20 39  |LETEXT server. 9|
00003250  30 20 54 49 4d 45 3d 30  0d 31 30 30 20 52 45 50  |0 TIME=0.100 REP|
00003260  45 41 54 20 55 4e 54 49  4c 20 54 49 4d 45 3e 35  |EAT UNTIL TIME>5|
00003270  30 20 20 20 20 20 20 20  20 20 20 3a 52 45 4d 20  |0          :REM |
00003280  57 61 69 74 20 66 6f 72  20 61 20 77 68 69 6c 65  |Wait for a while|
00003290  20 62 65 66 6f 72 65 20  72 65 74 72 79 69 6e 67  | before retrying|
000032a0  0d 31 31 30 20 55 4e 54  49 4c 20 46 4e 70 6f 6c  |.110 UNTIL FNpol|
000032b0  6c 5f 72 78 28 72 78 5f  6e 6f 29 3e 31 32 37 20  |l_rx(rx_no)>127 |
000032c0  20 20 20 3a 52 45 4d 20  4b 65 65 70 20 74 72 79  |   :REM Keep try|
000032d0  69 6e 67 20 75 6e 74 69  6c 20 61 20 72 65 70 6c  |ing until a repl|
000032e0  79 20 72 65 63 65 69 76  65 64 0d 31 32 30 0d 31  |y received.120.1|
000032f0  33 30 20 50 52 4f 43 72  65 61 64 5f 72 78 28 72  |30 PROCread_rx(r|
00003300  78 5f 6e 6f 29 20 20 20  20 20 20 20 20 20 20 20  |x_no)           |
00003310  20 3a 52 45 4d 20 52 65  61 64 20 74 68 65 20 72  | :REM Read the r|
00003320  65 63 65 69 76 65 20 62  6c 6f 63 6b 0d 31 34 30  |eceive block.140|
00003330  20 62 75 66 66 3f 31 31  3d 31 33 20 20 20 20 20  | buff?11=13     |
00003340  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 3a  |               :|
00003350  52 45 4d 20 43 68 65 63  6b 20 74 68 61 74 20 69  |REM Check that i|
00003360  74 20 72 65 61 6c 6c 79  20 77 61 73 20 61 20 54  |t really was a T|
00003370  45 4c 45 54 45 58 54 0d  31 35 30 20 55 4e 54 49  |ELETEXT.150 UNTI|
00003380  4c 20 24 28 62 75 66 66  2b 33 29 3d 22 54 45 4c  |L $(buff+3)="TEL|
00003390  45 54 45 58 54 22 20 20  20 20 3a 52 45 4d 20 20  |ETEXT"    :REM  |
000033a0  73 65 72 76 65 72 20 77  68 69 63 68 20 72 65 73  |server which res|
000033b0  70 6f 6e 64 65 64 0d 31  36 30 20 73 65 72 76 65  |ponded.160 serve|
000033c0  72 25 3d 62 6c 6b 25 21  33 20 41 4e 44 20 26 46  |r%=blk%!3 AND &F|
000033d0  46 46 46 20 20 20 20 20  20 3a 52 45 4d 20 52 65  |FFF      :REM Re|
000033e0  61 64 20 74 68 65 20 73  65 72 76 65 72 27 73 20  |ad the server's |
000033f0  6e 75 6d 62 65 72 0d 31  37 30 20 62 61 73 65 5f  |number.170 base_|
00003400  70 6f 72 74 3d 62 75 66  66 3f 31 20 20 20 20 20  |port=buff?1     |
00003410  20 20 20 20 20 20 20 20  20 3a 52 45 4d 20 52 65  |         :REM Re|
00003420  61 64 20 74 68 65 20 62  61 73 65 20 70 6f 72 74  |ad the base port|
00003430  20 6e 75 6d 62 65 72 0d  31 38 30 20 72 78 5f 6e  | number.180 rx_n|
00003440  6f 3d 46 4e 73 65 74 5f  75 70 5f 72 78 28 62 61  |o=FNset_up_rx(ba|
00003450  73 65 5f 70 6f 72 74 2c  73 65 72 76 65 72 25 2c  |se_port,server%,|
00003460  62 75 66 66 2c 26 32 30  29 0d 20 3a 52 45 4d 20  |buff,&20). :REM |
00003470  53 65 74 20 75 70 20 61  20 72 65 63 65 69 76 65  |Set up a receive|
00003480  20 62 6c 6b 0d 31 39 30  20 52 45 50 45 41 54 20  | blk.190 REPEAT |
00003490  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000034a0  20 20 20 20 20 20 20 3a  52 45 4d 20 20 66 6f 72  |       :REM  for|
000034b0  20 74 68 65 20 74 69 6d  65 0d 32 30 30 20 52 45  | the time.200 RE|
000034c0  50 45 41 54 0d 32 31 30  20 50 52 4f 43 74 78 28  |PEAT.210 PROCtx(|
000034d0  26 38 34 2c 62 61 73 65  5f 70 6f 72 74 2b 31 2c  |&84,base_port+1,|
000034e0  73 65 72 76 65 72 25 2c  62 75 66 66 2c 31 29 0d  |server%,buff,1).|
000034f0  20 3a 52 45 4d 20 54 72  61 6e 73 6d 69 74 20 72  | :REM Transmit r|
00003500  65 71 75 65 73 74 20 66  6f 72 20 74 68 65 20 74  |equest for the t|
00003510  69 6d 65 0d 32 32 30 20  54 49 4d 45 3d 30 20 20  |ime.220 TIME=0  |
00003520  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00003530  20 20 20 20 20 20 3a 52  45 4d 20 57 61 69 74 20  |      :REM Wait |
00003540  66 6f 72 20 61 20 77 68  69 6c 65 20 62 65 66 6f  |for a while befo|
00003550  72 65 20 72 65 74 72 79  69 6e 67 0d 32 33 30 20  |re retrying.230 |
00003560  52 45 50 45 41 54 20 55  4e 54 49 4c 20 54 49 4d  |REPEAT UNTIL TIM|
00003570  45 3e 35 30 0d 32 34 30  20 72 65 73 75 6c 74 25  |E>50.240 result%|
00003580  3d 46 4e 70 6f 6c 6c 5f  74 78 0d 32 35 30 20 55  |=FNpoll_tx.250 U|
00003590  4e 54 49 4c 20 72 65 73  75 6c 74 25 3d 30 20 20  |NTIL result%=0  |
000035a0  20 20 20 20 20 20 20 20  20 20 20 20 20 3a 52 45  |             :RE|
000035b0  4d 20 4b 65 65 70 20 74  72 79 69 6e 67 20 75 6e  |M Keep trying un|
000035c0  74 69 6c 20 74 72 61 6e  73 6d 69 74 20 73 75 63  |til transmit suc|
000035d0  63 65 65 64 73 0d 32 36  30 20 55 4e 54 49 4c 20  |ceeds.260 UNTIL |
000035e0  46 4e 70 6f 6c 6c 5f 72  78 28 72 78 5f 6e 6f 29  |FNpoll_rx(rx_no)|
000035f0  3e 31 32 37 20 20 20 20  3a 52 45 4d 20 4b 65 65  |>127    :REM Kee|
00003600  70 20 74 72 79 69 6e 67  20 75 6e 74 69 6c 20 77  |p trying until w|
00003610  65 20 67 65 74 20 61 20  72 65 70 6c 79 0d 32 37  |e get a reply.27|
00003620  30 20 50 52 4f 43 72 65  61 64 5f 72 78 28 72 78  |0 PROCread_rx(rx|
00003630  5f 6e 6f 29 20 20 20 20  20 20 20 20 20 20 20 20  |_no)            |
00003640  3a 52 45 4d 20 52 65 61  64 20 74 68 65 20 72 65  |:REM Read the re|
00003650  63 65 69 76 65 20 62 6c  6f 63 6b 0d 32 38 30 0d  |ceive block.280.|
00003660  32 39 30 20 62 75 66 66  3f 31 39 3d 31 33 0d 33  |290 buff?19=13.3|
00003670  30 30 20 64 61 74 65 24  3d 24 28 62 75 66 66 2b  |00 date$=$(buff+|
00003680  39 29 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |9)              |
00003690  20 3a 52 45 4d 20 52 65  61 64 20 74 68 65 20 64  | :REM Read the d|
000036a0  61 74 65 0d 33 31 30 20  62 75 66 66 3f 39 3d 31  |ate.310 buff?9=1|
000036b0  33 0d 33 32 30 20 74 69  6d 65 24 3d 24 28 62 75  |3.320 time$=$(bu|
000036c0  66 66 2b 31 29 20 20 20  20 20 20 20 20 20 20 20  |ff+1)           |
000036d0  20 20 20 20 3a 52 45 4d  20 52 65 61 64 20 74 68  |    :REM Read th|
000036e0  65 20 74 69 6d 65 0d 33  33 30 20 50 52 49 4e 54  |e time.330 PRINT|
000036f0  22 54 68 65 20 74 69 6d  65 20 69 73 20 22 3b 74  |"The time is ";t|
00003700  69 6d 65 24 3b 22 20 6f  6e 20 22 3b 64 61 74 65  |ime$;" on ";date|
00003710  24 0d 33 34 30 20 45 4e  44 0d 33 35 30 0d 33 36  |$.340 END.350.36|
00003720  30 20 44 45 46 50 52 4f  43 62 63 61 73 74 28 70  |0 DEFPROCbcast(p|
00003730  25 2c 63 62 25 2c 73 65  72 76 65 72 24 29 0d 33  |%,cb%,server$).3|
00003740  37 30 20 3f 62 6c 6b 25  3d 63 62 25 0d 33 38 30  |70 ?blk%=cb%.380|
00003750  20 62 6c 6b 25 3f 31 3d  70 25 0d 33 39 30 20 62  | blk%?1=p%.390 b|
00003760  6c 6b 25 21 32 3d 26 46  46 46 46 0d 34 30 30 20  |lk%!2=&FFFF.400 |
00003770  24 28 62 6c 6b 25 2b 34  29 3d 73 65 72 76 65 72  |$(blk%+4)=server|
00003780  24 0d 34 31 30 20 58 25  3d 62 6c 6b 25 3a 59 25  |$.410 X%=blk%:Y%|
00003790  3d 58 25 20 44 49 56 20  32 35 36 3a 41 25 3d 26  |=X% DIV 256:A%=&|
000037a0  31 30 0d 34 32 30 20 43  41 4c 4c 20 6f 73 77 6f  |10.420 CALL oswo|
000037b0  72 64 0d 34 33 30 20 45  4e 44 50 52 4f 43 0d 34  |rd.430 ENDPROC.4|
000037c0  34 30 0d 34 35 30 20 44  45 46 46 4e 73 65 74 5f  |40.450 DEFFNset_|
000037d0  75 70 5f 72 78 28 70 25  2c 73 74 25 2c 62 25 2c  |up_rx(p%,st%,b%,|
000037e0  6c 25 29 0d 34 36 30 20  3f 62 6c 6b 25 3d 30 0d  |l%).460 ?blk%=0.|
000037f0  34 37 30 20 62 6c 6b 25  3f 31 3d 26 37 46 0d 34  |470 blk%?1=&7F.4|
00003800  38 30 20 62 6c 6b 25 3f  32 3d 70 25 0d 34 39 30  |80 blk%?2=p%.490|
00003810  20 62 6c 6b 25 21 33 3d  73 74 25 0d 35 30 30 20  | blk%!3=st%.500 |
00003820  62 6c 6b 25 21 35 3d 62  25 0d 35 31 30 20 62 6c  |blk%!5=b%.510 bl|
00003830  6b 25 21 39 3d 62 25 2b  6c 25 0d 35 32 30 20 58  |k%!9=b%+l%.520 X|
00003840  25 3d 62 6c 6b 25 3a 59  25 3d 58 25 20 44 49 56  |%=blk%:Y%=X% DIV|
00003850  20 32 35 36 3a 41 25 3d  26 31 31 0d 35 33 30 20  | 256:A%=&11.530 |
00003860  43 41 4c 4c 20 6f 73 77  6f 72 64 0d 35 34 30 20  |CALL osword.540 |
00003870  3d 3f 62 6c 6b 25 0d 35  35 30 0d 35 36 30 20 44  |=?blk%.550.560 D|
00003880  45 46 46 4e 70 6f 6c 6c  5f 72 78 28 72 25 29 0d  |EFFNpoll_rx(r%).|
00003890  35 37 30 20 41 25 3d 26  33 33 3a 58 25 3d 72 25  |570 A%=&33:X%=r%|
000038a0  0d 35 38 30 20 3d 55 53  52 28 6f 73 62 79 74 65  |.580 =USR(osbyte|
000038b0  29 20 41 4e 44 20 26 38  30 30 30 0d 35 39 30 0d  |) AND &8000.590.|
000038c0  36 30 30 20 44 45 46 50  52 4f 43 72 65 61 64 5f  |600 DEFPROCread_|
000038d0  72 78 28 72 25 29 0d 36  31 30 20 3f 62 6c 6b 25  |rx(r%).610 ?blk%|
000038e0  3d 72 25 0d 36 32 30 20  58 25 3d 62 6c 6b 25 3a  |=r%.620 X%=blk%:|
000038f0  59 25 3d 58 25 20 44 49  56 20 32 35 36 3a 41 25  |Y%=X% DIV 256:A%|
00003900  3d 26 31 31 0d 36 33 30  20 43 41 4c 4c 20 6f 73  |=&11.630 CALL os|
00003910  77 6f 72 64 0d 36 34 30  20 45 4e 44 50 52 4f 43  |word.640 ENDPROC|
00003920  0d 36 35 30 0d 36 36 30  20 44 45 46 50 52 4f 43  |.650.660 DEFPROC|
00003930  74 78 28 63 62 25 2c 70  25 2c 73 74 25 2c 62 25  |tx(cb%,p%,st%,b%|
00003940  2c 6c 25 29 0d 36 37 30  20 3f 62 6c 6b 25 3d 63  |,l%).670 ?blk%=c|
00003950  62 25 0d 36 38 30 20 62  6c 6b 25 3f 31 3d 70 25  |b%.680 blk%?1=p%|
00003960  0d 36 39 30 20 62 6c 6b  25 21 32 3d 73 74 25 0d  |.690 blk%!2=st%.|
00003970  37 30 30 20 62 6c 6b 25  21 34 3d 62 25 0d 37 31  |700 blk%!4=b%.71|
00003980  30 20 62 6c 6b 25 21 38  3d 62 25 2b 6c 25 0d 37  |0 blk%!8=b%+l%.7|
00003990  32 30 20 58 25 3d 62 6c  6b 25 3a 59 25 3d 58 25  |20 X%=blk%:Y%=X%|
000039a0  20 44 49 56 20 32 35 36  3a 41 25 3d 26 31 30 0d  | DIV 256:A%=&10.|
000039b0  37 33 30 20 43 41 4c 4c  20 6f 73 77 6f 72 64 0d  |730 CALL osword.|
000039c0  37 34 30 20 45 4e 44 50  52 4f 43 0d 37 35 30 0d  |740 ENDPROC.750.|
000039d0  37 36 30 20 44 45 46 46  4e 70 6f 6c 6c 5f 74 78  |760 DEFFNpoll_tx|
000039e0  0d 37 37 30 20 52 45 50  45 41 54 0d 37 38 30 20  |.770 REPEAT.780 |
000039f0  41 25 3d 26 33 32 0d 37  39 30 20 74 65 73 74 25  |A%=&32.790 test%|
00003a00  3d 28 55 53 52 28 6f 73  62 79 74 65 29 20 41 4e  |=(USR(osbyte) AN|
00003a10  44 20 26 46 46 30 30 29  20 44 49 56 20 26 31 30  |D &FF00) DIV &10|
00003a20  30 0d 38 30 30 20 55 4e  54 49 4c 20 74 65 73 74  |0.800 UNTIL test|
00003a30  25 3c 31 32 38 0d 38 31  30 20 3d 74 65 73 74 25  |%<128.810 =test%|
00003a40  0d 0d 0d 20 20 20 20 20  20 20 20 20 20 20 20 20  |...             |
00003a50  20 20 53 45 52 56 45 52  20 45 78 74 65 6e 73 69  |  SERVER Extensi|
00003a60  6f 6e 73 0d 0d 41 73 20  79 6f 75 20 77 69 6c 6c  |ons..As you will|
00003a70  20 66 69 6e 64 20 69 6e  20 74 68 65 20 70 72 6f  | find in the pro|
00003a80  74 6f 63 6f 6c 73 20 73  65 63 74 69 6f 6e 20 6f  |tocols section o|
00003a90  66 20 74 68 69 73 20 61  72 74 69 63 6c 65 20 61  |f this article a|
00003aa0  20 66 75 72 74 68 65 72  0d 6e 6f 6e 2d 74 65 6c  | further.non-tel|
00003ab0  65 74 65 78 74 20 72 65  6c 61 74 65 64 20 63 61  |etext related ca|
00003ac0  6c 6c 20 68 61 73 20 62  65 65 6e 20 69 6e 63 6c  |ll has been incl|
00003ad0  75 64 65 64 20 69 6e 20  74 68 65 20 53 45 52 56  |uded in the SERV|
00003ae0  45 52 2e 20 54 68 69 73  20 63 61 6c 6c 0d 72 65  |ER. This call.re|
00003af0  74 75 72 6e 73 20 74 68  65 20 76 61 6c 75 65 20  |turns the value |
00003b00  6f 66 20 74 68 65 20 61  6e 61 6c 6f 67 75 65 20  |of the analogue |
00003b10  70 6f 72 74 73 2e 20 54  68 69 73 20 6d 65 61 6e  |ports. This mean|
00003b20  73 20 76 61 72 69 6f 75  73 20 64 65 76 69 63 65  |s various device|
00003b30  73 20 63 61 6e 20 62 65  0d 61 74 74 61 63 68 65  |s can be.attache|
00003b40  64 20 74 6f 20 74 68 65  20 61 6e 61 6c 6f 67 75  |d to the analogu|
00003b50  65 20 70 6f 72 74 20 6f  66 20 74 68 65 20 53 45  |e port of the SE|
00003b60  52 56 45 52 20 61 6e 64  20 63 61 6e 20 62 65 20  |RVER and can be |
00003b70  73 61 6d 70 6c 65 64 20  66 72 6f 6d 0d 61 6e 79  |sampled from.any|
00003b80  77 68 65 72 65 20 6f 6e  20 74 68 65 20 6e 65 74  |where on the net|
00003b90  77 6f 72 6b 2e 20 57 65  20 61 72 65 20 75 73 69  |work. We are usi|
00003ba0  6e 67 20 74 68 69 73 20  74 6f 20 6d 6f 6e 69 74  |ng this to monit|
00003bb0  6f 72 20 74 68 65 20 6f  75 74 73 69 64 65 0d 74  |or the outside.t|
00003bc0  65 6d 70 65 72 61 74 75  72 65 2e 0d 0d 20 20 20  |emperature...   |
00003bd0  20 20 20 20 20 20 20 20  20 20 54 45 4c 45 54 45  |          TELETE|
00003be0  58 54 20 53 45 52 56 45  52 20 50 52 4f 54 4f 43  |XT SERVER PROTOC|
00003bf0  4f 4c 53 0d 0d 41 6c 6c  20 63 6f 6d 6d 75 6e 69  |OLS..All communi|
00003c00  63 61 74 69 6f 6e 73 20  62 65 74 77 65 65 6e 20  |cations between |
00003c10  74 65 6c 65 73 65 72 76  65 72 20 61 6e 64 20 63  |teleserver and c|
00003c20  6c 69 65 6e 74 20 61 72  65 20 63 6f 6e 64 75 63  |lient are conduc|
00003c30  74 65 64 20 6f 6e 20 70  6f 72 74 73 0d 62 61 73  |ted on ports.bas|
00003c40  65 2d 62 61 73 65 2b 33  20 28 63 75 72 72 65 6e  |e-base+3 (curren|
00003c50  74 6c 79 20 26 42 32 2d  26 42 35 29 2e 20 54 72  |tly &B2-&B5). Tr|
00003c60  61 6e 73 6d 69 73 73 69  6f 6e 73 20 66 72 6f 6d  |ansmissions from|
00003c70  20 63 6c 69 65 6e 74 20  74 6f 20 73 65 72 76 65  | client to serve|
00003c80  72 20 61 72 65 0d 6f 6e  20 70 6f 72 74 20 26 42  |r are.on port &B|
00003c90  33 20 61 6e 64 20 72 65  70 6c 69 65 73 20 66 72  |3 and replies fr|
00003ca0  6f 6d 20 74 68 65 20 73  65 72 76 65 72 20 61 72  |om the server ar|
00003cb0  65 20 6f 6e 20 70 6f 72  74 20 26 42 32 2e 20 50  |e on port &B2. P|
00003cc0  6f 72 74 20 26 42 35 20  69 73 0d 72 65 73 65 72  |ort &B5 is.reser|
00003cd0  76 65 64 20 66 6f 72 20  62 72 6f 61 64 63 61 73  |ved for broadcas|
00003ce0  74 69 6e 67 20 74 68 65  20 63 75 72 72 65 6e 74  |ting the current|
00003cf0  20 70 61 67 65 20 6e 75  6d 62 65 72 20 62 65 69  | page number bei|
00003d00  6e 67 20 70 69 63 6b 65  64 20 75 70 20 62 79 20  |ng picked up by |
00003d10  74 68 65 0d 73 65 72 76  65 72 20 61 6e 64 20 70  |the.server and p|
00003d20  6f 72 74 20 26 42 34 20  69 73 20 75 73 65 64 20  |ort &B4 is used |
00003d30  66 6f 72 20 74 72 61 6e  73 6d 69 74 74 69 6e 67  |for transmitting|
00003d40  20 74 68 65 20 70 61 67  65 20 69 74 73 65 6c 66  | the page itself|
00003d50  2e 0d 0d 49 74 20 69 73  20 6e 65 63 65 73 73 61  |...It is necessa|
00003d60  72 79 20 74 6f 20 75 73  65 20 66 6f 75 72 20 70  |ry to use four p|
00003d70  6f 72 74 73 20 62 65 63  61 75 73 65 20 74 68 65  |orts because the|
00003d80  20 63 6c 69 65 6e 74 20  6d 61 79 20 77 69 73 68  | client may wish|
00003d90  20 74 6f 20 68 61 76 65  0d 74 68 72 65 65 20 72  | to have.three r|
00003da0  65 63 65 69 76 65 20 62  6c 6f 63 6b 73 20 6f 70  |eceive blocks op|
00003db0  65 6e 20 61 74 20 74 68  65 20 73 61 6d 65 20 74  |en at the same t|
00003dc0  69 6d 65 2e 20 4f 6e 65  20 74 6f 20 63 6f 6e 74  |ime. One to cont|
00003dd0  69 6e 75 61 6c 6c 79 20  75 70 64 61 74 65 20 74  |inually update t|
00003de0  68 65 0d 70 61 67 65 20  68 65 61 64 65 72 2c 20  |he.page header, |
00003df0  6f 6e 65 20 74 6f 20 72  65 71 75 65 73 74 20 6f  |one to request o|
00003e00  74 68 65 72 20 69 6e 66  6f 72 6d 61 74 69 6f 6e  |ther information|
00003e10  20 61 6e 64 20 6f 6e 65  20 74 6f 20 72 65 63 65  | and one to rece|
00003e20  69 76 65 20 74 68 65 20  70 61 67 65 0d 69 74 73  |ive the page.its|
00003e30  65 6c 66 2e 0d 0d 54 68  65 20 70 61 67 65 20 63  |elf...The page c|
00003e40  75 72 72 65 6e 74 6c 79  20 62 65 69 6e 67 20 72  |urrently being r|
00003e50  65 63 65 69 76 65 64 20  69 73 20 62 72 6f 61 64  |eceived is broad|
00003e60  63 61 73 74 20 6f 6e 20  70 6f 72 74 20 26 42 35  |cast on port &B5|
00003e70  20 61 6e 64 20 63 6f 6e  73 69 73 74 73 20 6f 66  | and consists of|
00003e80  0d 34 20 62 79 74 65 73  3a 0d 0d 42 79 74 65 20  |.4 bytes:..Byte |
00003e90  31 20 20 20 20 20 43 68  61 6e 6e 65 6c 20 6e 75  |1     Channel nu|
00003ea0  6d 62 65 72 20 69 6e 20  41 53 43 49 49 0d 42 79  |mber in ASCII.By|
00003eb0  74 65 73 20 32 2d 34 20  20 50 61 67 65 20 6e 75  |tes 2-4  Page nu|
00003ec0  6d 62 65 72 20 69 6e 20  41 53 43 49 49 0d 0d 41  |mber in ASCII..A|
00003ed0  6c 6c 20 74 72 61 6e 73  6d 69 73 73 69 6f 6e 73  |ll transmissions|
00003ee0  20 74 6f 20 74 68 65 20  74 65 6c 65 73 65 72 76  | to the teleserv|
00003ef0  65 72 20 77 69 6c 6c 20  72 65 73 75 6c 74 20 69  |er will result i|
00003f00  6e 20 61 20 72 65 70 6c  79 20 62 65 69 6e 67 20  |n a reply being |
00003f10  73 65 6e 74 2e 20 54 68  65 0d 74 65 6c 65 73 65  |sent. The.telese|
00003f20  72 76 65 72 20 67 69 76  65 73 20 75 70 20 69 66  |rver gives up if|
00003f30  20 61 20 27 4e 6f 74 20  6c 69 73 74 65 6e 69 6e  | a 'Not listenin|
00003f40  67 27 20 65 72 72 6f 72  20 6f 63 63 75 72 73 20  |g' error occurs |
00003f50  35 20 74 69 6d 65 73 2e  20 54 68 65 72 65 20 61  |5 times. There a|
00003f60  72 65 0d 74 77 6f 20 73  74 61 6e 64 61 72 64 20  |re.two standard |
00003f70  66 6f 72 6d 73 20 6f 66  20 72 65 70 6c 79 2e 0d  |forms of reply..|
00003f80  0d 61 29 20 49 66 20 61  6e 20 65 72 72 6f 72 20  |.a) If an error |
00003f90  68 61 73 20 6f 63 63 75  72 72 65 64 20 28 65 67  |has occurred (eg|
00003fa0  20 79 6f 75 20 68 61 76  65 20 72 65 71 75 65 73  | you have reques|
00003fb0  74 65 64 20 61 20 73 69  6c 6c 79 20 70 61 67 65  |ted a silly page|
00003fc0  20 6e 75 6d 62 65 72 20  6f 72 0d 63 68 61 6e 6e  | number or.chann|
00003fd0  65 6c 20 6e 75 6d 62 65  72 29 20 74 68 65 6e 20  |el number) then |
00003fe0  74 68 65 20 66 69 72 73  74 20 62 79 74 65 20 6f  |the first byte o|
00003ff0  66 20 74 68 65 20 72 65  70 6c 79 20 64 61 74 61  |f the reply data|
00004000  20 77 69 6c 6c 20 62 65  20 61 6e 20 65 72 72 6f  | will be an erro|
00004010  72 0d 6e 75 6d 62 65 72  20 61 6e 64 20 74 68 65  |r.number and the|
00004020  20 66 6f 6c 6c 6f 77 69  6e 67 20 62 79 74 65 73  | following bytes|
00004030  20 77 69 6c 6c 20 62 65  20 61 6e 20 65 72 72 6f  | will be an erro|
00004040  72 20 6d 65 73 73 61 67  65 20 74 65 72 6d 69 6e  |r message termin|
00004050  61 74 65 64 20 62 79 20  61 0d 63 61 72 72 69 61  |ated by a.carria|
00004060  67 65 20 72 65 74 75 72  6e 2e 0d 0d 62 29 20 49  |ge return...b) I|
00004070  66 20 6e 6f 20 65 72 72  6f 72 20 68 61 73 20 6f  |f no error has o|
00004080  63 63 75 72 72 65 64 20  74 68 65 20 66 69 72 73  |ccurred the firs|
00004090  74 20 62 79 74 65 20 6f  66 20 74 68 65 20 72 65  |t byte of the re|
000040a0  70 6c 79 20 64 61 74 61  20 77 69 6c 6c 20 62 65  |ply data will be|
000040b0  20 7a 65 72 6f 0d 61 6e  64 20 74 68 65 20 73 75  | zero.and the su|
000040c0  62 73 65 71 75 65 6e 74  20 62 79 74 65 73 20 77  |bsequent bytes w|
000040d0  69 6c 6c 20 62 65 20 64  65 70 65 6e 64 65 6e 74  |ill be dependent|
000040e0  20 6f 6e 20 74 68 65 20  63 61 6c 6c 20 69 73 73  | on the call iss|
000040f0  75 65 64 2e 0d 0d 72 65  61 64 20 74 65 6c 65 73  |ued...read teles|
00004100  65 72 76 65 72 20 76 65  72 73 69 6f 6e 20 6e 75  |erver version nu|
00004110  6d 62 65 72 0d 0d 31 2f  63 6c 69 65 6e 74 20 74  |mber..1/client t|
00004120  6f 20 74 65 6c 65 73 65  72 76 65 72 0d 0d 70 6f  |o teleserver..po|
00004130  72 74 20 20 20 20 20 20  20 20 20 20 26 42 33 0d  |rt          &B3.|
00004140  63 6f 6e 74 72 6f 6c 20  62 79 74 65 20 20 26 38  |control byte  &8|
00004150  30 0d 64 61 74 61 20 20  20 20 20 20 20 20 20 20  |0.data          |
00004160  6e 69 6c 0d 0d 32 2f 74  65 6c 65 73 65 72 76 65  |nil..2/teleserve|
00004170  72 20 74 6f 20 63 6c 69  65 6e 74 0d 0d 70 6f 72  |r to client..por|
00004180  74 20 20 20 20 20 20 20  20 20 20 26 42 32 0d 63  |t          &B2.c|
00004190  6f 6e 74 72 6f 6c 20 62  79 74 65 20 20 26 38 30  |ontrol byte  &80|
000041a0  0d 64 61 74 61 20 20 20  20 20 20 20 20 20 20 30  |.data          0|
000041b0  20 6f 72 20 65 72 72 6f  72 20 6e 75 6d 62 65 72  | or error number|
000041c0  0d 64 61 74 61 2b 31 20  20 20 20 20 20 20 20 76  |.data+1        v|
000041d0  65 72 73 69 6f 6e 20 6e  75 6d 62 65 72 20 61 73  |ersion number as|
000041e0  20 63 68 61 72 61 63 74  65 72 20 73 74 72 69 6e  | character strin|
000041f0  67 20 74 65 72 6d 69 6e  61 74 65 64 20 62 79 20  |g terminated by |
00004200  63 2f 72 0d 0d 69 73 73  75 65 20 70 61 67 65 20  |c/r..issue page |
00004210  72 65 71 75 65 73 74 0d  0d 31 2f 63 6c 69 65 6e  |request..1/clien|
00004220  74 20 74 6f 20 74 65 6c  65 73 65 72 76 65 72 0d  |t to teleserver.|
00004230  0d 70 6f 72 74 20 20 20  20 20 20 20 20 20 20 26  |.port          &|
00004240  42 33 0d 63 6f 6e 74 72  6f 6c 20 62 79 74 65 20  |B3.control byte |
00004250  20 26 38 31 0d 64 61 74  61 20 20 20 20 20 20 20  | &81.data       |
00004260  20 20 20 63 68 61 6e 6e  65 6c 20 6e 75 6d 62 65  |   channel numbe|
00004270  72 20 69 6e 20 41 53 43  49 49 0d 64 61 74 61 2b  |r in ASCII.data+|
00004280  31 2d 64 61 74 61 2b 33  20 70 61 67 65 20 6e 75  |1-data+3 page nu|
00004290  6d 62 65 72 20 69 6e 20  41 53 43 49 49 0d 0d 32  |mber in ASCII..2|
000042a0  2f 74 65 6c 65 73 65 72  76 65 72 20 74 6f 20 63  |/teleserver to c|
000042b0  6c 69 65 6e 74 0d 0d 70  6f 72 74 20 20 20 20 20  |lient..port     |
000042c0  20 20 20 20 20 26 42 32  0d 63 6f 6e 74 72 6f 6c  |     &B2.control|
000042d0  20 62 79 74 65 20 20 26  38 31 0d 64 61 74 61 20  | byte  &81.data |
000042e0  20 20 20 20 20 20 20 20  20 30 20 6f 72 20 65 72  |         0 or er|
000042f0  72 6f 72 20 6e 75 6d 62  65 72 0d 64 61 74 61 2b  |ror number.data+|
00004300  31 20 20 20 20 20 20 20  20 70 6f 73 69 74 69 6f  |1        positio|
00004310  6e 20 69 6e 20 71 75 65  75 65 0d 0d 63 61 6e 63  |n in queue..canc|
00004320  65 6c 20 70 61 67 65 20  72 65 71 75 65 73 74 0d  |el page request.|
00004330  0d 31 2f 63 6c 69 65 6e  74 20 74 6f 20 74 65 6c  |.1/client to tel|
00004340  65 73 65 72 76 65 72 0d  0d 70 6f 72 74 20 20 20  |eserver..port   |
00004350  20 20 20 20 20 20 20 26  42 33 0d 63 6f 6e 74 72  |       &B3.contr|
00004360  6f 6c 20 62 79 74 65 20  20 26 38 32 0d 64 61 74  |ol byte  &82.dat|
00004370  61 20 20 20 20 20 20 20  20 20 20 6e 69 6c 0d 0d  |a          nil..|
00004380  32 2f 74 65 6c 65 73 65  72 76 65 72 20 74 6f 20  |2/teleserver to |
00004390  63 6c 69 65 6e 74 0d 0d  70 6f 72 74 20 20 20 20  |client..port    |
000043a0  20 20 20 20 20 20 26 42  32 0d 63 6f 6e 74 72 6f  |      &B2.contro|
000043b0  6c 20 62 79 74 65 20 20  26 38 32 0d 64 61 74 61  |l byte  &82.data|
000043c0  20 20 20 20 20 20 20 20  20 20 30 20 6f 72 20 65  |          0 or e|
000043d0  72 72 6f 72 20 6e 75 6d  62 65 72 0d 64 61 74 61  |rror number.data|
000043e0  2b 31 20 20 20 20 20 20  20 20 6e 69 6c 0d 0d 72  |+1        nil..r|
000043f0  65 61 64 20 6d 61 78 20  75 73 65 72 73 20 70 65  |ead max users pe|
00004400  72 20 63 68 61 6e 6e 65  6c 0d 0d 31 2f 63 6c 69  |r channel..1/cli|
00004410  65 6e 74 20 74 6f 20 74  65 6c 65 73 65 72 76 65  |ent to teleserve|
00004420  72 0d 0d 70 6f 72 74 20  20 20 20 20 20 20 20 20  |r..port         |
00004430  20 26 42 33 0d 63 6f 6e  74 72 6f 6c 20 62 79 74  | &B3.control byt|
00004440  65 20 20 26 38 33 0d 64  61 74 61 20 20 20 20 20  |e  &83.data     |
00004450  20 20 20 20 20 6e 69 6c  0d 0d 32 2f 74 65 6c 65  |     nil..2/tele|
00004460  73 65 72 76 65 72 20 74  6f 20 63 6c 69 65 6e 74  |server to client|
00004470  0d 0d 70 6f 72 74 20 20  20 20 20 20 20 20 20 20  |..port          |
00004480  26 42 32 0d 63 6f 6e 74  72 6f 6c 20 62 79 74 65  |&B2.control byte|
00004490  20 20 26 38 33 0d 64 61  74 61 20 20 20 20 20 20  |  &83.data      |
000044a0  20 20 20 20 30 20 6f 72  20 65 72 72 6f 72 20 6e  |    0 or error n|
000044b0  75 6d 62 65 72 0d 64 61  74 61 2b 31 20 20 20 20  |umber.data+1    |
000044c0  20 20 20 20 6d 61 78 20  75 73 65 72 73 0d 0d 72  |    max users..r|
000044d0  65 61 64 20 64 61 74 65  20 61 6e 64 20 74 69 6d  |ead date and tim|
000044e0  65 0d 0d 31 2f 63 6c 69  65 6e 74 20 74 6f 20 74  |e..1/client to t|
000044f0  65 6c 65 73 65 72 76 65  72 0d 0d 70 6f 72 74 20  |eleserver..port |
00004500  20 20 20 20 20 20 20 20  20 26 42 33 0d 63 6f 6e  |         &B3.con|
00004510  74 72 6f 6c 20 62 79 74  65 20 20 26 38 34 0d 64  |trol byte  &84.d|
00004520  61 74 61 20 20 20 20 20  20 20 20 20 20 6e 69 6c  |ata          nil|
00004530  0d 0d 32 2f 74 65 6c 65  73 65 72 76 65 72 20 74  |..2/teleserver t|
00004540  6f 20 63 6c 69 65 6e 74  0d 0d 70 6f 72 74 20 20  |o client..port  |
00004550  20 20 20 20 20 20 20 20  26 42 32 0d 63 6f 6e 74  |        &B2.cont|
00004560  72 6f 6c 20 62 79 74 65  20 20 26 38 34 0d 64 61  |rol byte  &84.da|
00004570  74 61 20 20 20 20 20 20  20 20 20 20 30 20 6f 72  |ta          0 or|
00004580  20 65 72 72 6f 72 20 6e  75 6d 62 65 72 0d 64 61  | error number.da|
00004590  74 61 2b 31 20 20 20 20  20 20 20 20 74 69 6d 65  |ta+1        time|
000045a0  20 61 6e 64 20 64 61 74  65 20 69 6e 20 41 53 43  | and date in ASC|
000045b0  49 49 20 28 48 48 3a 4d  4d 3a 53 53 44 44 2f 4d  |II (HH:MM:SSDD/M|
000045c0  4d 2f 59 59 59 59 29 0d  0d 6c 6f 67 6f 66 66 0d  |M/YYYY)..logoff.|
000045d0  0d 31 2f 63 6c 69 65 6e  74 20 74 6f 20 74 65 6c  |.1/client to tel|
000045e0  65 73 65 72 76 65 72 0d  0d 70 6f 72 74 20 20 20  |eserver..port   |
000045f0  20 20 20 20 20 20 20 26  42 33 0d 63 6f 6e 74 72  |       &B3.contr|
00004600  6f 6c 20 62 79 74 65 20  20 26 38 35 0d 64 61 74  |ol byte  &85.dat|
00004610  61 20 20 20 20 20 20 20  20 20 20 6e 69 6c 0d 0d  |a          nil..|
00004620  32 2f 74 65 6c 65 73 65  72 76 65 72 20 74 6f 20  |2/teleserver to |
00004630  63 6c 69 65 6e 74 0d 0d  70 6f 72 74 20 20 20 20  |client..port    |
00004640  20 20 20 20 20 20 26 42  32 0d 63 6f 6e 74 72 6f  |      &B2.contro|
00004650  6c 20 62 79 74 65 20 20  26 38 35 0d 64 61 74 61  |l byte  &85.data|
00004660  20 20 20 20 20 20 20 20  20 20 30 20 6f 72 20 65  |          0 or e|
00004670  72 72 6f 72 20 6e 75 6d  62 65 72 0d 64 61 74 61  |rror number.data|
00004680  2b 31 20 20 20 20 20 20  20 20 6e 69 6c 0d 0d 70  |+1        nil..p|
00004690  61 67 65 20 72 65 71 75  65 73 74 20 77 69 74 68  |age request with|
000046a0  20 74 69 6d 65 20 64 65  6c 61 79 0d 0d 31 2f 63  | time delay..1/c|
000046b0  6c 69 65 6e 74 20 74 6f  20 74 65 6c 65 73 65 72  |lient to teleser|
000046c0  76 65 72 0d 0d 70 6f 72  74 20 20 20 20 20 20 20  |ver..port       |
000046d0  20 20 20 26 42 33 0d 63  6f 6e 74 72 6f 6c 20 62  |   &B3.control b|
000046e0  79 74 65 20 20 26 38 36  0d 64 61 74 61 20 20 20  |yte  &86.data   |
000046f0  20 20 20 20 20 20 20 63  68 61 6e 6e 65 6c 20 6e  |       channel n|
00004700  75 6d 62 65 72 20 69 6e  20 41 53 43 49 49 0d 64  |umber in ASCII.d|
00004710  61 74 61 2b 31 2d 64 61  74 61 2b 33 20 70 61 67  |ata+1-data+3 pag|
00004720  65 20 6e 75 6d 62 65 72  20 69 6e 20 41 53 43 49  |e number in ASCI|
00004730  49 0d 0d 32 2f 74 65 6c  65 73 65 72 76 65 72 20  |I..2/teleserver |
00004740  74 6f 20 63 6c 69 65 6e  74 0d 0d 70 6f 72 74 20  |to client..port |
00004750  20 20 20 20 20 20 20 20  20 26 42 32 0d 63 6f 6e  |         &B2.con|
00004760  74 72 6f 6c 20 62 79 74  65 20 20 26 38 36 0d 64  |trol byte  &86.d|
00004770  61 74 61 20 20 20 20 20  20 20 20 20 20 30 20 6f  |ata          0 o|
00004780  72 20 65 72 72 6f 72 20  6e 75 6d 62 65 72 0d 64  |r error number.d|
00004790  61 74 61 2b 31 20 20 20  20 20 20 20 20 70 6f 73  |ata+1        pos|
000047a0  69 74 69 6f 6e 20 69 6e  20 71 75 65 75 65 0d 0d  |ition in queue..|
000047b0  72 65 71 75 65 73 74 20  70 6f 72 74 20 76 61 6c  |request port val|
000047c0  75 65 0d 0d 31 2f 63 6c  69 65 6e 74 20 74 6f 20  |ue..1/client to |
000047d0  74 65 6c 65 73 65 72 76  65 72 0d 0d 70 6f 72 74  |teleserver..port|
000047e0  20 20 20 20 20 20 20 20  20 20 26 42 33 0d 63 6f  |          &B3.co|
000047f0  6e 74 72 6f 6c 20 62 79  74 65 20 20 26 38 37 0d  |ntrol byte  &87.|
00004800  64 61 74 61 20 20 20 20  20 20 20 20 20 20 70 6f  |data          po|
00004810  72 74 20 6e 75 6d 62 65  72 20 69 6e 20 72 61 6e  |rt number in ran|
00004820  67 65 20 30 20 74 6f 20  33 0d 0d 32 2f 74 65 6c  |ge 0 to 3..2/tel|
00004830  65 73 65 72 76 65 72 20  74 6f 20 63 6c 69 65 6e  |eserver to clien|
00004840  74 0d 0d 70 6f 72 74 20  20 20 20 20 20 20 20 20  |t..port         |
00004850  20 26 42 32 0d 63 6f 6e  74 72 6f 6c 20 62 79 74  | &B2.control byt|
00004860  65 20 20 26 38 37 0d 64  61 74 61 20 20 20 20 20  |e  &87.data     |
00004870  20 20 20 20 20 30 20 6f  72 20 65 72 72 6f 72 20  |     0 or error |
00004880  6e 75 6d 62 65 72 0d 64  61 74 61 2b 31 2d 64 61  |number.data+1-da|
00004890  74 61 2b 32 20 70 6f 72  74 20 76 61 6c 75 65 0d  |ta+2 port value.|
000048a0  0d 52 65 63 65 70 74 69  6f 6e 20 6f 66 20 74 68  |.Reception of th|
000048b0  65 20 74 65 6c 65 74 65  78 74 20 70 61 67 65 0d  |e teletext page.|
000048c0  0d 54 68 65 20 74 65 6c  65 73 65 72 76 65 72 20  |.The teleserver |
000048d0  73 65 6e 64 73 20 74 68  65 20 70 61 67 65 20 6f  |sends the page o|
000048e0  6e 20 70 6f 72 74 20 26  42 34 2e 20 54 68 65 20  |n port &B4. The |
000048f0  63 6f 6e 74 72 6f 6c 20  62 79 74 65 20 77 69 6c  |control byte wil|
00004900  6c 20 62 65 20 26 38 30  20 69 66 0d 6e 6f 20 65  |l be &80 if.no e|
00004910  72 72 6f 72 20 68 61 73  20 6f 63 63 75 72 72 65  |rror has occurre|
00004920  64 20 6f 74 68 65 72 77  69 73 65 20 74 68 65 20  |d otherwise the |
00004930  63 6f 6e 74 72 6f 6c 20  62 79 74 65 20 77 69 6c  |control byte wil|
00004940  6c 20 62 65 20 26 38 31  2e 20 54 68 65 20 6f 6e  |l be &81. The on|
00004950  6c 79 0d 65 72 72 6f 72  20 74 68 61 74 20 77 69  |ly.error that wi|
00004960  6c 6c 20 6f 63 63 75 72  20 77 69 6c 6c 20 62 65  |ll occur will be|
00004970  20 61 20 27 54 69 6d 65  64 20 6f 75 74 27 20 65  | a 'Timed out' e|
00004980  72 72 6f 72 20 69 65 20  79 6f 75 20 68 61 76 65  |rror ie you have|
00004990  20 70 72 6f 62 61 62 6c  79 0d 61 73 6b 65 64 20  | probably.asked |
000049a0  66 6f 72 20 61 20 6e 6f  6e 2d 65 78 69 73 74 65  |for a non-existe|
000049b0  6e 74 20 70 61 67 65 2e  20 54 68 65 20 64 61 74  |nt page. The dat|
000049c0  61 20 69 6e 20 74 68 65  20 72 65 63 65 69 76 65  |a in the receive|
000049d0  20 62 6c 6f 63 6b 20 62  75 66 66 65 72 20 77 69  | block buffer wi|
000049e0  6c 6c 0d 62 65 20 74 68  65 20 70 61 67 65 20 72  |ll.be the page r|
000049f0  65 71 75 65 73 74 65 64  20 69 66 20 74 68 65 72  |equested if ther|
00004a00  65 20 69 73 20 6e 6f 20  65 72 72 6f 72 2c 20 6f  |e is no error, o|
00004a10  74 68 65 72 77 69 73 65  20 74 68 65 20 64 61 74  |therwise the dat|
00004a20  61 20 77 69 6c 6c 20 62  65 20 61 6e 0d 65 72 72  |a will be an.err|
00004a30  6f 72 20 6d 65 73 73 61  67 65 20 74 65 72 6d 69  |or message termi|
00004a40  6e 61 74 65 64 20 62 79  20 61 20 63 61 72 72 69  |nated by a carri|
00004a50  61 67 65 20 72 65 74 75  72 6e 2e 49 66 20 79 6f  |age return.If yo|
00004a60  75 20 73 75 63 63 65 73  73 66 75 6c 6c 79 20 72  |u successfully r|
00004a70  65 63 65 69 76 65 0d 61  20 70 61 67 65 20 74 68  |eceive.a page th|
00004a80  65 6e 20 6c 6f 63 61 74  69 6f 6e 73 20 26 33 46  |en locations &3F|
00004a90  45 20 61 6e 64 20 26 33  46 46 20 69 6e 74 6f 20  |E and &3FF into |
00004aa0  74 68 65 20 72 65 63 65  69 76 65 20 62 6c 6f 63  |the receive bloc|
00004ab0  6b 20 62 75 66 66 65 72  20 77 69 6c 6c 0d 63 6f  |k buffer will.co|
00004ac0  6e 74 61 69 6e 20 74 68  65 20 73 75 62 20 70 61  |ntain the sub pa|
00004ad0  67 65 20 6e 75 6d 62 65  72 20 69 6e 20 42 43 44  |ge number in BCD|
00004ae0  20 66 6f 72 6d 61 74 2e  20 26 33 46 45 20 63 6f  | format. &3FE co|
00004af0  6e 74 61 69 6e 73 20 74  68 65 20 68 69 2d 62 79  |ntains the hi-by|
00004b00  74 65 20 61 6e 64 0d 26  33 46 46 20 63 6f 6e 74  |te and.&3FF cont|
00004b10  61 69 6e 73 20 74 68 65  20 6c 6f 2d 62 79 74 65  |ains the lo-byte|
00004b20  0d 0d 20 20 20 20 20 3d  3d 3d 3d 3d 3d 3d 3d 3d  |..     =========|
00004b30  3d 3d 3d 3d 3d 3d 3d 3d  3d 3d 3d 3d 3d 3d 3d 3d  |================|
*
00004b50  3d 3d 3d 3d 3d 3d 3d 3d  3d 3d 3d 3d 3d 3d 3d 0d  |===============.|
00004b60  0d 45 52 52 4f 52 20 4e  55 4d 42 45 52 53 0d 0d  |.ERROR NUMBERS..|
00004b70  50 6f 73 73 69 62 6c 65  20 65 72 72 6f 72 20 6e  |Possible error n|
00004b80  75 6d 62 65 72 73 20 61  72 65 3a 0d 0d 31 20 20  |umbers are:..1  |
00004b90  42 61 64 20 70 61 67 65  20 6e 75 6d 62 65 72 0d  |Bad page number.|
00004ba0  32 20 20 42 61 64 20 63  68 61 6e 6e 65 6c 0d 33  |2  Bad channel.3|
00004bb0  20 20 43 68 61 6e 6e 65  6c 20 62 75 73 79 0d 34  |  Channel busy.4|
00004bc0  20 20 54 69 6d 65 20 75  6e 61 76 61 69 6c 61 62  |  Time unavailab|
00004bd0  6c 65 0d 35 20 20 42 61  64 20 70 6f 72 74 0d 0d  |le.5  Bad port..|
00004be0  49 66 20 61 6e 20 65 72  72 6f 72 20 69 73 20 72  |If an error is r|
00004bf0  65 63 65 69 76 65 64 20  74 68 65 6e 20 61 6e 20  |eceived then an |
00004c00  65 72 72 6f 72 20 6d 65  73 73 61 67 65 20 74 65  |error message te|
00004c10  72 6d 69 6e 61 74 65 64  20 62 79 20 61 20 63 61  |rminated by a ca|
00004c20  72 72 69 61 67 65 0d 72  65 74 75 72 6e 20 77 69  |rriage.return wi|
00004c30  6c 6c 20 62 65 20 72 65  74 75 72 6e 65 64 20 69  |ll be returned i|
00004c40  6e 20 64 61 74 61 2b 31  2e 0d 0d 54 68 65 20 53  |n data+1...The S|
00004c50  45 52 56 45 52 27 73 20  72 65 63 65 69 76 65 20  |ERVER's receive |
00004c60  62 75 66 66 65 72 20 69  73 20 26 35 30 20 62 79  |buffer is &50 by|
00004c70  74 65 73 2e 0d 0d 54 68  65 20 53 45 52 56 45 52  |tes...The SERVER|
00004c80  20 74 72 61 6e 73 6d 69  74 73 20 61 20 62 6c 6f  | transmits a blo|
00004c90  63 6b 20 6f 66 20 26 34  30 30 20 62 79 74 65 73  |ck of &400 bytes|
00004ca0  20 6f 6e 20 70 6f 72 74  20 26 42 33 20 77 68 65  | on port &B3 whe|
00004cb0  6e 20 74 72 61 6e 73 6d  69 74 74 69 6e 67 20 61  |n transmitting a|
00004cc0  0d 70 61 67 65 2e 20 49  74 20 74 72 61 6e 73 6d  |.page. It transm|
00004cd0  69 74 73 20 61 20 62 6c  6f 63 6b 20 6f 66 20 26  |its a block of &|
00004ce0  32 30 20 62 79 74 65 73  20 69 6e 20 61 6c 6c 20  |20 bytes in all |
00004cf0  6f 74 68 65 72 20 63 61  73 65 73 2e 0d 0d 20 20  |other cases...  |
00004d00  20 20 20 20 20 20 20 20  20 2d 2d 2d 2d 2d 2d 2d  |         -------|
00004d10  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
00004d20  2d 2d 2d 2d 2d 2d 2d 2d  0d 0d 4c 6f 67 67 69 6e  |--------..Loggin|
00004d30  67 20 6f 6e 20 74 6f 20  74 68 65 20 73 65 72 76  |g on to the serv|
00004d40  65 72 0d 0d 43 6c 69 65  6e 74 20 74 6f 20 53 65  |er..Client to Se|
00004d50  72 76 65 72 0d 0d 70 6f  72 74 20 20 20 20 20 20  |rver..port      |
00004d60  20 20 20 20 20 20 26 42  30 0d 0d 63 6f 6e 74 72  |      &B0..contr|
00004d70  6f 6c 20 62 79 74 65 20  20 20 20 26 38 30 0d 0d  |ol byte    &80..|
00004d80  44 61 74 61 20 20 20 20  20 20 20 20 20 20 20 20  |Data            |
00004d90  54 68 65 20 73 74 72 69  6e 67 20 54 45 4c 45 54  |The string TELET|
00004da0  45 58 54 20 61 73 20 73  74 61 6e 64 61 72 64 20  |EXT as standard |
00004db0  41 53 43 49 49 20 28 74  68 65 20 73 65 72 76 65  |ASCII (the serve|
00004dc0  72 20 74 79 70 65 29 0d  0d 53 65 72 76 65 72 20  |r type)..Server |
00004dd0  74 6f 20 43 6c 69 65 6e  74 0d 0d 70 6f 72 74 20  |to Client..port |
00004de0  20 20 20 20 20 20 20 20  20 20 20 26 42 31 0d 0d  |           &B1..|
00004df0  63 6f 6e 74 72 6f 6c 20  62 79 74 65 20 20 20 20  |control byte    |
00004e00  26 38 30 0d 0d 44 61 74  61 20 20 20 20 20 20 20  |&80..Data       |
00004e10  20 20 20 20 20 30 20 6f  72 20 65 72 72 6f 72 20  |     0 or error |
00004e20  6e 75 6d 62 65 72 0d 44  61 74 61 2b 31 20 20 20  |number.Data+1   |
00004e30  20 20 20 20 20 20 20 62  61 73 65 20 70 6f 72 74  |       base port|
00004e40  20 6e 75 6d 62 65 72 20  66 6f 72 20 66 75 72 74  | number for furt|
00004e50  68 65 72 20 65 78 63 68  61 6e 67 65 73 0d 44 61  |her exchanges.Da|
00004e60  74 61 2b 32 20 20 20 20  20 20 20 20 20 20 62 69  |ta+2          bi|
00004e70  6e 61 72 79 20 76 65 72  69 73 6f 6e 20 6e 75 6d  |nary verison num|
00004e80  62 65 72 20 6f 66 20 74  68 65 20 73 65 72 76 65  |ber of the serve|
00004e90  72 20 73 6f 66 74 77 61  72 65 0d 44 61 74 61 2b  |r software.Data+|
00004ea0  33 20 20 20 20 20 20 20  20 20 20 53 65 72 76 65  |3          Serve|
00004eb0  72 20 74 79 70 65 20 28  38 20 63 68 61 72 73 2c  |r type (8 chars,|
00004ec0  20 66 6f 72 6d 61 74 20  61 73 20 66 6f 72 20 43  | format as for C|
00004ed0  6c 69 65 6e 74 20 74 6f  20 53 65 72 76 65 72 29  |lient to Server)|
00004ee0  0d 44 61 74 61 2b 31 31  20 20 20 20 20 20 20 20  |.Data+11        |
00004ef0  20 4c 65 6e 67 74 68 20  6f 66 20 73 65 72 76 65  | Length of serve|
00004f00  72 20 6e 61 6d 65 20 28  3d 30 20 69 66 20 6e 6f  |r name (=0 if no|
00004f10  74 20 70 72 65 73 65 6e  74 29 0d 44 61 74 61 2b  |t present).Data+|
00004f20  31 32 20 20 20 20 20 20  20 20 20 53 65 72 76 65  |12         Serve|
00004f30  72 20 6e 61 6d 65 20 28  6f 70 74 69 6f 6e 61 6c  |r name (optional|
00004f40  29 0d 44 61 74 61 2b 31  32 2b 4e 61 6d 65 4c 65  |).Data+12+NameLe|
00004f50  6e 20 53 65 72 76 65 72  20 74 79 70 65 20 64 65  |n Server type de|
00004f60  70 65 6e 64 61 6e 74 20  4f 52 20 65 72 72 6f 72  |pendant OR error|
00004f70  20 73 74 72 69 6e 67 0d  0d 54 68 65 20 6c 65 6e  | string..The len|
00004f80  67 74 68 20 6f 66 20 74  68 65 20 72 65 63 65 69  |gth of the recei|
00004f90  76 65 20 62 6c 6f 63 6b  20 62 75 66 66 65 72 20  |ve block buffer |
00004fa0  6e 65 65 64 65 64 20 74  6f 20 72 65 63 65 69 76  |needed to receiv|
00004fb0  65 20 74 68 69 73 20 72  65 73 70 6f 6e 73 65 0d  |e this response.|
00004fc0  66 72 6f 6d 20 74 68 65  20 73 65 72 76 65 72 20  |from the server |
00004fd0  77 69 6c 6c 20 6e 6f 74  20 65 78 63 65 65 64 20  |will not exceed |
00004fe0  26 32 30 20 62 79 74 65  73 2e 20 0d              |&20 bytes. .|
00004fec
04-06-88/MANUAL.m0
04-06-88/MANUAL.m1
04-06-88/MANUAL.m2
04-06-88/MANUAL.m4
04-06-88/MANUAL.m5