Program Logic Manual - All about the IBM 1130 Computing System

• •• A4 •• •XF0000 F1500 F1005A l A2 *. A4.•...LOAD SYSTEM .. .... .4. ..• INPUT. PRINT • .•SSUBRS, .:•SWITEVIDSET •:. Y.!!.X: F4 : ... SWIPMEI NT .....Y!.INITIALIZE : .. .. • • .. 01• IL504 TABLE • .. .. •••• Or.▪ • NO •.NO ••••• • CI • •MOXF0 050 F1501 F1006F1016B1 02.X.... . 83 B4 .. 05 ..GET MACHINE .• • • •• .• TOO •.SIZE AND .. E ND .. YES.. .. YES ... MANY .. YESINITIALIZE .. STANT READ •• X:SET END SWITCH • ...CONTINUATION .. X...CONTINUATION .....• PHASE •... ... ... ST MT .. .. STMTS .... ..•• .. .. ...• • •Cl• •*F1000 ok* 0• • NOF/510 xC2• READ INPUT •F1500 002A2READ INPUT •RECORD• RECORD • • •'7,10F/009•C4•STATEMENTNUMBER••e AD••••• •: DI •.XFI001▪ ••• K FI512 F1017 x F1054D1 x04 D5F/500 002A2 ..••I:72 • * ••PACK STATEMENT . REPLACEREAD INPUT • RETURN • AND PLACE ON •STATEMENT WITH• RECORD • • • •STRING ERROR• • •ElCONVERT STANTTO EBCDIC CODE•••X••••: .4..0.• F4 •• •01 •• •***le..X. DI. •xROL XEl .•. .. F2F4... .. • ... CONTROL .. YES • ANALYZE AND •SET UP TO LOAD ... RECORD X• STORE CONTROL NEXT PHASE ... ... •RECORD DATA .. .. • • • •F1004 GI • G4• rS11 141MiErg •• REQUIRED •• GET PHASE ID •FROM BIT• SWITCHES1 xHI ...H4... H5*. ... .. DUMP STRING CONTROL *. YES.. EQUAL ... YES • AREA, SYMBOL •.. RECORD •.•.... .. TO ID THIS .. X•TABLE AREA, AND.PHASE.. .. • FCOM•i ... .....• . NO fe4,0• NO. • . .CIA • •4.410 .04.0• A4 •RL010 XJ4•LOAD NEXT PHASE• •• •....K4• EXIT TO NEXT •PHASE •• •Flowchart FOR02. FORTRAN Compiler, Phase 1Flowcharts 245