05 ; VERTICAL SCROLL BY NIR DAREY
10 PMBASE =  $D407   ;54279
20 PCOLR0 =  $02C0   ;704
30 SDMCTL =  $022F   ;559
40 GRACTL =  $D01D   ;53277
50 HPOSP0 =  $D000   ;53248
60 SIZEP0 =  $D008
70 ;
80       *=  $6000
90 DUMMY2 LDA #PMDATA1/256
0100     STA PMBASE  ;(54279)
0110     LDA #90
0120     STA PCOLR0  ;(704)
0130     LDA #46
0140     STA SDMCTL  ;(559)
0150     LDA #3
0160     STA GRACTL  ;(53277)
0170     LDA #45
0180     STA HPOSP0  ;(53248)
0190 ;
0200 PMDATA1 = $6A00
0210 PMDATA2 = $7000
0214 ENDPMDATA2 = $74C8
0220 ;
0230     LDA #$01
0240     STA SIZEP0
0250     LDA #$07
0260     STA DUMMY2
0270     LDA #$06
0280     LDY #MAINLOOP&255
0290     LDX #MAINLOOP/256
0300     JSR $E45C
0310     RTS 
0320 MAINLOOP DEC DUMMY2
0330     LDA DUMMY2
0340     BMI L0001
0350     LDA #$07
0360     STA DUMMY2
0370     JMP MOVEDATA
0380 RETURN1 INC LOOP+1
0390     BNE L0001
0400     INC LOOP+2
0410 L0001 LDA LOOP+2
0420     CMP #ENDPMDATA2/256
0430     BNE EXITVBI
0440     LDA LOOP+1
0450     CMP #ENDPMDATA2&255
0460     BNE EXITVBI
0470     LDA #PMDATA2&255
0480     STA LOOP+1
0490     LDA #PMDATA2/256
0500     STA LOOP+2
0505 EXITVBI JMP $E45F
0510 ;
0520 MOVEDATA
0530     LDY #255
0540 LOOP LDA PMDATA2,Y
0550     STA PMDATA1,Y
0560     DEY 
0570     BNE LOOP
0580     JMP RETURN1
0590 ;