Source Code 1992 March

home *** CD-ROM | disk | FTP | other *** search

/ Source Code 1992 March / Source_Code_CD-ROM_Walnut_Creek_March_1992.iso / usenet / altsrcs / 2 / 2232 < prev next >

Wrap

Internet Message Format | 1990-12-28 | 27.9 KB

From: markz@ssc.UUCP (Mark Zenier) Newsgroups: alt.sources Subject: Frankenstein Cross Assemblers, Hitachi 6301/3, Part 1 of 2 Message-ID: <626@ssc.UUCP> Date: 7 Dec 90 00:17:16 GMT ---- 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@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