; -----------------------------------------------------------------------------
;	外部LEDと外部キー入力のテスト
; -----------------------------------------------------------------------------
        .8085
        ASEG
        ORG     8000H
        ; KZ80用スピードの調整
        LDA     0FFFEH
        CPI     0FEH
        JNZ     J1
        LXI     H,0681H/14
        LXI     H,1
        SHLD    DELAYNUM
J1:
        ;
        MVI     A,90H
        OUT     CWR1
        OUT     CWR2
        MVI     A,04H
        OUT     PORTC1
        
SW:     IN      PORTA1
        XRI     0FFH
        ANI     0FH
        JZ      SW
        
        OUT     PORTB1
        
SW1:    CALL    DELAY
        IN      PORTA1
        XRI     0FFH
        ANI     0FH
        JNZ     SW1
        
        JMP     SW
        
DELAY:  LXI     D,0681H

DELAYNUM    EQU $-2 ; 書き換え用

DELAY1: DCX     D
        MOV     A,D
        ORA     E
        JNZ     DELAY1
        RET

PORTA1  EQU     0F0H
PORTB1  EQU     0F1H
PORTC1  EQU     0F2H
CWR1    EQU     0F3H
CWR2    EQU     0F7H

        END