From 98cab31fc3659e33aef260efca55bf9f1753164c Mon Sep 17 00:00:00 2001
From: Lars-Dominik Braun <lars@6xq.net>
Date: Mon, 11 Feb 2019 11:49:19 +0100
Subject: Add source files from Michael

---
 system/shard-x86-at/7/src/NILCHAN.ASM | 54 +++++++++++++++++++++++++++++++++++
 1 file changed, 54 insertions(+)
 create mode 100644 system/shard-x86-at/7/src/NILCHAN.ASM

(limited to 'system/shard-x86-at/7/src/NILCHAN.ASM')

diff --git a/system/shard-x86-at/7/src/NILCHAN.ASM b/system/shard-x86-at/7/src/NILCHAN.ASM
new file mode 100644
index 0000000..70caad6
--- /dev/null
+++ b/system/shard-x86-at/7/src/NILCHAN.ASM
@@ -0,0 +1,54 @@
+;***************************************************************************
+;*======= Copyright (C) 1985,86 Martin Schoenbeck, Spenge =================*
+;*                                                                         *
+;*   Dieses Modul definiert alle Routinen, die benoetigt werden, wenn      *
+;*   ein Kanal nicht existiert oder bestimmte Funktionen nicht durch-      *
+;*   fuehren kann.                                                         *
+;*                                                                         *
+;***************************************************************************
+
+     device nilchannel
+
+     dtcbroutines iocontrol
+          routine 1,devicetype
+          routine 2,frout_ok
+          routine 5,nil_size
+          routine -1,unknowncontrol
+     dtcbroutines control32
+          routine -1,no_channel_setup
+     dtcbroutines blockin
+     dtcbroutines blockout
+          routine -1,no_blockinout
+     dtcbparams nil_output,0            ;output; niltype
+
+nil_size:
+     mov al,0
+     mov cx,0
+     ret
+
+unknowncontrol:
+no_blockinout:
+     mov cx,-1
+     ret
+
+frout_ok:
+     mov cx,200                    ;200 bytes frei
+     stc                           ;puffer leer
+     ret
+
+no_baud:
+no_bits:
+no_flow:
+no_channel_setup:
+     mov cx,1
+     ret
+
+nil_output:
+     stc
+     ret                           ;alle zeichen uebernommen
+
+devicetype:
+     mov ch,0                      ;hoeherwertige teil immer null
+     mov cl,shard:(si+devtype)     ;type dazu
+     ret
+
\ No newline at end of file
-- 
cgit v1.2.3