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