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