ASM1130 CROSS ASSEMBLER V1.22 -- V2M12 -- Sun Nov 1 19:25:07 2020 Source File: \s1esbr.asm 1 | *************************************************** S1H00010 2 | * * S1H00020 3 | * SUBROUTINE NAME- * S1H00030 4 | * FULL NAME- EXTENDED PRECISION FLOATING- * S1H00040 5 | * POINT SUBTRACT REVERSE SUBPROGRAM. * S1H00050 6 | * CODE NAME- ESBR/ESBRX * S1H00060 7 | * PURPOSE- THIS SUBPROGRAM SUBTRACTS ONE EXTEND-* S1H00070 8 | * ED PRECISION FLOATING-POINT NUMBER FROM * S1H00080 9 | * ANOTHER IN REVERSE ORDER. * S1H00090 10 | * METHOD-SEE IBM 1130 SUBROUTINE LIBRARY MANUAL.* S1H00100 11 | * CAPABILITIES AND LIMITATIONS- SEE IBM 1130 * S1H00110 12 | * SUBROUTINE LIBRARY MANUAL. * S1H00120 13 | * SPECIAL FEATURES- N/A * S1H00130 14 | * ADDITIONAL INFORMATION- * S1H00140 15 | * ESTIMATED EXECUTION TIME- SEE IBM 1130 * S1H00150 16 | * SUBROUTINE LIBRARY MANUAL * S1H00160 17 | * * S1H00170 18 | *************************************************** S1H00180 LIBF ESBR -V1. 20 | LIBR S1H00200 21 | EPR S1H00210 22 | ENT ESBR S1H00220 23 | ENT ESBRX S1H00230 0000 6913 24 | ESBRX STX 1 SAVE+1 SAVE XR1 S1H00240 0001 C400 0000 25 | LD L *-* CALL+1 S1H00250 0003 7004 26 | MDX COM S1H00260 0004 690F 27 | ESBR STX 1 SAVE+1 SAVE XR1 S1H00270 0005 C400 0000 28 | LD L *-* CALL+1 S1H00280 0007 6100 29 | LDX 1 0 NON-INDEXED S1H00290 0008 D003 30 | COM STO *+3 STORE ADDR OF MINUEND S1H00300 0009 800D 31 | A ONE INCR ADDR FOR RET S1H00310 000A D00B 32 | STO EXIT+1 BUILD EXIT S1H00320 000B 7580 0000 33 | MDX I1 *-* INCR (XR1) BY (CALL+1) S1H00330 000D 1000 34 | NOP IF MDX CAUSES BR,SKIP NOP S1H00340 000E 10A0 35 | SLT 32 CLEAR ACC AND EXT S1H00350 000F 9B7E 36 | SD 3 126 REVERSE SIGN OF (FAC) S1H00360 0010 DB7E 37 | STD 3 126 S1H00370 0011 0504*4127 38 | LIBF EADDX REQUIRED SUBTRACTION S1H00380 0012 0000 39 | DC 0 ADDR ADDED TO XR1-GET OPND S1H00390 0013 6500 0000 40 | SAVE LDX L1 *-* RESTORE XR1 S1H00400 0015 4C00 0000 41 | EXIT BSC L *-* RET TO CALL+2 S1H00410 0017 0001 42 | ONE DC 1 SINGLE WORD ONE S1H00420 0018 43 | END S1H00430 There were no errors in this assembly === CROSS REFERENCES ========================================================== Name Val Defd Referenced COM 0008R 30 26 ESBR 0004R 27 ESBRX 0000R 24 EXIT 0015R 41 32 ONE 0017R 42 31 SAVE 0013R 40 24 27