prog8_7b.asm

汇编语言-王爽 源代码 加 卜艳萍版源代码

cseg segment
        assume  cs:cseg
public int4ah
int4ah  proc far
        push  dx
        push  cx
        push  si
        mov  cx,0
        mov  si,ax
   lp:  mov  al,[si]
        cmp  al,'$'
        jz  over
        mov  dl,al
        mov  ah,2
        int  21h
        inc  si
        inc  cx
        jmp  lp
 over:  mov  ax,cx
        cmp  ah,0
        je  done
        mov  ah,0ffh
 done:  pop  si
        pop  cx
        pop  dx
        iret
int4ah  endp
  cseg  ends
        end