all.asm

这是我在学习汇编语言期间做的一个程序霓虹灯显示的程序

             mov   Acount0,11
 ;---B--**************************--B---
             mov   Bchar,2
             mov   Bchar0,2
             mov   Bchar1,16
             mov   Bchar2,4
             mov   Bcount,5
             mov   Bcount0,4
             mov   Bcount_cx,13
 ;---C--**************************--C---
             mov   C_F,2
             mov   Ccol,2
             mov   Ccol0,2
             mov   Ccol01,2
             mov   Cchar0,2
             mov   Cchar01,2
             mov   Ccount,1
             mov   Cchar1,40
             mov   Cchar2,38
             mov   Ccount0,4
             mov   Ccount1,2
             mov   Ccount_cx,2
 ;---D--**************************--D---
             mov   Dchar1,1
             mov   Dchar2,77
             mov   Dchar3,2
             mov   Dchar4,76
             mov   Dcount,2
 ;---E--**************************--E---
             mov   E_B,3
             mov   Ecount0,4
             mov   Ecount1,3
             mov   Echar1,4
             mov   Echar2,6
             mov   Ecount_cx,2
 ;---F--**************************--F---
             mov   Fcount,5
             mov   Fchar1,1
             mov   Fchar2,77
 ;---H--**************************--H---
             mov   Hcol,2
             mov   Hcol0,2
             mov   Hcol01,2
             mov   Hchar0,2
             mov   Hchar01,2
             mov   Hcount,1
             mov   Hchar1,1
             mov   Hchar2,77
             mov   Hcount0,4
             mov   Hcount1,2
             mov   Hcount_cx,2
 ;---I--**************************--I---
             mov   Icount0,10
             mov   Icol,4
             mov   Icol0,4
             mov   Icol01,4
             mov   Ichar0,2
             mov   Ichar01,2
             mov   Icount,5
             mov   Ichar1,39
             mov   Ichar2,39
             mov   Icount1,2
             mov   Icount_cx,2
 ;---J--**************************--J---
             mov   Jcount,15
             mov   Jcool3,4
 ;---L--**************************--L---
             mov   Lchar1,3
             mov   Lchar2,77
             mov   Lchar0,38
             mov   Lcount_cx,2
 ;---P--**************************--P---
             mov   Pchar3,4
             mov   Pchar4,16

             call  clear_screen                           ;调用清屏子程序
             HONG7
