ASM1130 CROSS ASSEMBLER V1.22 -- V2M12 -- Sun Nov 1 19:25:08 2020 Source File: \t3dvchk.asm CALL DVCHK 2 | *************************************************** T3B00020 3 | * * T3B00030 4 | * SUBROUTINE NAME- * T3B00040 5 | * FULL NAME- DIVIDE CHECK TEST * T3B00050 6 | * CODE NAME- DVCHK * T3B00060 7 | * PURPOSE- DVCHK IS UTILIZED BY THE FLOATING * T3B00070 8 | * POINT DIVIDE SUBROUTINES TO CHECK FOR * T3B00080 9 | * DIVISION BY ZERO. * T3B00090 10 | * METHOD-N/A * T3B00100 11 | * CAPABILITIES AND LIMITATIONS-N/A * T3B00110 12 | * SPECIAL FEATURES-N/A * T3B00120 13 | * ADDITIONAL INFORMATION- * T3B00130 14 | * ESTIMATED EXECUTION TIME-N/A * T3B00140 15 | * * T3B00150 16 | *************************************************** T3B00160 17 | * * T3B00170 18 | * ON DVCHK TV INDR EQUALS 0 IF NO DVCHK * T3B00180 19 | * AND EQUALS 1 IF THERE WAS A DVCHK. * T3B00190 20 | * ON DVCHK I EQUALS 2 IF DVCHK OFF AND EQUALS 1 * T3B00200 21 | * IF DVCHK IS ON. * T3B00210 22 | * * T3B00220 23 | ENT DVCHK T3B00230 0000 0000 24 | DVCHK DC *-* RECORD ADDR OF ARGUMENT T3B00240 0001 C480 0000R 25 | LD I DVCHK PICKUP ADD OF ARG T3B00250 0003 D004 26 | STO SET+1 ST ADDR IN OUTPUT INST T3B00260 0004 C37B 27 | LD 3 +123 LD ACC WITH TV INDR T3B00270 0005 4818 28 | BSC +- IS IT ON T3B00280 0006 8008 29 | A TWO *NO, SET INDR TO 2 T3B00290 0007 D400 0000 30 | SET STO L *-* RETURN RESULT T3B00300 0009 1010 31 | SLA 16 ZERO ACC T3B00310 000A D37B 32 | STO 3 +123 ZERO OUT TV INDR T3B00320 000B 7401 0000R 33 | MDX L DVCHK,+1 SET RET ADDR T3B00330 000D 4C80 0000R 34 | BSC I DVCHK EXIT T3B00340 000F 0002 35 | TWO DC 2 CONSTANT T3B00350 0010 36 | END T3B00360 There were no errors in this assembly === CROSS REFERENCES ========================================================== Name Val Defd Referenced DVCHK 0000R 24 25 33 34 SET 0007R 30 26 TWO 000FR 35 29