.title AS6805 Sequential Test .area DIRECT .setdp 0,DIRECT bit0 = 0 bit1 = 1 bit2 = 2 bit3 = 3 bit4 = 4 bit5 = 5 bit6 = 6 bit7 = 7 ext = 0x0123 ix2 = 0xABCD ix1 = 0x00EF begin: .byte 0 loca: .byte 0 locb: .byte 0 locc: .byte 0 locd: .byte 0 loce: .byte 0 .area AS6805A 1$: jsr 5$ ; CD __ __ jmp 5$ ; CC __ __ sub 5$ ; C0 __ __ jsr 6$ ; CD 00 00 jmp 7$ ; CC 00 03 sub 8$ ; C0 00 06 .page . = 1$+256 2$: brset #bit0,*loca, . ; 00 01 FD brclr #bit0,*loca,2$ ; 01 01 FA brset #bit1,*loca,2$ ; 02 01 F7 brclr #bit1,*loca,2$ ; 03 01 F4 brset #bit2,*loca,2$ ; 04 01 F1 brclr #bit2,*loca,2$ ; 05 01 EE brset #bit3,*loca,2$ ; 06 01 EB brclr #bit3,*loca,2$ ; 07 01 E8 brset #bit4,*loca,2$ ; 08 01 E5 brclr #bit4,*loca,2$ ; 09 01 E2 brset #bit5,*loca,2$ ; 0A 01 DF brclr #bit5,*loca,2$ ; 0B 01 DC brset #bit6,*loca,2$ ; 0C 01 D9 brclr #bit6,*loca,2$ ; 0D 01 D6 brset #bit7,*loca,2$ ; 0E 01 D3 brclr #bit7,*loca,2$ ; 0F 01 D0 bset #bit0,*locb ; 10 02 bclr #bit0,*locb ; 11 02 bset #bit1,*locb ; 12 02 bclr #bit1,*locb ; 13 02 bset #bit2,*locb ; 14 02 bclr #bit2,*locb ; 15 02 bset #bit3,*locb ; 16 02 bclr #bit3,*locb ; 17 02 bset #bit4,*locb ; 18 02 bclr #bit4,*locb ; 19 02 bset #bit5,*locb ; 1A 02 bclr #bit5,*locb ; 1B 02 bset #bit6,*locb ; 1C 02 bclr #bit6,*locb ; 1D 02 bset #bit7,*locb ; 1E 02 bclr #bit7,*locb ; 1F 02 3$: bra 3$ ; 20 FE brn 3$ ; 21 FC bhi 3$ ; 22 FA bls 3$ ; 23 F8 bcc 3$ ; 24 F6 bcs 3$ ; 25 F4 bne 3$ ; 26 F2 beq 3$ ; 27 F0 bhcc 3$ ; 28 EE bhcs 3$ ; 29 EC bpl 3$ ; 2A EA bmi 3$ ; 2B E8 bmc 3$ ; 2C E6 bms 3$ ; 2D E4 bil 3$ ; 2E E2 bih 3$ ; 2F E0 .page neg *locc ; 30 03 ; 31 ; 32 com *locc ; 33 03 lsr *locc ; 34 03 ; 35 ror *locc ; 36 03 asr *locc ; 37 03 lsl *locc ; 38 03 rol *locc ; 39 03 dec *locc ; 3A 03 ; 3B inc *locc ; 3C 03 tst *locc ; 3D 03 ; 3E clr *locc ; 3F 03 nega ; 40 ; 41 ; 42 coma ; 43 lsra ; 44 ; 45 rora ; 46 asra ; 47 lsla ; 48 rola ; 49 deca ; 4A ; 4B inca ; 4C tsta ; 4D ; 4E clra ; 4F negx ; 50 ; 51 ; 52 comx ; 53 lsrx ; 54 ; 55 rorx ; 56 asrx ; 57 lslx ; 58 rolx ; 59 decx ; 5A ; 5B incx ; 5C tstx ; 5D ; 5E clrx ; 5F .page neg locd,x ; 60 04 ; 61 ; 62 com locd,x ; 63 04 lsr locd,x ; 64 04 ; 65 ror locd,x ; 66 04 asr locd,x ; 67 04 lsl locd,x ; 68 04 rol locd,x ; 69 04 dec locd,x ; 6A 04 ; 6B inc locd,x ; 6C 04 tst locd,x ; 6D 04 ; 6E clr locd,x ; 6F 04 neg ,x ; 70 ; 71 ; 72 com ,x ; 73 lsr ,x ; 74 ; 75 ror ,x ; 76 asr ,x ; 77 lsl ,x ; 78 rol ,x ; 79 dec ,x ; 7A ; 7B inc ,x ; 7C tst ,x ; 7D ; 7E clr ,x ; 7F .page rti ; 80 rts ; 81 ; 82 swi ; 83 ; 84 ; 85 ; 86 ; 87 ; 88 ; 89 ; 8A ; 8B ; 8C ; 8D stop ; 8E wait ; 8F ; 90 ; 91 ; 92 ; 93 ; 94 ; 95 ; 96 tax ; 97 clc ; 98 sec ; 99 cli ; 9A sei ; 9B rsp ; 9C nop ; 9D ; 9E txa ; 9F .page sub #0x21 ; A0 21 cmp #0x21 ; A1 21 sbc #0x21 ; A2 21 cpx #0x21 ; A3 21 and #0x21 ; A4 21 bit #0x21 ; A5 21 lda #0x21 ; A6 21 ; A7 eor #0x21 ; A8 21 adc #0x21 ; A9 21 ora #0x21 ; AA 21 add #0x21 ; AB 21 ; AC 4$: bsr 4$ ; AD FE ldx #0x21 ; AE 21 ; AF sub *loce ; B0 05 cmp *loce ; B1 05 sbc *loce ; B2 05 cpx *loce ; B3 05 and *loce ; B4 05 bit *loce ; B5 05 lda *loce ; B6 05 sta *loce ; B7 05 eor *loce ; B8 05 adc *loce ; B9 05 ora *loce ; BA 05 add *loce ; BB 05 jmp *loce ; BC 05 jsr *loce ; BD 05 ldx *loce ; BE 05 stx *loce ; BF 05 sub ext ; C0 01 23 cmp ext ; C1 01 23 sbc ext ; C2 01 23 cpx ext ; C3 01 23 and ext ; C4 01 23 bit ext ; C5 01 23 lda ext ; C6 01 23 sta ext ; C7 01 23 eor ext ; C8 01 23 adc ext ; C9 01 23 ora ext ; CA 01 23 add ext ; CB 01 23 jmp ext ; CC 01 23 jsr ext ; CD 01 23 ldx ext ; CE 01 23 stx ext ; CF 01 23 .page sub ix2,x ; D0 AB CD cmp ix2,x ; D1 AB CD sbc ix2,x ; D2 AB CD cpx ix2,x ; D3 AB CD and ix2,x ; D4 AB CD bit ix2,x ; D5 AB CD lda ix2,x ; D6 AB CD sta ix2,x ; D7 AB CD eor ix2,x ; D8 AB CD adc ix2,x ; D9 AB CD ora ix2,x ; DA AB CD add ix2,x ; DB AB CD jmp ix2,x ; DC AB CD jsr ix2,x ; DD AB CD ldx ix2,x ; DE AB CD stx ix2,x ; DF AB CD sub ix1,x ; E0 EF cmp ix1,x ; E1 EF sbc ix1,x ; E2 EF cpx ix1,x ; E3 EF and ix1,x ; E4 EF bit ix1,x ; E5 EF lda ix1,x ; E6 EF sta ix1,x ; E7 EF eor ix1,x ; E8 EF adc ix1,x ; E9 EF ora ix1,x ; EA EF add ix1,x ; EB EF jmp ix1,x ; EC EF jsr ix1,x ; ED EF ldx ix1,x ; EE EF stx ix1,x ; EF EF sub ,x ; F0 cmp ,x ; F1 sbc ,x ; F2 cpx ,x ; F3 and ,x ; F4 bit ,x ; F5 lda ,x ; F6 sta ,x ; F7 eor ,x ; F8 adc ,x ; F9 ora ,x ; FA add ,x ; FB jmp ,x ; FC jsr ,x ; FD ldx ,x ; FE stx ,x ; FF .page 5$: jsr *begin ; BD __ jmp *begin ; BC __ sub *begin ; B0 __ .area AS6805B 6$: jsr 1$ ; CD __ __ 7$: jmp 1$ ; CC __ __ 8$: sub 1$ ; C0 __ __