Xerox 900 series - Page 94

UPDATE ROUTINE (cant.)
Reset cunwnt 05T level 2 10 Record
Search OST for next level 1 MCNARC
IO Record
Woa "~lAAAJW05YSENOAA"
encountered ?
Yes
Is level 1 name of 1st argument =
"SYSENOAA'?
INIT
No
Set current OST level 1 IO to "~1MMMLOA~"
Set current 05T level 1 ID to H~J"".,.,.,..I\ANtAN'IAI\H
OIltlon OST at Int.,-record gap preceding first record
MONARCH loader.
Potltlon
NST at load point
Write MONARCH Bootstrap Loader on NST
Read 1 record (U) from UPD file
Is (U) a COpy ........ or a
MONARCH IO Record?
v ..
Convert binary card Image to SOS
Internal code
1
1 (for level 1 MONARCH IO Rec)
(UTVPE)- 2 (for level 2 MONARCH IO Rec)
3 (for COPY 1MIICIge)
o (for binary or encoded record)
SRCHL2
Search OST for next level 2 MONARCH
IO Record
Was a level 1 MONARCH IO Record
encountered first?
Vel
89