home *** CD-ROM | disk | FTP | other *** search
/ GEMini Atari / GEMini_Atari_CD-ROM_Walnut_Creek_December_1993.iso / files / language / asxbin / t6811s.asm < prev    next >
Assembly Source File  |  1993-10-23  |  7KB  |  373 lines
  1.     .title    AS6811 Sequential Test
  2.  
  3.     .area    DIRECT
  4.  
  5.     .blkb    0x12
  6. dirpag:                ; direct page location
  7.     ext    = 0x1234    ; extended address
  8.  
  9.  
  10.     .area    AS6801
  11.  
  12.     .setdp    DIRECT
  13.  
  14.                 ; 00
  15.     nop            ; 01
  16.     idiv            ; 02
  17.     fdiv            ; 03
  18.     lsrd            ; 04
  19.     asld            ; 05
  20.     tap            ; 06
  21.     tpa            ; 07
  22.     inx            ; 08
  23.     dex            ; 09
  24.     clv            ; 0A
  25.     sev            ; 0B
  26.     clc            ; 0C
  27.     sec            ; 0D
  28.     cli            ; 0E
  29.     sei            ; 0F
  30.     sba            ; 10
  31.     cba            ; 11
  32. 1$:    brset *dirpag,#0x5A, 1$    ; 12 12 5A FC
  33.     brclr *dirpag,#0x5B, 1$    ; 13 12 5B F8
  34.     bset    *dirpag,#0x5C    ; 14 12 5C
  35.     bclr    *dirpag,#0x5D    ; 15 12 5D
  36.     tab            ; 16
  37.     tba            ; 17
  38.                 ; 18    PAGE 2
  39.     daa            ; 19
  40.                 ; 1A    PAGE 3
  41.     aba            ; 1B
  42.     bset  4,x, #0x5C    ; 1C 04 5C
  43.     bclr  5,x, #0x5D    ; 1D 05 5D
  44. 2$:    brset 6,x, #0x5A, 2$    ; 1E 06 5A FC
  45.     brclr 7,x, #0x5B, 2$    ; 1F 07 5B F8
  46.  
  47.     .page
  48.  
  49.     bra    .        ; 20 FE
  50.     brn    .        ; 21 FE
  51.     bhi    .        ; 22 FE
  52.     bls    .        ; 23 FE
  53.     bcc    .        ; 24 FE
  54.     bcs    .        ; 25 FE
  55.     bne    .        ; 26 FE
  56.     beq    .        ; 27 FE
  57.     bvc    .        ; 28 FE
  58.     bvs    .        ; 29 FE
  59.     bpl    .        ; 2A FE
  60.     bmi    .        ; 2B FE
  61.     bge    .        ; 2C FE
  62.     blt    .        ; 2D FE
  63.     bgt    .        ; 2E FE
  64.     ble    .        ; 2F FE
  65.     tsx            ; 30
  66.     ins            ; 31
  67.     pula            ; 32
  68.     pulb            ; 33
  69.     des            ; 34
  70.     txs            ; 35
  71.     psha            ; 36
  72.     pshb            ; 37
  73.     pulx            ; 38
  74.     rts            ; 39
  75.     abx            ; 3A
  76.     rti            ; 3B
  77.     pshx            ; 3C
  78.     mul            ; 3D
  79.     wai            ; 3E
  80.     swi            ; 3F
  81.  
  82.  
  83.     .page
  84.  
  85.     nega            ; 40
  86.                 ; 41
  87.                 ; 42
  88.     coma            ; 43
  89.     lsra            ; 44
  90.                 ; 45
  91.     rora            ; 46
  92.     asra            ; 47
  93.     asla            ; 48
  94.     rola            ; 49
  95.     deca            ; 4A
  96.                 ; 4B
  97.     inca            ; 4C
  98.     tsta            ; 4D
  99.                 ; 4E
  100.     clra            ; 4F
  101.     negb            ; 50
  102.                 ; 51
  103.                 ; 52
  104.     comb            ; 53
  105.     lsrb            ; 54
  106.                 ; 55
  107.     rorb            ; 56
  108.     asrb            ; 57
  109.     aslb            ; 58
  110.     rolb            ; 59
  111.     decb            ; 5A
  112.                 ; 5B
  113.     incb            ; 5C
  114.     tstb            ; 5D
  115.                 ; 5E
  116.     clrb            ; 5F
  117.  
  118.  
  119.     .page
  120.  
  121.     neg    ,x        ; 60 00
  122.                 ; 61
  123.                 ; 62
  124.     com    ,x        ; 63 00
  125.     lsr    ,x        ; 64 00
  126.                 ; 65
  127.     ror    ,x        ; 66 00
  128.     asr    ,x        ; 67 00
  129.     asl    ,x        ; 68 00
  130.     rol    ,x        ; 69 00
  131.     dec    ,x        ; 6A 00
  132.                 ; 6B
  133.     inc    ,x        ; 6C 00
  134.     tst    ,x        ; 6D 00
  135.     jmp    ,x        ; 6E 00
  136.     clr    ,x        ; 6F 00
  137.     neg    ext        ; 70 12 34
  138.                 ; 71
  139.                 ; 72
  140.     com    ext        ; 73 12 34
  141.     lsr    ext        ; 74 12 34
  142.                 ; 75
  143.     ror    ext        ; 76 12 34
  144.     asr    ext        ; 77 12 34
  145.     asl    ext        ; 78 12 34
  146.     rol    ext        ; 79 12 34
  147.     dec    ext        ; 7A 12 34
  148.                 ; 7B
  149.     inc    ext        ; 7C 12 34
  150.     tst    ext        ; 7D 12 34
  151.     jmp    ext        ; 7E 12 34
  152.     clr    ext        ; 7F 12 34
  153.  
  154.  
  155.     .page
  156.  
  157.     suba    #1        ; 80 01
  158.     cmpa    #1        ; 81 01
  159.     sbca    #1        ; 82 01
  160.     subd    #1        ; 83 00 01
  161.     anda    #1        ; 84 01
  162.     bita    #1        ; 85 01
  163.     ldaa    #1        ; 86 01
  164.                 ; 87
  165.     eora    #1        ; 88 01
  166.     adca    #1        ; 89 01
  167.     oraa    #1        ; 8A 01
  168.     adda    #1        ; 8B 01
  169.     cpx    #1        ; 8C 00 01
  170.     bsr    .        ; 8D FE
  171.     lds    #1        ; 8E 00 01
  172.     xgdx            ; 8F
  173.     suba    *dirpag        ; 90 12
  174.     cmpa    *dirpag        ; 91 12
  175.     sbca    *dirpag        ; 92 12
  176.     subd    *dirpag        ; 93 12
  177.     anda    *dirpag        ; 94 12
  178.     bita    *dirpag        ; 95 12
  179.     ldaa    *dirpag        ; 96 12
  180.     staa    *dirpag        ; 97 12
  181.     eora    *dirpag        ; 98 12
  182.     adca    *dirpag        ; 99 12
  183.     oraa    *dirpag        ; 9A 12
  184.     adda    *dirpag        ; 9B 12
  185.     cpx    *dirpag        ; 9C 12
  186.     jsr    *dirpag        ; 9D 12
  187.     lds    *dirpag        ; 9E 12
  188.     sts    *dirpag        ; 9F 12
  189.  
  190.  
  191.     .page
  192.  
  193.     suba    4,x        ; A0 04
  194.     cmpa    4,x        ; A1 04
  195.     sbca    4,x        ; A2 04
  196.     subd    4,x        ; A3 04
  197.     anda    4,x        ; A4 04
  198.     bita    4,x        ; A5 04
  199.     ldaa    4,x        ; A6 04
  200.     staa    4,x        ; A7 04
  201.     eora    4,x        ; A8 04
  202.     adca    4,x        ; A9 04
  203.     oraa    4,x        ; AA 04
  204.     adda    4,x        ; AB 04
  205.     cpx    4,x        ; AC 04
  206.     jsr    4,x        ; AD 04
  207.     lds    4,x        ; AE 04
  208.     sts    4,x        ; AF 04
  209.     suba    ext        ; B0 12 34
  210.     cmpa    ext        ; B1 12 34
  211.     sbca    ext        ; B2 12 34
  212.     subd    ext        ; B3 12 34
  213.     anda    ext        ; B4 12 34
  214.     bita    ext        ; B5 12 34
  215.     ldaa    ext        ; B6 12 34
  216.     staa    ext        ; B7 12 34
  217.     eora    ext        ; B8 12 34
  218.     adca    ext        ; B9 12 34
  219.     oraa    ext        ; BA 12 34
  220.     adda    ext        ; BB 12 34
  221.     cpx    ext        ; BC 12 34
  222.     jsr    ext        ; BD 12 34
  223.     lds    ext        ; BE 12 34
  224.     sts    ext        ; BF 12 34
  225.  
  226.  
  227.     .page
  228.  
  229.     subb    #1        ; C0 01
  230.     cmpb    #1        ; C1 01
  231.     sbcb    #1        ; C2 01
  232.     addd    #1        ; C3 00 01
  233.     andb    #1        ; C4 01
  234.     bitb    #1        ; C5 01
  235.     ldab    #1        ; C6 01
  236.                 ; C7
  237.     eorb    #1        ; C8 01
  238.     adcb    #1        ; C9 01
  239.     orab    #1        ; CA 01
  240.     addb    #1        ; CB 01
  241.     ldd    #1        ; CC 00 01
  242.                 ; CD    PAGE 4
  243.     ldx    #1        ; CE 00 01
  244.     stop            ; CF
  245.     subb    *dirpag        ; D0 12
  246.     cmpb    *dirpag        ; D1 12
  247.     sbcb    *dirpag        ; D2 12
  248.     addd    *dirpag        ; D3 12
  249.     andb    *dirpag        ; D4 12
  250.     bitb    *dirpag        ; D5 12
  251.     ldab    *dirpag        ; D6 12
  252.     stab    *dirpag        ; D7 12
  253.     eorb    *dirpag        ; D8 12
  254.     adcb    *dirpag        ; D9 12
  255.     orab    *dirpag        ; DA 12
  256.     addb    *dirpag        ; DB 12
  257.     ldd    *dirpag        ; DC 12
  258.     std    *dirpag        ; DD 12
  259.     ldx    *dirpag        ; DE 12
  260.     stx    *dirpag        ; DF 12
  261.  
  262.  
  263.     .page
  264.  
  265.     subb    dirpag,x    ; E0 12
  266.     cmpb    dirpag,x    ; E1 12
  267.     sbcb    dirpag,x    ; E2 12
  268.     addd    dirpag,x    ; E3 12
  269.     andb    dirpag,x    ; E4 12
  270.     bitb    dirpag,x    ; E5 12
  271.     ldab    dirpag,x    ; E6 12
  272.     stab    dirpag,x    ; E7 12
  273.     eorb    dirpag,x    ; E8 12
  274.     adcb    dirpag,x    ; E9 12
  275.     orab    dirpag,x    ; EA 12
  276.     addb    dirpag,x    ; EB 12
  277.     ldd    dirpag,x    ; EC 12
  278.     std    dirpag,x    ; ED 12
  279.     ldx    dirpag,x    ; EE 12
  280.     stx    dirpag,x    ; EF 12
  281.     subb    ext        ; F0 12 34
  282.     cmpb    ext        ; F1 12 34
  283.     sbcb    ext        ; F2 12 34
  284.     addd    ext        ; F3 12 34
  285.     andb    ext        ; F4 12 34
  286.     bitb    ext        ; F5 12 34
  287.     ldab    ext        ; F6 12 34
  288.     stab    ext        ; F7 12 34
  289.     eorb    ext        ; F8 12 34
  290.     adcb    ext        ; F9 12 34
  291.     orab    ext        ; FA 12 34
  292.     addb    ext        ; FB 12 34
  293.     ldd    ext        ; FC 12 34
  294.     std    ext        ; FD 12 34
  295.     ldx    ext        ; FE 12 34
  296.     stx    ext        ; FF 12 34
  297.  
  298.     .page
  299.     .sbttl    Page 2 instructions
  300.  
  301.     iny            ; 18 08
  302.     dey            ; 18 09
  303.     tsy            ; 18 30
  304.     tys            ; 18 35
  305.     puly            ; 18 38
  306.     aby            ; 18 3A
  307.     pshy            ; 18 3C
  308.     cpy    #ext        ; 18 8C 12 34
  309.     xgdy            ; 18 8F
  310.     cpy    *dirpag        ; 18 9C 12
  311.  
  312.     suba    4,y        ; 18 A0 04
  313.     cmpa    4,y        ; 18 A1 04
  314.     sbca    4,y        ; 18 A2 04
  315.     subd    4,y        ; 18 A3 04
  316.     anda    4,y        ; 18 A4 04
  317.     bita    4,y        ; 18 A5 04
  318.     ldaa    4,y        ; 18 A6 04
  319.     staa    4,y        ; 18 A7 04
  320.     eora    4,y        ; 18 A8 04
  321.     adca    4,y        ; 18 A9 04
  322.     oraa    4,y        ; 18 AA 04
  323.     adda    4,y        ; 18 AB 04
  324.     cpy    4,y        ; 18 AC 04
  325.     jsr    4,y        ; 18 AD 04
  326.     lds    4,y        ; 18 AE 04
  327.     sts    4,y        ; 18 AF 04
  328.  
  329.     cpy    ext        ; 18 BC 12 34
  330.  
  331.     ldy    #ext        ; 18 CE 12 34
  332.     ldy    *dirpag        ; 18 DE 12
  333.     sty    *dirpag        ; 18 DF 12
  334.  
  335.     subb    dirpag,y    ; 18 E0 12
  336.     cmpb    dirpag,y    ; 18 E1 12
  337.     sbcb    dirpag,y    ; 18 E2 12
  338.     addd    dirpag,y    ; 18 E3 12
  339.     andb    dirpag,y    ; 18 E4 12
  340.     bitb    dirpag,y    ; 18 E5 12
  341.     ldab    dirpag,y    ; 18 E6 12
  342.     stab    dirpag,y    ; 18 E7 12
  343.     eorb    dirpag,y    ; 18 E8 12
  344.     adcb    dirpag,y    ; 18 E9 12
  345.     orab    dirpag,y    ; 18 EA 12
  346.     addb    dirpag,y    ; 18 EB 12
  347.     ldd    dirpag,y    ; 18 EC 12
  348.     std    dirpag,y    ; 18 ED 12
  349.     ldy    dirpag,y    ; 18 EE 12
  350.     sty    dirpag,y    ; 18 EF 12
  351.  
  352.     ldy    ext        ; 18 FE 12 23
  353.     sty    ext        ; 18 FF 12 34
  354.  
  355.     .page
  356.     .sbttl    Page 3 instructions
  357.  
  358.     cpd    #ext        ; 1C 83 12 34
  359.     cpd    *dirpag        ; 1C 93 12
  360.     cpd    4,x        ; 1C A3 04
  361.     cpy    4,x        ; 1C AC 04
  362.     cpd    ext        ; 1C B3 12 34
  363.     ldy    4,x        ; 1C EE 04
  364.     sty    4,x        ; 1C EF 04
  365.  
  366.     .sbttl    Page 4 instructions
  367.  
  368.     cpd    4,y        ; CD A3 04
  369.     cpx    4,y        ; CD AC 04
  370.     ldx    4,y        ; CD EE 04
  371.     stx    4,y        ; CD EF 04
  372.  
  373.