Liren Large Software Subsidy 15/15.iso/s/s235/1.ddi/OTHR.ASM

Assembly Source File | 1988-09-06 | 4.4 KB | 362 lines

;
;
;    THIS IS THE FILE OF OTHR.ASM
;
;
FAVG:    MOV    R6,#40H        ;THIS SUBROUTING  12-1 ;
    MOV    R2,#0
    MOV    R3,#0
    MOV    A,R0
    PUSH   ACC        ;
FLOP:    LCALL  RDXI        ;
    CLR    3AH        ;
    LCALL  FABP        ;R6(  )R2 R3 + R7(  )R4 R5    R4(  )R2 R3
    MOV    A,R4
    MOV    R6,A
    DJNZ   R0,FLOP
    LCALL  FSTR
    POP    ACC        ;
    MOV    R2,#0
    MOV    R3,A
    INC    SP
    MOV    A,SP
    XCH    A,R1
    MOV    R0,A
    INC    SP        ;
    INC    SP
    LCALL  INTF        ;
    LCALL  FDIV        ;
    MOV    A,R0
    MOV    R1,A
    LCALL  FSTR        ;
    DEC    SP        ;
    DEC    SP
    DEC    SP
    RET
;
;
;
;
;
;
;
;
;
;
;
;
;
;
;
FSAV:    LCALL  RDXP        ;THIS SUBROUTING  12-2
    MOV    A,7FH        ;
    MOV    B,#3
    MUL    AB
    MOV    DPTR,#2000H    ;
    ADD    A,DPL        ;
    MOV    DPL,A
    MOV    A,R6        ;
    MOVX   @DPTR,A
    INC    DPTR
    MOV    A,R2
    MOVX   @DPTR,A
    INC    DPTR
    MOV    A,R3
    MOVX   @DPTR,A
    MOV    A,7FH        ;
    INC    A
    CJNE   A,#16,FSA1
    CLR    A        ;
FSA1:    MOV    7FH,A
    MOV    R0,#15        ;
    INC    DPTR
FSA2:    MOV    A,DPL
    CJNE   A,#30H,FSA3
    MOV    DPL,#0        ;
FSA3:    MOVX   A,@DPTR
    MOV    R7,A
    INC    DPTR
    MOVX   A,@DPTR
    MOV    R4,A
    INC    DPTR
    MOVX   A,@DPTR
    MOV    R5,A
    INC    DPTR
    CLR    3AH        ;
    LCALL  FABP        ;R6(  )R2 R3 + R7(  )R4 R5    R4(  )R2 R3
    MOV    A,R4
    MOV    R6,A
    DJNZ   R0,FSA2
    MOV    C,ACC.7        ;
    DEC    A        ;
    DEC    A
    DEC    A
    DEC    A
    MOV    ACC.7,C        ;
    LCALL  FSTR        ;
    RET
;
;
;
;
;
;
DAVG:    CLR    A        ;THIS SUBROUTING  12-3
    MOV    R2,A        ;
    MOV    R3,A
    MOV    R6,A        ;
    MOV    R7,A
    MOV    R4,#3FH        ;
    MOV    R5,#0FFH
    MOV    R0,#4        ;N=4
DAV1:    LCALL  RDAD        ;A/D        B,A
    MOV    R1,A        ;
    ADD    A,R7        ;
    MOV    R7,A
    MOV    A,B
    ADDC   A,R6
    MOV    R6,A
    CLR    C
    MOV    A,R3
    SUBB   A,R1
    MOV    A,R2
    SUBB   A,B
    JNC    DAV2
    MOV    A,R1        ;
    MOV    R3,A
    MOV    R2,B
DAV2:    CLR    C
    MOV    A,R1
    SUBB   A,R5
    MOV    A,B
    SUBB   A,R4
    JNC    DAV3
    MOV    A,R1        ;
    MOV    R5,A
    MOV    R4,B
DAV3:    DJNZ   R0,DAV1
    CLR    C
    MOV    A,R7        ;
    SUBB   A,R3
    XCH    A,R6
    SUBB   A,R2
    XCH    A,R6        ;
    SUBB   A,R5
    XCH    A,R6
    SUBB   A,R4
    CLR    C        ;
    RRC    A
    XCH    A,R6
    RRC    A
    MOV    R7,A        ;R6 R7
    RET;
