a:ser1 &
+
+ This starts the slip client from drive c: (usually Commodore serial
+ IEC device #8, the floppy disk), piping the STDIO
+ to the C64 serial line ser1 (in standard C64 OS/A65 it's Daniel
+ Dallmanns 9600 baud interface). STDERR is sent to the 4th virtual
+ console (first command line parameter). The second parameter
+ is the drive to use as WWW server file source. The third parameter
+ is the program to start at a remote login on the telnet port.
+ The ampersand makes the slip program running in the background.
+ The slip program receives and sends its SLIP data via STDIO.
+ STDERR prints (currently a horrible lot of) debugging output.
+
+ You can also start the slipd program directly from the C64
+ ROM, see c64rom.a65
+
+ - If enabled, the slip client registers a filesystem with one drive.
+ On a standard C64 OS/A65 system, it will be drive g:.
+ If a connection to the server cannot be found, or breaks
+ later, the fstcp tries to reconnect in periodic intervals.
+
+ - You should now be able to ping the C64, and do telnets to the
+ echo, discard and chargen ports.
+
+ - when telneting to the http port (80)
+ (When the WWW server is enabled in oaslip/main.a65), you can issue
+ the "GET" command, followed by an URL on the OS/A65 computer.
+ You then get the specified file.
+ You can also point your Web browser (netscape) to the C64
+ with the URL "http://192.168.0.64/index.html". Replace the IP
+ number with the one you have chosen for your system.
+
+ - If fstcp is enabled, it should now also be possible to show the
+ directory of drive g:, and to read files from or write files to
+ drive g: This drive will be the contents of the directory given to
+ the fstcp server, i.e. on your Unix machine!
+
+
+7) (Known) Bugs
+
+ - The WWW server only understands "GET filename" requests. No "http://"
+ or host prefixes are allowed. At least with Netscape it seems to work.
+
+ - The implementation is bloated, and horribly slow.
+
+ - Tons of others, I'm sure
+
+ - lib6502 binding seems to bug.
diff --git a/dump/oa-2.0.9/doc/TODO b/dump/oa-2.0.9/doc/TODO
new file mode 100644
index 0000000..5e37618
--- /dev/null
+++ b/dump/oa-2.0.9/doc/TODO
@@ -0,0 +1,33 @@
+
+TODO-List for 2.1.0
+-------------------
+
+- FSIBM:
+
+ + ignore VFAT long filenames (or handle them... :-)
+ + I had problems copying file from HD to IEC? Stream error feature?
+ + implement OSA2 stream error feature
+ + check filesystem structure (esp. on FAT16)
+ (bytes free count differs from what is expected)
+
+- ramtest:
+
+ + make a small program to be able to test RAM on non-standard
+ places and make it available to the kernel.
+
+- lib6502:
+
+ + memory handling should use SBRK call to incerease memory size
+ if necessary
+
+- FSDEV:
+
+ + fix _AS_INIT handling (release SEM_SENDBUF etc appropriately)
+ + use alternate ROM pages as file source (like in init)
+ + allow reading of binary files from ROM
+
+- FSIEC:
+
+ + fix _AS_INIT handling (release SEM_SENDBUF etc appropriately)
+ + fix protocol bugs when talking to a PET on IEEE488
+
diff --git a/dump/oa-2.0.9/doc/announce-2.0.0-pre1 b/dump/oa-2.0.9/doc/announce-2.0.0-pre1
new file mode 100644
index 0000000..d63ab4f
--- /dev/null
+++ b/dump/oa-2.0.9/doc/announce-2.0.0-pre1
@@ -0,0 +1,58 @@
+
+This is the release note for the GeckOS/A65 operating system for
+6502 computers, version 2.0.0. This is a new major release
+as the kernel has been partly rewritten, a complete new lib6502
+implementation has been done and the o65 relocatable fileformat
+is now supported, as well as multithreading.
+
+Also a sophisticated "slipd" daemon supports internet connectivity
+by using a SLIP connection, with a telnetd, a WWW server and related
+programs. The lib6502 network connectivity is supported, although
+this seems to be the only buggy part left...
+
+What's new:
+
+ - major kernel rewrite:
+ improved speed, now supports threads and task priorites.
+ Signals are now unix-like (they even can interrupt blocking
+ system calls :-)
+
+ - much improved porting ability:
+ _all_ system dependend stuff has been moved to a directory
+ in an "arch" subdirectory. Currently there are
+ "arch/csa65", "arch/gecko" and "arch/c64" subdirectories
+ (waiting for more contributions, hint, hint!)
+
+ - better kernel doc in "doc/kernel.html"
+
+ - lib6502 implementation
+
+ - dynamic memory management with lib6502
+
+ - relocatable fileformat
+
+ - telnet in and out from OS/A65
+
+ - stable WWW server (built into slipd daemon)
+
+What's still to do:
+
+ - Tons of bugfixes - but in general quite stable already.
+
+What do I want from you:
+
+ - Comments: How do you like it?
+
+ - new lib6502 applications!
+
+ - new ports!
+ If you want to port the kernel to a new system without
+ real memory management, it's almost only copying two files,
+ editing one of them and then writing the device drivers.
+ Taking the existing C64 stuff, that shouldn't be difficult.
+
+Any comments welcome!
+
+Thanks!
+Andre
+
diff --git a/dump/oa-2.0.9/doc/basic.html b/dump/oa-2.0.9/doc/basic.html
new file mode 100644
index 0000000..a2e1392
--- /dev/null
+++ b/dump/oa-2.0.9/doc/basic.html
@@ -0,0 +1,82 @@
+
+
+ OS/A65 BASIC interpreter
+
+
+Warning!
+
+The BASIC interpreter is derived from copyrighted code!
+So the basic interpreter is only an
+educational example of how to port other programs from the C64
+or other PET computers to the OS/A65 operating system.
+Do not try to assemble it or run it!
+
+
+The basic interpreter is taken from the C64. I de-assembled it into
+normal source code and patched it to work with OS/A65 and multitasking.
+Several commands are changed and others, most notably the BASIC V4
+commands, are added.
+changed commands
+
+- OPEN fnr, drv, mode, name
+'drv' has changed from the commodore specific device id to the OS/A
+drive number. 'mode' then is the command to open a file, i.e.
+FS_xxx.
+ - LOAD name, drv
+
- SAVE name, drv
+'drv' has changed to the OS/A drive number
+ - LIST name, drv [,a-b]
+You can now list a program directly to a file. a and b are filenumbers
+and optional (as usual with list)
+ - SYS adr
+'adr' is checked for some C64 specific addresses and changes them
+to the routines where they are now. Detected addresses are
+$ff90, $ff99, $ff9c, $ffb7-$ffe7, $fff0, $fff3.
+
+new commands
+Some parameter can be left off, I was just to lazy to write all the brackets...
+
+- DIR [mask,] drv
+print directory of a drive
+ - MKDIR name, drv
+creates new subdirectory
+ - RMDIR name, drv
+remove (empty) subdirectory
+ - SCRATCH name, drv
+remove file
+ - RENAME name1 TO name2, drv
+rename a file 'name1' to 'name2'.
+ - DELETE a-b
+remove BASIC lines a-b; syntax is the same as with list
+ - RENUMBER start, step, a-b
+change basic line numbers of the lines a-b (syntax as with list) to
+start, start+step, start+2*step,... All GOSUB and GOTO statements are
+changed appropriately in the whole program.
+ - RENEW
+Gets a BASIC program back that has been deleted with NEW. It only works if
+the program has not been overwritten by e.g. setting a new variable in
+memory.
+ - DUMP
+prints all variables
+ - FIND text
+list the lines where 'text' occurs.
+ - HIMEM adr
+sets a new end of basic ram address and executes a CLR.
+ - LOMEM adr
+sets a new basic program start address and executes a NEW.
+ - QUIT
+In contrast to the original C64 Basic interpreter this one can be left...
+ - ENTER name, drv
+redirects STDIN to the given file, so that e.g. a complete basic program
+can be read in from an ASCII (not tokenized) file.
+ - CALL adr, a, x, y, c, ra, rx, ry, rc
+Calls a machine language routine at adr, with a,x,y,c in accumulator,
+x- and y-register and in the status register. Return values are put into
+ra, rx, ry, rc.
+ - SPUT adr, string
+Write a string directly into memory at adr, end with nullbyte.
+ - SGET adr, len, stringvar
+reads len bytes from memory at adr and saves it in string variable.
+
+
+
diff --git a/dump/oa-2.0.9/doc/build.html b/dump/oa-2.0.9/doc/build.html
new file mode 100644
index 0000000..5f4f29f
--- /dev/null
+++ b/dump/oa-2.0.9/doc/build.html
@@ -0,0 +1,101 @@
+
+ OS/A65 Building Procedure
+
+ OS/A65 Building Procedure
+
(c) 1989-98 Andre Fachat
+
+
+Building the object files for use on an OS/A65 machine should really
+be only a 'make', as long as my cross assembler
+xa
+is in the path.
+If there weren't these many options one can change.
+
+The options below can be set in the appropriate files. But if the
+programs are assembled as part of a ROM, then "ROM" is defined and
+the 'local' options are ignored and overwritten by the ones defined
+in stdrom/rom.a65 or c64rom/c64rom.a65. These two files are
+the files to build a rom for a CS/A computer with MMU or the C64
+respectively.
+
+global options, to be set in stdrom/rom.a65 or c64rom/c64rom.a65:
+
+ROM mandatory for a rom build. All local options are ignored.
+
+ROMSTART Where in CPU memory (with MMU with the upper 4 bits set
+ to zero, i.e. $00000-$0ffff) starts the ROM.
+
+
+
+C64 specific options, to be set in arch/c64//c64rom.a65:
+
+CLEARMEM if defined, the memory is set to the value CLEARMEM is defined
+ to when booting.
+C64NEEDCIA1 if defined, disables reading the CIA1 icr in the kernel.
+ Therefore it has to be assured that a device reads this
+ register to clear the interrupt line again.
+ Undefine this for use with the fast RS232 driver.
+
+C64_BGND_COL
+C64_TEXT_COL
+C64_BORDER_COL colors to use
+
+C64SWITCH The terminal switch key, 61= C= key, 4= F1
+
+C64NMIRESET makes the Restore key a RESET key. Doesn't work with fast
+ serial driver!
+STACKCOPY If defined in non-MMU systems, save stack area somewhere else
+ when doing a task switch. If a task switch is done, the stack
+ is copied back. If not defined, divide the 6502 stack
+ from $100 to $1ff into pieces, one for each task and one
+ for the system. It's faster without, but with this option
+ there is much more stack space per task and more tasks
+ are available.
+
+
+
+kernel options in kernel/kernel.a65:
+
+ROM with ROM all options are set globally or somewhere else
+ROMTEST with ROMTEST the MMU is not loaded, but the contents of
+ the MMU registers secured with GETBLK. Also memory is
+ not tested (to test a new system ROM)
+CMOSCPU for (Rockwell) CMOS CPU
+NOMMU system for a computer without MMU
+NOSYSPORT system has no SYSPORT (at $efe0)
+NOSINPORT system has no SYSPORT, but LED is driven, if a board is
+ plugged in
+NOENVIRQ to build system where tasks cannot have an own irq routine
+BATMEM main memory is not erased at memory test (for battery buffered
+ RAM)
+NOMIRRORMEM if the memory chip is definitely not mirrored (i.e. no
+ unconnected CPU address lines), one can
+ disable the test for this.
+CLK2MHZ if NOSYSPORT or NOSINPORT, the CPU clock has to be set here
+NMIDEV enables NMI routine (without MMU only)
+
+
+shell options in oash/sh.a65:
+
+SHORTMON no assembler/disassembler in monitor
+NOSYSFKT no file/system calls in monitor
+NOMON no monitor
+NOSH no shell
+NOPRG without PRG header
+SHORTLINE use 40 columns instead of 80
+
+
+fsiec options in oafs/fsiec.a65
+
+INVERT parallel IEEE488 port output lines are inverted
+PARALLEL do it for IEEE488 interface, not serial interface
+ (works for CS/A computer and C64). NOLOOP has then
+ to be defined also.
+NOCMD do not interpret other fs commands than FS_OPEN_*
+NOFS do not register as fs - listen on bus only
+NOLOOP do not listen on bus - register as fs only
+STDTST include STDIO lib if needed.
+NOPRG without PRG header
+
+
+
diff --git a/dump/oa-2.0.9/doc/cbm8x96.html b/dump/oa-2.0.9/doc/cbm8x96.html
new file mode 100644
index 0000000..cec1b9e
--- /dev/null
+++ b/dump/oa-2.0.9/doc/cbm8x96.html
@@ -0,0 +1,103 @@
+
+ OS/A65 CBM 8x96 Notes
+
+ OS/A65 CBM PET Notes
+ (c) 1998 Andre Fachat
+
+OS/A65 CBM PET Version 2.0
+CBM 8x96
+
+The Commodore PET 8096 and 8296 (also known as CBM 8096 and CBM 9296) computers
+have at least 96 kByte of RAM and can remap the ROM area with RAM. This
+makes them a nice base for OS/A65. Although they don't have many I/O devices
+at least they provide an 80 columns screen.
+
+Memory Map
+In the CBM 8x96 one can remap the upper 32k of CPU address space by
+writing certain values to $fff0. The blocks $8000-$bfff and
+$c000-$ffff can be remapped to two different banks of RAM
+each. The screen memory ($8000-$9000) and I/O
+($e800-$efff) can be set to `peek-through' separately.
+In the OS/A65 memory configuration the lower 32k and one bank of the upper
+32k of RAM are used for the OS image (the `ROM') and the lib6502 managed
+application memory. The screen memory and I/O area are not accessible for
+lib6502 applications. The second upper 32k RAM bank is used (with screen
+and I/O mapped through) as system memory area, together with some RAM
+from $300-$b00. Also there are the mirrors of the other
+virtual console screen areas - when switching screens they are copied around.
+
+Addr RAM 0 RAM 1
+$ffff ----------------------
+$fff0 configuration register
+$ff00 ------- -------
+ system
+ | memory
+$f000 -------
+ | I/O
+$e800 -------
+ lib6502
+ application
+ memory
+$b000 -------
+ | virtual
+ screens
+$9000 | -------
+ screen
+$8000 | -------
+
+$6800 -------
+ OS/A65 |
+ `ROM'
+ image |
+$0b00 ------
+ system no
+ RAM memory!
+$0200 ------
+ Stack |
+$0100 ------
+ Zerop.
+$0000 ----------------------
+
+ROM image build
+Building the 8x96 ROM image is simple. Just go to the arch/cbm8x96/boot
+directory and type "make". This should build all files.
+"make osa.d64" should make a d64 VC1541 disk image with all necessary files.
+You have to have my new XA version in the path, though.
+
+To customize the ROM, change edit rom.a65 in arch/cbm8x96. You can gain some
+memory when you remove the shell/monitor from the ROM image.
+(You could replace it with the lib6502 monitor "mon" to be loaded like
+"lsh".)
+When running "make" then the command "file65" should print the addresses
+used for the different segments. They must not overlap. In addition the
+data segment must be below $8000, as it is needed by lib6502 that can
+be called from both RAM banks.
+To move the lib6502 RAM area, edit the values for Memstart, Memend
+and Zerostart at the end of rom.a65.
+To move the segments, edit the Makefile and change the addresses for the
+segments in the XA calls. The text segment address must be two below
+the actual start as it also counts the two byte starting address used
+for loading. In addition you have to edit the value for the definition
+of ROMSTART in rom.a65.
+
+Boot
+Put the files "loader", "lsh" and "rom" on a disk accessible by the
+PET 8x96. load "loader" into BASIC memory and start it (probably edit
+it for the right load device number). This boots OS/A65.
+
+Any 80 columns PET with 32k
+Build a version for this computer is a bit more difficult because of
+the restricted memory. I have now tried to build such a version.
+The device does not (yet) check for 40 columns but can now use only 80 cols.
+
+Memory Map
+The memory map is straightforward. First zeropage, stack, then
+system memory (all of it), then OS image, then lib6502 memory. At the end
+($7800) a second virtual screen, and at $8000 the normal screen area.
+At $90-$93 in the zeropage the PET ROM IRQ and BRK vectors are located
+and have to be used.
+
+Build 'n Boot
+Basically the same applies as for the 8x96.
+
+
diff --git a/dump/oa-2.0.9/doc/devices.html b/dump/oa-2.0.9/doc/devices.html
new file mode 100644
index 0000000..7afb58b
--- /dev/null
+++ b/dump/oa-2.0.9/doc/devices.html
@@ -0,0 +1,81 @@
+
+ OS/A65 Device Drivers
+
+ OS/A65 Device Drivers
+
(c) 1989-96 Andre Fachat
+
+
+This file gives a description of the so far implemented device drivers
+for OS/A65.
+
+
video Device
+The video device incorporates not only one but four devices, video1-video4
+(with 2MHz, only 2 devices are working).
+As hardware it needs the video card and the keyboard card with a CBM 3032
+keyboard attached to it. If available,
+the piezo beeper on the IEEE488 card is used to generate bell signals.
+
The video card has one video port only, so the video is shared
+between the four possible video devices. The "@" key is used to switch between
+the different terminals. As there is no way to send some kind of ioctl
+message along a stream, this key has some more functions:
+with Control (RVS/OFF key on CBM 3032 keyboard), the key closes the stream
+from the sender side, thus signaling an EOF. With control and shift,
+the the device is switched between the two modes.
+
+- indirect mode: keyboard events are printed on the
+screen only, not sent to the stream. If a Return occurs, the actual
+line is sent to the stream. This is default.
+
- direct mode: all keyboard events are directly
+passed to the stream.
+
+Supported terminal control codes are Bell, Backspace, Carriage Return,
+Line Feed and Form Feed.
+par Device
+This device handles the (simple) centronics port on the shugart bus
+board.
+nuldev Device
+This device reads a given stream until end, i.e. EOF and then closes
+the stream. Like /dev/null for writing. You cannot read from it. Only
+a certain number of streams can be handled before an error is returned
+on open.
+spooler Device
+This is a kind of serializer. You can copy one file after the other
+to this device, even if the first files are not yet through. When copying
+the output of the spooler to another file, e.g. the spooler
+device, they appear in the same order as copied into and intact, i.e.
+the files are not mixed.
+ser Device
+Ser stands for serial device and that's what it's doing. It handles the
+two serial device ACIAs on the BIOS and on the keyboard board of the CS/A65
+computer. There are
+some watch outs, though. From the serial device, only RTS/CTS are handled.
+A low on an incoming /RTS stops sending. If the stream to write the data
+to is above the high water mark (3/4 fifo size), then /CTS is set low.
+After the stream going below the low water mark (1/4 fifo size), /CTS
+is set high again.
+With DC_SPEED, the baud rate of the device can be set:
+
+parameter (y) speed (baud)
+-------------------------------
+ 1 50
+ 2 75
+ 3 109.92
+ 4 134.58
+ 5 150
+ 6 300
+ 7 600
+ 8 1200
+ 9 1800
+ 10 2400
+ 11 3600
+ 12 4800
+ 13 7200
+ 14 9600
+ 15 19200
+
+With version 1.3.10 we now also have driver for an UART 16550A, with 16
+byte builtin FIFO (oa1ds3.a65). There also is a RS232 driver for the
+fast RS232 interface for the C64 by Daniel Dallmann, as
+described on his homepage or in the comp.sys.cbm FAQ.
+
+
diff --git a/dump/oa-2.0.9/doc/embedded.html b/dump/oa-2.0.9/doc/embedded.html
new file mode 100644
index 0000000..0bc364e
--- /dev/null
+++ b/dump/oa-2.0.9/doc/embedded.html
@@ -0,0 +1,42 @@
+
+ OS/A65 Embedded Application Notes
+
+ OS/A65 Embedded Application Notes
+ (c) 1989-98 Andre Fachat
+
+OS/A65 Embedded Version 2.0
+Introduction
+
+Embedded applications normally don't have the amount of RAM and ROM
+that a "normal" (whatever this means) system has. Therefore I have tried
+to make some parts of the kernel removable, allowing for a much smaller
+kernel to fit into embedded applications.
+
+This way the more interesting features are still available, like
+multithreading, signals and the device code. Some of the more sophisticated
+kernel features can be removed however. For how to do this see
+the config section of the kernel
+description. The application can be tested on a full-featured
+system while the embedded kernel provides compatibility where necessary.
+
+Parts of the kernel that can be removed are
+
+- streams
+
- memory management
+
- file manager
+
- send/receive
+
- semaphores
+
+
+This shortens the kernel to almost 2k in size.
+Also the used amount of RAM is $bc = 188 byte normal RAM,
+plus $e = 14 byte zeropage (not counting the environment, task and
+thread-save 6 bytes from addresses 2-8), also not counting
+the possible use of PCBUF by fork and devcmd.
+1k RAM total should now be sufficient for simple applications.
+
+Using the PCBUF without locking with a semaphore should be handled with
+care, however.
+
+
+
diff --git a/dump/oa-2.0.9/doc/fileformat.html b/dump/oa-2.0.9/doc/fileformat.html
new file mode 100644
index 0000000..eaccfb2
--- /dev/null
+++ b/dump/oa-2.0.9/doc/fileformat.html
@@ -0,0 +1,584 @@
+
+ 6502 binary relocation format
+
+
+ 6502 binary relocation format
+ V1.2 as of 26jan1998
+ (c) Andr� Fachat (a.fachat@physik.tu-chemnitz.de)
+
+ Changes from V1.1
+
+The order for saving the undefined reference and the low byte of a
+high byte relocation entry has changed. This makes the OS/A65 lib6502
+implementation easier. How many other people use this format anyway...?
+
+
+
+
0) Preface
+
+With some new 6502/C64/C128 operating systems comes the need for a new
+binary format. In multitasking operating systems like Lunix, SMOS, or
+OS/A65, a binary file cannot be loaded to a fixed location that might
+already be used by another program. Therefore it must be possible to
+relocate the program to an arbitrary address at least at load time.
+In addition to that, more specific information might be stored in a
+binary executable file, like interrupt vectors for example.
+
+This text gives a good solution to this problem for the 6502 CPU and an
+assembler source format to use this format in a general manner. The file
+format can even be used as an object file format, i.e. a format a linker
+can use as an input file. It is also usable as a 65816 file format.
+Instead of zeropage addressing modes, the 65816 has direct addressing
+modes, that add the contents of the direct register to the zeropage
+address in the opcode.
+
+
+
1) 6502/65816 specifics
+
+The 6502 has the special feature of a 'zeropage', i.e. a very limited
+memory address range used for special addressing modes. So the format
+should not only provide a means to relocate absolute addresses but also
+zeropage addresses. The 65816 replaces zeropage addressing with direct
+addressing modes.
+
+The stack space is also very limited. A binary format has to provide a
+measure of how much stack space is needed for the application.
+
+Such limits should be defined as 2 byte values, even if the 6502 only has
+a range of 8 address bits for zeropage and stack. But the 65816 behaves
+differently, it has a 16 bit stack pointer for example. For further
+expandability, a 32 bit format should be provided, although the 16 bit
+format suffices for the 65816 already.
+
+Another problem is, that an address can be 'split', i.e. you can just use
+the high byte or the low byte separately in an opcode. This gives need
+to a special relocation table format, that can cope with half-address
+references. The 65816 can even have three byte addresses, i.e. address
+in a segment and segment number.
+
+
+
2) binary format
+
+ 2.1) General
+
+The file differs from the known Commodore file formats, in that a lot
+more information is stored in the file. First the data is structured
+in separate segments to allow different handling of text (program code),
+data (like tables) and bss (uninitialized data).
+
+Also tables are included to allow late binding, i.e. linking the
+file with other files at load time, and relocation, i.e. executing
+the file at different addresses in 6502 address space.
+
+
2.2) Segments
+
+As already used in other formats, the assembler uses three different
+segment types, i.e. text (the actual program code), data (initialized
+variables), and bss (uninitialized variables).
+To have these different segments seems to be 'overdesigned', but they
+actually make memory handling easier in more complex operating systems
+on systems with virtual addresses (OS/A65, for example).
+
+The text segment is defined to be read-only memory. This doesn't allow
+self-modifying code in this segment, but allows memory sharing in virtual
+memory architectures. The data segment actually is like the text segment,
+only it is allocated writable. This segment might not be shared between
+different processes. The contents of these two segments are loaded from
+the file. The bss segment is uninitialized data, i.e. upon program start,
+it is not defined - and not loaded from the file. This area is read-write
+and can be used during program execution. It is also not shared between
+processes. In addition to these segments, the 6502 format also includes a
+zeropage segment type, to allow zeropage variables to be relocated. This
+zeropage segment is like a bss segment, in that only the length, but
+not the data is saved. For the 65816 the zeropage segment changes its
+meaning to a bank zero segment.
+
+The different segments hold different type of data and can be located
+anywhere in memory (except zero segment, which has to be in the zeropage
+resp. bank zero). The program must therefore not assume anything about
+the relative addresses between different segments.
+
+
2.3) Relocation
+
+In general, there are three ways to handle the relocation problem so far:
+
+- Tables: have a relocation table for a text segment
+ if the relocation table is put in front of code
+ you have to save the table in a side-storage
+ if table is behind, you still cannot relocate 'on the fly'.
+
+- Deassembling: go through the code, deassemble it and change all absolute
+ addresses. Problem: needs to know or have hints about where some
+ data is in the code.
+
+- Relocation info in the code: here each address is preceeded with an
+ 'escape' code and is relocated when loading. But this disallows block
+ oriented transfer from storage media to memory.
+
+This binary format uses the first method, with the table after the
+code/data. This way block oriented transfer for the text/data segment can
+be used. And while reading the relocation tables bytewise, the relocation
+can be done without the need to save the table somewhere.
+
+
2.4) External References & Exported Globals
+
+As this file format should not only be used as an executable format, but
+also as object file format, it must provide a way to define references
+- references exported from this object and labels referenced in this
+object. The external references list (also called 'undefined list') lists
+the addresses where labels not defined in this object are referenced.
+The exported globals list lists the addresses that are available for
+other objects. The labels are named by null-terminated ASCII strings.
+
+Even an executable file can have non-empty globals and externals lists,
+but only if the operating system allows this. In this case, so called
+'late binding' is used to link the object with some global libraries
+at link time.
+
+
2.5) File extension
+
+The proposed standard extension for the described format is ".o65" when
+used as an object file.
+
+
2.6) Format description
+
+The binary format is the following:
+
+ (
+ header
+
+ text segment
+
+ data segment
+
+ external references list
+
+ relocation table for text segment
+
+ relocation table for data segment
+
+ exported globals list
+ )
+
+The description of the parts follows:
+
+
2.6.1) Header
+
+The header contains the minimum needed data in a fixed struct.
+The rest of the necessary information is put into the header options.
+[Note: .word is a 16 bit value, low byte first, .byt is a simple byte.
+.long is a 32 bit value, low byte first. .size is a 16 or 32 bit
+value according to .word and .long, depending on the size bit in the
+mode field ]
+
+This is the fixed struct:
+
+ (
+ .byt $01,$00 ; non-C64 marker
+
+ .asc "o65" ; o65 MAGIC!
+ .byt 0 ; version
+
+ .word mode ; mode word
+
+ .size tbase ; address to which text is assembled to
+ ; originally
+ .size tlen ; length of text segment
+ .size dbase ; originating address for data segment
+ .size dlen ; length of data segment
+ .size bbase ; originating address for bss segment
+ .size blen ; length of bss segment
+ .size zbase ; originating address for zero segment
+ .size zlen ; length of zero segment
+ .size stack ; minimum needed stack size, 0= not known.
+ ; the OS should add reasonable values for
+ ; interrupt handling before allocating
+ ; stack space
+ )
+
+The mode word currently has these defined bits:
+
+ mode.15 : CPU 0= 6502 1= 65816
+ mode.14 : reloc 0= bytewise... 1= page(256byte)wise relocation
+ allowed
+ mode.13 : size 0= size=16 bit, 1= size=32 bit
+ mode.12 : obj 0= executable 1= object file
+
+ mode.0-1: align 0= byte align,
+ 1= word (i.e. 2 byte) align
+ 2= long (4 byte) align
+ 3= block (256 byte) align
+
+The CPU bit tells the loader for which CPU the file was made. This has
+implications on the zero segment, for example. Also a system can check
+if the program will run at all (on a 6502 that is).
+The reloc bit defines if an object file can be relocated bytewise,
+or if it must be page-aligned. A page has 256 bytes. The restriction to
+pagewise relocation simplifies the relocation table and also allows
+simpler compilers/assemblers.
+The size bit determines the size of the segment base address and length
+entries. Currently the 16 bit size (size bit = 0) works for 6502 and
+65816 CPUs.
+
+The obj bit distinguishes between object files and executables.
+An object file is used as assembler output that can be linked with
+other object files to build an executable or an object library.
+The two align bits give the address boundary the segments can be
+placed. Even the 6502 needs this, as, for example, "jmp ($xxFF)" is
+broken. The align bits are valid for all of the segments.
+[Note: if reloc=1, then align should be 3. But if align=3, reloc need
+not be 1, because reloc switches to a simpler version of the relocation
+table. The reloc bit might be obsoleted in newer versions of this
+format. Though it should be set, if necessary.]
+
+All unused bits in the mode field must be zero.
+
+Note that the header size is 26 if the size bit is zero and 44 if the
+size bit is one.
+
+The fixed sized struct is immediately followed by a list of header options.
+Each header option consists of a single byte total length, a type byte
+and some data bytes if needed. A single length byte of $00 ends the
+header option list.
+
+ (
+ { ; optional options, more than one allowed
+ .byt olen ; overall length (including length and type
+ ; byte
+ .byt otype ; option type
+ [ .byt option_bytes ]
+ }
+ .byt $00 ; end of options marker (i.e. option len=0)
+ )
+
+The header options currently defined/proposed are:
+
+- Filename:
+ type=0; len=strlen(filename_in_ascii)+3; content="filename_in_ascii",0
+ The string contains the name of the object.
+
+- Operating System Header
+ type=1; len=?
+ the first data byte is the OS type:
+ 1 OSA/65 header supplement
+ 2 Lunix header supplement
+ [others to follow?]
+ the following data contains OS specific information.
+ A suggested data byte is the OS version as second byte.
+
+- Assemblerprogram:
+ type=2; len=strlen(ass)+3; content="ass",0
+ The string contains the name of the assembler resp. linker that produced
+ this file/object.
+ For example (syntax see below)
+ .fopt 2, "xa 2.1.1g",0
+ becomes
+ 0c 02 78 61 20 32 2e 31 2e 31 67 00
+ in the file.
+
+- Author:
+ type=3; len=strlen(author)+3; content="author",0
+ The string contains the author of the file.
+
+- Creation data:
+ type=4; len=strlen(date)+3; content="date_string",0
+ The string contains the creation date in format like:
+ "Sat Dec 21 14:00:23 MET 1996", where we have the day, Month, date,
+ time, timezone and year. See output of `date`...
+
+ 2.6.2) text and data segments
+
+The text and data segments are just the assembled code.
+The only difference between text and data segments is the read/write mode
+of the two segments. Therefore, to be compliant to this file format,
+self-modifying code goes into the data segment.
+
+
2.6.3) Undefined references list
+
+The next list is an ASCII list of labels that are referenced in this file
+but not defined. The lists is preceeded with the number of undefined labels
+(16 or 32 bits, according to the mode.size bit).
+
+undef_list: number_of_undefined_labels.s
+ "undefined_label1",0
+ "undefined_label2",0
+ ...
+
+
+ 2.6.4) Relocation tables
+
+The relocation tables are the same format for the two segments, text and
+data. In general a relocation entry consists of the offset from the
+previous relocation address to the next one, the type of the relocation
+and additional info. Relocation not only defines the relocation when
+moving object code to a different address, but also filling in the
+undefined references.
+
+Each table starts at relocation address = segment base address -1.
+I.e. if the segment base address is $1000 for example, the first entry
+has an offset computed from base address-1 = $0fff.
+The offset to the next relocation address is the first byte of each
+entry. If the offset is larger than 254 (i.e. 255 or above), than a
+255 is set as offset byte, the offset is decremented by 254 (note the
+difference) and the entry is started again.
+
+{ [255,...,255,] offset of next relocation (b), typebyte|segmentID [, low_byte] }+
+
+where typebyte has the bits 5, 6 and 7 and is one of
+
+WORD $80 2 byte address
+HIGH $40 high byte of an address
+LOW $20 low byte of an address
+SEGADR $c0 3 byte address (65816)
+SEG $a0 segment byte of 3 byte address
+
+The segmentID stands for the segment the reference points to:
+
+0 undefined
+1 absolute value
+2 text segment
+3 data segment
+4 bss segment
+5 zero segment
+
+(Of course the absolute value will never appear in a relocation table,
+but this value is necessary for the exported list)
+
+If the type is HIGH, the low byte of the value is stored behind the
+relocation table entry, if bytewise relocation is allowed (header mode
+field bit 14). If only pagewise relocation is allowed, then only HIGH
+relocation entries can occur, and the low byte is implicitely set zero
+(i.e. it is _not_ saved in the relocation table).
+
+If the type is SEG, then the two lower bytes of the three byte segment
+address are stored behind the entry in the relocation table, lower byte
+first.
+
+
+
+If the segment is "undefined", the typebyte is immediately followed
+by the two (mode size=0) or four (mode size=1) byte value index
+in the undefined references list. If it is a high byte relocation,
+the low byte is saved behind the index value. The index value
+determines the undefined reference, which must be looked up by the
+loader.
+
+The value taken from the relocation address in the segment, together with
+the low byte from the relocation table (if HIGH entry) form the address
+used if the segment would be used unrelocated. To relocate the segment,
+the difference between the relocated segment base address and the segment
+base address from the file is then added to the above address. The result
+is again saved in the segment.
+
+A zero offset byte ends the relocation table. The first offset is computed
+from the segment base address-1, to avoid a 0 value in the first entry.
+
+Note that direct addressing modes do not generate entries in the
+relocation table. instead it is assumed that the 65816 direct register
+holds the correct value (i.e. zero segment base address) when running
+this program.
+
+Example:
+
+Segment Base address in file (header.tbase) is $1000.
+The start address of the text segment after relocation is real.tbase = $1234.
+
+Now the first (unrelocated) address at which a relocation should take
+place is here:
+
+$1222 A9 23 lda #>vector
+
+This generates the offset: $1222-($1000-1) = $223. This is larger than
+254 ($fe), so the first byte is 255 ($ff). The offset is decremented
+by $fe, and gives $125. This again is larger than $fe, so the next byte
+is $ff again. After substracting $fe again, we have $27. But this is
+the address of the opcode. To get the address of the address byte, we
+have to add 1 to get $28, which becomes the third byte.
+The next offset is then computed from $1223, because this is the
+last relocation address.
+
+Now we reference the high byte of an address, lets say vector=$23d0 (not
+relocated), in the text segment. Therefore the relocation type becomes
+'HIGH | text_segmentID = $42', which is the next byte. Because we are
+referencing a high byte of an address, the low byte of the unrelocated
+address is saved behind the typebyte in the relocation entry. This byte
+is missing when referencing a low byte or address.
+
+The relocation table entry is now:
+
+$ff, $ff, $28, $42, $d0.
+
+When actually doing the relocation, the relocation pointer is initialized
+to real.tbase-1 = $1233. Then we compute the offset to $224, which brings
+us to $1457, where the address byte of the above opcode is after loading
+the file to $1234. We now have to compute the new address, where vector
+is after relocation. So we take the unrelocated low byte from the
+relocation table ($d0) and the high byte from $1457 ($23).
+
+vector_file = ($23 << 8) + $c0
+
+To this value we add
+the difference between the address the program is assembled to and the
+real load address:
+
+vector_relocated = vector_file + (real.tbase - header.tbase)
+ = $23d0 + ($1234 - $1000)
+ = $23d0 + $234
+ = $2604
+
+From this value the high byte is then written back to the address $1457.
+Had we not saved the low byte in the relocation table, and only added
+the high bytes, we would have missed the carry bit that increments
+the high byte in this case!
+
+Had "vector" now been an undefined reference, and "vector" would be
+the second label in the undefined references list, we would get the
+following relocation table entry (assuming mode.size=0):
+
+$ff, $ff, $28, $40, $00, $02, $00
+
+The value computed with the above formula for vector_file is now added
+to the address the label "vector" now really has (This must of course
+be looked up into an external table or list).
+Had the opcode been "LDA #>vector+$567", then the low byte in the relocation
+table would be $67, while the high byte in the opcode would be $05.
+This value would result in vector_file and the real address of "vector"
+would be added before wrting back the high byte to the opcode.
+
+
+
2.6.5) exported globals list
+
+The global list is a list of names, together with the target segment
+and the offset in the segment for each name. It is preceeded with the
+number of exported labels. This allows the loader to allocate a table
+large enough, if needed. The number of labels and the offset value
+are 16 bit or 32 bit values according to the size bit in the header mode
+field. The segmentID is a byte value and the same as in the relocation
+table entry (see section 2.6.3).
+
+ number_of_exported_labels.s
+ "global_label_name_in_asc1",0, segmentID.b, value.s
+ ...
+
+
+ 3) assembler source format
+
+The assembler source format is a suggestion only. It will be implemented
+in xa65, a cross assembler for 6502 CPUs running on Unix/Atari ST/Amiga
+as a reference platform.
+
+The assembler provides a way to embed absolute address code in relocatable
+code. This is needed when code should be copied to a specific location
+known at assemble time.
+There also is a way to make a file 'romable'. You can give the start
+address of the _file_ in ROM, and the assembler automatically sets
+the text segment start address to where the code will be in the ROM.
+Of course, the other segments must be taken care of with -b? command
+line parameter, that set the segment start address.
+
+
3.1) embed absolute code in relocatable files
+
+When the assembler is started in relocatable mode, everything is put into
+a .o65 relocatable file. All address references generate relocation table
+entries. If a "*= value" pseudo opcode is encountered,
+then the assembler switches to absolute mode. The following opcodes don't
+generate relocation table entries. If a "*=" without a value is read,
+then the assembler switches back to relocatable mode. The relocation
+program counter is increased with the length of the absolute part and
+the absolute code is embedded between the relocatable parts.
+
+
3.2) embed relocatable code in absolute files
+
+This is dropped - too complicated. Should better be done with some
+objdump or linker programs or so.
+
+
3.2) Header options
+
+Before any opcode (after starting in relocatable mode, or after a .reloc
+opcode), a header option can be set by:
+
+ .fopt byte1, byte2, ...
+
+The header option length is automatically set by the assembler.
+An example for an file author entry:
+
+ .fopt 3, "Andre Fachat",0
+
+The 3 is the type byte for the author header option. The last zero ends
+the name. The assembler can be configured to automatically include an
+assembler header option into a file header.
+
+
3.3) allocation of data segment/zeropage segment address space
+
+The assembler switches between the different segments by the means of
+".text", ".data", ".bss" and ".zero" pseudo opcodes. After starting in
+relocatable mode, the assembler is in the text segment.
+
+The text segment contains the program code. Data holds the initialized data,
+while bss and zero segments contain uninitialized data for normal/zeropage
+address space.
+Everything that is between one of these segment opcodes and the next segment
+opcode gets into the corresponding segment, i.e. labels, assembled code etc.
+The text and data segments are saved in the file, while for the bss and
+zero segments only the length is saved in the file.
+
+The assembler should issue a warning when a direct addressing mode
+is used without a zero segment address and vice versa for 65816 CPUs.
+
+
3.4) referencing data/bss/zeropage addresses
+
+One problem with the 6502 is, that it cannot load an address within one
+step or assembler opcode. So an address is loaded with standard byte
+opcodes, like "lda #
+The assembler is now intelligent enough to evaluate such expressions
+and check for:
+
+- no address label : ok, absolute
+- one address label, only add to label : ok, relocate
+- difference between two addresses : If addresses in same segment, compute
+ diff and set absolute, otherwise bail
+- everything else : warning
+
+This way there is no change in syntax. Address labels are distinguished
+by using the "label:" syntax, as opposed to "label = value".
+Also, if the assembler is capable of doing so, an address label may be
+defined by "label opcode", i.e. without a colon.
+
+
3.5) aligning code
+
+The 6502 has the problem that some opcodes (e.g. "JMP ($xxFF)" are
+broken, if the address given is at some (odd) address. But when loading
+a relocatable file, one cannot know if an address will be odd or even.
+Therefore there is a new opcode,
+
+ .align 2
+
+that aligns the next address at the given address boundary. Valid
+values are 2, 4, and 256.
+
+
4) Clearance
+
+This file is surely not the optimum and could be improved. Also the
+header option "assigned numbers" should be added here.
+
+For this reason the author, Andr� Fachat, will function as a
+clearing point, where problems can be discussed and number can be assigned.
+
+
+Dec. 22, 1996,
+André Fachat
+(fachat@physik.tu-chemnitz.de)
+
+
Appendix
+
+ A) File examples
+
+(to be done with reference assembler)
+
diff --git a/dump/oa-2.0.9/doc/files.txt b/dump/oa-2.0.9/doc/files.txt
new file mode 100644
index 0000000..c9d9f40
--- /dev/null
+++ b/dump/oa-2.0.9/doc/files.txt
@@ -0,0 +1,187 @@
+
+
+/***************** c64 rom build - arch/c64/* *****************************/
+
+c64rom.a65 includes/wraparound to build 'ROM' image for C64
+c64def.i65 additional C64 defines
+config.i65 standard OS/A65 config defines
+devices/c64dev.a65 device wraparound
+devices/ser_acia1.a65 ACIA 6551 RS232 device driver
+devices/ser_9600.a65 Fast RS232 driver for interface by D. Dallmann
+devices/con_c64.a65 include for standard console driver
+devices/piec_c64.a65 include for standard IEEE488 driver - parallel IEEE
+devices/siec_c64.a65 include for standard IEEE488 driver - serial IEC
+kernel/kinit.a65 C64 reset functions
+kernel/kenv.a65 plain memory config task switching stuff
+
+boot/loader BASIC loader to start everything
+boot/loader11 BASIC loader to start everything on VICE with piec
+boot/boot small Machine Language boot program
+boot/boot.a65 source for boot
+boot/charom charom to use (needs ASCII, not PETSCII)
+boot/term9600 small terminal program (BASIC)
+
+/***************** CS/A65 rom build - arch/csa/* **************************/
+
+csarom.a65 includes/wraparound to build a complete rom image
+config.i65 standard OS/A65 config defines
+csa65.i65 additional CS/A65 defines
+devices/oadev.a65 mainly includes, to build devices into the kernel
+devices/par.a65 parallelport device
+devices/piec_csa.a65 include for standard IEEE488 driver - parallel IEEE
+devices/siec_csa.a65 include for standard IEEE488 driver - serial IEC
+devices/oa1ds.a65 ACIA6551 serial device
+devices/con_csa.a65 include for standard console driver.
+boot/inirom.a65 inirom sets the memory configuration for testing a
+ new rom and starts it
+boot/charom charom to use (ASCII)
+kernel/kinit.a65 CS/A65 reset functions
+kernel/kenv.a65 CS/A MMU memory config task switching stuff
+
+
+/***************** gecko rom build - arch/gecko/* *************************/
+
+devices/fsiec.a65 modified FSIEC filesystem for Gecko
+config.i65 standard OS/A65 config defines
+gecko.a65 main ROM (includes, wraparound)
+gecko.i65 additional Gecko defines
+boot/inig2.a65 Program to start Gecko emulation on CS/A MMU
+boot/inig3.a65 - " -
+boot/inigecko.a65 A small program to make test environment for Gecko
+devices/keydev.a65 device for keyboard
+devices/oadev.a65 device wraparounds (also uses oadev/oa1ds2.a65)
+devices/siec_gecko.a65 include for standard IEEE488 driver - serial IEC
+kernel/kinit.a65 Gecko reset functions
+kernel/kenv.a65 plain memory config task switching stuff
+
+/***************** defines - include/* ************************************/
+
+chips/* hardware (chips) definitions
+fdefs.i65 kernel file interface definitions
+kdefs.i65 kernel interface definitions
+kernel.i65 kernel jump table
+file_o65.i65 o65 fileformat definitions
+inet.i65 kernel network interface definitions
+lib6502.i65 lib6502 definitions
+
+/***************** kernel - kernel/* **************************************/
+
+kernel.a65 kernel: wraparound/includes
+jmptbl.a65 jumptable / address defines (for include)
+init.a65 bootup: memory test, start rom processes, frequency
+ detect; irq/nmi wraparounds (vectors)
+tasks.a65 kernel entry/exit gates (memsys/memtask), scheduler,
+ environment stuff, kill, term, send/receive, fork,
+ read, write, setblk, dup,...
+devices.a65 kernel device routines, registering, device irq
+files.a65 fs manager - dispatch fs messages to registered fs
+streams.a65 stream manager
+
+ramtest.a65 RAM test routines for inclusion in arch specific stuff
+zerotest.a65 zeropage test routines for inclusion in arch stuff
+
+/***************** oldlib - oldlib/* **************************************/
+
+- old stuff - not documented any more
+
+/***************** devices - devices/* ************************************/
+
+nulldev.a65 kind of /dev/null
+ser_acia.a65 two serial devices for ACIA 6551
+ser_uart.a65 a serial device for UART 16550A (16 byte FIFO)
+spooler.a65 spooler - serialize output requests
+console.a65 terminal device - video, keyboard, bell
+
+arch/proto/devices/oa1std.a65 standard device routines - for new devices
+arch/proto/devices/oa1stds.a65 standard device routines for multiple devices
+
+/***************** system applications ************************************/
+
+/***************** filesystems sysapps/fs/* *******************************/
+
+fsdev.a65 filesystem for accessing devices
+fsibm.a65 IBM PC fs for drives on csa shugart bus
+fsiec.a65 fs for CBM drives on IEEE 488 interface
+
+/***************** command shell and monitor sysapps/mon/* ****************/
+
+mon.a65 shell with i/o redirection, pipes, and more
+shdir.a65 file stuff for shell
+shmon.a65 machine language monitor for shell
+
+/***************** ibm disk monitor - sysapps/ibmon/* *********************/
+
+ibmon.a65 disk monitor for IBM PC disks. doesn't work with
+ibmon.doc fsibm due to lack of mutex/semaphore
+
+/***************** simulate keyboard for a C64 - ? ************************/
+
+keyrom/ky.a65 device to send stream data to a c64, of that the
+keyrom/kyc64_1.a65 keyboard is emulated by dual ported (time sharing)
+ ram
+
+/***************** send infrared commands to the stereo - sysapps/irtx ****/
+
+irtx.a65 program to send infrared commands
+
+/***************** multicopy - sysapps/mcopy/* ****************************/
+
+mcopy.a65 multicopy programm - serialize copy commands
+ (that are executed by setting up a stream and
+ leaving it alone in the shell, thus causing
+ performance/resource problems when copying many
+ files)
+
+/***************** basic interpreter - sysapps/basic/* ********************/
+
+basic4.a65 extended basic interpreter, running in multitasking
+ ported from C64, (c) commodore.
+ Not (yet?) running on the C64 under this OS.
+
+/***************** slip client - sysapps/slipd/* **************************/
+
+fstcp.c fstcp server
+main.a65 main client wraparound
+fstcp.a65 fstcp client code
+fstcp.h fstcp defines
+icmp.a65 ICMP (ping echo) code
+mem.a65a memory handling for packets
+slipi.a65 SLIP input loop
+slipo.a65 SLIP output loop
+sltcp.def IP & TCP defines
+tcp.a65 basic TCP code (when packet arrives)
+tcpuser.a65 basic TCP code (user calls)
+tcpsrv.a65 echo, discard, and chargen code
+putil.a65 protocl utility functions
+tutil.a65 TCP utility functions
+util.a65 utility functions
+csaip small example script to prepare serial line
+mon.a65 some general debug output
+rsh.a65 telnetd server
+libip.a65 lib6502 binding
+
+/***************** lib6502 applications ***********************************/
+
+/***************** file apps - apps/file/* ********************************/
+
+cat.a65 cat
+chkdsk.a65 chkdsk
+format.a65 format
+ls.a65 ls
+mkdir.a65 mkdir
+mv.a65 mv
+rm.a65 rm
+rmdir rmdir
+
+/***************** shell - apps/lsh/* *************************************/
+
+lsh.a65 lib6502 shell
+
+/***************** inet apps - apps/inet/* ********************************/
+
+tlogin.a65 login program called by slipd when incoming telnet
+ connection is opened.
+telnet.a65 telnet program
+httpd.a65 lib6502 WWW server - not yet working.
+
+
diff --git a/dump/oa-2.0.9/doc/filesystems.html b/dump/oa-2.0.9/doc/filesystems.html
new file mode 100644
index 0000000..4f3eaa5
--- /dev/null
+++ b/dump/oa-2.0.9/doc/filesystems.html
@@ -0,0 +1,161 @@
+
+ OS/A65 Kernel Filesystem Interface
+
+ OS/A65 Kernel Filesystem Interface
+
(c) 1989-98 Andre Fachat
+
+The kernel filesystem interface should not be used by normal applications
+anymore. Instead the lib6502 calls should be used.
+
+
+The interface to the filesystems is handled by the standard send/receive
+and stream routines. To access a file, a message has to be sent to the
+filesystem manager, i.e. to task id SEND_FM.
+To 'mount' a filesystem to a drive, the task has to register itself with
+the filesystem manager. To do this, it sends a message of type FM_REG
+to the filesystem manager. In PCBUF ($0200), the message contains
+the number of drives to register (FM_REG_DRVS) and the task id of
+the filesystem task (FM_REG_ENV).
+
+/* FileManager */
+
+#define SEND_FM $fe
+
+#define FM_REG 0
+
+#define FM_REG_DRVS 0
+#define FM_REG_ENV 1
+
+
+All other messages to the filesystem manager have to have the drive in
+PCBUF+FM_OPEND_DRV to allow easy redirection. '/' is used to separate
+dirs from each other in a filename.
+
+#define FM_OPEN_DRV 0
+
+#define DIRSIGN "/" /* Trennzeichen zwischen Verzeichnissen */
+
+
+The following message types are defined, although not all have been
+implemented.
+
+#define FS_OPEN_RD 1 /* Open file for reading only */
+#define FS_OPEN_WR 2 /* Open file for writing only (with error
+ if file exists) */
+#define FS_OPEN_RW 3 /* Open file for read and write */
+#define FS_OPEN_OW 4 /* Open file for overwriting */
+#define FS_OPEN_AP 5 /* Open file for append */
+#define FS_OPEN_DR 6 /* Open directory for reading */
+#define FS_RENAME 7 /* rename file */
+#define FS_DELETE 8 /* remove file */
+#define FS_FORMAT 9 /* format disk */
+#define FS_CHKDSK 10 /* check disk */
+#define FS_CLOSE 11 /* close file (only for FS_OPEN_RW) */
+#define FS_RMDIR 12 /* remove subdirectory */
+#define FS_MKDIR 13 /* create subdirectory */
+#define FS_CHDIR 14 /* ---- */
+#define FS_ASSIGN 15 /* ---- */
+
+/* struct, that has to be sent in PCBUF for any FS_OPEN_* message */
+/* after a successful open with FS_OPEN_RD/WR/OW/AP, the filesystem
+tries to read data from stream or write to it. It ends when it
+gets an E_EOF on reading streams or E_NUL on writing streams.
+If a file is read to the end, the filesystem decrements the write
+task counter (thus signaling the end of file) and closes the file
+internally */
+
+#define FS_OPEN_DRV 0 /* drive = FM_OPEN_DRV */
+#define FS_OPEN_STR 1 /* stream over which the data is
+ transfered */
+#define FS_OPEN_PFAD 2 /* ---- */
+#define FS_OPEN_NAME 3 /* name of the file to be opened */
+
+/* struct to be sent for any message except FS_OPEN_* */
+
+#define FS_CMD_DRV 0 /* target drive */
+#define FS_CMD_PFAD 1 /* --- */
+#define FS_CMD_FIL 2 /* --- */
+#define FS_CMD_NAME 3 /* for rename, the original filename has to
+ be sent as usual, but after the nullbyte
+ at the end of the first name follows the
+ name the file has to be renamed to,
+ ended with a nullbyte */
+
+/* struct that is sent back by the filesystem task */
+
+#define FS_X_ERR 0 /* error code, that is also returned
+ in the accumulator */
+#define FS_X_ENV 1 /* task id of filesystem task */
+#define FS_X_FIL 2 /* file handle (for FS_OPEN_RW only) */
+#define FS_X_SLEN 3 /* length of this struct (not sent) */
+
+
+A directory is being read as a normal file, but the file has a structrure,
+that is being described here.
+
+/* struct of a directory entry in a directory file */
+
+#define FS_DIR_LEN 0 /* length of file, 4 byte, lo byte first */
+#define FS_DIR_YEAR 4 /* year -1900, */
+#define FS_DIR_MONTH 5 /* month, */
+#define FS_DIR_DAY 6 /* day, */
+#define FS_DIR_HOUR 7 /* hour, */
+#define FS_DIR_MIN 8 /* minute, */
+#define FS_DIR_SEC 9 /* and second of last change */
+#define FS_DIR_MODE 10 /* type of file */
+#define FS_DIR_NAME 11 /* name, ended with a nullbyte */
+
+/* file types */
+
+#define FS_DIR_MOD_FIL 0 /* normal file */
+#define FS_DIR_MOD_NAM 1 /* disk name */
+#define FS_DIR_MOD_FRE 2 /* number of free bytes in FS_DIR_LEN */
+#define FS_DIR_MOD_DIR 3 /* subdirectory */
+
+
+Now comes the definition of an executable file, as interpreted by the ROM
+startup and by the shell.
+
+/* Prg-Header */
+
+#define P_KIND 0 /* type of program */
+#define P_MEM 1 /* memory size in kByte */
+#define P_RES 2 /* --- */
+#define P_ADR 4 /* start address of program */
+#define P_TAB 6 /* memory relocation table: a series of two
+ bytes, the first describing the position
+ in the MMU map, the second the memory block
+ to map in this position. This is used
+ to map the ROM in the memory for
+ autostart executables. The table is ended
+ with a single $ff. */
+
+/* Prg-types */
+
+#define PK_PRG 0 /* program executable */
+#define PK_DEV 1 /* device block - memory size is ignored and
+ exactly one position in the relocation table
+ has to be set. These values are given to
+ REGDEV.
+#define PK_FS 2 /* filesystem - STD* streams are set to
+ STDNUL */
+
+
+Appendix
+--------
+
+For the FAT filesystem, several disk sizes have been defined for the
+format command. The disk size is stored in the FS_CMD_PFAD byte in PCBUF.
+
+dsize kByte pages tracks sectors blocksize dd/hd comment
+------------------------------------------------------------
+ 0 360 1 80 9 512 dd Atari ST single sided
+ 1 720 2 80 9 512 dd 3.5"
+ 2 1440 2 80 18 512 hd 3.5"
+ 3 1200 2 80 15 512 hd 5.25"
+ 4 1280 2 80 8 1024 hd 5.25"
+ 5 360 2 40 9 512 dd 5.25"
+
+
+
+
diff --git a/dump/oa-2.0.9/doc/header b/dump/oa-2.0.9/doc/header
new file mode 100644
index 0000000..be0b3c7
--- /dev/null
+++ b/dump/oa-2.0.9/doc/header
@@ -0,0 +1,4 @@
+ OS/A65
+
+
diff --git a/dump/oa-2.0.9/doc/index.html b/dump/oa-2.0.9/doc/index.html
new file mode 100644
index 0000000..9604156
--- /dev/null
+++ b/dump/oa-2.0.9/doc/index.html
@@ -0,0 +1,186 @@
+
+ OS/A65 Operating System
+
+OS/A65 Operating System
+Version 2.0.1
+(c) 1989-1998
+André Fachat
+[Homepage]
+
+This is a completely new version of my 6502 operating system GeckOS/A65.
+From version 2.0.0 on it has a lot of new features:
+
+- multithreading
+
- dynamic memory management
+
- relocatable fileformat
+
- lib6502 standard library
+
- internet support
+
+
+Description
+
+OS/A65 is a full-featured Multitasking/Multithreading operating system
+for the 6502. It is preemptive and implements some Unix-like features,
+like signals, semaphores,
+relocatable fileformat,
+standard library, internet support via
+a kind of simplified sockets and last but not least virtual consoles.
+
+It is extremly scalable. Stripped down to the scheduler and interrupt
+handling the kernel is only slightly above 2k. In normal
+embedded systems
+the kernel has around 4k, with only application programs running.
+Full featured systems have a 4k kernel, and several support tasks
+provided system services like TCP/SLIP and (different) filesystems.
+
+The kernel is almost completely hardware independent. All the
+architecture-specific stuff is in a separate subdirectory
+for each architecture.
+
+The lib6502 as standard library allows easy
+access to the system services. Parts of this library are already
+implemented in another 6502 operating system, Lunix by Daniel Dallmann.
+This way source code compatibility is achieved.
+
+Version 2.0.0 features a "slipd" server process that brings easy internet
+access to all lib6502 programs, that can now access TCP connections
+like files. A stable WWW server running on the OS is built into the
+slipd daemon. Also a remote login can be done. This way the OS can run
+programs to for example read sensors and write the stuff to files, which
+are exported by the WWW server.
+
+The relocatable o65 fileformat used by the lib6502 standard library
+in version 2.0.0 allows more than one instance of a program being run
+at the same time without interference, even without virtual memory.
+Also the very same binaries runs on all supported platforms (if they do not
+use architecture specific stuff, but lib6502 calls only).
+
+Architectures
+
+Architectures supported are the C64, as well as my
+CS/A65
+MMU selfbuilt computer and my
+CS/A65 Gecko board.
+Also supported are the Commodore CBM8096 and CBM8296 computers, as well as
+any 32k RAM PET (the 3032, 4032 and 8032)
+
+
+- CBM PET documentation. Supported are 40 and
+80 column models 3032, 4032, 8032, 8096 and 8296.
+
- Embedded systems need not all features. Here is some doc to strip the OS down to the basics (with around 2.5k in the end...)
+
+Development
+
+For the development of OS/A65 programs there are two possibilities:
+
+More Docs
+
+
+- Here is the cross assembler
+xa
+you need to assemble the whole stuff
+
- What's new in this version since 2.0.0
+
- How to build the binaries
+
- A description of the files in the archive
+
- kernel interface
+
- lib6502 description
+
- Operation without an MMU
+
- introduction to the devices
+
- filesystem interface
+
- The README that comes with the binary.
+
- The README.c64 with instructions how to run it on the C64
+
- The README.slip with instructions how to run the TCP/SLIP software
+
- There also is a list of Known Bugs
+
- There also is a list of Ideas what to do next...
+
- An instruction to the lib6502 lsh
+
+Old stuff:
+
+- Overview over the Computer System and its Software
+
- The old standard library has been
+replace with the lib6502 and is not longer supported.
+
+
- The old summary of shell has been replaced
+by the lib6502 lsh and will no longer be developed.
+
- The old monitor is still supported, but not actively developed any more.
+
- summary of features and extensions of the
+BASIC interpreter (c) Commodore
+
- The ChangeLog for version 1.3.* and for
+the development of 2.0.0.
+
+History
+
+I didn't dream of this becoming such a nice project when I started
+building this computer in 1989.
+
+After someone asked me to release it to the public, I decided
+to put it under the GNU public license.
+(Which, of course, doesn't hold true for the ported BASIC interpreter, which
+is taken from the C64.
+See this file for more.) Also the
+character ROMs are taken from the C64. However, Commodore in its old
+form doesn't exist anymore and attempts to contact the new right holders
+have not brought any success, so I put them here.
+
+Well, when I did this project, it was just for fun. But now I find it
+quite nice. Well, if you know some magazin that would like to publish
+some of it, I will be glad writing an article or so (if anybody really
+wants it ;-)
+But on the other hand my interests have moved.
+Occasionally I still work on the project - when I have the time (or take
+the time ;-)
+But after all, I don't really have time for it.
+
+Ideas for later versions
+
+- vt100 control codes for the console.
+
- native C128 port
+
- in this process abstract a kind of block device from fsibm and use
+it for the VC1571 as well
+
+
+Last modified 14 march 1997 by A. Fachat
+This Page has been read approx.
+![[Can't display counter!]](/cgi-bin/counter/~fachat/8bit/osa/v2.0/index.html)
+times since march 14, 1996.
+
+
diff --git a/dump/oa-2.0.9/doc/kernel.html b/dump/oa-2.0.9/doc/kernel.html
new file mode 100644
index 0000000..504a7fc
--- /dev/null
+++ b/dump/oa-2.0.9/doc/kernel.html
@@ -0,0 +1,1000 @@
+
+ OS/A65 Kernel Interface Description
+
+ OS/A65 Kernel Interface Description
+
(c) 1989-98 Andre Fachat
+
+OS/A65 Version 2.0
+Introduction
+
+The change from kernel 1.3 to kernel 2.0 is radical in some things, but
+conservative in others. The complete environment handling has been
+rewritten to make it easier to port to different platforms. Also threads
+have been introduced. Therefore all the memory management and
+interprocess communication calls have changed as well.
+The scheduler is now a lot faster, as no more checks are done for threads
+in the waiting list.
+
+Although most routines have been rewritten, many of these calls still
+have the same parameters and behave the same way.
+Also the PCBUF is still used (unfortunately). This is the general
+communications buffer needed for filesystem operation and some kernel
+calls. It is a global buffer, and as such it is protected by the
+SEM_SENDBUF system semaphore. Each task that wants to use
+has to allocate this semaphore with PSEM before using the
+buffer.
+
+Also there still is no block oriented communication, although the
+stream based communication has been improved by the out-of-band
+error, brk and push/pull flags.
+
+I try to keep this documentation as correct and up-to-date as possible,
+but if in doubt, read the source... :-)
+
+There are now some comments like "this need not be available in all
+OS implementations". These comments mostly refer to the embedded
+versions of the OS where the kernel can be shortened to (almost)
+2k in size by leaving out some stuff not necessary for the particular
+application.
+
+Contents
+
+
+
+
+Most kernel routines return an error code in the accumlator (a), if the
+carry flag is reset upon return. Otherwise the ac might contain data.
+
+
+
+
+
+$f000 RESET System reset
+
+
+
+$f003 ENMEM Enable 4k memory block, no in xr, for memory management -
+ MMU version only
+$f006 SETBLK set memory block ac at MMU entry yr - returns old entry
+ in ac. MMU version only
+
+
+
+The Stream functions have not changed much. The only addition compared to
+kernel 1.x is the error code byte, that allows passing of error conditions
+and push/pull signals as "out-of-band" data.
+
+In the embedded versions the stream functions
+are not necessarily implemented.
+
+
+
+$f009 GETSTR Get a free stream. increase read and write task counter,
+ returns stream number in x
+
+$f00c FRESTR decreases read and write task counter, thus freeing the
+ stream, if both result in zero. parameter: stream number in x
+
+$f00f PUTC puts a byte on the stream. parameter: stream number in x,
+ data byte in a. returns errorcode in a
+
+$f012 GETC Get a byte from the stream. parameter: stream number in x,
+ returns data byte in a (with carry=0) or error code
+ (carry=1)
+
+$f015 UNGETC Gives byte from stream back. parameter: stream number in x,
+ data byte in a, returns error code in a
+
+$f018 STRCMD executes a stream command. parameter: stream number in x,
+ stream command in a, returns error code in a.
+
+ possible stream commands are:
+
+ SC_GET 0 same as GETSTR
+ SC_REG_RD 1 increase read task counter by one
+ SC_REG_WR 2 increase write task counter by one
+ SC_CLR 3 empty the stream
+ SC_EOF 4 closing the stream from the sender
+ side, i.e. decrease write task
+ counter by one
+ SC_NUL 5 closing the stream from the receiver
+ side, i.e. decrease read task
+ counter.
+ SC_FRE 6 same as FRESTR
+ SC_STAT 7 read stream status into ac
+ SC_GANZ 8 returns number of bytes in stream in a
+ SC_RWANZ 9 returns the stream write pointer in
+ a and the stream read pointer in y
+
+ SC_ESTAT 10 Get the error code byte in yr,
+ and the normal (i.e. what you get
+ with SC_STAT) stream state in ac.
+ SC_SSTAT 11 Set bits in the error code byte
+ each bit set in yr is set in error byte
+ SC_CSTAT 12 Clear bits in the error code byte
+ each bit set in yr is cleared in error
+ byte
+
+
+ Possible stream status are:
+
+ E_NUL Noone reading from stream
+ (i.e. read task counter is zero)
+ E_EOF stream is empty and noone is writing anymore
+ (i.e. write task counter is zero)
+ E_SEMPTY stream buffer is empty
+ E_SFULL stream buffer is full
+ E_SLWM number of bytes below Low Water Mark
+ (1/4 buffer size)
+ E_SHWM number of bytes above Hogh Water Mark
+ (3/4 buffer size)
+
+ The error code byte has the following bits:
+
+ SCE_PULL %10000000 reader pulls data from sender
+ SCE_PUSH %01000000 writer pushes data to receiver
+ SCE_BRK %00100000 writer sends 'break' signal
+ SCE_RERRM %00001100 reader error condition mask
+ SCE_WERRM %00000011 writer error condition mask
+
+
+The error condition byte can be set and read from both ends. This byte is
+cleared when the stream is allocated. If the reader "pulls" data, this is
+a sign for the writer to flush all its internal buffers into the stream.
+When this is done, the writer clears the pull flag.
+
+If the writer wants to push his data (like after an CR on a terminal,
+for example) the reader should get the number of bytes in the stream to
+have an inidcation of how many bytes to read as "pushed" (or urgent in
+Internet speak). Then it removes the push flag and gets the bytes from the
+stream
+
+If an error occurs, e.g. a read error when reading a file, the writer
+sets all the bits in the error code byte masked by SCE_WERRM to 1
+(which is general error code - other codes still have to be defined).
+The reader of the stream then reads this and can handle the error.
+
+If an error on the reading side occurs (like disk full when writing
+a file), The reader sets all the error bits masked by SCE_RERRM to 1
+(which is general error code - other codes still have to be defined).
+The writer can then close the file on his side.
+
+If the writer wants to send a Break (i.e. a ^C equivalent)
+code to the reader, it sets
+the SCE_BRK bit. The reader must clear it itself.
+
+
+
+$f01b DEVCMD executes device commands. parameter: device number in x,
+ device command in a, optional parameter in y.
+ returns error code in a.
+
+ possible stream commands are:
+
+ DC_IRQ 0 execute IRQ routine
+ the interrupt routine has to return
+ E_OK if an interrupt source is cleared
+ or E_NOIRQ if not.
+ DC_RES 1 initialize device
+ DC_GS 2 sets the stream (in y) the device
+ reads from
+ DC_PS 3 sets the stream (in y) the device
+ writes to
+ DC_RX_ON 4 switch on receive
+ DC_TX_ON 5 switch off receive
+ DC_RX_OFF 6 switch on send
+ DC_TX_OFF 7 switch off send
+
+ DC_SPD 8 set speed (in y), device dependend
+ DC_HS 9 set handshake (in y), device dependend
+ DC_ST 10 get device status, device dependend
+ DC_EXIT 11 disable device, including IRQ sources
+
+ DC_GNAM 16 get the name of a device, parameter:
+ device number in x, returns
+ name PCBUF ($0200)
+ DC_GNUM 17 get number of a device from name,
+ parameter: name in PCBUF, length
+ of name in x, returns device number
+ in x
+ DC_REGDEV 18 register new device(s)
+
+
+ With the registration of the device the system has to know
+ what to do with it and where to put it in memory.
+ Therefore you have to put the address of the following
+ struct into x/y registers.
+
+
+ x/y -> 2 byte pointer to label1
+ JMP Start_of_1st_device
+ Name_of_device,0
+ ...
+ label1 2 byte pointer to label2
+ JMP Start_of_2nd_device
+ Name_of_2nd_device,0
+ ...
+ labeln $ffff
+
+
+ With this method it is possible to register several devices,
+ as long as they are in one memory block, with one call.
+
+ The devices are started with DC_RESET. In y they get a
+ system feature byte. Currently only bit 7 is defined,
+ where $00 is 1 MHz system clock and $80 is 2 MHz system clock.
+
+
+$f01e FORK start a new task. parameter: yr = length of the following
+ struct in PCBUF
+
+ FORK_SIZE 0 The size of the needed memory
+ in 256 byte blocks, from botton up
+ FORK_SHARED 1 number of 256 byte blocks that
+ share the mapping with the current
+ task, from top down.
+ FORK_PRIORITY 2 priority of new task (0=inherit
+ from parent)
+ FORK_STDIN 3 stdin stream
+ FORK_STDOUT 4 stdout stream
+ FORK_STDERR 5 stderr stream
+ FORK_ADDR 6 start address of task
+ FORK_NAME 8 name of the program, ended by a
+ nullbyte. After that follows the
+ command line that started the program.
+
+ FORK returns the PID of the new task in xr.
+
+ The commandline is put into the PCBUF of the starting
+ task. The new task gets its own task id in x
+ The stream read/write task counter are not changed.
+ I.e. a thread that wants to use the end given to fork too
+ has to increase the read/write counters itself.
+
+ The priority is a hack to allow to run tasks with different
+ execution priorities. The priority
+ counts the number of interruptions before a thread
+ switch occurs. Default value is 3. A value of 0 lets
+ the new task inherit the priority of the current task.
+
+ It is now somewhat difficult to really start a new task, as
+ the READ/WRITE routines to access another tasks memory
+ have been removed.
+ One standard procedure could be to write a boot routine
+ into the current PCBUF, after the command line, and
+ jump to this boot routine when the FORK parameters are
+ copied to the target PCBUF. The length parameter
+ to FORK must of course include this routine.
+ You could also use a routine in the ROM, which then
+ should be shared between the calling and the called
+ task. The boot routine can then load the executable.
+ For a stdlib with null-separated command line parameters,
+ they may also be included after the name, as long as the
+ length byte includes them too.
+
+ In fact, the FORK_NAME entry is somewhat arbitrary at this
+ time, as it is not used within the kernel. In fact,
+ one could write anything there. But to keep compatible,
+ the name and command line must have the same format
+ as for the ROM startup, i.e. a nullbyte separated list
+ of program name and parameter, with a zero-length parameter
+ at the end.
+
+ The newly created task must release
+ the SEM_SENDBUF semaphore for the PCBUF.
+
+
+
+$f021 TERM <- a = return code
+ ends the current thread. If still threads in the tasks are
+ running, the return code is ignored. Otherwise the return
+ code is sent to the parent with SIGCHLD.
+
+$f024 KILL <- a = return code, x = task id
+ ends a complete task, with all threads in them.
+ ac is return code, xr is task ID to kill.
+ The return code is sent to the parent with SIGCHLD.
+
+$f027 YIELD just give control back to the scheduler, as there is nothing
+ to do at the moment - but keep running (not needed for
+ preemtive multitasking, an interrupt interrupts any task!)
+
+$f02a FORKT forks a new thread in the current task. Execution start
+ address must be in a/y.
+ returns c=0 for ok and new thread no in xr;
+ or c=1 for error (errno in AC).
+
+$f02d SBRK (carry=1): sets the freely available RAM area in the
+ active environment to ac blocks with 256 byte
+ each, by adding memory to or removing memory
+ from the end of the already available memory
+ area. Returns in ac the length
+ of the available memory in 256 byte blocks,
+ if c=0 on return. Otherwise returns error.
+ (carry=0): returns in ac the length of the available
+ memory in 256 byte blocks.
+
+$f030 GETINFO getinfo returns process information about all (up to 16)
+ running processes in the PCBUF (which must be allocated
+ by the process before)
+
+ May not be available in all OS implementations.
+
+ There are ANZ_ENV valid entries in the table, a
+ 0 in the TN_NTHREADS field indicates an empty slot.
+
+ The fields are as follows:
+
+ TN_PID 0 PID of process in this entry
+ TN_NTHREADS 1 Number of threads for process
+ TN_ENV 2 Environment number for process
+ TN_PARENT 3 Parent process
+ TN_MEM 4 amount of allocated RAM
+ TN_SIGNAL 5 signal address
+ TN_STDIN 7 STDIN stream
+ TN_STDOUT 8 STDOUT stream
+ TN_STDERR 9 STDERR stream
+ TN_SIGMASK 10 signal mask value
+ TN_NAME 11 start of prog name (if available)
+
+ each field is TN_SLEN bytes long and the
+ length of the name field is TNAMLEN. If the name is longer
+ than TNAMLEN-1, the the last characters are cut off, and in
+ the table the ending nullbyte is missing.
+
+
+
+$f033 DUP (carry=1): set new STD* stream. parameter: STD* number in x,
+ new stream in a, returns old stream in ac;
+ read/write task counters are not touched!
+ (carry=0): get redirected STD* stream number. parameter:
+ STD* number in x, returns stream in a
+
+
+
+The semaphore calls need not be available in all OS implementations.
+
+
+
+$f036 GETSEM gets a free semaphore. returns semaphore number in x
+
+$f039 FRESEM frees a semaphore. parameter: semaphore number in x
+ negative (system) semaphores cannot be freed (nor are they
+ returned by GETSEM)
+
+$f03c PSEM 'PSEM' operation on a given semaphore. task waits till
+ semaphore is freed. parameter: semaphore number in x
+ carry=0: block till semaphore is free
+ carry=1: do a test&set operation and return with
+ E_OK if semaphore gotten, or E_SEMSET if semaphore is in use.
+
+$f03f VSEM 'VSEM' operation on semaphore, allows other tasks
+ to grab the semaphore.
+ parameter: semaphore number in x
+
+
+
+
+$f042 SEND send a message to another task
+ parameter: optional message type in a, target task in x,
+ length of data in PCBUF in y; y=0 means 256 byte in PCBUF
+ The data is in PCBUF ($0200-$02ff). returns a and y as
+ given and the 'redirected' target (e.g. from filesystem
+ manager) in x
+
+$f045 RECEIVE receives a message.
+ (carry=1): waits for any message
+ (carry=0): returns immediately, with an error if no message
+ received. Otherwise if a message is received,
+ return sender task id in x, length of
+ data in PCBUF in y (0 means 256) and the optional message
+ type as given with SEND in a.
+
+
+
+$f048 SETSIG sets the signal address and the signal mask
+ (carry=1): sets signal address in a/y
+ (carry=0): sets signal mask
+ returns the old mask resp. the old signal address
+ in the same registers.
+
+$f04b SENDSIG c=1: ac contains the signal mask to be sent to the task ID
+ given in xr
+ c=0: set thread to sleep until it receives a signal
+
+
+Signal handling works as follows: With SETSIG the signal address and the
+signal mask can be set. There is only one signal address, that is the
+address of a subroutine that is called on a signal. When the routine is
+called, it has the current pending signal mask in AC.
+The routine must return with a code sniplet
+
+ pla
+ rti
+
+which jumps directly to the code executed before the signal occured.
+Note that the x and y register must not be changed or must be preserved
+during the signal routine. The current thread execution is changed
+to run the signal handler and to immediately return with the code like above.
+
+SENDSIG can be called from other tasks or from devices, not from a thread
+in the same task. When SENDSIG is called, first the signal mask is checked
+to see if the signal is allowed. If it is not, SENDSIG just returns.
+If the signal is allowed, threads in the receiving task can be
+in different states: Ready, Interrupted, or Waiting. If ready or
+interrupted, the thread is directly set up to execute the signal
+routine. If the thread is waiting, it depends on the INT bit in the
+signal mask what happens.
+
+If the INT bit is set, then any system call that lets the thread block
+(i.e. wait for Semaphore, wait for Receive, wait for Send)
+will be interrupted. They then return E_INT in ac - after the signal routine
+has been called. The other registers are bogus after an interrupted
+system call.
+
+If the INT bit is not set, then the signal is pending, and the
+signal routine is called when a thread of the task is set to running
+again.
+
+Signal mask values are
+
+ SIG_INT %10000000 /* allow interruptable kernel calls */
+ SIG_CHLD %01000000 /* Child process has terminated */
+ SIG_TERM %00100000 /* Child process has terminated */
+
+ SIG_USR4 %00001000 /* user signal 4 - used for STDLIB */
+ SIG_USR3 %00000100 /* user signal 3 */
+ SIG_USR2 %00000010 /* user signal 2 */
+ SIG_USR1 %00000001 /* user signal 1 */
+
+When a SIG_CHLD is executed, the receiving task is notified that a child
+has died. This means it should call CHECKCHLD to see which child has
+died with what error code.
+
+The SIG_TERM code should be used by "standard" libraries. Currently there
+is no way to inform a task about its death and let it clean up all
+resources - that are not bookkept by the kernel! - before it dies.
+So other libraries should, instead of calling "KILL", send a SIG_TERM signal
+when they want to kill a process. The signal routine of the receiving
+process should catch this signal and clean up and then call
+TERM itself.
+
+SENDSIG with carry clear (wait for signal) must be called by threads only,
+not by devices. Also the SIG_INT bit must be set before this call is done.
+If there is only one thread in the task, then the thread is sleeping until
+a signal is received. When a signal is received, the signal handler is
+called, then the thread is awakened and returns with E_INT.
+The other registers are not preserved.
+
+
+
+$f04e TDUP register a task for a (negative) system task number.
+ parameter: (negative) task number to replace in x,
+ new task number to be used instead in a
+
+$f051 XRECEIVE receives a message from a specified task only. parameter as
+ with RECEIVE, plus sender task id in x
+
+$f054 SETNMI in systems without MMU, set the system NMI routine address.
+ (carry=1): set the new NMI routine address (in a/y)
+ returns the old NMI address in a/y.
+ The old address is saved in the place pointed
+ to by (newadress-4) (see below) by this routine.
+ (carry=0): clear NMI routine.
+ The NMI routine has to save all registers by itself!
+
+ At NMI address -2 there must be the address of a ctrl routine
+ that can be called via CTRLNMI. Expect that the
+ ctrlnmi routine is called during this SETNMI with either
+ NMI_ON of NMI_OFF in AC, to set the initial state.
+ The ctrlnmi routines is called with JSR, i.e. return with RTS.
+
+ At NMI address -4 is a pointer to a memory location
+ where the address of the next NMI routine can be found.
+ If the address found there is $ffff, then the list is at
+ its end.
+
+ A possible scenario then is:
+
+ Task calls SETNMI with NEWNMI in a/y. We then have the
+ structure:
+
+ (NEWNMI-4) address of oldvec --> address of OLDNMI
+ (NEWNMI-2) address of nmictrl
+ NEWNMI --> NMI routine code
+
+ This way the structure can be held in ROM, and still allow
+ flexible NMI chaining. If CTRLNMI is called, each of the
+ nmictrl routines is called with the given value in AC.
+
+$f057 CTRLNMI Send command in AC to all currently chained NMI ctrl
+ routines as described with SETNMI. Possible values are:
+
+ NMI_ON = allow NMIs
+ NMI_OFF = disallow NMIs
+
+ This routine is called when initiating and ending an
+ IEC serial bus transfer, for example.
+
+
+
+$f05a GETPID returns the current task ID in x and the current thread ID
+ in y
+
+$f05d SLOCK c=1: locks scheduler to actual task.
+ c=0: unlocks scheduler
+ returns c=0 when ok, c=1 with E_NOTIMP if error.
+
+ May not be available in all OS implementations.
+
+$f060 RENICE changes the priority of the current task.
+ ac = value to add to the priority.
+ returns ac = old priority.
+
+ May not be available in all OS implementations.
+
+$f063 CHECKCHLD
+ returns:
+ c=0: returns a child process ID in x and child return code
+ in a of a child process that has died. Only works
+ if the SIGCHLD signal mask has been set when the
+ child died.
+ c=1: no child that has died found.
+
+
+
+
+
+On bootup the system is tested and possible errors are detected.
+On systems with a system port, the hardware error is shown by the number
+of flashes the LED makes before the system reboots
+
+
+/* Hardware-Errors */
+
+#define HE_ZP <-1 /* zeropage mem test */
+#define HE_RAM <-2 /* RAM test (to few RAM) */
+#define HE_ROM <-3 /* Couldn't start a program */
+#define HE_DEV <-4 /* device returns error upon init */
+#define HE_TASK <-5 /* all programs have terminated - reboot */
+
+
+possible error codes are (from oadef/oa1str.def, where most things,
+except filesystem stuff are defined)
+(These codes must be reordered):
+
+
+/* Software-Errors */
+
+#define E_OK 0 /* no error */
+#define E_NOTIMP <-1 /* feature/function not implemented */
+#define E_CONFIG <-2 /* in this configuration not available */
+#define E_ILLPAR <-3 /* illegal parameter */
+#define E_NOMEM <-4 /* no more memory */
+
+/* stream handling errors */
+#define E_NOSTR <-5 /* no more streams available */
+#define E_SFULL <-6 /* stream is full */
+#define E_SEMPTY <-7 /* stream is empty */
+#define E_SLWM <-8 /* stream below low-water-mark (1/4) */
+#define E_SHWM <-9 /* stream above high-water-mark (3/4) */
+#define E_EOF <-10 /* last byte read, other side has closed */
+#define E_NUL <-11 /* noone listening on stream */
+
+/* device handling errors */
+#define E_NODEV <-12 /* illegal device number */
+#define E_DON <-13 /* device already in use */
+#define E_DOFF <-14 /* device not in use */
+#define E_NOTX <-15 /* device doesn't send */
+
+/* misc errors */
+
+#define E_NOENV <-16 /* no more free environment/task ID */
+#define E_NOSEM <-17 /* no more free semaphore */
+#define E_SEMSET <-18 /* semaphore is already set (with PSEM) */
+
+#define E_NOIRQ <-19 /* irq routine has not removed irq source */
+#define E_VERSION <-20 /* wrong (executable file) version */
+
+#define E_NOTASK <-21 /* no more free task */
+#define E_INT <-22 /* interrupted (by signal) system call */
+
+#define E_ILLSIG <-23 /* illegal signal number */
+
+#define E_TRYAGAIN <-24 /* try again */
+
+/* file handling errors */
+
+#define E_FNODRV <-32 /* illegal drive number */
+#define E_FNOPATH <-33 /* wrong path */
+#define E_FILLNAM <-34 /* illegal name (joker "*","?","\"") */
+#define E_FNAMLEN <-35 /* name too long */
+#define E_FNOFIL <-36 /* file not found */
+#define E_FWPROT <-37 /* file write protected */
+#define E_FILEXIST <-38 /* file exists */
+#define E_FDISKFULL <-39 /* disk full */
+#define E_FDNEMPTY <-40 /* subdirectory not empty when rmdir */
+#define E_FLOCKED <-41 /* file locked */
+#define E_FMEDIA <-42 /* media error */
+#define E_FLOGICAL <-43 /* bad logical structure on media */
+#define E_FINTERNAL <-44 /* internal error - should not happen! */
+
+/* lib6502 errors */
+
+#define E_ILLADDR <-64 /* illegal address for lib6502 mfree */
+#define E_NOFILE <-65 /* illegal file number for lib6502 */
+#define E_NOSEEK <-66 /* file not seekable */
+#define E_NOREAD <-67 /* read on file would block */
+#define E_NOWRITE <-68 /* write on file would block */
+#define E_FVERSION <-69 /* file version number not supported */
+
+
+#define E_LASTERR <-96 /* for customized error numbers */
+
+
+
+
+
+
+During bootup, the kernel initializes the memory and sets up the standard
+system memory configuration. This includes mapping the system ROM from
+the top of memory down, and the system RAM is mapped from the lower end up.
+
+When the system initialization is done, the ROM is searched for executable
+files. The first two bytes of the ROM are taken as an address.
+If this address is not $ffff, then directly after the first two
+bytes follows the program ROM structure described below.
+After starting the first file, the address at the beginning is taken
+as a pointer to the next file and so forth, until the kernel finds
+a $ffff.
+
+The program ROM structure looks like:
+
+ P_KIND 0 /* byte, type of file */
+ P_ADDR 1 /* word, start address of execution */
+ P_RAM 3 /* byte, amount of RAM needed from
+ lower end of memory in 256-byte
+ blocks */
+ P_SHARED 4 /* byte, size of memory shared with
+ parent counted from top of memory,
+ in 256-byte blocks */
+ P_PRIORITY 5 /* byte, priority of the task to be
+ started */
+ P_DEV 6 /* 2 byte, the first byte gives the
+ device number that is opened for the
+ stdin stream, the second gives the
+ device number for stdout/stderr */
+ P_NAME 8 /* name of the program, ended by
+ nullbyte. After the nullbyte is the
+ commandline the program is started
+ with. The parameter are separated
+ by nullbytes. After the last parameter
+ follow two nullbytes to indicate
+ the end of the command line. */
+
+
+There are several program types available:
+
+
+ PK_PRG 0 /* simple program */
+ PK_DEV 1 /* device block */
+ PK_FS 2 /* filesystem */
+ PK_INIT 3 /* ROM init process */
+
+
+These file types have to be filled into the P_KIND field above.
+In addition they can be or'd by the following flags.
+
+
+ PK_AUTOEXEC $80 /* autoexecution */
+ PK_RESTART $40 /* restart when died */
+
+
+When the PK_AUTOSTART bit is not set, the file is ignored by
+the kernel.
+
+The ROM only starts device blocks (PK_DEV) and init processes
+(PK_INIT), because they are set up before the scheduler starts
+and therefore the PCBUF is (on non-MMU systems) not available.
+I.e. init processes do not check their command line, and do not release
+the PCBUF.
+Also PK_INIT tasks get no stdin, stdout and stderr streams
+and have to set them up themselves.
+
When starting device blocks, the address given in the
+P_ADDR field is given to the DEVCMD command to register
+the devices.
+
+When using the special init process (init v1.0 from the sysapps directory),
+the other entries are started by the init process.
+PK_PRG tasks are started with their stdin/out/err opened
+to the devices given by the PK_DEV field.
+The name and command line are copied from the P_NAME field
+to the FORK_NAME field for the fork.
+
+PK_FS are started as programs, but with the stdin/out/err
+streams set to STDNUL, which is ignored.
+
+If the init process is configured for it, and the PK_RESTART
+bit is set, it registers the task id of the started process and
+restarts it when the task dies.
+
+
+
+ROM tasks are started from the init task and have no way to
+determine which RAM locations are used by other tasks.
+Therefore the variable allocation must be done when the ROM is
+assembled. When using an MMU-based system, where each task has its
+own memory environment there need not be much caution. But when
+all tasks use the same environment (like in the C64) care has to be
+taken not to use a memory location twice. Especially shared libraries
+must use an own memory range, and they must be thread-save.
+This allows for different threads of one task as well as threads
+of different tasks to use the same library in one memory environment.
+
+For each environment, task and thread the kernel saves two bytes that
+are guaranteed to be unique within the environment, task or thread
+respectively. The bytes at addresses 2 and 3 are set to zero when
+a memory environment is created and are unique to this environment.
+The bytes at addresses 4 and 5 are unique to the task and can be
+used for task-specific data, like a pointer to a task structure.
+The bytes at addresses 6 and 7 are unique to the thread and
+can be used for thread data.
+
+
+
+The kernel is configurable in a wide range. Many options are available
+for all versions, but also many options are architecture dependent.
+The options are generally set in a global file that builds a
+system ROM. Therefore, to not set the options in the kernel file
+itself, the macro ROM must be defined.
+
+General options:
+
+ CMOSCPU /* have (rockwell) R65C02 */
+ NMIDEV /* allows handling of NMI in devices
+ (only for non-MMU systems, untested) */
+ NMIRESET /* calls RESET when an NMI arrives */
+
+ STACKCOPY /* on non-MMU systems the stack can
+ either been split up or, with this
+ options, copied to a save area */
+
+Memory options:
+
+ RAMSIZE /* size of checked RAM during bootup,
+ in 256-byte blocks */
+ MIN_MEM /* minimum memory size to boot */
+ RAMTEST /* if set, RAM is tested, if not RAMSIZE
+ is taken to be the real RAM size */
+ BATMEM /* memory is not cleared but kept during
+ memory test */
+ NOMIRRORMEM /* can be set if we _know_ that we do
+ not have mirrored memory */
+ MEMINIVAL /* value with which to set the memory at
+ boot. If not set, 0 */
+
+Some Architecture specific options:
+
+ NOSYSPORT /* The CS/A65 computer has a certain */
+ port where it can read the IRQ line
+ for example. Not available if set */
+ ROMTEST /* on CS/A65 systems allow booting from
+ a running OS/A65 (replacing it) */
+
+Kernel configuration options for various system calls are the following.
+The second half is mostly used to customize for embedded applications.
+
+ NEED_CHECKCHLD /* checkchld available if set */
+ NEED_GETINFO /* getinfo available if set */
+ NEED_RENICE /* renice available if set */
+ NEED_SLOCK /* slock available if set */
+
+ NO_STREAMS /* streams not available if set */
+ NO_FSM /* filesystem manager not avail. if set */
+ NO_SEM /* semaphores not available if set */
+ NO_SEND /* no send/receive/xreceive if set */
+
+ EOK_SEPARATE /* kernel is not at end of ROM - */
+ /* kernel/end.a65 is included extra. */
+ EOK_NOFILL /* don't fill between kernel and end of */
+ /* it. kinit _must_ copy the stuff from */
+ /* eok_addr to $fff* */
+
+
+
+
+
+Porting has been made much easier with this kernel version.
+In general, there is a proto architecture subdirectory that holds
+some prototype files for a non-MMU system. that can easily be changed to
+fit own needs.
+
+The kernel needs two files in the arch/*/kernel subdirectory, namely
+kenv.a65 and kinit.a65. The kinit.a65
+file is included in the kernel startup code, i.e. after setting
+the interrupt flag and clearing the decimal flag this file is
+executed, and it is expected that the
+CPU gets out of this file at the end of it.
+
+
kinit.a65
+
+This file must initialize the stack, the memory management and mapping of the
+system ROM and RAM.
+Then the system preemption timer must be set up.
+When including kernel/zerotest.a65 and kernel/ramtest.a65 here
+all the memory options from above are available.
+Also the ramtest file returns the size of memory found in 256-byte blocks
+in a. This value must be passed to the end of the init routine in this file.
+
+In addition to this some Macros have to be defined, that are used
+in the kernel later.
+
+ GETFREQ() returns a=0 for 1Mhz, a=128 for 2MHz
+ LEDPORT address of LED port to signal hardware failures
+ LED_LED bit of LED bit in LEDPORT address
+ H_ERROR() if LEDPORT is not defined, then H_ERROR replaces
+ the LED toggle routine if needed.
+ CLRTIMER() clear the system preemption timer interrupt
+ KERNELIRQ() returns if an interrupt occured in the kernel
+ or outside. Is checked by "BNE IRQ_in_Kernel"
+ SAVEMEM() save system mem config for interrupt
+ RESTOREMEM() restore system mem config after interrupt
+ STARTMEM() This is used to alloc/enable memory pages found
+ during kernel init. Takes mem size in AC as given
+ by the kernel init. It is called _after_ inimem!
+
+For the most systems without MMU, most of these macros can be
+taken from the C64 kinit.a65 file.
+If you have a more complicated mapping, you can have a look at the
+CS/A65 kinit.a65 file.
+
+
kenv.a65
+
+The kenv.a65 file is included in another part of the kernel.
+It is the part that maps the memory according to the environment
+number for each task.
+Several routines must be defined here:
+
+ inienv init environment handling
+ setthread set active thread
+ initsp init task for thread (no in xr)
+ push push a byte to active threads stack
+ pull pull a byte from active threads stack
+ memtask jump to active thread
+ memsys enter kernel
+
+ getenv get e free environment
+ freenv free an environmen
+ sbrk reduce/increase process memory in an environment
+
+ enmem enable memory blocks for environments
+ (this kernel call is used for MMU systems and
+ heavily system specific)
+ setblk sets a specific memory block in the memory map
+ of the active task. Also for MMU systems only
+
+Also some macros must be defined:
+
+ MEMTASK2() This is equivalent to memtask above, but it
+ is used for returns from interrupt
+ MAPSYSBUF maps the PCBUF of the active task to the
+ address given by SYSBUF in system memory
+ SYSBUF mapped tasks PCBUF
+ MAPENV() maps the address given in a/y in env x to somewhere
+ in the kernel map, returns mapped address in a/y
+ MAPAENV() as MAPENV, but does it for actual env.
+ GETTASKMEM returns (in AC) how much memory a task has
+ (task id in y)
+ CPPCBUFRX copies PCBUF from other task (yr) to active one
+ CPPCBUFTX copies PCBUF from active task to another one (yr)
+ CPFORKBUF() copies the PCBUF from the FORK call to the task.
+ GETACTENV() returns active environment in ac
+
+The full descriptions can be found in the C64 kenv file for example.
+This may look complicated, but it isn't. If you have a simple 6502 system
+without memory management, just copy (or set a link) to the C64 file.
+If you have a more complicated system, have a look at the CS/A65 file.
+
+
+
+
+Terminal devices should understand the following terminal control codes
+(But the currently implemented device driver doesn't understand them all,
+though...)
+
+
+/* Terminal Commands */
+
+#define TC_BEL 7 bell
+#define TC_BS 8 backspace
+#define TC_HT 9 horizontal tabulator
+#define TC_LF 10 line feed
+#define TC_VT 11 vertical tabulator
+#define TC_FF 12 form feed
+#define TC_CR 13 carriage return
+#define TC_ESC 27 Escape code
+
+#define TC_CLFT $80 cursor left
+#define TC_CRGT $81 cursor right
+#define TC_CUP $82 cursor up
+#define TC_CDWN $83 cursor down
+#define TC_HOME $84 cursor to the upper left edge
+#define TC_CLR $85 clear screen
+#define TC_DEL $86 delete char
+#define TC_INS $87 insert
+#define TC_WLO $88 set upper left window corner by cursor pos
+#define TC_WRU $89 set lower right window corner by cursor pos
+#define TC_WCLS $8a clear window
+#define TC_EOL $8b put cursor to the end of line
+#define TC_CLL $8c clear rest of line from cursor
+
+#define TC_ECHO $8d switch on local (device) echo mode
+#define TC_NOECHO $8e device only sends, application has to echo
+
+#define TC_CPOS $8f next two chars are row and column of new
+ cursor position
+
+
+FORK, SETIRQ and TRESET can NO MORE be called via a SEND
+system call, when
+the receiver address is SEND_SYS and the message type is SP_* !!
+
+
+/* SysProcCalls */
+
+#define PCBUF $200
+
+
+
+STD* stream number are replaced by the numbers saved in the environment
+struct.
+
+
+
+/* StdStream */
+
+#define STDNUL $fc /* will be ignored (for FS STDIO)*/
+#define STDIN $fd
+#define STDOUT $fe
+#define STDERR $ff
+
+
+
+Reserved system environment numbers:
+
+
+
+#define SEND_FM $fe /* filesystem manager */
+
+#define SEND_ERROR $fd /* critical error handler */
+
+#define SEND_TIME $fc /* set/get actual time */
+
+#define SEND_NET $fb /* open network connections */
+
+
+
+
diff --git a/dump/oa-2.0.9/doc/lib6502.html b/dump/oa-2.0.9/doc/lib6502.html
new file mode 100644
index 0000000..719e350
--- /dev/null
+++ b/dump/oa-2.0.9/doc/lib6502.html
@@ -0,0 +1,1161 @@
+
+
+
+ lib6502 standard library
+
+
+
+lib6502 standard library
+
+Version 0.6 (26 january 1997)
+
+
+
(c) A. Fachat
+
+This document consists of three parts, the Introduction,
+the actual library interface definition and the Implementation
+Notes. There also is an Index of the used function
+names, as well as a section for ideas for the development.
+Also acknowledgements are given.
+
+Introduction
+
+This file has been written to define a certain compatibility level between
+different operating systems for 6502 computer. It defines, on a more abstract
+level that can be fitted to different real OSes, an interface for system
+services. The goal of this definition is, to be able to fit into various
+different environments, like
+
+
+- Computers like the C64 or the Gecko computer, with a single 6502, without
+advanced memory management.
+
+- Computers like the C128, with a more enhanced memory management (two
+banks with 64kByte each, relocatable zeropage and stack)
+
+- The CS/A65 computer, with a 6502 and a fully virtualized address management.
+
+
+- Computers with the 65816 CPU, for programs running in 8 bit emulation
+mode.
+
+
+The possible operating systems also differ in style and features:
+
+
+- Single-tasking OSes, like the ones provided with the C64, or other
+6502 computers (if interprocess communication and process management calls
+are not used, lib6502 programs can even run on such a machine).
+
+- 'Monolithic' multitasking systems, that have all system services in
+the kernel
+
+- Microkernel based OSes, that communicate with system servers via kernel
+communication paths, providing this functionality to the program via the
+lib6502.
+
+
+This interface offers a common level for all these scenarios. Programs
+written for this library can run on any of these platforms, a simple recompile
+on the proprietary 6502 assembler/compiler will be enough. If people can
+agree on a standard file format, not even recompiling might be necessary.
+
+
+In this library there still is a certain degree of freedom in the implementation.
+System process IDs can still be 8 bit, as long as the library offers a
+16 bit interface to the application. Memory allocation can still be pagewise
+(in 256 byte blocks), as long as an application does not rely on that -
+in other OSes it can probably allocate smaller chunks. The purpose of this
+interface is, to hide the system OS behind. The application, on the other
+hand, should never assume any implementation specifics, that are not documented
+in this definition.
+
+Most of the calls are modeled along the standard libc C library, but
+there also are some calls from the Unix world.
+
+This file does not make any assumptions about the implementation of
+the calls, although the behaviour is (i.e. should be :-) noted as exactly
+as possible.
+
+
+Library Interface definition
+
+
+
+File interface
+
+The file interface uses file numbers. These file numbers are valid in
+the local environment, and need not be globally valid. But the lib6502
+always has to accept these numbers, and then tranforms them internally
+wo whatever appropriate for the given OS. Of course an implementation where
+both are identical should be better in performance.
+
+file-nrs in lib6502 are treated as uni-directional or bi-directional
+channels, i.e. an application can either read or write to a provided uni-directional
+file-nr, and both at a time to a bi-directional file-nr. The OS can provide
+bi-directional (with read/write operations possible on the same file-descriptor
+in one task) or uni-directional (where a write to one end can be read from
+the other end even in the same task.) file-descriptors. Only the latter
+case is difficult. The stdlib must check the fileno and remap it to different
+filenos for reading or writing.
+
+When an application is started, three uni-directional file-nrs do already
+exist and are open: STDIN, STDOUT, and STDERR. STDOUT gives the file-nr
+for writing task output, STDERR is for error output, while STDIN is for
+reading program input.
+
+All open files are closed when the process terminates.
+
+ fopen:
+ <- a/y = address of null-terminated filename
+ x = file mode
+ mode : 0 = read-only
+ 1 = write-only
+ 2 = read-write
+ 3 = append
+ -> c=0 : x = file-nr
+ c=1 : a = error code E_NOTFOUND
+ E_PERMISSION
+ E_FNAMLEN
+ E_DIRECTORY
+
+
+Files are named as: "Device:directory/filename", where Device
+depends on the OS. There might be OSes where it's a single character (like
+A: or 8:), others might have a real name. The lib needs to be able to parse
+its own, implementation dependent namespace only. And the application should
+not assume anything about the length of the device name. Directory separator
+is "/". Escape sequence for the directory separator is "\/".
+For the filename interpretation see the beginning of the directory
+section. Character set is ASCII (i.e. all codes between 0x20 and 0x7f must
+be useable, others are not allowed).
+
+The filesystem might imply other limitations on filename length, if
+there are directories at all, or the allowed characters. Wildcards are
+"*" that match any string and "?" that match exacly
+one character. The interpretation might depend on the filesystem, i.e.
+may not even be the same on the same system, but on different devices.
+Escape sequences are "\*" and "\?". Escape sequence
+for "\" is "\\".
+
+The mode byte can be one of the abovementioned, which map to
+
+ OPEN_RD 0
+ OPEN_WR 1
+ OPEN_RW 2
+ OPEN_AP 3
+
+
+Append means, that before any write to the file, the file pointer is
+positioned at the end of the file. The mode can be or'd with some other
+bits, like
+
+ OPEN_TRUNC $80 If the file already exists, it will
+ be truncated (when writing).
+ OPEN_EXCL $40 Only one process may have this file
+ open at one time.
+ OPEN_NOCREAT $20 Do not automatically create when
+ writing (OPEN_WR, _RW, _AP).
+
+
+Default is to automatically create the file when it does not exist and
+it is opened for writing.
+
+ fclose
+ <- x = file-nr
+ Closes the given file-nr. Pushes all remaining data
+ to the receiver, and waits till it is written.
+ -> c=0 : everything ok
+ c=1: a = error code E_NOFILE
+ E_WERROR
+ E_NUL
+
+ fgetc
+ <- x = file-nr
+ c=0 : return immediately, c=1 : block till byte
+ -> c=0 : a = data byte
+ c=1 : a = error code E_NOFILE
+ E_EMPTY
+ E_EOF
+ fputc
+ <- x = file-nr, a = data byte
+ c=0 : return immediately, c=1 : block till byte
+ -> c=0 : ??
+ c=1 : a = error code E_NOFILE
+ E_FULL (E_TRYAGAIN?)
+ E_NUL (noone reads it)
+
+ fread
+ <- x = file-nr, a/y = address of struct:
+ .word address_of_buffer, length_of_buffer
+ c = 0 : return immediately, even if nothing read or
+ buffer only partially read.
+ c = 1 : wait till buffer is full or EOF (or error)
+ -> c = 0 : ok
+ struct given holds address+a/y, length-a/y,
+ such that it can directly given to fread again.
+ c = 1 : error code E_NOFILE
+ E_EMPTY (E_TRYAGAIN?)
+ E_EOF
+
+ fwrite
+ <- x = file-nr, a/y = address of struct:
+ .word address_of_buffer, length_of_buffer
+ c = 0 : return immediately, even if nothing written,
+ or buffer only partially written.
+ c = 1 : wait till buffer is empty (or error)
+ -> c = 0 : ok
+ struct given holds address+a/y, length-a/y,
+ such that it can directly given to fwrite again.
+ c = 1 : error code E_NOFILE
+ E_FULL (E_TRYAGAIN?)
+ E_NUL (noone reads it)
+ fseek
+ <- x = file-nr, a/y = address of struct:
+ .byt mode ; offset is relative to
+ 0 = start of file
+ 1 = end of file
+ 2 = actual position
+ .word 0,0 ; 32 bit offset
+ -> c = 0 : ok;
+ c = 1 : error code E_NOFILE
+ E_NOSEEK
+
+
+fgetc and fread, and fputc and fwrite can be used interchangeably. fread/fwrite
+don't guarantee that the whole buffer is really read/written, even with
+carry set. For this, see fcntl below.
+If fread returns an E_EOF there can still be bytes that
+have been read during this call, so the returned struct has to be checked.
+
+When opening
+a file read-write, then when changing between read and write, there always
+has to be an fseek operation.
+
+There are, however, files that cannot be seeked, namely character devices.
+If trying to use fseek on such a device, E_NOSEEK is returned. If a seekable
+file is given to STDIN and STDOUT/STDERR, the behaviour is not defined.
+Only non-seekable files should be given to STDIN and STDOUT/STDERR, when
+opened read-write.
+
+ pipe
+ -> x = file-nr for reading
+ y = file-nr for writing
+
+ opens a uni-directional pipe with two file numbers,
+ one for writing, and one for reading. To close the pipe,
+ each end has to be closed separately.
+
+ flock
+ <- x = file-nr
+ a = operation: LOCK_SH, LOCK_EX, LOCK_UN
+ c = 0: don't block
+ c = 1: block till you get it
+ -> c = 0: ok, got lock
+ c = 1: a = error code E_NOTIMP
+ E_NOFILE
+ E_LOCKED
+
+
+The flock call locks a file for other tasks access. If locked shared,
+then other tasks may also aquire shared locks - for reading, for example.
+An exclusive lock can only be aquired by exactly one task at a time - for
+writing. An exclusive lock can not be obtained when there are other shared
+locks, but a pending exclusive lock blocks all other attempts to lock it,
+even for shared locks. The flock implementation should be fair, i.e. lock
+attempts are served in the order they arrive, except that exclusive get
+served before shared locks. The flock call is optional. If not implemented,
+return E_NOTIMP
+
+ fcntl
+ <- x = file-nr, a = operation
+ a = FC_PUSH 0 all buffers are flushed and sent
+ FC_PULL 1 actively try to get everything
+ that has already been sent
+ FC_RCHECK 2 checks if there is data to read
+ FC_WCHECK 3 checks if at least one byte can be
+ written.
+ -> c = 0: ok
+ c = 1: a = error code E_NOFILE
+ E_NOTIMP
+ E_NOREAD
+ E_NOWRITE
+
+
+The fcntl return code should be ignored, as it is probably not implemented
+in most of the systems, except for RCHECK/WCHECK calls of course.
+
+ fcmd
+ <- x = operation, a/y = filename,0 [ , filename2, 0 ]
+ x = FC_RENAME 16 filename -> filename2
+ FC_DELETE 17
+ FC_MKDIR 18
+ FC_RMDIR 19
+ FC_FORMAT 20 filename only to determine drive
+ FC_CHKDSK 21 - " -
+
+
+Other important calls are the stddup and the dup call.
+
+ stddup
+ <- x = old stdio file-nr (STDIN, STDOUT or STDERR)
+ y = new file-nr for stdio file.
+ -> c = 0: ok, x = old stdio file
+ c = 1: a = error code E_NOFILE
+
+
+This call replaces a stdio file-nr (the pre-defined STDIN, STDOUT, and
+STDERR file-nrs) with a new file-nr. The old file-nr must not be closed,
+as it is when the process terminates. Instead the new file-nr returned
+must be closed.
+
+ dup
+ <- x = old file-nr
+ -> c = 0: ok, x = new file-nr
+ c = 1: a = error code E_NOFILE
+
+
+This call 'reopens' a file, i.e. it returns a new file-nr that is used
+as the old one. They share the same read/write pointers etc. Both file-nrs
+must be closed. This way the same file can be given to STDOUT and STDERR
+in a fork call, for example.
+
+If dup is given a read-write file-nr, both sides are duped and the returned
+file-nr is bi-directional again.
+
+
+
+
+
+
+Directory Interface
+
+The library maintains a path that is used for each file system operation.
+If a filename does not start with a "/" and not with a drive,
+the path is put in front of the filename. If the filename starts with a
+drive, it is always taken as an absolute filename, even if the "/"
+is missing. If only the drive is missing, it is taken from the path.
+
+A special case is the directory call with a filename as "*:".
+It does not use the path, but returns, in each entry, an available device
+name. The length attribute should give the available amount of storage
+space on the device. A wildcard in the device field is not allowed otherwise.
+
+
+ fopendir
+ <- a/y = address of filename
+ -> c = 0: ok, x = file-nr
+ c = 1: a = error code E_NOFILE
+ E_NOTDIR
+
+ freaddir
+ <- x = file-nr a/y = address of buffer
+ blocks until read, otherwise use fcntl(FC_RCHECK)
+
+ reads _one_ directory entry into the buffer, which is
+ of length (FD_NAME + MAX_FILENAME)
+ One entry consists of a directory struct
+
+ .word 0 ; valid bits
+ .word 0 ; owner ID
+ .word 0 ; group ID
+ .word 0 ; permissions (drwxrwxrwx) (2 byte)
+ .word 0,0 ; file length in byte (4 byte)
+ .byt 0,0,0,0,0,0 ; last modification date
+ ; (year-1990, month, day, hr, min, sec)
+
+ The valid bit say, which entry in the struct is valid.
+ bit 0 is for the permissions, bit 1 for the file length, bit 2
+ for the date. The file length, if not zero, is an
+ approximate value (like the blocks *254 in a vc1541)
+ this struct is followed by the null-terminated filename.
+ The valid bits are:
+
+ FDV_PERM 1
+ FDV_LENGTH 2
+ FDV_MDATE 4
+ FDV_OWNER 8
+ FDV_GROUP 16
+
+ If permissions are valid, but not group/owner, then
+ the permissions for user and group are invalid, and the
+ permissions for others should be taken.
+
+ The directory entry struct definitions are:
+
+ FD_VALID 0 /* 1 byte */
+ FD_PERM 1 /* 2 byte */
+ FD_LENGTH 3 /* 4 byte */
+ FD_MDATE 7 /* 6 byte */
+ FD_NAME 13 /* null-terminated */
+
+ The permission bits are actually a copy from the Linux
+ man pages...:
+
+ S_ISUID $800 /* set user ID on execution */
+ S_ISGID $400 /* set group ID on execution */
+ S_ISVTX $200 /* -- (sticky bit) */
+
+ S_IRWXU $1c0 /* rwx mask for user */
+ S_IRUSR $100 /* read by owner */
+ S_IWUSR $080 /* write by owner */
+ S_IXUSR $040 /* exexute by owner */
+
+ S_IRWXG $038 /* rwx mask for group */
+ S_IRGRP $020 /* read by group */
+ S_IWGRP $010 /* write by group */
+ S_IXGRP $008 /* execute by group */
+
+ S_IRWXO $007 /* rwx mask for others */
+ S_IROTH $004 /* read by others */
+ S_IWOTH $002 /* write by others */
+ S_IXOTH $001 /* execute by others */
+
+ S_IFMT $f000 /* file type mask */
+ S_IFSOCK $c000 /* socket */
+ S_IFLNK $a000 /* symbolic link */
+ S_IFREG $8000 /* regular file */
+ S_IFBLK $6000 /* block device */
+ S_IFDIR $4000 /* directory */
+ S_IFCHR $2000 /* character device */
+ S_IFIFO $1000 /* fifo */
+
+ S_IFMNAME $3000 /* media name */
+ S_IFMFREE $5000 /* free are on media */
+ S_IFMSIZE $7000 /* media size */
+
+ Most of the file types are probably not implemented
+ on a 6502 system. But before defining new types, one
+ should keep the already defined values save.
+ That's for the last three entries, which are not
+ Posix standards.
+
+ The length field can be an approximate if it is not zero
+ and the length is not valid (For VC1541 block lengths).
+
+ fgetattr
+ <- a/y = address of dir struct, incl filename (like in freaddir)
+ -> c = 0: ok,
+ c = 1: a = error code E_NOTIMP
+
+ This tries to fill in the bits that are _not_ valid in a
+ dir struct. For example, if freaddir returned
+ the filelength only, but no permissions, then calling
+ fgetattr should get the file permissions.
+ But it is not guaranteed, that all fields are filled,
+ as some are not implemented on a certain filesystem.
+ So even after fgetattr, a check of the valid bits is needed.
+ The filename must be completed with the device and path.
+
+ fsetattr
+ <- a/y = address of dir struct, incl. filename
+ -> c = 0: ok
+ c = 1: a = error code E_NOTIMP
+
+ Tries to write new file attributes (the ones where the
+ valid bits are set). Need not succeed. Clears the valid bits
+ for the attributes it has successfully set.
+ The filename must be completed with the device and path.
+
+ chdir
+ <- a/y = address of new path, relative to the old one
+ -> c = : ok
+ c = 1: a = error code E_ILLDRIVE
+ E_ILLPATH
+ cwd
+ <- a/y = address of buffer, x = length of buffer
+ -> c = 0: ok, buffer contains the current working directory.
+ c = 1: a = error code E_NOTIMP
+ E_FNAMLEN
+
+
+The chdir call changes the saved path in the library. A "."
+filename means the same directory, while ".." means the parent
+directory.
+cwd gives the address of the path. However, the path pointed to by
+the returned address must not be changed.
+
+Network Interface
+
+Network streams are used as well as any other file, so we only need
+opening calls. Currently only TCP/IP is defined and thought of, but there
+should be no problem allowing other networks.
+
+ connect
+ <- a/y address of : byte length of address (incl. length byte),
+ plus 4 byte inet addr (+2 byte port for TCP/UDP)
+ x = protocol (IPV4_TCP, IPV4_UDP,...)
+ -> c = 0: x = (non-seekable, bi-directional) file-nr
+ for read/write
+ c = 1: a = error code E_NOTIMP
+ E_PROT
+ E_NOROUTE
+ E_NOPERM
+
+ listen
+ <- c = 0: a/y = addr of:
+ byte length of port, 2 byte port number
+ (for TCP/UDP on IP)
+ x = protocol
+ -> c = 0: ok, x = listenport
+ c = 1: a = error code E_NOTIMP
+ E_PROT
+ E_PORTINUSE
+ opens a port to listen at
+
+ <- c = 1: x = listenport
+ -> c = 0: ok
+ c = 1: a = error code E_NOTIMP
+ E_NOPORT
+ closes the listenport again.
+
+
+ accept
+ <- a/y = address of buffer for struct:
+ 1 byte length of buffer (incl. length byte),
+ the rest of the buffer need not be set.
+ for IPV4 TCP and UDP we need place for:
+ 4 byte IP address +
+ 2 byte port,
+ x = listenport
+ c = 0: don't block
+ c = 1: block
+ -> c = 0: x = file-nr for read/write
+ The buffer contains the address that the remote
+ machine uses. The 1st byte contains the length of the
+ address (should not differ from the length indicated
+ by the protocol number in listen.
+ c = 1: a = error code E_NOTIMP
+ E_ADDRLEN
+ E_NOMEM
+ E_TRYAGAIN
+
+
+connect is something like Unix socket() and connect() together. listen
+is something like socket(), bind() and listen() together. listen tells
+the network layer, that the application is going to accept connections
+on a certain port. Therefore, when a connection is requested from remote,
+the network layer can accept them already and hold them "on line"
+until the task gets the connection with accept. The maxmimum number of
+acceptable connections is implementation specific.
+accept gets the first connection waiting for an accept. the other sides
+IP and port are stored in the buffer given in a/y If a connection is refused
+after checking IP or port, the 'accepted' connection should be closed immediately.
+
+
+Memory Management
+
+It is possible to have an allocation at byte boundaries, or at page
+boundaries - an application does not have to rely on a certain alignment!
+
+
+ malloc
+ <- a/y length of block needed
+ -> c=0: a/y address of block allocated
+ c=1: a = error code E_NOMEM
+
+ mfree
+ <- a/y address of block released
+ -> c=0: ok
+ c=1: error code E_ILLADDR
+
+ realloc
+ <- a/y address of block, x position of new length
+ in zeropage (2 byte)
+ -> c=0: ok
+ c=1: error code E_ILLADDR
+
+
+
+Allocated memory blocks are automatically freed on process termination.
+
+
+Process Management
+
+Process management is a bit more complicated. Process ID interface is
+16 bit, although they need not all be used, of course.
+
+ exec
+ <- a/y = addr of filename,0 [, parameter1, 0 ...] ,0
+ -> if no error, then the new program starts and gets
+ a/y = address of filename,0 [, parameter1, 0 ...],0
+ otherwise return:
+ c=1: a = error code E_NOTFOUND
+ E_NOMEM
+ allocates new environment and removes old environment.
+ starts newly loaded executable file.
+
+ forkto
+ <- a/y addr of struct: '.byte STDIN, STDOUT, STDERR, exec_struct
+ -> c=0: x/y = child pid
+ c = 1: a = error code E_NOMEM
+ E_ILLSTR
+ E_NOTFOUND
+
+ This is not really a fork like in Unix, but it creates a
+ new process, so it still 'forks'. The new process is
+ started with executing the file given in the exec_struct
+ - which is the same struct as given to exec.
+ The file-nrs given for STDIN, STDOUT and STDERR share the same
+ read/write pointers as the ones in this process.
+ They are internally 'duped', and the calling task has to
+ close them after calling forkto. No other file-nos are
+ inherited.
+
+ forkthread
+ <- a/y addr of execution for new thread
+ -> c = 0: ok, xr = new thread number
+ c = 1: a = error code E_NOTIMP
+
+ forkthread sets up a new thread to run in the same
+ memory environment as the calling thread/process.
+ The new thread is started at the given address, with
+ an empty stack. This means the thread has to explicitely
+ call term when terminating.
+
+ term
+ <- a = return code
+
+ kill
+ <- a = return code, x/y = pid (or MYTASK = myself -> suicide)
+ -> c=0: ok (except for MYTASK)
+ c=1: a = error code E_ILLPID
+
+
+The term call terminates the current thread only. The memory etc is
+only freed when all threads in this environment have terminated. Kill terminates
+all threads in the environment indicated by the process ID.
+
+ getpid
+ -> x/y = own PID
+
+
+When forking, the files still share the same seek pointer (address in
+the file where they read/write). When one process writes to a file, the
+other processes write pointer moves on too, same for the read pointer.
+Otherwise file sharing with the 1541 would be impossible, for example.
+
+
+STDIN/STDOUT and STDERR file-nrs appear to be opened before process
+start. They can be closed as any other file, though. When calling forkto,
+the file-nrs given to it are `duped' internally, such that they have to
+be closed in the calling process, as well as in the newly created process.
+
+
+All files opened by this task are closed when it terminates. All memory
+blocks allocated by this task are freed when it terminates.
+
+The newly created process is started by calling the "main"
+function, with a/y pointing to a list of arguments:
+
+ .byt "arg0",0, "arg1",0, ... ,"argn",0,0
+
+
+The "main" function can either call "term", "kill"
+or return with a "rts" opcode.
+
+ yield
+
+yield gives the process control back to the scheduler. It need
+not be called at all. But if a process is doing a busy loop (or spin-lock)
+waiting for a certain condition, it might call yield to give
+other tasks the opportunity to run. It is not necessary to call
+yield at all! The scheduler interrupts any thread and
+takes control back when the thread has used its timeslice. But if the thread
+knows that it waits for something to be done by another task, instead
+of waiting for the end of its timeslice it can call yield to give other tasks
+the immediate opportunity to run.
+
+
+Interprocess Communication
+
+Interprocess communication heavily depends on the system underneath
+the library, so it's not that easy. So far we handle semaphores, signals,
+and send/receive.
+
+Semaphores
+
+ semget
+ <- c = 0: don't block, c = 1: wait till you get one
+ -> c = 0: ok, x = semaphore number
+ c = 1: a = error code E_NOTIMP
+ E_NOSEM
+ gets a new semaphore
+
+ semfre
+ <- x = semaphore number
+ -> c = 0: ok
+ c = 1: a = error code E_NOTIMP
+ E_NOSEM
+ E_INUSE
+ releases a used semaphore. If a process is waiting for
+ the semaphore, returns E_INUSE
+
+ semgetnamed
+ <- c = 0: a/y = name of semaphore
+ x = 0 : if not found, return error,
+ x = 1 : if not found, alloc name and return ok
+ -> c = 0 : ok, x = semaphore number
+ c = 1 : a = error code E_NOTIMP
+ E_NOTFOUND
+ E_NOSEM
+ This calls tries to allocate a 'named' semaphore.
+ If the name already exists, the associated semaphore number
+ is returned. If the name doesn't exist, and x=0, then an
+ error is returned. If a name doesn't exist, and x=1, then
+ the new name is allocated, a semaphore is allocated and
+ associated with the name.
+
+ <- c = 1: a/y = name of semaphore
+ -> c = 0: ok
+ c = 1: a = error code E_NOTIMP
+ E_NOTFOUND
+ The named semaphore is de-allocated. The named semaphore
+ handler counts the number of allocations and frees a semphore
+ if the name is totally deallocated.
+
+ With this call, one can system-independently allocate
+ system and hardware resources, if they are protected by
+ semaphores.
+ predefined semaphore names are:
+
+ SEM_C64_SERIEC, SEM_C64_PARIEC, SEM_C64_SID,
+ SEM_C64_VID, SEM_C64_KEYBOARD,
+ SEM_C64_CIA1TA, SEM_C64_CIA1TB, SEM_C64_CIA1TOD,
+ SEM_C64_CIA2TA, SEM_C64_CIA2TB, SEM_C64_CIA2TOD,
+
+ SEM_CSA_SERIEC, SEM_CSA_PARIEC, SEM_CSA_WD1770,
+
+ SEM_GECKO_SERIEC, SEM_GECKO_IRTX
+
+
+ psem
+ <- x = semaphore number
+ c = 0: don't block; c = 1: wait till gotten
+ -> c = 0: got semaphore
+ c = 1: a = error code E_NOSEM
+ Pass operation on a semaphore. Locks the semaphore.
+
+ vsem
+ <- x = semaphore number
+ Free operation on a semaphore. Lets other threads "pass".
+
+
+
+
+
+Signals
+
+Signals are some kind of 'remote procedure call' - a signal handler
+for a certain signal is called upon another threads' request.
+
+ signal
+ <- x = signal-number
+ a/y = address of signal handler
+ -> c = 0: ok
+ c = 1: a = error code E_NOTIMP
+ E_ILLSIG
+ installs a signal handler for a signal
+ signal handler address NULL de-installs a handler.
+
+ sendsignal
+ <- a/y pid of receiving process
+ x = signal number
+ -> c = 0: ok, sent
+ c = 1: a = error code E_ILLPID
+ E_ILLSIG
+ sends a signal to another process. A signal is an emulated
+ interrupt to the address specified as the signal handler
+ address.
+
+
+Allowed signals are
+
+ SIG_USR1
+ SIG_USR2
+ SIG_USR3
+ SIG_USR4
+ SIG_CHLD
+
+
+The signal handler gets the signal mask for the signal in ac
+(They may or may not be combined if the same signal handler is used for
+more than one signal type).
+A SIG_CHLD is used to get information about child processes
+that died. If it is received, the
+xr/yr registers holds the PID of the dead child and ac holds the return
+code of the child. Only child processes are registered that died when the
+signal handler mask was set. You can only receive, but not send a
+SIG_CHLD.
+
+
+Send/Receive
+
+This section is very preliminary, as the SEND/RECEIVE interface in OS/A65
+is not really useable without MMU, and Lunix doesn't have SEND/RECEIVE.
+
+
+ send
+ <- a/y = address of
+ .word receiver_pid
+ .word address_of_data
+ .word length_of_data
+ c = 0: don't block
+ c = 1: wait till accepted
+ -> c = 0: block sent
+ c = 1: a = error code E_ILLPID
+ E_NOTIMP
+ sends a message to another process. The data sent is not
+ changed, or freed or whatever.
+
+ receive
+ <- a/y = address of three words, second and third word
+ give address and length of receiver buffer
+ x = 0 : accept any sender
+ x = 1 : first word in (a/y) contains the sender
+ c = 0 : don't block
+ c = 1 : wait till received
+ -> c = 0 : message received, (a/y) has
+ .word sender_pid
+ .word address_of_data
+ .word length_of_data
+ c = 1 : a = error code E_NOTIMP
+ E_ILLPID
+ E_NOMEM
+ The data is stored in the buffer, and length_of_data is
+ changed to the length actually received. If the buffer
+ is too short, length_of_data is set to the length needed,
+ and E_NOMEM is returned.
+
+
+
+
+
+
+Environment Handling
+
+The process environment is a table of strings handled by the lib6502
+on a per-task basis. When a task forks a new task, the environment
+is inherited by the new task. Strings here are null-terminated ASCII
+character arrays.
+
+
+ getenv:
+ <- a/y name of env. variable
+ -> a/y = address of value or NULL if not set.
+
+ putenv:
+ <- a/y addr of "name=string"
+ -> c=0: ok
+ c=1: error E_NOMEM
+ E_NOTIMP
+ add or change env var. If the variable is empty, it is
+ unset and will return either a NULL pointer with getenv
+ or a pointer to an empty string.
+
+ getenvp:
+ -> a/y addr of null-terminated list of null-terminated
+ strings with "varname=value" in each string, describing
+ all environment variables. It is NOT allowed
+ to change these variables 'by hand'.
+
+ getos:
+ -> a/y addr of operating system string
+
+
+The operating system string is a string containing the
+
+- operating system name (OS/A65)
+
- operating system version (2.0.0)
+
- CPU type (6510)
+
- architecture type (C64)
+
- library type (lib6502)
+
- library version (0.6)
+
+separated by spaces and ended by a nullbyte.
+
+Implementation Notes
+
+Implementation notes are currently available for the o65
+file format only. This file format is rather flexible, and some of the
+ideas can be taken for other lib6502 file formats.
+
+o65 file format
+
+The o65 file format is defined in another file format specification.
+It allows the use of undefined references. In order to simplify the relocation
+procedure, lib6502 files have one undefined reference, namely "STDLIB".
+This reference defines the base of the lib6502 jump table. At STDLIB+0
+there is a JMP opcode pointing to the code for fopen. At STDLIB+3 is a
+JMP opcode pointing to the code for fclose etc. The order is determined
+by the order given in the index of this definition.
+
+A global variable is the "main" address, which is the start
+address for any lib6502 executable. If the "main" address is
+not given in the object file as a global variable, the start of the text
+segment is assumed to be the "main" address.
+
+The lib6502 file format allows the use of "header options",
+where some OS specific options may be saved. The lib6502 files can - but
+don't need to - use a lib6502 header option (as defined in the o65 file
+format specification). This lib6502 header option contains the following
+struct:
+
+ .byt lib6502_major_version_nr, lib6502_minor_version_number
+ .byt lib6502_needed_level, lib6502_possible_level
+
+
+The version numbers are hints as to which library version the file is
+compiled with. The level is a new number that describes which functions
+are used, and which are not. A library may provide a certain amount of
+lib calls in the library call table (STDLIB). The maximum number of calls
+used is given in the "possible_level" value. The maximum number
+that must be functional (and with only few exceptions not just return "E_NOTIMP")
+is given by the "needed_level" number.
+
+The level numbers are defined as:
+
+
+- Level 1: fopen - chdir
+
+- Level 2: connect - accept
+
+- Level 3: malloc - mfree
+
+- Level 4: exec - getpid
+
+- Level 5: semget - receive
+
+
+If the file needs a Possible Level greater than the level provided by
+the library, an "E_LIBLEVEL" error code should be returned by
+forkto or exec.
+
For example, a program that needs the file functions, and can optionally
+(i.e. if available) use the exec and fork calls, should have "1"
+as a Needed Function, and level 4 as Possible Functions.
+
+Index
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+Ideas
+
+
+- service numbers conversion from text to number by generalized getxxxfromname?
+
+
+- listen + accept to _one_ call with local space for remote address?
+
+
+
+
+
+
+
+Acknowledgements
+
+Acknowledgements go to
+
+
+- Daniel Dallmann, author of Lunix, for discussions and comments on the
+library
+
+- Craig Bruce, the author of ACE, for some comments and bugfixes
+
+
+
+
diff --git a/dump/oa-2.0.9/doc/mon.html b/dump/oa-2.0.9/doc/mon.html
new file mode 100644
index 0000000..ac23a83
--- /dev/null
+++ b/dump/oa-2.0.9/doc/mon.html
@@ -0,0 +1,79 @@
+
+ OS/A65 Machine Language Monitor
+
+ OS/A65 Machine Language Monitor
+
(c) 1989-98 Andre Fachat
+
+This machine language monitor owns the most standard commands together
+with some interesting features taken from my C64
+assembler and some commands to
+do system calls easier.
+All addresses and data bytes can be given in hex, decimal (with
+preceding "."), octal (with preceding "&") or in binary (with
+preceding "%"). The output of the commands M, B, R, D, G and C can
+be piped to a file with "> filename", like in the shell.
+
+
+X exits monitor (goes to shell)
+D a b disassemble from address a to b
+B a b binary list
+M a b hex dump
+R shows register contents
+; a mnem
+A a mnem assembles 6502 mnemonic to address a
++ pc ac xr yr sp sr
+ sets registers to a new value. a "-" instead of a
+ value leaves the register unchanged
+E a b exchanges environment block a (the a'th MMU register) with
+ with memory block b
+S "name" a b save memory from a (included) to b (not included)
+ in file "name". The first two bytes in the file are the
+ memory address
+G a Goto address (executes a JSR)
+L a b reads b bytes from STDIN and saves them at address a
+L "name" a Load file "name" to address a or the included load
+ address if a is left out
+C a b c Compare memory area from a to b with the area starting at c
+T a b c Transfer (copy) memory from a to b to the address c
+O a b c Occupy (fill) memory from a to b with c
+P a b c sets system parameter: a becomes the standard drive (for
+ load/save), b is the number of bytes printed in a line
+ with hex dump and c becomes the number of available
+ memory blocks (a 4kByte) for this task. A "-" leaves the
+ value unchanged.
+U a b c d e change in the memory area from a to b all three byte
+ assembler opcode addresses pointing to the area between
+ c and d to the area starting at e
+I a b c ...
+, a b c ... writes bytes b, c, ... into the memory at address a
+F a b string tries to Find the string (which is mixed from bytes,
+ separated by spaces and strings, enclosed in double quotes)
+ in the address area from a to b
+FA a b addressing
+ search all assembler codes in memory from a to b, that have
+ the given addressing mode: "FA a b (**AB)" means to search
+ all absolute indirect addressing modes with low byte
+ equal to $AB
+FR a b search for relative jumps
+F- a b c search in memory from a to b for bytes that are not equal to c
+
+YD a b c DEVCMD with device a, command b and parameter c
+YM GETMEM
+YF a FREMEM memory block a
+YS GETSTR
+YR a FRESTR stream a
+YE GETENV
+YP adr env stdin stdout stderr
+ FORK
+YW sem PSEM
+YV sem VSEM
+YG a tries to get memory block a with GETBLK
+YC d:mask show directory
+
+Memory Map
+The shell and the monitor both use the zeropage addresses
+from 64-128 ($40-$80) and memory addresses from 768-1024 ($300-$400).
+In addition to this, of course the stack ($0100-$01ff) and the PCBUF
+Send buffer ($0200-$02ff) are being used.
+
+
diff --git a/dump/oa-2.0.9/doc/nommu.html b/dump/oa-2.0.9/doc/nommu.html
new file mode 100644
index 0000000..2ff8b60
--- /dev/null
+++ b/dump/oa-2.0.9/doc/nommu.html
@@ -0,0 +1,78 @@
+
+ OS/A65 Operation without MMU
+
+ OS/A65 Operation without MMU
+
(c) 1989-98 Andre Fachat
+
+Using OS/A65 without an MMU used to require some special measures. One of it
+was to coordinate all running tasks concerning their memory usage.
+With the new relocatabel o65 fileformat the lib6502 implemetation
+takes care of that.
+
+This means when building lib6502 programs, you do not have to actively
+care about the stuff below, but it is probably good to know anyway.
+
+There is one thing that's difficult to handle on a 6502, the stack.
+It's only 256 byte large (small that is...). And with a multitasking
+OS the stack has to be used by several programs at the same time.
+One approach is to copy the stack contents to another place every time
+a task switch is done. But that's a big speed penalty.
+Instead I split the stack into 6 pieces, 5 of them for a task and the
+last one for the system. So on a system without MMU, only five tasks
+can be running concurrently.
+
+With version 1.3.9 we got a new config option, STACKCOPY. With this option
+the stack of a task is saved in some save area when doing a task switch.
+This is slower, but allows much more stack space in a task and much more
+tasks.
+
+There is one other thing that cannot easily be coordinated - the SEND buffer.
+This buffer is used for communication with the kernel. As
+OS/A65 originated from a system with MMU, there was no real need not to
+use an absolute address for the buffer,
+thus saving registers for other purposes.
+For all systems now the usage of the SEND buffer
+has to be coordinated between the tasks. Therefore
+a system semaphore is used.
+
+#define SEM_SENDBUF <-1
+
+Before accessing the SEND buffer at $02**, the task has to allocate
+it with a PSEM operation on the SEM_SENDBUF semaphore.
+After the system call, it has to be freed with a VSEM operation.
+
+Well, and here we are with the known resource allocation problem.
+Imagine two tasks communicating via send/receive. Then, if the order
+in which messages are sent is not fixed and therefore predictable,
+precautions against a lock have to be taken: task 1 allocating the
+send buffer to send a message to task 2. The same time task 2 tries
+to allocate the send buffer to send a message to task 1. If it not
+tries to receive messages while waiting for the semaphore, it will lock.
+
+Therefore the filesystems, for example, do not release the send buffer
+while executing a command or open a file. In the meantime another
+task could send a message to the filesystem, locking the send buffer.
+But the buffer is needed by the filesystem to send the reply message.
+The filesystems in their current form are not prepared for this situation,
+so that they don't release the send buffer.
+
+Be careful when using the send buffer - you are warned!
+
+
+The lib6502 library is thread-save. It can be used by any thread at any
+time. Internal locks (semaphores) are used to avoid any interference if
+necessary.
+
+
+Suggested reading: "Operating Systems, design and implementation", Andrew S.
+Tanenbaum, Prentice-Hall
+
+
diff --git a/dump/oa-2.0.9/doc/oa1.html b/dump/oa-2.0.9/doc/oa1.html
new file mode 100644
index 0000000..8edcb73
--- /dev/null
+++ b/dump/oa-2.0.9/doc/oa1.html
@@ -0,0 +1,656 @@
+
+ OS/A65 Multitasking OS for 6502
+
+ OS/A65 Multitasking OS for 6502
+
(c) 1989-96 Andre Fachat
+
+
+This is the description of a small operating system for the 6502 CPU.
+It is a microkernel design, with preemtive multitasking, without
+memory protection and swapping though. With a page mapped MMU the
+different tasks are paged out and memory up to 1 MByte is supported.
+Available software includes a shell with piping and I/O redirection,
+filesystems for (Commodore serial and parallel) IEEE488 interface,
+as well as for PC-style disks. Devices can be handled as files as well.
+A BASIC interpreter has been ported from the C64.
+A version for the C64 is available with version 1.3.5.
+
+A description of the kernel interna, the kernel interface and the
+standard library is given.
+Some of the devices and filesystems are introduced.
+
+
+
+OS/A65 has been written from somewhere in 1989 or 1990 up to the end of 1992
+and is currently in version 1.35. It runs on a selfbuilt 6502 computer
+with (or without) a 74ls610 MMU to allow task paging.
+
+This system has been written for a special 6502 computer, as described
+below. But then the kernel is completly hardware independent,
+device drivers doing all the hardware interface stuff.
+A special MMU is used to allow task paging, which gives lots
+of interesting features. A version for computers without MMU
+is available, though. In this version the different tasks
+have to be cooperative, in that different zeropage/RAM addresses
+have to be used.
+
+All tables, like environment tables, or streams etc are static, i.e.
+their sizes are fixed at compile time. Otherwise a very sophisticated
+memory allocation/free handler for kernel memory would have been necessary.
+This would have used much of the CPU power and of the system RAM for
+administrative needs only. I didn't want this.
+
+If an IRQ occurs, the current process is marked interrupted and
+the next runnable task is being started, thus providing preemptive
+multitasking. A simlpe round robin scheduler is being used.
+No threads are available, as the CPU needs to have its stack
+in $01xx in memory. The non-MMU version is a kind of threaded
+system, as the memory is the same for all tasks, but the stack
+at $01xx being divided into several parts for the different tasks.
+
+The MMU maps memory pages of 4k size. The kernel is within the uppermost
+4k, to include the 6502 Reset, IRQ and NMI vectors. I/O ports are
+mapped to $e800 to $efff. The rest of the memory can be mapped from
+the maximum total available memory of 1 MByte in 4k Blocks.
+Each task has its own memory environment, i.e. has its own view of the
+memory. It communicates with the system only by the means of kernel
+calls. Therefore the kernel provides a message-sending interface, as well
+as simple signals and semaphores.
+
+Data transfer is done via 128 byte sized fifos, called streams. The
+stream management as well as the memory manager are within the kernel,
+although it wouldn't be necessary. For performance reasons the filesystem
+manager is in the kernel as well. It dispatches the messages sent to
+the filesystem to registered filesystem tasks.
+
+The system structure looks like the following diagram.
+
+
+ ---------- --------- --------- ------ -------
+ | fsdev | | fsiec | | fsibm | | sh | | mon | tasks...
+ ---------- --------- --------- ------ -------
+ ---------------------------- -------------- ----- ---------- --------
+ | | | | fsm | | | | | | |
+ | | env | -------------- | | | | | |
+ | | ------------------ | | stream | | mem |
+ | | | | | | |
+ | -------------------------------------- | | | |
+ | devices | | | | |
+ ------------------------------------------------- ---------- --------
+ --------- ------- ----------- ----------
+ | video | | par | | spooler | | serial | devices...
+ --------- ------- ----------- ----------
+
+
+
+The CS/A hardware consists of several boards, one for the CPU and MMU,
+one for the ROM, 32k RAM and
+some basic I/O hardware. A video board with 64k RAM gives PAL
+(european video standard, as opposed to NTSC) b/w video output. A high
+resolution mode is available. There is a standard PC floppy drive
+interface, two serial interfaces (unfortunately without fifo), a
+parallel printer output, a keyboard interface, and a parallel IEEE 488
+interface. A serial - Commodore compatible - IEC bus interface is
+available as well.
+Most interfaces, i.e. chip addresses and I/O connections are compatible
+to the old Commodore CBM 3032 computer. Some things have been changed
+to avoid connections between different boards, though (A 3032 emulator
+is working).
+And of course new interfaces have been added, e.g. an infrared LED to
+control audio or other equipment by infrared commands.
+A special interface card and cable allows to replace a 6502 in an existing
+computer and make its 64k memory part of the CS/A memory.
+
+
+
+The size of the kernel is 4 kByte and it is located at $f000 in
+CPU address space. Kernel entry takes place with an IRQ, an NMI
+or via kernel call. These calls take place via a jumptable
+located at $f000, the beginning of the kernel.
+
+
+It is possible to get into the kernel through an CPU interrupt or a
+direct kernel call. After an IRQ the CPU registers are saved on the
+stack and the kernel is entered via a special routine 'memsys'.
+This transparent (i.e. no registers except stack pointer are changed)
+routine switches from Task environment to system memory environment.
+Each kernel call has, as one of the first instructions, a call to this
+routine to enter kernel address space. A similar routine, 'memtask',
+is called at kernel exit to enter task memory space.
+
+
+A task can be described by the memory map it is using and the CPU registers.
+Interrupting a task and saving this information allows to restart the task
+later. Here, in addition to this, a task has some additional properties.
+The mapping of the STD* streams is saved in the environment table as well
+as an optional task interrupt routine (if enabled at compile time).
+The task status shows if a task is blocked, interrupted, runnable
+or has executed a BRK opcode (which stops the task).
+No resource bookkeeping is done. A task has to release all resources
+it has allocated by itself, except for the STD* streams.
+
+GETENV allocates a new environment struct in the kernel (which
+can be freed with FREENV). With SETBLK the MMU mapping of
+bus address space to CPU address space for an environment can be
+manipulated. READ and WRITE allow other tasks to manipulate the
+contents of another environments memory.
+
+With FORK an environment then becomes a task, i.e.
+starts to live. TERM and KILL allow the task itself or another task
+to remove the task and free the environment struct. WTERM waits until
+a task has terminated. TRESET resets the PC of a (running) task to
+another address (really dirty trick...).
+
+GETINFO gives an overview of how many tasks are in use and what is
+their status. At the moment a maximum of 16 tasks (with MMU) is
+possible.
+
+
+Devices are a different kind of object. They have their memory
+mapping as well, it just simply consists of one memory page.
+Then devices are not really running tasks but they are
+waiting for a message, that is passed through the DEVCMD system call.
+The DEVCMD call registeres new devices and provides an interface to
+the devices. When calling a device, the device memory mapping is
+established and the device entry point is called as a subroutine.
+After the return the control goes back to the calling task.
+The DEVCMD interface is even reentrant: the video device allows
+interrupts to occur during device execution so that, for example,
+serial devices can be served without loosing characters (Of course
+the video device itself has a mutex construct builtin to avoid
+confusion).
+
+
+The memory management routines are independent from all other
+routines. For performance reasons they are in the kernel and not
+put into a separate task. At startup no memory is available.
+The kernel then tests the memory, gets its size and calls ENMEM
+to register usable RAM to the memory handler. The video
+driver does the same at startup when adding the video RAM to the
+system. GETMEM can then be used to get a free block of RAM.
+GETBLK tries to allocate a specific memory block where, for example,
+some special hardware like the video buffer is mapped in.
+FREMEM releases an allocated memory block. According to the system
+hardware a set of 256 memory blocks can be handled, which make up
+1 MByte of memory. The memory routines can not be called from within
+an interrupt.
+
+
+Streams, as this word is used here, are 128 byte FIFO buffers to allow
+easy data transfer. The stream routines can be called from within an
+interrupt. Each stream counts how many tasks are writing and reading
+from it. If both counters are zero, the stream is free. If only one is
+empty, special return codes are generated to indicate the situation.
+At a fork, for example, the number of writing tasks is incremented for
+STDOUT and STDERR, while the number of reading tasks is incremented
+for STDIN. After a task has exited, the STD* counters are decremented.
+A filesystem listening on the tasks STDOUT stream then
+gets the return code E_EOF, because no task is writing on the stream
+anymore.
+STD* streams are negative stream numbers and are the same
+for all tasks. They are mapped to the real stream numbers that are being
+kept in the environment table for each task. All other stream numbers are
+global and there is only a limited set of stream, as they are
+statically allocated.
+
+
+The message interface provides another easy means of interprocess
+communication. Messages are exchanged using the rendez-vous technique,
+i.e. both involved tasks have to be in the SEND respectively RECEIVE
+routine. The SEND routine always blocks until the given message is
+taken over by the receiving task. RECEIVE either waits for a
+message or returns with E_NOTX if no message has been found.
+The message is then copied from the senders message buffer (at $02xx)
+to the receivers message buffer (at $02xx). The return values are set
+and both tasks are marked runnable.
+If a RECEIVE blocks and a SEND takes place, both tasks are marked
+waiting at first, but the scheduler detects that and lets them
+exchange the messages.
+While RECEIVE gets messages from
+any task, XRECEIVE allows to receive messages from a certain task
+only.
+
+Negative task numbers are used for special purposes. Certain system
+calls, that need more parameter than fit into the CPU registers
+can be called not only via jumptable but also via the SEND interface.
+For this, the -1 ($ff) is used for system calls. -2 ($fe) is
+used for the file system manager. -3 to -12 ($fd-$f4) can be
+mapped to any other task by the TDUP system call. -3 is reserved
+for an error exception handler and -4 for a timer task. Messages
+to these task numbers are internally redirected to the registered task.
+
+
+As the 6502 CPU has no idea about atomic operations, semaphores have to
+be provided by the system to allow mutex constructs
+(Well, there are atomic instructions, like INC or the shift opcodes. But
+then there is - in not-CMOS versions - no test-and-set). Semaphores
+can be allocated using GETSEM
+and released with FRESEM. Then with a PSEM operation on a certain
+semaphore a task can enter a critical region of the program. All other
+tasks block when they try to do the same PSEM operation. Only after
+a VSEM on the semaphore another task waiting in a PSEM is revived
+and can enter the critical region.
+Negative semaphore numbers cannot be allocated but can be used as some kind
+of system semaphores. What they mean has yet to be defined, though.
+
+
+Signal handling consists of a single system call. With the carry flag
+cleared, the calling task is blocked until a specified signal is received.
+With the carry flag set, a signal is sent. Only listening tasks receive
+the signal.
+
+
+Disks are
+administered as drives, as a virtual filesystem with mounts etc
+would have been to much for this system.
+The filesystem manager should actually be another task and is in the
+kernel only for performance and resource limitation reasons.
+The TDUP interface would provide an easy way to register a filesystem manager,
+if it were an extra task.
+But then the used filesystem manager just redirects the send message
+'on the fly'. An extra task would have to receive the message,
+redirect it and send it to the filesystem task - blocking until
+the message is taken over!
+
+When a filesystem task, e.g. for IBM PC disks, is started, it registers
+itself with the filesystem manager by sending an appropriate message
+to task -2 ($fe). The filesystem then knows about how many drives are
+supported by the filesystem and adds them to its list. A request to, e.g.
+open a file is sent to the filesystem manager. From the drive number
+the file system manager knows to which task to redirect the message.
+It also remaps the drive number to the ones used in the filesystem
+task.
+
+Once a read-only or write-only file is opened, all communication takes
+place via streams. Another interface, using read and write messages
+is planned, but has not yet been implemented. Some filesystems (like
+fsiec for Commodore floppy drives) wouldn't even support it.
+
+
+The standard library of OS/A65 v1 has been replaced by the
+lib6502.
+The so called standard library is a set of
+subroutines that tasks may
+map into their memory or not. The library is below the
+I/O area, at $e800. Directly below $e800 the jumptable for the
+library is located. All routines run in task space, and have no
+connection to the kernel, except for calling normal system calls.
+
+
+All filesystem tasks use a common Filesystem
+Interface to communicate with other tasks. The SEND/RECEIVE
+calls are used to open files, while the Streams are used to transfer the
+data. The filesystem manager redirects the SENDs to the right
+filesystem tasks automatically.
+
+The device filesystem provides an easy interface to devices, in allowing
+them to be used as files. A request to open the device, for example,
+is served by calling the appropriate DEVCMD commands.
+
+fsdev also provides an easy interface to the ROM structure. The
+programs stored in the system can be started from there. They cannot
+be read, as only a header is being provided. This header, when used
+to start the program, remaps the ROM into the task memory. This way
+one need not move all the program through the stream interface.
+
+
+This filesystem can be used in two directions. First it provides an
+interface for CS/A to access Commodore disk drives on an IEEE 488
+interface. Reading directories as well as renaming and deleting files and
+formating and checking disks is supported.
+
+The other way around with fsiec the CS/A computer can be used as a disk
+drive for Commodore computers. The filesystem drives are mapped to the
+drives 0-? of a single drive unit on the IEEE 488 bus. In addition to the
+standard IEC floppy commands directory handling is supported. For
+programs that only understand one drive, drives can be remapped with
+assign.
+
+
+The FAT filesystem is used to control and handle PC-style formatted disks
+on standard PC disk drives on the CS/A floppy board. Several
+3.5" and 5.25" formats are supported, up to 1.44 MByte 3.5" HD disks.
+As hardware a WD1770 floppy controler at address $e8e0 is used. A 6522 VIA
+at $e8f0 provides some additional control lines for drive select, motor on,
+etc.
+
+For those who remember: I wrote the program 'bdos' for the german 64er
+magazin, which allowed the C128 to read and write PC disks. fsibm
+has not a byte of code from this project, instead it is completely
+rewritten.
+
+One flaw of this filesystem is that it assumes it has the floppy
+controller for itself. So there is no way to share it, e.g.
+with a disk monitor. The next revision should define a semaphore
+for this.
+
+
+
+The shell is a command line interpreter that
+provides an easy to use interface to the system. A scripting language is
+not available, though. For external commands and some internal commands
+like DIR and more I/O redirection is possible. I.e. that the STD*
+streams can be redirected to a file or even piped to other programs.
+
+
+'mon' is a full featured 6502 assembly and
+machine language monitor. Among the usual standard commands other
+features like, for example, relocating 6502 in a certain area or
+searching for opcodes with specified addressing modes is possible.
+
+
+The BASIC interpreter is an extended Commodore
+Basic V2 interpreter as found in the C64. In fact it is de-assembled
+from the C64 and patched to make it work on CS/A. In addition, some
+commands have been changed and new commands have been added, amongst
+them the Commodore Basic V4 commands. In contrast to the C64 basic
+interpreter, it runs in multitasking and you can quit ;-)
+
+
+
+The used CPU is a quite old one: the MOS 6502 or one of its clones,
+like the Rockwell R65C02, for example. This 8 bit CPU has been designed
+in the early 70s (?) but is still in use. The Rockwell modem chipset,
+for example, is based on a R65C02 core. The CPU has one general purpose
+8 bit register, the accumulator. Two 8 bit index registers, x and y, help with
+addressing modes. The PC is 16 bit wide, as is the address bus to the
+outside of the chip. The stack pointer is only 8 bit, thus confining
+the stack to the area $01xx in memory. The so called zeropage ($00xx)
+is used with special addressing modes to allow smaller code and
+faster execution times by leaving out the address high byte.
+An 8 bit status register completes the register set.
+
+The hardware interface is quite simple. In fact it is compatible to the
+motorola 6800 series chips. Commodore lost a lawsuit started by Motorola
+where commodore
+was forbidden to use the number 6500 (or was it 6501) and the same
+pinout as the 6800 chip, thus making it a plug in replacement for the
+Motorola chip. But then they could use the hardware interface,
+though. Which means that one can simply use any 68xx interface chip
+with a 6502 and vice versa.
+
+Phi2 is the CPU clock output. During Phi2 high all address lines and
+the read/write line are valid. Data is given on the data bus for write
+somewhere in the middle of Phi2 high and it stays valid until the
+Phi2 high-low transition. During read the data lines are latched
+at the same transition. The CPU always reads some memory addresses,
+even if its really doing something else.
+
+/RESET, /NMI and /IRQ are the most important input lines. They are
+low active and the I/O chips have open collector outputs so that
+they can be wire-or'd together.
+
+
+The hardware consists of several boards, connected by a 64 pin
+bus interface (DIN 41612, rows a+c). On the bus are 20 address
+lines and 8 data lines. /NMI, /IRQ, /RESET, /SO, RDY, SYNC and R/W
+are the usual (buffered) 6502 control lines. Phi0, Phi1 and Phi2
+are on the bus as well as a 2Phi2, which is a frequency doubled
+phi2. Each low-high transition on 2Phi2 gives a
+transition on Phi2. This can, for example, directly be connected
+to /RAS of dynamic RAMs.
+
+
+The CPU boards detects any access to a 4 or 2 kByte sized Area
+from $e000 or $e800 to $efff and automatically selects the bus
+line /IOSEL, and /MEMSEL otherwise. This way a simple 8 bit
+compare with, for example, a single 74688 with the address
+lines A4 to A11 selects a 16 byte I/O window for any interface
+chip.
+/IOINH(ibit) disables this feature, but therefore the I/O
+memory has to be detected from normal memory access
+(via /MEMSEL) and /EXTIO be activated therefore from an
+external circuit.
+(Well, the next revision should see /IOSEL as an open collector
+output...)
+
+All interface circuits, even including the MMU on the CPU
+board, are connected to the bus lines. The CPU
+can be cut off from the bus with /BE, thus allowing other
+CPUs or bus masters to take the bus and even access the MMU.
+The CPU has to be shutdown with
+RDY for this, though.
+
+
+The 74ls610 (used to be on the COCOM list, haha...) is
+a set of 16 12 bit registers, where only 8 bit are used
+here. During Phi2 low the CPU address lines A12 to A15
+are used to select the appropriate register and latch its
+contents to the output address lines A12-A19. Unfortunately
+this chip is quite slow (I'd say that a hand-constructed thing
+would be much faster...) so that for 2 MHz CPU clock
+a 4 MHz (CMOS) CPU has to be used.
+During Phi2 high the I/O access
+to read and write the registers from the bus takes place.
+At RESET the MMU is set to 'through' mode, i.e. the
+CPU address lines A12 to A15 are passed through and
+A16 to A19 are left zero, to allow a defined RESET
+condition. The first I/O write on the MMU registers
+then enables it.
+Then the CPU memory is divided into 16 4 kByte blocks, that
+can each be mapped from one of the 256 4 kByte Blocks in the
+1 MByte bus address space by setting the MMU registers.
+
+
+
+The video board has 64 kByte dynamic RAM that is used as
+video and CPU memory and a 6545/6845 video CRT controller.
+The memory access is twice as fast as the CPU access, so that
+during Phi2 low the video readout is done and at Phi2 high
+the usual CPU access takes place. The lowest address bits
+are connected to the row, so that the video access
+automatically refreshes the RAM. With 1 MHz CPU clock
+40 columns are displayed, with 2 Mhz 80 columns can
+be seen. The CRT is located at $e880 in I/O space, and
+a write only control port at $e888. This port gives the
+missing address lines A14 and A15 for the CRT, 2 bits
+to select the charset (located in an EPROM on the board
+that can not be read by the CPU) and 2 bits to invert
+the HSYNC and VSYNC signals if necessary.
+The last used bit maps the CRT row select lines
+RA0 and RA1 (that normally select the character row
+in the charset)
+to the RAM/CPU address lines A12 and A13. This way -
+and with a 1 to 1 charset - some high
+resolution mode with 640x200 pixel is possible, with
+a rather strange memory map, though.
+This is necessary due to the 127 row limit in the CRT.
+
+An IEEE 488 board with a 6821 PIA at $e82x and a 6522 VIA
+at $e84x makes up a mostly Commodore PET 3032 compatible
+IEEE 488 interface. The PIA is used for the data transfer,
+while the VIA port A is used for the control lines.
+VIA port B controls a Commodore serial IEC bus interface.
+Both interfaces can be used as master or slave, i.e.
+the have the circuitry to set NRFD/NDAC on the IEEE 488
+and the DATA (?) line on the serial bus, if ATN on the bus
+is set. So the master can see that there is a device on
+the bus, even if it isn't ready to serve the request.
+VIA CA2 can be externally connected to the
+video card to allow PET compatible switching between
+upper/lowercase and uppercase/graphics charset.
+VIA CB2 drives, PET compatible of course, a piezo beeper ;-)
+
+At $e810-$e817 is, as in a PET, a 6821 PIA to handle the
+keyboard, while on the same board, at $e818-$e81f, a
+6551 ACIA (which is not in a PET ;-) to handle a serial
+interface is located.
+
+The same ACIA is also located on the BIOS board, that also contains
+32k ROM and 32k RAM that make up the lowest 64 kByte of the
+Megabyte bus address space. This BIOS card together with
+the CPU makes up a complete computer. The ACIA is at $efe8-$efef,
+while at $efe0 a control port is located.
+One bit allows the detection of an IRQ (e.g. to stop the irq
+routine if all interrupts are served), two others are used
+to control and sense a 50 Hz (line frequency in Europe, which
+is put on the bus by the power supply) interrupt.
+Two other bits control the /IOINH line and allow the I/O address
+space to be located in $0e000-$0effff in bus (!) address space,
+so that it can be mapped anywhere in CPU address space.
+
+On the floppy board a WD 1770 (like in the Commodore
+VC1571) chip at $e8fx can control PC compatible disk drives.
+A 6522 VIA at $e8fx supplies the timers and some additional
+I/O lines and also gives a simple 8 bit parallel interface
+(for e.g. printers).
+
+A special interface board emulates a 6502 in another computer
+(restricted to 1 MHz or below). A 40 line cable is used
+to connect the socket for the 6502, e.g. in a VC1541, with the
+board. The 64 kByte address space of this VC1541 is then
+mapped into the bus address space $02000-$02ffff. So you can,
+for example, test new ROMs by putting the new ROM image in
+the CS/A RAM and then remapping it for the old ROMs.
+
+The C64 uses 8 select lines to select the keyboard rows.
+The return value is then read in by 8 column port lines.
+This simply is a RAM readout scheme - so that a
+RAM can simulate a keyboard for the C64.
+The keyboard simulator board provides such a RAM. It can
+be written or read by the CPU during Phi2 high, and the
+row select address from the C64 is read at Phi2 low and
+latched. So, for example, the C64 can be controlled remotely.
+
+
+Currently two ports have been done. One is a port to the CS/A65 without
+MMU, to use it in embedded applications I had in mind. The other one
+is the C64 port.
+
+
+The port to a system without MMU is one of the more difficult.
+The problem is, that global variables cannot be mapped to different
+physical memory locations for different tasks. So this has to be
+avoided. Unfortunately there are global variables used to communicate
+with the kernel nearly everywhere. So these variables have to be
+protected by semaphores. Another thing is that a binary can normally
+only be invoced once. All variables would otherwise be the same for all
+invocations and running different tasks on them would normally
+give a real mess. More on this issue can be found in
+nommu.html.
+
+
+After porting it to a system without MMU, there was only a small step
+porting it to the C64. The first implementation used the Commodore
+parallel IEEE488 interface, as it's easier to program - and simulate
+in an emulator... But after all, it has the same deficiencies as any
+other system without MMU. More details on the actual implementation
+can be found in README.c64.
+On the other hand, to be really useful without an MMU besides
+embedded applications, some things are still missing.
+A program relocator, for example, would make it much easier in that
+the applications don't have to be assembled to a certain memory area.
+Instead they could be relocated to some free memory when being loaded.
+
+
+The C128, for example, would surely be a good candidate for a new
+version: It can map the zeropage and the stack anywhere in memory and
+can thus have different ones for each task. In addition to this, a
+relocator would have to be implemented, to be able to load programs to
+any address. The (to be implemented new) memory manager then has to
+keep track of which memory is used for each program. If one says that
+read/write memory (i.e. global variables, except zeropage) should only
+be dynamically allocated, one could even use shared read only binaries.
+I.e. several invocations would only use one copy of the binary while
+running. Global variables used would be global to all invocations,
+giving some kind of task shared memory. A flag in the file header could
+indicate the relocator and/or shared binary mode.
+
+
+Well, a next version is not planned currently. But then the whole
+stuff is under the GNU public license and could be used by anyone.
+
+The new binary format with relocation would surely justify a jump
+to version 1.4. This would make it much more usable for the C64. But
+for this not only the relocator has to be written, but also the assembler
+has to be changed to write out a relocatable file format.
+This would also imply an extended memory manager, that keeps track
+which memory is used by which task. And it would also use a smaller
+block size than 4kByte.
+
+
+Well, there used to be some very few spurious BRK executions in a task.
+That's why I reduced the maximum number of tasks from 6 to 5, increasing
+the individual stack size to 40. The previously smaller stack size of
+32 seemed to cause this problem, which seems to be gone now. The problem
+is that a normal
+interrupt alone needs 10 bytes on each tasks stack - one can reduce
+that, but with some effort only.
+When pressing the return key, sometimes the invers cursor stays on the
+screen, causing the program to give a syntax error or whatsoever
+when it reads a $a0 from its input stream.
+
+But other than that, none. But I haven't tested the C64 version
+as much as the one for my selfbuilt computer. So there might still
+be bugs in the serial bus handling or in the stuff special to computers
+without MMU.
+
+Ok, when starting up the ROM, the initial tasks are set up and then the
+scheduler is started. This might cause problems when e.g. a filesystem
+is not fast enough detecting its drives during the first scheduled
+timeslice. Another filesystem might come in between so that the drive
+numbers could be assigned in a different order.
+
+Possible improvements are:
+
+- A malloc() equivalent, that could be located in the STDIO lib.
+At least some kind of sbrk() call we already have in the kernel.
+
- A relocator to be able to load binaries to different memory locations,
+esp. for the versions without an MMU.
+
- There currently is no way to handle shared memory (in the MMU version)
+in a generalized manner. I think of somethink like a Unix (Linux) mmap()
+equivalent.
+
- The data transfer via streams is quite slow. Another interface
+to handle block transfer would surely improve things. Something like
+'copy memory from task A, address x length l to task B, address y'.
+
- Starting a new task from within the shell is way too slow. Reading
+a file and writing it to another environments memory with the WRITE
+system function takes its time. Instead the shell should just load a small
+loader program into the new environment. This then reads the program
+from the stream and executes it.
+
+
+
diff --git a/dump/oa-2.0.9/doc/oldlib.html b/dump/oa-2.0.9/doc/oldlib.html
new file mode 100644
index 0000000..9d20c72
--- /dev/null
+++ b/dump/oa-2.0.9/doc/oldlib.html
@@ -0,0 +1,59 @@
+
+ OS/A65 Standard Library
+
+ OS/A65 Standard Library
+
(c) 1989-98 Andre Fachat
+
+
+The CS/A65 standard library is a set of routines that run in user space and
+can be called if the appropriate memory page ($e000-$e7ff) is mapped in
+from the system ROM (at $0e000 bus address space).
+The zeropage addresses $10-$28 are being used by the library at this
+time.
+
+$e7fd Fgetc Get a byte from a stream, and wait until the byte is ready,
+ using YIELD. parameter: stream number in x, returns
+ the read byte in a
+$e7fa Fputc Write a byte on a stream, waiting until it can be delivered
+ parameter: stream number in x, data byte in a
+$e7f7 Getc same as Fgetc, for STDIN
+$e7f4 Putc same as Fputc, for STDOUT
+$e7f1 Txtout Write a null terminated string up to 254 byte to STDOUT
+ parameter: a/y=address of string (a=lowbyte, y=highbyte)
+$e7ee Hexout Write a byte to STDOUT in hex. parameter: byte in a
+$e7eb Crlfout Write carriage return and line feed to STDOUT
+$e7e8 Serbrk reads the status of STDIN and tests if it is E_SEMPTY
+ If it is, carry is cleared, otherwise it is set.
+$e7e5 Dezbout writes a byte in decimal to STDOUT
+$e7e2 Assign handles a 10 byte table, that is e.g. used to implement
+ the assign command in fsiec
+ (carry=0): reads a table entry. parameter: table index in x,
+ returns new value in x (a and y are preserved)
+ (carry=1, x<0): initialize table with a[i]=i
+ (carry=1, 0<=x<10): write new table value
+ parameter: table index in x, new value in a
+$e7df Getname reads a string from memory and tries to interpret it as
+ a filename (with possibly leading 'drive:' and paths...)
+ leading spaces are ignored. The filename is saved in
+ PCBUF+FS_OPEN_NAME. If a drive is given, it is put
+ into PCBUF+FS_OPEN_DRV. Otherwise this is set to -1
+ parameter: a/y=address of string, returns PCBUF+...
+$e7de Chdir takes the contents of PCBUF+FS_CMD_* and interprets it as
+ a 'change directory' operation, to be done to a given
+ path. "." and ".." are interpreted as usual.
+ parameter: a/y=address of path, x maximal length of path
+$e7d9 Usedir Takes a path and applies it to a filename in PCBUF.
+ If the filename in PCBUF contains a drive or an absolut
+ filename is given, nothing is done. Otherwise the
+ the path is put in front of the filename and is put
+ into PCBUF again. The path is not changed. "." and ".."
+ are not removed here.
+ parameter: a/y=address of path, PCBUF+...
+ returns new filename in PCBUF+...
+$e7d6 Set2name copies a string into PCBUF
+ parameter: a/y=address of null terminated string,
+ position the name has to be copied to in PCBUF in x.
+
+
+
+
diff --git a/dump/oa-2.0.9/doc/shell.html b/dump/oa-2.0.9/doc/shell.html
new file mode 100644
index 0000000..f3f2b5f
--- /dev/null
+++ b/dump/oa-2.0.9/doc/shell.html
@@ -0,0 +1,63 @@
+
+ OS/A65 Shell Commands
+
+ OS/A65 Shell Commands
+
(c) 1989-98 Andre Fachat
+
+The shell reads its commands from STDIN line by line and executes them.
+First internal commands are compared with the input. Then, if no
+internal command has been found, the actual directory is searched
+for the file to be executed. The file is then loaded and executed
+in its own environment. The shell waits for its completion, if the
+command line is not ended with an ampersand '&'. Then the command
+is executed in the background. The STD* streams can be redirected
+with "<", ">", "!" for STDIN, STDOUT and STDERR respecitvely.
+A "|" between two external comands pipes the STDOUT of the first
+program to the STDIN of the second command.
+
+Shell commands:
+
+x: sets drive to 'x:'
+DIR d:name?.* shows directory
+TYPE filename print file on STDOUT
+DEL filename delete file
+FORMAT/x d:name format disk in drive d:, format x (which is a
+ number, see fsibm), and gives it a the name
+ 'name'.
+CHKDSK d: check disk
+RENAME name1 name2 renames 'name1' to 'name2'
+B filename
+BATCH filename Switches STDIN to filename, until an EOF is
+ read, then returns to normal STDIN
+MONITOR switch to machine language monitor
+LOGOFF exit shell
+COPYCON filename writes the terminal input to a file, until
+ a line with a "@" is read.
+DUP >file1 <file2 !file3
+ redirects STDOUT to file1, STDIN to file2, and
+ STDERR to file3. STDOUT and STDERR can be redirected
+ to the same file with ">!".
+CHDIR newdir
+CD newdir change to a new directory
+DEVCMD dev cmd par calls the DEVCMD kernel call. The device is given
+ as name, cmd as one of IRQ, RES, GETSTR, PUTSTR,
+ RXON, RXOFF, TXON, TXOFF, SPEED, HANDSHAKE, STATUS
+ and EXIT.
+COPY file1 file2 copy file1 to file2 in background
+ (for multiple files better use mcopy, as
+ copying in the background eats up system resources
+ if too many files are copied)
+GETSTR get a free stream
+FRESTR x release the stream
+SETMEM x set memory size of task to x times 4kByte
+INFO prints the information given by GETINFO kernel
+ call bug: currently only ten tasks are printed
+ due to earlier revision restrictions.
+KILL x kill task x
+MKDIR dirname make a new directory
+RMDIR dirname remove a directory
+ROM filename reads memory mapping information (like the OS/A65
+ ROM boot entry) and starts the file from ROM.
+
+
+
diff --git a/dump/oa-2.0.9/include/README b/dump/oa-2.0.9/include/README
new file mode 100644
index 0000000..e3134ed
--- /dev/null
+++ b/dump/oa-2.0.9/include/README
@@ -0,0 +1,13 @@
+
+The chips directory keeps the register definitions
+for the several used chips.
+
+Other include files are OS structures that are used by other
+programs.
+
+Here also go include files from programs that need their stuff
+exported to other programs.
+
+Architecture dependent stuff goes to the arch directories
+
+
diff --git a/dump/oa-2.0.9/include/chips/acia6551.i65 b/dump/oa-2.0.9/include/chips/acia6551.i65
new file mode 100644
index 0000000..eab1a61
--- /dev/null
+++ b/dump/oa-2.0.9/include/chips/acia6551.i65
@@ -0,0 +1,34 @@
+/****************************************************************************
+
+ OS/A65 Version 1.4.0
+ Multitasking Operating System for 6502 Computers
+
+ Copyright (C) 1989-1997 Andre Fachat
+
+ This program is free software; you can redistribute it and/or modify
+ it under the terms of the GNU General Public License as published by
+ the Free Software Foundation; either version 2 of the License, or
+ (at your option) any later version.
+
+ This program is distributed in the hope that it will be useful,
+ but WITHOUT ANY WARRANTY; without even the implied warranty of
+ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+ GNU General Public License for more details.
+
+ You should have received a copy of the GNU General Public License
+ along with this program; if not, write to the Free Software
+ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
+
+****************************************************************************/
+
+#ifndef ACIA_DR
+
+/* ACIA 6551 */
+
+#define ACIA_DR 0
+#define ACIA_SR 1
+#define ACIA_CMD 2
+#define ACIA_CTRL 3
+
+#endif
+
diff --git a/dump/oa-2.0.9/include/chips/cia6526.i65 b/dump/oa-2.0.9/include/chips/cia6526.i65
new file mode 100644
index 0000000..e8ac656
--- /dev/null
+++ b/dump/oa-2.0.9/include/chips/cia6526.i65
@@ -0,0 +1,46 @@
+/****************************************************************************
+
+ OS/A65 Version 1.4.0
+ Multitasking Operating System for 6502 Computers
+
+ Copyright (C) 1989-1997 Andre Fachat
+
+ This program is free software; you can redistribute it and/or modify
+ it under the terms of the GNU General Public License as published by
+ the Free Software Foundation; either version 2 of the License, or
+ (at your option) any later version.
+
+ This program is distributed in the hope that it will be useful,
+ but WITHOUT ANY WARRANTY; without even the implied warranty of
+ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+ GNU General Public License for more details.
+
+ You should have received a copy of the GNU General Public License
+ along with this program; if not, write to the Free Software
+ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
+
+****************************************************************************/
+
+#ifndef CIA_PRA
+
+/* CIA 6526 */
+
+#define CIA_PRA 0
+#define CIA_PRB 1
+#define CIA_DDRA 2
+#define CIA_DDRB 3
+#define CIA_TAL 4
+#define CIA_TAH 5
+#define CIA_TBL 6
+#define CIA_TBH 7
+#define CIA_TOD_10TH 8
+#define CIA_TOD_SEC 9
+#define CIA_TOD_MIN 10
+#define CIA_TOD_HR 11
+#define CIA_SDR 12
+#define CIA_ICR 13
+#define CIA_CRA 14
+#define CIA_CRB 15
+
+#endif
+
diff --git a/dump/oa-2.0.9/include/chips/pia6521.i65 b/dump/oa-2.0.9/include/chips/pia6521.i65
new file mode 100644
index 0000000..22b0f09
--- /dev/null
+++ b/dump/oa-2.0.9/include/chips/pia6521.i65
@@ -0,0 +1,34 @@
+/****************************************************************************
+
+ OS/A65 Version 1.4.0
+ Multitasking Operating System for 6502 Computers
+
+ Copyright (C) 1989-1997 Andre Fachat
+
+ This program is free software; you can redistribute it and/or modify
+ it under the terms of the GNU General Public License as published by
+ the Free Software Foundation; either version 2 of the License, or
+ (at your option) any later version.
+
+ This program is distributed in the hope that it will be useful,
+ but WITHOUT ANY WARRANTY; without even the implied warranty of
+ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+ GNU General Public License for more details.
+
+ You should have received a copy of the GNU General Public License
+ along with this program; if not, write to the Free Software
+ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
+
+****************************************************************************/
+
+#ifndef PIA_PA
+
+/* Struct PIA 6821 */
+
+#define PIA_PA 0
+#define PIA_CRA 1
+#define PIA_PB 2
+#define PIA_CRB 3
+
+#endif
+
diff --git a/dump/oa-2.0.9/include/chips/tpi6525.i65 b/dump/oa-2.0.9/include/chips/tpi6525.i65
new file mode 100644
index 0000000..d194582
--- /dev/null
+++ b/dump/oa-2.0.9/include/chips/tpi6525.i65
@@ -0,0 +1,38 @@
+/****************************************************************************
+
+ OS/A65 Version 1.4.0
+ Multitasking Operating System for 6502 Computers
+
+ Copyright (C) 1989-1997 Andre Fachat
+
+ This program is free software; you can redistribute it and/or modify
+ it under the terms of the GNU General Public License as published by
+ the Free Software Foundation; either version 2 of the License, or
+ (at your option) any later version.
+
+ This program is distributed in the hope that it will be useful,
+ but WITHOUT ANY WARRANTY; without even the implied warranty of
+ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+ GNU General Public License for more details.
+
+ You should have received a copy of the GNU General Public License
+ along with this program; if not, write to the Free Software
+ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
+
+****************************************************************************/
+
+#ifndef TPI_PA
+
+/* TPI 6525 */
+
+#define TPI_PA 0
+#define TPI_PB 1
+#define TPI_PC 2
+#define TPI_DDPA 3
+#define TPI_DDPB 4
+#define TPI_DDPC 5
+#define TPI_CREG 6
+#define TPI_AIR 7
+
+#endif
+
diff --git a/dump/oa-2.0.9/include/chips/uart16550.i65 b/dump/oa-2.0.9/include/chips/uart16550.i65
new file mode 100644
index 0000000..b117de7
--- /dev/null
+++ b/dump/oa-2.0.9/include/chips/uart16550.i65
@@ -0,0 +1,41 @@
+/****************************************************************************
+
+ OS/A65 Version 1.4.0
+ Multitasking Operating System for 6502 Computers
+
+ Copyright (C) 1989-1997 Andre Fachat
+
+ This program is free software; you can redistribute it and/or modify
+ it under the terms of the GNU General Public License as published by
+ the Free Software Foundation; either version 2 of the License, or
+ (at your option) any later version.
+
+ This program is distributed in the hope that it will be useful,
+ but WITHOUT ANY WARRANTY; without even the implied warranty of
+ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+ GNU General Public License for more details.
+
+ You should have received a copy of the GNU General Public License
+ along with this program; if not, write to the Free Software
+ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
+
+****************************************************************************/
+
+#ifndef UART_RXTX
+
+/* UART 16550 */
+
+#define UART_RXTX 0 /* DLAB=0 */
+#define UART_IER 1 /* DLAB=0 */
+#define UART_DLL 0 /* divisor latch low, DLAB=1 */
+#define UART_DLH 1 /* divisor latch high, DLAB=1 */
+#define UART_IIR 2 /* Irq Ident. Reg., read only */
+#define UART_FCR 2 /* FIFO Ctrl Reg., write only */
+#define UART_LCR 3 /* Line Ctrl Reg */
+#define UART_MCR 4 /* Modem Ctrl Reg */
+#define UART_LSR 5 /* Line Status Reg */
+#define UART_MSR 6 /* Modem Status Reg */
+#define UART_SCR 7 /* 'scratchpad', i.e. unused */
+
+#endif
+
diff --git a/dump/oa-2.0.9/include/chips/via6522.i65 b/dump/oa-2.0.9/include/chips/via6522.i65
new file mode 100644
index 0000000..56078fb
--- /dev/null
+++ b/dump/oa-2.0.9/include/chips/via6522.i65
@@ -0,0 +1,46 @@
+/****************************************************************************
+
+ OS/A65 Version 1.4.0
+ Multitasking Operating System for 6502 Computers
+
+ Copyright (C) 1989-1997 Andre Fachat
+
+ This program is free software; you can redistribute it and/or modify
+ it under the terms of the GNU General Public License as published by
+ the Free Software Foundation; either version 2 of the License, or
+ (at your option) any later version.
+
+ This program is distributed in the hope that it will be useful,
+ but WITHOUT ANY WARRANTY; without even the implied warranty of
+ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+ GNU General Public License for more details.
+
+ You should have received a copy of the GNU General Public License
+ along with this program; if not, write to the Free Software
+ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
+
+****************************************************************************/
+
+#ifndef VIA_DRB
+
+/* Struct VIA 6522 */
+
+#define VIA_DRB 0
+#define VIA_DRA 1
+#define VIA_DDRB 2
+#define VIA_DDRA 3
+#define VIA_T1CL 4
+#define VIA_T1CH 5
+#define VIA_T1LL 6
+#define VIA_T1LH 7
+#define VIA_T2CL 8
+#define VIA_T2CH 9
+#define VIA_SR 10
+#define VIA_ACR 11
+#define VIA_PCR 12
+#define VIA_IFR 13
+#define VIA_IER 14
+#define VIA_DRBX 15
+
+#endif
+
diff --git a/dump/oa-2.0.9/include/chips/vicii.i65 b/dump/oa-2.0.9/include/chips/vicii.i65
new file mode 100644
index 0000000..b3e47d8
--- /dev/null
+++ b/dump/oa-2.0.9/include/chips/vicii.i65
@@ -0,0 +1,55 @@
+/****************************************************************************
+
+ OS/A65 Version 1.4.0
+ Multitasking Operating System for 6502 Computers
+
+ Copyright (C) 1989-1997 Andre Fachat
+
+ This program is free software; you can redistribute it and/or modify
+ it under the terms of the GNU General Public License as published by
+ the Free Software Foundation; either version 2 of the License, or
+ (at your option) any later version.
+
+ This program is distributed in the hope that it will be useful,
+ but WITHOUT ANY WARRANTY; without even the implied warranty of
+ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+ GNU General Public License for more details.
+
+ You should have received a copy of the GNU General Public License
+ along with this program; if not, write to the Free Software
+ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
+
+****************************************************************************/
+
+#ifndef _VICII_H_
+#define _VICII_H_
+
+#define VIC_SPRITE_X 0
+#define VIC_SPRITE_Y 1
+#define VIC_SPRITE_XMSB 16
+#define VIC_CR1 17
+#define VIC_RASTERIRQ 18
+#define VIC_LPEN_X 19
+#define VIC_LPEN_Y 20
+#define VIC_SPRITE_EN 21
+#define VIC_CR2 22
+#define VIC_SPRITE_YEXP 23
+#define VIC_BASE 24
+#define VIC_IRR 25
+#define VIC_IMR 26
+#define VIC_SPRITE_PRIO 27
+#define VIC_SPRITE_MCOL 28
+#define VIC_SPRITE_XEXP 29
+#define VIC_SPRITE_SPR 30
+#define VIC_SPRITE_BGND 31
+#define VIC_EXT_COL 32
+#define VIC_BGND_COL0 33
+#define VIC_BGND_COL1 34
+#define VIC_BGND_COL2 35
+#define VIC_BGND_COL3 36
+#define VIC_SPRITE_MC0 37
+#define VIC_SPRITE_MC1 38
+#define VIC_SPRITE_COL 39 /* +0, ... ,+7 */
+
+#endif
+
diff --git a/dump/oa-2.0.9/include/chips/wd1770.i65 b/dump/oa-2.0.9/include/chips/wd1770.i65
new file mode 100644
index 0000000..8ee1257
--- /dev/null
+++ b/dump/oa-2.0.9/include/chips/wd1770.i65
@@ -0,0 +1,35 @@
+/****************************************************************************
+
+ OS/A65 Version 1.4.0
+ Multitasking Operating System for 6502 Computers
+
+ Copyright (C) 1989-1997 Andre Fachat
+
+ This program is free software; you can redistribute it and/or modify
+ it under the terms of the GNU General Public License as published by
+ the Free Software Foundation; either version 2 of the License, or
+ (at your option) any later version.
+
+ This program is distributed in the hope that it will be useful,
+ but WITHOUT ANY WARRANTY; without even the implied warranty of
+ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+ GNU General Public License for more details.
+
+ You should have received a copy of the GNU General Public License
+ along with this program; if not, write to the Free Software
+ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
+
+****************************************************************************/
+
+#ifndef WD_CMD
+
+/* Struct WD 1772 */
+
+#define WD_CMD 0
+#define WD_ST 0
+#define WD_TRCK 1
+#define WD_SECT 2
+#define WD_DATA 3
+
+#endif
+
diff --git a/dump/oa-2.0.9/include/fdefs.i65 b/dump/oa-2.0.9/include/fdefs.i65
new file mode 100644
index 0000000..8d2c934
--- /dev/null
+++ b/dump/oa-2.0.9/include/fdefs.i65
@@ -0,0 +1,101 @@
+/****************************************************************************
+
+ OS/A65 Version 1.4.0
+ Multitasking Operating System for 6502 Computers
+
+ Copyright (C) 1989-1997 Andre Fachat
+
+ This program is free software; you can redistribute it and/or modify
+ it under the terms of the GNU General Public License as published by
+ the Free Software Foundation; either version 2 of the License, or
+ (at your option) any later version.
+
+ This program is distributed in the hope that it will be useful,
+ but WITHOUT ANY WARRANTY; without even the implied warranty of
+ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+ GNU General Public License for more details.
+
+ You should have received a copy of the GNU General Public License
+ along with this program; if not, write to the Free Software
+ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
+
+****************************************************************************/
+
+
+#define DIRSIGN "/" /* directory separator */
+
+/* commands to the filesystem */
+
+#define FS_OPEN_RD 1 /* open file for read */
+#define FS_OPEN_WR 2 /* open file for write */
+#define FS_OPEN_RW 3 /* open file for read and write */
+#define FS_OPEN_OW 4 /* open file for overwrite */
+#define FS_OPEN_AP 5 /* open file for append */
+#define FS_OPEN_DR 6 /* open directory for read */
+#define FS_RENAME 7 /* rename file */
+#define FS_DELETE 8 /* delete file */
+#define FS_FORMAT 9 /* format disk */
+#define FS_CHKDSK 10 /* check disk */
+#define FS_CLOSE 11 /* close file (only for read/write) */
+#define FS_RMDIR 12 /* remove subdirectory */
+#define FS_MKDIR 13 /* create subdirectory */
+#define FS_CHDIR 14 /* change directory */
+#define FS_ASSIGN 15 /* ---- */
+
+/*
+ * non-overlapping net server commands follow
+ * by not overlapping them with filesytem commands, one process can
+ * register as fs _and_ net server
+ */
+
+#define FS_OPEN_TCP 32 /* ---- */
+
+/*
+ * user-defined codes after that
+ */
+#define FS_LASTCODE 64
+
+/************************************************************************/
+
+/* struct to be sent with FS_OPEN_* */
+
+#define FS_OPEN_DRV 0 /* drive = FM_OPEN_DRV */
+#define FS_OPEN_STR 1 /* data stream */
+#define FS_OPEN_PFAD 2 /* ---- */
+#define FS_OPEN_NAME 3 /* filename, ended with null byte */
+
+/* struct that is returned */
+
+#define FS_X_ERR 0 /* error number, also in AC */
+#define FS_X_ENV 1 /* task number of the filesystem */
+#define FS_X_FIL 2 /* file handle (read/write only) */
+#define FS_X_SLEN 3 /* length of struct */
+
+/* struct of a dir entry in a directory file */
+
+#define FS_DIR_LEN 0 /* length in bytes, 4 bytes, lo first */
+#define FS_DIR_YEAR 4 /* year minus 1900 */
+#define FS_DIR_MONTH 5 /* month */
+#define FS_DIR_DAY 6 /* day */
+#define FS_DIR_HOUR 7 /* hour */
+#define FS_DIR_MIN 8 /* minute */
+#define FS_DIR_SEC 9 /* second of last change */
+#define FS_DIR_MODE 10 /* kind of dir entry */
+#define FS_DIR_NAME 11 /* start of name, ended with null byte */
+
+/* kind of directory entry */
+
+#define FS_DIR_MOD_FIL 0 /* file */
+#define FS_DIR_MOD_NAM 1 /* disk name */
+#define FS_DIR_MOD_FRE 2 /* disk free bytes in FS_DIR_LEN */
+#define FS_DIR_MOD_DIR 3 /* subdirectory */
+
+/* struct to be sent except for FS_OPEN_* */
+/* only FS_CMD_NAME (must be ==FS_OPEN_NAME for fstcp) used */
+
+#define FS_CMD_DRV 0
+#define FS_CMD_PFAD 1
+#define FS_CMD_FIL 2
+#define FS_CMD_NAME 3 /* after nullbyte of the first filename */
+ /* comes the second filename for RENAME */
+
diff --git a/dump/oa-2.0.9/include/file_o65.def b/dump/oa-2.0.9/include/file_o65.def
new file mode 100644
index 0000000..9e5047e
--- /dev/null
+++ b/dump/oa-2.0.9/include/file_o65.def
@@ -0,0 +1,36 @@
+
+/* These definitions are without the two leading version/marker bytes,
+ * length is without options
+ */
+#define HDR_MAGIC 0
+#define HDR_VERSION 3
+#define HDR_MODE 4
+#define HDR_TBASE 6
+#define HDR_TLEN 8
+#define HDR_DBASE 10
+#define HDR_DLEN 12
+#define HDR_BBASE 14
+#define HDR_BLEN 16
+#define HDR_ZBASE 18
+#define HDR_ZLEN 20
+#define HDR_STACKLEN 22
+#define HDR_LEN 24
+
+#define A_ADR $80
+#define A_HIGH $40 /* or'd with the low byte */
+#define A_LOW $20
+#define A_MASK $e0 /* reloc type mask */
+#define A_FMASK $0f /* segment type mask */
+
+#define SEG_UNDEF 0
+#define SEG_ABS 1
+#define SEG_TEXT 2
+#define SEG_DATA 3
+#define SEG_BSS 4
+#define SEG_ZERO 5
+
+#define FM_OBJ %00010000
+#define FM_SIZE %00100000
+#define FM_RELOC %01000000
+#define FM_CPU %10000000
+
diff --git a/dump/oa-2.0.9/include/fsdef.i65 b/dump/oa-2.0.9/include/fsdef.i65
new file mode 100644
index 0000000..15c647d
--- /dev/null
+++ b/dump/oa-2.0.9/include/fsdef.i65
@@ -0,0 +1,53 @@
+/****************************************************************************
+
+ OS/A65 Version 1.4.0
+ Multitasking Operating System for 6502 Computers
+
+ Copyright (C) 1989-1997 Andre Fachat
+
+ This program is free software; you can redistribute it and/or modify
+ it under the terms of the GNU General Public License as published by
+ the Free Software Foundation; either version 2 of the License, or
+ (at your option) any later version.
+
+ This program is distributed in the hope that it will be useful,
+ but WITHOUT ANY WARRANTY; without even the implied warranty of
+ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+ GNU General Public License for more details.
+
+ You should have received a copy of the GNU General Public License
+ along with this program; if not, write to the Free Software
+ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
+
+****************************************************************************/
+
+#ifndef FSDEV_H_
+#define FSDEV_H_
+/*
+ * These are some definitions common for most/all filesystems
+ * if we introduce shared mem, we could probably have a 'virtual filesystem'
+ * with only one set of routines managing the data transfer from streams
+ * to these buffers and vice versa - or somehow rewrite those for
+ * (to be implemented) kernel block transfer modes.
+ */
+
+#define F_FL 0 ; state of buffer
+#define F_DEV 1
+#define F_DRV 2
+#define F_STR 3
+#define F_LEN 4 ; number of bytes in buffer
+#define F_BYT 5 ; current byte
+#define F_MODE 6 ; 0=read,1=write
+#define F_SLEN 8
+
+#define F_FL_OK 0
+#define F_FL_DIR 1
+#define F_FL_EOF 2
+#define F_FL_DO 3
+#define F_FL_DOX 4
+#define F_FL_FRE 255
+#define F_MODE_RD 0
+#define F_MODE_WR 1
+
+#endif
+
diff --git a/dump/oa-2.0.9/include/fsibm.i65 b/dump/oa-2.0.9/include/fsibm.i65
new file mode 100644
index 0000000..09c118c
--- /dev/null
+++ b/dump/oa-2.0.9/include/fsibm.i65
@@ -0,0 +1,47 @@
+/****************************************************************************
+
+ OS/A65 Version 1.4.0
+ Multitasking Operating System for 6502 Computers
+
+ Copyright (C) 1989-1997 Andre Fachat
+
+ This program is free software; you can redistribute it and/or modify
+ it under the terms of the GNU General Public License as published by
+ the Free Software Foundation; either version 2 of the License, or
+ (at your option) any later version.
+
+ This program is distributed in the hope that it will be useful,
+ but WITHOUT ANY WARRANTY; without even the implied warranty of
+ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+ GNU General Public License for more details.
+
+ You should have received a copy of the GNU General Public License
+ along with this program; if not, write to the Free Software
+ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
+
+****************************************************************************/
+
+#ifndef _FSIBM_H_
+#define _FSIBM_H_
+
+#define IE_CMD <-65
+#define IE_Q <-66
+#define IE_GT <-67
+#define IE_RD <-68
+#define IE_WR <-69
+#define IE_V <-70
+#define IE_FT <-71
+
+#define IE_NOCLUS <-72 /* no more cluster available (disk full) */
+#define IE_INVDATA <-73 /* inconsistent data on disk */
+#define IE_ILLCLUS <-74 /* Cluster# ==1 or >F_CLUS */
+#define IE_VALBUF <-75 /* try to write valid buffer with XW (??)*/
+#define IE_FILEXIST <-76 /* file exists */
+#define IE_DISKFULL <-77 /* disk full */
+#define IE_DNEMPTY <-78 /* subdirectory not empty when rmdir */
+#define IE_NOFILE <-79 /* no more file structrure (internal) */
+#define IE_ILLNAM <-80 /* name with joker ("*","?","\"") */
+#define IE_FOPEN <-81 /* file locked */
+
+#endif
+
diff --git a/dump/oa-2.0.9/include/inet.i65 b/dump/oa-2.0.9/include/inet.i65
new file mode 100644
index 0000000..fce8fd8
--- /dev/null
+++ b/dump/oa-2.0.9/include/inet.i65
@@ -0,0 +1,58 @@
+
+/****************************************************************************
+
+ OS/A65 Version 1.4.0
+ Multitasking Operating System for 6502 Computers
+
+ Copyright (C) 1989-1997 Andre Fachat
+
+ This program is free software; you can redistribute it and/or modify
+ it under the terms of the GNU General Public License as published by
+ the Free Software Foundation; either version 2 of the License, or
+ (at your option) any later version.
+
+ This program is distributed in the hope that it will be useful,
+ but WITHOUT ANY WARRANTY; without even the implied warranty of
+ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+ GNU General Public License for more details.
+
+ You should have received a copy of the GNU General Public License
+ along with this program; if not, write to the Free Software
+ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
+
+****************************************************************************/
+
+
+#ifndef _INET_H_
+#define _INET_H_
+
+/*
+ * command codes for kernel network interface - must be between
+ * filesystem command codes and FS_LASTCODE
+ */
+
+#define FS_CONNECT 32
+#define FS_LISTEN 33 /* open listen port */
+#define FS_UNLISTEN 34 /* close listenport */
+#define FS_ACCEPT 35
+
+/*
+ * protocol definitions for lib6502 and kernel netwaork calls
+ */
+
+#define IPV4_TCP 0
+#define IPV4_UDP 1
+
+/*
+ * message format for kernel net server calls
+ */
+
+#define FSN_PROT 0 /* network protocol for accept */
+#define FSN_RET 0 /* return value for accept/listen */
+#define FSN_PORT 1 /* network port for (un)listen */
+#define FSN_RXSTR 2 /* stream where network writes */
+#define FSN_TXSTR 3 /* stream where network reads */
+#define FSN_ADDR 4 /* network address, depends on prot. */
+
+#endif
+
diff --git a/dump/oa-2.0.9/include/irtx.i65 b/dump/oa-2.0.9/include/irtx.i65
new file mode 100644
index 0000000..813e383
--- /dev/null
+++ b/dump/oa-2.0.9/include/irtx.i65
@@ -0,0 +1,215 @@
+/****************************************************************************
+
+ OS/A65 Version 1.4.0
+ Multitasking Operating System for 6502 Computers
+
+ Copyright (C) 1989-1997 Andre Fachat
+
+ This program is free software; you can redistribute it and/or modify
+ it under the terms of the GNU General Public License as published by
+ the Free Software Foundation; either version 2 of the License, or
+ (at your option) any later version.
+
+ This program is distributed in the hope that it will be useful,
+ but WITHOUT ANY WARRANTY; without even the implied warranty of
+ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+ GNU General Public License for more details.
+
+ You should have received a copy of the GNU General Public License
+ along with this program; if not, write to the Free Software
+ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
+
+****************************************************************************/
+
+#ifndef _IRTX_H_
+#define _IRTX_H_
+
+/* these definitions are for using the SEND/RECEIVE interface to send
+ commands to the irtx task and thus to the remote device */
+
+#define SEND_IRTX $FB /* pseudo-task ID */
+
+#define ITX_KIND 0 /* PCBUF+ITX_KIND = type of device */
+#define ITX_MSG 1 /* PCBUF+ITX_MSG = message number */
+
+/* remote device types */
+#define IK_SONY 0 /* of type Sony */
+#define IM_SY_SLEN 2 /* length of message number */
+
+/************************ Sony Master Control ******************************/
+
+#define SY_MC_VOLU $812 /*$4810*/
+#define SY_MC_VOLD $813 /*$c810*/
+#define SY_MC_MUTE $814 /*$2810*/
+#define SY_MC_CD $825 /*$a410*/
+#define SY_MC_TUNER $821 /*$8410*/
+#define SY_MC_PHONO $820 /*$0410*/
+#define SY_MC_TAPE $823 /*$c410*/
+#define SY_MC_DAT $846 /*$6210*/
+#define SY_MC_VIDEO1 $822 /*$4410*/
+#define SY_MC_VIDEO2 $81e /*$7810*/
+#define SY_MC_VIDEO3 $842 /*$4210*/
+#define SY_MC_P_LDP $315 /*$a8c0*/
+#define SY_MC_P_VTR $115 /*$a880*/
+#define SY_MC_P_TV $095 /*$a900*/
+#define SY_MC_P_AUDIO $815 /*$a810*/
+
+/************************ Sony CD-Player CDP-450 ***************************/
+
+#define SY_CD_CONT $89d /*$b910*/
+#define SY_CD_PGM $89f /*$f910*/
+#define SY_CD_SHUFF $8b5 /*$ad10*/
+#define SY_CD_CLR $8ac /*$3510*/
+#define SY_CD_AB $8aa /*$5510*/
+#define SY_CD_DISP $8a8 /*$1510*/
+#define SY_CD_G16 $8a7 /*$e510*/
+#define SY_CD_PLAY $8b2 /*$4d10*/
+#define SY_CD_PAUSE $8b9 /*$9d10*/
+#define SY_CD_STOP $8b8 /*$1d10*/
+#define SY_CD_AMSZ $8b0 /*$0d10*/
+#define SY_CD_AMSV $8b1 /*$8d10*/
+#define SY_CD_INDZ $8b6 /*$6d10*/
+#define SY_CD_INDV $8b7 /*$ed10*/
+#define SY_CD_FASTZ $8b3 /*$cd10*/
+#define SY_CD_FASTV $8b4 /*$2d10*/
+#define SY_CD_SKIP $8be /*$7d10*/ /* Nicht auf der alten RC -> No effect */
+#define SY_CD_XZ $8ba /*$5d10*/ /* " Effekt wie FastZ */
+#define SY_CD_XV $8bb /*$dd10*/ /* " Effekt wie FastV */
+#define SY_CD_1 $880 /*$0110*/
+#define SY_CD_2 $881 /*$8110*/
+#define SY_CD_3 $882 /*$4110*/
+#define SY_CD_4 $883 /*$c110*/
+#define SY_CD_5 $884 /*$2110*/
+#define SY_CD_6 $885 /*$a110*/
+#define SY_CD_7 $886 /*$6110*/
+#define SY_CD_8 $887 /*$e110*/
+#define SY_CD_9 $888 /*$1110*/
+#define SY_CD_10 $8a0 /*$0510*/
+#define SY_CD_11 $8a1 /*$8510*/
+#define SY_CD_12 $8a2 /*$4510*/
+#define SY_CD_13 $8a3 /*$c510*/
+#define SY_CD_14 $8a4 /*$2510*/
+#define SY_CD_15 $8a5 /*$a510*/
+#define SY_CD_16 $8a6 /*$6510*/
+
+/***************************** Sony LDP ************************************/
+
+#define SY_LD_PLAY $31a /*$58c0*/
+#define SY_LD_STOP $318 /*$18c0*/
+#define SY_LD_AMSZ $335 /*$acc0*/
+#define SY_LD_AMSV $334 /*$2cc0*/
+#define SY_LD_XZ $31b /*$d8c0*/
+#define SY_LD_XV �31c /*$38c0*/
+
+/****************************** Sony TV ************************************/
+
+#define SY_TV_TVIDEO $0a5 /*$a500*/
+#define SY_TV_VOLU $092 /*$4900*/
+#define SY_TV_VOLD $093 /*$c900*/
+#define SY_TV_PRGU $090 /*$0900*/
+#define SY_TV_PRGD $091 /*$8900*/
+#define SY_TV_ENTER $08b /*$d100*/
+#define SY_TV_1 $080 /*$0100*/
+#define SY_TV_2 $081 /*$8100*/
+#define SY_TV_3 $082 /*$4100*/
+#define SY_TV_4 $083 /*$c100*/
+#define SY_TV_5 $084 /*$2100*/
+#define SY_TV_6 $085 /*$a100*/
+#define SY_TV_7 $086 /*$6100*/
+#define SY_TV_8 $087 /*$e100*/
+#define SY_TV_9 $088 /*$1100*/
+#define SY_TV_0 $089 /*$9100*/
+
+/****************************** Sony Tuner *********************************/
+
+#define SY_TU_SHIFT $6b3 /*$cd60*/
+#define SY_PRESU $690 /*$0960*/
+#define SY_PRESD $691 /*$8960*/
+
+/****************************** Sony Deck A ********************************/
+
+#define SY_DA_FASTZ $833 /*$cc10*/
+#define SY_DA_FASTV $834 /*$2c10*/
+#define SY_DA_RPLAY $837 /*$ec10*/
+#define SY_DA_PLAY $832 /*$4c10*/
+#define SY_DA_STOP $838 /*$1c10*/
+#define SY_DA_PAUSE $839 /*$9c10*/
+#define SY_DA_REC $836 /*$6c10*/
+#define SY_DA_AUX $83f /*$fc10*/ /* ???? */
+
+/****************************** Sony Deck B ********************************/
+
+#define SY_DB_FASTZ $71b /*$d8e0*/
+#define SY_DB_FASTV $71c /*$38e0*/
+#define SY_DB_RPLAY $720 /*$04e0*/
+#define SY_DB_PLAY $71a /*$58e0*/
+#define SY_DB_STOP $718 /*$18e0*/
+#define SY_DB_PAUSE $719 /*$98e0*/
+#define SY_DB_REC $71e /*$78e0*/
+#define SY_DB_AUX $71f /*$f8e0*/ /* ???? */
+
+/****************************** Sony DAT ***********************************/
+
+#define SY_DAT_FASTZ $e3b /*$dc70*/
+#define SY_DAT_FASTV $e3c /*$3c70*/
+#define SY_DAT_PLAY $e3a /*$5c70*/
+#define SY_DAT_STOP $e38 /*$1c70*/
+#define SY_DAT_PAUSE $e39 /*$9c70*/
+#define SY_DAT_REC $e3d /*$bc70*/
+#define SY_DAT_AUX $e3f /*$fc70*/ /* ???? */
+
+/****************************** Sony Video1 ********************************/
+
+#define SY_V1_CHU $110 /*$0880*/
+#define SY_V1_CHD $111 /*$8880*/
+#define SY_V1_ANTVTR $12a /*$5480*/
+#define SY_V1_FASTZ $11b /*$d880*/
+#define SY_V1_FASTV $11c /*$3880*/
+#define SY_V1_PLAY $11a /*$5880*/
+#define SY_V1_STOP $118 /*$1880*/
+#define SY_V1_PAUSE $119 /*$9880*/
+
+/****************************** Sony Video2 ********************************/
+
+#define SY_V2_CHU $390 /*$09c0*/
+#define SY_V2_CHD $391 /*$89c0*/
+#define SY_V2_ANTVTR $3aa /*$55c0*/
+#define SY_V2_FASTZ $39b /*$d9c0*/
+#define SY_V2_FASTV $39c /*$39c0*/
+#define SY_V2_PLAY $39a /*$59c0*/
+#define SY_V2_STOP $398 /*$19c0*/
+#define SY_V2_PAUSE $399 /*$99c0*/
+
+/****************************** Sony Video3 ********************************/
+
+#define SY_V3_CHU $590 /*$09a0*/
+#define SY_V3_CHD $595 /*$a9a0*/
+#define SY_V3_ANTVTR $5aa /*$55a0*/
+#define SY_V3_FASTZ $59b /*$d9a0*/
+#define SY_V3_FASTV $59c /*$39a0*/
+#define SY_V3_PLAY $59a /*$59a0*/
+#define SY_V3_STOP $598 /*$19a0*/
+#define SY_V3_PAUSE $599 /*$99a0*/
+
+/***************************** Universum Fernseher *************************/
+
+#define UNI_TV_POWER $e
+#define UNI_TV_VIDEO $d
+#define UNI_TV_MUTE $9
+#define UNI_TV_VOLD $4
+#define UNI_TV_VOLU $3
+#define UNI_TV_1 $10
+#define UNI_TV_2 $11
+#define UNI_TV_3 $12
+#define UNI_TV_4 $13
+#define UNI_TV_5 $14
+#define UNI_TV_6 $15
+#define UNI_TV_7 $16
+#define UNI_TV_8 $17
+#define UNI_TV_9 $18
+#define UNI_TV_10 $19
+#define UNI_TV_11 $1a
+#define UNI_TV_12 $1b
+
+#endif
+
diff --git a/dump/oa-2.0.9/include/kdefs.i65 b/dump/oa-2.0.9/include/kdefs.i65
new file mode 100644
index 0000000..5e8c798
--- /dev/null
+++ b/dump/oa-2.0.9/include/kdefs.i65
@@ -0,0 +1,396 @@
+/****************************************************************************
+
+ OS/A65 Version 1.4.0
+ Multitasking Operating System for 6502 Computers
+
+ Copyright (C) 1989-1997 Andre Fachat
+
+ This program is free software; you can redistribute it and/or modify
+ it under the terms of the GNU General Public License as published by
+ the Free Software Foundation; either version 2 of the License, or
+ (at your option) any later version.
+
+ This program is distributed in the hope that it will be useful,
+ but WITHOUT ANY WARRANTY; without even the implied warranty of
+ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+ GNU General Public License for more details.
+
+ You should have received a copy of the GNU General Public License
+ along with this program; if not, write to the Free Software
+ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
+
+****************************************************************************/
+
+
+#ifndef P_KIND
+
+/**************************************************************************/
+/* Kernel saved areas */
+
+/*
+ * These memory locations are saved for each environment/task/thread
+ */
+
+#define ENVSAVE 2
+#define TASKSAVE 4
+#define THREADSAVE 6
+
+/**************************************************************************/
+/* Prg-Header, ROM style */
+
+#define P_KIND 0 /* type of file */
+#define P_ADDR 1 /* start address to load file to */
+#define P_RAM 3 /* needed amount of memory (not for
+ device */
+#define P_SHARED 4 /* size of shared memory from top */
+#define P_PRIORITY 5 /* priority of task */
+#define P_DEV 6 /* two byte reserved - in the ROM, the
+ first byte gives the device number
+ the stdin have to be directed
+ to, the second byte is for stdout */
+#define P_NAME 8 /* name of program, ended by nullbyte;
+ after that follows the command line
+ that starts the program. */
+
+/* type of file in ROM */
+
+#define PK_PRG 0 /* simple executable */
+#define PK_DEV 1 /* device block */
+#define PK_FS 2 /* filesystem/daemon, i.e. stdio is
+ ignored */
+#define PK_INIT 3 /* init process (no stdio, no PCBUF
+ with command line) */
+#define PK_LIB 4 /* process started with lib6502 */
+#define PK_BIN 5 /* non-executable file */
+
+/* execution bits */
+
+#define PK_AUTOEXEC $80
+#define PK_RESTART $40
+
+/**************************************************************************/
+/* Hardware-Errors */
+
+
+#define HE_ZP <-1 /* Zeropage RAM defective */
+#define HE_RAM <-2 /* not enough RAM (may be defective) */
+#define HE_ROM <-3 /* not enough Streams/Envs to handle all
+ ROM autostart requests */
+#define HE_DEV <-4 /* error registering ROM device */
+#define HE_TASK <-5 /* no more active task! */
+
+
+/* Software-Errors */
+
+/* general OS/kernel errors */
+
+#define E_OK 0 /* no error */
+#define E_NOTIMP <-1 /* feature/function not implemented */
+#define E_CONFIG <-2 /* in this configuration not available */
+#define E_ILLPAR <-3 /* illegal parameter */
+#define E_NOMEM <-4 /* no more memory */
+
+/* stream handling errors */
+#define E_NOSTR <-5 /* no more streams available */
+#define E_SFULL <-6 /* stream is full */
+#define E_SEMPTY <-7 /* stream is empty */
+#define E_SLWM <-8 /* stream below low-water-mark (1/4) */
+#define E_SHWM <-9 /* stream above high-water-mark (3/4) */
+#define E_EOF <-10 /* last byte read, other side has closed */
+#define E_NUL <-11 /* noone listening on stream */
+
+/* device handling errors */
+#define E_NODEV <-12 /* illegal device number */
+#define E_DON <-13 /* device already in use */
+#define E_DOFF <-14 /* device not in use */
+#define E_NOTX <-15 /* device doesn't send */
+
+/* misc errors */
+
+#define E_NOENV <-16 /* no more free environment/task ID */
+#define E_NOSEM <-17 /* no more free semaphore */
+#define E_SEMSET <-18 /* semaphore is already set (with PSEM) */
+
+#define E_NOIRQ <-19 /* irq routine has not removed irq source */
+#define E_VERSION <-20 /* wrong (executable file) version */
+
+#define E_NOTASK <-21 /* no more free task */
+#define E_INT <-22 /* interrupted (by signal) system call */
+
+#define E_ILLSIG <-23 /* illegal signal number */
+
+#define E_TRYAGAIN <-24 /* try again */
+
+/* file handling errors */
+
+#define E_FNODRV <-32 /* illegal drive number */
+#define E_FNOPATH <-33 /* wrong path */
+#define E_FILLNAM <-34 /* illegal name (joker "*","?","\"") */
+#define E_FNAMLEN <-35 /* name too long */
+#define E_FNOFIL <-36 /* file not found */
+#define E_FWPROT <-37 /* file write protected */
+#define E_FILEXIST <-38 /* file exists */
+#define E_FDISKFULL <-39 /* disk full */
+#define E_FDNEMPTY <-40 /* subdirectory not empty when rmdir */
+#define E_FLOCKED <-41 /* file locked */
+#define E_FMEDIA <-42 /* media error */
+#define E_FLOGICAL <-43 /* bad logical structure on media */
+#define E_FINTERNAL <-44 /* internal error - should not happen! */
+
+#define E_LASTERR <-96 /* for customized error numbers */
+
+#define E_ILLADDR <-64 /* illegal address for lib6502 mfree */
+#define E_NOFILE <-65 /* illegal file number for lib6502 */
+#define E_NOSEEK <-66 /* file not seekable */
+#define E_NOREAD <-67 /* read on file would block */
+#define E_NOWRITE <-68 /* write on file would block */
+#define E_FVERSION <-69 /* file version number not supported */
+
+
+/**************************************************************************/
+/* Stream-Commands */
+
+#define SC_GET 0
+#define SC_REG_RD 1
+#define SC_REG_WR 2
+#define SC_CLR 3
+#define SC_EOF 4
+#define SC_NUL 5
+#define SC_FRE 6
+#define SC_STAT 7
+#define SC_GANZ 8
+#define SC_RWANZ 9
+#define SC_ESTAT 10 /* get error state */
+#define SC_SSTAT 11 /* set error state */
+#define SC_CSTAT 12 /* clear error state */
+
+#define SCE_PULL %10000000 /* reader pulls */
+#define SCE_PUSH %01000000 /* writer pushes */
+#define SCE_BRK %00100000 /* writer signals break */
+#define SCE_RERRM %00001100 /* reader has error condition mask */
+ /* %00 = no error, != $00 error, to be def'd */
+#define SCE_WERRM %00000011 /* writer has error condition (read error,..)*/
+ /* %00 = no error, != $00 error, to be def'd */
+
+/* Device-Commands */
+
+#define DC_IRQ 0
+#define DC_RES 1
+#define DC_GS 2
+#define DC_PS 3
+#define DC_RX_ON 4
+#define DC_TX_ON 5
+#define DC_RX_OFF 6
+#define DC_TX_OFF 7
+#define DC_SPD 8
+#define DC_HS 9
+#define DC_ST 10
+#define DC_EXIT 11
+#define DC_BRKKEY 12
+
+#define DC_GNAM 16
+#define DC_GNUM 17
+#define DC_REGDEV 18
+
+#define DC_SW_RX %10000000
+#define DC_SW_TX %01000000
+
+/*
+#define REGDEV_MPOS 0
+#define REGDEV_MBLK 1
+#define REGDEV_ADR 2
+*/
+
+/* NMI commands, to be passed to CTRLNMI */
+
+#define NMI_ON 0 /* beq */
+#define NMI_OFF 1
+
+/* task state */
+
+#define TS_FREE 0
+#define TS_ENV 1 /* allocated but not running */
+#define TS_IBRK 2 /* task has BRK'd in IRQ routine */
+#define TS_BRK 3 /* task has BRK'd */
+#define TS_RDY 4 /* task did YIELD call */
+#define TS_IRQ 5 /* task is interrupted */
+#define TS_WFRX 6 /* waiting for other task to RECEIVE */
+#define TS_WFTX 7 /* waiting for other task to SEND */
+#define TS_WXTX 8 /* wait for certain task to SEND */
+#define TS_WFSEM 9 /* wait for semaphore */
+#define TS_WSIG 10 /* wait for signal */
+
+/* GETINFO-struct */
+
+#define ANZ_ENV 15 /* number of valid entries */
+
+#define TN_PID 0 /* process ID */
+#define TN_NTHREADS 1 /* task state */
+#define TN_ENV 2 /* environment number */
+#define TN_PARENT 3 /* parent task */
+#define TN_MEM 4 /* used amount of memory */
+#define TN_SIGNAL 5 /* interrupt routine address */
+#define TN_STDIN 7 /* stdin stream */
+#define TN_STDOUT 8 /* stdout stream */
+#define TN_STDERR 9 /* stderr stream */
+#define TN_SIGMASK 10 /* signal mask */
+#define TN_NAME 11 /* start of program name (if avail.) */
+#define TN_SLEN 17 /* length of one entry */
+
+#define TNAMLEN (TN_SLEN-TN_NAME) /* length of name */
+
+/* Terminal Commands */
+
+#define TC_BEL 7
+#define TC_BS 8
+#define TC_HT 9
+#define TC_LF 10
+#define TC_VT 11
+#define TC_FF 12
+#define TC_CR 13
+#define TC_ESC 27
+
+#define TC_CLFT $80
+#define TC_CRGT $81
+#define TC_CUP $82
+#define TC_CDWN $83
+#define TC_HOME $84
+#define TC_CLR $85
+#define TC_DEL $86
+#define TC_INS $87
+#define TC_WLO $88
+#define TC_WRU $89
+#define TC_WCLS $8a
+#define TC_EOL $8b
+#define TC_CLL $8c
+
+#define TC_ECHO $8d /* device shall echo: terminal = full screen */
+#define TC_NOECHO $8e /* appl. echos: full appl. control */
+
+#define TC_CPOS $8f /* next chars are row and column */
+
+/*********************** System Semaphores *************************/
+/* System semaphores cannot be allocated and/or freed with
+ * GETSEM/FRESEM, but can be used with PSEM and VSEM.
+ *
+ * The semaphores marked with '(NOMMU)' need only be used without
+ * MMU, while the others should be used anyway, to share the resource
+ * between any tasks.
+ */
+
+#define SEM_SENDBUF <-1 /* Send buffer (NOMMU) */
+
+/*
+ * the following semaphore numbers are defined, but not (yet) really
+ * used by the current implementation. Especially the SERIEC semaphore
+ * can be used to share the serial bus between fsiec for CBM floppies
+ * and fsibm (with changed interface for VC1571) for PC style disks.
+ */
+
+#define SEM_STDIO <-2 /* parts of the STDIO library (NOMMU) */
+#define SEM_PARIEC <-3 /* parallel IEC bus */
+#define SEM_SERIEC <-4 /* serial IEC bus */
+#define SEM_IBMDISK <-5 /* IBM floppy interface */
+
+/*********************** SIGNALS ***********************************
+ * Signal codes
+ */
+
+#define SIG_INTABLE %10000000 /* interruptable system call mask */
+#define SIG_CHLD %01000000 /* child has terminated */
+#define SIG_KILL %00100000 /* process shall terminate */
+#define SIG_BRK %00010000 /* ctrl-C received */
+
+#define SIG_USR4 %00001000 /* 4 user signals */
+#define SIG_USR3 %00000100
+#define SIG_USR2 %00000010
+#define SIG_USR1 %00000001
+
+/*********************** SEND SYSTEM *******************************
+ * SysProcCalls
+ *
+ * Some system calls can also be called via the SEND interface
+ */
+
+#define SEND_SYS $ff
+
+#define PCBUF $200
+
+/* AC = function number */
+#define SP_FORK 0
+#define SP_SETIRQ 1
+#define SP_RESET 2
+
+/* struct in PCBUF when FORK'ing */
+#define FORK_SIZE 0 /* size of needed memory in blocks (256
+ byte) from address 0 up */
+#define FORK_SHARED 1 /* size of shared memory mapping in
+ blocks from address $ffff down */
+#define FORK_PRIORITY 2 /* priority of task - 0 = parent's */
+#define FORK_STDIN 3 /* stdin stream */
+#define FORK_STDOUT 4 /* stdout stream */
+#define FORK_STDERR 5 /* stderr stream */
+#define FORK_ADDR 6 /* startaddress of task execution */
+#define FORK_NAME 8 /* task name (ended with nullbyte) */
+
+/* struct in PCBUF when SETIRQ */
+#define SETIRQ_ENV 0 /* env to set irq address in */
+#define SETIRQ_ADR 1 /* irq address to set */
+#define SETIRQ_SLEN 3
+
+/* struct in PCBUF when RESET */
+#define RESET_ENV 0 /* env to restart */
+#define RESET_ADR 1 /* start address for execution */
+#define RESET_SLEN 3
+
+/* StdStream */
+
+#define STDNUL $fc /* is ignored (see PK_FS) */
+#define STDIN $fd
+#define STDOUT $fe
+#define STDERR $ff
+
+/* Own Task ID */
+
+#define OWNTASK $ff
+
+/* FileManager */
+
+#define SEND_FM $fe
+
+#define FM_REG 0 /* in AC when registering new fs */
+
+#define FM_REG_DRVS 0 /* number of drives to register */
+#define FM_REG_ENV 1 /* to task number */
+
+#define FM_OPEN_DRV 0
+
+/* TimeTask */
+
+#define SEND_TIME $fc
+
+/* AC = command */
+#define TI_SET 0
+#define TI_GET 1
+
+/* struct in PCBUF */
+#define TE_SG_YEAR 0
+#define TE_SG_MONTH 1
+#define TE_SG_DAY 2
+#define TE_SG_HOUR 3
+#define TE_SG_MIN 4
+#define TE_SG_SEC 5
+
+/* (Inter)Net Connectivity */
+
+#define SEND_NET $fb
+
+/* Net server use an interface similar to the filesystem interface.
+ * In fact, after an open there is no real difference, and due to the
+ * non-overlapping command numbers, one process can register as
+ * FS _and_ Net server.
+ * Further defs are found in oa1fs.i65
+ */
+
+#endif
+
diff --git a/dump/oa-2.0.9/include/kernel.i65 b/dump/oa-2.0.9/include/kernel.i65
new file mode 120000
index 0000000..f1037f1
--- /dev/null
+++ b/dump/oa-2.0.9/include/kernel.i65
@@ -0,0 +1 @@
+../kernel/jmptbl.a65
\ No newline at end of file
diff --git a/dump/oa-2.0.9/include/lib6502.i65 b/dump/oa-2.0.9/include/lib6502.i65
new file mode 120000
index 0000000..6922371
--- /dev/null
+++ b/dump/oa-2.0.9/include/lib6502.i65
@@ -0,0 +1 @@
+../lib6502/libjmp.a65
\ No newline at end of file
diff --git a/dump/oa-2.0.9/kernel/Makefile b/dump/oa-2.0.9/kernel/Makefile
new file mode 100644
index 0000000..5078f6b
--- /dev/null
+++ b/dump/oa-2.0.9/kernel/Makefile
@@ -0,0 +1,14 @@
+
+
+XAINPUT=../include,..
+XA=xa
+
+kernel.o65: $(wildcard *.a65)
+ (XAINPUT=${XAINPUT}; export XAINPUT;\
+ ${XA} -bt 61440 oa1.a65 -o kernel.o65 ;\
+ if [ $$? -ne 0 ]; then rm -f kernel.o65; fi; \
+ )
+
+clean:
+ rm -f kernel.o65
+
diff --git a/dump/oa-2.0.9/kernel/devices.a65 b/dump/oa-2.0.9/kernel/devices.a65
new file mode 100644
index 0000000..d5178f8
--- /dev/null
+++ b/dump/oa-2.0.9/kernel/devices.a65
@@ -0,0 +1,268 @@
+/****************************************************************************
+
+ OS/A65 Version 2.0.0
+ Multitasking Operating System for 6502 Computers
+
+ Copyright (C) 1989-1998 Andre Fachat
+
+ This program is free software; you can redistribute it and/or modify
+ it under the terms of the GNU General Public License as published by
+ the Free Software Foundation; either version 2 of the License, or
+ (at your option) any later version.
+
+ This program is distributed in the hope that it will be useful,
+ but WITHOUT ANY WARRANTY; without even the implied warranty of
+ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+ GNU General Public License for more details.
+
+ You should have received a copy of the GNU General Public License
+ along with this program; if not, write to the Free Software
+ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
+
+****************************************************************************/
+
+#ifdef NO_DEVICE
+
+devcmd =notimp
+
+#else
+ .(
+ .zero
+devzei .word 0
+DZ .word 0
+ .text
+
+#ifdef MAP_ZERO
+ .zero
+#else
+ .data
+#endif
+&adev .byt 0
+ANZDEV .byt 0
+cnt .byt 0
+freq .byt 0
+hidigit .byt 0
+DZ2 .word 0
+ .text
+
+#define DVT_ADRL 0
+#define DVT_ADRH MAXDEV
+#define DVT_ENV (2*MAXDEV)
+#define DVT_SLEN 3
+
+ .data
+&DEVTAB .dsb MAXDEV*DVT_SLEN
+ .text
+
+&inidev sta freq
+ ldx #0
+ stx ANZDEV
+ dex
+ stx adev
+ clc
+ rts
+
+&irqdev .(
+ ldx ANZDEV
+ stx cnt
+l1 dec cnt
+ bmi dendirq
+ ldx cnt
+ lda #DC_IRQ
+ ldy freq
+ jsr exejmp
+#ifndef NOSYSPORT
+ jsr testirq
+ beq l1
+#else
+ bcs l1 ; irq source removed -> ac=0 -> c=0
+#endif
+dendirq clc
+ rts
+ .)
+
+&devcmd jsr memsys
+ php
+ sei
+ cmp #DC_GNUM ; get number of devices
+ beq devgnum
+ cmp #DC_REGDEV ; register a new device
+ bne x1
+ jmp regdev
+x1 cpx ANZDEV ; check device number
+ bcs idcex
+ cmp #DC_GNAM ; get name of device
+ beq devgnam
+ jsr exejmp ; execute all others
+ bcs idce
+idcok lda #E_OK
+ .byt $2c
+idcex lda #E_NODEV
+idce
+ plp
+ cmp #1
+ jmp memtask
+
+devgnum .(
+ MAPSYSBUF
+
+ ldx #0
+gu1 stx cnt
+ cpx ANZDEV
+ bcs idcex
+ jsr setnam
+ ldx cnt
+gu2 lda (devzei),y
+ cmp SYSBUF-3,y
+ bne gun
+ cmp #0
+ beq idcok
+ iny
+ bne gu2
+gun inx
+ bne gu1
+ .)
+
+setnam .(
+ lda DEVTAB+DVT_ADRL,x
+ pha
+ lda DEVTAB+DVT_ADRH,x
+ tay
+ lda DEVTAB+DVT_ENV,x
+ tax
+ pla
+ MAPENV()
+ sta devzei
+ sty devzei+1
+ ldy #3
+ rts
+ .)
+
+devgnam .(
+ MAPSYSBUF
+
+ jsr setnam
+gn1 lda (devzei),y
+ sta SYSBUF-3,y
+ iny
+ cmp #0
+ bne gn1
+gn2 tya
+ sec
+ sbc #3
+ tax
+ jmp idcok
+ .)
+
+regdev .(
+ txa
+loop
+ sta DZ2
+ sty DZ2+1
+ MAPAENV()
+ sta DZ
+ sty DZ+1
+
+ ldy #0
+ lda (DZ),y
+ iny
+ and (DZ),y
+ tay
+ iny
+ beq enddev
+
+ lda ANZDEV
+ cmp #MAXDEV
+ bcs enddev
+ tax
+
+ lda DZ2
+ clc
+ adc #2
+ sta DEVTAB+DVT_ADRL,x
+ lda DZ2+1
+ adc #0
+ sta DEVTAB+DVT_ADRH,x
+
+ GETACTENV()
+
+ sta DEVTAB+DVT_ENV,x
+ ldx ANZDEV
+ inc ANZDEV
+ ldy freq
+ lda #DC_RES
+ jsr DEVCMD
+
+ lda DZ2
+ ldy DZ2+1
+ MAPAENV()
+ sta DZ
+ sty DZ+1
+
+ ldy #0
+ lda (DZ),y
+ pha
+ iny
+ lda (DZ),y
+ tay
+ pla
+ jmp loop
+
+sE_CONFIG lda #E_CONFIG
+ .byt $2c
+enddev lda #E_OK
+ plp
+ cmp #1
+ jmp memtask
+ ;jsr memtask
+ ;rts
+ .)
+
+exejmp .(
+#ifdef MAP_ZERO
+ .zero
+#else
+ .data
+#endif
+cmd .byt 0
+par .byt 0
+ .text
+
+ sta cmd
+ sty par
+ lda adev
+ pha
+ lda Syscnt
+ pha
+ lda #0
+ sta Syscnt ; Aufrufe von Device wie von Task
+ stx adev ; Dev-No for memtask
+
+/* TODO: in CS/A65, make non-ROM-started devices work! */
+
+ lda DEVTAB+DVT_ADRL,x
+ ldy DEVTAB+DVT_ADRH,x
+ pha
+ lda DEVTAB+DVT_ENV,x
+ tax
+ pla
+ MAPENV()
+ sta devzei
+ sty devzei+1
+ lda cmd
+ ldy par
+ jsr jmpzei
+ sta cmd
+ pla
+ sta Syscnt
+ pla
+ sta adev
+ lda cmd
+ cmp #1
+ rts
+
+jmpzei jmp (devzei)
+ .)
+
+ .)
+#endif
diff --git a/dump/oa-2.0.9/kernel/end.a65 b/dump/oa-2.0.9/kernel/end.a65
new file mode 100644
index 0000000..b09eb6e
--- /dev/null
+++ b/dump/oa-2.0.9/kernel/end.a65
@@ -0,0 +1,41 @@
+/****************************************************************************
+
+ OS/A65 Version 2.0.0
+ Multitasking Operating System for 6502 Computers
+
+ Copyright (C) 1989-1998 Andre Fachat
+
+ This program is free software; you can redistribute it and/or modify
+ it under the terms of the GNU General Public License as published by
+ the Free Software Foundation; either version 2 of the License, or
+ (at your option) any later version.
+
+ This program is distributed in the hope that it will be useful,
+ but WITHOUT ANY WARRANTY; without even the implied warranty of
+ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+ GNU General Public License for more details.
+
+ You should have received a copy of the GNU General Public License
+ along with this program; if not, write to the Free Software
+ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
+
+****************************************************************************/
+
+#ifdef EOK_NOFILL
+
+eok_addr =*
+
+#else
+
+#if * < $fff4
+ .dsb $fffa-*-6,<-1
+#else
+#echo "Warning: ROM too large!"
+#endif
+
+#endif
+
+ .byt D_D,D_M,D_Y,VA,VB,VC
+ .word pnmi /*NMI*/,RESET,pirq
+
+
diff --git a/dump/oa-2.0.9/kernel/files.a65 b/dump/oa-2.0.9/kernel/files.a65
new file mode 100644
index 0000000..8f049eb
--- /dev/null
+++ b/dump/oa-2.0.9/kernel/files.a65
@@ -0,0 +1,100 @@
+/****************************************************************************
+
+ OS/A65 Version 2.0.0
+ Multitasking Operating System for 6502 Computers
+
+ Copyright (C) 1989-1998 Andre Fachat
+
+ This program is free software; you can redistribute it and/or modify
+ it under the terms of the GNU General Public License as published by
+ the Free Software Foundation; either version 2 of the License, or
+ (at your option) any later version.
+
+ This program is distributed in the hope that it will be useful,
+ but WITHOUT ANY WARRANTY; without even the implied warranty of
+ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+ GNU General Public License for more details.
+
+ You should have received a copy of the GNU General Public License
+ along with this program; if not, write to the Free Software
+ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
+
+****************************************************************************/
+
+#ifndef NO_FSM
+
+ .(
+
+#ifdef MAP_ZERO
+ .zero
+#else
+ .data
+#endif
+anzfs .byt 0
+
+ .data
+
+fstab .dsb MAXFS+1
+fstask .dsb MAXFS+1
+
+ .text
+
+&fminit lda #0
+ sta anzfs
+ sta fstab
+ clc
+ rts
+
++fm
+#ifdef MAPSYSBUF
+ pha
+ MAPSYSBUF
+ pla
+#endif
+ cmp #FM_REG
+ bne fm1
+
+ ldy anzfs
+ lda SYSBUF+FM_REG_DRVS
+ bne fmreg
+ lda fstab,y
+ sec
+ rts
+fmreg
+ cpy #MAXFS
+ bcs fme1
+ ; clc
+ adc fstab,y
+ sta fstab+1,y
+ inc anzfs
+ txa
+ sta fstask,y
+ lda #E_OK
+ .byt $2c
+fme1 lda #E_NOMEM
+ .byt $2c
+fme2 lda #E_NODEV
+ sec
+ rts
+
+fm1
+ lda SYSBUF+FM_OPEN_DRV
+ ldy #0
+fm2 cpy anzfs
+ bcs fme2
+ cmp fstab+1,y
+ bcc fmok
+ iny
+ bne fm2
+
+fmok sec
+ sbc fstab,y
+ sta SYSBUF+FM_OPEN_DRV
+ lda fstask,y
+ tax
+ clc
+ rts
+ .)
+
+#endif /* NO_FSM */
+
diff --git a/dump/oa-2.0.9/kernel/init.a65 b/dump/oa-2.0.9/kernel/init.a65
new file mode 100644
index 0000000..920805f
--- /dev/null
+++ b/dump/oa-2.0.9/kernel/init.a65
@@ -0,0 +1,672 @@
+/****************************************************************************
+
+ OS/A65 Version 2.0.0
+ Multitasking Operating System for 6502 Computers
+
+ Copyright (C) 1989-1998 Andre Fachat
+
+ This program is free software; you can redistribute it and/or modify
+ it under the terms of the GNU General Public License as published by
+ the Free Software Foundation; either version 2 of the License, or
+ (at your option) any later version.
+
+ This program is distributed in the hope that it will be useful,
+ but WITHOUT ANY WARRANTY; without even the implied warranty of
+ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+ GNU General Public License for more details.
+
+ You should have received a copy of the GNU General Public License
+ along with this program; if not, write to the Free Software
+ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
+
+****************************************************************************/
+
+
+#ifndef MEMINIVAL
+#define MEMINIVAL 0 /* reset value of RAM content */
+#endif
+
+#ifndef NOMMU
+
+#ifdef NMIDEV
+#echo Warning, nmidev only without mmu - disabling it
+#undef NMIDEV
+#endif
+
+#ifndef NMIRESET
+#echo Warning, no nmireset only without mmu - disabling nmi services
+#define NMIRESET
+#endif
+
+#endif
+
+/***************************************************************************
+ *
+ * Hardware initialization
+ *
+ */
+
+ .(
+ .zero
+pz .word 0
+; cnt .byt 0
+ .text
+
+#ifdef MAP_ZERO
+ .zero
+#else
+ .data
+#endif
+s1 .byt 0
+s2 .byt 0
+
+ .text
+
+¬imp lda #E_NOTIMP
+ sec
+ rts
+
+&preset sei
+ cld
+/*
+ * initializes the hardware memory mapping, the system (preemption) timer
+ * and the memory management, if needed. Also the macros
+ * GETFREQ(), LEDPORT, LED_LED, H_ERROR, and CLRTIMER() are defined.
+ * It jumps to he_ram if there is not enough RAM available.
+ */
+#include "kernel/kinit.a65"
+
+; cmp #MIN_MEM ; memory size at least needed
+; bcc he_ram
+; sta cnt
+
+/* still a lot TODO! */
+#if 0 /* def NOMMU */
+ ;sta cnt
+ sec
+ sbc #>startmem+255
+ tay
+ ldx #>startmem+255
+ jsr binit
+
+ lda #startzero
+ jsr zinit
+
+ lda cnt
+#endif
+ jmp prgstart
+
+he_zero ldx #HE_ZP
+ .byt $2c
+he_ram ldx #HE_RAM
+ .byt $2c
+;e1 ldx #HE_IMEM
+; .byt $2c
+;e2 ldx #HE_IDEV
+; .byt $2c
+;e3 ldx #HE_ISTR
+; .byt $2c
+;e4 ldx #HE_IENV
+; .byt $2c
+erom ldx #HE_ROM
+ .byt $2c
+edev ldx #HE_DEV
+
+ jmp HERROR
+
+/***************************************************************************
+ *
+ * ROM initialization
+ *
+ */
+
+prgstart /* get system speed */
+ GETFREQ()
+ sta s1
+
+#ifdef LEDPORT
+ jsr LEDOFF
+#endif
+
+#ifdef NMIDEV
+ jsr ininmi
+#endif
+ jsr initthreads
+ jsr inienv
+ ;bcs e4
+#ifndef NO_DEVICE
+ lda s1
+ jsr inidev
+ ;bcs e2
+#endif
+#ifndef NO_STREAMS
+ jsr inistream
+ ;bcs e3
+#endif
+#ifndef NO_SEM
+ jsr inisem
+#endif
+#ifndef NO_FSM
+ jsr fminit
+#endif
+
+#ifdef STARTMEM
+ ; lda cnt
+ STARTMEM()
+#endif
+;.byt 2
+ lda #ROMSTART
+ sta pz+1
+
+startloop
+;.byt 2
+ ldy #0
+ lda (pz),y
+ iny
+ and (pz),y
+ cmp #$ff
+ bne slx1
+;jmp edev
+ jmp pstart
+xerr
+ jmp edev
+endloop jmp erom
+
+slx1 ldy #P_KIND+2
+ lda (pz),y
+ bpl slx2
+ and #$7f
+ ; cmp #PK_PRG
+ ; beq iprg
+ cmp #PK_DEV
+ beq idev
+ cmp #PK_INIT ; PK_FS
+ beq ifs
+slx2 jmp inext
+
+idev
+ ldy #P_ADDR+2
+ lda (pz),y
+ tax ;sta PCBUF+REGDEV_ADR
+ iny
+ lda (pz),y
+ tay ;sta PCBUF+REGDEV_ADR+1
+ lda #DC_REGDEV
+ jsr DEVCMD
+ bcs xerr
+ jmp inext
+
+ifs
+
+#if 0
+ ldx #STDNUL
+ stx s1
+ stx s2
+ bne ifs1
+
+iprg jsr GETSTR
+ bcs endloop
+ stx s1
+ jsr GETSTR
+endloopx bcs endloop
+ stx s2
+ ldy #P_DEV+2
+ lda (pz),y
+ tax
+ ldy s2
+ lda #DC_GS
+ jsr DEVCMD
+ ldy #P_DEV+2
+ lda (pz),y
+ tax
+ ldy s1
+ lda #DC_PS
+ jsr DEVCMD
+ ldy #P_DEV+2
+ lda (pz),y
+ pha
+ tax
+ lda #DC_RX_ON
+ jsr DEVCMD
+#ifdef CMOSCPU
+ plx
+#else
+ pla
+ tax
+#endif
+ lda #DC_TX_ON
+ jsr DEVCMD
+
+
+ifs1 lda s2
+ sta PCBUF+FORK_STDOUT
+ sta PCBUF+FORK_STDERR
+ lda s1
+ sta PCBUF+FORK_STDIN
+#endif
+
+ lda #STDNUL
+ sta PCBUF+FORK_STDERR
+ sta PCBUF+FORK_STDOUT
+ sta PCBUF+FORK_STDIN
+
+ ldy #P_PRIORITY+2
+ lda (pz),y
+ sta PCBUF+FORK_PRIORITY
+
+ ldy #P_RAM+2
+ lda (pz),y
+ sta PCBUF+FORK_SIZE
+ iny
+ lda (pz),y
+ sta PCBUF+FORK_SHARED
+
+ ldy #P_ADDR+2
+ lda (pz),y
+ sta PCBUF+FORK_ADDR
+ iny
+ lda (pz),y
+ sta PCBUF+FORK_ADDR+1
+
+ lda #0
+ sta PCBUF+FORK_NAME
+ sta PCBUF+FORK_NAME+1
+#if 0
+ ldy #P_NAME+1
+ ldx #2
+cmdn iny
+ lda (pz),y
+ sta PCBUF+FORK_NAME-P_NAME-2,y
+ bne cmdn
+ dex
+ bne cmdn
+ iny
+#endif
+ jsr FORK
+#if 0
+ ldx s1
+ lda #SC_NUL
+ jsr STRCMD
+ ldx s2
+ lda #SC_EOF
+ jsr STRCMD
+#endif
+
+inext
+ ldy #0
+ lda (pz),y
+ tax
+ iny
+ lda (pz),y
+ sta pz+1
+ stx pz
+ jmp startloop
+
+/***************************************************************************
+ *
+ * Error handling
+ *
+ */
+
+#ifdef LEDPORT
++LEDOFF lda LEDPORT
+ ora #LED_LED
+ sta LEDPORT
+ rts
+#endif
+
++HERROR .( ; xr=Fehlernummer -1=1mal aus, -2=2mal aus etc
+#ifdef EMUTEST
+.byt 2
+#endif
+#ifdef LEDPORT
+ LDA LEDPORT:EOR #LED_LED
+ STA LEDPORT
+ LDY #0:TYA
+PRE2 ADC #1:BNE PRE2
+ INY:BNE PRE2
+ LDA LEDPORT:EOR #LED_LED
+ STA LEDPORT
+ LDA #0:TAY
+PRE3 ADC #1:BNE PRE3:INY
+ BNE PRE3:inx:BNE HERROR
+ ldx #15
+ lda #0:tay
+pre5 adc #1:bne pre5
+ iny:bne pre5
+ dex:bne pre5
+#else
+ H_ERROR
+#endif
+
+#ifdef EMUTEST /* then save some process info and restart CS/A */
+.(
+lda #$11
+sta $eff2
+ldx #0
+cp1 lda $eff0,x
+sta $2000,x
+inx
+cpx #16
+bcc cp1
+pla
+sta $2010
+pla
+sta $2011
+tsx
+stx $2012
+l0 jmp l0
+.)
+
+#endif
+ JMP RESET
+
+ .)
+
+/***************************************************************************
+ *
+ * NMI handling
+ *
+ */
+ .(
+&&pnmi
+#ifdef NMIRESET
+ jmp RESET
+&&ctrlnmi
+&&setnmi lda #E_NOTIMP
+ sec
+ rts
+#else
+#ifdef NMIDEV
+ jmp (nmiadr)
+
+ .data
+nmiadr .word 0
+nmicnt .byt 0
+ .text
+
+&ininmi ;lda #zend
+ lda #NMI_ON ; 0
+ sta nmicnt
+ininmi2 lda #yendnmi
+n1 sta nmiadr
+ sty nmiadr+1
+ clc
+zend rts
+
+ ; struct for CTRLNMI
+ .word $ffff
+ .word zend
+yendnmi rti
+
+&&setnmi jsr memsys
+ bcc n2
+ tax
+ lda nmiadr
+ pha
+ lda nmiadr+1
+ pha
+
+ php
+ sei
+ lda #NMI_OFF
+ jsr CTRLNMI ; before we mess with the NMI pointer, switch it off
+
+ txa
+ jsr n1
+
+ lda nmiadr
+ sec
+ sbc #4
+ sta tmp
+ lda nmiadr+1
+ sbc #0
+ sta tmp+1
+
+ ldy #0
+ lda (tmp),y
+ sta tmp2
+ iny
+ lda (tmp),y
+ sta tmp2+1
+
+ tsx
+ lda $0102,x
+ sta (tmp2),y
+ dey
+ lda $0103,x
+ sta (tmp2),y
+
+ ldy #2
+ lda (tmp),y
+ sta tmp2
+ iny
+ lda (tmp),y
+ sta tmp2+1
+
+ lda #NMI_OFF
+ jsr c2 ; init new device with NMI off
+
+ lda #NMI_ON ; now switch on again, if allowed
+ jsr CTRLNMI
+ plp
+
+ pla
+ tay
+ pla
+ jmp ne
+n2 jsr ininmi2
+ne jmp memtask
+ ;jsr memtask
+ ;rts
+
+ .zero
+tmp .word 0
+tmp2 .word 0
+ .data
+cmd .byt 0
+ .text
+
+&&ctrlnmi
+ jsr memsys
+ php
+ sei
+ cmp #NMI_ON
+ beq con
+ cmp #NMI_OFF
+ beq coff
+ lda #E_NOTIMP
+ .byt $2c
+crts lda #E_OK
+ plp
+ cmp #1
+ jmp memtask
+ ;jsr memtask
+ ;rts
+
+con lda nmicnt
+ beq crts
+ dec nmicnt
+ bne crts
+ lda #NMI_ON
+ beq nmicmd2
+
+coff clc
+ lda nmicnt
+ inc nmicnt
+ cmp #0
+ bne crts
+ lda #NMI_OFF
+nmicmd2
+ jsr nmicmd ; nmicmd is only called at state change!
+ jmp crts
+
+nmicmd
+ sta cmd
+ tya
+ pha
+ txa
+ pha
+ lda nmiadr
+ ldx nmiadr+1
+
+ctrl0 sec
+ sbc #4
+ sta tmp
+ txa
+ sbc #0
+ sta tmp+1
+
+ ldy #2
+ lda (tmp),y
+ sta tmp2
+ iny
+ lda (tmp),y
+ sta tmp2+1
+
+ lda cmd
+ jsr c2
+
+ ldy #0
+ lda (tmp),y
+ sta tmp2
+ iny
+ lda (tmp),y
+ sta tmp2+1
+ and tmp2
+ cmp #$ff ; address $ffff ?
+ beq ce
+ lda (tmp2),y
+ tax
+ dey
+ lda (tmp2),y
+ jmp ctrl0
+
+ce clc
+ pla
+ tax
+ pla
+ tay
+ lda cmd
+ clc
+ rts
+
+c2 jmp (tmp2)
+
+#else /* NMIDEV */
+ rti
+&&ctrlnmi
+&&setnmi lda #E_NOTIMP
+ sec
+ rts
+#endif
+#endif /* NMIRESET */
+ .)
+
+/***************************************************************************
+ *
+ * IRQ handling
+ *
+ */
+ .(
+&&pirq
+#ifdef CMOSCPU
+ pha
+ phx
+ phy
+#else
+ pha
+ txa
+ pha
+ tya
+ pha
+#endif
+ tsx
+ lda $104,x
+ and #$10
+ beq pb1
+&petbrkjmp
+ cld
+#ifdef EMUTEST
+ .byt 2
+#endif
+ jmp pbrk
+&petirqjmp
+pb1
+ cld
+ jsr memsys
+
+#ifdef SAVEMEM
+ KERNELIRQ()
+ bne taski
+ SAVEMEM
+taski
+#endif
+
+#ifndef NOSYSPORT
+ lda SYSPORT ; save timer-irq state
+ pha
+#endif
+
+il
+#ifndef NO_DEVICE
+ jsr irqdev
+#endif
+
+#ifndef NOSYSPORT
+ pla
+ ora SYSPORT ; no timer-irq?
+ pha ; save it
+
+ CLRTIMER()
+
+ jsr testirq ; irq line still set?
+ beq il ; yes, than back to loop
+
+ pla
+ bpl endirq2 ; no timer-irq -> no task switch!
+#else
+
+ CLRTIMER()
+#endif
+
+ KERNELIRQ()
+ bne endirq
+
+#ifdef SAVEMEM
+ RESTOREMEM()
+#endif
+#ifndef NO_DEVICE
+ bit adev
+ bpl endirq ; Device Interrupted -> no Task-switch
+#endif
+;jmp endirq
+ jmp irqloop
+
+#ifndef NOSYSPORT
+endirq2
+#ifdef SAVEMEM
+ KERNELIRQ()
+ bne taski2
+ RESTOREMEM()
+taski2
+#endif
+#endif
+
+endirq
+ jmp retirq
+ .)
+
+#ifndef NOSYSPORT
++testirq .(
+ lda SYSPORT
+ and #SYS_IRQ
+ rts
+ .)
+#endif
+ .)
+
diff --git a/dump/oa-2.0.9/kernel/jmptbl.a65 b/dump/oa-2.0.9/kernel/jmptbl.a65
new file mode 100644
index 0000000..b2d2f13
--- /dev/null
+++ b/dump/oa-2.0.9/kernel/jmptbl.a65
@@ -0,0 +1,140 @@
+/****************************************************************************
+
+ OS/A65 Version 2.0.0
+ Multitasking Operating System for 6502 Computers
+
+ Copyright (C) 1989-1998 Andre Fachat
+
+ This program is free software; you can redistribute it and/or modify
+ it under the terms of the GNU General Public License as published by
+ the Free Software Foundation; either version 2 of the License, or
+ (at your option) any later version.
+
+ This program is distributed in the hope that it will be useful,
+ but WITHOUT ANY WARRANTY; without even the implied warranty of
+ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+ GNU General Public License for more details.
+
+ You should have received a copy of the GNU General Public License
+ along with this program; if not, write to the Free Software
+ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
+
+****************************************************************************/
+
+
+#ifndef _KERNEL_H_
+#define _KERNEL_H_
+
+#echo "kernel jump table"
+
+#define OSA_VERSION "2.0"
+#define OSA_NAME "GeckOS/A65"
+
+#define RESET OSA2KERNEL
+
+#define ENMEM OSA2KERNEL+$3
+#define SETBLK OSA2KERNEL+$6
+
+#define GETSTR OSA2KERNEL+$9
+#define FRESTR OSA2KERNEL+$c
+#define PUTC OSA2KERNEL+$f
+#define GETC OSA2KERNEL+$12
+#define UNGETC OSA2KERNEL+$15
+#define STRCMD OSA2KERNEL+$18
+
+#define DEVCMD OSA2KERNEL+$1b
+
+#define FORK OSA2KERNEL+$1e
+#define TERM OSA2KERNEL+$21
+#define KILL OSA2KERNEL+$24
+#define YIELD OSA2KERNEL+$27
+#define FORKT OSA2KERNEL+$2a
+#define SBRK OSA2KERNEL+$2d
+
+#define GETINFO OSA2KERNEL+$30
+
+#define DUP OSA2KERNEL+$33
+
+#define GETSEM OSA2KERNEL+$36
+#define FRESEM OSA2KERNEL+$39
+#define PSEM OSA2KERNEL+$3c
+#define VSEM OSA2KERNEL+$3f
+
+#define SEND OSA2KERNEL+$42
+#define RECEIVE OSA2KERNEL+$45
+
+#define SETSIG OSA2KERNEL+$48
+#define SENDSIG OSA2KERNEL+$4b
+
+#define TDUP OSA2KERNEL+$4e
+#define XRECEIVE OSA2KERNEL+$51
+
+#define SETNMI OSA2KERNEL+$54
+#define CTRLNMI OSA2KERNEL+$57
+
+#define GETPID OSA2KERNEL+$5a
+
+#define SLOCK OSA2KERNEL+$5d
+#define RENICE OSA2KERNEL+$60
+#define CHECKCHLD OSA2KERNEL+$63
+
+#endif
+
+#ifdef SYSTEM
+
+
+#if *-OSA2KERNEL
+echo Warning: Kernel jump table at wrong address!
+#endif
+
+jmp preset
+
+jmp enmem
+jmp setblk
+
+jmp getstr
+jmp frestr
+jmp putc
+jmp getc
+jmp ungetc
+jmp gets
+
+jmp devcmd
+
+jmp fork
+jmp kterm
+jmp kkill
+jmp suspend
+jmp forkt
+jmp sbrk
+
+jmp getinfo
+
+jmp kdup
+
+jmp getsem
+jmp fresem
+jmp kpsem
+jmp kvsem
+
+jmp ksend
+jmp kreceive
+
+jmp setsig
+jmp sendsig
+
+jmp tdup
+jmp xreceive
+
+jmp setnmi
+jmp ctrlnmi
+
+jmp kgetpid
+
+jmp slock
+jmp renice
+jmp checkchld
+
+#endif
+
+
diff --git a/dump/oa-2.0.9/kernel/kernel.a65 b/dump/oa-2.0.9/kernel/kernel.a65
new file mode 100644
index 0000000..79eca51
--- /dev/null
+++ b/dump/oa-2.0.9/kernel/kernel.a65
@@ -0,0 +1,137 @@
+/****************************************************************************
+
+ OS/A65 Version 2.0.0
+ Multitasking Operating System for 6502 Computers
+
+ Copyright (C) 1989-1998 Andre Fachat
+
+ This program is free software; you can redistribute it and/or modify
+ it under the terms of the GNU General Public License as published by
+ the Free Software Foundation; either version 2 of the License, or
+ (at your option) any later version.
+
+ This program is distributed in the hope that it will be useful,
+ but WITHOUT ANY WARRANTY; without even the implied warranty of
+ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+ GNU General Public License for more details.
+
+ You should have received a copy of the GNU General Public License
+ along with this program; if not, write to the Free Software
+ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
+
+****************************************************************************/
+
+#echo OS/A65 kernel
+
+/**************************************************************************/
+/* OS/A 1.4.0 */
+/* */
+/* The following kernel options are available: */
+/* General options: */
+/* ROM without ROM, all options are set in this file */
+/* CMOSCPU for (Rockwell) CMOS CPU */
+/* NMIDEV allows handling of NMIs in devices - without MMU only */
+/* NMIRESET calls RESET when an NMI is received */
+/* STACKCOPY without MMU, split stack in 2 pieces only and save */
+/* task stack each time the context is switched */
+/* Gives larger stack space per process and more */
+/* processes but is slower */
+/* */
+/* Memory options: */
+/* RAMSIZE Size of the RAM */
+/* MIN_MEM minimum needed size of RAM to start */
+/* ROMTEST if ROMTEST is defined, the MMU is not loaded, the RAM */
+/* is not tested, and RAMSIZE is assumed to be the real */
+/* RAM size. The memory blocks in MMU registers $8-$f */
+/* are secured with GETBLK */
+/* RAMTEST if set, the RAM from address 2 up is being tested up */
+/* to RAMSIZE. If not set, RAMSIZE is assumed to be the */
+/* real RAM size. */
+/* If set, then BATMEM, MEMINIVAL, and NOMIRRORMEM can */
+/* be used */
+/* BATMEM during memory test the main memory is not cleared, */
+/* the value is kept intact (for battery buffered RAM) */
+/* NOMIRRORMEM can be set if definitely _no_ mirrored memory is */
+/* there. Should definitely be set when a 32k RAM socket */
+/* can be fed with an 8 kByte RAM. */
+/* MEMINIVAL value to fill RAM with after RAM test (0 if not set) */
+/* */
+/* Architecture options: */
+/* NOMMU computer without MMU */
+/* NOSYSPORT computer without SYSPORT ($efe0) */
+/* */
+/* Architecture defines - these are defined in arch/x/devices/kinit.a65: */
+/* LEDPORT Address of the port where an LED can be switched on */
+/* LED_LED The bit of the LED in the LEDPORT. 0 means on, */
+/* != 0 means off */
+/* can be set to SYSPORT, SYS_LED for example */
+/* H_ERROR If LEDPORT is not defined, then H_ERROR must be */
+/* defined as routine to signal hardware errors */
+/* INITIMER Routine to init kernel timer, i.e. the preemption */
+/* timer */
+/* CLRTIMER clear the irq line from the kernel timer signal */
+/* */
+/**************************************************************************/
+
+
+/***************************************************************************/
+
+#ifndef ROM /* to allow independend test assembles */
+#define ROM
+
+ .word $2000
+ *= $f000
+
+#define CMOSCPU
+#define NOMMU
+#define NOSYSPORT
+#define NMIDEV
+
+#ifndef ROMSTART
+#define ROMSTART $8000
+#endif
+
+#include "arch/config.i65"
+#include "kdefs.i65"
+
+#endif /* ROM */
+
+/***************************************************************************/
+
+#define VA 1
+#define VB 4
+#define VC 0
+
+#define D_Y 97
+#define D_M 03
+#define D_D 20
+
+#define SYSTEM
+
++OSA2KERNEL =*
+
+#include "kernel/jmptbl.a65"
+#include "kernel/init.a65"
+#include "kernel/tasks.a65"
+#include "kernel/streams.a65"
+#include "kernel/devices.a65"
+#include "kernel/files.a65"
+
+POT2 .byt 1,2,4,8,$10,$20,$40,$80
+
+#if * > $fff4
+#echo ROM is to long!
+#print *+12
+#endif
+
+ .bss
+startmem=*
+ .zero
+startzero=*
+
+ .text
+
+#ifndef EOK_SEPARATE
+#include "kernel/end.a65"
+#endif
+
diff --git a/dump/oa-2.0.9/kernel/ramtest.a65 b/dump/oa-2.0.9/kernel/ramtest.a65
new file mode 100644
index 0000000..18b0760
--- /dev/null
+++ b/dump/oa-2.0.9/kernel/ramtest.a65
@@ -0,0 +1,115 @@
+/****************************************************************************
+
+ OS/A65 Version 2.0.0
+ Multitasking Operating System for 6502 Computers
+
+ Copyright (C) 1989-1998 Andre Fachat
+
+ This program is free software; you can redistribute it and/or modify
+ it under the terms of the GNU General Public License as published by
+ the Free Software Foundation; either version 2 of the License, or
+ (at your option) any later version.
+
+ This program is distributed in the hope that it will be useful,
+ but WITHOUT ANY WARRANTY; without even the implied warranty of
+ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+ GNU General Public License for more details.
+
+ You should have received a copy of the GNU General Public License
+ along with this program; if not, write to the Free Software
+ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
+
+****************************************************************************/
+
+/*
+ * This is a main RAM test routine to be included by kinit, if necessary.
+ * if BATMEM is defined, memory is not erased, rather restored
+ * to the previous state. The memory is then set to MEMINIVAL.
+ * Memory is checked from page 1 up to RAMSIZE.
+ * If NOMIRRORMEM is set, it is assumed that we do not have mirrored
+ * memory areas and this is not checked.
+ */
+
+ .(
+ ; test mirrored memory, 256-byte-wise
+
+ lda #0
+ sta pz
+#ifndef NOMIRRORMEM
+ sta pz+2 ; test location
+ ldy #pz+2 ; address of test location relative to page
+ tax
+ inx
+ stx pz+1
+m1
+#ifdef BATMEM
+ lda (pz),y
+ tax
+#endif
+ lda pz+1
+ sta (pz),y
+ lda pz+2
+
+#ifdef BATMEM
+ php
+ txa
+ sta (pz),y
+ plp
+#endif
+ bne me ; write to high location changed test location -> end
+
+ inc pz+1
+ ;bpl m1 ; up to 32 kByte
+ lda pz+1
+ cmp #RAMEND
+ bcc m1
+
+me lda pz+1
+#else
+ lda #RAMEND
+#endif /* NOMIRRORMEM */
+ sta cnt
+#ifdef RAMSTART
+ lda #RAMSTART
+#else
+ lda #1
+#endif
+ sta pz+1
+mtlx
+#ifdef BATMEM
+ lda (pz),y
+ tax
+#endif
+#ifdef SHORTRAMTEST
+ lda #MEMINIVAL ^ $ff
+#else
+ lda #$55
+#endif
+ sta (pz),y
+ cmp (pz),y
+ bne mtly
+#ifndef SHORTRAMTEST
+ asl
+ sta (pz),y
+ cmp (pz),y
+ bne mtly
+#endif
+#ifdef BATMEM
+ txa
+#else
+ lda #MEMINIVAL
+#endif
+ sta (pz),y
+ cmp (pz),y
+ bne mtly
+ iny
+ bne mtlx
+ inc pz+1
+ lda pz+1
+ cmp cnt
+ bcc mtlx
+mtly lda pz+1
+ .)
+
+
+
diff --git a/dump/oa-2.0.9/kernel/streams.a65 b/dump/oa-2.0.9/kernel/streams.a65
new file mode 100644
index 0000000..b79c1fb
--- /dev/null
+++ b/dump/oa-2.0.9/kernel/streams.a65
@@ -0,0 +1,603 @@
+/****************************************************************************
+
+ OS/A65 Version 2.0.0
+ Multitasking Operating System for 6502 Computers
+
+ Copyright (C) 1989-1998 Andre Fachat
+
+ This program is free software; you can redistribute it and/or modify
+ it under the terms of the GNU General Public License as published by
+ the Free Software Foundation; either version 2 of the License, or
+ (at your option) any later version.
+
+ This program is distributed in the hope that it will be useful,
+ but WITHOUT ANY WARRANTY; without even the implied warranty of
+ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+ GNU General Public License for more details.
+
+ You should have received a copy of the GNU General Public License
+ along with this program; if not, write to the Free Software
+ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
+
+****************************************************************************/
+
+/* TODO: make strcmd compares a lookup table */
+
+#ifdef NO_STREAMS /* embedded kernals probably don't need them */
+
+&&getc =notimp
+&&putc =notimp
+&&gets =notimp
+&&ungetc =notimp
+&&getstr =notimp
+&&frestr =notimp
+
+#else /* NO_STREAMS */
+
+/* Struct StreamData */
+
+#define S_II 0*ANZSTRM
+#define S_IO 1*ANZSTRM
+#define S_CNTW 2*ANZSTRM /* number of Writer */
+#define S_CNTR 3*ANZSTRM /* number of Reader */
+#define S_ESTAT 4*ANZSTRM /* error state byte */
+#define S_SLEN 5*ANZSTRM /* Length of struct */
+
+/*
+ * The stream buffer length must be a power of two, 64 or 128 (tested).
+ * S_AMASK is the valid bit mask for the stream buffer index.
+ */
+#define S_AMAX $40 /* $80 */
+#define S_AMASK $3f /* $7f */
+/*
+ * The watermarks are for rts/cts checking for example. High Water Mark
+ * must be something around 32 bytes before buffer full, for 9600 baud
+ * UART operation...
+ */
+#define S_AHWM $20 /* $60 */
+#define S_ALWM $01 /* $20 */
+
+ .(
+
+ .zero
+SZEI .word 0
+BZEI .word 0
+ .text
+
+#ifdef MAP_ZERO
+ .zero
+#else
+ .data
+#endif
+SYR .byt 0
+SAC .byt 0
+STRM .dsb S_SLEN
+
+ .bss
+blocks .dsb ANZSTRM*S_AMAX
+
+ .text
+ .(
+&&inistream
+ lda #0
+ tax
+l1 sta STRM,x
+ inx
+ cpx #S_SLEN
+ bcc l1
+ clc
+ rts ; jmp inifstr
+ .)
+
+#if S_AMAX = $80
+setstream .(
+ cpx #ANZSTRM
+ bcc ssok
+ rts
+ssok
+ txa
+ lsr
+ pha
+ lda #0
+ ror ; clears carry
+ adc #blocks
+ sta SZEI+1
+ clc
+ rts
+ .)
+#endif
+#if S_AMAX = $40
+setstream .(
+ cpx #ANZSTRM
+ bcc ssok
+ rts
+ssok
+ lda #0
+ sta SZEI
+ txa
+ lsr
+ ror SZEI
+ lsr
+ ror SZEI ; clears carry
+ pha
+ lda SZEI
+ adc #blocks
+ sta SZEI+1
+ clc
+ rts
+ .)
+#endif
+
+ .(
+&&getc .(
+ jsr memsys
+ php
+ sei
+ sty SYR
+ jsr teststd
+ jsr setstream
+ bcs putnostr
+ lda STRM+S_IO,x
+ cmp STRM+S_II,x
+ beq empty
+ tay
+ lda (SZEI),y
+ pha
+ iny
+ tya
+ and #S_AMASK
+ sta STRM+S_IO,x
+ pla
+ ldy SYR
+ plp
+ clc
+ jmp memtask
+ ;jsr memtask
+ ;rts
+
+&empty lda STRM+S_CNTW,x
+ bne empt1
+ lda #E_EOF
+ .byt $2c
+empt1 lda #E_SEMPTY
+ jmp xerr
+ .)
+
+&&putc .(
+#if 0
+.(
+cpx #7
+bne xx
+cmp #$80
+bcc xx
+.byt 2
+xx
+.)
+#endif
+ jsr memsys
+ php
+ sei
+ sty SYR
+ jsr teststd
+ sta SAC
+ jsr setstream
+ bcs putnostr
+ lda STRM+S_CNTR,x
+ beq snul ; NUL-Status dann ende
+ lda STRM+S_II,x
+ tay
+ lda SAC
+ sta (SZEI),y
+ iny
+ tya
+ and #S_AMASK
+ cmp STRM+S_IO,x
+ beq full
+ sta STRM+S_II,x
+ ldy SYR
+ lda SAC
+ plp
+ clc
+ jmp memtask
+ .)
+
+snul lda #E_NUL
+ .byt $2c
+&putnostr lda #E_NOSTR
+ .byt $2c
+full lda #E_SFULL
+ jmp xerr
+
+#ifdef NEED_UNGETC
+
+&&ungetc .(
+ jsr memsys
+ php
+ sei
+ sty SYR
+ jsr teststd
+ sta SAC
+ jsr setstream
+ bcs putnostr
+ lda STRM+S_CNTR,x
+ beq snul ; NUL-Status dann ende
+ lda STRM+S_IO,x
+ sec
+ sbc #1
+ and #S_AMASK
+ cmp STRM+S_II,x
+ beq full
+ sta STRM+S_IO,x
+ tay
+ lda SAC
+ sta (SZEI),y
+ ldy SYR
+ plp
+ clc
+ jmp memtask
+ .)
+
+#else
+
+&&ungetc =notimp
+
+#endif
+
+ .)
+
+ .(
+&&getstr lda #SC_GET
+ .byt $2c
+&&frestr lda #SC_FRE
+
+&&gets
+ jsr memsys
+ php
+ sei
+
+ sty SYR
+
+ cmp #SC_GET
+ bne a0
+ jmp findnew
+
+a0 jsr teststd
+ sta SAC
+ jsr setstream
+ bcs putnostr
+ ldy SYR
+ lda SAC
+
+ cmp #SC_STAT
+ bne andere
+sc_stat
+ lda STRM+S_CNTR,x
+ beq nul
+ lda STRM+S_II,x
+ sec
+ sbc STRM+S_IO,x
+ beq empty
+ and #S_AMASK
+ cmp #S_AMAX-1
+ beq full
+ cmp #S_ALWM
+ bcc low
+ cmp #S_AHWM
+ bcc ok
+ bcs high
+empty lda STRM+S_CNTW,x
+ beq eof
+ lda #E_SEMPTY
+ .byt $2c
+eof lda #E_EOF
+ .byt $2c
+high lda #E_SHWM
+ .byt $2c
+nul lda #E_NUL
+ .byt $2c
+ok lda #E_OK
+ .byt $2c
+low lda #E_SLWM
+ .byt $2c
+full lda #E_SFULL
+ .byt $2c
+illcode lda #E_NOTIMP
+&xerr ret ldy SYR
+retx
+ plp
+ cmp #1
+ jmp memtask
+
+andere
+ cmp #SC_GANZ
+ bne a00
+ sec
+ lda STRM+S_IO,x
+ sbc STRM+S_II,x
+ sec
+ sbc #1
+ and #S_AMASK
+ jmp ret
+
+a00 cmp #SC_EOF
+ bne a1
+ lda STRM+S_CNTW,x
+ beq illcode
+ dec STRM+S_CNTW,x
+ jmp ok
+
+a1 cmp #SC_CLR
+ bne a2
+clrstr lda #0
+ sta STRM+S_II,x
+ sta STRM+S_IO,x
+ sta STRM+S_ESTAT,x
+ beq ok1
+
+a2 cmp #SC_FRE
+ bne a3
+ lda STRM+S_CNTW,x
+ beq a2a
+ dec STRM+S_CNTW,x
+a2a jmp frer
+
+a3 cmp #SC_REG_RD
+ bne a4
+ inc STRM+S_CNTR,x
+ bne ok1
+
+a4 cmp #SC_REG_WR
+ bne a5
+ inc STRM+S_CNTW,x
+ bne ok1
+
+a5 cmp #SC_NUL
+ bne a6; illcode
+frer lda STRM+S_CNTR,x
+ beq illcode
+ dec STRM+S_CNTR,x
+ok1 jmp ok
+
+a6 cmp #SC_RWANZ
+ bne estat
+ ldy STRM+S_CNTR,x
+ lda STRM+S_CNTW,x
+ jmp retx
+
+nofrex lda #E_NOSTR
+ bne ret
+
+estat
+ cmp #SC_ESTAT ; get error stat byte in yr
+ bne sestat
+ lda STRM+S_ESTAT,x
+ sta SYR
+ jmp sc_stat
+sestat cmp #SC_SSTAT ; set error stat byte
+ bne cestat
+ tya
+ ora STRM+S_ESTAT,x
+ sta STRM+S_ESTAT,x
+ jmp ret
+cestat cmp #SC_CSTAT ; clear error stat byte
+ bne illcode1
+ tya
+ eor #$ff
+ and STRM+S_ESTAT,x
+ sta STRM+S_ESTAT,x
+ jmp ret
+
+illcode1 jmp illcode
+
+findnew ldx #0
+lx lda STRM+S_CNTW,x
+ ora STRM+S_CNTR,x
+ beq ly
+ inx
+ cpx #ANZSTRM
+ bcc lx
+ bcs nofrex
+ly inc STRM+S_CNTR,x
+ inc STRM+S_CNTW,x
+ jmp clrstr
+ .)
+
+#if 0
+ .(
+&&getb .(
+ jsr memsys
+ php
+ sei
+ sty SYR
+ jsr teststd
+
+ sta SAC
+
+ jsr setstream
+ bcs putnostr3
+
+ lda STRM+S_II,x
+ cmp STRM+S_IO,x
+ beq empty3
+
+#ifndef NO_MMU
+ lda #0
+ jsr setmmu1
+ ldy SYR
+ lda BLKSIZ,y
+ sec
+ sbc STRM+S_IO,x
+ sta BZEI
+ php
+ lda BLKSIZ+1,y
+ sta BZEI+1
+ lsr
+ lsr
+ lsr
+ lsr
+ jsr setmmu1
+ lda BZEI+1
+ and #$0f
+ ora #$01
+ plp
+ sbc #0
+ sta BZEI+1
+#else
+ ldy SYR
+ sec
+ lda 0,y
+ sbc STRM+S_IO,x
+ sta BZEI
+ lda 1,y
+ sbc #0
+ sta BZEI+1
+#endif
+ lda SAC
+ sta SYR
+
+ ldy STRM+S_IO,x
+l0
+ lda (SZEI),y
+ sta (BZEI),y
+ iny
+ tya
+ bpl l1 ; this heavily depends on Streamsize = 128!!
+ clc
+ adc BZEI
+ sta BZEI
+ lda #0
+ bcc l1
+ inc BZEI+1
+l1 tay
+ cmp STRM+S_II,x
+ beq end
+l2 dec SYR
+ bne l0
+end
+ tya
+ sta STRM+S_IO,x
+ lda SAC
+ sec
+ sbc SYR
+ clc
+
+ plp
+ clc
+ jmp memtask
+ ;jsr memtask
+ ;rts
+ .)
+
+snul3 lda #E_NUL
+ .byt $2c
+putnostr3 lda #E_NOSTR
+ .byt $2c
+full3 lda #E_SFULL
+ .byt $2c
+empty3 lda #E_SEMPTY
+ jmp xerr
+
+&&putb .(
+ jsr memsys
+ php
+ sei
+ sty SYR
+ jsr teststd
+
+ sta SAC
+
+ jsr setstream
+ bcs putnostr3
+ lda STRM+S_CNTR,x
+ beq snul3 ; NUL-Status dann ende
+
+ ldy STRM+S_II,x
+ iny
+ tya
+ and #$7f
+ cmp STRM+S_IO,x
+ beq full3
+
+#ifndef NO_MMU
+ lda #0
+ jsr setmmu1
+ ldy SYR
+ lda BLKSIZ,y
+ sec
+ sbc STRM+S_II,x
+ sta BZEI
+ php
+ lda BLKSIZ+1,y
+ sta BZEI+1
+ lsr
+ lsr
+ lsr
+ lsr
+ jsr setmmu1
+ lda BZEI+1
+ and #$0f
+ ora #$01
+ plp
+ sbc #0
+ sta BZEI+1
+#else
+ ldy SYR
+ sec
+ lda 0,y
+ sbc STRM+S_II,x
+ sta BZEI
+ lda 1,y
+ sbc #0
+ sta BZEI+1
+#endif
+
+ lda SAC
+ sta SYR
+
+ ldy STRM+S_II,x
+l0
+ lda (BZEI),y
+ sta (SZEI),y
+ iny
+ tya
+ bpl l1 ; this heavily depends on Streamsize = 128!!
+ clc
+ adc BZEI
+ sta BZEI
+ lda #0
+ bcc l1
+ inc BZEI+1
+l1 tay
+ cmp STRM+S_IO,x
+ bne l2
+ dey
+ jmp end
+l2 dec SYR
+ bne l0
+end
+ tya
+ sta STRM+S_II,x
+ lda SAC
+ sec
+ sbc SYR
+ clc
+
+ plp
+ clc
+ jmp memtask
+ ;jsr memtask
+ ;rts
+ .)
+
+ .)
+#endif /* endif 0 to disable getb/putb */
+ .)
+
+#endif /* NO_STREAMS */
+
diff --git a/dump/oa-2.0.9/kernel/tasks.a65 b/dump/oa-2.0.9/kernel/tasks.a65
new file mode 100644
index 0000000..431c765
--- /dev/null
+++ b/dump/oa-2.0.9/kernel/tasks.a65
@@ -0,0 +1,1377 @@
+/****************************************************************************
+
+ OS/A65 Version 2.0.0
+ Multitasking Operating System for 6502 Computers
+
+ Copyright (C) 1989-1998 Andre Fachat
+
+ This program is free software; you can redistribute it and/or modify
+ it under the terms of the GNU General Public License as published by
+ the Free Software Foundation; either version 2 of the License, or
+ (at your option) any later version.
+
+ This program is distributed in the hope that it will be useful,
+ but WITHOUT ANY WARRANTY; without even the implied warranty of
+ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+ GNU General Public License for more details.
+
+ You should have received a copy of the GNU General Public License
+ along with this program; if not, write to the Free Software
+ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
+
+****************************************************************************/
+
+
+/* Struct Task Environment Entry */
+
+/* we have three structs now:
+ * TE_* for task environment handling - not needed for system without
+ * memory management
+ * TT_* task table, contains STD streams, etc
+ * TH_* thread table, has stack info and state
+ */
+
+/* We have a significant change in kernel ID allocation. Task and Thread
+ * IDs now are directly pointers into the corresponding tables!
+ * Illegal kernel parameters may do some damage now, but it is supposed to be
+ * faster.
+ * If we need consecutive task IDs (probably lower 5 bits local, upper
+ * three bits net node number), a simple lookup table should be the fastest
+ * and shortest way.
+ *
+ * When entering the kernel, the tasks PCBUF is copied or mapped to SYSBUF
+ *
+ * The Environment number 0 is the system environment, where the kernel
+ * and all the devices operate. On simple systems (without MMU) the same
+ * environment is used for all tasks.
+ *
+ * The scheduler changed in that all the waiting threads are just
+ * ignored. Instead the thread state must be set at, e.g. VSEM, or
+ * SEND/RECEIVE by checking for waiting threads.
+ */
+
+#define TT_STDIN 0 /* Stdin */
+#define TT_STDOUT 1 /* Stdout */
+#define TT_STDERR 2 /* Stderr */
+#define TT_PARENT 3 /* parent process ID */
+#define TT_SIGADR 4 /* addr of signal routine */
+#define TT_LIBSAVE 6 /* 2 byte stdlib pointer to process info */
+#define TT_ENV 8 /* environment number */
+#define TT_NTHREADS 9 /* number of running threads */
+#define TT_SIGMASK 10 /* mask of allowed signals */
+#define TT_SIGPEND 11 /* mask of pending signals */
+#define TT_PRIORITY 12 /* priority (i.e. irqcnt) of task */
+#define TT_RETCODE 13 /* return code after kill */
+#define TT_SLEN 14 /* length of task struct */
+
+#define TH_ST 0 /* thread state */
+#define TH_TASK 1 /* task ID */
+#define TH_SP 2 /* stack pointer */
+#define TH_LIBSAVE 3 /* 2 byte saved to make stdlib thread save */
+#define TH_PAR 5 /* 3 byte kernel parameter space */
+#define TH_SLEN 8 /* length of thread struct */
+
+#ifndef ST_LEN
+#define ST_LEN 128 /* stack length */
+#endif
+
+ .(
+
+#ifdef MAP_ZERO
+ .zero
+#else
+ .data
+#endif
+
+actTask .byt 0
+actThread .byt 0
+
+&Syscnt .byt 0
+Irqcnt .byt 0
+#ifdef NEED_SLOCK
+lockfl .byt 0
+#endif
+
+div .byt 0
+div2 .byt 0
+div3 .byt 0
+
+ .data
+
+Xenv .dsb ANZXENV
+taskTab .dsb MAXNTASKS * TT_SLEN
+threadTab .dsb MAXNTHREADS * TH_SLEN
+
+ .text
+
+/******************************************************************/
+/* here are the routines to handle the task and thread tables */
+
+&initthreads .(
+ ldx #0
+ txa
+l0 sta threadTab,x
+ inx
+ cpx #MAXNTHREADS * TH_SLEN
+ bcc l0
+
+ tax
+l1 sta taskTab,x
+ inx
+ cpx #MAXNTASKS * TT_SLEN
+ bcc l1
+ rts
+ .)
+
+getthread .(
+ ldy #0
+l0
+ lda threadTab + TH_ST,y
+ beq found
+ jsr ynextthread
+ bcc l0
+ rts
+found
+ ; lda #0
+ sta threadTab + TH_LIBSAVE,y
+ sta threadTab + TH_LIBSAVE+1,y
+ clc
+ rts
+ .)
+
+gettask .(
+ ldx #0
+l0
+ lda taskTab + TT_NTHREADS,x
+ beq found
+ txa
+ clc
+ adc #TT_SLEN
+ tax
+ cmp #MAXNTASKS * TT_SLEN
+ bcc l0
+ rts
+found
+ ; lda #0
+ sta taskTab + TT_SIGADR,x
+ sta taskTab + TT_SIGADR+1,x
+ sta taskTab + TT_SIGMASK,x
+ sta taskTab + TT_SIGPEND,x
+ sta taskTab + TT_LIBSAVE,x
+ sta taskTab + TT_LIBSAVE+1,x
+ clc
+ rts
+ .)
+
+/*
+ * returns next thread ID in a and y.
+ * zero flag and carry flag are set when overrun to thread no 0
+ */
+ynextthread .(
+ tya
+&anextthread
+ clc
+ adc #TH_SLEN
+ cmp #MAXNTHREADS * TH_SLEN
+ bcc l0
+ lda #0
+l0 tay
+ rts
+ .)
+
+/************************************************************************/
+/* memory management related, but architecture specific parts
+ */
+
+#include "kernel/kenv.a65"
+
+/************************************************************************/
+
+/* fork a new task */
+
+&&fork .(
+ jsr memsys
+ sty div
+ MAPSYSBUF
+
+ ldx SYSBUF+FORK_STDIN
+ jsr teststd
+ stx SYSBUF+FORK_STDIN
+ ldx SYSBUF+FORK_STDOUT
+ jsr teststd
+ stx SYSBUF+FORK_STDOUT
+ ldx SYSBUF+FORK_STDERR
+ jsr teststd
+ stx SYSBUF+FORK_STDERR
+
+ lda SYSBUF+FORK_SIZE
+ ldy SYSBUF+FORK_SHARED
+ jsr kgetenv
+ bcc env
+ jmp noenv
+env stx div3
+
+ jsr gettask
+ bcs nothread2
+ stx div2
+ ; x is new task
+
+ lda SYSBUF+FORK_PRIORITY
+ bne prio_ok
+ ldy actTask
+ cpy #<-1
+ beq prio_def
+ lda taskTab + TT_PRIORITY,y
+ .byt $2c
+prio_def lda #IRQCNT
+prio_ok sta taskTab + TT_PRIORITY,x
+ lda actTask
+ sta taskTab + TT_PARENT,x
+
+ jsr getthread
+nothread2 bcs nothread
+ ; y has thread no
+ sty div
+
+
+ lda div2 ; task id
+ sta threadTab + TH_TASK,y ; new task id for thread
+ tax
+ lda #1
+ sta taskTab + TT_NTHREADS,x ; reserve task
+
+ lda div3
+ sta taskTab + TT_ENV,x ; save env
+
+ lda #TS_RDY
+ sta threadTab + TH_ST,y ; reserve thread
+ txa
+ sta threadTab + TH_PAR,y
+
+ lda SYSBUF+FORK_STDIN
+ sta taskTab+TT_STDIN,x
+ lda SYSBUF+FORK_STDOUT
+ sta taskTab+TT_STDOUT,x
+ lda SYSBUF+FORK_STDERR
+ sta taskTab+TT_STDERR,x
+
+ ldx div ; init new threads stack
+ jsr initsp
+
+ lda actThread
+ pha
+
+ lda div
+ jsr setthread
+
+ lda SYSBUF+FORK_ADDR
+ clc
+ adc #$ff
+ pha
+ lda SYSBUF+FORK_ADDR+1
+ adc #$ff
+ jsr push
+ pla
+ jsr push
+
+ pla
+ jsr setthread
+
+ CPFORKBUF()
+
+ ldx div2 ; return task ID
+ lda #E_OK
+ beq fend
+nothread
+ ldx div3
+ jsr freenv
+ lda #E_NOTASK
+ .byt $2c
+noenv lda #E_NOENV
+fend cmp #1
+ jmp memtask
+ ;jsr memtask
+ ;rts
+ .)
+
+&&forkt .(
+ jsr memsys
+ clc
+ adc #$ff ; prepare for RTS
+ pha
+ tya
+ adc #$ff
+ pha
+
+ lda actThread
+ sta div
+
+ jsr getthread
+ bcs nothread
+ ; y has new thread no
+ lda actTask
+ sta threadTab + TH_TASK,y
+ tax
+ inc taskTab + TT_NTHREADS,x
+
+ tya
+ tax
+ jsr initsp
+
+ txa
+ jsr setthread
+
+ pla
+ jsr push
+ pla
+ jsr push
+
+ ldy actThread
+
+; ldx actTask
+; txa
+; sta threadTab + TH_TASK,y
+; inc taskTab + TT_NTHREADS,x
+
+ tya
+ pha
+
+ lda #TS_RDY
+ sta threadTab + TH_ST,y
+
+ lda div
+ jsr setthread
+
+ pla
+ tax
+
+ lda #E_OK
+ clc
+ jmp memtask
+ ;jsr memtask
+ ;rts
+
+nothread pla
+ pla
+ lda #E_NOENV
+ sec
+ jmp memtask
+ .)
+&&kterm ; active thread terminates
+ .(
+ jsr memsys
+;.byt 2
+ ldx actTask
+ tay
+ lda taskTab + TT_NTHREADS,x
+ cmp #1
+ beq suicide
+
+ dec taskTab + TT_NTHREADS,x
+
+ ldy actThread
+ lda #TS_FREE
+ sta threadTab + TH_ST,y
+
+ jmp nexttask
+ .)
+
+/* TODO: setup last thread to clean up library! */
+suicide ldx actTask
+ tya ; ac = return code
+ jmp k1
+&&kkill jsr memsys
+k1 .(
+ sta taskTab + TT_RETCODE,x
+ stx div2
+
+ .(
+ ldy #0
+k2 txa
+ cmp threadTab + TH_TASK,y
+ bne kn
+ lda #TS_FREE
+ sta threadTab + TH_ST,y
+ dec taskTab + TT_NTHREADS,x
+ beq ke
+kn jsr ynextthread
+ bcc k2
+ke .)
+ .(
+ lda #0
+k3 tax
+ lda div2
+ cmp taskTab + TT_PARENT,x
+ bne k4
+ lda #<-1
+ sta taskTab + TT_PARENT,x
+ cmp taskTab + TT_NTHREADS,x ; waiting for checkchld
+ bne k4
+ inc taskTab + TT_NTHREADS,x
+k4 txa
+ clc
+ adc #TT_SLEN
+ cmp #TT_SLEN*MAXNTASKS
+ bcc k3
+ .)
+
+ .(
+ ldy div2
+ ldx taskTab+TT_STDIN,y
+ lda #SC_NUL
+ jsr STRCMD
+ ldx taskTab+TT_STDOUT,y
+ lda #SC_EOF
+ jsr STRCMD
+ ldx taskTab+TT_STDERR,y
+ lda #SC_EOF
+ jsr STRCMD
+ .)
+
+ .(
+ ldy div2
+ ldx taskTab + TT_PARENT,y
+ cpx #<-1
+ beq nosig
+ lda #SIG_CHLD
+ and taskTab + TT_SIGMASK,x
+ beq nosig
+ lda #SIG_CHLD
+ php
+ sei
+ ora taskTab + TT_SIGPEND,x
+ sta taskTab + TT_SIGPEND,x
+ plp
+ lda #<-1
+ sta taskTab + TT_NTHREADS,y
+nosig .)
+
+ ldy div2
+ ldx taskTab + TT_ENV,y
+ jsr freenv
+
+ jmp nexttask
+ .)
+
+ /************************************************************************/
+/* The scheduler */
+
+
+nexttask .( ; the next thread should be scheduled
+
+#ifdef MAP_ZERO
+ .zero
+#else
+ .data
+#endif
+schedThread .byt 0 /* ??? current scheduled thread number */
+
+ .text
+
+ lda actThread ; schedThread
+#ifdef NEED_SLOCK
+ bit lockfl
+ bmi ok
+#endif
+ jsr anextthread
+ bcc ok
+&&pstart ; the scheduler is started here
+ ldy #<-1
+ tya
+psi iny
+ sta Xenv,y
+ cpy #ANZXENV-1
+ bcc psi
+
+ lda #0
+#ifdef NEED_SLOCK
+ sta lockfl
+#endif
+ jsr setthread
+ lda actThread
+ok tay
+ sta schedThread
+ cld
+ cli
+
+ ; sty schedThread
+psl
+ lda threadTab + TH_ST,y
+ beq next
+
+ ldx threadTab + TH_TASK,y
+ lda taskTab + TT_SIGMASK,x
+ beq nosig
+ sty schedThread ; signals can be sent by devices...!
+ lda taskTab + TT_SIGPEND,x
+ beq nosig
+ jsr checksig
+ ldy schedThread
+nosig lda threadTab + TH_ST,y
+
+ cmp #TS_RDY ; thread ready
+ beq s1 ; then start
+
+ cmp #TS_IRQ ; thread Interrupted
+ beq s2 ; then start
+
+next ; check next thread
+ jsr ynextthread
+ cmp schedThread ; test if we started the loop with this
+ ; thread - if yes, none is able to run...
+ bne psl
+
+ ldx #HE_TASK ; no task runnable - reset machine (will change!)
+ jmp HERROR
+ .)
+
+ .(
+&s1
+ ldx threadTab + TH_TASK,y
+ lda taskTab + TT_PRIORITY,x
+ sta Irqcnt
+ tya
+ jsr setthread
+
+ ldy actThread
+ lda threadTab+TH_PAR+2,y
+ pha
+ lda threadTab+TH_PAR,y
+ tax
+ lda threadTab+TH_PAR+1,y
+ tay
+ pla
+ clc
+ cli
+ jmp memtask
+ .)
+
+ .(
+&&irqloop ; scheduler is called in interrupt routine
+ dec Irqcnt ; simple priority counter...
+ bne s2a
+
+ ldy actThread
+ lda #TS_IRQ
+ sta threadTab+TH_ST,y
+ jmp nexttask
+&s2
+ ldx threadTab + TH_TASK,y
+ lda taskTab + TT_PRIORITY,x
+ sta Irqcnt
+ tya
+ jsr setthread
+
+s2a ;jmp endirq
+&&retirq
+ MEMTASK2()
+
+#ifdef CMOSCPU
+ ply
+ plx
+ pla
+#else
+ pla
+ tay
+ pla
+ tax
+ pla
+#endif
+ rti
+
+ .)
+/*
+&&irqenv .(
+ rts
+ .)
+*/
+
+/*********************************************************************/
+
+&&suspend .(
+ jsr memsys
+ sty div
+ ldy actThread
+ sta threadTab+TH_PAR+2,y
+ txa
+ sta threadTab+TH_PAR,y
+ lda div
+ sta threadTab+TH_PAR+1,y
+ lda #TS_RDY
+&wsigentry
+ sta threadTab+TH_ST,y
+ jmp nexttask
+ .)
+
+/*********************************************************************/
+
+#ifdef NEED_RENICE
+
+&renice .(
+ jsr memsys
+ ldy actTask
+ ldx taskTab + TT_PRIORITY,y
+ clc
+ adc taskTab + TT_PRIORITY,y
+ sta taskTab + TT_PRIORITY,y
+ txa
+ clc
+ jmp memtask
+ ;jsr memtask
+ ;rts
+ .)
+
+#else
+
+&renice =notimp
+
+#endif
+
+/*********************************************************************/
+/* We don't really need this after making fork transfer the PCBUF! */
+
+#ifdef NEED_SLOCK
+
+&slock .(
+ jsr memsys
+ bcc unlock
+ lda #$ff
+ .byt $2c
+unlock lda #0
+ sta lockfl
+ clc
+ jmp memtask
+ .)
+
+#else
+
+&slock =notimp
+
+#endif
+
+/*********************************************************************/
+
+#ifdef NEED_CHECKCHLD
+
+&&checkchld .(
+ jsr memsys
+ lda #0
+loop tax
+ lda actTask
+ cmp taskTab + TT_PARENT,x
+ bne next
+ lda #<-1
+ cmp taskTab + TT_NTHREADS,x
+ bne next
+ lda taskTab + TT_RETCODE,x ; error code
+ inc taskTab + TT_NTHREADS,x
+ clc
+ beq end
+next txa
+ clc
+ adc #TT_SLEN
+ cmp #TT_SLEN*MAXNTASKS
+ bcc loop
+end jmp memtask
+ .)
+
+#else
+
+&checkchld =notimp
+
+#endif
+
+/*********************************************************************/
+
+#ifdef NEED_GETINFO
+
+&&getinfo
+ .(
+ jsr memsys
+ MAPSYSBUF
+ ldy #0
+ sty div
+loop
+ GETTASKMEM
+ ldx div
+ sta SYSBUF + TN_MEM,x
+ tya
+ sta SYSBUF + TN_PID,x
+ lda taskTab + TT_ENV,y
+ sta SYSBUF + TN_ENV,x
+ lda taskTab + TT_PARENT,y
+ sta SYSBUF + TN_PARENT,x
+ lda taskTab + TT_NTHREADS,y
+ sta SYSBUF + TN_NTHREADS,x
+
+ lda taskTab + TT_STDIN,y
+ sta SYSBUF + TN_STDIN,x
+ lda taskTab + TT_STDOUT,y
+ sta SYSBUF + TN_STDOUT,x
+ lda taskTab + TT_STDERR,y
+ sta SYSBUF + TN_STDERR,x
+
+ lda taskTab + TT_SIGADR,y
+ sta SYSBUF + TN_SIGNAL,x
+ lda taskTab + TT_SIGADR + 1,y
+ sta SYSBUF + TN_SIGNAL + 1,x
+
+ lda taskTab + TT_SIGMASK,y
+ sta SYSBUF + TN_SIGMASK,x
+
+ txa
+ clc
+ adc #TN_SLEN
+ sta div
+ tya
+ clc
+ adc #TT_SLEN
+ tay
+#if MAXNTASKS <= ANZ_ENV
+ cpy #TT_SLEN * MAXNTASKS
+#else
+ lda div
+ cmp #TN_SLEN * ANZ_ENV
+#endif
+ bcc loop
+ clc
+ jmp memtask
+
+ .)
+#else
+
+&getinfo = notimp
+
+#endif
+
+/************************************************************************/
+
+#ifdef NO_SEND /* no SEND/RECEIVE/XRECEIVE calls */
+
+&&ksend =notimp
+&&xreceive =notimp
+&&kreceive =notimp
+
+#else /* NO_SEND */
+
+&&ksend .(
+ jsr memsys
+ cpx #SEND_SYS
+ beq serr
+ sty div
+ ldy actThread
+ sta threadTab + TH_PAR+2,y
+#ifndef NO_FSM
+ cpx #SEND_FM
+ bne send1
+ ldx actTask
+ jsr fm ; needs ac for FM_REG check
+ bcs serr2
+#endif
+send1 jsr testenv
+ bcs serr
+ cpx actTask
+ beq serr
+ ldy actThread
+ txa
+ sta threadTab + TH_PAR,y
+ lda div
+ sta threadTab + TH_PAR+1,y
+
+ ldy #0
+l0 txa
+ cmp threadTab + TH_TASK,y
+ bne next
+ lda threadTab + TH_ST,y
+ cmp #TS_WFTX
+ beq copy
+ cmp #TS_WXTX
+ bne next
+ lda threadTab + TH_PAR,y
+ cmp actTask
+ beq copy
+next
+ jsr ynextthread
+ bcc l0
+ ldx actThread
+ lda #TS_WFRX
+ sta threadTab,x
+ jmp nexttask
+
+serr lda #E_NOENV
+serr2 cmp #1
+ jmp memtask
+ ;jsr memtask
+ ;rts
+copy
+#ifdef CPPCBUFTX
+ sty div
+ CPPCBUFTX()
+ ldy div
+#endif
+ lda actTask
+ sta threadTab + TH_PAR,y
+ ldx actThread
+ lda threadTab + TH_PAR+2,x
+ sta threadTab + TH_PAR+2,y
+ lda threadTab + TH_PAR+1,x
+ sta threadTab + TH_PAR+1,y
+ lda #TS_RDY
+ sta threadTab + TH_ST,y
+
+ ldx threadTab + TH_TASK,y
+
+ lda #0
+ beq serr2
+ .)
+
+&&xreceive
+ lda #<-1
+ .byt $2c
+&&kreceive .(
+ lda #0 ; TS_WFTX
+ jsr memsys
+ php
+ sta div2
+
+ sty div
+ ldy actThread
+ txa
+ sta threadTab + TH_PAR,y
+ lda div
+ sta threadTab + TH_PAR+1,y
+
+ ldy #0
+l0 lda threadTab + TH_ST,y
+ cmp #TS_WFRX
+ bne next
+ lda actTask
+ cmp threadTab + TH_PAR,y
+ bne next
+ bit div2
+ bpl copy
+ txa
+ cmp threadTab + TH_TASK,y
+ beq copy
+next
+ jsr ynextthread
+ bcc l0
+ plp
+ bcc nowait
+ lda #TS_WFTX
+ bit div2
+ bpl l1
+ lda #TS_WXTX
+l1 ldy actThread
+ sta threadTab + TH_ST,y
+ jmp nexttask
+
+nowait lda #E_NOTX
+ sec
+ jmp memtask
+
+copy plp
+#ifdef CPPCBUFRX
+ sty div
+ CPPCBUFRX()
+ ldy div
+#endif
+ lda #TS_RDY
+ sta threadTab + TH_ST,y
+ lda actTask
+ sta threadTab + TH_PAR,y
+
+ lda threadTab + TH_PAR+2,y
+ pha
+ lda threadTab + TH_TASK,y
+ tax
+ lda threadTab + TH_PAR+1,y
+ tay
+ pla
+ clc
+ jmp memtask
+ .)
+
+#endif /* NO_SEND */
+
+/*********************************************************************/
+/* Signal handling */
+
+&setsig .(
+ jsr memsys
+ ldx actTask
+ sty div
+ bcs setadr
+ ldy taskTab + TT_SIGMASK,x
+ sta taskTab + TT_SIGMASK,x
+ tya
+ ldy div
+ clc
+ jmp memtask
+ ;jsr memtask
+ ;rts
+setadr php ; this address might be used in IRQ and exchange is
+ sei ; _not_ atomic without this SEI!
+ ldy taskTab + TT_SIGADR,x
+ sta taskTab + TT_SIGADR,x
+ tya
+ pha
+ ldy taskTab + TT_SIGADR+1,x
+ lda div
+ sta taskTab + TT_SIGADR+1,x
+ pla
+ plp
+ clc
+ jmp memtask
+ ;jsr memtask
+ ;rts
+ .)
+
+/*
+ * sendsig can also be called from a device or interrupt routine,
+ * therefore we only save the signal and let the scheduler do all
+ * the resolving
+ */
+
+&sendsig .( ; ac = signal mask, xr = target task
+ jsr memsys
+ bcs sends
+ lda #TS_WSIG
+ jmp wsigentry
+sends
+ ldy taskTab + TT_NTHREADS,x
+ beq not
+ tay
+ and taskTab + TT_SIGMASK,x
+ beq ok
+ tya
+ php ; make operation atomic
+ sei
+ ora taskTab + TT_SIGPEND,x
+ sta taskTab + TT_SIGPEND,x
+ plp
+ok lda #E_OK
+ .byt $2c
+not lda #E_NOTASK
+ clc
+ jmp memtask
+ ;jsr memtask
+ ;rts
+ .)
+
+/*
+ * checksig is called when the scheduler sees that a signal is pending
+ * when putting a thread to running again
+ */
+
+checksig .(
+ lda taskTab + TT_SIGADR,x
+ ora taskTab + TT_SIGADR+1,x
+ beq clear
+
+ lda threadTab + TH_ST,y
+ cmp #TS_RDY
+ beq sigrdy
+ cmp #TS_WSIG
+ beq sigrdy
+ cmp #TS_IRQ
+ beq sigirq
+
+ lda taskTab + TT_SIGMASK,x
+ and #SIG_INTABLE
+ beq none
+
+ lda threadTab + TH_ST,y
+ cmp #TS_WFRX
+ beq sigint
+ cmp #TS_WXTX
+ beq sigint
+ cmp #TS_WFTX
+ beq sigint
+ cmp #TS_WFSEM
+ beq sigint
+none rts /* TODO: check interruptable flag, interrupt */
+
+sigrdy .(
+ tya
+ jsr setthread
+ jsr incretadr
+ lda #0
+ jsr push ; status reg for RTI
+ ldy actThread
+ lda threadTab + TH_PAR+2,y
+ jsr push ; ac for PLA
+&sig1 ldx actTask
+ lda taskTab + TT_SIGPEND,x
+ ldy actThread
+ sta threadTab + TH_PAR+2,y ; ac for signal routine
+ lda taskTab + TT_SIGADR,x
+ clc
+ adc #<-1
+ pha
+ lda taskTab + TT_SIGADR+1,x
+ adc #>-1
+ jsr push
+ pla
+ jsr push
+&clear lda #0
+ ldx actTask
+ sta taskTab + TT_SIGPEND,x
+&rtsad rts
+ .)
+
+sigirq .(
+ tya
+ jsr setthread
+ jsr pull ; xr
+ ldy actThread
+ sta threadTab + TH_PAR,y
+ jsr pull ; yr
+ ldy actThread
+ sta threadTab + TH_PAR+1,y ; ac and sr still on stack
+&sig2 lda #TS_RDY
+ sta threadTab + TH_ST,y
+ bne sig1 ; always
+ .)
+
+sigint .( ; interrupted system call
+ tya
+ jsr setthread
+ jsr incretadr
+ lda #1 ; status register for RTI (c=1)
+ jsr push
+ lda #E_INT
+ jsr push ; return code for kernel call
+ ldy actThread
+ jmp sig2
+ .)
+
+incretadr .(
+ jsr pull
+ clc
+ adc #1
+ bcc l1
+ pha
+ jsr pull
+ tay
+ iny
+ tya
+ jsr push
+ pla
+l1 jmp push
+ .)
+
+ .)
+
+/*********************************************************************/
+/* Semaphore handling */
+
+#ifdef NO_SEM /* no semaphore code */
+
+&&getsem =notimp
+&&fresem =notimp
+&&kpsem =notimp
+&&kvsem =notimp
+
+#else /* NO_SEM */
+
+ .(
+#ifdef MAP_ZERO
+ .zero
+#else
+ .data
+#endif
+SEMFRE .dsb (ANZSEM+7)/8
+SEMVAL .dsb (ANZSEM+SYSSEM+7)/8
+
+ .text
+
+&&kpsem .(
+ jsr memsys
+ bcc ps1
+ jsr tstnset
+ jmp memtask
+ps1
+ ldy actThread
+ txa
+ sta threadTab+TH_PAR,y ; Semaphor-Nummer
+ jsr tstnset
+ bcc rtask
+ ldy actThread
+ lda #TS_WFSEM
+ sta threadTab+TH_ST,y
+ jmp nexttask
+rtask jmp memtask
+ ;jsr memtask
+ ;rts
+ .)
+
+&&kvsem .(
+ jsr memsys
+ ; x has semaphore number
+
+ ldy actThread
+l0 lda threadTab + TH_ST,y
+ cmp #TS_WFSEM
+ bne next
+ txa
+ cmp threadTab + TH_PAR,y
+ beq gotone
+next jsr ynextthread
+ cpy actThread
+ bne l0
+
+ txa
+ clc
+ adc #SYSSEM
+ cmp #ANZSEM+SYSSEM
+ bcs illpar
+ jsr asetxy
+ eor #$ff
+ and SEMVAL,x
+ sta SEMVAL,x
+ jmp ok
+
+gotone lda #TS_RDY
+ sta threadTab + TH_ST,y
+ok
+ lda #E_OK
+ clc
+ jmp memtask
+ ;jsr memtask
+ ;rts
+ .)
+
+/* Semaphore administration (alloc, free) */
+
+
+&&getsem .(
+ jsr memsys
+ ldx #0
+l2 lda SEMFRE,x
+ beq gnext
+ ldy #0
+l3 lsr
+ bcs found
+ iny
+ cpy #8
+ bcc l3
+found lda POT2,y
+ eor #<-1
+ and SEMFRE,x
+ sta SEMFRE,x
+ txa
+ asl
+ asl
+ asl
+ sta div
+ tya
+ clc
+ adc div
+ tax
+ lda #E_OK
+gne cmp #1
+ jmp memtask
+ ;jsr memtask
+ ;rts
+gnext inx
+ cpx #(ANZSEM+7)/8
+ bcc l2
+ lda #E_NOSEM
+ bcs gne
+ .)
+
+&gsetxy txa
+asetxy tax
+ and #7
+ tay
+ txa
+ lsr
+ lsr
+ lsr
+ tax
+ lda POT2,y
+ rts
+
+&&fresem .(
+ jsr memsys
+ cpx #ANZSEM
+ bcs illpar
+ jsr gsetxy
+ ora SEMFRE,x
+ sta SEMFRE,x
+ lda #E_OK
+ .byt $2c
+&illpar lda #E_NOSEM
+ cmp #1
+ jmp memtask
+ ;jsr memtask
+ ;rts
+ .)
+
+&&inisem .(
+ ldy #(ANZSEM+SYSSEM+7)/8-1
+ lda #0
+i1 sta SEMVAL,y
+ dey
+ bpl i1
+
+ lda #$ff
+ ldy #(ANZSEM+7)/8-1
+if1 sta SEMFRE,y
+ dey
+ bpl if1
+ clc
+ rts
+ .)
+
+tstnset .(
+ txa
+ clc
+ adc #SYSSEM
+ cmp #ANZSEM+SYSSEM
+ bcs illpar1
+ jsr asetxy
+ and SEMVAL,x
+ bne set
+ lda POT2,y
+ ora SEMVAL,x
+ sta SEMVAL,x
+ lda #E_OK
+ .byt $2c
+illpar1 lda #E_NOSEM
+ .byt $2c
+set lda #E_SEMSET
+ cmp #1
+ rts
+ .)
+
+ .)
+
+#endif /* NO_SEM */
+
+/************************************************************************/
+
+ .(
+&&teststd php
+ ldy actTask
+ cpy #<-1
+ beq stdok
+ cpx #STDIN
+ bcc stdok
+ pha
+ txa
+ sec
+ sbc #STDIN
+ clc
+ adc actTask
+ tax
+ lda taskTab+TT_STDIN,x
+ tax
+ pla
+stdok plp
+ rts
+ .)
+
+&kgetpid .(
+ jsr memsys
+ ldx actTask
+ ldy actThread
+ jmp memtask
+ .)
+
+ .(
+&testenv cpx #OWNTASK
+ bne te1
+ ldx actTask
+ clc
+ rts
+te1 cpx #$fe-ANZXENV
+ bcc te2
+ cpx #$fe
+ bcs te2
+ pha
+ lda Xenv-($fe-ANZXENV),x
+ tax
+ pla
+ cpx #$fe-ANZXENV
+te2 rts ; c=1 on error
+ .)
+
+&tdup .(
+ jsr memsys
+ cpx #$fe-ANZXENV
+ bcc tdx
+ cpx #$fe
+ bcs tdx
+ sta Xenv-($fe-ANZXENV),x
+ clc
+ .byt $24
+tdx sec
+ jmp memtask
+ ;jsr memtask
+ ;rts
+ .)
+
+/************************************************************************/
+
+ .(
+#ifdef MAP_ZERO
+ .zero
+#else
+ .data
+#endif
+d .byt 0
+
+ .text
+
+&&kdup jsr memsys
+ php
+ cpx #STDIN
+ bcc duperr
+ stx d
+ tax
+ jsr teststd
+#ifdef CMOSCPU
+ phx
+#else
+ txa
+ pha
+#endif
+ lda d
+ clc
+ adc #<-STDIN
+ clc
+ adc actTask
+ tax
+ lda taskTab+TT_STDIN,x
+ tay
+ pla
+ plp
+ bcc dupget
+ sta taskTab+TT_STDIN,x
+dupget tya
+ clc
+ jmp memtask
+ ;jsr memtask
+ ;rts
+duperr plp
+ sec
+ lda #E_NOSTR
+ jmp memtask
+ ;jsr memtask
+ ;rts
+ .)
+
+ .(
+&&pbrk
+ jsr memsys
+ lda #TS_BRK
+ ldy actThread
+ sta threadTab+TH_ST,y
+ jmp nexttask
+ .)
+
+ .)
+
+
diff --git a/dump/oa-2.0.9/kernel/zerotest.a65 b/dump/oa-2.0.9/kernel/zerotest.a65
new file mode 100644
index 0000000..4773a42
--- /dev/null
+++ b/dump/oa-2.0.9/kernel/zerotest.a65
@@ -0,0 +1,70 @@
+/****************************************************************************
+
+ OS/A65 Version 2.0.0
+ Multitasking Operating System for 6502 Computers
+
+ Copyright (C) 1989-1998 Andre Fachat
+
+ This program is free software; you can redistribute it and/or modify
+ it under the terms of the GNU General Public License as published by
+ the Free Software Foundation; either version 2 of the License, or
+ (at your option) any later version.
+
+ This program is distributed in the hope that it will be useful,
+ but WITHOUT ANY WARRANTY; without even the implied warranty of
+ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+ GNU General Public License for more details.
+
+ You should have received a copy of the GNU General Public License
+ along with this program; if not, write to the Free Software
+ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
+
+****************************************************************************/
+
+/*
+ * This is a zeropage RAM test routine to be included by kinit, if necessary.
+ * if BATMEM is defined, memory is not erased, rather restored
+ * to the previous state. The memory is then set to MEMINIVAL
+ *
+ * Could probably be made up to check not for the full zeropage,
+ * but only a part of it...
+ */
+
+ .(
+ ldx #2
+mtl1
+#ifdef BATMEM
+ lda 0,x
+ tay
+#endif
+#ifdef SHORTRAMTEST
+ lda #MEMINIVAL ^ $ff
+#else
+ lda #$55
+#endif
+ sta 0,x
+ cmp 0,x
+ bne he_zero1
+#ifndef SHORTRAMTEST
+ asl
+ sta 0,x
+ cmp 0,x
+ bne he_zero1
+#endif
+#ifdef BATMEM
+ tya
+#else
+ lda #MEMINIVAL
+#endif
+ sta 0,x
+ cmp 0,x
+ bne he_zero1
+ inx
+ bne mtl1
+ beq end
+he_zero1 jmp he_zero
+end
+ .)
+
+
+
diff --git a/dump/oa-2.0.9/lib6502/lib6502.a65 b/dump/oa-2.0.9/lib6502/lib6502.a65
new file mode 100644
index 0000000..d928937
--- /dev/null
+++ b/dump/oa-2.0.9/lib6502/lib6502.a65
@@ -0,0 +1,74 @@
+
+/****************************************************************************
+
+ OS/A65 Version 2.0.0
+ Multitasking Operating System for 6502 Computers
+
+ Copyright (C) 1989-1998 Andre Fachat
+
+ This program is free software; you can redistribute it and/or modify
+ it under the terms of the GNU General Public License as published by
+ the Free Software Foundation; either version 2 of the License, or
+ (at your option) any later version.
+
+ This program is distributed in the hope that it will be useful,
+ but WITHOUT ANY WARRANTY; without even the implied warranty of
+ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+ GNU General Public License for more details.
+
+ You should have received a copy of the GNU General Public License
+ along with this program; if not, write to the Free Software
+ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
+
+****************************************************************************/
+
+/*
+ * This is the includer for the lib6502 standard library.
+ * It takes the preprocessor-define STDIOADDR as the address where
+ * the code should end. It sets the define LIB6502 as the start address
+ * of the library jump table.
+ */
+
+ .(
+
+#include "kernel.i65"
+#include "lib6502.i65"
+
+#include "lib6502/libdef.a65"
+#include "lib6502/libglob.a65"
+#include "lib6502/libmem.a65"
+#include "lib6502/libsem.a65"
+#include "lib6502/libsig.a65"
+#include "lib6502/libfile.a65"
+#include "lib6502/libexec.a65"
+#include "lib6502/libloader.a65"
+#include "lib6502/libnet.a65"
+#include "lib6502/libenv.a65"
+
+notimp lda #E_NOTIMP
+ sec
+ rts
+
+#define LIB6502BIN
+
+#ifdef STDIOADDR
+
+#define LIB6502BINADDR STDIOADDR-3*(LIBCALLNUM+LIBOSACALLS)
+
+#print LIB6502BINADDR
+#print *
+
+#if * < LIB6502BINADDR
+ .dsb LIB6502BINADDR-*,<-1
+#else
+#echo "Warning: lib6502 too large!"
+#endif
+
+#endif /* STDIOADDR */
+
+#include "lib6502/libjmp.a65"
+
+#undef LIB6502BIN
+
+ .)
+
diff --git a/dump/oa-2.0.9/lib6502/libdef.a65 b/dump/oa-2.0.9/lib6502/libdef.a65
new file mode 100644
index 0000000..7bcbbe3
--- /dev/null
+++ b/dump/oa-2.0.9/lib6502/libdef.a65
@@ -0,0 +1,59 @@
+
+/****************************************************************************
+
+ OS/A65 Version 2.0.0
+ Multitasking Operating System for 6502 Computers
+
+ Copyright (C) 1989-1998 Andre Fachat
+
+ This program is free software; you can redistribute it and/or modify
+ it under the terms of the GNU General Public License as published by
+ the Free Software Foundation; either version 2 of the License, or
+ (at your option) any later version.
+
+ This program is distributed in the hope that it will be useful,
+ but WITHOUT ANY WARRANTY; without even the implied warranty of
+ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+ GNU General Public License for more details.
+
+ You should have received a copy of the GNU General Public License
+ along with this program; if not, write to the Free Software
+ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
+
+****************************************************************************/
+
+/* as LT_ENV is $fc, initializing only 256 bytes to 0 will also set
+ * two bytes in LT_ENV to zero, clearing the env list.
+ * If LT_ENV increases, this will be bugged in taskinit (libglob.a65)
+ */
+#define NUMOFSIG 5 /* number of handled signals */
+#define PATHLEN 64 /* 64 byte max path len, incl drive byte */
+#define MAXFILES 16 /* number of open files */
+#define CMDLEN 128 /* maximum length of command line saved */
+#define ENVLEN 192 /* size of env var list (max 256 byte) */
+
+
+#define LT_SIGADDR 0 /* signal addresses */
+#define LT_NTHREADS 0+(NUMOFSIG*2) /* number of active threads */
+#define LT_INISTACK 1+LT_NTHREADS /* number of active threads */
+#define LT_FTAB 2+LT_NTHREADS /* table with file modes */
+#define LT_FSTRR 0+(LT_FTAB+MAXFILES) /* table with read streams */
+#define LT_FSTRW 0+(LT_FTAB+2*MAXFILES) /* table with write streams */
+#define LT_PATH 0+(LT_FTAB+3*MAXFILES) /* PATHLEN byte path */
+#define LT_CMDPARS 0+LT_PATH+PATHLEN /* command line parameter */
+#define LT_ENV 0+(LT_CMDPARS+CMDLEN) /* environment var list */
+#define LT_SLEN LT_ENV+ENVLEN /* length of struct */
+
+zta = TASKSAVE
+zth = THREADSAVE
+zen = ENVSAVE
+
+#define LSEM_MEM %00000001 /* semaphore for mem subsystem */
+#define LSEM_FILE %00000010 /* semaphore for file subsystem */
+#define LSEM_LOAD %00000100 /* semaphore for o65 loader */
+#define LSEM_EXEC %00001000 /* semaphore for exec */
+#define LSEM_ENV %00010000 /* semaphore for env handling */
+
+#define PATH_DRV 0
+#define PATH_NAME 1
+
diff --git a/dump/oa-2.0.9/lib6502/libenv.a65 b/dump/oa-2.0.9/lib6502/libenv.a65
new file mode 100644
index 0000000..f4ee85c
--- /dev/null
+++ b/dump/oa-2.0.9/lib6502/libenv.a65
@@ -0,0 +1,273 @@
+
+/****************************************************************************
+
+ OS/A65 Version 2.0.0
+ Multitasking Operating System for 6502 Computers
+
+ Copyright (C) 1989-1998 Andre Fachat
+
+ This program is free software; you can redistribute it and/or modify
+ it under the terms of the GNU General Public License as published by
+ the Free Software Foundation; either version 2 of the License, or
+ (at your option) any later version.
+
+ This program is distributed in the hope that it will be useful,
+ but WITHOUT ANY WARRANTY; without even the implied warranty of
+ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+ GNU General Public License for more details.
+
+ You should have received a copy of the GNU General Public License
+ along with this program; if not, write to the Free Software
+ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
+
+****************************************************************************/
+
+/**********************************************************************
+ * Environment handling for lib6502
+ * exports
+ * Getenv, Putenv
+ *
+ */
+ .(
+ .zero
+p .word 0
+p2 .word 0
+ .text
+
+&Getenv .(
+; .byt 2
+ sta zth
+ sty zth+1
+
+ jsr taskinit
+
+ lda #LSEM_ENV
+ jsr llock
+
+ jsr firstv
+vloop
+ ldy #0
+ lda (p),y
+ beq notf
+
+ jsr cmpv
+ bcs next
+ sta zth
+ sty zth+1
+ret
+ lda #LSEM_ENV
+ jsr lunlock
+
+ lda zth
+ ldy zth+1
+ clc
+ rts
+
+next jsr nextv
+ bcc vloop
+
+notf lda #0
+ sta zth
+ sta zth+1
+ beq ret ; branch always
+ .)
+
+
+cmpv .(
+ ldy #0
+nloop
+ lda (zth),y
+ beq end1
+ cmp (p),y
+ bne next
+ cmp #"="
+ beq end1
+ iny
+ bne nloop
+end1
+ lda (p),y
+ cmp #"="
+ bne next
+ iny
+
+ tya
+ clc
+ adc p
+ pha
+ lda p+1
+ adc #0
+ tay
+ pla
+ clc
+ rts
+next sec
+ rts
+ .)
+
+firstv .(
+ lda zta
+ clc
+ adc #LT_ENV
+ sta p+1
+ rts
+ .)
+
+nextv .(
+ ldy #0
+l0 lda (p),y
+ beq ende
+ iny
+ bne l0
+ sec
+ rts
+ende iny
+ tya
+ clc
+ adc p
+ sta p
+ bcc l1
+ inc p+1
+l1 clc
+ rts
+ .)
+
+&Putenv .(
+; .byt 2
+ sta zth
+ sty zth+1
+
+ ldy #0
+ lda (zth),y
+ bne doit
+ lda #E_ILLPAR
+ sec
+ rts
+doit
+ lda #LSEM_ENV
+ jsr llock
+
+ /* first try to find var in env. */
+
+ jsr firstv
+vloop
+ ldy #0
+ lda (p),y
+ beq notf
+
+ jsr cmpv
+ bcc found
+next
+ jsr nextv
+ bcc vloop
+ bcs notf
+
+ /* if found, remove old variable (address in p) */
+found
+ ldy #0
+l1 lda (p),y
+ beq len
+ iny
+ bne l1
+len iny
+ tya
+ clc
+ adc p
+ sta p2
+ lda p+1
+ adc #0
+ sta p2+1 ; now p2 has the address of the following var.
+
+ ldy #0
+l2 lda (p2),y
+ beq endl
+l3 lda (p2),y
+ sta (p),y
+ iny
+ cmp #0
+ bne l3
+ beq l2
+endl ; copy finished
+
+ /* now add variable at the end of the list */
+notf
+; .byt 2
+ jsr firstv
+
+ ldy #0
+l4 lda (p),y
+ beq ende
+l5 iny
+ lda (p),y
+ bne l5
+ iny
+ beq l4
+ende
+ sty p2
+ ldy #0
+l6 lda (zth),y
+ beq l7
+ iny
+ bne l6
+l7 iny
+ iny
+ clc
+ adc p2
+#if ENVLEN <> 256
+ cmp #ENVLEN
+#endif
+ bcs nomem
+
+ lda p2
+ clc
+ adc p
+ sta p2
+ lda p+1
+ adc #0
+ sta p2+1
+
+ ldy #0
+l8 lda (zth),y
+ sta (p2),y
+ iny
+ cmp #0
+ bne l8
+ sta (p2),y
+
+ lda #E_OK
+ .byt $2c
+nomem lda #E_NOMEM
+ pha
+ lda #LSEM_ENV
+ jsr lunlock
+ pla
+ cmp #1
+ rts
+ .)
+
+&Getenvp .(
+ lda zta
+ clc
+ adc #LT_ENV
+ tay
+ pla
+ rts
+ .)
+
+&Getos .(
+ lda #ostxt
+ rts
+
+ostxt .asc OSA_NAME, 32, OSA_VERSION, 32, OSA_CPU, 32
+ .asc OSA_ARCH, 32
+ .asc "lib6502",32,"0.6",0
+ .)
+
+ .)
+
diff --git a/dump/oa-2.0.9/lib6502/libexec.a65 b/dump/oa-2.0.9/lib6502/libexec.a65
new file mode 100644
index 0000000..c8fb6da
--- /dev/null
+++ b/dump/oa-2.0.9/lib6502/libexec.a65
@@ -0,0 +1,598 @@
+
+/****************************************************************************
+
+ OS/A65 Version 2.0.0
+ Multitasking Operating System for 6502 Computers
+
+ Copyright (C) 1989-1998 Andre Fachat
+
+ This program is free software; you can redistribute it and/or modify
+ it under the terms of the GNU General Public License as published by
+ the Free Software Foundation; either version 2 of the License, or
+ (at your option) any later version.
+
+ This program is distributed in the hope that it will be useful,
+ but WITHOUT ANY WARRANTY; without even the implied warranty of
+ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+ GNU General Public License for more details.
+
+ You should have received a copy of the GNU General Public License
+ along with this program; if not, write to the Free Software
+ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
+
+****************************************************************************/
+
+/**********************************************************************
+ * Exec handling for lib6502
+ * exports
+ * Exec, Forkto, Forkthread, Term, Kill, Getpid
+ *
+ */
+
+ .(
+
+/**********************************************************************
+ * Forkto forks a new thread and executes the executable given.
+ * No open files are inherited.
+ *
+ * It forks a new OS task and sets it to run at a library routine
+ * that communicates with the local library routine by a stream.
+ * The task environment is transfered this way.
+ *
+ * The forked task then opens the executable and invokes the
+ * exec code to start the new executable.
+ *
+ * The forked task closes the comm. stream without error if everything
+ * went right, or sets the error bits if there was an error. If there
+ * was an error, the forked task writes the error code to the stream
+ * which the forking task can read before closing it.
+ *
+ */
+
+ .(
+strerr rts
+
+&&Forkto
+ sta zth
+ sty zth+1
+
+ jsr GETSTR
+ bcs strerr
+ txa
+ pha
+
+ ldx #SEM_SENDBUF
+ clc
+ jsr PSEM ; get the sendbuf which we need to FORK
+
+ pla
+ sta PCBUF+FORK_NAME ; - no name, give comm stream as parameter
+ pha ; save for later
+
+ ldy #0
+ lda (zth),y
+ tax
+ jsr checkfd_r
+ bcs ferr2
+ stx PCBUF+FORK_STDIN
+
+ ldy #1
+ lda (zth),y
+ tax
+ jsr checkfd_w
+ bcs ferr2
+ stx PCBUF+FORK_STDOUT
+
+ ldy #2
+ lda (zth),y
+ tax
+ jsr checkfd_w
+ferr2 bcs ferr
+ stx PCBUF+FORK_STDERR
+
+ ldx PCBUF+FORK_STDIN
+ lda #SC_REG_RD
+ jsr STRCMD
+ ldx PCBUF+FORK_STDOUT
+ lda #SC_REG_WR
+ jsr STRCMD
+ ldx PCBUF+FORK_STDERR
+ lda #SC_REG_WR
+ jsr STRCMD
+
+ pla
+&&init_forkto_i ; this is a ROM entry only for init
+ ; which has to start lib6502 progs without
+ ; too much support
+ pha
+
+ ldy #3
+ ldx #FORK_NAME+1 ; copy cmdline + parameter
+l0 lda (zth),y
+l1 sta PCBUF,x
+ iny
+ inx
+ beq lerr
+ cmp #0
+ bne l0
+ cpx #FORK_NAME+2 ; first char
+ beq l0
+ lda PCBUF-2,x
+ bne l0
+
+ pla
+&&mon_forkto_i ; this is a ROM entry for the monitor
+ ; ac = comm stream, xr = length of fork
+ ; struct in PCBUF. First byte of filename
+ ; is comm stream
+ pha
+
+ lda #>Memend ; initial RAM size
+ sta PCBUF+FORK_SIZE
+ lda #0
+ sta PCBUF+FORK_PRIORITY
+#ifndef LIB6502_SHAREDZERO
+ lda #>-ROMSTART ; shared ROM size
+#endif
+ sta PCBUF+FORK_SHARED
+
+ lda #libfork
+ sta PCBUF+FORK_ADDR+1
+
+ txa
+ tay
+;.byt 2
+ jsr FORK
+;.byt 2
+ bcc ok
+ pha
+
+ ldx PCBUF+FORK_STDIN
+ lda #SC_NUL
+ jsr STRCMD
+ ldx PCBUF+FORK_STDOUT
+ lda #SC_EOF
+ jsr STRCMD
+ ldx PCBUF+FORK_STDERR
+ lda #SC_EOF
+ jsr STRCMD
+
+ pla
+ .byt $2c
+lerr lda #E_FNAMLEN
+ferr
+ pha
+ ldx #SEM_SENDBUF
+ jsr VSEM
+ pla
+ tay
+ pla
+ tax
+ jsr FRESTR
+ tya
+ sec
+ rts
+ok
+ pla ; stream number
+ sta zth
+ stx zth+1
+
+ ; copy cwd to communication stream
+ lda zta ; check if task is lib6502, otherwise
+ ora zta+1 ; just send empty path (when called from init)
+ bne initd
+
+ lda #0
+ ldx zth
+ jsr eputc ; empty path (drive byte + zero-length path)
+ jsr eputc
+ jsr eputc ; empty environment
+ jsr eputc
+;.byt 2
+ jmp l2
+initd
+ ldy #LT_PATH
+ lda (zta),y
+ ldx zth
+ jsr eputc
+
+ll iny
+ lda (zta),y
+ jsr eputc
+ cmp #0
+ bne ll
+
+ ; copy env to communication stream
+
+ lda zth
+ tax
+ pha
+ lda zth+1
+ pha
+ lda zta
+ clc
+ adc #LT_ENV
+ sta zth+1
+
+ ldy #0
+ lda (zth),y
+ jsr eputc
+le iny
+ lda (zth),y
+ jsr eputc
+ cmp #0
+ bne le
+ dey
+ lda (zth),y
+ beq lee
+ iny
+ jmp le
+lee
+ pla
+ sta zth+1
+ pla
+ sta zth
+
+l2 jsr YIELD
+ ; wait till forked thread returns error code - indicated by PUSH flag.
+ ldx zth
+ lda #SC_ESTAT
+ jsr STRCMD
+ tya
+ and #SCE_PUSH
+ beq l2
+
+ ldx zth
+ jsr GETC
+ pha
+
+ ; close comm. stream
+ ldx zth
+ lda #SC_NUL
+ jsr STRCMD
+
+ pla
+ ldx zth+1
+ ldy #0
+ cmp #1
+ rts
+
+eputc .(
+ pha
+ jsr PUTC
+ bcc eok
+ cmp #E_NUL
+ beq cerr
+ jsr YIELD
+ pla
+ jmp eputc
+cerr
+eok pla
+ rts
+ .)
+
+egetc .(
+ jsr GETC
+ bcc eok
+ cmp #E_EOF
+ beq cerr
+ jsr YIELD
+ jmp egetc
+cerr
+eok rts
+ .)
+
+
+libfork .( /* this is the routine where the new task is started */
+ cli
+ lda PCBUF+FORK_NAME
+ pha
+;.byt 2
+ jsr taskinit
+;.byt 2
+ ; read cwd from parent
+ pla
+ pha
+ tax
+ jsr egetc
+ ldy #LT_PATH ; drive byte
+ sta (zta),y
+rd iny
+ jsr egetc ; nullbyte terminated path
+ sta (zta),y
+ cmp #0
+ bne rd
+ ; read env from parent
+ lda zta
+ clc
+ adc #LT_ENV
+ sta zth+1
+ pla
+ pha
+ tax
+ ldy #0
+ jsr egetc
+ sta (zth),y ; at least one byte long - now dey below always works
+re iny
+ jsr egetc
+ sta (zth),y
+ cmp #0
+ bne re
+ dey
+ lda (zth),y
+ beq endenv ; last one was zero too -> end of environment
+ iny
+ jmp re
+endenv
+ ; call exec routine
+ lda #PCBUF+FORK_NAME+1
+ jsr doload
+;.byt 2
+ tax
+
+ pla
+ sta zth ; comm stream number
+ txa
+
+ php
+ pha
+ tya
+ pha
+ bcc noerr
+ txa
+ .byt $2c
+noerr lda #0
+
+ ldx zth
+ jsr PUTC
+ ldy #SCE_PUSH
+ lda #SC_SSTAT
+ jsr STRCMD
+ lda #SC_EOF
+ jsr STRCMD
+
+ pla
+ sta zth+1
+ pla
+ sta zth
+ plp
+ bcs loaderr
+
+ lda #>term-1
+ pha
+ lda #LT_CMDPARS
+ tay
+ pla ; pointer to cmd line
+ jmp (zth)
+
+loaderr
+;.byt 2
+ jsr GETPID
+ jsr bcleanpid ; free all memory allocated by this task
+ jmp TERM
+
+ .)
+
+ .)
+
+/**********************************************************************
+ *
+ */
+
+&Forkthread .(
+ sta zth
+ sty zth+1
+ ldy #LT_NTHREADS
+ lda (zta),y
+ clc
+ adc #1
+ sta (zta),y
+
+ lda zth
+ ldy zth+1
+ jsr FORKT
+ bcs error
+ rts
+error pha
+ ldy #LT_NTHREADS
+ lda (zta),y
+ sec
+ sbc #1
+ sta (zta),y
+ pla
+ sec
+ rts
+ .)
+
+&Kill .(
+ cpx #MYTASK
+ beq Term
+nosuicide
+ lda #E_NOTIMP
+ sec
+ rts
+ .)
+
+&Term .(
+ pha
+ jsr taskinit ; well, if necessary...?
+ ldy #LT_NTHREADS
+ lda (zta),y
+ beq errzero
+ sec
+ sbc #1
+ sta (zta),y
+ beq cleanup
+errzero pla
+ jmp TERM
+cleanup
+ ldy #LT_FTAB
+l0 lda (zta),y
+ bne closefd
+l1 iny
+ cpy #LT_FTAB+MAXFILES
+ bcc l0
+
+ jsr GETPID
+ jsr bcleanpid ; free all memory allocated by this task
+ pha
+ jmp TERM
+
+closefd
+ and #5
+ beq nord
+ tya
+ pha
+ clc
+ adc #MAXFILES
+ tay
+ lda (zta),y
+ tax
+ lda #SC_NUL
+ jsr STRCMD
+ pla
+ tay
+nord lda (zta),y
+ and #2
+ beq nowr
+ tya
+ pha
+ clc
+ adc #2*MAXFILES
+ tay
+ lda (zta),y
+ tax
+ lda #SC_EOF
+ jsr STRCMD
+ pla
+ tay
+nowr lda #0
+ sta (zta),y
+ beq l1
+ .)
+
+&Getpid .(
+ jsr GETPID
+ ldy #0
+ rts
+ .)
+
+doload .(
+ .zero
+cp .word
+ .text
+
+ sta zth
+ sty zth+1
+
+ /* copy parameter to save area */
+ lda #LSEM_EXEC
+ jsr llock
+
+ lda zta
+ clc
+ adc #LT_CMDPARS
+ sta cp+1
+
+ ldy #0
+c0 lda (zth),y
+ sta (cp),y
+ iny
+ cpy #CMDLEN
+ bcc c0
+
+ lda #LSEM_EXEC
+ jsr lunlock
+
+ ldx #0
+ jsr fopen2 ; like fopen, does not release PCBUF
+
+
+ php
+ txa
+ pha
+ ldx #SEM_SENDBUF
+ jsr VSEM
+ pla
+ plp
+
+ bcs ende
+ pha
+ tax
+
+ jsr loader
+
+ sta zth
+ pla
+ tax
+ lda zth
+
+ php
+ pha
+ tya
+ pha
+ jsr fclose
+ pla
+ tay
+ pla
+ plp
+ende rts
+ .)
+
+&Exec .(
+ sta zth
+ sty zth+1
+
+ jsr GETPID
+
+ ldy #LT_INISTACK
+ lda (zta),y
+ tax
+ txs
+
+ lda zta
+ ldy zta+1
+;.byt 2
+ jsr bcleanpida ; clean all allocated mem except addr in a/y
+
+ lda zth
+ ldy zth+1
+
+ jsr doload
+ bcs end
+;.byt 2
+ sty zth+1
+ sta zth
+ jsr doit
+ jmp term
+doit
+ jmp (zth)
+
+end
+ rts
+ .)
+
+ .)
+
diff --git a/dump/oa-2.0.9/lib6502/libfile.a65 b/dump/oa-2.0.9/lib6502/libfile.a65
new file mode 100644
index 0000000..a6eebc0
--- /dev/null
+++ b/dump/oa-2.0.9/lib6502/libfile.a65
@@ -0,0 +1,1679 @@
+
+/****************************************************************************
+
+ OS/A65 Version 2.0.0
+ Multitasking Operating System for 6502 Computers
+
+ Copyright (C) 1989-1998 Andre Fachat
+
+ This program is free software; you can redistribute it and/or modify
+ it under the terms of the GNU General Public License as published by
+ the Free Software Foundation; either version 2 of the License, or
+ (at your option) any later version.
+
+ This program is distributed in the hope that it will be useful,
+ but WITHOUT ANY WARRANTY; without even the implied warranty of
+ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+ GNU General Public License for more details.
+
+ You should have received a copy of the GNU General Public License
+ along with this program; if not, write to the Free Software
+ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
+
+****************************************************************************/
+
+/**********************************************************************
+ * File handling for lib6502
+ * exports
+ * Fgetc, Fputc, Fread, Fwrite
+ * Fopen, Fclose
+ *
+ * Actually many routines just pass through to the kernel, and
+ * do not check if parameters are right.
+ *
+ * Drive names are single char, "a-z" and "A-Z", case independent.
+ */
+
+ .(
+
+ .zero
+f1 .word 0
+f2 .word 0
+
+d =f2
+
+ .text
+
+&getfd .( /* this is called by others to get and lock an entry
+ in the fd table. y then holds the fileno + LT_FTAB */
+ jsr fllock
+
+ ldy #LT_FTAB
+l0 lda (zta),y
+ beq foundfd
+ iny
+ cpy #LT_FTAB+MAXFILES
+ bcc l0
+ bcs fderror
+foundfd lda #8 ; lock temporarily
+ sta (zta),y
+ clc
+fderror php
+ jsr flunlock
+ plp
+ rts
+ .)
+
+&Fclose .(
+ stx zth
+ txa
+ clc
+ adc #LT_FTAB
+ sta zth+1
+ tay
+ lda (zta),y
+ beq nofd
+ jsr fllock
+
+ asl
+ asl
+ asl
+ sta (zta),y ; clear lower bits to disable access from other threads
+
+ and #8+32 ; read + directory
+ beq noread
+ tya
+ clc
+ adc #MAXFILES
+ tay
+ lda (zta),y
+ tax
+ lda #SC_NUL
+ jsr STRCMD
+noread
+ ldy zth+1
+ lda (zta),y
+ and #16 ; write
+ beq nowrite
+ tya
+ clc
+ adc #2*MAXFILES
+ tay
+ lda (zta),y
+ tax
+ lda #SC_EOF
+ jsr STRCMD
+nowrite
+ jsr flunlock
+
+ ldy zth+1
+ lda #0
+ sta (zta),y
+ clc
+ rts
+
+nofd lda #E_NOFILE
+ sec
+ rts
+ .)
+
+/****************************************************************************
+ * currently we only have uni-directional opens allowed in this OS,
+ * with the exception of non-seekable internet connection, which are
+ * not handled here. We don't have to take care of them during open
+ * here, only in the other routines.
+ */
+ .(
+strerr pha
+ ldy f1
+ lda #0
+ sta (zta),y
+ pla
+ .byt $2c
+fderror lda #E_NOFILE
+ pha
+ jsr flunlock
+ ldx #SEM_SENDBUF
+ jsr VSEM
+ sec
+ pla
+ rts
+
+ .data
+openmode .byt 0
+ .text
+
+&&Fopen
+ sta zth
+ sty zth+1
+
+ txa
+ pha
+
+ jsr taskinit ; be save...
+
+ clc
+ ldx #SEM_SENDBUF
+ jsr PSEM ; this can block, so we do it first.
+
+ pla
+ tax
+ jsr fopen2
+
+ php
+ pha
+ txa
+ pha
+ ldx #SEM_SENDBUF
+ jsr VSEM
+ pla
+ tax
+ pla
+ plp
+ rts
+
+&&fopen2
+ txa
+ pha
+
+ jsr fllock
+
+ pla
+ sta openmode
+
+ ldy #LT_FTAB
+l0 lda (zta),y
+ beq foundfd
+ iny
+ cpy #LT_FTAB+MAXFILES
+ bcc l0
+ bcs fderror
+foundfd lda #8 ; lock temporarily
+ sta (zta),y
+ sty f1
+
+ jsr GETSTR
+ bcs strerr
+
+ stx PCBUF+FS_OPEN_STR
+
+ lda f1
+ clc
+ adc #MAXFILES
+ tay
+ txa
+ sta (zta),y ; for reading
+ tya
+ clc
+ adc #MAXFILES
+ tay
+ txa
+ sta (zta),y ; for writing
+
+ lda f1
+ pha ; save fd
+
+ jsr getname
+
+ lda zta
+ clc
+ adc #LT_PATH
+ pha
+ lda zta+1
+ adc #0
+ tay
+ pla
+ jsr usedir ; returns length in x
+ bcs lengtherr
+
+ lda #0
+ sta PCBUF+FS_OPEN_PFAD
+
+ ldy openmode
+ cpy #4
+ bcs cmderr
+ lda localfscmd,y
+ bmi cmderr
+ pha
+ txa
+ tay
+ pla
+ jsr flunlock ; unlock file lib before thread lock
+ pha ; save command
+
+ ldx #SEND_FM
+ jsr SEND
+ sec
+ jsr XRECEIVE
+
+ cmp #E_OK
+ bne fserr
+
+ pla ; get command
+ cmp #FS_OPEN_RD
+ beq ord
+ lda #2
+ .byt $2c
+ord lda #1
+
+ tax
+ pla ; get fd back
+ tay
+ txa
+ sta (zta),y
+ tya
+ sec
+ sbc #LT_FTAB
+ tax
+
+ lda #E_OK
+ clc
+ rts
+
+cmderr
+lengtherr
+ pla
+ tay
+ lda #0 ; we can unlock the fd w/o fllock
+ sta (zta),y
+ ldx PCBUF+FS_OPEN_STR
+ jsr FRESTR
+ lda #E_FNAMLEN
+ sec
+ rts
+
+fserr tay
+ pla ; fs command
+ pla ; fd
+ tax
+ tya
+ pha ; error code
+ txa
+ pha ; fd
+ clc
+ adc #MAXFILES
+ tay
+ lda (zta),y
+ tax
+ jsr FRESTR
+ pla ; fd
+ tay
+ lda #0
+ sta (zta),y
+ pla ; error code
+ sec
+ rts
+
+localfscmd
+ .byt FS_OPEN_RD, FS_OPEN_WR, <-1, FS_OPEN_AP
+
+ .)
+
+/****************************************************************************
+ * Chdir is called with the argument address in a/y
+ * it is changing the file path in (zta),LT_PATH
+ * The implementation is horrible, and using PCBUF, but time is pressing...
+ */
+
+&Chdir .(
+ sta zth
+ sty zth+1
+
+ clc
+ ldx #SEM_SENDBUF
+ jsr PSEM
+
+ jsr fllock
+
+ lda zta
+ clc
+ adc #LT_PATH
+ sta f1
+ lda zta+1
+ adc #0
+ sta f1+1
+
+ jsr getname
+
+ lda PCBUF+FS_OPEN_DRV
+ bmi nodrive ; no drive given
+ ldy #PATH_DRV
+ cmp (f1),y
+ beq nodrive
+ sta (f1),y
+ iny
+ lda #0
+ sta (f1),y ; drive given -> clear old path
+nodrive inc f1 ; inc f1 over drive byte
+ bne nd1
+ inc f1+1
+ ldy #0
+ ; Name untersuchen
+nd1 ldx #FS_CMD_NAME
+ lda PCBUF,x
+ bne ndrx ; kein Name dann Pfad lschen
+ sta (f1),y
+ jmp cdend
+
+ndrx
+ cmp #DIRSIGN ; Name beginnt mit DIRSIGN
+ bne nd2
+ lda #0 ; dann Pfad loeschen
+ sta (f1),y
+
+nd2a inx
+nd2 lda PCBUF,x ; weiter Name anschauen
+ beq ndr ; kein Name dann Ende
+ cmp #DIRSIGN
+ beq nd2a ; DIRSIGN ueberlesen
+ cmp #"."
+ bne nameok ; kein '.' dann ok
+ inx
+ lda PCBUF,x ; hier mindestens ein '.'
+ beq ndr ; Null dann Ende
+ cmp #DIRSIGN ; DIRSIGN,
+ beq nd2a ; dann '.' ignorieren
+ cmp #"." ; noch'n Punkt ?
+ bne nerrx ; nein, dann
+ jsr getpos
+ ldy d ; Position des letzten DIRSIGNs
+ lda #0
+ sta (f1),y ; loeschen = eine Verzeichnis-Ebene hoeher
+ beq nd2a ; (absolut)
+
+nerrx dex
+nameok jsr getpos ; y=Laenge des alten Pfads
+ sty d ; hier Verzeichnis-Name an Pfad anhaengen
+no iny
+ cpy #PATHLEN
+ bcs nerr
+ lda PCBUF,x
+ beq nr
+ cmp #DIRSIGN
+ beq nr
+ sta (f1),y
+ inx
+ bne no
+nr lda #0
+ sta (f1),y
+ ldy d
+ lda #DIRSIGN ; alles ok, dann Nullbyte (Ende alter Pfad) mit
+ sta (f1),y ; DIRSIGN berschreiben
+ lda PCBUF,x ; Ende des neuen Verzeichnisses
+ bne nd2a ; nein, dann wieder nach oben
+cdend
+ndr clc
+ .byt $24
+nerr sec
+ php
+ jsr flunlock
+ ldx #SEM_SENDBUF
+ jsr VSEM
+ plp
+ lda #E_FNOPATH
+ rts
+
+getpos ldy #0 ; holt y=Laenge des alten Pfadnamens
+ sty d ; und d=Position des letzten DIRSIGNs
+no0 lda (f1),y
+ beq no1
+ cmp #DIRSIGN
+ bne no2
+ sty d
+no2 iny
+ bne no0
+no1 rts
+ .)
+
+/****************************************************************************
+ * cwd returns the current working directory into a given buffer
+ */
+
+&Cwd .(
+ sta zth
+ sty zth+1
+
+ jsr fllock
+
+ dex
+ stx f2
+ cpx #2
+ bcc lerr
+
+ lda zta
+ clc
+ adc #LT_PATH-1
+ sta f1
+ lda zta+1
+ adc #0
+ sta f1+1
+
+ ldy #1
+ lda (f1),y ; path byte (LT_PATH-1+1)
+ clc
+ adc #"a"
+ dey
+ sta (zth),y
+ lda #":"
+ iny
+ sta (zth),y
+loop iny
+ lda (f1),y
+ sta (zth),y
+ beq end
+ cpy f2
+ bcc loop
+lerr lda #E_FNAMLEN
+ .byt $2c
+end
+ lda #E_OK
+ jsr flunlock
+ clc
+ rts
+ .)
+
+
+/****************************************************************************
+ * some of these routines are just grabbed from the oldlib code, as
+ * they provide all the functionality I need for Fopen...
+ * They have to be fllock'ed
+ */
+
+
+getname .(
+ /* takes the name from (zth),0+ */
+ lda #0
+ sta PCBUF+FS_OPEN_NAME
+ ldy #<-1
+ sty PCBUF+FS_OPEN_DRV
+g1 iny
+ lda (zth),y
+ beq gr
+ cmp #" "
+ beq g1
+ cmp #":"
+ beq g1
+ cmp #34 ; "
+ beq g2
+ iny
+ lda (zth),y
+ dey
+ cmp #":"
+ bne g2
+ lda (zth),y
+ cmp #$41 ; "A"
+ bcc g3
+ sbc #1
+g3 and #$0f
+ sta PCBUF+FS_OPEN_DRV
+ iny
+ iny
+g2 dey
+ ldx #FS_OPEN_NAME
+; bne g2a
+
+; &set2name /* x=iobuf, y=pcbuf */
+; sta zp
+; sty zp+1
+; ldy #<-1
+;g2a
+g2a lda #0 ;#" "
+ sta d
+gn1 iny
+ lda (zth),y
+ beq gn3
+; cmp #" " ; remove leading " ".
+; beq gn1
+; cmp #">"
+; beq gn3
+ cmp #34 ; "
+ bne gn2
+ iny
+ sta d
+gn2 lda (zth),y
+ beq gn3
+ cmp d
+ beq gn3a
+ sta PCBUF,x
+ inx
+ iny
+ bne gn2
+
+gn3a iny
+gn3 lda #0
+ sta PCBUF,x
+ inx
+gr rts
+ .)
+
+usedir .(
+ sta f1
+ sty f1+1
+ lda PCBUF+FS_OPEN_DRV
+ bpl ok ; drive given by user -> no path
+
+ ldy #PATH_DRV
+ lda (f1),y
+ sta PCBUF+FS_OPEN_DRV
+
+ ldx #FS_OPEN_NAME
+ lda PCBUF,x
+ cmp #DIRSIGN ; path given absolute -> no replacement
+ beq ok
+
+ud2 iny ; find the length of the path
+ lda (f1),y
+ bne ud2
+ sty d
+ud4 lda PCBUF,x ; find the length of the name
+ beq ud3
+ inx
+ bne ud4
+ud3 inx
+ txa
+ clc
+ adc d
+ sta d
+ bcs nerr
+ tay
+ud5 lda PCBUF,x ; copy name to new location
+ sta PCBUF,y
+ dey
+ dex
+ cpx #FS_OPEN_NAME
+ bcs ud5
+ ldy #PATH_NAME
+ud6 lda (f1),y
+ sta PCBUF+FS_OPEN_NAME-PATH_NAME,y
+ beq ud7
+ iny
+ bne ud6
+ud7 lda #DIRSIGN
+ sta PCBUF+FS_OPEN_NAME-PATH_NAME,y
+ ldx d
+ clc
+ rts
+nerr sec
+ rts
+ok ldx #FS_OPEN_NAME
+ok1 lda PCBUF,x
+ beq oke
+ inx
+ bne ok1
+oke inx
+ clc
+ rts
+ .)
+
+/****************************************************************************/
+
+&&Flib2osa_r
+&checkfd_r .( /* check if fd in x is ok for read, then return real fd in x.
+ * otherwise clear stack and return to calling routine */
+ /* not allowed to use zth ! */
+ lda #1
+ .byt $2c
+&&&Flib2osa_w
+&&checkfd_w /* check for write */
+ lda #2
+ .byt $2c
+&&checkfd_d /* check for directory */
+ lda #4
+ pha
+ txa
+ clc
+ bmi stdio
+ adc #LT_FTAB
+ tay
+ pla
+ and (zta),y
+ beq error
+ and #2
+ beq read
+ tya
+ ;clc
+ adc #2*MAXFILES
+ bne get
+read tya
+ clc
+ adc #MAXFILES
+get tay
+ lda (zta),y
+ tax
+ rts
+
+stdio pla
+ rts
+
+error
+ sec
+ lda #E_NOFILE
+ rts
+ .)
+
+
+/****************************************************************************/
+
+fllock pha
+ lda #LSEM_FILE
+ jsr llock
+ pla
+ rts
+
+flunlock
+ pha
+ lda #LSEM_FILE
+ jsr lunlock
+ pla
+ rts
+
+/****************************************************************************/
+
+putf1
+ ldy #0
+ lda (zth),y
+ sta f1
+ iny
+ lda (zth),y
+ sta f1+1
+ iny
+ lda (zth),y
+ sta f2
+ iny
+ lda (zth),y
+ sta f2+1
+ rts
+
+getf1
+ ldy #0
+ lda f1
+ sta (zth),y
+ iny
+ lda f1+1
+ sta (zth),y
+ iny
+ lda f2
+ sta (zth),y
+ iny
+ lda f2+1
+ sta (zth),y
+ rts
+
+&Fwrite .(
+ php
+ sta zth
+ sty zth+1
+ ldy #2
+ lda (zth),y
+ iny
+ ora (zth),y
+ bne doit
+ plp
+ lda #E_ILLPAR
+ sec
+ rts
+doit
+ txa
+ pha
+ jsr checkfd_w
+ bcs xerr
+rl
+ jsr fllock
+ jsr putf1
+next
+ ldy #0
+ lda (f1),y
+ jsr PUTC
+ bcc ok
+ pha
+ jsr getf1
+ jsr flunlock
+ pla
+ cmp #E_NUL
+ beq xerr ; carry is always set when jumping
+ pla
+ plp
+ php
+ pha
+ bcc ret
+ jsr YIELD
+ jmp rl
+ok
+ inc f1
+ bne o1
+ inc f1+1
+o1 lda f2
+ bne o2
+ dec f2+1
+o2 dec f2
+ lda f2
+ ora f2+1
+ bne next
+ ; finished job
+ jsr getf1
+ jsr flunlock
+ret lda #E_OK
+ sec
+ beq xerr
+/*
+err
+ tay
+ pla
+ tax
+ tya
+ plp
+ cmp #1
+ rts
+*/
+ .)
+
+&Fread .(
+ php
+ sta zth
+ sty zth+1
+ ldy #2
+ lda (zth),y
+ iny
+ ora (zth),y
+ bne doit
+ plp
+ lda #E_ILLPAR
+ sec
+ rts
+doit
+ txa
+ pha
+ jsr checkfd_r
+&xerr bcs err
+rl
+ jsr fllock
+ jsr putf1
+next
+ jsr GETC
+ bcc ok
+ pha
+ jsr getf1
+ jsr flunlock
+ pla
+ cmp #E_EOF
+ beq err
+ pla
+ plp
+ php
+ pha
+ bcc ret
+ jsr YIELD
+ jmp rl
+ok
+ ldy #0
+ sta (f1),y
+ inc f1
+ bne o1
+ inc f1+1
+o1 lda f2
+ bne o2
+ dec f2+1
+o2 dec f2
+ lda f2
+ ora f2+1
+ bne next
+ ; finished job
+ jsr getf1
+ jsr flunlock
+ret lda #E_OK
+&err
+ tay
+ pla
+ tax
+ tya
+ plp
+ cmp #1
+ rts
+ .)
+
+/****************************************************************************/
+
+&Fputc .(
+ stx zth
+ sty zth+1
+ pha
+ php
+ jsr checkfd_w
+ bcs err2
+ plp
+ bcs fputw
+
+ pla
+ jsr PUTC
+ ldx zth
+ ldy zth+1
+ rts
+fputw
+ pla
+ pha
+ jsr PUTC
+ bcc ok
+ cmp #E_NUL
+ beq ok
+ jsr YIELD
+ jmp fputw
+err2
+ plp
+ sec
+ok
+ tax
+ pla
+ txa
+ ldy zth+1
+ ldx zth
+ rts
+ .)
+
+&Fgetc .(
+ php
+ stx zth
+ sty zth+1
+ pha
+ jsr checkfd_r
+ bcs err
+ pla
+gl
+ jsr GETC
+ bcc ok
+ cmp #E_EOF
+ beq gcerr
+ plp
+ php
+ bcc gcerr
+ jsr YIELD
+ jmp gl
+ok
+ ldy zth+1
+ ldx zth
+ plp
+ clc
+ rts
+gcerr ldy zth+1
+ ldx zth
+ plp
+ sec
+ rts
+ .)
+
+/****************************************************************************/
+
+&Fseek .(
+ lda #E_NOSEEK
+ sec
+ rts
+ .)
+
+/****************************************************************************/
+
+&Pipe .(
+ jsr GETSTR
+ bcc ok
+ rts
+ok
+ jsr fllock
+
+ ldy #LT_FTAB
+l0 lda (zta),y
+ beq found1
+ iny
+ cpy #LT_FTAB+MAXFILES
+ bcc l0
+ bcs err1
+found1 sty f1
+ tya
+ clc
+ adc #MAXFILES
+ tay
+ txa
+ sta (zta),y
+
+ ldy f1
+l1 iny
+ cpy #LT_FTAB+MAXFILES
+ bcs err2
+ lda (zta),y
+ bne l1
+
+ sty f1+1
+ tya
+ clc
+ adc #2*MAXFILES
+ tay
+ txa
+ sta (zta),y
+
+ ldy f1
+ lda #1
+ sta (zta),y
+ tya
+ sec
+ sbc #LT_FTAB
+ pha ; read-fd
+
+ ldy f1+1
+ lda #2
+ sta (zta),y
+ tya
+ sec
+ sbc #LT_FTAB ; write-fd
+
+ tay
+ pla
+ tax
+ lda #E_OK
+ jsr flunlock
+ clc
+ rts
+
+err1 err2
+ jsr FRESTR
+ jsr flunlock
+ lda #E_NOFILE
+ sec
+ rts
+ .)
+
+/****************************************************************************/
+
+&Dup .(
+ jsr fllock
+ stx f1
+ ldy #LT_FTAB
+l0 lda (zta),y
+ beq found
+ iny
+ cpy #LT_FTAB+MAXFILES
+ bcc l0
+ jsr flunlock
+ lda #E_NOFILE
+ sec
+ rts
+found
+ sty f1+1
+ lda f1
+ bmi stdio
+ clc
+ adc #LT_FTAB
+ sta f1
+ tay
+found1
+ lda (zta),y
+ ldy f1+1
+ sta (zta),y
+ pha
+
+ lda f1
+ clc
+ adc #MAXFILES
+ tay
+ lda (zta),y
+ tax
+ lda f1+1
+ clc
+ adc #MAXFILES
+ tay
+ txa
+ sta (zta),y
+
+ pla
+ pha
+ and #1
+ beq nord
+ lda #SC_REG_RD
+ jsr STRCMD
+nord
+ lda f1
+ clc
+ adc #2*MAXFILES
+ tay
+ lda (zta),y
+ tax
+ lda f1+1
+ clc
+ adc #2*MAXFILES
+ tay
+ txa
+ sta (zta),y
+
+ pla
+ pha
+ and #2
+ beq nowr
+ lda #SC_REG_WR
+ jsr STRCMD
+nowr
+ pla
+
+ lda f1+1
+ sec
+ sbc #LT_FTAB
+ tax
+ jsr flunlock
+ clc
+ rts
+
+stdio ldx f1
+ clc
+ jsr DUP
+ pha
+ lda f1+1
+ clc
+ adc #MAXFILES
+ tay
+ pla
+ pha
+ sta (zta),y
+ tya
+ clc
+ adc #MAXFILES
+ tay
+ pla
+ sta (zta),y
+ lda f1
+ cmp #STDIN
+ bne noin
+ lda #1
+ .byt $2c
+noin lda #2
+ ldy f1+1
+ sta (zta),y
+ sty f1
+ jmp found1 ; copy to itself, increasing rd/wr pointers in this way
+ .)
+
+/****************************************************************************/
+
+&Stddup .(
+ jsr fllock
+ stx f1
+ sty f2
+ tya
+ clc
+ adc #LT_FTAB
+ sta f1+1
+ tay
+ cpx #STDIN
+ bne noread
+ lda (zta),y
+ and #1
+ beq ferr
+ tya
+ clc
+ adc #MAXFILES
+x1 tay
+ sty f1+1
+ lda (zta),y
+ sec
+ jsr DUP
+ ldy f1+1
+ sta (zta),y
+ clc
+ ldx f2
+ jsr flunlock
+ clc
+ rts
+noread
+ cpx #STDOUT
+ beq write
+ cpx #STDERR
+ bne ferr
+write lda (zta),y
+ and #2
+ beq ferr
+ tya
+ clc
+ adc #2*MAXFILES
+ bne x1 ; always
+
+ferr jsr flunlock
+ lda #E_NOFILE
+ sec
+ rts
+ .)
+
+/****************************************************************************/
+
+&Fcntl .(
+ jsr fllock
+ stx f1
+ sta f1+1
+
+ cmp #FC_PUSH
+ bne nopush
+ jsr checkfd_w
+ bcs efile
+ lda #SC_SSTAT
+ ldy #SCE_PUSH
+ jsr STRCMD
+ jmp ret
+nopush
+ cmp #FC_PULL
+ bne nopull
+ jsr checkfd_r
+ bcs efile
+ lda #SC_SSTAT
+ ldy #SCE_PULL
+ jsr STRCMD
+
+efile lda #E_NOFILE
+ .byt $2c
+enoti lda #E_NOTIMP
+ .byt $2c
+enord lda #E_NOREAD
+ .byt $2c
+enowr lda #E_NOWRITE
+ .byt $2c
+ret lda #E_OK
+ jsr flunlock
+ cmp #1
+ rts
+nopull
+ cmp #FC_WCHECK
+ bne nowcheck
+ jsr checkfd_w
+ bcs efile
+
+ lda #SC_STAT
+ jsr STRCMD
+ cmp #E_SFULL
+ beq enowr
+ cmp #E_NUL
+ bne ret
+ beq enowr
+nowcheck
+ cmp #FC_RCHECK
+ bne enoti
+ jsr checkfd_r
+ bcc rcok
+ jsr checkfd_d
+ bcs efile
+rcok lda #SC_GANZ
+ jsr STRCMD
+ bcs enord
+ cmp #0
+ bne ret
+ beq enord
+ .)
+
+#if 0
+&Fcntl .(
+ jsr fllock
+ stx f1
+ sta f1+1
+ txa
+ clc
+ adc #LT_FTAB
+ tay
+ sty f2
+ ldx f1+1
+ lda (zta),y
+
+ cpx #FC_PUSH
+ bne nopush
+ and #2
+ beq ferr
+ tya
+ clc
+ adc #2*MAXFILES
+ tay
+ lda (zta),y
+ tax
+ lda #SC_SSTAT
+ ldy #SCE_PUSH
+ jsr STRCMD
+ jmp ret
+nopush
+ cpx #FC_PULL
+ bne nopull
+ and #1
+ beq ferr
+ tya
+ clc
+ adc #MAXFILES
+ tay
+ lda (zta),y
+ tax
+ lda #SC_SSTAT
+ ldy #SCE_PULL
+ jsr STRCMD
+ret jsr flunlock
+ lda #E_OK
+ clc
+ rts
+
+ferr lda #E_NOFILE
+ .byt $2c
+nowcheck
+ lda #E_NOTIMP
+ .byt $2c
+enord lda #E_NOREAD
+ .byt $2c
+enowr lda #E_NOWRITE
+ jsr flunlock
+ sec
+ rts
+nopull
+ cpx #FC_RCHECK
+ bne norcheck
+ and #5 ; dir and read
+ beq ferr
+ pha
+ tya
+ clc
+ adc #MAXFILES
+ tay
+ lda (zta),y
+ tax
+ lda #SC_GANZ
+ jsr STRCMD
+ tax
+ pla ; missing check for directory-read
+ bcs enord
+ cpx #0
+ bne ret
+ beq enord
+norcheck
+ cpx #FC_WCHECK
+ bne nowcheck
+ and #2
+ beq ferr
+ tya
+ clc
+ adc #2*MAXFILES
+ tay
+ lda (zta),y
+ tax
+ lda #SC_STAT
+ jsr STRCMD
+ cmp #E_SFULL
+ beq enowr
+ cmp #E_NUL
+ bne ret
+ beq enowr
+ .)
+#endif
+
+/****************************************************************************/
+
+ .(
+
+lengtherr
+ pla
+ lda #E_FNAMLEN
+ .byt $2c
+cmderr lda #E_NOTIMP
+ jsr flunlock
+ sec
+ rts
+
+&&Fcmd
+ sta zth
+ sty zth+1
+ txa
+ pha
+
+ jsr taskinit ; be save...
+
+ clc
+ ldx #SEM_SENDBUF
+ jsr PSEM ; this can block, so we do it first.
+
+ jsr fllock
+
+ jsr getname
+
+ lda zta
+ clc
+ adc #LT_PATH
+ pha
+ lda zta+1
+ adc #0
+ tay
+ pla
+ jsr usedir ; returns length in x
+ bcs lengtherr
+
+ lda #0
+ sta PCBUF+FS_CMD_PFAD
+
+ pla
+ tay
+ cpy #FC_CHKDSK+1
+ bcs cmderr
+ cpy #FC_RENAME
+ bcc cmderr
+ bne no2nd
+ tya
+ pha
+ ldy #0
+a2 lda (zth),y
+ beq a3
+ iny
+ bne a2
+a3 iny
+ inx
+ lda (zth),y
+ sta PCBUF-1,x
+ bne a3
+ pla
+ tay
+no2nd
+ lda localfscmd-FC_RENAME,y
+ bmi cmderr
+
+ pha
+ txa
+ tay
+ pla
+ jsr flunlock ; unlock file lib before thread lock
+
+ ldx #SEND_FM
+ jsr SEND
+ sec
+ jsr XRECEIVE
+
+ pha
+ ldx #SEM_SENDBUF
+ jsr VSEM
+ pla
+
+ cmp #1
+ rts
+
+
+localfscmd
+ .byt FS_RENAME, FS_DELETE, FS_MKDIR, FS_RMDIR, FS_FORMAT, FS_CHKDSK
+
+ .)
+
+/**********************************************************************
+ * Directory handling for lib6502
+ * exports
+ * Fopendir, Freaddir
+ *
+ */
+
+ .(
+strerr pha
+ ldy f1
+ lda #0
+ sta (zta),y
+ pla
+ .byt $2c
+fderror lda #E_NOFILE
+ pha
+ jsr flunlock
+ ldx #SEM_SENDBUF
+ jsr VSEM
+ sec
+ pla
+ rts
+
+&&Fopendir
+ sta zth
+ sty zth+1
+
+ jsr taskinit ; be save...
+
+ clc
+ ldx #SEM_SENDBUF
+ jsr PSEM ; this can block, so we do it first.
+
+ jsr fllock
+
+ ldy #LT_FTAB
+l0 lda (zta),y
+ beq foundfd
+ iny
+ cpy #LT_FTAB+MAXFILES
+ bcc l0
+ bcs fderror
+foundfd lda #8 ; lock temporarily
+ sta (zta),y
+ sty f1
+
+ jsr GETSTR
+ bcs strerr
+
+ stx PCBUF+FS_OPEN_STR
+
+ lda f1
+ clc
+ adc #MAXFILES
+ tay
+ txa
+ sta (zta),y ; for reading
+
+ lda f1
+ pha ; save fd
+
+ jsr getname
+
+ lda zta
+ clc
+ adc #LT_PATH
+ pha
+ lda zta+1
+ adc #0
+ tay
+ pla
+ jsr usedir ; returns length in x
+ bcs lengtherr
+
+ jsr flunlock ; unlock file lib before thread lock
+
+ lda #0
+ sta PCBUF+FS_OPEN_PFAD
+
+ txa
+ tay
+ lda #FS_OPEN_DR
+ ldx #SEND_FM
+ jsr SEND
+ sec
+ jsr XRECEIVE
+ cmp #E_OK
+ bne fserr
+
+ ldx #SEM_SENDBUF
+ jsr VSEM
+
+ pla ; get fd back
+ tay
+ lda #4
+ sta (zta),y
+ tya
+ sec
+ sbc #LT_FTAB
+ tax
+
+ lda #E_OK
+ clc
+ rts
+
+;cmderr
+lengtherr
+ pla
+ tay
+ lda #0 ; we can unlock the fd w/o fllock
+ sta (zta),y
+ ldx PCBUF+FS_OPEN_STR
+ jsr FRESTR
+ ldx #SEM_SENDBUF
+ jsr VSEM
+ lda #E_FNAMLEN
+ sec
+ rts
+
+fserr tax ; error code
+ pla ; pull fd
+ tay
+ txa
+ pha ; push error code
+ tya
+ pha ; push fd again
+ clc
+ adc #MAXFILES
+ tay
+ lda (zta),y
+ tax
+ jsr FRESTR
+ pla ; pull fd
+ tay
+ lda #0
+ sta (zta),y
+
+ ldx #SEM_SENDBUF
+ jsr VSEM
+ pla ; pull error code
+ sec
+ rts
+ .)
+
+&Freaddir .(
+ php
+ sta zth
+ sty zth+1
+ txa
+ pha
+ jsr checkfd_d ; now x has the real stream number
+ pla
+ plp
+
+ ldy #FD_LENGTH
+l0 jsr dgetc
+ bcs dderr
+ sta (zth),y
+ iny
+ cpy #FD_LENGTH+4
+ bcc l0
+
+ ldy #FD_MDATE
+l1 jsr dgetc
+ bcs dderr
+ sta (zth),y
+ iny
+ cpy #FD_MDATE+6
+ bcc l1
+
+ jsr dgetc
+ bcs dderr
+
+ tay
+ txa
+ pha
+ tya
+
+ asl
+ tax
+ ldy #FD_PERM
+ lda ftype,x
+ sta (zth),y
+ iny
+ lda ftype+1,x
+ sta (zth),y
+ pla
+ tax
+
+ ldy #FD_NAME
+l2 jsr dgetc
+ bcs dderr
+ sta (zth),y
+ cmp #0
+ beq end
+ iny
+ cpy #FD_NAME+MAX_FILENAME
+ bcc l2
+end
+ ldy #FD_VALID
+ lda #FDV_PERM + FDV_MDATE
+ sta (zth),y
+ clc
+ rts
+dderr
+ sec
+ rts
+
+
+ftype .word S_IFREG + S_IRWXO, S_IFMNAME, S_IFMFREE, S_IFDIR + S_IRWXO
+
+dgetc .(
+ jsr GETC
+ bcs test
+ rts
+test cmp #E_SEMPTY
+ beq myield
+ sec
+ rts
+myield jsr YIELD
+ jmp dgetc
+ .)
+ .)
+
+&getrwfd .(
+ jsr fllock
+
+ ldy #LT_FTAB
+l0 lda (zta),y
+ beq foundfd
+ iny
+ cpy #LT_FTAB+MAXFILES
+ bcc l0
+ bcs fderror
+foundfd lda #8 ; lock temporarily
+ sta (zta),y
+ sty f1
+
+ jsr GETSTR
+ bcs fderr
+
+ lda f1
+ clc
+ adc #MAXFILES
+ tay
+ txa
+ sta (zta),y ; for reading
+
+ jsr GETSTR
+ bcs strerr
+
+ lda f1
+ clc
+ adc #2*MAXFILES
+ tay
+ txa
+ sta (zta),y ; for writing
+
+ ldy f1
+ lda #3 ; reading and writing
+ sta (zta),y
+
+ tya
+ sec
+ sbc #LT_FTAB
+
+ jsr flunlock
+ tax
+
+ clc
+ rts
+
+strerr lda (zta),y ; y is kept in GETSTR
+ tax
+ jsr FRESTR
+fderr ldy f1
+ lda #0
+ sta (zta),y
+fderror jsr flunlock
+ lda #E_NOFILE
+ sec
+ rts
+ .)
+
+ .)
+
diff --git a/dump/oa-2.0.9/lib6502/libglob.a65 b/dump/oa-2.0.9/lib6502/libglob.a65
new file mode 100644
index 0000000..4adadad
--- /dev/null
+++ b/dump/oa-2.0.9/lib6502/libglob.a65
@@ -0,0 +1,267 @@
+
+/****************************************************************************
+
+ OS/A65 Version 2.0.0
+ Multitasking Operating System for 6502 Computers
+
+ Copyright (C) 1989-1998 Andre Fachat
+
+ This program is free software; you can redistribute it and/or modify
+ it under the terms of the GNU General Public License as published by
+ the Free Software Foundation; either version 2 of the License, or
+ (at your option) any later version.
+
+ This program is distributed in the hope that it will be useful,
+ but WITHOUT ANY WARRANTY; without even the implied warranty of
+ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+ GNU General Public License for more details.
+
+ You should have received a copy of the GNU General Public License
+ along with this program; if not, write to the Free Software
+ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
+
+****************************************************************************/
+
+/*
+ * Here are the global (sub-)routines for the lib6502 implementation.
+ *
+ * They include:
+ * libinit check if lib is initialized and if not, do so
+ * taskinit check if task is initialized and if not, do so
+ *
+ * llock get a lock on a semaphore bit set in ac
+ * lunlock unlock semaphore bit in ac
+ *
+ * zinit init zeropage allocation
+ * zalloc alloc zeropage area
+ * zfree free zeropage are
+ */
+
+
+libinit .(
+ php
+ sei
+ pha
+ lda zen
+ bne done
+doit
+ jsr minit
+ jsr zinit
+ inc zen
+done
+ pla
+ plp
+ rts
+ .)
+
+taskinit .(
+ jsr libinit
+ lda zta
+ ora zta+1
+ clc
+ bne done
+doit ; alloc memory block for LT_* struct
+ lda #LT_SLEN
+ jsr Malloc
+ bcs done
+ sta zta
+ sty zta+1
+
+#if LT_ENV > 256
+#echo environment list too long!!
+#endif
+ ldy #0
+ tya
+l0 sta (zta),y
+ iny
+ ; cpy #LT_SLEN
+ bne l0
+
+ ldy #LT_NTHREADS
+ lda #1
+ sta (zta),y
+
+ tsx
+ inx
+ inx
+ txa
+ ldy #LT_INISTACK
+ sta (zta),y
+
+ jsr initsig
+ clc
+done rts
+ .)
+
+/*************************************************************************/
+
+llock .(
+ php
+ pha
+l1 sei
+ and zen+1
+ bne loop
+ pla
+ ora zen+1
+ sta zen+1
+ plp
+ rts
+loop pla
+ plp
+ php
+ jsr YIELD
+ pha
+ jmp l1
+ .)
+
+lunlock .(
+ php
+ sei
+ eor #$ff
+ and zen+1
+ sta zen+1
+ plp
+ rts
+ .)
+
+/*************************************************************************/
+
+
+ .(
+
+ .data
+zmem .dsb 64 ; each four byte have an owner
+ .text
+
+/*
+ * yr = first available zeropage address
+ */
+
++zinit .(
+ ldy #Zerostart
+ php
+ sei
+ lda #<-1 ; all in use
+ tax
+ inx
+l0 sta zmem,x
+ inx
+ cpx #64
+ bcc l0
+
+ tya
+ clc
+ adc #3
+ lsr
+ lsr
+ tay
+
+ lda #0 ; free
+l1 sta zmem,y
+ iny
+ cpy #64
+ bcc l1
+
+ plp
+ clc
+ rts
+ .)
+
+
+/*
+ * a = length of needed zeropage area in byte
+ * returns a= address of zeropage area with c=0
+ * or c=1 when no area found
+ *
+ */
+&zalloc .(
+ clc
+ adc #3
+ lsr
+ lsr
+
+ pha
+ jsr GETPID
+ pla
+ tay
+ inx
+ txa
+ pha
+ tya
+
+ sei
+ ldy #0
+l1
+ pha
+ tax
+l2
+ lda zmem,y
+ bne notfree
+ dex
+ beq found
+ iny
+ cpy #64
+ bcc l2
+ pla
+ pla
+ cli
+ rts
+
+notfree iny
+ pla
+ cpy #64
+ bcc l1
+ pla
+ cli
+ rts
+
+found
+ pla
+ tax
+ pla
+ iny
+l3
+ dey
+ sta zmem,y
+ dex
+ bne l3
+
+ tya
+ asl
+ asl
+ clc
+ cli
+ rts
+ .)
+
+/*
+ * a = address of area to free. All consecutive zeropage addresses
+ * belonging to this task from a on are free'd.
+ */
+&zfree .(
+ clc
+ adc #3
+ lsr
+ lsr
+ tay
+ jsr GETPID
+ inx
+ sei
+l0 txa
+ cmp zmem,y
+ bne ende
+ lda #0
+ sta zmem,y
+ iny
+ cpy #64
+ bcc l0
+ende
+ clc
+ cli
+ rts
+ .)
+
+ .)
+
+
diff --git a/dump/oa-2.0.9/lib6502/libjmp.a65 b/dump/oa-2.0.9/lib6502/libjmp.a65
new file mode 100644
index 0000000..52361f7
--- /dev/null
+++ b/dump/oa-2.0.9/lib6502/libjmp.a65
@@ -0,0 +1,247 @@
+
+/****************************************************************************
+
+ OS/A65 Version 2.0.0
+ Multitasking Operating System for 6502 Computers
+
+ Copyright (C) 1989-1998 Andre Fachat
+
+ This program is free software; you can redistribute it and/or modify
+ it under the terms of the GNU General Public License as published by
+ the Free Software Foundation; either version 2 of the License, or
+ (at your option) any later version.
+
+ This program is distributed in the hope that it will be useful,
+ but WITHOUT ANY WARRANTY; without even the implied warranty of
+ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+ GNU General Public License for more details.
+
+ You should have received a copy of the GNU General Public License
+ along with this program; if not, write to the Free Software
+ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
+
+****************************************************************************/
+
+
+#ifndef _LIB6502_H_
+#define _LIB6502_H_
+
+#include "kdefs.i65" /* this is for STD* and E_* only */
+#include "inet.i65" /* this is for network stuff */
+
+/**************************************************************************/
+
+#define MAX_FILENAME 128
+
+#define MYTASK -1
+
+#define OPEN_RD 0
+#define OPEN_WR 1
+#define OPEN_RW 2
+#define OPEN_AP 3
+
+#define FC_PUSH 0
+#define FC_PULL 1
+#define FC_RCHECK 2
+#define FC_WCHECK 3
+
+#define FC_RENAME 16
+#define FC_DELETE 17
+#define FC_MKDIR 18
+#define FC_RMDIR 19
+#define FC_FORMAT 20
+#define FC_CHKDSK 21
+
+#define FD_VALID 0
+#define FD_PERM 2
+#define FD_OWNER 4
+#define FD_GROUP 6
+#define FD_LENGTH 8
+#define FD_MDATE 12
+#define FD_NAME 18
+
+#define S_ISUID $800 /* set user ID on execution */
+#define S_ISGID $400 /* set group ID on execution */
+#define S_ISVTX $200 /* -- (sticky bit) */
+
+#define S_IRWXU $1c0 /* rwx mask for user */
+#define S_IRUSR $100 /* read by owner */
+#define S_IWUSR $080 /* write by owner */
+#define S_IXUSR $040 /* exexute by owner */
+
+#define S_IRWXG $038 /* rwx mask for group */
+#define S_IRGRP $020 /* read by group */
+#define S_IWGRP $010 /* write by group */
+#define S_IXGRP $008 /* execute by group */
+
+#define S_IRWXO $007 /* rwx mask for others */
+#define S_IROTH $004 /* read by others */
+#define S_IWOTH $002 /* write by others */
+#define S_IXOTH $001 /* execute by others */
+
+#define S_IFMT $f000 /* file type mask */
+#define S_IFSOCK $c000 /* socket */
+#define S_IFLNK $a000 /* symbolic link */
+#define S_IFREG $8000 /* regular file */
+#define S_IFBLK $6000 /* block device */
+#define S_IFDIR $4000 /* directory */
+#define S_IFCHR $2000 /* character device */
+#define S_IFIFO $1000 /* fifo */
+
+#define S_IFMNAME $3000 /* media name */
+#define S_IFMFREE $5000 /* free area on media */
+#define S_IFMSIZE $7000 /* media size */
+
+#define FDV_PERM 1
+#define FDV_LENGTH 2
+#define FDV_MDATE 4
+#define FDV_OWNER 8
+#define FDV_GROUP 16
+
+/**************************************************************************/
+
+#define LIBCALLNUM 45
+#define LIBOSACALLS 4
+
+
+/* These are actually OS/A specific calls to the internals of lib6502 */
+
+#define mon_forkto LIB6502-12 /* mon can start lib6502 prgs here */
+#define init_forkto LIB6502-9 /* init can start lib6502 prgs here */
+#define flib2osa_r LIB6502-6 /* maps lib fileno to OS/A65 stream */
+#define flib2osa_w LIB6502-3 /* maps lib fileno to OS/A65 stream */
+
+/* official LIB6502 is here */
+
+#define fopen LIB6502+0
+#define fclose LIB6502+3
+#define fgetc LIB6502+6
+#define fputc LIB6502+9
+#define fread LIB6502+12
+#define fwrite LIB6502+15
+#define fseek LIB6502+18
+#define pipe LIB6502+21
+#define flock LIB6502+24
+#define fcntl LIB6502+27
+#define fcmd LIB6502+30
+#define stddup LIB6502+33
+#define dup LIB6502+36
+
+#define fopendir LIB6502+39
+#define freaddir LIB6502+42
+#define fgetattr LIB6502+45
+#define fsetattr LIB6502+48
+#define chdir LIB6502+51
+#define cwd LIB6502+54
+
+#define connect LIB6502+57
+#define listen LIB6502+60
+#define accept LIB6502+63
+
+#define malloc LIB6502+66
+#define mfree LIB6502+69
+#define realloc LIB6502+72
+
+#define exec LIB6502+75
+#define forkto LIB6502+78
+#define forkthread LIB6502+81
+#define term LIB6502+84
+#define kill LIB6502+87
+#define getpid LIB6502+90
+#define yield LIB6502+93
+
+#define semget LIB6502+96
+#define semfre LIB6502+99
+#define semgetnamed LIB6502+102
+#define psem LIB6502+105
+#define vsem LIB6502+108
+
+#define signal LIB6502+111
+#define sendsignal LIB6502+114
+
+#define send LIB6502+117
+#define receive LIB6502+120
+
+#define getenv LIB6502+123
+#define putenv LIB6502+126
+#define getenvp LIB6502+129
+#define getos LIB6502+132
+
+#endif
+
+/**************************************************************************/
+
+#ifdef LIB6502BIN
+
+#echo lib6502 jump table
+
+; no more code goes here, as start and end addresses are computed from number of calls
+
+/* OS/A specific calls */
+
+jmp mon_forkto_i
+jmp init_forkto_i
+jmp Flib2osa_r
+jmp Flib2osa_w
+
+/* official lib6502 is here */
+
++LIB6502=*
+
+jmp Fopen
+jmp Fclose
+jmp Fgetc
+jmp Fputc
+jmp Fread
+jmp Fwrite
+jmp Fseek
+jmp Pipe
+jmp notimp ; Flock ; not working on OS/A at this time
+jmp Fcntl
+jmp Fcmd
+jmp Stddup
+jmp Dup
+
+jmp Fopendir
+jmp Freaddir
+jmp notimp ; Fgetattr ; not working on OS/A at this time
+jmp notimp ; Fsetattr ; not working on OS/A at this time
+jmp Chdir
+jmp Cwd
+
+jmp Connect
+jmp Listen
+jmp Accept
+
+jmp Malloc
+jmp Mfree
+jmp Realloc
+
+jmp Exec
+jmp Forkto
+jmp Forkthread
+jmp Term
+jmp Kill
+jmp Getpid
+jmp YIELD
+
+jmp Semget
+jmp Semfre
+jmp notimp ; Semgetnamed
+jmp Psem
+jmp Vsem
+
+jmp Signal
+jmp Sendsignal
+
+jmp notimp ; Send
+jmp notimp ; Receive
+
+jmp Getenv
+jmp Putenv
+jmp Getenvp
+jmp Getos
+
+; no more code goes here, as start and end addresses are computed from number of calls
+#endif
+
diff --git a/dump/oa-2.0.9/lib6502/libloader.a65 b/dump/oa-2.0.9/lib6502/libloader.a65
new file mode 100644
index 0000000..8d5a039
--- /dev/null
+++ b/dump/oa-2.0.9/lib6502/libloader.a65
@@ -0,0 +1,842 @@
+
+/**************************************************************************
+ *
+ * Loader for 6502 relocatable binary format
+ *
+ * The loader supports 16 bit o65 version 1 files without undefined
+ * references. Also it doesn't like pagewise relocation and 65816
+ * code, because there are different/additional relocation entries.
+ *
+ * The subroutine 'loader' is called with a file descriptor, that has a
+ * meaning for the support routines, in the X register.
+ * The file must already be open. Also binit must have been called before.
+ * The loader doesn't close the file.
+ *
+ * Support routines are:
+ *
+ * malloc a/y = length of block needed -> a/y address of block
+ *
+ * zalloc a = length of needed zeropage block. returns a=address
+ * zfree a = address of block to free
+ *
+ * fgetc x = file descriptor, returns read byte (c=0) or error (c=1)
+ * The error is passed through; fgetc blocks if no data
+ * available
+ * fgetb x = filedescriptor, a/y = address of block descriptor,
+ * i.e. a word start address and a word length of block.
+ * returns (c=0) or error in accu (c=1).
+ *
+ **************************************************************************/
+
+/**************************************************************************
+ * Here is the real loader code
+ *
+ * we keep it simple and stupid...
+ * The loader allocated only one memory block for text, data and bss together
+ * For now there is no align (yet)
+ *
+ */
+
+#include "file_o65.def"
+
+#undef DEBUG
+#undef UDEBUG
+#undef ADEBUG
+
+#ifdef DEBUG
+#define DBL(A) .(:jmp ll2:ll1 .byt A,0:ll2 php:lda #ll1:jsr etxtout:plp:.):
+#else
+#define DBL(A)
+#endif
+
+
+/*
+#define E_NOMEM <-40
+#define E_FVERSION <-41
+*/
+
+loader .(
+
+ .zero
+p1 .word 0
+p2 .word 0
+
+ .data
+tmp .byt 0
+file .byt 0
+amode .byt 0 ; align mode
+
+header .dsb HDR_LEN
+
+memory .word 0
+textm .word 0 ; memory block for everything
+textd .word 0 ; difference to assemble address
+datam .word 0
+numud .word 0 ; number of undef'd references
+udlc .byt 0
+datad .word 0
+bssd .word 0
+
+zeroa .byt 0 ; address of zeropage block
+zerod .word 0
+
+reladdr .word 0,0 ; we have two undef'd labels
+
+ .text
+
+ lda #LSEM_LOAD
+ jsr llock
+
+ jsr l2x
+
+ php
+ pha
+ lda #LSEM_LOAD
+ jsr lunlock
+ pla
+ plp
+ rts
+
+ ;*********************************
+l2x
+ stx file
+ sec
+ jsr fgetc
+ bcs end
+ sta tmp
+ sec
+ jsr fgetc
+ bcs end
+ tay
+ lda tmp
+ cpy #0
+ bne rt
+ cmp #1
+ beq load
+rt lda #E_FVERSION ; ok, but not this version
+ .byt $2c
+errhdr lda #E_FLOGICAL
+end sec
+ rts
+
+load .(
+ lda #header
+ sta p1+1
+ lda #HDR_LEN
+ sta p1+3
+
+ ldx file
+ lda #p1
+ jsr fgetb
+ bcs end
+ ; header loaded, check magic and version
+ lda header+HDR_MAGIC
+ cmp #$6f
+ bne errhdr
+ lda header+HDR_MAGIC+1
+ cmp #"6"
+ bne errhdr
+ lda header+HDR_MAGIC+2
+ cmp #"5"
+ bne errhdr
+ lda header+HDR_VERSION
+ cmp #0
+ bne errhdr
+ lda header+HDR_MODE+1
+ and #%11110000
+ bne errhdr
+
+#ifdef ADEBUG
+DBL("^m^jheader=")
+ldy #0:lx lda header,y:jsr ehexout:jsr espout:iny:cpy #HDR_LEN:bcc lx
+jsr ecrlfout
+#endif
+
+ lda header+HDR_MODE
+#ifdef ADEBUG
+pha:DBL("amode=")
+pla:pha:jsr ehexout:jsr ecrlfout:pla
+#endif
+
+ and #3
+ asl
+ sta amode ; align mode
+ ; now allocate buffers
+ lda header+HDR_TLEN
+ ldy header+HDR_TLEN+1 ; we have to modify length to keep data aligned
+ jsr doalign ; align length -> keep text seg. alignement
+ clc
+ adc header+HDR_DLEN
+ pha
+ tya
+ adc header+HDR_DLEN+1
+ tay
+ pla
+ jsr doalign
+ clc
+ adc header+HDR_BLEN
+ pha
+ tya
+ adc header+HDR_BLEN+1
+ tay
+ pla
+
+ ; now we have to increase alloc size, as malloc is byte aligned
+ ldx amode
+ clc
+ adc aadd,x
+ pha
+ tya
+ adc aadd+1,x
+ tay
+ pla
+
+#ifdef ADEBUG
+pha:tya:pha:DBL("malloc size: ")
+pla:tay:jsr ehexout:pla:pha:jsr ehexout:jsr ecrlfout:pla
+#endif
+ jsr malloc
+ bcc gotmem
+ rts
+gotmem
+ sta memory ; keep real address
+ sty memory+1
+#ifdef ADEBUG
+DBL("got memory at ")
+lda memory+1:jsr ehexout:lda memory:jsr ehexout:jsr ecrlfout
+lda memory:ldy memory+1
+#endif
+
+ jsr doalign
+ sta textm ; text load address
+ sty textm+1
+
+#ifdef ADEBUG
+DBL("aligned to ")
+lda textm+1:jsr ehexout:lda textm:jsr ehexout:jsr ecrlfout
+lda textm:ldy textm+1
+#endif
+
+
+ ; compute textd
+ ; lda textm
+ sec
+ sbc header+HDR_TBASE
+ sta textd
+ tya ; lda textm+1
+ sbc header+HDR_TBASE+1
+ sta textd+1
+
+ ; compute datad
+ lda header+HDR_TLEN
+ ldy header+HDR_TLEN+1
+ jsr doalign
+ clc
+ adc textm
+ pha
+ tya
+ adc textm+1
+ tay
+ pla
+ sta datam
+ sty datam+1
+
+ sec
+ sbc header+HDR_DBASE
+ sta datad
+ tya
+ sbc header+HDR_DBASE+1
+ sta datad+1
+
+ ; compute bssd
+ lda header+HDR_DLEN
+ ldy header+HDR_DLEN+1
+ jsr doalign
+ clc
+ adc datam
+ pha
+ tya
+ adc datam+1
+ tay
+ pla
+#ifdef ADEBUG
+pha:tya:pha:DBL("put bss to ")
+pla:tay:jsr ehexout:pla:pha:jsr ehexout:jsr ecrlfout:pla
+#endif
+ sec
+ sbc header+HDR_BBASE
+ sta bssd
+ tya
+ sbc header+HDR_BBASE+1
+ sta bssd+1
+
+ lda header+HDR_ZLEN
+ beq zero0
+ jsr zalloc
+ bcs no_zero
+ sec
+ sbc header+HDR_ZBASE
+ sta zerod
+ lda #0
+ sta zerod+1
+zero0
+ jmp do_load
+
+&no_file lda zeroa
+ jsr zfree
+no_zero lda memory
+ ldy memory+1
+ jsr mfree
+ sec
+ rts
+
+do_load ; load options (i.e. ignore them now)
+ ldx file
+ sec
+ jsr fgetc
+ bcs no_file
+ cmp #0
+ beq load_text
+ tay
+ dey
+optl sec
+ jsr fgetc
+ bcs no_file
+ dey
+ bne optl
+ beq do_load
+
+load_text ; load text segment
+ lda textm
+ sta p1
+ lda textm+1
+ sta p1+1
+ lda header+HDR_TLEN
+ sta p1+2
+ lda header+HDR_TLEN+1
+ sta p1+3
+#ifdef ADEBUG
+DBL("load text: ")
+lda p1+1:jsr ehexout:lda p1:jsr ehexout:jsr espout:lda p1+3:jsr ehexout
+lda p1+2:jsr ehexout:jsr ecrlfout
+#endif
+
+ ldx file
+ lda #p1
+ jsr fgetb ; loads text segment
+ bcs no_file
+
+ lda datam
+ sta p1
+ lda datam+1
+ sta p1+1
+ lda header+HDR_DLEN
+ sta p1+2
+ lda header+HDR_DLEN+1
+ sta p1+3
+
+#ifdef ADEBUG
+DBL("load data: ")
+lda p1+1:jsr ehexout:lda p1:jsr ehexout:jsr espout:lda p1+3:jsr ehexout
+lda p1+2:jsr ehexout:jsr ecrlfout
+#endif
+ ldx file
+ lda #p1
+ jsr fgetb ; loads data segment
+ bcs no_file2
+
+ ; check number of undefined references
+#if 1
+ jsr checkundef
+ bcc dorel
+#else
+ ldx file
+ sec
+ jsr fgetc
+ bcs no_file2
+ cmp #0
+ bne no_file2 ; we have some -> not handled
+ ldx file
+ sec
+ jsr fgetc
+ bcs no_file2
+ cmp #0
+ beq dorel
+#endif
+&no_file2
+ jmp no_file
+dorel
+ ; ok, text segments loaded, now relocate
+
+ lda textm
+ sec
+ sbc #1
+ sta p1
+ lda textm+1
+ sbc #0
+ sta p1+1
+ jsr trel
+
+ lda datam
+ ldy datam+1
+ sec
+ sbc #1
+ sta p1
+ tya
+ sbc #0
+ sta p1+1
+ jsr trel
+
+ jsr getmain
+ bcc foundmain
+
+ lda textm ; return start of text segment
+ ldy textm+1
+foundmain
+#ifdef DEBUG
+pha:tya:pha:DBL("exec addr=")
+pla:tay:jsr ehexout:pla:pha:jsr ehexout:jsr ecrlfout:pla
+#endif
+ clc
+ rts
+ .)
+
+
+
+trel .(
+ ldx file
+ sec
+ jsr fgetc
+no_file1 bcs no_file2
+ cmp #0
+ beq reloc_rts
+ cmp #255
+ bne t1
+ lda #254
+ clc
+ adc p1
+ sta p1
+ bcc trel
+ inc p1+1
+ jmp trel
+t1 clc
+ adc p1
+ sta p1
+ bcc t1a
+ inc p1+1
+t1a ; p1 is the relocation address
+ ldx file
+ sec
+ jsr fgetc
+ bcs no_file1
+ tay
+ and #A_MASK
+ sta tmp
+ tya
+ and #A_FMASK
+ jsr getreldiff
+ ldy tmp
+ cpy #A_ADR
+ bne t2
+
+ ldy #0
+ clc
+ adc (p1),y
+ sta (p1),y
+ iny
+ txa
+ adc (p1),y
+ sta (p1),y
+ jmp trel
+t2
+ cpy #A_LOW
+ bne t3
+ ldy #0
+ clc
+ adc (p1),y
+ sta (p1),y
+ jmp trel
+t3
+ cpy #A_HIGH
+ bne trel
+ sta p2
+ stx p2+1
+ ldx file
+ sec
+ jsr fgetc
+ clc
+ adc p2 ; just get the carry bit
+ ldy #0
+ lda p2+1 ; relocate high byte
+ adc (p1),y
+ sta (p1),y
+ jmp trel
+
+reloc_rts
+ clc
+ rts
+ .)
+
+getreldiff .( ; comparing with SEG_UNDEF would give a way
+ ; to get label value here for undefined refs
+ cmp #SEG_TEXT
+ bne notext
+ lda textd
+ ldx textd+1
+ rts
+notext cmp #SEG_DATA
+ bne nodata
+ lda datad
+ ldx datad+1
+ rts
+nodata cmp #SEG_BSS
+ bne nobss
+ lda bssd
+ ldx bssd+1
+ rts
+nobss cmp #SEG_ZERO
+ bne nozero
+ lda zerod
+ ldx zerod+1
+ rts
+nozero cmp #SEG_UNDEF
+ bne noundef
+ ldx file
+ sec
+ jsr fgetc
+ bcs err
+ tay
+ sec
+ jsr fgetc
+ bcs err
+ cmp #0
+ bne err
+#ifdef UDEBUG
+tya:pha:DBL("found undef:")
+pla:pha:jsr ehexout:pla:tay
+#endif
+ tya
+ asl
+ tay
+ lda reladdr+1,y
+ tax
+ lda reladdr,y
+#ifdef UDEBUG
+pha:txa:pha:DB(" addr=")
+tsx:lda $0101,x:jsr ehexout:tsx:lda $0102,x:jsr ehexout:jsr ecrlfout
+pla:tax:pla
+#endif
+ ; rts
+noundef
+err rts
+ .)
+
+doalign .( ; increase given value to align it
+ ldx amode
+ clc
+ adc aadd,x
+ and aand,x
+ pha
+ tya
+ adc aadd+1,x
+ and aand+1,x
+ tay
+ pla
+ rts
+
+&aadd .word 0, 1, 3, 255
+aand .word $ffff, $fffe, $fffc, $ff00
+ .)
+
+/* check undefined references list for occurances of LIB6502 and OSA2KERNEL */
+
+checkundef .(
+ .data ;.bss
+#define LBLEN 12
+lbuf .dsb LBLEN
+ .text
+
+ ldx file
+ sec
+ jsr fgetc
+ bcs ret
+ sta numud
+
+ ldx file
+ sec
+ jsr fgetc
+ bcs ret
+ sta numud+1
+
+ ora numud
+ beq ret
+
+ lda numud+1
+ bne err
+ lda numud
+ cmp #3
+ bcc ok
+err sec
+ret rts
+
+ok ; numud = 1 oder 2
+ lda #0
+ sta numud+1 ; numud = number of labs, numud+1 = label counts
+okl
+ ldy #0
+l1 ldx file
+ sec
+ jsr fgetc
+ bcs ret
+ sta lbuf,y
+ iny
+ cpy #LBLEN
+ bcs err
+ cmp #0
+ bne l1
+
+#ifdef UDEBUG
+DBL("^m^jundef: ")
+lda #lbuf:jsr etxtout:jsr ecrlfout
+#endif
+
+ ldx #0
+ stx udlc
+l3 dex
+ ldy #<-1
+l4 iny
+ inx
+ lda lbuf,y
+ cmp ul1,x
+ bne next
+ cmp #0
+ bne l4
+ ; found
+#ifdef UDEBUG
+DBL("udlc=")
+lda udlc:jsr ehexout
+DBL(" numud=")
+lda numud:jsr ehexout
+DBL(" numud+1=")
+lda numud+1:jsr ehexout:jsr ecrlfout
+#endif
+ lda udlc
+ asl
+ tax
+ lda numud+1
+ asl
+ tay
+ lda ud1,x
+ sta reladdr,y
+ lda ud1+1,x
+ sta reladdr+1,y
+
+ inc numud+1
+ dec numud
+ beq nook
+ jmp okl
+nook
+ clc
+ rts
+
+next lda ul1,x
+ beq fn
+ inx
+ bne next
+fn inc udlc
+ inx
+ lda ul1,x
+ beq nol3
+ jmp l3
+nol3
+ sec ; label not found at all
+ rts
+
+ul1 .asc "OSA2","KERNEL",0, "LIB","6502",0, 0
+ud1 .word OSA2KERNEL, LIB6502
+ .)
+
+getmain .(
+ ldx file
+ sec
+ jsr fgetc
+ bcs err
+ sta numud
+ sec
+ jsr fgetc
+ bcs err
+ sta numud+1
+ ora numud
+ beq err
+
+ ; we only try to read the file until we get the "main" value
+
+l2 ldy #0
+l0 sec
+ jsr fgetc
+ bcs err
+ cmp mtxt,y
+ bne nextl
+ iny
+ cmp #0
+ bne l0
+ sec
+ jsr fgetc
+ bcs err
+ cmp #2 ; check for text segment
+ bne err
+ sec
+ jsr fgetc
+ bcs err
+ tay
+ sec
+ jsr fgetc
+ bcs err
+ tax
+ tya
+ clc
+ adc textd
+ pha
+ txa
+ adc textd+1
+ tay
+ pla
+ clc
+ rts
+
+nextl sec
+ jsr fgetc
+ bcs err
+ cmp #0
+ bne nextl
+ ldy #3
+l1 sec
+ jsr fgetc
+ bcs err
+ dey
+ bne l1
+ jmp l2
+
+err sec
+ rts
+
+mtxt .asc "main",0
+ .)
+
+ .)
+
+/**************************************************************************
+ * Here come the support routines
+ *
+ * first is a simple and basic implementation of fgetb, just using fgetc
+ */
+
+fgetb .(
+ .zero
+p .word 0
+ .data
+file .byt 0
+l .word 0
+ .text
+
+ stx file ; x=file, a/y=addr of addr/len struct
+ sta p
+ sty p+1
+ ldy #3
+ lda (p),y
+ sta l+1
+ dey
+ lda (p),y
+ sta l
+ ora l+1
+ beq ende
+ dey
+ lda (p),y
+ pha
+ dey
+ lda (p),y
+ sta p
+ pla
+ sta p+1
+
+loop ldx file
+ sec
+ jsr fgetc ; this is a simple implementation
+ bcs end
+ ldy #0
+ sta (p),y
+ inc p
+ bne l0
+ inc p+1
+l0
+ lda l
+ bne l1
+ dec l+1
+l1 dec l
+
+ lda l
+ ora l+1
+ bne loop
+ende clc
+end
+ rts
+ .)
+
+#ifdef DEBUG
+ehexout .(
+ pha
+ lsr
+ lsr
+ lsr
+ lsr
+ jsr nibout
+ pla
+ and #$0f
+nibout clc
+ adc #"0"
+ cmp #"9"+1
+ bcc ok
+ adc #6
+ok ldx #STDERR
+ sec
+ jmp fputc
+ .)
+
+etxtout .(
+ .zero
+tp .word 0
+ .text
+
+ sta tp
+ sty tp+1
+ ldx #STDERR
+ ldy #0
+l0 lda (tp),y
+ beq ende
+ sec
+ jsr fputc
+ iny
+ bne l0
+ende rts
+ .)
+
+ecrlfout
+ lda #13
+ jsr ecout
+ lda #10
+ .byt $2c
+espout lda #" "
+ecout .(
+ ldx #STDERR
+ sec
+ jmp fputc
+ .)
+#endif
+
diff --git a/dump/oa-2.0.9/lib6502/libmem.a65 b/dump/oa-2.0.9/lib6502/libmem.a65
new file mode 100644
index 0000000..0fab847
--- /dev/null
+++ b/dump/oa-2.0.9/lib6502/libmem.a65
@@ -0,0 +1,652 @@
+/****************************************************************************
+
+ OS/A65 Version 2.0.0
+ Multitasking Operating System for 6502 Computers
+
+ Copyright (C) 1989-1998 Andre Fachat
+
+ This program is free software; you can redistribute it and/or modify
+ it under the terms of the GNU General Public License as published by
+ the Free Software Foundation; either version 2 of the License, or
+ (at your option) any later version.
+
+ This program is distributed in the hope that it will be useful,
+ but WITHOUT ANY WARRANTY; without even the implied warranty of
+ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+ GNU General Public License for more details.
+
+ You should have received a copy of the GNU General Public License
+ along with this program; if not, write to the Free Software
+ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
+
+****************************************************************************/
+
+/**********************************************************************
+ * Memory management for lib6502
+ * exports
+ * binit
+ * balloc, bfree, btrunc, bsplit, brealloc
+ * getbadr, getblen
+ * bcleanpid, bcleanpida
+ *
+ * The routines are _not_ threadsave!
+ * Alas they use a spin-lock on an environment semaphore.
+ * We use a spin-lock as a memory routine should be fast enough
+ * for that.
+ *
+ * The memory management is initialized when the library is initialized
+ * in an environment. It gets the available memory from the SBRK system
+ * call, and knows the start of the available memory from assemble time.
+ *
+ * The memory list is a linked list of memory blocks. Each memory block
+ * has at its beginning the pointer to the next block, a magic number,
+ * the length of the block, the task id of the owner and a flag if it is
+ * free or not.
+ *
+ * two external variables must be defined,
+ * Memstart
+ * Memend
+ * which hold the start and end addresses of the free RAM
+ */
+
+#define LM_P 0 /* pointer to next struct */
+#define LM_MAGIC 2 /* magic number for a valid struct */
+#define LM_LEN 4 /* length of memory block */
+#define LM_TASK 6 /* task the block belongs to */
+#define LM_FL 7 /* 0 = free, 1 = in use */
+#define LM_SLEN 8 /* length of struct */
+
+#define LM_MAGIC_VAL $AF98
+
+#define MINBUF 8 /* minimum size of memory block */
+#define MINMASK %11111000 /* address mask bit of memory block */
+
+#define MINLEN (MINBUF+LM_SLEN)
+
+#ifndef MEMINIVAL
+#define MEMINIVAL 0
+#endif
+
+#undef DEBUGMEM
+#undef DB
+#define DB(a)
+
+ .(
+
+ .zero
+p1 .word 0
+p2 .word 0
+p3 .word 0
+p4 .word 0
+p5 .word 0
+ .text
+
+&minit .(
+ lda #Memstart
+ sta p1+1
+
+ ldy #LM_P
+ lda #<-1
+ sta (p1),y
+ iny
+ sta (p1),y
+ iny
+ lda #LM_MAGIC_VAL
+ sta (p1),y
+ iny
+ lda #Memend-Memstart-LM_SLEN
+ sta (p1),y
+ iny
+ lda #<-1
+ sta (p1),y ; no task
+ iny
+ lda #0
+ sta (p1),y ; fl = 0
+ rts
+ .)
+
+&Malloc .(
+ pha
+ lda #LSEM_MEM
+ jsr llock ; lock memory subsystem
+ pla
+ sta p2 ; length of needed memory block
+ sty p2+1
+ sec
+
+&alloc php ; trick to not unlock when realloc
+
+ lda #Memstart
+ sta p1+1
+l0 ldy #LM_FL
+ lda (p1),y
+ bne next
+ ldy #LM_LEN+1
+ lda (p1),y
+ cmp p2+1
+ bcc next
+ bne found
+ dey
+ lda (p1),y
+ cmp p2
+ bcs found
+next
+ ldy #LM_P
+ lda (p1),y
+ pha
+ iny
+ lda (p1),y
+ sta p1+1
+ pla
+ sta p1
+ and p1+1
+ cmp #$ff
+ bne l0
+
+ plp ; alloc/realloc switch discarded
+ DB("Didn't find appropriate memory block!^m^j")
+ lda #LSEM_MEM
+ jsr lunlock
+ lda #E_NOMEM
+ sec
+ rts
+
+found ; now split memory block in two
+ jsr split
+
+ ldy #LM_FL
+ lda #1
+ sta (p1),y
+ jsr GETPID
+ txa
+ ldy #LM_TASK
+ sta (p1),y
+
+ plp
+ bcc reallocr
+
+ lda p1
+ clc
+ adc #LM_SLEN
+ pha
+ lda p1+1
+ adc #0
+ tay
+ lda #LSEM_MEM
+ jsr lunlock
+ pla
+reallocr
+ clc
+ rts
+ .)
+
+&Mfree .(
+ pha
+ lda #LSEM_MEM
+ jsr llock
+ pla
+ sec
+ sbc #LM_SLEN
+ sta p2
+ sta p1
+ tya
+ sbc #0
+ sta p2+1
+ sta p1+1
+
+ jsr checkblk ; returns only on success, checks (p1)
+
+ sec
+&free php
+
+ ldy #LM_TASK
+ lda #<-1
+ sta (p2),y
+ iny
+ lda #0
+ sta (p2),y
+
+ jsr merge ; sees if (p2) can be merged with following block
+ ; leaves p1 unchanged
+
+ lda #Memstart
+ sta p2
+ stx p2+1
+
+ cmp p1
+ bne l1
+ cpx p1+1
+ beq endpm
+l1
+ ldy #LM_P+1
+ lda (p2),y
+ tax
+ dey
+ lda (p2),y
+
+ cmp p1
+ bne next
+ cpx p1+1
+ beq domerge
+next
+ sta p2
+ stx p2+1
+ and p2+1
+ cmp #$ff
+ bne l1
+ beq endpm
+domerge
+ ldy #LM_FL
+ lda (p2),y
+ bne endpm ; if not free, no merge!
+
+ jsr merge
+endpm
+ plp
+ bcc reallocr
+
+ lda #LSEM_MEM
+ jsr lunlock
+ clc
+reallocr
+ rts
+ .)
+
+&Realloc .(
+ pha
+ lda #LSEM_MEM
+ jsr llock
+ pla
+ sec
+ sbc #LM_SLEN
+ sta p1
+ tya
+ sbc #0
+ sta p1+1
+ lda 0,x
+ sta p2
+ lda 1,x
+ sta p2+1
+
+ jsr checkblk ; returns only on success, checks (p1)
+
+ jsr split
+ bcs large ; now we need a larger array -> call malloc
+
+ ;clc
+ lda p1
+ adc #LM_SLEN
+ pha
+ lda p1+1
+ adc #0
+ tay
+ lda #LSEM_MEM
+ jsr lunlock
+ pla
+ clc
+ rts
+large ; call malloc...
+ lda p1
+ pha
+ lda p1+1
+ pha
+ clc
+ jsr alloc
+ bcc found
+ tay
+ pla
+ pla
+ tya
+ rts
+found ; new address in p1
+ pla ; old address in p2
+ sta p2
+ pla
+ sta p2+1
+ ldy #LM_LEN ; length of data to copy to p3
+ lda (p2),y
+ sta p3
+ iny
+ lda (p2),y
+ sta p3
+
+ clc
+ lda p1
+ adc #LM_SLEN
+ sta p4
+ lda p1+1
+ adc #0
+ sta p4+1
+
+ clc
+ lda p2
+ adc #LM_SLEN
+ sta p5
+ lda p2+1
+ adc #0
+ sta p5+1
+ ; copy old block to new block
+ ldy #0
+loop lda (p5),y
+ sta (p4),y
+ iny
+ bne l1
+ inc p4+1
+ inc p5+1
+l1 ; decrease number to copy
+ lda p3
+ bne l2
+ dec p3+1
+l2 dec p3
+ lda p3
+ ora p3
+ bne loop
+
+ clc
+ jsr free ; p1 is preserved, p2 is freed
+
+ lda p1
+ sec
+ sbc #LM_SLEN
+ pha
+ lda p1+1
+ sbc #0
+ tay
+
+ lda #LSEM_MEM
+ jsr lunlock
+
+ pla
+ clc
+ rts
+ .)
+
+/********************* internal functions *************************/
+
+checkblk .(
+ ldy #LM_MAGIC
+ lda (p1),y
+ cmp #LM_MAGIC_VAL
+ beq ok
+illaddr
+ pla
+ pla
+ DB("illegal pointer for free/realloc^m^j")
+ lda #LSEM_MEM
+ jsr lunlock
+ lda #E_ILLADDR
+ sec
+ rts
+ok
+ jsr GETPID
+ txa
+ ldy #LM_TASK
+ cmp (p1),y
+ bne illaddr
+ rts
+ .)
+
+
+/* splits the memory block pointed to by p1 into one the length of p2
+ * and the rest. Returns c=0 on success and c=1 if p2 > length of block.
+ * The second block is set as free.
+ * p2, p3 are overwritten, if p2 is not too large */
+split .(
+ ldy #LM_LEN
+ sec
+ lda (p1),y
+ sbc p2
+ iny
+ lda (p1),y
+ sbc p2+1
+ bcs ok ; otherwise p2 > len(p1)
+
+ DB("split: newlen > oldlen^m^j")
+ sec
+ rts
+ok
+ ldy #LM_LEN
+ lda p2
+ sta (p1),y
+ iny
+ lda p2+1
+ sta (p1),y
+ ; sets p3 to the end of the memory block
+ ldy #LM_P
+ lda (p1),y
+ sta p3
+ iny
+ lda (p1),y
+ sta p3+1
+ and p3
+ cmp #$ff
+ bne noend
+ lda #Memend
+ sta p3+1
+noend ; find the address of the possible new block -> p2
+ clc
+ lda p1
+ adc #LM_SLEN
+ sta p2
+ lda p1+1
+ adc #0
+ sta p2+1
+ clc
+ lda p2
+ ldy #LM_LEN
+ adc (p1),y
+ sta p2
+ iny
+ lda p2+1
+ adc (p1),y
+ sta p2+1
+ ; check if the length is ok (p3-p2)>MINLEN
+ sec
+ lda p3
+ sbc p2
+ sta p3
+ lda p3+1
+ sbc p2+1
+ sta p3+1
+ bne lok
+ lda p3
+ cmp #MINLEN
+ bcs lok
+ rts
+lok ; yes, then create new block
+ ldy #LM_P
+ lda (p1),y ; pointer to next block
+ sta (p2),y
+ iny
+ lda (p1),y
+ sta (p2),y
+ iny ; magic number
+ lda (p1),y
+ sta (p2),y
+ iny
+ lda (p1),y
+ sta (p2),y
+ iny
+ sec ; length of memory block
+ lda p3
+ sbc #LM_SLEN
+ sta (p2),y
+ iny
+ lda p3+1
+ sbc #0
+ sta (p2),y
+ iny ; task
+ lda #<-1
+ sta (p2),y
+ iny ; flag = 0 -> free
+ lda #0
+ sta (p2),y
+
+ ldy #LM_P
+ lda p2
+ sta (p1),y
+ iny
+ lda p2+1
+ sta (p1),y
+ ; now check if we can merge with following block
+&merge ldy #Memend
+ sta p3+1
+notend ; get length of block
+ sec
+ lda p3
+ sbc p2
+ sta p3
+ lda p3+1
+ sbc p2+1
+ sta p3+1
+ sec
+ ldy #LM_LEN
+ lda p3
+ sbc #LM_SLEN
+ sta (p2),y
+ iny
+ lda p3+1
+ sbc #0
+ sta (p2),y
+ clc
+ rts
+ .)
+
+&bcleanpida .(
+ .data ;.bss
+taddr .word 0
+fl .byt 0
+pid .byt 0
+ .text
+
+ clc
+ .byt $24
+
+&&bcleanpid ; clean all memory blocks of PID in xr.
+ sec
+ php
+ pha
+ lda #LSEM_MEM
+ jsr llock ; lock memory subsystem
+ stx pid
+ pla
+ sta taddr
+ sty taddr+1
+ lda #0
+ sta fl
+ plp
+ ror fl ; put carry to bit 7 of fl
+l1
+ lda #Memstart
+ sta p1+1
+
+l0 ldy #LM_FL
+ lda (p1),y
+ beq next
+ lda pid
+ ldy #LM_TASK
+ cmp (p1),y
+ beq found
+next
+ ldy #LM_P
+ lda (p1),y
+ pha
+ iny
+ lda (p1),y
+ sta p1+1
+ pla
+ sta p1
+ and p1+1
+ cmp #$ff
+ bne l0
+
+ lda #LSEM_MEM
+ jsr lunlock
+ rts
+
+found bit fl
+ bmi notest
+ lda p1
+ clc
+ adc #LM_SLEN
+ tay
+ pla
+ cmp taddr
+ bne notest
+ cpy taddr+1
+ beq next
+notest
+ ldx p1
+ ldy p1+1
+ stx p2
+ sty p2+1
+ clc
+ jsr free
+ jmp l1
+ .)
+
+ .)
+
+
diff --git a/dump/oa-2.0.9/lib6502/libnet.a65 b/dump/oa-2.0.9/lib6502/libnet.a65
new file mode 100644
index 0000000..ba73af6
--- /dev/null
+++ b/dump/oa-2.0.9/lib6502/libnet.a65
@@ -0,0 +1,353 @@
+
+/****************************************************************************
+
+ OS/A65 Version 2.0.0
+ Multitasking Operating System for 6502 Computers
+
+ Copyright (C) 1989-1998 Andre Fachat
+
+ This program is free software; you can redistribute it and/or modify
+ it under the terms of the GNU General Public License as published by
+ the Free Software Foundation; either version 2 of the License, or
+ (at your option) any later version.
+
+ This program is distributed in the hope that it will be useful,
+ but WITHOUT ANY WARRANTY; without even the implied warranty of
+ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+ GNU General Public License for more details.
+
+ You should have received a copy of the GNU General Public License
+ along with this program; if not, write to the Free Software
+ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
+
+****************************************************************************/
+
+/**********************************************************************
+ * Network handling for lib6502
+ * exports
+ * Connect, Listen, Accept
+ *
+ */
+
+#ifdef LIB6502_NONET
+
+Accept jmp notimp
+Listen jmp notimp
+Connect jmp notimp
+
+#else
+
+#include "inet.i65"
+
+ .(
+
+&Accept .(
+ sta zth
+ sty zth+1
+ txa
+ bcc doitnow
+wloop
+ pha
+ jsr doitnow
+ bcc wret
+ cmp #E_NOFILE
+ bne wret
+ pla
+ jsr YIELD
+ jmp wloop
+
+wret sta zth
+ pla
+ lda zth
+ cmp #1
+ rts
+
+doitnow
+ pha
+ ldx #SEM_SENDBUF
+ clc
+ jsr PSEM
+
+ pla
+ sta PCBUF+FSN_PORT
+
+ jsr getfd ; y has fileno + LT_FTAB
+ bcs nofile
+ tya
+ pha
+
+ ldy #FSN_PORT+1
+ lda #FS_ACCEPT
+ ldx #SEND_NET
+ jsr SEND
+ bcs nosend
+ sec
+ jsr XRECEIVE
+ lda PCBUF+FSN_RET
+ bne reterr
+;.byt 2
+ tya
+ sec
+ sbc #FSN_ADDR-1
+ ldy #0
+ cmp (zth),y ; length of buffer
+ bcc lenok
+ jsr eclose
+ lda #E_NOMEM
+ bne reterr
+lenok
+ tay
+ll lda PCBUF+FSN_ADDR-1,y
+ sta (zth),y
+ dey
+ bne ll
+
+ pla
+ pha
+ tay
+ lda #3
+ sta (zta),y
+ tya
+ clc
+ adc #MAXFILES
+ tay
+ lda PCBUF+FSN_RXSTR
+ sta (zta),y
+ tya
+ clc
+ adc #MAXFILES
+ tay
+ lda PCBUF+FSN_TXSTR
+ sta (zta),y
+
+ ldx #SEM_SENDBUF
+ jsr VSEM
+ pla
+ sec
+ sbc #LT_FTAB
+ tax
+ lda #E_OK
+ clc
+ rts
+
+nosend lda #E_NOFILE
+reterr tax
+ pla
+ tay
+ lda #0
+ sta (zta),y ; free fd - we need not lock that
+ txa
+ .byt $2c
+nofile lda #E_NOFILE
+ pha
+ ldx #SEM_SENDBUF
+ jsr VSEM
+ pla
+ sec
+ rts
+
+eclose ldx PCBUF+FSN_RXSTR
+ ldy #SCE_RERRM
+ lda #SC_SSTAT
+ jsr STRCMD
+ lda #SC_NUL
+ jsr STRCMD
+ ldx PCBUF+FSN_TXSTR
+ ldy #SCE_WERRM
+ lda #SC_SSTAT
+ jsr STRCMD
+ lda #SC_EOF
+ jmp STRCMD
+ .)
+
+&Listen .(
+ bcc listenopen
+ txa
+ pha
+
+ ldx #SEM_SENDBUF
+ clc
+ jsr PSEM
+
+ pla
+ sta PCBUF+FSN_PORT
+
+ ldy #FSN_PORT+1
+ lda #FS_UNLISTEN
+ ldx #SEND_NET
+ jsr SEND
+
+ lda #E_OK
+ clc
+ rts
+
+listenopen
+ sta zth
+ sty zth+1
+ txa
+ pha
+
+ jsr taskinit
+
+ ldx #SEM_SENDBUF
+ clc
+ jsr PSEM
+
+ pla
+ sta PCBUF+FSN_PROT
+
+ ldy #0
+ lda (zth),y
+ tax
+l0 dex
+ beq ende
+ iny
+ lda (zth),y
+ sta PCBUF+FSN_ADDR-1,y
+ jmp l0
+
+ende tya
+ clc
+ adc #FSN_ADDR
+ tay
+ ldx #SEND_NET
+ lda #FS_LISTEN
+ jsr SEND
+;.byt 2
+ bcs nosend
+ sec
+ jsr XRECEIVE
+;.byt 2
+ lda PCBUF+FSN_RET
+ bne reterr
+
+ lda PCBUF+FSN_PORT
+ pha
+
+ ldx #SEM_SENDBUF
+ jsr VSEM
+ clc
+ pla ; listenport
+ tax
+ lda #E_OK
+ rts
+
+nosend lda #E_NOFILE
+reterr pha
+
+ ldx #SEM_SENDBUF
+ jsr VSEM
+
+ pla
+ cmp #1
+ rts
+ .)
+
+/*************************************************************************/
+
+&Connect .(
+ sta zth
+ sty zth+1
+ txa
+ pha
+
+ jsr taskinit
+
+ jsr getrwfd
+ bcc gotfd
+ pla
+ lda #E_NOFILE
+ sec
+ rts
+gotfd
+ txa
+ pha
+
+ ldx #SEM_SENDBUF
+ clc
+ jsr PSEM
+
+ pla
+ pha
+ tax
+ jsr flib2osa_r
+ sta PCBUF+FSN_RXSTR
+ pla
+ pha
+ tax
+ jsr flib2osa_w
+ sta PCBUF+FSN_TXSTR
+
+ tsx
+ lda $0102,x
+ sta PCBUF+FSN_PROT
+
+ ldy #0
+ lda (zth),y
+ tax
+l0 dex
+ beq ende
+ iny
+ lda (zth),y
+ sta PCBUF+FSN_ADDR-1,y
+ jmp l0
+
+ende tya
+ clc
+ adc #FSN_ADDR
+ tay
+ ldx #SEND_NET
+ lda #FS_CONNECT
+ jsr SEND
+;.byt 2
+ bcs nosend
+ sec
+ jsr XRECEIVE
+;.byt 2
+ lda PCBUF+FSN_RET
+ bne reterr
+
+ ldx #SEM_SENDBUF
+ jsr VSEM
+ clc
+ pla
+ tax ; fd
+ pla ; was protocol
+ lda #E_OK
+ rts
+
+nosend lda #E_NOFILE
+reterr sta zth
+
+ ldx #SEM_SENDBUF
+ jsr VSEM
+
+ pla ; fd
+ sta zth+1
+ tax
+ pla ; was protocol
+
+ jsr flib2osa_r
+ lda #SC_EOF
+ jsr STRCMD
+ ldx zth+1
+ jsr flib2osa_w
+ lda #SC_NUL
+ jsr STRCMD
+
+ lda zth
+ pha
+
+ ldx zth+1
+ jsr fclose
+
+ pla
+ cmp #1
+ rts
+ .)
+
+
+ .)
+
+#endif /* LIB6502_NONET */
+
diff --git a/dump/oa-2.0.9/lib6502/libsem.a65 b/dump/oa-2.0.9/lib6502/libsem.a65
new file mode 100644
index 0000000..add062c
--- /dev/null
+++ b/dump/oa-2.0.9/lib6502/libsem.a65
@@ -0,0 +1,56 @@
+
+/****************************************************************************
+
+ OS/A65 Version 2.0.0
+ Multitasking Operating System for 6502 Computers
+
+ Copyright (C) 1989-1998 Andre Fachat
+
+ This program is free software; you can redistribute it and/or modify
+ it under the terms of the GNU General Public License as published by
+ the Free Software Foundation; either version 2 of the License, or
+ (at your option) any later version.
+
+ This program is distributed in the hope that it will be useful,
+ but WITHOUT ANY WARRANTY; without even the implied warranty of
+ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+ GNU General Public License for more details.
+
+ You should have received a copy of the GNU General Public License
+ along with this program; if not, write to the Free Software
+ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
+
+****************************************************************************/
+
+
+Semget .(
+ php
+ jsr GETSEM
+ bcs gse
+ plp
+ clc
+ rts
+gse jsr YIELD
+ plp
+ bcs Semget
+ sec
+ rts
+ .)
+
+Semfre .(
+ jmp FRESEM
+ .)
+
+Psem .(
+ bcs cs ; grr - carry just the other way round...
+ sec
+ .byt $24
+cs clc
+ jmp PSEM
+ .)
+
+Vsem .(
+ jmp VSEM
+ .)
+
+
diff --git a/dump/oa-2.0.9/lib6502/libsig.a65 b/dump/oa-2.0.9/lib6502/libsig.a65
new file mode 100644
index 0000000..db85020
--- /dev/null
+++ b/dump/oa-2.0.9/lib6502/libsig.a65
@@ -0,0 +1,166 @@
+
+/****************************************************************************
+
+ OS/A65 Version 2.0.0
+ Multitasking Operating System for 6502 Computers
+
+ Copyright (C) 1989-1998 Andre Fachat
+
+ This program is free software; you can redistribute it and/or modify
+ it under the terms of the GNU General Public License as published by
+ the Free Software Foundation; either version 2 of the License, or
+ (at your option) any later version.
+
+ This program is distributed in the hope that it will be useful,
+ but WITHOUT ANY WARRANTY; without even the implied warranty of
+ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+ GNU General Public License for more details.
+
+ You should have received a copy of the GNU General Public License
+ along with this program; if not, write to the Free Software
+ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
+
+****************************************************************************/
+
+
+/*
+ * This is the signal code of lib6502 on OS/A65.
+ *
+ * It needs to have the signal masks USR1-USR4 set by the
+ * task init code, as well as the LT_SIGADDR map being
+ * set to zero on task startup.
+ * Also the signal handler must be set to rxsig.
+ * All this is done in initsig
+ */
+
+
+initsig .(
+ ldy #LT_SIGADDR
+ lda #0
+l0 sta (zta),y
+ iny
+ cpy #LT_SIGADDR+NUMOFSIG*2
+ bcc l0
+ lda #rxsig
+ sec
+ jsr SETSIG
+ lda #SIG_USR1 | SIG_USR2 | SIG_USR3 | SIG_USR4 | SIG_CHLD
+ clc
+ jmp SETSIG
+ .)
+
+Signal .(
+ sta zth
+ sty zth+1
+ txa
+ ldy #NUMOFSIG-1
+l0 cmp sigtab,y
+ beq ok
+ dey
+ bpl l0
+ lda #E_ILLSIG
+ sec
+ rts
+
+ok tya
+ asl
+ clc
+ adc #LT_SIGADDR
+ php
+ sei
+ tay
+ lda zth
+ sta (zta),y
+ iny
+ lda zth+1
+ sta (zta),y
+ plp
+ clc
+ rts
+ .)
+
+Sendsignal .(
+ tay
+ txa
+ pha
+ tya
+ tax
+ pla
+ sec
+ jmp SENDSIG
+ .)
+
+rxsig .(
+ pha
+ tya
+ pha
+ txa
+ pha
+ lda zth
+ pha
+ lda zth+1
+ pha
+l1 tsx
+ ldy #NUMOFSIG-1
+l0 lda $0105,x ; signal mask
+ and sigtab,y
+ bne doit
+ dey
+ bpl l0
+endsig
+ pla
+ sta zth+1
+ pla
+ sta zth
+ pla
+ tax
+ pla
+ tay
+ pla
+ pla
+ rti
+
+doit
+ lda sigtab,y
+ pha ; save for signal handler
+ eor #$ff
+ and $0105,x ; clear corresponding signal bit
+ sta $0105,x
+ tya
+ asl
+ clc
+ adc #LT_SIGADDR
+ tay
+ lda (zta),y
+ sta zth
+ iny
+ ora (zta),y
+ beq checkchild ; l1
+ lda (zta),y
+ sta zth+1
+ pla ; signal mask
+ cmp #SIG_CHLD
+ beq dochild
+ jsr jmpzth
+ jmp l1
+checkchild
+ pla
+ cmp #SIG_CHLD
+ bne l1a
+cc jsr CHECKCHLD
+ bcc cc
+l1a jmp l1
+
+dochild jsr CHECKCHLD
+ bcs l1a
+ ldy #0 ; high byte PID
+ jsr jmpzth
+ jmp dochild
+ .)
+
+jmpzth jmp (zth)
+
+ ; SIG_CHLD must be the last one, it cannot be sent.
+sigtab .byt SIG_USR1, SIG_USR2, SIG_USR3, SIG_USR4, SIG_CHLD
+
diff --git a/dump/oa-2.0.9/oldlib/loader.a65 b/dump/oa-2.0.9/oldlib/loader.a65
new file mode 100644
index 0000000..c937b6c
--- /dev/null
+++ b/dump/oa-2.0.9/oldlib/loader.a65
@@ -0,0 +1,438 @@
+
+/****************************************************************************
+
+ OS/A65 Version 2.0.0
+ Multitasking Operating System for 6502 Computers
+
+ Copyright (C) 1989-1998 Andre Fachat
+
+ This program is free software; you can redistribute it and/or modify
+ it under the terms of the GNU General Public License as published by
+ the Free Software Foundation; either version 2 of the License, or
+ (at your option) any later version.
+
+ This program is distributed in the hope that it will be useful,
+ but WITHOUT ANY WARRANTY; without even the implied warranty of
+ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+ GNU General Public License for more details.
+
+ You should have received a copy of the GNU General Public License
+ along with this program; if not, write to the Free Software
+ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
+
+****************************************************************************/
+
+/**************************************************************************
+ *
+ * Loader for 6502 relocatable binary format
+ *
+ * The loader supports 16 bit o65 version 1 files without undefined
+ * references. Also it doesn't like pagewise relocation and 65816
+ * code, because there are different/additional relocation entries.
+ *
+ * The support routines, that have to be changed are at the end of the
+ * file. The stuff in this file is in absolute format (well, you have to
+ * bootstrap from something :-)
+ * The support routines for the file handling are for the operating system
+ * OS/A65, as of version 1.3.10b. The first part of the file (wrapped in
+ * "#ifdef C64") shows how to use it with a C64, for example.
+ *
+ * The subroutine 'loader' is called with a file descriptor, that has a
+ * meaning for the support routines, in the X register.
+ * The file must already be open. Also binit must have been called before.
+ * The loader doesn't close the file.
+ *
+ * Support routines are:
+ *
+ * zalloc a = length of needed zeropage block. returns a=address
+ * zfree a = address of block to free
+ *
+ * fgetc x = file descriptor, returns read byte (c=0) or error (c=1)
+ * The error is passed through; fgetc blocks if no data
+ * available
+ * fgetb x = filedescriptor, a/y = address of block descriptor,
+ * i.e. a word start address and a word length of block.
+ * returns (c=0) or error in accu (c=1).
+ *
+ **************************************************************************/
+
+
+/**************************************************************************
+ * This part is a binding for a C64
+ * to show how it works
+ */
+
+#include "file_o65.def"
+
+#define E_NOMEM <-40
+#define E_FVERSION <-41
+
+loader .(
+ .zero
+p1 .word
+p2 .word
+
+ .data
+tmp .byt 0
+file .byt 0
+
+header .dsb HDR_LEN
+
+textb .byt 0 ; memory block ID
+texta .word 0 ; address of block
+;textl .word 0 ; address of block
+textd .word 0 ; difference to assemble address
+
+;datab .byt 0
+dataa .word 0
+;datal .word 0
+datad .word 0
+
+;bssb .byt 0
+bssa .word 0
+bssd .word 0
+
+zeroa .byt 0
+zerod .word 0
+
+ .text
+
+ stx file
+ jsr Fgetc
+ bcs end
+ sta tmp
+ jsr Fgetc
+ bcs end
+ tay
+ lda tmp
+ cpy #0
+ bne rt
+ cmp #1
+ beq load
+rt lda #E_FVERSION ; ok, but not this version
+end sec
+ rts
+
+load .(
+ lda #header
+ sta p1+1
+ ldx #p1
+ lda #HDR_LEN
+ jsr fgetb
+ bcs end
+ ; header loaded, check magic and version
+ lda header+HDR_MAGIC
+ cmp #$6f
+ bne end
+ lda header+HDR_MAGIC+1
+ cmp #"6"
+ bne end
+ lda header+HDR_MAGIC+2
+ cmp #"5"
+ bne end
+ lda header+HDR_VERSION
+ cmp #0
+ bne end
+ lda header+HDR_MODE+1
+ and #%11110000
+ bne end
+ ; now allocate buffers
+ /* TODO: check alignment! */
+ lda header+HDR_TLEN
+ ldy header+HDR_TLEN+1
+ clc
+ adc header+HDR_DLEN
+ pha
+ tya
+ adc header+HDR_DLEN+1
+ tay
+ pla
+ clc
+ adc header+HDR_BLEN
+ pha
+ tya
+ adc header+HDR_BLEN+1
+ tay
+ pla
+ jsr Balloc
+ bcc ok
+ jmp no_text
+ok
+ stx textb
+ sta texta
+ sty texta+1
+ clc
+ adc header+HDR_TLEN
+ sta dataa
+ pha
+ tya
+ adc header+HDR_TLEN+1
+ sta dataa+1
+ tay
+ pla
+ adc header+HDR_DLEN
+ sta bssa
+ pha
+ tya
+ adc header+HDR_DLEN+1
+ sta bssa+1
+ tay
+ pla
+
+ sec
+ sbc header+HDR_BBASE
+ sta bssd
+ tya
+ sbc header+HDR_BBASE+1
+ sta bssd+1
+
+ sec
+ lda dataa
+ sbc header+HDR_DBASE
+ sta datad
+ lda dataa+1
+ sbc header+HDR_DBASE+1
+ sta datad+1
+
+ sec
+ lda texta
+ sbc header+HDR_TBASE
+ sta textd
+ lda texta+1
+ sbc header+HDR_TBASE+1
+ sta textd+1
+
+ lda header+HDR_ZLEN
+ jsr Zalloc
+ bcs no_zero
+
+ sta zeroa
+ sec
+ sbc header+HDR_ZBASE
+ sta zerod
+ lda #0
+ sta zerod+1
+
+ jmp do_load
+
+no_file
+no_zero
+ ldx textb
+ jsr Bfree
+
+close
+no_text ldx file
+ lda #E_NUL
+ jsr STRCMD
+ sec
+ rts
+
+do_load ; load options (i.e. ignore them now)
+ ldx file
+ jsr Fgetc
+ bcs no_file
+ cmp #0
+ beq load_text
+ tay
+ dey
+optl jsr Fgetc
+ bcs no_file
+ dey
+ bne optl
+ beq do_load
+
+load_text ; load text segment
+ lda texta
+ sta p1
+ lda texta+1
+ sta p1+1
+ ldx #p1
+ lda header+HDR_TLEN
+ ldy header+HDR_TLEN+1
+ jsr fgetb
+ bcs no_file
+ ; load data segment
+ lda dataa
+ sta p1
+ lda dataa+1
+ sta p1+1
+ ldx #p1
+ lda header+HDR_DLEN
+ ldy header+HDR_DLEN+1
+ jsr fgetb
+ bcs no_file
+ ; check number of undefined references
+ ldx file
+ jsr Fgetc
+&no_file2 bcs no_file
+ cmp #0
+ bne no_file ; we have some -> not handled
+ ldx file
+ jsr Fgetc
+ bcs no_file
+ cmp #0
+ bne no_file
+ ; ok, text segments loaded, now relocate
+ lda texta
+ sec
+ sbc #1
+ sta p1
+ lda texta+1
+ sbc #0
+ sta p1+1
+ jsr trel
+
+ lda dataa
+ sec
+ sbc #1
+ sta p1
+ lda dataa+1
+ sbc #0
+ sta p1+1
+ jsr trel
+
+ jsr close
+
+ lda texta ; return start of text segment
+ ldy texta+1
+ clc
+ rts
+ .)
+
+trel .(
+ ldx file
+ jsr Fgetc
+no_file1 bcs no_file2
+ cmp #0
+ beq reloc_rts
+ cmp #255
+ bne t1
+ lda #254
+ clc
+ adc p1
+ sta p1
+ bcc trel
+ inc p1+1
+ jmp trel
+t1 clc
+ adc p1
+ sta p1
+ bcc t1a
+ inc p1+1
+t1a ; p1 is the relocation address
+ ldx file
+ jsr Fgetc
+ bcs no_file1
+ tay
+ and #A_MASK
+ sta tmp
+ tya
+ and #A_FMASK
+ jsr getreldiff
+ ldy tmp
+ cpy #A_ADR
+ bne t2
+
+ ldy #0
+ clc
+ adc (p1),y
+ sta (p1),y
+ iny
+ txa
+ adc (p1),y
+ sta (p1),y
+ jmp trel
+t2
+ cpy #A_LOW
+ bne t3
+ ldy #0
+ clc
+ adc (p1),y
+ sta (p1),y
+ jmp trel
+t3
+ cpy #A_HIGH
+ bne trel
+ sta p2
+ stx p2+1
+ ldx file
+ jsr Fgetc
+ clc
+ adc p2 ; just get the carry bit
+ ldy #0
+ lda p2+1 ; relocate high byte
+ adc (p1),y
+ sta (p1),y
+ jmp trel
+
+reloc_rts
+ clc
+ rts
+ .)
+
+getreldiff .( ; comparing with SEG_UNDEF would give a way
+ ; to get label value here for undefined refs
+ cmp #SEG_TEXT
+ bne notext
+ lda textd
+ ldx textd+1
+ rts
+notext cmp #SEG_DATA
+ bne nodata
+ lda datad
+ ldx datad+1
+ rts
+nodata cmp #SEG_BSS
+ bne nobss
+ lda bssd
+ ldx bssd+1
+ rts
+nobss cmp #SEG_ZERO
+ bne nozero
+ lda zerod
+ ldx zerod+1
+nozero rts
+ .)
+
+fgetb .(
+ .zero
+p .word 0
+ .data
+l .word 0
+ .text
+
+ sta l
+ sty l+1
+ lda 0,x
+ sta p
+ lda 1,x
+ sta p+1
+
+loop ldx file
+ jsr Fgetc ; this is a simple implementation
+ bcs end1
+ ldy #0
+ sta (p),y
+ inc p
+ bne l0
+ inc p+1
+l0
+ lda l
+ bne l1
+ dec l+1
+l1 dec l
+
+ lda l
+ ora l+1
+ bne loop
+ clc
+end1
+ rts
+ .)
+
+ .)
+
+
diff --git a/dump/oa-2.0.9/oldlib/mem.a65 b/dump/oa-2.0.9/oldlib/mem.a65
new file mode 100644
index 0000000..415a1d9
--- /dev/null
+++ b/dump/oa-2.0.9/oldlib/mem.a65
@@ -0,0 +1,846 @@
+/****************************************************************************
+
+ OS/A65 Version 2.0.0
+ Multitasking Operating System for 6502 Computers
+
+ Copyright (C) 1989-1998 Andre Fachat
+
+ This program is free software; you can redistribute it and/or modify
+ it under the terms of the GNU General Public License as published by
+ the Free Software Foundation; either version 2 of the License, or
+ (at your option) any later version.
+
+ This program is distributed in the hope that it will be useful,
+ but WITHOUT ANY WARRANTY; without even the implied warranty of
+ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+ GNU General Public License for more details.
+
+ You should have received a copy of the GNU General Public License
+ along with this program; if not, write to the Free Software
+ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
+
+****************************************************************************/
+
+/**********************************************************************
+ * New memory management for IP buffers
+ * exports
+ * binit
+ * balloc, bfree, btrunc, bsplit, brealloc
+ * getbadr, getblen
+ *
+ * The routines are _not_ threadsave!
+ * They have to be secured with SEM_MEM before calling them!
+ *
+ */
+
+#define IPBUFFER $2000
+
+#define MINBUF 8
+#define MINMASK %11111000
+
+#ifndef MAXSLOT
+#define MAXSLOT 32
+#endif
+
+#ifndef MEMINIVAL
+#define MEMINIVAL 0
+#endif
+
+#undef DEBUGMEM
+#undef DB
+#define DB(a)
+
+ .(
+
+ .data
+slotladr .dsb MAXSLOT
+slothadr .dsb MAXSLOT
+slotllen .dsb MAXSLOT
+slothlen .dsb MAXSLOT
+slotrlln .dsb MAXSLOT
+slotrhln .dsb MAXSLOT
+slotownr .dsb MAXSLOT
+slotpid .dsb MAXSLOT
+
+#ifdef NOMMU
+init .byt 0 ; if not MEMINIVAL then init was ok!
+#endif
+
+flist .word 0
+slot .byt 0
+
+ .zero
+p .word 0
+p2 .word 0
+p3 .word 0
+p4 .word 0
+
+; .bss
+;buf .dsb IPBUFFER
+
+ .text
+
+/* init memory management */
+/* x holds hibyte of start address of memory, y length in pages */
++binit .(
+#ifdef NOMMU
+ lda init
+ cmp #MEMINIVAL
+ bne end
+#endif
+ stx flist+1
+ stx p+1
+ lda #0
+ sta flist
+ sta p
+
+ tya
+ ldy #3
+ sta (p),y
+ dey
+ lda #0
+ sta (p),y
+ dey
+ sta (p),y
+ dey
+ sta (p),y
+
+ ;lda #0
+ tay
+l0 sta slotladr,y
+ sta slothadr,y
+ sta slotownr,y
+ iny
+ cpy #MAXSLOT
+ bcc l0
+
+#ifdef NOMMU
+ inc init
+#endif
+end
+ clc
+ rts
+ .)
+
+/**************************************************************************/
+/* a/y = size of buffer to be allocated -> x buffer-ID */
+&balloc .(
+ /* walk along freelist, and take first matching buffer
+ length is made a multiple of 8 (for freelist connectors */
+
+ pha
+ jsr getbslot
+ pla
+ bcc gotslot
+ DB("balloc: no slot!^m^j")
+ lda #E_NOMEM
+ sec
+ rts
+gotslot
+ stx slot
+
+ sta slotrlln,x
+ pha
+ tya
+ sta slotrhln,x
+ pla
+
+ adc #MINBUF-1
+ and #MINMASK
+ sta slotllen,x
+ tya
+ adc #0
+ sta slothlen,x
+
+ jsr GETPID
+ txa
+ ldx slot
+ sta slotpid,x
+
+/*jsr printlist*/
+#if 0 /*def DEBUGMEM*/
+DB("^m^jalloc(")
+txa
+jsr EHexout
+lda slothlen,x
+jsr EHexout
+lda slotllen,x
+jsr EHexout
+DB("^m^jFlist=")
+lda flist+1
+jsr EHexout
+lda flist
+jsr EHexout
+jsr ECrlfout
+#endif
+ lda #0
+ sta p2
+ sta p2+1
+ lda flist
+ sta p
+ lda flist+1
+ sta p+1
+l0
+#if 0 /*def DEBUG*/
+DB("^m^jCheck@")
+lda p+1:jsr EHexout:lda p:jsr EHexout
+jsr ECrlfout
+#endif
+ ldy #2
+ lda (p),y
+ sec
+ sbc slotllen,x
+ sta p3
+ iny
+ lda (p),y
+ sbc slothlen,x
+ sta p3+1
+ bcs found
+
+ lda p
+ sta p2
+ lda p+1
+ sta p2+1
+ ldy #1
+ lda (p2),y
+ sta p+1
+ dey
+ lda (p2),y
+ sta p
+ ora p+1
+ bne l0
+
+oops lda #E_NOMEM
+ sec
+ rts
+
+found
+ /* ok, we found a free buffer: p points to the buffer, p2 to the
+ previous one. p3 is the length of the free buffer minus the
+ needed size. If the buffer is longer than needed, create a
+ new free buffer, then link new buffer to freelist */
+
+#if 0 /*def DEBUG*/
+DB("Found Free buffer to alloc:")
+DB("p=")
+lda p+1:jsr EHexout:lda p:jsr EHexout
+DB("p2=")
+lda p2+1:jsr EHexout:lda p2:jsr EHexout
+DB("p3=")
+lda p3+1:jsr EHexout:lda p3:jsr EHexout
+jsr ECrlfout
+#endif
+
+ lda p /* save buffer address */
+ sta slotladr,x
+ lda p+1
+ sta slothadr,x
+ inc slotownr,x
+
+ lda p3 /* check length */
+ ora p3+1
+ beq nocreate
+
+ lda p /* get address of new free buffer */
+ clc
+ adc slotllen,x
+ sta p4
+ lda p+1
+ adc slothlen,x
+ sta p4+1
+
+ ldy #0 /* copy next pointer */
+ lda (p),y
+ sta (p4),y
+ iny
+ lda (p),y
+ sta (p4),y
+
+ iny /* set new length */
+ lda slotllen,x
+ sta (p),y
+ lda p3
+ sta (p4),y
+ iny
+ lda slothlen,x
+ sta (p),y
+ lda p3+1
+ sta (p4),y
+ jmp set2
+nocreate
+ ldy #0
+ lda (p),y
+ sta p4
+ iny
+ lda (p),y
+ sta p4+1
+set2
+ lda p2
+ ora p2+1
+ beq freestart
+
+ ldy #0
+ lda p4
+ sta (p2),y
+ iny
+ lda p4+1
+ sta (p2),y
+ clc
+ bcc geta
+freestart
+#if 0 /*def DEBUG*/
+DB("^m^jFreestart")
+lda p+1:jsr EHexout:lda p:jsr EHexout:jsr ECrlfout
+#endif
+ lda p4
+ sta flist
+ lda p4+1
+ sta flist+1
+ clc
+geta
+#if 0 /*def DEBUGMEM*/
+php:txa:pha
+DB("^m^jallocated buffer ")
+txa: jsr EHexout
+lda slothadr,x: jsr EHexout: lda slotladr,x: jsr EHexout
+lda slothlen,x: jsr EHexout: lda slotllen,x: jsr EHexout
+jsr ECrlfout
+jsr printmem
+jsr printlist
+pla:tax:plp
+#endif
+ lda slotladr,x
+ ldy slothadr,x
+ rts
+ .)
+
+/**************************************************************************/
+
+/* free buffer (ID=xr) */
+&bfree .(
+/*clc:rts*/
+&bfree2
+ cpx #MAXSLOT
+ bcc okfree
+#if 0
+ DB("bfree: illegal slot#, retadr=")
+ txa:pha:tsx:lda $0103,x:jsr EHexout:lda $0102,x:jsr EHexout
+ jsr ECrlfout:pla:tax
+#endif
+ sec
+ rts
+okfree lda slotownr,x
+ bne okf1
+#if 0
+ DB("bfree: slot ")
+ txa:jsr EHexout:DB(" not in use, retadr=")
+ txa:pha:tsx:lda $0103,x:jsr EHexout:lda $0102,x:jsr EHexout
+ jsr ECrlfout:pla:tax
+#endif
+ sec
+ rts
+okf1
+/* DB("bfree(")*/
+
+#if 0 /*def DEBUGMEM*/
+DB("Freeing Slot ")
+txa:jsr EHexout:DB(", #ownr="):lda slotownr,x:jsr EHexout:
+DB(", retadr="):txa:pha:tsx:lda $103,x:jsr EHexout:lda $102,x:jsr EHexout
+pla:tax:jsr ECrlfout
+#endif
+
+ dec slotownr,x
+ bne end2
+
+ lda slothadr,x
+ sta p3+1
+ lda slotladr,x
+ sta p3
+ ora p3+1
+ beq end2
+
+ ldy #2
+ lda slotllen,x
+ sta (p3),y
+ iny
+ lda slothlen,x
+ sta (p3),y
+
+ lda #0
+ sta slothadr,x
+ sta slotladr,x
+
+ lda flist
+ ora flist+1
+ bne ok /* no free buffer so far? */
+
+ lda p3
+ sta flist
+ lda p3+1
+ sta flist+1
+ ldy #0
+ tya
+ sta (p3),y
+ iny
+ sta (p3),y
+end2 clc
+ rts
+ok
+ lda #0
+ sta p2
+ sta p2+1
+ lda flist
+ sta p
+ lda flist+1
+ sta p+1
+
+ /* we have to find the place where to put the buffer in the
+ ordered free list. Then we have to check if we can merge
+ free buffers */
+loop
+#if 0 /*def DEBUGMEM*/
+DB("Check slot ")
+lda p+1: jsr EHexout:lda p: jsr EHexout
+DB("["): ldy #3:lda (p),y:jsr EHexout:dey:lda (p),y:jsr EHexout
+DB("]->"):ldy #1:lda (p),y:jsr EHexout:dey:lda (p),y:jsr EHexout
+jsr ECrlfout
+#endif
+
+ lda p3+1
+ cmp p+1
+ bcc found
+ bne next
+ lda p3
+ cmp p
+ bcc found
+next
+ lda p
+ sta p2
+ lda p+1
+ sta p2+1
+ ldy #0
+ lda (p2),y
+ sta p
+ iny
+ lda (p2),y
+ sta p+1
+ ora p
+ bne loop
+ beq found
+end
+ clc
+ rts
+
+found /* p2 is the buffer before the one to be freed, p the one behind.
+ p3 is the buffer to be inserted */
+
+#if 0 /*def DEBUGMEM*/
+DB("Found buffer^m^j")
+DB("p3=")
+lda p3+1:jsr EHexout:lda p3:jsr EHexout:jsr ECrlfout
+DB("p2=")
+lda p2+1:jsr EHexout:lda p2:jsr EHexout
+DB("["):ldy #3:lda (p2),y:jsr EHexout:dey:lda (p2),y:jsr EHexout
+DB("]->"):ldy #1:lda (p2),y:jsr EHexout:dey:lda (p2),y:jsr EHexout
+jsr ECrlfout
+DB("p=")
+lda p+1:jsr EHexout:lda p:jsr EHexout
+DB("["):ldy #3:lda (p),y:jsr EHexout:dey:lda (p),y:jsr EHexout
+DB("]->"):ldy #1:lda (p),y:jsr EHexout:dey:lda (p),y:jsr EHexout
+jsr ECrlfout
+#endif
+ lda p2
+ ora p2+1
+ bne fok
+ ; insert before the first free buffer so far
+ ldy #0
+ lda flist
+ sta (p3),y
+ iny
+ lda flist+1
+ sta (p3),y
+ lda p3
+ sta flist
+ ldy p3+1
+ sty flist+1
+ jsr bmerge
+#if 0 /*def DEBUGMEM*/
+jsr printmem
+#endif
+ clc
+ rts
+fok ; insert to list
+ ldy #1
+ lda p+1 ;lda (p2),y
+ sta (p3),y
+ dey
+ lda p ;lda (p2),y
+ sta (p3),y
+ lda p3
+ sta (p2),y
+ iny
+ lda p3+1
+ sta (p2),y
+
+ lda p3
+ ldy p3+1
+ jsr bmerge
+ lda p2
+ ldy p2+1
+ jsr bmerge
+#if 0 /*def DEBUGMEM*/
+jsr printmem
+#endif
+ clc
+ rts
+ .)
+
+/**************************************************************************/
+/* split buffer xr at size a/y for first part. return new buffer ID in x */
+&bsplit .(
+ stx slot
+#if 0 /*def DEBUGMEM*/
+pha
+tya
+pha
+DB("^m^jbsplit buffer ")
+txa
+jsr EHexout
+pla
+pha
+jsr EHexout
+pla
+tay
+pla
+pha
+jsr EHexout
+jsr ECrlfout
+pla
+#endif
+ sta p3
+ sty p3+1
+/*pha:tya:pha:DB("bsplit "):jsr printlist:jsr ECrlfout:pla:tay:pla*/
+
+ clc
+ adc #MINBUF-1
+ and #MINMASK
+ sta p2
+ bcc l0
+ iny
+l0 sty p2+1
+
+ lda slotownr,x
+ beq splitownr
+
+ tya
+ cmp slothlen,x
+ bcc ok
+ bne oops
+ lda p2
+ cmp slotllen,x
+ bcc ok
+ bne oops
+
+/*DB("Btrunc to same size!^m^j")*/
+ lda p3
+ sta slotrlln,x
+ lda p3+1
+ sta slotrhln,x
+ sec
+ rts
+
+oops DB("bsplit: oops^m^j")
+ sec
+ rts
+
+splitownr
+ DB("bsplit: no owner!^m^j")
+ jmp oops
+
+ok lda p3
+ sta slotrlln,x
+ lda p3+1
+ sta slotrhln,x
+
+/*DB("slot="):lda slot:jsr EHexout:jsr ECrlfout*/
+ jsr getbslot
+ bcs oops
+
+ ldy slot
+ clc
+ lda slotladr,y
+ adc p2
+ sta slotladr,x
+ lda slothadr,y
+ adc p2+1
+ sta slothadr,x
+ sec
+ lda slotllen,y
+ sbc p2
+ sta slotllen,x
+ lda slothlen,y
+ sbc p2+1
+ sta slothlen,x
+
+ lda p2
+ sta slotllen,y
+ lda p2+1
+ sta slothlen,y
+
+ inc slotownr,x
+oknull
+#if 0
+DB("^m^jsplit buffer @")
+ jsr printlist
+#ifdef DEBUGMEM
+ txa
+ jsr EHexout
+ lda slothadr,x
+ jsr EHexout
+ lda slotladr,x
+ jsr EHexout
+ lda slothlen,x
+ jsr EHexout
+ lda slotllen,x
+ jsr EHexout
+ jsr ECrlfout
+jsr printmem
+#endif
+#endif
+ clc
+ rts
+ .)
+
+/**************************************************************************/
+/* truncate buffer xr to size a/y */
+&btrunc .(
+ jsr bsplit
+ bcs oops
+ jmp bfree2
+oops rts
+ .)
+
+/* realloc buffer xr to size a/y */
+/* produce assemble errror
+&brealloc .(
+ .)
+*/
+
+/* get adress of buffer */
+&getbadr .(
+ cpx #MAXSLOT
+ bcs maxerr
+ lda slotownr,x
+ beq err
+ lda slotladr,x
+ ldy slothadr,x
+ clc
+ rts
+err
+#if 0
+ DB("getbadr from unused slot=")
+ txa
+ jsr EHexout
+ DB("!^m^j")
+#endif
+ sec
+ rts
+maxerr DB("getbadr from illegal slot^m^j")
+ sec
+ rts
+ .)
+
+/* get length of buffer */
+&getblen .(
+ lda slotrlln,x
+ ldy slotrhln,x
+ clc
+ rts
+ .)
+
+/* this registers one more user - so one bfree is ignored */
+&incownr .(
+ cpx #MAXSLOT
+ bcs err
+ lda slotownr,x
+ beq incerr
+ inc slotownr,x
+ clc
+ rts
+err DB("incownr: illegal buffer^m^j")
+ sec
+ rts
+incerr DB("incownr: unused buffer^m^j")
+ sec
+ rts
+ .)
+
+/* get free buffer-ID slot */
+getbslot .(
+ ldx #0
+l0
+ clc
+ lda slotownr,x
+ beq found
+ inx
+ cpx #MAXSLOT
+ bcc l0
+found
+ rts
+ .)
+
+/* check if two free buffers (i.e. a/y plus following) can be merged */
+bmerge .(
+ sta p
+ sty p+1
+ ldy #2
+ clc
+ lda (p),y
+ adc p
+ sta p3
+ iny
+ lda (p),y
+ adc p+1
+ sta p3+1
+ ldy #0
+ lda (p),y
+ cmp p3
+ bne nomerge
+ iny
+ lda (p),y
+ cmp p3+1
+ bne nomerge
+merge
+ ldy #2
+ clc
+ lda (p3),y
+ adc (p),y
+ sta (p),y
+ iny
+ lda (p3),y
+ adc (p),y
+ sta (p),y
+ ldy #0
+ lda (p3),y
+ sta (p),y
+ iny
+ lda (p3),y
+ sta (p),y
+nomerge
+ clc
+ rts
+ .)
+
+/**************************************************************************/
+#ifdef DEBUGMEM
+
+ .data
+pac .byt 0
+pxr .byt 0
+pyr .byt 0
+ .text
+
+&printlist .(
+ php
+ sta pac
+ stx pxr
+ sty pyr
+
+ ldx #0
+l0 lda slotownr,x
+ beq next
+ txa
+ jsr EHexout
+ lda #":"
+ jsr ECout
+ lda slotownr,x
+ jsr EHexout
+ lda #"@"
+ jsr ECout
+ lda slothadr,x
+ jsr EHexout
+ lda slotladr,x
+ jsr EHexout
+ lda #"["
+ jsr ECout
+ lda slothlen,x
+ jsr EHexout
+ lda slotllen,x
+ jsr EHexout
+ DB("] ")
+
+ lda slotladr,x
+ and #%00000111
+ bne error
+next
+ inx
+ cpx #MAXSLOT
+ bcc l0
+ jsr ECrlfout
+
+ lda pac
+ ldx pxr
+ ldy pyr
+ plp
+ rts
+error brk
+ .)
+
+&printmem .(
+ php
+ sta pac
+ stx pxr
+ sty pyr
+
+DB("^m^jMemory Free List:^m^j")
+ lda flist
+ sta p
+ lda flist+1
+ sta p+1
+ ldx #STDERR
+loop
+ lda p+1
+; beq ende
+ jsr EHexout
+ lda p
+ jsr EHexout
+ lda #"["
+ jsr Fputc
+ ldy #3
+ lda (p),y
+ jsr EHexout
+ dey
+ lda (p),y
+ jsr EHexout
+ DB("]->")
+ ldy #1
+ lda (p),y
+ jsr EHexout
+ dey
+ lda (p),y
+ jsr EHexout
+ jsr ECrlfout
+
+ ldy #1
+ lda (p),y
+ pha
+ dey
+ lda (p),y
+ sta p
+ pla
+ sta p+1
+ ora p
+ bne loop
+
+ lda pac
+ ldx pxr
+ ldy pyr
+ plp
+ rts
+ende brk
+ .)
+#endif
+
+ .)
+
+
diff --git a/dump/oa-2.0.9/oldlib/stdio.a65 b/dump/oa-2.0.9/oldlib/stdio.a65
new file mode 100644
index 0000000..7fe3dde
--- /dev/null
+++ b/dump/oa-2.0.9/oldlib/stdio.a65
@@ -0,0 +1,589 @@
+/****************************************************************************
+
+ OS/A65 Version 2.0.0
+ Multitasking Operating System for 6502 Computers
+
+ Copyright (C) 1989-1998 Andre Fachat
+
+ This program is free software; you can redistribute it and/or modify
+ it under the terms of the GNU General Public License as published by
+ the Free Software Foundation; either version 2 of the License, or
+ (at your option) any later version.
+
+ This program is distributed in the hope that it will be useful,
+ but WITHOUT ANY WARRANTY; without even the implied warranty of
+ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+ GNU General Public License for more details.
+
+ You should have received a copy of the GNU General Public License
+ along with this program; if not, write to the Free Software
+ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
+
+****************************************************************************/
+
+
+/* if not 'relocated' for other purposes, use std addr for stdio */
+#ifndef STDIOADDR
+#define STDIOADDR $e800
+#endif
+
++STDLIB =STDIOADDR
+
+#include "kernel.i65" /* kernel calls are preprocessor defines! */
+
+/* TODO: check NOMMU and OLDROM to set something like threadsave */
+
+#ifdef ROM
+
+ .(
+
+ .zero
+xr .byt 0
+ .text
+
+getc .(
+#ifdef OLDROM
+ stx xr
+ ldx #STDIN
+ .byt $2c
+#else
+ php
+ sei
+ sta xr
+ txa
+ ldx xr
+ plp
+ pha
+ ldx #STDIN
+ jsr fgetc
+ tax
+ pla
+ php
+ sei
+ sta xr
+ txa
+ ldx xr
+ plp
+ rts
+#endif
+&fgetc
+#ifdef OLDROM
+ stx xr
+#endif
+gc1 jsr GETC
+ bcc ok
+ cmp #E_EOF
+ beq ok
+ jsr YIELD
+ jmp gc1
+ok
+#ifdef OLDROM
+ ldx xr
+#endif
+ rts
+ .)
+
+crlfout lda #13
+ jsr putc
+lfout lda #10
+putc .(
+#ifdef OLDROM
+ stx xr
+ pha
+ ldx #STDOUT
+ bne pc1
+#else
+ php ; exchange x and a - thread save
+ sei
+ sta xr
+ txa
+ ldx xr
+ plp ; implicit cli
+ pha ; save former xr first
+ txa
+ ldx #STDOUT
+ jsr fputc
+ tax ; ac to xr
+ pla ; get former xr from stack
+ php ; and exchange x and a back
+ sei
+ sta xr
+ txa
+ ldx xr
+ plp
+ rts
+#endif
+
+&fputc pha
+#ifdef OLDROM
+ stx xr
+#endif
+pc1 jsr PUTC
+ bcc ok
+ cmp #E_NUL
+ beq ok
+ jsr YIELD
+ pla
+ pha
+ jmp pc1
+ok
+#ifdef OLDROM
+ ldx xr
+#endif
+ pla
+ rts
+ .)
+
+serbrk .(
+ stx xr
+ lda #SC_STAT
+ ldx #STDIN
+ jsr STRCMD
+ ldx xr
+ cmp #E_SEMPTY
+ beq s3
+ sec
+ rts
+#ifndef OLDROM
+s3 clc
+ rts
+#endif
+ .)
+
+ .zero
+d1 .word 0
+ .text
+dezbout .(
+
+#ifndef OLDROM
+ php ; thread-save
+ sei
+#endif
+l1 tay
+ sec
+ sbc #100
+ bcs l1
+ lda #0
+ sta d1
+ tya
+l2 tay
+ sec
+ sbc #10
+ bcc l3
+ inc d1
+ bcs l2
+l3 asl d1
+ asl d1
+ asl d1
+ asl d1
+ tya
+ ora d1
+#ifndef OLDROM
+ plp
+#endif
+&hexout
+ pha
+ lsr
+ lsr
+ lsr
+ lsr
+ jsr nibout
+ pla
+ and #$0f
+nibout clc
+ adc #"0"
+ cmp #"9"+1
+ bcc nibok
+ adc #6
+nibok jmp putc
+ .)
+
+txtout .(
+tp =d1 /*syszp+1*/
+
+#ifndef OLDROM
+ php ; switching multitasking of is a
+ sei ; 'bad thing' (tm)! - but a mutex is needed
+#endif
+ sta tp
+ sty tp+1
+ ldy #0
+tol lda (tp),y
+ beq tole
+ jsr putc
+ iny
+ bne tol
+ inc tp+1
+ bne tol
+tole
+#ifndef OLDROM
+ plp
+#else
+&s3
+#endif
+ clc
+ rts
+ .)
+
+#if 0
+#ifndef OLDROM
+-syszp += 3
+#endif
+#endif
+
+/***********************************************************************
+ * Warning! The following routines (Directory stuff, assigntab) are
+ * _not_ thread-save!
+ */
+
+#define PATH_DRV 0
+#define PATH_NAME (PATH_DRV+1) /* ohne abschliessendes DIRSIGN */
+
+ .zero
+zp .word 0
+d .byt 0
+maxpath .byt 0
+ .text
+
+ .(
+
+&usedir sta zp
+ sty zp+1
+ lda PCBUF+FS_OPEN_DRV
+ bpl ok ; Laufwerk angegeben, war nix
+
+ ldy #PATH_DRV
+ lda (zp),y
+ sta PCBUF+FS_OPEN_DRV
+
+ ldx #FS_OPEN_NAME
+ lda PCBUF,x
+ cmp #DIRSIGN ; Pfad absolut angegeben
+ beq ok ; war auch nix
+
+ud2 iny
+ lda (zp),y
+ bne ud2
+ sty d
+ud4 lda PCBUF,x
+ beq ud3
+ inx
+ bne ud4
+ud3 inx
+ txa
+ clc
+ adc d
+ sta d
+ bcs nerr
+ tay
+ud5 lda PCBUF,x
+ sta PCBUF,y
+ dey
+ dex
+ cpx #FS_OPEN_NAME
+ bcs ud5
+ ldy #PATH_NAME
+ud6 lda (zp),y
+ sta PCBUF+FS_OPEN_NAME-PATH_NAME,y
+ beq ud7
+ iny
+ bne ud6
+ud7 lda #DIRSIGN
+ sta PCBUF+FS_OPEN_NAME-PATH_NAME,y
+ ldx d
+ clc
+ rts
+nerr sec
+ rts
+ok ldx #FS_OPEN_NAME
+ok1 lda PCBUF,x
+ beq oke
+ inx
+ bne ok1
+oke inx
+ clc
+ rts
+ .)
+
+ .(
+#if 0
+zp =syszp
+d =syszp+2
+maxpath =syszp+3
+#endif
+
+&chdir sta zp
+ sty zp+1
+ stx maxpath
+ lda PCBUF+FS_CMD_DRV
+ bmi nodrive
+ ldy #PATH_DRV
+ cmp (zp),y
+ beq nodrive
+ sta (zp),y
+ iny
+ lda #0
+ sta (zp),y
+nodrive inc zp
+ bne nd1
+ inc zp+1
+ ldy #0
+ ; Name untersuchen
+nd1 ldx #FS_CMD_NAME
+ lda PCBUF,x
+ bne ndrx ; kein Name dann Pfad l�schen
+ sta (zp),y
+ clc
+ rts
+ndrx
+ cmp #DIRSIGN ; Name beginnt mit DIRSIGN
+ bne nd2
+ lda #0 ; dann Pfad l�schen
+ sta (zp),y
+
+nd2a inx
+nd2 lda PCBUF,x ; weiter Name anschauen
+ beq ndr ; kein Name dann Ende
+ cmp #DIRSIGN
+ beq nd2a ; DIRSIGN �berlesen
+ cmp #"."
+ bne nameok ; kein '.' dann ok
+ inx
+ lda PCBUF,x ; hier mindestens ein '.'
+ beq ndr ; Null dann Ende
+ cmp #DIRSIGN ; DIRSIGN,
+ beq nd2a ; dann '.' ignorieren
+ cmp #"." ; noch'n Punkt ?
+ bne nerrx ; nein, dann
+ jsr getpos
+ ldy d ; Position des letzten DIRSIGNs
+ lda #0
+ sta (zp),y ; l�schen = eine Verzeichnis-Ebene h�her
+ beq nd2a ; (absolut)
+
+nerrx dex
+nameok jsr getpos ; y=L�nge des alten Pfads
+ sty d ; hier Verzeichnis-Name an Pfad anh�ngen
+no iny
+ cpy maxpath
+ bcs nerr
+ lda PCBUF,x
+ beq nr
+ cmp #DIRSIGN
+ beq nr
+ sta (zp),y
+ inx
+ bne no
+nr lda #0
+ sta (zp),y
+ ldy d
+ lda #DIRSIGN ; alles ok, dann Nullbyte (Ende alter Pfad) mit
+ sta (zp),y ; DIRSIGN �berschreiben
+ lda PCBUF,x ; Ende des neuen Verzeichnisses
+ bne nd2a ; nein, dann wieder nach oben
+ndr clc
+ rts
+nerr sec
+ rts
+getpos ldy #0 ; holt y=L�nge des alten Pfadnamens
+ sty d ; und d=Position des letzten DIRSIGNs
+no0 lda (zp),y
+ beq no1
+ cmp #DIRSIGN
+ bne no2
+ sty d
+no2 iny
+ bne no0
+no1 rts
+ .)
+
+ .(
+#if 0
+zp =syszp
+d =syszp+2
+#endif
+
+&getname sta zp
+ sty zp+1
+ lda #0
+ sta PCBUF+FS_OPEN_NAME
+ ldy #<-1
+ sty PCBUF+FS_OPEN_DRV
+g1 iny
+ lda (zp),y
+ beq gr
+ cmp #" "
+ beq g1
+ cmp #":"
+ beq g1
+ cmp #34 ; "
+ beq g2
+ iny
+ lda (zp),y
+ dey
+ cmp #":"
+ bne g2
+ lda (zp),y
+ cmp #"A"
+ bcc g3
+ sbc #1
+g3 and #$0f
+ sta PCBUF+FS_OPEN_DRV
+ iny
+ iny
+g2 dey
+ ldx #FS_OPEN_NAME
+ bne g2a
+
+&set2name /* x=iobuf, y=pcbuf */
+ sta zp
+ sty zp+1
+ ldy #<-1
+g2a lda #" "
+ sta d
+gn1 iny
+ lda (zp),y
+ beq gn3
+ cmp #" "
+ beq gn1
+ cmp #">"
+ beq gn3
+ cmp #34 ; "
+ bne gn2
+ iny
+ sta d
+gn2 lda (zp),y
+ beq gn3
+ cmp d
+ beq gn3a
+ sta PCBUF,x
+ inx
+ iny
+ bne gn2
+
+gn3a iny
+gn3 lda #0
+ sta PCBUF,x
+ inx
+gr rts
+ .)
+
+ .(
+#ifndef NOMMU
+ .zero
+#else
+ .data
+#endif
+assigntab .dsb 10
+ .text
+
+&assign bcc assigndrv
+ cpx #<-1
+ bne a
+iniassign
+ ldx #0
+ai txa
+ sta assigntab,x
+ inx
+ cpx #10
+ bcc ai
+ clc
+ rts
+assigndrv
+ pha
+ cpx #10
+ bcs ae
+ lda assigntab,x
+ tax
+ae pla
+ rts
+
+a cpx #10
+ bcs ar
+ sta assigntab,x
+ar rts
+ .)
+
+#include "oldlib/mem.a65"
+#include "oldlib/zmem.a65"
+#include "oldlib/loader.a65"
+
+#if * > STDIOADDR-3*24
+#echo "STDLIB to long!"
+#endif
+
+#ifndef STDTST
+ .dsb STDIOADDR-*-3*24,<-1
+
+#echo Putting STDIO table to
+#print *
+
+#endif
+
+jmp loader
+
+jmp zalloc
+jmp zfree
+
+jmp balloc
+jmp bfree
+jmp btrunc
+jmp bsplit
+jmp getbadr
+jmp getblen
+jmp incownr
+
+jmp set2name
+jmp usedir
+jmp chdir
+jmp getname
+jmp assign
+jmp dezbout
+jmp serbrk
+jmp crlfout
+jmp hexout
+jmp txtout
+jmp putc
+jmp getc
+jmp fputc
+jmp fgetc
+
+#ifndef STDTST
+#if *-STDIOADDR
+#echo Fehler: STDIO address not right!
+ldx ,x
+#endif
+#endif
+
+ .)
+
+#endif
+
+Loader =STDLIB-72
+
+Zalloc =STDLIB-69
+Zfree =STDLIB-66
+
+Balloc =STDLIB-63
+Bfree =STDLIB-60
+Btrunc =STDLIB-57
+Bsplit =STDLIB-54
+Getbadr =STDLIB-51
+Getblen =STDLIB-48
+Incownr =STDLIB-45
+
+Set2name =STDLIB-42 /* $e7d6 */
+Usedir =STDLIB-39 /* $e7d9 */
+Chdir =STDLIB-36 /* $e7dc */
+Getname =STDLIB-33 /* $e7df */
+Assign =STDLIB-30 /* $e7e2 */
+Dezbout =STDLIB-27 /* $e7e5 */
+Serbrk =STDLIB-24 /* $e7e8 */
+Crlfout =STDLIB-21 /* $e7eb */
+Hexout =STDLIB-18 /* $e7ee */
+Txtout =STDLIB-15 /* $e7f1 */
+Putc =STDLIB-12 /* $e7f4 */
+Getc =STDLIB-9 /* $e7f7 */
+Fputc =STDLIB-6 /* $e7fa */
+Fgetc =STDLIB-3 /* $e7fd */
+
diff --git a/dump/oa-2.0.9/oldlib/zmem.a65 b/dump/oa-2.0.9/oldlib/zmem.a65
new file mode 100644
index 0000000..1c1c55e
--- /dev/null
+++ b/dump/oa-2.0.9/oldlib/zmem.a65
@@ -0,0 +1,157 @@
+/****************************************************************************
+
+ OS/A65 Version 2.0.0
+ Multitasking Operating System for 6502 Computers
+
+ Copyright (C) 1989-1998 Andre Fachat
+
+ This program is free software; you can redistribute it and/or modify
+ it under the terms of the GNU General Public License as published by
+ the Free Software Foundation; either version 2 of the License, or
+ (at your option) any later version.
+
+ This program is distributed in the hope that it will be useful,
+ but WITHOUT ANY WARRANTY; without even the implied warranty of
+ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+ GNU General Public License for more details.
+
+ You should have received a copy of the GNU General Public License
+ along with this program; if not, write to the Free Software
+ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
+
+****************************************************************************/
+
+ .(
+
+ .data
+zmem .dsb 64 ; each four byte have an owner
+ .text
+
+/*
+ * yr = first available zeropage address
+ */
+
++zinit .(
+ php
+ sei
+ lda #<-1 ; all in use
+ tax
+ inx
+l0 sta zmem,x
+ inx
+ cpx #64
+ bcc l0
+
+ tya
+ clc
+ adc #3
+ lsr
+ lsr
+ tay
+
+ lda #0 ; free
+l1 sta zmem,y
+ iny
+ cpy #64
+ bcc l1
+
+ plp
+ clc
+ rts
+ .)
+
+
+/*
+ * a = length of needed zeropage area in byte
+ * returns a= address of zeropage area with c=0
+ * or c=1 when no area found
+ *
+ */
+&zalloc .(
+ clc
+ adc #3
+ lsr
+ lsr
+
+ tay
+ jsr GETPID
+ inx
+ txa
+ pha
+ tya
+
+ sei
+ ldy #0
+l1
+ pha
+ tax
+l2
+ lda zmem,y
+ bne notfree
+ dex
+ beq found
+ iny
+ cpy #64
+ bcc l2
+ pla
+ pla
+ cli
+ rts
+
+notfree iny
+ pla
+ cpy #64
+ bcc l1
+ pla
+ cli
+ rts
+
+found
+ pla
+ tax
+ pla
+ iny
+l3
+ dey
+ sta zmem,y
+ dex
+ bne l3
+
+ tya
+ asl
+ asl
+ clc
+ cli
+ rts
+ .)
+
+/*
+ * a = address of area to free. All consecutive zeropage addresses
+ * belonging to this task from a on are free'd.
+ */
+&zfree .(
+ clc
+ adc #3
+ lsr
+ lsr
+ tay
+ jsr GETPID
+ inx
+ sei
+l0 txa
+ cmp zmem,y
+ bne ende
+ lda #0
+ sta zmem,y
+ iny
+ cpy #64
+ bcc l0
+ende
+ clc
+ cli
+ rts
+ .)
+
+ .)
+
+
diff --git a/dump/oa-2.0.9/sysapps/Makefile b/dump/oa-2.0.9/sysapps/Makefile
new file mode 100644
index 0000000..efeb410
--- /dev/null
+++ b/dump/oa-2.0.9/sysapps/Makefile
@@ -0,0 +1,8 @@
+
+# appdirs= fs init mon slipd ibmon irtx basic mcopy
+
+clean:
+ (for i in *; do\
+ (if test -d $$i; then cd $$i; ${MAKE} clean; fi); \
+ done)
+
diff --git a/dump/oa-2.0.9/sysapps/README b/dump/oa-2.0.9/sysapps/README
new file mode 100644
index 0000000..9c225cc
--- /dev/null
+++ b/dump/oa-2.0.9/sysapps/README
@@ -0,0 +1,12 @@
+
+The "sysapps" directory contains system-dependend programs. These include
+
+ - filesystem servers
+
+ - internet servers
+
+ - hardware dependend stuff (like irtx or ibmon)
+
+ - some old programs that have not been ported to lib6502 or are not worth
+ the time doing it (if you like, port them and I move them to apps)
+
diff --git a/dump/oa-2.0.9/sysapps/basic/Makefile b/dump/oa-2.0.9/sysapps/basic/Makefile
new file mode 100644
index 0000000..332dc1f
--- /dev/null
+++ b/dump/oa-2.0.9/sysapps/basic/Makefile
@@ -0,0 +1,13 @@
+
+
+XAINPUT=../../include,../../arch,../..
+XA=xa
+
+basic4.o65: basic4.a65
+ (XAINPUT=${XAINPUT}; export XAINPUT;\
+ ${XA} -DKERNEL=61440 -R -c basic4.a65 -o basic4.o65 ;\
+ if [ $$? -ne 0 ]; then rm -f basic4.o65; fi; )
+
+clean:
+ rm -f basic4.o65
+
diff --git a/dump/oa-2.0.9/sysapps/basic/basic4.a65 b/dump/oa-2.0.9/sysapps/basic/basic4.a65
new file mode 100644
index 0000000..f77f542
--- /dev/null
+++ b/dump/oa-2.0.9/sysapps/basic/basic4.a65
@@ -0,0 +1,3561 @@
+/****************************************************************************
+
+ This BASIC interpreter is derived from Copyrighted source!
+ Therefore I do not hold copyrights on it.
+ The Copyright is held by ???
+
+ That's why this is only an educational example of how to
+ port programs to the OS/A65 operating system.
+
+ DO NOT ASSEMBLE OR RUN THIS PROGRAM!
+
+ This file is distributed in the hope that it will be useful,
+ but WITHOUT ANY WARRANTY; without even the implied warranty of
+ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
+
+****************************************************************************/
+
+
+.(
+#ifdef ROM
+
+#ifndef BASICEXE
+#define BASICEXE $80
+#endif
+#ifndef BASICDEV
+#define BASICDEV 0
+#endif
+
+ .word endofbasic
+ .byt PK_PRG+BASICEXE
+ .byt 2
+ .byt BASICDEV, BASICDEV
+ .word BASIC
+#ifndef ROMTEST
+ .byt 8,8,9,9,$a,$a,$b,$b,$c,$c,$d,$d,$e,$e,<-1
+#else
+ .byt 8,$18,9,$19,$a,$1a,$b,$1b,$c,$1c,$d,$1d,$e,$1e,<-1
+#endif
+ .asc "basic",0,0
+
+#else /* ROM */
+
+#include "kdefs.i65"
+#include "kernel.i65"
+#include "fdefs.i65"
+
+ ;.word $800
+ *=$8000
+ .word 0
+ .byt PK_PRG
+ .byt 16
+ .word 0
+ .word BASIC
+ .byt 8,0,9,0,$a,0,$b,0,<-1
+
+; *=$8000
+
+#endif /* ROM */
+
+/*#define SHOW*/
+
+#ifndef BASICEND
+#define BASICEND $4000
+#endif
+#ifndef BASICSTART
+#define BASICSTART $800
+#endif
+
+RAMEND =BASICEND
+RAMANF =BASICSTART
+#print RAMANF
+#print RAMEND
+
+
+#define E_OPEN 2
+#define E_TOOMANYF 1
+#define E_NOTINPUT 6
+#define E_FILEOPEN 2
+#define E_NOTOPEN 3
+#define E_NOTFND 4
+
+/*#ifndef NOMMU*/
+oldsyszp =syszp
+-syszp =$90 /* watch out - may not work on every ROM */
+/*#endif*/
+
+#echo oabasic:
+#print syszp
+
+status =syszp
+;directfl =syszp+1
+filenr =syszp+2
+drive =syszp+3
+mode =syszp+4
+fnlen =syszp+5
+fnadr =syszp+6 ;.w
+actin =syszp+8
+&actout =syszp+9
+&stream =syszp+10
+dx =syszp+11
+-syszp +=12
+
+#define MAXFILE 10
+#define F_FNR 0
+#define F_STR 1
+#define F_MOD 2
+#define F_DRV 3
+#define F_SLEN 4
+
+
+BASIC jsr inifiles
+ jsr inidup
+ jsr lffcc
+ jmp le394
+
+ .(
+anzfile =syszp
+FTAB =syszp+1
+-syszp +=1+MAXFILE*F_SLEN
+
+&inifiles ldx #0
+ stx anzfile
+ rts
+
+suchfile .(
+ txa
+ ldx anzfile
+sf1 dex
+ bmi sfe
+ cmp FTAB+F_SLEN*F_FNR,x
+ bne sf1
+sfe rts
+ .)
+
+&lffc0 ldx filenr ; open
+ bne op1
+ jmp notinput
+op1 jsr suchfile
+ bne op2
+ jmp fileopen
+op2 ldy anzfile
+ cpy #MAXFILE
+ bcc op3
+ jmp toomanyf
+op3 lda filenr
+ sta FTAB+F_SLEN*F_FNR,y
+ lda mode
+ sta FTAB+F_SLEN*F_MOD,y
+ lda drive
+ sta FTAB+F_SLEN*F_DRV,y
+
+ jsr xopen
+ bcs end
+
+ ldy anzfile
+ lda stream
+ sta FTAB+F_SLEN*F_STR,y
+ inc anzfile
+
+end rts
+
+&xopen jsr GETSTR
+ bcc op4
+ jmp nofile
+op4 stx stream
+ stx PCBUF+FS_OPEN_STR
+ lda mode
+ cmp #FS_OPEN_DR+1
+ bcs xoperr
+ lda #0
+ sta PCBUF+FS_OPEN_PFAD
+ jsr copen
+ bcs xoperr
+ rts
+
+&copen lda drive
+ sta PCBUF+FS_OPEN_DRV
+ ldy #0
+ ldx #FS_OPEN_NAME
+op5 cpy fnlen
+ beq op5a
+ lda (fnadr),y
+ sta PCBUF,x
+ iny
+ inx
+ bne op5
+op5a lda #0
+ sta PCBUF,x
+ inx
+ txa
+ tay
+ lda mode
+&ropen ldx #SEND_FM
+ jsr SEND
+ bcs xcoperr
+ sec
+ jsr RECEIVE
+ cmp #1
+xcoperr rts
+
+xoperr ldx stream
+ jsr FRESTR
+ lda #E_OPEN
+ .byt $2c
+&loaderr lda #E_NOTFND
+ .byt $2c
+&nofile lda #E_NOFILE
+ .byt $2c
+&toomanyf lda #E_TOOMANYF
+ .byt $2c
+¬input lda #E_NOTINPUT
+ .byt $2c
+&fileopen lda #E_FILEOPEN
+ .byt $2c
+&filenotop lda #E_NOTOPEN
+
+ pha
+ jsr lffcc
+ pla
+ cmp #1
+ rts
+
+&lffe7 .( ;clall
+ lda anzfile
+ beq cle
+ lda FTAB+F_SLEN*F_FNR
+ jsr lffc3
+ jmp lffe7
+cle clc
+ rts
+ .)
+
+&setfpar lda FTAB+F_SLEN*F_FNR,x
+ sta filenr
+ lda FTAB+F_SLEN*F_STR,x
+ sta stream
+ lda FTAB+F_SLEN*F_DRV,x
+ sta drive
+ lda FTAB+F_SLEN*F_MOD,x
+ sta mode
+ rts
+
+&lffc3 .( ;close
+ tax
+ jsr suchfile
+ beq clok
+ clc
+ rts
+clok jsr setfpar
+ txa
+ pha
+
+ tay
+ lda FTAB+F_SLEN*F_MOD,y
+ cmp #FS_OPEN_RD
+ beq clrd
+ cmp #FS_OPEN_DR
+ beq clrd
+ ldx FTAB+F_SLEN*F_STR,y
+ lda #SC_EOF
+ jsr STRCMD
+ lda FTAB+F_SLEN*F_MOD,y
+ cmp #FS_OPEN_RW
+ bne clx
+clrd ldx FTAB+F_SLEN*F_STR,y
+ lda #SC_NUL
+ jsr STRCMD
+clx
+ pla
+ tax
+ dec anzfile
+ cpx anzfile
+ beq clend
+ ldy anzfile
+ lda FTAB+F_SLEN*F_DRV,y
+ sta FTAB+F_SLEN*F_DRV,x
+ lda FTAB+F_SLEN*F_STR,y
+ sta FTAB+F_SLEN*F_STR,x
+ lda FTAB+F_SLEN*F_MOD,y
+ sta FTAB+F_SLEN*F_MOD,x
+ lda FTAB+F_SLEN*F_FNR,y
+ sta FTAB+F_SLEN*F_FNR,x
+clend clc
+ rts
+ .)
+
+&lffc6 ;chkin
+ jsr suchfile
+ beq ckin
+ jmp filenotop
+ckin jsr setfpar
+ lda stream
+ sta actin
+ clc
+ rts
+
+&lffc9 ;chkout
+ jsr suchfile
+ beq ckout
+ jmp filenotop
+ckout jsr setfpar
+ lda stream
+ sta actout
+ clc
+ rts
+ .)
+
+lffe4 .( ;get
+ stx dx
+ ldx actin
+ cpx #STDIN
+ bne lcc1
+ jsr GETC
+ ldx dx
+ bcc lcfe
+ lda #0
+lcfe rts
+
+&lffcf ;basin
+ stx dx
+ ldx actin
+&lcc1 jsr GETC
+ bcc lcce
+ cmp #E_EOF
+ beq lccx
+ jsr YIELD
+ jmp lcc1
+lccx ldx dx
+ jmp filenotop
+lcce ldx dx
+ clc
+ rts
+
+
+ .)
+
+ .(
+#define MAXDUP 5
+
+intab =syszp
+outab =syszp+MAXDUP
+inpnt =syszp+2*MAXDUP
+outpnt =syszp+2*MAXDUP+1
+-syszp +=2*MAXDUP+2
+
+&inidup lda #0
+ sta inpnt
+ sta outpnt
+ clc
+ rts
+
+&cldup .(
+ ldy inpnt
+cld1 dey
+ bmi cld2
+ lda intab,y
+ tax
+ lda #SC_NUL
+ jsr STRCMD
+ jmp cld1
+cld2 lda #0
+ sta inpnt
+ ldy outpnt
+cld3 dey
+ bmi cld4
+ lda outab,y
+ tax
+ lda #SC_EOF
+ jsr STRCMD
+ jmp cld3
+cld4 lda #0
+ sta outpnt
+ clc
+ rts
+ .)
+
+&dupout ldy outpnt
+ cpy #MAXDUP
+ bcs duperr1
+#ifdef SHOW
+ pha
+ lda #"o"
+ jsr SEROUT
+ pla
+ pha
+ jsr xHEXOUT
+ pla
+ clc
+ ldy outpnt
+#endif
+ sta outab,y
+ sta actout
+ inc outpnt
+duperr1 rts
+
+&clout ldy outpnt
+ beq cl2
+ dec outpnt
+ lda outab-1,y
+#ifdef SHOW
+ pha
+ lda #"c"
+ jsr SEROUT
+ pla
+ pha
+ jsr xHEXOUT
+ pla
+ clc
+#endif
+ tax
+ lda #SC_EOF
+ jsr STRCMD
+ ldy outpnt
+ beq cl1a
+ lda outab-1,y
+ .byt $2c
+cl1a lda #STDOUT
+ sta actout
+ clc
+ rts
+
+&clin ldy inpnt
+ beq cl2
+ dec inpnt
+ lda intab-1,y
+ tax
+ lda #SC_NUL
+ jsr STRCMD
+ ldy inpnt
+ beq cl2a
+ lda intab-1,y
+ .byt $2c
+cl2a lda #STDIN
+ sta actin
+ clc
+ rts
+cl2 sec
+ rts
+
+&dupin ldy inpnt
+ cpy #MAXDUP
+ bcs duperr1
+ sta intab,y
+ sta actin
+ inc inpnt
+ rts
+
+&lffcc ;clrch
+ ldy inpnt
+ dey
+ bmi c1
+ lda inpnt,y
+ .byt $2c
+c1 lda #STDIN
+ sta actin
+ ldy outpnt
+ dey
+ bmi c2
+ lda outab,y
+ .byt $2c
+c2 lda #STDOUT
+ sta actout
+ clc
+ rts
+ .)
+
+lffd2 ;bsout
+ stx dx
+ ldx actout
+ld21 pha
+ jsr PUTC
+ bcc ld2e
+ cmp #E_NUL
+ beq ld2x
+ pla
+ jsr YIELD
+ jmp ld21
+ld2x pla
+ jmp filenotop
+ld2e ldx dx
+ pla
+ rts
+
+anfadr =syszp
+endadr =syszp+2
+loadfl =syszp+4 ;.w!
+-syszp +=6
+
+lffd5 ;load
+ stx anfadr
+ sty anfadr+1
+ sta loadfl
+
+ lda mode
+ sta loadfl+1
+
+ lda #FS_OPEN_RD
+ sta mode
+ jsr xopen
+ bcs ldendx
+
+ ldx stream
+ jsr lcc1
+ sta endadr
+ bcs loaderrx
+ ldx stream
+ jsr lcc1
+ sta endadr+1
+ bcs loaderrx
+
+ lda loadfl+1
+ beq ld51
+
+ lda endadr
+ sta anfadr
+ lda endadr+1
+ sta anfadr+1
+ld51
+ ldx stream
+ jsr lcc1
+ bcs ldend
+
+ ldy #0
+ sta (anfadr),y
+
+ inc anfadr
+ bne ld51
+ inc anfadr+1
+ bne ld51
+ldend
+ ldx stream
+ lda #SC_NUL
+ jsr STRCMD
+
+ldendx ldx anfadr
+ ldy anfadr+1
+ clc
+ rts
+loaderrx jsr ldend
+ jmp loaderr
+
+lffd8 ;save
+ stx endadr
+ sty endadr+1
+ tax
+ lda 0,x
+ sta anfadr
+ lda 1,x
+ sta anfadr+1
+
+ lda #FS_OPEN_WR
+ sta mode
+ jsr xopen
+ bcs svend
+
+ lda anfadr
+ ldx stream
+ jsr ld21
+ lda anfadr+1
+ ldx stream
+ jsr ld21
+
+ld81 lda anfadr+1
+ cmp endadr+1
+ bcc ld82
+ bne ld8e
+ lda anfadr
+ cmp endadr
+ bcs ld8e
+ld82
+ ldy #0
+ lda (anfadr),y
+ ldx stream
+ jsr ld21
+
+ inc anfadr
+ bne ld81
+ inc anfadr+1
+ bne ld81
+
+ld8e ldx stream
+ lda #SC_EOF
+ jsr STRCMD
+ cmp #1
+svend rts
+
+lffdb ;setime
+ clc
+ rts
+
+lffde ;getime
+ clc
+ rts
+
+lffe1 ;getstop
+ stx dx
+ ldx #STDIN
+ lda #SC_STAT
+ jsr STRCMD
+ ldx dx
+ cmp #E_SEMPTY
+ beq notpressd
+ jsr lffcc
+ lda #0
+ sec
+ rts
+notpressd lda #1
+ clc
+ rts
+
+
+
+lfff0 ;cursor
+ clc
+ rts
+
+lfff3 ;getio
+ clc
+ rts
+
+lff90 ;sta directfl
+lffb7 lda status
+ rts
+
+lff99 ;bcc set
+ ldx #RAMEND
+ rts
+
+lff9c ;bcc set
+ ldx #RAMANF
+ rts
+
+lffba sta filenr
+ stx drive ;device
+ sty mode ;secadr
+ rts
+
+lffbd sta fnlen
+ stx fnadr
+ sty fnadr+1
+ rts
+
+/*
+
+lff90 =$ff90
+lff99 =$ff99
+lff9c =$ff9c
+lffb7 =$ffb7
+lffba =$ffba
+lffbd =$ffbd
+lffc0 =$ffc0
+lffc3 =$ffc3
+lffc6 =$ffc6
+lffc9 =$ffc9
+lffcc =$ffcc
+lffcf =$ffcf
+lffd2 =$ffd2
+lffd5 =$ffd5
+lffd8 =$ffd8
+lffdb =$ffdb
+lffde =$ffde
+lffe1 =$ffe1
+lffe4 =$ffe4
+lffe7 =$ffe7
+lfff0 =$fff0
+lfff3 =$fff3
+
+ .word le394,le37b:.byt "CBMBASIC"
+
+*/
+
+romanf =*
+
+l0003 =$03 ;.w
+l0005 =$05 ;.w
+
+SUCHCHAR =$07
+HKFL =$08
+TABSPAL =$09
+LOADFL =$0a
+DIM =$0b
+DIMFL =$0c
+STRINGFL =$0d
+INTFL =$0e
+LISTHKFL =$0f
+FNFL =$10
+INPUTFL =$11
+ATNSIGN =$12
+ACTIO =$13
+
+INT =$14 ;.w
+
+STRPTR =$16
+STRZEI =$17 ;.w
+STRSTCK =$19 ; [0,+8]
+
+l0022 =$22
+l0023 =$23
+l0024 =$24
+l0025 =$25
+
+REG =$26 ; [0,+3]
+
+BASANF =$2b ;.w
+VARANF =$2d ;.w
+ARRANF =$2f ;.w
+ARREND =$31 ;.w
+STRANF =$33 ;.w
+l0035 =$35 ;.w
+BASEND =$37 ;.w
+ZEINR =$39 ;.w
+PRVZEINR =$3b ;.w
+NEXTSTAT =$3d ;.w
+DZEINR =$3f ;.w
+NEXTDATA =$41 ;.w
+l0043 =$43 ;.w
+VARNAME =$45 ;.w
+VARADR =$47 ;.w
+FORVAR =$49 ;.w
+l004b =$4b ;.w
+
+l004d =$4d
+l004e =$4e
+l004f =$4f
+l0050 =$50
+l0051 =$51
+
+l0053 =$53
+l0054 =$54
+l0055 =$55 ;.w
+
+akku3 =$57 ; [0,+4]
+akku4 =akku3+5 ; [0,+4]
+FAC =akku4+5 ; [0,+7]
+ARG =FAC+8 ; [0,+7]
+
+l0071 =$71
+
+CHRGET =$73
+CHRGOT =$79
+BASZEI =$7a
+
+l0080 =$80
+
+l008b =$8b
+
+l0100 =$100 ; [-1,+13]
+stack =$100
+
+#ifdef TESTC64
+l0200 =$200 ; [-5,+88]
+#else
+l0200 =$340
+#endif
+
+l0300 =$300 ;.w
+l0302 =$302 ;.w
+l0304 =$304 ;.w
+l0306 =$306 ;.w
+l0308 =$308 ;.w
+l030a =$30a ;.w
+
+SYSAC =$030c
+SYSXR =$030d
+SYSYR =$030e
+SYSST =$030f
+
+lusr =$0310 ; [0,+2]
+
+lmkdir lda #FS_MKDIR
+ .byt $2c
+lrmdir lda #FS_RMDIR
+ .byt $2c
+lscratch lda #FS_DELETE
+ .byt $2c
+lformat lda #FS_FORMAT
+ sta loadfl
+ jsr le1d4
+ lda mode
+ sta PCBUF+FS_CMD_PFAD
+ lda loadfl
+ sta mode
+ jsr copen
+ bcc cmdok
+ ldx #24
+ jmp la437
+cmdok rts
+
+lrename jsr le257 ; filenamen holen
+ ldx #FS_CMD_NAME
+ ldy fnlen
+ beq syntaxer
+ ldy #0
+lr1 lda (fnadr),y
+ sta PCBUF,x
+ iny
+ inx
+ cpy fnlen
+ bcc lr1
+ lda #0
+ sta PCBUF,x
+ inx
+ stx loadfl
+ jsr CHRGOT
+ cmp #$a4 ; "to"-TokenCode
+ bne syntaxer
+ jsr CHRGET
+ jsr le257
+ ldy fnlen
+ beq syntaxer
+ ldy #0
+ ldx loadfl
+lr2 lda (fnadr),y
+ sta PCBUF,x
+ inx
+ iny
+ cpy fnlen
+ bcc lr2
+ lda #0
+ sta PCBUF,x
+ inx
+ stx loadfl
+ jsr le200
+ stx PCBUF+FS_CMD_DRV
+ lda #0
+ sta PCBUF+FS_CMD_PFAD
+ lda #FS_RENAME
+ ldy loadfl
+ jmp ropen
+syntaxer jmp syntax
+illq jmp illquant
+
+buf =syszp
+-syszp +=FS_DIR_NAME
+
+ldir beq syntaxer
+ lda #0
+ jsr lffbd
+ jsr lad9e
+ bit STRINGFL
+ bpl drnoname
+ jsr lb6a3
+ ldx l0022
+ ldy l0022+1
+ jsr lffbd
+ jsr le20e
+ jsr lad9e
+drnoname bit STRINGFL
+ bmi syntaxer
+ jsr lb1b8
+ ldx FAC+3
+ bne illq
+ ldx FAC+4
+ stx drive
+ lda #FS_OPEN_DR
+ sta mode
+ jsr xopen
+ bcc drnloop
+ rts
+
+IN ldx stream
+ jmp lcc1
+
+drnloop jsr lffe1
+ beq drend
+ ldy #0
+drl1 jsr IN
+ bcs drend
+ sta buf,y
+ iny
+ cpy #FS_DIR_NAME
+ bcc drl1
+
+ lda buf+FS_DIR_MODE
+ cmp #FS_DIR_MOD_NAM
+ bne drl2
+
+ lda #dnamtxt
+ jsr strout
+ jsr dirname
+ jmp drle
+
+drl2 cmp #FS_DIR_MOD_FIL
+ bne drl3
+ jsr dnout
+ jsr sizdatim
+ jmp drle
+
+drl3 cmp #FS_DIR_MOD_FRE
+ bne drl4
+ jsr sizeout
+ lda #bytfre
+ jsr strout
+ jmp drle
+
+drl4 cmp #FS_DIR_MOD_DIR
+ bne drle
+ jsr dnout
+ lda #ddirtxt
+ jsr strout
+ jmp drle
+
+drle jsr laad7
+ jmp drnloop
+
+drend ldx stream
+ lda #SC_NUL
+ jsr STRCMD
+ clc
+ rts
+
+dnout jsr dirname
+ lda #","
+ jsr lffd2
+ ldx drive
+ lda #0
+ jsr adrout
+ jsr DPOUT
+ jmp SSPOUT
+
+dirname ldy #0
+ lda #34
+drn1 jsr lffd2
+ jsr IN
+ bcs drlne
+ cmp #0
+ beq drlne
+ iny
+ bne drn1
+drlne lda #34
+drn2 jsr lffd2
+ lda #" "
+ iny
+ cpy #23
+ bcc drn2
+ rts
+
+sizdatim jsr sizeout
+ jsr DPOUT
+ lda PCBUF+FS_DIR_DAY
+ jsr DEZOUT
+ jsr PNTOUT
+ lda PCBUF+FS_DIR_MONTH
+ jsr DEZOUT
+ jsr PNTOUT
+ lda PCBUF+FS_DIR_YEAR
+ jsr DEZOUT
+ jsr SSPOUT
+ lda PCBUF+FS_DIR_HOUR
+ jsr DEZOUT
+ jsr DPOUT
+ lda PCBUF+FS_DIR_MIN
+ jmp DEZOUT
+
+DPOUT lda #":"
+ .byt $2c
+SSPOUT lda #" "
+ .byt $2c
+PNTOUT lda #"."
+ jmp lffd2
+
+sizeout lda #buf+FS_DIR_LEN
+ ldx #" "
+ jmp ldezout
+
+ddirtxt .asc ":",0
+dnamtxt .asc "Diskettenname:",0
+bytfre .asc "Bytes free",0
+
+
+ .(
+da =syszp
+lb =syszp+2
+lo =syszp+3
+w =syszp+4
+out =syszp+8
+cnt =syszp+9
+-syszp +=10
+
+&ldezout .(
+ sta da
+ sty da+1
+ stx lb
+ ldx #39
+
+l1 ldy #3
+l1c lda dtab,x
+ sta w,y
+ dex
+ dey
+ bpl l1c
+ stx lo
+ iny
+ sty out
+ sty cnt
+l2a ldy #3
+l2 lda (da),y
+ cmp w,y
+ bcc sloop
+ bne shift
+ dey
+ bpl l2
+ bmi xsub
+shift ldy #0
+ ldx #4
+ clc
+h1 lda w,y
+ rol
+ sta w,y
+ iny
+ dex
+ bne h1
+ bcs ende
+ inc cnt
+ bne l2a
+
+sloop dec cnt
+ bmi endx
+ ldy #3
+ clc
+s0 lda w,y
+ ror
+ sta w,y
+ dey
+ bpl s0
+
+xsub ldy #3
+x0 lda (da),y
+ cmp w,y
+ bcc d0
+ bne d1
+ dey
+ bpl x0
+d1 ldy #0
+ ldx #4
+ sec
+d1a lda (da),y
+ sbc w,y
+ sta (da),y
+ iny
+ dex
+ bne d1a
+ sec
+ .byt $24
+d0 clc
+ rol out
+ jmp sloop
+
+endx lda out
+ beq e3
+ ldx #0
+ stx lb
+ beq e1
+e3 bit lo
+ bmi e1
+ lda lb
+ bne e2
+e1 ora #"0"
+e2 jsr lffd2
+
+ ldx lo
+ bmi l1b
+ jmp l1
+l1b ende rts
+
+dtab .word 1,0
+ .word 10,0
+ .word 100,0
+ .word 1000,0
+ .word 10000,0
+ .word 34464,1
+ .word 16960,15
+ .word 38528,152
+ .word 57600,1525
+ .word 51712,15258
+ .)
+
+&DEZOUT .(
+l1 tay
+ sec
+ sbc #100
+ bcs l1
+ lda #0
+ sta da
+ tya
+l2 tay
+ sec
+ sbc #10
+ bcc l3
+ inc da
+ bcs l2
+l3 asl da
+ asl da
+ asl da
+ asl da
+ tya
+ ora da
+&&HEXOUT
+ pha
+ lsr
+ lsr
+ lsr
+ lsr
+ jsr NIBOUT
+ pla
+ and #$0f
+NIBOUT clc
+ adc #"0"
+ cmp #"9"+1
+ bcc nout
+ adc #6
+nout jmp lffd2
+ .)
+
+ .)
+
+ .(
+l00fb =syszp
+l00fd =syszp+2
+l00c8 =syszp+4
+-syszp +=5
+
+&parlist .(
+ bcc a1
+ beq a1
+ cmp #$ab
+ bne delerr1
+a1 jsr la96b
+ jsr la613
+ jsr CHRGOT
+ beq a2
+ cmp #$ab
+delerr1 bne delerr
+ jsr CHRGET
+ jsr la96b
+ bne delerr
+a2 rts
+&delerr jmp syntax
+ .)
+
+&ldump .(
+ bne delerr
+ lda VARANF
+ ldy VARANF+1
+du1 cpy ARRANF+1
+ bne du2
+ cmp ARRANF
+du2 bcs duvend
+ sta INT
+ sty INT+1
+ jsr laad7 ; crlfout
+ jsr getstop
+ jsr dumpvar
+ lda INT
+ ldy INT+1
+ clc
+ adc #7
+ bcc du1
+ iny
+ bne du1
+
+dumpvar jsr duname
+ bcs dustrbin
+ lda INT
+ adc #2
+ ldy INT+1
+ bcc du3
+ iny
+du3 cpx #128
+ bcs dufunk
+ pha
+ lda #" "
+ jsr duglout
+ pla
+ jsr lbba2 ; fliesskommavar holen
+du4 jsr lbddd ; in ASC
+ jmp strout ; ausgeben
+duvend jmp duarr
+dustrbin txa
+ bpl dustr
+ lda #"%" ; integervar
+ jsr duglout
+ ldy #2
+ lda (INT),y
+ tax
+ iny
+ lda (INT),y
+ tay
+ txa
+ jsr lb395
+ jmp du4
+dustr lda #"$" ; stringvar
+ jsr duglout
+ jsr duhkout
+ ;lda #4
+ ;jsr setfla
+ ldy #2
+ lda (INT),y ; l�nge
+ beq dustrr
+ sta l00c8
+ iny
+ lda (INT),y
+ sta l0022
+ iny
+ lda (INT),y
+ sta l0022+1
+ ldy #0
+dust1 lda (l0022),y
+ jsr lffd2
+ iny
+ cpy l00c8
+ bne dust1
+dustrr
+duhkout lda #34
+ jmp lffd2
+dufunk ldy #2 ;funktion
+ lda (INT),y
+ sta akku4+3
+ iny
+ lda (INT),y
+ sta akku4+4
+ iny
+ lda (INT),y
+ sec
+ sbc #2
+ sta l0022
+ iny
+ lda (INT),y
+ sbc #0
+ sta l0022+1
+ lda #"("
+ jsr lffd2
+ ldy #0 ; argument
+ lda (l0022),y
+ jsr lffd2
+ iny
+ lda (l0022),y
+ beq duf1
+ jsr lffd2
+duf1 lda #")"
+ jsr duglout
+ jsr dumplist
+ rts
+duend jmp laad7
+duarr lda ARRANF ; arrayvariable
+ ldy ARRANF+1
+dua1 cpy ARREND+1
+ bne dua2
+ cmp ARREND
+dua2 bcs duend
+ sta INT
+ sty INT+1
+ jsr laad7
+ jsr getstop
+ jsr duname
+ bcc duafk
+ txa
+ bmi duaint
+ lda #"$"
+ .byt $2c
+duaint lda #"%"
+ .byt $2c
+duafk lda #" "
+ jsr lffd2
+ lda #"("
+ jsr lffd2
+ ldy #4
+ lda (INT),y
+ sta l00fb ; Anzahl Dimensionen
+ clc
+ lda #5
+ adc INT
+ sta l00fd
+ lda INT+1
+ adc #0
+ sta l00fd+1
+ jmp dua4
+dua3 dec l00fb
+ beq duaadd
+ lda #","
+ jsr lffd2
+dua4 lda l00fb
+ asl
+ tay
+ dey
+ lda (l00fd),y
+ sec
+ sbc #1
+ pha
+ dey
+ lda (l00fd),y
+ sbc #0
+ tay
+ pla
+ tax
+ tya
+ jsr adrout
+ jmp dua3
+duaadd lda #")"
+ jsr lffd2
+ ldy #2
+ lda (INT),y
+ clc
+ adc INT
+ pha
+ iny
+ lda (INT),y
+ adc INT+1
+ tay
+ pla
+ jmp dua1
+
+duname ldy #0
+ lda (INT),y
+ tax
+ and #127
+ jsr lffd2
+ iny
+ lda (INT),y
+ tay
+ and #127
+ beq dun1
+ jsr lffd2
+dun1 tya
+ asl
+ rts
+
+duglout jsr lffd2
+ lda #"="
+ jmp lffd2
+ .)
+
+&lfind .(
+ lda BASANF+1
+ sta l00fd+1
+ lda BASANF
+ sta l00fd
+ bne d1
+ dec l00fd+1
+d1 dec l00fd
+ ;jsr d10
+d2 ldy #0
+ lda (l00fd),y
+ bne d5
+ iny ; zeilenende
+ iny
+ lda (l00fd),y ; hibyte verkettungsadr
+ beq fiend ; prgende
+ lda l00fd
+ sta akku4+3
+ lda l00fd+1
+ sta akku4+4
+ lda l00fd ; 5 f�r anfang text addieren
+ clc
+ adc #5
+ sta l00fd
+ bcc d4
+ inc l00fd+1
+d4 jsr getstop
+ jmp d2
+fiend pla
+ pla
+ jmp ready
+d5 cmp (BASZEI),y ; mit erstem Byte des zu suchenden Textes vergleichen
+ bne d8
+; lda l00fd
+; sta l00fb
+; lda l00fd+1
+; sta l00fb+1
+d6 iny
+ lda (BASZEI),y ; cpy l00c8
+ beq d9 ; listen
+ lda (l00fd),y
+ beq d7 ; ende der Zeile dann nicht gefunden
+ cmp (BASZEI),y
+ beq d6
+d7; lda l00fb
+; sta l00fd
+; lda l00fb+1
+; sta l00fd+1
+d8 inc l00fd
+ bne d2
+ inc l00fd+1
+ bne d2
+
+d9 inc akku4+3
+ bne d09
+ inc akku4+4
+d09 ldy #2
+ lda (akku4+3),y
+ tax
+ iny
+ lda (akku4+3),y
+ jsr listline
+ jsr laad7
+ ldy #<-1
+d13 iny
+ lda (l00fd),y
+ bne d13
+ tya
+ clc
+ adc l00fd
+ sta l00fd
+ bcc d14
+ inc l00fd+1
+d14 jmp d2
+/*
+d10 ldy #<-1
+d11 iny
+ lda (BASZEI),y
+ bne d11
+ sty l00c8
+ rts */
+ .)
+
+&ldelete .(
+ jsr parlist
+ lda INT:ora INT+1
+ bne a3
+ ldy #0 ; hier alles bis ende l�schen
+ tya
+ sta (akku4+3),y
+ iny
+ sta (akku4+3),y
+ jmp a9
+a3 lda akku4+3
+ ldy akku4+4
+ sta l0022
+ sty l0022+1
+ jsr la613
+ bcc a5
+ ldy #0
+ lda (akku4+3),y
+ pha
+ iny
+ lda (akku4+3),y
+ sta akku4+4
+ pla
+ sta akku4+3
+a5 lda l0022+1
+ cmp akku4+4
+ bcc a5a
+ bne a9
+ lda l0022
+ cmp akku4+3
+ bcs a9
+a5a ldy #0
+ ldx #3
+a6 lda (akku4+3),y
+ sta (l0022),y
+ cmp #0
+ bne a7
+ dex
+ beq a9
+ bne a8
+a7 ldx #3
+a8 iny
+ bne a6
+ inc l0022+1
+ inc akku4+4
+ jmp a6
+&a9 jsr bindbas
+ lda #2
+ clc
+ adc l0022
+ sta VARANF
+ lda l0022+1
+ adc #0
+ sta VARANF+1
+ jmp la663
+
+&&lrenew bne renewerr
+ ldy #1
+ tya
+ sta (BASANF),y
+ jsr a9
+ jmp ready
+ .)
+
+renewerr jmp syntax
+&GETINT jsr frmnum
+ jmp getadr
+
+paraut .(
+ lda #0
+ sta l00fb+1
+ sta l00fd+1
+ lda #10
+ sta l00fb
+ lda #100
+ sta l00fd
+ jsr weitzei
+ cmp #","
+ beq paraut1
+ jsr CHRGOT
+ jsr GETINT
+ sty l00fd
+ sta l00fd+1
+ jsr weitzei
+ cmp #","
+ beq paraut1
+ jmp syntax
+paraut1 jsr CHRGET
+ jsr weitzei
+ cmp #","
+ beq paraut2
+ jsr GETINT
+ sty l00fb
+ sta l00fb+1
+paraut2 rts
+ .)
+
+ .(
+rsyn lda #11
+ .byt $2c
+rend lda #128
+ .byt $2c
+rillq lda #14
+ .byt $2c
+rmemer lda #16
+ sta l00c8
+ jsr a9
+ ldx l00c8
+ jmp la437
+
+&&lrenumber
+ jsr paraut
+ lda l00fb
+ ora l00fb+1
+ bne r00
+ jmp illquant
+r00 ldy #1
+ lda (BASANF),y
+ beq rend
+ jsr a9
+ jsr CHRGOT
+ beq r0a
+ cmp #","
+ bne rsyn
+ jsr CHRGET
+r0a jsr parlist
+ lda INT
+ ora INT+1
+ bne r01
+ ldx #<-1
+ ldy #<-1
+ bne r02
+r01 ldx INT
+ ldy INT+1
+r02 stx l0022
+ sty l0022+1
+ jmp r03
+riq1 bcs rillq
+r1 stx akku4+3
+ sty akku4+4
+r03 ldy #1
+ lda (akku4+3),y
+ beq r4
+ ldy #3
+ lda (akku4+3),y
+ cmp l0022+1
+ bcc rrr
+ bne r4
+ dey
+ lda (akku4+3),y
+ cmp l0022
+ bcc rrr
+ bne r4
+rrr lda STRANF
+ sec
+ sbc #4
+ sta STRANF
+ tax
+ lda STRANF+1
+ sbc #0
+ sta STRANF+1
+ cmp VARANF+1
+ bcc rmemer
+ bne r1a
+ cpx VARANF
+ bcc rmemer
+r1a ldy #3 ; alte Zeilennummer speichern
+ lda (akku4+3),y
+ sta (STRANF),y
+ dey
+ lda (akku4+3),y
+ sta (STRANF),y
+ dey
+ lda l00fd+1 ; und neue dazu
+ sta (STRANF),y
+ tax
+ dey
+ lda l00fd
+ sta (STRANF),y
+ ldy #2
+ sta (akku4+3),y
+ iny
+ txa
+ sta (akku4+3),y
+ lda l00fd ; neue Zeilennr erh�hen
+ clc
+ adc l00fb
+ sta l00fd
+ lda l00fd+1
+ adc l00fb+1
+ sta l00fd+1
+ bcs riq1
+ ldy #0 ; n�xte Zeile suchen
+ lda (akku4+3),y
+ tax
+ iny
+ lda (akku4+3),y
+ tay
+ bne r1
+r4 jsr la68e ; start Zeilennr im Text �ndern
+r5 ldy #0
+ lda (BASZEI),y
+ bne r6
+ iny
+ lda (BASZEI),y
+ bne r7
+ iny
+ lda (BASZEI),y
+ bne r7
+ jmp rend
+r7 lda BASZEI
+ clc
+ adc #5
+ sta BASZEI
+ bcc r5
+ inc BASZEI+1
+ bne r5
+r6 cmp #$a7
+ beq rthen
+r8 cmp #$89 ; goto-Code
+ beq rgot
+ cmp #$8d ; gosub-Code
+ beq rgot
+ cmp #$cb ; go-Code
+ beq rgo
+ cmp #34 ; Hochkomma
+ beq rhoko
+r9 inc BASZEI
+ bne r5
+ inc BASZEI+1
+ bne r5
+rhoko ldy #1 ; Text in Hochkomma �berspringen
+rho1 lda (BASZEI),y
+ beq rho3
+ cmp #34 ; Ende mit Hochkomma
+ beq rho2
+ iny
+ bne rho1
+rho2 iny
+rho3 tya
+ clc
+ adc BASZEI
+ sta BASZEI
+ bcc r5
+ inc BASZEI+1
+ bne r5
+rthen jsr CHRGET
+ beq r9
+ bcs r8
+ bcc r10
+rgo jsr CHRGET
+ cmp #$a4 ; to-Code
+ bne r5
+rgot jsr CHRGET
+ bcs r5
+r10 lda BASZEI
+ sta l00fd
+ lda BASZEI+1
+ sta l00fd+1
+ jsr GETINT
+ sec
+ lda BASZEI
+ sbc l00fd
+ sta akku3
+
+ ; neue Zeilennr finden
+
+ lda STRANF
+ sta l0035
+ lda STRANF+1
+ sta l0035+1
+r11 ldy #3
+ lda (l0035),y
+ cmp INT+1
+ bne r12
+ dey
+ lda (l0035),y
+ cmp INT
+ beq r13
+r12 lda #4
+ clc
+ adc l0035
+ sta l0035
+ tax
+ bcc r12a
+ inc l0035+1
+r12a lda l0035+1
+ cmp BASEND+1
+ bcc r11
+ bne r11a
+ cpx BASEND
+ bcc r11
+r11a lda INT+1
+ ldx INT
+ jmp r14
+r13 dey ; ZNr in Tabelle gefunden
+ lda (l0035),y
+ pha
+ dey
+ lda (l0035),y
+ tax
+ pla
+r14 jsr rfacasc ; und nach ASC wandeln
+ ldy #<-1
+r15 iny
+ lda stack,y
+ bne r15
+ lda l00fd
+ sta akku4+3
+ lda l00fd+1
+ sta akku4+4
+ tya
+ sec
+ sbc akku3
+ sta akku3
+ beq r16 ; Zahlen im Text gleich lang
+ bcc r17 ; neue < alte -> kleinere Adresse
+ lda VARANF
+ sta akku3+3
+ clc
+ adc akku3
+ sta akku3+1
+ sta VARANF
+ lda VARANF+1
+ sta akku3+4
+ adc #0
+ sta akku3+2
+ sta VARANF+1
+
+ cmp STRANF+1
+ bcc r18
+ beq r18a
+r18b jmp rmemer
+r18a lda VARANF
+ cmp STRANF
+ bcs r18b
+r18 jsr la3bf
+ jmp r16
+
+r17 lda BASZEI ; neue Zahl kleiner als alte
+ sta akku4+3
+ clc
+ adc akku3
+ sta l00fb
+ lda BASZEI+1
+ sta akku4+4
+ sbc #0
+ sta l00fb+1
+r20 ldy #0
+ lda (akku4+3),y
+ sta (l00fb),y
+ inc l00fb
+ bne r20a
+ inc l00fb+1
+r20a inc akku4+3
+ bne r20b
+ inc akku4+4
+r20b lda akku4+3
+ cmp VARANF
+ bne r20
+ lda akku4+4
+ cmp VARANF+1
+ bne r20
+r16 lda l00fd ; ZNr gleich lang
+ sta BASZEI
+ lda l00fd+1
+ sta BASZEI+1
+ ldy #0
+r21 lda stack,y
+ beq r22
+ sta (BASZEI),y
+ iny
+ bne r21
+r22 tya
+ clc
+ adc BASZEI
+ sta BASZEI
+ bcc r23
+ inc BASZEI+1
+r23 jsr CHRGOT
+ cmp #"," ; test auf on x goto/gosub
+ bne r24
+ jsr CHRGET
+ bcs r24
+ jmp r10
+r24 jmp r5
+
+rfacasc sta FAC+1
+ stx FAC+2
+ ldx #$90
+ sec
+ jsr lbc49
+ jmp lbddf
+ .)
+ .)
+
+quit .(
+ jsr lffe7 ; clall
+ jsr cldup
+ jmp TERM
+ .)
+
+ .(
+&lomem .(
+ jsr GETINT
+ lda INT+1
+ cmp #>RAMEND
+ bne lmh
+ lda INT
+ cmp #"+$80
+ .asc "="+$80
+ .asc "<"+$80
+ .asc "SG","N"+$80
+ .asc "IN","T"+$80
+ .asc "AB","S"+$80
+ .asc "US","R"+$80
+ .asc "FR","E"+$80
+ .asc "PO","S"+$80
+ .asc "SQ","R"+$80
+ .asc "RN","D"+$80
+ .asc "LO","G"+$80
+ .asc "EX","P"+$80
+ .asc "CO","S"+$80
+ .asc "SI","N"+$80
+ .asc "TA","N"+$80
+ .asc "AT","N"+$80
+ .asc "PEE","K"+$80
+ .asc "LE","N"+$80
+ .asc "STR","$"+$80
+ .asc "VA","L"+$80
+ .asc "AS","C"+$80
+ .asc "CHR","$"+$80
+ .asc "LEFT","$"+$80
+ .asc "RIGHT","$"+$80
+ .asc "MID","$"+$80
+ .asc "G","O"+$80,0
+
+la09enew .asc "DI","R"+$80
+ .asc "MKDI","R"+$80
+ .asc "RMDI","R"+$80
+ .asc "SCRATC","H"+$80
+ .asc "RENAM","E"+$80
+ .asc "HEADE","R"+$80
+
+ .asc "DELET","E"+$80
+ .asc "RENUMBE","R"+$80
+ .asc "RENE","W"+$80
+ .asc "DUM","P"+$80
+ .asc "FIN","D"+$80
+
+ .asc "HIME","M"+$80
+ .asc "LOME","M"+$80
+ .asc "QUI","T"+$80
+ .asc "ENTE","R"+$80
+ .asc "CAL","L"+$80
+ .asc "SPU","T"+$80
+ .asc "SGE","T"+$80
+ .byt 0
+
+le1 .asc "TOO MANY FILE","S"+$80
+le2 .asc "FILE OPE","N"+$80
+le3 .asc "FILE NOT OPE","N"+$80
+le4 .asc "FILE NOT FOUN","D"+$80
+le5 .asc "DEVICE NOT PRESEN","T"+$80
+le6 .asc "NOT INPUT FIL","E"+$80
+le7 .asc "NOT OUTPUT FIL","E"+$80
+le8 .asc "MISSING FILE NAM","E"+$80
+le9 .asc "ILLEGAL DEVICE NUMBE","R"+$80
+le10 .asc "NEXT WITHOUT FO","R"+$80
+le11 .asc "SYNTA","X"+$80
+le12 .asc "RETURN WITHOUT GOSU","B"+$80
+le13 .asc "OUT OF DAT","A"+$80
+le14 .asc "ILLEGAL QUANTIT","Y"+$80
+le15 .asc "OVERFLO","W"+$80
+le16 .asc "OUT OF MEMOR","Y"+$80
+le17 .asc "UNDEF'D STATEMEN","T"+$80
+le18 .asc "BAD SUBSCRIP","T"+$80
+le19 .asc "REDIM'D ARRA","Y"+$80
+le20 .asc "DIVISION BY ZER","O"+$80
+le21 .asc "ILLEGAL DIREC","T"+$80
+le22 .asc "TYPE MISMATC","H"+$80
+le23 .asc "STRING TOO LON","G"+$80
+le24 .asc "FILE DAT","A"+$80
+le25 .asc "FORMULA TOO COMPLE","X"+$80
+le26 .asc "CAN'T CONTINU","E"+$80
+le27 .asc "UNDEF'D FUNCTIO","N"+$80
+le28 .asc "VERIF","Y"+$80
+le29 .asc "LOA","D"+$80
+
+la328 .word le1,le2,le3,le4,le5,le6,le7,le8,le9
+ .word le10,le11,le12,le13,le14,le15,le16
+ .word le17,le18,le19,le20,le21,le22
+ .word le23,le24,le25,le26,le27,le28,le29
+ .word lbreak
+
+la364 .byt 13,10,"OK",13,10,0
+lerror .byt " ERROR",0
+la371 .byt " IN ",0
+lready .byt 13,10,"READY.",13,10,0
+la381 .byt 13,10
+lbreak .byt "BREAK",0
+
+la38a tsx
+ 104 inx :inx :inx :inx :la38f lda stack+1,x
+ 105 cmp #$81:bne la3b7:lda FORVAR+1:bne la3a4:lda stack+2,x
+ 106 sta FORVAR:lda stack+3,x:sta FORVAR+1:la3a4 cmp stack+3,x:bne la3b0
+ 107 lda FORVAR:cmp stack+2,x:beq la3b7:la3b0 txa :clc
+ 108 adc #$12:tax :bne la38f:la3b7 rts :la3b8 jsr la408
+ 109 sta ARREND:sty ARREND+1:la3bf sec :lda akku3+3:sbc akku4+3
+ 110 sta l0022:tay :lda akku3+4:sbc akku4+4:tax
+ 111 inx :tya :beq la3f3:lda akku3+3:sec
+ 112 sbc l0022:sta akku3+3:bcs la3dc:dec akku3+4:sec
+ 113 la3dc lda akku3+1:sbc l0022:sta akku3+1:bcs la3ec:dec akku3+2
+ 114 bcc la3ec:la3e8 lda (akku3+3),y:sta (akku3+1),y:la3ec dey :bne la3e8
+ 115 lda (akku3+3),y:sta (akku3+1),y:la3f3 dec akku3+4:dec akku3+2:dex
+ 116 bne la3ec:rts :la3fb asl :adc #$3e:bcs la435
+ 117 sta l0022:tsx :cpx l0022:bcc la435:rts
+ 118 la408 cpy STRANF+1:bcc la434:bne la412:cmp STRANF:bcc la434
+ 119 la412 pha :ldx #$09:tya :la416 pha :lda akku3,x
+ 120 dex :bpl la416:jsr lb526:ldx #$f7:la421 pla
+ 121 sta FAC,x:inx :bmi la421:pla :tay
+ 122 pla :cpy STRANF+1:bcc la434:bne la435:cmp STRANF
+ 123 bcs la435:la434 rts :la435 ldx #$10:la437 jmp (l0300):la43a txa
+ 124 asl :tax :lda la328-2,x:sta l0022:lda la328-1,x
+ 125 sta l0022+1:jsr lffcc:lda #$00:sta ACTIO:jsr laad7
+ 126 jsr lab45:ldy #$00:la456 lda (l0022),y:pha :and #$7f
+ 127 jsr basout:iny :pla :bpl la456:jsr la67a
+ 128 lda #lerror:la469 jsr strout:ldy ZEINR+1:iny
+ 129 beq ready:jsr lbdc2:ready lda #lready:jsr strout
+ 130 lda #$80:jsr lff90:la480 jmp (l0302)
+ la483 jsr linein:stx BASZEI
+ 131 sty BASZEI+1:exestart jsr CHRGET:;la48d: tax :beq la480:ldx #$ff
+ 132 stx ZEINR+1:bcc la49c:jsr la579:jmp la7e1:la49c jsr la96b
+ 133 jsr la579:sty DIM:jsr la613:bcc la4ed:ldy #$01
+ 134 lda (akku4+3),y:sta l0023:lda VARANF:sta l0022:lda akku4+4
+ 135 sta l0025:lda akku4+3:dey :sbc (akku4+3),y:clc
+ 136 adc VARANF:sta VARANF:sta l0024:lda VARANF+1:adc #$ff
+ 137 sta VARANF+1:sbc akku4+4:tax :sec :lda akku4+3
+ 138 sbc VARANF:tay :bcs la4d7:inx :dec l0025
+ 139 la4d7 clc :adc l0022:bcc la4df:dec l0023:clc
+ 140 la4df lda (l0022),y:sta (l0024),y:iny :bne la4df:inc l0023
+ 141 inc l0025:dex :bne la4df:la4ed jsr la659:jsr bindbas
+ 142 lda l0200:beq la480:clc :lda VARANF:sta akku3+3
+ 143 adc DIM:sta akku3+1:ldy VARANF+1:sty akku3+4:bcc la508
+ 144 iny :la508 sty akku3+2:jsr la3b8:lda INT:ldy INT+1
+ 145 sta l0200-2:sty l0200-1:lda ARREND:ldy ARREND+1:sta VARANF
+ 146 sty VARANF+1:ldy DIM:dey :la522 lda l0200-4,y:sta (akku4+3),y
+ 147 dey :bpl la522:;la52a: jsr la659:jsr bindbas:jmp la480
+ 148 bindbas
+ lda BASANF:ldy BASANF+1:sta l0022:sty l0023:clc
+ 149 la53c ldy #$01:lda (l0022),y:beq la55f:ldy #$04:la544 iny
+ 150 lda (l0022),y:bne la544:iny :tya :adc l0022
+ 151 tax :ldy #$00:sta (l0022),y:lda l0023:adc #$00
+ 152 iny :sta (l0022),y:stx l0022:sta l0023:bcc la53c
+ 153 la55f rts
+
+linein .(
+ LDx #0
+MO1 JSR lffcf ; le112
+ bcc mo1a
+/* pha
+ lda #"E"
+ jsr SEROUT
+ pla
+ pha
+ jsr HEXOUT
+ pla*/
+ cmp #E_NOTOPEN
+ bne MO1
+ txa
+ pha
+ jsr clin
+ pla
+ tax
+ bcc MO1
+ jmp TERM
+
+mo1a cmp #$1f
+ bcs MO1A
+
+ CMP #13:BEQ MO2
+
+ CMP #8:BNE MO1
+ cpx #0:beq MO1
+ dex
+ jsr lffd2
+ jmp MO1
+
+MO1A STA l0200,x
+ jsr lffd2
+ INx:CPx #$59
+ BCC MO1
+ ldx #$17:jmp la437
+/*MO2S sec:.byt $24*/
+MO2 jmp laaca
+ .)
+/*
+ linein ldx #$00:la562 jsr le112:jsr lffd2:cmp #$0d:beq la576
+ 154 sta l0200,x:inx :cpx #$59:bcc la562:ldx #$17
+ 155 jmp la437:la576 ;lda #10:;jsr lffd2:jmp laaca
+*/
+ la579 jmp (l0304)
+ la57c
+#if l0200 & $00ff
+ lda BASZEI
+ sec
+ sbc #l0200-1:sta BASZEI+1
+#else
+ dec BASZEI+1
+#endif
+ lda #la78b:sta l0022:sty l0023
+ 211 jmp lae43:la78b lda #lb9bc:jsr lbba2:jsr CHRGOT
+ 212 cmp #$a9:bne la79f:jsr CHRGET:jsr frmnum:la79f jsr lbc2b
+ 213 jsr lae38:lda FORVAR+1:pha :lda FORVAR:pha
+ 214 lda #$81:pha :la7ae jsr getstop:lda BASZEI:ldy BASZEI+1
+ 215 cpy #>l0200:beq la7be:sta NEXTSTAT:sty NEXTSTAT+1
+ 216 la7be ldy #$00:lda (BASZEI),y:bne la807:ldy #$02:lda (BASZEI),y
+ 217 clc :bne la7ce:jmp la84b:la7ce iny :lda (BASZEI),y
+ 218 sta ZEINR:iny :lda (BASZEI),y:sta ZEINR+1:tya
+ 219 adc BASZEI:sta BASZEI:bcc la7e1:inc BASZEI+1:la7e1 jmp (l0308)
+ la7e4 jsr CHRGET:la7e7 jsr la7ed:jmp la7ae:la7ed beq la82b:la7ef sbc #$80
+ 221 bcc la804
+#ifdef SHOW
+ pha
+ jsr xHEXOUT
+ pla
+#endif
+ cmp #$4c ; ist neuer Befehl
+ bcc la7f3 ; nein dann normal
+ sbc #$4c-$23 ; neue adressen direkt hinter alten
+ jmp la7f7
+ la7f3 cmp #$23:bcs la80e ; dann function-code
+ la7f7
+#ifdef SHOW
+ pha
+ jsr xHEXOUT
+ pla
+#endif
+ asl :tay
+ 222 lda la00c+1,y:pha :lda la00c,y:pha :jmp CHRGET
+ 223 la804 jmp la9a5:la807 cmp #$3a:beq la7e1:la80b jmp syntax:la80e cmp #$4b
+ 224 bne la80b:jsr CHRGET:lda #$a4:jsr laeff:jmp la8a0
+ lrestore la81d sec :lda BASANF:sbc #$01:ldy BASANF+1:bcs la827
+ 226 dey :la827 sta NEXTDATA:sty NEXTDATA+1:la82b rts :getstop jsr lffe1
+ lstop bcs la832:
+ lend clc :la832 bne la870:lda BASZEI:ldy BASZEI+1
+ 228 ldx ZEINR+1:inx :beq la849:sta NEXTSTAT:sty NEXTSTAT+1
+ 229 lda ZEINR:ldy ZEINR+1:sta PRVZEINR:sty PRVZEINR+1:la849 pla
+ 230 pla :la84b lda #la381:bcc la854:jmp la469
+ 231 la854 jmp le386
+ lcont bne la870:ldx #$1a:ldy NEXTSTAT+1:bne la862
+ 232 jmp la437:la862 lda NEXTSTAT:sta BASZEI:sty BASZEI+1:lda PRVZEINR
+ 233 ldy PRVZEINR+1:sta ZEINR:sty ZEINR+1:la870 rts :
+ lrun php
+ 234 lda #$00:jsr lff90:plp :bne la87d:jmp la659
+ 235 la87d jsr la660:jmp la897
+ lgosub lda #$03:jsr la3fb:lda BASZEI+1
+ 236 pha :lda BASZEI:pha :lda ZEINR+1:pha
+ 237 lda ZEINR:pha :lda #$8d:pha :la897 jsr CHRGOT
+ 238 jsr la8a0:jmp la7ae
+ lgoto la8a0 jsr la96b:jsr la909:sec
+ 239 lda ZEINR:sbc INT:lda ZEINR+1:sbc INT+1:bcs la8bc
+ 240 tya :sec :adc BASZEI:ldx BASZEI+1:bcc la8c0
+ 241 inx :bcs la8c0:la8bc lda BASANF:ldx BASANF+1:la8c0 jsr la617
+ 242 bcc la8e3:lda akku4+3:sbc #$01:sta BASZEI:lda akku4+4
+ 243 sbc #$00:sta BASZEI+1:la8d1 rts
+ lreturn bne la8d1:lda #$ff
+ 244 sta FORVAR+1:jsr la38a:txs :cmp #$8d:beq la8eb
+ 245 ldx #$0c:.byt $2c :la8e3 ldx #$11:jmp la437:la8e8 jmp syntax
+ 246 la8eb pla :pla :sta ZEINR:pla :sta ZEINR+1
+ 247 pla :sta BASZEI:pla :sta BASZEI+1
+ ldata la8f8 jsr la906
+ 248 la8fb tya :clc :adc BASZEI:sta BASZEI:bcc la905
+ 249 inc BASZEI+1:la905 rts :la906 ldx #$3a:.byt $2c :la909 ldx #$00
+ 250 stx SUCHCHAR:ldy #$00:sty HKFL:la911 lda HKFL:ldx SUCHCHAR
+ 251 sta SUCHCHAR:stx HKFL:la919 lda (BASZEI),y:beq la905:cmp HKFL
+ 252 beq la905:iny :cmp #$22:bne la919:beq la911
+ lif jsr lad9e:jsr CHRGOT:cmp #$89:beq la937:lda #$a7
+ 254 jsr laeff:la937 lda FAC:bne la940
+ lrem jsr la909:beq la8fb
+ 255 la940 jsr CHRGOT:bcs la948:jmp la8a0:la948 jmp la7ed
+ lon jsr getbyt
+ 256 pha :cmp #$8d:beq la957:la953 cmp #$89:bne la8e8
+ 257 la957 dec FAC+4:bne la95f:pla :jmp la7ef:la95f jsr CHRGET
+ 258 jsr la96b:cmp #$2c:beq la957:pla :la96a rts
+ 259 la96b ldx #$00:stx INT:stx INT+1:la971 bcs la96a:sbc #$2f
+ 260 sta SUCHCHAR:lda INT+1:sta l0022:cmp #$19:bcs la953
+ 261 lda INT:asl :rol l0022:asl :rol l0022
+ 262 adc INT:sta INT:lda l0022:adc INT+1:sta INT+1
+ 263 asl INT:rol INT+1:lda INT:adc SUCHCHAR:sta INT
+ 264 bcc la99f:inc INT+1:la99f jsr CHRGET:jmp la971
+ llet la9a5 jsr lb08b:sta FORVAR:sty FORVAR+1:lda #$b2
+ 266 jsr laeff:lda INTFL:pha :lda STRINGFL:pha
+ 267 jsr lad9e:pla :rol :jsr lad90:bne la9d9
+ 268 pla :la9c2 bpl la9d6:jsr lbc1b:jsr lb1bf:ldy #$00
+ 269 lda FAC+3:sta (FORVAR),y:iny :lda FAC+4:sta (FORVAR),y
+ 270 rts :la9d6 jmp lbbd0:la9d9 pla :la9da ldy FORVAR+1:cpy #$bf
+ 271 bne laa2c:jsr lb6a6:cmp #$06:bne laa24:ldy #$00
+ 272 sty FAC:sty FAC+5:la9ed sty l0071:jsr laa1d:jsr lbae2
+ 273 inc l0071:ldy l0071:jsr laa1d:jsr lbc0c:tax
+ 274 beq laa07:inx :txa :jsr lbaed:laa07 ldy l0071
+ 275 iny :cpy #$06:bne la9ed:jsr lbae2:jsr lbc9b
+ 276 ldx FAC+3:ldy FAC+2:lda FAC+4:jmp lffdb:laa1d lda (l0022),y
+ 277 jsr l0080:bcc laa27:laa24 jmp illquant:laa27 sbc #$2f:jmp lbd7e
+ 278 laa2c ldy #$02:lda (FAC+3),y:cmp STRANF+1:bcc laa4b:bne laa3d
+ 279 dey :lda (FAC+3),y:cmp STRANF:bcc laa4b:laa3d ldy FAC+4
+ 280 cpy VARANF+1:bcc laa4b:bne laa52:lda FAC+3:cmp VARANF
+ 281 bcs laa52:laa4b lda FAC+3:ldy FAC+4:jmp laa68:laa52 ldy #$00
+ 282 lda (FAC+3),y:jsr lb475:lda l0050:ldy l0051:sta ARG+6
+ 283 sty ARG+7:jsr lb67a:lda #FAC:laa68 sta l0050
+ 284 sty l0051:jsr lb6db:ldy #$00:lda (l0050),y:sta (FORVAR),y
+ 285 iny :lda (l0050),y:sta (FORVAR),y:iny :lda (l0050),y
+ 286 sta (FORVAR),y:rts
+ lprintf jsr laa86:jmp labb5
+ lcmd laa86 jsr getbyt
+ 287 beq laa90:lda #$2c:jsr laeff:laa90 php :stx ACTIO
+ 288 jsr le118:plp :jmp laaa0:laa9a jsr lab21:laa9d jsr CHRGOT
+ lprint laaa0 beq laad7:laaa2 beq laae7:cmp #$a3:beq laaf8:cmp #$a6
+ 290 clc :beq laaf8:cmp #$2c:beq laae8:cmp #$3b
+ 291 beq lab13:jsr lad9e:bit STRINGFL:bmi laa9a:jsr lbddd
+ 292 jsr lb487:jsr lab21:jsr lab3b:bne laa9d:laaca lda #$00
+ 293 sta l0200,x:ldx #l0200-1:lda ACTIO:bne laae7
+ 294 laad7 lda #$0d:jsr basout:;bit ACTIO:;bpl laae5:lda #$0a
+ 295 jsr basout:laae5 eor #$ff:laae7 rts :laae8 sec :jsr lfff0
+ 296 tya :sec :laaee sbc #$0a:bcs laaee:eor #$ff
+ 297 adc #$01:bne lab0e:laaf8 php :sec :jsr lfff0
+ 298 sty TABSPAL:jsr lb79b:cmp #$29:bne lab5f:plp
+ 299 bcc lab0f:txa :sbc TABSPAL:bcc lab13:lab0e tax
+ 300 lab0f inx :lab10 dex :bne lab19:lab13 jsr CHRGET:jmp laaa2
+ 301 lab19 jsr lab3b:bne lab10:strout jsr lb487:lab21 jsr lb6a6:tax
+ 302 ldy #$00:inx :lab28 dex :beq laae7:lda (l0022),y
+ 303 jsr basout:iny :cmp #$0d:bne lab28:jsr laae5
+ 304 jmp lab28:lab3b lda ACTIO:beq lab42:lda #$20:.byt $2c
+ 305 lab42 lda #$1d:.byt $2c :lab45 lda #$3f:basout jsr le10c:and #$ff
+ 306 rts :lab4d lda INPUTFL:beq lab62:bmi lab57:ldy #$ff
+ 307 bne lab5b:lab57 lda DZEINR:ldy DZEINR+1:lab5b sta ZEINR:sty ZEINR+1
+ 308 lab5f jmp syntax:lab62 lda ACTIO:beq lab6b:ldx #$18:jmp la437
+ 309 lab6b lda #lad0c:jsr strout:lda NEXTSTAT:ldy NEXTSTAT+1
+ 310 sta BASZEI:sty BASZEI+1:rts
+ lget jsr lb3a6:cmp #$23
+ 311 bne lab92:jsr CHRGET:jsr getbyt:lda #$2c:jsr laeff
+ 312 stx ACTIO:jsr le11e:lab92 ldx #l0200+1:lda #$00
+ 313 sta l0200+1:lda #$40:jsr lac0f:ldx ACTIO:bne labb7
+ 314 rts
+ linputf jsr getbyt:lda #$2c:jsr laeff:stx ACTIO
+ 315 jsr le11e:jsr labce:labb5 lda ACTIO:labb7 jsr lffcc:ldx #$00
+ 316 stx ACTIO:rts
+ linput cmp #$22:bne labce:jsr laebd
+ 317 lda #$3b:jsr laeff:jsr lab21:labce jsr lb3a6:lda #$2c
+ 318 sta l0200-1:labd6 jsr labf9:lda ACTIO:beq labea:jsr lffb7
+ 319 and #$02:beq labea:jsr labb5:jmp la8f8:labea lda l0200
+ 320 bne lac0d:lda ACTIO:bne labd6:jsr la906:jmp la8fb
+ 321 labf9 lda ACTIO:bne lac03:jsr lab45:jsr lab3b:lac03 jmp linein
+ lread ldx NEXTDATA:ldy NEXTDATA+1:lda #$98:.byt $2c :lac0d lda #$00
+ 323 lac0f sta INPUTFL:stx l0043:sty l0043+1:lac15 jsr lb08b:sta FORVAR
+ 324 sty FORVAR+1:lda BASZEI:ldy BASZEI+1:sta l004b:sty l004b+1
+ 325 ldx l0043:ldy l0043+1:stx BASZEI:sty BASZEI+1:jsr CHRGOT
+ 326 bne lac51:bit INPUTFL:bvc lac41:jsr le124:sta l0200
+ 327 ldx #l0200-1:bne lac4d:lac41 bmi lacb8:lda ACTIO
+ 328 bne lac4a:jsr lab45:lac4a jsr labf9:lac4d stx BASZEI:sty BASZEI+1
+ 329 lac51 jsr CHRGET:bit STRINGFL:bpl lac89:bit INPUTFL:bvc lac65
+ 330 inx :stx BASZEI:lda #$00:sta SUCHCHAR:beq lac71
+ 331 lac65 sta SUCHCHAR:cmp #$22:beq lac72:lda #$3a:sta SUCHCHAR
+ 332 lda #$2c:lac71 clc :lac72 sta HKFL:lda BASZEI:ldy BASZEI+1
+ 333 adc #$00:bcc lac7d:iny :lac7d jsr lb48d:jsr lb7e2
+ 334 jsr la9da:jmp lac91:lac89 jsr lbcf3:lda INTFL:jsr la9c2
+ 335 lac91 jsr CHRGOT:beq lac9d:cmp #$2c:beq lac9d:jmp lab4d
+ 336 lac9d lda BASZEI:ldy BASZEI+1:sta l0043:sty l0043+1:lda l004b
+ 337 ldy l004b+1:sta BASZEI:sty BASZEI+1:jsr CHRGOT:beq lacdf
+ 338 jsr prkomma:jmp lac15:lacb8 jsr la906:iny :tax
+ 339 bne lacd1:ldx #$0d:iny :lda (BASZEI),y:beq lad32
+ 340 iny :lda (BASZEI),y:sta DZEINR:iny :lda (BASZEI),y
+ 341 iny :sta DZEINR+1:lacd1 jsr la8fb:jsr CHRGOT:tax
+ 342 cpx #$83:bne lacb8:jmp lac51:lacdf lda l0043:ldy l0043+1
+ 343 ldx INPUTFL:bpl lacea:jmp la827:lacea ldy #$00:lda (l0043),y
+ 344 beq lacfb:lda ACTIO:bne lacfb:lda #lacfc
+ 345 jmp strout:lacfb rts
+ lacfc .asc "?EXTRA IGNORED",13,0
+ lad0c .asc "?REDO FROM START",13,0
+ lnext bne lad24:ldy #$00:beq lad27:lad24 jsr lb08b
+ 350 lad27 sta FORVAR:sty FORVAR+1:jsr la38a:beq lad35:ldx #$0a
+ 351 lad32 jmp la437:lad35 txs :txa :clc :adc #$04
+ 352 pha :adc #$06:sta l0024:pla :ldy #$01
+ 353 jsr lbba2:tsx :lda stack+9,x:sta FAC+5:lda FORVAR
+ 354 ldy FORVAR+1:jsr lb867:jsr lbbd0:ldy #$01:jsr lbc5d
+ 355 tsx :sec :sbc stack+9,x:beq lad78:lda stack+$f,x
+ 356 sta ZEINR:lda stack+$10,x:sta ZEINR+1:lda stack+$12,x:sta BASZEI
+ 357 lda stack+$11,x:sta BASZEI+1:lad75 jmp la7ae:lad78 txa :adc #$11
+ 358 tax :txs :jsr CHRGOT:cmp #$2c:bne lad75
+ 359 jsr CHRGET:jsr lad24
+ frmnum jsr lad9e:lad8d clc :.byt $24
+ 360 lad8f sec :lad90 bit STRINGFL:bmi lad97:bcs lad99:lad96 rts
+ 361 lad97 bcs lad96:lad99 ldx #$16:jmp la437
+ lad9e
+ ldx BASZEI:bne lada4
+ 362 dec BASZEI+1:lada4 dec BASZEI
+ ldx #$00:.byt $24 :lada9 pha
+ 363 txa :pha :lda #$01:jsr la3fb:jsr lae83
+ 364 lda #$00:sta l004d:ladb8 jsr CHRGOT:ladbb sec :sbc #$b1
+ 365 bcc ladd7:cmp #$03:bcs ladd7:cmp #$01:rol
+ 366 eor #$01:eor l004d:cmp l004d:bcc lae30:sta l004d
+ 367 jsr CHRGET:jmp ladbb
+ ladd7
+ ldx l004d:bne lae07:bcs lae58x
+ 368 adc #$07:bcc lae58x:adc STRINGFL:bne lade8:jmp lb63d
+ 369 lade8 adc #$ff:sta l0022:asl :adc l0022:tay
+ 370 ladf0 pla :cmp la080,y:bcs lae5d:jsr lad8d:ladf9 pha
+ 371 ladfa jsr lae20:pla :ldy l004b:bpl lae19:tax
+ 372 beq lae5b:bne lae66:lae07 lsr STRINGFL:txa :rol
+ 373 ldx BASZEI:bne lae11:dec BASZEI+1:lae11 dec BASZEI:ldy #$1b
+ 374 sta l004d:bne ladf0:lae19 cmp la080,y:bcs lae66:bcc ladf9
+ 375 lae20 lda la080+2,y:pha :lda la080+1,y:pha :
+
+ jsr lae33
+ lda l004d:jmp lada9
+ lae30 jmp syntax
+
+ lae58x jmp lae58
+
+ lae33 lda FAC+5:ldx la080,y
+
+ lae38 tay :pla :sta l0022:pla:sta l0022+1
+ inc l0022:bne laexx:inc l0022+1:laexx
+
+ 378 tya :pha :lae43 jsr lbc1b:lda FAC+4
+ 379 pha :lda FAC+3:pha :lda FAC+2:pha
+ 380 lda FAC+1:pha :lda FAC:pha :jmp (l0022)
+ 381 lae58 ldy #$ff:pla :lae5b beq lae80:lae5d cmp #$64:beq lae64
+ 382 jsr lad8d:lae64 sty l004b:lae66 pla :lsr :sta ATNSIGN
+ 383 pla :sta ARG:pla :sta ARG+1:pla
+ 384 sta ARG+2:pla :sta ARG+3:pla :sta ARG+4
+ 385 pla :sta ARG+5:eor FAC+5:sta ARG+6:lae80 lda FAC
+ 386 rts
+
+ laea8 .byt $82,$49,$0f,$da,$a1
+
+ lae83 jmp (l030a)
+ lae86 lda #$00:sta STRINGFL:lae8a jsr CHRGET
+ bcs lae92:lae8f jmp lbcf3
+ lae92 ;hier neue Functionen einbinden
+ jsr lb113:bcc lae9a
+ jmp laf28
+ lae9a cmp #"$":beq dezhex
+ cmp #"%":beq decbin
+ cmp #"&":beq decoktx
+ cmp #$ff:bne laead:lda #laea8:jsr lbba2
+ jmp CHRGET
+
+ 390 laead cmp #$2e:beq lae8f:cmp #$ab:beq laf0dx:cmp #$aa
+ 391 beq lae8a:cmp #$22:bne laeccx:laebd lda BASZEI:ldy BASZEI+1
+ 392 adc #$00:bcc laec6:iny :laec6 jsr lb487:jmp lb7e2
+
+ laf0dx jmp laf0d
+ laeccx jmp laecc
+ decoktx jmp decokt
+
+ decbin lda #0:sta FAC+1:sta FAC+2
+ ldy #1
+ deb1 lda (BASZEI),y:jsr decbit:bcs hexend
+ lsr:rol FAC+2:rol FAC+1:bcs overfl
+ iny:bpl deb1:bmi hexend
+
+ decbit sec:sbc #"0":cmp #2:rts
+
+ dezhex ldy #1:lda #0
+ sta FAC+2:sta FAC+1
+ hex1 lda (BASZEI),y
+ jsr deznib:bcs hexend
+ asl FAC+2:rol FAC+1:bcs overfl
+ asl FAC+2:rol FAC+1:bcs overfl
+ asl FAC+2:rol FAC+1:bcs overfl
+ asl FAC+2:rol FAC+1:bcs overfl
+ clc
+ adc FAC+2
+ sta FAC+2
+ iny
+ bpl hex1
+ hexend tya
+ clc
+ adc BASZEI
+ sta BASZEI
+ bcc dec2
+ inc BASZEI+1
+ dec2 ldx #$90:sec:jmp lbc49
+
+ deznib sec:sbc #"0":cmp #10:bcc dec1
+ cmp #"A"-"0":bcc nend
+ sec:sbc #7:dec1 cmp #16:bcc nenc
+ eor #%00100000:cmp #16:rts
+ nend sec:nenc rts
+
+ overfl jmp illquant
+
+ decokt ldy #1:lda #0
+ sta FAC+2:sta FAC+1
+ okt1 lda (BASZEI),y
+ jsr oktnib:bcs hexend
+ asl FAC+2:rol FAC+1:bcs overfl
+ asl FAC+2:rol FAC+1:bcs overfl
+ asl FAC+2:rol FAC+1:bcs overfl
+ clc
+ adc FAC+2
+ sta FAC+2
+ iny
+ bpl okt1
+ tya
+ clc
+ adc BASZEI
+ sta BASZEI
+ bcc okt2
+ inc BASZEI+1
+ okt2 ldx #$90:sec:jmp lbc49
+
+ oktnib sec:sbc #"0":cmp #8:rts
+
+ 393 laecc cmp #$a8:bne laee3:ldy #$18:bne laf0f
+ lnot jsr lb1bf
+ 394 lda FAC+4:eor #$ff:tay :lda FAC+3:eor #$ff
+ 395 jmp lb391:laee3 cmp #$a5:bne laeea:jmp lb3f4:laeea cmp #$b4
+ 396 bcc laef1:jmp lafa7:laef1 jsr laefa:jsr lad9e:laef7 lda #$29
+ 397 .byt $2c :laefa lda #$28:.byt $2c :prkomma lda #$2c:laeff ldy #$00
+ 398 cmp (BASZEI),y:bne syntax:jmp CHRGET:syntax ldx #$0b:jmp la437
+ 399 laf0d ldy #$15:laf0f pla :pla :jmp ladfa:laf14 sec
+ 400 lda FAC+3:sbc #romanf:bcc laf27
+ 401 lda #romend:sbc FAC+4:laf27 rts
+ 402 laf28 jsr lb08b:sta FAC+3:sty FAC+4:ldx VARNAME:ldy VARNAME+1
+ 403 lda STRINGFL:beq laf5d:lda #$00:sta ARG+7:jsr laf14
+ 404 bcc laf5c:cpx #$54:bne laf5c:cpy #$c9:bne laf5c
+ 405 jsr laf84:sty akku4+2:dey :sty l0071:ldy #$06
+ 406 sty akku4+1:ldy #$24:jsr lbe68:jmp lb46f:laf5c rts
+ 407 laf5d bit INTFL:bpl laf6e:ldy #$00:lda (FAC+3),y:tax
+ 408 iny :lda (FAC+3),y:tay :txa :jmp lb391
+ 409 laf6e jsr laf14:bcc lafa0:cpx #$54:bne laf92:cpy #$49
+ 410 bne lafa0:jsr laf84:tya :ldx #$a0:jmp lbc4f
+ 411 laf84 jsr lffde:stx FAC+3:sty FAC+2:sta FAC+4:ldy #$00
+ 412 sty FAC+1:rts :laf92 cpx #$53:bne lafa0:cpy #$54
+ 413 bne lafa0:jsr lffb7:jmp lbc3c:lafa0 lda FAC+3:ldy FAC+4
+ 414 jmp lbba2:lafa7 asl :pha :tax :jsr CHRGET
+ 415 cpx #$8f:bcc lafd1:jsr laefa:jsr lad9e:jsr prkomma
+ 416 jsr lad8f:pla :tax :lda FAC+4:pha
+ 417 lda FAC+3:pha :txa :pha :jsr getbyt
+ 418 pla :tay :txa :pha :jmp lafd6
+ 419 lafd1 jsr laef1:pla :tay :lafd6 lda la052-$68,y:sta l0055
+ 420 lda la052-$67,y:sta l0055+1:jsr l0054:jmp lad8d
+ lor ldy #$ff:.byt $2c
+ land ldy #0:sty DIM:jsr lb1bf:lda FAC+3:eor DIM
+ 422 sta SUCHCHAR:lda FAC+4:eor DIM:sta HKFL:jsr lbbfc
+ 423 jsr lb1bf:lda FAC+4:eor DIM:and HKFL:eor DIM
+ 424 tay :lda FAC+3:eor DIM:and SUCHCHAR:eor DIM
+ 425 jmp lb391
+ lcmp jsr lad90:bcs lb02e:lda ARG+5:ora #$7f
+ 426 and ARG+1:sta ARG+1:lda #ARG:jsr lbc5b
+ 427 tax :jmp lb061:lb02e lda #$00:sta STRINGFL:dec l004d
+ 428 jsr lb6a6:sta FAC:stx FAC+1:sty FAC+2:lda ARG+3
+ 429 ldy ARG+4:jsr lb6aa:stx ARG+3:sty ARG+4:tax
+ 430 sec :sbc FAC:beq lb056:lda #$01:bcc lb056
+ 431 ldx FAC:lda #$ff:lb056 sta FAC+5:ldy #$ff:inx
+ 432 lb05b iny :dex :bne lb066:ldx FAC+5:lb061 bmi lb072
+ 433 clc :bcc lb072:lb066 lda (ARG+3),y:cmp (FAC+1),y:beq lb05b
+ 434 ldx #$ff:bcs lb072:ldx #$01:lb072 inx :txa
+ 435 rol :and ATNSIGN:beq lb07b:lda #$ff:lb07b jmp lbc3c
+ 436 lb07e jsr prkomma
+ ldim tax :jsr lb090:jsr CHRGOT:bne lb07e
+ 437 rts :lb08b ldx #$00:jsr CHRGOT:lb090 stx DIMFL:lb092 sta VARNAME
+ 438 jsr CHRGOT:jsr lb113:bcs lb09f:lb09c jmp syntax:lb09f ldx #$00
+ 439 stx STRINGFL:stx INTFL:jsr CHRGET:bcc lb0af:jsr lb113
+ 440 bcc lb0ba:lb0af tax :lb0b0 jsr CHRGET:bcc lb0b0:jsr lb113
+ 441 bcs lb0b0:lb0ba cmp #$24:bne lb0c4:lda #$ff:sta STRINGFL
+ 442 bne lb0d4:lb0c4 cmp #$25:bne lb0db:lda FNFL:bne lb09c
+ 443 lda #$80:sta INTFL:ora VARNAME:sta VARNAME:lb0d4 txa
+ 444 ora #$80:tax :jsr CHRGET:lb0db stx VARNAME+1:sec
+ 445 ora FNFL:sbc #$28:bne lb0e7:jmp lb1d1:lb0e7 ldy #$00
+ 446 sty FNFL:lda VARANF:ldx VARANF+1:lb0ef stx akku4+4:lb0f1 sta akku4+3
+ 447 cpx ARRANF+1:bne lb0fb:cmp ARRANF:beq lb11d:lb0fb lda VARNAME
+ 448 cmp (akku4+3),y:bne lb109:lda VARNAME+1:iny :cmp (akku4+3),y
+ 449 beq lb185a:dey :lb109 clc :lda akku4+3:adc #$07
+ 450 bcc lb0f1:inx :bne lb0ef
+
+ lb113 cmp #"A":bcc lb11c:cmp #"Z"+1:bcc lb1cs
+ cmp #"a":bcc lb11c:cmp #"z"+1:bcc lb1cs:lb11c clc:rts
+ lb1cs sec: rts:lb185a beq lb185
+
+ lb11d pla
+ 452 pha :cmp #lbf13
+ 453 rts :lb128 lda VARNAME:ldy VARNAME+1:cmp #$54:bne lb13b
+ 454 cpy #$c9:beq lb123:cpy #$49:bne lb13b:lb138 jmp syntax
+ 455 lb13b cmp #$53:bne lb143:cpy #$54:beq lb138:lb143 lda ARRANF
+ 456 ldy ARRANF+1:sta akku4+3:sty akku4+4:lda ARREND:ldy ARREND+1
+ 457 sta akku3+3:sty akku3+4:clc :adc #$07:bcc lb159
+ 458 iny :lb159 sta akku3+1:sty akku3+2:jsr la3b8:lda akku3+1
+ 459 ldy akku3+2:iny :sta ARRANF:sty ARRANF+1:ldy #$00
+ 460 lda VARNAME:sta (akku4+3),y:iny :lda VARNAME+1:sta (akku4+3),y
+ 461 lda #$00:iny :sta (akku4+3),y:iny :sta (akku4+3),y
+ 462 iny :sta (akku4+3),y:iny :sta (akku4+3),y:iny
+ 463 sta (akku4+3),y:lb185 lda akku4+3:clc :adc #$02:ldy akku4+4
+ 464 bcc lb18f:iny :lb18f sta VARADR:sty VARADR+1:rts
+ 465 lb194 lda DIM:asl :adc #$05:adc akku4+3:ldy akku4+4
+ 466 bcc lb1a0:iny :lb1a0 sta akku3+1:sty akku3+2:rts
+ lb1a5 .byt $90,$80,$00,$00,$00
+ lb1aa jsr lb1bf
+ 468 lda FAC+3:ldy FAC+4:rts :lb1b2 jsr CHRGET:jsr lad9e
+ 469 lb1b8 jsr lad8d:lda FAC+5:bmi lb1cc:lb1bf lda FAC:cmp #$90
+ 470 bcc lb1ce:lda #lb1a5:jsr lbc5b:lb1cc bne illquant
+ 471 lb1ce jmp lbc9b:lb1d1 lda DIMFL:ora INTFL:pha :lda STRINGFL
+ 472 pha :ldy #$00:lb1db tya :pha :lda VARNAME+1
+ 473 pha :lda VARNAME:pha :jsr lb1b2:pla
+ 474 sta VARNAME:pla :sta VARNAME+1:pla :tay
+ 475 tsx :lda stack+2,x:pha :lda stack+1,x:pha
+ 476 lda FAC+3:sta stack+2,x:lda FAC+4:sta stack+1,x:iny
+ 477 jsr CHRGOT:cmp #$2c:beq lb1db:sty DIM:jsr laef7
+ 478 pla :sta STRINGFL:pla :sta INTFL:and #$7f
+ 479 sta DIMFL:ldx ARRANF:lda ARRANF+1:lb21c stx akku4+3:sta akku4+4
+ 480 cmp ARREND+1:bne lb228:cpx ARREND:beq lb261:lb228 ldy #$00
+ 481 lda (akku4+3),y:iny :cmp VARNAME:bne lb237:lda VARNAME+1
+ 482 cmp (akku4+3),y:beq lb24d:lb237 iny :lda (akku4+3),y:clc
+ 483 adc akku4+3:tax :iny :lda (akku4+3),y:adc akku4+4
+ 484 bcc lb21c:lb245 ldx #$12:.byt $2c :illquant ldx #$0e:lb24a jmp la437
+ 485 lb24d ldx #$13:lda DIMFL:bne lb24a:jsr lb194:lda DIM
+ 486 ldy #$04:cmp (akku4+3),y:bne lb245:jmp lb2ea:lb261 jsr lb194
+ 487 jsr la408:ldy #$00:sty l0071+1:ldx #$05:lda VARNAME
+ 488 sta (akku4+3),y:bpl lb274:dex :lb274 iny :lda VARNAME+1
+ 489 sta (akku4+3),y:bpl lb27d:dex :dex :lb27d stx l0071
+ 490 lda DIM:iny :iny :iny :sta (akku4+3),y
+ 491 lb286 ldx #$0b:lda #$00:bit DIMFL:bvc lb296:pla
+ 492 clc :adc #$01:tax :pla :adc #$00
+ 493 lb296 iny :sta (akku4+3),y:iny :txa :sta (akku4+3),y
+ 494 jsr lb34c:stx l0071:sta l0071+1:ldy l0022:dec DIM
+ 495 bne lb286:adc akku3+2:bcs lb30b:sta akku3+2:tay
+ 496 txa :adc akku3+1:bcc lb2b9:iny :beq lb30b
+ 497 lb2b9 jsr la408:sta ARREND:sty ARREND+1:lda #$00:inc l0071+1
+ 498 ldy l0071:beq lb2cd:lb2c8 dey :sta (akku3+1),y:bne lb2c8
+ 499 lb2cd dec akku3+2:dec l0071+1:bne lb2c8:inc akku3+2:sec
+ 500 lda ARREND:sbc akku4+3:ldy #$02:sta (akku4+3),y:lda ARREND+1
+ 501 iny :sbc akku4+4:sta (akku4+3),y:lda DIMFL:bne lb34b
+ 502 iny :lb2ea lda (akku4+3),y:sta DIM:lda #$00:sta l0071
+ 503 lb2f2 sta l0071+1:iny :pla :tax :sta FAC+3
+ 504 pla :sta FAC+4:cmp (akku4+3),y:bcc lb30e:bne lb308
+ 505 iny :txa :cmp (akku4+3),y:bcc lb30f:lb308 jmp lb245
+ 506 lb30b jmp la435:lb30e iny :lb30f lda l0071+1:ora l0071:clc
+ 507 beq lb320:jsr lb34c:txa :adc FAC+3:tax
+ 508 tya :ldy l0022:lb320 adc FAC+4:stx l0071:dec DIM
+ 509 bne lb2f2:sta l0071+1:ldx #$05:lda VARNAME:bpl lb331
+ 510 dex :lb331 lda VARNAME+1:bpl lb337:dex :dex
+ 511 lb337 stx REG+2:lda #$00:jsr lb355:txa :adc akku3+1
+ 512 sta VARADR:tya :adc akku3+2:sta VARADR+1:tay
+ 513 lda VARADR:lb34b rts :lb34c sty l0022:lda (akku4+3),y:sta REG+2
+ 514 dey :lda (akku4+3),y:lb355 sta REG+3:lda #$10:sta akku4+1
+ 515 ldx #$00:ldy #$00:lb35f txa :asl :tax
+ 516 tya :rol :tay :bcs lb30b:asl l0071
+ 517 rol l0071+1:bcc lb378:clc :txa :adc REG+2
+ 518 tax :tya :adc REG+3:tay :bcs lb30b
+ 519 lb378 dec akku4+1:bne lb35f:rts
+ lfre lda STRINGFL:beq lb384
+ 520 jsr lb6a6:lb384 jsr lb526:sec :lda STRANF:sbc ARREND
+ 521 tay :lda STRANF+1:sbc ARREND+1:lb391 ldx #$00:stx STRINGFL
+ lb395 sta FAC+1:sty FAC+2:ldx #$90:jmp lbc44
+ lpos sec
+ 523 jsr lfff0:lb3a2 lda #$00:beq lb391
+ lb3a6 ldx ZEINR+1:inx
+ 524 bne lb34b:ldx #$15:.byt $2c :lb3ae ldx #$1b:jmp la437
+ ldef jsr lb3e1:jsr lb3a6:jsr laefa:lda #$80:sta FNFL
+ 526 lb3c0 jsr lb08b:jsr lad8d:jsr laef7:lda #$b2:jsr laeff
+ 527 pha :lda VARADR+1:pha :lda VARADR:pha
+ 528 lda BASZEI+1:pha :lda BASZEI:pha :jsr la8f8
+ 529 jmp lb44f:lb3e1 lda #$a5:jsr laeff:ora #$80:sta FNFL
+ 530 jsr lb092:sta l004e:sty l004f:jmp lad8d
+ lb3f4 jsr lb3e1
+ 531 lda l004f:pha :lda l004e:pha :jsr laef1
+ 532 jsr lad8d:pla :sta l004e:pla :sta l004f
+ 533 ldy #$02:lda (l004e),y:sta VARADR:tax :iny
+ 534 lda (l004e),y:beq lb3ae:sta VARADR+1:iny :lb418 lda (VARADR),y
+ 535 pha :dey :bpl lb418:ldy VARADR+1:jsr lbbd4
+ 536 lda BASZEI+1:pha :lda BASZEI:pha :lda (l004e),y
+ 537 sta BASZEI:iny :lda (l004e),y:sta BASZEI+1:lda VARADR+1
+ 538 pha :lda VARADR:pha :jsr frmnum:pla
+ 539 sta l004e:pla :sta l004f:jsr CHRGOT:beq lb449
+ 540 jmp syntax:lb449 pla :sta BASZEI:pla :sta BASZEI+1
+ 541 lb44f ldy #$00:pla :sta (l004e),y:pla :iny
+ 542 sta (l004e),y:pla :iny :sta (l004e),y:pla
+ 543 iny :sta (l004e),y:pla :iny :sta (l004e),y
+ 544 rts
+ lstr jsr lad8d:ldy #$00:jsr lbddf:pla
+ 545 pla :lb46f lda #l0100-1
+#if (l0100-1)&$ff00
+ bne lb487
+#else
+ beq lb487
+#endif
+ lb475 ldx FAC+3
+ 546 ldy FAC+4:stx l0050:sty l0051:lb47d jsr lb4f4:stx FAC+1
+ 547 sty FAC+2:sta FAC:rts :lb487 ldx #$22:stx SUCHCHAR
+ 548 stx HKFL:lb48d sta ARG+6:sty ARG+7:sta FAC+1:sty FAC+2
+ 549 ldy #$ff:lb497 iny :lda (ARG+6),y:beq lb4a8:cmp SUCHCHAR
+ 550 beq lb4a4:cmp HKFL:bne lb497:lb4a4 cmp #$22:beq lb4a9
+ 551 lb4a8 clc :lb4a9 sty FAC:tya :adc ARG+6:sta l0071
+ 552 ldx ARG+7:bcc lb4b5:inx :lb4b5 stx l0071+1:lda ARG+7
+ 553 beq lb4bf:cmp #>l0200:bne lb4ca:lb4bf tya :jsr lb475
+ 554 ldx ARG+6:ldy ARG+7:jsr lb688:lb4ca ldx STRPTR:cpx #$22
+ 555 bne lb4d5:ldx #$19:lb4d2 jmp la437:lb4d5 lda FAC:sta $00,x
+ 556 lda FAC+1:sta $01,x:lda FAC+2:sta $02,x:ldy #$00
+ 557 stx FAC+3:sty FAC+4:sty ARG+7:dey :sty STRINGFL
+ 558 stx STRZEI:inx :inx :inx :stx STRPTR
+ 559 rts :lb4f4 lsr LISTHKFL:lb4f6 pha :eor #$ff:sec
+ 560 adc STRANF:ldy STRANF+1:bcs lb501:dey :lb501 cpy ARREND+1
+ 561 bcc lb516:bne lb50b:cmp ARREND:bcc lb516:lb50b sta STRANF
+ 562 sty STRANF+1:sta l0035:sty l0035+1:tax :pla
+ 563 rts :lb516 ldx #$10:lda LISTHKFL:bmi lb4d2:jsr lb526
+ 564 lda #$80:sta LISTHKFL:pla :bne lb4f6:lb526 ldx BASEND
+ 565 lda BASEND+1:lb52a stx STRANF:sta STRANF+1:ldy #$00:sty l004f
+ 566 sty l004e:lda ARREND:ldx ARREND+1:sta akku4+3:stx akku4+4
+ 567 lda #STRSTCK:sta l0022:stx l0023:lb544 cmp STRPTR
+ 568 beq lb54d:jsr lb5c7:beq lb544:lb54d lda #$07:sta l0053
+ 569 lda VARANF:ldx VARANF+1:sta l0022:stx l0023:lb559 cpx ARRANF+1
+ 570 bne lb561:cmp ARRANF:beq lb566:lb561 jsr lb5bd:beq lb559
+ 571 lb566 sta akku3+1:stx akku3+2:lda #$03:sta l0053:lb56e lda akku3+1
+ 572 ldx akku3+2:lb572 cpx ARREND+1:bne lb57d:cmp ARREND:bne lb57d
+ 573 jmp lb606:lb57d sta l0022:stx l0023:ldy #$00:lda (l0022),y
+ 574 tax :iny :lda (l0022),y:php :iny
+ 575 lda (l0022),y:adc akku3+1:sta akku3+1:iny :lda (l0022),y
+ 576 adc akku3+2:sta akku3+2:plp :bpl lb56e:txa
+ 577 bmi lb56e:iny :lda (l0022),y:ldy #$00:asl
+ 578 adc #$05:adc l0022:sta l0022:bcc lb5ae:inc l0023
+ 579 lb5ae ldx l0023:lb5b0 cpx akku3+2:bne lb5b8:cmp akku3+1:beq lb572
+ 580 lb5b8 jsr lb5c7:beq lb5b0:lb5bd lda (l0022),y:bmi lb5f6:iny
+ 581 lda (l0022),y:bpl lb5f6:iny :lb5c7 lda (l0022),y:beq lb5f6
+ 582 iny :lda (l0022),y:tax :iny :lda (l0022),y
+ 583 cmp STRANF+1:bcc lb5dc:bne lb5f6:cpx STRANF:bcs lb5f6
+ 584 lb5dc cmp akku4+4:bcc lb5f6:bne lb5e6:cpx akku4+3:bcc lb5f6
+ 585 lb5e6 stx akku4+3:sta akku4+4:lda l0022:ldx l0023:sta l004e
+ 586 stx l004f:lda l0053:sta l0055:lb5f6 lda l0053:clc
+ 587 adc l0022:sta l0022:bcc lb601:inc l0023:lb601 ldx l0023
+ 588 ldy #$00:rts :lb606 lda l004f:ora l004e:beq lb601
+ 589 lda l0055:and #$04:lsr :tay :sta l0055
+ 590 lda (l004e),y:adc akku4+3:sta akku3+3:lda akku4+4:adc #$00
+ 591 sta akku3+4:lda STRANF:ldx STRANF+1:sta akku3+1:stx akku3+2
+ 592 jsr la3bf:ldy l0055:iny :lda akku3+1:sta (l004e),y
+ 593 tax :inc akku3+2:lda akku3+2:iny :sta (l004e),y
+ 594 jmp lb52a:lb63d lda FAC+4:pha :lda FAC+3:pha
+ 595 jsr lae83:jsr lad8f:pla :sta ARG+6:pla
+ 596 sta ARG+7:ldy #$00:lda (ARG+6),y:clc :adc (FAC+3),y
+ 597 bcc lb65d:ldx #$17:jmp la437:lb65d jsr lb475:jsr lb67a
+ 598 lda l0050:ldy l0051:jsr lb6aa:jsr lb68c:lda ARG+6
+ 599 ldy ARG+7:jsr lb6aa:jsr lb4ca:jmp ladb8:lb67a ldy #$00
+ 600 lda (ARG+6),y:pha :iny :lda (ARG+6),y:tax
+ 601 iny :lda (ARG+6),y:tay :pla :lb688 stx l0022
+ 602 sty l0023:lb68c tay :beq lb699:pha :lb690 dey
+ 603 lda (l0022),y:sta (l0035),y:tya :bne lb690:pla
+ 604 lb699 clc :adc l0035:sta l0035:bcc lb6a2:inc l0035+1
+ 605 lb6a2 rts :lb6a3 jsr lad8f:lb6a6 lda FAC+3:ldy FAC+4:lb6aa sta l0022
+ 606 sty l0023:jsr lb6db:php :ldy #$00:lda (l0022),y
+ 607 pha :iny :lda (l0022),y:tax :iny
+ 608 lda (l0022),y:tay :pla :plp :bne lb6d6
+ 609 cpy STRANF+1:bne lb6d6:cpx STRANF:bne lb6d6:pha
+ 610 clc :adc STRANF:sta STRANF:bcc lb6d5:inc STRANF+1
+ 611 lb6d5 pla :lb6d6 stx l0022:sty l0023:rts :lb6db cpy STRZEI+1
+ 612 bne lb6eb:cmp STRZEI:bne lb6eb:sta STRPTR:sbc #$03
+ 613 sta STRZEI:ldy #$00:lb6eb rts
+ lchr jsr lb7a1:txa
+ 614 pha :lda #$01:jsr lb47d:pla :ldy #$00
+ 615 sta (FAC+1),y:pla :pla :jmp lb4ca
+ lleft jsr lb761
+ 616 cmp (l0050),y:tya :lb706 bcc lb70c:lda (l0050),y:tax
+ 617 tya :lb70c pha :lb70d txa :lb70e pha :jsr lb47d
+ 618 lda l0050:ldy l0051:jsr lb6aa:pla :tay
+ 619 pla :clc :adc l0022:sta l0022:bcc lb725
+ 620 inc l0023:lb725 tya :jsr lb68c:jmp lb4ca
+ lright jsr lb761
+ 621 clc :sbc (l0050),y:eor #$ff:jmp lb706
+ lmid lda #$ff
+ 622 sta FAC+4:jsr CHRGOT:cmp #$29:beq lb748:jsr prkomma
+ 623 jsr getbyt:lb748 jsr lb761:beq lb798:dex :txa
+ 624 pha :clc :ldx #$00:sbc (l0050),y:bcs lb70d
+ 625 eor #$ff:cmp FAC+4:bcc lb70e:lda FAC+4:bcs lb70e
+ 626 lb761 jsr laef7:pla :tay :pla :sta l0055
+ 627 pla :pla :pla :tax :pla
+ 628 sta l0050:pla :sta l0051:lda l0055:pha
+ 629 tya :pha :ldy #$00:txa :rts
+ llen jsr lb782:jmp lb3a2:lb782 jsr lb6a3:ldx #$00:stx STRINGFL
+ 631 tay :rts
+ lasc jsr lb782:beq lb798:ldy #$00
+ 632 lda (l0022),y:tay :jmp lb3a2:lb798 jmp illquant:lb79b jsr CHRGET
+ 633 getbyt jsr frmnum:lb7a1 jsr lb1b8:ldx FAC+3:bne lb798:ldx FAC+4
+ 634 jmp CHRGOT
+ lval jsr lb782:bne lb7b5:jmp lb8f7:lb7b5 ldx BASZEI
+ 635 ldy BASZEI+1:stx l0071:sty l0071+1:ldx l0022:stx BASZEI
+ 636 clc :adc l0022:sta l0024:ldx l0023:stx BASZEI+1
+ 637 bcc lb7cd:inx :lb7cd stx l0025:ldy #$00:lda (l0024),y
+ 638 pha :tya :sta (l0024),y:jsr CHRGOT:jsr lbcf3
+ 639 pla :ldy #$00:sta (l0024),y:lb7e2 ldx l0071:ldy l0071+1
+ 640 stx BASZEI:sty BASZEI+1:rts :lb7eb jsr frmnum:jsr getadr
+ 641 lb7f1 jsr prkomma:jmp getbyt:getadr lda FAC+5:bmi lb798:lda FAC
+ 642 cmp #$91:bcs lb798:jsr lbc9b:lda FAC+3:ldy FAC+4
+ 643 sty INT:sta INT+1:rts
+ lpeek lda INT+1:pha
+ 644 lda INT:pha :jsr getadr:ldy #$00:lda (INT),y
+ 645 tay :pla :sta INT:pla :sta INT+1
+ 646 jmp lb3a2
+ lpoke jsr lb7eb:txa :ldy #$00:sta (INT),y
+ 647 rts
+ lwait jsr lb7eb:stx FORVAR:ldx #$00:jsr CHRGOT
+ 648 beq lb83c:jsr lb7f1:lb83c stx FORVAR+1:ldy #$00:lb840 lda (INT),y
+ 649 eor FORVAR+1:and FORVAR:beq lb840:lb848 rts
+ lb849 lda #lbf11:jmp lb867:lb850 jsr lba8c
+ lsub lb853 lda FAC+5:eor #$ff:sta FAC+5:eor ARG+5:sta ARG+6
+ 652 lda FAC:jmp lb86a:lb862 jsr lb999:bcc lb8a3:lb867 jsr lba8c
+ ladd lb86a bne lb86f:jmp lbbfc:lb86f ldx ARG+7
+ 654 stx l0055+1:ldx #ARG:lda ARG:lb877 tay :beq lb848
+ 655 sec :sbc FAC:beq lb8a3:bcc lb893:sty FAC
+ 656 ldy ARG+5:sty FAC+5:eor #$ff:adc #$00:ldy #$00
+ 657 sty l0055+1:ldx #FAC:bne lb897:lb893 ldy #$00:sty ARG+7
+ 658 lb897 cmp #$f9:bmi lb862:tay :lda ARG+7:lsr $01,x
+ 659 jsr lb9b0:lb8a3 bit ARG+6:bpl lb8fe:ldy #FAC:cpx #ARG
+ 660 beq lb8af:ldy #ARG:lb8af sec :eor #$ff:adc l0055+1
+ 661 sta ARG+7:lda $04,y:sbc $04,x:sta FAC+4:lda $03,y
+ 662 sbc $03,x:sta FAC+3:lda $02,y:sbc $02,x:sta FAC+2
+ 663 lda $01,y:sbc $01,x:sta FAC+1:lb8d2 bcs lb8d7:jsr lb947
+ 664 lb8d7 ldy #$00:tya :clc :lb8db ldx FAC+1:bne lb929
+ 665 ldx FAC+2:stx FAC+1:ldx FAC+3:stx FAC+2:ldx FAC+4
+ 666 stx FAC+3:ldx ARG+7:stx FAC+4:sty ARG+7:adc #$08
+ 667 cmp #$20:bne lb8db:lb8f7 lda #$00:lb8f9 sta FAC:lb8fb sta FAC+5
+ 668 rts :lb8fe adc l0055+1:sta ARG+7:lda FAC+4:adc ARG+4
+ 669 sta FAC+4:lda FAC+3:adc ARG+3:sta FAC+3:lda FAC+2
+ 670 adc ARG+2:sta FAC+2:lda FAC+1:adc ARG+1:sta FAC+1
+ 671 jmp lb936:lb91d adc #$01:asl ARG+7:rol FAC+4:rol FAC+3
+ 672 rol FAC+2:rol FAC+1:lb929 bpl lb91d:sec :sbc FAC
+ 673 bcs lb8f7:eor #$ff:adc #$01:sta FAC:lb936 bcc lb946
+ 674 lb938 inc FAC:beq lb97e:ror FAC+1:ror FAC+2:ror FAC+3
+ 675 ror FAC+4:ror ARG+7:lb946 rts :lb947 lda FAC+5:eor #$ff
+ 676 sta FAC+5:lb94d lda FAC+1:eor #$ff:sta FAC+1:lda FAC+2
+ 677 eor #$ff:sta FAC+2:lda FAC+3:eor #$ff:sta FAC+3
+ 678 lda FAC+4:eor #$ff:sta FAC+4:lda ARG+7:eor #$ff
+ 679 sta ARG+7:inc ARG+7:bne lb97d:lb96f inc FAC+4:bne lb97d
+ 680 inc FAC+3:bne lb97d:inc FAC+2:bne lb97d:inc FAC+1
+ 681 lb97d rts :lb97e ldx #$0f:jmp la437:lb983 ldx #REG-1:lb985 ldy $03+1,x
+ 682 sty ARG+7:ldy $03,x:sty $03+1,x:ldy $02,x:sty $03,x
+ 683 ldy $01,x:sty $02,x:ldy FAC+7:sty $01,x:lb999 adc #$08
+ 684 bmi lb985:beq lb985:sbc #$08:tay :lda ARG+7
+ 685 bcs lb9ba:lb9a6 asl $01,x:bcc lb9ac:inc $01,x:lb9ac ror $01,x
+ 686 ror $01,x:lb9b0 ror $02,x:ror $03,x:ror $03+1,x:ror
+ 687 iny :bne lb9a6:lb9ba clc :rts
+ lb9bc .byt $81,$00,$00,$00,$00
+ lb9c1 .byt $03
+ .byt $7f,$5e,$56,$cb,$79
+ .byt $80,$13,$9b,$0b,$64
+ .byt $80,$76,$38,$93,$16
+ .byt $82,$38,$aa,$3b,$20
+ lb9d6 .byt $80,$35,$04,$f3,$34
+ lb9db .byt $81,$35,$04,$f3,$34
+ lb9e0 .byt $80,$80,$00,$00,$00
+ lb9e5 .byt $80,$31,$72,$17,$f8
+ llog lb9ea jsr lbc2b
+ 695 beq lb9f1:bpl lb9f4:lb9f1 jmp illquant:lb9f4 lda FAC:sbc #$7f
+ 696 pha :lda #$80:sta FAC:lda #lb9d6
+ 697 jsr lb867:lda #lb9db:jsr lbb0f:lda #lb9bc:jsr lb850:lda #lb9c1:jsr le043
+ 699 lda #lb9e0:jsr lb867:pla :jsr lbd7e
+ 700 lda #lb9e5:lba28 jsr lba8c
+ lmul bne lba30:jmp lba8b
+ 701 lba30 jsr lbab7:lda #$00:sta REG:sta REG+1:sta REG+2
+ 702 sta REG+3:lda ARG+7:jsr lba59:lda FAC+4:jsr lba59
+ 703 lda FAC+3:jsr lba59:lda FAC+2:jsr lba59:lda FAC+1
+ 704 jsr lba5e:jmp lbb8f:lba59 bne lba5e:jmp lb983:lba5e lsr
+ 705 ora #$80:lba61 tay :bcc lba7d:clc :lda REG+3
+ 706 adc ARG+4:sta REG+3:lda REG+2:adc ARG+3:sta REG+2
+ 707 lda REG+1:adc ARG+2:sta REG+1:lda REG:adc ARG+1
+ 708 sta REG:lba7d ror REG:ror REG+1:ror REG+2:ror REG+3
+ 709 ror ARG+7:tya :lsr :bne lba61:lba8b rts
+ 710 lba8c sta l0022:sty l0023:ldy #$04:lda (l0022),y:sta ARG+4
+ 711 dey :lda (l0022),y:sta ARG+3:dey :lda (l0022),y
+ 712 sta ARG+2:dey :lda (l0022),y:sta ARG+5:eor FAC+5
+ 713 sta ARG+6:lda ARG+5:ora #$80:sta ARG+1:dey
+ 714 lda (l0022),y:sta ARG:lda FAC:rts :lbab7 lda ARG
+ 715 lbab9 beq lbada:clc :adc FAC:bcc lbac4:bmi lbadf
+ 716 clc :.byt $2c :lbac4 bpl lbada:adc #$80:sta FAC
+ 717 bne lbacf:jmp lb8fb:lbacf lda ARG+6:sta FAC+5:rts
+ 718 lbad4 lda FAC+5:eor #$ff:bmi lbadf:lbada pla :pla
+ 719 jmp lb8f7:lbadf jmp lb97e:lbae2 jsr lbc0c:tax :beq lbaf8
+ 720 clc :adc #$02:bcs lbadf:lbaed ldx #$00:stx ARG+6
+ 721 jsr lb877:inc FAC:beq lbadf:lbaf8 rts
+ lbaf9 .byt $84,$20,$00,$00,$00
+ lbafe jsr lbc0c:lda #lbaf9:ldx #$00:lbb07 stx ARG+6:jsr lbba2:jmp lbb12
+ 724 lbb0f jsr lba8c
+ ldiv lbb12 beq lbb8a:jsr lbc1b:lda #$00:sec
+ 725 sbc FAC:sta FAC:jsr lbab7:inc FAC:beq lbadf
+ 726 ldx #$fc:lda #$01:lbb29 ldy ARG+1:cpy FAC+1:bne lbb3f
+ 727 ldy ARG+2:cpy FAC+2:bne lbb3f:ldy ARG+3:cpy FAC+3
+ 728 bne lbb3f:ldy ARG+4:cpy FAC+4:lbb3f php :rol
+ 729 bcc lbb4c:inx :sta REG+3,x:beq lbb7a:bpl lbb7e
+ 730 lda #$01:lbb4c plp :bcs lbb5d:lbb4f asl ARG+4:rol ARG+3
+ 731 rol ARG+2:rol ARG+1:bcs lbb3f:bmi lbb29:bpl lbb3f
+ 732 lbb5d tay :lda ARG+4:sbc FAC+4:sta ARG+4:lda ARG+3
+ 733 sbc FAC+3:sta ARG+3:lda ARG+2:sbc FAC+2:sta ARG+2
+ 734 lda ARG+1:sbc FAC+1:sta ARG+1:tya :jmp lbb4f
+ 735 lbb7a lda #$40:bne lbb4c:lbb7e asl :asl :asl
+ 736 asl :asl :asl :sta ARG+7:plp
+ 737 jmp lbb8f:lbb8a ldx #$14:jmp la437:lbb8f lda REG:sta FAC+1
+ 738 lda REG+1:sta FAC+2:lda REG+2:sta FAC+3:lda REG+3
+ 739 sta FAC+4:jmp lb8d7:lbba2 sta l0022:sty l0023:ldy #$04
+ 740 lda (l0022),y:sta FAC+4:dey :lda (l0022),y:sta FAC+3
+ 741 dey :lda (l0022),y:sta FAC+2:dey :lda (l0022),y
+ 742 sta FAC+5:ora #$80:sta FAC+1:dey :lda (l0022),y
+ 743 sta FAC:sty ARG+7:rts :lbbc7 ldx #akku4:.byt $2c
+ 744 lbbca ldx #akku3:ldy #$00:beq lbbd4:lbbd0 ldx FORVAR:ldy FORVAR+1
+ 745 lbbd4 jsr lbc1b:stx l0022:sty l0023:ldy #$04:lda FAC+4
+ 746 sta (l0022),y:dey :lda FAC+3:sta (l0022),y:dey
+ 747 lda FAC+2:sta (l0022),y:dey :lda FAC+5:ora #$7f
+ 748 and FAC+1:sta (l0022),y:dey :lda FAC:sta (l0022),y
+ 749 sty ARG+7:rts :lbbfc lda ARG+5:lbbfe sta FAC+5:ldx #$05
+ 750 lbc02 lda FAC+7,x:sta akku4+4,x:dex :bne lbc02:stx ARG+7
+ 751 rts :lbc0c jsr lbc1b:lbc0f ldx #$06:lbc11 lda akku4+4,x:sta FAC+7,x
+ 752 dex :bne lbc11:stx ARG+7:lbc1a rts :lbc1b lda FAC
+ 753 beq lbc1a:asl ARG+7:bcc lbc1a:lbc23 jsr lb96f:bne lbc1a
+ 754 jmp lb938:lbc2b lda FAC:beq lbc38:lbc2f lda FAC+5:lbc31 rol
+ 755 lda #$ff:bcs lbc38:lda #$01:lbc38 rts
+ lsgn jsr lbc2b
+ 756 lbc3c sta FAC+1:lda #$00:sta FAC+2:ldx #$88:lbc44 lda FAC+1
+ 757 eor #$ff:rol :lbc49 lda #$00:sta FAC+4:sta FAC+3
+ 758 lbc4f stx FAC:sta ARG+7:sta FAC+5:jmp lb8d2:
+ labs lsr FAC+5
+ 759 rts: lbc5b sta l0024:lbc5d sty l0025:ldy #$00:lda (l0024),y
+ 760 iny :tax :beq lbc2b:lda (l0024),y:eor FAC+5
+ 761 bmi lbc2f:cpx FAC:bne lbc92:lda (l0024),y:ora #$80
+ 762 cmp FAC+1:bne lbc92:iny :lda (l0024),y:cmp FAC+2
+ 763 bne lbc92:iny :lda (l0024),y:cmp FAC+3:bne lbc92
+ 764 iny :lda #$7f:cmp ARG+7:lda (l0024),y:sbc FAC+4
+ 765 beq lbcba:lbc92 lda FAC+5:bcc lbc98:eor #$ff:lbc98 jmp lbc31
+ 766 lbc9b lda FAC:beq lbce9:sec :sbc #$a0:bit FAC+5
+ 767 bpl lbcaf:tax :lda #$ff:sta FAC+7:jsr lb94d
+ 768 txa :lbcaf ldx #FAC:cmp #$f9:bpl lbcbb:jsr lb999
+ 769 sty FAC+7:lbcba rts :lbcbb tay :lda FAC+5:and #$80
+ 770 lsr FAC+1:ora FAC+1:sta FAC+1:jsr lb9b0
+ 771 sty FAC+7:rts
+ lint lbccc lda FAC:cmp #$a0:bcs lbcf2
+ 772 jsr lbc9b:sty ARG+7:lda FAC+5:sty FAC+5:eor #$80
+ 773 rol :lda #$a0:sta FAC:lda FAC+4:sta SUCHCHAR
+ 774 jmp lb8d2:lbce9 sta FAC+1:sta FAC+2:sta FAC+3:sta FAC+4
+ 775 tay :lbcf2 rts
+ lbcf3 ldy #$00:ldx #$0a:lbcf7 sty akku4+1,x
+ 776 dex :bpl lbcf7:bcc lbd0d:cmp #$2d:bne lbd06
+ 777 stx FAC+6:beq lbd0a:lbd06 cmp #$2b:bne lbd0f:lbd0a jsr CHRGET
+ 778 lbd0d bcc lbd6a:lbd0f cmp #$2e:beq lbd41:cmp #$45:bne lbd47
+ 779 jsr CHRGET:bcc lbd33:cmp #$ab:beq lbd2e:cmp #$2d
+ 780 beq lbd2e:cmp #$aa:beq lbd30:cmp #$2b:beq lbd30
+ 781 bne lbd35:lbd2e ror akku4+4:lbd30 jsr CHRGET:lbd33 bcc lbd91:lbd35 bit akku4+4
+ 782 bpl lbd47:lda #$00:sec :sbc akku4+2:jmp lbd49
+ 783 lbd41 ror akku4+3:bit akku4+3:bvc lbd0a:lbd47 lda akku4+2:lbd49 sec
+ 784 sbc akku4+1:sta akku4+2:beq lbd62:bpl lbd5b:lbd52 jsr lbafe
+ 785 inc akku4+2:bne lbd52:beq lbd62:lbd5b jsr lbae2:dec akku4+2
+ 786 bne lbd5b:lbd62 lda FAC+6:bmi lbd67:rts :lbd67 jmp lbfb4
+ 787 lbd6a pha :bit akku4+3:bpl lbd71:inc akku4+1:lbd71 jsr lbae2
+ 788 pla :sec :sbc #$30:jsr lbd7e:jmp lbd0a
+ 789 lbd7e pha :jsr lbc0c:pla :jsr lbc3c:lda ARG+5
+ 790 eor FAC+5:sta ARG+6:ldx FAC:jmp lb86a:lbd91 lda akku4+2
+ 791 cmp #$0a:bcc lbda0:lda #$64:bit akku4+4:bmi lbdae
+ 792 jmp lb97e:lbda0 asl :asl :clc :adc akku4+2
+ 793 asl :clc :ldy #$00:adc (BASZEI),y:sec
+ 794 sbc #$30:lbdae sta akku4+2:jmp lbd30
+ lbdb3 .byt $9b,$3e,$bc,$1f,$fd
+ lbdb8 .byt $9e,$6e,$6b,$27,$fd
+ lbdbd .byt $9e,$6e,$6b,$28,$00
+ lbdc2 lda #la371:jsr lbdda
+ 797 lda ZEINR+1:ldx ZEINR:adrout sta FAC+1:stx FAC+2:ldx #$90
+ 798 sec :jsr lbc49:jsr lbddf:lbdda jmp strout:lbddd ldy #$01
+ 799 lbddf lda #$20:bit FAC+5:bpl lbde7:lda #$2d:lbde7 sta l0100-1,y
+ 800 sta FAC+5:sty l0071:iny :lda #$30:ldx FAC
+ 801 bne lbdf8:jmp lbf04:lbdf8 lda #$00:cpx #$80:beq lbe00
+ 802 bcs lbe09:lbe00 lda #lbdbd:jsr lba28:lda #$f7
+ 803 lbe09 sta akku4+1:lbe0b lda #lbdb8:jsr lbc5b:beq lbe32
+ 804 bpl lbe28:lbe16 lda #lbdb3:jsr lbc5b:beq lbe21
+ 805 bpl lbe2f:lbe21 jsr lbae2:dec akku4+1:bne lbe16:lbe28 jsr lbafe
+ 806 inc akku4+1:bne lbe0b:lbe2f jsr lb849:lbe32 jsr lbc9b:ldx #$01
+ 807 lda akku4+1:clc :adc #$0a:bmi lbe47:cmp #$0b
+ 808 bcs lbe48:adc #$ff:tax :lda #$02:lbe47 sec
+ 809 lbe48 sbc #$02:sta akku4+2:stx akku4+1:txa :beq lbe53
+ 810 bpl lbe66:lbe53 ldy l0071:lda #$2e:iny :sta l0100-1,y
+ 811 txa :beq lbe64:lda #$30:iny :sta l0100-1,y
+ 812 lbe64 sty l0071:lbe66 ldy #$00:lbe68 ldx #$80:lbe6a lda FAC+4:clc
+ 813 adc lbf16+3,y:sta FAC+4:lda FAC+3:adc lbf16+2,y:sta FAC+3
+ 814 lda FAC+2:adc lbf16+1,y:sta FAC+2:lda FAC+1:adc lbf16,y
+ 815 sta FAC+1:inx :bcs lbe8e:bpl lbe6a:bmi lbe90
+ 816 lbe8e bmi lbe6a:lbe90 txa :bcc lbe97:eor #$ff:adc #$0a
+ 817 lbe97 adc #$2f:iny :iny :iny :iny
+ 818 sty VARADR:ldy l0071:iny :tax :and #$7f
+ 819 sta l0100-1,y:dec akku4+1:bne lbeb2:lda #$2e:iny
+ 820 sta l0100-1,y:lbeb2 sty l0071:ldy VARADR:txa :eor #$ff
+ 821 and #$80:tax :cpy #$24:beq lbec4:cpy #$3c
+ 822 bne lbe6a:lbec4 ldy l0071:lbec6 lda l0100-1,y:dey :cmp #$30
+ 823 beq lbec6:cmp #$2e:beq lbed3:iny :lbed3 lda #$2b
+ 824 ldx akku4+2:beq lbf07:bpl lbee3:lda #$00:sec
+ 825 sbc akku4+2:tax :lda #$2d:lbee3 sta l0100+1,y:lda #$45
+ 826 sta l0100,y:txa :ldx #$2f:sec :lbeef inx
+ 827 sbc #$0a:bcs lbeef:adc #$3a:sta l0100+3,y:txa
+ 828 sta l0100+2,y:lda #$00:sta l0100+4,y:beq lbf0c:lbf04 sta l0100-1,y
+ 829 lbf07 lda #$00:sta l0100,y:lbf0c lda #l0100:rts
+ lbf11 .byt $80,$00
+ lbf13 .byt $00,$00,$00
+ lbf16 .byt $fa,$0a,$1f,$00
+ .byt $00,$98,$96,$80
+ .byt $ff,$f0,$bd,$c0
+ .byt $00,$01,$86,$a0
+ .byt $ff,$ff,$d8,$f0
+ .byt $00,$00,$03,$e8
+ .byt $ff,$ff,$ff,$9c
+ .byt $00,$00,$00,$0a
+ .byt $ff,$ff,$ff,$ff
+
+ .byt $ff,$df,$0a,$80
+ .byt $00,$03,$4b,$c0
+ .byt $ff,$ff,$73,$60
+ .byt $00,$00,$0e,$10
+ .byt $ff,$ff,$fd,$a8
+ .byt $00,$00,$00,$3c
+ .byt $ec
+
+#ifdef TESTC64
+ 840 tax :tax
+ 841 tax :tax :tax :tax :tax
+ 842 tax :tax :tax :tax :tax
+ 843 tax :tax :tax :tax :tax
+ 844 tax :tax :tax :tax :tax
+ 845 tax :tax :tax :tax :tax
+ 846 tax :tax :tax
+#endif
+
+ lsqr jsr lbc0c:lda #lbf11:jsr lbba2
+ lpot beq lbfed:lda ARG:bne lbf84
+ 848 jmp lb8f9:lbf84 ldx #$4e:ldy #$00:jsr lbbd4:lda ARG+5
+ 849 bpl lbf9e:jsr lbccc:lda #$4e:ldy #$00:jsr lbc5b
+ 850 bne lbf9e:tya :ldy SUCHCHAR:lbf9e jsr lbbfe:tya
+ 851 pha :jsr lb9ea:lda #$4e:ldy #$00:jsr lba28
+ 852 jsr lbfed:pla :lsr :bcc lbfbe
+ lneg lbfb4 lda FAC:beq lbfbe:lda FAC+5:eor #$ff:sta FAC+5
+ 854 lbfbe rts
+ lbfbf .byt $81,$38,$aa,$3b,$29
+ lbfc4 .byt $07
+ .byt $71,$34,$58,$3e,$56
+ .byt $74,$16,$7e,$b3,$1b
+ .byt $77,$2f,$ee,$e3,$85
+ .byt $7a,$1d,$84,$1c,$2a
+ .byt $7c,$63,$59,$58,$0a
+ .byt $7e,$75,$fd,$e7,$c6
+ .byt $80,$31,$72,$18,$10
+ .byt $81,$00,$00,$00,$00
+ lexp lbfed lda #lbfbf:jsr lba28:lda ARG+7:adc #$50
+ 861 bcc lbffd:jsr lbc23
+ lbffd
+#ifdef ORIGINAL
+ jmp le000
+ *=$e000
+ le000
+#endif
+ sta l0055+1:jsr lbc0f
+ 862 lda FAC:cmp #$88:bcc le00e:le00b jsr lbad4:le00e jsr lbccc
+ 863 lda SUCHCHAR:clc :adc #$81:beq le00b:sec
+ 864 sbc #$01:pha :ldx #$05:le01e lda ARG,x:ldy FAC,x
+ 865 sta FAC,x:sty ARG,x:dex :bpl le01e:lda l0055+1
+ 866 sta ARG+7:jsr lb853:jsr lbfb4:lda #lbfc4
+ 867 jsr le059:lda #$00:sta ARG+6:pla :jsr lbab9
+ 868 rts :le043 sta l0071:sty l0071+1:jsr lbbca:lda #akku3
+ 869 jsr lba28:jsr le05d:lda #akku3:jmp lba28
+ 870 le059 sta l0071:sty l0071+1:le05d jsr lbbc7:lda (l0071),y:sta FAC+6
+ 871 ldy l0071:iny :tya :bne le06c:inc l0071+1
+ 872 le06c sta l0071:ldy l0071+1:le070 jsr lba28:lda l0071:ldy l0071+1
+ 873 clc :adc #$05:bcc le07d:iny :le07d sta l0071
+ 874 sty l0071+1:jsr lb867:lda #akku4:dec FAC+6
+ 875 bne le070:rts
+ le08d .byt $98,$35,$44,$7a,$00
+ le092 .byt $68,$28,$b1,$46,$00
+ lrnd jsr lbc2b:bmi le0d3:bne le0be:jsr lfff3:stx l0022
+ 878 sty l0023:ldy #$04:lda (l0022),y:sta FAC+1:iny
+ 879 lda (l0022),y:sta FAC+3:ldy #$08:lda (l0022),y:sta FAC+2
+ 880 iny :lda (l0022),y:sta FAC+4:jmp le0e3:le0be lda #l008b:jsr lbba2:lda #le08d:jsr lba28
+ 882 lda #le092:jsr lb867:le0d3 ldx FAC+4:lda FAC+1
+ 883 sta FAC+4:stx FAC+1:ldx FAC+2:lda FAC+3:sta FAC+2
+ 884 stx FAC+3:le0e3 lda #$00:sta FAC+5:lda FAC:sta ARG+7
+ 885 lda #$80:sta FAC:jsr lb8d7:ldx #$8b:ldy #$00
+ 886 le0f6 jmp lbbd4:le0f9 cmp #$f0:bne le104:sty BASEND+1:stx BASEND
+ 887 jmp la663:le104 tax :bne le109:ldx #$1e:le109 jmp la437
+ 888 le10c jsr lffd2:bcs le0f9:rts :/* le112 jsr lffcf:bcs le0f9
+ 889 rts :*/ le118 jsr le4ad:bcs le0f9:rts :le11e jsr lffc6
+ 890 bcs le0f9:rts :le124 jsr lffe4:bcs le0f9:rts
+
+ .(
+ strlen =syszp
+ stradr =syszp+1
+ -syszp +=3
+
+&gets jsr GETINT
+ sty stradr
+ sta stradr+1
+ jsr CHRGOT
+ jsr prkomma
+ jsr getbyt
+ stx strlen
+ jsr CHRGOT
+ jsr prkomma
+ jsr lb08b
+ jsr lad8f ; test auf string
+ sta FORVAR
+ sty FORVAR+1
+ lda #strlen
+ sta FAC+3
+ sty FAC+4
+ jmp laa52
+ .)
+
+ puts jsr GETINT
+ jsr CHRGOT
+ jsr prkomma
+ jsr lad9e
+ jsr lb6a3
+ sta akku3
+ tay
+ beq putse
+ ldy #0
+ puts1 lda (l0022),y
+ sta (INT),y
+ iny
+ cpy akku3
+ bcc puts1
+ putse rts
+
+ glcp jsr CHRGOT:beq lgs
+ jsr prkomma; test komma:beq lgs:cmp #",":beq lgs
+ jsr getbyt:clc:rts
+ lgs sec:cln rts
+
+ call jsr frmnum:jsr getadr
+ jsr glcp:bcs cl1:stx SYSAC
+ cl1 jsr glcp:bcs cl2:stx SYSXR
+ cl2 jsr glcp:bcs cl3:stx SYSYR
+ cl3 jsr glcp:bcs cl4:stx SYSST
+ cl4 jsr lcsys
+ lda SYSAC:jsr slcp
+ lda SYSXR:jsr slcp
+ lda SYSYR:jsr slcp
+ lda SYSST
+
+ slcp sta FAC+2:lda #0:sta FAC+1
+ jsr CHRGOT:beq cln
+ jsr prkomma:beq cln:cmp #",":beq cln
+ jsr lb08b:sta FORVAR:sty FORVAR+1
+ lda STRINGFL:bpl typerr
+ ldx #$90:sec:jsr lbc49
+ lda INTFL:jmp la9c2
+ typerr jmp lad99
+
+ lsys jsr frmnum:jsr getadr
+ lcsys ldy #0
+ ls1 lda sysadr+1,y
+ beq lsend
+ cmp INT+1
+ bne lsnex
+ lda INT
+ cmp sysadr,y
+ beq lsok
+ lsnex iny
+ iny
+ iny
+ iny
+ bne ls1
+ lsok lda sysadr+2,y
+ sta INT
+ lda sysadr+3,y
+ sta INT+1
+ lsend
+ lda #>le147-1:pha :lda #l0200:beq le194
+ 900 lda #la364:jmp strout:le194 rts
+ le195 jsr lffb7
+ and #$bf:beq le1a1:ldx #$1d:le19e jmp la437
+ le1a1 lda BASZEI+1
+ cmp #>l0200:bne le1b5
+ stx VARANF:sty VARANF+1
+#ifdef SHOW
+ lda #"x"
+ jsr SEROUT
+#endif
+ jsr la660
+ jsr bindbas
+ jsr CHRGOT
+#ifdef SHOW
+ jsr HEXOUT
+ jsr CHRGOT
+#endif
+ jmp la7e7;jmp la52a
+ le1b5 jsr la68e:jsr bindbas
+ 904 jmp la677
+ lopen jsr le219:jsr lffc0:bcs le1d1:rts
+ lclose jsr le219:lda FORVAR:jsr lffc3:bcc le194:le1d1 jmp le0f9
+
+ 906 le1d4 lda #$00:jsr lffbd:ldx #$01:ldy #$00:jsr lffba
+ 907 jsr weitzei:jsr le257:jsr weitzei:jsr le200:ldy #$00
+ 908 stx FORVAR:jsr lffba:jsr weitzei:jsr le200:txa
+ 909 tay :ldx FORVAR:jmp lffba:le200 jsr le20e:jmp getbyt
+ 910 weitzei jsr CHRGOT:bne le20d:pla :pla :le20d rts
+ 911 le20e jsr prkomma:le211 jsr CHRGOT:bne le20d:jmp syntax:le219 lda #$00
+ 912 jsr lffbd:jsr le211:jsr getbyt:stx FORVAR:txa
+ 913 ldx #$01:ldy #$00:jsr lffba:jsr weitzei:jsr le200
+ 914 stx FORVAR+1:ldy #$00:lda FORVAR:cpx #$03:bcc le23f
+ 915 dey :le23f jsr lffba:jsr weitzei:jsr le200:txa
+ 916 tay :ldx FORVAR+1:lda FORVAR:jsr lffba:jsr weitzei
+ 917 jsr le20e:le257 jsr lad9e:jsr lb6a3:ldx l0022:ldy l0023
+ 918 jmp lffbd
+
+ lcos lda #le2e0:jsr lb867
+ lsin le26b jsr lbc0c
+ 919 lda #le2e5:ldx ARG+5:jsr lbb07:jsr lbc0c
+ 920 jsr lbccc:lda #$00:sta ARG+6:jsr lb853:lda #le2ea:jsr lb850:lda FAC+5:pha :bpl le29d
+ 922 jsr lb849:lda FAC+5:bmi le2a0:lda ATNSIGN:eor #$ff
+ 923 sta ATNSIGN:le29d jsr lbfb4:le2a0 lda #le2ea:jsr lb867
+ 924 pla :bpl le2ad:jsr lbfb4:le2ad lda #le2ef
+ 925 jmp le043
+ ltan jsr lbbca:lda #$00:sta ATNSIGN:jsr le26b
+ 926 ldx #$4e:ldy #$00:jsr le0f6:lda #akku3
+ 927 jsr lbba2:lda #$00:sta FAC+5:lda ATNSIGN:jsr le2dc
+ 928 lda #$4e:ldy #$00:jmp lbb0f:le2dc pha :jmp le29d
+ le2e0 .byt $81,$49,$0f,$da,$a2
+ le2e5 .byt $83,$49,$0f,$da,$a2
+ le2ea .byt $7f,$00,$00,$00,$00
+ le2ef .byt $05
+ .byt $84,$e6,$1a,$2d,$1b
+ .byt $86,$28,$07,$fb,$f8
+ .byt $87,$99,$68,$89,$01
+ .byt $87,$23,$35,$df,$e1
+ .byt $86,$a5,$5d,$e7,$28
+ .byt $83,$49,$0f,$da,$a2
+ latn lda FAC+5:pha:bpl le316:jsr lbfb4:le316 lda FAC
+ 936 pha :cmp #$81:bcc le324:lda #lb9bc
+ 937 jsr lbb0f:le324 lda #le33e:jsr le043:pla
+ 938 cmp #$81:bcc le337:lda #le2e0:jsr lb850
+ 939 le337 pla :bpl le33d:jmp lbfb4:le33d rts
+ le33e .byt $0b
+ .byt $76,$b3,$83,$bd,$d3
+ .byt $79,$1e,$f4,$a6,$f5
+ .byt $7b,$83,$fc,$b0,$10
+ .byt $7c,$0c,$1f,$67,$ca
+ .byt $7c,$de,$53,$cb,$c1
+ .byt $7d,$14,$64,$70,$4c
+ .byt $7d,$b7,$ea,$51,$7a
+ .byt $7d,$63,$30,$88,$7e
+ .byt $7e,$92,$44,$99,$3a
+ .byt $7e,$4c,$cc,$91,$c7
+ .byt $7f,$aa,$aa,$aa,$13
+ .byt $81,$00,$00,$00,$00
+
+ le37b jsr lffcc
+ lda #$00:sta ACTIO:jsr la67a:cli :le386 ldx #$80
+ jmp (l0300)
+ le38b txa :bmi le391:jmp la43a:le391 jmp ready
+ le394 jsr le453:jsr le3bf:jsr le422:ldx #$fb:txs
+
+ ldy #<-1
+ lexe1 iny
+ lda PCBUF,y
+ beq le386
+ cmp #" "
+ bne lexe1
+ ldx #<-1
+ lexe2 iny
+ inx
+ lda PCBUF,y
+ sta l0200,x
+ bne lexe2
+ lda #l0200-1
+ sta BASZEI+1
+ jmp exestart
+
+ ;bne le386
+
+ le3a2 inc BASZEI:bne le3a8:inc BASZEI+1:le3a8 lda $ea60
+ 952 cmp #$3a:bcs le3b9:cmp #$20
+ 953 beq le3a2:sec :sbc #$30:sec :sbc #$d0
+ 954 le3b9 rts :.byt $80 :.byt $4f :.byt $c7 :.byt $52
+ 955 cli :le3bf lda #$4c:sta l0054:sta lusr:lda #illquant:sta lusr+1:sty lusr+2:lda #lb391
+ 957 sta l0005:sty l0005+1:lda #lb1aa:sta l0003
+ 958 sty l0003+1:ldx #$1c:le3e2 lda le3a2,x:sta CHRGET,x:dex
+ 959 bpl le3e2:lda #$03:sta l0053:lda #$00:sta FAC+7
+ 960 sta ACTIO:sta STRZEI+1:ldx #$01:stx l0200-3:stx l0200-4
+ 961 ldx #$19:stx STRPTR:sec :jsr lff9c:stx BASANF
+ 962 sty BASANF+1:sec :jsr lff99:stx BASEND:sty BASEND+1
+ 963 stx STRANF:sty STRANF+1:ldy #$00:tya :sta (BASANF),y
+ 964 inc BASANF:bne le421:inc BASANF+1:le421 rts :le422 lda BASANF
+ 965 ldy BASANF+1:jsr la408:lda #le473:jsr strout
+ 966 lda BASEND:sec :sbc BASANF:tax :lda BASEND+1
+ 967 sbc BASANF+1:jsr adrout:lda #le460:jsr strout
+ 968 jmp la644
+ le447 .word le38b,la483,la57c,la71a,la7e4,lae86
+ le453 ldx #$0b
+ le455 lda le447,x:sta l0300,x:dex :bpl le455:rts
+ .byt 0
+ le460 .byt " BASIC BYTES FREE",13,10,0
+ le473 .byt TC_FF,13," **** COMMODORE 64 BASIC V2 ****",13,10,10
+ .byt " 64K RAM SYSTEM ",0
+ .byt $5c
+ le4ad pha:jsr lffc9:tax:pla:bcc le4b6:txa:le4b6 rts
+
+romend =*
+
+#ifdef SHOW
+ .(
+dxr =syszp
+-syszp +=1
+
+&SERIN stx dxr
+ ldx #STDIN
+ bne s0
+&xIN stx dxr
+s0 s1 jsr GETC
+ bcc s1a
+ cmp #E_EOF
+ beq s1b
+ jsr YIELD
+ jmp s1
+s1b sec
+s1a ldx dxr
+ rts
+
++SEROUT stx dxr
+ ldx #STDOUT
+o0 s2 pha
+ jsr PUTC
+ pla
+ bcc s2a
+ jsr YIELD
+ jmp s2
+s2a ldx dxr
+ cmp #0
+ rts
+ .)
+
++xHEXOUT .(
+ pha
+ lsr
+ lsr
+ lsr
+ lsr
+ jsr NIBOUT
+ pla
+ and #$0f
+NIBOUT clc
+ adc #"0"
+ cmp #"9"+1
+ bcc nout
+ adc #6
+nout jmp SEROUT
+ .)
+
++SPOUT lda #32
+ jmp SEROUT
++CRLFOUT lda #13
+ jsr SEROUT
+ lda #10
+ jmp SEROUT
+
+ .)
+#endif
+
+x1 =(la9a5^laf28)&$00ff
+x2 =(lac15^laf28)&$00ff
+x3 =(lad24^laf28)&$00ff
+x4 =(lb3c0^laf28)&$00ff
+
+#if x1*x2*x3*x4
+#else
+#echo Adresskonflikt !
+/*
+#print x1
+#print x2
+#print x3
+#print x4*/
+stx,x
+#endif
+
+#print syszp
+-syszp =oldsyszp /* watch out - may not work on every ROM */
+#echo returned to
+#print syszp
+
+endofbasic =*
+.)
+
diff --git a/dump/oa-2.0.9/sysapps/fs/Makefile b/dump/oa-2.0.9/sysapps/fs/Makefile
new file mode 100644
index 0000000..3ed6a26
--- /dev/null
+++ b/dump/oa-2.0.9/sysapps/fs/Makefile
@@ -0,0 +1,22 @@
+
+
+XA=xa
+
+all: fsibm.o65 # fsiec.o65 fsdev.o65
+
+fsibm.o65: fsibm.a65 $(wildcard fsibm/*.a65)
+ ${XA} -R -I../.. -I../../include -LOSA2KERNEL \
+ -DFSIBM_DEVICE_DRV="sysapps/fs/fsibm/drv_ramd1.a65" \
+ $< -o $@
+
+fsiec.o65: fsiec.a65
+ ${XA} -R -I../.. -I../../include -LOSA2KERNEL $< -o $@
+
+fsdev.o65: fsdev.a65
+ ${XA} -R -I../.. -I../../include -LOSA2KERNEL $< -o $@
+
+clean:
+ rm -f *.o65
+ make -C fsibm clean
+
+
diff --git a/dump/oa-2.0.9/sysapps/fs/fsdev.a65 b/dump/oa-2.0.9/sysapps/fs/fsdev.a65
new file mode 100644
index 0000000..7ae11f6
--- /dev/null
+++ b/dump/oa-2.0.9/sysapps/fs/fsdev.a65
@@ -0,0 +1,640 @@
+/****************************************************************************
+
+ OS/A65 Version 2.0.0
+ Multitasking Operating System for 6502 Computers
+
+ Copyright (C) 1989-1998 Andre Fachat
+
+ This program is free software; you can redistribute it and/or modify
+ it under the terms of the GNU General Public License as published by
+ the Free Software Foundation; either version 2 of the License, or
+ (at your option) any later version.
+
+ This program is distributed in the hope that it will be useful,
+ but WITHOUT ANY WARRANTY; without even the implied warranty of
+ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+ GNU General Public License for more details.
+
+ You should have received a copy of the GNU General Public License
+ along with this program; if not, write to the Free Software
+ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
+
+****************************************************************************/
+
+
+ .(
+#ifdef ROM
+start .word ende ; pointer to end of file in ROM
+#ifdef FSDEV_AS_INIT
+ .byt PK_INIT+$80 ; file type = filesystem + auto-execute bit
+#else
+ .byt PK_FS+$80 ; file type = filesystem + auto-execute bit
+#endif
+ .word PRG ; execution start
+ .byt 16 ; RAM size in 256-byte blocks
+ .byt >$ff-ROMSTART; $ff-start ; shared mem size in 256-byte blocks
+ .byt 0 ; priority
+ .word 0 ; stdin, stdout/stderr device number
+ .asc "fsdev",0,0 ; command line
+#else
+
+#include "kdefs.i65"
+#include "kernel.i65"
+#include "fdefs.i65"
+
+ .word $800
+ *=$800
+ jmp PRG
+
+#endif
+
+#include "fsdef.i65"
+
+#ifndef MAXFILE
+#ifndef NOMMU
+#define MAXFILE 8
+#else
+#define MAXFILE 4 /* must be more than ANZDRV (number of
+ drives), because for each drive a buffer
+ is reserved */
+#endif /* NOMMU */
+#endif /* MAXFILE */
+
+#define BUFSIZE 128
+
+#ifdef FSDEV_NOROM
+#define ANZDRV 1
+#else
+#define ANZDRV 2
+#endif
+
+ .zero
+fzei .word 0
+bzei .word 0
+rzei .word 0
+
+ .data
+owntask .byt 0
+anz .byt 0
+cnt .byt 0
+cmd .byt 0
+client .byt 0
+actfil .byt 0
+dev .byt 0
+ftab .dsb F_SLEN*MAXFILE
+
+ .bss
+buf .dsb MAXFILE*BUFSIZE
+
+ .text
+
+PRG .(
+ stx owntask
+
+ ldx #<-1
+ jsr setzei ; init setzei (actfil)
+ ldx #0
+ stx anz
+p1 jsr setzei
+ lda #F_FL_FRE
+ ldy #F_FL
+ sta (fzei),y
+ inx
+ cpx #MAXFILE
+ bcc p1
+
+ ; we now inherit PCBUF from the FORK call (if PK_FS)
+ ; clc
+ ; ldx #SEM_SENDBUF
+ ; jsr PSEM
+
+ lda #ANZDRV ; 2 Drives
+ sta PCBUF+FM_REG_DRVS
+ lda owntask
+ sta PCBUF+FM_REG_ENV
+ lda #FM_REG
+ ldx #SEND_FM
+ ldy #2
+ jsr SEND
+
+ php
+ ldx #SEM_SENDBUF
+ jsr VSEM
+ plp
+
+ bcc loopt
+ jmp TERM
+
+loopt lda anz
+ bne loop
+ sec
+ .byt $24
+loop clc
+ jsr RECEIVE
+ bcs l1
+ jsr rxmess
+l1 ldx #0
+ stx cnt
+ stx anz
+l2 jsr setzei
+ ldy #F_FL
+ lda (fzei),y
+ cmp #F_FL_FRE
+ bne l2a
+ jmp nextl
+
+l2a inc anz
+ ldy #F_MODE
+ lda (fzei),y
+ cmp #F_MODE_RD
+ bne l3
+
+ol ldy #F_BYT
+ lda (fzei),y
+ ldy #F_LEN
+ cmp (fzei),y
+ beq l4
+ pha
+ ldy #F_STR
+ lda (fzei),y
+ tax
+ pla
+ tay
+ lda (bzei),y
+ jsr PUTC
+ bcs l5n
+ ldy #F_BYT
+ lda (fzei),y
+ clc
+ adc #1
+ sta (fzei),y
+ jmp ol
+
+l4 ldy #F_FL
+ lda (fzei),y
+ cmp #F_FL_EOF
+ bne l4a
+ ldy #F_STR
+ lda (fzei),y
+ tax
+ lda #SC_EOF
+ jsr STRCMD
+ jsr close
+ jmp nextl
+l4a jsr clrbuf
+ jsr loadbuf
+ bcc l5
+ ldy #F_FL
+ lda #F_FL_EOF
+ sta (fzei),y
+l5 jmp nextl
+
+l5n cmp #E_NUL
+ bne l5
+ ldy #F_STR
+ lda (fzei),y
+ tax
+ lda #SC_EOF
+ jsr STRCMD
+ jsr close
+
+l3 nextl
+ inc cnt
+ ldx cnt
+ cpx #MAXFILE
+ bcs endloop
+ jmp l2
+endloop jsr YIELD
+ jmp loopt
+ .)
+
+rxmess .(
+ stx client
+ cmp #FS_OPEN_DR
+ bne rx1
+ jsr getfre
+ bcs rxe1a
+ jsr clrbuf
+ lda #F_FL_DIR
+oprrx ldy #F_FL
+ sta (fzei),y
+ lda PCBUF+FS_OPEN_STR
+ ldy #F_STR
+ sta (fzei),y
+ ldy #F_MODE
+ lda #F_MODE_RD
+ sta (fzei),y
+ lda #<-1
+ ldy #F_DEV
+ sta (fzei),y
+ lda PCBUF+FS_OPEN_DRV
+ ldy #F_DRV
+ sta (fzei),y
+ ldy #F_STR
+ lda (fzei),y
+ tay
+ jmp rxok
+
+#ifndef FSDEV_NOROM
+oprrom jsr findrnam
+ bcs rxe1a
+ jsr getfre
+ bcs rxe1a
+ jsr clrbuf
+ jsr ldrombuf
+ lda #F_FL_EOF
+ jmp oprrx
+#endif
+
+rx1 cmp #FS_OPEN_RD
+ bne rx2
+
+#ifndef FSDEV_NOROM
+ lda PCBUF+FS_OPEN_DRV
+ beq oprdev
+ jmp oprrom
+#endif
+
+oprdev lda PCBUF+FS_OPEN_STR /* Stream vom Open sichern */
+ sta cnt
+ ldx #0
+ ldy #FS_OPEN_NAME
+rxw1 lda PCBUF,y /* Name vom Open in PCBUF */
+ sta PCBUF,x /* fuer DC_GNUM kopieren */
+ inx
+ iny
+ cmp #0
+ bne rxw1
+ lda #DC_GNUM /* Die Device-Nummer zu dem */
+ jsr DEVCMD /* Namen holen */
+rxe1a bcs rxe1 /* Fehler dann Ende */
+ stx dev /* Device-Nummer speichern */
+ ldy cnt /* Stream als */
+ lda #DC_PS /* Ausgabe des Devices */
+ jsr DEVCMD /* registrieren */
+ bcs rxe1 /* Fehler dann Ende */
+ ldx dev /* Device-Nummer zur�ckholen */
+ lda #DC_RX_ON /* �bertragung starten */
+ jsr DEVCMD /* und los... */
+ bcs rxe1 /* Fehler dann Ende */
+ ldy cnt /* hier geht's normal weiter */
+ jmp rxok
+
+rx2 cmp #FS_OPEN_OW
+ beq rx2a
+ cmp #FS_OPEN_WR
+ bne rx3
+rx2a
+#ifndef FSDEV_NOROM
+ lda PCBUF+FS_OPEN_DRV
+ beq opwdev
+ jmp opwrom
+#endif
+
+opwdev lda PCBUF+FS_OPEN_STR
+ sta cnt
+ ldx #0
+ ldy #FS_OPEN_NAME
+rxr1 lda PCBUF,y
+ sta PCBUF,x
+ inx
+ iny
+ cmp #0
+ bne rxr1
+ lda #DC_GNUM
+ jsr DEVCMD
+ bcs rxe1
+ stx dev
+ ldy cnt
+ lda #DC_GS
+ jsr DEVCMD
+ bcs rxe1
+ ldx dev
+ lda #DC_TX_ON
+ jsr DEVCMD
+ bcs rxe1
+ ldy cnt
+ jmp rxok
+
+#ifndef FSDEV_NOROM
+opwrom lda #E_FWPROT
+ .byt $2c
+#endif
+rx3 lda #E_NOTIMP
+ .byt $2c
+rxok lda #E_OK
+ .byt $2c
+rxe1 lda #E_FNOFIL
+ sta PCBUF+FS_X_ERR
+ ldx owntask
+ stx PCBUF+FS_X_ENV
+ ldy actfil
+ sty PCBUF+FS_X_FIL
+ ldy #FS_X_SLEN
+ ldx client
+ jmp SEND
+ .)
+
+loadbuf .(
+ ldy #F_DEV
+ lda (fzei),y
+ bpl ldr0
+ jmp loadirnam
+
+ldr0
+ clc
+ ldx #SEM_SENDBUF
+ jsr PSEM
+
+ ldy #F_DRV
+ lda (fzei),y
+ beq lddev
+
+ ldy #F_DEV
+ lda (fzei),y
+ jsr setrzei
+ bcs lde ; rzei zeigt auf verkettungszeiger
+ ldy #P_NAME+1
+; ldr3 iny ; deshalb hier zwei mehr
+; iny
+; lda (rzei),y
+; bpl ldr3 ; ende der Tabelle feststellen
+ ldx #<-1
+ldr4 inx
+ iny
+ lda (rzei),y
+ sta PCBUF,x
+ bne ldr4
+ beq ldr5
+
+lddev ldy #F_DEV
+ lda (fzei),y
+ tax
+ lda #DC_GNAM
+ jsr DEVCMD
+ bcs lde
+ldr5 ldx #0
+ ldy #FS_DIR_NAME
+ld1 lda PCBUF,x
+ sta (bzei),y
+ inx
+ iny
+ cmp #0
+ bne ld1
+ tya
+
+ pha
+ ldx #SEM_SENDBUF
+ jsr VSEM
+ pla
+
+ ldy #F_LEN
+ sta (fzei),y
+ lda #0
+ ldy #FS_DIR_LEN
+ld2 sta (bzei),y
+ iny
+ cpy #FS_DIR_MODE
+ bcc ld2
+ lda #FS_DIR_MOD_FIL
+ sta (bzei),y
+ ldy #F_DEV
+ lda (fzei),y
+ clc
+ adc #1
+ sta (fzei),y
+ clc
+ rts
+
+lde
+ ldx #SEM_SENDBUF
+ jsr VSEM
+ ldy #0
+lde1 lda ldet,y
+ sta (bzei),y
+ iny
+ cpy #FS_DIR_NAME+1
+ bcc lde1
+ tya
+ ldy #F_LEN
+ sta (fzei),y
+ sec
+ rts
+
+ldet .word 0,0
+ .byt 0,0,0,0,0,0,FS_DIR_MOD_FRE,0
+
+loadirnam
+#ifndef FSDEV_NOROM
+ ldy #F_DRV
+ lda (fzei),y
+ bne romnam
+#endif
+ lda #devtxt
+#ifndef FSDEV_NOROM
+ bne dn1
+romnam lda #romtxt
+#endif
+dn1 sta rzei
+ sty rzei+1
+ ldy #0
+dn2 lda (rzei),y
+ sta (bzei),y
+ iny
+ cpy #FS_DIR_NAME
+ bcc dn2
+dn3 lda (rzei),y
+ sta (bzei),y
+ iny
+ cmp #0
+ bne dn3
+ tya
+ ldy #F_LEN
+ sta (fzei),y
+ lda #0
+ ldy #F_DEV
+ sta (fzei),y
+ clc
+ rts
+
+#ifndef FSDEV_NOROM
+romtxt .word 0,0 ; len
+ .byt 90,8,23
+ .byt 9,33,0
+ .byt FS_DIR_MOD_NAM
+ .asc "romdisk",0
+#endif
+
+devtxt .word 0,0
+ .byt 90,8,23
+ .byt 9,33,0
+ .byt FS_DIR_MOD_NAM
+ .asc "devices",0
+
+ .)
+
+close lda #F_FL_FRE
+ ldy #F_FL
+ sta (fzei),y
+ rts
+
+getfre .(
+ ldx #ANZDRV
+ stx cnt
+gf1 jsr setzei
+ ldy #F_FL
+ lda (fzei),y
+ cmp #F_FL_FRE
+ clc
+ beq gf2
+ inc cnt
+ ldx cnt
+ cpx #MAXFILE
+ bcc gf1
+gf2 rts
+ .)
+
+clrbuf lda #0
+ ldy #F_LEN
+ sta (fzei),y
+ ldy #F_BYT
+ sta (fzei),y
+ rts
+
+setzei .( ; setzt zeiger, x=filenr
+ cpx actfil
+ beq sz1
+ stx actfil
+ txa
+ asl
+ asl
+ asl
+ clc
+ adc #ftab
+ adc #0
+ sta fzei+1
+ txa
+#if 1
+ lsr
+ pha
+ lda #0
+ ror ; clears carry
+ adc #buf
+ sta bzei+1
+#else
+ clc
+ adc #>buf*2
+ lsr
+ sta bzei+1
+ lda #ROMSTART
+ldr1 stx rzei
+ sta rzei+1
+ ldy #1
+ lda (rzei),y
+ dey
+ and (rzei),y
+ tax
+ inx
+ sec
+ beq lde ; dann Verkettungszeiger =-1
+ lda cmd
+ clc
+ beq lde
+ dec cmd
+ lda (rzei),y
+ tax
+ iny
+ lda (rzei),y
+ jmp ldr1
+lde rts
+ .)
+
+#ifndef FSDEV_NOROM
+findrnam .(
+ lda #ROMSTART
+fn1 sta rzei
+ stx rzei+1
+ ldy #1
+ lda (rzei),y
+ dey
+ and (rzei),y
+ tay
+ iny
+ beq fns
+ ldy #P_NAME+1
+; fn2 iny
+; iny
+; lda (rzei),y
+; bpl fn2 ; ende der Tabelle ?
+ ldx #<-1
+fn3 iny
+ inx
+ lda (rzei),y
+ cmp PCBUF+FS_OPEN_NAME,x
+ bne fnnxt
+ cmp #0
+ bne fn3
+ clc
+ rts
+fnnxt ldy #1
+ lda (rzei),y
+ tax
+ dey
+ lda (rzei),y
+ jmp fn1
+fns sec
+ rts
+ .)
+
+ldrombuf .(
+ lda #0
+ tay
+ sta (bzei),y
+ iny
+ sta (bzei),y
+ iny
+lr1 lda (rzei),y
+ sta (bzei),y
+ iny
+ cpy #P_NAME+2
+ bcc lr1
+; lr2 lda (rzei),y
+; sta (bzei),y
+; iny
+; cmp #128 ; Ende der Tabelle bei <0
+; bcs lre
+; lda (rzei),y
+; sta (bzei),y
+; iny
+; bne lr2
+lre tya
+ ldy #F_LEN
+ sta (fzei),y
+ rts
+ .)
+#endif
+
+#undef ANZDRV
+#undef BUFSIZE
+#undef MAXFILE
+
+ende .)
+
diff --git a/dump/oa-2.0.9/sysapps/fs/fsibm.a65 b/dump/oa-2.0.9/sysapps/fs/fsibm.a65
new file mode 100644
index 0000000..e8b9753
--- /dev/null
+++ b/dump/oa-2.0.9/sysapps/fs/fsibm.a65
@@ -0,0 +1,96 @@
+/****************************************************************************
+
+ OS/A65 Version 2.1.0
+ Multitasking Operating System for 6502 Computers
+
+ Copyright (C) 1989-1998 Andre Fachat
+
+ This program is free software; you can redistribute it and/or modify
+ it under the terms of the GNU General Public License as published by
+ the Free Software Foundation; either version 2 of the License, or
+ (at your option) any later version.
+
+ This program is distributed in the hope that it will be useful,
+ but WITHOUT ANY WARRANTY; without even the implied warranty of
+ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+ GNU General Public License for more details.
+
+ You should have received a copy of the GNU General Public License
+ along with this program; if not, write to the Free Software
+ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
+
+****************************************************************************/
+
+/*
+ * TODO:
+ *
+ * WARNING! WARNING! WARNING! WARNING! WARNING! WARNING!
+ *
+ * This file lacks the stream error feature of the 1.4 kernel!
+ *
+ * To use it, you have to implement the stream error feature!
+ *
+ * In fact the file is still the 1.3 file, only the ROM boot stuff
+ * and some error codes have been changed. To really use it,
+ * you have to
+ * - check error codes
+ * - implement the error feature, as well as push and pull flags
+ * - bugfixes
+ */
+
+
+#ifndef ROM
+
+/*#define NOPRG*/
+#define SHOW
+#define SHOWC
+/*#define BSHOW*/
+/*#define SHOWL*/
+/*#define SHOWN*/
+/*#define SHOWD*/
+
+#endif /* ROM */
+ .(
+
+#ifdef ROM
+
+ .word ende ; pointer to end of file in ROM
+#ifdef FSIBM_AS_INIT
+ .byt PK_INIT+$80 ; file type = filesystem + auto-execute bit
+#else
+ .byt PK_PRG+$80 ; file type = filesystem + auto-exec bit
+#endif
+ .word PRG
+ .byt 32 ; RAM size in 256-byte blocks
+ .byt >$ff-ROMSTART ; shared mem size from upper end
+ .byt 0 ; priority (0=inherit)
+ .byt STDNUL, FSIBM_OUTDEV ; stdin, stdout/stderr device number
+ .asc "fsibm",0,0
+
+#else /* ROM */
+
+#include "include/kdefs.i65"
+#include "include/fdefs.i65"
+#include "include/kernel.i65"
+
+&main jmp PRG
+
+#endif /* ROM */
+
+
+#include "sysapps/fs/fsibm/defs.a65"
+#include "sysapps/fs/fsibm/loop.a65"
+#include "sysapps/fs/fsibm/vars.a65"
+#include "sysapps/fs/fsibm/cmd.a65"
+#include "sysapps/fs/fsibm/util.a65"
+#include "sysapps/fs/fsibm/file.a65"
+#include "sysapps/fs/fsibm/cluster.a65"
+#include "sysapps/fs/fsibm/drive.a65"
+#include "sysapps/fs/fsibm/buffer.a65"
+/* #include "sysapps/fs/fsibm/drv_wd1770.a65" */
+/* #include "sysapps/fs/fsibm/drv_ramd1.a65" */
+/* #include "sysapps/fs/fsibm/drv_ramd2.a65" */
+#include FSIBM_DEVICE_DRV
+
+ende .)
+
diff --git a/dump/oa-2.0.9/sysapps/fs/fsibm/Makefile b/dump/oa-2.0.9/sysapps/fs/fsibm/Makefile
new file mode 100644
index 0000000..7234373
--- /dev/null
+++ b/dump/oa-2.0.9/sysapps/fs/fsibm/Makefile
@@ -0,0 +1,21 @@
+
+all: drv_wd1770.o65 buffer.o65 drive.o65
+
+drv_wd1770.o65: drv_wd1770.a65
+ xa -R -c ../../../include/kdefs.i65 defs.a65 drv_wd1770.a65 \
+ -I../../../include -DANZDRV=4 -o drv_wd1770.o65
+ file65 -V drv_wd1770.o65
+
+buffer.o65: buffer.a65
+ xa -R -c ../../../include/kdefs.i65 defs.a65 buffer.a65 \
+ -I../../../include -o buffer.o65
+ file65 -V buffer.o65
+
+drive.o65: drive.a65
+ xa -R -c ../../../include/kdefs.i65 defs.a65 drive.a65 \
+ -I../../../include -o drive.o65
+ file65 -V drive.o65
+
+clean:
+ rm -f *.o65
+
diff --git a/dump/oa-2.0.9/sysapps/fs/fsibm/buffer.a65 b/dump/oa-2.0.9/sysapps/fs/fsibm/buffer.a65
new file mode 100644
index 0000000..198fea9
--- /dev/null
+++ b/dump/oa-2.0.9/sysapps/fs/fsibm/buffer.a65
@@ -0,0 +1,519 @@
+/****************************************************************************
+
+ OS/A65 Version 2.1.0
+ Multitasking Operating System for 6502 Computers
+
+ Copyright (C) 1989-1998 Andre Fachat
+
+ This program is free software; you can redistribute it and/or modify
+ it under the terms of the GNU General Public License as published by
+ the Free Software Foundation; either version 2 of the License, or
+ (at your option) any later version.
+
+ This program is distributed in the hope that it will be useful,
+ but WITHOUT ANY WARRANTY; without even the implied warranty of
+ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+ GNU General Public License for more details.
+
+ You should have received a copy of the GNU General Public License
+ along with this program; if not, write to the Free Software
+ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
+
+****************************************************************************/
+
+/*
+ *
+ * FIXME: this is horribly complicated
+ *
+ * Buffer handling
+ * Buffer allocation is done elsewhere
+ *
+ * Exports:
+ * CLBUF Write buffer if dirty, set it to 0 and free it
+ * DWBUF Write buffer=YR back if buffer is dirty (Write Dirty)
+ * IDBUF Invalidate all buffers with drive=XR, without writing
+ * RDBUF Read sector ar2(24 bit) on drive `drive` into buffer=YR,
+ * saving dirty buffer if necessary
+ * W1BUF Flush buffer=YR to sector ar2, invalidate/free it on write error
+ * WABUF Write buffer=YR back (Write Always)
+ * W2BUF Flush buffer=YR back, and set buffer to sector ar2.
+ * Set buffer to dirty (no further disk activity)
+ * (handle FAT blocks as well)
+ * INBUF Set all buffers to free (Init)
+ * FRBUF Free buffer=YR (no disk activity)
+ * MDBUF Set buffer=YR to dirty (no disk activity)
+ *
+ * Imports (calls):
+ * setpadr XR=buffer-# => AC/XR=buffer address
+ * drive current drive ...
+ * dzei ... and current Drive Parameter Block (DPB) address
+ * RWSEC Drive routine for reading/writing blocks
+ * ar1
+ * div
+ *
+ */
+
+ .(
+ .data
+p .byt 0
+
+abspar .dsb ABS_SLEN
+
+rwpar .dsb RW_SLEN
+
+#if B_SLEN=8 /* to much code depends on that */
+bpb .dsb B_SLEN*ANZBUF
+#endif
+
+ .zero
+bzei .word 0
+ .text
+
+&CLBUF .(
+ sty p
+ jsr DWBUF
+ bcc clr
+ cmp #E_NOTIMP
+ beq clr
+ sec
+ rts
+clr lda p
+ asl
+ asl
+ asl
+ tay
+ lda #BD_FRE
+ sta bpb+B_DIRT,y
+ ldx p
+ jsr setpadr
+ sta bzei
+ stx bzei+1
+ lda #0
+ tay
+ ldx #BUFLEN/256
+ccl sta (bzei),y
+ iny
+ bne ccl
+ inc bzei+1
+ dex
+ bne ccl
+ ldx p
+ jsr setpadr
+ clc
+ rts
+ .)
+
+&IDBUF .( ; free't alle Puffer mit Drive = xr
+ .data
+errfl .byt 0
+ .text
+
+ ldy #0
+ sty errfl
+idl sty p
+ tya
+ asl
+ asl
+ asl
+ tay
+ txa
+ cmp bpb+B_DRV,y
+ bne next
+ lda bpb+B_DIRT,y
+ bmi next
+ beq fre
+ inc errfl
+ lda #BD_IFRE
+ .byt $2c
+fre lda #BD_FRE
+ sta bpb+B_DIRT,y
+next ldy p
+ iny
+ cpy #ANZBUF
+ bcc idl
+ lda errfl
+ bne err
+ lda #E_OK
+ .byt $2c
+err lda #E_FINTERNAL
+ cmp #1
+ rts
+ .)
+
+&RDBUF .(
+ sty p
+ cpy #ANZBUF
+ bcc l1
+lserr
+#ifdef DEBUGFS
+lda #"x":jsr SEROUT
+#endif
+ lda #E_ILLPAR
+ sec
+ rts
+l1 lda ar2
+ sta abspar+ABS_SEC
+ lda ar2+1
+ sta abspar+ABS_SEC+1
+ lda ar2+2
+ sta abspar+ABS_SEC+2
+ lda ar2+3
+ sta abspar+ABS_SEC+3
+
+#if 0 /*def DEBUGFS*/
+.(
+lda #"r"
+jsr SEROUT
+lda abspar+ABS_SEC+1
+jsr HEXOUT
+lda abspar+ABS_SEC
+jsr HEXOUT
+.)
+#endif
+ lda drive
+ sta abspar+ABS_DRV
+ tya
+ asl
+ asl
+ asl
+ tay
+ lda bpb+B_DIRT,y
+ bmi lsx ; falls frei sofort laden
+
+ lda abspar+ABS_SEC
+ cmp bpb+B_SECTOR,y
+ bne lsx1
+ lda abspar+ABS_SEC+1
+ cmp bpb+B_SECTOR+1,y
+ bne lsx1
+ lda abspar+ABS_SEC+2
+ cmp bpb+B_SECTOR+2,y
+ bne lsx1
+ lda abspar+ABS_SEC+3
+ cmp bpb+B_SECTOR+3,y
+ bne lsx1
+ lda abspar+ABS_DRV
+ cmp bpb+B_DRV,y
+ beq lsend ; falls alles gleich ende
+
+lsx1 lda bpb+B_DIRT,y
+ beq lsx ; falls nicht dirty laden
+ ldy p
+ jsr DWBUF ; sonst Puffer speichern
+ bcs lerr
+ lda p
+ asl
+ asl
+ asl
+ tay
+
+lsx lda #BD_FRE
+ sta bpb+B_DIRT,y
+ lda abspar+ABS_DRV
+ sta bpb+B_DRV,y
+ sta rwpar+RW_DRV
+ lda abspar+ABS_SEC+3
+ sta bpb+B_SECTOR+3,y
+ sta rwpar+RW_SECTOR+3
+ lda abspar+ABS_SEC+2
+ sta bpb+B_SECTOR+2,y
+ sta rwpar+RW_SECTOR+2
+ lda abspar+ABS_SEC+1
+ sta bpb+B_SECTOR+1,y
+ sta rwpar+RW_SECTOR+1
+ lda abspar+ABS_SEC
+ sta bpb+B_SECTOR,y
+ sta rwpar+RW_SECTOR
+ ;jsr sec2rw
+ ;bcs lserr
+ ldx p
+ jsr setpadr
+ sta rwpar+RW_ADR
+ stx rwpar+RW_ADR+1
+ lda #rwpar
+ clc ; load
+ jsr RWSEC
+ bcs lerr
+ lda p
+ asl
+ asl
+ asl
+ tay
+ lda #BD_OK
+ sta bpb+B_DIRT,y
+ lda #E_OK
+lsend clc
+lerr rts
+ .)
+
+&W1BUF .(
+ sty p
+ cpy #ANZBUF
+ bcc l1
+lserr lda #E_ILLPAR
+ sec
+ rts
+l1
+ tya
+ asl
+ asl
+ asl
+ tay
+ lda #BD_FRE
+ sta bpb+B_DIRT,y
+ lda drive
+ sta bpb+B_DRV,y
+ sta rwpar+RW_DRV
+ lda ar2
+ sta bpb+B_SECTOR,y
+ sta rwpar+RW_SECTOR
+ lda ar2+1
+ sta bpb+B_SECTOR+1,y
+ sta rwpar+RW_SECTOR+1
+ lda ar2+2
+ sta bpb+B_SECTOR+2,y
+ sta rwpar+RW_SECTOR+2
+ lda ar2+3
+ sta bpb+B_SECTOR+3,y
+ sta rwpar+RW_SECTOR+3
+ ;jsr sec2rw
+ ;bcs lserr
+ ldx p
+ jsr setpadr
+ sta rwpar+RW_ADR
+ stx rwpar+RW_ADR+1
+ lda #rwpar
+ sec ; write
+ jsr RWSEC
+ bcs lerr
+ lda p
+ asl
+ asl
+ asl
+ tay
+ lda #BD_OK
+ sta bpb+B_DIRT,y
+ lda #E_OK
+ clc
+lerr rts
+ .)
+
+&WABUF .(
+ .data
+sector .word 0,0
+xfl .byt 0
+ .text
+
+ ldx #0
+ sty p ; write always (auch falls nur valid)
+ cpy #ANZBUF
+ bcs serr2x
+ tya
+ asl
+ asl
+ asl
+ tay
+ lda bpb+B_DIRT,y
+ bmi serr1x ; falls nicht belegt dann ende
+ jmp l1
+
+&&DWBUF ldx #0
+ .byt $2c
+&DxBUF ldx #1
+ sty p
+ cpy #ANZBUF
+ bcs serr2x
+ tya
+ asl
+ asl
+ asl
+ tay
+ lda bpb+B_DIRT,y ; falls frei dann fehler
+serr1x bpl xx
+ jmp serr1
+xx bne l1
+ jmp serr0 ; falls valid dann nicht schreiben
+
+l1 stx xfl
+ lda #BD_FRE
+ sta bpb+B_DIRT,y
+ lda bpb+B_DRV,y ; hier ist dirty
+ sta rwpar+RW_DRV
+ ldx p
+ jsr setpadr
+ sta rwpar+RW_ADR
+ stx rwpar+RW_ADR+1
+ lda bpb+B_SECTOR,y
+ sta sector
+ lda bpb+B_SECTOR+1,y
+ sta sector+1
+ lda bpb+B_SECTOR+2,y
+ sta sector+2
+ lda bpb+B_SECTOR+3,y
+ sta sector+3
+wrloop lda sector
+ sta rwpar+RW_SECTOR
+ lda sector+1
+ sta rwpar+RW_SECTOR+1
+ lda sector+2
+ sta rwpar+RW_SECTOR+2
+ lda sector+3
+ sta rwpar+RW_SECTOR+3
+ ; sta sector
+ ; stx sector+1
+ ;jsr sec2rw
+ clc
+serr2x bcs serr2
+ sec
+ lda #rwpar
+ jsr RWSEC
+ bcs serr
+
+ lda sector
+ ora sector+1
+ ora sector+2
+ ora sector+3
+ beq wre
+ lda xfl
+ bne wre
+
+ ldy #D_SPF ; zu Sektor Sekt/FAT addieren
+ lda (dzei),y
+ clc
+ adc sector
+ sta sector
+ iny
+ lda (dzei),y
+ adc sector+1
+ sta sector+1
+ tax
+ bcc foo1
+ inc sector+2
+ bne foo1
+ inc sector+3
+foo1
+ lda sector+2 ; compare sector with start of main dir
+ ora sector+3 ; if less, write again.
+ bne wre
+
+ lda sector+1
+ ldy #D_STD+1 ; mit Start Main-Dir vergleichen
+ cmp (dzei),y ; gr��er dann ende
+ bcc wrl
+ bne wre
+ dey
+ lda sector
+ cmp (dzei),y
+ bcs wre
+wrl
+ jmp wrloop ; sonst nochmal schreiben
+
+wre lda p
+ asl
+ asl
+ asl
+ tay
+ lda #BD_OK
+ sta bpb+B_DIRT,y
+serr0 lda #E_OK
+ clc
+ rts
+serr1 lda #E_NOTIMP
+ .byt $2c
+serr2 lda #E_ILLPAR
+serr sec
+ rts
+ .)
+
+&W2BUF .(
+ sty p
+ lda ar2
+ sta abspar+ABS_SEC
+ lda ar2+1
+ sta abspar+ABS_SEC+1
+ lda ar2+2
+ sta abspar+ABS_SEC+2
+ lda ar2+3
+ sta abspar+ABS_SEC+3
+ cpy #ANZBUF
+ bcs werr
+ tya
+ asl
+ asl
+ asl
+ tay
+ lda bpb+B_DIRT,y
+ bmi w2 ; Daten ung�ltig
+ beq w2 ; Daten nicht dirty
+ ldy p
+ jsr DxBUF
+ bcs err
+
+w2 lda p
+ asl
+ asl
+ asl
+ tay
+ lda drive
+ sta bpb+B_DRV,y
+ lda abspar+ABS_SEC+3
+ sta bpb+B_SECTOR+3,y
+ lda abspar+ABS_SEC+2
+ sta bpb+B_SECTOR+2,y
+ lda abspar+ABS_SEC+1
+ sta bpb+B_SECTOR+1,y
+ lda abspar+ABS_SEC
+ sta bpb+B_SECTOR,y
+ lda #BD_DIRTY ;lda #BD_OK
+ sta bpb+B_DIRT,y
+ clc
+err rts
+werr lda #E_ILLPAR
+ sec
+ rts
+ .)
+
+&INBUF .(
+ ldy #0
+inl sty p
+ jsr FRBUF
+ ldy p
+ iny
+ cpy #ANZBUF
+ bcc inl
+ clc
+ rts
+ .)
+
+&FRBUF ldx #BD_FRE
+ .byt $2c
+&MDBUF ldx #BD_DIRTY
+ .(
+ cpy #ANZBUF
+ bcs cerr
+ tya
+ asl
+ asl
+ asl
+ tay
+ txa
+ sta bpb+B_DIRT,y
+ rts
+cerr lda #E_ILLPAR
+ sec
+ rts
+ .)
+/*
+sec2rw .(
+ sta rwpar+RW_TRCK
+ stx rwpar+RW_TRCK+1
+ clc
+ rts
+ .)
+*/
+ .)
+
+
diff --git a/dump/oa-2.0.9/sysapps/fs/fsibm/cluster.a65 b/dump/oa-2.0.9/sysapps/fs/fsibm/cluster.a65
new file mode 100644
index 0000000..59c06da
--- /dev/null
+++ b/dump/oa-2.0.9/sysapps/fs/fsibm/cluster.a65
@@ -0,0 +1,713 @@
+/****************************************************************************
+
+ OS/A65 Version 2.1.0
+ Multitasking Operating System for 6502 Computers
+
+ Copyright (C) 1989-1998 Andre Fachat
+
+ This program is free software; you can redistribute it and/or modify
+ it under the terms of the GNU General Public License as published by
+ the Free Software Foundation; either version 2 of the License, or
+ (at your option) any later version.
+
+ This program is distributed in the hope that it will be useful,
+ but WITHOUT ANY WARRANTY; without even the implied warranty of
+ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+ GNU General Public License for more details.
+
+ You should have received a copy of the GNU General Public License
+ along with this program; if not, write to the Free Software
+ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
+
+****************************************************************************/
+
+/*
+ * cluster handling
+ *
+ * exports:
+ * clrclus
+ * snext
+ * cl2sec
+ * gfrebyt
+ * gfrecl
+ * gnexcl
+ * snexcl
+ */
+
+ .(
+
+&clrclus .(
+ ldy fpuffer
+ jsr CLBUF
+ bcs cce
+ ldy #D_SPC+1
+ lda (dzei),y
+ tax
+ dey
+ lda (dzei),y
+ ldy #F_FSEC
+ sta (fzei),y
+ iny
+ txa
+ sta (fzei),y
+wl ldy #F_FSEC
+ sec
+ lda (fzei),y
+ sbc #1
+ tax
+ iny
+ lda (fzei),y
+ sbc #0
+ bcc cce
+ sta (fzei),y
+ dey
+ txa
+ sta (fzei),y
+ jsr cl2sec
+ bcs cce
+ ldy fpuffer
+ jsr W2BUF ; gets pars from ar2
+ bcc wl
+cce rts
+ .)
+
+&snext .(
+ ldy #F_FSEC
+ lda (fzei),y
+ clc
+ adc #1
+ sta (fzei),y
+ iny
+ tax
+ sta ar1
+ lda (fzei),y
+ adc #0
+ sta (fzei),y
+ sta ar1+1
+
+ ldy #F_FCL
+ lda (fzei),y
+ iny
+ ora (fzei),y
+ bne snok
+
+ lda ar1+1 ; bei Cluster =0
+ ldy #D_SPD+1 ; nicht �ber Main-Dir lesen
+ cmp (dzei),y
+ bcc nexend
+ bne nexerr
+ txa
+ dey
+ cmp (dzei),y
+ bcc nexend
+nexerr lda #E_NOCLUS
+ rts
+
+snok lda ar1+1
+ ldy #D_SPC+1
+ cmp (dzei),y
+ bcc nexend
+ bne next
+ dey
+ txa
+ cmp (dzei),y
+ bcc nexend
+next jsr xclrfsec
+ ldy #F_FCL+1
+ lda (fzei),y
+ tax
+ dey
+ lda (fzei),y
+ jsr gnexcl
+ bcs nexrts
+ ldy #F_FCL
+ sta (fzei),y
+ iny
+ txa
+ sta (fzei),y
+nexend clc
+nexrts rts
+ .)
+
+&cl2sec .( /* berechnet Sektor aus fpb-Daten -> a/x */
+ ldy #F_FCL+1
+ lda (fzei),y
+ tax
+ dey
+ lda (fzei),y
+ bne cd
+ cpx #0
+ bne cd
+ /* hier bei Main-Directory */
+ ldy #F_FSEC+1
+ lda (fzei),y
+ tax
+ dey
+ lda (fzei),y
+ clc
+ ldy #D_STD
+ adc (dzei),y
+ pha
+ iny
+ txa
+ adc (dzei),y
+ txa
+ pla
+ sta ar2
+ stx ar2+1
+ ldy #0
+ sty ar2+2
+ sty ar2+3
+ clc
+ rts
+
+cd sec /* hier bei normalen Files */
+ sbc #2
+ sta ar1
+ txa
+ sbc #0
+ sta ar1+1
+ bcs cdok
+cerr sec
+ lda #E_ILLCLUS
+ rts
+cdok
+ lda #0
+ sta ar1+2
+ sta ar1+3
+ ldy #D_SPC+1
+ lda (dzei),y
+ tax
+ dey
+ lda (dzei),y
+ jsr mult32
+ bcs cerr
+
+ ldy #F_FSEC ; sector in cluster
+ adc (fzei),y
+ sta ar2
+ iny
+ txa
+ adc (fzei),y
+ sta ar2+1
+ bcc cdo1
+ inc ar2+2
+ bne cdo1
+ inc ar2+3
+cdo1
+ clc
+ ldy #D_STC ; sector of first cluster
+ lda (dzei),y
+ adc ar2
+ sta ar2
+ iny
+ lda (dzei),y
+ adc ar2+1
+ sta ar2+1
+ bcc cdo2
+ inc ar2+2
+ bne cdo2
+ inc ar2+3
+cdo2
+ lda ar2+3 ; we only handle 24 bit sector numbers
+ bne cerr
+ clc
+ rts
+ .)
+
+
+ .data
+fr1 .word 0 ; cluster
+fr2 .word 0 ; sektor
+fr3 .word 0 ; pos im sec
+fr4 .word 0 ; gesuchter Cluster
+fr5 .word 0 ; Startcluster bei suchschleife
+fr6 .word 0 ; Anzahl freier Cluster
+ .zero
+fatzei .word 0
+ .text
+
+&gfrebyt .(
+ lda #2
+ ldx #0
+ stx fr6 ; Z�hler f�r freie Cluster
+ stx fr6+1
+
+ sta fr5 ; Cluster, bis zu dem gesucht wird
+ stx fr5+1
+ sta fr1 ; Cluster, ab dem gesucht wird
+ stx fr1+1
+
+gfl lda fr1
+ ldx fr1+1
+ jsr gld ; sucht ab a/x bis fr5
+ bcs end
+
+ inc fr6
+ bne gflx
+ inc fr6+1
+
+gflx jsr incmp ; mu� erh�ht werden, um n�chsten Cluster zu testen
+ bne gfl ; noch nicht zuende dann weitersuchen
+ beq gok
+
+end cmp #E_FDISKFULL
+ beq gok
+ sec
+ rts
+gok
+ lda fr6
+ sta ar1
+ lda fr6+1
+ sta ar1+1
+ lda #0
+ sta ar1+2
+ sta ar1+3
+
+ ldy #D_SPC+1
+ lda (dzei),y
+ tax
+ dey
+ lda (dzei),y
+ jsr mult4
+ ldy #D_BPS+1
+ lda (dzei),y
+ tax
+ dey
+ lda (dzei),y
+ jsr mult4
+ clc
+ rts
+ .)
+
+&gfrecl .( ; a/x =Cluster-1 ab dem gesucht wird
+ sta fr5
+ stx fr5+1
+ sta fr1
+ stx fr1+1
+
+ bcc gld
+ jsr incmp
+ bne gld
+gle lda #E_FDISKFULL
+ sec
+ rts
+
+&gld jsr lfat
+ bcs grts
+
+ ldy #0
+gl lda (fatzei),y
+ sta fr4
+
+ jsr tstend
+ bcs grts
+
+ lda (fatzei),y
+ sta fr4+1
+
+ ldy #D_BFLAG
+ lda (dzei),y
+ bne fat16
+
+ lda fr1
+ lsr
+ bcc gerade
+
+ lda fr4
+ and #$f0
+ ora fr4+1
+ beq found
+ bne next
+
+gerade lda fr4+1 ; bei geradem Cluster gleich drei byte
+ and #$0f ; = 2 Cluster testen
+ ora fr4
+ beq found
+
+ jsr incmp
+ beq gle
+
+ lda fr4+1
+ and #$f0
+ sta fr4
+
+ jsr tstend
+ bcs grts
+
+ lda (fatzei),y
+ sta fr4+1
+ ora fr4
+ beq found
+ bne next
+
+fat16 lda fr4
+ ora fr4+1
+ beq found
+
+next
+ jsr incmp
+ beq gle
+ jsr tstend
+ bcs grts
+ bcc gl
+
+found lda fr1
+ ldx fr1+1
+ clc
+grts rts
+ .)
+
+#ifdef SHOWC
+clushow .(
+ lda fr1+1
+ jsr HEXOUT
+ lda fr1
+ jsr HEXOUT
+ lda #":"
+ jsr SEROUT
+ lda fr4+1
+ jsr HEXOUT
+ lda fr4
+ jsr HEXOUT
+ lda #"@"
+ jsr SEROUT
+ lda fatzei+1
+ jsr HEXOUT
+ lda fatzei
+ jsr HEXOUT
+ lda #","
+ jsr SEROUT
+ txa
+ jsr HEXOUT
+ jsr CRLFOUT
+ rts
+ .)
+#endif
+
+incmp .(
+ inc fr1
+ bne g1
+ inc fr1+1
+g1 lda fr1+1
+ ldy #D_CLUS+1
+ cmp (dzei),y
+ bcc gok
+ bne g0
+ dey
+ lda fr1
+ cmp (dzei),y
+ bcc gok
+g0 lda #0
+ sta fr1+1
+ lda #2
+ sta fr1
+gok lda fr1
+ ldx fr1+1
+ cpx fr5+1
+ bne glr
+ cmp fr5
+glr rts
+ .)
+
+&gnexcl .(
+ jsr lfat
+ bcs fcerr
+
+ ldy #0
+ lda (fatzei),y
+ sta fr4
+
+ jsr tstend
+ bcs fcerr
+
+ lda (fatzei),y
+ sta fr4+1
+
+ ldy #D_BFLAG
+ lda (dzei),y
+ bne no12
+ lda fr1
+ lsr
+ bcc noshft
+ lda fr4+1
+ lsr
+ ror fr4
+ lsr
+ ror fr4
+ lsr
+ ror fr4
+ lsr
+ ror fr4
+ sta fr4+1
+noshft lda fr4+1
+ and #$0f
+ sta fr4+1
+ and #%00001000 ; Minus-Bit
+ beq no12
+ lda fr4+1
+ ora #$f0
+ sta fr4+1
+no12 ldy #D_CLUS+1
+ lda fr4+1
+ cmp (dzei),y
+ bcc test2
+ bne eof
+ lda fr4
+ dey
+ cmp (dzei),y
+ bcs eof
+test2 lda fr4
+ ldx fr4+1
+ bne ok
+ cmp #2
+ bcc illclus
+ok clc
+fcerr rts
+eof lda fr4
+ cmp #$ff
+ bne illclus
+ cmp fr4+1
+ beq nocl
+illclus lda #E_ILLCLUS
+ .byt $2c
+nocl lda #E_NOCLUS
+ sec
+ rts
+ .)
+
+&snexcl .( ; a/x=cluster-Nr, y=zeiger auf zu setzenden Wert in ZP
+ pha
+ lda 0,y
+ sta fr4
+ lda 1,y
+ sta fr4+1
+ pla
+ jsr lfat
+ bcs fcerr
+
+ ldy #D_BFLAG
+ lda (dzei),y
+ bne s1
+ lda fr4+1
+ and #$0f
+ sta fr4+1
+ lda fr1
+ lsr
+ bcc s1
+ lda fr4
+ asl
+ rol fr4+1
+ asl
+ rol fr4+1
+ asl
+ rol fr4+1
+ asl
+ rol fr4+1
+ sta fr4
+ ldy #0
+ lda (fatzei),y
+ and #$0f
+ ora fr4
+ sta fr4
+s1 ldy #0
+ lda fr4
+ sta (fatzei),y
+ ldy drive
+ jsr MDBUF
+
+ jsr tstend
+ bcs fcerr
+
+ ldy #D_BFLAG
+ lda (dzei),y
+ bne s2
+
+ lda fr1
+ lsr
+ bcs s2
+ ldy #0
+ lda (fatzei),y
+ and #$f0
+ ora fr4+1
+ sta fr4+1
+s2 ldy #0
+ lda fr4+1
+ sta (fatzei),y
+ ldy drive
+ jsr MDBUF
+ clc
+fcerr rts
+ .)
+
+tstend .(
+ inc fr3 ; increment Zeiger in FAT
+ bne t1
+ inc fr3+1
+t1 inc fatzei
+ bne t2
+ inc fatzei+1
+t2
+ lda fr3+1
+ ldx fr3
+ jsr xcmpfpos ; ist Ende des Puffers ?
+ bcc fok ; nein
+
+ inc fr2
+ bne f2
+ inc fr2+1
+f2 lda fr2
+ ldx fr2+1
+ jsr RDFAT
+ bcs fcerr
+ ldx drive
+ jsr setpadr
+ sta fatzei
+ stx fatzei+1
+ ldy #0
+ sty fr3
+ sty fr3+1
+fok ldy #0
+ clc
+fcerr rts
+ .)
+
+lfat .(
+ sta fr1
+ stx fr1+1
+ ldy #D_CLUS+1
+ txa
+ cmp (dzei),y
+ bcc lok
+ bne lerr
+ lda fr1
+ dey
+ cmp (dzei),y
+ bcc lok
+lerr lda #E_ILLPAR
+ rts
+lok ldy #D_BFLAG
+ lda (dzei),y
+ and #1
+ beq fat12
+ lda fr1
+ asl
+ sta ar1
+ txa
+ rol
+ jmp f1
+fat12 lda fr1
+ sta fr2
+ stx fr2+1
+ lsr fr2+1
+ ror fr2
+ clc
+ adc fr2
+ sta ar1
+ txa
+ adc fr2+1
+f1 sta ar1+1
+ lda #0
+ sta ar1+2
+ sta ar1+3
+ ldy #D_BPS+1
+ lda (dzei),y
+ tax
+ dey
+ lda (dzei),y
+ jsr div32
+ bcc fx
+ lda #E_ILLPAR
+ sec
+ rts
+fx sta fr2 ; Sektor in der FAT
+ stx fr2+1
+ ldy ar1 ; Position im Block
+ sty fr3
+ ldy ar1+1
+ sty fr3+1
+ jsr RDFAT ; l�dt FAT-Block Nr a/x
+ bcs fcerrx
+ ldx drive
+ jsr setpadr
+ clc
+ adc fr3
+ sta fatzei
+ txa
+ adc fr3+1
+ sta fatzei+1
+ clc
+fcerrx rts
+ .)
+
+RDFAT .(
+ ldy #D_STF
+ clc
+ adc (dzei),y
+ sta ar2
+ iny
+ txa
+ adc (dzei),y
+ sta ar2+1
+ lda #0
+ sta ar2+2
+ sta ar2+3
+ ldy drive
+ jmp RDBUF
+ .)
+
+mult4 .( /* a/x * ar1(4 Byte) -> ar1 (4 Byte) */
+ clc
+ sta ar3
+ stx ar3+1
+ lda #0
+ sta ar2
+ sta ar2+1
+ sta ar2+2
+ sta ar2+3
+ txa
+ ora ar3
+ beq mend
+mloop
+ lsr ar3+1
+ ror ar3
+ bcc mnext
+
+ clc
+ lda ar1
+ adc ar2
+ sta ar2
+ lda ar1+1
+ adc ar2+1
+ sta ar2+1
+ lda ar1+2
+ adc ar2+2
+ sta ar2+2
+ lda ar1+3
+ adc ar2+3
+ sta ar2+3
+ bcs mend
+
+mnext lda ar3
+ ora ar3+1
+ beq mend
+
+ asl ar1
+ rol ar1+1
+ rol ar1+2
+ rol ar1+3
+ bcc mloop
+
+mend lda ar2
+ sta ar1
+ lda ar2+1
+ sta ar1+1
+ lda ar2+2
+ sta ar1+2
+ lda ar2+3
+ sta ar1+3
+ rts
+ .)
+ .)
+
+
diff --git a/dump/oa-2.0.9/sysapps/fs/fsibm/cmd.a65 b/dump/oa-2.0.9/sysapps/fs/fsibm/cmd.a65
new file mode 100644
index 0000000..5253026
--- /dev/null
+++ b/dump/oa-2.0.9/sysapps/fs/fsibm/cmd.a65
@@ -0,0 +1,887 @@
+/****************************************************************************
+
+ OS/A65 Version 2.1.0
+ Multitasking Operating System for 6502 Computers
+
+ Copyright (C) 1989-1998 Andre Fachat
+
+ This program is free software; you can redistribute it and/or modify
+ it under the terms of the GNU General Public License as published by
+ the Free Software Foundation; either version 2 of the License, or
+ (at your option) any later version.
+
+ This program is distributed in the hope that it will be useful,
+ but WITHOUT ANY WARRANTY; without even the implied warranty of
+ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+ GNU General Public License for more details.
+
+ You should have received a copy of the GNU General Public License
+ along with this program; if not, write to the Free Software
+ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
+
+****************************************************************************/
+
+/*
+ * exports "rename", "rmdir", "delete", "mkdir"
+ * "dloop", "setfile", "xclrfzei", "sfclus"
+ * "findfile", "fextend", "format"
+ */
+
+ .(
+ .data
+cluster .word 0
+pcl .word 0
+ .zero
+ezei .word 0
+ .text
+
+&rename .(
+ jsr inidrv
+ bcs re
+ ldy #FS_CMD_NAME
+ lda #ATTR_CLSD|ATTR_DIR
+ ldx #0
+ jsr findfile ; bei gefunden sind ezei,DCL/DSEC/DPOS gesetzt
+ bcs re
+ stx fname+NAME_A
+ iny
+ jsr fil2nam
+
+ ldy #F_FCL
+ lda pcl
+ sta (fzei),y
+ iny
+ lda pcl+1
+ sta (fzei),y
+
+ ldx #<-1
+ jsr findentry
+ bcc fexist
+ cmp #E_NOCLUS
+ bne re
+
+ jsr d2f
+ jsr cl2sec
+ bcs re
+ ldy fpuffer
+ jsr RDBUF
+ bcs re
+ jsr xadbufpos
+ sta ezei
+ stx ezei+1
+
+ jsr ynam2ezei
+ bcs err
+ ldy fpuffer
+ jsr WABUF
+re jmp xfrebuf
+fexist lda #E_FILEXIST
+err sec
+ jmp xfrebuf
+ .)
+
+&rmdir .(
+ jsr inidrv
+ bcs re
+ ldy #FS_CMD_NAME
+ lda #ATTR_DIR
+ ldx #0
+ jsr findfile
+ bcs re
+ lda #"*"
+ sta fname+NAME_N
+ sta fname+NAME_E
+ lda #ATTR_DIR|ATTR_CLSD|ATTR_HID|ATTR_SYS
+ sta fname+NAME_A
+ ldx #<-1
+ jsr findentry
+ bcc rtest
+ .byt $2c
+notempty lda #E_FDNEMPTY
+ sec
+re jmp xfrebuf
+rloop jsr findnext
+ bcs rend
+rtest ldy #DE_ATTR
+ lda (ezei),y
+ and #ATTR_DIR
+ beq notempty
+ ldy #DE_NAME
+ lda (ezei),y
+ cmp #"."
+ bne notempty
+ iny
+ lda (ezei),y
+ cmp #"."
+ bne r2
+ iny
+r2 lda (ezei),y
+ cmp #" "
+ bne notempty
+ iny
+ cpy #DE_ATTR
+ bcc r2
+ bcs rloop
+
+rend cmp #E_NOCLUS
+ bne re
+ jsr d2f
+ jsr xfcl2fscl
+ jsr cl2sec
+ bcs re
+ ldy fpuffer
+ jsr RDBUF
+ bcs re
+ jsr xadbufpos
+ sta ezei
+ stx ezei+1
+ jmp xdel
+ .)
+
+&delete .(
+ .data
+xfl .byt 0
+ .text
+
+ jsr inidrv
+ bcs de
+ ldy #FS_CMD_NAME
+ lda #ATTR_CLSD
+ ldx #0
+ jsr findfile
+ bcs de
+ ldx #1
+ .byt $2c
+&xdel ldx #0
+ stx xfl
+dl sec
+ jsr tstlocked
+ bcs de
+ ldy #DE_NAME
+ lda #$e5 ; null ist auf dem PC Endekennzeichen f�r dir
+ sta (ezei),y
+ ldy fpuffer
+ jsr MDBUF
+ ldy #DE_FCLUS+1
+ lda (ezei),y
+ tax
+ dey
+ lda (ezei),y
+ jsr dloop
+ bcs endex
+ ldx xfl
+ beq ende2
+ jsr d2f
+ jsr findnext
+ bcc dl
+ cmp #E_NOCLUS
+ bne de
+ende2 clc
+endex php
+ pha
+ ldy fpuffer
+ jsr WABUF
+ bcs dexx
+ ldy drive
+ jsr DWBUF
+ bcs dexx
+ pla
+ plp
+ jmp xfrebuf
+dexx tax
+ pla
+ txa
+ plp
+de sec
+ jmp xfrebuf
+
+ .zero
+xzei .word 0
+ .text
+
+&&dloop sta cluster
+ stx cluster+1
+ ldy #0
+ sty xzei
+ sty xzei+1
+ jsr gnexcl
+ bcs dend
+ sta pcl
+ stx pcl+1
+ lda cluster
+ ldx cluster+1
+ ldy #xzei
+ jsr snexcl
+ bcs de
+ lda pcl
+ ldx pcl+1
+ jmp dloop
+dend cmp #E_NOCLUS
+ bne de
+ lda cluster
+ ldx cluster+1
+ ldy #xzei
+ jmp snexcl
+ .)
+
+&mkdir .(
+ jsr inidrv
+ bcs err
+ ldy #FS_CMD_NAME
+ lda #ATTR_DIR
+ jsr setfile
+ bcs err
+ jsr clrclus
+ bcs err
+ jsr cl2sec
+ bcs err
+ ldy fpuffer
+ jsr RDBUF
+ bcs err
+ ldx fpuffer
+ jsr setpadr
+ sta ezei
+ stx ezei+1
+ lda #" "
+ ldy #1
+m1 sta fname,y
+ iny
+ cpy #NAME_A
+ bcc m1
+ lda #"."
+ sta fname+NAME_N
+ lda #ATTR_DIR
+ sta fname+NAME_A
+ jsr xnam2ezei
+ ldy #DE_FCLUS
+ lda cluster
+ sta (ezei),y
+ iny
+ lda cluster+1
+ sta (ezei),y
+ lda #"."
+ sta fname+NAME_N+1
+ lda #DE_SLEN
+ clc
+ adc ezei
+ sta ezei
+ bcc m2
+ inc ezei+1
+m2 jsr xnam2ezei
+ ldy #DE_FCLUS
+ lda pcl
+ sta (ezei),y
+ iny
+ lda pcl+1
+ sta (ezei),y
+ ldy fpuffer
+ jsr WABUF
+err jmp xfrebuf
+ .)
+
+&setfile .( ; open new file, a=attr, y=pointer to Name in PCBUF-1
+ ldx #1
+ jsr findfile
+ bcs sok
+ lda #E_FILEXIST
+errx sec
+ rts
+sok cmp #E_OK
+ bne errx
+ jsr d2f ; DCL,DSEC,DPOS nach FCL,FSEC,FPOS = Leerer Eintrag
+ jsr sfclus ; freien Cluster suchen, belegen und nach a/x bzw cluster
+ bcs errx
+ jsr cl2sec ; FCL,FSEC nach a/x=Sektor-Nummer umrechnen
+ bcs errx
+ ldy fpuffer
+ jsr RDBUF ; und Sektor lesen
+ bcs errx
+ jsr xadbufpos ; FPOS+Puffer-Adresse nach a/x
+ sta ezei
+ stx ezei+1
+ ldy #DE_FCLUS ; Cluster speichern im Dir-Eintrag
+ lda cluster
+ sta (ezei),y
+ iny
+ lda cluster+1
+ sta (ezei),y
+ ldy #DE_SIZE ; L�nge auf Null setzen im Dir-Eintrag
+ lda #0
+ sta (ezei),y
+ iny
+ sta (ezei),y
+ iny
+ sta (ezei),y
+ iny
+ sta (ezei),y
+ jsr nam2ezei ; Name in Dir-Eintrag
+ bcs err
+
+ ldy fpuffer ; Puffer speichern
+ jsr WABUF
+ bcs err
+ ldy drive ; f�rs Drive die FAT sichern
+ jsr DWBUF
+ bcs err
+
+ ldy #F_FCL ; Startcluster als File-Start setzen
+ lda cluster
+ sta (fzei),y
+ iny
+ lda cluster+1
+ sta (fzei),y
+
+ jsr xfcl2fscl ; und als Startcluster des Files setzen (f�r Lock)
+
+ jsr xclrfsp ; FSEC,FPOS l�schen
+ lda #0
+ ldy #F_LEN ; Dateil�nge im FPB auf Null setzen
+ sta (fzei),y
+ iny
+ sta (fzei),y
+ iny
+ sta (fzei),y
+ iny
+ sta (fzei),y
+&&xclrfzei
+ ldy #F_FZEI ; Set pointer for read/write to null
+ lda #0
+ sta (fzei),y
+ iny
+ sta (fzei),y
+ iny
+ sta (fzei),y
+ iny
+ sta (fzei),y
+ clc
+err rts
+
+;free ldy #DE_NAME
+; lda #0
+; sta (ezei),y
+; lda #E_DISKFULL
+; sec
+; rts
+ .)
+
+&sfclus .(
+#ifdef SHOWC
+ lda #"+"
+ jsr SEROUT
+#endif
+ lda #2
+ ldx #0
+ clc
+ jsr gfrecl ; ab Cluster 1 nach freiem Cluster suchen
+ bcs errx
+ sta cluster
+ stx cluster+1
+ ldy #EOFCLUS
+ sty ezei+1
+ ldy #ezei
+ jsr snexcl ; neuer Cluster kriegt End of File als Folgecluster
+ bcs errx
+#ifdef SHOWC
+ lda cluster+1
+ jsr HEXOUT
+ lda cluster
+ jsr HEXOUT
+ clc
+#endif
+ lda cluster
+ ldx cluster+1
+errx rts
+ .)
+
+ .(
+namend lda #E_FILLNAM
+ sec
+ rts
+&nam2ezei
+ ldx #1
+ .byt $2c
+&xnam2ezei
+ ldx #0
+ .byt $2c
+&ynam2ezei
+ ldx #<-1
+ ldy #0
+md1 lda fname,y
+ sta (ezei),y
+ cmp #"*"
+ beq namend
+ cmp #"?"
+ beq namend
+ cmp #34
+ beq namend
+ cmp #"."
+ bne md1x
+ txa
+ bne namend
+md1x iny
+ cpy #NAME_SLEN
+ bcc md1
+ txa
+ bpl cendx
+ clc
+ rts
+cendx lda #0
+ ldy #DE_SIZE
+md2 sta (ezei),y
+ iny
+ cpy #DE_SIZE+4
+ bcc md2
+
+ lda #0
+ ldy #5
+c1 sta PCBUF,y
+ dey
+ bpl c1
+ ldy #1 ; minimale Anzahl Bytes
+ lda #TI_GET
+ ldx #SEND_TIME
+ jsr SEND
+ bcs cnd ; x-reg ist noch vom Send gesetzt
+ sec
+ jsr XRECEIVE
+cnd
+ ; Umwandlung 6 Byte in 4 Byte und dann nach (ezei),DE_TIME/DATE
+
+ lda PCBUF+TE_SG_YEAR
+ sec
+ sbc #80
+ and #%01111111
+ asl
+ sta ar1
+ lda PCBUF+TE_SG_MONTH
+ and #%00001000
+ lsr
+ lsr
+ lsr
+ ora ar1
+ ldy #DE_DATE+1
+ sta (ezei),y
+ lda PCBUF+TE_SG_MONTH
+ and #%00000111
+ asl
+ asl
+ asl
+ asl
+ asl
+ sta ar1
+ lda PCBUF+TE_SG_DAY
+ and #%00011111
+ ora ar1
+ ldy #DE_DATE
+ sta (ezei),y
+
+ lda PCBUF+TE_SG_HOUR
+ and #%00011111
+ asl
+ asl
+ asl
+ sta ar1
+ lda PCBUF+TE_SG_MIN
+ and #%00111000
+ lsr
+ lsr
+ lsr
+ ora ar1
+ ldy #DE_TIME+1
+ sta (ezei),y
+ lda PCBUF+TE_SG_MIN
+ and #%00000111
+ asl
+ asl
+ asl
+ asl
+ asl
+ sta ar1
+ lda PCBUF+TE_SG_SEC
+ and #%00111110
+ lsr
+ ora ar1
+ ldy #DE_TIME
+ sta (ezei),y
+
+cend clc
+ rts
+
+ .)
+
+&findfile .(
+ .data
+xflag .byt 0
+attr .byt 0
+npos .byt 0
+ .text
+
+ sta attr ; attribut, nach dem gesucht wird
+ stx xflag ; x=0 lesen, x=1 leeren Eintrag suchen test file exist
+ sty npos ; y=position Name in PCBUF
+
+ lda PCBUF,y
+ cmp #DIRSIGN ; da eh immer bei clus=0 gestartet wird, backslash
+ bne l1 ; am Anfang ignorieren
+ inc npos
+l1
+ jsr xclrfcl
+
+fl ldy npos
+ lda PCBUF,y
+ beq fnoname
+ jsr xfil2nam
+ sty npos
+
+ ldy #F_FCL
+ lda (fzei),y
+ sta pcl ; pcl ist Startcluster des dirs
+ iny
+ lda (fzei),y
+ sta pcl+1
+
+ ldy npos
+ lda PCBUF,y
+ php
+ ldx xflag
+ lda attr
+ plp
+ beq f2
+ lda #ATTR_DIR
+ ldx #0
+f2 sta fname+NAME_A
+ jsr findentry
+ bcs fe
+ ldy #DE_ATTR
+ lda (ezei),y
+ tax
+ ldy npos
+ inc npos
+ lda PCBUF,y
+ bne fl
+ clc
+fe rts
+fnoname lda #E_FNOFIL
+ sec
+ rts
+ .)
+
+findentry .(
+ .data
+x2fl .byt 0
+x3fl .byt 0
+ .text
+
+ stx x2fl ; x<0 dann nur auf exist testen, F_Dxx nicht �ndern
+ stx x3fl ; x=1 ist freien Eintrag suchen, x=0 Datei finden
+ jsr xclrfsec
+fnew jsr xclrfpos
+
+ jsr cl2sec
+ bcs fe
+ ldy fpuffer
+ jsr RDBUF
+ bcc f0
+fe rts
+
+f0 ldx fpuffer
+ jsr setpadr
+ sta ezei
+ stx ezei+1
+
+fl ldy #DE_NAME
+ lda (ezei),y
+ beq frex
+ cmp #$e5
+ bne fl2
+ jmp fre
+frex lda x3fl
+ bmi frey
+ beq frey
+ lda x2fl
+ beq frez
+ jsr f2d
+frez lda #E_OK
+ .byt $2c
+frey lda #E_NOCLUS
+ jmp nexend
+
+fl2 lda fname+NAME_N-DE_NAME,y
+ cmp #"*"
+ beq namok
+ cmp #"?"
+ beq fl1
+ cmp (ezei),y
+ bne next
+fl1 iny
+ cpy #DE_EXT
+ bcc fl2
+namok ldy #DE_EXT
+fl3 lda fname+NAME_E-DE_EXT,y
+ cmp #"*"
+ beq extok
+ cmp #"?"
+ beq fl4
+ cmp (ezei),y
+ bne next
+fl4 iny
+ cpy #DE_ATTR
+ bcc fl3
+extok ldy #DE_ATTR
+ lda fname+NAME_A
+ tax
+ and (ezei),y
+ bne found
+ txa
+ and #ATTR_CLSD
+ beq next
+ lda (ezei),y
+ beq found
+&findnext
+next lda #DE_SLEN
+ clc
+ adc ezei
+ sta ezei
+ bcc n1
+ inc ezei+1
+n1 lda #DE_SLEN
+ jsr xadfpos
+ bcs nexsec
+ jmp fl
+nexsec jsr snext ; sucht bei FCL,FSEC
+ bcc f0a
+ cmp #E_NOCLUS
+ bne nexend
+ ldx x3fl ; soll keinen leeren suchen
+ bmi nexend
+ beq nexend ; dann E_NOCLUS
+ ldx x2fl ; soll suchen und hat gefunden
+ beq nexxend ; dann OK und c=1
+ jsr fextend
+ bcs nexend
+ jsr clrclus ; l�scht Cluster
+ bcs nexend
+ jsr f2d
+nexxend lda #E_OK
+nexend sec
+ rts
+f0a jmp fnew
+
+fre lda x2fl
+ bmi next
+ beq next
+ jsr f2d
+ lda #0
+ sta x2fl
+ beq next
+
+found bit x2fl
+ bmi fend
+ jsr f2d
+
+ ldy #DE_FCLUS+1
+ lda (ezei),y
+ tax
+ dey
+ lda (ezei),y
+ ldy #F_FCL
+ sta (fzei),y
+ iny
+ txa
+ sta (fzei),y
+
+ jsr xfcl2fscl
+
+ ldy #DE_SIZE+1
+ lda (ezei),y
+ tax
+ dey
+ lda (ezei),y
+ ldy #F_LEN
+ sta (fzei),y
+ iny
+ txa
+ sta (fzei),y
+ ldy #DE_SIZE+3
+ lda (ezei),y
+ tax
+ dey
+ lda (ezei),y
+ ldy #F_LEN+2
+ sta (fzei),y
+ iny
+ txa
+ sta (fzei),y
+
+ jsr xclrfzei
+ jsr xclrfpos
+fend clc
+ rts
+ .)
+
+&fextend .( ; extend file when writing
+ ldy #F_FCL+1
+ lda (fzei),y
+ tax
+ dey
+ lda (fzei),y
+ bne f1
+ cpx #0 ; im Main-Dir nicht m�glich
+ bne f1
+ lda #E_NOCLUS
+ sec
+ rts
+f1 jsr gnexcl ; n�chsten Cluster der Datei suchen
+ bcc fok ;
+ cmp #E_NOCLUS
+ bne ferr ; Lese- oder sonstwas-Fehler
+ ldy #F_FCL+1
+ lda (fzei),y
+ tax
+ dey
+ lda (fzei),y
+ sec
+ jsr gfrecl ; ab letztem Cluster der Datei freien Cluster suchen
+ bcs ferr ; nicht gefunden
+ sta ezei
+ stx ezei+1
+ ldy #F_FCL+1
+ lda (fzei),y
+ tax
+ dey
+ lda (fzei),y
+ ldy #ezei
+ jsr snexcl ; und Folgecluster setzen
+ bcs ferr ; war nix
+ ldy #F_FCL+1
+ lda ezei+1
+ sta (fzei),y
+ dey
+ tax
+ lda ezei
+ sta (fzei),y
+ ldy #EOFCLUS
+ sty ezei+1
+ ldy #ezei
+ jsr snexcl ; der neue Cluster kriegt ein End Of File als Folgecluster
+ bcs ferr
+
+fok jsr xclrfsp ; FSEC=FPOS=0
+ clc
+ rts
+ferr sec
+ rts
+ .)
+
+&format .(
+ ; ldx PCBUF+FS_CMD_DRV
+ ; jsr setdzei
+ ldx drive
+ jsr dchanged
+ lda PCBUF+FS_CMD_PFAD
+ ldx drive
+ jsr DFORMAT
+ bcs ferr3
+
+#ifdef DEBUGFS
+lda #"f":jsr SEROUT
+lda drive:jsr HEXOUT
+lda dzei+1:jsr HEXOUT:lda dzei:jsr HEXOUT
+#endif
+ ldx drive
+ jsr GETDPB
+ bcs ferr3
+;jmp ferr2
+ ldy drive
+;.byt 2
+ jsr CLBUF
+ bcs ferr3
+ ldy #D_STC+1
+ lda (dzei),y
+ sta ezei+1
+ dey
+ lda (dzei),y
+ sta ezei
+
+#ifdef DEBUGFS
+.(
+lda #"c":jsr SEROUT
+lda dzei+1:jsr HEXOUT
+lda dzei:jsr HEXOUT
+lda ezei+1:jsr HEXOUT
+lda ezei:jsr HEXOUT
+.)
+#endif
+
+fwl sec
+ lda ezei
+ sbc #1
+ sta ezei
+ lda ezei+1
+ sbc #0
+ sta ezei+1
+ ora ezei
+ beq ffat
+
+ lda ezei
+ ldx ezei+1
+ sta ar2
+ stx ar2+1
+ lda #0
+ sta ar2+2
+ sta ar2+3
+ ldy drive
+ jsr W2BUF
+ferr3 bcs ferr2
+ bcc fwl
+
+ffat lda #<-1
+ sta ezei
+ sta ezei+1
+ ldy #ezei
+ lda #0
+ tax
+ jsr snexcl
+ bcs ferr2
+ lda #1
+ ldx #0
+ ldy #ezei
+ jsr snexcl
+ bcs ferr2
+ ldy drive
+ jsr CLBUF
+ bcs ferr2
+ sta ezei
+ stx ezei+1
+ ldy #FS_CMD_NAME
+;.byt 2
+ jsr fil2nam
+ lda #ATTR_DSK
+ sta fname+NAME_A
+ jsr nam2ezei
+ ldy #D_STD+1
+ lda (dzei),y
+ tax
+ dey
+ lda (dzei),y
+ sta ar2
+ stx ar2+1
+ lda #0
+ sta ar2+2
+ sta ar2+3
+ ldy drive
+ jsr W2BUF
+;.byt 2
+ bcs ferr2
+ ldy drive
+ jsr DWBUF
+ferr2 rts
+ .)
+
+ .)
+
+
diff --git a/dump/oa-2.0.9/sysapps/fs/fsibm/defs.a65 b/dump/oa-2.0.9/sysapps/fs/fsibm/defs.a65
new file mode 100644
index 0000000..50bc07f
--- /dev/null
+++ b/dump/oa-2.0.9/sysapps/fs/fsibm/defs.a65
@@ -0,0 +1,193 @@
+/****************************************************************************
+
+ OS/A65 Version 2.1.0
+ Multitasking Operating System for 6502 Computers
+
+ Copyright (C) 1989-1998 Andre Fachat
+
+ This program is free software; you can redistribute it and/or modify
+ it under the terms of the GNU General Public License as published by
+ the Free Software Foundation; either version 2 of the License, or
+ (at your option) any later version.
+
+ This program is distributed in the hope that it will be useful,
+ but WITHOUT ANY WARRANTY; without even the implied warranty of
+ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+ GNU General Public License for more details.
+
+ You should have received a copy of the GNU General Public License
+ along with this program; if not, write to the Free Software
+ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
+
+****************************************************************************/
+
+/* additional error codes */
+
+#define E_NOCLUS E_LASTERR
+#define E_ILLCLUS E_LASTERR-1
+#define E_Q E_LASTERR-2
+#define E_GT E_LASTERR-3
+#define E_RD E_LASTERR-4
+#define E_WR E_LASTERR-5
+#define E_CMD E_LASTERR-6
+#define E_FT E_LASTERR-7
+
+
+/*************************************************************************/
+
+#define ANZFILE 4
+#define ANZDRV 2
+#define ANZBUF (ANZDRV+ANZFILE)
+#define BUFLEN 512 /* 1024 */
+
+/* Data-structure on the IBM-diskette */
+/* Bootsector */
+
+#define BS_SERIAL 8
+#define BS_BPS 11 /* Byte per Sector */
+#define BS_SPC 13 /* Secs/Cluster */
+#define BS_RES 14 /* no of reserved blocks at disk start, incl. bootsector */
+#define BS_FAT 16 /* no of FATs */
+#define BS_DIR 17 /* number of directory entries in root directory */
+#define BS_SEC 19 /* total number of sectors */
+#define BS_MEDIA 21 /* Media-Byte */
+#define BS_SPF 22 /* Secs/FAT */
+#define BS_SPT 24 /* Secs/Track */
+#define BS_SIDE 26 /* no of Sides */
+#define BS_HID 28 /* no of Hidden Blocks */
+
+#define BS_SLEN 30
+
+/* Last cluster of a file in the FAT */
+
+#define EOFCLUS $ffff
+
+/* Directory-Entry */
+
+#define DE_NAME 0
+#define DE_EXT 8
+#define DE_ATTR 11
+#define DE_TIME 22
+#define DE_DATE 24
+#define DE_FCLUS 26
+#define DE_SIZE 28
+#define DE_SLEN 32
+
+/* Attribut-values */
+
+#define ATTR_WP 1
+#define ATTR_HID 2
+#define ATTR_SYS 4
+#define ATTR_DSK 8
+#define ATTR_DIR 16
+#define ATTR_CLSD 32
+
+/* Buffer-Parameter-Block for each buffer */
+
+#define B_DRV 0 /* drive */
+#define B_DIRT 1 /* dirty flag (see below) */
+#define B_SECTOR 2 /* sector (four byte) */
+#define B_SLEN 8 /* easier to compute than 6 */
+
+#define BD_FRE $ff /* buffer is free */
+#define BD_IFRE $fe /* dirty buffer that has not been saved */
+#define BD_OK 0 /* buffer valid */
+#define BD_DIRTY 1 /* buffer modified */
+
+/* File-Parameter-Block for each file */
+
+#define F_DRV 0 /* drive */
+#define F_FL 1 /* Flag */
+#define F_DCL 2 /* Cluster of Dir-Entry */
+#define F_DSEC 4 /* Dir-Sector in Cluster */
+#define F_DPOS 6 /* Position of Dir-Entry in sector */
+#define F_FCL 8 /* Cluster of file */
+#define F_FSEC 10 /* Sektor in Cluster */
+#define F_FPOS 12 /* Position in Sektor */
+#define F_LEN 14 /* Datei-Length in Byte */
+#define F_FZEI 18 /* long-pointer in file */
+#define F_STR 22 /* OS Stream */
+#define F_FSCL 23 /* first cluster of file (used for locking) */
+#define F_DLEN 25 /* length of saved filemask */
+#define F_DOUT 26 /* state of directory read */
+#define F_DMASK 27 /* mask for reading directory */
+#define F_FT 27+11 /* OS FS_DIR_* struct to send */
+
+/* 27+11+FS_DIR_NAME+13=62 ; Name plus . and Nullbyte are 13 */
+#define F_SLEN 64
+
+/* file parameter block flag values */
+#define FF_FRE $ff /* file parameter block is free */
+#define FF_RD 0 /* open for reading */
+#define FF_WR 1 /* open for writing */
+#define FF_DR 2 /* reading directory */
+
+/* Drive-Parameter-Block */
+
+#define D_ST 0
+#define D_BFLAG 1 /* 0=12 Bit-FAT, 1=16Bit-FAT */
+#define D_BPS 2 /* Byte per Sektor */
+#define D_SPC 4 /* Sektor per Cluster */
+#define D_CLUS 6 /* Clusters on Disk+2 (2 byte) */
+#define D_FPD 8 /* FATs pro Diskette */
+#define D_SPF 10 /* Sektors per FAT */
+#define D_SPD 12 /* Sektors per Main-Dir */
+#define D_STD 14 /* Start of Main-Dir in Sekt. */
+#define D_STC 16 /* Start of first Datacluster.*/
+#define D_SPTS 18 /* (Sektoren/Track)*Seiten = sec/cyclinder */
+#define D_SPT 20 /* Sektors per Track */
+#define D_STF 22 /* Start of first FAT */
+#define D_SECS 24 /* Sektors on the disk (4 byte) */
+
+#define D_SLEN 32 /* room for extensions... */
+
+#define DS_INV $ff
+#define DS_OK 0
+
+/*
+ Sektor =Cluster*SPC+SektorInCluster+STC
+ except if Cluster=0 then
+ Sektor =SektorInCluster+STD
+
+ Zylinder=Sektor/SPTS
+ Side=(Sektor mod SPTS)/SPT
+ SektorInTrack=((Sektor mod SPTS) mod SPT)
+*/
+
+/* Struktur fname */
+
+#define NAME_N 0
+#define NAME_E 8
+#define NAME_A 11
+#define NAME_SLEN 12
+
+/* Parameter for calling RWSEC */
+
+#define RW_DRV 0
+#define RW_SIDE 1
+#define RW_SECTOR 2 /* 4 byte */
+/*
+#define RW_TRCK 2
+#define RW_SEC 4
+*/
+#define RW_ADR 6
+#define RW_SLEN 8
+
+/* Parameter for calling RWABS */
+
+#define ABS_DRV 0
+#define ABS_FL 1
+#define ABS_SEC 2
+#define ABS_SLEN 6
+
+/* Parameter for calling DFORMAT */
+
+#define FMT_VIRG 0
+#define FMT_SIDES 1
+#define FMT_TRCKS 2
+#define FMT_HDFL 3
+#define FMT_BLEN 4
+#define FMT_SCLST 5 /* Anzahl Sektoren+1, sekt1, sekt2, sekt3... */
+
+
+
diff --git a/dump/oa-2.0.9/sysapps/fs/fsibm/drive.a65 b/dump/oa-2.0.9/sysapps/fs/fsibm/drive.a65
new file mode 100644
index 0000000..893ad88
--- /dev/null
+++ b/dump/oa-2.0.9/sysapps/fs/fsibm/drive.a65
@@ -0,0 +1,288 @@
+/****************************************************************************
+
+ OS/A65 Version 2.1.0
+ Multitasking Operating System for 6502 Computers
+
+ Copyright (C) 1989-1998 Andre Fachat
+
+ This program is free software; you can redistribute it and/or modify
+ it under the terms of the GNU General Public License as published by
+ the Free Software Foundation; either version 2 of the License, or
+ (at your option) any later version.
+
+ This program is distributed in the hope that it will be useful,
+ but WITHOUT ANY WARRANTY; without even the implied warranty of
+ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+ GNU General Public License for more details.
+
+ You should have received a copy of the GNU General Public License
+ along with this program; if not, write to the Free Software
+ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
+
+****************************************************************************/
+
+
+/* handles the internal Drive parameter block tables
+ *
+ * Exports:
+ * bootdpb read the boot sector and fill in the DPB
+ */
+
+ .(
+ .zero
+zei .word 0
+ .text
+
+&boot2dpb .(
+ ldy #D_ST
+ lda (dzei),y
+ bne get
+ clc
+ rts
+get lda #DS_INV
+ sta (dzei),y
+#ifdef DEBUGFS
+lda #"g":jsr SEROUT
+lda drive:jsr HEXOUT
+#endif
+ ldy drive
+ lda #0
+ sta ar2
+ sta ar2+1
+ sta ar2+2
+ sta ar2+3
+ jsr RDBUF
+ bcc g1
+ rts
+g1 ldx drive
+ jsr setpadr
+ sta zei
+ stx zei+1
+
+ /* bytes per sector */
+ ldy #BS_BPS+1
+ lda (zei),y
+ tax
+ dey
+ lda (zei),y
+ ldy #D_BPS
+ sta (dzei),y
+ iny
+ txa
+ sta (dzei),y
+
+ /* sectors per cluster */
+ ldy #BS_SPC
+ lda (zei),y
+ ldy #D_SPC
+ sta (dzei),y
+ iny
+ lda #0
+ sta (dzei),y
+
+ /* reserved blocks -> start of FAT */
+ ldy #BS_RES+1
+ lda (zei),y
+ tax
+ dey
+ lda (zei),y
+ ldy #D_STF
+ sta (dzei),y
+ iny
+ txa
+ sta (dzei),y
+
+ /* sectors per track */
+ ldy #BS_SPT+1
+ lda (zei),y
+ sta ar1+1
+ tax
+ dey
+ lda (zei),y
+ sta ar1
+ ldy #D_SPT
+ sta (dzei),y
+ iny
+ txa
+ sta (dzei),y
+
+ /* sec/tr * sieds -> sectors per cylinder */
+ ldy #BS_SIDE+1
+ lda (zei),y
+ tax
+ dey
+ lda (zei),y
+ jsr mult
+ bcs gerr2
+ ldy #D_SPTS
+ sta (dzei),y
+ iny
+ txa
+ sta (dzei),y
+
+ /* total numbers of sector */
+ ldy #BS_SEC+1
+ lda (zei),y
+ tax
+ dey
+ lda (zei),y
+ ldy #D_SECS
+ sta (dzei),y
+ iny
+ txa
+ sta (dzei),y
+
+#ifdef FSIBM_SECTOR24BIT
+ ldy #BS_SEC+2 /* "misuse" MEDIA byte */
+ lda (zei),y
+#else
+ lda #0
+#endif
+ ldy #D_SECS+2
+ sta (dzei),y
+ iny
+ lda #0
+ sta (dzei),y
+
+ /* number of FATs -> FAT/disk */
+ ldy #BS_FAT
+ lda (zei),y
+ ldy #D_FPD
+ sta (dzei),y
+ iny
+ lda #0
+ sta (dzei),y
+
+ /* sec / fat */
+ ldy #BS_SPF+1
+ lda (zei),y
+ tax
+ dey
+ lda (zei),y
+ ldy #D_SPF
+ sta (dzei),y
+ iny
+ txa
+ sta (dzei),y
+
+ /* number of dir entries in main dir * 32 / BPS -> sectors for dir */
+ ldy #BS_DIR+1
+ lda (zei),y
+ sta ar1+1
+ dey
+ lda (zei),y
+ sta ar1
+ lda #32
+ ldx #0
+ jsr mult
+ bcs gerrx
+ sta ar1
+ stx ar1+1
+ ldy #D_BPS+1
+ lda (dzei),y
+ tax
+ dey
+ lda (dzei),y
+ jsr div
+gerr2 bcs gerrx
+ ldy #D_SPD
+ sta (dzei),y
+ iny
+ txa
+ sta (dzei),y
+
+ /* sec/fat * fat/disk + start of FAT + sec/dir -> first data cl. */
+ ldy #D_SPF
+ lda (dzei),y
+ sta ar1
+ iny
+ lda (dzei),y
+ sta ar1+1
+ ldy #D_FPD+1
+ lda (dzei),y
+ tax
+ dey
+ lda (dzei),y
+ jsr mult
+gerrx bcs gerry
+ ldy #D_STF
+ adc (dzei),y
+ pha
+ iny
+ txa
+ adc (dzei),y
+ tax
+ ldy #D_STD+1
+ sta (dzei),y
+ dey
+ pla
+ sta (dzei),y
+ clc
+ ldy #D_SPD
+ adc (dzei),y
+ pha
+ iny
+ txa
+ adc (dzei),y
+ ldy #D_STC+1
+ sta (dzei),y
+ dey
+ pla
+ sta (dzei),y
+
+ /* (#sectors - first sector) / sec/cluster + 2 -> #clusters */
+ ldy #D_SECS+1
+ lda (dzei),y
+ tax
+ dey
+ lda (dzei),y
+ ldy #D_STC
+ sec
+ sbc (dzei),y
+ sta ar1
+ txa
+ iny
+ sbc (dzei),y
+ sta ar1+1
+ ldy #D_SECS+2
+ lda (dzei),y
+ sbc #0
+ sta ar1+2
+ iny
+ lda (dzei),y
+ sbc #0
+ sta ar1+3
+
+ ldy #D_SPC+1
+ lda (dzei),y
+ tax
+ dey
+ lda (dzei),y
+ jsr div32
+gerry bcs gerr
+ tay
+ lda ar3+2
+ ora ar3+3
+ bne gerr /* number of clusters must be 2 byte */
+ tya
+ clc
+ adc #2
+ bcc g2
+ inx
+ beq gerr /* number of clusters must be 2 byte */
+g2 ldy #D_CLUS
+ sta (dzei),y
+ iny
+ txa
+ sta (dzei),y
+
+ clc
+ rts
+gerr lda #E_ILLPAR
+ sec
+ rts
+ .)
+
+ .)
+
+
diff --git a/dump/oa-2.0.9/sysapps/fs/fsibm/drv_ramd1.a65 b/dump/oa-2.0.9/sysapps/fs/fsibm/drv_ramd1.a65
new file mode 100644
index 0000000..029e1db
--- /dev/null
+++ b/dump/oa-2.0.9/sysapps/fs/fsibm/drv_ramd1.a65
@@ -0,0 +1,170 @@
+/****************************************************************************
+
+ OS/A65 Version 2.1.0
+ Multitasking Operating System for 6502 Computers
+
+ Copyright (C) 1989-1998 Andre Fachat
+
+ This program is free software; you can redistribute it and/or modify
+ it under the terms of the GNU General Public License as published by
+ the Free Software Foundation; either version 2 of the License, or
+ (at your option) any later version.
+
+ This program is distributed in the hope that it will be useful,
+ but WITHOUT ANY WARRANTY; without even the implied warranty of
+ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+ GNU General Public License for more details.
+
+ You should have received a copy of the GNU General Public License
+ along with this program; if not, write to the Free Software
+ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
+
+****************************************************************************/
+
+/* linear ramdisk driver */
+
+/*
+ * Driver for a simple RAM disk. You write side, track and sector
+ * into three memory locations and the corresponding sector is
+ * mapped to another memory location. There is can be read or written.
+ *
+ * Exports
+ *
+ * DLOOP
+ * DINIT
+ * RWSEC
+ * DFORMAT
+ * GETDPB
+ *
+ * Imports (calls):
+ *
+ * dchanged
+ *
+ */
+
+#define RAMD_DRV $e870
+#define RAMD_SECTOR $e871 /* 3 byte */
+
+#define RAMD_DATA $ec00
+
+ .(
+
+ .zero
+zei .word 0
+zeid .word 0
+ .text
+
+&DLOOP rts ; not needed
+
+INVDPB .( ; x ist Drive
+ txa
+ jsr setdzei
+ ldy #D_ST
+ lda #DS_INV
+ sta (dzei),y
+ clc
+ rts
+ .)
+
+&DINIT clc ; oh, what shall we do....
+ ldx #0
+il stx zei
+ jsr INVDPB
+ ldx zei
+ inx
+ cpx #ANZDRV
+ bcc il
+ clc
+ rts
+
+&DFORMAT
+ ldx drive
+ jsr INVDPB
+ clc
+ rts
+ rts
+
+&GETDPB
+ cpx #1
+ bcs illpar
+ jsr boot2dpb
+ ldy #D_ST
+ lda #DS_OK
+ sta (dzei),y
+ ldy #D_BFLAG
+ lda #0 ; 0 -> 12 bit FAT
+ sta (dzei),y
+ clc
+ rts
+illpar lda #E_ILLPAR
+ sec
+ rts
+
+&RWSEC
+ php
+ sta zei
+ sty zei+1
+
+ ldy #RW_ADR
+ lda (zei),y
+ sta zeid
+ iny
+ lda (zei),y
+ sta zeid+1
+
+ ldy #RW_DRV
+ lda (zei),y
+; bne notimp
+ sta RAMD_DRV
+ ldy #RW_SECTOR
+ lda (zei),y
+ sta RAMD_SECTOR
+ iny
+ lda (zei),y
+ sta RAMD_SECTOR+1
+ iny
+ lda (zei),y
+ sta RAMD_SECTOR+2
+ iny
+ lda (zei),y
+ bne rwerr
+
+ plp
+ bcs write
+
+read .(
+ ldy #0
+rl1 lda RAMD_DATA,y
+ sta (zeid),y
+ iny
+ bne rl1
+ inc zeid+1
+rl2 lda RAMD_DATA + $100,y
+ sta (zeid),y
+ iny
+ bne rl2
+ clc
+ rts
+ .)
+
+write .(
+ ldy #0
+rl1 lda (zeid),y
+ sta RAMD_DATA,y
+ iny
+ bne rl1
+ inc zeid+1
+rl2 lda (zeid),y
+ sta RAMD_DATA + $100,y
+ iny
+ bne rl2
+ clc
+ rts
+ .)
+
+rwerr plp
+ sec
+ rts
+ .)
+
+
diff --git a/dump/oa-2.0.9/sysapps/fs/fsibm/drv_ramd2.a65 b/dump/oa-2.0.9/sysapps/fs/fsibm/drv_ramd2.a65
new file mode 100644
index 0000000..de3378f
--- /dev/null
+++ b/dump/oa-2.0.9/sysapps/fs/fsibm/drv_ramd2.a65
@@ -0,0 +1,259 @@
+/****************************************************************************
+
+ OS/A65 Version 2.1.0
+ Multitasking Operating System for 6502 Computers
+
+ Copyright (C) 1989-1998 Andre Fachat
+
+ This program is free software; you can redistribute it and/or modify
+ it under the terms of the GNU General Public License as published by
+ the Free Software Foundation; either version 2 of the License, or
+ (at your option) any later version.
+
+ This program is distributed in the hope that it will be useful,
+ but WITHOUT ANY WARRANTY; without even the implied warranty of
+ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+ GNU General Public License for more details.
+
+ You should have received a copy of the GNU General Public License
+ along with this program; if not, write to the Free Software
+ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
+
+****************************************************************************/
+
+/* drv/track/sector driver ramdisk */
+
+/*
+ * Driver for a simple RAM disk. You write side, track and sector
+ * into three memory locations and the corresponding sector is
+ * mapped to another memory location. There is can be read or written.
+ *
+ * Exports
+ *
+ * DLOOP
+ * DINIT
+ * RWSEC
+ * DFORMAT
+ * GETDPB
+ *
+ * Imports (calls):
+ *
+ * dchanged
+ *
+ */
+
+#define RAMD_DRV $e870
+#define RAMD_SIDE $e871
+#define RAMD_TRACK $e872
+#define RAMD_SEC $e873
+
+#define RAMD_DATA $ec00
+
+ .(
+
+ .zero
+zei .word 0
+zeid .word 0
+ddzei .word 0
+ .text
+
+&DLOOP rts ; not needed
+
+#if D_SLEN=32
+setddzei /* AC=Drv-Nr */
+ asl
+ asl
+ asl
+ asl
+ asl
+ clc
+ adc #dpb
+ sta ddzei+1
+ clc
+ rts
+#endif
+
+sec2rw .(
+ ldy #RW_DRV
+ lda (zei),y
+ jsr setddzei
+
+ ldy #RW_TRCK+1
+ lda (zei),y
+ sta ar1+1
+ dey
+ lda (zei),y
+ sta ar1
+ ora ar1+1
+ bne notboot
+
+ ;lda #0
+ ldy #RW_SIDE
+s2rl sta (zei),y
+ iny
+ cpy #RW_ADR
+ bcc s2rl
+ ldy #RW_SEC
+ lda #1
+ sta (zei),y
+ clc
+ rts
+
+notboot ldy #D_SECS+1
+ txa
+ cmp (ddzei),y
+ bcc sok
+ bne serr
+ dey
+ lda ar1
+ cmp (ddzei),y
+ bcs serr
+sok
+ ldy #D_SPTS+1
+ lda (ddzei),y
+ tax
+ dey
+ lda (ddzei),y
+ jsr div
+ bcs serr
+ ldy #RW_TRCK
+ sta (zei),y
+ iny
+ txa
+ sta (zei),y
+ ldy #D_SPT+1
+ lda (ddzei),y
+ tax
+ dey
+ lda (ddzei),y
+ jsr div
+ bcs serr
+ ldy #RW_SIDE
+ sta (zei),y
+ txa
+ bne serr
+ clc
+ lda ar1
+ adc #1
+ ldy #RW_SEC
+ sta (zei),y
+ iny
+ lda ar1+1
+ adc #0
+ sta (zei),y
+ rts
+serr sec
+ rts
+ .)
+
+INVDPB .( ; x ist Drive
+ txa
+ jsr setdzei
+ ldy #D_ST
+ lda #DS_INV
+ sta (dzei),y
+ clc
+ rts
+ .)
+
+&DINIT clc ; oh, what shall we do....
+ ldx #0
+il stx zei
+ jsr INVDPB
+ ldx zei
+ inx
+ cpx #ANZDRV
+ bcc il
+ clc
+ rts
+
+&DFORMAT
+ ldx drive
+ jsr INVDPB
+ clc
+ rts
+ rts
+
+&GETDPB
+ cpx #1
+ bcs illpar
+ jsr boot2dpb
+ ldy #D_ST
+ lda #DS_OK
+ sta (dzei),y
+ ldy #D_BFLAG
+ lda #0 ; 0 -> 12 bit FAT
+ sta (dzei),y
+ clc
+ rts
+
+illpar lda #E_ILLPAR
+ sec
+ rts
+
+&RWSEC
+ php
+ sta zei
+ sty zei+1
+
+ jsr sec2rw
+
+ ldy #RW_ADR
+ lda (zei),y
+ sta zeid
+ iny
+ lda (zei),y
+ sta zeid+1
+
+ ldy #RW_DRV
+ lda (zei),y
+ sta RAMD_DRV
+ ldy #RW_TRCK
+ lda (zei),y
+ sta RAMD_TRACK
+ ldy #RW_SIDE
+ lda (zei),y
+ sta RAMD_SIDE
+ ldy #RW_SEC
+ lda (zei),y
+ sta RAMD_SEC
+
+ plp
+ bcs write
+
+read .(
+ ldy #0
+rl1 lda RAMD_DATA,y
+ sta (zeid),y
+ iny
+ bne rl1
+ inc zeid+1
+rl2 lda RAMD_DATA + $100,y
+ sta (zeid),y
+ iny
+ bne rl2
+ clc
+ rts
+ .)
+
+write .(
+ ldy #0
+rl1 lda (zeid),y
+ sta RAMD_DATA,y
+ iny
+ bne rl1
+ inc zeid+1
+rl2 lda (zeid),y
+ sta RAMD_DATA + $100,y
+ iny
+ bne rl2
+ clc
+ rts
+ .)
+
+ .)
+
+
diff --git a/dump/oa-2.0.9/sysapps/fs/fsibm/file.a65 b/dump/oa-2.0.9/sysapps/fs/fsibm/file.a65
new file mode 100644
index 0000000..ec0453f
--- /dev/null
+++ b/dump/oa-2.0.9/sysapps/fs/fsibm/file.a65
@@ -0,0 +1,944 @@
+/****************************************************************************
+
+ OS/A65 Version 2.1.0
+ Multitasking Operating System for 6502 Computers
+
+ Copyright (C) 1989-1998 Andre Fachat
+
+ This program is free software; you can redistribute it and/or modify
+ it under the terms of the GNU General Public License as published by
+ the Free Software Foundation; either version 2 of the License, or
+ (at your option) any later version.
+
+ This program is distributed in the hope that it will be useful,
+ but WITHOUT ANY WARRANTY; without even the implied warranty of
+ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+ GNU General Public License for more details.
+
+ You should have received a copy of the GNU General Public License
+ along with this program; if not, write to the Free Software
+ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
+
+****************************************************************************/
+
+
+ .(
+ .zero
+rwzei .word 0
+ .text
+
+&INIFPB .(
+ ldx #0
+i1 jsr setfzei
+ ldy #F_FL
+ lda #FF_FRE
+ sta (fzei),y
+ inx
+ cpx #ANZFILE
+ bcc i1
+ clc
+ rts
+ .)
+
+&suchfile .(
+ ldx #0
+s1 jsr setfzei
+ ldy #F_FL
+ lda (fzei),y
+ bmi found
+ inx
+ cpx #ANZFILE
+ bcc s1
+ lda #E_FNOFIL
+ ;rts
+found ;ldy fpuffer
+ ;jsr FRBUF
+ rts
+ .)
+
+&IDFIL .(
+ stx ar1
+ ldx #0
+i1 jsr setfzei
+
+ ldy #F_DRV
+ lda (fzei),y
+ cmp ar1
+ bne i2
+ ldy #F_FL
+ lda (fzei),y
+ bmi i2
+ cmp #FF_RD
+ bne i3
+ jsr clsrd
+ jmp i2
+i3 cmp #FF_WR
+ bne i4
+ jsr clswrx
+ jmp i2
+i4 cmp #FF_DR
+ bne i2
+ jsr clsdr ; das gleiche wie bei read
+
+i2 ldx file
+ inx
+ cpx #ANZFILE
+ bcc i1
+ clc
+ rts
+ .)
+
+&tstlocked .(
+xfile =ar1
+xdrv =ar1+1
+cl =ar2
+xfl2 =ar3
+
+ ldx #0 ; c=0 testet ob file zum schreiben offen ist
+ bcc tl1
+ ldx #1 ; c=1 testet ob file ueberhaupt offen ist
+tl1 stx xfl2
+ lda file ; neues file merken
+ sta xfile
+
+ ldy #F_DRV
+ lda (fzei),y
+ sta xdrv ; drive merken
+ ldy #F_FSCL
+ lda (fzei),y
+ sta cl ; und startcluster
+ iny
+ lda (fzei),y
+ sta cl+1
+#ifdef SHOWL
+ lda #"t"
+ jsr SEROUT
+#endif
+ ldx #0 ; start test mit file = 0
+tll stx file
+ cpx xfile ; ist neues file
+ beq next ; dann weiter
+ jsr setfzei ; fzei setzen
+#ifdef SHOWL
+ lda #"x"
+ jsr SEROUT
+#endif
+ ldy #F_FL
+ lda (fzei),y
+ bmi next ; file nicht offen dann weiter
+ ldy #F_DRV
+ lda xdrv
+ cmp (fzei),y
+ bne next ; drive nicht gleich dann weiter
+ ldy #F_FSCL
+ lda cl
+ cmp (fzei),y
+ bne next ; startcluster nicht gleich dann weiter
+ lda cl+1
+ iny
+ cmp (fzei),y
+ beq fnd ; ist gleich dann gefunden
+next
+#ifdef SHOWL
+ lda #"n"
+ jsr SEROUT
+#endif
+ ldx file
+ inx ; naechstes file testen
+ cpx #ANZFILE
+ bcc tll ; nicht zuende dann loop
+ ldx xfile ; zeiger fuer neues file setzen
+ jsr setfzei
+ clc ; alles ok
+ rts
+fnd
+#ifdef SHOWL
+ lda #"f"
+ jsr SEROUT
+ lda file
+ jsr HEXOUT
+#endif
+ ldx xfl2 ; auf ueberhaupt offen testen
+ bne err ; ja dann error
+ ldy #F_FL
+ lda (fzei),y
+ cmp #FF_RD ; file ist nur zum lesen offen
+ beq next ; dann doch weiter
+err
+#ifdef SHOWL
+ lda #"l"
+ jsr SEROUT
+ lda #"o"
+ jsr SEROUT
+#endif
+ ldx xfile
+ jsr setfzei
+ lda #E_FLOCKED
+ sec
+ rts
+ .)
+
+&inidrv .(
+ jsr suchfile
+ bcs oerr
+ lda PCBUF+FS_OPEN_DRV
+ ldy #F_DRV
+ sta (fzei),y
+ tax
+ jsr GETDPB
+oerr rts
+ .)
+
+&openow .(
+ jsr inidrv
+ bcs oerrx
+ lda PCBUF+FS_OPEN_STR
+ ldy #F_STR
+ sta (fzei),y
+ lda #ATTR_CLSD
+ ldy #FS_OPEN_NAME
+ jsr findfile
+ bcc x1
+ jmp openwr
+x1 sec
+ jsr tstlocked
+ bcs oerrx
+ jsr d2f
+ jsr cl2sec
+ bcs oerrx
+ ldy fpuffer
+ jsr RDBUF
+ bcs oerrx
+ jsr xadbufpos
+ sta rwzei
+ stx rwzei+1
+ ldy fpuffer
+ jsr MDBUF
+ ldy #DE_SIZE
+ lda #0
+ sta (rwzei),y
+ iny
+ sta (rwzei),y
+ iny
+ sta (rwzei),y
+ iny
+ sta (rwzei),y
+ ldy #DE_FCLUS+1
+ lda (rwzei),y
+ tax
+ lda #<-1
+ sta (rwzei),y
+ dey
+ lda (rwzei),y
+ pha
+ lda #<-1
+ sta (rwzei),y
+ pla
+ jsr dloop
+ bcs oerr1
+oerrx bcs oerr
+ jsr sfclus
+ bcs oerr1
+ ldy #DE_FCLUS
+ sta (rwzei),y
+ ldy #F_FCL
+ sta (fzei),y
+ iny
+ txa
+ sta (fzei),y
+ ldy #DE_FCLUS+1
+ sta (rwzei),y
+ jsr xfcl2fscl
+ jsr xclrfsp
+ ldy drive
+ jsr DWBUF
+oerr1 pha
+ php
+ ldy fpuffer
+ jsr WABUF
+ bcs xo
+ plp
+ pla
+ bcc opw
+ .byt $2c
+xo plp
+ pla
+oerr sec
+ jmp xfrebuf
+ .)
+
+&openwr .(
+ jsr inidrv
+ bcs oerr
+ lda PCBUF+FS_OPEN_STR
+ ldy #F_STR
+ sta (fzei),y
+ lda #ATTR_CLSD
+ ldy #FS_OPEN_NAME
+ jsr setfile
+ bcs oerr
+&opw lda #FF_WR
+ ldy #F_FL
+ sta (fzei),y
+ clc
+ rts
+oerr sec
+ jmp xfrebuf
+ .)
+
+&opendr .(
+ jsr inidrv
+ bcs oerr
+ lda PCBUF+FS_OPEN_STR
+ ldy #F_STR
+ sta (fzei),y
+
+ lda #0
+ sta rwzei
+ ldy #FS_OPEN_NAME-1
+od1 iny
+ lda PCBUF,y
+ beq od2
+ cmp #DIRSIGN
+ bne od1
+ sty rwzei
+ beq od1
+od2 lda #0
+ ldy rwzei
+ beq nonam
+ sta PCBUF,y
+
+ lda #ATTR_DIR
+ ldy #FS_OPEN_NAME
+ ldx #0
+ jsr findfile
+ bcc ok
+ cmp #E_FNOFIL
+ bne oerr
+nonam jsr xclrf
+ jsr f2d
+ok
+ ldy rwzei
+ bne a2
+ ldy #FS_OPEN_NAME-1
+a2 iny
+ lda PCBUF,y
+ beq all
+ jsr xfil2nam
+ ldx #0
+ ldy #F_DMASK
+o1 lda fname,x
+ sta (fzei),y
+ iny
+ inx
+ cpx #NAME_A
+ bcc o1
+ bcs weiter
+all ldy #F_DMASK
+a1 lda fall-F_DMASK,y
+ beq weiter
+ sta (fzei),y
+ iny
+ bne a1
+weiter
+ lda #0
+ ldy #F_DLEN
+ sta (fzei),y
+ ldy #F_DOUT
+ sta (fzei),y
+ lda #FS_DIR_MOD_FIL
+ ldy #F_FT+FS_DIR_MODE
+ sta (fzei),y
+ ldy #F_FL
+ lda #FF_DR
+ sta (fzei),y
+ clc
+ rts
+oerr sec
+ jmp xfrebuf
+
+fall .asc "* * ",0
+ .)
+
+&openrd .(
+ jsr inidrv
+ bcs oerr
+ lda PCBUF+FS_OPEN_STR
+ ldy #F_STR
+ sta (fzei),y
+ lda #ATTR_CLSD
+ ldy #FS_OPEN_NAME
+ ldx #0
+ jsr findfile
+ bcs oerr
+ ;clc
+ jsr tstlocked
+ bcs oerr
+ jsr tstsize
+ bcc oset
+ ldx PCBUF+FS_OPEN_STR
+ lda #SC_EOF
+ jsr STRCMD
+ rts ; E_OK bei L�nge = 0
+oset lda #FF_RD
+ ldy #F_FL
+ sta (fzei),y
+ clc
+oerr jmp xfrebuf
+ .)
+
+&fileloop .(
+ .data
+cnt .byt 0
+fcnt .byt 0
+ .text
+
+ ldx #0
+ stx fcnt
+loop stx cnt
+ jsr setfzei
+ ldy #F_FL
+ lda (fzei),y
+ bmi next
+ inc fcnt ; count number of open files
+ cmp #FF_RD
+ bne l1
+ jsr xfread
+ jmp next
+l1 cmp #FF_WR
+ bne l2
+ jsr xfwrite
+ jmp next
+l2 cmp #FF_DR
+ bne next
+ jsr fdir
+next ldx cnt
+ inx
+ cpx #ANZFILE
+ bcc loop
+ lda fcnt ; und mit z-Flag �bergeben
+ rts
+ .)
+
+xfread .(
+ ldy #F_DRV
+ lda (fzei),y
+ tax
+ jsr GETDPB
+ bcs clsrd
+rdloop jsr cl2sec
+ bcs clsrd
+ ldy fpuffer
+ jsr RDBUF
+ jsr xadbufpos
+ sta rwzei
+ stx rwzei+1
+
+bloop ldy #F_STR
+ lda (fzei),y
+ tax
+ ldy #0
+ lda (rwzei),y
+ jsr PUTC
+ bcc nextb
+ cmp #E_NUL
+ beq clsrd
+ rts
+nextb ldy #F_FZEI
+ lda #1
+ clc
+ adc (fzei),y
+ sta (fzei),y
+ iny
+ lda #0
+ adc (fzei),y
+ sta (fzei),y
+ iny
+ lda #0
+ adc (fzei),y
+ sta (fzei),y
+ iny
+ lda #0
+ adc (fzei),y
+ sta (fzei),y
+
+ jsr tstsize
+ bcc n1
+
+&clsrd ldy fpuffer
+ jsr FRBUF
+ ldy #F_STR
+ lda (fzei),y
+ tax
+ lda #SC_EOF
+ jsr STRCMD
+ ldy #F_FL
+ lda #FF_FRE
+ sta (fzei),y
+ rts
+
+n1 lda #1
+ jsr xadfpos ; x=lo a=hi neue pos
+ bcs nextsec
+
+ inc rwzei
+ bne f2
+ inc rwzei+1
+f2 jmp bloop
+
+nextsec jsr snext
+ bcs clsrd
+ jsr xclrfpos
+ jmp rdloop
+ .)
+
+tstsize .(
+ ldy #F_FZEI+3
+ lda (fzei),y
+ ldy #F_LEN+3
+ cmp (fzei),y
+ bcc n1
+ bne clsrdx
+ dey
+ lda (fzei),y
+ ldy #F_FZEI+2
+ cmp (fzei),y
+ bcc clsrdx
+ bne n1
+ dey
+ lda (fzei),y
+ ldy #F_LEN+1
+ cmp (fzei),y
+ bcc n1
+ bne clsrdx
+ dey
+ lda (fzei),y
+ ldy #F_FZEI
+ cmp (fzei),y
+ bcc clsrdx
+ bne n1
+clsrdx sec
+ rts
+n1 clc
+ rts
+ .)
+
+xfwrite .(
+ ldy #F_DRV
+ lda (fzei),y
+ tax
+ jsr GETDPB
+ bcs clswrx
+sloop jsr xadbufpos
+ sta rwzei
+ stx rwzei+1
+
+bloop ldy #F_STR
+ lda (fzei),y
+ tax
+ jsr GETC
+ bcc bytok
+ cmp #E_EOF
+ bne wrts
+clswr jsr cl2sec
+ bcs clswrx
+ ldy fpuffer
+ jsr W1BUF
+ jsr d2f
+ jsr cl2sec
+ bcs clswrx
+ ldy fpuffer
+ jsr RDBUF
+ jsr xadbufpos
+ sta rwzei
+ stx rwzei+1
+ ldy #F_LEN+1
+ lda (fzei),y
+ tax
+ dey
+ lda (fzei),y
+ ldy #DE_SIZE
+ sta (rwzei),y
+ iny
+ txa
+ sta (rwzei),y
+ ldy #F_LEN+3
+ lda (fzei),y
+ tax
+ dey
+ lda (fzei),y
+ ldy #DE_SIZE+2
+ sta (rwzei),y
+ iny
+ txa
+ sta (rwzei),y
+ ldy fpuffer
+ jsr WABUF
+ ldy drive
+ jsr DWBUF
+&clswrx ldy fpuffer
+ jsr FRBUF
+ ldy #F_FL
+ lda #FF_FRE
+ sta (fzei),y
+ ldy #F_STR
+ lda (fzei),y
+ tax
+ lda #SC_NUL
+ jsr STRCMD
+wrts clc
+ rts
+bytok ldy #0 ; Byte empfangen
+ sta (rwzei),y
+
+ lda #1 ; Dateil�nge um eins erh�hen
+ clc
+ ldy #F_LEN
+ adc (fzei),y
+ sta (fzei),y
+ iny
+ lda #0
+ adc (fzei),y
+ sta (fzei),y
+ iny
+ lda #0
+ adc (fzei),y
+ sta (fzei),y
+ iny
+ lda #0
+ adc (fzei),y
+ sta (fzei),y
+ lda #1 ; FPOS+=1
+ jsr xadfpos
+ bcs nexsec ; Ende des Sektors erreicht?
+
+ inc rwzei
+ bne r1
+ inc rwzei+1
+r1 jmp bloop
+
+nexsec jsr cl2sec ; FCL,FSEC nach a/x
+ bcs clswry
+ ldy fpuffer
+ jsr W1BUF ; Puffer schreiben
+ bcs clswry
+ jsr xclrfpos ; FPOS l�schen
+ lda #1 ; FSEC +=1
+ ldy #F_FSEC
+ clc
+ adc (fzei),y
+ sta (fzei),y
+ tax
+ iny
+ lda #0
+ adc (fzei),y
+ sta (fzei),y
+ ldy #D_SPC+1 ; Ende des Clusters erreicht?
+ cmp (dzei),y
+ bcc r2
+ bne fex
+ dey
+ txa
+ cmp (dzei),y
+ bcc r2 ; nein dann r2
+fex jsr fextend ; Datei erweitern
+ bcs clswry
+r2 jmp sloop
+clswry jmp clswr
+ .)
+
+convert .(
+ ldy #DE_NAME
+ lda (rwzei),y
+ beq cerr
+ cmp #$e5
+ bne cok
+cerr sec
+ rts
+
+cok ldy #DE_ATTR
+ lda (rwzei),y
+ tax
+ and #$10
+ bne cdir
+ txa
+ and #8
+ bne cnam
+ lda #FS_DIR_MOD_FIL
+ .byt $2c
+cnam lda #FS_DIR_MOD_NAM
+ .byt $2c
+cdir lda #FS_DIR_MOD_DIR
+ ldy #F_FT+FS_DIR_MODE
+ sta (fzei),y
+ cmp #FS_DIR_MOD_NAM
+ beq ok
+
+ ldy #DE_NAME
+ sty ar1
+ ldy #F_DMASK
+ sty ar2
+ ldx #0
+tl ldy ar2
+ lda (fzei),y
+ cmp #"*"
+ beq tnok
+ cmp #"?"
+ beq tnn
+ ldy ar1
+ cmp (rwzei),y
+ bne ende1
+tnn inc ar1
+ inc ar2
+ inx
+ cpx #8
+ bcc tl
+tnok ldy #DE_EXT
+ sty ar1
+ ldy #F_DMASK+8
+ sty ar2
+ ldx #0
+tel ldy ar2
+ lda (fzei),y
+ cmp #"*"
+ beq ok
+ cmp #"?"
+ beq ten
+ ldy ar1
+ cmp (rwzei),y
+ bne ende1
+ten inc ar1
+ inc ar2
+ inx
+ cpx #3
+ bcc tel
+ bcs ok
+ende1 lda #<-1
+ sec
+ rts
+
+ok ldy #DE_NAME
+ sty ar1
+ ldy #F_FT+FS_DIR_NAME
+ sty ar2
+ ldx #0
+ stx ar3
+cnl ldy ar1
+ lda (rwzei),y
+ inc ar1
+ ldy ar2
+ sta (fzei),y
+ inc ar2
+ cmp #0
+ beq cnle
+ cmp #"."
+ bne cnl2
+ sta ar3
+cnl2 inx
+ cpx #8
+ bne cnl1
+ lda #"."
+ cmp ar3
+ bne cnl3
+ lda #" "
+cnl3 iny
+ sta (fzei),y
+ inc ar2
+cnl1 cpx #11
+ bcc cnl
+ lda #0
+ iny
+ sta (fzei),y
+cnle iny
+ tya
+
+ ldy #F_DLEN
+ sta (fzei),y
+
+ ldy #DE_SIZE+1
+ lda (rwzei),y
+ tax
+ dey
+ lda (rwzei),y
+ ldy #F_FT+FS_DIR_LEN
+ sta (fzei),y
+ iny
+ txa
+ sta (fzei),y
+ ldy #DE_SIZE+3
+ lda (rwzei),y
+ tax
+ dey
+ lda (rwzei),y
+ ldy #F_FT+FS_DIR_LEN+2
+ sta (fzei),y
+ iny
+ txa
+ sta (fzei),y
+
+ ldy #DE_TIME
+ lda (rwzei),y
+ sta ar1
+ and #%00011111
+ asl
+ ldy #F_FT+FS_DIR_SEC
+ sta (fzei),y
+ ldy #DE_TIME+1
+ lda (rwzei),y
+ sta ar1+1
+ asl ar1
+ rol
+ asl ar1
+ rol
+ asl ar1
+ rol
+ and #%00111111
+ ldy #F_FT+FS_DIR_MIN
+ sta (fzei),y
+ lda ar1+1
+ lsr
+ lsr
+ lsr
+ ldy #F_FT+FS_DIR_HOUR
+ sta (fzei),y
+
+ ldy #DE_DATE
+ lda (rwzei),y
+ sta ar1
+ and #%00011111
+ ldy #F_FT+FS_DIR_DAY
+ sta (fzei),y
+ ldy #DE_DATE+1
+ lda (rwzei),y
+ sta ar1+1
+ asl ar1
+ rol
+ asl ar1
+ rol
+ asl ar1
+ rol
+ and #%00001111
+ ldy #F_FT+FS_DIR_MONTH
+ sta (fzei),y
+ lda ar1+1
+ lsr
+ clc
+ adc #80
+ ldy #F_FT+FS_DIR_YEAR
+ sta (fzei),y
+
+&setout lda #F_FT
+ ldy #F_DOUT
+ sta (fzei),y
+ clc
+ rts
+ .)
+
+fdir .(
+ ldy #F_DRV
+ lda (fzei),y
+ tax
+ jsr GETDPB
+ bcs clsdr
+
+bloop ldy #F_STR
+ lda (fzei),y
+ tax
+ ldy #F_DOUT
+ lda (fzei),y
+ beq first
+ ldy #F_DLEN
+ cmp (fzei),y
+ bcs nextentry
+ tay
+ lda (fzei),y
+ jsr PUTC
+ bcc nextb
+ cmp #E_NUL
+ beq clsdr
+ rts
+nextb lda #1
+ clc
+ ldy #F_DOUT
+ adc (fzei),y
+ sta (fzei),y
+ jmp bloop
+
+&clsdr ldy fpuffer
+ jsr FRBUF
+ ldy #F_STR
+ lda (fzei),y
+ tax
+ lda #SC_EOF
+ jsr STRCMD
+ ldy #F_FL
+ lda #FF_FRE
+ sta (fzei),y
+ rts
+
+nextentry ldy #F_FT+FS_DIR_MODE
+ lda (fzei),y
+ cmp #FS_DIR_MOD_FRE
+ beq clsdr ; dann war freebyte als letztes
+ lda #DE_SLEN
+ jsr xadfpos ; x=lo a=hi neue pos
+ bcc fok
+
+ jsr snext
+ bcc first
+ cmp #E_NOCLUS
+ bne clsdr
+ beq clsdrx
+first jsr xclrfpos
+ jsr cl2sec
+ bcs clsdr
+ ldy fpuffer
+ jsr RDBUF
+ bcs clsdr
+
+fok jsr xadbufpos
+ sta rwzei
+ stx rwzei+1
+ jsr convert
+ bcc xl
+ cmp #0
+ bne nextentry
+ beq clsdrx
+xl jmp bloop
+clsdrx
+/*#ifdef SHOW
+ lda #"g"
+ jsr SEROUT
+#endif*/
+ jsr gfrebyt
+/*#ifdef SHOW
+ php
+ pha
+ jsr HEXOUT
+ pla
+ plp
+#endif*/
+ bcs clsdr
+ ldy #F_FT+FS_DIR_LEN
+ ldx #0
+c1 lda ar1,x
+ sta (fzei),y
+ iny
+ inx
+ cpx #4
+ bne c1
+ ldy #F_FT+FS_DIR_MODE
+ lda #FS_DIR_MOD_FRE
+ sta (fzei),y
+ ldy #F_FT+FS_DIR_NAME
+ lda #0
+ sta (fzei),y
+ iny
+ tya
+ ldy #F_DLEN
+ sta (fzei),y
+ jsr setout
+ jmp bloop
+ .)
+ .)
+
diff --git a/dump/oa-2.0.9/sysapps/fs/fsibm/loop.a65 b/dump/oa-2.0.9/sysapps/fs/fsibm/loop.a65
new file mode 100644
index 0000000..5dbcbbe
--- /dev/null
+++ b/dump/oa-2.0.9/sysapps/fs/fsibm/loop.a65
@@ -0,0 +1,183 @@
+/****************************************************************************
+
+ OS/A65 Version 2.1.0
+ Multitasking Operating System for 6502 Computers
+
+ Copyright (C) 1989-1998 Andre Fachat
+
+ This program is free software; you can redistribute it and/or modify
+ it under the terms of the GNU General Public License as published by
+ the Free Software Foundation; either version 2 of the License, or
+ (at your option) any later version.
+
+ This program is distributed in the hope that it will be useful,
+ but WITHOUT ANY WARRANTY; without even the implied warranty of
+ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+ GNU General Public License for more details.
+
+ You should have received a copy of the GNU General Public License
+ along with this program; if not, write to the Free Software
+ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
+
+****************************************************************************/
+
+
+
+PRG .(
+ .data
+owntask .byt 0
+client .byt 0
+lflag .byt 0
+ .text
+
+ stx owntask
+ sec
+
+#ifdef FSIBM_AS_INIT
+ clc
+ ldx #SEM_SENDBUF
+ jsr PSEM
+#endif
+
+;.byt 2
+lda #"A":jsr SEROUT
+
+ ldx #SEM_IBMDISK
+ jsr PSEM
+ bcs rel_term
+
+ jsr init
+;jmp pe
+ bcs pe
+
+lda #"I":jsr SEROUT
+ lda #ANZDRV
+ sta PCBUF+FM_REG_DRVS
+ lda owntask
+ sta PCBUF+FM_REG_ENV
+ lda #FM_REG
+ ldx #SEND_FM
+ ldy #2
+ jsr SEND
+ bcc gloop
+pe
+ pha
+ ldx #SEM_IBMDISK
+ jsr VSEM
+ pla
+rel_term
+lda #"T":jsr SEROUT
+ ldx #SEM_SENDBUF
+ jsr VSEM
+;rts
+ jmp TERM
+
+gloop
+ php
+ ldx #SEM_SENDBUF
+ jsr VSEM
+ plp
+
+lda #"L":jsr SEROUT
+
+loop jsr YIELD
+ clc
+ jsr RECEIVE
+ bcs l1
+l2 jsr rxmess
+
+l1 jsr DLOOP
+ sta lflag ; Anzahl drives mit Motor on
+
+ jsr fileloop
+ ora lflag ; Anzahl offener files
+
+ bne loop ; sind noch dateien offen dann bei RECEIVE no wait
+
+ sec
+ jsr RECEIVE ; ansonsten warten bis command oder open
+ bcs l1
+ pha
+ stx client
+ jsr DLOOP ; vor ausf�hrung auf Disk-Change testen
+ ldx client
+ pla
+ jmp l2
+
+rxmess .(
+ stx client
+ pha
+ ldx PCBUF+FS_OPEN_DRV
+ jsr setdzei
+ pla
+ jsr rxjmp
+ bcs err
+ lda #E_OK
+err sta PCBUF+FS_X_ERR
+#ifdef DEBUGFS
+ pha
+ lda #"E"
+ jsr SEROUT
+ pla
+ pha
+ jsr HEXOUT
+ jsr CRLFOUT
+ pla
+#endif
+ ldx owntask
+ stx PCBUF+FS_X_ENV
+ ldy file
+ sty PCBUF+FS_X_FIL
+ ldy #FS_X_SLEN
+ ldx client
+ jmp SEND
+
+notimp lda #E_NOTIMP
+ sec
+ rts
+
+rxjmp ldy #0
+rjl cmp rcmd,y
+ beq rjok
+ iny
+ cpy #9
+ bcc rjl
+ bcs notimp
+
+rjok tya
+ asl
+ tay
+ lda rtab+1,y
+ pha
+ lda rtab,y
+ pha
+ rts
+
+rcmd .byt FS_OPEN_RD,FS_OPEN_WR,FS_OPEN_DR,FS_OPEN_OW
+ .byt FS_RENAME,FS_DELETE,FS_FORMAT,FS_MKDIR,FS_RMDIR
+
+rtab .word openrd-1,openwr-1,opendr-1,openow-1
+ .word rename-1,delete-1,format-1
+ .word mkdir-1 ,rmdir-1
+ .)
+ .)
+
+
+init .(
+ jsr DINIT
+ bcs endini
+ jsr INBUF
+ bcs endini
+ ; jsr INIDPB
+ ; bcs endini
+ jsr INIFPB
+endini rts
+ .)
+
+dchanged .( ; xr = Drive
+ ; jsr INVDPB
+ jsr IDBUF ; gibt auch Fehler !
+ jsr IDFIL
+ rts
+ .)
+
diff --git a/dump/oa-2.0.9/sysapps/fs/fsibm/util.a65 b/dump/oa-2.0.9/sysapps/fs/fsibm/util.a65
new file mode 100644
index 0000000..515b620
--- /dev/null
+++ b/dump/oa-2.0.9/sysapps/fs/fsibm/util.a65
@@ -0,0 +1,648 @@
+/****************************************************************************
+
+ OS/A65 Version 2.1.0
+ Multitasking Operating System for 6502 Computers
+
+ Copyright (C) 1989-1998 Andre Fachat
+
+ This program is free software; you can redistribute it and/or modify
+ it under the terms of the GNU General Public License as published by
+ the Free Software Foundation; either version 2 of the License, or
+ (at your option) any later version.
+
+ This program is distributed in the hope that it will be useful,
+ but WITHOUT ANY WARRANTY; without even the implied warranty of
+ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+ GNU General Public License for more details.
+
+ You should have received a copy of the GNU General Public License
+ along with this program; if not, write to the Free Software
+ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
+
+****************************************************************************/
+
+
+
+/* certain miscellanous subroutines */
+
+ .data
+ar1 .dsb 4 ; 4 Byte for 32Bit-Operations (Mult4)
+ar2 .dsb 4
+ar3 .dsb 4
+ .text
+
+
+mult .( /* a/x * ar1 -> a/x , c=1 ist overflow */
+ clc
+ sta ar3
+ stx ar3+1
+ lda #0
+ sta ar2
+ sta ar2+1
+ txa
+ ora ar3
+ beq mend
+mloop
+ lsr ar1+1
+ ror ar1
+ bcc mnext
+
+ clc
+ lda ar3
+ adc ar2
+ sta ar2
+ lda ar3+1
+ adc ar2+1
+ sta ar2+1
+ bcs mend
+
+mnext lda ar1
+ ora ar1+1
+ beq mend
+
+ asl ar3
+ rol ar3+1
+ bcc mloop
+
+mend lda ar2
+ ldx ar2+1
+ rts
+ .)
+
+mult32 .( /* a/x * ar1 -> a/x(16bit) or ar2 (32bit), c=1 is overflow */
+ clc
+ sta ar3
+ stx ar3+1
+ lda #0
+ sta ar3+2
+ sta ar3+3
+ sta ar2
+ sta ar2+1
+ sta ar2+2
+ sta ar2+3
+ txa
+ ora ar3
+ beq mend
+mloop
+ lsr ar1+1
+ ror ar1
+ bcc mnext
+
+ clc
+ lda ar3
+ adc ar2
+ sta ar2
+ lda ar3+1
+ adc ar2+1
+ sta ar2+1
+ lda ar3+2
+ adc ar2+2
+ sta ar2+2
+ lda ar3+3
+ adc ar2+3
+ sta ar2+3
+ bcs mend
+
+mnext lda ar1
+ ora ar1+1
+ beq mend
+
+ asl ar3
+ rol ar3+1
+ rol ar3+2
+ rol ar3+3
+ bcc mloop
+
+mend lda ar2
+ ldx ar2+1
+ rts
+ .)
+
+#if 1
+div32 .( /* ar1(32) / a/x -> a/x(16) or ar3(32), ar1(32) */
+ sec
+ sta ar2
+ stx ar2+1
+ ora ar2+1
+ beq derr
+
+ lda #0
+ sta ar2+2
+ sta ar2+3
+
+ sta ar3
+ sta ar3+1
+ sta ar3+2
+ sta ar3+3
+
+ ldx #0
+dl lda ar2+3
+ cmp ar1+3
+ bcc d1
+ bne d2
+ lda ar2+2
+ cmp ar1+2
+ bcc d1
+ bne d2
+ lda ar2+1
+ cmp ar1+1
+ bcc d1
+ bne d2
+ lda ar2
+ cmp ar1
+ beq ds
+ bcs d2
+
+d1 inx
+ asl ar2
+ rol ar2+1
+ rol ar2+2
+ rol ar2+3
+ bcc dl
+derr rts
+
+d2 lsr ar2+3
+ ror ar2+2
+ ror ar2+1
+ ror ar2
+ dex
+ bmi dend
+
+ds sec
+ lda ar1
+ sbc ar2
+ pha
+ lda ar1+1
+ sbc ar2+1
+ pha
+ lda ar1+2
+ sbc ar2+2
+ pha
+ lda ar1+3
+ sbc ar2+3
+ bcc d3
+
+ sta ar1+3
+ pla
+ sta ar1+2
+ pla
+ sta ar1+1
+ pla
+ sta ar1
+ jmp d3a
+
+d3 pla
+ pla
+ pla
+d3a
+ rol ar3
+ rol ar3+1
+ rol ar3+2
+ rol ar3+3
+ jmp d2
+
+dend lda ar3
+ ldx ar3+1
+ clc
+ rts
+ .)
+#endif
+
+div .( /* ar1 / a/x -> a/x, ar1 */
+ sec
+ sta ar2
+ stx ar2+1
+ ora ar2+1
+ beq derr
+
+ lda #0
+ sta ar3
+ sta ar3+1
+
+ ldx #0
+dl lda ar2+1
+ cmp ar1+1
+ bcc d1
+ bne d2
+ lda ar2
+ cmp ar1
+ beq ds
+ bcs d2
+
+d1 inx
+ asl ar2
+ rol ar2+1
+ bcc dl
+derr rts
+
+d2 lsr ar2+1
+ ror ar2
+ dex
+ bmi dend
+
+ds sec
+ lda ar1
+ sbc ar2
+ pha
+ lda ar1+1
+ sbc ar2+1
+ bcc d3
+
+ sta ar1+1
+ pla
+ sta ar1
+ .byt $24
+d3 pla
+ rol ar3
+ rol ar3+1
+ jmp d2
+
+dend lda ar3
+ ldx ar3+1
+ clc
+ rts
+ .)
+
+f2d .(
+ ldy #F_FCL+1
+ lda (fzei),y
+ tax
+ dey
+ lda (fzei),y
+ ldy #F_DCL
+ sta (fzei),y
+ iny
+ txa
+ sta (fzei),y
+
+ ldy #F_FSEC+1
+ lda (fzei),y
+ tax
+ dey
+ lda (fzei),y
+ ldy #F_DSEC
+ sta (fzei),y
+ iny
+ txa
+ sta (fzei),y
+
+ ldy #F_FPOS+1
+ lda (fzei),y
+ tax
+ dey
+ lda (fzei),y
+ ldy #F_DPOS
+ sta (fzei),y
+ iny
+ txa
+ sta (fzei),y
+
+ jsr xclrfsec
+ rts
+ .)
+
+d2f .(
+ ldy #F_DCL+1
+ lda (fzei),y
+ tax
+ dey
+ lda (fzei),y
+ ldy #F_FCL
+ sta (fzei),y
+ iny
+ txa
+ sta (fzei),y
+
+ ldy #F_DSEC+1
+ lda (fzei),y
+ tax
+ dey
+ lda (fzei),y
+ ldy #F_FSEC
+ sta (fzei),y
+ iny
+ txa
+ sta (fzei),y
+
+ ldy #F_DPOS+1
+ lda (fzei),y
+ tax
+ dey
+ lda (fzei),y
+ ldy #F_FPOS
+ sta (fzei),y
+ txa
+ iny
+ sta (fzei),y
+ clc
+ rts
+ .)
+
+xfil2nam .( ; PCBUF+y ist Dateiname
+ ldx #1
+ lda PCBUF,y
+ cmp #"."
+ bne f0
+ lda PCBUF+1,y
+ beq dir1
+ cmp #DIRSIGN
+ beq dir1
+ cmp #"."
+ bne f0
+ lda PCBUF+2,y
+ beq dir2
+ cmp #DIRSIGN
+ bne f0
+dir2 lda #"."
+ sta fname+NAME_N+1
+ inx
+ iny
+dir1 iny
+ lda #"."
+ sta fname+NAME_N
+ bne fne
+
+&fil2nam
+f0 ldx #0
+f1 lda PCBUF,y
+ beq fne
+#ifdef SHOWN
+ jsr SEROUT
+#endif
+ jsr TOUPPER
+ cmp #DIRSIGN
+ beq fne
+ cmp #"."
+ beq fe1
+ cpx #NAME_E-NAME_N
+ bcs f2
+ sta fname+NAME_N,x
+ inx
+f2 iny
+ bne f1
+fe2 lda #" "
+ sta fname+NAME_N,x
+ inx
+fe1 cpx #NAME_E-NAME_N
+ bcc fe2
+ iny
+f3 lda PCBUF,y
+ beq fne
+#ifdef SHOWN
+ jsr SEROUT
+#endif
+ jsr TOUPPER
+ cmp #DIRSIGN
+ beq fne
+ cpx #NAME_A-NAME_N
+ bcs f4
+ sta fname+NAME_N,x
+ inx
+f4 iny
+ bne f3
+fe3 lda #" "
+ sta fname+NAME_N,x
+ inx
+fne cpx #NAME_A-NAME_N
+ bcc fe3
+#ifdef SHOWN
+ jsr CRLFOUT
+#endif
+ clc
+ rts
+ .)
+
+
+xfrebuf php
+ pha
+ ldy fpuffer
+ jsr FRBUF
+ pla
+ plp
+ rts
+
+TOUPPER .(
+ cmp #"a"
+ bcc ok
+ cmp #"z"+1
+ bcs ok
+ and #%11011111
+ok rts
+ .)
+
+xadfpos .(
+ ldy #F_FPOS
+ clc
+ adc (fzei),y
+ sta (fzei),y
+ tax
+ iny
+ lda #0
+ adc (fzei),y
+ sta (fzei),y
+&xcmpfpos
+ ldy #D_BPS+1
+ cmp (dzei),y
+ bne xe
+ dey
+ txa
+ cmp (dzei),y
+xe rts
+ .)
+
+xadbufpos ldx fpuffer
+ jsr setpadr
+ ldy #F_FPOS
+ clc
+ adc (fzei),y
+ pha
+ iny
+ txa
+ adc (fzei),y
+ tax
+ pla
+ rts
+
+xfcl2fscl ldy #F_FCL+1
+ lda (fzei),y
+ tax
+ dey
+ lda (fzei),y
+ ldy #F_FSCL
+ sta (fzei),y
+ iny
+ txa
+ sta (fzei),y
+ rts
+
+xclrf jsr xclrfcl
+xclrfsp jsr xclrfsec
+xclrfpos ldy #F_FPOS
+ lda #0
+ sta (fzei),y
+ iny
+ sta (fzei),y
+ rts
+
+xclrfcl ldy #F_FCL
+ lda #0
+ sta (fzei),y
+ iny
+ sta (fzei),y
+ rts
+
+xclrfsec ldy #F_FSEC
+ lda #0
+ sta (fzei),y
+ iny
+ sta (fzei),y
+ rts
+
+#if 1 /*def SHOW*/
+ .(
+ .data
+dxr .byt 0
+;str =sysmem+1
+ .byt 0 ; ???
+ .text
+
+&SEROUT stx dxr
+ ldx #STDOUT
+ bne o0
+/*&OUT*/ stx dxr
+o0 s2 pha
+ jsr PUTC
+ pla
+ bcc s2a
+ jsr YIELD
+ jmp s2
+s2a ldx dxr
+ cmp #0
+ rts
+ .)
+
+HEXOUT .(
+ pha
+ lsr
+ lsr
+ lsr
+ lsr
+ jsr NIBOUT
+ pla
+ and #$0f
+NIBOUT clc
+ adc #"0"
+ cmp #"9"+1
+ bcc nout
+ adc #6
+nout jmp SEROUT
+ .)
+
+SPOUT lda #32
+ jmp SEROUT
+CRLFOUT lda #13
+ jsr SEROUT
+ lda #10
+ jmp SEROUT
+#endif
+
+/*************************************************************************/
+
+ .(
+ .data
+a .byt 0
+ .text
+
+#if F_SLEN=64
+&setfzei /* x=File-Nr (0-(ANZFILE-1)) */
+ stx file
+ txa
+ clc
+ adc #ANZDRV
+ sta fpuffer
+ txa
+ asl
+ asl
+ asl
+ asl
+ asl
+ asl
+ clc
+ adc #fpb
+ sta fzei+1
+ clc
+ rts
+#endif
+
+#if BUFLEN=1024
+&setpadr
+ txa
+ asl
+ asl
+ clc
+ adc #>buffer
+ tax
+ lda #buffer
+ tax
+ lda #dpb
+ sta dzei+1
+ clc
+ rts
+#endif
+#if D_SLEN=26
+&setdzei /* x=Drv-Nr */
+ stx drive
+ txa
+ asl
+ sta a
+ asl
+ asl
+ pha
+ clc
+ adc a
+ sta a
+ pla
+ asl
+ clc
+ adc a
+ clc
+ adc #dpb
+ sta dzei+1
+ clc
+ rts
+#endif
+ .)
+
diff --git a/dump/oa-2.0.9/sysapps/fs/fsibm/vars.a65 b/dump/oa-2.0.9/sysapps/fs/fsibm/vars.a65
new file mode 100644
index 0000000..72fbfe4
--- /dev/null
+++ b/dump/oa-2.0.9/sysapps/fs/fsibm/vars.a65
@@ -0,0 +1,47 @@
+/****************************************************************************
+
+ OS/A65 Version 2.1.0
+ Multitasking Operating System for 6502 Computers
+
+ Copyright (C) 1989-1998 Andre Fachat
+
+ This program is free software; you can redistribute it and/or modify
+ it under the terms of the GNU General Public License as published by
+ the Free Software Foundation; either version 2 of the License, or
+ (at your option) any later version.
+
+ This program is distributed in the hope that it will be useful,
+ but WITHOUT ANY WARRANTY; without even the implied warranty of
+ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+ GNU General Public License for more details.
+
+ You should have received a copy of the GNU General Public License
+ along with this program; if not, write to the Free Software
+ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
+
+****************************************************************************/
+
+
+ .bss
+buffer .dsb BUFLEN*ANZBUF
+
+ .data
+fpb .dsb F_SLEN*ANZFILE
+
+dpb .dsb D_SLEN*ANZDRV
+
+ .zero
+fzei .word 0
+dzei .word 0
+
+ .data
+
+drive .byt 0
+file .byt 0
+fpuffer .byt 0
+
+fname .dsb NAME_SLEN
+
+ .text
+
+
diff --git a/dump/oa-2.0.9/sysapps/fs/fsiec.a65 b/dump/oa-2.0.9/sysapps/fs/fsiec.a65
new file mode 100644
index 0000000..ffe00e9
--- /dev/null
+++ b/dump/oa-2.0.9/sysapps/fs/fsiec.a65
@@ -0,0 +1,1459 @@
+/****************************************************************************
+
+ OS/A65 Version 2.0.0
+ Multitasking Operating System for 6502 Computers
+
+ Copyright (C) 1989-1998 Andre Fachat
+
+ This program is free software; you can redistribute it and/or modify
+ it under the terms of the GNU General Public License as published by
+ the Free Software Foundation; either version 2 of the License, or
+ (at your option) any later version.
+
+ This program is distributed in the hope that it will be useful,
+ but WITHOUT ANY WARRANTY; without even the implied warranty of
+ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+ GNU General Public License for more details.
+
+ You should have received a copy of the GNU General Public License
+ along with this program; if not, write to the Free Software
+ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
+
+****************************************************************************/
+
+/*
+ * TODO:
+ *
+ * This file is only loosely adapted to the 1.4 code.
+ * In fact the push flag and the error code features have to
+ * be implemented.
+ */
+
+#ifndef ROM
+
+#ifndef FSIEC_DEVICE
+#define FSIEC_DEVICE "siec_gecko.a65"
+#endif
+
+/*#define INVERT*/
+#define PARALLEL
+/*#define NOCMD*/
+/*#define NOFS*/
+/*#define SHOW*/ /* test-define */
+#define NOLOOP
+/*#define NOPRG*/
+#define STDTST
+
+#endif /* ROM */
+
+ .(
+#ifdef ROM
+start .word ende ; pointer to end of file in ROM
+#ifdef FSIEC_AS_INIT
+ .byt PK_INIT+$80 ; file type = filesystem + auto-execute bit
+#else
+ .byt PK_FS+$80 ; file type = filesystem + auto-execute bit
+#endif
+ .word PRG ; execution start
+ .byt 16 ; RAM size in 256-byte blocks
+ .byt >$ff-ROMSTART; $ff-start ; shared mem size in 256-byte blocks
+ .byt 0 ; priority
+ .word 0 ; stdin, stdout/stderr device number
+ .asc "fsiec",0,0 ; command line
+
+#else /* ROM */
+
+;#include "stdio.a65"
+#include "kdefs.i65"
+#include "kernel.i65"
+#include "fdefs.i65"
+
+#ifdef NOPRG
+
+ .word $800
+ *=$800
+ jmp PRG
+
+#else
+; .word $800
+ *=$800
+ .word 0
+ .byt PK_PRG ;PK_FS+$80
+ .byt 8
+ .word 0
+ .word PRG
+ .byt <-1
+
+#endif
+#endif
+
+#include "fsdef.i65"
+
+#ifndef FSIEC_ANZDRV
+#define FSIEC_ANZDRV 4
+#endif
+
+#define MAXLEN 64
+
+#define MAXFILE 6
+#define BUFSIZE 128
+
+
+#define FT_MOD 0
+#define FT_STR 1
+#define FT_BYT 2
+#define FT_BYT2 3
+#define FT_ST 4
+#define FT_BYT3 5
+#define FT_DRV 6
+#define FT_BUF 7
+#define FT_SLEN 8
+#define FT_MOD_FRE 0
+#define FT_MOD_IN 1
+#define FT_MOD_OUT 2
+#define FT_MOD_EOF 3
+#define FT_MOD_DIR 4
+#define ANZ_FT 16
+
+#if 0
+
+#ifndef NOMMU
+-syszp =$40
+-sysmem =$300
+-sysblk =$800
+#endif
+
+#echo fsiec:
+#print syszp
+#print sysmem
+#print sysblk
+
+#endif
+
+ .data
+IECBUF .dsb MAXLEN
+
+ .zero
+fzei .word 0
+bzei .word 0
+
+ .data
+owntask .byt 0
+cnt .byt 0
+cmd .byt 0
+anz .byt 0
+client .byt 0
+actfil .byt 0
+ftab .dsb F_SLEN*MAXFILE
+
+ .bss
+buf .dsb MAXFILE*BUFSIZE
+
+ .text
+
+#ifdef SHOW
+ .data
+showcnt .byt 0
+ .text
+#endif
+
+PRG .(
+ stx owntask
+
+#ifdef SHOW
+ lda #0
+ sta showcnt
+#endif
+ jsr IECINIT /* init interface */
+ bcs fterm
+
+#ifndef NOLOOP
+ jsr iniftab
+ jsr iniass
+ jsr inipfad
+ jsr iniunit
+#endif
+ ldx #<-1
+ jsr setzei ; init setzei (actfil)
+ ldx #0
+ stx anz
+p1 jsr setzei
+ lda #F_FL_FRE
+ ldy #F_FL
+ sta (fzei),y
+ inx
+ cpx #MAXFILE
+ bcc p1
+
+#ifndef NOFS
+ ; we now inherit PCBUF from FORK - if started as PK_FS, not PK_INIT
+ ; clc
+ ; ldx #SEM_SENDBUF
+ ; jsr PSEM
+
+ lda #FSIEC_ANZDRV ; 2 Drives
+ sta PCBUF+FM_REG_DRVS
+ lda owntask
+ sta PCBUF+FM_REG_ENV
+ lda #FM_REG
+ ldx #SEND_FM
+ ldy #2
+ jsr SEND
+
+ php
+ ldx #SEM_SENDBUF
+ jsr VSEM
+ plp
+
+ bcs fterm
+#else
+ ; if we don't need it, we have to release it now
+ ldx #SEM_SENDBUF
+ jsr VSEM
+#endif
+
+ .(
+ jsr getif
+ ldx #20 ; nach dem Einschalten Autostart VC1541
+x0 jsr setti ; ueberspringen
+x1 jsr fragti
+ beq x1
+ dex
+ bne x0
+ jsr freif
+ .)
+
+ jmp loop
+fterm
+ jmp TERM
+
+
+ .(
+#ifdef SHOW
+
+ .data
+dx .byt 0
+ .text
+
+&&CRLFOUT
+ lda #13
+ jsr OUT
+ lda #10
+&&OUT
+ stx dx
+/* ldx #$3c
+ stx $e888
+ sei
+ ldx #$10
+ stx $eff8
+ ldx showcnt
+ sta $8000,x
+ inc showcnt*/
+ ldx #STDOUT
+ jsr SOUT
+ ldx dx
+ rts
+#endif
+
+&&SOUT pha
+ jsr PUTC
+ pla
+ bcc ok
+ jsr YIELD
+ jmp SOUT
+ok clc
+ rts
+ .)
+
+#ifdef SHOW
+
+&HEXOUT .(
+ pha
+ lsr
+ lsr
+ lsr
+ lsr
+ jsr nib
+ pla
+ and #$0f
+ jsr nib
+ lda #0
+h1 clc
+ adc #251 ; prim
+ bne h1
+ jmp YIELD
+nib clc
+ adc #"0"
+ cmp #"9"+1
+ bcc out
+ adc #"A"-("9"+1)-1
+out jmp OUT
+ .)
+
+&savdata .(
+ pha
+ tya
+ pha
+ sei
+ lda #$18
+ sta $eff8
+ ldy #0
+sd1 lda $300,y
+ sta $8000,y
+ lda $400,y
+ sta $8100,y
+ lda $500,y
+ sta $8200,y
+ lda $600,y
+ sta $8300,y
+ iny
+ bne sd1
+ pla
+ tay
+ pla
+ cli
+ rts
+ .)
+#endif
+
+/**************************************************************************/
+
+loop
+#ifndef NOLOOP
+ jsr INLOOP ; check for ATN on bus
+#endif
+ jsr YIELD
+#ifdef NOFS
+ jmp loop
+#else
+ /* no loop -> RECEIVE may block */
+ /* TODO: multithread! */
+#ifdef NOLOOP
+ lda anz ; check if we have open files
+ bne l1xxx ; if no then
+ sec ; block while trying to RECEIVE
+ .byt $24
+#endif
+l1xxx
+ clc
+ jsr RECEIVE ; check for fs command
+ bcs l1
+ jsr rxmess
+l1
+ ; check all open streams and read/write new data if needed
+ ldx #0
+ stx anz
+ stx cnt
+l2 jsr setzei
+ ldy #F_FL
+ lda (fzei),y
+ cmp #F_FL_EOF+1
+ bcc l2a
+ jmp nextl
+
+l2a inc anz
+ ldy #F_MODE
+ lda (fzei),y
+ cmp #F_MODE_RD
+ bne l3
+
+ol
+#if 0 /*ndef OLDROM*/
+ .zero
+b2zei .word 0
+ .text
+
+ ldy #F_LEN
+ lda (fzei),y
+ sec
+ ldy #F_BYT
+ sbc (fzei),y
+ beq l4
+ pha
+ lda (fzei),y
+ clc
+ adc bzei
+ sta b2zei
+ lda bzei+1
+ adc #0
+ sta b2zei+1
+
+ ldy #F_STR
+ lda (fzei),y
+ tax
+ pla
+ ldy #b2zei
+ jsr PUTB
+ bcs l5n
+ ldy #F_BYT
+ adc (fzei),y
+ sta (fzei),y
+ jmp ol
+#else
+ ldy #F_BYT
+ lda (fzei),y
+ ldy #F_LEN
+ cmp (fzei),y
+ beq l4
+ pha
+ ldy #F_STR
+ lda (fzei),y
+ tax
+ pla
+ tay
+ lda (bzei),y
+ jsr PUTC
+ bcs l5n
+ ldy #F_BYT
+ lda (fzei),y
+ clc
+ adc #1
+ sta (fzei),y
+ jmp ol
+#endif
+l4
+ ldy #F_FL
+ lda (fzei),y
+ cmp #F_FL_EOF
+ bne l4a
+ ldy #F_STR
+ lda (fzei),y
+ tax
+ lda #SC_EOF
+ jsr STRCMD
+ jsr close
+ jmp nextl
+l4a jsr clrbuf
+ jsr loadbuf
+ bcc l5
+
+ and #%10111111 ; check status
+ beq eofonly
+;.byt 2
+ ldy #F_STR
+ lda (fzei),y
+ tax
+ lda #SC_SSTAT
+ ldy #SCE_WERRM ; unrecoverable error
+ jsr STRCMD
+eofonly
+ ldy #F_FL
+ lda #F_FL_EOF
+ sta (fzei),y
+l5 jmp nextl
+
+l5n cmp #E_NUL
+ bne l5
+ ldy #F_STR
+ lda (fzei),y
+ tax
+ lda #SC_EOF
+ jsr STRCMD
+ jsr close
+ jmp nextl
+
+l3 cmp #F_MODE_WR
+ bne l8
+il
+#if 0 /*ndef OLDROM*/
+ lda #BUFSIZE
+ sec
+ ldy #F_BYT
+ sbc (fzei),y
+ beq l6
+
+ pha
+ lda (fzei),y
+ clc
+ adc bzei
+ sta b2zei
+ lda bzei+1
+ adc #0
+ sta b2zei+1
+
+ ldy #F_STR
+ lda (fzei),y
+ tax
+ pla
+ ldy #bzei
+ jsr GETB
+ bcs l7
+ ldy #F_BYT
+ adc (fzei),y
+ sta (fzei),y
+ jmp il
+#else
+ ldy #F_BYT
+ lda (fzei),y
+ cmp #BUFSIZE
+ beq l6
+ pha
+ ldy #F_STR
+ lda (fzei),y
+ tax
+ pla
+ tay
+ jsr GETC
+ bcs l7
+ sta (bzei),y
+ ldy #F_BYT
+ lda (fzei),y
+ clc
+ adc #1
+ sta (fzei),y
+ jmp il
+#endif
+
+l7 cmp #E_EOF
+ bne l8
+ ldy #F_STR
+ lda (fzei),y
+ tax
+ lda #SC_NUL
+ jsr STRCMD
+ jsr savebuf
+ bcc noserr
+
+serr ldy #F_STR
+ lda (fzei),y
+ tax
+ ldy #SCE_RERRM
+ lda #SC_SSTAT
+ jsr STRCMD
+noserr
+ jsr close
+ jmp nextl
+
+l6 jsr savebuf
+ bcs serr
+ jsr clrbuf
+ jmp nextl
+
+l8 nextl inc cnt
+ ldx cnt
+ cpx #MAXFILE
+ bcs endloop
+ jmp l2
+endloop jmp loop
+ .)
+
+/**************************************************************************/
+
+savebuf .(
+ jsr getif
+
+ jsr setfpar
+ clc
+ ldy #F_BYT
+ lda (fzei),y
+ beq lbe
+ jsr LISTEN
+ jsr SECLISTEN
+ lda #0
+lb1 tay
+ lda (bzei),y
+ jsr IECOUT
+ iny
+ bcs lbe
+ tya
+ ldy #F_BYT
+ cmp (fzei),y
+ bcc lb1
+lbe php
+ jsr geterr
+ pha
+ jsr UNLISTEN
+ jsr freif
+ pla
+ plp
+ rts
+ .)
+
+loadbuf .(
+ .data
+dirtst .byt 0
+ .text
+ jsr getif
+
+ ldy #F_FL
+ lda (fzei),y
+ cmp #F_FL_DIR
+ beq loadirbuf
+ jsr setfpar
+ jsr TALK
+ jsr SECTALK
+ ldy #0
+lb1 jsr IECIN
+ sta (bzei),y
+ iny
+ bcs lbe
+ cpy #BUFSIZE
+ bcc lb1
+ clc
+lbe
+ php
+ jsr geterr
+ pha
+ tya
+ ldy #F_LEN
+ sta (fzei),y
+ jsr UNTALK
+ jsr freif
+ pla
+ plp
+ rts
+
+loadirbuf
+;.byt 2
+ jsr setfpar
+ jsr TALK
+ jsr SECTALK
+ jsr IECIN
+ bcs gdxx
+ jsr IECIN
+ bcs gdxx
+ lda #FS_DIR_MOD_FRE
+ ldy #FS_DIR_MODE
+ sta (bzei),y
+ ldy #FS_DIR_LEN
+ lda #0
+ sta (bzei),y
+ iny
+ jsr IECIN
+ bcs gdxx
+ sta (bzei),y
+ iny
+ jsr IECIN
+ bcs gdxx
+ sta (bzei),y
+ iny
+ lda #0
+ sta (bzei),y
+ ldx #6
+ ldy #FS_DIR_YEAR
+gd1 lda data-FS_DIR_YEAR,y
+ sta (bzei),y
+ iny
+ dex
+ bne gd1
+gd2 jsr IECIN
+gdxx bcs gdxx2
+ cmp #34
+ beq gd2x
+ cmp #18 ; revers
+ bne gd2
+ lda #FS_DIR_MOD_NAM
+ ldy #FS_DIR_MODE
+ sta (bzei),y
+gd2y jsr IECIN
+ bcs gdxx2
+ cmp #34
+ bne gd2y
+ beq gd3a
+gd2x ldy #FS_DIR_MODE
+ lda #FS_DIR_MOD_FIL
+ sta (bzei),y
+gd3a ldy #FS_DIR_NAME
+gd3 jsr IECIN
+ bcs gdxx2
+ cmp #34
+ beq gd4
+ jsr CBM2ASC
+ sta (bzei),y
+ iny
+ cpy #BUFSIZE-7
+ bcc gd3
+ jmp gde
+gd4
+ lda #","
+ sta (bzei),y
+ iny
+ sty dirtst
+gd5 jsr IECIN
+gdxx2 bcs gdx
+ cmp #" "
+ beq gd5
+ cmp #0
+ beq gdy2
+ bne gd6
+gd6a jsr IECIN
+ bcs gdx
+gd6 jsr CBM2ASC
+ sta (bzei),y
+ cmp #0
+ beq gd6b2
+ cmp #" "
+ beq gd6b
+ iny
+ cpy #BUFSIZE-1
+ bcc gd6a
+
+gd6b jsr IECIN
+ bcs gdx
+ cmp #0
+ bne gd6b
+
+gd6b2 lda #0
+ sta (bzei),y
+ iny
+ tya
+ ldy #F_LEN
+ sta (fzei),y
+
+ ldy dirtst
+ lda (bzei),y
+ cmp #"d"
+ bne gde
+ iny
+ lda (bzei),y
+ cmp #"i"
+ bne gde
+ iny
+ lda (bzei),y
+ cmp #"r"
+ bne gde
+ ldy #FS_DIR_MODE
+ lda (bzei),y
+ cmp #FS_DIR_MOD_FIL
+ bne gde
+ lda #FS_DIR_MOD_DIR
+ sta (bzei),y
+ lda dirtst
+ ldy #F_LEN
+ sta (fzei),y
+ tay
+ dey
+ lda #0
+ sta (bzei),y
+
+gde ;jsr IECIN
+ ;bcs gdx
+ ;cmp #0
+ ;bne gde
+gdy2 clc
+ bcc gdy
+gdx ldy #FS_DIR_NAME
+ lda #0
+ sta (bzei),y
+ iny
+ tya
+ ldy #F_LEN
+ sta (fzei),y
+gdy php
+;.byt 2
+ jsr geterr
+ pha
+ jsr UNTALK
+ jsr freif
+ pla
+ plp
+ rts
+
+data .byt 91,4,7,13,6,0
+ .)
+
+close jsr setfpar
+ jsr IECLOSE
+ lda #F_FL_FRE
+ ldy #F_FL
+ sta (fzei),y
+ rts
+
+/**************************************************************************/
+
+rxmess .(
+;.byt 2
+ stx client
+ cmp #FS_OPEN_RD
+ bne rx1a
+ lda #"r"
+ bne rxop
+rx1a cmp #FS_OPEN_WR
+ bne rx1b
+rx1ab lda #"w"
+ bne rxop
+rx1b cmp #FS_OPEN_AP
+ beq rx1x
+ cmp #FS_OPEN_OW
+ beq rx1ab
+ jmp rx1
+rx1x lda #"a"
+rxop sta cmd
+ lda PCBUF+FS_OPEN_PFAD
+ bne rxepfad
+ jsr getfre
+ bcs rxe1
+ lda PCBUF+FS_OPEN_DRV
+ ldy #F_DEV
+ sta (fzei),y
+ jsr setfpar
+ lda cmd
+ jsr setfnpar
+ jsr IECOPEN
+ bcs rxe2
+ jsr DISKST
+ bcs rxe2
+ lda PCBUF+FS_OPEN_STR
+ ldy #F_STR
+ sta (fzei),y
+ lda #0
+ ldy #F_DRV
+ sta (fzei),y
+ lda #F_FL_OK
+ ldy #F_FL
+ sta (fzei),y
+ jsr clrbuf
+ lda cmd
+ cmp #"r"
+ bne rxr1
+ lda #F_MODE_RD
+ .byt $2c
+rxr1 lda #F_MODE_WR
+ ldy #F_MODE
+ sta (fzei),y
+
+ lda #E_OK
+ ldx owntask
+ ldy actfil
+ jmp endrx
+
+rxe2 jsr IECLOSE
+ lda #E_FNODRV
+ .byt $2c
+rxepfad lda #E_FNOPATH
+ .byt $2c
+namlenerr lda #E_FNAMLEN
+ .byt $2c
+rxe1 lda #E_FNOFIL
+ .byt $2c
+rxe0 lda #E_NOTIMP
+endrx sta PCBUF+FS_X_ERR
+ ldx owntask
+ stx PCBUF+FS_X_ENV
+ sty PCBUF+FS_X_FIL
+ ldy #FS_X_SLEN
+ ldx client
+ jmp SEND
+
+rx1 cmp #FS_OPEN_DR
+ beq rx1aa
+ jmp rxcmds
+rx1aa lda PCBUF+FS_OPEN_PFAD
+ bne rxepfad
+ ldx PCBUF+FS_OPEN_DRV
+ jsr setzei
+ ldy #F_FL
+ lda (fzei),y
+ cmp #F_FL_FRE
+ bne rxe1
+ lda PCBUF+FS_OPEN_DRV
+ ldy #F_DEV
+ sta (fzei),y
+ jsr setfpar
+ lda PCBUF+FS_OPEN_STR
+ ldy #F_STR
+ sta (fzei),y
+
+ .(
+ ; remove leading DIRSIGN, as all names are assumed global
+ lda PCBUF+FS_OPEN_NAME
+ cmp #DIRSIGN
+ bne noglobal
+ ldy #<-1
+l0 iny
+ lda PCBUF+FS_OPEN_NAME+1,y
+ sta PCBUF+FS_OPEN_NAME,y
+ bne l0
+noglobal
+ .)
+ lda PCBUF+FS_OPEN_NAME
+ bne xx1a
+ sta PCBUF+FS_OPEN_NAME+1
+ lda #"*"
+ sta PCBUF+FS_OPEN_NAME
+
+xx1a lda #"$"
+ sta PCBUF+FS_OPEN_NAME-2
+ lda #":"
+ cmp PCBUF+FS_OPEN_NAME+1
+ bne xx1a2
+ lda #" "
+xx1a2 sta PCBUF+FS_OPEN_NAME-1
+
+ ldy #0
+xx1 lda PCBUF+FS_OPEN_NAME-2,y
+ beq xx2
+ iny
+ bne xx1
+xx2 tya
+ ldy #>(PCBUF+FS_OPEN_NAME-2)
+ ldx #<(PCBUF+FS_OPEN_NAME-2)
+ jsr SETFNPAR
+ jsr IECOPEN
+;.byt 2
+/*.( :bcc lll1: inc $d021: lll1 .)*/
+rxe2a bcs rxe2b
+ jsr DISKST
+/*.( :bcc lll1: inc $d020: lll1 .)*/
+ bcs rxe2a
+ jsr getif
+#if 0 /*def NMIDEV*/
+ lda #NMI_OFF
+ jsr CTRLNMI
+#endif
+ jsr TALK
+ jsr SECTALK
+ jsr IECIN
+ jsr IECIN
+ jsr UNTALK
+ jsr freif
+#if 0 /*def NMIDEV*/
+ lda #NMI_ON
+ jsr CTRLNMI
+#endif
+ lda #0
+ ldy #F_DRV
+ sta (fzei),y
+ lda #F_FL_DIR
+ ldy #F_FL
+ sta (fzei),y
+ jsr clrbuf
+ lda #F_MODE_RD
+ ldy #F_MODE
+ sta (fzei),y
+
+ lda #E_OK
+ ldx owntask
+ ldy actfil
+ jmp endrx
+
+rxe2b jmp rxe2
+
+rxcmds
+#ifdef NOCMD
+ jmp rxe0
+#else
+ pha
+ lda PCBUF+FS_CMD_DRV
+ clc
+ adc #8
+ tax
+ ldy #15
+ jsr SETFPAR
+ pla
+ ldx PCBUF+FS_CMD_PFAD
+ beq rcr0
+ jmp rxepfad
+rcr0 cmp #FS_RENAME
+ bne rxc2
+ lda #"r"
+ sta IECBUF
+
+ lda #":"
+ cmp PCBUF+FS_CMD_NAME+1
+ bne rcr0a
+ lda #" "
+rcr0a sta IECBUF+1
+
+ ldy #FS_CMD_NAME
+rcr1 lda PCBUF,y
+ beq rcr2
+ iny
+ bne rcr1
+rcr2 ldx #2
+ iny
+rcr3 lda PCBUF,y
+ beq rcr4
+ sta IECBUF,x
+ iny
+ inx
+ cpx #MAXLEN
+ bcc rcr3
+ jmp namlenerr
+rcr4 lda #"="
+ sta IECBUF,x
+ inx
+ ldy #FS_CMD_NAME
+rcr5 lda PCBUF,y
+ sta IECBUF,x
+ beq rcr6
+ iny
+ inx
+ cpx #MAXLEN
+ bcc rcr5
+ jmp namlenerr
+rcr6 txa
+ ldx #IECBUF
+cmds jsr SETFNPAR
+ jsr IECOPEN
+ jsr DISKST
+ php
+ jsr IECLOSE
+ plp
+ lda #E_OK
+ bcc rcr7
+ lda #E_NODEV
+rcr7 jmp endrx
+
+rxc2 cmp #FS_DELETE
+ bne rxc3
+ lda #"s"
+scmds sta PCBUF+FS_CMD_NAME-2
+ lda #":"
+ cmp PCBUF+FS_CMD_NAME+1
+ bne sc1
+ lda #" "
+sc1 sta PCBUF+FS_CMD_NAME-1
+ ldy #0
+rcd1 lda PCBUF+FS_CMD_NAME-2,y
+ beq rcd2
+ iny
+ bne rcd1
+rcd2 tya
+ ldx #<(PCBUF+FS_CMD_NAME-2)
+ ldy #>(PCBUF+FS_CMD_NAME-1)
+ jmp cmds
+
+rxc3 cmp #FS_FORMAT
+ bne rxc4
+ lda #"n"
+ bne scmds
+
+rxc4 cmp #FS_CHKDSK
+ bne rxc5
+ lda #"v"
+ bne scmds
+
+rxc5 cmp #FS_CLOSE
+ bne rxc6
+ ldx PCBUF+FS_CMD_FIL
+ cpx #MAXFILE
+ bcs rxc5e
+ jsr setzei
+ ldy #F_FL
+ lda (fzei),y
+ cmp #F_FL_FRE
+ beq rxc5e
+ ldy #F_MODE
+ lda (fzei),y
+ cmp #F_MODE_WR
+ bne rxc5a
+ jsr savebuf
+rxc5a jsr close
+ lda #E_OK
+ .byt $2c
+rxc5e lda #E_ILLPAR
+ jmp endrx
+
+rxc6 jmp rxe0
+
+#endif
+#endif
+ .)
+
+/**************************************************************************/
+
+getbuf .(
+ ;ldx #0
+ ;.byt $2c
+&getfre
+ ldx #FSIEC_ANZDRV
+ stx cnt
+gf1 jsr setzei
+ ldx cnt
+ ldy #F_FL
+ lda (fzei),y
+ cmp #F_FL_FRE
+ clc
+ beq gf2
+ inc cnt
+ ldx cnt
+ cpx #MAXFILE
+ bcc gf1
+gf2 rts
+ .)
+
+#ifndef NOFS
+setfnpar .(
+
+ .data
+div .byt 0
+ .text
+
+ pha
+ ldy #0
+ sty div
+sfn0 lda PCBUF+FS_OPEN_NAME,y
+ beq sfn1
+; cmp #","
+; bne sfn2
+; sta div
+;sfn2
+ iny
+ bne sfn0
+sfn1
+; lda div
+; bne sfn3
+; lda #","
+; sta PCBUF+FS_OPEN_NAME,y
+; iny
+;#ifndef OLDHACK
+; lda #"p"
+;#else
+; lda #"P"
+;#endif
+; sta PCBUF+FS_OPEN_NAME,y
+; iny
+sfn3 lda #","
+ sta PCBUF+FS_OPEN_NAME,y
+ iny
+ pla
+#ifdef OLDHACK
+ eor #$20
+#endif
+ sta PCBUF+FS_OPEN_NAME,y
+ iny
+ ldx #PCBUF+FS_OPEN_NAME
+ jmp SETFNPAR
+ .)
+
+setfpar ldy #F_DEV
+ lda (fzei),y
+ clc
+ adc #8
+ tax
+ ldy #0
+ lda actfil
+ cmp #FSIEC_ANZDRV
+ bcc sfp1
+ clc
+ adc #2
+ tay
+sfp1 jmp SETFPAR
+
+clrbuf lda #0
+ ldy #F_LEN
+ sta (fzei),y
+ ldy #F_BYT
+ sta (fzei),y
+ rts
+#endif
+
+setzei .( ; setzt zeiger, x=filenr
+ cpx actfil
+ beq sz1
+ stx actfil
+ txa
+ asl
+ asl
+ asl
+ clc
+ adc #ftab
+ adc #0
+ sta fzei+1
+ txa
+#if 1
+ lsr
+ pha
+ lda #0
+ ror ; clears carry
+ adc #buf
+ sta bzei+1
+#else
+ clc
+ adc #>buf*2
+ lsr
+ sta bzei+1
+ lda #$a0->$40->$20
+ cmp #"A"
+ bcc tuok
+ cmp #"Z"+1
+ bcs tu2
+ ora #$80
+ bne tuok
+tu2 cmp #"a"
+ bcc tuok
+ cmp #"z"+1
+ bcs tu3
+ sbc #$1f
+ bne tuok
+tu3 cmp #"A"+$80
+ bcc tuok
+ cmp #"Z"+$81
+ bcs tuok
+ adc #$a0
+tuok rts
+ .)
+
+CBM2ASC .( ; ringtausch $a0->$20->$40->$a0
+ cmp #"A"
+ bcc tlok
+ cmp #"Z"+1
+ bcs tl2
+ adc #$20
+ bne tlok
+tl2 cmp #"a"
+ bcc tlok
+ cmp #"z"+1
+ bcs tl3
+ adc #$60
+ bne tlok
+tl3 cmp #"A"+$80
+ bcc tlok
+ cmp #"Z"+$81
+ bcs tlok
+ and #$7f
+tlok rts
+ .)
+
+/************************** IEC-Routinen **********************************/
+/* hier Blocktiefe 1 */
+
+ .(
+ .zero
+namzei .word 0
+
+ .data
+secadr .byt 0
+devadr .byt 0
+namlen .byt 0
+status .byt 0
+
+ .text
+
+#ifndef NOFS
+
+ .(
+&&SETFNPAR sta namlen
+ stx namzei
+ sty namzei+1
+ rts
+&&SETFPAR stx devadr
+ sty secadr
+ rts
+&&IECLOSE
+ jsr getif
+#if 0 /*def NMIDEV*/
+ lda #NMI_OFF
+ jsr CTRLNMI
+#endif
+ jsr LISTEN
+ lda secadr
+ and #$ef
+ ora #$e0
+ jsr seclisten
+ jsr UNLISTEN
+ jsr freif
+#if 0 /*def NMIDEV*/
+ lda #NMI_ON
+ jsr CTRLNMI
+#endif
+ clc
+ rts
+&&IECOPEN
+ jsr getif
+ lda #0
+ sta status
+ jsr LISTEN
+;lda status:;sta $e000
+ lda secadr
+ ora #$f0
+ jsr seclisten
+;lda status:;sta $e001
+ lda status
+ bmi opend
+ lda namlen
+ beq nonam
+ ldy #0
+op1 lda (namzei),y
+ jsr ASC2CBM ;jsr TOUPPER
+#ifdef SHOW
+ pha
+ JSR OUT
+ pla
+#endif
+ jsr IECOUT
+ iny
+ cpy namlen
+ bne op1
+#ifdef SHOW
+ jsr CRLFOUT
+#endif
+nonam jsr UNLISTEN
+
+;inc $d020
+ ;clc
+ ;rts
+ lda #E_OK
+ .byt $2c
+opend lda #E_NODEV
+ ;sec
+ pha
+ jsr freif
+ pla
+#if 0 /*def NMIDEV*/
+ pha
+ lda #NMI_ON
+ jsr CTRLNMI
+ pla
+#endif
+ cmp #1
+ rts
+
+&&DISKST
+ jsr getif
+ lda #0
+ sta status
+ jsr TALK
+ lda #$6f
+ jsr sectalk
+ jsr IECIN
+ cmp #"1"
+ beq lx1
+ cmp #"0"
+ bne lx
+lx1 lda status
+ bne lx
+ clc
+ .byt $24
+lx sec
+ php
+tya
+pha
+ldy #0
+lxxx0
+jsr IECIN
+;sta $e000,y
+iny
+lda status
+beq lxxx0
+pla
+tay
+ jsr UNTALK
+ jsr freif
+ plp
+ rts
+ .)
+#endif
+
+/******************* here is the interface to the device *****************/
+
+&TALK lda #$40
+ .byt $2c
+&LISTEN lda #$20
+ ora devadr
+atnout .(
+ pha
+
+ lda #0
+ sta status
+
+ bit bytfl
+ bpl l1
+
+ sec
+ ror eoifl
+ jsr iecout
+
+ lsr bytfl ; clear flags
+ lsr eoifl ; clear flags
+l1
+ pla
+ sta byte
+ jsr iec0out
+ cli
+ rts
+ .)
+
+&SECTALK
+ lda secadr
+ ora #$60
+ jmp sectalk
+
+&SECLISTEN
+ lda secadr
+ ora #$60
+ jmp seclisten
+
+&IECOUT .(
+ sei
+ pha
+ clc
+ bit bytfl
+ bmi iout
+ sec
+ ror bytfl
+ bne endout
+
+iout jsr iecout
+
+endout pla
+ sta byte
+
+ lda status
+ cmp #1
+ cli
+ rts
+ .)
+
+&geterr .(
+ lda status
+ rts
+ .)
+
+seterror .(
+ ora status
+ sta status
+ rts
+ .)
+
+/*
+ * device routines are:
+ * getif get interface -> PSEM(SEM_?IEC), CTRLNMI(NMI_OFF),...
+ * freif release interface -> VSEM(S*IEC), CTRLNMI(NMI_ON),...
+ * IECINIT inits the device
+ * iec0out sends a byte with ATN set
+ * sectalk send sectalk
+ * seclisten send seclisten
+ * IECIN receive byte
+ * iecout send byte
+ * UNLISTEN send unlisten
+ * UNTALK send untalk
+ */
+
+/* if not defined works if object file to link */
+#ifdef FSIEC_DEVICE
+#include FSIEC_DEVICE
+#endif
+
+#undef FSIEC_DEVICE
+#undef FSIEC_ANZDRV
+#undef MAXLEN
+#undef MAXFILE
+#undef BUFSIZE
+
+ .)
+
+ende .)
+
diff --git a/dump/oa-2.0.9/sysapps/ibmon/Makefile b/dump/oa-2.0.9/sysapps/ibmon/Makefile
new file mode 100644
index 0000000..e755572
--- /dev/null
+++ b/dump/oa-2.0.9/sysapps/ibmon/Makefile
@@ -0,0 +1,13 @@
+
+
+XAINPUT=../../include,../../arch,../..
+XA= XAINPUT=${XAINPUT} xa
+
+BIN=ibmon
+
+${BIN}.o65: ${BIN}.a65
+ ${XA} -LKERNEL -R -G ${BIN}.a65 -o ${BIN}.o65;
+
+clean:
+ rm -f ${BIN}.o65
+
diff --git a/dump/oa-2.0.9/sysapps/ibmon/ibmon.a65 b/dump/oa-2.0.9/sysapps/ibmon/ibmon.a65
new file mode 100644
index 0000000..848f143
--- /dev/null
+++ b/dump/oa-2.0.9/sysapps/ibmon/ibmon.a65
@@ -0,0 +1,1945 @@
+/****************************************************************************
+
+ OS/A65 Version 2.0.0
+ Multitasking Operating System for 6502 Computers
+
+ Copyright (C) 1989-1998 Andre Fachat
+
+ This program is free software; you can redistribute it and/or modify
+ it under the terms of the GNU General Public License as published by
+ the Free Software Foundation; either version 2 of the License, or
+ (at your option) any later version.
+
+ This program is distributed in the hope that it will be useful,
+ but WITHOUT ANY WARRANTY; without even the implied warranty of
+ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+ GNU General Public License for more details.
+
+ You should have received a copy of the GNU General Public License
+ along with this program; if not, write to the Free Software
+ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
+
+****************************************************************************/
+
+
+/***************************************************************************
+ *
+ * CS/A65 disk monitor for the WD1770 (shugart bus) floppy interface
+ *
+ */
+
+#define NOPRG
+/*#define SHOWD*/
+
+#define MA 0
+#define MB 1
+
+#include "chips/wd1770.i65"
+#include "chips/via6522.i65"
+
+#define E_CMD <-96
+#define E_Q <-97
+#define E_GT <-98
+#define E_RD <-99
+#define E_WR <-100
+#define E_FT <-101
+
+ .(
+#ifdef ROM
+ .word ende
+ .byt PK_PRG
+ .byt 16
+ .word 0
+ .word PRG
+ .byt /*8,8,9,9,$a,$a,$b,$b,$c,$c,$d,$d,*/ $e,$e,<-1
+ .asc "ibmon",0,0
+#else
+
+#include "kdefs.i65"
+#include "kernel.i65"
+#include "oldlib/stdio.a65"
+
+#ifdef NOPRG
+
+ .word $800
+; *=$800
+ jmp PRG
+
+#else
+; *=$800
+ .word 0
+ .byt PK_PRG
+ .byt 16
+ .word 0
+ .word PRG
+ .byt <-1
+
+#endif
+#endif
+
+#ifndef NOMMU
+-sysblk =$4000
+-sysmem =$400
+-syszp =$40
+#endif
+
+#echo ibmon:
+#print sysmem
+#print syszp
+#print sysblk
+
+/*************************************************************************/
+
+#define ANZDRV 2
+
+/* Parameter zum Aufruf RWSEC */
+
+#define RW_DRV 0
+#define RW_SIDE 1
+#define RW_TRCK 2
+#define RW_SEC 3
+#define RW_ADR 4
+#define RW_SLEN 6
+
+/* Parameter zum Aufruf von DFORMAT */
+
+#define FMT_VIRG 0
+#define FMT_SIDES 1
+#define FMT_TRCKS 2
+#define FMT_HDFL 3
+#define FMT_BLEN 4
+#define FMT_SCLST 5 /* Anzahl Sektoren+1, sekt1, sekt2, sekt3... */
+
+#define MEBYT ":"
+#define ABPZ #16
+#define MESSAGE "-"
+#define MAXLEN 64
+#define BUFLEN 8192
+
+/*************************************************************************/
+
+-sysblk -=BUFLEN
+buffer =sysblk
+
+LZEI =sysmem
+IOBUF =sysmem+1
+-sysmem +=MAXLEN+1
+
+PRG jsr DINIT
+ lda #M0TXT
+ jsr Txtout
+MXL
+ JSR Crlfout:LDA #MESSAGE
+ JSR Putc
+ JSR MLINEIN:bcs termmon
+linex jsr CHRGOT:beq MXL:bne mx1
+MO0 jsr CHRGET:beq MXL
+mx1 CMP #MESSAGE:BEQ MO0
+ jsr TOUPPER
+ LDX #0:MO3 CMP MONBEF,X:BEQ MO4
+ INX:CPX #ANZBEF:BCC MO3
+ JSR ERR
+ JMP MXL
+MOX pla
+ pla
+termmon lda #MTTXT:jsr Txtout
+#ifdef NOPRG
+ rts
+#endif
+ jmp TERM
+
+ERR LDA #M3TXT:JSR Txtout:SEC:RTS
+MO4 INC LZEI
+ JSR MOEX
+ ;bcc mo4
+ ;jsr ERR
+mo4 JMP MXL
+MOEX TXA:ASL:TAX:LDA MONADR+1,X
+ PHA:LDA MONADR,X:PHA:RTS
+
+ANZBEF =14
+MONBEF .asc "XRWMI",MEBYT,"LSOTFCBN"
+MONADR .word MOX-1,mread-1,mwrite-1,MOM-1,BI-1,MOI-1
+ .word lread-1,lwrite-1
+ .word MOO-1,MOT-1,MOF-1,MOC-1,BB-1,MON-1
+
+M0TXT .ASC "^M^JC*^M^J"
+ .ASC "DMON V"
+ .BYT MA+"0",".",MB+"0"
+ .asc " (c) A.Fachat^@"
+M3TXT .BYT " ","?",0
+MTTXT .asc "^M^JBye!^M^J",0
+
+m0rtxt .asc "^MLese",0
+m0wtxt .asc "^MSchreibe",0
+m1txt .asc " Block: Drive ",0
+m2txt .asc ", Seite ",0
+m3txt .asc ", Track ",0
+m4txt .asc ", Sektor ",0
+fmtxt .asc "^M^JSind Sie sicher (J/N)?",0
+
+/**************************************************************************/
+
+ .(
+rwfl =sysmem
+rwpar =sysmem+1
+rwp2 =sysmem+1+RW_SLEN
+rwp3 =sysmem+1+2*RW_SLEN
+-sysmem +=3*RW_SLEN+1
+
+&mread ldx #0
+ .byt $2c
+&mwrite ldx #1
+ .(
+ stx rwfl
+ jsr GETADR
+ bcs rwerr
+ sta rwpar+RW_DRV
+ jsr GETADR
+ bcs rwerr
+ sta rwpar+RW_SIDE
+ jsr GETADR
+ bcs rwerr
+ sta rwpar+RW_TRCK
+ jsr GETADR
+ bcs rwerr
+ sta rwpar+RW_SEC
+ lda #buffer
+ sta rwpar+RW_ADR+1
+ jsr GETADR
+ bcs goon
+ sta rwpar+RW_ADR
+ stx rwpar+RW_ADR+1
+goon
+ jsr Crlfout
+ lda #rwpar
+ ldx rwfl
+ bne w
+ clc
+ .byt $24
+w sec
+ jsr RWSEC
+rwerr rts
+ .)
+
+&lread ldx #0
+ .byt $2c
+&lwrite ldx #1
+ .(
+ stx rwfl
+ jsr GETADR
+ bcs rwerrx
+ sta rwpar+RW_DRV
+ jsr GETADR
+ bcs rwerrx
+ sta rwp2+RW_SIDE
+ sta rwpar+RW_SIDE
+ jsr GETADR
+ bcs rwerrx
+ sta rwp3+RW_SIDE
+ jsr GETADR
+ bcs rwerrx
+ sta rwpar+RW_TRCK
+ sta rwp2+RW_TRCK
+ jsr GETADR
+ bcs rwerrx
+ sta rwp3+RW_TRCK
+ jsr GETADR
+ bcs rwerrx
+ sta rwpar+RW_SEC
+ sta rwp2+RW_SEC
+ jsr GETADR
+rwerrx bcs rwerr
+ sta rwp3+RW_SEC
+ lda #buffer
+ sta rwpar+RW_ADR+1
+ jsr GETADR
+ bcs goon
+ sta rwpar+RW_ADR
+ stx rwpar+RW_ADR+1
+goon
+ jsr Crlfout
+loop
+ lda #rwpar
+ ldx rwfl
+ bne w
+ clc
+ .byt $24
+w sec
+ jsr RWSEC
+ bcs rwerr
+
+ stx rwpar+RW_ADR
+ sty rwpar+RW_ADR+1
+
+ inc rwpar+RW_SEC
+ lda rwpar+RW_SEC
+ cmp rwp3+RW_SEC
+ bcc loop
+ lda rwp2+RW_SEC
+ sta rwpar+RW_SEC
+
+ inc rwpar+RW_TRCK
+ lda rwpar+RW_TRCK
+ cmp rwp3+RW_TRCK
+ bcc loop
+ lda rwp2+RW_TRCK
+ sta rwpar+RW_TRCK
+
+ inc rwpar+RW_SIDE
+ lda rwpar+RW_SIDE
+ cmp rwp3+RW_SIDE
+ bcs l3
+ jmp loop
+
+l3 clc
+rwerr rts
+ .)
+
+&MON .( ;format drive format
+ jsr GETADR
+ bcs moe
+ sta rwpar ;drv
+ jsr GETADR
+ bcs moe
+ sta rwpar+1
+
+ lda #fmtxt
+ jsr Txtout
+ jsr MLINEIN
+ jsr CHRGOT
+
+ pha
+ jsr Putc
+ pla
+
+ cmp #"j"
+ beq format
+ cmp #"J"
+ bne moe
+format ldx rwpar
+ lda rwpar+1
+ jsr DFORMAT
+ bcs moe
+ rts
+moe jmp ERR
+ .)
+ .)
+
+/**************************************************************************/
+
+Z1 =syszp
+Z2 =syszp+2
+Z3 =syszp+4
+-syszp +=6
+
+MOM .(
+ JSR GET12:BCS MOME:;jsr setout
+/*
+ lda #buffer
+ adc Z1+1
+ sta Z1+1
+
+ lda #buffer
+ adc Z2+1
+ sta Z2+1
+*/
+30150 MOM1 JSR MOMZO
+ jsr Serbrk:bcs MOME
+30160 LDA ABPZ:JSR ADCMP:BCC MOM1
+30170 MOME RTS
+30180 MOMZO JSR Crlfout:LDA #MEBYT:JSR MASOUT
+30220 LDY #0:beq mom2:MOM2 jsr SSPOUT:mom2 LDA (Z1),Y
+30230 JSR SBYTO:INY:CPY ABPZ:BNE MOM2
+ lda #":":jsr Putc
+30240 LDY #0:MOM3 LDA (Z1),Y
+30250 TAX:AND #127:CMP #32:BCS MOM4
+30260 LDX #".":MOM4 TXA:JSR Putc
+30270 INY:CPY ABPZ:BNE MOM3
+30280 RTS
+ .)
+
+BB .(
+ JSR GET12:BCS MOBE:;jsr setout
+MOB1 JSR MOBZO
+ jsr Serbrk:bcs MOBE
+ LDA #1:JSR ADCMP
+ BCC MOB1
+MOBE RTS
+MOBZO JSR Crlfout:LDA #MEBYT:JSR MASOUT
+ LDY #0
+ LDA (Z1),Y
+ JMP SBINBO
+ .)
+
+BI .(
+ JSR GETADR:bcs MOIE
+ sta Z1:stx Z1+1
+/* clc:adc #buffer:sta Z1+1
+*/
+ jsr CHRGOT:bne MOI0
+ lda #MEBYT
+ ldy #0
+ jmp MOINL
+
+&MOI JSR GETADR:bcs MOIE
+ sta Z1:stx Z1+1
+/* clc: adc #