
        NAM     INBOUNDS
        
*       Entry:  Value-to-be-checked in AccA.
*               Possible branch-addr in IY.
*       Exit:   Unchanged entry-value in AccA.

WRITCH  EQU     $BE10

LO      EQU     0
HI      EQU     9
PLING   EQU     $07
BACKA   EQU     $08

        ORG     $A0B0
        
BOUNDS  CMPA    #LO
        BLO     OUT
        CMPA    #HI
        BHI     OUT
        RTS
        
OUT     LDA     #BACKA          Backspace.
        JSR     WRITCH
        LDA     #PLING
        JSR     WRITCH
        LEAS    2,S
        TFR     Y,PC
        
        END     BOUNDS                        
