ASM1130 CROSS ASSEMBLER V1.22 -- V2M12 -- Sun Nov 1 19:25:07 2020
Source File: \s1edvr.asm
1 | *************************************************** S1D00010
2 | * * S1D00020
3 | * SUBROUTINE NAME- * S1D00030
4 | * FULL NAME- EXTENDED PRECISION FLOATING- * S1D00040
5 | * POINT DIVIDE REVERSE FUNCTION. * S1D00050
6 | * DIVIDE REVERSE FUNCTION. * S1D00060
7 | * CODE NAME- EDVR/EDVRX * S1D00070
8 | * PURPOSE- THIS SUBPROGRAM COMPUTES THE QUOTIENT* S1D00080
9 | * OF TWO EXTENDED PRECISION FLOATING-POINT * S1D00090
10 | * NUMBERS,REVERSING THE NORMAL ORDER OF * S1D00100
11 | * DIVISION. * S1D00110
12 | * METHOD-SEE IBM 1130 SUBROUTINE LIBRARY MANUAL.* S1D00120
13 | * CAPABILITIES AND LIMITATIONS- SEE IBM 1130 * S1D00130
14 | * SUBROUTINE LIBRARY MANUAL. * S1D00140
15 | * SPECIAL FEATURES- N/A * S1D00150
16 | * ADDITIONAL INFORMATION- * S1D00160
17 | * ESTIMATED EXECUTION TIME- SEE IBM 1130 * S1D00170
18 | * SUBROUTINE LIBRARY MANUAL * S1D00180
19 | * * S1D00190
20 | *************************************************** S1D00200
LIBF EDVR -V1.
22 | LIBR S1D00220
23 | EPR S1D00230
24 | ENT EDVR S1D00240
25 | ENT EDVRX S1D00250
0000 26 | BSS E 0 S1D00260
0000 0001 27 | ONE DC 1 SINGLE WORD ONE S1D00270
0001 0000 28 | DC 0 STORE EXPONENT OF TFAC S1D00280
0002 0000 0000 29 | TFAC DEC 0 FLT PT ZERO S1D00290
0004 6914 30 | EDVRX STX 1 SAVE+1 SAVE XR1 S1D00300
0005 C400 0000 31 | LD L *-* CALL+1 S1D00310
0007 7004 32 | MDX COM S1D00320
0008 6910 33 | EDVR STX 1 SAVE+1 SAVE XR1 S1D00330
0009 C400 0000 34 | LD L *-* CALL+1 S1D00340
000B 6100 35 | LDX 1 0 SUPPRESS INDEXING S1D00350
000C D003 36 | COM STO *+3 STORE LOC OF OPND ADDR S1D00360
000D 80F2 37 | A ONE BUILD EXIT S1D00370
000E D00C 38 | STO EXIT+1 S1D00380
000F 7580 0000 39 | MDX I1 *-* MODIFY XR1 BY OPND ADDR S1D00390
0011 1000 40 | NOP IF MAX CAUSES BR,SKIP NOP S1D00400
0012 058A*3580 41 | LIBF ESTO STORE PSEUDO-ACCUMULATOR S1D00410
0013 0001R 42 | DC TFAC-1 INTO TFAC S1D00420
0014 054C*49C0 43 | LIBF ELDX LOAD DIVIDEND S1D00430
0015 0000 44 | DC 0 INTO PSEUDO-ACCUMULATOR S1D00440
0016 0510*9940 45 | LIBF EDIV PERFORM DIVISION S1D00450
0017 0001R 46 | DC TFAC-1 S1D00460
0018 6500 0000 47 | SAVE LDX L1 *-* RESTORE XR1 S1D00470
001A 4C00 0000 48 | EXIT BSC L *-* BR TO CALL+1 S1D00480
001C 49 | END S1D00490
There were no errors in this assembly
=== CROSS REFERENCES ==========================================================
Name Val Defd Referenced
COM 000CR 36 32
EDVR 0008R 33
EDVRX 0004R 30
EXIT 001AR 48 38
ONE 0000R 27 37
SAVE 0018R 47 30 33
TFAC 0002R 29 42 46