ASM1130 CROSS ASSEMBLER V1.22 -- V2M12 -- Sun Nov 1 19:25:07 2020 Source File: \r2sfar.asm LIBF SFAR 2 | *************************************************** R2J00020 3 | * SUBROUTINE NAME * R2J00030 4 | * FULL NAME- SINGLE DEVICE, STANDARD * R2J00040 5 | * PRECISION, ARITHMETIC TRACE. * R2J00050 6 | * CODE NAME- SFAR * R2J00060 7 | * PURPOSE- TEST TRACE SWITCH AND INTERFACE * R2J00070 8 | * WITH SFIO IF TRACING IS REQUESTED. * R2J00080 9 | * METHOD- N/A * R2J00090 10 | * CAPABILITIES AND LIMITATIONS- N/A * R2J00100 11 | * SPECIAL FEATURES- N/A * R2J00110 12 | * ADDITIONAL INFORMATION- N/A * R2J00120 13 | *************************************************** R2J00130 14 | LIBR R2J00140 15 | * CALL SEQ LIBF SWAR OR SWARX * R2J00150 16 | * DC VAR ADDR * R2J00160 17 | ENT SFAR R2J00170 18 | ENT SFARX R2J00180 0000 6912 19 | SFAR STX 1 WORK+1 SAVE XR1 R2J00190 0001 6580 0000 20 | LDX I1 *-* LD XR1 W/RET ADDR R2J00200 0003 C100 21 | LD 1 0 LD ACCUM W/ ADDR OF VAR R2J00210 0004 D002 22 | STORE STO JOE R2J00220 0005 D008 23 | STO VARAD INITLZ CALLING SEQUENCES R2J00230 0006 068A*3580 24 | LIBF FSTO STORE FAC IN VARAD R2J00240 0007 0000 25 | JOE DC *-* R2J00250 0008 238C*58A3 26 | LIBF TTEST GO TO CHECK TRACE SWITCHES R2J00260 0009 7006 27 | MDX WORK-2 DONT TRACE, GO TO EXIT R2J00270 000A 2299*98C0 28 | LIBF SWRT R2J00280 000B 0000 29 | DC 0 R2J00290 000C 0016R 30 | DC E1407 R2J00300 000D 2225*6180 31 | LIBF SIOF R2J00310 000E 0000 32 | VARAD DC 0 R2J00320 000F 220D*6517 33 | LIBF SCOMP R2J00330 0010 7101 34 | MDX 1 +1 INCR RET ADDR R2J00340 0011 6903 35 | STX 1 RET+1 SET UP RETURN R2J00350 0012 6500 0000 36 | WORK LDX L1 *-* RESTORE INDEX REG 1 R2J00360 0014 4C00 0000 37 | RET BSC L *-* E X I T R2J00370 0016 5002 38 | E1407 DC /5002 FORMAT FOR E14.7 R2J00380 0017 405C 39 | EBC . *. R2J00390 0018 038E 40 | DC /038E R2J00400 0019 B003 41 | DC /B003 R2J00410 42 | * * R2J00420 43 | * ENTER HERE IF INDEXED * R2J00430 44 | * * R2J00440 001A 69F8 45 | SFARX STX 1 WORK+1 SAVE XR1 R2J00450 001B 6580 0000 46 | LDX I1 *-* LOAD XR1 W/ RET ADDR R2J00460 001D C100 47 | LD 1 *-* LD ACC W/ VAR ADDR R2J00470 001E 80F4 48 | A WORK+1 ADD SUBSC IND TO VAR ADDR R2J00480 001F 70E4 49 | MDX STORE BR TO STORE VAR ADDR R2J00490 0020 50 | END R2J00500 There were no errors in this assembly === CROSS REFERENCES ========================================================== Name Val Defd Referenced E1407 0016R 38 30 JOE 0007R 25 22 RET 0014R 37 35 SFAR 0000R 19 SFARX 001AR 45 STORE 0004R 22 49 VARAD 000ER 32 23 WORK 0012R 36 19 27 45 48