Program Logic Manual - All about the IBM 1130 Computing System

SEAL...•.A1ENTRYARK)•• ENTRY••SART....•43•ENTRYA4• CLEAR I/U ••BUFFER IF WRITE.OPERATION ••• •• 84 •.X• B5 *...• ••• SET TO SYPASS•Sf10 ON 4ESTART•CISAVE ADDRESS OFLIVE CALLS FORSuRSECFANTENTRIES0/SAVE TRACEDEVICE ANDPRECIS101INITIALIZE FORREAD02.•YES . • NEW •.• OVERLAYB3 B4 ..• ...•INITIALIZE FUR .. EXIT TU . .. YESWRITE .. CONTINUE .... ..• .. ..• NOB5RESET READINDICATOR AND •X BUFFER FULLINDICATOR • ;81.C5 •.X•SFOEV•C2C5• SETO •..••C4.. EVER*. NO • DISPLAY ERROR • • RESET BUFFER... INITIALIZED X F000 • RETURN POINTER.. .. • • . ... . •.. ..• YES•001•• D4•002•5E3615 X • El•D4....D3•EXIT TO LEXIT •SET UP DISPLAY •IN SKELETON • FOON AND WAIT• SUPERVISOR• NO• ••5/. 1)10 X• ..*E2INITIAL NO• ENTRY ..• YESRETURN TOPAINLINEGI••••• SET igaRVOR •x••• •X• JI •• SAVE FORMAT• STMT LOC AND• GET DEVICE• NURSER•E2XNO UNIT NOVALID .•• YESX02 .*. ..NO VALID • •• FOR READ ORWRITEHI• YESSET UP BUFFERSIZE AND ZEROCOUNT1111,*. , •: '4 :-..... i••••J/••. J2.• ...1T UP ERROR : NO .. DEVICE •*.F001 •X • SURE LOADED ..... ... .. ..• YES..R• D4K2CLEAR I/OCUFF ER5E390E3 • .. E4 ... E5. . .... IS THIS . .. YES .. • ERROR • *. YES.0•. A WRITE ...... .. FOOL. F008 .• X•SET F001 SWITCH:.. ... .... .. .. • •.. X• NO •••• ....NO.... . • •001• •• 115 F3 0.X. • •• . . ........X.!.F3F4 .. F5SET EXIT .. • •ADDRESS TO ERROR .. NO *CLEAR BUFFER IF.CONTINUE AFTER • F002 READ • I/0 .. . ... .. • •• YES•001• .• G3 •.X.• • .SFD40 XG3•••••••••STORE EXIT• ADDRESSK3.X........•• CLEAR I/O•BuFFER IF READ• OPERATION•G4• UPDATE FORMAT ...• POINTER •••003••.1(!•4•GOTO I/O DEVICE..........k SUBROUTINE•••G5••EXIT TO CALLER • xXF110H3H4 .. H5 . ..SET COUNT OF. • ERROR • *. NO ... ERROR • .. YESCHARACTERS TI] .. F003,5,6,7 .. X.. r009READ OR WRITE.. .. .. .... .. *. .... .■ X• YES • NO•003•..C3.XXJ3 ..J9.•. • F001 .. YES • UPDATE BUFFER •• ERROR SW .... POINTER X•SET FAC TO ZERO:SET 0. • .NO ...•B4.003.•Flowchart FI001. System Library, FORTRAN Non-disk I/O294