Add int_FAC1

strings/A590F004

@@ -0,0 +1,3 @@
+LDA $90 + BEQ $04
+
+Check well known kernal i/o status variable in zero page

strings/A9BCA0B920

@@ -0,0 +1,3 @@
+LDA #$BC + LDY #$B9 + JSR
+
+Load well known address of float constant 1.0 into Y:A and make call.

strings/A9BCA0B92050B8A9

@@ -0,0 +1,3 @@
+LDA #$BC + LDY #$B9 + JSR $B850 + LDA
+
+Load well known address of float constant 1.0 and call subtract float.

strings/C8B17A85

@@ -0,0 +1,3 @@
+INY + BCS $7A + STA
+
+loop fragment

strings/FF856660

@@ -0,0 +1,3 @@
+$FF + STA $66 + RTS
+
+Fragment of storing a negative value to FAC1 sign, which is a well knows address in the zero page.