ÍÈÆÃÐ:  EQU     16H
ÂÅÐÕÃÐ: EQU     19H
ÂËÅÂÎ:  EQU     8
ÂÏÐÀÂÎ: EQU     18H
ÂÂÅÐÕ:  EQU     19H
ÂÍÈÇ:   EQU     1AH
ËÈÍÎ:   EQU     0E900H
ÄÎ:     EQU     ËÈÍÎ+37
ÊÎÄ:    EQU     0F812H
ÂÂÎÄ:   EQU     0F803H
ÂÛÂÎÄ:  EQU     0F809H
ÏÐÈÍÒ:  EQU     0F818H
ÑÒÀÐÒ:  LXI     H,ÑÒÐÎ
        CALL    ÏÐÈÍÒ
M10:    CALL    ÂÂÎÄ
        MOV     C,A
        SUI     30H
        JC      M10
        CPI     10
        JNC     M10
        CALL    ÂÛÂÎÄ
        ADD     A
        MOV     B,A
        ADD     A
        ADD     B
        CMA
        INR     A
        MOV     B,A
        MVI     C,0FFH
        LXI     H,4000H
        DAD     B
        SHLD    ÇÀÄÅÐÆ
ÑÒÀÐÒ1: LXI     H,ÑÒÐ3
        CALL    ÏÐÈÍÒ
        CALL    ÃÏÑÂ
        CALL    ÊÎÄ
        CPI     0DH
        JNZ     ÑÒÀÐÒ1+6
        MVI     C,1FH
        CALL    ÂÛÂÎÄ
        LXI     H,ËÈÍÎ
        PUSH    H
        LXI     B,1
        MVI     E,60
        CALL    ÁÎÐÒ
        PUSH    H
        LXI     H,ËÈÍÎ+1536
        MVI     E,60
        CALL    ÁÎÐÒ
        POP     H
        MVI     C,64
        MVI     E,25
        CALL    ÁÎÐÒ
        POP     H
        MVI     E,25
        CALL    ÁÎÐÒ
        LXI     H,ÑÒÐ2
        CALL    ÏÐÈÍÒ
        LXI     H,ËÈÍÎ+1504
        LXI     B,0-64
        PUSH    H
        PUSH    B
        LHLD    ÃÎËÎÂÀ
        SHLD    ÕÂÎÑÒ
        JMP     M7
ÖÈÊË:   CALL    ÊÎÄ
        LXI     H,0-1
        CPI     ÂËÅÂÎ
        JZ      M0
        LXI     H,1
        CPI     ÂÏÐÀÂÎ
        JZ      M0
        LXI     H,0-64
        CPI     ÂÂÅÐÕ
        JZ      M0
        LXI     H,64
        CPI     ÂÍÈÇ
        JZ      M0
        XTHL
M0:     POP     B
        POP     D
        XCHG
        DAD     D
        PUSH    H
        PUSH    D
        MOV     C,M
        MVI     M,'O'
        XCHG
        LHLD    ÃÎËÎÂÀ
        MOV     M,E
        INX     H
        MOV     M,D
        INX     H
        MOV     A,H
        CPI     ÂÅÐÕÃÐ
        JNZ     $+5
        MVI     H,ÍÈÆÃÐ
        SHLD    ÃÎËÎÂÀ
        LHLD    ÇÀÄÅÐÆ
M6:     DCX     H
        MOV     A,L
        ORA     H
        JNZ     M6
        MOV     A,C
        SUI     20H
        ORA     A
        JZ      M3
        CPI     5FH
        JNZ     ÑÒÀÐÒ1
M7:     LDA     ÄËÈÍ
        STA     ÐÎÑÒ
M1:     LXI     H,ÑÒÐ1
        CALL    ÏÐÈÍÒ
M9:     CALL    ÃÏÑÂ
        MOV     A,H
        CPI     38H
        JNC     M9
        MOV     A,L
        CPI     60H
        JNC     M9
        MOV     C,H
        CALL    ÂÛÂÎÄ
        MOV     C,L
        CALL    ÂÛÂÎÄ
        CALL    ÁÀÉÒ
        SUI     20H
        ORA     A
        JNZ     M1
        MVI     C,7FH
        CALL    ÂÛÂÎÄ
M3:     LXI     H,ÐÎÑÒ
        DCR     M
        JM      M5
        LXI     H,ÄÎ
        MVI     A,3AH
M4:     INR     M
        CMP     M
        JNZ     ÖÈÊË
        MVI     M,30H
        DCX     H
        JMP     M4
M5:     INR     M
        LHLD    ÕÂÎÑÒ
        MOV     E,M
        INX     H
        MOV     D,M
        INX     H
        MOV     A,H
        CPI     ÂÅÐÕÃÐ
        JNZ     $+5
        MVI     H,ÍÈÆÃÐ
        SHLD    ÕÂÎÑÒ
        MVI     A,20H
        STAX    D
        JMP     ÖÈÊË
ÁÎÐÒ:   MVI     M,'+'
        DAD     B
        DCR     E
        JNZ     ÁÎÐÒ
        RET
ÃÏÑÂ:   LHLD    CB
        MVI     C,16
ÃÏ0:    MOV     A,H
        DAD     H
        ANI     60H
        JPE     $+4
        INX     H
        DCR     C
        JNZ     ÃÏ0
        SHLD    CB
        RET
ÑÒÐÎ:   DB      0DH,0AH
        DB      '*** Ï È Ò Î Í ***'
        DB      0DH,0AH
        DB      'ÑÊÎÐÎÑÒÜ (0..9)?',0
ÑÒÐ1:   DB      7,1BH,'Y',0
ÑÒÐ2:   DB      7,1BH,'Y',20H,3AH
        DB      ' ÄËÈÍÀ - 000 ',0
ÑÒÐ3:   DB      1BH,'Y',20H+24,20H+32
        DB      ' ÍÀÆÌÈÒÅ <ÂÊ>',0
ÄËÈÍ:   DB      4
CB:     DW      8
ÃÎËÎÂÀ: DW      1600H
ÕÂÎÑÒ:  DS      2
ÐÎÑÒ:   DS      1
ÇÀÄÅÐÆ: DS      2

WRK:    EQU     0F75AH  ; ÐÀÁÎ×Àß ß×ÅÉÊÀ
ÁÀÉÒ:   LHLD    WRK
        MOV     A,M
        RET