📄 text1.lst
字号:
0167 93 274 MOVC A,@A+DPTR
0168 F531 275 MOV BUF+1,A
276 ; SHOW MIN...............
016A E535 277 MOV A,MIN
016C 75F00A 278 MOV B,#10
016F 84 279 DIV AB
280
0170 9000A4 281 MOV DPTR, #TABLE
0173 93 282 MOVC A,@A+DPTR
0174 F532 283 MOV BUF+2,A
284
0176 E5F0 285 MOV A,B
0178 93 286 MOVC A,@A+DPTR
0179 F533 287 MOV BUF+3,A
017B 22 288 RET
289 ;-------------------------------------
290 ; K2:HH K3:MM K4:OK
017C 291 SET_TIME:
017C C28C 292 CLR TR0
017E 753600 293 MOV SEC,#0
294 ; SCAN 3 KEY TO ADJ............
0181 295 L0:
0181 11B4 296 CALL SCAN1
0183 209510 297 JB K2,L1
298 ; K1 KEYED ADJ HH......
0186 0534 299 INC HOUR
0188 E534 300 MOV A, HOUR
018A B41803 301 CJNE A,#24,L11
018D 753400 302 MOV HOUR,#0
0190 303 L11:
0190 3159 304 CALL CONV
0192 31B4 305 CALL SCANS ; DELAY
0194 80EB 306 JMP L0
307
308 ;....................
0196 209610 309 L1: JB K3,L2
310 ; K2 KEYED ADJ MM.......
0199 0535 311 INC MIN
A51 MACRO ASSEMBLER TEXT1 11/11/2006 20:02:32 PAGE 6
019B E535 312 MOV A, MIN
019D B43C03 313 CJNE A,#60,L21
01A0 753500 314 MOV MIN,#0
01A3 315 L21:
01A3 3159 316 CALL CONV
01A5 31B4 317 CALL SCANS ; DELAY
01A7 80D8 318 JMP L0
319
320 ;.....................
01A9 2097D5 321 L2: JB K4,L0
01AC 3097FD 322 JNB K4,$
323 ; K3 KEYED OK ..........
01AF 1199 324 CALL LED_BL
01B1 D28C 325 SETB TR0
01B3 22 326 RET
327 ;-----------------------------------------------
01B4 328 SCANS:
01B4 7C37 329 MOV R4,#55 ;15
01B6 11B4 330 SS: CALL SCAN1
01B8 DCFC 331 DJNZ R4,SS
01BA 22 332 RET
333 ;---------------------------------------------------------------------------
01BB 334 BZ:
01BB 7E00 335 MOV R6,#0
01BD 31C8 336 B1: CALL DEX
01BF B283 337 CPL SPK
01C1 DEFA 338 DJNZ R6,B1
339
01C3 7D0A 340 MOV R5,#10
01C5 1183 341 CALL DELAY
01C7 22 342 RET
343 ;--------------------
01C8 7FB4 344 DEX: MOV R7,#180
01CA 00 345 DE1: NOP
01CB DFFD 346 DJNZ R7,DE1
01CD 22 347 RET
348 ;---------------------------------------------
01CE 349 TIME_OUT:
01CE D281 350 SETB RY1
351
01D0 1199 352 X1: CALL LED_BL
01D2 31BB 353 CALL BZ
354 ; KEY 4 STOP...........
01D4 2097F9 355 JB K4,X1
01D7 3097FD 356 JNB K4,$
01DA 1199 357 CALL LED_BL
01DC C200 358 CLR ALB
01DE C281 359 CLR RY1
01E0 22 360 RET
361 ;--------------------------
01E1 362 LOOK_ATIME:
01E1 31EE 363 CALL CONVA ; SET ALARM DATA
364
01E3 75F000 365 MOV B,#0
01E6 11B4 366 LO1: CALL SCAN1 ; SCAN 7 SEG
01E8 D5F0FB 367 DJNZ B,LO1
368
01EB 3159 369 CALL CONV
01ED 22 370 RET
371 ;--------------------------
372 ; 7 SEG HH:MM
373 ; CONVERT ALARM DATA
374 ; BUF0 | BUF1 | BUF2 | BUF3
01EE 375 CONVA:
376 ; SHOW HOUR..............
01EE E539 377 MOV A,HH
A51 MACRO ASSEMBLER TEXT1 11/11/2006 20:02:32 PAGE 7
01F0 75F00A 378 MOV B,#10
01F3 84 379 DIV AB
380
01F4 9000A4 381 MOV DPTR, #TABLE
01F7 93 382 MOVC A,@A+DPTR
01F8 F530 383 MOV BUF,A
384
01FA E5F0 385 MOV A,B
01FC 93 386 MOVC A,@A+DPTR
01FD F531 387 MOV BUF+1,A
388 ; SHOW MIN...............
01FF E53A 389 MOV A,MM
0201 75F00A 390 MOV B,#10
0204 84 391 DIV AB
392
0205 9000A4 393 MOV DPTR, #TABLE
0208 93 394 MOVC A,@A+DPTR
0209 F532 395 MOV BUF+2,A
396
020B E5F0 397 MOV A,B
020D 93 398 MOVC A,@A+DPTR
020E F533 399 MOV BUF+3,A
0210 22 400 RET
401 ;-------------------------------------
402 ; SET ALARM TIME
0211 403 SET_ATIME:
404 ; K2:HH K3:MM K4:OK
405
0211 31EE 406 CALL CONVA ; SHOW NOW ALARM TIME
407 ; SCAN 3 KEY TO ADJ............
0213 408 N0:
0213 11B4 409 CALL SCAN1
0215 209510 410 JB K2,N1
411 ; K2 KEYED ADJ HH......
0218 0539 412 INC HH
021A E539 413 MOV A, HH
021C B41803 414 CJNE A,#24,N11
021F 753900 415 MOV HH,#0
0222 416 N11:
0222 31EE 417 CALL CONVA
0224 31B4 418 CALL SCANS ; DELAY
0226 80EB 419 JMP N0
420
421 ;....................
0228 209610 422 N1: JB K3,N2
423 ; K3 KEYED ADJ MM.......
022B 053A 424 INC MM
022D E53A 425 MOV A, MM
022F B43C03 426 CJNE A,#60,N21
0232 753A00 427 MOV MM,#0
0235 428 N21:
0235 31EE 429 CALL CONVA
0237 31B4 430 CALL SCANS ; DELAY
0239 80D8 431 JMP N0
432
433 ;.....................
023B 2097D5 434 N2: JB K4,N0
023E 3097FD 435 JNB K4,$
436 ; K4 KEYED OK ..........
0241 1199 437 CALL LED_BL
0243 3159 438 CALL CONV ; SHOW NOW ALARM TIME
0245 22 439 RET
440 ;-----------------------------------------------
441 ; UPDATE MIN,SEC
0246 442 TIME_PRO:
0246 E536 443 MOV A,SEC
A51 MACRO ASSEMBLER TEXT1 11/11/2006 20:02:32 PAGE 8
0248 8538F0 444 MOV B,SEC0
024B B5F002 445 CJNE A,B,TI1 ; TIME CHANGE
024E 8005 446 JMP TI2
0250 3159 447 TI1: CALL CONV ; CONV. TO ASCII SHOW TO 7SEG
0252 853638 448 MOV SEC0,SEC
0255 449 TI2:
450 ; CHECK ALARM ON/OFF............
0255 200001 451 JB ALB,TI3
0258 22 452 RET
0259 453 TI3:
454 ; CHECK ALARM.................
0259 E534 455 MOV A,HOUR
025B 8539F0 456 MOV B,HH
025E B5F00A 457 CJNE A,B,BK
458
0261 E535 459 MOV A,MIN
0263 853AF0 460 MOV B,MM
0266 B5F002 461 CJNE A,B,BK
462 ; TIME MATCH....................
0269 31CE 463 CALL TIME_OUT
026B 464 BK:
026B 22 465 RET
466 ;----------------------------------------------
467 END
A51 MACRO ASSEMBLER TEXT1 11/11/2006 20:02:32 PAGE 9
SYMBOL TABLE LISTING
------ ----- -------
N A M E T Y P E V A L U E ATTRIBUTES
ACC. . . . . . . . D ADDR 00E0H A
ALB. . . . . . . . B ADDR 0020H.0 A
B. . . . . . . . . D ADDR 00F0H A
B1 . . . . . . . . C ADDR 01BDH A
BEGIN. . . . . . . C ADDR 000DH A
BK . . . . . . . . C ADDR 026BH A
BUF. . . . . . . . N NUMB 0030H A
BZ . . . . . . . . C ADDR 01BBH A
CO . . . . . . . . N NUMB 00C8H A
CONV . . . . . . . C ADDR 0159H A
CONV1. . . . . . . C ADDR 0136H A
CONVA. . . . . . . C ADDR 01EEH A
D1 . . . . . . . . C ADDR 0085H A
D2 . . . . . . . . C ADDR 0090H A
DE1. . . . . . . . C ADDR 01CAH A
DEDA . . . . . . . N NUMB 0037H A
DELAY. . . . . . . C ADDR 0083H A
DELAY1 . . . . . . C ADDR 008EH A
DEX. . . . . . . . C ADDR 01C8H A
HH . . . . . . . . N NUMB 0039H A
HI . . . . . . . . N NUMB 0063H A
HOUR . . . . . . . N NUMB 0034H A
IE . . . . . . . . D ADDR 00A8H A
INIT . . . . . . . C ADDR 00DCH A
INIT_TIMER . . . . C ADDR 00ECH A
K1 . . . . . . . . B ADDR 0090H.4 A
K2 . . . . . . . . B ADDR 0090H.5 A
K3 . . . . . . . . B ADDR 0090H.6 A
K4 . . . . . . . . B ADDR 0090H.7 A
L0 . . . . . . . . C ADDR 0181H A
L1 . . . . . . . . C ADDR 0196H A
L11. . . . . . . . C ADDR 0190H A
L2 . . . . . . . . C ADDR 01A9H A
L21. . . . . . . . C ADDR 01A3H A
LE1. . . . . . . . C ADDR 009BH A
LED_BL . . . . . . C ADDR 0099H A
LO . . . . . . . . N NUMB 0021H A
LO1. . . . . . . . C ADDR 01E6H A
LOAD_DATA. . . . . C ADDR 00CFH A
LOOK_ATIME . . . . C ADDR 01E1H A
LOOP . . . . . . . C ADDR 0029H A
M1 . . . . . . . . C ADDR 0036H A
M2 . . . . . . . . C ADDR 003FH A
M3 . . . . . . . . C ADDR 004AH A
M31. . . . . . . . C ADDR 005AH A
M4 . . . . . . . . C ADDR 005EH A
MIN. . . . . . . . N NUMB 0035H A
MM . . . . . . . . N NUMB 003AH A
N0 . . . . . . . . C ADDR 0213H A
N1 . . . . . . . . C ADDR 0228H A
N11. . . . . . . . C ADDR 0222H A
N2 . . . . . . . . C ADDR 023BH A
N21. . . . . . . . C ADDR 0235H A
P0 . . . . . . . . D ADDR 0080H A
P1 . . . . . . . . D ADDR 0090H A
P2 . . . . . . . . D ADDR 00A0H A
P3 . . . . . . . . D ADDR 00B0H A
RY1. . . . . . . . B ADDR 0080H.1 A
RY2. . . . . . . . B ADDR 0080H.2 A
S1 . . . . . . . . C ADDR 00BBH A
A51 MACRO ASSEMBLER TEXT1 11/11/2006 20:02:32 PAGE 10
SCAN1. . . . . . . C ADDR 00B4H A
SCANS. . . . . . . C ADDR 01B4H A
SEC. . . . . . . . N NUMB 0036H A
SEC0 . . . . . . . N NUMB 0038H A
SET_ATIME. . . . . C ADDR 0211H A
SET_TIME . . . . . C ADDR 017CH A
SPK. . . . . . . . B ADDR 0080H.3 A
SS . . . . . . . . C ADDR 01B6H A
T0_INT . . . . . . C ADDR 00FBH A
TABLE. . . . . . . C ADDR 00A4H A
TH0. . . . . . . . D ADDR 008CH A
TI1. . . . . . . . C ADDR 0250H A
TI2. . . . . . . . C ADDR 0255H A
TI3. . . . . . . . C ADDR 0259H A
TIME_OUT . . . . . C ADDR 01CEH A
TIME_PRO . . . . . C ADDR 0246H A
TITLE. . . . . . . C ADDR 0060H A
TL0. . . . . . . . D ADDR 008AH A
TMOD . . . . . . . D ADDR 0089H A
TR0. . . . . . . . B ADDR 0088H.4 A
TT1. . . . . . . . C ADDR 0133H A
WLED . . . . . . . B ADDR 0080H.0 A
X1 . . . . . . . . C ADDR 01D0H A
REGISTER BANK(S) USED: 0
ASSEMBLY COMPLETE. 0 WARNING(S), 0 ERROR(S)
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -