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

ii.PAGE 20030 0 TIFF MDX 1 . 1 DECREMENT N BY ONE CSP196100031 0 70F9 MDX AGAIN NOT DONE-GO BACK FOR MORE C5P19620• JNOWJLAST CSP196300032 00 65000000 PUTCT LDX LI 41• DONE-PUT FIELD WIDTH IN IR1 CSP196400034 20 058A3580 BACK LIBF ESTO STORE FAC CSP196500035 1 0062 DC DIGS IN DIGS C5P19660• DIGT•WHOLEIDIGS/10.01 CSP196700036 20 05517A00 LIBF EMPY MULTIPLY BY CSP196800037 1 005C. DC PNT1 ONE TENTH AND CSP196900038 30 262164C5 CALL WHOLE TRUNCATE ANY FRACTION CSPI9700003A 0 0000 JLAST DCJLAST VALUEC5P19710003B 20 058A3580 LIBF ESTO STORE RESULT IN CSP19720003C 1 0065 DC DIGS1 DIGS1-SAME AS DIGT CSP19730• JCARDIJNOW/•256*IFIXIDIGS C5P19740• .. 10.0*DIGT/4032 CSP19750• MULTIPLY BY 256 IS SAME AS SHIFT CSP19760• EIGHT CSP19770• SUBTRACT 4032 IS SAME AS OR F040 CSP197800030 20 05517A00 LIBF EMPY MULTIPLY DIGT BY CSP19790003E 1 005F DC ETEN TEN ANDCSPI9800003F 20 15599500 LIBF NORM NORMALIZE THE RESULT C5P198100040 20 22559000 LIBF SNR REVERSE THE SIGN CSP198200041 20 05044100 LIBF EADD AND ADD IN THE CSP198300042 1 0062 DC DIGS VALUE OF DIGS C5P198400043 20 091899C0 LIBF IFIX FIX THE RESULT CSP198500044 0 1008 SLA 8 AND PLACE IN BITS 47 CSP198600045 0 EBDF OR ZERO MAKE AN Al CHARACTER CSP198700046 00 D4000000 PUT1 STO L •* AND STORE IN JCARDIJNOW CSP198800048 20 054C4000 LIBF ELD SET FAC EQUAL CSP198900049 1 0065 DC DIGS1 TO DIGS1 CSP19900• SEE IF JNOW IS GREATER THAN J. CSP19910• IF YES, JNOW .JNOW .. 1 AND GO BACK CSP19920* FOR MORE. IF NO, SET ZONE. CSP19930004A 01 74010047 MDX L PUT1♦1.1 CHANGE JCARD ADDRESS CSP19940004C 0 TIFF MDX 1 1 DECREMENT COUNT CSP199500040 0 70E6 MDX BACK NOT DONE-GO BACK FOR MORE CSP19960• IS VAR LESS THAN ZERO CSP19970004E 00 C4000000 SIGN LD L *-* DONE-PICKUP ORIGINAL SIGN CSP199800050 01 4C100058 BSC L FIN.- IF NOT NEG-ALL DONE-GO TO EXIT CSP199900052 30 15A56545 CALL NZONE CALL NZONE FOR ZONE SETTING CSP200000054 0 0000 JCRD1 DC 41■* ADDRESS OF JCARD CSP200100055 1 003A DC JLAST ADDRESS OF JLAST CSP200200056 1 0014 DC TWO+1 ADDRESS OF NEW ZONE INDICATOR CSP200300057 1 0054 DC JCRD1 DUMMY CSP20040* EXIT CSP200500058 00 65000000 FIN LOX LI *41 RESTORE IR1 CSP20060005A 00 4C000000 DONE1 BSC L 4.41 RETURN TO CALLING PROGRAM CSP20070005C 7D 66666666 PNT1 XFLC 0.1 CONSTANT OF ONE TENTH CSP20080005F 84 50000000 ETEN XFLC 10.0 CONSTANT OF TEN POINT ZERO CSP200900062 0003 DIGS BSS 3 TEMPORARY AREA FOR GETTING A DGT CSP201000065 0003 DIGS1 BSS 3 TEMPORARY AREA FOR GETTING A DOT CSP201100068 END CSP20120NO ERRORS IN ABOVE ASSEMBLY.// DUP C5P20130•STORE WS VA PUT33A2 0007CSP20140ADDA1A3A1DECA3A1CARRYDECALDIVDPACKDUNPKEDITFILLGETICOMPIONDKEYBDMOVEMPYNCOMPNSIGNNZONEPACKPRINTPUNCHPUTP1403P1442READR2501SKIPSTACKSUBS1403TYPERUNPACWHOLE-181-i pp,pni unwl 11 11 .,I MI