godzil/ack
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

adapted to new assembler syntax

Browse Source
This commit is contained in:
ceriel
1987-01-08 10:13:48 +00:00
parent 5cc2c0ccfc
commit c754f6ca69
54 changed files with 225 additions and 119 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
mach/i86/libem/LIST
View File

@@ -1,4 +1,4 @@
tail_em.a
libem_s.a
adi.s
and.s
cii.s
@@ -50,4 +50,3 @@ trp.s
stop.s
printf.s
print.s
tail.s

37
mach/i86/libem/Makefile
View File

@@ -1,16 +1,33 @@
install:
../../install head_em.s head_em
../../install tail_em.a tail_em
# $Header$
MACH=i86
install: all
../../install head_em.o head_em
../../install libem_o.a tail_em
../../install end.o end_em
cmp:
-../../compare head_em.s head_em
-../../compare tail_em.a tail_em
cmp: all
-../../compare head_em.o head_em
-../../compare libem_o.a tail_em
-../../compare end.o end_em
clean :
all: head_em.o libem_o.a end.o
end.o: end.s
$(MACH) -I../../../h -c end.s
head_em.o: head_em.s
$(MACH) -I../../../h -c head_em.s
libem_o.a: libem_s.a
ASAR=aal ; export ASAR ;\
march . libem_o.a
clean:
rm -f *.o
opr :
make pr | opr
make pr | opr
pr:
@pr head_em.s
@arch pv tail_em.a | pr -h `pwd`/tail_em.a
@pr `pwd`/head_em.s
@arch pv libem_s.a | pr -h `pwd`/libem_s.a
@pr `pwd`/end.s

5
mach/i86/libem/adi.s
View File

@@ -1,7 +1,8 @@
.sect .text; .sect .rom; .sect .data; .sect .bss
.define .adi
! $Header$
! #bytes in cx , top of stack in ax
.sect .text
.adi:
pop bx ! return address
cmp cx,2
@@ -20,6 +21,8 @@
push dx
jmp bx
9:
.extern EODDZ
.extern .trp
mov ax,EODDZ
push ax
jmp .trp

3
mach/i86/libem/and.s
View File

@@ -1,7 +1,8 @@
.sect .text; .sect .rom; .sect .data; .sect .bss
.define .and
! $Header$
! #bytes in cx
.sect .text
.and:
pop bx ! return address
mov di,sp

5
mach/i86/libem/cii.s
View File

@@ -1,7 +1,8 @@
.sect .text; .sect .rom; .sect .data; .sect .bss
.define .cii
.sect .text
.cii:
! $Header$
pop di ! return address
! pop cx, dest. size
! pop bx, src. size
@@ -31,6 +32,8 @@
jmp di
9:
push ax ! push low source
.extern EILLINS
.extern .fat
mov ax,EILLINS
push ax
jmp .fat

3
mach/i86/libem/cms.s
View File

@@ -1,7 +1,8 @@
.sect .text; .sect .rom; .sect .data; .sect .bss
.define .cms
! $Header$
! #bytes in cx
.sect .text
.cms:
pop bx ! return address
mov dx,sp

3
mach/i86/libem/cmu4.s
View File

@@ -1,7 +1,8 @@
.sect .text; .sect .rom; .sect .data; .sect .bss
.define .cmu4
.sect .text
.cmu4:
! $Header$
pop bx ! return address
xor ax,ax
pop cx

3
mach/i86/libem/com.s
View File

@@ -1,7 +1,8 @@
.sect .text; .sect .rom; .sect .data; .sect .bss
.define .com
! $Header$
! #bytes in cx
.sect .text
.com:
pop bx ! return address
mov di,sp

5
mach/i86/libem/csa2.s
View File

@@ -1,7 +1,8 @@
.sect .text; .sect .rom; .sect .data; .sect .bss
.define .csa2
.sect .text
.csa2:
! $Header$
! si, descriptor address
! bx, index
mov dx,(si) ! default
@@ -16,6 +17,8 @@
mov bx,dx
test bx,bx
jnz 2f
.extern ECASE
.extern .fat
mov ax,ECASE
push ax
jmp .fat

5
mach/i86/libem/csb2.s
View File

