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