\ APP-II definitions

: SerialSetup ( -- )
 $f pclath ! 
 ]asm 
 $f03 call
 pclath clrf
 asm[
;

\ 0x0f14 is serial transmit
: SerialTransmit ( char -- )
  $0f pclath !
  >w
  ]asm
  $f14 call
  pclath clrf
  asm[
;

: SerialReceive ( -- char )
 $0f pclath !
 ]asm 
  $F0e call
  pclath clrf
 asm[
  w>
;

: Delay ( cycles -- )
 $0f pclath !
 >w
 ]asm
  $F23 call
 asm[
;