Frankenstein Cross Assemblers, Hitachi 6301/3, Part 1 of 2

Mark Zenier markz at ssc.UUCP
Fri Dec 7 11:17:16 AEST 1990


---- Cut Here and feed the following to sh ----
#!/bin/sh
# This is Frankasm/As6301, a shell archive (shar 3.43)
# made 12/04/1990 08:45 UTC by markz at ssc.uucp
# Source directory /usr/mark/frank.shar
#
# existing files will NOT be overwritten unless -c is specified
# This format requires very little intelligence at unshar time.
# "if test", "echo", "true", and "sed" may be needed.
#
# This shar contains:
# length  mode       name
# ------ ---------- ------------------------------------------
#    952 -r--r----- as6301.1
#   9985 -r--r----- as6301.doc
#   4032 -r--r----- as6301.tst
#   9988 -r--r----- as6301.tut
#  53117 -r--r--r-- as6301.y
#
# ============= as6301.1 ==============
if test -f 'as6301.1' -a X"$1" != X"-c"; then
	echo 'x - skipping as6301.1 (File already exists)'
else
echo 'x - extracting as6301.1 (Text)'
sed 's/^X//' << 'SHAR_EOF' > 'as6301.1' &&
X.TH AS6301 1L
X.SH NAME
Xas6301 \- cross assembler for microcomputers
X.SH SYNOPSIS
Xas6301 [-p cpu] [-l listfile] [-o hexfile] [-d] [-s symbolfile] input
X.SH DESCRIPTION
XThe as6301 command assembles the input file into a
Xtext output file representing the program memory for a microcomputer.
X
XOptions
X.IP "-p cpu"
XIgnored by this program.
X.IP "-l listfile"
XOutput a file formated with the memory address, data, and source input lines.
X.IP "-o hexfile"
XOutput the memory data image in a form accepted by most prom programmers.
X.IP "-h hexfile"
XSame as \-o.
X.IP \-d
XSave the intermediate data file (see FILE) and abort the execution at the
Xend of processing.
X.IP "-s symbolfile"
XPrint the symbol table values and names, one per line in the specified file.
X.SH FILES
X/usr/tmp/frtXXXXXX
X.SH SEE ALSO
XFrankenstein Cross Assemblers Users Manual (file base.doc)
XAppendix for as6301 Frankenstein Assembler (file as6301.doc)
X.SH NOTES
XThere is only one input file.
SHAR_EOF
true || echo 'restore of as6301.1 failed'
fi
# ============= as6301.doc ==============
if test -f 'as6301.doc' -a X"$1" != X"-c"; then
	echo 'x - skipping as6301.doc (File already exists)'
