Program Logic Manual - All about the IBM 1130 Computing System

• • ENTER FROM •LEAVE IN DUPCO •EX020.•B5ENTRY o. YES.EX/80 013H4CODE EQUALS• •X..•WRITE OCOM ••• NO•Cl ..101301. .. C4 5ENTRY .. YES:EX180 013H4. PLACE Cli. RECCOOLTRAPPED INX. •.POSITIVE ....SUPERVISOR •.. ..••••• WRITE DOOM • BUFFER• NO••••xiDI.....EX100D3 .. xD4•• 0..10180 013H4•05.. ENTRY .. YES .....PRINT ERROR .. OUP... CODE EQUALS .. • MESSAGE WITH • .• ENTERED . X. •... YES— 4 ..NUMBER OF ENTRY WRITE MOM.. FROM••.. ..•• CODE ••Ca MODIF .... ..• NOI.. ..• NOREXOTOEl ... E2x•• o. •80180 0I3H4•....E3.. ENTRY••••E4 ....E4C. YES .---------------. CODE E EXIT TO ADRWS ALS ........X.*EXIT TO REST IN.VIA LINK IN ..DUPCO — 3 .. .•WRITE DCOM: EINTSULtfONT• • QUDUPCO • • •.. ..• SUPERVISOR ••.A0•EX050FF2• 80180 1013H4 ••WRITE UPCOR TO •DuP PHASE 13• WRITE DOOM • • •F5• FETCH MODIF •EXIT PHASE (12)• GI :.X:EX06; ••• %GISET UP DUMP •FETCH PHASES 0 •FORMAT CODE OF AND 1 OF CORE— 1 • CLUBS BUILDER •...••G5• EXIT TO MODIF• EXIT TO STROP •• IN SKELETON •• SUPERVISOR •EX180....HH4EXIT TO CORE • LOAD2 BUILDER• WRITE DCOM TO •MASTER• • • CARTRIDGE •J4INTERRUPT YESNO• •GI••••....K4• RETU RN TO ••CAL LING ROUTINE••Flowchart DUP12. Disk Utility Program, DEXIT218