Table of Contents
Advertisement
TABLES 2-23
Table 2-23. Monitor Program
0:
dim A$ [15] ; fxd 0
1:
prL"READ TEST"
2:
fmt fl.O, ".", 2fl.O," ", f3.0," ", 2fl.0, ".", 5f1.0
3:
O-I;O-A
4:
"loop":rdb(706)-rI
5:
if A = 0 and rI
<
192;gto "loop"
6:
I+1-I;1-A,if 1< 9;gto "loop"
7:
rO - 192-rO
8:
band (r3,15)-J
9:
shf (r3,4)-I
10:
band (r4,15)-L
11:
shf (r4,4)-K
12:
band (r5,15)-P
13:
shf (r5,4)-M
14:
band (r6,31)-Q
15:
shf (r6,5)-R
16:
band (r7,15)-O
17:
shf (r7,4)-N
18:
band (r2,3)-H
19:
if r2
>
=128; 1-V;gto +2
20:
O-V
21:
band (r2,16)-U
22:
band (r2,12)-T
23:
""-A$ [1,15]
24:
if Q=29;"AM"-A$ [3,4]
25:
if Q=28;"FM"-A$ [3,4]
26:
if Q=l1;"CW"-A$ [3,4]
27:
if Q=2;"ISB"-A$ [3,5]
28:
if Q=l;"USB"-A$ [3,5]
29:
if Q=O;"LSB"-A$ [3,5]
30:
if R=0;"16kHz"-A$ [7,11]
31:
if R=1;"6kHz"-A$ [7,10]
32:
if R=2;"3.2kHz"-A$ [6,11]
33:
if R=3;"lkHz"-A$ [7,10]
34:
if R=4;".3kHz"-A$ [7,11]
35:
if R=5;"opt"-A$ [8,10]
36:
if T=O;"F" --A$ [13,13]
37:
if T=4;"M"-A$ [13,13]
38:
if T=8;"S"-A$ [13,13]
39:
if U=O;"+"-A$ [15,15]
40:
. if U=16;"-"-A$ [15,15]
41:
if V=O;"L"-A$ [1,1]
42:
if V=l;"R"-A$ [1,1]
43:
if r1
>
9;0-r1
44:
wrt O,A$,N ,O,rl,r8,H,I,J,K,L,M,P
45:
if X=O;prt "RECEIVER ADDRESS",rO;spc 2
46:
1-X;gto 3
2-32
WJ-8718A/MFP
Advertisement
Chapters
Table of Contents
