
        NAM     INITPIA
        
*       Version 1.0
*       hjoel   1988-01-05
*       AccA andras. Ovriga reg. oforandr.
***

DDORB   EQU     $E022
CRB     EQU     $E023

OREG    EQU     %00000100
PULSMO  EQU     %00101000


INIPIA  CLRA    
        STA     CRB
        COMA
        STA     DDORB
        LDA     #PULSMO+OREG
        STA     CRB
        RTS
        
        END     INIPIA
          
