home *** CD-ROM | disk | FTP | other *** search
/ The C Users' Group Library 1994 August / wc-cdrom-cusersgrouplibrary-1994-08.iso / vol_200 / 292_04 / t6805s.asm < prev    next >
Assembly Source File  |  1990-07-17  |  6KB  |  344 lines
  1.     .title    AS6805 Sequential Test
  2.  
  3.     .area    DIRECT
  4.  
  5.     .setdp    0,DIRECT
  6.  
  7.     bit0    =    0
  8.     bit1    =    1
  9.     bit2    =    2
  10.     bit3    =    3
  11.     bit4    =    4
  12.     bit5    =    5
  13.     bit6    =    6
  14.     bit7    =    7
  15.  
  16.     ext = 0x0123
  17.     ix2 = 0xABCD
  18.     ix1 = 0x00EF
  19.  
  20. begin:    .byte    0
  21. loca:    .byte    0
  22. locb:    .byte    0
  23. locc:    .byte    0
  24. locd:    .byte    0
  25. loce:    .byte    0
  26.  
  27.  
  28.     .area    AS6805A
  29.  
  30. 1$:    jsr    5$        ; CD __ __
  31.     jmp    5$        ; CC __ __
  32.     sub    5$        ; C0 __ __
  33.  
  34.     jsr    6$        ; CD 00 00
  35.     jmp    7$        ; CC 00 03
  36.     sub    8$        ; C0 00 06
  37.  
  38.  
  39.     .page
  40.  
  41.     . = 1$+256
  42.  
  43. 2$:    brset    #bit0,*loca, .    ; 00 01 FD
  44.     brclr    #bit0,*loca,2$    ; 01 01 FA
  45.     brset    #bit1,*loca,2$    ; 02 01 F7
  46.     brclr    #bit1,*loca,2$    ; 03 01 F4
  47.     brset    #bit2,*loca,2$    ; 04 01 F1
  48.     brclr    #bit2,*loca,2$    ; 05 01 EE
  49.     brset    #bit3,*loca,2$    ; 06 01 EB
  50.     brclr    #bit3,*loca,2$    ; 07 01 E8
  51.     brset    #bit4,*loca,2$    ; 08 01 E5
  52.     brclr    #bit4,*loca,2$    ; 09 01 E2
  53.     brset    #bit5,*loca,2$    ; 0A 01 DF
  54.     brclr    #bit5,*loca,2$    ; 0B 01 DC
  55.     brset    #bit6,*loca,2$    ; 0C 01 D9
  56.     brclr    #bit6,*loca,2$    ; 0D 01 D6
  57.     brset    #bit7,*loca,2$    ; 0E 01 D3
  58.     brclr    #bit7,*loca,2$    ; 0F 01 D0
  59.  
  60.     bset    #bit0,*locb    ; 10 02
  61.     bclr    #bit0,*locb    ; 11 02
  62.     bset    #bit1,*locb    ; 12 02
  63.     bclr    #bit1,*locb    ; 13 02
  64.     bset    #bit2,*locb    ; 14 02
  65.     bclr    #bit2,*locb    ; 15 02
  66.     bset    #bit3,*locb    ; 16 02
  67.     bclr    #bit3,*locb    ; 17 02
  68.     bset    #bit4,*locb    ; 18 02
  69.     bclr    #bit4,*locb    ; 19 02
  70.     bset    #bit5,*locb    ; 1A 02
  71.     bclr    #bit5,*locb    ; 1B 02
  72.     bset    #bit6,*locb    ; 1C 02
  73.     bclr    #bit6,*locb    ; 1D 02
  74.     bset    #bit7,*locb    ; 1E 02
  75.     bclr    #bit7,*locb    ; 1F 02
  76.  
  77. 3$:    bra    3$        ; 20 FE
  78.     brn    3$        ; 21 FC
  79.     bhi    3$        ; 22 FA
  80.     bls    3$        ; 23 F8
  81.     bcc    3$        ; 24 F6
  82.     bcs    3$        ; 25 F4
  83.     bne    3$        ; 26 F2
  84.     beq    3$        ; 27 F0
  85.     bhcc    3$        ; 28 EE
  86.     bhcs    3$        ; 29 EC
  87.     bpl    3$        ; 2A EA
  88.     bmi    3$        ; 2B E8
  89.     bmc    3$        ; 2C E6
  90.     bms    3$        ; 2D E4
  91.     bil    3$        ; 2E E2
  92.     bih    3$        ; 2F E0
  93.  
  94.  
  95.     .page
  96.  
  97.     neg    *locc        ; 30 03
  98.                 ; 31
  99.                 ; 32
  100.     com    *locc        ; 33 03
  101.     lsr    *locc        ; 34 03
  102.                 ; 35
  103.     ror    *locc        ; 36 03
  104.     asr    *locc        ; 37 03
  105.     lsl    *locc        ; 38 03
  106.     rol    *locc        ; 39 03
  107.     dec    *locc        ; 3A 03
  108.                 ; 3B
  109.     inc    *locc        ; 3C 03
  110.     tst    *locc        ; 3D 03
  111.                 ; 3E
  112.     clr    *locc        ; 3F 03
  113.  
  114.     nega            ; 40
  115.                 ; 41
  116.                 ; 42
  117.     coma            ; 43
  118.     lsra            ; 44
  119.                 ; 45
  120.     rora            ; 46
  121.     asra            ; 47
  122.     lsla            ; 48
  123.     rola            ; 49
  124.     deca            ; 4A
  125.                 ; 4B
  126.     inca            ; 4C
  127.     tsta            ; 4D
  128.                 ; 4E
  129.     clra            ; 4F
  130.  
  131.     negx            ; 50
  132.                 ; 51
  133.                 ; 52
  134.     comx            ; 53
  135.     lsrx            ; 54
  136.                 ; 55
  137.     rorx            ; 56
  138.     asrx            ; 57
  139.     lslx            ; 58
  140.     rolx            ; 59
  141.     decx            ; 5A
  142.                 ; 5B
  143.     incx            ; 5C
  144.     tstx            ; 5D
  145.                 ; 5E
  146.     clrx            ; 5F
  147.  
  148.  
  149.     .page
  150.  
  151.     neg    locd,x        ; 60 04
  152.                 ; 61
  153.                 ; 62
  154.     com    locd,x        ; 63 04
  155.     lsr    locd,x        ; 64 04
  156.                 ; 65
  157.     ror    locd,x        ; 66 04
  158.     asr    locd,x        ; 67 04
  159.     lsl    locd,x        ; 68 04
  160.     rol    locd,x        ; 69 04
  161.     dec    locd,x        ; 6A 04
  162.                 ; 6B
  163.     inc    locd,x        ; 6C 04
  164.     tst    locd,x        ; 6D 04
  165.                 ; 6E
  166.     clr    locd,x        ; 6F 04
  167.  
  168.     neg    ,x        ; 70
  169.                 ; 71
  170.                 ; 72
  171.     com    ,x        ; 73
  172.     lsr    ,x        ; 74
  173.                 ; 75
  174.     ror    ,x        ; 76
  175.     asr    ,x        ; 77
  176.     lsl    ,x        ; 78
  177.     rol    ,x        ; 79
  178.     dec    ,x        ; 7A
  179.                 ; 7B
  180.     inc    ,x        ; 7C
  181.     tst    ,x        ; 7D
  182.                 ; 7E
  183.     clr    ,x        ; 7F
  184.  
  185.  
  186.     .page
  187.  
  188.     rti            ; 80
  189.     rts            ; 81
  190.                 ; 82
  191.     swi            ; 83
  192.                 ; 84
  193.                 ; 85
  194.                 ; 86
  195.                 ; 87
  196.                 ; 88
  197.                 ; 89
  198.                 ; 8A
  199.                 ; 8B
  200.                 ; 8C
  201.                 ; 8D 
  202.     stop            ; 8E
  203.     wait            ; 8F
  204.  
  205.                 ; 90
  206.                 ; 91
  207.                 ; 92
  208.                 ; 93
  209.                 ; 94
  210.                 ; 95
  211.                 ; 96
  212.     tax            ; 97
  213.     clc            ; 98
  214.     sec            ; 99
  215.     cli            ; 9A
  216.     sei            ; 9B
  217.     rsp            ; 9C
  218.     nop            ; 9D 
  219.                 ; 9E
  220.     txa            ; 9F
  221.  
  222.                 
  223.     .page
  224.  
  225.     sub    #0x21        ; A0 21
  226.     cmp    #0x21        ; A1 21
  227.     sbc    #0x21        ; A2 21
  228.     cpx    #0x21        ; A3 21
  229.     and    #0x21        ; A4 21
  230.     bit    #0x21        ; A5 21
  231.     lda    #0x21        ; A6 21
  232.                 ; A7
  233.     eor    #0x21        ; A8 21
  234.     adc    #0x21        ; A9 21
  235.     ora    #0x21        ; AA 21
  236.     add    #0x21        ; AB 21
  237.                 ; AC
  238. 4$:    bsr    4$        ; AD FE
  239.     ldx    #0x21        ; AE 21
  240.                 ; AF
  241.  
  242.     sub    *loce        ; B0 05
  243.     cmp    *loce        ; B1 05
  244.     sbc    *loce        ; B2 05
  245.     cpx    *loce        ; B3 05
  246.     and    *loce        ; B4 05
  247.     bit    *loce        ; B5 05
  248.     lda    *loce        ; B6 05
  249.     sta    *loce        ; B7 05
  250.     eor    *loce        ; B8 05
  251.     adc    *loce        ; B9 05
  252.     ora    *loce        ; BA 05
  253.     add    *loce        ; BB 05
  254.     jmp    *loce        ; BC 05
  255.     jsr    *loce        ; BD 05
  256.     ldx    *loce        ; BE 05
  257.     stx    *loce        ; BF 05
  258.  
  259.     sub    ext        ; C0 01 23
  260.     cmp    ext        ; C1 01 23
  261.     sbc    ext        ; C2 01 23
  262.     cpx    ext        ; C3 01 23
  263.     and    ext        ; C4 01 23
  264.     bit    ext        ; C5 01 23
  265.     lda    ext        ; C6 01 23
  266.     sta    ext        ; C7 01 23
  267.     eor    ext        ; C8 01 23
  268.     adc    ext        ; C9 01 23
  269.     ora    ext        ; CA 01 23
  270.     add    ext        ; CB 01 23
  271.     jmp    ext        ; CC 01 23
  272.     jsr    ext        ; CD 01 23
  273.     ldx    ext        ; CE 01 23
  274.     stx    ext        ; CF 01 23
  275.  
  276.  
  277.     .page
  278.  
  279.     sub    ix2,x        ; D0 AB CD
  280.     cmp    ix2,x        ; D1 AB CD
  281.     sbc    ix2,x        ; D2 AB CD
  282.     cpx    ix2,x        ; D3 AB CD
  283.     and    ix2,x        ; D4 AB CD
  284.     bit    ix2,x        ; D5 AB CD
  285.     lda    ix2,x        ; D6 AB CD
  286.     sta    ix2,x        ; D7 AB CD
  287.     eor    ix2,x        ; D8 AB CD
  288.     adc    ix2,x        ; D9 AB CD
  289.     ora    ix2,x        ; DA AB CD
  290.     add    ix2,x        ; DB AB CD
  291.     jmp    ix2,x        ; DC AB CD
  292.     jsr    ix2,x        ; DD AB CD
  293.     ldx    ix2,x        ; DE AB CD
  294.     stx    ix2,x        ; DF AB CD
  295.  
  296.     sub    ix1,x        ; E0 EF
  297.     cmp    ix1,x        ; E1 EF
  298.     sbc    ix1,x        ; E2 EF
  299.     cpx    ix1,x        ; E3 EF
  300.     and    ix1,x        ; E4 EF
  301.     bit    ix1,x        ; E5 EF
  302.     lda    ix1,x        ; E6 EF
  303.     sta    ix1,x        ; E7 EF
  304.     eor    ix1,x        ; E8 EF
  305.     adc    ix1,x        ; E9 EF
  306.     ora    ix1,x        ; EA EF
  307.     add    ix1,x        ; EB EF
  308.     jmp    ix1,x        ; EC EF
  309.     jsr    ix1,x        ; ED EF
  310.     ldx    ix1,x        ; EE EF
  311.     stx    ix1,x        ; EF EF
  312.  
  313.     sub    ,x        ; F0
  314.     cmp    ,x        ; F1
  315.     sbc    ,x        ; F2
  316.     cpx    ,x        ; F3
  317.     and    ,x        ; F4
  318.     bit    ,x        ; F5
  319.     lda    ,x        ; F6
  320.     sta    ,x        ; F7
  321.     eor    ,x        ; F8
  322.     adc    ,x        ; F9
  323.     ora    ,x        ; FA
  324.     add    ,x        ; FB
  325.     jmp    ,x        ; FC
  326.     jsr    ,x        ; FD
  327.     ldx    ,x        ; FE
  328.     stx    ,x        ; FF
  329.  
  330.  
  331.     .page
  332.  
  333. 5$:    jsr    *begin        ; BD __
  334.     jmp    *begin        ; BC __
  335.     sub    *begin        ; B0 __
  336.  
  337.     .area    AS6805B
  338.  
  339. 6$:    jsr    1$        ; CD __ __
  340. 7$:    jmp    1$        ; CC __ __
  341. 8$:    sub    1$        ; C0 __ __
  342.  
  343.  
  344.