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