Mercurial > hg > Members > kono > nitros9-code

view lib/kreiderclib/id.as @ 2833:0f3030598435 lwtools-port

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Really fix level 1 builds: Do not use os9 dcopy Bugs in os9 dcopy make it run into infinite recursion before it eventually dies of buffer overflow. Instead use os9 makdir and copy, which was already used some places.
author Tormod Volden <debian.tormod@gmail.com>
date Wed, 10 Jul 2013 19:09:05 +0200
parents 1647f1874cdf
children
line wrap: on
line source

* 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