-- Use t5he run as unit test (yellow) button to run this test
-- and then check the result in the unit test panel

include 16f628 ;@no_debug
pragma target OSC HS               -- HS crystal or resonator
pragma target clock 20_000_000     -- oscillator frequency
--
pragma target WDT  disabled
pragma target LVP  disabled
pragma target MCLR external
--
enable_digital_io()                -- disable analog I/O (if any)


procedure test_bit(bit in t) is
end procedure

procedure test_byte(byte in t) is
end procedure

procedure test_pin_high(volatile bit out pin) is
   pin = high
end procedure

var byte bla = "o"
test_byte(bla) ;@assertEquals 111 test_test


PORTA = low
test_pin_high(pin_a5)
var bit level at PORTA : 5



-- can't access pin_a5 directly because PICShell can't find
-- address in ASM (because it's a pseudo-variable ?)

test_bit(porta)  ;@assertEquals 32 pin_high
level = low