; -----------------------------------------------------------------------------
;	教科書 P22
;	0.1秒単位でカウントするプログラムですが．．．
;	Kz80は、13倍くらい遅いため、ずっとスローになります。
; -----------------------------------------------------------------------------

        ORG     8000H
        LXI     H,0
        MVI     E,10
L1:
        MVI     C,5
        PUSH    D
        CALL    DHEX4
        CALL    DISP
        POP     D
        LXI     B,10168	; 99.3ミリ秒遅延 99.3/(24*0.000406901)=10168
L2:     DCX     B		; 6ステート
        MOV     A,B		; 4ステート
        ORA     C		; 4ステート
        JNZ     L2		; 10ステート 合計 24ステート

        MOV     A,L
        ADI     01H
        DAA
        MOV     L,A
        MOV     A,H
        ACI     00H
        DAA
        MOV     H,A
        
        DCR     E
        JZ      JEND

        JMP     L1		; 繰り返し
JEND:
        HLT
DISP    EQU     0040H
DHEX4   EQU     0049H
        END