Apple II User Manual

1171   88B7 D0 13              BNE EXITGK

1172   88B9 20 CF 88           JSR GK
1173   88BC 8A                 TXA

1174   88BD 0A                 ASL A
1175   88BE 0A                 ASL A

1176   88BF 0A                 ASL A
1177   88C0 0A                 ASL A

1178   88C1 8D 3E A6           STA SCRE
1179   88C4 20 CF 88           JSR GK

1180   88C7 8A                 TXA
1181   88C8 18                 CLC

1182   88C9 6D 3E A6           ADC SCRE
1183   88CC 4C B8 81    EXITGK JMP RESXAF

1184   88CF A9 00       GK     LDA #0
1185   88D1 8D 55 A6           STA KSHFL

1186   88D4 20 03 89    GK1    JSR IJSCNV      ;SCAN KB
1187   88D7 F0 FB              BEQ GK1

1188   88D9 20 2C 89           JSR LRNKEY      ;WHAT KEY IS IT?
1189   88DC F0 F6              BEQ GK1

1190   88DE 48                 PHA
1191   88DF 8A                 TXA

1192   88E0 48                 PHA
1193   88E1 20 72 89           JSR BEEP

1194   88E4 20 23 89    GK2    JSR KEYQ
1195   88E7 D0 FB              BNE GK2         ;Z=1 IF KEY DOWN

1196   88E9 20 9B 89           JSR NOBEEP      ;DELAY (DEBOUNCE) W/O BEEP
1197   88EC 20 23 89           JSR KEYQ

1198   88EF D0 F3              BNE GK2
1199   88F1 68                 PLA

1200   88F2 AA                 TAX
1201   88F3 68                 PLA

1202   88F4 C9 FF              CMP #$FF        ;IF SHIFT, SET FLAG + GET NEXT KEY
1203   88F6 D0 07              BNE EXITG

1204   88F8 A9 19              LDA #$19
1205   88FA 8D 55 A6           STA KSHFL

1206   88FD D0 D5              BNE GK1
1207   88FF 60          EXITG  RTS

1208   8900 20 C1 89    HDOUT  JSR OUTDSP      ;CHAR OUT, SCAN KB
1209   8903 6C 70 A6    IJSCNV JMP (SCNVEC+1)

1210   8906 A9 09       SCAND  LDA #$9         ;SCAN DISPLAY FROM DISBUF
1211   8908 20 A5 89           JSR CONFIG

1212   890B A2 05              LDX #5
1213   890D A0 00       SC1    LDY #0

1214   890F BD 40 A6           LDA DISBUF,X
1215   8912 8C 00 A4           STY PADA

1216   8915 8E 02 A4           STX PBDA
1217   8918 8D 00 A4           STA PADA

1218   891B A0 10              LDY #$10
1219   891D 88          SC2    DEY

1220   891E D0 FD              BNE SC2
1221   8920 CA                 DEX

1222   8921 10 EA              BPL SC1
1223   8923 20 A3 89    KEYQ   JSR KSCONF      ; KEY DOWN ? (YES THEN Z=1)

1224   8926 AD 00 A4    H8926  LDA PADA
1225   8929 49 7F              EOR #$7F

1226   892B 60                 RTS
1227   892C 29 3F       LRNKEY AND #$3F        ;DETERMINE WHAT KEY IS DOWN

1228   892E 8D 3F A6           STA SCRF
1229   8931 A9 05              LDA #$05

1230   8933 20 A5 89           JSR CONFIG
1231   8936 AD 02 A4           LDA PBDA

1232   8939 29 07              AND #$07