dance.asm

来自「一个用汇编语言实现的,可以保存输入号码,以及显示跳舞者的程序.」· 汇编 代码 · 共 93 行

DATAS  SEGMENT
DANCER DB 17
       DB 4FH,07H,0,0
       DB 02H,07H,1,-2
       DB 0DBH,07H,0,2
       DB 4FH,07H,1,-6
       DB 0DBH,07H,0,1
       DB 5AH,70H,0,1
       DB 4AH,70H,0,1       
       DB 0DBH,07H,0,1
       DB 0DBH,07H,0,1
       DB 0DBH,07H,0,1
       DB 0DBH,07H,1,-2
       DB 0DBH,07H,1,-1
       DB 0DBH,07H,0,2
       DB 0DBH,07H,1,-2
       DB 0DBH,07H,0,2
       DB 4FH,07H,1,-2
       DB 4FH,07H,0,3    
DATAS  ENDS

STACKS SEGMENT
    ;此处输入堆栈段代码
STACKS ENDS

CODES SEGMENT
      ASSUME CS:CODES,DS:DATAS,SS:STACKS     
B     PROC FAR
      PUSH DS
      SUB  AX,AX
      PUSH AX
      MOV  AX,DATAS
      MOV  DS,AX
      CALL CLEAR
      LEA  SI,DANCER
      MOV  DH,16
      MOV  DL,-48
      CALL DANCEDIS
      RET
B     ENDP
CLEAR PROC NEAR
      PUSH AX
      PUSH BX
      PUSH CX
      PUSH DX
      MOV  AH,6
      MOV  AL,0
      MOV  CX,0
      MOV  DH,24
      MOV  DL,79
      MOV  BH,7
      INT  10H
      POP  DX
      POP  CX
      POP  BX
      POP  AX
      RET
CLEAR ENDP
DANCEDIS PROC NEAR
         PUSH AX 
         PUSH BX
         PUSH CX
         PUSH DX
         PUSH SI
         MOV  AH,0FH
         INT  10H
         SUB  CH,CH
         MOV  CL,[SI]
         INC  SI
NEXT:    ADD  DH,[SI+2]
         ADD  DL,[SI+3]
         MOV  AH,2
         INT  10H
         MOV  AL,[SI]
         MOV  BL,[SI+1]
         PUSH CX
         MOV  CX,1
         MOV  AH,9
         INT  10H
         POP  CX
         ADD  SI,4
         LOOP NEXT
         POP  SI
         POP  DX
         POP  CX
         POP  BX
         POP  AX
         RET
DANCEDIS ENDP             
      MOV AH,4CH
      INT 21H
CODES ENDS
      END B