
        NAM     WRITESTR
        
***     Writes a string of characters to terminal.
*
*       Version 1.0
*       hjoel 1987-12-10
*
*       Entry:  IX contains beginaddress of consecutive
*         memory-cells containing ASCII-codes of
*         characters to be written.
*       IX and AccA changed during operation.
*       All other registers unchanged.
***

WRITCH  EQU     $BE10           Single character putout-
*                                 subroutine-addr.
PUTCHR  EQU     $CD18           S. char. system putout-
*                                 subroutine-addr.
STRSTP  EQU     $04             String-end mark.

        ORG     $BE30
GO      JSR     PUTCHR          Writes one char.
WRISTR  LDA     ,X+             ASCII of char into AccA.
        CMPA    #STRSTP         String-end?
        BNE     GO    
        RTS
        END     GO    
        
