Top secrets sources NedoPC pentevo

Rev

Blame | Last modification | View Log | Download | RSS feed | ?url?

        cpu     80296

ax      equ     40
al      equ     ax
ah      equ     al+1
bx      equ     42
cx      equ     44
dx      equ     46

        reti

        eld     ax,[bx]
        eld     ax,0[bx]
        eld     ax,100[bx]      ; nur 24-Bit-Displacement
        eld     ax,1000[bx]
        eld     ax,100000[bx]
        eld     ax,-100[bx]
        eld     ax,-1000[bx]
        eld     ax,-100000[bx]
        eld     ax,123456h

        eldb    al,[bx]
        eldb    al,0[bx]
        eldb    al,100[bx]      ; nur 24-Bit-Displacement
        eldb    al,1000[bx]
        eldb    al,100000[bx]
        eldb    al,-100[bx]
        eldb    al,-1000[bx]
        eldb    al,-100000[bx]
        eldb    al,123456h

        est     ax,[bx]
        est     ax,0[bx]
        est     ax,100[bx]      ; nur 24-Bit-Displacement
        est     ax,1000[bx]
        est     ax,100000[bx]
        est     ax,-100[bx]
        est     ax,-1000[bx]
        est     ax,-100000[bx]
        est     ax,123456h

        estb    al,[bx]
        estb    al,0[bx]
        estb    al,100[bx]      ; nur 24-Bit-Displacement
        estb    al,1000[bx]
        estb    al,100000[bx]
        estb    al,-100[bx]
        estb    al,-1000[bx]
        estb    al,-100000[bx]
        estb    al,123456h

        ecall   $+123456h
        ejmp    $-10h
        ebr     [bx]

        ebmovi  cx,ax

        mac     #12h
        mac     ax,#12h

        macr    bx
        macr    ax,bx

        macrz   10[bx]
        macrz   ax,10[bx]

        macz    -1000[bx]
        macz    ax,-1000[bx]

        smac    [cx]
        smac    ax,[cx]

        smacr   [cx]+
        smacr   ax,[cx]+

        smacrz  1000h
        smacrz  ax,1000h

        smacz   0ffc0h
        smacz   ax,0ffc0h

        msac    ax,#20

        mvac    cx,al

        rpt     ax
        rptnst  #10
        rptnh   [cx]
        rptgt   [cx]+
        rptnc   ax
        rptnvt  #10
        rptnv   [cx]
        rptge   [cx]+
        rptne   ax
        rptst   #10
        rpth    [cx]
        rptle   [cx]+
        rptc    ax
        rptvt   #10
        rptv    [cx]
        rptlt   [cx]+
        rpte    ax
        rpti    #10
        rptinst [cx]
        rptinh  [cx]+
        rptigt  ax
        rptinc  #10
        rptinvt [cx]
        rptinv  [cx]+
        rptige  ax
        rptine  #10
        rptist  [cx]
        rptih   [cx]+
        rptile  ax
        rptic   #10
        rptivt  [cx]
        rptiv   [cx]+
        rptilt  ax
        rptie   #10

        assume  wsr:3eh         ; 1f80h...1fbfh --> 0c0h...0ffh
        assume  wsr1:9eh        ; 0f780h...0f7bfh --> 40h..7fh

        ld      ax,3eh          ; normal
        ld      ax,44h          ; muß absolut werden
        ld      ax,92h          ; wieder normal
        ld      ax,0d0h         ; muß wieder absolut werden
        ld      ax,1000h        ; muß absolut bleiben
        ld      ax,1f90h        ; mit WSR
        ld      ax,2000h        ; muß wieder absolut bleiben
        ld      ax,0f7a0h       ; mit WSR1
        ld      ax,0fffeh       ; muß wieder absolut bleiben