zg2.asm

编的一些控制显示屏的测试程序,大家都交流!

;通过精减，调试上已经成功。
        org 00h
  st: mov r2,#0
      mov r3,#0
      mov r4,#0
      mov r5,#0
      mov dptr,#tab1
      Cpl p0.6     ;绿色
      Cpl p0.7     ;红色
      call lyx
      CPL p0.6
      CPL p0.7
 main: mov a,r2
       movc A,@A+DPTR
       call hssj
       INC R2
       mov a,r2
       MOVC A,@A+DPTR
       call hssj
       CLR P0.0
       NOP
       SETB P0.0
       MOV 7AH,#100
       DJNZ 7AH,$
       MOV A,#0
       call hssj
       mov a,#0
       call hssj
       clr p0.0
       nop
       setb p0.0
       INC R2
       call lyx
       CJNE R2,#32,MAIN
       mov r2,#0
       LJMP ST
lyx:   CLR P2.1
      NOP
      SETB P2.1
      CLR  P2.0
      NOP
      SETB P2.0
      ret
hssj:  mov 60h,#8
  DD1: RlC A
       MOV P0.4,C
       CLR P0.1
       NOP
       SETB P0.1
       djnz 60h,dd1
       ret
TAB1:
;第1屏爱;*****************
DB 00H 40H 40H 20H 0B2H 0A0H 96H 90H
DB 9AH 4CH 92H 47H 0F6H 2AH 9AH 2AH
DB 93H 12H 91H 1AH 99H 26H 97H 22H
DB 91H 40H 90H 0C0H 30H 40H 00H 00H
end