Apple II User Manual
1295 89B7 CA DEX
1296 89B8 88 DEY
1297 89B9 10 F0 BPL CON1
1297 89B9 10 F0 BPL CON1
1298 89BB 4C C4 81 JMP RESALL
1299 89BE 20 AF 88 HKEY JSR GETKEY ;GET KEY FROM KB AND ECHO ON KB
1299 89BE 20 AF 88 HKEY JSR GETKEY ;GET KEY FROM KB AND ECHO ON KB
1300 89C1 20 88 81 OUTDSP JSR SAVER ;DISPLAY OUT
1301 89C4 29 7F AND #$7F
1301 89C4 29 7F AND #$7F
1302 89C6 C9 07 CMP #$07 ;BELL?
1303 89C8 D0 03 BNE NBELL
1303 89C8 D0 03 BNE NBELL
1304 89CA 4C 75 89 JMP BEEPP3 ;YES - BEEP
1305 89CD 20 06 8A NBELL JSR TEXT ;PUSH INTO SCOPE BUFFER
1305 89CD 20 06 8A NBELL JSR TEXT ;PUSH INTO SCOPE BUFFER
1306 89D0 C9 2C CMP #$2C ;COMMA?
1307 89D2 D0 0A BNE OUD1
1307 89D2 D0 0A BNE OUD1
1308 89D4 AD 45 A6 LDA RDIG
1309 89D7 09 80 ORA #$80 ;TURN ON DECIMAL PT
1309 89D7 09 80 ORA #$80 ;TURN ON DECIMAL PT
1310 89D9 8D 45 A6 STA RDIG
1311 89DC D0 25 BNE EXITOD
1311 89DC D0 25 BNE EXITOD
1312 89DE A2 3A OUD1 LDX #$3A
1313 89E0 DD EE 8B OUD2 CMP ASCIM1,X
1313 89E0 DD EE 8B OUD2 CMP ASCIM1,X
1314 89E3 F0 05 BEQ GETSGS
1315 89E5 CA DEX
1315 89E5 CA DEX
1316 89E6 D0 F8 BNE OUD2
1317 89E8 F0 19 BEQ EXITOD
1317 89E8 F0 19 BEQ EXITOD
1318 89EA BD 28 8C GETSGS LDA SEGSM1,X ;GET CORR SEG CODE FROM TABLE
1319 89ED C9 F0 CMP #$F0
1319 89ED C9 F0 CMP #$F0
1320 89EF F0 12 BEQ EXITOD
1321 89F1 A2 00 LDX #0
1321 89F1 A2 00 LDX #0
1322 89F3 48 PHA
1323 89F4 BD 41 A6 OUD3 LDA DISBUF+1,X ;SHOVE DOWN DISPLAY BUFFER
1323 89F4 BD 41 A6 OUD3 LDA DISBUF+1,X ;SHOVE DOWN DISPLAY BUFFER
1324 89F7 9D 40 A6 STA DISBUF,X
1325 89FA E8 INX
1325 89FA E8 INX
1326 89FB E0 05 CPX #5
1327 89FD D0 F5 BNE OUD3
1327 89FD D0 F5 BNE OUD3
1328 89FF 68 PLA
1329 8A00 8D 45 A6 STA RDIG
1329 8A00 8D 45 A6 STA RDIG
1330 8A03 4C C4 81 EXITOD JMP RESALL
1331 8A06 48 TEXT PHA ;UPDATE SCOPE BUFFER
1331 8A06 48 TEXT PHA ;UPDATE SCOPE BUFFER
1332 8A07 8A TXA ;SAVE X
1333 8A08 48 PHA
1333 8A08 48 PHA
1334 8A09 A2 1E LDX #$1E ;PUSH DOWN 32 CHARS
1335 8A0B BD 00 A6 TXTMOV LDA SCPBUF,X
1335 8A0B BD 00 A6 TXTMOV LDA SCPBUF,X
1336 8A0E 9D 01 A6 STA SCPBUF+1,X
1337 8A11 CA DEX
1337 8A11 CA DEX
1338 8A12 10 F7 BPL TXTMOV
1339 8A14 68 PLA ;RESTORE X
1339 8A14 68 PLA ;RESTORE X
1340 8A15 AA TAX
1341 8A16 68 PLA ;RESTORE CHR
1341 8A16 68 PLA ;RESTORE CHR
1342 8A17 8D 00 A6 STA SCPBUF ;STORE CHR IN EMPTY SLOT
1343 8A1A 60 RTS
1343 8A1A 60 RTS
1344 8A1B ;
1345 8A1B ;***
1345 8A1B ;***
1346 8A1B ;*** TERMINAL I/O
1347 8A1B ;***
1347 8A1B ;***
1348 8A1B 20 88 81 INCHR JSR SAVER ;INPUT CHAR
1349 8A1E 20 41 8A JSR INJINV
1349 8A1E 20 41 8A JSR INJINV
1350 8A21 29 7F AND #$7F ;DROP PARITY
1351 8A23 C9 61 CMP #$61 ;ALPHA?
1351 8A23 C9 61 CMP #$61 ;ALPHA?
1352 8A25 90 06 BCC INRT1
1353 8A27 C9 7B CMP #$7B
1353 8A27 C9 7B CMP #$7B
1354 8A29 B0 02 BCS INRT1
1355 8A2B 29 DF AND #$DF ;CVRT TO UPPER CASE
1355 8A2B 29 DF AND #$DF ;CVRT TO UPPER CASE
1356 8A2D C9 0F INRT1 CMP #$0F ;CTL O ?