U1ILSX4

Table Of Contents
  • [00004] ILSX4 - INTERRUPT LEVEL 4 SUBROUTINE
u1ilsx4.lst
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