zd.asm

要求按Q键返回操作系统

STK     SEGMENT   STACK'S'
DW      80   DUP(0)
STK   ENDS
DATA    SEGMENT
COUNT    DW      1
CHAR   DB   01H
DATA    ENDS
CODE      SEGMENT
                 ASSUME  CS:CODE, DS:DATA, SS:STK
MAIN    PROC    FAR 
               MOV     AX,DATA
               MOV      DS,AX
               MOV     AH,35H
               MOV     AL,1CH
               INT   21H
               PUSH     ES
               PUSH     BX
               PUSH     DS
               MOV      DX,SEG INT_1CH
               MOV      DS,DX
               LEA        DX,INT_1CH
               MOV      AH,25H
               MOV      AL,1CH
               INT         21H
               POP        DS
                IN       AL,21H
               AND    AL,11111100B
               OUT     21H,AL
               STI
;OTHER      FUNCTION
                     MOV       AH,6
                     MOV       AL,0
                     MOV        BH,1FH 
                     MOV       CX,0 
                     MOV       DX,184FH 
                     INT          10H
                     MOV        AL,0
PRINT0: 
                     PUSH       AX
                     MOV        AH,1
                     INT           21H
                     OR            AL,20H
                     CMP         AL,'q'
                     POP          AX
                     JE         EXIT0
                     INC           AL 
                    MOV         DX,0002H 
                   MOV          BH,0
PRINT10:
                   INC      DH
                   CMP       DH,24
                    JA           PRINT0
                   ADD       DL,3
                   MOV      AH,2
                   INT         10H  
                   MOV       AH,9
                   MOV       BL,1FH
                   MOV       CX,1
                   INT          10H
                   JMP         PRINT10
EXIT0:      POP          DX 
                  POP           DS
                  MOV        AH,25H
                 MOV         AL,1CH
                  INT          21H 
                 MOV        AX,4C00H
                  INT          21H
MAIN       ENDP
INT_1CH PROC        FAR
                  PUSH        AX
                  PUSH        BX
                  PUSH        CX
                  PUSH        DX
                  PUSH        SI
                  PUSH        DI
                  PUSH        BP
                  PUSH        DS
                  PUSH        ES
                  STI 
                  MOV        AX,DATA
                  MOV        DS,AX
                  DEC         COUNT
                  JNZ          EXIT
                  MOV        AH,2
                 MOV         BH,0
                 MOV         DH,0
                 MOV         DL,79
                 INT            10H               
                 MOV         AH,0EH         
                 MOV         BH,0
                 MOV         AL,CHAR
                 INT            10H
                 XOR          CHAR,00000011B
                 MOV         COUNT,91
EXIT:       CLI
                  POP            ES
                  POP            DS
                  POP            BP
                  POP            DI
                  POP            SI
                  POP            DX
                  POP            CX
                  POP            BX
                  POP            AX
                  IRET
INT_1CH   ENDP
CODE         ENDS
                     END           MAIN