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