ASM1130 CROSS ASSEMBLER V1.22 -- V2M12 -- Sun Nov 1 19:25:09 2020 Source File: \t6siif.asm LIBF SIIF 2 | *************************************************** T6C00020 3 | * SUBROUTINE NAME * T6C00030 4 | * FULL NAME- SINGLE DEVICE, INTEGER * T6C00040 5 | * PRECISION, 'IF' STATEMENT TRACE. * T6C00050 6 | * CODE NAME- SIIF * T6C00060 7 | * PURPOSE- TEST TRACE SWITCH AND INTERFACE * T6C00070 8 | * WITH SFIO IF TRACING IS REQUESTED. * T6C00080 9 | * METHOD- N/A * T6C00090 10 | * CAPABILITIES AND LIMITATIONS- N/A * T6C00100 11 | * SPECIAL FEATURES- N/A * T6C00110 12 | * ADDITIONAL INFORMATION- N/A * T6C00120 13 | *************************************************** T6C00130 14 | LIBR T6C00140 15 | * CALL SEQ LIBF SIIF * T6C00150 16 | * BSC STMT ADDR,COND * T6C00160 17 | * BSC STMT ADDR,COND * T6C00170 18 | * BSC STMT ADDR,COND * T6C00180 19 | ENT SIIF T6C00190 0000 690E 20 | SIIF STX 1 WORK+1 SAVE XR1 T6C00200 0001 6580 0000 21 | LDX I1 *-* LD XR1 W/ RET ADDR T6C00210 0003 D00D 22 | STO RET+1 STORE ACC IN WORK AREA T6C00220 0004 238C*58A3 23 | LIBF TTEST GO TO CHECK TRACE SWITCHES T6C00230 0005 7006 24 | MDX WORK-2 DONT TRACE, GO TO EXIT T6C00240 0006 2299*98C0 25 | LIBF SWRT PRINT OUT T6C00250 0007 0000 26 | DC 0 T6C00260 0008 0012R 27 | DC I6 T6C00270 0009 2225*6240 28 | LIBF SIOI T6C00280 000A 0011R 29 | DC RET+1 T6C00290 000B 220D*6517 30 | LIBF SCOMP T6C00300 000C C004 31 | LD RET+1 RESTORE ACC T6C00310 000D 6903 32 | STX 1 RET+1 SET UP RETURN T6C00320 000E 6500 0000 33 | WORK LDX L1 *-* RESTORE XR1 T6C00330 0010 4C00 0000 34 | RET BSC L *-* EXIT T6C00340 0012 5003 35 | I6 DC /5003 FORMAT FOR PRINT OUT T6C00350 0013 405C 5C40 36 | EBC . **. T6C00360 0015 2006 37 | DC /2006 T6C00370 0016 B004 38 | DC /B004 T6C00380 0017 39 | END T6C00390 There were no errors in this assembly === CROSS REFERENCES ========================================================== Name Val Defd Referenced I6 0012R 35 27 RET 0010R 34 22 29 31 32 SIIF 0000R 20 WORK 000ER 33 20 24