Dariaceli's Git
Browse code

Inverted controls

neauoire authored on 03/03/2021 00:35:11
Showing 1 changed files
examples/app.pattern.usm
History View file @ a24e231
... ... 
@@ -39,13 +39,13 @@ BRK
39 39 
 	,no-ctrl ~dev/ctrl.buttons #00 EQU JMP? POP2
40 40
41 41 
 		,no-ctrl-up ~dev/ctrl.buttons #10 EQU JMP? POP2
42 
-			~editor.addr #0001 SUB2 =editor.addr
42 
+			~editor.addr #0001 ADD2 =editor.addr
43 43 
 			,draw-window JSR
44 44 
 			,redraw JSR
45 45 
 		@no-ctrl-up
46 46
47 47 
 		,no-ctrl-down ~dev/ctrl.buttons #20 EQU JMP? POP2
48 
-			~editor.addr #0001 ADD2 =editor.addr
48 
+			~editor.addr #0001 SUB2 =editor.addr
49 49 
 			,draw-window JSR
50 50 
 			,redraw JSR
51 51 
 		@no-ctrl-down
... ... 
@@ -68,19 +68,6 @@ BRK
68 68
69 69 
 BRK
70 70
71 
-@draw-label-left ( x y color addr )
72 
-
73 
-	( load ) =label.addr =label.color =dev/sprite.y =dev/sprite.x
74 
-	~label.addr
75 
-	@draw-label-left-loop
76 
-		( draw ) DUP2 LDR #00 SWP #0008 MUL2 ,font ADD2 =dev/sprite.addr ~label.color =dev/sprite.color
77 
-		( incr ) #0001 ADD2
78 
-		( incr ) ~dev/sprite.x #0008 ADD2 =dev/sprite.x
79 
-		DUP2 #0001 ADD2  LDR #00 NEQ ,draw-label-left-loop ROT JMP? POP2
80 
-	POP2
81 
-
82 
-RTS
83 
-
84 71 
 @draw-window
85 72
86 73 
 	#0000 #0000 ~dev/screen.width ~dev/screen.height #03 ~editor.addr ,tile-rect JSR
... ... 
@@ -99,15 +86,6 @@ RTS
99 86
100 87 
 RTS
101 88
102 
-@draw-byte ( x y color addr )
103 
-
104 
-	( load ) =addr =color =dev/sprite.y =dev/sprite.x
105 
-	,font_hex #00 ~addr LDR #f0 AND #04 ROR #08 MUL ADD2 =dev/sprite.addr ~color =dev/sprite.color
106 
-	~dev/sprite.x #0008 ADD2 =dev/sprite.x
107 
-	,font_hex #00 ~addr LDR #0f AND #08 MUL ADD2 =dev/sprite.addr ~color =dev/sprite.color
108 
-
109 
-RTS
110 
-
111 89 
 @redraw
112 90
113 91 
 	~editor.x1 =dev/sprite.x
... ... 
@@ -151,6 +129,28 @@ RTS
151 129
152 130 
 RTS
153 131
132 
+@draw-label-left ( x y color addr )
133 
+
134 
+	( load ) =label.addr =label.color =dev/sprite.y =dev/sprite.x
135 
+	~label.addr
136 
+	@draw-label-left-loop
137 
+		( draw ) DUP2 LDR #00 SWP #0008 MUL2 ,font ADD2 =dev/sprite.addr ~label.color =dev/sprite.color
138 
+		( incr ) #0001 ADD2
139 
+		( incr ) ~dev/sprite.x #0008 ADD2 =dev/sprite.x
140 
+		DUP2 #0001 ADD2  LDR #00 NEQ ,draw-label-left-loop ROT JMP? POP2
141 
+	POP2
142 
+
143 
+RTS
144 
+
145 
+@draw-byte ( x y color addr )
146 
+
147 
+	( load ) =addr =color =dev/sprite.y =dev/sprite.x
148 
+	,font_hex #00 ~addr LDR #f0 AND #04 ROR #08 MUL ADD2 =dev/sprite.addr ~color =dev/sprite.color
149 
+	~dev/sprite.x #0008 ADD2 =dev/sprite.x
150 
+	,font_hex #00 ~addr LDR #0f AND #08 MUL ADD2 =dev/sprite.addr ~color =dev/sprite.color
151 
+
152 
+RTS
153 
+
154 154 
 @fill-rect ( x1 y1 x2 y2 color )
155 155
156 156 
 	( load ) =color =rect.y2 =rect.x2 DUP2 =dev/screen.y =rect.y1 DUP2 =dev/screen.x =rect.x1