ASM1130 CROSS ASSEMBLER V1.22 -- V2M12 -- Sun Nov 1 19:25:08 2020
Source File: \s2seif.asm
LIBF SEIF
2 | *************************************************** S2K00020
3 | * SUBROUTINE NAME * S2K00030
4 | * FULL NAME- SINGLE DEVICE, EXTENDED * S2K00040
5 | * PRECISION, 'IF' STATEMENT TRACE. * S2K00050
6 | * CODE NAME- SEIF * S2K00060
7 | * PURPOSE- TEST TRACE SWITCH AND INTERFACE * S2K00070
8 | * WITH SFIO IF TRACING IS REQUESTED. * S2K00080
9 | * METHOD- N/A * S2K00090
10 | * CAPABILITIES AND LIMITATIONS- N/A * S2K00100
11 | * SPECIAL FEATURES- N/A * S2K00110
12 | * ADDITIONAL INFORMATION- N/A * S2K00120
13 | *************************************************** S2K00130
14 | LIBR S2K00140
15 | * CALL SEQ LIBF SEIF * S2K00150
16 | * BSC STMT ADDR,COND * S2K00160
17 | * BSC STMT ADDR,COND * S2K00170
18 | * BSC STMT ADDR,COND * S2K00180
19 | ENT SEIF S2K00190
0000 690E 20 | SEIF STX 1 WORK+1 SAVE XR1 S2K00200
0001 6580 0000 21 | LDX I1 *-* LD XR1 W/ RET ADDR S2K00210
0003 238C*58A3 22 | LIBF TTEST GO TO CHECK TRACE SWITCHES S2K00220
0004 7008 23 | MDX WORK-1 DONT TRACE, GO TO EXIT S2K00230
0005 058A*3580 24 | LIBF ESTO STORE VAR TO BE PRINTED S2K00240
0006 0018R 25 | DC VARAD S2K00250
0007 2299*98C0 26 | LIBF SWRT PRINT OUT S2K00260
0008 0000 27 | DC 0 S2K00270
0009 0013R 28 | DC E1710 S2K00280
000A 2225*6180 29 | LIBF SIOF S2K00290
000B 0018R 30 | DC VARAD S2K00300
000C 220D*6517 31 | LIBF SCOMP S2K00310
000D 6904 32 | STX 1 RET+1 SET UP RETURN S2K00320
000E 6500 0000 33 | WORK LDX L1 *-* RESTORE XR1 S2K00330
0010 C37E 34 | LD 3 +126 LOAD ACC WITH PART OF FAC S2K00340
0011 4C00 0000 35 | RET BSC L *-* EXIT S2K00350
0013 5003 36 | E1710 DC /5003 FORMAT FOR PRINT OUT S2K00360
0014 405C 5C40 37 | EBC . **. S2K00370
0016 0511 38 | DC /0511 S2K00380
0017 B004 39 | DC /B004 S2K00390
0018 0000 40 | VARAD DC 0 VARIABLE S2K00400
0019 0000 41 | DC 0 *STORAGE S2K00410
001A 0000 42 | DC 0 *AREA S2K00420
001B 43 | END S2K00430
There were no errors in this assembly
=== CROSS REFERENCES ==========================================================
Name Val Defd Referenced
E1710 0013R 36 28
RET 0011R 35 32
SEIF 0000R 20
VARAD 0018R 40 25 30
WORK 000ER 33 20 23