
                     
                     * DISASSEMBLY BY DYNAMITE OF 1.SPRINT.BIN
                     * BY FLD ON 15-10-2011 FOR VAGAS
                     
                     * EXTERNAL LABEL EQUATES
                     
               F50C  ACIABC  EQU    $F50C     ACIA B - CONTOL REGISTER
               F50D  ACIABD  EQU    $F50D     ACIA B - DATA REGISTER
                     
                     
  CCC0                       ORG    $CCC0
                     * SERIAL PORT INITILIZATION
                     
  CCC0 86   13       PINIT   LDA    #$13      LOAD BINARY 00010011 
  CCC2 B7   F50C             STA    ACIABC    LOAD CONTROL REGISTER MASTER RESET
  CCC5 86   11               LDA    #$11      LOAD BINARY 00010001
  CCC7 B7   F50C             STA    ACIABC    LOAD CONTROL REGISTER DIV=16
  CCCA 39                    RTS              RETURN
                     
  CCD8                       ORG    $CCD8
                     * TEST IF PRINTER IS BUSY
                     
  CCD8 34   04       PCHK    PSHS   B         SAVE B IN STACK
  CCDA F6   F50C             LDB    ACIABC    LOAD CONTROL REGISTER IN B
  CCDD 56                    RORB             ROTATE RIGHT
  CCDE 56                    RORB             ROTATE RIGHT
  CCDF 56                    RORB             ROTATE RIGHT TO TEST DATA CARRIER DETECT
  CCE0 35   04               PULS   B         RESTORE B
  CCE2 39                    RTS              RETURN
                     
  CCE4                       ORG    $CCE4
                     * OUTPUT THE CHAR IN A REGISTER
                     
  CCE4 34   04       POUT    PSHS   B         SAVE B IN STACK
  CCE6 F6   F50C     POUT1   LDB    ACIABC
  CCE9 57                    ASRB             ROTATE RIGHT
  CCEA 57                    ASRB             ROTATE RIGHT TO TEST REGISTER EMPTY
  CCEB 24   F9               BCC    POUT1     LOOP IF NOT
  CCED 35   04               PULS   B         RESTORE B
  CCEF B7   F50D             STA    ACIABD    STORE DATA FOR OUTPUT
  CCF2 39                    RTS              RETURN
                     
                             END

0 ERROR(S) DETECTED

SYMBOL TABLE:

ACIABC F50C   ACIABD F50D   PCHK   CCD8   PINIT  CCC0   POUT   CCE4   
POUT1  CCE6   




