10 DLI   =   $0200   ;512
20 DL    =   $0230   ;560
30 NMIEN =   $D40E   ;54286
40 SETVBV =  $E45C   ;58460
50 ;
80       *=  $6000
90       LDA #64
0100     STA NMIEN
0110     LDA #DLIST&255
0120     LDX #DLIST/256
0130     STA DL
0140     STX DL+1
0150     LDA #DLI&255
0160     LDX #DLI/256
0170     STA DLI
0180     STX DLI+1
0190     LDA #6
0200     LDY #VBI&255
0210     LDX #VBI/256
0220     JSR SETVBV
0230     LDA #192
0240     STA NMIEN
0250     RTS 
0260 ;
0270 ;Here include your Display list.
0280 ;(.INCLUDE #D:DLI.ASM)
0300 ;
0310 ;
0320 ;
0500 CHBAS = $02F4   ;756
0510 CHBASE = $D409  ;54281
0520 WSYNC = $D40A   ;54282
0530 SETVBV = $E45F  ;58463
0540 FIRST.CHARSET = $5300 ;pointer to address of your first charset.
0560 VBI
0570     LDA #FIRST.CHARSET/256
0580     STA CHBAS
0590     JMP SETVBV
0600 DLI PHA 
0610     LDA CHBAS
0620     CLC         ;here we set
0630     ADC #4      ;CHBASE to
0640     STA WSYNC   ;address of the
0650     STA CHBASE  ;next charset
0660     STA CHBAS
0670     PLA 
0680     RTI