MikeC/TestDvr

Home » Recent acquisitions » Acorn ADFS disks » adfs_AcornUser_199609.adf » Regulars » MikeC/TestDvr

MikeC/TestDvr

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 » Recent acquisitions » Acorn ADFS disks » adfs_AcornUser_199609.adf » Regulars
Filename:	MikeC/TestDvr
Read OK:	✔
File size:	08D1 bytes
Load address:	0000
Exec address:	0000

File contents

   10REM >TestDvr
   20REM FM Radio Driver By Mike Cook
   30REM Enable Port for output
   40DIM Tune$(1)
   50Mask%=NOT(&20)
   60SYS&42EC1,2,0,Mask%
   70S%=250
   80Freq%=88000 + S%*25
   90PLL%=&A10F6C + S%
  100Spll%=PLL%
  110Mute%=8
  120Station%=0
  130Scan%=FALSE
  140Tune$(0)="Nothing"
  150Tune$(1)="Station"
  160PROC_TuneUp(0)
  170PROC_Delay(100)
  180PROC_TuneUp(0)
  190
  200PRINT"FM Radio Driver By Mike Cook"
  210PRINT"+ - change the volume "
  220PRINT"< > tune the radio"
  230PRINT"K L fine tune"
  240PRINT" M  mute"
  250PRINT" S  scan"
  260PRINT" R  re-examine squelch"
  270PRINT
  280REPEAT
  290PRINT"Frequency ";Freq%/1000,Tune$(Station%);SPC(4);
  300C$=GET$
  310
  320PRINTCHR$(&D);
  330
  340IF C$="=" OR C$="+" THEN PROC_VolUp
  350IF C$="-" OR C$="_" THEN PROC_VolDown
  360IF C$="." OR C$=">" THEN PROC_TuneUp(4)
  370IF C$="," OR C$="<" THEN PROC_TuneUp(-4)
  380IF C$="k" OR C$="K" THEN PROC_TuneUp(-1)
  390IF C$="L" OR C$="l" THEN PROC_TuneUp(1)
  400IF C$="M" OR C$="m" THEN Mute%=Mute% EOR 8:PROC_TuneUp(0)
  410IF C$="R" OR C$="r" THEN PROC_RX
  420IF C$="S" OR C$="s" THEN PROC_Scan
  430
  440UNTIL FALSE
  450
  460DEF PROC_Scan
  470Spll%=PLL%
  480PLL%=&A10F6C
  490Scan%=FALSE
  500MODE 15
  510PROC_TuneUp(0)
  520PROC_Delay(100)
  530X%=0
  540FOR PLL%=&A10F6C TO &A1128B
  550X%+=1
  560PROC_TuneUp(0)
  570 MOVE X%,0
  580IF Station%=1 THEN DRAW X%,200 ELSE DRAW X%,10
  590NEXT
  600PRINT"FM Radio Driver By Mike Cook"
  610PRINT"+ - change the volume "
  620PRINT"< > tune the radio"
  630PRINT"K L fine tune"
  640PRINT" M  mute"
  650PRINT" S  scan"
  660PRINT" R  re-examine squelch"
  670PRINT
  680Scan%=TRUE
  690PLL%=Spll%
  700PROC_TuneUp(0)
  710ENDPROC
  720
  730DEF PROC_TuneUp(N%)
  740PLL%=PLL%+N%
  750Freq%=Freq%+N%*25
  760IF Freq%>108000 THEN Freq%=108000:PLL%=&A1128B
  770IF Freq%<88000 THEN Freq%=88000:PLL%=&A10F6C
  780PROC_ReTune
  790IF Scan% THEN
  800XP%=PLL%-&A10F6C
  810GCOL 0,0 TINT 0
  820RECTANGLEFILL 0,210,810,10
  830GCOL 0,7 TINT 255
  840RECTANGLEFILL XP%-5,210,10,10
  850ENDIF
  860ENDPROC
  870
  880DEF PROC_ReTune
  890LOCAL A%,B%,C%,S%,M%
  900
  910B%=PLL%
  920FOR A%=1 TO 24
  930C%=B% AND 1
  940S%=&C1 OR (C%<<2) OR Mute%
  950PROC_SB(S%)
  960S%=S% OR &2
  970PROC_SB(S%)
  980B%=B%>>1
  990NEXT
 1000PROC_SB(&C0 OR Mute%)
 1010PROC_SB(&D0 OR Mute%)
 1020PROC_SB(&C0 OR Mute%)
 1030PROC_RX
 1040ENDPROC
 1050
 1060DEF PROC_VolUp
 1070PROC_SB(&80 OR Mute%)
 1080PROC_Delay(1)
 1090PROC_SB(&C0 OR Mute%)
 1100ENDPROC
 1110
 1120DEF PROC_VolDown
 1130PROC_SB(&40 OR Mute%)
 1140PROC_Delay(1)
 1150PROC_SB(&C0 OR Mute%)
 1160ENDPROC
 1170
 1180DEF PROC_Delay(n%)
 1190LOCAL T%
 1200T%=TIME + n%
 1210REPEAT
 1220UNTIL TIME>T%
 1230ENDPROC
 1240
 1250DEF PROC_SB(N%)
 1260LOCAL B%
 1270B%=N% OR &20
 1280N%=N% AND &DF
 1290SYS&42EC1,1,B%
 1300SYS&42EC1,1,N%
 1310SYS&42EC1,1,B%
 1320ENDPROC
 1330
 1340DEF PROC_RX
 1350SYS&42EC1,0 TO ,,Station%
 1360Station%=Station%>>7
 1370ENDPROC


