toolchain/gcc/libgloss/pa/op50n-io.S

   1 /* op50n-io.S -- low-level I/O routines for the Oki OP50N eval board.
   2  *
   3  * Copyright (c) 1995 Cygnus Support
   4  *
   5  * The authors hereby grant permission to use, copy, modify, distribute,
   6  * and license this software and its documentation for any purpose, provided
   7  * that existing copyright notices are retained in all copies and that this
   8  * notice is included verbatim in any distributions. No written agreement,
   9  * license, or royalty fee is required for any of the authorized uses.
  10  * Modifications to this software may be copyrighted by their authors
  11  * and need not follow the licensing terms described here, provided that
  12  * the new terms are clearly indicated on the first page of each file where
  13  * they apply.
  14  */
  15
  16 mon_start       .EQU    0xd0000000
  17 where_dp        .EQU    mon_start+4*4
  18 where_ci        .EQU    mon_start+14*4
  19 where_co        .EQU    mon_start+15*4
  20 where_read      .EQU    mon_start+22*4
  21 where_write     .EQU    mon_start+23*4
  22
  23 /*
  24  *int c = inbyte(wait);
  25  */
  26         .space $TEXT$
  27         .align 4
  28         .EXPORT inbyte,CODE,ARGW0=GR,RTNVAL=GR
  29 inbyte
  30         .PROC
  31         .CALLINFO CALLER,FRAME=64,SAVE_RP
  32         .ENTRY
  33         stw     %r2,-20(0,%r30)
  34         ldo     64(%r30),%r30
  35         stw     %r27,-56(0,%r30)        ; save my dp
  36         ldil    l%where_dp,%r27         ; load monitors dp
  37         ldw     r%where_dp(0,%r27),%r27
  38         ldil    l%where_ci,%r1
  39         ldw     r%where_ci(0,%r1),%r1
  40         ble     0(0,%r1)
  41         copy    %r31,%r2
  42         ldw     -56(0,%r30),%r27        ; load my dp
  43         ldw     -84(0,%r30),%r2
  44         ldo     -64(%r30),%r30
  45         bv      %r0(%r2)
  46         nop
  47         .EXIT
  48         .PROCEND
  49
  50 /* int c = outbyte(c);
  51 */
  52         .EXPORT outbyte,CODE,ARGW0=GR,RTNVAL=GR
  53 outbyte
  54         .PROC
  55         .CALLINFO CALLER,FRAME=64,SAVE_RP
  56         .ENTRY
  57         stw     %r2,-20(0,%r30)
  58         ldo     64(%r30),%r30
  59         stw     %r27,-56(0,%r30)        ; save my dp
  60         ldil    l%where_dp,%r27         ; load monitors dp
  61         ldw     r%where_dp(0,%r27),%r27
  62         ldil    l%where_co,%r1
  63         ldw     r%where_co(0,%r1),%r1
  64         ble     0(0,%r1)
  65         copy    %r31,%r2
  66         ldw     -56(0,%r30),%r27        ; load my dp
  67         ldw     -84(0,%r30),%r2
  68         ldo     -64(%r30),%r30
  69         bv      %r0(%r2)
  70         nop
  71         .EXIT
  72         .PROCEND
  73
  74 #if 0
  75 /* cnt = read(fd, bufp, cnt);
  76 */
  77         .EXPORT read,CODE,ARGW0=NO,ARGW1=NO,ARGW2=NO,ARGW3=NO,RTNVAL=NO
  78 read
  79         .PROC
  80         .CALLINFO FRAME=64,CALLS,SAVE_RP
  81         .ENTRY
  82         stw     %r2,-20(0,%r30)
  83         ldo     64(%r30),%r30
  84         stw     %dp,-56(0,%r30) ; save my dp
  85         ldil    l%where_dp,%dp  ; load monitors dp
  86         ldw     r%where_dp(0,%dp), %dp
  87         ldil    l%where_read,%r1
  88         ldw     r%where_read(0,%r1), %r1
  89         ble     0(0,%r1)
  90         copy    %r31,%r2
  91         ldw     -56(0,%r30),%dp ; load my dp
  92         ldw     -84(0,%r30),%r2
  93         bv      %r0(%r2)
  94         ldo     -64(%r30),%r30
  95         .EXIT
  96         .PROCEND
  97
  98 /* cnt = write(fd, bufp, cnt);
  99 */
 100         .EXPORT write,CODE,ARGW0=NO,ARGW1=NO,ARGW2=NO,ARGW3=NO,RTNVAL=NO
 101 write
 102         .PROC
 103         .CALLINFO FRAME=64,CALLS,SAVE_RP
 104         .ENTRY
 105         stw     %r2,-20(0,%r30)
 106         ldo     64(%r30),%r30
 107         stw     %dp,-56(0,%r30) ; save my dp
 108         ldil    l%where_dp,%dp  ; load monitors dp
 109         ldw     r%where_dp(0,%dp), %dp
 110         ldil    l%where_write,%r1
 111         ldw     r%where_write(0,%r1), %r1
 112         ble     0(0,%r1)
 113         copy    %r31,%r2
 114         ldw     -56(0,%r30),%dp ; load my dp
 115         ldw     -84(0,%r30),%r2
 116         bv      %r0(%r2)
 117         ldo     -64(%r30),%r30
 118         .EXIT
 119         .PROCEND
 120 #endif