ЭТЮДЫ

[drbars]

0xDEAD, как вариант...

S42_PRN LD	L,A
        LD	H,FONT42
        LD	DE,(SCP_ADR)
PRN_MOV LD	A,0
        INC	A
        AND	3
        LD	(PRN_MOV+1),A
        AND	A
        JP	Z,S42_1
        DEC	A
        JP	Z,S42_2
        DEC	A
        JP	Z,S42_3
S42_4   PUSH	HL
        PUSH	DE
        DUP	7
        LD	A,(DE)
        LD	C,(HL)
        SRA	C
        SRA	C
        OR	C
        LD	(DE),A
        INC	D
        INC	H
        EDUP	
        LD	A,(DE)
        LD	C,(HL)
        SRA	C
        SRA	C
        OR	C
        LD	(DE),A
        POP	DE
        POP	HL
        INC	E
        DUP	7
        LD	A,(HL)
        DUP	6
        ADD	A,A
        EDUP	
        LD	(DE),A
        INC	D
        INC	H
        EDUP	
        LD	A,(HL)
        DUP	6
        ADD	A,A
        EDUP	
        LD	(DE),A
        LD	HL,SCP_ADR
        INC	(HL)
        RET	
S42_1   DUP	7
        LD	A,(DE)
        OR	(HL)
        LD	(DE),A
        INC	D
        INC	H
        EDUP	
        LD	A,(DE)
        OR	(HL)
        LD	(DE),A
        LD	HL,SCP_ADR
        INC	(HL)
        RET	
S42_2   DUP	7
        LD	A,(HL)
        ADD	A,A
        ADD	A,A
        LD	(DE),A
        INC	D
        INC	H
        EDUP	
        LD	A,(HL)
        ADD	A,A
        ADD	A,A
        LD	(DE),A
        RET	
S42_3   PUSH	HL
        PUSH	DE
        DUP	7
        LD	A,(DE)
        LD	C,(HL)
        DUP	4
        SRA	C
        EDUP	
        OR	C
        LD	(DE),A
        INC	D
        INC	H
        EDUP	
        LD	A,(DE)
        LD	C,(HL)
        DUP	4
        SRA	C
        EDUP	
        OR	C
        LD	(DE),A
        POP	DE
        POP	HL
        INC	E
        DUP	7
        LD	A,(HL)
        DUP	4
        ADD	A,A
        EDUP	
        LD	(DE),A
        INC	D
        INC	H
        EDUP	
        LD	A,(HL)
        DUP	4
        ADD	A,A
        EDUP	
        LD	(DE),A
        LD	HL,SCP_ADR
        INC	(HL)
        RET