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 / IFSTAT.MQC / IFSTAT.MAC
Text File  |  2000-06-30  |  1KB  |  86 lines
  1. ;
  2. ; Program: IFSTAT
  3. ; Author: Richard Conn
  4. ; Version: 1.0
  5. ; Date: 22 Apr 84
  6. ; Previous Versions:  None
  7. ;
  8. version    equ    10
  9.  
  10. ;
  11. ;    IFSTAT is used to display the current IF level.
  12. ;
  13.  
  14. ;
  15. ; Equates for Key Values
  16. ;
  17. z3env    SET    0f400h    ;address of ZCPR3 environment
  18. fcb    equ    5ch
  19. cr    equ    0dh
  20. lf    equ    0ah
  21.  
  22. ;
  23. ; External Z3LIB and SYSLIB Routines
  24. ;
  25.     ext    z3init,iftest,eprint,cout
  26.  
  27. ;
  28. ; Environment Definition
  29. ;
  30.     if    z3env ne 0
  31. ;
  32. ; External ZCPR3 Environment Descriptor
  33. ;
  34.     jmp    start
  35.     db    'Z3ENV'    ;This is a ZCPR3 Utility
  36.     db    1    ;External Environment Descriptor
  37. z3eadr:
  38.     dw    z3env
  39. start:
  40.     lhld    z3eadr    ;pt to ZCPR3 environment
  41. ;
  42.     else
  43. ;
  44. ; Internal ZCPR3 Environment Descriptor
  45. ;
  46.     MACLIB    Z3BASE.LIB
  47.     MACLIB    SYSENV.LIB
  48. z3eadr:
  49.     jmp    start
  50.     SYSENV
  51. start:
  52.     lxi    h,z3eadr    ;pt to ZCPR3 environment
  53.     endif
  54.  
  55. ;
  56. ; Start of Program -- Initialize ZCPR3 Environment
  57. ;
  58.     call    z3init    ;initialize the ZCPR3 Environment
  59.     lda    fcb+1    ;check for help
  60.     cpi    '/'
  61.     jz    prhelp
  62.     call    iftest    ;get number of current IF
  63.     jnz    prnum    ;print number
  64.     call    eprint
  65.     db    ' No Active IF',0
  66.     ret
  67. prnum:
  68.     call    eprint
  69.     db    ' Current IF Level: ',0
  70.     adi    '0'    ;convert to ASCII
  71.     jmp    cout
  72.  
  73. ;
  74. ; Print Help Message
  75. ;
  76. prhelp:
  77.     call    eprint
  78.     db    'IFSTAT, Version '
  79.     db    (version/10)+'0','.',(version mod 10)+'0'
  80.     db    ' - Display Current IF Level'
  81.     db    cr,lf,'Syntax: IFSTAT'
  82.     db    0
  83.     ret
  84.  
  85.     end
  86.