先在WQX上写了在写到电脑上滴~WQX端测试正常~6502sim代码没有转换测试过~不过貌似没有错误吧~其实第一次用sim写程序~吼吼~图片都是原创~
;/////////////////////////////;
;8*8 myself letters bank ;
; ;
;Refresh sub: ;
;in: $02C0 to $0387 for ASCII ;
;/////////////////////////////;
BMPRAM=$09C0
table:
.DB $00,$14,$28,$3C,$50,$64,$78,$8C
Refresh:
LDA #$09
STA $0405
lop2:
LDA #$13
STA $0404
LDX $0405
LDY #$14
JSR MULTIPLY
CLC
LDA $40
ADC #$C0
STA $80
LDA $41
ADC #$02
STA $81
lop1:
LDY $0404
LDA ($80),Y
BNE haveasc
next:
DEC $0404
BPL lop1
DEC $0405
BPL lop2
RTS
haveasc:
TAX
LDY #$08
JSR MULTIPLY
CLC
LDA $40
ADC #<bank-$50
STA $82
LDA $41
ADC #>bank-$50
STA $83
LDX $0405
LDY #$A0
JSR MULTIPLY
CLC
LDA $40
ADC #<BMPRAM
STA $40
LDA $41
ADC #>BMPRAM
STA $41
CLC
LDA $40
ADC $0404
STA $84
BCC aa
INC $41
aa:
LDA $41
STA $85
LDX #$07
lop3
TXA
TAY
LDA ($82),Y
LDY TABLE,X
STA ($84),Y
DEX
BPL lop3
SEC
BCS next
MULTIPLY:
LDA #$00
STA $40
STA $41
STA $42
notend:
TXA
AND #$01
BEQ noadd
TYA
CLC
ADC $40
STA $40
LDA $41
ADC $42
STA $41
noadd:
TYA
ASL
TAY
ROL $42
TXA
LSR
TAX
BNE notend
bank:
.DB $FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$00,$03,$06,$0C,$19,$13,$37,$27
.DB $FF,$80,$3E,$FF,$FF,$E1,$C1,$B1,$80,$E0,$30,$18,$0C,$04,$06,$02
.DB $2F,$4F,$4F,$4F,$47,$40,$23,$27,$52,$64,$18,$60,$80,$03,$FC,$80
.DB $02,$01,$01,$31,$C9,$09,$0A,$12,$37,$13,$19,$0C,$06,$03,$00,$00
.DB $C0,$E0,$FF,$7F,$1F,$80,$FF,$00,$16,$24,$CC,$98,$30,$E0,$80,$00
.DB $00,$03,$06,$0C,$19,$13,$37,$26,$FF,$80,$00,$7F,$FF,$BF,$7F,$7F
.DB $80,$E0,$30,$18,$CC,$E4,$F6,$F2,$26,$47,$43,$41,$44,$46,$27,$27
.DB $FC,$F8,$F0,$E7,$0F,$1F,$FF,$FF,$32,$11,$01,$99,$CD,$E1,$A2,$22
.DB $37,$13,$19,$0C,$06,$03,$00,$00,$FF,$FE,$FF,$7F,$00,$80,$FF,$00
.DB $66,$E4,$CC,$18,$30,$E0,$80,$00,$0C,$1E,$47,$7F,$1E,$47,$7F,$00
.DB $7F,$71,$3C,$7F,$71,$3C,$18,$00,$0C,$0E,$1E,$1E,$37,$27,$7F,$00
.DB $7F,$72,$76,$3C,$3C,$38,$18,$00,$00,$00,$00,$00,$00,$00,$00,$00
.DB $0C,$1C,$1C,$18,$00,$1C,$18,$00,$36,$36,$24,$24,$00,$00,$00,$00
.DB $12,$7F,$7A,$17,$7F,$12,$12,$00,$0C,$7F,$6C,$7F,$0F,$7F,$0C,$00
.DB $39,$33,$26,$0C,$19,$33,$27,$00,$1C,$24,$14,$3D,$69,$3E,$06,$00
.DB $0C,$0C,$0C,$08,$00,$00,$00,$00,$0C,$1C,$18,$10,$10,$1C,$0C,$00
.DB $0C,$0E,$02,$02,$06,$0E,$0C,$00,$00,$16,$1C,$0F,$3C,$0E,$1A,$00
.DB $00,$08,$0C,$1F,$3E,$0C,$04,$00,$00,$00,$00,$18,$18,$10,$20,$00
.DB $00,$00,$00,$3F,$1C,$00,$00,$00,$00,$00,$00,$00,$18,$1C,$14,$00
.DB $07,$02,$0E,$08,$38,$20,$70,$00,$3E,$61,$67,$6B,$73,$43,$3E,$00
.DB $1C,$3C,$0C,$0C,$0C,$1E,$3F,$00,$3E,$7F,$03,$3E,$60,$7F,$7E,$00
.DB $3C,$7E,$03,$1E,$03,$3E,$7C,$00,$64,$6C,$6C,$7F,$0C,$0C,$08,$00
.DB $40,$7E,$60,$7E,$03,$23,$7E,$00,$1E,$7E,$60,$7E,$63,$61,$3E,$00
.DB $7F,$7F,$61,$03,$03,$1E,$1C,$00,$7E,$63,$43,$7F,$61,$63,$3F,$00
.DB $3E,$63,$61,$7F,$01,$73,$7E,$00,$00,$0C,$0C,$00,$0C,$0C,$00,$00
.DB $00,$0C,$0C,$00,$0C,$0C,$18,$00,$03,$06,$0C,$18,$0C,$06,$03,$00
.DB $00,$3F,$1C,$00,$3F,$1C,$00,$00,$30,$18,$0C,$06,$0C,$18,$30,$00
.DB $1E,$1A,$12,$06,$00,$0C,$0C,$00,$0F,$31,$37,$35,$35,$34,$2F,$00
.DB $70,$68,$44,$5E,$7F,$63,$41,$00,$7C,$63,$43,$7E,$43,$5F,$7E,$00
.DB $1E,$3C,$40,$40,$60,$67,$3E,$00,$7C,$42,$43,$63,$63,$67,$3E,$00
.DB $3E,$7E,$40,$7C,$70,$47,$7F,$00,$1F,$7F,$60,$78,$7E,$60,$60,$00
.DB $1E,$3C,$40,$4F,$67,$71,$3E,$00,$43,$63,$63,$7F,$4F,$63,$63,$00
.DB $3F,$0C,$0C,$08,$08,$3C,$3F,$00,$3F,$2D,$0C,$0C,$44,$64,$78,$00
.DB $67,$6E,$78,$70,$58,$4C,$6F,$00,$40,$60,$60,$60,$60,$66,$7F,$00
.DB $61,$7B,$6F,$65,$61,$61,$41,$00,$63,$73,$59,$4D,$67,$63,$63,$00
.DB $3E,$61,$63,$43,$43,$73,$3E,$00,$7E,$63,$61,$4F,$7E,$60,$60,$00
.DB $3E,$61,$61,$65,$67,$77,$3D,$00,$7E,$4F,$61,$63,$7E,$66,$63,$00
.DB $3F,$7C,$40,$7E,$3F,$01,$7E,$00,$7F,$3D,$0C,$0C,$0C,$0C,$08,$00
.DB $61,$63,$63,$63,$43,$5F,$3D,$00,$43,$63,$63,$61,$23,$16,$0C,$00
.DB $61,$63,$63,$4B,$5B,$7F,$32,$00,$67,$76,$08,$1C,$23,$63,$61,$00
.DB $43,$63,$22,$1C,$18,$08,$08,$00,$7F,$73,$06,$0C,$18,$73,$7F,$00
.DB $3C,$30,$30,$30,$20,$3C,$3C,$00,$60,$60,$10,$08,$04,$03,$03,$00
.DB $3C,$3C,$04,$0C,$0C,$0C,$3C,$00,$0C,$1E,$33,$00,$00,$00,$00,$00
.DB $00,$00,$00,$00,$00,$00,$7F,$00,$30,$38,$18,$08,$00,$00,$00,$00
.DB $00,$00,$3E,$46,$66,$66,$3B,$00,$60,$60,$7E,$61,$63,$63,$3E,$00
.DB $00,$00,$3E,$73,$40,$47,$3E,$00,$02,$03,$3F,$63,$43,$5D,$3D,$00
.DB $00,$00,$3E,$43,$7F,$60,$3E,$00,$06,$0B,$08,$7F,$0F,$08,$08,$00
.DB $00,$1D,$3A,$22,$1E,$06,$22,$1E,$60,$60,$7E,$63,$63,$61,$41,$00
.DB $0C,$0C,$00,$0C,$0C,$0C,$08,$00,$0C,$0C,$00,$04,$0C,$0C,$0C,$38
.DB $60,$60,$67,$6E,$78,$4C,$67,$00,$18,$18,$18,$18,$10,$10,$1C,$18
.DB $00,$00,$76,$4B,$6B,$63,$61,$00,$00,$00,$5E,$73,$31,$31,$21,$00
.DB $00,$00,$3E,$61,$43,$63,$3E,$00,$00,$7C,$46,$42,$7C,$60,$60,$40
.DB $00,$3C,$42,$72,$3E,$06,$07,$06,$00,$00,$6E,$33,$30,$30,$10,$00
.DB $00,$00,$3F,$60,$7F,$03,$7E,$00,$08,$08,$3E,$38,$08,$0A,$0C,$00
.DB $00,$00,$43,$63,$63,$63,$3D,$00,$00,$00,$47,$63,$22,$14,$08,$00
.DB $00,$00,$43,$63,$6B,$69,$36,$00,$00,$00,$63,$36,$08,$36,$63,$00
.DB $00,$00,$43,$62,$1C,$08,$30,$60,$00,$00,$7F,$46,$18,$63,$7F,$00
.DB $1C,$18,$30,$20,$30,$10,$0C,$00,$08,$08,$08,$08,$08,$08,$08,$08
.DB $30,$08,$0C,$04,$0C,$18,$38,$00,$38,$4D,$06,$00,$00,$00,$00,$00
.DB $7E,$B7,$B7,$C9,$B7,$B7,$C9,$FF,$00,$0E,$00,$60,$00,$06,$20,$00
.DB $00,$18,$7E,$18,$7E,$7E,$18,$18,$4C,$33,$64,$18,$00,$19,$26,$00
.DB $1C,$2A,$2A,$1C,$2A,$49,$7F,$08,$40,$6F,$4F,$6F,$46,$60,$40,$7F
.DB $00,$00,$00,$00,$00,$00,$00,$FF,$00,$3C,$6A,$4A,$52,$56,$52,$FF
.DB $02,$F6,$F2,$F6,$62,$06,$02,$FE,$3E,$7F,$7F,$7F,$77,$51,$41,$3E
.DB $3E,$7F,$41,$77,$55,$41,$5D,$3E,$3E,$7F,$79,$7B,$71,$51,$41,$3E
.DB $3E,$7F,$4F,$6F,$47,$45,$41,$3E,$7F,$55,$49,$55,$7F,$08,$08,$1C
.DB $3E,$41,$5D,$41,$3E,$08,$08,$1C
|