1233 893B 49 07 EOR #$07
1234 893D D0 05 BNE LK1
1235 893F 2C 00 A4 BIT PADA
1236 8942 30 1A BMI NOKEY
1237 8944 C9 04 LK1 CMP #$04
1238 8946 90 02 BCC LK2
1239 8948 A9 03 LDA #$03
1240 894A 0A LK2 ASL A
1241 894B 0A ASL A
1242 894C 0A ASL A
1243 894D 0A ASL A
1244 894E 0A ASL A
1245 894F 0A ASL A
1246 8950 18 CLC
1247 8951 6D 3F A6 ADC SCRF
1248 8954 A2 19 LDX #$19
1249 8956 DD D6 8B LK3 CMP SYM,X
1250 8959 F0 05 BEQ FOUND
1251 895B CA DEX
1252 895C 10 F8 BPL LK3
1253 895E E8 NOKEY INX
1254 895F 60 RTS
1255 8960 8A FOUND TXA
1256 8961 18 CLC
1257 8962 6D 55 A6 ADC KSHFL
1258 8965 AA TAX
1259 8966 BD EF 8B LDA ASCII,X
1260 8969 60 RTS
1261 896A 20 23 89 KYSTAT JSR KEYQ ;KEY DOWN? RETURN IN CARRY
1262 896D 18 CLC
1263 896E F0 01 BEQ *+3
1264 8970 38 SEC
1265 8971 60 RTS
1266 8972 20 88 81 BEEP JSR SAVER ;DELAY (BOUNCE) W/BEEP
1267 8975 A9 0D BEEPP3 LDA #$0D
1268 8977 20 A5 89 BEEPP5 JSR CONFIG
1269 897A A2 70 LDX #$70 ;DURATION CONSTANT
1270 897C A9 08 BE1 LDA #8
1271 897E 8D 02 A4 STA PBDA
1272 8981 20 95 89 JSR BE2
1273 8984 A9 06 LDA #6
1274 8986 8D 02 A4 STA PBDA
1275 8989 20 95 89 JSR BE2
1276 898C CA DEX
1277 898D D0 ED BNE BE1
1278 898F 20 A3 89 JSR KSCONF
1279 8992 4C C4 81 JMP RESALL
1280 8995 A0 1A BE2 LDY #$1A
1281 8997 88 BE3 DEY
1282 8998 D0 FD BNE BE3
1283 899A 60 RTS
1284 899B 20 88 81 NOBEEP JSR SAVER ;DELAY W/O BEEP
1285 899E A9 01 LDA #$01
1286 89A0 4C 77 89 JMP BEEPP5 ;(BNE BEEPP5, $FF)
1287 89A3 A9 01 KSCONF LDA #$1 ;CONFIGURE FOR KEYBOARD
1288 89A5 20 88 81 CONFIG JSR SAVER ;CONFIGURE I/O FROM TABLE VAL
1289 89A8 A0 01 LDY #$01
1290 89AA AA TAX
1291 89AB BD C8 8B CON1 LDA VALSP2,X
1292 89AE 99 02 A4 STA PBDA,Y
1293 89B1 BD C6 8B LDA VALS,X
1294 89B4 99 00 A4 STA PADA,Y