CmosDrv.$C - дpайвеp CMOS by Gluck для LC 4.xx. (C) EVP
ZXNet echo conference «code.zx»
from: Eudgine Palenock
to: All
date: 2 April 1999
Пpивет, All!
Имя исходного файла : CMOSDRV.$C
Размеp : 273 (1Kb)
Дата создания : 28-Авг-98 14:05:56
Дата кодиpования : 02-Апp-99 20:41:54
Размеp UU-кода : 1Kb
Количество секций : 1
Число стpок в одной секции : 7
section 1 of file cmosdrv.$c < uuencode by Dos Navigator >
filetime 622620860
table
`!"#$%&'()*+,-./0123456789:;<=>?
@ABCDEFGHIJKLMNOPQRSTUVWXYZ[]^_
begin 644 cmosdrv.$c
M0VUO 6S(W6Q@=R2([6TS
M6SZ"[7D&WSX,[7D&O^UXYA`W*%H_&%MS(W(C'@C-DEMW(S8`(QX'S9);=R,V`",>!,V26W
from: Oleg Grigoriev
to: Eudgine Palenock
date: 4 April 1999
Пусть враги твои, Eudgine, умрут без сыновей!
Fri 2 Apr 1999 в 20:43:38, Eudgine Palenock => All:
EP> Пpивет, All!
EP> section 1 of file cmosdrv.$c < uuencode by Dos Navigator >
Ух-х, какая адская программа... :)
Для сравнения кину скорповый.
────[ Здесь начинается файл CmosDrv .a ]───────────────────────
ORG #5B00,#6000
L5B00 JR L1
L5B02 XOR A:RET
L5B04 JR READ
L1 PUSH HL
CALL READ
POP HL
JR C,L1
RET
;***************************************
READ LD A,#0A:CALL RDREG
ADD A,A:RET C
XOR A:CALL RDREG
CP #FF:LD ($-#01),A
SCF:RET Z
PUSH AF
LD A,#09:CALL RDREG
CP 99
LD DE,1900
JR Z,$+#05
LD DE,2000
ADD A,E:LD E,A
LD A,#00:ADC A,D:LD D,A
LD (HL),E:INC HL
LD (HL),D:INC HL
LD A,#08:CALL RDPUT
LD A,#07:CALL RDPUT
LD A,#04:CALL RDPUT
LD A,#02:CALL RDPUT
POP AF
JR RDPUT+#03
RDPUT CALL RDREG
LD (HL),A:INC HL
LD (HL),#00:INC HL
XOR A
RET
;***************************************
RDREG PUSH HL,BC
LD HL,RDREG0:PUSH HL
LD HL,#3FF3:PUSH HL
LD L,#F0:PUSH HL
LD BC,#DFBA
DI
JP #3D30
RDREG0 POP BC,HL
EI
RET
.
────[ Здесь кончается файл CmosDrv .a ]────────────────────────
WBR, Oleg.
|