DREHE.SRC
FILE INFORMATION
FILENAME(S): DREHE.SRC
FILE TYPE(S): PRG
FILE SIZE: 9.3K
FIRST SEEN: 2025-11-30 01:12:52
APPEARS ON: 6 disk(s)
FILE HASH
13c37ed3d1d7873b378d0dc551c75e39113ac3e59997a946eec1ddb6059d8af8
FOUND ON DISKS (6 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| 10805 SEITE A | DREHE.SRC | PRG | C64er | 24 | 0 | DOWNLOAD FILE |
| 15943 | DREHE.SRC | PRG | C64er | 19 | 6 | DOWNLOAD FILE |
| 15833 SEITE B | DREHE.SRC | PRG | C64er | 6 | 4 | DOWNLOAD FILE |
| 10805 SEITE A | DREHE.SRC | PRG | DuncanTwain | 24 | 0 | DOWNLOAD FILE |
| 10805 SEITE A | DREHE.SRC | PRG | DuncanTwain | 24 | 0 | DOWNLOAD FILE |
| 10805 SEITE A | DREHE.SRC | PRG | DuncanTwain | 24 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 28 08 00 00 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A |..(...;*********|
00000010: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000020: 2A 2A 2A 2A 2A 2A 2A 2A 00 4A 08 01 00 3B 20 20 |********.J...; |
00000030: 20 57 52 49 54 54 45 4E 20 4F 4E 20 32 32 2D 32 | WRITTEN ON 22-2|
00000040: 34 2E 31 32 2E 38 37 20 42 59 00 50 08 02 00 3B |4.12.87 BY.P...;|
00000050: 00 6E 08 03 00 3B 20 20 20 20 20 43 48 52 49 53 |.n...; CHRIS|
00000060: 54 49 41 4E 20 52 4F 44 45 4D 45 59 45 52 00 8C |TIAN RODEMEYER..|
00000070: 08 04 00 3B 20 20 20 20 20 47 4F 4C 44 52 45 47 |...; GOLDREG|
00000080: 45 4E 53 54 52 41 53 53 45 20 32 38 00 AA 08 05 |ENSTRASSE 28....|
00000090: 00 3B 20 20 20 20 20 34 33 37 30 20 20 4D 41 52 |.; 4370 MAR|
000000A0: 4C 20 2D 20 53 49 4E 53 45 4E 00 B0 08 06 00 3B |L - SINSEN.....;|
000000B0: 00 D7 08 07 00 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.....;**********|
000000C0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000000D0: 2A 2A 2A 2A 2A 2A 2A 00 E3 08 08 00 20 AA 24 43 |*******..... .$C|
000000E0: 30 30 30 00 E9 08 09 00 3B 00 FC 08 0A 00 3B 20 |000.....;.....; |
000000F0: 52 4F 4D 2D 52 4F 55 54 49 4E 45 4E 00 02 09 0B |ROM-ROUTINEN....|
00000100: 00 3B 00 15 09 0C 00 20 A3 43 4F 4E 55 50 4B 3D |.;..... .CONUPK=|
00000110: 24 42 41 38 43 00 27 09 0D 00 20 A3 4D 4F 56 46 |$BA8C.'... .MOVF|
00000120: 4D 3D 24 42 42 41 32 00 39 09 0E 00 20 A3 4D 4F |M=$BBA2.9... .MO|
00000130: 56 4D 46 3D 24 42 42 44 34 00 4C 09 0F 00 20 A3 |VMF=$BBD4.L... .|
00000140: 41 43 54 4F 46 43 3D 24 42 43 33 43 00 5E 09 10 |ACTOFC=$BC3C.^..|
00000150: 00 20 A3 4D 4F 56 41 46 3D 24 42 43 30 43 00 6E |. .MOVAF=$BC0C.n|
00000160: 09 11 00 20 A3 43 4F 53 3D 24 45 32 36 34 00 7F |... .COS=$E264..|
00000170: 09 12 00 20 A3 46 41 44 44 3D 24 42 38 36 37 00 |... .FADD=$B867.|
00000180: 8F 09 13 00 20 A3 53 49 4E 3D 24 45 32 36 42 00 |.... .SIN=$E26B.|
00000190: A1 09 14 00 20 A3 4E 45 47 4F 50 3D 24 42 46 42 |.... .NEGOP=$BFB|
000001A0: 34 00 B4 09 15 00 20 A3 46 4D 55 4C 54 54 3D 24 |4..... .FMULTT=$|
000001B0: 42 41 33 30 00 C7 09 16 00 20 A3 43 48 4B 43 4F |BA30..... .CHKCO|
000001C0: 4D 3D 24 41 45 46 44 00 DA 09 17 00 20 A3 46 52 |M=$AEFD..... .FR|
000001D0: 4D 4E 55 4D 3D 24 41 44 38 41 00 ED 09 18 00 20 |MNUM=$AD8A..... |
000001E0: A3 47 45 54 41 44 52 3D 24 42 37 46 37 00 FE 09 |.GETADR=$B7F7...|
000001F0: 1A 00 20 A3 46 53 55 42 3D 24 42 38 35 30 00 10 |.. .FSUB=$B850..|
00000200: 0A 1B 00 20 A3 46 41 44 44 48 3D 24 42 38 34 39 |... .FADDH=$B849|
00000210: 00 21 0A 1C 00 20 A3 53 49 47 4E 3D 24 42 43 32 |.!... .SIGN=$BC2|
00000220: 38 00 32 0A 1D 00 20 A3 41 41 44 44 3D 24 42 44 |8.2... .AADD=$BD|
00000230: 37 45 00 38 0A 31 00 3B 00 48 0A 32 00 3B 20 56 |7E.8.1.;.H.2.; V|
00000240: 41 52 49 41 42 4C 45 4E 00 4E 0A 33 00 3B 00 61 |ARIABLEN.N.3.;.a|
00000250: 0A 34 00 20 A3 54 5A 45 49 47 45 52 3D 24 33 34 |.4. .TZEIGER=$34|
00000260: 30 00 71 0A 35 00 20 A3 5A 41 45 48 4C 45 52 3D |0.q.5. .ZAEHLER=|
00000270: 32 00 80 0A 36 00 20 A3 44 45 53 54 3D 24 46 44 |2...6. .DEST=$FD|
00000280: 00 91 0A 37 00 20 A3 53 4F 55 52 43 45 3D 24 46 |...7. .SOURCE=$F|
00000290: 42 00 A2 0A 38 00 20 A3 43 48 45 4C 50 3D 24 33 |B...8. .CHELP=$3|
000002A0: 34 32 00 B0 0A 39 00 20 A3 58 53 3D 24 33 34 33 |42...9. .XS=$343|
000002B0: 00 BE 0A 3A 00 20 A3 59 53 3D 24 33 34 34 00 CC |...:. .YS=$344..|
000002C0: 0A 3B 00 20 A3 58 54 3D 24 33 34 35 00 DA 0A 3C |.;. .XT=$345...<|
000002D0: 00 20 A3 59 54 3D 24 33 34 36 00 EB 0A 3D 00 20 |. .YT=$346...=. |
000002E0: A3 59 54 41 42 5A 3D 24 33 34 37 00 FC 0A 3E 00 |.YTABZ=$347...>.|
000002F0: 20 A3 56 52 5A 43 48 4E 3D 31 30 32 00 02 0B 63 | .VRZCHN=102...c|
00000300: 00 3B 00 10 0B 64 00 A1 4C 41 58 A0 57 45 52 54 |.;...d..LAX.WERT|
00000310: 00 1F 0B 65 00 20 CA 23 3C 28 57 45 52 54 29 00 |...e. .#<(WERT).|
00000320: 2E 0B 66 00 20 C2 23 3E 28 57 45 52 54 29 00 34 |..f. .#>(WERT).4|
00000330: 0B 67 00 A2 00 3A 0B 68 00 3B 00 48 0B 69 00 A1 |.g...:.h.;.H.i..|
00000340: 53 41 58 A0 41 44 44 52 00 53 0B 6A 00 20 D2 41 |SAX.ADDR.S.j. .A|
00000350: 44 44 52 00 60 0B 6B 00 20 D3 41 44 44 52 2B 31 |DDR.`.k. .ADDR+1|
00000360: 00 66 0B 6C 00 A2 00 6C 0B 6D 00 3B 00 80 0B 6E |.f.l...l.m.;...n|
00000370: 00 A1 4C 4F 48 49 A0 57 45 52 54 2C 41 44 44 52 |..LOHI.WERT,ADDR|
00000380: 00 8F 0B 6F 00 20 A0 4C 41 58 A0 57 45 52 54 00 |...o. .LAX.WERT.|
00000390: 9E 0B 70 00 20 A0 53 41 58 A0 41 44 44 52 00 A4 |..p. .SAX.ADDR..|
000003A0: 0B 71 00 A2 00 AA 0B 72 00 3B 00 BE 0B 73 00 A1 |.q.....r.;...s..|
000003B0: 50 4F 4B 45 A0 41 44 44 52 2C 42 59 54 45 00 CA |POKE.ADDR,BYTE..|
000003C0: 0B 74 00 20 CA 23 42 59 54 45 00 D5 0B 75 00 20 |.t. .#BYTE...u. |
000003D0: D2 41 44 44 52 00 DB 0B 76 00 A2 00 E1 0B 77 00 |.ADDR...v.....w.|
000003E0: 3B 00 F3 0B 78 00 A1 54 41 44 A0 56 4F 4E 2C 4E |;...x..TAD.VON,N|
000003F0: 41 43 48 00 FD 0B 79 00 20 CA 56 4F 4E 00 08 0C |ACH...y. .VON...|
00000400: 7A 00 20 D2 4E 41 43 48 00 14 0C 7B 00 20 CA 56 |z. .NACH...{. .V|
00000410: 4F 4E 2B 31 00 21 0C 7C 00 20 D2 4E 41 43 48 2B |ON+1.!.|. .NACH+|
00000420: 31 00 27 0C 7D 00 A2 00 2D 0C 7E 00 3B 00 3F 0C |1.'.}...-.~.;.?.|
00000430: 7F 00 A1 54 42 59 A0 56 4F 4E 2C 4E 41 43 48 00 |...TBY.VON,NACH.|
00000440: 49 0C 80 00 20 CA 56 4F 4E 00 54 0C 81 00 20 D2 |I... .VON.T... .|
00000450: 4E 41 43 48 00 5A 0C 82 00 A2 00 60 0C 83 00 3B |NACH.Z.....`...;|
00000460: 00 72 0C 84 00 A1 43 42 51 A0 5A 49 45 4C 2C 41 |.r....CBQ.ZIEL,A|
00000470: 52 47 00 7D 0C 85 00 20 C4 23 41 52 47 00 88 0C |RG.}... .#ARG...|
00000480: 86 00 20 F7 5A 49 45 4C 00 8E 0C 87 00 A2 00 94 |.. .ZIEL........|
00000490: 0C 88 00 3B 00 A6 0C 89 00 A1 43 42 4E A0 5A 49 |...;......CBN.ZI|
000004A0: 45 4C 2C 41 52 47 00 B1 0C 8A 00 20 C4 23 41 52 |EL,ARG..... .#AR|
000004B0: 47 00 BC 0C 8B 00 20 F6 5A 49 45 4C 00 C2 0C 8C |G..... .ZIEL....|
000004C0: 00 A2 00 C8 0C 8D 00 3B 00 DA 0C 8E 00 A1 4C 42 |.......;......LB|
000004D0: 51 A0 5A 49 45 4C 2C 41 52 47 00 E5 0C 8F 00 20 |Q.ZIEL,ARG..... |
000004E0: C4 23 41 52 47 00 EF 0C 90 00 20 F6 2A 2B 35 00 |.#ARG..... .*+5.|
000004F0: FA 0C 91 00 20 D5 5A 49 45 4C 00 00 0D 92 00 A2 |.... .ZIEL......|
00000500: 00 06 0D 93 00 3B 00 18 0D 94 00 A1 4C 42 4E A0 |.....;......LBN.|
00000510: 5A 49 45 4C 2C 41 52 47 00 23 0D 95 00 20 C4 23 |ZIEL,ARG.#... .#|
00000520: 41 52 47 00 2D 0D 96 00 20 F7 2A 2B 35 00 38 0D |ARG.-... .*+5.8.|
00000530: 97 00 20 D5 5A 49 45 4C 00 3E 0D 98 00 A2 00 44 |.. .ZIEL.>.....D|
00000540: 0D 99 00 3B 00 56 0D 9A 00 A1 42 49 42 A0 5A 49 |...;.V....BIB.ZI|
00000550: 45 4C 2C 41 52 47 00 63 0D 9B 00 20 C4 23 41 52 |EL,ARG.c... .#AR|
00000560: 47 2B 31 00 6E 0D 9C 00 20 F5 5A 49 45 4C 00 74 |G+1.n... .ZIEL.t|
00000570: 0D 9D 00 A2 00 7A 0D 9E 00 3B 00 8C 0D 9F 00 A1 |.....z...;......|
00000580: 42 49 53 A0 5A 49 45 4C 2C 41 52 47 00 97 0D A0 |BIS.ZIEL,ARG....|
00000590: 00 20 C4 23 41 52 47 00 A2 0D A1 00 20 F4 5A 49 |. .#ARG..... .ZI|
000005A0: 45 4C 00 A8 0D A2 00 A2 00 AE 0D A3 00 3B 00 C0 |EL...........;..|
000005B0: 0D A4 00 A1 4C 42 42 A0 5A 49 45 4C 2C 41 52 47 |....LBB.ZIEL,ARG|
000005C0: 00 CD 0D A5 00 20 C4 23 41 52 47 2B 31 00 D7 0D |..... .#ARG+1...|
000005D0: A6 00 20 F4 2A 2B 35 00 E2 0D A7 00 20 D5 5A 49 |.. .*+5..... .ZI|
000005E0: 45 4C 00 E8 0D A8 00 A2 00 EE 0D A9 00 3B 00 00 |EL...........;..|
000005F0: 0E AA 00 A1 4C 42 53 A0 5A 49 45 4C 2C 41 52 47 |....LBS.ZIEL,ARG|
00000600: 00 0B 0E AB 00 20 C4 23 41 52 47 00 15 0E AC 00 |..... .#ARG.....|
00000610: 20 F5 2A 2B 35 00 20 0E AD 00 20 D5 5A 49 45 4C | .*+5. ... .ZIEL|
00000620: 00 26 0E AE 00 A2 00 34 0E AF 00 A1 44 50 4C A0 |.&.....4....DPL.|
00000630: 5A 49 45 4C 00 3B 0E B0 00 20 EE 00 46 0E B1 00 |ZIEL.;... ..F...|
00000640: 20 F0 5A 49 45 4C 00 4C 0E B2 00 A2 00 52 0E B3 | .ZIEL.L.....R..|
00000650: 00 3B 00 60 0E B4 00 A1 49 57 4F A0 41 44 44 52 |.;.`....IWO.ADDR|
00000660: 00 6B 0E B5 00 20 C9 41 44 44 52 00 75 0E B6 00 |.k... .ADDR.u...|
00000670: 20 F6 45 4E 44 00 82 0E B7 00 20 C9 41 44 44 52 | .END..... .ADDR|
00000680: 2B 31 00 8A 0E B8 00 45 4E 44 00 90 0E B9 00 A2 |+1.....END......|
00000690: 00 96 0E BA 00 3B 00 A4 0E BB 00 A1 44 57 4F A0 |.....;......DWO.|
000006A0: 41 44 44 52 00 AF 0E BC 00 20 C7 41 44 44 52 00 |ADDR..... .ADDR.|
000006B0: B9 0E BD 00 20 F6 45 4E 44 00 C6 0E BE 00 20 C7 |.... .END..... .|
000006C0: 41 44 44 52 2B 31 00 CE 0E BF 00 45 4E 44 00 D4 |ADDR+1.....END..|
000006D0: 0E C0 00 A2 00 DA 0E C1 00 3B 00 F0 0E C2 00 A1 |.........;......|
000006E0: 44 42 4E A0 5A 49 45 4C 2C 4E 45 55 2C 52 45 47 |DBN.ZIEL,NEU,REG|
000006F0: 00 FA 0E C3 00 20 C7 52 45 47 00 05 0F C4 00 20 |..... .REG..... |
00000700: F6 5A 49 45 4C 00 1C 0F C5 00 20 AC 4E 45 55 3E |.ZIEL..... .NEU>|
00000710: 32 35 35 2C 32 30 30 3B C0 C0 C0 AE 00 2D 0F C6 |255,200;.....-..|
00000720: 00 20 CA 23 4E 45 55 3B 20 20 20 20 DD 00 3D 0F |. .#NEU; ..=.|
00000730: C7 00 20 AD 32 30 31 3B C0 C0 AE 20 DD 00 4D 0F |.. .201;... ..M.|
00000740: C8 00 20 CA 4E 45 55 3B 3C C0 DB C0 BD 00 5B 0F |.. .NEU;<.....[.|
00000750: C9 00 20 D2 52 45 47 3B 3C C0 BD 00 61 0F CA 00 |.. .REG;<...a...|
00000760: A2 00 67 0F CB 00 3B 00 70 0F CC 00 A1 50 48 58 |..g...;.p....PHX|
00000770: 00 77 0F CD 00 20 D7 00 7E 0F CE 00 20 DF 00 84 |.w... ..~... ...|
00000780: 0F CF 00 A2 00 8A 0F D0 00 3B 00 93 0F D1 00 A1 |.........;......|
00000790: 50 4C 58 00 9A 0F D2 00 20 E0 00 A1 0F D3 00 20 |PLX..... ...... |
000007A0: D8 00 A7 0F D4 00 A2 00 AD 0F D5 00 3B 00 B6 0F |............;...|
000007B0: D6 00 A1 50 48 59 00 BD 0F D7 00 20 D9 00 C4 0F |...PHY..... ....|
000007C0: D8 00 20 DF 00 CA 0F D9 00 A2 00 D0 0F DA 00 3B |.. ............;|
000007D0: 00 D9 0F DB 00 A1 50 4C 59 00 E0 0F DC 00 20 E0 |......PLY..... .|
000007E0: 00 E7 0F DD 00 20 DA 00 ED 0F DE 00 A2 00 F3 0F |..... ..........|
000007F0: DF 00 3B 00 06 10 E0 00 A1 50 4C 53 A0 53 55 4D |..;......PLS.SUM|
00000800: 31 2C 53 55 4D 32 00 0D 10 E1 00 20 E5 00 18 10 |1,SUM2..... ....|
00000810: E2 00 20 CA 53 55 4D 31 00 26 10 E3 00 AE 53 55 |.. .SUM1.&....SU|
00000820: 4D 32 3E 32 35 35 00 31 10 E4 00 20 C5 53 55 4D |M2>255.1... .SUM|
00000830: 32 00 37 10 E5 00 AF 00 43 10 E6 00 20 C5 23 53 |2.7.....C... .#S|
00000840: 55 4D 32 00 49 10 E7 00 B0 00 54 10 E8 00 20 D2 |UM2.I.....T... .|
00000850: 53 55 4D 31 00 62 10 E9 00 20 F4 4E 43 41 52 52 |SUM1.b... .NCARR|
00000860: 59 43 00 6F 10 EA 00 20 C9 53 55 4D 31 2B 31 00 |YC.o... .SUM1+1.|
00000870: 7B 10 EB 00 4E 43 41 52 52 59 43 00 81 10 EC 00 |{...NCARRYC.....|
00000880: A2 00 87 10 ED 00 3B 00 98 10 EE 00 A1 4D 4E 53 |......;......MNS|
00000890: A0 4D 49 4E 2C 53 55 42 00 9F 10 EF 00 20 E6 00 |.MIN,SUB..... ..|
000008A0: A9 10 F0 00 20 CA 4D 49 4E 00 B6 10 F1 00 AE 53 |.... .MIN......S|
000008B0: 55 42 3E 32 35 35 00 C0 10 F2 00 20 D1 53 55 42 |UB>255..... .SUB|
000008C0: 00 C6 10 F3 00 AF 00 D1 10 F4 00 20 D1 23 53 55 |........... .#SU|
000008D0: 42 00 D7 10 F5 00 B0 00 E1 10 F6 00 20 D2 4D 49 |B........... .MI|
000008E0: 4E 00 EF 10 F7 00 20 F5 4E 43 41 52 52 59 43 00 |N..... .NCARRYC.|
000008F0: FB 10 F8 00 20 C7 4D 49 4E 2B 31 00 07 11 F9 00 |.... .MIN+1.....|
00000900: 4E 43 41 52 52 59 43 00 0D 11 FA 00 A2 00 13 11 |NCARRYC.........|
00000910: FB 00 3B 00 2E 11 F4 01 3B 42 45 54 52 49 45 42 |..;.....;BETRIEB|
00000920: 53 53 59 53 54 45 4D 2D 4D 41 43 52 4F 53 00 4F |SSYSTEM-MACROS.O|
00000930: 11 F5 01 3B 41 43 48 54 55 4E 47 21 21 21 20 20 |...;ACHTUNG!!! |
00000940: 42 45 49 20 57 45 52 54 45 4E 3E 24 34 30 30 00 |BEI WERTEN>$400.|
00000950: 72 11 F6 01 3B 57 49 52 44 20 44 49 45 20 41 44 |r...;WIRD DIE AD|
00000960: 44 52 45 53 53 45 20 41 4C 53 20 41 42 53 4F 4C |DRESSE ALS ABSOL|
00000970: 55 54 00 97 11 F7 01 3B 41 4E 47 45 4E 4F 4D 4D |UT.....;ANGENOMM|
00000980: 45 4E 2C 20 42 45 49 20 57 45 52 54 45 4E 3C 24 |EN, BEI WERTEN<$|
00000990: 34 30 30 20 41 4C 53 00 B4 11 F8 01 3B 5A 45 49 |400 ALS.....;ZEI|
000009A0: 47 45 52 20 41 55 46 20 44 49 45 20 41 44 44 52 |GER AUF DIE ADDR|
000009B0: 45 53 53 45 00 BA 11 FE 01 3B 00 C8 11 08 02 A1 |ESSE.....;......|
000009C0: 4D 46 4D A0 41 44 44 52 00 D7 11 09 02 AE 41 44 |MFM.ADDR......AD|
000009D0: 44 52 3E 24 34 30 30 00 E6 11 12 02 20 C2 23 3C |DR>$400..... .#<|
000009E0: 28 41 44 44 52 29 00 F5 11 1C 02 20 C3 23 3E 28 |(ADDR)..... .#>(|
000009F0: 41 44 44 52 29 00 FB 11 1D 02 AF 00 06 12 1E 02 |ADDR)...........|
00000A00: 20 C2 41 44 44 52 00 13 12 1F 02 20 C3 41 44 44 | .ADDR..... .ADD|
00000A10: 52 2B 31 00 19 12 20 02 B0 00 25 12 26 02 20 D6 |R+1... ...%.&. .|
00000A20: 24 42 42 44 34 00 2B 12 30 02 A2 00 31 12 3A 02 |$BBD4.+.0...1.:.|
00000A30: 3B 00 3F 12 44 02 A1 4D 4D 46 A0 41 44 44 52 00 |;.?.D..MMF.ADDR.|
00000A40: 4E 12 49 02 AE 41 44 44 52 3E 24 34 30 30 00 5D |N.I..ADDR>$400.]|
00000A50: 12 4E 02 20 CA 23 3C 28 41 44 44 52 29 00 6C 12 |.N. .#<(ADDR).l.|
00000A60: 58 02 20 C3 23 3E 28 41 44 44 52 29 00 72 12 59 |X. .#>(ADDR).r.Y|
00000A70: 02 AF 00 7D 12 5A 02 20 CA 41 44 44 52 00 8A 12 |...}.Z. .ADDR...|
00000A80: 5B 02 20 C3 41 44 44 52 2B 31 00 90 12 5C 02 B0 |[. .ADDR+1...\..|
00000A90: 00 9C 12 62 02 20 D6 24 42 42 41 32 00 A2 12 6C |...b. .$BBA2...l|
00000AA0: 02 A2 00 A8 12 76 02 3B 00 B6 12 80 02 A1 46 50 |.....v.;......FP|
00000AB0: 4D A0 41 44 44 52 00 C5 12 85 02 AE 41 44 44 52 |M.ADDR......ADDR|
00000AC0: 3E 24 34 30 30 00 D4 12 8A 02 20 CA 23 3C 28 41 |>$400..... .#<(A|
00000AD0: 44 44 52 29 00 E3 12 94 02 20 C3 23 3E 28 41 44 |DDR)..... .#>(AD|
00000AE0: 44 52 29 00 E9 12 95 02 AF 00 F4 12 96 02 20 CA |DR)........... .|
00000AF0: 41 44 44 52 00 01 13 97 02 20 C3 41 44 44 52 2B |ADDR..... .ADDR+|
00000B00: 31 00 07 13 98 02 B0 00 13 13 9E 02 20 D6 24 42 |1........... .$B|
00000B10: 38 36 37 00 19 13 A8 02 A2 00 1F 13 E7 03 3B 00 |867...........;.|
00000B20: 46 13 E8 03 3B 43 52 54 41 42 20 45 52 5A 45 55 |F...;CRTAB ERZEU|
00000B30: 47 54 20 44 49 45 20 54 41 42 45 4C 4C 45 4E 20 |GT DIE TABELLEN |
00000B40: 53 49 4E 54 41 42 00 6D 13 EA 03 3B 26 20 43 4F |SINTAB.m...;& CO|
00000B50: 53 54 41 42 2C 20 44 45 52 20 57 49 4E 4B 45 4C |STAB, DER WINKEL|
00000B60: 20 53 54 45 48 54 20 49 4E 20 46 41 43 00 73 13 | STEHT IN FAC.s.|
00000B70: EC 03 3B 00 89 13 F2 03 43 52 54 41 42 20 4D 46 |..;.....CRTAB MF|
00000B80: 4D A0 53 49 4E 48 45 4C 50 00 93 13 FC 03 20 D6 |M.SINHELP..... .|
00000B90: 43 4F 53 00 A4 13 06 04 20 4D 46 4D A0 43 4F 53 |COS..... MFM.COS|
00000BA0: 48 45 4C 50 00 B0 13 08 04 20 D6 4D 4F 56 41 46 |HELP..... .MOVAF|
00000BB0: 00 BA 13 09 04 20 CA 23 31 32 00 C7 13 0A 04 20 |..... .#12..... |
00000BC0: D6 41 43 54 4F 46 43 00 D4 13 0B 04 20 D6 46 4D |.ACTOFC..... .FM|
00000BD0: 55 4C 54 54 00 E0 13 0C 04 20 D6 4E 45 47 4F 50 |ULTT..... .NEGOP|
00000BE0: 00 E9 13 10 04 20 CA 23 30 00 F7 13 1A 04 20 D2 |..... .#0..... .|
00000BF0: 5A 41 45 48 4C 45 52 00 10 14 2E 04 20 4C 4F 48 |ZAEHLER..... LOH|
00000C00: 49 A0 43 4F 53 54 41 42 2C 54 5A 45 49 47 45 52 |I.COSTAB,TZEIGER|
00000C10: 00 28 14 38 04 43 4F 53 4C 4F 4F 50 20 4D 46 4D |.(.8.COSLOOP MFM|
00000C20: A0 54 5A 45 49 47 45 52 00 3B 14 42 04 20 50 4C |.TZEIGER.;.B. PL|
00000C30: 53 A0 54 5A 45 49 47 45 52 2C 35 00 4C 14 7E 04 |S.TZEIGER,5.L.~.|
00000C40: 20 46 50 4D A0 43 4F 53 48 45 4C 50 00 5A 14 88 | FPM.COSHELP.Z..|
00000C50: 04 20 C9 5A 41 45 48 4C 45 52 00 68 14 92 04 20 |. .ZAEHLER.h... |
00000C60: CA 5A 41 45 48 4C 45 52 00 7C 14 9C 04 20 43 42 |.ZAEHLER.|... CB|
00000C70: 4E A0 43 4F 53 4C 4F 4F 50 2C 32 34 00 82 14 A6 |N.COSLOOP,24....|
00000C80: 04 3B 00 93 14 B0 04 20 4D 4D 46 A0 53 49 4E 48 |.;..... MMF.SINH|
00000C90: 45 4C 50 00 9D 14 BA 04 20 D6 53 49 4E 00 AE 14 |ELP..... .SIN...|
00000CA0: C4 04 20 4D 46 4D A0 53 49 4E 48 45 4C 50 00 BA |.. MFM.SINHELP..|
00000CB0: 14 C5 04 20 D6 4D 4F 56 41 46 00 C4 14 C6 04 20 |... .MOVAF..... |
00000CC0: CA 23 31 32 00 D1 14 C7 04 20 D6 41 43 54 4F 46 |.#12..... .ACTOF|
00000CD0: 43 00 DE 14 C8 04 20 D6 46 4D 55 4C 54 54 00 EA |C..... .FMULTT..|
00000CE0: 14 C9 04 20 D6 4E 45 47 4F 50 00 F3 14 CE 04 20 |... .NEGOP..... |
00000CF0: CA 23 30 00 01 15 D8 04 20 D2 5A 41 45 48 4C 45 |.#0..... .ZAEHLE|
00000D00: 52 00 1A 15 EC 04 20 4C 4F 48 49 A0 53 49 4E 54 |R..... LOHI.SINT|
00000D10: 41 42 2C 54 5A 45 49 47 45 52 00 32 15 F6 04 53 |AB,TZEIGER.2...S|
00000D20: 49 4E 4C 4F 4F 50 20 4D 46 4D A0 54 5A 45 49 47 |INLOOP MFM.TZEIG|
00000D30: 45 52 00 45 15 00 05 20 50 4C 53 A0 54 5A 45 49 |ER.E... PLS.TZEI|
00000D40: 47 45 52 2C 35 00 56 15 3C 05 20 46 50 4D A0 53 |GER,5.V.<. FPM.S|
00000D50: 49 4E 48 45 4C 50 00 64 15 46 05 20 C9 5A 41 45 |INHELP.d.F. .ZAE|
00000D60: 48 4C 45 52 00 72 15 50 05 20 CA 5A 41 45 48 4C |HLER.r.P. .ZAEHL|
00000D70: 45 52 00 86 15 5A 05 20 43 42 4E A0 53 49 4E 4C |ER...Z. CBN.SINL|
00000D80: 4F 4F 50 2C 32 34 00 8D 15 64 05 20 E3 00 93 15 |OOP,24...d. ....|
00000D90: 6E 05 3B 00 B7 15 DC 05 3B 45 49 4E 47 41 42 45 |n.;.....;EINGABE|
00000DA0: 50 41 52 41 4D 45 54 45 52 28 56 4F 4E 20 43 41 |PARAMETER(VON CA|
00000DB0: 4C 43 50 4F 53 29 3A 00 DC 15 E6 05 3B 5A 45 49 |LCPOS):.....;ZEI|
00000DC0: 4C 45 20 49 4D 20 59 2D 52 45 47 3B 20 53 50 41 |LE IM Y-REG; SPA|
00000DD0: 4C 54 45 20 49 4D 20 58 2D 52 45 47 00 F3 15 F0 |LTE IM X-REG....|
00000DE0: 05 3B 41 55 53 47 41 42 45 50 41 52 41 4D 45 54 |.;AUSGABEPARAMET|
00000DF0: 45 52 3A 00 15 16 FA 05 3B 41 44 44 52 45 53 53 |ER:.....;ADDRESS|
00000E00: 45 20 44 45 53 20 42 59 54 45 53 20 49 4D 20 53 |E DES BYTES IM S|
00000E10: 50 52 49 54 45 00 39 16 04 06 3B 53 54 45 48 54 |PRITE.9...;STEHT|
00000E20: 20 49 4D 20 59 2D 52 45 47 2C 20 44 49 45 20 4E | IM Y-REG, DIE N|
00000E30: 55 4D 4D 45 52 20 44 45 53 00 4C 16 0E 06 3B 42 |UMMER DES.L...;B|
00000E40: 49 54 53 20 49 4D 20 58 2D 52 45 47 00 52 16 18 |ITS IM X-REG.R..|
00000E50: 06 3B 00 60 16 22 06 43 41 4C 43 50 4F 53 20 D9 |.;.`.".CALCPOS .|
00000E60: 00 6C 16 2C 06 20 D2 43 48 45 4C 50 00 73 16 36 |.l.,. .CHELP.s.6|
00000E70: 06 20 CB 00 7A 16 40 06 20 E5 00 86 16 4A 06 20 |. ..z.@. ....J. |
00000E80: C5 43 48 45 4C 50 00 92 16 54 06 20 D2 43 48 45 |.CHELP...T. .CHE|
00000E90: 4C 50 00 99 16 5E 06 20 D7 00 A0 16 68 06 20 E6 |LP...^. ....h. .|
00000EA0: 00 AE 16 72 06 54 4C 4F 4F 50 20 D1 23 38 00 BA |...r.TLOOP .#8..|
00000EB0: 16 7C 06 20 C9 43 48 45 4C 50 00 C6 16 86 06 20 |.|. .CHELP..... |
00000EC0: F5 54 4C 4F 4F 50 00 D2 16 90 06 20 C7 43 48 45 |.TLOOP..... .CHE|
00000ED0: 4C 50 00 DB 16 9A 06 20 C5 23 38 00 E2 16 A4 06 |LP..... .#8.....|
00000EE0: 20 D8 00 EE 16 A5 06 20 C3 43 48 45 4C 50 00 F5 | ...... .CHELP..|
00000EF0: 16 AE 06 20 E3 00 FB 16 B8 06 3B 00 1A 17 D6 06 |... ......;.....|
00000F00: 42 49 54 53 20 A5 31 32 38 2C 36 34 2C 33 32 2C |BITS .128,64,32,|
00000F10: 31 36 2C 38 2C 34 2C 32 2C 31 00 20 17 E0 06 3B |16,8,4,2,1. ...;|
00000F20: 00 3C 17 D0 07 3B 41 57 49 A0 52 45 47 2C 54 41 |.<...;AWI.REG,TA|
00000F30: 42 20 42 52 49 4E 47 54 20 44 49 45 00 5E 17 DA |B BRINGT DIE.^..|
00000F40: 07 3B 41 44 44 52 45 53 53 45 20 44 45 53 20 4E |.;ADDRESSE DES N|
00000F50: 2E 20 4D 46 4C 50 54 2D 57 45 52 54 45 53 00 7E |. MFLPT-WERTES.~|
00000F60: 17 E4 07 3B 49 4E 20 44 45 52 20 54 41 42 45 4C |...;IN DER TABEL|
00000F70: 4C 45 20 49 4E 20 54 5A 45 49 47 45 52 2E 00 A1 |LE IN TZEIGER...|
00000F80: 17 EE 07 3B 44 49 45 20 4E 55 4D 4D 45 52 20 53 |...;DIE NUMMER S|
00000F90: 54 45 48 54 20 44 41 42 45 49 20 49 4E 20 44 45 |TEHT DABEI IN DE|
00000FA0: 4D 00 C8 17 F8 07 3B 44 55 52 43 48 20 52 45 47 |M.....;DURCH REG|
00000FB0: 20 53 50 45 5A 49 46 49 5A 49 45 52 54 45 4E 20 | SPEZIFIZIERTEN |
00000FC0: 52 45 47 49 53 54 45 52 00 E1 17 02 08 3B 44 49 |REGISTER.....;DI|
00000FD0: 45 20 54 41 42 45 4C 4C 45 20 49 4E 20 54 41 42 |E TABELLE IN TAB|
00000FE0: 2E 00 E7 17 0C 08 3B 00 F8 17 16 08 A1 41 57 49 |......;......AWI|
00000FF0: A0 52 45 47 2C 54 41 42 00 13 18 20 08 20 50 4F |.REG,TAB... . PO|
00001000: 4B 45 A0 54 5A 45 49 47 45 52 2B 31 2C 3E 28 54 |KE.TZEIGER+1,>(T|
00001010: 41 42 29 00 1D 18 2A 08 20 CA 52 45 47 00 24 18 |AB)...*. .REG.$.|
00001020: 34 08 20 CB 00 2B 18 3E 08 20 CB 00 32 18 48 08 |4. ..+.>. ..2.H.|
00001030: 20 E5 00 3C 18 52 08 20 C5 52 45 47 00 4A 18 5C | ..<.R. .REG.J.\|
00001040: 08 20 C5 23 3C 28 54 41 42 29 00 58 18 66 08 20 |. .#<(TAB).X.f. |
00001050: D2 54 5A 45 49 47 45 52 00 62 18 70 08 20 F4 2A |.TZEIGER.b.p. .*|
00001060: 2B 35 00 72 18 7A 08 20 C9 54 5A 45 49 47 45 52 |+5.r.z. .TZEIGER|
00001070: 2B 31 00 78 18 8E 08 A2 00 7E 18 98 08 3B 00 A5 |+1.x.....~...;..|
00001080: 18 28 23 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.(#;************|
00001090: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000010A0: 2A 2A 2A 2A 2A 00 C8 18 32 23 3B 48 49 45 52 20 |*****...2#;HIER |
000010B0: 53 54 45 48 54 20 44 41 53 20 48 41 55 50 54 50 |STEHT DAS HAUPTP|
000010C0: 52 4F 47 52 41 4D 4D 2C 00 EF 18 33 23 3B 2A 2A |ROGRAMM,...3#;**|
000010D0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000010E0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 |***************.|
000010F0: 13 19 3C 23 3B 4E 55 4E 41 45 43 48 53 54 20 57 |..<#;NUNAECHST W|
00001100: 49 52 44 20 46 4F 4C 47 45 4E 44 45 20 53 59 4E |IRD FOLGENDE SYN|
00001110: 54 41 58 00 24 19 46 23 3B 52 45 41 4C 49 53 49 |TAX.$.F#;REALISI|
00001120: 45 52 54 3A 00 2A 19 50 23 3B 00 4C 19 5A 23 3B |ERT:.*.P#;.L.Z#;|
00001130: 53 59 53 20 34 39 33 35 38 2C 51 55 45 4C 4C 45 |SYS 49358,QUELLE|
00001140: 2C 5A 49 45 4C 2C 57 49 4E 4B 45 4C 00 52 19 64 |,ZIEL,WINKEL.R.d|
00001150: 23 3B 00 71 19 6E 23 3B 51 55 45 4C 4C 45 20 55 |#;.q.n#;QUELLE U|
00001160: 4E 44 20 5A 49 45 4C 20 47 45 42 45 4E 20 44 49 |ND ZIEL GEBEN DI|
00001170: 45 00 96 19 78 23 3B 41 4E 46 41 4E 47 53 41 44 |E...x#;ANFANGSAD|
00001180: 44 52 45 53 53 45 4E 20 44 45 52 20 53 50 52 49 |DRESSEN DER SPRI|
00001190: 54 45 53 20 41 4E 00 BC 19 82 23 3B 28 30 2D 36 |TES AN....#;(0-6|
000011A0: 35 35 33 35 29 2C 20 51 55 45 4C 4C 45 20 57 49 |5535), QUELLE WI|
000011B0: 52 44 20 49 4E 20 53 4F 55 52 43 45 00 DB 19 8C |RD IN SOURCE....|
000011C0: 23 3B 5A 49 45 4C 20 49 4E 20 44 45 53 54 20 47 |#;ZIEL IN DEST G|
000011D0: 45 53 50 45 49 43 48 45 52 54 2E 00 02 1A 96 23 |ESPEICHERT.....#|
000011E0: 3B 57 49 4E 4B 45 4C 20 47 49 42 54 20 44 45 4E |;WINKEL GIBT DEN|
000011F0: 20 57 49 4E 4B 45 4C 20 55 4D 20 44 45 4E 20 44 | WINKEL UM DEN D|
00001200: 41 53 00 27 1A A0 23 3B 51 55 45 4C 4C 53 50 52 |AS.'..#;QUELLSPR|
00001210: 49 54 45 20 47 45 44 52 45 48 54 20 57 45 52 44 |ITE GEDREHT WERD|
00001220: 45 4E 20 53 4F 4C 4C 00 49 1A AA 23 3B 49 4D 20 |EN SOLL.I..#;IM |
00001230: 42 4F 47 45 4E 4D 41 53 53 20 41 4E 2E 20 44 49 |BOGENMASS AN. DI|
00001240: 45 53 45 52 20 57 45 52 54 00 6B 1A B4 23 3B 56 |ESER WERT.k..#;V|
00001250: 45 52 42 4C 45 49 42 54 20 46 55 45 52 20 43 52 |ERBLEIBT FUER CR|
00001260: 54 41 42 20 49 4D 20 46 41 43 2E 00 71 1A BE 23 |TAB IM FAC..q..#|
00001270: 3B 00 83 1A 10 27 44 52 45 48 45 20 D6 43 48 4B |;....'DREHE .CHK|
00001280: 43 4F 4D 00 90 1A 1A 27 20 D6 46 52 4D 4E 55 4D |COM....' .FRMNUM|
00001290: 00 9D 1A 24 27 20 D6 47 45 54 41 44 52 00 AA 1A |...$' .GETADR...|
000012A0: 2E 27 20 D4 53 4F 55 52 43 45 00 B9 1A 38 27 20 |.' .SOURCE...8' |
000012B0: D2 53 4F 55 52 43 45 2B 31 00 BF 1A 42 27 3B 00 |.SOURCE+1...B';.|
000012C0: CC 1A 4C 27 20 D6 43 48 4B 43 4F 4D 00 D9 1A 56 |..L' .CHKCOM...V|
000012D0: 27 20 D6 46 52 4D 4E 55 4D 00 E6 1A 60 27 20 D6 |' .FRMNUM...`' .|
000012E0: 47 45 54 41 44 52 00 F1 1A 6A 27 20 D4 44 45 53 |GETADR...j' .DES|
000012F0: 54 00 FE 1A 74 27 20 D2 44 45 53 54 2B 31 00 04 |T...t' .DEST+1..|
00001300: 1B 7E 27 3B 00 11 1B 88 27 20 D6 43 48 4B 43 4F |.~';....' .CHKCO|
00001310: 4D 00 1E 1B 92 27 20 D6 46 52 4D 4E 55 4D 00 24 |M....' .FRMNUM.$|
00001320: 1B 9C 27 3B 00 43 1B A6 27 3B 54 41 42 45 4C 4C |..';.C..';TABELL|
00001330: 45 20 45 52 53 54 45 4C 4C 45 4E 20 28 43 52 54 |E ERSTELLEN (CRT|
00001340: 41 42 29 00 49 1B B0 27 3B 00 5A 1B BA 27 55 53 |AB).I..';.Z..'US|
00001350: 52 49 4E 20 D6 43 52 54 41 42 00 60 1B C4 27 3B |RIN .CRTAB.`..';|
00001360: 00 87 1B CE 27 3B 44 41 53 20 5A 49 45 4C 53 50 |....';DAS ZIELSP|
00001370: 52 49 54 45 20 57 49 52 44 20 47 45 4C 4F 45 53 |RITE WIRD GELOES|
00001380: 43 48 54 2C 20 44 41 00 AA 1B D8 27 3B 44 41 4E |CHT, DA....';DAN|
00001390: 4E 20 44 49 45 20 44 52 45 48 55 4E 47 20 44 45 |N DIE DREHUNG DE|
000013A0: 52 20 4E 49 43 48 54 47 45 2D 00 C8 1B E2 27 3B |R NICHTGE-....';|
000013B0: 53 45 54 5A 54 45 4E 20 50 49 58 45 4C 20 45 4E |SETZTEN PIXEL EN|
000013C0: 54 46 41 45 4C 4C 54 2E 00 CE 1B EC 27 3B 00 D7 |TFAELLT.....';..|
000013D0: 1B F6 27 20 CA 23 30 00 E1 1B 00 28 20 C3 23 36 |..' .#0....( .#6|
000013E0: 33 00 F5 1B 0A 28 44 4C 4F 4F 50 20 D2 28 44 45 |3....(DLOOP .(DE|
000013F0: 53 54 29 2C 59 00 FC 1B 14 28 20 EC 00 08 1C 1E |ST),Y....( .....|
00001400: 28 20 F0 44 4C 4F 4F 50 00 0E 1C 28 28 3B 00 34 |( .DLOOP...((;.4|
00001410: 1C 32 28 3B 44 49 45 20 52 45 41 4C 4B 4F 4F 52 |.2(;DIE REALKOOR|
00001420: 44 49 4E 41 54 45 4E 5A 45 49 47 45 52 20 58 53 |DINATENZEIGER XS|
00001430: 20 55 4E 44 00 5B 1C 3C 28 3B 59 53 20 57 45 52 | UND.[.<(;YS WER|
00001440: 44 45 4E 20 41 55 46 20 44 45 4E 20 52 45 41 4C |DEN AUF DEN REAL|
00001450: 45 4E 20 55 52 53 50 52 55 4E 47 00 6D 1C 46 28 |EN URSPRUNG.m.F(|
00001460: 3B 30 DD 30 20 47 45 53 45 54 5A 54 2E 00 73 1C |;0.0 GESETZT..s.|
00001470: 50 28 3B 00 7C 1C 5A 28 20 D2 58 53 00 85 1C 64 |P(;.|.Z( .XS...d|
00001480: 28 20 D2 59 53 00 98 1C 65 28 20 50 4F 4B 45 A0 |( .YS...e( POKE.|
00001490: 59 54 41 42 5A 2C 32 32 00 9E 1C 6E 28 3B 00 C5 |YTABZ,22...n(;..|
000014A0: 1C 78 28 3B 44 49 45 20 41 44 44 52 45 53 53 45 |.x(;DIE ADDRESSE|
000014B0: 20 44 45 53 20 5A 55 20 42 45 41 52 42 45 49 54 | DES ZU BEARBEIT|
000014C0: 45 4E 44 45 4E 00 E5 1C 82 28 3B 50 49 58 45 4C |ENDEN....(;PIXEL|
000014D0: 53 20 49 4D 20 51 55 45 4C 4C 53 50 52 49 54 45 |S IM QUELLSPRITE|
000014E0: 20 57 49 52 44 00 F5 1C 8C 28 3B 42 45 52 45 43 | WIRD....(;BEREC|
000014F0: 48 4E 45 54 2E 00 FB 1C 96 28 3B 00 0D 1D A0 28 |HNET.....(;....(|
00001500: 54 52 41 4E 53 4C 4F 4F 50 20 C2 58 53 00 16 1D |TRANSLOOP .XS...|
00001510: AA 28 20 C3 59 53 00 24 1D B4 28 20 D6 43 41 4C |.( .YS.$..( .CAL|
00001520: 43 50 4F 53 00 2A 1D BE 28 3B 00 51 1D C8 28 3B |CPOS.*..(;.Q..(;|
00001530: 45 53 20 57 49 52 44 20 47 45 50 52 55 45 46 54 |ES WIRD GEPRUEFT|
00001540: 2C 20 4F 42 20 44 49 45 53 45 53 20 50 49 58 45 |, OB DIESES PIXE|
00001550: 4C 00 73 1D D2 28 3B 55 45 42 45 52 48 41 55 50 |L.s..(;UEBERHAUP|
00001560: 54 20 47 45 53 45 54 5A 54 20 49 53 54 2C 20 57 |T GESETZT IST, W|
00001570: 45 4E 4E 00 98 1D DC 28 3B 4A 41 2C 20 57 45 52 |ENN....(;JA, WER|
00001580: 44 45 4E 20 44 49 45 20 4B 4F 4F 52 44 49 4E 41 |DEN DIE KOORDINA|
00001590: 54 45 4E 20 4E 41 43 48 00 B4 1D E6 28 3B 44 45 |TEN NACH....(;DE|
000015A0: 52 20 44 52 45 48 55 4E 47 20 42 45 52 45 43 48 |R DREHUNG BERECH|
000015B0: 4E 45 54 2C 00 D9 1D F0 28 3B 41 4E 44 45 52 4E |NET,....(;ANDERN|
000015C0: 46 41 4C 4C 53 20 57 49 52 44 20 44 49 45 53 45 |FALLS WIRD DIESE|
000015D0: 52 20 53 43 48 52 49 54 54 00 ED 1D FA 28 3B 55 |R SCHRITT....(;U|
000015E0: 45 42 45 52 53 50 52 55 4E 47 45 4E 2E 00 F3 1D |EBERSPRUNGEN....|
000015F0: 04 29 3B 00 04 1E 0E 29 20 CA 28 53 4F 55 52 43 |.);....) .(SOURC|
00001600: 45 29 2C 59 00 11 1E 18 29 20 C6 42 49 54 53 2C |E),Y....) .BITS,|
00001610: 58 00 1A 1E 19 29 20 C4 23 30 00 24 1E 22 29 20 |X....) .#0.$.") |
00001620: F6 2A 2B 35 00 32 1E 27 29 20 D5 4E 45 58 54 50 |.*+5.2.') .NEXTP|
00001630: 58 4C 00 38 1E 2C 29 3B 00 5F 1E 36 29 3B 44 49 |XL.8.,);._.6);DI|
00001640: 45 20 58 2D 4B 4F 4F 52 44 49 4E 41 54 45 20 4E |E X-KOORDINATE N|
00001650: 41 43 48 20 44 45 52 20 44 52 45 48 55 4E 47 00 |ACH DER DREHUNG.|
00001660: 84 1E 40 29 3B 57 49 52 44 20 49 4E 20 44 45 4D |..@);WIRD IN DEM|
00001670: 20 50 53 45 55 44 4F 2D 4B 4F 4F 52 44 49 4E 41 | PSEUDO-KOORDINA|
00001680: 54 45 4E 2D 00 A5 1E 4A 29 3B 53 59 53 54 45 4D |TEN-...J);SYSTEM|
00001690: 20 4E 41 43 48 20 46 4F 4C 45 4E 44 45 4D 20 53 | NACH FOLENDEM S|
000016A0: 43 48 45 4D 41 00 CA 1E 54 29 3B 42 45 52 45 43 |CHEMA...T);BEREC|
000016B0: 48 4E 45 54 3A 20 58 27 3D 58 2A 43 4F 53 28 57 |HNET: X'=X*COS(W|
000016C0: 29 2D 59 2A 53 49 4E 28 57 29 00 EC 1E 5E 29 3B |)-Y*SIN(W)...^);|
000016D0: 44 49 45 20 50 52 4F 44 55 4B 54 45 20 53 49 4E |DIE PRODUKTE SIN|
000016E0: 44 20 49 4E 20 44 45 4E 20 56 4F 4E 00 0E 1F 68 |D IN DEN VON...h|
000016F0: 29 3B 43 52 54 41 42 20 45 52 5A 45 55 47 54 45 |);CRTAB ERZEUGTE|
00001700: 4E 20 54 41 42 45 4C 4C 45 4E 20 41 42 2D 00 20 |N TABELLEN AB-. |
00001710: 1F 72 29 3B 47 45 53 50 45 49 43 48 45 52 54 2E |.r);GESPEICHERT.|
00001720: 00 26 1F 7C 29 3B 00 47 1F 86 29 3B 5A 55 4E 41 |.&.|);.G..);ZUNA|
00001730: 45 43 48 53 54 20 57 49 52 44 20 44 45 52 20 59 |ECHST WIRD DER Y|
00001740: 2A 53 49 4E 28 57 29 00 60 1F 90 29 3B 49 4E 20 |*SIN(W).`..);IN |
00001750: 44 45 4E 20 46 41 43 20 47 45 42 52 41 43 48 54 |DEN FAC GEBRACHT|
00001760: 00 66 1F 9A 29 3B 00 7C 1F A4 29 20 41 57 49 A0 |.f..);.|..) AWI.|
00001770: 59 54 41 42 5A 2C 53 49 4E 54 41 42 00 8D 1F AE |YTABZ,SINTAB....|
00001780: 29 20 4D 4D 46 A0 54 5A 45 49 47 45 52 00 93 1F |) MMF.TZEIGER...|
00001790: B8 29 3B 00 B9 1F C2 29 3B 58 2A 43 4F 53 28 57 |.);....);X*COS(W|
000017A0: 29 20 57 49 52 44 20 49 4E 20 41 2F 59 20 41 44 |) WIRD IN A/Y AD|
000017B0: 44 52 45 53 53 49 45 52 54 00 BF 1F CC 29 3B 00 |DRESSIERT....);.|
000017C0: D2 1F D6 29 20 41 57 49 A0 58 53 2C 43 4F 53 54 |...) AWI.XS,COST|
000017D0: 41 42 00 E0 1F E0 29 20 CA 54 5A 45 49 47 45 52 |AB....) .TZEIGER|
000017E0: 00 F0 1F EA 29 20 C3 54 5A 45 49 47 45 52 2B 31 |....) .TZEIGER+1|
000017F0: 00 F6 1F F4 29 3B 00 1B 20 FE 29 3B 4D 49 54 54 |....);.. .);MITT|
00001800: 45 4C 53 20 46 53 55 42 20 57 49 52 44 20 44 49 |ELS FSUB WIRD DI|
00001810: 45 20 44 49 46 46 45 52 45 4E 5A 00 3D 20 08 2A |E DIFFERENZ.= .*|
00001820: 3B 47 45 42 49 4C 44 45 54 20 55 4E 44 20 44 41 |;GEBILDET UND DA|
00001830: 53 20 45 52 47 45 42 4E 49 53 20 49 4E 00 60 20 |S ERGEBNIS IN.` |
00001840: 12 2A 3B 52 45 41 4C 45 20 4B 4F 4F 52 44 49 4E |.*;REALE KOORDIN|
00001850: 41 54 45 4E 20 55 4D 47 45 52 45 43 48 4E 45 54 |ATEN UMGERECHNET|
00001860: 00 66 20 1C 2A 3B 00 71 20 26 2A 20 D6 46 53 55 |.f .*;.q &* .FSU|
00001870: 42 00 7B 20 30 2A 20 CA 23 31 32 00 86 20 3A 2A |B.{ 0* .#12.. :*|
00001880: 20 D6 41 41 44 44 00 92 20 44 2A 20 D6 46 41 44 | .AADD.. D* .FAD|
00001890: 44 48 00 98 20 4E 2A 3B 00 BF 20 58 2A 3B 57 45 |DH.. N*;.. X*;WE|
000018A0: 4E 4E 20 45 49 4E 45 20 42 45 52 45 49 43 48 53 |NN EINE BEREICHS|
000018B0: 55 45 42 45 52 53 43 48 52 45 49 54 55 4E 47 00 |UEBERSCHREITUNG.|
000018C0: E2 20 62 2A 3B 46 41 43 20 41 4C 53 4F 20 4E 45 |. b*;FAC ALSO NE|
000018D0: 47 41 54 49 56 20 49 53 54 2C 20 53 4F 20 57 49 |GATIV IST, SO WI|
000018E0: 52 44 00 00 21 6C 2A 3B 53 4F 46 4F 52 54 20 44 |RD..!l*;SOFORT D|
000018F0: 45 52 20 4E 41 45 43 48 54 45 20 50 49 58 45 4C |ER NAECHTE PIXEL|
00001900: 00 11 21 76 2A 3B 42 45 41 52 42 45 49 54 45 54 |..!v*;BEARBEITET|
00001910: 2C 00 17 21 80 2A 3B 00 24 21 8A 2A 20 CA 56 52 |,..!.*;.$!.* .VR|
00001920: 5A 43 48 4E 00 32 21 94 2A 20 F1 4E 45 58 54 50 |ZCHN.2!.* .NEXTP|
00001930: 58 4C 00 38 21 9E 2A 3B 00 5C 21 A8 2A 3B 41 4E |XL.8!.*;.\!.*;AN|
00001940: 44 45 52 46 41 4C 4C 53 20 57 49 52 44 20 44 49 |DERFALLS WIRD DI|
00001950: 45 20 4B 4F 4F 52 44 49 4E 41 54 45 00 80 21 B2 |E KOORDINATE..!.|
00001960: 2A 3B 49 4E 20 49 4E 54 45 47 45 52 20 47 45 57 |*;IN INTEGER GEW|
00001970: 41 4E 44 45 4C 54 2C 20 41 55 46 20 45 49 4E 45 |ANDELT, AUF EINE|
00001980: 00 A6 21 BC 2A 3B 50 4F 53 49 54 49 56 45 20 42 |..!.*;POSITIVE B|
00001990: 45 52 45 49 43 48 53 55 45 42 45 52 53 43 48 52 |EREICHSUEBERSCHR|
000019A0: 45 49 54 55 4E 47 00 CA 21 C6 2A 3B 47 45 50 52 |EITUNG..!.*;GEPR|
000019B0: 55 45 46 54 20 55 4E 44 20 46 41 4C 4C 53 20 44 |UEFT UND FALLS D|
000019C0: 49 45 53 45 20 4E 49 43 48 54 00 F0 21 C7 2A 3B |IESE NICHT..!.*;|
000019D0: 56 4F 52 48 41 4E 44 45 4E 20 57 41 52 20 49 4E |VORHANDEN WAR IN|
000019E0: 20 58 54 20 47 45 53 50 45 49 43 48 45 52 54 2E | XT GESPEICHERT.|
000019F0: 00 F6 21 D0 2A 3B 00 03 22 DA 2A 20 D6 47 45 54 |..!.*;..".* .GET|
00001A00: 41 44 52 00 0D 22 DB 2A 20 C1 23 32 34 00 1B 22 |ADR..".* .#24.."|
00001A10: DC 2A 20 F5 4E 45 58 54 50 58 4C 00 24 22 EE 2A |.* .NEXTPXL.$".*|
00001A20: 20 D4 58 54 00 2A 22 F8 2A 3B 00 51 22 02 2B 3B | .XT.*".*;.Q".+;|
00001A30: 44 49 45 20 59 2D 4B 4F 4F 52 44 49 4E 41 54 45 |DIE Y-KOORDINATE|
00001A40: 20 4E 41 43 48 20 44 45 52 20 44 52 45 48 55 4E | NACH DER DREHUN|
00001A50: 47 00 75 22 0C 2B 3B 57 49 52 44 20 4E 41 43 48 |G.u".+;WIRD NACH|
00001A60: 20 59 27 3D 58 2A 53 49 4E 28 57 29 2B 59 2A 43 | Y'=X*SIN(W)+Y*C|
00001A70: 4F 53 28 57 29 00 99 22 16 2B 3B 42 45 52 45 43 |OS(W)..".+;BEREC|
00001A80: 48 4E 45 54 2E 20 44 49 45 20 42 45 52 45 43 48 |HNET. DIE BERECH|
00001A90: 4E 55 4E 47 20 47 45 48 54 00 B8 22 20 2B 3B 41 |NUNG GEHT.." +;A|
00001AA0: 45 48 4E 4C 49 43 48 20 57 49 45 20 42 45 49 20 |EHNLICH WIE BEI |
00001AB0: 44 45 52 20 4F 42 45 4E 00 DA 22 2A 2B 3B 42 45 |DER OBEN.."*+;BE|
00001AC0: 53 43 48 52 49 45 42 45 4E 45 4E 20 54 52 41 4E |SCHRIEBENEN TRAN|
00001AD0: 53 46 4F 52 4D 41 54 49 4F 4E 00 EB 22 34 2B 3B |SFORMATION.."4+;|
00001AE0: 56 4F 4E 53 54 41 54 54 45 4E 2E 00 F1 22 3E 2B |VONSTATTEN...">+|
00001AF0: 3B 00 07 23 48 2B 20 41 57 49 A0 59 54 41 42 5A |;..#H+ AWI.YTABZ|
00001B00: 2C 43 4F 53 54 41 42 00 18 23 52 2B 20 4D 4D 46 |,COSTAB..#R+ MMF|
00001B10: A0 54 5A 45 49 47 45 52 00 1E 23 5C 2B 3B 00 31 |.TZEIGER..#\+;.1|
00001B20: 23 66 2B 20 41 57 49 A0 58 53 2C 53 49 4E 54 41 |#f+ AWI.XS,SINTA|
00001B30: 42 00 3F 23 70 2B 20 CA 54 5A 45 49 47 45 52 00 |B.?#p+ .TZEIGER.|
00001B40: 4F 23 7A 2B 20 C3 54 5A 45 49 47 45 52 2B 31 00 |O#z+ .TZEIGER+1.|
00001B50: 55 23 84 2B 3B 00 7A 23 8E 2B 3B 44 49 45 20 54 |U#.+;.z#.+;DIE T|
00001B60: 52 41 4E 53 46 4F 52 4D 41 54 49 4F 4E 20 56 4F |RANSFORMATION VO|
00001B70: 4E 20 50 53 45 55 44 4F 4B 2E 00 9A 23 98 2B 3B |N PSEUDOK...#.+;|
00001B80: 49 4E 20 52 45 41 4C 4B 2E 20 47 45 48 54 20 4E |IN REALK. GEHT N|
00001B90: 41 43 48 20 52 3D 31 30 2D 50 00 AB 23 A2 2B 3B |ACH R=10-P..#.+;|
00001BA0: 56 4F 4E 53 54 41 54 54 45 4E 2E 00 B1 23 AC 2B |VONSTATTEN...#.+|
00001BB0: 3B 00 BC 23 B6 2B 20 D6 46 41 44 44 00 CB 23 C0 |;..#.+ .FADD..#.|
00001BC0: 2B 20 CA 23 3C 28 5A 45 48 4E 29 00 DA 23 CA 2B |+ .#<(ZEHN)..#.+|
00001BD0: 20 C3 23 3E 28 5A 45 48 4E 29 00 E5 23 D4 2B 20 | .#>(ZEHN)..#.+ |
00001BE0: D6 46 53 55 42 00 F1 23 DE 2B 20 D6 46 41 44 44 |.FSUB..#.+ .FADD|
00001BF0: 48 00 F7 23 E8 2B 3B 00 04 24 EC 2C 20 CA 56 52 |H..#.+;..$., .VR|
00001C00: 5A 43 48 4E 00 12 24 F6 2C 20 F1 4E 45 58 54 50 |ZCHN..$., .NEXTP|
00001C10: 58 4C 00 18 24 00 2D 3B 00 25 24 0A 2D 20 D6 47 |XL..$.-;.%$.- .G|
00001C20: 45 54 41 44 52 00 2F 24 14 2D 20 C1 23 32 31 00 |ETADR./$.- .#21.|
00001C30: 3D 24 1E 2D 20 F5 4E 45 58 54 50 58 4C 00 46 24 |=$.- .NEXTPXL.F$|
00001C40: 28 2D 20 D4 59 54 00 4C 24 32 2D 3B 00 6F 24 3C |(- .YT.L$2-;.o$<|
00001C50: 2D 3B 44 49 45 20 4B 4F 4F 52 44 49 4E 41 54 45 |-;DIE KOORDINATE|
00001C60: 4E 20 44 45 53 20 47 45 44 52 45 48 54 45 4E 00 |N DES GEDREHTEN.|
00001C70: 92 24 46 2D 3B 50 55 4E 4B 54 53 20 4C 49 45 47 |.$F-;PUNKTS LIEG|
00001C80: 45 4E 20 4A 45 54 5A 54 20 49 4E 20 58 54 20 59 |EN JETZT IN XT Y|
00001C90: 54 2E 00 B0 24 50 2D 3B 4E 55 4E 20 57 49 52 44 |T...$P-;NUN WIRD|
00001CA0: 20 44 49 45 53 45 52 20 50 55 4E 4B 54 20 49 4D | DIESER PUNKT IM|
00001CB0: 00 C9 24 5A 2D 3B 5A 49 45 4C 53 50 52 49 54 45 |..$Z-;ZIELSPRITE|
00001CC0: 20 47 45 53 45 54 5A 54 2E 00 CF 24 64 2D 3B 00 | GESETZT...$d-;.|
00001CD0: D8 24 6E 2D 20 C2 58 54 00 E1 24 78 2D 20 C3 59 |.$n- .XT..$x- .Y|
00001CE0: 54 00 EF 24 82 2D 20 D6 43 41 4C 43 50 4F 53 00 |T..$.- .CALCPOS.|
00001CF0: F5 24 8C 2D 3B 00 07 25 96 2D 3B 50 55 4E 4B 54 |.$.-;..%.-;PUNKT|
00001D00: 20 53 45 54 5A 45 4E 00 0D 25 A0 2D 3B 00 1C 25 | SETZEN..%.-;..%|
00001D10: AA 2D 20 CA 28 44 45 53 54 29 2C 59 00 29 25 B4 |.- .(DEST),Y.)%.|
00001D20: 2D 20 CE 42 49 54 53 2C 58 00 38 25 BE 2D 20 D2 |- .BITS,X.8%.- .|
00001D30: 28 44 45 53 54 29 2C 59 00 3E 25 C8 2D 3B 00 64 |(DEST),Y.>%.-;.d|
00001D40: 25 D2 2D 3B 44 49 45 20 4B 4F 4F 52 44 49 4E 41 |%.-;DIE KOORDINA|
00001D50: 54 45 4E 20 44 45 53 20 4E 41 45 43 48 53 54 45 |TEN DES NAECHSTE|
00001D60: 4E 20 5A 55 00 89 25 DC 2D 3B 54 52 41 4E 53 46 |N ZU..%.-;TRANSF|
00001D70: 4F 52 4D 49 45 52 45 4E 44 45 4E 20 50 49 58 45 |ORMIERENDEN PIXE|
00001D80: 4C 53 20 57 45 52 44 45 4E 00 B0 25 E6 2D 3B 57 |LS WERDEN..%.-;W|
00001D90: 45 52 44 45 4E 20 42 45 52 45 43 48 4E 45 54 2C |ERDEN BERECHNET,|
00001DA0: 46 41 4C 4C 53 20 44 45 52 20 4C 45 54 5A 54 45 |FALLS DER LETZTE|
00001DB0: 00 D4 25 F0 2D 3B 45 52 52 45 49 43 48 54 49 53 |..%.-;ERREICHTIS|
00001DC0: 54 2C 20 57 49 52 44 20 44 41 53 20 50 52 4F 47 |T, WIRD DAS PROG|
00001DD0: 52 41 4D 4D 00 E2 25 FA 2D 3B 42 45 45 4E 44 45 |RAMM..%.-;BEENDE|
00001DE0: 54 2E 00 E8 25 04 2E 3B 00 F8 25 0E 2E 4E 45 58 |T...%..;..%..NEX|
00001DF0: 54 50 58 4C 20 C9 58 53 00 01 26 18 2E 20 CA 58 |TPXL .XS..&.. .X|
00001E00: 53 00 17 26 22 2E 20 4C 42 4E A0 54 52 41 4E 53 |S..&". LBN.TRANS|
00001E10: 4C 4F 4F 50 2C 32 34 00 26 26 2C 2E 20 50 4F 4B |LOOP,24.&&,. POK|
00001E20: 45 A0 58 53 2C 30 00 2F 26 36 2E 20 C9 59 53 00 |E.XS,0./&6. .YS.|
00001E30: 3B 26 40 2E 20 C7 59 54 41 42 5A 00 44 26 4A 2E |;&@. .YTABZ.D&J.|
00001E40: 20 CA 59 53 00 5A 26 54 2E 20 4C 42 4E A0 54 52 | .YS.Z&T. LBN.TR|
00001E50: 41 4E 53 4C 4F 4F 50 2C 32 31 00 60 26 5E 2E 3B |ANSLOOP,21.`&^.;|
00001E60: 00 67 26 68 2E 20 E3 00 6D 26 72 2E 3B 00 73 26 |.g&h. ..m&r.;.s&|
00001E70: 7C 2E 3B 00 99 26 38 4A 3B 5A 45 48 4E 20 45 4E ||.;..&8J;ZEHN EN|
00001E80: 54 48 41 45 4C 54 20 31 30 20 49 4D 20 4D 46 4C |THAELT 10 IM MFL|
00001E90: 50 54 2D 46 4F 52 4D 41 54 00 9F 26 42 4A 3B 00 |PT-FORMAT..&BJ;.|
00001EA0: B7 26 4C 4A 5A 45 48 4E 20 A5 24 38 34 2C 24 32 |.&LJZEHN .$84,$2|
00001EB0: 30 2C 30 2C 30 2C 30 00 BD 26 56 4A 3B 00 E3 26 |0,0,0,0..&VJ;..&|
00001EC0: 20 4E 3B 41 42 20 48 49 45 52 20 53 54 45 48 45 | N;AB HIER STEHE|
00001ED0: 4E 20 44 49 45 20 54 41 42 45 4C 4C 45 4E 2C 20 |N DIE TABELLEN, |
00001EE0: 44 49 45 00 0A 27 2A 4E 3B 45 52 53 54 20 56 4F |DIE..'*N;ERST VO|
00001EF0: 4D 20 50 52 4F 47 52 41 4D 4D 20 45 52 53 54 45 |M PROGRAMM ERSTE|
00001F00: 4C 4C 54 20 57 45 52 44 45 4E 00 10 27 34 4E 3B |LLT WERDEN..'4N;|
00001F10: 00 36 27 3E 4E 3B 43 4F 53 54 41 42 20 45 4E 54 |.6'>N;COSTAB ENT|
00001F20: 48 41 45 4C 54 20 44 49 45 20 4D 49 54 20 2D 31 |HAELT DIE MIT -1|
00001F30: 32 20 2D 20 31 31 00 5C 27 48 4E 3B 4D 55 4C 54 |2 - 11.\'HN;MULT|
00001F40: 49 50 4C 49 5A 49 45 52 54 45 4E 20 4B 4F 53 49 |IPLIZIERTEN KOSI|
00001F50: 4E 55 53 57 45 52 54 45 20 44 45 53 00 7F 27 52 |NUSWERTE DES..'R|
00001F60: 4E 3B 45 49 4E 47 45 47 45 42 45 4E 45 4E 20 57 |N;EINGEGEBENEN W|
00001F70: 49 4E 4B 45 4C 53 20 49 4D 20 4D 46 4C 50 54 00 |INKELS IM MFLPT.|
00001F80: 8B 27 5C 4E 3B 46 4F 52 4D 41 54 00 91 27 66 4E |.'\N;FORMAT..'fN|
00001F90: 3B 00 A2 27 70 4E 43 4F 53 54 41 42 20 A7 32 34 |;..'pNCOSTAB .24|
00001FA0: 2A 35 00 A8 27 7A 4E 3B 00 CC 27 84 4E 3B 53 49 |*5..'zN;..'.N;SI|
00001FB0: 4E 54 41 42 20 45 4E 54 53 50 52 49 43 48 54 20 |NTAB ENTSPRICHT |
00001FC0: 43 4F 53 54 41 42 2C 20 48 49 45 52 00 F2 27 8E |COSTAB, HIER..'.|
00001FD0: 4E 3B 53 49 4E 44 20 4A 45 44 4F 43 48 20 53 49 |N;SIND JEDOCH SI|
00001FE0: 4E 55 53 57 45 52 54 45 20 41 4E 47 45 47 45 42 |NUSWERTE ANGEGEB|
00001FF0: 45 4E 00 F8 27 98 4E 3B 00 09 28 A2 4E 53 49 4E |EN..'.N;..(.NSIN|
00002000: 54 41 42 20 A7 32 34 2A 35 00 0F 28 AC 4E 3B 00 |TAB .24*5..(.N;.|
00002010: 2B 28 B6 4E 3B 43 4F 53 48 45 4C 50 20 26 20 53 |+(.N;COSHELP & S|
00002020: 49 4E 48 45 4C 50 20 53 49 4E 44 00 4E 28 C0 4E |INHELP SIND.N(.N|
00002030: 3B 48 49 4C 46 53 52 45 47 49 53 54 45 52 20 49 |;HILFSREGISTER I|
00002040: 4D 20 4D 46 4C 50 54 2D 46 4F 52 4D 41 54 00 54 |M MFLPT-FORMAT.T|
00002050: 28 CA 4E 3B 00 63 28 D4 4E 43 4F 53 48 45 4C 50 |(.N;.c(.NCOSHELP|
00002060: 20 A7 35 00 69 28 DE 4E 3B 00 78 28 E8 4E 53 49 | .5.i(.N;.x(.NSI|
00002070: 4E 48 45 4C 50 20 A7 35 00 7E 28 F2 4E 3B 00 84 |NHELP .5.~(.N;..|
00002080: 28 30 75 3B 00 AB 28 3A 75 3B 2D 2D 2D 2D 2D 2D |(0u;..(:u;------|
00002090: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000020A0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 B1 28 44 75 |-----------..(Du|
000020B0: 3B 00 D6 28 4E 75 3B 41 4C 4C 47 45 4D 45 49 4E |;..(Nu;ALLGEMEIN|
000020C0: 45 20 50 52 4F 47 52 41 4D 4D 42 45 53 43 48 52 |E PROGRAMMBESCHR|
000020D0: 45 49 42 55 4E 47 00 DC 28 58 75 3B 00 03 29 62 |EIBUNG..(Xu;..)b|
000020E0: 75 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |u;--------------|
000020F0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00002100: 2D 2D 2D 00 09 29 6C 75 3B 00 2C 29 76 75 3B 44 |---..)lu;.,)vu;D|
00002110: 41 53 20 48 49 45 52 20 56 4F 52 4C 49 45 47 45 |AS HIER VORLIEGE|
00002120: 4E 44 45 20 50 52 4F 47 52 41 4D 4D 00 4D 29 80 |NDE PROGRAMM.M).|
00002130: 75 3B 44 52 45 48 45 20 44 52 45 48 54 20 45 49 |u;DREHE DREHT EI|
00002140: 4E 20 51 55 45 4C 4C 53 50 52 49 54 45 00 71 29 |N QUELLSPRITE.q)|
00002150: 8A 75 3B 47 45 47 45 4E 20 44 45 4E 20 55 48 52 |.u;GEGEN DEN UHR|
00002160: 5A 45 49 47 45 52 53 49 4E 4E 20 55 4D 20 44 45 |ZEIGERSINN UM DE|
00002170: 4E 00 93 29 8B 75 3B 50 55 4E 4B 54 20 4D 28 31 |N..).u;PUNKT M(1|
00002180: 32 DD 31 30 29 20 28 44 45 52 20 55 52 53 50 52 |2.10) (DER URSPR|
00002190: 55 4E 47 00 B3 29 8C 75 3B 4C 49 45 47 54 20 4C |UNG..).u;LIEGT L|
000021A0: 49 4E 4B 53 20 4F 42 45 4E 29 20 49 4E 20 45 49 |INKS OBEN) IN EI|
000021B0: 4E 45 4D 00 D8 29 94 75 3B 42 45 4C 49 45 42 49 |NEM..).u;BELIEBI|
000021C0: 47 45 4E 20 57 49 4E 4B 45 4C 20 55 4E 44 20 53 |GEN WINKEL UND S|
000021D0: 50 45 49 43 48 45 52 54 00 FC 29 9E 75 3B 45 53 |PEICHERT..).u;ES|
000021E0: 20 41 4E 20 44 45 52 20 41 4E 47 45 47 45 42 45 | AN DER ANGEGEBE|
000021F0: 4E 45 4E 20 41 44 44 52 45 53 53 45 00 05 2A A8 |NEN ADDRESSE..*.|
00002200: 75 3B 41 42 2E 00 2A 2A B2 75 3B 46 4F 4C 47 45 |u;AB..**.u;FOLGE|
00002210: 4E 44 45 53 20 46 55 4E 4B 54 49 4F 4E 53 50 52 |NDES FUNKTIONSPR|
00002220: 49 4E 5A 49 50 20 57 49 52 44 00 43 2A BC 75 3B |INZIP WIRD.C*.u;|
00002230: 44 41 42 45 49 20 56 45 52 57 49 52 4B 4C 49 43 |DABEI VERWIRKLIC|
00002240: 48 54 3A 00 67 2A C6 75 3B 44 41 53 20 5A 49 45 |HT:.g*.u;DAS ZIE|
00002250: 4C 53 50 52 49 54 45 20 57 49 52 44 20 47 45 4C |LSPRITE WIRD GEL|
00002260: 4F 45 53 43 48 54 2C 00 89 2A D0 75 3B 4A 45 44 |OESCHT,..*.u;JED|
00002270: 45 52 20 47 45 53 45 54 5A 54 45 20 50 55 4E 4B |ER GESETZTE PUNK|
00002280: 54 20 57 49 52 44 20 55 4D 00 AD 2A DA 75 3B 44 |T WIRD UM..*.u;D|
00002290: 45 4E 20 41 4E 47 45 47 45 42 45 4E 45 4E 20 57 |EN ANGEGEBENEN W|
000022A0: 49 4E 4B 45 4C 20 47 45 44 52 45 48 54 00 D1 2A |INKEL GEDREHT..*|
000022B0: E4 75 3B 55 4E 44 20 49 4D 20 5A 49 45 4C 53 50 |.u;UND IM ZIELSP|
000022C0: 52 49 54 45 20 41 4E 20 44 45 52 20 4E 45 55 45 |RITE AN DER NEUE|
000022D0: 4E 00 E8 2A EE 75 3B 50 4F 53 49 54 49 4F 4E 20 |N..*.u;POSITION |
000022E0: 47 45 53 45 54 5A 54 2E 00 0A 2B F8 75 3B 44 49 |GESETZT...+.u;DI|
000022F0: 45 20 4E 45 55 45 4E 20 4B 4F 4F 52 44 49 4E 41 |E NEUEN KOORDINA|
00002300: 54 45 4E 20 57 45 52 44 45 4E 00 29 2B 02 76 3B |TEN WERDEN.)+.v;|
00002310: 4E 41 43 48 20 44 45 4E 20 54 52 41 4E 53 46 4F |NACH DEN TRANSFO|
00002320: 52 4D 41 54 49 4F 4E 53 2D 00 3A 2B 0C 76 3B 47 |RMATIONS-.:+.v;G|
00002330: 4C 45 49 43 48 55 4E 47 45 4E 00 60 2B 16 76 3B |LEICHUNGEN.`+.v;|
00002340: 20 20 58 27 3D 58 2A 43 4F 53 28 57 49 4E 4B 45 | X'=X*COS(WINKE|
00002350: 4C 29 2D 59 2A 53 49 4E 28 57 49 4E 4B 45 4C 29 |L)-Y*SIN(WINKEL)|
00002360: 00 86 2B 20 76 3B 20 20 59 27 3D 58 2A 53 49 4E |..+ v; Y'=X*SIN|
00002370: 28 57 49 4E 4B 45 4C 29 2B 59 2A 43 4F 53 28 57 |(WINKEL)+Y*COS(W|
00002380: 49 4E 4B 45 4C 29 00 96 2B 2A 76 3B 45 52 52 45 |INKEL)..+*v;ERRE|
00002390: 43 48 4E 45 54 2E 00 BA 2B 34 76 3B 55 4D 20 52 |CHNET...+4v;UM R|
000023A0: 45 43 48 45 4E 5A 45 49 54 20 5A 55 20 53 50 41 |ECHENZEIT ZU SPA|
000023B0: 52 45 4E 20 57 45 52 44 45 4E 00 DE 2B 3E 76 3B |REN WERDEN..+>v;|
000023C0: 44 49 45 20 57 49 4E 4B 45 4C 46 55 4E 4B 54 49 |DIE WINKELFUNKTI|
000023D0: 4F 4E 53 50 52 4F 44 55 4B 54 45 20 49 4E 00 FB |ONSPRODUKTE IN..|
000023E0: 2B 48 76 3B 54 41 42 45 4C 4C 45 4E 20 41 42 47 |+Hv;TABELLEN ABG|
000023F0: 45 53 50 45 49 43 48 45 52 54 2E 00 1F 2C 52 76 |ESPEICHERT...,Rv|
00002400: 3B 46 55 45 52 20 44 49 45 20 54 52 41 4E 53 46 |;FUER DIE TRANSF|
00002410: 4F 52 4D 41 54 49 4F 4E 20 57 45 52 44 45 4E 00 |ORMATION WERDEN.|
00002420: 43 2C 5C 76 3B 44 49 45 20 52 45 41 4C 4B 4F 4F |C,\v;DIE REALKOO|
00002430: 52 44 49 4E 41 54 45 4E 20 49 4E 20 50 53 45 55 |RDINATEN IN PSEU|
00002440: 44 4F 2D 00 60 2C 66 76 3B 4B 4F 4F 52 44 49 4E |DO-.`,fv;KOORDIN|
00002450: 41 54 45 4E 20 56 45 52 57 41 4E 44 45 4C 54 2E |ATEN VERWANDELT.|
00002460: 00 78 2C 70 76 3B 20 52 28 31 32 DD 31 30 29 20 |.x,pv; R(12.10) |
00002470: 3D 20 50 28 30 DD 30 29 00 99 2C 7A 76 3B 44 49 |= P(0.0)..,zv;DI|
00002480: 45 20 45 49 4E 5A 45 4C 4E 45 4E 20 53 43 48 52 |E EINZELNEN SCHR|
00002490: 49 54 54 45 20 53 49 4E 44 00 BE 2C 84 76 3B 48 |ITTE SIND..,.v;H|
000024A0: 4F 46 46 45 4E 54 4C 49 43 48 20 53 4F 20 47 55 |OFFENTLICH SO GU|
000024B0: 54 20 44 4F 4B 55 4D 45 4E 54 49 45 52 54 00 E3 |T DOKUMENTIERT..|
000024C0: 2C 8E 76 3B 44 41 53 20 41 45 4E 44 45 52 55 4E |,.v;DAS AENDERUN|
000024D0: 47 45 4E 20 4C 45 49 43 48 54 20 4D 4F 45 47 4C |GEN LEICHT MOEGL|
000024E0: 49 43 48 00 0A 2D 98 76 3B 53 49 4E 44 2C 5A 2E |ICH..-.v;SIND,Z.|
000024F0: 42 20 44 52 45 48 55 4E 47 20 55 4D 20 45 49 4E |B DREHUNG UM EIN|
00002500: 45 4E 20 41 4E 44 45 52 45 4E 00 2E 2D A2 76 3B |EN ANDEREN..-.v;|
00002510: 28 56 49 45 4C 4C 45 49 43 48 54 20 42 45 4C 49 |(VIELLEICHT BELI|
00002520: 45 42 49 47 45 4E 29 20 50 55 4E 4B 54 2E 00 00 |EBIGEN) PUNKT...|
00002530: 00 |. |
..(...;*********************************
.J...; WRITTEN ON 22-24.12.87 BY.P...;
.N...; CHRISTIAN RODEMEYER.....;
GOLDREGENSTRASSE 28.....; 4370 MAR
L - SINSEN.....;.W...;******************
***************..... .$C000.....;.....;
ROM-ROUTINEN.....;..... .CONUPK=$BA8C.'.
.. .MOVFM=$BBA2.9... .MOVMF=$BBD4.L... .
ACTOFC=$BC3C.^... .MOVAF=$BC0C.N... .COS
=$E264.... .FADD=$B867..... .SIN=$E26B.
.... .NEGOP=$BFB4..... .FMULTT=$BA30.G..
. .CHKCOM=$AEFD.Z... .FRMNUM=$AD8A.....
.GETADR=$B7F7..... .FSUB=$B850..... .FAD
DH=$B849.!... .SIGN=$BC28.2... .AADD=$BD
7E.8.1.;.H.2.; VARIABLEN.N.3.;.A.4. .TZE
IGER=$340.Q.5. .ZAEHLER=2...6. .DEST=$FD
...7. .SOURCE=$FB...8. .CHELP=$342...9.
.XS=$343...:. .YS=$344.L.;. .XT=$345.Z.<
. .YT=$346...=. .YTABZ=$347...>. .VRZCHN
=102...C.;...D..LAX WERT...E. J#<(WERT).
..F. B#>(WERT).4.G...:.H.;.H.I..SAX ADDR
.S.J. RADDR.`.K. SADDR+1.F.L...L.M.;...N
..LOHI WERT,ADDR...O. LAX WERT...P. SA
X ADDR...Q.....R.;...S..POKE ADDR,BYTE.J
.T. J#BYTE.U.U. RADDR...V.....W.;...X..T
AD VON,NACH...Y. JVON...Z. RNACH...{. JV
ON+1.!.|. RNACH+1.'.}...-.~.;.?...TBY V
ON,NACH.I... JVON.T... RNACH.Z.....`...;
.R....CBQ ZIEL,ARG.}... D#ARG..... .ZIEL
...........;......CBN ZIEL,ARG..... D#AR
G..... .ZIEL.B.....H...;.Z....LBQ ZIEL,A
RG..... D#ARG..... .*+5..... UZIEL......
.....;......LBN ZIEL,ARG.#... D#ARG.-...
.*+5.8... UZIEL.>.....D...;.V....BIB ZI
EL,ARG.C... D#ARG+1.N... .ZIEL.T.....Z..
.;......BIS ZIEL,ARG... . D#ARG..... .ZI
EL...........;......LBB ZIEL,ARG.M... D#
ARG+1.W... .*+5..... UZIEL...........;..
....LBS ZIEL,ARG..... D#ARG..... .*+5. .
.. UZIEL.&.....4....DPL ZIEL.;... ..F...
.ZIEL.L.....R...;.`....IWO ADDR.K... IA
DDR.U... .END..... IADDR+1.....END......
.....;......DWO ADDR..... GADDR..... .EN
D.F... GADDR+1.N...END.T.....Z.A.;...B..
DBN ZIEL,NEU,REG...C. GREG...D. .ZIEL...
E. .NEU>255,200;.....-.F. J#NEU; ..=.
G. .201;... ..M.H. JNEU;<.....[.I. RREG;
<...A.J...G.K.;.P.L..PHX.W.M. W.~.N. ...
.O.....P.;...Q..PLX...R. ....S. X...T...
..U.;...V..PHY...W. Y.D.X. ..J.Y...P.Z.;
.Y....PLY..... ...... Z...........;.....
.PLS SUM1,SUM2..... ...... JSUM1.&....SU
M2>255.1... ESUM2.7.....C... E#SUM2.I...
..T... RSUM1.B... .NCARRYC.O... ISUM1+1.
{...NCARRYC...........;......MNS MIN,SUB
..... ...... JMIN......SUB>255..... QSUB
.F.....Q... Q#SUB.W......... RMIN..... .
NCARRYC..... GMIN+1.....NCARRYC.........
..;.....;BETRIEBSSYSTEM-MACROS.O...;ACHT
UNG!!! BEI WERTEN>$400.R...;WIRD DIE AD
DRESSE ALS ABSOLUT.....;ANGENOMMEN, BEI
WERTEN<$400 ALS.....;ZEIGER AUF DIE ADDR
ESSE.....;.H....MFM ADDR.W....ADDR>$400.
.... B#<(ADDR)..... C#>(ADDR)...........
BADDR..... CADDR+1... ...%.&. V$BBD4.+.
0...1.:.;.?.D..MMF ADDR.N.I..ADDR>$400.]
.N. J#<(ADDR).L.X. C#>(ADDR).R.Y...}.Z.
JADDR...[. CADDR+1...\.....B. V$BBA2...L
.....V.;......FPM ADDR.E....ADDR>$400.T.
.. J#<(ADDR)..... C#>(ADDR)........... J
ADDR..... CADDR+1........... V$B867.....
......;.F...;CRTAB ERZEUGT DIE TABELLEN
SINTAB.M...;& COSTAB, DER WINKEL STEHT I
N FAC.S...;.....CRTAB MFM SINHELP..... V
COS..... MFM COSHELP..... VMOVAF..... J#
12.G... VACTOFC.T... VFMULTT..... VNEGOP
..... J#0..... RZAEHLER..... LOHI COSTAB
,TZEIGER.(.8.COSLOOP MFM TZEIGER.;.B. PL
S TZEIGER,5.L.~. FPM COSHELP.Z... IZAEHL
ER.H... JZAEHLER.|... CBN COSLOOP,24....
.;..... MMF SINHELP..... VSIN...D. MFM S
INHELP...E. VMOVAF.D.F. J#12.Q.G. VACTOF
C...H. VFMULTT...I. VNEGOP...N. J#0...X.
RZAEHLER..... LOHI SINTAB,TZEIGER.2...S
INLOOP MFM TZEIGER.E... PLS TZEIGER,5.V.
<. FPM SINHELP.D.F. IZAEHLER.R.P. JZAEHL
ER...Z. CBN SINLOOP,24...D. ....N.;.....
;EINGABEPARAMETER(VON CALCPOS):.....;ZEI
LE IM Y-REG; SPALTE IM X-REG.....;AUSGAB
EPARAMETER:.....;ADDRESSE DES BYTES IM S
PRITE.9...;STEHT IM Y-REG, DIE NUMMER DE
S.L...;BITS IM X-REG.R...;.`.".CALCPOS Y
.L.,. RCHELP.S.6. K.Z.@. ....J. ECHELP..
.T. RCHELP...^. W. .H. ....R.TLOOP Q#8..
.|. ICHELP.F... .TLOOP.R... GCHELP.....
E#8..... X..... CCHELP..... ......;...V.
BITS .128,64,32,16,8,4,2,1. ...;.<.P.;AW
I REG,TAB BRINGT DIE.^.Z.;ADDRESSE DES N
. MFLPT-WERTES.~...;IN DER TABELLE IN TZ
EIGER......;DIE NUMMER STEHT DABEI IN DE
M.H...;DURCH REG SPEZIFIZIERTEN REGISTER
.....;DIE TABELLE IN TAB......;......AWI
REG,TAB... . POKE TZEIGER+1,>(TAB)...*.
JREG.$.4. K.+.>. K.2.H. ..<.R. EREG.J.\
. E#<(TAB).X.F. RTZEIGER.B.P. .*+5.R.Z.
ITZEIGER+1.X.....~...;...(#;************
*********************.H.2#;HIER STEHT DA
S HAUPTPROGRAMM,...3#;******************
***************...<#;NUNAECHST WIRD FOLG
ENDE SYNTAX.$.F#;REALISIERT:.*.P#;.L.Z#;
SYS 49358,QUELLE,ZIEL,WINKEL.R.D#;.Q.N#;
QUELLE UND ZIEL GEBEN DIE...X#;ANFANGSAD
DRESSEN DER SPRITES AN....#;(0-65535), Q
UELLE WIRD IN SOURCE....#;ZIEL IN DEST G
ESPEICHERT.....#;WINKEL GIBT DEN WINKEL
UM DEN DAS.'. #;QUELLSPRITE GEDREHT WERD
EN SOLL.I..#;IM BOGENMASS AN. DIESER WER
T.K..#;VERBLEIBT FUER CRTAB IM FAC..Q..#
;....'DREHE VCHKCOM....' VFRMNUM...$' VG
ETADR....' TSOURCE...8' RSOURCE+1...B';.
L.L' VCHKCOM.Y.V' VFRMNUM...`' VGETADR..
.J' TDEST...T' RDEST+1...~';....' VCHKCO
M....' VFRMNUM.$..';.C..';TABELLE ERSTEL
LEN (CRTAB).I..';.Z..'USRIN VCRTAB.`.D';
...N';DAS ZIELSPRITE WIRD GELOESCHT, DA.
..X';DANN DIE DREHUNG DER NICHTGE-.H..';
SETZTEN PIXEL ENTFAELLT..N..';.W..' J#0.
...( C#63....(DLOOP R(DEST),Y....( .....
( .DLOOP...((;.4.2(;DIE REALKOORDINATENZ
EIGER XS UND.[.<(;YS WERDEN AUF DEN REAL
EN URSPRUNG.M.F(;0.0 GESETZT..S.P(;.|.Z(
RXS...D( RYS...E( POKE YTABZ,22...N(;.E
.X(;DIE ADDRESSE DES ZU BEARBEITENDEN...
.(;PIXELS IM QUELLSPRITE WIRD....(;BEREC
HNET.....(;... (TRANSLOOP BXS....( CYS.$
..( VCALCPOS.*..(;.Q.H(;ES WIRD GEPRUEFT
, OB DIESES PIXEL.S.R(;UEBERHAUPT GESETZ
T IST, WENN....(;JA, WERDEN DIE KOORDINA
TEN NACH....(;DER DREHUNG BERECHNET,.Y..
(;ANDERNFALLS WIRD DIESER SCHRITT....(;U
EBERSPRUNGEN.....);....) J(SOURCE),Y....
) FBITS,X....) D#0.$.") .*+5.2.') UNEXTP
XL.8.,);._.6);DIE X-KOORDINATE NACH DER
DREHUNG...@);WIRD IN DEM PSEUDO-KOORDINA
TEN-...J);SYSTEM NACH FOLENDEM SCHEMA.J.
T);BERECHNET: X'=X*COS(W)-Y*SIN(W)...^);
DIE PRODUKTE SIND IN DEN VON...H);CRTAB
ERZEUGTEN TABELLEN AB-. .R);GESPEICHERT.
.&.|);.G..);ZUNAECHST WIRD DER Y*SIN(W).
`..);IN DEN FAC GEBRACHT.F..);.|..) AWI
YTABZ,SINTAB....) MMF TZEIGER....);...B)
;X*COS(W) WIRD IN A/Y ADDRESSIERT...L);.
R.V) AWI XS,COSTAB....) JTZEIGER....) CT
ZEIGER+1....);.. .);MITTELS FSUB WIRD DI
E DIFFERENZ.= .*;GEBILDET UND DAS ERGEBN
IS IN.` .*;REALE KOORDINATEN UMGERECHNET
.F .*;.Q &* VFSUB.{ 0* J#12.. :* VAADD..
D* VFADDH.. N*;.. X*;WENN EINE BEREICHS
UEBERSCHREITUNG.. B*;FAC ALSO NEGATIV IS
T, SO WIRD..!L*;SOFORT DER NAECHTE PIXEL
..!V*;BEARBEITET,..!.*;.$!.* JVRZCHN.2!.
* .NEXTPXL.8!.*;.\!.*;ANDERFALLS WIRD DI
E KOORDINATE..!.*;IN INTEGER GEWANDELT,
AUF EINE..!.*;POSITIVE BEREICHSUEBERSCHR
EITUNG.J!F*;GEPRUEFT UND FALLS DIESE NIC
HT..!G*;VORHANDEN WAR IN XT GESPEICHERT.
..!P*;.."Z* VGETADR..".* A#24..".* .NEXT
PXL.$".* TXT.*".*;.Q".+;DIE Y-KOORDINATE
NACH DER DREHUNG.U".+;WIRD NACH Y'=X*SI
N(W)+Y*COS(W)..".+;BERECHNET. DIE BERECH
NUNG GEHT.." +;AEHNLICH WIE BEI DER OBEN
.Z"*+;BESCHRIEBENEN TRANSFORMATION.."4+;
VONSTATTEN...">+;..#H+ AWI YTABZ,COSTAB.
.#R+ MMF TZEIGER..#\+;.1#F+ AWI XS,SINTA
B.?#P+ JTZEIGER.O#Z+ CTZEIGER+1.U#.+;.Z#
.+;DIE TRANSFORMATION VON PSEUDOK...#.+;
IN REALK. GEHT NACH R=10-P..#.+;VONSTATT
EN...#.+;..#.+ VFADD.K#.+ J#<(ZEHN).Z#J+
C#>(ZEHN)..#T+ VFSUB..#.+ VFADDH..#.+;.
.$., JVRZCHN..$., .NEXTPXL..$.-;.%$.- VG
ETADR./$.- A#21.=$.- .NEXTPXL.F$(- TYT.L
$2-;.O$<-;DIE KOORDINATEN DES GEDREHTEN.
.$F-;PUNKTS LIEGEN JETZT IN XT YT...$P-;
NUN WIRD DIESER PUNKT IM.I$Z-;ZIELSPRITE
GESETZT..O$D-;.X$N- BXT..$X- CYT..$.- V
CALCPOS..$.-;..%.-;PUNKT SETZEN..% -;..%
.- J(DEST),Y.)%.- NBITS,X.8%.- R(DEST),Y
.>%H-;.D%R-;DIE KOORDINATEN DES NAECHSTE
N ZU..%.-;TRANSFORMIERENDEN PIXELS WERDE
N..%.-;WERDEN BERECHNET,FALLS DER LETZTE
.T%.-;ERREICHTIST, WIRD DAS PROGRAMM..%.
-;BEENDET...%..;..%..NEXTPXL IXS..&.. JX
S..&". LBN TRANSLOOP,24.&&,. POKE XS,0./
&6. IYS.;&@. GYTABZ.D&J. JYS.Z&T. LBN TR
ANSLOOP,21.`&^.;.G&H. ..M&R.;.S&|.;..&8J
;ZEHN ENTHAELT 10 IM MFLPT-FORMAT..&BJ;.
.&LJZEHN .$84,$20,0,0,0..&VJ;..& N;AB HI
ER STEHEN DIE TABELLEN, DIE..'*N;ERST VO
M PROGRAMM ERSTELLT WERDEN..'4N;.6'>N;CO
STAB ENTHAELT DIE MIT -12 - 11.\'HN;MULT
IPLIZIERTEN KOSINUSWERTE DES.'RN;EINGEG
EBENEN WINKELS IM MFLPT..'\N;FORMAT..'FN
;..'PNCOSTAB .24*5..'ZN;.L'.N;SINTAB ENT
SPRICHT COSTAB, HIER..'.N;SIND JEDOCH SI
NUSWERTE ANGEGEBEN..'.N;..(.NSINTAB .24*
5..(.N;.+(.N;COSHELP & SINHELP SIND.N(.N
;HILFSREGISTER IM MFLPT-FORMAT.T(JN;.C(T
NCOSHELP .5.I(.N;.X(.NSINHELP .5.~(.N;..
(0U;..(:U;------------------------------
---..(DU;.V(NU;ALLGEMEINE PROGRAMMBESCHR
EIBUNG..(XU;..)BU;----------------------
-----------..)LU;.,)VU;DAS HIER VORLIEGE
NDE PROGRAMM.M).U;DREHE DREHT EIN QUELLS
PRITE.Q).U;GEGEN DEN UHRZEIGERSINN UM DE
N..).U;PUNKT M(12.10) (DER URSPRUNG..).U
;LIEGT LINKS OBEN) IN EINEM.X).U;BELIEBI
GEN WINKEL UND SPEICHERT..).U;ES AN DER
ANGEGEBENEN ADDRESSE..*.U;AB..**.U;FOLGE
NDES FUNKTIONSPRINZIP WIRD.C*.U;DABEI VE
RWIRKLICHT:.G*FU;DAS ZIELSPRITE WIRD GEL
OESCHT,..*PU;JEDER GESETZTE PUNKT WIRD U
M..*ZU;DEN ANGEGEBENEN WINKEL GEDREHT.Q*
.U;UND IM ZIELSPRITE AN DER NEUEN..*.U;P
OSITION GESETZT...+.U;DIE NEUEN KOORDINA
TEN WERDEN.)+.V;NACH DEN TRANSFORMATIONS
-.:+.V;GLEICHUNGEN.`+.V; X'=X*COS(WINKE
L)-Y*SIN(WINKEL)..+ V; Y'=X*SIN(WINKEL)
+Y*COS(WINKEL)..+*V;ERRECHNET...+4V;UM R
ECHENZEIT ZU SPAREN WERDEN..+>V;DIE WINK
ELFUNKTIONSPRODUKTE IN..+HV;TABELLEN ABG
ESPEICHERT...,RV;FUER DIE TRANSFORMATION
WERDEN.C,\V;DIE REALKOORDINATEN IN PSEU
DO-.`,FV;KOORDINATEN VERWANDELT..X,PV; R
(12.10) = P(0.0)..,ZV;DIE EINZELNEN SCHR
ITTE SIND..,.V;HOFFENTLICH SO GUT DOKUME
NTIERT..,.V;DAS AENDERUNGEN LEICHT MOEGL
ICH..-.V;SIND,Z.B DREHUNG UM EINEN ANDER
EN..-.V;(VIELLEICHT BELIEBIGEN) PUNKT...
.
> CLICK IMAGE PREVIEW FOR FULL MODAL