;
;
;
;                ;THIS SUBROUTING  12-4
CRAY:    MOV    R5,#08H     ;CRAY CODE > BINDARY
CLP1:    RLC    A
    MOV    23H,A
    MOV    A,22H
    RLC    A
    MOV    22H,A
    MOV    A,23H
    JNB    10,CLP2
    CPL    ACC.7
CLP2:    DJNZ    R5,CLP1
    MOV    A,22H
    RET
;
;
;
;
;
;
;
;
;
;
MAINQ:    MOV    SP,#60H         ;DATA QUE
    MOV    R0,#50H
    MOV    @R0,#6FH
    INC    R0
    MOV    @R0,#6EH
    INC    R0
    MOV    @R0,#6AH
    INC    R0
    MOV    @R0,#6CH
    INC    R0
    MOV    @R0,#6dh
    INC    R0,
    MOV    @R0,#6BH
    INC    R0
    MOV    @R0,#67H
    INC    R0,
    MOV    @R0,#69H
    INC    R0
    MOV    @R0,#68H
    INC    R0
    MOV    @R0,#64H
    MOV    R3,#50H
    MOV    R4,#0AH
    LCALL    QUE
QHERE:    LJMP    QHERE
;
;
;
;
;
;
;
QUE:    MOV    A,R3
    MOV    R0,A
    MOV    A,R4
    MOV    R7,A
    CLR    PSW.5        ;THIS SUBROUTING  12-5
    MOV    A,@R0
QL2:    INC    R0
    MOV    R2,A
    CLR    C
    SUBB    A,@R0
    MOV    A,R2
    JC    QL1
    SETB    PSW.5
    XCH    A,@R0
    DEC    R0
    XCH    A,@R0
    INC    R0
QL1:    MOV    A,@R0
    DJNZ    R7,QL2
    JB    PSW.5,QUE
    RET
;
;
;
;                    ;THIS SUBROUTING  12-6
CLK:    CLR    25H            ;0->S
    CPL    P1.3            ;DISPLY S
    MOV    A,2FH
    ADD    A,#01H            ;2AH-2FH
    DA     A            ;SS
    MOV    2FH,A
    CJNE   A,#60H,CKR
    MOV    2FH,#00H
    MOV    A,2EH            ;MM
    ADD    A,#01H
    DA     A
    MOV    2EH,A
    XRL    A,#60H
    JNZ    CKR
    MOV    2EH,#00H
    MOV    A,2DH            ;HH
    ADD    A,#01H
    DA     A
    MOV    2DH,A
    XRL    A,#12H
    JNZ    CKR
    MOV    2DH,#00H
CKR:    RET
;
;
;
;
;
;                    ;THIS SUBROUTING  12-7
;
HASC:    ANL    A,#0FH            ;HEX > ASCII
    ADD    A,#90H
    DA     A
    ADDC   A,#40H
    DA     A
    RET
;
;
;
;
;                    ;THIS SUBROUTING  12-9
ASCH:    CLR    C            ;ASCII->HEX
    SUBB   A,#30H
    MOV    B,A
    SUBB   A,#0AH
    JC     SB10
    XCH    A,B
    SUBB   A,#07H
    RET
SB10:    XCH    A,B
    RET
;
;
;
;
;
RLNB:    CLR C            ;THIS SUBROUTING  12-10
RLN0:    MOV A,@R0
    RLC A
    MOV @R0,A
    INC R0
    DJNZ R7,RLN0
    RET
;
;
;
;
;
;
;
RRNB:    CLR C            ;THIS SUBROUTING  12-11
RRN0:    MOV A,@R0
    RRC A
    MOV @R0 ,A
    DEC R0
    DJNZ R7,RRN0
    RET
;
;
;
;
;
;
;
;
;
MUL10:    CLR C        ;THIS SUBROUTING  12-12 SUBH1
    MOV R2,#00H
SML0:    MOV A,@R1
    MOV B,#0AH
    PUSH PSW
    MUL AB
    POP PSW
    ADDC A,R2
    MOV @R1,A
    MOV R2,B
    INC R1
    DJNZ R7,SML0
    RET
;
;
;
;
;
;
;
;
;
;
INTF:    RET
RDXI:    RET
RDXP:    RET
RDAD:    RET
;
;
;
;
;
;
;
;
;
;
;
;
;