Started to add text output functions

[cc65] / libsrc / geos / file / findftypes.s

diff --git a/libsrc/geos/file/findftypes.s b/libsrc/geos/file/findftypes.s
index 66e270c963dad2a28a539baab7163e0ac1c8dfac..6b5b260d417319cbb3e045b0bb9d17e47c28462b 100644 (file)
--- a/libsrc/geos/file/findftypes.s
+++ b/libsrc/geos/file/findftypes.s
@@ -1,28 +1,38 @@
 
 ;
-; Maciej 'YTM/Alliance' Witkowiak
+; Maciej 'YTM/Elysium' Witkowiak
 ;
-; 25.12.99
+; 25.12.99, 30.7.2000
 
 ; char FindFTypes  (char *buffer, char fileType, char fileMax, char *Class);
 
            .export _FindFTypes
-           .import popax, popa
+           .import popax, popa, __oserror
 
            .include "../inc/jumptab.inc"
            .include "../inc/geossym.inc"
+
+.code
        
 _FindFTypes:
        sta r10L
        stx r10H
        jsr popa
        sta r7H
+       sta tmpFileMax
        jsr popa
        sta r7L
        jsr popax
        sta r6L
        stx r6H
        jsr FindFTypes
-       stx errno
-       txa
+       stx __oserror
+; return (fileMax - r7H)
+       lda tmpFileMax
+       sec
+       sbc r7H
        rts
+
+.bss
+
+tmpFileMax:    .res 1