home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
ftp.barnyard.co.uk
/
2015.02.ftp.barnyard.co.uk.tar
/
ftp.barnyard.co.uk
/
cpm
/
walnut-creek-CDROM
/
CPM
/
LANGUAGS
/
XLISP
/
XLISP11.ARK
/
ALLOC.ASM
next >
Wrap
Assembly Source File
|
1986-10-12
|
6KB
|
577 lines
DSEG
.2:
DS 4
CSEG
DSEG
.3:
DW 0
CSEG
PUBLIC alloc_
alloc_: CALL .sav##
DW .4
LXI H,8-.4
DAD SP
MOV E,M
INX H
MOV D,M
XCHG
INX H
INX H
INX H
LXI D,2
XCHG
CALL .ur##
INX H
XCHG
LXI H,0-.4
DAD SP
MOV M,E
INX H
MOV M,D
LHLD .3
XCHG
LXI H,2-.4
DAD SP
MOV M,E
INX H
MOV M,D
MOV A,D
ORA E
JNZ .5
LXI H,.2
XCHG
LXI H,2-.4
DAD SP
MOV M,E
INX H
MOV M,D
XCHG
SHLD .3
SHLD .2
LXI H,1
SHLD .2+2
.5:
LXI H,2-.4
DAD SP
MOV E,M
INX H
MOV D,M
XCHG
MOV E,M
INX H
MOV D,M
MOV B,D
MOV C,E
JMP .7
.6:
MOV H,B
MOV L,C
XCHG
LXI H,2-.4
DAD SP
MOV M,E
INX H
MOV M,D
mov h,b
mov l,c
MOV E,M
INX H
MOV D,M
MOV B,D
MOV C,E
.7:
LXI H,2
DAD B
MOV E,M
INX H
MOV D,M
LXI H,0-.4
DAD SP
MOV A,M
INX H
MOV H,M
MOV L,A
CALL .uf##
JZ .9
LXI H,2
DAD B
MOV E,M
INX H
MOV D,M
LXI H,0-.4
DAD SP
MOV A,M
INX H
MOV H,M
MOV L,A
CALL .eq##
JZ .10
mov h,b
mov l,c
MOV E,M
INX H
MOV D,M
PUSH D
LXI H,4-.4
DAD SP
MOV E,M
INX H
MOV D,M
XCHG
POP D
MOV M,E
INX H
MOV M,D
JMP .11
.10:
LXI H,0-.4
DAD SP
MOV E,M
INX H
MOV D,M
PUSH D
MOV H,B
MOV L,C
INX H
INX H
POP D
PUSH H
MOV A,M
INX H
MOV H,M
MOV L,A
XCHG
CALL .sb##
XCHG
POP H
MOV M,E
INX H
MOV M,D
LXI H,2
DAD B
MOV E,M
INX H
MOV D,M
XCHG
DAD H
DAD H
MOV D,B
MOV E,C
DAD D
MOV B,H
MOV C,L
LXI H,0-.4
DAD SP
MOV E,M
INX H
MOV D,M
LXI H,2
DAD B
MOV M,E
INX H
MOV M,D
.11:
LXI H,2-.4
DAD SP
MOV E,M
INX H
MOV D,M
XCHG
SHLD .3
MOV H,B
MOV L,C
LXI D,4
DAD D
RET
.9:
MOV H,B
MOV L,C
XCHG
LHLD .3
CALL .eq##
JZ .12
LXI H,0-.4
DAD SP
MOV E,M
INX H
MOV D,M
PUSH D
FUNC morecore_
CALL morecore_
POP D
MOV B,H
MOV C,L
MOV A,H
ORA L
JNZ .13
LXI H,0
RET
.13:
.12:
JMP .6
.8:
RET
.4 EQU -4
PUBLIC morecore_
morecore_: CALL .sav##
DW .14
LXI H,8-.14
DAD SP
MOV E,M
INX H
MOV D,M
XCHG
DAD H
DAD H
PUSH H
FUNC xsbrk_
CALL xsbrk_
POP D
MOV B,H
MOV C,L
LXI D,-1
CALL .eq##
JZ .15
LXI H,0
RET
.15:
MOV H,B
MOV L,C
XCHG
LXI H,2-.14
DAD SP
MOV M,E
INX H
MOV M,D
LXI H,8-.14
DAD SP
MOV E,M
INX H
MOV D,M
PUSH D
LXI H,4-.14
DAD SP
MOV E,M
INX H
MOV D,M
XCHG
INX H
INX H
POP D
MOV M,E
INX H
MOV M,D
LXI H,2-.14
DAD SP
MOV E,M
INX H
MOV D,M
LXI H,4
DAD D
PUSH H
FUNC free_
CALL free_
POP D
LHLD .3
RET
.14 EQU -2
PUBLIC free_
free_: CALL .sav##
DW .16
LXI H,8-.16
DAD SP
MOV E,M
INX H
MOV D,M
LXI H,-16
DAD D
MOV B,H
MOV C,L
LHLD .3
XCHG
LXI H,2-.16
DAD SP
MOV M,E
INX H
MOV M,D
JMP .18
.17:
LXI H,2-.16
DAD SP
MOV E,M
INX H
MOV D,M
XCHG
MOV E,M
INX H
MOV D,M
LXI H,2-.16
DAD SP
MOV M,E
INX H
MOV M,D
.18:
MOV H,B
MOV L,C
XCHG
LXI H,2-.16
DAD SP
MOV A,M
INX H
MOV H,M
MOV L,A
CALL .ug##
JZ .20
LXI H,2-.16
DAD SP
MOV E,M
INX H
MOV D,M
XCHG
MOV E,M
INX H
MOV D,M
PUSH D
MOV H,B
MOV L,C
POP D
XCHG
CALL .ul##
JNZ .19
.20:
LXI H,2-.16
DAD SP
MOV E,M
INX H
MOV D,M
XCHG
MOV E,M
INX H
MOV D,M
PUSH D
LXI H,4-.16
DAD SP
MOV E,M
INX H
MOV D,M
POP H
CALL .uf##
JZ .21
MOV H,B
MOV L,C
XCHG
LXI H,2-.16
DAD SP
MOV A,M
INX H
MOV H,M
MOV L,A
CALL .ug##
JNZ .19
LXI H,2-.16
DAD SP
MOV E,M
INX H
MOV D,M
XCHG
MOV E,M
INX H
MOV D,M
PUSH D
MOV H,B
MOV L,C
POP D
XCHG
CALL .ul##
JNZ .19
.21:
JMP .17
.19:
LXI H,2-.16
DAD SP
MOV E,M
INX H
MOV D,M
XCHG
MOV E,M
INX H
MOV D,M
PUSH D
LXI H,2
DAD B
MOV E,M
INX H
MOV D,M
XCHG
DAD H
DAD H
MOV D,B
MOV E,C
DAD D
POP D
CALL .eq##
JZ .22
LXI H,2-.16
DAD SP
MOV E,M
INX H
MOV D,M
XCHG
MOV E,M
INX H
MOV D,M
XCHG
INX H
INX H
MOV E,M
INX H
MOV D,M
PUSH D
MOV H,B
MOV L,C
INX H
INX H
POP D
PUSH H
MOV A,M
INX H
MOV H,M
MOV L,A
DAD D
XCHG
POP H
MOV M,E
INX H
MOV M,D
LXI H,2-.16
DAD SP
MOV E,M
INX H
MOV D,M
XCHG
MOV E,M
INX H
MOV D,M
XCHG
MOV E,M
INX H
MOV D,M
mov h,b
mov l,c
MOV M,E
INX H
MOV M,D
JMP .23
.22:
LXI H,2-.16
DAD SP
MOV E,M
INX H
MOV D,M
XCHG
MOV E,M
INX H
MOV D,M
mov h,b
mov l,c
MOV M,E
INX H
MOV M,D
.23:
LXI H,2-.16
DAD SP
MOV E,M
INX H
MOV D,M
XCHG
INX H
INX H
MOV E,M
INX H
MOV D,M
XCHG
DAD H
DAD H
XCHG
LXI H,2-.16
DAD SP
MOV A,M
INX H
MOV H,M
MOV L,A
DAD D
MOV D,B
MOV E,C
CALL .eq##
JZ .24
LXI H,2
DAD B
MOV E,M
INX H
MOV D,M
PUSH D
LXI H,4-.16
DAD SP
MOV E,M
INX H
MOV D,M
XCHG
INX H
INX H
POP D
PUSH H
MOV A,M
INX H
MOV H,M
MOV L,A
DAD D
XCHG
POP H
MOV M,E
INX H
MOV M,D
mov h,b
mov l,c
MOV E,M
INX H
MOV D,M
PUSH D
LXI H,4-.16
DAD SP
MOV E,M
INX H
MOV D,M
XCHG
POP D
MOV M,E
INX H
MOV M,D
JMP .25
.24:
MOV H,B
MOV L,C
PUSH H
LXI H,4-.16
DAD SP
MOV E,M
INX H
MOV D,M
XCHG
POP D
MOV M,E
INX H
MOV M,D
.25:
LXI H,2-.16
DAD SP
MOV E,M
INX H
MOV D,M
XCHG
SHLD .3
RET
.16 EQU -2
COMMON /.lnprm/
DS 4
END