else
echo 'x - extracting as6301.doc (Text)'
sed 's/^X//' << 'SHAR_EOF' > 'as6301.doc' &&
X.HM A 1 1 1 1 1 1
X.H 1 "Appendix for as6301 Frankenstein Assembler"
X.H 2 "Pseudo Operations"
X.H 3 "Standard Pseudo Operation Mnemonics"
X.VL 40 5 1
X.LI "End"
XEND
X.LI "File Inclusion"
XINCL
XINCLUDE
X.LI "If"
XIF
X.LI "Else"
XELSE
X.LI "End If"
XENDI
X.LI "Equate"
XEQU
X.LI "Set"
XSET
X.LI "Org"
XORG
X.LI "Reserve Memory"
XRESERVE
XRMB
X.LI "Define Byte Data"
XBYTE
XDB
XFCB
X.LI "Define Word Data"
XDW
XFDB
XWORD
X.LI "Define String Data"
XFCC
XSTRING
X.LI "Define Character Set Translation"
XCHARSET
X.LI "Define Character Value"
XCHARDEF
XCHD
X.LI "Use Character Translation"
XCHARUSE
X.LE
X.H 2 "Instructions"
X.H 3 "Instruction List"
X.TS H
X;
Xl l l.
XOpcode	Syntax	Selection Criteria
X.sp
X.TH
X.sp
XABA	
X.sp
XABX	
X.sp
XADC	 ACCUM '#' expr	REGA
XADC	 ACCUM '#' expr	REGB
XADC	 ACCUM expr	REGA+DIRECT
XADC	 ACCUM expr	REGA+EXTENDED
XADC	 ACCUM expr	REGB+DIRECT
XADC	 ACCUM expr	REGB+EXTENDED
XADC	 ACCUM indexed	REGA
XADC	 ACCUM indexed	REGB
X.sp
XADCA	 '#' expr
XADCA	 expr	DIRECT
XADCA	 expr	EXTENDED
XADCA	 indexed
X.sp
XADCB	 '#' expr
XADCB	 expr	DIRECT
XADCB	 expr	EXTENDED
XADCB	 indexed
X.sp
XADD	 ACCUM '#' expr	REGA
XADD	 ACCUM '#' expr	REGB
XADD	 ACCUM expr	REGA+DIRECT
XADD	 ACCUM expr	REGA+EXTENDED
XADD	 ACCUM expr	REGB+DIRECT
XADD	 ACCUM expr	REGB+EXTENDED
XADD	 ACCUM indexed	REGA
XADD	 ACCUM indexed	REGB
X.sp
XADDA	 '#' expr
XADDA	 expr	DIRECT
XADDA	 expr	EXTENDED
XADDA	 indexed
X.sp
XADDB	 '#' expr
XADDB	 expr	DIRECT
XADDB	 expr	EXTENDED
XADDB	 indexed
X.sp
XADDD	 '#' expr
XADDD	 expr	DIRECT
XADDD	 expr	EXTENDED
XADDD	 indexed
X.sp
XAIM	 '#' expr ',' expr
XAIM	 '#' expr ',' indexed 
X.sp
XAND	 ACCUM '#' expr	REGA
XAND	 ACCUM '#' expr	REGB
XAND	 ACCUM expr	REGA+DIRECT
XAND	 ACCUM expr	REGA+EXTENDED
XAND	 ACCUM expr	REGB+DIRECT
XAND	 ACCUM expr	REGB+EXTENDED
XAND	 ACCUM indexed	REGA
XAND	 ACCUM indexed	REGB
X.sp
XANDA	 '#' expr
XANDA	 expr	DIRECT
XANDA	 expr	EXTENDED
XANDA	 indexed
X.sp
XANDB	 '#' expr
XANDB	 expr	DIRECT
XANDB	 expr	EXTENDED
XANDB	 indexed
X.sp
XASL	 ACCUM	REGA
XASL	 ACCUM	REGB
XASL	 expr
XASL	 indexed
X.sp
XASLA	
X.sp
XASLB	
X.sp
XASLD	
X.sp
XASR	 ACCUM	REGA
XASR	 ACCUM	REGB
XASR	 expr
XASR	 indexed
X.sp
XASRA	
X.sp
XASRB	
X.sp
XBCC	 expr
X.sp
XBCLR	 expr ',' expr	BIT0
XBCLR	 expr ',' expr	BIT1
XBCLR	 expr ',' expr	BIT2
XBCLR	 expr ',' expr	BIT3
XBCLR	 expr ',' expr	BIT4
XBCLR	 expr ',' expr	BIT5
XBCLR	 expr ',' expr	BIT6
XBCLR	 expr ',' expr	BIT7
XBCLR	 expr ',' indexed 	BIT0
XBCLR	 expr ',' indexed 	BIT1
XBCLR	 expr ',' indexed 	BIT2
XBCLR	 expr ',' indexed 	BIT3
XBCLR	 expr ',' indexed 	BIT4
XBCLR	 expr ',' indexed 	BIT5
XBCLR	 expr ',' indexed 	BIT6
XBCLR	 expr ',' indexed 	BIT7
X.sp
XBCS	 expr
X.sp
XBEQ	 expr
X.sp
XBGE	 expr
X.sp
XBGT	 expr
X.sp
XBHI	 expr
X.sp
XBHS	 expr
X.sp
XBIT	 ACCUM '#' expr	REGA
XBIT	 ACCUM '#' expr	REGB
XBIT	 ACCUM expr	REGA+DIRECT
XBIT	 ACCUM expr	REGA+EXTENDED
XBIT	 ACCUM expr	REGB+DIRECT
XBIT	 ACCUM expr	REGB+EXTENDED
XBIT	 ACCUM indexed	REGA
XBIT	 ACCUM indexed	REGB
X.sp
XBITA	 '#' expr
XBITA	 expr	DIRECT
XBITA	 expr	EXTENDED
XBITA	 indexed
X.sp
XBITB	 '#' expr
XBITB	 expr	DIRECT
XBITB	 expr	EXTENDED
XBITB	 indexed
X.sp
XBLE	 expr
X.sp
XBLO	 expr
X.sp
XBLS	 expr
X.sp
XBLT	 expr
X.sp
XBMI	 expr
X.sp
XBNE	 expr
X.sp
XBPL	 expr
X.sp
XBRA	 expr
X.sp
XBRN	 expr
X.sp
XBSET	 expr ',' expr	BIT0
XBSET	 expr ',' expr	BIT1
XBSET	 expr ',' expr	BIT2
XBSET	 expr ',' expr	BIT3
XBSET	 expr ',' expr	BIT4
XBSET	 expr ',' expr	BIT5
XBSET	 expr ',' expr	BIT6
XBSET	 expr ',' expr	BIT7
XBSET	 expr ',' indexed 	BIT0
XBSET	 expr ',' indexed 	BIT1
XBSET	 expr ',' indexed 	BIT2
XBSET	 expr ',' indexed 	BIT3
XBSET	 expr ',' indexed 	BIT4
XBSET	 expr ',' indexed 	BIT5
XBSET	 expr ',' indexed 	BIT6
XBSET	 expr ',' indexed 	BIT7
X.sp
XBSR	 expr
X.sp
XBTGL	 expr ',' expr	BIT0
XBTGL	 expr ',' expr	BIT1
XBTGL	 expr ',' expr	BIT2
XBTGL	 expr ',' expr	BIT3
XBTGL	 expr ',' expr	BIT4
XBTGL	 expr ',' expr	BIT5
XBTGL	 expr ',' expr	BIT6
XBTGL	 expr ',' expr	BIT7
XBTGL	 expr ',' indexed 	BIT0
XBTGL	 expr ',' indexed 	BIT1
XBTGL	 expr ',' indexed 	BIT2
XBTGL	 expr ',' indexed 	BIT3
XBTGL	 expr ',' indexed 	BIT4
XBTGL	 expr ',' indexed 	BIT5
XBTGL	 expr ',' indexed 	BIT6
XBTGL	 expr ',' indexed 	BIT7
X.sp
XBTST	 expr ',' expr	BIT0
XBTST	 expr ',' expr	BIT1
XBTST	 expr ',' expr	BIT2
XBTST	 expr ',' expr	BIT3
XBTST	 expr ',' expr	BIT4
XBTST	 expr ',' expr	BIT5
XBTST	 expr ',' expr	BIT6
XBTST	 expr ',' expr	BIT7
XBTST	 expr ',' indexed 	BIT0
XBTST	 expr ',' indexed 	BIT1
XBTST	 expr ',' indexed 	BIT2
XBTST	 expr ',' indexed 	BIT3
XBTST	 expr ',' indexed 	BIT4
XBTST	 expr ',' indexed 	BIT5
XBTST	 expr ',' indexed 	BIT6
XBTST	 expr ',' indexed 	BIT7
X.sp
XBVC	 expr
X.sp
XBVS	 expr
X.sp
XCBA	
X.sp
XCLC	
X.sp
XCLI	
X.sp
XCLR	 ACCUM	REGA
XCLR	 ACCUM	REGB
XCLR	 expr
XCLR	 indexed
X.sp
XCLRA	
X.sp
XCLRB	
X.sp
XCLV	
X.sp
XCMP	 ACCUM '#' expr	REGA
XCMP	 ACCUM '#' expr	REGB
XCMP	 ACCUM expr	REGA+DIRECT
XCMP	 ACCUM expr	REGA+EXTENDED
XCMP	 ACCUM expr	REGB+DIRECT
XCMP	 ACCUM expr	REGB+EXTENDED
XCMP	 ACCUM indexed	REGA
XCMP	 ACCUM indexed	REGB
X.sp
XCMPA	 '#' expr
XCMPA	 expr	DIRECT
XCMPA	 expr	EXTENDED
XCMPA	 indexed
X.sp
XCMPB	 '#' expr
XCMPB	 expr	DIRECT
XCMPB	 expr	EXTENDED
XCMPB	 indexed
X.sp
XCOM	 ACCUM	REGA
XCOM	 ACCUM	REGB
XCOM	 expr
XCOM	 indexed
X.sp
XCOMA	
X.sp
XCOMB	
X.sp
XCPX	 '#' expr
XCPX	 expr	DIRECT
XCPX	 expr	EXTENDED
XCPX	 indexed
X.sp
XDAA	
X.sp
XDEC	 ACCUM	REGA
XDEC	 ACCUM	REGB
XDEC	 expr
XDEC	 indexed
X.sp
XDECA	
X.sp
XDECB	
X.sp
XDES	
X.sp
XDEX	
X.sp
XEIM	 '#' expr ',' expr
XEIM	 '#' expr ',' indexed 
X.sp
XEOR	 ACCUM '#' expr	REGA
XEOR	 ACCUM '#' expr	REGB
XEOR	 ACCUM expr	REGA+DIRECT
XEOR	 ACCUM expr	REGA+EXTENDED
XEOR	 ACCUM expr	REGB+DIRECT
XEOR	 ACCUM expr	REGB+EXTENDED
XEOR	 ACCUM indexed	REGA
XEOR	 ACCUM indexed	REGB
X.sp
XEORA	 '#' expr
XEORA	 expr	DIRECT
XEORA	 expr	EXTENDED
XEORA	 indexed
X.sp
XEORB	 '#' expr
XEORB	 expr	DIRECT
XEORB	 expr	EXTENDED
XEORB	 indexed
X.sp
XINC	 ACCUM	REGA
XINC	 ACCUM	REGB
XINC	 expr
XINC	 indexed
X.sp
XINCA	
X.sp
XINCB	
X.sp
XINS	
X.sp
XINX	
X.sp
XJMP	 expr
XJMP	 indexed
X.sp
XJSR	 expr	DIRECT
XJSR	 expr	EXTENDED
XJSR	 indexed
X.sp
XLDA	 ACCUM '#' expr	REGA
XLDA	 ACCUM '#' expr	REGB
XLDA	 ACCUM expr	REGA+DIRECT
XLDA	 ACCUM expr	REGA+EXTENDED
XLDA	 ACCUM expr	REGB+DIRECT
XLDA	 ACCUM expr	REGB+EXTENDED
XLDA	 ACCUM indexed	REGA
XLDA	 ACCUM indexed	REGB
X.sp
XLDAA	 '#' expr
XLDAA	 expr	DIRECT
XLDAA	 expr	EXTENDED
XLDAA	 indexed
X.sp
XLDAB	 '#' expr
XLDAB	 expr	DIRECT
XLDAB	 expr	EXTENDED
XLDAB	 indexed
X.sp
XLDD	 '#' expr
XLDD	 expr	DIRECT
XLDD	 expr	EXTENDED
XLDD	 indexed
X.sp
XLDS	 '#' expr
XLDS	 expr	DIRECT
XLDS	 expr	EXTENDED
XLDS	 indexed
X.sp
XLDX	 '#' expr
XLDX	 expr	DIRECT
XLDX	 expr	EXTENDED
XLDX	 indexed
X.sp
XLSL	 ACCUM	REGA
XLSL	 ACCUM	REGB
XLSL	 expr
XLSL	 indexed
X.sp
XLSLA	
X.sp
XLSLB	
X.sp
XLSLD	
X.sp
XLSR	 ACCUM	REGA
XLSR	 ACCUM	REGB
XLSR	 expr
XLSR	 indexed
X.sp
XLSRA	
X.sp
XLSRB	
X.sp
XLSRD	
X.sp
XMUL	
X.sp
XNEG	 ACCUM	REGA
XNEG	 ACCUM	REGB
XNEG	 expr
XNEG	 indexed
X.sp
XNEGA	
X.sp
XNEGB	
X.sp
XNOP	
X.sp
XOIM	 '#' expr ',' expr
XOIM	 '#' expr ',' indexed 
X.sp
XORA	 ACCUM '#' expr	REGA
XORA	 ACCUM '#' expr	REGB
XORA	 ACCUM expr	REGA+DIRECT
XORA	 ACCUM expr	REGA+EXTENDED
XORA	 ACCUM expr	REGB+DIRECT
XORA	 ACCUM expr	REGB+EXTENDED
XORA	 ACCUM indexed	REGA
XORA	 ACCUM indexed	REGB
X.sp
XORAA	 '#' expr
XORAA	 expr	DIRECT
XORAA	 expr	EXTENDED
XORAA	 indexed
X.sp
XORAB	 '#' expr
XORAB	 expr	DIRECT
XORAB	 expr	EXTENDED
XORAB	 indexed
X.sp
XPSH	 ACCUM	REGA
XPSH	 ACCUM	REGB
XPSH	 INDEX
X.sp
XPSHA	
X.sp
XPSHB	
X.sp
XPSHX	
X.sp
XPUL	 ACCUM	REGA
XPUL	 ACCUM	REGB
XPUL	 INDEX
X.sp
XPULA	
X.sp
XPULB	
X.sp
XPULX	
X.sp
XROL	 ACCUM	REGA
XROL	 ACCUM	REGB
XROL	 expr
XROL	 indexed
X.sp
XROLA	
X.sp
XROLB	
X.sp
XROR	 ACCUM	REGA
XROR	 ACCUM	REGB
XROR	 expr
XROR	 indexed
X.sp
XRORA	
X.sp
XRORB	
X.sp
XRTI	
X.sp
XRTS	
X.sp
XSBA	
X.sp
XSBC	 ACCUM '#' expr	REGA
XSBC	 ACCUM '#' expr	REGB
XSBC	 ACCUM expr	REGA+DIRECT
XSBC	 ACCUM expr	REGA+EXTENDED
XSBC	 ACCUM expr	REGB+DIRECT
XSBC	 ACCUM expr	REGB+EXTENDED
XSBC	 ACCUM indexed	REGA
XSBC	 ACCUM indexed	REGB
X.sp
XSBCA	 '#' expr
XSBCA	 expr	DIRECT
XSBCA	 expr	EXTENDED
XSBCA	 indexed
X.sp
XSBCB	 '#' expr
XSBCB	 expr	DIRECT
XSBCB	 expr	EXTENDED
XSBCB	 indexed
X.sp
XSEC	
X.sp
XSEI	
X.sp
XSEV	
X.sp
XSLP	
X.sp
XSTA	 ACCUM expr	REGA+DIRECT
XSTA	 ACCUM expr	REGA+EXTENDED
XSTA	 ACCUM expr	REGB+DIRECT
XSTA	 ACCUM expr	REGB+EXTENDED
XSTA	 ACCUM indexed	REGA
XSTA	 ACCUM indexed	REGB
X.sp
XSTAA	 expr	DIRECT
XSTAA	 expr	EXTENDED
XSTAA	 indexed
X.sp
XSTAB	 expr	DIRECT
XSTAB	 expr	EXTENDED
XSTAB	 indexed
X.sp
XSTD	 expr	DIRECT
XSTD	 expr	EXTENDED
XSTD	 indexed
X.sp
XSTS	 expr	DIRECT
XSTS	 expr	EXTENDED
XSTS	 indexed
X.sp
XSTX	 expr	DIRECT
XSTX	 expr	EXTENDED
XSTX	 indexed
X.sp
XSUB	 ACCUM '#' expr	REGA
XSUB	 ACCUM '#' expr	REGB
XSUB	 ACCUM expr	REGA+DIRECT
XSUB	 ACCUM expr	REGA+EXTENDED
XSUB	 ACCUM expr	REGB+DIRECT
XSUB	 ACCUM expr	REGB+EXTENDED
XSUB	 ACCUM indexed	REGA
XSUB	 ACCUM indexed	REGB
X.sp
XSUBA	 '#' expr
XSUBA	 expr	DIRECT
XSUBA	 expr	EXTENDED
XSUBA	 indexed
X.sp
XSUBB	 '#' expr
XSUBB	 expr	DIRECT
XSUBB	 expr	EXTENDED
XSUBB	 indexed
X.sp
XSUBD	 '#' expr
XSUBD	 expr	DIRECT
XSUBD	 expr	EXTENDED
XSUBD	 indexed
X.sp
XSWI	
X.sp
XTAB	
X.sp
XTAP	
X.sp
XTBA	
X.sp
XTIM	 '#' expr ',' expr
XTIM	 '#' expr ',' indexed 
X.sp
XTPA	
X.sp
XTST	 ACCUM	REGA
XTST	 ACCUM	REGB
XTST	 expr
XTST	 indexed
X.sp
XTSTA	
X.sp
XTSTB	
X.sp
XTSX	
X.sp
XTXS	
X.sp
XWAI	
X.sp
XXGDX	
X.TE
X.H 3 "Selection Criteria Keywords"
X.VL 25 5 
X.LI REGA
XThe A accumulator can be used for the instruction.
X.LI REGB
XThe B accumulator can be used for the instruction.
X.LI DIRECT
XThe instruction can use the direct addressing mode.  
XThe expression must have a value between 0 and 255 that is defined when the
Xinstruction is processed in the input pass.
X.LI EXTENDED
XThe instruction can use the extended addressing mode.
X.LE
X.H 3 "Notes"
X.H 4 "Apostrophes"
XThe apostrophes in the syntax field are a notation used for the
Xparser generator and are not put in the assembler source statement.
X.H 4 "Bit Numbers"
XThe bit number expression in the BSET, BCLR, BTGL, BTST operations has
Xto have value defined when the instruction is read in the first pass.
XThe value must be between 0 and 7.
X.H 4 "Indexed Addressing"
XThe indexed addressing is represented in two ways.
XEither "expression, X" or "X, expression" is
Xaccepted by the assembler. 
X.H 2 "Reserved Symbols"
X.H 3 "Machine Dependent Reserved Symbols"
XA
XB
XX
Xa
Xb
Xx
X.H 3 "Standard Reserved Symbols"
XAND
XDEFINED
XEQ
XGE
XGT
XHIGH
XLE
XLOW
XLT
XMOD
XNE
XNOT
XOR
XSHL
XSHR
XXOR
Xand
Xdefined
Xeq
Xge
Xgt
Xhigh
Xle
Xlow
Xlt
Xmod
Xne
Xnot
Xor
Xshl
Xshr
Xxor
X.TC 1 1 7
SHAR_EOF
true || echo 'restore of as6301.doc failed'
fi
# ============= as6301.tst ==============
if test -f 'as6301.tst' -a X"$1" != X"-c"; then
	echo 'x - skipping as6301.tst (File already exists)'
