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