home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / cpm / cpm3 / histplus.lbr / HISTCL.MAC < prev    next >
Encoding:
Text File  |  1986-07-27  |  512 b   |  26 lines
  1. ;
  2. ;HISTCL.MAC  07/25/86  Jim Lopushinsky
  3. ;
  4. ; A little program to clear history buffer area in
  5. ; the History RSX.
  6.  
  7.     .z80
  8.  
  9. bdos    equ    5
  10.  
  11. main:
  12.     ld    de,histcl
  13.     ld    c,60
  14.     call    bdos            ; Clear history buffer
  15.     or    a            ; history RSX there?
  16.     jp    z,0            ; Warm boot if ok
  17.     ld    de,nohist        ; Tell user that RSX is not
  18.                     ;    in memory
  19.     ld    c,9
  20.     jp    bdos
  21.  
  22. nohist:        db    13,10,'History RSX not found$'
  23. histcl:        db    56        ; Function to clear history buffer
  24.  
  25.     end    main
  26.