ASM1130 CROSS ASSEMBLER V1.22 -- V2M12 -- Sun Nov 1 19:25:09 2020 Source File: \u1ilsx4.asm ILSX4 - INTERRUPT LEVEL 4 SUBROUTINE 2 | *************************************************** U1J00020 3 | * * U1J00030 4 | * STATUS - VERSION 2, MODIFICATION LEVEL 6 * U1J00040 5 | * FUNCTION/OPERATION - INTERRUPT LEVEL SUBROUTINE * U1J00050 6 | * FOR LEVEL 4. * U1J00060 7 | * ENTRY POINT - ENTERED AT IX420 BY A HARDWARE * U1J00070 8 | * BSI VIA LOCATION 12 DECIMAL. * U1J00080 9 | * INPUT - NONE * U1J00090 10 | * OUTPUT - NONE * U1J00100 11 | * EXTERNAL SUBROUTINES - NONE * U1J00110 12 | * EXITS - * U1J00120 13 | * NORMAL - BOSC INDIRECT THROUGH IX420. * U1J00130 14 | * ERROR - NONE * U1J00140 15 | * TABLES/WORK AREAS - NONE * U1J00150 16 | * ATTRIBUTES - REUSABLE * U1J00160 17 | * NOTES - INDEX REGISTERS 1, 2, AND 3, STATUS, * U1J00170 18 | * ACCUMULATOR AND EXTENSION ARE SAVED UPON * U1J00180 19 | * ENTRY AND RESTORED AFTER INTERRUPT SERVICED. * U1J00190 20 | * * U1J00200 21 | *************************************************** U1J00210 ILSX4 - INTERRUPT LEVEL 4 SUBROUTINE 23 | ILS 04 U1J00230 0000 0033 24 | IX410 DC /0033 DEVICE *-* AND ISS NO. *-* U1J00240 0001 0033 25 | DC /0033 DEVICE *-* AND ISS NO. *-* U1J00250 0002 0033 26 | DC /0033 DEVICE *-* AND ISS NO. *-* U1J00260 0003 043D 27 | DC /043D 1231 +4 AND ISS NO. 10 U1J00270 0004 043C 28 | DC /043C 1403 +4 AND ISS NO. 9 U1J00280 0005 0437 29 | DC /0437 2501 +4 AND ISS NO. 4 U1J00290 0006 0734 30 | DC /0734 1442 +4 AND ISS NO. 1 U1J00300 0007 0435 31 | DC /0435 CONSOLE +4 AND ISS NO. 2 U1J00310 0008 0436 32 | DC /0436 1134/1055 +4 AND ISS NO. 3 U1J00320 33 | * U1J00330 0009 0000 34 | IX420 DC 0 INTERRUPT ENTRY U1J00340 000A D81B 35 | STD IX480 SAVE ACC AND EXTENSION, U1J00350 000B 280F 36 | STS IX430 *STATUS, U1J00360 000C 6910 37 | STX 1 IX441+1 *XR1, U1J00370 000D 6A11 38 | STX 2 IX442+1 *XR2, U1J00380 000E 6B12 39 | STX 3 IX443+1 *XR3 U1J00390 000F 6780 00E4 40 | LDX I3 $XR3X POINT TO TRANSFER VECTOR U1J00400 0011 0818 41 | XIO IX495-1 SENSE KEY BOARD U1J00410 0012 1002 42 | SLA 2 IS IT INTERRUPT REQUEST U1J00420 0013 44A8 002C 43 | BSI I $IREQ,+Z *KEY, BR IF YES U1J00430 0015 1000 44 | NOP MAKE ILSX4 COMP W ILS04 2-6 U1J00435 0016 6109 45 | LDX 1 9 NUMBER OF DEVICES ON LEVEL U1J00440 0017 0810 46 | XIO IX490-1 SENSE ILSW U1J00450 0018 1140 47 | SLCA 1 0 SHIFT AND DECREMENT XR1 U1J00460 0019 4580 FFFFR 48 | BSI I1 IX410-1 BR TO DEVICE ISS U1J00470 49 | * U1J00480 001B 2000 50 | IX430 LDS 0 RESTORE STATUS, U1J00490 001C 6500 0000 51 | IX441 LDX L1 *-* *XR1, U1J00500 001E 6600 0000 52 | IX442 LDX L2 *-* *XR2, U1J00510 0020 6700 0000 53 | IX443 LDX L3 *-* *XR3, U1J00520 0022 C803 54 | LDD IX480 *ACC AND EXTENSION U1J00530 0023 4CC0 0009R 55 | BOSC I IX420 TURN OFF INTERRUPT, RETURN U1J00540 56 | * U1J00550 0026 57 | IX480 BSS E 2 ACCUMULATOR AND EXTENSION U1J00560 0028 0000 58 | DC 0 U1J00570 0029 0300 59 | IX490 DC /0300 IOCC TO SENSE ILSW U1J00580 002A 0000 60 | DC 0 U1J00590 002B 0F00 61 | IX495 DC /0F00 SENSE IOCC FOR KEY BOARD U1J00600 002C 62 | $IREQ EQU /002C ADDR OF ISS FOR KEY INT REQ U1J00610 00E4 63 | $XR3X EQU /00E4 ADDR OF TRANSFER VECTOR U1J00620 002C 64 | END U1J00630 There were no errors in this assembly === CROSS REFERENCES ========================================================== Name Val Defd Referenced $IREQ 002C 62 43 $XR3X 00E4 63 40 IX410 0000R 24 48 IX420 0009R 34 55 IX430 001BR 50 36 IX441 001CR 51 37 IX442 001ER 52 38 IX443 0020R 53 39 IX480 0026R 57 35 54 IX490 0029R 59 46 IX495 002BR 61 41