TABLESIZ

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

0151 00040 0 03 00054 ANA CMSK MASK TO XX600 FOR COMMON BASE 0152 00041 100020 SR1 TEST FOR OPERATOR OVERRIDE 0153 00042 000000 HLT ALLOW VALUE TO BE SET 0154 00043 0 04 00000 STA D$CB SET COMMON BASE 0155 00044 0 02 00000 LDA D$TP FETCH HIGH TABLE LOCATION 0156 00045 0 07 00055 SUB END CALCULATE NUMBER OF WORDS AVAILABLE 0157 00046 0 04 00000 STA D$SZ SET SYMBOL TABLE SIZE 0158 00047 -0 01 00002 JMP* SIZ EXIT 0159 * 0160 00050 TOP BSS 1 0161 00051 037777 K16 HEX 3FFF MAX. ADDRESS IN NORMAL MODE 0162 00052 077777 K32 HEX 7FFF MAX. ADDRESS IN EXTENDED MODE 0163 00053 010000 BLCK HEX 1000 4K DECREMENT CONSTANT 0164 00054 177600 CMSK HEX FF80 MASK FOR COMMON BASE 0165 00055 0 000002 END DAC SIZ FIRST FREE LOCATION IN CORE 0166 00056 000013 EXA EXA 0167 00057 000011 DXA DXA 0168 00060 1 02 02030 MLOD LDA *+1000,1 USED TO CHECK LOADING MODE 0169 00061 000001 ONE OCT 1 0170 END BLCK 000053 CMSK 000054 D$CB 000000E D$SZ 000000E D$TP 000000E DXA 000057 END 000055 EXA 000056 EXD 000016 K16 000051 K32 000052 MAP 000000 MLOD 000060 ONE 000061 OUTL 000033 SIZ 000002 SIZL 000022 TOP 000050 0000 WARNING OR ERROR FLAGS DAP-16 MOD 2 REV. C 01-26-71