新表.asm

用汇编编写的

        DATA  SEGMENT
      TABLE1  DB        16*16 DUP(?)
      STRING  DB        '  0 1 2 3 4 5 6 7 8 9 A B C D E F',0AH,0DH,0AH,0DH,'$'

        DATA  ENDS

      STACK1  SEGMENT   PARA STACK
              DW        20H  DUP(0)
      STACK1  ENDS

       COSEG  SEGMENT
              ASSUME    CS:COSEG,DS:DATA

      START:  MOV       AX,DATA
              MOV       DS,AX
              MOV       DX,OFFSET STRING
              MOV       AH,09H
              INT       21H
              MOV       BH,-1
              MOV       CX,16
       LOP1:  PUSH      CX
              INC       BH          ; 行号计数
              MOV       BL,-1
              MOV       CX,16       ;行号初始值为16

              CMP       BH,09H      ;行标
              JBE       EVENT1
              JMP       EVENT2

     EVENT1:
              ADD       BH,30H
              MOV       DL,BH
              MOV       AH,02H
              INT       21H
              MOV       DL,' '
              MOV       AH,02H
              INT       21H
              SUB       BH,30H
              JMP       LOP2
     EVENT2:
              ADD       BH,37H
              MOV       DL,BH
              MOV       AH,02H
              INT       21H
              MOV       DL,' '
              MOV       AH,02H
              INT       21H
              SUB       BH,37H

       LOP2:

              INC       BL          ; 列号计数
              MOV       AL,BH
              PUSH      CX
              MOV       CL,4
              SHL       AL,CL
              POP       CX
              ADD       AL,BL
              CMP       AL,08H
              JE        LOP4
              CMP       AL,09H
              JE        LOP3
              CMP       AL,0AH
              JE        LOP3
              CMP       AL,0DH
              JE        LOP3
              MOV       DL,AL
              MOV       AH,02H
              INT       21H
              MOV       DL,' '
              MOV       AH,02H
              INT       21H
              JMP       LOOPSTART
       LOP3:
              MOV       DL,' '
              MOV       AH,02H
              INT       21H

       LOP4:
              MOV       DL,' '
              MOV       AH,02H
              INT       21H
              MOV       DL,' '
              MOV       AH,02H
              INT       21H
  LOOPSTART:
              LOOP      LOP2
              CALL      CRLF
              POP       CX
              LOOP      LOP1
              MOV       AH,4CH
              INT       21H
        CRLF  PROC                  ; 回车过程
              MOV       DL, 0AH
              MOV       AH, 2
              INT       21H
              MOV       DL, 0DH
              MOV       AH, 2
              INT       21H
              RET
        CRLF  ENDP

       COSEG  ENDS
              END       START