Retro1.org codex

ASM1130 CROSS ASSEMBLER V1.22 -- V2M12 -- Sun Nov  1 19:25:09 2020
 
Source File: \u1ils00.asm 
ILS00 - INTERRUPT LEVEL 0 SUBROUTINE
 
                             2 | *************************************************** U1A00020
                             3 | *                                                 * U1A00030
                             4 | * TITLE - ILS00                                   * U1A00040
                             5 | * STATUS - VERSION 2, MODIFICATION LEVEL 0        * U1A00050
                             6 | * FUNCTION/OPERATION - .ILS00. IS THE INTERRUPT   * U1A00060
                             7 | *  LEVEL SUBROUTINE FOR LEVEL 0.                  * U1A00070
                             8 | * ENTRY POINTS - ILS00 IS ENTERED BY A HARDWARE   * U1A00080
                             9 | *  BSI VIA LOCATION 8.                            * U1A00090
                            10 | * INPUT - NONE                                    * U1A00100
                            11 | * OUTPUT - NONE                                   * U1A00110
                            12 | * EXTERNAL SUBROUTINES - NONE                     * U1A00120
                            13 | * EXITS -                                         * U1A00130
                            14 | *  NORMAL - BOSC INDIRECT THROUGH .ILS00.         * U1A00140
                            15 | *  ERROR - NONE                                   * U1A00150
                            16 | * TABLES/WORK AREAS - NONE                        * U1A00160
                            17 | * ATTRIBUTES - REUSABLE                           * U1A00170
                            18 | * NOTES - THE 1442 COLUMN INTERRUPT IS ON LEVEL 0.* U1A00180
                            19 | *                                                 * U1A00190
                            20 | *************************************************** U1A00200
ILS00 - INTERRUPT LEVEL 0 SUBROUTINE
 
                            22 |       ILS  00                                       U1A00220
0000 0434                   23 | ADDR  DC      /0434      = CARD +4               ** U1A00230
0001 0000                   24 | INT   DC      0                                     U1A00240
0002 D80F                   25 |       STD     TEMP       SAVE STATUS                U1A00250
0003 6907                   26 |       STX   1 INT14+1                               U1A00260
0004 6A08                   27 |       STX   2 INT15+1                               U1A00270
0005 2803                   28 |       STS     INT12                                 U1A00280
0006 C00D                   29 |       LD      AREA       OBTAIN IOCC FOR DSW SENSE  U1A00290
0007 4480 0000R             30 |       BSI  I  ADDR       GO TO ISS ROUTINE          U1A00300
0009 2000                   31 | INT12 LDS     0                                     U1A00310
000A 6500 0000              32 | INT14 LDX  L1 0                                     U1A00320
000C 6600 0000              33 | INT15 LDX  L2 *-*                                   U1A00330
000E C803                   34 |       LDD     TEMP       RESTORE STATUS             U1A00340
000F 4CC0 0001R             35 |       BOSC I  INT        EXIT & TURN OFF INT LEVEL  U1A00350
0012                        36 | TEMP  BSS  E  2          ACCUMULATOR AND EXTENSION  U1A00360
0014 1701                   37 | AREA  DC      /1701      = 1442 CARD             ** U1A00370
0015                        38 |       END                                           U1A00380
 
There were no errors in this assembly
 
=== CROSS REFERENCES ==========================================================
Name  Val   Defd  Referenced
ADDR  0000R   23   30
AREA  0014R   37   29
INT   0001R   24   35
INT12 0009R   31   28
INT14 000AR   32   26
INT15 000CR   33   27
TEMP  0012R   36   25   34