ASM1130 CROSS ASSEMBLER V1.22 -- V2M12 -- Sun Nov 1 19:25:07 2020
Source File: \r2fsign.asm
CALL FSIGN
2 | *************************************************** R2F00020
3 | * * R2F00030
4 | * SUBROUTINE NAME- * R2F00040
5 | * FULL NAME-STANDARD PRECISION TRANSFER OF * R2F00050
6 | * SIGN * R2F00060
7 | * CODE NAME-FSIGN * R2F00070
8 | * PURPOSE- 2-12 R2F00080
9 | * PROVIDE FORTRAN SIGN CHANGE FUNCTION 2-12 R2F00085
10 | * METHOD- 2-12 R2F00090
11 | * CHANGE THE VALUE OF THE FLOATING ACCUM- 2-12 R2F00092
12 | * ULATOR (FAC) TO THE COMPLIMENT OF ARG1 2-12 R2F00094
13 | * IF THE SIGNS OF ARG1 AND ARG2 ARE DIFF- 2-12 R2F00096
14 | * ERENT. IF THE SIGNS ARE THE SAME, FAC 2-12 R2F00098
15 | * IS LOADED WITH THE VALUE OF ARG1 AND NO 2-12 R2F00100
16 | * SIGN CHANGE OCCURS. 2-12 R2F00102
17 | * CAPABILITIES AND LIMITATIONS-N/A * R2F00110
18 | * SPECIAL FEATURES-N/A * R2F00120
19 | * ADDITIONAL INFORMATION- * R2F00130
20 | * ESTIMATED EXECUTION TIME-N/A * R2F00140
21 | * * R2F00150
22 | *************************************************** R2F00160
23 | * * R2F00170
24 | SPR R2F00180
25 | ENT FSIGN R2F00190
0000 0000 26 | FSIGN DC *-* LOADER STORE 1ST DC ADDR R2F00200
0001 6A1B 27 | STX 2 SAVE+1 SAVE XR2 R2F00210
0002 C0FD 28 | LD FSIGN LOAD 1ST DC ADDRESS R2F00220
0003 D003 29 | STO *+3 R2F00230
0004 801B 30 | A ONE COMPUTE 2ND DC ADDRESS AND R2F00240
0005 D006 31 | STO LDIRA+1 *STORE FOR LOADING OF XR2 R2F00250
0006 6680 0000 32 | LDX I2 *-* LOAD XR2 ARGUMENT A ADDR. R2F00260
0008 6A0D 33 | STX 2 DCA STORE FOR CALL FLOAT SUBT R2F00270
0009 6A0F 34 | STX 2 DCB STORE FOR CALL FLOAT LOAD R2F00280
000A C200 35 | LD 2 0 LOAD ARGUMENT A MANTISSA R2F00290
000B 6680 0000 36 | LDIRA LDX I2 *-* LOAD XR2 ARGUMENT B ADDR R2F00300
000D 4C18 0018R 37 | BSC L NOCNG,+- NO CHANGE IF ARG. A ZERO R2F00310
000F F200 38 | EOR 2 0 EOR ARGUMENT B MANTISSA R2F00320
0010 4C10 0018R 39 | BSC L NOCNG,- NO CHANGE IF SIGNS AGREE R2F00330
0012 10A0 40 | SLT 32 ZERO THE ACC AND EXT R2F00340
0013 DB7E 41 | STD 3 126 STORE ZEROS INTO THE R2F00350
0014 D37D 42 | STO 3 125 *FLOATING ACCUMULATOR R2F00360
0015 068A*4080 43 | LIBF FSUB CALL FLOATING SUBTRACT R2F00370
0016 0000 44 | DCA DC *-* PARAMETER,MODIFIED ABOVE R2F00380
0017 7002 45 | MDX GOOUT GO TO EXIT R2F00390
0018 064C*4000 46 | NOCNG LIBF FLD CALL FLOATING LOAD R2F00400
0019 0000 47 | DCB DC *-* PARAMETER,MODIFIED ABOVE R2F00410
001A 7402 0000R 48 | GOOUT MDX L FSIGN,2 SET UP EXIT ADDRESS R2F00420
001C 6600 0000 49 | SAVE LDX L2 *-* RESTORE XR2 R2F00430
001E 4C80 0000R 50 | BSC I FSIGN RETURN TO MAINLINE R2F00440
0020 0001 51 | ONE DC 1 CONSTANT R2F00450
0021 52 | END R2F00460
There were no errors in this assembly
=== CROSS REFERENCES ==========================================================
Name Val Defd Referenced
DCA 0016R 44 33
DCB 0019R 47 34
FSIGN 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