*****************************************************************************************************
* 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