home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / progm / dpl.zip / GETMWORD.D < prev    next >
Text File  |  1988-07-11  |  512b  |  22 lines
  1. ; Doug's Programming Language  -- DPL, Version 2.22
  2. ; Copyright (c) 1988 Douglas S. Cody, All rights reserved.
  3. ;-----------------------------------------
  4. ; G E T M W O R D  --  GET THE MACHINE WORD FROM PROM
  5. ;
  6. ; Entry Conditions:
  7. ;    None
  8. ; Exit Conditions:
  9. ;    AX holds the machine word
  10. ;
  11. SUBPGM    GETMWORD
  12. BEGIN    GETMWORD
  13.     PUSH    ES
  14.     MOV    AX,0F000H            ; GET THE PROM SEGMENT
  15.     MOV    ES,AX
  16.     MOV    AX,ES:[0FFFEH]            ; GET THE WORD
  17.     POP    ES
  18.     RETURN
  19. ;
  20. ENDPGM    GETMWORD
  21. ;
  22.