Program Logic Manual - All about the IBM 1130 Computing System

**•* ****• * r *• 143 5 * A4 *■ • .**** *5**01740*117.* 91** * * *.;.YES11 •H.015K P.ROSY* NOX****•c1.*********seVE TRANSFER •. VECTOR LINK .woRn ADDRESS ********** ****** **X*****D1**********.SAVE REQUESTED *5 FUNCTION CODE .****************5X 7(***** A8*********** * * **SAVE RESULT AS * * CLEAR **WORKING SECTOR * * INTERMEDIATE • ADDRESS • * WORD COUNT * * * * ow*5012* ***************** ***************** *017*. R7* * 95** * * 5• * •x*i x XD1250 X DI320 .*.*****R2 ***** *5*** B3 7. 84****. 95 S.* * .* IS S. .4. S. .5 *.* TURN ON DISK . .. REQUESTED •S. NO .5 SEEK S. NO .. ARM AT S. YES*BUSY INDICATOR,* *. DRIVE ON .*.... S. OPTION .*... -X*. REQUESTED .*....SDBSY 7 S. SYSTEM .• . *. REQUESTED.* 4 *.CYLINDER .** * *. .5 .. .* 5. .******* ******* ***A. ; ,X0 YES * YES *.;** ***10*008* **** * • *013** F4* 5112* * 85 * * G2*• • . C4 *.X • • * 5* * * ***•****; D1280 X X*****C2 ****** 5*** *****C3********** *****G4 ****** ***.* SAVE MORD * * • ** COUNT, SECTOR * * CONSTRUCT 2ND * : iCIRRIMPTOD •: * SENSE ESN AND . ADDR P ROM I/O * * WORD OF READ * • NEXT CYLINDER * * SAVE AT SODSw **AREA IOCC ADDS * * * * * * * ************ ****** *** ***** *** ****** ********* ******** ************ *****X*****02•*******•* *****D3• ********* * * *.ISOLATE LOGICAL* * CONSTRUCT 2Nn ** DRIVE CODE * *WORD SENSE WITH** * * RESET TOCC ** . . **5* ***** ********5•***.012*5 04 *.X*****n1255 *•***04*********** SUBTRACT NEXT .. DEFECTIVE •X* CYLINDER *X... ADDRESS * •******** * * * * * * • ******DS*****•****:CONSTMEJ SEEK ** ******* ****************El**********ISOLATE AND ** SAVE SEEKOPTIO* pARAMETN ERt***************:Fx *. *****F1**********.* s. • *.4. LEGAL •P. NO * CONSTRUCT 2140 *P. DRIVE .5.... *WORD REQUESTED **.SPECIFIED.* *READ/WRITE 'MC*S. .* • •X **********•******• YES *****.011** F4** *XE4 S.NO .*** 5. S.***: * YESE: INTERMEDIATE ** SECTOR ,i8Ons* ******F1**** ****** ISOLATE AND .SAVEDISPLACFMENT A5 PARAMETER***** *9,4* ******X**•**F2***•****** ****•F1***•******* . * ** SET UP FILE * * SENSE OSW 5Nn ** PROTECT ADDS * * SAVE III SOOSW **FOR THIS DRIVE * * .* * * ****************** *** * *** **********• INCREMENT • *D1220 014845:ADDIFIRVEMEXT:* CYLINDER * ■ INITIATE SEEK ••X•...*G/*****•***** SAVE ADnP OF* 1/0 PUFFER aX...**,-u***********SET UP ADOR oF. USERS ERROR ** ROUTINE ******** !}}}t##}#******31 ********* ** SET UP EXIT ** ADDRESS*******************•**K1*********** INCREMENT I/0 **COUNTER, -sforT,.BY 1****************.x*****,,.•. X 53 *. 54 5. GS.. *.* * .* POWER *. .* *.* FETCH SECTOR .5 UNSAFE OR 5. YES NO .* LOOPEC P. YES .5 SEEK •P.• ADDRESS 5. WRITE ...... ...*. 3 TIMES .5* *5. SELECT .7 *. .5 *'*.REQUESTED.** * *. .. *. .5******** * ***** ** X X* NO * YES *•** • NO*0/45 * ** 87* KS * 5 * ** * * *H1 P. H4 5... D1S- S. .5 .5 5..* PLACEMENT H. NO .. DTSK P. NO .5 SCTR P. YESA. OPTION .5... 5. READY .*.... P. min TOO .5....*.S P ECIFIED.* 5. P. LARGE .5*. .. 5. •ix% x*SET UP IOCC TO ** READ ST WORD •* OF 1ST SECTOR •YES • YES ***** ***NO ******013♦50135:* 04** BE** * * **X .*.*****J,********•* J1 5. J4 5.* ADD FILE * .5 LEGAL *.*. •01220 01484•*PROTECT ArmilEss* .. I/0 S. NO .5 .5 SCTR 5. NO * TO SECETORnDR sS * *. FUNCTION .*.... 5. ADDS LOP .••....* INITIATE ** AS. CODE .*.5P. REPAO ...*READ-AFTER-SEEK** *•.S. .*** ***** ********** S. . % P. .* X :* ****** *.******:* YES • * it * * * YES *****011* * • ****x . * F4* . 85 *. * .1,. * * * K5 5.x.**** * * .; ; *55* i.....K7*•******** KI *. K4 *. •:****K5 ***** ****:*.5 •.. S.* DRIVE . .*' REQUESTED S. NO .. REQUESTED S. YES * UPDATE SCYLN *REMOVE* CODE * P. FUNCTION . P. FUNCTION .•.... * WITH CYLINDER *SEEK .* 5. WRITE .5 * ADDRESS •* . .. p. .p.*S. .* ********* ***** ****• YES ***** * NO*013* *013* : ***** Ai* * E4• . * *; ; * * % 5 * ..X* B5 **** **** **** r * ** * * * * **•■. Al * * A4 * 95 *. . * r •..•. **** ***aFlowchart F1025. System Library, DISK1• 306.12