Subversion Repositories pentevo

Rev

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

  1.                 cpu     80196
  2.  
  3.                 include reg96
  4.  
  5. ax              equ     20h
  6. al              equ     ax
  7. ah              equ     ax+1
  8. eax             equ     ax
  9. bx              equ     24h
  10. bl              equ     bx
  11. bh              equ     bx+1
  12. ebx             equ     bx
  13. cx              equ     28h
  14. cl              equ     cx
  15. ch              equ     cx+1
  16. ecx             equ     cx
  17. dx              equ     2ch
  18. dl              equ     dx
  19. dh              equ     dx+1
  20. edx             equ     dx
  21.  
  22.                 CLRC
  23.                 CLRVT
  24.                 DI
  25.                 EI
  26.                 NOP
  27.                 POPF
  28.                 PUSHF
  29.                 RET
  30.                 RST
  31.                 SETC
  32.                 TRAP
  33.                 PUSHA
  34.                 POPA
  35.                 EPTS
  36.                 DPTS
  37.  
  38. targ:
  39.                 JC      targ
  40.                 JE      targ
  41.                 JGE     targ
  42.                 JGT     targ
  43.                 JH      targ
  44.                 JLE     targ
  45.                 JLT     targ
  46.                 JNC     targ
  47.                 JNE     targ
  48.                 JNH     targ
  49.                 JNST    targ
  50.                 JNV     targ
  51.                 JNVT    targ
  52.                 JST     targ
  53.                 JV      targ
  54.                 JVT     targ
  55.  
  56.                 bmov    eax,cx
  57.                 bmovi   eax,cx
  58.  
  59.                 add     ax,bx
  60.                 add     ax,2000h
  61.                 add     ax,[bx]
  62.                 add     ax,[bx]+
  63.                 add     ax,2[bx]
  64.                 add     ax,-15[bx]
  65.                 add     ax,700[bx]
  66.                 add     ax,-300[bx]
  67.                 add     ax,#1234h
  68.  
  69.                 add     ax,cx,bx
  70.                 add     ax,cx,2000h
  71.                 add     ax,cx,[bx]
  72.                 add     ax,cx,[bx]+
  73.                 add     ax,cx,2[bx]
  74.                 add     ax,cx,-15[bx]
  75.                 add     ax,cx,700[bx]
  76.                 add     ax,cx,-300[bx]
  77.                 add     ax,cx,#1234h
  78.  
  79.                 addb    al,bl
  80.                 addb    al,2000h
  81.                 addb    al,[bx]
  82.                 addb    al,[bx]+
  83.                 addb    al,2[bx]
  84.                 addb    al,-15[bx]
  85.                 addb    al,700[bx]
  86.                 addb    al,-300[bx]
  87.                 addb    al,#12h
  88.  
  89.                 addb    al,cl,bl
  90.                 addb    al,cl,2000h
  91.                 addb    al,cl,[bx]
  92.                 addb    al,cl,[bx]+
  93.                 addb    al,cl,2[bx]
  94.                 addb    al,cl,-15[bx]
  95.                 addb    al,cl,700[bx]
  96.                 addb    al,cl,-300[bx]
  97.                 addb    al,cl,#12h
  98.  
  99.                 and     dx,300h
  100.                 mulu    eax,bx,cx
  101.                 mulb    ax,cl,ch
  102.                 subb    cl,#5
  103.  
  104.                 addc    ax,bx
  105.                 addcb   al,[bx]
  106.                 cmp     ax,[bx]+
  107.                 cmpb    al,2[bx]
  108.                 cmpl    ecx,edx
  109.                 div     eax,-15[bx]
  110.                 divb    ax,200[bx]
  111.                 divu    eax,-300[bx]
  112.                 divub   ax,200
  113.                 ld      ax,#2345h
  114.                 ldb     al,#16
  115.                 st      ax,bx
  116.                 stb     al,[bx]
  117.                 subc    ax,[bx]+
  118.                 subcb   al,2[bx]
  119.                 xor     ax,-15[bx]
  120.                 xorb    al,200[bx]
  121.  
  122.                 push    ax
  123.                 push    [bx]
  124.                 push    #1234h
  125.                 pop     2000h
  126.                 pop     10[cx]
  127.  
  128.                 xch     ax,bx
  129.                 expect  380
  130.                 xch     ax,[bx]
  131.                 endexpect
  132.                 xch     ax,10[bx]
  133.                 xch     ax,-150[bx]
  134.                 expect  1350
  135.                 xch     ax,[bx]+
  136.                 endexpect
  137.                 xch     ax,2000h
  138.                 xchb    bl,al
  139.                 expect  380
  140.                 xchb    [bx],al
  141.                 endexpect
  142.                 xchb    10[bx],al
  143.                 xchb    -150[bx],al
  144.                 expect  1350
  145.                 xchb    [bx]+,al
  146.                 endexpect
  147.                 xchb    2000h,al
  148.  
  149.                 clr     ax
  150.                 clrb    al
  151.                 dec     bx
  152.                 decb    bh
  153.                 ext     eax
  154.                 extb    ax
  155.                 inc     cx
  156.                 incb    cl
  157.                 neg     dx
  158.                 negb    dh
  159.                 not     ax
  160.                 notb    al
  161.  
  162.                 scall   targ
  163.                 expect  20
  164.                  lcall   targ
  165.                 endexpect
  166.                 call    targ
  167.  
  168.                 sjmp    targ
  169.                 expect  20
  170.                  ljmp    targ
  171.                 endexpect
  172.                 br      targ
  173.                 br      [dx]
  174.  
  175.                 djnz    cl,$
  176.                 djnzw   cx,$
  177.  
  178.                 jbc     dh,3,$
  179.                 jbs     al,1,$
  180.  
  181.                 tijmp   bx,ax,#127
  182.  
  183.                 ldbse   ax,#-1
  184.                 ldbze   cx,[bx]+
  185.  
  186.                 norml   eax,cl
  187.  
  188.                 shl     ax,#5
  189.                 shl     ax,cl
  190.                 shlb    al,#6
  191.                 shlb    al,cl
  192.                 shll    eax,#7
  193.                 shll    eax,cl
  194.                 shr     ax,#5
  195.                 shr     ax,cl
  196.                 shrb    al,#6
  197.                 shrb    al,cl
  198.                 shrl    eax,#7
  199.                 shrl    eax,cl
  200.                 shra    ax,#5
  201.                 shra    ax,cl
  202.                 shrab   al,#6
  203.                 shrab   al,cl
  204.                 shral   eax,#7
  205.                 shral   eax,cl
  206.  
  207.                 skip    dl
  208.  
  209.                 idlpd   #2
  210.  
  211.  
  212.                 ldb     al,100h         ; lang
  213.                 ldb     al,0c0h         ; kurz
  214.                 ldb     al,000h         ; kurz
  215.                 ldb     al,140h         ; lang
  216.                 ldb     al,[0c0h]
  217.                 ldb     al,[000h]
  218.  
  219.                 assume  wsr:24h         ; =100h..13fh auf 0c0h..0ffh
  220.  
  221.                 ldb     al,100h         ; jetzt kurz
  222.                 ldb     al,0c0h         ; jetzt lang
  223.                 ldb     al,000h         ; immmer noch kurz
  224.                 ldb     al,140h         ; immer noch lang
  225.                 ldb     al,[100h]
  226.                 ldb     al,[000h]
  227.  
  228.                 bne     2000h
  229.                 bc      2000h
  230.