INCLUDE equates.inc
INCLUDE macros.inc
  org RAM        
  jmp BEGIN
  szTitle rmb 'A','B',00h
BEGIN:
  ldx szTitle
  bra DELAY10

  ldab 01h        ; move 1 into register b
  stab [PORTB]    ; light b0
  ldaa [PORTB]    ; move contents of PORTB into register a
  ldab [PORTB]    ; move contents of PORTB into register b

  ldy 00h
  ldy SCSR
  staa iy,20h  

waitchar1:
  brclr ix,SCSR,20h,waitchar1 ; wait for RDRF
; branch to waitchar1 if ix+SCSR bit 5 is clear

  ldab RAM
  cmpa RAM
;  bne prend
  inx
  inx
  inx
  bra THIS
  org THIS
  ldab THIS
  bra END
  org END
prend:
  ldab END
  rts