⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 xjb19264b-00.asm

📁 19264 51单片机程序
💻 ASM
字号:

 ;64x64,128x64,192X64(KS0107 AND KS0108,1/64duty)
          ;RS ---P3.0
          ;E  ---P3.1
          ;R/W---P3.2
          ;D0-D7  ---- P1.0-P1.7
          ;CS1---P3.3
          ;CS2---P3.4
          ;CS3---P3.5
          ;/RST---HK or p3.4


RS       BIT    P3.0           ;LCM RS=P3.0
E        BIT    P3.2           ;LCM E=P3.1
RW       BIT    P3.1           ;LCM R/W=P3.2
CS1      BIT    P3.3
CS2      BIT    P3.5
CS3      BIT    P3.6
;SCL      BIT    P2.6
;SDA      BIT    P2.7

         ORG    00H
         AJMP   L0100
         ORG    0100H

L0100:   MOV   SP,#60H
         MOV   P1,#0FFH
         MOV   P2,#0FFH
         MOV   P3,#0FFH

KS0108:  CLR   P3.4            ;RESET
         LCALL DELAY
         SETB  P3.4
         LCALL DELAY

         MOV   R5,#0FFH       ;ALL ON
         MOV   R6,#0FFH
         LCALL DIS12
         LCALL AUTO
         LCALL DELAY1

         MOV   R5,#55H        ;DISPLAY 'X'
         MOV   R6,#0AAH
         LCALL DIS12
         LCALL AUTO
         LCALL DELAY1


         MOV   R5,#0AAH       ;DISPLAY 'X'
         MOV   R6,#55H
         LCALL DIS12
         LCALL AUTO

        LCALL DELAY1

         LCALL DIS12A         ;DISPLAY 'Q'
         LCALL AUTO

         LCALL DELAY1

         MOV   DPTR,#G19264A
         LCALL DIS12B
         LCALL AUTO

         LCALL DELAY1

     ;    MOV   DPTR,#G19264A
     ;    LCALL DIS12B
     ;    LCALL AUTO
      ;   LCALL DELAY1

         MOV   R5,#00H        ;ALL OFF
         MOV   R6,#00H
         LCALL DIS12
         LCALL AUTO
         LCALL DELAY1

         LJMP  L0100

DIS12:   MOV   R0,#20H         ;DRIVER SEGS
         MOV   R1,#20H         ;DRIVER SEGS
         MOV   R2,#08H         ;LOOPS
         MOV   R3,#0B8H        ; PAGE0
         LCALL INI12


L131H:
         LCALL ICCS1           ;IC1
         MOV   A,#40H          ;Y ADD SET
         LCALL WCOM12
         MOV   A,R3            ;WRITE PAGE
         LCALL WCOM12
L132H:   MOV   A,R5
         LCALL WDATA12
         MOV   A,R6
         LCALL WDATA12
         DJNZ  R0,L132H
         MOV   A,R1
         MOV   R0,A

         LCALL ICCS2           ;IC2
         MOV   A,#40H          ;Y ADD SET
         LCALL WCOM12
         MOV   A,R3
         LCALL WCOM12
L133H:   MOV   A,R5
         LCALL WDATA12
         MOV   A,R6
         LCALL WDATA12
         DJNZ  R0,L133H
         MOV   A,R1
         MOV   R0,A

         LCALL ICCS3           ;IC3
         MOV   A,#40H          ;Y ADD SET
         LCALL WCOM12
         MOV   A,R3
         LCALL WCOM12
L134H:   MOV   A,R5
         LCALL WDATA12
         MOV   A,R6
         LCALL WDATA12
         DJNZ  R0,L134H
         MOV   A,R1
         MOV   R0,A
         INC   R3              ;PLUS '1' TO POINT NEXT PAGE
         DJNZ  R2,L131H
         RET


DIS12A:  MOV  R0,#08H          ;DISPLAY 'Q'
         MOV  R1,#08H
         MOV  R2,#08H
         MOV  R3,#0B8H         ;PAGEO
         MOV  R4,#08H          ;STORE
         LCALL INI12

L135H:
         LCALL ICCS1           ;IC1
         MOV   A,#40H          ;Y ADD SET
         LCALL WCOM12
         MOV   A,R3
         LCALL WCOM12
L136H:   MOV   DPTR,#DATAQ
L137H:   MOV   A,#00H
         MOVC  A,@A+DPTR
         LCALL WDATA12
         INC   DPTR
         DJNZ  R0,L137H
         MOV   A,R4
         MOV   R0,A
         DJNZ  R1,L136H
         MOV   A,R4
         MOV   R1,A

         LCALL ICCS2           ;IC2
         MOV   A,#40H           ;Y ADD SET
         LCALL WCOM12
         MOV   A,R3
         LCALL WCOM12
