mirror of
https://github.com/irmen/prog8.git
synced 2024-12-26 14:29:35 +00:00
changed the syntax of kernel/asm subroutines
This commit is contained in:
Irmen de Jong
parent
b96bb23a54
commit
8f26fdef61
@ -71,6 +71,7 @@ statement :
|
||||
| if_stmt
|
||||
| branch_stmt
|
||||
| subroutine
|
||||
| asmsubroutine
|
||||
| inlineasm
|
||||
| returnstmt
|
||||
| forloop
|
||||
@ -171,6 +172,8 @@ scoped_identifier : NAME ('.' NAME)+ ;
|
||||
|
||||
register : 'A' | 'X' | 'Y' | 'AX' | 'AY' | 'XY' ;
|
||||
|
||||
statusregister : 'Pc' | 'Pz' | 'Pn' | 'Pv' ;
|
||||
|
||||
integerliteral : intpart=(DEC_INTEGER | HEX_INTEGER | BIN_INTEGER) wordsuffix? ;
|
||||
|
||||
wordsuffix : '.w' ;
|
||||
@ -198,7 +201,7 @@ inlineasm : '%asm' INLINEASMBLOCK;
|
||||
|
||||
|
||||
subroutine :
|
||||
'sub' identifier '(' sub_params? ')' sub_return_part? (sub_address | (statement_block EOL))
|
||||
'sub' identifier '(' sub_params? ')' sub_return_part? (statement_block EOL)
|
||||
;
|
||||
|
||||
sub_return_part : '->' sub_returns ;
|
||||
@ -209,13 +212,29 @@ statement_block :
|
||||
'}'
|
||||
;
|
||||
|
||||
sub_address : '=' integerliteral ;
|
||||
|
||||
sub_params : sub_param (',' sub_param)* ;
|
||||
sub_params : sub_param (',' sub_param)* ;
|
||||
|
||||
sub_param: identifier ':' datatype;
|
||||
sub_param : identifier ':' datatype;
|
||||
|
||||
sub_returns : datatype (',' datatype)* ;
|
||||
sub_returns : datatype (',' datatype)* ;
|
||||
|
||||
asmsubroutine :
|
||||
'asmsub' identifier '(' asmsub_params? ')'
|
||||
'->' 'clobbers' '(' clobber? ')' '->' '(' asmsub_returns? ')' (asmsub_address | statement_block )
|
||||
;
|
||||
|
||||
asmsub_address : '=' address=integerliteral ;
|
||||
|
||||
asmsub_params : asmsub_param (',' asmsub_param)* ;
|
||||
|
||||
asmsub_param : identifier ':' datatype '@' (register | statusregister);
|
||||
|
||||
clobber : register (',' register)* ;
|
||||
|
||||
asmsub_returns : asmsub_return (',' asmsub_return)* ;
|
||||
|
||||
asmsub_return : datatype '@' (register | statusregister) ;
|
||||
|
||||
|
||||
if_stmt : 'if' expression EOL? (statement | statement_block) EOL? else_part? EOL ; // statement is constrained later
|
||||
|
||||
@ -1,32 +1,16 @@
|
||||
%option enable_floats
|
||||
|
||||
~ main {
|
||||
|
||||
; sub VECTOR (dir: Pc, userptr: XY) -> (X, A?, Y?) = $FF8D ; read/set I/O vector table
|
||||
|
||||
|
||||
asmsub VECTOR (dir: byte @ A, userptr: word @ XY) -> clobbers(A,X,Y) -> (byte @ X) = $ff8d
|
||||
; asmsub VECTOR (dir: byte @ Pc, userptr: word @ XY) -> byte @ X, clobbers @ A, clobbers @ Y = $ff8d
|
||||
|
||||
|
||||
|
||||
sub start() {
|
||||
byte bvar
|
||||
word wvar
|
||||
float fvar
|
||||
str svar = "svar"
|
||||
str_p spvar = "spvar"
|
||||
str_s ssvar = "ssvar"
|
||||
str_ps spsvar = "spsvar"
|
||||
byte[2,3] matrixvar
|
||||
byte[5] barrayvar
|
||||
word[5] warrayvar
|
||||
float eol = '\n'
|
||||
|
||||
|
||||
_vm_write_char('\n')
|
||||
fvar=test(15, 222.22)
|
||||
_vm_write_num(fvar)
|
||||
_vm_write_char('\n')
|
||||
fvar=test(17, 333.33)
|
||||
_vm_write_num(fvar)
|
||||
_vm_write_char('\n')
|
||||
return
|
||||
|
||||
sub test(arg: byte, f: float) -> float {
|
||||
return f/arg
|
||||
}
|
||||
|
||||
}
|
||||
}
|
||||
|
||||
@ -38,6 +38,13 @@ enum class Register {
|
||||
XY
|
||||
}
|
||||
|
||||
enum class Statusflag {
|
||||
Pc,
|
||||
Pz,
|
||||
Pv,
|
||||
Pn
|
||||
}
|
||||
|
||||
enum class BranchCondition {
|
||||
CS,
|
||||
CC,
|
||||
@ -205,6 +212,10 @@ interface IAstProcessor {
|
||||
returnStmt.values = returnStmt.values.map { it.process(this) }
|
||||
return returnStmt
|
||||
}
|
||||
|
||||
fun process(asmSubroutine: AsmSubroutine): IStatement {
|
||||
return asmSubroutine
|
||||
}
|
||||
}
|
||||
|
||||
|
||||
@ -1237,7 +1248,6 @@ class InlineAssembly(val assembly: String, override val position: Position) : IS
|
||||
class Subroutine(override val name: String,
|
||||
val parameters: List<SubroutineParameter>,
|
||||
val returnvalues: List<DataType>,
|
||||
val address: Int?,
|
||||
override var statements: MutableList<IStatement>,
|
||||
override val position: Position) : IStatement, INameScope {
|
||||
override lateinit var parent: Node
|
||||
@ -1253,14 +1263,14 @@ class Subroutine(override val name: String,
|
||||
override fun process(processor: IAstProcessor) = processor.process(this)
|
||||
|
||||
override fun toString(): String {
|
||||
return "Subroutine(name=$name, address=$address, parameters=$parameters, returnvalues=$returnvalues, ${statements.size} statements)"
|
||||
return "Subroutine(name=$name, parameters=$parameters, returnvalues=$returnvalues, ${statements.size} statements)"
|
||||
}
|
||||
|
||||
override fun registerUsedName(name: String) = throw NotImplementedError("not implemented on sub-scopes")
|
||||
}
|
||||
|
||||
|
||||
data class SubroutineParameter(val name: String,
|
||||
open class SubroutineParameter(val name: String,
|
||||
val type: DataType,
|
||||
override val position: Position) : Node {
|
||||
override lateinit var parent: Node
|
||||
@ -1271,6 +1281,44 @@ data class SubroutineParameter(val name: String,
|
||||
}
|
||||
|
||||
|
||||
// @todo merge this with normal Subroutine?
|
||||
class AsmSubroutine(val name: String,
|
||||
val address: Int?,
|
||||
val params: List<AsmSubroutineParameter>,
|
||||
val returns: List<AsmSubroutineReturn>,
|
||||
val clobbers: Set<Register>,
|
||||
val statements: MutableList<IStatement>,
|
||||
override val position: Position) : IStatement {
|
||||
override lateinit var parent: Node
|
||||
|
||||
override fun linkParents(parent: Node) {
|
||||
this.parent = parent
|
||||
params.forEach { it.linkParents(this) }
|
||||
returns.forEach { it.linkParents(this) }
|
||||
statements.forEach { it.linkParents(this) }
|
||||
}
|
||||
|
||||
override fun process(processor: IAstProcessor) = processor.process(this)
|
||||
}
|
||||
|
||||
class AsmSubroutineParameter(name: String,
|
||||
type: DataType,
|
||||
val register: Register?,
|
||||
val statusflag: Statusflag?,
|
||||
position: Position) : SubroutineParameter(name, type, position)
|
||||
|
||||
|
||||
class AsmSubroutineReturn(val type: DataType,
|
||||
val register: Register?,
|
||||
val statusflag: Statusflag?,
|
||||
override val position: Position): Node {
|
||||
override lateinit var parent: Node
|
||||
override fun linkParents(parent: Node) {
|
||||
this.parent = parent
|
||||
}
|
||||
}
|
||||
|
||||
|
||||
class IfStatement(var condition: IExpression,
|
||||
var statements: List<IStatement>,
|
||||
var elsepart: List<IStatement>,
|
||||
@ -1490,10 +1538,39 @@ private fun prog8Parser.StatementContext.toAst() : IStatement {
|
||||
val continuestmt = continuestmt()?.toAst()
|
||||
if(continuestmt!=null) return continuestmt
|
||||
|
||||
val asmsubstmt = asmsubroutine()?.toAst()
|
||||
if(asmsubstmt!=null) return asmsubstmt
|
||||
|
||||
throw FatalAstException("unprocessed source text (are we missing ast conversion rules for parser elements?): $text")
|
||||
}
|
||||
|
||||
|
||||
private fun prog8Parser.AsmsubroutineContext.toAst(): IStatement {
|
||||
val name = identifier().text
|
||||
val address = asmsub_address()?.address?.toAst()?.number?.toInt()
|
||||
val params = asmsub_params()?.toAst() ?: emptyList()
|
||||
val returns = asmsub_returns()?.toAst() ?: emptyList()
|
||||
val clobbers = clobber()?.toAst() ?: emptySet()
|
||||
val statements = statement_block()?.toAst() ?: mutableListOf()
|
||||
return AsmSubroutine(name, address, params, returns, clobbers, statements, toPosition())
|
||||
}
|
||||
|
||||
|
||||
private fun prog8Parser.ClobberContext.toAst(): Set<Register>
|
||||
= this.register().asSequence().map { it.toAst() }.toSet()
|
||||
|
||||
|
||||
private fun prog8Parser.Asmsub_returnsContext.toAst(): List<AsmSubroutineReturn>
|
||||
= asmsub_return().map { AsmSubroutineReturn(it.datatype().toAst(), it.register()?.toAst(), it.statusregister()?.toAst(), toPosition()) }
|
||||
|
||||
|
||||
private fun prog8Parser.Asmsub_paramsContext.toAst(): List<AsmSubroutineParameter>
|
||||
= asmsub_param().map { AsmSubroutineParameter(it.identifier().text, it.datatype().toAst(), it.register()?.toAst(), it.statusregister()?.toAst(), toPosition()) }
|
||||
|
||||
|
||||
private fun prog8Parser.StatusregisterContext.toAst() = Statusflag.valueOf(text)
|
||||
|
||||
|
||||
private fun prog8Parser.Functioncall_stmtContext.toAst(): IStatement {
|
||||
val location =
|
||||
if(identifier()!=null) identifier()?.toAst()
|
||||
@ -1526,12 +1603,8 @@ private fun prog8Parser.ReturnstmtContext.toAst() : Return {
|
||||
}
|
||||
|
||||
private fun prog8Parser.UnconditionaljumpContext.toAst(): Jump {
|
||||
|
||||
val address = integerliteral()?.toAst()?.number?.toInt()
|
||||
val identifier =
|
||||
if(identifier()!=null) identifier()?.toAst()
|
||||
else scoped_identifier()?.toAst()
|
||||
|
||||
val identifier = identifier()?.toAst() ?: scoped_identifier()?.toAst()
|
||||
return Jump(address, identifier, null, toPosition())
|
||||
}
|
||||
|
||||
@ -1542,10 +1615,9 @@ private fun prog8Parser.LabeldefContext.toAst(): IStatement =
|
||||
|
||||
private fun prog8Parser.SubroutineContext.toAst() : Subroutine {
|
||||
return Subroutine(identifier().text,
|
||||
if(sub_params() ==null) emptyList() else sub_params().toAst(),
|
||||
if(sub_return_part() == null) emptyList() else sub_return_part().toAst(),
|
||||
sub_address()?.integerliteral()?.toAst()?.number?.toInt(),
|
||||
if(statement_block() ==null) mutableListOf() else statement_block().toAst(),
|
||||
sub_params()?.toAst() ?: emptyList(),
|
||||
sub_return_part()?.toAst() ?: emptyList(),
|
||||
statement_block()?.toAst() ?: mutableListOf(),
|
||||
toPosition())
|
||||
}
|
||||
|
||||
|
||||
@ -195,18 +195,16 @@ class AstChecker(private val namespace: INameScope,
|
||||
// subroutine must contain at least one 'return' or 'goto'
|
||||
// (or if it has an asm block, that must contain a 'rts' or 'jmp')
|
||||
if(subroutine.statements.count { it is Return || it is Jump } == 0) {
|
||||
if(subroutine.address==null) {
|
||||
val amount = subroutine.statements
|
||||
.asSequence()
|
||||
.filter { it is InlineAssembly }
|
||||
.map { (it as InlineAssembly).assembly }
|
||||
.count { "rts" in it || "\trts" in it || "jmp" in it || "\tjmp" in it }
|
||||
if (amount == 0) {
|
||||
if(subroutine.returnvalues.isNotEmpty())
|
||||
err("subroutine has result value(s) and thus must have at least one 'return' or 'goto' in it (or 'rts' / 'jmp' in case of %asm)")
|
||||
// if there's no return statement, we add the implicit one at the end.
|
||||
subroutine.statements.add(Return(emptyList(), subroutine.position))
|
||||
}
|
||||
val amount = subroutine.statements
|
||||
.asSequence()
|
||||
.filter { it is InlineAssembly }
|
||||
.map { (it as InlineAssembly).assembly }
|
||||
.count { "rts" in it || "\trts" in it || "jmp" in it || "\tjmp" in it }
|
||||
if (amount == 0) {
|
||||
if(subroutine.returnvalues.isNotEmpty())
|
||||
err("subroutine has result value(s) and thus must have at least one 'return' or 'goto' in it (or 'rts' / 'jmp' in case of %asm)")
|
||||
// if there's no return statement, we add the implicit one at the end.
|
||||
subroutine.statements.add(Return(emptyList(), subroutine.position))
|
||||
}
|
||||
}
|
||||
|
||||
@ -224,7 +222,7 @@ class AstChecker(private val namespace: INameScope,
|
||||
var checkNext = false
|
||||
for (stmt in statements) {
|
||||
if(checkNext) {
|
||||
if(stmt !is Label && stmt !is Subroutine)
|
||||
if(stmt !is Label && stmt !is Subroutine && stmt !is AsmSubroutine)
|
||||
checkResult.add(SyntaxError("preceding subroutine definition at line ${preceding.position.line} must be followed here by a label, another subroutine statement, or nothing", stmt.position))
|
||||
return
|
||||
}
|
||||
@ -232,6 +230,7 @@ class AstChecker(private val namespace: INameScope,
|
||||
if(preceding !is Return
|
||||
&& preceding !is Jump
|
||||
&& preceding !is Subroutine
|
||||
&& preceding !is AsmSubroutine
|
||||
&& preceding !is VarDecl
|
||||
&& preceding !is BuiltinFunctionStatementPlaceholder) {
|
||||
checkResult.add(SyntaxError("subroutine definition must be preceded by a return, jump, vardecl, or another subroutine statement", stmt.position))
|
||||
@ -317,10 +316,6 @@ class AstChecker(private val namespace: INameScope,
|
||||
err("recursive var declaration")
|
||||
}
|
||||
|
||||
if(!compilerOptions.floats && decl.datatype==DataType.FLOAT) {
|
||||
err("float var/const declaration, but floating point is not enabled via options")
|
||||
}
|
||||
|
||||
// for now, variables can only be declared in a block or subroutine (not in a loop statement block) @todo fix this
|
||||
if(decl.parent !is Block && decl.parent !is Subroutine) {
|
||||
err ("variables must be declared at block or subroutine level")
|
||||
|
||||
@ -251,6 +251,14 @@ private class StatementTranslator(private val stackvmProg: StackVmProgram,
|
||||
return super.process(subroutine)
|
||||
}
|
||||
|
||||
override fun process(asmSubroutine: AsmSubroutine): IStatement {
|
||||
if(asmSubroutine.statements.isNotEmpty()) {
|
||||
stackvmProg.label(asmSubroutine.makeScopedName(asmSubroutine.name).joinToString("."))
|
||||
translate(asmSubroutine.statements)
|
||||
}
|
||||
return super.process(asmSubroutine)
|
||||
}
|
||||
|
||||
override fun process(block: Block): IStatement {
|
||||
stackvmProg.label(block.scopedname)
|
||||
translate(block.statements)
|
||||
@ -288,6 +296,7 @@ private class StatementTranslator(private val stackvmProg: StackVmProgram,
|
||||
is WhileLoop -> translate(stmt)
|
||||
is RepeatLoop -> translate(stmt)
|
||||
is Directive, is VarDecl, is Subroutine -> {} // skip this, already processed these.
|
||||
is AsmSubroutine -> {}
|
||||
is InlineAssembly -> throw CompilerException("inline assembly is not supported by the StackVM")
|
||||
else -> TODO("translate statement $stmt to stackvm")
|
||||
}
|
||||
|
||||
@ -30,9 +30,10 @@ public class prog8Lexer extends Lexer {
|
||||
T__73=74, T__74=75, T__75=76, T__76=77, T__77=78, T__78=79, T__79=80,
|
||||
T__80=81, T__81=82, T__82=83, T__83=84, T__84=85, T__85=86, T__86=87,
|
||||
T__87=88, T__88=89, T__89=90, T__90=91, T__91=92, T__92=93, T__93=94,
|
||||
T__94=95, T__95=96, T__96=97, LINECOMMENT=98, COMMENT=99, WS=100, EOL=101,
|
||||
NAME=102, DEC_INTEGER=103, HEX_INTEGER=104, BIN_INTEGER=105, FLOAT_NUMBER=106,
|
||||
STRING=107, INLINEASMBLOCK=108, SINGLECHAR=109;
|
||||
T__94=95, T__95=96, T__96=97, T__97=98, T__98=99, T__99=100, T__100=101,
|
||||
T__101=102, T__102=103, T__103=104, LINECOMMENT=105, COMMENT=106, WS=107,
|
||||
EOL=108, NAME=109, DEC_INTEGER=110, HEX_INTEGER=111, BIN_INTEGER=112,
|
||||
FLOAT_NUMBER=113, STRING=114, INLINEASMBLOCK=115, SINGLECHAR=116;
|
||||
public static String[] channelNames = {
|
||||
"DEFAULT_TOKEN_CHANNEL", "HIDDEN"
|
||||
};
|
||||
@ -54,9 +55,10 @@ public class prog8Lexer extends Lexer {
|
||||
"T__73", "T__74", "T__75", "T__76", "T__77", "T__78", "T__79", "T__80",
|
||||
"T__81", "T__82", "T__83", "T__84", "T__85", "T__86", "T__87", "T__88",
|
||||
"T__89", "T__90", "T__91", "T__92", "T__93", "T__94", "T__95", "T__96",
|
||||
"LINECOMMENT", "COMMENT", "WS", "EOL", "NAME", "DEC_INTEGER", "HEX_INTEGER",
|
||||
"BIN_INTEGER", "FLOAT_NUMBER", "FNUMBER", "STRING_ESCAPE_SEQ", "STRING",
|
||||
"INLINEASMBLOCK", "SINGLECHAR"
|
||||
"T__97", "T__98", "T__99", "T__100", "T__101", "T__102", "T__103", "LINECOMMENT",
|
||||
"COMMENT", "WS", "EOL", "NAME", "DEC_INTEGER", "HEX_INTEGER", "BIN_INTEGER",
|
||||
"FLOAT_NUMBER", "FNUMBER", "STRING_ESCAPE_SEQ", "STRING", "INLINEASMBLOCK",
|
||||
"SINGLECHAR"
|
||||
};
|
||||
|
||||
private static final String[] _LITERAL_NAMES = {
|
||||
@ -68,11 +70,12 @@ public class prog8Lexer extends Lexer {
|
||||
"'--'", "'('", "')'", "'+'", "'-'", "'**'", "'*'", "'/'", "'//'", "'%'",
|
||||
"'<'", "'>'", "'<='", "'>='", "'=='", "'!='", "'&'", "'^'", "'|'", "'to'",
|
||||
"'step'", "'and'", "'or'", "'xor'", "'not'", "'return'", "'break'", "'continue'",
|
||||
"'.'", "'A'", "'X'", "'Y'", "'AX'", "'AY'", "'XY'", "'.w'", "'true'",
|
||||
"'false'", "'%asm'", "'sub'", "'->'", "'{'", "'}'", "'if'", "'else'",
|
||||
"'if_cs'", "'if_cc'", "'if_eq'", "'if_z'", "'if_ne'", "'if_nz'", "'if_pl'",
|
||||
"'if_pos'", "'if_mi'", "'if_neg'", "'if_vs'", "'if_vc'", "'for'", "'in'",
|
||||
"'while'", "'repeat'", "'until'"
|
||||
"'.'", "'A'", "'X'", "'Y'", "'AX'", "'AY'", "'XY'", "'Pc'", "'Pz'", "'Pn'",
|
||||
"'Pv'", "'.w'", "'true'", "'false'", "'%asm'", "'sub'", "'->'", "'{'",
|
||||
"'}'", "'asmsub'", "'clobbers'", "'@'", "'if'", "'else'", "'if_cs'", "'if_cc'",
|
||||
"'if_eq'", "'if_z'", "'if_ne'", "'if_nz'", "'if_pl'", "'if_pos'", "'if_mi'",
|
||||
"'if_neg'", "'if_vs'", "'if_vc'", "'for'", "'in'", "'while'", "'repeat'",
|
||||
"'until'"
|
||||
};
|
||||
private static final String[] _SYMBOLIC_NAMES = {
|
||||
null, null, null, null, null, null, null, null, null, null, null, null,
|
||||
@ -83,9 +86,9 @@ public class prog8Lexer extends Lexer {
|
||||
null, null, null, null, null, null, null, null, null, null, null, null,
|
||||
null, null, null, null, null, null, null, null, null, null, null, null,
|
||||
null, null, null, null, null, null, null, null, null, null, null, null,
|
||||
null, null, "LINECOMMENT", "COMMENT", "WS", "EOL", "NAME", "DEC_INTEGER",
|
||||
"HEX_INTEGER", "BIN_INTEGER", "FLOAT_NUMBER", "STRING", "INLINEASMBLOCK",
|
||||
"SINGLECHAR"
|
||||
null, null, null, null, null, null, null, null, null, "LINECOMMENT", "COMMENT",
|
||||
"WS", "EOL", "NAME", "DEC_INTEGER", "HEX_INTEGER", "BIN_INTEGER", "FLOAT_NUMBER",
|
||||
"STRING", "INLINEASMBLOCK", "SINGLECHAR"
|
||||
};
|
||||
public static final Vocabulary VOCABULARY = new VocabularyImpl(_LITERAL_NAMES, _SYMBOLIC_NAMES);
|
||||
|
||||
@ -147,13 +150,13 @@ public class prog8Lexer extends Lexer {
|
||||
@Override
|
||||
public void action(RuleContext _localctx, int ruleIndex, int actionIndex) {
|
||||
switch (ruleIndex) {
|
||||
case 108:
|
||||
case 115:
|
||||
STRING_action((RuleContext)_localctx, actionIndex);
|
||||
break;
|
||||
case 109:
|
||||
case 116:
|
||||
INLINEASMBLOCK_action((RuleContext)_localctx, actionIndex);
|
||||
break;
|
||||
case 110:
|
||||
case 117:
|
||||
SINGLECHAR_action((RuleContext)_localctx, actionIndex);
|
||||
break;
|
||||
}
|
||||
@ -193,7 +196,7 @@ public class prog8Lexer extends Lexer {
|
||||
}
|
||||
|
||||
public static final String _serializedATN =
|
||||
"\3\u608b\ua72a\u8133\ub9ed\u417c\u3be7\u7786\u5964\2o\u0306\b\1\4\2\t"+
|
||||
"\3\u608b\ua72a\u8133\ub9ed\u417c\u3be7\u7786\u5964\2v\u0332\b\1\4\2\t"+
|
||||
"\2\4\3\t\3\4\4\t\4\4\5\t\5\4\6\t\6\4\7\t\7\4\b\t\b\4\t\t\t\4\n\t\n\4\13"+
|
||||
"\t\13\4\f\t\f\4\r\t\r\4\16\t\16\4\17\t\17\4\20\t\20\4\21\t\21\4\22\t\22"+
|
||||
"\4\23\t\23\4\24\t\24\4\25\t\25\4\26\t\26\4\27\t\27\4\30\t\30\4\31\t\31"+
|
||||
@ -205,251 +208,265 @@ public class prog8Lexer extends Lexer {
|
||||
"\tI\4J\tJ\4K\tK\4L\tL\4M\tM\4N\tN\4O\tO\4P\tP\4Q\tQ\4R\tR\4S\tS\4T\tT"+
|
||||
"\4U\tU\4V\tV\4W\tW\4X\tX\4Y\tY\4Z\tZ\4[\t[\4\\\t\\\4]\t]\4^\t^\4_\t_\4"+
|
||||
"`\t`\4a\ta\4b\tb\4c\tc\4d\td\4e\te\4f\tf\4g\tg\4h\th\4i\ti\4j\tj\4k\t"+
|
||||
"k\4l\tl\4m\tm\4n\tn\4o\to\4p\tp\3\2\3\2\3\3\3\3\3\4\3\4\3\4\3\4\3\4\3"+
|
||||
"\5\3\5\3\5\3\5\3\5\3\5\3\5\3\5\3\6\3\6\3\6\3\6\3\6\3\6\3\6\3\6\3\6\3\6"+
|
||||
"\3\7\3\7\3\7\3\7\3\7\3\7\3\7\3\7\3\7\3\7\3\b\3\b\3\b\3\b\3\b\3\b\3\b\3"+
|
||||
"\b\3\b\3\t\3\t\3\t\3\t\3\t\3\t\3\t\3\t\3\n\3\n\3\n\3\n\3\n\3\n\3\n\3\n"+
|
||||
"\3\n\3\n\3\n\3\n\3\13\3\13\3\13\3\13\3\13\3\13\3\13\3\13\3\13\3\13\3\13"+
|
||||
"\3\13\3\f\3\f\3\f\3\f\3\f\3\f\3\f\3\f\3\f\3\f\3\f\3\r\3\r\3\r\3\r\3\r"+
|
||||
"\3\r\3\r\3\r\3\16\3\16\3\17\3\17\3\20\3\20\3\20\3\20\3\20\3\20\3\21\3"+
|
||||
"\21\3\21\3\21\3\21\3\21\3\21\3\22\3\22\3\22\3\22\3\22\3\23\3\23\3\23\3"+
|
||||
"\23\3\23\3\24\3\24\3\24\3\24\3\24\3\24\3\25\3\25\3\25\3\25\3\26\3\26\3"+
|
||||
"\26\3\26\3\26\3\26\3\27\3\27\3\27\3\27\3\27\3\27\3\30\3\30\3\30\3\30\3"+
|
||||
"\30\3\30\3\30\3\31\3\31\3\32\3\32\3\33\3\33\3\33\3\34\3\34\3\34\3\35\3"+
|
||||
"\35\3\35\3\36\3\36\3\36\3\36\3\37\3\37\3\37\3 \3 \3 \3 \3!\3!\3!\3\"\3"+
|
||||
"\"\3\"\3#\3#\3#\3$\3$\3$\3%\3%\3%\3&\3&\3\'\3\'\3(\3(\3)\3)\3*\3*\3*\3"+
|
||||
"+\3+\3,\3,\3-\3-\3-\3.\3.\3/\3/\3\60\3\60\3\61\3\61\3\61\3\62\3\62\3\62"+
|
||||
"\3\63\3\63\3\63\3\64\3\64\3\64\3\65\3\65\3\66\3\66\3\67\3\67\38\38\38"+
|
||||
"\39\39\39\39\39\3:\3:\3:\3:\3;\3;\3;\3<\3<\3<\3<\3=\3=\3=\3=\3>\3>\3>"+
|
||||
"\3>\3>\3>\3>\3?\3?\3?\3?\3?\3?\3@\3@\3@\3@\3@\3@\3@\3@\3@\3A\3A\3B\3B"+
|
||||
"\3C\3C\3D\3D\3E\3E\3E\3F\3F\3F\3G\3G\3G\3H\3H\3H\3I\3I\3I\3I\3I\3J\3J"+
|
||||
"\3J\3J\3J\3J\3K\3K\3K\3K\3K\3L\3L\3L\3L\3M\3M\3M\3N\3N\3O\3O\3P\3P\3P"+
|
||||
"\3Q\3Q\3Q\3Q\3Q\3R\3R\3R\3R\3R\3R\3S\3S\3S\3S\3S\3S\3T\3T\3T\3T\3T\3T"+
|
||||
"\3U\3U\3U\3U\3U\3V\3V\3V\3V\3V\3V\3W\3W\3W\3W\3W\3W\3X\3X\3X\3X\3X\3X"+
|
||||
"\3Y\3Y\3Y\3Y\3Y\3Y\3Y\3Z\3Z\3Z\3Z\3Z\3Z\3[\3[\3[\3[\3[\3[\3[\3\\\3\\\3"+
|
||||
"\\\3\\\3\\\3\\\3]\3]\3]\3]\3]\3]\3^\3^\3^\3^\3_\3_\3_\3`\3`\3`\3`\3`\3"+
|
||||
"`\3a\3a\3a\3a\3a\3a\3a\3b\3b\3b\3b\3b\3b\3c\3c\7c\u0295\nc\fc\16c\u0298"+
|
||||
"\13c\3c\3c\3c\3c\3d\3d\7d\u02a0\nd\fd\16d\u02a3\13d\3d\3d\3e\3e\3e\3e"+
|
||||
"\3f\6f\u02ac\nf\rf\16f\u02ad\3g\3g\7g\u02b2\ng\fg\16g\u02b5\13g\3h\3h"+
|
||||
"\3h\6h\u02ba\nh\rh\16h\u02bb\5h\u02be\nh\3i\3i\6i\u02c2\ni\ri\16i\u02c3"+
|
||||
"\3j\3j\6j\u02c8\nj\rj\16j\u02c9\3k\3k\3k\5k\u02cf\nk\3k\5k\u02d2\nk\3"+
|
||||
"l\6l\u02d5\nl\rl\16l\u02d6\3l\3l\6l\u02db\nl\rl\16l\u02dc\5l\u02df\nl"+
|
||||
"\3m\3m\3m\3m\5m\u02e5\nm\3n\3n\3n\7n\u02ea\nn\fn\16n\u02ed\13n\3n\3n\3"+
|
||||
"n\3o\3o\3o\3o\6o\u02f6\no\ro\16o\u02f7\3o\3o\3o\3o\3o\3p\3p\3p\5p\u0302"+
|
||||
"\np\3p\3p\3p\3\u02f7\2q\3\3\5\4\7\5\t\6\13\7\r\b\17\t\21\n\23\13\25\f"+
|
||||
"\27\r\31\16\33\17\35\20\37\21!\22#\23%\24\'\25)\26+\27-\30/\31\61\32\63"+
|
||||
"\33\65\34\67\359\36;\37= ?!A\"C#E$G%I&K\'M(O)Q*S+U,W-Y.[/]\60_\61a\62"+
|
||||
"c\63e\64g\65i\66k\67m8o9q:s;u<w=y>{?}@\177A\u0081B\u0083C\u0085D\u0087"+
|
||||
"E\u0089F\u008bG\u008dH\u008fI\u0091J\u0093K\u0095L\u0097M\u0099N\u009b"+
|
||||
"O\u009dP\u009fQ\u00a1R\u00a3S\u00a5T\u00a7U\u00a9V\u00abW\u00adX\u00af"+
|
||||
"Y\u00b1Z\u00b3[\u00b5\\\u00b7]\u00b9^\u00bb_\u00bd`\u00bfa\u00c1b\u00c3"+
|
||||
"c\u00c5d\u00c7e\u00c9f\u00cbg\u00cdh\u00cfi\u00d1j\u00d3k\u00d5l\u00d7"+
|
||||
"\2\u00d9\2\u00dbm\u00ddn\u00dfo\3\2\n\4\2\f\f\17\17\4\2\13\13\"\"\5\2"+
|
||||
"C\\aac|\6\2\62;C\\aac|\5\2\62;CHch\4\2GGgg\4\2--//\6\2\f\f\16\17$$^^\2"+
|
||||
"\u0315\2\3\3\2\2\2\2\5\3\2\2\2\2\7\3\2\2\2\2\t\3\2\2\2\2\13\3\2\2\2\2"+
|
||||
"\r\3\2\2\2\2\17\3\2\2\2\2\21\3\2\2\2\2\23\3\2\2\2\2\25\3\2\2\2\2\27\3"+
|
||||
"\2\2\2\2\31\3\2\2\2\2\33\3\2\2\2\2\35\3\2\2\2\2\37\3\2\2\2\2!\3\2\2\2"+
|
||||
"\2#\3\2\2\2\2%\3\2\2\2\2\'\3\2\2\2\2)\3\2\2\2\2+\3\2\2\2\2-\3\2\2\2\2"+
|
||||
"/\3\2\2\2\2\61\3\2\2\2\2\63\3\2\2\2\2\65\3\2\2\2\2\67\3\2\2\2\29\3\2\2"+
|
||||
"\2\2;\3\2\2\2\2=\3\2\2\2\2?\3\2\2\2\2A\3\2\2\2\2C\3\2\2\2\2E\3\2\2\2\2"+
|
||||
"G\3\2\2\2\2I\3\2\2\2\2K\3\2\2\2\2M\3\2\2\2\2O\3\2\2\2\2Q\3\2\2\2\2S\3"+
|
||||
"\2\2\2\2U\3\2\2\2\2W\3\2\2\2\2Y\3\2\2\2\2[\3\2\2\2\2]\3\2\2\2\2_\3\2\2"+
|
||||
"\2\2a\3\2\2\2\2c\3\2\2\2\2e\3\2\2\2\2g\3\2\2\2\2i\3\2\2\2\2k\3\2\2\2\2"+
|
||||
"m\3\2\2\2\2o\3\2\2\2\2q\3\2\2\2\2s\3\2\2\2\2u\3\2\2\2\2w\3\2\2\2\2y\3"+
|
||||
"\2\2\2\2{\3\2\2\2\2}\3\2\2\2\2\177\3\2\2\2\2\u0081\3\2\2\2\2\u0083\3\2"+
|
||||
"\2\2\2\u0085\3\2\2\2\2\u0087\3\2\2\2\2\u0089\3\2\2\2\2\u008b\3\2\2\2\2"+
|
||||
"\u008d\3\2\2\2\2\u008f\3\2\2\2\2\u0091\3\2\2\2\2\u0093\3\2\2\2\2\u0095"+
|
||||
"\3\2\2\2\2\u0097\3\2\2\2\2\u0099\3\2\2\2\2\u009b\3\2\2\2\2\u009d\3\2\2"+
|
||||
"\2\2\u009f\3\2\2\2\2\u00a1\3\2\2\2\2\u00a3\3\2\2\2\2\u00a5\3\2\2\2\2\u00a7"+
|
||||
"\3\2\2\2\2\u00a9\3\2\2\2\2\u00ab\3\2\2\2\2\u00ad\3\2\2\2\2\u00af\3\2\2"+
|
||||
"\2\2\u00b1\3\2\2\2\2\u00b3\3\2\2\2\2\u00b5\3\2\2\2\2\u00b7\3\2\2\2\2\u00b9"+
|
||||
"\3\2\2\2\2\u00bb\3\2\2\2\2\u00bd\3\2\2\2\2\u00bf\3\2\2\2\2\u00c1\3\2\2"+
|
||||
"\2\2\u00c3\3\2\2\2\2\u00c5\3\2\2\2\2\u00c7\3\2\2\2\2\u00c9\3\2\2\2\2\u00cb"+
|
||||
"\3\2\2\2\2\u00cd\3\2\2\2\2\u00cf\3\2\2\2\2\u00d1\3\2\2\2\2\u00d3\3\2\2"+
|
||||
"\2\2\u00d5\3\2\2\2\2\u00db\3\2\2\2\2\u00dd\3\2\2\2\2\u00df\3\2\2\2\3\u00e1"+
|
||||
"\3\2\2\2\5\u00e3\3\2\2\2\7\u00e5\3\2\2\2\t\u00ea\3\2\2\2\13\u00f2\3\2"+
|
||||
"\2\2\r\u00fc\3\2\2\2\17\u0106\3\2\2\2\21\u010f\3\2\2\2\23\u0117\3\2\2"+
|
||||
"\2\25\u0123\3\2\2\2\27\u012f\3\2\2\2\31\u013a\3\2\2\2\33\u0142\3\2\2\2"+
|
||||
"\35\u0144\3\2\2\2\37\u0146\3\2\2\2!\u014c\3\2\2\2#\u0153\3\2\2\2%\u0158"+
|
||||
"\3\2\2\2\'\u015d\3\2\2\2)\u0163\3\2\2\2+\u0167\3\2\2\2-\u016d\3\2\2\2"+
|
||||
"/\u0173\3\2\2\2\61\u017a\3\2\2\2\63\u017c\3\2\2\2\65\u017e\3\2\2\2\67"+
|
||||
"\u0181\3\2\2\29\u0184\3\2\2\2;\u0187\3\2\2\2=\u018b\3\2\2\2?\u018e\3\2"+
|
||||
"\2\2A\u0192\3\2\2\2C\u0195\3\2\2\2E\u0198\3\2\2\2G\u019b\3\2\2\2I\u019e"+
|
||||
"\3\2\2\2K\u01a1\3\2\2\2M\u01a3\3\2\2\2O\u01a5\3\2\2\2Q\u01a7\3\2\2\2S"+
|
||||
"\u01a9\3\2\2\2U\u01ac\3\2\2\2W\u01ae\3\2\2\2Y\u01b0\3\2\2\2[\u01b3\3\2"+
|
||||
"\2\2]\u01b5\3\2\2\2_\u01b7\3\2\2\2a\u01b9\3\2\2\2c\u01bc\3\2\2\2e\u01bf"+
|
||||
"\3\2\2\2g\u01c2\3\2\2\2i\u01c5\3\2\2\2k\u01c7\3\2\2\2m\u01c9\3\2\2\2o"+
|
||||
"\u01cb\3\2\2\2q\u01ce\3\2\2\2s\u01d3\3\2\2\2u\u01d7\3\2\2\2w\u01da\3\2"+
|
||||
"\2\2y\u01de\3\2\2\2{\u01e2\3\2\2\2}\u01e9\3\2\2\2\177\u01ef\3\2\2\2\u0081"+
|
||||
"\u01f8\3\2\2\2\u0083\u01fa\3\2\2\2\u0085\u01fc\3\2\2\2\u0087\u01fe\3\2"+
|
||||
"\2\2\u0089\u0200\3\2\2\2\u008b\u0203\3\2\2\2\u008d\u0206\3\2\2\2\u008f"+
|
||||
"\u0209\3\2\2\2\u0091\u020c\3\2\2\2\u0093\u0211\3\2\2\2\u0095\u0217\3\2"+
|
||||
"\2\2\u0097\u021c\3\2\2\2\u0099\u0220\3\2\2\2\u009b\u0223\3\2\2\2\u009d"+
|
||||
"\u0225\3\2\2\2\u009f\u0227\3\2\2\2\u00a1\u022a\3\2\2\2\u00a3\u022f\3\2"+
|
||||
"\2\2\u00a5\u0235\3\2\2\2\u00a7\u023b\3\2\2\2\u00a9\u0241\3\2\2\2\u00ab"+
|
||||
"\u0246\3\2\2\2\u00ad\u024c\3\2\2\2\u00af\u0252\3\2\2\2\u00b1\u0258\3\2"+
|
||||
"\2\2\u00b3\u025f\3\2\2\2\u00b5\u0265\3\2\2\2\u00b7\u026c\3\2\2\2\u00b9"+
|
||||
"\u0272\3\2\2\2\u00bb\u0278\3\2\2\2\u00bd\u027c\3\2\2\2\u00bf\u027f\3\2"+
|
||||
"\2\2\u00c1\u0285\3\2\2\2\u00c3\u028c\3\2\2\2\u00c5\u0292\3\2\2\2\u00c7"+
|
||||
"\u029d\3\2\2\2\u00c9\u02a6\3\2\2\2\u00cb\u02ab\3\2\2\2\u00cd\u02af\3\2"+
|
||||
"\2\2\u00cf\u02bd\3\2\2\2\u00d1\u02bf\3\2\2\2\u00d3\u02c5\3\2\2\2\u00d5"+
|
||||
"\u02cb\3\2\2\2\u00d7\u02d4\3\2\2\2\u00d9\u02e4\3\2\2\2\u00db\u02e6\3\2"+
|
||||
"\2\2\u00dd\u02f1\3\2\2\2\u00df\u02fe\3\2\2\2\u00e1\u00e2\7\u0080\2\2\u00e2"+
|
||||
"\4\3\2\2\2\u00e3\u00e4\7<\2\2\u00e4\6\3\2\2\2\u00e5\u00e6\7i\2\2\u00e6"+
|
||||
"\u00e7\7q\2\2\u00e7\u00e8\7v\2\2\u00e8\u00e9\7q\2\2\u00e9\b\3\2\2\2\u00ea"+
|
||||
"\u00eb\7\'\2\2\u00eb\u00ec\7q\2\2\u00ec\u00ed\7w\2\2\u00ed\u00ee\7v\2"+
|
||||
"\2\u00ee\u00ef\7r\2\2\u00ef\u00f0\7w\2\2\u00f0\u00f1\7v\2\2\u00f1\n\3"+
|
||||
"\2\2\2\u00f2\u00f3\7\'\2\2\u00f3\u00f4\7n\2\2\u00f4\u00f5\7c\2\2\u00f5"+
|
||||
"\u00f6\7w\2\2\u00f6\u00f7\7p\2\2\u00f7\u00f8\7e\2\2\u00f8\u00f9\7j\2\2"+
|
||||
"\u00f9\u00fa\7g\2\2\u00fa\u00fb\7t\2\2\u00fb\f\3\2\2\2\u00fc\u00fd\7\'"+
|
||||
"\2\2\u00fd\u00fe\7|\2\2\u00fe\u00ff\7g\2\2\u00ff\u0100\7t\2\2\u0100\u0101"+
|
||||
"\7q\2\2\u0101\u0102\7r\2\2\u0102\u0103\7c\2\2\u0103\u0104\7i\2\2\u0104"+
|
||||
"\u0105\7g\2\2\u0105\16\3\2\2\2\u0106\u0107\7\'\2\2\u0107\u0108\7c\2\2"+
|
||||
"\u0108\u0109\7f\2\2\u0109\u010a\7f\2\2\u010a\u010b\7t\2\2\u010b\u010c"+
|
||||
"\7g\2\2\u010c\u010d\7u\2\2\u010d\u010e\7u\2\2\u010e\20\3\2\2\2\u010f\u0110"+
|
||||
"\7\'\2\2\u0110\u0111\7k\2\2\u0111\u0112\7o\2\2\u0112\u0113\7r\2\2\u0113"+
|
||||
"\u0114\7q\2\2\u0114\u0115\7t\2\2\u0115\u0116\7v\2\2\u0116\22\3\2\2\2\u0117"+
|
||||
"\u0118\7\'\2\2\u0118\u0119\7d\2\2\u0119\u011a\7t\2\2\u011a\u011b\7g\2"+
|
||||
"\2\u011b\u011c\7c\2\2\u011c\u011d\7m\2\2\u011d\u011e\7r\2\2\u011e\u011f"+
|
||||
"\7q\2\2\u011f\u0120\7k\2\2\u0120\u0121\7p\2\2\u0121\u0122\7v\2\2\u0122"+
|
||||
"\24\3\2\2\2\u0123\u0124\7\'\2\2\u0124\u0125\7c\2\2\u0125\u0126\7u\2\2"+
|
||||
"\u0126\u0127\7o\2\2\u0127\u0128\7k\2\2\u0128\u0129\7p\2\2\u0129\u012a"+
|
||||
"\7e\2\2\u012a\u012b\7n\2\2\u012b\u012c\7w\2\2\u012c\u012d\7f\2\2\u012d"+
|
||||
"\u012e\7g\2\2\u012e\26\3\2\2\2\u012f\u0130\7\'\2\2\u0130\u0131\7c\2\2"+
|
||||
"\u0131\u0132\7u\2\2\u0132\u0133\7o\2\2\u0133\u0134\7d\2\2\u0134\u0135"+
|
||||
"\7k\2\2\u0135\u0136\7p\2\2\u0136\u0137\7c\2\2\u0137\u0138\7t\2\2\u0138"+
|
||||
"\u0139\7{\2\2\u0139\30\3\2\2\2\u013a\u013b\7\'\2\2\u013b\u013c\7q\2\2"+
|
||||
"\u013c\u013d\7r\2\2\u013d\u013e\7v\2\2\u013e\u013f\7k\2\2\u013f\u0140"+
|
||||
"\7q\2\2\u0140\u0141\7p\2\2\u0141\32\3\2\2\2\u0142\u0143\7.\2\2\u0143\34"+
|
||||
"\3\2\2\2\u0144\u0145\7?\2\2\u0145\36\3\2\2\2\u0146\u0147\7e\2\2\u0147"+
|
||||
"\u0148\7q\2\2\u0148\u0149\7p\2\2\u0149\u014a\7u\2\2\u014a\u014b\7v\2\2"+
|
||||
"\u014b \3\2\2\2\u014c\u014d\7o\2\2\u014d\u014e\7g\2\2\u014e\u014f\7o\2"+
|
||||
"\2\u014f\u0150\7q\2\2\u0150\u0151\7t\2\2\u0151\u0152\7{\2\2\u0152\"\3"+
|
||||
"\2\2\2\u0153\u0154\7d\2\2\u0154\u0155\7{\2\2\u0155\u0156\7v\2\2\u0156"+
|
||||
"\u0157\7g\2\2\u0157$\3\2\2\2\u0158\u0159\7y\2\2\u0159\u015a\7q\2\2\u015a"+
|
||||
"\u015b\7t\2\2\u015b\u015c\7f\2\2\u015c&\3\2\2\2\u015d\u015e\7h\2\2\u015e"+
|
||||
"\u015f\7n\2\2\u015f\u0160\7q\2\2\u0160\u0161\7c\2\2\u0161\u0162\7v\2\2"+
|
||||
"\u0162(\3\2\2\2\u0163\u0164\7u\2\2\u0164\u0165\7v\2\2\u0165\u0166\7t\2"+
|
||||
"\2\u0166*\3\2\2\2\u0167\u0168\7u\2\2\u0168\u0169\7v\2\2\u0169\u016a\7"+
|
||||
"t\2\2\u016a\u016b\7a\2\2\u016b\u016c\7r\2\2\u016c,\3\2\2\2\u016d\u016e"+
|
||||
"\7u\2\2\u016e\u016f\7v\2\2\u016f\u0170\7t\2\2\u0170\u0171\7a\2\2\u0171"+
|
||||
"\u0172\7u\2\2\u0172.\3\2\2\2\u0173\u0174\7u\2\2\u0174\u0175\7v\2\2\u0175"+
|
||||
"\u0176\7t\2\2\u0176\u0177\7a\2\2\u0177\u0178\7r\2\2\u0178\u0179\7u\2\2"+
|
||||
"\u0179\60\3\2\2\2\u017a\u017b\7]\2\2\u017b\62\3\2\2\2\u017c\u017d\7_\2"+
|
||||
"\2\u017d\64\3\2\2\2\u017e\u017f\7-\2\2\u017f\u0180\7?\2\2\u0180\66\3\2"+
|
||||
"\2\2\u0181\u0182\7/\2\2\u0182\u0183\7?\2\2\u01838\3\2\2\2\u0184\u0185"+
|
||||
"\7\61\2\2\u0185\u0186\7?\2\2\u0186:\3\2\2\2\u0187\u0188\7\61\2\2\u0188"+
|
||||
"\u0189\7\61\2\2\u0189\u018a\7?\2\2\u018a<\3\2\2\2\u018b\u018c\7,\2\2\u018c"+
|
||||
"\u018d\7?\2\2\u018d>\3\2\2\2\u018e\u018f\7,\2\2\u018f\u0190\7,\2\2\u0190"+
|
||||
"\u0191\7?\2\2\u0191@\3\2\2\2\u0192\u0193\7(\2\2\u0193\u0194\7?\2\2\u0194"+
|
||||
"B\3\2\2\2\u0195\u0196\7~\2\2\u0196\u0197\7?\2\2\u0197D\3\2\2\2\u0198\u0199"+
|
||||
"\7`\2\2\u0199\u019a\7?\2\2\u019aF\3\2\2\2\u019b\u019c\7-\2\2\u019c\u019d"+
|
||||
"\7-\2\2\u019dH\3\2\2\2\u019e\u019f\7/\2\2\u019f\u01a0\7/\2\2\u01a0J\3"+
|
||||
"\2\2\2\u01a1\u01a2\7*\2\2\u01a2L\3\2\2\2\u01a3\u01a4\7+\2\2\u01a4N\3\2"+
|
||||
"\2\2\u01a5\u01a6\7-\2\2\u01a6P\3\2\2\2\u01a7\u01a8\7/\2\2\u01a8R\3\2\2"+
|
||||
"\2\u01a9\u01aa\7,\2\2\u01aa\u01ab\7,\2\2\u01abT\3\2\2\2\u01ac\u01ad\7"+
|
||||
",\2\2\u01adV\3\2\2\2\u01ae\u01af\7\61\2\2\u01afX\3\2\2\2\u01b0\u01b1\7"+
|
||||
"\61\2\2\u01b1\u01b2\7\61\2\2\u01b2Z\3\2\2\2\u01b3\u01b4\7\'\2\2\u01b4"+
|
||||
"\\\3\2\2\2\u01b5\u01b6\7>\2\2\u01b6^\3\2\2\2\u01b7\u01b8\7@\2\2\u01b8"+
|
||||
"`\3\2\2\2\u01b9\u01ba\7>\2\2\u01ba\u01bb\7?\2\2\u01bbb\3\2\2\2\u01bc\u01bd"+
|
||||
"\7@\2\2\u01bd\u01be\7?\2\2\u01bed\3\2\2\2\u01bf\u01c0\7?\2\2\u01c0\u01c1"+
|
||||
"\7?\2\2\u01c1f\3\2\2\2\u01c2\u01c3\7#\2\2\u01c3\u01c4\7?\2\2\u01c4h\3"+
|
||||
"\2\2\2\u01c5\u01c6\7(\2\2\u01c6j\3\2\2\2\u01c7\u01c8\7`\2\2\u01c8l\3\2"+
|
||||
"\2\2\u01c9\u01ca\7~\2\2\u01can\3\2\2\2\u01cb\u01cc\7v\2\2\u01cc\u01cd"+
|
||||
"\7q\2\2\u01cdp\3\2\2\2\u01ce\u01cf\7u\2\2\u01cf\u01d0\7v\2\2\u01d0\u01d1"+
|
||||
"\7g\2\2\u01d1\u01d2\7r\2\2\u01d2r\3\2\2\2\u01d3\u01d4\7c\2\2\u01d4\u01d5"+
|
||||
"\7p\2\2\u01d5\u01d6\7f\2\2\u01d6t\3\2\2\2\u01d7\u01d8\7q\2\2\u01d8\u01d9"+
|
||||
"\7t\2\2\u01d9v\3\2\2\2\u01da\u01db\7z\2\2\u01db\u01dc\7q\2\2\u01dc\u01dd"+
|
||||
"\7t\2\2\u01ddx\3\2\2\2\u01de\u01df\7p\2\2\u01df\u01e0\7q\2\2\u01e0\u01e1"+
|
||||
"\7v\2\2\u01e1z\3\2\2\2\u01e2\u01e3\7t\2\2\u01e3\u01e4\7g\2\2\u01e4\u01e5"+
|
||||
"\7v\2\2\u01e5\u01e6\7w\2\2\u01e6\u01e7\7t\2\2\u01e7\u01e8\7p\2\2\u01e8"+
|
||||
"|\3\2\2\2\u01e9\u01ea\7d\2\2\u01ea\u01eb\7t\2\2\u01eb\u01ec\7g\2\2\u01ec"+
|
||||
"\u01ed\7c\2\2\u01ed\u01ee\7m\2\2\u01ee~\3\2\2\2\u01ef\u01f0\7e\2\2\u01f0"+
|
||||
"\u01f1\7q\2\2\u01f1\u01f2\7p\2\2\u01f2\u01f3\7v\2\2\u01f3\u01f4\7k\2\2"+
|
||||
"\u01f4\u01f5\7p\2\2\u01f5\u01f6\7w\2\2\u01f6\u01f7\7g\2\2\u01f7\u0080"+
|
||||
"\3\2\2\2\u01f8\u01f9\7\60\2\2\u01f9\u0082\3\2\2\2\u01fa\u01fb\7C\2\2\u01fb"+
|
||||
"\u0084\3\2\2\2\u01fc\u01fd\7Z\2\2\u01fd\u0086\3\2\2\2\u01fe\u01ff\7[\2"+
|
||||
"\2\u01ff\u0088\3\2\2\2\u0200\u0201\7C\2\2\u0201\u0202\7Z\2\2\u0202\u008a"+
|
||||
"\3\2\2\2\u0203\u0204\7C\2\2\u0204\u0205\7[\2\2\u0205\u008c\3\2\2\2\u0206"+
|
||||
"\u0207\7Z\2\2\u0207\u0208\7[\2\2\u0208\u008e\3\2\2\2\u0209\u020a\7\60"+
|
||||
"\2\2\u020a\u020b\7y\2\2\u020b\u0090\3\2\2\2\u020c\u020d\7v\2\2\u020d\u020e"+
|
||||
"\7t\2\2\u020e\u020f\7w\2\2\u020f\u0210\7g\2\2\u0210\u0092\3\2\2\2\u0211"+
|
||||
"\u0212\7h\2\2\u0212\u0213\7c\2\2\u0213\u0214\7n\2\2\u0214\u0215\7u\2\2"+
|
||||
"\u0215\u0216\7g\2\2\u0216\u0094\3\2\2\2\u0217\u0218\7\'\2\2\u0218\u0219"+
|
||||
"\7c\2\2\u0219\u021a\7u\2\2\u021a\u021b\7o\2\2\u021b\u0096\3\2\2\2\u021c"+
|
||||
"\u021d\7u\2\2\u021d\u021e\7w\2\2\u021e\u021f\7d\2\2\u021f\u0098\3\2\2"+
|
||||
"\2\u0220\u0221\7/\2\2\u0221\u0222\7@\2\2\u0222\u009a\3\2\2\2\u0223\u0224"+
|
||||
"\7}\2\2\u0224\u009c\3\2\2\2\u0225\u0226\7\177\2\2\u0226\u009e\3\2\2\2"+
|
||||
"\u0227\u0228\7k\2\2\u0228\u0229\7h\2\2\u0229\u00a0\3\2\2\2\u022a\u022b"+
|
||||
"\7g\2\2\u022b\u022c\7n\2\2\u022c\u022d\7u\2\2\u022d\u022e\7g\2\2\u022e"+
|
||||
"\u00a2\3\2\2\2\u022f\u0230\7k\2\2\u0230\u0231\7h\2\2\u0231\u0232\7a\2"+
|
||||
"\2\u0232\u0233\7e\2\2\u0233\u0234\7u\2\2\u0234\u00a4\3\2\2\2\u0235\u0236"+
|
||||
"\7k\2\2\u0236\u0237\7h\2\2\u0237\u0238\7a\2\2\u0238\u0239\7e\2\2\u0239"+
|
||||
"\u023a\7e\2\2\u023a\u00a6\3\2\2\2\u023b\u023c\7k\2\2\u023c\u023d\7h\2"+
|
||||
"\2\u023d\u023e\7a\2\2\u023e\u023f\7g\2\2\u023f\u0240\7s\2\2\u0240\u00a8"+
|
||||
"\3\2\2\2\u0241\u0242\7k\2\2\u0242\u0243\7h\2\2\u0243\u0244\7a\2\2\u0244"+
|
||||
"\u0245\7|\2\2\u0245\u00aa\3\2\2\2\u0246\u0247\7k\2\2\u0247\u0248\7h\2"+
|
||||
"\2\u0248\u0249\7a\2\2\u0249\u024a\7p\2\2\u024a\u024b\7g\2\2\u024b\u00ac"+
|
||||
"\3\2\2\2\u024c\u024d\7k\2\2\u024d\u024e\7h\2\2\u024e\u024f\7a\2\2\u024f"+
|
||||
"\u0250\7p\2\2\u0250\u0251\7|\2\2\u0251\u00ae\3\2\2\2\u0252\u0253\7k\2"+
|
||||
"\2\u0253\u0254\7h\2\2\u0254\u0255\7a\2\2\u0255\u0256\7r\2\2\u0256\u0257"+
|
||||
"\7n\2\2\u0257\u00b0\3\2\2\2\u0258\u0259\7k\2\2\u0259\u025a\7h\2\2\u025a"+
|
||||
"\u025b\7a\2\2\u025b\u025c\7r\2\2\u025c\u025d\7q\2\2\u025d\u025e\7u\2\2"+
|
||||
"\u025e\u00b2\3\2\2\2\u025f\u0260\7k\2\2\u0260\u0261\7h\2\2\u0261\u0262"+
|
||||
"\7a\2\2\u0262\u0263\7o\2\2\u0263\u0264\7k\2\2\u0264\u00b4\3\2\2\2\u0265"+
|
||||
"\u0266\7k\2\2\u0266\u0267\7h\2\2\u0267\u0268\7a\2\2\u0268\u0269\7p\2\2"+
|
||||
"\u0269\u026a\7g\2\2\u026a\u026b\7i\2\2\u026b\u00b6\3\2\2\2\u026c\u026d"+
|
||||
"\7k\2\2\u026d\u026e\7h\2\2\u026e\u026f\7a\2\2\u026f\u0270\7x\2\2\u0270"+
|
||||
"\u0271\7u\2\2\u0271\u00b8\3\2\2\2\u0272\u0273\7k\2\2\u0273\u0274\7h\2"+
|
||||
"\2\u0274\u0275\7a\2\2\u0275\u0276\7x\2\2\u0276\u0277\7e\2\2\u0277\u00ba"+
|
||||
"\3\2\2\2\u0278\u0279\7h\2\2\u0279\u027a\7q\2\2\u027a\u027b\7t\2\2\u027b"+
|
||||
"\u00bc\3\2\2\2\u027c\u027d\7k\2\2\u027d\u027e\7p\2\2\u027e\u00be\3\2\2"+
|
||||
"\2\u027f\u0280\7y\2\2\u0280\u0281\7j\2\2\u0281\u0282\7k\2\2\u0282\u0283"+
|
||||
"\7n\2\2\u0283\u0284\7g\2\2\u0284\u00c0\3\2\2\2\u0285\u0286\7t\2\2\u0286"+
|
||||
"\u0287\7g\2\2\u0287\u0288\7r\2\2\u0288\u0289\7g\2\2\u0289\u028a\7c\2\2"+
|
||||
"\u028a\u028b\7v\2\2\u028b\u00c2\3\2\2\2\u028c\u028d\7w\2\2\u028d\u028e"+
|
||||
"\7p\2\2\u028e\u028f\7v\2\2\u028f\u0290\7k\2\2\u0290\u0291\7n\2\2\u0291"+
|
||||
"\u00c4\3\2\2\2\u0292\u0296\t\2\2\2\u0293\u0295\t\3\2\2\u0294\u0293\3\2"+
|
||||
"\2\2\u0295\u0298\3\2\2\2\u0296\u0294\3\2\2\2\u0296\u0297\3\2\2\2\u0297"+
|
||||
"\u0299\3\2\2\2\u0298\u0296\3\2\2\2\u0299\u029a\5\u00c7d\2\u029a\u029b"+
|
||||
"\3\2\2\2\u029b\u029c\bc\2\2\u029c\u00c6\3\2\2\2\u029d\u02a1\7=\2\2\u029e"+
|
||||
"\u02a0\n\2\2\2\u029f\u029e\3\2\2\2\u02a0\u02a3\3\2\2\2\u02a1\u029f\3\2"+
|
||||
"\2\2\u02a1\u02a2\3\2\2\2\u02a2\u02a4\3\2\2\2\u02a3\u02a1\3\2\2\2\u02a4"+
|
||||
"\u02a5\bd\2\2\u02a5\u00c8\3\2\2\2\u02a6\u02a7\t\3\2\2\u02a7\u02a8\3\2"+
|
||||
"\2\2\u02a8\u02a9\be\3\2\u02a9\u00ca\3\2\2\2\u02aa\u02ac\t\2\2\2\u02ab"+
|
||||
"\u02aa\3\2\2\2\u02ac\u02ad\3\2\2\2\u02ad\u02ab\3\2\2\2\u02ad\u02ae\3\2"+
|
||||
"\2\2\u02ae\u00cc\3\2\2\2\u02af\u02b3\t\4\2\2\u02b0\u02b2\t\5\2\2\u02b1"+
|
||||
"\u02b0\3\2\2\2\u02b2\u02b5\3\2\2\2\u02b3\u02b1\3\2\2\2\u02b3\u02b4\3\2"+
|
||||
"\2\2\u02b4\u00ce\3\2\2\2\u02b5\u02b3\3\2\2\2\u02b6\u02be\4\62;\2\u02b7"+
|
||||
"\u02b9\4\63;\2\u02b8\u02ba\4\62;\2\u02b9\u02b8\3\2\2\2\u02ba\u02bb\3\2"+
|
||||
"\2\2\u02bb\u02b9\3\2\2\2\u02bb\u02bc\3\2\2\2\u02bc\u02be\3\2\2\2\u02bd"+
|
||||
"\u02b6\3\2\2\2\u02bd\u02b7\3\2\2\2\u02be\u00d0\3\2\2\2\u02bf\u02c1\7&"+
|
||||
"\2\2\u02c0\u02c2\t\6\2\2\u02c1\u02c0\3\2\2\2\u02c2\u02c3\3\2\2\2\u02c3"+
|
||||
"\u02c1\3\2\2\2\u02c3\u02c4\3\2\2\2\u02c4\u00d2\3\2\2\2\u02c5\u02c7\7\'"+
|
||||
"\2\2\u02c6\u02c8\4\62\63\2\u02c7\u02c6\3\2\2\2\u02c8\u02c9\3\2\2\2\u02c9"+
|
||||
"\u02c7\3\2\2\2\u02c9\u02ca\3\2\2\2\u02ca\u00d4\3\2\2\2\u02cb\u02d1\5\u00d7"+
|
||||
"l\2\u02cc\u02ce\t\7\2\2\u02cd\u02cf\t\b\2\2\u02ce\u02cd\3\2\2\2\u02ce"+
|
||||
"\u02cf\3\2\2\2\u02cf\u02d0\3\2\2\2\u02d0\u02d2\5\u00d7l\2\u02d1\u02cc"+
|
||||
"\3\2\2\2\u02d1\u02d2\3\2\2\2\u02d2\u00d6\3\2\2\2\u02d3\u02d5\4\62;\2\u02d4"+
|
||||
"\u02d3\3\2\2\2\u02d5\u02d6\3\2\2\2\u02d6\u02d4\3\2\2\2\u02d6\u02d7\3\2"+
|
||||
"\2\2\u02d7\u02de\3\2\2\2\u02d8\u02da\7\60\2\2\u02d9\u02db\4\62;\2\u02da"+
|
||||
"\u02d9\3\2\2\2\u02db\u02dc\3\2\2\2\u02dc\u02da\3\2\2\2\u02dc\u02dd\3\2"+
|
||||
"\2\2\u02dd\u02df\3\2\2\2\u02de\u02d8\3\2\2\2\u02de\u02df\3\2\2\2\u02df"+
|
||||
"\u00d8\3\2\2\2\u02e0\u02e1\7^\2\2\u02e1\u02e5\13\2\2\2\u02e2\u02e3\7^"+
|
||||
"\2\2\u02e3\u02e5\5\u00cbf\2\u02e4\u02e0\3\2\2\2\u02e4\u02e2\3\2\2\2\u02e5"+
|
||||
"\u00da\3\2\2\2\u02e6\u02eb\7$\2\2\u02e7\u02ea\5\u00d9m\2\u02e8\u02ea\n"+
|
||||
"\t\2\2\u02e9\u02e7\3\2\2\2\u02e9\u02e8\3\2\2\2\u02ea\u02ed\3\2\2\2\u02eb"+
|
||||
"\u02e9\3\2\2\2\u02eb\u02ec\3\2\2\2\u02ec\u02ee\3\2\2\2\u02ed\u02eb\3\2"+
|
||||
"\2\2\u02ee\u02ef\7$\2\2\u02ef\u02f0\bn\4\2\u02f0\u00dc\3\2\2\2\u02f1\u02f2"+
|
||||
"\7}\2\2\u02f2\u02f3\7}\2\2\u02f3\u02f5\3\2\2\2\u02f4\u02f6\13\2\2\2\u02f5"+
|
||||
"\u02f4\3\2\2\2\u02f6\u02f7\3\2\2\2\u02f7\u02f8\3\2\2\2\u02f7\u02f5\3\2"+
|
||||
"\2\2\u02f8\u02f9\3\2\2\2\u02f9\u02fa\7\177\2\2\u02fa\u02fb\7\177\2\2\u02fb"+
|
||||
"\u02fc\3\2\2\2\u02fc\u02fd\bo\5\2\u02fd\u00de\3\2\2\2\u02fe\u0301\7)\2"+
|
||||
"\2\u02ff\u0302\5\u00d9m\2\u0300\u0302\n\t\2\2\u0301\u02ff\3\2\2\2\u0301"+
|
||||
"\u0300\3\2\2\2\u0302\u0303\3\2\2\2\u0303\u0304\7)\2\2\u0304\u0305\bp\6"+
|
||||
"\2\u0305\u00e0\3\2\2\2\26\2\u0296\u02a1\u02ad\u02b3\u02bb\u02bd\u02c1"+
|
||||
"\u02c3\u02c9\u02ce\u02d1\u02d6\u02dc\u02de\u02e4\u02e9\u02eb\u02f7\u0301"+
|
||||
"\7\2\3\2\b\2\2\3n\2\3o\3\3p\4";
|
||||
"k\4l\tl\4m\tm\4n\tn\4o\to\4p\tp\4q\tq\4r\tr\4s\ts\4t\tt\4u\tu\4v\tv\4"+
|
||||
"w\tw\3\2\3\2\3\3\3\3\3\4\3\4\3\4\3\4\3\4\3\5\3\5\3\5\3\5\3\5\3\5\3\5\3"+
|
||||
"\5\3\6\3\6\3\6\3\6\3\6\3\6\3\6\3\6\3\6\3\6\3\7\3\7\3\7\3\7\3\7\3\7\3\7"+
|
||||
"\3\7\3\7\3\7\3\b\3\b\3\b\3\b\3\b\3\b\3\b\3\b\3\b\3\t\3\t\3\t\3\t\3\t\3"+
|
||||
"\t\3\t\3\t\3\n\3\n\3\n\3\n\3\n\3\n\3\n\3\n\3\n\3\n\3\n\3\n\3\13\3\13\3"+
|
||||
"\13\3\13\3\13\3\13\3\13\3\13\3\13\3\13\3\13\3\13\3\f\3\f\3\f\3\f\3\f\3"+
|
||||
"\f\3\f\3\f\3\f\3\f\3\f\3\r\3\r\3\r\3\r\3\r\3\r\3\r\3\r\3\16\3\16\3\17"+
|
||||
"\3\17\3\20\3\20\3\20\3\20\3\20\3\20\3\21\3\21\3\21\3\21\3\21\3\21\3\21"+
|
||||
"\3\22\3\22\3\22\3\22\3\22\3\23\3\23\3\23\3\23\3\23\3\24\3\24\3\24\3\24"+
|
||||
"\3\24\3\24\3\25\3\25\3\25\3\25\3\26\3\26\3\26\3\26\3\26\3\26\3\27\3\27"+
|
||||
"\3\27\3\27\3\27\3\27\3\30\3\30\3\30\3\30\3\30\3\30\3\30\3\31\3\31\3\32"+
|
||||
"\3\32\3\33\3\33\3\33\3\34\3\34\3\34\3\35\3\35\3\35\3\36\3\36\3\36\3\36"+
|
||||
"\3\37\3\37\3\37\3 \3 \3 \3 \3!\3!\3!\3\"\3\"\3\"\3#\3#\3#\3$\3$\3$\3%"+
|
||||
"\3%\3%\3&\3&\3\'\3\'\3(\3(\3)\3)\3*\3*\3*\3+\3+\3,\3,\3-\3-\3-\3.\3.\3"+
|
||||
"/\3/\3\60\3\60\3\61\3\61\3\61\3\62\3\62\3\62\3\63\3\63\3\63\3\64\3\64"+
|
||||
"\3\64\3\65\3\65\3\66\3\66\3\67\3\67\38\38\38\39\39\39\39\39\3:\3:\3:\3"+
|
||||
":\3;\3;\3;\3<\3<\3<\3<\3=\3=\3=\3=\3>\3>\3>\3>\3>\3>\3>\3?\3?\3?\3?\3"+
|
||||
"?\3?\3@\3@\3@\3@\3@\3@\3@\3@\3@\3A\3A\3B\3B\3C\3C\3D\3D\3E\3E\3E\3F\3"+
|
||||
"F\3F\3G\3G\3G\3H\3H\3H\3I\3I\3I\3J\3J\3J\3K\3K\3K\3L\3L\3L\3M\3M\3M\3"+
|
||||
"M\3M\3N\3N\3N\3N\3N\3N\3O\3O\3O\3O\3O\3P\3P\3P\3P\3Q\3Q\3Q\3R\3R\3S\3"+
|
||||
"S\3T\3T\3T\3T\3T\3T\3T\3U\3U\3U\3U\3U\3U\3U\3U\3U\3V\3V\3W\3W\3W\3X\3"+
|
||||
"X\3X\3X\3X\3Y\3Y\3Y\3Y\3Y\3Y\3Z\3Z\3Z\3Z\3Z\3Z\3[\3[\3[\3[\3[\3[\3\\\3"+
|
||||
"\\\3\\\3\\\3\\\3]\3]\3]\3]\3]\3]\3^\3^\3^\3^\3^\3^\3_\3_\3_\3_\3_\3_\3"+
|
||||
"`\3`\3`\3`\3`\3`\3`\3a\3a\3a\3a\3a\3a\3b\3b\3b\3b\3b\3b\3b\3c\3c\3c\3"+
|
||||
"c\3c\3c\3d\3d\3d\3d\3d\3d\3e\3e\3e\3e\3f\3f\3f\3g\3g\3g\3g\3g\3g\3h\3"+
|
||||
"h\3h\3h\3h\3h\3h\3i\3i\3i\3i\3i\3i\3j\3j\7j\u02c1\nj\fj\16j\u02c4\13j"+
|
||||
"\3j\3j\3j\3j\3k\3k\7k\u02cc\nk\fk\16k\u02cf\13k\3k\3k\3l\3l\3l\3l\3m\6"+
|
||||
"m\u02d8\nm\rm\16m\u02d9\3n\3n\7n\u02de\nn\fn\16n\u02e1\13n\3o\3o\3o\6"+
|
||||
"o\u02e6\no\ro\16o\u02e7\5o\u02ea\no\3p\3p\6p\u02ee\np\rp\16p\u02ef\3q"+
|
||||
"\3q\6q\u02f4\nq\rq\16q\u02f5\3r\3r\3r\5r\u02fb\nr\3r\5r\u02fe\nr\3s\6"+
|
||||
"s\u0301\ns\rs\16s\u0302\3s\3s\6s\u0307\ns\rs\16s\u0308\5s\u030b\ns\3t"+
|
||||
"\3t\3t\3t\5t\u0311\nt\3u\3u\3u\7u\u0316\nu\fu\16u\u0319\13u\3u\3u\3u\3"+
|
||||
"v\3v\3v\3v\6v\u0322\nv\rv\16v\u0323\3v\3v\3v\3v\3v\3w\3w\3w\5w\u032e\n"+
|
||||
"w\3w\3w\3w\3\u0323\2x\3\3\5\4\7\5\t\6\13\7\r\b\17\t\21\n\23\13\25\f\27"+
|
||||
"\r\31\16\33\17\35\20\37\21!\22#\23%\24\'\25)\26+\27-\30/\31\61\32\63\33"+
|
||||
"\65\34\67\359\36;\37= ?!A\"C#E$G%I&K\'M(O)Q*S+U,W-Y.[/]\60_\61a\62c\63"+
|
||||
"e\64g\65i\66k\67m8o9q:s;u<w=y>{?}@\177A\u0081B\u0083C\u0085D\u0087E\u0089"+
|
||||
"F\u008bG\u008dH\u008fI\u0091J\u0093K\u0095L\u0097M\u0099N\u009bO\u009d"+
|
||||
"P\u009fQ\u00a1R\u00a3S\u00a5T\u00a7U\u00a9V\u00abW\u00adX\u00afY\u00b1"+
|
||||
"Z\u00b3[\u00b5\\\u00b7]\u00b9^\u00bb_\u00bd`\u00bfa\u00c1b\u00c3c\u00c5"+
|
||||
"d\u00c7e\u00c9f\u00cbg\u00cdh\u00cfi\u00d1j\u00d3k\u00d5l\u00d7m\u00d9"+
|
||||
"n\u00dbo\u00ddp\u00dfq\u00e1r\u00e3s\u00e5\2\u00e7\2\u00e9t\u00ebu\u00ed"+
|
||||
"v\3\2\n\4\2\f\f\17\17\4\2\13\13\"\"\5\2C\\aac|\6\2\62;C\\aac|\5\2\62;"+
|
||||
"CHch\4\2GGgg\4\2--//\6\2\f\f\16\17$$^^\2\u0341\2\3\3\2\2\2\2\5\3\2\2\2"+
|
||||
"\2\7\3\2\2\2\2\t\3\2\2\2\2\13\3\2\2\2\2\r\3\2\2\2\2\17\3\2\2\2\2\21\3"+
|
||||
"\2\2\2\2\23\3\2\2\2\2\25\3\2\2\2\2\27\3\2\2\2\2\31\3\2\2\2\2\33\3\2\2"+
|
||||
"\2\2\35\3\2\2\2\2\37\3\2\2\2\2!\3\2\2\2\2#\3\2\2\2\2%\3\2\2\2\2\'\3\2"+
|
||||
"\2\2\2)\3\2\2\2\2+\3\2\2\2\2-\3\2\2\2\2/\3\2\2\2\2\61\3\2\2\2\2\63\3\2"+
|
||||
"\2\2\2\65\3\2\2\2\2\67\3\2\2\2\29\3\2\2\2\2;\3\2\2\2\2=\3\2\2\2\2?\3\2"+
|
||||
"\2\2\2A\3\2\2\2\2C\3\2\2\2\2E\3\2\2\2\2G\3\2\2\2\2I\3\2\2\2\2K\3\2\2\2"+
|
||||
"\2M\3\2\2\2\2O\3\2\2\2\2Q\3\2\2\2\2S\3\2\2\2\2U\3\2\2\2\2W\3\2\2\2\2Y"+
|
||||
"\3\2\2\2\2[\3\2\2\2\2]\3\2\2\2\2_\3\2\2\2\2a\3\2\2\2\2c\3\2\2\2\2e\3\2"+
|
||||
"\2\2\2g\3\2\2\2\2i\3\2\2\2\2k\3\2\2\2\2m\3\2\2\2\2o\3\2\2\2\2q\3\2\2\2"+
|
||||
"\2s\3\2\2\2\2u\3\2\2\2\2w\3\2\2\2\2y\3\2\2\2\2{\3\2\2\2\2}\3\2\2\2\2\177"+
|
||||
"\3\2\2\2\2\u0081\3\2\2\2\2\u0083\3\2\2\2\2\u0085\3\2\2\2\2\u0087\3\2\2"+
|
||||
"\2\2\u0089\3\2\2\2\2\u008b\3\2\2\2\2\u008d\3\2\2\2\2\u008f\3\2\2\2\2\u0091"+
|
||||
"\3\2\2\2\2\u0093\3\2\2\2\2\u0095\3\2\2\2\2\u0097\3\2\2\2\2\u0099\3\2\2"+
|
||||
"\2\2\u009b\3\2\2\2\2\u009d\3\2\2\2\2\u009f\3\2\2\2\2\u00a1\3\2\2\2\2\u00a3"+
|
||||
"\3\2\2\2\2\u00a5\3\2\2\2\2\u00a7\3\2\2\2\2\u00a9\3\2\2\2\2\u00ab\3\2\2"+
|
||||
"\2\2\u00ad\3\2\2\2\2\u00af\3\2\2\2\2\u00b1\3\2\2\2\2\u00b3\3\2\2\2\2\u00b5"+
|
||||
"\3\2\2\2\2\u00b7\3\2\2\2\2\u00b9\3\2\2\2\2\u00bb\3\2\2\2\2\u00bd\3\2\2"+
|
||||
"\2\2\u00bf\3\2\2\2\2\u00c1\3\2\2\2\2\u00c3\3\2\2\2\2\u00c5\3\2\2\2\2\u00c7"+
|
||||
"\3\2\2\2\2\u00c9\3\2\2\2\2\u00cb\3\2\2\2\2\u00cd\3\2\2\2\2\u00cf\3\2\2"+
|
||||
"\2\2\u00d1\3\2\2\2\2\u00d3\3\2\2\2\2\u00d5\3\2\2\2\2\u00d7\3\2\2\2\2\u00d9"+
|
||||
"\3\2\2\2\2\u00db\3\2\2\2\2\u00dd\3\2\2\2\2\u00df\3\2\2\2\2\u00e1\3\2\2"+
|
||||
"\2\2\u00e3\3\2\2\2\2\u00e9\3\2\2\2\2\u00eb\3\2\2\2\2\u00ed\3\2\2\2\3\u00ef"+
|
||||
"\3\2\2\2\5\u00f1\3\2\2\2\7\u00f3\3\2\2\2\t\u00f8\3\2\2\2\13\u0100\3\2"+
|
||||
"\2\2\r\u010a\3\2\2\2\17\u0114\3\2\2\2\21\u011d\3\2\2\2\23\u0125\3\2\2"+
|
||||
"\2\25\u0131\3\2\2\2\27\u013d\3\2\2\2\31\u0148\3\2\2\2\33\u0150\3\2\2\2"+
|
||||
"\35\u0152\3\2\2\2\37\u0154\3\2\2\2!\u015a\3\2\2\2#\u0161\3\2\2\2%\u0166"+
|
||||
"\3\2\2\2\'\u016b\3\2\2\2)\u0171\3\2\2\2+\u0175\3\2\2\2-\u017b\3\2\2\2"+
|
||||
"/\u0181\3\2\2\2\61\u0188\3\2\2\2\63\u018a\3\2\2\2\65\u018c\3\2\2\2\67"+
|
||||
"\u018f\3\2\2\29\u0192\3\2\2\2;\u0195\3\2\2\2=\u0199\3\2\2\2?\u019c\3\2"+
|
||||
"\2\2A\u01a0\3\2\2\2C\u01a3\3\2\2\2E\u01a6\3\2\2\2G\u01a9\3\2\2\2I\u01ac"+
|
||||
"\3\2\2\2K\u01af\3\2\2\2M\u01b1\3\2\2\2O\u01b3\3\2\2\2Q\u01b5\3\2\2\2S"+
|
||||
"\u01b7\3\2\2\2U\u01ba\3\2\2\2W\u01bc\3\2\2\2Y\u01be\3\2\2\2[\u01c1\3\2"+
|
||||
"\2\2]\u01c3\3\2\2\2_\u01c5\3\2\2\2a\u01c7\3\2\2\2c\u01ca\3\2\2\2e\u01cd"+
|
||||
"\3\2\2\2g\u01d0\3\2\2\2i\u01d3\3\2\2\2k\u01d5\3\2\2\2m\u01d7\3\2\2\2o"+
|
||||
"\u01d9\3\2\2\2q\u01dc\3\2\2\2s\u01e1\3\2\2\2u\u01e5\3\2\2\2w\u01e8\3\2"+
|
||||
"\2\2y\u01ec\3\2\2\2{\u01f0\3\2\2\2}\u01f7\3\2\2\2\177\u01fd\3\2\2\2\u0081"+
|
||||
"\u0206\3\2\2\2\u0083\u0208\3\2\2\2\u0085\u020a\3\2\2\2\u0087\u020c\3\2"+
|
||||
"\2\2\u0089\u020e\3\2\2\2\u008b\u0211\3\2\2\2\u008d\u0214\3\2\2\2\u008f"+
|
||||
"\u0217\3\2\2\2\u0091\u021a\3\2\2\2\u0093\u021d\3\2\2\2\u0095\u0220\3\2"+
|
||||
"\2\2\u0097\u0223\3\2\2\2\u0099\u0226\3\2\2\2\u009b\u022b\3\2\2\2\u009d"+
|
||||
"\u0231\3\2\2\2\u009f\u0236\3\2\2\2\u00a1\u023a\3\2\2\2\u00a3\u023d\3\2"+
|
||||
"\2\2\u00a5\u023f\3\2\2\2\u00a7\u0241\3\2\2\2\u00a9\u0248\3\2\2\2\u00ab"+
|
||||
"\u0251\3\2\2\2\u00ad\u0253\3\2\2\2\u00af\u0256\3\2\2\2\u00b1\u025b\3\2"+
|
||||
"\2\2\u00b3\u0261\3\2\2\2\u00b5\u0267\3\2\2\2\u00b7\u026d\3\2\2\2\u00b9"+
|
||||
"\u0272\3\2\2\2\u00bb\u0278\3\2\2\2\u00bd\u027e\3\2\2\2\u00bf\u0284\3\2"+
|
||||
"\2\2\u00c1\u028b\3\2\2\2\u00c3\u0291\3\2\2\2\u00c5\u0298\3\2\2\2\u00c7"+
|
||||
"\u029e\3\2\2\2\u00c9\u02a4\3\2\2\2\u00cb\u02a8\3\2\2\2\u00cd\u02ab\3\2"+
|
||||
"\2\2\u00cf\u02b1\3\2\2\2\u00d1\u02b8\3\2\2\2\u00d3\u02be\3\2\2\2\u00d5"+
|
||||
"\u02c9\3\2\2\2\u00d7\u02d2\3\2\2\2\u00d9\u02d7\3\2\2\2\u00db\u02db\3\2"+
|
||||
"\2\2\u00dd\u02e9\3\2\2\2\u00df\u02eb\3\2\2\2\u00e1\u02f1\3\2\2\2\u00e3"+
|
||||
"\u02f7\3\2\2\2\u00e5\u0300\3\2\2\2\u00e7\u0310\3\2\2\2\u00e9\u0312\3\2"+
|
||||
"\2\2\u00eb\u031d\3\2\2\2\u00ed\u032a\3\2\2\2\u00ef\u00f0\7\u0080\2\2\u00f0"+
|
||||
"\4\3\2\2\2\u00f1\u00f2\7<\2\2\u00f2\6\3\2\2\2\u00f3\u00f4\7i\2\2\u00f4"+
|
||||
"\u00f5\7q\2\2\u00f5\u00f6\7v\2\2\u00f6\u00f7\7q\2\2\u00f7\b\3\2\2\2\u00f8"+
|
||||
"\u00f9\7\'\2\2\u00f9\u00fa\7q\2\2\u00fa\u00fb\7w\2\2\u00fb\u00fc\7v\2"+
|
||||
"\2\u00fc\u00fd\7r\2\2\u00fd\u00fe\7w\2\2\u00fe\u00ff\7v\2\2\u00ff\n\3"+
|
||||
"\2\2\2\u0100\u0101\7\'\2\2\u0101\u0102\7n\2\2\u0102\u0103\7c\2\2\u0103"+
|
||||
"\u0104\7w\2\2\u0104\u0105\7p\2\2\u0105\u0106\7e\2\2\u0106\u0107\7j\2\2"+
|
||||
"\u0107\u0108\7g\2\2\u0108\u0109\7t\2\2\u0109\f\3\2\2\2\u010a\u010b\7\'"+
|
||||
"\2\2\u010b\u010c\7|\2\2\u010c\u010d\7g\2\2\u010d\u010e\7t\2\2\u010e\u010f"+
|
||||
"\7q\2\2\u010f\u0110\7r\2\2\u0110\u0111\7c\2\2\u0111\u0112\7i\2\2\u0112"+
|
||||
"\u0113\7g\2\2\u0113\16\3\2\2\2\u0114\u0115\7\'\2\2\u0115\u0116\7c\2\2"+
|
||||
"\u0116\u0117\7f\2\2\u0117\u0118\7f\2\2\u0118\u0119\7t\2\2\u0119\u011a"+
|
||||
"\7g\2\2\u011a\u011b\7u\2\2\u011b\u011c\7u\2\2\u011c\20\3\2\2\2\u011d\u011e"+
|
||||
"\7\'\2\2\u011e\u011f\7k\2\2\u011f\u0120\7o\2\2\u0120\u0121\7r\2\2\u0121"+
|
||||
"\u0122\7q\2\2\u0122\u0123\7t\2\2\u0123\u0124\7v\2\2\u0124\22\3\2\2\2\u0125"+
|
||||
"\u0126\7\'\2\2\u0126\u0127\7d\2\2\u0127\u0128\7t\2\2\u0128\u0129\7g\2"+
|
||||
"\2\u0129\u012a\7c\2\2\u012a\u012b\7m\2\2\u012b\u012c\7r\2\2\u012c\u012d"+
|
||||
"\7q\2\2\u012d\u012e\7k\2\2\u012e\u012f\7p\2\2\u012f\u0130\7v\2\2\u0130"+
|
||||
"\24\3\2\2\2\u0131\u0132\7\'\2\2\u0132\u0133\7c\2\2\u0133\u0134\7u\2\2"+
|
||||
"\u0134\u0135\7o\2\2\u0135\u0136\7k\2\2\u0136\u0137\7p\2\2\u0137\u0138"+
|
||||
"\7e\2\2\u0138\u0139\7n\2\2\u0139\u013a\7w\2\2\u013a\u013b\7f\2\2\u013b"+
|
||||
"\u013c\7g\2\2\u013c\26\3\2\2\2\u013d\u013e\7\'\2\2\u013e\u013f\7c\2\2"+
|
||||
"\u013f\u0140\7u\2\2\u0140\u0141\7o\2\2\u0141\u0142\7d\2\2\u0142\u0143"+
|
||||
"\7k\2\2\u0143\u0144\7p\2\2\u0144\u0145\7c\2\2\u0145\u0146\7t\2\2\u0146"+
|
||||
"\u0147\7{\2\2\u0147\30\3\2\2\2\u0148\u0149\7\'\2\2\u0149\u014a\7q\2\2"+
|
||||
"\u014a\u014b\7r\2\2\u014b\u014c\7v\2\2\u014c\u014d\7k\2\2\u014d\u014e"+
|
||||
"\7q\2\2\u014e\u014f\7p\2\2\u014f\32\3\2\2\2\u0150\u0151\7.\2\2\u0151\34"+
|
||||
"\3\2\2\2\u0152\u0153\7?\2\2\u0153\36\3\2\2\2\u0154\u0155\7e\2\2\u0155"+
|
||||
"\u0156\7q\2\2\u0156\u0157\7p\2\2\u0157\u0158\7u\2\2\u0158\u0159\7v\2\2"+
|
||||
"\u0159 \3\2\2\2\u015a\u015b\7o\2\2\u015b\u015c\7g\2\2\u015c\u015d\7o\2"+
|
||||
"\2\u015d\u015e\7q\2\2\u015e\u015f\7t\2\2\u015f\u0160\7{\2\2\u0160\"\3"+
|
||||
"\2\2\2\u0161\u0162\7d\2\2\u0162\u0163\7{\2\2\u0163\u0164\7v\2\2\u0164"+
|
||||
"\u0165\7g\2\2\u0165$\3\2\2\2\u0166\u0167\7y\2\2\u0167\u0168\7q\2\2\u0168"+
|
||||
"\u0169\7t\2\2\u0169\u016a\7f\2\2\u016a&\3\2\2\2\u016b\u016c\7h\2\2\u016c"+
|
||||
"\u016d\7n\2\2\u016d\u016e\7q\2\2\u016e\u016f\7c\2\2\u016f\u0170\7v\2\2"+
|
||||
"\u0170(\3\2\2\2\u0171\u0172\7u\2\2\u0172\u0173\7v\2\2\u0173\u0174\7t\2"+
|
||||
"\2\u0174*\3\2\2\2\u0175\u0176\7u\2\2\u0176\u0177\7v\2\2\u0177\u0178\7"+
|
||||
"t\2\2\u0178\u0179\7a\2\2\u0179\u017a\7r\2\2\u017a,\3\2\2\2\u017b\u017c"+
|
||||
"\7u\2\2\u017c\u017d\7v\2\2\u017d\u017e\7t\2\2\u017e\u017f\7a\2\2\u017f"+
|
||||
"\u0180\7u\2\2\u0180.\3\2\2\2\u0181\u0182\7u\2\2\u0182\u0183\7v\2\2\u0183"+
|
||||
"\u0184\7t\2\2\u0184\u0185\7a\2\2\u0185\u0186\7r\2\2\u0186\u0187\7u\2\2"+
|
||||
"\u0187\60\3\2\2\2\u0188\u0189\7]\2\2\u0189\62\3\2\2\2\u018a\u018b\7_\2"+
|
||||
"\2\u018b\64\3\2\2\2\u018c\u018d\7-\2\2\u018d\u018e\7?\2\2\u018e\66\3\2"+
|
||||
"\2\2\u018f\u0190\7/\2\2\u0190\u0191\7?\2\2\u01918\3\2\2\2\u0192\u0193"+
|
||||
"\7\61\2\2\u0193\u0194\7?\2\2\u0194:\3\2\2\2\u0195\u0196\7\61\2\2\u0196"+
|
||||
"\u0197\7\61\2\2\u0197\u0198\7?\2\2\u0198<\3\2\2\2\u0199\u019a\7,\2\2\u019a"+
|
||||
"\u019b\7?\2\2\u019b>\3\2\2\2\u019c\u019d\7,\2\2\u019d\u019e\7,\2\2\u019e"+
|
||||
"\u019f\7?\2\2\u019f@\3\2\2\2\u01a0\u01a1\7(\2\2\u01a1\u01a2\7?\2\2\u01a2"+
|
||||
"B\3\2\2\2\u01a3\u01a4\7~\2\2\u01a4\u01a5\7?\2\2\u01a5D\3\2\2\2\u01a6\u01a7"+
|
||||
"\7`\2\2\u01a7\u01a8\7?\2\2\u01a8F\3\2\2\2\u01a9\u01aa\7-\2\2\u01aa\u01ab"+
|
||||
"\7-\2\2\u01abH\3\2\2\2\u01ac\u01ad\7/\2\2\u01ad\u01ae\7/\2\2\u01aeJ\3"+
|
||||
"\2\2\2\u01af\u01b0\7*\2\2\u01b0L\3\2\2\2\u01b1\u01b2\7+\2\2\u01b2N\3\2"+
|
||||
"\2\2\u01b3\u01b4\7-\2\2\u01b4P\3\2\2\2\u01b5\u01b6\7/\2\2\u01b6R\3\2\2"+
|
||||
"\2\u01b7\u01b8\7,\2\2\u01b8\u01b9\7,\2\2\u01b9T\3\2\2\2\u01ba\u01bb\7"+
|
||||
",\2\2\u01bbV\3\2\2\2\u01bc\u01bd\7\61\2\2\u01bdX\3\2\2\2\u01be\u01bf\7"+
|
||||
"\61\2\2\u01bf\u01c0\7\61\2\2\u01c0Z\3\2\2\2\u01c1\u01c2\7\'\2\2\u01c2"+
|
||||
"\\\3\2\2\2\u01c3\u01c4\7>\2\2\u01c4^\3\2\2\2\u01c5\u01c6\7@\2\2\u01c6"+
|
||||
"`\3\2\2\2\u01c7\u01c8\7>\2\2\u01c8\u01c9\7?\2\2\u01c9b\3\2\2\2\u01ca\u01cb"+
|
||||
"\7@\2\2\u01cb\u01cc\7?\2\2\u01ccd\3\2\2\2\u01cd\u01ce\7?\2\2\u01ce\u01cf"+
|
||||
"\7?\2\2\u01cff\3\2\2\2\u01d0\u01d1\7#\2\2\u01d1\u01d2\7?\2\2\u01d2h\3"+
|
||||
"\2\2\2\u01d3\u01d4\7(\2\2\u01d4j\3\2\2\2\u01d5\u01d6\7`\2\2\u01d6l\3\2"+
|
||||
"\2\2\u01d7\u01d8\7~\2\2\u01d8n\3\2\2\2\u01d9\u01da\7v\2\2\u01da\u01db"+
|
||||
"\7q\2\2\u01dbp\3\2\2\2\u01dc\u01dd\7u\2\2\u01dd\u01de\7v\2\2\u01de\u01df"+
|
||||
"\7g\2\2\u01df\u01e0\7r\2\2\u01e0r\3\2\2\2\u01e1\u01e2\7c\2\2\u01e2\u01e3"+
|
||||
"\7p\2\2\u01e3\u01e4\7f\2\2\u01e4t\3\2\2\2\u01e5\u01e6\7q\2\2\u01e6\u01e7"+
|
||||
"\7t\2\2\u01e7v\3\2\2\2\u01e8\u01e9\7z\2\2\u01e9\u01ea\7q\2\2\u01ea\u01eb"+
|
||||
"\7t\2\2\u01ebx\3\2\2\2\u01ec\u01ed\7p\2\2\u01ed\u01ee\7q\2\2\u01ee\u01ef"+
|
||||
"\7v\2\2\u01efz\3\2\2\2\u01f0\u01f1\7t\2\2\u01f1\u01f2\7g\2\2\u01f2\u01f3"+
|
||||
"\7v\2\2\u01f3\u01f4\7w\2\2\u01f4\u01f5\7t\2\2\u01f5\u01f6\7p\2\2\u01f6"+
|
||||
"|\3\2\2\2\u01f7\u01f8\7d\2\2\u01f8\u01f9\7t\2\2\u01f9\u01fa\7g\2\2\u01fa"+
|
||||
"\u01fb\7c\2\2\u01fb\u01fc\7m\2\2\u01fc~\3\2\2\2\u01fd\u01fe\7e\2\2\u01fe"+
|
||||
"\u01ff\7q\2\2\u01ff\u0200\7p\2\2\u0200\u0201\7v\2\2\u0201\u0202\7k\2\2"+
|
||||
"\u0202\u0203\7p\2\2\u0203\u0204\7w\2\2\u0204\u0205\7g\2\2\u0205\u0080"+
|
||||
"\3\2\2\2\u0206\u0207\7\60\2\2\u0207\u0082\3\2\2\2\u0208\u0209\7C\2\2\u0209"+
|
||||
"\u0084\3\2\2\2\u020a\u020b\7Z\2\2\u020b\u0086\3\2\2\2\u020c\u020d\7[\2"+
|
||||
"\2\u020d\u0088\3\2\2\2\u020e\u020f\7C\2\2\u020f\u0210\7Z\2\2\u0210\u008a"+
|
||||
"\3\2\2\2\u0211\u0212\7C\2\2\u0212\u0213\7[\2\2\u0213\u008c\3\2\2\2\u0214"+
|
||||
"\u0215\7Z\2\2\u0215\u0216\7[\2\2\u0216\u008e\3\2\2\2\u0217\u0218\7R\2"+
|
||||
"\2\u0218\u0219\7e\2\2\u0219\u0090\3\2\2\2\u021a\u021b\7R\2\2\u021b\u021c"+
|
||||
"\7|\2\2\u021c\u0092\3\2\2\2\u021d\u021e\7R\2\2\u021e\u021f\7p\2\2\u021f"+
|
||||
"\u0094\3\2\2\2\u0220\u0221\7R\2\2\u0221\u0222\7x\2\2\u0222\u0096\3\2\2"+
|
||||
"\2\u0223\u0224\7\60\2\2\u0224\u0225\7y\2\2\u0225\u0098\3\2\2\2\u0226\u0227"+
|
||||
"\7v\2\2\u0227\u0228\7t\2\2\u0228\u0229\7w\2\2\u0229\u022a\7g\2\2\u022a"+
|
||||
"\u009a\3\2\2\2\u022b\u022c\7h\2\2\u022c\u022d\7c\2\2\u022d\u022e\7n\2"+
|
||||
"\2\u022e\u022f\7u\2\2\u022f\u0230\7g\2\2\u0230\u009c\3\2\2\2\u0231\u0232"+
|
||||
"\7\'\2\2\u0232\u0233\7c\2\2\u0233\u0234\7u\2\2\u0234\u0235\7o\2\2\u0235"+
|
||||
"\u009e\3\2\2\2\u0236\u0237\7u\2\2\u0237\u0238\7w\2\2\u0238\u0239\7d\2"+
|
||||
"\2\u0239\u00a0\3\2\2\2\u023a\u023b\7/\2\2\u023b\u023c\7@\2\2\u023c\u00a2"+
|
||||
"\3\2\2\2\u023d\u023e\7}\2\2\u023e\u00a4\3\2\2\2\u023f\u0240\7\177\2\2"+
|
||||
"\u0240\u00a6\3\2\2\2\u0241\u0242\7c\2\2\u0242\u0243\7u\2\2\u0243\u0244"+
|
||||
"\7o\2\2\u0244\u0245\7u\2\2\u0245\u0246\7w\2\2\u0246\u0247\7d\2\2\u0247"+
|
||||
"\u00a8\3\2\2\2\u0248\u0249\7e\2\2\u0249\u024a\7n\2\2\u024a\u024b\7q\2"+
|
||||
"\2\u024b\u024c\7d\2\2\u024c\u024d\7d\2\2\u024d\u024e\7g\2\2\u024e\u024f"+
|
||||
"\7t\2\2\u024f\u0250\7u\2\2\u0250\u00aa\3\2\2\2\u0251\u0252\7B\2\2\u0252"+
|
||||
"\u00ac\3\2\2\2\u0253\u0254\7k\2\2\u0254\u0255\7h\2\2\u0255\u00ae\3\2\2"+
|
||||
"\2\u0256\u0257\7g\2\2\u0257\u0258\7n\2\2\u0258\u0259\7u\2\2\u0259\u025a"+
|
||||
"\7g\2\2\u025a\u00b0\3\2\2\2\u025b\u025c\7k\2\2\u025c\u025d\7h\2\2\u025d"+
|
||||
"\u025e\7a\2\2\u025e\u025f\7e\2\2\u025f\u0260\7u\2\2\u0260\u00b2\3\2\2"+
|
||||
"\2\u0261\u0262\7k\2\2\u0262\u0263\7h\2\2\u0263\u0264\7a\2\2\u0264\u0265"+
|
||||
"\7e\2\2\u0265\u0266\7e\2\2\u0266\u00b4\3\2\2\2\u0267\u0268\7k\2\2\u0268"+
|
||||
"\u0269\7h\2\2\u0269\u026a\7a\2\2\u026a\u026b\7g\2\2\u026b\u026c\7s\2\2"+
|
||||
"\u026c\u00b6\3\2\2\2\u026d\u026e\7k\2\2\u026e\u026f\7h\2\2\u026f\u0270"+
|
||||
"\7a\2\2\u0270\u0271\7|\2\2\u0271\u00b8\3\2\2\2\u0272\u0273\7k\2\2\u0273"+
|
||||
"\u0274\7h\2\2\u0274\u0275\7a\2\2\u0275\u0276\7p\2\2\u0276\u0277\7g\2\2"+
|
||||
"\u0277\u00ba\3\2\2\2\u0278\u0279\7k\2\2\u0279\u027a\7h\2\2\u027a\u027b"+
|
||||
"\7a\2\2\u027b\u027c\7p\2\2\u027c\u027d\7|\2\2\u027d\u00bc\3\2\2\2\u027e"+
|
||||
"\u027f\7k\2\2\u027f\u0280\7h\2\2\u0280\u0281\7a\2\2\u0281\u0282\7r\2\2"+
|
||||
"\u0282\u0283\7n\2\2\u0283\u00be\3\2\2\2\u0284\u0285\7k\2\2\u0285\u0286"+
|
||||
"\7h\2\2\u0286\u0287\7a\2\2\u0287\u0288\7r\2\2\u0288\u0289\7q\2\2\u0289"+
|
||||
"\u028a\7u\2\2\u028a\u00c0\3\2\2\2\u028b\u028c\7k\2\2\u028c\u028d\7h\2"+
|
||||
"\2\u028d\u028e\7a\2\2\u028e\u028f\7o\2\2\u028f\u0290\7k\2\2\u0290\u00c2"+
|
||||
"\3\2\2\2\u0291\u0292\7k\2\2\u0292\u0293\7h\2\2\u0293\u0294\7a\2\2\u0294"+
|
||||
"\u0295\7p\2\2\u0295\u0296\7g\2\2\u0296\u0297\7i\2\2\u0297\u00c4\3\2\2"+
|
||||
"\2\u0298\u0299\7k\2\2\u0299\u029a\7h\2\2\u029a\u029b\7a\2\2\u029b\u029c"+
|
||||
"\7x\2\2\u029c\u029d\7u\2\2\u029d\u00c6\3\2\2\2\u029e\u029f\7k\2\2\u029f"+
|
||||
"\u02a0\7h\2\2\u02a0\u02a1\7a\2\2\u02a1\u02a2\7x\2\2\u02a2\u02a3\7e\2\2"+
|
||||
"\u02a3\u00c8\3\2\2\2\u02a4\u02a5\7h\2\2\u02a5\u02a6\7q\2\2\u02a6\u02a7"+
|
||||
"\7t\2\2\u02a7\u00ca\3\2\2\2\u02a8\u02a9\7k\2\2\u02a9\u02aa\7p\2\2\u02aa"+
|
||||
"\u00cc\3\2\2\2\u02ab\u02ac\7y\2\2\u02ac\u02ad\7j\2\2\u02ad\u02ae\7k\2"+
|
||||
"\2\u02ae\u02af\7n\2\2\u02af\u02b0\7g\2\2\u02b0\u00ce\3\2\2\2\u02b1\u02b2"+
|
||||
"\7t\2\2\u02b2\u02b3\7g\2\2\u02b3\u02b4\7r\2\2\u02b4\u02b5\7g\2\2\u02b5"+
|
||||
"\u02b6\7c\2\2\u02b6\u02b7\7v\2\2\u02b7\u00d0\3\2\2\2\u02b8\u02b9\7w\2"+
|
||||
"\2\u02b9\u02ba\7p\2\2\u02ba\u02bb\7v\2\2\u02bb\u02bc\7k\2\2\u02bc\u02bd"+
|
||||
"\7n\2\2\u02bd\u00d2\3\2\2\2\u02be\u02c2\t\2\2\2\u02bf\u02c1\t\3\2\2\u02c0"+
|
||||
"\u02bf\3\2\2\2\u02c1\u02c4\3\2\2\2\u02c2\u02c0\3\2\2\2\u02c2\u02c3\3\2"+
|
||||
"\2\2\u02c3\u02c5\3\2\2\2\u02c4\u02c2\3\2\2\2\u02c5\u02c6\5\u00d5k\2\u02c6"+
|
||||
"\u02c7\3\2\2\2\u02c7\u02c8\bj\2\2\u02c8\u00d4\3\2\2\2\u02c9\u02cd\7=\2"+
|
||||
"\2\u02ca\u02cc\n\2\2\2\u02cb\u02ca\3\2\2\2\u02cc\u02cf\3\2\2\2\u02cd\u02cb"+
|
||||
"\3\2\2\2\u02cd\u02ce\3\2\2\2\u02ce\u02d0\3\2\2\2\u02cf\u02cd\3\2\2\2\u02d0"+
|
||||
"\u02d1\bk\2\2\u02d1\u00d6\3\2\2\2\u02d2\u02d3\t\3\2\2\u02d3\u02d4\3\2"+
|
||||
"\2\2\u02d4\u02d5\bl\3\2\u02d5\u00d8\3\2\2\2\u02d6\u02d8\t\2\2\2\u02d7"+
|
||||
"\u02d6\3\2\2\2\u02d8\u02d9\3\2\2\2\u02d9\u02d7\3\2\2\2\u02d9\u02da\3\2"+
|
||||
"\2\2\u02da\u00da\3\2\2\2\u02db\u02df\t\4\2\2\u02dc\u02de\t\5\2\2\u02dd"+
|
||||
"\u02dc\3\2\2\2\u02de\u02e1\3\2\2\2\u02df\u02dd\3\2\2\2\u02df\u02e0\3\2"+
|
||||
"\2\2\u02e0\u00dc\3\2\2\2\u02e1\u02df\3\2\2\2\u02e2\u02ea\4\62;\2\u02e3"+
|
||||
"\u02e5\4\63;\2\u02e4\u02e6\4\62;\2\u02e5\u02e4\3\2\2\2\u02e6\u02e7\3\2"+
|
||||
"\2\2\u02e7\u02e5\3\2\2\2\u02e7\u02e8\3\2\2\2\u02e8\u02ea\3\2\2\2\u02e9"+
|
||||
"\u02e2\3\2\2\2\u02e9\u02e3\3\2\2\2\u02ea\u00de\3\2\2\2\u02eb\u02ed\7&"+
|
||||
"\2\2\u02ec\u02ee\t\6\2\2\u02ed\u02ec\3\2\2\2\u02ee\u02ef\3\2\2\2\u02ef"+
|
||||
"\u02ed\3\2\2\2\u02ef\u02f0\3\2\2\2\u02f0\u00e0\3\2\2\2\u02f1\u02f3\7\'"+
|
||||
"\2\2\u02f2\u02f4\4\62\63\2\u02f3\u02f2\3\2\2\2\u02f4\u02f5\3\2\2\2\u02f5"+
|
||||
"\u02f3\3\2\2\2\u02f5\u02f6\3\2\2\2\u02f6\u00e2\3\2\2\2\u02f7\u02fd\5\u00e5"+
|
||||
"s\2\u02f8\u02fa\t\7\2\2\u02f9\u02fb\t\b\2\2\u02fa\u02f9\3\2\2\2\u02fa"+
|
||||
"\u02fb\3\2\2\2\u02fb\u02fc\3\2\2\2\u02fc\u02fe\5\u00e5s\2\u02fd\u02f8"+
|
||||
"\3\2\2\2\u02fd\u02fe\3\2\2\2\u02fe\u00e4\3\2\2\2\u02ff\u0301\4\62;\2\u0300"+
|
||||
"\u02ff\3\2\2\2\u0301\u0302\3\2\2\2\u0302\u0300\3\2\2\2\u0302\u0303\3\2"+
|
||||
"\2\2\u0303\u030a\3\2\2\2\u0304\u0306\7\60\2\2\u0305\u0307\4\62;\2\u0306"+
|
||||
"\u0305\3\2\2\2\u0307\u0308\3\2\2\2\u0308\u0306\3\2\2\2\u0308\u0309\3\2"+
|
||||
"\2\2\u0309\u030b\3\2\2\2\u030a\u0304\3\2\2\2\u030a\u030b\3\2\2\2\u030b"+
|
||||
"\u00e6\3\2\2\2\u030c\u030d\7^\2\2\u030d\u0311\13\2\2\2\u030e\u030f\7^"+
|
||||
"\2\2\u030f\u0311\5\u00d9m\2\u0310\u030c\3\2\2\2\u0310\u030e\3\2\2\2\u0311"+
|
||||
"\u00e8\3\2\2\2\u0312\u0317\7$\2\2\u0313\u0316\5\u00e7t\2\u0314\u0316\n"+
|
||||
"\t\2\2\u0315\u0313\3\2\2\2\u0315\u0314\3\2\2\2\u0316\u0319\3\2\2\2\u0317"+
|
||||
"\u0315\3\2\2\2\u0317\u0318\3\2\2\2\u0318\u031a\3\2\2\2\u0319\u0317\3\2"+
|
||||
"\2\2\u031a\u031b\7$\2\2\u031b\u031c\bu\4\2\u031c\u00ea\3\2\2\2\u031d\u031e"+
|
||||
"\7}\2\2\u031e\u031f\7}\2\2\u031f\u0321\3\2\2\2\u0320\u0322\13\2\2\2\u0321"+
|
||||
"\u0320\3\2\2\2\u0322\u0323\3\2\2\2\u0323\u0324\3\2\2\2\u0323\u0321\3\2"+
|
||||
"\2\2\u0324\u0325\3\2\2\2\u0325\u0326\7\177\2\2\u0326\u0327\7\177\2\2\u0327"+
|
||||
"\u0328\3\2\2\2\u0328\u0329\bv\5\2\u0329\u00ec\3\2\2\2\u032a\u032d\7)\2"+
|
||||
"\2\u032b\u032e\5\u00e7t\2\u032c\u032e\n\t\2\2\u032d\u032b\3\2\2\2\u032d"+
|
||||
"\u032c\3\2\2\2\u032e\u032f\3\2\2\2\u032f\u0330\7)\2\2\u0330\u0331\bw\6"+
|
||||
"\2\u0331\u00ee\3\2\2\2\26\2\u02c2\u02cd\u02d9\u02df\u02e7\u02e9\u02ed"+
|
||||
"\u02ef\u02f5\u02fa\u02fd\u0302\u0308\u030a\u0310\u0315\u0317\u0323\u032d"+
|
||||
"\7\2\3\2\b\2\2\3u\2\3v\3\3w\4";
|
||||
public static final ATN _ATN =
|
||||
new ATNDeserializer().deserialize(_serializedATN.toCharArray());
|
||||
static {
|
||||
|
||||
File diff suppressed because it is too large
Load Diff
1033
prog8lib/c64lib.p8
1033
prog8lib/c64lib.p8
File diff suppressed because it is too large
Load Diff
1085
prog8lib/c64lib_old.p8
Normal file
1085
prog8lib/c64lib_old.p8
Normal file
File diff suppressed because it is too large
Load Diff
860
prog8lib/c64utils.p8
Normal file
860
prog8lib/c64utils.p8
Normal file
@ -0,0 +1,860 @@
|
||||
; Prog8 definitions for the Commodore-64
|
||||
; These are the utility subroutines.
|
||||
;
|
||||
; Written by Irmen de Jong (irmen@razorvine.net) - license: GNU GPL 3.0
|
||||
;
|
||||
; indent format: TABS, size=8
|
||||
|
||||
|
||||
%import c64lib
|
||||
|
||||
|
||||
~ c64utils {
|
||||
|
||||
; ----- utility functions ----
|
||||
|
||||
asmsub init_system () -> clobbers(A,X,Y) -> () {
|
||||
; ---- initializes the machine to a sane starting state
|
||||
; This means that the BASIC, KERNAL and CHARGEN ROMs are banked in,
|
||||
; the VIC, SID and CIA chips are reset, screen is cleared, and the default IRQ is set.
|
||||
; Also a different color scheme is chosen to identify ourselves a little.
|
||||
%asm {{
|
||||
sei
|
||||
cld
|
||||
lda #%00101111
|
||||
sta $00
|
||||
lda #%00100111
|
||||
sta $01
|
||||
jsr c64.IOINIT
|
||||
jsr c64.RESTOR
|
||||
jsr c64.CINT
|
||||
lda #6
|
||||
sta c64.EXTCOL
|
||||
lda #7
|
||||
sta c64.COLOR
|
||||
lda #0
|
||||
sta c64.BGCOL0
|
||||
tax
|
||||
tay
|
||||
clc
|
||||
clv
|
||||
cli
|
||||
rts
|
||||
}}
|
||||
}
|
||||
|
||||
asmsub byte2decimal (ubyte: byte @ A) -> clobbers() -> (byte @ Y, byte @ X, byte @ A) {
|
||||
; ---- A to decimal string in Y/X/A (100s in Y, 10s in X, 1s in A)
|
||||
%asm {{
|
||||
ldy #$2f
|
||||
ldx #$3a
|
||||
sec
|
||||
- iny
|
||||
sbc #100
|
||||
bcs -
|
||||
- dex
|
||||
adc #10
|
||||
bmi -
|
||||
adc #$2f
|
||||
rts
|
||||
}}
|
||||
}
|
||||
|
||||
asmsub byte2hex (ubyte: byte @ A) -> clobbers(A) -> (byte @ X, byte @ Y) {
|
||||
; ---- A to hex string in XY (first hex char in X, second hex char in Y)
|
||||
%asm {{
|
||||
pha
|
||||
and #$0f
|
||||
tax
|
||||
ldy hex_digits,x
|
||||
pla
|
||||
lsr a
|
||||
lsr a
|
||||
lsr a
|
||||
lsr a
|
||||
tax
|
||||
lda hex_digits,x
|
||||
tax
|
||||
rts
|
||||
|
||||
hex_digits .str "0123456789abcdef" ; can probably be reused for other stuff as well
|
||||
}}
|
||||
}
|
||||
|
||||
|
||||
str word2hex_output = "1234" ; 0-terminated, to make printing easier
|
||||
asmsub word2hex (dataword: word @ XY) -> clobbers(A,X,Y) -> () {
|
||||
; ---- convert 16 bit word in X/Y into 4-character hexadecimal string into memory 'word2hex_output'
|
||||
%asm {{
|
||||
stx c64.SCRATCH_ZP2
|
||||
tya
|
||||
jsr byte2hex
|
||||
stx word2hex_output
|
||||
sty word2hex_output+1
|
||||
lda c64.SCRATCH_ZP2
|
||||
jsr byte2hex
|
||||
stx word2hex_output+2
|
||||
sty word2hex_output+3
|
||||
rts
|
||||
}}
|
||||
}
|
||||
|
||||
byte[3] word2bcd_bcdbuff = [0, 0, 0]
|
||||
asmsub word2bcd (dataword: word @ XY) -> clobbers(A,X) -> () {
|
||||
; Convert an 16 bit binary value to BCD
|
||||
;
|
||||
; This function converts a 16 bit binary value in X/Y into a 24 bit BCD. It
|
||||
; works by transferring one bit a time from the source and adding it
|
||||
; into a BCD value that is being doubled on each iteration. As all the
|
||||
; arithmetic is being done in BCD the result is a binary to decimal
|
||||
; conversion.
|
||||
%asm {{
|
||||
stx c64.SCRATCH_ZP1
|
||||
sty c64.SCRATCH_ZP2
|
||||
sed ; switch to decimal mode
|
||||
lda #0 ; ensure the result is clear
|
||||
sta word2bcd_bcdbuff+0
|
||||
sta word2bcd_bcdbuff+1
|
||||
sta word2bcd_bcdbuff+2
|
||||
ldx #16 ; the number of source bits
|
||||
|
||||
- asl c64.SCRATCH_ZP1 ; shift out one bit
|
||||
rol c64.SCRATCH_ZP2
|
||||
lda word2bcd_bcdbuff+0 ; and add into result
|
||||
adc word2bcd_bcdbuff+0
|
||||
sta word2bcd_bcdbuff+0
|
||||
lda word2bcd_bcdbuff+1 ; propagating any carry
|
||||
adc word2bcd_bcdbuff+1
|
||||
sta word2bcd_bcdbuff+1
|
||||
lda word2bcd_bcdbuff+2 ; ... thru whole result
|
||||
adc word2bcd_bcdbuff+2
|
||||
sta word2bcd_bcdbuff+2
|
||||
dex ; and repeat for next bit
|
||||
bne -
|
||||
cld ; back to binary
|
||||
rts
|
||||
}}
|
||||
}
|
||||
|
||||
|
||||
byte[5] word2decimal_output = 0
|
||||
asmsub word2decimal (dataword: word @ XY) -> clobbers(A,X,Y) -> () {
|
||||
; ---- convert 16 bit word in X/Y into decimal string into memory 'word2decimal_output'
|
||||
%asm {{
|
||||
jsr word2bcd
|
||||
lda word2bcd_bcdbuff+2
|
||||
clc
|
||||
adc #'0'
|
||||
sta word2decimal_output
|
||||
ldy #1
|
||||
lda word2bcd_bcdbuff+1
|
||||
jsr +
|
||||
lda word2bcd_bcdbuff+0
|
||||
|
||||
+ pha
|
||||
lsr a
|
||||
lsr a
|
||||
lsr a
|
||||
lsr a
|
||||
clc
|
||||
adc #'0'
|
||||
sta word2decimal_output,y
|
||||
iny
|
||||
pla
|
||||
and #$0f
|
||||
adc #'0'
|
||||
sta word2decimal_output,y
|
||||
iny
|
||||
rts
|
||||
}}
|
||||
}
|
||||
|
||||
|
||||
; @todo string to 32 bit unsigned integer http://www.6502.org/source/strings/ascii-to-32bit.html
|
||||
|
||||
|
||||
} ; ------ end of block c64utils
|
||||
|
||||
|
||||
~ c64flt {
|
||||
; ---- this block contains C-64 floating point related functions ----
|
||||
|
||||
|
||||
asmsub FREADS32 () -> clobbers(A,X,Y) -> () {
|
||||
; ---- fac1 = signed int32 from $62-$65 big endian (MSB FIRST)
|
||||
%asm {{
|
||||
lda $62
|
||||
eor #$ff
|
||||
asl a
|
||||
lda #0
|
||||
ldx #$a0
|
||||
jmp $bc4f ; internal BASIC routine
|
||||
}}
|
||||
}
|
||||
|
||||
asmsub FREADUS32 () -> clobbers(A,X,Y) -> () {
|
||||
; ---- fac1 = uint32 from $62-$65 big endian (MSB FIRST)
|
||||
%asm {{
|
||||
sec
|
||||
lda #0
|
||||
ldx #$a0
|
||||
jmp $bc4f ; internal BASIC routine
|
||||
}}
|
||||
}
|
||||
|
||||
asmsub FREADS24AXY (lo: byte @ A, mid: byte @ X, hi: byte @ Y) -> clobbers(A,X,Y) -> () {
|
||||
; ---- fac1 = signed int24 (A/X/Y contain lo/mid/hi bytes)
|
||||
; note: there is no FREADU24AXY (unsigned), use FREADUS32 instead.
|
||||
%asm {{
|
||||
sty $62
|
||||
stx $63
|
||||
sta $64
|
||||
lda $62
|
||||
eor #$FF
|
||||
asl a
|
||||
lda #0
|
||||
sta $65
|
||||
ldx #$98
|
||||
jmp $bc4f ; internal BASIC routine
|
||||
}}
|
||||
}
|
||||
|
||||
asmsub GIVUAYF (uword: word @ AY) -> clobbers(A,X,Y) -> () {
|
||||
; ---- unsigned 16 bit word in A/Y (lo/hi) to fac1
|
||||
%asm {{
|
||||
sty $62
|
||||
sta $63
|
||||
ldx #$90
|
||||
sec
|
||||
jmp $bc49 ; internal BASIC routine
|
||||
}}
|
||||
}
|
||||
|
||||
asmsub GIVAYFAY (sword: word @ AY) -> clobbers(A,X,Y) -> () {
|
||||
; ---- signed 16 bit word in A/Y (lo/hi) to float in fac1
|
||||
%asm {{
|
||||
sta c64.SCRATCH_ZP1
|
||||
tya
|
||||
ldy c64.SCRATCH_ZP1
|
||||
jmp c64.GIVAYF ; this uses the inverse order, Y/A
|
||||
}}
|
||||
}
|
||||
|
||||
asmsub FTOSWRDAY () -> clobbers(X) -> (word @ AY) {
|
||||
; ---- fac1 to signed word in A/Y
|
||||
%asm {{
|
||||
jsr c64.FTOSWORDYA ; note the inverse Y/A order
|
||||
sta c64.SCRATCH_ZP1
|
||||
tya
|
||||
ldy c64.SCRATCH_ZP1
|
||||
rts
|
||||
}}
|
||||
}
|
||||
|
||||
asmsub GETADRAY () -> clobbers(X) -> (word @ AY) {
|
||||
; ---- fac1 to unsigned word in A/Y
|
||||
%asm {{
|
||||
jsr c64.GETADR ; this uses the inverse order, Y/A
|
||||
sta c64.SCRATCH_ZP1
|
||||
tya
|
||||
ldy c64.SCRATCH_ZP1
|
||||
rts
|
||||
}}
|
||||
}
|
||||
|
||||
|
||||
asmsub copy_mflt (source: word @ XY) -> clobbers(A,Y) -> () {
|
||||
; ---- copy a 5 byte MFLT floating point variable to another place
|
||||
; input: X/Y = source address, c64.SCRATCH_ZPWORD1 = destination address
|
||||
%asm {{
|
||||
stx c64.SCRATCH_ZP1
|
||||
sty c64.SCRATCH_ZPWORD1+1
|
||||
ldy #0
|
||||
lda (c64.SCRATCH_ZP1),y
|
||||
sta (c64.SCRATCH_ZPWORD1),y
|
||||
iny
|
||||
lda (c64.SCRATCH_ZP1),y
|
||||
sta (c64.SCRATCH_ZPWORD1),y
|
||||
iny
|
||||
lda (c64.SCRATCH_ZP1),y
|
||||
sta (c64.SCRATCH_ZPWORD1),y
|
||||
iny
|
||||
lda (c64.SCRATCH_ZP1),y
|
||||
sta (c64.SCRATCH_ZPWORD1),y
|
||||
iny
|
||||
lda (c64.SCRATCH_ZP1),y
|
||||
sta (c64.SCRATCH_ZPWORD1),y
|
||||
ldy c64.SCRATCH_ZPWORD1+1
|
||||
rts
|
||||
}}
|
||||
}
|
||||
|
||||
asmsub float_add_one (mflt: word @ XY) -> clobbers(A,X,Y) -> () {
|
||||
; ---- add 1 to the MFLT pointed to by X/Y. Clobbers A, X, Y
|
||||
%asm {{
|
||||
stx c64.SCRATCH_ZP1
|
||||
sty c64.SCRATCH_ZP2
|
||||
txa
|
||||
jsr c64.MOVFM ; fac1 = float XY
|
||||
lda #<c64.FL_FONE
|
||||
ldy #>c64.FL_FONE
|
||||
jsr c64.FADD ; fac1 += 1
|
||||
ldx c64.SCRATCH_ZP1
|
||||
ldy c64.SCRATCH_ZP2
|
||||
jmp c64.FTOMEMXY ; float XY = fac1
|
||||
}}
|
||||
}
|
||||
|
||||
asmsub float_sub_one (mflt: word @ XY) -> clobbers(A,X,Y) -> () {
|
||||
; ---- subtract 1 from the MFLT pointed to by X/Y. Clobbers A, X, Y
|
||||
%asm {{
|
||||
stx c64.SCRATCH_ZP1
|
||||
sty c64.SCRATCH_ZP2
|
||||
lda #<c64.FL_FONE
|
||||
ldy #>c64.FL_FONE
|
||||
jsr c64.MOVFM ; fac1 = 1
|
||||
txa
|
||||
ldy c64.SCRATCH_ZP2
|
||||
jsr c64.FSUB ; fac1 = float XY - 1
|
||||
ldx c64.SCRATCH_ZP1
|
||||
ldy c64.SCRATCH_ZP2
|
||||
jmp c64.FTOMEMXY ; float XY = fac1
|
||||
}}
|
||||
}
|
||||
|
||||
asmsub float_add_SW1_to_XY (mflt: word @ XY) -> clobbers(A,X,Y) -> () {
|
||||
; ---- add MFLT pointed to by SCRATCH_ZPWORD1 to the MFLT pointed to by X/Y. Clobbers A, X, Y
|
||||
%asm {{
|
||||
stx c64.SCRATCH_ZP1
|
||||
sty c64.SCRATCH_ZP2
|
||||
txa
|
||||
jsr c64.MOVFM ; fac1 = float XY
|
||||
lda c64.SCRATCH_ZPWORD1
|
||||
ldy c64.SCRATCH_ZPWORD1+1
|
||||
jsr c64.FADD ; fac1 += SCRATCH_ZPWORD1
|
||||
ldx c64.SCRATCH_ZP1
|
||||
ldy c64.SCRATCH_ZP2
|
||||
jmp c64.FTOMEMXY ; float XY = fac1
|
||||
}}
|
||||
}
|
||||
|
||||
asmsub float_sub_SW1_from_XY (mflt: word @ XY) -> clobbers(A,X,Y) -> () {
|
||||
; ---- subtract MFLT pointed to by SCRATCH_ZPWORD1 from the MFLT pointed to by X/Y. Clobbers A, X, Y
|
||||
%asm {{
|
||||
stx c64.SCRATCH_ZP1
|
||||
sty c64.SCRATCH_ZP2
|
||||
lda c64.SCRATCH_ZPWORD1
|
||||
ldy c64.SCRATCH_ZPWORD1+1
|
||||
jsr c64.MOVFM ; fac1 = SCRATCH_ZPWORD1
|
||||
txa
|
||||
ldy c64.SCRATCH_ZP2
|
||||
jsr c64.FSUB ; fac1 = float XY - SCRATCH_ZPWORD1
|
||||
ldx c64.SCRATCH_ZP1
|
||||
ldy c64.SCRATCH_ZP2
|
||||
jmp c64.FTOMEMXY ; float XY = fac1
|
||||
}}
|
||||
}
|
||||
|
||||
} ; ------ end of block c64flt
|
||||
|
||||
|
||||
|
||||
~ c64scr {
|
||||
; ---- this block contains (character) Screen and text I/O related functions ----
|
||||
|
||||
|
||||
asmsub clear_screen (char: byte @ A, color: byte @ Y) -> clobbers() -> () {
|
||||
; ---- clear the character screen with the given fill character and character color.
|
||||
; (assumes screen is at $0400, could be altered in the future with self-modifying code)
|
||||
; @todo some byte var to set the SCREEN ADDR HI BYTE
|
||||
|
||||
%asm {{
|
||||
sta _loop + 1 ; self-modifying
|
||||
stx c64.SCRATCH_ZP1
|
||||
ldx #0
|
||||
_loop lda #0
|
||||
sta c64.Screen,x
|
||||
sta c64.Screen+$0100,x
|
||||
sta c64.Screen+$0200,x
|
||||
sta c64.Screen+$02e8,x
|
||||
tya
|
||||
sta c64.Colors,x
|
||||
sta c64.Colors+$0100,x
|
||||
sta c64.Colors+$0200,x
|
||||
sta c64.Colors+$02e8,x
|
||||
inx
|
||||
bne _loop
|
||||
|
||||
lda _loop+1 ; restore A and X
|
||||
ldx c64.SCRATCH_ZP1
|
||||
rts
|
||||
}}
|
||||
|
||||
}
|
||||
|
||||
|
||||
asmsub scroll_left_full (alsocolors: byte @ Pc) -> clobbers(A, X, Y) -> () {
|
||||
; ---- scroll the whole screen 1 character to the left
|
||||
; contents of the rightmost column are unchanged, you should clear/refill this yourself
|
||||
; Carry flag determines if screen color data must be scrolled too
|
||||
%asm {{
|
||||
bcs +
|
||||
jmp _scroll_screen
|
||||
|
||||
+ ; scroll the color memory
|
||||
ldx #0
|
||||
ldy #38
|
||||
-
|
||||
.for row=0, row<=12, row+=1
|
||||
lda c64.Colors + 40*row + 1,x
|
||||
sta c64.Colors + 40*row,x
|
||||
.next
|
||||
inx
|
||||
dey
|
||||
bpl -
|
||||
|
||||
ldx #0
|
||||
ldy #38
|
||||
-
|
||||
.for row=13, row<=24, row+=1
|
||||
lda c64.Colors + 40*row + 1,x
|
||||
sta c64.Colors + 40*row,x
|
||||
.next
|
||||
inx
|
||||
dey
|
||||
bpl -
|
||||
|
||||
_scroll_screen ; scroll the screen memory
|
||||
ldx #0
|
||||
ldy #38
|
||||
-
|
||||
.for row=0, row<=12, row+=1
|
||||
lda c64.Screen + 40*row + 1,x
|
||||
sta c64.Screen + 40*row,x
|
||||
.next
|
||||
inx
|
||||
dey
|
||||
bpl -
|
||||
|
||||
ldx #0
|
||||
ldy #38
|
||||
-
|
||||
.for row=13, row<=24, row+=1
|
||||
lda c64.Screen + 40*row + 1,x
|
||||
sta c64.Screen + 40*row,x
|
||||
.next
|
||||
inx
|
||||
dey
|
||||
bpl -
|
||||
|
||||
rts
|
||||
}}
|
||||
}
|
||||
|
||||
|
||||
asmsub scroll_right_full (alsocolors: byte @ Pc) -> clobbers(A,X) -> () {
|
||||
; ---- scroll the whole screen 1 character to the right
|
||||
; contents of the leftmost column are unchanged, you should clear/refill this yourself
|
||||
; Carry flag determines if screen color data must be scrolled too
|
||||
%asm {{
|
||||
bcs +
|
||||
jmp _scroll_screen
|
||||
|
||||
+ ; scroll the color memory
|
||||
ldx #38
|
||||
-
|
||||
.for row=0, row<=12, row+=1
|
||||
lda c64.Colors + 40*row + 0,x
|
||||
sta c64.Colors + 40*row + 1,x
|
||||
.next
|
||||
dex
|
||||
bpl -
|
||||
|
||||
ldx #38
|
||||
-
|
||||
.for row=13, row<=24, row+=1
|
||||
lda c64.Colors + 40*row,x
|
||||
sta c64.Colors + 40*row + 1,x
|
||||
.next
|
||||
dex
|
||||
bpl -
|
||||
|
||||
_scroll_screen ; scroll the screen memory
|
||||
ldx #38
|
||||
-
|
||||
.for row=0, row<=12, row+=1
|
||||
lda c64.Screen + 40*row + 0,x
|
||||
sta c64.Screen + 40*row + 1,x
|
||||
.next
|
||||
dex
|
||||
bpl -
|
||||
|
||||
ldx #38
|
||||
-
|
||||
.for row=13, row<=24, row+=1
|
||||
lda c64.Screen + 40*row,x
|
||||
sta c64.Screen + 40*row + 1,x
|
||||
.next
|
||||
dex
|
||||
bpl -
|
||||
|
||||
rts
|
||||
}}
|
||||
}
|
||||
|
||||
|
||||
asmsub scroll_up_full (alsocolors: byte @ Pc) -> clobbers(A,X) -> () {
|
||||
; ---- scroll the whole screen 1 character up
|
||||
; contents of the bottom row are unchanged, you should refill/clear this yourself
|
||||
; Carry flag determines if screen color data must be scrolled too
|
||||
%asm {{
|
||||
bcs +
|
||||
jmp _scroll_screen
|
||||
|
||||
+ ; scroll the color memory
|
||||
ldx #39
|
||||
-
|
||||
.for row=1, row<=11, row+=1
|
||||
lda c64.Colors + 40*row,x
|
||||
sta c64.Colors + 40*(row-1),x
|
||||
.next
|
||||
dex
|
||||
bpl -
|
||||
|
||||
ldx #39
|
||||
-
|
||||
.for row=12, row<=24, row+=1
|
||||
lda c64.Colors + 40*row,x
|
||||
sta c64.Colors + 40*(row-1),x
|
||||
.next
|
||||
dex
|
||||
bpl -
|
||||
|
||||
_scroll_screen ; scroll the screen memory
|
||||
ldx #39
|
||||
-
|
||||
.for row=1, row<=11, row+=1
|
||||
lda c64.Screen + 40*row,x
|
||||
sta c64.Screen + 40*(row-1),x
|
||||
.next
|
||||
dex
|
||||
bpl -
|
||||
|
||||
ldx #39
|
||||
-
|
||||
.for row=12, row<=24, row+=1
|
||||
lda c64.Screen + 40*row,x
|
||||
sta c64.Screen + 40*(row-1),x
|
||||
.next
|
||||
dex
|
||||
bpl -
|
||||
|
||||
rts
|
||||
}}
|
||||
}
|
||||
|
||||
|
||||
asmsub scroll_down_full (alsocolors: byte @ Pc) -> clobbers(A,X) -> () {
|
||||
; ---- scroll the whole screen 1 character down
|
||||
; contents of the top row are unchanged, you should refill/clear this yourself
|
||||
; Carry flag determines if screen color data must be scrolled too
|
||||
%asm {{
|
||||
bcs +
|
||||
jmp _scroll_screen
|
||||
|
||||
+ ; scroll the color memory
|
||||
ldx #39
|
||||
-
|
||||
.for row=23, row>=12, row-=1
|
||||
lda c64.Colors + 40*row,x
|
||||
sta c64.Colors + 40*(row+1),x
|
||||
.next
|
||||
dex
|
||||
bpl -
|
||||
|
||||
ldx #39
|
||||
-
|
||||
.for row=11, row>=0, row-=1
|
||||
lda c64.Colors + 40*row,x
|
||||
sta c64.Colors + 40*(row+1),x
|
||||
.next
|
||||
dex
|
||||
bpl -
|
||||
|
||||
_scroll_screen ; scroll the screen memory
|
||||
ldx #39
|
||||
-
|
||||
.for row=23, row>=12, row-=1
|
||||
lda c64.Screen + 40*row,x
|
||||
sta c64.Screen + 40*(row+1),x
|
||||
.next
|
||||
dex
|
||||
bpl -
|
||||
|
||||
ldx #39
|
||||
-
|
||||
.for row=11, row>=0, row-=1
|
||||
lda c64.Screen + 40*row,x
|
||||
sta c64.Screen + 40*(row+1),x
|
||||
.next
|
||||
dex
|
||||
bpl -
|
||||
|
||||
rts
|
||||
}}
|
||||
}
|
||||
|
||||
|
||||
|
||||
asmsub print_string (address: word @ XY) -> clobbers(A,Y) -> () {
|
||||
; ---- print null terminated string from X/Y
|
||||
; note: the compiler contains an optimization that will replace
|
||||
; a call to this subroutine with a string argument of just one char,
|
||||
; by just one call to c64.CHROUT of that single char.
|
||||
%asm {{
|
||||
stx c64.SCRATCH_ZP1
|
||||
sty c64.SCRATCH_ZP2
|
||||
ldy #0
|
||||
- lda (c64.SCRATCH_ZP1),y
|
||||
beq +
|
||||
jsr c64.CHROUT
|
||||
iny
|
||||
bne -
|
||||
+ rts
|
||||
}}
|
||||
}
|
||||
|
||||
|
||||
asmsub print_pstring (address: word @ XY) -> clobbers(A,X) -> (byte @ Y) {
|
||||
; ---- print pstring (length as first byte) from X/Y, returns str len in Y
|
||||
%asm {{
|
||||
stx c64.SCRATCH_ZP1
|
||||
sty c64.SCRATCH_ZP2
|
||||
ldy #0
|
||||
lda (c64.SCRATCH_ZP1),y
|
||||
beq +
|
||||
tax
|
||||
- iny
|
||||
lda (c64.SCRATCH_ZP1),y
|
||||
jsr c64.CHROUT
|
||||
dex
|
||||
bne -
|
||||
+ rts ; output string length is in Y
|
||||
}}
|
||||
}
|
||||
|
||||
|
||||
asmsub print_pimmediate () -> clobbers() -> () {
|
||||
; ---- print pstring in memory immediately following the subroutine fast call instruction
|
||||
; note that the clobbered registers (A,X,Y) are not listed ON PURPOSE
|
||||
%asm {{
|
||||
tsx
|
||||
lda $102,x
|
||||
tay ; put high byte in y
|
||||
lda $101,x
|
||||
tax ; and low byte in x.
|
||||
inx
|
||||
bne +
|
||||
iny
|
||||
+ jsr print_pstring ; print string in XY, returns string length in y.
|
||||
tya
|
||||
tsx
|
||||
clc
|
||||
adc $101,x ; add content of 1st (length) byte to return addr.
|
||||
bcc + ; if that made the low byte roll over to 00,
|
||||
inc $102,x ; then increment the high byte too.
|
||||
+ clc
|
||||
adc #1 ; now add 1 for the length byte itself.
|
||||
sta $101,x
|
||||
bne + ; if that made it (the low byte) roll over to 00,
|
||||
inc $102,x ; increment the high byte of the return addr too.
|
||||
+ rts
|
||||
}}
|
||||
}
|
||||
|
||||
|
||||
asmsub print_byte_decimal0 (ubyte: byte @ A) -> clobbers(A,X,Y) -> () {
|
||||
; ---- print the byte in A in decimal form, with left padding 0s (3 positions total)
|
||||
%asm {{
|
||||
jsr byte2decimal
|
||||
pha
|
||||
tya
|
||||
jsr c64.CHROUT
|
||||
txa
|
||||
jsr c64.CHROUT
|
||||
pla
|
||||
jmp c64.CHROUT
|
||||
}}
|
||||
}
|
||||
|
||||
|
||||
asmsub print_byte_decimal (ubyte: byte @ A) -> clobbers(A,X,Y) -> () {
|
||||
; ---- print the byte in A in decimal form, without left padding 0s
|
||||
%asm {{
|
||||
jsr byte2decimal
|
||||
pha
|
||||
cpy #'0'
|
||||
bne _print_hundreds
|
||||
cpx #'0'
|
||||
bne _print_tens
|
||||
pla
|
||||
jmp c64.CHROUT
|
||||
_print_hundreds tya
|
||||
jsr c64.CHROUT
|
||||
_print_tens txa
|
||||
jsr c64.CHROUT
|
||||
pla
|
||||
jmp c64.CHROUT
|
||||
}}
|
||||
}
|
||||
|
||||
|
||||
asmsub print_byte_hex (prefix: byte @ Pc, ubyte: byte @ A) -> clobbers(A,X,Y) -> () {
|
||||
; ---- print the byte in A in hex form (if Carry is set, a radix prefix '$' is printed as well)
|
||||
%asm {{
|
||||
bcc +
|
||||
pha
|
||||
lda #'$'
|
||||
jsr c64.CHROUT
|
||||
pla
|
||||
+ jsr byte2hex
|
||||
txa
|
||||
jsr c64.CHROUT
|
||||
tya
|
||||
jmp c64.CHROUT
|
||||
}}
|
||||
}
|
||||
|
||||
|
||||
asmsub print_word_hex (prefix: byte @ Pc, dataword: word @ XY) -> clobbers(A,X,Y) -> () {
|
||||
; ---- print the (unsigned) word in X/Y in hexadecimal form (4 digits)
|
||||
; (if Carry is set, a radix prefix '$' is printed as well)
|
||||
%asm {{
|
||||
stx c64.SCRATCH_ZP1
|
||||
tya
|
||||
jsr print_byte_hex
|
||||
lda c64.SCRATCH_ZP1
|
||||
clc
|
||||
jmp print_byte_hex
|
||||
}}
|
||||
}
|
||||
|
||||
|
||||
asmsub print_word_decimal0 (dataword: word @ XY) -> clobbers(A,X,Y) -> () {
|
||||
; ---- print the (unsigned) word in X/Y in decimal form, with left padding 0s (5 positions total)
|
||||
%asm {{
|
||||
jsr word2decimal
|
||||
lda word2decimal_output
|
||||
jsr c64.CHROUT
|
||||
lda word2decimal_output+1
|
||||
jsr c64.CHROUT
|
||||
lda word2decimal_output+2
|
||||
jsr c64.CHROUT
|
||||
lda word2decimal_output+3
|
||||
jsr c64.CHROUT
|
||||
lda word2decimal_output+4
|
||||
jmp c64.CHROUT
|
||||
}}
|
||||
}
|
||||
|
||||
|
||||
asmsub print_word_decimal (dataword: word @ XY) -> clobbers(A,X,Y) -> () {
|
||||
; ---- print the word in X/Y in decimal form, without left padding 0s
|
||||
%asm {{
|
||||
jsr word2decimal
|
||||
ldy #0
|
||||
lda word2decimal_output
|
||||
cmp #'0'
|
||||
bne _pr_decimal
|
||||
iny
|
||||
lda word2decimal_output+1
|
||||
cmp #'0'
|
||||
bne _pr_decimal
|
||||
iny
|
||||
lda word2decimal_output+2
|
||||
cmp #'0'
|
||||
bne _pr_decimal
|
||||
iny
|
||||
lda word2decimal_output+3
|
||||
cmp #'0'
|
||||
bne _pr_decimal
|
||||
iny
|
||||
|
||||
_pr_decimal
|
||||
lda word2decimal_output,y
|
||||
jsr c64.CHROUT
|
||||
iny
|
||||
cpy #5
|
||||
bcc _pr_decimal
|
||||
rts
|
||||
}}
|
||||
}
|
||||
|
||||
|
||||
asmsub input_chars (buffer: word @ AX) -> clobbers(A) -> (byte @ Y) {
|
||||
; ---- Input a string (max. 80 chars) from the keyboard.
|
||||
; It assumes the keyboard is selected as I/O channel!!
|
||||
|
||||
%asm {{
|
||||
sta c64.SCRATCH_ZP1
|
||||
stx c64.SCRATCH_ZP2
|
||||
ldy #0 ; char counter = 0
|
||||
- jsr c64.CHRIN
|
||||
cmp #$0d ; return (ascii 13) pressed?
|
||||
beq + ; yes, end.
|
||||
sta (c64.SCRATCH_ZP1),y ; else store char in buffer
|
||||
iny
|
||||
bne -
|
||||
+ lda #0
|
||||
sta (c64.SCRATCH_ZP1),y ; finish string with 0 byte
|
||||
rts
|
||||
|
||||
}}
|
||||
}
|
||||
|
||||
} ; ---- end block c64scr
|
||||
|
||||
|
||||
|
||||
;asmsub memcopy_basic () -> clobbers(A,X,Y) -> () {
|
||||
; ; ---- copy a memory block by using a BASIC ROM routine
|
||||
; ; it calls a function from the basic interpreter, so:
|
||||
; ; - BASIC ROM must be banked in
|
||||
; ; - the source block must be readable (so no RAM hidden under BASIC, Kernal, or I/O)
|
||||
; ; - the target block must be writable (so no RAM hidden under I/O)
|
||||
; ; higher addresses are copied first, so:
|
||||
; ; - moving data to higher addresses works even if areas overlap
|
||||
; ; - moving data to lower addresses only works if areas do not overlap
|
||||
; %asm {{
|
||||
; lda #<src_start
|
||||
; ldx #>src_start
|
||||
; sta $5f
|
||||
; stx $60
|
||||
; lda #<src_end
|
||||
; ldx #>src_end
|
||||
; sta $5a
|
||||
; stx $5b
|
||||
; lda #<(target_start + src_end - src_start)
|
||||
; ldx #>(target_start + src_end - src_start)
|
||||
; sta $58
|
||||
; stx $59
|
||||
; jmp $a3bf
|
||||
; }
|
||||
;}
|
||||
|
||||
; macro version of the above memcopy_basic routine:
|
||||
; MACRO PARAMS src_start, src_end, target_start
|
||||
; lda #<src_start
|
||||
; ldx #>src_start
|
||||
; sta $5f
|
||||
; stx $60
|
||||
; lda #<src_end
|
||||
; ldx #>src_end
|
||||
; sta $5a
|
||||
; stx $5b
|
||||
; lda #<(target_start + src_end - src_start)
|
||||
; ldx #>(target_start + src_end - src_start)
|
||||
; sta $58
|
||||
; stx $59
|
||||
; jsr $a3bf
|
||||
|
||||
Loading…
Reference in New Issue
Block a user