ASM1130 CROSS ASSEMBLER V1.22 -- V2M12 -- Sun Nov 1 19:25:08 2020
Source File: \s3snr.asm
1 | *************************************************** S3F00010
2 | * * S3F00020
3 | * SUBROUTINE NAME- * S3F00030
4 | * FULL NAME- FLOATING-POINT SIGN REVERSAL * S3F00040
5 | * FUNCTION * S3F00050
6 | * CODE NAME- SNR * S3F00060
7 | * PURPOSE- THIS SUBPROGRAM REVERSES THE SIGN OF * S3F00070
8 | * A FLOATING-POINT EXTENDED PRECISION NUMBER.* S3F00080
9 | * METHOD-SEE IBM 1130 SUBROUTINE LIBRARY MANUAL.* S3F00090
10 | * CAPABILITIES AND LIMITATIONS- SEE IBM 1130 * S3F00100
11 | * SUBROUTINE LIBRARY MANUAL. * S3F00110
12 | * SPECIAL FEATURES- N/A * S3F00120
13 | * ADDITIONAL INFORMATION- * S3F00130
14 | * ESTIMATED EXECUTION TIME- SEE IBM 1130 * S3F00140
15 | * SUBROUTINE LIBRARY MANUAL * S3F00150
16 | * * S3F00160
17 | *************************************************** S3F00170
LIBF SNR -V1.
19 | LIBR S3F00190
20 | ENT SNR S3F00200
0000 7002 21 | SNR MDX *+2 S3F00210
0001 4C80 0000 22 | BSC I *-* LOADER INSERT S3F00220
0003 10A0 23 | SLT 32 CLEAR ACC AND EXT S3F00230
0004 9B7E 24 | SD 3 126 REVERSE SIGN S3F00240
0005 DB7E 25 | STD 3 126 PUT BACK IN FAC S3F00250
0006 70FA 26 | MDX SNR+1 BRANCH TO RETURN S3F00260
0007 27 | END S3F00270
There were no errors in this assembly
=== CROSS REFERENCES ==========================================================
Name Val Defd Referenced
SNR 0000R 21 26