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