.MCALL .MODULE .MODULE GSCHH,RELEASE=V00,VERSION=30,COMMENT= .ENABLE LC .NLIST CND .LIST MEB ;+ ;************************************************************************ ;*.ST SET CHARACTER HEIGHT * ;*.PAGE * ;*.X CHARACTER HEIGHT * ;*.X GSCHH * ;*.LIT * ;************************************************************************ ;* * ;* FORTRAN calling sequence: * ;* SUBROUTINE GSCHH (CHH) * ;* * ;* Input parameters: * ;* INTEGER CHH character height * ;* * ;************************************************************************ ;*.ELI * ;************************************************************************ ;- .LIBRARY /GKS.MLB/ .MCALL $GKS $GKS .LIBRARY /UTL.MLB/ .MCALL $UTL $UTL .NLIST .INCLUDE /GOPSTA.INC/ .INCLUDE /GERROR.INC/ .LIST .PSECT G$$COD,RW,I,LCL,REL,CON GSCHH:: MOV #GS.CCH,R0 ; Get the address of the Current Char Height. MOV 2(R5),R1 ; Address of the requested character height. MOV (R1)+,(R0)+ ; Height is real. MOV (R1)+,(R0)+ MOV #GS.CCW,R0 ; Set the width the same as the height. MOV 2(R5),R1 MOV (R1)+,(R0)+ MOV (R1)+,(R0)+ RTS PC ; Return. .END