ASM1130 CROSS ASSEMBLER V1.22 -- V2M12 -- Sun Nov 1 19:25:08 2020
Source File: \t2ttest.asm
LIBF TTEST
2 | *************************************************** T2E00020
3 | * * T2E00030
4 | * SUBROUTINE NAME- * T2E00040
5 | * FULL NAME-FORTRAN TRACE TEST AND SET * T2E00050
6 | * CODE NAME-TTEST * T2E00060
7 | * PURPOSE-TO SEE IF TRACE SHOULD BE EXECUTED. * T2E00070
8 | * TO SET THE INTERNAL INDICATOR FOR TTEST * T2E00080
9 | * METHOD-N/A * T2E00090
10 | * CAPABILITIES AND LIMITATIONS-N/A * T2E00100
11 | * SPECIAL FEATURES-N/A * T2E00110
12 | * ADDITIONAL INFORMATION- * T2E00120
13 | * ESTIMATED EXECUTION TIME-N/A * T2E00130
14 | * * T2E00140
15 | *************************************************** T2E00150
16 | * * T2E00160
17 | * ENTER HERE TO SEE IF TRACE SHOULD BE EXECUTED.* T2E00170
18 | * IF DATSW 15 IS ON AND THE INTERNAL INDR IS ON * T2E00180
19 | * THEN TTEST WILL RETURN TO EXECUTE THE TRACE. * T2E00190
20 | * IF EITHER INDR IS OFF THEN TTEST WILL RETURN * T2E00200
21 | * TO A BRANCH INST IN THE TRACE THAT WILL BYPASS* T2E00210
22 | * THE PRINTING. * T2E00220
23 | * * T2E00230
24 | LIBR TTEST T2E00240
25 | ENT TTEST T2E00250
26 | ENT TSET T2E00260
0000 0809 27 | TTEST XIO TR1 READ DATA SWITCHES T2E00270
0001 6680 0000 28 | LDX I2 *-* STORE RT ADDR IN XR2 T2E00280
0003 C005 29 | LD TRIND LOAD INTERNAL INDR TO ACC T2E00290
0004 E007 30 | AND TR2 AND BIT 15 AND INT INDR T2E00300
0005 4804 31 | BSC E BR TO BY PASS TRACE PRINT T2E00310
0006 7201 32 | MDX 2 +1 INCREMENT RETURN ADDR T2E00320
0007 4E00 0000 33 | BSC L2 *-* BR TO DO TRACE PRINT T2E00330
0009 0001 34 | TRIND DC 1 TRACE INDR SET BY TSET T2E00340
000A 35 | BSS E 0 T2E00350
000A 000CR 36 | TR1 DC TR2 ADDR TO READ IN SWITCHES T2E00360
000B 3A00 37 | DC /3A00 SPECIFY BIT SWITCH READ T2E00370
000C 0000 38 | TR2 DC *-* RECORD BIT SWITCH STATUS T2E00380
39 | *************************************************** T2E00390
40 | * * T2E00400
41 | * ENTER HERE TO SET THE INTERNAL INDICATOR * T2E00410
42 | * LIKE THE ACC WAS SET BY EITHER TSTRT OR TSTOP * T2E00420
43 | * * T2E00430
000D D0FB 44 | TSET STO TRIND STORE INT INDR IN TRIND T2E00440
000E 4C80 0000 45 | BSC I *-* EXIT T2E00450
0010 46 | END T2E00460
There were no errors in this assembly
=== CROSS REFERENCES ==========================================================
Name Val Defd Referenced
TR1 000AR 36 27
TR2 000CR 38 30 36
TRIND 0009R 34 29 44
TSET 000DR 44
TTEST 0000R 27