易码技术论坛

 找回密码
 加入易码
搜索
查看: 140020|回复: 3

[复制链接]
发表于 2005-4-17 15:49:00 | 显示全部楼层
能否搞个宽以象索计量运作的程式???
 楼主| 发表于 2005-4-17 16:15:00 | 显示全部楼层
可以~不过个人觉得没有必要~byte已经够了~而且以象素记的话程序更麻烦~
发表于 2005-4-17 18:21:00 | 显示全部楼层
好强,我顶!
 楼主| 发表于 2005-4-15 17:30:47 | 显示全部楼层 |阅读模式
<任意范围(宽精确到byte)四方向滚屏子程序>
入参:$7E滚屏类型 0为水平 非0为竖直
      $7F滚屏方向 0为逆向既向左或向上 1为正向既向右或向下
      $84,85滚屏开始位置 长以byte为单位 高以象素为单位
      $86,87滚屏范围便宜 宽以byte为单位 高以象素为单位
出参:无

CODE $2300================
2300- LDA #$C0
2302- STA $80
2304- LDA #$19(如为1020则将此处改为LDA #$09)
2306- STA $81
2308- CLC
2309- LDA $80
230B- ADC $84
230D- STA $80
230F- BCC $2313
2311- INC $81
2313- LDY $85
2315- BEQ $231D
2317- JSR $23B0(如将程序移往别处则所有的JSR都需要修改为相应地址)
231A- DEY
231B- BNE $2317
231D- LDA $7E
231F- BNE $2360
2321- LDA $7F
2323- BNE $2343
2325- LDX $87
2327- LDY $86
2329- CLC
232A- DEY
232B- BEQ $2335
232D- LDA ($80),Y
232F- ROL
2330- STA ($80),Y
2332- DEY
2333- BNE $232D
2335- LDA ($80),Y
2337- ROL
2338- AND #$7F
233A- STA ($80),Y
233C- JSR $23B0
233F- DEX
2340- BNE $2327
2342- RTS
2343- LDX $87
2345- LDY #$00
2347- CLC
2348- LDA ($80),Y
234A- ROR
234B- STA ($80),Y
234D- PHP
234E- INY
234F- CPY $86
2351- BEQ $2358
2353- PLP
2354- LDA #$00
2356- BEQ $2348
2358- PLP
2359- JSR $23B0
235C- DEX
235D- BNE $2345
235F- RTS
2360- LDA $7F
2362- BNE $2386
2364- LDA $80
2366- STA $82
2368- LDA $81
236A- STA $83
236C- JSR $23BC
236F- LDX $87
2371- LDY #$00
2373- LDA ($82),Y
2375- STA ($80),Y
2377- INY
2378- CPY $86
237A- BNE $2373
237C- JSR $23B0
237F- JSR $23BC
2382- DEX
2383- BNE $2371
2385- RTS
2386- LDX $87
2388- JSR $23B0
238B- DEX
238C- BNE $2388
238E- LDA $80
2390- STA $82
2392- LDA $81
2394- STA $83
2396- JSR $23D4
2399- LDX $87
239B- LDY #$00
239D- LDA ($82),Y
239F- STA ($80),Y
23A1- INY
23A2- CPY $86
23A4- BNE $239D
23A6- JSR $23C8
23A9- JSR $23D4
23AC- DEX
23AD- BNE $239B
23AF- RTS
23B0- CLC
23B1- LDA $80
23B3- ADC #$14
23B5- STA $80
23B7- BCC $23BB
23B9- INC $81
23BB- RTS
23BC- CLC
23BD- LDA $82
23BF- ADC #$14
23C1- STA $82
23C3- BCC $23C7
23C5- INC $83
23C7- RTS
23C8- SEC
23C9- LDA $80
23CB- SBC #$14
23CD- STA $80
23CF- BCS $22FB
23D1- DEC $81
23D3- RTS
23D4- SEC
23D5- LDA $82
23D7- SBC #$14
23D9- STA $82
23DB- BCS $22FB
23DD- DEC $83
23DF- RTS
==========================
您需要登录后才可以回帖 登录 | 加入易码

本版积分规则

Archiver|手机版|小黑屋|EMAX Studio

GMT+8, 2024-3-29 07:01 , Processed in 0.008987 second(s), 18 queries .

Powered by Discuz! X3.4

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表