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

Hi All !

Вот вам драйверок модема который
я сделал для xreversy. к сожалению
драйвер я восстанавливал по этому
возможны мелкие ошибки.


;блок приема передачи данных с контролем
;на ошибки ( по средствам контрольной
;суммы)
;(C)CREATOR product 1997
;блок взаимодействует с драйвером модема
;совместимым по командам и адресам с
;MMD_2.20 driers.
;HА МОМЕHТ ВЫЗОВА ТОЙ ИЛИ ИHОЙ ПРОЦЕДУРЫ
;ДРАЙВЕР ДОЛЖЕH БЫТЬ. ИHИЦИАЛИЗИРОВАH,то
;есть полностью готовым к работе.


LEN EQU 16; длинна передаваемого блока

;(передается на 2 байта больше из за
;контрольной суммы)
;SPEED - ячейка содержащая текущую скорость

LOAD_B; прием блока
;блок будет приниматься до "опосинения"
;то есть пока мы его не примем или
;кто нибудь не нажмет caps shift

;в регистре A по возвращению находится
;код возврата.
;A=0 BCE OK , A=1 аварийный выход
;A=2 в линиии короткие гудки
;A=3 обнаружен вызов

LOAD_P
LOAD_0 CALL CL_BUF
CALL CAPS; принимаем блок
CALL NC,ER_BL
LD A,BORDER
CALL #C00C
JR C,LOAD_0
AND A
JR Z,LOAD_0
CP 1
RET NZ

; проверка контрольной суммы принятого
; блока

LD HL,BUFFER
XOR A
LD B,LEN
ADD_C ADD A,(HL)
INC HL
DJNZ ADD_C
CP (HL)
JR NZ,LOAD_0
LD HL,BUFFER
XOR A
LD B,LEN
SUB_C SUB (HL)
INC HL
DJNZ SUB_C
INC HL
CP (HL)
JR NZ,LOAD_0

LD B,15
TRANS_M PUSH BC; передаем что все
LD BC,1; нормально принято
LD A,"C"
LD (BUFFER),A
LD A,(SPEED)
CALL #C012
EI
LD B,5
PAUSE HALT
DJNZ PAUSE
DI
POP BC
DJNZ TRANS_M
XOR A
RET

ER_BL; аварийный выход
;запрашиваем подтверждение на выход
;надо вести Yes или No
LD A,223
IN A,254
BIT 4,A
JR Z,TO_EX; выходим
LD A,127
IN A,254
BIT 3,A
RET Z
JR ER_BL
TO_EX POP HL
LD A,1
RET

CAPS LD A,254; проверка на прину-
IN A,254; дительный выход
RRCA
RET

SAVE_B
SAVE_BC CALL CL_BUF; передача блока
LD HL,BUFFER
LD B,LEN
XOR A
ADD_CR ADD A,(HL)
INC HL
DJNZ ADD_CR
LD (HL),A
LD HL,BUFFER
LD B,LEN
XOR A
SUB_CR SUB (HL)
INC HL
DJNZ SUB_CR
INC HL
LD (HL),A

LD BC,LEN+2
LD A,(SPEED)
CALL #C012
CALL CAPS; ловим все ли OK?
CALL NC,ER_BL
XOR A
LD (BUFFER),A
LD (SDS0+1),A
SDS0 LD A,0
DEC A
LD (SDS0+1),A
JR Z,SAVE_BC
LD A,BORDER
CALL #C00C
JR C,SDS0
AND A
JR Z,SDS0
CP 1
RET NZ
LD A,(BUFFER)
CP "C"
JR NZ,SDS0
XOR A
RET

SPEED DEFB 0; скорость

CL_BUF LD HL,BUFFER
LD DE,BUFFER+1
LD BC,LEN+2
LD (HL),0
LDIR
RET

DEFS 64
BUFF
DEFS 300

BUFFER EQU BUFF; адрес буффера для
;приема



▌▌║▌█▐│▌▌▐▐ WiTh The BeST wIsheS fROM
▌▌║▌█▐│▌▌▐▐ *C*R*E*A*T*O*R*
▌812/03.00▐


-+- zxasm+ плюсовой