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