
                     
                     * DISASSEMBLY BY DYNAMITE OF 2.PPRINT.BIN
                     * BY FLD ON 15-10-2011 FOR VEGAS
                     
                     * EXTERNAL LABEL EQUATES
                     
                     
               F6D2  PIABBD  EQU    $F6D2     PIA B - PORT B - DATA REGISTER
               F6D3  PIABBC  EQU    $F6D3     PIA B - PORT B - CONTROL REGISTER
                     
                     
  CCC0                       ORG    $CCC0
                     ** PARALLEL PORT INITIALIZATION
                     *
                     * CB1 IS ACK
                     * CB2 IS STROBE
                     * B0-B7 AR DATAS
                     
  CCC0 86   3A       PINIT   LDA    #$3A      LOAD BINARY 00111010
  CCC2 B7   F6D3             STA    PIABBC    LOAD CONTOL REGISTER
  CCC5 86   FF               LDA    #$FF
  CCC7 B7   F6D2             STA    PIABBD    SET PIA AS OUTPUT
  CCCA 86   3E               LDA    #$3E      LOAD BINARY 00111110
  CCCC B7   F6D3             STA    PIABBC    LOAD CONTROL REGISTER
  CCCF 39                    RTS              RETURN
                     
                     
  CCD0 7D   F6D2     PTERM   TST    PIABBD    TEST DATA REGISTER
  CCD3 73   CCE3             COM    MEMPRT
  CCD6 39                    RTS
                     
  CCD8                       ORG    $CCD8
                     ** TEST IF PRINTER IS BUSY
                     
  CCD8 7D   CCE3     PCHK    TST    MEMPRT    TEST MEMORY
  CCDB 2B   05               BMI    PCHK1     NEG ,THEN OK
  CCDD 7D   F6D3             TST    PIABBC    TEST CONTOL REGISTER
  CCE0 2B   EE               BMI    PTERM     IF OK, SET MEMORY NEGATIVE
  CCE2 39            PCHK1   RTS              RETURN
                     
  CCE3 FF            MEMPRT  FCB    $FF       PRINTING MEMORY NEG=OK
                     
                     * OUTPUT OF THE CHAR IN A REGISTER
  CCE4 8D   F2       POUT    BSR    PCHK      TEST IF BUSY
  CCE6 2A   FC               BPL    POUT      IF BUSY, LOOP
  CCE8 7F   CCE3             CLR    MEMPRT    SET PRINTING MEMORY BUSY
  CCEB B7   F6D2             STA    PIABBD    STORE DATA FOR OUTPUT
  CCEE 86   36               LDA    #$36      LOAD BINARY 00110110
  CCF0 8D   02               BSR    LCCF4     SET A STROBE
  CCF2 86   3E               LDA    #$3E      RESET THE STROBE
  CCF4 B7   F6D3     LCCF4   STA    PIABBC
  CCF7 39                    RTS              RETURN
                     
                             END

0 ERROR(S) DETECTED

SYMBOL TABLE:

LCCF4  CCF4   MEMPRT CCE3   PCHK   CCD8   PCHK1  CCE2   PIABBC F6D3   
PIABBD F6D2   PINIT  CCC0   POUT   CCE4   PTERM  CCD0   




