Program Logic Manual - All about the IBM 1130 Computing System

***** **** **•**010* 4 ** AI* A 7 * A5 B* * * * ***► • ***** * ****A3 ..... . * * **** . XCA36 X PUNCH X NT/OE XNTIII.*.5.*.***A/*********. *****A7********** *****A1*********** ** a .8 8.*CONSTRUCT PUNCH* *$ET ERROR mom *DECREMENT SIOCT* NO .* FEED S.* COL /nu.* ON TO FORCE "X* MONITOR I /O S .• CHECK INDIC .4CARD SKIP COUNTER 8.15CARRY .** * * * S. .8******* ***** ****:*.** YES**** . *****019*. *87. *.x. il4 *.X* * . * *****. ****CA41 y xNT12X NT13E X:****91*********: *****B2** ***** *** *B3********** ******Br ************ LOAD ACC WITH S r •*GET WORD COUNT • */1 FA 1447 No** * RESET /1415 * *SENSE 1442 DSW * *SET ERROR INDIC**FROm FIRST WORD* ..x* READY ERROR *SUBROUTINE BUSY* X WITH RESET X...X....* ON TO FORCE ** OE I/O AREA * CODE INDIC X * LEVEL 0 * . CARD SKIP* * * * * •:***** **********: . ********** ******* ******* ****** **** **********•****** *;5* 44**R7 14 84 * * * * * ***** **** **** *4*** *CA44. . 95 *V.1 **. *****r2.*********14 B. * T..4 wnRn B. * ****c3********* .* B. ****YES .*COUNT ZERO *. 4 DUREMENT YR/ ** RETURN FROM 4 .4 NOT S. YES...t. OP•.X*R y / I. STORE 18**INTERRUPT LEVEL* B. READY BIT .*.4 **. SPRET ** 4 * B. ON .*• .. .* * •*********•***** *. .T.Z B. .*. *****************'km * NO ***** NO* * A.FT B . r2 * . * ***** •***XNT13F x*****D1*********: *****n2**********D4*****D5***** ****** •.5 4• *. * LOAD ACC WITH ** says WORD COLINT• * SET XR1 TO NO .4 ERROR *. 5/1000, 1442 N*SIN COL COUNTER . SpRET r 1 ...*. INDICATOR .* READY ERROR OT* 5 PFSTRT * **. ON .* CODE *5. .4 * *:************** *************B. .* ****** ***** ******YES*****XB*01 9* NO.4. * H5* NTIOX.*.El B. 5 * F3 5..* WORD B. * **** .* *.. 4 COUNT B. NO * .* IS B.*.GREATFP THAN .* El B....X.. FUNCTION .4*. en .B y * * B. PUNCH .4B. .4 ***** ***** **** 5. .*4. .4 *o18* *019* B. .*YES * 94* * Fp* YES**** * . * **019* *E1 *.X* .****ACA40 X*****Ft********** ***4:13*1********* ******F9************ LOAD ACC WITH* *SENSE 1442 OSW **/Inol, ILLEGAL*....w/TH RESET▪ .. EJECT LAST CARO* rm. '. ERROR COI1F4 * LEVEL Sr * • ******************* x ***********•* X ******************5*** ** r7 Al * ** *********Xr7 * +•#. ***na**********.. B. * *.5 ERROR C. YES *SAVE FEED CHECK*4. CHECK BIT .5... ***** X. BTT IN CARRY B. ON .4 INDIC **♦** 5. .* * **019* B. .4 .****************• Hi* * NO* *. .X X X******E4************SPST4 * * • * FEED A CARD * . ...*PAUSE * - OP ERROR FOR POST •* **************8*****.94 *019** • F5 *...***** * .**** NT14 X*****E5****F4 ******** * •* RETURN ROM **INTERRUPT F LEVEL* 122I1Ewn7n4 * RESET MCC ********* *************65 ******* *****":16H Ini E?" ** LEVEL •.5. NT/08.s. xHI 4. H2 *. H3****. ****"*H140*!*** ***** *****H5 **********• 44. B. .4. * •.. IS *. YES .5 •* LAST 5. YES .* TS *.5. YESRESTORE WORD DECREMENT COL *. 5nryi .4.lfiE ... n pl ROSY 5 .5.... con HIT O*. FUNCTION .*... * COUNT 5 I/0 * COUNTER BY 1 B.N.. B. PUNCH .5 *ADDR FOR RETRY 5 5. .* B. .4 B. .* * * * *. . X 4. ..5 X 4. .4 ****** ******* **** ***** ***** ******** NO5 NO 5 ****5* NO:M.:.▪ . r7* El . * * ** ****.XX▪ xxJ1 S. *****J7**********J3 B. ******J4 ***** * ***** J5****.B. . .B B. .* 4..4 •* IS *. NO ZERO ERROR YES.5 ANY B. YES*. F g ROQ CHECK ...... * INDICATOR B::.EuVR&ON .5 .4.... *RV)PNEkiTION" 4. ADDITIONAL ......B . BIT ON .. . . * **.i01. LEFT .#• *. .; *****************X *************S. .*. YES **** B. *NO ***** * NO* .*020*S7 • * A5 • * * . • * X * ***** ***aXX*020*... . . * A1*K1 4. K7 B. 53****. * *.* I/O B. B. B. .# A****K4 * **** ****.5 FUNCTION *. No .4 WAS B. YES .*LEAST 1 COL*. NO * RETURN FROM **.READ OP FEED .5.... *. ERROR INDIC .*.....4.... *INTERRUPT LEVEL*. .(1 OP 11 .. S.• ON ..* B. READ .4 * 4 *B. .44. **** ******* ****X X B. .*** X* YES **** • NO ***** . ** 87 . 84 • :*::*:X . * X * * X * ** * * * **** **** *4****** ****. * • 47 • Al 94 ** * * * * •******** ****Flowchart FI032. System Library, CARDO• Flowcharts 306.19