...
|
...
|
@@ -29,11 +29,11 @@
|
29
|
29
|
|0100 ;System { vector 2 pad 6 r 2 g 2 b 2 }
|
30
|
30
|
|0110 ;Console { pad 8 char 1 byte 1 short 2 }
|
31
|
31
|
|0120 ;Screen { vector 2 width 2 height 2 pad 2 x 2 y 2 addr 2 color 1 }
|
|
32
|
+|0130 ;Audio { wave 2 envelope 2 pad 4 volume 1 pitch 1 play 1 value 2 delay 2 finish 1 }
|
32
|
33
|
|0140 ;Controller { vector 2 button 1 }
|
33
|
34
|
|0150 ;Keys { vector 2 key 1 }
|
34
|
35
|
|0160 ;Mouse { vector 2 x 2 y 2 state 1 chord 1 }
|
35
|
36
|
|0170 ;File { pad 8 name 2 length 2 load 2 save 2 }
|
36
|
|
-|0130 ;Audio { wave 2 envelope 2 pad 4 volume 1 pitch 1 play 1 value 2 delay 2 finish 1 }
|
37
|
37
|
|
38
|
38
|
( vectors )
|
39
|
39
|
|
...
|
...
|
@@ -278,6 +278,7 @@ RTN
|
278
|
278
|
$loop
|
279
|
279
|
OVR2 SWP POP #02 DIV #0f AND #00 NEQ ^$skip JNZ
|
280
|
280
|
OVR2 ~trkframe.x1 ADD2 =Screen.x
|
|
281
|
+ ~trkframe.y1 #0010 SUB2 =Screen.y
|
281
|
282
|
#22 =Screen.color
|
282
|
283
|
~Screen.addr 8+ =Screen.addr
|
283
|
284
|
OVR2 ~trkframe.x1 ADD2 ~trkframe.y1 ++ ~trkframe.y2 #01 ,line-vertical-dotted JSR2
|