ASM1130 CROSS ASSEMBLER V1.22 -- V2M12 -- Sun Nov 1 19:25:08 2020
Source File: \t3overf.asm
CALL OVERF
2 | *************************************************** T3E00020
3 | * * T3E00030
4 | * SUBROUTINE NAME- * T3E00040
5 | * FULL NAME- OVERFLOW TEST * T3E00050
6 | * CODE NAME- OVERF * T3E00060
7 | * PURPOSE- OVERF IS UTILIZED BY ALL FLOATING * T3E00070
8 | * POINT SUBROUTINES TO CHECK FOR EXPONENT * T3E00080
9 | * OVERFLOW AND UNDERFLOW. * T3E00090
10 | * METHOD-N/A * T3E00100
11 | * CAPABILITIES AND LIMITATIONS-N/A * T3E00110
12 | * SPECIAL FEATURES-N/A * T3E00120
13 | * ADDITIONAL INFORMATION- * T3E00130
14 | * ESTIMATED EXECUTION TIME-N/A * T3E00140
15 | * * T3E00150
16 | *************************************************** T3E00160
17 | * * T3E00170
18 | * ON OVERFLOW THE TV INDR AND I EQUAL 1 * T3E00180
19 | * ON UNDERFLOW THE TV INDR AND I EQUALS 3 * T3E00190
20 | * OTHERWISE THE TV INDR EQUALS ZERO * T3E00200
21 | * AND I EQUALS 2 * T3E00210
22 | * * T3E00220
23 | ENT OVERF T3E00230
0000 0000 24 | OVERF DC *-* RECORD ADDR OF ARGUMENT T3E00240
0001 C480 0000R 25 | LD I OVERF PICKUP ADDR OF ARG T3E00250
0003 D005 26 | STO SET+1 ST ADDR IN RESULT RETURN T3E00260
0004 C37A 27 | LD 3 +122 T3E00270
0005 4C04 0008R 28 | BSC L SET,E TV INDR IS ON T3E00280
0007 C008 29 | LD TWO SET ACC TO 2 T3E00290
0008 D400 0000 30 | SET STO L *-* ST RESULT T3E00300
000A 1010 31 | SLA 16 T3E00310
000B D37A 32 | STO 3 +122 ZERO THE TV INDR T3E00320
000C 7401 0000R 33 | MDX L OVERF,+1 SET UP RET ADDR T3E00330
000E 4C80 0000R 34 | BSC I OVERF RETURN TO CALLER --EXIT-- T3E00340
0010 0002 35 | TWO DC 2 CONSTANT T3E00350
0011 36 | END T3E00360
There were no errors in this assembly
=== CROSS REFERENCES ==========================================================
Name Val Defd Referenced
OVERF 0000R 24 25 33 34
SET 0008R 30 26 28
TWO 0010R 35 29