82 lines
3.3 KiB
C
82 lines
3.3 KiB
C
**************************************************************************
|
||
* *
|
||
* EQUATES FOR STRING ROUTINES *
|
||
* *
|
||
**************************************************************************
|
||
*
|
||
* TEXT ROUTINES
|
||
*
|
||
.GLOBAL PRINTF, LM_PRINTF
|
||
.GLOBAL STRINGF
|
||
.GLOBAL STRLNRM, STRCNRM, STRRNRM, STRCNRMO, STRLNRMO, STRRNRMO
|
||
.GLOBAL STRLNC, STRCNC, STRRNC, STRCNCO
|
||
.GLOBAL STRCNRMOS,STRLNRMS,STRCNRMS,STRRNRMS
|
||
.GLOBAL L_MESS, LM_SETUP, LM_FINIS, CLRTEXT, HEXTOASC
|
||
.GLOBAL RD5FONT
|
||
.GLOBAL RD7FONT
|
||
.GLOBAL RD15FONT
|
||
.GLOBAL RD20FONT
|
||
.GLOBAL STRING1, STRING2, STRING3
|
||
.GLOBAL STRNGLEN
|
||
.GLOBAL STRNGRAM
|
||
.GLOBAL STRINGF_RAM
|
||
.GLOBAL HTOHXASC
|
||
.GLOBAL STRING_SHADOW
|
||
|
||
*
|
||
*ASCII FONT MISCELLANEOUS EQUATES
|
||
F15SP EQU 7EH ;FONT 15 SP CHARACTER, FOR HS ENTRY
|
||
F15RUB EQU F15SP+1 ;FONT 15 RUB CHARACTER,FOR HS ENTRY
|
||
F15END EQU F15RUB+1 ;FONT 15 END CHARACTER,FOR HS ENTRY
|
||
F15RQUOT EQU F15END+1 ;FONT 15 RIGHT QUOTE
|
||
*
|
||
*STRINGER CONTROL CHARACTERS
|
||
NEW_SLEEP EQU 1 ;CHANGE CURRENT SLEEP TIME
|
||
NEW_PCOLOR EQU 2 ;CHANGE THE CURRENT PRINT COLOR
|
||
NEW_CONTROL EQU 3 ;CHANGE CURRENT DMA CONTROL WORD
|
||
NEW_FONT EQU 4 ;CHANGE CURRENT FONT
|
||
NEW_XY EQU 5 ;CHANGE CURRENT PRINT POSITION
|
||
NEW_SPACING EQU 6 ;CHANGE CURRENT SPACING
|
||
ADD_DYDX EQU 7 ;ADD THIS [Y,X] TO THE CURRENT POSITION
|
||
NEW_PALETTE EQU 8 ;USE NEW PALETTE, SPECIFIED BY I.D.
|
||
ASCII_TAB EQU 9
|
||
UNDERLINE_ON EQU 0AH ; TURN ON UNDERLINING
|
||
UNDERLINE_OFF EQU 0BH ; TURN OFF UNDERLINING
|
||
ASCII_CR EQU 0DH
|
||
**************************************************************************
|
||
* *
|
||
* PCOLOR - CHANGE TO A NEW PRINT COLOR *
|
||
* *
|
||
**************************************************************************
|
||
PCOLOR $MACRO COLOR
|
||
.BYTE NEW_PCOLOR
|
||
.WORD :COLOR:
|
||
$END
|
||
|
||
**************************************************************************
|
||
* *
|
||
* MESS_MAC *
|
||
* *
|
||
* THIS MACRO IS USED TO SETUP AN "L_MESS" MESSAGE. *
|
||
* THE MESSAGE FOLLOWS THE MACRO. *
|
||
* ZERO TERMINATES THE MESSAGE. *
|
||
* ANOTHER ZERO TERMINATES L_MESS. *
|
||
* *
|
||
* A "1" AFTER THE TERMINATING "0" WILL CAUSE *
|
||
* L_MESS TO PRINT OUT ANOTHER MESSAGE. *
|
||
* *
|
||
**************************************************************************
|
||
|
||
MESS_MAC $MACRO FONT,SPACING,X,Y,COLOR,ROUTINE,SLEEP
|
||
.LONG :FONT:
|
||
.LONG :SPACING:
|
||
.WORD :X:
|
||
.WORD :Y:
|
||
.LONG :COLOR:
|
||
.LONG :ROUTINE:
|
||
.LONG :SLEEP:
|
||
$END
|
||
|
||
SPACING20 EQU 2
|
||
SPACING07 EQU 1
|
||
|