home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / jsage / znode3 / uploads / zremot03.lbr / ZRAMSDVR.ZZ0 / ZRAMSDVR.Z80
Encoding:
Text File  |  1993-06-07  |  1.0 KB  |  60 lines
  1. ;**********************************************************
  2. ; ZREMOTE driver for AMSBIOS
  3. ;**********************************************************
  4.  
  5.     EXTRN    VRCI
  6.     EXTRN    VRCIS
  7.     EXTRN    VRCO
  8.     EXTRN    VRCOS
  9.     EXTRN    VLCOS
  10.  
  11. ;.....
  12. ; AUX INPUT/OUTPUT AND STATUS ROUTINES
  13.  
  14.     PUBLIC    AUXIN
  15.  
  16. AUXIN:
  17.  
  18.     PUBLIC    AUXOUT
  19.  
  20. AUXOUT:
  21.  
  22.     PUBLIC    AUXIST
  23.  
  24. AUXIST:
  25.  
  26.     PUBLIC    AUXOST
  27.  
  28. AUXOST:    XOR    A        ; Dummy routine
  29.     RET
  30.  
  31. ;.....
  32. ; CONSOLE OUTPUT STATUS ROUTINE
  33.  
  34.     PUBLIC    CONOST
  35.  
  36. CONOST:    CALL    VLCOS
  37.     AND    A
  38.     RET    Z        ; If local not ready, none are ready
  39.     CALL    CKREM        ; See if remote on line
  40.     LD    A,0FFH
  41.     RET    Z        ; If not
  42.     JP    VRCOS        ; Local is ready, check remote
  43.  
  44. ;.....
  45. ; CHECK REMOTE ACTIVE
  46.  
  47.     PUBLIC    CKREM
  48.  
  49. CKREM:    LD    A,(REMACT)    ; Get remote active flag
  50.     AND    A
  51.     RET    NZ        ; If active
  52.     CALL    VRCIS        ; Else see if we have anything yet
  53.     AND    A
  54.     RET    Z        ; Exit if nothing
  55.     LD    (REMACT),A
  56.     RET
  57.  
  58. REMACT:    DB    0
  59.     end
  60.