home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Flop Magazin 48
/
Flop_Magazin_48_2005_05_Raster_cs_Side_A.atr
/
divide.asm
< prev
next >
Wrap
Assembly Source File
|
2023-02-26
|
1KB
|
1 lines
;----------------------------------¢;divide.asm¢;Opravena a rozsirena verze 2005/01¢;----------------------------------¢;¢;BYTE7 = $00-$7f¢;BYTE8 = $00-$ff¢;WORD15 = $0000-$7fff¢;WORD16 = $0000-$ffff¢;¢;WORD15/BYTE7=BYTE8 (zbytek BYTE7)¢;POZOR: Tato rutina funguje spravne pouze v pripadech, kdy je vysledny podil maximalne $FF !!!¢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¢;¢;WORD16/BYTE7=WORD16 (zbytek BYTE7)¢deleni_wbwb¢ lda #0¢ ldx #16¢de1 asl delenec_db¢ rol delenec_hb¢ rol @¢ cmp delitel¢ bcc de2¢ sbc delitel¢ inc delenec_db¢de2 dex¢ bne de1¢ sta zbytek¢ rts¢;¢;WORD16/WORD16=WORD16 (zbytek WORD16)¢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_db¢ sbc delitel_db¢ sta zbytek_db¢ lda zbytek_hb¢ sbc delitel_hb¢ sta zbytek_hb¢ 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¢;----------------------------------¢