' ========================================================================= ' ' File...... jm_serial_adjust.bs2 ' Purpose... ' Author.... Jon McPhalen ' Copyright (c) 2021 Jon McPhalen ' MIT License Applies ' E-mail.... ' Started... ' Updated... 09 SEP 2021 ' ' {$STAMP BS2} ' {$PBASIC 2.5} ' ' ========================================================================= ' -----[ Program Description ]--------------------------------------------- ' -----[ Revision History ]------------------------------------------------ ' -----[ I/O Definitions ]------------------------------------------------- TX PIN 15 ' -----[ Constants ]------------------------------------------------------- T2400 CON 396 ' baud rate constants T9600 CON 84 ' -----[ Variables ]------------------------------------------------------- ' -----[ Initialization ]-------------------------------------------------- Reset: ' -----[ Program Code ]---------------------------------------------------- Main: DEBUG "Setting display from 9600 to 2400", CR SEROUT TX, T9600, [$7F, $00] ' send baud command PAUSE 100 DEBUG "Change made.", CR ' write "donE" to display SEROUT TX, T2400, [$76] ' clear display SEROUT TX, T2400, [$7B, %01011110] ' d SEROUT TX, T2400, [$7C, %01011100] ' o SEROUT TX, T2400, [$7D, %01010100] ' n SEROUT TX, T2400, [$7E, %01111001] ' E STOP ' -----[ Subroutines ]----------------------------------------------------- ' ------------------------------------------------------------------------- ' -----[ User Data ]-------------------------------------------------------