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