.MCALL .MODULE .MODULE GQCF,RELEASE=V00,VERSION=30,COMMENT= .ENABLE LC .NLIST CND .LIST MEB ;+ ;************************************************************************ ;*.ST INQUIRE COLOUR FACILITIES * ;*.PAGE * ;*.X COLOUR FACILITIES * ;*.X GQCF * ;*.LIT * ;************************************************************************ ;* INQUIRE COLOUR FACILITIES GKCL,GKOP,WSOP,WSAC,SGOP Lma * ;* * ;* FORTRAN calling sequence: * ;* SUBROUTINE GQCF (WTYPE, ERRIND, NCOLI, COLA, NPCI) * ;* * ;* Input parameters: * ;* INTEGER WTYPE workstation type * ;* * ;* Output parameters: * ;* INTEGER ERRIND error indicator * ;* INTEGER NCOLI number of colours * ;* INTEGER COLA colour available (GMONOC, GCOLOUR) * ;* INTEGER NPCI number of predefined colour indices * ;* * ;* Parameters: * ;* In workstation type W * ;* Out error indicator I * ;* Out number of available colours or intensities (0,2..n) * ;* I * ;* Out colour available (COLOUR, MONOCHROME) E * ;* Out number of predefined colour indicies (2..n) I * ;* * ;* Effect: If the inquired information is available, the error * ;* indicator is returned as 0 and the values are returned * ;* in the output parameters. * ;* * ;* If the number of available colours or intensities is * ;* returned as 0, the workstation supports a continuous * ;* range of colours or intensities. * ;* * ;* If the inquired information is not available, the * ;* values returned in the output parameters are implement- * ;* ation dependent and the error indicator is set to one * ;* of the following error numbers to indicate the reason * ;* for non-availability: * ;* * ;* 8 GKS not in proper state: GKS shall be in one * ;* of the states GKOP, WSOP, WSAC or SGOP. * ;* 22 Specified workstation type is invalid. * ;* 23 Specified workstation type does not exist. * ;* 39 Specified workstation is neither of category * ;* OUTPUT nor of category OUTIN * ;* * ;* References: * ;* 4.5.1 * ;* 4.11.2 * ;* * ;* Errors: * ;* none * ;************************************************************************ ;*.ELI * ;************************************************************************ ;- ;; .NLIST .INCLUDE /GOPSTA.INC/ .INCLUDE /GDESTB.INC/ .LIST .PSECT G$$COD,RW,I,LCL,REL,CON GQCF:: CLR @2(R5) ; Clear the error indicator. TST G$OPST ; Is GKS in state GKOP, WSOP, WSAC or SGOP? BNE 10$ ; Branch if it is. MOV #8.,@2(R5) ; GKS not in proper state. 10$: ; *** To Be Added *** RTS PC ; Return .END