Subversion Repositories next186mp3

.186
.model tiny
.code
        org 100h
start: 
      cli
      mov ax,30h
      mov ss,ax
      mov sp,100h
      push 0f000h
        pop ds
      mov al,34h
      out 43h,al
      xor al,al
      out 40h,al
      out 40h,al 
      
        
        mov si,0e000h
        call srecb
        mov bh,ah
        call srecb
        mov bl,ah

sloop:  
        call srecb
        mov [si],ah
        inc si
        dec bx
        jnz sloop
        db 0eah
      dw 0,-1    


; ----------------  serial receive byte 115200 bps --------------
srecb:  mov ah,80h
        mov dx,3dah
        mov cx,-5aeh ; (half start bit)
srstb:  in al,dx
          shr al,2
          jc srstb

        in al,40h ; lo counter
        add ch,al
        in al,40h ; hi counter, ignore

l1:
        call dlybit
          in al,dx
        shr al,2
          rcr ah,1
          jnc l1

dlybit:
        sub cx,0a5bh  ;  (full bit)
dly1:
        in al,40h
        cmp al,ch
        in al,40h
        jnz dly1
        ret


end start