L138H:   MOV   DPTR,#DATAQ
L139H:   MOV   A,#00H
         MOVC   A,@A+DPTR
         LCALL WDATA12
         INC   DPTR
         DJNZ  R0,L139H
         MOV   A,R4
         MOV   R0,A
         DJNZ  R1,L138H
         MOV   A,R4
         MOV   R1,A

         LCALL ICCS3           ;IC3
         MOV   A,#40H          ;Y ADD SET
         LCALL WCOM12
         MOV   A,R3
         LCALL WCOM12
L1310H:  MOV   DPTR,#DATAQ
L1311H:  MOV   A,#00H
         MOVC   A,@A+DPTR
         LCALL WDATA12
         INC   DPTR
         DJNZ  R0,L1311H
         MOV   A,R4
         MOV   R0,A
         DJNZ  R1,L1310H
         MOV   A,R4
         MOV   R1,A
         INC   R3
         DJNZ  R2,L135H
         RET


DIS12B:  MOV   R0,#40H         ;DRIVER SEGS
         MOV   R1,#40H         ;DRIVER SEGS
         MOV   R2,#08H
         MOV   R3,#0B8H        ;FIRST  PAGE
         LCALL INI12

L1312H:


         LCALL ICCS1           ;IC1
         MOV   A,#40H          ;Y ADD SET
         LCALL WCOM12
         MOV   A,R3
         LCALL WCOM12
L1313H:  MOV   A,#00H
         MOVC  A,@A+DPTR
         LCALL WDATA12
         INC   DPTR
         DJNZ  R0,L1313H
         MOV   A,R1
         MOV   R0,A

         LCALL ICCS2           ;IC2
         MOV   A,#40H          ;Y ADD SET
         LCALL WCOM12
         MOV   A,R3
         LCALL WCOM12
L1314H:  MOV   A,#00H
         MOVC  A,@A+DPTR
         LCALL WDATA12
         INC   DPTR
         DJNZ  R0,L1314H
         MOV   A,R1
         MOV   R0,A

         LCALL ICCS3           ;IC3
         MOV   A,#40H          ;Y ADD SET
         LCALL WCOM12
         MOV   A,R3
         LCALL WCOM12
L1315H:  MOV   A,#00H
         MOVC  A,@A+DPTR
         LCALL WDATA12
         INC   DPTR
         DJNZ  R0,L1315H
         MOV   A,R1
         MOV   R0,A
         INC   R3                ;PLUS '1' TO POINT NEXT PAGE
         DJNZ  R2,L1312H
         RET

INI12:
         LCALL ICCS1             ;IC1
         MOV   A,#3FH            ;DISPLAY ON
         LCALL WCOM12
         MOV   A,#0C0H           ;DISPLAY START LINE
         LCALL WCOM12

         LCALL ICCS2             ;IC2
         MOV   A,#3FH            ;DISPLAY ON
         LCALL WCOM12
         MOV   A,#0C0H           ;DISPLAY START LINE
         LCALL WCOM12

         LCALL ICCS3             ;IC3
         MOV   A,#3FH            ;DISPLAY ON
         LCALL WCOM12
         MOV   A,#0C0H           ;DISPLAY START LINE
         LCALL WCOM12
         RET

WCOM12:  CLR   RS
         CLR   RW
         MOV   P1,A
         SETB  E
         LCALL DELAY13
         CLR   E
         LCALL DELAY13
         RET

WDATA12: SETB  RS
         CLR   RW
         MOV   P1,A
         SETB  E
         LCALL DELAY13
         CLR   E
         LCALL DELAY13
         RET

DELAY13: MOV   R7,#20H
         DJNZ  R7,$
         RET

ICCS1:   CLR   P3.3              ;CS1 , LOW LEVEL
         SETB  P3.4              ;CS2
         SETB  P3.5              ;CS3
         RET

ICCS2:   SETB  P3.3              ;CS1 , LOW LEVEL
         CLR   P3.4              ;CS2
         SETB  P3.5              ;CS3
         RET

ICCS3:   SETB  P3.3              ;CS1 , LOW LEVEL
         SETB  P3.4              ;CS2
         CLR   P3.5              ;CS3
         RET



