时钟.lst
来自「刚学时编的小程序」· LST 代码 · 共 780 行 · 第 1/3 页
LST
780 行
01EF F580 246 MOV P0,A
01F1 0201F4 247 LJMP NEXT2
248
01F4 0533 249 NEXT2: INC COUNT
01F6 E533 250 MOV A,COUNT
01F8 B4C82C 251 CJNE A,#200,LOOP1
01FB 753300 252 MOV COUNT,#00
01FE 301126 253 JNB WEI1,LOOP1
0201 201303 254 JB WEI3,LOOP
0204 020209 255 LJMP LOOP2
0207 11DF 256 LOOP: ACALL DISP2
A51 MACRO ASSEMBLER 蔩钟 04/26/2007 16:27:49 PAGE 5
0209 0530 257 LOOP2: INC SECOND
020B E530 258 MOV A,SECOND
020D B43C17 259 CJNE A,#60,LOOP1
0210 753000 260 MOV SECOND,#00
0213 0531 261 INC MINITE
0215 E531 262 MOV A,MINITE
0217 B43C0D 263 CJNE A,#60,LOOP1
021A 753100 264 MOV MINITE,#00
021D 0532 265 INC HOUR
021F E532 266 MOV A,HOUR
0221 B41803 267 CJNE A,#24,LOOP1
0224 753200 268 MOV HOUR,#00
0227 120097 269 LOOP1: LCALL DISP
022A D0E0 270 POP ACC
022C D0D0 271 POP PSW
022E 32 272 RETI
273
022F C211 274 TIAOSHI:CLR WEI1
0231 7B07 275 MOV R3,#7
0233 20900E 276 YI: JB P1.0,JIA
0236 3090FD 277 JNB P1.0,$
0239 BB0105 278 CJNE R3,#1,UU
023C 7B09 279 MOV R3,#9
023E 0202A7 280 LJMP EXIT
0241 1B 281 UU: DEC R3
0242 1B 282 DEC R3
0243 1B 283 DEC R3
284
0244 20912A 285 JIA: JB P1.1,JIAN
0247 3091FD 286 JNB P1.1,$
024A BB070A 287 CJNE R3,#7,JF
024D 0532 288 INC HOUR
024F E532 289 MOV A,HOUR
0251 B41803 290 CJNE A,#24,JF
0254 753200 291 MOV HOUR,#00
0257 BB040A 292 JF: CJNE R3,#4,JM
025A 0531 293 INC MINITE
025C E531 294 MOV A,MINITE
025E B43C03 295 CJNE A,#60,JM
0261 753100 296 MOV MINITE,#00
0264 BB010A 297 JM: CJNE R3,#1,JIAN
0267 0530 298 INC SECOND
0269 E530 299 MOV A,SECOND
026B B43C03 300 CJNE A,#60,JIAN
026E 753000 301 MOV SECOND,#00
0271 2092BF 302 JIAN: JB P1.2,YI
0274 3092FD 303 JNB P1.2,$
0277 BB070C 304 CJNE R3,#7,JF1
027A E532 305 MOV A,HOUR
027C B40005 306 CJNE A,#00,S1
027F 753217 307 MOV HOUR,#23
0282 4186 308 AJMP JF1
0284 1532 309 S1: DEC HOUR
0286 BB040C 310 JF1: CJNE R3,#4,JM1
0289 E531 311 MOV A,MINITE
028B B40005 312 CJNE A,#00,S2
028E 75313B 313 MOV MINITE,#59
0291 4195 314 AJMP JM1
0293 1531 315 S2: DEC MINITE
0295 BB019B 316 JM1: CJNE R3,#1,YI
0298 E530 317 MOV A,SECOND
029A B40005 318 CJNE A,#00,S3
029D 75303B 319 MOV SECOND,#59
02A0 4133 320 AJMP YI
02A2 1530 321 S3: DEC SECOND
02A4 020233 322 LJMP YI
A51 MACRO ASSEMBLER 蔩钟 04/26/2007 16:27:49 PAGE 6
323
02A7 D211 324 EXIT: SETB WEI1
02A9 22 325 RET
326
02AA 9004A5 327 CSHJ: MOV DPTR,#TABLE
02AD 7448 328 MOV A,#JIAGE
02AF 2407 329 ADD A,#7
02B1 F9 330 MOV R1,A
02B2 740C 331 MOV A,#12
02B4 F7 332 MOV @R1,A
02B5 19 333 DEC R1
02B6 7405 334 MOV A,#5
02B8 F7 335 MOV @R1,A
02B9 19 336 DEC R1
02BA 7414 337 MOV A,#20
02BC F7 338 MOV @R1,A
02BD 19 339 DEC R1
02BE 740B 340 MOV A,#11
02C0 F7 341 MOV @R1,A
02C1 19 342 DEC R1
02C2 7402 343 MOV A,#2
02C4 F7 344 MOV @R1,A
02C5 19 345 DEC R1
02C6 7414 346 MOV A,#20
02C8 F7 347 MOV @R1,A
02C9 19 348 DEC R1
02CA 7410 349 MOV A,#16
02CC F7 350 MOV @R1,A
02CD 19 351 DEC R1
02CE 7407 352 MOV A,#7
02D0 F7 353 MOV @R1,A
02D1 22 354 RET
355
02D2 D212 356 GAIJIA: SETB WEI2
02D4 7B08 357 MOV R3,#8
02D6 209015 358 GAI0: JB P1.0,GAI1
02D9 3090FD 359 JNB P1.0,$
02DC BB0003 360 CJNE R3,#0,YI2
02DF 020343 361 LJMP EXIT1
02E2 1B 362 YI2: DEC R3
02E3 BB0204 363 CJNE R3,#2,QWE
02E6 1B 364 DEC R3
02E7 0202EE 365 LJMP GAI1
02EA BB0501 366 QWE: CJNE R3,#5,GAI1
02ED 1B 367 DEC R3
02EE 209123 368 GAI1: JB P1.1,GAI2
02F1 3091FD 369 JNB P1.1,$
02F4 7448 370 MOV A,#JIAGE
02F6 2B 371 ADD A,R3
02F7 F9 372 MOV R1,A
02F8 E7 373 MOV A,@R1
02F9 75F00A 374 MOV B,#10
02FC 84 375 DIV AB
02FD F539 376 MOV UUU2,A
02FF E7 377 MOV A,@R1
0300 04 378 INC A
0301 F53A 379 MOV UUU3,A
0303 75F00A 380 MOV B,#10
0306 84 381 DIV AB
0307 B53905 382 CJNE A,UUU2,GAI3
030A A73A 383 MOV @R1,UUU3
030C 020314 384 LJMP GAI2
385
030F E53A 386 GAI3: MOV A,UUU3
0311 940A 387 SUBB A,#10
0313 F7 388 MOV @R1,A
A51 MACRO ASSEMBLER 蔩钟 04/26/2007 16:27:49 PAGE 7
0314 2092BF 389 GAI2: JB P1.2,GAI0
0317 3092FD 390 JNB P1.2,$
031A BB0803 391 CJNE R3,#8,GAI5
031D 020343 392 LJMP EXIT1
0320 7448 393 GAI5: MOV A,#JIAGE
0322 2B 394 ADD A,R3
0323 F9 395 MOV R1,A
0324 E7 396 MOV A,@R1
0325 75F00A 397 MOV B,#10
0328 84 398 DIV AB
0329 F539 399 MOV UUU2,A
032B E7 400 MOV A,@R1
032C 14 401 DEC A
032D F53A 402 MOV UUU3,A
032F 75F00A 403 MOV B,#10
0332 84 404 DIV AB
0333 B53905 405 CJNE A,UUU2,GAI4
0336 A73A 406 MOV @R1,UUU3
0338 020314 407 LJMP GAI2
033B E53A 408 GAI4: MOV A,UUU3
033D 240A 409 ADD A,#10
033F F7 410 MOV @R1,A
0340 0202D6 411 LJMP GAI0
0343 C212 412 EXIT1: CLR WEI2
0345 7B09 413 MOV R3,#9
0347 22 414 RET
415
0348 D213 416 JIJIA: SETB WEI3
034A D2AA 417 SETB EX1
034C C28A 418 CLR IT1
034E 209005 419 JI1: JB P1.0,JI5
0351 3090FD 420 JNB P1.0,$
0354 D219 421 SETB WEI9
0356 301911 422 JI5: JNB WEI9,JI2
0359 E571 423 MOV A,71H
035B 75F002 424 MOV B,#2
035E 84 425 DIV AB
035F E5F0 426 MOV A,B
0361 6005 427 JZ EE1
0363 C215 428 CLR WEI5
0365 02036A 429 LJMP JI2
0368 D215 430 EE1: SETB WEI5
036A 209105 431 JI2: JB P1.1,JI3
036D 3091FD 432 JNB P1.1,$
0370 B2AA 433 CPL EX1
434
0372 2092D9 435 JI3: JB P1.2,JI1
0375 3092FD 436 JNB P1.2,$
0378 201305 437 JB WEI3,EE0
037B C215 438 CLR WEI5
037D 020386 439 LJMP JI4
0380 C213 440 EE0: CLR WEI3
0382 C2AA 441 CLR EX1
0384 D215 442 SETB WEI5
0386 2092FD 443 JI4: JB P1.2,JI4
0389 3092FD 444 JNB P1.2,$
038C 2013F1 445 JB WEI3,EE0
038F C215 446 CLR WEI5
0391 C216 447 CLR WEI6
0393 C219 448 CLR WEI9
0395 1203D1 449 LCALL CSZJ
0398 1203A1 450 LCALL CSLC
039B 02039E 451 LJMP EXIT2
452
039E C213 453 EXIT2: CLR WEI3
03A0 22 454 RET
A51 MACRO ASSEMBLER 蔩钟 04/26/2007 16:27:49 PAGE 8
455
03A1 D2D4 456 CSLC: SETB RS1
03A3 D2D3 457 SETB RS0
03A5 9004A5 458 MOV DPTR,#TABLE
03A8 7470 459 MOV A,#LC
03AA 2407 460 ADD A,#7
03AC F9 461 MOV R1,A
03AD 7400 462 MOV A,#0
03AF F7 463 MOV @R1,A
03B0 19 464 DEC R1
03B1 740A 465 MOV A,#10
03B3 F7 466 MOV @R1,A
03B4 19 467 DEC R1
03B5 7400 468 MOV A,#0
03B7 F7 469 MOV @R1,A
03B8 19 470 DEC R1
03B9 7415 471 MOV A,#21
03BB F7 472 MOV @R1,A
03BC 19 473 DEC R1
03BD 7400 474 MOV A,#0
03BF F7 475 MOV @R1,A
03C0 19 476 DEC R1
03C1 740A 477 MOV A,#10
03C3 F7 478 MOV @R1,A
03C4 19 479 DEC R1
03C5 7400 480 MOV A,#0
03C7 F7 481 MOV @R1,A
03C8 19 482 DEC R1
03C9 7400 483 MOV A,#0
03CB F7 484 MOV @R1,A
03CC C2D4 485 CLR RS1
03CE C2D3 486 CLR RS0
03D0 22 487 RET
488
03D1 D2D4 489 CSZJ: SETB RS1
03D3 D2D3 490 SETB RS0
03D5 9004A5 491 MOV DPTR,#TABLE
03D8 7450 492 MOV A,#ZJ
03DA 2407 493 ADD A,#7
03DC F8 494 MOV R0,A
03DD 7400 495 MOV A,#0
03DF F6 496 MOV @R0,A
03E0 18 497 DEC R0
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?