ASM1130 CROSS ASSEMBLER V1.22 -- V2M12 -- Sun Nov 1 19:25:07 2020 Source File: \r2sfif.asm LIBF SFIF 2 | *************************************************** R2K00020 3 | * SUBROUTINE NAME * R2K00030 4 | * FULL NAME- SINGLE DEVICE, STANDARD * R2K00040 5 | * PRECISION, 'IF' STATEMENT TRACE. * R2K00050 6 | * CODE NAME- SFIF * R2K00060 7 | * PURPOSE- TEST TRACE SWITCH AND INTERFACE * R2K00070 8 | * WITH SFIO IF TRACING IS REQUESTED. * R2K00080 9 | * METHOD- N/A * R2K00090 10 | * CAPABILITIES AND LIMITATIONS- N/A * R2K00100 11 | * SPECIAL FEATURES- N/A * R2K00110 12 | * ADDITIONAL INFORMATION- N/A * R2K00120 13 | *************************************************** R2K00130 14 | LIBR R2K00140 15 | * CALL SEQ LIBF SFIF * R2K00150 16 | * BSC STMT ADDR,COND * R2K00160 17 | * BSC STMT ADDR,COND * R2K00170 18 | * BSC STMT ADDR,COND * R2K00180 19 | ENT SFIF R2K00190 0000 690E 20 | SFIF STX 1 WORK+1 SAVE XR1 R2K00200 0001 6580 0000 21 | LDX I1 *-* LD XR1 W/ RET ADDR R2K00210 0003 238C*58A3 22 | LIBF TTEST GO TO CHECK TRACE SWITCHES R2K00220 0004 7008 23 | MDX WORK-1 DONT TRACE, GO TO EXIT R2K00230 0005 068A*3580 24 | LIBF FSTO STORE VAR TO BE PRINTED R2K00240 0006 0018R 25 | DC VARAD R2K00250 0007 2299*98C0 26 | LIBF SWRT PRINT OUT R2K00260 0008 0000 27 | DC 0 R2K00270 0009 0013R 28 | DC E1407 R2K00280 000A 2225*6180 29 | LIBF SIOF R2K00290 000B 0018R 30 | DC VARAD R2K00300 000C 220D*6517 31 | LIBF SCOMP R2K00310 000D 6904 32 | STX 1 RET+1 SET UP RETURN R2K00320 000E 6500 0000 33 | WORK LDX L1 *-* RESTORE XR1 R2K00330 0010 C37E 34 | LD 3 +126 LOAD ACC WITH PART OF FAC R2K00340 0011 4C00 0000 35 | RET BSC L *-* EXIT R2K00350 0013 5003 36 | E1407 DC /5003 FORMAT FOR PRINT OUT R2K00360 0014 405C 5C40 37 | EBC . **. R2K00370 0016 038E 38 | DC /038E R2K00380 0017 B004 39 | DC /B004 R2K00390 0018 40 | BSS E 0 R2K00400 0018 0000 41 | VARAD DC 0 VARIABLE R2K00410 0019 0000 42 | DC 0 *STORAGE R2K00420 001A 43 | END R2K00430 There were no errors in this assembly === CROSS REFERENCES ========================================================== Name Val Defd Referenced E1407 0013R 36 28 RET 0011R 35 32 SFIF 0000R 20 VARAD 0018R 41 25 30 WORK 000ER 33 20 23