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

PAGE 2002C 0 D070 STO JSIGN SAVE SIGN OF JCARD CSP00580A1A3002D 0 7002 SWIT MDX •6.2 SKIP ON ADO-CHANGE SIGN ON SUBT CSP00590002E 01 04000026STO I JPLUS*1 STORE CHANGED SIGN OF JCARD CSP00600A 1 DEC0030 01 4C100037BSC L KPLUS.- DETERMINE SIGN OF JCARDCSP006100033 ca 04800026STO I JPLUS+1 STORE IT POSITIVECSP006300032 0 F069EOR HFFFF NEGATIVE - MAKE POSITIVECSP00620A3A 10035 01 74010041 MDX L OP.1 CHANGE OPERATION - SEE OP 6 OPR CSP006400037 00 C4000000 KPLUS LD L •..• GET SIGN OF KCARD' CSP00650 CARRY0039 0 0064003C 0 FOSFSTO KSIGN SAVE SIGN OF KCARDEOR HFFFF NEGATIVE ■ MAKE POSITIVECSP00660CSP00680003A 01 4C100041BSC L OP.- DETERMINE SIGN OF KCARDCSP00670DECA 1005D 01 D4800038003F 01 74010041STO I KPLUS+1 STORE IT POSITIVEMDX L OP.1 CHANGE OPERATION - SEE OP 6 OPRCSP00690CSP00700DIV• CALCULATE THE OPERATION.CSP00110• INITIALLY THIS IS FOR ADD. IT CSP00720DPA CK• CAN BE CHANGED UP TO TWO TIMES. CSP00730• AGAIN TO ADD• SEE OPR.CSP00750• FIRST TO SUBTRACT AND THEN BACK C5P00740DUNPK0042 0 0017STO DO STORE IT AT DOCSP007700041 0 C062OP LD OPR PICK UP OPERATIONCSP00760EDIT0043 0 C063LD OPO RESET THE PICK UP INSTRCTN TO + CSP007800044 0 DOFCSTO OP WITH INSTRUCTION AT OPOCSP00790FILL0045 0 C104 LD 1 4 GET ADDRESS OF K CSP008000046 0 DO1C STO K1 STORE IT AT K1 FOR CARRY SUBRTN CSP00810 GET0047 0 003A STO K2 AND AT K2 FOR FILL SUBROUTINE CSP00820• DETERMINE IF JCARD IS LONGER CSP00830ICO MP• THAN KCARD. KLAST+JLAST+J.KNOW CSP00840• IS COMPARED TO K. IF KNOW IS CSP00850• GREATER THAN OR EQUAL TO K GO CSP00860ION D• TO KLAS3 FOR ERROR.CSP008700048 00 C5800005LD 11 5 GET KLAST VALUECSP00880KEYBD004B 00 95800004 5 11 4 SUBTRACT K VALUE CSP00900MOVE004D 0 0021 STO COMP+1 SAVE FOR CMPLMNT ON NEG CARRY CSP00910S 11 2 SUBTRACT JLAST VALUECSP00920MPY004E 00 958000020050 00 85800001A 11 1 ADD J VALUECSP00930004A 0 0036 STO KLAS3+1 SAVE IT TO INDICATE ERROR CSP008900052 01 4C2800A0BSC L RETADI*2 IS JCARD LONGER THAN KCARD CSP009400054 0 7107MO% 1 7 NO-OK-MOVE OVER SEVEN ARGUMENTS CSP00950NCOMP0055 0 6928 SIX 1 DONE1+1 CREATE RETURN ADDRESSCSP00960• SETUP JNOWCSP00970NSIGN0056 00 65000000•COUNT LDX LI •-• LOAD JCARD LENGTH TO IR1JCAREHJNOW)CSP00980CSP01000• KCARDIKNOWPACARDIKNOW + OR - CSP00990N ZONE0058 00 C5000000 KCRD3 LD LI •-• LOAD KCARDIKNOWICSP01010005A 00 85000000 DO A LI •-• ADD OR SUBTRACT JCARDIJNOW/ CSP01020PACK005C 00 05000000• KNOW-KNOW+1 AND SEE IF JNOW ISKCRD4 STO LI •-• STORE RESULT IN KCARDIKNOW)CSP01040CSP01030• GREATER THAN JLAST. IF NOT, CSP01050• JNOW4JNOW*1 AND GO BACK FOR CSP01060• MORE.CSP01070005E 0 71FF005F 0 70F8MDX 1 -1 DECREMENT IR1MDX KCRD3 GO BACK FOR MORECSP01080CSP01090• RESOLVE CARRIES GENERATEDCSP01100• DURING OPERATION.CSP011100060 30 03059668 AGAIN CALL CARRY GO TO CARRY SUBROUTINE CSP01120ADDPRINTPUNCHPUTP1403P1442REA DR2501SKIPSTACKSUBS1403TYPERUNPA CWHO LE-153—II I NOW I I II....11.141.4i1P.U.014,■1111m.