Xerox 900 series - Page 17

12
MONARCH CONTROL ROUTINE (cont.)
GETCHR
Extract wold add,... & char. poIltlon
hom (CADDR)
Extract next INII. char. (C) &leaw
rlght;Ultlf1ed In A Register
CADDIt- (CADOI)+ 1
rACK
Obtain chan. fl"Ol'll WOld area (Itored
1 char./WOId) &.tore thet114 char./
word In ~ry .torage (ACCUM "
ACCUM2)
IADMSG
T~.rror ........ :
"ILLEGAL CONTROL
MESSAGE, MESSAGE
IGNOIED."
NOTE I
Del ... current
.......
IAD"M
we error ".......:
"CONTROL MESSAGE
EllOl, UNDEFINED
SYWOUC rARAMETER.
DECIIN
Convert from 1- to 8-dIQIt decimal
Integer
to binary, .Ingl. precl.ion
OCTiIN
Convert fl"Ol'll 1- to l-dlglt octal
number to binary, ling I. pNClllon
8ADfNC
Twe·
rror
....... :
"CONTROL MESSAGE
ERROR."
NSFPRM
T",. error ......... :
"CONTlOL MESSAGE
Elloa, INSUFFICIENT
rAAAMETElS. "