用51单片机写一个汇编程序：单片机的晶振为12MHz，系统每50ms从P1口采集一次数据，如果采集到的数据大于100，则通过串行接口发送字符“STOP”，串行口通信： 8位数据，波特率2400。

以下是用MCS-51汇编语言编写的程序，可以实现每50ms从P1口采集一次数据，如果采集到的数据大于100，则通过串行口发送字符“STOP”，串行口通信速率为2400波特。

ORG 0H                    ; 程序从地址0开始存储
MOV PCON,#00H             ; 关闭功耗模式
MOV TMOD,#01H             ; 定时器0工作在模式1
MOV TH0,#0B1H             ; 定时器0初值为0xB1
MOV TL0,#0DFH             ; 定时器0初值为0xDF
SETB TR0                  ; 启动定时器0
MOV SCON,#50H             ; 串行口工作在模式1
MOV TMOD,#20H             ; 定时器1工作在模式2
MOV TH1,#0FDH             ; 定时器1初值为0xFD
MOV TL1,#0FDH             ; 定时器1初值为0xFD
SETB TR1                  ; 启动定时器1
MAIN:
  JNB P1.0, SKIP          ; 如果P1.0为低电平，则跳过采集数据
  MOV A, P1               ; 将P1口的数据读入累加器A
  CJNE A, #100, SKIP      ; 如果数据小于等于100，则跳过串口发送
  MOV SBUF, #'S'          ; 发送字符'S'
  ACALL SEND              ; 调用SEND发送字符'T'
SKIP:
  ACALL DELAY             ; 程序延时
  SJMP MAIN               ; 重新开始循环
DELAY:
  MOV R0, #1              ; 计数器R0初值为1
  MOV R1, #0FFH           ; 计数器R1初值为0xFF
DELAY_LOOP:
  DJNZ R1, DELAY_LOOP     ; 计数器R1递减，直至为0
  DJNZ R0, DELAY_LOOP     ; 计数器R0递减，直至为0
  RET                     ; 返回主程序
SEND:
  JNB TI, SEND            ; 等待串口发送完成
  CLR TI                  ; 清除发送标志位
  RET                     ; 返回主程序