610.asm

本书为清华大学第二版汇编语言的课后题详解

;6_10.asm

;***********************************************************************
                .model small
                .stack 100h
;***********************************************************************
                .data
val1            dw 0ffffh
;************************************************************************
                .code
;---------------------------------------------------------------------
main            proc  far
start:
                push  ds
                sub   ax,ax
                push  ax
                mov   ax,@data
                mov   ds,ax
                push  val1
                call  pairs
                ret
main            endp
;------------------------------------------------------------------------
pairs           proc  near
                push  bp
                mov   bp,sp
                mov   bx,[bp+4]
                call  outbin
                mov   cx,8
loop1:          mov   dl,20h
                mov   ah,2
                int   21h
                loop  loop1
                call  outoct
                call  crlf
                pop   bp
                ret   2
pairs           endp
;------------------------------------------------------------------------
outbin          proc  near
                mov   cx,16
loop2:          mov   dl,0
                rol   bx,1
                rcl   dl,1
                or    dl,30h
                mov   ah,2
                int   21h
                loop  loop2
                ret
outbin          endp
;----------------------------------------------------------------------
outoct          proc  near
                mov   dl,0
                rol   bx,1
                rcl   dl,1
                add   dl,30h
                mov   ah,2
                int   21h
                mov   ch,5
                mov   cl,3
loop3:          rol   bx,cl
                mov   al,bl
                and   al,07h
                add   al,30h
                mov   dl,al
                mov   ah,2
                int   21h
                dec   ch
                jnz   loop3
                ret
outoct          endp
;-----------------------------------------------------------------------
crlf            proc  near
                mov   dl,13
                mov   ah,2
                int   21h
                mov   dl,10
                mov   ah,2
                int   21h
                ret
crlf            endp
;-----------------------------------------------------------------------
;*************************************************************************
                end  start