Mercurial > hg > Members > kono > nitros9-code

view lib/kreiderclib/chown.as @ 3136:820bc08befa5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Add new sysgo variant from Bob Devries with sysgo.cfg support Add the text file "level2/sys/sysgo.cfg" to faciliate the new "sysgo_bd".
author Bill Pierce <merlinious999@gmail.com>
date Sat, 04 Feb 2017 02:10:35 +0100
parents 1647f1874cdf
children
line wrap: on
line source

* 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