ASM1130 CROSS ASSEMBLER V1.22 -- V2M12 -- Sun Nov 1 19:25:09 2020 Source File: \u1ilsx1.asm ILSX1 - INTERRUPT LEVEL 1 SUBROUTINE 2 | *************************************************** U1G00020 3 | * * U1G00030 4 | * STATUS - VERSION 2, MODIFICATION LEVEL 9 * U1G00040 5 | * FUNCTION/OPERATION - INTERRUPT LEVEL SUBROUTINE * U1G00050 6 | * FOR LEVEL 1. * U1G00060 7 | * ENTRY POINT - ENTERED AT IX120 BY A HARDWARE * U1G00070 8 | * BSI VIA LOCATION 9. * U1G00080 9 | * INPUT - NONE * U1G00090 10 | * OUTPUT - NONE * U1G00100 11 | * EXTERNAL SUBROUTINES - NONE * U1G00110 12 | * EXITS - * U1G00120 13 | * NORMAL - BOSC INDIRECT THROUGH IX120. * U1G00130 14 | * ERROR - NONE * U1G00140 15 | * TABLES/WORK AREAS - NONE * U1G00150 16 | * ATTRIBUTES - REUSABLE * U1G00160 17 | * NOTES - INDEX REGISTERS 1, 2, AND 3, STATUS, * U1G00170 18 | * ACCUMULATOR AND EXTENSION ARE SAVED UPON * U1G00180 19 | * ENTRY AND RESTORED AFTER INTERRUPT SERVICED. * U1G00190 20 | * * U1G00200 21 | *************************************************** U1G00210 ILSX1 - INTERRUPT LEVEL 1 SUBROUTINE 23 | ILS 01 U1G00230 0000 043B 24 | IX110 DC /043B SCA +4 AND ISS NO. 8 U1G00240 0001 0439 25 | IX111 DC /0439 1132 +4 AND ISS NO. 6 U1G00250 26 | * U1G00260 0002 0000 27 | IX120 DC 0 INTERRUPT ENTRY U1G00270 0003 D816 28 | STD IX180 SAVE ACC AND EXTENSION, U1G00280 0004 280B 29 | STS IX130 *STATUS, U1G00290 0005 690C 30 | STX 1 IX141+1 *XR1, U1G00300 0006 6A0D 31 | STX 2 IX142+1 *XR2, U1G00310 0007 6B0E 32 | STX 3 IX143+1 *XR3 U1G00320 0008 6780 00E4 33 | LDX I3 $XR3X POINT TO TRANSFER VECTOR U1G00330 000A 0811 34 | XIO IX190-1 SENSE ILSW U1G00350 000B 6100 35 | LDX 1 0 2-9 U1G00360 000C 4808 36 | BSC + SKIP IF SCA INTRPT 2-9 U1G00362 000D 6101 37 | LDX 1 1 2-9 U1G00364 000E 4580 0000R 38 | BSI I1 IX110 BRANCH TO SERVICE INTR 2-9 U1G00370 39 | * U1G00380 0010 2000 40 | IX130 LDS 0 RESTORE STATUS, U1G00390 0011 6500 0000 41 | IX141 LDX L1 *-* *XR1, U1G00400 0013 6600 0000 42 | IX142 LDX L2 *-* *XR2, U1G00410 0015 6700 0000 43 | IX143 LDX L3 *-* *XR3, U1G00420 0017 C802 44 | LDD IX180 *ACC AND EXTENSION U1G00430 0018 4CC0 0002R 45 | BOSC I IX120 TURN OFF INTERRUPT, RETURN U1G00440 46 | * 2-6 U1G00442 47 | * U1G00450 001A 48 | IX180 BSS E 2 ACCUMULATOR AND EXTENSION U1G00460 001C 0000 49 | DC 0 U1G00470 001D 0300 50 | IX190 DC /0300 IOCC TO SENSE ILSW U1G00480 00E4 51 | $XR3X EQU /00E4 ADDR OF TRANSFER VECTOR U1G00490 001E 52 | END U1G00500 There were no errors in this assembly === CROSS REFERENCES ========================================================== Name Val Defd Referenced $XR3X 00E4 51 33 IX110 0000R 24 38 IX111 0001R 25 IX120 0002R 27 45 IX130 0010R 40 29 IX141 0011R 41 30 IX142 0013R 42 31 IX143 0015R 43 32 IX180 001AR 48 28 44 IX190 001DR 50 34