coms

an anonymous user · June 30, 2020 · Assembly
br main
X:     .word 0x0001
Y:     .word 0x0001
Z:     .block 2
limit: .block 2
blank: .ASCII" \x00";
main:   deci limit,d;
        deci X,d;
loop    charo blank,d;
        deco Y,d;
        Ida X,d;
        adda Y,d;
        sta Z,d;
        Ida Y,d;
        sta X,d;
        Ida Z,d;
        sta Y,d;
        suba limit,d;
        brle loop;
        stop;
.end
    

Comments

Please sign up or log in to contribute to the discussion.