.. ,     .
 ,     .
      ,     .
    14.

  + 0() \  

CLS -  

LSR -    ,   (   ).

DIV -  , LCR -  LCR,         .       LSR.

   (   ).
      .    ,        .

RECEIVE -   ,   (91 /).
:
	500 ( 100 )    .
	     (     - ,   45 ).
	    ,    100 ,        (   16).
	    ,   (      ).
	     ( 1000),      (    "copy test.txt COM7"   TeraTermPro File->Send...
	 "^"      .
------------------------------------------------
  :
	call init
	call int1.init
	ld de,50:ld hl,0x8000
	ld bc,DAT
	exx
	ld de,500
	xor a
	ld hl,0xc000
	ld (hl),a
	ld c,low LSR
	ei
	ld b,high LSR	;wait byte
1	ld a,e:and 1:out (0xfe),a
	in a,(c):bit 1,a:jr nz,.end
	and 0x01:jr z,1b
	exx
	ini
.loop
	ld b,high LSR	;wait byte
1	in a,(c):bit 1,a:jr nz,.end
	and 0x01:jr z,1b
	ld b,high DAT
	ini
	ld a,l
	or h:jr nz,.loop
.end
	di
	ld a,0:out (0xfe),a
	xor a:ld (hl),a
	call int1.end
	ret

-----------------------------------------------------
 ,        DE 
  #0038 JP int1

int1
	push af
	ld (hl),0x18	;     
	inc hl
	dec de
	ld a,d:or e:jr z,.alarm
1	pop af
	ei:ret
.alarm	;
	di
	pop af
.alarm_sp=$+1
	ld sp,0:pop de			; 
	jr get_mas.end
-------------------------------------------------------------
 :
;uart init
init
	LD BC,LCR
	LD A,%10000000
	OUT (C),A
	LD B,HIGH DLL
.dll=$+1
	LD A,2
	OUT (C),A
	INC B
.dlm=$+1
	ld a,0
	OUT (C),A
	LD B,HIGH LCR
.lcr=$+1
	LD A,3
	OUT (C),A
.res_fifo
	ld bc,FCR
	ld a,7
	out (c),a
	ret