ASM1130 CROSS ASSEMBLER V1.22 -- V2M12 -- Sun Nov 1 19:25:08 2020 Source File: \s3xmds.asm 1 | *************************************************** S3I00010 2 | * * S3I00020 3 | * SUBROUTINE NAME- * S3I00030 4 | * FULL NAME- STANDARD PRECISION FIXED-POINT * S3I00040 5 | * (FRACTIONAL) DOUBLE-WORD MULTIPLY * S3I00050 6 | * FUNCTION. * S3I00060 7 | * CODE NAME- XMDS * S3I00070 8 | * PURPOSE- THIS FUNCTION PERFORMS A FIXED-POINT * S3I00080 9 | * MULTIPLY OF TWO FIXED-POINT DOUBLE-WORD * S3I00090 10 | * FRACTIONS GIVING A 24-BIT RESULT * S3I00100 11 | * METHOD-SEE IBM 1130 SUBROUTINE LIBRARY MANUAL.* S3I00110 12 | * CAPABILITIES AND LIMITATIONS- SEE IBM 1130 * S3I00120 13 | * SUBROUTINE LIBRARY MANUAL. * S3I00130 14 | * SPECIAL FEATURES- N/A * S3I00140 15 | * ADDITIONAL INFORMATION- * S3I00150 16 | * ESTIMATED EXECUTION TIME- SEE IBM 1130 * S3I00160 17 | * SUBROUTINE LIBRARY MANUAL * S3I00170 18 | * * S3I00180 19 | *************************************************** S3I00190 LIBF XMDS -V1. 21 | LIBR S3I00210 22 | SPR S3I00220 23 | ENT XMDS S3I00230 0000 7002 24 | XMDS MDX *+2 ENTRY POINT S3I00240 0001 4C80 0000 25 | BSC I *-* LOADER INSERT S3I00250 0003 D814 26 | STD MPYER SAVE MULTIPLIER S3I00260 0004 A37E 27 | M 3 126 GET MOST SIGNIFICANT S3I00270 0005 D814 28 | STD PROD PRODUCT AND STORE S3I00280 0006 C012 29 | LD MPYER+1 GET SECOND HALF OF MPYER S3I00290 0007 4C18 000ER 30 | BSC L BY1,+- AND BR IF ZERO S3I00300 0009 1801 31 | SRA 1 IF NOT ZERO,POSITION AND S3I00310 000A A37E 32 | M 3 126 MPY. S3I00320 000B 188F 33 | SRT 15 SCALE RESULT AND ADD TO S3I00330 000C 880D 34 | AD PROD PREVIOUS PRODUCT. S3I00340 000D D80C 35 | STD PROD S3I00350 000E CB7F 36 | BY1 LDD 3 127 GET SECOND HALF OF MULTI- S3I00360 000F 4C18 0014R 37 | BSC L BY2,+- PLICAND, BR IF ZERO. S3I00370 0011 1801 38 | SRA 1 IF NOT ZERO,POSITION AND S3I00380 0012 A005 39 | M MPYER MPY. S3I00390 0013 188F 40 | SRT 15 SCALE RESULT AND ADD TO S3I00400 0014 8805 41 | BY2 AD PROD PREVIOUS PRODUCT. S3I00410 0015 1081 42 | SLT 1 PLACE BINARY POINT FOR RET S3I00420 0016 70EA 43 | MDX XMDS+1 RETURN TO MAIN PROG S3I00430 0018 0000 0000 44 | MPYER DEC 0.0 STORE MULTIPLIER S3I00440 001A 0000 0000 45 | PROD DEC 0.0 PRODUCT BUFFER S3I00450 001C 46 | END S3I00460 There were no errors in this assembly === CROSS REFERENCES ========================================================== Name Val Defd Referenced BY1 000ER 36 30 BY2 0014R 41 37 MPYER 0018R 44 26 29 39 PROD 001AR 45 28 34 35 41 XMDS 0000R 24 43