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