home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / jsage / znode3 / uploads / zremot03.lbr / ZRAMPRO.ZZ0 / ZRAMPRO.Z80
Encoding:
Text File  |  1993-06-07  |  1.3 KB  |  83 lines
  1. ;**********************************************************
  2. ; ZREMOTE driver for AMPRO DART B
  3. ;**********************************************************
  4.  
  5. ;    port addressing     (Ampro Little Board DART B)
  6.  
  7. SAD    EQU    88H        ; Sio a data
  8. SAC    EQU    8CH        ; Sio a control
  9. SAS    EQU    8CH        ; Sio a status
  10.  
  11.     EXTRN    VRCI
  12.     EXTRN    VRCIS
  13.     EXTRN    VRCO
  14.     EXTRN    VRCOS
  15.     EXTRN    VLCOS
  16.  
  17. ;.....
  18. ; AUX INPUT/OUTPUT AND STATUS ROUTINES
  19.  
  20.     PUBLIC    AUXIN
  21.  
  22. AUXIN:
  23.     CALL    AUXIST
  24.     JR    Z,AUXIN
  25.     IN    A,(SAD)
  26.     RET
  27.  
  28.     PUBLIC    AUXOUT
  29.  
  30. AUXOUT:
  31.     CALL    AUXOST
  32.     JR    Z,AUXOUT
  33.     LD    A,C
  34.     OUT    (SAD),A
  35.     RET
  36.  
  37.     PUBLIC    AUXIST
  38.  
  39. AUXIST:
  40.     IN    A,(SAC)
  41.     AND    1
  42. RETST:    RET    Z
  43.     LD    A,0FFH
  44.     RET
  45.  
  46.     PUBLIC    AUXOST
  47.  
  48. AUXOST:
  49.     IN    A,(SAS)
  50.     AND    4
  51.     JR    RETST
  52.  
  53. ;.....
  54. ; CONSOLE OUTPUT STATUS ROUTINE
  55.  
  56.     PUBLIC    CONOST
  57.  
  58. CONOST:    CALL    CKREM        ; See if remote on line
  59.     LD    A,0FFH
  60.     RET    Z        ; If not
  61.     JR    AUXOST        ; Local is ready, check remote
  62.  
  63. ;.....
  64. ; CHECK REMOTE ACTIVE
  65.  
  66.     PUBLIC    CKREM
  67.  
  68. CKREM:    LD    A,10H
  69.     OUT    (SAC),A        ; RESET EXT/STATUS
  70.     IN    A,(SAS)
  71.     AND    00100000B    ; MASK FOR CTS
  72.     RET
  73.  
  74. ;    LD    A,(REMACT)
  75. ;    AND    A
  76. ;    RET    NZ        ; IF ALREADY ACTIVE
  77. ;    CALL    AUXIST
  78. ;    RET    Z        ; IF NOT ACTIVE YET
  79. ;    LD    (REMACT),A
  80. ;    RET
  81. ;REMACT:    DEFB    0
  82.     END
  83.