📄 tfc.lst
字号:
Turbo Assembler Version 4.1 06/01/11 22:59:59 Page 1
F:\工程文件\Fasm\交通灯\TFC.ASM
1 ;电子0303 田里 20034972
2 ;交通灯************************
3 0000 DATA SEGMENT
4 0000 20 72 20 20 3A 20 54+ DAT0 DB ' r : Time Restore.',0DH,0AH,'$'
5 69 6D 65 20 52 65 73+
6 74 6F 72 65 2E 0D 0A+
7 24
8 0016 20 63 20 20 3A 20 43+ DAT1 DB ' c : Change The N-S GREEN TIME .',0DH,0AH,'$'
9 68 61 6E 67 65 20 54+
10 68 65 20 4E 2D 53 20+
11 47 52 45 45 4E 20 54+
12 49 4D 45 20 2E 0D 0A+
13 24
14 003A 23 DAT2 DB '#'
15 003B 20 64 20 20 3A 20 43+ DAT3 DB ' d : Change The W-E GREEN TIME .',0DH,0AH,'$'
16 68 61 6E 67 65 20 54+
17 68 65 20 57 2D 45 20+
18 47 52 45 45 4E 20 54+
19 49 4D 45 20 2E 0D 0A+
20 24
21 005F 45 53 43 20 3A 20 51+ DAT4 DB 'ESC : QUIT .',0DH,0AH,'$'
22 55 49 54 20 2E 0D 0A+
23 24
24 006E 50 4C 45 41 53 45 20+ DAT5 DB 'PLEASE INPUT SECONDS(<99):',0DH,0AH,'$'
25 49 4E 50 55 54 20 53+
26 45 43 4F 4E 44 53 28+
27 3C 39 39 29 3A 0D 0A+
28 24
29 008B 2A 2A 2A 2A 2A 2A 2A+ DAT6 DB '********************* *********************','$'
30 2A 2A 2A 2A 2A 2A 2A+
31 2A 2A 2A 2A 2A 2A 2A+
32 20 20 20 20 20 20 20+
33 20 20 2A 2A 2A 2A 2A+
34 2A 2A 2A 2A 2A 2A 2A+
35 2A 2A 2A 2A 2A 2A 2A+
36 2A 2A 24
37 00BF 20 20 20 20 20 20 20+ DAT7 DB ' * * ','$'
38 20 20 20 20 20 20 20+
39 20 20 20 20 20 20 2A+
40 20 20 20 20 20 20 20+
41 20 20 2A 20 20 24
42 00E1 20 6E 20 20 3A 20 4E+ DAT8 DB ' n : NIGHT CONTROL(NEXT MOD).',0DH,0AH,'$'
43 49 47 48 54 20 43 4F+
44 4E 54 52 4F 4C 28 4E+
45 45 58 54 20 4D 4F 44+
46 29 2E 0D 0A 24
47 0102 20 20 20 20 44 65 73+ DAT9 DB ' Design By TianLi (Elec.0303|20034972) ',0DH,0AH,'$'
48 69 67 6E 20 42 79 20+
49 54 69 61 6E 4C 69 20+
50 28 45 6C 65 63 2E 30+
51 33 30 33 7C 32 30 30+
52 33 34 39 37 32 29 20+
53 20 0D 0A 24
54 0130 20 20 20 20 20 20 20+ DAT10 DB ' Press ENTER into the program ! ' ,0DH,0AH,'$'
55 20 50 72 65 73 73 20+
56 45 4E 54 45 52 20 69+
57 6E 74 6F 20 74 68 65+
Turbo Assembler Version 4.1 06/01/11 22:59:59 Page 2
F:\工程文件\Fasm\交通灯\TFC.ASM
58 20 70 72 6F 67 72 61+
59 6D 20 21 20 20 20 20+
60 20 20 0D 0A 24
61 015F 20 20 20 20 20 20 20+ DAT11 DB ' And Press ESC to Quit ',0DH,0AH,'$'
62 20 20 20 20 41 6E 64+
63 20 50 72 65 73 73 20+
64 45 53 43 20 74 6F 20+
65 51 75 69 74 20 20 20+
66 20 20 20 20 20 20 20+
67 20 0D 0A 24
68 018D 20 20 20 20 20 20 54+ DAT12 DB ' This is a Traffic Lights Program ',0DH,0AH,'$'
69 68 69 73 20 69 73 20+
70 61 20 54 72 61 66 66+
71 69 63 20 4C 69 67 68+
72 74 73 20 50 72 6F 67+
73 72 61 6D 20 20 20 20+
74 20 20 0D 0A 24
75 01BC 04 RED DB 04H
76 01BD 02 GREEN DB 02H
77 01BE 0F WHITE DB 0FH
78 01BF 0F WHIT DB 0FH
79 01C0 8E YELLOW DB 8EH
80 01C1 01 UPPER_ROW DB 1
81 01C2 18 UPPER_COL DB 24
82 01C3 0A UNDER_ROW DB 10
83 01C4 18 UNDER_COL DB 24
84 01C5 05 LEFT_ROW DB 5
85 01C6 01 LEFT_COL DB 1
86 01C7 05 RIGHT_ROW DB 5
87 01C8 2F RIGHT_COL DB 47
88 01C9 00 INTFLAG DB 0
89 01CA 12 COUNT DB 18
90 01CB 00 SECOND DB 0
91 01CC ???? OLD_SEG DW ?
92 01CE ???? OLD_OFF DW ?
93 01D0 ?? OLD_MSK DB ?
94 01D1 20 NS DB 20H
95 01D2 20 WE DB 20H
96 01D3 8E N1 DB 8EH
97 01D4 0F N2 DB 0FH
98 01D5 00 N3 DB 0
99 01D6 DATA ENDS
100 ;***************************************
101 0000 STACK SEGMENT STACK
*Warning* F:\工程文件\Fasm\交通灯\TFC.ASM(43) Reserved word used as symbol: STACK
102 0000 0100*(??) STA DB 256 DUP(?)
103 =0100 TOP EQU $-STA
104 0100 STACK ENDS
105 ;************************************8
106 0000 CODE SEGMENT
107 ASSUME CS:CODE,DS:DATA,SS:STACK
108 0000 B8 0000s START: MOV AX,DATA
109 0003 8E D8 MOV DS,AX
110 0005 B8 0000s MOV AX,STACK
111 0008 8E D0 MOV SS,AX
112 000A B8 0100 MOV AX,TOP
113 000D 8B E0 MOV SP,AX
Turbo Assembler Version 4.1 06/01/11 22:59:59 Page 3
F:\工程文件\Fasm\交通灯\TFC.ASM
114 000F B4 00 A0: MOV AH,0 ;设置300*200彩色图形方式
115 0011 B0 03 MOV AL,3
116 0013 CD 10 INT 10H
117 0015 B4 01 MOV AH,01H
118 0017 B9 2000 MOV CX,2000H
119 001A CD 10 INT 10H
120 001C B4 02 MOV AH,02H ;定义首页
121 001E B6 04 MOV DH,4
122 0020 B2 00 MOV DL,0
123 0022 B7 00 MOV BH,00H
124 0024 CD 10 INT 10H
125 0026 B0 2A MOV AL,'*'
126 0028 B3 0E MOV BL,0EH
127 002A B4 09 MOV AH,09H
128 002C B9 002E MOV CX,2EH
129 002F CD 10 INT 10H
130 0031 B4 02 MOV AH,02H
131 0033 B6 08 MOV DH,8
132 0035 B2 0E MOV DL,14
133 0037 B7 00 MOV BH,00H
134 0039 CD 10 INT 10H
135 003B B0 2A MOV AL,'*'
136 003D 8A 1E 01BEr MOV BL,WHITE
137 0041 B4 09 MOV AH,09H
138 0043 B9 001C MOV CX,1CH
139 0046 CD 10 INT 10H
140 0048 B4 02 MOV AH,02H
141 004A B6 05 MOV DH,5
142 004C B2 00 MOV DL,0
143 004E B7 00 MOV BH,00H
144 0050 CD 10 INT 10H
145 0052 B4 09 MOV AH,09H
146 0054 BA 018Dr MOV DX,OFFSET DAT12
147 0057 CD 21 INT 21H
148 0059 B4 09 MOV AH,09H
149 005B BA 0130r MOV DX,OFFSET DAT10
150 005E CD 21 INT 21H
151 0060 B4 09 MOV AH,09H
152 0062 BA 015Fr MOV DX,OFFSET DAT11
153 0065 CD 21 INT 21H
154 0067 B4 09 MOV AH,09H
155 0069 BA 0102r MOV DX,OFFSET DAT9
156 006C CD 21 INT 21H
157 006E B0 2A MOV AL,'*'
158 0070 B3 0E MOV BL,0EH
159 0072 B4 09 MOV AH,09H
160 0074 B9 002D MOV CX,2DH
161 0077 CD 10 INT 10H
162 0079 B4 0B MOV AH,0BH
163 007B CD 21 INT 21H
164 007D 3C 00 CMP AL,00H
165 007F 75 8E JNZ A0
166 0081 B4 08 MOV AH,08H
167 0083 CD 21 INT 21H
168 0085 3C 0D CMP AL,0DH
169 0087 74 0A JZ REAL
170 0089 3C 1B CMP AL,1BH
Turbo Assembler Version 4.1 06/01/11 22:59:59 Page 4
F:\工程文件\Fasm\交通灯\TFC.ASM
171 008B 74 02 JZ QUIT
172 008D EB 80 JMP A0
173 008F B4 4C QUIT: MOV AH,4CH
174 0091 CD 21 INT 21H
175 0093 B8 0600 REAL: MOV AX,0600H
176 0096 B9 0000 MOV CX,0000H
177 0099 BA 184F MOV DX,184FH
178 009C B7 07 MOV BH,07H
179 009E CD 10 INT 10H
180 ;*************************************************
181 00A0 B4 02 A1: MOV AH,02H
182 00A2 B6 0C MOV DH,12
183 00A4 B2 0A MOV DL,10
184 00A6 B7 00 MOV BH,00H
185 00A8 CD 10 INT 10H
186 00AA B4 09 MOV AH,09H
187 00AC BA 0000r MOV DX,OFFSET DAT0
188 00AF CD 21 INT 21H
189 00B1 B4 02 MOV AH,02H
190 00B3 B6 03 MOV DH,3
191 00B5 B2 00 MOV DL,0
192 00B7 B7 00 MOV BH,00H
193 00B9 CD 10 INT 10H
194 00BB B4 09 MOV AH,09H
195 00BD BA 008Br MOV DX,OFFSET DAT6
196 00C0 CD 21 INT 21H
197 00C2 B4 02 MOV AH,02H
198 00C4 B6 07 MOV DH,7
199 00C6 B2 00 MOV DL,0
200 00C8 B7 00 MOV BH,00H
201 00CA CD 10 INT 10H
202 00CC B4 09 MOV AH,09H
203 00CE BA 008Br MOV DX,OFFSET DAT6
204 00D1 CD 21 INT 21H
205 00D3 B1 00 MOV CL,0
206 00D5 B4 02 A2: MOV AH,02H
207 00D7 8A F1 MOV DH,CL
208 00D9 B2 00 MOV DL,0
209 00DB B7 00 MOV BH,00H
210 00DD CD 10 INT 10H
211 00DF B4 09 MOV AH,09H
212 00E1 BA 00BFr MOV DX,OFFSET DAT7
213 00E4 CD 21 INT 21H
214 00E6 FE C1 INC CL
215 00E8 80 F9 03 CMP CL,3H
216 00EB 75 E8 JNZ A2
217 00ED B1 08 MOV CL,8
218 00EF B4 02 A3: MOV AH,02H
219 00F1 8A F1 MOV DH,CL
220 00F3 B2 00 MOV DL,0
221 00F5 B7 00 MOV BH,00H
222 00F7 CD 10 INT 10H
223 00F9 B4 09 MOV AH,09H
224 00FB BA 00BFr MOV DX,OFFSET DAT7
225 00FE CD 21 INT 21H
226 0100 FE C1 INC CL
227 0102 80 F9 0C CMP CL,0CH
Turbo Assembler Version 4.1 06/01/11 22:59:59 Page 5
F:\工程文件\Fasm\交通灯\TFC.ASM
228 0105 75 E8 JNZ A3
229 0107 B4 02 MOV AH,02H
230 0109 B6 0D MOV DH,13
231 010B B2 0A MOV DL,10
232 010D B7 00 MOV BH,00H
233 010F CD 10 INT 10H
234 0111 B4 09 MOV AH,09H
235 0113 BA 0016r MOV DX,OFFSET DAT1
236 0116 CD 21 INT 21H
237 0118 B4 02 MOV AH,02H
238 011A B6 0E MOV DH,14
239 011C B2 0A MOV DL,10
240 011E B7 00 MOV BH,00H
241 0120 CD 10 INT 10H
242 0122 B4 09 MOV AH,09H
243 0124 BA 003Br MOV DX,OFFSET DAT3
244 0127 CD 21 INT 21H
245 0129 B4 02 MOV AH,02H
246 012B B6 0F MOV DH,15
247 012D B2 0A MOV DL,10
248 012F B7 00 MOV BH,00H
249 0131 CD 10 INT 10H
250 0133 B4 09 MOV AH,09H
251 0135 BA 00E1r MOV DX,OFFSET DAT8
252 0138 CD 21 INT 21H
253 013A B4 02 MOV AH,02H
254 013C B6 10 MOV DH,16
255 013E B2 0A MOV DL,10
256 0140 B7 00 MOV BH,00H
257 0142 CD 10 INT 10H
258 0144 B4 09 MOV AH,09H
259 0146 BA 005Fr MOV DX,OFFSET DAT4
260 0149 CD 21 INT 21H
261 014B E8 000C CALL MOD1
262 014E E8 0489 CALL MOD3
263 0151 E8 0246 CALL MOD2
264 0154 E8 0483 CALL MOD3
265 0157 E9 FF46 JMP A1
266 ;********************************************* 灯颜色和位置设置1
267 015A MOD1 PROC NEAR
268 015A B9 0003 MOV CX,03H
269 015D E8 0016 CALL NORTH1
270 0160 B9 0003 MOV CX,03H
271 0163 E8 0099 CALL SOUTH1
272 0166 B9 0003 MOV CX,03H
273 0169 E8 011C CALL WEST1
274 016C B9 0003 MOV CX,03H
275 016F E8 019F CALL EAST1
276 0172 E8 06A5 CALL DELAY1
277 0175 C3 RET
278 ;************************************* NORTH1
279 0176 NORTH1 PROC NEAR
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -