Subversion Repositories NedoOS

Rev

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

  1. ;       title   'Z80 instruction set exerciser'
  2.  
  3. ; zexdoc.src - Z80 documented 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
  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      0c7h            ; 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      0f8h,0b4h,0eah,0a9h                     ; 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      0c7h            ; 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      089h,0fdh,0b6h,035h                     ; expected crc
  226.         tmsg    'add hl,<bc,de,hl,sp>..........'
  227.  
  228. ; add ix,<bc,de,ix,sp> (19,456 cycles)
  229. add16x: db      0c7h            ; 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      0c1h,033h,079h,00bh                     ; expected crc
  234.         tmsg    'add ix,<bc,de,ix,sp>..........'
  235.  
  236. ; add iy,<bc,de,iy,sp> (19,456 cycles)
  237. add16y: db      0c7h            ; 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      0e8h,081h,07bh,09eh                     ; expected crc
  242.         tmsg    'add iy,<bc,de,iy,sp>..........'
  243.  
  244. ; aluop a,nn (28,672 cycles)
  245. alu8i:  db      0d7h            ; 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      048h,079h,093h,060h                     ; 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      0d7h            ; 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      0feh,043h,0b0h,016h                     ; 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      0d7h            ; 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      0a4h,002h,06dh,05ah                     ; expected crc
  266.         tmsg    'aluop a,<ixh,ixl,iyh,iyl>.....'
  267.  
  268. ; aluop a,(<ix,iy>+1) (229,376 cycles)
  269. alu8x:  db      0d7h            ; 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      0e8h,049h,067h,06eh                     ; expected crc
  274.         tmsg    'aluop a,(<ix,iy>+1)...........'
  275.  
  276. ; bit n,(<ix,iy>+1) (2048 cycles)
  277. bitx:   db      053h            ; 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      0a8h,0eeh,008h,067h                     ; 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      053h            ; 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      07bh,055h,0e6h,0c8h                     ; expected crc
  290.         tmsg    'bit n,<b,c,d,e,h,l,(hl),a>....'
  291.  
  292. ; cpd<r> (1) (6144 cycles)
  293. cpd1:   db      0d7h            ; 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      0a8h,07eh,06ch,0fah                     ; expected crc
  298.         tmsg    'cpd<r>........................'
  299.  
  300. ; cpi<r> (1) (6144 cycles)
  301. cpi1:   db      0d7h            ; 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      006h,0deh,0b3h,056h                     ; expected crc
  306.         tmsg    'cpi<r>........................'
  307.  
  308. ; <daa,cpl,scf,ccf>
  309. daaop:  db      0d7h            ; 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      09bh,04bh,0a6h,075h                     ; expected crc
  314.         tmsg    '<daa,cpl,scf,ccf>.............'
  315.  
  316. ; <inc,dec> a (3072 cycles)
  317. inca:   db      0d7h            ; 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      0d1h,088h,015h,0a4h                     ; expected crc
  322.         tmsg    '<inc,dec> a...................'
  323.  
  324. ; <inc,dec> b (3072 cycles)
  325. incb:   db      0d7h            ; 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      05fh,068h,022h,064h                     ; expected crc
  330.         tmsg    '<inc,dec> b...................'
  331.  
  332. ; <inc,dec> bc (1536 cycles)
  333. incbc:  db      0d7h            ; 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      0d7h            ; 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      0c2h,084h,055h,04ch                     ; expected crc
  346.         tmsg    '<inc,dec> c...................'
  347.  
  348. ; <inc,dec> d (3072 cycles)
  349. incd:   db      0d7h            ; 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      045h,023h,0deh,010h                     ; expected crc
  354.         tmsg    '<inc,dec> d...................'
  355.  
  356. ; <inc,dec> de (1536 cycles)
  357. incde:  db      0d7h            ; 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      0d7h            ; 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      0e1h,075h,0afh,0cch                     ; expected crc
  370.         tmsg    '<inc,dec> e...................'
  371.  
  372. ; <inc,dec> h (3072 cycles)
  373. inch:   db      0d7h            ; 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      01ch,0edh,084h,07dh                     ; expected crc
  378.         tmsg    '<inc,dec> h...................'
  379.  
  380. ; <inc,dec> hl (1536 cycles)
  381. inchl:  db      0d7h            ; 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      0d7h            ; 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      0d7h            ; 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      0d7h            ; 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      056h,0cdh,006h,0f3h                     ; expected crc
  410.         tmsg    '<inc,dec> l...................'
  411.  
  412. ; <inc,dec> (hl) (3072 cycles)
  413. incm:   db      0d7h            ; 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      0b8h,03ah,0dch,0efh                     ; expected crc
  418.         tmsg    '<inc,dec> (hl)................'
  419.  
  420. ; <inc,dec> sp (1536 cycles)
  421. incsp:  db      0d7h            ; 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      0d7h            ; 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      020h,058h,014h,070h                     ; expected crc
  434.         tmsg    '<inc,dec> (<ix,iy>+1).........'
  435.  
  436. ; <inc,dec> ixh (3072 cycles)
  437. incxh:  db      0d7h            ; 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      0d7h            ; 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      0d7h            ; 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      0d7h            ; 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      0fbh,0cbh,0bah,095h                     ; expected crc
  466.         tmsg    '<inc,dec> iyl.................'
  467.  
  468. ; ld <bc,de>,(nnnn) (32 cycles)
  469. ld161:  db      0d7h            ; 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      0d7h            ; 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      0d7h            ; 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      0d7h            ; 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      0d7h            ; 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      0d7h            ; 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      0d7h            ; 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      0d7h            ; 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      0d7h            ; 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      0d7h            ; 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      0d7h            ; 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      0d7h            ; 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      0d7h            ; 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      0d7h            ; 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      0d7h            ; 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      0d7h            ; 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      0d7h            ; 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      0d7h            ; 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      0d7h            ; 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      0d7h            ; 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      0d7h            ; 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      0d7h            ; 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      05ah,090h,07eh,0d4h                     ; expected crc
  642.         tmsg    'ldd<r> (2)....................'
  643.  
  644. ; ldi<r> (1) (44 cycles)
  645. ldi1:   db      0d7h            ; 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      09ah,0bdh,0f6h,0b5h                     ; expected crc
  650.         tmsg    'ldi<r> (1)....................'
  651.  
  652. ; ldi<r> (2) (44 cycles)
  653. ldi2:   db      0d7h            ; 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      0ebh,059h,089h,01bh                     ; expected crc
  658.         tmsg    'ldi<r> (2)....................'
  659.  
  660. ; neg (16,384 cycles)
  661. negop:  db      0d7h            ; 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      06ah,03ch,03bh,0bdh                     ; expected crc
  666.         tmsg    'neg...........................'
  667.  
  668. ; <rld,rrd> (7168 cycles)
  669. rldop:  db      0d7h            ; 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      095h,05bh,0a3h,026h                     ; expected crc
  674.         tmsg    '<rrd,rld>.....................'
  675.  
  676. ; <rlca,rrca,rla,rra> (6144 cycles)
  677. rot8080: db     0d7h            ; 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      025h,013h,030h,0aeh                     ; expected crc
  682.         tmsg    '<rlca,rrca,rla,rra>...........'
  683.  
  684. ; shift/rotate (<ix,iy>+1) (416 cycles)
  685. rotxy:  db      0d7h            ; 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,03ah,0cdh,081h                     ; 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      0d7h            ; 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      0ebh,060h,04dh,058h                     ; 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      0d7h            ; 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      0d7h            ; 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      0d7h            ; 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      0d7h            ; 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      0d7h            ; 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      0d7h            ; 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.         ds      6
  1075. test:   push    af
  1076.         push    bc
  1077.         push    de
  1078.         push    hl
  1079.       if        0
  1080.         ld      de,crlf
  1081.         call    pr_de
  1082.         ld      hl,iut
  1083.         ld      b,4
  1084.         call    hexstr
  1085.         ld      e,' '
  1086.         call    pr_e
  1087.         ld      b,16
  1088.         ld      hl,msbt
  1089.         call    hexstr
  1090.       endif    
  1091.         di                      ; disable interrupts
  1092.         ld      (spsav),sp      ; save stack pointer
  1093.         ld      sp,msbt+2       ; point to test-case machine state
  1094.         pop     iy              ; and load all regs
  1095.         pop     ix
  1096.         pop     hl
  1097.         pop     de
  1098.         pop     bc
  1099.         pop     af
  1100.         ld      sp,(spbt)
  1101. iut:    ds      4               ; max 4 byte instruction under test
  1102.         ld      (spat),sp       ; save stack pointer
  1103.         ld      sp,spat
  1104.         push    af              ; save other registers
  1105.         push    bc
  1106.         push    de
  1107.         push    hl
  1108.         push    ix
  1109.         push    iy
  1110.         ld      sp,(spsav)      ; restore stack pointer
  1111.         ei                      ; enable interrupts
  1112.         ld      hl,(msbt)       ; copy memory operand
  1113.         ld      (msat),hl
  1114.         ld      hl,flgsat       ; flags after test
  1115.         ld      a,(hl)
  1116. flgmsk: and     0d7h            ; mask-out irrelevant bits (self-modified code!)
  1117.         ld      (hl),a
  1118.         ld      b,16            ; total of 16 bytes of state
  1119.         ld      de,msat
  1120.         ld      hl,crcval
  1121. tcrc:   ld      a,(de)
  1122.         inc     de
  1123.         call    updcrc          ; accumulate crc of this test case
  1124.         dec     b
  1125.         jp      nz,tcrc
  1126.       if        0
  1127.         ld      e,' '
  1128.         call    pr_e
  1129.         ld      hl,crcval
  1130.         call    phex8
  1131.         ld      de,crlf
  1132.         call    pr_de
  1133.         ld      hl,msat
  1134.         ld      b,16
  1135.         call    hexstr
  1136.         ld      de,crlf
  1137.         call    pr_de
  1138.       endif
  1139.         pop     hl
  1140.         pop     de
  1141.         pop     bc
  1142.         pop     af
  1143.         ret
  1144.  
  1145. ; machine state after test
  1146. msat:   ds      14      ; memop,iy,ix,hl,de,bc,af
  1147. spat:   ds      2       ; stack pointer after test
  1148. ; ZMAC/MAXAM doesn't like ':' after label with EQUs
  1149. flgsat  equ     spat-2  ; flags
  1150.  
  1151. spsav:  ds      2       ; saved stack pointer
  1152.  
  1153. ; display hex string (pointer in hl, byte count in b)
  1154. hexstr: ld      a,(hl)
  1155.         call    phex2
  1156.         inc     hl
  1157.         dec     b
  1158.         jp      nz,hexstr
  1159.         ret
  1160.  
  1161. ; display hex
  1162. ; display the big-endian 32-bit value pointed to by hl
  1163. phex8:  push    af
  1164.         push    bc
  1165.         push    hl
  1166.         ld      b,4
  1167. ph8lp:  ld      a,(hl)
  1168.         call    phex2
  1169.         inc     hl
  1170.         dec     b
  1171.         jp      nz,ph8lp
  1172.         pop     hl
  1173.         pop     bc
  1174.         pop     af
  1175.         ret
  1176.  
  1177. ; display byte in a
  1178. phex2:  push    af
  1179.         rrca
  1180.         rrca
  1181.         rrca
  1182.         rrca
  1183.         call    phex1
  1184.         pop     af
  1185. ; fall through 
  1186.  
  1187. ; display low nibble in a
  1188. phex1:  push    af
  1189.         push    bc
  1190.         push    de
  1191.         push    hl
  1192.         and     0fh
  1193.         cp      10
  1194.         jp      c,ph11
  1195.         add     a,'a'-'9'-1
  1196. ph11:   add     a,'0'
  1197.         ld      e,a
  1198.         call    pr_e
  1199.         pop     hl
  1200.         pop     de
  1201.         pop     bc
  1202.         pop     af
  1203.         ret
  1204.  
  1205. pr_de:
  1206.         push    af
  1207.         push    bc
  1208.         push    de
  1209.         push    hl
  1210.         push    ix
  1211.         push    iy
  1212. .loop
  1213.         ld      a,(de)
  1214.         inc     de
  1215.         cp      '$'
  1216.         jr      z,.exit
  1217.         push    de
  1218.         PRCHAR_
  1219.         pop     de
  1220.         jr      .loop
  1221. .exit:
  1222.         pop     iy
  1223.         pop     ix
  1224.         pop     hl
  1225.         pop     de
  1226.         pop     bc
  1227.         pop     af
  1228.         ret
  1229.  
  1230. pr_e:  
  1231.         push    af
  1232.         push    bc
  1233.         push    de
  1234.         push    hl
  1235.         push    ix
  1236.         push    iy
  1237.  
  1238.         ld      a,e
  1239.         PRCHAR_
  1240.  
  1241.         pop     iy
  1242.         pop     ix
  1243.         pop     hl
  1244.         pop     de
  1245.         pop     bc
  1246.         pop     af
  1247.         ret
  1248.  
  1249. msg1:   db      'Z80doc instruction exerciser',13,10,'$'
  1250. msg2:   db      'Tests complete'
  1251. crlf:   db      13,10,'$'
  1252. okmsg:  db      '  OK',13,10,'$'
  1253. ermsg1: db      '  ERROR **** crc expected:$'
  1254. ermsg2: db      ' found:$'
  1255.  
  1256. ; compare crc
  1257. ; hl points to value to compare to crcval
  1258. cmpcrc: push    bc
  1259.         push    de
  1260.         push    hl
  1261.         ld      de,crcval
  1262.         ld      b,4
  1263. cclp:   ld      a,(de)
  1264.         cp      (hl)
  1265.         jp      nz,cce
  1266.         inc     hl
  1267.         inc     de
  1268.         dec     b
  1269.         jp      nz,cclp
  1270. cce:    pop     hl
  1271.         pop     de
  1272.         pop     bc
  1273.         ret
  1274.  
  1275. ; 32-bit crc routine
  1276. ; entry: a contains next byte, hl points to crc
  1277. ; exit:  crc updated
  1278. updcrc: push    af
  1279.         push    bc
  1280.         push    de
  1281.         push    hl
  1282.         push    hl
  1283.         ld      de,3
  1284.         add     hl,de   ; point to low byte of old crc
  1285.         xor     (hl)    ; xor with new byte
  1286.         ld      l,a
  1287.         ld      h,0
  1288.         add     hl,hl   ; use result as index into table of 4 byte entries
  1289.         add     hl,hl
  1290.         ex      de,hl
  1291.         ld      hl,crctab
  1292.         add     hl,de   ; point to selected entry in crctab
  1293.         ex      de,hl
  1294.         pop     hl
  1295.         ld      bc,4    ; c = byte count, b = accumulator
  1296. crclp:  ld      a,(de)
  1297.         xor     b
  1298.         ld      b,(hl)
  1299.         ld      (hl),a
  1300.         inc     de
  1301.         inc     hl
  1302.         dec     c
  1303.         jp      nz,crclp
  1304.       if        0
  1305.         ld      hl,crcval
  1306.         call    phex8
  1307.         ld      de,crlf
  1308.         call    pr_de
  1309.       endif
  1310.         pop     hl
  1311.         pop     de
  1312.         pop     bc
  1313.         pop     af
  1314.         ret
  1315.  
  1316. initcrc:push    af
  1317.         push    bc
  1318.         push    hl
  1319.         ld      hl,crcval
  1320.         ld      a,0ffh
  1321.         ld      b,4
  1322. icrclp: ld      (hl),a
  1323.         inc     hl
  1324.         dec     b
  1325.         jp      nz,icrclp
  1326.         pop     hl
  1327.         pop     bc
  1328.         pop     af
  1329.         ret
  1330.  
  1331. crcval  ds      4
  1332.  
  1333. crctab: db      000h,000h,000h,000h
  1334.         db      077h,007h,030h,096h
  1335.         db      0eeh,00eh,061h,02ch
  1336.         db      099h,009h,051h,0bah
  1337.         db      007h,06dh,0c4h,019h
  1338.         db      070h,06ah,0f4h,08fh
  1339.         db      0e9h,063h,0a5h,035h
  1340.         db      09eh,064h,095h,0a3h
  1341.         db      00eh,0dbh,088h,032h
  1342.         db      079h,0dch,0b8h,0a4h
  1343.         db      0e0h,0d5h,0e9h,01eh
  1344.         db      097h,0d2h,0d9h,088h
  1345.         db      009h,0b6h,04ch,02bh
  1346.         db      07eh,0b1h,07ch,0bdh
  1347.         db      0e7h,0b8h,02dh,007h
  1348.         db      090h,0bfh,01dh,091h
  1349.         db      01dh,0b7h,010h,064h
  1350.         db      06ah,0b0h,020h,0f2h
  1351.         db      0f3h,0b9h,071h,048h
  1352.         db      084h,0beh,041h,0deh
  1353.         db      01ah,0dah,0d4h,07dh
  1354.         db      06dh,0ddh,0e4h,0ebh
  1355.         db      0f4h,0d4h,0b5h,051h
  1356.         db      083h,0d3h,085h,0c7h
  1357.         db      013h,06ch,098h,056h
  1358.         db      064h,06bh,0a8h,0c0h
  1359.         db      0fdh,062h,0f9h,07ah
  1360.         db      08ah,065h,0c9h,0ech
  1361.         db      014h,001h,05ch,04fh
  1362.         db      063h,006h,06ch,0d9h
  1363.         db      0fah,00fh,03dh,063h
  1364.         db      08dh,008h,00dh,0f5h
  1365.         db      03bh,06eh,020h,0c8h
  1366.         db      04ch,069h,010h,05eh
  1367.         db      0d5h,060h,041h,0e4h
  1368.         db      0a2h,067h,071h,072h
  1369.         db      03ch,003h,0e4h,0d1h
  1370.         db      04bh,004h,0d4h,047h
  1371.         db      0d2h,00dh,085h,0fdh
  1372.         db      0a5h,00ah,0b5h,06bh
  1373.         db      035h,0b5h,0a8h,0fah
  1374.         db      042h,0b2h,098h,06ch
  1375.         db      0dbh,0bbh,0c9h,0d6h
  1376.         db      0ach,0bch,0f9h,040h
  1377.         db      032h,0d8h,06ch,0e3h
  1378.         db      045h,0dfh,05ch,075h
  1379.         db      0dch,0d6h,00dh,0cfh
  1380.         db      0abh,0d1h,03dh,059h
  1381.         db      026h,0d9h,030h,0ach
  1382.         db      051h,0deh,000h,03ah
  1383.         db      0c8h,0d7h,051h,080h
  1384.         db      0bfh,0d0h,061h,016h
  1385.         db      021h,0b4h,0f4h,0b5h
  1386.         db      056h,0b3h,0c4h,023h
  1387.         db      0cfh,0bah,095h,099h
  1388.         db      0b8h,0bdh,0a5h,00fh
  1389.         db      028h,002h,0b8h,09eh
  1390.         db      05fh,005h,088h,008h
  1391.         db      0c6h,00ch,0d9h,0b2h
  1392.         db      0b1h,00bh,0e9h,024h
  1393.         db      02fh,06fh,07ch,087h
  1394.         db      058h,068h,04ch,011h
  1395.         db      0c1h,061h,01dh,0abh
  1396.         db      0b6h,066h,02dh,03dh
  1397.         db      076h,0dch,041h,090h
  1398.         db      001h,0dbh,071h,006h
  1399.         db      098h,0d2h,020h,0bch
  1400.         db      0efh,0d5h,010h,02ah
  1401.         db      071h,0b1h,085h,089h
  1402.         db      006h,0b6h,0b5h,01fh
  1403.         db      09fh,0bfh,0e4h,0a5h
  1404.         db      0e8h,0b8h,0d4h,033h
  1405.         db      078h,007h,0c9h,0a2h
  1406.         db      00fh,000h,0f9h,034h
  1407.         db      096h,009h,0a8h,08eh
  1408.         db      0e1h,00eh,098h,018h
  1409.         db      07fh,06ah,00dh,0bbh
  1410.         db      008h,06dh,03dh,02dh
  1411.         db      091h,064h,06ch,097h
  1412.         db      0e6h,063h,05ch,001h
  1413.         db      06bh,06bh,051h,0f4h
  1414.         db      01ch,06ch,061h,062h
  1415.         db      085h,065h,030h,0d8h
  1416.         db      0f2h,062h,000h,04eh
  1417.         db      06ch,006h,095h,0edh
  1418.         db      01bh,001h,0a5h,07bh
  1419.         db      082h,008h,0f4h,0c1h
  1420.         db      0f5h,00fh,0c4h,057h
  1421.         db      065h,0b0h,0d9h,0c6h
  1422.         db      012h,0b7h,0e9h,050h
  1423.         db      08bh,0beh,0b8h,0eah
  1424.         db      0fch,0b9h,088h,07ch
  1425.         db      062h,0ddh,01dh,0dfh
  1426.         db      015h,0dah,02dh,049h
  1427.         db      08ch,0d3h,07ch,0f3h
  1428.         db      0fbh,0d4h,04ch,065h
  1429.         db      04dh,0b2h,061h,058h
  1430.         db      03ah,0b5h,051h,0ceh
  1431.         db      0a3h,0bch,000h,074h
  1432.         db      0d4h,0bbh,030h,0e2h
  1433.         db      04ah,0dfh,0a5h,041h
  1434.         db      03dh,0d8h,095h,0d7h
  1435.         db      0a4h,0d1h,0c4h,06dh
  1436.         db      0d3h,0d6h,0f4h,0fbh
  1437.         db      043h,069h,0e9h,06ah
  1438.         db      034h,06eh,0d9h,0fch
  1439.         db      0adh,067h,088h,046h
  1440.         db      0dah,060h,0b8h,0d0h
  1441.         db      044h,004h,02dh,073h
  1442.         db      033h,003h,01dh,0e5h
  1443.         db      0aah,00ah,04ch,05fh
  1444.         db      0ddh,00dh,07ch,0c9h
  1445.         db      050h,005h,071h,03ch
  1446.         db      027h,002h,041h,0aah
  1447.         db      0beh,00bh,010h,010h
  1448.         db      0c9h,00ch,020h,086h
  1449.         db      057h,068h,0b5h,025h
  1450.         db      020h,06fh,085h,0b3h
  1451.         db      0b9h,066h,0d4h,009h
  1452.         db      0ceh,061h,0e4h,09fh
  1453.         db      05eh,0deh,0f9h,00eh
  1454.         db      029h,0d9h,0c9h,098h
  1455.         db      0b0h,0d0h,098h,022h
  1456.         db      0c7h,0d7h,0a8h,0b4h
  1457.         db      059h,0b3h,03dh,017h
  1458.         db      02eh,0b4h,00dh,081h
  1459.         db      0b7h,0bdh,05ch,03bh
  1460.         db      0c0h,0bah,06ch,0adh
  1461.         db      0edh,0b8h,083h,020h
  1462.         db      09ah,0bfh,0b3h,0b6h
  1463.         db      003h,0b6h,0e2h,00ch
  1464.         db      074h,0b1h,0d2h,09ah
  1465.         db      0eah,0d5h,047h,039h
  1466.         db      09dh,0d2h,077h,0afh
  1467.         db      004h,0dbh,026h,015h
  1468.         db      073h,0dch,016h,083h
  1469.         db      0e3h,063h,00bh,012h
  1470.         db      094h,064h,03bh,084h
  1471.         db      00dh,06dh,06ah,03eh
  1472.         db      07ah,06ah,05ah,0a8h
  1473.         db      0e4h,00eh,0cfh,00bh
  1474.         db      093h,009h,0ffh,09dh
  1475.         db      00ah,000h,0aeh,027h
  1476.         db      07dh,007h,09eh,0b1h
  1477.         db      0f0h,00fh,093h,044h
  1478.         db      087h,008h,0a3h,0d2h
  1479.         db      01eh,001h,0f2h,068h
  1480.         db      069h,006h,0c2h,0feh
  1481.         db      0f7h,062h,057h,05dh
  1482.         db      080h,065h,067h,0cbh
  1483.         db      019h,06ch,036h,071h
  1484.         db      06eh,06bh,006h,0e7h
  1485.         db      0feh,0d4h,01bh,076h
  1486.         db      089h,0d3h,02bh,0e0h
  1487.         db      010h,0dah,07ah,05ah
  1488.         db      067h,0ddh,04ah,0cch
  1489.         db      0f9h,0b9h,0dfh,06fh
  1490.         db      08eh,0beh,0efh,0f9h
  1491.         db      017h,0b7h,0beh,043h
  1492.         db      060h,0b0h,08eh,0d5h
  1493.         db      0d6h,0d6h,0a3h,0e8h
  1494.         db      0a1h,0d1h,093h,07eh
  1495.         db      038h,0d8h,0c2h,0c4h
  1496.         db      04fh,0dfh,0f2h,052h
  1497.         db      0d1h,0bbh,067h,0f1h
  1498.         db      0a6h,0bch,057h,067h
  1499.         db      03fh,0b5h,006h,0ddh
  1500.         db      048h,0b2h,036h,04bh
  1501.         db      0d8h,00dh,02bh,0dah
  1502.         db      0afh,00ah,01bh,04ch
  1503.         db      036h,003h,04ah,0f6h
  1504.         db      041h,004h,07ah,060h
  1505.         db      0dfh,060h,0efh,0c3h
  1506.         db      0a8h,067h,0dfh,055h
  1507.         db      031h,06eh,08eh,0efh
  1508.         db      046h,069h,0beh,079h
  1509.         db      0cbh,061h,0b3h,08ch
  1510.         db      0bch,066h,083h,01ah
  1511.         db      025h,06fh,0d2h,0a0h
  1512.         db      052h,068h,0e2h,036h
  1513.         db      0cch,00ch,077h,095h
  1514.         db      0bbh,00bh,047h,003h
  1515.         db      022h,002h,016h,0b9h
  1516.         db      055h,005h,026h,02fh
  1517.         db      0c5h,0bah,03bh,0beh
  1518.         db      0b2h,0bdh,00bh,028h
  1519.         db      02bh,0b4h,05ah,092h
  1520.         db      05ch,0b3h,06ah,004h
  1521.         db      0c2h,0d7h,0ffh,0a7h
  1522.         db      0b5h,0d0h,0cfh,031h
  1523.         db      02ch,0d9h,09eh,08bh
  1524.         db      05bh,0deh,0aeh,01dh
  1525.         db      09bh,064h,0c2h,0b0h
  1526.         db      0ech,063h,0f2h,026h
  1527.         db      075h,06ah,0a3h,09ch
  1528.         db      002h,06dh,093h,00ah
  1529.         db      09ch,009h,006h,0a9h
  1530.         db      0ebh,00eh,036h,03fh
  1531.         db      072h,007h,067h,085h
  1532.         db      005h,000h,057h,013h
  1533.         db      095h,0bfh,04ah,082h
  1534.         db      0e2h,0b8h,07ah,014h
  1535.         db      07bh,0b1h,02bh,0aeh
  1536.         db      00ch,0b6h,01bh,038h
  1537.         db      092h,0d2h,08eh,09bh
  1538.         db      0e5h,0d5h,0beh,00dh
  1539.         db      07ch,0dch,0efh,0b7h
  1540.         db      00bh,0dbh,0dfh,021h
  1541.         db      086h,0d3h,0d2h,0d4h
  1542.         db      0f1h,0d4h,0e2h,042h
  1543.         db      068h,0ddh,0b3h,0f8h
  1544.         db      01fh,0dah,083h,06eh
  1545.         db      081h,0beh,016h,0cdh
  1546.         db      0f6h,0b9h,026h,05bh
  1547.         db      06fh,0b0h,077h,0e1h
  1548.         db      018h,0b7h,047h,077h
  1549.         db      088h,008h,05ah,0e6h
  1550.         db      0ffh,00fh,06ah,070h
  1551.         db      066h,006h,03bh,0cah
  1552.         db      011h,001h,00bh,05ch
  1553.         db      08fh,065h,09eh,0ffh
  1554.         db      0f8h,062h,0aeh,069h
  1555.         db      061h,06bh,0ffh,0d3h
  1556.         db      016h,06ch,0cfh,045h
  1557.         db      0a0h,00ah,0e2h,078h
  1558.         db      0d7h,00dh,0d2h,0eeh
  1559.         db      04eh,004h,083h,054h
  1560.         db      039h,003h,0b3h,0c2h
  1561.         db      0a7h,067h,026h,061h
  1562.         db      0d0h,060h,016h,0f7h
  1563.         db      049h,069h,047h,04dh
  1564.         db      03eh,06eh,077h,0dbh
  1565.         db      0aeh,0d1h,06ah,04ah
  1566.         db      0d9h,0d6h,05ah,0dch
  1567.         db      040h,0dfh,00bh,066h
  1568.         db      037h,0d8h,03bh,0f0h
  1569.         db      0a9h,0bch,0aeh,053h
  1570.         db      0deh,0bbh,09eh,0c5h
  1571.         db      047h,0b2h,0cfh,07fh
  1572.         db      030h,0b5h,0ffh,0e9h
  1573.         db      0bdh,0bdh,0f2h,01ch
  1574.         db      0cah,0bah,0c2h,08ah
  1575.         db      053h,0b3h,093h,030h
  1576.         db      024h,0b4h,0a3h,0a6h
  1577.         db      0bah,0d0h,036h,005h
  1578.         db      0cdh,0d7h,006h,093h
  1579.         db      054h,0deh,057h,029h
  1580.         db      023h,0d9h,067h,0bfh
  1581.         db      0b3h,066h,07ah,02eh
  1582.         db      0c4h,061h,04ah,0b8h
  1583.         db      05dh,068h,01bh,002h
  1584.         db      02ah,06fh,02bh,094h
  1585.         db      0b4h,00bh,0beh,037h
  1586.         db      0c3h,00ch,08eh,0a1h
  1587.         db      05ah,005h,0dfh,01bh
  1588.         db      02dh,002h,0efh,08dh
  1589.  
  1590.         include "../_sdk/stdio.asm"
  1591.  
  1592. cmd_end
  1593.  
  1594.         display "Size ",/d,cmd_end-cmd_begin," bytes"
  1595.  
  1596.         IFNDEF  OUTFNAME
  1597.         define  OUTFNAME "zexdoc.com"
  1598.         ENDIF
  1599.         savebin OUTFNAME,cmd_begin,cmd_end-cmd_begin
  1600.  
  1601.