; New Instruction: MOVX @DPTR1,A
; Instruction Code: 0xA5
; Instruction Cycle: 1
; Instruction Operation:
; step-1. write ACC into xdata SRAM @DPTR1 embedded chip
; step-2. increase DPTR1
; ASM example:
    INC XBUS_AUX
    MOV DPTR,#TARGET_ADDR   ;DPTR1
    DEC XBUS_AUX
    MOV DPTR,#SOURCE_ADDR   ;DPTR0
    MOV R7,#xxH
LOOP:
    MOVX A,@DPTR            ;DPTR0
    INC DPTR                ;DPTR0, if need
    DB 0A5H                 ;MOVX @DPTR1,A & INC DPTR1
    DJNZ R7,LOOP

unit usb;
{$xdata}

interface
uses ch554;
var 
    buf : array [1..2] of record
        r, t : array [0..63] of byte end xdata; volatile;
    len : array [1..2] of record
        r, t : byte end; volatile;

procedure init;
procedure poll;
procedure reset; usingany;
procedure trans; usingany;
procedure _usb; interrupt int_usb; using 1;

implementation
const
    config : array [1..23] of word = (
        $209, 46, $101, $C000, $900, 4, $400, $FF, 0,
        $507, $281, $40, $700, $105, $4002, 0,
        $507, $282, $40, $700, $205, $4002, 0
        );
    device : array [1..9] of word = (
        $112, $110, 0, $4000, $6666, $5500, 1, 0, $100
        );
var
    address : byte;
    buf0 : array [0..31] of word xdata; volatile;
    stage : ( setup, data, status );

procedure init;
begin
    ie_usb := false;
    usb_ctrl := 0;
    uep_mod := {3- 2-rt 1-rt 4-} $0CC0;
    uep0_dma := word( addr( buf0 ) );
    uep1_dma := word( addr( buf[1] ) );
    uep2_dma := word( addr( buf[2] ) );
    reset;
    udev_ctrl := {pd_dis} $80;
    usb_ctrl := {dev_pu_en int_busy dma_en} $29;
    udev_ctrl := {pd_dis port_en} $81;
    usb_int_en := {trans reset} 3;
    ie_usb := true;
end;

procedure poll;
begin
    if ((uep1_ctrl and $C) <> 0) and (len[1].r = 0) then begin
        {r-ack} uep1_ctrl := uep1_ctrl and (not $C);
    end;
    if ((uep1_ctrl and 3) <> 0) and (len[1].t <> 0) then begin
        uep1_t_len := ((len[1].t - 1) and $3F) + 1;
        {t-ack} uep1_ctrl := uep1_ctrl and (not 3);
    end;
    if ((uep2_ctrl and $C) <> 0) and (len[2].r = 0) then begin
        {r-ack} uep2_ctrl := uep2_ctrl and (not $C);
    end;
    if ((uep2_ctrl and 3) <> 0) and (len[2].t <> 0) then begin
        uep2_t_len := ((len[2].t - 1) and $3F) + 1;
        {t-ack} uep2_ctrl := uep2_ctrl and (not 3);
    end;
end;

procedure reset;
begin
    address := 0;
    len[1].r := 0;
    len[1].t := 0;
    len[2].r := 0;
    len[2].t := 0;
    stage := setup;
    uep0_ctrl := {r-nak t-nak} $A;
    uep1_ctrl := {r-auto t-auto r-nak t-nak} $3A;
    uep2_ctrl := {r-auto t-auto r-nak t-nak} $3A;
    usb_dev_ad := 0;
end;

procedure trans;
var
    len0 : byte;
begin
    case usb_int_st and $3F of
        {out1} 1 : if uif_tog_ok then begin
            {r-nak} uep1_ctrl := uep1_ctrl or 8;
            len[1].r := usb_rx_len;
        end;
        {in1} $21 : begin
            {t-nak} uep1_ctrl := uep1_ctrl or 2;
            len[1].t := 0;
        end;
        {out2} 2 : if uif_tog_ok then begin
            {r-nak} uep2_ctrl := uep2_ctrl or 8;
            len[2].r := usb_rx_len;
        end;
        {in2} $22 : begin
            {t-nak} uep2_ctrl := uep2_ctrl or 2;
            len[2].t := 0;
        end;
        {setup} $30 : begin
            len0 := byte( buf0[3] );
            stage := setup;
            case buf0[0] of
                {get descriptor} $680 : case buf0[1] of
                    {device} $100 : begin
                        move( device, buf0, sizeof( device ) );
                        stage := data;
                    end;
                    {configuration} $200 : begin
                        move( config, buf0, sizeof( config ) );
                        stage := data;
                    end;
                end;
                {get status} $80 : begin
                    buf0[0] := 1;
                    stage := data;
                end;
                {set address} $500 : begin
                    address := buf0[1];
                    stage := status;
                end;
                {clear future} $102,
                {set configuration} $900 : stage := status;
            end;
            case stage of
                data : begin
                    if len0 > 63 then len0 := 63;
                    uep0_t_len := len0;
                    uep0_ctrl := {r-data1 t-data1 r-nak t-ack} $C8;
                end;
                status : begin
                    uep0_t_len := 0;
                    uep0_ctrl := {r-data1 t-data1 r-nak t-ack} $C8;
                end;
                else uep0_ctrl := {r-stall t-stall} $F;
            end;
        end;
        {out0} 0 : case stage of
            status : begin
                uep0_ctrl := {r-nak t-nak} $A;
                stage := setup;
            end;
            else uep0_ctrl := {r-stall t-stall} $F;
        end;
        {in0} $20 : case stage of
            data : begin
                uep0_ctrl := {r-data1 t-data1 r-ack t-nak} $C2;
                stage := status;
            end;
            status : begin
                usb_dev_ad := address;
                uep0_ctrl := {r-nak t-nak} $A;
                stage := setup;
            end;
            else uep0_ctrl := {r-stall t-stall} $F;
        end;
    end;
end;

procedure _usb;
begin
    if uif_trans then trans;
    if uif_reset then reset;
    usb_int_fg := $FF;
end;

end.

{$m 0, 10240, 0, 512, 0}
{$idata}

program test;
uses usb;

procedure _timer0; interrupt timer0;
begin
    p3.2 := not p3.2;
end;

begin
    usb.init;
    tmod := 1;
    tr0 := true;
    et0 := true;
    ea := true;
    repeat
        usb.poll;
        if (usb.len[1].r > 0) and (usb.len[1].t = 0) then begin
            move( usb.buf[1].r, usb.buf[1].t, 64 );
            usb.len[1].r := 0;
            usb.len[1].t := 64;
        end;
    until false;
end.