📄 短信ss1-16.asm
字号:
MOV R2, 33H
DJNZ R3, XL105
RET
NOP
NOP
JXL:
LCALL JRSET
MOV A, 32H
MOV B,#10H
DIV AB
CJNE A, #00H, JXL10
MOV A, #10H
JXL10: MOV 54H,A; 屏高字
MOV R7,#10H;?16行
JXL101: LCALL JXL102
CLR P3.5
SETB P3.5
LCALL DL10MS;延迟
LCALL JXL102
CLR P3.5
SETB P3.5
LCALL DL10MS;延迟
LCALL SADD; 源,目行地址加1
DJNZ R7,JXL101
RET
NOP
JXL102:
MOV 3CH,3FH
MOV 3BH,3EH
MOV 3AH,3DH
MOV 39H,45H
MOV 38H,44H
MOV 37H,43H
MOV 53H,44H
MOV 52H,43H
MOV R2, 33H;屏宽字节
MOV R3, 54H;
JXL1020:MOV 38H,53H
MOV 37H,52H
JXL103:
MOV P1, 3CH
MOV DPH, 3BH
MOV DPL, 3AH
MOVX A, @DPTR
INC DPTR
MOV 3BH, DPH
MOV 3AH, DPL
MOV R0, DPH
CJNE R0, #00H, JXL104
MOV R0, DPL
CJNE R0, #00H, JXL104
INC 3CH
JXL104:
MOV P1, 39H
MOV DPH, 38H
MOV DPL, 37H
MOVX @DPTR, A
INC DPTR
MOV 38H, DPH
MOV 37H, DPL
DJNZ R2, JXL103
MOV R2, 33H
CLR 0D1H
LCALL JXL107
DJNZ R3, JXL1020
MOV R3, 54H
MOV R1, 70H
CJNE R1, #00H,JXLG
RET
JXLG: MOV 3CH, 42H; 源绿色
MOV 3BH, 41H
MOV 3AH, 40H
MOV 39H, 48H;目绿色首地址8高位
MOV 38H, 47H;中8位
MOV 37H, 46H;低8位
MOV 53H,47H
MOV 52H,46H
MOV R2, 33H
JXL1040: MOV 37H,52H
MOV 38H,53H
JXL105:
MOV P1, 3CH
MOV DPH, 3BH
MOV DPL, 3AH
MOVX A, @DPTR
INC DPTR
MOV 3BH, DPH
MOV 3AH, DPL
MOV R0, DPH
CJNE R0, #00H, JXL106
MOV R0, DPL
CJNE R0, #00H, JXL106
INC 3CH
JXL106:
MOV P1, 39H
MOV DPH, 38H
MOV DPL, 37H
MOVX @DPTR, A
INC DPTR
MOV 38H, DPH
MOV 37H, DPL
DJNZ R2, JXL105
MOV R2, 33H
SETB 0D1H
LCALL JXL107
DJNZ R3, JXL1040
RET
JXL107:
MOV A,33H
MOV B,#15
MUL AB
ADD A,3AH
MOV 3AH,A
MOV A,B
ADDC A,3BH
MOV 3BH,A
MOV A, 3CH
ADDC A,#00H
MOV 3CH,A
MOV A,69H
MOV B,#16
MUL AB
ADD A,52H
MOV 52H,A
MOV A,B
ADDC A,53H
MOV 53H,A
MOV R1, 70H
CJNE R1, #00H,LS0
RET
LS0: JB 0D1H, JXL109
CJNE A, #40H, LS
LS: JNC JXL108
RET
JXL108: ANL A, #0FH
MOV 53H, A
MOV 39H, #20H
RET
JXL109: CJNE A, #80H,LS1
LS1: JNC JXL10A
RET
JXL10A: ANL A, #0FH
ORL A, #40H
MOV 53H, A
MOV 39H, #20H
RET
RET
JYL:
LCALL JRSET
MOV R3,33H;
MOV A, 32H
MOV B,#10H
DIV AB
CJNE A, #00H, JYL1
MOV A, #10
JYL1: MOV R7, A; 屏高字
JYL100:
MOV 52H,3DH
MOV 53H,3EH
MOV 54H,3FH
NOP
MOV 55H,40H
MOV 56H,41H
MOV 57H,42H
NOP
MOV 58H,43H
MOV 59H,44H
NOP
MOV 5AH,46H
MOV 5BH,47H
JYL101: LCALL JYL102
CLR P3.5
SETB P3.5
LCALL DL10MS;延迟
LCALL JYL102
CLR P3.5
SETB P3.5
LCALL DL10MS;延迟
MOV A,52H
ADD A,#01H
MOV 52H,A
MOV A,53H
ADDC A,#00H
MOV 53H,A
MOV A,54H
ADDC A,#00H
MOV 54H,A
MOV A,55H
ADD A,#01H
MOV 55H,A
MOV A,56H
ADDC A,#00H
MOV 56H,A
MOV A,57H
ADDC A,#00H
MOV 57H,A
MOV A,58H
ADD A,#01H
MOV 58H,A
MOV A,59H
ADDC A,#00H
MOV 59H,A
MOV A,5AH
ADD A,#01H
MOV 5AH,A
MOV A,5BH
ADDC A,#00H
MOV 5BH,A
DJNZ R3,JYL101
MOV R3,33H
LCALL JYL107
DJNZ R7,JYL100
RET
NOP
JYL102:
MOV 3CH,54H
MOV 3BH,53H
MOV 3AH,52H
MOV 39H,45H
MOV 38H,59H
MOV 37H,58H
MOV R2, #10H;
JYL103:
MOV P1, 3CH
MOV DPH, 3BH
MOV DPL, 3AH
MOVX A, @DPTR
JYL104:
MOV P1, 39H
MOV DPH, 38H
MOV DPL, 37H
MOVX @DPTR, A
LCALL JYL108
DJNZ R2, JYL103
MOV R2, #10H
MOV R1, 70H
CJNE R1, #00H,JYL104G
RET
JYL104G: MOV 3CH, 57H; 源绿色
MOV 3BH, 56H
MOV 3AH, 55H
MOV 39H, 48H;目绿色首地址8高位
MOV 38H, 5BH;中8位
MOV 37H, 5AH;低8位
JYL105:
MOV P1, 3CH
MOV DPH, 3BH
MOV DPL, 3AH
MOVX A, @DPTR
JYL106:
MOV P1, 39H
MOV DPH, 38H
MOV DPL, 37H
MOVX @DPTR, A
LCALL JYL108
DJNZ R2, JYL105
LCALL DL10MS
RET
JYL107:
MOV A,33H
MOV B,#16
MUL AB
ADD A,3DH
MOV 3DH,A
MOV A,B
ADDC A,3EH
MOV 3EH,A
MOV A, 3FH
ADDC A,#00H
MOV 3FH,A
MOV A,33H
MOV B,#16
MUL AB
ADD A,40H
MOV 40H,A
MOV A,B
ADDC A,41H
MOV 41H,A
MOV A, 42H
ADDC A,#00H
MOV 42H,A
MOV A,69H; FPGA最大宽度
MOV B,#16
MUL AB
ADD A,43H
MOV 43H,A
MOV A,B
ADDC A,44H
MOV 44H,A
MOV R1, 70H
CJNE R1, #00H, JYL107G
RET
JYL107G: CJNE A, #40H, JYL1070
MOV 44H, #00H
MOV 45H, #20H
JYL1070: MOV A,69H
MOV B,#16
MUL AB
ADD A,46H
MOV 46H,A
MOV A,B
ADDC A,47H
MOV 47H,A
CJNE A, #80H, JYL1071
MOV 47H, #40H
MOV 48H, #20H
JYL1071: RET
JYL108:
MOV A,3AH
ADD A,33H
MOV 3AH,A
MOV A,3BH
ADDC A,#00H
MOV 3BH,A
MOV A,3CH
ADDC A,#00H
MOV 3CH,A
MOV A,37H
ADD A,69H; FPGA最大宽度128字节
MOV 37H,A
MOV A,38H
ADDC A,#00H
MOV 38H,A
RET
XB:
MOV 45H, #18H;红目地址高8位
MOV 44H, #00H;中8位
MOV 43H, 65H;低8位
MOV 48H, #18H;绿目地址高8位
MOV 47H, #40H;中8位
MOV 46H, 65H;低8位
MOV R7,32H
XB100: LCALL XB101
CLR P3.5
SETB P3.5
LCALL DL10MS;延迟
LCALL XB101
CLR P3.5
SETB P3.5
LCALL DL10MS;延迟
LCALL SADD1; 目行地址加1
DJNZ R7,XB100
RET
NOP
XB101:
MOV 39H,45H
MOV 38H,44H
MOV 37H,43H
MOV R2, 33H;屏宽字节
; MOV R3, #01H;下拉行数
XB102:
MOV P1, 39H
MOV DPH, 38H
MOV DPL, 37H
MOV A,#00H
MOVX @DPTR, A
INC DPTR
MOV 38H, DPH
MOV 37H, DPL
DJNZ R2, XB102
MOV R2, 33H
;DJNZ R3, XB102
; MOV R3, #01H
MOV R1, 70H
CJNE R1, #00H,XBG
RET
XBG: MOV 39H, 48H;目绿色首地址8高位
MOV 38H, 47H;中8位
MOV 37H, 46H;低8位
MOV R2, 33H
;MOV R3, #01H
XB103:
MOV P1, 39H
MOV DPH, 38H
MOV DPL, 37H
MOV A,#00H
MOVX @DPTR, A
INC DPTR
MOV 38H, DPH
MOV 37H, DPL
DJNZ R2, XB103
MOV R2, 33H
; DJNZ R3, XB103
RET
NOP
NOP
NOP
YL:
MOV 74H, #80H
SETB C
MOV 0D5H, C
YL0:
LCALL JRSET
MOV R7,#08H
MOV R6,33H
MOV 50H,74H
YL1: LCALL YL100
CLR P3.5
SETB P3.5
LCALL DL10MS
LCALL YL100
CLR P3.5
SETB P3.5
LCALL DL10MS
MOV C,0D5H
MOV A,50H
RRC A
MOV 50H,A
DJNZ R7,YL1
MOV R7,#08H
LCALL YL100
CLR P3.5
SETB P3.5
LCALL DL10MS
LCALL YL100
CLR P3.5
SETB P3.5
LCALL DL10MS
MOV 50H,74H
LCALL SAONE
DJNZ R6,YL1
RET
NOP
NOP
NOP
YL100:
MOV 3CH,3FH
MOV 3BH,3EH
MOV 3AH,3DH
MOV 39H,45H
MOV 38H,44H
MOV 37H,43H
MOV R3, 32H; 右拉垂直行数
CLR 0D1H; 处理红色标志
LCALL YL101
MOV R1, 70H
CJNE R1, #00H, YLG
RET
YLG: MOV 3CH,42H
MOV 3BH,41H
MOV 3AH,40H
MOV 39H,48H
MOV 38H,47H
MOV 37H,46H
MOV R3, 32H; 右拉垂直行数
SETB 0D1H; 处理绿色标志
LCALL YL101
RET
YL101:
MOV P1, 3CH
MOV DPH, 3BH
MOV DPL, 3AH
MOVX A, @DPTR
ANL A, 50H
MOV 51H,A
MOV A,3AH
ADD A,33H;
MOV 3AH,A
MOV A,3BH
ADDC A,#00H
MOV 3BH,A
MOV A,3CH
ADDC A,#00H
MOV 3CH,A
YL102:
MOV P1, 39H
MOV DPH, 38H
MOV DPL, 37H
MOV A,51H
MOVX @DPTR, A
MOV A,37H
ADD A,69H;
MOV 37H,A
MOV A,38H
ADDC A,#00H
MOV 38H,A
MOV R1, 70H
CJNE R1, #01H, YL103
JB 0D1H, YL104
CJNE A, #40H, YL103
MOV 38H, #00H
MOV 39H, #20H
YL103: DJNZ R3, YL101
RET
YL104: CJNE A, #80H,YL105
MOV 38H, #40H
MOV 39H, #20H
YL105: DJNZ R3,YL101
RET
SAONE:
MOV A,3DH
ADD A,#01H
MOV 3DH,A
MOV A,3EH
ADDC A,#00H
MOV 3EH,A
MOV A,3FH
ADDC A,#00H
MOV 3FH,A
MOV A,40H
ADD A,#01H
MOV 40H,A
MOV A,41H
ADDC A,#00H
MOV 41H,A
MOV A,42H
ADDC A,#00H
MOV 42H,A
MOV A,43H
ADD A,#01H
MOV 43H,A
MOV A,44H
ADDC A,#00H
MOV 44H,A
MOV A,46H
ADD A,#01H
MOV 46H,A
MOV A,47H
ADDC A,#00H
MOV 47H,A
RET
NOP
NOP
YB:
MOV 74H,#7FH
CLR C
MOV 0D5H,C
LJMP YL0
NOP
NOP
YZ:
LCALL JRSET
MOV R6,33H
YZ1: LCALL YZ100
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -