📄 wbandpys.asm
字号:
MOV tyno?555,B
SJMP ?C0105
?C0104:
MOV tyno?555,#0AH
?C0105:
LCALL L?0310
CLR A
MOV g_sTemp?561+03H,A
?C0108:
LCALL L?0370
JZ ?C0112
ADD A,#011H
JNZ ?C0109
?C0110:
MOV A,j?557
CLR C
SUBB A,ty_page?556
JNC ?C0109
INC j?557
SJMP ?C0109
?C0112:
MOV A,j?557
SETB C
SUBB A,#01H
JC ?C0109
DEC j?557
?C0109:
MOV A,keyc
ADD A,#08BH
JZ ?C0116
ADD A,#011H
JNZ ?C0106
?C0116:
MOV A,j?557
CJNE A,ty_page?556,?C0117
LCALL L?0320
MOV R7,B
MOV A,R7
JZ ?C0117
MOV tyno?555,A
SJMP ?C0118
?C0117:
MOV tyno?555,#0AH
?C0118:
LCALL L?0321
?C0119:
LCALL L?0351
JC ?C0122
LCALL L?0301
MOV A,#020H
MOVX @DPTR,A
SJMP ?C0121
?C0122:
LCALL L?0298
MOV A,R7
MOVX @DPTR,A
?C0121:
INC i?554
MOV A,i?554
CJNE A,#016H,?C0119
?C0120:
LCALL L?0336
?C0106:
MOV A,tyno?555
SETB C
SUBB A,#09H
JC ?C0125
MOV R7,#09H
SJMP ?C0126
?C0125:
MOV A,tyno?555
DEC A
MOV R7,A
?C0126:
MOV A,keyc
SETB C
SUBB A,R7
JC ?C0107
MOV A,keyc
XRL A,#01BH
JZ ?C0107
MOV A,keyc
XRL A,#020H
JNZ ?C0108
?C0107:
MOV A,keyc
XRL A,#01BH
JZ ?C0127
MOV A,keyc
XRL A,#020H
JZ ?C0129
MOV A,keyc
CLR C
SUBB A,#00H
JC ?C0128
MOV A,tyno?555
SETB C
SUBB A,#09H
JC ?C0130
MOV R7,#09H
SJMP ?C0131
?C0130:
MOV A,tyno?555
DEC A
MOV R7,A
?C0131:
MOV A,keyc
SETB C
SUBB A,R7
JNC ?C0128
?C0129:
MOV A,keyc
CJNE A,#020H,?C0132
CLR A
MOV keyc,A
?C0132:
LCALL L?0306
MOV ?_DisHzYm?BYTE+04H,A
LCALL _DisHzYm
?C0128:
LCALL L?0332
JNC ?C0127
LCALL L?0347
JNC ?C0134
MOVX A,@DPTR
ADD A,#02H
MOVX @DPTR,A
SJMP ?C0135
?C0134:
MOV A,HZResult_col_bank?559
CJNE A,#0B8H,?C0135
LCALL L?0324
?C0135:
LCALL L?0311
?C0127:
LCALL L?0315
MOV i?554,A
?C0137:
LCALL L?0303
CJNE A,#06H,?C0137
?C0098:
MOV DPTR,#input_state
MOVX A,@DPTR
XRL A,#0CH
JZ $ + 5H
LJMP ?C0140
LCALL GetWBChar
LCALL L?0368
JNZ ?C0141
LCALL L?0326
MOV i?554,A
?C0142:
LCALL L?0304
CJNE A,#06H,?C0142
?C0143:
; 五笔码输入错误,Col4
MOV R3,#0FFH
MOV R2,#HIGH (?SC_55)
MOV R1,#LOW (?SC_55)
LJMP ?C0293
?C0141:
LCALL L?0334
JZ ?C0145
LCALL L?0364
SJMP ?C0146
?C0145:
LCALL L?0320
MOV R7,A
?C0146:
LCALL L?0366
CJNE A,ty_page?556,?C0147
MOV A,R6
JZ ?C0147
LCALL L?0320
MOV tyno?555,B
SJMP ?C0148
?C0147:
MOV tyno?555,#0AH
?C0148:
LCALL L?0310
CLR A
MOV g_sTemp?561+03H,A
?C0151:
LCALL L?0370
JZ ?C0155
ADD A,#011H
JNZ ?C0152
?C0153:
MOV A,j?557
CLR C
SUBB A,ty_page?556
JNC ?C0152
INC j?557
SJMP ?C0152
?C0155:
MOV A,j?557
SETB C
SUBB A,#01H
JC ?C0152
DEC j?557
?C0152:
MOV A,keyc
ADD A,#08BH
JZ ?C0159
ADD A,#011H
JNZ ?C0149
?C0159:
MOV A,j?557
CJNE A,ty_page?556,?C0160
LCALL L?0320
MOV R7,B
MOV A,R7
JZ ?C0160
MOV tyno?555,A
SJMP ?C0161
?C0160:
MOV tyno?555,#0AH
?C0161:
LCALL L?0321
?C0162:
LCALL L?0351
JC ?C0165
LCALL L?0301
MOV A,#020H
MOVX @DPTR,A
SJMP ?C0164
?C0165:
LCALL L?0298
MOV A,R7
MOVX @DPTR,A
?C0164:
INC i?554
MOV A,i?554
CJNE A,#016H,?C0162
?C0163:
LCALL L?0336
?C0149:
MOV A,tyno?555
SETB C
SUBB A,#09H
JC ?C0168
MOV R7,#09H
SJMP ?C0169
?C0168:
MOV A,tyno?555
DEC A
MOV R7,A
?C0169:
MOV A,keyc
SETB C
SUBB A,R7
JC ?C0150
MOV A,keyc
XRL A,#01BH
JZ ?C0150
MOV A,keyc
XRL A,#020H
JNZ ?C0151
?C0150:
MOV A,keyc
XRL A,#01BH
JZ ?C0170
MOV A,keyc
XRL A,#020H
JZ ?C0172
MOV A,keyc
CLR C
SUBB A,#00H
JC ?C0171
MOV A,tyno?555
SETB C
SUBB A,#09H
JC ?C0173
MOV R7,#09H
SJMP ?C0174
?C0173:
MOV A,tyno?555
DEC A
MOV R7,A
?C0174:
MOV A,keyc
SETB C
SUBB A,R7
JNC ?C0171
?C0172:
MOV A,keyc
CJNE A,#020H,?C0175
CLR A
MOV keyc,A
?C0175:
LCALL L?0306
MOV ?_DisHzYm?BYTE+04H,A
LCALL _DisHzYm
?C0171:
LCALL L?0333
JNC ?C0170
LCALL L?0348
JNC ?C0177
MOVX A,@DPTR
ADD A,#02H
MOVX @DPTR,A
SJMP ?C0178
?C0177:
MOV A,HZResult_col_bank?559
CJNE A,#0B8H,?C0178
LCALL L?0325
?C0178:
LCALL L?0311
?C0170:
LCALL L?0315
MOV i?554,A
?C0180:
LCALL L?0304
CJNE A,#06H,?C0180
?C0140:
MOV DPTR,#input_state
MOVX A,@DPTR
XRL A,#0BH
JZ $ + 5H
LJMP ?C0183
LCALL GetPYChar
LCALL L?0368
JNZ ?C0184
LCALL L?0326
MOV i?554,A
?C0185:
LCALL L?0304
CJNE A,#06H,?C0185
?C0186:
; 拼音输入错误,Col4
MOV R3,#0FFH
MOV R2,#HIGH (?SC_70)
MOV R1,#LOW (?SC_70)
?C0292:
LJMP ?C0293
?C0184:
LCALL GetHZChar
LCALL L?0335
JZ ?C0188
LCALL L?0365
SJMP ?C0189
?C0188:
LCALL L?0320
MOV R7,A
?C0189:
LCALL L?0367
CJNE A,ty_page?556,?C0190
MOV A,R6
JZ ?C0190
LCALL L?0320
MOV tyno?555,B
SJMP ?C0191
?C0190:
MOV tyno?555,#0AH
?C0191:
LCALL L?0322
?C0192:
LCALL L?0352
JC ?C0195
LCALL L?0301
MOV A,#020H
MOVX @DPTR,A
SJMP ?C0194
?C0195:
LCALL L?0299
MOV A,R7
MOVX @DPTR,A
?C0194:
INC i?554
MOV A,i?554
CJNE A,#016H,?C0192
?C0193:
LCALL L?0371
MOV DPTR,#g_iXqHzCount
MOVX A,@DPTR
MOV R7,A
MOV B,#064H
DIV AB
MOV R6,A
ADD A,#030H
MOV g_sTemp?561,A
MOV A,R6
MOV B,#064H
MUL AB
MOV R6,A
CLR C
MOV A,R7
SUBB A,R6
MOV B,#0AH
DIV AB
ADD A,#030H
MOV g_sTemp?561+01H,A
MOVX A,@DPTR
MOV B,#0AH
DIV AB
MOV A,B
ADD A,#030H
MOV g_sTemp?561+02H,A
MOV g_sTemp?561+03H,#020H
?C0199:
LCALL GetKey
MOV A,keyc
ADD A,#08BH
JZ ?C0203
ADD A,#011H
JNZ ?C0200
?C0201:
MOV A,j?557
CLR C
SUBB A,ty_page?556
JNC ?C0200
INC j?557
SJMP ?C0200
?C0203:
MOV A,j?557
SETB C
SUBB A,#01H
JC ?C0200
DEC j?557
?C0200:
MOV A,keyc
ADD A,#08BH
JZ ?C0207
ADD A,#011H
JNZ ?C0197
?C0207:
MOV A,j?557
CJNE A,ty_page?556,?C0208
LCALL L?0320
MOV R7,B
MOV A,R7
JZ ?C0208
MOV tyno?555,A
SJMP ?C0209
?C0208:
MOV tyno?555,#0AH
?C0209:
LCALL L?0322
?C0210:
LCALL L?0352
JC ?C0213
LCALL L?0301
MOV A,#020H
MOVX @DPTR,A
SJMP ?C0212
?C0213:
LCALL L?0299
MOV A,R7
MOVX @DPTR,A
?C0212:
INC i?554
MOV A,i?554
CJNE A,#016H,?C0210
?C0211:
LCALL L?0371
?C0197:
MOV A,tyno?555
SETB C
SUBB A,#09H
JC ?C0216
MOV R7,#09H
SJMP ?C0217
?C0216:
MOV A,tyno?555
DEC A
MOV R7,A
?C0217:
MOV A,keyc
SETB C
SUBB A,R7
JC ?C0198
MOV A,keyc
XRL A,#01BH
JNZ ?C0199
?C0198:
MOV A,keyc
XRL A,#01BH
JZ ?C0218
MOV A,keyc
CLR C
SUBB A,#00H
JC ?C0219
MOV A,tyno?555
SETB C
SUBB A,#09H
JC ?C0220
MOV R7,#09H
SJMP ?C0221
?C0220:
MOV A,tyno?555
DEC A
MOV R7,A
?C0221:
MOV A,keyc
SETB C
SUBB A,R7
JNC ?C0219
LCALL L?0307
MOV ?_DisHzYm?BYTE+04H,A
LCALL _DisHzYm
?C0219:
LCALL L?0333
JNC ?C0218
LCALL L?0348
JNC ?C0223
MOVX A,@DPTR
ADD A,#02H
MOVX @DPTR,A
SJMP ?C0224
?C0223:
MOV A,HZResult_col_bank?559
CJNE A,#0B8H,?C0224
LCALL L?0325
?C0224:
LCALL L?0312
?C0218:
CLR A
MOV keyc,A
MOV R7,#0BEH
LCALL _ClsLin
LCALL L?0327
MOV i?554,A
?C0226:
LCALL L?0304
CJNE A,#06H,?C0226
LJMP ?C0065
?C0183:
MOV R7,#0BEH
LCALL _ClsLin
CLR A
MOV keyc,A
LCALL L?0327
MOV i?554,A
?C0229:
LCALL L?0304
CJNE A,#06H,?C0229
?C0230:
MOV DPTR,#input_state
MOVX A,@DPTR
XRL A,#0DH
JZ $ + 5H
LJMP ?C0065
LCALL GetChinaCode
MOV A,R7
JZ ?C0233
LCALL L?0308
MOV ?_DisHzYm?BYTE+04H,A
LCALL _DisHzYm
LCALL L?0333
JC $ + 5H
LJMP ?C0065
LCALL L?0348
JNC ?C0235
MOVX A,@DPTR
ADD A,#02H
MOVX @DPTR,A
SJMP ?C0236
?C0235:
MOV A,HZResult_col_bank?559
CJNE A,#0B8H,?C0236
LCALL L?0325
?C0236:
MOV DPTR,#gSChinaCode
MOVX A,@DPTR
MOV R7,A
MOV A,hz_store_len?560
ADD A,hz_store_len?560
MOV R6,A
LCALL L?0338
MOV A,R7
MOVX @DPTR,A
MOV DPTR,#gSChinaCode+01H
MOVX A,@DPTR
MOV R7,A
MOV A,#LOW (Hz_Record+01H)
ADD A,R6
LCALL L?0313
LJMP ?C0065
?C0233:
; 区位码输入错误,Col4;
MOV R3,#0FFH
MOV R2,#HIGH (?SC_83)
MOV R1,#LOW (?SC_83)
?C0293:
MOV R5,#0BEH
LJMP ?C0296
?C0239:
LCALL L?0356
JZ ?C0249
DEC A
JZ ?C0245
DEC A
JZ ?C0253
DEC A
JZ ?C0254
ADD A,#04H
JZ $ + 5H
LJMP ?C0065
?C0241:
CLR A
MOV i?554,A
?C0242:
LCALL L?0304
CJNE A,#06H,?C0242
?C0243:
LCALL L?0327
MOV A,#0CH
; 五笔输入法,Col3
LCALL L?0353
MOV R2,#HIGH (?SC_11)
MOV R1,#LOW (?SC_11)
MOV R5,#0BCH
?C0294:
SJMP ?C0296
?C0245:
CLR A
MOV i?554,A
?C0246:
LCALL L?0304
CJNE A,#06H,?C0246
?C0247:
LCALL L?0327
MOV A,#0BH
; 拼音输入法,Col3
LCALL L?0353
MOV R2,#HIGH (?SC_22)
MOV R1,#LOW (?SC_22)
MOV R5,#0BCH
?C0295:
SJMP ?C0296
?C0249:
CLR A
MOV i?554,A
?C0250:
LCALL L?0304
CJNE A,#06H,?C0250
?C0251:
LCALL L?0327
MOV DPTR,#input_state
MOV A,#0DH
MOVX @DPTR,A
; 区位输入法,Col3
MOV R3,#0FFH
MOV R2,#HIGH (?SC_33)
MOV R1,#LOW (?SC_33)
MOV R5,#0BCH
?C0296:
LCALL _DisHzLinYm
LJMP ?C0065
?C0253:
ANL SCON2,#0FEH
MOV DPTR,#input_state
MOV A,#0EH
MOVX @DPTR,A
; 手写输入法,Col3
LCALL L?0354
ORL IEA,#010H
MOV DPTR,#0212H
MOVX A,@DPTR
ANL A,#07FH
MOVX @DPTR,A
LJMP ?C0065
?C0254:
MOV DPTR,#input_state
MOV A,#0AH
MOVX @DPTR,A
; 英文输入法,Col3;
MOV R3,#0FFH
MOV R2,#HIGH (?SC_0)
MOV R1,#LOW (?SC_0)
MOV R5,#0BCH
LCALL _DisHzLinYm
ANL IEA,#0EFH
MOV DPTR,#0212H
MOVX A,@DPTR
ORL A,#080H
MOVX @DPTR,A
LJMP ?C0065
?C0255:
MOV DPTR,#input_long
MOVX A,@DPTR
JZ ?C0257
MOV DPTR,#input_state
MOVX A,@DPTR
XRL A,#0AH
JNZ ?C0256
?C0257:
MOV A,hz_store_len?560
SETB C
SUBB A,#00H
JC ?C0258
MOV DPTR,#HZResult_row
MOVX A,@DPTR
MOV R7,A
CJNE A,#01H,?C0259
MOV DPTR,#HZResult_col
MOVX A,@DPTR
SETB C
SUBB A,HZResult_col_bank?559
JC ?C0259
MOV A,HZResult_col_bank?559
MOVX @DPTR,A
MOV DPTR,#HZResult_row
MOV A,#018H
MOVX @DPTR,A
SJMP ?C0260
?C0259:
MOV A,R7
SETB C
SUBB A,HZResult_row_bank?558
JNC ?C0262
MOV DPTR,#HZResult_col
MOVX A,@DPTR
SUBB A,HZResult_col_bank?559
JC ?C0260
?C0262:
MOV DPTR,#HZResult_row
MOVX A,@DPTR
CJNE A,#018H,?C0263
MOV A,hz_store_len?560
XRL A,#02H
JZ ?C0260
?C0263:
MOV DPTR,#HZResult_row
MOVX A,@DPTR
ADD A,#0FEH
MOVX @DPTR,A
?C0260:
LCALL L?0362
LCALL L?0309
MOV ?_DisAsc?BYTE+04H,A
LCALL _DisAsc
LCALL L?0363
LCALL L?0309
INC A
MOV ?_DisAsc?BYTE+04H,A
LCALL _DisAsc
DEC hz_store_len?560
?C0258:
MOV A,hz_store_len?560
ADD A,hz_store_len?560
MOV R7,A
LCALL L?0338
CLR A
MOVX @DPTR,A
MOV A,#LOW (Hz_Record+01H)
ADD A,R7
MOV DPL,A
CLR A
ADDC A,#HIGH (Hz_Record+01H)
MOV DPH,A
CLR A
MOVX @DPTR,A
SJMP ?C0065
?C0256:
MOV DPTR,#input_long
MOVX A,@DPTR
DEC A
MOVX @DPTR,A
MOV DPTR,#Col3_nextRow
MOVX A,@DPTR
DEC A
MOVX @DPTR,A
INC DPTR
LCALL L?0330
CLR A
MOVX @DPTR,A
LCALL L?0363
LCALL L?0369
?C0065:
MOV A,keyc
XRL A,#01BH
JZ ?C0066
MOV A,keyc
XRL A,#0DH
JZ $ + 5H
LJMP ?C0067
MOV A,hz_store_len?560
JNZ $ + 5H
LJMP ?C0067
?C0066:
LCALL cls
MOV A,keyc
CJNE A,#01BH,?C0267
MOV DPTR,#0212H
MOVX A,@DPTR
ORL A,#080H
MOVX @DPTR,A
?C0267:
RET
L?0310:
MOV DPTR,#g_sStrTemp
MOV A,#020H
MOVX @DPTR,A
INC DPTR
MOVX @DPTR,A
CLR A
MOV DPTR,#g_sStrTemp+016H
MOVX @DPTR,A
MOV R3,#01H
MOV R2,#HIGH (g_sStrTemp)
MOV R1,#LOW (g_sStrTemp)
MOV R5,#0BEH
LCALL _DisHzLinYm
MOV DPTR,#g_iXqHzCount
MOVX A,@DPTR
MOV R7,A
MOV B,#064H
DIV AB
MOV R6,A
ADD A,#030H
MOV g_sTemp?561,A
MOV A,R6
MOV B,#064H
MUL AB
MOV R6,A
CLR C
MOV A,R7
SUBB A,R6
MOV B,#0AH
DIV AB
ADD A,#030H
MOV g_sTemp?561+01H,A
MOVX A,@DPTR
MOV B,#0AH
DIV AB
MOV A,B
ADD A,#030H
MOV g_sTemp?561+02H,A
RET
L?0314:
MOV A,keyc
MOV B,#010H
MUL AB
MOV R3,#0FFH
ADD A,#LOW (PrnVAsc+0FE00H)
MOV R1,A
MOV A,#HIGH (PrnVAsc+0FE00H)
ADDC A,B
MOV R2,A
MOV DPTR,#Col3_nextRow
MOVX A,@DPTR
MOV ?_DisAsc?BYTE+04H,A
MOV R5,#0BCH
LCALL _DisAsc
RET
L?0315:
CLR A
MOV keyc,A
MOV R7,#0BEH
LCALL _ClsLin
MOV DPTR,#Col3_nextRow
MOV A,#012H
MOVX @DPTR,A
CLR A
INC DPTR
MOVX @DPTR,A
RET
L?0323:
MUL AB
MOV R3,#0FFH
ADD A,#LOW (PrnVAsc+0100H)
MOV R1,A
MOV A,#HIGH (PrnVAsc+0100H)
ADDC A,B
MOV R2,A
MOV DPTR,#Col3_nextRow
MOVX A,@DPTR
MOV ?_DisAsc?BYTE+04H,A
MOV R5,#0BCH
LCALL _DisAsc
RET
L?0336:
MOV R3,#01H
MOV R2,#HIGH (g_sStrTemp)
MOV R1,#LOW (g_sStrTemp)
MOV R5,#0BEH
LCALL _DisHzLinYm
RET
L?0354:
MOV R3,#0FFH
MOV R2,#HIGH (?SC_44)
MOV R1,#LOW (?SC_44)
MOV R5,#0BCH
LCALL _DisHzLinYm
RET
L?0356:
MOV R7,#0BEH
LCALL _ClsLin
MOV DPTR,#input_state
MOVX A,@DPTR
ADD A,#0F5H
RET
L?0369:
MOV DPTR,#Col3_nextRow
MOVX A,@DPTR
MOV ?_DisAsc?BYTE+04H,A
MOV R5,#0BCH
LCALL _DisAsc
RET
L?0370:
LCALL GetKey
MOV A,keyc
ADD A,#08BH
RET
L?0371:
MOV R3,#01H
MOV R2,#HIGH (g_sStrTemp)
MOV R1,#LOW (g_sStrTemp)
MOV R5,#0BEH
LCALL _DisHzLinYm
RET
END
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -