music: Midisoft/Energy Minds
(C) Eraser/Delirium Tremens
---------------------------------FUNeral--
оявился как-то у меня принтер D-100М
в июле прошлого года (thanx то SWdZ).
Естественно, что-бы печатать, нужна была
прога. Я ее нашел - MicroEditor, а так же
iS-Print. Для первого был сразу же написан
драйвер (см. приложение). А вот с
последним были траблы - я пытался кое что
сваять, но обламался, а такой метод
написания, как ALASM=>TR=>IS меня не
слишком радовал. Так что я бросил данную
затею и печатал из MED`а (cOOl!).
И вот, настал июнь 1999 года, прошла
сессия (Sux!!!)... Как говорится, дело
было вечером, делать было нечего. И я
решил все-таки рискнуть написать
драйвер... Скинув все виды драйверов для
ir_23, я нашел с такой же кодировкой, как
для моего принтера (KOI-8 без
псевдографики). Вооружившись ZXDv1.1
(rulez!!!), я махом его
дизассемблировал... Заменив процедурки
кидания байтов в порты на свои родные,
каевские, я откомпилировал драйвер,
перевел его в iS-DOS, установил и начал
пытаться печатать... Как и стоило ожидать,
прога повисла. Помучившись так еще с
часок, я додумался, что драйвер нуно
компилить под адрес #0001 и при переносе в
iS-DOS поставить адрес загрузки #0001 с
помощью опции Rename+(SS+Enter). И вот
теперь и вы сможете заюзать драйвер
(исходник прилагается). Стоит заметить,
что я драйверы для KAY-1024 просил в эхе
ZX.SPECTRUM два раза и никто не
откликнился:() - нехорошо товарищи.
Ну да ладно.
В приложении вы сможете найти драйвер
Ram-Disk`а для ALASM`а. Писал мне его
Predator на своем GRM-1024;)
А теперь, в качестве бонуса исходники:
;
; пример драйвера принтера для компьютера
; 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,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,#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 :
;+-------------------------------------------------------------+
;Карта памяти: :
; #00 #01 #02 #03 #04 #05 #0б #07 :
; #08 #09 #0A #0В #0C #0D #0Е #0F :
; #40 #41 #42 #43 #44 #45 #4б #47 :
; #48 #49 #4A #4В #4C #4D #4Е #4F :
; #80 #81 #82 #83 #84 #85 #8б #87 :
; #88 #89 #8A #8В #8C #8D #8Е #8F :
; #C0 #C1 #C2 #C3 #C4 #C5 #Сб #C7 :
; #C8 #C9 #CA #СВ #CC #CD #СЕ #CF :
;+-------------------------------------------------------------+
; Несколько неудобно (по вине Alasma), но зато б4 странички... :
; Ни для кого, надеюсь, не секрет, что Ram-Disk убивается? :
; Не удивляйтесь, если в тесте вы увидете, что вам доступно :
; Чкилoбайта - енто наверно шутка Alem'а;) :
;+-------------------------------------------------------------+
; N вообще,люди,если вы еще не поняли,что 128K must die,то ... :
; Сейчас SIMM 2SбK стоит копейки, если еще не изчезли, а то :
; вообще можно задаром снять c 28б...48б. Поставить их можно :
; на ЛЮБОЙ комп, исключая паталогов, на которых и 128 c тру- :
; дом ставятся (ПЛМ и другая херня). :
;+-------------------------------------------------------------+
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!
Хотя, vodka, beer, girls - rulez. А причи-
на - плохая ПАЙКА платы KAY, хотя онная у
меня фирмА! Хорошо, что ALF (Танашкин
Саня) сжалился над бедным ластиком и выдал
мне плату собственной сборки, за что ему
BIG THANX.
Other articles:
в июле прошлого года (thanx то SWdZ). Естественно, что-бы печатать, нужна была прога. Я ее нашел - MicroEditor, а так же iS-Print. Для первого был сразу же написан драйвер (см. приложение). А вот с последним были траблы - я пытался кое что сваять, но обламался, а такой метод написания, как ALASM=>TR=>IS меня не слишком радовал. Так что я бросил данную затею и печатал из MED`а (cOOl!). И вот, настал июнь 1999 года, прошла сессия (Sux!!!)... Как говорится, дело было вечером, делать было нечего. И я решил все-таки рискнуть написать драйвер... Скинув все виды драйверов для ir_23, я нашел с такой же кодировкой, как для моего принтера (KOI-8 без псевдографики). Вооружившись ZXDv1.1 (rulez!!!), я махом его дизассемблировал... Заменив процедурки кидания байтов в порты на свои родные, каевские, я откомпилировал драйвер, перевел его в iS-DOS, установил и начал пытаться печатать... Как и стоило ожидать, прога повисла. Помучившись так еще с часок, я додумался, что драйвер нуно компилить под адрес #0001 и при переносе в iS-DOS поставить адрес загрузки #0001 с помощью опции Rename+(SS+Enter). И вот теперь и вы сможете заюзать драйвер (исходник прилагается). Стоит заметить, что я драйверы для KAY-1024 просил в эхе ZX.SPECTRUM два раза и никто не откликнился:() - нехорошо товарищи. Ну да ладно. В приложении вы сможете найти драйвер Ram-Disk`а для ALASM`а. Писал мне его Predator на своем GRM-1024;) А теперь, в качестве бонуса исходники: ; ; пример драйвера принтера для компьютера ; 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,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,#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 : ;+-------------------------------------------------------------+ ;Карта памяти: : ; #00 #01 #02 #03 #04 #05 #0б #07 : ; #08 #09 #0A #0В #0C #0D #0Е #0F : ; #40 #41 #42 #43 #44 #45 #4б #47 : ; #48 #49 #4A #4В #4C #4D #4Е #4F : ; #80 #81 #82 #83 #84 #85 #8б #87 : ; #88 #89 #8A #8В #8C #8D #8Е #8F : ; #C0 #C1 #C2 #C3 #C4 #C5 #Сб #C7 : ; #C8 #C9 #CA #СВ #CC #CD #СЕ #CF : ;+-------------------------------------------------------------+ ; Несколько неудобно (по вине Alasma), но зато б4 странички... : ; Ни для кого, надеюсь, не секрет, что Ram-Disk убивается? : ; Не удивляйтесь, если в тесте вы увидете, что вам доступно : ; Чкилoбайта - енто наверно шутка Alem'а;) : ;+-------------------------------------------------------------+ ; N вообще,люди,если вы еще не поняли,что 128K must die,то ... : ; Сейчас SIMM 2SбK стоит копейки, если еще не изчезли, а то : ; вообще можно задаром снять c 28б...48б. Поставить их можно : ; на ЛЮБОЙ комп, исключая паталогов, на которых и 128 c тру- : ; дом ставятся (ПЛМ и другая херня). : ;+-------------------------------------------------------------+ 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