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