📄 wl028.lst
字号:
0189 120145 220 lcall key3
018C 0F 221 INC R7 ;偏移数加1
018D B4FFE1 222 CJNE A,#0FFH,MOVE_UP1
0190 02016F 223 LJMP MOVE_UP
224
225 ;－－－－－－－－－－－－－－－－－－－－－－
226 ;调整此延时时间，可改变滚屏速度
227 ;－－－－－－－－－－－－－－－－－－－－－－
0193 228 DELAY1:
0193 7E60 229 MOV R6,#060H
0195 7D00 230 MOV R5,#00H
0197 00 231 DELAY2: NOP
0198 DDFD 232 DJNZ R5,DELAY2
019A DEFB 233 DJNZ R6,DELAY2
019C 22 234 RET
235
236 ;=========================================
237 ;清屏子程序
238 ;========================================
019D 239 CLEAR:
019D 7BB8 240 MOV R3,#0B8H
019F 8B20 241 MOV COM,R3
01A1 120222 242 LCALL WRITE_I
01A4 752040 243 MOV COM,#40H
01A7 120222 244 LCALL WRITE_I
01AA 7900 245 MOV R1,#00H
01AC 7A00 246 MOV R2,#00H
01AE 752100 247 CLEAR1: MOV DAT,#00H
01B1 120240 248 LCALL WRITE_D
01B4 09 249 INC R1
01B5 B940F6 250 CJNE R1,#40H,CLEAR1
01B8 7900 251 MOV R1,#00H
01BA 0A 252 INC R2
01BB 0B 253 INC R3
01BC 8B20 254 MOV COM,R3
01BE 120222 255 LCALL WRITE_I
01C1 752040 256 MOV COM,#40H
A51 MACRO ASSEMBLER WL028 08/19/2005 13:36:45 PAGE 5
01C4 120222 257 LCALL WRITE_I
01C7 BA08E4 258 CJNE R2,#08H,CLEAR1
01CA 22 259 RET
260
261 ;=========================================
262 ;16*16汉字显示的子程序
263 ;=========================================
01CB 264 HZSHOW:
01CB 8B20 265 MOV COM,R3
01CD 120222 266 LCALL WRITE_I
01D0 8C20 267 MOV COM,R4
01D2 120222 268 LCALL WRITE_I
01D5 7A20 269 MOV R2,#20H
01D7 7900 270 MOV R1,#00H
01D9 BA100B 271 LOOP: CJNE R2,#10H,LOOP1
01DC 0B 272 INC R3
01DD 8B20 273 MOV COM,R3
01DF 120222 274 LCALL WRITE_I
01E2 8C20 275 MOV COM,R4
01E4 120222 276 LCALL WRITE_I
01E7 E9 277 LOOP1: MOV A,R1
01E8 93 278 MOVC A,@A+DPTR
01E9 F521 279 MOV DAT,A
01EB 120240 280 LCALL WRITE_D
01EE 09 281 INC R1
01EF DAE8 282 DJNZ R2,LOOP
01F1 22 283 RET
284
285 ;==========================================
286 ;12*16英文显示的子程序
287 ;==========================================
01F2 288 YWSHOW:
01F2 8B20 289 MOV COM,R3
01F4 120222 290 LCALL WRITE_I
01F7 8C20 291 MOV COM,R4
01F9 120222 292 LCALL WRITE_I
01FC 7A18 293 MOV R2,#18H
01FE 7900 294 MOV R1,#00H
0200 BA0C0B 295 LOOP2: CJNE R2,#0CH,LOOP22
0203 0B 296 INC R3
0204 8B20 297 MOV COM,R3
0206 120222 298 LCALL WRITE_I
0209 8C20 299 MOV COM,R4
020B 120222 300 LCALL WRITE_I
020E E9 301 LOOP22: MOV A,R1
020F 93 302 MOVC A,@A+DPTR
0210 F521 303 MOV DAT,A
0212 120240 304 LCALL WRITE_D
0215 09 305 INC R1
0216 DAE8 306 DJNZ R2,LOOP2
0218 22 307 RET
308
309 ;=========================================
310 ;延时
311 ;=========================================
0219 312 DELLY:
0219 7FA8 313 MOV R7,#0A8H
021B 7EFF 314 MS2: MOV R6,#0FFH
021D DEFE 315 MS1: DJNZ R6,MS1
021F DFFA 316 DJNZ R7,MS2
0221 22 317 RET
318
319 ;==========================================
320 ;写指令子程序
321 ;==========================================
0222 322 WRITE_I:
A51 MACRO ASSEMBLER WL028 08/19/2005 13:36:45 PAGE 6
0222 F8 323 MOV R0,A
0223 C2A0 324 CLR D_I
0225 D2A1 325 SETB R_W
0227 326 WRITE_IA:
0227 7580FF 327 MOV P0,#0FFH
022A D2A2 328 SETB E
022C E580 329 MOV A,P0 ;读状态字
022E C2A2 330 CLR E
0230 20E7F4 331 JB ACC.7,WRITE_IA ;判“忙”标志是否为“0”
0233 C2A1 332 CLR R_W
0235 852080 333 MOV P0,COM ;写指令代码
0238 D2A2 334 SETB E
023A 00 335 NOP
023B 00 336 NOP
023C C2A2 337 CLR E
023E E8 338 MOV A,R0
023F 22 339 RET
340
341 ;=========================================
342 ;写数据子程序
343 ;=========================================
0240 344 WRITE_D:
0240 F8 345 MOV R0,A
0241 C2A0 346 CLR D_I
0243 D2A1 347 SETB R_W
0245 348 WRITE_DA:
0245 7580FF 349 MOV P0,#0FFH
0248 D2A2 350 SETB E
024A E580 351 MOV A,P0 ;读状态字
024C C2A2 352 CLR E
024E 20E7F4 353 JB ACC.7,WRITE_DA ;判“忙”标志是否为“0”
0251 D2A0 354 SETB D_I
0253 C2A1 355 CLR R_W
0255 852180 356 MOV P0,DAT ;写数据
0258 D2A2 357 SETB E
025A 00 358 NOP
025B 00 359 NOP
025C C2A2 360 CLR E
025E E8 361 MOV A,R0
025F 22 362 RET
363 ;-----------------------------------------------
364 ;蜂鸣器响一声子程序
365 ;-----------------------------------------------
0260 366 BEEP_BL:
0260 7E64 367 MOV R6,#100
0262 516D 368 BL1: CALL DEX1
0264 B2B7 369 CPL BEEP
0266 DEFA 370 DJNZ R6,BL1
0268 7D19 371 MOV R5,#25
026A 3197 372 CALL DELAY2
026C 22 373 RET
026D 7FB4 374 DEX1: MOV R7,#180
026F 00 375 DEX2: NOP
0270 DFFD 376 DJNZ R7,DEX2
0272 22 377 RET
0273 378 DELAY3: ;延时R5×10MS
0273 7E32 379 MOV R6,#50
0275 7F64 380 D1: MOV R7,#100
0277 DFFE 381 DJNZ R7,$
0279 DEFA 382 DJNZ R6,D1
027B DDF6 383 DJNZ R5,DELAY3
027D 22 384 RET
385
386
387
388 ;==================================================================================
A51 MACRO ASSEMBLER WL028 08/19/2005 13:36:45 PAGE 7
027E 389 HZ101:
390 ;-- 文字: 欢 --
391 ;-- 宋体12; 此字体下对应的点阵为：宽X高=16X16 --
027E 14244484 392 DB 014H,024H,044H,084H,064H,01CH,020H,018H,00FH,0E8H,008H,008H,028H,018H,008H,000H
0282 641C2018
0286 0FE80808
028A 28180800
028E 20104C43 393 DB 020H,010H,04CH,043H,043H,02CH,020H,010H,00CH,003H,006H,018H,030H,060H,020H,000H
0292 432C2010
0296 0C030618
029A 30602000
394
029E 395 HZ102:
396 ;-- 文字: 迎 --
397 ;-- 宋体12; 此字体下对应的点阵为：宽X高=16X16 --
029E 4041CE04 398 DB 040H,041H,0CEH,004H,000H,0FCH,004H,002H,002H,0FCH,004H,004H,004H,0FCH,000H,000H
02A2 00FC0402
02A6 02FC0404
02AA 04FC0000
02AE 40201F20 399 DB 040H,020H,01FH,020H,040H,047H,042H,041H,040H,05FH,040H,042H,044H,043H,040H,000H
02B2 40474241
02B6 405F4042
02BA 44434000
400
02BE 401 HZ103:
402 ;-- 文字: 使 --
403 ;-- 宋体12; 此字体下对应的点阵为：宽X高=16X16 --
02BE 4020F01C 404 DB 040H,020H,0F0H,01CH,007H,0F2H,094H,094H,094H,0FFH,094H,094H,094H,0F4H,004H,000H
02C2 07F29494
02C6 94FF9494
02CA 94F40400
02CE 00007F00 405 DB 000H,000H,07FH,000H,040H,041H,022H,014H,00CH,013H,010H,030H,020H,061H,020H,000H
02D2 40412214
02D6 0C131030
02DA 20612000
406
02DE 407 HZ104:
408 ;-- 文字: 用 --
409 ;-- 宋体12; 此字体下对应的点阵为：宽X高=16X16 --
02DE 000000FE 410 DB 000H,000H,000H,0FEH,022H,022H,022H,022H,0FEH,022H,022H,022H,022H,0FEH,000H,000H
02E2 22222222
02E6 FE222222
02EA 22FE0000
02EE 8040300F 411 DB 080H,040H,030H,00FH,002H,002H,002H,002H,0FFH,002H,002H,042H,082H,07FH,000H,000H
02F2 02020202
02F6 FF020242
02FA 827F0000
412
413 ;------------------------------------------------------------------------------------
02FE 414 ZM01:
415 ;-- 文字: M --
416 ;-- SYSTEM12; 此字体下对应的点阵为：宽X高=12X16 --
02FE 00F8F8E0 417 DB 000H,0F8H,0F8H,0E0H,080H,000H,000H,080H,0E0H,0F8H,0F8H,000H,000H,01FH,01FH,001H
0302 80000080
0306 E0F8F800
030A 001F1F01
030E 071E1E07 418 DB 007H,01EH,01EH,007H,001H,01FH,01FH,000H
0312 011F1F00
419
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -