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

ADD PAGE 3AlA3A1DEC0068006C0017005C4800029MDXKNEG LDSAVE1 GO TO EXITI SGNK+1 NEGATIVE-PICKUP NEW SIGNCSP06880CSP06890006E 01 40280071BSC L SAVE1,+2 IF NEGATIVE-GO TO EXITCSP069000070 0 70F7MD% BCK1 NOT NEGATIVE-GO TO BCK1CSP06910• EXIT CSP06920A3A1 0071 00 65000000 SAVE1 LOX LI •-• RESTORE IR1 CSP069300073 00 66000000 SAVE2 LOX L2 •-• RESTORE IR2 CSP069400075 00 67000000 SAVES LDX L3 •-• RESTORE IR3CSP06950CARRY 0077 00 4C000000 DONE1 BSC L •-• RETURN TO CALLING PROGRAMCSP069600079 0 0000KSTRT DC •-• ONE LESS THAN KCSP06970DECA1 007A 0 0000KSIGN DC •-• SIGN OF KCARDCSP069800078 0 0000 ()SIGN DC •-• SIGN OF QUOTIENT CSP06990DIV 007C 0 0000 ZIP DC 0 CONSTANT OF ZERO CSP070000070 0 0000 KLOW DC •-• SUBSCRIPT OF LEFTMOST POSITION CSP07010•OF EXTENSION OF KCARDCSP07020DPACK007E 0 000ATEN DC10 CONSTANT OF TENCSP07030007F 0 0000 TMP DC •-• TEMPORARY STORAGECSP07040DUNPK•JHIGH•JCARDIORSTICSP07050EDIT0080 0 DOD3 HIT STO SRCHT+1 SAVE FIRST SIGNIFICANT DIGIT CSP07060• KPUT•KLOW+JLAST-JFRST CSP07070FILL0081 0 6A28 STX 2 JLOOP+1 GET THE VALUE OF JLAST-JFRST CSP070800082 0 COCCLD KCRD1 GET KCARD ADDRESSCSP070900083 0 0O3ESTO KCRD2 SAVE FOR CARRYCSP071000084 0 90F8SKLOW SUBTRACT KLOW VALUECSP07110GET0085 0 9024$JLOOP+1 SUBTRACT JLAST-JFRST VALUE CSP071200086 0 9086S MTWO+1 ADD CONSTANT OF TWOCSP07130ICOMP 0087 0 DONESTO PUT2+1 SAVE ADDRESS FOR STORINGCSP07140• KSTOP•KLAST+JFRST-JLAST-1 CSP07150IOND 0088 0 COF6 LD TMP GET KLAST VALUE CSP071600089 0 9020 JLOOP+1 SUBTRACT JLAST,IFRST VALUE CSP07170008A 0 9002S HFFFF+1 ADD CONSTANT OF ONECSP07180KEYBD0088 0 DOCASTO SRCH61 SAVE VALUE FOR COMPLIMENTING CSP07190008C 0 90ECS KSTRT SUBTRACT KSTRT VALUECSP07200MOVE0080 0 D008STO LOOPM+1 SAVE COUNT AT LOOPM+1CSP07210008E 0 CO33LD KCRD2 GET KCARD ADDRESSCSP07220MPY008F 0 90EFSTMP SUBTRACT KLAST VALUECSP07230NCOMP0090 0 8019 A JLOOP6I ADD JLAST-JFRST VALUE CSP072400091 0 D009 STO DIVI61 SAVE FOR MOLT. BY TEN CSP072500092 0 D038 STO DIV561 SAVE FOR ADD OF 10•KNOW CSP07260NSIGN0094 0 8008A HFFFF+1 SUBTRACT CONSTANT OF ONE CSP072800093 0 D039STO DIV681 SAVE FOR STORE OF 10•KNOW CSP072700095 0 D009STO DIV261 SAVE FOR ADD INTO MULTCSP07290NZONE 0096 0 DO1ASTO DIV361 SAVE FOR SUBTRACTION FROM CSP073000097 0 0018 STO DIV461 SAVE FOR STORE SUBTRACTED FROM CSP07310PACK • KM•KSTRT CSP073200098 00 65000000 LOOPM LDX LI •-• LOAD IRI WITH COUNT CSP07330•MULT*110•KCARDIKM1+KCARDIKM+11) CSP07340PRINT•DIVIDED BY JHIGHCSP07350009A 00 C5000000 DIV1 LD LI •-• PICKUP KCARDIKMICSP07360PUNCH 009C 0 AOE1MTEN MULTIPLY BY TENCSP07370009D 0 1090SLT 16 REPOSITION PRODUCTCSP07380PUT009E 00 85000000 DIV2 A LI •-• ADD IN KCARD(KM+11CSP0739000A0 0 1890 SRI 16 REPOSITION FOR DIVISION CSP0740000A1 0P1403A882DSRCHT+1 DIVIDE BY JHIGHCSP0741000A2 0 DODASTO KLOW SAVE IN KLOW(MULTICSP07420P1442READR2501SKIPSTACKSUB51403TYPERUNPACWHOLE-162-