10 REM > All6809/src
   20 REM Assemble all 6809 opcodes
   30 :
   40 outfile$="6809"
   50 ON ERROR REPORT:PRINT " at line ";ERL:END
   60 IF HIMEM>&FFFF:SYS "OS_GetEnv"TOA$:IFLEFT$(A$,5)<>"B6809":OSCLI"B6809"+MID$(A$,INSTR(A$," "))
   70 :
   80 dp=&12
   90 imm=&34
  100 ext=&5678
  110 n16=&9ABC
  120 load%=&8000
  130 DIM mcode% &1000
  140 :
  150 REM OPT
  160 REM   1 output listing
  170 REM   2 report undefined variables
  180 REM   4 object code at O%
  190 REM   8 limit in L%
  200 REM  16 6309 opcodes  (65816, ARM+1)
  210 REM  32               (ARM+2)
  220 REM  64               (64-bit)
  230 REM 128
  240 :
  250 FOR opt%=4 TO 7 STEP 3
  260   P%=load%:O%=mcode%
  270   [OPT opt%
  280   .exec%
  290   ; comment
  300   \ comment
  310   :
  320   :
  330   NEG  <dp    ; 00
  340   EQUB &01    ; 01
  350   EQUB &02    ; 02 = AIM  <dp ; 6309
  360   COM  <dp    ; 03
  370   LSR  <dp    ; 04
  380   EQUB &05    ; 05
  390   ROR  <dp    ; 06
  400   ASR  <dp    ; 07
  410   ASL  <dp    ; 08
  420   ROL  <dp    ; 09
  430   DEC  <dp    ; 0A
  440   EQUB &0B    ; 0B
  450   INC  <dp    ; 0C
  460   TST  <dp    ; 0D
  470   JMP  <dp    ; 0E
  480   CLR  <dp    ; 0F
  490   ;
  500   EQUB &10    ; 10 prefix
  510   EQUB &11    ; 11 prefix
  520   NOP         ; 12
  530   SYNC        ; 13
  540   EQUB &14    ; 14 = SEXW     ; 6309
  550   EQUB &15    ; 15
  560   LBRA rel16  ; 16
  570   LBSR rel16  ; 17
  580   EQUB &18    ; 18
  590   DAA         ; 19
  600   ORCC #imm   ; 1A
  610   EQUB &1B    ; 1B
  620   ANDCC #imm  ; 1C
  630   SEX         ; 1D
  640   ;
  650   EXG  X,Y    ; 1E 12
  660   EXG  Y,U    ; 1E 24
  670   EXG  U,S    ; 1E 43
  680   EXG  S,X    ; 1E 31
  690   EXG  A,B    ; 1E 89
  700   EXG  B,CC   ; 1E 9A
  710   EXG  CC,DP  ; 1E AB
  720   EXG  DP,A   ; 1E B8
  730   ;
  740   TFR  X,Y    ; 1F 12
  750   TFR  Y,U    ; 1F 24
  760   TFR  U,S    ; 1F 43
  770   TFR  S,X    ; 1F 31
  780   TFR  A,B    ; 1F 89
  790   TFR  B,CC   ; 1F 9A
  800   TFR  CC,DP  ; 1F AB
  810   TFR  DP,A   ; 1F B8
  820   .rel16
  830   ;
  840   BRA  rel8   ; 20
  850   BRN  rel8   ; 21
  860   BHI  rel8   ; 22
  870   BLS  rel8   ; 23
  880   BCC  rel8   ; 24
  890   BCS  rel8   ; 25
  900   BNE  rel8   ; 26
  910   BEQ  rel8   ; 27
  920   BVC  rel8   ; 28
  930   BVS  rel8   ; 29
  940   BPL  rel8   ; 2A
  950   BMI  rel8   ; 2B
  960   BGE  rel8   ; 2C
  970   BLT  rel8   ; 2D
  980   BGT  rel8   ; 2E
  990   BLE  rel8   ; 2F
 1000   .rel8
 1010   ;
 1020   ; idx 0rrnnnnn
 1030   LEAX -9,X   ; 30 17
 1040   LEAY -5,Y   ; 31 3B
 1050   LEAS 5,U    ; 32 45
 1060   LEAU 9,S    ; 33 69
 1070   ;
 1080   PSHS CC                 ; 34 01
 1090   PSHS CC,A               ; 34 03
 1100   PSHS CC,A,B             ; 34 07
 1110   PSHS CC,A,B,DP          ; 34 0F
 1120   PSHS CC,A,B,DP,X        ; 34 1F
 1130   PSHS CC,A,B,DP,X,Y      ; 34 3F
 1140   PSHS CC,A,B,DP,X,Y,S    ; 34 7F
 1150   PSHS CC,A,B,DP,X,Y,S,PC ; 34 FF
 1160   ;
 1170   PULS CC                 ; 35 01
 1180   PULS CC,A               ; 35 03
 1190   PULS CC,A,B             ; 35 07
 1200   PULS CC,A,B,DP          ; 35 0F
 1210   PULS CC,A,B,DP,X        ; 35 1F
 1220   PULS CC,A,B,DP,X,Y      ; 35 3F
 1230   PULS CC,A,B,DP,X,Y,S    ; 35 7F
 1240   PULS CC,A,B,DP,X,Y,S,PC ; 35 FF
 1250   ;
 1260   PSHU CC                 ; 36 01
 1270   PSHU CC,A               ; 36 03
 1280   PSHU CC,A,B             ; 36 07
 1290   PSHU CC,A,B,DP          ; 36 0F
 1300   PSHU CC,A,B,DP,X        ; 36 1F
 1310   PSHU CC,A,B,DP,X,Y      ; 36 3F
 1320   PSHU CC,A,B,DP,X,Y,S    ; 36 7F
 1330   PSHU CC,A,B,DP,X,Y,S,PC ; 36 FF
 1340   ;
 1350   PULU CC                 ; 37 01
 1360   PULU CC,A               ; 37 03
 1370   PULU CC,A,B             ; 37 07
 1380   PULU CC,A,B,DP          ; 37 0F
 1390   PULU CC,A,B,DP,X        ; 37 1F
 1400   PULU CC,A,B,DP,X,Y      ; 37 3F
 1410   PULU CC,A,B,DP,X,Y,S    ; 37 7F
 1420   PULU CC,A,B,DP,X,Y,S,PC ; 37 FF
 1430   ;
 1440   EQUB &38    ; 38 = CWAI  ; 6309
 1450   RTS         ; 39
 1460   ABX         ; 3A
 1470   RTI         ; 3B
 1480   CWAI #imm   ; 3C
 1490   MUL         ; 3D
 1500   EQUB &3E    ; 3E = RESET ; 6309
 1510   SWI         ; 3F
 1520   ;
 1530   NEGA        ; 40
 1540   EQUB &41    ; 41
 1550   EQUB &42    ; 42
 1560   COMA        ; 43
 1570   LSRA        ; 44
 1580   EQUB &45    ; 45
 1590   RORA        ; 46
 1600   ASRA        ; 47
 1610   ASLA        ; 48
 1620   ROLA        ; 49
 1630   DECA        ; 4A
 1640   EQUB &4B    ; 4B
 1650   INCA        ; 4C
 1660   TSTA        ; 4D
 1670   EQUB &4E    ; 4E
 1680   CLRA        ; 4F
 1690   ;
 1700   NEGB        ; 50
 1710   EQUB &51    ; 51
 1720   EQUB &52    ; 52
 1730   COMB        ; 53
 1740   LSRB        ; 54
 1750   EQUB &55    ; 55
 1760   RORB        ; 56
 1770   ASRB        ; 57
 1780   ASLB        ; 58
 1790   ROLB        ; 59
 1800   DECB        ; 5A
 1810   EQUB &5B    ; 5B
 1820   INCB        ; 5C
 1830   TSTB        ; 5D
 1840   EQUB &5E    ; 5E
 1850   CLRB        ; 5F
 1860   ;
 1870   ; idx 1rr00000 ,R+
 1880   NEG ,X+     ; 60 80
 1890   ; neg idx   ; 61
 1900   ; com idx   ; 62
 1910   COM ,Y+     ; 63 A0
 1920   LSR ,U+     ; 64 C0
 1930   ; lsr idx   ; 65
 1940   ROR ,S+     ; 66 E0
 1950   ;
 1960   ; idx 1rr00001 ,R++
 1970   ASR ,X++    ; 67 81
 1980   ASL ,Y++    ; 68 A1
 1990   ROL ,U++    ; 69 C1
 2000   DEC ,S++    ; 6A E1
 2010   ; dec idx   ; 6B
 2020   ;
 2030   ; idx 1rr00010 ,-R
 2040   INC ,-X     ; 6C 82
 2050   TST ,-Y     ; 6D A2
 2060   JMP ,-U     ; 6E C2
 2070   CLR ,-S     ; 6F E2
 2080   ;
 2090   NEG  >ext   ; 70
 2100   EQUB &71    ; 71
 2110   EQUB &72    ; 72
 2120   COM  >ext   ; 73
 2130   LSR  >ext   ; 74
 2140   EQUB &75    ; 75
 2150   ROR  >ext   ; 76
 2160   ASR  >ext   ; 77
 2170   ASL  >ext   ; 78
 2180   ROL  >ext   ; 79
 2190   DEC  >ext   ; 7A
 2200   EQUB &7B    ; 7B
 2210   INC  >ext   ; 7C
 2220   TST  >ext   ; 7D
 2230   JMP  >ext   ; 7E
 2240   CLR  >ext   ; 7F
 2250   ;
 2260   SUBA #imm   ; 80
 2270   CMPA #imm   ; 81
 2280   SBCA #imm   ; 82
 2290   SUBD #n16   ; 83
 2300   ANDA #imm   ; 84
 2310   BITA #imm   ; 85
 2320   LDA  #imm   ; 86
 2330   EQUB &87    ; 87
 2340   EORA #imm   ; 88
 2350   ADCA #imm   ; 89
 2360   ORA  #imm   ; 8A
 2370   ADDA #imm   ; 8B
 2380   CMPX #n16   ; 8C
 2390   BSR  rel8   ; 8D
 2400   LDX  #n16   ; 8E
 2410   EQUB &8F    ; 8F
 2420   ;
 2430   SUBA <dp    ; 90
 2440   CMPA <dp    ; 91
 2450   SBCA <dp    ; 92
 2460   SUBD <dp    ; 93
 2470   ANDA <dp    ; 94
 2480   BITA <dp    ; 95
 2490   LDA  <dp    ; 96
 2500   STA  <dp    ; 97
 2510   EORA <dp    ; 98
 2520   ADCA <dp    ; 99
 2530   ORA  <dp    ; 9A
 2540   ADDA <dp    ; 9B
 2550   CMPX <dp    ; 9C
 2560   JSR  <dp    ; 9D
 2570   LDX  <dp    ; 9E
 2580   STX  <dp    ; 9F
 2590   ;
 2600   ; idx 1rr00011 ,--R
 2610   SUBA ,--X   ; A0 83
 2620   CMPA ,--Y   ; A1 A3
 2630   SBCA ,--U   ; A2 C3
 2640   SUBD ,--S   ; A3 E3
 2650   ;
 2660   ; idx 1rr00100 ,R
 2670   ANDA ,X     ; A4 84
 2680   BITA ,Y     ; A5 A4
 2690   LDA  ,U     ; A6 C4
 2700   STA  ,S     ; A7 E4
 2710   ;
 2720   ; idx 1rr00101 B,R
 2730   EORA B,X    ; A8 85
 2740   ADCA B,Y    ; A9 A5
 2750   ORA  B,U    ; AA C5
 2760   ADDA B,S    ; AB E5
 2770   ;
 2780   ; idx 1rr00110 A,R
 2790   CMPX A,X    ; AC 86
 2800   JSR  A,Y    ; AD A6
 2810   LDX  A,U    ; AE C6
 2820   STX  A,S    ; AF E6
 2830   ;
 2840   SUBA >ext   ; B0
 2850   CMPA >ext   ; B1
 2860   SBCA >ext   ; B2
 2870   SUBD >ext   ; B3
 2880   ANDA >ext   ; B4
 2890   BITA >ext   ; B5
 2900   LDA  >ext   ; B6
 2910   STA  >ext   ; B7
 2920   EORA >ext   ; B8
 2930   ADCA >ext   ; B9
 2940   ORA  >ext   ; BA
 2950   ADDA >ext   ; BB
 2960   CMPX >ext   ; BC
 2970   JSR  >ext   ; BD
 2980   LDX  >ext   ; BE
 2990   STX  >ext   ; BF
 3000   ;
 3010   SUBB #imm   ; C0
 3020   CMPB #imm   ; C1
 3030   SBCB #imm   ; C2
 3040   ADDD #n16   ; C3
 3050   ANDB #imm   ; C4
 3060   BITB #imm   ; C5
 3070   LDB  #imm   ; C6
 3080   EQUB &C7    ; C7
 3090   EORB #imm   ; C8
 3100   ADCB #imm   ; C9
 3110   ORB  #imm   ; CA
 3120   ADDB #imm   ; CB
 3130   LDD  #n16   ; CC
 3140   EQUB &CD    ; CD = LDQ #n32 ; 6309
 3150   LDU  #n16   ; CE
 3160   EQUB &CF    ; CF
 3170   ;
 3180   SUBB <dp    ; D0
 3190   CMPB <dp    ; D1
 3200   SBCB <dp    ; D2
 3210   ADDD <dp    ; D3
 3220   ANDB <dp    ; D4
 3230   BITB <dp    ; D5
 3240   LDB  <dp    ; D6
 3250   STB  <dp    ; D7
 3260   EORB <dp    ; D8
 3270   ADCB <dp    ; D9
 3280   ORB  <dp    ; DA
 3290   ADDB <dp    ; DB
 3300   LDD  <dp    ; DC
 3310   STD  <dp    ; DD
 3320   LDU  <dp    ; DE
 3330   STU  <dp    ; DF
 3340   ;
 3350   ; idx 1rr00111    - not used
 3360   ; idx 1rr01000 nn - n,R (n<-8, n>7)
 3370   SUBB -64,X  ; E0 88 C0
 3380   CMPB -32,Y  ; E1 A8 E0
 3390   SBCB 32,U   ; E2 C8 20
 3400   ADDD 64,S   ; E3 E8 40
 3410   ;
 3420   ; idx 1rr01001 hh ll - n16,R
 3430   ANDB -6400,X ; E4 89
 3440   BITB -3200,Y ; E5 A9
 3450   LDB  3200,U  ; E6 C9 0C 80
 3460   STB  6400,Y  ; E7 E9 19 00
 3470   ;
 3480   ; idx 1rr01010     - not used
 3490   ; idx 1rr01011 D,R
 3500   EORB D,X    ; E8 8B
 3510   ADCB D,Y    ; E9 AB
 3520   ORB  D,U    ; EA CB
 3530   ADDB D,S    ; EB EB
 3540   ;
 3550   ; idx 1rr01100 n,PCR
 3560   .near1
 3570   LDD  near2,PCR   ; EC 8C 09
 3580   STD  near2,PCR   ; ED AC 06
 3590   LDU  near1,PCR   ; EE CC F7
 3600   STU  near1,PCR   ; EF EC F4
 3610   .near2
 3620   ;
 3630   ; idx 1rr01101 n16,PCR
 3640   LDD  &2000,PCR  ; EC 8D hi lo
 3650   STD  &4000,PCR  ; ED AD hi lo
 3660   LDU  &C000,PCR  ; EE CD hi lo
 3670   STU  &E000,PCR  ; EF ED hi lo
 3680   ;
 3690   SUBB >ext   ; F0
 3700   CMPB >ext   ; F1
 3710   SBCB >ext   ; F2
 3720   ADDD >ext   ; F3
 3730   ANDB >ext   ; F4
 3740   BITB >ext   ; F5
 3750   LDB  >ext   ; F6
 3760   STB  >ext   ; F7
 3770   EORB >ext   ; F8
 3780   ADCB >ext   ; F9
 3790   ORB  >ext   ; FA
 3800   ADDB >ext   ; FB
 3810   LDD  >ext   ; FC
 3820   STD  >ext   ; FD
 3830   LDU  >ext   ; FE
 3840   STU  >ext   ; FF
 3850   ;
 3860   ; Indirect indexed addressing modes
 3870   ; 1rr10001 [,R++]
 3880   LDA [,X++]  ; A6 91
 3890   LDA [,Y++]  ; A6 B1
 3900   LDA [,U++]  ; A6 D1
 3910   LDA [,S++]  ; A6 F1
 3920   ;
 3930   ; 1rr10011 [,--R]
 3940   LDA [,--X]  ; A6 93
 3950   LDA [,--Y]  ; A6 B3
 3960   LDA [,--U]  ; A6 D3
 3970   LDA [,--S]  ; A6 F3
 3980   ;
 3990   ; 1rr10100 [,R]
 4000   LDA [,X]    ; A6 94
 4010   LDA [,Y]    ; A6 B4
 4020   LDA [,U]    ; A6 D4
 4030   LDA [,S]    ; A6 F4
 4040   ;
 4050   ; 1rr10101 [B,R]
 4060   LDA [B,X]   ; A6 95
 4070   LDA [B,Y]   ; A6 B5
 4080   LDA [B,U]   ; A6 D5
 4090   LDA [B,S]   ; A6 F5
 4100   ;
 4110   ; 1rr10110 [A,R]
 4120   LDA [A,X]   ; A6 96
 4130   LDA [A,Y]   ; A6 B6
 4140   LDA [A,U]   ; A6 D6
 4150   LDA [A,S]   ; A6 F6
 4160   ;
 4170   ; 1rr11000 nn [n,R]
 4180   LDA [-64,X] ; A6 98 C0
 4190   LDA [-32,Y] ; A6 B8 E0
 4200   LDA [32,U]  ; A6 D8 20
 4210   LDA [64,S]  ; A6 F8 40
 4220   ;
 4230   ; 1rr11001 hh ll [n16,R]
 4240   LDA [-6400,X]   ; A6 99 xx xx
 4250   LDA [-3200,Y]   ; A6 B9 xx xx
 4260   LDA [3200,U]    ; A6 D9 0C 80
 4270   LDA [6400,S]    ; A6 F9 19 00
 4280   ;
 4290   ; 1rr11011 [D,R]
 4300   LDA [D,X]       ; A6 9B
 4310   LDA [D,Y]       ; A6 BB
 4320   LDA [D,U]       ; A6 DB
 4330   LDA [D,S]       ; A6 FB
 4340   ;
 4350   ; 10011100 nn [n,PCR]
 4360   .near3
 4370   LDA [near4,PCR] ; A6 9C 09
 4380   LDA [near4,PCR] ; A6 BC 06
 4390   LDA [near3,PCR] ; A6 DC F7
 4400   LDA [near3,PCR] ; A6 FC F4
 4410   .near4
 4420   ;
 4430   ; 10011101 hh ll [n16,PCR]
 4440   LDA [&2000,PCR] ; A6 9D hi lo
 4450   LDA [&4000,PCR] ; A6 BD hi lo
 4460   LDA [&C000,PCR] ; A6 DD hi lo
 4470   LDA [&E000,PCR] ; A6 FD hi lo
 4480   ;
 4490   ; 10011111 hh ll [n16]
 4500   LDA [&4000]     ; A6 9F 40 00
 4510   LDA [&8000]     ; A6 BF 80 00
 4520   LDA [&C000]     ; A6 DF C0 00
 4530   LDA [&E000]     ; A6 FF E0 00
 4540   ;
 4550   ;
 4560   ; 10 PREFIX
 4570   ; ---------
 4580   EQUW &2010  ; 10 20 - LBRA rel16 -> 16 xx xx
 4590   LBRN rel16  ; 10 21
 4600   LBHI rel16  ; 10 22
 4610   LBLS rel16  ; 10 23
 4620   LBCC rel16  ; 10 24
 4630   LBCS rel16  ; 10 25
 4640   LBNE rel16  ; 10 26
 4650   LBEQ rel16  ; 10 27
 4660   LBVC rel16  ; 10 28
 4670   LBVS rel16  ; 10 29
 4680   LBPL rel16  ; 10 2A
 4690   LBMI rel16  ; 10 2B
 4700   LBGE rel16  ; 10 2C
 4710   LBLT rel16  ; 10 2D
 4720   LBGT rel16  ; 10 2E
 4730   LBLE rel16  ; 10 2F
 4740   ;
 4750   SWI2        ; 10 3F
 4760   ;
 4770   CMPD #n16   ; 10 83
 4780   CMPY #n16   ; 10 8C
 4790   LDY  #n16   ; 10 8E
 4800   CMPD <dp    ; 10 93
 4810   CMPY <dp    ; 10 9C
 4820   LDY  <dp    ; 10 9E
 4830   STY  <dp    ; 10 9F
 4840   ;CMPD idx   ; 10 A3
 4850   ;CMPY idx   ; 10 AC
 4860   ;LDY  idx   ; 10 AE
 4870   ;STY  idx   ; 10 AF
 4880   CMPD >ext   ; 10 B3
 4890   CMPY >ext   ; 10 BC
 4900   LDY  >ext   ; 10 BE
 4910   LDS  >ext   ; 10 BF
 4920   LDS  #n16   ; 10 CE
 4930   LDS  <dp    ; 10 DE
 4940   STS  <dp    ; 10 DF
 4950   ;LDS  idx   ; 10 EE
 4960   ;STS  idx   ; 10 EF
 4970   LDS  >ext   ; 10 FE
 4980   STS  >ext   ; 10 FF
 4990   ;
 5000   ; 11 PREFIX
 5010   ; ---------
 5020   SWI3        ; 11 3F
 5030   CMPU #n16   ; 11 83
 5040   CMPS #n16   ; 11 8C
 5050   CMPU <dp    ; 11 93
 5060   CMPS <dp    ; 11 9C
 5070   ;CMPU idx   ; 11 A3
 5080   ;CMPS idx   ; 11 AC
 5090   CMPU >ext   ; 11 B3
 5100   CMPS >ext   ; 11 BC
 5110   ;
 5120   DCB &12        ; 12
 5130   DCW &1234      ; 12 34
 5140   DCD &12345678  ; 12 34 56 78
 5150   ;
 5160   EQUB &12       ; 12
 5170   EQUW &1234     ; 34 12
 5180   EQUD &12345678 ; 78 56 34 12
 5190   EQUS "HELLO WORLD"
 5200   SWI:EQUB 254:EQUS "Bad command":EQUB 0
 5210   SWI:DCB 254:EQUS "Bad command":DCB 0   ; DCS?
 5220   ;
 5230   ;
 5240   ;
 5250   ;    #imm   - 8bit immediate number
 5260   ;    #n16   - 16bit immediate number
 5270   ;    #n32   - 32bit immediate number
 5280   ;    <dp    - 8bit direct page address
 5290   ;    >ext   - 16bit absolute address
 5300   ;    rel    - 8bit relative offset
 5310   ;    rel16  - 16bit relative offset
 5320   ;    regs   - register map
 5330   ;    idx    - indexed addressing mode, see next table
 5340   ;    r0,r1  - next byte contains <r0,r1>
 5350   ;    Opcodes in lower case in the above list are 'undocumented'.
 5360   ;
 5370   ; Indexed (idx) addressing mode
 5380   ; -----------------------------
 5390   ; Specified by a post-byte, after the opcode and before any additional data.
 5400   ;
 5410   ;   postbyte data      assembler        postbyte data      assembler
 5420   ;   0rrnnnnn           n,R           |
 5430   ;   1rr00000           ,R+           |  1??10000
 5440   ;   1rr00001           ,R++          |  1rr10001           [,R++]
 5450   ;   1rr00010           ,-R           |  1??10010
 5460   ;   1rr00011           ,--R          |  1rr10011           [,--R]
 5470   ;   1rr00100           ,R            |  1rr10100           [,R]
 5480   ;   1rr00101           B,R           |  1rr10101           [B,R]
 5490   ;   1rr00110           A,R           |  1rr10110           [A,R]
 5500   ;   1??00111                         |  1??10111
 5510   ;   1rr01000 nn        n,R           |  1rr11000 nn        [n,R]
 5520   ;   1rr01001 hh ll     n16,R         |  1rr11001 hh ll     [n16,R]
 5530   ;   1??01010                         |  1??11010
 5540   ;   1rr01011           D,R           |  1rr11011           [D,R]
 5550   ;   1xx01100 nn        n,PCR         |  1xx11100 nn        [n,PCR]
 5560   ;   1xx01101 hh ll     n16,PCR       |  1xx11101 hh ll     [n16,PCR]
 5570   ;   1??01110                         |  1??11110
 5580   ;   1??01111                         |  10011111 hh ll     [n16]
 5590   ;                                    |  10111111
 5600   ;                                    |  11011111
 5610   ;                                    |  11111111
 5620   ;   rr=00,01,10,11 for R=X,Y,U,S
 5630   ;
 5640   ; Other notes
 5650   ; -----------
 5660   ; The only difference between the 6809 and the 6809e is the pinouts. The
 5670   ; instruction set is the same:
 5680   ;   6809   Halt, XTAL, >EXTAL, Reset, MRDY, Q, E, DMA/BREQ
 5690   ;   6809e  Halt, TSC,  LIC,   Reset, AVMA, Q, E, Busy
 5700   ;
 5710   ; The 6309 is a further develpment by Hitatchi with more instructions and
 5720   ; registers.
 5730   ;
 5740   ; The 68xx series are bigendian, that is, multibyte values are stored in
 5750   ; memory with the most significant byte first.
 5760   
 5770   
 5780   
 5790   
 5800   .end%    \ End of all code
 5810   ]
 5820 NEXT
 5830 A$="SAVE "+outfile$+" "+STR$~mcode%+"+"+STR$~(O%-mcode%)+" "+STR$~exec%+" "+STR$~load%
 5840 PRINT A$;:OSCLI A$:PRINT
 5850 END

Download All6809.src

BBC BASIC detokeniser and syntax highlighter by Ben Ryves.