Retro1.org codex

ASM1130 CROSS ASSEMBLER V1.22 -- V2M12 -- Sun Nov  1 19:25:09 2020
 
Source File: \u1ils03.asm 
ILS03 - INTERRUPT LEVEL 3 SUBROUTINE
 
                             2 | *************************************************** U1D00020
                             3 | *                                                 * U1D00030
                             4 | * TITLE - ILS03                                   * U1D00040
                             5 | * STATUS - VERSION 2. MODIFICATION LEVEL 9        * U1D00050
                             6 | * FUNCTION/OPERATION - .ILS03. IS THE INTERRUPT   * U1D00060
                             7 | *  LEVEL SUBROUTINE FOR LEVEL 3.                  * U1D00070
                             8 | * ENTRY POINTS - ILS03 IS ENTERED BY A HARDWARE   * U1D00080
                             9 | *  BSI VIA LOCATION 11.                           * U1D00090
                            10 | * INPUT - NONE                                    * U1D00100
                            11 | * OUTPUT - NONE                                   * U1D00110
                            12 | * EXTERNAL SUBROUTINES - NONE                     * U1D00120
                            13 | * EXITS -                                         * U1D00130
                            14 | *  NORMAL - BOSC INDIRECT THROUGH .ILS03.         * U1D00140
                            15 | *  ERROR - NONE                                   * U1D00150
                            16 | * TABLES/WORK AREAS - NONE                        * U1D00160
                            17 | * ATTRIBUTES - REUSABLE                           * U1D00170
                            18 | * NOTES - THE 1627 PLOTTER INTERRUPT IS ON LEVEL 3* U1D00180
                            19 | *         THE 2250 DISPLAY UNIT INTERRUPT ALSO  2-6 U1D00190
                            20 | *                                                 * U1D00200
                            21 | *************************************************** U1D00210
ILS03 - INTERRUPT LEVEL 3 SUBROUTINE
 
                            23 |       ILS  03                                       U1D00230
0000 0741                   24 | I0310 DC      /0741     MTCA INTERVAL TIMER     2-9 U1D00235
0001 0441                   25 |       DC      /0441     MTCA END OF OPERATION   2-9 U1D00236
0002 0033                   26 |       DC      /0033                             2-9 U1D00237
0003 0033                   27 |       DC      /0033                             2-9 U1D00238
0004 0033                   28 |       DC      /0033                             2-9 U1D00239
0005 043E                   29 |       DC      /043E     2250                    2-9 U1D00240
0006 0033                   30 |       DC      /0033                             2-6 U1D00250
0007 0033                   31 |       DC      /0033                             2-6 U1D00260
0008 0033                   32 |       DC      /0033                             2-6 U1D00270
0009 043A                   33 |       DC      /043A     1627                    2-6 U1D00280
                            34 | *                                               2-6 U1D00290
000A 0000                   35 | I0320 DC      0         INTRPT ENTRY            2-6 U1D00300
000B D812                   36 |       STD     I0380     SAVE ACC AND EXT,       2-6 U1D00310
000C 2808                   37 |       STS     I0330     *STATUS,                2-6 U1D00320
000D 6909                   38 |       STX   1 I0341+1   *XR1,                   2-6 U1D00330
000E 6A0A                   39 |       STX   2 I0342+1   *XR2                    2-6 U1D00340
000F 610A                   40 |       LDX   1 10        NO. OF DEVICES ON LEVEL 2-9 U1D00350
0010 080F                   41 |       XIO     I0390-1    GET ILSW               2-6 U1D00355
0011 4820                   42 |       BSC     Z         SKIP IF 1627 INTRPT     2-9 U1D00360
0012 1140                   43 |       SLCA  1 0         SHIFT AND DECR XR1      2-6 U1D00370
0013 4580 FFFFR             44 |       BSI  I1 I0310-1   BR TO DEVICE ISS        2-6 U1D00380
                            45 | *                                               2-6 U1D00390
0015 2000                   46 | I0330 LDS     0         RESTORE STATUS,         2-6 U1D00400
0016 6500 0000              47 | I0341 LDX  L1 *-*       *XR1,                   2-6 U1D00410
0018 6600 0000              48 | I0342 LDX  L2 *-*       *XR2,                   2-6 U1D00420
001A C803                   49 |       LDD     I0380     *ACC AND EXT            2-6 U1D00430
001B 4CC0 000AR             50 |       BOSC I  I0320     TURN OFF INTRPT, RETURN 2-6 U1D00440
                            51 | *                                               2-6 U1D00450
                            52 | *                                               2-7 U1D00480
001E                        53 | I0380 BSS  E  2         ACC AND EXT             2-6 U1D00490
0020 0000                   54 |       DC      0                                 2-6 U1D00500
0021 0300                   55 | I0390 DC      /0300     IOCC TO SENSE ILSW      2-6 U1D00510
0022                        56 |       END                                       2-6 U1D00520
 
There were no errors in this assembly
 
=== CROSS REFERENCES ==========================================================
Name  Val   Defd  Referenced
I0310 0000R   24   44
I0320 000AR   35   50
I0330 0015R   46   37
I0341 0016R   47   38
I0342 0018R   48   39
I0380 001ER   53   36   49
I0390 0021R   55   41