BASIC-16A

* NAME: BASIC-16A DOC 70181826000 REV A PAGE 73

2733 * 2734 * JST UCHR 2735 * ......RETURN 2736 * 2737 * THE SOURCE BYTE POINTER, SBP, IS DECREMENTED 2738 * BY ONE. 2739 * 2740 * 2741 03065 0 000000 UCHR DAC ** 2742 03066 0 13 00037 IMA SBP DECREMENT THE SOURCE BYTE 2743 03067 0 07 00371 SUB C1 POINTER BY ONE 2744 03070 0 13 00037 IMA SBP AND REPLACE IT 2745 03071 -0 01 03065 JMP* UCHR RETURN 2746 * 2747 * 2748 * GCHX - EXCLUSIVE OR NEXT CHARACTER TO A 2749 * 2750 * 2751 * CALLING SEQUENCE: 2752 * 2753 * JST GCHX 2754 * ......RETURN 2755 * 2756 * THE NEXT CHARACTER IS XOR'ED TO A AND 2757 * THE RESULT IS LEFT IN A. SBP IS INCREMENTED 2758 * AND THE CHARACTER IS LEFT IN CHAR. 2759 * 2760 * 2761 03072 0 000000 GCHX DAC ** 2762 03073 0 04 00077 STA TMP2 SAVE A WHILE GETTING CHARACTER 2763 03074 0 10 03047 JST GCHR GET THE NEXT SOURCE CHARACTER 2764 03075 0 05 00077 ERA TMP2 XOR PREVIOUS 2765 03076 -0 01 03072 JMP* GCHX RETURN 2766 * 2767 * 2768 * GCPK - PACK NEXT TWO SOURCE CHARACTERS 2769 * 2770 * 2771 * CALLING SEQUENCE: 2772 * 2773 * JST GCPK 2774 * ......RETURN 2775 * 2776 * THE NEXT TWO CHARACTERS ARE FETCHED AND 2777 * LEFT IN A (FIRST CHARACTER IN A(1-8), SECOND 2778 * CHARACTER IN A(9-16)). 2779 * 2780 * 2781 03077 0 000000 GCPK DAC ** 2782 03100 0 10 03047 JST GCHR GET THE FIRST CHARACTER