Mercurial > hg > Members > kono > nitros9-code

diff lib/kreiderclib/system.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/system.as	Thu May 23 05:49:13 2013 -0500
@@ -0,0 +1,58 @@
+* Disassembly by Os9disasm of system.r
+
+ section code
+
+* class D external label equates
+
+D0000 equ $0000 
+
+* class X external label equates
+
+X6865 equ $6865 
+
+system: pshs  u 
+ ldd   #$ff5a 
+ lbsr  _stkcheck 
+ leas  -86,s 
+ ldd   #$0051 
+ ldu   90,s 
+ leax  ,s 
+ pshs  d 
+ pshs  x,u 
+ lbsr  strncpy 
+ leas  6,s 
+ clr   80,s 
+ leax  >L0066,pcr 
+ pshs  d,x 
+ lbsr  strcat 
+ leas  4,s 
+ clra   
+ clrb   
+ pshs  d 
+ incb   
+ pshs  d 
+ pshs  d 
+ leax  6,s 
+ pshs  x 
+ pshs  x 
+ lbsr  strlen 
+ std   ,s 
+ leax  >L0061,pcr 
+ pshs  x 
+ lbsr  os9fork 
+ leas  12,s 
+ std   82,s 
+L004c leax  84,s 
+ pshs  x 
+ lbsr  wait 
+ leas  2,s 
+ cmpd  82,s 
+ bne   L004c 
+ leas  84,s 
+ puls  d,u,pc 
+L0061 com   X6865 
+ inc   12,s 
+L0066 tst   D0000 
+
+ endsect  
+