Mercurial > hg > Members > kono > nitros9-code

diff lib/kreiderclib/chown.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/chown.as	Thu May 23 05:49:13 2013 -0500
@@ -0,0 +1,46 @@
+* Disassembly by Os9disasm of chown.r
+
+ section code
+
+* OS-9 system function equates
+
+F$ID equ $0c 
+I$Open equ $84 
+I$GetStt equ $8d 
+I$SetStt equ $8e 
+I$Close equ $8f 
+
+chown: pshs  y,u 
+ leas  -16,s 
+ os9 F$ID 
+ bcs   L002a 
+ ldb   #$d6 
+ cmpy  #0 
+ orcc  #1 
+ bne   L002a 
+ bsr   L0032 
+ bcs   L002a 
+ pshs  a 
+ ldd   25,s 
+ std   1,x 
+ puls  a 
+ ldb   #$0f 
+ os9 I$SetStt 
+ bcs   L002a 
+ os9 I$Close 
+L002a leas  16,s 
+ puls  y,u 
+ lbra  _sysret 
+L0032 lda   #2 
+ ldx   24,s 
+ os9 I$Open 
+ bcc   L003d 
+ rts    
+L003d leax  2,s 
+ ldy   #$0010 
+ ldb   #$0f 
+ os9 I$GetStt 
+ rts    
+
+ endsect
+