_acia_scan:         lda ACIA_STATUS           ;nacte status ACIA
                    and #ACIA_STATUS_RX_FULL  ;porovna status s RX_full bitem
                    beq @end                  ;pokud je vysledek 0 skoci na @end, pokud ne tak pokracuje
                    lda ACIA_DATA             ;nacte do A data z ACIA
                    RTS                       ;vyskočí z podprogramu
@end:               LDA #00                   ;načte 0 do A
                    RTS                       ;vyskočí z podprogramu