.TITLE ELVT Eliminate virtual terminal .IDENT "GWM01" .ENABL LC .PSECT C$CODE ;+ ; Index ELVT Eliminate virtual terminal ; ; ; Usage ; ; ; #include ; word unit; /* virtual terminal unit number */ ; word status; /* returned DSW */ ; ; status = elvt(unit); ; ; ; [end] ;- ; Edits: ; GWM01 28-JUN-85 Initial version G. Merriman Associated Press ; .mcall elvt$s elvt:: mov sp,r0 ;r0 --> parameters stack frame elvt$s 2(r0) mov $dsw,r0 ;return dsw return .end