📄 storedata.asl
字号:
01C7 A7 F5 265 cmpe #0F5h
01C9 06 01 D1 266 brz .RclX
01CC A7 B3 267 cmpe #.X
01CE 07 01 D9 268 brnz .CKRCLY
01D1 269 .RclX:
01D1 20 00 00 270 call .X_TO_Z
01D4 F3 F5 271 lda #0f5h
01D6 02 01 FA 272 br .EndRCLReg
01D9 273 .CKRCLY:
01D9 A7 F6 274 cmpe #0F6h
01DB 06 01 E3 275 brz .RclY
01DE A7 B4 276 cmpe #.Y
01E0 07 01 EB 277 brnz .CKRCLM
01E3 278 .RclY:
01E3 20 00 00 279 call .Y_TO_Z
01E6 F3 F6 280 lda #0f6h
01E8 02 01 FA 281 br .EndRCLReg
01EB 282 .CKRCLM:
01EB A7 F7 283 cmpe #0F7h
01ED 06 01 F5 284 brz .RclZ
01F0 A7 B5 285 cmpe #.M
01F2 07 02 66 286 brnz .EndRCLd
01F5 287 .RclZ:
01F5 20 00 00 288 call .M_TO_Z
01F8 F3 F7 289 lda #0f7h
01FA 290 .EndRCLReg:
01FA F9 00 291 sta0 .KeyPos
01FC 20 00 00 292 call .Z_trans_I
01FF 20 00 00 293 call .Z_trans_Buf
0202 F3 01 294 lda #01h
0204 FC 28 295 sta PP
0206 F1 00 296 lda StateFlag
0208 CB 08 297 anda #08h
020A 06 02 10 298 brz 1$
020D 20 02 67 299 call .IsBaseNMode
+ 300 1$:
0210 F5 00 301 lda0 .DataDP ;;4/16
0212 A7 00 302 cmpe #0h ;;
0214 07 02 37 303 brnz .StoRclCode ;;
0217 F3 00 304 lda #>StateFlag
0219 FC 28 305 sta PP
021B F1 00 306 lda .SFlag
021D CB BF 307 anda #~40h
021F DB 08 308 ora #08h
0221 FD 00 309 sta .SFlag
0223 F1 00 310 lda StateFlag
0225 CB 08 311 anda #08h
0227 06 02 2A 312 brz .Endrcl
+ 313
+ 314
022A 315 .Endrcl:
+ 316 ;call .Z_trans_I
022A F5 00 317 lda0 .FormulaFlag
022C A7 01 318 cmpe #01h
022E 06 02 66 319 brz .EndRCLd
+ 320
0231 20 02 A9 321 call .ShowMem
0234 02 02 66 322 br .EndRCLd
0237 323 .StoRclCode:
0237 F3 00 324 lda #>.SFlag
0239 FC 28 325 sta PP
023B F1 00 326 lda .SFlag ;clear rcl flag
023D CB 08 327 anda #08h
023F 06 02 49 328 brz .SaveRclCode
0242 20 00 00 329 call .ClrP2Edit
0245 F3 00 330 lda #0h
0247 F9 00 331 sta0 .DataDP
0249 332 .SaveRclCode:
0249 F1 00 333 lda .SFlag
024B CB D7 334 anda #~28h
024D FD 00 335 sta .SFlag
024F F5 00 336 lda0 .SFDP ;Check Cursor is tail SFDP=0
0251 A7 00 337 cmpe #0h
0253 07 02 66 338 brnz .EndRCLd
0256 F5 00 339 lda0 .DataDP
0258 FC 21 340 sta DP
025A F3 02 341 lda #02h
025C FC 28 342 sta PP
025E F5 00 343 lda0 .KeyPos
0260 FE 344 sta i
0261 18 345 incdp
0262 F0 21 346 lda DP
0264 F9 00 347 sta0 .DataDP
+ 348
0266 349 .EndRCLd:
0266 24 350 ret
+ 351
0267 352 .IsBaseNMode::
0267 20 00 00 353 call .I_trans_Z
026A 20 00 00 354 call .Z_trans_X
026D F3 01 355 lda #01h
026F FC 28 356 sta PP
0271 F1 00 357 lda BasenFlag
0273 CB F0 358 anda #0f0h
0275 A7 80 359 cmpe #80h
0277 06 02 8E 360 brz .DecMode
027A A7 40 361 cmpe #40h
027C 06 02 9F 362 brz .HexMode
027F A7 20 363 cmpe #20h
0281 06 02 95 364 brz .BinMode
0284 20 00 00 365 call Base_Dec2Oct
0287 20 00 00 366 call .Z_trans_X
028A 20 00 00 367 call CheckOctLimit
028D 24 368 ret
028E 369 .DecMode:
+ 370
028E 20 00 00 371 call .Z_trans_X
0291 20 00 00 372 call CheckDecLimit
0294 24 373 ret
0295 374 .BinMode:
0295 20 00 00 375 call Base_Dec2Bin
0298 20 00 00 376 call .Z_trans_X
029B 20 00 00 377 call CheckBinLimit
029E 24 378 ret
029F 379 .HexMode:
029F 20 00 00 380 call Base_Dec2Hex
02A2 20 00 00 381 call .Z_trans_X
02A5 20 00 00 382 call CheckHexLimit
02A8 24 383 ret
+ 384
02A9 385 .ShowMem:
02A9 20 00 00 386 call .ClrP2Edit
02AC F3 00 387 lda #0h
02AE F9 00 388 sta0 .DataDP
02B0 FC 21 389 sta DP
02B2 F3 02 390 lda #02h
02B4 FC 28 391 sta PP
02B6 F5 00 392 lda0 .KeyPos
02B8 FE 393 sta i
02B9 F3 01 394 lda #01h
02BB F9 00 395 sta0 .DataDP
+ 396
02BD F3 00 397 lda #>.SRFlag
02BF FC 28 398 sta PP
02C1 F3 01 399 lda #01h
02C3 FD 00 400 sta .SRFlag
02C5 F5 00 401 lda0 .FormulaFlag
02C7 A7 00 402 cmpe #0h
02C9 06 02 D4 403 brz .EndShowMem
02CC F3 00 404 lda #>.SRFlag
02CE FC 28 405 sta PP
02D0 F3 00 406 lda #0h
02D2 FD 00 407 sta .SRFlag
02D4 408 .EndShowMem:
02D4 24 409 ret
+
+Symbol Table
+
+ .A = 00A8
+ .A_TO_Z **** GX
+ .B = 00B7
+ .B_TO_Z **** GX
+ 1 .BinMode 0295 R
+ .C = 00B8
+ .CKEQUAC **** GX
+ 1 .CKRCLB 016D R
+ 1 .CKRCLC 017F R
+ 1 .CKRCLD 0191 R
+ 1 .CKRCLE 01A3 R
+ 1 .CKRCLF 01B5 R
+ 1 .CKRCLM 01EB R
+ 1 .CKRCLX 01C7 R
+ 1 .CKRCLY 01D9 R
+ 1 .CKSTOB 008C R
+ 1 .CKSTOC 00A1 R
+ 1 .CKSTOD 00B6 R
+ 1 .CKSTOE 00CB R
+ 1 .CKSTOF 00E0 R
+ 1 .CKSTOM 011F R
+ 1 .CKSTOX 00F5 R
+ 1 .CKSTOY 010A R
+ .C_TO_Z **** GX
+ .ClrP2Edit **** GX
+ 1 .ClrRAM 0040 GR
+ 1 .ClrRAMD 0048 R
+ .CommaFlag **** GX
+ .D = 00B9
+ .D_TO_Z **** GX
+ .DataDP **** GX
+ 1 .DecMode 028E R
+ .E = 00C0
+ .E_TO_Z **** GX
+ 1 .EndClrRAM 0066 R
+ 1 .EndRCLReg 01FA R
+ 1 .EndRCLd 0266 R
+ 1 .EndSTO 0158 R
+ 1 .EndSTOReg 0134 R
+ 1 .EndShowMem 02D4 R
+ 1 .EndStoData 003B R
+ 1 .Endrcl 022A R
+ .F = 00C1
+ .F_TO_Z **** GX
+ .FormulaFlag **** GX
+ .Fract = 00C3
+ 1 .HexMode 029F R
+ .I_trans_Z **** GX
+ 1 .InpErr 0037 R
+ 1 .IsBaseNMode 0267 GR
+ .KeyC **** GX
+ .KeyPos **** GX
+ .M = 00B5
+ .M_TO_Z **** GX
+ .Point = 00A0
+ 1 .RCLA 0165 R
+ 1 .RCLReg 0159 GR
+ 1 .RclB 0177 R
+ 1 .RclC 0189 R
+ 1 .RclD 019B R
+ 1 .RclE 01AD R
+ 1 .RclF 01BF R
+ 1 .RclX 01D1 R
+ 1 .RclY 01E3 R
+ 1 .RclZ 01F5 R
+ .SFDP **** GX
+ .SFlag **** GX
+ .SRFlag **** GX
+ 1 .STOA 0084 R
+ 1 .STOB 0099 R
+ 1 .STOC 00AE R
+ 1 .STOD 00C3 R
+ 1 .STOE 00D8 R
+ 1 .STOF 00ED R
+ 1 .STOM 012C R
+ 1 .STOReg 006B GR
+ 1 .STOX 0102 R
+ 1 .STOY 0117 R
+ .SartPP = 0002
+ 1 .SaveRclCode 0249 R
+ 1 .Savedat 0023 R
+ 1 .ShowMem 02A9 R
+ 1 .StoData 0000 GR
+ 1 .StoRclCode 0237 R
+ .X = 00B3
+ .X_TO_A **** GX
+ .X_TO_B **** GX
+ .X_TO_C **** GX
+ .X_TO_D **** GX
+ .X_TO_E **** GX
+ .X_TO_F **** GX
+ .X_TO_M **** GX
+ .X_TO_X **** GX
+ .X_TO_Y **** GX
+ .X_TO_Z **** GX
+ .Y = 00B4
+ .Y_TO_Z **** GX
+ .Z_trans_Buf **** GX
+ .Z_trans_I **** GX
+ .Z_trans_X **** GX
+ Base_Dec2Bin **** GX
+ Base_Dec2Hex **** GX
+ Base_Dec2Oct **** GX
+ BasenFlag **** GX
+ CheckBinLimit **** GX
+ CheckDecLimit **** GX
+ CheckHexLimit **** GX
+ CheckOctLimit **** GX
+ ErrorFlag **** GX
+ StateFlag **** GX
+
+
+Area Table
+
+ 0 . size 0 flags 0
+ 1 stocode size 2D5 flags 1
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -