***************************************************************************************************** * Studienarbeit Christopher Odenbach * * * * WS98/99 * * * * mit Dank an Willi * ****************************************************************************************************** ****************************************************************************************************** * MOTOROLA MC68HC705X32 * * * * Print functions for serial communication * * * * * * * * * * * ****************************************************************************************************** PRINT_CHAR EQU * WAIT_FOR_SCI NOP BRCLR 7,SCSR,WAIT_FOR_SCI ;wait for TDRE to become set STA SCDR ;accu contains character RTS PRINT_CR EQU * LDA #$0D ;add CR BSR PRINT_CHAR LDA #$0A ;add LF BSR PRINT_CHAR RTS PRINT_RESET EQU * CLRX PRINT_RES_LOOP LDA TXT_RESET,X BEQ EO_PRINT_RESET BSR PRINT_CHAR INCX BRA PRINT_RES_LOOP EO_PRINT_RESET BSR PRINT_CR RTS PRINT_FROM EQU * CLRX PRINT_FROM_LOOP LDA TXT_FROM,X BEQ EO_PRINT_FROM BSR PRINT_CHAR INCX BRA PRINT_FROM_LOOP EO_PRINT_FROM RTS PRINT_TO EQU * CLRX PRINT_TO_LOOP LDA TXT_TO,X BEQ EO_PRINT_TO BSR PRINT_CHAR INCX BRA PRINT_TO_LOOP EO_PRINT_TO RTS PRINT_DATA EQU * CLRX PRINT_DATA_LOOP LDA TXT_DATA,X BEQ EO_PRINT_DATA BSR PRINT_CHAR INCX BRA PRINT_DATA_LOOP EO_PRINT_DATA RTS PRINT_ROB_INFO EQU * CLRX PRINT_ROB_LOOP LDA TXT_ROB,X BEQ EO_PRINT_ROB BSR PRINT_CHAR INCX BRA PRINT_ROB_LOOP EO_PRINT_ROB LDA CMD_LINE+1 BSR PRINT_CHAR BSR PRINT_CR BSR PRINT_CR RTS PRINT_AVAIL EQU * CLRX PRINT_AVA_LOOP LDA TXT_AVAIL,X BEQ EO_PRINT_AVAIL BSR PRINT_CHAR INCX BRA PRINT_AVA_LOOP EO_PRINT_AVAIL RTS PRINT_COM_MODE EQU * CLRX PRINT_COM_LOOP LDA TXT_COM,X BEQ EO_PRINT_COM BSR PRINT_CHAR INCX BRA PRINT_COM_LOOP EO_PRINT_COM RTS PRINT_HELP_TEXT EQU * CLRX PRINT_HELP_LOOP LDA TXT_HELP,X BEQ EO_PRINT_HELP BSR PRINT_CHAR INCX BRA PRINT_HELP_LOOP EO_PRINT_HELP BSR PRINT_CR BSR PRINT_CR RTS ****************************************************************************************************** * * * Texts * * * ****************************************************************************************************** TXT_RESET FCB $0D ;"CAN-IR-Master, HNI, C. Odenbach 1999" FCB $0A FCB $0D FCB $0A FCB $43 FCB $41 FCB $4E FCB $2D FCB $49 FCB $52 FCB $2D FCB $4D FCB $61 FCB $73 FCB $74 FCB $65 FCB $72 FCB $2C FCB $20 FCB $48 FCB $4E FCB $49 FCB $2C FCB $20 FCB $43 FCB $2E FCB $20 FCB $4F FCB $64 FCB $65 FCB $6E FCB $62 FCB $61 FCB $63 FCB $68 FCB $20 FCB $31 FCB $39 FCB $39 FCB $39 FCB $00 TXT_FROM FCB $46 ;"FROM: " FCB $52 FCB $4F FCB $4D FCB $3A FCB $20 FCB $00 TXT_TO FCB $54 ;"TO: " FCB $4F FCB $3A FCB $20 FCB $20 FCB $20 FCB $00 TXT_DATA FCB $44 ;"DATA: " FCB $41 FCB $54 FCB $41 FCB $3A FCB $20 FCB $00 TXT_ROB FCB $53 ;"Serial link to robot " FCB $65 FCB $72 FCB $69 FCB $61 FCB $6C FCB $20 FCB $6C FCB $69 FCB $6E FCB $6B FCB $20 FCB $74 FCB $6F FCB $20 FCB $72 FCB $6F FCB $62 FCB $6F FCB $74 FCB $20 FCB $00 TXT_AVAIL FCB $41 ;"Available: " FCB $76 FCB $61 FCB $69 FCB $6C FCB $61 FCB $62 FCB $6C FCB $65 FCB $3A FCB $20 FCB $00 TXT_COM FCB $0D ;"Command: " FCB $0A FCB $43 FCB $6F FCB $6D FCB $6D FCB $61 FCB $6E FCB $64 FCB $3A FCB $20 FCB $00 TXT_HELP FCB $41 ;"Available commands: L (list) Rx (robot x) Sftd (send from to data)" FCB $76 FCB $61 FCB $69 FCB $6C FCB $61 FCB $62 FCB $6C FCB $65 FCB $20 FCB $63 FCB $6F FCB $6D FCB $6D FCB $61 FCB $6E FCB $64 FCB $73 FCB $3A FCB $20 FCB $4C FCB $20 FCB $28 FCB $6C FCB $69 FCB $73 FCB $74 FCB $29 FCB $20 FCB $20 FCB $52 FCB $78 FCB $20 FCB $28 FCB $72 FCB $6F FCB $62 FCB $6F FCB $74 FCB $20 FCB $78 FCB $29 FCB $20 FCB $20 FCB $53 FCB $66 FCB $74 FCB $64 FCB $20 FCB $28 FCB $73 FCB $65 FCB $6E FCB $64 FCB $20 FCB $66 FCB $72 FCB $6F FCB $6D FCB $20 FCB $74 FCB $6F FCB $20 FCB $64 FCB $61 FCB $74 FCB $61 FCB $29 FCB $00