AB16-CCT4

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

3489 06231 101000 X13D NOP 3490 06232 0 02 06745 LDA ='21 3491 06233 0 04 00003 STA 3 INITIALIZE STACK 3492 06234 0 12 00003 IRS 3 POP STACK 3493 06235 0 02 00003 LDA 3 GET STACK 3494 06236 0 05 06744 ERA ='22 SHOULD COMPARE 3495 06237 100040 SZE 3496 06240 000000 HLT IRS 3 (POP) FAILED 3497 06241 0 01 06245 JMP *+4 3498 * 3499 06242 052525 OCT 52525 3500 06243 125253 N1 OCT 125253 3501 06244 000000 BSZ 1 3502 * 3503 06245 0 10 06246 JST *+1 FORM REFERENCE ADDRESS 3504 06246 0 000000 DAC ** 3505 06247 0 02 06246 LDA *-1 3506 06250 0 03 06743 ANA ='37777 STRIP INDEX BIT 3507 06251 0 07 06742 SUB =3 3508 06252 0 04 00003 STA 3 INITIALIZE STACK TO N1 3509 06253 0 02 00005 LDA 5 POP A - ADDR IS N1 AND STACK GOES TO N1+1 3510 06254 0 06 06242 ADD N1-1 3511 06255 100040 SZE 3512 06256 000000 HLT LDA 5 (POP A) FAILED 3513 * 3514 06257 024003 POP STACK IS N1+2 3515 06260 0 02 06242 LDA N1-1 3516 06261 0 04 00004 STA 4 PUSH A, ADDR IS N1+1 AND STACK IS N1+1 3517 06262 0 02 06243 LDA N1 3518 06263 0 06 06244 ADD N1+1 3519 06264 100040 SZE 3520 06265 000000 HLT STA 4 (PUSH A) FAILED 3521 06266 140040 CRA 3522 06267 0 04 06244 STA N1+1 CLEAR WORKING LOCATION 3523 * 3524 * 3525 * 3526 * 3527 * TEST LDA* 3, LDA* 4, LDA* 5 3528 * 3529 06270 101000 NOP 3530 06271 000015 XFX PUT IN X MODE 3531 06272 0 10 06273 JST *+1 3532 06273 0 000000 DAC ** 3533 06274 0 02 06273 LDA *-1 3534 06275 0 03 06743 ANA ='37777 STRIP BITS 1 AND 2 3535 06276 0 06 06741 ADD =5 3536 06277 0 01 06303 JMP *+4 3537 06300 052525 X6AA OCT 52525 3538 06301 125253 OCT 125253