SYMLIST

* O180 (SYMLIST) DWG. 70181445000 REV. B PAGE 4

0122 * 0123 * 0124 SUBR D$MAP,MAP 0125 REL 0126 EXT LSTD LIST ROUTINE POINTER 0127 EXT CSRD CHARACTER INSERTION ROUTINE POINTER 0128 EXT OPTD OCTAL TO ASCII ROUTINE POINTER 0129 EXT UPAK CHARACTER UNPACKING ROUTINE 0130 EXT ZP PASS INDICATOR AND PARAMETER FLAGS 0131 EXT D$TP HIGH SYMBOL TABLE LOCATION 0132 EXT BSYM BASE OF SYMBOL TABLE 0133 EXT CSYM COUNT OF ENTRIES IN SYMBOL TABLE 0134 EXT TAB1 37 WORD BUFFER FOR POINTER STORAGE 0135 EXT TAB2 DITTO 0136 EXT T136 0137 EXT T137 0138 EXT T236 0139 EXT T237 0140 * 0141 * 0142 00000 0 000000 MAP DAC ** 0143 00001 0 02 00000 LDA CSYM FETCH SYMBOL TABLE COUNT 0144 00002 101040 SNZ SKIP IF SYMBOLS IN TABLE 0145 00003 -0 01 00000 JMP* MAP NO SYMBOLS TO SORT 0146 00004 0 02 00000 LDA ZP IF NOT OUTPUT PASS. 0147 00005 100400 SPL RETURN AT ONCE 0148 00006 -0 01 00000 JMP* MAP 0149 00007 0414 75 LGL 3 IF MAP IS INHIBITED. 0150 00010 100400 SPL RETURN TO THE ASSEMBLER 0151 00011 -0 01 00000 JMP* MAP 0152 00012 0 02 00000 LDA BSYM TABLE BASE OF SYMBOL TABLE 0153 00013 0 04 00000 STA TAB1 0154 00014 0 02 00000 LDA D$TP TAB2 & HIGH LOCATION OF SYMBOL TABLE 0155 00015 0 04 00000 STA TAB2 0156 00016 0 35 00376 LDX M36 -(6 CHARACTERS) * (6 BITS/CHARACTER) 0157 * 0158 00017 1 02 00000 SRT7 LDA T236,1 SET TAB2 = HIGH + 1 OF 0159 00020 0 04 00373 STA PIC2 SECTION BEING SORTED 0160 00021 1 07 00000 SUB T136,1 TEST FOR NULL OR UNIT 0161 00022 0 07 00037 SUB Q4 BLOCK SIZE 0162 00023 100400 SPL SKIP IF NOT 0163 00024 0 01 00065 JMP SRT6 YES - NO SORT REQUIRED 0164 00025 1 02 00000 LDA T136,1 LOW LOCATION OF CURRENT BLOCK 0165 00026 0 04 00372 SRT1 STA PIC1 SET ADDRESS OF CURRENT ENTRY 0166 00027 0 10 00204 JST LCHK 0167 00030 0 01 00034 JMP SRT4 0168 00031 0 10 00127 JST GBIT FETCH CURRENT SIGNIFICANT BIT 0169 00032 100040 SZE IF SET, START REVERSE SCAN 0170 00033 0 01 00050 JMP SRT2 0171 00034 0 02 00372 SRT4 LDA PIC1 STEP TO NEXT ENTRY