Xerox 900 series - Page 15

10
s
U
I
I
s
U
I
R
Get Internal chan.
01 ,.,....,
QQIIM
Convert ftUIIIber
to binary
MONARCH CONTROL ROUTINE (cont.)
s
U
•
I
5
U
•
R
SGETWRD
C1~----------~"
5
U
•
I
~
Get IWCt ct.. (C) fl'Ofll
cunwnt ........
x • left dell",lt., cla.lflcatlon code
forC
IC • character cla.mcation code for C
G.t Internal cha-
of number
DEQIN
Convert number to
binary
S
U
•
I
S
U
I
R
GETINT
Get internal chan •
of word
~
Pack chars. of
word
S GETINT
U
Get internal
I
chars. of
R
word
5
!ill
U
Pack chars. of
I
word
I