Oakland CPM Archive/oakcpm.iso/sigm/vol131/median.src

Text File | 1984-04-29 | 2.9 KB | 290 lines

    NAME    MEDIAN
    ENTRY    MEDIAN
    EXT    SELECT
C    SET              0
M    SET              0
F    SET              0
R    SET              0
MEDIAN
    ENTR    D,2,9
    STMT    D,12289
    MOV    L,10(IX)
    MOV    H,11(IX)
    MOV    E,12(IX)
    MOV    D,13(IX)
    DSUB    D,0
    INX    H
    MOV    -3(IX),H
    MOV    -4(IX),L
    STMT    D,12290
    MOV    L,-4(IX)
    MOV    H,-3(IX)
    LXI    D,1
    LESS    D,0
    JNC    L255
    STMT    D,12291
    MOV    2(IX),A
    JMP    L268
L255
    STMT    D,12292
    STMT    D,12293
    MOV    L,-4(IX)
    MOV    H,-3(IX)
    LXI    D,1
    DSB1    D,0
    JNZ    L272
    STMT    D,12294
    MOV    L,12(IX)
    MOV    H,13(IX)
    DADD    C
    DADD    C
    XCHG
    MOV    H,15(IX)
    MOV    L,14(IX)
    DSUB
    LXI    B,4
    DADD    B
    LXI    D,-4
    DADD
    INX    H
    XCHG
    DADD    S
    SPHL
    XCHG
    LXI    B,4
    LDIR
    LXI    H,3
    DADD    S
    XCHG
    MOV    H,9(IX)
    MOV    L,8(IX)
    XCHG
    LXI    B,4
    LDDR
    POP    H
    POP    H
    JMP    L291
L272
    STMT    D,12295
    STMT    D,12296
    MOV    L,-4(IX)
    MOV    H,-3(IX)
    RRCR    L
    STMT    M,12296
    JNC    L295
    STMT    D,12297
    STMT    D,12298
    MOV    L,-4(IX)
    MOV    H,-3(IX)
    INX    H
    LXI    D,2
    DIVD    D,0
    MOV    -1(IX),H
    MOV    -2(IX),L
    STMT    D,12299
    MOV    H,15(IX)
    MOV    L,14(IX)
    PUSH    H
    MOV    L,12(IX)
    MOV    H,13(IX)
    PUSH    H
    MOV    L,10(IX)
    MOV    H,11(IX)
    PUSH    H
    MOV    L,-2(IX)
    MOV    H,-1(IX)
    PUSH    H
    CALL    SELECT
    STMT    M,12299
    JRNC    L320
    INR    A
L320
    MOV    L,A
    XRA    A
    MOV    H,A
    MOV    2(IX),L
    STMT    D,12300
    MOV    L,-2(IX)
    MOV    H,-1(IX)
    DADD    C
    DADD    C
    XCHG
    MOV    H,15(IX)
    MOV    L,14(IX)
    DSUB
    LXI    B,4
    DADD    B
    LXI    D,-4
    DADD
    INX    H
    XCHG
    DADD    S
    SPHL
    XCHG
    LXI    B,4
    LDIR
    LXI    H,3
    DADD    S
    XCHG
    MOV    H,9(IX)
    MOV    L,8(IX)
    XCHG
    LXI    B,4
    LDDR
    POP    H
    POP    H
    STMT    D,12301
    JMP    L363
L295
    STMT    D,12302
    STMT    D,12303
    MOV    L,-4(IX)
    MOV    H,-3(IX)
    LXI    D,2
    DIVD    D,0
    MOV    -1(IX),H
    MOV    -2(IX),L
    STMT    D,12304
    MOV    H,15(IX)
    MOV    L,14(IX)
    PUSH    H
    MOV    L,12(IX)
    MOV    H,13(IX)
    PUSH    H
    MOV    L,10(IX)
    MOV    H,11(IX)
    PUSH    H
    MOV    L,-2(IX)
    MOV    H,-1(IX)
    PUSH    H
    CALL    SELECT
    STMT    M,12304
    JRNC    L373
    INR    A
L373
    MOV    L,A
    XRA    A
    MOV    H,A
    MOV    0(IX),L
    STMT    D,12305
    MOV    L,-2(IX)
    MOV    H,-1(IX)
    DADD    C
    DADD    C
    XCHG
    MOV    H,15(IX)
    MOV    L,14(IX)
    DSUB
    LXI    B,4
    DADD    B
    LXI    D,-4
    DADD
    INX    H
    XCHG
    DADD    S
    SPHL
    XCHG
    LXI    B,4
    LDIR
    LXI    H,3
    DADD    S
    XCHG
    PUSH    IX
    POP    H
    LXI    B,-5
    DADD    B
    XCHG
    LXI    B,4
    LDDR
    POP    H
    POP    H
    STMT    D,12306
    MOV    L,-2(IX)
    MOV    H,-1(IX)
    INX    H
    MOV    -1(IX),H
    MOV    -2(IX),L
    STMT    D,12307
    CMP    0(IX)
    JNC    L425
    MOV    H,15(IX)
    MOV    L,14(IX)
    PUSH    H
    MOV    L,12(IX)
    MOV    H,13(IX)
    PUSH    H
    MOV    L,10(IX)
    MOV    H,11(IX)
    PUSH    H
    MOV    L,-2(IX)
    MOV    H,-1(IX)
    PUSH    H
    CALL    SELECT
    STMT    M,12307
    JRNC    L422
    INR    A
L422
L424    EQU    L422
L425    EQU    L424
    MOV    L,A
    XRA    A
    MOV    H,A
    MOV    2(IX),L
    STMT    D,12308
    LXI    H,-4
    DADD    S
    SPHL
    XCHG
    PUSH    IX
    POP    H
    LXI    B,-8
    DADD    B
    LXI    B,4
    LDIR
    MOV    L,-2(IX)
    MOV    H,-1(IX)
    DADD    C
    DADD    C
    XCHG
    MOV    H,15(IX)
    MOV    L,14(IX)
    DSUB
    LXI    B,4
    DADD    B
    LXI    D,-4
    DADD
    INX    H
    XCHG
    DADD    S
    SPHL
    XCHG
    LXI    B,4
    LDIR
    DADD    D,-4
    LXI    H,576
    MOV    D,A
    MOV    E,A
    PUSH    H
    PUSH    D
    FDVD    D,-4
    LXI    H,3
    DADD    S
    XCHG
    MOV    H,9(IX)
    MOV    L,8(IX)
    XCHG
    LXI    B,4
    LDDR
    POP    H
    POP    H
    STMT    D,12309
L363
    STMT    D,12310
L291
    STMT    D,12311
L268
    STMT    D,12312
    EXIT    D,8
    END    MEDIAN