view lib/kreiderclib/strass.as @ 2898:28ed72477814 lwtools-port

Dummy merge of default branch into lwtools hg -y merge --tool=internal:fail default hg revert --all --no-backup --rev . hg resolve -a -m This dummy merge discards any changes from the default branch so that the result is the same as what lwtools already had. When merging back to default branch later, the discarded changes will be discarded there also, so the result will be that the default branch will contain what the lwtools branch had before these merges. Only scripts/burst was "rescued" from default branch.
author Tormod Volden <debian.tormod@gmail.com>
date Sat, 11 Jan 2014 18:40:44 +0100
parents 1647f1874cdf
children
line wrap: on
line source

* Disassembly by Os9disasm of strass.r

 section code

_strass: pshs  y,u 
 ldu   6,s 
 ldy   8,s 
 ldd   10,s 
 lsra   
 rorb   
 tfr   d,x 
 bcc   L0013 
 lda   ,y+ 
 sta   ,u+ 
L0013 stx   -2,s 
 beq   L001f 
L0017 ldd   ,y++ 
 std   ,u++ 
 leax  -1,x 
 bne   L0017 
L001f puls  y,u,pc 

 endsect