[分享]任意位置输出小字

bqq00

可惜我的字库没了

litianzzk

;输出小字体到屏幕,文字($A8)($00结尾),屏幕位置XA6,YA7

;适用于nc3000

;应该nc2000,nc2600,pc1010,pc2000,pc2300,tc1000也可以用的
OutTxt
LDY #$00
OTL4
LDA($A8),Y
CMP #$00
BNE OTL1
OTL3
RTS
OTL1
STA $92
BPL OTL2
INY
LDA ($A8),Y
BEQ OTL3
STA $93
INY
JSR OTCH
CLC
LDA $A6
ADC #$0C
STA $A6
JMP OTL4
OTL2
JSR OTEN
INY
CLC
LDA $A6
ADC #$06
STA $A6
JMP OTL4
OTCH
TYA
PHA
INT $C705  ;取出汉字12*12字模到$280,入参92,$93
LDA #$08
STA $027E
LDA #$0C
STA $027F
LDA #$7E
STA $92
LDA #$02
STA $93
LDX $A6
LDY $A7
INT $CA0D  ;哈哈,为了偷懒,我直接用系统中断来贴图了
LDA #$08
STA $028A
LDA #$0C
STA $028B
LDA #$8A
STA $92
LDA #$02
STA $93
CLC
LDA $A6
ADC #$08
TAX
LDY $A7
INT $CA0D
PLA
TAY
RTS
OTEN
TYA
PHA
LDA $92
INT $C706  ;取出英文6*12字模到$280,入参:A
LDA #$08
STA $027E
LDA #$0C
STA $027F
LDA #$7E
STA $92
LDA #$02
STA $93
LDX $A6
LDY $A7
INT $CA0D  ;哈哈,为了偷懒,我直接用系统中断来贴图了
PLA
TAY
RTS





这个程序仅为抛砖引玉,大家觉得不好就自己改进,任意位置的大字显示也差不多的,大家可以研究研究,大家如果有更好用,效率更好的程序也别忘了发出来给大家分享哦!