[comp.sys.amiga] AmigaDOS commands in assembler

cherry@husc4.UUCP (01/27/87)

I found these on one of the commercial networks. I believe they are the
work of Charlie Heath of MicroSmith's. The shar file contains six of the 
AmigaDOS commands redone in assembler. Only the executables were available.
The executable file sizes (after uudecoding) are:

	Break	488
	CD	600
	Echo	148
	MkDir	336
	Prompt	340
	Stack	400

Enjoy,
Mike Cherry


#	This is a shell archive.
#	Remove everything above and including the cut line.
#	Then run the rest of the file through sh.
#----cut here-----cut here-----cut here-----cut here----#
#!/bin/sh
# shar:    Shell Archiver
#	Run the following text with /bin/sh to create:
#	break.uue
#	cd.uue
#	echo.uue
#	mkdir.uue
#	prompt.uue
#	stack.uue
# This archive created: Mon Jan 26 19:10:50 1987
# By:	FRODO::CHERRY	(J. Michael Cherry)
cat << \SHAR_EOF > break.uue
begin 777 Break
M   #\P         #          (   !@              /I    8$ZY    
M"$YU+P@L>  $0_H!8W ?3J[]V$J 9@983W 43G4J0'0 )@(@7V$<L#P 1F( 
M ,*P/  @9_"P/  *9AA*@F<  +!@:'  $!BP/ !A903 / !?3G6P/ !!8PR0
M/  W<@'AH8:!8,"P/ !!9AAAUK \ $QF?&'.L#P 3&9T)CP  /  8*)*@F9H
MD#P ,&UBL#P "6Y<U((B N6!U('4@&&DL#P (&> L#P "F;<2H-F!B8\   0
M "QX  1.KO]\(FT (B11( KE@"1 M))L+$J"9RCE@B R* !G(") D_P   !<
M( -.KOZ\3J[_=D*G8"9!^@ R=C%P & ,3J[_=D'Z %5V&G 4+P D""Q-3J[_
MQ"( 3J[_T").+'@ !$ZN_F(@'TYU57-A9V4Z($)R96%K(#QT87-K(&YU;6)E
M<CX@6T%,3%T@6T-=(%M$72!;15T@6T9="E1H870@=&%S:R!D;V5S(&YO="!E
M>&ES="X*9&]S+FQI8G)A<GD      ^P    !          (        #\0  
F  (              _(   /J         _(   /K         _( 
 
end
SHAR_EOF
cat << \SHAR_EOF > cd.uue
begin 777 CD
M   #\P         !              "(   #Z0   (@L#RQX  0D2)/)3J[^
MVBA ("P K&<4Y8 F0$/Z ;QP'TZN_=@L0(" 9@1P%$YU$AH, 0 @9_@, 0 *
M9UP, 0 B9P132D)!($IP ! 89PJP 6<&#   "F;R0BC__R(*)#S____^3J[_
MK"X 9VZ>_ $$) \B!TZN_YI*@&=(2J\ !&]"WOP!!"('3J[_@B( 3J[_IF$ 
M &Y@&F%H("L !.6 ($!V !88) AA3D'Z 5YA/G  )  B3BQX  1.KOYB+D8@
M DYUWOP!!"('3J[_IB!*81Q!^0   ?!@#D'Z 0AA#B!*80I!^@$D801P%&#$
M) AV_U*#2AAF^DZN_\0B $[N_]">_ $$*D]X "XL )@@*P $Y8 D0$(284[>
M_ $$("L &.6 ($!#Z  !<@ 0$%)!#!D @&<&4P!N]& J$($@*P $Y8 D0!02
M$ +0 0P  #QL%$7J  $2VE)!4P)N^!*\ #Y201"!3G4,1  4;% B!TZN_RXJ
M &<64D0O!RX%+P5AYE-$(A\N'TZN_Z9Z 20-(@=.KO^:2H!G)$JM  1O'D'M
M  @0&&<$81Q@^! \ #I*16<2$#P +TI$9@I.=4'Z $Q@ /\D#!( 1FX*4A)R
M !(2%8 0 $YU9&]S+FQI8G)A<GD 0V%N)W0@9FEN9"  (&ES(&$@9FEL92!N
M;W0@82!D:7)E8W1O<GD* $9A=&%L(&5R<F]R(&EN($-$"@     #[     $ 
/        U         /R
 
end
SHAR_EOF
cat << \SHAR_EOF > echo.uue
begin 777 Echo
M   #\P         !               <   #Z0   !PH %)$4T00& P  "!G
M]B1(#   (F<$4TI@%'@ $CP "E)$LA!G"+ 89O810?__+'@ !$/Z "YP'TZN
M_=B @&<>+$!.KO_$(@ D"B8$3J[_T").+'@ !$ZN_F)P $YU<!1.=61O<RYL
-:6)R87)Y       #\@ D
 
end
SHAR_EOF
cat << \SHAR_EOF > mkdir.uue
begin 777 MkDir
M   #\P         !              !+   #Z0   $LL>  $)$A#^@"J<!].
MKOW8+$" @&8$<!1.=1(:# $ (&?X# $ "F= # $ (F<$4TI"02!*<  0&&<*
ML %G!@P   IF\D(H__\B"B0\_____DZN_ZPB &8H(@I.KO^((@!G,DZN_Z9@
M"$'Z %1A,'  )  B3BQX  1.KOYB( ).=4ZN_Z9!^@!<810@2F$00?H ;6 $
M0?H >6$$<!1@TB0(=O]2@TH89OI.KO_$(@!.[O_09&]S+FQI8G)A<GD 36M$
M:7(@8V]M;6%N9"!L:6YE(&ES(")-:T1I<B!N86UE(@H 0V%N;F]T(&-R96%T
M92!D:7)E8W1O<GD@+2  (&%L<F5A9'D@97AI<W1S(0H 17)R;W(@8W)E871I
5;F<@9&ER96-T;W)Y(         /R
 
end
SHAR_EOF
cat << \SHAR_EOF > prompt.uue
begin 777 Prompt
M   #\P         !              !'   #Z0   $<L>  $)$@,0  \;SA#
M^@#0<!].KOW8@(!G)BQ )#P   #J)CP    L3J[_Q"( 3J[_T").+'@ !$ZN
M_F)P!4YU<!1.=9/)3J[^VB9 ("L K&?NY8 F0! :#   (&?X4TH,   *9@1%
M^@"N("L &.6 ($!#Z  != !P_U) $AIG* P!  IG(@P" "5F%@P! '!G' P!
M %!G%@P! &YF!!(\ $X2P10!8-(0@'  3G4J*P $Y84H11H4V@ ,!0 [;N)3
M25),$OP @+H ;P82W%) 8/82_  ^4D 0@'  3G5D;W,N;&EB<F%R>0!3=')I
M;F<@=&]O(&QO;F<L('!R;VUP="!L:6UI=&5D('1O(#4X(&-H87)S"CX@"@  
9     ^P    !         !X        #\F5D
 
end
SHAR_EOF
cat << \SHAR_EOF > stack.uue
begin 777 Stack
M   #\P         !              !;   #Z0   %LD2"QX  23R4ZN_MHF
M0" K *QG8N6 )D!#^@#D<!].KOW8@(!G4"Q 3E7_Q! 29TH,   *9T1P '( 
M$AH, 0 *9Q@$ 0 P;2(, 0 );AS0@"0 Y8+0@M"!8-X,@   !D!M#N2()T  
M-&!@0?H OF!&0?H F&! <!1.=2 K #3E@$/Z ,E![?_$$-EF_%-(0_H 2B(9
ML(%M^G0PL(%M!E)"D(%@]A#"(AEF[D/Z +80V6;\0>W_Q"0(=O]2@TH89OI.
MKO_$(@!.KO_0(DXL>  $3J[^8G  3EU.=0"8EH  #T)   &&H   )Q    /H
M    9     H    !     &1O<RYL:6)R87)Y '-U9V=E<W1E9"!S=&%C:R!S
M:7IE('1O;R!S;6%L; H 0F%D(&-O;6UA;F0@;&EN92X@57-E(")S=&%C:R C
H(@H 8W5R<F5N="!S=&%C:R!S:7IE(&ES(  @8GET97,*       #\F%C
 
end
SHAR_EOF
#	End of shell archive
exit 0