stardot.org.uk

Code: Select all

.loadsw
LDA &F4
STA save%
LDA wbyte%
SEI
STA &F4
STA &FE30
CLI

LDY#0
.lswloop
LDA (readaddr%),Y
STA (writeaddr%),Y
INY
CPY byte%
BNE lswloop

INC readaddr%+1 
INC writeaddr%+1
LDA bytes%+1
BEQ finished  
DEC bytes%+1
STZ byte%
bra  lswloop

.finished
LDA save%
SEI
STA &F4
STA &FE30
CLI
RTS

Code: Select all

.getbyte
LDA (readaddr%)
BPL pair
AND #127
LDX #1
BRA inchigh

.pair
TAX

INC readaddr%
BNE nohighpair
INC readaddr%+1
.nohighpair

LDA (readaddr%)

.inchigh
INC readaddr%
BNE nohigh
INC readaddr%+1
.nohigh

BIT flag%		; change flag from 0 or 1 to 0 or 128
BPL return
sta wbyte%
AND #85
ROL A
STA temp2%
LDa wbyte%
AND #170
ROR A
ORA temp2%
.return
STA wbyte%
RTS

Code: Select all

LDY #0
LDA wbyte%; take out of plot loops save three cycles
.iloopY

STA (writeaddr%),Y
DEX
BNE icontinue
JSR getbyte ; this returns wbyte in A so no need to load it 

.icontinue
INY
CPY height%
BNE iloopY

Code: Select all

.clearcity

LDY#0
STY &70  
LDA #&14
STA &71
.middleclearloop
LDX#8
LDA #60
.clearloopY1
STA (&70),Y
INY
STA (&70),Y
INY
STA (&70),Y
INY
STA (&70),Y
INY
STA (&70),Y
INY
STA (&70),Y
INY
STA (&70),Y
INY
STA (&70),Y
INY
DEX
BNE clearloopY1

LDX#8
LDA #3
.clearloopY2
STA (&70),Y
INY
STA (&70),Y
INY
STA (&70),Y
INY
STA (&70),Y
INY
STA (&70),Y
INY
STA (&70),Y
INY
STA (&70),Y
INY
STA (&70),Y
INY
DEX
BNE clearloopY2
TYA                     ; Check if Y is zero, if not go around the loop again.
BNE middleclearloop
INC &71
LDA &71
CMP #&14+20 ; check for end of loop
BNE middleclearloop  ; we know Y 0 zero so no need to set it to zero again.
RTS

Code: Select all

20:19:57	 From  0xC0DE : It's Always more fun to write your own routines!
20:27:05	 From  0xC0DE : Looking great so far!
20:27:29	 From  Dave : Yes looks great, and a refreshing genre for the beeb 
20:30:07	 From  chrisn (Chris) : Will have to buy a Master....
20:31:13	 From  Paul Klintworth : Looks amazing!
20:33:45	 From  sarahwalker - Sarah : Poor Ringo :(
20:37:52	 From  0xC0DE : For a moment I thought it was my laptop battery ;)
20:38:10	 From  Dave : haha me too - I plugged in the lead lol
20:38:21	 From  EdwardianDuck - Jeremy : Still, I can’t remember an adventure / role playing campaign which had a drummer as a character class…
20:38:55	 From  Sydney - Simon : ringo wasn't even the best drummer in the beatles!
20:38:58	 From  Matt Godbolt : [ belated reply on my talk -> https://mattgodbolt.github.io/bbc-micro-emulation/abug2020 slides ]
20:39:13	 From  Ed Dorosh   to   Recording PC(Privately) : All is up now......
20:46:21	 From  Matt Godbolt : Does Abug have a twitter account? :)
20:47:15	 From  Recording PC : sorry matt no abug twitter 
20:47:48	 From  Matt Godbolt : alright, I'm such a social media who^H^H^Her, attension seeker
20:47:51	 From  Matt Godbolt : attention*
20:47:52	 From  Dave : We need to employ a social media manager ;)
20:49:07	 From  Recording PC : if anyone is good with twitter and wants to step forward and maintain accounts for abug/stardot/retro software etc feel free! I create twitter accounts, use them a bit, then promptly forget they exist for a few months...
20:50:04	 From  Matt Godbolt : I think Rich TW has some raycasting code around (not sure if that's him just noddling about or otherwise)
20:51:04	 From  Matt Godbolt : this is the "trick" wolf 3d and doom used to run at any speed
20:51:31	 From  Dave : did you see that black book on Wolfenstein and doom?  I have the doom one only, it's fantastic
20:51:56	 From  Recording PC   to   Phillip Pearson (myelin)(Privately) : hi phil. if the questions continue flowing on this current talk would you be ok to perhaps do 9.15 - 10.15 UK time? if you're under time pressures no worries we can wrap this one up
20:52:32	 From  kieranhj : Yeah, I've got them both. Great books.
20:52:53	 From  Dave : keep trying to get the wolf one, it appears on amazon briefly for about 50 quid then vanishes again
20:53:14	 From  kieranhj : I think I've got it loaned out at the moment but you're welcome to borrow it one day.
20:53:36	 From  Dave : borrow it one abug, return the next!
20:53:47	 From  Dave : cheers for the offer but I think i'd feel too guilty having it for that long
20:54:16	 From  DaveH : What, a week?
20:54:30	 From  Dave : haha I meant the physical abugs
20:56:24	 From  Phillip Pearson (myelin)   to   Recording PC(Privately) : yep!  i can absolutely do 9.15-10.15
20:57:13	 From  Recording PC   to   Phillip Pearson (myelin)(Privately) : ok super thanks phil, I'll post in main chat to let people know
20:57:51	 From  Phillip Pearson (myelin)   to   Recording PC(Privately) : great!
20:58:41	 From  Recording PC : Hi all, as the questions are still flowing on Shane's RPG game, we've pushed myelin's talk back 15 mins so it will now run 9.15pm - 10.15pm. We'll aim to have the current talk wrapped up by 9.10pm to allow for a 5 min break before the final talk
21:00:16	 From  Recording PC : … where Ed will announce the winner of the HSC.
21:00:47	 From  Matt Godbolt : I have them both. great books. I have a YT video I made about "how wolf works" which I did before I got the book. so many commenters said to get it :)
21:04:35	 From  Charlie Robson : ‘Optimise in haste repent at leisure’
21:04:47	 From  0xC0DE : :)
21:04:51	 From  Dave : premature optimisation is the .. you know the rest
21:05:02	 From  0xC0DE : "First make it work, then make it fast"
21:05:03	 From  Charlie Robson : … treatable?
21:07:26	 From  0xC0DE : Thanks Shane, I will be following your progress with great interest
21:07:34	 From  Charlie Robson : Game looks lovely. I’m looking forward to it. No pressure ;)
21:07:36	 From  Matt Godbolt : Awesome stuff Shane :)
21:07:51	 From  Dave : Yep great stuff - is this the only BBC game with level-of-detail sprites?

Code: Select all

.gbi2nohigh
STY temp%
TAY
LDA (&8E),Y
STA wbyte%
LDY temp%