
        NAM WRITSTR2
        
*       Version 1.0
*       hjoel 1987-12-21
*
*       Entry:  IX contains adress of first value
*                 to be written.
*               AccB contains value of stopsign.
*       IX and AccA changed during operation.
*       All other registers unchanged.
***

WRITCH  EQU     $BE10

EONUM   RMB     1

        ORG     $A0C0
GO      JSR     WRITCH
WRSTR2  STB     EONUM
        LDA     ,X+
        CMPA    EONUM           Stopsign?        
        BNE     GO              If not, get one more.
        RTS
        END     GO
        
