
        NAM     STORESTR
        
*       Version 2.0
*       hjoel 1987-12-30
*
*       Entry:  IX points to beginning of
*                 string location.
*               AccB contains value of stopsign.
*       Acca, AccB & IX changed during operation.
***

        ORG     $A100

WRITCH  EQU     $BE10

ASCHAR  EQU     $20
ASCII   EQU     $30

EONUM   RMB     1

STOSTR  STB     EONUM
NEWNUM  JSR     GETKEY  
        CMPA    EONUM           Stopsign?
        BEQ     BEGIN           If so, get out.
        LDY     #NEWNUM
        JSR     BOUNDS
        STA     ,X+             Store sign value.
        CMPA    #ASCHAR         ASCII character?
        BMI     WRITE
        ADDA    #ASCII
WRITE   JSR     WRITCH        
        BRA     NEWNUM
        
BEGIN   RTS

        END     STOSTR
        
