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