These scrolltexts are found in 'Code Demo 1':

1 scrolltexts.

Code Demo 1 by Entropy

Code Demo 1 PRESENTS - CODE DEMO NUMBER 1 - CODERS. IT IS NOT AIMED AT THE PERSON TH - - A FAST SHAKE-MAKER. EASY TO LISTEN TO, AND NOT TOO EXTREME. EASY BUILT-UP, BUT ANYWAY GOOD IN IT'S OWN WAYS. LISTEN TO IT MANY TIMES......... - CODE DEMO NUMBER 1 - WELL ANOTHER BRILLANT IDEA FLOWS OUT OF THE SHED. THIS IDEA IS TO HELP ONLY THE WANNA BE CODERS. IT IS NOT AIMED AT THE PERSON THAT CAN ALREADY CODE. THE FIRST ONE WILL SHOW YOU HOW TO GET YOUR 64 READY TO EXCEPT SOME CODE. THEN IT WILL SHOW YOU HOW TO COLOUR THE CURSOR AND THE SCREEN TO THE COLOUR OF YOUR CHOICE. IT WILL ALSO SHOW YOU HOW TO PLOT TEXT ONTO THE SCREEN, SET AND PLAY MUSIC. LAST BUT NOT LEAST TO PLOT A KOALA LOGO IN BANK 2. SO I HOPE THAT THIS IS WHAT YOU WANT TO KNOW. NOW THE CREDS.... INTRO LOGO BY BLOW. INTRO AND DEMO CHARS BY EPIK. DEMO LOGO BY EPIK. INTRO AND DEMO MUSIC BY SANDMAN. INTRO, DEMO AND IDEAS BY STEIGER/ENTROPY. CHOW!! - - !PCONVERSION BY SANDMAN/MGT - BDFHJLNPRTVXZ/^ "$ - THIS TUNE IS A COVER OF A VERY GOOD TUNE INDEED.I FIRST HEARD IT AT A DISCO WHEN I GRADUATED FROM THE HIGH-STADIUM. IT'S A VERY NICE TUNE WITH A GOOD MELODY. - D* COMMODORE 64 BASIC V2 - . 64K RAM SYSTEM 38911 BASIC BYTES FREE - CODE DEMO WILL SHOW YOU HOW'S IT'S DONE!! - WELCOME TO THE CODE DEMO. THIS DEMO WILLNOT SHOW YOU ANY MIND BLOWING EFFECTS ASIT IS JUST THE FIRST ONE AND I WANT TO TARGET THIS AT NEW CODERS. HENCE WHY I START WITH THE STANDARD 64 COLOURS. - E IN THIS SMALL DEMO YOU WILL BE SHOWEN HOW TO CODE UP YOUR OWN SCREEN. AS THE CODE APPEARS THE EFFECT THAT THE CODE RELATES TO. THE EFFECTS WILL RUN AT THE THE SMALL QUOTES AT THE END OF THE CODE - E.OK! LET'S START! - -THAT'S THAT BIT- - - THAT'S THE FIRST - - - SIGHT AND SOUND APPEARS! - - RIGHT... NOW LET ME EXPLAIN A BIT ABOUT WHAT HAPPENS NOW. YOU WILL SEE SOME CODEAPPEAR THAT WE DID AT FIRST, IF THIS IS WIPED OUT AND OTHER CODE IS ENTERED, - D THAT MEANS THAT THE NEW CODE REPLACES THE OLD STUFF THAT WE PUT IN EARLIER. SO TAKE NOTE IF YOU ARE MADLY COPYING THIS DOWN. THAT IS WHY I PUT IN A SPACE BAR EFFECT, SOME WRITE SLOWER THAN OTHERPEOPLE. - OK... LET'S ADD A KOALA LOGO AT THE BASEOF THE SCREEN IN BANK 2. - R IRQ LDA #$30 - X -NOTICE THAT?- - Q NOW MAKE SURE THAT YOU HAVE LOADED A - D KOALA PICTURE INTO $6000. - O A KOALA DIRECTORY DISPLAY LOOKS LIKE - PIC PICTURE NAME " - N OK NOW THAT IS IT FOR THIS CODE DEMO. THE NEXT ONE WILL START WHERE THIS ONE ENDS. SO KEEP A COPY HANDY SO YOU KNOW WHERE YOU ARE UP TO. NOW GO AND LOAD - D THE CODE EXPLAINATION FILE AND SEE HOW ALL THIS WORKS. - NOW MAKE SURE THAT YOU HAVE LOADED A - D KOALA PICTURE INTO $6000. - O A KOALA DIRECTORY DISPLAY LOOKS LIKE - PIC PICTURE NAME " - N OK NOW THAT IS IT FOR THIS CODE DEMO. THE NEXT ONE WILL START WHERE THIS ONE ENDS. SO KEEP A COPY HANDY SO YOU KNOW WHERE YOU ARE UP TO. NOW GO AND LOAD - D THE CODE EXPLAINATION FILE AND SEE HOW ALL THIS WORKS. -

