chapter5/CH5PRG1.LST:

10 DLIST=PEEK(560)+256*PEEK(561):REM Find display list
20 POKE DLIST+15,130:REM Insert interrupt instruction
30 FOR I=0 TO 19:REM Loop for poking DLI service routine
40 READ A:POKE 1536+I,A:NEXT I
50 DATA 72,138,72,169,80,162,88
60 DATA 141,10,212,141,23,208
70 DATA 142,24,208,104,170,104,64
80 POKE 512,0:POKE 513,6:REM Poke in interrupt vector
90 POKE 54286,192:REM Enable DLI

Back to previous page