Previous File Previous Page Single Page Next Page Next File

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

0101 * ADDRESS OF THE ENTRY POINT TO THIS ROUTINE FROM THIS VALUE. 0102 * THE COMMON BASE IS SET TO XX600 WHERE XX IS THE LAST IMPLE- 0103 * MENTED SECTOR IN MEMORY. 0104 * 0105 * 0106 ************************************************************************ 0107 * 0108 SUBR TBLSIZ,SIZ SYMBOL TABLE SETUP ROUTINE 0109 SUBR D$MAP,MAP DUMMY FOR MAP PRINTER 0110 * 0111 EXT D$TP LAST AVAILABLE LOCATION FOR SYMBOL TABLE 0112 EXT D$SZ NUMBER OF WORDS AVAILABLE FOR SYMBOL TABLE 0113 EXT D$CB DEFAULT COMMON BASE 0114 * 0115 CF3 FOR USE ON H316 AND DDP-516 0116 REL THIS IS A RELOCATABLE SUBROUTINE 0117 * 0118 00000 0 000000 MAP DAC ** SYMBOL TABLE MAP PRINTER ENTRY 0119 00001 -0 01 00000 JMP* MAP EXIT 0120 * 0121 00002 0 000000 SIZ DAC ** ESTABLISH SYMBOL TABLE 0122 00003 0 02 00002 LDA *-1 FETCH RETURN ADDRESS 0123 00004 0 07 00061 SUB ONE DECREMENT IT TO POINT TO CALL 0124 00005 0 04 00002 STA SIZ SAVE NEW RETURN ADDRESS 0125 00006 0 02 00060 LDA MLOD CHECK FOR EXTENDED MODE LOADING 0126 00007 0415 77 ALS 1 IF INDEX BIT IS SET. EXTENDED MODE 0127 00010 100400 SPL SKIP IF NORMAL MODE 0128 00011 0 01 00016 JMP EXD PROCESS EXTENDED MODE 0129 00012 0 02 00057 LDA DXA INSERT A 'DXA' INSTRUCTION IN PLACE 0130 00013 -0 04 00002 STA* SIZ OF THE CALL TO THIS ROOTINE 0131 00014 0 02 00051 LDA K16 MAXIMUM OF 16K STORAGE 0132 00015 0 01 00022 JMP SIZL GO CHECK MEMORY SIZE 0133 00016 000013 EXD EXA ENABLE EXTENDED ADDRESSING 0134 00017 0 02 00056 LDA EXA INSERT AN 'EXA' INSTRUCTION IN PLACE 0135 00020 -0 04 00002 STA* SIZ OF THE CALL TO THIS ROUTINE 0136 00021 0 02 00052 LDA K32 MAXIMUM OF 32K STORAGE 0137 00022 0 04 00050 SIZL STA TOP SAVE ADDRESS TO BE CHECKED 0138 00023 -0 13 00050 IMA* TOP CHECK THE LOCATION WITHOUT 0139 00024 -0 13 00050 IMA* TOP DESTROYING ITS CONTENTS 0140 00025 0 05 00050 ERA TOP COMPARE WITH ORIGINAL VALUE 0141 00026 101040 SNZ SKIP IF LOCATION DOES NOT EXIST 0142 00027 0 01 00033 JMP OUTL LAST MEMORY LOCATION FOUND 0143 00030 0 02 00050 LDA TOP FETCH ADDRESS OF NONEXISTANT LOCATION 0144 00031 0 07 00053 SUB BLCK DECREMENT THE ADDRESS BY 4K 0145 00032 0 01 00022 JMP SIZL GO TEST NEXT FEASIBLE LOCATION 0146 00033 0 02 00050 OUTL LDA TOP FETCH LAST IMPLEMENTED ADDRESS 0147 00034 100020 SR1 TEST FOR OPERATOR OVERRIDE 0148 00035 000000 HLT ALLOW OPERATOR TO SET VALUE 0149 00036 0 04 00000 STA D$TP SET ADDRESS OF LAST SYMBOL TABLE LOCATION 0150 00037 0 02 00050 LDA TOP FETCH HIGH LOCATION
Previous File Previous Page Single Page Next Page Next File