AB16-CCT4

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

3639 06422 0 01 06425 JMP *+3 3640 06423 000000 X605 BSZ 1 GETS N6 3641 06424 000000 BSZ 1 GETS N6+2 3642 06425 0 06 06737 ADD ='12 3643 06426 0 04 06423 STA X605 3644 06427 0 06 06753 ADD ='2 3645 06430 0 04 06424 STA X605+1 3646 06431 101000 NOP 3647 06432 -0 01 00005 JMP* 5 FIRST JMP* 5 - ADDR=X605, S=X605+1 3648 06433 000000 HLT 3649 06434 000000 HLT 3650 06435 101000 N6 NOP FIRST JMP* 5 COMES HERE 3651 06436 -0 01 00005 JMP* 5 SECOND JMP* 5 - ADDR=X605+1, S=X605+2 3652 06437 0 02 00005 LDA 5 SECOND JMP* 5 COMES HERE 3653 06440 0 05 06425 ERA X605+2 3654 06441 100040 SZE 3655 06442 000000 HLT STACK FAILED 3656 * 3657 * 3658 * 3659 * 3660 * 3661 * CHECK FOR CORRECT DATA WORD - PUSH OPERATION 3662 * 3663 06443 0 35 06733 LDX =-500 INITIALIZE COUNT 3664 06444 0 02 06732 LDA ='1777 CHANGE IT LATER WITH '5777 3665 06445 0 04 00003 STA 3 STORE AT STACK TOP 3666 06446 0 07 06755 SUB =1 3667 06447 0 04 06223 STA PNTR STORE AT POINTER 3668 06450 000013 EXA 3669 06451 0 10 06452 JST *+1 SET UP FOR 3670 06452 0 000000 DAC ** UNEXPECTED RUPT 3671 06453 0 02 06452 LDA *-1 3672 06454 0 06 06745 ADD ='21 3673 06455 0 04 00057 STA '57 3674 06456 000011 DXA 3675 06457 0 01 06460 JMP *+1 NORMAL MODE 3676 06460 0 02 00004 X13I LDA 4 3677 06461 -0 05 06223 ERA* PNTR 3678 06462 100040 SZE 3679 06463 000000 HLT ERROR - DATA DID NOT AGREE 3680 06464 0 12 00000 IRS 0 ARE WE DONE 3681 06465 100000 SKP NO, SKIP 3682 06466 0 01 06475 JMP X13J YES, JUMP OUT 3683 06467 0 02 06223 LDA PNTR MODIFY 3684 06470 0 07 06755 SUB =1 3685 06471 0 04 06223 STA PNTR 3686 06472 0 01 06460 JMP X13I GO AND TEST NEXT WORD 3687 * 3688 06473 0 000000 DAC ** UNEXPECTED RUPT