; APPEND.ASM ; This is a simple program which is sometimes useful. It copies ; a to the END of . 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