diff options
author | Lars-Dominik Braun <lars@6xq.net> | 2019-03-02 17:15:47 +0100 |
---|---|---|
committer | Lars-Dominik Braun <lars@6xq.net> | 2019-03-02 17:15:47 +0100 |
commit | c316cd982303f30f29075f31bcd910f9be38bb25 (patch) | |
tree | 12ba04bd0f2a94bd48583ee5f2ab269b6ba5c8b3 /system/shard-x86-at/7/src | |
parent | 50acf53648b6562853cb26aa4e7062a5ced66908 (diff) | |
download | eumel-src-master.tar.gz eumel-src-master.tar.bz2 eumel-src-master.zip |
Files imported in commit 98cab31fc3659e33aef260efca55bf9f1753164c were
exported from EUMEL to DOS and used codepage 437/850(?). Convert files
to UTF-8 where possible. Some files were left as-is. Iâm not sure
whether converting these would be correct.
Diffstat (limited to 'system/shard-x86-at/7/src')
23 files changed, 39 insertions, 52 deletions
diff --git a/system/shard-x86-at/7/src/ATSHARD.ASM b/system/shard-x86-at/7/src/ATSHARD.ASM index f2f198c..fcc5c50 100644 --- a/system/shard-x86-at/7/src/ATSHARD.ASM +++ b/system/shard-x86-at/7/src/ATSHARD.ASM @@ -59,7 +59,8 @@ com4irq equ 7 com4_1base equ 02c0h
com4_1irq equ 3
com4_2base equ 02c8h
-com4_2irq equ 3
com4_3base equ 02d0h
+com4_2irq equ 3
+com4_3base equ 02d0h
com4_3irq equ 3
com4_4base equ 02d8h
com4_4irq equ 3
@@ -111,7 +112,8 @@ alterable_channels: channel 31,archive,archive_0
channel 30,archive,archive_1
channel -1,nilchannel,0
-
include I8250.ASM
+
+ include I8250.ASM
include PCPAR.ASM
include STREAM.ASM
include NILCHAN.ASM
@@ -153,4 +155,3 @@ code ends end los_gehts
-
diff --git a/system/shard-x86-at/7/src/BLOCKERR.ASM b/system/shard-x86-at/7/src/BLOCKERR.ASM index fb17016..fb5b137 100644 --- a/system/shard-x86-at/7/src/BLOCKERR.ASM +++ b/system/shard-x86-at/7/src/BLOCKERR.ASM @@ -79,4 +79,3 @@ messagetable: -
\ No newline at end of file diff --git a/system/shard-x86-at/7/src/BOOT.ASM b/system/shard-x86-at/7/src/BOOT.ASM index e13c805..c26f1df 100644 --- a/system/shard-x86-at/7/src/BOOT.ASM +++ b/system/shard-x86-at/7/src/BOOT.ASM @@ -15,13 +15,13 @@ ; Lesezugriffe bis Block 6 auf Floppy werden immer erlaubt
;2.5 Hercules Karte wird unterstuetzt
; Bei AT werden schlechte sectoren statt spuren behandelt
-;2.6 Fehler in Plattengráe bei behoben (meldete immer al <> 0)
+;2.6 Fehler in PlattengröĂe bei behoben (meldete immer al <> 0)
;2.7 Floppylogik fuer 1.7.3 restauriert, Floppy steht jetzt immer
; auf 360k, wenn keine Floppy erkannt wird, und der Urlader die
; HG-Version 1742 hat.
; die Schnittstellen der Addonics-Karte sind jetzt immer mit drin,
; wenn COM4 generiert sind.
-; Die Druckerkanle liegen auf 15,14,16
+; Die DruckerkanÀle liegen auf 15,14,16
; Die Baudrateabfrage verneint auch 0
los_gehts:
@@ -423,4 +423,3 @@ no_eumel_partition_text: endtext:
lastbootbyte:
-
\ No newline at end of file diff --git a/system/shard-x86-at/7/src/CLOCK.ASM b/system/shard-x86-at/7/src/CLOCK.ASM index b70f18e..1f0e395 100644 --- a/system/shard-x86-at/7/src/CLOCK.ASM +++ b/system/shard-x86-at/7/src/CLOCK.ASM @@ -53,4 +53,3 @@ putbcd: inc bx ;zum naechsten
ret
-
\ No newline at end of file diff --git a/system/shard-x86-at/7/src/DEVICE.ASM b/system/shard-x86-at/7/src/DEVICE.ASM index 0800a67..68eb129 100644 --- a/system/shard-x86-at/7/src/DEVICE.ASM +++ b/system/shard-x86-at/7/src/DEVICE.ASM @@ -89,4 +89,3 @@ entry = $-actccb .list
-
\ No newline at end of file diff --git a/system/shard-x86-at/7/src/EUCONECT.ASM b/system/shard-x86-at/7/src/EUCONECT.ASM index 9d1133c..7bc0aa2 100644 --- a/system/shard-x86-at/7/src/EUCONECT.ASM +++ b/system/shard-x86-at/7/src/EUCONECT.ASM @@ -77,4 +77,3 @@ dummy_ret proc far sti
ret
dummy_ret endp
-
\ No newline at end of file diff --git a/system/shard-x86-at/7/src/FIXDISK.ASM b/system/shard-x86-at/7/src/FIXDISK.ASM index 520976a..0b18fdd 100644 --- a/system/shard-x86-at/7/src/FIXDISK.ASM +++ b/system/shard-x86-at/7/src/FIXDISK.ASM @@ -304,4 +304,3 @@ fix_err db 0 ife romhd
include HDISK.ASM
endif
-
\ No newline at end of file diff --git a/system/shard-x86-at/7/src/FLOPPY.ASM b/system/shard-x86-at/7/src/FLOPPY.ASM index 861d06f..07145ce 100644 --- a/system/shard-x86-at/7/src/FLOPPY.ASM +++ b/system/shard-x86-at/7/src/FLOPPY.ASM @@ -451,4 +451,3 @@ fifteenblockvector: endif
-
\ No newline at end of file diff --git a/system/shard-x86-at/7/src/FSHARD.ASM b/system/shard-x86-at/7/src/FSHARD.ASM index da8f6a1..83c0c21 100644 --- a/system/shard-x86-at/7/src/FSHARD.ASM +++ b/system/shard-x86-at/7/src/FSHARD.ASM @@ -53,7 +53,8 @@ com2base equ 02f8h com4_1base equ 03e8h
com4_1irq equ 3
com4_2base equ 03e0h
-com4_2irq equ 3
com4_3base equ 02f0h
+com4_2irq equ 3
+com4_3base equ 02f0h
com4_3irq equ 3
com4_4base equ 02e8h
com4_4irq equ 3
@@ -67,7 +68,8 @@ com8_3irq equ 3 com4_1base equ 02c0h
com4_1irq equ 3
com4_2base equ 02c8h
-com4_2irq equ 3
com4_3base equ 02d0h
+com4_2irq equ 3
+com4_3base equ 02d0h
com4_3irq equ 3
com4_4base equ 02d8h
com4_4irq equ 3
@@ -82,7 +84,8 @@ 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_4irq equ 3
+add4_8base equ 0260h
add4_8irq equ 3
endif
ast0_1base equ 01a0h
@@ -220,4 +223,3 @@ code ends end los_gehts
-
\ No newline at end of file diff --git a/system/shard-x86-at/7/src/HARDWARE.ASM b/system/shard-x86-at/7/src/HARDWARE.ASM index df89fdf..88b66dd 100644 --- a/system/shard-x86-at/7/src/HARDWARE.ASM +++ b/system/shard-x86-at/7/src/HARDWARE.ASM @@ -14,4 +14,3 @@ hardware: ret
-
\ No newline at end of file diff --git a/system/shard-x86-at/7/src/HSHARD.ASM b/system/shard-x86-at/7/src/HSHARD.ASM index c21b572..1a2100a 100644 --- a/system/shard-x86-at/7/src/HSHARD.ASM +++ b/system/shard-x86-at/7/src/HSHARD.ASM @@ -63,7 +63,8 @@ com2base equ 02f8h com4_1base equ 03e8h
com4_1irq equ 3
com4_2base equ 03e0h
-com4_2irq equ 3
com4_3base equ 02f0h
+com4_2irq equ 3
+com4_3base equ 02f0h
com4_3irq equ 3
com4_4base equ 02e8h
com4_4irq equ 3
@@ -77,7 +78,8 @@ com8_3irq equ 3 com4_1base equ 02c0h
com4_1irq equ 3
com4_2base equ 02c8h
-com4_2irq equ 3
com4_3base equ 02d0h
+com4_2irq equ 3
+com4_3base equ 02d0h
com4_3irq equ 3
com4_4base equ 02d8h
com4_4irq equ 3
@@ -92,7 +94,8 @@ 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_4irq equ 3
+add4_8base equ 0260h
add4_8irq equ 3
endif
ast0_1base equ 01a0h
@@ -174,7 +177,8 @@ alterable_channels: channel 30,archive,archive_1
endif
channel -1,nilchannel,0
-
include I8250.ASM
+
+ include I8250.ASM
include PCPAR.ASM
include STREAM.ASM
include NILCHAN.ASM
@@ -239,4 +243,3 @@ code ends end los_gehts
-
\ No newline at end of file diff --git a/system/shard-x86-at/7/src/I8250.ASM b/system/shard-x86-at/7/src/I8250.ASM index 19f584d..cb69233 100644 --- a/system/shard-x86-at/7/src/I8250.ASM +++ b/system/shard-x86-at/7/src/I8250.ASM @@ -434,4 +434,3 @@ i8250_sendbreak: out dx,al
sti
ret
-
\ No newline at end of file diff --git a/system/shard-x86-at/7/src/MACROS.ASM b/system/shard-x86-at/7/src/MACROS.ASM index 710ef4c..c2f8b3a 100644 --- a/system/shard-x86-at/7/src/MACROS.ASM +++ b/system/shard-x86-at/7/src/MACROS.ASM @@ -77,4 +77,3 @@ popff macro endm
.LIST
-
\ No newline at end of file diff --git a/system/shard-x86-at/7/src/NILCHAN.ASM b/system/shard-x86-at/7/src/NILCHAN.ASM index 70caad6..1ff0108 100644 --- a/system/shard-x86-at/7/src/NILCHAN.ASM +++ b/system/shard-x86-at/7/src/NILCHAN.ASM @@ -51,4 +51,3 @@ devicetype: mov ch,0 ;hoeherwertige teil immer null
mov cl,shard:(si+devtype) ;type dazu
ret
-
\ No newline at end of file diff --git a/system/shard-x86-at/7/src/PATCH.ELA b/system/shard-x86-at/7/src/PATCH.ELA index 539a674..c3f34f1 100644 --- a/system/shard-x86-at/7/src/PATCH.ELA +++ b/system/shard-x86-at/7/src/PATCH.ELA @@ -2,28 +2,28 @@ - Vortest/Speichertest
- Keyboard Repeatfrequenz
- Baudrates 19200/38400 werden angeboten
- - Refresh-Intervall nderbar (bis zu 5% mehr Leistung)
+ - Refresh-Intervall Ànderbar (bis zu 5% mehr Leistung)
- control (-3,,,r) liefert im Highbyte das Modemstatusregister (RI etc.)
- control (-5,8,,r) geht in ruc-Bios-Graphikmodus (mit Textausgabe:
Text mit 'out', 'put' etc. schreiben, cursor (x, y) mit y:1..43,
- Codes ""4"", ""5"", Scroll lschen jetzt vernnftig (Attribut von 7 auf
- 0 gendert),
+ Codes ""4"", ""5"", Scroll löschen jetzt vernĂŒnftig (Attribut von 7 auf
+ 0 geÀndert),
Achtung: getcursor (x, y) im 'begin plot' einbauen.
cursor (x,y) im 'end plot' einbauen, wegen y<25 im Textmodus!)
- - Kanal 30 (Archiv 1) jetzt fr MF-Laufwerke (5.25" bzw. 3.5"), Default-
+ - Kanal 30 (Archiv 1) jetzt fĂŒr MF-Laufwerke (5.25" bzw. 3.5"), Default-
Size ist 1.2MB (Achtung bei Formatieren von 3.5"-Floppys!)
- - Mit control (-10/-11,...) ("stop", "weiter") wird an den RS232-Kanlen
+ - Mit control (-10/-11,...) ("stop", "weiter") wird an den RS232-KanÀlen
jetzt nicht nur RTS active/inactive gesetzt sondern auch DTR (Modem).
- An Kanal 32:
Mit control (-3, x, mcr*32+kanal, r) (mcr ist Modemcontrolregister Wert,
- x egal) knnen RTS, DTR explizit gesetzt werden.
+ x egal) können RTS, DTR explizit gesetzt werden.
- id (6) > 0 : SHard wurde gepatcht.
Michael Staubermann, Version 2: 09.10.87, Keyboardrepeat, Baudrates
Version 3: 04.11.87, Graphikcursor & Graphikmodi
Version 3.1: 20.11.87, >32MB Partitionen f. M+
Version 4: 04.12.87, TX-Interrupt restart
- Version 4.1: 10.01.88, Refresh-Intervall nderbar
+ Version 4.1: 10.01.88, Refresh-Intervall Ànderbar
Version 5: 21.02.88, Kanal 30 1.2MB-Format (3.5")
Version 5.1: 22.02.88,
*)
@@ -61,7 +61,7 @@ INT OP & (TEXT CONST hex) : THEN h := h OR (c-55)
ELIF c >= 48 AND c <= 57
THEN h := h OR (c-48)
- ELSE errorstop ("OP &: ungltiges Hexdigit ("+code(c)+")")
+ ELSE errorstop ("OP &: ungĂŒltiges Hexdigit ("+code(c)+")")
FI ;
PER ;
h
@@ -121,7 +121,7 @@ PROC poken (INT CONST shard adr, TEXT CONST str) : THEN poke2 (adr, &subtext (str, i, i+3)) ;
i INCR 5 ;
adr INCR 2
- ELSE errorstop ("poken: Zuviele zusammenhngende Bytes")
+ ELSE errorstop ("poken: Zuviele zusammenhÀngende Bytes")
FI ;
PER ;
ENDPROC poken ;
@@ -175,7 +175,7 @@ PROC get partition : putline ("Partionsanfang: " +
text ((partition start 1+1.0)/2.0, 6, 0) + " KB = Cylinder " +
text (int ((partition start 1+1.0)/real(secs)/real(heads)))) ;
- putline ("Partionsgrsse: " + text (partition size/2.0, 6, 0) + " KB = " +
+ putline ("Partionsgrösse: " + text (partition size/2.0, 6, 0) + " KB = " +
text (int (partition size/real(secs)/real(heads))) + " Cylinder");
put ("Diese Partition ist") ;
IF NOT partition active
@@ -227,7 +227,7 @@ PROC write shard : FOR i FROM 1 UPTO shard bloecke REP
IF modified (i)
THEN IF session <> old session
- THEN errorstop ("RERUN whrend patch")
+ THEN errorstop ("RERUN wÀhrend patch")
FI ;
blockout (setup channel, block (i), partition start1+real(i-1)) ;
modified (i) := FALSE
@@ -267,10 +267,10 @@ PROC patch shard : patch dtr inactive ;
patch mcr set routine ;
patch archive 1 format ;
- IF yes ("nderungen permanent machen")
+ IF yes ("Ănderungen permanent machen")
THEN write shard ;
- putline ("nderungen durchgefhrt, System neu booten.") ;
- ELSE putline ("Keine nderungen durchgefhrt.") ;
+ putline ("Ănderungen durchgefĂŒhrt, System neu booten.") ;
+ ELSE putline ("Keine Ănderungen durchgefĂŒhrt.") ;
FI .
check if patch possible :
@@ -290,7 +290,7 @@ mode: &"0556" . id 6: &"055C" .
patch baudrate :
- putline ("Baudrates 50, 75 entfernt, 19200, 38400 eingefgt.") ;
+ putline ("Baudrates 50, 75 entfernt, 19200, 38400 eingefĂŒgt.") ;
poke2 (&"07E8", 1047) ; (* 3: 110 *)
poke2 (&"07EA", 857) ; (* 4: 134.5 *)
poke2 (&"07EC", 768) ; (* 5: 150 *)
@@ -323,7 +323,7 @@ patch baudrate : patch id and mode :
poke2 (id6, patch version) ; (* Update Patch Version *)
- IF yes ("Soll ein Vortest durchgefhrt werden")
+ IF yes ("Soll ein Vortest durchgefĂŒhrt werden")
THEN IF yes ("Soll ein Speichertest durchgefuehrt werden")
THEN poke2 (mode, 0)
ELSE poke2 (mode, 256)
@@ -381,7 +381,7 @@ patch refresh: patch cursor maxima:
(* Es werden nur die Maxima bei CURSOR(,) veraendert, CLEOL, CLEOP,SCROLL
etc. arbeiten weiter mit 24 Zeilen, 80 Spalten *)
- (* CURSOR y:0..43, x:0..89 EUMEL lsst allerdings nur 0..79 zu *)
+ (* CURSOR y:0..43, x:0..89 EUMEL lÀsst allerdings nur 0..79 zu *)
poke (&"0EFF", 43) ;
poke (&"0F16", 89) .
@@ -398,7 +398,7 @@ patch dtr inactive : patch mcr set routine :
(*
- 0812: 20 Bytes zur Verfgung
+ 0812: 20 Bytes zur VerfĂŒgung
MOV DX,(DI+i8250_base)
ADD DX,i8250_mcr
MOV AL,BH ; Highbyte 2. IOCONTROL Parameter
@@ -415,7 +415,7 @@ patch archive 1 format : putline (" 1: 360K (Standard/Doublestep)") ;
putline (" 2: 720K (Standard/Singlestep)") ;
putline (" 3: 1.2MB (Multifunction)") ;
- putline ("ESC: Nichts verndern") ;
+ putline ("ESC: Nichts verÀndern") ;
put ("Typ:") ;
TEXT VAR t ;
REP inchar (t) UNTIL t >= "0" AND t <= "3" OR t = ""27"" PER ;
diff --git a/system/shard-x86-at/7/src/PATCHARE.ASM b/system/shard-x86-at/7/src/PATCHARE.ASM index eb837e0..c62ffdb 100644 --- a/system/shard-x86-at/7/src/PATCHARE.ASM +++ b/system/shard-x86-at/7/src/PATCHARE.ASM @@ -14,4 +14,3 @@ bb_anz dw 0 bt_table dw 8 DUP (-1) ;diese kopf/spur Kombination ist unmoeglich
bt_replace dw 8 DUP (-1) ;ersatz
endif
-
\ No newline at end of file diff --git a/system/shard-x86-at/7/src/PCPAR.ASM b/system/shard-x86-at/7/src/PCPAR.ASM index 9ac1ebf..0bca2c5 100644 --- a/system/shard-x86-at/7/src/PCPAR.ASM +++ b/system/shard-x86-at/7/src/PCPAR.ASM @@ -223,4 +223,3 @@ para_get_port: mov dx,es:[8+bx] ;printer basis adresse holen
or dx,dx ;0?
ret
-
\ No newline at end of file diff --git a/system/shard-x86-at/7/src/PCPLOT.ASM b/system/shard-x86-at/7/src/PCPLOT.ASM index 6718e12..a922bd7 100644 --- a/system/shard-x86-at/7/src/PCPLOT.ASM +++ b/system/shard-x86-at/7/src/PCPLOT.ASM @@ -427,4 +427,3 @@ mod_tb_length equ $-mod_tables db 1 ;1 = 4 segmente, 0 = 2 segmente
db 7 ;maske, um si MOD pixel_pro_byte zu machen
dw 0b000h,0b200h,0b400h,0b600h ;die vier segmente
-
\ No newline at end of file diff --git a/system/shard-x86-at/7/src/PCSCREEN.ASM b/system/shard-x86-at/7/src/PCSCREEN.ASM index 9fe7d9e..62d37eb 100644 --- a/system/shard-x86-at/7/src/PCSCREEN.ASM +++ b/system/shard-x86-at/7/src/PCSCREEN.ASM @@ -435,4 +435,3 @@ NO_KEY: pop ax
ret
;
-
\ No newline at end of file diff --git a/system/shard-x86-at/7/src/PCSYS.ASM b/system/shard-x86-at/7/src/PCSYS.ASM index 6bc457f..6ae6b0a 100644 --- a/system/shard-x86-at/7/src/PCSYS.ASM +++ b/system/shard-x86-at/7/src/PCSYS.ASM @@ -128,4 +128,3 @@ reboot: dw 0ffffh
-
\ No newline at end of file diff --git a/system/shard-x86-at/7/src/SHMAIN.ASM b/system/shard-x86-at/7/src/SHMAIN.ASM index b7b618f..8c584c5 100644 --- a/system/shard-x86-at/7/src/SHMAIN.ASM +++ b/system/shard-x86-at/7/src/SHMAIN.ASM @@ -238,4 +238,3 @@ i_sysend proc far call control32 ;laufwerk parken, wenn implementiert
ret
i_sysend endp
-
\ No newline at end of file diff --git a/system/shard-x86-at/7/src/STREAM.ASM b/system/shard-x86-at/7/src/STREAM.ASM index 3bc1797..87c3547 100644 --- a/system/shard-x86-at/7/src/STREAM.ASM +++ b/system/shard-x86-at/7/src/STREAM.ASM @@ -287,4 +287,3 @@ stream_out_count: sti
ret
-
\ No newline at end of file diff --git a/system/shard-x86-at/7/src/WAIT.ASM b/system/shard-x86-at/7/src/WAIT.ASM index 28153aa..80ff838 100644 --- a/system/shard-x86-at/7/src/WAIT.ASM +++ b/system/shard-x86-at/7/src/WAIT.ASM @@ -173,4 +173,3 @@ device_timeout_table: db 0
db 0
-
\ No newline at end of file |