📄 yq9.asm
字号:
CLR C
MOV A,36H
SUBB A,#0B4H
MOV A,37H
SUBB A,#00H
JC OUT3441
CLR C
MOV R0,#0ABH
MOV A,@R0
SUBB A,36H
MOV R0,#0ACH
MOV A,@R0
SUBB A,37H
JNC OUT3443
MOV A,24H
ANL A,#03H
XRL A,#PWOFC
JNZ OUT3442
OUT3441:LJMP OUT3400
OUT3442:MOV A,24H
INC A
ANL A,#0FH
MOV 24H,A
LJMP OUT3445
OUT3443:CLR C
MOV R0,#0ADH
MOV A,@R0
SUBB A,36H
MOV R0,#0AEH
MOV A,@R0
SUBB A,37H
JC OUT3446
MOV A,24H
SWAP A
ANL A,#03H
XRL A,#PWOFC
JNZ OUT3444
MOV 24H,#00H
MOV A,2CH
ORL A,#08H
MOV 2CH,A
LJMP OUT3445
OUT3444:MOV A,24H
ADD A,#10H
ANL A,#0F0H
MOV 24H,A
OUT3445:LJMP OUT3450
OUT3446:LJMP OUT3409
OUT3450:MOV R0,#0B2H
MOV A,@R0
XRL A,#08H
JNZ OUT3460
CLR C
MOV A,38H
SUBB A,#0B4H
MOV A,39H
SUBB A,#00H
JC OUT3451
CLR C
MOV R0,#0B3H
MOV A,@R0
SUBB A,38H
MOV R0,#0B4H
MOV A,@R0
SUBB A,39H
JNC OUT3453
MOV A,25H
ANL A,#03H
XRL A,#PWOFC
JNZ OUT3452
OUT3451:LJMP OUT3400
OUT3452:MOV A,25H
INC A
ANL A,#0FH
MOV 25H,A
LJMP OUT3455
OUT3453:CLR C
MOV R0,#0B5H
MOV A,@R0
SUBB A,38H
MOV R0,#0B6H
MOV A,@R0
SUBB A,39H
JC OUT3456
MOV A,25H
SWAP A
ANL A,#03H
XRL A,#PWOFC
JNZ OUT3454
MOV 25H,#00H
MOV A,2CH
ORL A,#08H
MOV 2CH,A
LJMP OUT3455
OUT3454:MOV A,25H
ADD A,#10H
ANL A,#0F0H
MOV 25H,A
OUT3455:LJMP OUT3460
OUT3456:LJMP OUT3409
OUT3460:MOV R0,#0BAH
MOV A,@R0
XRL A,#08H
JNZ OUT3470
CLR C
MOV A,3AH
SUBB A,#0B4H
MOV A,3BH
SUBB A,#00H
JC OUT3461
CLR C
MOV R0,#0BBH
MOV A,@R0
SUBB A,3AH
MOV R0,#0BCH
MOV A,@R0
SUBB A,3BH
JNC OUT3463
MOV A,26H
ANL A,#03H
XRL A,#PWOFC
JNZ OUT3462
OUT3461:LJMP OUT3400
OUT3462:MOV A,26H
INC A
ANL A,#0FH
MOV 26H,A
LJMP OUT3465
OUT3463:CLR C
MOV R0,#0BDH
MOV A,@R0
SUBB A,3AH
MOV R0,#0BEH
MOV A,@R0
SUBB A,3BH
JC OUT3466
MOV A,26H
SWAP A
ANL A,#03H
XRL A,#PWOFC
JNZ OUT3464
MOV 26H,#00H
MOV A,2CH
ORL A,#08H
MOV 2CH,A
LJMP OUT3465
OUT3464:MOV A,26H
ADD A,#10H
ANL A,#0F0H
MOV 26H,A
OUT3465:LJMP OUT3470
OUT3466:LJMP OUT3409
OUT3470:MOV R0,#0C2H
MOV A,@R0
XRL A,#08H
JNZ OUT3480
CLR C
MOV A,3CH
SUBB A,#0B4H
MOV A,3DH
SUBB A,#00H
JC OUT3471
CLR C
MOV R0,#0C3H
MOV A,@R0
SUBB A,3CH
MOV R0,#0C4H
MOV A,@R0
SUBB A,3DH
JNC OUT3473
MOV A,27H
ANL A,#03H
XRL A,#PWOFC
JNZ OUT3472
OUT3471:LJMP OUT3400
OUT3472:MOV A,27H
INC A
ANL A,#0FH
MOV 27H,A
LJMP OUT3475
OUT3473:CLR C
MOV R0,#0C5H
MOV A,@R0
SUBB A,3CH
MOV R0,#0C6H
MOV A,@R0
SUBB A,3DH
JC OUT3476
MOV A,27H
SWAP A
ANL A,#03H
XRL A,#PWOFC
JNZ OUT3474
MOV 27H,#00H
MOV A,2CH
ORL A,#08H
MOV 2CH,A
LJMP OUT3475
OUT3474:MOV A,27H
ADD A,#10H
ANL A,#0F0H
MOV 27H,A
OUT3475:LJMP OUT3480
OUT3476:LJMP OUT3409
OUT3480:MOV R0,#0CAH
MOV A,@R0
XRL A,#08H
JNZ OUT3490
CLR C
MOV A,3EH
SUBB A,#0B4H
MOV A,3FH
SUBB A,#00H
JC OUT3481
CLR C
MOV R0,#0CBH
MOV A,@R0
SUBB A,3EH
MOV R0,#0CCH
MOV A,@R0
SUBB A,3FH
JNC OUT3483
MOV A,28H
ANL A,#03H
XRL A,#PWOFC
JNZ OUT3482
OUT3481:LJMP OUT3400
OUT3482:MOV A,28H
INC A
ANL A,#0FH
MOV 28H,A
LJMP OUT3485
OUT3483:CLR C
MOV R0,#0CDH
MOV A,@R0
SUBB A,3EH
MOV R0,#0CEH
MOV A,@R0
SUBB A,3FH
JC OUT3486
MOV A,28H
SWAP A
ANL A,#03H
XRL A,#PWOFC
JNZ OUT3484
MOV 28H,#00H
MOV A,2CH
ORL A,#08H
MOV 2CH,A
LJMP OUT3490
OUT3484:MOV A,28H
ADD A,#10H
ANL A,#0F0H
MOV 28H,A
OUT3485:LJMP OUT3510
OUT3486:LJMP OUT3409
OUT3490:MOV A,2CH
ANL A,#01H
JZ OUT3491
SETB P2.3
CLR 2CH.7
LJMP OUT3401
OUT3491:LJMP OUT3510
OUT3510:RET
CHSELT: NOP ;选择通道
MOV A,40H
MOV C,ACC.0
MOV P2.4,C
MOV C,ACC.1
MOV P2.5,C
MOV C,ACC.2
MOV P2.6,C
RET
ADDUP: NOP
MOV A,4DH
JNZ ADDUP0
RET
ADDUP0: MOV A,59H
XRL A,5EH
MOV B,A
MOV A,5AH
XRL A,5FH
ORL A,B
JZ ADDUP1
MOV 5BH,#0FFH
NOP
ADDUP1: NOP
MOV R3,#00H
MOV 2DH,P0
; MOV 2EH,48H
; MOV 2FH,49H
ADDUP2: MOV A,59H
ANL A,#03H
XRL A,#02H
JNZ ADDUP6
ADDUP3: JB 2EH.0,ADDUP4
JNB 2DH.0,ADDUP6
SETB 2FH.0
LJMP ADDUP5
ADDUP4: JB 2DH.0,ADDUP6
JNB 2FH.0,ADDUP5
MOV A,R3
ADD A,R3
ADD A,#30H
MOV R0,A
MOV A,@R0
ADD A,#01H
MOV @R0,A
INC R0
MOV A,@R0
ADDC A,#00H
MOV @R0,A
CLR 2FH.0
ADDUP5: MOV C,2DH.0
MOV 2EH.0,C
ADDUP6: MOV A,2DH
RR A
MOV 2DH,A
MOV A,2EH
RR A
MOV 2EH,A
MOV A,2FH
RR A
MOV 2FH,A
MOV A,59H
RRC A
MOV A,5AH
RRC A
MOV 5AH,A
MOV A,59H
RRC A
MOV 59H,A
MOV A,59H
RRC A
MOV A,5AH
RRC A
MOV 5AH,A
MOV A,59H
RRC A
MOV 59H,A
INC R3
CJNE R3,#07H,ADDUP2
MOV A,2DH
RR A
MOV 2DH,A
MOV A,2EH
RR A
MOV 2EH,A
MOV A,2FH
RR A
MOV 2FH,A
MOV A,59H
RRC A
MOV A,5AH
RRC A
MOV 5AH,A
MOV A,59H
RRC A
MOV 59H,A
MOV A,59H
RRC A
MOV A,5AH
RRC A
MOV 5AH,A
MOV A,59H
RRC A
MOV 59H,A
MOV R3,#00H
RET
INT0E: CLR TR0
MOV 43H,TL0
MOV 44H,TH0
MOV TL0,#00H
MOV TH0,#00H
SETB TR0
MOV 41H,#0FFH
RETI
INDAT: MOV 42H,#00H
INDAT1: LCALL DEL1
MOV A,41H
JNZ INDAT2
INC 42H
CLR C
MOV A,42H
SUBB A,#30
JC INDAT1
MOV 48H,#00H
MOV 49H,#00H
RET
INDAT2: CLR EX0
MOV 48H,43H
MOV 49H,44H
MOV 41H,#00H
SETB EX0
RET
NOP
DEL1: PUSH 04H
PUSH 05H
MOV R4,#2
DEL11: MOV R5,#230
DEL12: DJNZ R5,DEL12
DJNZ R4,DEL11
POP 05H
POP 04H
LCALL WDOG
RET
NOP
DEL5: PUSH 04H
PUSH 05H
MOV R4,#10
DEL51: MOV R5,#230
DEL52: DJNZ R5,DEL52
DJNZ R4,DEL51
POP 05H
POP 04H
LCALL WDOG
RET
DEL1S: PUSH 07H
MOV R7,#200
DEL1S1: LCALL DEL5
DJNZ R7,DEL1S1
POP 07H
RET
DIV32: NOP
NOP
NOP
MOV R4,#00H
MOV R3,#00H
MOV R2,#38H
MOV R1,#40H
MOV R0,#00H
MOV A,R5
ORL A,R6
JNZ DIV320
MOV R0,#00H
MOV R1,#00H
MOV R2,#00H
RET
DIV320: MOV R7,#20H
DIV321: MOV A,R0
ADD A,R0
MOV R0,A
MOV A,R1
ADDC A,R1
MOV R1,A
MOV A,R2
ADDC A,R2
MOV R2,A
MOV A,R3
ADDC A,R3
MOV R3,A
MOV A,R4
ADDC A,R4
MOV R4,A
CLR C
MOV A,R3
SUBB A,R5
MOV A,R4
SUBB A,R6
JC DIV322
INC R0
MOV A,R3
SUBB A,R5
MOV R3,A
MOV A,R4
SUBB A,R6
MOV R4,A
DIV322: DJNZ R7,DIV321
RET
PUTFZ: NOP
; MOV A,4DH
; JNZ PUTFZ0
; RET
PUTFZ0: MOV R7,40H
MOV A,59H
XRL A,5EH
MOV B,A
MOV A,5AH
XRL A,5FH
ORL A,B
JZ PUTFZ1
MOV 5BH,#0FFH
RET
PUTFZ1: MOV 5CH,59H
MOV 5DH,5AH
PUTFZ2: MOV A,R7
JZ PUTFZ3
CLR C
MOV A,5DH
RRC A
MOV 5DH,A
MOV A,5CH
RRC A
MOV 5CH,A
CLR C
MOV A,5DH
RRC A
MOV 5DH,A
MOV A,5CH
RRC A
MOV 5CH,A
DEC R7
SJMP PUTFZ2
PUTFZ3: MOV A,5CH
ANL A,#03H
JZ PUTFZ4
MOV B,A
XRL A,#01H
JZ PUTFZ4
RET
PUTFZ4: MOV A,40H
ADD A,40H
ADD A,#30H
MOV R0,A
MOV A,R1
MOV @R0,A
INC R0
MOV A,R2
MOV @R0,A
RET
REST: NOP
MOV IP,#10H;01H
MOV TMOD,#21H
MOV TCON,#55H
MOV TH0,#00H
MOV TL0,#00H
MOV TH1,#0E8H
MOV TL1,#0E8H
CLR P3.3
MOV SCON,#0D0H
MOV PCON,#00H
MOV IE,#91H
RET
WDOG: CPL P3.7
RET
RRAM: MOV R3,#6FH
MOV R0,#20H
RAM1: MOV @R0,#0
INC R0
DJNZ R3,RAM1
;RET
MOV DPTR,#DRAM
MOV R1,#9
RAM2: MOV A,R1
DEC A
MOVC A,@A+DPTR
MOV R0,A
MOV @R0,A
DJNZ R1,RAM2
RET
DRAM: DB 29H,2AH,2BH,4AH,4BH
DB 4CH,4EH,4FH,62H,
CEKM: NOP
MOV DPTR,#DRAM
MOV R1,#10
CEKM1: MOV A,R1
DEC A
MOVC A,@A+DPTR
MOV R0,A
CLR C
SUBB A,@R0
JNZ CEKM2
DJNZ R1,CEKM1
RET
CEKM2: MOV IE,#00H ;RESET
SJMP CEKM2
TXSS: MOV A,55H
XRL A,#01H
JNZ TXSS1
MOV 55H,#00H
LJMP XJSET
TXSS1: MOV A,55H
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -