10 ;›20 ;HELLO SCREEN (COARSE)›30 ;›40  *=$3000›50  JMP INIT›60 ;›70 TCKPTR=$2000›80 ;›90 SDMCTL=$022F›100 ;›110 SDLSTL=$0230›120 SDLSTH=$0231›130 ;›140 COLOR0=$02C4; OS COLOR REGISTERS›150 COLOR1=$02C5›160 COLOR2=$02C6›170 COLOR3=$02C7›180 COLOR4=$02C8›190 ;›200 ;DISPLAY LIST DATA›210 ;›220 START›230 LINE1 .SBYTE "        PRESENTING    "›240 LINE2 .SBYTE "                      "›250   .SBYTE "  THE BIG PROGRAM     "›260   .SBYTE "                      "›270 LINE3 .SBYTE "                By (You"›280   .SBYTE "r Name)               "›290 LINE4 .SBYTE "   PLEASE STAND BY"›300 ;›310 ; HELLO DISPLAY LIST›320 ;›330 HLIST›340  .BYTE $70,$70,$70›350  .BYTE $70, $70, $70, $70,$70›360  .BYTE $46›370  .WORD LINE1›380  .BYTE $70,$70,$70,$70,$47›390 SCROLN NOP›400  .WORD $00›410  .BYTE $70,$42›420  .WORD LINE3 ›430  .BYTE $70,$70,$70,$70,$46›440  .WORD LINE4›450  .BYTE $70,$70,$70,$70,$70›460  .BYTE $41›470  .WORD HLIST›480 ;›490 ;RUN PROGRAM›500 ;›510 INIT NOP›520  LDA COLOR3›530  STA COLOR1›540  LDA COLOR4›550  STA COLOR2›560 ; ›570  LDA #0›580  STA SDMCTL›590  LDA #HLIST&255›600  STA SDLSTL›610  LDA # HLIST/256›620  STA SDLSTH›630  LDA #$22›640  STA SDMCTL›650 ;›660 ; COARSE SCROLLING ROUTINE›670 ;›680  LDA #40›690  STA TCKPTR›700  JSR TCKSET›710 ;›720 COARSE NOP›730  LDY TCKPTR; 40 TO START›740  DEY›750  BNE SCORSE›760  LDY #40›770  JSR TCKSET›780 SCORSE NOP›790  STY TCKPTR›800  INC SCROLN›810  BNE LEAP›820  INC SCROLN+1›830 ;›840 ; DELAY LOOP›850 ;›860 LEAP NOP›870  TYA›880  PHA; SAVE Y REGISTER›890  LDX #$FF›900 XLOOP NOP›910  LDY #$80›920 YLOOP NOP›930  DEY›940  BNE YLOOP›950 ;›960  DEX›970  BNE XLOOP›980  PLA›990  TAY; RESTORE Y REG›1000 ;›1010  JMP COARSE›1020 ;›1030 TCKSET NOP›1040  LDA #LINE2&255›1050  STA SCROLN›1060  LDA #LINE2/256›1070  STA SCROLN+1›1080 ENDIT NOP›1090  RTS››