ASM1130 CROSS ASSEMBLER V1.22 -- V2M12 -- Sun Nov 1 19:25:07 2020 Source File: \r1fsbr.asm 1 | *************************************************** R1H00010 2 | * * R1H00020 3 | * SUBROUTINE NAME- * R1H00030 4 | * FULL NAME- STANDARD PRECISION FLOATING- * R1H00040 5 | * POINT SUBTRACT REVERSE NUMBERS. * R1H00050 6 | * CODE NAME- FSBR/FSBRX * R1H00060 7 | * PURPOSE- THIS FUNCTION COMPUTES, IN REVERSE * R1H00070 8 | * ORDER FROM INPUT, THE DIFFERENCE BETWEEN * R1H00080 9 | * TWO STANDARD PRECISION FLOATING-POINT * R1H00090 10 | * NUMBERS. * R1H00100 11 | * METHOD-SEE IBM 1130 SUBROUTINE LIBRARY MANUAL.* R1H00110 12 | * CAPABILITIES AND LIMITATIONS- SEE IBM 1130 * R1H00120 13 | * SUBROUTINE LIBRARY MANUAL. * R1H00130 14 | * SPECIAL FEATURES- N/A * R1H00140 15 | * ADDITIONAL INFORMATION- * R1H00150 16 | * ESTIMATED EXECUTION TIME- SEE IBM 1130 * R1H00160 17 | * SUBROUTINE LIBRARY MANUAL * R1H00170 18 | * * R1H00180 19 | *************************************************** R1H00190 LIBF FSBR -V1. 21 | LIBR R1H00210 22 | SPR R1H00220 23 | ENT FSBR R1H00230 24 | ENT FSBRX R1H00240 0000 6913 25 | FSBRX STX 1 SAVE+1 SAVE XR1 R1H00250 0001 C400 0000 26 | LD L *-* CALL+1 R1H00260 0003 7004 27 | MDX COM R1H00270 0004 690F 28 | FSBR STX 1 SAVE+1 R1H00280 0005 C400 0000 29 | LD L *-* CALL+1 R1H00290 0007 6100 30 | LDX 1 0 X1= ZERO R1H00300 0008 D003 31 | COM STO *+3 STORE ADDR OF MINUEND R1H00310 0009 800D 32 | A ONE INCR ADDR FOR RET R1H00320 000A D00B 33 | STO EXIT+1 BUILD EXIT R1H00330 000B 7580 0000 34 | MDX I1 *-* INCR (XR1) BY (CALL+1) R1H00340 000D 1000 35 | NOP IF MDX CAUSES BR,SKIP NOP R1H00350 000E 10A0 36 | SLT 32 CLEAR ACCUMULATOR R1H00360 000F 9B7E 37 | SD 3 126 REVERSE SIGN OF (FAC) R1H00370 0010 DB7E 38 | STD 3 126 R1H00380 0011 0604*4127 39 | LIBF FADDX REQUIRED SUBTRACTION R1H00390 0012 0000 40 | DC 0 ADDR ADDED TO XR1-GET OPND R1H00400 0013 6500 0000 41 | SAVE LDX L1 *-* RESTORE XR1 R1H00410 0015 4C00 0000 42 | EXIT BSC L *-* RET TO CALL+2 R1H00420 0017 0001 43 | ONE DC 1 SINGLE WORD ONE R1H00430 0018 44 | END R1H00440 There were no errors in this assembly === CROSS REFERENCES ========================================================== Name Val Defd Referenced COM 0008R 31 27 EXIT 0015R 42 33 FSBR 0004R 28 FSBRX 0000R 25 ONE 0017R 43 32 SAVE 0013R 41 25 28