G19264A:
;--  调入了一幅图像:C:\Documents and Settings\Administrator\桌面\小熊.bmp  --
;--  宽度x高度=128x64  --
DB  00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,0C0H,00H,00H,00H
DB  00H,00H,00H,00H,00H,00H,40H,80H,00H,00H,0C0H,80H,80H,80H,80H,80H
DB  00H,00H,00H,80H,80H,80H,0C0H,80H,80H,00H,80H,80H,80H,40H,40H,00H
DB  00H,00H,0C0H,00H,00H,00H,80H,80H,0C0H,80H,80H,80H,00H,00H,00H,00H
DB  80H,80H,80H,40H,00H,00H,00H,00H,0C0H,00H,00H,00H,00H,00H,00H,0C0H
DB  00H,00H,00H,00H,00H,0C0H,00H,00H,00H,00H,00H,00H,00H,80H,00H,00H
DB  0C0H,00H,00H,40H,80H,00H,00H,00H,00H,00H,00H,0C0H,40H,40H,40H,40H
DB  40H,40H,40H,0C0H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H
DB  00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,0FFH,04H,04H,04H
DB  04H,04H,00H,00H,00H,42H,0E4H,18H,12H,0FDH,92H,0B6H,0DAH,92H,0FEH,90H
DB  90H,00H,00H,04H,0A5H,26H,0FCH,26H,0A5H,04H,0FFH,04H,0FCH,04H,04H,00H
DB  00H,14H,17H,0FDH,95H,10H,0EFH,2AH,2AH,0FAH,2AH,2FH,0E0H,00H,00H,44H
DB  24H,14H,0FFH,14H,64H,49H,52H,40H,0FFH,20H,20H,00H,00H,22H,12H,0FFH
DB  0AH,00H,02H,3AH,4AH,8FH,4AH,3AH,02H,00H,00H,00H,03H,82H,62H,1EH
DB  2BH,4AH,8AH,4AH,3AH,02H,02H,00H,00H,00H,00H,0FFH,29H,0E9H,3FH,69H
DB  0A9H,7FH,29H,29H,20H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H
DB  00H,00H,00H,00H,00H,00H,00H,22H,22H,22H,0A2H,0E2H,0BBH,0A2H,0A2H,0A2H
DB  0A2H,33H,22H,00H,00H,00H,0FBH,88H,78H,00H,0F8H,48H,4AH,4AH,49H,0F8H
DB  00H,00H,00H,01H,00H,82H,63H,18H,02H,01H,18H,60H,83H,00H,00H,00H
DB  00H,40H,50H,51H,50H,50H,51H,50H,50H,53H,10H,0F9H,11H,00H,00H,00H
DB  00H,00H,03H,00H,0F8H,80H,80H,80H,83H,80H,00H,00H,00H,40H,8AH,13H
DB  40H,0A2H,5AH,0D2H,51H,50H,0D1H,12H,02H,00H,00H,22H,0A1H,0A0H,0A2H,0A2H
DB  0F9H,0A1H,0A0H,0A1H,0A1H,0A2H,22H,00H,00H,2AH,0B1H,0E0H,0B0H,2BH,92H,11H
DB  0F0H,01H,91H,0F2H,02H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H
DB  00H,00H,00H,00H,00H,00H,00H,04H,02H,01H,7FH,0AH,0AH,0AH,0AH,4AH
DB  7FH,00H,00H,00H,00H,00H,7FH,08H,0FH,00H,7FH,41H,27H,09H,15H,23H
DB  40H,00H,00H,02H,01H,20H,70H,2CH,23H,20H,28H,30H,60H,01H,02H,00H
DB  00H,00H,00H,1FH,09H,09H,09H,1FH,00H,20H,40H,3FH,00H,00H,00H,40H
DB  40H,40H,40H,40H,7FH,40H,40H,40H,40H,60H,40H,00H,00H,08H,7CH,03H
DB  02H,1FH,12H,16H,5BH,52H,3FH,12H,12H,00H,00H,00H,7FH,00H,0AH,0BH
DB  7EH,0AH,0BH,0AH,40H,7FH,00H,00H,00H,44H,24H,1FH,04H,04H,08H,45H
DB  7FH,08H,44H,7FH,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H
DB  00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,0FFH,10H,10H,10H
DB  10H,10H,00H,00H,00H,08H,91H,62H,48H,0F4H,4BH,0DAH,6AH,4AH,0FAH,42H
DB  40H,00H,00H,04H,0F4H,14H,54H,74H,0DFH,54H,74H,54H,14H,0F4H,04H,00H
DB  00H,85H,96H,0FCH,96H,85H,12H,0A2H,0FEH,00H,92H,0FEH,00H,00H,00H,98H
DB  97H,0F4H,94H,94H,02H,0FAH,0AEH,0ABH,0AAH,0FAH,02H,00H,00H,02H,82H,0FAH
DB  0AAH,0AAH,0FFH,0AAH,0AAH,0AAH,0FAH,82H,02H,00H,00H,0F8H,00H,0FFH,00H,0F8H
DB  44H,0A2H,91H,8CH,91H,0A2H,44H,00H,00H,00H,0DEH,12H,0F2H,5EH,88H,0C4H
DB  0ABH,92H,0AAH,0C6H,40H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H
DB  00H,00H,00H,00H,00H,00H,00H,08H,08H,08H,08H,08H,0EFH,08H,08H,08H
DB  08H,0CH,08H,00H,00H,01H,2FH,40H,00H,83H,62H,42H,4BH,4AH,47H,42H
DB  02H,00H,00H,40H,0CFH,40H,61H,41H,0CFH,01H,0C1H,41H,48H,2FH,20H,00H
DB  00H,08H,0E4H,83H,80H,00H,0C1H,48H,6FH,41H,48H,0CFH,00H,00H,00H,00H
DB  40H,4FH,0C4H,2AH,0AH,87H,02H,02H,0E6H,0BH,0AH,00H,00H,08H,06H,0E0H
DB  06H,08H,09H,0AH,08H,0ECH,02H,05H,00H,00H,00H,03H,82H,41H,01H,03H
DB  0E0H,0FH,04H,24H,44H,0FH,00H,00H,00H,04H,07H,0E4H,0A3H,0A2H,0A0H,0AFH
DB  0A4H,0A4H,0A4H,0EFH,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H
DB  00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,0FFH,02H,02H,02H
DB  02H,82H,00H,00H,00H,21H,0F2H,0CH,09H,7EH,49H,5BH,6DH,49H,0FFH,48H
DB  48H,00H,00H,82H,52H,13H,0FEH,13H,52H,82H,7FH,02H,0FEH,02H,02H,00H
DB  00H,0AH,0BH,0FEH,4AH,08H,0F7H,15H,15H,0FDH,15H,97H,0F0H,00H,00H,22H
DB  12H,0AH,0FFH,0AH,32H,24H,29H,20H,0FFH,10H,10H,00H,00H,11H,09H,0FFH
DB  05H,00H,01H,1DH,0A5H,47H,0A5H,1DH,01H,00H,00H,00H,81H,41H,31H,0FH
DB  95H,0A5H,45H,0A5H,9DH,01H,01H,00H,00H,00H,80H,7FH,14H,0F4H,1FH,0B4H
DB  54H,0BFH,94H,14H,10H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H
DB  00H,00H,00H,00H,00H,00H,00H,01H,01H,01H,01H,01H,01H,01H,01H,01H
DB  01H,01H,01H,00H,00H,00H,01H,00H,00H,00H,00H,00H,01H,01H,00H,00H
DB  00H,00H,00H,00H,00H,01H,01H,00H,01H,00H,00H,00H,01H,00H,00H,00H
DB  00H,00H,00H,00H,00H,00H,00H,00H,00H,01H,00H,00H,00H,00H,00H,00H
DB  00H,00H,01H,00H,00H,00H,00H,00H,01H,00H,00H,00H,00H,00H,01H,01H
DB  00H,01H,01H,01H,00H,00H,00H,01H,01H,00H,00H,01H,00H,00H,01H,01H
DB  00H,00H,00H,00H,00H,01H,01H,00H,00H,01H,00H,00H,00H,01H,01H,00H
DB  00H,00H,00H,01H,01H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H



DATAQ: DB 3EH,41H,51H,21H,5EH,00H,00H,00H       ;Q






AUTO:    JNB   P2.0,MANUL     ;AUTO/MANU  CHECK ,AUTO=1
         LJMP  AUTO2
MANUL:   MOV   C,P2.1         ;SETP CHECK
         JC    AUTO
         LCALL DELAY
         MOV   C,P2.1
         JC    AUTO
ABC:     MOV   C,P2.1
         JNC   ABC
         LJMP  RETURN
AUTO2:   LCALL DELAY1
RETURN:  RET



DELAY:   MOV   R7,#20H        ;DELAY  10MS
D0:      MOV   R6,#0FAH
         DJNZ  R6,$
         DJNZ  R7,D0
         RET

DELAY1:  MOV   R5,#06H
J20:     MOV   R6,#0FDH
J21:     MOV   R7,#0FEH
j22:     DJNZ  R7, J22
         DJNZ  R6, J21
         DJNZ  R5, J20
         RET


⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -