.TITLE QIOW Queue I/O Request and Wait .IDENT "V1.2" .ENABL LC .PSECT C$CODE ;+ ; Index QIOW Queue I/O Request and wait ; ; 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 = qiow(func,lun,eflag,iosb,astsrv,devpar); ; ; Notes ; ; #include for FDX/HDX terminal driver ; function, subfunction and return status codes. ; ; A Non-zero event flag number must be supplied or the ; function will return prior to completion of the I/O ; request (i.e., the wait will fail). ;- ; 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 qiow$s qiow:: mov r1,-(sp) ;save r1 mov sp,r0 ;r0 --> stack frame mov 16(r0),r1 ;r1 --> device dependent parameters qiow$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