page 80,132
;******************************************************************************
;* *
;* S H A R D - M O D U L *
;* *
;* fuer EUMEL auf 8086/8088 Systemen *
;* *
;* SHard Version 6-PC/Floppy *
;* *
;* Copyright (C) Martin Schoenbeck, Spenge *
;* *
;******************************************************************************
com2wrongirq equ 0
add4 equ 0
ast equ 0
at equ 0
pcxt equ 1
pcd equ 0
romfloppy equ 0
ramsys equ 0
limited_to_360 equ 0
mit_msdos equ 0
withhd equ 0
hdsystem equ 0
boot_size equ 0
gensys equ 0
shard group code
code segment word public 'code'
assume cs:shard, ds:shard, es:nothing, ss:nothing
org 100h
shstart:
jmp los_gehts
include MACROS.ASM
include MAC286.ASM
include DEVICE.ASM
include EUCONECT.ASM
include SHMAIN.ASM
IBMat equ 0fch
com1base equ 03f8h
com1irq equ 4
com2base equ 02f8h
if com2wrongirq
com2irq equ 5
else
com2irq equ 3
endif
if add4
com4_1base equ 03e8h
com4_1irq equ 3
com4_2base equ 03e0h
com4_2irq equ 3
com4_3base equ 02f0h
com4_3irq equ 3
com4_4base equ 02e8h
com4_4irq equ 3
com8_1base equ 02e0h
com8_1irq equ 3
com8_2base equ 0260h
com8_2irq equ 3
com8_3base equ 02d8h
com8_3irq equ 3
else
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
add4_3base equ 03e8h
add4_3irq equ 3
add4_4base equ 03e0h
add4_4irq equ 3
add4_8base equ 0260h
add4_8irq equ 3
endif
ast0_1base equ 01a0h
ast0_1irq equ 5
ast0_2base equ 01a8h
ast0_2irq equ 5
ast0_3base equ 01b0h
ast0_3irq equ 5
ast0_4base equ 01b8h
ast0_4irq equ 5
ast1_1base equ 02a0h
ast1_1irq equ 5
ast1_2base equ 02a8h
ast1_2irq equ 5
ast1_3base equ 02b0h
ast1_3irq equ 5
ast1_4base equ 02b8h
ast1_4irq equ 5
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
if at
channel 0,archive,archive_0
else
channel 0,archive,archive_1
endif
alterable_channels:
channel 1,pc,0
channel 2,i8250,com1ccb
channel 3,i8250,com2ccb
if ast
channel 4,i8250,ast0_1ccb
channel 5,i8250,ast0_2ccb
channel 6,i8250,ast0_3ccb
channel 7,i8250,ast0_4ccb
channel 8,i8250,ast1_1ccb
channel 9,i8250,ast1_2ccb
channel 10,i8250,ast1_3ccb
channel 11,i8250,ast1_4ccb
else
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
ife add4 ;wenn nicht extra fuer add4, trotzdem vorsehen
channel 11,i8250,add4_3ccb
channel 12,i8250,add4_4ccb
channel 13,i8250,add4_8ccb
endif
endif
channel 15,parallel,para0ccb
channel 14,parallel,para1ccb
channel 16,parallel,para2ccb
if at and not ramsys
channel 31,archive,archive_1
else
channel 31,archive,archive_0
endif
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
if ast
i8250_ccb ast0_1,4
i8250_ccb ast0_2,5
i8250_ccb ast0_3,6
i8250_ccb ast0_4,7
i8250_ccb ast1_1,8
i8250_ccb ast1_2,9
i8250_ccb ast1_3,10
i8250_ccb ast1_4,11
else
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
ife add4 ;wenn nicht extra fuer add4, trotzdem vorsehen
i8250_ccb add4_3,11
i8250_ccb add4_4,12
i8250_ccb add4_8,13
endif
endif
para_ccb 0,15
para_ccb 1,14
para_ccb 2,16
archive_ccb 0,0
archive_ccb 1,0
sysmove:
rep movsw
jmp systemstart
include BOOT.ASM
code ends
end los_gehts