home *** CD-ROM | disk | FTP | other *** search
/ Flop Magazin 48 / Flop_Magazin_48_2005_05_Raster_cs_Side_A.atr / divide.asm < prev    next >
Assembly Source File  |  2023-02-26  |  1KB  |  1 lines
  1. ;----------------------------------¢;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¢;----------------------------------¢