Code Demo 1 by Entropy

Code Demo 1 RESET EVERYTHING SEI - SET INTERUPT LDA #<IRQ - SKIP TO IRQ LDY #>IRQ STA $0314 STY $0315 LDA #$01 - SET $D019/$D01A STA $D01A - STA $D019 - LDA #$7F - HELP GET OUT OF INTERUPTS STA $DC0D STA $DD0D LDA #$37 STA $01 - SET ROM LDA #$00 - INTIATE MUSIC TAX TAY JSR $1000 JSR SET - JSR TO SETUP ROUTINE CLI - CLEAR THE INTERUPT JMP HERE - JUMP TO THIS ADDRESS ;------- - ABBEHKNQTWZ] #&),/ - . - I THE ICEWRITER V3.0 PRO. INFO-PAGE! F1/F2 : PAGE FORWARD/BACKWARD F3/F4 : INC/DEC BORDERCOLOR F5/F6 : CUT/PASTE PAGE F7 : HELPPAGE(THIS ONE) F8 : SET ENDMARK CRTL+1-4 : FLASH-COLORS RUN/STOP : EXIT TO THE MENU SHIFT+L/C/R : LEFT/CENTER/RIGHT LINE COMM.+L/C/R : LEFT/CENTER/RIGHT PAGE SHIFT+I/D : INSERT/DELETE LINE SHIFT+RETURN : CENTER CURSOR SHIFT+K : KEYREPEAT ON/OFF SHIFT+M : MUSIC ON/OFF SHIFT+W : WORDWRAP ON/OFF SHIFT+F : LINE FLASH COMM.+W : WORD FLASH SHIFT+X : EXT. FLASH SHIFT+^ : DELETE LINE FROM CURSOR SHIFT/COMM.+P: CUT PASTE LINE REMEMBER TO SET THE ENDMARK! PRESS SPACE! THE ICEWRITER V3.0 PRO. CODED BY ICEBALL OF EPIC! - TEST THE NOTE (RUN/STOP TO EXIT) EDIT THE TEXT (RUN/STOP TO EXIT) EDIT ALL THE COLORS EDIT THE MUSICPARAMETERS LOAD SOME MUSIC ($1000-$2800) LOAD AN 1X1 FONT INVERT THE 1X1 FONT CLEAR ALL TEXTPAGES SHOW TEXTEDITOR-HELPSCREEN SHOW THE DIRECTORY ON THE DISK LOAD SOME TEXTPAGES SAVE SOME TEXTPAGES LOAD ALL THE COLORS SAVE ALL THE COLORS PACK AND SAVE THE NOTE USE <CRSR>-KEYS AND RETURN TO SELECT! - INIT: LDA #$00 , LDX #$00 , LDY #$00 JSR $1000 PLAY: JSR $1003 PLAY MUSIC WITH DOUBLESPEED: N - - SPACE TO SAVE! - RESET EVERYTHING SEI - SET INTERUPT LDA #<IRQ - SKIP TO IRQ LDY #>IRQ STA $0314 STY $0315 LDA #$01 - SET $D019/$D01A STA $D01A - STA $D019 - LDA #$7F - HELP GET OUT OF INTERUPTS STA $DC0D STA $DD0D LDA #$37 STA $01 - SET ROM LDA #$00 - INTIATE MUSIC TAX TAY JSR $1000 JSR SET - JSR TO SETUP ROUTINE CLI - CLEAR THE INTERUPT JMP HERE - JUMP TO THIS ADDRESS ;------- - LDA #$0F - SET CURSOR COLOUR STA $0286 JSR $E544 - CLEAR SCREEN LDA #$00 - LOAD #$00 TO; STA $D011 - CLEAR $D011 STA $D020 - SET BOARDER COLOUR STA $D021 - SET SCREEN COLOUR TAX - TRANSFER ACUMULATOR TO X - LOAD TEXT ADDRESS STA $0630,X - TO THIS SCREEN POSITION INX - INCREASE X REGISTER BNE - BRANCH TO LABEL - RTS - RETURN TO SUB ROUTINE ;------ THAT IS ALL THAT IS NEEDED TO SET UP THE 64. NOW YOU ARE READY TO DO SOMETHING WITH YOUR MACHINE. NOW I HAD BETTER EXPLAIN A BIT. THE 2 COMMANDS TAXAND INX MIGHT BE A BIT CONFUSING TO A NEW COMER, SO LET ME EXPLAIN. INX MEANS TO INCREASE THE REGISTER X 2 BLOCKS FROMTHE LINES WITH X. TURN THE PAGE AND I WILL SHOW AND EXAMPLE. IF YOU LOAD SOMETHING LIKE THIS; LDA $4000,X GOES TO $4100 STA $0500,X GOES TO $0600 INX BUT IF YOU INSERT A COMMAND LIKE CPX, THIS IS COMPARE WITH X, YOU GET THIS LDA $4000,X NOW GOES TO $40A0 STA $0500,X NOW GOES TO $05A0 INX CPX #$A0 SEE THE DIFFERANCE? SIMPLE AH! THE COMMAND TAX WITH TRANSFER THE LAST VALUE LOADED INTO THE ACUMLUATOR INTO THE X REGISTER. LDA #$08 TAX X NOW IS THE SAME AS LDX #$08. - LDA #$30 - GRAB RASTER LINE ^ CMP $D012 UNDER TOP BOARDER BNE ^ - BRANCH TO LABEL ^ LDA #$18 - GET CHAR FROM $2000 LDY #$08 - TURN MULTI COLOUR OFF LDX #$1B - TURN HI-RES OFF STA $D018 - GOES WITH LDA STY $D016 - GOES WITH LDY STX $D011 - GOES WITH LDX ;------------ LDA #$FA - GRAB RASTER LINE AT _ CMP $D012 BOTTOM BOARDER BNE _ JSR $1003 - PLAY MUSIC JMP $EA81 NOW WHEN YOU SEE ANOTHER IRQ YOU MUST REMEMBER THAT IT REPLACES THIS ONE! YOU CAN'T HAVE 2 IRQS, WELL I DON'T THINK YOU CAN. BUT WHO KNOWS WITH WHAT I HAVE SEEN ON THE 64 LATELY. PPIE!- NOW YOU HAVE TO RESET THE PRINT ROUTINE TO LOOK LIKE THIS IF YOU WANT A PICTURE AT THE SAME PLACE AS THE DEMOS WAS. REMEMEBER THAT THIS REPLACES THE OTHER PRINT ROUTINE THAT PUT TEXT AT $0630. TAX - BEEN EXPLAINED * LDA $8140,X - LAOD DATA AT THIS ADDRESS STA $4600,X - FOOT NOTE LDA $8240,X STA $4700,X LDA $8528,X STA $DA00,X - FOOT NOTE 2. LDA $8628,X STA $DB00,X INX BNE * RTS - THE DEFAULT SCREEN FOR THE 64 IS FROM$0400 TO $07E8. $0400 BEING THE TOP LEFTHAND CORNER AND $07E8 BEING THE BOTTOM RIGHT HAND CORNER. THE DEFAULT BANK IS BANK 3. WHEN YOU CHANGE TO ANOTHER BANK YOU MUST ALSO UP YOUR SCREEN BY $4000. SO IF YOU ARE LOADING A PICTURE AT $2000(DEFAULT BANK 3) YOU WOULD USE $0400. BANK 2 USE $4400, PICTURE AT $6000. BANK 1 USE $8400, PICTURE AT $A000. BUT YOU MUST ALSO SHIFT THE MACHINE TO THE BANK YOU ARE USING. REDO YOUR IRQ ASFOLLOWS; - LDA #$30 & CMP $D012 BNE & LDA #$18 - GRAB CHAR AT $6000(BANK2) LDY #$D8 - TURN ON MULTI COLOUR LDX #$3B - TURN ON HI-RES STA $D018 STY $D016 STX $D011 LDA #$96 - SWITCH TO BANK 2. STA $DD00 ;----------- $DD00 IS THE BANK REGISTER. SO IF YOU WANT BANK 3, LDA #$97. BANK 2, LDA #$96.BANK 1, LDA #$95. SIMPLE. - THE COLOUR REGISTERS FOR THE 64 ARE ASFOLLOWS; $0400=$D800. $0500=$D900. $0600=$DA00. $0700=$DB00. THESE DO NOT CHANGE NO MATTER WHAT BANK YOU ARE IN. SO THERE YOU HAVE IT. IF YOU GET A COPY OF PROGRAMMERS REFERANCE GUIDE YOU WILL FIND IT A GREAT HELP TO ADDING A BIT MORE TO WHAT I HAVE ALREADY SAID. WELL LOOK OUT FOR DEMO 2, AS WE WILL BE ADDING TO WHERE WE LEFT OFF. /STEIGER -