edjs.lst

早期开发的MS8051与PC的RS232通讯-1程序源码

;
;-----dvcc51系统软件手册------
;---------               末页
;                             
			        org     0000h
0000  029A00             ljmp    9a00h
			        org     9a00h
9A00  758154             mov     sp,#54h         ;设栈底
9A03  782B               mov     r0,#2bh         ;8255控制口:C
9A05  74B0               mov     a,#0b0h         ;\送控制字10110000B
9A07  F2                 movx    @r0,a           ;方式一,输入
9A08  7408               mov     a,#08h          ;00001000b进A
9A0A  F6                 mov     @r0,a           ;送内部RAM:2B单元,置5B位为1
9A0B  7928               mov     r1,#28h         ;28H送寄存器R1
9A0D  E3                 movx    a,@r1           ;读8255A口(数据)
9A0E  782A               mov     r0,#2ah         ;8255C口送R0
9A10  5129       start:  acall   shou            ;转9A29
9A12  B4FF03             cjne    a,#0ffh,la18    ;比较;不等255转9A18,等则跳出
9A15  02FF77             ljmp    0ff77h
9A18  F583       la18:   mov     dph,a           ;9A18子程序,收的第一字节作高位
9A1A  5129               acall   shou            ;再收,
9A1C  F582               mov     dpl,a           ;第二字节作低8位
9A1E  5129               acall   shou            ;收数据
9A20  5127               acall   fang            ;放数据到@DPTR
9A22  5127               acall   fang
9A24  F0                 movx    @dptr,a
9A25  80E9               sjmp    start
9A27  F0         fang:   movx    @dptr,a         ;9A27
9A28  A3                 inc     dptr            ;DPTR+1
9A29  E2         shou:   movx    a,@r0           ;9A29子程序,读C口(2AH)进A
9A2A  30E5FC             jnb     e5h,shou        ;直接位不置位转
9A2D  E3                 movx    A,@R1           ;读8255A口(数据)
9A2E  22                 RET
			        END
     INCLUDE IN HASHTAB:
       START:    9A10
        SHOU:    9A29
        LA18:    9A18
        FANG:    9A27