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

Anson

啊~既然有人发了这么完整的出来~那我的就不必要了~

swathingou

好东西

SAILOR-HB

汇编的这段里,"行标号"可是够特别的~

zhaofeixxx

我想把汇编的这段前面"行标号"去掉，因为我是在basic助手下编辑的。

zhaofeixxx

我正是玩了混乱羽翼大狭的“冲出遂道”才学回滚屏的，呵呵！

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,54,169,140,133,128,169,27,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 我才学汇编，不要笑我