📄 hf0803.lst.bak
字号:
250 00:00F5: 64 0B STZ PCD
251 00:00F7: A9 FF LDA #FFH
252 00:00F9: 85 0C STA PCE
253 00:00FB: 85 04 STA PE
254 00:00FD: 64 0D STZ PCF
255 00:00FF: 64 05 STZ PF
256 00:0101: A9 FF LDA #FFH
257 00:0103: 85 0D STA PCF
258 00:0105: 64 05 STZ PF
259 00:0107: 60 RTS
260 ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
261 IsPageChange:
262 00:0108: AD xx xx LDA OldPageNum
263 00:010B: CD xx xx CMP PageNum
264 00:010E: D0 01 BNE LoadPage
265 00:0110: 60 RTS
266 ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
267 LoadPage:
268 00:0111: 8F xx 6C BBS0 <PageNum,ToPage0
269 00:0114: 9F xx 6F BBS1 <PageNum,ToPage1
270 00:0117: AF xx 69 BBS2 <PageNum,ToPage2
271 ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
272 ;key config
273 ; pa0 pa1 pa2
274 ;pb0 on/off up cancel
275 ;pb1 left enter right
276 ;pb2 write down pageup
277 ;pb3 / / pagedown
278 ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
279 KeyScan:
280 00:011A: 07 00 RMB0 PA
281 00:011C: A5 01 LDA PB
282 00:011E: 29 0F AND #0FH
283 00:0120: C9 0E CMP #0EH
284 00:0122: F0 41 BEQ IsOnOffKey
285 00:0124: C9 0D CMP #0DH
286 00:0126: F0 40 BEQ IsLeftKey
287 00:0128: C9 0B CMP #0BH
288 00:012A: F0 3F BEQ IsWriteKey
289 00:012C: 17 00 RMB1 PA
290 00:012E: A5 01 LDA PB
291 00:0130: 29 0F AND #0FH
292 00:0132: C9 0E CMP #0EH
293 00:0134: F0 38 BEQ IsUpKey
294 00:0136: C9 0D CMP #0DH
295 00:0138: F0 37 BEQ IsEnterKey
296 00:013A: C9 0B CMP #0BH
297 00:013C: F0 36 BEQ IsDownKey
298 00:013E: 27 00 RMB2 PA
299 00:0140: A5 01 LDA PB
300 00:0142: 29 0F AND #0FH
301 00:0144: C9 0E CMP #0EH
302 00:0146: F0 2F BEQ IsCancelKey
303 00:0148: C9 0D CMP #0DH
304 00:014A: F0 2E BEQ IsRightKey
305 00:014C: C9 0B CMP #0BH
306 00:014E: F0 2A BEQ IsPageUpKey
307 00:0150: C9 07 CMP #07H
308 00:0152: F0 29 BEQ IsPageDownKey
309 00:0154: A9 FF LDA #FFH
310 00:0156: 8D xx xx STA KeyCode
311 KeyScanEnd:
312 00:0159: A9 FF LDA #FFH
313 00:015B: 8D xx xx STA KeyCode
314 00:015E: 85 00 STA PA
315 00:0160: 85 01 STA PB
316 00:0162: 4C xx xx JMP CheckKeyinEnd
317 IsOnOffKey:
318 00:0165: 4C xx xx JMP KeyScanEnd
319 IsLeftKey:
320 00:0168: 4C xx xx JMP KeyScanEnd
321 IsWriteKey:
322 00:016B: 4C xx xx JMP KeyScanEnd
323 IsUpKey:
324 00:016E: 4C xx xx JMP KeyScanEnd
325 IsEnterKey:
326 00:0171: 4C xx xx JMP KeyScanEnd
327 IsDownKey:
328 00:0174: 4C xx xx JMP KeyScanEnd
329 IsCancelKey:
330 00:0177: 4C xx xx JMP KeyScanEnd
331 IsRightKey:
332 IsPageUpKey:
333 00:017A: 4C xx xx JMP KeyScanEnd
334 IsPageDownKey:
335 00:017D: 4C xx xx JMP KeyScanEnd
336 ToPage0:
337 00:0180: 4C xx xx JMP SetupPage0
338 ToPage2:
339 00:0183: 4C xx xx JMP SetupPage2
340 ToPage1:
341 00:0186: 4C xx xx JMP SetupPage1
342 ;--<< Initial user RAM for system >>--
343 Loop:
344 00:0189: A2 92 ldx #092h ; Black screen.
345 00:018B: 20 xx xx jsr FillScreen
346 00:018E: 20 xx xx jsr Delay1S
347
348 00:0191: A2 00 ldx #00h ; White screen.
349 00:0193: 20 xx xx jsr FillScreen
350 00:0196: 20 xx xx jsr Delay1S
351
352 00:0199: 80 EE bra Loop
353 SetupPage0:
354 00:019B: 9C xx xx STZ LCDX
355 00:019E: 9C xx xx STZ LCDY
356 00:01A1: A9 xx LDA #<STR00
357 00:01A3: 8D xx xx STA PtrL
358 00:01A6: A9 xx LDA #>STR00
359 00:01A8: 8D xx xx STA PtrH
360 00:01AB: 20 xx xx JSR DRAW_STRING
361 00:01AE: A9 01 LDA #1
362 00:01B0: 8D xx xx STA LCDY
363 00:01B3: 9C xx xx STZ LCDX
364 00:01B6: A9 xx LDA #<STR01
365 00:01B8: 8D xx xx STA PtrL
366 00:01BB: A9 xx LDA #>STR01
367 00:01BD: 8D xx xx STA PtrH
368 00:01C0: 20 xx xx JSR DRAW_STRING
369 00:01C3: A9 02 LDA #2
370 00:01C5: 8D xx xx STA LCDY
371 00:01C8: 9C xx xx STZ LCDX
372 00:01CB: A9 xx LDA #<STR02
373 00:01CD: 8D xx xx STA PtrL
374 00:01D0: A9 xx LDA #>STR02
375 00:01D2: 8D xx xx STA PtrH
376 00:01D5: 20 xx xx JSR DRAW_STRING
377 00:01D8: A9 03 LDA #3
378 00:01DA: 8D xx xx STA LCDY
379 00:01DD: 9C xx xx STZ LCDX
380 00:01E0: A9 xx LDA #<STR03
381 00:01E2: 8D xx xx STA PtrL
382 00:01E5: A9 xx LDA #>STR03
383 00:01E7: 8D xx xx STA PtrH
384 00:01EA: 20 xx xx JSR DRAW_STRING
385 00:01ED: A9 04 LDA #4
386 00:01EF: 8D xx xx STA LCDY
387 00:01F2: 9C xx xx STZ LCDX
388 00:01F5: A9 xx LDA #<STR04
389 00:01F7: 8D xx xx STA PtrL
390 00:01FA: A9 xx LDA #>STR04
391 00:01FC: 8D xx xx STA PtrH
392 00:01FF: 20 xx xx JSR DRAW_STRING
393 00:0202: A9 05 LDA #5
394 00:0204: 8D xx xx STA LCDY
395 00:0207: 9C xx xx STZ LCDX
396 00:020A: A9 xx LDA #<STR05
397 00:020C: 8D xx xx STA PtrL
398 00:020F: A9 xx LDA #>STR05
399 00:0211: 8D xx xx STA PtrH
400 00:0214: 20 xx xx JSR DRAW_STRING
401 00:0217: A9 06 LDA #6
402 00:0219: 8D xx xx STA LCDY
403 00:021C: 9C xx xx STZ LCDX
404 00:021F: A9 xx LDA #<STR06
405 00:0221: 8D xx xx STA PtrL
406 00:0224: A9 xx LDA #>STR06
407 00:0226: 8D xx xx STA PtrH
408 00:0229: 20 xx xx JSR DRAW_STRING
409 00:022C: A9 07 LDA #7
410 00:022E: 8D xx xx STA LCDY
411 00:0231: 9C xx xx STZ LCDX
412 00:0234: A9 xx LDA #<STR07
413 00:0236: 8D xx xx STA PtrL
414 00:0239: A9 xx LDA #>STR07
415 00:023B: 8D xx xx STA PtrH
416 00:023E: 20 xx xx JSR DRAW_STRING
417 00:0241: A9 08 LDA #8
418 00:0243: 8D xx xx STA LCDY
419 00:0246: 9C xx xx STZ LCDX
420 00:0249: A9 xx LDA #<STR08
421 00:024B: 8D xx xx STA PtrL
422 00:024E: A9 xx LDA #>STR08
423 00:0250: 8D xx xx STA PtrH
424 00:0253: 20 xx xx JSR DRAW_STRING
425 00:0256: A9 09 LDA #9
426 00:0258: 8D xx xx STA LCDY
427 00:025B: 9C xx xx STZ LCDX
428 00:025E: A9 xx LDA #<STR09
429 00:0260: 8D xx xx STA PtrL
430 00:0263: A9 xx LDA #>STR09
431 00:0265: 8D xx xx STA PtrH
432 00:0268: 20 xx xx JSR DRAW_STRING
433 00:026B: A9 0A LDA #10
434 00:026D: 8D xx xx STA LCDY
435 00:0270: 9C xx xx STZ LCDX
436 00:0273: A9 xx LDA #<STR10
437 00:0275: 8D xx xx STA PtrL
438 00:0278: A9 xx LDA #>STR10
439 00:027A: 8D xx xx STA PtrH
440 00:027D: 20 xx xx JSR DRAW_STRING
441 00:0280: 9C xx xx STZ LCDX
442 00:0283: 9C xx xx STZ LCDY
443 00:0286: A9 06 LDA #6
444 00:0288: 8D xx xx STA STRCNT
445 00:028B: 20 xx xx JSR InVideo
446 00:028E: 60 RTS
447 SetupPage1:
448 SetupPage2:
449 00:028F: 60 RTS
450 AddMenuPage1:
451
452 00:0290: AD xx xx LDA PageLocationX
453 00:0293: C9 00 CMP #0
454 00:0295: D0 30 BNE AddPage1Item2
455 00:0297: AD xx xx LDA PageLocationY
456 00:029A: C9 00 CMP #0
457 00:029C: D0 29 BNE AddPage1Item2
458 00:029E: 9C xx xx STZ LCDX
459 00:02A1: 9C xx xx STZ LCDY
460 00:02A4: A9 06 LDA #6
461 00:02A6: 8D xx xx STA STRCNT
462 00:02A9: 20 xx xx JSR InVideo
463 00:02AC: AD xx xx LDA PageLocationY
464 00:02AF: EE xx xx INC PageLocationY
465 00:02B2: 9C xx xx STZ LCDX
466 00:02B5: EE xx xx INC PageLocationY
467 00:02B8: AD xx xx LDA PageLocationY
468 00:02BB: 8D xx xx STA LCDY
469 00:02BE: A9 04 LDA #4 ;牌张数
470 00:02C0: 8D xx xx STA STRCNT
471 00:02C3: 20 xx xx JSR InVideo
472 00:02C6: 60 RTS
473 AddPage1Item2:
474 00:02C7: AD xx xx LDA PageLocationX
475 00:02CA: C9 00 CMP #0
476 00:02CC: D0 2C BNE AddPage1Item3
477 00:02CE: AD xx xx LDA PageLocationY
478 00:02D1: C9 02 CMP #2
479 00:02D3: D0 25 BNE AddPage1Item3
480 00:02D5: 9C xx xx STZ LCDX
481 00:02D8: A9 02 LDA #2
482 00:02DA: 8D xx xx STA LCDY
483 00:02DD: A9 04 LDA #4
484 00:02DF: 8D xx xx STA STRCNT
485 00:02E2: 20 xx xx JSR InVideo
486 00:02E5: EE xx xx INC PageLocationY
487 00:02E8: 9C xx xx STZ LCDX
488 00:02EB: AD xx xx LDA PageLocationY
489 00:02EE: 8D xx xx STA LCDY
490 00:02F1: A9 04 LDA #4 ;牌张数
491 00:02F3: 8D xx xx STA STRCNT
492 00:02F6: 20 xx xx JSR InVideo
493 00:02F9: 60 RTS
494 AddPage1Item3:
495 00:02FA: AD xx xx LDA PageLocationX
496 00:02FD: C9 00 CMP #0
497 00:02FF: D0 2C BNE AddPage1Item4
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -