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

ASM0• READ SUBROUTINE FOR 1130 CSP, 2501 1101CSP22310CSP22320• NAME R2501(ID) CSP22330• LISTCSP22340A 1A3CSP22350• CALL R25014JCARD. J. JLAST. NERR11CSP22360A 1DEC• READ COLUMNS FROM BEGINNING OF CARD INTO JCARDIJ/ CSP22370• THROUGH JCARDULAST1. PUT ERROR PARAMETER IN CSP22380A3A 1• NERRleCSP223900053 19CB5C31 ENT 82501 SUBROUTINE ENTRY POINT0001 0051ADDRESSAREA BSS 81 I/0 AREA BUFFERCSP22400CSP224100000 0 0000JCARD DC •..• JCARD JCARRY0052 0 0000FLAG DC 0—• ERROR INDICATORC5P224200053 0 0000R2501 DC 0-0 FIRST ARGUMENT ADDRESS CSP22430 DE CA 111 R2501 GET 1ST ARGUMENT ADDRESS CSP22450 DIV0097 20 01647880 LIBF ARGS CALL ARGS SUBPROGRAM CSP224600058 1 0000DC JCARD GET JCARD J ADDRESSCSP22470DPACK0059 1 0072DC JLAS1 GET JCARD JLAST ADDRESS CSP224800054 0 692C0095 01 65800053STX 1 SAVE1151 SAVE IR1LDXCSP224400056 0 0050DC 80 MAX CHARACTER COUNTCSP22500005A 1 0001DC AREA GET CHARACTER COUNT .CSP22490DUNPK009C 0 COA4LD AREA DISTRIBUTE COUNTCSP22510005D 0 0015STO CNT1 INTO CNT1CSP22520EDIT005E 0 C103 LD 1 3 GET ERROR WORD ADDRESS CSP22530005F 0 D026STO ERRS]. STORE INSIDE ERROR ROUTINE CSP225400060 0 1810SRA 16 CLEAR ACCCSP22550FILL0061 0 DOFO0062 0 7104STO FLAG CLEAR ERROR INDICATORMO% 1 4 INCREMENT 4 ARGUMENTSCSP22560CSP22570GET0063 0 691FSTX 1 DONEE./ STORE IR1CSP225800064 0 CO26LD ONE SET AREA TO ALL ONESCSP22590ICOMP0067 01 D5000001 MO STO Ll AREA STORE A ONE IN AREA CSP22610 IOND0069 0 71FF MD% 1 — 1 GO TO NEXT WORD OF AREA CSP22620006A 0 70FCMDX MO GO BACK UNTIL FINISHEDCSP22630ROUTINEKEYBD0068 20 19141131LIBF READ1 CALL CARD READ CSP226400065 00 65000050 LOX LI 80 LOAD IR1 WITH AREA SIZE CSP22600006C 0 1000DC /1000 READCSP22650006D 1 0001DC AREA AREA PARAMETERCSP22660MOVE006E 1 0084DC ERROR ERROR PARAMETERCSP22670006F 20 225C5144 CONVT LIBF SPEED CALL CONVERSION ROUTINE CSP22680MPY0070 0 00100071 1 00020072 0 0000DC /0010 CARD CODE TO EBCDICDC AREA&1 FROM AREAJLAS1 DC 0-0 TO JCARD JLASTCSP22690CSP22700CSP22710NCOMP0073 0 0000CNT1 DC •—• CHARACTER COUNTCSP227200074 0 CORDLD FLAG ERROR INDICATORCSP22730NSIGN0075 01 4C18007ABSC L FINAL 14 .. ALL DONE IF ZEROCSP227400077 0 1810SRA 16 CLEAR ACCCSP22790N ZONE0079 0 70F5 MDX CONVT CONVERT AGAIN CSP22770 PACK007A 20 22989547 FINAL LIBF SWING REVERSE THE ARRAY CSP22780DC JCARD FROM JCARD JPRINT00713 1 0000007C 1 0072DC JLAS1 TO JCARD JLASTCSP22790CSP228000078 0 0009 STO FLAG CLEAR THE INDICATOR CSP22760007D 20 19141131007E 0 0000TEST LIBF READ1 CALL BUSY TEST ROUTINEDC /0000 BUSY TEST PARAMETERCSP22810CSP22820PUNCH007F 0 70FDMDX TEST REPEAT IF BUSYCSP228300080 00 65000000 SAVE1 LOX LI •..• RESTORE IR1CSP22840PUT0082 00 4C000000 DONE BSC L • .-0 RETURN TO CALLING PROGRAM CSP228500084 0 0000 ERROR DC 0-0 START OF ERROR ROUTINE CSP22860 P14030085 00 04000000 ERR STO L •• STORE ACC IN ERROR WORD CSP22870P1442REA DR2501SKIPSTACK0087 01 740100520089 01 4C800084008B 0 0001008CNO ERRORS IN ABOVE ASSEMBLY.PAGE 2MDX L FLAG.1 SET THE FLAG INDICATOR CSP22880BSC I ERROR RETURN TO INTERRUPT PROGRM CSP22890ONE DC 1 CONSTANT OF ONECSP22900END END OF R2501 SUBPROGRAM CSP22910ADDSUBS1403TYPERUNPACWHO LE// DUP CSP22920•STORE WS UA R2501CSP229303389 0005/.1 ASM•0 STACKER SELECT SUBROUTINE FOR 1130 COMMERCIAL SUBROUTINE PACKAGE(IDICSP22940CSP22950• NAME STACKIID1 CSP22960• LISTCSP229700002 228C1002 ENT STACK STACK SUBROUTINE POINT CSP22980• CALL STACK CSP22990• SELECTS THE NEXT CARD THROUGH CSP23000• THE PUNCH STATION TO THE CSP23010• ALTERNATE STACKER ON THE 1442 ..5. CSP23020• 6.0R 7. CSP230300000 0 0000 IOCC DC 0 I/O COMMAND FIRST WORD CSP230400001 0 1480 DC /1480 I/0 COMMAND .. SECOND WORD CSP230500002 0 0000 STACK DC •-.• .RETURN ADDRESS COMES IN HERE CSP230600003 0 08FC X10 IOCC SELECT STACKER CSP230700004 01 4C800002 BSC I STACK RETURN TO CALLING PROG CSP230800006 END CSP23090NO ERRORS IN ABOVE ASSEMBLY.-185-01.1.1,41.1.11111..nliwiii1111111.11mIliiiniiill1111111411111mHull 11