Xerox 900 series - Page 55

50
MONARCH LOADER (cont.)
11~ ____________ ~ ..
S QSYSTP
U
I Read 1 record from library (L)
R
E .... of
MONARCH library
Is L. level 1 MONARCH 10 rec"?
- - - - - - - - WIll detected
S
U
•
It
No
Any UftICItlsfled Label or
900 Serl .. POP references?
v ..
Set LOAOMand PRGTST
.... 1 record (R) from loader
Input medlulI!
b It a MONARCH 10 record?
13~------------~ .. No
Ves'
CT, WOCT-word count - 2
Purge loader'. symbol table, etc.
READ SUIlOUTINE