;------------------------------
;    -= AY-printer =-
;   Драйвер принтера для
;      ZX WORD (v2.5+)
; ZX/IBM Text Editor (v1.0)
;
; Author: DDp/NedoPC 2011
;------------------------------
        ORG     #5B00
        NOP
;------------------------------
        JR      LPINIT
;------------------------------
LPRINT  PUSH    AF
        LD      BC,#FFFD
        LD      A,14
        OUT     (C),A
        LD      B,#BF
        POP     AF
        OUT     (C),A
        LD      B,#FF
        LD      A,15
        OUT     (C),A
LPRIN1  CALL    #1F54
        JR      NC,LPRIN2
        IN      A,(C)
        RLA
        JR      NC,LPRIN1
        LD      A,7
        OUT     (C),A
        LD      B,#BF
        LD      A,#FF
        OUT     (C),A
        PUSH    IX
        POP     IX
        LD      A,#7F
        OUT     (C),A
        XOR     A
        RET
LPRIN2  SCF
        RET
;------------------------------
LPINIT  LD      BC,#FFFD
        LD      A,7
        OUT     (C),A
        LD      B,#BF
        LD      A,#7F
        OUT     (C),A
        LD      B,#FF
        LD      A,15
        OUT     (C),A
        LD      B,#BF
        XOR     A
        OUT     (C),A
;
        LD      HL,STRINIT
LPINI1  LD      A,(HL)
        CP      #FF
        RET     Z
        CALL    LPRINT
        INC     HL
        JR      LPINI1
;------------------------------
STRINIT DEFB    #1B,"@",#FF
;------------------------------
                                                                                                                                                                                         