Program Logic Manual - All about the IBM 1130 Computing System

****A? ** • *****5*8*A3 * **6****•** ** 44 *****/NTI****A1*** ***** **INTERRUPT ENTRY** VIA 11003 ******************IPRG*****Ri*********** RESTORE SENSE ** OSW IOCC *:******************cl ******* *****SE NCH 1WFV 54 **************51 • S. *.NO .* • R ARITY *....*. FPROR BIT .*. *. ON .**.X**** YFS* HI ***********F1*********LOAD ACC WITH ,0001 (OR( E a INTO DE VTCE * OIGIT IN BITS 4-7 *************■****FRR**11******** ** BRANCH To *6 USER'S ERROR ** 51)65001 IRE. .GE ..NO .*▪ USER *...*. SET ACC TO .6**** * YES*6*6*• JA * •HI 60(***** ***** PLT X*****“1*********** DECREMENTOUP 6 COUNTER AY 1 ******************•J1 *..6 6.NO .6 COUNTER 6..*. .LE. 0 .6*. .*6. .6X *. .*+A.** * YES****J l *077* .X* * XI *.X.********* • ALPHA X*****K!**********F R O OUPLICATE * COUNTFR ******************•****A7 * ******ALPHA.? X*****A2********GET 02745*..X* *GET NEXT DIGIT *********** *******.!.. 5 82 ** *.YES .6 IS 8....*. DIGIT 13, E. .*5. 08 F .•5. .•***10•12 *..6 6..6 IS *. NO*.DIGIT * A, S. .6...OR C .**• .**. .6 * YES*.0,-.6 *.NO .5 /S *..6. DIGIT A .6.*6. .60 *.**** YES* •* J2 *. •*********E7* ****** ****GET 02715*•*OFT NEXT OIGIT * *******************46+*F7 5.0* ***** AL-5 X*****F?** ******* * *STORE IN nUP COUNTER * ******************G2 6. S.YES .* ▪ OUP *6, COUNTER = .. *.**. •** ND***•J2 6...* .**** XAC .*.J2 6. *.. • IS 6• YESDTGTT C .5.....5.*X• NO ****Fl * **********K2***********GET 02745•*GET NEXT DIGIT ********************** AI * *****C-5 %*****A3*********** SHIFT LEFT 4 *..X*BITS G STORE IN** OUP COUNTER **** ***** *mt.********ss* ******* ***GET 02745**GET NEXT DIGIT •******* ***************C3 **********'OR, DUP * COUNTER INTO *ACC****************** *****..XF2 * **4***6*6* ** El *...* * .**** C X*****ES* ***** *****GET 02745** **GET NEXT DIGIT ** ***********************FS ******* *6*** SHIFT LEFT 4 **BITS C STORE IN** DUE COUNTER ***********************GA***********GET 02745** **GET NEXT DIGIT ******************LOOK*****H3*********** ADO 010/T IN **WORK TO AnDR OF** PLOTTER CNTRL **woRns, STORE IN*!MC ******************XXPLOTC X******J3************SENSE 1627 0514 *WITHOUT RESET X...***********•**(4** *ji •* *****K3 • •6..5 *. ****.5 BUSY OR • 6. YES*. NOT READY .5..•.1* E4 BITS ON .* * *5. .* ***** NO•****44 * *****.*. GETAi R.6 6..* • FIRST *. YES*. DIGIT INDIC .5....NVVIIVALIUBR I:6. ON .6•6 . .6;* NO ****6 6• H4 * **•*******B4************ WRITE 1627 ■PLOTTER COMMAND* *••EXIT :****C4 *X********* RETURN FROM •* INTERRUPT *X..***************NR****4 *********** LOAD ACC WITH */7000, PLOTTER *..X*NOTY ERROR*. DE ROD•**************•**•***E4 * **********F4**** *******SPST3*PAUSE FOR POST ** - OP ERROR ******* ****** **a***•*•H4 6...* * .*6•*FST*****H4**********ZERO FIRST * DIGIT INDIC 4 *******************PAWN COMMAND'• •****** ********026** GI***• DECREMENT HEX •• DIGIT IN WORD •■ COUNTER WY 1 • •XC5•***..6 6..* COUNTER 4. NO•. .•*. .64. • 4, XYES6020*• CS*• *X***** Ds ***** ***** ■• RESET COUNTER • TO 4 BY *6. INCREMENTING •••*DECREMENT WORD ** COUNT BY 1 *F5 • ••..8.* • COUNTER *• 6. NO5. .LE. 0 .6....4. •66 .6. .••*%* YES*028■• Al*6i nTATMIT t38":* COUNTER BY I •W• $ T ,,INP f84:J5 • 5..6NO .* FIRST *. *S.• DIGIT INDIC • .66. ON .66. .•• * YES***S.*026** Gl•* *Flowchart FI040. System Library, PLOT1• Flowcharts 306.27