📄 syntax.asl
字号:
085F 07 08 68 1101 brnz .Cmpdata
0862 F5 00 1102 lda0 .Databuf
0864 FE 1103 sta i
0865 02 08 3B 1104 br .nextdp1
0868 1105 .Cmpdata:
0868 F3 00 1106 lda #0h
086A FC 28 1107 sta PP
086C F5 00 1108 lda0 .Databuf
086E A5 01 1109 cmpe .Databuf+1
0870 06 08 3B 1110 brz .nextdp1 ;;;
0873 F5 00 1111 lda0 .Counter
0875 3F 1112 deca
0876 F9 00 1113 sta0 .Counter
0878 F5 00 1114 lda0 .Buf1
087A 1F 1115 inca
087B F9 00 1116 sta0 .Buf1
087D 02 08 4B 1117 br .MEMsto
0880 1118 .copy2formula:
0880 F3 00 1119 lda #>SignFa
0882 FC 28 1120 sta PP
0884 F3 00 1121 lda #<SignFa
0886 F9 00 1122 sta0 .FormulaDP
0888 F3 00 1123 lda #>.ForLDP
088A FC 28 1124 sta PP
088C F5 00 1125 lda0 .DataDP
088E FD 00 1126 sta .ForLDP
0890 20 00 00 1127 call .Input2Formula
0893 F3 00 1128 lda #>.SetFlag
0895 FC 28 1129 sta PP
0897 F1 00 1130 lda .SetFlag
0899 CB DF 1131 anda #~20h
089B FD 00 1132 sta .SetFlag
089D F1 00 1133 lda .SFlag
089F DB 88 1134 ora #88h
08A1 FD 00 1135 sta .SFlag
08A3 20 00 00 1136 call .ClrP2Data
08A6 F3 00 1137 lda #0h
08A8 F9 00 1138 sta0 .StoFlag
08AA 1139 .EndFormula:
08AA 24 1140 ret
+ 1141 ;-------------------------------------------------
08AB 1142 .SyntaxFormula::
08AB F5 00 1143 lda0 ErrorFlag
08AD 07 09 01 1144 brnz .ENDSyntaxFormula
08B0 F5 00 1145 lda0 .FormulaFlag
08B2 A7 01 1146 cmpe #01h
08B4 07 09 01 1147 brnz .ENDSyntaxFormula
08B7 F3 00 1148 lda #0h
08B9 FC 21 1149 sta DP
08BB F9 00 1150 sta0 .AfterPari
08BD F3 02 1151 lda #02h
08BF FC 28 1152 sta PP
08C1 F2 1153 lda i
08C2 F9 00 1154 sta0 .DataBuf
08C4 F3 01 1155 lda #01h
08C6 FC 28 1156 sta PP
08C8 F3 00 1157 lda #^(.CheckMemory)
08CA FC 54 1158 sta TPP
08CC F3 00 1159 lda #@(.CheckMemory)
08CE FC 02 1160 sta TPH
08D0 F3 00 1161 lda #<(.CheckMemory)
08D2 FC 01 1162 sta TPL
08D4 1163 .CKmem:
08D4 F8 1164 ldv
08D5 F9 01 1165 sta0 .DataBuf+1
08D7 A7 AA 1166 cmpe #0aah
08D9 06 08 EB 1167 brz .EndCkmem
08DC F3 00 1168 lda #0h
08DE FC 28 1169 sta PP
08E0 F5 00 1170 lda0 .DataBuf
08E2 A5 01 1171 cmpe .DataBuf+1
08E4 07 08 D4 1172 brnz .CKmem
08E7 F3 01 1173 lda #01h
08E9 F9 00 1174 sta0 .AfterPari
08EB 1175 .EndCkmem:
08EB F5 00 1176 lda0 .AfterPari
08ED A7 01 1177 cmpe #01h
08EF 07 08 FD 1178 brnz .Errsyn
08F2 18 1179 incdp
08F3 F3 02 1180 lda #02h
08F5 FC 28 1181 sta PP
08F7 F2 1182 lda i
08F8 A7 7A 1183 cmpe #07ah ;7a = calc '='
08FA 06 09 01 1184 brz .ENDSyntaxFormula
08FD 1185 .Errsyn:
08FD F3 02 1186 lda #02h
08FF F9 00 1187 sta0 ErrorFlag
0901 1188 .ENDSyntaxFormula:
0901 24 1189 ret
+ 1190 ;-------------------------------------------------
0902 1191 .GetMemData::
0902 F3 00 1192 lda #>.SetFlag
0904 FC 28 1193 sta PP
0906 F1 00 1194 lda .SetFlag
0908 DB 20 1195 ora #20h
090A FD 00 1196 sta .SetFlag
090C F5 00 1197 lda0 .FormulaDP
090E FC 21 1198 sta DP
0910 A7 FF 1199 cmpe #0ffh
0912 06 09 30 1200 brz .ClrForFlag
0915 F3 00 1201 lda #>SignFa
0917 FC 28 1202 sta PP
0919 F2 1203 lda i
091A F9 00 1204 sta0 .ForData
091C F9 00 1205 sta0 .KeyPos
091E 20 00 00 1206 call .RCLReg
0921 F5 00 1207 lda0 .KeyPos
0923 A7 00 1208 cmpe #0h
0925 06 09 30 1209 brz .ClrForFlag
0928 F5 00 1210 lda0 .FormulaDP
092A 1F 1211 inca
092B F9 00 1212 sta0 .FormulaDP
092D 02 09 47 1213 br .EndGetMemData
0930 1214 .ClrForFlag:
0930 F3 00 1215 lda #>.SFlag
0932 FC 28 1216 sta PP
0934 F1 00 1217 lda .SFlag
0936 CB 7F 1218 anda #~80h
0938 DB 08 1219 ora #08h
093A FD 00 1220 sta .SFlag
093C 20 00 00 1221 call .Formula2Input
093F F3 00 1222 lda #>.ForLDP
0941 FC 28 1223 sta PP
0943 F1 00 1224 lda .ForLDP
0945 F9 00 1225 sta0 .DataDP
+ 1226
0947 1227 .EndGetMemData:
0947 24 1228 ret
+ 1229 ;-------------------------------------------------
0948 1230 .HeadCheck::
0948 B3 D4 C8 B7 1231 DB 0b3h,0d4h,0c8h,0b7h,0c3h,0d3h,0d7h,0c9h,0d5h
094C C3 D3 D7 C9
0950 D5
0951 D2 C5 A6 A7 1232 DB 0d2h,0c5h,0a6h,0a7h,0c9h,0d5h,0b4h,0bdh,0beh,0ffh
0955 C9 D5 B4 BD
0959 BE FF
+ 1233
095B 1234 .SignCheck::
095B C9 D5 D3 D7 1235 DB 0c9h,0d5h,0d3h,0d7h,0d4h,0c8h,0d2h,0c5h,0a2h,0a9h,0f9h
095F D4 C8 D2 C5
0963 A2 A9 F9
0966 B3 E3 E4 E5 1236 DB 0b3h,0e3h,0e4h,0e5h,0e6h,0e7h,0e8h,0f5h,0aah,0bbh,0ceh
096A E6 E7 E8 F5
096E AA BB CE
0971 F6 F7 B7 C3 1237 DB 0f6h,0f7h,0b7h,0c3h,0a4h,0a5h,0b1h,0b2h,0a8h
0975 A4 A5 B1 B2
0979 A8
097A B4 A6 A7 A1 1238 DB 0b4h,0a6h,0a7h,0a1h,0b0h,0ffh
097E B0 FF
0980 1239 .SignMUL::
0980 AA BB CE D3 1240 DB 0aah,0bbh,0ceh,0d3h,0d7h,0d4h,0c8h,0d2h,0c5h,0a2h
0984 D7 D4 C8 D2
0988 C5 A2
098A A9 F9 B3 E3 1241 DB 0a9h,0f9h,0b3h,0e3h,0e4h,0e5h,0e6h,0e7h,0e8h,0f5h
098E E4 E5 E6 E7
0992 E8 F5
0994 F6 F7 B7 C9 1242 DB 0f6h,0f7h,0b7h,0c9h,0d5h,0ffh
0998 D5 FF
+ 1243
099A 1244 .Function:
099A A0 B3 B0 C8 1245 DB 0a0h,0b3h,0b0h,0c8h,0d2h,0c5h,0d4h,0c8h,0d2h
099E D2 C5 D4 C8
09A2 D2
09A3 E3 E4 E5 E6 1246 DB 0e3h,0e4h,0e5h,0e6h,0e7h,0e8h,0f5h,0a2h
09A7 E7 E8 F5 A2
09AB F6 F7 A9 F9 1247 DB 0f6h,0f7h,0a9h,0f9h,0d0h,0bdh,0beh,0d6h
09AF D0 BD BE D6
09B3 B7 AB AC AD 1248 DB 0b7h,0abh,0ach,0adh,0ffh
09B7 FF
09B8 1249 .DataEndCheck::
09B8 D4 C8 D2 C5 1250 DB 0d4h,0c8h,0d2h,0c5h,0a2h,0a9h,0aah,0bbh,0ceh
09BC A2 A9 AA BB
09C0 CE
09C1 B3 E3 E4 E5 1251 DB 0b3h,0e3h,0e4h,0e5h,0e6h,0e7h,0e8h,0f5h
09C5 E6 E7 E8 F5
09C9 F6 F7 B7 A0 1252 DB 0f6h,0f7h,0b7h,0a0h,0f9h,0f8h,0b6h,0cfh
09CD F9 F8 B6 CF
09D1 FA FB FC FD 1253 DB 0fah,0fbh,0fch,0fdh,0feh,0cah,0cbh,0bah
09D5 FE CA CB BA
09D9 BC BD BE FF 1254 DB 0bch,0bdh,0beh,0ffh
09DD 1255 .SymborCheck::
09DD A4 A5 A6 A7 1256 DB 0a4h,0a5h,0a6h,0a7h,0b2h,0b3h,0a2h,0f8h,0d0h
09E1 B2 B3 A2 F8
09E5 D0
09E6 D6 E3 E4 E5 1257 DB 0d6h,0e3h,0e4h,0e5h,0e6h,0e7h,0e8h,0f5h
09EA E6 E7 E8 F5
09EE F6 F7 A9 F9 1258 DB 0f6h,0f7h,0a9h,0f9h,0aah,0bbh,0ceh,0ffh
09F2 AA BB CE FF
+ 1259
09F6 1260 .MemoryCheck::
09F6 A8 B7 B8 B9 1261 DB 0a8h,0b7h,0b8h,0b9h,0c0h,0c1h,0b3h,0b4h,0b5h
09FA C0 C1 B3 B4
09FE B5
09FF A9 F9 A2 FF 1262 DB 0a9h,0f9h,0a2h,0ffh
+ 1263
+
+Symbol Table
+
+ 1 .11$ 0765 R
+ 1 .22$ 076C R
+ 1 .3$ 01AF R
+ 1 .33$ 0776 R
+ 1 .4$ 0203 R
+ 1 .AddDecCK 037A R
+ .AfterPari **** GX
+ .BeforePari **** GX
+ .Buf1 **** GX
+ .Buf2 **** GX
+ .Buf3 **** GX
+ 1 .CKPari 06C5 R
+ 1 .CKdMS 0373 R
+ 1 .CKloop 06A5 R
+ 1 .CKmem 08D4 R
+ .Calc = 007B
+ .CalcFlag **** GX
+ 1 .CalcModeOp 07D8 R
+ .CheckFunC **** GX
+ .CheckFuncd **** GX
+ 1 .CheckLRmd 01DE R
+ .CheckMem **** GX
+ .CheckMemory **** GX
+ .CheckPari **** GX
+ 1 .CheckSDmd 01D4 R
+ 1 .CheckSime 019C R
+ 1 .Checkcomma 05FD R
+ 1 .ChkSimeflag 0189 R
+ 1 .Chkfract 05FD R
+ 1 .CkCommaFlag 01E5 R
+ 1 .CkCommaFlagFirst 0214 R
+ 1 .CkMemory 0666 GR
+ .ClrFa **** GX
+ 1 .ClrForFlag 0930 R
+ .ClrP2 **** GX
+ .ClrP2Data **** GX
+ 1 .Cmpdata 0868 R
+ 1 .Comma 0147 R
+ .CommaFlag **** GX
+ 1 .CommaFractDms 05B5 R
+ 1 .CompSDmode 021E R
+ 1 .Complier 0049 GR
+ .Counter **** GX
+ 1 .DRGCK 051B R
+ .DataBuf **** GX
+ .DataDP **** GX
+ 1 .DataEndCheck 09B8 GR
+ 1 .DisDmsFractFlag 0743 R
+ .DispFlag **** GX
+ 1 .DispPari 0694 GR
+ 1 .Dms 015A R
+ .DmsCount **** GX
+ 1 .DmsMode 06F9 R
+ 1 .DoSemicolon 0550 R
+ 1 .ENDSyntaxFormula 0901 R
+ 1 .EnPolRec 04BF R
+ 1 .EndAD 03A0 R
+ 1 .EndCkmem 08EB R
+ 1 .EndCode 0661 R
+ 1 .EndComplier 0064 R
+ 1 .EndDispPari 0758 R
+ 1 .EndFormula 08AA R
+ 1 .EndFunction2 04B5 R
+ 1 .EndGetMemData 0947 R
+ 1 .EndHead 030D R
+ 1 .EndMD 03E4 R
+ 1 .EndStackCk 0636 R
+ 1 .EndSymbor 027E R
+ 1 .EndSyntax 007F R
+ 1 .EndSyntaxCK 0178 R
+ 1 .Endck 023A R
+ 1 .Endend 0260 R
+ 1 .Endmem 0691 R
+ 1 .EndunctCode 0665 R
+ 1 .ErrorSym 006F R
+ 1 .ErrorSyn 07A4 R
+ 1 .Errsyn 08FD R
+ .ForData **** GX
+ .ForLDP **** GX
+ .Formula2Input **** GX
+ 1 .FormulaCk 077B GR
+ .FormulaDP **** GX
+ .FormulaFlag **** GX
+ 1 .FractMode 070C R
+ 1 .Fraction 0153 R
+ 1 .FuncCK 044D R
+ 1 .Funct2 0480 R
+ 1 .FunctCode 0637 GR
+ 1 .Function 099A R
+ 1 .Function2 0470 R
+ 1 .GetMemData 0902 GR
+ 1 .HeadCheck 0948 GR
+ 1 .HeadCodCK 02E0 R
+ .INDP **** GX
+ .INPP = 0002
+ .Input2Formula **** GX
+ 1 .IsADD 0101 R
+ 1 .IsDEC 0108 R
+ 1 .IsDIV 0116 R
+ 1 .IsDRG 012B R
+ 1 .IsFormula 07BB R
+ 1 .IsLC 011D R
+ 1 .IsMUL 010F R
+ 1 .IsMemoryClr 0140 R
+ 1 .IsNum 00FA R
+ 1 .IsNumDt 03B7 R
+ 1 .IsPoint 0132 R
+ 1 .IsRC 0124 R
+ 1 .IsSignDec 0139 R
+ 1 .KeepSearch 0647 R
+ .KeyPos **** GX
+ 1 .LCCK 03EE R
+ .LRcnt **** GX
+ 1 .MEMsto 084B R
+ 1 .MemCLR 0546 R
+ 1 .MemCmp 0355 R
+ 1 .MemoryCheck 09F6 GR
+ 1 .MulDivCK 03BE R
+ 1 .NextDP 06C1 R
+ 1 .NumCK 0326 R
+ 1 .OtherFunc 0168 R
+ 1 .Paris08 0494 R
+ 1 .PointCK 04C7 R
+ 1 .RCCK 03F6 R
+ .RCLReg **** GX
+ 1 .Recodemem 0843 R
+ .SFDP **** GX
+ .SFlag **** GX
+ 1 .ScanEQU 078B R
+ 1 .SearchAD 038A R
+ 1 .SearchEnd 024A R
+ 1 .SearchMD 03CE R
+ 1 .Searchhead 02F7 R
+ 1 .Searchmem 067A R
+ 1 .Semicolon 0161 R
+ .SetFlag **** GX
+ 1 .SetPoint 072B R
+ 1 .SignCheck 095B GR
+ 1 .SignDec 056B R
+ 1 .SignMUL 0980 GR
+ .SimeFlag **** GX
+ 1 .StackCk 027F R
+ 1 .StartCK 002D R
+ 1 .StartCmp 005A R
+ .StoFlag **** GX
+ 1 .SymborCK 0082 R
+ 1 .SymborCheck 09DD GR
+ 1 .SynError 0629 R
+ 1 .Syntax 0000 GR
+ 1 .SyntaxCK 001D R
+ 1 .SyntaxError 0271 R
+ 1 .SyntaxFormula 08AB GR
+ .TFlag **** GX
+ 1 .cmpeData 049B R
+ 1 .copy2formula 0880 R
+ 1 .nextdp1 083B R
+ 1 .stomem 07FE R
+ ErrorFlag **** GX
+ SignFa **** GX
+ StateFlag **** GX
+
+
+Area Table
+
+ 0 . size 0 flags 0
+ 1 Syntaxc size A03 flags 1
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -