Software
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