ASM1130 CROSS ASSEMBLER V1.22 -- V2M12 -- Sun Nov 1 19:25:09 2020 Source File: \u1ilsx2.asm ILSX2 - INTERRUPT LEVEL 2 SUBROUTINE 2 | *************************************************** U1H00020 3 | * * U1H00030 4 | * STATUS - VERSION 2, MODIFICATION LEVEL 2 * U1H00040 5 | * FUNCTION/OPERATION - INTERRUPT LEVEL SUBROUTINE * U1H00050 6 | * FOR LEVEL 2. * U1H00060 7 | * ENTRY POINT - ENTERED AT IX220 BY A HARDWARE * U1H00070 8 | * BSI VIA LOCATION 10 DECIMAL. * U1H00080 9 | * INPUT - NONE * U1H00090 10 | * OUTPUT - NONE * U1H00100 11 | * EXTERNAL SUBROUTINES - NONE * U1H00110 12 | * EXITS - * U1H00120 13 | * NORMAL - BOSC INDIRECT THROUGH IX220. * U1H00130 14 | * ERROR - NONE * U1H00140 15 | * TABLES/WORK AREAS - NONE * U1H00150 16 | * ATTRIBUTES - REUSABLE * U1H00160 17 | * NOTES - INDEX REGISTERS 1, 2, AND 3, STATUS, * U1H00170 18 | * ACCUMULATOR AND EXTENSION ARE SAVED UPON * U1H00180 19 | * ENTRY AND RESTORED AFTER INTERRUPT SERVICED. * U1H00190 20 | * * U1H00200 21 | *************************************************** U1H00210 ILSX2 - INTERRUPT LEVEL 2 SUBROUTINE 23 | ILS 02 U1H00230 0000 0538 24 | IX210 DC /0538 DISK +5 AND ISS NO. 5 U1H00240 25 | * U1H00250 0001 0000 26 | IX220 DC 0 INTERRUPT ENTRY U1H00260 0002 D813 27 | STD IX280 SAVE ACC AND EXTENSION, U1H00270 0003 2807 28 | STS IX230 *STATUS, U1H00280 0004 6908 29 | STX 1 IX241+1 *XR1, U1H00290 0005 6A09 30 | STX 2 IX242+1 *XR2, U1H00300 0006 6B0A 31 | STX 3 IX243+1 *XR3 U1H00310 0007 6780 00E4 32 | LDX I3 $XR3X POINT TO TRANSFER VECTOR U1H00320 0009 4480 0000R 33 | BSI I IX210 GO TO ISS U1H00330 34 | * U1H00340 000B 2000 35 | IX230 LDS 0 RESTORE STATUS, U1H00350 000C 6500 0000 36 | IX241 LDX L1 *-* *XR1, U1H00360 000E 6600 0000 37 | IX242 LDX L2 *-* *XR2, U1H00370 0010 6700 0000 38 | IX243 LDX L3 *-* *XR3, U1H00380 0012 C803 39 | LDD IX280 *ACC AND EXTENSION U1H00390 0013 4CC0 0001R 40 | BOSC I IX220 TURN OFF INTERRUPT, RETURN U1H00400 41 | * U1H00410 0016 42 | IX280 BSS E 2 ACCUMULATOR AND EXTENSION U1H00420 00E4 43 | $XR3X EQU /00E4 ADDR OF TRANSFER VECTOR U1H00430 0018 44 | END U1H00440 There were no errors in this assembly === CROSS REFERENCES ========================================================== Name Val Defd Referenced $XR3X 00E4 43 32 IX210 0000R 24 33 IX220 0001R 26 40 IX230 000BR 35 28 IX241 000CR 36 29 IX242 000ER 37 30 IX243 0010R 38 31 IX280 0016R 42 27 39