@@ -1,7 +1,8 @@
.sect .text; .sect .rom; .sect .data; .sect .bss
.define .csb2
.sect .text
.csb2:
! $Header$
!si, descriptor address
!dx, index
lods
@@ -19,6 +20,8 @@
2:
test bx,bx
jnz 3f
.extern ECASE
.extern .fat
mov ax,ECASE
push ax
jmp .fat

5
mach/i86/libem/cuu.s
View File

@@ -1,11 +1,12 @@
.sect .text; .sect .rom; .sect .data; .sect .bss
.define .ciu
.define .cui
.define .cuu
.sect .text
.ciu:
.cui:
.cuu:
! $Header$
pop di ! return address
! pop cx, dest. size
! pop bx, source size
@@ -29,6 +30,8 @@
jmp di
9:
push ax ! to help debugging ?
.extern EILLINS
.extern .fat
mov ax,EILLINS
push ax
jmp .fat

3
mach/i86/libem/dup.s
View File

@@ -1,7 +1,8 @@
.sect .text; .sect .rom; .sect .data; .sect .bss
.define .dup
! $Header$
! #bytes in cx
.sect .text
.dup:
pop bx ! return address
mov si,sp

6
mach/i86/libem/dvi.s
View File

@@ -1,7 +1,8 @@
.sect .text; .sect .rom; .sect .data; .sect .bss
.define .dvi
! $Header$
! #bytes in ax
.sect .text
.dvi:
pop bx ! return address
cmp ax,2
@@ -24,12 +25,15 @@
push si
push dx
push ax
.extern .dvi4
call .dvi4
pop bx
push cx
push ax
jmp bx
9:
.extern EODDZ
.extern .trp
mov ax,EODDZ
push ax
jmp .trp

3
mach/i86/libem/dvi4.s
View File

@@ -1,3 +1,4 @@
.sect .text; .sect .rom; .sect .data; .sect .bss
.define .dvi4
yl=2
@@ -5,8 +6,8 @@ yh=4
xl=6
xh=8
.sect .text
.dvi4:
! $Header$
mov si,sp ! copy of sp
mov bx,yl(si)
mov ax,yh(si)

6
mach/i86/libem/dvu.s
View File

@@ -1,7 +1,8 @@
.sect .text; .sect .rom; .sect .data; .sect .bss
.define .dvu
! $Header$
! #bytes in ax
.sect .text
.dvu:
pop bx ! return address
cmp ax,2
@@ -24,12 +25,15 @@
push si
push dx
push ax
.extern .dvu4
call .dvu4
pop bx
push cx
push ax
jmp bx
9:
.extern EODDZ
.extern .trp
mov ax,EODDZ
push ax
jmp .trp

3
mach/i86/libem/dvu4.s
View File

@@ -1,3 +1,4 @@
.sect .text; .sect .rom; .sect .data; .sect .bss
.define .dvu4
yl=2
@@ -5,8 +6,8 @@ yh=4
xl=6
xh=8
.sect .text
.dvu4:
! $Header$
mov si,sp ! copy of sp
mov bx,yl(si)
mov ax,yh(si)

5
mach/i86/libem/error.s
View File

@@ -1,10 +1,11 @@
.sect .text; .sect .rom; .sect .data; .sect .bss
.define .error
! $Header$
! ax is trap number
! all registers must be saved
! because return is possible
! May only be called with error no's <16
.sect .text
.error:
push bp
push si
@@ -16,6 +17,8 @@
mov cx,ax
mov bx,1
sal bx,cl
.extern .ignmask
.extern .trp
test bx,(.ignmask)
jne 2f
call .trp

3
mach/i86/libem/exg.s
View File

@@ -1,7 +1,8 @@
.sect .text; .sect .rom; .sect .data; .sect .bss
.define .exg
! $Header$
! #bytes in cx
.sect .text
.exg:
pop bx ! return address
mov dx,cx

5
mach/i86/libem/fakfp.s
View File

@@ -1,3 +1,5 @@
.sect .text; .sect .rom; .sect .data; .sect .bss
.sect .text
.define .mlf,.dvf,.ngf,.adf,.sbf,.cmf,.zrf,.fif,.fef
.define .mlf8,.dvf8,.ngf8,.adf8,.sbf8,.cmf8,.zrf8,.fif8,.fef8
.define .mlf4,.dvf4,.ngf4,.adf4,.sbf4,.cmf4,.zrf4,.fif4,.fef4
@@ -35,8 +37,9 @@
.cuf:
.cfu:
.cff:
! $Header$
pop bx ! return address
.extern EILLINS
.extern .fat
mov ax,EILLINS
push ax
jmp .fat

