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

LISTINGSADDA1A3A1DECA3A1CARRYDECA1DN// JOB// ASM• NAME ADDIID)•• ADD/SUB SUBROUTINES FOR 1130 COMMERCIAL SUBROUTINE PACKAGE IID)• LIST0008 01104000 ENT ADD ADD SUBROUTINE ENTRY POINT• CALL ADDIJCARD,J,JLASTACARD.KALASTIINERI• THE FIELD JCARDIJI THROUGH• JCARDIJLAST) IS ADDED TO THE• FIELD KCARDIKI THROUGH• KCARDIKLASTI.0000 22902000 ENT SUB SUBTRACT SUBROUTINE ENTRY POINT• CALL SUBIJCARD.J.JLASTACARD.K.KLAST.NER)• THE FIELD JCARDIJ) THROUGH• JCARDIJLASTI IS SUBTRACTED FROM• THE FIELD KCARDIK) THROUGHC5P00010CSP00020CSP00030C5P00040CSP000SOCSP00060CSP00070CSP00080CSP00090CSP00100CSP00110CSP00120CSP00130CSP00140CSP00150CSP00160•DPACKKCARDIKLASTI. CSP001700000 0 0000 SUB DC 'I.++ ARGUMENT ADDRESS COMES IN HERE. CSP001800001 0 COFELD SUB PICK UP ARGUMENT ADDRESS.CSP00190DUNPK 0002 0 0005STO ADD STORE IT AT ADD.CSPOO2000003 0 0002LD IHFS LOAD THE INSTRUCTION TO CHANGE CSP00210EDIT 0004 0 0028STO SWIT SIGN OF JCARD FOR SUBTRACT. CSP002200005 0 7005 MDX ADD+3 START COMPUTING. CSP00230FILL0006 0 FOSE IHFS FOR X HFFFF■SWIT■ 1 CHANGE SIGN OF SUBTRHND CSP002400007 0 7002 MDX MDX 46+2 SKIP OVER NEXT INSTRUCTION. CSP002500008 0 0000ADD DC •+ ARGUMENT ADDRESS COMES iN HERE. CSP00260GET0009 0 COFDLD MD* LOAD SKIP OVER INSTRUCTION. CSP00270000A 0 D022STO SWIT STORE IT AT SWIT.CSP00280ICOMP 0008 0 6970STX 1 SAVE1+1 SAVE IRlsCSP00290000C 01 65800008LOX 11 ADD PUT ARGUMENT ADDRESS IN IR1 CSP00300IOND 000E 0 C100LD 1 0 GET JCARD ADDRESSCSP00310000F 00 95800002 S 11 2 SUBTRACT JLAST VALUE CSP00320KEYBD0041 0 D049STO 00+1 PLACE ADDRESS FOR ADD OR SUBTR C5P003300012 0 8004A ONE+1 ADD CONSTANT OF ONECSP003400013 0 D017STO JPLUS+1 CREATE JCARDIJLASTI ADDRESS CSP00350MOVE 0014 00 C5800002LD 11 2 GET JLAST VALUECSP003600016 00 95800001 ONE S II 1 SUBTRACT J VALUECSP00370MPY0018 0 80FEA ONE+1 ADD CONSTANT OF ONECSP003800019 0 4808BSC + SKIP IF POSITIVECSP00390NCOMP 001A 0 COFCLD ONE+1 NEGATIVE OR ZERO-HAKE COUNT 1 CSP004000018 0 0038 STO COUNT+1 STORE JCARD LENGTH CSP00410001C 0 C103LO 1 3 GET KCARD ADDRESSCSP00420NSIGN001D 0 D044STO Kum PLACE IN CALLING SEQUENCE OF CSP00430001E 0 D062STO KCRD2 CARRY AND FILL SUBROUTINES CSP00440NZONE 001F 00 93800003S 11 5 SUBTRACT KLAST VALUECSP004500021 0 0037STO KCRD3+1 PLACE LOAD ADDR FOR ADD/SUB C5P00460PACK 0022 0 DO3ASTO KCII04+1 PLACE STORE ADDR FOR RESULT CSP004700023 0 004F STO KCRDS+1 PLACE SUBTRACT ADDRESS AND CSP00480PRINT0024 0 0050STO KCRD6+1 STORE ADDR FOR NEG CARRY CSP004900025 0 80F1A ONE+1 ADD CONSTANT OF ONECSP00$000026 0 D044STO KCRD7+1 PLACE ADDR FOR SIGN CHANGE CSP00510PUNCH 0027 0 0010STO KPLUS+1 PLACE ADDR OF SIGN OF KCARD CSP005200028 0 0106LD 1 6 GET NER ADDRESSCSP00530PUT0029 0 DOSESTO ERA+1 SAVE NER ADDRESSCSP00540• CLEAR AND SAVE SIGNS ON JCARD CSP00550P1403 • AND KCARD FIELDS. CSP00560002A 00 C4000000 JPLUS LD L •...• GET SIGN OF JCARD CSP00570P1442READR2501SKIPSTACKSUBS1403TYPERUNPA CWHOLE-152-