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