Retro68/gcc/newlib/libc/sys/a29khif/getenv.S

49 lines
1.7 KiB
ArmAsm
Raw Normal View History

2017-04-11 21:13:36 +00:00
; @(#)getenv.s 1.4 90/10/14 21:57:45, AMD
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; Copyright 1990 Advanced Micro Devices, Inc.
;
; This software is the property of Advanced Micro Devices, Inc (AMD) which
; specifically grants the user the right to modify, use and distribute this
; software provided this notice is not removed or altered. All other rights
; are reserved by AMD.
;
; AMD MAKES NO WARRANTY OF ANY KIND, EXPRESS OR IMPLIED, WITH REGARD TO THIS
; SOFTWARE. IN NO EVENT SHALL AMD BE LIABLE FOR INCIDENTAL OR CONSEQUENTIAL
; DAMAGES IN CONNECTION WITH OR ARISING FROM THE FURNISHING, PERFORMANCE, OR
; USE OF THIS SOFTWARE.
;
; So that all may benefit from your experience, please report any problems
; or suggestions about this software to the 29K Technical Support Center at
; 800-29-29-AMD (800-292-9263) in the USA, or 0800-89-1131 in the UK, or
; 0031-11-1129 in Japan, toll free. The direct dial number is 512-462-4118.
;
; Advanced Micro Devices, Inc.
; 29K Support Products
; Mail Stop 573
; 5900 E. Ben White Blvd.
; Austin, TX 78741
; 800-292-9263
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; getenv.s
; char *value = getenv( const char *name );
;
.file "getenv.s"
.include "sys/sysmac.h"
.text
.word 0x00030000 ; Debugger tag word
.global _getenv
.global __getenv
_getenv:
__getenv:
const tav,HIF_getenv @ asneq V_SYSCALL,gr1,gr1 ; HIF service trap
jmpti tav, lr0 ; If tav is true, were finished, return.
const tpc, _errno
consth tpc, _errno ; Otherwise,
store 0, 0, tav, tpc ; store error code in _errno,
jmpi lr0 ; then return
const v0, 0 ; with a value of 0 (NULL pointer).
.end