' ' ' ' ' ' ' ' ' ' ' ' ' ' PicBasic Pro version of the Quick Start program in the PicStic4 ' data sheet. ' 01 December 2000 ' Written in PicBasic Pro Version 2.30 ' ' ' ' ' ' ' ' ' ' ' ' ' ' Note: Must define processor type on command line as -pps4 B0 var Byte ' designates variable size B19 var Byte ' designates variable size B20 var Byte ' designates variable size B21 var Byte ' designates variable size start: trisb = %00000000 ' set port b pin as outputs Pause 100 B19 = $03 : B20 = 0 : B21 = 0 ' set I/O configuration to just DIO call PASS ' go do it B19 = $05 : B20 = 0 : B21 = 0 ' set DIO0-7 as all outputs call PASS ' go do it Loop: for B0 = $0 to $FF ' select all possible combinations of bits portb = B0 ' sets outputs of port b high B19 = $07 : B20 = B0 : B21 = 0 ' set DIO0-7 out puts high call PASS ' go do it next B0 ' go to next combination goto Loop ' Done with all combination. Infinite loop End