📄 clock.lst
字号:
835B CD 8E1B jsr _Change
835E CD 900B jsr _Controle
8361 A6 72 ldA #114
8363 87 pshA
8364 A6 00 ldA #0
8366 87 pshA
8367 CD 87B1 jsr _Lcdshow
836A A7 02 aiS #2
836C B6 50 ldA *_k
836E AB 04 add #4
8370 87 pshA
8371 B6 4F ldA *_l
8373 AB 01 add #1
8375 87 pshA
8376 CD 8A0F jsr _LcdShowCursor
8379 A7 02 aiS #2
837B 95 tSX
837C 3F 51 clr *_Key
837E CC 8280 jmp 0x8280
8381 B6 51 ldA *_Key
8383 A1 32 cmp #50
8385 27 03 beq 0x838A
8387 CC 84E9 jmp 0x84E9
838A A6 01 ldA #1
838C 87 pshA
838D A6 0D ldA #13
838F 87 pshA
8390 AF 2C aiX #44
8392 89 pshX
8393 8B pshH
8394 CD 8780 jsr _LcdShowString
8397 A7 04 aiS #4
8399 95 tSX
839A A6 02 ldA #2
839C 87 pshA
839D A6 0E ldA #14
839F 87 pshA
83A0 AF 1D aiX #29
83A2 89 pshX
83A3 8B pshH
83A4 CD 8780 jsr _LcdShowString
83A7 A7 04 aiS #4
83A9 95 tSX
83AA 3F 51 clr *_Key
83AC B6 51 ldA *_Key
83AE A1 31 cmp #49
83B0 27 03 beq 0x83B5
83B2 CC 84E9 jmp 0x84E9
83B5 A6 01 ldA #1
83B7 B7 4E stA *_o
83B9 A6 5B ldA #91
83BB 87 pshA
83BC A6 00 ldA #0
83BE 87 pshA
83BF CD 87B1 jsr _Lcdshow
83C2 A7 02 aiS #2
83C4 A6 05 ldA #5
83C6 87 pshA
83C7 A6 02 ldA #2
83C9 87 pshA
83CA CD 8A0F jsr _LcdShowCursor
83CD A7 02 aiS #2
83CF 95 tSX
83D0 A6 01 ldA #1
83D2 B7 50 stA *_k
83D4 A6 01 ldA #1
83D6 B7 4F stA *_l
83D8 3F 51 clr *_Key
83DA CC 84DA jmp 0x84DA
83DD B6 51 ldA *_Key
83DF A1 23 cmp #35
83E1 26 60 bne 0x8443
83E3 3C 50 inc *_k
83E5 B6 4F ldA *_l
83E7 AE 02 ldX #2
83E9 8C clrH
83EA 52 div
83EB 8B pshH
83EC 86 pulA
83ED 95 tSX
83EE 4D tstA
83EF 26 28 bne 0x8419
83F1 B6 50 ldA *_k
83F3 A1 04 cmp #4
83F5 27 06 beq 0x83FD
83F7 B6 50 ldA *_k
83F9 A1 07 cmp #7
83FB 26 02 bne 0x83FF
83FD 3C 50 inc *_k
83FF B6 50 ldA *_k
8401 A1 09 cmp #9
8403 23 02 bls 0x8407
8405 3F 50 clr *_k
8407 B6 50 ldA *_k
8409 AB 04 add #4
840B 87 pshA
840C B6 4F ldA *_l
840E AB 01 add #1
8410 87 pshA
8411 CD 8A0F jsr _LcdShowCursor
8414 A7 02 aiS #2
8416 95 tSX
8417 20 28 bra 0x8441
8419 B6 50 ldA *_k
841B A1 03 cmp #3
841D 27 06 beq 0x8425
841F B6 50 ldA *_k
8421 A1 06 cmp #6
8423 26 02 bne 0x8427
8425 3C 50 inc *_k
8427 B6 50 ldA *_k
8429 A1 08 cmp #8
842B 23 04 bls 0x8431
842D A6 01 ldA #1
842F B7 50 stA *_k
8431 B6 50 ldA *_k
8433 AB 04 add #4
8435 87 pshA
8436 B6 4F ldA *_l
8438 AB 01 add #1
843A 87 pshA
843B CD 8A0F jsr _LcdShowCursor
843E A7 02 aiS #2
8440 95 tSX
8441 3F 51 clr *_Key
8443 B6 51 ldA *_Key
8445 A1 2A cmp #42
8447 26 2A bne 0x8473
8449 3C 4F inc *_l
844B B6 50 ldA *_k
844D 26 02 bne 0x8451
844F 3C 50 inc *_k
8451 B6 50 ldA *_k
8453 A1 09 cmp #9
8455 26 02 bne 0x8459
8457 3A 50 dec *_k
8459 B6 4F ldA *_l
845B A1 01 cmp #1
845D 23 02 bls 0x8461
845F 3F 4F clr *_l
8461 B6 50 ldA *_k
8463 AB 04 add #4
8465 87 pshA
8466 B6 4F ldA *_l
8468 AB 01 add #1
846A 87 pshA
846B CD 8A0F jsr _LcdShowCursor
846E A7 02 aiS #2
8470 95 tSX
8471 3F 51 clr *_Key
8473 B6 51 ldA *_Key
8475 A1 42 cmp #66
8477 26 05 bne 0x847E
8479 3F 51 clr *_Key
847B CC 8225 jmp 0x8225
847E B6 51 ldA *_Key
8480 A1 44 cmp #68
8482 26 04 bne 0x8488
8484 3F 51 clr *_Key
8486 20 64 bra 0x84EC
8488 B6 51 ldA *_Key
848A 27 4E beq 0x84DA
848C B6 51 ldA *_Key
848E 87 pshA
848F CD 8BFA jsr _Discriminant
8492 A7 01 aiS #1
8494 95 tSX
8495 B7 41 stA *__r1
8497 27 41 beq 0x84DA
8499 B6 51 ldA *_Key
849B A0 30 sub #48
849D E7 3B stA 59,X
849F B6 50 ldA *_k
84A1 AB 04 add #4
84A3 87 pshA
84A4 B6 4F ldA *_l
84A6 AB 01 add #1
84A8 87 pshA
84A9 A6 5B ldA #91
84AB 87 pshA
84AC A6 00 ldA #0
84AE 87 pshA
84AF E6 3B ldA 59,X
84B1 87 pshA
84B2 CD 8A38 jsr _Transmission
84B5 A7 05 aiS #5
84B7 CD 8F13 jsr _Change2
84BA CD 9159 jsr _Controle2
84BD A6 5B ldA #91
84BF 87 pshA
84C0 A6 00 ldA #0
84C2 87 pshA
84C3 CD 87B1 jsr _Lcdshow
84C6 A7 02 aiS #2
84C8 B6 50 ldA *_k
84CA AB 04 add #4
84CC 87 pshA
84CD B6 4F ldA *_l
84CF AB 01 add #1
84D1 87 pshA
84D2 CD 8A0F jsr _LcdShowCursor
84D5 A7 02 aiS #2
84D7 95 tSX
84D8 3F 51 clr *_Key
84DA CC 83DD jmp 0x83DD
84DD B6 51 ldA *_Key
84DF A1 32 cmp #50
84E1 26 06 bne 0x84E9
84E3 3F 4E clr *_o
84E5 3F 51 clr *_Key
84E7 20 03 bra 0x84EC
84E9 CC 8248 jmp 0x8248
84EC CC 817B jmp 0x817B
84EF A7 3C aiS #60
84F1 81 rts
_isrTIMER1:
84F2 8B pshH
84F3 B6 40 ldA *__r0
84F5 87 pshA
84F6 B6 41 ldA *__r1
84F8 87 pshA
84F9 B6 42 ldA *__r2
84FB 87 pshA
84FC B6 43 ldA *__r3
84FE 87 pshA
84FF B6 44 ldA *__r4
8501 87 pshA
8502 B6 45 ldA *__r5
8504 87 pshA
8505 B6 46 ldA *__r6
8507 87 pshA
8508 B6 47 ldA *__r7
850A 87 pshA
850B B6 48 ldA *__r8
850D 87 pshA
850E B6 49 ldA *__r9
8510 87 pshA
8511 B6 4A ldA *__r10
8513 87 pshA
8514 B6 4B ldA *__r11
8516 87 pshA
8517 B6 4C ldA *__rhi
8519 87 pshA
851A B6 4D ldA *__rlo
851C 87 pshA
851D A7 FF aiS #-1
851F 95 tSX
8520 9B seI
8521 3C 6B inc *_Ttime+2
8523 B6 6B ldA *_Ttime+2
8525 A1 3C cmp #60
8527 27 03 beq 0x852C
8529 CC 8673 jmp 0x8673
852C 3F 6B clr *_Ttime+2
852E 3C 6A inc *_Ttime+1
8530 B6 6A ldA *_Ttime+1
8532 A1 3C cmp #60
8534 27 03 beq 0x8539
8536 CC 8673 jmp 0x8673
8539 3F 6A clr *_Ttime+1
853B 3C 69 inc *_Ttime
853D B6 69 ldA *_Ttime
853F A1 18 cmp #24
8541 27 03 beq 0x8546
8543 CC 8673 jmp 0x8673
8546 3F 69 clr *_Ttime
8548 55 70 ldHX 0x70
854A AF 01 aiX #1
854C 35 70 stHX 0x70
854E 55 6E ldHX *_Tdate+2
8550 65 0001 cpHX #0x0001
8553 95 tSX
8554 27 30 beq 0x8586
8556 55 6E ldHX *_Tdate+2
8558 65 0003 cpHX #0x0003
855B 95 tSX
855C 27 28 beq 0x8586
855E 55 6E ldHX *_Tdate+2
8560 65 0005 cpHX #0x0005
8563 95 tSX
8564 27 20 beq 0x8586
8566 55 6E ldHX *_Tdate+2
8568 65 0007 cpHX #0x0007
856B 95 tSX
856C 27 18 beq 0x8586
856E 55 6E ldHX *_Tdate+2
8570 65 0008 cpHX #0x0008
8573 95 tSX
8574 27 10 beq 0x8586
8576 55 6E ldHX *_Tdate+2
8578 65 000A cpHX #0x000A
857B 95 tSX
857C 27 08 beq 0x8586
857E 55 6E ldHX *_Tdate+2
8580 65 000C cpHX #0x000C
8583 95 tSX
8584 26 16 bne 0x859C
8586 55 70 ldHX 0x70
8588 65 001F cpHX #0x001F
858B 95 tSX
858C 92 03 bgt 0x8591
858E CC 8673 jmp 0x8673
8591 3F 71 clr 0x71
8593 3F 70 clr 0x70
8595 55 6E ldHX *_Tdate+2
8597 AF 01 aiX #1
8599 35 6E stHX *_Tdate+2
859B 95 tSX
859C 55 6E ldHX *_Tdate+2
859E 65 0002 cpHX #0x0002
85A1 95 tSX
85A2 26 70 bne 0x8614
85A4 B6 6D ldA *_Tdate+1
85A6 B7 4D stA *__rlo
85A8 B6 6C ldA *_Tdate
85AA B7 4C stA *__rhi
85AC A6 04 ldA #4
85AE 87 pshA
85AF 4F clrA
85B0 87 pshA
85B1 CD 9388 jsr __divmod16s
85B4 86 pulA
85B5 B7 40 stA *__r0
85B7 86 pulA
85B8 B7 41 stA *__r1
85BA 55 40 ldHX *__r0
85BC 65 0000 cpHX #0x0000
85BF 95 tSX
85C0 26 1E bne 0x85E0
85C2 B6 6D ldA *_Tdate+1
85C4 B7 4D stA *__rlo
85C6 B6 6C ldA *_Tdate
85C8 B7 4C stA *__rhi
85CA A6 64 ldA #100
85CC 87 pshA
85CD 4F clrA
85CE 87 pshA
85CF CD 9388 jsr __divmod16s
85D2 86 pulA
85D3 B7 40 stA *__r0
85D5 86 pulA
85D6 B7 41 stA *__r1
85D8 55 40 ldHX *__r0
85DA 65 0000 cpHX #0x0000
85DD 95 tSX
85DE 26 1F bne 0x85FF
85E0 B6 6D ldA *_Tdate+1
85E2 B7 4D stA *__rlo
85E4 B6 6C ldA *_Tdate
85E6 B7 4C stA *__rhi
85E8 A6 90 ldA #-112
85EA 87 pshA
85EB A6 01 ldA #1
85ED 87 pshA
85EE CD 9388 jsr __divmod16s
85F1 86 pulA
85F2 B7 40 stA *__r0
85F4 86 pulA
85F5 B7 41 stA *__r1
85F7 55 40 ldHX *__r0
85F9 65 0000 cpHX #0x0000
85FC 95 tSX
85FD 26 15 bne 0x8614
85FF 55 70 ldHX 0x70
8601 65 001D cpHX #0x001D
8604 95 tSX
8605 92 02 bgt 0x8609
8607 20 6A bra 0x8673
8609 3F 71 clr 0x71
860B 3F 70 clr 0x70
860D 55 6E ldHX *_Tdate+2
860F AF 01 aiX #1
8611 35 6E stHX *_Tdate+2
8613 95 tSX
8614 55 6E ldHX *_Tdate+2
8616 65 0002 cpHX #0x0002
8619 95 tSX
861A 27 20 beq 0x863C
861C 55 6E ldHX *_Tdate+2
861E 65 0004 cpHX #0x0004
8621 95 tSX
8622 27 18 beq 0x863C
8624 55 6E ldHX *_Tdate+2
8626 65 0006 cpHX #0x0006
8629 95 tSX
862A 27 10 beq 0x863C
862C 55 6E ldHX *_Tdate+2
862E 65 0009 cpHX #0x0009
8631 95 tSX
8632 27 08 beq 0x863C
8634 55 6E ldHX *_Tdate+2
8636 65 000B cpHX #0x000B
8639 95 tSX
863A 26 15 bne 0x8651
863C 55 70 ldHX 0x70
863E 65 001E cpHX #0x001E
8641 95 tSX
8642 92 02 bgt 0x8646
8644 20 2D bra 0x8673
8646 3F 71 clr 0x71
8648 3F 70 clr 0x70
864A 55 6E ldHX *_Tdate+2
864C AF 01 aiX #1
864E 35 6E stHX *_Tdate+2
8650 95 tSX
8651 55 6E ldHX *_Tdate+2
8653 65 000C cpHX #0x000C
8656 95 tSX
8657 92 02 bgt 0x865B
8659 20 18 bra 0x8673
865B 3F 6F clr *_Tdate+3
865D 3F 6E clr *_Tdate+2
865F 55 6C ldHX *_Tdate
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -