ZXNet эхоконференция «hardware.zx»

Howdy, Sergei!

13.11.2001 at 01:25 Sergei Chikalev wrote to Valerij Kozhevnikoff:

SC> Итог: А воз и ныне там (с) Крылов
Hе плачь! Вот тебе два сырца. Первый - умеет читать СМОS, распознает BCD/BIN,
Y2K фикс. Писаный как драйвер для Лары. Работал на Далласе с включением
доступа. Глюков небыло. Второй - умеет писать в CMOS и используется
исключительно для запуска сабжей в работу, поскольку сразу заливает память
кмоса требуемыми значениями.
Дежи...

=== Cut ===
ORG #5b00

JR init
JR load
JR read
load RET
init LD (bufadr+1),HL
LD (close+1),A
OR #80
LD (read+1),A
LD BC,#eff7
OUT (C),A
LD A,#0b
CALL reg_a
AND #04
JR NZ,read
LD HL,#0000
LD (bcd),HL
read LD A,#80
LD BC,#eff7
OUT (C),A
LD A,#0c
CALL reg_a
AND #10
SCF
JR Z,close
bufadr LD HL,#0000
LD DE,line
PUSH HL
loop
LD A,(DE)
OR A
JR Z,eloop
DEC A
CALL reg_a
bcd JR bin
PUSH DE
LD B,A
AND #0f
LD C,A
LD A,B
SRL A
SRL A
SRL A
SRL A
OR A
JR Z,mini
LD B,A
XOR A
LD D,#0a
maxi ADD A,D
DJNZ maxi
mini ADD A,C
POP DE
bin
LD (HL),A
INC HL
XOR A
LD (HL),A
INC HL
INC DE
JR loop
eloop POP DE
LD A,(DE)
CP 99
LD HL,2000
JR C,milleny
LD HL,1900
milleny
LD B,#00
LD C,A
ADD HL,BC
EX DE,HL
LD (HL),E
INC HL
LD (HL),D
SCF
CCF
close LD A,#00
LD BC,#eff7
OUT (C),A
RET
reg_a
LD BC,#dff7
PUSH AF
busy LD A,#0a
OUT (C),A
RLC B
IN A,(C)
RRC B
RLA
JR C,busy
POP AF
OUT (C),A
RLC B
IN A,(C)
RET
line DB #0a,#09,#08,#05,#03,#01,#00
=== Cut ===

=== Cut ===
ORG #8000
DI
LD A,#80
LD BC,#eff7
OUT (C),A
LD HL,dump
XOR A
loop
LD E,(HL)
reg_a
LD BC,#dff7

PUSH AF
busy LD A,#0a
OUT (C),A
RLC B
IN A,(C)
RRC B
RLA
JR C,busy
POP AF
OUT (C),A
RLC B
OUT (C),E
INC A
CP #40
JR Z,close
INC HL
JR loop
close
LD BC,#eff7
XOR A
OUT (C),A
EI
RET

dump DB #00,#00,#12,#00,#23,#00,#06
DB #03,#02,#01,#20,#02,#00,#00

DB #00,#00,#00,#00,#00,#00,#00
DB #00,#00,#00,#00,#00,#00,#00
DB #00,#00,#00,#00,#00,#00,#00
DB #00,#00,#00,#00,#00,#00,#00
DB #00,#00,#00,#00,#00,#00,#00
DB #00,#00,#00,#00,#00,#00,#00
DB #00,#00,#00,#00,#00,#00,#00
DB #00
=== Cut ===

Все!

Пока, Юрий.

[I.ZX] [Химики] [За полную адресацию] [Лыжные палки]

/_500:322/33@ZXNet_/ /_dangercorp@bigfoot.com_/ /_dangercorp@mail.ru_/
/_2:462/93.33@FidoNet_/