Retro1.org codex

ASM1130 CROSS ASSEMBLER V1.22 -- V2M12 -- Sun Nov  1 19:25:09 2020
 
Source File: \u1ils01.asm 
ILS01 - INTERRUPT LEVEL 1 SUBROUTINE
 
                             2 | *************************************************** U1B00020
                             3 | *                                                 * U1B00030
                             4 | * TITLE - ILS01                                   * U1B00040
                             5 | * STATUS - VERSION 2, MODIFICATION LEVEL 9        * U1B00050
                             6 | * FUNCTION/OPERATION - .ILS01. IS THE INTERRUPT   * U1B00060
                             7 | *  LEVEL SUBROUTINE FOR LEVEL 1                   * U1B00070
                             8 | * ENTRY POINTS - ILS01. ENTERED BY HARDWARE BSI   * U1B00080
                             9 | *  VIA LOCATION 9                                 * U1B00090
                            10 | * INPUT - NONE                                    * U1B00100
                            11 | * OUTPUT - NONE                                   * U1B00110
                            12 | * EXTERNAL ROUTINES - NONE                        * U1B00120
                            13 | * EXITS - NORMAL - BOSC INDIRECT THROUGH .ILS01.  * U1B00130
                            14 | *      -ERROR - NONE                              * U1B00140
                            15 | * TABLES/WORK AREAS - NONE                        * U1B00150
                            16 | * ATTRIBUTES - REUSABLE                           * U1B00160
                            17 | * NOTES -                                         * U1B00170
                            18 | *             ******     1130 ILS01               * U1B00180
                            19 | *             *     THIS IS THE INTERRUPT LEVEL   * U1B00190
                            20 | *             *     SUBROUTINE FOR LEVEL 1.       * U1B00200
                            21 | *             *     THE 1132 PRINTER AND THE      * U1B00210
                            22 | *             *     COMMUNICATIONS ADAPTER ARE ON * U1B00220
                            23 | *             *     LEVEL 1.                      * U1B00230
                            24 | *             *     BIT 0 - 1132 PRINTER          * U1B00240
                            25 | *             *     BIT 1 - COMMUNICATIONS ADAPTER* U1B00250
                            26 | *             ******                              * U1B00260
                            27 | *                                                 * U1B00270
                            28 | *************************************************** U1B00280
ILS01 - INTERRUPT LEVEL 1 SUBROUTINE
 
                            30 |       ILS  01                                       U1B00300
0000 0439                   31 | P2    DC      /0439                                 U1B00310
0001 043B                   32 | CAT2  DC      /043B                                 U1B00320
0002 0000                   33 | ILS01 DC      0          ENTERED BY HARDWARE BSI    U1B00330
                            34 | *                        *VIA LOCATION 0009         U1B00340
0003 D812                   35 |       STD     AQ         SAVE ACC AND EXTENSION     U1B00350
0004 2808                   36 |       STS     STAT       SAVE STATUS                U1B00360
0005 690A                   37 |       STX   1 XR1+1      SAVE INDEX REGISTER 1      U1B00370
0006 6A0B                   38 |       STX   2 XR2+1      SAVE INDEX REGISTER 2      U1B00380
                            39 | *                                                   U1B00390
0007 0810                   40 |       XIO     SENS-1     SENSE ILSW                 U1B00400
0008 6101                   41 |       LDX   1 1                                 2-9 U1B00410
0009 4808                   42 |       BSC     +         SKIP IF SCA INTRPT      2-9 U1B00420
000A 6100                   43 |       LDX   1 0                                 2-9 U1B00422
000B 4580 0000R             44 |       BSI  I1 P2        BR TO PROCESS INTRPT    2-9 U1B00424
                            45 | *                                                   U1B00430
000D 2000                   46 | STAT  LDS     0          RESTORE                    U1B00440
000E C807                   47 |       LDD     AQ                                    U1B00450
000F 6500 0000              48 | XR1   LDX  L1 *-*                                   U1B00460
0011 6600 0000              49 | XR2   LDX  L2 *-*                                   U1B00470
                            50 | *                                                   U1B00480
0013 4CC0 0002R             51 |       BOSC I  ILS01      TURN OFF LEVEL AND EXIT    U1B00490
                            52 | *                                                   U1B00500
                            53 | *                                                   U1B00530
0016                        54 | AQ    BSS  E  2          FOR SAVING ACC AND EXT.    U1B00540
0018 0000                   55 |       DC      0                                     U1B00550
0019 0300                   56 | SENS  DC      /0300      IOCC TO SENSE ILSW         U1B00560
                            57 | *                                                   U1B00570
001A                        58 |       END                                           U1B00580
 
There were no errors in this assembly
 
=== CROSS REFERENCES ==========================================================
Name  Val   Defd  Referenced
AQ    0016R   54   35   47
CAT2  0001R   32
ILS01 0002R   33   51
P2    0000R   31   44
SENS  0019R   56   40
STAT  000DR   46   36
XR1   000FR   48   37
XR2   0011R   49   38