view lib/kreiderclib/clcompare.as @ 3295:6b7a7b233925 default tip

makefile: Allow PORTS with level1/2 mix https://sourceforge.net/p/nitros9/feature-requests/10/
author Tormod Volden <debian.tormod@gmail.com>
date Tue, 19 Apr 2022 18:12:17 +0200
parents 1647f1874cdf
children
line wrap: on
line source

* Disassembly by Os9disasm of clcompare.r

 section code

_lcmpr: ldd   2,s 
 cmpd  ,x 
 bne   L0019 
 ldd   4,s 
 cmpd  2,x 
 beq   L0019 
 bcs   L0016 
 lda   #1 
 andcc #254 
 bra   L0019 
L0016 clra   
 cmpa  #1 
L0019 pshs  cc 
 ldd   1,s 
 std   5,s 
 puls  cc 
 leas  4,s 
 rts    

 endsect