Mercurial > hg > Members > kono > nitros9-code
view lib/kreiderclib/pflinit.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 source
* Disassembly by Os9disasm of pflinit.r * class D external label equates D003b equ $003b section bss * Uninitialized data (class B) B0000 rmb 20 * Initialized Data (class G) G0000 fcb $3b fcb $9a fcb $ca fcb $00 fcb $05 fcb $f5 fcb $e1 fcb $00 fcb $00 fcb $98 fcb $96 fcb $80 fcb $00 fcb $0f fcb $42 fcb $40 fcb $00 fcb $01 fcb $86 fcb $a0 fcb $00 fcb $00 fcb $27 fcb $10 fcb $00 fcb $00 fcb $03 fcb $e8 fcb $00 fcb $00 fcb $00 fcb $64 fcb $00 fcb $00 fcb $00 fcb $0a endsect section code pflinit: rts pflong: pshs u leau B0000,y pshs u ldb 7,s cmpb #$64 beq L0074 cmpb #$6f beq L0023 cmpb #$78 beq L0049 cmpb #$58 beq L0049 lda #$6c std ,u++ L001f clr ,u puls d,u,pc L0023 leax 8,s L0025 ldb 3,x andb #7 addb #$30 stb ,u+ ldb #3 bsr L0035 bne L0025 bra L006b L0035 lsr ,x ror 1,x ror 2,x ror 3,x decb bne L0035 lda ,x ora 1,x ora 2,x ora 3,x rts L0049 andb #$20 pshs b leax 9,s L004f ldb 3,x andb #$0f pshs b lda #$30 cmpb #9 ble L005f lda #$37 adda 1,s L005f adda ,s+ sta ,u+ ldb #4 bsr L0035 bne L004f leas 1,s L006b ldx ,s clr ,u lbsr frevers puls d,u,pc L0074 ldb 8,s bpl L00a3 ldd #0 subd 10,s std 10,s ldd #0 sbcb 9,s sbca 8,s std 8,s cmpd #$8000 bne L009f ldd 2,x bne L009f leax >L00f1,pcr L0096 lda ,x+ sta ,u+ bne L0096 L009c lbra L001f L009f ldb #$2d stb ,u+ L00a3 leax G0000,y clra ldb #$0a pshs a pshs d bra L00e3 L00b0 inc ,s L00b2 ldd 13,s subd 2,x std 13,s ldd 11,s sbcb 1,x sbca ,x std 11,s bcc L00b0 ldd 13,s addd 2,x std 13,s ldd 11,s adcb 1,x adca ,x std 11,s ldb ,s tst 2,s bne L00db tstb beq L00df inc 2,s L00db addb #$30 stb ,u+ L00df leax 4,x clr ,s L00e3 dec 1,s bne L00b2 ldb 14,s addb #$30 stb ,u+ leas 3,s bra L009c L00f1 blt L0125 leay -12,y pulu b,x,y fcb $38 leau -10,y pshs dp,x,y fcb $00 endsect