5
mach/i86/libem/fat.s
View File

@@ -1,7 +1,10 @@
.sect .text; .sect .rom; .sect .data; .sect .bss
.sect .text
.define .fat
.fat:
! $Header$
.extern .trp
.extern .stop
call .trp
call .stop
! no return

3
mach/i86/libem/gto.s
View File

@@ -1,7 +1,8 @@
.sect .text; .sect .rom; .sect .data; .sect .bss
.sect .text
.define .gto
.gto:
! $Header$
mov bp,4(bx)
mov sp,2(bx)
jmp (bx)

4
mach/i86/libem/iaar.s
View File

@@ -1,10 +1,12 @@
.sect .text; .sect .rom; .sect .data; .sect .bss
.sect .text
.define .iaar
.iaar:
! $Header$
pop bx
pop dx
cmp dx,2
.extern .unknown
jne .unknown
pop si ! descriptor address
pop ax ! index

5
mach/i86/libem/ilar.s
View File

@@ -1,13 +1,16 @@
.sect .text; .sect .rom; .sect .data; .sect .bss
.sect .text
.define .ilar
.ilar:
! $Header$
pop bx
pop dx
.extern .unknown
cmp dx,2
jne .unknown
pop di ! descriptor address
pop ax ! index
pop si ! array base
push bx
.extern .lar2
jmp .lar2

7
mach/i86/libem/inn.s
View File

@@ -1,6 +1,7 @@
.sect .text; .sect .rom; .sect .data; .sect .bss
.sect .text
.define .inn
! $Header$
! #bytes in cx
! bit # in ax
.inn:
@@ -24,6 +25,6 @@
! ax is result
jmp bx
.data
.sect .data
bits:
.byte 1,2,4,8,16,32,64,128
.data1 1,2,4,8,16,32,64,128

3
mach/i86/libem/ior.s
View File

@@ -1,6 +1,7 @@
.sect .text; .sect .rom; .sect .data; .sect .bss
.sect .text
.define .ior
! $Header$
! #bytes in cx
.ior:
pop bx ! return address

5
mach/i86/libem/isar.s
View File

@@ -1,13 +1,16 @@
.sect .text; .sect .rom; .sect .data; .sect .bss
.sect .text
.define .isar
.isar:
! $Header$
pop bx
pop dx
cmp dx,2
.extern .unknown
jne .unknown
pop si ! descriptor address
pop ax ! index
pop di ! array base
push bx
.extern .sar2
jmp .sar2

3
mach/i86/libem/lar2.s
View File

@@ -1,7 +1,8 @@
.sect .text; .sect .rom; .sect .data; .sect .bss
.sect .text
.define .lar2
.lar2:
! $Header$
pop bx ! return address
! di, descriptor address
! ax, index

3
mach/i86/libem/loi.s
View File

@@ -1,6 +1,7 @@
.sect .text; .sect .rom; .sect .data; .sect .bss
.sect .text
.define .loi
! $Header$
! #bytes in cx
! source address in si
.loi:

5
mach/i86/libem/mli.s
View File

@@ -1,6 +1,7 @@
.sect .text; .sect .rom; .sect .data; .sect .bss
.sect .text
.define .mli
! $Header$
! #bytes in ax
.mli:
pop bx ! return address
@@ -22,6 +23,8 @@
push dx
jmp .mli4
9:
.extern EODDZ
.extern .trp
mov ax,EODDZ
push ax
jmp .trp

3
mach/i86/libem/mli4.s
View File

@@ -1,6 +1,7 @@
.sect .text; .sect .rom; .sect .data; .sect .bss
.sect .text
.define .mli4
! $Header$
! x * y with
! x.low = si x.high = di
! y.low = bx y.high = ax

4
mach/i86/libem/mon.s
View File

@@ -1,5 +1,7 @@
.sect .text; .sect .rom; .sect .data; .sect .bss
.sect .text
.define .mon
.mon:
! $Header$
.extern .stop
call .stop

5
mach/i86/libem/ngi.s
View File

