Mercurial > hg > Members > kono > nitros9-code
view lib/kreiderclib/sets.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 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