.title chcopy ; ; this routine implements the following fortran interface ; ; call chcopy(c, out, j) ; ; after the copy, j is incremented and an EOS is placed in out(j) ; ap=%5 c=2 out=4 j=6 chcopy:: mov out(ap),r0 ; address of out(1) in r0 mov @j(ap),r1 ; value of j in r1 dec r1 ; j-1 in r1 add r1,r0 ; address of out(j) in r0 movb @c(ap),(r0)+ ; copy character clrb (r0) ; write EOS(0) in next location inc @j(ap) ; increment j return .end