- 注册时间
- 2004-10-1
- 最后登录
- 1970-1-1
|
lda #$00
sta $0a
sta $00
lda #$00
sta $80
lda #$c4
sta $81
lda #$00
sta $82
lda #$20
sta $83
ldx #$10
x2:ldy #$00
x1:lda ($80),y
sta ($82),y
iny
bne x1
inc $81
inc $83
dex
bne x2
ldx #$00
x3:lda msg,x
sta $201e,x
inx
cpx #$09
bne x3
sei
lda #$90
sta $01
sta $0430
lda #$04
sta $18
sta $0435
lda #$00
sta $0a
lda $0430
ora #$f0
sta $01
sta $0430
lda $0435
and #$04
ora #$40
sta $18
sta $0435
lda #$50
sta $0d
lda $01
lda #$00
sta $80 ;bank
lda #$00
sta $81
lda #$90
sta $c4
lda #$00
sta $84
lda #$20
sta $85
lda $0430
ora #$80
sta $01 ;int_enable
lda $0435
and #$fb
sta $18 ;port4
lda #$00
sta $00 ;enable nor
lda #$f0
sta $8000
lda #$aa
sta $d555
lda #$55
sta $aaaa
lda #$90
sta $d555
lda $8000
cmp #$c7
bne l1
bcs l2
l1:clc
l2:lda #$f0
sta $8000
bcs l3
cli
JMP RESET;error1
l3:lda $81
pha
lda $82
pha
lda #$00
sta $83 ;erase flag
l6:lda #$aa ;erase 2k
sta $d555
lda #$55
sta $aaaa
lda #$80
sta $d555
lda #$aa
sta $d555
lda #$55
sta $aaaa
ldy #$00
lda #$30
sta ($81),y
l4:nop
lda $8000
bpl l4
nop
and #$08
beq l4
lda #$f0
sta $8000
lda $83
bne l5
inc $83
lda $82
clc
adc #$08
sta $82
jmp l6
l5:pla
sta $82
pla
sta $81
ldx #$10 ;write 4k
l10:ldy #$00
l9:lda #$aa
sta $d555
lda #$55
sta $aaaa
lda #$a0
sta $d555
lda ($84),y
sta ($81),y
l7:lda $8000
nop
bpl l7
and #$08
beq l7
lda #$f0
sta $8000
lda ($81),y
cmp ($84),y
bne l8
iny
bne l9
inc $82
inc $85
dex
bne l10
cli
JMP RESET
l8:
cli
RESETDA #$ff
STA $02
STA $03
brk $c001
rts
msg:.db $60
大家可别运行呀!
我的连重起都没反应!有谁能帮我看看是哪里错了吗 ?
我原来想把rest后强制升级的那段屏蔽掉!结果.........................
|
|