修正済。とりあえずＬチカは OK。
1/ 0 : ;;; L-chika for MELPS740
2/ 0 : ;;; 2022-11/08 efialtes_htn
3/ 0 : ;;;
4/ 0 : CPU MELPS740
5/ 0 : ;
6/ 0 : =MELPS740 TARGET: EQU "MELPS740"
7/ 0 : ;
8/ 0 : ;; VECTORS
9/ FFFA : ORG $FFFA
10/ FFFA : 00 00 FDB $0000 ; NMI
11/ FFFC : 00 F0 FDB $F000 ; RESET
12/ FFFE : 00 F0 FDB $F000 ; IRQ/BRK
13/ 10000 : ;
14/ F000 : ORG $F000
15/ F000 : A9 12 CSTART: LDA #$12 ; Stack-page1, Microprocessor mode
16/ F002 : 85 FF STA $0FF
17/ F004 : A6 FF LDX $0FF
18/ F006 : 9A TXS
19/ F007 : D8 CLD
20/ F008 : 12 CLT
21/ F009 : A9 FF LDA #$FF ; all output
22/ F00B : 85 EB STA $0EB ; port4 directional reg
23/ F00D : ;
24/ F00D : A9 00 CSTA1: LDA #$00
25/ F00F : 85 10 STA $010 ; 0x10 - internal port value
26/ F011 : ;
27/ F011 : A5 10 CSTA2: LDA $010
28/ F013 : 85 EA STA $0EA ; Port P4 - output port
29/ F015 : ;
30/ F015 : A9 20 CSTA2B: LDA #$20 ; 256x32x11cy
31/ F017 : 85 12 STA $012
32/ F019 : ;
33/ F019 : A9 00 CSTA3: LDA #$0
34/ F01B : 85 11 STA $011 ; 0x11 - wait counter
35/ F01D : EA CSTA4: NOP ; 2cy
36/ F01E : EA NOP ; 2cy
37/ F01F : E6 11 INC $011 ; 5cy
38/ F021 : D0 FA BNE CSTA4 ; 2cy
39/ F023 : ;
40/ F023 : C6 12 DEC $012
41/ F025 : D0 F2 BNE CSTA3
42/ F027 : ;
43/ F027 : E6 10 INC $010
44/ F029 : 80 E6 BRA CSTA2
45/ F02B :
46/ F02B :
本来の 6502 にない命令が多数ありますが、ZPのポートを叩くのは実に便利です。
