; EXPERIMENTAL 
; POLLING THE B BUSS FOR INPUTS
; Buss VARIABLE AT $08 HOLDS STATUS FROM PORT B
; ISR WILL UPDATE THE Buss VARIABLE.

ifdef __SASM
  DEVICE SX28L, OSCHS3, STACKX, OPTIONX
  IRC_CAL IRC_FAST
  FREQ 50_000_000
else
  DEVICE SX28AC, OSCHS, OPTIONX
endif
DEVICE TURBO
RESET Start

TRIS	equ $0f
PLP	equ $0e
WKEN	equ $0b
WKPND_W	equ $09

org		$08
Buss		ds 1 
LocalTemp0	ds 1


;---------------------------------------------------
;	ISR TO UPDATE Buss VARIABLE WITH INPUT STATUS
;---------------------------------------------------
org	$000
  mov 	LocalTemp0, m 
  mode	WKPND_W
  clr	w
  mov 	Buss, rb
  mov	!rb, #%00000000
  mov	m, LocalTemp0
reti


;---------------------------------------------------
;	MAIN PROGRAM
;---------------------------------------------------
org	$100
Start
  ; Do code to set up input port and set default status
  clr	Buss
  mode	PLP
  mov	!rb, #%00000000
  mode	WKPND_W
  clr	w
  mov	!rb, w
  mode	WKEN
  mov	!rb, #%00000000
  ; Do Code for running 7-Seg Leds

:Idle ;just idle until I write the display driver code
  nop
  jmp :Idle 
 