- ; we make sure that the filename doesn't contain lowercase letters
- ; we copy the filename we got onto the stack, uppercase it and use this
- ; one to open the iocb
- ; we're using tmp3, ptr4
-
- ; save the original pointer
- sta ptr4
- stx ptr4+1
-
- ; now we need the length of the name
- ldy #0
-loop: lda (ptr4),y
- beq str_end
- cmp #ATEOL ; we also accept Atari EOF char as end of string
- beq str_end
- iny
- bne loop ; not longer than 255 chars (127 real limit)
-toolong:lda #<EINVAL ; file name is too long