📄 tfc.lst
字号:
1120 0912 B4 0E MOV AH,0EH
1121 0914 8A C2 MOV AL,DL
1122 0916 CD 10 INT 10H
1123 0918 B4 02 MOV AH,02H
1124 091A B6 12 MOV DH,18
1125 091C B2 00 MOV DL,0
1126 091E B7 00 MOV BH,00H
1127 0920 CD 10 INT 10H
1128 0922 B4 02 MOV AH,02H
1129 0924 B0 20 MOV AL,20H
1130 0926 CD 21 INT 21H
1131 0928 B4 02 MOV AH,02H
1132 092A B0 20 MOV AL,20H
1133 092C CD 21 INT 21H
1134 092E E9 FF31 JMP MAINLOOP1
1135 0931 5A STOP1: POP DX
1136 0932 59 POP CX
1137 0933 5B POP BX
1138 0934 58 POP AX
1139 0935 C3 RET
Turbo Assembler Version 4.1 06/01/11 22:59:59 Page 21
F:\工程文件\Fasm\交通灯\TFC.ASM
1140 0936 DELAY1 ENDP
1141 0936 RESTORE1 PROC NEAR ;复位
1142 0936 B0 20 MOV AL,20H
1143 0938 A2 01D2r MOV WE,AL
1144 093B A2 01D1r MOV NS,AL
1145 093E C3 RET
1146 093F RESTORE1 ENDP
1147 093F CFIG_NS1 PROC NEAR ;数据输入 ASC转BCD
1148 093F 50 PUSH AX
1149 0940 53 PUSH BX
1150 0941 51 PUSH CX
1151 0942 52 PUSH DX
1152 0943 B4 02 MOV AH,02H
1153 0945 B6 11 MOV DH,17
1154 0947 B2 0A MOV DL,10
1155 0949 B7 00 MOV BH,00H
1156 094B CD 10 INT 10H
1157 094D B4 09 MOV AH,09H
1158 094F BA 006Er MOV DX,OFFSET DAT5
1159 0952 CD 21 INT 21H
1160 0954 B4 01 MOV AH,01H
1161 0956 CD 21 INT 21H
1162 0958 2C 30 SUB AL,30H
1163 095A 2F DAS
1164 095B D0 E0 D0 E0 D0 E0 D0+ SHL AL,4
1165 E0
1166 0963 8A F8 MOV BH,AL
1167 0965 80 E7 F0 AND BH,11110000B
1168 0968 B4 01 MOV AH,01H
1169 096A CD 21 INT 21H
1170 096C 2C 30 SUB AL,30H
1171 096E 2F DAS
1172 096F 8A D8 MOV BL,AL
1173 0971 80 E3 0F AND BL,00001111B
1174 0974 02 DF ADD BL,BH
1175 0976 27 DAA
1176 0977 88 1E 01D2r MOV WE,BL
1177 097B 5A POP DX
1178 097C 59 POP CX
1179 097D 5B POP BX
1180 097E 58 POP AX
1181 097F C3 RET
1182 0980 CFIG_NS1 ENDP
1183 0980 CFIG_WE1 PROC NEAR ;数据输入 ASC转BCD
1184 0980 50 PUSH AX
1185 0981 53 PUSH BX
1186 0982 51 PUSH CX
1187 0983 52 PUSH DX
1188 0984 B4 02 MOV AH,02H
1189 0986 B6 11 MOV DH,17
1190 0988 B2 0A MOV DL,10
1191 098A B7 00 MOV BH,00H
1192 098C CD 10 INT 10H
1193 098E B4 09 MOV AH,09H
1194 0990 BA 006Er MOV DX,OFFSET DAT5
1195 0993 CD 21 INT 21H
1196 0995 B4 01 MOV AH,01H
Turbo Assembler Version 4.1 06/01/11 22:59:59 Page 22
F:\工程文件\Fasm\交通灯\TFC.ASM
1197 0997 CD 21 INT 21H
1198 0999 2C 30 SUB AL,30H
1199 099B 2F DAS
1200 099C D0 E0 D0 E0 D0 E0 D0+ SHL AL,4
1201 E0
1202 09A4 8A F8 MOV BH,AL
1203 09A6 80 E7 F0 AND BH,11110000B
1204 09A9 B4 01 MOV AH,01H
1205 09AB CD 21 INT 21H
1206 09AD 2C 30 SUB AL,30H
1207 09AF 2F DAS
1208 09B0 8A D8 MOV BL,AL
1209 09B2 80 E3 0F AND BL,00001111B
1210 09B5 02 DF ADD BL,BH
1211 09B7 27 DAA
1212 09B8 88 1E 01D1r MOV NS,BL
1213 09BC 5A POP DX
1214 09BD 59 POP CX
1215 09BE 5B POP BX
1216 09BF 58 POP AX
1217 09C0 C3 RET
1218 09C1 CFIG_WE1 ENDP
1219 09C1 CFIG_N1 PROC NEAR
1220 09C1 50 PUSH AX
1221 09C2 53 PUSH BX
1222 09C3 80 3E 01D5r 00 CMP N3,0
1223 09C8 74 03 JZ M11
1224 09CA EB 14 90 JMP M21
1225 09CD 8A 1E 01D3r M11: MOV BL,N1
1226 09D1 88 1E 01BFr MOV WHIT, BL
1227 09D5 A0 01D5r MOV AL,N3
1228 09D8 FE C0 INC AL
1229 09DA A2 01D5r MOV N3,AL
1230 09DD EB 11 90 JMP EX1
1231 09E0 8A 1E 01D4r M21: MOV BL,N2
1232 09E4 88 1E 01BFr MOV WHIT, BL
1233 09E8 A0 01D5r MOV AL,N3
1234 09EB FE C8 DEC AL
1235 09ED A2 01D5r MOV N3,AL
1236 09F0 5B EX1: POP BX
1237 09F1 58 POP AX
1238 09F2 C3 RET
1239 09F3 CFIG_N1 ENDP
1240 09F3 INTERRUPT1 PROC FAR ;从定时器读取时间
1241 09F3 9C PUSHF
1242 09F4 50 PUSH AX
1243 09F5 1E PUSH DS
1244 09F6 B8 0000s MOV AX,DATA
1245 09F9 8E D8 MOV DS,AX
1246 09FB C6 06 01C9r 01 MOV INTFLAG,1
1247 0A00 B0 20 MOV AL,20H ;EOI
1248 0A02 E6 20 OUT 20H,AL
1249 0A04 1F POP DS
1250 0A05 58 POP AX
1251 0A06 9D POPF
1252 0A07 CF IRET
1253 0A08 INTERRUPT1 ENDP
Turbo Assembler Version 4.1 06/01/11 22:59:59 Page 23
F:\工程文件\Fasm\交通灯\TFC.ASM
1254 ;****************************************************延时子程序 2
1255 0A08 DELAY2 PROC NEAR
1256 0A08 50 PUSH AX
1257 0A09 53 PUSH BX
1258 0A0A 51 PUSH CX
1259 0A0B 52 PUSH DX
1260 0A0C C6 06 01C9r 00 MAIN2: MOV INTFLAG,0
1261 0A11 C6 06 01CAr 12 MOV COUNT ,18
1262 0A16 A0 01D2r MOV AL,WE
1263 0A19 A2 01CBr MOV SECOND ,AL
1264 0A1C B4 35 MOV AH,35H
1265 0A1E B0 08 MOV AL,08H
1266 0A20 CD 21 INT 21H
1267 0A22 89 1E 01CEr MOV OLD_OFF,BX
1268 0A26 8C 06 01CCr MOV OLD_SEG,ES
1269 0A2A E4 21 IN AL,21H
1270 0A2C A2 01D0r MOV OLD_MSK,AL
1271 0A2F B4 02 MOV AH,02H
1272 0A31 B6 06 MOV DH,06
1273 0A33 B2 19 MOV DL,25
1274 0A35 B7 00 MOV BH,00H
1275 0A37 CD 10 INT 10H
1276 0A39 FA CLI
1277 0A3A 1E PUSH DS
1278 0A3B B4 25 MOV AH,25H
1279 0A3D B0 08 MOV AL,08H
1280 0A3F BA 0000s MOV DX,SEG INTERRUPT2
1281 0A42 8E DA MOV DS,DX
1282 0A44 BA 0BE7r MOV DX,OFFSET INTERRUPT2
1283 0A47 CD 21 INT 21H
1284 0A49 1F POP DS
1285 0A4A A0 01D0r MOV AL,OLD_MSK
1286 0A4D 24 FE AND AL,11111110B
1287 0A4F FB STI
1288 0A50 B4 0B MAINLOOP2: MOV AH,0BH ;test keyboard
1289 0A52 CD 21 INT 21H
1290 0A54 3C 00 CMP AL,00H
1291 0A56 74 56 JE CHK_INT2
1292 0A58 B4 08 MOV AH,08H ;get key
1293 0A5A CD 21 INT 21H
1294 0A5C 3C 72 CMP AL,72H
1295 0A5E 74 13 JZ RESTOR2
1296 0A60 3C 63 CMP AL,63H
1297 0A62 74 14 JZ CFG_NS2
1298 0A64 3C 64 CMP AL,64H
1299 0A66 74 15 JZ CFG_WE2
1300 0A68 3C 6E CMP AL,6EH ;'n'
1301 0A6A 74 17 JZ CFG_N2
1302 0A6C 3C 1B CMP AL,1BH ;'ESC'
1303 0A6E 75 3E JNE CHK_INT2
1304 0A70 EB 17 90 JMP QUIT2
1305 0A73 E8 00AE RESTOR2: CALL RESTORE2
1306 0A76 EB 94 JMP MAIN2
1307 0A78 E8 00B2 CFG_NS2: CALL CFIG_NS2
1308 0A7B EB 8F JMP MAIN2
1309 0A7D E8 00EE CFG_WE2: CALL CFIG_WE2
1310 0A80 EB 2C 90 JMP CHK_INT2
Turbo Assembler Version 4.1 06/01/11 22:59:59 Page 24
F:\工程文件\Fasm\交通灯\TFC.ASM
1311 0A83 E8 012F CFG_N2: CALL CFIG_N2
1312 0A86 EB 26 90 JMP CHK_INT2
1313 0A89 FA QUIT2: CLI
1314 0A8A 1E PUSH DS
1315 0A8B 06 PUSH ES
1316 0A8C 8C D8 MOV AX,DS
1317 0A8E 8E C0 MOV ES,AX
1318 0A90 B4 25 MOV AH,25H
1319 0A92 B0 08 MOV AL,08H
1320 0A94 26: 8B 16 01CCr MOV DX,ES:OLD_SEG
1321 0A99 8E DA MOV DS,DX
1322 0A9B 26: 8B 16 01CEr MOV DX,ES:OLD_OFF
1323 0AA0 CD 21 INT 21H
1324 0AA2 07 POP ES
1325 0AA3 1F POP DS
1326 0AA4 A0 01D0r MOV AL,OLD_MSK
1327 0AA7 E6 21 OUT 21H,AL
1328 0AA9 FB STI
1329 0AAA B4 4C MOV AH,4CH ;exit
1330 0AAC CD 21 INT 21H
1331 0AAE 80 3E 01C9r 00 CHK_INT2: CMP INTFLAG,0
1332 0AB3 74 9B JE MAINLOOP2
1333 0AB5 C6 06 01C9r 00 MOV INTFLAG,0
1334 0ABA FE 0E 01CAr DEC COUNT
1335 0ABE 75 90 JNE MAINLOOP2
1336 0AC0 C6 06 01CAr 12 MOV COUNT,18
1337 0AC5 A0 01CBr MOV AL,SECOND
1338 0AC8 FE C8 DEC AL
1339 0ACA 2F DAS
1340 0ACB A2 01CBr MOV SECOND,AL
1341 0ACE 80 3E 01CBr 00 CMP SECOND,0
1342 0AD3 77 03 JA REFRESH2
1343 0AD5 EB 48 90 JMP STOP2
1344 0AD8 B4 02 REFRESH2: MOV AH,02H
1345 0ADA B6 05 MOV DH,05
1346 0ADC B2 19 MOV DL,25
1347 0ADE B7 00 MOV BH,00H
1348 0AE0 CD 10 INT 10H
1349 0AE2 8A 36 01CBr MOV DH,SECOND
1350 0AE6 8A D6 MOV DL,DH
1351 0AE8 80 E2 F0 AND DL,11110000B
1352 0AEB B1 04 MOV CL,04
1353 0AED D2 EA SHR DL,CL
1354 0AEF 80 CA 30 OR DL,30H
1355 0AF2 B4 0E MOV AH,0EH
1356 0AF4 8A C2 MOV AL,DL
1357 0AF6 CD 10 INT 10H
1358 0AF8 8A D6 MOV DL,DH
1359 0AFA 80 E2 0F AND DL,00001111B
1360 0AFD 80 CA 30 OR DL,30H
1361 0B00 B4 0E MOV AH,0EH
1362 0B02 8A C2 MOV AL,DL
1363 0B04 CD 10 INT 10H
1364 0B06 B4 02 MOV AH,02H
1365 0B08 B6 12 MOV DH,18
1366 0B0A B2 00 MOV DL,0
1367 0B0C B7 00 MOV BH,00H
Turbo Assembler Version 4.1 06/01/11 22:59:59 Page 25
F:\工程文件\Fasm\交通灯\TFC.ASM
1368 0B0E CD 10 INT 10H
1369 0B10 B4 02 MOV AH,02H
1370 0B12 B0 20 MOV AL,20H
1371 0B14 CD 21 INT 21H
1372 0B16 B4 02 MOV AH,02H
1373 0B18 B0 20 MOV AL,20H
1374 0B1A CD 21 INT 21H
1375 0B1C E9 FF31 JMP MAINLOOP2
1376 0B1F 5A STOP2: POP DX
1377 0B20 59 POP CX
1378 0B21 5B POP BX
1379 0B22 58 POP AX
1380 0B23 C3 RET
1381 0B24 DELAY2 ENDP
1382 0B24 RESTORE2 PROC NEAR
1383 0B24 B0 20 MOV AL,20H
1384 0B26 A2 01D2r MOV WE,AL
1385 0B29 A2 01D1r MOV NS,AL
1386 0B2C C3 RET
1387 0B2D RESTORE2 ENDP
1388 0B2D CFIG_NS2 PROC NEAR
1389 0B2D 50 PUSH AX
1390 0B2E 53 PUSH BX
1391 0B2F 51 PUSH CX
1392 0B30 52 PUSH DX
1393 0B31 B4 02 MOV AH,02H
1394 0B33 B6 11 MOV DH,17
1395 0B35 B2 0A MOV DL,10
1396 0B37 B7 00 ⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -