.MCALL .MODULE .MODULE GSCHUP,RELEASE=V00,VERSION=30,COMMENT= .ENABLE LC .NLIST CND .LIST MEB ;+ ;************************************************************************ ;*.ST SET CHARACTER UP VECTOR * ;*.PAGE * ;*.X CHARACTER UP VECTOR * ;*.X GSCHUP * ;*.LIT * ;************************************************************************ ;* * ;* FORTRAN calling sequence: * ;* SUBROUTINE GSCHUP (CHUX, CHUY) * ;* * ;* Input parameters: * ;* REAL CHUX, CHUY character up vector (WC) * ;* * ;************************************************************************ ;*.ELI * ;************************************************************************ ;- .LIBRARY /GKS.MLB/ .MCALL $GKS $GKS .LIBRARY /UTL.MLB/ .MCALL $UTL $UTL .NLIST .INCLUDE /GOPSTA.INC/ .INCLUDE /GKSSL.INC/ .INCLUDE /GERROR.INC/ .LIST .PSECT G$$COD,RW,I,LCL,REL,CON GSCHUP::MOV GKSSL,R0 ; Get the address of the GKS state list. ADD #GS$CCU,R0 ; Add the offset to the Character Up Vector. MOV 2(R5),R1 ; X Component. .REPT ; Copy it. MOV (R1)+,(R0)+ .ENDR MOV 4(R5),R1 ; Y Component. .REPT ; Copy it. MOV (R1)+,(R0)+ .ENDR ; Calculate the base vector and insert it here. RTS PC ; Return. .END