XP SEGINI,R0 ;INITIALIZE HIGH SEGS\r
\r
;UUOCON\r
+\r
XP RELSEG,R0 ;SUPERCEDE HIGH SEGS ON RECREATE\r
XP RELSG1,R1 ;RENAME UUO\r
XP HGHWRD,R0 ;GET WORD FROM HIGH SEG - ERROR RETURN\r
\r
XP HGHWRD,R0 ;GET WORD FROM HIGH SEG -ERROR\r
XP USPY,R0 ;SPY UUO - ERROR\r
+\r
+\r
END\r