FILENAME_MAX    = 12+1
 .elseif .defined(__LUNIX__)
 FILENAME_MAX    = 80+1
+.elseif .defined(__TELESTRAT__)
+FILENAME_MAX    = 50+1
 .else
 FILENAME_MAX    = 16+1
 .endif
 
 
 FNAME_LEN       = 11            ; maximum length of file-name
 
-FILENAME_MAX    = 100
+FILENAME_MAX    = 200
 
 ; ---------------------------------------------------------------------------
 ; Zero page
 SCRY             := $224
 ADSCRL           := $218
 ADSCRH           := $21C
+IRQVECTOR        := $2FA
 
 
 ; ---------------------------------------------------------------------------
 
 #  define FILENAME_MAX  (12+1)
 #elif defined(__LUNIX__)
 #  define FILENAME_MAX  (80+1)
+#elif defined(__TELESTRAT__)
+#  define FILENAME_MAX  (50+1)
 #else
 #  define FILENAME_MAX  (16+1)
 #endif
 
 ;
-; Oliver Schmidt, 18.04.2005
+; Jede (jede@oric.org) 24.09.2017
 ;
 
         .export         initcwd
 
 
 initcwd:
+       
         ldx     #PWD_PTR
         BRK_TELEMON XVARS
-        sta     tmp1
-        sty     tmp1+1
-
+        
+        sta     ptr1
+        sty     ptr1+1
+        
         ldy     #$00
+        
 loop:        
-        lda     (tmp1),y
+        lda     (ptr1),y
         beq     done
         sta     __cwd,y
         iny