chp3_13b.asm

关于8086汇编的一些作业程序

stack segment stack'stack'
      dw 32 dup(?)
stack ends
data segment
X DW -16
Y DW -68
K DB ?
OBUF1 DB 'The point is in quadrant:$'
OBUF2 DB 2 DUP(?)
data ends
code segment
begin proc far
      assume ss:stack,cs:code,ds:data
      push ds
      sub ax,ax
      push ax
      mov ax,data
      mov ds,ax
      MOV AX,0
      
      MOV DX,OFFSET OBUF1
      MOV AH,9
      INT 21H
     
      CMP X,0
      JE ZERO1
      CMP Y,0
      JE ZERO2
     
      CMP X,0
      JG QUD14
      JL QUD23
      

ZERO1:MOV K,0
      mov al,k
      or al,30h
      mov obuf2,al
      mov obuf2+1,'$'
      mov dx,offset obuf2
      mov ah,9
      int 21h
      JMP EXIT
ZERO2:MOV K,0
      mov al,k
      or al,30h
      mov obuf2,al
      mov obuf2+1,'$'
      mov dx,offset obuf2
      mov ah,9
      int 21h
      JMP EXIT

QUD14:CMP Y,0
      JG QUD1
      JL QUD4
QUD1: MOV K,1
      mov al,k
      or al,30h
      mov obuf2,al
      mov obuf2+1,'$'
      mov dx,offset obuf2
      mov ah,9
      int 21h
      JMP EXIT
QUD4: MOV K,4
      mov al,k
      or al,30h
      mov obuf2,al
      mov obuf2+1,'$'
      mov dx,offset obuf2
      mov ah,9
      int 21h
      JMP EXIT
QUD23:CMP Y,0
      JG QUD2
      JL QUD3
QUD2: MOV K,2
      mov al,k
      or al,30h
      mov obuf2,al
      mov obuf2+1,'$'
      mov dx,offset obuf2
      mov ah,9
      int 21h
      JMP EXIT
QUD3: MOV K,3
      mov al,k
      or al,30h
      mov obuf2,al
      mov obuf2+1,'$'
      mov dx,offset obuf2
      mov ah,9
      int 21h
      JMP EXIT

EXIT:
      ret
begin endp
code ends
     end begin