Mercurial > hg > Members > kono > nitros9-code

diff lib/kreiderclib/id.as @ 2824:1647f1874cdf lwtools-port

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Added Kreidier C library
author Boisy Pitre <boisy.pitre@nuance.com>
date Thu, 23 May 2013 05:49:13 -0500
parents
children
line wrap: on
line diff
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/lib/kreiderclib/id.as	Thu May 23 05:49:13 2013 -0500
@@ -0,0 +1,46 @@
+* Disassembly by Os9disasm of id.r
+
+ section code
+
+* OS-9 system function equates
+
+F$ID equ $0c 
+F$SUser equ $1c 
+
+* class X external label equates
+
+X004b equ $004b 
+
+getpid: pshs  y 
+ os9 F$ID 
+ puls  y 
+ tfr   a,b 
+ clra   
+ rts    
+getuid: pshs  y 
+ os9 F$ID 
+ tfr   y,d 
+ puls  y,pc 
+asetuid: pshs  y 
+ bra   L0027 
+setuid: pshs  y 
+ bsr   getuid 
+ std   -2,s 
+ beq   L0027 
+ ldb   #$d6 
+L0022 puls  y 
+ lbra  _os9err 
+L0027 ldy   4,s 
+ os9 F$SUser 
+ bcc   L003b 
+ cmpb  #$d0 
+ bne   L0022 
+ tfr   y,d 
+ ldy   X004b 
+ std   9,y 
+L003b clra   
+ clrb   
+ puls  y,pc 
+
+ endsect  
+