VOCABULARY.SORCE
FILE INFORMATION
FILENAME(S): VOCABULARY.SORCE
FILE TYPE(S): PRG
FILE SIZE: 12.1K
FIRST SEEN: 2025-10-20 14:29:55
APPEARS ON: 6 disk(s)
FILE HASH
87d3221c0e15cc09bcfa9520b71f44d9455350f97e37b7fdf556e1c69b26a27b
FOUND ON DISKS (6 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| SONDERHEFT 6 3 | VOCABULARY.SORCE | PRG | Treasure Chest - Klaus Der Suhler | 9 | 2 | DOWNLOAD FILE |
| 64 ER 8 85 | VOCABULARY.SORCE | PRG | Treasure Chest - Reamigation | 26 | 9 | DOWNLOAD FILE |
| 64 ER 8 85 | VOCABULARY.SORCE | PRG | BrainSkull, Leopold Zyka, C64er | 26 | 9 | DOWNLOAD FILE |
| SONDERHEFT 6 3 | VOCABULARY.SORCE | PRG | C64er | 9 | 2 | DOWNLOAD FILE |
| 64 ER 8 85 | VOCABULARY.SORCE | PRG | DuncanTwain | 26 | 9 | DOWNLOAD FILE |
| 64 ER 8 85 | VOCABULARY.SORCE | PRG | DuncanTwain | 26 | 9 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 1E 08 28 00 9F 31 2C 38 2C 31 35 2C 22 53 |....(..1,8,15,"S|
00000010: 3A 46 4F 52 54 48 2E 56 4F 43 22 3A A0 31 00 35 |:FORTH.VOC":.1.5|
00000020: 08 32 00 9F 31 2C 38 2C 31 2C 22 46 4F 52 54 48 |.2..1,8,1,"FORTH|
00000030: 2E 56 4F 43 22 00 3B 08 3C 00 3A 00 41 08 46 00 |.VOC".;.<.:.A.F.|
00000040: 3A 00 5B 08 64 00 3A 20 20 20 20 20 20 20 20 20 |:.[.d.: |
00000050: 20 20 9E 20 20 39 AC 34 30 39 36 00 73 08 69 00 | . 9.4096.s.i.|
00000060: 3A 20 20 20 20 20 20 20 20 20 20 20 2E 4F 50 54 |: .OPT|
00000070: 20 4F 4F 00 8E 08 6E 00 53 54 41 43 4B 20 20 20 | OO...n.STACK |
00000080: 20 20 20 20 20 20 B2 20 20 24 43 46 30 30 00 A9 | . $CF00..|
00000090: 08 73 00 52 45 54 53 54 41 43 4B 20 20 20 20 20 |.s.RETSTACK |
000000A0: 20 B2 20 20 24 43 45 30 30 00 C2 08 78 00 B9 20 | . $CE00...x.. |
000000B0: 20 20 20 20 20 20 20 20 20 20 B2 20 20 24 30 30 | . $00|
000000C0: 30 32 00 DB 08 7A 00 52 45 54 B9 20 20 20 20 20 |02...z.RET. |
000000D0: 20 20 20 B2 20 20 24 30 30 46 43 00 F6 08 7D 00 | . $00FC...}.|
000000E0: 4C 20 20 20 20 20 20 20 20 20 20 20 20 20 B2 20 |L . |
000000F0: 20 24 30 30 46 44 00 11 09 82 00 48 20 20 20 20 | $00FD.....H |
00000100: 20 20 20 20 20 20 20 20 20 B2 20 20 24 30 30 46 | . $00F|
00000110: 45 00 2C 09 87 00 48 4C 20 20 20 20 20 20 20 20 |E.,...HL |
00000120: 20 20 20 20 B2 20 20 24 30 30 46 44 00 43 09 8C | . $00FD.C..|
00000130: 00 99 20 20 20 20 20 20 20 20 20 B2 20 20 24 46 |.. . $F|
00000140: 46 44 32 00 5E 09 91 00 3A 20 20 20 20 20 20 20 |FD2.^...: |
00000150: 20 20 20 20 20 AC B2 20 20 24 43 30 30 30 00 77 | .. $C000.w|
00000160: 09 92 00 52 45 47 31 20 20 20 20 20 20 20 20 20 |...REG1 |
00000170: AC B2 20 20 AC AA 32 00 90 09 93 00 52 45 47 32 |.. ..2.....REG2|
00000180: 20 20 20 20 20 20 20 20 20 AC B2 20 20 AC AA 32 | .. ..2|
00000190: 00 A9 09 94 00 52 45 47 33 20 20 20 20 20 20 20 |.....REG3 |
000001A0: 20 20 AC B2 20 20 AC AA 32 00 C5 09 96 00 3B AB | .. ..2.....;.|
000001B0: AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB |................|
000001C0: AB AB AB AB AB 00 DF 09 9B 00 43 4C 53 20 20 20 |..........CLS |
000001D0: 20 20 20 20 20 20 4C 44 41 20 20 23 22 93 22 00 | LDA #".".|
000001E0: F6 09 A0 00 3A 20 20 20 20 20 20 20 20 20 20 20 |....: |
000001F0: 4A 4D 50 20 20 99 00 12 0A A5 00 3B AB AB AB AB |JMP ......;....|
00000200: AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB |................|
00000210: AB AB 00 2B 0A AA 00 53 48 4F 57 20 20 20 20 20 |...+...SHOW |
00000220: 20 20 20 4A 53 52 20 20 50 4F 50 00 44 0A AF 00 | JSR POP.D...|
00000230: 3A 20 20 20 20 20 20 20 20 20 20 20 53 54 41 20 |: STA |
00000240: 20 24 36 32 00 5D 0A B4 00 3A 20 20 20 20 20 20 | $62.]...: |
00000250: 20 20 20 20 20 53 54 58 20 20 24 36 33 00 77 0A | STX $63.w.|
00000260: B9 00 3A 20 20 20 20 20 20 20 20 20 20 20 4C 44 |..: LD|
00000270: 58 20 20 23 24 39 30 00 90 0A BE 00 3A 20 20 20 |X #$90.....: |
00000280: 20 20 20 20 20 20 20 20 4C 44 41 20 20 24 36 32 | LDA $62|
00000290: 00 AB 0A C3 00 3A 20 20 20 20 20 20 20 20 20 20 |.....: |
000002A0: 20 42 4D 49 20 20 4D 49 4E 55 53 00 C5 0A C8 00 | BMI MINUS.....|
000002B0: 50 4C 55 53 20 20 20 20 20 20 20 20 4C 44 41 20 |PLUS LDA |
000002C0: 20 23 22 20 22 00 DC 0A CD 00 3A 20 20 20 20 20 | #" ".....: |
000002D0: 20 20 20 20 20 20 4A 53 52 20 20 99 00 F0 0A D2 | JSR .....|
000002E0: 00 3A 20 20 20 20 20 20 20 20 20 20 20 53 45 43 |.: SEC|
000002F0: 00 0B 0B D7 00 3A 20 20 20 20 20 20 20 20 20 20 |.....: |
00000300: 20 4A 4D 50 20 20 24 42 44 44 34 00 25 0B DC 00 | JMP $BDD4.%...|
00000310: 4D 49 4E 55 53 20 20 20 20 20 20 20 4C 44 41 20 |MINUS LDA |
00000320: 20 23 22 2D 22 00 3C 0B E1 00 3A 20 20 20 20 20 | #"-".<...: |
00000330: 20 20 20 20 20 20 4A 53 52 20 20 99 00 50 0B E6 | JSR ..P..|
00000340: 00 3A 20 20 20 20 20 20 20 20 20 20 20 43 4C 43 |.: CLC|
00000350: 00 6B 0B EB 00 3A 20 20 20 20 20 20 20 20 20 20 |.k...: |
00000360: 20 4A 4D 50 20 20 24 42 44 44 34 00 87 0B F0 00 | JMP $BDD4.....|
00000370: 3B AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB |;...............|
00000380: AB AB AB AB AB AB AB 00 9E 0B F5 00 50 55 53 48 |............PUSH|
00000390: 20 20 20 20 20 20 20 20 53 54 41 20 20 48 00 B5 | STA H..|
000003A0: 0B FA 00 3A 20 20 20 20 20 20 20 20 20 20 20 53 |...: S|
000003B0: 54 58 20 20 4C 00 CC 0B FF 00 50 55 53 48 31 20 |TX L.....PUSH1 |
000003C0: 20 20 20 20 20 20 4C 44 58 20 20 B9 00 E3 0B 04 | LDX .....|
000003D0: 01 3A 20 20 20 20 20 20 20 20 20 20 20 4C 44 41 |.: LDA|
000003E0: 20 20 48 00 00 0C 09 01 3A 20 20 20 20 20 20 20 | H.....: |
000003F0: 20 20 20 20 53 54 41 20 20 53 54 41 43 4B 2C 58 | STA STACK,X|
00000400: 00 14 0C 0E 01 3A 20 20 20 20 20 20 20 20 20 20 |.....: |
00000410: 20 49 4E 58 00 2B 0C 13 01 3A 20 20 20 20 20 20 | INX.+...: |
00000420: 20 20 20 20 20 4C 44 41 20 20 4C 00 48 0C 18 01 | LDA L.H...|
00000430: 3A 20 20 20 20 20 20 20 20 20 20 20 53 54 41 20 |: STA |
00000440: 20 53 54 41 43 4B 2C 58 00 5C 0C 1D 01 3A 20 20 | STACK,X.\...: |
00000450: 20 20 20 20 20 20 20 20 20 49 4E 58 00 73 0C 22 | INX.s."|
00000460: 01 3A 20 20 20 20 20 20 20 20 20 20 20 53 54 58 |.: STX|
00000470: 20 20 B9 00 87 0C 27 01 3A 20 20 20 20 20 20 20 | ....'.: |
00000480: 20 20 20 20 52 54 53 00 A3 0C 2C 01 3B AB AB AB | RTS...,.;...|
00000490: AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB |................|
000004A0: AB AB AB 00 BA 0C 31 01 50 4F 50 20 20 20 20 20 |......1.POP |
000004B0: 20 20 20 20 4C 44 58 20 20 B9 00 CE 0C 36 01 3A | LDX ....6.:|
000004C0: 20 20 20 20 20 20 20 20 20 20 20 44 45 58 00 EB | DEX..|
000004D0: 0C 3B 01 3A 20 20 20 20 20 20 20 20 20 20 20 4C |.;.: L|
000004E0: 44 41 20 20 53 54 41 43 4B 2C 58 00 02 0D 40 01 |DA STACK,X...@.|
000004F0: 3A 20 20 20 20 20 20 20 20 20 20 20 53 54 41 20 |: STA |
00000500: 20 4C 00 16 0D 45 01 3A 20 20 20 20 20 20 20 20 | L...E.: |
00000510: 20 20 20 44 45 58 00 33 0D 4A 01 3A 20 20 20 20 | DEX.3.J.: |
00000520: 20 20 20 20 20 20 20 4C 44 41 20 20 53 54 41 43 | LDA STAC|
00000530: 4B 2C 58 00 4A 0D 4F 01 3A 20 20 20 20 20 20 20 |K,X.J.O.: |
00000540: 20 20 20 20 53 54 41 20 20 48 00 61 0D 54 01 3A | STA H.a.T.:|
00000550: 20 20 20 20 20 20 20 20 20 20 20 53 54 58 20 20 | STX |
00000560: B9 00 78 0D 59 01 3A 20 20 20 20 20 20 20 20 20 |..x.Y.: |
00000570: 20 20 4C 44 41 20 20 48 00 8F 0D 5E 01 3A 20 20 | LDA H...^.: |
00000580: 20 20 20 20 20 20 20 20 20 4C 44 58 20 20 4C 00 | LDX L.|
00000590: A3 0D 63 01 3A 20 20 20 20 20 20 20 20 20 20 20 |..c.: |
000005A0: 52 54 53 00 BF 0D 68 01 3B AB AB AB AB AB AB AB |RTS...h.;.......|
000005B0: AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB 00 |................|
000005C0: D8 0D 6D 01 44 52 4F 50 20 20 20 20 20 20 20 20 |..m.DROP |
000005D0: 4A 4D 50 20 20 50 4F 50 00 F4 0D 72 01 3B AB AB |JMP POP...r.;..|
000005E0: AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB |................|
000005F0: AB AB AB AB 00 0D 0E 77 01 44 55 50 20 20 20 20 |.......w.DUP |
00000600: 20 20 20 20 20 4A 53 52 20 20 50 4F 50 00 27 0E | JSR POP.'.|
00000610: 7C 01 3A 20 20 20 20 20 20 20 20 20 20 20 4A 53 ||.: JS|
00000620: 52 20 20 50 55 53 48 00 42 0E 81 01 3A 20 20 20 |R PUSH.B...: |
00000630: 20 20 20 20 20 20 20 20 4A 4D 50 20 20 50 55 53 | JMP PUS|
00000640: 48 31 00 5E 0E 86 01 3B AB AB AB AB AB AB AB AB |H1.^...;........|
00000650: AB AB AB AB AB AB AB AB AB AB AB AB AB AB 00 77 |...............w|
00000660: 0E 8B 01 53 57 41 50 20 20 20 20 20 20 20 20 4A |...SWAP J|
00000670: 53 52 20 20 50 4F 50 00 91 0E 90 01 3A 20 20 20 |SR POP.....: |
00000680: 20 20 20 20 20 20 20 20 53 54 41 20 20 52 45 47 | STA REG|
00000690: 31 00 AD 0E 95 01 3A 20 20 20 20 20 20 20 20 20 |1.....: |
000006A0: 20 20 53 54 58 20 20 52 45 47 31 AA 31 00 C6 0E | STX REG1.1...|
000006B0: 9A 01 3A 20 20 20 20 20 20 20 20 20 20 20 4A 53 |..: JS|
000006C0: 52 20 20 50 4F 50 00 E0 0E 9F 01 3A 20 20 20 20 |R POP.....: |
000006D0: 20 20 20 20 20 20 20 53 54 41 20 20 52 45 47 32 | STA REG2|
000006E0: 00 FC 0E A4 01 3A 20 20 20 20 20 20 20 20 20 20 |.....: |
000006F0: 20 53 54 58 20 20 52 45 47 32 AA 31 00 16 0F A9 | STX REG2.1....|
00000700: 01 3A 20 20 20 20 20 20 20 20 20 20 20 4C 44 41 |.: LDA|
00000710: 20 20 52 45 47 31 00 32 0F AE 01 3A 20 20 20 20 | REG1.2...: |
00000720: 20 20 20 20 20 20 20 4C 44 58 20 20 52 45 47 31 | LDX REG1|
00000730: AA 31 00 4C 0F B3 01 3A 20 20 20 20 20 20 20 20 |.1.L...: |
00000740: 20 20 20 4A 53 52 20 20 50 55 53 48 00 66 0F B8 | JSR PUSH.f..|
00000750: 01 3A 20 20 20 20 20 20 20 20 20 20 20 4C 44 41 |.: LDA|
00000760: 20 20 52 45 47 32 00 82 0F BD 01 3A 20 20 20 20 | REG2.....: |
00000770: 20 20 20 20 20 20 20 4C 44 58 20 20 52 45 47 32 | LDX REG2|
00000780: AA 31 00 9C 0F C2 01 3A 20 20 20 20 20 20 20 20 |.1.....: |
00000790: 20 20 20 4A 4D 50 20 20 50 55 53 48 00 B8 0F C7 | JMP PUSH....|
000007A0: 01 3B AB AB AB AB AB AB AB AB AB AB AB AB AB AB |.;..............|
000007B0: AB AB AB AB AB AB AB AB 00 CF 0F CC 01 4F 56 45 |.............OVE|
000007C0: 52 20 20 20 20 20 20 20 20 44 45 43 20 20 B9 00 |R DEC ..|
000007D0: E6 0F D1 01 3A 20 20 20 20 20 20 20 20 20 20 20 |....: |
000007E0: 44 45 43 20 20 B9 00 FF 0F D6 01 3A 20 20 20 20 |DEC ......: |
000007F0: 20 20 20 20 20 20 20 4A 53 52 20 20 50 4F 50 00 | JSR POP.|
00000800: 16 10 DB 01 3A 20 20 20 20 20 20 20 20 20 20 20 |....: |
00000810: 49 4E 43 20 20 B9 00 2D 10 E0 01 3A 20 20 20 20 |INC ..-...: |
00000820: 20 20 20 20 20 20 20 49 4E 43 20 20 B9 00 44 10 | INC ..D.|
00000830: E5 01 3A 20 20 20 20 20 20 20 20 20 20 20 49 4E |..: IN|
00000840: 43 20 20 B9 00 5B 10 EA 01 3A 20 20 20 20 20 20 |C ..[...: |
00000850: 20 20 20 20 20 49 4E 43 20 20 B9 00 75 10 EF 01 | INC ..u...|
00000860: 3A 20 20 20 20 20 20 20 20 20 20 20 4A 4D 50 20 |: JMP |
00000870: 20 50 55 53 48 00 91 10 F4 01 3B AB AB AB AB AB | PUSH.....;.....|
00000880: AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB |................|
00000890: AB 00 AB 10 F9 01 52 45 54 50 4F 50 20 20 20 20 |......RETPOP |
000008A0: 20 20 4C 44 58 20 20 52 45 54 B9 00 BF 10 FE 01 | LDX RET......|
000008B0: 3A 20 20 20 20 20 20 20 20 20 20 20 44 45 58 00 |: DEX.|
000008C0: DF 10 03 02 3A 20 20 20 20 20 20 20 20 20 20 20 |....: |
000008D0: 4C 44 41 20 20 52 45 54 53 54 41 43 4B 2C 58 00 |LDA RETSTACK,X.|
000008E0: F6 10 08 02 3A 20 20 20 20 20 20 20 20 20 20 20 |....: |
000008F0: 53 54 41 20 20 4C 00 0A 11 0D 02 3A 20 20 20 20 |STA L.....: |
00000900: 20 20 20 20 20 20 20 44 45 58 00 2A 11 12 02 3A | DEX.*...:|
00000910: 20 20 20 20 20 20 20 20 20 20 20 4C 44 41 20 20 | LDA |
00000920: 52 45 54 53 54 41 43 4B 2C 58 00 41 11 17 02 3A |RETSTACK,X.A...:|
00000930: 20 20 20 20 20 20 20 20 20 20 20 53 54 41 20 20 | STA |
00000940: 48 00 5B 11 1C 02 3A 20 20 20 20 20 20 20 20 20 |H.[...: |
00000950: 20 20 53 54 58 20 20 52 45 54 B9 00 72 11 21 02 | STX RET..r.!.|
00000960: 3A 20 20 20 20 20 20 20 20 20 20 20 4C 44 41 20 |: LDA |
00000970: 20 48 00 89 11 26 02 3A 20 20 20 20 20 20 20 20 | H...&.: |
00000980: 20 20 20 4C 44 58 20 20 4C 00 9D 11 2B 02 3A 20 | LDX L...+.: |
00000990: 20 20 20 20 20 20 20 20 20 20 52 54 53 00 B9 11 | RTS...|
000009A0: 30 02 3B AB AB AB AB AB AB AB AB AB AB AB AB AB |0.;.............|
000009B0: AB AB AB AB AB AB AB AB AB 00 D0 11 35 02 52 45 |............5.RE|
000009C0: 54 50 55 53 48 20 20 20 20 20 53 54 41 20 20 48 |TPUSH STA H|
000009D0: 00 E7 11 3A 02 3A 20 20 20 20 20 20 20 20 20 20 |...:.: |
000009E0: 20 53 54 58 20 20 4C 00 01 12 3F 02 52 45 54 50 | STX L...?.RETP|
000009F0: 55 53 48 31 20 20 20 20 4C 44 58 20 20 52 45 54 |USH1 LDX RET|
00000A00: B9 00 18 12 44 02 3A 20 20 20 20 20 20 20 20 20 |....D.: |
00000A10: 20 20 4C 44 41 20 20 48 00 38 12 49 02 3A 20 20 | LDA H.8.I.: |
00000A20: 20 20 20 20 20 20 20 20 20 53 54 41 20 20 52 45 | STA RE|
00000A30: 54 53 54 41 43 4B 2C 58 00 4C 12 4E 02 3A 20 20 |TSTACK,X.L.N.: |
00000A40: 20 20 20 20 20 20 20 20 20 49 4E 58 00 63 12 53 | INX.c.S|
00000A50: 02 3A 20 20 20 20 20 20 20 20 20 20 20 4C 44 41 |.: LDA|
00000A60: 20 20 4C 00 83 12 58 02 3A 20 20 20 20 20 20 20 | L...X.: |
00000A70: 20 20 20 20 53 54 41 20 20 52 45 54 53 54 41 43 | STA RETSTAC|
00000A80: 4B 2C 58 00 97 12 5D 02 3A 20 20 20 20 20 20 20 |K,X...].: |
00000A90: 20 20 20 20 49 4E 58 00 B1 12 62 02 3A 20 20 20 | INX...b.: |
00000AA0: 20 20 20 20 20 20 20 20 53 54 58 20 20 52 45 54 | STX RET|
00000AB0: B9 00 C5 12 67 02 3A 20 20 20 20 20 20 20 20 20 |....g.: |
00000AC0: 20 20 52 54 53 00 E2 12 6C 02 3B AB AB AB AB AB | RTS...l.;.....|
00000AD0: AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB |................|
00000AE0: AB AB 00 F5 12 71 02 53 55 42 54 52 41 4B 54 49 |.....q.SUBTRAKTI|
00000AF0: 91 20 53 45 43 00 0F 13 76 02 3A 20 20 20 20 20 |. SEC...v.: |
00000B00: 20 20 20 20 20 20 4C 44 41 20 20 52 45 47 31 00 | LDA REG1.|
00000B10: 29 13 7B 02 3A 20 20 20 20 20 20 20 20 20 20 20 |).{.: |
00000B20: 53 42 43 20 20 52 45 47 32 00 43 13 80 02 3A 20 |SBC REG2.C...: |
00000B30: 20 20 20 20 20 20 20 20 20 20 53 54 41 20 20 52 | STA R|
00000B40: 45 47 33 00 5F 13 85 02 3A 20 20 20 20 20 20 20 |EG3._...: |
00000B50: 20 20 20 20 4C 44 41 20 20 52 45 47 31 AA 31 00 | LDA REG1.1.|
00000B60: 7B 13 8A 02 3A 20 20 20 20 20 20 20 20 20 20 20 |{...: |
00000B70: 53 42 43 20 20 52 45 47 32 AA 31 00 97 13 8F 02 |SBC REG2.1.....|
00000B80: 3A 20 20 20 20 20 20 20 20 20 20 20 53 54 41 20 |: STA |
00000B90: 20 52 45 47 33 AA 31 00 AB 13 94 02 3A 20 20 20 | REG3.1.....: |
00000BA0: 20 20 20 20 20 20 20 20 52 54 53 00 C8 13 99 02 | RTS.....|
00000BB0: 3B AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB |;...............|
00000BC0: AB AB AB AB AB AB AB AB 00 DB 13 9E 02 41 44 44 |.............ADD|
00000BD0: 49 54 49 91 20 20 20 20 43 4C 43 00 F5 13 A3 02 |ITI. CLC.....|
00000BE0: 3A 20 20 20 20 20 20 20 20 20 20 20 4C 44 41 20 |: LDA |
00000BF0: 20 52 45 47 31 00 0F 14 A8 02 3A 20 20 20 20 20 | REG1.....: |
00000C00: 20 20 20 20 20 20 41 44 43 20 20 52 45 47 32 00 | ADC REG2.|
00000C10: 29 14 AD 02 3A 20 20 20 20 20 20 20 20 20 20 20 |)...: |
00000C20: 53 54 41 20 20 52 45 47 33 00 45 14 B2 02 3A 20 |STA REG3.E...: |
00000C30: 20 20 20 20 20 20 20 20 20 20 4C 44 41 20 20 52 | LDA R|
00000C40: 45 47 31 AA 31 00 61 14 B7 02 3A 20 20 20 20 20 |EG1.1.a...: |
00000C50: 20 20 20 20 20 20 41 44 43 20 20 52 45 47 32 AA | ADC REG2.|
00000C60: 31 00 7D 14 BC 02 3A 20 20 20 20 20 20 20 20 20 |1.}...: |
00000C70: 20 20 53 54 41 20 20 52 45 47 33 AA 31 00 91 14 | STA REG3.1...|
00000C80: C1 02 3A 20 20 20 20 20 20 20 20 20 20 20 52 54 |..: RT|
00000C90: 53 00 AE 14 C6 02 3B AB AB AB AB AB AB AB AB AB |S.....;.........|
00000CA0: AB AB AB AB AB AB AB AB AB AB AB AB AB AB 00 C7 |................|
00000CB0: 14 CB 02 43 52 20 20 20 20 20 20 20 20 20 20 4C |...CR L|
00000CC0: 44 41 20 20 23 31 33 00 DE 14 D0 02 3A 20 20 20 |DA #13.....: |
00000CD0: 20 20 20 20 20 20 20 20 4A 4D 50 20 20 99 00 FB | JMP ...|
00000CE0: 14 D5 02 3B AB AB AB AB AB AB AB AB AB AB AB AB |...;............|
00000CF0: AB AB AB AB AB AB AB AB AB AB AB 00 14 15 DA 02 |................|
00000D00: 56 45 52 47 4C 45 49 43 48 20 20 20 4A 53 52 20 |VERGLEICH JSR |
00000D10: 20 50 4F 50 00 2E 15 DF 02 3A 20 20 20 20 20 20 | POP.....: |
00000D20: 20 20 20 20 20 53 54 58 20 20 52 45 47 31 00 4A | STX REG1.J|
00000D30: 15 E4 02 3A 20 20 20 20 20 20 20 20 20 20 20 53 |...: S|
00000D40: 54 41 20 20 52 45 47 31 AA 31 00 63 15 E9 02 3A |TA REG1.1.c...:|
00000D50: 20 20 20 20 20 20 20 20 20 20 20 4A 53 52 20 20 | JSR |
00000D60: 50 4F 50 00 7D 15 EE 02 3A 20 20 20 20 20 20 20 |POP.}...: |
00000D70: 20 20 20 20 53 54 58 20 20 52 45 47 32 00 99 15 | STX REG2...|
00000D80: F3 02 3A 20 20 20 20 20 20 20 20 20 20 20 53 54 |..: ST|
00000D90: 41 20 20 52 45 47 32 AA 31 00 B9 15 F8 02 3A 20 |A REG2.1.....: |
00000DA0: 20 20 20 20 20 20 20 20 20 20 4A 4D 50 20 20 53 | JMP S|
00000DB0: 55 42 54 52 41 4B 54 49 91 00 D6 15 FD 02 3B AB |UBTRAKTI......;.|
00000DC0: AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB |................|
00000DD0: AB AB AB AB AB AB 00 F5 15 02 03 47 4C 45 49 43 |...........GLEIC|
00000DE0: 48 20 20 20 20 20 20 4A 53 52 20 20 56 45 52 47 |H JSR VERG|
00000DF0: 4C 45 49 43 48 00 0F 16 03 03 3A 20 20 20 20 20 |LEICH.....: |
00000E00: 20 20 20 20 20 20 4C 44 41 20 20 52 45 47 33 00 | LDA REG3.|
00000E10: 2A 16 04 03 3A 20 20 20 20 20 20 20 20 20 20 20 |*...: |
00000E20: B0 41 20 20 52 45 47 33 AA 31 00 45 16 07 03 3A |.A REG3.1.E...:|
00000E30: 20 20 20 20 20 20 20 20 20 20 20 42 45 51 20 20 | BEQ |
00000E40: 57 41 48 52 31 00 5D 16 0C 03 46 41 4C 53 43 48 |WAHR1.]...FALSCH|
00000E50: 31 20 20 20 20 20 4C 44 41 20 20 23 30 00 71 16 |1 LDA #0.q.|
00000E60: 11 03 3A 20 20 20 20 20 20 20 20 20 20 20 54 41 |..: TA|
00000E70: 58 00 8B 16 16 03 3A 20 20 20 20 20 20 20 20 20 |X.....: |
00000E80: 20 20 4A 4D 50 20 20 50 55 53 48 00 A3 16 1B 03 | JMP PUSH.....|
00000E90: 57 41 48 52 31 20 20 20 20 20 20 20 4C 44 41 20 |WAHR1 LDA |
00000EA0: 20 23 30 00 BB 16 20 03 3A 20 20 20 20 20 20 20 | #0... .: |
00000EB0: 20 20 20 20 4C 44 58 20 20 23 31 00 D5 16 25 03 | LDX #1...%.|
00000EC0: 3A 20 20 20 20 20 20 20 20 20 20 20 4A 4D 50 20 |: JMP |
00000ED0: 20 50 55 53 48 00 F2 16 2A 03 3B AB AB AB AB AB | PUSH...*.;.....|
00000EE0: AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB |................|
00000EF0: AB AB 00 11 17 2F 03 47 52 4F 45 53 53 45 52 20 |...../.GROESSER |
00000F00: 20 20 20 4A 53 52 20 20 56 45 52 47 4C 45 49 43 | JSR VERGLEIC|
00000F10: 48 00 2C 17 34 03 3A 20 20 20 20 20 20 20 20 20 |H.,.4.: |
00000F20: 20 20 42 43 43 20 20 57 41 48 52 32 00 44 17 39 | BCC WAHR2.D.9|
00000F30: 03 46 41 4C 53 43 48 32 20 20 20 20 20 4C 44 41 |.FALSCH2 LDA|
00000F40: 20 20 23 30 00 58 17 3E 03 3A 20 20 20 20 20 20 | #0.X.>.: |
00000F50: 20 20 20 20 20 54 41 58 00 72 17 43 03 3A 20 20 | TAX.r.C.: |
00000F60: 20 20 20 20 20 20 20 20 20 4A 4D 50 20 20 50 55 | JMP PU|
00000F70: 53 48 00 8A 17 48 03 57 41 48 52 32 20 20 20 20 |SH...H.WAHR2 |
00000F80: 20 20 20 4C 44 41 20 20 23 30 00 A2 17 4D 03 3A | LDA #0...M.:|
00000F90: 20 20 20 20 20 20 20 20 20 20 20 4C 44 58 20 20 | LDX |
00000FA0: 23 31 00 BC 17 52 03 3A 20 20 20 20 20 20 20 20 |#1...R.: |
00000FB0: 20 20 20 4A 4D 50 20 20 50 55 53 48 00 D9 17 57 | JMP PUSH...W|
00000FC0: 03 3B AB AB AB AB AB AB AB AB AB AB AB AB AB AB |.;..............|
00000FD0: AB AB AB AB AB AB AB AB AB 00 F3 17 5C 03 4B 4C |............\.KL|
00000FE0: 45 49 4E 45 52 20 20 20 20 20 4A 53 52 20 20 53 |EINER JSR S|
00000FF0: 57 41 50 00 11 18 61 03 3A 20 20 20 20 20 20 20 |WAP...a.: |
00001000: 20 20 20 20 4A 4D 50 20 20 47 52 4F 45 53 53 45 | JMP GROESSE|
00001010: 52 00 2E 18 66 03 3B AB AB AB AB AB AB AB AB AB |R...f.;.........|
00001020: AB AB AB AB AB AB AB AB AB AB AB AB AB AB 00 47 |...............G|
00001030: 18 6B 03 4E 49 43 48 54 20 20 20 20 20 20 20 4A |.k.NICHT J|
00001040: 53 52 20 20 50 4F 50 00 5D 18 70 03 3A 20 20 20 |SR POP.].p.: |
00001050: 20 20 20 20 20 20 20 20 B0 41 20 20 4C 00 78 18 | .A L.x.|
00001060: 75 03 3A 20 20 20 20 20 20 20 20 20 20 20 42 45 |u.: BE|
00001070: 51 20 20 57 41 48 52 33 00 90 18 7A 03 46 41 4C |Q WAHR3...z.FAL|
00001080: 53 43 48 33 20 20 20 20 20 4C 44 41 20 20 23 30 |SCH3 LDA #0|
00001090: 00 A4 18 7F 03 3A 20 20 20 20 20 20 20 20 20 20 |.....: |
000010A0: 20 54 41 58 00 BE 18 84 03 3A 20 20 20 20 20 20 | TAX.....: |
000010B0: 20 20 20 20 20 4A 4D 50 20 20 50 55 53 48 00 D6 | JMP PUSH..|
000010C0: 18 89 03 57 41 48 52 33 20 20 20 20 20 20 20 4C |...WAHR3 L|
000010D0: 44 41 20 20 23 30 00 EE 18 8E 03 3A 20 20 20 20 |DA #0.....: |
000010E0: 20 20 20 20 20 20 20 4C 44 58 20 20 23 31 00 08 | LDX #1..|
000010F0: 19 93 03 3A 20 20 20 20 20 20 20 20 20 20 20 4A |...: J|
00001100: 4D 50 20 20 50 55 53 48 00 25 19 98 03 3B AB AB |MP PUSH.%...;..|
00001110: AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB |................|
00001120: AB AB AB AB AB 00 3E 19 9D 03 48 4F 4C 45 20 20 |......>...HOLE |
00001130: 20 20 20 20 20 20 4A 53 52 20 20 50 4F 50 00 58 | JSR POP.X|
00001140: 19 A2 03 3A 20 20 20 20 20 20 20 20 20 20 20 53 |...: S|
00001150: 54 58 20 20 52 45 47 31 00 74 19 A7 03 3A 20 20 |TX REG1.t...: |
00001160: 20 20 20 20 20 20 20 20 20 53 54 41 20 20 52 45 | STA RE|
00001170: 47 31 AA 31 00 8D 19 AC 03 3A 20 20 20 20 20 20 |G1.1.....: |
00001180: 20 20 20 20 20 4A 53 52 20 20 50 4F 50 00 A7 19 | JSR POP...|
00001190: B1 03 3A 20 20 20 20 20 20 20 20 20 20 20 53 54 |..: ST|
000011A0: 58 20 20 52 45 47 32 00 C3 19 B6 03 3A 20 20 20 |X REG2.....: |
000011B0: 20 20 20 20 20 20 20 20 53 54 41 20 20 52 45 47 | STA REG|
000011C0: 32 AA 31 00 D7 19 BB 03 3A 20 20 20 20 20 20 20 |2.1.....: |
000011D0: 20 20 20 20 52 54 53 00 F4 19 C0 03 3B AB AB AB | RTS.....;...|
000011E0: AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB |................|
000011F0: AB AB AB AB 00 0E 1A C5 03 55 4E 44 20 20 20 20 |.........UND |
00001200: 20 20 20 20 20 4A 53 52 20 20 48 4F 4C 45 00 28 | JSR HOLE.(|
00001210: 1A CA 03 3A 20 20 20 20 20 20 20 20 20 20 20 4C |...: L|
00001220: 44 41 20 20 52 45 47 31 00 40 1A CF 03 3A 20 20 |DA REG1.@...: |
00001230: 20 20 20 20 20 20 20 20 20 AF 20 20 52 45 47 32 | . REG2|
00001240: 00 57 1A D4 03 3A 20 20 20 20 20 20 20 20 20 20 |.W...: |
00001250: 20 53 54 41 20 20 4C 00 73 1A D9 03 3A 20 20 20 | STA L.s...: |
00001260: 20 20 20 20 20 20 20 20 4C 44 41 20 20 52 45 47 | LDA REG|
00001270: 31 AA 31 00 8D 1A DE 03 3A 20 20 20 20 20 20 20 |1.1.....: |
00001280: 20 20 20 20 AF 20 20 52 45 47 32 AA 31 00 A4 1A | . REG2.1...|
00001290: E3 03 3A 20 20 20 20 20 20 20 20 20 20 20 53 54 |..: ST|
000012A0: 41 20 20 48 00 BF 1A E8 03 3A 20 20 20 20 20 20 |A H.....: |
000012B0: 20 20 20 20 20 4A 4D 50 20 20 50 55 53 48 31 00 | JMP PUSH1.|
000012C0: DC 1A ED 03 3B AB AB AB AB AB AB AB AB AB AB AB |....;...........|
000012D0: AB AB AB AB AB AB AB AB AB AB AB AB 00 F6 1A F2 |................|
000012E0: 03 4F 44 45 52 20 20 20 20 20 20 20 20 4A 53 52 |.ODER JSR|
000012F0: 20 20 48 4F 4C 45 00 10 1B F7 03 3A 20 20 20 20 | HOLE.....: |
00001300: 20 20 20 20 20 20 20 4C 44 41 20 20 52 45 47 31 | LDA REG1|
00001310: 00 29 1B FC 03 3A 20 20 20 20 20 20 20 20 20 20 |.)...: |
00001320: 20 B0 41 20 20 52 45 47 32 00 40 1B 01 04 3A 20 | .A REG2.@...: |
00001330: 20 20 20 20 20 20 20 20 20 20 53 54 41 20 20 4C | STA L|
00001340: 00 5C 1B 06 04 3A 20 20 20 20 20 20 20 20 20 20 |.\...: |
00001350: 20 4C 44 41 20 20 52 45 47 31 AA 31 00 77 1B 0B | LDA REG1.1.w..|
00001360: 04 3A 20 20 20 20 20 20 20 20 20 20 20 B0 41 20 |.: .A |
00001370: 20 52 45 47 32 AA 31 00 8E 1B 10 04 3A 20 20 20 | REG2.1.....: |
00001380: 20 20 20 20 20 20 20 20 53 54 41 20 20 48 00 A9 | STA H..|
00001390: 1B 15 04 3A 20 20 20 20 20 20 20 20 20 20 20 4A |...: J|
000013A0: 4D 50 20 20 50 55 53 48 31 00 C6 1B 1A 04 3B AB |MP PUSH1.....;.|
000013B0: AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB |................|
000013C0: AB AB AB AB AB AB 00 E0 1B 1F 04 45 58 4F 44 45 |...........EXODE|
000013D0: 52 20 20 20 20 20 20 4A 53 52 20 20 48 4F 4C 45 |R JSR HOLE|
000013E0: 00 FA 1B 24 04 3A 20 20 20 20 20 20 20 20 20 20 |...$.: |
000013F0: 20 4C 44 41 20 20 52 45 47 31 00 13 1C 29 04 3A | LDA REG1...).:|
00001400: 20 20 20 20 20 20 20 20 20 20 20 45 B0 20 20 52 | E. R|
00001410: 45 47 32 00 2A 1C 2E 04 3A 20 20 20 20 20 20 20 |EG2.*...: |
00001420: 20 20 20 20 53 54 41 20 20 4C 00 46 1C 33 04 3A | STA L.F.3.:|
00001430: 20 20 20 20 20 20 20 20 20 20 20 4C 44 41 20 20 | LDA |
00001440: 52 45 47 31 AA 31 00 61 1C 38 04 3A 20 20 20 20 |REG1.1.a.8.: |
00001450: 20 20 20 20 20 20 20 45 B0 20 20 52 45 47 32 AA | E. REG2.|
00001460: 31 00 78 1C 3D 04 3A 20 20 20 20 20 20 20 20 20 |1.x.=.: |
00001470: 20 20 53 54 41 20 20 48 00 93 1C 42 04 3A 20 20 | STA H...B.: |
00001480: 20 20 20 20 20 20 20 20 20 4A 4D 50 20 20 50 55 | JMP PU|
00001490: 53 48 31 00 B0 1C 47 04 3B AB AB AB AB AB AB AB |SH1...G.;.......|
000014A0: AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB |................|
000014B0: 00 CA 1C 4C 04 41 44 44 20 20 20 20 20 20 20 20 |...L.ADD |
000014C0: 20 4A 53 52 20 20 48 4F 4C 45 00 E7 1C 51 04 3A | JSR HOLE...Q.:|
000014D0: 20 20 20 20 20 20 20 20 20 20 20 4A 53 52 20 20 | JSR |
000014E0: 41 44 44 49 54 49 91 00 01 1D 56 04 3A 20 20 20 |ADDITI....V.: |
000014F0: 20 20 20 20 20 20 20 20 4C 44 58 20 20 52 45 47 | LDX REG|
00001500: 33 00 1D 1D 5B 04 3A 20 20 20 20 20 20 20 20 20 |3...[.: |
00001510: 20 20 4C 44 41 20 20 52 45 47 33 AA 31 00 37 1D | LDA REG3.1.7.|
00001520: 60 04 3A 20 20 20 20 20 20 20 20 20 20 20 4A 4D |`.: JM|
00001530: 50 20 20 50 55 53 48 00 54 1D 65 04 3B AB AB AB |P PUSH.T.e.;...|
00001540: AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB |................|
00001550: AB AB AB AB 00 6E 1D 6A 04 53 55 42 20 20 20 20 |.....n.j.SUB |
00001560: 20 20 20 20 20 4A 53 52 20 20 53 57 41 50 00 88 | JSR SWAP..|
00001570: 1D 6F 04 3A 20 20 20 20 20 20 20 20 20 20 20 4A |.o.: J|
00001580: 53 52 20 20 48 4F 4C 45 00 A8 1D 74 04 3A 20 20 |SR HOLE...t.: |
00001590: 20 20 20 20 20 20 20 20 20 4A 53 52 20 20 53 55 | JSR SU|
000015A0: 42 54 52 41 4B 54 49 91 00 C2 1D 79 04 3A 20 20 |BTRAKTI....y.: |
000015B0: 20 20 20 20 20 20 20 20 20 4C 44 58 20 20 52 45 | LDX RE|
000015C0: 47 33 00 DE 1D 7E 04 3A 20 20 20 20 20 20 20 20 |G3...~.: |
000015D0: 20 20 20 4C 44 41 20 20 52 45 47 33 AA 31 00 F8 | LDA REG3.1..|
000015E0: 1D 83 04 3A 20 20 20 20 20 20 20 20 20 20 20 4A |...: J|
000015F0: 4D 50 20 20 50 55 53 48 00 15 1E 88 04 3B AB AB |MP PUSH.....;..|
00001600: AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB |................|
00001610: AB AB AB AB AB 00 2F 1E 8D 04 4D 55 4C 20 20 20 |....../...MUL |
00001620: 20 20 20 20 20 20 4A 53 52 20 20 48 4F 4C 45 00 | JSR HOLE.|
00001630: 47 1E 92 04 3A 20 20 20 20 20 20 20 20 20 20 20 |G...: |
00001640: 4C 44 59 20 20 23 30 00 61 1E 97 04 3A 20 20 20 |LDY #0.a...: |
00001650: 20 20 20 20 20 20 20 20 53 54 59 20 20 52 45 47 | STY REG|
00001660: 33 00 7D 1E 9C 04 3A 20 20 20 20 20 20 20 20 20 |3.}...: |
00001670: 20 20 53 54 59 20 20 52 45 47 33 AA 31 00 96 1E | STY REG3.1...|
00001680: A1 04 3A 20 20 20 20 20 20 20 20 20 20 20 4C 44 |..: LD|
00001690: 59 20 20 23 31 36 00 B0 1E A6 04 4C 4F 4F 50 31 |Y #16.....LOOP1|
000016A0: 36 20 20 20 20 20 20 41 53 4C 20 20 52 45 47 33 |6 ASL REG3|
000016B0: 00 CC 1E AB 04 3A 20 20 20 20 20 20 20 20 20 20 |.....: |
000016C0: 20 52 4F 4C 20 20 52 45 47 33 AA 31 00 E6 1E B0 | ROL REG3.1....|
000016D0: 04 3A 20 20 20 20 20 20 20 20 20 20 20 52 4F 4C |.: ROL|
000016E0: 20 20 52 45 47 32 00 02 1F B5 04 3A 20 20 20 20 | REG2.....: |
000016F0: 20 20 20 20 20 20 20 52 4F 4C 20 20 52 45 47 32 | ROL REG2|
00001700: AA 31 00 1C 1F BA 04 3A 20 20 20 20 20 20 20 20 |.1.....: |
00001710: 20 20 20 42 43 43 20 20 4C 41 42 32 00 30 1F BF | BCC LAB2.0..|
00001720: 04 3A 20 20 20 20 20 20 20 20 20 20 20 43 4C 43 |.: CLC|
00001730: 00 4A 1F C4 04 3A 20 20 20 20 20 20 20 20 20 20 |.J...: |
00001740: 20 4C 44 41 20 20 52 45 47 33 00 64 1F C9 04 3A | LDA REG3.d...:|
00001750: 20 20 20 20 20 20 20 20 20 20 20 41 44 43 20 20 | ADC |
00001760: 52 45 47 31 00 7E 1F CE 04 3A 20 20 20 20 20 20 |REG1.~...: |
00001770: 20 20 20 20 20 53 54 41 20 20 52 45 47 33 00 9A | STA REG3..|
00001780: 1F D3 04 3A 20 20 20 20 20 20 20 20 20 20 20 4C |...: L|
00001790: 44 41 20 20 52 45 47 33 AA 31 00 B6 1F D8 04 3A |DA REG3.1.....:|
000017A0: 20 20 20 20 20 20 20 20 20 20 20 41 44 43 20 20 | ADC |
000017B0: 52 45 47 31 AA 31 00 D2 1F DD 04 3A 20 20 20 20 |REG1.1.....: |
000017C0: 20 20 20 20 20 20 20 53 54 41 20 20 52 45 47 33 | STA REG3|
000017D0: AA 31 00 EC 1F E2 04 3A 20 20 20 20 20 20 20 20 |.1.....: |
000017E0: 20 20 20 42 43 43 20 20 4C 41 42 32 00 06 20 E7 | BCC LAB2.. .|
000017F0: 04 3A 20 20 20 20 20 20 20 20 20 20 20 49 4E 43 |.: INC|
00001800: 20 20 52 45 47 32 00 20 20 EC 04 3A 20 20 20 20 | REG2. ..: |
00001810: 20 20 20 20 20 20 20 42 4E 45 20 20 4C 41 42 32 | BNE LAB2|
00001820: 00 3C 20 F1 04 3A 20 20 20 20 20 20 20 20 20 20 |.< ..: |
00001830: 20 49 4E 43 20 20 52 45 47 32 AA 31 00 50 20 F6 | INC REG2.1.P .|
00001840: 04 4C 41 42 32 20 20 20 20 20 20 20 20 44 45 59 |.LAB2 DEY|
00001850: 00 6C 20 FB 04 3A 20 20 20 20 20 20 20 20 20 20 |.l ..: |
00001860: 20 42 4E 45 20 20 4C 4F 4F 50 31 36 00 86 20 00 | BNE LOOP16.. .|
00001870: 05 3A 20 20 20 20 20 20 20 20 20 20 20 4C 44 58 |.: LDX|
00001880: 20 20 52 45 47 33 00 A2 20 05 05 3A 20 20 20 20 | REG3.. ..: |
00001890: 20 20 20 20 20 20 20 4C 44 41 20 20 52 45 47 33 | LDA REG3|
000018A0: AA 31 00 BC 20 0A 05 3A 20 20 20 20 20 20 20 20 |.1.. ..: |
000018B0: 20 20 20 4A 4D 50 20 20 50 55 53 48 00 D9 20 0F | JMP PUSH.. .|
000018C0: 05 3B AB AB AB AB AB AB AB AB AB AB AB AB AB AB |.;..............|
000018D0: AB AB AB AB AB AB AB AB AB 00 F2 20 14 05 44 49 |........... ..DI|
000018E0: 56 49 53 49 91 20 20 20 20 4A 53 52 20 20 48 4F |VISI. JSR HO|
000018F0: 4C 45 00 0B 21 19 05 3A 20 20 20 20 20 20 20 20 |LE..!..: |
00001900: 20 20 20 4C 44 59 20 20 23 31 36 00 23 21 1E 05 | LDY #16.#!..|
00001910: 3A 20 20 20 20 20 20 20 20 20 20 20 4C 44 41 20 |: LDA |
00001920: 20 23 30 00 3D 21 23 05 3A 20 20 20 20 20 20 20 | #0.=!#.: |
00001930: 20 20 20 20 53 54 41 20 20 52 45 47 33 00 59 21 | STA REG3.Y!|
00001940: 28 05 3A 20 20 20 20 20 20 20 20 20 20 20 53 54 |(.: ST|
00001950: 41 20 20 52 45 47 33 AA 31 00 73 21 2D 05 4C 4F |A REG3.1.s!-.LO|
00001960: 4F 50 31 37 20 20 20 20 20 20 52 4F 4C 20 20 52 |OP17 ROL R|
00001970: 45 47 32 00 8F 21 32 05 3A 20 20 20 20 20 20 20 |EG2..!2.: |
00001980: 20 20 20 20 52 4F 4C 20 20 52 45 47 32 AA 31 00 | ROL REG2.1.|
00001990: A9 21 37 05 3A 20 20 20 20 20 20 20 20 20 20 20 |.!7.: |
000019A0: 52 4F 4C 20 20 52 45 47 33 00 C5 21 3C 05 3A 20 |ROL REG3..!<.: |
000019B0: 20 20 20 20 20 20 20 20 20 20 52 4F 4C 20 20 52 | ROL R|
000019C0: 45 47 33 AA 31 00 D9 21 41 05 3A 20 20 20 20 20 |EG3.1..!A.: |
000019D0: 20 20 20 20 20 20 53 45 43 00 F3 21 46 05 3A 20 | SEC..!F.: |
000019E0: 20 20 20 20 20 20 20 20 20 20 4C 44 41 20 20 52 | LDA R|
000019F0: 45 47 33 00 0D 22 4B 05 3A 20 20 20 20 20 20 20 |EG3.."K.: |
00001A00: 20 20 20 20 53 42 43 20 20 52 45 47 31 00 21 22 | SBC REG1.!"|
00001A10: 50 05 3A 20 20 20 20 20 20 20 20 20 20 20 54 41 |P.: TA|
00001A20: 58 00 3D 22 55 05 3A 20 20 20 20 20 20 20 20 20 |X.="U.: |
00001A30: 20 20 4C 44 41 20 20 52 45 47 33 AA 31 00 59 22 | LDA REG3.1.Y"|
00001A40: 5A 05 3A 20 20 20 20 20 20 20 20 20 20 20 53 42 |Z.: SB|
00001A50: 43 20 20 52 45 47 31 AA 31 00 73 22 5F 05 3A 20 |C REG1.1.s"_.: |
00001A60: 20 20 20 20 20 20 20 20 20 20 42 43 43 20 20 4C | BCC L|
00001A70: 41 42 34 00 8F 22 64 05 3A 20 20 20 20 20 20 20 |AB4.."d.: |
00001A80: 20 20 20 20 53 54 41 20 20 52 45 47 33 AA 31 00 | STA REG3.1.|
00001A90: A9 22 69 05 3A 20 20 20 20 20 20 20 20 20 20 20 |."i.: |
00001AA0: 53 54 58 20 20 52 45 47 33 00 BD 22 6E 05 4C 41 |STX REG3.."n.LA|
00001AB0: 42 34 20 20 20 20 20 20 20 20 44 45 59 00 D9 22 |B4 DEY.."|
00001AC0: 73 05 3A 20 20 20 20 20 20 20 20 20 20 20 42 4E |s.: BN|
00001AD0: 45 20 20 4C 4F 4F 50 31 37 00 F3 22 78 05 3A 20 |E LOOP17.."x.: |
00001AE0: 20 20 20 20 20 20 20 20 20 20 52 4F 4C 20 20 52 | ROL R|
00001AF0: 45 47 32 00 0F 23 7D 05 3A 20 20 20 20 20 20 20 |EG2..#}.: |
00001B00: 20 20 20 20 52 4F 4C 20 20 52 45 47 32 AA 31 00 | ROL REG2.1.|
00001B10: 23 23 82 05 3A 20 20 20 20 20 20 20 20 20 20 20 |##..: |
00001B20: 52 54 53 00 40 23 87 05 3B AB AB AB AB AB AB AB |RTS.@#..;.......|
00001B30: AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB |................|
00001B40: 00 5D 23 8C 05 44 49 56 20 20 20 20 20 20 20 20 |.]#..DIV |
00001B50: 20 4A 53 52 20 20 44 49 56 49 53 49 91 00 77 23 | JSR DIVISI..w#|
00001B60: 91 05 3A 20 20 20 20 20 20 20 20 20 20 20 4C 44 |..: LD|
00001B70: 58 20 20 52 45 47 32 00 93 23 96 05 3A 20 20 20 |X REG2..#..: |
00001B80: 20 20 20 20 20 20 20 20 4C 44 41 20 20 52 45 47 | LDA REG|
00001B90: 32 AA 31 00 AD 23 9B 05 3A 20 20 20 20 20 20 20 |2.1..#..: |
00001BA0: 20 20 20 20 4A 4D 50 20 20 50 55 53 48 00 CA 23 | JMP PUSH..#|
00001BB0: A0 05 3B AB AB AB AB AB AB AB AB AB AB AB AB AB |..;.............|
00001BC0: AB AB AB AB AB AB AB AB AB AB 00 E7 23 A5 05 4D |............#..M|
00001BD0: 4F 44 20 20 20 20 20 20 20 20 20 4A 53 52 20 20 |OD JSR |
00001BE0: 44 49 56 49 53 49 91 00 01 24 AA 05 3A 20 20 20 |DIVISI...$..: |
00001BF0: 20 20 20 20 20 20 20 20 4C 44 58 20 20 52 45 47 | LDX REG|
00001C00: 33 00 1D 24 AF 05 3A 20 20 20 20 20 20 20 20 20 |3..$..: |
00001C10: 20 20 4C 44 41 20 20 52 45 47 33 AA 31 00 37 24 | LDA REG3.1.7$|
00001C20: B4 05 3A 20 20 20 20 20 20 20 20 20 20 20 4A 4D |..: JM|
00001C30: 50 20 20 50 55 53 48 00 54 24 B9 05 3B AB AB AB |P PUSH.T$..;...|
00001C40: AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB |................|
00001C50: AB AB AB AB 00 70 24 BE 05 54 52 53 20 20 20 20 |.....p$..TRS |
00001C60: 20 20 20 20 20 4A 53 52 20 20 52 45 54 50 4F 50 | JSR RETPOP|
00001C70: 00 8A 24 C3 05 3A 20 20 20 20 20 20 20 20 20 20 |..$..: |
00001C80: 20 4A 4D 50 20 20 50 55 53 48 00 A7 24 C8 05 3B | JMP PUSH..$..;|
00001C90: AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB |................|
00001CA0: AB AB AB AB AB AB AB 00 C0 24 CD 05 54 53 52 20 |.........$..TSR |
00001CB0: 20 20 20 20 20 20 20 20 4A 53 52 20 20 50 4F 50 | JSR POP|
00001CC0: 00 DD 24 D2 05 3A 20 20 20 20 20 20 20 20 20 20 |..$..: |
00001CD0: 20 4A 4D 50 20 20 52 45 54 50 55 53 48 00 FA 24 | JMP RETPUSH..$|
00001CE0: D7 05 3B AB AB AB AB AB AB AB AB AB AB AB AB AB |..;.............|
00001CF0: AB AB AB AB AB AB AB AB AB AB 00 14 25 DC 05 44 |............%..D|
00001D00: 4F 20 20 20 20 20 20 20 20 20 20 4A 53 52 20 20 |O JSR |
00001D10: 53 57 41 50 00 2D 25 E1 05 3A 20 20 20 20 20 20 |SWAP.-%..: |
00001D20: 20 20 20 20 20 4A 53 52 20 20 54 53 52 00 46 25 | JSR TSR.F%|
00001D30: E6 05 3A 20 20 20 20 20 20 20 20 20 20 20 4A 4D |..: JM|
00001D40: 50 20 20 54 53 52 00 63 25 EB 05 3B AB AB AB AB |P TSR.c%..;....|
00001D50: AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB |................|
00001D60: AB AB AB 00 7C 25 F0 05 49 4E 44 20 20 20 20 20 |....|%..IND |
00001D70: 20 20 20 20 4A 53 52 20 20 54 52 53 00 96 25 F5 | JSR TRS..%.|
00001D80: 05 3A 20 20 20 20 20 20 20 20 20 20 20 49 4E 43 |.: INC|
00001D90: 20 20 52 45 54 B9 00 B0 25 FA 05 3A 20 20 20 20 | RET...%..: |
00001DA0: 20 20 20 20 20 20 20 49 4E 43 20 20 52 45 54 B9 | INC RET.|
00001DB0: 00 C4 25 FF 05 3A 20 20 20 20 20 20 20 20 20 20 |..%..: |
00001DC0: 20 52 54 53 00 E1 25 04 06 3B AB AB AB AB AB AB | RTS..%..;......|
00001DD0: AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB |................|
00001DE0: AB 00 FA 25 09 06 4C 4F 4F 50 31 20 20 20 20 20 |...%..LOOP1 |
00001DF0: 20 20 4A 53 52 20 20 54 52 53 00 13 26 0E 06 3A | JSR TRS..&..:|
00001E00: 20 20 20 20 20 20 20 20 20 20 20 4A 53 52 20 20 | JSR |
00001E10: 44 55 50 00 2C 26 13 06 3A 20 20 20 20 20 20 20 |DUP.,&..: |
00001E20: 20 20 20 20 4A 53 52 20 20 54 52 53 00 46 26 18 | JSR TRS.F&.|
00001E30: 06 3A 20 20 20 20 20 20 20 20 20 20 20 4A 53 52 |.: JSR|
00001E40: 20 20 53 57 41 50 00 65 26 1D 06 56 45 52 47 4C | SWAP.e&..VERGL|
00001E50: 20 20 20 20 20 20 20 4A 53 52 20 20 56 45 52 47 | JSR VERG|
00001E60: 4C 45 49 43 48 00 80 26 22 06 3A 20 20 20 20 20 |LEICH..&".: |
00001E70: 20 20 20 20 20 20 42 43 43 20 20 57 41 48 52 34 | BCC WAHR4|
00001E80: 00 9A 26 23 06 46 41 4C 53 43 48 34 20 20 20 20 |..&#.FALSCH4 |
00001E90: 20 4A 53 52 20 20 44 52 4F 50 00 B4 26 27 06 3A | JSR DROP..&'.:|
00001EA0: 20 20 20 20 20 20 20 20 20 20 20 4A 53 52 20 20 | JSR |
00001EB0: 44 52 4F 50 00 C8 26 2B 06 3A 20 20 20 20 20 20 |DROP..&+.: |
00001EC0: 20 20 20 20 20 53 45 43 00 DC 26 2C 06 3A 20 20 | SEC..&,.: |
00001ED0: 20 20 20 20 20 20 20 20 20 52 54 53 00 F6 26 31 | RTS..&1|
00001EE0: 06 57 41 48 52 34 20 20 20 20 20 20 20 49 4E 43 |.WAHR4 INC|
00001EF0: 20 20 52 45 54 B9 00 10 27 36 06 3A 20 20 20 20 | RET...'6.: |
00001F00: 20 20 20 20 20 20 20 49 4E 43 20 20 52 45 54 B9 | INC RET.|
00001F10: 00 29 27 3B 06 3A 20 20 20 20 20 20 20 20 20 20 |.)';.: |
00001F20: 20 4A 53 52 20 20 41 44 44 00 42 27 40 06 3A 20 | JSR ADD.B'@.: |
00001F30: 20 20 20 20 20 20 20 20 20 20 4A 53 52 20 20 54 | JSR T|
00001F40: 53 52 00 56 27 45 06 3A 20 20 20 20 20 20 20 20 |SR.V'E.: |
00001F50: 20 20 20 43 4C 43 00 6A 27 4A 06 3A 20 20 20 20 | CLC.j'J.: |
00001F60: 20 20 20 20 20 20 20 52 54 53 00 87 27 4F 06 3B | RTS..'O.;|
00001F70: AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB |................|
00001F80: AB AB AB AB AB AB AB 00 9F 27 54 06 4C 4F 4F 50 |.........'T.LOOP|
00001F90: 20 20 20 20 20 20 20 20 4C 44 41 20 20 23 30 00 | LDA #0.|
00001FA0: B7 27 59 06 3A 20 20 20 20 20 20 20 20 20 20 20 |.'Y.: |
00001FB0: 4C 44 58 20 20 23 31 00 D1 27 5E 06 3A 20 20 20 |LDX #1..'^.: |
00001FC0: 20 20 20 20 20 20 20 20 4A 53 52 20 20 50 55 53 | JSR PUS|
00001FD0: 48 00 EC 27 63 06 3A 20 20 20 20 20 20 20 20 20 |H..'c.: |
00001FE0: 20 20 4A 4D 50 20 20 4C 4F 4F 50 31 00 09 28 68 | JMP LOOP1..(h|
00001FF0: 06 3B AB AB AB AB AB AB AB AB AB AB AB AB AB AB |.;..............|
00002000: AB AB AB AB AB AB AB AB AB 00 22 28 6D 06 4C 4F |.........."(m.LO|
00002010: 4F 50 50 4C 55 53 20 20 20 20 4A 53 52 20 20 50 |OPPLUS JSR P|
00002020: 4F 50 00 39 28 72 06 3A 20 20 20 20 20 20 20 20 |OP.9(r.: |
00002030: 20 20 20 49 4E 43 20 20 B9 00 50 28 77 06 3A 20 | INC ..P(w.: |
00002040: 20 20 20 20 20 20 20 20 20 20 49 4E 43 20 20 B9 | INC .|
00002050: 00 67 28 7C 06 3A 20 20 20 20 20 20 20 20 20 20 |.g(|.: |
00002060: 20 4C 44 41 20 20 48 00 82 28 81 06 3A 20 20 20 | LDA H..(..: |
00002070: 20 20 20 20 20 20 20 20 42 50 4C 20 20 4C 4F 4F | BPL LOO|
00002080: 50 31 00 9B 28 86 06 3A 20 20 20 20 20 20 20 20 |P1..(..: |
00002090: 20 20 20 4A 53 52 20 20 54 52 53 00 B4 28 8B 06 | JSR TRS..(..|
000020A0: 3A 20 20 20 20 20 20 20 20 20 20 20 4A 53 52 20 |: JSR |
000020B0: 20 44 55 50 00 CD 28 90 06 3A 20 20 20 20 20 20 | DUP..(..: |
000020C0: 20 20 20 20 20 4A 53 52 20 20 54 52 53 00 E8 28 | JSR TRS..(|
000020D0: 95 06 3A 20 20 20 20 20 20 20 20 20 20 20 4A 4D |..: JM|
000020E0: 50 20 20 56 45 52 47 4C 00 05 29 9A 06 3B AB AB |P VERGL..)..;..|
000020F0: AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB |................|
00002100: AB AB AB AB AB 00 1D 29 9F 06 8B 20 20 20 20 20 |.......)... |
00002110: 20 20 20 20 20 4A 53 52 20 20 50 4F 50 00 33 29 | JSR POP.3)|
00002120: A4 06 3A 20 20 20 20 20 20 20 20 20 20 20 B0 41 |..: .A|
00002130: 20 20 4C 00 4D 29 A9 06 3A 20 20 20 20 20 20 20 | L.M)..: |
00002140: 20 20 20 20 42 45 51 20 20 4E 45 49 4E 00 61 29 | BEQ NEIN.a)|
00002150: AE 06 4A 41 20 20 20 20 20 20 20 20 20 20 53 45 |..JA SE|
00002160: 43 00 75 29 B3 06 3A 20 20 20 20 20 20 20 20 20 |C.u)..: |
00002170: 20 20 52 54 53 00 89 29 B8 06 4E 45 49 4E 20 20 | RTS..)..NEIN |
00002180: 20 20 20 20 20 20 43 4C 43 00 9D 29 BD 06 3A 20 | CLC..)..: |
00002190: 20 20 20 20 20 20 20 20 20 20 52 54 53 00 BA 29 | RTS..)|
000021A0: C2 06 3B AB AB AB AB AB AB AB AB AB AB AB AB AB |..;.............|
000021B0: AB AB AB AB AB AB AB AB AB AB 00 D3 29 C7 06 45 |............)..E|
000021C0: 4D 49 54 20 20 20 20 20 20 20 20 4A 53 52 20 20 |MIT JSR |
000021D0: 50 4F 50 00 E7 29 CC 06 3A 20 20 20 20 20 20 20 |POP..)..: |
000021E0: 20 20 20 20 54 58 41 00 FE 29 D1 06 3A 20 20 20 | TXA..)..: |
000021F0: 20 20 20 20 20 20 20 20 4A 4D 50 20 20 99 00 1B | JMP ...|
00002200: 2A D6 06 3B AB AB AB AB AB AB AB AB AB AB AB AB |*..;............|
00002210: AB AB AB AB AB AB AB AB AB AB AB 00 34 2A DB 06 |............4*..|
00002220: A1 20 20 20 20 20 20 20 20 20 4A 53 52 20 20 24 |. JSR $|
00002230: 45 41 38 37 00 4E 2A E0 06 3A 20 20 20 20 20 20 |EA87.N*..: |
00002240: 20 20 20 20 20 43 50 58 20 20 23 32 35 35 00 68 | CPX #255.h|
00002250: 2A E5 06 3A 20 20 20 20 20 20 20 20 20 20 20 42 |*..: B|
00002260: 45 51 20 20 4E 55 4C 4C 00 81 2A E6 06 3A 20 20 |EQ NULL..*..: |
00002270: 20 20 20 20 20 20 20 20 20 43 50 58 20 20 23 31 | CPX #1|
00002280: 33 00 9C 2A E7 06 3A 20 20 20 20 20 20 20 20 20 |3..*..: |
00002290: 20 20 42 43 53 20 20 4E 91 55 4C 4C 00 B6 2A EA | BCS N.ULL..*.|
000022A0: 06 4E 55 4C 4C 20 20 20 20 20 20 20 20 4C 44 58 |.NULL LDX|
000022B0: 20 20 23 24 30 30 00 CF 2A EF 06 4E 91 55 4C 4C | #$00..*..N.ULL|
000022C0: 20 20 20 20 20 20 4C 44 41 20 20 23 24 30 30 00 | LDA #$00.|
000022D0: E9 2A F4 06 3A 20 20 20 20 20 20 20 20 20 20 20 |.*..: |
000022E0: 4A 4D 50 20 20 50 55 53 48 00 06 2B F9 06 3B AB |JMP PUSH..+..;.|
000022F0: AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB |................|
00002300: AB AB AB AB AB AB 00 1D 2B FE 06 4B 45 59 20 20 |........+..KEY |
00002310: 20 20 20 20 20 20 20 4A 53 52 20 20 A1 00 36 2B | JSR ..6+|
00002320: 03 07 3A 20 20 20 20 20 20 20 20 20 20 20 4A 53 |..: JS|
00002330: 52 20 20 44 55 50 00 4D 2B 08 07 3A 20 20 20 20 |R DUP.M+..: |
00002340: 20 20 20 20 20 20 20 4A 53 52 20 20 8B 00 65 2B | JSR ..e+|
00002350: 0D 07 3A 20 20 20 20 20 20 20 20 20 20 20 42 43 |..: BC|
00002360: 53 20 20 82 35 00 7F 2B 12 07 3A 20 20 20 20 20 |S .5..+..: |
00002370: 20 20 20 20 20 20 4A 53 52 20 20 44 52 4F 50 00 | JSR DROP.|
00002380: 98 2B 17 07 3A 20 20 20 20 20 20 20 20 20 20 20 |.+..: |
00002390: 4A 4D 50 20 20 4B 45 59 00 A9 2B 1C 07 82 35 20 |JMP KEY..+...5 |
000023A0: 20 20 20 20 20 20 52 54 53 00 C6 2B 21 07 3B AB | RTS..+!.;.|
000023B0: AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB |................|
000023C0: AB AB AB AB AB AB 00 DD 2B 26 07 50 55 54 5A 45 |........+&.PUTZE|
000023D0: 49 4C 45 20 20 20 20 53 54 58 20 20 4C 00 F4 2B |ILE STX L..+|
000023E0: 2B 07 3A 20 20 20 20 20 20 20 20 20 20 20 53 54 |+.: ST|
000023F0: 41 20 20 48 00 0C 2C 30 07 3A 20 20 20 20 20 20 |A H..,0.: |
00002400: 20 20 20 20 20 4C 44 59 20 20 23 30 00 28 2C 35 | LDY #0.(,5|
00002410: 07 4C 4F 4F 50 50 55 54 20 20 20 20 20 4C 44 41 |.LOOPPUT LDA|
00002420: 20 20 28 48 4C 29 2C 59 00 42 2C 3A 07 3A 20 20 | (HL),Y.B,:.: |
00002430: 20 20 20 20 20 20 20 20 20 42 45 51 20 20 80 50 | BEQ .P|
00002440: 55 54 00 59 2C 3F 07 3A 20 20 20 20 20 20 20 20 |UT.Y,?.: |
00002450: 20 20 20 4A 53 52 20 20 99 00 6D 2C 44 07 3A 20 | JSR ..m,D.: |
00002460: 20 20 20 20 20 20 20 20 20 20 49 4E 59 00 8A 2C | INY..,|
00002470: 49 07 3A 20 20 20 20 20 20 20 20 20 20 20 42 4E |I.: BN|
00002480: 45 20 20 4C 4F 4F 50 50 55 54 00 9C 2C 4E 07 80 |E LOOPPUT..,N..|
00002490: 50 55 54 20 20 20 20 20 20 52 54 53 00 B9 2C 53 |PUT RTS..,S|
000024A0: 07 3B AB AB AB AB AB AB AB AB AB AB AB AB AB AB |.;..............|
000024B0: AB AB AB AB AB AB AB AB AB 00 D2 2C 58 07 54 59 |...........,X.TY|
000024C0: 50 45 20 20 20 20 20 20 20 20 4A 53 52 20 20 50 |PE JSR P|
000024D0: 4F 50 00 EB 2C 5D 07 3A 20 20 20 20 20 20 20 20 |OP..,].: |
000024E0: 20 20 20 53 54 58 20 20 24 46 37 00 04 2D 62 07 | STX $F7..-b.|
000024F0: 3A 20 20 20 20 20 20 20 20 20 20 20 4A 53 52 20 |: JSR |
00002500: 20 50 4F 50 00 1C 2D 67 07 3A 20 20 20 20 20 20 | POP..-g.: |
00002510: 20 20 20 20 20 4C 44 59 20 20 23 30 00 38 2D 6C | LDY #0.8-l|
00002520: 07 4C 4F 4F 50 54 59 50 45 20 20 20 20 4C 44 41 |.LOOPTYPE LDA|
00002530: 20 20 28 48 4C 29 2C 59 00 4F 2D 71 07 3A 20 20 | (HL),Y.O-q.: |
00002540: 20 20 20 20 20 20 20 20 20 4A 53 52 20 20 99 00 | JSR ..|
00002550: 63 2D 76 07 3A 20 20 20 20 20 20 20 20 20 20 20 |c-v.: |
00002560: 49 4E 59 00 7C 2D 7B 07 3A 20 20 20 20 20 20 20 |INY.|-{.: |
00002570: 20 20 20 20 43 50 59 20 20 24 46 37 00 9A 2D 80 | CPY $F7..-.|
00002580: 07 3A 20 20 20 20 20 20 20 20 20 20 20 42 4E 45 |.: BNE|
00002590: 20 20 4C 4F 4F 50 54 59 50 45 00 AE 2D 85 07 3A | LOOPTYPE..-..:|
000025A0: 20 20 20 20 20 20 20 20 20 20 20 52 54 53 00 CB | RTS..|
000025B0: 2D 8A 07 3B AB AB AB AB AB AB AB AB AB AB AB AB |-..;............|
000025C0: AB AB AB AB AB AB AB AB AB AB AB 00 E2 2D 8F 07 |.............-..|
000025D0: BD 45 43 54 20 20 20 20 20 20 4A 53 52 20 20 50 |.ECT JSR P|
000025E0: 4F 50 00 FB 2D 94 07 3A 20 20 20 20 20 20 20 20 |OP..-..: |
000025F0: 20 20 20 53 54 58 20 20 24 46 39 00 14 2E 99 07 | STX $F9.....|
00002600: 3A 20 20 20 20 20 20 20 20 20 20 20 4A 53 52 20 |: JSR |
00002610: 20 50 4F 50 00 2D 2E 9E 07 3A 20 20 20 20 20 20 | POP.-...: |
00002620: 20 20 20 20 20 53 54 58 20 20 24 46 37 00 46 2E | STX $F7.F.|
00002630: A3 07 3A 20 20 20 20 20 20 20 20 20 20 20 53 54 |..: ST|
00002640: 41 20 20 24 46 38 00 5E 2E A8 07 3A 20 20 20 20 |A $F8.^...: |
00002650: 20 20 20 20 20 20 20 4C 44 58 20 20 23 30 00 76 | LDX #0.v|
00002660: 2E AD 07 3A 20 20 20 20 20 20 20 20 20 20 20 4C |...: L|
00002670: 44 59 20 20 23 30 00 91 2E B2 07 4C 4F 4F 50 45 |DY #0.....LOOPE|
00002680: 58 20 20 20 20 20 20 4A 53 52 20 20 24 46 46 43 |X JSR $FFC|
00002690: 46 00 AE 2E B7 07 3A 20 20 20 20 20 20 20 20 20 |F.....: |
000026A0: 20 20 53 54 41 20 20 28 24 46 37 29 2C 59 00 C7 | STA ($F7),Y..|
000026B0: 2E BC 07 3A 20 20 20 20 20 20 20 20 20 20 20 43 |...: C|
000026C0: 4D 50 20 20 23 31 33 00 E0 2E C1 07 3A 20 20 20 |MP #13.....: |
000026D0: 20 20 20 20 20 20 20 20 42 45 51 20 20 80 45 58 | BEQ .EX|
000026E0: 00 F4 2E C6 07 3A 20 20 20 20 20 20 20 20 20 20 |.....: |
000026F0: 20 49 4E 58 00 08 2F CB 07 3A 20 20 20 20 20 20 | INX../..: |
00002700: 20 20 20 20 20 49 4E 59 00 21 2F D0 07 3A 20 20 | INY.!/..: |
00002710: 20 20 20 20 20 20 20 20 20 43 50 59 20 20 24 46 | CPY $F|
00002720: 39 00 3D 2F D5 07 3A 20 20 20 20 20 20 20 20 20 |9.=/..: |
00002730: 20 20 42 4E 45 20 20 4C 4F 4F 50 45 58 00 4F 2F | BNE LOOPEX.O/|
00002740: DA 07 80 45 58 20 20 20 20 20 20 20 52 54 53 00 |...EX RTS.|
00002750: 6C 2F DF 07 3B AB AB AB AB AB AB AB AB AB AB AB |l/..;...........|
00002760: AB AB AB AB AB AB AB AB AB AB AB AB 00 83 2F E4 |............../.|
00002770: 07 44 45 50 54 48 20 20 20 20 20 20 20 4C 44 41 |.DEPTH LDA|
00002780: 20 20 B9 00 9A 2F E9 07 3A 20 20 20 20 20 20 20 | .../..: |
00002790: 20 20 20 20 4C 53 52 20 20 41 00 AE 2F EE 07 3A | LSR A../..:|
000027A0: 20 20 20 20 20 20 20 20 20 20 20 54 41 58 00 C6 | TAX..|
000027B0: 2F F3 07 3A 20 20 20 20 20 20 20 20 20 20 20 4C |/..: L|
000027C0: 44 41 20 20 23 30 00 E0 2F F8 07 3A 20 20 20 20 |DA #0../..: |
000027D0: 20 20 20 20 20 20 20 4A 4D 50 20 20 50 55 53 48 | JMP PUSH|
000027E0: 00 FD 2F FD 07 3B AB AB AB AB AB AB AB AB AB AB |../..;..........|
000027F0: AB AB AB AB AB AB AB AB AB AB AB AB AB 00 13 30 |...............0|
00002800: 02 08 44 97 20 20 20 20 20 20 20 4A 53 52 20 20 |..D. JSR |
00002810: 50 4F 50 00 2C 30 07 08 3A 20 20 20 20 20 20 20 |POP.,0..: |
00002820: 20 20 20 20 53 54 58 20 20 24 46 37 00 45 30 0C | STX $F7.E0.|
00002830: 08 3A 20 20 20 20 20 20 20 20 20 20 20 53 54 41 |.: STA|
00002840: 20 20 24 46 38 00 5E 30 11 08 3A 20 20 20 20 20 | $F8.^0..: |
00002850: 20 20 20 20 20 20 4A 53 52 20 20 50 4F 50 00 76 | JSR POP.v|
00002860: 30 16 08 3A 20 20 20 20 20 20 20 20 20 20 20 4C |0..: L|
00002870: 44 59 20 20 23 31 00 93 30 1B 08 3A 20 20 20 20 |DY #1..0..: |
00002880: 20 20 20 20 20 20 20 53 54 41 20 20 28 24 46 37 | STA ($F7|
00002890: 29 2C 59 00 A7 30 20 08 3A 20 20 20 20 20 20 20 |),Y..0 .: |
000028A0: 20 20 20 20 54 58 41 00 BB 30 25 08 3A 20 20 20 | TXA..0%.: |
000028B0: 20 20 20 20 20 20 20 20 44 45 59 00 D8 30 2A 08 | DEY..0*.|
000028C0: 3A 20 20 20 20 20 20 20 20 20 20 20 53 54 41 20 |: STA |
000028D0: 20 28 24 46 37 29 2C 59 00 EC 30 2F 08 3A 20 20 | ($F7),Y..0/.: |
000028E0: 20 20 20 20 20 20 20 20 20 52 54 53 00 08 31 34 | RTS..14|
000028F0: 08 3B AB AB AB AB AB AB AB AB AB AB AB AB AB AB |.;..............|
00002900: AB AB AB AB AB AB AB AB 00 1E 31 39 08 97 20 20 |..........19.. |
00002910: 20 20 20 20 20 20 4A 53 52 20 20 50 4F 50 00 37 | JSR POP.7|
00002920: 31 3E 08 3A 20 20 20 20 20 20 20 20 20 20 20 53 |1>.: S|
00002930: 54 58 20 20 24 46 37 00 50 31 43 08 3A 20 20 20 |TX $F7.P1C.: |
00002940: 20 20 20 20 20 20 20 20 53 54 41 20 20 24 46 38 | STA $F8|
00002950: 00 69 31 48 08 3A 20 20 20 20 20 20 20 20 20 20 |.i1H.: |
00002960: 20 4A 53 52 20 20 50 4F 50 00 81 31 4D 08 3A 20 | JSR POP..1M.: |
00002970: 20 20 20 20 20 20 20 20 20 20 4C 44 59 20 20 23 | LDY #|
00002980: 30 00 95 31 52 08 3A 20 20 20 20 20 20 20 20 20 |0..1R.: |
00002990: 20 20 54 58 41 00 B2 31 57 08 3A 20 20 20 20 20 | TXA..1W.: |
000029A0: 20 20 20 20 20 20 53 54 41 20 20 28 24 46 37 29 | STA ($F7)|
000029B0: 2C 59 00 C6 31 5C 08 3A 20 20 20 20 20 20 20 20 |,Y..1\.: |
000029C0: 20 20 20 52 54 53 00 E2 31 61 08 3B AB AB AB AB | RTS..1a.;....|
000029D0: AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB |................|
000029E0: AB AB 00 F8 31 66 08 44 C2 20 20 20 20 20 20 20 |....1f.D. |
000029F0: 4A 53 52 20 20 50 4F 50 00 11 32 6B 08 3A 20 20 |JSR POP..2k.: |
00002A00: 20 20 20 20 20 20 20 20 20 53 54 58 20 20 24 46 | STX $F|
00002A10: 37 00 2A 32 70 08 3A 20 20 20 20 20 20 20 20 20 |7.*2p.: |
00002A20: 20 20 53 54 41 20 20 24 46 38 00 42 32 75 08 3A | STA $F8.B2u.:|
00002A30: 20 20 20 20 20 20 20 20 20 20 20 4C 44 59 20 20 | LDY |
00002A40: 23 30 00 5F 32 7A 08 3A 20 20 20 20 20 20 20 20 |#0._2z.: |
00002A50: 20 20 20 4C 44 41 20 20 28 24 46 37 29 2C 59 00 | LDA ($F7),Y.|
00002A60: 73 32 7F 08 3A 20 20 20 20 20 20 20 20 20 20 20 |s2..: |
00002A70: 54 41 58 00 87 32 84 08 3A 20 20 20 20 20 20 20 |TAX..2..: |
00002A80: 20 20 20 20 49 4E 59 00 A4 32 89 08 3A 20 20 20 | INY..2..: |
00002A90: 20 20 20 20 20 20 20 20 4C 44 41 20 20 28 24 46 | LDA ($F|
00002AA0: 37 29 2C 59 00 BE 32 8E 08 3A 20 20 20 20 20 20 |7),Y..2..: |
00002AB0: 20 20 20 20 20 4A 4D 50 20 20 50 55 53 48 00 DA | JMP PUSH..|
00002AC0: 32 93 08 3B AB AB AB AB AB AB AB AB AB AB AB AB |2..;............|
00002AD0: AB AB AB AB AB AB AB AB AB AB 00 F0 32 98 08 C2 |............2...|
00002AE0: 20 20 20 20 20 20 20 20 4A 53 52 20 20 50 4F 50 | JSR POP|
00002AF0: 00 09 33 9D 08 3A 20 20 20 20 20 20 20 20 20 20 |..3..: |
00002B00: 20 53 54 58 20 20 24 46 37 00 22 33 A2 08 3A 20 | STX $F7."3..: |
00002B10: 20 20 20 20 20 20 20 20 20 20 53 54 41 20 20 24 | STA $|
00002B20: 46 38 00 3A 33 A7 08 3A 20 20 20 20 20 20 20 20 |F8.:3..: |
00002B30: 20 20 20 4C 44 59 20 20 23 30 00 57 33 AC 08 3A | LDY #0.W3..:|
00002B40: 20 20 20 20 20 20 20 20 20 20 20 4C 44 41 20 20 | LDA |
00002B50: 28 24 46 37 29 2C 59 00 6B 33 B1 08 3A 20 20 20 |($F7),Y.k3..: |
00002B60: 20 20 20 20 20 20 20 20 54 41 58 00 83 33 B6 08 | TAX..3..|
00002B70: 3A 20 20 20 20 20 20 20 20 20 20 20 4C 44 41 20 |: LDA |
00002B80: 20 23 30 00 9D 33 BB 08 3A 20 20 20 20 20 20 20 | #0..3..: |
00002B90: 20 20 20 20 4A 4D 50 20 20 50 55 53 48 00 B9 33 | JMP PUSH..3|
00002BA0: C0 08 3B AB AB AB AB AB AB AB AB AB AB AB AB AB |..;.............|
00002BB0: AB AB AB AB AB AB AB AB AB 00 D2 33 C5 08 43 41 |...........3..CA|
00002BC0: 4C 4C 20 20 20 20 20 20 20 20 4A 53 52 20 20 50 |LL JSR P|
00002BD0: 4F 50 00 EB 33 C6 08 3A 20 20 20 20 20 20 20 20 |OP..3..: |
00002BE0: 20 20 20 4C 44 41 20 20 37 38 30 00 04 34 C7 08 | LDA 780..4..|
00002BF0: 3A 20 20 20 20 20 20 20 20 20 20 20 4C 44 58 20 |: LDX |
00002C00: 20 37 38 31 00 1D 34 C8 08 3A 20 20 20 20 20 20 | 781..4..: |
00002C10: 20 20 20 20 20 4C 44 59 20 20 37 38 32 00 37 34 | LDY 782.74|
00002C20: CA 08 3A 20 20 20 20 20 20 20 20 20 20 20 4A 4D |..: JM|
00002C30: 50 20 20 28 48 4C 29 00 53 34 CF 08 3B AB AB AB |P (HL).S4..;...|
00002C40: AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB |................|
00002C50: AB AB AB 00 6C 34 D4 08 50 49 43 4B 20 20 20 20 |....l4..PICK |
00002C60: 20 20 20 20 4A 53 52 20 20 50 4F 50 00 83 34 D9 | JSR POP..4.|
00002C70: 08 3A 20 20 20 20 20 20 20 20 20 20 20 4C 44 59 |.: LDY|
00002C80: 20 20 B9 00 9D 34 DE 08 3A 20 20 20 20 20 20 20 | ...4..: |
00002C90: 20 20 20 20 53 54 59 20 20 52 45 47 31 00 B1 34 | STY REG1..4|
00002CA0: E3 08 3A 20 20 20 20 20 20 20 20 20 20 20 54 58 |..: TX|
00002CB0: 41 00 C8 34 E8 08 3A 20 20 20 20 20 20 20 20 20 |A..4..: |
00002CC0: 20 20 41 53 4C 20 20 41 00 DF 34 ED 08 3A 20 20 | ASL A..4..: |
00002CD0: 20 20 20 20 20 20 20 20 20 53 54 41 20 20 B9 00 | STA ..|
00002CE0: F8 34 F2 08 3A 20 20 20 20 20 20 20 20 20 20 20 |.4..: |
00002CF0: 4A 53 52 20 20 50 4F 50 00 12 35 FC 08 3A 20 20 |JSR POP..5..: |
00002D00: 20 20 20 20 20 20 20 20 20 4C 44 59 20 20 52 45 | LDY RE|
00002D10: 47 31 00 29 35 01 09 3A 20 20 20 20 20 20 20 20 |G1.)5..: |
00002D20: 20 20 20 53 54 59 20 20 B9 00 43 35 08 09 3A 20 | STY ..C5..: |
00002D30: 20 20 20 20 20 20 20 20 20 20 4A 4D 50 20 20 50 | JMP P|
00002D40: 55 53 48 00 5F 35 09 09 3B AB AB AB AB AB AB AB |USH._5..;.......|
00002D50: AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB 00 |................|
00002D60: 78 35 0B 09 52 4F 54 20 20 20 20 20 20 20 20 20 |x5..ROT |
00002D70: 4A 53 52 20 20 50 4F 50 00 92 35 10 09 3A 20 20 |JSR POP..5..: |
00002D80: 20 20 20 20 20 20 20 20 20 53 54 58 20 20 52 45 | STX RE|
00002D90: 47 31 00 AE 35 15 09 3A 20 20 20 20 20 20 20 20 |G1..5..: |
00002DA0: 20 20 20 53 54 41 20 20 52 45 47 31 AA 31 00 C7 | STA REG1.1..|
00002DB0: 35 1A 09 3A 20 20 20 20 20 20 20 20 20 20 20 4A |5..: J|
00002DC0: 53 52 20 20 50 4F 50 00 E1 35 1F 09 3A 20 20 20 |SR POP..5..: |
00002DD0: 20 20 20 20 20 20 20 20 53 54 58 20 20 52 45 47 | STX REG|
00002DE0: 32 00 FD 35 24 09 3A 20 20 20 20 20 20 20 20 20 |2..5$.: |
00002DF0: 20 20 53 54 41 20 20 52 45 47 32 AA 31 00 16 36 | STA REG2.1..6|
00002E00: 29 09 3A 20 20 20 20 20 20 20 20 20 20 20 4A 53 |).: JS|
00002E10: 52 20 20 50 4F 50 00 30 36 2E 09 3A 20 20 20 20 |R POP.06..: |
00002E20: 20 20 20 20 20 20 20 53 54 58 20 20 52 45 47 33 | STX REG3|
00002E30: 00 4C 36 33 09 3A 20 20 20 20 20 20 20 20 20 20 |.L63.: |
00002E40: 20 53 54 41 20 20 52 45 47 33 AA 31 00 66 36 38 | STA REG3.1.f68|
00002E50: 09 3A 20 20 20 20 20 20 20 20 20 20 20 4C 44 58 |.: LDX|
00002E60: 20 20 52 45 47 32 00 82 36 3D 09 3A 20 20 20 20 | REG2..6=.: |
00002E70: 20 20 20 20 20 20 20 4C 44 41 20 20 52 45 47 32 | LDA REG2|
00002E80: AA 31 00 9C 36 42 09 3A 20 20 20 20 20 20 20 20 |.1..6B.: |
00002E90: 20 20 20 4A 53 52 20 20 50 55 53 48 00 B6 36 47 | JSR PUSH..6G|
00002EA0: 09 3A 20 20 20 20 20 20 20 20 20 20 20 4C 44 58 |.: LDX|
00002EB0: 20 20 52 45 47 31 00 D2 36 4C 09 3A 20 20 20 20 | REG1..6L.: |
00002EC0: 20 20 20 20 20 20 20 4C 44 41 20 20 52 45 47 31 | LDA REG1|
00002ED0: AA 31 00 EC 36 51 09 3A 20 20 20 20 20 20 20 20 |.1..6Q.: |
00002EE0: 20 20 20 4A 53 52 20 20 50 55 53 48 00 06 37 56 | JSR PUSH..7V|
00002EF0: 09 3A 20 20 20 20 20 20 20 20 20 20 20 4C 44 58 |.: LDX|
00002F00: 20 20 52 45 47 33 00 22 37 5B 09 3A 20 20 20 20 | REG3."7[.: |
00002F10: 20 20 20 20 20 20 20 4C 44 41 20 20 52 45 47 33 | LDA REG3|
00002F20: AA 31 00 3C 37 60 09 3A 20 20 20 20 20 20 20 20 |.1.<7`.: |
00002F30: 20 20 20 4A 4D 50 20 20 50 55 53 48 00 58 37 65 | JMP PUSH.X7e|
00002F40: 09 3B AB AB AB AB AB AB AB AB AB AB AB AB AB AB |.;..............|
00002F50: AB AB AB AB AB AB AB AB 00 70 37 6A 09 93 20 20 |.........p7j.. |
00002F60: 20 20 20 20 20 20 4A 53 52 20 20 24 41 45 46 44 | JSR $AEFD|
00002F70: 00 8B 37 6F 09 3A 20 20 20 20 20 20 20 20 20 20 |..7o.: |
00002F80: 20 4A 53 52 20 20 24 45 31 44 34 00 A3 37 74 09 | JSR $E1D4..7t.|
00002F90: 3A 20 20 20 20 20 20 20 20 20 20 20 4C 44 41 20 |: LDA |
00002FA0: 20 23 31 00 BC 37 79 09 3A 20 20 20 20 20 20 20 | #1..7y.: |
00002FB0: 20 20 20 20 53 54 41 20 20 24 42 39 00 D4 37 7E | STA $B9..7~|
00002FC0: 09 3A 20 20 20 20 20 20 20 20 20 20 20 4C 44 41 |.: LDA|
00002FD0: 20 20 23 30 00 EF 37 83 09 3A 20 20 20 20 20 20 | #0..7..: |
00002FE0: 20 20 20 20 20 4A 4D 50 20 20 24 46 46 44 35 00 | JMP $FFD5.|
00002FF0: 0B 38 88 09 3B AB AB AB AB AB AB AB AB AB AB AB |.8..;...........|
00003000: AB AB AB AB AB AB AB AB AB AB AB 00 32 38 80 25 |............28.%|
00003010: 3A 20 20 20 20 20 20 20 20 20 20 20 2E 53 53 54 |: .SST|
00003020: 20 38 2C 32 2C 22 40 3A 4C 41 42 45 4C 2C 53 2C | 8,2,"@:LABEL,S,|
00003030: 57 22 00 45 38 8A 25 3A 20 20 20 20 20 20 20 20 |W".E8.%: |
00003040: 20 20 20 2E 80 00 00 00 5D | .....] |
....(..1,8,15,"S:FORTH.VOC": 1.5.2..1,8,
1,"FORTH.VOC".;.<.:.A.F.:.[.D.:
. 9.4096.S.I.: .OPT OO...N.
STACK . $CF00...S.RETSTACK
. $CE00.B.X.. . $0002...Z.R
ET. . $00FC...}.L .
$00FD.....H . $00FE.,...HL
. $00FD.C.... . $F
FD2.^...: .. $C000.W...REG1
.. ..2.....REG2 .. ..2
.....REG3 .. ..2.E...;.........
..................CLS LDA #".".
.. .: JMP ......;............
...........+...SHOW JSR POP.D...
: STA $62.]...: STX
$63.W...: LDX #$90.....:
LDA $62...C.: BMI MI
NUS.E.H.PLUS LDA #" "...M.:
JSR ....R.: SEC...W.:
JMP $BDD4.%...MINUS LDA
#"-".<...: JSR ..P...:
CLC.K...: JMP $BDD4.....
;...........................PUSH
STA H.....: STX L.L...PUSH1
LDX ......: LDA H.....
: STA STACK,X.....:
INX.+...: LDA L.H...:
STA STACK,X.\...: INX.S."
.: STX ....'.: RTS.
..,.;.........................1.POP
LDX ..N.6.: DEX...;.:
LDA STACK,X...@.: STA
L...E.: DEX.3.J.: L
DA STACK,X.J.O.: STA H.A.T.:
STX ..X.Y.: LDA H
...^.: LDX L...C.:
RTS...H.;.......................X.M.DROP
JMP POP...R.;..................
.......W.DUP JSR POP.'.|.:
JSR PUSH.B...: JMP PUS
H1.^...;.......................W...SWAP
JSR POP.....: STA REG
1.....: STX REG1.1.F...:
JSR POP.....: STA REG2
.....: STX REG2.1.....:
LDA REG1.2...: LDX REG1
.1.L...: JSR PUSH.F...:
LDA REG2.....: LDX REG2
.1...B.: JMP PUSH...G.;......
.................O.L.OVER DEC ..
..Q.: DEC ....V.: J
SR POP.....: INC ..-...:
INC ..D...: INC ..[..
.: INC ..U...: JMP
PUSH.....;...........................RE
TPOP LDX RET......: DEX.
....: LDA RETSTACK,X.....:
STA L.....: DEX.*...:
LDA RETSTACK,X.A...:
STA H.[...: STX RET..R.!.
: LDA H...&.: LDX
L...+.: RTS...0.;.............
..........P.5.RETPUSH STA H...:.:
STX L...?.RETPUSH1 LDX RET
....D.: LDA H.8.I.:
STA RETSTACK,X.L.N.: INX.C.S
.: LDA L...X.: STA
RETSTACK,X...].: INX...B.:
STX RET..E.G.: RTS...
L.;..........................Q.SUBTRAKTI
. SEC...V.: LDA REG1.).{.:
SBC REG2.C...: STA R
EG3._...: LDA REG1.1.{...:
SBC REG2.1.....: STA
REG3.1.....: RTS.H...;.......
.....................ADDITI. CLC.....
: LDA REG1.....: AD
C REG2.)...: STA REG3.E...:
LDA REG1.1.A...: AD
C REG2.1.}...: STA REG3.1...
A.: RTS...F.;.................
.......G.K.CR LDA #13...P.:
JMP ....U.;....................
......Z.VERGLEICH JSR POP.....:
STX REG1.J...: STA REG1
.1.C...: JSR POP.}...:
STX REG2.....: STA REG2.
1.....: JMP SUBTRAKTI..V...;.
...........................GLEICH J
SR VERGLEICH.....: LDA REG3.
*...: .A REG3.1.E...:
BEQ WAHR1.]...FALSCH1 LDA #0.Q.
..: TAX.....: JMP P
USH.....WAHR1 LDA #0... .:
LDX #1.U.%.: JMP PUSH...
*.;........................../.GROESSER
JSR VERGLEICH.,.4.: BCC W
AHR2.D.9.FALSCH2 LDA #0.X.>.:
TAX.R.C.: JMP PUSH...H.W
AHR2 LDA #0...M.: LDX
#1...R.: JMP PUSH.Y.W.;......
....................\.KLEINER JSR S
WAP...A.: JMP GROESSER...F.;.
.......................G.K.NICHT J
SR POP.].P.: .A L.X.U.:
BEQ WAHR3...Z.FALSCH3 LDA #0
....: TAX.....: JMP
PUSH.V...WAHR3 LDA #0.....:
LDX #1.....: JMP PUSH
.%...;........................>...HOLE
JSR POP.X...: STX REG1
.T...: STA REG1.1.....:
JSR POP.....: STX REG2.
C...: STA REG2.1.W...:
RTS.....;..........................E
.UND JSR HOLE.(.J.: L
DA REG1.@.O.: . REG2.W.T.:
STA L.S.Y.: LDA REG
1.1.....: . REG2.1.....:
STA H.....: JMP PUSH1.
....;............................ODER
JSR HOLE.....: LDA REG1
.)...: .A REG2.@...:
STA L.\...: LDA REG1.1.W..
.: .A REG2.1.....:
STA H.....: JMP PUSH1.F...;.
...........................EXODER J
SR HOLE...$.: LDA REG1...).:
E. REG2.*...: STA
L.F.3.: LDA REG1.1.A.8.:
E. REG2.1.X.=.: STA H
...B.: JMP PUSH1...G.;.......
.................J.L.ADD JSR HO
LE...Q.: JSR ADDITI....V.:
LDX REG3...[.: LDA R
EG3.1.7.`.: JMP PUSH.T.E.;...
.....................N.J.SUB JSR
SWAP...O.: JSR HOLE...T.:
JSR SUBTRAKTI..B.Y.:
LDX REG3...~.: LDA REG3.1..
...: JMP PUSH.....;..........
............../...MUL JSR HOLE.
G...: LDY #0.A...:
STY REG3.}...: STY REG3.1...
..: LDY #16.....LOOP16 A
SL REG3.L...: ROL REG3.1....
.: ROL REG2.....: R
OL REG2.1.....: BCC LAB2.0..
.: CLC.J.D.: LDA RE
G3.D.I.: ADC REG1.~.N.:
STA REG3...S.: LDA REG3
.1...X.: ADC REG1.1.R...:
STA REG3.1.....: BCC
LAB2.. ..: INC REG2. ..:
BNE LAB2.< ..: INC RE
G2.1.P ..LAB2 DEY.L ..:
BNE LOOP16.. ..: LDX REG3..
..: LDA REG3.1.. ..:
JMP PUSH.Y ..;......................
... ..DIVISI. JSR HOLE..!..:
LDY #16.#!..: LDA #0.=!#.
: STA REG3.Y!(.: ST
A REG3.1.S!-.LOOP17 ROL REG2..!2.
: ROL REG2.1..!7.:
ROL REG3.E!<.: ROL REG3.1.Y!
A.: SEC..!F.: LDA R
EG3.."K.: SBC REG1.!"P.:
TAX.="U.: LDA REG3.1.Y"
Z.: SBC REG1.1.S"_.:
BCC LAB4.."D.: STA REG3.1.
."I.: STX REG3.."N.LAB4
DEY.Y"S.: BNE LOOP17.."X.:
ROL REG2..#}.: ROL
REG2.1.##..: RTS.@#..;.......
.................]#..DIV JSR DI
VISI..W#..: LDX REG2..#..:
LDA REG2.1..#..: JMP
PUSH.J# .;.........................#..M
OD JSR DIVISI...$..:
LDX REG3..$..: LDA REG3.1.7$
..: JMP PUSH.T$..;...........
.............P$..TRS JSR RETPOP
..$C.: JMP PUSH..$H.;........
.................$M.TSR JSR POP
..$R.: JMP RETPUSH..$W.;.....
....................%..DO JSR
SWAP.-%..: JSR TSR.F%..:
JMP TSR.C%..;....................
....|%..IND JSR TRS..%..:
INC RET...%..: INC RET.
.D%..: RTS..%..;..............
...........%..LOOP1 JSR TRS..&..:
JSR DUP.,&..: JSR
TRS.F&..: JSR SWAP.E&..VERGL
JSR VERGLEICH..&".: BC
C WAHR4..&#.FALSCH4 JSR DROP..&'.:
JSR DROP.H&+.: SEC
..&,.: RTS..&1.WAHR4 INC
RET...'6.: INC RET..)';.:
JSR ADD.B'@.: JSR T
SR.V'E.: CLC.J'J.: R
TS..'O.;.........................'T.LOOP
LDA #0..'Y.: LDX #1.
Q'^.: JSR PUSH..'C.:
JMP LOOP1..(H.;......................
.."(M.LOOPPLUS JSR POP.9(R.:
INC ..P(W.: INC ..G(|.:
LDA H..(..: BPL LOO
P1..(..: JSR TRS..(..:
JSR DUP.M(..: JSR TRS..(
..: JMP VERGL..)..;..........
...............)... JSR POP.3)
..: .A L.M)..: BEQ
NEIN.A)..JA SEC.U)..:
RTS..)..NEIN CLC..)..:
RTS..)B.;........................S)G.E
MIT JSR POP..)L.: TXA.
.)Q.: JMP ...*V.;............
............4*... JSR $EA87.N*.
.: CPX #255.H*..: B
EQ NULL..*..: CPX #13..*..:
BCS N.ULL..*..NULL LDX
#$00.O*..N.ULL LDA #$00..*..:
JMP PUSH..+..;.................
........+..KEY JSR ..6+..:
JSR DUP.M+..: JSR ..E+
..: BCS .5.+..: JS
R DROP..+..: JMP KEY..+...5
RTS.F+!.;.........................
+&.PUTZEILE STX L..++.: ST
A H..,0.: LDY #0.(,5.LOOPPUT
LDA (HL),Y.B,:.: BEQ .P
UT.Y,?.: JSR ..M,D.:
INY..,I.: BNE LOOPPUT..,N..
PUT RTS..,S.;......................
..R,X.TYPE JSR POP..,].:
STX $F7..-B.: JSR POP..-G
.: LDY #0.8-L.LOOPTYPE LDA
(HL),Y.O-Q.: JSR ..C-V.:
INY.|-{.: CPY $F7..-.
.: BNE LOOPTYPE..-..:
RTS.K-..;.........................-..
.ECT JSR POP..-..: STX
$F9.....: JSR POP.-...:
STX $F7.F...: STA $F8.^
...: LDX #0.V...: L
DY #0.....LOOPEX JSR $FFCF.....:
STA ($F7),Y.G...: C
MP #13...A.: BEQ .EX...F.:
INX../K.: INY.!/P.:
CPY $F9.=/U.: BNE L
OOPEX.O/Z..EX RTS.L/..;...........
............../..DEPTH LDA .../..
: LSR A../..: TAX.F
/..: LDA #0../..: J
MP PUSH../..;.........................0
..D. JSR POP.,0..: STX
$F7.E0..: STA $F8.^0..:
JSR POP.V0..: LDY #1..
0..: STA ($F7),Y..0 .:
TXA..0%.: DEY.X0*.:
STA ($F7),Y..0/.: RTS..14
.;........................19.. JS
R POP.71>.: STX $F7.P1C.:
STA $F8.I1H.: JSR PO
P..1M.: LDY #0..1R.:
TXA..1W.: STA ($F7),Y.F1\.:
RTS..1A.;....................
....1F.DB JSR POP..2K.:
STX $F7.*2P.: STA $F8.B2U.:
LDY #0._2Z.: LDA
($F7),Y.S2.: TAX..2..:
INY..2..: LDA ($F7),Y..2.
.: JMP PUSH.Z2..;............
............2..B JSR POP..3..:
STX $F7."3..: STA $
F8.:3..: LDY #0.W3..:
LDA ($F7),Y.K3..: TAX..3..
: LDA #0..3..: JMP
PUSH..3..;.......................R3E.CA
LL JSR POP..3F.: LDA
780..4G.: LDX 781..4H.:
LDY 782.74J.: JMP (HL).
S4O.;.......................L4T.PICK
JSR POP..4Y.: LDY ...4..
: STY REG1..4..: TX
A.H4..: ASL A..4..:
STA ...4..: JSR POP..5..:
LDY REG1.)5..: STY
..C5..: JMP PUSH._5..;.......
................X5..ROT JSR POP
..5..: STX REG1..5..:
STA REG1.1.G5..: JSR POP.
.5..: STX REG2..5$.:
STA REG2.1..6).: JSR POP.0
6..: STX REG3.L63.:
STA REG3.1.F68.: LDX REG2..
6=.: LDA REG2.1..6B.:
JSR PUSH..6G.: LDX REG1.R
6L.: LDA REG1.1..6Q.:
JSR PUSH..7V.: LDX REG3."
7[.: LDA REG3.1.<7`.:
JMP PUSH.X7E.;......................
.P7J.. JSR $AEFD..7O.:
JSR $E1D4..7T.: LDA #1..7Y.
: STA $B9.T7~.: LDA
#0..7..: JMP $FFD5..8..;...
....................28.%: .SST
8,2,"@:LABEL,S,W".E8.%: .....
]
> CLICK IMAGE PREVIEW FOR FULL MODAL