SYMLIST

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

0222 00115 -0 04 00372 STA* PIC1 0223 00116 -0 02 00374 LDA* PIC3 SWAP NEXT TWO WORDS 0224 00117 -0 13 00375 IMA* PIC4 0225 00120 -0 04 00374 STA* PIC3 0226 00121 0 12 00374 IRS PIC3 BUMP POINTER 0227 00122 0 12 00375 IRS PIC4 0228 00123 -0 02 00374 LDA* PIC3 SWAP LAST TWO WORDS 0229 00124 -0 13 00375 IMA* PIC4 0230 00125 -0 04 00374 STA* PIC3 0231 00126 0 01 00034 JMP SRT4 CONTINUE SCAN 0232 00127 0 000000 GBIT DAC ** BIT FETCHING ROUTINE 0233 00130 0 13 00000 IMA 0 X & ENTRY POINT. A & BIT POINTER 0234 00131 0 04 00374 STA PIC3 0235 00132 1 02 00000 LDA 0,1 SEE IF ENTRY IS EXTERNAL 0236 00133 0414 75 LGL 3 0237 00134 100400 SPL NO 0238 00135 140040 CRA YES - SET EXTF TO ZERO 0239 00136 0 04 00371 STA EXTF 0240 00137 140040 CRA CLEAR WORD COUNTER 0241 00140 0 04 00375 STA PIC4 0242 00141 0 02 00374 LDA PIC3 FETCH BIT POINTER 0243 00142 0 06 00421 ADD =36 MAKE IT POSITIVE 0244 00143 0 07 00420 SUB =12 12 BITS/WORD 0245 00144 0 12 00375 IRS PIC4 INCREMENT WORD COUNT 0246 00145 101400 SMI SKIP IF POINTING TO RIGHT WORD 0247 00146 0 01 00143 JMP *-3 CONTINUE REDUCTION 0248 00147 0 05 00403 ERA ALR FORM BIT POSITIONING SHIFT INSTRUCTION 0249 00150 0 04 00173 STA ALRX PLACE IT FOR EXECUTION 0250 00151 0 02 00375 LDA PIC4 CALCULATE ADDRESS OF 0251 00152 0 06 00000 ADD 0 WORD CONTAINING PROPER BIT 0252 00153 0 07 00417 SUB =1 0253 00154 0 04 00000 STA 0 SAVE IT 0254 00155 0 02 00375 LDA PIC4 TEST FOR WORD 3 OF ENTRY 0255 00156 0 07 00416 SUB =3 0256 00157 101040 SNZ NO 0257 00160 0 01 00177 JMP GXTR YES - SEE IF IT IS AN EXTERNAL ENTRY 0258 00161 1 02 00000 GFBT LDA 0,1 FETCH THE WORD CONTAINING THE BIT 0259 00162 0 04 00375 STA PIC4 SAVE IT 0260 00163 0400 72 LRL 6 LOOK AT FIRST CHARACTER 0261 00164 0 03 00415 ANA ='77 0262 00165 100040 SZE SKIP IF IT IS A BLANK 0263 00166 0 01 00172 JMP *+4 NO - OK 0264 00167 0410 64 LLL 12 YES - PUT SECOND CHAR. IN POSITION OF FIRST 0265 00170 0 03 00414 ANA ='7700 ELIMINATE OTHER BITS 0266 00171 0 04 00375 STA PIC4 SAVE RESULT 0267 00172 0 02 00400 LDA BIT A(2) & 1 0268 00173 0 00 00000 ALRX *** ** POSITION MASK 0269 00174 0 03 00375 ANA PIC4 ISOLATE DESIRED BIT 0270 00175 0 35 00374 GXIT LDX PIC3 RESTORE INDEX 0271 00176 -0 01 00127 JMP* GBIT EXIT