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 / ERRORX.MAC < prev    next >
Text File  |  2000-06-30  |  1KB  |  69 lines
  1. ;
  2. ; Program: ERRORX
  3. ; Author:  Richard Conn
  4. ; Version: 1.0
  5. ; Date:  29 Mar 84
  6. ;
  7. version    equ    10
  8. z3env    SET    0f400H
  9.  
  10. ;
  11. ;    ERRORX disengages the current error handler.  No error handler
  12. ; is available after ERRORX executes.
  13. ;
  14.  
  15. ;
  16. ;  SYSLIB and Z3LIB References
  17. ;
  18.     ext    z3init,puter1,print
  19.  
  20. ;
  21. ; Environment Definition
  22. ;
  23.     if    z3env ne 0
  24. ;
  25. ; External ZCPR3 Environment Descriptor
  26. ;
  27.     jmp    start
  28.     db    'Z3ENV'    ;This is a ZCPR3 Utility
  29.     db    1    ;External Environment Descriptor
  30. z3eadr:
  31.     dw    z3env
  32. start:
  33.     lhld    z3eadr    ;pt to ZCPR3 environment
  34. ;
  35.     else
  36. ;
  37. ; Internal ZCPR3 Environment Descriptor
  38. ;
  39.     MACLIB    Z3BASE.LIB
  40.     MACLIB    SYSENV.LIB
  41. z3eadr:
  42.     jmp    start
  43.     SYSENV
  44. start:
  45.     lxi    h,z3eadr    ;pt to ZCPR3 environment
  46.     endif
  47.  
  48. ;
  49. ; Start of Program -- Initialize ZCPR3 Environment
  50. ;
  51.     call    z3init    ;initialize the ZCPR3 Env and the VLIB Env
  52.  
  53. ;
  54. ; Turn Off Message
  55. ;
  56.     mvi    a,0    ;turn off error handler
  57.     call    puter1    ;use SYSLIB routine
  58.  
  59. ;
  60. ; Print Message
  61. ;
  62.     call    print
  63.     db    'ERRORX Version '
  64.     db    (version/10)+'0','.',(version mod 10)+'0'
  65.     db    ' -- Error Handler Disengaged',0
  66.     ret
  67.  
  68.     end
  69.