;Compute the mean average of four numbers. LDA 0,i ; Clear AC STRO msg1,d DECI NEXT,d ; Get first # ADDA NEXT,d ; Add first # STRO msg2,d DECI NEXT,d ; Get next # ADDA NEXT,d ; Add it STRO msg2,d DECI NEXT,d ADDA NEXT,d STRO msg2,d DECI NEXT,d ADDA NEXT,d STA SUM,d ASRA ; Divide by 4 ASRA STA AVG,d ; NOTE: fractions are lost! STRO msg3,d DECO AVG,d STOP NEXT: .BLOCK 2 SUM: .BLOCK 2 AVG: .BLOCK 2 msg1: .ASCII "enter first number: " .BYTE 0 msg2: .ASCII "enter next number: " .BYTE 0 msg3: .ASCII "The mean average is: " .BYTE 0 .END