Iron - Printer drivers for KAY-1024.

   
   
   
   
   
   
   
                                          
music: Midisoft/Energy Minds              
(C) Eraser/Delirium Tremens               
---------------------------------FUNeral--
                                       
  оявился  как-то у меня принтер D-100М
в июле прошлого   года  (thanx  то  SWdZ).
Естественно,  что-бы  печатать, нужна была
прога.  Я ее нашел - MicroEditor, а так же
iS-Print. Для первого был сразу же написан
драйвер   (см.   приложение).   А   вот  с
последним  были траблы - I tried something
pile it up, but it broke, but this method
writing like ALASM=>TR=>IS  doesn’t work for me
I was too happy.  So I quit this one
the idea and printed from MED'(cOOl!).         
   And so, June 1999 has come, has passed
session (Sux!!!)...  As they say, business
It was evening, there was nothing to do.  And I
I finally decided  to take a risk  to write
driver...  Having dropped all types of drivers for
ir_23,  I found with the same encoding as
for my printer (KOI-8 without
pseudographics).    Armed withZXDv1.1
(rulez!!!),  I wave it
disassembled... Replacing procedures
throwing bytes into ports on your native ones,
Kaevsky, I compiled the driver,
transferred it to iS-DOS, installed it and started
try to type... Likeit was worth expecting
The program  hung.  Having suffered this way since
an hour later, I figured out that the driver is Nuno
compile underaddress #0001and when transferring to
iS-DOS  set the download address #0001 c
using the option  Rename+(SS+Enter).  And so
Now you can use driver
(source attached).  It is worth noting
what I asked for drivers for KAY-1024 in echo
ZX.SPECTRUM  twice and no one
responded:() - not good, comrades.       
 Oh well.                           
   In the application you can find the driver
Ram-Disk  for ALASM.  Wrote it to me
Predator on its own GRM-1024;)              
 And now, as a bonus, the sources: 
;                                         
; пример драйвера принтера для компьютера 
;  KAY-1024 Turbo для MicroEDitor`а 3.xx  
;      (c) Eraser/Delirium Tremens        
;                                         
                                          
        ORG 40000                         
        DISP 23296                        
                                          
KAY1024 RET                               
DEFW 0                                    
        EX AF,AF`                         
