home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / cpm / cpm3 / histplus.lbr / HIST.MAC < prev    next >
Encoding:
Text File  |  1986-07-27  |  896 b   |  41 lines
  1. ;
  2. ;HIST.MAC  07/25/86  Jim Lopushinsky
  3. ;
  4. ; Copyright (c) 1986 Jim Lopushinsky
  5. ;
  6. ; Requires Z80 processor and CP/M Plus
  7. ;
  8. ; Loader for History RSX module.  Initializes the RSX by calling
  9. ;  the RSX using RSX function 55 (Initialize History RSX).
  10. ; If an History RSX is already active, then removes old RSX and
  11. ; the one just loaded.
  12. ;
  13. ; Assemble by:
  14. ;    M80 =HIST
  15. ;    L80 HIST,HIST/N/E
  16. ;    M80 =HISTRSX
  17. ;    LINK HISTRSX[OP]
  18. ;    ERASE HISTRSX.RSX
  19. ;    RENAME HISTRSX.RSX=HISTRSX.PRL
  20. ;    GENCOM HIST HISTRSX
  21.  
  22.     .z80
  23.  
  24. bdos    equ    5
  25.  
  26. main:
  27.     ld    de,histrsx
  28.     ld    c,60
  29.     call    bdos            ; Call History RSX
  30.     or    a            ; Did anyone respond?
  31.     jp    z,0            ; Warm boot if all ok
  32.     ld    de,nohist        ; Tell user that RSX is
  33.                     ;    not attached.
  34.     ld    c,9
  35.     jp    bdos
  36.  
  37. nohist:        db    13,10,'History RSX not found$'
  38. histrsx:    db    55        ; Function to init history RSX
  39.  
  40.     end    main
  41.