Apple-2-SW/prog8
1
0
Fork 0
mirror of https://github.com/irmen/prog8.git synced 2024-07-23 00:29:09 +00:00
Code Issues Projects Releases Wiki Activity
f070dc22bb
prog8/compiler/examples/numbergame-c64.p8

75 lines
2.3 KiB
Plaintext
Raw Normal View History

strings and arrays are now stored in a 'heap' instead of in the value itself, to reflect how the target platform will store them
2018-09-29 15:33:59 +00:00
%output prg
%import c64lib
implemented all bit rotate and shift operations
2018-10-21 21:03:15 +00:00
%import c64utils
strings and arrays are now stored in a 'heap' instead of in the value itself, to reflect how the target platform will store them
2018-09-29 15:33:59 +00:00
~ main {
implemented all bit rotate and shift operations
2018-10-21 21:03:15 +00:00
sub start() {
str name = "????????????????????????????????????????"
byte/word asm comparisons
2018-12-07 23:27:12 +00:00
str guessstr = "??????????"
ubyte guess
implemented all bit rotate and shift operations
2018-10-21 21:03:15 +00:00
ubyte secretnumber = 0
ubyte attempts_left = 10
memory uword freadstr_arg = $22 ; argument for FREADSTR
improve datatype assignment checks
2018-11-21 23:01:41 +00:00
uword testword
strings and arrays are now stored in a 'heap' instead of in the value itself, to reflect how the target platform will store them
2018-09-29 15:33:59 +00:00
; greeting
byte/word asm comparisons
2018-12-07 23:27:12 +00:00
c64.VMCSB |= 2 ; switch lowercase chars
floats and random number stuff
2018-12-06 23:08:22 +00:00
c64.STROUT("Please introduce yourself: ")
byte/word asm comparisons
2018-12-07 23:27:12 +00:00
c64scr.input_chars(name)
string param passing
2018-11-28 00:12:23 +00:00
c64.CHROUT('\n')
c64.CHROUT('\n')
floats and random number stuff
2018-12-06 23:08:22 +00:00
c64.STROUT("Hello, ")
c64.STROUT(name)
c64.STROUT(".\nLet's play a number guessing game.\nI am thinking of a number from 1 to 100!You'll have to guess it!\n")
strings and arrays are now stored in a 'heap' instead of in the value itself, to reflect how the target platform will store them
2018-09-29 15:33:59 +00:00
; create a secret random number from 1-100
floats and random number stuff
2018-12-06 23:08:22 +00:00
c64.RND() ; fac = random number
strings and arrays are now stored in a 'heap' instead of in the value itself, to reflect how the target platform will store them
2018-09-29 15:33:59 +00:00
c64.MUL10() ; fac *= 10
c64.MUL10() ; .. and now *100
c64.FADDH() ; add 0.5..
c64.FADDH() ; and again, so +1 total
more asm, constants now also outputted in asm source
2018-12-04 21:30:35 +00:00
A, Y = c64flt.GETADRAY()
byte/word asm comparisons
2018-12-07 23:27:12 +00:00
secretnumber = A ; secret number = rnd()*100+1
strings and arrays are now stored in a 'heap' instead of in the value itself, to reflect how the target platform will store them
2018-09-29 15:33:59 +00:00
ask_guess:
floats and random number stuff
2018-12-06 23:08:22 +00:00
c64.STROUT("\nYou have ")
strings and arrays are now stored in a 'heap' instead of in the value itself, to reflect how the target platform will store them
2018-09-29 15:33:59 +00:00
c64scr.print_byte_decimal(attempts_left)
floats and random number stuff
2018-12-06 23:08:22 +00:00
c64.STROUT(" guess")
if(attempts_left>0) c64.STROUT("es")
strings and arrays are now stored in a 'heap' instead of in the value itself, to reflect how the target platform will store them
2018-09-29 15:33:59 +00:00
floats and random number stuff
2018-12-06 23:08:22 +00:00
c64.STROUT(" left.\nWhat is your next guess? ")
byte/word asm comparisons
2018-12-07 23:27:12 +00:00
c64scr.input_chars(guessstr)
string param passing
2018-11-28 00:12:23 +00:00
c64.CHROUT('\n')
byte/word asm comparisons
2018-12-07 23:27:12 +00:00
freadstr_arg = guessstr
c64.FREADSTR(Y)
more asm, constants now also outputted in asm source
2018-12-04 21:30:35 +00:00
A, Y = c64flt.GETADRAY()
byte/word asm comparisons
2018-12-07 23:27:12 +00:00
guess=A
c64.EXTCOL=guess ; @debug
c64.BGCOL0=secretnumber ;@debug
if(guess==secretnumber) { ; @todo equal_b doesn't work
floats and random number stuff
2018-12-06 23:08:22 +00:00
c64.STROUT("\nThat's my number, impressive!\n")
strings and arrays are now stored in a 'heap' instead of in the value itself, to reflect how the target platform will store them
2018-09-29 15:33:59 +00:00
goto goodbye
}
floats and random number stuff
2018-12-06 23:08:22 +00:00
c64.STROUT("\nThat is too ")
byte/word asm comparisons
2018-12-07 23:27:12 +00:00
if(guess > secretnumber) ; @todo greater_ub doesn't work?
floats and random number stuff
2018-12-06 23:08:22 +00:00
c64.STROUT("low!\n")
strings and arrays are now stored in a 'heap' instead of in the value itself, to reflect how the target platform will store them
2018-09-29 15:33:59 +00:00
else
floats and random number stuff
2018-12-06 23:08:22 +00:00
c64.STROUT("high!\n")
strings and arrays are now stored in a 'heap' instead of in the value itself, to reflect how the target platform will store them
2018-09-29 15:33:59 +00:00
attempts_left--
if(attempts_left>0) goto ask_guess
; more efficient: if_nz goto ask_guess
; game over.
floats and random number stuff
2018-12-06 23:08:22 +00:00
c64.STROUT("\nToo bad! It was: ")
strings and arrays are now stored in a 'heap' instead of in the value itself, to reflect how the target platform will store them
2018-09-29 15:33:59 +00:00
c64scr.print_byte_decimal(secretnumber)
string param passing
2018-11-28 00:12:23 +00:00
c64.CHROUT('\n')
strings and arrays are now stored in a 'heap' instead of in the value itself, to reflect how the target platform will store them
2018-09-29 15:33:59 +00:00
goodbye:
floats and random number stuff
2018-12-06 23:08:22 +00:00
c64.STROUT("\nThanks for playing, ")
c64.STROUT(name)
c64.STROUT(".\n")
strings and arrays are now stored in a 'heap' instead of in the value itself, to reflect how the target platform will store them
2018-09-29 15:33:59 +00:00
return
}
}
Reference in New Issue Copy Permalink