rsrc.rc

来自「汇编语言编写程序」· RC 代码 · 共 40 行

DDATA SEGMENT 
      D1 DW 1234H
      D2 DW 5678H
      P1 DD ?
      P2 DD ?
DDATA ENDS

EDATA SEGMENT
      E1 DB ?
      E2 DW 4 DUP(?)
EDATA ENDS

SSTACK SEGMENT STACK 'STACK'
       DW 100 DUP(?)
SSTACK ENDS

CCODE SEGMENT
      ASSUME CS:CCODE,DS:DDATA,ES:EDATA,SS:SSTACK
MAIN PROC FAR
START:
      PUSH DS
      SUB AX,AX
      PUSH AX
      MOV AX,DDATA
      MOV DS,AX
      MOV AX,EDATA
      MOV ES,AX
      MOV AX,SSTACK
      MOV SS,AX
L1:   MOV BX,OFFSET D1
      MOV AX,[BX]
      MOV DX,0
      MUL [BX+2]
      MOV BX,OFFSET P1
      MOV [BX],AX
      MOV [BX+2],DX
      RET
MAIN  ENDP
CCODE ENDS
      END   START