@@ -1,6 +1,7 @@
.sect .text; .sect .rom; .sect .data; .sect .bss
.sect .text
.define .ngi
! $Header$
! #bytes in ax
.ngi:
pop bx ! return address
@@ -22,6 +23,8 @@
push ax
jmp bx
9:
.extern EODDZ
.extern .trp
mov ax,EODDZ
push ax
jmp .trp

4
mach/i86/libem/nop.s
View File

@@ -1,11 +1,13 @@
.sect .text; .sect .rom; .sect .data; .sect .bss
.sect .text
.define .nop
.extern printd, printc, hol0
SIO_S = 0xDA
SIO_D = 0xD8
RXRDY = 0x02
.nop:
! $Header$
mov ax,(hol0)
call printd
! movb al,' '

4
mach/i86/libem/print.s
View File

@@ -1,10 +1,11 @@
.sect .text; .sect .rom; .sect .data; .sect .bss
.sect .text
.define printc,printd,prints
SIO_D = 0xD8
SIO_S = 0xDA
TXRDY = 0x01
! $Header$
! argument in ax
! uses bx
prints:
@@ -33,7 +34,6 @@ printd:
1:
xchg ax,dx
addb al,'0'
.errnz printc - .
! argument in ax
printc:

4
mach/i86/libem/printf.s
View File

@@ -1,7 +1,9 @@
.sect .text; .sect .rom; .sect .data; .sect .bss
.sect .text
.define printf
.extern printc, printd, prints
printf:
! $Header$
pop bx ! return address
xchg ax,di
mov si,sp

5
mach/i86/libem/rck.s
View File

@@ -1,6 +1,7 @@
.sect .text; .sect .rom; .sect .data; .sect .bss
.sect .text
.define .rck
! $Header$
! descriptor address in si
! value in ax, must be left there
.rck:
@@ -11,6 +12,8 @@
ret
2:
push ax
.extern ERANGE
.extern .error
mov ax,ERANGE
call .error
pop ax

6
mach/i86/libem/rmi.s
View File

@@ -1,6 +1,7 @@
.sect .text; .sect .rom; .sect .data; .sect .bss
.sect .text
.define .rmi
! $Header$
! #bytes in ax
.rmi:
pop bx ! return address
@@ -24,12 +25,15 @@
push si
push dx
push ax
.extern .rmi4
call .rmi4
pop ax
push bx
push dx
jmp ax
9:
.extern EODDZ
.extern .trp
mov ax,EODDZ
push ax
jmp .trp

3
mach/i86/libem/rmi4.s
View File

@@ -1,3 +1,5 @@
.sect .text; .sect .rom; .sect .data; .sect .bss
.sect .text
.define .rmi4
yl=2
@@ -6,7 +8,6 @@ xl=6
xh=8
.rmi4:
! $Header$
mov si,sp ! copy of sp
mov bx,yl(si)
mov ax,yh(si)

6
mach/i86/libem/rmu.s
View File

@@ -1,6 +1,7 @@
.sect .text; .sect .rom; .sect .data; .sect .bss
.sect .text
.define .rmu
! $Header$
! #bytes in ax
.rmu:
pop bx ! return address
@@ -24,12 +25,15 @@
push si
push dx
push ax
.extern .rmu4
call .rmu4
pop ax
push bx
push dx
jmp ax
9:
.extern EODDZ
.extern .trp
mov ax,EODDZ
push ax
jmp .trp

3
mach/i86/libem/rmu4.s
View File

@@ -1,3 +1,5 @@
.sect .text; .sect .rom; .sect .data; .sect .bss
.sect .text
.define .rmu4
yl=2
@@ -6,7 +8,6 @@ xl=6
xh=8
.rmu4:
! $Header$
mov si,sp ! copy of sp
mov bx,yl(si)
mov ax,yh(si)

5
mach/i86/libem/rol.s
View File

@@ -1,6 +1,7 @@
.sect .text; .sect .rom; .sect .data; .sect .bss
.sect .text
.define .rol
! $Header$
! #bytes in ax
.rol:
pop dx ! return address
@@ -28,6 +29,8 @@
2:
jmp dx
9:
.extern EODDZ
.extern .trp
mov ax,EODDZ
push ax
jmp .trp

5
mach/i86/libem/ror.s
View File

