home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / cpm / bbs / emx-util.lbr / STANDBY.MZC / STANDBY.MAC
Encoding:
Text File  |  1988-01-30  |  768 b   |  43 lines
  1. ;
  2. ; Suspend remote output
  3. ;
  4. ; ==> Does not need EMXSUBS.REL <==
  5. ; ==> Ignore L80 generated errors that reference 'undefined globals'
  6. ;
  7.     ASEG
  8.     .Z80
  9.     ORG    100H
  10. ;
  11.     JP    START
  12. ;
  13.     INCLUDE    EMXHDR.MAC    ; Need the addresses
  14. ;
  15. START::    LD    HL,0
  16.     ADD    HL,SP
  17.     LD    (CCPSTK),HL
  18.     LD    SP,STACK
  19. ;
  20. ; Dirst tell user that output is halting (maybe he won't hang up)
  21. ;
  22.     LD    DE,MSG
  23.     LD    C,9
  24.     CALL    5
  25. ;
  26. ; Now set remote output OFF
  27. ;
  28.     LD    A,1        ; 1=no send, 0=send
  29.     LD    (NOROUT),A    ; Tell bye not to send
  30.     LD    HL,(CCPSTK)
  31.     LD    SP,HL
  32.     RET
  33. ;
  34. MSG::    DB    13,10,7
  35.     DB    'Halting remote output, please standby.....$'
  36. ;
  37.     DS    16
  38. ;
  39. STACK::    DW    0
  40. CCPSTK::DW    0
  41. ;
  42.     END
  43.