📄 tfcl.lst
字号:
560 0402 53 PUSH BX
561 0403 B4 02 NORTH_2: MOV AH,02H
562 0405 8A 36 01DCr MOV DH,UPPER_ROW
563 0409 8A 16 01DDr MOV DL,UPPER_COL
564 040D B7 00 MOV BH,00H
565 040F CD 10 INT 10H
566 0411 83 F9 03 CMP CX,03H
567 0414 74 0A JZ NORTH_2_A1
568 0416 83 F9 02 CMP CX,02H
569 0419 74 22 JZ NORTH_2_A3
Turbo Assembler Version 4.1 06/01/12 16:00:27 Page 11
F:\工程文件\Fasm\TFCL.ASM
570 041B 83 F9 01 CMP CX,01H
571 041E 74 3A JZ NORTH_2_A2
572 0420 51 NORTH_2_A1: PUSH CX
573 0421 BF 0000s MOV DI,SEG DAT2
574 0424 8E C7 MOV ES,DI
575 0426 BD 003Ar MOV BP,OFFSET DAT2
576 0429 B0 00 MOV AL,00H
577 042B 8A 1E 01D9r MOV BL,WHITE
578 042F B4 13 MOV AH,13H
579 0431 B9 0001 MOV CX,01H
580 0434 CD 10 INT 10H
581 0436 FE 06 01DDr INC UPPER_COL
582 043A 59 POP CX
583 043B E2 C6 LOOP NORTH_2
584 043D 51 NORTH_2_A3: PUSH CX
585 043E BF 0000s MOV DI,SEG DAT2
586 0441 8E C7 MOV ES,DI
587 0443 BD 003Ar MOV BP,OFFSET DAT2
588 0446 B0 00 MOV AL,00H
589 0448 8A 1E 01DAr MOV BL,WHIT
590 044C B4 13 MOV AH,13H
591 044E B9 0001 MOV CX,01H
592 0451 CD 10 INT 10H
593 0453 FE 06 01DDr INC UPPER_COL
594 0457 59 POP CX
595 0458 E2 A9 LOOP NORTH_2
596 045A 51 NORTH_2_A2: PUSH CX
597 045B BF 0000s MOV DI,SEG DAT2
598 045E 8E C7 MOV ES,DI
599 0460 BD 003Ar MOV BP,OFFSET DAT2
600 0463 B0 00 MOV AL,00H
601 0465 8A 1E 01D8r MOV BL,GREEN
602 0469 B4 13 MOV AH,13H
603 046B B9 0001 MOV CX,01H
604 046E CD 10 INT 10H
605 0470 FE 06 01DDr INC UPPER_COL
606 0474 59 POP CX
607 0475 E2 00 LOOP R_N2
608 0477 5B R_N2: POP BX
609 0478 88 1E 01DDr MOV UPPER_COL ,BL
610 047C 5B POP BX
611 047D 88 1E 01DCr MOV UPPER_ROW ,BL
612 0481 C3 RET
613 0482 NORTH2 ENDP
614 ;************************************* 灯颜色和位置设置1
615 0482 SOUTH2 PROC NEAR
616 0482 8A 1E 01DEr MOV BL,UNDER_ROW
617 0486 53 PUSH BX
618 0487 8A 1E 01DFr MOV BL,UNDER_COL
619 048B 53 PUSH BX
620 048C B4 02 SOUTH_2: MOV AH,02H
621 048E 8A 36 01DEr MOV DH,UNDER_ROW
622 0492 8A 16 01DFr MOV DL,UNDER_COL
623 0496 B7 00 MOV BH,00H
624 0498 CD 10 INT 10H
625 049A 83 F9 03 CMP CX,03H
626 049D 74 0A JZ SOUTH_2_A1
Turbo Assembler Version 4.1 06/01/12 16:00:27 Page 12
F:\工程文件\Fasm\TFCL.ASM
627 049F 83 F9 02 CMP CX,02H
628 04A2 74 22 JZ SOUTH_2_A3
629 04A4 83 F9 01 CMP CX,01H
630 04A7 74 3A JZ SOUTH_2_A2
631 04A9 51 SOUTH_2_A1: PUSH CX
632 04AA BF 0000s MOV DI,SEG DAT2
633 04AD 8E C7 MOV ES,DI
634 04AF BD 003Ar MOV BP,OFFSET DAT2
635 04B2 B0 00 MOV AL,00H
636 04B4 8A 1E 01D9r MOV BL,WHITE
637 04B8 B4 13 MOV AH,13H
638 04BA B9 0001 MOV CX,01H
639 04BD CD 10 INT 10H
640 04BF FE 06 01DFr INC UNDER_COL
641 04C3 59 POP CX
642 04C4 E2 C6 LOOP SOUTH_2
643 04C6 51 SOUTH_2_A3: PUSH CX
644 04C7 BF 0000s MOV DI,SEG DAT2
645 04CA 8E C7 MOV ES,DI
646 04CC BD 003Ar MOV BP,OFFSET DAT2
647 04CF B0 00 MOV AL,00H
648 04D1 8A 1E 01DAr MOV BL,WHIT
649 04D5 B4 13 MOV AH,13H
650 04D7 B9 0001 MOV CX,01H
651 04DA CD 10 INT 10H
652 04DC FE 06 01DFr INC UNDER_COL
653 04E0 59 POP CX
654 04E1 E2 A9 LOOP SOUTH_2
655 04E3 51 SOUTH_2_A2: PUSH CX
656 04E4 BF 0000s MOV DI,SEG DAT2
657 04E7 8E C7 MOV ES,DI
658 04E9 BD 003Ar MOV BP,OFFSET DAT2
659 04EC B0 00 MOV AL,00H
660 04EE 8A 1E 01D8r MOV BL,GREEN
661 04F2 B4 13 MOV AH,13H
662 04F4 B9 0001 MOV CX,01H
663 04F7 CD 10 INT 10H
664 04F9 FE 06 01DFr INC UNDER_COL
665 04FD 59 POP CX
666 04FE E2 00 LOOP R_S2
667 0500 5B R_S2: POP BX
668 0501 88 1E 01DFr MOV UNDER_COL ,BL
669 0505 5B POP BX
670 0506 88 1E 01DEr MOV UNDER_ROW ,BL
671 050A C3 RET
672 050B SOUTH2 ENDP
673 ;************************************* WEST 2
674 050B WEST2 PROC NEAR
675 050B 8A 1E 01E0r MOV BL,LEFT_ROW
676 050F 53 PUSH BX
677 0510 8A 1E 01E1r MOV BL,LEFT_COL
678 0514 53 PUSH BX
679 0515 B4 02 WEST_2: MOV AH,02H
680 0517 8A 36 01E0r MOV DH,LEFT_ROW
681 051B 8A 16 01E1r MOV DL,LEFT_COL
682 051F B7 00 MOV BH,00H
683 0521 CD 10 INT 10H
Turbo Assembler Version 4.1 06/01/12 16:00:27 Page 13
F:\工程文件\Fasm\TFCL.ASM
684 0523 83 F9 03 CMP CX,03H
685 0526 74 0A JZ WEST_2_A1
686 0528 83 F9 02 CMP CX,02H
687 052B 74 22 JZ WEST_2_A3
688 052D 83 F9 01 CMP CX,01H
689 0530 74 3A JZ WEST_2_A2
690 0532 51 WEST_2_A1: PUSH CX
691 0533 BF 0000s MOV DI,SEG DAT2
692 0536 8E C7 MOV ES,DI
693 0538 BD 003Ar MOV BP,OFFSET DAT2
694 053B B0 00 MOV AL,00H
695 053D 8A 1E 01D7r MOV BL,RED
696 0541 B4 13 MOV AH,13H
697 0543 B9 0001 MOV CX,01H
698 0546 CD 10 INT 10H
699 0548 FE 06 01E1r INC LEFT_COL
700 054C 59 POP CX
701 054D E2 C6 LOOP WEST_2
702 054F 51 WEST_2_A3: PUSH CX
703 0550 BF 0000s MOV DI,SEG DAT2
704 0553 8E C7 MOV ES,DI
705 0555 BD 003Ar MOV BP,OFFSET DAT2
706 0558 B0 00 MOV AL,00H
707 055A 8A 1E 01DAr MOV BL,WHIT
708 055E B4 13 MOV AH,13H
709 0560 B9 0001 MOV CX,01H
710 0563 CD 10 INT 10H
711 0565 FE 06 01E1r INC LEFT_COL
712 0569 59 POP CX
713 056A E2 A9 LOOP WEST_2
714 056C 51 WEST_2_A2: PUSH CX
715 056D BF 0000s MOV DI,SEG DAT2
716 0570 8E C7 MOV ES,DI
717 0572 BD 003Ar MOV BP,OFFSET DAT2
718 0575 B0 00 MOV AL,00H
719 0577 8A 1E 01D9r MOV BL,WHITE
720 057B B4 13 MOV AH,13H
721 057D B9 0001 MOV CX,01H
722 0580 CD 10 INT 10H
723 0582 FE 06 01E1r INC LEFT_COL
724 0586 59 POP CX
725 0587 E2 00 LOOP R_W2
726 0589 5B R_W2: POP BX
727 058A 88 1E 01E1r MOV LEFT_COL,BL
728 058E 5B POP BX
729 058F 88 1E 01E0r MOV LEFT_ROW,BL
730 0593 C3 RET
731 0594 WEST2 ENDP
732 ;************************************* EAST 2
733 0594 EAST2 PROC NEAR
734 0594 8A 1E 01E2r MOV BL ,RIGHT_ROW
735 0598 53 PUSH BX
736 0599 8A 1E 01E3r MOV BL,RIGHT_COL
737 059D 53 PUSH BX
738 059E B4 02 EAST_2: MOV AH,02H
739 05A0 8A 36 01E2r MOV DH,RIGHT_ROW
740 05A4 8A 16 01E3r MOV DL,RIGHT_COL
Turbo Assembler Version 4.1 06/01/12 16:00:27 Page 14
F:\工程文件\Fasm\TFCL.ASM
741 05A8 B7 00 MOV BH,00H
742 05AA CD 10 INT 10H
743 05AC 83 F9 03 CMP CX,03H
744 05AF 74 0A JZ EAST_2_A1
745 05B1 83 F9 02 CMP CX,02H
746 05B4 74 22 JZ EAST_2_A3
747 05B6 83 F9 01 CMP CX,01H
748 05B9 74 3A JZ EAST_2_A2
749 05BB 51 EAST_2_A1: PUSH CX
750 05BC BF 0000s MOV DI,SEG DAT2
751 05BF 8E C7 MOV ES,DI
752 05C1 BD 003Ar MOV BP,OFFSET DAT2
753 05C4 B0 00 MOV AL,00H
754 05C6 8A 1E 01D7r MOV BL,RED
755 05CA B4 13 MOV AH,13H
756 05CC B9 0001 MOV CX,01H
757 05CF CD 10 INT 10H
758 05D1 FE 06 01E3r INC RIGHT_COL
759 05D5 59 POP CX
760 05D6 E2 C6 LOOP EAST_2
761 05D8 51 EAST_2_A3: PUSH CX
762 05D9 BF 0000s MOV DI,SEG DAT2
763 05DC 8E C7 MOV ES,DI
764 05DE BD 003Ar MOV BP,OFFSET DAT2
765 05E1 B0 00 MOV AL,00H
766 05E3 8A 1E 01DAr MOV BL,WHIT
767 05E7 B4 13 MOV AH,13H
768 05E9 B9 0001 MOV CX,01H
769 05EC CD 10 INT 10H
770 05EE FE 06 01E3r INC RIGHT_COL
771 05F2 59 POP CX
772 05F3 E2 A9 LOOP EAST_2
773 05F5 51 EAST_2_A2: PUSH CX
774 05F6 BF 0000s MOV DI,SEG DAT2
775 05F9 8E C7 MOV ES,DI
776 05FB BD 003Ar MOV BP,OFFSET DAT2
777 05FE B0 00 MOV AL,00H
778 0600 8A 1E 01D9r MOV BL,WHITE
779 0604 B4 13 MOV AH,13H
780 0606 B9 0001 MOV CX,01H
781 0609 CD 10 INT 10H
782 060B FE 06 01E3r INC RIGHT_COL
783 060F 59 POP CX
784 0610 E2 00 LOOP R_E2
785 0612 5B R_E2: POP BX
786 0613 88 1E 01E3r MOV RIGHT_COL,BL
787 0617 5B POP BX
788 0618 88 1E 01E2r MOV RIGHT_ROW ,BL
789 061C C3 RET
790 061D EAST2 ENDP
791 061D MOD2 ENDP
792 ;*********************************************
793 061D MOD3 PROC NEAR
794 061D B9 0003 MOV CX,03H
795 0620 E8 0016 CALL NORTH3
796 0623 B9 0003 MOV CX,03H
797 0626 E8 0099 CALL SOUTH3
Turbo Assembler Version 4.1 06/01/12 16:00:27 Page 15
F:\工程文件\Fasm\TFCL.ASM
798 0629 B9 0003 MOV CX,03H
799 062C E8 011C CALL WEST3
800 062F B9 0003 MOV CX,03H
801 0632 E8 019F CALL EAST3
802 0635 E8 0677 CALL DELAY3
803 0638 C3 RET
804 ;************************************* NORTH3
805 0639 NORTH3 PROC NEAR
806 0639 8A 1E 01DCr MOV BL,UPPER_ROW
807 063D 53 PUSH BX
808 063E 8A 1E 01DDr MOV BL,UPPER_COL
809 0642 53 PUSH BX
810 0643 B4 02 NORTH_3: MOV AH,02H
811 0645 8A 36 01DCr MOV DH,UPPER_ROW
812 0649 8A 16 01DDr MOV DL,UPPER_COL
813 064D B7 00 MOV BH,00H
814 064F CD 10 INT 10H
815 0651 83 F9 03 CMP CX,03H
816 0654 74 0A JZ NORTH_3_A1
817 0656 83 F9 02 CMP CX,02H
818 0659 74 22 JZ NORTH_3_A3
819 065B 83 F9 01 CMP CX,01H
820 065E 74 3A JZ NORTH_3_A2
821 0660 51 NORTH_3_A1: PUSH CX
822 0661 BF 0000s MOV DI,SEG DAT2
823 0664 8E C7 MOV ES,DI
824 0666 BD 003Ar MOV BP,OFFSET DAT2
825 0669 B0 00 MOV AL,00H
826 066B 8A 1E 01D9r MOV BL,WHITE
827 066F B4 13 MOV AH,13H
828 0671 B9 0001 MOV CX,01H
829 0674 CD 10 INT 10H
830 0676 FE 06 01DDr INC UPPER_COL
831 067A 59 POP CX
832 067B E2 C6 LOOP NORTH_3
833 067D 51 NORTH_3_A3: PUSH CX
834 067E BF 0000s MOV DI,SEG DAT2
835 0681 8E C7 MOV ES,DI
836 0683 BD 003Ar MOV BP,OFFSET DAT2
837 0686 B0 00 MOV AL,00H
838 0688 8A 1E 01DBr MOV BL,YELLOW
839 068C B4 13 MOV AH,13H
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -