Flop Magazin 48/Flop_Magazin_48_2005_05_Raster_cs_Side_A.atr/show10a.asm

Assembly Source File | 2023-02-26 | 1KB | 1 lines

;SHOW10A¢;Zobrazeni WORD cisla jako 5 decimalnich cifer za pomoci deleni 10¢;(c) raster/c.p.u.¢;¢zobraz_db   equ 204¢zobraz_hb   equ 205¢cislo_db    equ 206¢cislo_hb    equ 207¢;¢;------------------------¢;¢    org $3000¢;¢START¢    lda #0¢    sta 20      ;db citac casu¢    sta 19      ;hb citac casu¢    sta cislo_db¢    sta cislo_hb¢smy ;cislo=0 az 65535¢    lda cislo_db¢    sta zobraz_db¢    lda cislo_hb¢    sta zobraz_hb¢    jsr zobraz  ;zobrazi cislo¢    inc cislo_db¢    bne smy¢    inc cislo_hb¢    bne smy¢;hotovo, zobraz vysledny cas¢    lda 20      ;db casu v 1/50 sec¢    sta zobraz_db¢    lda 19      ;hb casu v 1/50 sec¢    sta zobraz_hb¢    jsr zobraz  ;zobrazi vysledny cas¢nek jmp nek¢;¢zobraz¢    ldy #4  ;5ti ciferny vysledek (4->0)¢deleni_wbwb¢    lda #0¢    ldx #16¢dd1 asl zobraz_db   ;delenec db¢    rol zobraz_hb   ;delenec hb¢    rol @¢    cmp #10     ;cmp delitel¢    bcc dd2¢    sbc #10     ;sbc delitel¢    inc zobraz_db¢dd2 dex¢    bne dd1¢    ;v zobraz_db a zobraz_hb zustava podil¢    ;v A zustava zbytek po operaci deleni¢    ora #16     ;0-9 => '0'-'9'¢    sta (88),y  ;do videopameti¢    dey         ;dalsi cifra¢    bne deleni_wbwb ;opakovat¢    ;posledni cifru (desetitisice) vezme uz primo¢    lda zobraz_db¢    ora #16         ;0-9 => '0'-'9'¢    sta (88),y      ;do videoram¢    rts¢;¢;------------------------¢;¢        RUN START¢;