Subversion Repositories ssbcc

; Copyright 2013, Sinclair R.F., Inc.

; Test Bench for conditional compilation

.IFDEF I_SCL

.main

  .ifdef(O_UART_TX) N"I2C Bus included\r\n" .call(uart_tx) .endif

  :infinite_1 .jump(infinite_1)

.ELSE

.main

  N"No I2C Bus\r\n" .call(uart_tx)

  :infinite_2 .jump(infinite_2)

.ENDIF

.function uart_tx

  .ifndef(O_UART_TX)

    ; Throw away the message.

    :loop_1 .jumpc(loop_1) .return

  .else

    ; Transmit the message bytes as the UART becomes available.

    :loop_2 .inport(I_UART_TX_BUSY) .jumpc(loop_2) .outport(O_UART_TX) .jumpc(loop_2,nop) .return(drop)

  .endif