2021-04-02 00:53:41 -04:00
|
|
|
( GUI Picture )
|
2021-02-27 12:39:06 -05:00
|
|
|
|
2021-03-16 00:29:44 -04:00
|
|
|
%RTN { JMP2r }
|
2021-04-23 10:34:03 -04:00
|
|
|
%8+ { #0008 ADD2 }
|
2021-03-16 00:29:44 -04:00
|
|
|
|
2021-04-23 10:34:03 -04:00
|
|
|
( devices )
|
2021-02-27 12:39:06 -05:00
|
|
|
|
2021-04-23 10:34:03 -04:00
|
|
|
|00 @System [ &vector $2 &pad $6 &r $2 &g $2 &b $2 ]
|
2021-07-31 16:58:33 -04:00
|
|
|
|20 @Screen [ &vector $2 &width $2 &height $2 &pad $2 &x $2 &y $2 &addr $2 &pixel $1 &sprite $1 ]
|
2021-04-26 13:52:46 -04:00
|
|
|
|a0 @File [ &vector $2 &success $2 &offset $2 &pad $2 &name $2 &length $2 &load $2 &save $2 ]
|
2021-04-23 10:34:03 -04:00
|
|
|
|
|
|
|
( variables )
|
|
|
|
|
|
|
|
|0000
|
|
|
|
|
2021-05-12 21:28:45 -04:00
|
|
|
@color [ &byte $1 ]
|
2021-04-23 10:34:03 -04:00
|
|
|
@position [ &x $2 &y $2 ]
|
2021-05-12 21:28:45 -04:00
|
|
|
@size [ &width $2 &height $2 ]
|
2021-03-21 17:16:19 -04:00
|
|
|
|
2021-04-05 16:00:55 -04:00
|
|
|
( program )
|
|
|
|
|
2021-04-23 10:34:03 -04:00
|
|
|
|0100
|
2021-02-27 12:39:06 -05:00
|
|
|
|
2021-08-17 22:17:47 -04:00
|
|
|
( theme ) #f07a .System/r DEO2 #f02a .System/g DEO2 #f02a .System/b DEO2
|
2021-04-10 15:19:38 -04:00
|
|
|
|
2021-07-31 16:58:33 -04:00
|
|
|
( background ) ;checker_icn #02 ;cover-pattern JSR2
|
2021-04-10 15:19:38 -04:00
|
|
|
|
2021-04-23 10:34:03 -04:00
|
|
|
( load ) ;icn1_path .File/name DEO2 #1800 .File/length DEO2 ;image .File/load DEO2
|
2021-07-31 16:58:33 -04:00
|
|
|
( draw ) #0008 #0008 #0100 #00c0 #07 ;image ;draw-icn JSR2
|
2021-04-11 23:38:21 -04:00
|
|
|
|
2021-04-23 10:34:03 -04:00
|
|
|
( load ) ;icn2_path .File/name DEO2 #0800 .File/length DEO2 ;image .File/load DEO2
|
2021-07-31 16:58:33 -04:00
|
|
|
( draw ) #0010 #0078 #0080 #0080 #07 ;image ;draw-icn JSR2
|
2021-04-13 15:29:36 -04:00
|
|
|
|
2021-04-23 10:34:03 -04:00
|
|
|
( load ) ;chr1_path .File/name DEO2 #4000 .File/length DEO2 ;image .File/load DEO2
|
2021-07-31 16:58:33 -04:00
|
|
|
( draw ) #00a8 #0010 #0100 #0100 #8f ;image ;draw-chr JSR2
|
2021-04-13 15:29:36 -04:00
|
|
|
|
2021-04-23 10:34:03 -04:00
|
|
|
( load ) ;chr2_path .File/name DEO2 #0900 .File/length DEO2 ;image .File/load DEO2
|
2021-07-31 16:58:33 -04:00
|
|
|
( draw ) #0088 #0088 #0060 #0060 #81 ;image ;draw-chr JSR2
|
2021-04-13 15:29:36 -04:00
|
|
|
|
2021-08-17 22:17:47 -04:00
|
|
|
|
2021-02-27 12:39:06 -05:00
|
|
|
BRK
|
|
|
|
|
2021-04-14 15:11:01 -04:00
|
|
|
@draw-icn ( x y width height color addr -- )
|
|
|
|
|
2021-05-11 14:14:52 -04:00
|
|
|
( load ) .Screen/addr DEO2 .color STZ .size/height STZ2 .size/width STZ2 .position/y STZ2 .position/x STZ2
|
|
|
|
#0000 .size/height LDZ2
|
2021-04-23 10:34:03 -04:00
|
|
|
&ver
|
2021-05-11 14:14:52 -04:00
|
|
|
( save ) OVR2 .position/y LDZ2 ADD2 .Screen/y DEO2
|
|
|
|
#0000 .size/width LDZ2
|
2021-04-23 10:34:03 -04:00
|
|
|
&hor
|
2021-05-11 14:14:52 -04:00
|
|
|
( save ) OVR2 .position/x LDZ2 ADD2 .Screen/x DEO2
|
2021-07-31 16:58:33 -04:00
|
|
|
( draw ) .color LDZ .Screen/sprite DEO
|
2021-04-23 10:34:03 -04:00
|
|
|
( incr ) .Screen/addr DEI2 8+ .Screen/addr DEO2
|
2021-04-14 15:11:01 -04:00
|
|
|
( incr ) SWP2 8+ SWP2
|
2021-05-12 15:08:51 -04:00
|
|
|
LTH2k ,&hor JCN
|
2021-04-14 15:11:01 -04:00
|
|
|
POP2 POP2
|
|
|
|
( incr ) SWP2 8+ SWP2
|
2021-05-12 15:08:51 -04:00
|
|
|
LTH2k ,&ver JCN
|
2021-04-14 15:11:01 -04:00
|
|
|
POP2 POP2
|
2021-04-10 15:19:38 -04:00
|
|
|
|
2021-04-14 15:11:01 -04:00
|
|
|
RTN
|
2021-04-10 15:19:38 -04:00
|
|
|
|
2021-04-14 15:11:01 -04:00
|
|
|
@draw-chr ( x y width height color addr -- )
|
2021-04-10 15:19:38 -04:00
|
|
|
|
2021-05-11 14:14:52 -04:00
|
|
|
( load ) .Screen/addr DEO2 .color STZ .size/height STZ2 .size/width STZ2 .position/y STZ2 .position/x STZ2
|
|
|
|
#0000 .size/height LDZ2
|
2021-04-23 10:34:03 -04:00
|
|
|
&ver
|
2021-05-11 14:14:52 -04:00
|
|
|
( save ) OVR2 .position/y LDZ2 ADD2 .Screen/y DEO2
|
|
|
|
#0000 .size/width LDZ2
|
2021-04-23 10:34:03 -04:00
|
|
|
&hor
|
2021-05-11 14:14:52 -04:00
|
|
|
( save ) OVR2 .position/x LDZ2 ADD2 .Screen/x DEO2
|
2021-07-31 16:58:33 -04:00
|
|
|
( draw ) .color LDZ .Screen/sprite DEO
|
2021-04-23 10:34:03 -04:00
|
|
|
( incr ) .Screen/addr DEI2 #0010 ADD2 .Screen/addr DEO2
|
2021-04-14 15:11:01 -04:00
|
|
|
( incr ) SWP2 8+ SWP2
|
2021-05-12 15:08:51 -04:00
|
|
|
LTH2k ,&hor JCN
|
2021-04-14 15:11:01 -04:00
|
|
|
POP2 POP2
|
|
|
|
( incr ) SWP2 8+ SWP2
|
2021-05-12 15:08:51 -04:00
|
|
|
LTH2k ,&ver JCN
|
2021-04-14 15:11:01 -04:00
|
|
|
POP2 POP2
|
2021-04-10 15:19:38 -04:00
|
|
|
|
|
|
|
RTN
|
|
|
|
|
2021-08-17 22:17:47 -04:00
|
|
|
@cover-pattern ( addr* color -- )
|
2021-02-27 12:39:06 -05:00
|
|
|
|
2021-08-17 22:17:47 -04:00
|
|
|
( load ) .color/byte STZ .Screen/addr DEO2
|
2021-04-23 10:34:03 -04:00
|
|
|
#0000 .Screen/height DEI2
|
|
|
|
&ver
|
|
|
|
( save ) OVR2 .Screen/y DEO2
|
|
|
|
#0000 .Screen/width DEI2
|
|
|
|
&hor
|
|
|
|
( save ) OVR2 .Screen/x DEO2
|
2021-07-31 16:58:33 -04:00
|
|
|
( draw ) .color LDZ .Screen/sprite DEO
|
2021-04-14 15:11:01 -04:00
|
|
|
( incr ) SWP2 8+ SWP2
|
2021-05-12 15:08:51 -04:00
|
|
|
LTH2k ,&hor JCN
|
2021-04-14 15:11:01 -04:00
|
|
|
POP2 POP2
|
|
|
|
( incr ) SWP2 8+ SWP2
|
2021-05-12 15:08:51 -04:00
|
|
|
LTH2k ,&ver JCN
|
2021-04-14 15:11:01 -04:00
|
|
|
POP2 POP2
|
2021-02-27 12:39:06 -05:00
|
|
|
|
2021-03-14 17:26:17 -04:00
|
|
|
RTN
|
2021-02-27 12:39:06 -05:00
|
|
|
|
2021-04-14 15:11:01 -04:00
|
|
|
@checker_icn [ f0f0 f0f0 0f0f 0f0f ]
|
|
|
|
|
2021-04-23 10:34:03 -04:00
|
|
|
@icn1_path [ "projects/pictures/ergo100x0c0.bit 00 ]
|
|
|
|
@icn2_path [ "projects/pictures/dafu80x80.bit 00 ]
|
|
|
|
@chr1_path [ "projects/pictures/zerotwo2020.chr 00 ]
|
|
|
|
@chr2_path [ "projects/pictures/felix0cx0c.chr 00 ]
|
2021-04-10 15:19:38 -04:00
|
|
|
|
2021-04-14 16:08:32 -04:00
|
|
|
@image [ ]
|