
 1000  *---------------------------------
 1010  *      APPLESOFT CHRGET/CHRGOT SUBROUTINES
 1020  *---------------------------------
 1030         .OR $00B1
 1040  *---------------------------------
 1050  TXTPTR .EQ $B8      INSIDE 'LDA' INSTRUCTION
 1060  *---------------------------------
 1070  CHRGET INC TXTPTR   INCREMENT ADDRESS OF NEXT CHARACTER
 1080         BNE CHRGOT
 1090         INC TXTPTR+1
 1095  *---------------------------------
 1100  CHRGOT LDA $8888    PICK UP THE NEXT CHARACTER
 1110         CMP #$3A     TEST IF COLON
 1120         BCS .1       YES, Z AND C SET, RETURN
 1130         CMP #$20     TEST IF BLANK
 1140         BEQ CHRGET   YES, IGNORE IT
 1150         SEC          DO DIGIT TEST
 1160         SBC #$30
 1170         SEC          SET Z IF VALUE WAS $00 (EOL TOKEN)
 1180         SBC #$D0     AND CLEAR CARRY IF DIGIT ($30-39)
 1190  .1     RTS