;--<<<****************>>>AGAIN<<<***************>>>--
Sagain:       
             lea   di,Scar
             mov   dh,4
             mov   dl,38
             call  move_shape1
             lea   di,Sjeep
             mov   dh,4
             mov   dl,39
             call  move_shape2
             dec   Scount
             lea   di,Sleft
             mov   dh,5
             mov   dl,38
             call  move_shape1
             lea   di,Sright
             mov   dh,5
             mov   dl,39
             call  move_shape2
             call  Smust_2
             inc   Scount
             lea   di,Sjeep1
             mov   dh,4
             mov   dl,75
             call  move_shape1      
             lea   di,Scar1
             mov   dh,4
             mov   dl,3
             call  move_shape2 
             mov   Schar0,2      
  Sexit01:   call  dly_qrtr
             dec   Scount1
             jne   Sexit01
             call  Smust_2
 ;---A_X--*****************************--A_X---
 A_Xagain:      
             mov   line_on1,4				;变量line_on1 用以存放指定光标初始显示的行号 
             mov   col_on1,4				;变量col_on1 用以存放指定光标初始显示的列号 
             call  A_Xmust_2
             mov   A_Xcount,1
 A_Xagain1:             
             mov   line_on1,4
             mov   col_on1,4
             call  A_Xmust_21
             cmp   A_Xcount,1
             jne   A_Xexit0
             mov   A_Xcool1,0eh
             mov   A_Xcool2,0ah
             inc   A_Xcount
             jmp   A_Xexit12
 A_Xexit0:   mov   A_Xcool1,0ch
             mov   A_Xcool2,03h
             dec   A_Xcount
 A_Xexit12:  dec   A_Xcount1
             jne   A_Xagain1

             mov   line_on1,4
             mov   col_on1,4
             mov   line_on2,16
             mov   col_on2,3
             call  A_Xmust_22
 ;---A--*****************************--A---
 Aagain:
             lea   di,QQQ					;将QQQ的值附给目的变址寄存器DI
             mov   dh,8					;将QQQ的值附给目的变址寄存器DI
             mov   dl,4					;dl数据寄存器存放列号
             call  move_shape1
             call  Amust_2                                             

 Aagain0:    lea   di,III
             mov   dh,15
             mov   dl,23
             call  move_shape1
             call  Amust_2

             lea   di,AAAA
             mov   dh,13
             mov   dl,38
             call  move_shape1
             call  Amust_2

             lea   di,NNN
             mov   dh,15
             mov   dl,58
             call  move_shape1
             call  Amust_2

             lea   di,Ajeep
             mov   dh,4
             mov   dl,75
             call  move_shape1
             call  Amust_21
             cmp   Acount1,1
             jne   Aagain1
             jmp   Bagain1     
  ;---------------------------------
 Aagain1:
             lea   di,JJJ
             mov   dh,6
             mov   dl,3
             call  move_shape1
             call  Amust_2

             lea   di,III
             mov   dh,15
             mov   dl,14
             call  move_shape1
             call  Amust_2

             lea   di,AAAA
             mov   dh,12
             mov   dl,24
             call  move_shape1
             call  Amust_2

             lea   di,NNN
             mov   dh,15
             mov   dl,42
             call  move_shape1
             call  Amust_2

             lea   di,GGG
             mov   dh,8
             mov   dl,58
             call  move_shape1
             call  Amust_2

             lea   di,Ajeep
             mov   dh,4
             mov   dl,75
             call  move_shape1
             call  Amust_21
  ;-----------------------------
  Aagain2:
             lea   di,DDD
             mov   dh,5
             mov   dl,3
             call  move_shape1
             call  Amust_2

             lea   di,AAAA
             mov   dh,13
             mov   dl,18
             call  move_shape1
             call  Amust_2

             lea   di,JJJ
             mov   dh,6
             mov   dl,36
             call  move_shape1
             call  Amust_2

             lea   di,III
             mov   dh,15
             mov   dl,47
             call  move_shape1
             call  Amust_2

             lea   di,UUU
             mov   dh,5
             mov   dl,59
             call  move_shape1
             call  Amust_2

             lea   di,Ajeep
             mov   dh,4
             mov   dl,75
             call  move_shape1
             call  Amust_21
 ;-----------------------------------
  Aagain3:
             lea   di,DDD
             mov   dh,5
             mov   dl,5
             call  move_shape1
             call  Amust_2
             dec   Acount1
             jmp   Aagain0
 ;---B--*****************************--B---
 Bagain1:    mov   Bcount,5
             mov   Bchar2,4
             mov   Bchar,2
             mov   Bchar0,2
             lea   di,Bcar1
             mov   dh,4
             mov   dl,2
             call  move_shape1

             lea   di,Bjeep1
             mov   dh,4
             mov   dl,76
             call  move_shape2
             call  Bmust_2
             dec   Bcount_cx
             jne   Bagain1
 ;---C--*****************************--C---
