fig2.10.asm

. changed: device number 05 to 01
COPY    START   0
FIRST   STL     RETADR
        LDB    #LENGTH
        BASE    LENGTH        
CLOOP  +JSUB    RDREC
        LDA     LENGTH
        COMP   #0
        JEQ     ENDFIL
       +JSUB    WRREC
        J       CLOOP
ENDFIL  LDA    =C'EOF'
        STA     BUFFER
        LDA    #3
        STA     LENGTH
       +JSUB    WRREC
        J      @RETADR
        LTORG
RETADR  RESW    1
LENGTH  RESW    1
BUFFER  RESB    4096
BUFFEND EQU     *
MAXLEN  EQU     BUFFEND-BUFFER
.
.       Subroutine to read record into buffer
.
RDREC   CLEAR   X
        CLEAR   A
        CLEAR   S
       +LDT    #MAXLEN
RLOOP   TD     =X'F1'
        JEQ     RLOOP
        RD     =X'F1'
        COMPR   A,S
        JEQ     EXIT
        STCH    BUFFER,X
        TIXR    T
        JLT     RLOOP
EXIT    STX     LENGTH
        RSUB
        LTORG
.
.       Subroutine to write record from buffer
.
WRREC   CLEAR   X
        LDT     LENGTH
WLOOP   TD     =X'01'
        JEQ     WLOOP
        LDCH    BUFFER,X
        WD     =X'01'
        TIXR    T
        JLT     WLOOP
        RSUB
        END     FIRST