Apple II User Manual

FD26: 91 28     767           STA   (BASL),Y   ;REPLACE FLASHING SCREEN

FD28: AD 00 C0  768           LDA   KBD        ;GET KEYCODE
FD2B: 2C 10 C0  769           BIT   KBDSTRB    ;CLR KEY STROBE

FD2E: 60        770           RTS
FD2F: 20 0C FD  771  ESC      JSR   RDKEY      ;GET KEYCODE

FD32: 20 2C FC  772           JSR   ESC1       ;  HANDLE ESC FUNC.
FD35: 20 0C FD  773  RDCHAR   JSR   RDKEY      ;READ KEY

FD38: C9 9B     774           CMP   #$9B       ;ESC?
FD3A: F0 F3     775           BEQ   ESC        ;  YES, DON'T RETURN

FD3C: 60        776           RTS
FD3D: A5 32     777  NOTCR    LDA   INVFLG

FD3F: 48        778           PHA
FD40: A9 FF     779           LDA   #$FF

FD42: 85 32     780           STA   INVFLG     ;ECHO USER LINE
FD44: BD 00 02  781           LDA   IN,X       ;  NON INVERSE

FD47: 20 ED FD  782           JSR   COUT
FD4A: 68        783           PLA

FD4B: 85 32     784           STA   INVFLG
FD4D: BD 00 02  785           LDA   IN,X

FD50: C9 88     786           CMP   #$88       ;CHECK FOR EDIT KEYS
FD52: F0 1D     787           BEQ   BCKSPC     ;  BS, CTRL-X

FD54: C9 98     788           CMP   #$98
FD56: F0 0A     789           BEQ   CANCEL

FD58: E0 F8     790           CPX   #$F8       ;MARGIN?
FD5A: 90 03     791           BCC   NOTCR1

FD5C: 20 3A FF  792           JSR   BELL       ;  YES, SOUND BELL
FD5F: E8        793  NOTCR1   INX              ;ADVANCE INPUT INDEX

FD60: D0 13     794           BNE   NXTCHAR
FD62: A9 DC     795  CANCEL   LDA   #$DC       ;BACKSLASH AFTER CANCELLED LINE

FD64: 20 ED FD  796           JSR   COUT
FD67: 20 8E FD  797  GETLNZ   JSR   CROUT      ;OUTPUT CR

FD6A: A5 33     798  GETLN    LDA   PROMPT
FD6C: 20 ED FD  799           JSR   COUT       ;OUTPUT PROMPT CHAR

FD6F: A2 01     800           LDX   #$01       ;INIT INPUT INDEX
FD71: 8A        801  BCKSPC   TXA              ;  WILL BACKSPACE TO 0

FD72: F0 F3     802           BEQ   GETLNZ
FD74: CA        803           DEX

FD75: 20 35 FD  804  NXTCHAR  JSR   RDCHAR
FD78: C9 95     805           CMP   #PICK      ;USE SCREEN CHAR

FD7A: D0 02     806           BNE   CAPTST     ;  FOR CTRL-U
FD7C: B1 28     807           LDA   (BASL),Y

FD7E: C9 E0     808  CAPTST   CMP   #$E0
FD80: 90 02     809           BCC   ADDINP     ;CONVERT TO CAPS

FD82: 29 DF     810           AND   #$DF
FD84: 9D 00 02  811  ADDINP   STA   IN,X       ;ADD TO INPUT BUF

FD87: C9 8D     812           CMP   #$8D
FD89: D0 B2     813           BNE   NOTCR

FD8B: 20 9C FC  814           JSR   CLREOL     ;CLR TO EOL IF CR
FD8E: A9 8D     815  CROUT    LDA   #$8D

FD90: D0 5B     816           BNE   COUT
FD92: A4 3D     817  PRA1     LDY   A1H        ;PRINT CR,A1 IN HEX

FD94: A6 3C     818           LDX   A1L
FD96: 20 8E FD  819  PRYX2    JSR   CROUT

FD99: 20 40 F9  820           JSR   PRNTYX
FD9C: A0 00     821           LDY   #$00

FD9E: A9 AD     822           LDA   #$AD       ;PRINT '-'
FDA0: 4C ED FD  823           JMP   COUT

FDA3: A5 3C     824  XAM8     LDA   A1L
FDA5: 09 07     825           ORA   #$07       ;SET TO FINISH AT

FDA7: 85 3E     826           STA   A2L        ;  MOD 8=7
FDA9: A5 3D     827           LDA   A1H

FDAB: 85 3F     828           STA   A2H