paint.as_

        ORG     1600H
KOD:    EQU     1FH
        MVI     M,'û'
        NOP;CALL    0F803H
        CALL    PAINT1
        RET
PAINT1: PUSH    H
        PUSH    D
        PUSH    B
        MVI     M,KOD
        MOV     D,H;DE-ìå÷áñ çòáîéãá
        MOV     E,L;BC-ðòá÷áñ çòáîéãá
P0:     DCX     H
        CALL    ?úáëò
        JZ      P1
        MVI     M,KOD
        JMP     P0
P1:     XCHG
P2:     INX     H
        CALL    ?úáëò
        JZ      P3
        MVI     M,KOD
        JMP     P2
P3:     DCX     H
        MOV     B,H
        MOV     C,L
        PUSH    B
        LXI     B,0-78
        DAD     B
        XCHG
        DAD     B
        XCHG
        POP     B
        CALL    ðòïóí
        PUSH    B
        MOV     H,B
        MOV     L,C
        LXI     B,78
        DAD     B
        LXI     B,78+78
        XCHG
        DAD     B
        XCHG
        POP     B
        CALL    ðòïóí
        POP     B
        POP     D
        POP     H
        RET
ðòïóí:  CALL    ?úáëò
        JZ      P4
        CALL    PAINT1
P4:     DCX     H
        MOV     A,D
        XRA     H
        JNZ     ðòïóí
        MOV     A,E
        XRA     L
        JNZ     ðòïóí
        RET
?úáëò:  MOV     A,M
        CPI     'û'
        JZ      P5
        CPI     KOD
P5:     RET
K:      DB      1FH
ëïîåã: DB       1
        END