汇编语言: 主程序 BANDO:把整数字变量 VAL1 存入堆栈，并调用子程序 PAIRS；子程序 PAIRS:从 堆栈中取出 VAL1，调用二进制显示程序 OUTBIN 显示出与其等效的二进制数，输

主程序 BANDO:把整数字变量 VAL1 存入堆栈，并调用子程序 PAIRS；子程序 PAIRS:从 堆栈中取出 VAL1，调用二进制显示程序 OUTBIN 显示出与其等效的二进制数，输出 8 个空格； 调用八进制显示程序 OUTOCT 显示出与其等效的八进制数，调用输出回车及换行符的子程序。

data segmentval1  EQU  65535data endsstack segment stackdw 30h dup(?)top label wordstack endsCODES SEGMENT    ASSUME CS:CODES,ss:stack,ds:dataBANDO PROC FAR    mov ax,data    mov ds,ax    mov ax,stack    mov ss,ax    lea sp,top    mov ax,val1    push ax    call PAIRS    jmp exitPAIRS proc near    push bp    mov bp,sp    mov bx, [bp+4]    mov cx,16l1: rol bx,1    mov dl,bl    and dl,1    add dl,30h    mov ah,02h    int 21h    loop l1    mov cx,8l2: mov dl,' '    mov ah,02h    int 21h    loop l2    pop bp    push bx    call OUTOCT    retPAIRS endpOUTOCT proc near    push bp    mov bp,sp    mov bx,[bp+4]    rol bx,1    mov dl,bl    and dl,1    add dl,30h    mov ah,02h    int 21h    mov cx,5l3: push cx    mov cl,3    rol bx,cl    mov dl,bl    and dl,111b    add dl,30h    mov ah,02h    int 21h    pop cx    loop l3    pop bp    call CRTF   retOUTOCT endpCRTf proc near    mov dl,0dh    mov ah,02h    int 21h    mov dl,0ah    mov ah,02h    int 21hretCRTF endpexit:       MOV AH,4CH    INT 21HBANDO endpCODES ENDS    END BANDO