Subversion Repositories NedoOS

Rev

Rev 2238 | Blame | Compare with Previous | Last modification | View Log | Download

  1. ;       title   'Z80 instruction set exerciser'
  2.  
  3. ; zexall.src - Z80 instruction set exerciser
  4. ; Original Copyright (C) 1994  Frank D. Cringle
  5. ; Changes at 03-Nov-2002 Copyright (C) 2002 J.G.Harston
  6. ; + Source syntax tweeked to assemble with ZMAC Z80 Macro Assembler
  7. ;   and MAXAM Assembler, marked in the source with 'jgh:'
  8. ; + labels on equates mustn't have trailing colon
  9. ; + macros don't understand <...> sequence, so parameters are passed
  10. ;   explicitly
  11. ; + ds n,c not supported, so strings are set to full explicity length
  12. ;
  13. ; This program is free software; you can redistribute it and/or
  14. ; modify it under the terms of the GNU General Public License
  15. ; as published by the Free Software Foundation; either version 2
  16. ; of the License, or (at your option) any later version.
  17. ;
  18. ; This program is distributed in the hope that it will be useful,
  19. ; but WITHOUT ANY WARRANTY; without even the implied warranty of
  20. ; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  21. ; GNU General Public License for more details.
  22. ;
  23. ; You should have received a copy of the GNU General Public License
  24. ; along with this program; if not, write to the Free Software
  25. ; Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  26.  
  27.         DEVICE ZXSPECTRUM128
  28.         include "../../_sdk/sys_h.asm"
  29.  
  30. STACK=0x4000
  31.         org     PROGSTART
  32. cmd_begin
  33.         jp      start
  34.  
  35. ; machine state before test (needs to be at predictably constant address)
  36. msbt:   ds      14
  37. spbt:   ds      2
  38. msbthi  equ     msbt / 0100h
  39. msbtlo  equ     msbt & 0ffh
  40.  
  41.  
  42. ; For the purposes of this test program, the machine state consists of:
  43. ;       a 2 byte memory operand, followed by
  44. ;       the registers iy,ix,hl,de,bc,af,sp
  45. ; for a total of 16 bytes.
  46.  
  47. ; The program tests instructions (or groups of similar instructions)
  48. ; by cycling through a sequence of machine states, executing the test
  49. ; instruction for each one and running a 32-bit crc over the resulting
  50. ; machine states.  At the end of the sequence the crc is compared to
  51. ; an expected value that was found empirically on a real Z80.
  52.  
  53. ; A test case is defined by a descriptor which consists of:
  54. ;       a flag mask byte,
  55. ;       the base case,
  56. ;       the incement vector,
  57. ;       the shift vector,
  58. ;       the expected crc,
  59. ;       a short descriptive message.
  60. ;
  61. ; The flag mask byte is used to prevent undefined flag bits from
  62. ; influencing the results.  Documented flags are as per Mostek Z80
  63. ; Technical Manual.
  64. ;
  65. ; The next three parts of the descriptor are 20 byte vectors
  66. ; corresponding to a 4 byte instruction and a 16 byte machine state.
  67. ; The first part is the base case, which is the first test case of
  68. ; the sequence.  This base is then modified according to the next 2
  69. ; vectors.  Each 1 bit in the increment vector specifies a bit to be
  70. ; cycled in the form of a binary counter.  For instance, if the byte
  71. ; corresponding to the accumulator is set to 0ffh in the increment
  72. ; vector, the test will be repeated for all 256 values of the
  73. ; accumulator.  Note that 1 bits don't have to be contiguous.  The
  74. ; number of test cases 'caused' by the increment vector is equal to
  75. ; 2^(number of 1 bits).  The shift vector is similar, but specifies a
  76. ; set of bits in the test case that are to be successively inverted.
  77. ; Thus the shift vector 'causes' a number of test cases equal to the
  78. ; number of 1 bits in it.
  79.  
  80. ; The total number of test cases is the product of those caused by the
  81. ; counter and shift vectors and can easily become unweildy.  Each
  82. ; individual test case can take a few milliseconds to execute, due to
  83. ; the overhead of test setup and crc calculation, so test design is a
  84. ; compromise between coverage and execution time.
  85.  
  86. ; This program is designed to detect differences between
  87. ; implementations and is not ideal for diagnosing the causes of any
  88. ; discrepancies.  However, provided a reference implementation (or
  89. ; real system) is available, a failing test case can be isolated by
  90. ; hand using a binary search of the test space.
  91.  
  92.  
  93. start: 
  94.         ld      hl,(6)
  95.         ;;ld    sp,hl
  96.         ld      sp,STACK
  97.         call    initstdio
  98.         ld      de,msg1
  99.         call    pr_de
  100.  
  101.         ld      hl,tests        ; first test case
  102. loop:   ld      a,(hl)          ; end of list ?
  103.         inc     hl
  104.         or      (hl)
  105.         jp      z,done
  106.         dec     hl
  107.         call    stt
  108.         jp      loop
  109.        
  110. done:   ld      de,msg2
  111.         call    pr_de
  112.         ld      hl,0            ; warm boot
  113.         QUIT
  114. tests:
  115.         dw      adc16
  116.         dw      add16
  117.         dw      add16x
  118.         dw      add16y
  119.         dw      alu8i
  120.         dw      alu8r
  121.         dw      alu8rx
  122.         dw      alu8x
  123.         dw      bitx
  124.         dw      bitz80
  125.         dw      cpd1
  126.         dw      cpi1
  127.         dw      daaop   ; can't use opcode as label
  128.         dw      inca
  129.         dw      incb
  130.         dw      incbc
  131.         dw      incc
  132.         dw      incd
  133.         dw      incde
  134.         dw      ince
  135.         dw      inch
  136.         dw      inchl
  137.         dw      incix
  138.         dw      inciy
  139.         dw      incl
  140.         dw      incm
  141.         dw      incsp
  142.         dw      incx
  143.         dw      incxh
  144.         dw      incxl
  145.         dw      incyh
  146.         dw      incyl
  147.         dw      ld161
  148.         dw      ld162
  149.         dw      ld163
  150.         dw      ld164
  151.         dw      ld165
  152.         dw      ld166
  153.         dw      ld167
  154.         dw      ld168
  155.         dw      ld16im
  156.         dw      ld16ix
  157.         dw      ld8bd
  158.         dw      ld8im
  159.         dw      ld8imx
  160.         dw      ld8ix1
  161.         dw      ld8ix2
  162.         dw      ld8ix3
  163.         dw      ld8ixy
  164.         dw      ld8rr
  165.         dw      ld8rrx
  166.         dw      lda
  167.         dw      ldd1
  168.         dw      ldd2
  169.         dw      ldi1
  170.         dw      ldi2
  171.         dw      negop   ; jgh: can't use opcode as label
  172.         dw      rldop   ; jgh: can't use opcode as label
  173.         dw      rot8080
  174.         dw      rotxy
  175.         dw      rotz80
  176.         dw      srz80
  177.         dw      srzx
  178.         dw      st8ix1
  179.         dw      st8ix2
  180.         dw      st8ix3
  181.         dw      stabd
  182.         dw      0
  183.  
  184. ; jgh: macro syntax changed for ZMAC and MAXAM
  185. ;       can't use opcodes as labels
  186. ;       ZMAC allows &nn as hex, so & removed from local labels
  187. ;
  188. tstr    macro   insn1,insn2,insn3,insn4,memop,riy,rix,rhl,rde,rbc,flags,acc,rsp
  189. .lab    db      insn1,insn2,insn3,insn4
  190.         dw      memop,riy,rix,rhl,rde,rbc
  191.         db      flags
  192.         db      acc
  193.         dw      rsp
  194.         if      ($-.lab)!=20
  195.         error   'missing parameter'
  196.         endif
  197.         endm
  198.  
  199. tmsg    macro   msg
  200. .lab    db      msg
  201.         if      $>=(.lab+31)
  202.         error   'message too long'
  203.         else
  204. ;       ds      ?lab+30-$,'.'   ; jgh: ZMAC/MAXAM don't have char parameter
  205.         endif
  206.         db      '$'
  207.         endm
  208.  
  209. ; jgh: ZMAC/MAXAM don't recognise <n,m> syntax for macros, so full parameters given
  210. ; jgh: each tmsg has full string, as ZMAC/MAXAM don't have ds n,c pseudo-op
  211.  
  212. ; <adc,sbc> hl,<bc,de,hl,sp> (38,912 cycles)
  213. adc16:  db      0ffh            ; flag mask
  214.         tstr    0edh,042h,0,0,0832ch,04f88h,0f22bh,0b339h,07e1fh,01563h,0d3h,089h,0465eh
  215.         tstr    0,038h,0,0,0,0,0,0f821h,0,0,0,0,0       ; (1024 cycles)
  216.         tstr    0,0,0,0,0,0,0,-1,-1,-1,0d7h,0,-1        ; (38 cycles)
  217.         db      0d4h,08ah,0d5h,019h                     ; expected crc
  218.         tmsg    '<adc,sbc> hl,<bc,de,hl,sp>....'
  219.  
  220. ; add hl,<bc,de,hl,sp> (19,456 cycles)
  221. add16:  db      0ffh            ; flag mask
  222.         tstr    9,0,0,0,0c4a5h,0c4c7h,0d226h,0a050h,058eah,08566h,0c6h,0deh,09bc9h
  223.         tstr    030h,0,0,0,0,0,0,0f821h,0,0,0,0,0       ; (512 cycles)
  224.         tstr    0,0,0,0,0,0,0,-1,-1,-1,0d7h,0,-1        ; (38 cycles)
  225.         db      0d9h,0a4h,0cah,005h                     ; expected crc
  226.         tmsg    'add hl,<bc,de,hl,sp>..........'
  227.  
  228. ; add ix,<bc,de,ix,sp> (19,456 cycles)
  229. add16x: db      0ffh            ; flag mask
  230.         tstr    0ddh,9,0,0,0ddach,0c294h,0635bh,033d3h,06a76h,0fa20h,094h,068h,036f5h
  231.         tstr    0,030h,0,0,0,0,0f821h,0,0,0,0,0,0       ; (512 cycles)
  232.         tstr    0,0,0,0,0,0,-1,0,-1,-1,0d7h,0,-1        ; (38 cycles)
  233.         db      0b1h,0dfh,08eh,0c0h                     ; expected crc
  234.         tmsg    'add ix,<bc,de,ix,sp>..........'
  235.  
  236. ; add iy,<bc,de,iy,sp> (19,456 cycles)
  237. add16y: db      0ffh            ; flag mask
  238.         tstr    0fdh,9,0,0,0c7c2h,0f407h,051c1h,03e96h,00bf4h,0510fh,092h,01eh,071eah
  239.         tstr    0,030h,0,0,0,0f821h,0,0,0,0,0,0,0       ; (512 cycles)
  240.         tstr    0,0,0,0,0,-1,0,0,-1,-1,0d7h,0,-1                ; (38 cycles)
  241.         db      039h,0c8h,058h,09bh                     ; expected crc
  242.         tmsg    'add iy,<bc,de,iy,sp>..........'
  243.  
  244. ; aluop a,nn (28,672 cycles)
  245. alu8i:  db      0ffh            ; flag mask
  246.         tstr    0c6h,0,0,0,009140h,07e3ch,07a67h,0df6dh,05b61h,00b29h,010h,066h,085b2h
  247.         tstr    038h,0,0,0,0,0,0,0,0,0,0,-1,0           ; (2048 cycles)
  248.         tstr    0,-1,0,0,0,0,0,0,0,0,0d7h,0,0           ; (14 cycles)
  249.         db      051h,0c1h,09ch,02eh                     ; expected crc
  250.         tmsg    'aluop a,nn....................'
  251.  
  252. ; aluop a,<b,c,d,e,h,l,(hl),a> (753,664 cycles)
  253. alu8r:  db      0ffh            ; flag mask
  254.         tstr    080h,0,0,0,0c53eh,0573ah,04c4dh,msbt,0e309h,0a666h,0d0h,03bh,0adbbh
  255.         tstr    03fh,0,0,0,0,0,0,0,0,0,0,-1,0           ; (16,384 cycles)
  256.         tstr    0,0,0,0,0ffh,0,0,0,-1,-1,0d7h,0,0       ; (46 cycles)
  257.         db      006h,0c7h,0aah,08eh                     ; expected crc
  258.         tmsg    'aluop a,<b,c,d,e,h,l,(hl),a>..'
  259.  
  260. ; aluop a,<ixh,ixl,iyh,iyl> (376,832 cycles)
  261. alu8rx: db      0ffh            ; flag mask
  262.         tstr    0ddh,084h,0,0,0d6f7h,0c76eh,0accfh,02847h,022ddh,0c035h,0c5h,038h,0234bh
  263.         tstr    020h,039h,0,0,0,0,0,0,0,0,0,-1,0        ; (8,192 cycles)
  264.         tstr    0,0,0,0,0ffh,0,0,0,-1,-1,0d7h,0,0       ; (46 cycles)
  265.         db      0a8h,086h,0cch,044h                     ; expected crc
  266.         tmsg    'aluop a,<ixh,ixl,iyh,iyl>.....'
  267.  
  268. ; aluop a,(<ix,iy>+1) (229,376 cycles)
  269. alu8x:  db      0ffh            ; flag mask
  270.         tstr    0ddh,086h,1,0,090b7h,msbt-1,msbt-1,032fdh,0406eh,0c1dch,045h,06eh,0e5fah
  271.         tstr    020h,038h,0,0,0,1,1,0,0,0,0,-1,0        ; (16,384 cycles)
  272.         tstr    0,0,0,0,0ffh,0,0,0,0,0,0d7h,0,0         ; (14 cycles)
  273.         db      0d3h,0f2h,0d7h,04ah                     ; expected crc
  274.         tmsg    'aluop a,(<ix,iy>+1)...........'
  275.  
  276. ; bit n,(<ix,iy>+1) (2048 cycles)
  277. bitx:   db      0ffh            ; flag mask
  278.         tstr    0ddh,0cbh,1,046h,02075h,msbt-1,msbt-1,03cfch,0a79ah,03d74h,051h,027h,0ca14h
  279.         tstr    020h,0,0,038h,0,0,0,0,0,0,053h,0,0      ; (256 cycles)
  280.         tstr    0,0,0,0,0ffh,0,0,0,0,0,0,0,0            ; (8 cycles)
  281.         db      083h,053h,04eh,0e1h                     ; expected crc
  282.         tmsg    'bit n,(<ix,iy>+1).............'
  283.  
  284. ; bit n,<b,c,d,e,h,l,(hl),a> (49,152 cycles)
  285. bitz80: db      0ffh            ; flag mask
  286.         tstr    0cbh,040h,0,0,03ef1h,09dfch,07acch,msbt,0be61h,07a86h,050h,024h,01998h
  287.         tstr    0,03fh,0,0,0,0,0,0,0,0,053h,0,0         ; (1024 cycles)
  288.         tstr    0,0,0,0,0ffh,0,0,0,-1,-1,0,-1,0         ; (48 cycles)
  289.         db      05eh,002h,00eh,098h                     ; expected crc
  290.         tmsg    'bit n,<b,c,d,e,h,l,(hl),a>....'
  291.  
  292. ; cpd<r> (1) (6144 cycles)
  293. cpd1:   db      0ffh            ; flag mask
  294.         tstr    0edh,0a9h,0,0,0c7b6h,072b4h,018f6h,msbt+17,08dbdh,1,0c0h,030h,094a3h
  295.         tstr    0,010h,0,0,0,0,0,0,0,010,0,-1,0         ; (1024 cycles)
  296.         tstr    0,0,0,0,0,0,0,0,0,0,0d7h,0,0            ; (6 cycles)
  297.         db      013h,04bh,062h,02dh                     ; expected crc
  298.         tmsg    'cpd<r>........................'
  299.  
  300. ; cpi<r> (1) (6144 cycles)
  301. cpi1:   db      0ffh            ; flag mask
  302.         tstr    0edh,0a1h,0,0,04d48h,0af4ah,0906bh,msbt,04e71h,1,093h,06ah,0907ch
  303.         tstr    0,010h,0,0,0,0,0,0,0,010,0,-1,0         ; (1024 cycles)
  304.         tstr    0,0,0,0,0,0,0,0,0,0,0d7h,0,0            ; (6 cycles)
  305.         db      02dh,0a4h,02dh,019h                     ; expected crc
  306.         tmsg    'cpi<r>........................'
  307.  
  308. ; <daa,cpl,scf,ccf>
  309. daaop:  db      0ffh            ; flag mask
  310.         tstr    027h,0,0,0,02141h,009fah,01d60h,0a559h,08d5bh,09079h,004h,08eh,0299dh
  311.         tstr    018h,0,0,0,0,0,0,0,0,0,0d7h,-1,0        ; (65,536 cycles)
  312.         tstr    0,0,0,0,0,0,0,0,0,0,0,0,0               ; (1 cycle)
  313.         db      06dh,02dh,0d2h,013h                     ; expected crc
  314.         tmsg    '<daa,cpl,scf,ccf>.............'
  315.  
  316. ; <inc,dec> a (3072 cycles)
  317. inca:   db      0ffh            ; flag mask
  318.         tstr    03ch,0,0,0,04adfh,0d5d8h,0e598h,08a2bh,0a7b0h,0431bh,044h,05ah,0d030h
  319.         tstr    001h,0,0,0,0,0,0,0,0,0,0,-1,0           ; (512 cycles)
  320.         tstr    0,0,0,0,0,0,0,0,0,0,0d7h,0,0            ; (6 cycles)
  321.         db      081h,0fah,081h,000h                     ; expected crc
  322.         tmsg    '<inc,dec> a...................'
  323.  
  324. ; <inc,dec> b (3072 cycles)
  325. incb:   db      0ffh            ; flag mask
  326.         tstr    004h,0,0,0,0d623h,0432dh,07a61h,08180h,05a86h,01e85h,086h,058h,09bbbh
  327.         tstr    001h,0,0,0,0,0,0,0,0,0ff00h,0,0,0       ; (512 cycles)
  328.         tstr    0,0,0,0,0,0,0,0,0,0,0d7h,0,0            ; (6 cycles)
  329.         db      077h,0f3h,05ah,073h                     ; expected crc
  330.         tmsg    '<inc,dec> b...................'
  331.  
  332. ; <inc,dec> bc (1536 cycles)
  333. incbc:  db      0ffh            ; flag mask
  334.         tstr    003h,0,0,0,0cd97h,044abh,08dc9h,0e3e3h,011cch,0e8a4h,002h,049h,02a4dh
  335.         tstr    008h,0,0,0,0,0,0,0,0,0f821h,0,0,0       ; (256 cycles)
  336.         tstr    0,0,0,0,0,0,0,0,0,0,0d7h,0,0            ; (6 cycles)
  337.         db      0d2h,0aeh,03bh,0ech                     ; expected crc
  338.         tmsg    '<inc,dec> bc..................'
  339.  
  340. ; <inc,dec> c (3072 cycles)
  341. incc:   db      0ffh            ; flag mask
  342.         tstr    00ch,0,0,0,0d789h,00935h,0055bh,09f85h,08b27h,0d208h,095h,005h,00660h
  343.         tstr    001h,0,0,0,0,0,0,0,0,0ffh,0,0,0         ; (512 cycles)
  344.         tstr    0,0,0,0,0,0,0,0,0,0,0d7h,0,0            ; (6 cycles)
  345.         db      01ah,0f6h,012h,0a7h                     ; expected crc
  346.         tmsg    '<inc,dec> c...................'
  347.  
  348. ; <inc,dec> d (3072 cycles)
  349. incd:   db      0ffh            ; flag mask
  350.         tstr    014h,0,0,0,0a0eah,05fbah,065fbh,0981ch,038cch,0debch,043h,05ch,003bdh
  351.         tstr    001h,0,0,0,0,0,0,0,0ff00h,0,0,0,0       ; (512 cycles)
  352.         tstr    0,0,0,0,0,0,0,0,0,0,0d7h,0,0            ; (6 cycles)
  353.         db      0d1h,046h,0bfh,051h                     ; expected crc
  354.         tmsg    '<inc,dec> d...................'
  355.  
  356. ; <inc,dec> de (1536 cycles)
  357. incde:  db      0ffh            ; flag mask
  358.         tstr    013h,0,0,0,0342eh,0131dh,028c9h,00acah,09967h,03a2eh,092h,0f6h,09d54h
  359.         tstr    008h,0,0,0,0,0,0,0,0f821h,0,0,0,0       ; (256 cycles)
  360.         tstr    0,0,0,0,0,0,0,0,0,0,0d7h,0,0            ; (6 cycles)
  361.         db      0aeh,0c6h,0d4h,02ch                     ; expected crc
  362.         tmsg    '<inc,dec> de..................'
  363.  
  364. ; <inc,dec> e (3072 cycles)
  365. ince:   db      0ffh            ; flag mask
  366.         tstr    01ch,0,0,0,0602fh,04c0dh,02402h,0e2f5h,0a0f4h,0a10ah,013h,032h,05925h
  367.         tstr    001h,0,0,0,0,0,0,0,0ffh,0,0,0,0         ; (512 cycles)
  368.         tstr    0,0,0,0,0,0,0,0,0,0,0d7h,0,0            ; (6 cycles)
  369.         db      0cah,08ch,06ah,0c2h                     ; expected crc
  370.         tmsg    '<inc,dec> e...................'
  371.  
  372. ; <inc,dec> h (3072 cycles)
  373. inch:   db      0ffh            ; flag mask
  374.         tstr    024h,0,0,0,01506h,0f2ebh,0e8ddh,0262bh,011a6h,0bc1ah,017h,006h,02818h
  375.         tstr    001h,0,0,0,0,0,0,0ff00h,0,0,0,0,0       ; (512 cycles)
  376.         tstr    0,0,0,0,0,0,0,0,0,0,0d7h,0,0            ; (6 cycles)
  377.         db      056h,00fh,095h,05eh                     ; expected crc
  378.         tmsg    '<inc,dec> h...................'
  379.  
  380. ; <inc,dec> hl (1536 cycles)
  381. inchl:  db      0ffh            ; flag mask
  382.         tstr    023h,0,0,0,0c3f4h,007a5h,01b6dh,04f04h,0e2c2h,0822ah,057h,0e0h,0c3e1h
  383.         tstr    008h,0,0,0,0,0,0,0f821h,0,0,0,0,0       ; (256 cycles)
  384.         tstr    0,0,0,0,0,0,0,0,0,0,0d7h,0,0            ; (6 cycles)
  385.         db      0fch,00dh,06dh,04ah                     ; expected crc
  386.         tmsg    '<inc,dec> hl..................'
  387.  
  388. ; <inc,dec> ix (1536 cycles)
  389. incix:  db      0ffh            ; flag mask
  390.         tstr    0ddh,023h,0,0,0bc3ch,00d9bh,0e081h,0adfdh,09a7fh,096e5h,013h,085h,00be2h
  391.         tstr    0,8,0,0,0,0,0f821h,0,0,0,0,0,0          ; (256 cycles)
  392.         tstr    0,0,0,0,0,0,0,0,0,0,0d7h,0,0            ; (6 cycles)
  393.         db      0a5h,04dh,0beh,031h                     ; expected crc
  394.         tmsg    '<inc,dec> ix..................'
  395.  
  396. ; <inc,dec> iy (1536 cycles)
  397. inciy:  db      0ffh            ; flag mask
  398.         tstr    0fdh,023h,0,0,09402h,0637ah,03182h,0c65ah,0b2e9h,0abb4h,016h,0f2h,06d05h
  399.         tstr    0,8,0,0,0,0f821h,0,0,0,0,0,0,0          ; (256 cycles)
  400.         tstr    0,0,0,0,0,0,0,0,0,0,0d7h,0,0            ; (6 cycles)
  401.         db      050h,05dh,051h,0a3h                     ; expected crc
  402.         tmsg    '<inc,dec> iy..................'
  403.  
  404. ; <inc,dec> l (3072 cycles)
  405. incl:   db      0ffh            ; flag mask
  406.         tstr    02ch,0,0,0,08031h,0a520h,04356h,0b409h,0f4c1h,0dfa2h,0d1h,03ch,03ea2h
  407.         tstr    001h,0,0,0,0,0,0,0ffh,0,0,0,0,0         ; (512 cycles)
  408.         tstr    0,0,0,0,0,0,0,0,0,0,0d7h,0,0            ; (6 cycles)
  409.         db      0a0h,0a1h,0b4h,09fh                     ; expected crc
  410.         tmsg    '<inc,dec> l...................'
  411.  
  412. ; <inc,dec> (hl) (3072 cycles)
  413. incm:   db      0ffh            ; flag mask
  414.         tstr    034h,0,0,0,0b856h,00c7ch,0e53eh,msbt,0877eh,0da58h,015h,05ch,01f37h
  415.         tstr    001h,0,0,0,0ffh,0,0,0,0,0,0,0,0         ; (512 cycles)
  416.         tstr    0,0,0,0,0,0,0,0,0,0,0d7h,0,0            ; (6 cycles)
  417.         db      028h,029h,05eh,0ceh                     ; expected crc
  418.         tmsg    '<inc,dec> (hl)................'
  419.  
  420. ; <inc,dec> sp (1536 cycles)
  421. incsp:  db      0ffh            ; flag mask
  422.         tstr    033h,0,0,0,0346fh,0d482h,0d169h,0deb6h,0a494h,0f476h,053h,002h,0855bh
  423.         tstr    008h,0,0,0,0,0,0,0,0,0,0,0,0f821h       ; (256 cycles)
  424.         tstr    0,0,0,0,0,0,0,0,0,0,0d7h,0,0            ; (6 cycles)
  425.         db      05dh,0ach,0d5h,027h                     ; expected crc
  426.         tmsg    '<inc,dec> sp..................'
  427.  
  428. ; <inc,dec> (<ix,iy>+1) (6144 cycles)
  429. incx:   db      0ffh            ; flag mask
  430.         tstr    0ddh,034h,1,0,0fa6eh,msbt-1,msbt-1,02c28h,08894h,05057h,016h,033h,0286fh
  431.         tstr    020h,1,0,0,0ffh,0,0,0,0,0,0,0,0         ; (1024 cycles)
  432.         tstr    0,0,0,0,0,0,0,0,0,0,0d7h,0,0            ; (6 cycles)
  433.         db      00bh,095h,0a8h,0eah                     ; expected crc
  434.         tmsg    '<inc,dec> (<ix,iy>+1).........'
  435.  
  436. ; <inc,dec> ixh (3072 cycles)
  437. incxh:  db      0ffh            ; flag mask
  438.         tstr    0ddh,024h,0,0,0b838h,0316ch,0c6d4h,03e01h,08358h,015b4h,081h,0deh,04259h
  439.         tstr    0,1,0,0,0,0ff00h,0,0,0,0,0,0,0          ; (512 cycles)
  440.         tstr    0,0,0,0,0,0,0,0,0,0,0d7h,0,0            ; (6 cycles)
  441.         db      06fh,046h,036h,062h                     ; expected crc
  442.         tmsg    '<inc,dec> ixh.................'
  443.  
  444. ; <inc,dec> ixl (3072 cycles)
  445. incxl:  db      0ffh            ; flag mask
  446.         tstr    0ddh,02ch,0,0,04d14h,07460h,076d4h,006e7h,032a2h,0213ch,0d6h,0d7h,099a5h
  447.         tstr    0,1,0,0,0,0ffh,0,0,0,0,0,0,0            ; (512 cycles)
  448.         tstr    0,0,0,0,0,0,0,0,0,0,0d7h,0,0            ; (6 cycles)
  449.         db      002h,07bh,0efh,02ch                     ; expected crc
  450.         tmsg    '<inc,dec> ixl.................'
  451.  
  452. ; <inc,dec> iyh (3072 cycles)
  453. incyh:  db      0ffh            ; flag mask
  454.         tstr    0ddh,024h,0,0,02836h,09f6fh,09116h,061b9h,082cbh,0e219h,092h,073h,0a98ch
  455.         tstr    0,1,0,0,0ff00h,0,0,0,0,0,0,0,0          ; (512 cycles)
  456.         tstr    0,0,0,0,0,0,0,0,0,0,0d7h,0,0            ; (6 cycles)
  457.         db      02dh,096h,06ch,0f3h                     ; expected crc
  458.         tmsg    '<inc,dec> iyh.................'
  459.  
  460. ; <inc,dec> iyl (3072 cycles)
  461. incyl:  db      0ffh            ; flag mask
  462.         tstr    0ddh,02ch,0,0,0d7c6h,062d5h,0a09eh,07039h,03e7eh,09f12h,090h,0d9h,0220fh
  463.         tstr    0,1,0,0,0ffh,0,0,0,0,0,0,0,0            ; (512 cycles)
  464.         tstr    0,0,0,0,0,0,0,0,0,0,0d7h,0,0            ; (6 cycles)
  465.         db      036h,0c1h,01eh,075h                     ; expected crc
  466.         tmsg    '<inc,dec> iyl.................'
  467.  
  468. ; ld <bc,de>,(nnnn) (32 cycles)
  469. ld161:  db      0ffh            ; flag mask
  470.         tstr    0edh,04bh,msbtlo,msbthi,0f9a8h,0f559h,093a4h,0f5edh,06f96h,0d968h,086h,0e6h,04bd8h
  471.         tstr    0,010h,0,0,0,0,0,0,0,0,0,0,0            ; (2 cycles)
  472.         tstr    0,0,0,0,-1,0,0,0,0,0,0,0,0              ; (16 cycles)
  473.         db      04dh,045h,0a9h,0ach                     ; expected crc
  474.         tmsg    'ld <bc,de>,(nnnn).............'
  475.  
  476. ; ld hl,(nnnn) (16 cycles)
  477. ld162:  db      0ffh            ; flag mask
  478.         tstr    02ah,msbtlo,msbthi,0,09863h,07830h,02077h,0b1feh,0b9fah,0abb8h,004h,006h,06015h
  479.         tstr    0,0,0,0,0,0,0,0,0,0,0,0,0               ; (1 cycle)
  480.         tstr    0,0,0,0,-1,0,0,0,0,0,0,0,0              ; (16 cycles)
  481.         db      05fh,097h,024h,087h                     ; expected crc
  482.         tmsg    'ld hl,(nnnn)..................'
  483.        
  484. ; ld sp,(nnnn) (16 cycles)
  485. ld163:  db      0ffh            ; flag mask
  486.         tstr    0edh,07bh,msbtlo,msbthi,08dfch,057d7h,02161h,0ca18h,0c185h,027dah,083h,01eh,0f460h
  487.         tstr    0,0,0,0,0,0,0,0,0,0,0,0,0               ; (1 cycles)
  488.         tstr    0,0,0,0,-1,0,0,0,0,0,0,0,0              ; (16 cycles)
  489.         db      07ah,0ceh,0a1h,01bh                     ; expected crc
  490.         tmsg    'ld sp,(nnnn)..................'
  491.  
  492. ; ld <ix,iy>,(nnnn) (32 cycles)
  493. ld164:  db      0ffh            ; flag mask
  494.         tstr    0ddh,02ah,msbtlo,msbthi,0ded7h,0a6fah,0f780h,0244ch,087deh,0bcc2h,016h,063h,04c96h
  495.         tstr    020h,0,0,0,0,0,0,0,0,0,0,0,0            ; (2 cycles)
  496.         tstr    0,0,0,0,-1,0,0,0,0,0,0,0,0              ; (16 cycles)
  497.         db      085h,08bh,0f1h,06dh                     ; expected crc
  498.         tmsg    'ld <ix,iy>,(nnnn).............'
  499.        
  500. ; ld (nnnn),<bc,de> (64 cycles)
  501. ld165:  db      0ffh            ; flag mask
  502.         tstr    0edh,043h,msbtlo,msbthi,01f98h,0844dh,0e8ach,0c9edh,0c95dh,08f61h,080h,03fh,0c7bfh
  503.         tstr    0,010h,0,0,0,0,0,0,0,0,0,0,0            ; (2 cycles)
  504.         tstr    0,0,0,0,0,0,0,0,-1,-1,0,0,0             ; (32 cycles)
  505.         db      064h,01eh,087h,015h                     ; expected crc
  506.         tmsg    'ld (nnnn),<bc,de>.............'
  507.  
  508. ; ld (nnnn),hl (16 cycles)
  509. ld166:  db      0ffh            ; flag mask
  510.         tstr    022h,msbtlo,msbthi,0,0d003h,07772h,07f53h,03f72h,064eah,0e180h,010h,02dh,035e9h
  511.         tstr    0,0,0,0,0,0,0,0,0,0,0,0,0               ; (1 cycle)
  512.         tstr    0,0,0,0,0,0,0,-1,0,0,0,0,0              ; (16 cycles)
  513.         db      0a3h,060h,08bh,047h                     ; expected crc
  514.         tmsg    'ld (nnnn),hl..................'
  515.  
  516. ; ld (nnnn),sp (16 cycles)
  517. ld167:  db      0ffh            ; flag mask
  518.         tstr    0edh,073h,msbtlo,msbthi,0c0dch,0d1d6h,0ed5ah,0f356h,0afdah,06ca7h,044h,09fh,03f0ah
  519.         tstr    0,0,0,0,0,0,0,0,0,0,0,0,0               ; (1 cycle)
  520.         tstr    0,0,0,0,0,0,0,0,0,0,0,0,-1              ; (16 cycles)
  521.         db      016h,058h,05fh,0d7h                     ; expected crc
  522.         tmsg    'ld (nnnn),sp..................'
  523.  
  524. ; ld (nnnn),<ix,iy> (64 cycles)
  525. ld168:  db      0ffh            ; flag mask
  526.         tstr    0ddh,022h,msbtlo,msbthi,06cc3h,00d91h,06900h,08ef8h,0e3d6h,0c3f7h,0c6h,0d9h,0c2dfh
  527.         tstr    020h,0,0,0,0,0,0,0,0,0,0,0,0            ; (2 cycles)
  528.         tstr    0,0,0,0,0,-1,-1,0,0,0,0,0,0             ; (32 cycles)
  529.         db      0bah,010h,02ah,06bh                     ; expected crc
  530.         tmsg    'ld (nnnn),<ix,iy>.............'
  531.  
  532. ; ld <bc,de,hl,sp>,nnnn (64 cycles)
  533. ld16im: db      0ffh            ; flag mask
  534.         tstr    1,0,0,0,05c1ch,02d46h,08eb9h,06078h,074b1h,0b30eh,046h,0d1h,030cch
  535.         tstr    030h,0,0,0,0,0,0,0,0,0,0,0,0            ; (4 cycles)
  536.         tstr    0,0ffh,0ffh,0,0,0,0,0,0,0,0,0,0         ; (16 cycles)
  537.         db      0deh,039h,019h,069h                     ; expected crc
  538.         tmsg    'ld <bc,de,hl,sp>,nnnn.........'
  539.  
  540. ; ld <ix,iy>,nnnn (32 cycles)
  541. ld16ix: db      0ffh            ; flag mask
  542.         tstr    0ddh,021h,0,0,087e8h,02006h,0bd12h,0b69bh,07253h,0a1e5h,051h,013h,0f1bdh
  543.         tstr    020h,0,0,0,0,0,0,0,0,0,0,0,0            ; (2 cycles)
  544.         tstr    0,0,0ffh,0ffh,0,0,0,0,0,0,0,0,0         ; (16 cycles)
  545.         db      022h,07dh,0d5h,025h                     ; expected crc
  546.         tmsg    'ld <ix,iy>,nnnn...............'
  547.  
  548. ; ld a,<(bc),(de)> (44 cycles)
  549. ld8bd:  db      0ffh            ; flag mask
  550.         tstr    00ah,0,0,0,0b3a8h,01d2ah,07f8eh,042ach,msbt,msbt,0c6h,0b1h,0ef8eh
  551.         tstr    010h,0,0,0,0,0,0,0,0,0,0,0,0            ; (2 cycles)
  552.         tstr    0,0,0,0,0ffh,0,0,0,0,0,0d7h,-1,0        ; (22 cycles)
  553.         db      0b0h,081h,089h,035h                     ; expected crc
  554.         tmsg    'ld a,<(bc),(de)>..............'
  555.  
  556. ; ld <b,c,d,e,h,l,(hl),a>,nn (64 cycles)
  557. ld8im:  db      0ffh            ; flag mask
  558.         tstr    6,0,0,0,0c407h,0f49dh,0d13dh,00339h,0de89h,07455h,053h,0c0h,05509h
  559.         tstr    038h,0,0,0,0,0,0,0,0,0,0,0,0            ; (8 cycles)
  560.         tstr    0,0,0,0,0,0,0,0,0,0,0,-1,0              ; (8 cycles)
  561.         db      0f1h,0dah,0b5h,056h                     ; expected crc
  562.         tmsg    'ld <b,c,d,e,h,l,(hl),a>,nn....'
  563.  
  564. ; ld (<ix,iy>+1),nn (32 cycles)
  565. ld8imx: db      0ffh            ; flag mask
  566.         tstr    0ddh,036h,1,0,01b45h,msbt-1,msbt-1,0d5c1h,061c7h,0bdc4h,0c0h,085h,0cd16h
  567.         tstr    020h,0,0,0,0,0,0,0,0,0,0,0,0            ; (2 cycles)
  568.         tstr    0,0,0,-1,0,0,0,0,0,0,0,-1,0             ; (16 cycles)
  569.         db      026h,0dbh,047h,07eh                     ; expected crc
  570.         tmsg    'ld (<ix,iy>+1),nn.............'
  571.  
  572. ; ld <b,c,d,e>,(<ix,iy>+1) (512 cycles)
  573. ld8ix1: db      0ffh            ; flag mask
  574.         tstr    0ddh,046h,1,0,0d016h,msbt-1,msbt-1,04260h,07f39h,00404h,097h,04ah,0d085h
  575.         tstr    020h,018h,0,0,0,1,1,0,0,0,0,0,0         ; (32 cycles)
  576.         tstr    0,0,0,0,-1,0,0,0,0,0,0,0,0              ; (16 cycles)
  577.         db      0cch,011h,006h,0a8h                     ; expected crc
  578.         tmsg    'ld <b,c,d,e>,(<ix,iy>+1)......'
  579.  
  580. ; ld <h,l>,(<ix,iy>+1) (256 cycles)
  581. ld8ix2: db      0ffh            ; flag mask
  582.         tstr    0ddh,066h,1,0,084e0h,msbt-1,msbt-1,09c52h,0a799h,049b6h,093h,000h,0eeadh
  583.         tstr    020h,008h,0,0,0,1,1,0,0,0,0,0,0         ; (16 cycles)
  584.         tstr    0,0,0,0,-1,0,0,0,0,0,0,0,0              ; (16 cycles)
  585.         db      0fah,02ah,04dh,003h                     ; expected crc
  586.         tmsg    'ld <h,l>,(<ix,iy>+1)..........'
  587.  
  588. ; ld a,(<ix,iy>+1) (128 cycles)
  589. ld8ix3: db      0ffh            ; flag mask
  590.         tstr    0ddh,07eh,1,0,0d8b6h,msbt-1,msbt-1,0c612h,0df07h,09cd0h,043h,0a6h,0a0e5h
  591.         tstr    020h,0,0,0,0,1,1,0,0,0,0,0,0            ; (8 cycles)
  592.         tstr    0,0,0,0,-1,0,0,0,0,0,0,0,0              ; (16 cycles)
  593.         db      0a5h,0e9h,0ach,064h                     ; expected crc
  594.         tmsg    'ld a,(<ix,iy>+1)..............'
  595.  
  596. ; ld <ixh,ixl,iyh,iyl>,nn (32 cycles)
  597. ld8ixy: db      0ffh            ; flag mask
  598.         tstr    0ddh,026h,0,0,03c53h,04640h,0e179h,07711h,0c107h,01afah,081h,0adh,05d9bh
  599.         tstr    020h,8,0,0,0,0,0,0,0,0,0,0,0            ; (4 cycles)
  600.         tstr    0,0,0,0,0,0,0,0,0,0,0,-1,0              ; (8 cycles)
  601.         db      024h,0e8h,082h,08bh                     ; expected crc
  602.         tmsg    'ld <ixh,ixl,iyh,iyl>,nn.......'
  603.  
  604. ; ld <b,c,d,e,h,l,a>,<b,c,d,e,h,l,a> (3456 cycles)
  605. ld8rr:  db      0ffh            ; flag mask
  606.         tstr    040h,0,0,0,072a4h,0a024h,061ach,msbt,082c7h,0718fh,097h,08fh,0ef8eh
  607.         tstr    03fh,0,0,0,0,0,0,0,0,0,0,0,0            ; (64 cycles)
  608.         tstr    0,0,0,0,0ffh,0,0,0,-1,-1,0d7h,-1,0      ; (54 cycles)
  609.         db      074h,04bh,001h,018h                     ; expected crc
  610.         tmsg    'ld <bcdehla>,<bcdehla>........'
  611.  
  612. ; ld <b,c,d,e,ixy,a>,<b,c,d,e,ixy,a> (6912 cycles)
  613. ld8rrx: db      0ffh            ; flag mask
  614.         tstr    0ddh,040h,0,0,0bcc5h,msbt,msbt,msbt,02fc2h,098c0h,083h,01fh,03bcdh
  615.         tstr    020h,03fh,0,0,0,0,0,0,0,0,0,0,0         ; (128 cycles)
  616.         tstr    0,0,0,0,0ffh,0,0,0,-1,-1,0d7h,-1,0      ; (54 cycles)
  617.         db      047h,08bh,0a3h,06bh                     ; expected crc
  618.         tmsg    'ld <bcdexya>,<bcdexya>........'
  619.  
  620. ; ld a,(nnnn) / ld (nnnn),a (44 cycles)
  621. lda:    db      0ffh            ; flag mask
  622.         tstr    032h,msbtlo,msbthi,0,0fd68h,0f4ech,044a0h,0b543h,00653h,0cdbah,0d2h,04fh,01fd8h
  623.         tstr    008h,0,0,0,0,0,0,0,0,0,0,0,0            ; (2 cycle)
  624.         tstr    0,0,0,0,0ffh,0,0,0,0,0,0d7h,-1,0        ; (22 cycles)
  625.         db      0c9h,026h,02dh,0e5h                     ; expected crc
  626.         tmsg    'ld a,(nnnn) / ld (nnnn),a.....'
  627.  
  628. ; ldd<r> (1) (44 cycles)
  629. ldd1:   db      0ffh            ; flag mask
  630.         tstr    0edh,0a8h,0,0,09852h,068fah,066a1h,msbt+3,msbt+1,1,0c1h,068h,020b7h
  631.         tstr    0,010h,0,0,0,0,0,0,0,0,0,0,0            ; (2 cycles)
  632.         tstr    0,0,0,0,-1,0,0,0,0,0,0d7h,0,0           ; (22 cycles)
  633.         db      094h,0f4h,027h,069h                     ; expected crc
  634.         tmsg    'ldd<r> (1)....................'
  635.  
  636. ; ldd<r> (2) (44 cycles)
  637. ldd2:   db      0ffh            ; flag mask
  638.         tstr    0edh,0a8h,0,0,0f12eh,0eb2ah,0d5bah,msbt+3,msbt+1,2,047h,0ffh,0fbe4h
  639.         tstr    0,010h,0,0,0,0,0,0,0,0,0,0,0            ; (2 cycles)
  640.         tstr    0,0,0,0,-1,0,0,0,0,0,0d7h,0,0           ; (22 cycles)
  641.         db      039h,0ddh,03dh,0e1h                     ; expected crc
  642.         tmsg    'ldd<r> (2)....................'
  643.  
  644. ; ldi<r> (1) (44 cycles)
  645. ldi1:   db      0ffh            ; flag mask
  646.         tstr    0edh,0a0h,0,0,0fe30h,003cdh,06058h,msbt+2,msbt,1,004h,060h,02688h
  647.         tstr    0,010h,0,0,0,0,0,0,0,0,0,0,0            ; (2 cycles)
  648.         tstr    0,0,0,0,-1,0,0,0,0,0,0d7h,0,0           ; (22 cycles)
  649.         db      0f7h,082h,0b0h,0d1h                     ; expected crc
  650.         tmsg    'ldi<r> (1)....................'
  651.  
  652. ; ldi<r> (2) (44 cycles)
  653. ldi2:   db      0ffh            ; flag mask
  654.         tstr    0edh,0a0h,0,0,04aceh,0c26eh,0b188h,msbt+2,msbt,2,014h,02dh,0a39fh
  655.         tstr    0,010h,0,0,0,0,0,0,0,0,0,0,0            ; (2 cycles)
  656.         tstr    0,0,0,0,-1,0,0,0,0,0,0d7h,0,0           ; (22 cycles)
  657.         db      0e9h,0eah,0d0h,0aeh                     ; expected crc
  658.         tmsg    'ldi<r> (2)....................'
  659.  
  660. ; neg (16,384 cycles)
  661. negop:  db      0ffh            ; flag mask
  662.         tstr    0edh,044h,0,0,038a2h,05f6bh,0d934h,057e4h,0d2d6h,04642h,043h,05ah,009cch
  663.         tstr    0,0,0,0,0,0,0,0,0,0,0d7h,-1,0           ; (16,384 cycles)
  664.         tstr    0,0,0,0,0,0,0,0,0,0,0,0,0               ; (1 cycle)
  665.         db      0d6h,038h,0ddh,06ah                     ; expected crc
  666.         tmsg    'neg...........................'
  667.  
  668. ; <rld,rrd> (7168 cycles)
  669. rldop:  db      0ffh            ; flag mask
  670.         tstr    0edh,067h,0,0,091cbh,0c48bh,0fa62h,msbt,0e720h,0b479h,040h,006h,08ae2h
  671.         tstr    0,8,0,0,0ffh,0,0,0,0,0,0,0,0            ; (512 cycles)
  672.         tstr    0,0,0,0,0,0,0,0,0,0,0d7h,-1,0           ; (14 cycles)
  673.         db      0ffh,082h,03eh,077h                     ; expected crc
  674.         tmsg    '<rrd,rld>.....................'
  675.  
  676. ; <rlca,rrca,rla,rra> (6144 cycles)
  677. rot8080: db     0ffh            ; flag mask
  678.         tstr    7,0,0,0,0cb92h,06d43h,00a90h,0c284h,00c53h,0f50eh,091h,0ebh,040fch
  679.         tstr    018h,0,0,0,0,0,0,0,0,0,0,-1,0           ; (1024 cycles)
  680.         tstr    0,0,0,0,0,0,0,0,0,0,0d7h,0,0            ; (6 cycles)
  681.         db      09bh,0a3h,080h,07ch                     ; expected crc
  682.         tmsg    '<rlca,rrca,rla,rra>...........'
  683.  
  684. ; shift/rotate (<ix,iy>+1) (416 cycles)
  685. rotxy:  db      0ffh            ; flag mask
  686.         tstr    0ddh,0cbh,1,6,0ddafh,msbt-1,msbt-1,0ff3ch,0dbf6h,094f4h,082h,080h,061d9h
  687.         tstr    020h,0,0,038h,0,0,0,0,0,0,080h,0,0      ; (32 cycles)
  688.         tstr    0,0,0,0,0ffh,0,0,0,0,0,057h,0,0         ; (13 cycles)
  689.         db      071h,000h,034h,0cbh                     ; expected crc
  690.         tmsg    'shf/rot (<ix,iy>+1)...........'
  691.  
  692. ; shift/rotate <b,c,d,e,h,l,(hl),a> (6784 cycles)
  693. rotz80: db      0ffh            ; flag mask
  694.         tstr    0cbh,0,0,0,0ccebh,05d4ah,0e007h,msbt,01395h,030eeh,043h,078h,03dadh
  695.         tstr    0,03fh,0,0,0,0,0,0,0,0,080h,0,0         ; (128 cycles)
  696.         tstr    0,0,0,0,0ffh,0,0,0,-1,-1,057h,-1,0      ; (53 cycles)
  697.         db      0a4h,025h,058h,033h                     ; expected crc
  698.         tmsg    'shf/rot <b,c,d,e,h,l,(hl),a>..'
  699.  
  700. ; <set,res> n,<b,c,d,e,h,l,(hl),a> (7936 cycles)
  701. srz80:  db      0ffh            ; flag mask
  702.         tstr    0cbh,080h,0,0,02cd5h,097abh,039ffh,msbt,0d14bh,06ab2h,053h,027h,0b538h
  703.         tstr    0,07fh,0,0,0,0,0,0,0,0,0,0,0            ; (128 cycles)
  704.         tstr    0,0,0,0,0ffh,0,0,0,-1,-1,0d7h,-1,0      ; (62 cycles)
  705.         db      08bh,057h,0f0h,008h                     ; expected crc
  706.         tmsg    '<set,res> n,<bcdehl(hl)a>.....'
  707.  
  708. ; <set,res> n,(<ix,iy>+1) (1792 cycles)
  709. srzx:   db      0ffh            ; flag mask
  710.         tstr    0ddh,0cbh,1,086h,0fb44h,msbt-1,msbt-1,0ba09h,068beh,032d8h,010h,05eh,0a867h
  711.         tstr    020h,0,0,078h,0,0,0,0,0,0,0,0,0 ; (128 cycles)
  712.         tstr    0,0,0,0,0ffh,0,0,0,0,0,0d7h,0,0         ;(14 cycles)
  713.         db      0cch,063h,0f9h,08ah                     ; expected crc
  714.         tmsg    '<set,res> n,(<ix,iy>+1).......'
  715.  
  716. ; ld (<ix,iy>+1),<b,c,d,e> (1024 cycles)
  717. st8ix1: db      0ffh            ; flag mask
  718.         tstr    0ddh,070h,1,0,0270dh,msbt-1,msbt-1,0b73ah,0887bh,099eeh,086h,070h,0ca07h
  719.         tstr    020h,003h,0,0,0,1,1,0,0,0,0,0,0         ; (32 cycles)
  720.         tstr    0,0,0,0,0,0,0,0,-1,-1,0,0,0             ; (32 cycles)
  721.         db      004h,062h,06ah,0bfh                     ; expected crc
  722.         tmsg    'ld (<ix,iy>+1),<b,c,d,e>......'
  723.  
  724. ; ld (<ix,iy>+1),<h,l> (256 cycles)
  725. st8ix2: db      0ffh            ; flag mask
  726.         tstr    0ddh,074h,1,0,0b664h,msbt-1,msbt-1,0e8ach,0b5f5h,0aafeh,012h,010h,09566h
  727.         tstr    020h,001h,0,0,0,1,1,0,0,0,0,0,0         ; (16 cycles)
  728.         tstr    0,0,0,0,0,0,0,-1,0,0,0,0,0              ; (32 cycles)
  729.         db      06ah,01ah,088h,031h                     ; expected crc
  730.         tmsg    'ld (<ix,iy>+1),<h,l>..........'
  731.  
  732. ; ld (<ix,iy>+1),a (64 cycles)
  733. st8ix3: db      0ffh            ; flag mask
  734.         tstr    0ddh,077h,1,0,067afh,msbt-1,msbt-1,04f13h,00644h,0bcd7h,050h,0ach,05fafh
  735.         tstr    020h,0,0,0,0,1,1,0,0,0,0,0,0            ; (8 cycles)
  736.         tstr    0,0,0,0,0,0,0,0,0,0,0,-1,0              ; (8 cycles)
  737.         db      0cch,0beh,05ah,096h                     ; expected crc
  738.         tmsg    'ld (<ix,iy>+1),a..............'
  739.  
  740. ; ld (<bc,de>),a (96 cycles)
  741. stabd:  db      0ffh            ; flag mask
  742.         tstr    2,0,0,0,00c3bh,0b592h,06cffh,0959eh,msbt,msbt+1,0c1h,021h,0bde7h
  743.         tstr    018h,0,0,0,0,0,0,0,0,0,0,0,0            ; (4 cycles)
  744.         tstr    0,0,0,0,-1,0,0,0,0,0,0,-1,0             ; (24 cycles)
  745.         db      07ah,04ch,011h,04fh                     ; expected crc
  746.         tmsg    'ld (<bc,de>),a................'
  747.  
  748. ; start test pointed to by (hl)
  749. stt:    push    hl
  750.         ld      a,(hl)          ; get pointer to test
  751.         inc     hl
  752.         ld      h,(hl)
  753.         ld      l,a
  754.         ld      a,(hl)          ; flag mask
  755.         ld      (flgmsk+1),a
  756.         inc     hl
  757.         push    hl
  758.         ld      de,20
  759.         add     hl,de           ; point to incmask
  760.         ld      de,counter
  761.         call    initmask
  762.         pop     hl
  763.         push    hl
  764.         ld      de,20+20
  765.         add     hl,de           ; point to scanmask
  766.         ld      de,shifter
  767.         call    initmask
  768.         ld      hl,shifter
  769.         ld      (hl),1          ; first bit
  770.         pop     hl
  771.         push    hl
  772.         ld      de,iut          ; copy initial instruction under test
  773.         ld      bc,4
  774.         ldir
  775.         ld      de,msbt         ; copy initial machine state
  776.         ld      bc,16
  777.         ldir
  778.         ld      de,20+20+4      ; skip incmask, scanmask and expcrc
  779.         add     hl,de
  780.         ex      de,hl
  781.         call    pr_de   ; show test name
  782.         call    initcrc         ; initialise crc
  783. ; test loop
  784. tlp:    ld      a,(iut)
  785.         cp      076h            ; pragmatically avoid halt intructions
  786.         jp      z,tlp2
  787.         and     0dfh
  788.         cp      0ddh
  789.         jp      nz,tlp1
  790.         ld      a,(iut+1)
  791.         cp      076h
  792. tlp1:   call    nz,test         ; execute the test instruction
  793. tlp2:   call    count           ; increment the counter
  794.         call    nz,shift        ; shift the scan bit
  795.         pop     hl              ; pointer to test case
  796.         jp      z,tlp3          ; done if shift returned NZ
  797.         ld      de,20+20+20
  798.         add     hl,de           ; point to expected crc
  799.         call    cmpcrc
  800.         ld      de,okmsg
  801.         jp      z,tlpok
  802.         ld      de,ermsg1
  803.         call    pr_de
  804.         call    phex8
  805.         ld      de,ermsg2
  806.         call    pr_de
  807.         ld      hl,crcval
  808.         call    phex8
  809.         ld      de,crlf
  810. tlpok:
  811.         call    pr_de
  812.         pop     hl
  813.         inc     hl
  814.         inc     hl
  815.         ret
  816.  
  817. tlp3:   push    hl
  818.         ld      a,1             ; initialise count and shift scanners
  819.         ld      (cntbit),a
  820.         ld      (shfbit),a
  821.         ld      hl,counter
  822.         ld      (cntbyt),hl
  823.         ld      hl,shifter
  824.         ld      (shfbyt),hl
  825.  
  826.         ld      b,4             ; bytes in iut field
  827.         pop     hl              ; pointer to test case
  828.         push    hl
  829.         ld      de,iut
  830.         call    setup           ; setup iut
  831.         ld      b,16            ; bytes in machine state
  832.         ld      de,msbt
  833.         call    setup           ; setup machine state
  834.         jp      tlp
  835.  
  836. ; setup a field of the test case
  837. ; b  = number of bytes
  838. ; hl = pointer to base case
  839. ; de = destination
  840. setup:  call    subyte
  841.         inc     hl
  842.         dec     b
  843.         jp      nz,setup
  844.         ret
  845.  
  846. subyte: push    bc
  847.         push    de
  848.         push    hl
  849.         ld      c,(hl)          ; get base byte
  850.         ld      de,20
  851.         add     hl,de           ; point to incmask
  852.         ld      a,(hl)
  853.         cp      0
  854.         jp      z,subshf
  855.         ld      b,8             ; 8 bits
  856. subclp: rrca
  857.         push    af
  858.         ld      a,0
  859.         call    c,nxtcbit       ; get next counter bit if mask bit was set
  860.         xor     c               ; flip bit if counter bit was set
  861.         rrca
  862.         ld      c,a
  863.         pop     af
  864.         dec     b
  865.         jp      nz,subclp
  866.         ld      b,8
  867. subshf: ld      de,20
  868.         add     hl,de           ; point to shift mask
  869.         ld      a,(hl)
  870.         cp      0
  871.         jp      z,substr
  872.         ld      b,8             ; 8 bits
  873. sbshf1: rrca
  874.         push    af
  875.         ld      a,0
  876.         call    c,nxtsbit       ; get next shifter bit if mask bit was set
  877.         xor     c               ; flip bit if shifter bit was set
  878.         rrca
  879.         ld      c,a
  880.         pop     af
  881.         dec     b
  882.         jp      nz,sbshf1
  883. substr: pop     hl
  884.         pop     de
  885.         ld      a,c
  886.         ld      (de),a          ; mangled byte to destination
  887.         inc     de
  888.         pop     bc
  889.         ret
  890.  
  891. ; get next counter bit in low bit of a
  892. cntbit: ds      1
  893. cntbyt: ds      2
  894.  
  895. nxtcbit: push   bc
  896.         push    hl
  897.         ld      hl,(cntbyt)
  898.         ld      b,(hl)
  899.         ld      hl,cntbit
  900.         ld      a,(hl)
  901.         ld      c,a
  902.         rlca
  903.         ld      (hl),a
  904.         cp      1
  905.         jp      nz,ncb1
  906.         ld      hl,(cntbyt)
  907.         inc     hl
  908.         ld      (cntbyt),hl
  909. ncb1:   ld      a,b
  910.         and     c
  911.         pop     hl
  912.         pop     bc
  913.         ret     z
  914.         ld      a,1
  915.         ret
  916.        
  917. ; get next shifter bit in low bit of a
  918. shfbit: ds      1
  919. shfbyt: ds      2
  920.  
  921. nxtsbit: push   bc
  922.         push    hl
  923.         ld      hl,(shfbyt)
  924.         ld      b,(hl)
  925.         ld      hl,shfbit
  926.         ld      a,(hl)
  927.         ld      c,a
  928.         rlca
  929.         ld      (hl),a
  930.         cp      1
  931.         jp      nz,nsb1
  932.         ld      hl,(shfbyt)
  933.         inc     hl
  934.         ld      (shfbyt),hl
  935. nsb1:   ld      a,b
  936.         and     c
  937.         pop     hl
  938.         pop     bc
  939.         ret     z
  940.         ld      a,1
  941.         ret
  942.        
  943.  
  944. ; clear memory at hl, bc bytes
  945. clrmem: push    af
  946.         push    bc
  947.         push    de
  948.         push    hl
  949.         ld      (hl),0
  950.         ld      d,h
  951.         ld      e,l
  952.         inc     de
  953.         dec     bc
  954.         ldir
  955.         pop     hl
  956.         pop     de
  957.         pop     bc
  958.         pop     af
  959.         ret
  960.  
  961. ; initialise counter or shifter
  962. ; de = pointer to work area for counter or shifter
  963. ; hl = pointer to mask
  964. initmask:
  965.         push    de
  966.         ex      de,hl
  967.         ld      bc,20+20
  968.         call    clrmem          ; clear work area
  969.         ex      de,hl
  970.         ld      b,20            ; byte counter
  971.         ld      c,1             ; first bit
  972.         ld      d,0             ; bit counter
  973. imlp:   ld      e,(hl)
  974. imlp1:  ld      a,e
  975.         and     c
  976.         jp      z,imlp2
  977.         inc     d
  978. imlp2:  ld      a,c
  979.         rlca
  980.         ld      c,a
  981.         cp      1
  982.         jp      nz,imlp1
  983.         inc     hl
  984.         dec     b
  985.         jp      nz,imlp
  986. ; got number of 1-bits in mask in reg d
  987.         ld      a,d
  988.         and     0f8h
  989.         rrca
  990.         rrca
  991.         rrca                    ; divide by 8 (get byte offset)
  992.         ld      l,a
  993.         ld      h,0
  994.         ld      a,d
  995.         and     7               ; bit offset
  996.         inc     a
  997.         ld      b,a
  998.         ld      a,080h
  999. imlp3:  rlca
  1000.         dec     b
  1001.         jp      nz,imlp3
  1002.         pop     de
  1003.         add     hl,de
  1004.         ld      de,20
  1005.         add     hl,de
  1006.         ld      (hl),a
  1007.         ret
  1008.  
  1009. ; multi-byte counter
  1010. count:  push    bc
  1011.         push    de
  1012.         push    hl
  1013.         ld      hl,counter      ; 20 byte counter starts here
  1014.         ld      de,20           ; somewhere in here is the stop bit
  1015.         ex      de,hl
  1016.         add     hl,de
  1017.         ex      de,hl
  1018. cntlp:  inc     (hl)
  1019.         ld      a,(hl)
  1020.         cp      0
  1021.         jp      z,cntlp1        ; overflow to next byte
  1022.         ld      b,a
  1023.         ld      a,(de)
  1024.         and     b               ; test for terminal value
  1025.         jp      z,cntend
  1026.         ld      (hl),0          ; reset to zero
  1027. cntend: pop     bc
  1028.         pop     de
  1029.         pop     hl
  1030.         ret
  1031.  
  1032. cntlp1: inc     hl
  1033.         inc     de
  1034.         jp      cntlp
  1035.        
  1036.  
  1037. ; multi-byte shifter
  1038. shift:  push    bc
  1039.         push    de
  1040.         push    hl
  1041.         ld      hl,shifter      ; 20 byte shift register starts here
  1042.         ld      de,20           ; somewhere in here is the stop bit
  1043.         ex      de,hl
  1044.         add     hl,de
  1045.         ex      de,hl
  1046. shflp:  ld      a,(hl)
  1047.         or      a
  1048.         jp      z,shflp1
  1049.         ld      b,a
  1050.         ld      a,(de)
  1051.         and     b
  1052.         jp      nz,shlpe
  1053.         ld      a,b
  1054.         rlca
  1055.         cp      1
  1056.         jp      nz,shflp2
  1057.         ld      (hl),0
  1058.         inc     hl
  1059.         inc     de
  1060. shflp2: ld      (hl),a
  1061.         xor     a               ; set Z
  1062. shlpe:  pop     hl
  1063.         pop     de
  1064.         pop     bc
  1065.         ret
  1066. shflp1: inc     hl
  1067.         inc     de
  1068.         jp      shflp
  1069.  
  1070. counter: ds     2*20
  1071. shifter: ds     2*20
  1072.  
  1073. ; test harness
  1074. test:   push    af
  1075.         push    bc
  1076.         push    de
  1077.         push    hl
  1078.       if        0
  1079.         ld      de,crlf
  1080.         call    pr_de
  1081.         ld      hl,iut
  1082.         ld      b,4
  1083.         call    hexstr
  1084.         ld      e,' '
  1085.         call    pr_e
  1086.         ld      b,16
  1087.         ld      hl,msbt
  1088.         call    hexstr
  1089.       endif    
  1090.         di                      ; disable interrupts
  1091.         ld      (spsav),sp      ; save stack pointer
  1092.         ld      sp,msbt+2       ; point to test-case machine state
  1093.         pop     iy              ; and load all regs
  1094.         pop     ix
  1095.         pop     hl
  1096.         pop     de
  1097.         pop     bc
  1098.         pop     af
  1099.         ld      sp,(spbt)
  1100. iut:    ds      4               ; max 4 byte instruction under test
  1101.         ld      (spat),sp       ; save stack pointer
  1102.         ld      sp,spat
  1103.         push    af              ; save other registers
  1104.         push    bc
  1105.         push    de
  1106.         push    hl
  1107.         push    ix
  1108.         push    iy
  1109.         ld      sp,(spsav)      ; restore stack pointer
  1110.         ei                      ; enable interrupts
  1111.         ld      hl,(msbt)       ; copy memory operand
  1112.         ld      (msat),hl
  1113.         ld      hl,flgsat       ; flags after test
  1114.         ld      a,(hl)
  1115. flgmsk: and     0d7h            ; mask-out irrelevant bits (self-modified code!)
  1116.         ld      (hl),a
  1117.         ld      b,16            ; total of 16 bytes of state
  1118.         ld      de,msat
  1119.         ld      hl,crcval
  1120. tcrc:   ld      a,(de)
  1121.         inc     de
  1122.         call    updcrc          ; accumulate crc of this test case
  1123.         dec     b
  1124.         jp      nz,tcrc
  1125.       if        0
  1126.         ld      e,' '
  1127.         call    pr_e
  1128.         ld      hl,crcval
  1129.         call    phex8
  1130.         ld      de,crlf
  1131.         call    pr_de
  1132.         ld      hl,msat
  1133.         ld      b,16
  1134.         call    hexstr
  1135.         ld      de,crlf
  1136.         call    pr_de
  1137.       endif
  1138.         pop     hl
  1139.         pop     de
  1140.         pop     bc
  1141.         pop     af
  1142.         ret
  1143.  
  1144. ; machine state after test
  1145. msat:   ds      14      ; memop,iy,ix,hl,de,bc,af
  1146. spat:   ds      2       ; stack pointer after test
  1147. ; ZMAC/MAXAM doesn't like ':' after label with EQUs
  1148. flgsat  equ     spat-2  ; flags
  1149.  
  1150. spsav:  ds      2       ; saved stack pointer
  1151.  
  1152. ; display hex string (pointer in hl, byte count in b)
  1153. hexstr: ld      a,(hl)
  1154.         call    phex2
  1155.         inc     hl
  1156.         dec     b
  1157.         jp      nz,hexstr
  1158.         ret
  1159.  
  1160. ; display hex
  1161. ; display the big-endian 32-bit value pointed to by hl
  1162. phex8:  push    af
  1163.         push    bc
  1164.         push    hl
  1165.         ld      b,4
  1166. ph8lp:  ld      a,(hl)
  1167.         call    phex2
  1168.         inc     hl
  1169.         dec     b
  1170.         jp      nz,ph8lp
  1171.         pop     hl
  1172.         pop     bc
  1173.         pop     af
  1174.         ret
  1175.  
  1176. ; display byte in a
  1177. phex2:  push    af
  1178.         rrca
  1179.         rrca
  1180.         rrca
  1181.         rrca
  1182.         call    phex1
  1183.         pop     af
  1184. ; fall through 
  1185.  
  1186. ; display low nibble in a
  1187. phex1:  push    af
  1188.         push    bc
  1189.         push    de
  1190.         push    hl
  1191.         and     0fh
  1192.         cp      10
  1193.         jp      c,ph11
  1194.         add     a,'a'-'9'-1
  1195. ph11:   add     a,'0'
  1196.         ld      e,a
  1197.         call    pr_e
  1198.         pop     hl
  1199.         pop     de
  1200.         pop     bc
  1201.         pop     af
  1202.         ret
  1203.  
  1204. pr_de:
  1205.         push    af
  1206.         push    bc
  1207.         push    de
  1208.         push    hl
  1209.         push    ix
  1210.         push    iy
  1211. .loop
  1212.         ld      a,(de)
  1213.         inc     de
  1214.         cp      '$'
  1215.         jr      z,.exit
  1216.         push    de
  1217.         PRCHAR_
  1218.         pop     de
  1219.         jr      .loop
  1220. .exit:
  1221.         pop     iy
  1222.         pop     ix
  1223.         pop     hl
  1224.         pop     de
  1225.         pop     bc
  1226.         pop     af
  1227.         ret
  1228.  
  1229. pr_e:  
  1230.         push    af
  1231.         push    bc
  1232.         push    de
  1233.         push    hl
  1234.         push    ix
  1235.         push    iy
  1236.  
  1237.         ld      a,e
  1238.         PRCHAR_
  1239.  
  1240.         pop     iy
  1241.         pop     ix
  1242.         pop     hl
  1243.         pop     de
  1244.         pop     bc
  1245.         pop     af
  1246.         ret
  1247.  
  1248. msg1:   db      'Z80all instruction exerciser',13,10,'$'
  1249. msg2:   db      'Tests complete'
  1250. crlf:   db      13,10,'$'
  1251. okmsg:  db      '  OK',13,10,'$'
  1252. ermsg1: db      '  ERROR **** crc expected:$'
  1253. ermsg2: db      ' found:$'
  1254.  
  1255. ; compare crc
  1256. ; hl points to value to compare to crcval
  1257. cmpcrc: push    bc
  1258.         push    de
  1259.         push    hl
  1260.         ld      de,crcval
  1261.         ld      b,4
  1262. cclp:   ld      a,(de)
  1263.         cp      (hl)
  1264.         jp      nz,cce
  1265.         inc     hl
  1266.         inc     de
  1267.         dec     b
  1268.         jp      nz,cclp
  1269. cce:    pop     hl
  1270.         pop     de
  1271.         pop     bc
  1272.         ret
  1273.  
  1274. ; 32-bit crc routine
  1275. ; entry: a contains next byte, hl points to crc
  1276. ; exit:  crc updated
  1277. updcrc: push    af
  1278.         push    bc
  1279.         push    de
  1280.         push    hl
  1281.         push    hl
  1282.         ld      de,3
  1283.         add     hl,de   ; point to low byte of old crc
  1284.         xor     (hl)    ; xor with new byte
  1285.         ld      l,a
  1286.         ld      h,0
  1287.         add     hl,hl   ; use result as index into table of 4 byte entries
  1288.         add     hl,hl
  1289.         ex      de,hl
  1290.         ld      hl,crctab
  1291.         add     hl,de   ; point to selected entry in crctab
  1292.         ex      de,hl
  1293.         pop     hl
  1294.         ld      bc,4    ; c = byte count, b = accumulator
  1295. crclp:  ld      a,(de)
  1296.         xor     b
  1297.         ld      b,(hl)
  1298.         ld      (hl),a
  1299.         inc     de
  1300.         inc     hl
  1301.         dec     c
  1302.         jp      nz,crclp
  1303.       if        0
  1304.         ld      hl,crcval
  1305.         call    phex8
  1306.         ld      de,crlf
  1307.         call    pr_de
  1308.       endif
  1309.         pop     hl
  1310.         pop     de
  1311.         pop     bc
  1312.         pop     af
  1313.         ret
  1314.  
  1315. initcrc:push    af
  1316.         push    bc
  1317.         push    hl
  1318.         ld      hl,crcval
  1319.         ld      a,0ffh
  1320.         ld      b,4
  1321. icrclp: ld      (hl),a
  1322.         inc     hl
  1323.         dec     b
  1324.         jp      nz,icrclp
  1325.         pop     hl
  1326.         pop     bc
  1327.         pop     af
  1328.         ret
  1329.  
  1330. crcval  ds      4
  1331.  
  1332. crctab: db      000h,000h,000h,000h
  1333.         db      077h,007h,030h,096h
  1334.         db      0eeh,00eh,061h,02ch
  1335.         db      099h,009h,051h,0bah
  1336.         db      007h,06dh,0c4h,019h
  1337.         db      070h,06ah,0f4h,08fh
  1338.         db      0e9h,063h,0a5h,035h
  1339.         db      09eh,064h,095h,0a3h
  1340.         db      00eh,0dbh,088h,032h
  1341.         db      079h,0dch,0b8h,0a4h
  1342.         db      0e0h,0d5h,0e9h,01eh
  1343.         db      097h,0d2h,0d9h,088h
  1344.         db      009h,0b6h,04ch,02bh
  1345.         db      07eh,0b1h,07ch,0bdh
  1346.         db      0e7h,0b8h,02dh,007h
  1347.         db      090h,0bfh,01dh,091h
  1348.         db      01dh,0b7h,010h,064h
  1349.         db      06ah,0b0h,020h,0f2h
  1350.         db      0f3h,0b9h,071h,048h
  1351.         db      084h,0beh,041h,0deh
  1352.         db      01ah,0dah,0d4h,07dh
  1353.         db      06dh,0ddh,0e4h,0ebh
  1354.         db      0f4h,0d4h,0b5h,051h
  1355.         db      083h,0d3h,085h,0c7h
  1356.         db      013h,06ch,098h,056h
  1357.         db      064h,06bh,0a8h,0c0h
  1358.         db      0fdh,062h,0f9h,07ah
  1359.         db      08ah,065h,0c9h,0ech
  1360.         db      014h,001h,05ch,04fh
  1361.         db      063h,006h,06ch,0d9h
  1362.         db      0fah,00fh,03dh,063h
  1363.         db      08dh,008h,00dh,0f5h
  1364.         db      03bh,06eh,020h,0c8h
  1365.         db      04ch,069h,010h,05eh
  1366.         db      0d5h,060h,041h,0e4h
  1367.         db      0a2h,067h,071h,072h
  1368.         db      03ch,003h,0e4h,0d1h
  1369.         db      04bh,004h,0d4h,047h
  1370.         db      0d2h,00dh,085h,0fdh
  1371.         db      0a5h,00ah,0b5h,06bh
  1372.         db      035h,0b5h,0a8h,0fah
  1373.         db      042h,0b2h,098h,06ch
  1374.         db      0dbh,0bbh,0c9h,0d6h
  1375.         db      0ach,0bch,0f9h,040h
  1376.         db      032h,0d8h,06ch,0e3h
  1377.         db      045h,0dfh,05ch,075h
  1378.         db      0dch,0d6h,00dh,0cfh
  1379.         db      0abh,0d1h,03dh,059h
  1380.         db      026h,0d9h,030h,0ach
  1381.         db      051h,0deh,000h,03ah
  1382.         db      0c8h,0d7h,051h,080h
  1383.         db      0bfh,0d0h,061h,016h
  1384.         db      021h,0b4h,0f4h,0b5h
  1385.         db      056h,0b3h,0c4h,023h
  1386.         db      0cfh,0bah,095h,099h
  1387.         db      0b8h,0bdh,0a5h,00fh
  1388.         db      028h,002h,0b8h,09eh
  1389.         db      05fh,005h,088h,008h
  1390.         db      0c6h,00ch,0d9h,0b2h
  1391.         db      0b1h,00bh,0e9h,024h
  1392.         db      02fh,06fh,07ch,087h
  1393.         db      058h,068h,04ch,011h
  1394.         db      0c1h,061h,01dh,0abh
  1395.         db      0b6h,066h,02dh,03dh
  1396.         db      076h,0dch,041h,090h
  1397.         db      001h,0dbh,071h,006h
  1398.         db      098h,0d2h,020h,0bch
  1399.         db      0efh,0d5h,010h,02ah
  1400.         db      071h,0b1h,085h,089h
  1401.         db      006h,0b6h,0b5h,01fh
  1402.         db      09fh,0bfh,0e4h,0a5h
  1403.         db      0e8h,0b8h,0d4h,033h
  1404.         db      078h,007h,0c9h,0a2h
  1405.         db      00fh,000h,0f9h,034h
  1406.         db      096h,009h,0a8h,08eh
  1407.         db      0e1h,00eh,098h,018h
  1408.         db      07fh,06ah,00dh,0bbh
  1409.         db      008h,06dh,03dh,02dh
  1410.         db      091h,064h,06ch,097h
  1411.         db      0e6h,063h,05ch,001h
  1412.         db      06bh,06bh,051h,0f4h
  1413.         db      01ch,06ch,061h,062h
  1414.         db      085h,065h,030h,0d8h
  1415.         db      0f2h,062h,000h,04eh
  1416.         db      06ch,006h,095h,0edh
  1417.         db      01bh,001h,0a5h,07bh
  1418.         db      082h,008h,0f4h,0c1h
  1419.         db      0f5h,00fh,0c4h,057h
  1420.         db      065h,0b0h,0d9h,0c6h
  1421.         db      012h,0b7h,0e9h,050h
  1422.         db      08bh,0beh,0b8h,0eah
  1423.         db      0fch,0b9h,088h,07ch
  1424.         db      062h,0ddh,01dh,0dfh
  1425.         db      015h,0dah,02dh,049h
  1426.         db      08ch,0d3h,07ch,0f3h
  1427.         db      0fbh,0d4h,04ch,065h
  1428.         db      04dh,0b2h,061h,058h
  1429.         db      03ah,0b5h,051h,0ceh
  1430.         db      0a3h,0bch,000h,074h
  1431.         db      0d4h,0bbh,030h,0e2h
  1432.         db      04ah,0dfh,0a5h,041h
  1433.         db      03dh,0d8h,095h,0d7h
  1434.         db      0a4h,0d1h,0c4h,06dh
  1435.         db      0d3h,0d6h,0f4h,0fbh
  1436.         db      043h,069h,0e9h,06ah
  1437.         db      034h,06eh,0d9h,0fch
  1438.         db      0adh,067h,088h,046h
  1439.         db      0dah,060h,0b8h,0d0h
  1440.         db      044h,004h,02dh,073h
  1441.         db      033h,003h,01dh,0e5h
  1442.         db      0aah,00ah,04ch,05fh
  1443.         db      0ddh,00dh,07ch,0c9h
  1444.         db      050h,005h,071h,03ch
  1445.         db      027h,002h,041h,0aah
  1446.         db      0beh,00bh,010h,010h
  1447.         db      0c9h,00ch,020h,086h
  1448.         db      057h,068h,0b5h,025h
  1449.         db      020h,06fh,085h,0b3h
  1450.         db      0b9h,066h,0d4h,009h
  1451.         db      0ceh,061h,0e4h,09fh
  1452.         db      05eh,0deh,0f9h,00eh
  1453.         db      029h,0d9h,0c9h,098h
  1454.         db      0b0h,0d0h,098h,022h
  1455.         db      0c7h,0d7h,0a8h,0b4h
  1456.         db      059h,0b3h,03dh,017h
  1457.         db      02eh,0b4h,00dh,081h
  1458.         db      0b7h,0bdh,05ch,03bh
  1459.         db      0c0h,0bah,06ch,0adh
  1460.         db      0edh,0b8h,083h,020h
  1461.         db      09ah,0bfh,0b3h,0b6h
  1462.         db      003h,0b6h,0e2h,00ch
  1463.         db      074h,0b1h,0d2h,09ah
  1464.         db      0eah,0d5h,047h,039h
  1465.         db      09dh,0d2h,077h,0afh
  1466.         db      004h,0dbh,026h,015h
  1467.         db      073h,0dch,016h,083h
  1468.         db      0e3h,063h,00bh,012h
  1469.         db      094h,064h,03bh,084h
  1470.         db      00dh,06dh,06ah,03eh
  1471.         db      07ah,06ah,05ah,0a8h
  1472.         db      0e4h,00eh,0cfh,00bh
  1473.         db      093h,009h,0ffh,09dh
  1474.         db      00ah,000h,0aeh,027h
  1475.         db      07dh,007h,09eh,0b1h
  1476.         db      0f0h,00fh,093h,044h
  1477.         db      087h,008h,0a3h,0d2h
  1478.         db      01eh,001h,0f2h,068h
  1479.         db      069h,006h,0c2h,0feh
  1480.         db      0f7h,062h,057h,05dh
  1481.         db      080h,065h,067h,0cbh
  1482.         db      019h,06ch,036h,071h
  1483.         db      06eh,06bh,006h,0e7h
  1484.         db      0feh,0d4h,01bh,076h
  1485.         db      089h,0d3h,02bh,0e0h
  1486.         db      010h,0dah,07ah,05ah
  1487.         db      067h,0ddh,04ah,0cch
  1488.         db      0f9h,0b9h,0dfh,06fh
  1489.         db      08eh,0beh,0efh,0f9h
  1490.         db      017h,0b7h,0beh,043h
  1491.         db      060h,0b0h,08eh,0d5h
  1492.         db      0d6h,0d6h,0a3h,0e8h
  1493.         db      0a1h,0d1h,093h,07eh
  1494.         db      038h,0d8h,0c2h,0c4h
  1495.         db      04fh,0dfh,0f2h,052h
  1496.         db      0d1h,0bbh,067h,0f1h
  1497.         db      0a6h,0bch,057h,067h
  1498.         db      03fh,0b5h,006h,0ddh
  1499.         db      048h,0b2h,036h,04bh
  1500.         db      0d8h,00dh,02bh,0dah
  1501.         db      0afh,00ah,01bh,04ch
  1502.         db      036h,003h,04ah,0f6h
  1503.         db      041h,004h,07ah,060h
  1504.         db      0dfh,060h,0efh,0c3h
  1505.         db      0a8h,067h,0dfh,055h
  1506.         db      031h,06eh,08eh,0efh
  1507.         db      046h,069h,0beh,079h
  1508.         db      0cbh,061h,0b3h,08ch
  1509.         db      0bch,066h,083h,01ah
  1510.         db      025h,06fh,0d2h,0a0h
  1511.         db      052h,068h,0e2h,036h
  1512.         db      0cch,00ch,077h,095h
  1513.         db      0bbh,00bh,047h,003h
  1514.         db      022h,002h,016h,0b9h
  1515.         db      055h,005h,026h,02fh
  1516.         db      0c5h,0bah,03bh,0beh
  1517.         db      0b2h,0bdh,00bh,028h
  1518.         db      02bh,0b4h,05ah,092h
  1519.         db      05ch,0b3h,06ah,004h
  1520.         db      0c2h,0d7h,0ffh,0a7h
  1521.         db      0b5h,0d0h,0cfh,031h
  1522.         db      02ch,0d9h,09eh,08bh
  1523.         db      05bh,0deh,0aeh,01dh
  1524.         db      09bh,064h,0c2h,0b0h
  1525.         db      0ech,063h,0f2h,026h
  1526.         db      075h,06ah,0a3h,09ch
  1527.         db      002h,06dh,093h,00ah
  1528.         db      09ch,009h,006h,0a9h
  1529.         db      0ebh,00eh,036h,03fh
  1530.         db      072h,007h,067h,085h
  1531.         db      005h,000h,057h,013h
  1532.         db      095h,0bfh,04ah,082h
  1533.         db      0e2h,0b8h,07ah,014h
  1534.         db      07bh,0b1h,02bh,0aeh
  1535.         db      00ch,0b6h,01bh,038h
  1536.         db      092h,0d2h,08eh,09bh
  1537.         db      0e5h,0d5h,0beh,00dh
  1538.         db      07ch,0dch,0efh,0b7h
  1539.         db      00bh,0dbh,0dfh,021h
  1540.         db      086h,0d3h,0d2h,0d4h
  1541.         db      0f1h,0d4h,0e2h,042h
  1542.         db      068h,0ddh,0b3h,0f8h
  1543.         db      01fh,0dah,083h,06eh
  1544.         db      081h,0beh,016h,0cdh
  1545.         db      0f6h,0b9h,026h,05bh
  1546.         db      06fh,0b0h,077h,0e1h
  1547.         db      018h,0b7h,047h,077h
  1548.         db      088h,008h,05ah,0e6h
  1549.         db      0ffh,00fh,06ah,070h
  1550.         db      066h,006h,03bh,0cah
  1551.         db      011h,001h,00bh,05ch
  1552.         db      08fh,065h,09eh,0ffh
  1553.         db      0f8h,062h,0aeh,069h
  1554.         db      061h,06bh,0ffh,0d3h
  1555.         db      016h,06ch,0cfh,045h
  1556.         db      0a0h,00ah,0e2h,078h
  1557.         db      0d7h,00dh,0d2h,0eeh
  1558.         db      04eh,004h,083h,054h
  1559.         db      039h,003h,0b3h,0c2h
  1560.         db      0a7h,067h,026h,061h
  1561.         db      0d0h,060h,016h,0f7h
  1562.         db      049h,069h,047h,04dh
  1563.         db      03eh,06eh,077h,0dbh
  1564.         db      0aeh,0d1h,06ah,04ah
  1565.         db      0d9h,0d6h,05ah,0dch
  1566.         db      040h,0dfh,00bh,066h
  1567.         db      037h,0d8h,03bh,0f0h
  1568.         db      0a9h,0bch,0aeh,053h
  1569.         db      0deh,0bbh,09eh,0c5h
  1570.         db      047h,0b2h,0cfh,07fh
  1571.         db      030h,0b5h,0ffh,0e9h
  1572.         db      0bdh,0bdh,0f2h,01ch
  1573.         db      0cah,0bah,0c2h,08ah
  1574.         db      053h,0b3h,093h,030h
  1575.         db      024h,0b4h,0a3h,0a6h
  1576.         db      0bah,0d0h,036h,005h
  1577.         db      0cdh,0d7h,006h,093h
  1578.         db      054h,0deh,057h,029h
  1579.         db      023h,0d9h,067h,0bfh
  1580.         db      0b3h,066h,07ah,02eh
  1581.         db      0c4h,061h,04ah,0b8h
  1582.         db      05dh,068h,01bh,002h
  1583.         db      02ah,06fh,02bh,094h
  1584.         db      0b4h,00bh,0beh,037h
  1585.         db      0c3h,00ch,08eh,0a1h
  1586.         db      05ah,005h,0dfh,01bh
  1587.         db      02dh,002h,0efh,08dh
  1588.  
  1589.         include "../_sdk/stdio.asm"
  1590.  
  1591. cmd_end
  1592.  
  1593.         display "Size ",/d,cmd_end-cmd_begin," bytes"
  1594.  
  1595.         IFNDEF  OUTFNAME
  1596.         define  OUTFNAME "zexall.com"
  1597.         ENDIF
  1598.         savebin OUTFNAME,cmd_begin,cmd_end-cmd_begin
  1599.  
  1600.