📄 tfcl.lst
字号:
Turbo Assembler Version 4.1 06/01/12 16:00:27 Page 1
F:\工程文件\Fasm\TFCL.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/12 16:00:27 Page 2
F:\工程文件\Fasm\TFCL.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 20 65 20 20 3A 20 43+ DAT13 DB ' e : COLOR FAST CHANGE.',0DH,0AH,'$'
76 4F 4C 4F 52 20 46 41+
77 53 54 20 43 48 41 4E+
78 47 45 2E 0D 0A 24
79 01D7 04 RED DB 04H
80 01D8 02 GREEN DB 02H
81 01D9 0F WHITE DB 0FH
82 01DA 0F WHIT DB 0FH
83 01DB 8E YELLOW DB 8EH
84 01DC 01 UPPER_ROW DB 1
85 01DD 18 UPPER_COL DB 24
86 01DE 09 UNDER_ROW DB 9
87 01DF 18 UNDER_COL DB 24
88 01E0 05 LEFT_ROW DB 5
89 01E1 01 LEFT_COL DB 1
90 01E2 05 RIGHT_ROW DB 5
91 01E3 2F RIGHT_COL DB 47
92 01E4 00 INTFLAG DB 0
93 01E5 12 COUNT DB 18
94 01E6 00 SECOND DB 0
95 01E7 ???? OLD_SEG DW ?
96 01E9 ???? OLD_OFF DW ?
97 01EB ?? OLD_MSK DB ?
98 01EC 20 NS DB 20H
99 01ED 20 WE DB 20H
100 01EE 8E N1 DB 8EH
101 01EF 0F N2 DB 0FH
102 01F0 00 N3 DB 0
103 01F1 00 LEE DB 0
104 01F2 DATA ENDS
105 ;***************************************
106 0000 STACK SEGMENT STACK
*Warning* F:\工程文件\Fasm\TFCL.ASM(45) Reserved word used as symbol: STACK
107 0000 0100*(??) STA DB 256 DUP(?)
108 =0100 TOP EQU $-STA
109 0100 STACK ENDS
110 ;************************************8
111 0000 CODE SEGMENT
112 ASSUME CS:CODE,DS:DATA,SS:STACK
113 0000 B8 0000s START: MOV AX,DATA
Turbo Assembler Version 4.1 06/01/12 16:00:27 Page 3
F:\工程文件\Fasm\TFCL.ASM
114 0003 8E D8 MOV DS,AX
115 0005 B8 0000s MOV AX,STACK
116 0008 8E D0 MOV SS,AX
117 000A B8 0100 MOV AX,TOP
118 000D 8B E0 MOV SP,AX
119 000F B4 00 A0: MOV AH,0 ;设置300*200彩色图形方式
120 0011 B0 03 MOV AL,3
121 0013 CD 10 INT 10H
122 0015 B4 01 MOV AH,01H
123 0017 B9 2000 MOV CX,2000H
124 001A CD 10 INT 10H
125 001C B4 02 MOV AH,02H ;定义首页
126 001E B6 04 MOV DH,4
127 0020 B2 00 MOV DL,0
128 0022 B7 00 MOV BH,00H
129 0024 CD 10 INT 10H
130 0026 B0 2A MOV AL,'*'
131 0028 B3 0E MOV BL,0EH
132 002A B4 09 MOV AH,09H
133 002C B9 002E MOV CX,2EH
134 002F CD 10 INT 10H
135 0031 B4 02 MOV AH,02H
136 0033 B6 08 MOV DH,8
137 0035 B2 0E MOV DL,14
138 0037 B7 00 MOV BH,00H
139 0039 CD 10 INT 10H
140 003B B0 2A MOV AL,'*'
141 003D 8A 1E 01D9r MOV BL,WHITE
142 0041 B4 09 MOV AH,09H
143 0043 B9 001C MOV CX,1CH
144 0046 CD 10 INT 10H
145 0048 B4 02 MOV AH,02H
146 004A B6 05 MOV DH,5
147 004C B2 00 MOV DL,0
148 004E B7 00 MOV BH,00H
149 0050 CD 10 INT 10H
150 0052 B4 09 MOV AH,09H
151 0054 BA 018Dr MOV DX,OFFSET DAT12
152 0057 CD 21 INT 21H
153 0059 B4 09 MOV AH,09H
154 005B BA 0130r MOV DX,OFFSET DAT10
155 005E CD 21 INT 21H
156 0060 B4 09 MOV AH,09H
157 0062 BA 015Fr MOV DX,OFFSET DAT11
158 0065 CD 21 INT 21H
159 0067 B4 09 MOV AH,09H
160 0069 BA 0102r MOV DX,OFFSET DAT9
161 006C CD 21 INT 21H
162 006E B0 2A MOV AL,'*'
163 0070 B3 0E MOV BL,0EH
164 0072 B4 09 MOV AH,09H
165 0074 B9 002D MOV CX,2DH
166 0077 CD 10 INT 10H
167 0079 B4 0B MOV AH,0BH
168 007B CD 21 INT 21H
169 007D 3C 00 CMP AL,00H
170 007F 75 8E JNZ A0
Turbo Assembler Version 4.1 06/01/12 16:00:27 Page 4
F:\工程文件\Fasm\TFCL.ASM
171 0081 B4 08 MOV AH,08H
172 0083 CD 21 INT 21H
173 0085 3C 0D CMP AL,0DH
174 0087 74 0A JZ REAL
175 0089 3C 1B CMP AL,1BH
176 008B 74 02 JZ QUIT
177 008D EB 80 JMP A0
178 008F B4 4C QUIT: MOV AH,4CH
179 0091 CD 21 INT 21H
180 0093 B8 0600 REAL: MOV AX,0600H
181 0096 B9 0000 MOV CX,0000H
182 0099 BA 184F MOV DX,184FH
183 009C B7 07 MOV BH,07H
184 009E CD 10 INT 10H
185 ;*************************************************
186 00A0 B4 02 A1: MOV AH,02H
187 00A2 B6 0C MOV DH,12
188 00A4 B2 0A MOV DL,10
189 00A6 B7 00 MOV BH,00H
190 00A8 CD 10 INT 10H
191 00AA B4 09 MOV AH,09H
192 00AC BA 0000r MOV DX,OFFSET DAT0
193 00AF CD 21 INT 21H
194 00B1 B4 02 MOV AH,02H
195 00B3 B6 03 MOV DH,3
196 00B5 B2 00 MOV DL,0
197 00B7 B7 00 MOV BH,00H
198 00B9 CD 10 INT 10H
199 00BB B4 09 MOV AH,09H
200 00BD BA 008Br MOV DX,OFFSET DAT6
201 00C0 CD 21 INT 21H
202 00C2 B4 02 MOV AH,02H
203 00C4 B6 07 MOV DH,7
204 00C6 B2 00 MOV DL,0
205 00C8 B7 00 MOV BH,00H
206 00CA CD 10 INT 10H
207 00CC B4 09 MOV AH,09H
208 00CE BA 008Br MOV DX,OFFSET DAT6
209 00D1 CD 21 INT 21H
210 00D3 B1 00 MOV CL,0
211 00D5 B4 02 A2: MOV AH,02H
212 00D7 8A F1 MOV DH,CL
213 00D9 B2 00 MOV DL,0
214 00DB B7 00 MOV BH,00H
215 00DD CD 10 INT 10H
216 00DF B4 09 MOV AH,09H
217 00E1 BA 00BFr MOV DX,OFFSET DAT7
218 00E4 CD 21 INT 21H
219 00E6 FE C1 INC CL
220 00E8 80 F9 03 CMP CL,3H
221 00EB 75 E8 JNZ A2
222 00ED B1 08 MOV CL,8
223 00EF B4 02 A3: MOV AH,02H
224 00F1 8A F1 MOV DH,CL
225 00F3 B2 00 MOV DL,0
226 00F5 B7 00 MOV BH,00H
227 00F7 CD 10 INT 10H
Turbo Assembler Version 4.1 06/01/12 16:00:27 Page 5
F:\工程文件\Fasm\TFCL.ASM
228 00F9 B4 09 MOV AH,09H
229 00FB BA 00BFr MOV DX,OFFSET DAT7
230 00FE CD 21 INT 21H
231 0100 FE C1 INC CL
232 0102 80 F9 0C CMP CL,0CH
233 0105 75 E8 JNZ A3
234 0107 B4 02 MOV AH,02H
235 0109 B6 0D MOV DH,13
236 010B B2 0A MOV DL,10
237 010D B7 00 MOV BH,00H
238 010F CD 10 INT 10H
239 0111 B4 09 MOV AH,09H
240 0113 BA 0016r MOV DX,OFFSET DAT1
241 0116 CD 21 INT 21H
242 0118 B4 02 MOV AH,02H
243 011A B6 0E MOV DH,14
244 011C B2 0A MOV DL,10
245 011E B7 00 MOV BH,00H
246 0120 CD 10 INT 10H
247 0122 B4 09 MOV AH,09H
248 0124 BA 003Br MOV DX,OFFSET DAT3
249 0127 CD 21 INT 21H
250 0129 B4 02 MOV AH,02H
251 012B B6 0F MOV DH,15
252 012D B2 0A MOV DL,10
253 012F B7 00 MOV BH,00H
254 0131 CD 10 INT 10H
255 0133 B4 09 MOV AH,09H
256 0135 BA 00E1r MOV DX,OFFSET DAT8
257 0138 CD 21 INT 21H
258 013A B4 02 MOV AH,02H
259 013C B6 10 MOV DH,16
260 013E B2 0A MOV DL,10
261 0140 B7 00 MOV BH,00H
262 0142 CD 10 INT 10H
263 0144 B4 09 MOV AH,09H
264 0146 BA 005Fr MOV DX,OFFSET DAT4
265 0149 CD 21 INT 21H
266 014B B4 02 MOV AH,02H
267 014D B6 0B MOV DH,11
268 014F B2 0A MOV DL,10
269 0151 B7 00 MOV BH,00H
270 0153 CD 10 INT 10H
271 0155 B4 09 MOV AH,09H
272 0157 BA 01BCr MOV DX,OFFSET DAT13
273 015A CD 21 INT 21H
274 015C 80 3E 01F1r 01 CMP LEE,1
275 0161 74 1D JZ A5
276 0163 E8 0037 CALL MOD1
277 0166 80 3E 01F1r 01 CMP LEE,1
278 016B 74 2D JZ A4
279 016D E8 04AD CALL MOD3
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -