;------------------------------ ; -= 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 ;------------------------------