*************************************************************
*                                                           *
* WARM-BOOT SUBROUTINE                                      *
*                                                           *
*************************************************************

WBOOT:
        IF      NOT LDRBIOS
        LXI     SP,TPA          ;SET UP STACK POINTER
        ENDIF   ;NOT LDRBIOS
;
        LXI     D,BUFF          ;SET UP INITIAL DMA ADDRESS
        CALL    SETDMA
;
        IF      NOT LDRBIOS
        CALL    ?LDCCP          ;LOAD THE CCP.COM IN THE TPA
        ENDIF   ;NOT LDRBIOS
;
        MVI     A,JMP           ;SET UP JUMPS AT 0,5
        STA     0
        STA     5
        LXI     H,WBOOTE
        SHLD    1
;
        IF NOT LDRBIOS
        LHLD    @MXTPA
        SHLD    6

;
        LDA     CDISK   ;PUT CURRENT DISK INTO A
        MOV     C,A
;
        IF      NOT LDRBIOS
        JMP     0100H   ;JMP TO CCP
        ENDIF   ;NOPT LDRBIOS
;
        IF      LDRBIOS
        RET             ;RETURN TO LOADER
        ENDIF   ;LDRBIOS