📄 xwfab.asm
字号:
MOV R2,#3
MOV R0,#30H
LCALL TXAR
MOV 30H,#0
MOV 35H,#01H
MOV 36H,#80H
MOV 37H,#00H
MOV R0,#30H
MOV R1,#35H
MOV R2,#3
LCALL BCDA
LCALL CALCUDDATA
MOV R0,#35H
MOV R2,#3
MOV DPTR,#ROOMFAI_PC
MOV A,16H
MOV B,#0CH
MUL AB
ADD A,DPL
MOV DPL,A
MOV A,B
ADDC A,DPH
MOV DPH,A
MOV A,15H
MOV B,#3
MUL AB
ADD A,DPL
MOV DPL,A
MOV A,B
ADDC A,DPH
MOV DPH,A
MOV A,16H
XRL A,#2
JNZ FAIPUQU0
DEC DPL
DEC DPL
DEC DPL
FAIPUQU0:LCALL TRAX
RET
EXCHFAIPDQU:MOV DPTR,#ROOMUI_PC;4
MOV A,16H
MOV B,#8CH
MUL AB
ADD A,DPL
MOV DPL,A
MOV A,B
ADDC A,DPH
MOV DPH,A
MOV A,15H
ADD A,#13H
MOV B,#5
MUL AB
ADD A,DPL
MOV DPL,A
MOV A,B
ADDC A,DPH
MOV DPH,A
INC DPTR
MOV R2,#3
MOV R0,#30H
LCALL TXAR
MOV 30H,#0
MOV 35H,#03H
MOV 36H,#60H
MOV 37H,#00H
MOV R0,#30H
MOV R1,#35H
MOV R2,#3
LCALL BCDS
LCALL CALCUDDATA
MOV R0,#35H
MOV R2,#3
MOV DPTR,#ROOMFAI_PC
MOV A,16H
MOV B,#4*3
MUL AB
ADD A,DPL
MOV DPL,A
MOV A,B
ADDC A,DPH
MOV DPH,A
MOV A,15H
MOV B,#3
MUL AB
ADD A,DPL
MOV DPL,A
MOV A,B
ADDC A,DPH
MOV DPH,A
MOV A,16H
XRL A,#2
JNZ FAIPDQU0
DEC DPL
DEC DPL
DEC DPL
FAIPDQU0:LCALL TRAX
RET
;-------------
EXCHANGFAINUI0:
EXCHANGFAINUI1:LCALL READ_DDATAS
MOV DPTR,#ROOMUI_PC
MOV A,16H
MOV B,#8CH
MUL AB
ADD A,DPL
MOV DPL,A
MOV A,B
ADDC A,DPH
MOV DPH,A
MOV A,15H
MOV B,#5
MUL AB
ADD A,DPL
MOV DPL,A
MOV A,B
ADDC A,DPH
MOV DPH,A
MOVX A,@DPTR
MOV B,#3
MUL AB
MOV DPTR,#EXCHFAIN_P
JMP @A+DPTR
EXCHFAIN_P:LJMP EXCHFAINPU
LJMP EXCHFAINPD
EXCHFAINPU: MOV DPTR,#ROOMUI_PC
MOV A,16H
MOV B,#8CH
MUL AB
ADD A,DPL
MOV DPL,A
MOV A,B
ADDC A,DPH
MOV DPH,A
MOV A,15H
ADD A,#13H
MOV B,#5
MUL AB
ADD A,DPL
MOV DPL,A
MOV A,B
ADDC A,DPH
MOV DPH,A
MOVX A,@DPTR
MOV B,#3
MUL AB
MOV DPTR,#EXCHFAIN_PUQ
JMP @A+DPTR
EXCHFAIN_PUQ:LJMP EXCHFAINPUQU;1
LJMP EXCHFAINPUQD;4
EXCHFAINPD: MOV DPTR,#ROOMUI_PC
MOV A,16H
MOV B,#8CH
MUL AB
ADD A,DPL
MOV DPL,A
MOV A,B
ADDC A,DPH
MOV DPH,A
MOV A,15H
ADD A,#13H
MOV B,#5
MUL AB
ADD A,DPL
MOV DPL,A
MOV A,B
ADDC A,DPH
MOV DPH,A
MOVX A,@DPTR
MOV B,#3
MUL AB
MOV DPTR,#EXCHFAIN_PDQ
JMP @A+DPTR
EXCHFAIN_PDQ:LJMP EXCHFAINPDQU;2
LJMP EXCHFAINPDQD;3
EXCHFAINPUQU:MOV DPTR,#ROOMUI_PC;1
MOV A,16H
MOV B,#8CH
MUL AB
ADD A,DPL
MOV DPL,A
MOV A,B
ADDC A,DPH
MOV DPH,A
MOV A,15H
ADD A,#19
MOV B,#5
MUL AB
ADD A,DPL
MOV DPL,A
MOV A,B
ADDC A,DPH
MOV DPH,A
;INC DPTR
INC DPTR
MOV R2,#3
MOV R0,#35H
LCALL TXAR
LCALL CALCUDDATA
MOV R0,#35H
MOV R2,#3
MOV DPTR,#ROOMFAI_PC
MOV A,16H
MOV B,#0CH
MUL AB
ADD A,DPL
MOV DPL,A
MOV A,B
ADDC A,DPH
MOV DPH,A
MOV A,15H
MOV B,#3
MUL AB
ADD A,DPL
MOV DPL,A
MOV A,B
ADDC A,DPH
MOV DPH,A
MOV A,16H
XRL A,#2
JNZ FAINPUQU0
DEC DPL
DEC DPL
DEC DPL
FAINPUQU0:LCALL TRAX
RET
EXCHFAINPDQU:MOV DPTR,#ROOMUI_PC;2
MOV A,16H
MOV B,#8CH
MUL AB
ADD A,DPL
MOV DPL,A
MOV A,B
ADDC A,DPH
MOV DPH,A
MOV A,15H
ADD A,#13H
MOV B,#5
MUL AB
ADD A,DPL
MOV DPL,A
MOV A,B
ADDC A,DPH
MOV DPH,A
INC DPTR
MOV R2,#3
MOV R0,#30H
LCALL TXAR
MOV 30H,#0
MOV 35H,#01H
MOV 36H,#80H
MOV 37H,#00H
MOV R0,#30H
MOV R1,#35H
MOV R2,#3
LCALL BCDS
LCALL CALCUDDATA
MOV R0,#35H
MOV R2,#3
MOV DPTR,#ROOMFAI_PC
MOV A,16H
MOV B,#0CH
MUL AB
ADD A,DPL
MOV DPL,A
MOV A,B
ADDC A,DPH
MOV DPH,A
MOV A,15H
MOV B,#3
MUL AB
ADD A,DPL
MOV DPL,A
MOV A,B
ADDC A,DPH
MOV DPH,A
MOV A,16H
XRL A,#2
JNZ FAINPDQU0
DEC DPL
DEC DPL
DEC DPL
FAINPDQU0:LCALL TRAX
RET
EXCHFAINPDQD:MOV DPTR,#ROOMUI_PC
MOV A,16H
MOV B,#8CH
MUL AB
ADD A,DPL
MOV DPL,A
MOV A,B
ADDC A,DPH
MOV DPH,A
MOV A,15H
ADD A,#13H
MOV B,#5
MUL AB
ADD A,DPL
MOV DPL,A
MOV A,B
ADDC A,DPH
MOV DPH,A
INC DPTR
MOV R2,#3
MOV R0,#30H
LCALL TXAR
MOV 30H,#0
MOV 35H,#01H
MOV 36H,#80H
MOV 37H,#00H
MOV R0,#30H
MOV R1,#35H
MOV R2,#3
LCALL BCDA
LCALL CALCUDDATA
MOV R0,#35H
MOV R2,#3
MOV DPTR,#ROOMFAI_PC
MOV A,16H
MOV B,#0CH
MUL AB
ADD A,DPL
MOV DPL,A
MOV A,B
ADDC A,DPH
MOV DPH,A
MOV A,15H
MOV B,#3
MUL AB
ADD A,DPL
MOV DPL,A
MOV A,B
ADDC A,DPH
MOV DPH,A
MOV A,16H
XRL A,#2
JNZ FAINPDQD0
DEC DPL
DEC DPL
DEC DPL
FAINPDQD0:LCALL TRAX
RET
EXCHFAINPUQD:MOV DPTR,#ROOMUI_PC
MOV A,16H
MOV B,#8CH
MUL AB
ADD A,DPL
MOV DPL,A
MOV A,B
ADDC A,DPH
MOV DPH,A
MOV A,15H
ADD A,#13H
MOV B,#5
MUL AB
ADD A,DPL
MOV DPL,A
MOV A,B
ADDC A,DPH
MOV DPH,A
INC DPTR
MOV R2,#3
MOV R0,#30H
LCALL TXAR
MOV 30H,#0
MOV 35H,#03H
MOV 36H,#60H
MOV 37H,#00H
MOV R0,#30H
MOV R1,#35H
MOV R2,#3
LCALL BCDS
LCALL CALCUDDATA
MOV R0,#35H
MOV R2,#3
MOV DPTR,#ROOMFAI_PC
MOV A,16H
MOV B,#4*3
MUL AB
ADD A,DPL
MOV DPL,A
MOV A,B
ADDC A,DPH
MOV DPH,A
MOV A,15H
MOV B,#3
MUL AB
ADD A,DPL
MOV DPL,A
MOV A,B
ADDC A,DPH
MOV DPH,A
MOV A,16H
XRL A,#2
JNZ FAINPUQD0
DEC DPL
DEC DPL
DEC DPL
FAINPUQD0:LCALL TRAX
RET;RET
;---------------
READ_Ddatas:MOV DPTR,#dtxzfai
MOV A,16H
MOV B,#10H
MUL AB
ADD A,DPL
MOV DPL,A
MOV A,B
ADDC A,DPH
MOV DPH,A
MOV A,15H
MOV B,#4
MUL AB
ADD A,DPL
MOV R6,A
MOV A,B
ADDC A,DPH
RL A
ANL A,#02H
MOV PAGE0,A
MOV R0,#DDATAS
MOV R7,#4
;LCALL write_BYTES
LCALL READ_BYTES
RET
;-----------------
CALCUDDATA:MOV A,DDATAS
JNZ CALCUDDATAS
MOV R0,#DDATAS+1
MOV R1,#35H
MOV R2,#3
LCALL BCDA;@R1+@R0->@R1
MOV A,35H
CJNE A,#03H,CALDDA0
MOV A,36H
CJNE A,#60H,CALDDA0
MOV A,37H
CJNE A,#00H,CALDDA0
MOV 35H,#0
MOV 36H,#0
MOV 37H,#0
RET
CALDDA0:JC CALDDA1
MOV DDATAS+1,#03H
MOV DDATAS+2,#60H
MOV DDATAS+3,#00H
MOV R0,#DDATAS+1
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -