.TITLE KMNCHN ; ; Copy the STRING argument into the chain area and pass ; processor control back to KMON. ; ; Called from FORTRAN IV by: ; CALL KMNCHN(LENGTH,STRING) ; Where: ; LENGTH - The number of bytes in STRING. ; STRING - Character string with command that is ; to be passed to KMON. ; .GLOBL KMNCHN .MCALL .EXIT .PSECT USER$D RW,D,LCL,REL,CON KMNCHN: TST (R5)+ ;Skip argument count MOV #510,R0 ;Build pointer to chain area MOV @(R5)+,(R0)+ ;Store length of command string MOV (R5)+,R1 ;Load address of the command string 1$: MOVB (R1)+,(R0)+ ;Copy a byte BNE 1$ ;Repeat till null located BIS #40,@#44 ;Set Special Chain Bit in JSW MOV #1000,SP ;Reset stack CLR R0 ;Request Hard Exit .EXIT .END