[ photo 100_1607.JPG P73V0; (swap to EG); V0 = Q b16/8000/8079; BUSYQ0; J4P45TR; V9P0; V10P0; OR; V11P0; OR; V12P0; OR; SHCC3; SHL35; J4P45#Z; V0P100; J4P45#Z; (W tapes); V3P23; V1P23; OR; SHL-32; J2=Z; (jump when no OUT 8 tape); ZERO; NOT; =V4P155; JP5; (deallocate OUT 8 tape again); 2; ZERO; DUP; =V1P52; =V1P120; (wait until flex not busy and no prog running); ZERO; =V0P69; (clear WEG marker); V0; =Q7; PMAQ7; PICQ7; (swap prog to core); 1; BUSYQ7; K4; ERASE; J1TR; (disc not busy); V3P120; V0P199; SETAV0P26; LINK; ZERO; JE8000; P100V9; (deal with W mag tapes) (V0#Z for W tapes) (V1-9 = brick indicators for trunk 7-17); V0; J4P45=Z; V0P26; =Q6; ZERO; 1; =V0; 2; SETB10674; JS2P26; EXIT1; =TR; 3; BUSYQ6; J5TR; PARQ6; V-6M6; J11NTR; DUP; SET1; SHL+23; OR; =V-6M6; 11; FIX; NOT; SHLD-1; =LINK; J4