1130 Commercial Subroutine Package - All about the IBM 1130 ...

PAGE 2ADD• KSTRT-K-1 CSP06330 A1A3•A MFFFF411 SUBTRACT CONSTANT OF ONE CSP06350STO KSTRT SAVE IN KSTRT CSP06360A1DECKLOW•11■JSPAN CSP06370A ONE+1 GET VALUE OF K CSP06380A3A15 SRCMT+I SUBTRACT JSPAN CSP063905TO KLOW SAVE IN KLOW CSP06600CARRYSTO TMP SAVE ITCSP06420DECA1CALCULATE THE ADDRESS OF THE CSP06430•SIGN OF THE QUOTIENT CSP06640LD KCRD1 GET KCARD ADDRESS CSP06450DIVSIMP SUBTRACT KLAST VALUE CSP06460A SRCHT+1 ADD JSPAN CSP06470DPACK0035 00 CSBOFFFD LD Il -3 GET VALUE OF K C5P063400037 0 80250038 0 D0400039 0 8007003A 0 90190038 0 D041003C 00 CSBOFFFE MTWO LD II -2 GET KLAST VALUE CSP06410003E 0 0040003F 0 COOF0040 0 903E0041 0 80120042 0 80CE A ONE+1 ADD CONSTANT OF ONE CSP064800043 01 040000DF STO L OUOT+1 STORE ADDR OF SIGN OF QUOTIENT CSP06490 DUNPK• IS KLAST-KSTRT—JSPAN NEGATIVE CSP065000045 0 CO39LD TMP LOAD KLAST VALUE C5P065100046 0 90325 KSTRT SUBTRACT KSTRT C5P06520EDIT0047 0 900C5 SRCHT+1 SUBTRACT JSPAN CSP065300048 01 4C2B005BBSC L ERRo+2 IF NEGATIVE-GO TO ERROR CSP06540FILL• IS KLOW POSITIVE C5P06550004A 0 CO32 LD KLOW OK-GET KLOW VALUE CSP06560 GET0048 01 40080058 BSC L ERR,* IF NOT POSITIVE•GO TO ERROR CSP06570FILL THE EXTENSION OF KCARD WITH C5P06580•ZEROES C5P06590ICOMP004D 30 062534C0CALL FILL OK-FILL EXTENSION WITH ZEROES CSP06600004F 0 0000KCRD1 DC•..• ADDRESS OF KCARD CSP06610IOND0050 I 0070DC KLOW ADDRESS OF LEFT END OF EXTENSION CSP066200051 1 0079DC KSTRT ADDRESS OF RGHT END OF EXTENSOR CSP06630KEYBD0052 1 007C DC ZIP ADDRESS OF CONSTANT OF ZERO CSP06640•JFRST•JCSP066500053 00 66000000 SRCHT LDX L2 •+• LOAD IR2 WITH JCARD COUNT CSP06660MOVE0055 00 C6000000 SRCM LO L2 •• PICKUP JCARDIJFRSTI CSP06670•IS JCARDIJFRSTI POSITIVE CSP06680MPY0057 01 4C300010 BSC L HIT. —Z IF POSITIVE-GO TO MIT CSP06690•SEE IF JFRST IS LESS THAN JLAST. C$P06700NCOMPIF TES, JFRST•JFR5T+1 AND GO CSP06710•BACK FOR MORE. IF NO. ERROR. CSP06720NSIGN0059 0 72FFMDX 2 — 1 DECREMENT IR2 CSP06730005A 0 70FAMDX SRCH GO BACK FOR MORE CSP06740•ERROR ■ NER•CLAST CSP06750.NZONE00513 0 0023ERR LO TMP PICKUP KLAST VALUE C5P06760005C 00 058OFFFF HFFFF STO Il -1 AND STORE IN HER CSP06770PACK• REPLACE JCARD SIGN CSP06780005E 0 COA1 FINER LO DIV PICKUP ,JCARD SIGN AND CSP06790 PRINT005F 01 0480001F STO I SONJ+1 PUT IT BACK C5P06800•REPLACE KCARD SIGN CSP068100061 0 0018LD KSIGN PICKUP KCARD SIGN CSP06820PUNCH0062 01 4C28006CBSC L KNEG.+Z IF NEGATIVE —GO TO KNEG CSP0611300064 01 C4800029LD I SGNK+1 NOT NEGATIVE-PICKUP NEW SIGN CSP06840PUT0066 01 4C100071BSC L SAVE1.- IF NOT NEGATIVE-GO TO EXIT CSP068500068 0 FOF4BCK1 FOR MFFFF+1 NEGATIVE-CHANGE SIGN AND CSP06860P14030069 01 04800029 STO I SGNK+l PUT INTO KCARDIKLASTI CSP06870P1442READR2501SKIPSTACKSUBS1403TYPERUNPACWHOLE-161-