简单实用的上下左右全滚屏的GVBASIC和汇编源码

cc90042938

刚准备发的......你让我想起了黑黑同志.
加精..

ttm68344

用了好像 就出现   "恶魔城－月下の夜想曲";
  怎么滚动啊？

hxdwq789

楼上的什么机器?

红色激情

也就是说,第一行、最后一行必须清点,而没有其他的方法吗?
我想不清点,直接让它滚起来,和左右滚一样,旁边没有残像.

红色激情

就是2600的，但是有一个问题，楼主的文字向左滚动不是全屏的！

Anson

所有显存从6592开始的机型都是可以的～

Anson

将140改为

140 DATA 162,80,169,192,133,128,169,25,133,129,24,160,19,177,128,42,145,128,136,208,248,177

试试看～

我猜这段是楼主直接从我的程序里面剥离而没有改好～因为我的那段就不是全屏的～所以需要修改～

[此贴子已经被作者于2005-5-1 19:28:28编辑过]

红色激情

好了，就是它了，多谢。
支持一切文曲星软件！
在下还有一问题
就是上下滚屏能不能不受第一、第二横行的影响呢？

Anson

不受影响？是什么意思？指不需要滚动前第一行为无点？你只要在滚动前把第一行清除掉不就可以了？

Anson

那需要修改汇编处程序～其实没有多大关系吧？就一行而已～

jehovah_king

能不能不用poke?

红色激情

呵呵，不行的，一旦POKE就只能上下滚了
而且速度会比乌龟还要慢！

白鸟_逸

啊~~~看不懂啊~~~~
谁可以告诉我有什么不用明白它的原理 而运用它的办法吗?

Anson

楼主在程序中写的应该比较清楚了～只要CALL 13000 13100 13200 13300之类就可以实现滚屏～当然～你的WQX必须和楼主一样是显存从$19C0开始的～如果不是需要修改程序

cc90042938

要有汇编知识是最好了......
CALL执行.
不懂就抄抄拉.....,不要管它

zhaofeixxx

10 FOR I =13000  TO 13054
20 READ T: POKE I,T: NEXT
30 DATA 169,255,133,128,169,31,133,129,169,235,133,130,169,31,133,131,160,0,177,130,145
40 DATA 128,198,128,165,128,201,255,208,2,198,129,198,130,165,130,201,255,208,2,198,131,165
50 DATA 130,201,191,208,226,165,131,201,25,208,220,96
60 REM 用一次 CALL 13000可下滚屏一行，注意使用 CALL 前屏幕第一横行必须无点
70 FOR I =13100  TO 13140
80 READ T: POKE I,T: NEXT
90 DATA 169,192,133,128,169,25,133,129,169,212,133,130,169,25,133,131,160,0,177,130,145,128
100 DATA 230,128,208,2,230,129,230,130,208,2,230,131,165,131,201,32,208,234,96
110 REM 用一次 CALL 13100可上滚屏一行，注意使用 CALL 前屏幕末横行必须无点
120 FOR I =13200  TO 13242
130 READ T: POKE I,T: NEXT
140 DATA 162,80,169,192,133,128,169,25,133,129,24,160,19,177,128,42,145,128,136,208,248,177 ;混乱羽翼注：此处问题已修正，见红字。
150 DATA 128,42,41,127,145,128,24,165,128,105,20,133,128,144,2,230,129,202,208,224,96
170 REM 用一次 CALL 13200可左滚屏一行
180 FOR I =13300  TO 13335
190 READ T: POKE I,T: NEXT
200 DATA 162,80,169,212,133,128,169,24,133,129,24,160,236,177,128,106,145,128,200,208,248,24
210 DATA 165,128,105,20,133,128,144,2,230,129,202,208,231,96
230 REM 用一次 CALL 13300可右滚屏一行
240 REM 我 POKE 坏了N次机才研究出来的，因为我是菜鸟嘛!
250 REM 估计图形缓存从6592开使的机型就可以用，我的机形是NC2000C
260 GRAPH
270 B =50:BB =13000: GOSUB 500
280 B =50:BB =13100: GOSUB 500
290 B =160:BB =13200: GOSUB 500
300 B =160:BB =13300: GOSUB 500: END
500 CLS : LOCATE 3,1: PRINT "恶魔城－月下の夜想曲";
510 FOR I =0  TO B: CALL BB
520 FOR J =0  TO 150: NEXT
530 NEXT
540 RETURN
550 汇编原码
560 下滚屏:
570 LDA #$FF
580 STA $80
590 LDA #$1F
600 STA $81
610 LDA #$EB
620 STA $82
630 LDA #$1F
640 STA $83
650 LDY #$00
660 L1DA ($82),Y
670 STA ($80),Y
680 DEC $80
690 LDA $80
700 CMP #$FF
710 BNE L2
720 DEC $81
730 L2EC $82
740 LDA $82
750 CMP #$FF
760 BNE L3
770 DEC $83
780 L3DA $82
790 CMP #$BF
800 BNE L1
810 LDA $83
820 CMP $19
830 BNE L1
840 RTS
850 上滚屏
860 LDA #$C0
870 STA $80
880 LDA #$19
890 STA $81
900 LDA #$D4
910 STA $82
920 LDA #$19
930 STA $83
940 LDY #$00
950 L1DA ($82),Y
960 STA ($82),Y
970 INC $80
980 BNE L2
990 INC $81
1000 L2:INC $82
1010 BNE L3
1020 INC $83
1030 L3:LDA $83
1040 CMP #$20
1050 BNE L1
1060 RTS
1070 左滚屏
1080 LDX #$36
1090 LDA #$8C
1100 STA $80
1110 LDA #$1B
1120 STA $81
1130 L1:CLC
1140 LDY #$13
1150 L2:LDA ($80),Y
1160 ROL
1170 STA ($80),Y
1180 DEY
1190 BNE L2
1200 LDA ($80),Y
1210 ROL
1220 AND #$7F
1230 STA ($80),Y
1240 CLC
1250 LDA $80
1260 ADC #$14
1270 STA $80
1280 BCC L3
1290 INC $81
1300 L3EX
1310 BNE L1
1320 RTS
1330 右滚屏
1340 LDX #$50
1350 LDA #$D4
1360 STA $80
1370 LDA #$18
1380 STA $81
1390 L1:CLC
1400 LDY #$EC
1410 L2:LDA ($80),Y
1420 ROR
1430 STA ($80),Y
1440 INY
1450 BNE L2
1460 CLC
1470 LDA $80
1480 ADC #$14
1490 STA $80
1500 BCC L3
1510 INC $81
1520 L3EX
1530 BNE L1
1540 RTS
1550 我才学汇编，不要笑我