📄 tfcl.lst
字号:
280 0170 E8 026A CALL MOD2
281 0173 80 3E 01F1r 01 CMP LEE,1
282 0178 74 20 JZ A4
283 017A E8 04A0 CALL MOD3
284 017D EB 1B 90 JMP A4
Turbo Assembler Version 4.1 06/01/12 16:00:27 Page 6
F:\工程文件\Fasm\TFCL.ASM
285 0180 E8 025A A5: CALL MOD2
286 0183 80 3E 01F1r 00 CMP LEE,0
287 0188 74 10 JZ A4
288 018A E8 0490 CALL MOD3
289 018D E8 000D CALL MOD1
290 0190 80 3E 01F1r 00 CMP LEE,0
291 0195 74 03 JZ A4
292 0197 E8 0483 CALL MOD3
293 019A E9 FF03 A4: JMP A1
294 ;********************************************* 灯颜色和位置设置1
295 019D MOD1 PROC NEAR
296 019D B9 0003 MOV CX,03H
297 01A0 E8 0016 CALL NORTH1
298 01A3 B9 0003 MOV CX,03H
299 01A6 E8 0099 CALL SOUTH1
300 01A9 B9 0003 MOV CX,03H
301 01AC E8 011C CALL WEST1
302 01AF B9 0003 MOV CX,03H
303 01B2 E8 019F CALL EAST1
304 01B5 E8 06A5 CALL DELAY1
305 01B8 C3 RET
306 ;************************************* NORTH1
307 01B9 NORTH1 PROC NEAR
308 01B9 8A 1E 01DCr MOV BL,UPPER_ROW
309 01BD 53 PUSH BX
310 01BE 8A 1E 01DDr MOV BL,UPPER_COL
311 01C2 53 PUSH BX
312 01C3 B4 02 NORTH_1: MOV AH,02H
313 01C5 8A 36 01DCr MOV DH,UPPER_ROW
314 01C9 8A 16 01DDr MOV DL,UPPER_COL
315 01CD B7 00 MOV BH,00H
316 01CF CD 10 INT 10H
317 01D1 83 F9 03 CMP CX,03H
318 01D4 74 0A JZ NORTH_1_A1
319 01D6 83 F9 02 CMP CX,02H
320 01D9 74 22 JZ NORTH_1_A3
321 01DB 83 F9 01 CMP CX,01H
322 01DE 74 3A JZ NORTH_1_A2
323 01E0 51 NORTH_1_A1: PUSH CX
324 01E1 BF 0000s MOV DI,SEG DAT2
325 01E4 8E C7 MOV ES,DI
326 01E6 BD 003Ar MOV BP,OFFSET DAT2
327 01E9 B0 00 MOV AL,00H
328 01EB 8A 1E 01D7r MOV BL,RED
329 01EF B4 13 MOV AH,13H
330 01F1 B9 0001 MOV CX,01H
331 01F4 CD 10 INT 10H
332 01F6 FE 06 01DDr INC UPPER_COL
333 01FA 59 POP CX
334 01FB E2 C6 LOOP NORTH_1
335 01FD 51 NORTH_1_A3: PUSH CX
336 01FE BF 0000s MOV DI,SEG DAT2
337 0201 8E C7 MOV ES,DI
338 0203 BD 003Ar MOV BP,OFFSET DAT2
339 0206 B0 00 MOV AL,00H
340 0208 8A 1E 01DAr MOV BL,WHIT
341 020C B4 13 MOV AH,13H
Turbo Assembler Version 4.1 06/01/12 16:00:27 Page 7
F:\工程文件\Fasm\TFCL.ASM
342 020E B9 0001 MOV CX,01H
343 0211 CD 10 INT 10H
344 0213 FE 06 01DDr INC UPPER_COL
345 0217 59 POP CX
346 0218 E2 A9 LOOP NORTH_1
347 021A 51 NORTH_1_A2: PUSH CX
348 021B BF 0000s MOV DI,SEG DAT2
349 021E 8E C7 MOV ES,DI
350 0220 BD 003Ar MOV BP,OFFSET DAT2
351 0223 B0 00 MOV AL,00H
352 0225 8A 1E 01D9r MOV BL,WHITE
353 0229 B4 13 MOV AH,13H
354 022B B9 0001 MOV CX,01H
355 022E CD 10 INT 10H
356 0230 FE 06 01DDr INC UPPER_COL
357 0234 59 POP CX
358 0235 E2 00 LOOP R_N1
359 0237 5B R_N1: POP BX
360 0238 88 1E 01DDr MOV UPPER_COL,BL
361 023C 5B POP BX
362 023D 88 1E 01DCr MOV UPPER_ROW,BL
363 0241 C3 RET
364 0242 NORTH1 ENDP
365 ;************************************* 灯颜色和位置设置1
366 0242 SOUTH1 PROC NEAR
367 0242 8A 1E 01DEr MOV BL,UNDER_ROW
368 0246 53 PUSH BX
369 0247 8A 1E 01DFr MOV BL,UNDER_COL
370 024B 53 PUSH BX
371 024C B4 02 SOUTH_1: MOV AH,02H
372 024E 8A 36 01DEr MOV DH,UNDER_ROW
373 0252 8A 16 01DFr MOV DL,UNDER_COL
374 0256 B7 00 MOV BH,00H
375 0258 CD 10 INT 10H
376 025A 83 F9 03 CMP CX,03H
377 025D 74 0A JZ SOUTH_1_A1
378 025F 83 F9 02 CMP CX,02H
379 0262 74 22 JZ SOUTH_1_A3
380 0264 83 F9 01 CMP CX,01H
381 0267 74 3A JZ SOUTH_1_A2
382 0269 51 SOUTH_1_A1: PUSH CX
383 026A BF 0000s MOV DI,SEG DAT2
384 026D 8E C7 MOV ES,DI
385 026F BD 003Ar MOV BP,OFFSET DAT2
386 0272 B0 00 MOV AL,00H
387 0274 8A 1E 01D7r MOV BL,RED
388 0278 B4 13 MOV AH,13H
389 027A B9 0001 MOV CX,01H
390 027D CD 10 INT 10H
391 027F FE 06 01DFr INC UNDER_COL
392 0283 59 POP CX
393 0284 E2 C6 LOOP SOUTH_1
394 0286 51 SOUTH_1_A3: PUSH CX
395 0287 BF 0000s MOV DI,SEG DAT2
396 028A 8E C7 MOV ES,DI
397 028C BD 003Ar MOV BP,OFFSET DAT2
398 028F B0 00 MOV AL,00H
Turbo Assembler Version 4.1 06/01/12 16:00:27 Page 8
F:\工程文件\Fasm\TFCL.ASM
399 0291 8A 1E 01DAr MOV BL,WHIT
400 0295 B4 13 MOV AH,13H
401 0297 B9 0001 MOV CX,01H
402 029A CD 10 INT 10H
403 029C FE 06 01DFr INC UNDER_COL
404 02A0 59 POP CX
405 02A1 E2 A9 LOOP SOUTH_1
406 02A3 51 SOUTH_1_A2: PUSH CX
407 02A4 BF 0000s MOV DI,SEG DAT2
408 02A7 8E C7 MOV ES,DI
409 02A9 BD 003Ar MOV BP,OFFSET DAT2
410 02AC B0 00 MOV AL,00H
411 02AE 8A 1E 01D9r MOV BL,WHITE
412 02B2 B4 13 MOV AH,13H
413 02B4 B9 0001 MOV CX,01H
414 02B7 CD 10 INT 10H
415 02B9 FE 06 01DFr INC UNDER_COL
416 02BD 59 POP CX
417 02BE E2 00 LOOP R_S1
418 02C0 5B R_S1: POP BX
419 02C1 88 1E 01DFr MOV UNDER_COL,BL
420 02C5 5B POP BX
421 02C6 88 1E 01DEr MOV UNDER_ROW,BL
422 02CA C3 RET
423 02CB SOUTH1 ENDP
424 ;************************************* WEST 1
425 02CB WEST1 PROC NEAR
426 02CB 8A 1E 01E0r MOV BL,LEFT_ROW
427 02CF 53 PUSH BX
428 02D0 8A 1E 01E1r MOV BL,LEFT_COL
429 02D4 53 PUSH BX
430 02D5 B4 02 WEST_1: MOV AH,02H
431 02D7 8A 36 01E0r MOV DH,LEFT_ROW
432 02DB 8A 16 01E1r MOV DL,LEFT_COL
433 02DF B7 00 MOV BH,00H
434 02E1 CD 10 INT 10H
435 02E3 83 F9 03 CMP CX,03H
436 02E6 74 0A JZ WEST_1_A1
437 02E8 83 F9 02 CMP CX,02H
438 02EB 74 22 JZ WEST_1_A3
439 02ED 83 F9 01 CMP CX,01H
440 02F0 74 3A JZ WEST_1_A2
441 02F2 51 WEST_1_A1: PUSH CX
442 02F3 BF 0000s MOV DI,SEG DAT2
443 02F6 8E C7 MOV ES,DI
444 02F8 BD 003Ar MOV BP,OFFSET DAT2
445 02FB B0 00 MOV AL,00H
446 02FD 8A 1E 01D9r MOV BL,WHITE
447 0301 B4 13 MOV AH,13H
448 0303 B9 0001 MOV CX,01H
449 0306 CD 10 INT 10H
450 0308 FE 06 01E1r INC LEFT_COL
451 030C 59 POP CX
452 030D E2 C6 LOOP WEST_1
453 030F 51 WEST_1_A3: PUSH CX
454 0310 BF 0000s MOV DI,SEG DAT2
455 0313 8E C7 MOV ES,DI
Turbo Assembler Version 4.1 06/01/12 16:00:27 Page 9
F:\工程文件\Fasm\TFCL.ASM
456 0315 BD 003Ar MOV BP,OFFSET DAT2
457 0318 B0 00 MOV AL,00H
458 031A 8A 1E 01DAr MOV BL,WHIT
459 031E B4 13 MOV AH,13H
460 0320 B9 0001 MOV CX,01H
461 0323 CD 10 INT 10H
462 0325 FE 06 01E1r INC LEFT_COL
463 0329 59 POP CX
464 032A E2 A9 LOOP WEST_1
465 032C 51 WEST_1_A2: PUSH CX
466 032D BF 0000s MOV DI,SEG DAT2
467 0330 8E C7 MOV ES,DI
468 0332 BD 003Ar MOV BP,OFFSET DAT2
469 0335 B0 00 MOV AL,00H
470 0337 8A 1E 01D8r MOV BL,GREEN
471 033B B4 13 MOV AH,13H
472 033D B9 0001 MOV CX,01H
473 0340 CD 10 INT 10H
474 0342 FE 06 01E1r INC LEFT_COL
475 0346 59 POP CX
476 0347 E2 00 LOOP R_W1
477 0349 5B R_W1: POP BX
478 034A 88 1E 01E1r MOV LEFT_COL,BL
479 034E 5B POP BX
480 034F 88 1E 01E0r MOV LEFT_ROW ,BL
481 0353 C3 RET
482 0354 WEST1 ENDP
483 ;************************************* EAST1
484 0354 EAST1 PROC NEAR
485 0354 8A 1E 01E2r MOV BL,RIGHT_ROW
486 0358 53 PUSH BX
487 0359 8A 1E 01E3r MOV BL,RIGHT_COL
488 035D 53 PUSH BX
489 035E B4 02 EAST_1: MOV AH,02H
490 0360 8A 36 01E2r MOV DH,RIGHT_ROW
491 0364 8A 16 01E3r MOV DL,RIGHT_COL
492 0368 B7 00 MOV BH,00H
493 036A CD 10 INT 10H
494 036C 83 F9 03 CMP CX,03H
495 036F 74 0A JZ EAST_1_A1
496 0371 83 F9 02 CMP CX,02H
497 0374 74 22 JZ EAST_1_A3
498 0376 83 F9 01 CMP CX,01H
499 0379 74 3A JZ EAST_1_A2
500 037B 51 EAST_1_A1: PUSH CX
501 037C BF 0000s MOV DI,SEG DAT2
502 037F 8E C7 MOV ES,DI
503 0381 BD 003Ar MOV BP,OFFSET DAT2
504 0384 B0 00 MOV AL,00H
505 0386 8A 1E 01D9r MOV BL,WHITE
506 038A B4 13 MOV AH,13H
507 038C B9 0001 MOV CX,01H
508 038F CD 10 INT 10H
509 0391 FE 06 01E3r INC RIGHT_COL
510 0395 59 POP CX
511 0396 E2 C6 LOOP EAST_1
512 0398 51 EAST_1_A3: PUSH CX
Turbo Assembler Version 4.1 06/01/12 16:00:27 Page 10
F:\工程文件\Fasm\TFCL.ASM
513 0399 BF 0000s MOV DI,SEG DAT2
514 039C 8E C7 MOV ES,DI
515 039E BD 003Ar MOV BP,OFFSET DAT2
516 03A1 B0 00 MOV AL,00H
517 03A3 8A 1E 01DAr MOV BL,WHIT
518 03A7 B4 13 MOV AH,13H
519 03A9 B9 0001 MOV CX,01H
520 03AC CD 10 INT 10H
521 03AE FE 06 01E3r INC RIGHT_COL
522 03B2 59 POP CX
523 03B3 E2 A9 LOOP EAST_1
524 03B5 51 EAST_1_A2: PUSH CX
525 03B6 BF 0000s MOV DI,SEG DAT2
526 03B9 8E C7 MOV ES,DI
527 03BB BD 003Ar MOV BP,OFFSET DAT2
528 03BE B0 00 MOV AL,00H
529 03C0 8A 1E 01D8r MOV BL,GREEN
530 03C4 B4 13 MOV AH,13H
531 03C6 B9 0001 MOV CX,01H
532 03C9 CD 10 INT 10H
533 03CB FE 06 01E3r INC RIGHT_COL
534 03CF 59 POP CX
535 03D0 E2 00 LOOP R_E1
536 03D2 5B R_E1: POP BX
537 03D3 88 1E 01E3r MOV RIGHT_COL,BL
538 03D7 5B POP BX
539 03D8 88 1E 01E2r MOV RIGHT_ROW ,BL
540 03DC C3 RET
541 03DD EAST1 ENDP
542 03DD MOD1 ENDP
543 ;*********************************************
544 03DD MOD2 PROC NEAR
545 03DD B9 0003 MOV CX,03H
546 03E0 E8 0016 CALL NORTH2
547 03E3 B9 0003 MOV CX,03H
548 03E6 E8 0099 CALL SOUTH2
549 03E9 B9 0003 MOV CX,03H
550 03EC E8 011C CALL WEST2
551 03EF B9 0003 MOV CX,03H
552 03F2 E8 019F CALL EAST2
553 03F5 E8 068B CALL DELAY2
554 03F8 C3 RET
555 ;************************************* 灯颜色和位置设置1
556 03F9 NORTH2 PROC NEAR
557 03F9 8A 1E 01DCr MOV BL,UPPER_ROW
558 03FD 53 PUSH BX
559 03FE 8A 1E 01DDr MOV BL,UPPER_COL
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -