~NEXT BUFFER CHARACTER LLE LBM GET THE CHARACTER CALL INCHL HL=>FOLLOWING BUFFER CHARACTER LDH SAVE HL LEL CALL PASCII PRINT THE CHARACTER JTZ PRTLOP 8 AC 0 LHA LBM GET SELECTRIC CHARACTER LAB SEE<( IF PERIOD OR COMMA ORA JTZ SPACE HL CASE ELSE SEE IF CASE MUST CHANGE XRM JTS NOSHFT PRINT CHARACTER IF NOT XRB ELSE SHIFT IN CORRECT DIRECTION LA 0200 LC 040 JFS DNSHFT XRA LC 0100 DNSHFT LMA UPDATE CURRENT CASE <iCALL PRTCH PRINT SHIFTING CHARACTER LAB MAKE SURE SIGN BIT SET IN CHARACTER OR 0200 NOSHFT LCA PRINT THE CHARACTER CALL PRTCH RET . PRTCTL LC 2 EXECUTE CONTROL CHARACTER CP 010-040 BACKSPACE IF BSP JTZ PRTCTC LC 020 INDEX<Y IF LINE-FEED CP 012-040 JTZ PRTCTC LC 4 TAB IF HORIZONTAL TAB CP 014-040 JTZ PRTCTC LC 010 RETURN IF CARRET CP 015-040 JTZ PRTCTC CP 0-040 SPACE IF SPACE SPACE LC 1 RFZ EXIT IF NOT VALID CONTROL CHARACTER PRTCTC C<09ALL PRTCH ELSE PRINT CONTROL CHAR RET . . PRINTS A CHARACTER . PRTCH LA SLCTRC ADDRESS SELECTRIC EX ADR PRTWT IN WAIT FOR READY STATUS SRC JFC PRTWT ELSE WAIT FOR PRINT READY LAC THEN WRITE THE CHARACTER EX WRITE XRA EXITyu4=|p FWԇ䩟ńސ ,m%OaTd)&E]Qgn^/7V< ~~~~