ASM1130 CROSS ASSEMBLER V1.22 -- V2M12 -- Sun Nov 1 19:25:07 2020
Source File: \s1egetp.asm
1 | *************************************************** S1E00010
2 | * * S1E00020
3 | * SUBROUTINE NAME- * S1E00030
4 | * FULL NAME- EXTENDED PRECISION GET PARAMETER* S1E00040
5 | * SUBROUTINE. * S1E00050
6 | * CODE NAME- EGETP * S1E00060
7 | * PURPOSE- THIS SUBROUTINE LOADS THE CONTENTS OF* S1E00070
8 | * THE ARGUMENT FOLLOWING THE CALL INTO FAC, * S1E00080
9 | * AND SETS UP IN THE SUBROUTINE WHICH CALLED * S1E00090
10 | * EGETP THE RETURN ADDRESS TO THE MAIN PROG. * S1E00100
11 | * METHOD-SEE IBM 1130 SUBROUTINE LIBRARY MANUAL.* S1E00110
12 | * CAPABILITIES AND LIMITATIONS- SEE IBM 1130 * S1E00120
13 | * SUBROUTINE LIBRARY MANUAL. * S1E00130
14 | * SPECIAL FEATURES- N/A * S1E00140
15 | * ADDITIONAL INFORMATION- * S1E00150
16 | * ESTIMATED EXECUTION TIME- SEE IBM 1130 * S1E00160
17 | * SUBROUTINE LIBRARY MANUAL * S1E00170
18 | * * S1E00180
19 | *************************************************** S1E00190
LIBF EGETP -V1.
21 | LIBR S1E00210
22 | EPR S1E00220
23 | ENT EGETP S1E00230
0000 1000 24 | EGETP NOP RET ADDR LD AT EGETP+1 S1E00240
0001 C400 0000 25 | LD L *-* CALL+1 S1E00250
0003 D00F 26 | STO EXIT+1 BUILD EXIT S1E00260
0004 9010 27 | S TWO LOC OF OPND ADDR IN S1E00270
0005 D001 28 | STO *+1 MAIN PROG S1E00280
0006 C480 0000 29 | FGT1 LD I *-* FETCH OPND ADDRESS S1E00290
0008 D001 30 | STO *+1 S1E00300
0009 054C*4000 31 | LIBF ELD FETCH OPND INTO FAC S1E00310
000A 0000 32 | DC *-* OPND ADDR S1E00320
000B C480 0007R 33 | LD I FGT1+1 FETCH OPND ADDRESS S1E00330
000D 8006 34 | A ONE INCR BY 1 S1E00340
000E D480 0013R 35 | STO I EXIT+1 STORE IN LIBF+1 S1E00350
0010 7401 0013R 36 | MDX L EXIT+1,1 INCR EXIT TO LIBF+2 S1E00360
0012 4C00 0000 37 | EXIT BSC L *-* BR TO CALL+1 S1E00370
38 | * S1E00380
39 | *CONSTANTS AREA S1E00390
40 | * S1E00400
0014 0001 41 | ONE DC 1 SINGLE WORD ONE S1E00410
0015 0002 42 | TWO DC 2 SINGLE WORD TWO S1E00420
0016 43 | END S1E00430
There were no errors in this assembly
=== CROSS REFERENCES ==========================================================
Name Val Defd Referenced
EGETP 0000R 24
EXIT 0012R 37 26 35 36
FGT1 0006R 29 33
ONE 0014R 41 34
TWO 0015R 42 27