Mercurial > hg > Members > kono > nitros9-code
view lib/kreiderclib/sets.as @ 2833:0f3030598435 lwtools-port
Really fix level 1 builds: Do not use os9 dcopy
Bugs in os9 dcopy make it run into infinite recursion before it
eventually dies of buffer overflow.
Instead use os9 makdir and copy, which was already used some places.
| author | Tormod Volden <debian.tormod@gmail.com> |
|---|---|
| date | Wed, 10 Jul 2013 19:09:05 +0200 |
| parents | 1647f1874cdf |
| children |
line wrap: on
line source
* Disassembly by Os9disasm of sets.r section code allocset: ldd #$0020 pshs d lbsr malloc puls x,pc addc2set: bsr L003a orb a,x stb a,x tfr x,d rts adds2set: pshs u ldu 6,s ldx 4,s bra L0021 L001b bsr L003e orb a,x stb a,x L0021 lda ,u+ bne L001b ldd 4,s puls u,pc rmfmset: bsr L003a comb andb a,x stb a,x clrb tfr x,d rts smember: bsr L003a andb a,x clra rts L003a ldx 4,s lda 7,s L003e pshs a ldb #1 anda #7 beq L004a L0046 lslb deca bne L0046 L004a puls a asra asra asra rts dupset: bsr allocset ldx 2,s pshs d,x bsr copyset puls d,x,pc copyset: pshs u ldx 4,s ldu 6,s ldb #$20 L0062 lda ,u+ sta ,x+ decb bne L0062 ldd 4,s puls u,pc sunion: pshs u ldu 4,s ldx 6,s ldb #$20 L0075 lda ,x+ ora ,u sta ,u+ decb bne L0075 ldd 4,s puls u,pc sinterse: pshs u ldu 4,s ldx 6,s ldb #$20 L008a lda ,x+ anda ,u sta ,u+ decb bne L008a ldd 4,s puls u,pc sdiffere: pshs u ldu 4,s ldx 6,s ldb #$20 L009f lda ,x+ eora ,u sta ,u+ decb bne L009f ldd 4,s puls u,pc endsect