Home » CEEFAX disks » telesoftware15.adl » 21-02-89/T\TTX07
21-02-89/T\TTX07
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 » telesoftware15.adl |
| Filename: | 21-02-89/T\TTX07 |
| Read OK: | ✔ |
| File size: | 4B5A bytes |
| Load address: | 0000 |
| Exec address: | FFFFFFFF |
File contents
Interfacing with the Acorn Teletext Adaptor - by - Gordon Horsington
--------------------------------------------------------------------
Module 7. The Teletext Independent Data Packets, Channels 8 to 15
-----------------------------------------------------------------
Packets 30 and 31 have been set aside for page independent data. These
packets are not associated with any Teletext magazine or page and can be
transmitted at any time. The MRAG of these packets is used to define 15
independent data channels. Because these packets are not associated with
paged data in any way the term magazine is not used with packets 30 and
31. The channel number is the (de-hammed) first byte of the MRAG. Channels
0 to 7 are equivalent to packet 30, magazines 0 to 7 and channels 8 to 15
are equivalent to packet 31, magazines 0 to 7. It is still necessary to
decode the MRAG to identify the packet as being either 30 or 31, but a
short-cut may be to check the second MRAG byte which will always decode to
15 for independent channels.
Channels 8 to 11 are used to broadcast a secure data communications
channel to all points of the British Isles simultaneously. This service is
provided by BBC Enterprises and is known as Datacast. Datacast is used by
many organisations including the London Stock Exchange, Coral Racing, and
Post Office Nu-Media (who are providing airport type LED display signs in
Post Offices around the country). All Datacast users are encouraged to
encrypt their data, and most do. Those that do not have data streams that
contain control sequences for specific hardware that are meaningless and
of no value to the outside observer.
There is a test message on Datacast channel 11, address 7 which can be
received on a BBC micro and the demonstration program associated with this
module is used to read and display this test message.
The table in figure 1 shows the complete format of a BBC Datacast packet,
and also shows where the demonstration program stores the data it reads.
The byte number in the left hand column of figure 1 shows the order in
which the data are stored in the adaptor. The next column shows whether or
not the data are hamming coded (hc = hamming coded, blank = not coded),
the third column gives a brief description of the byte, the next column
shows where the byte is stored by the program DATCAST, and the last column
describes the format in which the program DATCAST stores the data (blank =
stored as read).
+--------+----+---------------------------+------------------+-----------+
|byte no |code| description | stored in | format |
+--------+----+---------------------------+------------------+-----------+
| 1 | | clock run-in | (not read) | |
| 2 | | clock run-in | (not read) | |
| 3 | | framing code | (not stored) | |
| 4 | hc | channel number | magazine | de-hammed |
| 4 | hc | bit 0 of pack no in bit 3 | packet bit 0 | de-hammed |
| 5 | hc | packet number bits 1-4 | packet bits 1-4 | de-hammed |
| 6 | hc | format type (FT) | buff?0 | de-hammed |
| 7 | hc | address length (AL) | buff?1 | de-hammed |
| 7-7+AL | hc | packet address bytes | buff?2-Buff?2+AL | de-hammed |
|see text| | repeat indicator (RI) | see text | |
|see text| | continuity indicator (CI) | see text | |
|see text| | data length (DL) | see text | |
|see text| | user data bytes | see text | |
|see text| | two byte CRC | see text | |
+--------+----+---------------------------+------------------+-----------+
Figure 1. The data transmitted in the Datacast packets
------------------------------------------------------
The first 5 bytes of the Datacast packet are in the same format as the
first 5 bytes of all Teletext packets. They are therefore read and decoded
in the same way as all packets. In the example program the magazine number
is stored in the memory location labelled 'magazine' and the packet number
in the memory location labelled 'packet'. The Datacast packets have a
magazine number in the range from 0 to 3 and a packet number 31, although
these terms are not usually applied to the page independent packets.
The hamming coded sixth byte is the Format Type (FT) byte. This byte
controls the interpretation of subsequent bytes in the Datacast packet.
The de-hammed FT byte indicates the use of the bytes which follow it in
the packet. The bits of the FT byte have the following interpretation:
bit 0 is clear for a type A format, otherwise the remaining three bits are
not defined.
bit 1 is set if the packet repeat facility (RI byte) is in use, otherwise
it is clear.
bit 2 is set if the continuity indicator (CI byte) is explicit, otherwise
it is implicit.
bit 3 is set if the data length indicator (DL byte) is in use, otherwise
it is clear.
The seventh byte is the address length (AL). The first three bits of the
de-hammed AL indicate how many hamming coded bytes following the AL byte
are allocated to the packet address. The minimum is none, giving no packet
address, and the maximum is six, giving a 24 bit address. The test message
has an address length of 1. That address is 7 which stored in the eighth
byte, a packet address byte.
The number of packet address bytes is indicated by the AL byte. A Datacast
channel is defined by its data channel group (first byte of the MRAG), its
address length (AL) and its address bytes. The test message is on channel
11 (ie. magazine 3) address 7 (AL = 1, AL+1 = 7).
The RI byte is only present if the packet repeat facility bit is set in
the FT byte (bit 1, byte 6). This facility is used if the particular
packet is being repeated. The first four bits are clear when a new packet
is first transmitted and it is incremented modulo-16 on subsequent
repeats. The next three bits are not defined. The last bit is clear if no
further repeats are to be expected.
The CI byte is only present if an explicit continuity indicator has been
signalled by bit 2 of the FT byte. This byte is incremented modulo-256
with each new packet of the same data channel. It does not change during
repeated transmission of the same packet.
The DL byte is only present if bit 3 of the FT is set. The DL is a 6 bit
number defining the number of 8 bit bytes intended to be available to the
user. The two most significant bits of the DL byte are not defined.
The remaining bytes in the packet, except the last two, carry the user
data. There are generally between 28 and 36 user data byes in a type A
data packet. There is no restriction on the coding of the user data bytes
but packets with all nulls or all &FFs can cause reception problems with
older hardware, such as the Acorn adaptor.
The last two bytes are a 16 bit cyclic redundancy check (CRC) on the CI
byte (if present) together with the user data bytes. If the CI byte is not
used the CRC is modified accordingly. You should refer to the BBC Datacast
specification if you need to use the CRC. The demonstration program
ignores the CRC.
Chain the program DATCAST and select either BBC 1 or BBC 2. Both BBC 1 and
BBC 2 transmit a similar test message, part of which is shown in figure 2.
The test message also contains various other tests including runs of
Delete and Null characters. DATCAST only prints the ASCII codes 10, 13,
and 32-126 so that any control codes that might upset your computer are
excluded from the display.
BBC INDEPENDENT DATA LINES
This is a test transmission for BBC datacast.
Datacast uses spare capacity within the CEEFAX
system to provide a transparent data channel
This is originated from a BBC micro. All CRCs should be correct.
There are no repeated packets. The CI byte increments on each packet
The DL byte is in use.
Figure 2. Datacast. Part of data channel 11, address 7.
------------------------------------------------------
At the time of writing, the ITV network has started to broadcast an Air
Call test message on packet 31 which conforms with the World System
Teletext technical specification, and the program DATCAST will show you
the contents of all ITV packet 31s if you select channel 3. Channel 4 and
S4C do not broadcast data in packet 31.
10 REM> DATCAST
20 MODE3
30 DIM mcode &500 :REM: space for machine code
40 PROCmcode :REM: assemble machine code
50 INPUT"TV channel (1-4) = "answer$
60 channel?0=EVAL("&"+LEFT$(answer$,1))+&1B
:REM: TTX enable, Int enable, AFC
70 IF channel?0 < &1C THEN channel?0 = &1C
80 IF channel?0 > &1F THEN channel?0 = &1F
90 CALL mcode
100 END
110 DEFPROCmcode
120 magazine=&70 :REM: magazine number of current page
130 packet=&71 :REM: row number of current packet
140 grabflag=&72 :REM: 0=searching, &80=loaded
150 channel=&73 :REM: TV channel
160 datalen=&74 :REM: datacast data length
170 temp=&75 :REM: temporary store
180 savereg=&FC :REM: interrupt accumulator save register
190 escape=&FF :REM: escape flag
200 irq2v=&206 :REM: irq2 vector
210 ttxcontrol=&FC10 :REM: TTX control register, write only
220 ttxstatus=&FC10 :REM: TTX status register, read only
230 rowreg=&FC11 :REM: TTX row register, write only
240 datareg=&FC12 :REM: TTX data register, read & write
250 statclr=&FC13 :REM: TTX clear status register, read & write
260 oswrch=&FFEE
270 osbyte=&FFF4
280 FOR pass=0 TO 2 STEP 2
290 P%=mcode
300 [ OPT pass
310 LDA #&00
320 STA grabflag \ grabflag = searching
330 LDX irq2v \ load secondary interrupt vector
340 LDY irq2v+1
350 STX oldirq2v \ save secondary interrupt vector
360 STY oldirq2v+1
370 LDX #interrupt MOD 256 \ install new interrupt routine
380 LDY #interrupt DIV 256
390 SEI \ disable interrupts when altering vectors
400 STX irq2v
410 STY irq2v+1
420 CLI \ re-enable interrupts
430 LDA channel \ load (channel number + #&1C)
440 STA ttxcontrol \ enable TTX
450 .mainloop
460 LDA grabflag
470 BPL continue \ branch if searching
480 LDY #&03 \ data starts at byte 3 if no control bytes
490 LDA buffer \ format type
500 AND #&02 \ is repeat indicator in use?
510 BEQ checkci \ branch if not used
520 INY \ increment pointer to start of data
530 .checkci
540 LDA buffer \ format type
550 AND #&04 \ is continuity indicator in use?
560 BEQ checkdl \ branch if not used
570 INY \ increment pointer to start of data
580 .checkdl
590 LDA buffer \ format type
600 AND #&08 \ is data length in use?
610 BEQ loadnumber \ branch if not used
620 LDA buffer,Y \ load data length
630 INY \ increment pointer to start of data
640 AND #&3F \ data length is a 6 bit number
650 STA temp \ number of data bytes
660 TYA \ offset to start of data
670 CLC
680 ADC temp \ add offset to number of data bytes
690 CMP #&26 \ maximum length
700 BCC safenumber
710 .loadnumber
720 LDA #&26
730 .safenumber
740 STA datalen \ last data byte in buffer
750 .printloop
760 LDA buffer,Y \ load data byte
770 AND #&7F \ clear bit 7
780 CMP #&0A \ is this byte a line feed?
790 BEQ printok \ ok to print line feed
800 CMP #&0D \ is this byte a return?
810 BEQ printok \ ok to print return
820 CMP #ASC(" ") \ is it any other control byte?
830 BCC nextprint \ don't print control characters
840 CMP #&7F \ is it delete and backspace?
850 BEQ nextprint \ don't print delete and backspace
860 .printok
870 JSR oswrch \ print byte on screen
880 .nextprint
890 INY \ point offset to next byte
900 CPY datalen \ print to the end of the packet
910 BCC printloop
920 LDA #&00 \ clear grabflag and start
930 STA grabflag \ searching again
940 .continue
950 LDA escape \ poll escape flag
960 BPL mainloop \ loop if escape not pressed
970 LDA #&7E \ decimal 126
980 JSR osbyte \ acknowledge escape
990 LDA #&00
1000 STA ttxcontrol \ disable TTX
1010 LDX oldirq2v \ load original vector
1020 LDY oldirq2v+1
1030 SEI \ disable interrupts when altering vector
1040 STX irq2v \ restore original vector
1050 STY irq2v+1
1060 CLI \ re-enable interrupts
1070 RTS \ return to BASIC
1080 .interrupt
1090 BIT ttxstatus \ poll TTX hardware
1100 BMI ttxinter \ branch if TTX interrupt
1110 JMP (oldirq2v) \ not TTX interrupt
1120 .ttxinter
1130 LDA savereg \ interrupt accumulator save register
1140 PHA \ push interrupt accumulator save register
1150 TXA
1160 PHA \ push X
1170 TYA
1180 PHA \ push Y
1190 LDA grabflag \ is a page ready for display?
1200 BMI clearstatus \ clear status and RTI if page grabbed
1210 CLD \ clear decimal flag
1220 LDY #&00 \ start with row 0
1230 .readttxt
1240 STY rowreg \ try rows 0 to 15
1250 LDA datareg \ load framing code
1260 BEQ emptyrow \ if zero try next row
1270 TYA
1280 PHA \ save row number
1290 JSR readpacket
1300 PLA
1310 TAY \ restore row number
1320 .emptyrow
1330 INY \ increment row number
1340 CPY #&10 \ try rows 0 - 15
1350 BNE readttxt
1360 .clearstatus
1370 LDA #&00
1380 LDY #&0F \ clear 16 rows in adaptor
1390 .clearloop
1400 STY rowreg
1410 STA datareg
1420 DEY
1430 BPL clearloop
1440 STA statclr \ clear status flags before returning
1450 PLA
1460 TAY \ restore Y
1470 PLA
1480 TAX \ restore X
1490 PLA
1500 STA savereg \ restore interrupt accumulator save register
1510 RTI \ return from interrupt
1520 .readpacket
1530 LDY datareg \ read magazine number
1540 LDA hamtable,Y \ de-ham it
1550 BMI return \ stop loading if error
1560 STA magazine \ save magazine number
1570 LDY datareg \ read packet number
1580 LDA hamtable,Y \ de-ham it
1590 BMI return \ stop loading if error
1600 STA packet \ save packet number
1610 LDA magazine \ load magazine number
1620 CMP #&08 \ bit 3 of mag. number is bit 0 of packet
\ number
1630 ROL packet \ 5 bit packet number
1640 AND #&07 \ use only bits 0-2
1650 STA magazine \ 3 bit magazine number
1660 LDA packet
1670 CMP #&1F \ ignore all except packet 31
1680 BNE return
1690 LDA channel \ TV channel
1700 CMP #&1E \ is this ITV?
1710 BCS carryon \ branch if ITV or CH4
1720 LDA magazine \ this must be BBC1 or BBC2
1730 CMP #&03 \ ignore all except channel 11
1740 BNE return
1750 .carryon
1760 LDY #&00 \ read bytes 0 - 2
1770 .first3
1780 LDX datareg \ read byte from adaptor
1790 LDA hamtable,X \ de-hammed
1800 BMI return \ branch if error
1810 STA buffer,Y \ store de-hammed byte in buffer
1820 INY
1830 CPY #&03
1840 BNE first3 \ de-hamm first three bytes
1850 LDA buffer \ load format type
1860 AND #&01 \ is it type "A"
1870 BNE return \ exclude all but type A
1880 LDA channel \ TV channel
1890 CMP #&1E \ is this ITV?
1900 BCS readmore \ branch if ITV or CH4
1910 LDA buffer+1 \ load address length
1920 CMP #&01 \ test channel has a 1 nybble address length
1930 BNE return \ exclude all other address lengths
1940 LDA buffer+2 \ load the address
1950 CMP #&07 \ test channel has address 7
1960 BNE return \ exclude all other addresses
1970 .readmore
1980 LDA datareg \ read byte from adaptor
1990 STA buffer,Y \ store in buffer
2000 INY \ increment index
2010 CPY #&28 \ decimal 40
2020 BNE readmore \ go back for more
2030 LDA #&80 \ decimal 128
2040 STA grabflag \ packet loaded
2050 .return
2060 RTS
2070 .oldirq2v
2080 EQUW &00
2090 .hamtable
2100 EQUD &0101FF01
2110 EQUD &FF0100FF
2120 EQUD &FF0102FF
2130 EQUD &07FFFF0A
2140 EQUD &FF0100FF
2150 EQUD &00FF0000
2160 EQUD &0BFFFF06
2170 EQUD &FF0300FF
2180 EQUD &FF010CFF
2190 EQUD &07FFFF04
2200 EQUD &07FFFF06
2210 EQUD &070707FF
2220 EQUD &05FFFF06
2230 EQUD &FF0D00FF
2240 EQUD &FF060606
2250 EQUD &07FFFF06
2260 EQUD &FF0102FF
2270 EQUD &09FFFF04
2280 EQUD &02FF0202
2290 EQUD &FF0302FF
2300 EQUD &05FFFF08
2310 EQUD &FF0300FF
2320 EQUD &FF0302FF
2330 EQUD &0303FF03
2340 EQUD &05FFFF04
2350 EQUD &FF040404
2360 EQUD &FF0F02FF
2370 EQUD &07FFFF04
2380 EQUD &050505FF
2390 EQUD &05FFFF04
2400 EQUD &05FFFF06
2410 EQUD &FF030EFF
2420 EQUD &FF010CFF
2430 EQUD &09FFFF0A
2440 EQUD &0BFFFF0A
2450 EQUD &FF0A0A0A
2460 EQUD &0BFFFF08
2470 EQUD &FF0D00FF
2480 EQUD &0B0B0BFF
2490 EQUD &0BFFFF0A
2500 EQUD &0CFF0C0C
2510 EQUD &FF0D0CFF
2520 EQUD &FF0F0CFF
2530 EQUD &07FFFF0A
2540 EQUD &FF0D0CFF
2550 EQUD &0D0DFF0D
2560 EQUD &0BFFFF06
2570 EQUD &FF0D0EFF
2580 EQUD &09FFFF08
2590 EQUD &090909FF
2600 EQUD &FF0F02FF
2610 EQUD &09FFFF0A
2620 EQUD &FF080808
2630 EQUD &09FFFF08
2640 EQUD &0BFFFF08
2650 EQUD &FF030EFF
2660 EQUD &FF0F0CFF
2670 EQUD &09FFFF04
2680 EQUD &0F0FFF0F
2690 EQUD &FF0F0EFF
2700 EQUD &05FFFF08
2710 EQUD &FF0D0EFF
2720 EQUD &FF0F0EFF
2730 EQUD &0EFF0E0E
2740 .buffer
2750 EQUS STRING$(40," ")
2760 ]
2770 NEXT
2780 ENDPROC
00000000 49 6e 74 65 72 66 61 63 69 6e 67 20 77 69 74 68 |Interfacing with|
00000010 20 74 68 65 20 41 63 6f 72 6e 20 54 65 6c 65 74 | the Acorn Telet|
00000020 65 78 74 20 41 64 61 70 74 6f 72 20 2d 20 62 79 |ext Adaptor - by|
00000030 20 2d 20 47 6f 72 64 6f 6e 20 48 6f 72 73 69 6e | - Gordon Horsin|
00000040 67 74 6f 6e 0d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d |gton.-----------|
00000050 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d |----------------|
*
00000080 2d 2d 2d 2d 2d 2d 2d 2d 2d 0d 0d 4d 6f 64 75 6c |---------..Modul|
00000090 65 20 37 2e 20 54 68 65 20 54 65 6c 65 74 65 78 |e 7. The Teletex|
000000a0 74 20 49 6e 64 65 70 65 6e 64 65 6e 74 20 44 61 |t Independent Da|
000000b0 74 61 20 50 61 63 6b 65 74 73 2c 20 43 68 61 6e |ta Packets, Chan|
000000c0 6e 65 6c 73 20 38 20 74 6f 20 31 35 0d 2d 2d 2d |nels 8 to 15.---|
000000d0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d |----------------|
*
00000100 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0d 0d |--------------..|
00000110 50 61 63 6b 65 74 73 20 33 30 20 61 6e 64 20 33 |Packets 30 and 3|
00000120 31 20 68 61 76 65 20 62 65 65 6e 20 73 65 74 20 |1 have been set |
00000130 61 73 69 64 65 20 66 6f 72 20 70 61 67 65 20 69 |aside for page i|
00000140 6e 64 65 70 65 6e 64 65 6e 74 20 64 61 74 61 2e |ndependent data.|
00000150 20 54 68 65 73 65 0d 70 61 63 6b 65 74 73 20 61 | These.packets a|
00000160 72 65 20 6e 6f 74 20 61 73 73 6f 63 69 61 74 65 |re not associate|
00000170 64 20 77 69 74 68 20 61 6e 79 20 54 65 6c 65 74 |d with any Telet|
00000180 65 78 74 20 6d 61 67 61 7a 69 6e 65 20 6f 72 20 |ext magazine or |
00000190 70 61 67 65 20 61 6e 64 20 63 61 6e 20 62 65 0d |page and can be.|
000001a0 74 72 61 6e 73 6d 69 74 74 65 64 20 61 74 20 61 |transmitted at a|
000001b0 6e 79 20 74 69 6d 65 2e 20 54 68 65 20 4d 52 41 |ny time. The MRA|
000001c0 47 20 6f 66 20 74 68 65 73 65 20 70 61 63 6b 65 |G of these packe|
000001d0 74 73 20 69 73 20 75 73 65 64 20 74 6f 20 64 65 |ts is used to de|
000001e0 66 69 6e 65 20 31 35 0d 69 6e 64 65 70 65 6e 64 |fine 15.independ|
000001f0 65 6e 74 20 64 61 74 61 20 63 68 61 6e 6e 65 6c |ent data channel|
00000200 73 2e 20 42 65 63 61 75 73 65 20 74 68 65 73 65 |s. Because these|
00000210 20 70 61 63 6b 65 74 73 20 61 72 65 20 6e 6f 74 | packets are not|
00000220 20 61 73 73 6f 63 69 61 74 65 64 20 77 69 74 68 | associated with|
00000230 0d 70 61 67 65 64 20 64 61 74 61 20 69 6e 20 61 |.paged data in a|
00000240 6e 79 20 77 61 79 20 74 68 65 20 74 65 72 6d 20 |ny way the term |
00000250 6d 61 67 61 7a 69 6e 65 20 69 73 20 6e 6f 74 20 |magazine is not |
00000260 75 73 65 64 20 77 69 74 68 20 70 61 63 6b 65 74 |used with packet|
00000270 73 20 33 30 20 61 6e 64 0d 33 31 2e 20 54 68 65 |s 30 and.31. The|
00000280 20 63 68 61 6e 6e 65 6c 20 6e 75 6d 62 65 72 20 | channel number |
00000290 69 73 20 74 68 65 20 28 64 65 2d 68 61 6d 6d 65 |is the (de-hamme|
000002a0 64 29 20 66 69 72 73 74 20 62 79 74 65 20 6f 66 |d) first byte of|
000002b0 20 74 68 65 20 4d 52 41 47 2e 20 43 68 61 6e 6e | the MRAG. Chann|
000002c0 65 6c 73 0d 30 20 74 6f 20 37 20 61 72 65 20 65 |els.0 to 7 are e|
000002d0 71 75 69 76 61 6c 65 6e 74 20 74 6f 20 70 61 63 |quivalent to pac|
000002e0 6b 65 74 20 33 30 2c 20 6d 61 67 61 7a 69 6e 65 |ket 30, magazine|
000002f0 73 20 30 20 74 6f 20 37 20 61 6e 64 20 63 68 61 |s 0 to 7 and cha|
00000300 6e 6e 65 6c 73 20 38 20 74 6f 20 31 35 0d 61 72 |nnels 8 to 15.ar|
00000310 65 20 65 71 75 69 76 61 6c 65 6e 74 20 74 6f 20 |e equivalent to |
00000320 70 61 63 6b 65 74 20 33 31 2c 20 6d 61 67 61 7a |packet 31, magaz|
00000330 69 6e 65 73 20 30 20 74 6f 20 37 2e 20 49 74 20 |ines 0 to 7. It |
00000340 69 73 20 73 74 69 6c 6c 20 6e 65 63 65 73 73 61 |is still necessa|
00000350 72 79 20 74 6f 0d 64 65 63 6f 64 65 20 74 68 65 |ry to.decode the|
00000360 20 4d 52 41 47 20 74 6f 20 69 64 65 6e 74 69 66 | MRAG to identif|
00000370 79 20 74 68 65 20 70 61 63 6b 65 74 20 61 73 20 |y the packet as |
00000380 62 65 69 6e 67 20 65 69 74 68 65 72 20 33 30 20 |being either 30 |
00000390 6f 72 20 33 31 2c 20 62 75 74 20 61 0d 73 68 6f |or 31, but a.sho|
000003a0 72 74 2d 63 75 74 20 6d 61 79 20 62 65 20 74 6f |rt-cut may be to|
000003b0 20 63 68 65 63 6b 20 74 68 65 20 73 65 63 6f 6e | check the secon|
000003c0 64 20 4d 52 41 47 20 62 79 74 65 20 77 68 69 63 |d MRAG byte whic|
000003d0 68 20 77 69 6c 6c 20 61 6c 77 61 79 73 20 64 65 |h will always de|
000003e0 63 6f 64 65 20 74 6f 0d 31 35 20 66 6f 72 20 69 |code to.15 for i|
000003f0 6e 64 65 70 65 6e 64 65 6e 74 20 63 68 61 6e 6e |ndependent chann|
00000400 65 6c 73 2e 0d 0d 43 68 61 6e 6e 65 6c 73 20 38 |els...Channels 8|
00000410 20 74 6f 20 31 31 20 61 72 65 20 75 73 65 64 20 | to 11 are used |
00000420 74 6f 20 62 72 6f 61 64 63 61 73 74 20 61 20 73 |to broadcast a s|
00000430 65 63 75 72 65 20 64 61 74 61 20 63 6f 6d 6d 75 |ecure data commu|
00000440 6e 69 63 61 74 69 6f 6e 73 0d 63 68 61 6e 6e 65 |nications.channe|
00000450 6c 20 74 6f 20 61 6c 6c 20 70 6f 69 6e 74 73 20 |l to all points |
00000460 6f 66 20 74 68 65 20 42 72 69 74 69 73 68 20 49 |of the British I|
00000470 73 6c 65 73 20 73 69 6d 75 6c 74 61 6e 65 6f 75 |sles simultaneou|
00000480 73 6c 79 2e 20 54 68 69 73 20 73 65 72 76 69 63 |sly. This servic|
00000490 65 20 69 73 0d 70 72 6f 76 69 64 65 64 20 62 79 |e is.provided by|
000004a0 20 42 42 43 20 45 6e 74 65 72 70 72 69 73 65 73 | BBC Enterprises|
000004b0 20 61 6e 64 20 69 73 20 6b 6e 6f 77 6e 20 61 73 | and is known as|
000004c0 20 44 61 74 61 63 61 73 74 2e 20 44 61 74 61 63 | Datacast. Datac|
000004d0 61 73 74 20 69 73 20 75 73 65 64 20 62 79 0d 6d |ast is used by.m|
000004e0 61 6e 79 20 6f 72 67 61 6e 69 73 61 74 69 6f 6e |any organisation|
000004f0 73 20 69 6e 63 6c 75 64 69 6e 67 20 74 68 65 20 |s including the |
00000500 4c 6f 6e 64 6f 6e 20 53 74 6f 63 6b 20 45 78 63 |London Stock Exc|
00000510 68 61 6e 67 65 2c 20 43 6f 72 61 6c 20 52 61 63 |hange, Coral Rac|
00000520 69 6e 67 2c 20 61 6e 64 0d 50 6f 73 74 20 4f 66 |ing, and.Post Of|
00000530 66 69 63 65 20 4e 75 2d 4d 65 64 69 61 20 28 77 |fice Nu-Media (w|
00000540 68 6f 20 61 72 65 20 70 72 6f 76 69 64 69 6e 67 |ho are providing|
00000550 20 61 69 72 70 6f 72 74 20 74 79 70 65 20 4c 45 | airport type LE|
00000560 44 20 64 69 73 70 6c 61 79 20 73 69 67 6e 73 20 |D display signs |
00000570 69 6e 0d 50 6f 73 74 20 4f 66 66 69 63 65 73 20 |in.Post Offices |
00000580 61 72 6f 75 6e 64 20 74 68 65 20 63 6f 75 6e 74 |around the count|
00000590 72 79 29 2e 20 41 6c 6c 20 44 61 74 61 63 61 73 |ry). All Datacas|
000005a0 74 20 75 73 65 72 73 20 61 72 65 20 65 6e 63 6f |t users are enco|
000005b0 75 72 61 67 65 64 20 74 6f 0d 65 6e 63 72 79 70 |uraged to.encryp|
000005c0 74 20 74 68 65 69 72 20 64 61 74 61 2c 20 61 6e |t their data, an|
000005d0 64 20 6d 6f 73 74 20 64 6f 2e 20 54 68 6f 73 65 |d most do. Those|
000005e0 20 74 68 61 74 20 64 6f 20 6e 6f 74 20 68 61 76 | that do not hav|
000005f0 65 20 64 61 74 61 20 73 74 72 65 61 6d 73 20 74 |e data streams t|
00000600 68 61 74 0d 63 6f 6e 74 61 69 6e 20 63 6f 6e 74 |hat.contain cont|
00000610 72 6f 6c 20 73 65 71 75 65 6e 63 65 73 20 66 6f |rol sequences fo|
00000620 72 20 73 70 65 63 69 66 69 63 20 68 61 72 64 77 |r specific hardw|
00000630 61 72 65 20 74 68 61 74 20 61 72 65 20 6d 65 61 |are that are mea|
00000640 6e 69 6e 67 6c 65 73 73 20 61 6e 64 0d 6f 66 20 |ningless and.of |
00000650 6e 6f 20 76 61 6c 75 65 20 74 6f 20 74 68 65 20 |no value to the |
00000660 6f 75 74 73 69 64 65 20 6f 62 73 65 72 76 65 72 |outside observer|
00000670 2e 0d 0d 54 68 65 72 65 20 69 73 20 61 20 74 65 |...There is a te|
00000680 73 74 20 6d 65 73 73 61 67 65 20 6f 6e 20 44 61 |st message on Da|
00000690 74 61 63 61 73 74 20 63 68 61 6e 6e 65 6c 20 31 |tacast channel 1|
000006a0 31 2c 20 61 64 64 72 65 73 73 20 37 20 77 68 69 |1, address 7 whi|
000006b0 63 68 20 63 61 6e 20 62 65 0d 72 65 63 65 69 76 |ch can be.receiv|
000006c0 65 64 20 6f 6e 20 61 20 42 42 43 20 6d 69 63 72 |ed on a BBC micr|
000006d0 6f 20 61 6e 64 20 74 68 65 20 64 65 6d 6f 6e 73 |o and the demons|
000006e0 74 72 61 74 69 6f 6e 20 70 72 6f 67 72 61 6d 20 |tration program |
000006f0 61 73 73 6f 63 69 61 74 65 64 20 77 69 74 68 20 |associated with |
00000700 74 68 69 73 0d 6d 6f 64 75 6c 65 20 69 73 20 75 |this.module is u|
00000710 73 65 64 20 74 6f 20 72 65 61 64 20 61 6e 64 20 |sed to read and |
00000720 64 69 73 70 6c 61 79 20 74 68 69 73 20 74 65 73 |display this tes|
00000730 74 20 6d 65 73 73 61 67 65 2e 0d 0d 54 68 65 20 |t message...The |
00000740 74 61 62 6c 65 20 69 6e 20 66 69 67 75 72 65 20 |table in figure |
00000750 31 20 73 68 6f 77 73 20 74 68 65 20 63 6f 6d 70 |1 shows the comp|
00000760 6c 65 74 65 20 66 6f 72 6d 61 74 20 6f 66 20 61 |lete format of a|
00000770 20 42 42 43 20 44 61 74 61 63 61 73 74 20 70 61 | BBC Datacast pa|
00000780 63 6b 65 74 2c 0d 61 6e 64 20 61 6c 73 6f 20 73 |cket,.and also s|
00000790 68 6f 77 73 20 77 68 65 72 65 20 74 68 65 20 64 |hows where the d|
000007a0 65 6d 6f 6e 73 74 72 61 74 69 6f 6e 20 70 72 6f |emonstration pro|
000007b0 67 72 61 6d 20 73 74 6f 72 65 73 20 74 68 65 20 |gram stores the |
000007c0 64 61 74 61 20 69 74 20 72 65 61 64 73 2e 0d 54 |data it reads..T|
000007d0 68 65 20 62 79 74 65 20 6e 75 6d 62 65 72 20 69 |he byte number i|
000007e0 6e 20 74 68 65 20 6c 65 66 74 20 68 61 6e 64 20 |n the left hand |
000007f0 63 6f 6c 75 6d 6e 20 6f 66 20 66 69 67 75 72 65 |column of figure|
00000800 20 31 20 73 68 6f 77 73 20 74 68 65 20 6f 72 64 | 1 shows the ord|
00000810 65 72 20 69 6e 0d 77 68 69 63 68 20 74 68 65 20 |er in.which the |
00000820 64 61 74 61 20 61 72 65 20 73 74 6f 72 65 64 20 |data are stored |
00000830 69 6e 20 74 68 65 20 61 64 61 70 74 6f 72 2e 20 |in the adaptor. |
00000840 54 68 65 20 6e 65 78 74 20 63 6f 6c 75 6d 6e 20 |The next column |
00000850 73 68 6f 77 73 20 77 68 65 74 68 65 72 20 6f 72 |shows whether or|
00000860 0d 6e 6f 74 20 74 68 65 20 64 61 74 61 20 61 72 |.not the data ar|
00000870 65 20 68 61 6d 6d 69 6e 67 20 63 6f 64 65 64 20 |e hamming coded |
00000880 28 68 63 20 3d 20 68 61 6d 6d 69 6e 67 20 63 6f |(hc = hamming co|
00000890 64 65 64 2c 20 62 6c 61 6e 6b 20 3d 20 6e 6f 74 |ded, blank = not|
000008a0 20 63 6f 64 65 64 29 2c 0d 74 68 65 20 74 68 69 | coded),.the thi|
000008b0 72 64 20 63 6f 6c 75 6d 6e 20 67 69 76 65 73 20 |rd column gives |
000008c0 61 20 62 72 69 65 66 20 64 65 73 63 72 69 70 74 |a brief descript|
000008d0 69 6f 6e 20 6f 66 20 74 68 65 20 62 79 74 65 2c |ion of the byte,|
000008e0 20 74 68 65 20 6e 65 78 74 20 63 6f 6c 75 6d 6e | the next column|
000008f0 0d 73 68 6f 77 73 20 77 68 65 72 65 20 74 68 65 |.shows where the|
00000900 20 62 79 74 65 20 69 73 20 73 74 6f 72 65 64 20 | byte is stored |
00000910 62 79 20 74 68 65 20 70 72 6f 67 72 61 6d 20 44 |by the program D|
00000920 41 54 43 41 53 54 2c 20 61 6e 64 20 74 68 65 20 |ATCAST, and the |
00000930 6c 61 73 74 20 63 6f 6c 75 6d 6e 0d 64 65 73 63 |last column.desc|
00000940 72 69 62 65 73 20 74 68 65 20 66 6f 72 6d 61 74 |ribes the format|
00000950 20 69 6e 20 77 68 69 63 68 20 74 68 65 20 70 72 | in which the pr|
00000960 6f 67 72 61 6d 20 44 41 54 43 41 53 54 20 73 74 |ogram DATCAST st|
00000970 6f 72 65 73 20 74 68 65 20 64 61 74 61 20 28 62 |ores the data (b|
00000980 6c 61 6e 6b 20 3d 0d 73 74 6f 72 65 64 20 61 73 |lank =.stored as|
00000990 20 72 65 61 64 29 2e 0d 0d 0d 2b 2d 2d 2d 2d 2d | read)....+-----|
000009a0 2d 2d 2d 2b 2d 2d 2d 2d 2b 2d 2d 2d 2d 2d 2d 2d |---+----+-------|
000009b0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d |----------------|
000009c0 2d 2d 2d 2d 2b 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d |----+-----------|
000009d0 2d 2d 2d 2d 2d 2d 2d 2b 2d 2d 2d 2d 2d 2d 2d 2d |-------+--------|
000009e0 2d 2d 2d 2b 0d 7c 62 79 74 65 20 6e 6f 20 7c 63 |---+.|byte no |c|
000009f0 6f 64 65 7c 20 64 65 73 63 72 69 70 74 69 6f 6e |ode| description|
00000a00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7c | ||
00000a10 20 73 74 6f 72 65 64 20 69 6e 20 20 20 20 20 20 | stored in |
00000a20 20 20 7c 20 66 6f 72 6d 61 74 20 20 20 20 7c 0d | | format |.|
00000a30 2b 2d 2d 2d 2d 2d 2d 2d 2d 2b 2d 2d 2d 2d 2b 2d |+--------+----+-|
00000a40 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d |----------------|
00000a50 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2b 2d 2d 2d 2d 2d |----------+-----|
00000a60 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2b 2d 2d |-------------+--|
00000a70 2d 2d 2d 2d 2d 2d 2d 2d 2d 2b 0d 7c 20 20 31 20 |---------+.| 1 |
00000a80 20 20 20 20 7c 20 20 20 20 7c 20 63 6c 6f 63 6b | | | clock|
00000a90 20 72 75 6e 2d 69 6e 20 20 20 20 20 20 20 20 20 | run-in |
00000aa0 20 20 20 20 20 7c 20 28 6e 6f 74 20 72 65 61 64 | | (not read|
00000ab0 29 20 20 20 20 20 20 20 7c 20 20 20 20 20 20 20 |) | |
00000ac0 20 20 20 20 7c 0d 7c 20 20 32 20 20 20 20 20 7c | |.| 2 ||
00000ad0 20 20 20 20 7c 20 63 6c 6f 63 6b 20 72 75 6e 2d | | clock run-|
00000ae0 69 6e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |in |
00000af0 7c 20 28 6e 6f 74 20 72 65 61 64 29 20 20 20 20 || (not read) |
00000b00 20 20 20 7c 20 20 20 20 20 20 20 20 20 20 20 7c | | ||
00000b10 0d 7c 20 20 33 20 20 20 20 20 7c 20 20 20 20 7c |.| 3 | ||
00000b20 20 66 72 61 6d 69 6e 67 20 63 6f 64 65 20 20 20 | framing code |
00000b30 20 20 20 20 20 20 20 20 20 20 20 7c 20 28 6e 6f | | (no|
00000b40 74 20 73 74 6f 72 65 64 29 20 20 20 20 20 7c 20 |t stored) | |
00000b50 20 20 20 20 20 20 20 20 20 20 7c 0d 7c 20 20 34 | |.| 4|
00000b60 20 20 20 20 20 7c 20 68 63 20 7c 20 63 68 61 6e | | hc | chan|
00000b70 6e 65 6c 20 6e 75 6d 62 65 72 20 20 20 20 20 20 |nel number |
00000b80 20 20 20 20 20 20 7c 20 6d 61 67 61 7a 69 6e 65 | | magazine|
00000b90 20 20 20 20 20 20 20 20 20 7c 20 64 65 2d 68 61 | | de-ha|
00000ba0 6d 6d 65 64 20 7c 0d 7c 20 20 34 20 20 20 20 20 |mmed |.| 4 |
00000bb0 7c 20 68 63 20 7c 20 62 69 74 20 30 20 6f 66 20 || hc | bit 0 of |
00000bc0 70 61 63 6b 20 6e 6f 20 69 6e 20 62 69 74 20 33 |pack no in bit 3|
00000bd0 20 7c 20 70 61 63 6b 65 74 20 62 69 74 20 30 20 | | packet bit 0 |
00000be0 20 20 20 20 7c 20 64 65 2d 68 61 6d 6d 65 64 20 | | de-hammed |
00000bf0 7c 0d 7c 20 20 35 20 20 20 20 20 7c 20 68 63 20 ||.| 5 | hc |
00000c00 7c 20 70 61 63 6b 65 74 20 6e 75 6d 62 65 72 20 || packet number |
00000c10 62 69 74 73 20 31 2d 34 20 20 20 20 7c 20 70 61 |bits 1-4 | pa|
00000c20 63 6b 65 74 20 62 69 74 73 20 31 2d 34 20 20 7c |cket bits 1-4 ||
00000c30 20 64 65 2d 68 61 6d 6d 65 64 20 7c 0d 7c 20 20 | de-hammed |.| |
00000c40 36 20 20 20 20 20 7c 20 68 63 20 7c 20 66 6f 72 |6 | hc | for|
00000c50 6d 61 74 20 74 79 70 65 20 28 46 54 29 20 20 20 |mat type (FT) |
00000c60 20 20 20 20 20 20 20 7c 20 62 75 66 66 3f 30 20 | | buff?0 |
00000c70 20 20 20 20 20 20 20 20 20 20 7c 20 64 65 2d 68 | | de-h|
00000c80 61 6d 6d 65 64 20 7c 0d 7c 20 20 37 20 20 20 20 |ammed |.| 7 |
00000c90 20 7c 20 68 63 20 7c 20 61 64 64 72 65 73 73 20 | | hc | address |
00000ca0 6c 65 6e 67 74 68 20 28 41 4c 29 20 20 20 20 20 |length (AL) |
00000cb0 20 20 7c 20 62 75 66 66 3f 31 20 20 20 20 20 20 | | buff?1 |
00000cc0 20 20 20 20 20 7c 20 64 65 2d 68 61 6d 6d 65 64 | | de-hammed|
00000cd0 20 7c 0d 7c 20 37 2d 37 2b 41 4c 20 7c 20 68 63 | |.| 7-7+AL | hc|
00000ce0 20 7c 20 70 61 63 6b 65 74 20 61 64 64 72 65 73 | | packet addres|
00000cf0 73 20 62 79 74 65 73 20 20 20 20 20 20 7c 20 62 |s bytes | b|
00000d00 75 66 66 3f 32 2d 42 75 66 66 3f 32 2b 41 4c 20 |uff?2-Buff?2+AL |
00000d10 7c 20 64 65 2d 68 61 6d 6d 65 64 20 7c 0d 7c 73 || de-hammed |.|s|
00000d20 65 65 20 74 65 78 74 7c 20 20 20 20 7c 20 72 65 |ee text| | re|
00000d30 70 65 61 74 20 69 6e 64 69 63 61 74 6f 72 20 28 |peat indicator (|
00000d40 52 49 29 20 20 20 20 20 7c 20 73 65 65 20 74 65 |RI) | see te|
00000d50 78 74 20 20 20 20 20 20 20 20 20 7c 20 20 20 20 |xt | |
00000d60 20 20 20 20 20 20 20 7c 0d 7c 73 65 65 20 74 65 | |.|see te|
00000d70 78 74 7c 20 20 20 20 7c 20 63 6f 6e 74 69 6e 75 |xt| | continu|
00000d80 69 74 79 20 69 6e 64 69 63 61 74 6f 72 20 28 43 |ity indicator (C|
00000d90 49 29 20 7c 20 73 65 65 20 74 65 78 74 20 20 20 |I) | see text |
00000da0 20 20 20 20 20 20 7c 20 20 20 20 20 20 20 20 20 | | |
00000db0 20 20 7c 0d 7c 73 65 65 20 74 65 78 74 7c 20 20 | |.|see text| |
00000dc0 20 20 7c 20 64 61 74 61 20 6c 65 6e 67 74 68 20 | | data length |
00000dd0 28 44 4c 29 20 20 20 20 20 20 20 20 20 20 7c 20 |(DL) | |
00000de0 73 65 65 20 74 65 78 74 20 20 20 20 20 20 20 20 |see text |
00000df0 20 7c 20 20 20 20 20 20 20 20 20 20 20 7c 0d 7c | | |.||
00000e00 73 65 65 20 74 65 78 74 7c 20 20 20 20 7c 20 75 |see text| | u|
00000e10 73 65 72 20 64 61 74 61 20 62 79 74 65 73 20 20 |ser data bytes |
00000e20 20 20 20 20 20 20 20 20 20 7c 20 73 65 65 20 74 | | see t|
00000e30 65 78 74 20 20 20 20 20 20 20 20 20 7c 20 20 20 |ext | |
00000e40 20 20 20 20 20 20 20 20 7c 0d 7c 73 65 65 20 74 | |.|see t|
00000e50 65 78 74 7c 20 20 20 20 7c 20 74 77 6f 20 62 79 |ext| | two by|
00000e60 74 65 20 43 52 43 20 20 20 20 20 20 20 20 20 20 |te CRC |
00000e70 20 20 20 20 7c 20 73 65 65 20 74 65 78 74 20 20 | | see text |
00000e80 20 20 20 20 20 20 20 7c 20 20 20 20 20 20 20 20 | | |
00000e90 20 20 20 7c 0d 2b 2d 2d 2d 2d 2d 2d 2d 2d 2b 2d | |.+--------+-|
00000ea0 2d 2d 2d 2b 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d |---+------------|
00000eb0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2b |---------------+|
00000ec0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d |----------------|
00000ed0 2d 2d 2b 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2b 0d |--+-----------+.|
00000ee0 0d 46 69 67 75 72 65 20 31 2e 20 54 68 65 20 64 |.Figure 1. The d|
00000ef0 61 74 61 20 74 72 61 6e 73 6d 69 74 74 65 64 20 |ata transmitted |
00000f00 69 6e 20 74 68 65 20 44 61 74 61 63 61 73 74 20 |in the Datacast |
00000f10 70 61 63 6b 65 74 73 0d 2d 2d 2d 2d 2d 2d 2d 2d |packets.--------|
00000f20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d |----------------|
*
00000f40 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0d 0d |--------------..|
00000f50 0d 54 68 65 20 66 69 72 73 74 20 35 20 62 79 74 |.The first 5 byt|
00000f60 65 73 20 6f 66 20 74 68 65 20 44 61 74 61 63 61 |es of the Dataca|
00000f70 73 74 20 70 61 63 6b 65 74 20 61 72 65 20 69 6e |st packet are in|
00000f80 20 74 68 65 20 73 61 6d 65 20 66 6f 72 6d 61 74 | the same format|
00000f90 20 61 73 20 74 68 65 0d 66 69 72 73 74 20 35 20 | as the.first 5 |
00000fa0 62 79 74 65 73 20 6f 66 20 61 6c 6c 20 54 65 6c |bytes of all Tel|
00000fb0 65 74 65 78 74 20 70 61 63 6b 65 74 73 2e 20 54 |etext packets. T|
00000fc0 68 65 79 20 61 72 65 20 74 68 65 72 65 66 6f 72 |hey are therefor|
00000fd0 65 20 72 65 61 64 20 61 6e 64 20 64 65 63 6f 64 |e read and decod|
00000fe0 65 64 0d 69 6e 20 74 68 65 20 73 61 6d 65 20 77 |ed.in the same w|
00000ff0 61 79 20 61 73 20 61 6c 6c 20 70 61 63 6b 65 74 |ay as all packet|
00001000 73 2e 20 49 6e 20 74 68 65 20 65 78 61 6d 70 6c |s. In the exampl|
00001010 65 20 70 72 6f 67 72 61 6d 20 74 68 65 20 6d 61 |e program the ma|
00001020 67 61 7a 69 6e 65 20 6e 75 6d 62 65 72 0d 69 73 |gazine number.is|
00001030 20 73 74 6f 72 65 64 20 69 6e 20 74 68 65 20 6d | stored in the m|
00001040 65 6d 6f 72 79 20 6c 6f 63 61 74 69 6f 6e 20 6c |emory location l|
00001050 61 62 65 6c 6c 65 64 20 27 6d 61 67 61 7a 69 6e |abelled 'magazin|
00001060 65 27 20 61 6e 64 20 74 68 65 20 70 61 63 6b 65 |e' and the packe|
00001070 74 20 6e 75 6d 62 65 72 0d 69 6e 20 74 68 65 20 |t number.in the |
00001080 6d 65 6d 6f 72 79 20 6c 6f 63 61 74 69 6f 6e 20 |memory location |
00001090 6c 61 62 65 6c 6c 65 64 20 27 70 61 63 6b 65 74 |labelled 'packet|
000010a0 27 2e 20 54 68 65 20 44 61 74 61 63 61 73 74 20 |'. The Datacast |
000010b0 70 61 63 6b 65 74 73 20 68 61 76 65 20 61 0d 6d |packets have a.m|
000010c0 61 67 61 7a 69 6e 65 20 6e 75 6d 62 65 72 20 69 |agazine number i|
000010d0 6e 20 74 68 65 20 72 61 6e 67 65 20 66 72 6f 6d |n the range from|
000010e0 20 30 20 74 6f 20 33 20 61 6e 64 20 61 20 70 61 | 0 to 3 and a pa|
000010f0 63 6b 65 74 20 6e 75 6d 62 65 72 20 33 31 2c 20 |cket number 31, |
00001100 61 6c 74 68 6f 75 67 68 0d 74 68 65 73 65 20 74 |although.these t|
00001110 65 72 6d 73 20 61 72 65 20 6e 6f 74 20 75 73 75 |erms are not usu|
00001120 61 6c 6c 79 20 61 70 70 6c 69 65 64 20 74 6f 20 |ally applied to |
00001130 74 68 65 20 70 61 67 65 20 69 6e 64 65 70 65 6e |the page indepen|
00001140 64 65 6e 74 20 70 61 63 6b 65 74 73 2e 0d 0d 54 |dent packets...T|
00001150 68 65 20 68 61 6d 6d 69 6e 67 20 63 6f 64 65 64 |he hamming coded|
00001160 20 73 69 78 74 68 20 62 79 74 65 20 69 73 20 74 | sixth byte is t|
00001170 68 65 20 46 6f 72 6d 61 74 20 54 79 70 65 20 28 |he Format Type (|
00001180 46 54 29 20 62 79 74 65 2e 20 54 68 69 73 20 62 |FT) byte. This b|
00001190 79 74 65 0d 63 6f 6e 74 72 6f 6c 73 20 74 68 65 |yte.controls the|
000011a0 20 69 6e 74 65 72 70 72 65 74 61 74 69 6f 6e 20 | interpretation |
000011b0 6f 66 20 73 75 62 73 65 71 75 65 6e 74 20 62 79 |of subsequent by|
000011c0 74 65 73 20 69 6e 20 74 68 65 20 44 61 74 61 63 |tes in the Datac|
000011d0 61 73 74 20 70 61 63 6b 65 74 2e 0d 54 68 65 20 |ast packet..The |
000011e0 64 65 2d 68 61 6d 6d 65 64 20 46 54 20 62 79 74 |de-hammed FT byt|
000011f0 65 20 69 6e 64 69 63 61 74 65 73 20 74 68 65 20 |e indicates the |
00001200 75 73 65 20 6f 66 20 74 68 65 20 62 79 74 65 73 |use of the bytes|
00001210 20 77 68 69 63 68 20 66 6f 6c 6c 6f 77 20 69 74 | which follow it|
00001220 20 69 6e 0d 74 68 65 20 70 61 63 6b 65 74 2e 20 | in.the packet. |
00001230 54 68 65 20 62 69 74 73 20 6f 66 20 74 68 65 20 |The bits of the |
00001240 46 54 20 62 79 74 65 20 68 61 76 65 20 74 68 65 |FT byte have the|
00001250 20 66 6f 6c 6c 6f 77 69 6e 67 20 69 6e 74 65 72 | following inter|
00001260 70 72 65 74 61 74 69 6f 6e 3a 0d 0d 62 69 74 20 |pretation:..bit |
00001270 30 20 69 73 20 63 6c 65 61 72 20 66 6f 72 20 61 |0 is clear for a|
00001280 20 74 79 70 65 20 41 20 66 6f 72 6d 61 74 2c 20 | type A format, |
00001290 6f 74 68 65 72 77 69 73 65 20 74 68 65 20 72 65 |otherwise the re|
000012a0 6d 61 69 6e 69 6e 67 20 74 68 72 65 65 20 62 69 |maining three bi|
000012b0 74 73 20 61 72 65 0d 20 20 20 20 20 20 6e 6f 74 |ts are. not|
000012c0 20 64 65 66 69 6e 65 64 2e 0d 0d 62 69 74 20 31 | defined...bit 1|
000012d0 20 69 73 20 73 65 74 20 69 66 20 74 68 65 20 70 | is set if the p|
000012e0 61 63 6b 65 74 20 72 65 70 65 61 74 20 66 61 63 |acket repeat fac|
000012f0 69 6c 69 74 79 20 28 52 49 20 62 79 74 65 29 20 |ility (RI byte) |
00001300 69 73 20 69 6e 20 75 73 65 2c 20 6f 74 68 65 72 |is in use, other|
00001310 77 69 73 65 0d 20 20 20 20 20 20 69 74 20 69 73 |wise. it is|
00001320 20 63 6c 65 61 72 2e 0d 0d 62 69 74 20 32 20 69 | clear...bit 2 i|
00001330 73 20 73 65 74 20 69 66 20 74 68 65 20 63 6f 6e |s set if the con|
00001340 74 69 6e 75 69 74 79 20 69 6e 64 69 63 61 74 6f |tinuity indicato|
00001350 72 20 28 43 49 20 62 79 74 65 29 20 69 73 20 65 |r (CI byte) is e|
00001360 78 70 6c 69 63 69 74 2c 20 6f 74 68 65 72 77 69 |xplicit, otherwi|
00001370 73 65 0d 20 20 20 20 20 20 69 74 20 69 73 20 69 |se. it is i|
00001380 6d 70 6c 69 63 69 74 2e 0d 0d 62 69 74 20 33 20 |mplicit...bit 3 |
00001390 69 73 20 73 65 74 20 69 66 20 74 68 65 20 64 61 |is set if the da|
000013a0 74 61 20 6c 65 6e 67 74 68 20 69 6e 64 69 63 61 |ta length indica|
000013b0 74 6f 72 20 28 44 4c 20 62 79 74 65 29 20 69 73 |tor (DL byte) is|
000013c0 20 69 6e 20 75 73 65 2c 20 6f 74 68 65 72 77 69 | in use, otherwi|
000013d0 73 65 0d 20 20 20 20 20 20 69 74 20 69 73 20 63 |se. it is c|
000013e0 6c 65 61 72 2e 0d 0d 0d 54 68 65 20 73 65 76 65 |lear....The seve|
000013f0 6e 74 68 20 62 79 74 65 20 69 73 20 74 68 65 20 |nth byte is the |
00001400 61 64 64 72 65 73 73 20 6c 65 6e 67 74 68 20 28 |address length (|
00001410 41 4c 29 2e 20 54 68 65 20 66 69 72 73 74 20 74 |AL). The first t|
00001420 68 72 65 65 20 62 69 74 73 20 6f 66 20 74 68 65 |hree bits of the|
00001430 0d 64 65 2d 68 61 6d 6d 65 64 20 41 4c 20 69 6e |.de-hammed AL in|
00001440 64 69 63 61 74 65 20 68 6f 77 20 6d 61 6e 79 20 |dicate how many |
00001450 68 61 6d 6d 69 6e 67 20 63 6f 64 65 64 20 62 79 |hamming coded by|
00001460 74 65 73 20 66 6f 6c 6c 6f 77 69 6e 67 20 74 68 |tes following th|
00001470 65 20 41 4c 20 62 79 74 65 0d 61 72 65 20 61 6c |e AL byte.are al|
00001480 6c 6f 63 61 74 65 64 20 74 6f 20 74 68 65 20 70 |located to the p|
00001490 61 63 6b 65 74 20 61 64 64 72 65 73 73 2e 20 54 |acket address. T|
000014a0 68 65 20 6d 69 6e 69 6d 75 6d 20 69 73 20 6e 6f |he minimum is no|
000014b0 6e 65 2c 20 67 69 76 69 6e 67 20 6e 6f 20 70 61 |ne, giving no pa|
000014c0 63 6b 65 74 0d 61 64 64 72 65 73 73 2c 20 61 6e |cket.address, an|
000014d0 64 20 74 68 65 20 6d 61 78 69 6d 75 6d 20 69 73 |d the maximum is|
000014e0 20 73 69 78 2c 20 67 69 76 69 6e 67 20 61 20 32 | six, giving a 2|
000014f0 34 20 62 69 74 20 61 64 64 72 65 73 73 2e 20 54 |4 bit address. T|
00001500 68 65 20 74 65 73 74 20 6d 65 73 73 61 67 65 0d |he test message.|
00001510 68 61 73 20 61 6e 20 61 64 64 72 65 73 73 20 6c |has an address l|
00001520 65 6e 67 74 68 20 6f 66 20 31 2e 20 54 68 61 74 |ength of 1. That|
00001530 20 61 64 64 72 65 73 73 20 69 73 20 37 20 77 68 | address is 7 wh|
00001540 69 63 68 20 73 74 6f 72 65 64 20 69 6e 20 74 68 |ich stored in th|
00001550 65 20 65 69 67 68 74 68 0d 62 79 74 65 2c 20 61 |e eighth.byte, a|
00001560 20 70 61 63 6b 65 74 20 61 64 64 72 65 73 73 20 | packet address |
00001570 62 79 74 65 2e 0d 0d 54 68 65 20 6e 75 6d 62 65 |byte...The numbe|
00001580 72 20 6f 66 20 70 61 63 6b 65 74 20 61 64 64 72 |r of packet addr|
00001590 65 73 73 20 62 79 74 65 73 20 69 73 20 69 6e 64 |ess bytes is ind|
000015a0 69 63 61 74 65 64 20 62 79 20 74 68 65 20 41 4c |icated by the AL|
000015b0 20 62 79 74 65 2e 20 41 20 44 61 74 61 63 61 73 | byte. A Datacas|
000015c0 74 0d 63 68 61 6e 6e 65 6c 20 69 73 20 64 65 66 |t.channel is def|
000015d0 69 6e 65 64 20 62 79 20 69 74 73 20 64 61 74 61 |ined by its data|
000015e0 20 63 68 61 6e 6e 65 6c 20 67 72 6f 75 70 20 28 | channel group (|
000015f0 66 69 72 73 74 20 62 79 74 65 20 6f 66 20 74 68 |first byte of th|
00001600 65 20 4d 52 41 47 29 2c 20 69 74 73 0d 61 64 64 |e MRAG), its.add|
00001610 72 65 73 73 20 6c 65 6e 67 74 68 20 28 41 4c 29 |ress length (AL)|
00001620 20 61 6e 64 20 69 74 73 20 61 64 64 72 65 73 73 | and its address|
00001630 20 62 79 74 65 73 2e 20 54 68 65 20 74 65 73 74 | bytes. The test|
00001640 20 6d 65 73 73 61 67 65 20 69 73 20 6f 6e 20 63 | message is on c|
00001650 68 61 6e 6e 65 6c 0d 31 31 20 28 69 65 2e 20 6d |hannel.11 (ie. m|
00001660 61 67 61 7a 69 6e 65 20 33 29 20 61 64 64 72 65 |agazine 3) addre|
00001670 73 73 20 37 20 28 41 4c 20 3d 20 31 2c 20 41 4c |ss 7 (AL = 1, AL|
00001680 2b 31 20 3d 20 37 29 2e 0d 0d 54 68 65 20 52 49 |+1 = 7)...The RI|
00001690 20 62 79 74 65 20 69 73 20 6f 6e 6c 79 20 70 72 | byte is only pr|
000016a0 65 73 65 6e 74 20 69 66 20 74 68 65 20 70 61 63 |esent if the pac|
000016b0 6b 65 74 20 72 65 70 65 61 74 20 66 61 63 69 6c |ket repeat facil|
000016c0 69 74 79 20 62 69 74 20 69 73 20 73 65 74 20 69 |ity bit is set i|
000016d0 6e 0d 74 68 65 20 46 54 20 62 79 74 65 20 28 62 |n.the FT byte (b|
000016e0 69 74 20 31 2c 20 62 79 74 65 20 36 29 2e 20 54 |it 1, byte 6). T|
000016f0 68 69 73 20 66 61 63 69 6c 69 74 79 20 69 73 20 |his facility is |
00001700 75 73 65 64 20 69 66 20 74 68 65 20 70 61 72 74 |used if the part|
00001710 69 63 75 6c 61 72 0d 70 61 63 6b 65 74 20 69 73 |icular.packet is|
00001720 20 62 65 69 6e 67 20 72 65 70 65 61 74 65 64 2e | being repeated.|
00001730 20 54 68 65 20 66 69 72 73 74 20 66 6f 75 72 20 | The first four |
00001740 62 69 74 73 20 61 72 65 20 63 6c 65 61 72 20 77 |bits are clear w|
00001750 68 65 6e 20 61 20 6e 65 77 20 70 61 63 6b 65 74 |hen a new packet|
00001760 0d 69 73 20 66 69 72 73 74 20 74 72 61 6e 73 6d |.is first transm|
00001770 69 74 74 65 64 20 61 6e 64 20 69 74 20 69 73 20 |itted and it is |
00001780 69 6e 63 72 65 6d 65 6e 74 65 64 20 6d 6f 64 75 |incremented modu|
00001790 6c 6f 2d 31 36 20 6f 6e 20 73 75 62 73 65 71 75 |lo-16 on subsequ|
000017a0 65 6e 74 0d 72 65 70 65 61 74 73 2e 20 54 68 65 |ent.repeats. The|
000017b0 20 6e 65 78 74 20 74 68 72 65 65 20 62 69 74 73 | next three bits|
000017c0 20 61 72 65 20 6e 6f 74 20 64 65 66 69 6e 65 64 | are not defined|
000017d0 2e 20 54 68 65 20 6c 61 73 74 20 62 69 74 20 69 |. The last bit i|
000017e0 73 20 63 6c 65 61 72 20 69 66 20 6e 6f 0d 66 75 |s clear if no.fu|
000017f0 72 74 68 65 72 20 72 65 70 65 61 74 73 20 61 72 |rther repeats ar|
00001800 65 20 74 6f 20 62 65 20 65 78 70 65 63 74 65 64 |e to be expected|
00001810 2e 0d 0d 54 68 65 20 43 49 20 62 79 74 65 20 69 |...The CI byte i|
00001820 73 20 6f 6e 6c 79 20 70 72 65 73 65 6e 74 20 69 |s only present i|
00001830 66 20 61 6e 20 65 78 70 6c 69 63 69 74 20 63 6f |f an explicit co|
00001840 6e 74 69 6e 75 69 74 79 20 69 6e 64 69 63 61 74 |ntinuity indicat|
00001850 6f 72 20 68 61 73 20 62 65 65 6e 0d 73 69 67 6e |or has been.sign|
00001860 61 6c 6c 65 64 20 62 79 20 62 69 74 20 32 20 6f |alled by bit 2 o|
00001870 66 20 74 68 65 20 46 54 20 62 79 74 65 2e 20 54 |f the FT byte. T|
00001880 68 69 73 20 62 79 74 65 20 69 73 20 69 6e 63 72 |his byte is incr|
00001890 65 6d 65 6e 74 65 64 20 6d 6f 64 75 6c 6f 2d 32 |emented modulo-2|
000018a0 35 36 0d 77 69 74 68 20 65 61 63 68 20 6e 65 77 |56.with each new|
000018b0 20 70 61 63 6b 65 74 20 6f 66 20 74 68 65 20 73 | packet of the s|
000018c0 61 6d 65 20 64 61 74 61 20 63 68 61 6e 6e 65 6c |ame data channel|
000018d0 2e 20 49 74 20 64 6f 65 73 20 6e 6f 74 20 63 68 |. It does not ch|
000018e0 61 6e 67 65 20 64 75 72 69 6e 67 0d 72 65 70 65 |ange during.repe|
000018f0 61 74 65 64 20 74 72 61 6e 73 6d 69 73 73 69 6f |ated transmissio|
00001900 6e 20 6f 66 20 74 68 65 20 73 61 6d 65 20 70 61 |n of the same pa|
00001910 63 6b 65 74 2e 0d 0d 54 68 65 20 44 4c 20 62 79 |cket...The DL by|
00001920 74 65 20 69 73 20 6f 6e 6c 79 20 70 72 65 73 65 |te is only prese|
00001930 6e 74 20 69 66 20 62 69 74 20 33 20 6f 66 20 74 |nt if bit 3 of t|
00001940 68 65 20 46 54 20 69 73 20 73 65 74 2e 20 54 68 |he FT is set. Th|
00001950 65 20 44 4c 20 69 73 20 61 20 36 20 62 69 74 0d |e DL is a 6 bit.|
00001960 6e 75 6d 62 65 72 20 64 65 66 69 6e 69 6e 67 20 |number defining |
00001970 74 68 65 20 6e 75 6d 62 65 72 20 6f 66 20 38 20 |the number of 8 |
00001980 62 69 74 20 62 79 74 65 73 20 69 6e 74 65 6e 64 |bit bytes intend|
00001990 65 64 20 74 6f 20 62 65 20 61 76 61 69 6c 61 62 |ed to be availab|
000019a0 6c 65 20 74 6f 20 74 68 65 0d 75 73 65 72 2e 20 |le to the.user. |
000019b0 54 68 65 20 74 77 6f 20 6d 6f 73 74 20 73 69 67 |The two most sig|
000019c0 6e 69 66 69 63 61 6e 74 20 62 69 74 73 20 6f 66 |nificant bits of|
000019d0 20 74 68 65 20 44 4c 20 62 79 74 65 20 61 72 65 | the DL byte are|
000019e0 20 6e 6f 74 20 64 65 66 69 6e 65 64 2e 0d 0d 54 | not defined...T|
000019f0 68 65 20 72 65 6d 61 69 6e 69 6e 67 20 62 79 74 |he remaining byt|
00001a00 65 73 20 69 6e 20 74 68 65 20 70 61 63 6b 65 74 |es in the packet|
00001a10 2c 20 65 78 63 65 70 74 20 74 68 65 20 6c 61 73 |, except the las|
00001a20 74 20 74 77 6f 2c 20 63 61 72 72 79 20 74 68 65 |t two, carry the|
00001a30 20 75 73 65 72 0d 64 61 74 61 2e 20 54 68 65 72 | user.data. Ther|
00001a40 65 20 61 72 65 20 67 65 6e 65 72 61 6c 6c 79 20 |e are generally |
00001a50 62 65 74 77 65 65 6e 20 32 38 20 61 6e 64 20 33 |between 28 and 3|
00001a60 36 20 75 73 65 72 20 64 61 74 61 20 62 79 65 73 |6 user data byes|
00001a70 20 69 6e 20 61 20 74 79 70 65 20 41 0d 64 61 74 | in a type A.dat|
00001a80 61 20 70 61 63 6b 65 74 2e 20 54 68 65 72 65 20 |a packet. There |
00001a90 69 73 20 6e 6f 20 72 65 73 74 72 69 63 74 69 6f |is no restrictio|
00001aa0 6e 20 6f 6e 20 74 68 65 20 63 6f 64 69 6e 67 20 |n on the coding |
00001ab0 6f 66 20 74 68 65 20 75 73 65 72 20 64 61 74 61 |of the user data|
00001ac0 20 62 79 74 65 73 0d 62 75 74 20 70 61 63 6b 65 | bytes.but packe|
00001ad0 74 73 20 77 69 74 68 20 61 6c 6c 20 6e 75 6c 6c |ts with all null|
00001ae0 73 20 6f 72 20 61 6c 6c 20 26 46 46 73 20 63 61 |s or all &FFs ca|
00001af0 6e 20 63 61 75 73 65 20 72 65 63 65 70 74 69 6f |n cause receptio|
00001b00 6e 20 70 72 6f 62 6c 65 6d 73 20 77 69 74 68 0d |n problems with.|
00001b10 6f 6c 64 65 72 20 68 61 72 64 77 61 72 65 2c 20 |older hardware, |
00001b20 73 75 63 68 20 61 73 20 74 68 65 20 41 63 6f 72 |such as the Acor|
00001b30 6e 20 61 64 61 70 74 6f 72 2e 0d 0d 54 68 65 20 |n adaptor...The |
00001b40 6c 61 73 74 20 74 77 6f 20 62 79 74 65 73 20 61 |last two bytes a|
00001b50 72 65 20 61 20 31 36 20 62 69 74 20 63 79 63 6c |re a 16 bit cycl|
00001b60 69 63 20 72 65 64 75 6e 64 61 6e 63 79 20 63 68 |ic redundancy ch|
00001b70 65 63 6b 20 28 43 52 43 29 20 6f 6e 20 74 68 65 |eck (CRC) on the|
00001b80 20 43 49 0d 62 79 74 65 20 28 69 66 20 70 72 65 | CI.byte (if pre|
00001b90 73 65 6e 74 29 20 74 6f 67 65 74 68 65 72 20 77 |sent) together w|
00001ba0 69 74 68 20 74 68 65 20 75 73 65 72 20 64 61 74 |ith the user dat|
00001bb0 61 20 62 79 74 65 73 2e 20 49 66 20 74 68 65 20 |a bytes. If the |
00001bc0 43 49 20 62 79 74 65 20 69 73 20 6e 6f 74 0d 75 |CI byte is not.u|
00001bd0 73 65 64 20 74 68 65 20 43 52 43 20 69 73 20 6d |sed the CRC is m|
00001be0 6f 64 69 66 69 65 64 20 61 63 63 6f 72 64 69 6e |odified accordin|
00001bf0 67 6c 79 2e 20 59 6f 75 20 73 68 6f 75 6c 64 20 |gly. You should |
00001c00 72 65 66 65 72 20 74 6f 20 74 68 65 20 42 42 43 |refer to the BBC|
00001c10 20 44 61 74 61 63 61 73 74 0d 73 70 65 63 69 66 | Datacast.specif|
00001c20 69 63 61 74 69 6f 6e 20 69 66 20 79 6f 75 20 6e |ication if you n|
00001c30 65 65 64 20 74 6f 20 75 73 65 20 74 68 65 20 43 |eed to use the C|
00001c40 52 43 2e 20 54 68 65 20 64 65 6d 6f 6e 73 74 72 |RC. The demonstr|
00001c50 61 74 69 6f 6e 20 70 72 6f 67 72 61 6d 0d 69 67 |ation program.ig|
00001c60 6e 6f 72 65 73 20 74 68 65 20 43 52 43 2e 0d 0d |nores the CRC...|
00001c70 43 68 61 69 6e 20 74 68 65 20 70 72 6f 67 72 61 |Chain the progra|
00001c80 6d 20 44 41 54 43 41 53 54 20 61 6e 64 20 73 65 |m DATCAST and se|
00001c90 6c 65 63 74 20 65 69 74 68 65 72 20 42 42 43 20 |lect either BBC |
00001ca0 31 20 6f 72 20 42 42 43 20 32 2e 20 42 6f 74 68 |1 or BBC 2. Both|
00001cb0 20 42 42 43 20 31 20 61 6e 64 0d 42 42 43 20 32 | BBC 1 and.BBC 2|
00001cc0 20 74 72 61 6e 73 6d 69 74 20 61 20 73 69 6d 69 | transmit a simi|
00001cd0 6c 61 72 20 74 65 73 74 20 6d 65 73 73 61 67 65 |lar test message|
00001ce0 2c 20 70 61 72 74 20 6f 66 20 77 68 69 63 68 20 |, part of which |
00001cf0 69 73 20 73 68 6f 77 6e 20 69 6e 20 66 69 67 75 |is shown in figu|
00001d00 72 65 20 32 2e 0d 54 68 65 20 74 65 73 74 20 6d |re 2..The test m|
00001d10 65 73 73 61 67 65 20 61 6c 73 6f 20 63 6f 6e 74 |essage also cont|
00001d20 61 69 6e 73 20 76 61 72 69 6f 75 73 20 6f 74 68 |ains various oth|
00001d30 65 72 20 74 65 73 74 73 20 69 6e 63 6c 75 64 69 |er tests includi|
00001d40 6e 67 20 72 75 6e 73 20 6f 66 0d 44 65 6c 65 74 |ng runs of.Delet|
00001d50 65 20 61 6e 64 20 4e 75 6c 6c 20 63 68 61 72 61 |e and Null chara|
00001d60 63 74 65 72 73 2e 20 44 41 54 43 41 53 54 20 6f |cters. DATCAST o|
00001d70 6e 6c 79 20 70 72 69 6e 74 73 20 74 68 65 20 41 |nly prints the A|
00001d80 53 43 49 49 20 63 6f 64 65 73 20 31 30 2c 20 31 |SCII codes 10, 1|
00001d90 33 2c 0d 61 6e 64 20 33 32 2d 31 32 36 20 73 6f |3,.and 32-126 so|
00001da0 20 74 68 61 74 20 61 6e 79 20 63 6f 6e 74 72 6f | that any contro|
00001db0 6c 20 63 6f 64 65 73 20 74 68 61 74 20 6d 69 67 |l codes that mig|
00001dc0 68 74 20 75 70 73 65 74 20 79 6f 75 72 20 63 6f |ht upset your co|
00001dd0 6d 70 75 74 65 72 20 61 72 65 0d 65 78 63 6c 75 |mputer are.exclu|
00001de0 64 65 64 20 66 72 6f 6d 20 74 68 65 20 64 69 73 |ded from the dis|
00001df0 70 6c 61 79 2e 0d 0d 0d 0d 20 20 20 20 20 20 20 |play..... |
00001e00 20 20 42 42 43 20 49 4e 44 45 50 45 4e 44 45 4e | BBC INDEPENDEN|
00001e10 54 20 44 41 54 41 20 4c 49 4e 45 53 0d 0d 20 20 |T DATA LINES.. |
00001e20 54 68 69 73 20 69 73 20 61 20 74 65 73 74 20 74 |This is a test t|
00001e30 72 61 6e 73 6d 69 73 73 69 6f 6e 20 66 6f 72 20 |ransmission for |
00001e40 42 42 43 20 64 61 74 61 63 61 73 74 2e 0d 20 20 |BBC datacast.. |
00001e50 44 61 74 61 63 61 73 74 20 75 73 65 73 20 73 70 |Datacast uses sp|
00001e60 61 72 65 20 63 61 70 61 63 69 74 79 20 77 69 74 |are capacity wit|
00001e70 68 69 6e 20 74 68 65 20 43 45 45 46 41 58 0d 20 |hin the CEEFAX. |
00001e80 20 73 79 73 74 65 6d 20 74 6f 20 70 72 6f 76 69 | system to provi|
00001e90 64 65 20 61 20 74 72 61 6e 73 70 61 72 65 6e 74 |de a transparent|
00001ea0 20 64 61 74 61 20 63 68 61 6e 6e 65 6c 0d 20 20 | data channel. |
00001eb0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001ec0 20 20 20 20 20 20 20 20 20 20 20 0d 20 20 54 68 | . Th|
00001ed0 69 73 20 69 73 20 6f 72 69 67 69 6e 61 74 65 64 |is is originated|
00001ee0 20 66 72 6f 6d 20 61 20 42 42 43 20 6d 69 63 72 | from a BBC micr|
00001ef0 6f 2e 20 41 6c 6c 20 43 52 43 73 20 73 68 6f 75 |o. All CRCs shou|
00001f00 6c 64 20 62 65 20 63 6f 72 72 65 63 74 2e 0d 20 |ld be correct.. |
00001f10 20 54 68 65 72 65 20 61 72 65 20 6e 6f 20 72 65 | There are no re|
00001f20 70 65 61 74 65 64 20 70 61 63 6b 65 74 73 2e 20 |peated packets. |
00001f30 54 68 65 20 43 49 20 62 79 74 65 20 69 6e 63 72 |The CI byte incr|
00001f40 65 6d 65 6e 74 73 20 6f 6e 20 65 61 63 68 20 70 |ements on each p|
00001f50 61 63 6b 65 74 0d 20 20 54 68 65 20 44 4c 20 62 |acket. The DL b|
00001f60 79 74 65 20 69 73 20 69 6e 20 75 73 65 2e 0d 0d |yte is in use...|
00001f70 46 69 67 75 72 65 20 32 2e 20 44 61 74 61 63 61 |Figure 2. Dataca|
00001f80 73 74 2e 20 50 61 72 74 20 6f 66 20 64 61 74 61 |st. Part of data|
00001f90 20 63 68 61 6e 6e 65 6c 20 31 31 2c 20 61 64 64 | channel 11, add|
00001fa0 72 65 73 73 20 37 2e 0d 2d 2d 2d 2d 2d 2d 2d 2d |ress 7..--------|
00001fb0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d |----------------|
*
00001fd0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0d 0d |--------------..|
00001fe0 0d 41 74 20 74 68 65 20 74 69 6d 65 20 6f 66 20 |.At the time of |
00001ff0 77 72 69 74 69 6e 67 2c 20 74 68 65 20 49 54 56 |writing, the ITV|
00002000 20 6e 65 74 77 6f 72 6b 20 68 61 73 20 73 74 61 | network has sta|
00002010 72 74 65 64 20 74 6f 20 62 72 6f 61 64 63 61 73 |rted to broadcas|
00002020 74 20 61 6e 20 41 69 72 0d 43 61 6c 6c 20 74 65 |t an Air.Call te|
00002030 73 74 20 6d 65 73 73 61 67 65 20 6f 6e 20 70 61 |st message on pa|
00002040 63 6b 65 74 20 33 31 20 77 68 69 63 68 20 63 6f |cket 31 which co|
00002050 6e 66 6f 72 6d 73 20 77 69 74 68 20 74 68 65 20 |nforms with the |
00002060 57 6f 72 6c 64 20 53 79 73 74 65 6d 0d 54 65 6c |World System.Tel|
00002070 65 74 65 78 74 20 74 65 63 68 6e 69 63 61 6c 20 |etext technical |
00002080 73 70 65 63 69 66 69 63 61 74 69 6f 6e 2c 20 61 |specification, a|
00002090 6e 64 20 74 68 65 20 70 72 6f 67 72 61 6d 20 44 |nd the program D|
000020a0 41 54 43 41 53 54 20 77 69 6c 6c 20 73 68 6f 77 |ATCAST will show|
000020b0 20 79 6f 75 0d 74 68 65 20 63 6f 6e 74 65 6e 74 | you.the content|
000020c0 73 20 6f 66 20 61 6c 6c 20 49 54 56 20 70 61 63 |s of all ITV pac|
000020d0 6b 65 74 20 33 31 73 20 69 66 20 79 6f 75 20 73 |ket 31s if you s|
000020e0 65 6c 65 63 74 20 63 68 61 6e 6e 65 6c 20 33 2e |elect channel 3.|
000020f0 20 43 68 61 6e 6e 65 6c 20 34 20 61 6e 64 0d 53 | Channel 4 and.S|
00002100 34 43 20 64 6f 20 6e 6f 74 20 62 72 6f 61 64 63 |4C do not broadc|
00002110 61 73 74 20 64 61 74 61 20 69 6e 20 70 61 63 6b |ast data in pack|
00002120 65 74 20 33 31 2e 0d 0d 0d 0d 20 20 20 31 30 20 |et 31..... 10 |
00002130 52 45 4d 3e 20 44 41 54 43 41 53 54 0d 20 20 20 |REM> DATCAST. |
00002140 32 30 20 4d 4f 44 45 33 0d 20 20 20 33 30 20 44 |20 MODE3. 30 D|
00002150 49 4d 20 6d 63 6f 64 65 20 26 35 30 30 20 3a 52 |IM mcode &500 :R|
00002160 45 4d 3a 20 73 70 61 63 65 20 66 6f 72 20 6d 61 |EM: space for ma|
00002170 63 68 69 6e 65 20 63 6f 64 65 0d 20 20 20 34 30 |chine code. 40|
00002180 20 50 52 4f 43 6d 63 6f 64 65 20 3a 52 45 4d 3a | PROCmcode :REM:|
00002190 20 61 73 73 65 6d 62 6c 65 20 6d 61 63 68 69 6e | assemble machin|
000021a0 65 20 63 6f 64 65 0d 20 20 20 35 30 20 49 4e 50 |e code. 50 INP|
000021b0 55 54 22 54 56 20 63 68 61 6e 6e 65 6c 20 28 31 |UT"TV channel (1|
000021c0 2d 34 29 20 3d 20 22 61 6e 73 77 65 72 24 0d 20 |-4) = "answer$. |
000021d0 20 20 36 30 20 63 68 61 6e 6e 65 6c 3f 30 3d 45 | 60 channel?0=E|
000021e0 56 41 4c 28 22 26 22 2b 4c 45 46 54 24 28 61 6e |VAL("&"+LEFT$(an|
000021f0 73 77 65 72 24 2c 31 29 29 2b 26 31 42 0d 20 20 |swer$,1))+&1B. |
00002200 20 20 20 20 3a 52 45 4d 3a 20 54 54 58 20 65 6e | :REM: TTX en|
00002210 61 62 6c 65 2c 20 49 6e 74 20 65 6e 61 62 6c 65 |able, Int enable|
00002220 2c 20 41 46 43 0d 20 20 20 37 30 20 49 46 20 63 |, AFC. 70 IF c|
00002230 68 61 6e 6e 65 6c 3f 30 20 3c 20 26 31 43 20 54 |hannel?0 < &1C T|
00002240 48 45 4e 20 63 68 61 6e 6e 65 6c 3f 30 20 3d 20 |HEN channel?0 = |
00002250 26 31 43 0d 20 20 20 38 30 20 49 46 20 63 68 61 |&1C. 80 IF cha|
00002260 6e 6e 65 6c 3f 30 20 3e 20 26 31 46 20 54 48 45 |nnel?0 > &1F THE|
00002270 4e 20 63 68 61 6e 6e 65 6c 3f 30 20 3d 20 26 31 |N channel?0 = &1|
00002280 46 0d 20 20 20 39 30 20 43 41 4c 4c 20 6d 63 6f |F. 90 CALL mco|
00002290 64 65 0d 20 20 31 30 30 20 45 4e 44 0d 20 20 31 |de. 100 END. 1|
000022a0 31 30 20 44 45 46 50 52 4f 43 6d 63 6f 64 65 0d |10 DEFPROCmcode.|
000022b0 20 20 31 32 30 20 6d 61 67 61 7a 69 6e 65 3d 26 | 120 magazine=&|
000022c0 37 30 20 3a 52 45 4d 3a 20 6d 61 67 61 7a 69 6e |70 :REM: magazin|
000022d0 65 20 6e 75 6d 62 65 72 20 6f 66 20 63 75 72 72 |e number of curr|
000022e0 65 6e 74 20 70 61 67 65 0d 20 20 31 33 30 20 70 |ent page. 130 p|
000022f0 61 63 6b 65 74 3d 26 37 31 20 3a 52 45 4d 3a 20 |acket=&71 :REM: |
00002300 72 6f 77 20 6e 75 6d 62 65 72 20 6f 66 20 63 75 |row number of cu|
00002310 72 72 65 6e 74 20 70 61 63 6b 65 74 0d 20 20 31 |rrent packet. 1|
00002320 34 30 20 67 72 61 62 66 6c 61 67 3d 26 37 32 20 |40 grabflag=&72 |
00002330 3a 52 45 4d 3a 20 30 3d 73 65 61 72 63 68 69 6e |:REM: 0=searchin|
00002340 67 2c 20 26 38 30 3d 6c 6f 61 64 65 64 0d 20 20 |g, &80=loaded. |
00002350 31 35 30 20 63 68 61 6e 6e 65 6c 3d 26 37 33 20 |150 channel=&73 |
00002360 3a 52 45 4d 3a 20 54 56 20 63 68 61 6e 6e 65 6c |:REM: TV channel|
00002370 0d 20 20 31 36 30 20 64 61 74 61 6c 65 6e 3d 26 |. 160 datalen=&|
00002380 37 34 20 3a 52 45 4d 3a 20 64 61 74 61 63 61 73 |74 :REM: datacas|
00002390 74 20 64 61 74 61 20 6c 65 6e 67 74 68 0d 20 20 |t data length. |
000023a0 31 37 30 20 74 65 6d 70 3d 26 37 35 20 3a 52 45 |170 temp=&75 :RE|
000023b0 4d 3a 20 74 65 6d 70 6f 72 61 72 79 20 73 74 6f |M: temporary sto|
000023c0 72 65 0d 20 20 31 38 30 20 73 61 76 65 72 65 67 |re. 180 savereg|
000023d0 3d 26 46 43 20 3a 52 45 4d 3a 20 69 6e 74 65 72 |=&FC :REM: inter|
000023e0 72 75 70 74 20 61 63 63 75 6d 75 6c 61 74 6f 72 |rupt accumulator|
000023f0 20 73 61 76 65 20 72 65 67 69 73 74 65 72 0d 20 | save register. |
00002400 20 31 39 30 20 65 73 63 61 70 65 3d 26 46 46 20 | 190 escape=&FF |
00002410 3a 52 45 4d 3a 20 65 73 63 61 70 65 20 66 6c 61 |:REM: escape fla|
00002420 67 0d 20 20 32 30 30 20 69 72 71 32 76 3d 26 32 |g. 200 irq2v=&2|
00002430 30 36 20 3a 52 45 4d 3a 20 69 72 71 32 20 76 65 |06 :REM: irq2 ve|
00002440 63 74 6f 72 0d 20 20 32 31 30 20 74 74 78 63 6f |ctor. 210 ttxco|
00002450 6e 74 72 6f 6c 3d 26 46 43 31 30 20 3a 52 45 4d |ntrol=&FC10 :REM|
00002460 3a 20 54 54 58 20 63 6f 6e 74 72 6f 6c 20 72 65 |: TTX control re|
00002470 67 69 73 74 65 72 2c 20 77 72 69 74 65 20 6f 6e |gister, write on|
00002480 6c 79 0d 20 20 32 32 30 20 74 74 78 73 74 61 74 |ly. 220 ttxstat|
00002490 75 73 3d 26 46 43 31 30 20 3a 52 45 4d 3a 20 54 |us=&FC10 :REM: T|
000024a0 54 58 20 73 74 61 74 75 73 20 72 65 67 69 73 74 |TX status regist|
000024b0 65 72 2c 20 72 65 61 64 20 6f 6e 6c 79 0d 20 20 |er, read only. |
000024c0 32 33 30 20 72 6f 77 72 65 67 3d 26 46 43 31 31 |230 rowreg=&FC11|
000024d0 20 3a 52 45 4d 3a 20 54 54 58 20 72 6f 77 20 72 | :REM: TTX row r|
000024e0 65 67 69 73 74 65 72 2c 20 77 72 69 74 65 20 6f |egister, write o|
000024f0 6e 6c 79 0d 20 20 32 34 30 20 64 61 74 61 72 65 |nly. 240 datare|
00002500 67 3d 26 46 43 31 32 20 3a 52 45 4d 3a 20 54 54 |g=&FC12 :REM: TT|
00002510 58 20 64 61 74 61 20 72 65 67 69 73 74 65 72 2c |X data register,|
00002520 20 72 65 61 64 20 26 20 77 72 69 74 65 0d 20 20 | read & write. |
00002530 32 35 30 20 73 74 61 74 63 6c 72 3d 26 46 43 31 |250 statclr=&FC1|
00002540 33 20 3a 52 45 4d 3a 20 54 54 58 20 63 6c 65 61 |3 :REM: TTX clea|
00002550 72 20 73 74 61 74 75 73 20 72 65 67 69 73 74 65 |r status registe|
00002560 72 2c 20 72 65 61 64 20 26 20 77 72 69 74 65 0d |r, read & write.|
00002570 20 20 32 36 30 20 6f 73 77 72 63 68 3d 26 46 46 | 260 oswrch=&FF|
00002580 45 45 0d 20 20 32 37 30 20 6f 73 62 79 74 65 3d |EE. 270 osbyte=|
00002590 26 46 46 46 34 0d 20 20 32 38 30 20 46 4f 52 20 |&FFF4. 280 FOR |
000025a0 70 61 73 73 3d 30 20 54 4f 20 32 20 53 54 45 50 |pass=0 TO 2 STEP|
000025b0 20 32 0d 20 20 32 39 30 20 50 25 3d 6d 63 6f 64 | 2. 290 P%=mcod|
000025c0 65 0d 20 20 33 30 30 20 5b 20 20 20 20 20 20 20 |e. 300 [ |
000025d0 4f 50 54 20 70 61 73 73 0d 20 20 33 31 30 20 20 |OPT pass. 310 |
000025e0 20 20 20 20 20 20 20 4c 44 41 20 23 26 30 30 0d | LDA #&00.|
000025f0 20 20 33 32 30 20 20 20 20 20 20 20 20 20 53 54 | 320 ST|
00002600 41 20 67 72 61 62 66 6c 61 67 20 20 5c 20 67 72 |A grabflag \ gr|
00002610 61 62 66 6c 61 67 20 3d 20 73 65 61 72 63 68 69 |abflag = searchi|
00002620 6e 67 0d 20 20 33 33 30 20 20 20 20 20 20 20 20 |ng. 330 |
00002630 20 4c 44 58 20 69 72 71 32 76 20 20 20 20 20 5c | LDX irq2v \|
00002640 20 6c 6f 61 64 20 73 65 63 6f 6e 64 61 72 79 20 | load secondary |
00002650 69 6e 74 65 72 72 75 70 74 20 76 65 63 74 6f 72 |interrupt vector|
00002660 0d 20 20 33 34 30 20 20 20 20 20 20 20 20 20 4c |. 340 L|
00002670 44 59 20 69 72 71 32 76 2b 31 0d 20 20 33 35 30 |DY irq2v+1. 350|
00002680 20 20 20 20 20 20 20 20 20 53 54 58 20 6f 6c 64 | STX old|
00002690 69 72 71 32 76 20 20 5c 20 73 61 76 65 20 73 65 |irq2v \ save se|
000026a0 63 6f 6e 64 61 72 79 20 69 6e 74 65 72 72 75 70 |condary interrup|
000026b0 74 20 76 65 63 74 6f 72 0d 20 20 33 36 30 20 20 |t vector. 360 |
000026c0 20 20 20 20 20 20 20 53 54 59 20 6f 6c 64 69 72 | STY oldir|
000026d0 71 32 76 2b 31 0d 20 20 33 37 30 20 20 20 20 20 |q2v+1. 370 |
000026e0 20 20 20 20 4c 44 58 20 23 69 6e 74 65 72 72 75 | LDX #interru|
000026f0 70 74 20 4d 4f 44 20 32 35 36 20 5c 20 69 6e 73 |pt MOD 256 \ ins|
00002700 74 61 6c 6c 20 6e 65 77 20 69 6e 74 65 72 72 75 |tall new interru|
00002710 70 74 20 72 6f 75 74 69 6e 65 0d 20 20 33 38 30 |pt routine. 380|
00002720 20 20 20 20 20 20 20 20 20 4c 44 59 20 23 69 6e | LDY #in|
00002730 74 65 72 72 75 70 74 20 44 49 56 20 32 35 36 0d |terrupt DIV 256.|
00002740 20 20 33 39 30 20 20 20 20 20 20 20 20 20 53 45 | 390 SE|
00002750 49 20 20 20 20 20 20 20 20 20 20 20 5c 20 64 69 |I \ di|
00002760 73 61 62 6c 65 20 69 6e 74 65 72 72 75 70 74 73 |sable interrupts|
00002770 20 77 68 65 6e 20 61 6c 74 65 72 69 6e 67 20 76 | when altering v|
00002780 65 63 74 6f 72 73 0d 20 20 34 30 30 20 20 20 20 |ectors. 400 |
00002790 20 20 20 20 20 53 54 58 20 69 72 71 32 76 0d 20 | STX irq2v. |
000027a0 20 34 31 30 20 20 20 20 20 20 20 20 20 53 54 59 | 410 STY|
000027b0 20 69 72 71 32 76 2b 31 0d 20 20 34 32 30 20 20 | irq2v+1. 420 |
000027c0 20 20 20 20 20 20 20 43 4c 49 20 20 20 20 20 20 | CLI |
000027d0 20 20 20 20 20 5c 20 72 65 2d 65 6e 61 62 6c 65 | \ re-enable|
000027e0 20 69 6e 74 65 72 72 75 70 74 73 0d 20 20 34 33 | interrupts. 43|
000027f0 30 20 20 20 20 20 20 20 20 20 4c 44 41 20 63 68 |0 LDA ch|
00002800 61 6e 6e 65 6c 20 20 20 5c 20 6c 6f 61 64 20 28 |annel \ load (|
00002810 63 68 61 6e 6e 65 6c 20 6e 75 6d 62 65 72 20 2b |channel number +|
00002820 20 23 26 31 43 29 0d 20 20 34 34 30 20 20 20 20 | #&1C). 440 |
00002830 20 20 20 20 20 53 54 41 20 74 74 78 63 6f 6e 74 | STA ttxcont|
00002840 72 6f 6c 20 5c 20 65 6e 61 62 6c 65 20 54 54 58 |rol \ enable TTX|
00002850 0d 20 20 34 35 30 20 2e 6d 61 69 6e 6c 6f 6f 70 |. 450 .mainloop|
00002860 0d 20 20 34 36 30 20 20 20 20 20 20 20 20 20 4c |. 460 L|
00002870 44 41 20 67 72 61 62 66 6c 61 67 0d 20 20 34 37 |DA grabflag. 47|
00002880 30 20 20 20 20 20 20 20 20 20 42 50 4c 20 63 6f |0 BPL co|
00002890 6e 74 69 6e 75 65 20 20 5c 20 62 72 61 6e 63 68 |ntinue \ branch|
000028a0 20 69 66 20 73 65 61 72 63 68 69 6e 67 0d 20 20 | if searching. |
000028b0 34 38 30 20 20 20 20 20 20 20 20 20 4c 44 59 20 |480 LDY |
000028c0 23 26 30 33 20 20 20 20 20 20 5c 20 64 61 74 61 |#&03 \ data|
000028d0 20 73 74 61 72 74 73 20 61 74 20 62 79 74 65 20 | starts at byte |
000028e0 33 20 69 66 20 6e 6f 20 63 6f 6e 74 72 6f 6c 20 |3 if no control |
000028f0 62 79 74 65 73 0d 20 20 34 39 30 20 20 20 20 20 |bytes. 490 |
00002900 20 20 20 20 4c 44 41 20 62 75 66 66 65 72 20 20 | LDA buffer |
00002910 20 20 5c 20 66 6f 72 6d 61 74 20 74 79 70 65 0d | \ format type.|
00002920 20 20 35 30 30 20 20 20 20 20 20 20 20 20 41 4e | 500 AN|
00002930 44 20 23 26 30 32 20 20 20 20 20 20 5c 20 69 73 |D #&02 \ is|
00002940 20 72 65 70 65 61 74 20 69 6e 64 69 63 61 74 6f | repeat indicato|
00002950 72 20 69 6e 20 75 73 65 3f 0d 20 20 35 31 30 20 |r in use?. 510 |
00002960 20 20 20 20 20 20 20 20 42 45 51 20 63 68 65 63 | BEQ chec|
00002970 6b 63 69 20 20 20 5c 20 62 72 61 6e 63 68 20 69 |kci \ branch i|
00002980 66 20 6e 6f 74 20 75 73 65 64 0d 20 20 35 32 30 |f not used. 520|
00002990 20 20 20 20 20 20 20 20 20 49 4e 59 20 20 20 20 | INY |
000029a0 20 20 20 20 20 20 20 5c 20 69 6e 63 72 65 6d 65 | \ increme|
000029b0 6e 74 20 70 6f 69 6e 74 65 72 20 74 6f 20 73 74 |nt pointer to st|
000029c0 61 72 74 20 6f 66 20 64 61 74 61 0d 20 20 35 33 |art of data. 53|
000029d0 30 20 2e 63 68 65 63 6b 63 69 0d 20 20 35 34 30 |0 .checkci. 540|
000029e0 20 20 20 20 20 20 20 20 20 4c 44 41 20 62 75 66 | LDA buf|
000029f0 66 65 72 20 20 20 20 5c 20 66 6f 72 6d 61 74 20 |fer \ format |
00002a00 74 79 70 65 0d 20 20 35 35 30 20 20 20 20 20 20 |type. 550 |
00002a10 20 20 20 41 4e 44 20 23 26 30 34 20 20 20 20 20 | AND #&04 |
00002a20 20 5c 20 69 73 20 63 6f 6e 74 69 6e 75 69 74 79 | \ is continuity|
00002a30 20 69 6e 64 69 63 61 74 6f 72 20 69 6e 20 75 73 | indicator in us|
00002a40 65 3f 0d 20 20 35 36 30 20 20 20 20 20 20 20 20 |e?. 560 |
00002a50 20 42 45 51 20 63 68 65 63 6b 64 6c 20 20 20 5c | BEQ checkdl \|
00002a60 20 62 72 61 6e 63 68 20 69 66 20 6e 6f 74 20 75 | branch if not u|
00002a70 73 65 64 0d 20 20 35 37 30 20 20 20 20 20 20 20 |sed. 570 |
00002a80 20 20 49 4e 59 20 20 20 20 20 20 20 20 20 20 20 | INY |
00002a90 5c 20 69 6e 63 72 65 6d 65 6e 74 20 70 6f 69 6e |\ increment poin|
00002aa0 74 65 72 20 74 6f 20 73 74 61 72 74 20 6f 66 20 |ter to start of |
00002ab0 64 61 74 61 0d 20 20 35 38 30 20 2e 63 68 65 63 |data. 580 .chec|
00002ac0 6b 64 6c 0d 20 20 35 39 30 20 20 20 20 20 20 20 |kdl. 590 |
00002ad0 20 20 4c 44 41 20 62 75 66 66 65 72 20 20 20 20 | LDA buffer |
00002ae0 5c 20 66 6f 72 6d 61 74 20 74 79 70 65 0d 20 20 |\ format type. |
00002af0 36 30 30 20 20 20 20 20 20 20 20 20 41 4e 44 20 |600 AND |
00002b00 23 26 30 38 20 20 20 20 20 20 5c 20 69 73 20 64 |#&08 \ is d|
00002b10 61 74 61 20 6c 65 6e 67 74 68 20 69 6e 20 75 73 |ata length in us|
00002b20 65 3f 0d 20 20 36 31 30 20 20 20 20 20 20 20 20 |e?. 610 |
00002b30 20 42 45 51 20 6c 6f 61 64 6e 75 6d 62 65 72 20 | BEQ loadnumber |
00002b40 5c 20 62 72 61 6e 63 68 20 69 66 20 6e 6f 74 20 |\ branch if not |
00002b50 75 73 65 64 0d 20 20 36 32 30 20 20 20 20 20 20 |used. 620 |
00002b60 20 20 20 4c 44 41 20 62 75 66 66 65 72 2c 59 20 | LDA buffer,Y |
00002b70 20 5c 20 6c 6f 61 64 20 64 61 74 61 20 6c 65 6e | \ load data len|
00002b80 67 74 68 0d 20 20 36 33 30 20 20 20 20 20 20 20 |gth. 630 |
00002b90 20 20 49 4e 59 20 20 20 20 20 20 20 20 20 20 20 | INY |
00002ba0 5c 20 69 6e 63 72 65 6d 65 6e 74 20 70 6f 69 6e |\ increment poin|
00002bb0 74 65 72 20 74 6f 20 73 74 61 72 74 20 6f 66 20 |ter to start of |
00002bc0 64 61 74 61 0d 20 20 36 34 30 20 20 20 20 20 20 |data. 640 |
00002bd0 20 20 20 41 4e 44 20 23 26 33 46 20 20 20 20 20 | AND #&3F |
00002be0 20 5c 20 64 61 74 61 20 6c 65 6e 67 74 68 20 69 | \ data length i|
00002bf0 73 20 61 20 36 20 62 69 74 20 6e 75 6d 62 65 72 |s a 6 bit number|
00002c00 0d 20 20 36 35 30 20 20 20 20 20 20 20 20 20 53 |. 650 S|
00002c10 54 41 20 74 65 6d 70 20 20 20 20 20 20 5c 20 6e |TA temp \ n|
00002c20 75 6d 62 65 72 20 6f 66 20 64 61 74 61 20 62 79 |umber of data by|
00002c30 74 65 73 0d 20 20 36 36 30 20 20 20 20 20 20 20 |tes. 660 |
00002c40 20 20 54 59 41 20 20 20 20 20 20 20 20 20 20 20 | TYA |
00002c50 5c 20 6f 66 66 73 65 74 20 74 6f 20 73 74 61 72 |\ offset to star|
00002c60 74 20 6f 66 20 64 61 74 61 0d 20 20 36 37 30 20 |t of data. 670 |
00002c70 20 20 20 20 20 20 20 20 43 4c 43 0d 20 20 36 38 | CLC. 68|
00002c80 30 20 20 20 20 20 20 20 20 20 41 44 43 20 74 65 |0 ADC te|
00002c90 6d 70 20 20 20 20 20 20 5c 20 61 64 64 20 6f 66 |mp \ add of|
00002ca0 66 73 65 74 20 74 6f 20 6e 75 6d 62 65 72 20 6f |fset to number o|
00002cb0 66 20 64 61 74 61 20 62 79 74 65 73 0d 20 20 36 |f data bytes. 6|
00002cc0 39 30 20 20 20 20 20 20 20 20 20 43 4d 50 20 23 |90 CMP #|
00002cd0 26 32 36 20 20 20 20 20 20 5c 20 6d 61 78 69 6d |&26 \ maxim|
00002ce0 75 6d 20 6c 65 6e 67 74 68 0d 20 20 37 30 30 20 |um length. 700 |
00002cf0 20 20 20 20 20 20 20 20 42 43 43 20 73 61 66 65 | BCC safe|
00002d00 6e 75 6d 62 65 72 0d 20 20 37 31 30 20 2e 6c 6f |number. 710 .lo|
00002d10 61 64 6e 75 6d 62 65 72 0d 20 20 37 32 30 20 20 |adnumber. 720 |
00002d20 20 20 20 20 20 20 20 4c 44 41 20 23 26 32 36 0d | LDA #&26.|
00002d30 20 20 37 33 30 20 2e 73 61 66 65 6e 75 6d 62 65 | 730 .safenumbe|
00002d40 72 0d 20 20 37 34 30 20 20 20 20 20 20 20 20 20 |r. 740 |
00002d50 53 54 41 20 64 61 74 61 6c 65 6e 20 20 20 5c 20 |STA datalen \ |
00002d60 6c 61 73 74 20 64 61 74 61 20 62 79 74 65 20 69 |last data byte i|
00002d70 6e 20 62 75 66 66 65 72 0d 20 20 37 35 30 20 2e |n buffer. 750 .|
00002d80 70 72 69 6e 74 6c 6f 6f 70 0d 20 20 37 36 30 20 |printloop. 760 |
00002d90 20 20 20 20 20 20 20 20 4c 44 41 20 62 75 66 66 | LDA buff|
00002da0 65 72 2c 59 20 20 5c 20 6c 6f 61 64 20 64 61 74 |er,Y \ load dat|
00002db0 61 20 62 79 74 65 0d 20 20 37 37 30 20 20 20 20 |a byte. 770 |
00002dc0 20 20 20 20 20 41 4e 44 20 23 26 37 46 20 20 20 | AND #&7F |
00002dd0 20 20 20 5c 20 63 6c 65 61 72 20 62 69 74 20 37 | \ clear bit 7|
00002de0 0d 20 20 37 38 30 20 20 20 20 20 20 20 20 20 43 |. 780 C|
00002df0 4d 50 20 23 26 30 41 20 20 20 20 20 20 5c 20 69 |MP #&0A \ i|
00002e00 73 20 74 68 69 73 20 62 79 74 65 20 61 20 6c 69 |s this byte a li|
00002e10 6e 65 20 66 65 65 64 3f 0d 20 20 37 39 30 20 20 |ne feed?. 790 |
00002e20 20 20 20 20 20 20 20 42 45 51 20 70 72 69 6e 74 | BEQ print|
00002e30 6f 6b 20 20 20 5c 20 6f 6b 20 74 6f 20 70 72 69 |ok \ ok to pri|
00002e40 6e 74 20 6c 69 6e 65 20 66 65 65 64 0d 20 20 38 |nt line feed. 8|
00002e50 30 30 20 20 20 20 20 20 20 20 20 43 4d 50 20 23 |00 CMP #|
00002e60 26 30 44 20 20 20 20 20 20 5c 20 69 73 20 74 68 |&0D \ is th|
00002e70 69 73 20 62 79 74 65 20 61 20 72 65 74 75 72 6e |is byte a return|
00002e80 3f 0d 20 20 38 31 30 20 20 20 20 20 20 20 20 20 |?. 810 |
00002e90 42 45 51 20 70 72 69 6e 74 6f 6b 20 20 20 5c 20 |BEQ printok \ |
00002ea0 6f 6b 20 74 6f 20 70 72 69 6e 74 20 72 65 74 75 |ok to print retu|
00002eb0 72 6e 0d 20 20 38 32 30 20 20 20 20 20 20 20 20 |rn. 820 |
00002ec0 20 43 4d 50 20 23 41 53 43 28 22 20 22 29 20 5c | CMP #ASC(" ") \|
00002ed0 20 69 73 20 69 74 20 61 6e 79 20 6f 74 68 65 72 | is it any other|
00002ee0 20 63 6f 6e 74 72 6f 6c 20 62 79 74 65 3f 0d 20 | control byte?. |
00002ef0 20 38 33 30 20 20 20 20 20 20 20 20 20 42 43 43 | 830 BCC|
00002f00 20 6e 65 78 74 70 72 69 6e 74 20 5c 20 64 6f 6e | nextprint \ don|
00002f10 27 74 20 70 72 69 6e 74 20 63 6f 6e 74 72 6f 6c |'t print control|
00002f20 20 63 68 61 72 61 63 74 65 72 73 0d 20 20 38 34 | characters. 84|
00002f30 30 20 20 20 20 20 20 20 20 20 43 4d 50 20 23 26 |0 CMP #&|
00002f40 37 46 20 20 20 20 20 20 5c 20 69 73 20 69 74 20 |7F \ is it |
00002f50 64 65 6c 65 74 65 20 61 6e 64 20 62 61 63 6b 73 |delete and backs|
00002f60 70 61 63 65 3f 0d 20 20 38 35 30 20 20 20 20 20 |pace?. 850 |
00002f70 20 20 20 20 42 45 51 20 6e 65 78 74 70 72 69 6e | BEQ nextprin|
00002f80 74 20 5c 20 64 6f 6e 27 74 20 70 72 69 6e 74 20 |t \ don't print |
00002f90 64 65 6c 65 74 65 20 61 6e 64 20 62 61 63 6b 73 |delete and backs|
00002fa0 70 61 63 65 0d 20 20 38 36 30 20 2e 70 72 69 6e |pace. 860 .prin|
00002fb0 74 6f 6b 0d 20 20 38 37 30 20 20 20 20 20 20 20 |tok. 870 |
00002fc0 20 20 4a 53 52 20 6f 73 77 72 63 68 20 20 20 20 | JSR oswrch |
00002fd0 5c 20 70 72 69 6e 74 20 62 79 74 65 20 6f 6e 20 |\ print byte on |
00002fe0 73 63 72 65 65 6e 0d 20 20 38 38 30 20 2e 6e 65 |screen. 880 .ne|
00002ff0 78 74 70 72 69 6e 74 0d 20 20 38 39 30 20 20 20 |xtprint. 890 |
00003000 20 20 20 20 20 20 49 4e 59 20 20 20 20 20 20 20 | INY |
00003010 20 20 20 20 5c 20 70 6f 69 6e 74 20 6f 66 66 73 | \ point offs|
00003020 65 74 20 74 6f 20 6e 65 78 74 20 62 79 74 65 0d |et to next byte.|
00003030 20 20 39 30 30 20 20 20 20 20 20 20 20 20 43 50 | 900 CP|
00003040 59 20 64 61 74 61 6c 65 6e 20 20 20 5c 20 70 72 |Y datalen \ pr|
00003050 69 6e 74 20 74 6f 20 74 68 65 20 65 6e 64 20 6f |int to the end o|
00003060 66 20 74 68 65 20 70 61 63 6b 65 74 0d 20 20 39 |f the packet. 9|
00003070 31 30 20 20 20 20 20 20 20 20 20 42 43 43 20 70 |10 BCC p|
00003080 72 69 6e 74 6c 6f 6f 70 0d 20 20 39 32 30 20 20 |rintloop. 920 |
00003090 20 20 20 20 20 20 20 4c 44 41 20 23 26 30 30 20 | LDA #&00 |
000030a0 20 20 20 20 20 5c 20 63 6c 65 61 72 20 67 72 61 | \ clear gra|
000030b0 62 66 6c 61 67 20 61 6e 64 20 73 74 61 72 74 0d |bflag and start.|
000030c0 20 20 39 33 30 20 20 20 20 20 20 20 20 20 53 54 | 930 ST|
000030d0 41 20 67 72 61 62 66 6c 61 67 20 20 5c 20 73 65 |A grabflag \ se|
000030e0 61 72 63 68 69 6e 67 20 61 67 61 69 6e 0d 20 20 |arching again. |
000030f0 39 34 30 20 2e 63 6f 6e 74 69 6e 75 65 0d 20 20 |940 .continue. |
00003100 39 35 30 20 20 20 20 20 20 20 20 20 4c 44 41 20 |950 LDA |
00003110 65 73 63 61 70 65 20 20 20 20 5c 20 70 6f 6c 6c |escape \ poll|
00003120 20 65 73 63 61 70 65 20 66 6c 61 67 0d 20 20 39 | escape flag. 9|
00003130 36 30 20 20 20 20 20 20 20 20 20 42 50 4c 20 6d |60 BPL m|
00003140 61 69 6e 6c 6f 6f 70 20 20 5c 20 6c 6f 6f 70 20 |ainloop \ loop |
00003150 69 66 20 65 73 63 61 70 65 20 6e 6f 74 20 70 72 |if escape not pr|
00003160 65 73 73 65 64 0d 20 20 39 37 30 20 20 20 20 20 |essed. 970 |
00003170 20 20 20 20 4c 44 41 20 23 26 37 45 20 20 20 20 | LDA #&7E |
00003180 20 20 5c 20 64 65 63 69 6d 61 6c 20 31 32 36 0d | \ decimal 126.|
00003190 20 20 39 38 30 20 20 20 20 20 20 20 20 20 4a 53 | 980 JS|
000031a0 52 20 6f 73 62 79 74 65 20 20 20 20 5c 20 61 63 |R osbyte \ ac|
000031b0 6b 6e 6f 77 6c 65 64 67 65 20 65 73 63 61 70 65 |knowledge escape|
000031c0 0d 20 20 39 39 30 20 20 20 20 20 20 20 20 20 4c |. 990 L|
000031d0 44 41 20 23 26 30 30 0d 20 31 30 30 30 20 20 20 |DA #&00. 1000 |
000031e0 20 20 20 20 20 20 53 54 41 20 74 74 78 63 6f 6e | STA ttxcon|
000031f0 74 72 6f 6c 20 5c 20 64 69 73 61 62 6c 65 20 54 |trol \ disable T|
00003200 54 58 0d 20 31 30 31 30 20 20 20 20 20 20 20 20 |TX. 1010 |
00003210 20 4c 44 58 20 6f 6c 64 69 72 71 32 76 20 20 5c | LDX oldirq2v \|
00003220 20 6c 6f 61 64 20 6f 72 69 67 69 6e 61 6c 20 76 | load original v|
00003230 65 63 74 6f 72 0d 20 31 30 32 30 20 20 20 20 20 |ector. 1020 |
00003240 20 20 20 20 4c 44 59 20 6f 6c 64 69 72 71 32 76 | LDY oldirq2v|
00003250 2b 31 0d 20 31 30 33 30 20 20 20 20 20 20 20 20 |+1. 1030 |
00003260 20 53 45 49 20 20 20 20 20 20 20 20 20 20 20 5c | SEI \|
00003270 20 64 69 73 61 62 6c 65 20 69 6e 74 65 72 72 75 | disable interru|
00003280 70 74 73 20 77 68 65 6e 20 61 6c 74 65 72 69 6e |pts when alterin|
00003290 67 20 76 65 63 74 6f 72 0d 20 31 30 34 30 20 20 |g vector. 1040 |
000032a0 20 20 20 20 20 20 20 53 54 58 20 69 72 71 32 76 | STX irq2v|
000032b0 20 20 20 20 20 5c 20 72 65 73 74 6f 72 65 20 6f | \ restore o|
000032c0 72 69 67 69 6e 61 6c 20 76 65 63 74 6f 72 0d 20 |riginal vector. |
000032d0 31 30 35 30 20 20 20 20 20 20 20 20 20 53 54 59 |1050 STY|
000032e0 20 69 72 71 32 76 2b 31 0d 20 31 30 36 30 20 20 | irq2v+1. 1060 |
000032f0 20 20 20 20 20 20 20 43 4c 49 20 20 20 20 20 20 | CLI |
00003300 20 20 20 20 20 5c 20 72 65 2d 65 6e 61 62 6c 65 | \ re-enable|
00003310 20 69 6e 74 65 72 72 75 70 74 73 0d 20 31 30 37 | interrupts. 107|
00003320 30 20 20 20 20 20 20 20 20 20 52 54 53 20 20 20 |0 RTS |
00003330 20 20 20 20 20 20 20 20 5c 20 72 65 74 75 72 6e | \ return|
00003340 20 74 6f 20 42 41 53 49 43 0d 20 31 30 38 30 20 | to BASIC. 1080 |
00003350 2e 69 6e 74 65 72 72 75 70 74 0d 20 31 30 39 30 |.interrupt. 1090|
00003360 20 20 20 20 20 20 20 20 20 42 49 54 20 74 74 78 | BIT ttx|
00003370 73 74 61 74 75 73 20 5c 20 70 6f 6c 6c 20 54 54 |status \ poll TT|
00003380 58 20 68 61 72 64 77 61 72 65 0d 20 31 31 30 30 |X hardware. 1100|
00003390 20 20 20 20 20 20 20 20 20 42 4d 49 20 74 74 78 | BMI ttx|
000033a0 69 6e 74 65 72 20 20 5c 20 62 72 61 6e 63 68 20 |inter \ branch |
000033b0 69 66 20 54 54 58 20 69 6e 74 65 72 72 75 70 74 |if TTX interrupt|
000033c0 0d 20 31 31 31 30 20 20 20 20 20 20 20 20 20 4a |. 1110 J|
000033d0 4d 50 20 28 6f 6c 64 69 72 71 32 76 29 20 5c 20 |MP (oldirq2v) \ |
000033e0 6e 6f 74 20 54 54 58 20 69 6e 74 65 72 72 75 70 |not TTX interrup|
000033f0 74 0d 20 31 31 32 30 20 2e 74 74 78 69 6e 74 65 |t. 1120 .ttxinte|
00003400 72 0d 20 31 31 33 30 20 20 20 20 20 20 20 20 20 |r. 1130 |
00003410 4c 44 41 20 73 61 76 65 72 65 67 20 20 20 5c 20 |LDA savereg \ |
00003420 69 6e 74 65 72 72 75 70 74 20 61 63 63 75 6d 75 |interrupt accumu|
00003430 6c 61 74 6f 72 20 73 61 76 65 20 72 65 67 69 73 |lator save regis|
00003440 74 65 72 0d 20 31 31 34 30 20 20 20 20 20 20 20 |ter. 1140 |
00003450 20 20 50 48 41 20 20 20 20 20 20 20 20 20 20 20 | PHA |
00003460 5c 20 70 75 73 68 20 69 6e 74 65 72 72 75 70 74 |\ push interrupt|
00003470 20 61 63 63 75 6d 75 6c 61 74 6f 72 20 73 61 76 | accumulator sav|
00003480 65 20 72 65 67 69 73 74 65 72 0d 20 31 31 35 30 |e register. 1150|
00003490 20 20 20 20 20 20 20 20 20 54 58 41 0d 20 31 31 | TXA. 11|
000034a0 36 30 20 20 20 20 20 20 20 20 20 50 48 41 20 20 |60 PHA |
000034b0 20 20 20 20 20 20 20 20 20 5c 20 70 75 73 68 20 | \ push |
000034c0 58 0d 20 31 31 37 30 20 20 20 20 20 20 20 20 20 |X. 1170 |
000034d0 54 59 41 0d 20 31 31 38 30 20 20 20 20 20 20 20 |TYA. 1180 |
000034e0 20 20 50 48 41 20 20 20 20 20 20 20 20 20 20 20 | PHA |
000034f0 5c 20 70 75 73 68 20 59 0d 20 31 31 39 30 20 20 |\ push Y. 1190 |
00003500 20 20 20 20 20 20 20 4c 44 41 20 67 72 61 62 66 | LDA grabf|
00003510 6c 61 67 20 20 5c 20 69 73 20 61 20 70 61 67 65 |lag \ is a page|
00003520 20 72 65 61 64 79 20 66 6f 72 20 64 69 73 70 6c | ready for displ|
00003530 61 79 3f 0d 20 31 32 30 30 20 20 20 20 20 20 20 |ay?. 1200 |
00003540 20 20 42 4d 49 20 63 6c 65 61 72 73 74 61 74 75 | BMI clearstatu|
00003550 73 20 5c 20 63 6c 65 61 72 20 73 74 61 74 75 73 |s \ clear status|
00003560 20 61 6e 64 20 52 54 49 20 69 66 20 70 61 67 65 | and RTI if page|
00003570 20 67 72 61 62 62 65 64 0d 20 31 32 31 30 20 20 | grabbed. 1210 |
00003580 20 20 20 20 20 20 20 43 4c 44 20 20 20 20 20 20 | CLD |
00003590 20 20 20 20 20 5c 20 63 6c 65 61 72 20 64 65 63 | \ clear dec|
000035a0 69 6d 61 6c 20 66 6c 61 67 0d 20 31 32 32 30 20 |imal flag. 1220 |
000035b0 20 20 20 20 20 20 20 20 4c 44 59 20 23 26 30 30 | LDY #&00|
000035c0 20 20 20 20 20 20 5c 20 73 74 61 72 74 20 77 69 | \ start wi|
000035d0 74 68 20 72 6f 77 20 30 0d 20 31 32 33 30 20 2e |th row 0. 1230 .|
000035e0 72 65 61 64 74 74 78 74 0d 20 31 32 34 30 20 20 |readttxt. 1240 |
000035f0 20 20 20 20 20 20 20 53 54 59 20 72 6f 77 72 65 | STY rowre|
00003600 67 20 20 20 20 5c 20 74 72 79 20 72 6f 77 73 20 |g \ try rows |
00003610 30 20 74 6f 20 31 35 0d 20 31 32 35 30 20 20 20 |0 to 15. 1250 |
00003620 20 20 20 20 20 20 4c 44 41 20 64 61 74 61 72 65 | LDA datare|
00003630 67 20 20 20 5c 20 6c 6f 61 64 20 66 72 61 6d 69 |g \ load frami|
00003640 6e 67 20 63 6f 64 65 0d 20 31 32 36 30 20 20 20 |ng code. 1260 |
00003650 20 20 20 20 20 20 42 45 51 20 65 6d 70 74 79 72 | BEQ emptyr|
00003660 6f 77 20 20 5c 20 69 66 20 7a 65 72 6f 20 74 72 |ow \ if zero tr|
00003670 79 20 6e 65 78 74 20 72 6f 77 0d 20 31 32 37 30 |y next row. 1270|
00003680 20 20 20 20 20 20 20 20 20 54 59 41 0d 20 31 32 | TYA. 12|
00003690 38 30 20 20 20 20 20 20 20 20 20 50 48 41 20 20 |80 PHA |
000036a0 20 20 20 20 20 20 20 20 20 5c 20 73 61 76 65 20 | \ save |
000036b0 72 6f 77 20 6e 75 6d 62 65 72 0d 20 31 32 39 30 |row number. 1290|
000036c0 20 20 20 20 20 20 20 20 20 4a 53 52 20 72 65 61 | JSR rea|
000036d0 64 70 61 63 6b 65 74 0d 20 31 33 30 30 20 20 20 |dpacket. 1300 |
000036e0 20 20 20 20 20 20 50 4c 41 0d 20 31 33 31 30 20 | PLA. 1310 |
000036f0 20 20 20 20 20 20 20 20 54 41 59 20 20 20 20 20 | TAY |
00003700 20 20 20 20 20 20 5c 20 72 65 73 74 6f 72 65 20 | \ restore |
00003710 72 6f 77 20 6e 75 6d 62 65 72 0d 20 31 33 32 30 |row number. 1320|
00003720 20 2e 65 6d 70 74 79 72 6f 77 0d 20 31 33 33 30 | .emptyrow. 1330|
00003730 20 20 20 20 20 20 20 20 20 49 4e 59 20 20 20 20 | INY |
00003740 20 20 20 20 20 20 20 5c 20 69 6e 63 72 65 6d 65 | \ increme|
00003750 6e 74 20 72 6f 77 20 6e 75 6d 62 65 72 0d 20 31 |nt row number. 1|
00003760 33 34 30 20 20 20 20 20 20 20 20 20 43 50 59 20 |340 CPY |
00003770 23 26 31 30 20 20 20 20 20 20 5c 20 74 72 79 20 |#&10 \ try |
00003780 72 6f 77 73 20 30 20 2d 20 31 35 0d 20 31 33 35 |rows 0 - 15. 135|
00003790 30 20 20 20 20 20 20 20 20 20 42 4e 45 20 72 65 |0 BNE re|
000037a0 61 64 74 74 78 74 0d 20 31 33 36 30 20 2e 63 6c |adttxt. 1360 .cl|
000037b0 65 61 72 73 74 61 74 75 73 0d 20 31 33 37 30 20 |earstatus. 1370 |
000037c0 20 20 20 20 20 20 20 20 4c 44 41 20 23 26 30 30 | LDA #&00|
000037d0 0d 20 31 33 38 30 20 20 20 20 20 20 20 20 20 4c |. 1380 L|
000037e0 44 59 20 23 26 30 46 20 20 20 20 20 20 5c 20 63 |DY #&0F \ c|
000037f0 6c 65 61 72 20 31 36 20 72 6f 77 73 20 69 6e 20 |lear 16 rows in |
00003800 61 64 61 70 74 6f 72 0d 20 31 33 39 30 20 2e 63 |adaptor. 1390 .c|
00003810 6c 65 61 72 6c 6f 6f 70 0d 20 31 34 30 30 20 20 |learloop. 1400 |
00003820 20 20 20 20 20 20 20 53 54 59 20 72 6f 77 72 65 | STY rowre|
00003830 67 0d 20 31 34 31 30 20 20 20 20 20 20 20 20 20 |g. 1410 |
00003840 53 54 41 20 64 61 74 61 72 65 67 0d 20 31 34 32 |STA datareg. 142|
00003850 30 20 20 20 20 20 20 20 20 20 44 45 59 0d 20 31 |0 DEY. 1|
00003860 34 33 30 20 20 20 20 20 20 20 20 20 42 50 4c 20 |430 BPL |
00003870 63 6c 65 61 72 6c 6f 6f 70 0d 20 31 34 34 30 20 |clearloop. 1440 |
00003880 20 20 20 20 20 20 20 20 53 54 41 20 73 74 61 74 | STA stat|
00003890 63 6c 72 20 20 20 5c 20 63 6c 65 61 72 20 73 74 |clr \ clear st|
000038a0 61 74 75 73 20 66 6c 61 67 73 20 62 65 66 6f 72 |atus flags befor|
000038b0 65 20 72 65 74 75 72 6e 69 6e 67 0d 20 31 34 35 |e returning. 145|
000038c0 30 20 20 20 20 20 20 20 20 20 50 4c 41 0d 20 31 |0 PLA. 1|
000038d0 34 36 30 20 20 20 20 20 20 20 20 20 54 41 59 20 |460 TAY |
000038e0 20 20 20 20 20 20 20 20 20 20 5c 20 72 65 73 74 | \ rest|
000038f0 6f 72 65 20 59 0d 20 31 34 37 30 20 20 20 20 20 |ore Y. 1470 |
00003900 20 20 20 20 50 4c 41 0d 20 31 34 38 30 20 20 20 | PLA. 1480 |
00003910 20 20 20 20 20 20 54 41 58 20 20 20 20 20 20 20 | TAX |
00003920 20 20 20 20 5c 20 72 65 73 74 6f 72 65 20 58 0d | \ restore X.|
00003930 20 31 34 39 30 20 20 20 20 20 20 20 20 20 50 4c | 1490 PL|
00003940 41 0d 20 31 35 30 30 20 20 20 20 20 20 20 20 20 |A. 1500 |
00003950 53 54 41 20 73 61 76 65 72 65 67 20 20 20 5c 20 |STA savereg \ |
00003960 72 65 73 74 6f 72 65 20 69 6e 74 65 72 72 75 70 |restore interrup|
00003970 74 20 61 63 63 75 6d 75 6c 61 74 6f 72 20 73 61 |t accumulator sa|
00003980 76 65 20 72 65 67 69 73 74 65 72 0d 20 31 35 31 |ve register. 151|
00003990 30 20 20 20 20 20 20 20 20 20 52 54 49 20 20 20 |0 RTI |
000039a0 20 20 20 20 20 20 20 20 5c 20 72 65 74 75 72 6e | \ return|
000039b0 20 66 72 6f 6d 20 69 6e 74 65 72 72 75 70 74 0d | from interrupt.|
000039c0 20 31 35 32 30 20 2e 72 65 61 64 70 61 63 6b 65 | 1520 .readpacke|
000039d0 74 0d 20 31 35 33 30 20 20 20 20 20 20 20 20 20 |t. 1530 |
000039e0 4c 44 59 20 64 61 74 61 72 65 67 20 20 20 5c 20 |LDY datareg \ |
000039f0 72 65 61 64 20 6d 61 67 61 7a 69 6e 65 20 6e 75 |read magazine nu|
00003a00 6d 62 65 72 0d 20 31 35 34 30 20 20 20 20 20 20 |mber. 1540 |
00003a10 20 20 20 4c 44 41 20 68 61 6d 74 61 62 6c 65 2c | LDA hamtable,|
00003a20 59 20 5c 20 64 65 2d 68 61 6d 20 69 74 0d 20 31 |Y \ de-ham it. 1|
00003a30 35 35 30 20 20 20 20 20 20 20 20 20 42 4d 49 20 |550 BMI |
00003a40 72 65 74 75 72 6e 20 20 20 20 5c 20 73 74 6f 70 |return \ stop|
00003a50 20 6c 6f 61 64 69 6e 67 20 69 66 20 65 72 72 6f | loading if erro|
00003a60 72 0d 20 31 35 36 30 20 20 20 20 20 20 20 20 20 |r. 1560 |
00003a70 53 54 41 20 6d 61 67 61 7a 69 6e 65 20 20 5c 20 |STA magazine \ |
00003a80 73 61 76 65 20 6d 61 67 61 7a 69 6e 65 20 6e 75 |save magazine nu|
00003a90 6d 62 65 72 0d 20 31 35 37 30 20 20 20 20 20 20 |mber. 1570 |
00003aa0 20 20 20 4c 44 59 20 64 61 74 61 72 65 67 20 20 | LDY datareg |
00003ab0 20 5c 20 72 65 61 64 20 70 61 63 6b 65 74 20 6e | \ read packet n|
00003ac0 75 6d 62 65 72 0d 20 31 35 38 30 20 20 20 20 20 |umber. 1580 |
00003ad0 20 20 20 20 4c 44 41 20 68 61 6d 74 61 62 6c 65 | LDA hamtable|
00003ae0 2c 59 20 5c 20 64 65 2d 68 61 6d 20 69 74 0d 20 |,Y \ de-ham it. |
00003af0 31 35 39 30 20 20 20 20 20 20 20 20 20 42 4d 49 |1590 BMI|
00003b00 20 72 65 74 75 72 6e 20 20 20 20 5c 20 73 74 6f | return \ sto|
00003b10 70 20 6c 6f 61 64 69 6e 67 20 69 66 20 65 72 72 |p loading if err|
00003b20 6f 72 0d 20 31 36 30 30 20 20 20 20 20 20 20 20 |or. 1600 |
00003b30 20 53 54 41 20 70 61 63 6b 65 74 20 20 20 20 5c | STA packet \|
00003b40 20 73 61 76 65 20 70 61 63 6b 65 74 20 6e 75 6d | save packet num|
00003b50 62 65 72 0d 20 31 36 31 30 20 20 20 20 20 20 20 |ber. 1610 |
00003b60 20 20 4c 44 41 20 6d 61 67 61 7a 69 6e 65 20 20 | LDA magazine |
00003b70 5c 20 6c 6f 61 64 20 6d 61 67 61 7a 69 6e 65 20 |\ load magazine |
00003b80 6e 75 6d 62 65 72 0d 20 31 36 32 30 20 20 20 20 |number. 1620 |
00003b90 20 20 20 20 20 43 4d 50 20 23 26 30 38 20 20 20 | CMP #&08 |
00003ba0 20 20 20 5c 20 62 69 74 20 33 20 6f 66 20 6d 61 | \ bit 3 of ma|
00003bb0 67 2e 20 6e 75 6d 62 65 72 20 69 73 20 62 69 74 |g. number is bit|
00003bc0 20 30 20 6f 66 20 70 61 63 6b 65 74 0d 20 20 20 | 0 of packet. |
00003bd0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00003be0 20 20 20 20 20 20 20 20 20 5c 20 6e 75 6d 62 65 | \ numbe|
00003bf0 72 0d 20 31 36 33 30 20 20 20 20 20 20 20 20 20 |r. 1630 |
00003c00 52 4f 4c 20 70 61 63 6b 65 74 20 20 20 20 5c 20 |ROL packet \ |
00003c10 35 20 62 69 74 20 70 61 63 6b 65 74 20 6e 75 6d |5 bit packet num|
00003c20 62 65 72 0d 20 31 36 34 30 20 20 20 20 20 20 20 |ber. 1640 |
00003c30 20 20 41 4e 44 20 23 26 30 37 20 20 20 20 20 20 | AND #&07 |
00003c40 5c 20 75 73 65 20 6f 6e 6c 79 20 62 69 74 73 20 |\ use only bits |
00003c50 30 2d 32 0d 20 31 36 35 30 20 20 20 20 20 20 20 |0-2. 1650 |
00003c60 20 20 53 54 41 20 6d 61 67 61 7a 69 6e 65 20 20 | STA magazine |
00003c70 5c 20 33 20 62 69 74 20 6d 61 67 61 7a 69 6e 65 |\ 3 bit magazine|
00003c80 20 6e 75 6d 62 65 72 0d 20 31 36 36 30 20 20 20 | number. 1660 |
00003c90 20 20 20 20 20 20 4c 44 41 20 70 61 63 6b 65 74 | LDA packet|
00003ca0 0d 20 31 36 37 30 20 20 20 20 20 20 20 20 20 43 |. 1670 C|
00003cb0 4d 50 20 23 26 31 46 20 20 20 20 20 20 5c 20 69 |MP #&1F \ i|
00003cc0 67 6e 6f 72 65 20 61 6c 6c 20 65 78 63 65 70 74 |gnore all except|
00003cd0 20 70 61 63 6b 65 74 20 33 31 0d 20 31 36 38 30 | packet 31. 1680|
00003ce0 20 20 20 20 20 20 20 20 20 42 4e 45 20 72 65 74 | BNE ret|
00003cf0 75 72 6e 0d 20 31 36 39 30 20 20 20 20 20 20 20 |urn. 1690 |
00003d00 20 20 4c 44 41 20 63 68 61 6e 6e 65 6c 20 20 20 | LDA channel |
00003d10 5c 20 54 56 20 63 68 61 6e 6e 65 6c 0d 20 31 37 |\ TV channel. 17|
00003d20 30 30 20 20 20 20 20 20 20 20 20 43 4d 50 20 23 |00 CMP #|
00003d30 26 31 45 20 20 20 20 20 20 5c 20 69 73 20 74 68 |&1E \ is th|
00003d40 69 73 20 49 54 56 3f 0d 20 31 37 31 30 20 20 20 |is ITV?. 1710 |
00003d50 20 20 20 20 20 20 42 43 53 20 63 61 72 72 79 6f | BCS carryo|
00003d60 6e 20 20 20 5c 20 62 72 61 6e 63 68 20 69 66 20 |n \ branch if |
00003d70 49 54 56 20 6f 72 20 43 48 34 0d 20 31 37 32 30 |ITV or CH4. 1720|
00003d80 20 20 20 20 20 20 20 20 20 4c 44 41 20 6d 61 67 | LDA mag|
00003d90 61 7a 69 6e 65 20 20 5c 20 74 68 69 73 20 6d 75 |azine \ this mu|
00003da0 73 74 20 62 65 20 42 42 43 31 20 6f 72 20 42 42 |st be BBC1 or BB|
00003db0 43 32 0d 20 31 37 33 30 20 20 20 20 20 20 20 20 |C2. 1730 |
00003dc0 20 43 4d 50 20 23 26 30 33 20 20 20 20 20 20 5c | CMP #&03 \|
00003dd0 20 69 67 6e 6f 72 65 20 61 6c 6c 20 65 78 63 65 | ignore all exce|
00003de0 70 74 20 63 68 61 6e 6e 65 6c 20 31 31 0d 20 31 |pt channel 11. 1|
00003df0 37 34 30 20 20 20 20 20 20 20 20 20 42 4e 45 20 |740 BNE |
00003e00 72 65 74 75 72 6e 0d 20 31 37 35 30 20 2e 63 61 |return. 1750 .ca|
00003e10 72 72 79 6f 6e 0d 20 31 37 36 30 20 20 20 20 20 |rryon. 1760 |
00003e20 20 20 20 20 4c 44 59 20 23 26 30 30 20 20 20 20 | LDY #&00 |
00003e30 20 20 5c 20 72 65 61 64 20 62 79 74 65 73 20 30 | \ read bytes 0|
00003e40 20 2d 20 32 0d 20 31 37 37 30 20 2e 66 69 72 73 | - 2. 1770 .firs|
00003e50 74 33 0d 20 31 37 38 30 20 20 20 20 20 20 20 20 |t3. 1780 |
00003e60 20 4c 44 58 20 64 61 74 61 72 65 67 20 20 20 5c | LDX datareg \|
00003e70 20 72 65 61 64 20 62 79 74 65 20 66 72 6f 6d 20 | read byte from |
00003e80 61 64 61 70 74 6f 72 0d 20 31 37 39 30 20 20 20 |adaptor. 1790 |
00003e90 20 20 20 20 20 20 4c 44 41 20 68 61 6d 74 61 62 | LDA hamtab|
00003ea0 6c 65 2c 58 20 5c 20 64 65 2d 68 61 6d 6d 65 64 |le,X \ de-hammed|
00003eb0 0d 20 31 38 30 30 20 20 20 20 20 20 20 20 20 42 |. 1800 B|
00003ec0 4d 49 20 72 65 74 75 72 6e 20 20 20 20 5c 20 62 |MI return \ b|
00003ed0 72 61 6e 63 68 20 69 66 20 65 72 72 6f 72 0d 20 |ranch if error. |
00003ee0 31 38 31 30 20 20 20 20 20 20 20 20 20 53 54 41 |1810 STA|
00003ef0 20 62 75 66 66 65 72 2c 59 20 20 5c 20 73 74 6f | buffer,Y \ sto|
00003f00 72 65 20 64 65 2d 68 61 6d 6d 65 64 20 62 79 74 |re de-hammed byt|
00003f10 65 20 69 6e 20 62 75 66 66 65 72 0d 20 31 38 32 |e in buffer. 182|
00003f20 30 20 20 20 20 20 20 20 20 20 49 4e 59 0d 20 31 |0 INY. 1|
00003f30 38 33 30 20 20 20 20 20 20 20 20 20 43 50 59 20 |830 CPY |
00003f40 23 26 30 33 0d 20 31 38 34 30 20 20 20 20 20 20 |#&03. 1840 |
00003f50 20 20 20 42 4e 45 20 66 69 72 73 74 33 20 20 20 | BNE first3 |
00003f60 20 5c 20 64 65 2d 68 61 6d 6d 20 66 69 72 73 74 | \ de-hamm first|
00003f70 20 74 68 72 65 65 20 62 79 74 65 73 0d 20 31 38 | three bytes. 18|
00003f80 35 30 20 20 20 20 20 20 20 20 20 4c 44 41 20 62 |50 LDA b|
00003f90 75 66 66 65 72 20 20 20 20 5c 20 6c 6f 61 64 20 |uffer \ load |
00003fa0 66 6f 72 6d 61 74 20 74 79 70 65 0d 20 31 38 36 |format type. 186|
00003fb0 30 20 20 20 20 20 20 20 20 20 41 4e 44 20 23 26 |0 AND #&|
00003fc0 30 31 20 20 20 20 20 20 5c 20 69 73 20 69 74 20 |01 \ is it |
00003fd0 74 79 70 65 20 22 41 22 0d 20 31 38 37 30 20 20 |type "A". 1870 |
00003fe0 20 20 20 20 20 20 20 42 4e 45 20 72 65 74 75 72 | BNE retur|
00003ff0 6e 20 20 20 20 5c 20 65 78 63 6c 75 64 65 20 61 |n \ exclude a|
00004000 6c 6c 20 62 75 74 20 74 79 70 65 20 41 0d 20 31 |ll but type A. 1|
00004010 38 38 30 20 20 20 20 20 20 20 20 20 4c 44 41 20 |880 LDA |
00004020 63 68 61 6e 6e 65 6c 20 20 20 5c 20 54 56 20 63 |channel \ TV c|
00004030 68 61 6e 6e 65 6c 0d 20 31 38 39 30 20 20 20 20 |hannel. 1890 |
00004040 20 20 20 20 20 43 4d 50 20 23 26 31 45 20 20 20 | CMP #&1E |
00004050 20 20 20 5c 20 69 73 20 74 68 69 73 20 49 54 56 | \ is this ITV|
00004060 3f 0d 20 31 39 30 30 20 20 20 20 20 20 20 20 20 |?. 1900 |
00004070 42 43 53 20 72 65 61 64 6d 6f 72 65 20 20 5c 20 |BCS readmore \ |
00004080 62 72 61 6e 63 68 20 69 66 20 49 54 56 20 6f 72 |branch if ITV or|
00004090 20 43 48 34 0d 20 31 39 31 30 20 20 20 20 20 20 | CH4. 1910 |
000040a0 20 20 20 4c 44 41 20 62 75 66 66 65 72 2b 31 20 | LDA buffer+1 |
000040b0 20 5c 20 6c 6f 61 64 20 61 64 64 72 65 73 73 20 | \ load address |
000040c0 6c 65 6e 67 74 68 0d 20 31 39 32 30 20 20 20 20 |length. 1920 |
000040d0 20 20 20 20 20 43 4d 50 20 23 26 30 31 20 20 20 | CMP #&01 |
000040e0 20 20 20 5c 20 74 65 73 74 20 63 68 61 6e 6e 65 | \ test channe|
000040f0 6c 20 68 61 73 20 61 20 31 20 6e 79 62 62 6c 65 |l has a 1 nybble|
00004100 20 61 64 64 72 65 73 73 20 6c 65 6e 67 74 68 0d | address length.|
00004110 20 31 39 33 30 20 20 20 20 20 20 20 20 20 42 4e | 1930 BN|
00004120 45 20 72 65 74 75 72 6e 20 20 20 20 5c 20 65 78 |E return \ ex|
00004130 63 6c 75 64 65 20 61 6c 6c 20 6f 74 68 65 72 20 |clude all other |
00004140 61 64 64 72 65 73 73 20 6c 65 6e 67 74 68 73 0d |address lengths.|
00004150 20 31 39 34 30 20 20 20 20 20 20 20 20 20 4c 44 | 1940 LD|
00004160 41 20 62 75 66 66 65 72 2b 32 20 20 5c 20 6c 6f |A buffer+2 \ lo|
00004170 61 64 20 74 68 65 20 61 64 64 72 65 73 73 0d 20 |ad the address. |
00004180 31 39 35 30 20 20 20 20 20 20 20 20 20 43 4d 50 |1950 CMP|
00004190 20 23 26 30 37 20 20 20 20 20 20 5c 20 74 65 73 | #&07 \ tes|
000041a0 74 20 63 68 61 6e 6e 65 6c 20 68 61 73 20 61 64 |t channel has ad|
000041b0 64 72 65 73 73 20 37 0d 20 31 39 36 30 20 20 20 |dress 7. 1960 |
000041c0 20 20 20 20 20 20 42 4e 45 20 72 65 74 75 72 6e | BNE return|
000041d0 20 20 20 20 5c 20 65 78 63 6c 75 64 65 20 61 6c | \ exclude al|
000041e0 6c 20 6f 74 68 65 72 20 61 64 64 72 65 73 73 65 |l other addresse|
000041f0 73 0d 20 31 39 37 30 20 2e 72 65 61 64 6d 6f 72 |s. 1970 .readmor|
00004200 65 0d 20 31 39 38 30 20 20 20 20 20 20 20 20 20 |e. 1980 |
00004210 4c 44 41 20 64 61 74 61 72 65 67 20 20 20 5c 20 |LDA datareg \ |
00004220 72 65 61 64 20 62 79 74 65 20 66 72 6f 6d 20 61 |read byte from a|
00004230 64 61 70 74 6f 72 0d 20 31 39 39 30 20 20 20 20 |daptor. 1990 |
00004240 20 20 20 20 20 53 54 41 20 62 75 66 66 65 72 2c | STA buffer,|
00004250 59 20 20 5c 20 73 74 6f 72 65 20 69 6e 20 62 75 |Y \ store in bu|
00004260 66 66 65 72 0d 20 32 30 30 30 20 20 20 20 20 20 |ffer. 2000 |
00004270 20 20 20 49 4e 59 20 20 20 20 20 20 20 20 20 20 | INY |
00004280 20 5c 20 69 6e 63 72 65 6d 65 6e 74 20 69 6e 64 | \ increment ind|
00004290 65 78 0d 20 32 30 31 30 20 20 20 20 20 20 20 20 |ex. 2010 |
000042a0 20 43 50 59 20 23 26 32 38 20 20 20 20 20 20 5c | CPY #&28 \|
000042b0 20 64 65 63 69 6d 61 6c 20 34 30 0d 20 32 30 32 | decimal 40. 202|
000042c0 30 20 20 20 20 20 20 20 20 20 42 4e 45 20 72 65 |0 BNE re|
000042d0 61 64 6d 6f 72 65 20 20 5c 20 67 6f 20 62 61 63 |admore \ go bac|
000042e0 6b 20 66 6f 72 20 6d 6f 72 65 0d 20 32 30 33 30 |k for more. 2030|
000042f0 20 20 20 20 20 20 20 20 20 4c 44 41 20 23 26 38 | LDA #&8|
00004300 30 20 20 20 20 20 20 5c 20 64 65 63 69 6d 61 6c |0 \ decimal|
00004310 20 31 32 38 0d 20 32 30 34 30 20 20 20 20 20 20 | 128. 2040 |
00004320 20 20 20 53 54 41 20 67 72 61 62 66 6c 61 67 20 | STA grabflag |
00004330 20 5c 20 70 61 63 6b 65 74 20 6c 6f 61 64 65 64 | \ packet loaded|
00004340 0d 20 32 30 35 30 20 2e 72 65 74 75 72 6e 0d 20 |. 2050 .return. |
00004350 32 30 36 30 20 20 20 20 20 20 20 20 20 52 54 53 |2060 RTS|
00004360 0d 20 32 30 37 30 20 2e 6f 6c 64 69 72 71 32 76 |. 2070 .oldirq2v|
00004370 0d 20 32 30 38 30 20 20 20 20 20 20 20 20 20 45 |. 2080 E|
00004380 51 55 57 20 26 30 30 0d 20 32 30 39 30 20 2e 68 |QUW &00. 2090 .h|
00004390 61 6d 74 61 62 6c 65 0d 20 32 31 30 30 20 20 20 |amtable. 2100 |
000043a0 20 20 20 20 20 20 45 51 55 44 20 26 30 31 30 31 | EQUD &0101|
000043b0 46 46 30 31 20 0d 20 32 31 31 30 20 20 20 20 20 |FF01 . 2110 |
000043c0 20 20 20 20 45 51 55 44 20 26 46 46 30 31 30 30 | EQUD &FF0100|
000043d0 46 46 20 0d 20 32 31 32 30 20 20 20 20 20 20 20 |FF . 2120 |
000043e0 20 20 45 51 55 44 20 26 46 46 30 31 30 32 46 46 | EQUD &FF0102FF|
000043f0 20 0d 20 32 31 33 30 20 20 20 20 20 20 20 20 20 | . 2130 |
00004400 45 51 55 44 20 26 30 37 46 46 46 46 30 41 0d 20 |EQUD &07FFFF0A. |
00004410 32 31 34 30 20 20 20 20 20 20 20 20 20 45 51 55 |2140 EQU|
00004420 44 20 26 46 46 30 31 30 30 46 46 20 0d 20 32 31 |D &FF0100FF . 21|
00004430 35 30 20 20 20 20 20 20 20 20 20 45 51 55 44 20 |50 EQUD |
00004440 26 30 30 46 46 30 30 30 30 20 0d 20 32 31 36 30 |&00FF0000 . 2160|
00004450 20 20 20 20 20 20 20 20 20 45 51 55 44 20 26 30 | EQUD &0|
00004460 42 46 46 46 46 30 36 20 0d 20 32 31 37 30 20 20 |BFFFF06 . 2170 |
00004470 20 20 20 20 20 20 20 45 51 55 44 20 26 46 46 30 | EQUD &FF0|
00004480 33 30 30 46 46 0d 20 32 31 38 30 20 20 20 20 20 |300FF. 2180 |
00004490 20 20 20 20 45 51 55 44 20 26 46 46 30 31 30 43 | EQUD &FF010C|
000044a0 46 46 20 0d 20 32 31 39 30 20 20 20 20 20 20 20 |FF . 2190 |
000044b0 20 20 45 51 55 44 20 26 30 37 46 46 46 46 30 34 | EQUD &07FFFF04|
000044c0 20 0d 20 32 32 30 30 20 20 20 20 20 20 20 20 20 | . 2200 |
000044d0 45 51 55 44 20 26 30 37 46 46 46 46 30 36 20 0d |EQUD &07FFFF06 .|
000044e0 20 32 32 31 30 20 20 20 20 20 20 20 20 20 45 51 | 2210 EQ|
000044f0 55 44 20 26 30 37 30 37 30 37 46 46 0d 20 32 32 |UD &070707FF. 22|
00004500 32 30 20 20 20 20 20 20 20 20 20 45 51 55 44 20 |20 EQUD |
00004510 26 30 35 46 46 46 46 30 36 20 0d 20 32 32 33 30 |&05FFFF06 . 2230|
00004520 20 20 20 20 20 20 20 20 20 45 51 55 44 20 26 46 | EQUD &F|
00004530 46 30 44 30 30 46 46 20 0d 20 32 32 34 30 20 20 |F0D00FF . 2240 |
00004540 20 20 20 20 20 20 20 45 51 55 44 20 26 46 46 30 | EQUD &FF0|
00004550 36 30 36 30 36 20 0d 20 32 32 35 30 20 20 20 20 |60606 . 2250 |
00004560 20 20 20 20 20 45 51 55 44 20 26 30 37 46 46 46 | EQUD &07FFF|
00004570 46 30 36 0d 20 32 32 36 30 20 20 20 20 20 20 20 |F06. 2260 |
00004580 20 20 45 51 55 44 20 26 46 46 30 31 30 32 46 46 | EQUD &FF0102FF|
00004590 20 0d 20 32 32 37 30 20 20 20 20 20 20 20 20 20 | . 2270 |
000045a0 45 51 55 44 20 26 30 39 46 46 46 46 30 34 20 0d |EQUD &09FFFF04 .|
000045b0 20 32 32 38 30 20 20 20 20 20 20 20 20 20 45 51 | 2280 EQ|
000045c0 55 44 20 26 30 32 46 46 30 32 30 32 20 0d 20 32 |UD &02FF0202 . 2|
000045d0 32 39 30 20 20 20 20 20 20 20 20 20 45 51 55 44 |290 EQUD|
000045e0 20 26 46 46 30 33 30 32 46 46 0d 20 32 33 30 30 | &FF0302FF. 2300|
000045f0 20 20 20 20 20 20 20 20 20 45 51 55 44 20 26 30 | EQUD &0|
00004600 35 46 46 46 46 30 38 20 0d 20 32 33 31 30 20 20 |5FFFF08 . 2310 |
00004610 20 20 20 20 20 20 20 45 51 55 44 20 26 46 46 30 | EQUD &FF0|
00004620 33 30 30 46 46 20 0d 20 32 33 32 30 20 20 20 20 |300FF . 2320 |
00004630 20 20 20 20 20 45 51 55 44 20 26 46 46 30 33 30 | EQUD &FF030|
00004640 32 46 46 20 0d 20 32 33 33 30 20 20 20 20 20 20 |2FF . 2330 |
00004650 20 20 20 45 51 55 44 20 26 30 33 30 33 46 46 30 | EQUD &0303FF0|
00004660 33 0d 20 32 33 34 30 20 20 20 20 20 20 20 20 20 |3. 2340 |
00004670 45 51 55 44 20 26 30 35 46 46 46 46 30 34 20 0d |EQUD &05FFFF04 .|
00004680 20 32 33 35 30 20 20 20 20 20 20 20 20 20 45 51 | 2350 EQ|
00004690 55 44 20 26 46 46 30 34 30 34 30 34 20 0d 20 32 |UD &FF040404 . 2|
000046a0 33 36 30 20 20 20 20 20 20 20 20 20 45 51 55 44 |360 EQUD|
000046b0 20 26 46 46 30 46 30 32 46 46 20 0d 20 32 33 37 | &FF0F02FF . 237|
000046c0 30 20 20 20 20 20 20 20 20 20 45 51 55 44 20 26 |0 EQUD &|
000046d0 30 37 46 46 46 46 30 34 0d 20 32 33 38 30 20 20 |07FFFF04. 2380 |
000046e0 20 20 20 20 20 20 20 45 51 55 44 20 26 30 35 30 | EQUD &050|
000046f0 35 30 35 46 46 20 0d 20 32 33 39 30 20 20 20 20 |505FF . 2390 |
00004700 20 20 20 20 20 45 51 55 44 20 26 30 35 46 46 46 | EQUD &05FFF|
00004710 46 30 34 20 0d 20 32 34 30 30 20 20 20 20 20 20 |F04 . 2400 |
00004720 20 20 20 45 51 55 44 20 26 30 35 46 46 46 46 30 | EQUD &05FFFF0|
00004730 36 20 0d 20 32 34 31 30 20 20 20 20 20 20 20 20 |6 . 2410 |
00004740 20 45 51 55 44 20 26 46 46 30 33 30 45 46 46 0d | EQUD &FF030EFF.|
00004750 20 32 34 32 30 20 20 20 20 20 20 20 20 20 45 51 | 2420 EQ|
00004760 55 44 20 26 46 46 30 31 30 43 46 46 20 0d 20 32 |UD &FF010CFF . 2|
00004770 34 33 30 20 20 20 20 20 20 20 20 20 45 51 55 44 |430 EQUD|
00004780 20 26 30 39 46 46 46 46 30 41 20 0d 20 32 34 34 | &09FFFF0A . 244|
00004790 30 20 20 20 20 20 20 20 20 20 45 51 55 44 20 26 |0 EQUD &|
000047a0 30 42 46 46 46 46 30 41 20 0d 20 32 34 35 30 20 |0BFFFF0A . 2450 |
000047b0 20 20 20 20 20 20 20 20 45 51 55 44 20 26 46 46 | EQUD &FF|
000047c0 30 41 30 41 30 41 0d 20 32 34 36 30 20 20 20 20 |0A0A0A. 2460 |
000047d0 20 20 20 20 20 45 51 55 44 20 26 30 42 46 46 46 | EQUD &0BFFF|
000047e0 46 30 38 20 0d 20 32 34 37 30 20 20 20 20 20 20 |F08 . 2470 |
000047f0 20 20 20 45 51 55 44 20 26 46 46 30 44 30 30 46 | EQUD &FF0D00F|
00004800 46 20 0d 20 32 34 38 30 20 20 20 20 20 20 20 20 |F . 2480 |
00004810 20 45 51 55 44 20 26 30 42 30 42 30 42 46 46 20 | EQUD &0B0B0BFF |
00004820 0d 20 32 34 39 30 20 20 20 20 20 20 20 20 20 45 |. 2490 E|
00004830 51 55 44 20 26 30 42 46 46 46 46 30 41 0d 20 32 |QUD &0BFFFF0A. 2|
00004840 35 30 30 20 20 20 20 20 20 20 20 20 45 51 55 44 |500 EQUD|
00004850 20 26 30 43 46 46 30 43 30 43 20 0d 20 32 35 31 | &0CFF0C0C . 251|
00004860 30 20 20 20 20 20 20 20 20 20 45 51 55 44 20 26 |0 EQUD &|
00004870 46 46 30 44 30 43 46 46 20 0d 20 32 35 32 30 20 |FF0D0CFF . 2520 |
00004880 20 20 20 20 20 20 20 20 45 51 55 44 20 26 46 46 | EQUD &FF|
00004890 30 46 30 43 46 46 20 0d 20 32 35 33 30 20 20 20 |0F0CFF . 2530 |
000048a0 20 20 20 20 20 20 45 51 55 44 20 26 30 37 46 46 | EQUD &07FF|
000048b0 46 46 30 41 0d 20 32 35 34 30 20 20 20 20 20 20 |FF0A. 2540 |
000048c0 20 20 20 45 51 55 44 20 26 46 46 30 44 30 43 46 | EQUD &FF0D0CF|
000048d0 46 20 0d 20 32 35 35 30 20 20 20 20 20 20 20 20 |F . 2550 |
000048e0 20 45 51 55 44 20 26 30 44 30 44 46 46 30 44 20 | EQUD &0D0DFF0D |
000048f0 0d 20 32 35 36 30 20 20 20 20 20 20 20 20 20 45 |. 2560 E|
00004900 51 55 44 20 26 30 42 46 46 46 46 30 36 20 0d 20 |QUD &0BFFFF06 . |
00004910 32 35 37 30 20 20 20 20 20 20 20 20 20 45 51 55 |2570 EQU|
00004920 44 20 26 46 46 30 44 30 45 46 46 0d 20 32 35 38 |D &FF0D0EFF. 258|
00004930 30 20 20 20 20 20 20 20 20 20 45 51 55 44 20 26 |0 EQUD &|
00004940 30 39 46 46 46 46 30 38 20 0d 20 32 35 39 30 20 |09FFFF08 . 2590 |
00004950 20 20 20 20 20 20 20 20 45 51 55 44 20 26 30 39 | EQUD &09|
00004960 30 39 30 39 46 46 20 0d 20 32 36 30 30 20 20 20 |0909FF . 2600 |
00004970 20 20 20 20 20 20 45 51 55 44 20 26 46 46 30 46 | EQUD &FF0F|
00004980 30 32 46 46 20 0d 20 32 36 31 30 20 20 20 20 20 |02FF . 2610 |
00004990 20 20 20 20 45 51 55 44 20 26 30 39 46 46 46 46 | EQUD &09FFFF|
000049a0 30 41 0d 20 32 36 32 30 20 20 20 20 20 20 20 20 |0A. 2620 |
000049b0 20 45 51 55 44 20 26 46 46 30 38 30 38 30 38 20 | EQUD &FF080808 |
000049c0 0d 20 32 36 33 30 20 20 20 20 20 20 20 20 20 45 |. 2630 E|
000049d0 51 55 44 20 26 30 39 46 46 46 46 30 38 20 0d 20 |QUD &09FFFF08 . |
000049e0 32 36 34 30 20 20 20 20 20 20 20 20 20 45 51 55 |2640 EQU|
000049f0 44 20 26 30 42 46 46 46 46 30 38 20 0d 20 32 36 |D &0BFFFF08 . 26|
00004a00 35 30 20 20 20 20 20 20 20 20 20 45 51 55 44 20 |50 EQUD |
00004a10 26 46 46 30 33 30 45 46 46 0d 20 32 36 36 30 20 |&FF030EFF. 2660 |
00004a20 20 20 20 20 20 20 20 20 45 51 55 44 20 26 46 46 | EQUD &FF|
00004a30 30 46 30 43 46 46 20 0d 20 32 36 37 30 20 20 20 |0F0CFF . 2670 |
00004a40 20 20 20 20 20 20 45 51 55 44 20 26 30 39 46 46 | EQUD &09FF|
00004a50 46 46 30 34 20 0d 20 32 36 38 30 20 20 20 20 20 |FF04 . 2680 |
00004a60 20 20 20 20 45 51 55 44 20 26 30 46 30 46 46 46 | EQUD &0F0FFF|
00004a70 30 46 20 0d 20 32 36 39 30 20 20 20 20 20 20 20 |0F . 2690 |
00004a80 20 20 45 51 55 44 20 26 46 46 30 46 30 45 46 46 | EQUD &FF0F0EFF|
00004a90 0d 20 32 37 30 30 20 20 20 20 20 20 20 20 20 45 |. 2700 E|
00004aa0 51 55 44 20 26 30 35 46 46 46 46 30 38 20 0d 20 |QUD &05FFFF08 . |
00004ab0 32 37 31 30 20 20 20 20 20 20 20 20 20 45 51 55 |2710 EQU|
00004ac0 44 20 26 46 46 30 44 30 45 46 46 20 0d 20 32 37 |D &FF0D0EFF . 27|
00004ad0 32 30 20 20 20 20 20 20 20 20 20 45 51 55 44 20 |20 EQUD |
00004ae0 26 46 46 30 46 30 45 46 46 20 0d 20 32 37 33 30 |&FF0F0EFF . 2730|
00004af0 20 20 20 20 20 20 20 20 20 45 51 55 44 20 26 30 | EQUD &0|
00004b00 45 46 46 30 45 30 45 0d 20 32 37 34 30 20 2e 62 |EFF0E0E. 2740 .b|
00004b10 75 66 66 65 72 0d 20 32 37 35 30 20 20 20 20 20 |uffer. 2750 |
00004b20 20 20 20 20 45 51 55 53 20 53 54 52 49 4e 47 24 | EQUS STRING$|
00004b30 28 34 30 2c 22 20 22 29 0d 20 32 37 36 30 20 5d |(40," "). 2760 ]|
00004b40 0d 20 32 37 37 30 20 4e 45 58 54 0d 20 32 37 38 |. 2770 NEXT. 278|
00004b50 30 20 45 4e 44 50 52 4f 43 0d |0 ENDPROC.|
00004b5a 
21-02-89/T\TTX07.m0
21-02-89/T\TTX07.m1
21-02-89/T\TTX07.m2
21-02-89/T\TTX07.m4
21-02-89/T\TTX07.m5
.