home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Flop Magazin 47
/
Flop_Magazin_47_2004_04_Raster_cs_Side_A.atr
/
divide.asm
< prev
next >
Wrap
Assembly Source File
|
2023-02-26
|
919b
|
1 lines
;divide.asm¢;---------------------¢deleni_wbbb¢ lda delenec_hb¢ ldx #8¢dd1 asl delenec_db¢ rol @¢ cmp delitel¢ bcc dd2¢ sbc delitel¢ inc delenec_db¢dd2 dex¢ bne dd1¢ sta zbytek¢ rts¢;¢deleni_wwww¢ lda #0¢ sta zbytek_db¢ sta zbytek_hb¢ ldx #16¢dw1 asl delenec_db¢ rol delenec_hb¢ rol zbytek_db¢ rol zbytek_hb¢ lda zbytek_hb¢ cmp delitel_hb¢ bcc dw2¢ bne dw3¢ lda zbytek_db¢ cmp delitel_db¢ bcc dw2¢dw3 lda zbytek_hb¢ sbc delitel_hb¢ sta zbytek_hb¢ lda zbytek_db¢ sbc delitel_db¢ sta zbytek_db¢ inc delenec_db¢dw2 dex¢ bne dw1¢ rts¢;¢;Pozor - pro delenec i vysledny podil se pouzivaji stejne pametove bunky!¢delenec_db¢podil¢podil_db dta 0¢delenec_hb¢podil_hb dta 0¢delitel¢delitel_db dta 0¢delitel_hb dta 0¢zbytek¢zbytek_db dta 0¢zbytek_hb dta 0¢;---------------------¢