home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Syzygy Magazine 7
/
Syzygy_Magazine_7_1999___pl_Disk_2_of_2_Side_B.atr
/
banki.arc
/
BANKI.ASM
Wrap
Assembly Source File
|
1999-11-25
|
685b
|
1 lines
* Procedura tworzaca¢* tablice bankow BANT¢* W X zwraca liczbe bankow¢* (razem z podstawowym)¢* autor: Fox/Tqa, 23/08/99¢¢ opt 21¢ org $9200¢¢xmb0 equ $0000¢xmbx equ $4000¢xmb2 equ $8000¢xmb3 equ $c000¢bant equ $9000¢xmdt equ $9100¢¢ ldx #0¢ ldy #0¢ sei¢ sty $d40e¢ sty $d400¢ lda $d301¢ pha¢ lda xmb3¢ pha¢ lda xmb2¢ pha¢ lda xmb0¢ pha¢xmd1 sty $d301¢ lda xmbx¢ sta xmdt,y¢ iny¢ bne xmd1¢xmd2 sty $d301¢ sty xmbx¢ iny¢ bne xmd2¢ lda #$ff¢ sta xmb0¢ sta xmb2¢ sta xmb3¢xmd3 sty $d301¢ cpy xmbx¢ bne xmd4¢ tya¢ sta bant,x¢ inx¢xmd4 iny¢ bne xmd3¢xmd5 sty $d301¢ lda xmdt,y¢ sta xmbx¢ iny¢ bne xmd5¢ pla¢ sta xmb0¢ pla¢ sta xmb2¢ pla¢ sta xmb3¢ pla¢ sta $d301¢ lsr $d40e¢ cli¢ rts¢¢ end¢
