MAKROS
FILE INFORMATION
FILENAME(S): MAKROS
FILE TYPE(S): PRG
FILE SIZE: 2.6K
FIRST SEEN: 2025-10-20 14:30:10
APPEARS ON: 2 disk(s)
FILE HASH
dbb2db2310dee00cbc0f32d4bdb8bf4aee72116f015e404e872be6660df07ad9
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| 90571 | MAKROS | PRG | Treasure Chest - Klaus Der Suhler | 19 | 0 | DOWNLOAD FILE |
| 90571 | MAKROS | PRG | BrainSkull, Georg Fuchs 1988 | 19 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 14 2D 3A 2D 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 60 2D 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 86 2D |EBEBEFEHLE *..-|
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 8C 2D 28 00 3B 00 99 2D 32 00 3B 20 |***..-(.;..-2.; |
00000080: 58 20 2D 3E 20 59 00 A5 2D 3C 00 2E 4D 41 20 54 |X -> Y..-<..MA T|
00000090: 58 59 00 AE 2D 46 00 20 50 48 41 00 B7 2D 50 00 |XY..-F. PHA..-P.|
000000A0: 20 54 58 41 00 C0 2D 5A 00 20 54 41 59 00 C9 2D | TXA..-Z. TAY..-|
000000B0: 64 00 20 50 4C 41 00 D1 2D 6E 00 2E 52 54 00 D7 |d. PLA..-n..RT..|
000000C0: 2D 78 00 3B 00 E4 2D 82 00 3B 20 59 20 2D 3E 20 |-x.;..-..; Y -> |
000000D0: 58 00 F0 2D 8C 00 2E 4D 41 20 54 59 58 00 F9 2D |X..-...MA TYX..-|
000000E0: 96 00 20 50 48 41 00 02 2E A0 00 20 54 59 41 00 |.. PHA..... TYA.|
000000F0: 0B 2E AA 00 20 54 41 58 00 14 2E B4 00 20 50 4C |.... TAX..... PL|
00000100: 41 00 1C 2E BE 00 2E 52 54 00 22 2E C8 00 3B 00 |A......RT."...;.|
00000110: 41 2E D2 00 3B 20 58 2D 52 45 47 49 53 54 45 52 |A...; X-REGISTER|
00000120: 20 41 55 46 20 44 45 4E 20 53 54 41 43 4B 00 4D | AUF DEN STACK.M|
00000130: 2E DC 00 2E 4D 41 20 50 48 58 00 62 2E E6 00 2E |....MA PHX.b....|
00000140: 45 51 20 52 45 54 54 45 4E 20 3D 20 24 46 43 00 |EQ RETTEN = $FC.|
00000150: 71 2E F0 00 20 53 54 41 52 45 54 54 45 4E 00 7A |q... STARETTEN.z|
00000160: 2E FA 00 20 54 58 41 00 83 2E 04 01 20 50 48 41 |... TXA..... PHA|
00000170: 00 92 2E 0E 01 20 4C 44 41 52 45 54 54 45 4E 00 |..... LDARETTEN.|
00000180: 9A 2E 18 01 2E 52 54 00 A0 2E 22 01 3B 00 BF 2E |.....RT...".;...|
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 CB 2E 36 |UF DEN STACK...6|
000001B0: 01 2E 4D 41 20 50 48 59 00 E0 2E 40 01 2E 45 51 |..MA PHY...@..EQ|
000001C0: 20 52 45 54 54 45 4E 20 3D 20 24 46 43 00 EF 2E | RETTEN = $FC...|
000001D0: 4A 01 20 53 54 41 52 45 54 54 45 4E 00 F8 2E 54 |J. STARETTEN...T|
000001E0: 01 20 54 59 41 00 01 2F 5E 01 20 50 48 41 00 10 |. TYA../^. PHA..|
000001F0: 2F 68 01 20 4C 44 41 52 45 54 54 45 4E 00 18 2F |/h. LDARETTEN../|
00000200: 72 01 2E 52 54 00 1E 2F 7C 01 3B 00 3F 2F 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 4B 2F 90 | STACK HOLEN.K/.|
00000230: 01 2E 4D 41 20 50 4C 58 00 60 2F 9A 01 2E 45 51 |..MA PLX.`/...EQ|
00000240: 20 52 45 54 54 45 4E 20 3D 20 24 46 43 00 6F 2F | RETTEN = $FC.o/|
00000250: A4 01 20 53 54 41 52 45 54 54 45 4E 00 78 2F AE |.. STARETTEN.x/.|
00000260: 01 20 50 4C 41 00 81 2F B8 01 20 54 41 58 00 90 |. PLA../.. TAX..|
00000270: 2F C2 01 20 4C 44 41 52 45 54 54 45 4E 00 98 2F |/.. LDARETTEN../|
00000280: CC 01 2E 52 54 00 9E 2F D6 01 3B 00 BF 2F E0 01 |...RT../..;../..|
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 CB 2F EA | STACK HOLEN../.|
000002B0: 01 2E 4D 41 20 50 4C 59 00 E0 2F F4 01 2E 45 51 |..MA PLY../...EQ|
000002C0: 20 52 45 54 54 45 4E 20 3D 20 24 46 43 00 EF 2F | RETTEN = $FC../|
000002D0: FE 01 20 53 54 41 52 45 54 54 45 4E 00 F8 2F 08 |.. STARETTEN../.|
000002E0: 02 20 50 4C 41 00 01 30 12 02 20 54 41 59 00 10 |. PLA..0.. TAY..|
000002F0: 30 1C 02 20 4C 44 41 52 45 54 54 45 4E 00 18 30 |0.. LDARETTEN..0|
00000300: 26 02 2E 52 54 00 1E 30 30 02 3B 00 3B 30 3A 02 |&..RT..00.;.;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 49 30 44 02 2E 4D 41 |SERSTACK.I0D..MA|
00000330: 20 50 55 53 48 41 00 55 30 4E 02 20 2E 2E 2E 50 | PUSHA.U0N. ...P|
00000340: 48 59 00 60 30 58 02 20 4C 44 59 23 30 00 71 30 |HY.`0X. LDY#0.q0|
00000350: 62 02 20 53 54 41 28 55 53 45 52 29 2C 59 00 84 |b. STA(USER),Y..|
00000360: 30 6C 02 20 2E 2E 2E 44 45 43 57 28 55 53 45 52 |0l. ...DECW(USER|
00000370: 29 00 90 30 76 02 20 2E 2E 2E 50 4C 59 00 98 30 |)..0v. ...PLY..0|
00000380: 80 02 2E 52 54 00 9E 30 8A 02 3B 00 C5 30 94 02 |...RT..0..;..0..|
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 D4 30 9E 02 2E 4D 41 20 50 55 53 48 41 |CK..0...MA PUSHA|
000003C0: 59 00 DD 30 A8 02 20 50 48 41 00 E6 30 B2 02 20 |Y..0.. PHA..0.. |
000003D0: 54 59 41 00 F4 30 BC 02 20 2E 2E 2E 50 55 53 48 |TYA..0.. ...PUSH|
000003E0: 41 00 FD 30 C6 02 20 50 4C 41 00 0B 31 D0 02 20 |A..0.. PLA..1.. |
000003F0: 2E 2E 2E 50 55 53 48 41 00 13 31 DA 02 2E 52 54 |...PUSHA..1...RT|
00000400: 00 19 31 E4 02 3B 00 32 31 EE 02 3B 20 41 4B 4B |..1..;.21..; AKK|
00000410: 55 20 56 4F 4E 20 55 53 45 52 53 54 41 43 4B 00 |U VON USERSTACK.|
00000420: 40 31 F8 02 2E 4D 41 20 50 55 4C 4C 41 00 53 31 |@1...MA PULLA.S1|
00000430: 02 03 20 2E 2E 2E 49 4E 43 57 28 55 53 45 52 29 |.. ...INCW(USER)|
00000440: 00 5F 31 0C 03 20 2E 2E 2E 50 48 59 00 6A 31 16 |._1.. ...PHY.j1.|
00000450: 03 20 4C 44 59 23 30 00 7B 31 20 03 20 4C 44 41 |. LDY#0.{1 . LDA|
00000460: 28 55 53 45 52 29 2C 59 00 87 31 2A 03 20 2E 2E |(USER),Y..1*. ..|
00000470: 2E 50 4C 59 00 8F 31 34 03 2E 52 54 00 95 31 3E |.PLY..14..RT..1>|
00000480: 03 3B 00 BC 31 48 03 3B 41 4B 4B 55 20 55 4E 44 |.;..1H.;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 CB 31 52 03 2E 4D |USERSTACK..1R..M|
000004B0: 41 20 50 55 4C 4C 41 59 00 D9 31 5C 03 20 2E 2E |A PULLAY..1\. ..|
000004C0: 2E 50 55 4C 4C 41 00 E2 31 66 03 20 54 41 59 00 |.PULLA..1f. TAY.|
000004D0: F0 31 70 03 20 2E 2E 2E 50 55 4C 4C 41 00 F8 31 |.1p. ...PULLA..1|
000004E0: 7A 03 2E 52 54 00 FE 31 84 03 3B 00 24 32 8E 03 |z..RT..1..;.$2..|
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 4A 32 98 03 3B 2A 20 20 20 20 20 20 31 36 |*.J2..;* 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 70 32 A2 03 3B 2A 2A 2A | *.p2..;***|
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 76 32 |*************.v2|
00000560: AC 03 3B 00 98 32 B6 03 3B 20 41 2F 59 20 2B 20 |..;..2..; 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 AE 32 C0 03 2E 4D 41 20 41 44 |KU=LO..2...MA AD|
00000590: 57 20 28 41 44 52 45 53 53 45 29 00 B7 32 CA 03 |W (ADRESSE)..2..|
000005A0: 20 43 4C 43 00 C7 32 D4 03 20 41 44 43 41 44 52 | CLC..2.. ADCADR|
000005B0: 45 53 53 45 00 D0 32 DE 03 20 50 48 41 00 D9 32 |ESSE..2.. PHA..2|
000005C0: E8 03 20 54 59 41 00 EB 32 F2 03 20 41 44 43 41 |.. TYA..2.. ADCA|
000005D0: 44 52 45 53 53 45 2B 31 00 F4 32 FC 03 20 54 41 |DRESSE+1..2.. TA|
000005E0: 59 00 FD 32 06 04 20 50 4C 41 00 05 33 10 04 2E |Y..2.. PLA..3...|
000005F0: 52 54 00 0B 33 1A 04 3B 00 2C 33 24 04 3B 20 41 |RT..3..;.,3$.; 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 4B 33 2E 04 2E 4D |2 = SUMME.K3...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 54 33 38 04 20 50 48 |2,SUMME).T38. PH|
00000640: 41 00 5D 33 42 04 20 43 4C 43 00 6A 33 4C 04 20 |A.]3B. CLC.j3L. |
00000650: 4C 44 41 41 44 52 31 00 77 33 56 04 20 41 44 43 |LDAADR1.w3V. ADC|
00000660: 41 44 52 32 00 85 33 60 04 20 53 54 41 53 55 4D |ADR2..3`. STASUM|
00000670: 4D 45 00 94 33 6A 04 20 4C 44 41 41 44 52 31 2B |ME..3j. LDAADR1+|
00000680: 31 00 A3 33 74 04 20 41 44 43 41 44 52 32 2B 31 |1..3t. ADCADR2+1|
00000690: 00 B3 33 7E 04 20 53 54 41 53 55 4D 4D 45 2B 31 |..3~. STASUMME+1|
000006A0: 00 BC 33 88 04 20 50 4C 41 00 C4 33 92 04 2E 52 |..3.. PLA..3...R|
000006B0: 54 00 CA 33 9C 04 3B 00 EC 33 A6 04 3B 20 41 2F |T..3..;..3..; 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 02 34 B0 04 2E 4D |Y AKKU=LO..4...M|
000006E0: 41 20 53 42 43 57 20 28 41 44 52 45 53 53 29 00 |A SBCW (ADRESS).|
000006F0: 0B 34 BA 04 20 53 45 43 00 1B 34 C4 04 20 53 42 |.4.. SEC..4.. SB|
00000700: 43 41 44 52 45 53 53 45 00 24 34 CE 04 20 50 48 |CADRESSE.$4.. PH|
00000710: 41 00 2D 34 D8 04 20 54 59 41 00 3F 34 E2 04 20 |A.-4.. TYA.?4.. |
00000720: 53 42 43 41 44 52 45 53 53 45 2B 31 00 48 34 EC |SBCADRESSE+1.H4.|
00000730: 04 20 54 41 59 00 51 34 F6 04 20 50 4C 41 00 59 |. TAY.Q4.. PLA.Y|
00000740: 34 00 05 2E 52 54 00 5F 34 0A 05 3B 00 7D 34 14 |4...RT._4..;.}4.|
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 9C 34 1E 05 2E | DIFFERENZ..4...|
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 A5 34 28 05 20 50 |DR2,DIFF)..4(. P|
00000790: 48 41 00 AE 34 32 05 20 53 45 43 00 BB 34 3C 05 |HA..42. SEC..4<.|
000007A0: 20 4C 44 41 41 44 52 31 00 C8 34 46 05 20 53 42 | LDAADR1..4F. SB|
000007B0: 43 41 44 52 32 00 D5 34 50 05 20 53 54 41 44 49 |CADR2..4P. STADI|
000007C0: 46 46 00 E4 34 5A 05 20 4C 44 41 41 44 52 31 2B |FF..4Z. LDAADR1+|
000007D0: 31 00 F3 34 64 05 20 53 42 43 41 44 52 32 2B 31 |1..4d. SBCADR2+1|
000007E0: 00 02 35 6E 05 20 53 54 41 44 49 46 46 2B 31 00 |..5n. STADIFF+1.|
000007F0: 0B 35 78 05 20 50 4C 41 00 13 35 82 05 2E 52 54 |.5x. PLA..5...RT|
00000800: 00 19 35 8C 05 3B 00 35 35 96 05 3B 20 41 44 52 |..5..;.55..; ADR|
00000810: 45 53 53 45 20 3D 20 41 44 52 45 53 53 45 20 2B |ESSE = ADRESSE +|
00000820: 20 31 00 4C 35 A0 05 2E 4D 41 20 49 4E 43 57 20 | 1.L5...MA INCW |
00000830: 28 41 44 52 45 53 53 45 29 00 55 35 AA 05 20 50 |(ADRESSE).U5.. P|
00000840: 48 41 00 65 35 B4 05 20 4C 44 41 41 44 52 45 53 |HA.e5.. LDAADRES|
00000850: 53 45 00 6E 35 BE 05 20 43 4C 43 00 79 35 C8 05 |SE.n5.. CLC.y5..|
00000860: 20 41 44 43 23 31 00 89 35 D2 05 20 53 54 41 41 | ADC#1..5.. STAA|
00000870: 44 52 45 53 53 45 00 9B 35 DC 05 20 4C 44 41 41 |DRESSE..5.. LDAA|
00000880: 44 52 45 53 53 45 2B 31 00 A6 35 E6 05 20 41 44 |DRESSE+1..5.. AD|
00000890: 43 23 30 00 B8 35 F0 05 20 53 54 41 41 44 52 45 |C#0..5.. STAADRE|
000008A0: 53 53 45 2B 31 00 C1 35 FA 05 20 50 4C 41 00 C9 |SSE+1..5.. PLA..|
000008B0: 35 04 06 2E 52 54 00 CF 35 0E 06 3B 00 EB 35 18 |5...RT..5..;..5.|
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 02 36 22 06 2E 4D 41 |ESSE - 1..6"..MA|
000008E0: 20 44 45 43 57 20 28 41 44 52 45 53 53 45 29 00 | DECW (ADRESSE).|
000008F0: 0B 36 2C 06 20 50 48 41 00 1B 36 36 06 20 4C 44 |.6,. PHA..66. LD|
00000900: 41 41 44 52 45 53 53 45 00 24 36 40 06 20 53 45 |AADRESSE.$6@. SE|
00000910: 43 00 2F 36 4A 06 20 53 42 43 23 31 00 3F 36 54 |C./6J. SBC#1.?6T|
00000920: 06 20 53 54 41 41 44 52 45 53 53 45 00 51 36 5E |. STAADRESSE.Q6^|
00000930: 06 20 4C 44 41 41 44 52 45 53 53 45 2B 31 00 5C |. LDAADRESSE+1.\|
00000940: 36 68 06 20 53 42 43 23 30 00 6E 36 72 06 20 53 |6h. SBC#0.n6r. S|
00000950: 54 41 41 44 52 45 53 53 45 2B 31 00 77 36 7C 06 |TAADRESSE+1.w6|.|
00000960: 20 50 4C 41 00 7F 36 86 06 2E 52 54 00 85 36 90 | PLA..6...RT..6.|
00000970: 06 3B 00 A2 36 9A 06 3B 20 41 44 52 45 53 53 45 |.;..6..; ADRESSE|
00000980: 20 2D 3E 20 41 2F 59 20 41 4B 4B 55 3D 4C 4F 00 | -> A/Y AKKU=LO.|
00000990: B9 36 A4 06 2E 4D 41 20 4C 44 41 59 20 28 41 44 |.6...MA LDAY (AD|
000009A0: 52 45 53 53 45 29 00 CB 36 AE 06 20 4C 44 59 41 |RESSE)..6.. LDYA|
000009B0: 44 52 45 53 53 45 2B 31 00 DB 36 B8 06 20 4C 44 |DRESSE+1..6.. LD|
000009C0: 41 41 44 52 45 53 53 45 00 E3 36 C2 06 2E 52 54 |AADRESSE..6...RT|
000009D0: 00 E9 36 CC 06 3B 00 06 37 D6 06 3B 20 41 2F 59 |..6..;..7..; 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 1D 37 E0 06 2E 4D 41 20 53 54 41 59 |=LO..7...MA STAY|
00000A00: 20 28 41 44 52 45 53 53 45 29 00 2D 37 EA 06 20 | (ADRESSE).-7.. |
00000A10: 53 54 41 41 44 52 45 53 53 45 00 3F 37 F4 06 20 |STAADRESSE.?7.. |
00000A20: 53 54 59 41 44 52 45 53 53 45 2B 31 00 47 37 FE |STYADRESSE+1.G7.|
00000A30: 06 2E 52 54 00 4D 37 08 07 3B 00 65 37 12 07 3B |..RT.M7..;.e7..;|
00000A40: 20 57 45 52 54 3D 31 36 42 49 54 20 2D 3E 20 41 | WERT=16BIT -> A|
00000A50: 2F 59 00 7A 37 1C 07 2E 4D 41 20 4C 44 41 59 49 |/Y.z7...MA LDAYI|
00000A60: 20 28 57 45 52 54 29 00 8B 37 26 07 20 4C 44 41 | (WERT)..7&. LDA|
00000A70: 23 3C 28 57 45 52 54 29 00 9C 37 30 07 20 4C 44 |#<(WERT)..70. LD|
00000A80: 59 23 3E 28 57 45 52 54 29 00 A4 37 3A 07 2E 52 |Y#>(WERT)..7:..R|
00000A90: 54 00 00 00 |T... |
.-:-..;********************************.
`-..;* WEITERE VERSCHIEBEBEFEHLE *..-
..;********************************..-(.
;..-2.; X -> Y..-<..MA TXY..-F. PHA..-P.
TXA..-Z. TAY.I-D. PLA.Q-N..RT.W-X.;..-.
.; Y -> X..-...MA TYX..-.. PHA... . TYA.
.... TAX..... PLA......RT.".H.;.A.R.; X-
REGISTER AUF DEN STACK.M....MA PHX.B....
EQ RETTEN = $FC.Q... STARETTEN.Z... TXA.
.... PHA..... LDARETTEN......RT. .".;...
,.; Y-REGISTER AUF DEN STACK.K.6..MA PHY
...@..EQ RETTEN = $FC...J. STARETTEN...T
. TYA../^. PHA../H. LDARETTEN../R..RT../
|.;.?/..; X-REGISTER VOM STACK HOLEN.K/.
..MA PLX.`/...EQ RETTEN = $FC.O/.. STARE
TTEN.X/.. PLA../.. TAX../B. LDARETTEN../
L..RT../V.;../..; Y-REGISTER VOM STACK H
OLEN.K/...MA PLY../...EQ RETTEN = $FC../
.. STARETTEN../.. PLA..0.. TAY..0.. LDAR
ETTEN..0&..RT..00.;.;0:.; DEN AKKU AUF U
SERSTACK.I0D..MA PUSHA.U0N. ...PHY.`0X.
LDY#0.Q0B. STA(USER),Y..0L. ...DECW(USER
)..0V. ...PLY..0...RT..0..;.E0..;AKKU UN
D Y-REGISTER AUF USERSTACK.T0...MA PUSHA
Y..0.. PHA..0.. TYA..0.. ...PUSHA..0F. P
LA..1P. ...PUSHA..1Z..RT..1..;.21..; AKK
U VON USERSTACK.@1...MA PULLA.S1.. ...IN
CW(USER)._1.. ...PHY.J1.. LDY#0.{1 . LDA
(USER),Y..1*. ...PLY..14..RT..1>.;..1H.;
AKKU UND Y-REGISTER VON USERSTACK.K1R..M
A PULLAY.Y1\. ...PULLA..1F. TAY..1P. ...
PULLA..1Z..RT..1..;.$2..;***************
*****************.J2..;* 16-BIT BEF
EHLE *.P2..;*******************
*************.V2..;..2..; A/Y + ADRESSE
= A/Y AKKU=LO..2...MA ADW (ADRESSE)..2J.
CLC.G2T. ADCADRESSE.P2.. PHA.Y2.. TYA..
2.. ADCADRESSE+1..2.. TAY..2.. PLA..3...
RT..3..;.,3$.; ADIERE ADR1 + ADR2 = SUMM
E.K3...MA ADMW (ADR1,ADR2,SUMME).T38. PH
A.]3B. CLC.J3L. LDAADR1.W3V. ADCADR2..3`
. STASUMME..3J. LDAADR1+1..3T. ADCADR2+1
..3~. STASUMME+1..3.. PLA.D3...RT.J3..;.
.3..; A/Y - ADRESSE = A/Y AKKU=LO..4...M
A SBCW (ADRESS)..4.. SEC..4D. SBCADRESSE
.$4N. PHA.-4X. TYA.?4.. SBCADRESSE+1.H4.
. TAY.Q4.. PLA.Y4...RT._4..;.}4..; ADR1
- ADR2 = DIFFERENZ..4...MA SBCMW (ADR1,A
DR2,DIFF)..4(. PHA..42. SEC..4<. LDAADR1
.H4F. SBCADR2.U4P. STADIFF..4Z. LDAADR1+
1..4D. SBCADR2+1..5N. STADIFF+1..5X. PLA
..5...RT..5..;.55..; ADRESSE = ADRESSE +
1.L5 ..MA INCW (ADRESSE).U5.. PHA.E5..
LDAADRESSE.N5.. CLC.Y5H. ADC#1..5R. STAA
DRESSE..5.. LDAADRESSE+1..5.. ADC#0..5..
STAADRESSE+1.A5.. PLA.I5...RT.O5..;..5.
.; ADRESSE = ADRESSE - 1..6"..MA DECW (A
DRESSE)..6,. PHA..66. LDAADRESSE.$6@. SE
C./6J. SBC#1.?6T. STAADRESSE.Q6^. LDAADR
ESSE+1.\6H. SBC#0.N6R. STAADRESSE+1.W6|.
PLA.6...RT..6..;..6..; ADRESSE -> A/Y
AKKU=LO..6...MA LDAY (ADRESSE).K6.. LDYA
DRESSE+1..6.. LDAADRESSE..6B..RT..6L.;..
7V.; A/Y -> ADRESSE AKKU=LO..7...MA STAY
(ADRESSE).-7.. STAADRESSE.?7.. STYADRES
SE+1.G7...RT.M7..;.E7..; WERT=16BIT -> A
/Y.Z7...MA LDAYI (WERT)..7&. LDA#<(WERT)
..70. LDY#>(WERT)..7:..RT...
> CLICK IMAGE PREVIEW FOR FULL MODAL