else
echo 'x - extracting as6301.tst (Text)'
sed 's/^X//' << 'SHAR_EOF' > 'as6301.tst' &&
X	org $99
Xm	equ	$40
Xd	fdb	123H
X	org	$1234
Xe	fdb	678
X	org	$2000
Xo	set	$66
Xi	equ	32H
X	aba 
X	abx 
X	adc a #i 
X	adc a d 
X	adc a e 
X	adc a o,x 
X	adc b #i 
X	adc b d 
X	adc b e 
X	adc b o,x 
X	adca #i 
X	adca d 
X	adca e 
X	adca o,x 
X	adcb #i 
X	adcb d 
X	adcb e 
X	adcb o,x 
X	add a #i 
X	add a d 
X	add a e 
X	add a o,x 
X	add b #i 
X	add b d 
X	add b e 
X	add b o,x 
X	adda #i 
X	adda d 
X	adda e 
X	adda o,x 
X	addb #i 
X	addb d 
X	addb e 
X	addb o,x 
X	addd #i 
X	addd d 
X	addd e 
X	addd o,x 
X	aim #i,d
X	aim #i,o,x
X	and a #i 
X	and a d 
X	and a e 
X	and a o,x 
X	and b #i 
X	and b d 
X	and b e 
X	and b o,x 
X	anda #i 
X	anda d 
X	anda e 
X	anda o,x 
X	andb #i 
X	andb d 
X	andb e 
X	andb o,x 
X	asl a 
X	asl b 
X	asl e 
X	asl o,x 
X	asla 
X	aslb 
X	asld 
X	asr a 
X	asr b 
X	asr e 
X	asr o,x 
X	asra 
X	asrb 
X	bcc *-4 
X	bclr 0,d
X	bclr 1,d
X	bclr 2,d
X	bclr 3,d
X	bclr 4,d
X	bclr 5,d
X	bclr 6,d
X	bclr 7,d
X	bclr 0,o,x
X	bclr 1,o,x
X	bclr 2,o,x
X	bclr 3,o,x
X	bclr 4,o,x
X	bclr 5,o,x
X	bclr 6,o,x
X	bclr 7,o,x
X	bcs *-4 
X	beq *-4 
X	bge *-4 
X	bgt *-4 
X	bhi *-4 
X	bhs *-4 
X	bit a #i 
X	bit a d 
X	bit a e 
X	bit a o,x 
X	bit b #i 
X	bit b d 
X	bit b e 
X	bit b o,x 
X	bita #i 
X	bita d 
X	bita e 
X	bita o,x 
X	bitb #i 
X	bitb d 
X	bitb e 
X	bitb o,x 
X	ble *-4 
X	blo *-4 
X	bls *-4 
X	blt *-4 
X	bmi *-4 
X	bne *-4 
X	bpl *-4 
X	bra *-4 
X	brn *-4 
X	bset 0,d
X	bset 1,d
X	bset 2,d
X	bset 3,d
X	bset 4,d
X	bset 5,d
X	bset 6,d
X	bset 7,d
X	bset 0,o,x
X	bset 1,o,x
X	bset 2,o,x
X	bset 3,o,x
X	bset 4,o,x
X	bset 5,o,x
X	bset 6,o,x
X	bset 7,o,x
X	bsr *-4 
X	btgl 0,d
X	btgl 1,d
X	btgl 2,d
X	btgl 3,d
X	btgl 4,d
X	btgl 5,d
X	btgl 6,d
X	btgl 7,d
X	btgl 0,o,x
X	btgl 1,o,x
X	btgl 2,o,x
X	btgl 3,o,x
X	btgl 4,o,x
X	btgl 5,o,x
X	btgl 6,o,x
X	btgl 7,o,x
X	btst 0,d
X	btst 1,d
X	btst 2,d
X	btst 3,d
X	btst 4,d
X	btst 5,d
X	btst 6,d
X	btst 7,d
X	btst 0,o,x
X	btst 1,o,x
X	btst 2,o,x
X	btst 3,o,x
X	btst 4,o,x
X	btst 5,o,x
X	btst 6,o,x
X	btst 7,o,x
X	bvc *-4 
X	bvs *-4 
X	cba 
X	clc 
X	cli 
X	clr a 
X	clr b 
X	clr e 
X	clr o,x 
X	clra 
X	clrb 
X	clv 
X	cmp a #i 
X	cmp a d 
X	cmp a e 
X	cmp a o,x 
X	cmp b #i 
X	cmp b d 
X	cmp b e 
X	cmp b o,x 
X	cmpa #i 
X	cmpa d 
X	cmpa e 
X	cmpa o,x 
X	cmpb #i 
X	cmpb d 
X	cmpb e 
X	cmpb o,x 
X	com a 
X	com b 
X	com e 
X	com o,x 
X	coma 
X	comb 
X	cpx #i 
X	cpx d 
X	cpx e 
X	cpx o,x 
X	daa 
X	dec a 
X	dec b 
X	dec e 
X	dec o,x 
X	deca 
X	decb 
X	des 
X	dex 
X	eim #i,d
X	eim #i,o,x
X	eor a #i 
X	eor a d 
X	eor a e 
X	eor a o,x 
X	eor b #i 
X	eor b d 
X	eor b e 
X	eor b o,x 
X	eora #i 
X	eora d 
X	eora e 
X	eora o,x 
X	eorb #i 
X	eorb d 
X	eorb e 
X	eorb o,x 
X	inc a 
X	inc b 
X	inc e 
X	inc o,x 
X	inca 
X	incb 
X	ins 
X	inx 
X	jmp e 
X	jmp o,x 
X	jsr d 
X	jsr e 
X	jsr o,x 
X	lda a #i 
X	lda a d 
X	lda a e 
X	lda a o,x 
X	lda b #i 
X	lda b d 
X	lda b e 
X	lda b o,x 
X	ldaa #i 
X	ldaa d 
X	ldaa e 
X	ldaa o,x 
X	ldab #i 
X	ldab d 
X	ldab e 
X	ldab o,x 
X	ldd #i 
X	ldd d 
X	ldd e 
X	ldd o,x 
X	lds #i 
X	lds d 
X	lds e 
X	lds o,x 
X	ldx #i 
X	ldx d 
X	ldx e 
X	ldx o,x 
X	lsl a 
X	lsl b 
X	lsl e 
X	lsl o,x 
X	lsla 
X	lslb 
X	lsld 
X	lsr a 
X	lsr b 
X	lsr e 
X	lsr o,x 
X	lsra 
X	lsrb 
X	lsrd 
X	mul 
X	neg a 
X	neg b 
X	neg e 
X	neg o,x 
X	nega 
X	negb 
X	nop 
X	oim #i,d
X	oim #i,o,x
X	ora a #i 
X	ora a d 
X	ora a e 
X	ora a o,x 
X	ora b #i 
X	ora b d 
X	ora b e 
X	ora b o,x 
X	oraa #i 
X	oraa d 
X	oraa e 
X	oraa o,x 
X	orab #i 
X	orab d 
X	orab e 
X	orab o,x 
X	psh a 
X	psh b 
X	psh x 
X	psha 
X	pshb 
X	pshx 
X	pul a 
X	pul b 
X	pul x 
X	pula 
X	pulb 
X	pulx 
X	rol a 
X	rol b 
X	rol e 
X	rol o,x 
X	rola 
X	rolb 
X	ror a 
X	ror b 
X	ror e 
X	ror o,x 
X	rora 
X	rorb 
X	rti 
X	rts 
X	sba 
X	sbc a #i 
X	sbc a d 
X	sbc a e 
X	sbc a o,x 
X	sbc b #i 
X	sbc b d 
X	sbc b e 
X	sbc b o,x 
X	sbca #i 
X	sbca d 
X	sbca e 
X	sbca o,x 
X	sbcb #i 
X	sbcb d 
X	sbcb e 
X	sbcb o,x 
X	sec 
X	sei 
X	sev 
X	slp
X	sta a d 
X	sta a e 
X	sta a o,x 
X	sta b d 
X	sta b e 
X	sta b o,x 
X	staa d 
X	staa e 
X	staa o,x 
X	stab d 
X	stab e 
X	stab o,x 
X	std d 
X	std e 
X	std o,x 
X	sts d 
X	sts e 
X	sts o,x 
X	stx d 
X	stx e 
X	stx o,x 
X	sub a #i 
X	sub a d 
X	sub a e 
X	sub a o,x 
X	sub b #i 
X	sub b d 
X	sub b e 
X	sub b o,x 
X	suba #i 
X	suba d 
X	suba e 
X	suba o,x 
X	subb #i 
X	subb d 
X	subb e 
X	subb o,x 
X	subd #i 
X	subd d 
X	subd e 
X	subd o,x 
X	swi 
X	tab 
X	tap 
X	tba 
X	tim #i,d
X	tim #i,o,x
X	tpa 
X	tst a 
X	tst b 
X	tst e 
X	tst o,x 
X	tsta 
X	tstb 
X	tsx 
X	txs 
X	wai 
X	xgdx 
X	end
SHAR_EOF
true || echo 'restore of as6301.tst failed'
fi
# ============= as6301.tut ==============
if test -f 'as6301.tut' -a X"$1" != X"-c"; then
	echo 'x - skipping as6301.tut (File already exists)'
