10 ;›20 ;HELLO SCREEN›30 ;›40  *=$3000›50  JMP INIT›60 ;›70 SDMCTL=$022F›80 ;›90 SDLSTL=$0230›0100 SDLSTH=$0231›0110 ;›0120 COLOR0=$02C4; OS COLOR REGISTERS›0130 COLOR1=$02C5›0140 COLOR2=$02C6›0150 COLOR3=$02C7›0160 COLOR4=$02C8›0170 ;›0180 ;DISPLAY LIST DATA›0190 ;›0200 START›0210 ;›0220 LINE1 .SBYTE "      PRESENTING    "›0230 LINE2 .SBYTE "   the big program  "›0240 LINE3 .SBYTE "     By (your name) "›0250 ;›0260 LINE4 .SBYTE "  PLEASE STAND BY   "›0270 ;›0280 ;DISPLAY LIST›0290 ;›0300 HLIST›0310  .BYTE $70,$70,$70; 3 BLANK LINES›0320  .BYTE $70, $70, $70, $70,$70; MORE BLANK LINES›0330  .BYTE $46; LSM, ANTIC MODE 6 (BASIC MODE 2)›0340  .WORD LINE1; (TEXT LINE: "PRESENTING...")›0350  .BYTE $70,$70,$70,$70,$47; LMS, ANTIC MODE 7›0360  .WORD LINE2; (TEXT LINE: "THE BIG PROGRAM")›0370  .BYTE $70,$42; (LMS, ANTIC MODE 2 [GR.0])›0380  .WORD LINE3;(TEXT LINE: "By [Your Name]") ›0390  .BYTE $70,$70,$70,$70,$46;LMS, ANTIC MODE 6›0400  .WORD LINE4; (TEXT LINE: "PLEASE STAND BY")›0410  .BYTE $70,$70,$70,$70,$70; 5 BLANK LINES›0420  .BYTE $41; JVB INSTRUCTION›0430  .WORD HLIST; TO JUMP BACK TO START OF LIST›0440 ;›0450 ;RUN PROGRAM›0460 ;›0470 INIT NOP; SWITCHING COLOR REGISTERS FOR NICELY COLORED DISPLAY›0480  LDA COLOR3›0490  STA COLOR1›0500  LDA COLOR4›0510  STA COLOR2›0520 ; NOW WE'LL RUN THE PROGRAM›0530  LDA #0›0540  STA SDMCTL; TURN ANTIC OFF FOR A MOMENT ...›0550  LDA #HLIST&; WHILE WE STORE OUR NEW LIST'S ADDRESS›0560  STA SDLSTL; IN THE OS DISPLAY POINTER.›0570  LDA # HLIST/256; NOW FOR THE HIGH BYTE.›0580  STA SDLSTH; NOW ANTIC WILL KNOW OUR NEW ADDRESS›0590  LDA #$22›0600  STA SDMCTL; ... SO WE'LL TURN ANTIC BACK ON NOW›0610 ;›0620 FINI›0630  RTS››