1 files changed, 6 insertions(+), 6 deletions(-)

M src/ornithologics.tal

@@ 157,25 157,25 @@ JMP2r
 
 @cardinal ( list* -- list* )
 
-	LDA2k STH2 ;pop JSR2
+	DUP2 ;pop JSR2
 	;swap JSR2
-	STH2r ;cons JSR2
+	OVR2 INC2 INC2 STA2
 
 JMP2r
 
 @kestrel ( list* -- list* )
 
-	LDA2k STH2 ;pop JSR2
+	DUP2 ;pop JSR2
 	;pop JSR2
-	STH2r ;cons JSR2
+	OVR2 INC2 INC2 STA2
 
 JMP2r
 
 @warbler ( list* -- list* )
 
-	LDA2k STH2 ;pop JSR2
+	DUP2 ;pop JSR2
 	;dup JSR2
-	STH2r ;cons JSR2
+	OVR2 INC2 INC2 STA2
 
 JMP2r