From 98cab31fc3659e33aef260efca55bf9f1753164c Mon Sep 17 00:00:00 2001 From: Lars-Dominik Braun Date: Mon, 11 Feb 2019 11:49:19 +0100 Subject: Add source files from Michael --- system/shard-x86-at/7/src/ATSHARD.ASM | 156 ++++++++++++++++++++++++++++++++++ 1 file changed, 156 insertions(+) create mode 100644 system/shard-x86-at/7/src/ATSHARD.ASM (limited to 'system/shard-x86-at/7/src/ATSHARD.ASM') diff --git a/system/shard-x86-at/7/src/ATSHARD.ASM b/system/shard-x86-at/7/src/ATSHARD.ASM new file mode 100644 index 0000000..f2f198c --- /dev/null +++ b/system/shard-x86-at/7/src/ATSHARD.ASM @@ -0,0 +1,156 @@ + page 80,132 +title AT-SHard, Copyright (C) 1985, 86 Martin Schoenbeck, Spenge +;****************************************************************************** +;* * +;* S H A R D - M O D U L * +;* * +;* fuer EUMEL auf 80286 Systemen * +;* * +;* SHard Version 7-PC/AT * +;* * +;* Copyright (C) 1985, 86 Martin Schoenbeck, Spenge * +;* * +;****************************************************************************** + +at equ 1 +gensys equ 0 +ramsys equ 0 +pcxt equ 0 +pcd equ 0 +kompatible equ 0 +romharddisk equ 0 +romfloppy equ 0 +limited_to_360 equ 0 +boot_size equ 0 + +hdsystem equ 1 +withhd equ 1 + +setup_channel equ 28 +dos_channel equ 29 + +shard group code +code segment word public 'code' + assume cs:shard, ds:shard, es:nothing, ss:nothing + +shstart: + jmp los_gehts + + even + + include MACROS.ASM + include MAC286.ASM + include DEVICE.ASM + include EUCONECT.ASM + org 0a0h ;bei wort 80 beginnen + include PATCHARE.ASM + + include SHMAIN.ASM + +IBMat equ 0fch +com1base equ 03f8h +com1irq equ 4 +com2base equ 02f8h +com2irq equ 3 +com3base equ 03e8h +com3irq equ 3 +com4base equ 82f8h +com4irq equ 7 +com4_1base equ 02c0h +com4_1irq equ 3 +com4_2base equ 02c8h +com4_2irq equ 3 Šcom4_3base equ 02d0h +com4_3irq equ 3 +com4_4base equ 02d8h +com4_4irq equ 3 +com8_1base equ 02e0h +com8_1irq equ 3 +com8_2base equ 02e8h +com8_2irq equ 3 +com8_3base equ 02f0h +com8_3irq equ 3 +com8_4base equ 02f8h +com8_4irq equ 3 +para1base equ 3bch +para1irq equ 7 + +int_ctlr equ 20h +first_ictlr_int equ 8 + +channel macro number,dev,ccb +channels = channels+1 +selectentry = 5 + db number + dw offset ccb + if2 + dwb paramstart_,%&dev + else + dw 0 ;;weil in pass eins device evtl. unbekannt + endif + endm + +selecttable: + db channels ;anzahl kanaele hier setzen +channels = -1 ;nilchannel vorab abziehen + channel 32,shardchannel,0 + channel 0,fixdisk,hgccb0 +alterable_channels: + channel 1,pc,0 + channel 2,i8250,com1ccb + channel 3,i8250,com2ccb + channel 4,i8250,com4_1ccb + channel 5,i8250,com4_2ccb + channel 6,i8250,com4_3ccb + channel 7,i8250,com4_4ccb + channel 8,i8250,com8_1ccb + channel 9,i8250,com8_2ccb + channel 10,i8250,com8_3ccb + channel 12,parallel,para1ccb + channel 28,fixdisk,hgccb1 + channel 29,fixdisk,hgccb2 + channel 31,archive,archive_0 + channel 30,archive,archive_1 + channel -1,nilchannel,0 + Š include I8250.ASM + include PCPAR.ASM + include STREAM.ASM + include NILCHAN.ASM + include PCSCREEN.ASM + include PCPLOT.ASM + include PCSYS.ASM + include FIXDISK.ASM + include FLOPPY.ASM + include CLOCK.ASM + include WAIT.ASM + include HARDWARE.ASM + include BLOCKERR.ASM + + i8250_ccb com1,2 + i8250_ccb com2,3 + i8250_ccb com4_1,4 + i8250_ccb com4_2,5 + i8250_ccb com4_3,6 + i8250_ccb com4_4,7 + i8250_ccb com8_1,8 + i8250_ccb com8_2,9 + i8250_ccb com8_3,10 + para_ccb para1,12 + ;erlaubt drivetypen: highdensity, drive720 + archive_ccb 0,highdensity + archive_ccb 1,0 + fix_ccb 0 + fix_ccb 1 + fix_ccb 2 + +sysmove: + rep movsw + jmp systemstart + + include BOOT.ASM + +code ends + + end los_gehts + + + -- cgit v1.2.3