home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / l / l224 / 2.img / CHAPXMPL.ZIP / ASMPROC.ASM < prev    next >
Encoding:
Assembly Source File  |  1990-10-29  |  790 b   |  25 lines
  1. DATA     SEGMENT WORD PUBLIC
  2.          ASSUME DS:DATA
  3.          EXTRN  A:WORD             ;variable from the unit
  4. DATA     ENDS
  5.  
  6.  
  7. CODE     SEGMENT BYTE PUBLIC
  8.          ASSUME CS:CODE
  9.          EXTRN  PublicProc : FAR   ;far procedure (exported by the unit)
  10.          EXTRN  NearProc : NEAR    ;near procedure (local to unit)
  11.          EXTRN  FarProc  : FAR     ;far procedure (local but forced far)
  12.  
  13. AsmProc  PROC NEAR
  14.          PUBLIC AsmProc
  15.          CALL   FAR PTR PublicProc
  16.          CALL   NearProc
  17.          CALL   FAR PTR FarProc
  18.          mov    cx,ds:A            ;pull in variable A from the unit
  19.          sub    cx,2               ;do something to change it
  20.          mov    ds:A,cx            ;store it back
  21.          RET
  22. AsmProc  ENDP
  23. CODE     ENDS
  24.          END
  25.