Cagain:    
             lea   di,Cstar2
             mov   dh,4
             mov   dl,3
             call  move_shape1
             lea   di,Cstar3        
             mov   dh,4
             mov   dl,75
             call  move_shape2
             dec   Ccount_cx
             call  Cmust_2
 ;---D--*****************************--D---
  Dagain:
             mov   Dchar1,1
             mov   Dchar2,77
             mov   Dcount_cx,cx
             lea   di,car
             mov   dh,3
             mov   dl,38
             call  move_shape1
             lea   di,jeep
             mov   dh,3
             mov   dl,40
             call  move_shape2
             call  Dmust_2
             dec   Dcount
             jne   Dagain
 ;---E--*****************************--E---
             HONG7
 Eagain2:    mov   Echar0,4
 Eagain1:    dec   Echar0
             je    Eexit0
             lea   di,Estar2
             mov   dh,Echar1
             mov   dl,2
             add   Echar1,4
             call  Emust_2
             dec   Echar0
             je    Eexit0
             lea   di,Estar3
             mov   dh,Echar2
             mov   dl,76
             add   Echar2,7
             call  Emust_2
             jmp   Eagain1

 Eexit0:     dec   Ecount1
             je    Eexit02
             dec   Echar1
             lea   di,Bjeep
             mov   dh,10
             mov   dl,76
             call  Emust_2
             dec   Ecount1
             jmp   Eagain2
           
 Eexit02:    mov   Ecount,5
             mov   Ecount0,4
             mov   Ecount1,3
             mov   Echar1,4
             mov   Echar2,6
             dec   Ecount_cx
 Eagain25:   mov   Echar0,4
 Eagain15:   dec   Echar0
             je    Eexit05
             lea   di,Estar3
             mov   dh,Echar1
             mov   dl,75
             add   Echar1,4    
             call  Emust_2
             dec   Echar0
             je    Eexit05
             lea   di,Estar2
             mov   dh,Echar2
             mov   dl,3
             add   Echar2,7
             call  Emust_2
             jmp   Eagain15

 Eexit05:    dec   Ecount1
             je    Eexit025
             dec   Echar1
             lea   di,Bcar
             mov   dh,10
             mov   dl,3
             call  Emust_2
             dec   Ecount1
             jmp   Eagain25
 Eexit025:   dec   E_B 
 ;---F--*****************************--F---
             mov   Ccol,2
             mov   Ccol0,2
             mov   Ccol01,2
             mov   Cchar0,2
             mov   Cchar01,2
             mov   Ccount0,4
             mov   Ccount1,2
             mov   Ccount_cx,2
             mov   dl,Fcount
             mov   Ccount,dl
             mov   dl,Fchar1
             mov   Cchar1,dl
             mov   dl,Fchar2
             mov   Cchar2,dl
             dec   C_F

             lea   di,Cstar2
             mov   dh,4
             mov   dl,2
             call  move_shape1
             lea   di,Cstar3
             mov   dh,4
             mov   dl,76
             call  move_shape2
             call  Cmust_2
  ;-------------------------------------
             lea   di,Cstar2
             mov   dh,4
             mov   dl,40
             call  move_shape1
             lea   di,Cstar3
             mov   dh,4
             mov   dl,38
             call  move_shape2
             mov   Ccol,2
             mov   Ccol0,2
             mov   Ccol01,2
             mov   Cchar0,2
             mov   Cchar01,2
             mov   Cchar1,1
             mov   Cchar2,77
             dec   Ccount_cx
             call  Cmust_2             
 ;---G--*****************************--G---
             mov   Ccount,5
             mov   Ccount1,2
             mov   Ccount_cx,2
 Gagain:     lea   di,Gstar2
             mov   dh,4
             mov   dl,2
             call  move_shape1
             lea   di,Gstar3
             mov   dh,7
             mov   dl,76
             call  move_shape2
             call  Gmust_2
             dec   Ccount1
             dec   Ccount_cx
             jne   Gagain
 ;---H--*****************************--H---
 Hagain:    
             lea   di,Hstar2
             mov   dh,16
             mov   dl,38
             call  move_shape1
             lea   di,Hstar3
             mov   dh,16
             mov   dl,40
             call  move_shape2
             dec   Hcount_cx
             call  Hmust_2
 ;---I--*****************************--I---
  Iagain1:
             mov   Icol,4
             mov   Icol0,4
             mov   Icol01,4
             mov   Hchar0,2