Mercurial > hg > Members > kono > nitros9-code
view lib/kreiderclib/prof.as @ 3226:9749d0dfc4a2
Changed a puls PC to rts to save cycles
author | David Ladd <drencor-xeen@users.sourceforge.net> |
---|---|
date | Sat, 20 Jan 2018 19:32:22 -0600 |
parents | 1647f1874cdf |
children |
line wrap: on
line source
* Disassembly by Os9disasm of prof.r * class D external label equates D0000 equ $0000 D0001 equ $0001 D0020 equ $0020 * class X external label equates X2829 equ $2829 section bss * Uninitialized data (class B) B0000 rmb 504 * Initialized Data (class G) G0000 fdb B0000 G0002 fdb B01f8 endsect section code _prof: pshs u leau B0000,y bra L0018 L0008 ldd ,u cmpd 4,s bne L0016 leax 4,u lbsr _linc puls u,pc L0016 leau 8,u L0018 cmpu G0000,y bcs L0008 ldd G0000,y cmpd G0002,y bls L004a ldd G0000,y addd #-8 tfr d,u ldd 2,u beq L003f leax >L00b7,pcr tfr x,d bra L0041 L003f ldd 6,s L0041 std 2,u leax 4,u lbsr _linc bra L0071 L004a ldd G0000,y addd #8 std G0000,y subd #8 tfr d,u ldd 6,s std 2,u ldd 4,s std ,u leax 4,u pshs x bsr L006c neg D0000 neg D0001 L006c puls x lbsr _lmove L0071 puls u,pc _dumprof: pshs u lbsr pflinit leax _iob+13,y pshs x lbsr fflush leas 2,s leau B0000,y bra L00aa L0089 leax 4,u ldd 2,x pshs d ldd ,x pshs d ldd 2,u pshs d leax >L00c0,pcr pshs x leax _iob+26,y pshs x lbsr fprintf leas 10,s leau 8,u L00aa cmpu G0000,y bcs L0089 bra L00b5 _trace: pshs u L00b5 puls u,pc *L00b7 swi * swi * swi * swi * swi * swi * swi * swi * neg D0020 *L00c0 equ *-1 * bcs L00fb * com X2829 * bra L00ed * inc 4,s * tst D0000 endsect