ASM1130 CROSS ASSEMBLER V1.22 -- V2M12 -- Sun Nov 1 19:25:08 2020 Source File: \t3isign.asm CALL ISIGN 2 | *************************************************** T3D00020 3 | * * T3D00030 4 | * SUBROUTINE NAME- * T3D00040 5 | * FULL NAME-INTEGER TRANSFER OF SIGN * T3D00050 6 | * CODE NAME-ISIGN * T3D00060 7 | * PURPOSE- 2-12 T3D00070 8 | * PROVIDE FORTRAN SIGN CHANGE FUNCTION 2-12 T3D00072 9 | * METHOD- 2-12 T3D00074 10 | * COMPLIMENT ARG1 IF THE SIGNS OF ARG1 2-12 T3D00076 11 | * AND ARG2 ARE DIFFERANT. IF THE SIGNS 2-12 T3D00078 12 | * ARE THE SAME, NO SIGN CHANGE OCCURS. 2-12 T3D00080 13 | * CAPABILITIES AND LIMITATIONS-N/A * T3D00100 14 | * SPECIAL FEATURES-N/A * T3D00110 15 | * ADDITIONAL INFORMATION- * T3D00120 16 | * ESTIMATED EXECUTION TIME-N/A * T3D00130 17 | * * T3D00140 18 | *************************************************** T3D00150 19 | * * T3D00160 20 | ENT ISIGN T3D00170 0000 0000 21 | ISIGN DC *-* LOADER STORE 1ST DC ADDR T3D00180 0001 6A12 22 | STX 2 SAVE+1 SAVE XR2 T3D00190 0002 6680 0000R 23 | LDX I2 ISIGN LOAD XR2 WITH 1ST ARG ADDR T3D00200 0004 C680 0000 24 | LD I2 0 LOAD FIRST ARGUMENT T3D00210 0006 D00F 25 | STO SAVE+3 SAVE FIRST ARGUMENT T3D00220 0007 4C18 0011R 26 | BSC L GOOUT,+- NO CHANGE IF ZERO T3D00230 0009 F680 0001 27 | EOR I2 1 EOR SECOND ARGUMENT T3D00240 000B 4C10 0010R 28 | BSC L RELDA,- BRANCH IF NO CHANGE T3D00250 000D 1010 29 | SLA 16 CLEAR ACC TO CHANGE T3D00260 000E 9007 30 | S SAVE+3 SUBT FIRST ARGUMENT TO T3D00270 000F 7001 31 | MDX GOOUT *REVERSE SIGN. GO OUT T3D00280 0010 C005 32 | RELDA LD SAVE+3 RELOAD FIRST ARGUMENT T3D00290 0011 7202 33 | GOOUT MDX 2 2 SET UP EXIT ADDRESS AND T3D00300 0012 6A03 34 | STX 2 SAVE+3 *STORE FOR RETURN T3D00310 0013 6600 0000 35 | SAVE LDX L2 *-* RESTORE XR2 AND THEN T3D00320 0015 4C00 0000 36 | BSC L *-* *BRANCH TO MAINLINE T3D00330 0017 37 | END T3D00340 There were no errors in this assembly === CROSS REFERENCES ========================================================== Name Val Defd Referenced GOOUT 0011R 33 26 31 ISIGN 0000R 21 23 RELDA 0010R 32 28 SAVE 0013R 35 22 25 30 32 34