Previous Page Single Page Next Page  

* NAME: AB16-CCT4 DOC 70180658000 REV H PAGE 72

3389 06107 1 02 06107 X13B LDA *,1 3390 06110 0 04 00003 STA 3 STORE AT STACK TOP 3391 06111 140040 CRA 3392 06112 0 02 00003 LDA 3 GET WORD FROM 3 3393 06113 1 05 06107 ERA X13B,1 3394 06114 100040 SZE 3395 06115 000000 HLT ERROR - DATA CHANGED 3396 06116 0 12 00000 IRS 0 MODIFY ADDRESS, ARE WE DONE 3397 06117 0 01 06107 JMP X13B NO, TEST NEXT WORD 3398 * 3399 06120 0 02 06754 LDA =-1 3400 06121 0 04 00003 STA 3 TRY IRS 3 3401 06122 0 12 00003 IRS 3 3402 06123 000000 HLT ERROR - DID NOT SKIP 3403 06124 0 02 00455 LDA CNTY 3404 06125 0 04 00003 STA 3 LOOP COUNT 3405 06126 0 35 06751 LDX =0 3406 06127 0 12 00000 IRS 0 INCREMENT BOTH 0 AND 3407 06130 0 12 00003 IRS 3 3 AND CHECK IF THEY TRACK 3408 06131 0 01 06127 JMP *-2 3409 06132 0 02 00455 LDA CNTY 3410 06133 140407 TCA 3411 06134 0 05 00000 ERA 0 MUST COMPARE 3412 06135 100040 SZE 3413 06136 000000 HLT ERROR 3414 * 3415 * 3416 * CHECK S MODE 3417 * 3418 06137 000017 XFS SET S MODE 3419 06140 000043 INK INPUT THE KEYS 3420 06141 0 03 06225 ANA BIT4 ='10000 3421 06142 101040 SNZ 3422 06143 000000 HLT ERROR - BIT 4 NOT SET 3423 06144 000015 XFX SET X MODE 3424 06145 000043 INK 3425 06146 0 03 06225 ANA BIT4 3426 06147 100040 SZE 3427 06150 000000 HLT ERROR - BIT 4 DID NOT GET RESET 3428 06151 0 02 06225 LDA BIT4 3429 06152 171020 OTK SET BIT 4 3430 06153 140040 CRA 3431 06154 000043 INK 3432 06155 0 03 06225 ANA BIT4 AND WITH BIT4 3433 06156 101040 SNZ 3434 06157 000000 HLT ERROR - BIT4 DID NOT GET SET 3435 06160 140040 CRA 3436 06161 171020 OTK RESET BIT4 3437 06162 000043 INK 3438 06163 0 03 06225 ANA BIT4
  Previous Page Single Page Next Page