[<<][staapl][>>][..]
Sun Jul 20 21:23:28 CEST 2008

pattern matching guards

next problem:

bang:
	0401 6EEC [dup]
	0402 52EF [movf INDF0 1 0]
	0403 52EF [movf INDF0 1 0]
	0404 52EF [movf INDF0 1 0]
	0405 52EF [movf INDF0 1 0]
	0406 52EF [movf INDF0 1 0]
	0407 52EF [movf INDF0 1 0]
	0408 52EF [movf INDF0 1 0]
	0409 50E9 [movf 4073 0 0]
	040A 6E18 [movwf other-task 0]
	040B 0E10 [movlw 16]
	040C 6EFC [movwf 4092 0]
	040D 0EF0 [movlw 240]
	040E 6EE1 [movwf 4065 0]
	040F 0EE0 [movlw 224]
	0410 6EE9 [movwf 4073 0]
	0411 52EF [movf INDF0 1 0]
	0412 501A [movf (sound 1 +) 0 0]
	0413 D50E [jsr 1 execute/b]

the first part comes from suspend, which properly expands using
'macro>

box> (macro> suspend)
[save]
[movf 4085 0 0]
[save]
[movf 4086 0 0]
[save]
[movf 4087 0 0]
[save]
[movf 4057 0 0]
[save]
[movf 4058 0 0]
[save]
[movf 4092 0 0]
[save]
[movf 4065 0 0]
[save]
[movf 4073 0 0]

It's in the binary .hex code too. Maybe a bug in postprocessing ?

It's this one:

   (([,op POSTDEC0 0 0] [save] opti-save)  ([,op INDF0 1 0]))  ;; NEED SYNTAX

hmm.. how to match to the value of a parameter.

ok, fixed by using a general curried function creator



[Reply][About]
[<<][staapl][>>][..]