EM78P156e+1621显示汇编例子--匠人的百宝箱

;HT1621 ,3.58,OUT 20001  /6/22

INDI EQU    0X0
RTCC EQU    0X1
PC    EQU    0X2
STATUS  EQU    0X3
FSR    EQU    0X4
PORT5 EQU    0X5
PORT6 EQU    0X6
STACK_A EQU    0X10
STACK_S EQU    0X11
XS1    EQU    0X12
XS2    EQU    0X13
XS3    EQU    0X15
XS4    EQU    0X16
XS5    EQU    0X17
XS6    EQU    0X18
XS7    EQU    0X19
XS8    EQU    0X1A
JP1    EQU    0X1B
JP2    EQU    0X1C
JP3    EQU    0X1D
JP4    EQU    0X1E
XS9    EQU    0X20
XS10 EQU    0X21
      ORG    0
      JMP    MAIN
      ORG    8
      MOV    STACK_A,A
      SWAP STACK_A
      SWAPA STATUS
      MOV    STACK_S,A
      CLR    0XF
      SWAPA STACK_S
      MOV    STATUS,A
      SWAPA STACK_A
      RETI
BIAO:
      ADD    0X2,A
      RETL @0B11101110    ;0
      RETL @0B01001000    ;1
      RETL @0B10111010    ;2
      RETL @0B11011010    ;3
      RETL @0B01011100    ;4
      RETL @0B11010110    ;5
      RETL @0B11110110    ;6
      RETL @0B01001010    ;7
      RETL @0B11111110    ;8
      RETL @0B01011110    ;9
      RETL @0B00000000    ;A
XSZW:
      MOV    A,JP1
      CALL BIAO
      MOV    XS3,A
      MOV    A,JP2
      CALL BIAO
      MOV    XS4,A
      MOV    A,JP3
      CALL BIAO
      MOV    XS5,A
      MOV    A,JP4
      CALL BIAO
      MOV    XS6,A
      MOV    A,@7
      MOV    XS1,A
AWS:
      RLC    XS10
      RLC    XS9
      RLC    XS8
      RLC    XS7
      JBS    XS6,1
      JMP    ASD1
      BS    XS10,4
      JMP    ASG1
ASD1:
      BC    XS10,4
ASG1:
      RRC    XS6
      RLC    XS10
      RLC    XS9
      RLC    XS8
      RLC    XS7
      JBS    XS5,1
      JMP    ASD2
      BS    XS10,4
      JMP    ASG2
ASD2:
      BC    XS10,4
ASG2:
      RRC    XS5
      RLC    XS10
      RLC    XS9
      RLC    XS8
      RLC    XS7
      JBS    XS4,1
      JMP    ASD3
      BS    XS10,4
      JMP    ASG3
ASD3:
      BC    XS10,4
ASG3:
      RRC    XS4
      RLC    XS10
      RLC    XS9
      RLC    XS8
      RLC    XS7
      JBS    XS3,1
      JMP    ASD4
      BS    XS10,4
      JMP    ASG4
ASD4:
      BC    XS10,4
ASG4:
      RRC    XS3
      DJZ    XS1
      JMP    AWS
      RET
YSA:
      MOV    A,@2
      MOV    XS3,A
LOP1:
      NOP
      DJZ    XS3,A
      JMP    LOP1
      RET
XSS:                   ;HT1621 XS 8-BITS  COMMAND MODE
      BS    PORT5,1
      BC    PORT5,0 ;CS=0
      CALL YSA
      BC    PORT5,1
      CALL YSA
      BS    PORT5,1 ;DATA=1
      BC    PORT5,2
      BC    PORT5,1
      CALL YSA
      BS    PORT5,1 ;DATA=0
      BC    PORT5,1
      CALL YSA
      BS    PORT5,1  ;DATA=0
      MOV    A,@8
      MOV    XS1,A
XSC:
      JBS    XS2,7
      JMP    XSD
      BS    PORT5,2 ;DATA=1
      JMP    XSG
XSD:
      BC    PORT5,2 ;DATA=0
XSG:
      BC    PORT5,1
      CALL YSA
      BS    PORT5,1
      RLC    XS2
      DJZ    XS1
      JMP    XSC
      BC    PORT5,1
      CALL YSA
      BS    PORT5,1    ;DATA=?
      BS    PORT5,0 ;CS=1
      RET
XSA:          ;HT1621XS WRITE MODE
      MOV    A,@8
      MOV    XS1,A
