Program Logic Manual - All about the IBM 1130 Computing System

**** ***** * * * *not*E2 . A3 . A5** * * * **** * .'pm *As* * * •. A4 ‘.... •.* * X**** .PNCHO % C420... CA25P X CA36 %PUNCH*****A2********** A3 *. ***** A4********** *****A5**************A1********* * * .* S. * * *• ENTER LIME A . INCREMENT XR1 * .5 BRANCH A. *INCREMENT STOCT* *CONSTRUCT PUNCH*RNCHO * BY I A. TO I/0 .* * MONITOR I/0 * A COLUMN TOCC ■* * . *.FUNCTION .* COUNTER •******* ***** *** • * *. .* * • * ****************** *****************. •X**** 001 E5* ** F4 ....7 001 AS x*****R1 ***** ***** • ****** B4** ****** ** *****B5*********** * **** ....1 ***** 001 El * * *A A SET THIS * *OFT WORD COUNT •* SAVE SRI • ....4 ***** 001 F5 *SUBROUTINE BUST* *FROM FIRST WORD*. * INDIC ON OF I/O AREA * . * * * ****************** *******•**************Cl *...* * .****X CA14.*. CA24 X*****c1********** C7 *. *****c3**********• LOA() %c/1 FROM * .* I/O *. *GET 6 SAVE I/O ** THIS TV WITH A .. FUNCTION *. NO A AREA ADDRIN A* Arm OF * ..X..LFGAL, (4 OR .*.... *MCC 5 RSTRT + **ARGUMENT Annss A A. LESSI .* . 1 •* * . *. .* * A***************** X *** ***** * ***** ****;** * YFS ***** .: C2 * F5 * ***** ****NT1****Qv*********A COLUMN **INTERRUPT LEVEL** n *•* * * * * * . * * * * * * *IT*****07******* *****n3**********CONSTRUCT * * * MD% TO 1/0 A A INCREMENT ORE AXCAP6.*. A.C4 A. CL AA..* A. .* WIRD S.YES •.* ERROR A. YES ..COUNT ZERO A....A. INDICATOR .ow ...*. JA .**. ON .• . *.NEGATIVE .•A. .* *. .*X5.40**** • NO* •A F5 A* *********** D4****** *****/NITIATE* CALCULATED ADESIRES *FUNCTION BRANCH* * BY I/0 I *...TABLE * A FUNCTION ** * * ******* ***** *** ***********************************011*; . El *.X***** * ******D5 ***********SAVE WORD COUNT*A IN COLUMN *COUNTER ** RESTART A*107* ***** (.4* CA15 BEEFS CA27 X• * *****E2* ***** 4 r******E1*********** E5 S.* A .* WORD A.* CONSTRUCT C A *SENSE 1442 DSW * * * .* COUNT *. NOA INSTR TO CALE. * WITHOUT RESET FEED A CARD *,GREATER THAN .4.....* DFS/RED IOCC * A * * A *. BO .** * A. .5************** ******•****** •************ X* YES ****■*•* •*•* . A A* A x *001*. * C3** F4 *.X * F5 S.X. * *x * * * ♦ 4 ******** ****TNT , CA15. . .5. CA2B X CA40 XFP *. El A. *****F4********** *****F5 **********.***R1********* .* A. .* *. * * A* nP COMPLETE A XIS .. IS THIS A. NO .* LAST S. * INCREMENT %RI **TNTERRHAT LEVEL. ...*.*SUBROUTINE .* ...*. CARD 9IT ON .* BY 1 :Amount, ** 4 * *. RUST .* .1, * A *CALL eRROR CODE**************** *. .* A. .* . A * *. X. ********** *******NO *u•* YES **•** * . * AA4 ** F4 *X * * 4. * K***** **** *****000* X *002** FIR CAI7 X .S. x • Cl** . ******59*********** G1 A. *****54********** * A*A * A*SENSE 144? DSW * .*.. I/O S. *. NO * *WITHOUT RESET X... A. FUNCTION ...... * RESTORE ACC ** A . *. FEED (11 .* *. .* * * SS*************** 5. .* 71 ******•*** ***** *It • *w7*** * YES *A** * G2 ** * A * **** • A52 A A4 *001* ***** * : * * 5 H4 *.X x**** . **** * 4,**•*T A10 X X CA29 X CA42.X, ▪ YFS*****HI********** H7. .A. ******H3*********** *****H4**** ***** * H5 S.* • • . •.* SAVE 'ter, . .*.* NOT • •. YES A FEED TO EJECT * * SET UP RETURN * .*.■ IS *.STA T US. xa 7 * A. READY BIT .*.... LAST CARD BOOR FROM XR1 ..55. DEVICE BUSY A.5A *. ON •A * * . *. BIT* * 5.05 .•.5 * *******************. .5X ************* ****************** NO **** . T4** * NO* * * *H5 * H5* • % * •**** ***** ****X *002* Xre 1 R X* BI* 0A.,0 XJI A. ***** J7*** **4**** * * ***** j4********** J5 A..5 A. * • A t * .* *... 1/0 A. NO * CALCULATE RESTORE XRI. * .• IS 5. NOS. FUNCTION .*.... *nesiREn INTIAL KR?, STATUS A S. ERROR CHECK .5......TEST (01 .. inrr A. BIT ON .sA. .5 * * * *S. . X ***************** ***** ************ i* YFS **** * YES•**002*. * cl * • Bl*. • • % . * •**** **** •% * * %Al CA34 ...Kt *. * * x K5 5..* A. **** ****K4********* .. A..5 IS THIS N. YFS * RETURN TO * .. I/0 *. NDA. SUBRoUTINE ...... *MAINLINE !MAYBE* S. FUNCTION .*....*. ROSY .* * VIA sPRET) * *.FEED 131 .**. .* ********* ****** *. OF% %.GNU ***** YES* * . *007*P4 * Bl*; * * % * 4.**** **** ***** •* * *002*A A2 • Al** * * ***** *Flowchart FI01 4. System Library, PNCHO• Flowcharts 306. 1