MAKRO.SH8
FILE INFORMATION
FILENAME(S): MAKRO.SH8
FILE TYPE(S): PRG
FILE SIZE: 3.3K
FIRST SEEN: 2025-11-02 22:11:34
APPEARS ON: 2 disk(s)
FILE HASH
d843a85d8e7c2724fc9d75434590a61905e97cbffdd90032aaf7f967d9ef110e
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| SONDERHEFT ASS | MAKRO.SH8 | PRG | Treasure Chest - ToGuMi | 12 | 2 | DOWNLOAD FILE |
| SONDERHEFT ASS | MAKRO.SH8 | PRG | C64er | 12 | 2 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: D8 1F FE 1F 0A 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 00 24 20 14 00 3B 2A 20 20 |*******.$ ..;* |
00000030: 20 57 45 49 54 45 52 45 20 56 45 52 53 43 48 49 | WEITERE VERSCHI|
00000040: 45 42 45 42 45 46 45 48 4C 45 20 20 2A 00 4A 20 |EBEBEFEHLE *.J |
00000050: 1E 00 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |..;*************|
00000060: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000070: 2A 2A 2A 00 50 20 28 00 3B 00 5D 20 32 00 3B 20 |***.P (.;.] 2.; |
00000080: 58 20 2D 3E 20 59 00 69 20 3C 00 2E 4D 41 20 54 |X -> Y.i <..MA T|
00000090: 58 59 00 72 20 46 00 20 50 48 41 00 7B 20 50 00 |XY.r F. PHA.{ P.|
000000A0: 20 54 58 41 00 84 20 5A 00 20 54 41 59 00 8D 20 | TXA.. Z. TAY.. |
000000B0: 64 00 20 50 4C 41 00 95 20 6E 00 2E 52 54 00 9B |d. PLA.. n..RT..|
000000C0: 20 78 00 3B 00 A8 20 82 00 3B 20 59 20 2D 3E 20 | x.;.. ..; Y -> |
000000D0: 58 00 B4 20 8C 00 2E 4D 41 20 54 59 58 00 BD 20 |X.. ...MA TYX.. |
000000E0: 96 00 20 50 48 41 00 C6 20 A0 00 20 54 59 41 00 |.. PHA.. .. TYA.|
000000F0: CF 20 AA 00 20 54 41 58 00 D8 20 B4 00 20 50 4C |. .. TAX.. .. PL|
00000100: 41 00 E0 20 BE 00 2E 52 54 00 E6 20 C8 00 3B 00 |A.. ...RT.. ..;.|
00000110: 05 21 D2 00 3B 20 58 2D 52 45 47 49 53 54 45 52 |.!..; X-REGISTER|
00000120: 20 41 55 46 20 44 45 4E 20 53 54 41 43 4B 00 11 | AUF DEN STACK..|
00000130: 21 DC 00 2E 4D 41 20 50 48 58 00 26 21 E6 00 2E |!...MA PHX.&!...|
00000140: 45 51 20 52 45 54 54 45 4E 20 3D 20 24 46 43 00 |EQ RETTEN = $FC.|
00000150: 35 21 F0 00 20 53 54 41 52 45 54 54 45 4E 00 3E |5!.. STARETTEN.>|
00000160: 21 FA 00 20 54 58 41 00 47 21 04 01 20 50 48 41 |!.. TXA.G!.. PHA|
00000170: 00 56 21 0E 01 20 4C 44 41 52 45 54 54 45 4E 00 |.V!.. LDARETTEN.|
00000180: 5E 21 18 01 2E 52 54 00 64 21 22 01 3B 00 83 21 |^!...RT.d!".;..!|
00000190: 2C 01 3B 20 59 2D 52 45 47 49 53 54 45 52 20 41 |,.; Y-REGISTER A|
000001A0: 55 46 20 44 45 4E 20 53 54 41 43 4B 00 8F 21 36 |UF DEN STACK..!6|
000001B0: 01 2E 4D 41 20 50 48 59 00 A4 21 40 01 2E 45 51 |..MA PHY..!@..EQ|
000001C0: 20 52 45 54 54 45 4E 20 3D 20 24 46 43 00 B3 21 | RETTEN = $FC..!|
000001D0: 4A 01 20 53 54 41 52 45 54 54 45 4E 00 BC 21 54 |J. STARETTEN..!T|
000001E0: 01 20 54 59 41 00 C5 21 5E 01 20 50 48 41 00 D4 |. TYA..!^. PHA..|
000001F0: 21 68 01 20 4C 44 41 52 45 54 54 45 4E 00 DC 21 |!h. LDARETTEN..!|
00000200: 72 01 2E 52 54 00 E2 21 7C 01 3B 00 03 22 86 01 |r..RT..!|.;.."..|
00000210: 3B 20 58 2D 52 45 47 49 53 54 45 52 20 56 4F 4D |; X-REGISTER VOM|
00000220: 20 53 54 41 43 4B 20 48 4F 4C 45 4E 00 0F 22 90 | STACK HOLEN..".|
00000230: 01 2E 4D 41 20 50 4C 58 00 24 22 9A 01 2E 45 51 |..MA PLX.$"...EQ|
00000240: 20 52 45 54 54 45 4E 20 3D 20 24 46 43 00 33 22 | RETTEN = $FC.3"|
00000250: A4 01 20 53 54 41 52 45 54 54 45 4E 00 3C 22 AE |.. STARETTEN.<".|
00000260: 01 20 50 4C 41 00 45 22 B8 01 20 54 41 58 00 54 |. PLA.E".. TAX.T|
00000270: 22 C2 01 20 4C 44 41 52 45 54 54 45 4E 00 5C 22 |".. LDARETTEN.\"|
00000280: CC 01 2E 52 54 00 62 22 D6 01 3B 00 83 22 E0 01 |...RT.b"..;.."..|
00000290: 3B 20 59 2D 52 45 47 49 53 54 45 52 20 56 4F 4D |; Y-REGISTER VOM|
000002A0: 20 53 54 41 43 4B 20 48 4F 4C 45 4E 00 8F 22 EA | STACK HOLEN..".|
000002B0: 01 2E 4D 41 20 50 4C 59 00 A4 22 F4 01 2E 45 51 |..MA PLY.."...EQ|
000002C0: 20 52 45 54 54 45 4E 20 3D 20 24 46 43 00 B3 22 | RETTEN = $FC.."|
000002D0: FE 01 20 53 54 41 52 45 54 54 45 4E 00 BC 22 08 |.. STARETTEN..".|
000002E0: 02 20 50 4C 41 00 C5 22 12 02 20 54 41 59 00 D4 |. PLA..".. TAY..|
000002F0: 22 1C 02 20 4C 44 41 52 45 54 54 45 4E 00 DC 22 |".. LDARETTEN.."|
00000300: 26 02 2E 52 54 00 E2 22 30 02 3B 00 FF 22 3A 02 |&..RT.."0.;..":.|
00000310: 3B 20 44 45 4E 20 41 4B 4B 55 20 41 55 46 20 55 |; DEN AKKU AUF U|
00000320: 53 45 52 53 54 41 43 4B 00 0D 23 44 02 2E 4D 41 |SERSTACK..#D..MA|
00000330: 20 50 55 53 48 41 00 19 23 4E 02 20 2E 2E 2E 50 | PUSHA..#N. ...P|
00000340: 48 59 00 24 23 58 02 20 4C 44 59 23 30 00 35 23 |HY.$#X. LDY#0.5#|
00000350: 62 02 20 53 54 41 28 55 53 45 52 29 2C 59 00 48 |b. STA(USER),Y.H|
00000360: 23 6C 02 20 2E 2E 2E 44 45 43 57 28 55 53 45 52 |#l. ...DECW(USER|
00000370: 29 00 54 23 76 02 20 2E 2E 2E 50 4C 59 00 5C 23 |).T#v. ...PLY.\#|
00000380: 80 02 2E 52 54 00 62 23 8A 02 3B 00 89 23 94 02 |...RT.b#..;..#..|
00000390: 3B 41 4B 4B 55 20 55 4E 44 20 59 2D 52 45 47 49 |;AKKU UND Y-REGI|
000003A0: 53 54 45 52 20 41 55 46 20 55 53 45 52 53 54 41 |STER AUF USERSTA|
000003B0: 43 4B 00 98 23 9E 02 2E 4D 41 20 50 55 53 48 41 |CK..#...MA PUSHA|
000003C0: 59 00 A1 23 A8 02 20 50 48 41 00 AA 23 B2 02 20 |Y..#.. PHA..#.. |
000003D0: 54 59 41 00 B8 23 BC 02 20 2E 2E 2E 50 55 53 48 |TYA..#.. ...PUSH|
000003E0: 41 00 C1 23 C6 02 20 50 4C 41 00 CF 23 D0 02 20 |A..#.. PLA..#.. |
000003F0: 2E 2E 2E 50 55 53 48 41 00 D7 23 DA 02 2E 52 54 |...PUSHA..#...RT|
00000400: 00 DD 23 E4 02 3B 00 F6 23 EE 02 3B 20 41 4B 4B |..#..;..#..; AKK|
00000410: 55 20 56 4F 4E 20 55 53 45 52 53 54 41 43 4B 00 |U VON USERSTACK.|
00000420: 04 24 F8 02 2E 4D 41 20 50 55 4C 4C 41 00 17 24 |.$...MA PULLA..$|
00000430: 02 03 20 2E 2E 2E 49 4E 43 57 28 55 53 45 52 29 |.. ...INCW(USER)|
00000440: 00 23 24 0C 03 20 2E 2E 2E 50 48 59 00 2E 24 16 |.#$.. ...PHY..$.|
00000450: 03 20 4C 44 59 23 30 00 3F 24 20 03 20 4C 44 41 |. LDY#0.?$ . LDA|
00000460: 28 55 53 45 52 29 2C 59 00 4B 24 2A 03 20 2E 2E |(USER),Y.K$*. ..|
00000470: 2E 50 4C 59 00 53 24 34 03 2E 52 54 00 59 24 3E |.PLY.S$4..RT.Y$>|
00000480: 03 3B 00 80 24 48 03 3B 41 4B 4B 55 20 55 4E 44 |.;..$H.;AKKU UND|
00000490: 20 59 2D 52 45 47 49 53 54 45 52 20 56 4F 4E 20 | Y-REGISTER VON |
000004A0: 55 53 45 52 53 54 41 43 4B 00 8F 24 52 03 2E 4D |USERSTACK..$R..M|
000004B0: 41 20 50 55 4C 4C 41 59 00 9D 24 5C 03 20 2E 2E |A PULLAY..$\. ..|
000004C0: 2E 50 55 4C 4C 41 00 A6 24 66 03 20 54 41 59 00 |.PULLA..$f. TAY.|
000004D0: B4 24 70 03 20 2E 2E 2E 50 55 4C 4C 41 00 BC 24 |.$p. ...PULLA..$|
000004E0: 7A 03 2E 52 54 00 C2 24 84 03 3B 00 E8 24 8E 03 |z..RT..$..;..$..|
000004F0: 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |;***************|
00000500: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000510: 2A 00 0E 25 98 03 3B 2A 20 20 20 20 20 20 31 36 |*..%..;* 16|
00000520: 2D 42 49 54 20 42 45 46 45 48 4C 45 20 20 20 20 |-BIT BEFEHLE |
00000530: 20 20 20 20 20 20 2A 00 34 25 A2 03 3B 2A 2A 2A | *.4%..;***|
00000540: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000550: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 3A 25 |*************.:%|
00000560: AC 03 3B 00 5C 25 B6 03 3B 20 41 2F 59 20 2B 20 |..;.\%..; A/Y + |
00000570: 41 44 52 45 53 53 45 20 3D 20 41 2F 59 20 41 4B |ADRESSE = A/Y AK|
00000580: 4B 55 3D 4C 4F 00 72 25 C0 03 2E 4D 41 20 41 44 |KU=LO.r%...MA AD|
00000590: 57 20 28 41 44 52 45 53 53 45 29 00 7B 25 CA 03 |W (ADRESSE).{%..|
000005A0: 20 43 4C 43 00 8B 25 D4 03 20 41 44 43 41 44 52 | CLC..%.. ADCADR|
000005B0: 45 53 53 45 00 94 25 DE 03 20 50 48 41 00 9D 25 |ESSE..%.. PHA..%|
000005C0: E8 03 20 54 59 41 00 AF 25 F2 03 20 41 44 43 41 |.. TYA..%.. ADCA|
000005D0: 44 52 45 53 53 45 2B 31 00 B8 25 FC 03 20 54 41 |DRESSE+1..%.. TA|
000005E0: 59 00 C1 25 06 04 20 50 4C 41 00 C9 25 10 04 2E |Y..%.. PLA..%...|
000005F0: 52 54 00 CF 25 1A 04 3B 00 F0 25 24 04 3B 20 41 |RT..%..;..%$.; A|
00000600: 44 49 45 52 45 20 41 44 52 31 20 2B 20 41 44 52 |DIERE ADR1 + ADR|
00000610: 32 20 3D 20 53 55 4D 4D 45 00 0F 26 2E 04 2E 4D |2 = SUMME..&...M|
00000620: 41 20 41 44 4D 57 20 28 41 44 52 31 2C 41 44 52 |A ADMW (ADR1,ADR|
00000630: 32 2C 53 55 4D 4D 45 29 00 18 26 38 04 20 50 48 |2,SUMME)..&8. PH|
00000640: 41 00 21 26 42 04 20 43 4C 43 00 2E 26 4C 04 20 |A.!&B. CLC..&L. |
00000650: 4C 44 41 41 44 52 31 00 3B 26 56 04 20 41 44 43 |LDAADR1.;&V. ADC|
00000660: 41 44 52 32 00 49 26 60 04 20 53 54 41 53 55 4D |ADR2.I&`. STASUM|
00000670: 4D 45 00 58 26 6A 04 20 4C 44 41 41 44 52 31 2B |ME.X&j. LDAADR1+|
00000680: 31 00 67 26 74 04 20 41 44 43 41 44 52 32 2B 31 |1.g&t. ADCADR2+1|
00000690: 00 77 26 7E 04 20 53 54 41 53 55 4D 4D 45 2B 31 |.w&~. STASUMME+1|
000006A0: 00 80 26 88 04 20 50 4C 41 00 88 26 92 04 2E 52 |..&.. PLA..&...R|
000006B0: 54 00 8E 26 9C 04 3B 00 B0 26 A6 04 3B 20 41 2F |T..&..;..&..; A/|
000006C0: 59 20 2D 20 41 44 52 45 53 53 45 20 3D 20 41 2F |Y - ADRESSE = A/|
000006D0: 59 20 41 4B 4B 55 3D 4C 4F 00 C6 26 B0 04 2E 4D |Y AKKU=LO..&...M|
000006E0: 41 20 53 42 43 57 20 28 41 44 52 45 53 53 29 00 |A SBCW (ADRESS).|
000006F0: CF 26 BA 04 20 53 45 43 00 DF 26 C4 04 20 53 42 |.&.. SEC..&.. SB|
00000700: 43 41 44 52 45 53 53 45 00 E8 26 CE 04 20 50 48 |CADRESSE..&.. PH|
00000710: 41 00 F1 26 D8 04 20 54 59 41 00 03 27 E2 04 20 |A..&.. TYA..'.. |
00000720: 53 42 43 41 44 52 45 53 53 45 2B 31 00 0C 27 EC |SBCADRESSE+1..'.|
00000730: 04 20 54 41 59 00 15 27 F6 04 20 50 4C 41 00 1D |. TAY..'.. PLA..|
00000740: 27 00 05 2E 52 54 00 23 27 0A 05 3B 00 41 27 14 |'...RT.#'..;.A'.|
00000750: 05 3B 20 41 44 52 31 20 2D 20 41 44 52 32 20 3D |.; ADR1 - ADR2 =|
00000760: 20 44 49 46 46 45 52 45 4E 5A 00 60 27 1E 05 2E | DIFFERENZ.`'...|
00000770: 4D 41 20 53 42 43 4D 57 20 28 41 44 52 31 2C 41 |MA SBCMW (ADR1,A|
00000780: 44 52 32 2C 44 49 46 46 29 00 69 27 28 05 20 50 |DR2,DIFF).i'(. P|
00000790: 48 41 00 72 27 32 05 20 53 45 43 00 7F 27 3C 05 |HA.r'2. SEC..'<.|
000007A0: 20 4C 44 41 41 44 52 31 00 8C 27 46 05 20 53 42 | LDAADR1..'F. SB|
000007B0: 43 41 44 52 32 00 99 27 50 05 20 53 54 41 44 49 |CADR2..'P. STADI|
000007C0: 46 46 00 A8 27 5A 05 20 4C 44 41 41 44 52 31 2B |FF..'Z. LDAADR1+|
000007D0: 31 00 B7 27 64 05 20 53 42 43 41 44 52 32 2B 31 |1..'d. SBCADR2+1|
000007E0: 00 C6 27 6E 05 20 53 54 41 44 49 46 46 2B 31 00 |..'n. STADIFF+1.|
000007F0: CF 27 78 05 20 50 4C 41 00 D7 27 82 05 2E 52 54 |.'x. PLA..'...RT|
00000800: 00 DD 27 8C 05 3B 00 F9 27 96 05 3B 20 41 44 52 |..'..;..'..; ADR|
00000810: 45 53 53 45 20 3D 20 41 44 52 45 53 53 45 20 2B |ESSE = ADRESSE +|
00000820: 20 31 00 10 28 A0 05 2E 4D 41 20 49 4E 43 57 20 | 1..(...MA INCW |
00000830: 28 41 44 52 45 53 53 45 29 00 19 28 AA 05 20 50 |(ADRESSE)..(.. P|
00000840: 48 41 00 29 28 B4 05 20 4C 44 41 41 44 52 45 53 |HA.)(.. LDAADRES|
00000850: 53 45 00 32 28 BE 05 20 43 4C 43 00 3D 28 C8 05 |SE.2(.. CLC.=(..|
00000860: 20 41 44 43 23 31 00 4D 28 D2 05 20 53 54 41 41 | ADC#1.M(.. STAA|
00000870: 44 52 45 53 53 45 00 5F 28 DC 05 20 4C 44 41 41 |DRESSE._(.. LDAA|
00000880: 44 52 45 53 53 45 2B 31 00 6A 28 E6 05 20 41 44 |DRESSE+1.j(.. AD|
00000890: 43 23 30 00 7C 28 F0 05 20 53 54 41 41 44 52 45 |C#0.|(.. STAADRE|
000008A0: 53 53 45 2B 31 00 85 28 FA 05 20 50 4C 41 00 8D |SSE+1..(.. PLA..|
000008B0: 28 04 06 2E 52 54 00 93 28 0E 06 3B 00 AF 28 18 |(...RT..(..;..(.|
000008C0: 06 3B 20 41 44 52 45 53 53 45 20 3D 20 41 44 52 |.; ADRESSE = ADR|
000008D0: 45 53 53 45 20 2D 20 31 00 C6 28 22 06 2E 4D 41 |ESSE - 1..("..MA|
000008E0: 20 44 45 43 57 20 28 41 44 52 45 53 53 45 29 00 | DECW (ADRESSE).|
000008F0: CF 28 2C 06 20 50 48 41 00 DF 28 36 06 20 4C 44 |.(,. PHA..(6. LD|
00000900: 41 41 44 52 45 53 53 45 00 E8 28 40 06 20 53 45 |AADRESSE..(@. SE|
00000910: 43 00 F3 28 4A 06 20 53 42 43 23 31 00 03 29 54 |C..(J. SBC#1..)T|
00000920: 06 20 53 54 41 41 44 52 45 53 53 45 00 15 29 5E |. STAADRESSE..)^|
00000930: 06 20 4C 44 41 41 44 52 45 53 53 45 2B 31 00 20 |. LDAADRESSE+1. |
00000940: 29 68 06 20 53 42 43 23 30 00 32 29 72 06 20 53 |)h. SBC#0.2)r. S|
00000950: 54 41 41 44 52 45 53 53 45 2B 31 00 3B 29 7C 06 |TAADRESSE+1.;)|.|
00000960: 20 50 4C 41 00 43 29 86 06 2E 52 54 00 49 29 90 | PLA.C)...RT.I).|
00000970: 06 3B 00 66 29 9A 06 3B 20 41 44 52 45 53 53 45 |.;.f)..; ADRESSE|
00000980: 20 2D 3E 20 41 2F 59 20 41 4B 4B 55 3D 4C 4F 00 | -> A/Y AKKU=LO.|
00000990: 7D 29 A4 06 2E 4D 41 20 4C 44 41 59 20 28 41 44 |})...MA LDAY (AD|
000009A0: 52 45 53 53 45 29 00 8F 29 AE 06 20 4C 44 59 41 |RESSE)..).. LDYA|
000009B0: 44 52 45 53 53 45 2B 31 00 9F 29 B8 06 20 4C 44 |DRESSE+1..).. LD|
000009C0: 41 41 44 52 45 53 53 45 00 A7 29 C2 06 2E 52 54 |AADRESSE..)...RT|
000009D0: 00 AD 29 CC 06 3B 00 CA 29 D6 06 3B 20 41 2F 59 |..)..;..)..; A/Y|
000009E0: 20 2D 3E 20 41 44 52 45 53 53 45 20 41 4B 4B 55 | -> ADRESSE AKKU|
000009F0: 3D 4C 4F 00 E1 29 E0 06 2E 4D 41 20 53 54 41 59 |=LO..)...MA STAY|
00000A00: 20 28 41 44 52 45 53 53 45 29 00 F1 29 EA 06 20 | (ADRESSE)..).. |
00000A10: 53 54 41 41 44 52 45 53 53 45 00 03 2A F4 06 20 |STAADRESSE..*.. |
00000A20: 53 54 59 41 44 52 45 53 53 45 2B 31 00 0B 2A FE |STYADRESSE+1..*.|
00000A30: 06 2E 52 54 00 11 2A 08 07 3B 00 29 2A 12 07 3B |..RT..*..;.)*..;|
00000A40: 20 57 45 52 54 3D 31 36 42 49 54 20 2D 3E 20 41 | WERT=16BIT -> A|
00000A50: 2F 59 00 3E 2A 1C 07 2E 4D 41 20 4C 44 41 59 49 |/Y.>*...MA LDAYI|
00000A60: 20 28 57 45 52 54 29 00 4F 2A 26 07 20 4C 44 41 | (WERT).O*&. LDA|
00000A70: 23 3C 28 57 45 52 54 29 00 60 2A 30 07 20 4C 44 |#<(WERT).`*0. LD|
00000A80: 59 23 3E 28 57 45 52 54 29 00 68 2A 3A 07 2E 52 |Y#>(WERT).h*:..R|
00000A90: 54 00 8E 2A 44 07 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A |T..*D.;*********|
00000AA0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000AB0: 2A 2A 2A 2A 2A 2A 2A 00 B4 2A 4E 07 3B 2A 20 20 |*******..*N.;* |
00000AC0: 42 45 46 45 48 4C 45 20 5A 55 52 20 53 54 52 55 |BEFEHLE ZUR STRU|
00000AD0: 4B 54 55 52 49 45 52 54 45 4E 20 20 2A 00 DA 2A |KTURIERTEN *..*|
00000AE0: 58 07 3B 2A 20 20 20 20 20 20 20 50 52 4F 47 52 |X.;* PROGR|
00000AF0: 41 4D 4D 49 45 52 55 4E 47 20 20 20 20 20 20 20 |AMMIERUNG |
00000B00: 20 20 2A 00 00 2B 62 07 3B 2A 2A 2A 2A 2A 2A 2A | *..+b.;*******|
00000B10: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000B20: 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 06 2B 6C 07 3B 00 |*********..+l.;.|
00000B30: 15 2B 76 07 2E 4D 41 20 52 45 50 45 41 54 00 2B |.+v..MA REPEAT.+|
00000B40: 2B 80 07 41 43 45 31 20 2E 47 4C 41 43 45 30 3D |+..ACE1 .GLACE0=|
00000B50: 41 43 45 31 00 33 2B 8A 07 2E 52 54 00 39 2B 94 |ACE1.3+...RT.9+.|
00000B60: 07 3B 00 4C 2B 9E 07 2E 4D 41 20 45 58 49 54 52 |.;.L+...MA EXITR|
00000B70: 45 50 45 41 54 00 59 2B A8 07 20 4A 4D 50 42 43 |EPEAT.Y+.. JMPBC|
00000B80: 45 30 00 61 2B B2 07 2E 52 54 00 67 2B BC 07 3B |E0.a+...RT.g+..;|
00000B90: 00 8B 2B C6 07 2E 4D 41 20 55 4E 54 49 4C 20 28 |..+...MA UNTIL (|
00000BA0: 55 45 42 45 52 47 41 42 45 2C 42 45 44 49 4E 47 |UEBERGABE,BEDING|
00000BB0: 55 4E 47 29 00 94 2B D0 07 20 50 48 41 00 A6 2B |UNG)..+.. PHA..+|
00000BC0: DA 07 20 4C 44 41 55 45 42 45 52 47 41 42 45 00 |.. LDAUEBERGABE.|
00000BD0: B9 2B E4 07 20 43 4D 50 23 42 45 44 49 4E 47 55 |.+.. CMP#BEDINGU|
00000BE0: 4E 47 00 C6 2B EE 07 20 42 45 51 4C 42 4C 31 00 |NG..+.. BEQLBL1.|
00000BF0: CF 2B F8 07 20 50 4C 41 00 DC 2B 02 08 20 4A 4D |.+.. PLA..+.. JM|
00000C00: 50 41 43 45 30 00 E9 2B 0C 08 4C 42 4C 31 20 50 |PACE0..+..LBL1 P|
00000C10: 4C 41 00 FB 2B 16 08 2E 47 4C 20 42 43 45 30 3D |LA..+...GL BCE0=|
00000C20: 4C 42 4C 31 00 03 2C 20 08 2E 52 54 00 09 2C 2A |LBL1.., ..RT..,*|
00000C30: 08 3B 00 2D 2C 34 08 2E 4D 41 20 57 48 49 4C 45 |.;.-,4..MA WHILE|
00000C40: 20 28 55 45 42 45 52 47 41 42 45 2C 42 45 44 49 | (UEBERGABE,BEDI|
00000C50: 4E 47 55 4E 47 29 00 43 2C 3E 08 43 43 45 30 20 |NGUNG).C,>.CCE0 |
00000C60: 2E 47 4C 43 43 45 30 3D 43 43 45 30 00 4C 2C 48 |.GLCCE0=CCE0.L,H|
00000C70: 08 20 50 48 41 00 5E 2C 52 08 20 4C 44 41 55 45 |. PHA.^,R. LDAUE|
00000C80: 42 45 52 47 41 42 45 00 71 2C 5C 08 20 43 4D 50 |BERGABE.q,\. CMP|
00000C90: 23 42 45 44 49 4E 47 55 4E 47 00 7E 2C 66 08 20 |#BEDINGUNG.~,f. |
00000CA0: 42 4E 45 4C 42 4C 31 00 8B 2C 70 08 20 4A 4D 50 |BNELBL1..,p. JMP|
00000CB0: 43 43 45 31 00 98 2C 7A 08 4C 42 4C 31 20 50 4C |CCE1..,z.LBL1 PL|
00000CC0: 41 00 A0 2C 84 08 2E 52 54 00 A6 2C 8E 08 3B 00 |A..,...RT..,..;.|
00000CD0: B8 2C 98 08 2E 4D 41 20 45 58 49 54 57 48 49 4C |.,...MA EXITWHIL|
00000CE0: 45 00 C1 2C A2 08 20 50 48 41 00 CE 2C AC 08 20 |E..,.. PHA..,.. |
00000CF0: 4A 4D 50 43 43 45 31 00 D6 2C B6 08 2E 52 54 00 |JMPCCE1..,...RT.|
00000D00: DC 2C C0 08 3B 00 ED 2C CA 08 2E 4D 41 20 45 4E |.,..;..,...MA EN|
00000D10: 44 57 48 49 4C 45 00 FA 2C D4 08 20 4A 4D 50 43 |DWHILE..,.. JMPC|
00000D20: 43 45 30 00 10 2D DE 08 43 43 45 31 20 2E 47 4C |CE0..-..CCE1 .GL|
00000D30: 43 43 45 31 3D 43 43 45 31 00 19 2D E8 08 20 50 |CCE1=CCE1..-.. P|
00000D40: 4C 41 00 21 2D F2 08 2E 52 54 00 00 00 |LA.!-...RT... |
X.....;********************************.
$ ..;* WEITERE VERSCHIEBEBEFEHLE *.J
..;********************************.P (.
;.] 2.; X -> Y.I <..MA TXY.R F. PHA.{ P.
TXA.. Z. TAY.. D. PLA.. N..RT.. X.;.. .
.; Y -> X.. ...MA TYX.. .. PHA.F . TYA.
O .. TAX.X .. PLA.. ...RT.. H.;..!R.; X-
REGISTER AUF DEN STACK..!...MA PHX.&!...
EQ RETTEN = $FC.5!.. STARETTEN.>!.. TXA.
G!.. PHA.V!.. LDARETTEN.^!...RT.D!".;..!
,.; Y-REGISTER AUF DEN STACK..!6..MA PHY
..!@..EQ RETTEN = $FC..!J. STARETTEN..!T
. TYA.E!^. PHA.T!H. LDARETTEN..!R..RT..!
|.;.."..; X-REGISTER VOM STACK HOLEN..".
..MA PLX.$"...EQ RETTEN = $FC.3".. STARE
TTEN.<".. PLA.E".. TAX.T"B. LDARETTEN.\"
L..RT.B"V.;.."..; Y-REGISTER VOM STACK H
OLEN.."...MA PLY.."...EQ RETTEN = $FC.."
.. STARETTEN..".. PLA.E".. TAY.T".. LDAR
ETTEN.."&..RT.."0.;..":.; DEN AKKU AUF U
SERSTACK..#D..MA PUSHA..#N. ...PHY.$#X.
LDY#0.5#B. STA(USER),Y.H#L. ...DECW(USER
).T#V. ...PLY.\#...RT.B#..;..#..;AKKU UN
D Y-REGISTER AUF USERSTACK..#...MA PUSHA
Y..#.. PHA..#.. TYA..#.. ...PUSHA.A#F. P
LA.O#P. ...PUSHA.W#Z..RT..#..;..#..; AKK
U VON USERSTACK..$...MA PULLA..$.. ...IN
CW(USER).#$.. ...PHY..$.. LDY#0.?$ . LDA
(USER),Y.K$*. ...PLY.S$4..RT.Y$>.;..$H.;
AKKU UND Y-REGISTER VON USERSTACK..$R..M
A PULLAY..$\. ...PULLA..$F. TAY..$P. ...
PULLA..$Z..RT.B$..;..$..;***************
*****************..%..;* 16-BIT BEF
EHLE *.4%..;*******************
*************.:%..;.\%..; A/Y + ADRESSE
= A/Y AKKU=LO.R%...MA ADW (ADRESSE).{%J.
CLC..%T. ADCADRESSE..%.. PHA..%.. TYA..
%.. ADCADRESSE+1..%.. TAY.A%.. PLA.I%...
RT.O%..;..%$.; ADIERE ADR1 + ADR2 = SUMM
E..&...MA ADMW (ADR1,ADR2,SUMME)..&8. PH
A.!&B. CLC..&L. LDAADR1.;&V. ADCADR2.I&`
. STASUMME.X&J. LDAADR1+1.G&T. ADCADR2+1
.W&~. STASUMME+1..&.. PLA..&...RT..&..;.
.&..; A/Y - ADRESSE = A/Y AKKU=LO.F&...M
A SBCW (ADRESS).O&.. SEC..&D. SBCADRESSE
..&N. PHA..&X. TYA..'.. SBCADRESSE+1..'.
. TAY..'.. PLA..'...RT.#'..;.A'..; ADR1
- ADR2 = DIFFERENZ.`'...MA SBCMW (ADR1,A
DR2,DIFF).I'(. PHA.R'2. SEC.'<. LDAADR1
..'F. SBCADR2..'P. STADIFF..'Z. LDAADR1+
1..'D. SBCADR2+1.F'N. STADIFF+1.O'X. PLA
.W'...RT..'..;..'..; ADRESSE = ADRESSE +
1..( ..MA INCW (ADRESSE)..(.. PHA.)(..
LDAADRESSE.2(.. CLC.=(H. ADC#1.M(R. STAA
DRESSE._(.. LDAADRESSE+1.J(.. ADC#0.|(..
STAADRESSE+1..(.. PLA..(...RT..(..;..(.
.; ADRESSE = ADRESSE - 1.F("..MA DECW (A
DRESSE).O(,. PHA..(6. LDAADRESSE..(@. SE
C..(J. SBC#1..)T. STAADRESSE..)^. LDAADR
ESSE+1. )H. SBC#0.2)R. STAADRESSE+1.;)|.
PLA.C)...RT.I)..;.F)..; ADRESSE -> A/Y
AKKU=LO.})...MA LDAY (ADRESSE)..).. LDYA
DRESSE+1..).. LDAADRESSE..)B..RT..)L.;.J
)V.; A/Y -> ADRESSE AKKU=LO..)...MA STAY
(ADRESSE)..).. STAADRESSE..*.. STYADRES
SE+1..*...RT..*..;.)*..; WERT=16BIT -> A
/Y.>*...MA LDAYI (WERT).O*&. LDA#<(WERT)
.`*0. LDY#>(WERT).H*:..RT..*D.;*********
***********************..*N.;* BEFEHLE
ZUR STRUKTURIERTEN *.Z*X.;* PROGR
AMMIERUNG *..+B.;***************
*****************..+L.;..+V..MA REPEAT.+
+..ACE1 .GLACE0=ACE1.3+...RT.9+..;.L+...
MA EXITREPEAT.Y+.. JMPBCE0.A+...RT.G+..;
..+F..MA UNTIL (UEBERGABE,BEDINGUNG)..+P
. PHA..+Z. LDAUEBERGABE..+.. CMP#BEDINGU
NG.F+.. BEQLBL1.O+.. PLA..+.. JMPACE0..+
..LBL1 PLA..+...GL BCE0=LBL1.., ..RT..,*
.;.-,4..MA WHILE (UEBERGABE,BEDINGUNG).C
,>.CCE0 .GLCCE0=CCE0.L,H. PHA.^,R. LDAUE
BERGABE.Q,\. CMP#BEDINGUNG.~,F. BNELBL1.
.,P. JMPCCE1..,Z.LBL1 PLA. ,...RT..,..;.
.,...MA EXITWHILE.A,.. PHA.N,.. JMPCCE1.
V,...RT..,..;..,J..MA ENDWHILE..,T. JMPC
CE0..-..CCE1 .GLCCE1=CCE1..-.. PLA.!-...
RT...
> CLICK IMAGE PREVIEW FOR FULL MODAL