ASM1130 CROSS ASSEMBLER V1.22 -- V2M12 -- Sun Nov 1 19:25:08 2020
Source File: \t3fctst.asm
CALL FCTST
2 | *************************************************** T3C00020
3 | * * T3C00030
4 | * SUBROUTINE NAME- * T3C00040
5 | * FULL NAME- FUNCTIONAL ERROR TEST * T3C00050
6 | * CODE NAME- FCTST * T3C00060
7 | * PURPOSE- FCTST IS UTILIZED BY THE FUNCTIONAL * T3C00070
8 | * SUBROUTINES TO CHECK ERROR CONDITIONS. * T3C00080
9 | * (SEE SUBROUTINE LIBRARY MANUAL) * T3C00090
10 | * METHOD-N/A * T3C00100
11 | * CAPABILITIES AND LIMITATIONS-N/A * T3C00110
12 | * SPECIAL FEATURES-N/A * T3C00120
13 | * ADDITIONAL INFORMATION- * T3C00130
14 | * ESTIMATED EXECUTION TIME-N/A * T3C00140
15 | * * T3C00150
16 | *************************************************** T3C00160
17 | * * T3C00170
18 | * FCTST ON ERR, I EQUALS 1, J EQUALS TV INDR * T3C00180
19 | * AND THE TV INDR IS SET TO ZERO * T3C00190
20 | * FCTST NO ERR, I EQUALS 2, J EQUALS ZERO * T3C00200
21 | * * T3C00210
22 | ENT FCTST T3C00220
0000 0000 23 | FCTST DC *-* T3C00230
0001 C480 0000R 24 | LD I FCTST PICKUP ADDR OF I T3C00240
0003 D00C 25 | STO SET1+1 ST ADDR IN SET1 T3C00250
0004 7401 0000R 26 | MDX L FCTST,+1 INCR POINTER T3C00260
0006 C480 0000R 27 | LD I FCTST PICKUP ADDR OF J T3C00270
0008 D00F 28 | STO SET2+1 ST ADDR IN SET2 T3C00280
0009 C37C 29 | LD 3 +124 PICK UP THE TV INDR T3C00290
000A 4C18 0017R 30 | BSC L SET2,+- BRANCH IF NO ERR T3C00300
000C D480 0018R 31 | STO I SET2+1 ST TV INDR IN J T3C00310
000E C00D 32 | LD ONE LD ACC WITH ONE T3C00320
000F D400 0000 33 | SET1 STO L *-* ST 2 IN I T3C00330
0011 1010 34 | SLA 16 T3C00340
0012 D37C 35 | STO 3 +124 ZERO THE TV INDR T3C00350
0013 7401 0000R 36 | MDX L FCTST,+1 INCR. RETURN ADDR T3C00360
0015 4C80 0000R 37 | BSC I FCTST EXIT T3C00370
0017 D400 0000 38 | SET2 STO L *-* ST ZERO IN J T3C00380
0019 C001 39 | LD TWO LOAD THE ACC WITH 2 T3C00390
001A 70F4 40 | MDX SET1 BRANCH TO SET I TO ONE T3C00400
001B 0002 41 | TWO DC 2 CONSTANT T3C00410
001C 0001 42 | ONE DC 1 CONSTANT T3C00420
001D 43 | END T3C00430
There were no errors in this assembly
=== CROSS REFERENCES ==========================================================
Name Val Defd Referenced
FCTST 0000R 23 24 26 27 36 37
ONE 001CR 42 32
SET1 000FR 33 25 40
SET2 0017R 38 28 30 31
TWO 001BR 41 39