@@ -1,6 +1,7 @@
.sect .text; .sect .rom; .sect .data; .sect .bss
.sect .text
.define .ror
! $Header$
! #bytes in ax
.ror:
pop dx ! return address
@@ -29,6 +30,8 @@
2:
jmp dx
9:
.extern EODDZ
.extern .trp
mov ax,EODDZ
push ax
jmp .trp

3
mach/i86/libem/sar2.s
View File

@@ -1,7 +1,8 @@
.sect .text; .sect .rom; .sect .data; .sect .bss
.sect .text
.define .sar2
.sar2:
! $Header$
pop bx ! return address
! si, descriptor address
! ax, index

7
mach/i86/libem/sbi.s
View File

@@ -1,6 +1,7 @@
.sect .text; .sect .rom; .sect .data; .sect .bss
.sect .text
.define .sbi
! $Header$
! #bytes in cx , top of stack in ax
.sbi:
pop bx ! return subress
@@ -18,10 +19,12 @@
sub cx,ax
mov ax,cx
pop cx
sbc cx,dx
sbb cx,dx
push cx
jmp bx
9:
.extern EODDZ
.extern .trp
mov ax,EODDZ
push ax
jmp .trp

9
mach/i86/libem/set.s
View File

@@ -1,6 +1,7 @@
.sect .text; .sect .rom; .sect .data; .sect .bss
.sect .text
.define .set
! $Header$
! #bytes in cx
! bit # in ax
.set:
@@ -25,11 +26,13 @@
orb (di),dl
jmp bx
2:
.extern ESET
.extern .trp
push bx
mov ax,ESET
push ax
jmp .trp
.data
.sect .data
bits:
.byte 1,2,4,8,16,32,64,128
.data1 1,2,4,8,16,32,64,128

5
mach/i86/libem/sli.s
View File

@@ -1,6 +1,7 @@
.sect .text; .sect .rom; .sect .data; .sect .bss
.sect .text
.define .sli
! $Header$
! #bytes in ax
.sli:
pop dx ! return address
@@ -27,6 +28,8 @@
2:
jmp dx
9:
.extern EODDZ
.extern .trp
mov ax,EODDZ
push ax
jmp .trp

5
mach/i86/libem/sri.s
View File

@@ -1,6 +1,7 @@
.sect .text; .sect .rom; .sect .data; .sect .bss
.sect .text
.define .sri
! $Header$
! #bytes in ax
.sri:
pop dx ! return address
@@ -27,6 +28,8 @@
2:
jmp dx
9:
.extern EODDZ
.extern .trp
mov ax,EODDZ
push ax
jmp .trp

3
mach/i86/libem/sti.s
View File

@@ -1,6 +1,7 @@
.sect .text; .sect .rom; .sect .data; .sect .bss
.sect .text
.define .sti
! $Header$
! #bytes in cx
! destination address in di
.sti:

3
mach/i86/libem/stop.s
View File

@@ -1,4 +1,5 @@
.sect .text; .sect .rom; .sect .data; .sect .bss
.sect .text
.define .stop
.stop:
! $Header$
int 3

4
mach/i86/libem/strhp.s
View File

@@ -1,7 +1,9 @@
.sect .text; .sect .rom; .sect .data; .sect .bss
.sect .text
.define .strhp
.extern .reghp, .limhp, EHEAP, .fat
.strhp:
! $Header$
pop bx
pop ax
mov (.reghp),ax

4
mach/i86/libem/trp.s
View File

@@ -1,6 +1,8 @@
.sect .text; .sect .rom; .sect .data; .sect .bss
.sect .text
.define .trp
.extern .trppc, .stop
! $Header$
! ax is trap number
.trp:
xor bx,bx

4
mach/i86/libem/unknown.s
View File

@@ -1,7 +1,9 @@
.sect .text; .sect .rom; .sect .data; .sect .bss
.sect .text
.define .unknown
.extern EILLINS, .fat
.unknown:
! $Header$
mov ax,EILLINS
push ax
jmp .fat

3
mach/i86/libem/xor.s
View File

@@ -1,6 +1,7 @@
.sect .text; .sect .rom; .sect .data; .sect .bss
.sect .text
.define .xor
! $Header$
! #bytes in cx
.xor:
pop bx ! return address