home *** CD-ROM | disk | FTP | other *** search
/ Il CD di internet / CD.iso / SOURCE / EXTRA-ST / CPM-80-E / CPM-0.2 / CPM-0 / cpm-0.2 / codeiy.s < prev    next >
Encoding:
Text File  |  1994-06-06  |  4.7 KB  |  177 lines
  1. /*****************************************************************************/
  2. /*                                         */
  3. /*                                         */
  4. /*    CP/M emulator version 0.1                         */
  5. /*                                         */
  6. /*    written by Michael Bischoff (mbi@mo.math.nat.tu-bs.de)             */
  7. /*    June-1994                                 */
  8. /*                                         */
  9. /*    This file is distributed under the GNU COPYRIGHT             */
  10. /*    see COPYRIGHT.GNU for Copyright details                     */
  11. /*                                         */
  12. /*                                         */
  13. /*****************************************************************************/
  14.         .data
  15. jumptabiy:
  16.         .long EXIT2,EXIT2,EXIT2,EXIT2,EXIT2,EXIT2,EXIT2,EXIT2
  17.         .long EXIT2,iy09, EXIT2,EXIT2,EXIT2,EXIT2,EXIT2,EXIT2
  18.         .long EXIT2,EXIT2,EXIT2,EXIT2,EXIT2,EXIT2,EXIT2,EXIT2
  19.         .long EXIT2,iy19, EXIT2,EXIT2,EXIT2,EXIT2,EXIT2,EXIT2
  20.         .long EXIT2,iy21, iy22, iy23, EXIT2,EXIT2,EXIT2,EXIT2
  21.         .long EXIT2,iy29, iy2a, iy2b, EXIT2,EXIT2,EXIT2,EXIT2
  22.         .long EXIT2,EXIT2,EXIT2,EXIT2,iy34, iy35, iy36, EXIT2
  23.         .long EXIT2,iy39, EXIT2,EXIT2,EXIT2,EXIT2,EXIT2,EXIT2
  24.  
  25.         .long EXIT2,EXIT2,EXIT2,EXIT2,EXIT2,EXIT2,iy46, EXIT2
  26.         .long EXIT2,EXIT2,EXIT2,EXIT2,EXIT2,EXIT2,iy4e, EXIT2
  27.         .long EXIT2,EXIT2,EXIT2,EXIT2,EXIT2,EXIT2,iy56, EXIT2
  28.         .long EXIT2,EXIT2,EXIT2,EXIT2,EXIT2,EXIT2,iy5e, EXIT2
  29.         .long EXIT2,EXIT2,EXIT2,EXIT2,EXIT2,EXIT2,iy66, EXIT2
  30.         .long EXIT2,EXIT2,EXIT2,EXIT2,EXIT2,EXIT2,iy6e, EXIT2
  31.         .long iy70, iy71, iy72, iy73, iy74, iy75, EXIT2,iy77
  32.         .long EXIT2,EXIT2,EXIT2,EXIT2,EXIT2,EXIT2,iy7e, EXIT2
  33.  
  34.         .long EXIT2,EXIT2,EXIT2,EXIT2,EXIT2,EXIT2,iy86, EXIT2
  35.         .long EXIT2,EXIT2,EXIT2,EXIT2,EXIT2,EXIT2,iy8e, EXIT2
  36.         .long EXIT2,EXIT2,EXIT2,EXIT2,EXIT2,EXIT2,iy96, EXIT2
  37.         .long EXIT2,EXIT2,EXIT2,EXIT2,EXIT2,EXIT2,iy9e, EXIT2
  38.         .long EXIT2,EXIT2,EXIT2,EXIT2,EXIT2,EXIT2,iya6, EXIT2
  39.         .long EXIT2,EXIT2,EXIT2,EXIT2,EXIT2,EXIT2,iyae, EXIT2
  40.         .long EXIT2,EXIT2,EXIT2,EXIT2,EXIT2,EXIT2,iyb6, EXIT2
  41.         .long EXIT2,EXIT2,EXIT2,EXIT2,EXIT2,EXIT2,iybe, EXIT2
  42.  
  43.         .long EXIT2,EXIT2,EXIT2,EXIT2,EXIT2,EXIT2,EXIT2,EXIT2
  44.         .long EXIT2,EXIT2,EXIT2,iycb, EXIT2,EXIT2,EXIT2,EXIT2
  45.         .long EXIT2,EXIT2,EXIT2,EXIT2,EXIT2,EXIT2,EXIT2,EXIT2
  46.         .long EXIT2,EXIT2,EXIT2,EXIT2,EXIT2,EXIT2,EXIT2,EXIT2
  47.         .long EXIT2,iye1, EXIT2,iye3, EXIT2,iye5, EXIT2,EXIT2
  48.         .long EXIT2,iye9, EXIT2,iyeb, EXIT2,EXIT2,EXIT2,EXIT2
  49.         .long EXIT2,EXIT2,EXIT2,EXIT2,EXIT2,EXIT2,EXIT2,EXIT2
  50.         .long EXIT2,iyf9, EXIT2,EXIT2,EXIT2,EXIT2,EXIT2,EXIT2
  51.         .text
  52.  
  53.         
  54.         opcode (0x09)        /* ADD IY,BC */
  55. iy09:           andb $0xec,%ah        /* ### H noch falsch */
  56.         addw %cx,IY
  57.         adcb $0,%ah        /* set carry flag if necessary (8 Byte) */
  58.         dispatch
  59.         opcode (0x19)        /* ADD IY,DE */
  60. iy19:           andb $0xec,%ah        /* ### H noch falsch */
  61.         addw %dx,IY
  62.         adc $0,%ah
  63.         dispatch
  64.  
  65.         opcode (0x21)        /* LD IY,nnnn */
  66. iy21:           movw (%esi,%ebp),%di
  67.         movw %di,IY
  68.         incl %esi
  69.         incl %esi
  70.         dispatch
  71.  
  72.         opcode (0x22)           /* LD (nnnn),IY */
  73. iy22:        movzwl (%esi,%ebp),%edi
  74.         pushl %ebx
  75.         movl IY,%ebx
  76.         movw %bx,(%edi,%ebp)
  77.         popl %ebx
  78.         incl %esi
  79.         incl %esi
  80.         dispatch
  81.  
  82.         opcode (0x23)        /* INC IY */
  83. iy23:           incw IY
  84.         dispatch
  85.  
  86.         opcode (0x29)        /* ADD IY,IY */
  87. iy29:           andb $0xec,%ah        /* clear some Flags  ### H noch falsch */
  88.         movl IY,%edi
  89.         addw %di,%di
  90.         movl %edi,IY
  91.         adc $0,%ah
  92.         dispatch
  93.  
  94.         opcode (0x2a)        /* LD IY,(nnnn) */
  95. iy2a:           movzwl (%esi,%ebp),%edi
  96.         pushl %ebx
  97.         movw (%edi,%ebp),%bx
  98.         movw %bx,IY
  99.         popl %ebx
  100.         incl %esi
  101.         incl %esi
  102.         dispatch
  103.  
  104.         opcode (0x2b)        /* DEC IY */
  105. iy2b:           decw IY
  106.         dispatch
  107.  
  108.         opcode (0x34)           /* INC (IY+off) */
  109. iy34:        GETIYOFF
  110.         inc8mac((%ebp,%edi))
  111.         dispatch
  112.  
  113.         opcode (0x35)            /* DEC (IY+off) */
  114. iy35:        GETIYOFF
  115.         dec8mac((%ebp,%edi))
  116.         dispatch
  117.  
  118.         opcode (0x36)        /* LD (IY+off),nn */
  119. iy36:        GETIYOFF
  120.         pushl %eax
  121.         movb (%esi,%ebp),%al
  122.         incl %esi
  123.         movb %al,(%edi,%ebp)
  124.         popl %eax
  125.         dispatch
  126.  
  127.         opcode (0x39)        /* ADD IY,SP */
  128. iy39:           andb $0xec,%ah        /* clear some Flags  ### H noch falsch */
  129.         movw _z80regs+4,%di
  130.         addw %di,IY
  131.         adc $0,%ah
  132.         dispatch
  133.  
  134.                 opcode (0xe1)        /* POP IY */
  135. iye1:        movl _z80regs+4,%edi
  136.         pushl %eax
  137.         movw (%edi,%ebp),%ax
  138.         incl %edi
  139.         incl %edi
  140.         movl %edi,_z80regs+4
  141.         movw %ax,IY
  142.         popl %eax
  143.         dispatch
  144.  
  145.                 opcode (0xe5)        /* PUSH IY */
  146. iye5:        movl _z80regs+4,%edi
  147.         decw %di
  148.         decw %di
  149.         pushl %ebx
  150.         movw IY,%bx
  151.         movw %bx,(%ebp,%edi)
  152.         popl %ebx
  153.         movl %edi,_z80regs+4
  154.         dispatch
  155.  
  156.                 opcode (0xe3)            /* EX (SP),IY */
  157. iye3:        movl _z80regs+4,%edi
  158.         pushl %ebx
  159.                 movw (%edi,%ebp),%bx
  160.         xchgw %bx,IY
  161.         movw %bx,(%edi,%ebp)
  162.         popl %ebx
  163.             dispatch
  164.  
  165.                 opcode (0xe9)        /* JP (IY) */
  166. iye9:           movl IY,%esi
  167.                 dispatch
  168.  
  169.                 opcode (0xeb)        /* EX DE,IY */
  170. iyeb:           xchgl IY,%edx
  171.                 dispatch
  172.  
  173.                 opcode (0xf9)        /* LD SP,IY */
  174. iyf9:            movl IY,%edi
  175.         movl %edi,_z80regs+4
  176.                 dispatch
  177.