.TITLE ALUN Assign LUN .IDENT "V1.1" .ENABL LC .PSECT C$CODE ;+ ; Index ALUN Assign LUN ; ; Usage ; #include ; word lun; /* Logical Unit Number */ ; word dnam; /* Dev. name: 2 ASCII char's */ ; /* packed into an "int" */ ; word unit; /* Device unit number */ ; word status; /* Returned DSW */ ; ; status = alun(lun, dnam, unit); ; ; Description ; ; This version of alun is retained for backwards compatibility ; with previous versions of CX. It is recommended that the ; alunx() function be used in new programs due to the ease ; with which the device name is passed. ; ; Notes ; ; A union may be used to pack the device name into an int: ; ; union { ; int dnam; ; char dev[2]; ; } device; ; etc... ; ; [end] ;- ; Edits: ; V1.1 19-Oct-82 RBD Change P-section. Fix documentation. ; .mcall alun$s alun:: mov sp,r0 alun$s 2(r0),4(r0),6(r0) mov $dsw,r0 return .end