2 ; Ullrich von Bassewitz, 22.06.2002
4 ; Original C code by Marc 'BlackJack' Rintsch, 18.03.2001
6 ; unsigned char __fastcall__ cbm_open (unsigned char lfn,
7 ; unsigned char device,
8 ; unsigned char sec_addr,
10 ; /* Opens a file. Works just like the BASIC command.
11 ; * Returns 0 if opening was successful, otherwise an errorcode (see table
15 ; cbm_k_setlfs(lfn, device, sec_addr);
17 ; return _oserror = cbm_k_open();
23 .import _cbm_k_setlfs, _cbm_k_setnam, _cbm_k_open
31 jsr popa ; Get sec_addr
32 jsr _cbm_k_setlfs ; Call SETLFS, pop all args