* PRINT.SYS ROUTINE FOR SK*DOS
* THIS ROUTINE IS RELATIVELY USELESS, SINCE P.CMD
* ROUTINE ALREADY INCLUDES THIS CODE. BUT IT IS
* INCLUDED FOR THOSE PROGRAMS WHICH INSIST ON
* LOADING A PRINT.SYS FILE
* COPYRIGHT (C) 1984 BY PETER A. STARK

* SYSTEM EQUATES

SPORT   EQU    $E000     SERIAL PORT ADDRESS

* SERIAL PRINTER ROUTINES

* INITIALIZE ACIA
        ORG    $CCC0
NONAME  BRA    NONAM1    GETS OVERLAID BY FOLLOWING CODE
        FCB    1         VERSION 1
NONAM1  BRA    NONAME

        ORG    $CCC0
PRINIT  LDA    #$13
        STA    SPORT     INITIALIZE ACIA
        LDA    #$15      8 DATA BITS, 1 STOP, 16X CLOCK
        STA    SPORT
        RTS

* CHECK PRINTER STATUS
        ORG    $CCD8
PRCHEK  PSHS   A
        LDA    SPORT     ACIA STATUS REGISTER
        ASRA
        ASRA             MOVE TDRE BIT INTO CARRY
        PULS   A,PC      RESTORE A AND RETURN

* OUTPUT CHARACTER FROM A TO PRINTER
        ORG    $CCE4
PROUT   BSR    PRCHEK    CHECK IF READY
        BCC    PROUT     REPEAT IF NOT READY
        STA    SPORT+1   THEN OUTPUT CHARACTER
        RTS              AND RETURN

        END