TABLESIZ

* 0180-001-6808 (TABLESIZ) CCD NO. 70181497000 REV. B PAGE 2

0051 * TO SET THE SYMBOL TABLE SIZE AND COMMON BASE FOR DAP-16M2 0052 * 0053 * 0054 * RESTRICTIONS 0055 * 0056 * THIS MUST BE THE LAST SUBROUTINE LOADED MHEN MAKING 0057 * A DAP-16M2 SYSTEM. 0058 * DO NOT USE ANY EOUATES TO MAIN ASSEMBLER PROGRAM. 0059 * 0060 * 0061 * STORAGE 0062 * 0063 * 0061 (OCTAL) 0064 * 0049 (DECIMAL) 0065 * 0066 * 0067 * USE 0068 * 0069 * THIS PROGRAM IS CALLED BY THE I/O SUPERVISOR THAT 0070 * IS USED AT THE START OF THE FIRST ASSEMBLY. THE 0071 * MEMORY SIZE WILL EE DETERMINED AND THE SIZE OF THE SYMBOL 0072 * TABLE AND THE DEFAULT COMMON BASE WILL BE SET. IF SENSE 0073 * SWITCH ONE IS SET DURING EXECUTION. THE PROGRAM 0074 * WILL HALT TO ALLOW THESE VALUES TO BE CHANGED. THE 0075 * FIRST TIME THE COMPUTER HALTS. THE ADDRESS OF THE LAST 0076 * LOCATION AVAILABLE FOR THE SYMBOL TABLE WILL BE DISPLAYED 0077 * IN THE A REGISTER. CHANGE THIS VALUE, IF DESIRED, AND 0078 * PRESS START. THE COMPUTER WILL THEN HALT WITH THE 0079 * COMMON BASE DISPLAYED IN THE A REGISTER. CHANGE THIS 0080 * VALUE, IF DESIRED, AND PRESS START. AFTER THE FIRST 0081 * EXECUTION OF THIS PROGRAM. THE CALL WILL BE REPLACED WITH A 0082 * DXA OR EXA INSTRUCTION DEPENDING ON THE MODE IN WHICH THE 0083 * PROGRAM WAS LOADED. 0084 * 0085 * 0086 * METHOD 0087 * 0088 * THE PROGRAM FIRST CHECKS FOR THE MODE IN WHICH 0089 * IT WAS LOADED BY INSPECTING AN INDEXED LDA INSTRUCTION 0090 * WHOSE ADDRESS IS IN ANOTHER SECTOR. IF THE INDEX BIT 0091 * IS SET ON THIS INSTRUCTION. THEN THE CALL IS REPLACED 0092 * BY AN 'EXA' INSTRUCTION. IF IT IS NOT SET. THE CALL IS 0093 * REPLACED BY A 'DXA' INSTRUCTION. THE PROGRAM THEN CHECKS 0094 * FOR THE LAST IMPLEMENTED MEMORY LOCATION. STARTING WITH 0095 * LOCATION '77777 IF LOADED IN EXTENDED MODE. OR LOCATION 0096 * '37777 IF LOADED IN NORMAL MODE. THE SCAN PROCEEDS 0097 * DOWNWARD BY 4K DECREMENTS UNTIL AN IMPLEMENTED LOCATION 0098 * IS FOUND. THIS BECOMES THE HIGHEST AVAILABLE SYMBOL 0099 * TABLE LOCATION UNLESS OVERRIDDEN BY OPERATOR CONTOL. 0100 * THE SYMBOL TABLE SIZE IS DETERMINED BY SUBTRACTING THE