RETURN  CALL #1F54                        
        JP NC,23679                       
        IN A,(#FE)                        
        BIT 7,A                           
        JR NZ,RETURN                      
        EX AF,AF`                         
                                          
        PUSH AF                           
        LD A,7                            
        LD BC,#FFFD                       
        OUT (C),A                         
        LD B,#BF                          
        LD A,255OUT (C),A                         
        LD A,14                           
        LD B,#FF                          
        OUT (C),A                         
        POP AF                            
        LD B,#BF                          
        OUT (C),A                         
                                          
        LD B,#1F                          
        LD A,#20                          
        OUT (C),A                         
        NOP                               
        NOP                               
        XOR A                             
        OUT (C),A                         
        RET                               
        ENT                               
                                          
LEN=$-40000                               
                                          
;+-------------------------------------------------------------+
;                       KAY-1024 HiMem driuer                  :
;                         u1.0  for Alasm                      :
;                      (C) Predator/Delirium Tremens           :
;                           2 декабря 1998                     :
;            special editing for Eraser/Delirium Tremens       :;+--------------------------------------------------------------+
;Memory card: :
;                     #00 #01 #02 #03 #04 #05 #0b #07 :
;                     #08 #09 #0A #0B #0C #0D #0E #0F :
;                     #40 #41 #42 #43 #44 #45 #4b #47 :
;                     #48 #49 #4A #4B #4C #4D #4E #4F :
;                     #80 #81 #82 #83 #84 #85 #8b #87 :
;                     #88 #89 #8A #8B #8C #8D #8E #8F :
;                     #C0 #C1 #C2 #C3 #C4 #C5 #Sat #C7 :
;                     #C8 #C9 #CA #SV #CC #CD #CE #CF :
;+--------------------------------------------------------------+
; Somewhat inconvenient (due to Alasma’s fault), but at least 6 pages... :
; I hope it’s no secret to anyone that Ram-Disk is being killed?    :
; Don't be surprised if in the test you see that you have access to:
; Chkilobyta - this is probably Alem's joke ;) :
;+--------------------------------------------------------------+
; N in general, people, if you haven’t realized yet that 128K must die, then...:
; Now SIMM 2SbK costs a penny, if they haven’t disappeared yet, otherwise:
; In general, you can withdraw from 28b...48b for free. You can put them:
; on ANY computer, excluding pathologists, on which 128 c work:
; the house is being installed (PLM and other crap).                           :;+-------------------------------------------------------------+
                                          
        ORG #7000                         
MEMDRV                                    
ADAS    LD A,#04                          
ZAP     LD BC,#7FFD                       
        LD E,#1F                          
        LD D,A                            
        AND #48                           
        RLA                               
        LD L,A                            
        LD A,D                            
        AND #87                           
        OR #10                            
        JP #3899                          
;--------                                 
        LD HL,#C000                       
        PUSH HL                           
        JR ADAS                           
;--------                                 
PREPOD  EXX                               
        PUSH HL                           
KAPS    CALL 0                            
        POP HL                            
        EXX                               
        RET                               
;--------                                 
HIMEM   DEFB #CF                          
SYSPSH  DEFB ADAS+1-MEMDRV                
DRVNAM  DEFB "KAY_"                       
STRTSH  DEFB ZAP-MEMDRV                   
;--------                                 
SPCPROG LD HL,KAPS+1-MEMDRV               
        ADD HL,BC                         
        EX DE,HL                          
        LD HL,ZAP-MEMDRV                  
        ADD HL,BC                         
        EX DE,HL                          
        LD (HL),E                         
        INC HL                            
        LD (HL),D                         
        RET                               
                                          
                                          
;                                         
; пример драйвера принтера для компьютера 
;       KAY-1024 Turbo для iS-Dos         
;                 k8_кау.lpr              
;   с кодировкой KOI-8 без псевдографики  
;       (c) Eraser/Delirium Tremens       
;                                         
        ORG 40000                         
                                          
BG                                        
        DISP 1                            
        DEFW LOOBE                        
L0002   EQU $-#0001                       
        DEFW L0061                        
L0004   EQU $-#0001                       
        DEFW LOOCO                        
L0006   EQU $-#0001                       
        DEFW LOOCO                        
        DEFW #0000                        
        DEFW #0000                        
        DEFW #0100                        
        DEFW #0000                        
L0011   DEFB #E1,#E2,#F7,#E7              
        DEFB #E4,#E5,#F6,#FA              
        DEFB #E9,#EA,#EB,#EC              
        DEFB #ED,#EE,#EF,#F0              
        DEFB #F2,#F3,#F4,#F5              
        DEFB #E6,#E8,#E3,#FE              
        DEFB #FB,#FD,#FF,#F9              
        DEFB #F8,#FC,#E0,#F1              
        DEFB "***╎╎╎╎++╎╎++++++++╎"       
        DEFB "-+╎╎++++╎-+----+++++"       
        DEFB "+++*****"                   
PRI                                       
L0061   PUSH AF                           
        LD C,#12                          
        RST #10                           
        EXX                               
        POP AF                            
        СР #0D                            
        JR NZ,L0077                       
        BIT 0,(HL)                        
        JR Z,LOOA9                        
L006F   CALL LOOA9                        
        RET C                             
        LD A,#0A                          
        JR LOOA9                          
L0077   BIT 1,(HL)                        
        JR Z,LOOA9                        
        СР #80                            
        JR C,LOOA9                        
        СР #F0                            
        JR NC,L009F                       
СР #B0                            
        JR C,L008D                        
        СР #E0                            
        JR C,LOOAЗ                        
        SUB #30                           
L008D   PUSH AF                           
        AND #20                           
        LD C,A                            
        POP AF                            
        AND #1F                           
L0094   LD HL,L0011                       
        LD E,A                            
        LD D,#00                          
        ADD HL,DE                         
        LD A,(HL)                         
        SUB C                             
        JR LOOA9                          
L009F   LD A,#20                          
        JR LOOA9                          
LOOAЗ   SUB #90                           
        LD C,#00                          
        JR L0094                          
ENN     POP AF                            
        JR LOOAD                          
                                          
LOOA9   DI                                
        LD E,A                            
LOOAD   CALL #1F54                        
        JR NC,LOOC1                       
        IN A,(#FE)                        
        BIT 7,A                           
        JR NZ,LOOAD                       
        LD A,E                            
                                          
        PUSH AF                           
        LD A,7                            
        LD BC,#FFFD                       
        OUT (C),A                         
        LD B,#BF                          
        LD A,255                          
        OUT (C),A                         
        LD A,14                           
        LD B,#FF                          
        OUT (C),A                         
        POP AF                            
                                          
        LD B,#BF                          
        OUT (C),A                         
                                          
        LD   B,#1F                        
        LD   A,32                         
        OUT  (C),A                        
        NOP                               
        NOP                               
        XOR A                             
        OUT  (C),A                        
LOOBE   XOR A                             
        EI                                
                                          
LOOCO   RET                               
LOOC1   LD A,#97                          
        SCF                               
        RET                               

        DEFW #0000                        
        DEFW L0002                        
        DEFW L0004                        
        DEFW L0006                        
        DEFW L006F                        
        DEFW L0094                        
        ENT                               
                                          
LEN=$-BG                                  
                                          
Р.S.  А сейчас небольшой delirium... C на-
писания  данного текста, как и большинства
других,  произошло много изменений. К при-
меру: у меня накрылся комп где-то в начале
октября. Прожил я без него 1.5 месяца-sux!Althoughvodka, beer, girls - rulez.And the reasons
on - bad SOLDERING of the KAY board, although it is
me company!  It’s good that ALF (Tanashkin
Sanya) took pity on the poor eraser and gave
I need a board of my own assembly, why should he  
BIG THANX.