.MCALL .MODULE .MODULE GSTXAL,RELEASE=V00,VERSION=30,COMMENT= .ENABLE LC,LSB .NLIST CND .LIST MEB ;+ ;************************************************************************ ;*.ST SET TEXT ALIGNMENT * ;*.PAGE * ;*.X SET TEXT ALIGNMENT * ;*.X TEXT * ;*.X GSTXAL * ;*.LIT * ;************************************************************************ ;* SET TEXT ALIGNMENT GKOP,WSOP,WSAC,SGOP Lma * ;* * ;* FORTRAN calling sequence: * ;* SUBROUTINE GSTXAL (TXALH, TXALV) * ;* * ;* Input parameters: * ;* INTEGER TXALH text alignment horizontal * ;* (GAHNOR, GALEFT, GACENT, GARITE) * ;* INTEGER TXALV text alignment vertical * ;* (GAVNOR, GATOP, GACAP, GAHALF, GABASE, * ;* GABOTT) * ;* * ;* Parameters: * ;* In text alignment * ;* (NORMAL, LEFT, CENTRE, RIGHT, NORMAL, TOP, CAP, HALF, * ;* BASE, BOTTOM) 2xE * ;* * ;* Effect: The 'current text alignment' entry in the GKS state * ;* list is set to the value specified by the parameter. * ;* This value is used when creating subsequent TEXT out- * ;* put primitives. Text alignment has two components: * ;* horizontal and vertical. * ;* * ;* References: * ;* 4.4.2 * ;* 4.4.5 * ;* * ;* Errors: * ;* 8 GKS not in proper state: GKS shall be in one of the * ;* states GKOP, WSOP, WSAC, or SGOP. * ;* * ;************************************************************************ ;*.ELI * ;************************************************************************ ;- .LIBRARY /GKS.MLB/ .MCALL $GKS $GKS .LIBRARY /UTL.MLB/ .MCALL $UTL $UTL .LIBRARY /ERR.MLB/ .MCALL $ERR $ERR .NLIST .INCLUDE /GOPSTA.INC/ .INCLUDE /GERROR.INC/ .LIST .PSECT G$$COD,RW,I,LCL,REL,CON GSTXAL::$ER008 MOV #GS.CTA,R0 ; Add the offset to the Current Text Align. MOV @2(R5),(R0)+ ; Horizontal alignment. MOV @4(R5),(R0)+ ; Vertical alignment. RTS PC ; Return. .END