ASM1130 CROSS ASSEMBLER V1.22 -- V2M12 -- Sun Nov 1 19:25:07 2020 Source File: \r1fdvr.asm 1 | *************************************************** R1D00010 2 | * * R1D00020 3 | * SUBROUTINE NAME- * R1D00030 4 | * FULL NAME- STANDARD PRECISION FLOATING- * R1D00040 5 | * POINT DIVIDE REVERSE FUNCTION. * R1D00050 6 | * CODE NAME- FDVR/FDVRX * R1D00060 7 | * PURPOSE- THIS SUBPROGRAM COMPUTES, IN REVERSE * R1D00070 8 | * ORDER OF INPUT, THE QUOTIENT OF TWO STAND- * R1D00080 9 | * ARD PRECISION FLOATING-POINT NUMBERS * R1D00090 10 | * METHOD-SEE IBM 1130 SUBROUTINE LIBRARY MANUAL.* R1D00100 11 | * CAPABILITIES AND LIMITATIONS- SEE IBM 1130 * R1D00110 12 | * SUBROUTINE LIBRARY MANUAL. * R1D00120 13 | * SPECIAL FEATURES- N/A * R1D00130 14 | * ADDITIONAL INFORMATION- * R1D00140 15 | * ESTIMATED EXECUTION TIME- SEE IBM 1130 * R1D00150 16 | * SUBROUTINE LIBRARY MANUAL * R1D00160 17 | * * R1D00170 18 | *************************************************** R1D00180 LIBF FDVR -V1. 20 | LIBR R1D00200 21 | SPR R1D00210 22 | ENT FDVR R1D00220 23 | ENT FDVRX R1D00230 0000 0000 0000 24 | TFAC DEC 0 STORE CONTENTS OF FAC R1D00240 0002 6914 25 | FDVRX STX 1 SAVE+1 SAVE XR1 R1D00250 0003 C400 0000 26 | LD L *-* CALL+1 R1D00260 0005 7004 27 | MDX COM R1D00270 0006 6910 28 | FDVR STX 1 SAVE+1 SAVE XR1 R1D00280 0007 C400 0000 29 | LD L *-* CALL+1 R1D00290 0009 6100 30 | LDX 1 0 XR1=ZERO R1D00300 000A D003 31 | COM STO *+3 R1D00310 000B 800E 32 | A ONE BUILD EXIT R1D00320 000C D00C 33 | STO EXIT+1 R1D00330 000D 7580 0000 34 | MDX I1 *-* MODIFY X1 BY OP ADDRESS R1D00340 000F 1000 35 | NOP IF MDX CAUSES BR,SKIP NOP R1D00350 0010 068A*3580 36 | LIBF FSTO STORE FAC INTO TFAC R1D00360 0011 0000R 37 | DC TFAC INTO TFAC R1D00370 0012 064C*49C0 38 | LIBF FLDX LOAD DIVIDEND INTO FAC R1D00380 0013 0000 39 | DC 0 INTO PSEUDO-ACCUMULATOR R1D00390 0014 0610*9940 40 | LIBF FDIV PERFORM REVERSE DIVISION R1D00400 0015 0000R 41 | DC TFAC R1D00410 0016 6500 0000 42 | SAVE LDX L1 *-* RESTORE XR1 R1D00420 0018 4C00 0000 43 | EXIT BSC L *-* BR OUT R1D00430 001A 0001 44 | ONE DC 1 SINGLE WORD ONE R1D00440 001B 45 | END R1D00450 There were no errors in this assembly === CROSS REFERENCES ========================================================== Name Val Defd Referenced COM 000AR 31 27 EXIT 0018R 43 33 FDVR 0006R 28 FDVRX 0002R 25 ONE 001AR 44 32 SAVE 0016R 42 25 28 TFAC 0000R 24 37 41