home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / cpm / zcpr33 / errorx11.lbr / ERRORX11.Z80 < prev   
Text File  |  1987-09-10  |  1KB  |  59 lines
  1.  
  2. ; Program: ERRORX
  3. ; Author:  Richard Conn
  4. ; Version: 1.0
  5. ; Date:  29 Mar 84
  6.  
  7. version    equ    11
  8. z3env    defl    0ef00H
  9.  
  10. ;    ERRORX disengages the current error handler.  No error handler
  11. ; is available after ERRORX executes.
  12.  
  13. ;-----------------------------------------------------------------------------
  14.  
  15. ; Revision history
  16. ;
  17. ; Version 1.1    Jay Sage    June 1, 1987
  18. ;     Converted code to Zilog mnemonics and modified for use with ZCPR33.
  19. ; Error handling is now turned off by loading a null command line as the error
  20. ; handling comand.  Removed the code for internal environment support and set
  21. ; up the program for a type-3 environment.
  22.  
  23. ;-----------------------------------------------------------------------------
  24.  
  25. ;  Z33LIB, Z3LIB, and SYSLIB References
  26.  
  27.     ext    z3init,getmsg,puterc,print
  28.  
  29.  
  30. entry:
  31.     jp    start
  32.     db    'Z3ENV'        ; ZCPR3 program ID
  33.     db    3        ; Type-3 environment
  34. z3eadr:
  35.     dw    z3env
  36.     dw    entry
  37.  
  38. start:
  39.     ld    hl,(z3eadr)    ; Get ENV address into HL
  40.     call    z3init        ; Initialize the ZCPR3 environment
  41.  
  42.     call    getmsg        ; Reset flag at Z3MSG+0 for ZCPR30
  43.     ld    (hl),0
  44.     ld    hl,nullcmd    ; Set error handling command line to null
  45.     call    puterc        ; Use Z33LIB routine
  46.  
  47. ; Print Message
  48.  
  49.     call    print
  50.     db    ' ERRORX Version '
  51.     db    (version/10)+'0','.',(version mod 10)+'0'
  52.     db    ' -- Error Handling Disengaged',0
  53.     ret
  54.  
  55. nullcmd:
  56.     defb    0        ; Null error handling command line
  57.  
  58.     end
  59.