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