blob: 098af6e73c13efddaa6eeae98365560c73a91e44 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
|
# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
include "stdgraph.h"
# STG_OUTPUT2 -- Encode two arguments using the program given and write the
# encoded character string to the output file.
procedure stg_output2 (fd, program, arg1, arg2)
int fd # output file
char program[ARB] # encoder program defining encoding
int arg1 # argument to be placed in register 1
int arg2 # argument to be placed in register 2
int stg_encode()
include "stdgraph.com"
begin
# Set up encoder.
g_reg[1] = arg1
g_reg[2] = arg2
g_reg[E_IOP] = 1
# Encode the output string and write the encoded string to the output
# file.
if (stg_encode (g_xy, g_mem, g_reg) == OK)
call write (fd, g_mem, g_reg[E_IOP] - 1)
end
|
