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 / RCPM / BYESUB.AQM / BYESUB.ASM
Assembly Source File  |  2000-06-30  |  2KB  |  73 lines
  1. ;
  2. ;                          BYESUB.ASM
  3. ;         A routine to load/run a .com file on request
  4. ; 
  5. ;   When used by itself, or, as intended, as a called subroutine for
  6. ;RCP/M conditional logoffs, (security violation, overstayers, etc.),
  7. ;this routine will make use of the autorun feature buried in the CCP 
  8. ;module of CP/M. The file specified at the equate near the end of the 
  9. ;program will be loaded into the ccp command buffer, and the ccp will
  10. ;be cold started. This will act as if the name had been typed in at
  11. ;the console, and the return key hit.
  12. ;
  13. ;   Note that the value of CPR is system dependant. This must be 
  14. ;changed for your paticular system.
  15. ;
  16. ;              ----------------------------------
  17. ;
  18. ;------------------
  19. ;   Mods / Fixes  :
  20. ;------------------
  21. ;
  22. ;11/06/82    Initial Release
  23. ;
  24. ;            Mark J. Pulver
  25. ;            AIMS  (312) 789-0499
  26. ;
  27. ;
  28. ;-----------------
  29. ;   Code starts  :
  30. ;-----------------
  31. ;
  32. CPR    EQU    0C700H    ;ccp cold start
  33. CBUFF    EQU    CPR+7    ;address of command length pointer
  34. CIVAL    EQU    CPR+8    ;address of command buffer
  35. CIBPTR    EQU    CPR+59H    ;address of pointer to ccp command buffer
  36. ;
  37. OFFSET    EQU    0
  38. ;
  39. ;
  40.     ORG    0100H
  41. ;
  42. BYE:    EQU    $+OFFSET
  43.     LHLD    BYEFIL        ;get length
  44.     MOV    B,L        ;B needs it for MOVE
  45.     LXI    H,BYEFIL    ;get name of file
  46.     LXI    D,CBUFF        ;where its going
  47.     CALL    MOVE        ;move name into buffer
  48.     LXI    H,CIVAL        ;get command buffer location
  49.     SHLD    CIBPTR        ;stuff it in pointer
  50.     LDA    USER
  51.     MOV    C,A        ;C must have user/drive
  52.     JMP    CPR        ;cold start ccp
  53. ;
  54. MOVE:    EQU    $+OFFSET    ;hl to de length in b
  55.     MOV    A,M
  56.     STAX    D
  57.     INX    D
  58.     INX    H
  59.     DCR    B
  60.     JNZ    MOVE
  61.     RET
  62. ;
  63. USER:    EQU    $+OFFSET
  64.     DB    0            ;user/drive spec for file,
  65.                     ;follows 0004h conventions
  66. BYEFIL:    EQU    $+OFFSET
  67.     DB    5,'BYE',0        ;comfile to run
  68. ;command length ^       ^- - - "0" must be here
  69. ;+2 for first and last bytes
  70. ;
  71. ;
  72.     END
  73.