home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / jsage / znode3 / z3util / push12.lbr / STOP.LBR / STOP.Z80 < prev   
Encoding:
Text File  |  1993-06-07  |  1.4 KB  |  57 lines
  1. ; PROGRAM:    Stop
  2. ; AUTHOR:    Paul Pomerleau
  3. ; DATE:        May 6, 1987
  4. ; VERSION:    1.0
  5.  
  6. ;=============================================================================
  7. ;
  8. ;        D E F I N I T I O N S    S E C T I O N
  9. ;
  10. ;=============================================================================
  11.  
  12. version    equ    10
  13.  
  14.     ext    z3init,ifend,clrcl
  15.  
  16. ;=============================================================================
  17. ;
  18. ;        S T A N D A R D    P R O G R A M    H E A D E R
  19. ;
  20. ;=============================================================================
  21.  
  22. ENTRY:
  23.     jp    START
  24.     defb    'Z3ENV'
  25.     defb    3        ; Type-3 environment
  26. ENVADDR:
  27.     dw    0f300h
  28.     dw    ENTRY
  29.     defb    version
  30.  
  31. ;=============================================================================
  32. ;
  33. ;        C O N F I G U R A T I O N    A R E A
  34. ;
  35. ;=============================================================================
  36.  
  37. ;=============================================================================
  38. ;
  39. ;        M A I N    C O D E    S E C T I O N
  40. ;
  41. ;=============================================================================
  42.  
  43. START:
  44.  
  45.     ld    hl,(ENVADDR)    ; Get environment address
  46.     call    z3init        ; Initialize library routines
  47.  
  48.     ld    b,8
  49. CLEAR_IF_BITS_LOOP:
  50.     call    ifend        ; Drop down one level of IF
  51.     djnz    CLEAR_IF_BITS_LOOP
  52.  
  53.     jp    clrcl        ; Zap the command line
  54. 
  55. CLEAR_IF_BITS_LOOP:
  56.     call    ifend        ; Drop down one level of IF
  57.     djnz    CLEAR_IF_B