wm.asm

数码之间转换,供大家参考,汇编语言的源程序

STACKSG SEGMENT PARA STACK'STACK'
        DB      256 DUP(?)
STACKSG ENDS
DATASG  SEGMENT PARA 'DATA'
BLOCK   DW      0,-5,8,256,-128,96,100,3,45,6,512
        DW      23,56,420,75,0,-1024,-67,39,-2000
COUNT   EQU     19
MAX     DW      ?
DATASG  ENDS
CODESG  SEGMENT
ASSUME  SS:STACKSG,CS:CODESG,DS:DATASG
        ORG     100H
BEGIN:  MOV     AX,DATASG
        MOV     DS,AX
        LEA     SI,BLOCK
        MOV     CX,COUNT
        MOV     AX,[SI]
CHKMAX: ADD     SI,2
        CMP     [SI],AX
        JLE     NEXT
        MOV     AX,[SI]
NEXT:   LOOP    CHKMAX
        MOV     MAX,AX
        MOV     AH,4CH
        INT     21H
CODESG  ENDS
        END BEGIN