program3.txt

PROB2   START   0000
        EXTDEF  TEST,LENGTH
        EXTREF  RDREC,WRREC,BUFFER,BUFFEND
        LDA     #0
        STA     C
        LDA     LENGTH
        LDT     #600
        LDX     #0
        +JSUB   RDREC
        LDS     #3
LOOP    LDA     TABLE + 4
        COMP    #0
        +LDT    TEST
        JEQ     NEXT
        LDA     =C'EOF'
        LDA     C
        +JSUB   WRREC
        ADD     #1
        STA     C
        LTORG
        STA     C, X
NEXT    ADDR    S,X
        COMPR   X,T
        JLT     LOOP
LENGTH  RESW    1
C       RESW    1
TEST    WORD    BUFFEND-BUFFER
        WORD    LENGTH-10
        STA     FIVE
TABLE   RESW    200
FIVE    WORD    BUFFER+5
        WORD    LENGTH
BUFFER  RESW    4096
        END