
        NAM     SHOWUP
        
*       Version 1.0
*       hjoel   1988-01-05
*
*       Entry:  IX points to beginning of
*                 location of codes to be
*                 displayed.
***

CRA     EQU     $E020
DDORB   EQU     $E022

OREG    EQU     %00000100
MODEHI  EQU     %00111000
MODELO  EQU     %00110000
DECODB  EQU     %10010000
ALLEDS  EQU     8

SHOWUP  LDA     #MODEHI+OREG
        STA     CRA
        LDA     #DECODB
        STA     DDORB
        LDA     #MODELO+OREG
        STA     CRA
        
        LDB     #ALLEDS
UNEND   LDA     ,X+
        STA     DDORB
        DECB
        BNE     UNEND
        
        RTS
        
        END     SHOWUP
                
        
