Browse code

Fixed hello example

neauoire authored on 19/02/2021 20:13:35
Showing 2 changed files
... ...
@@ -12,9 +12,9 @@
12 12
 	( print to screen )
13 13
 	#0008 =x #0030 =y #01 =color
14 14
 	,string ,displaygui JSR 
15
-	#0010 =x #0038 =y #12 =color
15
+	#0010 =x #0038 =y #02 =color
16 16
 	,string ,displaygui JSR 
17
-	#0018 =x #0040 =y #23 =color
17
+	#0018 =x #0040 =y #03 =color
18 18
 	,string ,displaygui JSR 
19 19
 	
20 20
 
... ...
@@ -40,18 +40,18 @@ BRK
40 40
 	RTS
41 41
 
42 42
 @printchar
43
-	~color #01 ROT ,getchar JSR ~x ~y ,puticon JSR
43
+	~color ,getchar JSR ~x ~y ,draw-sprite JSR
44 44
 	RTS
45 45
 
46 46
 @getchar
47 47
 	#00 SWP #0008 MUL2 ,SPRITESHEET ADD2
48 48
 	RTS
49 49
 
50
-@puticon
51
-	IOW2 ( y short )
52
-	IOW2 ( x short )
50
+@draw-sprite
51
+	IOW2 ( y byte )
52
+	IOW2 ( x byte )
53 53
 	IOW2 ( sprite address )
54
-	IOW2  ( redraw byte )
54
+	IOW ( layer-color )
55 55
 	RTS
56 56
 
57 57
 |0300 @SPRITESHEET ( first 128 characters of the spectrum-zx font ) 
... ...
@@ -94,5 +94,5 @@ BRK
94 94
 |c000 @FRAME
95 95
 |d000 @ERROR 
96 96
 
97
-|FFF0 [ f2ac 35bb 2b53 ] ( palette )
97
+|FFF0 [ f3f0 f30b f30a ] ( palette )
98 98
 |FFFA .RESET .FRAME .ERROR
99 99
\ No newline at end of file
... ...
@@ -12,7 +12,7 @@
12 12
 	#02 =dev/w ( set dev/write to sprite ) 
13 13
 
14 14
 	#05 =color ( select a default color )
15
-	,brush_large ,brush STR2 ( select a default brush )
15
+	,brush_large =brush ( select a default brush )
16 16
 
17 17
 	,draw-interface JSR 
18 18
 
... ...
@@ -91,5 +91,5 @@ BRK
91 91
 
92 92
 |d000 @ERROR BRK 
93 93
 
94
-|FFF0 [ f2af 35bb 2b5f ] ( palette )
94
+|FFF0 [ f1c3 f12e f12a ] ( palette )
95 95
 |FFFA .RESET .FRAME .ERROR