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