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