ASM1130 CROSS ASSEMBLER V1.22 -- V2M12 -- Sun Nov 1 19:25:08 2020 Source File: \s2sear.asm LIBF SEAR 2 | *************************************************** S2J00020 3 | * SUBROUTINE NAME * S2J00030 4 | * FULL NAME- SINGLE DEVICE, EXTENDED * S2J00040 5 | * PRECISION, ARITHMETIC TRACE * S2J00050 6 | * CODE NAME- SEAR * S2J00060 7 | * PURPOSE- TEST TRACE SWITCH AND INTERFACE * S2J00070 8 | * WITH SFIO IF TRACING IS REQUESTED. * S2J00080 9 | * METHOD- N/A * S2J00090 10 | * CAPABILITIES AND LIMITATIONS- N/A * S2J00100 11 | * SPECIAL FEATURES- N/A * S2J00110 12 | * ADDITIONAL INFORMATION- N/A * S2J00120 13 | *************************************************** S2J00130 14 | LIBR S2J00140 15 | EPR S2J00150 16 | * CALL SEQ LIBF SVAR OR SVARX * S2J00160 17 | * DC VAR ADDR * S2J00170 18 | ENT SEAR S2J00180 19 | ENT SEARX S2J00190 0000 6912 20 | SEAR STX 1 WORK+1 SAVE XR1 S2J00200 0001 6580 0000 21 | LDX I1 *-* LD XR1 W/RET ADDR S2J00210 0003 C100 22 | LD 1 0 LD ACC W/ ADDR OF VAR S2J00220 0004 D002 23 | STORE STO JOE S2J00230 0005 D008 24 | STO VARAD INITLZ CALLING SEQUENCES S2J00240 0006 058A*3580 25 | LIBF ESTO STORE FAC IN VARAD S2J00250 0007 0000 26 | JOE DC *-* S2J00260 0008 238C*58A3 27 | LIBF TTEST GO TO CHECK TRACE SWITCHES S2J00270 0009 7006 28 | MDX WORK-2 DONT TRACE, GO TO EXIT S2J00280 000A 2299*98C0 29 | LIBF SWRT PRINT OUT S2J00290 000B 0000 30 | DC 0 TRACE DEVICE S2J00300 000C 0016R 31 | DC E1710 FORMAT S2J00310 000D 2225*6180 32 | LIBF SIOF S2J00320 000E 0000 33 | VARAD DC 0 VARIABLE ADDRESS S2J00330 000F 220D*6517 34 | LIBF SCOMP S2J00340 0010 7101 35 | MDX 1 +1 INCR RET ADDR S2J00350 0011 6903 36 | STX 1 RET+1 SET UP RETURN S2J00360 0012 6500 0000 37 | WORK LDX L1 *-* RESTORE INDEX REG 1 S2J00370 0014 4C00 0000 38 | RET BSC L *-* E X I T S2J00380 0016 5002 39 | E1710 DC /5002 FORMAT FOR PRINT OUT S2J00390 0017 405C 40 | EBC . *. S2J00400 0018 0511 41 | DC /0511 S2J00410 0019 B003 42 | DC /B003 S2J00420 43 | * * S2J00430 44 | * ENTER HERE IF INDEXED * S2J00440 45 | * * S2J00450 001A 69F8 46 | SEARX STX 1 WORK+1 SAVE XR1 S2J00460 001B 6580 0000 47 | LDX I1 *-* LOAD XR1 W/ RET ADDR S2J00470 001D C100 48 | LD 1 *-* LD ACC W/ VAR ADDR S2J00480 001E 80F4 49 | A WORK+1 ADD SUBSC IND TO VAR ADDR S2J00490 001F 70E4 50 | MDX STORE BR TO STORE VAR ADDR S2J00500 0020 51 | END S2J00510 There were no errors in this assembly === CROSS REFERENCES ========================================================== Name Val Defd Referenced E1710 0016R 39 31 JOE 0007R 26 23 RET 0014R 38 36 SEAR 0000R 20 SEARX 001AR 46 STORE 0004R 23 50 VARAD 000ER 33 24 WORK 0012R 37 20 28 46 49