;       APPEND.ASM
;       This is a simple program which is sometimes useful. It copies
;       a <file1> to the END of <file2>. If file2 does not exist a simple
;       copy operation is performed. It also does a fixup on a problem
;       sometimes seen, multiple carriage returns are reduced to one.
;       Unfortunately it needs MAC so if you don't have it get the COM
;       file for APPEND if you can.
;                                       Jack Riley (303) 499-9169 RCPM.

;       Useage: APPEND file1 file2

       maclib seqio22
BSIZE   EQU 4096

       org 100h
       LXI     H,0
       DAD     SP
       SHLD    STACK
       LXI     SP,STACK

       file    infile,inp,,1,,BSIZE
       file    append,outp,,2,,BSIZE

       xra a
       mov b,a

loop:   get inp
       cpi eof
       jz  quit
       cmp b
       mov b,a
       jnz cont
       cpi 0dh
       jz  loop        ; don't duplicate any carriage returns

cont:   put outp
       jmp loop

quit:   finis outp

EXIT    LHLD    STACK
       SPHL
       RET

       DS      50      ;STACK
STACK   DW      0
buffers EQU $
       end

You are viewing proxied material from gopher.floodgap.com. The copyright of proxied material belongs to its original authors. Any comments or complaints in relation to proxied material should be directed to the original authors of the content concerned. Please see the disclaimer for more details.