� >TestDvr
"� FM Radio Driver By Mike Cook
� Enable Port for output
(� Tune$(1)
2Mask%=�(&20)
<ș&42EC1,2,0,Mask%
F
S%=250
PFreq%=88000 + S%*25
ZPLL%=&A10F6C + S%
dSpll%=PLL%
nMute%=8
xStation%=0
�Scan%=�
�Tune$(0)="Nothing"
�Tune$(1)="Station"
��_TuneUp(0)
��_Delay(100)
��_TuneUp(0)
�
�#�"FM Radio Driver By Mike Cook"
��"+ - change the volume "
��"< > tune the radio"
��"K L fine tune"
��" M  mute"
��" S  scan"
�" R  re-examine squelch"
�
�
"2�"Frequency ";Freq%/1000,Tune$(Station%);�(4);
,C$=�
6
@�(&D);
J
T� C$="=" � C$="+" � �_VolUp
^!� C$="-" � C$="_" � �_VolDown
h#� C$="." � C$=">" � �_TuneUp(4)
r$� C$="," � C$="<" � �_TuneUp(-4)
|$� C$="k" � C$="K" � �_TuneUp(-1)
�#� C$="L" � C$="l" � �_TuneUp(1)
�3� C$="M" � C$="m" � Mute%=Mute% � 8:�_TuneUp(0)
�� C$="R" � C$="r" � �_RX
�� C$="S" � C$="s" � �_Scan
�
�� �
�
�� �_Scan
�Spll%=PLL%
�PLL%=&A10F6C
�Scan%=�
�� 15
��_TuneUp(0)
�_Delay(100)
X%=0
� PLL%=&A10F6C � &A1128B
&	X%+=1
0�_TuneUp(0)
: � X%,0
D%� Station%=1 � � X%,200 � � X%,10
N�
X#�"FM Radio Driver By Mike Cook"
b�"+ - change the volume "
l�"< > tune the radio"
v�"K L fine tune"
��" M  mute"
��" S  scan"
��" R  re-examine squelch"
��
�Scan%=�
�PLL%=Spll%
��_TuneUp(0)
��
�
�� �_TuneUp(N%)
�PLL%=PLL%+N%
�Freq%=Freq%+N%*25
�.� Freq%>108000 � Freq%=108000:PLL%=&A1128B
,� Freq%<88000 � Freq%=88000:PLL%=&A10F6C
�_ReTune

� Scan% �
 XP%=PLL%-&A10F6C
*� 0,0 Ȝ 0
4ȓȐ 0,210,810,10
>� 0,7 Ȝ 255
HȓȐ XP%-5,210,10,10
R�
\�
f
p� �_ReTune
z� A%,B%,C%,S%,M%
�
�B%=PLL%
�� A%=1 � 24
�
C%=B% � 1
�S%=&C1 � (C%<<2) � Mute%
��_SB(S%)
�S%=S% � &2
��_SB(S%)
�B%=B%>>1
��
��_SB(&C0 � Mute%)
��_SB(&D0 � Mute%)
��_SB(&C0 � Mute%)
�_RX
�

$
� �_VolUp
.�_SB(&80 � Mute%)
8�_Delay(1)
B�_SB(&C0 � Mute%)
L�
V
`� �_VolDown
j�_SB(&40 � Mute%)
t�_Delay(1)
~�_SB(&C0 � Mute%)
��
�
�� �_Delay(n%)
�� T%
�
T%=� + n%
��
�
� �>T%
��
�
�� �_SB(N%)
�� B%
�B%=N% � &20
N%=N% � &DF

ș&42EC1,1,B%
ș&42EC1,1,N%
ș&42EC1,1,B%
(�
2
<
� �_RX
Fș&42EC1,0 � ,,Station%
PStation%=Station%>>7
Z�
�

00000000  0d 00 0a 0e f4 20 3e 54  65 73 74 44 76 72 0d 00  |..... >TestDvr..|
00000010  14 22 f4 20 46 4d 20 52  61 64 69 6f 20 44 72 69  |.". FM Radio Dri|
00000020  76 65 72 20 42 79 20 4d  69 6b 65 20 43 6f 6f 6b  |ver By Mike Cook|
00000030  0d 00 1e 1c f4 20 45 6e  61 62 6c 65 20 50 6f 72  |..... Enable Por|
00000040  74 20 66 6f 72 20 6f 75  74 70 75 74 0d 00 28 0e  |t for output..(.|
00000050  de 20 54 75 6e 65 24 28  31 29 0d 00 32 10 4d 61  |. Tune$(1)..2.Ma|
00000060  73 6b 25 3d ac 28 26 32  30 29 0d 00 3c 16 c8 99  |sk%=.(&20)..<...|
00000070  26 34 32 45 43 31 2c 32  2c 30 2c 4d 61 73 6b 25  |&42EC1,2,0,Mask%|
00000080  0d 00 46 0a 53 25 3d 32  35 30 0d 00 50 17 46 72  |..F.S%=250..P.Fr|
00000090  65 71 25 3d 38 38 30 30  30 20 2b 20 53 25 2a 32  |eq%=88000 + S%*2|
000000a0  35 0d 00 5a 15 50 4c 4c  25 3d 26 41 31 30 46 36  |5..Z.PLL%=&A10F6|
000000b0  43 20 2b 20 53 25 0d 00  64 0e 53 70 6c 6c 25 3d  |C + S%..d.Spll%=|
000000c0  50 4c 4c 25 0d 00 6e 0b  4d 75 74 65 25 3d 38 0d  |PLL%..n.Mute%=8.|
000000d0  00 78 0e 53 74 61 74 69  6f 6e 25 3d 30 0d 00 82  |.x.Station%=0...|
000000e0  0b 53 63 61 6e 25 3d a3  0d 00 8c 16 54 75 6e 65  |.Scan%=.....Tune|
000000f0  24 28 30 29 3d 22 4e 6f  74 68 69 6e 67 22 0d 00  |$(0)="Nothing"..|
00000100  96 16 54 75 6e 65 24 28  31 29 3d 22 53 74 61 74  |..Tune$(1)="Stat|
00000110  69 6f 6e 22 0d 00 a0 0f  f2 5f 54 75 6e 65 55 70  |ion"....._TuneUp|
00000120  28 30 29 0d 00 aa 10 f2  5f 44 65 6c 61 79 28 31  |(0)....._Delay(1|
00000130  30 30 29 0d 00 b4 0f f2  5f 54 75 6e 65 55 70 28  |00)....._TuneUp(|
00000140  30 29 0d 00 be 04 0d 00  c8 23 f1 22 46 4d 20 52  |0).......#."FM R|
00000150  61 64 69 6f 20 44 72 69  76 65 72 20 42 79 20 4d  |adio Driver By M|
00000160  69 6b 65 20 43 6f 6f 6b  22 0d 00 d2 1d f1 22 2b  |ike Cook"....."+|
00000170  20 2d 20 63 68 61 6e 67  65 20 74 68 65 20 76 6f  | - change the vo|
00000180  6c 75 6d 65 20 22 0d 00  dc 19 f1 22 3c 20 3e 20  |lume "....."< > |
00000190  74 75 6e 65 20 74 68 65  20 72 61 64 69 6f 22 0d  |tune the radio".|
000001a0  00 e6 14 f1 22 4b 20 4c  20 66 69 6e 65 20 74 75  |...."K L fine tu|
000001b0  6e 65 22 0d 00 f0 0f f1  22 20 4d 20 20 6d 75 74  |ne"....." M  mut|
000001c0  65 22 0d 00 fa 0f f1 22  20 53 20 20 73 63 61 6e  |e"....." S  scan|
000001d0  22 0d 01 04 1d f1 22 20  52 20 20 72 65 2d 65 78  |"....." R  re-ex|
000001e0  61 6d 69 6e 65 20 73 71  75 65 6c 63 68 22 0d 01  |amine squelch"..|
000001f0  0e 05 f1 0d 01 18 05 f5  0d 01 22 32 f1 22 46 72  |.........."2."Fr|
00000200  65 71 75 65 6e 63 79 20  22 3b 46 72 65 71 25 2f  |equency ";Freq%/|
00000210  31 30 30 30 2c 54 75 6e  65 24 28 53 74 61 74 69  |1000,Tune$(Stati|
00000220  6f 6e 25 29 3b 89 28 34  29 3b 0d 01 2c 08 43 24  |on%);.(4);..,.C$|
00000230  3d be 0d 01 36 04 0d 01  40 0b f1 bd 28 26 44 29  |=...6...@...(&D)|
00000240  3b 0d 01 4a 04 0d 01 54  1f e7 20 43 24 3d 22 3d  |;..J...T.. C$="=|
00000250  22 20 84 20 43 24 3d 22  2b 22 20 8c 20 f2 5f 56  |" . C$="+" . ._V|
00000260  6f 6c 55 70 0d 01 5e 21  e7 20 43 24 3d 22 2d 22  |olUp..^!. C$="-"|
00000270  20 84 20 43 24 3d 22 5f  22 20 8c 20 f2 5f 56 6f  | . C$="_" . ._Vo|
00000280  6c 44 6f 77 6e 0d 01 68  23 e7 20 43 24 3d 22 2e  |lDown..h#. C$=".|
00000290  22 20 84 20 43 24 3d 22  3e 22 20 8c 20 f2 5f 54  |" . C$=">" . ._T|
000002a0  75 6e 65 55 70 28 34 29  0d 01 72 24 e7 20 43 24  |uneUp(4)..r$. C$|
000002b0  3d 22 2c 22 20 84 20 43  24 3d 22 3c 22 20 8c 20  |="," . C$="<" . |
000002c0  f2 5f 54 75 6e 65 55 70  28 2d 34 29 0d 01 7c 24  |._TuneUp(-4)..|$|
000002d0  e7 20 43 24 3d 22 6b 22  20 84 20 43 24 3d 22 4b  |. C$="k" . C$="K|
000002e0  22 20 8c 20 f2 5f 54 75  6e 65 55 70 28 2d 31 29  |" . ._TuneUp(-1)|
000002f0  0d 01 86 23 e7 20 43 24  3d 22 4c 22 20 84 20 43  |...#. C$="L" . C|
00000300  24 3d 22 6c 22 20 8c 20  f2 5f 54 75 6e 65 55 70  |$="l" . ._TuneUp|
00000310  28 31 29 0d 01 90 33 e7  20 43 24 3d 22 4d 22 20  |(1)...3. C$="M" |
00000320  84 20 43 24 3d 22 6d 22  20 8c 20 4d 75 74 65 25  |. C$="m" . Mute%|
00000330  3d 4d 75 74 65 25 20 82  20 38 3a f2 5f 54 75 6e  |=Mute% . 8:._Tun|
00000340  65 55 70 28 30 29 0d 01  9a 1c e7 20 43 24 3d 22  |eUp(0)..... C$="|
00000350  52 22 20 84 20 43 24 3d  22 72 22 20 8c 20 f2 5f  |R" . C$="r" . ._|
00000360  52 58 0d 01 a4 1e e7 20  43 24 3d 22 53 22 20 84  |RX..... C$="S" .|
00000370  20 43 24 3d 22 73 22 20  8c 20 f2 5f 53 63 61 6e  | C$="s" . ._Scan|
00000380  0d 01 ae 04 0d 01 b8 07  fd 20 a3 0d 01 c2 04 0d  |......... ......|
00000390  01 cc 0c dd 20 f2 5f 53  63 61 6e 0d 01 d6 0e 53  |.... ._Scan....S|
000003a0  70 6c 6c 25 3d 50 4c 4c  25 0d 01 e0 10 50 4c 4c  |pll%=PLL%....PLL|
000003b0  25 3d 26 41 31 30 46 36  43 0d 01 ea 0b 53 63 61  |%=&A10F6C....Sca|
000003c0  6e 25 3d a3 0d 01 f4 08  eb 20 31 35 0d 01 fe 0f  |n%=...... 15....|
000003d0  f2 5f 54 75 6e 65 55 70  28 30 29 0d 02 08 10 f2  |._TuneUp(0).....|
000003e0  5f 44 65 6c 61 79 28 31  30 30 29 0d 02 12 08 58  |_Delay(100)....X|
000003f0  25 3d 30 0d 02 1c 1c e3  20 50 4c 4c 25 3d 26 41  |%=0..... PLL%=&A|
00000400  31 30 46 36 43 20 b8 20  26 41 31 31 32 38 42 0d  |10F6C . &A1128B.|
00000410  02 26 09 58 25 2b 3d 31  0d 02 30 0f f2 5f 54 75  |.&.X%+=1..0.._Tu|
00000420  6e 65 55 70 28 30 29 0d  02 3a 0b 20 ec 20 58 25  |neUp(0)..:. . X%|
00000430  2c 30 0d 02 44 25 e7 20  53 74 61 74 69 6f 6e 25  |,0..D%. Station%|
00000440  3d 31 20 8c 20 df 20 58  25 2c 32 30 30 20 8b 20  |=1 . . X%,200 . |
00000450  df 20 58 25 2c 31 30 0d  02 4e 05 ed 0d 02 58 23  |. X%,10..N....X#|
00000460  f1 22 46 4d 20 52 61 64  69 6f 20 44 72 69 76 65  |."FM Radio Drive|
00000470  72 20 42 79 20 4d 69 6b  65 20 43 6f 6f 6b 22 0d  |r By Mike Cook".|
00000480  02 62 1d f1 22 2b 20 2d  20 63 68 61 6e 67 65 20  |.b.."+ - change |
00000490  74 68 65 20 76 6f 6c 75  6d 65 20 22 0d 02 6c 19  |the volume "..l.|
000004a0  f1 22 3c 20 3e 20 74 75  6e 65 20 74 68 65 20 72  |."< > tune the r|
000004b0  61 64 69 6f 22 0d 02 76  14 f1 22 4b 20 4c 20 66  |adio"..v.."K L f|
000004c0  69 6e 65 20 74 75 6e 65  22 0d 02 80 0f f1 22 20  |ine tune"....." |
000004d0  4d 20 20 6d 75 74 65 22  0d 02 8a 0f f1 22 20 53  |M  mute"....." S|
000004e0  20 20 73 63 61 6e 22 0d  02 94 1d f1 22 20 52 20  |  scan"....." R |
000004f0  20 72 65 2d 65 78 61 6d  69 6e 65 20 73 71 75 65  | re-examine sque|
00000500  6c 63 68 22 0d 02 9e 05  f1 0d 02 a8 0b 53 63 61  |lch".........Sca|
00000510  6e 25 3d b9 0d 02 b2 0e  50 4c 4c 25 3d 53 70 6c  |n%=.....PLL%=Spl|
00000520  6c 25 0d 02 bc 0f f2 5f  54 75 6e 65 55 70 28 30  |l%....._TuneUp(0|
00000530  29 0d 02 c6 05 e1 0d 02  d0 04 0d 02 da 12 dd 20  |).............. |
00000540  f2 5f 54 75 6e 65 55 70  28 4e 25 29 0d 02 e4 10  |._TuneUp(N%)....|
00000550  50 4c 4c 25 3d 50 4c 4c  25 2b 4e 25 0d 02 ee 15  |PLL%=PLL%+N%....|
00000560  46 72 65 71 25 3d 46 72  65 71 25 2b 4e 25 2a 32  |Freq%=Freq%+N%*2|
00000570  35 0d 02 f8 2e e7 20 46  72 65 71 25 3e 31 30 38  |5..... Freq%>108|
00000580  30 30 30 20 8c 20 46 72  65 71 25 3d 31 30 38 30  |000 . Freq%=1080|
00000590  30 30 3a 50 4c 4c 25 3d  26 41 31 31 32 38 42 0d  |00:PLL%=&A1128B.|
000005a0  03 02 2c e7 20 46 72 65  71 25 3c 38 38 30 30 30  |..,. Freq%<88000|
000005b0  20 8c 20 46 72 65 71 25  3d 38 38 30 30 30 3a 50  | . Freq%=88000:P|
000005c0  4c 4c 25 3d 26 41 31 30  46 36 43 0d 03 0c 0c f2  |LL%=&A10F6C.....|
000005d0  5f 52 65 54 75 6e 65 0d  03 16 0d e7 20 53 63 61  |_ReTune..... Sca|
000005e0  6e 25 20 8c 0d 03 20 14  58 50 25 3d 50 4c 4c 25  |n% ... .XP%=PLL%|
000005f0  2d 26 41 31 30 46 36 43  0d 03 2a 0e e6 20 30 2c  |-&A10F6C..*.. 0,|
00000600  30 20 c8 9c 20 30 0d 03  34 15 c8 93 c8 90 20 30  |0 .. 0..4..... 0|
00000610  2c 32 31 30 2c 38 31 30  2c 31 30 0d 03 3e 10 e6  |,210,810,10..>..|
00000620  20 30 2c 37 20 c8 9c 20  32 35 35 0d 03 48 18 c8  | 0,7 .. 255..H..|
00000630  93 c8 90 20 58 50 25 2d  35 2c 32 31 30 2c 31 30  |... XP%-5,210,10|
00000640  2c 31 30 0d 03 52 05 cd  0d 03 5c 05 e1 0d 03 66  |,10..R....\....f|
00000650  04 0d 03 70 0e dd 20 f2  5f 52 65 54 75 6e 65 0d  |...p.. ._ReTune.|
00000660  03 7a 14 ea 20 41 25 2c  42 25 2c 43 25 2c 53 25  |.z.. A%,B%,C%,S%|
00000670  2c 4d 25 0d 03 84 04 0d  03 8e 0b 42 25 3d 50 4c  |,M%........B%=PL|
00000680  4c 25 0d 03 98 0f e3 20  41 25 3d 31 20 b8 20 32  |L%..... A%=1 . 2|
00000690  34 0d 03 a2 0d 43 25 3d  42 25 20 80 20 31 0d 03  |4....C%=B% . 1..|
000006a0  ac 1c 53 25 3d 26 43 31  20 84 20 28 43 25 3c 3c  |..S%=&C1 . (C%<<|
000006b0  32 29 20 84 20 4d 75 74  65 25 0d 03 b6 0c f2 5f  |2) . Mute%....._|
000006c0  53 42 28 53 25 29 0d 03  c0 0e 53 25 3d 53 25 20  |SB(S%)....S%=S% |
000006d0  84 20 26 32 0d 03 ca 0c  f2 5f 53 42 28 53 25 29  |. &2....._SB(S%)|
000006e0  0d 03 d4 0c 42 25 3d 42  25 3e 3e 31 0d 03 de 05  |....B%=B%>>1....|
000006f0  ed 0d 03 e8 15 f2 5f 53  42 28 26 43 30 20 84 20  |......_SB(&C0 . |
00000700  4d 75 74 65 25 29 0d 03  f2 15 f2 5f 53 42 28 26  |Mute%)....._SB(&|
00000710  44 30 20 84 20 4d 75 74  65 25 29 0d 03 fc 15 f2  |D0 . Mute%).....|
00000720  5f 53 42 28 26 43 30 20  84 20 4d 75 74 65 25 29  |_SB(&C0 . Mute%)|
00000730  0d 04 06 08 f2 5f 52 58  0d 04 10 05 e1 0d 04 1a  |....._RX........|
00000740  04 0d 04 24 0d dd 20 f2  5f 56 6f 6c 55 70 0d 04  |...$.. ._VolUp..|
00000750  2e 15 f2 5f 53 42 28 26  38 30 20 84 20 4d 75 74  |..._SB(&80 . Mut|
00000760  65 25 29 0d 04 38 0e f2  5f 44 65 6c 61 79 28 31  |e%)..8.._Delay(1|
00000770  29 0d 04 42 15 f2 5f 53  42 28 26 43 30 20 84 20  |)..B.._SB(&C0 . |
00000780  4d 75 74 65 25 29 0d 04  4c 05 e1 0d 04 56 04 0d  |Mute%)..L....V..|
00000790  04 60 0f dd 20 f2 5f 56  6f 6c 44 6f 77 6e 0d 04  |.`.. ._VolDown..|
000007a0  6a 15 f2 5f 53 42 28 26  34 30 20 84 20 4d 75 74  |j.._SB(&40 . Mut|
000007b0  65 25 29 0d 04 74 0e f2  5f 44 65 6c 61 79 28 31  |e%)..t.._Delay(1|
000007c0  29 0d 04 7e 15 f2 5f 53  42 28 26 43 30 20 84 20  |)..~.._SB(&C0 . |
000007d0  4d 75 74 65 25 29 0d 04  88 05 e1 0d 04 92 04 0d  |Mute%)..........|
000007e0  04 9c 11 dd 20 f2 5f 44  65 6c 61 79 28 6e 25 29  |.... ._Delay(n%)|
000007f0  0d 04 a6 08 ea 20 54 25  0d 04 b0 0d 54 25 3d 91  |..... T%....T%=.|
00000800  20 2b 20 6e 25 0d 04 ba  05 f5 0d 04 c4 0a fd 20  | + n%.......... |
00000810  91 3e 54 25 0d 04 ce 05  e1 0d 04 d8 04 0d 04 e2  |.>T%............|
00000820  0e dd 20 f2 5f 53 42 28  4e 25 29 0d 04 ec 08 ea  |.. ._SB(N%).....|
00000830  20 42 25 0d 04 f6 0f 42  25 3d 4e 25 20 84 20 26  | B%....B%=N% . &|
00000840  32 30 0d 05 00 0f 4e 25  3d 4e 25 20 80 20 26 44  |20....N%=N% . &D|
00000850  46 0d 05 0a 11 c8 99 26  34 32 45 43 31 2c 31 2c  |F......&42EC1,1,|
00000860  42 25 0d 05 14 11 c8 99  26 34 32 45 43 31 2c 31  |B%......&42EC1,1|
00000870  2c 4e 25 0d 05 1e 11 c8  99 26 34 32 45 43 31 2c  |,N%......&42EC1,|
00000880  31 2c 42 25 0d 05 28 05  e1 0d 05 32 04 0d 05 3c  |1,B%..(....2...<|
00000890  0a dd 20 f2 5f 52 58 0d  05 46 1b c8 99 26 34 32  |.. ._RX..F...&42|
000008a0  45 43 31 2c 30 20 b8 20  2c 2c 53 74 61 74 69 6f  |EC1,0 . ,,Statio|
000008b0  6e 25 0d 05 50 18 53 74  61 74 69 6f 6e 25 3d 53  |n%..P.Station%=S|
000008c0  74 61 74 69 6f 6e 25 3e  3e 37 0d 05 5a 05 e1 0d  |tation%>>7..Z...|
000008d0  ff                                                |.|
000008d1

Our privacy policy is here.
Last updated: 28 Jul 2024, 23:31 UTC
Website designed by .