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