ASM1130 CROSS ASSEMBLER V1.22 -- V2M12 -- Sun Nov 1 19:25:08 2020
Source File: \s2esign.asm
CALL ESIGN
2 | *************************************************** S2F00020
3 | * * S2F00030
4 | * SUBROUTINE NAME- * S2F00040
5 | * FULL NAME-EXTENDED PRECISION TRANSFER OF * S2F00050
6 | * SIGN * S2F00060
7 | * CODE NAME-ESIGN * S2F00070
8 | * PURPOSE- 2-12 S2F00080
9 | * PROVIDE FORTRAN SIGN CHANGE FUNCTION 2-12 S2F00085
10 | * METHOD- 2-12 S2F00090
11 | * CHANGE THE VALUE OF THE FLOATING ACCUM- 2-12 S2F00092
12 | * ULATOR (FAC) TO THE COMPLIMENT OF ARG1 2-12 S2F00094
13 | * IF THE SIGNS OF ARG1 AND ARG2 ARE DIFF- 2-12 S2F00096
14 | * ERENT. IF THE SIGNS ARE THE SAME, FAC 2-12 S2F00098
15 | * IS LOADED WITH THE VALUE OF ARG1 AND NO 2-12 S2F00100
16 | * SIGN CHANGE OCCURS. 2-12 S2F00102
17 | * CAPABILITIES AND LIMITATIONS-N/A * S2F00110
18 | * SPECIAL FEATURES-N/A * S2F00120
19 | * ADDITIONAL INFORMATION- * S2F00130
20 | * ESTIMATED EXECUTION TIME-N/A * S2F00140
21 | * * S2F00150
22 | *************************************************** S2F00160
23 | * * S2F00170
24 | EPR S2F00180
25 | ENT ESIGN S2F00190
0000 0000 26 | ESIGN DC *-* LOADER STORE 1ST DC ADDR S2F00200
0001 6A1B 27 | STX 2 SAVE+1 SAVE XR2 S2F00210
0002 C0FD 28 | LD ESIGN LOAD 1ST DC ADDRESS S2F00220
0003 D003 29 | STO *+3 S2F00230
0004 801B 30 | A ONE COMPUTE 2ND DC ADDRESS AND S2F00240
0005 D006 31 | STO LDIRA+1 *STORE FOR LOADING OF XR2 S2F00250
0006 6680 0000 32 | LDX I2 *-* LOAD XR2 ARGUMENT A ADDR. S2F00260
0008 6A0D 33 | STX 2 DCA STORE FOR CALL FLOAT SUBT S2F00270
0009 6A0F 34 | STX 2 DCB STORE FOR CALL FLOAT LOAD S2F00280
000A C201 35 | LD 2 1 LOAD ARGUMENT A MANTISSA S2F00290
000B 6680 0000 36 | LDIRA LDX I2 *-* LOAD XR2 ARGUMENT B ADDR S2F00300
000D 4C18 0018R 37 | BSC L NOCNG,+- NO CHANGE IF ARG. A ZERO S2F00310
000F F201 38 | EOR 2 1 EOR ARGUMENT B MANTISSA S2F00320
0010 4C10 0018R 39 | BSC L NOCNG,- NO CHANGE IF SIGNS AGREE S2F00330
0012 10A0 40 | SLT 32 ZERO THE ACC AND EXT S2F00340
0013 DB7E 41 | STD 3 126 STORE ZEROS INTO THE S2F00350
0014 D37D 42 | STO 3 125 *FLOATING ACCUMULATOR S2F00360
0015 058A*4080 43 | LIBF ESUB CALL FLOATING SUBTRACT S2F00370
0016 0000 44 | DCA DC *-* PARAMETER,MODIFIED ABOVE S2F00380
0017 7002 45 | MDX GOOUT GO TO EXIT S2F00390
0018 054C*4000 46 | NOCNG LIBF ELD CALL FLOATING LOAD S2F00400
0019 0000 47 | DCB DC *-* PARAMETER,MODIFIED ABOVE S2F00410
001A 7402 0000R 48 | GOOUT MDX L ESIGN,2 SET UP EXIT ADDRESS S2F00420
001C 6600 0000 49 | SAVE LDX L2 *-* RESTORE XR2 S2F00430
001E 4C80 0000R 50 | BSC I ESIGN RETURN TO MAINLINE S2F00440
0020 0001 51 | ONE DC 1 CONSTANT S2F00450
0021 52 | END S2F00460
There were no errors in this assembly
=== CROSS REFERENCES ==========================================================
Name Val Defd Referenced
DCA 0016R 44 33
DCB 0019R 47 34
ESIGN 0000R 26 28 48 50
GOOUT 001AR 48 45
LDIRA 000BR 36 31
NOCNG 0018R 46 37 39
ONE 0020R 51 30
SAVE 001CR 49 27