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 / CPM3 / HISTPLUS.LBR / HISTCL.MAC < prev    next >
Text File  |  2000-06-30  |  512b  |  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.