15-trash-world-news.asm

;XA

GRAB 300
;COUNT WORDS
MARK WORDCOUNT
TEST EOF
TJMP ENDCOUNT
ADDI X 1 X
SEEK 1
JUMP WORDCOUNT
MARK ENDCOUNT
SEEK -9999



MARK READF
COPY X M ;WORDCOUNT
TEST EOF
TJMP END
COPY F M
COPY F M
SUBI X 2 X
JUMP READF


MARK END



;XB

LINK 800
GRAB 200
LINK 800
DROP



;XC

LINK 800
LINK 799
GRAB 212


MARK NEWWORD
;GRAB WORDCOUNT
TEST M > 1
FJMP END
;GRAB FORB WORD
COPY M X

MARK READMSG
TEST F = X
FJMP READMSG
SEEK -1
;GRAB REPLACEMENT
COPY M F
SEEK -9999
JUMP NEWWORD

MARK END