.title spwsub ;+ ; these routines set and clear the name of the foreground process ; in r$fgpc ;- .mcall dsar$s,enar$s .psect $r.roi,con,ro,rel,lcl,i .enabl lsb ; ; subroutine setfgd(buf) ; ap=%5 buf=2 setfgd:: dsar$s ; disable AST recognition mov buf(ap),r0 ; source string mov #r$fgpc,r1 ; destination address 10$: movb (r0)+,(r1)+ ; copy character bne 10$ ; if not EOS, do again enar$s ; enable AST recognition return ; ; subroutine clrfgd() ; clrfgd:: clrb r$fgpc ; no foreground process active return .end