.TITLE QIO Queue I/O Request .IDENT "V1.2" .ENABL LC .PSECT C$CODE ;+ ; Index QIO Queue I/O Request ; ; Usage ; ; #include ; #include /* I/O Function codes */ ; #Include /* I/O Status return codes */ ; word func; /* I/O function code */ ; word lun; /* Logical unit number */ ; word eflag; /* Event flag number */ ; word iosb[2]; /* I/O status block */ ; {typ} astsrv(); /* AST service routine */ ; int devpar[6]; /* Array of 6 parameters */ ; word status; /* Returned DSW */ ; ; status = qio(func,lun,eflag,iosb,astsrv,devpar); ; ; Notes ; ; #include for FDX/HDX terminal driver ; function, subfunction and return status codes. ; [end] ;- ; Edits: ; V1.0 12-Jun-80 RBD Initial Edit ; V1.1 08-Sep-80 RBD Restore r1 from stack ; V1.2 20-Oct-82 RBD Change P-Section. Fix documentation. ; .mcall qio$s qio:: mov r1,-(sp) ;save r1 mov sp,r0 ;r0 --> stack frame mov 16(r0),r1 ;r1 --> device dependent parameters qio$s 4(r0),6(r0),10(r0),,12(r0),14(r0),<(r1),2(r1),4(r1),6(r1),10(r1),12(r1)> mov $dsw,r0 ;return dsw mov (sp)+,r1 ;01 return .end