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