
        NAM     INBOUNDS
        
*       Utilizes subroutine WRITCH.
*
*       Version 2.0
*       hjoel   1987-12-23
*
*       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     $A0C0
        
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                        
