ASM1130 CROSS ASSEMBLER V1.22 -- V2M12 -- Sun Nov 1 19:25:08 2020
Source File: \t1iabs.asm
1 | *************************************************** T1B00010
2 | * * T1B00020
3 | * SUBROUTINE NAME- * T1B00030
4 | * FULL NAME- INTEGER ABSOLUTE VALUE FUNCTION * T1B00040
5 | * CODE NAME- IABS * T1B00050
6 | * PURPOSE- THIS SUBPROGRAM COMPUTES THE ABSOLUTE* T1B00060
7 | * VALUE OF A ONE-WORD INTEGER. * T1B00070
8 | * METHOD-SEE IBM 1130 SUBROUTINE LIBRARY MANUAL.* T1B00080
9 | * CAPABILITIES AND LIMITATIONS- SEE IBM 1130 * T1B00090
10 | * SUBROUTINE LIBRARY MANUAL. * T1B00100
11 | * SPECIAL FEATURES- N/A * T1B00110
12 | * ADDITIONAL INFORMATION- * T1B00120
13 | * ESTIMATED EXECUTION TIME- SEE IBM 1130 * T1B00130
14 | * SUBROUTINE LIBRARY MANUAL * T1B00140
15 | * * T1B00150
16 | *************************************************** T1B00160
CALL IABS -V1.
18 | ENT IABS STANDARD FORTRAN NAME T1B00180
0000 0000 19 | IABS DC 0 FORTRAN ENTRY T1B00190
0001 C0FE 20 | LD IABS GET OPERAND ADDRESS T1B00200
0002 D003 21 | STO *+3 AND ST TO GET OPND T1B00210
0003 8009 22 | A ONE BUILD EXIT T1B00220
0004 D0FB 23 | STO IABS T1B00230
0005 C480 0000 24 | LD I *-* GET OPND T1B00240
0007 4C90 0000R 25 | BSC I IABS,- BR OUT IF NOT NEG T1B00250
0009 F004 26 | EOR ONES IF NEG,CHANGE FROM TWOS T1B00260
000A 8002 27 | A ONE COMPLEMENT FORM TO REVERSE T1B00270
000B 4C80 0000R 28 | BSC I IABS THE SIGN AND RETURN. T1B00280
000D 0001 29 | ONE DC 1 SINGLE WORD ONE T1B00290
000E FFFF 30 | ONES DC /FFFF ALL-BIT MASK T1B00300
000F 31 | END T1B00310
There were no errors in this assembly
=== CROSS REFERENCES ==========================================================
Name Val Defd Referenced
IABS 0000R 19 20 23 25 28
ONE 000DR 29 22 27
ONES 000ER 30 26