.MCALL .MODULE .MODULE GQDSP,RELEASE=V00,VERSION=30,COMMENT= .ENABLE LC,LSB .NLIST CND .LIST MEB .LIBRARY /UTL.MLB/ .MCALL $UTL $UTL .NLIST .INCLUDE /GKSDEF.INC/ .INCLUDE /GOPSTA.INC/ .INCLUDE /GDESTB.INC/ .INCLUDE /WSDT.INC/ .INCLUDE /GERROR.INC/ .LIST .PSECT G$$COD,RW,I,LCL,REL,CON GQDSP:: BIT G$OPST,#GKOP ; Is GKS open? BEQ 10$ ; Branch if not. MOV #WSDT,-(SP) ; Construct a pointer to the WSDT for this WS. MOV @2(R5),R0 DEC R0 ASL R0 ADD (SP)+,R0 ; R0 points to the WSDT pointer. MOV (R0),R0 ; R0 points to the WSDT. CLR @4(R5) ; Clear the error indicator. CLR @6(R5) ; Return DCUNIT. *** Temporary. ADD #WD$URC,R0 MOV 10(R5),R1 ; R1 points to users area. .REPT FLTSIZ/2 ; Return RX MOV (R0)+,(R1)+ .ENDR MOV 12(R5),R1 ; R1 points to users area. .REPT FLTSIZ/2 ; Return RY MOV (R0)+,(R1)+ .ENDR MOV (R0)+,@14(R5) ; Return LX MOV (R0)+,@16(R5) ; Return LY RTS PC ; Return 10$: MOV #ER$ON,@2(R5) RTS PC .END