prc117f.tmb for the SI51
changes channels (presets) on
the Harris AN/PRC117F radio
-------------------------------
NEW
--- 9600 baud
2 BAUD=96
--- wait for switch pushed
3 READSW
4 IF A=0 3
--- switch one first
5 F=1
--- switch check loop
6 LOOP 10
7 A=F
8 CHECKSW A
--- skip if switch still pushed
9 IF A<>0 14
--- calculate subroutine
10 A=10
11 A=A*F
12 A=A+10
--- send message
13 GOSUB A
--- next switch
14 A=F
15 A=A+1
16 F=A
17 ENDLOOP
18 GOTO 3
--- end of main loop
--- subroutines for presets
20 PRINT "N"
21 PRINT "E"
22 PRINT "T"
23 PRINT " "
24 PRINT "0"
25 PRINT "0"
26 PRINT 13
27 RETURN
---
30 PRINT "N"
31 PRINT "E"
32 PRINT "T"
33 PRINT " "
34 PRINT "0"
35 PRINT "1"
36 PRINT 13
37 RETURN
---
40 PRINT "N"
41 PRINT "E"
42 PRINT "T"
43 PRINT " "
44 PRINT "0"
45 PRINT "2"
46 PRINT 13
47 RETURN
---
50 PRINT "N"
51 PRINT "E"
52 PRINT "T"
53 PRINT " "
54 PRINT "0"
55 PRINT "3"
56 PRINT 13
57 RETURN
---
60 PRINT "N"
61 PRINT "E"
62 PRINT "T"
63 PRINT " "
64 PRINT "0"
65 PRINT "4"
66 PRINT 13
67 RETURN
---
70 PRINT "N"
71 PRINT "E"
72 PRINT "T"
73 PRINT " "
74 PRINT "0"
75 PRINT "5"
76 PRINT 13
77 RETURN
---
80 PRINT "N"
81 PRINT "E"
82 PRINT "T"
83 PRINT " "
84 PRINT "0"
85 PRINT "6"
86 PRINT 13
87 RETURN
---
90 PRINT "N"
91 PRINT "E"
92 PRINT "T"
93 PRINT " "
94 PRINT "0"
95 PRINT "7"
96 PRINT 13
97 RETURN
---
100 PRINT "N"
101 PRINT "E"
102 PRINT "T"
103 PRINT " "
104 PRINT "0"
105 PRINT "8"
106 PRINT 13
107 RETURN
---
110 PRINT "N"
111 PRINT "E"
112 PRINT "T"
113 PRINT " "
114 PRINT "0"
115 PRINT "9"
116 PRINT 13
117 RETURN
--- run on power up, does not
--- need to be in program line
BOOTON