else
echo 'x - extracting as6301.tut (Text)'
sed 's/^X//' << 'SHAR_EOF' > 'as6301.tut' &&
X00000040 m                00000099 d                00001234 e                
X00000066 o                00000032 i                
X 0x99                   	org $99
X 0x40                   m	equ	$40
X0099 01 23 		d	fdb	123H
X 0x1234                 	org	$1234
X1234 02 a6 		e	fdb	678
X 0x2000                 	org	$2000
X 0x66                   o	set	$66
X 0x32                   i	equ	32H
X2000 1b 			aba 
X2001 3a 			abx 
X2002 89 32 			adc a #i 
X2004 99 99 			adc a d 
X2006 b9 12 34 			adc a e 
X2009 a9 66 			adc a o,x 
X200b c9 32 			adc b #i 
X200d d9 99 			adc b d 
X200f f9 12 34 			adc b e 
X2012 e9 66 			adc b o,x 
X2014 89 32 			adca #i 
X2016 99 99 			adca d 
X2018 b9 12 34 			adca e 
X201b a9 66 			adca o,x 
X201d c9 32 			adcb #i 
X201f d9 99 			adcb d 
X2021 f9 12 34 			adcb e 
X2024 e9 66 			adcb o,x 
X2026 8b 32 			add a #i 
X2028 9b 99 			add a d 
X202a bb 12 34 			add a e 
X202d ab 66 			add a o,x 
X202f cb 32 			add b #i 
X2031 db 99 			add b d 
X2033 fb 12 34 			add b e 
X2036 eb 66 			add b o,x 
X2038 8b 32 			adda #i 
X203a 9b 99 			adda d 
X203c bb 12 34 			adda e 
X203f ab 66 			adda o,x 
X2041 cb 32 			addb #i 
X2043 db 99 			addb d 
X2045 fb 12 34 			addb e 
X2048 eb 66 			addb o,x 
X204a c3 00 32 			addd #i 
X204d d3 99 			addd d 
X204f f3 12 34 			addd e 
X2052 e3 66 			addd o,x 
X2054 71 32 99 			aim #i,d
X2057 61 32 66 			aim #i,o,x
X205a 84 32 			and a #i 
X205c 94 99 			and a d 
X205e b4 12 34 			and a e 
X2061 a4 66 			and a o,x 
X2063 c4 32 			and b #i 
X2065 d4 99 			and b d 
X2067 f4 12 34 			and b e 
X206a e4 66 			and b o,x 
X206c 84 32 			anda #i 
X206e 94 99 			anda d 
X2070 b4 12 34 			anda e 
X2073 a4 66 			anda o,x 
X2075 c4 32 			andb #i 
X2077 d4 99 			andb d 
X2079 f4 12 34 			andb e 
X207c e4 66 			andb o,x 
X207e 48 			asl a 
X207f 58 			asl b 
X2080 78 12 34 			asl e 
X2083 68 66 			asl o,x 
X2085 48 			asla 
X2086 58 			aslb 
X2087 05 			asld 
X2088 47 			asr a 
X2089 57 			asr b 
X208a 77 12 34 			asr e 
X208d 67 66 			asr o,x 
X208f 47 			asra 
X2090 57 			asrb 
X2091 24 fa 			bcc *-4 
X2093 71 fe 99 			bclr 0,d
X2096 71 fd 99 			bclr 1,d
X2099 71 fb 99 			bclr 2,d
X209c 71 f7 99 			bclr 3,d
X209f 71 ef 99 			bclr 4,d
X20a2 71 df 99 			bclr 5,d
X20a5 71 bf 99 			bclr 6,d
X20a8 71 7f 99 			bclr 7,d
X20ab 61 fe 66 			bclr 0,o,x
X20ae 61 fd 66 			bclr 1,o,x
X20b1 61 fb 66 			bclr 2,o,x
X20b4 61 f7 66 			bclr 3,o,x
X20b7 61 ef 66 			bclr 4,o,x
X20ba 61 df 66 			bclr 5,o,x
X20bd 61 bf 66 			bclr 6,o,x
X20c0 61 7f 66 			bclr 7,o,x
X20c3 25 fa 			bcs *-4 
X20c5 27 fa 			beq *-4 
X20c7 2c fa 			bge *-4 
X20c9 2e fa 			bgt *-4 
X20cb 22 fa 			bhi *-4 
X20cd 24 fa 			bhs *-4 
X20cf 85 32 			bit a #i 
X20d1 95 99 			bit a d 
X20d3 b5 12 34 			bit a e 
X20d6 a5 66 			bit a o,x 
X20d8 c5 32 			bit b #i 
X20da d5 99 			bit b d 
X20dc f5 12 34 			bit b e 
X20df e5 66 			bit b o,x 
X20e1 85 32 			bita #i 
X20e3 95 99 			bita d 
X20e5 b5 12 34 			bita e 
X20e8 a5 66 			bita o,x 
X20ea c5 32 			bitb #i 
X20ec d5 99 			bitb d 
X20ee f5 12 34 			bitb e 
X20f1 e5 66 			bitb o,x 
X20f3 2f fa 			ble *-4 
X20f5 25 fa 			blo *-4 
X20f7 23 fa 			bls *-4 
X20f9 2d fa 			blt *-4 
X20fb 2b fa 			bmi *-4 
X20fd 26 fa 			bne *-4 
X20ff 2a fa 			bpl *-4 
X2101 20 fa 			bra *-4 
X2103 21 fa 			brn *-4 
X2105 72 01 99 			bset 0,d
X2108 72 02 99 			bset 1,d
X210b 72 04 99 			bset 2,d
X210e 72 08 99 			bset 3,d
X2111 72 10 99 			bset 4,d
X2114 72 20 99 			bset 5,d
X2117 72 40 99 			bset 6,d
X211a 72 80 99 			bset 7,d
X211d 62 01 66 			bset 0,o,x
X2120 62 02 66 			bset 1,o,x
X2123 62 04 66 			bset 2,o,x
X2126 62 08 66 			bset 3,o,x
X2129 62 10 66 			bset 4,o,x
X212c 62 20 66 			bset 5,o,x
X212f 62 40 66 			bset 6,o,x
X2132 62 80 66 			bset 7,o,x
X2135 8d fa 			bsr *-4 
X2137 75 01 99 			btgl 0,d
X213a 75 02 99 			btgl 1,d
X213d 75 04 99 			btgl 2,d
X2140 75 08 99 			btgl 3,d
X2143 75 10 99 			btgl 4,d
X2146 75 20 99 			btgl 5,d
X2149 75 40 99 			btgl 6,d
X214c 75 80 99 			btgl 7,d
X214f 65 01 66 			btgl 0,o,x
X2152 65 02 66 			btgl 1,o,x
X2155 65 04 66 			btgl 2,o,x
X2158 65 08 66 			btgl 3,o,x
X215b 65 10 66 			btgl 4,o,x
X215e 65 20 66 			btgl 5,o,x
X2161 65 40 66 			btgl 6,o,x
X2164 65 80 66 			btgl 7,o,x
X2167 7b 01 99 			btst 0,d
X216a 7b 02 99 			btst 1,d
X216d 7b 04 99 			btst 2,d
X2170 7b 08 99 			btst 3,d
X2173 7b 10 99 			btst 4,d
X2176 7b 20 99 			btst 5,d
X2179 7b 40 99 			btst 6,d
X217c 7b 80 99 			btst 7,d
X217f 6b 01 66 			btst 0,o,x
X2182 6b 02 66 			btst 1,o,x
X2185 6b 04 66 			btst 2,o,x
X2188 6b 08 66 			btst 3,o,x
X218b 6b 10 66 			btst 4,o,x
X218e 6b 20 66 			btst 5,o,x
X2191 6b 40 66 			btst 6,o,x
X2194 6b 80 66 			btst 7,o,x
X2197 28 fa 			bvc *-4 
X2199 29 fa 			bvs *-4 
X219b 11 			cba 
X219c 0c 			clc 
X219d 0e 			cli 
X219e 4f 			clr a 
X219f 5f 			clr b 
X21a0 7f 12 34 			clr e 
X21a3 6f 66 			clr o,x 
X21a5 4f 			clra 
X21a6 5f 			clrb 
X21a7 0a 			clv 
X21a8 81 32 			cmp a #i 
X21aa 91 99 			cmp a d 
X21ac b1 12 34 			cmp a e 
X21af a1 66 			cmp a o,x 
X21b1 c1 32 			cmp b #i 
X21b3 d1 99 			cmp b d 
X21b5 f1 12 34 			cmp b e 
X21b8 e1 66 			cmp b o,x 
X21ba 81 32 			cmpa #i 
X21bc 91 99 			cmpa d 
X21be b1 12 34 			cmpa e 
X21c1 a1 66 			cmpa o,x 
X21c3 c1 32 			cmpb #i 
X21c5 d1 99 			cmpb d 
X21c7 f1 12 34 			cmpb e 
X21ca e1 66 			cmpb o,x 
X21cc 43 			com a 
X21cd 53 			com b 
X21ce 73 12 34 			com e 
X21d1 63 66 			com o,x 
X21d3 43 			coma 
X21d4 53 			comb 
X21d5 8c 00 32 			cpx #i 
X21d8 9c 99 			cpx d 
X21da bc 12 34 			cpx e 
X21dd ac 66 			cpx o,x 
X21df 19 			daa 
X21e0 4a 			dec a 
X21e1 5a 			dec b 
X21e2 7a 12 34 			dec e 
X21e5 6a 66 			dec o,x 
X21e7 4a 			deca 
X21e8 5a 			decb 
X21e9 34 			des 
X21ea 09 			dex 
X21eb 75 32 99 			eim #i,d
X21ee 65 32 66 			eim #i,o,x
X21f1 88 32 			eor a #i 
X21f3 98 99 			eor a d 
X21f5 b8 12 34 			eor a e 
X21f8 a8 66 			eor a o,x 
X21fa c8 32 			eor b #i 
X21fc d8 99 			eor b d 
X21fe f8 12 34 			eor b e 
X2201 e8 66 			eor b o,x 
X2203 88 32 			eora #i 
X2205 98 99 			eora d 
X2207 b8 12 34 			eora e 
X220a a8 66 			eora o,x 
X220c c8 32 			eorb #i 
X220e d8 99 			eorb d 
X2210 f8 12 34 			eorb e 
X2213 e8 66 			eorb o,x 
X2215 4c 			inc a 
X2216 5c 			inc b 
X2217 7c 12 34 			inc e 
X221a 6c 66 			inc o,x 
X221c 4c 			inca 
X221d 5c 			incb 
X221e 31 			ins 
X221f 08 			inx 
X2220 7e 12 34 			jmp e 
X2223 6e 66 			jmp o,x 
X2225 9d 99 			jsr d 
X2227 bd 12 34 			jsr e 
X222a ad 66 			jsr o,x 
X222c 86 32 			lda a #i 
X222e 96 99 			lda a d 
X2230 b6 12 34 			lda a e 
X2233 a6 66 			lda a o,x 
X2235 c6 32 			lda b #i 
X2237 d6 99 			lda b d 
X2239 f6 12 34 			lda b e 
X223c e6 66 			lda b o,x 
X223e 86 32 			ldaa #i 
X2240 96 99 			ldaa d 
X2242 b6 12 34 			ldaa e 
X2245 a6 66 			ldaa o,x 
X2247 c6 32 			ldab #i 
X2249 d6 99 			ldab d 
X224b f6 12 34 			ldab e 
X224e e6 66 			ldab o,x 
X2250 cc 00 32 			ldd #i 
X2253 dc 99 			ldd d 
X2255 fc 12 34 			ldd e 
X2258 ec 66 			ldd o,x 
X225a 8e 00 32 			lds #i 
X225d 9e 99 			lds d 
X225f be 12 34 			lds e 
X2262 ae 66 			lds o,x 
X2264 ce 00 32 			ldx #i 
X2267 de 99 			ldx d 
X2269 fe 12 34 			ldx e 
X226c ee 66 			ldx o,x 
X226e 48 			lsl a 
X226f 58 			lsl b 
X2270 78 12 34 			lsl e 
X2273 68 66 			lsl o,x 
X2275 48 			lsla 
X2276 58 			lslb 
X2277 05 			lsld 
X2278 44 			lsr a 
X2279 54 			lsr b 
X227a 74 12 34 			lsr e 
X227d 64 66 			lsr o,x 
X227f 44 			lsra 
X2280 54 			lsrb 
X2281 04 			lsrd 
X2282 3d 			mul 
X2283 40 			neg a 
X2284 50 			neg b 
X2285 70 12 34 			neg e 
X2288 60 66 			neg o,x 
X228a 40 			nega 
X228b 50 			negb 
X228c 01 			nop 
X228d 72 32 99 			oim #i,d
X2290 62 32 66 			oim #i,o,x
X2293 8a 32 			ora a #i 
X2295 9a 99 			ora a d 
X2297 ba 12 34 			ora a e 
X229a aa 66 			ora a o,x 
X229c ca 32 			ora b #i 
X229e da 99 			ora b d 
X22a0 fa 12 34 			ora b e 
X22a3 ea 66 			ora b o,x 
X22a5 8a 32 			oraa #i 
X22a7 9a 99 			oraa d 
X22a9 ba 12 34 			oraa e 
X22ac aa 66 			oraa o,x 
X22ae ca 32 			orab #i 
X22b0 da 99 			orab d 
X22b2 fa 12 34 			orab e 
X22b5 ea 66 			orab o,x 
X22b7 36 			psh a 
X22b8 37 			psh b 
X22b9 3c 			psh x 
X22ba 36 			psha 
X22bb 37 			pshb 
X22bc 3c 			pshx 
X22bd 32 			pul a 
X22be 33 			pul b 
X22bf 38 			pul x 
X22c0 32 			pula 
X22c1 33 			pulb 
X22c2 38 			pulx 
X22c3 49 			rol a 
X22c4 59 			rol b 
X22c5 79 12 34 			rol e 
X22c8 69 66 			rol o,x 
X22ca 49 			rola 
X22cb 59 			rolb 
X22cc 46 			ror a 
X22cd 56 			ror b 
X22ce 76 12 34 			ror e 
X22d1 66 66 			ror o,x 
X22d3 46 			rora 
X22d4 56 			rorb 
X22d5 3b 			rti 
X22d6 39 			rts 
X22d7 10 			sba 
X22d8 82 32 			sbc a #i 
X22da 92 99 			sbc a d 
X22dc b2 12 34 			sbc a e 
X22df a2 66 			sbc a o,x 
X22e1 c2 32 			sbc b #i 
X22e3 d2 99 			sbc b d 
X22e5 f2 12 34 			sbc b e 
X22e8 e2 66 			sbc b o,x 
X22ea 82 32 			sbca #i 
X22ec 92 99 			sbca d 
X22ee b2 12 34 			sbca e 
X22f1 a2 66 			sbca o,x 
X22f3 c2 32 			sbcb #i 
X22f5 d2 99 			sbcb d 
X22f7 f2 12 34 			sbcb e 
X22fa e2 66 			sbcb o,x 
X22fc 0d 			sec 
X22fd 0f 			sei 
X22fe 0b 			sev 
X22ff 1a 			slp
X2300 97 99 			sta a d 
X2302 b7 12 34 			sta a e 
X2305 a7 66 			sta a o,x 
X2307 d7 99 			sta b d 
X2309 f7 12 34 			sta b e 
X230c e7 66 			sta b o,x 
X230e 97 99 			staa d 
X2310 b7 12 34 			staa e 
X2313 a7 66 			staa o,x 
X2315 d7 99 			stab d 
X2317 f7 12 34 			stab e 
X231a e7 66 			stab o,x 
X231c dd 99 			std d 
X231e fd 12 34 			std e 
X2321 ed 66 			std o,x 
X2323 9f 99 			sts d 
X2325 bf 12 34 			sts e 
X2328 af 66 			sts o,x 
X232a df 99 			stx d 
X232c ff 12 34 			stx e 
X232f ef 66 			stx o,x 
X2331 80 32 			sub a #i 
X2333 90 99 			sub a d 
X2335 b0 12 34 			sub a e 
X2338 a0 66 			sub a o,x 
X233a c0 32 			sub b #i 
X233c d0 99 			sub b d 
X233e f0 12 34 			sub b e 
X2341 e0 66 			sub b o,x 
X2343 80 32 			suba #i 
X2345 90 99 			suba d 
X2347 b0 12 34 			suba e 
X234a a0 66 			suba o,x 
X234c c0 32 			subb #i 
X234e d0 99 			subb d 
X2350 f0 12 34 			subb e 
X2353 e0 66 			subb o,x 
X2355 83 00 32 			subd #i 
X2358 93 99 			subd d 
X235a b3 12 34 			subd e 
X235d a3 66 			subd o,x 
X235f 3f 			swi 
X2360 16 			tab 
X2361 06 			tap 
X2362 17 			tba 
X2363 7b 32 99 			tim #i,d
X2366 6b 32 66 			tim #i,o,x
X2369 07 			tpa 
X236a 4d 			tst a 
X236b 5d 			tst b 
X236c 7d 12 34 			tst e 
X236f 6d 66 			tst o,x 
X2371 4d 			tsta 
X2372 5d 			tstb 
X2373 30 			tsx 
X2374 35 			txs 
X2375 3e 			wai 
X2376 18 			xgdx 
X				end
X ERROR SUMMARY - ERRORS DETECTED 0
X               -  WARNINGS       0
SHAR_EOF
true || echo 'restore of as6301.tut failed'
fi
true || echo 'restore of as6301.y failed'
echo End of part 1, continue with part 2
exit 0



More information about the Alt.sources mailing list