ASM1130 CROSS ASSEMBLER V1.22 -- V2M12 -- Sun Nov 1 19:25:08 2020
Source File: \t5getad.asm
1 | * JULY 6,1967 T5C00010
GETAD
3 | LIBR T5C00030
4 | ENT GETAD T5C00040
5 | *************************************************** T5C00050
6 | *STATUS-VERSION 2,MODIFICATION 0 * T5C00060
7 | * * T5C00070
8 | *FUNCTION/OPERATION- * T5C00080
9 | * THIS SUBROUTINE CALCULATES THE EFFECTIVE ADDR * T5C00090
10 | * OF A TABLE FROM A LIBF TABLE INSTRUCTION * T5C00100
11 | * IN THE ACCUMULATOR. * T5C00110
12 | * * T5C00120
13 | *ENTRY POINTS- * T5C00130
14 | * * GETAD-ENTERED BY A LIBF GETAD * T5C00140
15 | * * T5C00150
16 | *INPUT- * T5C00160
17 | * * THE ACC CONTAINS A LIBF TABLE * T5C00170
18 | * * T5C00180
19 | *OUTPUT- * T5C00190
20 | * * THE ACC CONTAINS THE EFFECTIVE ADDRESS OF * T5C00200
21 | * THE TABLE * T5C00210
22 | * * T5C00220
23 | *EXTERNAL REFERENCES-N/A T5C00230
24 | * * T5C00240
25 | *EXITS * T5C00250
26 | * NORMAL- * T5C00260
27 | * * GETAD+1-RETURNS TO CALLING SUBROUTINE * T5C00270
28 | * ERROR-N/A * T5C00280
29 | * * T5C00290
30 | *TABLES/WORK AREAS-N/A * T5C00300
31 | * * T5C00310
32 | *ATTRIBUTES-RELOCATABLE * T5C00320
33 | * * T5C00330
34 | *NOTES-N/A * T5C00340
35 | * * T5C00350
36 | *************************************************** T5C00360
GETAD
0000 7002 38 | GETAD MDX *+2 ENTRY T5C00380
0001 4C80 0000 39 | BSC I *-* RETURN T5C00390
0003 1088 40 | SLT 8 GET DISPLACEMENT IN ACC T5C00400
0004 1888 41 | SRT 8 SHIFT TO INCLUDE SIGN BITS T5C00410
0005 6B07 42 | STX 3 GZ901 SAVE CONTENTS OF XR3 T5C00420
0006 8006 43 | A GZ901 ADD CONTENTS OF XR3 T5C00430
0007 8006 44 | A GZ902 ADD 2 T5C00440
0008 D001 45 | STO *+1 STORE EFFECTIVE ADDRESS T5C00450
0009 C400 0000 46 | LD L *-* LOAD EFFECTIVE ADDRESS T5C00460
000B 8002 47 | A GZ902 ADD 2 T5C00470
000C 70F4 48 | MDX GETAD+1 RETURN T5C00480
49 | * T5C00490
50 | * CONSTANT STORAGE T5C00500
51 | * T5C00510
000D 0000 52 | GZ901 DC 0 TEMP STORAGE CONTENTS XR3 T5C00520
000E 0002 53 | GZ902 DC 2 CONSTANT T5C00530
000F 54 | END T5C00540
There were no errors in this assembly
=== CROSS REFERENCES ==========================================================
Name Val Defd Referenced
GETAD 0000R 38 48
GZ901 000DR 52 42 43
GZ902 000ER 53 44 47