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