ASM1130 CROSS ASSEMBLER V1.22 -- V2M12 -- Sun Nov 1 19:25:07 2020
Source File: \r1fegtp.asm
1 | *************************************************** R1E00010
2 | * * R1E00020
3 | * SUBROUTINE NAME- * R1E00030
4 | * FULL NAME- STANDARD PRECISION FLOATING- * R1E00040
5 | * POINT GET PARAMETER SUBROUTINE. * R1E00050
6 | * CODE NAME- FGETP * R1E00060
7 | * PURPOSE- THIS SUBROUTINE LOADS A STANDARD * R1E00070
8 | * PRECISION FLOATING POINT ARGUMENT INTO FAC,* R1E00080
9 | * AND SETS UP IN THE SUBROUTINE WHICH CALLED * R1E00090
10 | * FGETP THE RETURN ADDRESS TO THE MAIN PROG. * R1E00100
11 | * METHOD-SEE IBM 1130 SUBROUTINE LIBRARY MANUAL.* R1E00110
12 | * CAPABILITIES AND LIMITATIONS- SEE IBM 1130 * R1E00120
13 | * SUBROUTINE LIBRARY MANUAL. * R1E00130
14 | * SPECIAL FEATURES- N/A * R1E00140
15 | * ADDITIONAL INFORMATION- * R1E00150
16 | * ESTIMATED EXECUTION TIME- SEE IBM 1130 * R1E00160
17 | * SUBROUTINE LIBRARY MANUAL * R1E00170
18 | * * R1E00180
19 | *************************************************** R1E00190
LIBF FGETP -V1.
21 | LIBR R1E00210
22 | SPR R1E00220
23 | ENT FGETP R1E00230
0000 1000 24 | FGETP NOP RET ADDR LD AT FGETP+1 R1E00240
0001 C400 0000 25 | LD L *-* (FGET CALL ADDR)+1 R1E00250
0003 D00F 26 | STO EXIT+1 BUILD EXIT R1E00260
0004 9010 27 | S TWO LOC OF OPERAND ADDR IN R1E00270
0005 D001 28 | STO *+1 MAIN PROG R1E00280
0006 C480 0000 29 | FGT1 LD I *-* LD OPERAND ADDR R1E00290
0008 D001 30 | STO *+1 R1E00300
0009 064C*4000 31 | LIBF FLD LD OPERAND INTO FAC R1E00310
000A 0000 32 | DC *-* OPERAND ADDRESS R1E00320
000B C480 0007R 33 | LD I FGT1+1 LD OPERAND ADDR R1E00330
000D 8006 34 | A ONE INCR BY 1 R1E00340
000E D480 0013R 35 | STO I EXIT+1 STORE IN LIBF+1 R1E00350
0010 7401 0013R 36 | MDX L EXIT+1,1 INCR EXIT TO LIBF+2 R1E00360
0012 4C00 0000 37 | EXIT BSC L *-* BR TO CALL+1 R1E00370
38 | * R1E00380
39 | *CONSTANTS AREA R1E00390
40 | * R1E00400
0014 0001 41 | ONE DC 1 SINGLE WORD ONE R1E00410
0015 0002 42 | TWO DC 2 SINGLE WORD TWO R1E00420
0016 43 | END R1E00430
There were no errors in this assembly
=== CROSS REFERENCES ==========================================================
Name Val Defd Referenced
EXIT 0012R 37 26 35 36
FGETP 0000R 24
FGT1 0006R 29 33
ONE 0014R 41 34
TWO 0015R 42 27