home *** CD-ROM | disk | FTP | other *** search
/ ftp.barnyard.co.uk / 2015.02.ftp.barnyard.co.uk.tar / ftp.barnyard.co.uk / cpm / walnut-creek-CDROM / ZSYS / SIMTEL20 / ZCPR3 / CMDRUN.MAC < prev    next >
Text File  |  2000-06-30  |  896b  |  51 lines
  1. ;
  2. ; Program:  CMDRUN
  3. ; Author:  Richard Conn
  4. ; Version: N/A
  5. ; Date: 11 June 84
  6. ;
  7. TBUFF    EQU    80H
  8. z3env    equ    0f400h
  9.  
  10.     ext    z3init
  11.     ext    print,pstr
  12.  
  13. ;
  14. ; Environment Definition
  15. ;
  16.     if    z3env ne 0
  17. ;
  18. ; External ZCPR3 Environment Descriptor
  19. ;
  20.     jmp    start
  21.     db    'Z3ENV'    ;This is a ZCPR3 Utility
  22.     db    1    ;External Environment Descriptor
  23. z3eadr:
  24.     dw    z3env
  25. start:
  26.     lhld    z3eadr    ;pt to ZCPR3 environment
  27. ;
  28.     else
  29. ;
  30. ; Internal ZCPR3 Environment Descriptor
  31. ;
  32.     MACLIB    Z3BASE.LIB
  33.     MACLIB    SYSENV.LIB
  34. z3eadr:
  35.     jmp    start
  36.     SYSENV
  37. start:
  38.     lxi    h,z3eadr    ;pt to ZCPR3 environment
  39.     endif
  40.  
  41. ;
  42. ; Start of Program -- Initialize ZCPR3 Environment
  43. ;
  44.     call    z3init    ;initialize the ZCPR3 Env and the VLIB Env
  45.     CALL    PRINT
  46.     DB    'Command Line: ',0
  47.     LXI    H,TBUFF+1    ;PT TO COMMAND LINE
  48.     JMP    PSTR
  49.  
  50.     END
  51.