This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| 1 rem roll dem credits | |
| 2 s=53265:k=240:a$(.)="yo!":a$(1)="let's scroll":a$(2)="upwards":a$(3)="smoothly" | |
| 3 printa$(i):i=(i+1)and3:forn=7to.step-1:pokes,peek(s)andkorn:forx=.to49:nextx,n:goto3 |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| 0 s=53265:a=32:b=223:c=53280:pokec,.:pokec+1,. | |
| 1 pokes,peek(s)ora:pokes,peek(s)andb:::::::::::goto1 |
tomaes
/ joyloop.asm
Last active
May 9, 2020 08:39
another joystick test, bitwise, looped, with comments too (c64)
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| ; minimal joystick test #3, 21 bytes loop version; @ = not set, A = set | |
| * = $1000 | |
| INIT LDY #8 ; init loop for checking all joystick port bits | |
| LDA $DC00 ; load joystick port byte | |
| LOOP PHA ; make a copy and put it on the stack | |
| AND #1 ; least significant bit set? |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| ; lazy joystick test | |
| * = $7c ; auto start in VICE | |
| ; | |
| LDA $DC00 ; get port byte | |
| STA $05F4 ; mid-screen | |
| BVC *-6 ; 8 bytes total |
tomaes
/ click beat sequence (c64)
Created
March 1, 2013 11:20
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| 0 b$="19243342":fori=1to8:poke54296,val(mid$(b$,i,1)):pokes,.:forj=.to99:nextj,i:goto. |
tomaes
/ analogue mouse test (c64)
Created
February 28, 2013 09:52
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| 10 rem analogue mouse test tool | |
| 12 rem - movement detection by polling SID registers s+25/26 | |
| 14 rem - left/right buttons detection by polling control port #1 | |
| 16 s=54272: js=56321 | |
| 18 print"{reverse on}{down}analogue mouse test{reverse off}{down*4}" | |
| 20 y$="{light gray}yes{light blue}":n$="{gray}no {light blue}" | |
| 22 h$=n$: v$=n$: lmb$=n$: rmb$=n$ | |
| 24 ho=peek(s+25):vo=peek(s+26) | |
| 26 fori=.to39:next | |
| 28 if ho<>peek(s+25) then h$=y$ |
tomaes
/ basic chr$(32) adventure (c64)
Last active
December 14, 2015 07:08
mini game. space shooter without space. and shooting.
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| 10 print"{clear}{down*8}{14}{red}dodge!{light blue}{return}{reverse on}{162*21}";:s=54296 | |
| 20 sc=1024:py=0:lv=3:w=40:t=10:ti$="000000":js=56320:poke53280,6:cl=646:zz=198 | |
| 30 j=peek(js)and3:if(j<>3)thenpy=py-(j=1)+(j=2):py=pyand7 | |
| 40 sp=sc+(t+py)*w+t:pokesp,62:pokesc+(t+int(rnd(.)*8))*w+19,w:pokes,2:pokes,. | |
| 50 print"{home}{down*9}":fori=.to7:print" {delete} ":next:print | |
| 60 ifpeek(sp)<>32thenlv=lv-1:pokecl,2:pokes,9:pokes,. | |
| 70 print"{up}{reverse on}>"str$(lv)"{space*12}"ti$"{light blue}":iflv>.thengoto30 | |
| 80 print"{up}{reverse on}game over,score:":pokezz,.:waitzz,1:run |
tomaes
/ femto racer (c64)
Last active
December 14, 2015 02:19
pico racer's anorexic sister. now 2 lines of code.
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| 4 rem femto racer; press <space> (or not) to stay on the road | |
| 6 printspc(9+sin(f)*6+6+sin(f*2)*5)"{white}: {green}:{gray}"m:f=f+.1:geta$:p=p+(a$=" ")*2+1 | |
| 8 q=4^5+p:m=m+1:ifpeek(q)<>58thenpokeq,22:goto6 |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| 0 c$=chr$(65+rnd(1)*26):?c$"?";:fori=sto4^5:next:s=s+9:geta$:?a$:ifa$=c$then0 |
tomaes
/ joystick test (c64)
Last active
December 14, 2015 01:39
for when "10 print peek(56320): goto 10" is not enough
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| 10 rem joystick port test mini tool, press <space> to switch ports | |
| 20 p=56320:s=0 | |
| 30 print" {return*2}{cyan} joystick (#"str$(2-s)") port"p+s"{return*2}" | |
| 40 j=peek(p+s): print"{up*2}{light gray} 0 1 2 3 4 5 6 7 val{light blue}" | |
| 50 geta$:if a$=" " then s=abs(s-1):print"{up*4}";:goto 30 | |
| 60 print abs((jand1)>0)abs((jand2)>0)abs((jand4)>0)abs((jand8)>0); | |
| 70 print abs((jand16)>0)abs((jand32)>0)abs((jand64)>0)abs((jand128)>0);j | |
| 80 goto 40 |