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 / CPM / ZCPR33 / A-R / EHOFF.Z80 < prev    next >
Text File  |  2000-06-30  |  1KB  |  33 lines
  1. ; PROGRAM: EHOFF
  2. ; VERSION: 0.1
  3. ; WRITTEN: Bruce McIntosh
  4. ;
  5. ; This is a VERY primitive, quick-and-dirty utility to shut off the
  6. ; error handlers under ZCPR3.3.  I wrote it becuase I couldn't get
  7. ; ERRORX to function under ZCPR3.3.  It's actually the first real,
  8. ; useful program I've written for my micro (bring out the party
  9. ; favors and celebrate *grin* )!
  10.  
  11. ; This program is public domain.  Do whatever you like with it.
  12. ;
  13.     org    100h              ;absolute load at 100h
  14. ;
  15. ehoff    jp    start
  16.     db    'Z3ENV'           ;Get ZCPR3.3 to feed me the address of 
  17.         db    1                 ; the external environment descriptor
  18. env    defw    0F600h            ; and put it here.
  19. ;
  20. start    ld    hl,(env)          ;get address of environment descriptor
  21.     ld    de,0022h          ;offset into E.D. for address of Z3MSG
  22.     add    hl,de             ;point to address of Z3MSG
  23.     ld    e,(hl)            ;get lo byte of Z3MSG address
  24.     inc    hl                ;point to hi byte of Z3MSG address
  25.     ld    d,(hl)            ;get hi byte of Z3MSG address
  26.     ex    de,hl             ;put address of Z3MSG into HL
  27.     ld    de,0010h          ;offset into Z3MSG for er. hand. cmd
  28.     add    hl,de             ;point to error handler command
  29.     ld    (hl),00h          ;zero out the first byte (shut off)
  30.     jp    0000h             ;all done, bail out to warm boot
  31. ;    
  32.     end    ehoff
  33.