AB16-CCT4

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

2697 04671 000005 OCT 5 2698 04672 000002 OCT 2 2699 04673 000001 OCT 1 2700 04674 000000 SKNK OCT 0 2701 04675 125252 OCT 125252 2702 04676 052524 OCT 52524 2703 04677 125250 OCT 125250 2704 04700 052520 OCT 52520 2705 04701 125240 OCT 125240 2706 04702 052500 OCT 52500 2707 04703 125200 OCT 125200 2708 04704 052400 OCT 52400 2709 04705 125000 OCT 125000 2710 04706 052000 OCT 52000 2711 04707 124000 OCT 124000 2712 04710 050000 OCT 50000 2713 04711 120000 OCT 120000 2714 04712 040000 OCT 40000 2715 04713 100000 OCT 100000 2716 04714 000000 SKNL OCT 0 2717 * 2718 * 2719 * 2720 * MOVE WORDS ROUTINE 2721 * 2722 04715 0 000000 MOVE DAC ** ENTRY POINT 2723 04716 -0 02 04715 LDA* *-1 GET NO. OF WORDS TO BE MOVED 2724 04717 101000 NOP 2725 04720 140407 TCA 2726 04721 0 04 00461 STA TMP1 WORD COUNTER 2727 04722 0 12 04715 IRS MOVE 2728 04723 -0 02 04715 LDA* MOVE GET 'FROM' ADDRESS 2729 04724 0 04 00462 STA TMP1+1 2730 04725 0 12 04715 IRS MOVE 2731 04726 -0 02 04715 LDA* MOVE GET 'TO' ADDRESS 2732 04727 0 04 00463 STA TMP1+2 2733 04730 0 12 04715 IRS MOVE BUMP FOR RETURN 2734 04731 -0 02 00462 LDA* TMP1+1 GET THE WORD FROM 'FROM' ADDRESS 2735 04732 -0 04 00463 STA* TMP1+2 STORE IT AT THE 'TO' ADDRESS 2736 04733 0 12 00462 IRS TMP1+1 MODIFY POINTER 2737 04734 0 12 00463 IRS TMP1+2 MODIFY POINTER 2738 04735 0 12 00461 IRS TMP1 ARE WE DONE 2739 04736 0 01 04731 JMP *-5 NO, MOVE MORE WORDS 2740 04737 101000 NOP 2741 04740 -0 01 04715 JMP* MOVE RETURN 2742 * 2743 04741 0 004742 MMSZ DAC *+1 2744 04742 120264 BCI 8, 4 8121620242832 04743 120270 04744 130662