1 *EIGHT WAY SCROLLING DAN PINAL 2 *EQUATES 3 SDLSTL EQU $230 4 STICK0 EQU $278 5 DLISTL EQU $D402 6 HSCROL EQU $D404 7 VSCROL EQU $D405 8 SETVBV EQU $E45C 9 XITVBV EQU $E462 10 * 11 SCREN EQU $0000 12 WIDTH EQU $0400 13 HEIGHT EQU $0040 14 SCRENH EQU 40 15 SCRENV EQU 20 16 WINDOW EQU $9C40+800 ;FOR A 40K OR 48K COMPUTER WITH CARTRIDGE 17 * 18 ORG $4000 19 * 20 START 4000 A900 21 LDA #$00 4002 8D5D42 22 STA ENABLE ;SET VBI FLAG TO OFF 23 * INIT SCROLL VARIABLES TO STARTUP VALUES 4005 8D4E42 24 STA MAPH ;SET SCREEN COORD. TO 0 4008 8D4F42 25 STA MAPH+1 400B 8D5042 26 STA MAPV 400E 8D5142 27 STA MAPV+1 4011 8D5942 28 STA FINEV 4014 8D05D4 29 STA VSCROL 4017 A90C 30 LDA #$0C 4019 8D5842 31 STA FINEH 401C 8D04D4 32 STA HSCROL 33 * INIT BASE ADDRESS TO SCREEN ADDRESS 401F A900 34 LDA #>SCREN 4021 8D5642 35 STA BASE 4024 A900 36 LDA #NDLIST 402E 8D3002 41 STA SDLSTL 4031 A942 42 LDA #VBI 403A A240 47 LDX #WIDTH-SCRENH 40BA D007 106 BNE AA1 40BC AD4F42 107 LDA MAPH+1 40BF C903 108 CMP #HEIGHT-SCRENV 4101 D007 143 BNE AB1 4103 AD5142 144 LDA MAPV+1 4106 C900 145 CMP #WIDTH 415A 8D4A42 184 STA RESULT 415D A904 185 LDA #SCREN 4194 6D4A42 211 ADC RESULT 4197 8D5642 212 STA BASE 419A A900 213 LDA #WIDTH 41CC 6D5642 240 ADC BASE 41CF 8D5642 241 STA BASE 41D2 A904 242 LDA #