home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / zsys / simtel20 / zcpr3 / note.mqc / NOTE.MAC
Encoding:
Text File  |  1985-06-14  |  896 b   |  52 lines
  1. ;
  2. ; Program: NOTE (Note)
  3. ; Author: Richard Conn
  4. ; Version: 1.0
  5. ; Date: 8 Mar 84
  6. ; Previous Versions: None
  7. ;
  8.  
  9. ;
  10. ;    NOTE is a comment - it does nothing except return
  11. ;
  12.  
  13. ;
  14. ; Macros and Externals
  15. ;
  16.     MACLIB    Z3BASE.LIB
  17.     ext    z3init
  18.  
  19. ;
  20. ; Environment Definition
  21. ;
  22.     if    z3env ne 0
  23. ;
  24. ; External ZCPR3 Environment Descriptor
  25. ;
  26.     jmp    start
  27.     db    'Z3ENV'    ;This is a ZCPR3 Utility
  28.     db    1    ;External Environment Descriptor
  29. z3eadr:
  30.     dw    z3env
  31. start:
  32.     lhld    z3eadr    ;pt to ZCPR3 environment
  33. ;
  34.     else
  35. ;
  36. ; Internal ZCPR3 Environment Descriptor
  37. ;
  38.     MACLIB    SYSENV.LIB
  39. z3eadr:
  40.     jmp    start
  41.     SYSENV
  42. start:
  43.     lxi    h,z3eadr    ;pt to ZCPR3 environment
  44.     endif
  45.  
  46. ;
  47. ; Start of Program -- Initialize ZCPR3 Environment
  48. ;
  49.     jmp    z3init    ;initialize the ZCPR3 Env and the VLIB Env
  50.  
  51.     end
  52.