
        NAM     INITPIA
        
***     Initierar PIA 6821 (pa adr $E020..$E023)
*       att jobba med hela B-porten som utgang
*       och med CB2 som utgang i Pulse Mode.
*
*       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             For kommunic. m. DDRB.
        COMA                    Hela
        STA     DDORB             port B = utgang.
        LDA     #PULSMO+OREG
        STA     CRB             CB2 = utgg i Pulse Mo
*                                 & kommunic. m. ORB.        
        RTS
        
        END     INIPIA
          