WXC:
      JBS    XS2,7
      JMP    WXD
      BS    PORT5,2 ;DATA=1
      JMP    WXG
WXD:
      BC    PORT5,2 ;DATA=0
WXG:
      BC    PORT5,1
      CALL YSA
      BS    PORT5,1
      RLC    XS2
      DJZ    XS1
      JMP    WXC
      RET
MAIN:
      MOV    A,@0X0
      IOW    0X0E
      MOV    A,@0B11000000
      CONTW
      CLR    0X0F
      MOV    A,@0X01
      IOW    0X0F
      ENI
      MOV    A,@0X10
      MOV    0X4,A
LOPKN:
      MOV    A,@0
      MOV    0X0,A
      JBS    0X4,6
      JMP    KOL
      JMP    KIL
KOL:
      NOP
      INC    0X4
      JMP    LOPKN
KIL:
      BS    0X4,6
      MOV    A,@0B11110000
      IOW    PORT5
      CLR    PORT5
      MOV    A,@0B11111111
      IOW    PORT6
      CLR    PORT6
      NOP
      MOV    A,@0x0F
      MOV    PORT5,A
      MOV    A,@8
      MOV    JP1,A
      MOV    A,@8
      MOV    JP2,A
      MOV    A,@0
      MOV    JP3,A
      MOV    A,@9
      MOV    JP4,A
      CALL XSZW
      BC    PORT5,0 ;CS=0
      CALL YSA
      BS    PORT5,0 ;CS=1
      CALL YSA
      BC    PORT5,0 ;CS=0
      CALL YSA
      BS    PORT5,0 ;CS=1
      CALL YSA
      MOV    A,@0B11100011 ;COMMAND NORAML MODE
      MOV    XS2,A
      CALL XSS
      MOV    A,@0B00011000 ;SYSTEM RC 256K
      MOV    XS2,A
      CALL XSS
      MOV    A,@0B00101001 ;BIAS 1/3 4 COMMONS
      MOV    XS2,A
      CALL XSS
      MOV    A,@0B00000001 ;SYS EN
      MOV    XS2,A
      CALL XSS
      MOV    A,@0B00001001 ;TONE ON
      MOV    XS2,A
      CALL XSS
      MOV    A,@0B01000000 ;WRITE
      MOV    XS2,A
      BC    PORT5,0       ;CS=0
      CALL YSA
      BS    PORT5,2
      BC    PORT5,1
      CALL YSA
      BS    PORT5,1       ;DATA=1
      CALL XSA
      MOV    A,XS7    ;1
      MOV    XS2,A
      CALL XSA
      MOV    A,XS8    ;2
      MOV    XS2,A
      CALL XSA
      MOV    A,XS9    ;3
      MOV    XS2,A
      CALL XSA
      MOV    A,XS10    ;4
      MOV    XS2,A
      CALL XSA
      MOV    A,@0XFF       ;5
      MOV    XS2,A
      CALL XSA
      BS    PORT5,0 ;CS=1
      MOV    A,@0B00000011 ;LCD ON
      MOV    XS2,A
      CALL XSS
      NOP
KK:
      NOP
      NOP
      NOP
      NOP
      NOP
      JMP    KK
      EOP

匠人原创	推荐阅读	往日酷贴
IAR-C-FOR-SAM89(三星)中实现位操作享受一下VIP的待遇，哈哈渐明渐暗动态流水灯效果（C源程序）匠人学习：对PIC芯片ROM中的程序地址精确定位匠人手记网络版：从零开始玩转PIC 之旋转时钟匠人观点：好记性不如烂笔头程序宝典：实用c程序、PIC软件串行口实现技巧设计技巧：如何阅读别人的代码（目录）网络酷文：一个有趣的关于C宏的题目及巧解黑色幽默：三鹿门——后世畅想	《匠人的百宝箱》21IC笔记团队心灵的震撼——写在512地震之后《戒色》新片发布会(网友聚会恶搞系列) 两粒电子的爱情出书的那些日子…… 论21ic的论坛文化、续、性格决定命运选狼还是选狮子、狮子的结局… 《匠人夜话》27：七年之痒—写在升任21icbbs站长之际淘书手记	浅谈A/D Keil C动态内存管理机制分析及改进 modelsim仿真UART接收功能关于射频表无法用红外改写时间的问题博客，改变的不仅仅是图书 C语言宏定义技巧、C语言条件编译详解你的博客还能持续多久（转贴）《21icbbs人物志》续集、上海街头实景一阶滤波算法之深入研究什么是散转程序