📄 tfcl.lst
字号:
840 068E B9 0001 MOV CX,01H
841 0691 CD 10 INT 10H
842 0693 FE 06 01DDr INC UPPER_COL
843 0697 59 POP CX
844 0698 E2 A9 LOOP NORTH_3
845 069A 51 NORTH_3_A2: PUSH CX
846 069B BF 0000s MOV DI,SEG DAT2
847 069E 8E C7 MOV ES,DI
848 06A0 BD 003Ar MOV BP,OFFSET DAT2
849 06A3 B0 00 MOV AL,00H
850 06A5 8A 1E 01D9r MOV BL,WHITE
851 06A9 B4 13 MOV AH,13H
852 06AB B9 0001 MOV CX,01H
853 06AE CD 10 INT 10H
854 06B0 FE 06 01DDr INC UPPER_COL
Turbo Assembler Version 4.1 06/01/12 16:00:27 Page 16
F:\工程文件\Fasm\TFCL.ASM
855 06B4 59 POP CX
856 06B5 E2 00 LOOP R_N3
857 06B7 5B R_N3: POP BX
858 06B8 88 1E 01DDr MOV UPPER_COL,BL
859 06BC 5B POP BX
860 06BD 88 1E 01DCr MOV UPPER_ROW,BL
861 06C1 C3 RET
862 06C2 NORTH3 ENDP
863 ;************************************* SOUTH 3
864 06C2 SOUTH3 PROC NEAR
865 06C2 8A 1E 01DEr MOV BL,UNDER_ROW
866 06C6 53 PUSH BX
867 06C7 8A 1E 01DFr MOV BL,UNDER_COL
868 06CB 53 PUSH BX
869 06CC B4 02 SOUTH_3: MOV AH,02H
870 06CE 8A 36 01DEr MOV DH,UNDER_ROW
871 06D2 8A 16 01DFr MOV DL,UNDER_COL
872 06D6 B7 00 MOV BH,00H
873 06D8 CD 10 INT 10H
874 06DA 83 F9 03 CMP CX,03H
875 06DD 74 0A JZ SOUTH_3_A1
876 06DF 83 F9 02 CMP CX,02H
877 06E2 74 22 JZ SOUTH_3_A3
878 06E4 83 F9 01 CMP CX,01H
879 06E7 74 3A JZ SOUTH_3_A2
880 06E9 51 SOUTH_3_A1: PUSH CX
881 06EA BF 0000s MOV DI,SEG DAT2
882 06ED 8E C7 MOV ES,DI
883 06EF BD 003Ar MOV BP,OFFSET DAT2
884 06F2 B0 00 MOV AL,00H
885 06F4 8A 1E 01D9r MOV BL,WHITE
886 06F8 B4 13 MOV AH,13H
887 06FA B9 0001 MOV CX,01H
888 06FD CD 10 INT 10H
889 06FF FE 06 01DFr INC UNDER_COL
890 0703 59 POP CX
891 0704 E2 C6 LOOP SOUTH_3
892 0706 51 SOUTH_3_A3: PUSH CX
893 0707 BF 0000s MOV DI,SEG DAT2
894 070A 8E C7 MOV ES,DI
895 070C BD 003Ar MOV BP,OFFSET DAT2
896 070F B0 00 MOV AL,00H
897 0711 8A 1E 01DBr MOV BL,YELLOW
898 0715 B4 13 MOV AH,13H
899 0717 B9 0001 MOV CX,01H
900 071A CD 10 INT 10H
901 071C FE 06 01DFr INC UNDER_COL
902 0720 59 POP CX
903 0721 E2 A9 LOOP SOUTH_3
904 0723 51 SOUTH_3_A2: PUSH CX
905 0724 BF 0000s MOV DI,SEG DAT2
906 0727 8E C7 MOV ES,DI
907 0729 BD 003Ar MOV BP,OFFSET DAT2
908 072C B0 00 MOV AL,00H
909 072E 8A 1E 01D9r MOV BL,WHITE
910 0732 B4 13 MOV AH,13H
911 0734 B9 0001 MOV CX,01H
Turbo Assembler Version 4.1 06/01/12 16:00:27 Page 17
F:\工程文件\Fasm\TFCL.ASM
912 0737 CD 10 INT 10H
913 0739 FE 06 01DFr INC UNDER_COL
914 073D 59 POP CX
915 073E E2 00 LOOP R_S3
916 0740 5B R_S3: POP BX
917 0741 88 1E 01DFr MOV UNDER_COL,BL
918 0745 5B POP BX
919 0746 88 1E 01DEr MOV UNDER_ROW,BL
920 074A C3 RET
921 074B SOUTH3 ENDP
922 ;************************************* WEST 3
923 074B WEST3 PROC NEAR
924 074B 8A 1E 01E0r MOV BL,LEFT_ROW
925 074F 53 PUSH BX
926 0750 8A 1E 01E1r MOV BL,LEFT_COL
927 0754 53 PUSH BX
928 0755 B4 02 WEST_3: MOV AH,02H
929 0757 8A 36 01E0r MOV DH,LEFT_ROW
930 075B 8A 16 01E1r MOV DL,LEFT_COL
931 075F B7 00 MOV BH,00H
932 0761 CD 10 INT 10H
933 0763 83 F9 03 CMP CX,03H
934 0766 74 0A JZ WEST_3_A1
935 0768 83 F9 02 CMP CX,02H
936 076B 74 22 JZ WEST_3_A3
937 076D 83 F9 01 CMP CX,01H
938 0770 74 3A JZ WEST_3_A2
939 0772 51 WEST_3_A1: PUSH CX
940 0773 BF 0000s MOV DI,SEG DAT2
941 0776 8E C7 MOV ES,DI
942 0778 BD 003Ar MOV BP,OFFSET DAT2
943 077B B0 00 MOV AL,00H
944 077D 8A 1E 01D9r MOV BL,WHITE
945 0781 B4 13 MOV AH,13H
946 0783 B9 0001 MOV CX,01H
947 0786 CD 10 INT 10H
948 0788 FE 06 01E1r INC LEFT_COL
949 078C 59 POP CX
950 078D E2 C6 LOOP WEST_3
951 078F 51 WEST_3_A3: PUSH CX
952 0790 BF 0000s MOV DI,SEG DAT2
953 0793 8E C7 MOV ES,DI
954 0795 BD 003Ar MOV BP,OFFSET DAT2
955 0798 B0 00 MOV AL,00H
956 079A 8A 1E 01DBr MOV BL,YELLOW
957 079E B4 13 MOV AH,13H
958 07A0 B9 0001 MOV CX,01H
959 07A3 CD 10 INT 10H
960 07A5 FE 06 01E1r INC LEFT_COL
961 07A9 59 POP CX
962 07AA E2 A9 LOOP WEST_3
963 07AC 51 WEST_3_A2: PUSH CX
964 07AD BF 0000s MOV DI,SEG DAT2
965 07B0 8E C7 MOV ES,DI
966 07B2 BD 003Ar MOV BP,OFFSET DAT2
967 07B5 B0 00 MOV AL,00H
968 07B7 8A 1E 01D9r MOV BL,WHITE
Turbo Assembler Version 4.1 06/01/12 16:00:27 Page 18
F:\工程文件\Fasm\TFCL.ASM
969 07BB B4 13 MOV AH,13H
970 07BD B9 0001 MOV CX,01H
971 07C0 CD 10 INT 10H
972 07C2 FE 06 01E1r INC LEFT_COL
973 07C6 59 POP CX
974 07C7 E2 00 LOOP R_W3
975 07C9 5B R_W3: POP BX
976 07CA 88 1E 01E1r MOV LEFT_COL,BL
977 07CE 5B POP BX
978 07CF 88 1E 01E0r MOV LEFT_ROW ,BL
979 07D3 C3 RET
980 07D4 WEST3 ENDP
981 ;************************************* EAST3
982 07D4 EAST3 PROC NEAR
983 07D4 8A 1E 01E2r MOV BL,RIGHT_ROW
984 07D8 53 PUSH BX
985 07D9 8A 1E 01E3r MOV BL,RIGHT_COL
986 07DD 53 PUSH BX
987 07DE B4 02 EAST_3: MOV AH,02H
988 07E0 8A 36 01E2r MOV DH,RIGHT_ROW
989 07E4 8A 16 01E3r MOV DL,RIGHT_COL
990 07E8 B7 00 MOV BH,00H
991 07EA CD 10 INT 10H
992 07EC 83 F9 03 CMP CX,03H
993 07EF 74 0A JZ EAST_3_A1
994 07F1 83 F9 02 CMP CX,02H
995 07F4 74 22 JZ EAST_3_A3
996 07F6 83 F9 01 CMP CX,01H
997 07F9 74 3A JZ EAST_3_A2
998 07FB 51 EAST_3_A1: PUSH CX
999 07FC BF 0000s MOV DI,SEG DAT2
1000 07FF 8E C7 MOV ES,DI
1001 0801 BD 003Ar MOV BP,OFFSET DAT2
1002 0804 B0 00 MOV AL,00H
1003 0806 8A 1E 01D9r MOV BL,WHITE
1004 080A B4 13 MOV AH,13H
1005 080C B9 0001 MOV CX,01H
1006 080F CD 10 INT 10H
1007 0811 FE 06 01E3r INC RIGHT_COL
1008 0815 59 POP CX
1009 0816 E2 C6 LOOP EAST_3
1010 0818 51 EAST_3_A3: PUSH CX
1011 0819 BF 0000s MOV DI,SEG DAT2
1012 081C 8E C7 MOV ES,DI
1013 081E BD 003Ar MOV BP,OFFSET DAT2
1014 0821 B0 00 MOV AL,00H
1015 0823 8A 1E 01DBr MOV BL,YELLOW
1016 0827 B4 13 MOV AH,13H
1017 0829 B9 0001 MOV CX,01H
1018 082C CD 10 INT 10H
1019 082E FE 06 01E3r INC RIGHT_COL
1020 0832 59 POP CX
1021 0833 E2 A9 LOOP EAST_3
1022 0835 51 EAST_3_A2: PUSH CX
1023 0836 BF 0000s MOV DI,SEG DAT2
1024 0839 8E C7 MOV ES,DI
1025 083B BD 003Ar MOV BP,OFFSET DAT2
Turbo Assembler Version 4.1 06/01/12 16:00:27 Page 19
F:\工程文件\Fasm\TFCL.ASM
1026 083E B0 00 MOV AL,00H
1027 0840 8A 1E 01D9r MOV BL,WHITE
1028 0844 B4 13 MOV AH,13H
1029 0846 B9 0001 MOV CX,01H
1030 0849 CD 10 INT 10H
1031 084B FE 06 01E3r INC RIGHT_COL
1032 084F 59 POP CX
1033 0850 E2 00 LOOP R_E3
1034 0852 5B R_E3: POP BX
1035 0853 88 1E 01E3r MOV RIGHT_COL,BL
1036 0857 5B POP BX
1037 0858 88 1E 01E2r MOV RIGHT_ROW ,BL
1038 085C C3 RET
1039 085D EAST3 ENDP
1040 085D MOD3 ENDP
1041 ;****************************************************延时子程序 及键盘控制1
1042 085D DELAY1 PROC NEAR
1043 085D 50 PUSH AX
1044 085E 53 PUSH BX
1045 085F 51 PUSH CX
1046 0860 52 PUSH DX
1047 0861 C6 06 01E4r 00 MAIN1: MOV INTFLAG,0
1048 0866 C6 06 01E5r 12 MOV COUNT ,18
1049 086B A0 01ECr MOV AL,NS
1050 086E A2 01E6r MOV SECOND ,AL
1051 0871 B4 35 MOV AH,35H ;读取中断向量
1052 0873 B0 08 MOV AL,08H
1053 0875 CD 21 INT 21H
1054 0877 89 1E 01E9r MOV OLD_OFF,BX
1055 087B 8C 06 01E7r MOV OLD_SEG,ES
1056 087F E4 21 IN AL,21H
1057 0881 A2 01EBr MOV OLD_MSK,AL
1058 0884 B4 02 MOV AH,02H
1059 0886 B6 06 MOV DH,06
1060 0888 B2 19 MOV DL,25
1061 088A B7 00 MOV BH,00H
1062 088C CD 10 INT 10H
1063 088E FA CLI ;设置中断向量
1064 088F 1E PUSH DS
1065 0890 B4 25 MOV AH,25H
1066 0892 B0 08 MOV AL,08H
1067 0894 BA 0000s MOV DX,SEG INTERRUPT2
1068 0897 8E DA MOV DS,DX
1069 0899 BA 0C9Ar MOV DX,OFFSET INTERRUPT2
1070 089C CD 21 INT 21H
1071 089E 1F POP DS
1072 089F A0 01EBr MOV AL,OLD_MSK
1073 08A2 24 FE AND AL,11111110B
1074 08A4 FB STI
1075 08A5 B4 0B MAINLOOP1: MOV AH,0BH ;test keyboard
1076 08A7 CD 21 INT 21H
1077 08A9 3C 00 CMP AL,00H
1078 08AB 74 72 JE CHK_INT1
1079 08AD B4 08 MOV AH,08H ;get key
1080 08AF CD 21 INT 21H
1081 08B1 3C 72 CMP AL,72H ;'r'
1082 08B3 74 17 JZ RESTOR1
Turbo Assembler Version 4.1 06/01/12 16:00:27 Page 20
F:\工程文件\Fasm\TFCL.ASM
1083 08B5 3C 63 CMP AL,63H ;'c'
1084 08B7 74 18 JZ CFG_NS1
1085 08B9 3C 64 CMP AL,64H ;'d'
1086 08BB 74 19 JZ CFG_WE1
1087 08BD 3C 65 CMP AL,65H ;'e'
1088 08BF 74 20 JZ CFG1
1089 08C1 3C 6E CMP AL,6EH ;'n'
1090 08C3 74 16 JZ CFG_N1
1091 08C5 3C 1B CMP AL,1BH ;'ESC'
1092 08C7 75 56 JNE CHK_INT1
1093 08C9 EB 2F 90 JMP QUIT1
1094 08CC E8 00C6 RESTOR1: CALL RESTORE1
1095 08CF EB 90 JMP MAIN1
1096 08D1 E8 00CA CFG_NS1: CALL CFIG_NS1
1097 08D4 EB 8B JMP MAIN1
1098 08D6 E8 0114 CFG_WE1: CALL CFIG_WE1
1099 08D9 EB 86 JMP MAIN1
1100 08DB E8 015E CFG_N1: CALL CFIG_N1
1101 08DE EB 3F 90 JMP CHK_INT1
1102 08E1 A0 01F1r CFG1: MOV AL,LEE
1103 08E4 3C 00 CMP AL,0
1104 08E6 74 08 JZ LEE1
1105 08E8 C6 06 01F1r 00 MOV LEE,0
1106 08ED EB 06 90 JMP RET11
1107 08F0 C6 06 01F1r 01 LEE1: MOV LEE,1
1108 08F5 EB 4F 90 RET11: JMP RET12
1109 08F8 EB AB MAINLOOP11: JMP MAINLOOP1
1110 08FA FA QUIT1: CLI
1111 08FB 1E PUSH DS
1112 08FC 06 PUSH ES
1113 08FD 8C D8 MOV AX,DS
1114 08FF 8E C0 MOV ES,AX
1115 0901 B4 25 MOV AH,25H
1116 0903 B0 08 MOV AL,08H
1117 0905 26: 8B 16 01E7r MOV DX,ES:OLD_SEG
1118 090A 8E DA MOV DS,DX
1119 090C 26: 8B 16 01E9r MOV DX,ES:OLD_OFF
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -