SYMLIST

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

0172 00035 0 06 00377 ADD Q3 0173 00036 0 11 00373 CAS PIC2 TEST FOR END OF BLOCK 0174 00037 000004 Q4 OCT 4 NEVER CAN GET HERE (FAMOUS LAST WORDS!!) 0175 00040 0 01 00055 JMP SRT5 END OF BLOCK 0176 00041 0 01 00026 JMP SRT1 MORE SYMBOLS TO CONSIDER 0177 * 0178 00042 0 04 00373 SRT3 STA PIC2 PIC2 & ADDRESS OF COMPLEMENT ENTRY 0179 00043 0 10 00204 JST LCHK 0180 00044 0 01 00050 JMP SRT2 0181 00045 0 10 00127 JST GBIT FETCH CURRENT BIT FROM THIS ENTRY 0182 00046 101040 SNZ SKIP IF SET 0183 00047 0 01 00105 JMP SWAP INTERCHANGE THIS ENTRY WITH A LOWER ENTRY 0184 00050 0 02 00373 SRT2 LDA PIC2 TRY NEXT LOWEST ENTRY 0185 00051 0 07 00377 SUB Q3 0186 00052 0 11 00372 CAS PIC1 TEST FOR CONVERGENCE 0187 00053 0 01 00042 JMP SRT3 NO - TEST THIS ENTRY 0188 00054 0 04 00373 STA PIC2 YES - UPDATE POINTER ADDRESS 0189 00055 0 02 00373 SRT5 LDA PIC2 DROP BLOCK POINTERS INTO BUFFERS 0190 00056 1 04 00000 STA T237,1 0191 00057 1 13 00000 IMA T136,1 0192 00060 1 04 00000 STA T137,1 0193 00061 0 12 00000 IRS 0 INCREMENT BIT COUNTER 0194 00062 0 01 00017 JMP SRT7 GO SORT ON NEXT BIT 0195 00063 0 02 00402 LDA MQ1 SEARCH FOR AN UNSORTED BLOCK 0196 00064 100000 SKP 0197 00065 0 02 00000 SRT6 LDA 0 DECREMENT SEARCH POINTER 0198 00066 0 07 00401 SUB Q1 0199 00067 0 04 00000 STA 0 REPLACE POINTER 0200 00070 0 07 00376 SUB M36 TEST FOR COMPLETION OF SORT 0201 00071 100400 SPL SKIP IF NOT 0202 00072 0 01 00216 JMP DUMP SORT COMPLETE - PRINT THE TABLE 0203 00073 1 02 00000 LDA T136,1 FETCH BLOCK POINTER 0204 00074 100400 SPL SKIP IF UNSORTED 0205 00075 0 01 00065 JMP SRT6 SORTED - CONTINUE DOWNWARD SCAN 0206 00076 1 04 00000 STA T137,1 SET 0207 00077 140500 SSM MARK IT AS SORTED 0208 00100 1 04 00000 STA T136,1 AND DROP IT IN BUFFER 0209 00101 1 02 00000 LDA T236,1 0210 00102 1 04 00000 STA T237,1 0211 00103 0 12 00000 IRS 0 SET BIT INDICATOR 0212 00104 0 01 00017 JMP SRT7 GO SORT THE BLOCK 0213 * 0214 00105 0 02 00372 SWAP LDA PIC1 HERE TO INTERCHANGE SYMBOL TABLE ENTRIES 0215 00106 141206 AOA 0216 00107 0 04 00374 STA PIC3 0217 00110 0 02 00373 LDA PIC2 0218 00111 141206 AOA 0219 00112 0 04 00375 STA PIC4 0220 00113 -0 02 00372 LDA* PIC1 SWAP FIRST TWO WORDS 0221 00114 -0 13 00373 IMA* PIC2