.TITLE ALUN .IDENT /250883/ ; Version 3.0 ; File:[22,310]ALUN.MAC ; Author: Jim Bostwick 25-Aug-83 (cloned from v2.0) ; History: JMB 4-Nov-83 ; .REM | PROCEDURE ALUN( LUN:Integer; Device:CH2; Unit:Integer );External; {*USER* Pascal-3 procedure to associate a device with a LUN. Be sure you understand this directive before using it. It can bite you. NOTE: Pascal OTS is NOT aware of this routine's activities! Directive status is available in $DSW upon return. Implements ALUN$ directive (see Exec Reference Manual). } | ; ; Assemble with PASMAC.MAC as prefix file. ; .MCALL ALUN$S PROC ALUN PARAM LUN,Integer PARAM DEV,2*CHAR PARAM UNIT,INTEGER SAVE BEGIN MOV SP,R0 ;LOCAL COPY OF STACK ALUN$S LUN(0),DEV(0),UNIT(0) ENDPR .END