ASM1130 CROSS ASSEMBLER V1.22 -- V2M12 -- Sun Nov 1 19:25:09 2020
Source File: \t6siar.asm
LIBF SIAR
2 | *************************************************** T6B00020
3 | * SUBROUTINE NAME * T6B00030
4 | * FULL NAME- SINGLE DEVICE, INTEGER * T6B00040
5 | * PRECISION, ARITHMETIC TRACE. * T6B00050
6 | * CODE NAME- SIAR * T6B00060
7 | * PURPOSE- TEST TRACE SWITCH AND INTERFACE * T6B00070
8 | * WITH SFIO IF TRACING IS REQUESTED. * T6B00080
9 | * METHOD- N/A * T6B00090
10 | * CAPABILITIES AND LIMITATIONS- N/A * T6B00100
11 | * SPECIAL FEATURES- N/A * T6B00110
12 | * ADDITIONAL INFORMATION- N/A * T6B00120
13 | *************************************************** T6B00130
14 | LIBR T6B00140
15 | * CALL SEQ LIBF SIAR OR SIARX * T6B00150
16 | * DC VAR ADDR * T6B00160
17 | ENT SIAR T6B00170
18 | ENT SIARX T6B00180
0000 6914 19 | SIAR STX 1 WORK+1 SAVE XR1 T6B00190
0001 6580 0000 20 | LDX I1 *-* LD XR1 W/ RET ADDR T6B00200
0003 1890 21 | SRT 16 SAVE RESULT IN EXTENSION T6B00210
0004 C100 22 | LD 1 0 LD ACC W/ ADDR OF VAR T6B00220
0005 D003 23 | STORE STO JOE+1 STORE ADDR IN STORE INST T6B00230
0006 D009 24 | STO VARAD STORE ADDR FOR PRINTING T6B00240
0007 1090 25 | SLT 16 RETURN RESULT TO ACC T6B00250
0008 D400 0000 26 | JOE STO L *-* STORE RESULT IN VAR ADDR T6B00260
000A 238C*58A3 27 | LIBF TTEST GO TO CHECK TRACE SWITCHES T6B00270
000B 7006 28 | MDX WORK-2 DONT TRACE, GO TO EXIT T6B00280
000C 2299*98C0 29 | LIBF SWRT TRACE T6B00290
000D 0000 30 | DC 0 T6B00300
000E 0018R 31 | DC I6 T6B00310
000F 2225*6240 32 | LIBF SIOI T6B00320
0010 0000 33 | VARAD DC 0 T6B00330
0011 220D*6517 34 | LIBF SCOMP T6B00340
0012 7101 35 | MDX 1 +1 INCR RET ADDR T6B00350
0013 6903 36 | STX 1 RET+1 SET UP RETURN T6B00360
0014 6500 0000 37 | WORK LDX L1 *-* RESTORE XR1 T6B00370
0016 4C00 0000 38 | RET BSC L *-* EXIT T6B00380
0018 5002 39 | I6 DC /5002 FORMAT FOR PRINT OUT T6B00390
0019 405C 40 | EBC . *. T6B00400
001A 2006 41 | DC /2006 T6B00410
001B B003 42 | DC /B003 T6B00420
43 | * * T6B00430
44 | * ENTER HERE IF INDEXED * T6B00440
45 | * * T6B00450
001C 69F8 46 | SIARX STX 1 WORK+1 SAVE XR1 T6B00460
001D 6580 0000 47 | LDX I1 *-* LD XR1 W/ RET ADDR T6B00470
001F 1890 48 | SRT 16 SAVE RESULT IN EXTENSION T6B00480
0020 C100 49 | LD 1 0 LD ACC W/ ADDR OF VAR T6B00490
0021 80F3 50 | A WORK+1 INCR ADDR BY XR1 VALUE T6B00500
0022 70E2 51 | MDX STORE BRANCH TO STORE VAR ADDR T6B00510
0023 52 | END T6B00520
There were no errors in this assembly
=== CROSS REFERENCES ==========================================================
Name Val Defd Referenced
I6 0018R 39 31
JOE 0008R 26 23
RET 0016R 38 36
SIAR 0000R 19
SIARX 001CR 46
STORE 0005R 23 51
VARAD 0010R 33 24
WORK 0014R 37 19 28 46 50