EM78C156E+1621显示程序汇编例子

em78c156e+1621显示汇编例子

;XS1621,3.58,OUT20001/6/22

INDIEQU0X0
RTCCEQU0X1

PCEQU0X2
STATUSEQU0X3
FSREQU0X4
PORT5EQU0X5
PORT6EQU0X6
STACK_AEQU0X10
STACK_SEQU0X11
XS1EQU0X12
XS2EQU0X13
XS3EQU0X15
XS4EQU0X16
XS5EQU0X17
XS6EQU0X18
XS7EQU0X19
XS8EQU0X1A
JP1EQU0X1B
JP2EQU0X1C
JP3EQU0X1D
JP4EQU0X1E
XS9EQU0X20
XS10EQU0X21
ORG0
JMPMAIN
ORG8
MOVSTACK_A,A
SWAPSTACK_A
SWAPASTATUS
MOVSTACK_S,A
CLR0XF
SWAPASTACK_S
MOVSTATUS,A
SWAPASTACK_A
RETI
BIAO:
ADD0X2,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:
MOVA,JP1
CALLBIAO
MOVXS3,A
MOVA,JP2
CALLBIAO
MOVXS4,A
MOVA,JP3
CALLBIAO
MOVXS5,A
MOVA,JP4
CALLBIAO
MOVXS6,A
MOVA,@7
MOVXS1,A
AWS:
RLCXS10
RLCXS9
RLCXS8
RLCXS7
JBSXS6,1
JMPASD1
BSXS10,4
JMPASG1
ASD1:
BCXS10,4
ASG1:
RRCXS6
RLCXS10
RLCXS9
RLCXS8
RLCXS7
JBSXS5,1
JMPASD2
BSXS10,4
JMPASG2
ASD2:
BCXS10,4
ASG2:
RRCXS5
RLCXS10
RLCXS9
RLCXS8
RLCXS7
JBSXS4,1
JMPASD3
BSXS10,4
JMPASG3
ASD3:
BCXS10,4
ASG3:
RRCXS4
RLCXS10
RLCXS9
RLCXS8
RLCXS7
JBSXS3,1
JMPASD4
BSXS10,4
JMPASG4
ASD4:
BCXS10,4
ASG4:
RRCXS3
DJZXS1
JMPAWS
RET
YSA:
MOVA,@2
MOVXS3,A
LOP1:
NOP
DJZXS3,A
JMPLOP1
RET
XSS:;HT1621XS8-BITSCOMMANDMODE
BSPORT5,1
BCPORT5,0;CS=0
CALLYSA
BCPORT5,1
CALLYSA
BSPORT5,1;DATA=1
BCPORT5,2
BCPORT5,1
CALLYSA
BSPORT5,1;DATA=0
BCPORT5,1
CALLYSA
BSPORT5,1;DATA=0
MOVA,@8
MOVXS1,A
XSC:
JBSXS2,7
JMPXSD
BSPORT5,2;DATA=1
JMPXSG
XSD:
BCPORT5,2;DATA=0
XSG:
BCPORT5,1
CALLYSA
BSPORT5,1
RLCXS2
DJZXS1
JMPXSC
BCPORT5,1
CALLYSA
BSPORT5,1;DATA=?
BSPORT5,0;CS=1
RET
XSA:;HT1621XSWRITEMODE
MOVA,@8
MOVXS1,A
WXC:
JBSXS2,7
JMPWXD
BSPORT5,2;DATA=1
JMPWXG
WXD:
BCPORT5,2;DATA=0
WXG:
BCPORT5,1
CALLYSA
BSPORT5,1
RLCXS2
DJZXS1
JMPWXC
RET
MAIN:
MOVA,@0X0
IOW0X0E
MOVA,@0B11000000
CONTW
CLR0X0F
MOVA,@0X01
IOW0X0F
ENI
MOVA,@0X10
MOV0X4,A
LOPKN:
MOVA,@0
MOV0X0,A
JBS0X4,6
JMPKOL
JMPKIL
KOL:
NOP
INC0X4
JMPLOPKN
KIL:
BS0X4,6
MOVA,@0B11110000
IOWPORT5
CLRPORT5
MOVA,@0B11111111
IOWPORT6
CLRPORT6
NOP
MOVA,@0x0F
MOVPORT5,A
MOVA,@8
MOVJP1,A
MOVA,@8
MOVJP2,A
MOVA,@0
MOVJP3,A
MOVA,@9
MOVJP4,A
CALLXSZW
BCPORT5,0;CS=0
CALLYSA
BSPORT5,0;CS=1
CALLYSA
BCPORT5,0;CS=0
CALLYSA
BSPORT5,0;CS=1
CALLYSA
MOVA,@0B11100011;COMMANDNORAMLMODE
MOVXS2,A
CALLXSS
MOVA,@0B00011000;SYSTEMRC256K
MOVXS2,A
CALLXSS
MOVA,@0B00101001;BIAS1/34COMMONS
MOVXS2,A
CALLXSS
MOVA,@0B00000001;SYSEN
MOVXS2,A
CALLXSS
MOVA,@0B00001001;TONEON
MOVXS2,A
CALLXSS
MOVA,@0B01000000;WRITE
MOVXS2,A
BCPORT5,0;CS=0
CALLYSA
BSPORT5,2
BCPORT5,1
CALLYSA
BSPORT5,1;DATA=1
CALLXSA
MOVA,XS7;1
MOVXS2,A
CALLXSA
MOVA,XS8;2
MOVXS2,A
CALLXSA
MOVA,XS9;3
MOVXS2,A
CALLXSA
MOVA,XS10;4
MOVXS2,A
CALLXSA
MOVA,@0XFF;5
MOVXS2,A
CALLXSA
BSPORT5,0;CS=1
MOVA,@0B00000011;LCDON
MOVXS2,A
CALLXSS
NOP
KK:
NOP
NOP
NOP
NOP
NOP
JMPKK
EOP