BASIC-16A

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

2683 * CHARACTER HANDLING ROUTINES 2684 * 2685 * 2686 * GCHR - GET NEXT SOURCE CHARACTER 2687 * 2688 * 2689 * CALLING SEQUENCE: 2690 * 2691 * JST GCHR 2692 * ......RETURN 2693 * 2694 * THE NEXT SOURCE CHARACTER IS LEFT IN 2695 * THE A REGISTER AND CHAR, AND THE SOURCE 2696 * BYTE POINTER, SBP, IS INCREMENTED. 2697 * 2698 * 2699 03047 0 000000 GCHR DAC ** 2700 03050 0 10 03054 JST XCHR GET CHARACTER POINTED TO BY SBP 2701 03051 0 04 00074 STA CHAR LEAVE IT IN CHAR 2702 03052 0 12 00037 IRS SBP BUMP THE 2703 03053 -0 01 03047 JMP* GCHR AND RETURN 2704 * 2705 * 2706 * XCHR - EXAMINE NEXT SOURCE CHARACTER 2707 * 2708 * 2709 * CALLING SEQUENCE: 2710 * 2711 * JST XCHR 2712 * ......RETURN 2713 * 2714 * THE CHARACTER POINTED TO BY SBP IS RETURNED 2715 * IN THE A REGISTER, SBP AND CHAR ARE NOT ALTERED. 2716 * 2717 * 2718 03054 0 000000 XCHR DAC ** 2719 03055 0 02 00037 LDA SBP GET THE BYTE POINTER 2720 03056 0404 77 LGR 1 /2 TO GET WORD NO., BYTE INDICATOR IN C 2721 03057 0 04 00076 STA TMP1 X 2722 03060 -0 02 00076 LDA* TMP1 PICK UP WORD CONTAINING BYTE WE WANT 2723 03061 101001 SSC SKIP IF LOW ORDER BYTE IS REQUESTED 2724 03062 141340 ICA HIGH ORDER BYTE..POSITION IT 2725 03063 141050 CAL ISOLATE THE BYTE 2726 03064 -0 01 03054 JMP* XCHR RETURN 2727 * 2728 * 2729 * UCHR - BACK UP ONE CHARACTER 2730 * 2731 * 2732 * CALLING SEQUENCE: