.TITLE SCLI Set Command Line Interpreter .IDENT "V1.0" .ENABL LC .PSECT C$CODE ;+ ; Index SCLI Set Command Line Interpreter ; ; ; Usage ; ; #include ; rad50 clinam[2]; /* RAD50 CLI name */ ; char *tiname; /* TI: device name */ ; word tiunit; /* TI: unit number */ ; word status; /* Returned DSW */ ; ; status = scli(clinam, tiname, tiunit); ; ; Notes ; ; Issuing task must be privileged or a CLI. ; [end] ;- ; Edits: ; V1.0 20-Oct-82 RBD Initial edit ; .mcall scli$s scli:: mov sp,r0 ; r0 --> calling stack mov r2,-(sp) ; Save r2 clr r2 ; r2 will be packed device name mov 4(r0),r1 ; r1 --> TI: name string beq 10$ ; (none given) bisb 1(r1),r2 ; Get hi byte of TI: name swab r2 ; into position bisb (r1),r2 ; Get lo byte of TI: name .mcall mvb$ ; This was a bug in the RSXMAC macro 10$: scli$s 2(r0),r2,6(r0) ; Set CLI mov $dsw,r0 ; Return DSW mov (sp)+,r2 ; Restore r2 return .end