%cvDLSINSTRC *** PROGRAM 2 ***66THIS WILL CREATE A DISPLAY LIST WITH DLI ENABLED66THE SCREEN WIDTH IS NARROWED AT DLI TIME AS WELL(-: +'0@@@ :SET BORDER COLOR2B%6-F:A`,%F:Aa,$AVBFIND START OF DISPLAY LIST<>$%@F:%@,%A(>TURN ON INTERRUPT BIT 7F>-@)>POKE DLI SERVICE ROUTINE INTO PAGE 6P"A6%Z d3372,138,72,169,40,162,48,141,10,212,141,23,208nCC142,24,208,169,33,141,0,212,162,140,142,26,208,104,170,104,64xPA'A@PPOINT TO DLI INTERRUPT SERVICE ROUTINE"BBA"ENABLE DMI!!*** DLI SERVICE ROUTINE ***PHA SAVE REGISTERS TXA PHA""LDA #$28 CHARACTER LUMINENCELDX #$30 BACKGROUND COLOR))STA $D40A WAIT FOR HORIZONTAL SYNCHSTA $D017 PLAYFIELD 1STX $D018 PLAYFIELD 2LDA #21 NARROW PLAYFIELD))STA $D400 DMACTL ENABLE NAROW WIDTHLDX #$8C BORDER COLORSTX $DO1A COLBKPLA RESTORE REGISTERS TAX PLA!!RTI RETURN FROM INTERRUPT D2:DISASEM2