home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / cpm / 22rsx / byestuff.ark.2 / BYE.MAC < prev    next >
Encoding:
Text File  |  1985-12-16  |  1.1 KB  |  49 lines
  1. ; Linkage to ANSWER.PCD via ENDCALL.
  2. ;
  3. ; This program prevents the user from using i/o redirection.
  4. ; It also avoids the present glitch in CCPXTEND that causes the
  5. ; path to be cut short of RUNPCD after some programs have run.
  6. ; ENDCALL is responsible for ensuring that the caller has
  7. ; been properly disconnected.  This operation allows normal
  8. ; call termination operations to be injected, and a message to
  9. ; the departing user.
  10. ;
  11. cr    equ    0dh
  12. lf    equ    0ah
  13. tstr    equ    9
  14. setdma    equ    26
  15. chain    equ    47
  16. bdos    equ    5
  17. boot    equ    0
  18. ;
  19.     aseg
  20.     org    0100h
  21.     lxi    sp,stack
  22.     lxi    d,msg1
  23.     mvi    c,tstr
  24.     call    bdos;        last words to user
  25.     mvi    c,87
  26.     mvi    e,65;        hang up modem
  27.     call    bdos
  28.     mvi    e,0
  29.     mvi    c,84
  30.     call    bdos;        set state back to 0, remoff
  31.     lxi    d,endcal
  32.     mvi    c,setdma
  33.     call    bdos
  34.     mvi    c,chain;    run the endcall program
  35.     call    bdos;        should never return
  36.     lxi    d,norsx
  37.     mvi    c,tstr;        if it does BYERSX is not up
  38.     call    bdos
  39.     jmp    boot
  40. ;
  41. msg1:    db    cr,lf,cr,lf
  42.     db    'Goodbye, call again',cr,lf,cr,lf,cr,lf,'$'
  43. norsx:    db    cr,lf,'BYERSX not running, can''t chain$'
  44. ;
  45. endcal:    db    'ENDCALL',0;    put at end for easy patching
  46.     ds    64
  47. stack:
  48.     end
  49. ╘╞