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