Subversion Repositories pentevo

Rev

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

  1.         cpu     z88c00
  2.         page    0
  3.         include "regz8.inc"
  4.  
  5.  
  6.         adc     r3,r5           ; 12 35
  7.         adc     r3,@r5          ; 13 35
  8.         adc     r3,64           ; 14 40 c3
  9.         adc     32,r5           ; 14 c5 20
  10.         adc     32,64           ; 14 40 20
  11.         adc     r3,@64          ; 15 40 c3
  12.         adc     32,@r5          ; 15 c5 20
  13.         adc     32,@64          ; 15 40 20
  14.         adc     r3,#64          ; 16 c3 40
  15.         adc     32,#64          ; 16 20 40
  16.  
  17.         add     r3,r5           ; 02 35
  18.         add     r3,@r5          ; 03 35
  19.         add     r3,64           ; 04 40 c3
  20.         add     32,r5           ; 04 c5 20
  21.         add     32,64           ; 04 40 20
  22.         add     r3,@64          ; 05 40 c3
  23.         add     32,@r5          ; 05 c5 20
  24.         add     32,@64          ; 05 40 20
  25.         add     r3,#64          ; 06 c3 40
  26.         add     32,#64          ; 06 20 40
  27.  
  28.         and     r3,r5           ; 52 35
  29.         and     r3,@r5          ; 53 35
  30.         and     r3,64           ; 54 40 c3
  31.         and     32,r5           ; 54 c5 20
  32.         and     32,64           ; 54 40 20
  33.         and     r3,@64          ; 55 40 c3
  34.         and     32,@r5          ; 55 c5 20
  35.         and     32,@64          ; 55 40 20
  36.         and     r3,#64          ; 56 c3 40
  37.         and     32,#64          ; 56 20 40
  38.  
  39.         band    r3,r5,#7        ; 67 3e c5
  40.         band    r3,64,#7        ; 67 3e 40
  41.         band    r3,#7,r5        ; 67 5f c3
  42.         band    32,#7,r5        ; 67 5f 20
  43.  
  44.         bcp     r3,r5,#7        ; 17 3e c5
  45.         bcp     r3,64,#7        ; 17 3e 40
  46.  
  47.         bitc    r3,#7           ; 57 3e
  48.  
  49.         bitr    r3,#7           ; 77 3e
  50.  
  51.         bits    r3,#7           ; 77 3f
  52.  
  53.         bor     r3,r5,#7        ; 07 3e c5
  54.         bor     r3,64,#7        ; 07 3e 40
  55.         bor     r3,#7,r5        ; 07 5f c3
  56.         bor     32,#7,r5        ; 07 5f 20
  57.  
  58.         btjrf   $,r5,#7         ; 37 5e fd
  59.         btjrt   $,r5,#7         ; 37 5f fd
  60.  
  61.         bxor    r3,r5,#7        ; 27 3e c5
  62.         bxor    r3,64,#7        ; 27 3e 40
  63.         bxor    r3,#7,r5        ; 27 5f c3
  64.         bxor    32,#7,r5        ; 27 5f 20
  65.  
  66.         call    #32             ; d4 20 (actually, 'call (32)' would better describe what happens)
  67.         expect  1351
  68.         call    #33
  69.         endexpect
  70.         call    @rr2            ; f4 c2
  71.         call    @32             ; f4 20
  72.         call    64              ; f6 00 40
  73.  
  74.         ccf                     ; ef
  75.  
  76.         clr     r3              ; b0 c3
  77.         clr     32              ; b0 20
  78.         clr     @r3             ; b1 c3
  79.         clr     @32             ; b1 20
  80.  
  81.         com     r3              ; 60 c3
  82.         com     32              ; 60 20
  83.         com     @r3             ; 61 c3
  84.         com     @32             ; 61 20
  85.  
  86.         cp      r3,r5           ; a2 35
  87.         cp      r3,@r5          ; a3 35
  88.         cp      r3,64           ; a4 40 c3
  89.         cp      32,r5           ; a4 c5 20
  90.         cp      32,64           ; a4 40 20
  91.         cp      r3,@64          ; a5 40 c3
  92.         cp      32,@r5          ; a5 c5 20
  93.         cp      32,@64          ; a5 40 20
  94.         cp      r3,#64          ; a6 c3 40
  95.         cp      32,#64          ; a6 20 40
  96.  
  97.         cpijne  r3,@r5,$        ; d2 53 fd
  98.  
  99.         cpije   r3,@r5,$        ; c2 53 fd
  100.  
  101.         da      r3              ; 40 c3
  102.         da      32              ; 40 20
  103.         da      @r3             ; 41 c3
  104.         da      @32             ; 41 20
  105.  
  106.         dec     r3              ; 00 c3
  107.         dec     32              ; 00 20
  108.         dec     @r3             ; 01 c3
  109.         dec     @32             ; 01 20
  110.  
  111.         decw    rr2             ; 80 c2
  112.         decw    32              ; 80 20
  113.         decw    @r3             ; 81 c3
  114.         decw    @32             ; 81 20
  115.  
  116.         di                      ; 8f
  117.  
  118.         div     rr2,r5          ; 94 c5 c2
  119.         div     rr2,64          ; 94 40 c2
  120.         div     32,r5           ; 94 c5 20
  121.         div     32,64           ; 94 40 20
  122.         div     rr2,@r5         ; 95 c5 c2
  123.         div     rr2,@64         ; 95 40 c2
  124.         div     32,@r5          ; 95 c5 20
  125.         div     32,@64          ; 95 40 20
  126.         div     rr2,#64         ; 96 40 c2
  127.         div     32,#64          ; 96 40 20
  128.  
  129.         djnz    r3,$            ; 3a fe
  130.  
  131.         ei                      ; 9f
  132.  
  133.         enter                   ; 1f
  134.  
  135.         exit                    ; 2f
  136.  
  137.         inc     r3              ; 3e
  138.         inc     32              ; 20 20
  139.         inc     @r3             ; 21 c3
  140.         inc     @32             ; 21 20
  141.  
  142.         incw    rr2             ; a0 c2
  143.         incw    32              ; a0 20
  144.         incw    @r3             ; a1 c3
  145.         incw    @32             ; a1 20
  146.  
  147.         iret                    ; bf
  148.  
  149.         jp      1024            ; 8d 04 00
  150.         jp      nz,1024         ; ed 04 00
  151.         jp      @rr2            ; 30 c2
  152.         jp      @32             ; 30 20
  153.  
  154.         jr      $               ; 8b fe
  155.         jr      nz,$            ; eb fe
  156.  
  157.         ld      r3,#64          ; 3c 40
  158.         ld      r3,r5           ; 38 c5
  159.         ld      r3,64           ; 38 40
  160.         ld      32,r5           ; 59 20
  161.         ld      r3,@r5          ; c7 35
  162.         ld      @r3,r5          ; d7 35
  163.         ld      32,64           ; e4 40 20
  164.         ld      r3,@r5          ; c7 35
  165.         ld      r3,@64          ; e5 40 c3
  166.         ld      32,@r5          ; e5 c5 20
  167.         ld      32,@64          ; e5 40 20
  168.         ld      r3,#64          ; 3c 40
  169.         ld      32,#64          ; e6 20 40
  170.         ld      @r3,#64         ; d6 c3 40
  171.         ld      @32,#64         ; d6 20 40
  172.         ld      @r3,r5          ; d7 35
  173.         ld      @r3,64          ; f5 40 c3
  174.         ld      @32,r5          ; f5 c5 20
  175.         ld      @32,64          ; f5 40 20
  176.         ld      r3,64(r5)       ; 87 35 40
  177.         ld      64(r3),r5       ; 97 53 40
  178.  
  179.         ldb     r3,r5,#7        ; 47 3e c5
  180.         ldb     r3,64,#7        ; 47 3e 40
  181.         ldb     r3,#7,r5        ; 47 5f c3
  182.         ldb     32,#7,r5        ; 47 5f 20
  183.  
  184.         ldc     r3,1024(rr4)    ; a7 34 00 04
  185.         ldc     r3,64(rr4)      ; e7 34 40
  186.         ldc     1024(rr2),r5    ; b7 52 00 04
  187.         ldc     64(rr2),r5      ; f7 52 40
  188.         ldc     32,r5           ; b7 50 20 00
  189.         ldc     r5,64           ; a7 50 40 00
  190.         ldc     r3,@rr4         ; c3 34
  191.         ldc     @rr2,r5         ; d3 52
  192.  
  193.         ldcd    r3,@rr4         ; e2 34
  194.  
  195.         ldci    r3,@rr4         ; e3 34
  196.  
  197.         ldcpd   @rr2,r5         ; f2 52
  198.  
  199.         ldcpi   @rr2,r5         ; f3 52
  200.  
  201.         lde     r3,1024(rr4)    ; a7 35 00 04
  202.         lde     r3,64(rr4)      ; e7 35 40
  203.         lde     1024(rr2),r5    ; b7 53 00 04
  204.         lde     64(rr2),r5      ; f7 53 40
  205.         lde     32,r5           ; b7 51 20 00
  206.         lde     r5,64           ; a7 51 40 00
  207.         lde     r3,@rr4         ; c3 35
  208.         lde     @rr2,r5         ; d3 53
  209.  
  210.         lded    r3,@rr4         ; e2 35
  211.  
  212.         ldei    r3,@rr4         ; e3 35
  213.  
  214.         ldepd   @rr2,r5         ; f2 53
  215.  
  216.         ldepi   @rr2,r5         ; f3 53
  217.  
  218.         ldw     rr2,rr4         ; c4 c4 c2
  219.         ldw     rr2,64          ; c4 40 c2
  220.         ldw     32,rr4          ; c4 c4 20
  221.         ldw     32,64           ; c4 40 20
  222.         ldw     rr2,@r4         ; c5 c4 c2
  223.         ldw     rr2,@64         ; c5 40 c2
  224.         ldw     32,@r4          ; c5 c4 20
  225.         ldw     32,@64          ; c5 40 20
  226.         ldw     rr2,#1024       ; c6 c2 04 00
  227.         ldw     32,#1024        ; c6 20 04 00
  228.  
  229.         mult    rr2,r5          ; 84 c5 c2
  230.         mult    rr2,64          ; 84 40 c2
  231.         mult    32,r5           ; 84 c5 20
  232.         mult    32,64           ; 84 40 20
  233.         mult    rr2,@r5         ; 85 c5 c2
  234.         mult    rr2,@64         ; 85 40 c2
  235.         mult    32,@r5          ; 85 c5 20
  236.         mult    32,@64          ; 85 40 20
  237.         mult    rr2,#64         ; 86 40 c2
  238.         mult    32,#64          ; 86 40 20
  239.  
  240.         next                    ; 0f
  241.  
  242.         nop                     ; ff
  243.  
  244.         or      r3,r5           ; 42 35
  245.         or      r3,@r5          ; 43 35
  246.         or      r3,64           ; 44 40 c3
  247.         or      32,r5           ; 44 c5 20
  248.         or      32,64           ; 44 40 20
  249.         or      r3,@64          ; 45 40 c3
  250.         or      32,@r5          ; 45 c5 20
  251.         or      32,@64          ; 45 40 20
  252.         or      r3,#64          ; 46 c3 40
  253.         or      32,#64          ; 46 20 40
  254.  
  255.         pop     r3              ; 50 c3
  256.         pop     32              ; 50 20
  257.         pop     @r3             ; 51 c3
  258.         pop     @32             ; 51 20
  259.  
  260.         popud   r3,@r5          ; 92 c5 c3
  261.         popud   r3,@64          ; 92 40 c3
  262.         popud   32,@r5          ; 92 c5 20
  263.         popud   32,@64          ; 92 40 20
  264.  
  265.         popui   r3,@r5          ; 93 c5 c3
  266.         popui   r3,@64          ; 93 40 c3
  267.         popui   32,@r5          ; 93 c5 20
  268.         popui   32,@64          ; 93 40 20
  269.  
  270.         push    r3              ; 70 c3
  271.         push    32              ; 70 20
  272.         push    @r3             ; 71 c3
  273.         push    @32             ; 71 20
  274.  
  275.         pushud  @r3,r5          ; 82 c3 c5
  276.         pushud  @r3,64          ; 82 c3 40
  277.         pushud  @32,r5          ; 82 20 c5
  278.         pushud  @32,64          ; 82 20 40
  279.  
  280.         pushui  @r3,r5          ; 83 c3 c5
  281.         pushui  @r3,64          ; 83 c3 40
  282.         pushui  @32,r5          ; 83 20 c5
  283.         pushui  @32,64          ; 83 20 40
  284.  
  285.         rcf                     ; cf
  286.  
  287.         rdr     #0a5h           ; d5 a5
  288.  
  289.         ret                     ; af
  290.  
  291.         rl      r3              ; 90 c3
  292.         rl      32              ; 90 20
  293.         rl      @r3             ; 91 c3
  294.         rl      @32             ; 91 20
  295.  
  296.         rlc     r3              ; 10 c3
  297.         rlc     32              ; 10 20
  298.         rlc     @r3             ; 11 c3
  299.         rlc     @32             ; 11 20
  300.  
  301.         rr      r3              ; e0 c3
  302.         rr      32              ; e0 20
  303.         rr      @r3             ; e1 c3
  304.         rr      @32             ; e1 20
  305.  
  306.         rrc     r3              ; c0 c3
  307.         rrc     32              ; c0 20
  308.         rrc     @r3             ; c1 c3
  309.         rrc     @32             ; c1 20
  310.  
  311.         sb0                     ; 4f
  312.  
  313.         sb1                     ; 5f
  314.  
  315.         sbc     r3,r5           ; 32 35
  316.         sbc     r3,@r5          ; 33 35
  317.         sbc     r3,64           ; 34 40 c3
  318.         sbc     32,r5           ; 34 c5 20
  319.         sbc     32,64           ; 34 40 20
  320.         sbc     r3,@64          ; 35 40 c3
  321.         sbc     32,@r5          ; 35 c5 20
  322.         sbc     32,@64          ; 35 40 20
  323.         sbc     r3,#64          ; 36 c3 40
  324.         sbc     32,#64          ; 36 20 40
  325.  
  326.         scf                     ; df
  327.  
  328.         sra     r3              ; d0 c3
  329.         sra     32              ; d0 20
  330.         sra     @r3             ; d1 c3
  331.         sra     @32             ; d1 20
  332.  
  333.         srp     #128            ; 31 80
  334.         srp1    #128            ; 31 81
  335.         srp0    #128+8          ; 31 8a
  336.  
  337.         sub     r3,r5           ; 22 35
  338.         sub     r3,@r5          ; 23 35
  339.         sub     r3,64           ; 24 40 c3
  340.         sub     32,r5           ; 24 c5 20
  341.         sub     32,64           ; 24 40 20
  342.         sub     r3,@64          ; 25 40 c3
  343.         sub     32,@r5          ; 25 c5 20
  344.         sub     32,@64          ; 25 40 20
  345.         sub     r3,#64          ; 26 c3 40
  346.         sub     32,#64          ; 26 20 40
  347.  
  348.         swap    r3              ; f0 c3
  349.         swap    32              ; f0 20
  350.         swap    @r3             ; f1 c3
  351.         swap    @32             ; f1 20
  352.  
  353.         tcm     r3,r5           ; 62 35
  354.         tcm     r3,@r5          ; 63 35
  355.         tcm     r3,64           ; 64 40 c3
  356.         tcm     32,r5           ; 64 c5 20
  357.         tcm     32,64           ; 64 40 20
  358.         tcm     r3,@64          ; 65 40 c3
  359.         tcm     32,@r5          ; 65 c5 20
  360.         tcm     32,@64          ; 65 40 20
  361.         tcm     r3,#64          ; 66 c3 40
  362.         tcm     32,#64          ; 66 20 40
  363.  
  364.         tm      r3,r5           ; 72 35
  365.         tm      r3,@r5          ; 73 35
  366.         tm      r3,64           ; 74 40 c3
  367.         tm      32,r5           ; 74 c5 20
  368.         tm      32,64           ; 74 40 20
  369.         tm      r3,@64          ; 75 40 c3
  370.         tm      32,@r5          ; 75 c5 20
  371.         tm      32,@64          ; 75 40 20
  372.         tm      r3,#64          ; 76 c3 40
  373.         tm      32,#64          ; 76 20 40
  374.  
  375.         xor     r3,r5           ; b2 35
  376.         xor     r3,@r5          ; b3 35
  377.         xor     r3,64           ; b4 40 c3
  378.         xor     32,r5           ; b4 c5 20
  379.         xor     32,64           ; b4 40 20
  380.         xor     r3,@64          ; b5 40 c3
  381.         xor     32,@r5          ; b5 c5 20
  382.         xor     32,@64          ; b5 40 20
  383.         xor     r3,#64          ; b6 c3 40
  384.         xor     32,#64          ; b6 20 40
  385.  
  386.         wfi                     ; 3f
  387.  
  388.         ; test for condition codes
  389.  
  390.         jp      f,128           ; 0d 00 80
  391.         jp      z,128           ; 6d 00 80
  392.         jp      nz,128          ; ed 00 80
  393.         jp      eq,128          ; 6d 00 80
  394.         jp      ne,128          ; ed 00 80
  395.         jp      c,128           ; 7d 00 80
  396.         jp      nc,128          ; fd 00 80
  397.         jp      gt,128          ; ad 00 80
  398.         jp      lt,128          ; 1d 00 80
  399.         jp      ge,128          ; 9d 00 80
  400.         jp      le,128          ; 2d 00 80
  401.         jp      pl,128          ; dd 00 80
  402.         jp      mi,128          ; 5d 00 80
  403.         jp      nov,128         ; cd 00 80
  404.         jp      ov,128          ; 4d 00 80
  405.         jp      ugt,128         ; bd 00 80
  406.         jp      ult,128         ; 7d 00 80
  407.         jp      uge,128         ; fd 00 80
  408.         jp      ule,128         ; 3d 00 80
  409.  
  410.         ; defined register names
  411.  
  412.         ld      r3,sym          ; 38 de
  413.         ld      r3,imr          ; 38 dd
  414.         ld      r3,irr          ; 38 dc
  415.         ldw     rr2,ip          ; c4 da c2
  416.         ld      r3,ipl          ; 38 db
  417.         ld      r3,iph          ; 38 da
  418.         ldw     rr2,sp          ; c4 d8 c2
  419.         ld      r3,spl          ; 38 d9
  420.         ld      r3,sph          ; 38 da
  421.         ld      r3,rp1          ; 38 d7
  422.         ld      r3,rp0          ; 38 d6
  423.         ld      r3,flags        ; 38 d5
  424.         ld      r3,p4           ; 38 d4
  425.         ld      r3,p3           ; 38 d3
  426.         ld      r3,p2           ; 38 d2
  427.         ld      r3,p1           ; 38 d1
  428.         ld      r3,p0           ; 38 d0
  429.  
  430.         ; Bank 0 Special Registers
  431.  
  432.         ld      r3,ipr          ; 38 ff
  433.         ld      r3,emt          ; 38 fe
  434.         ld      r3,p2bip        ; 38 fd
  435.         ld      r3,p2aip        ; 38 fc
  436.         ld      r3,p2dm         ; 38 fb
  437.         ld      r3,p2cm         ; 38 fa
  438.         ld      r3,p2bm         ; 38 f9
  439.         ld      r3,p2am         ; 38 f8
  440.         ld      r3,p4od         ; 38 f7
  441.         ld      r3,p4d          ; 38 f6
  442.         ld      r3,h1c          ; 38 f5
  443.         ld      r3,h0c          ; 38 f4
  444.         ld      r3,pm           ; 38 f1
  445.         ld      r3,p1           ; 38 d1
  446.         ld      r3,p0m          ; 38 f0
  447.         ld      r3,uie          ; 38 ed
  448.         ld      r3,urc          ; 38 ec
  449.         ld      r3,utc          ; 38 eb
  450.         if      0
  451.         ld      r3,sio          ; 38 ea
  452.         ld      r3,sie          ; 38 e9
  453.         ld      r3,srcb         ; 38 e8
  454.         ld      r3,srca         ; 38 e7
  455.         ld      r3,stc          ; 38 e6
  456.         endif
  457.         ldw     rr2,c1c         ; c4 e4 c2
  458.         ld      r3,c1cl         ; 38 e5
  459.         ld      r3,c1ch         ; 38 e4
  460.         ldw     rr2,c0c         ; c4 e2 c2
  461.         ld      r3,c0cl         ; 38 e3
  462.         ld      r3,c0ch         ; 38 e2
  463.         ld      r3,c1ct         ; 38 e1
  464.         ld      r3,c0ct         ; 38 e0
  465.  
  466.         ; Bank 1 Special Registers
  467.  
  468.         ld      r3,wumsk        ; 38 ff
  469.         ld      r3,wumch        ; 38 fe
  470.         ld      r3,umb          ; 38 fb
  471.         ld      r3,uma          ; 38 fa
  472.         ldw     rr2,ubg         ; c4 f8 c2
  473.         ld      r3,ubgl         ; 38 f9
  474.         ld      r3,ubgh         ; 38 f8
  475.         ldw     rr2,dc          ; c4 f0 c2
  476.         ld      r3,dcl          ; 38 f1
  477.         ld      r3,dch          ; 38 f0
  478.         if      0
  479.         ldw     rr2,syn         ; c4 ee c2
  480.         ld      r3,synh         ; 38 ef
  481.         ld      r3,synl         ; 38 ee
  482.         ld      r3,smd          ; 38 ed
  483.         ld      r3,smc          ; 38 ec
  484.         ld      r3,smb          ; 38 eb
  485.         ld      r3,sma          ; 38 ea
  486.         ldw     rr2,sbg         ; c4 e8 c2
  487.         ld      r3,sbgl         ; 38 e9
  488.         ld      r3,sbgh         ; 38 e8
  489.         endif
  490.         ldw     rr2,c1tc        ; c4 e4 c2
  491.         ld      r3,c1tcl        ; 38 e5
  492.         ld      r3,c1tch        ; 38 e4
  493.         ldw     rr2,c0tc        ; c4 e2 c2
  494.         ld      r3,c0tcl        ; 38 e3
  495.         ld      r3,c0tch        ; 38 e2
  496.         ld      r3,c1m          ; 38 e1
  497.         ld      r3,c0m          ; 38 e0
  498.  
  499.         ; upper case test
  500.  
  501.         ld      r3,SYM          ; 38 de
  502.         ld      r3,IMR          ; 38 dd
  503.         ld      r3,IRR          ; 38 dc
  504.         ldw     rr2,IP          ; c4 da c2
  505.         ld      r3,IPL          ; 38 db
  506.         ld      r3,IPH          ; 38 da
  507.         ldw     rr2,SP          ; c4 d8 c2
  508.         ld      r3,SPL          ; 38 d9
  509.         ld      r3,SPH          ; 38 d8
  510.         ld      r3,RP1          ; 38 d7
  511.         ld      r3,RP0          ; 38 d6
  512.         ld      r3,FLAGS        ; 38 d5
  513.         ld      r3,P4           ; 38 d4
  514.         ld      r3,P3           ; 38 d3
  515.         ld      r3,P2           ; 38 d2
  516.         ld      r3,P1           ; 38 d1
  517.         ld      r3,P0           ; 38 d0
  518.  
  519.         ; Bank 0 Special Registers
  520.  
  521.         ld      r3,IPR          ; 38 ff
  522.         ld      r3,P2BIP        ; 38 fd
  523.         ld      r3,P2AIP        ; 38 fc
  524.         ld      r3,P2DM         ; 38 fb
  525.         ld      r3,P2CM         ; 38 fa
  526.         ld      r3,P2BM         ; 38 f9
  527.         ld      r3,P2AM         ; 38 f8
  528.         ld      r3,P4OD         ; 38 f7
  529.         ld      r3,P4D          ; 38 f6
  530.         ld      r3,H1C          ; 38 f5
  531.         ld      r3,H0C          ; 38 f4
  532.         ld      r3,PM           ; 38 f1
  533.         ld      r3,P1           ; 38 d1
  534.         ld      r3,P0M          ; 38 f0
  535.         ld      r3,UIE          ; 38 ed
  536.         ld      r3,URC          ; 38 ec
  537.         ld      r3,UTC          ; 3S eb
  538.         if      0
  539.         ld      r3,SIO          ; 38 ea
  540.         ld      r3,SIE          ; 38 e9
  541.         ld      r3,SRCB         ; 38 e8
  542.         ld      r3,SRCA         ; 38 e7
  543.         ld      r3,STC          ; 38 e6
  544.         endif
  545.         ldw     rr2,C1C         ; c4 e4 c2
  546.         ld      r3,C1CL         ; 38 e5
  547.         ld      r3,C1CH         ; 38 e4
  548.         ldw     rr2,C0C         ; c4 e2 c2
  549.         ld      r3,C0CL         ; 38 e3
  550.         ld      r3,C0CH         ; 38 e2
  551.         ld      r3,C1CT         ; 38 e1
  552.         ld      r3,C0CT         ; 38 e0
  553.  
  554.         ; Bank 1 Special Registers
  555.  
  556.         ld      r3,WUMSK        ; 38 ff
  557.         ld      r3,WUMCH        ; 38 fe
  558.         ld      r3,UMB          ; 38 fb
  559.         ld      r3,UMA          ; 38 fa
  560.         ldw     rr2,UBG         ; c4 f0 c2
  561.         ld      r3,UBGL         ; 38 f9
  562.         ld      r3,UBGH         ; 38 f0
  563.         ldw     rr2,DC          ; c4 f0c 2
  564.         ld      r3,DCL          ; 38 f1
  565.         ld      r3,DCH          ; 38 f0
  566.         if      0
  567.         ldw     rr2,SYN         ; c4 ee c2
  568.         ld      r3,SYNH         ; 38 ef
  569.         ld      r3,SYNL         ; 38 ee
  570.         ld      r3,SMD          ; 38 ed
  571.         ld      r3,SMC          ; 38 ec
  572.         ld      r3,SMB          ; 38 eb
  573.         ld      r3,SMA          ; 38 ea
  574.         ldw     rr2,SBG         ; c4 e0 c2
  575.         ld      r3,SBGL         ; 38 e9
  576.         ld      r3,SBGH         ; 38 e0
  577.         endif
  578.         ldw     rr2,C1TC        ; c4 e4 c2
  579.         ld      r3,C1TCL        ; 38 e5
  580.         ld      r3,C1TCH        ; 38 e4
  581.         ldw     rr2,C0TC        ; c4 e2 c2
  582.         ld      r3,C0TCL        ; 38 e3
  583.         ld      r3,C0TCH        ; 38 e2
  584.         ld      r3,C1M          ; 38 e1
  585.         ld      r3,C0M          ; 38 e0
  586.  
  587.         ; test for condition codes
  588.  
  589.         jp      f,128           ; 0d 00 80
  590.  
  591.         jp      z,128           ; 6d 00 80
  592.         jp      nz,128          ; ed 00 80
  593.         jp      eq,128          ; 6d 00 80
  594.         jp      ne,128          ; ed 00 80
  595.  
  596.         jp      c,128           ; 7d 00 80
  597.         jp      nc,128          ; fd 00 80
  598.  
  599.         jp      gt,128          ; ad 00 80
  600.         jp      lt,128          ; 1d 00 80
  601.         jp      ge,128          ; 9d 00 80
  602.         jp      le,128          ; 2d 00 80
  603.  
  604.         jp      pl,128          ; dd 00 80
  605.         jp      mi,128          ; 5d 00 80
  606.  
  607.         jp      nov,128         ; cd 00 80
  608.         jp      ov,128          ; 4d 00 80
  609.  
  610.         jp      ugt,128         ; bd 00 80
  611.         jp      ult,128         ; 7d 00 80
  612.         jp      uge,128         ; fd 00 80
  613.         jp      ule,128         ; 3d 00 80
  614.  
  615.         ; symbolic bits
  616.  
  617.         ldb     r3,0feh,#6      ; 47 3c fe
  618.         ldb     r3,emt,#6       ; 47 3c fe
  619.         ldb     r3,slow         ; 47 3c fe
  620.  
  621.         band    0edh,#5,r3      ; 67 3b ed
  622.         band    UIE,#5,r3       ; 67 3b ed
  623.         band    UBRKIE,r3       ; 67 3b ed
  624.  
  625. regbit  defbit  r3,4
  626.         bitc    r3,#4
  627.         bitc    regbit
  628.         btjrf   $,r3,#4
  629.         btjrf   $,regbit
  630.  
  631.         ; register pointers
  632.  
  633.         assume  rp:20h          ; sets RP0=20h, RP1=28h
  634.         ld      24h,#0aah       ; translates to 'ld r4,...'
  635.         ld      2ch,#0aah       ; translates to 'ld r12,...'
  636.         assume  rp1:30h
  637.         ld      24h,#0aah       ; translates to 'ld r4,...'
  638.         ld      2ch,#0aah       ; no mapping to work register
  639.         ld      34h,#0aah       ; translates to 'ld r12,...'
  640.  
  641.         end
  642.