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

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/skip.as	Thu May 23 05:49:13 2013 -0500
@@ -0,0 +1,24 @@
+* Disassembly by Os9disasm of skip.r
+
+ section code
+
+skipbl: ldx   2,s 
+L0002 ldb   ,x+ 
+ cmpb  #$20 
+ beq   L0002 
+ cmpb  #9 
+ beq   L0002 
+ bra   L001c 
+skipwd: ldx   2,s 
+L0010 ldb   ,x+ 
+ beq   L001c 
+ cmpb  #$20 
+ beq   L001c 
+ cmpb  #9 
+ bne   L0010 
+L001c leax  -1,x 
+ tfr   x,d 
+ rts    
+
+ endsect  
+