ASM1130 CROSS ASSEMBLER V1.22 -- V2M12 -- Sun Nov 1 19:25:09 2020 Source File: \u1ilsx3.asm ILSX3 - INTERRUPT LEVEL 3 SUBROUTINE 2 | *************************************************** U1I00020 3 | * * U1I00030 4 | * STATUS - VERSION 2, MODIFICATION LEVEL 9 * U1I00040 5 | * FUNCTION/OPERATION - INTERRUPT LEVEL SUBROUTINE * U1I00050 6 | * FOR LEVEL 3. * U1I00060 7 | * ENTRY POINT - ENTERED AT IX320 BY A HARDWARE * U1I00070 8 | * BSI VIA LOCATION 11 DECIMAL. * U1I00080 9 | * INPUT - NONE * U1I00090 10 | * OUTPUT - NONE * U1I00100 11 | * EXTERNAL SUBROUTINES - NONE * U1I00110 12 | * EXITS - * U1I00120 13 | * NORMAL - BOSC INDIRECT THROUGH IX320. * U1I00130 14 | * ERROR - NONE * U1I00140 15 | * TABLES/WORK AREAS - NONE * U1I00150 16 | * ATTRIBUTES - REUSABLE * U1I00160 17 | * NOTES - INDEX REGISTERS 1, 2, AND 3, STATUS, * U1I00170 18 | * ACCUMULATOR AND EXTENSION ARE SAVED UPON * U1I00180 19 | * ENTRY AND RESTORED AFTER INTERRUPT SERVICED. * U1I00190 20 | * * U1I00200 21 | *************************************************** U1I00210 ILSX3 - INTERRUPT LEVEL 3 SUBROUTINE 23 | ILS 03 U1I00230 0000 0741 24 | IX310 DC /0741 MTCA +7, ISS NO. 14 2-9 U1I00235 0001 0441 25 | DC /0441 MTCA +4, ISS NO. 14 2-9 U1I00236 0002 0033 26 | DC /0033 DEVICE *-*, ISS NO. *-* 2-9 U1I00237 0003 0033 27 | DC /0033 DEVICE *-*, ISS NO. *-* 2-9 U1I00238 0004 0033 28 | DC /0033 DEVICE *-*, ISS NO. *-* 2-9 U1I00239 0005 043E 29 | DC /043E 2250 +4, ISS NO. 11 2-9 U1I00240 0006 0033 30 | DC /0033 DEVICE *-* AND ISS NO. *-* U1I00250 0007 0033 31 | DC /0033 DEVICE *-* AND ISS NO. *-* U1I00260 0008 0033 32 | DC /0033 DEVICE *-* AND ISS NO. *-* U1I00270 0009 043A 33 | DC /043A 1627 +4 AND ISS NO. 7 U1I00280 34 | * U1I00290 000A 0000 35 | IX320 DC 0 INTERRUPT ENTRY U1I00300 000B D816 36 | STD IX380 SAVE ACC AND EXTENSION, U1I00310 000C 280B 37 | STS IX330 *STATUS, U1I00320 000D 690C 38 | STX 1 IX341+1 *XR1, U1I00330 000E 6A0D 39 | STX 2 IX342+1 *XR2, U1I00340 000F 6B0E 40 | STX 3 IX343+1 *XR3 U1I00350 0010 6780 00E4 41 | LDX I3 $XR3X POINT TO TRANSFER VECTOR U1I00360 0012 610A 42 | LDX 1 10 NO. OF DEVICES ON LEVEL 2-9 U1I00370 0013 0810 43 | XIO IX390-1 SENSE ILSW U1I00380 0014 4820 44 | BSC Z SKIP IF 1627 INTRPT 2-9 U1I00390 0015 1140 45 | SLCA 1 0 SHIFT AND DECREMENT XR1 U1I00400 0016 4580 FFFFR 46 | BSI I1 IX310-1 BR TO DEVICE ISS U1I00410 47 | * U1I00420 0018 2000 48 | IX330 LDS 0 RESTORE STATUS, U1I00430 0019 6500 0000 49 | IX341 LDX L1 *-* *XR1, U1I00440 001B 6600 0000 50 | IX342 LDX L2 *-* *XR2, U1I00450 001D 6700 0000 51 | IX343 LDX L3 *-* *XR3, U1I00460 001F C802 52 | LDD IX380 *ACC AND EXTENSION U1I00470 0020 4CC0 000AR 53 | BOSC I IX320 TURN OFF INTERRUPT, RETURN U1I00480 54 | * U1I00490 0022 55 | IX380 BSS E 2 ACCUMULATOR AND EXTENSION U1I00530 0024 0000 56 | DC 0 U1I00540 0025 0300 57 | IX390 DC /0300 IOCC TO SENSE ILSW U1I00550 00E4 58 | $XR3X EQU /00E4 ADDR OF TRANSFER VECTOR U1I00560 0026 59 | END U1I00570 There were no errors in this assembly === CROSS REFERENCES ========================================================== Name Val Defd Referenced $XR3X 00E4 58 41 IX310 0000R 24 46 IX320 000AR 35 53 IX330 0018R 48 37 IX341 0019R 49 38 IX342 001BR 50 39 IX343 001DR 51 40 IX380 0022R 55 36 52 IX390 0025R 57 43