--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/lib/alib/fputy.a	Tue Mar 30 02:44:42 2010 +0000
@@ -0,0 +1,27 @@
+***************************************
+
+* Subroutine to save word in Y to file
+
+* OTHER MODULES NEEDED: none
+
+* ENTRY: A=path
+*        Y=value to save
+
+* EXIT:  CC carry set if error (from I$Write)
+*        B  error code if any
+
+ nam Save word to file
+ ttl Assembler Library Module
+
+
+ psect FPUTY,0,0,0,0,0
+
+FPUTY:
+ pshs x,y
+ ldy #2 number of chars to write
+ leax 2,s point X at value
+ os9 I$Write
+ puls x,y,pc
+
+ endsect
+