[comp.sys.amiga] Patch to Transformer

lachac@topaz.RUTGERS.EDU (Gerard Lachac) (03/20/87)

As promised, here it the shar package with the binary and source to the
patch for Transformer under 1.2 Kickstart.

It seems the source posted on Plink is bad, however from what I have here
you can figure out how to use the executeable:

----------------------------CUT HERE----------------------------------------

# This is a shell archive.  Remove anything before this line, then
# unpack it by saving it in a file and typing "sh file".  (Files
# unpacked will be owned by you and have default permissions.)
#
# This archive contains:
# transformer trans12.c

echo x - transformer
cat > "transformer" << '//E*O*F transformer//'
begin 644 transformer
M```#\P`````````#``````````(```)<````2P````````/I```"7$ZY```!
M-$Y5__X_/``"2'H!$DZZ`?Q<3SM`__X,;0``__YO``#Z0F=(>`"!/RW__DZZ
M`4A03S\\``%(>@#J/RW__DZZ`OA03T)G2'@!#S\M__Y.N@$F4$\_/``!2'H`
MRC\M__Y.N@+64$]"9TAX`2$_+?_^3KH!!%!//SP``4AZ`*H_+?_^3KH"M%!/
M0F=(>`$S/RW__DZZ`.)03S\\``%(>@"*/RW__DZZ`I)03T)G2'@!13\M__Y.
MN@#`4$\_/``!2'H`:C\M__Y.N@)P4$]"9TAX`7,_+?_^3KH`GE!//SP``4AZ
M`$H_+?_^3KH"3E!/0F=(>`%Y/RW__DZZ`'Q03S\\``%(>@`J/RW__DZZ`BQ0
M3S\M__Y.N@;>5$].74YU870Q`+@`$``@`"P`,`"X`+@`(E^2_``*(A'2@=*!
M*$'9_```@`)#[(".1>R`CK7)9@XR/``G:PAT`"+"4<G__"E/@)XL>``$*4Z`
MHDCG@(!.N@*\4$].=4Y5``!(YPP@."T`"$ZZ`C8V!,?\``9-[("F)$/5SKA\
M``!M"KA\`!-N!$J29A`Y?``#@1YP_TS?!#!.74YU-BT`#DC#+$-(;O__+RT`
M"B\23KH&XD_O``PJ`+"\_____V8,3KH&I#E`@1YP_V#(0J="IR\23KH&OD_O
M``Q@N$Y5```_+0`,/SP#`2\M``AA!E!/3EU.=4Y5``!(YPXP)&T`"$ZZ`:!-
M[("F)DYZ`#8%Q_P`!DJS.`!G#E)%NGP`%&WL?`A@``"T-BT`#,9\`@!G,DAX
M__\O"DZZ!C903R@`2H!G("\$3KH&6EA/+PI.N@7X6$]*@&8,3KH&#CP`L'P`
MS69V2'@#[2\*3KH&$E!/*`!*A&9,-BT`#,9\`0!F!'P!8%9(>`/N+PI.N@7R
M4$\H`$J`9@A.N@70/`!@/$AX``%(>@!\+P1.N@8$3^\`#$AX__]"IR\$3KH%
MVD_O``Q@)C8M``S&?`4`MGP%`&88+P1.N@5<6$]\!3E&@1YP_TS?#'!.74YU
M-@7'_``&)X0X`#8%Q_P`!BQ#W<L];0`,``0V+0`,QGP(`&<02'@``4*G+P1.
MN@5^3^\`##`%8,```$Y5``!(YPP@."T`"$ZZ`'0V!,?\``9-[("F)$/5SKA\
M``!M"KA\`!-N!$J29A`Y?``#@1YP_TS?!#!.74YU-BH`!,9\``-F"CE\``:!
M'G#_8.1V`#8M``XO`R\M``HO$DZZ!2I/[P`,*@"PO/____]F#$ZZ!-(Y0($>
M</]@N"`%8+1.5?_\2'@0`$*G3KH%BE!/*T#__,"\```0`&8&<`!.74YU2FR!
M(&8&("W__&#P2'@`!$AZ`!Q.N@2P+P!.N@3,3^\`##\\``%.N@`*5$]@SEY#
M"@!.50``2JR``F<&+&R``DZ6/RT`"$ZZ`L)43TY=3G5.5?_\2.<.,$AX`!](
M>@*.3KH$]E!/*4"!(DJ`9A1"ITAY``.`!TZZ!'Y03RYL@)Y.=4AX`!](>@)P
M3KH$S%!/*4"!)DJ`9A!"ITAY``.`!4ZZ!%103V#40J=.N@1\6$\F0$JK`*QG
M``&2)BL`K.6#*@,L128N`!#E@R1#%A)(@TC#UJT`"%2#.4.`D$*G-BR`D$C#
M+P-.N@0R4$\I0("6%A)(@S\#2&H``2\L@)9.N@+X3^\`"DAZ`@`6$DB#2,/6
MK("6+P-.N@*^4$\V+0`*4D,_`R\M``PO+("63KH"AD_O``I";(".)&R`EA82
M2(-20TWL@`H4-C``2(+$?``09P12BF#F%A)(@[9\`"!M,A822(,X`TI#9Q@V
M!%)#3>R`"A0V,`!(@L1\`!!F!%**8-XL2E**0A9*1&<&4FR`CF"J0A)"IS8L
M@(Y20TC#Y8,O`TZZ`W903RE`@))X`"1L@)9@.!822(-20TWL@`H4-C``2(+$
M?``09P12BF#F=@`V!.6#+&R`DBV*.``O"DZZ`@983U)`2,#5P%)$N&R`CF7"
M=@`V!.6#+&R`DD*V.`!.N@*8*4"`ICE\@`"`JDZZ`K8I0("L.7R``8"P3KH"
MJ"E`@+(Y?(`!@+8Y?``!@2`O+("2/RR`CDZZ^>Q<3T)G3KH`R%1/8```G$AK
M`%Q.N@,R6$](:P!<3KH"\EA/*4"`FBQL@)I*K@`D9Q`L;(":(FX`)"\13KH!
M_EA/+&R`FDJN`"!G3$AX`^TL;(":+RX`($ZZ`B103RE`@*9*@&<R*6R`IH"R
M*6R`IH"L.7R``("J.7R``8"V.7R``8"P)BR`IN6#*T/__"QM__PG;@`(`*0O
M+(":0F=.NOE,7$]"9V$H5$],WPQP3EU.=61O<RYL:6)R87)Y`&UA=&AF9G`N
M;&EB<F%R>0`@`$Y5__Y";?_^/RW__DZZ`0!43U)M__X,;0`*__YMZDJL@`9G
M!BQL@`9.EDJL@2IG"B\L@2I.N@'.6$]*K($F9PHO+($F3KH!OEA/2JR`FF8X
M-BR`D$C#+P,O+("63KH!U%!/-BR`CE)#2,/E@R\#+RR`DDZZ`;Y03S8M``A(
MPR\#3KH!`EA/8!A.N@&@+RR`FDZZ`<Q83R`M``@N;(">3G5.74YU,#Q__V`$
M,"\`#"!O``1*&&;\4T@B;P`(4T`0V5?(__Q"("`O``1.=2!O``0@"")O``@0
MV6;\3G4@;P`$(`A*&&;\D<`@"%.`3G5,[P,```0@"#(O``Q@`A#95\G__%)!
M8`)"&%')__Q.=4Y5``!(YPX@."T`"#8$Q_P`!DWL@*8D0]7.N'P``&T*N'P`
M$VX$2I)F$#E\``.!'G#_3-\$<$Y=3G4V*@`$QGR``&8(+Q).N@`*6$]"DG``
M8.`B+P`$+&R!(D[N_]PB+P`$+&R!(D[N_X(B+P`$+&R!(D[N_[@B+P`$+&R!
M(D[N_W`L;($B3N[_RBQL@2).[O]\3.\`!@`$+&R!(D[N_ZQ,[P`&``0L;($B
M3N[_XBQL@2).[O_$3.\`#@`$+&R!(D[N_[XB+P`$+&R!(D[N_Z9,[P`.``0L
M;($B3N[_T$CG`01,[R"```PL;("B3J[_E$S?((!.=2)O``0L;("B3N[^8DSO
M``,`!"QL@*).[O\Z(F\`!"QL@*).[O[:+&R`HD[N_WPB;P`$("\`""QL@*).
M[O\N(&\`!"QL@*).[OZ,+&R`HB)O``0@+P`(3N[]V")O``0L;("B3N[^ADSO
M``,`!"QL@*).[O[.(&\`!"QL@*).[OZ```````/L`````0`````````"````
M`````_$````"``````````````/R```#Z@```",````````````@("`@("`@
M("`P,#`P,"`@("`@("`@("`@("`@("`@()!`0$!`0$!`0$!`0$!`0$`,#`P,
M#`P,#`P,0$!`0$!`0`D)"0D)"0$!`0$!`0$!`0$!`0$!`0$!`0$!0$!`0$!`
M"@H*"@H*`@("`@("`@("`@("`@("`@("`@)`0$!`(````````_(```/K````
%`````_(*
`
end
//E*O*F transformer//

echo x - trans12.c
cat > "trans12.c" << '//E*O*F trans12.c//'
/*
 * This program patches Transformer 1.0 to run under Workbench 1.2
 * The investigation was done by phils@tekigm2.TEK.COM (Philip E Staub)
 * who posted the offsets to USENET. 
 *     Author: John Morgensen   PeopleLink -> JMORG
 *		Please spread far and wide!!
 */

main()
{
    int fd;

    fd = open("at1", 2);
    if (fd > 0) {
	lseek(fd, 0x0081L, 0);
        write(fd, "\xb8", 1);
	lseek(fd, 0x010FL, 0);
        write(fd, "\x10", 1);
	lseek(fd, 0x0121L, 0);
        write(fd, "\x20", 1);
	lseek(fd, 0x0133L, 0);
        write(fd, "\x2C", 1);
	lseek(fd, 0x0145L, 0);
        write(fd, "\x30", 1);
	lseek(fd, 0x0173L, 0);
        write(fd, "\xB8", 1);
	lseek(fd, 0x0179L, 0);
        writtsetete 1.

exit 0
-- 
----------------------------------------------------------------------------
	"Isn't fun the best thing to have?"

			lachac@topaz.rutgers.edu