.TITLE LATCON .IDENT /041789/ ; Version: ; File:[22,320]LATCON.MAC ; Author: Peter Stadick ; History: ; ; Last Edit: 3-MAY-1989 15:13:14 ; .REM | Procedure LATCON(LUN:Integer; EFN:Event_Flag; VAR IOSB:IO_status_block );EXTERNAL; {*USER* Pascal-3 Procedure to explicitly connect it as a application port. This procedure will perform the following operation. -Explicitly connect the device to the LAT port. LUN is the logical unit number to be assigned to the appropriate device. EFN is the event flag to be set when the I/O is completed. f0 may not be specified. IOSB is the IO status block. Directive status is available in $DSW on return. } | ; ; Assemble with PASMAC.MAC as prefix file. ; ; Thanks to Frank S. for the idea and the Pascal-1 version, which I ; brazenly plagiarized. Same here - P. Stadick. ; .MCALL QIOW$S .PSECT LATCON,RO,I,LCL,REL PROC LATCON PARAM LUN, INTEGER PARAM EFN, SCALAR PARAM ISB, ADDRESS SAVE BEGIN MOV SP,R0 ;PRESERVE SP MOV #IO.ORG,R1 ;CONNECTION FUNTION MOV ISB(0),R3 MOVB EFN(0),R2 ;EFN PARAM IS A BYTE BIC #^C^O377,R2 ;MAKE IT UNSIGNED WORD BNE 3$ MOV #IE.IEF,$DSW ;MUST SUPPLY EVENT FLAG BR XT 3$: QIOW$S R1,LUN(0),R2,,R3, XT: ENDPR .END