STORF #0.,TOTAL STORI #0.,NUMBER START: CALL $READ,RECORD,FLAG TEST FLAG BNE END COMPF RECORD(1),#18. BLT START COMPB RECORD(16.),'F' BNE START ADDF RECORD(2),TOTAL BR START END: CONVF NUMBER,NUMF STORF TOTAL,AVER DIVF AVER,NUMF CALL $PRINTS, STRING CALL $PRINTF, AVER CALL $EXIT RECORD: .WORD 9. TOTAL: .WORD 2 NUMBER: .WORD 1 ...
Slide show generated from sw.html by Weasel 2007 Mar 15