INDEX = 0
BEEPBAR:
if INDEX <= OBJECT then
BARGRAPH(INDEX) = 255
else
BARGRAPH(INDEX) = "-"
endif
INDEX = INDEX + 1
if INDEX < 16 then BEEPBAR
INDEX = 0
BEEPDISP:
lcdwrite, line2 = [BARGRAPH \ 16]
BEEPBUTT:
pause 200
if PODBUTT = 1 then BEEPPLUS
if LOADERBUTT = 1 then BEEPMINUS
if TANKBUTT = 1 then BEEPEXIT
goto BEEPBUTT
BEEPPLUS:
OBJECT = OBJECT + 1
if OBJECT > 15 then
OBJECT = 0
endif
goto BEEPBAR
BEEPMINUS:
OBJECT = OBJECT – 1
if OBJECT > 15 then
OBJECT = 15
endif
goto BEEPBAR
BEEPEXIT:
KONFIG.nib1 = OBJECT
END OF CODE

COMMENTS
; section - subroutine initialization
; write “Pulse Length:” to the first line of the LCD
; copy high nibble of KONFIG variable into OBJECT byte variable.
; The high nibble (bits 4-7) of the KONFIG byte is where the pulse
; length is stored after it is read from the on-board eeprom
; OBJECT is a word sized temporary variable
; copy 0 into INDEX byte variable

; section - load characters into BARGRAPH 16-byte array
; when INDEX <= OBJECT copy 255 into byte numbered INDEX
; of the BARGRAPH array. Assigns “blocks” to pulse count.
; when INDEX > OBJECT copy “-“ into byte numbered INDEX
; of the BARGRAPH array. Assigns “-“ to digits > pulse count
; end of if…then
; increment INDEX
; when INDEX = 16 drop through to next section, otherwise
; loop to BEEPBAR
; copy 0 to INDEX

; section - display bar graph on line2
; write all 16 bytes of BARGRAPH array to line2 of LCD
; section - button loop
; debounce pause for buttons, 200ms
; when POD button pressed branch to BEEPPLUS
; when LOADER button pressed branch to BEEPMINUS
; when TANK button pressed branch to BEEPEXIT
; loop

; section - increment OBJECT byte variable
; increment OBJECT
; when OBJECT > 15
; wrap around to 0
; end of if…then

; section - decrement OBJECT byte variable
; decrement OBJECT
; when OBJECT > 15
; wrap around to 15
; end of if…then

; section - store OBJECT in high nibble of KONFIG byte
; copy OBJECT to high nibble of KONFIG byte