Oakland CPM Archive/oakcpm.iso/cpm/xlisp/xlisp11.ark/ALLOC.ASM

Assembly Source File | 1986-10-12 | 5.4 KB | 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