Removed old examples
This commit is contained in:
Devine Lu Linvega
parent
c5d8ba4e3a
commit
259b9dcf56
|
|
@ -1,102 +0,0 @@
|
|||
( devices )
|
||||
|
||||
|00 @System [ &vector $2 &wst $1 &rst $1 &pad $4 &r $2 &g $2 &b $2 &debug $1 &halt $1 ]
|
||||
|10 @Console [ &vector $2 &read $1 &pad $5 &write $1 &error $1 ]
|
||||
|a0 @File [ &vector $2 &success $2 &stat $2 &delete $1 &append $1 &name $2 &length $2 &read $2 &write $2 ]
|
||||
|
||||
( vectors )
|
||||
|
||||
|0100 @reset
|
||||
(
|
||||
Set the log level for helping to debug stuff.
|
||||
Its value is the bitwise OR of all the following output types:
|
||||
#01 prints the number of lines in the source code,
|
||||
#04 dumps all defined labels at end, and
|
||||
#08 prints the heap usage.
|
||||
)
|
||||
#0d ;asma/log-level STA
|
||||
|
||||
;asma-heap ;heap STA2
|
||||
|
||||
(
|
||||
Assemble the source code into an output ROM file.
|
||||
|
||||
If all you want is to use asma.tal to assemble files, insert a BRK
|
||||
after this statement.
|
||||
)
|
||||
;&source-file ;&dest-file ;asma-assemble-file JSR2
|
||||
|
||||
(
|
||||
If an error has occurred, BRK here, otherwise continue. (The error
|
||||
message will already have been printed to the Console in
|
||||
asma-assemble-file.)
|
||||
)
|
||||
;asma/error LDA2 #0000 EQU2 JMP BRK
|
||||
|
||||
(
|
||||
Load the output ROM over the currently running program, almost as if
|
||||
we loaded the ROM with uxnemu directly!
|
||||
|
||||
It's not a totally pristine environment, as File/read doesn't zero out
|
||||
memory beyond the end of the file. So if the assembled program assumes
|
||||
that all memory above it is zero, it may misbehave.
|
||||
|
||||
Asma itself doesn't use the zero page, but this example code writes a
|
||||
DEO2 instruction to 0x00ff. In order to execute File/read and have the
|
||||
CPU continue at memory location 0x0100, we write the final DEO2
|
||||
instruction there and jump there as our final act.
|
||||
|
||||
Just in case the assembled code is zero-length (which can occur when
|
||||
assembling an empty source file), we write a BRK to the reset vector so
|
||||
that will prevent an infinite loop.
|
||||
)
|
||||
;&dest-file .File/name DEO2
|
||||
#ff00 .File/length DEO2
|
||||
#0100 .File/read
|
||||
LIT DEO2 #00ff STA
|
||||
LIT BRK #0100 STA
|
||||
#00ff JMP2
|
||||
|
||||
&source-file
|
||||
"projects/examples/demos/piano.tal 00
|
||||
&dest-file
|
||||
"bin/asma-boot.rom 00
|
||||
|
||||
~projects/library/asma.tal
|
||||
|
||||
(
|
||||
Heap, a large temporary area for keeping track of labels. More complex
|
||||
programs need more of this space. If there's insufficient space then the
|
||||
assembly process will fail, but having extra space above what the most
|
||||
complex program needs provides no benefit.
|
||||
|
||||
This heap, and the buffers below, are free to be used to hold temporary
|
||||
data between assembly runs, and do not need to be initialized with any
|
||||
particular contents to use the assembler.
|
||||
)
|
||||
|
||||
@asma-heap
|
||||
|
||||
|e000 &end
|
||||
|
||||
(
|
||||
Buffer for use with loading source code.
|
||||
The minimum size is the length of the longest token plus one, which is
|
||||
0x21 to keep the same capability of the C assembler.
|
||||
Larger sizes are more efficient, provided there is enough
|
||||
heap space to keep track of all the labels.
|
||||
)
|
||||
|
||||
@asma-read-buffer
|
||||
|
||||
|f800 &end
|
||||
|
||||
(
|
||||
Buffer for use with writing output.
|
||||
The minimum size is 1, and larger sizes are more efficient.
|
||||
)
|
||||
|
||||
@asma-write-buffer
|
||||
|
||||
|ffff &end
|
||||
|
||||
|
|
@ -1,543 +0,0 @@
|
|||
( darena.tal )
|
||||
( an open-ended game of rocks and sand )
|
||||
( contributed by and cc0 sejo 12021 )
|
||||
|
||||
( parameters )
|
||||
%nrocks { #1f }
|
||||
%nrocks-1 { #1e }
|
||||
%nrocks_mask { #1f }
|
||||
%minposx { #0f }
|
||||
%minposy { #0f }
|
||||
%maxposx { #f1 }
|
||||
%maxposy { #f1 }
|
||||
%anispeedmask_normal { #03 }
|
||||
%anispeedmask_slow { #07 }
|
||||
|
||||
%c_color_normal { #43 }
|
||||
%c_color_flipx { #53 }
|
||||
%index_norock { #ff }
|
||||
|
||||
( output macros )
|
||||
%out_screen_x { LDA #00 SWP .Screen/x DEO2 } ( ;addr )
|
||||
%out_screen_y { LDA #00 SWP .Screen/y DEO2 } ( ;addr )
|
||||
|
||||
( helper macros )
|
||||
%get_bit_n { SFT #01 AND }
|
||||
%get_nibble_h { #04 SFT #0f AND }
|
||||
%get_nibble_l { #0f AND }
|
||||
|
||||
%is_bit_n_set { get_bit_n #01 EQU }
|
||||
|
||||
%set_animate { #01 ;c_state LDA ORA ;c_state STA }
|
||||
%rst_animate { #00 ;c_state STA }
|
||||
|
||||
( devices )
|
||||
|
||||
|00 @System [ &vector $2 &wst $1 &rst $1 &pad $4 &r $2 &g $2 &b $2 ]
|
||||
|20 @Screen [ &vector $2 &width $2 &height $2 &pad $2 &x $2 &y $2 &addr $2 &pixel $1 &sprite $1 ]
|
||||
|80 @Controller [ &vector $2 &button $1 &key $1 ]
|
||||
|
||||
( variables )
|
||||
|
||||
|0000
|
||||
|
||||
@c_pos [ &x $1 &y $1 ] ( character position )
|
||||
@c_speed [ &x $1 &y $1 ] ( character speed )
|
||||
@c_color [ $1 ] ( character color )
|
||||
@c_sprite [ $2 ] ( character sprite addr )
|
||||
@c_state [ $1 ] ( high_nibble: animation pointer, bit0: is_animated )
|
||||
|
||||
@f_count [ $1 ] ( frame counter )
|
||||
@ani_speedmask [ $1 ] ( animation speed mask )
|
||||
|
||||
@r_speed_x [ $f ]
|
||||
@r_speed_y [ $f ]
|
||||
|
||||
@tog [ &x $1 &y $1 &state $1 ] ( toggle station state )
|
||||
|
||||
( program )
|
||||
|
||||
|0100 @reset ( -> )
|
||||
#f396 .System/r DEO2
|
||||
#e263 .System/g DEO2
|
||||
#9030 .System/b DEO2
|
||||
|
||||
;on_frame .Screen/vector DEO2
|
||||
|
||||
( init character )
|
||||
#50 ;c_pos/x STA
|
||||
#10 ;c_pos/y STA
|
||||
#00 ;c_speed/x STA
|
||||
#00 ;c_speed/y STA
|
||||
c_color_normal ;c_color STA
|
||||
;s_monitx_stepfront0 ;c_sprite STA2
|
||||
rst_animate
|
||||
|
||||
anispeedmask_normal ;ani_speedmask STA
|
||||
|
||||
( init toggler )
|
||||
#27 ;tog/x STA
|
||||
#27 ;tog/y STA
|
||||
#00 ;tog/state STA
|
||||
|
||||
|
||||
( init background )
|
||||
;init_bg JSR2
|
||||
BRK
|
||||
|
||||
|
||||
@on_frame ( -> )
|
||||
;f_count LDA INC DUP ;f_count STA ( increase frame counter )
|
||||
;ani_speedmask LDA ( mask with animation speed mask )
|
||||
AND #00 EQU ,update_frame JCN ( jump to update if it's time )
|
||||
BRK
|
||||
|
||||
@update_frame
|
||||
( check keyboard )
|
||||
;check_keys JSR2
|
||||
|
||||
( animate character sprite )
|
||||
;animate_c JSR2
|
||||
|
||||
( clear sprites )
|
||||
;clear JSR2
|
||||
|
||||
( update character vars )
|
||||
;update_c/run JSR2
|
||||
|
||||
( update rocks + stand )
|
||||
;update_r/run JSR2
|
||||
|
||||
( draw )
|
||||
;draw JSR2
|
||||
|
||||
BRK
|
||||
|
||||
@clear
|
||||
( clear rocks )
|
||||
;s_clear .Screen/addr DEO2
|
||||
|
||||
nrocks #00
|
||||
&rocks_loop
|
||||
DUP ( get rocks_x[i] )
|
||||
;rocks_x ROT #00 SWP ADD2 out_screen_x
|
||||
|
||||
DUP ( get rocks_y[i] )
|
||||
;rocks_y ROT #00 SWP ADD2 out_screen_y
|
||||
|
||||
#40 .Screen/sprite DEO
|
||||
|
||||
INC
|
||||
DUP2
|
||||
NEQ ,&rocks_loop JCN
|
||||
POP2
|
||||
|
||||
( clear character )
|
||||
;clear_c JSR2
|
||||
JMP2r
|
||||
|
||||
@draw
|
||||
( draw toggler )
|
||||
|
||||
;tog/x out_screen_x
|
||||
;tog/x out_screen_y
|
||||
;s_stand .Screen/addr DEO2
|
||||
#03 .Screen/sprite DEO
|
||||
|
||||
( draw rocks )
|
||||
;s_bola .Screen/addr DEO2
|
||||
|
||||
nrocks #00
|
||||
|
||||
&rocks_loop
|
||||
DUP ( get rocks_x[i] )
|
||||
;rocks_x ROT #00 SWP ADD2 out_screen_x
|
||||
|
||||
DUP ( get rocks_y[i] )
|
||||
;rocks_y ROT #00 SWP ADD2 out_screen_y
|
||||
|
||||
DUP ( get color )
|
||||
;r_color ROT #00 SWP ADD2 LDA #41 ADD .Screen/sprite DEO
|
||||
|
||||
INC
|
||||
|
||||
DUP2
|
||||
NEQ ,&rocks_loop JCN
|
||||
POP2
|
||||
|
||||
( draw character )
|
||||
;draw_c JSR2
|
||||
JMP2r
|
||||
|
||||
@check_keys
|
||||
#00 ;c_speed/x STA
|
||||
#00 ;c_speed/y STA
|
||||
|
||||
.Controller/button DEI #07 is_bit_n_set ,&der JCN
|
||||
.Controller/button DEI #06 is_bit_n_set ,&izq JCN
|
||||
.Controller/button DEI #05 is_bit_n_set ,&aba JCN
|
||||
.Controller/button DEI #04 is_bit_n_set ,&arr JCN
|
||||
|
||||
rst_animate
|
||||
|
||||
JMP2r
|
||||
|
||||
&der
|
||||
#01 ;c_speed/x STA
|
||||
set_animate
|
||||
c_color_normal ;c_color STA
|
||||
;s_monitx_stepside0 ;c_sprite STA2
|
||||
JMP2r
|
||||
|
||||
&izq
|
||||
#ff ;c_speed/x STA
|
||||
set_animate
|
||||
c_color_flipx ;c_color STA
|
||||
;s_monitx_stepside0 ;c_sprite STA2
|
||||
JMP2r
|
||||
|
||||
&aba
|
||||
#01 ;c_speed/y STA
|
||||
set_animate
|
||||
c_color_normal ;c_color STA
|
||||
;s_monitx_stepfront0 ;c_sprite STA2
|
||||
JMP2r
|
||||
|
||||
&arr
|
||||
#ff ;c_speed/y STA
|
||||
set_animate
|
||||
c_color_normal ;c_color STA
|
||||
;s_monitx_stepback0 ;c_sprite STA2
|
||||
JMP2r
|
||||
|
||||
&end
|
||||
JMP2r
|
||||
|
||||
( sub-routines )
|
||||
|
||||
( in: sourcex, source y, index, rangex, rangey )
|
||||
( puts in the stack the index of rock collisioned with )
|
||||
@collision_rocks
|
||||
&range_y $1
|
||||
&range_x $1
|
||||
&src_i $1
|
||||
&src_x $1
|
||||
&src_y $1
|
||||
|
||||
&rock_x $1
|
||||
&rock_y $1
|
||||
|
||||
&run
|
||||
,&range_y STR
|
||||
,&range_x STR
|
||||
,&src_i STR
|
||||
,&src_y STR
|
||||
,&src_x STR
|
||||
|
||||
( check collision with rocks )
|
||||
( nrocks #00 )
|
||||
,&src_i LDR nrocks_mask AND DUP INC nrocks_mask AND
|
||||
|
||||
&rocks_loop
|
||||
DUP ( get rocks_x[i] )
|
||||
;rocks_x ROT #00 SWP ADD2 LDA ,&rock_x STR
|
||||
|
||||
DUP ( get rocks_y[i] )
|
||||
;rocks_y ROT #00 SWP ADD2 LDA ,&rock_y STR
|
||||
|
||||
,&src_x LDR ,&rock_x LDR ,&range_x LDR SUB GTH ( if sx > rx - 8 )
|
||||
,&src_x LDR ,&rock_x LDR ,&range_x LDR ADD LTH ( if sx < rx + 8 )
|
||||
,&src_y LDR ,&rock_y LDR ,&range_y LDR SUB GTH ( if sy > ry - 8 )
|
||||
,&src_y LDR ,&rock_y LDR ,&range_y LDR ADD LTH ( if sy < ry + 8 )
|
||||
ADD ADD ADD #04 EQU ,&found JCN
|
||||
|
||||
INC nrocks_mask AND
|
||||
DUP2
|
||||
NEQ ,&rocks_loop JCN
|
||||
POP2
|
||||
#ff
|
||||
JMP2r
|
||||
&found
|
||||
NIP ( remove loop limit )
|
||||
DUP ;&src_i LDA NEQ ,&end JCN ( check if result is the same as index )
|
||||
POP #ff
|
||||
JMP2r
|
||||
|
||||
&end
|
||||
|
||||
JMP2r
|
||||
|
||||
@update_c ( update character position )
|
||||
&new_x $1
|
||||
&new_y $1
|
||||
|
||||
&rock_i $1
|
||||
&rock_x $1
|
||||
&rock_y $1
|
||||
|
||||
|
||||
&run
|
||||
;c_speed/x LDA ;c_pos/x LDA ADD
|
||||
,&new_x STR
|
||||
;c_speed/y LDA ;c_pos/y LDA ADD
|
||||
,&new_y STR
|
||||
|
||||
anispeedmask_normal ;ani_speedmask STA
|
||||
|
||||
&check_x
|
||||
( check collision with borders )
|
||||
,&new_x LDR minposx EQU ;&noup_x JCN2
|
||||
,&new_x LDR maxposx EQU ;&noup_x JCN2
|
||||
|
||||
|
||||
( check collision with rocks )
|
||||
,&new_x LDR ,&new_y LDR index_norock #09 #06
|
||||
;collision_rocks/run JSR2
|
||||
|
||||
( if it is colliding with rock, check further )
|
||||
DUP #ff NEQ ,&check_x_collision JCN
|
||||
POP
|
||||
,&update_x JMP
|
||||
|
||||
&check_x_collision
|
||||
( DUP DEBUG )
|
||||
( slow down and save rock index )
|
||||
anispeedmask_slow ;ani_speedmask STA
|
||||
,&rock_i STR
|
||||
|
||||
( check if rock collides with others )
|
||||
;rocks_x #00 ,&rock_i LDR ADD2 LDA ,&rock_x STR
|
||||
;rocks_y #00 ,&rock_i LDR ADD2 LDA ,&rock_y STR
|
||||
|
||||
,&rock_x LDR ,&rock_y LDR ,&rock_i LDR #09 #06
|
||||
;collision_rocks/run JSR2
|
||||
|
||||
( DUP DEBUG )
|
||||
|
||||
( if it is colliding, then skip adding x )
|
||||
DUP #ff NEQ ,&check_y JCN
|
||||
POP
|
||||
|
||||
|
||||
( if not, check for borders )
|
||||
;&rock_x LDA minposx EQU ;&noup_x JCN2
|
||||
;&rock_x LDA maxposx EQU ;&noup_x JCN2
|
||||
|
||||
( move rock with same speed as c )
|
||||
;&rock_x LDA ;c_speed/x LDA ADD
|
||||
;rocks_x #00 ;&rock_i LDA ADD2
|
||||
STA
|
||||
|
||||
|
||||
&update_x
|
||||
;&new_x LDA ;c_pos/x STA
|
||||
|
||||
,&check_y JMP
|
||||
|
||||
&noup_x
|
||||
|
||||
&check_y
|
||||
( check collision with borders )
|
||||
;&new_y LDA minposy EQU ;&noup_y JCN2
|
||||
;&new_y LDA maxposy EQU ;&noup_y JCN2
|
||||
|
||||
( check collision with rocks )
|
||||
;&new_x LDA ;&new_y LDA index_norock #06 #09
|
||||
;collision_rocks/run JSR2
|
||||
|
||||
( if it is colliding with rock, check further )
|
||||
DUP #ff NEQ ,&check_y_collision JCN
|
||||
POP
|
||||
,&update_y JMP
|
||||
|
||||
&check_y_collision
|
||||
( DUP DEBUG )
|
||||
anispeedmask_slow ;ani_speedmask STA
|
||||
;&rock_i STA
|
||||
|
||||
( check if rock collides with others )
|
||||
;rocks_x #00 ;&rock_i LDA ADD2 LDA ;&rock_x STA
|
||||
;rocks_y #00 ;&rock_i LDA ADD2 LDA ;&rock_y STA
|
||||
|
||||
;&rock_x LDA ;&rock_y LDA ;&rock_i LDA #06 #09
|
||||
;collision_rocks/run JSR2
|
||||
|
||||
( DUP DEBUG )
|
||||
|
||||
( if it is colliding, then skip adding y )
|
||||
DUP #ff NEQ ,&noup_y JCN
|
||||
POP
|
||||
|
||||
( if not, check for borders )
|
||||
;&rock_y LDA minposx EQU ;&noup_y JCN2
|
||||
;&rock_y LDA maxposx EQU ;&noup_y JCN2
|
||||
|
||||
( if not colliding, then move rock with same speed as c )
|
||||
;&rock_y LDA ;c_speed/y LDA ADD
|
||||
;rocks_y #00 ;&rock_i LDA ADD2
|
||||
STA
|
||||
|
||||
|
||||
&update_y
|
||||
;&new_y LDA ;c_pos/y STA
|
||||
JMP2r
|
||||
|
||||
&noup_y
|
||||
JMP2r
|
||||
|
||||
@update_r
|
||||
&rock_i $1
|
||||
|
||||
&run
|
||||
|
||||
( check collision with rocks )
|
||||
;tog/x LDA ;tog/y LDA index_norock #02 #02
|
||||
;collision_rocks/run JSR2
|
||||
|
||||
( if it is colliding with rock, check if it needs to change state )
|
||||
DUP #ff NEQ ,&change_state JCN
|
||||
|
||||
( DUP DEBUG )
|
||||
|
||||
( if there's no collision, reset toggler )
|
||||
POP
|
||||
#00 ;tog/state STA
|
||||
JMP2r
|
||||
|
||||
&change_state
|
||||
( DUP DEBUG )
|
||||
,&rock_i STR
|
||||
;tog/state LDA ,&done JCN ( don't toggle if state is active )
|
||||
|
||||
;r_color #00 ,&rock_i LDR ADD2 DUP2 STH2
|
||||
LDA #01 EOR STH2r STA
|
||||
#01 ;tog/state STA
|
||||
&done
|
||||
|
||||
JMP2r
|
||||
|
||||
@animate_c
|
||||
( is bit0 -animate- on? )
|
||||
;c_state LDA DUP #00 get_bit_n #01 NEQ ,&s_no_animate JCN
|
||||
|
||||
( increment and save animation pointer )
|
||||
&s_animate
|
||||
DUP
|
||||
get_nibble_h INC #03 AND #40 SFT
|
||||
SWP get_nibble_l ORA
|
||||
;c_state STA
|
||||
JMP2r
|
||||
|
||||
&s_no_animate
|
||||
get_nibble_h #0f AND ;c_state STA
|
||||
JMP2r
|
||||
|
||||
@draw_c ( draw character )
|
||||
#00 ;c_state LDA get_nibble_h #30 SFT
|
||||
;c_sprite LDA2 ADD2 .Screen/addr DEO2
|
||||
;c_pos/x out_screen_x
|
||||
;c_pos/y out_screen_y
|
||||
;c_color LDA .Screen/sprite DEO
|
||||
JMP2r
|
||||
|
||||
@clear_c ( clear character )
|
||||
;s_clear .Screen/addr DEO2
|
||||
;c_pos/x out_screen_x
|
||||
;c_pos/y out_screen_y
|
||||
#40 .Screen/sprite DEO
|
||||
JMP2r
|
||||
|
||||
@init_bg
|
||||
( init bg )
|
||||
;s_border .Screen/addr DEO2
|
||||
|
||||
.Screen/height DEI2 #0000 STH2
|
||||
&vertical0loop
|
||||
DUP2
|
||||
STH2r
|
||||
DUP2 .Screen/y DEO2
|
||||
|
||||
|
||||
.Screen/width DEI2 #0000 STH2
|
||||
&horizontal0loop
|
||||
DUP2
|
||||
STH2r
|
||||
DUP2 .Screen/x DEO2
|
||||
|
||||
#03 .Screen/sprite DEO
|
||||
|
||||
#0008 ADD2 DUP2 STH2
|
||||
GTH2 ,&horizontal0loop JCN
|
||||
|
||||
STH2r POP2 POP2
|
||||
|
||||
|
||||
#0008 ADD2 DUP2 STH2
|
||||
GTH2 ,&vertical0loop JCN
|
||||
STH2r
|
||||
POP2 POP2
|
||||
|
||||
( arena )
|
||||
|
||||
;s_clear .Screen/addr DEO2
|
||||
|
||||
#00 maxposy #00 minposy STH2
|
||||
&vertical0loop_clear
|
||||
DUP2
|
||||
STH2r
|
||||
DUP2 .Screen/y DEO2
|
||||
|
||||
|
||||
#00 maxposx #00 minposx STH2
|
||||
&horizontal0loop_clear
|
||||
DUP2
|
||||
STH2r
|
||||
DUP2 .Screen/x DEO2
|
||||
|
||||
#00 .Screen/sprite DEO
|
||||
|
||||
#0008 ADD2 DUP2 STH2
|
||||
GTH2 ,&horizontal0loop_clear JCN
|
||||
|
||||
STH2r POP2 POP2
|
||||
|
||||
#0008 ADD2 DUP2 STH2 GTH2 ,&vertical0loop_clear JCN
|
||||
STH2r
|
||||
POP2 POP2
|
||||
|
||||
JMP2r
|
||||
|
||||
( rocks )
|
||||
@rocks_x [ 25 30 42 50 67 90 98 e8 20 43 43 57 5a 7f bc a5
|
||||
e5 dd a2 20 b7 9b 38 e8 33 43 63 b7 aa cf bc ]
|
||||
@rocks_y [ 60 48 34 56 23 65 65 65 ba e9 24 22 72 91 22 c5
|
||||
25 30 42 50 67 90 98 e8 20 43 43 57 5a 7f bc ]
|
||||
@r_color [ 00 01 01 00 00 00 01 01 01 01 00 00 01 01 00 00
|
||||
01 00 01 00 00 01 00 01 01 01 01 01 00 00 00 ]
|
||||
|
||||
( sprites )
|
||||
|
||||
@s_clear [ 0000 0000 0000 0000 ]
|
||||
@s_border [ 3288 7e83 780d e013 ]
|
||||
@s_bola [ 3c4e 9ffd f962 3c00 ]
|
||||
@s_stand [ 0000 0000 0024 7eff ]
|
||||
@s_stand_original [ 0000 0000 0000 3c7e ]
|
||||
|
||||
@s_monitx [ 3c7e 5a7f 1b3c 5a18 ]
|
||||
@s_monitx_back [ 3c7e 7efe d83c 5a18 ]
|
||||
|
||||
@s_monitx_stepfront0 [ 3c7e 5a7f 1b3c 5a18 ]
|
||||
@s_monitx_stepfront1 [ 3c7e 5a7f 1b3c 5a10 ]
|
||||
@s_monitx_stepfront2 [ 3c7e 5a7f 1b3c 5a18 ]
|
||||
@s_monitx_stepfront3 [ 3c7e 5a7f 1b3c 5a08 ]
|
||||
|
||||
@s_monitx_stepback0 [ 3c7e 7efe d83c 5a18 ]
|
||||
@s_monitx_stepback1 [ 3c7e 7efe d83c 5a10 ]
|
||||
@s_monitx_stepback2 [ 3c7e 7efe d83c 5a18 ]
|
||||
@s_monitx_stepback3 [ 3c7e 7efe d83c 5a08 ]
|
||||
|
||||
@s_monitx_stepside0 [ 1c3c 7afc d81c 1818 ]
|
||||
@s_monitx_stepside1 [ 1c3c 7afc d81c 1828 ]
|
||||
@s_monitx_stepside2 [ 1c3c 7afc d81c 3810 ]
|
||||
@s_monitx_stepside3 [ 1c3c 7afc d81c 1814 ]
|
||||
|
||||
|
|
@ -1,528 +0,0 @@
|
|||
( art by @ritualdust )
|
||||
|
||||
%MOUSE { #82 }
|
||||
|
||||
( devices )
|
||||
|
||||
|00 @System [ &vector $2 &wst $1 &rst $1 &pad $4 &r $2 &g $2 &b $2 &debug $1 &halt $1 ]
|
||||
|10 @Console [ &vector $2 &read $1 &pad $5 &write $1 &error $1 ]
|
||||
|20 @Screen [ &vector $2 &width $2 &height $2 &pad $2 &x $2 &y $2 &addr $2 &pixel $1 &sprite $1 ]
|
||||
|30 @Audio0 [ &vector $2 &position $2 &output $1 &pad $3 &adsr $2 &length $2 &addr $2 &volume $1 &pitch $1 ]
|
||||
|40 @Audio1 [ &vector $2 &position $2 &output $1 &pad $3 &adsr $2 &length $2 &addr $2 &volume $1 &pitch $1 ]
|
||||
|50 @Audio2 [ &vector $2 &position $2 &output $1 &pad $3 &adsr $2 &length $2 &addr $2 &volume $1 &pitch $1 ]
|
||||
|60 @Audio3 [ &vector $2 &position $2 &output $1 &pad $3 &adsr $2 &length $2 &addr $2 &volume $1 &pitch $1 ]
|
||||
|80 @Controller [ &vector $2 &button $1 &key $1 ]
|
||||
|90 @Mouse [ &vector $2 &x $2 &y $2 &state $1 &wheel $1 ]
|
||||
|a0 @File [ &vector $2 &success $2 &stat $2 &delete $1 &append $1 &name $2 &length $2 &read $2 &write $2 ]
|
||||
|c0 @DateTime [ &year $2 &month $1 &day $1 &hour $1 &minute $1 &second $1 &dotw $1 &doty $2 &isdst $1 ]
|
||||
|
||||
|
||||
|0000
|
||||
@room
|
||||
&x $2 &y $2
|
||||
@player
|
||||
&x $1 &y $1 &d $1
|
||||
|
||||
|0100
|
||||
|
||||
( theme )
|
||||
#067f .System/r DEO2
|
||||
#036f .System/g DEO2
|
||||
#003f .System/b DEO2
|
||||
|
||||
.Screen/width DEI2 #01 SFT2 #0040 SUB2 .room/x STZ2
|
||||
.Screen/height DEI2 #01 SFT2 #0040 SUB2 .room/y STZ2
|
||||
|
||||
( vectors )
|
||||
;on-frame .Screen/vector DEO2
|
||||
;on-button .Controller/vector DEO2
|
||||
|
||||
;entrance ;draw-dungeon JSR2
|
||||
|
||||
#05 .player/x STZ
|
||||
#06 .player/y STZ
|
||||
|
||||
MOUSE ;draw-mouse JSR2
|
||||
|
||||
BRK
|
||||
|
||||
@on-button ( -> )
|
||||
|
||||
.Controller/button DEI
|
||||
DUP #00 NEQ ,&no-null JCN
|
||||
POP BRK
|
||||
&no-null
|
||||
DUP #10 NEQ ,&no-up JCN
|
||||
#00 .player/d STZ
|
||||
#00 ;draw-mouse JSR2
|
||||
.player/y LDZk #01 SUB SWP STZ
|
||||
MOUSE ;draw-mouse JSR2
|
||||
&no-up
|
||||
DUP #20 NEQ ,&no-down JCN
|
||||
#01 .player/d STZ
|
||||
#00 ;draw-mouse JSR2
|
||||
.player/y LDZk INC SWP STZ
|
||||
MOUSE ;draw-mouse JSR2
|
||||
&no-down
|
||||
DUP #40 NEQ ,&no-left JCN
|
||||
#02 .player/d STZ
|
||||
#00 ;draw-mouse JSR2
|
||||
.player/x LDZk #01 SUB SWP STZ
|
||||
MOUSE ;draw-mouse JSR2
|
||||
&no-left
|
||||
DUP #80 NEQ ,&no-right JCN
|
||||
#03 .player/d STZ
|
||||
#00 ;draw-mouse JSR2
|
||||
.player/x LDZk INC SWP STZ
|
||||
MOUSE ;draw-mouse JSR2
|
||||
&no-right
|
||||
POP
|
||||
|
||||
BRK
|
||||
|
||||
@on-frame ( -> )
|
||||
|
||||
|
||||
|
||||
BRK
|
||||
|
||||
@draw-mouse ( color -- )
|
||||
|
||||
;spritesheet #29 .player/d LDZ ADD #0004 SFT2 ADD2 .Screen/addr DEO2
|
||||
.player/x LDZ #0005 SFT2 .room/x LDZ2 ADD2 .Screen/x DEO2
|
||||
.player/y LDZ #0005 SFT2 .room/y LDZ2 ADD2 .Screen/y DEO2
|
||||
#40 ADD .Screen/sprite DEO
|
||||
|
||||
JMP2r
|
||||
|
||||
@draw-dungeon ( stage* -- )
|
||||
|
||||
STH2
|
||||
#1000
|
||||
&ver
|
||||
DUP #0005 SFT2 .room/y LDZ2 ADD2 .Screen/y DEO2
|
||||
#1000
|
||||
&hor
|
||||
DUP #0005 SFT2 .room/x LDZ2 ADD2 .Screen/x DEO2
|
||||
( get id ) STH2 DUP STH2r ROT OVR SWP #40 SFT ADD #00 SWP
|
||||
( tile ) DUP2 STH2kr ADD2 LDA #0004 SFT2 ;spritesheet ADD2 .Screen/addr DEO2
|
||||
( color ) STH2kr #0100 ADD2 ADD2 LDA .Screen/sprite DEO
|
||||
INC GTHk ,&hor JCN
|
||||
POP2
|
||||
INC GTHk ,&ver JCN
|
||||
POP2
|
||||
POP2r
|
||||
|
||||
JMP2r
|
||||
|
||||
@print-hex ( value -- )
|
||||
|
||||
STHk #04 SFT ,&parse JSR .Console/write DEO
|
||||
STHr #0f AND ,&parse JSR .Console/write DEO
|
||||
JMP2r
|
||||
&parse ( value -- char )
|
||||
DUP #09 GTH ,&above JCN #30 ADD JMP2r &above #09 SUB #60 ADD JMP2r
|
||||
|
||||
JMP2r
|
||||
|
||||
@mouse-icn
|
||||
ffff ffff ffff ffff 0000 0000 0000 0000
|
||||
|
||||
@spritesheet
|
||||
1111 11f1 1111 111f eeee ee0e eeee eee0
|
||||
f5bb 55bb 51b1 51ff 0a44 aa44 ae4e ae00
|
||||
55bb 55bb 1111 1111 aa44 aa44 eeee eeee
|
||||
ff11 11f1 1111 111f 00ee ee0e eeee eee0
|
||||
1111 1111 1111 1111 eeee eeee eeee eeee
|
||||
ff80 8080 80ff 8080 00ff ffff ffff ffff
|
||||
ff01 0101 01ff 0101 00fe fefe fefe fefe
|
||||
ffff 11ff 0ffd 71ff 00ee ee00 fa02 ee00
|
||||
ffff 11ff cffd f9ff 00ee ee00 7a02 6600
|
||||
ff8c 8f9f 9f8e ff00 0cff fcfe fefd ffff
|
||||
ff82 820a 390a ff00 007d 7df5 c6f5 ffff
|
||||
ff7d 7f6f 3d01 ff01 38fe d4fc fafe fefe
|
||||
0000 0000 0007 0808 0000 0000 0007 0f0f
|
||||
0000 0000 00ff 9191 0000 0000 006e 6e6e
|
||||
0000 0000 00ff 1111 0000 0000 00ee eeee
|
||||
0000 0000 00c0 0000 0000 0000 00c0 e0e0
|
||||
1111 1111 1111 111f eeee eeee eeee eee0
|
||||
51b1 51bf 51b1 51f1 ae4e ae40 ae4e ae0e
|
||||
bb55 3b15 111f 1111 44aa c4ea eee0 eeee
|
||||
bf55 bb55 1111 1111 40aa 44aa eeee eeee
|
||||
51b1 51b1 51b1 51f1 ae4e ae4e ae4e ae0e
|
||||
dfba afbf bfbf 9f80 a0c5 d5d5 d5c0 ffff
|
||||
f5fd cdfd 8dfd f901 0a06 7606 7606 fefe
|
||||
ffff 11ff f785 87ff 00ee ee00 7a7a 7800
|
||||
ffff 11ff cffd fdff 00ee ee00 7a02 6200
|
||||
381f 0520 2038 7000 0020 3a38 3800 7c00
|
||||
00ff 0000 0000 0000 0000 ff00 0000 0000
|
||||
1cec 2010 101c 3800 0010 dc1c 1c00 3e00
|
||||
0808 0000 0000 0000 0f0f 0700 0000 0000
|
||||
ff91 9100 0000 0000 6e6e 6e00 0000 0000
|
||||
ff11 1100 0000 0000 eeee ee00 0000 0000
|
||||
8000 0000 0000 0000 e0e0 c000 0000 0000
|
||||
1111 11f1 1111 11ff eeee ee0e eeee ee00
|
||||
51b1 51b1 1111 1111 ae4e ae4e eeee eeee
|
||||
aa55 ab95 8181 817f 55aa d4ea fefe fe80
|
||||
ffab 55ab 51a1 51ff 0054 aa54 ae5e ae00
|
||||
d5ab d5ab d1a1 d1ff 2a54 2a54 2e5e 2e00
|
||||
ffbe aaaa bf9f 80bf 80d5 d5d5 c0ff ffc0
|
||||
fdfd 6d2d fdf9 01f9 0216 96d6 06fe fe06
|
||||
ffff 817e ffff ffff 007e ff81 0000 0000
|
||||
ffff 91ff cffd f9ff 006e 6e00 7a02 6600
|
||||
0000 1c04 1830 303a 0a0e 1f0e 1e2e 2e55
|
||||
2838 3878 004c 4c00 283a 297d 3e7a 32ff
|
||||
1070 7878 0123 1200 1172 5375 1c3c 0c7e
|
||||
080e 1e1e 98c4 4800 884e caae 203c 307e
|
||||
80e0 8080 80e7 8888 e000 e0e0 e007 efef
|
||||
0000 0000 00c7 0808 0000 0000 00c7 efef
|
||||
080e 0808 08ce 0808 0e00 0e0e 0ec0 eeee
|
||||
55ab 55ab 51a1 51ff aa54 aa54 ae5e ae00
|
||||
ab55 ab55 8181 817f 54aa 54aa fefe fe80
|
||||
ab55 ab55 8181 817f 54aa 54aa fefe fe80
|
||||
bf7f bf77 9f81 817f 5cbe 6abe fcfe fe80
|
||||
ab55 ab95 8181 817f 54aa d4ea fefe fe80
|
||||
ffc0 8083 80c0 ffff ffff ffff ffff ff00
|
||||
ff00 80ff 8000 ffff ffff ffff ffff ff00
|
||||
ff07 03c3 0307 ffff fefe fefe fefe fe00
|
||||
ffff 91ff f785 ffd9 006e 6e00 7a7a 006e
|
||||
0000 0000 0000 0000 0000 0000 0000 0000
|
||||
0000 0000 0000 0000 0000 0000 0000 0000
|
||||
0000 0000 0000 0000 0000 0000 0000 0000
|
||||
080e 0808 080e 0808 0e00 0e0e 0e00 0e0e
|
||||
80e0 8080 80e0 8080 e000 e0e0 e000 e0e0
|
||||
ee88 88ee 8890 8000 00ee ee00 eefe fe7c
|
||||
0000 0000 0000 0000 0000 0000 0000 0000
|
||||
5ea1 51a1 51a1 51ae af5e ae5e ae5e ae5f
|
||||
7e81 8181 8181 817f fffe fefe fefe fe80
|
||||
7e81 41a1 51a1 51ff ff7e be5e ae5e ae00
|
||||
7e81 8185 8783 817f fffe fefa fcfe fefe
|
||||
7e81 8185 8783 817f fffe fefa fcfe fe80
|
||||
eaea eaea ffea ffaa 5555 5555 00ff 0055
|
||||
aaaa aaaa ff00 ffaa 5555 5555 00ff 0055
|
||||
afaf afaf ff17 ffab 5454 5454 00fe 0054
|
||||
ffff 11ff cffd c5ff 00ee ee00 7a02 7a00
|
||||
0000 0000 0000 0000 0000 0000 0000 0000
|
||||
0000 0000 0000 0000 0000 0000 0000 0000
|
||||
0000 0000 0000 0000 0000 0000 0000 0000
|
||||
0e0e 040a 040e 0808 0000 0a04 0a00 0e0e
|
||||
e0e0 40a0 40e0 8080 0000 a040 a000 e0e0
|
||||
80e0 8080 e09f 9191 e000 e0e0 00ee ee6e
|
||||
080e 0808 0ef0 1012 0e00 0e0e 00ee eeec
|
||||
5ea1 51a1 51a1 51fe af5e ae5e ae5e ae01
|
||||
7f80 8080 8080 807f ffff ffff ffff ffff
|
||||
7e8d 8f9f f1e1 817f f7f6 f0ee 1efe fe80
|
||||
5ea1 51a1 51a1 51ff af5e ae5e ae5e ae00
|
||||
7e81 41a1 51a9 51fe ff7e be5e ae56 ae07
|
||||
ffff 18ff 7873 7474 00e7 e700 c7cc cbcb
|
||||
ffff 14ff 00ff 0000 00eb eb00 ff00 ffff
|
||||
ffff 18ff 1ece 2e2e 00e7 e700 e333 d3d3
|
||||
ffff 11ff ff85 ffd9 00ee ee00 7a7a 006e
|
||||
0000 0000 0000 0000 0000 0000 0000 0000
|
||||
0000 0000 0000 0000 0000 0000 0000 0000
|
||||
0000 0000 0000 0000 0000 0000 0000 0000
|
||||
0000 0000 0000 0000 0000 0000 0000 0000
|
||||
0000 0000 0000 0000 0000 0000 0000 0000
|
||||
ff91 91e0 8080 e080 6eee ee00 e0e0 00e0
|
||||
fe10 100e 0808 0e08 ecee ee00 0e0e 000e
|
||||
0000 0000 0000 55aa 0000 0000 0000 aa55
|
||||
552a ff80 efff 80ff aad5 00ff ff00 ffff
|
||||
55aa ff00 ffff 00ff aa55 00ff ff00 ffff
|
||||
55ab ff01 dfff 01ff aa54 00fe fe00 fefe
|
||||
ffff d700 00ff ffff 0000 ffff ff00 7ce2
|
||||
7474 7474 7000 00ff cbcb cbcb cfff ff00
|
||||
0000 0000 0000 00ff ffff ffff ffff ff00
|
||||
2e2e 2e2e 2e0e 0cff d3d3 d3d3 d3f3 f300
|
||||
ffff 817e ffff fbeb 007e ff81 0004 1414
|
||||
0000 0000 0000 0000 0000 0000 0000 0000
|
||||
0000 0000 0000 0000 0000 0000 0000 0000
|
||||
0000 0000 0000 0000 0000 0000 0000 0000
|
||||
0000 0000 0000 0000 0000 0000 0000 0000
|
||||
0000 0000 0000 0000 0000 0000 0000 0000
|
||||
00ff 4444 00ff 4444 00bb bbbb 00bb bbbb
|
||||
00fc 4848 00fc 4848 00b4 b6b6 02b6 b6b4
|
||||
ff01 1fff 011f ff01 00fe fe00 fefe 00fe
|
||||
ff80 ffff 80ff ffff 00ff ff00 ffff 0000
|
||||
ff00 afff 00fd ffff 00ff ff00 ffff 0000
|
||||
ff01 ffff 01ff ffff 00fe fe00 fefe 0000
|
||||
ffff ffff ffff ffff 3e2e ab3d efff d8f7
|
||||
ffa0 ffa8 58ff a8ff 005f 0057 a700 5700
|
||||
ff81 ff09 09ff 81ff 007e 00f6 f600 7e00
|
||||
ff57 5617 270c 0cff 00a9 a9e8 d9f3 f300
|
||||
ffff b9ef e9ef ffe7 0046 5610 5610 3c18
|
||||
0000 0000 0000 0000 0000 0000 0000 0000
|
||||
0000 0000 0000 0000 0000 0000 0000 0000
|
||||
0000 0000 0000 0000 0000 0000 0000 0000
|
||||
0000 0000 0000 0000 0000 0000 0000 0000
|
||||
007f 8484 e080 8080 007b fbfb 00e0 e0e0
|
||||
00ff 4444 0003 0404 00bb bbbb 0003 0707
|
||||
0000 0000 0000 0000 0000 0000 0000 0000
|
||||
1fff 011f ff01 1dff fe00 fefe 00fe fe00
|
||||
5ea3 55ab 55ab 55ff af5c aa54 aa54 aa00
|
||||
7e81 55ab 55ab 55ff fffe aa54 aa54 aa00
|
||||
0101 ffff ffff ffff fefe 00ff c7b9 ff67
|
||||
81c1 ffff ffff ffff 7e3e 00ff 1de7 fff9
|
||||
ffff 8080 8080 ff55 00ff ffff ffff 00aa
|
||||
fffe 0101 0101 ff55 00ff fefe fefe 00aa
|
||||
3f18 181f 4e4e 26ff c7e7 e7e0 b3b1 d900
|
||||
efef adef efed fdff 185a 5a18 5a1a 5200
|
||||
0000 0000 0000 0000 0000 0000 0000 0000
|
||||
0000 0000 0000 0000 0000 0000 0000 0000
|
||||
0000 0000 0000 0000 0000 0000 0000 0000
|
||||
0000 0000 0000 0000 0000 0000 0000 0000
|
||||
0000 0000 0000 0000 0000 0000 0000 0000
|
||||
0000 0000 0000 0000 0000 0000 0000 0000
|
||||
0000 0000 0000 0000 0000 0000 0000 0000
|
||||
0000 0000 0000 0000 8080 00e0 8000 8101
|
||||
0000 0000 0000 0000 0000 0606 3636 b6b6
|
||||
1e01 0181 8181 817f fffe fefe fefe fe80
|
||||
ffff ffff ffff ffff ffff ae71 ffff c7fb
|
||||
ffff ffff ffff ffff fefe fe1c eefe c2be
|
||||
0000 0000 0000 0000 0000 0000 0000 0000
|
||||
0000 0000 0000 0000 0000 0000 0000 0000
|
||||
0000 0000 0000 0000 0000 0000 0000 0000
|
||||
ffff 817e ffff ffff 007e ff81 0008 347e
|
||||
0000 0000 0000 0000 0000 0000 0000 0000
|
||||
0000 0000 0000 0000 0000 0000 0000 0000
|
||||
0000 0000 0000 0000 0000 0000 0000 0000
|
||||
0000 0000 0000 0000 0000 0000 0000 0000
|
||||
0000 0000 0000 0000 0000 0000 0000 0000
|
||||
0000 0000 0000 0000 0000 0000 0000 0000
|
||||
0000 0000 0000 0000 0000 0000 0000 0000
|
||||
817e ff00 ff18 0081 7eff ffff 00e7 ffff
|
||||
fe81 c1a1 c1a1 c1ff 7f7e 3e5e 3e5e 3e00
|
||||
aa55 ab55 01c3 7d01 55aa 54aa febe 82fe
|
||||
0101 ffff ffff ffff fefe 00fe 78a6 fefa
|
||||
55ab f51b 11e1 817f aa54 eae4 ee1e fe80
|
||||
0000 0000 0000 0000 0000 0000 0000 0000
|
||||
0000 0000 0000 0000 0000 0000 0000 0000
|
||||
0000 0000 0000 0000 0000 0000 0000 0000
|
||||
0000 0000 0000 0000 0000 0000 0000 0000
|
||||
0000 0000 0000 0000 0000 0000 0000 0000
|
||||
0000 0000 0000 0000 0000 0000 0000 0000
|
||||
0000 0000 0000 0000 0000 0000 0000 0000
|
||||
0000 0000 0000 0000 0000 0000 0000 0000
|
||||
0000 0000 0000 0000 0000 0000 0000 0000
|
||||
0000 0000 0000 0000 0000 0000 0000 0000
|
||||
0000 0000 0000 0000 0000 0000 0000 0000
|
||||
ff55 ab81 8181 817f 00aa d4fe fefe fe80
|
||||
be41 a181 8181 817f 5fbe 5efe fefe fe80
|
||||
7d7d 017d 7d01 7dff 8282 fe82 82fe 8200
|
||||
7d7d 017d 7d01 7d7d 8282 fe82 82fe 8282
|
||||
d5ab 5db0 908f 837f 2a54 af4f eff0 fc80
|
||||
0000 0000 0000 0000 0000 0000 0000 0000
|
||||
0000 0000 0000 0000 0000 0000 0000 0000
|
||||
0000 0000 0000 0000 0000 0000 0000 0000
|
||||
0000 0000 0000 0000 0000 0000 0000 0000
|
||||
0000 0000 0000 0000 0000 0000 0000 0000
|
||||
0000 0000 0000 0000 0000 0000 0000 0000
|
||||
0000 0000 0000 0000 0000 0000 0000 0000
|
||||
0000 0000 0000 0000 0000 0000 0000 0000
|
||||
0000 0000 0000 0000 0000 0000 0000 0000
|
||||
0000 0000 0000 0000 0000 0000 0000 0000
|
||||
0000 0000 0000 0000 0000 0000 0000 0000
|
||||
ff88 ce96 f4f0 f695 fff8 def7 fdf1 f7b5
|
||||
ff0e a634 8270 32c1 ff4f ffff 9ff9 fff7
|
||||
898d 38fd 4f53 44d1 9fff fdff 7fff dffd
|
||||
017d 7d01 7d7d 017d fe82 82fe 8282 fe82
|
||||
ffff ffff ffff ffff ffaa ff55 ffaa 55aa
|
||||
0000 0000 0000 0000 0000 0000 0000 0000
|
||||
0000 0000 0000 0000 0000 0000 0000 0000
|
||||
0000 0000 0000 0000 0000 0000 0000 0000
|
||||
0000 0000 0000 0000 0000 0000 0000 0000
|
||||
0000 0000 0000 0000 0000 0000 0000 0000
|
||||
0000 0000 0000 0000 0000 0000 0000 0000
|
||||
0000 0000 0000 0000 0000 0000 0000 0000
|
||||
0000 0000 0000 0000 0000 0000 0000 0000
|
||||
0000 0000 0000 0000 0000 0000 0000 0000
|
||||
0000 0000 0000 0000 0000 0000 0000 0000
|
||||
0000 0000 0000 0000 0000 0000 0000 0000
|
||||
8d85 90b8 f2b7 848d bfc7 91f8 f6ff 9fef
|
||||
ffff ffff ffff ffff 5fbf 5fa7 59bf 47b8
|
||||
ffff ffff ffff ffff 55aa 55ff fff9 cfff
|
||||
ffff ffff ffff ffff 55aa 55bf 53bc 5fbf
|
||||
ffff ffff ffff ffff feaa fe54 feaa 54aa
|
||||
0000 0000 0000 0000 0000 0000 0000 0000
|
||||
0000 0000 0000 0000 0000 0000 0000 0000
|
||||
0000 0000 0000 0000 0000 0000 0000 0000
|
||||
0000 0000 0000 0000 0000 0000 0000 0000
|
||||
0000 0000 0000 0000 0000 0000 0000 0000
|
||||
0000 0000 0000 0000 0000 0000 0000 0000
|
||||
0000 0000 0000 0000 0000 0000 0000 0000
|
||||
0000 0000 0000 0000 0000 0000 0000 0000
|
||||
0000 0000 0000 0000 0000 0000 0000 0000
|
||||
0000 0000 0000 0000 0000 0000 0000 0000
|
||||
0000 0000 0000 0000 0000 0000 0000 0000
|
||||
ffff ffff ffff ffff 5faa 5fb5 5faa 55aa
|
||||
0000 0000 0000 0000 0000 0000 0000 0000
|
||||
0000 0000 0000 0000 0000 0000 0000 0000
|
||||
0000 0000 0000 0000 0000 0000 0000 0000
|
||||
0000 0000 0000 0000 0000 0000 0000 0000
|
||||
0000 0000 0000 0000 0000 0000 0000 0000
|
||||
0000 0000 0000 0000 0000 0000 0000 0000
|
||||
0000 0000 0000 0000 0000 0000 0000 0000
|
||||
0000 0000 0000 0000 0000 0000 0000 0000
|
||||
0000 0000 0000 0000 0000 0000 0000 0000
|
||||
0000 0000 0000 0000 0000 0000 0000 0000
|
||||
0000 0000 0000 0000 0000 0000 0000 0000
|
||||
0000 0000 0000 0000 0000 0000 0000 0000
|
||||
0000 0000 0000 0000 0000 0000 0000 0000
|
||||
0000 0000 0000 0000 0000 0000 0000 0000
|
||||
0000 0000 0000 0000 0000 0000 0000 0000
|
||||
0000 0000 0000 0000 0000 0000 0000 0000
|
||||
0000 0000 0000 0000 0000 0000 0000 0000
|
||||
0000 0000 0000 0000 0000 0000 0000 0000
|
||||
0000 0000 0000 0000 0000 0000 0000 0000
|
||||
0000 0000 0000 0000 0000 0000 0000 0000
|
||||
0000 0000 0000 0000 0000 0000 0000 0000
|
||||
0000 0000 0000 0000 0000 0000 0000 0000
|
||||
0000 0000 0000 0000 0000 0000 0000 0000
|
||||
0000 0000 0000 0000 0000 0000 0000 0000
|
||||
0000 0000 0000 0000 0000 0000 0000 0000
|
||||
0000 0000 0000 0000 0000 0000 0000 0000
|
||||
0000 0000 0000 0000 0000 0000 0000 0000
|
||||
0000 0000 0000 0000 0000 0000 0000 0000
|
||||
0000 0000 0000 0000 0000 0000 0000 0000
|
||||
0000 0000 0000 0000 0000 0000 0000 0000
|
||||
42ff 7d41 82fa 6100 7cfc 027e fcfc 7e00
|
||||
|
||||
|
||||
@sewers
|
||||
0c0d 0ea2 0e0e 0f00 0000 0000 0000 0000
|
||||
3c07 58b3 3858 3d00 0000 0000 0000 0000
|
||||
3c17 18c3 3828 3d00 0000 0000 0000 0000
|
||||
3c30 3132 3231 4e0e 0e0e 0e0e 0e0e 0f00
|
||||
3c50 8483 a344 2858 1858 6838 6828 3d00
|
||||
1c1d 1e5f 9441 0718 2718 5818 1858 3d00
|
||||
0000 003c 9441 22b4 64a4 3232 3232 3d00
|
||||
0000 003c 93a3 4183 9383 8383 8341 3d00
|
||||
0000 001c 5f94 5294 7d7e 6e6e 6f41 3d00
|
||||
000c 0e0e 4f94 4194 3d3c 5858 1841 3d00
|
||||
003c 1758 1894 4194 3d3c 1818 1850 3d00
|
||||
003c 1898 1894 4194 3d3c a024 33b1 3d00
|
||||
003c d374 d294 4494 3d3c 23b1 4144 3d00
|
||||
003c d193 9394 4194 3d3c 5052 4141 3d00
|
||||
004c e0c4 c4d4 82d4 4d1c 1d1e 1e1e 1f00
|
||||
00bc 0000 0000 00ca 0000 0000 0000 0000
|
||||
&colors
|
||||
8080 8080 8080 8000 0000 0000 0000 0000
|
||||
8080 8080 8080 8000 0000 0000 0000 0000
|
||||
8080 8080 8080 8000 0000 0000 0000 0000
|
||||
8080 8080 8080 8080 8080 8080 8080 8000
|
||||
8080 8080 8080 8080 8080 8080 8080 8000
|
||||
8080 8080 8080 8080 8080 8080 8080 8000
|
||||
0000 0080 8080 8080 8080 8080 8080 8000
|
||||
0000 0080 8080 8080 8080 8080 8080 8000
|
||||
0000 0080 8080 80a0 8080 8080 8080 8000
|
||||
0080 8080 8080 80a0 8080 8080 8080 8000
|
||||
0080 8080 8080 80a0 8080 8080 8080 8000
|
||||
0080 8080 8080 80a0 8080 8080 8080 8000
|
||||
0080 8080 8080 80a0 8080 8080 8080 8000
|
||||
0080 8080 8080 80a0 8080 8080 8080 8000
|
||||
00a0 8080 8080 8080 a080 8080 8080 8000
|
||||
00a0 0000 0000 0080 0000 0000 0000 0000
|
||||
|
||||
@crypt
|
||||
0000 0c0d 0e0e 0f00 0000 0000 0000 0000
|
||||
0c0d 4f55 5657 4e0e 0f00 0000 0000 0000
|
||||
3c55 5765 6667 5557 3d00 0000 0000 0000
|
||||
3c65 6732 3232 6567 3d00 0000 0000 0000
|
||||
3c30 3235 3637 3233 3d00 0000 0000 0000
|
||||
3c40 4345 4647 5451 3d00 0000 0000 0000
|
||||
3c75 7661 6263 7576 3d4c 604d 0000 0000
|
||||
3c30 3171 7273 3232 3d3c 703d 0000 0000
|
||||
3c50 4441 4141 4141 4e4f 803d 0000 0000
|
||||
3c50 ff41 4152 4141 9091 923d 0000 0000
|
||||
3c50 4141 4141 4141 5e1e 1e1f 0000 0000
|
||||
3c50 5241 4141 4441 3d00 0000 0000 0000
|
||||
1c1d 1e5f 415e 1e1e 1f00 0000 0000 0000
|
||||
0000 004c 824d 0000 0000 0000 0000 0000
|
||||
0000 0000 0000 0000 0000 0000 0000 0000
|
||||
0000 0000 0000 0000 0000 0000 0000 0000
|
||||
&colors
|
||||
0000 8080 8080 8000 0000 0000 0000 0000
|
||||
8080 8080 8080 8080 8000 0000 0000 0000
|
||||
8080 8080 8080 8080 8000 0000 0000 0000
|
||||
8080 8080 8080 8080 8000 0000 0000 0000
|
||||
8080 8080 8080 8080 8000 0000 0000 0000
|
||||
8080 8080 8080 8080 8000 0000 0000 0000
|
||||
8080 8080 8080 8080 8080 8080 0000 0000
|
||||
8080 8080 8080 8080 8080 8080 0000 0000
|
||||
8080 8080 8080 8080 8080 8080 0000 0000
|
||||
8080 8080 8080 8080 8080 8080 0000 0000
|
||||
8080 8080 8080 8080 8080 8080 0000 0000
|
||||
8080 8080 8080 8080 8000 0000 0000 0000
|
||||
8080 8080 8080 8080 8000 0000 0000 0000
|
||||
0000 00a0 80a0 0000 0000 0000 0000 0000
|
||||
0000 0000 0000 0000 0000 0000 0000 0000
|
||||
0000 0000 0000 0000 0000 0000 0000 0000
|
||||
|
||||
@entrance
|
||||
0c0d 0e0e 0e0e 0e0e 0f0c 0d0e 0e0f 0000
|
||||
3c07 0727 2807 0506 3d3c 1717 173d 0000
|
||||
3c17 287b 0728 1516 4e4f 1717 173d 0000
|
||||
3c30 3131 3131 2526 1717 31a2 313d 0000
|
||||
3c50 a0a1 4141 3432 1717 41b2 443d 0000
|
||||
3c50 b0b1 5241 4144 3431 4141 413d 0000
|
||||
3c50 4141 4141 4141 4141 5241 413d 0000
|
||||
1c1d 1e1e 5f41 5e1e 1e1e 1e1e 1e1f 0000
|
||||
0000 0000 4c81 4d00 0000 0000 0000 0000
|
||||
0000 0000 0000 0000 0000 0000 0000 0000
|
||||
0000 0000 0000 9d00 0000 0000 0000 0000
|
||||
0000 0000 0000 0000 0000 0000 0000 0000
|
||||
0000 0000 0000 0000 0000 0000 0000 0000
|
||||
0000 0000 0000 0000 0000 0000 0000 0000
|
||||
0000 0000 0000 0000 0000 0000 0000 0000
|
||||
0000 0000 0000 0000 0000 0000 0000 0000
|
||||
&colors
|
||||
8080 8080 8080 8080 8080 8080 8080 0000
|
||||
8080 8080 8080 8080 8080 8080 8080 0000
|
||||
8080 8081 8080 8080 8080 8080 8080 0000
|
||||
8080 8080 8080 8080 8080 8080 8080 0000
|
||||
8080 8080 8080 8080 8080 8080 8080 0000
|
||||
8080 8080 8080 8080 8080 8080 8080 0000
|
||||
8080 8080 8080 8080 8080 8080 8080 0000
|
||||
8080 8080 8080 8080 8080 8080 8080 0000
|
||||
0000 0000 a080 a000 0000 0000 0000 0000
|
||||
0000 0000 0000 0000 0000 0000 0000 0000
|
||||
0000 0000 0000 8000 0000 0000 0000 0000
|
||||
0000 0000 0000 0000 0000 0000 0000 0000
|
||||
0000 0000 0000 0000 0000 0000 0000 0000
|
||||
0000 0000 0000 0000 0000 0000 0000 0000
|
||||
0000 0000 0000 0000 0000 0000 0000 0000
|
||||
0000 0000 0000 0000 0000 0000 0000 0000
|
||||
|
||||
@upper
|
||||
007b 7b7b 7b7b 7b7b 7b0c 0e0e 0e0e 0f7b
|
||||
cfcf cfcf cfcf cfcf 7b3c 7758 7858 3d00
|
||||
0c0d 0e2e 0d0e 0e0e 0e2f 8707 8808 3d00
|
||||
3c05 063e 3868 3807 283e 0102 0202 3d00
|
||||
3c15 1628 090a 0b17 2828 1100 0010 3d00
|
||||
3c25 2628 191a 1b01 a028 1100 0020 3d00
|
||||
3c01 1313 1213 1321 1312 2100 5e1e 1f00
|
||||
3c14 c0c1 c1c1 c000 1010 1004 3dcf 7e00
|
||||
3c14 d0c2 c2c2 d010 1000 1041 3d00 0000
|
||||
3c11 c0c1 c1c1 c004 1010 0419 3d00 0000
|
||||
3c11 0404 0400 1004 0004 0412 3d00 0000
|
||||
3c85 8685 865e 5f70 5e5f 8586 3d00 0000
|
||||
1c1d 1e1e 1e1f 3c80 3d1c 1d1e 1f00 0000
|
||||
8e8e 8e8e 8e8e 4c60 4d00 0000 0000 0000
|
||||
0000 0000 00ef efef 0000 0000 0000 0000
|
||||
&colors
|
||||
0000 0000 0000 0000 0000 0000 0000 0000
|
||||
0080 8080 8080 8080 8080 8080 8080 8080
|
||||
8080 8080 8080 8080 8080 8080 8080 8000
|
||||
8080 8080 8080 8080 8080 8080 8080 8000
|
||||
8080 8080 8080 8080 8080 8080 8080 8000
|
||||
8080 8080 8080 8080 8080 8080 8080 8000
|
||||
8080 8080 8080 8080 8080 8080 8080 8000
|
||||
8080 8080 8080 8080 8080 8080 8080 8000
|
||||
8080 8080 8080 9080 8080 8080 8080 8000
|
||||
8080 80a0 80a0 9080 8080 8080 8000 0000
|
||||
8080 a0a0 a0a0 b080 8080 8080 8000 0000
|
||||
8080 8080 8080 8080 8080 8080 8000 0000
|
||||
8080 8080 8080 8080 8080 8080 8000 0000
|
||||
8080 8080 8080 8080 8080 8080 8000 0000
|
||||
8080 8080 8080 a0b0 a000 0000 0000 0000
|
||||
0000 0000 0080 8080 0000 0000 0000 0000
|
||||
0000 0000 0000 0000 0000 0000 0000 0000
|
||||
|
|
@ -1,82 +0,0 @@
|
|||
( pseudo-random number generator,
|
||||
based on two 16-bit xorshift algorithms by George Marsaglia
|
||||
http://www.jstatsoft.org/v08/i14/paper )
|
||||
|
||||
( devices )
|
||||
|
||||
|00 @System [ &vector $2 &wst $1 &rst $1 &pad $4 &r $2 &g $2 &b $2 &debug $1 &halt $1 ]
|
||||
|20 @Screen [ &vector $2 &width $2 &height $2 &pad $2 &x $2 &y $2 &addr $2 &pixel $1 &sprite $1 ]
|
||||
|c0 @DateTime [ &year $2 &month $1 &day $1 &hour $1 &minute $1 &second $1 &dotw $1 &doty $2 &isdst $1 ]
|
||||
|
||||
( variables )
|
||||
|
||||
|0000
|
||||
|
||||
( program )
|
||||
|
||||
|0100 ( -> )
|
||||
( init )
|
||||
;on-frame .Screen/vector DEO2
|
||||
|
||||
( seed prng (must be nonzero) )
|
||||
#00 .DateTime/second DEI
|
||||
#00 .DateTime/minute DEI #60 SFT2 EOR2
|
||||
#00 .DateTime/hour DEI #c0 SFT2 EOR2 ;prng2/x STA2
|
||||
#00 .DateTime/hour DEI #04 SFT2
|
||||
#00 .DateTime/day DEI #10 SFT2 EOR2
|
||||
#00 .DateTime/month DEI #60 SFT2 EOR2
|
||||
.DateTime/year DEI2 #a0 SFT2 EOR2 ;prng2/y STA2
|
||||
;prng2/x LDA2 ;prng2/y LDA2 EOR2
|
||||
ORAk ,&non-zero JCN INC2 &non-zero
|
||||
;prng/seed STA2
|
||||
|
||||
( theme )
|
||||
#0fe5 .System/r DEO2
|
||||
#0fc5 .System/g DEO2
|
||||
#0f25 .System/b DEO2
|
||||
BRK
|
||||
|
||||
@on-frame ( -> )
|
||||
#c0
|
||||
&loop
|
||||
,draw-pixel JSR
|
||||
INC
|
||||
DUP ,&loop JCN
|
||||
POP
|
||||
BRK
|
||||
|
||||
@draw-pixel
|
||||
,prng2 JSR
|
||||
#00 SWP .Screen/x DEO2
|
||||
#00 SWP .Screen/y DEO2
|
||||
#01 .Screen/pixel DEO
|
||||
JMP2r
|
||||
|
||||
@prng ( -- number* )
|
||||
( returns the next number in a 65,535-long sequence,
|
||||
which is never zero but every other 16-bit number
|
||||
appears once before the sequence repeats )
|
||||
( http://www.retroprogramming.com/2017/07/xorshift-pseudorandom-numbers-in-z80.html )
|
||||
,&seed LDR2
|
||||
DUP2 #70 SFT2 EOR2
|
||||
DUP2 #09 SFT2 EOR2
|
||||
DUP2 #80 SFT2 EOR2
|
||||
,&seed STR2k POP
|
||||
JMP2r
|
||||
|
||||
&seed $2
|
||||
|
||||
@prng2 ( -- number* )
|
||||
( returns the next number in a (2^32-1)-long sequence )
|
||||
( http://b2d-f9r.blogspot.com/2010/08/16-bit-xorshift-rng-now-with-more.html )
|
||||
,&x LDR2
|
||||
DUP2 #50 SFT2 EOR2
|
||||
DUP2 #03 SFT2 EOR2
|
||||
,&y LDR2 DUP2 ,&x STR2
|
||||
DUP2 #01 SFT2 EOR2 EOR2
|
||||
,&y STR2k POP
|
||||
JMP2r
|
||||
|
||||
&x $2
|
||||
&y $2
|
||||
|
||||
|
|
@ -1,154 +0,0 @@
|
|||
( devices )
|
||||
|
||||
( uxnasm rule110.tal rule110.rom && uxnemu rule110.rom )
|
||||
|
||||
%2* { #10 SFT } %2/ { #01 SFT } %2** { #10 SFT2 } %2// { #01 SFT2 }
|
||||
%4* { #20 SFT } %4/ { #02 SFT } %4** { #20 SFT2 } %4// { #02 SFT2 }
|
||||
%8* { #30 SFT } %8/ { #03 SFT } %8** { #30 SFT2 } %8// { #03 SFT2 }
|
||||
%10* { #40 SFT } %10/ { #04 SFT } %10** { #40 SFT2 } %10// { #04 SFT2 }
|
||||
%20* { #50 SFT } %20/ { #05 SFT } %20** { #50 SFT2 } %20// { #05 SFT2 }
|
||||
|
||||
%2MOD { #01 AND } %2MOD2 { #0001 AND2 }
|
||||
%4MOD { #03 AND } %4MOD2 { #0003 AND2 }
|
||||
%8MOD { #07 AND } %8MOD2 { #0007 AND2 }
|
||||
%10MOD { #0f AND } %10MOD2 { #000f AND2 }
|
||||
|
||||
%ROL2 { DUP2 #0f SFT2 SWP2 #10 SFT2 ADD2 }
|
||||
%ROR2 { DUP2 #f0 SFT2 SWP2 #01 SFT2 ADD2 }
|
||||
|
||||
%DEBUG { ;print-hex/byte JSR2 #0a18 DEO }
|
||||
%DEBUG2 { ;print-hex JSR2 #0a18 DEO }
|
||||
%RTN { JMP2r }
|
||||
|
||||
%WIDTH { #0020 }
|
||||
%STEPS { #30 }
|
||||
|
||||
|00 @System [ &vector $2 &pad $6 &r $2 &g $2 &b $2 ]
|
||||
|20 @Screen [ &vector $2 &width $2 &height $2 &auto $1 &pad $1 &x $2 &y $2 &addr $2 &pixel $1 &sprite $1 ]
|
||||
|90 @Mouse [ &vector $2 &x $2 &y $2 &state $1 &wheel $1 ]
|
||||
|
||||
|0000
|
||||
|
||||
@input
|
||||
|
||||
|0100
|
||||
|
||||
( set system colors )
|
||||
#0ff7 .System/r DEO2
|
||||
#0f0e .System/g DEO2
|
||||
#0f0c .System/b DEO2
|
||||
|
||||
;on-mouse .Mouse/vector DEO2
|
||||
|
||||
( set size )
|
||||
#0080 .Screen/width DEO2
|
||||
#0180 .Screen/height DEO2
|
||||
|
||||
( seed ) #0001 ;input STA2
|
||||
|
||||
,render JSR
|
||||
|
||||
BRK
|
||||
|
||||
@render ( -- )
|
||||
|
||||
STEPS #00
|
||||
&loop
|
||||
( update )
|
||||
DUP 2* LDZ2k
|
||||
;rule-110 JSR2
|
||||
ROT INC INC STZ2
|
||||
( draw )
|
||||
DUP ,draw-line JSR
|
||||
INC GTHk ,&loop JCN
|
||||
POP2
|
||||
|
||||
RTN
|
||||
|
||||
@draw-line ( line -- )
|
||||
|
||||
STHk #00 SWP 8** .Screen/y DEO2
|
||||
#1000
|
||||
&loop
|
||||
DUP #00 SWP 8** .Screen/x DEO2
|
||||
( shift ) INCk #10 SWP SUB
|
||||
( get address ) STHkr 2* LDZ2
|
||||
( bit ) ROT SFT2 #0001 AND2
|
||||
( get sprite ) 8** ;cell-icns ADD2 .Screen/addr DEO2
|
||||
#01 STHkr #00 EQU ADD .Screen/sprite DEO
|
||||
INC GTHk ,&loop JCN
|
||||
POP2
|
||||
POPr
|
||||
|
||||
RTN
|
||||
|
||||
@rule-110 ( value* -- value* )
|
||||
|
||||
#0000 ,&res STR2
|
||||
ROL2 STH2
|
||||
#1000
|
||||
&loop
|
||||
( get 3-bits ) STH2kr #e000 AND2 #0d SFT2 ;rule ADD2 LDA STH
|
||||
( get result ) DUP #40 SFT #00 STHr ROT SFT2
|
||||
( reset ) ROR2 ROR2 ROR2
|
||||
( save ) ,&res LDR2 ADD2 ,&res STR2
|
||||
STH2r ROR2 STH2
|
||||
INC GTHk ,&loop JCN
|
||||
POP2
|
||||
POP2r
|
||||
|
||||
,&res LDR2
|
||||
|
||||
RTN
|
||||
&res $2
|
||||
|
||||
@rule
|
||||
00 01 01 01 00 01 01 00
|
||||
|
||||
@on-mouse ( -> )
|
||||
|
||||
( clear last cursor )
|
||||
;mouse-icn .Screen/addr DEO2
|
||||
,&x LDR2 .Screen/x DEO2
|
||||
,&y LDR2 .Screen/y DEO2
|
||||
#40 .Screen/sprite DEO
|
||||
|
||||
( record pointer positions )
|
||||
.Mouse/x DEI2 DUP2 ,&x STR2 .Screen/x DEO2
|
||||
.Mouse/y DEI2 DUP2 ,&y STR2 .Screen/y DEO2
|
||||
|
||||
( colorize on state )
|
||||
#43 [ .Mouse/state DEI #00 NEQ ] SUB .Screen/sprite DEO
|
||||
|
||||
( on click )
|
||||
.Mouse/state DEI #00 NEQ JMP BRK
|
||||
|
||||
( toggle bit )
|
||||
.input LDZ2k
|
||||
#0001 .Mouse/x DEI2 8// #000f SWP2 SUB2 NIP #40 SFT SFT2 EOR2
|
||||
ROT STZ2
|
||||
;render JSR2
|
||||
( release ) #00 .Mouse/state DEO
|
||||
|
||||
BRK
|
||||
&x $2 &y $2
|
||||
|
||||
@print-hex ( value* -- )
|
||||
|
||||
SWP ,&byte JSR
|
||||
&byte ( byte -- )
|
||||
STHk #04 SFT ,&parse JSR #18 DEO
|
||||
STHr #0f AND ,&parse JSR #18 DEO
|
||||
RTN
|
||||
&parse ( byte -- char ) DUP #09 GTH ,&above JCN #30 ADD RTN
|
||||
&above #57 ADD RTN
|
||||
|
||||
RTN
|
||||
|
||||
@mouse-icn
|
||||
80c0 e0f0 f8e0 1000
|
||||
|
||||
@cell-icns
|
||||
7c82 8282 8282 7c00
|
||||
7cfe fefe fefe 7c00
|
||||
|
||||
Loading…
Reference in New Issue