.MCALL .MODULE .MODULE DRV407,VERSION=30,COMMENT=,AUDIT=YES .LIBRARY /UTL.MLB/ .MCALL $UTL $UTL .PAGE .SBTTL CGI Transfer Vector Table .PSECT C$$COD,R,I,LCL,CON $CGID0::JMP VINI ; Initialize JMP VRD ; Reset Defaults JMP VTRM ; Terminate JMP VMPC ; Make Picture Current JMP VSDM ; Set Deferral Mode JMP VPVS ; Prepare View Surface JMP VEP ; End Page JMP VBC ; Background Color JMP VVE ; VDC Extent JMP VDV ; Device Viewport JMP VCR ; Clip Rectangle JMP VCI ; Clip Indicator JMP VPL ; Polyline JMP VDP ; Disjoint Polyline JMP VPM ; PolyMarker JMP VTXT ; Text JMP VP ; Polygon .PAGE .SBTTL Initialize ;************************************************************************ ;* Initialize * ;************************************************************************ VINI: MOV @2(R5),OCHAN ; As a temporary measure, the RT channel ; to use for this device is passed as a ; parameter, although the CGI definition ; of this function doesn't specify a ; parameter. RTS PC ; Return. .PAGE .SBTTL Reset Defaults ;************************************************************************ ;* Reset Defaults * ;************************************************************************ VRD: RTS PC ; Return. .PAGE .SBTTL Terminate ;************************************************************************ ;* Terminate * ;************************************************************************ VTRM: RTS PC ; Return. .PAGE .SBTTL Make Picture Current ;************************************************************************ ;* Make Picture Current * ;************************************************************************ VMPC: RTS PC ; Return. .PAGE .SBTTL Set Deferral Mode ;************************************************************************ ;* Set Deferral Mode * ;************************************************************************ VSDM: MOV @2(R5),R1 ; Get the deferral mode. RTS PC ; Return. .PAGE .SBTTL Prepare View Surface ;************************************************************************ ;* Prepare View Surface * ;************************************************************************ VPVS: MOV @2(R5),R1 ; Get the indicator (FORCE HARDCOPY, ; CONDITIONAL) RTS PC ; Return. .PAGE .SBTTL End Page ;************************************************************************ ;* End Page * ;************************************************************************ VEP: RTS PC ; Return. .PAGE .SBTTL Background Color ;************************************************************************ ;* Background Color * ;************************************************************************ VBC: MOV 2(R5),R1 ; Pointer to a color value (3-tuple). RTS PC ; Return. .PAGE .SBTTL VDC Extent ;************************************************************************ ;* VDC Extent * ;************************************************************************ VVE: MOV 2(R5),R1 ; Pointer to the first corner. MOV 4(R5),R2 ; Pointer to the second corner. RTS PC ; Return. .PAGE .SBTTL Device Viewport ;************************************************************************ ;* Device Viewport * ;************************************************************************ VDV: MOV 2(R5),R1 ; Pointer to the first corner. MOV 4(R5),R2 ; Pointer to the second corner. RTS PC ; Return. .PAGE .SBTTL Clip Rectangle ;************************************************************************ ;* Clip Rectangle * ;************************************************************************ VCR: MOV 2(R5),R1 ; Pointer to the first corner. MOV 4(R5),R2 ; Pointer to the second corner. RTS PC ; Return. .PAGE .SBTTL Clip Indicator ;************************************************************************ ;* Clip Indicator * ;************************************************************************ VCI: MOV @2(R5),R1 ; Get the clip indicator (CLIP RECTANGLE, ; EFFECTIVE VIEWPORT, OFF) RTS PC ; Return. .PAGE .SBTTL Polyline ;************************************************************************ ;* Polyline * ;************************************************************************ VPL: MOV @2(R5),R1 ; Get the number of points. MOV 4(R5),R2 ; Get a pointer to the point list RTS PC ; Return. .PAGE .SBTTL Disjoint Polyline ;************************************************************************ ;* Disjoint Polyline * ;************************************************************************ VDP: RTS PC ; Return. .PAGE .SBTTL PolyMarker ;************************************************************************ ;* PolyMarker * ;************************************************************************ VPM: RTS PC ; Return. .PAGE .SBTTL TeXT ;************************************************************************ ;* TeXT * ;************************************************************************ VTXT: RTS PC ; Return. .PAGE .SBTTL Draw Polygon ;************************************************************************ ;* Draw Polygon * ;************************************************************************ VP: RTS PC ; Return. .PAGE .SBTTL Buffers and Data Area .PSECT C$$DAT,RW,D,LCL,CON OCHAN: .WORD 0 ; RT-11 Output Channel Number. OBUFF: .BLKW 256. ; Output data buffer. .END