ASM1130 CROSS ASSEMBLER V1.22 -- V2M12 -- Sun Nov 1 19:25:09 2020
Source File: \t6sgoto.asm
LIBF SGOTO
2 | *************************************************** T6A00020
3 | * SUBROUTINE NAME * T6A00030
4 | * FULL NAME- SINGLE DEVICE, 'GO TO' TRACE * T6A00040
5 | * CODE NAME- SGOTO * T6A00050
6 | * PURPOSE- TEST TRACE SWITCH AND INTERFACE * T6A00060
7 | * WITH SFIO IF TRACING IS REQUESTED. * T6A00070
8 | * METHOD- N/A * T6A00080
9 | * CAPABILITIES AND LIMITATIONS- N/A * T6A00090
10 | * SPECIAL FEATURES- N/A * T6A00100
11 | * ADDITIONAL INFORMATION- N/A * T6A00110
12 | *************************************************** T6A00120
13 | LIBR T6A00130
14 | * CALLING SEQ- LDX I1 I * T6A00140
15 | * LIBF SGOTO * T6A00150
16 | * DC STMNT NO. * T6A00160
17 | ENT SGOTO T6A00170
0000 690C 18 | SGOTO STX 1 GO1+1 SAVE INDEX VALUE T6A00180
0001 6580 0000 19 | LDX I1 *-* LD XR1 TO FIRST DC IN GOTO T6A00190
0003 71FF 20 | MDX 1 -1 ADJUST PT TO FIRST DC-1 T6A00200
0004 238C*58A3 21 | LIBF TTEST GO TO CHECK TRACE SWITCHES T6A00210
0005 7006 22 | MDX GO1 DONT TRACE, GO TO EXIT T6A00220
0006 2299*98C0 23 | LIBF SWRT PRINT VALUE OF INDEX T6A00230
0007 0000 24 | DC 0 T6A00240
0008 0010R 25 | DC I6 T6A00250
0009 2225*6240 26 | LIBF SIOI T6A00260
000A 000DR 27 | DC GO1+1 T6A00270
000B 220D*6517 28 | LIBF SCOMP T6A00280
000C 7500 0000 29 | GO1 MDX L1 *-* INCR PT BY INDEX VALUE T6A00290
000E 4D80 0000 30 | BSC I1 0 EXEC COMPUTED GOTO BRANCH T6A00300
0010 5004 31 | I6 DC /5004 I6 FORMAT FOR PRINT OUT T6A00310
0011 405C 5C5C 32 | EBC . ***. T6A00320
0013 2006 33 | DC /2006 T6A00330
0014 B004 34 | DC /B004 T6A00340
0015 35 | END T6A00350
There were no errors in this assembly
=== CROSS REFERENCES ==========================================================
Name Val Defd Referenced
GO1 000CR 29 18 22 27
I6 0010R 31 25
SGOTO 0000R 18