DECOMP.SRC
FILE INFORMATION
FILENAME(S): DECOMP.SRC
FILE TYPE(S): SEQ
FILE SIZE: 23.6K
FIRST SEEN: 2025-11-30 01:13:11
APPEARS ON: 2 disk(s)
FILE HASH
26cad177c6c90bc32275ba64ca1a44ec867c3209118a4768820a111a57e67a99
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| 10910 10 899999 | DECOMP.SRC | SEQ | C64er | 29 | 6 | DOWNLOAD FILE |
| 10910 10 899999 | DECOMP.SRC | SEQ | DuncanTwain | 29 | 6 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |;***************|
00000010: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000020: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000030: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 0D 3B 2A 20 |************.;* |
00000040: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000050: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000060: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000070: 20 20 20 20 20 20 20 20 2A 0D 3B 2A 20 20 20 20 | *.;* |
00000080: 20 C4 45 43 4F 4D 50 49 4C 45 52 20 46 55 45 52 | .ECOMPILER FUER|
00000090: 20 C3 36 34 20 4D 49 54 20 C1 55 53 54 52 4F 43 | .64 MIT .USTROC|
000000A0: 4F 4D 50 49 4C 45 52 20 20 20 20 20 20 20 20 20 |OMPILER |
000000B0: 20 20 20 20 20 2A 0D 3B 2A 20 20 20 20 20 20 20 | *.;* |
000000C0: 20 20 C2 52 49 4E 47 54 20 4D 49 54 20 44 45 4D | .RINGT MIT DEM|
000000D0: 20 C1 55 53 54 52 4F 43 4F 4D 50 49 4C 45 52 20 | .USTROCOMPILER |
000000E0: 4B 4F 4D 50 49 4C 49 45 52 54 45 20 20 20 20 20 |KOMPILIERTE |
000000F0: 20 20 2A 0D 3B 2A 20 20 20 20 20 20 20 20 20 C2 | *.;* .|
00000100: 41 53 49 43 50 52 4F 47 52 41 4D 4D 20 57 49 45 |ASICPROGRAMM WIE|
00000110: 44 45 52 20 49 4E 20 45 49 4E 45 20 4C 45 53 42 |DER IN EINE LESB|
00000120: 41 52 45 20 C6 4F 52 4D 2E 20 20 20 20 20 20 2A |ARE .ORM. *|
00000130: 0D 3B 2A 20 20 20 20 20 20 20 20 20 20 20 20 20 |.;* |
00000140: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000150: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000160: 20 20 20 20 20 20 20 20 20 20 20 20 2A 0D 3B 2A | *.;*|
00000170: 20 20 20 20 20 C7 45 53 43 48 52 49 45 42 45 4E | .ESCHRIEBEN|
00000180: 20 31 39 38 37 2F 38 38 20 56 4F 4E 20 D4 48 4F | 1987/88 VON .HO|
00000190: 4D 41 53 20 CB 4C 41 45 47 45 52 20 20 20 20 20 |MAS .LAEGER |
000001A0: 20 20 20 20 20 20 20 20 20 2A 0D 3B 2A 20 20 20 | *.;* |
000001B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000001C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000001D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000001E0: 20 20 20 20 20 20 2A 0D 3B 2A 2A 2A 2A 2A 2A 2A | *.;*******|
000001F0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000200: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000210: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000220: 2A 2A 2A 2A 0D 3B 0D 3B 0D 20 20 20 20 20 20 20 |****.;.;. |
00000230: 2E 4E 4F 4C 49 53 54 0D 20 20 20 20 20 20 20 2E |.NOLIST. .|
00000240: 45 52 52 4F 52 0D 2A 20 20 20 20 20 20 3D 20 20 |ERROR.* = |
00000250: 20 24 39 30 30 30 0D 3B 0D 3B 20 20 C2 45 54 52 | $9000.;.; .ETR|
00000260: 49 45 42 53 53 59 53 54 45 4D 52 4F 55 54 49 4E |IEBSSYSTEMROUTIN|
00000270: 45 4E 3A 0D 3B 0D 42 53 4F 55 54 20 20 3D 20 20 |EN:.;.BSOUT = |
00000280: 20 24 46 46 44 32 0D 42 41 53 49 4E 20 20 3D 20 | $FFD2.BASIN = |
00000290: 20 20 24 46 46 43 46 0D 43 4C 52 43 48 20 20 3D | $FFCF.CLRCH =|
000002A0: 20 20 20 24 46 46 43 43 0D 43 48 4B 49 4E 20 20 | $FFCC.CHKIN |
000002B0: 3D 20 20 20 24 46 46 43 36 0D 43 4B 4F 55 54 20 |= $FFC6.CKOUT |
000002C0: 20 3D 20 20 20 24 46 46 43 39 0D 4F 50 45 4E 20 | = $FFC9.OPEN |
000002D0: 20 20 3D 20 20 20 24 46 46 43 30 0D 43 4C 4F 53 | = $FFC0.CLOS|
000002E0: 45 20 20 3D 20 20 20 24 46 46 43 33 0D 46 49 4C |E = $FFC3.FIL|
000002F0: 50 41 52 20 3D 20 20 20 24 46 46 42 41 0D 46 49 |PAR = $FFBA.FI|
00000300: 4C 4E 41 4D 20 3D 20 20 20 24 46 46 42 44 0D 4C |LNAM = $FFBD.L|
00000310: 4F 41 44 20 20 20 3D 20 20 20 24 46 46 44 35 0D |OAD = $FFD5.|
00000320: 52 45 53 45 54 20 20 3D 20 20 20 24 46 43 45 32 |RESET = $FCE2|
00000330: 0D 3B 0D 3B 20 20 C4 41 54 45 4E 41 44 52 45 53 |.;.; .ATENADRES|
00000340: 53 45 4E 3A 20 28 47 4C 4F 42 41 4C 45 20 C4 41 |SEN: (GLOBALE .A|
00000350: 54 45 4E 29 0D 3B 0D 56 53 54 20 20 20 20 3D 20 |TEN).;.VST = |
00000360: 20 20 24 32 44 0D 41 52 53 54 20 20 20 3D 20 20 | $2D.ARST = |
00000370: 20 24 32 46 0D 41 52 45 4E 20 20 20 3D 20 20 20 | $2F.AREN = |
00000380: 24 33 31 0D 49 4E 53 54 20 20 20 3D 20 20 20 24 |$31.INST = $|
00000390: 33 33 0D 44 41 54 53 54 20 20 3D 20 20 20 24 33 |33.DATST = $3|
000003A0: 35 0D 50 52 47 53 54 20 20 3D 20 20 20 24 33 37 |5.PRGST = $37|
000003B0: 0D 43 4F 55 4E 54 20 20 3D 20 20 20 24 33 39 0D |.COUNT = $39.|
000003C0: 3B 0D 53 41 56 45 53 50 20 3D 20 20 20 24 46 45 |;.SAVESP = $FE|
000003D0: 0D 3B 0D 4E 41 4D 4C 45 4E 20 3D 20 20 20 24 46 |.;.NAMLEN = $F|
000003E0: 46 0D 4E 41 4D 42 55 46 20 3D 20 20 20 24 32 30 |F.NAMBUF = $20|
000003F0: 30 0D 4E 41 4D 42 55 32 20 3D 20 20 20 4E 41 4D |0.NAMBU2 = NAM|
00000400: 42 55 46 2B 32 0D 3B 0D 3B 20 20 C4 41 54 45 4E |BUF+2.;.; .ATEN|
00000410: 41 44 52 45 53 53 45 4E 3A 20 28 4C 4F 4B 41 4C |ADRESSEN: (LOKAL|
00000420: 45 20 C4 41 54 45 4E 2C 20 57 45 52 44 45 4E 20 |E .ATEN, WERDEN |
00000430: 4D 49 54 20 50 55 53 48 52 47 20 47 45 52 45 54 |MIT PUSHRG GERET|
00000440: 54 45 54 0D 3B 20 20 20 20 20 20 20 20 20 20 20 |TET.; |
00000450: 20 20 20 20 20 20 20 55 4E 44 20 4D 49 54 20 50 | UND MIT P|
00000460: 4F 50 52 47 20 52 45 53 54 41 55 52 49 45 52 54 |OPRG RESTAURIERT|
00000470: 29 0D 3B 0D 57 50 20 20 20 20 20 3D 20 20 20 24 |).;.WP = $|
00000480: 33 42 0D 50 46 20 20 20 20 20 3D 20 20 20 24 33 |3B.PF = $3|
00000490: 44 0D 50 4C 20 20 20 20 20 3D 20 20 20 24 33 46 |D.PL = $3F|
000004A0: 0D 50 54 20 20 20 20 20 3D 20 20 20 24 34 31 0D |.PT = $41.|
000004B0: 50 32 20 20 20 20 20 3D 20 20 20 24 34 33 0D 50 |P2 = $43.P|
000004C0: 52 49 4F 52 31 20 3D 20 20 20 24 34 35 0D 50 52 |RIOR1 = $45.PR|
000004D0: 49 4F 52 32 20 3D 20 20 20 24 34 36 0D 50 52 49 |IOR2 = $46.PRI|
000004E0: 4F 52 43 20 3D 20 20 20 24 34 37 0D 43 20 20 20 |ORC = $47.C |
000004F0: 20 20 20 3D 20 20 20 24 34 38 0D 49 20 20 20 20 | = $48.I |
00000500: 20 20 3D 20 20 20 24 34 39 0D 3B 0D 3B 20 20 48 | = $49.;.; H|
00000510: 49 45 52 48 45 52 20 4B 4F 4D 4D 45 4E 20 D2 55 |IERHER KOMMEN .U|
00000520: 45 43 4B 4D 45 4C 44 55 4E 47 45 4E 3A 0D 3B 0D |ECKMELDUNGEN:.;.|
00000530: 42 41 43 4B 20 20 20 3D 20 20 20 24 31 34 0D 3B |BACK = $14.;|
00000540: 0D 3B 20 20 C4 41 54 45 4E 20 5A 55 52 20 DA 45 |.; .ATEN ZUR .E|
00000550: 49 4C 45 4E 4E 55 4D 4D 45 52 49 45 52 55 4E 47 |ILENNUMMERIERUNG|
00000560: 3A 0D 0D 4C 49 4E 42 55 46 20 3D 20 20 20 24 42 |:..LINBUF = $B|
00000570: 30 30 30 0D 4C 4C 49 4E 45 20 20 3D 20 20 20 24 |000.LLINE = $|
00000580: 37 41 0D 3B 0D 3B 20 20 56 45 52 53 43 48 49 45 |7A.;.; VERSCHIE|
00000590: 44 45 4E 45 20 42 45 4E 4F 45 54 49 47 54 45 20 |DENE BENOETIGTE |
000005A0: CD 41 43 52 4F 53 3A 0D 3B 0D 2E 4D 41 43 20 20 |.ACROS:.;..MAC |
000005B0: 20 50 52 49 4E 54 20 3B 47 49 42 54 20 54 45 58 | PRINT ;GIBT TEX|
000005C0: 54 20 41 55 53 0D 20 20 20 20 20 20 20 4C 44 58 |T AUS. LDX|
000005D0: 20 23 30 0D 3F 32 20 20 20 20 20 4C 44 41 20 3F | #0.?2 LDA ?|
000005E0: 31 2C 58 0D 20 20 20 20 20 20 20 50 48 41 0D 20 |1,X. PHA. |
000005F0: 20 20 20 20 20 20 41 4E 44 20 23 24 37 46 0D 20 | AND #$7F. |
00000600: 20 20 20 20 20 20 4A 53 52 20 42 53 4F 55 54 0D | JSR BSOUT.|
00000610: 20 20 20 20 20 20 20 49 4E 58 0D 20 20 20 20 20 | INX. |
00000620: 20 20 50 4C 41 0D 20 20 20 20 20 20 20 42 50 4C | PLA. BPL|
00000630: 20 3F 32 0D 2E 4D 4E 44 0D 3B 0D 2E 4D 41 43 20 | ?2..MND.;..MAC |
00000640: 20 20 4D 56 57 20 3B 56 45 52 53 43 48 49 45 42 | MVW ;VERSCHIEB|
00000650: 45 4E 20 56 4F 4E 20 32 2D C2 59 54 45 2D 0D 20 |EN VON 2-.YTE-. |
00000660: 20 20 20 20 20 20 4C 44 41 20 3F 31 20 3B DA 45 | LDA ?1 ;.E|
00000670: 49 47 45 52 4E 0D 20 20 20 20 20 20 20 4C 44 59 |IGERN. LDY|
00000680: 20 3F 31 2B 31 0D 20 20 20 20 20 20 20 53 54 41 | ?1+1. STA|
00000690: 20 3F 32 0D 20 20 20 20 20 20 20 53 54 59 20 3F | ?2. STY ?|
000006A0: 32 2B 31 0D 2E 4D 4E 44 0D 3B 0D 2E 4D 41 43 20 |2+1..MND.;..MAC |
000006B0: 20 20 50 48 57 20 3B 50 55 53 48 20 57 4F 52 44 | PHW ;PUSH WORD|
000006C0: 0D 20 20 20 20 20 20 20 4C 44 41 20 3F 31 2B 31 |. LDA ?1+1|
000006D0: 0D 20 20 20 20 20 20 20 50 48 41 0D 20 20 20 20 |. PHA. |
000006E0: 20 20 20 4C 44 41 20 3F 31 0D 20 20 20 20 20 20 | LDA ?1. |
000006F0: 20 50 48 41 0D 2E 4D 4E 44 0D 3B 0D 2E 4D 41 43 | PHA..MND.;..MAC|
00000700: 20 20 20 50 4C 57 20 3B 50 55 4C 4C 20 57 4F 52 | PLW ;PULL WOR|
00000710: 44 0D 20 20 20 20 20 20 20 50 4C 41 0D 20 20 20 |D. PLA. |
00000720: 20 20 20 20 53 54 41 20 3F 31 0D 20 20 20 20 20 | STA ?1. |
00000730: 20 20 50 4C 41 0D 20 20 20 20 20 20 20 53 54 41 | PLA. STA|
00000740: 20 3F 31 2B 31 0D 2E 4D 4E 44 0D 3B 0D 3B 0D 3B | ?1+1..MND.;.;.;|
00000750: 20 20 C4 41 53 20 D7 45 52 4B 20 4B 41 4E 4E 20 | .AS .ERK KANN |
00000760: 42 45 47 49 4E 4E 45 4E 3A 0D 3B 0D 20 20 20 20 |BEGINNEN:.;. |
00000770: 20 20 20 4A 4D 50 20 53 54 41 52 54 0D 3B 0D 45 | JMP START.;.E|
00000780: 52 52 4F 52 20 20 4C 44 41 20 23 31 33 20 20 20 |RROR LDA #13 |
00000790: 20 20 3B 20 C6 4C 4F 50 50 59 46 45 48 4C 45 52 | ; .LOPPYFEHLER|
000007A0: 4B 41 4E 41 4C 20 41 42 46 52 41 47 45 4E 0D 20 |KANAL ABFRAGEN. |
000007B0: 20 20 20 20 20 20 4A 53 52 20 42 53 4F 55 54 0D | JSR BSOUT.|
000007C0: 20 20 20 20 20 20 20 4C 44 58 20 23 31 35 20 20 | LDX #15 |
000007D0: 20 20 20 3B 20 56 4F 4D 20 CB 4F 4D 4D 41 4E 44 | ; VOM .OMMAND|
000007E0: 4F 4B 41 4E 41 4C 20 44 45 52 20 C6 4C 4F 50 50 |OKANAL DER .LOPP|
000007F0: 59 0D 20 20 20 20 20 20 20 4A 53 52 20 43 48 4B |Y. JSR CHK|
00000800: 49 4E 20 20 20 3B 20 CC 45 53 45 4E 0D 20 20 20 |IN ; .ESEN. |
00000810: 20 20 20 20 4A 53 52 20 42 41 53 49 4E 20 20 20 | JSR BASIN |
00000820: 3B 20 DA 45 49 43 48 45 4E 20 48 4F 4C 45 4E 0D |; .EICHEN HOLEN.|
00000830: 20 20 20 20 20 20 20 43 4D 50 20 23 27 30 27 20 | CMP #'0' |
00000840: 20 20 20 3B 20 CE 55 4D 4D 45 52 20 27 30 30 27 | ; .UMMER '00'|
00000850: 20 4F 44 45 52 20 27 30 31 27 3F 0D 20 20 20 20 | ODER '01'?. |
00000860: 20 20 20 42 45 51 20 4F 4B 0D 20 20 20 20 20 20 | BEQ OK. |
00000870: 20 43 4D 50 20 23 27 37 27 20 20 20 20 3B 20 CE | CMP #'7' ; .|
00000880: 55 4D 4D 45 52 20 27 37 33 27 20 28 D2 45 53 45 |UMMER '73' (.ESE|
00000890: 54 4D 45 4C 44 55 4E 47 3F 29 0D 20 20 20 20 20 |TMELDUNG?). |
000008A0: 20 20 42 4E 45 20 4F 55 54 0D 20 20 20 20 20 20 | BNE OUT. |
000008B0: 20 4A 53 52 20 42 41 53 49 4E 0D 20 20 20 20 20 | JSR BASIN. |
000008C0: 20 20 43 4D 50 20 23 27 33 27 0D 20 20 20 20 20 | CMP #'3'. |
000008D0: 20 20 42 45 51 20 4F 4B 0D 20 20 20 20 20 20 20 | BEQ OK. |
000008E0: 50 48 41 0D 20 20 20 20 20 20 20 4C 44 41 20 23 |PHA. LDA #|
000008F0: 27 37 27 0D 20 20 20 20 20 20 20 4A 53 52 20 42 |'7'. JSR B|
00000900: 53 4F 55 54 0D 20 20 20 20 20 20 20 50 4C 41 0D |SOUT. PLA.|
00000910: 4F 55 54 20 20 20 20 4A 53 52 20 42 53 4F 55 54 |OUT JSR BSOUT|
00000920: 20 20 20 3B 20 C6 45 48 4C 45 52 4D 45 4C 44 55 | ; .EHLERMELDU|
00000930: 4E 47 20 41 55 53 47 45 42 45 4E 0D 20 20 20 20 |NG AUSGEBEN. |
00000940: 20 20 20 4A 53 52 20 42 41 53 49 4E 0D 20 20 20 | JSR BASIN. |
00000950: 20 20 20 20 43 4D 50 20 23 24 44 0D 20 20 20 20 | CMP #$D. |
00000960: 20 20 20 42 4E 45 20 4F 55 54 0D 20 20 20 20 20 | BNE OUT. |
00000970: 20 20 50 4C 41 0D 20 20 20 20 20 20 20 50 4C 41 | PLA. PLA|
00000980: 0D 20 20 20 20 20 20 20 4A 53 52 20 43 4C 52 43 |. JSR CLRC|
00000990: 48 0D 20 20 20 20 20 20 20 4A 4D 50 20 53 54 41 |H. JMP STA|
000009A0: 52 54 0D 4F 4B 20 20 20 20 20 4A 53 52 20 42 41 |RT.OK JSR BA|
000009B0: 53 49 4E 20 20 20 3B 20 C6 45 48 4C 45 52 4D 45 |SIN ; .EHLERME|
000009C0: 4C 44 55 4E 47 20 4E 55 52 20 4C 45 53 45 4E 0D |LDUNG NUR LESEN.|
000009D0: 20 20 20 20 20 20 20 43 4D 50 20 23 24 44 0D 20 | CMP #$D. |
000009E0: 20 20 20 20 20 20 42 4E 45 20 4F 4B 0D 20 20 20 | BNE OK. |
000009F0: 20 20 20 20 4A 53 52 20 43 4C 52 43 48 0D 20 20 | JSR CLRCH. |
00000A00: 20 20 20 20 20 52 54 53 0D 3B 0D 54 49 54 45 4C | RTS.;.TITEL|
00000A10: 20 20 2E 42 59 54 20 24 44 2C 27 44 45 43 4F 4D | .BYT $D,'DECOM|
00000A20: 50 49 4C 45 52 20 5A 55 4D 20 41 55 53 54 52 4F |PILER ZUM AUSTRO|
00000A30: 43 4F 4D 50 49 4C 45 52 27 2C 24 38 44 0D 46 4E |COMPILER',$8D.FN|
00000A40: 41 4D 20 20 20 2E 42 59 54 20 27 42 49 54 54 45 |AM .BYT 'BITTE|
00000A50: 20 46 49 4C 45 4E 41 4D 45 4E 20 45 49 4E 47 45 | FILENAMEN EINGE|
00000A60: 42 45 4E 27 2C 24 38 44 0D 49 4E 49 54 20 20 20 |BEN',$8D.INIT |
00000A70: 2E 42 59 54 20 27 49 30 27 0D 3B 0D 3B 0D 45 4E |.BYT 'I0'.;.;.EN|
00000A80: 44 45 20 20 20 4A 4D 50 20 52 45 53 45 54 0D 3B |DE JMP RESET.;|
00000A90: 0D 3B 0D 53 54 41 52 54 20 20 54 53 58 0D 20 20 |.;.START TSX. |
00000AA0: 20 20 20 20 20 53 54 58 20 53 41 56 45 53 50 0D | STX SAVESP.|
00000AB0: 20 20 20 20 20 20 20 50 52 49 4E 54 20 54 49 54 | PRINT TIT|
00000AC0: 45 4C 0D 20 20 20 20 20 20 20 50 52 49 4E 54 20 |EL. PRINT |
00000AD0: 46 4E 41 4D 0D 20 20 20 20 20 20 20 4C 44 59 20 |FNAM. LDY |
00000AE0: 23 30 0D 47 45 54 20 20 20 20 4A 53 52 20 42 41 |#0.GET JSR BA|
00000AF0: 53 49 4E 0D 20 20 20 20 20 20 20 43 4D 50 20 23 |SIN. CMP #|
00000B00: 24 44 0D 20 20 20 20 20 20 20 42 45 51 20 45 4E |$D. BEQ EN|
00000B10: 44 0D 20 20 20 20 20 20 20 43 4D 50 20 23 39 35 |D. CMP #95|
00000B20: 20 20 20 20 20 3B 20 22 3C 2D 22 20 5A 55 4D 20 | ; "<-" ZUM |
00000B30: C1 42 42 52 55 43 48 0D 20 20 20 20 20 20 20 42 |.BBRUCH. B|
00000B40: 45 51 20 45 4E 44 45 0D 20 20 20 20 20 20 20 53 |EQ ENDE. S|
00000B50: 54 41 20 4E 41 4D 42 55 46 2B 32 2C 59 0D 20 20 |TA NAMBUF+2,Y. |
00000B60: 20 20 20 20 20 49 4E 59 0D 20 20 20 20 20 20 20 | INY. |
00000B70: 42 4E 45 20 47 45 54 0D 45 4E 44 20 20 20 20 54 |BNE GET.END T|
00000B80: 59 41 0D 20 20 20 20 20 20 20 42 45 51 20 53 54 |YA. BEQ ST|
00000B90: 41 52 54 0D 20 20 20 20 20 20 20 43 4D 50 20 23 |ART. CMP #|
00000BA0: 31 36 0D 20 20 20 20 20 20 20 42 43 53 20 53 54 |16. BCS ST|
00000BB0: 41 52 54 0D 20 20 20 20 20 20 20 53 54 59 20 4E |ART. STY N|
00000BC0: 41 4D 4C 45 4E 0D 3B 0D 20 20 20 20 20 20 20 4C |AMLEN.;. L|
00000BD0: 44 41 20 23 31 35 20 3B 46 45 48 4C 45 52 4B 41 |DA #15 ;FEHLERKA|
00000BE0: 4E 41 4C 20 4F 45 46 46 4E 45 4E 0D 20 20 20 20 |NAL OEFFNEN. |
00000BF0: 20 20 20 4C 44 58 20 23 38 0D 20 20 20 20 20 20 | LDX #8. |
00000C00: 20 54 41 59 0D 20 20 20 20 20 20 20 4A 53 52 20 | TAY. JSR |
00000C10: 46 49 4C 50 41 52 0D 20 20 20 20 20 20 20 4C 44 |FILPAR. LD|
00000C20: 41 20 23 32 0D 20 20 20 20 20 20 20 4C 44 58 20 |A #2. LDX |
00000C30: 23 3C 49 4E 49 54 0D 20 20 20 20 20 20 20 4C 44 |#<INIT. LD|
00000C40: 59 20 23 3E 49 4E 49 54 0D 20 20 20 20 20 20 20 |Y #>INIT. |
00000C50: 4A 53 52 20 46 49 4C 4E 41 4D 0D 20 20 20 20 20 |JSR FILNAM. |
00000C60: 20 20 4A 53 52 20 4F 50 45 4E 0D 3B 0D 20 20 20 | JSR OPEN.;. |
00000C70: 20 20 20 20 4C 44 41 20 23 31 20 3B 50 52 4F 47 | LDA #1 ;PROG|
00000C80: 52 41 4D 4D 20 4C 41 44 45 4E 0D 20 20 20 20 20 |RAMM LADEN. |
00000C90: 20 20 4C 44 58 20 23 38 0D 20 20 20 20 20 20 20 | LDX #8. |
00000CA0: 4C 44 59 20 23 30 0D 20 20 20 20 20 20 20 4A 53 |LDY #0. JS|
00000CB0: 52 20 46 49 4C 50 41 52 0D 20 20 20 20 20 20 20 |R FILPAR. |
00000CC0: 4C 44 41 20 4E 41 4D 4C 45 4E 0D 20 20 20 20 20 |LDA NAMLEN. |
00000CD0: 20 20 4C 44 58 20 23 3C 4E 41 4D 42 55 32 0D 20 | LDX #<NAMBU2. |
00000CE0: 20 20 20 20 20 20 4C 44 59 20 23 3E 4E 41 4D 42 | LDY #>NAMB|
00000CF0: 55 32 0D 20 20 20 20 20 20 20 4A 53 52 20 46 49 |U2. JSR FI|
00000D00: 4C 4E 41 4D 0D 20 20 20 20 20 20 20 4C 44 58 20 |LNAM. LDX |
00000D10: 23 31 0D 20 20 20 20 20 20 20 4C 44 59 20 23 38 |#1. LDY #8|
00000D20: 0D 20 20 20 20 20 20 20 4C 44 41 20 23 30 0D 20 |. LDA #0. |
00000D30: 20 20 20 20 20 20 4A 53 52 20 4C 4F 41 44 0D 20 | JSR LOAD. |
00000D40: 20 20 20 20 20 20 4A 53 52 20 45 52 52 4F 52 0D | JSR ERROR.|
00000D50: 3B 0D 20 20 20 20 20 20 20 4C 44 41 20 4E 41 4D |;. LDA NAM|
00000D60: 4C 45 4E 0D 20 20 20 20 20 20 20 41 44 43 20 23 |LEN. ADC #|
00000D70: 32 0D 20 20 20 20 20 20 20 43 4D 50 20 23 31 36 |2. CMP #16|
00000D80: 0D 20 20 20 20 20 20 20 42 43 43 20 46 49 4C 4F |. BCC FILO|
00000D90: 50 0D 20 20 20 20 20 20 20 4C 44 41 20 23 31 36 |P. LDA #16|
00000DA0: 0D 46 49 4C 4F 50 20 20 53 54 41 20 4E 41 4D 4C |.FILOP STA NAML|
00000DB0: 45 4E 0D 20 20 20 20 20 20 20 4C 44 41 20 23 27 |EN. LDA #'|
00000DC0: 42 27 0D 20 20 20 20 20 20 20 53 54 41 20 4E 41 |B'. STA NA|
00000DD0: 4D 42 55 46 0D 20 20 20 20 20 20 20 4C 44 41 20 |MBUF. LDA |
00000DE0: 23 27 2F 27 0D 20 20 20 20 20 20 20 53 54 41 20 |#'/'. STA |
00000DF0: 4E 41 4D 42 55 46 2B 31 0D 20 20 20 20 20 20 20 |NAMBUF+1. |
00000E00: 4C 44 58 20 23 31 35 0D 20 20 20 20 20 20 20 4A |LDX #15. J|
00000E10: 53 52 20 43 4B 4F 55 54 0D 20 20 20 20 20 20 20 |SR CKOUT. |
00000E20: 4C 44 41 20 23 27 53 27 20 20 20 20 3B 20 41 4C |LDA #'S' ; AL|
00000E30: 54 45 53 20 C2 41 53 49 43 2D 0D 20 20 20 20 20 |TES .ASIC-. |
00000E40: 20 20 4A 53 52 20 42 53 4F 55 54 20 20 20 3B 20 | JSR BSOUT ; |
00000E50: 50 52 4F 47 52 41 4D 4D 20 4C 4F 45 53 43 48 45 |PROGRAMM LOESCHE|
00000E60: 4E 0D 20 20 20 20 20 20 20 4C 44 41 20 23 27 3A |N. LDA #':|
00000E70: 27 0D 20 20 20 20 20 20 20 4A 53 52 20 42 53 4F |'. JSR BSO|
00000E80: 55 54 0D 20 20 20 20 20 20 20 4C 44 59 20 23 30 |UT. LDY #0|
00000E90: 0D 44 45 4C 4F 4F 50 20 4C 44 41 20 4E 41 4D 42 |.DELOOP LDA NAMB|
00000EA0: 55 46 2C 59 0D 20 20 20 20 20 20 20 4A 53 52 20 |UF,Y. JSR |
00000EB0: 42 53 4F 55 54 0D 20 20 20 20 20 20 20 49 4E 59 |BSOUT. INY|
00000EC0: 0D 20 20 20 20 20 20 20 43 50 59 20 4E 41 4D 4C |. CPY NAML|
00000ED0: 45 4E 0D 20 20 20 20 20 20 20 42 4E 45 20 44 45 |EN. BNE DE|
00000EE0: 4C 4F 4F 50 0D 20 20 20 20 20 20 20 4C 44 41 20 |LOOP. LDA |
00000EF0: 23 31 33 0D 20 20 20 20 20 20 20 4A 53 52 20 42 |#13. JSR B|
00000F00: 53 4F 55 54 0D 20 20 20 20 20 20 20 4A 53 52 20 |SOUT. JSR |
00000F10: 43 4C 52 43 48 0D 20 20 20 20 20 20 20 4A 53 52 |CLRCH. JSR|
00000F20: 20 45 52 52 4F 52 0D 20 20 20 20 20 20 20 4C 44 | ERROR. LD|
00000F30: 41 20 23 32 20 3B 20 41 55 53 47 41 42 45 44 41 |A #2 ; AUSGABEDA|
00000F40: 54 45 49 20 4F 45 46 46 4E 45 4E 0D 20 20 20 20 |TEI OEFFNEN. |
00000F50: 20 20 20 4C 44 58 20 23 38 0D 20 20 20 20 20 20 | LDX #8. |
00000F60: 20 4C 44 59 20 23 31 0D 20 20 20 20 20 20 20 4A | LDY #1. J|
00000F70: 53 52 20 46 49 4C 50 41 52 0D 20 20 20 20 20 20 |SR FILPAR. |
00000F80: 20 43 4C 43 0D 20 20 20 20 20 20 20 4C 44 41 20 | CLC. LDA |
00000F90: 4E 41 4D 4C 45 4E 0D 20 20 20 20 20 20 20 4C 44 |NAMLEN. LD|
00000FA0: 58 20 23 3C 4E 41 4D 42 55 46 0D 20 20 20 20 20 |X #<NAMBUF. |
00000FB0: 20 20 4C 44 59 20 23 3E 4E 41 4D 42 55 46 0D 20 | LDY #>NAMBUF. |
00000FC0: 20 20 20 20 20 20 4A 53 52 20 46 49 4C 4E 41 4D | JSR FILNAM|
00000FD0: 0D 20 20 20 20 20 20 20 4A 53 52 20 4F 50 45 4E |. JSR OPEN|
00000FE0: 0D 20 20 20 20 20 20 20 4A 53 52 20 45 52 52 4F |. JSR ERRO|
00000FF0: 52 0D 3B 0D 20 20 20 20 20 20 20 4C 44 58 20 23 |R.;. LDX #|
00001000: 31 31 20 3B D0 41 52 41 4D 45 54 45 52 20 48 4F |11 ;.ARAMETER HO|
00001010: 4C 45 4E 0D 53 45 54 50 41 52 20 4C 44 41 20 24 |LEN.SETPAR LDA $|
00001020: 31 37 38 34 2C 58 0D 20 20 20 20 20 20 20 53 54 |1784,X. ST|
00001030: 41 20 56 53 54 2C 58 0D 20 20 20 20 20 20 20 44 |A VST,X. D|
00001040: 45 58 0D 20 20 20 20 20 20 20 42 50 4C 20 53 45 |EX. BPL SE|
00001050: 54 50 41 52 0D 3B 0D 20 20 20 20 20 20 20 4C 44 |TPAR.;. LD|
00001060: 41 20 44 41 54 53 54 2B 31 20 3B 20 57 49 52 4B |A DATST+1 ; WIRK|
00001070: 4C 49 43 48 20 41 55 53 54 52 4F 2D 43 4F 4D 50 |LICH AUSTRO-COMP|
00001080: 49 4C 45 52 2D 0D 20 20 20 20 20 20 20 43 4D 50 |ILER-. CMP|
00001090: 20 49 4E 53 54 2B 31 20 20 3B 20 43 4F 44 45 3F | INST+1 ; CODE?|
000010A0: 0D 20 20 20 20 20 20 20 42 43 43 20 4E 4F 41 55 |. BCC NOAU|
000010B0: 53 54 0D 20 20 20 20 20 20 20 42 4E 45 20 4F 4B |ST. BNE OK|
000010C0: 30 31 0D 20 20 20 20 20 20 20 4C 44 59 20 44 41 |01. LDY DA|
000010D0: 54 53 54 0D 20 20 20 20 20 20 20 43 50 59 20 49 |TST. CPY I|
000010E0: 4E 53 54 0D 20 20 20 20 20 20 20 42 43 43 20 4E |NST. BCC N|
000010F0: 4F 41 55 53 54 0D 4F 4B 30 31 20 20 20 4C 44 41 |OAUST.OK01 LDA|
00001100: 20 50 52 47 53 54 2B 31 0D 20 20 20 20 20 20 20 | PRGST+1. |
00001110: 43 4D 50 20 44 41 54 53 54 2B 31 0D 20 20 20 20 |CMP DATST+1. |
00001120: 20 20 20 42 43 43 20 4E 4F 41 55 53 54 0D 20 20 | BCC NOAUST. |
00001130: 20 20 20 20 20 42 4E 45 20 4F 4B 30 32 0D 20 20 | BNE OK02. |
00001140: 20 20 20 20 20 4C 44 59 20 50 52 47 53 54 0D 20 | LDY PRGST. |
00001150: 20 20 20 20 20 20 43 50 59 20 44 41 54 53 54 0D | CPY DATST.|
00001160: 20 20 20 20 20 20 20 42 43 43 20 4E 4F 41 55 53 | BCC NOAUS|
00001170: 54 0D 4F 4B 30 32 20 20 20 4C 44 41 20 56 53 54 |T.OK02 LDA VST|
00001180: 2B 31 0D 20 20 20 20 20 20 20 43 4D 50 20 50 52 |+1. CMP PR|
00001190: 47 53 54 2B 31 0D 20 20 20 20 20 20 20 42 43 43 |GST+1. BCC|
000011A0: 20 4E 4F 41 55 53 54 0D 20 20 20 20 20 20 20 42 | NOAUST. B|
000011B0: 4E 45 20 4F 4B 30 33 0D 20 20 20 20 20 20 20 4C |NE OK03. L|
000011C0: 44 59 20 56 53 54 0D 20 20 20 20 20 20 20 43 50 |DY VST. CP|
000011D0: 59 20 50 52 47 53 54 0D 20 20 20 20 20 20 20 42 |Y PRGST. B|
000011E0: 43 43 20 4E 4F 41 55 53 54 0D 4F 4B 30 33 20 20 |CC NOAUST.OK03 |
000011F0: 20 4C 44 41 20 41 52 53 54 2B 31 0D 20 20 20 20 | LDA ARST+1. |
00001200: 20 20 20 43 4D 50 20 56 53 54 2B 31 0D 20 20 20 | CMP VST+1. |
00001210: 20 20 20 20 42 43 43 20 4E 4F 41 55 53 54 0D 20 | BCC NOAUST. |
00001220: 20 20 20 20 20 20 42 4E 45 20 4F 4B 30 34 0D 20 | BNE OK04. |
00001230: 20 20 20 20 20 20 4C 44 59 20 41 52 53 54 0D 20 | LDY ARST. |
00001240: 20 20 20 20 20 20 43 50 59 20 56 53 54 0D 20 20 | CPY VST. |
00001250: 20 20 20 20 20 42 43 43 20 4E 4F 41 55 53 54 0D | BCC NOAUST.|
00001260: 4F 4B 30 34 20 20 20 4C 44 41 20 41 52 45 4E 2B |OK04 LDA AREN+|
00001270: 31 0D 20 20 20 20 20 20 20 43 4D 50 20 41 52 53 |1. CMP ARS|
00001280: 54 2B 31 0D 20 20 20 20 20 20 20 42 43 43 20 4E |T+1. BCC N|
00001290: 4F 41 55 53 54 0D 20 20 20 20 20 20 20 42 4E 45 |OAUST. BNE|
000012A0: 20 56 50 41 43 4B 0D 20 20 20 20 20 20 20 4C 44 | VPACK. LD|
000012B0: 59 20 41 52 45 4E 0D 20 20 20 20 20 20 20 43 50 |Y AREN. CP|
000012C0: 59 20 41 52 53 54 0D 20 20 20 20 20 20 20 42 43 |Y ARST. BC|
000012D0: 53 20 56 50 41 43 4B 0D 4E 4F 41 55 53 54 20 50 |S VPACK.NOAUST P|
000012E0: 52 49 4E 54 20 4E 4F 54 4F 4B 0D 20 20 20 20 20 |RINT NOTOK. |
000012F0: 20 20 4C 44 58 20 53 41 56 45 53 50 0D 20 20 20 | LDX SAVESP. |
00001300: 20 20 20 20 54 58 53 0D 20 20 20 20 20 20 20 4A | TXS. J|
00001310: 4D 50 20 53 54 41 52 54 0D 4E 4F 54 4F 4B 20 20 |MP START.NOTOK |
00001320: 2E 42 59 54 20 31 33 2C 27 43 4F 44 45 20 4E 49 |.BYT 13,'CODE NI|
00001330: 43 48 54 20 4F 4B 2C 20 4B 45 49 4E 20 41 55 53 |CHT OK, KEIN AUS|
00001340: 54 52 4F 2D 43 4F 4D 50 49 4C 45 52 2D 27 2C 31 |TRO-COMPILER-',1|
00001350: 33 2C 27 50 52 4F 47 52 41 4D 4D 21 21 27 2C 24 |3,'PROGRAMM!!',$|
00001360: 38 44 0D 3B 0D 56 50 41 43 4B 20 20 4D 56 57 20 |8D.;.VPACK MVW |
00001370: 56 53 54 2C 43 4F 55 4E 54 20 3B 20 D6 41 52 49 |VST,COUNT ; .ARI|
00001380: 41 42 45 4C 4E 4E 41 4D 45 4E 20 50 41 43 4B 45 |ABELNNAMEN PACKE|
00001390: 4E 0D 20 20 20 20 20 20 20 4D 56 57 20 56 53 54 |N. MVW VST|
000013A0: 2C 50 54 0D 56 50 41 43 4B 30 20 4C 44 41 20 43 |,PT.VPACK0 LDA C|
000013B0: 4F 55 4E 54 2B 31 0D 20 20 20 20 20 20 20 43 4D |OUNT+1. CM|
000013C0: 50 20 41 52 53 54 2B 31 0D 20 20 20 20 20 20 20 |P ARST+1. |
000013D0: 42 43 43 20 56 50 41 30 30 0D 20 20 20 20 20 20 |BCC VPA00. |
000013E0: 20 4C 44 41 20 43 4F 55 4E 54 0D 20 20 20 20 20 | LDA COUNT. |
000013F0: 20 20 43 4D 50 20 41 52 53 54 0D 20 20 20 20 20 | CMP ARST. |
00001400: 20 20 42 43 53 20 56 50 41 43 4B 31 0D 56 50 41 | BCS VPACK1.VPA|
00001410: 30 30 20 20 4C 44 59 20 23 30 0D 20 20 20 20 20 |00 LDY #0. |
00001420: 20 20 4C 44 41 20 28 43 4F 55 4E 54 29 2C 59 0D | LDA (COUNT),Y.|
00001430: 20 20 20 20 20 20 20 53 54 41 20 28 50 54 29 2C | STA (PT),|
00001440: 59 0D 20 20 20 20 20 20 20 49 4E 59 0D 20 20 20 |Y. INY. |
00001450: 20 20 20 20 4C 44 41 20 28 43 4F 55 4E 54 29 2C | LDA (COUNT),|
00001460: 59 0D 20 20 20 20 20 20 20 53 54 41 20 28 50 54 |Y. STA (PT|
00001470: 29 2C 59 0D 20 20 20 20 20 20 20 43 4C 43 0D 20 |),Y. CLC. |
00001480: 20 20 20 20 20 20 4C 44 41 20 23 37 0D 20 20 20 | LDA #7. |
00001490: 20 20 20 20 41 44 43 20 43 4F 55 4E 54 0D 20 20 | ADC COUNT. |
000014A0: 20 20 20 20 20 53 54 41 20 43 4F 55 4E 54 0D 20 | STA COUNT. |
000014B0: 20 20 20 20 20 20 42 43 43 20 56 50 41 30 31 0D | BCC VPA01.|
000014C0: 20 20 20 20 20 20 20 49 4E 43 20 43 4F 55 4E 54 | INC COUNT|
000014D0: 2B 31 0D 56 50 41 30 31 20 20 43 4C 43 0D 20 20 |+1.VPA01 CLC. |
000014E0: 20 20 20 20 20 4C 44 41 20 23 32 0D 20 20 20 20 | LDA #2. |
000014F0: 20 20 20 41 44 43 20 50 54 0D 20 20 20 20 20 20 | ADC PT. |
00001500: 20 53 54 41 20 50 54 0D 20 20 20 20 20 20 20 42 | STA PT. B|
00001510: 43 43 20 56 50 41 43 4B 30 0D 20 20 20 20 20 20 |CC VPACK0. |
00001520: 20 49 4E 43 20 50 54 2B 31 0D 20 20 20 20 20 20 | INC PT+1. |
00001530: 20 42 4E 45 20 56 50 41 43 4B 30 0D 56 50 41 43 | BNE VPACK0.VPAC|
00001540: 4B 31 20 4D 56 57 20 50 54 2C 41 52 53 54 0D 3B |K1 MVW PT,ARST.;|
00001550: 0D 20 20 20 20 20 20 20 4C 44 59 20 23 30 20 20 |. LDY #0 |
00001560: 20 20 20 20 20 20 20 20 3B 20 56 4F 52 44 45 46 | ; VORDEF|
00001570: 49 4E 49 45 52 54 45 20 C1 52 52 41 59 53 0D 20 |INIERTE .RRAYS. |
00001580: 20 20 20 20 20 20 4C 44 41 20 28 49 4E 53 54 29 | LDA (INST)|
00001590: 2C 59 20 20 20 20 3B 20 48 4F 4C 45 4E 0D 20 20 |,Y ; HOLEN. |
000015A0: 20 20 20 20 20 43 4D 50 20 23 24 31 36 0D 20 20 | CMP #$16. |
000015B0: 20 20 20 20 20 42 4E 45 20 50 44 41 30 30 0D 20 | BNE PDA00. |
000015C0: 20 20 20 20 20 20 4A 4D 50 20 4E 4F 41 52 20 20 | JMP NOAR |
000015D0: 20 20 20 20 20 20 3B 20 CB 45 49 4E 45 20 C1 52 | ; .EINE .R|
000015E0: 52 41 59 53 20 56 4F 52 48 41 4E 44 45 4E 0D 50 |RAYS VORHANDEN.P|
000015F0: 44 41 30 30 20 20 4D 56 57 20 49 4E 53 54 2C 43 |DA00 MVW INST,C|
00001600: 4F 55 4E 54 0D 20 20 20 20 20 20 20 4D 56 57 20 |OUNT. MVW |
00001610: 49 4E 53 54 2C 50 4C 0D 20 20 20 20 20 20 20 4A |INST,PL. J|
00001620: 53 52 20 49 4E 54 56 41 4C 20 20 20 20 20 20 3B |SR INTVAL ;|
00001630: 20 C1 4E 5A 41 48 4C 20 C1 52 52 41 59 53 20 48 | .NZAHL .RRAYS H|
00001640: 4F 4C 45 4E 0D 20 20 20 20 20 20 20 49 4E 43 20 |OLEN. INC |
00001650: 42 41 43 4B 0D 20 20 20 20 20 20 20 42 4E 45 20 |BACK. BNE |
00001660: 50 44 41 30 31 0D 20 20 20 20 20 20 20 49 4E 43 |PDA01. INC|
00001670: 20 42 41 43 4B 2B 31 0D 50 44 41 30 31 20 20 4D | BACK+1.PDA01 M|
00001680: 56 57 20 42 41 43 4B 2C 24 36 30 20 20 20 20 3B |VW BACK,$60 ;|
00001690: 20 D0 4C 41 54 5A 20 46 55 45 52 20 C1 52 52 41 | .LATZ FUER .RRA|
000016A0: 59 2D 0D 20 20 20 20 20 20 20 41 53 4C 20 24 36 |Y-. ASL $6|
000016B0: 30 20 20 20 20 20 20 20 20 20 3B 20 C4 45 53 4B |0 ; .ESK|
000016C0: 52 49 50 54 4F 52 45 4E 0D 20 20 20 20 20 20 20 |RIPTOREN. |
000016D0: 52 4F 4C 20 24 36 31 20 20 20 20 20 20 20 20 20 |ROL $61 |
000016E0: 3B 20 53 43 48 41 46 46 45 4E 0D 20 20 20 20 20 |; SCHAFFEN. |
000016F0: 20 20 43 4C 43 0D 20 20 20 20 20 20 20 4C 44 41 | CLC. LDA|
00001700: 20 24 36 30 0D 20 20 20 20 20 20 20 41 44 43 20 | $60. ADC |
00001710: 42 41 43 4B 0D 20 20 20 20 20 20 20 53 54 41 20 |BACK. STA |
00001720: 42 41 43 4B 0D 20 20 20 20 20 20 20 4C 44 41 20 |BACK. LDA |
00001730: 24 36 31 0D 20 20 20 20 20 20 20 41 44 43 20 42 |$61. ADC B|
00001740: 41 43 4B 2B 31 0D 20 20 20 20 20 20 20 53 54 41 |ACK+1. STA|
00001750: 20 42 41 43 4B 2B 31 0D 20 20 20 20 20 20 20 43 | BACK+1. C|
00001760: 4C 43 0D 20 20 20 20 20 20 20 4C 44 41 20 41 52 |LC. LDA AR|
00001770: 53 54 0D 20 20 20 20 20 20 20 41 44 43 20 42 41 |ST. ADC BA|
00001780: 43 4B 0D 20 20 20 20 20 20 20 53 54 41 20 41 52 |CK. STA AR|
00001790: 45 4E 0D 20 20 20 20 20 20 20 4C 44 41 20 41 52 |EN. LDA AR|
000017A0: 53 54 2B 31 0D 20 20 20 20 20 20 20 41 44 43 20 |ST+1. ADC |
000017B0: 42 41 43 4B 2B 31 0D 20 20 20 20 20 20 20 53 54 |BACK+1. ST|
000017C0: 41 20 41 52 45 4E 2B 31 0D 3B 0D 41 52 4C 4F 4F |A AREN+1.;.ARLOO|
000017D0: 50 20 4A 53 52 20 4E 45 58 54 0D 20 20 20 20 20 |P JSR NEXT. |
000017E0: 20 20 4C 44 59 20 23 30 0D 20 20 20 20 20 20 20 | LDY #0. |
000017F0: 4C 44 41 20 28 43 4F 55 4E 54 29 2C 59 0D 20 20 |LDA (COUNT),Y. |
00001800: 20 20 20 20 20 43 4D 50 20 23 24 31 36 20 20 20 | CMP #$16 |
00001810: 20 20 20 20 20 3B 20 C5 4E 44 45 20 44 45 52 20 | ; .NDE DER |
00001820: 56 4F 52 44 45 46 49 4E 49 45 52 54 45 4E 0D 20 |VORDEFINIERTEN. |
00001830: 20 20 20 20 20 20 42 45 51 20 4E 4F 41 52 20 20 | BEQ NOAR |
00001840: 20 20 20 20 20 20 3B 20 C1 52 52 41 59 53 0D 20 | ; .RRAYS. |
00001850: 20 20 20 20 20 20 43 4D 50 20 23 24 31 30 20 20 | CMP #$10 |
00001860: 20 20 20 20 20 20 3B 20 C4 49 4D 3F 0D 20 20 20 | ; .IM?. |
00001870: 20 20 20 20 42 4E 45 20 41 52 4C 4F 4F 50 0D 20 | BNE ARLOOP. |
00001880: 20 20 20 20 20 20 4A 53 52 20 47 45 54 41 52 4E | JSR GETARN|
00001890: 0D 20 20 20 20 20 20 20 4A 4D 50 20 41 52 4C 4F |. JMP ARLO|
000018A0: 4F 50 0D 3B 0D 4E 4F 41 52 20 20 20 4C 44 41 20 |OP.;.NOAR LDA |
000018B0: 23 3E 4C 49 4E 42 55 46 0D 20 20 20 20 20 20 20 |#>LINBUF. |
000018C0: 4C 44 59 20 23 34 0D 20 20 20 20 20 20 20 53 54 |LDY #4. ST|
000018D0: 41 20 24 37 42 0D 20 20 20 20 20 20 20 53 54 59 |A $7B. STY|
000018E0: 20 24 37 41 0D 20 20 20 20 20 20 20 4C 44 41 20 | $7A. LDA |
000018F0: 23 24 38 46 0D 20 20 20 20 20 20 20 4C 44 59 20 |#$8F. LDY |
00001900: 23 30 0D 20 20 20 20 20 20 20 53 54 41 20 57 50 |#0. STA WP|
00001910: 2B 31 0D 20 20 20 20 20 20 20 53 54 59 20 57 50 |+1. STY WP|
00001920: 0D 20 20 20 20 20 20 20 4C 44 41 20 23 30 0D 20 |. LDA #0. |
00001930: 20 20 20 20 20 20 53 54 41 20 4C 49 4E 42 55 46 | STA LINBUF|
00001940: 0D 20 20 20 20 20 20 20 53 54 41 20 4C 49 4E 42 |. STA LINB|
00001950: 55 46 2B 31 0D 20 20 20 20 20 20 20 4C 44 41 20 |UF+1. LDA |
00001960: 23 32 35 35 0D 20 20 20 20 20 20 20 53 54 41 20 |#255. STA |
00001970: 4C 49 4E 42 55 46 2B 32 0D 20 20 20 20 20 20 20 |LINBUF+2. |
00001980: 53 54 41 20 4C 49 4E 42 55 46 2B 33 0D 20 20 20 |STA LINBUF+3. |
00001990: 20 20 20 20 4C 44 41 20 23 24 33 36 0D 20 20 20 | LDA #$36. |
000019A0: 20 20 20 20 53 54 41 20 31 0D 20 20 20 20 20 20 | STA 1. |
000019B0: 20 4A 53 52 20 50 41 53 53 31 0D 20 20 20 20 20 | JSR PASS1. |
000019C0: 20 20 4A 53 52 20 50 41 53 53 32 0D 20 20 20 20 | JSR PASS2. |
000019D0: 20 20 20 4A 53 52 20 50 41 53 53 33 0D 20 20 20 | JSR PASS3. |
000019E0: 20 20 20 20 4C 44 41 20 23 32 0D 20 20 20 20 20 | LDA #2. |
000019F0: 20 20 4A 53 52 20 43 4C 4F 53 45 0D 20 20 20 20 | JSR CLOSE. |
00001A00: 20 20 20 4A 4D 50 20 53 54 41 52 54 0D 3B 0D 3B | JMP START.;.;|
00001A10: 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A | ***************|
00001A20: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001A30: 2A 2A 2A 2A 2A 0D 3B 20 2A 20 20 20 20 20 20 20 |*****.; * |
00001A40: 20 20 20 D5 4E 54 45 52 50 52 4F 47 52 41 4D 4D | .NTERPROGRAMM|
00001A50: 45 20 20 20 20 20 20 20 20 20 20 2A 0D 3B 20 2A |E *.; *|
00001A60: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001A70: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001A80: 2A 2A 2A 0D 3B 0D 47 45 54 41 52 4E 20 4C 44 59 |***.;.GETARN LDY|
00001A90: 20 23 31 20 20 20 20 20 20 3B 20 C1 52 52 41 59 | #1 ; .RRAY|
00001AA0: 50 41 52 41 4D 45 54 45 52 20 41 42 4C 45 47 45 |PARAMETER ABLEGE|
00001AB0: 4E 0D 20 20 20 20 20 20 20 4C 44 41 20 28 43 4F |N. LDA (CO|
00001AC0: 55 4E 54 29 2C 59 0D 20 20 20 20 20 20 20 53 54 |UNT),Y. ST|
00001AD0: 41 20 24 35 41 0D 20 20 20 20 20 20 20 49 4E 59 |A $5A. INY|
00001AE0: 0D 20 20 20 20 20 20 20 4C 44 41 20 28 43 4F 55 |. LDA (COU|
00001AF0: 4E 54 29 2C 59 0D 20 20 20 20 20 20 20 53 54 41 |NT),Y. STA|
00001B00: 20 24 35 38 0D 20 20 20 20 20 20 20 49 4E 59 0D | $58. INY.|
00001B10: 20 20 20 20 20 20 20 4C 44 41 20 28 43 4F 55 4E | LDA (COUN|
00001B20: 54 29 2C 59 0D 20 20 20 20 20 20 20 53 54 41 20 |T),Y. STA |
00001B30: 24 35 39 0D 20 20 20 20 20 20 20 49 4E 59 0D 20 |$59. INY. |
00001B40: 20 20 20 20 20 20 4C 44 41 20 28 43 4F 55 4E 54 | LDA (COUNT|
00001B50: 29 2C 59 0D 20 20 20 20 20 20 20 53 54 41 20 42 |),Y. STA B|
00001B60: 41 43 4B 2B 31 0D 20 20 20 20 20 20 20 49 4E 59 |ACK+1. INY|
00001B70: 0D 20 20 20 20 20 20 20 4C 44 41 20 28 43 4F 55 |. LDA (COU|
00001B80: 4E 54 29 2C 59 0D 20 20 20 20 20 20 20 53 45 43 |NT),Y. SEC|
00001B90: 0D 20 20 20 20 20 20 20 53 42 43 20 23 37 0D 20 |. SBC #7. |
00001BA0: 20 20 20 20 20 20 53 54 41 20 42 41 43 4B 0D 20 | STA BACK. |
00001BB0: 20 20 20 20 20 20 4C 44 41 20 42 41 43 4B 2B 31 | LDA BACK+1|
00001BC0: 0D 20 20 20 20 20 20 20 53 42 43 20 23 30 0D 20 |. SBC #0. |
00001BD0: 20 20 20 20 20 20 53 54 41 20 42 41 43 4B 2B 31 | STA BACK+1|
00001BE0: 0D 20 20 20 20 20 20 20 4C 53 52 20 41 0D 20 20 |. LSR A. |
00001BF0: 20 20 20 20 20 53 54 41 20 24 36 31 0D 20 20 20 | STA $61. |
00001C00: 20 20 20 20 4C 44 41 20 42 41 43 4B 0D 20 20 20 | LDA BACK. |
00001C10: 20 20 20 20 52 4F 52 20 41 0D 20 20 20 20 20 20 | ROR A. |
00001C20: 20 43 4C 43 0D 20 20 20 20 20 20 20 41 44 43 20 | CLC. ADC |
00001C30: 42 41 43 4B 0D 20 20 20 20 20 20 20 53 54 41 20 |BACK. STA |
00001C40: 42 41 43 4B 0D 20 20 20 20 20 20 20 4C 44 41 20 |BACK. LDA |
00001C50: 42 41 43 4B 2B 31 0D 20 20 20 20 20 20 20 41 44 |BACK+1. AD|
00001C60: 43 20 24 36 31 0D 20 20 20 20 20 20 20 53 54 41 |C $61. STA|
00001C70: 20 42 41 43 4B 2B 31 0D 20 20 20 20 20 20 20 4C | BACK+1. L|
00001C80: 44 41 20 24 35 38 0D 20 20 20 20 20 20 20 43 4D |DA $58. CM|
00001C90: 50 20 23 24 44 41 0D 20 20 20 20 20 20 20 42 4E |P #$DA. BN|
00001CA0: 45 20 41 52 31 0D 20 20 20 20 20 20 20 4C 44 41 |E AR1. LDA|
00001CB0: 20 24 35 39 0D 20 20 20 20 20 20 20 43 4D 50 20 | $59. CMP |
00001CC0: 23 24 41 41 0D 20 20 20 20 20 20 20 42 45 51 20 |#$AA. BEQ |
00001CD0: 41 52 33 0D 41 52 31 20 20 20 20 43 4C 43 0D 20 |AR3.AR1 CLC. |
00001CE0: 20 20 20 20 20 20 4C 44 41 20 42 41 43 4B 0D 20 | LDA BACK. |
00001CF0: 20 20 20 20 20 20 41 44 43 20 41 52 53 54 0D 20 | ADC ARST. |
00001D00: 20 20 20 20 20 20 53 54 41 20 42 41 43 4B 0D 20 | STA BACK. |
00001D10: 20 20 20 20 20 20 4C 44 41 20 42 41 43 4B 2B 31 | LDA BACK+1|
00001D20: 0D 20 20 20 20 20 20 20 41 44 43 20 41 52 53 54 |. ADC ARST|
00001D30: 2B 31 0D 20 20 20 20 20 20 20 53 54 41 20 42 41 |+1. STA BA|
00001D40: 43 4B 2B 31 0D 20 20 20 20 20 20 20 4C 44 59 20 |CK+1. LDY |
00001D50: 23 32 0D 41 52 32 20 20 20 20 4C 44 41 20 24 35 |#2.AR2 LDA $5|
00001D60: 38 2C 59 0D 20 20 20 20 20 20 20 53 54 41 20 28 |8,Y. STA (|
00001D70: 42 41 43 4B 29 2C 59 0D 20 20 20 20 20 20 20 44 |BACK),Y. D|
00001D80: 45 59 0D 20 20 20 20 20 20 20 42 50 4C 20 41 52 |EY. BPL AR|
00001D90: 32 0D 41 52 33 20 20 20 20 52 54 53 0D 3B 0D 49 |2.AR3 RTS.;.I|
00001DA0: 4E 54 56 41 4C 20 4C 44 59 20 23 30 0D 20 20 20 |NTVAL LDY #0. |
00001DB0: 20 20 20 20 4C 44 41 20 28 50 4C 29 2C 59 0D 20 | LDA (PL),Y. |
00001DC0: 20 20 20 20 20 20 42 4D 49 20 49 4E 54 56 30 30 | BMI INTV00|
00001DD0: 0D 20 20 20 20 20 20 20 52 54 53 0D 49 4E 54 56 |. RTS.INTV|
00001DE0: 30 30 20 53 54 59 20 42 41 43 4B 0D 20 20 20 20 |00 STY BACK. |
00001DF0: 20 20 20 53 54 59 20 42 41 43 4B 2B 31 0D 20 20 | STY BACK+1. |
00001E00: 20 20 20 20 20 49 4E 59 0D 20 20 20 20 20 20 20 | INY. |
00001E10: 43 4D 50 20 23 24 41 36 0D 20 20 20 20 20 20 20 |CMP #$A6. |
00001E20: 42 4E 45 20 49 4E 54 56 41 31 0D 20 20 20 20 20 |BNE INTVA1. |
00001E30: 20 20 4C 44 41 20 28 50 4C 29 2C 59 0D 20 20 20 | LDA (PL),Y. |
00001E40: 20 20 20 20 53 54 41 20 42 41 43 4B 0D 20 20 20 | STA BACK. |
00001E50: 20 20 20 20 52 54 53 0D 49 4E 54 56 41 31 20 43 | RTS.INTVA1 C|
00001E60: 4D 50 20 23 24 41 37 0D 20 20 20 20 20 20 20 42 |MP #$A7. B|
00001E70: 4E 45 20 49 4E 54 56 41 32 0D 20 20 20 20 20 20 |NE INTVA2. |
00001E80: 20 4C 44 41 20 28 50 4C 29 2C 59 0D 20 20 20 20 | LDA (PL),Y. |
00001E90: 20 20 20 53 54 41 20 42 41 43 4B 2B 31 0D 20 20 | STA BACK+1. |
00001EA0: 20 20 20 20 20 49 4E 59 0D 20 20 20 20 20 20 20 | INY. |
00001EB0: 4C 44 41 20 28 50 4C 29 2C 59 0D 20 20 20 20 20 |LDA (PL),Y. |
00001EC0: 20 20 53 54 41 20 42 41 43 4B 0D 20 20 20 20 20 | STA BACK. |
00001ED0: 20 20 52 54 53 0D 49 4E 54 56 41 32 20 43 4D 50 | RTS.INTVA2 CMP|
00001EE0: 20 23 24 43 30 0D 20 20 20 20 20 20 20 41 4E 44 | #$C0. AND|
00001EF0: 20 23 31 35 0D 20 20 20 20 20 20 20 42 43 43 20 | #15. BCC |
00001F00: 49 4E 54 56 30 31 0D 20 20 20 20 20 20 20 43 4C |INTV01. CL|
00001F10: 43 0D 20 20 20 20 20 20 20 41 44 43 20 23 24 31 |C. ADC #$1|
00001F20: 30 0D 49 4E 54 56 30 31 20 53 54 41 20 42 41 43 |0.INTV01 STA BAC|
00001F30: 4B 0D 20 20 20 20 20 20 20 52 54 53 0D 3B 0D 4E |K. RTS.;.N|
00001F40: 45 58 54 41 42 0D 3B 20 20 20 20 20 20 20 20 20 |EXTAB.; |
00001F50: 20 20 30 20 31 20 32 20 33 20 34 20 35 20 36 20 | 0 1 2 3 4 5 6 |
00001F60: 37 20 38 20 39 20 41 20 42 20 43 20 44 20 45 20 |7 8 9 A B C D E |
00001F70: 46 0D 20 20 20 20 20 20 20 2E 42 59 54 20 30 2C |F. .BYT 0,|
00001F80: 31 2C 31 2C 31 2C 31 2C 31 2C 31 2C 31 2C 31 2C |1,1,1,1,1,1,1,1,|
00001F90: 31 2C 31 2C 31 2C 31 2C 31 2C 31 2C 31 20 30 0D |1,1,1,1,1,1,1 0.|
00001FA0: 20 20 20 20 20 20 20 2E 42 59 54 20 36 2C 31 2C | .BYT 6,1,|
00001FB0: 31 2C 31 2C 31 2C 31 2C 31 2C 31 2C 30 2C 33 2C |1,1,1,1,1,1,0,3,|
00001FC0: 33 2C 30 2C 30 2C 31 2C 31 2C 32 20 31 0D 20 20 |3,0,0,1,1,2 1. |
00001FD0: 20 20 20 20 20 2E 42 59 54 20 31 2C 31 2C 31 2C | .BYT 1,1,1,|
00001FE0: 31 2C 31 2C 31 2C 31 2C 31 2C 31 2C 31 2C 31 2C |1,1,1,1,1,1,1,1,|
00001FF0: 31 2C 31 2C 31 2C 31 2C 31 20 32 0D 20 20 20 20 |1,1,1,1,1 2. |
00002000: 20 20 20 2E 42 59 54 20 31 2C 31 2C 31 2C 31 2C | .BYT 1,1,1,1,|
00002010: 31 2C 31 2C 31 2C 36 2C 33 2C 31 2C 31 2C 31 2C |1,1,1,6,3,1,1,1,|
00002020: 31 2C 31 2C 31 2C 31 20 33 0D 20 20 20 20 20 20 |1,1,1,1 3. |
00002030: 20 2E 42 59 54 20 31 2C 31 2C 31 2C 31 2C 31 2C | .BYT 1,1,1,1,1,|
00002040: 31 2C 31 2C 31 2C 31 2C 31 2C 31 2C 31 2C 31 2C |1,1,1,1,1,1,1,1,|
00002050: 31 2C 31 2C 31 20 34 0D 20 20 20 20 20 20 20 2E |1,1,1 4. .|
00002060: 42 59 54 20 31 2C 31 2C 31 2C 31 2C 31 2C 31 2C |BYT 1,1,1,1,1,1,|
00002070: 31 2C 31 2C 31 2C 31 2C 31 2C 31 2C 31 2C 31 2C |1,1,1,1,1,1,1,1,|
00002080: 31 2C 31 20 35 0D 20 20 20 20 20 20 20 2E 42 59 |1,1 5. .BY|
00002090: 54 20 32 2C 31 2C 31 2C 31 2C 31 2C 31 2C 31 2C |T 2,1,1,1,1,1,1,|
000020A0: 31 2C 31 2C 31 2C 31 2C 31 2C 31 2C 31 2C 31 2C |1,1,1,1,1,1,1,1,|
000020B0: 31 20 36 0D 20 20 20 20 20 20 20 2E 42 59 54 20 |1 6. .BYT |
000020C0: 31 2C 31 2C 31 2C 31 2C 31 2C 31 2C 31 2C 31 2C |1,1,1,1,1,1,1,1,|
000020D0: 31 2C 31 2C 31 2C 31 2C 31 2C 31 2C 31 2C 31 20 |1,1,1,1,1,1,1,1 |
000020E0: 37 0D 20 20 20 20 20 20 20 2E 42 59 54 20 31 2C |7. .BYT 1,|
000020F0: 31 2C 31 2C 31 2C 31 2C 31 2C 31 2C 31 2C 31 2C |1,1,1,1,1,1,1,1,|
00002100: 31 2C 31 2C 31 2C 31 2C 31 2C 31 2C 31 20 38 0D |1,1,1,1,1,1,1 8.|
00002110: 20 20 20 20 20 20 20 2E 42 59 54 20 31 2C 31 2C | .BYT 1,1,|
00002120: 31 2C 31 2C 31 2C 31 2C 31 2C 31 2C 31 2C 31 2C |1,1,1,1,1,1,1,1,|
00002130: 31 2C 31 2C 31 2C 31 2C 31 2C 31 20 39 0D 20 20 |1,1,1,1,1,1 9. |
00002140: 20 20 20 20 20 2E 42 59 54 20 32 2C 32 2C 32 2C | .BYT 2,2,2,|
00002150: 33 2C 32 2C 33 2C 32 2C 33 2C 36 2C 36 2C 31 2C |3,2,3,2,3,6,6,1,|
00002160: 31 2C 31 2C 31 2C 31 2C 31 20 41 0D 20 20 20 20 |1,1,1,1,1 A. |
00002170: 20 20 20 2E 42 59 54 20 31 2C 31 2C 31 2C 31 2C | .BYT 1,1,1,1,|
00002180: 31 2C 31 2C 31 2C 31 2C 31 2C 31 2C 31 2C 31 2C |1,1,1,1,1,1,1,1,|
00002190: 31 2C 31 2C 31 2C 31 20 42 0D 20 20 20 20 20 20 |1,1,1,1 B. |
000021A0: 20 2E 42 59 54 20 31 2C 31 2C 31 2C 31 2C 31 2C | .BYT 1,1,1,1,1,|
000021B0: 31 2C 31 2C 31 2C 31 2C 31 2C 31 2C 31 2C 31 2C |1,1,1,1,1,1,1,1,|
000021C0: 31 2C 31 2C 31 20 43 0D 20 20 20 20 20 20 20 2E |1,1,1 C. .|
000021D0: 42 59 54 20 31 2C 31 2C 31 2C 31 2C 31 2C 31 2C |BYT 1,1,1,1,1,1,|
000021E0: 31 2C 31 2C 31 2C 31 2C 31 2C 31 2C 31 2C 31 2C |1,1,1,1,1,1,1,1,|
000021F0: 31 2C 31 20 44 0D 20 20 20 20 20 20 20 2E 42 59 |1,1 D. .BY|
00002200: 54 20 32 2C 32 2C 32 2C 33 2C 32 2C 33 2C 31 2C |T 2,2,2,3,2,3,1,|
00002210: 30 2C 31 2C 32 2C 33 2C 34 2C 35 2C 36 2C 37 2C |0,1,2,3,4,5,6,7,|
00002220: 38 20 45 0D 20 20 20 20 20 20 20 2E 42 59 54 20 |8 E. .BYT |
00002230: 31 2C 31 2C 31 2C 31 2C 31 2C 31 2C 31 2C 31 2C |1,1,1,1,1,1,1,1,|
00002240: 31 2C 31 2C 31 2C 31 2C 31 2C 31 2C 31 2C 31 20 |1,1,1,1,1,1,1,1 |
00002250: 46 0D 3B 0D 4E 45 58 54 20 20 20 4C 44 59 20 23 |F.;.NEXT LDY #|
00002260: 30 0D 20 20 20 20 20 20 20 4C 44 41 20 28 43 4F |0. LDA (CO|
00002270: 55 4E 54 29 2C 59 0D 20 20 20 20 20 20 20 54 41 |UNT),Y. TA|
00002280: 58 0D 20 20 20 20 20 20 20 4C 44 41 20 4E 45 58 |X. LDA NEX|
00002290: 54 41 42 2C 58 0D 20 20 20 20 20 20 20 42 45 51 |TAB,X. BEQ|
000022A0: 20 4E 45 58 54 41 0D 4E 45 58 54 41 44 20 43 4C | NEXTA.NEXTAD CL|
000022B0: 43 0D 20 20 20 20 20 20 20 41 44 43 20 43 4F 55 |C. ADC COU|
000022C0: 4E 54 0D 20 20 20 20 20 20 20 53 54 41 20 43 4F |NT. STA CO|
000022D0: 55 4E 54 0D 20 20 20 20 20 20 20 42 43 43 20 4E |UNT. BCC N|
000022E0: 45 58 54 30 30 0D 20 20 20 20 20 20 20 49 4E 43 |EXT00. INC|
000022F0: 20 43 4F 55 4E 54 2B 31 0D 4E 45 58 54 30 30 20 | COUNT+1.NEXT00 |
00002300: 52 54 53 0D 4E 45 58 54 41 20 20 4C 44 41 20 28 |RTS.NEXTA LDA (|
00002310: 43 4F 55 4E 54 29 2C 59 0D 20 20 20 20 20 20 20 |COUNT),Y. |
00002320: 43 4D 50 20 23 24 45 37 0D 20 20 20 20 20 20 20 |CMP #$E7. |
00002330: 42 4E 45 20 4E 45 58 54 42 0D 20 20 20 20 20 20 |BNE NEXTB. |
00002340: 20 49 4E 59 0D 20 20 20 20 20 20 20 4C 44 41 20 | INY. LDA |
00002350: 28 43 4F 55 4E 54 29 2C 59 0D 20 20 20 20 20 20 |(COUNT),Y. |
00002360: 20 43 4C 43 0D 20 20 20 20 20 20 20 41 44 43 20 | CLC. ADC |
00002370: 23 32 0D 20 20 20 20 20 20 20 42 43 43 20 4E 45 |#2. BCC NE|
00002380: 58 54 41 44 0D 4E 45 58 54 42 20 20 43 4D 50 20 |XTAD.NEXTB CMP |
00002390: 23 32 37 0D 20 20 20 20 20 20 20 42 43 43 20 4E |#27. BCC N|
000023A0: 45 58 54 43 0D 20 20 20 20 20 20 20 49 4E 59 0D |EXTC. INY.|
000023B0: 20 20 20 20 20 20 20 4C 44 41 20 28 43 4F 55 4E | LDA (COUN|
000023C0: 54 29 2C 59 0D 20 20 20 20 20 20 20 42 4E 45 20 |T),Y. BNE |
000023D0: 4E 45 58 54 41 44 0D 4E 45 58 54 43 20 20 43 4D |NEXTAD.NEXTC CM|
000023E0: 50 20 23 32 34 0D 20 20 20 20 20 20 20 42 4E 45 |P #24. BNE|
000023F0: 20 4E 45 58 54 44 0D 4E 45 58 54 30 31 20 49 4E | NEXTD.NEXT01 IN|
00002400: 59 0D 20 20 20 20 20 20 20 4C 44 41 20 28 43 4F |Y. LDA (CO|
00002410: 55 4E 54 29 2C 59 0D 20 20 20 20 20 20 20 43 4D |UNT),Y. CM|
00002420: 50 20 23 27 3A 27 0D 20 20 20 20 20 20 20 42 4E |P #':'. BN|
00002430: 45 20 4E 45 58 54 30 31 0D 20 20 20 20 20 20 20 |E NEXT01. |
00002440: 49 4E 59 0D 4E 45 58 54 30 32 20 54 59 41 0D 20 |INY.NEXT02 TYA. |
00002450: 20 20 20 20 20 20 42 4E 45 20 4E 45 58 54 41 44 | BNE NEXTAD|
00002460: 0D 4E 45 58 54 44 20 20 49 4E 59 0D 20 20 20 20 |.NEXTD INY. |
00002470: 20 20 20 43 50 59 20 23 31 30 30 0D 20 20 20 20 | CPY #100. |
00002480: 20 20 20 42 45 51 20 4E 45 58 54 30 32 0D 20 20 | BEQ NEXT02. |
00002490: 20 20 20 20 20 4C 44 41 20 28 43 4F 55 4E 54 29 | LDA (COUNT)|
000024A0: 2C 59 0D 20 20 20 20 20 20 20 43 4D 50 20 23 24 |,Y. CMP #$|
000024B0: 39 45 0D 20 20 20 20 20 20 20 42 4E 45 20 4E 45 |9E. BNE NE|
000024C0: 58 54 44 0D 20 20 20 20 20 20 20 49 4E 59 0D 20 |XTD. INY. |
000024D0: 20 20 20 20 20 20 4C 44 41 20 28 43 4F 55 4E 54 | LDA (COUNT|
000024E0: 29 2C 59 0D 20 20 20 20 20 20 20 43 4D 50 20 23 |),Y. CMP #|
000024F0: 27 33 27 0D 20 20 20 20 20 20 20 42 4E 45 20 4E |'3'. BNE N|
00002500: 45 58 54 44 0D 20 20 20 20 20 20 20 49 4E 59 0D |EXTD. INY.|
00002510: 20 20 20 20 20 20 20 4C 44 41 20 28 43 4F 55 4E | LDA (COUN|
00002520: 54 29 2C 59 0D 20 20 20 20 20 20 20 43 4D 50 20 |T),Y. CMP |
00002530: 23 27 32 27 0D 20 20 20 20 20 20 20 42 4E 45 20 |#'2'. BNE |
00002540: 4E 45 58 54 44 0D 20 20 20 20 20 20 20 49 4E 59 |NEXTD. INY|
00002550: 0D 20 20 20 20 20 20 20 4C 44 41 20 28 43 4F 55 |. LDA (COU|
00002560: 4E 54 29 2C 59 0D 20 20 20 20 20 20 20 43 4D 50 |NT),Y. CMP|
00002570: 20 23 27 32 27 0D 20 20 20 20 20 20 20 42 4E 45 | #'2'. BNE|
00002580: 20 4E 45 58 54 44 0D 20 20 20 20 20 20 20 49 4E | NEXTD. IN|
00002590: 59 0D 20 20 20 20 20 20 20 4C 44 41 20 28 43 4F |Y. LDA (CO|
000025A0: 55 4E 54 29 2C 59 0D 20 20 20 20 20 20 20 43 4D |UNT),Y. CM|
000025B0: 50 20 23 27 30 27 0D 20 20 20 20 20 20 20 42 4E |P #'0'. BN|
000025C0: 45 20 4E 45 58 54 44 0D 20 20 20 20 20 20 20 49 |E NEXTD. I|
000025D0: 4E 59 0D 20 20 20 20 20 20 20 4C 44 41 20 28 43 |NY. LDA (C|
000025E0: 4F 55 4E 54 29 2C 59 0D 20 20 20 20 20 20 20 43 |OUNT),Y. C|
000025F0: 4D 50 20 23 27 3A 27 0D 20 20 20 20 20 20 20 42 |MP #':'. B|
00002600: 4E 45 20 4E 45 58 54 44 0D 20 20 20 20 20 20 20 |NE NEXTD. |
00002610: 49 4E 59 0D 20 20 20 20 20 20 20 54 59 41 0D 20 |INY. TYA. |
00002620: 20 20 20 20 20 20 4A 4D 50 20 4E 45 58 54 41 44 | JMP NEXTAD|
00002630: 0D 3B 0D 47 45 54 56 41 4C 20 4C 44 59 20 23 30 |.;.GETVAL LDY #0|
00002640: 0D 20 20 20 20 20 20 20 4C 44 41 20 23 24 33 37 |. LDA #$37|
00002650: 0D 20 20 20 20 20 20 20 53 54 41 20 31 0D 20 20 |. STA 1. |
00002660: 20 20 20 20 20 4C 44 41 20 50 52 49 4F 52 43 0D | LDA PRIORC.|
00002670: 20 20 20 20 20 20 20 50 48 41 0D 20 20 20 20 20 | PHA. |
00002680: 20 20 4C 44 41 20 28 50 4C 29 2C 59 0D 20 20 20 | LDA (PL),Y. |
00002690: 20 20 20 20 43 4D 50 20 23 24 41 38 0D 20 20 20 | CMP #$A8. |
000026A0: 20 20 20 20 42 4E 45 20 47 45 54 49 4E 54 0D 20 | BNE GETINT. |
000026B0: 20 20 20 20 20 20 4C 44 59 20 50 4C 2B 31 0D 20 | LDY PL+1. |
000026C0: 20 20 20 20 20 20 4C 44 41 20 50 4C 0D 20 20 20 | LDA PL. |
000026D0: 20 20 20 20 43 4C 43 0D 20 20 20 20 20 20 20 41 | CLC. A|
000026E0: 44 43 20 23 31 0D 20 20 20 20 20 20 20 42 43 43 |DC #1. BCC|
000026F0: 20 47 45 54 56 30 0D 20 20 20 20 20 20 20 49 4E | GETV0. IN|
00002700: 59 0D 47 45 54 56 30 20 20 4A 53 52 20 24 42 42 |Y.GETV0 JSR $BB|
00002710: 41 32 0D 20 20 20 20 20 20 20 4A 53 52 20 24 42 |A2. JSR $B|
00002720: 44 44 44 0D 20 20 20 20 20 20 20 4C 44 41 20 23 |DDD. LDA #|
00002730: 24 33 36 0D 20 20 20 20 20 20 20 53 54 41 20 31 |$36. STA 1|
00002740: 0D 20 20 20 20 20 20 20 50 4C 41 0D 20 20 20 20 |. PLA. |
00002750: 20 20 20 53 54 41 20 50 52 49 4F 52 43 0D 20 20 | STA PRIORC. |
00002760: 20 20 20 20 20 52 54 53 0D 3B 0D 47 45 54 49 4E | RTS.;.GETIN|
00002770: 54 20 4A 53 52 20 49 4E 54 56 41 4C 0D 20 20 20 |T JSR INTVAL. |
00002780: 20 20 20 20 4C 44 59 20 42 41 43 4B 0D 20 20 20 | LDY BACK. |
00002790: 20 20 20 20 4C 44 41 20 42 41 43 4B 2B 31 0D 20 | LDA BACK+1. |
000027A0: 20 20 20 20 20 20 4A 53 52 20 24 42 33 39 31 0D | JSR $B391.|
000027B0: 20 20 20 20 20 20 20 4A 53 52 20 24 42 44 44 44 | JSR $BDDD|
000027C0: 0D 20 20 20 20 20 20 20 4C 44 41 20 23 24 33 36 |. LDA #$36|
000027D0: 0D 20 20 20 20 20 20 20 53 54 41 20 31 0D 20 20 |. STA 1. |
000027E0: 20 20 20 20 20 50 4C 41 0D 20 20 20 20 20 20 20 | PLA. |
000027F0: 53 54 41 20 50 52 49 4F 52 43 0D 20 20 20 20 20 |STA PRIORC. |
00002800: 20 20 52 54 53 0D 3B 0D 43 49 4E 54 20 20 20 4C | RTS.;.CINT L|
00002810: 44 41 20 23 24 33 37 0D 20 20 20 20 20 20 20 53 |DA #$37. S|
00002820: 54 41 20 31 0D 20 20 20 20 20 20 20 4C 44 59 20 |TA 1. LDY |
00002830: 42 41 43 4B 0D 20 20 20 20 20 20 20 4C 44 41 20 |BACK. LDA |
00002840: 42 41 43 4B 2B 31 0D 20 20 20 20 20 20 20 4A 53 |BACK+1. JS|
00002850: 52 20 24 42 33 39 31 0D 20 20 20 20 20 20 20 4A |R $B391. J|
00002860: 53 52 20 24 42 44 44 44 0D 20 20 20 20 20 20 20 |SR $BDDD. |
00002870: 4C 44 41 20 23 24 33 36 0D 20 20 20 20 20 20 20 |LDA #$36. |
00002880: 53 54 41 20 31 0D 20 20 20 20 20 20 20 4C 44 41 |STA 1. LDA|
00002890: 20 23 31 0D 20 20 20 20 20 20 20 4C 44 59 20 23 | #1. LDY #|
000028A0: 30 0D 20 20 20 20 20 20 20 53 54 41 20 42 41 43 |0. STA BAC|
000028B0: 4B 2B 31 0D 20 20 20 20 20 20 20 53 54 59 20 42 |K+1. STY B|
000028C0: 41 43 4B 0D 20 20 20 20 20 20 20 4C 44 41 20 28 |ACK. LDA (|
000028D0: 42 41 43 4B 29 2C 59 0D 20 20 20 20 20 20 20 43 |BACK),Y. C|
000028E0: 4D 50 20 23 33 32 0D 20 20 20 20 20 20 20 42 4E |MP #32. BN|
000028F0: 45 20 43 49 4E 54 30 0D 20 20 20 20 20 20 20 49 |E CINT0. I|
00002900: 4E 43 20 42 41 43 4B 0D 43 49 4E 54 30 20 20 4C |NC BACK.CINT0 L|
00002910: 44 41 20 28 42 41 43 4B 29 2C 59 0D 20 20 20 20 |DA (BACK),Y. |
00002920: 20 20 20 53 54 41 20 28 50 54 29 2C 59 0D 20 20 | STA (PT),Y. |
00002930: 20 20 20 20 20 42 45 51 20 43 49 4E 54 31 0D 20 | BEQ CINT1. |
00002940: 20 20 20 20 20 20 49 4E 59 0D 20 20 20 20 20 20 | INY. |
00002950: 20 42 4E 45 20 43 49 4E 54 30 0D 43 49 4E 54 31 | BNE CINT0.CINT1|
00002960: 20 20 52 54 53 0D 3B 0D 47 45 54 53 54 52 20 4C | RTS.;.GETSTR L|
00002970: 44 59 20 23 30 0D 20 20 20 20 20 20 20 4C 44 41 |DY #0. LDA|
00002980: 20 23 33 34 0D 20 20 20 20 20 20 20 53 54 41 20 | #34. STA |
00002990: 28 50 54 29 2C 59 0D 47 45 54 53 54 31 20 4C 44 |(PT),Y.GETST1 LD|
000029A0: 41 20 28 50 4C 29 2C 59 0D 20 20 20 20 20 20 20 |A (PL),Y. |
000029B0: 43 50 59 20 49 0D 20 20 20 20 20 20 20 42 43 53 |CPY I. BCS|
000029C0: 20 47 45 54 53 54 32 0D 20 20 20 20 20 20 20 49 | GETST2. I|
000029D0: 4E 59 0D 20 20 20 20 20 20 20 53 54 41 20 28 50 |NY. STA (P|
000029E0: 54 29 2C 59 0D 20 20 20 20 20 20 20 42 4E 45 20 |T),Y. BNE |
000029F0: 47 45 54 53 54 31 0D 47 45 54 53 54 32 20 49 4E |GETST1.GETST2 IN|
00002A00: 59 0D 20 20 20 20 20 20 20 4C 44 41 20 23 33 34 |Y. LDA #34|
00002A10: 0D 20 20 20 20 20 20 20 53 54 41 20 28 50 54 29 |. STA (PT)|
00002A20: 2C 59 0D 20 20 20 20 20 20 20 49 4E 59 0D 20 20 |,Y. INY. |
00002A30: 20 20 20 20 20 4C 44 41 20 23 30 0D 20 20 20 20 | LDA #0. |
00002A40: 20 20 20 53 54 41 20 28 50 54 29 2C 59 0D 20 20 | STA (PT),Y. |
00002A50: 20 20 20 20 20 52 54 53 0D 3B 0D 50 55 53 48 52 | RTS.;.PUSHR|
00002A60: 47 20 44 45 43 20 57 50 2B 31 0D 20 20 20 20 20 |G DEC WP+1. |
00002A70: 20 20 4C 44 41 20 57 50 2B 31 0D 20 20 20 20 20 | LDA WP+1. |
00002A80: 20 20 43 4D 50 20 41 52 45 4E 2B 31 0D 20 20 20 | CMP AREN+1. |
00002A90: 20 20 20 20 42 4E 45 20 50 55 53 48 52 30 0D 20 | BNE PUSHR0. |
00002AA0: 20 20 20 20 20 20 4A 4D 50 20 4E 4F 4D 45 4D 0D | JMP NOMEM.|
00002AB0: 50 55 53 48 52 30 20 4C 44 59 20 23 30 0D 50 55 |PUSHR0 LDY #0.PU|
00002AC0: 53 48 52 31 20 4C 44 41 20 24 33 44 2C 59 0D 20 |SHR1 LDA $3D,Y. |
00002AD0: 20 20 20 20 20 20 53 54 41 20 28 57 50 29 2C 59 | STA (WP),Y|
00002AE0: 0D 20 20 20 20 20 20 20 49 4E 59 0D 20 20 20 20 |. INY. |
00002AF0: 20 20 20 43 50 59 20 23 31 36 0D 20 20 20 20 20 | CPY #16. |
00002B00: 20 20 42 4E 45 20 50 55 53 48 52 31 0D 20 20 20 | BNE PUSHR1. |
00002B10: 20 20 20 20 52 54 53 0D 3B 0D 50 4F 50 52 47 20 | RTS.;.POPRG |
00002B20: 20 4C 44 59 20 23 30 0D 50 4F 50 52 47 31 20 4C | LDY #0.POPRG1 L|
00002B30: 44 41 20 28 57 50 29 2C 59 0D 20 20 20 20 20 20 |DA (WP),Y. |
00002B40: 20 53 54 41 20 24 33 44 2C 59 0D 20 20 20 20 20 | STA $3D,Y. |
00002B50: 20 20 49 4E 59 0D 20 20 20 20 20 20 20 43 50 59 | INY. CPY|
00002B60: 20 23 31 36 0D 20 20 20 20 20 20 20 42 4E 45 20 | #16. BNE |
00002B70: 50 4F 50 52 47 31 0D 20 20 20 20 20 20 20 49 4E |POPRG1. IN|
00002B80: 43 20 57 50 2B 31 0D 20 20 20 20 20 20 20 52 54 |C WP+1. RT|
00002B90: 53 0D 3B 0D 56 41 52 4E 41 31 20 50 48 57 20 43 |S.;.VARNA1 PHW C|
00002BA0: 4F 55 4E 54 0D 20 20 20 20 20 20 20 4C 44 59 20 |OUNT. LDY |
00002BB0: 23 30 0D 20 20 20 20 20 20 20 4C 44 41 20 28 43 |#0. LDA (C|
00002BC0: 4F 55 4E 54 29 2C 59 0D 20 20 20 20 20 20 20 53 |OUNT),Y. S|
00002BD0: 54 59 20 42 41 43 4B 2B 31 0D 20 20 20 20 20 20 |TY BACK+1. |
00002BE0: 20 43 4D 50 20 23 24 45 35 0D 20 20 20 20 20 20 | CMP #$E5. |
00002BF0: 20 42 4E 45 20 56 41 52 4E 30 31 0D 20 20 20 20 | BNE VARN01. |
00002C00: 20 20 20 49 4E 59 0D 20 20 20 20 20 20 20 4C 44 | INY. LD|
00002C10: 41 20 28 43 4F 55 4E 54 29 2C 59 0D 20 20 20 20 |A (COUNT),Y. |
00002C20: 20 20 20 53 54 41 20 42 41 43 4B 2B 31 0D 56 41 | STA BACK+1.VA|
00002C30: 52 4E 30 31 20 49 4E 59 0D 20 20 20 20 20 20 20 |RN01 INY. |
00002C40: 4C 44 41 20 28 43 4F 55 4E 54 29 2C 59 0D 20 20 |LDA (COUNT),Y. |
00002C50: 20 20 20 20 20 4A 53 52 20 56 41 52 4E 35 0D 20 | JSR VARN5. |
00002C60: 20 20 20 20 20 20 50 4C 57 20 43 4F 55 4E 54 0D | PLW COUNT.|
00002C70: 20 20 20 20 20 20 20 52 54 53 0D 3B 0D 56 41 52 | RTS.;.VAR|
00002C80: 4E 41 4D 20 4C 44 59 20 23 30 0D 20 20 20 20 20 |NAM LDY #0. |
00002C90: 20 20 4C 44 41 20 28 50 4C 29 2C 59 0D 20 20 20 | LDA (PL),Y. |
00002CA0: 20 20 20 20 41 4E 44 20 23 24 33 46 0D 20 20 20 | AND #$3F. |
00002CB0: 20 20 20 20 53 54 41 20 49 0D 20 20 20 20 20 20 | STA I. |
00002CC0: 20 43 4D 50 20 23 33 32 0D 20 20 20 20 20 20 20 | CMP #32. |
00002CD0: 42 43 53 20 56 41 52 4E 31 0D 20 20 20 20 20 20 |BCS VARN1. |
00002CE0: 20 53 54 41 20 42 41 43 4B 0D 20 20 20 20 20 20 | STA BACK. |
00002CF0: 20 53 54 59 20 42 41 43 4B 2B 31 0D 20 20 20 20 | STY BACK+1. |
00002D00: 20 20 20 4A 53 52 20 56 4E 41 4D 0D 20 20 20 20 | JSR VNAM. |
00002D10: 20 20 20 4A 4D 50 20 56 41 52 4E 43 0D 56 41 52 | JMP VARNC.VAR|
00002D20: 4E 31 20 20 43 4D 50 20 23 33 35 0D 20 20 20 20 |N1 CMP #35. |
00002D30: 20 20 20 42 4E 45 20 56 41 52 4E 32 0D 20 20 20 | BNE VARN2. |
00002D40: 20 20 20 20 49 4E 59 0D 20 20 20 20 20 20 20 4C | INY. L|
00002D50: 44 41 20 28 50 4C 29 2C 59 0D 20 20 20 20 20 20 |DA (PL),Y. |
00002D60: 20 53 54 41 20 42 41 43 4B 2B 31 0D 20 20 20 20 | STA BACK+1. |
00002D70: 20 20 20 49 4E 59 0D 20 20 20 20 20 20 20 4C 44 | INY. LD|
00002D80: 41 20 28 50 4C 29 2C 59 0D 20 20 20 20 20 20 20 |A (PL),Y. |
00002D90: 53 54 41 20 42 41 43 4B 0D 20 20 20 20 20 20 20 |STA BACK. |
00002DA0: 4A 53 52 20 56 4E 41 4D 0D 20 20 20 20 20 20 20 |JSR VNAM. |
00002DB0: 4A 4D 50 20 56 41 52 4E 43 0D 56 41 52 4E 32 20 |JMP VARNC.VARN2 |
00002DC0: 20 42 43 53 20 56 41 52 4E 33 0D 20 20 20 20 20 | BCS VARN3. |
00002DD0: 20 20 41 4E 44 20 23 33 0D 20 20 20 20 20 20 20 | AND #3. |
00002DE0: 53 54 41 20 42 41 43 4B 2B 31 0D 20 20 20 20 20 |STA BACK+1. |
00002DF0: 20 20 49 4E 59 0D 20 20 20 20 20 20 20 4C 44 41 | INY. LDA|
00002E00: 20 28 50 4C 29 2C 59 0D 20 20 20 20 20 20 20 53 | (PL),Y. S|
00002E10: 54 41 20 42 41 43 4B 0D 20 20 20 20 20 20 20 4A |TA BACK. J|
00002E20: 53 52 20 56 4E 41 4D 0D 56 41 52 4E 43 20 20 4C |SR VNAM.VARNC L|
00002E30: 44 59 20 23 30 0D 20 20 20 20 20 20 20 4C 44 41 |DY #0. LDA|
00002E40: 20 24 31 30 30 2C 59 0D 20 20 20 20 20 20 20 53 | $100,Y. S|
00002E50: 54 41 20 28 50 54 29 2C 59 0D 20 20 20 20 20 20 |TA (PT),Y. |
00002E60: 20 42 45 51 20 56 41 52 4E 45 4E 0D 20 20 20 20 | BEQ VARNEN. |
00002E70: 20 20 20 49 4E 59 0D 20 20 20 20 20 20 20 42 4E | INY. BN|
00002E80: 45 20 56 41 52 4E 43 2B 32 0D 56 41 52 4E 45 4E |E VARNC+2.VARNEN|
00002E90: 20 4D 56 57 20 50 4C 2C 42 41 43 4B 0D 20 20 20 | MVW PL,BACK. |
00002EA0: 20 20 20 20 52 54 53 0D 3B 0D 56 41 52 4E 33 20 | RTS.;.VARN3 |
00002EB0: 20 53 54 59 20 42 41 43 4B 2B 31 0D 20 20 20 20 | STY BACK+1. |
00002EC0: 20 20 20 43 4D 50 20 23 33 37 0D 20 20 20 20 20 | CMP #37. |
00002ED0: 20 20 42 4E 45 20 56 41 52 4E 34 0D 20 20 20 20 | BNE VARN4. |
00002EE0: 20 20 20 49 4E 59 0D 20 20 20 20 20 20 20 4C 44 | INY. LD|
00002EF0: 41 20 28 50 4C 29 2C 59 0D 20 20 20 20 20 20 20 |A (PL),Y. |
00002F00: 53 54 41 20 42 41 43 4B 2B 31 0D 56 41 52 4E 34 |STA BACK+1.VARN4|
00002F10: 20 20 49 4E 59 0D 20 20 20 20 20 20 20 4C 44 41 | INY. LDA|
00002F20: 20 28 50 4C 29 2C 59 0D 56 41 52 4E 35 20 20 53 | (PL),Y.VARN5 S|
00002F30: 54 41 20 42 41 43 4B 0D 20 20 20 20 20 20 20 4A |TA BACK. J|
00002F40: 53 52 20 41 52 4E 41 4D 0D 20 20 20 20 20 20 20 |SR ARNAM. |
00002F50: 50 48 41 0D 20 20 20 20 20 20 20 4A 53 52 20 56 |PHA. JSR V|
00002F60: 41 52 4E 43 0D 20 20 20 20 20 20 20 50 4C 41 0D |ARNC. PLA.|
00002F70: 20 20 20 20 20 20 20 53 54 41 20 42 41 43 4B 0D | STA BACK.|
00002F80: 20 20 20 20 20 20 20 4A 53 52 20 49 4E 43 50 54 | JSR INCPT|
00002F90: 0D 47 45 54 4D 55 4C 20 4C 44 41 20 23 27 28 27 |.GETMUL LDA #'('|
00002FA0: 0D 20 20 20 20 20 20 20 53 54 41 20 28 50 54 29 |. STA (PT)|
00002FB0: 2C 59 0D 20 20 20 20 20 20 20 54 59 41 0D 20 20 |,Y. TYA. |
00002FC0: 20 20 20 20 20 53 45 43 0D 20 20 20 20 20 20 20 | SEC. |
00002FD0: 41 44 43 20 50 54 0D 20 20 20 20 20 20 20 53 54 |ADC PT. ST|
00002FE0: 41 20 50 54 0D 20 20 20 20 20 20 20 4A 53 52 20 |A PT. JSR |
00002FF0: 50 55 53 48 52 47 0D 20 20 20 20 20 20 20 4C 44 |PUSHRG. LD|
00003000: 41 20 42 41 43 4B 0D 20 20 20 20 20 20 20 50 48 |A BACK. PH|
00003010: 41 0D 20 20 20 20 20 20 20 4C 44 41 20 23 31 36 |A. LDA #16|
00003020: 0D 20 20 20 20 20 20 20 4C 44 59 20 57 50 2B 31 |. LDY WP+1|
00003030: 0D 20 20 20 20 20 20 20 53 54 41 20 50 54 0D 20 |. STA PT. |
00003040: 20 20 20 20 20 20 53 54 59 20 50 54 2B 31 0D 20 | STY PT+1. |
00003050: 20 20 20 20 20 20 4A 53 52 20 47 45 54 45 58 50 | JSR GETEXP|
00003060: 0D 20 20 20 20 20 20 20 4C 44 41 20 23 31 31 36 |. LDA #116|
00003070: 0D 20 20 20 20 20 20 20 4C 44 59 20 57 50 2B 31 |. LDY WP+1|
00003080: 0D 20 20 20 20 20 20 20 53 54 41 20 50 32 0D 20 |. STA P2. |
00003090: 20 20 20 20 20 20 53 54 59 20 50 32 2B 31 0D 56 | STY P2+1.V|
000030A0: 41 52 4E 4C 20 20 4C 44 41 20 23 31 36 0D 20 20 |ARNL LDA #16. |
000030B0: 20 20 20 20 20 53 54 41 20 50 54 0D 20 20 20 20 | STA PT. |
000030C0: 20 20 20 50 4C 41 0D 20 20 20 20 20 20 20 53 45 | PLA. SE|
000030D0: 43 0D 20 20 20 20 20 20 20 53 42 43 20 23 31 0D |C. SBC #1.|
000030E0: 20 20 20 20 20 20 20 42 4E 45 20 56 41 52 4E 4C | BNE VARNL|
000030F0: 30 0D 20 20 20 20 20 20 20 4A 4D 50 20 56 41 52 |0. JMP VAR|
00003100: 4E 45 31 0D 56 41 52 4E 4C 30 20 50 48 41 0D 20 |NE1.VARNL0 PHA. |
00003110: 20 20 20 20 20 20 4C 44 59 20 23 30 0D 56 41 52 | LDY #0.VAR|
00003120: 4E 4C 31 20 4C 44 41 20 28 50 54 29 2C 59 0D 20 |NL1 LDA (PT),Y. |
00003130: 20 20 20 20 20 20 53 54 41 20 28 50 32 29 2C 59 | STA (P2),Y|
00003140: 0D 20 20 20 20 20 20 20 42 45 51 20 56 41 52 4E |. BEQ VARN|
00003150: 4C 32 0D 20 20 20 20 20 20 20 49 4E 59 0D 20 20 |L2. INY. |
00003160: 20 20 20 20 20 42 4E 45 20 56 41 52 4E 4C 31 0D | BNE VARNL1.|
00003170: 56 41 52 4E 4C 32 20 4D 56 57 20 42 41 43 4B 2C |VARNL2 MVW BACK,|
00003180: 50 4C 0D 20 20 20 20 20 20 20 4A 53 52 20 47 45 |PL. JSR GE|
00003190: 54 45 58 50 0D 20 20 20 20 20 20 20 4C 44 41 20 |TEXP. LDA |
000031A0: 23 31 36 0D 20 20 20 20 20 20 20 53 54 41 20 50 |#16. STA P|
000031B0: 54 0D 20 20 20 20 20 20 20 4C 44 41 20 23 34 34 |T. LDA #44|
000031C0: 0D 20 20 20 20 20 20 20 4A 53 52 20 41 44 44 43 |. JSR ADDC|
000031D0: 48 52 0D 20 20 20 20 20 20 20 4C 44 41 20 23 31 |HR. LDA #1|
000031E0: 31 36 0D 20 20 20 20 20 20 20 4C 44 59 20 57 50 |16. LDY WP|
000031F0: 2B 31 0D 20 20 20 20 20 20 20 53 54 41 20 50 32 |+1. STA P2|
00003200: 0D 20 20 20 20 20 20 20 53 54 59 20 50 32 2B 31 |. STY P2+1|
00003210: 0D 20 20 20 20 20 20 20 4C 44 59 20 23 30 0D 56 |. LDY #0.V|
00003220: 41 52 4E 4C 33 20 4C 44 41 20 28 50 32 29 2C 59 |ARNL3 LDA (P2),Y|
00003230: 0D 20 20 20 20 20 20 20 53 54 41 20 28 50 54 29 |. STA (PT)|
00003240: 2C 59 0D 20 20 20 20 20 20 20 42 45 51 20 56 41 |,Y. BEQ VA|
00003250: 52 4E 4C 34 0D 20 20 20 20 20 20 20 49 4E 59 0D |RNL4. INY.|
00003260: 20 20 20 20 20 20 20 42 4E 45 20 56 41 52 4E 4C | BNE VARNL|
00003270: 33 0D 56 41 52 4E 4C 34 20 4C 44 41 20 23 31 36 |3.VARNL4 LDA #16|
00003280: 0D 20 20 20 20 20 20 20 53 54 41 20 50 54 0D 20 |. STA PT. |
00003290: 20 20 20 20 20 20 4A 4D 50 20 56 41 52 4E 4C 0D | JMP VARNL.|
000032A0: 56 41 52 4E 45 31 20 4C 44 59 20 23 32 35 35 0D |VARNE1 LDY #255.|
000032B0: 56 41 52 4E 45 32 20 49 4E 59 0D 20 20 20 20 20 |VARNE2 INY. |
000032C0: 20 20 4C 44 41 20 28 50 54 29 2C 59 0D 20 20 20 | LDA (PT),Y. |
000032D0: 20 20 20 20 42 4E 45 20 56 41 52 4E 45 32 0D 20 | BNE VARNE2. |
000032E0: 20 20 20 20 20 20 4C 44 41 20 23 27 29 27 0D 20 | LDA #')'. |
000032F0: 20 20 20 20 20 20 53 54 41 20 28 50 54 29 2C 59 | STA (PT),Y|
00003300: 0D 20 20 20 20 20 20 20 54 59 41 0D 20 20 20 20 |. TYA. |
00003310: 20 20 20 50 48 41 0D 20 20 20 20 20 20 20 4D 56 | PHA. MV|
00003320: 57 20 50 54 2C 24 35 46 0D 20 20 20 20 20 20 20 |W PT,$5F. |
00003330: 4A 53 52 20 50 4F 50 52 47 0D 20 20 20 20 20 20 |JSR POPRG. |
00003340: 20 50 4C 41 0D 20 20 20 20 20 20 20 54 41 59 0D | PLA. TAY.|
00003350: 20 20 20 20 20 20 20 49 4E 59 0D 20 20 20 20 20 | INY. |
00003360: 20 20 4C 44 41 20 23 30 0D 20 20 20 20 20 20 20 | LDA #0. |
00003370: 53 54 41 20 28 50 54 29 2C 59 0D 20 20 20 20 20 |STA (PT),Y. |
00003380: 20 20 44 45 59 0D 56 41 52 4E 45 33 20 4C 44 41 | DEY.VARNE3 LDA|
00003390: 20 28 24 35 46 29 2C 59 0D 20 20 20 20 20 20 20 | ($5F),Y. |
000033A0: 53 54 41 20 28 50 54 29 2C 59 0D 20 20 20 20 20 |STA (PT),Y. |
000033B0: 20 20 44 45 59 0D 20 20 20 20 20 20 20 42 50 4C | DEY. BPL|
000033C0: 20 56 41 52 4E 45 33 0D 20 20 20 20 20 20 20 52 | VARNE3. R|
000033D0: 54 53 0D 3B 0D 56 4E 41 4D 20 20 20 4C 44 41 20 |TS.;.VNAM LDA |
000033E0: 42 41 43 4B 0D 20 20 20 20 20 20 20 41 53 4C 20 |BACK. ASL |
000033F0: 41 0D 20 20 20 20 20 20 20 52 4F 4C 20 42 41 43 |A. ROL BAC|
00003400: 4B 2B 31 0D 20 20 20 20 20 20 20 43 4C 43 0D 20 |K+1. CLC. |
00003410: 20 20 20 20 20 20 41 44 43 20 56 53 54 0D 20 20 | ADC VST. |
00003420: 20 20 20 20 20 53 54 41 20 24 36 31 0D 20 20 20 | STA $61. |
00003430: 20 20 20 20 4C 44 41 20 42 41 43 4B 2B 31 0D 20 | LDA BACK+1. |
00003440: 20 20 20 20 20 20 41 44 43 20 56 53 54 2B 31 0D | ADC VST+1.|
00003450: 20 20 20 20 20 20 20 53 54 41 20 24 36 32 0D 56 | STA $62.V|
00003460: 4E 41 4D 45 20 20 4C 44 59 20 23 30 0D 20 20 20 |NAME LDY #0. |
00003470: 20 20 20 20 4C 44 41 20 28 24 36 31 29 2C 59 0D | LDA ($61),Y.|
00003480: 20 20 20 20 20 20 20 50 48 50 0D 20 20 20 20 20 | PHP. |
00003490: 20 20 41 4E 44 20 23 24 37 46 0D 20 20 20 20 20 | AND #$7F. |
000034A0: 20 20 53 54 41 20 24 31 30 30 0D 20 20 20 20 20 | STA $100. |
000034B0: 20 20 49 4E 59 0D 20 20 20 20 20 20 20 4C 44 41 | INY. LDA|
000034C0: 20 28 24 36 31 29 2C 59 0D 20 20 20 20 20 20 20 | ($61),Y. |
000034D0: 50 48 50 0D 20 20 20 20 20 20 20 41 4E 44 20 23 |PHP. AND #|
000034E0: 24 37 46 0D 20 20 20 20 20 20 20 42 45 51 20 56 |$7F. BEQ V|
000034F0: 4E 41 4D 30 0D 20 20 20 20 20 20 20 53 54 41 20 |NAM0. STA |
00003500: 24 31 30 30 2C 59 0D 20 20 20 20 20 20 20 49 4E |$100,Y. IN|
00003510: 59 0D 56 4E 41 4D 30 20 20 50 4C 50 0D 20 20 20 |Y.VNAM0 PLP. |
00003520: 20 20 20 20 42 50 4C 20 56 4E 41 4D 33 0D 20 20 | BPL VNAM3. |
00003530: 20 20 20 20 20 50 4C 50 0D 20 20 20 20 20 20 20 | PLP. |
00003540: 42 4D 49 20 56 4E 41 4D 31 0D 20 20 20 20 20 20 |BMI VNAM1. |
00003550: 20 4C 44 41 20 23 27 24 27 0D 20 20 20 20 20 20 | LDA #'$'. |
00003560: 20 42 4E 45 20 56 4E 41 4D 32 0D 56 4E 41 4D 31 | BNE VNAM2.VNAM1|
00003570: 20 20 4C 44 41 20 23 27 25 27 0D 56 4E 41 4D 32 | LDA #'%'.VNAM2|
00003580: 20 20 53 54 41 20 24 31 30 30 2C 59 0D 20 20 20 | STA $100,Y. |
00003590: 20 20 20 20 49 4E 59 0D 20 20 20 20 20 20 20 42 | INY. B|
000035A0: 4E 45 20 56 4E 41 4D 34 0D 56 4E 41 4D 33 20 20 |NE VNAM4.VNAM3 |
000035B0: 50 4C 50 0D 56 4E 41 4D 34 20 20 4C 44 41 20 23 |PLP.VNAM4 LDA #|
000035C0: 30 0D 20 20 20 20 20 20 20 53 54 41 20 24 31 30 |0. STA $10|
000035D0: 30 2C 59 0D 20 20 20 20 20 20 20 52 54 53 0D 3B |0,Y. RTS.;|
000035E0: 0D 41 52 4E 41 4D 20 20 53 45 43 0D 20 20 20 20 |.ARNAM SEC. |
000035F0: 20 20 20 4C 44 41 20 42 41 43 4B 0D 20 20 20 20 | LDA BACK. |
00003600: 20 20 20 53 42 43 20 23 33 0D 20 20 20 20 20 20 | SBC #3. |
00003610: 20 53 54 41 20 42 41 43 4B 0D 20 20 20 20 20 20 | STA BACK. |
00003620: 20 42 43 53 20 41 52 4E 30 30 0D 20 20 20 20 20 | BCS ARN00. |
00003630: 20 20 44 45 43 20 42 41 43 4B 2B 31 0D 41 52 4E | DEC BACK+1.ARN|
00003640: 30 30 20 20 41 53 4C 20 41 0D 20 20 20 20 20 20 |00 ASL A. |
00003650: 20 54 41 58 0D 20 20 20 20 20 20 20 4C 44 41 20 | TAX. LDA |
00003660: 42 41 43 4B 2B 31 0D 20 20 20 20 20 20 20 52 4F |BACK+1. RO|
00003670: 4C 20 41 0D 20 20 20 20 20 20 20 54 41 59 0D 20 |L A. TAY. |
00003680: 20 20 20 20 20 20 54 58 41 0D 20 20 20 20 20 20 | TXA. |
00003690: 20 43 4C 43 0D 20 20 20 20 20 20 20 41 44 43 20 | CLC. ADC |
000036A0: 42 41 43 4B 0D 20 20 20 20 20 20 20 54 41 58 0D |BACK. TAX.|
000036B0: 20 20 20 20 20 20 20 54 59 41 0D 20 20 20 20 20 | TYA. |
000036C0: 20 20 41 44 43 20 42 41 43 4B 2B 31 0D 20 20 20 | ADC BACK+1. |
000036D0: 20 20 20 20 54 41 59 0D 20 20 20 20 20 20 20 54 | TAY. T|
000036E0: 58 41 0D 20 20 20 20 20 20 20 41 44 43 20 41 52 |XA. ADC AR|
000036F0: 53 54 0D 20 20 20 20 20 20 20 53 54 41 20 24 36 |ST. STA $6|
00003700: 31 0D 20 20 20 20 20 20 20 54 59 41 0D 20 20 20 |1. TYA. |
00003710: 20 20 20 20 41 44 43 20 41 52 53 54 2B 31 0D 20 | ADC ARST+1. |
00003720: 20 20 20 20 20 20 53 54 41 20 24 36 32 0D 20 20 | STA $62. |
00003730: 20 20 20 20 20 4A 53 52 20 56 4E 41 4D 45 0D 20 | JSR VNAME. |
00003740: 20 20 20 20 20 20 4C 44 59 20 23 32 0D 20 20 20 | LDY #2. |
00003750: 20 20 20 20 4C 44 41 20 28 24 36 31 29 2C 59 0D | LDA ($61),Y.|
00003760: 20 20 20 20 20 20 20 52 54 53 0D 3B 0D 47 45 54 | RTS.;.GET|
00003770: 45 58 50 20 4D 56 57 20 50 46 2C 43 4F 55 4E 54 |EXP MVW PF,COUNT|
00003780: 20 3B 20 C8 4F 4C 54 20 C1 55 53 44 52 55 43 4B | ; .OLT .USDRUCK|
00003790: 20 41 55 53 0D 47 45 54 45 58 4C 20 4D 56 57 20 | AUS.GETEXL MVW |
000037A0: 43 4F 55 4E 54 2C 50 32 20 3B 20 44 45 4D 20 D4 |COUNT,P2 ; DEM .|
000037B0: 45 58 54 0D 20 20 20 20 20 20 20 4A 53 52 20 4E |EXT. JSR N|
000037C0: 45 58 54 0D 20 20 20 20 20 20 20 4C 44 41 20 43 |EXT. LDA C|
000037D0: 4F 55 4E 54 2B 31 0D 20 20 20 20 20 20 20 43 4D |OUNT+1. CM|
000037E0: 50 20 50 4C 2B 31 0D 20 20 20 20 20 20 20 42 43 |P PL+1. BC|
000037F0: 43 20 47 45 54 45 58 4C 0D 20 20 20 20 20 20 20 |C GETEXL. |
00003800: 4C 44 41 20 43 4F 55 4E 54 0D 20 20 20 20 20 20 |LDA COUNT. |
00003810: 20 43 4D 50 20 50 4C 0D 20 20 20 20 20 20 20 42 | CMP PL. B|
00003820: 43 43 20 47 45 54 45 58 4C 0D 20 20 20 20 20 20 |CC GETEXL. |
00003830: 20 4C 44 59 20 23 30 0D 20 20 20 20 20 20 20 4C | LDY #0. L|
00003840: 44 41 20 28 50 32 29 2C 59 0D 20 20 20 20 20 20 |DA (P2),Y. |
00003850: 20 53 54 41 20 43 0D 20 20 20 20 20 20 20 43 4D | STA C. CM|
00003860: 50 20 23 37 20 20 20 20 20 20 20 3B 20 D0 52 49 |P #7 ; .RI|
00003870: 4F 52 49 54 41 45 54 20 46 45 53 54 53 54 45 4C |ORITAET FESTSTEL|
00003880: 4C 45 4E 0D 20 20 20 20 20 20 20 42 43 53 20 47 |LEN. BCS G|
00003890: 58 30 30 30 0D 20 20 20 20 20 20 20 4C 44 41 20 |X000. LDA |
000038A0: 23 34 0D 20 20 20 20 20 20 20 42 4E 45 20 47 45 |#4. BNE GE|
000038B0: 54 45 58 41 0D 47 58 30 30 30 20 20 43 4D 50 20 |TEXA.GX000 CMP |
000038C0: 23 39 0D 20 20 20 20 20 20 20 42 43 53 20 47 58 |#9. BCS GX|
000038D0: 30 30 31 0D 20 20 20 20 20 20 20 4C 44 41 20 23 |001. LDA #|
000038E0: 35 0D 20 20 20 20 20 20 20 42 4E 45 20 47 45 54 |5. BNE GET|
000038F0: 45 58 41 0D 47 58 30 30 31 20 20 43 4D 50 20 23 |EXA.GX001 CMP #|
00003900: 31 31 0D 20 20 20 20 20 20 20 42 43 53 20 47 58 |11. BCS GX|
00003910: 30 30 32 0D 20 20 20 20 20 20 20 4C 44 41 20 23 |002. LDA #|
00003920: 36 0D 20 20 20 20 20 20 20 42 4E 45 20 47 45 54 |6. BNE GET|
00003930: 45 58 41 0D 47 58 30 30 32 20 20 42 4E 45 20 47 |EXA.GX002 BNE G|
00003940: 58 30 30 33 0D 20 20 20 20 20 20 20 4C 44 41 20 |X003. LDA |
00003950: 23 38 0D 20 20 20 20 20 20 20 42 4E 45 20 47 45 |#8. BNE GE|
00003960: 54 45 58 41 0D 47 58 30 30 33 20 20 43 4D 50 20 |TEXA.GX003 CMP |
00003970: 23 31 33 0D 20 20 20 20 20 20 20 42 43 53 20 47 |#13. BCS G|
00003980: 58 30 30 34 0D 20 20 20 20 20 20 20 4C 44 41 20 |X004. LDA |
00003990: 23 32 0D 20 20 20 20 20 20 20 42 4E 45 20 47 45 |#2. BNE GE|
000039A0: 54 45 58 41 0D 47 58 30 30 34 20 20 42 4E 45 20 |TEXA.GX004 BNE |
000039B0: 47 58 30 30 35 0D 20 20 20 20 20 20 20 4C 44 41 |GX005. LDA|
000039C0: 20 23 31 0D 20 20 20 20 20 20 20 42 4E 45 20 47 | #1. BNE G|
000039D0: 45 54 45 58 41 0D 47 58 30 30 35 20 20 43 4D 50 |ETEXA.GX005 CMP|
000039E0: 20 23 31 35 0D 20 20 20 20 20 20 20 42 43 53 20 | #15. BCS |
000039F0: 47 58 30 30 36 0D 20 20 20 20 20 20 20 4C 44 41 |GX006. LDA|
00003A00: 20 23 37 0D 20 20 20 20 20 20 20 42 4E 45 20 47 | #7. BNE G|
00003A10: 45 54 45 58 41 0D 47 58 30 30 36 20 20 42 4E 45 |ETEXA.GX006 BNE|
00003A20: 20 47 58 30 30 37 0D 20 20 20 20 20 20 20 4C 44 | GX007. LD|
00003A30: 41 20 23 37 0D 20 20 20 20 20 20 20 42 4E 45 20 |A #7. BNE |
00003A40: 47 45 54 45 58 41 0D 47 58 30 30 37 20 20 4C 44 |GETEXA.GX007 LD|
00003A50: 41 20 23 31 30 0D 47 45 54 45 58 41 20 53 54 41 |A #10.GETEXA STA|
00003A60: 20 50 52 49 4F 52 43 0D 20 20 20 20 20 20 20 4C | PRIORC. L|
00003A70: 44 41 20 43 0D 20 20 20 20 20 20 20 43 4D 50 20 |DA C. CMP |
00003A80: 23 31 34 0D 20 20 20 20 20 20 20 42 43 43 20 47 |#14. BCC G|
00003A90: 58 30 30 38 0D 20 20 20 20 20 20 20 4A 4D 50 20 |X008. JMP |
00003AA0: 47 45 54 42 30 30 0D 47 58 30 30 38 20 20 4A 53 |GETB00.GX008 JS|
00003AB0: 52 20 50 55 53 48 52 47 20 20 3B 20 44 31 20 4F |R PUSHRG ; D1 O|
00003AC0: 50 20 44 32 0D 20 20 20 20 20 20 20 4D 56 57 20 |P D2. MVW |
00003AD0: 50 32 2C 50 4C 0D 20 20 20 20 20 20 20 4C 44 41 |P2,PL. LDA|
00003AE0: 20 23 31 33 32 0D 20 20 20 20 20 20 20 4C 44 59 | #132. LDY|
00003AF0: 20 57 50 2B 31 0D 20 20 20 20 20 20 20 53 54 41 | WP+1. STA|
00003B00: 20 50 54 0D 20 20 20 20 20 20 20 53 54 59 20 50 | PT. STY P|
00003B10: 54 2B 31 0D 20 20 20 20 20 20 20 4A 53 52 20 47 |T+1. JSR G|
00003B20: 45 54 45 58 50 20 20 3B 20 48 4F 4C 45 20 44 32 |ETEXP ; HOLE D2|
00003B30: 0D 20 20 20 20 20 20 20 4C 44 59 20 23 50 52 49 |. LDY #PRI|
00003B40: 4F 52 32 2D 50 46 0D 20 20 20 20 20 20 20 53 54 |OR2-PF. ST|
00003B50: 41 20 28 57 50 29 2C 59 0D 20 20 20 20 20 20 20 |A (WP),Y. |
00003B60: 4D 56 57 20 42 41 43 4B 2C 50 4C 0D 20 20 20 20 |MVW BACK,PL. |
00003B70: 20 20 20 4C 44 41 20 23 33 32 0D 20 20 20 20 20 | LDA #32. |
00003B80: 20 20 53 54 41 20 50 54 0D 20 20 20 20 20 20 20 | STA PT. |
00003B90: 4A 53 52 20 47 45 54 45 58 50 20 20 3B 20 48 4F |JSR GETEXP ; HO|
00003BA0: 4C 45 20 44 31 0D 20 20 20 20 20 20 20 4C 44 59 |LE D1. LDY|
00003BB0: 20 23 50 52 49 4F 52 31 2D 50 46 0D 20 20 20 20 | #PRIOR1-PF. |
00003BC0: 20 20 20 53 54 41 20 28 57 50 29 2C 59 0D 20 20 | STA (WP),Y. |
00003BD0: 20 20 20 20 20 4C 44 41 20 57 50 2B 31 0D 20 20 | LDA WP+1. |
00003BE0: 20 20 20 20 20 50 48 41 0D 20 20 20 20 20 20 20 | PHA. |
00003BF0: 4A 53 52 20 50 4F 50 52 47 0D 20 20 20 20 20 20 |JSR POPRG. |
00003C00: 20 4D 56 57 20 42 41 43 4B 2C 50 4C 0D 20 20 20 | MVW BACK,PL. |
00003C10: 20 20 20 20 50 4C 41 0D 20 20 20 20 20 20 20 53 | PLA. S|
00003C20: 54 41 20 42 41 43 4B 2B 31 0D 20 20 20 20 20 20 |TA BACK+1. |
00003C30: 20 4C 44 41 20 23 33 32 0D 20 20 20 20 20 20 20 | LDA #32. |
00003C40: 53 54 41 20 42 41 43 4B 0D 20 20 20 20 20 20 20 |STA BACK. |
00003C50: 4C 44 59 20 23 30 0D 20 20 20 20 20 20 20 4C 44 |LDY #0. LD|
00003C60: 41 20 50 52 49 4F 52 31 20 20 20 3B 20 4D 55 53 |A PRIOR1 ; MUS|
00003C70: 53 20 44 31 20 47 45 4B 4C 41 4D 4D 45 52 54 20 |S D1 GEKLAMMERT |
00003C80: 57 45 52 44 45 4E 20 3F 0D 20 20 20 20 20 20 20 |WERDEN ?. |
00003C90: 43 4D 50 20 50 52 49 4F 52 43 0D 20 20 20 20 20 |CMP PRIORC. |
00003CA0: 20 20 42 43 53 20 47 58 30 30 39 20 20 20 20 3B | BCS GX009 ;|
00003CB0: 20 4E 45 49 4E 20 2D 3E 0D 20 20 20 20 20 20 20 | NEIN ->. |
00003CC0: 4C 44 41 20 23 27 28 27 20 20 20 20 20 3B 20 27 |LDA #'(' ; '|
00003CD0: 28 27 20 49 4E 20 C1 55 53 44 52 55 43 4B 42 55 |(' IN .USDRUCKBU|
00003CE0: 46 46 45 52 0D 20 20 20 20 20 20 20 53 54 41 20 |FFER. STA |
00003CF0: 28 50 54 29 2C 59 0D 20 20 20 20 20 20 20 49 4E |(PT),Y. IN|
00003D00: 43 20 50 54 0D 47 58 30 30 39 20 20 4C 44 41 20 |C PT.GX009 LDA |
00003D10: 28 42 41 43 4B 29 2C 59 20 3B 20 44 31 20 49 4E |(BACK),Y ; D1 IN|
00003D20: 20 C1 55 53 44 52 55 43 4B 42 55 46 46 45 52 0D | .USDRUCKBUFFER.|
00003D30: 20 20 20 20 20 20 20 53 54 41 20 28 50 54 29 2C | STA (PT),|
00003D40: 59 0D 20 20 20 20 20 20 20 42 45 51 20 47 58 30 |Y. BEQ GX0|
00003D50: 31 30 0D 20 20 20 20 20 20 20 49 4E 59 0D 20 20 |10. INY. |
00003D60: 20 20 20 20 20 42 4E 45 20 47 58 30 30 39 0D 47 | BNE GX009.G|
00003D70: 58 30 31 30 20 20 4C 44 41 20 50 52 49 4F 52 31 |X010 LDA PRIOR1|
00003D80: 0D 20 20 20 20 20 20 20 43 4D 50 20 50 52 49 4F |. CMP PRIO|
00003D90: 52 43 0D 20 20 20 20 20 20 20 42 43 53 20 47 58 |RC. BCS GX|
00003DA0: 30 31 31 20 20 20 20 3B 20 57 45 4E 4E 20 44 31 |011 ; WENN D1|
00003DB0: 20 47 45 4B 4C 41 4D 4D 45 52 54 20 57 45 52 44 | GEKLAMMERT WERD|
00003DC0: 45 4E 20 4D 55 53 53 0D 20 20 20 20 20 20 20 4C |EN MUSS. L|
00003DD0: 44 41 20 23 27 29 27 20 20 20 20 20 3B 20 27 29 |DA #')' ; ')|
00003DE0: 27 20 49 4E 20 C1 55 53 44 52 55 43 4B 42 55 46 |' IN .USDRUCKBUF|
00003DF0: 46 45 52 0D 20 20 20 20 20 20 20 53 54 41 20 28 |FER. STA (|
00003E00: 50 54 29 2C 59 0D 20 20 20 20 20 20 20 49 4E 59 |PT),Y. INY|
00003E10: 0D 47 58 30 31 31 20 20 54 59 41 0D 20 20 20 20 |.GX011 TYA. |
00003E20: 20 20 20 43 4C 43 0D 20 20 20 20 20 20 20 41 44 | CLC. AD|
00003E30: 43 20 50 54 0D 20 20 20 20 20 20 20 53 54 41 20 |C PT. STA |
00003E40: 50 54 0D 20 20 20 20 20 20 20 4C 44 59 20 23 30 |PT. LDY #0|
00003E50: 0D 20 20 20 20 20 20 20 4C 44 41 20 43 0D 20 20 |. LDA C. |
00003E60: 20 20 20 20 20 43 4D 50 20 23 37 0D 20 20 20 20 | CMP #7. |
00003E70: 20 20 20 42 43 43 20 47 58 30 31 32 0D 20 20 20 | BCC GX012. |
00003E80: 20 20 20 20 41 44 43 20 23 31 36 32 20 20 20 20 | ADC #162 |
00003E90: 20 3B 20 2B 20 2D 20 2A 20 2F 20 5E 20 41 4E 44 | ; + - * / ^ AND|
00003EA0: 20 4F 52 0D 20 20 20 20 20 20 20 53 54 41 20 28 | OR. STA (|
00003EB0: 50 54 29 2C 59 0D 20 20 20 20 20 20 20 49 4E 59 |PT),Y. INY|
00003EC0: 0D 20 20 20 20 20 20 20 42 4E 45 20 47 45 54 41 |. BNE GETA|
00003ED0: 30 30 0D 47 58 30 31 32 20 20 41 4E 44 20 23 34 |00.GX012 AND #4|
00003EE0: 0D 20 20 20 20 20 20 20 42 45 51 20 47 58 30 31 |. BEQ GX01|
00003EF0: 33 0D 20 20 20 20 20 20 20 4C 44 41 20 23 31 37 |3. LDA #17|
00003F00: 39 20 20 20 20 20 3B 20 27 3C 27 0D 20 20 20 20 |9 ; '<'. |
00003F10: 20 20 20 53 54 41 20 28 50 54 29 2C 59 0D 20 20 | STA (PT),Y. |
00003F20: 20 20 20 20 20 49 4E 59 0D 47 58 30 31 33 20 20 | INY.GX013 |
00003F30: 4C 44 41 20 43 0D 20 20 20 20 20 20 20 41 4E 44 |LDA C. AND|
00003F40: 20 23 31 0D 20 20 20 20 20 20 20 42 45 51 20 47 | #1. BEQ G|
00003F50: 58 30 31 34 0D 20 20 20 20 20 20 20 4C 44 41 20 |X014. LDA |
00003F60: 23 31 37 37 20 20 20 20 20 3B 20 27 3E 27 0D 20 |#177 ; '>'. |
00003F70: 20 20 20 20 20 20 53 54 41 20 28 50 54 29 2C 59 | STA (PT),Y|
00003F80: 0D 20 20 20 20 20 20 20 49 4E 59 0D 47 58 30 31 |. INY.GX01|
00003F90: 34 20 20 4C 44 41 20 43 0D 20 20 20 20 20 20 20 |4 LDA C. |
00003FA0: 41 4E 44 20 23 32 0D 20 20 20 20 20 20 20 42 45 |AND #2. BE|
00003FB0: 51 20 47 45 54 41 30 30 0D 20 20 20 20 20 20 20 |Q GETA00. |
00003FC0: 4C 44 41 20 23 31 37 38 20 20 20 20 20 3B 20 27 |LDA #178 ; '|
00003FD0: 3D 27 0D 20 20 20 20 20 20 20 53 54 41 20 28 50 |='. STA (P|
00003FE0: 54 29 2C 59 0D 20 20 20 20 20 20 20 49 4E 59 0D |T),Y. INY.|
00003FF0: 47 45 54 41 30 30 20 54 59 41 0D 20 20 20 20 20 |GETA00 TYA. |
00004000: 20 20 43 4C 43 0D 20 20 20 20 20 20 20 41 44 43 | CLC. ADC|
00004010: 20 50 54 0D 20 20 20 20 20 20 20 53 54 41 20 50 | PT. STA P|
00004020: 54 0D 20 20 20 20 20 20 20 4C 44 59 20 23 30 0D |T. LDY #0.|
00004030: 20 20 20 20 20 20 20 4C 44 41 20 23 31 33 32 0D | LDA #132.|
00004040: 20 20 20 20 20 20 20 53 54 41 20 42 41 43 4B 0D | STA BACK.|
00004050: 20 20 20 20 20 20 20 4C 44 41 20 50 52 49 4F 52 | LDA PRIOR|
00004060: 32 20 20 20 3B 20 4D 55 53 53 20 44 32 20 47 45 |2 ; MUSS D2 GE|
00004070: 4B 4C 41 4D 4D 45 52 54 20 57 45 52 44 45 4E 20 |KLAMMERT WERDEN |
00004080: 3F 0D 20 20 20 20 20 20 20 43 4D 50 20 50 52 49 |?. CMP PRI|
00004090: 4F 52 43 0D 20 20 20 20 20 20 20 42 43 43 20 47 |ORC. BCC G|
000040A0: 45 54 41 30 31 20 20 20 3B 20 55 4E 42 45 44 49 |ETA01 ; UNBEDI|
000040B0: 4E 47 54 20 2D 3E 0D 20 20 20 20 20 20 20 42 4E |NGT ->. BN|
000040C0: 45 20 47 45 54 41 30 32 20 20 20 3B 20 53 49 43 |E GETA02 ; SIC|
000040D0: 48 45 52 20 4E 49 43 48 54 20 2D 3E 0D 20 20 20 |HER NICHT ->. |
000040E0: 20 20 20 20 4C 44 41 20 43 0D 20 20 20 20 20 20 | LDA C. |
000040F0: 20 43 4D 50 20 23 31 30 20 20 20 20 20 20 3B 20 | CMP #10 ; |
00004100: 57 45 4E 4E 20 4F 50 20 3C 3E 20 27 2F 27 0D 20 |WENN OP <> '/'. |
00004110: 20 20 20 20 20 20 42 4E 45 20 47 45 54 41 30 32 | BNE GETA02|
00004120: 20 20 20 3B 20 4E 49 43 48 54 20 4B 4C 41 4D 4D | ; NICHT KLAMM|
00004130: 45 52 4E 20 2D 3E 0D 20 20 20 20 20 20 20 44 45 |ERN ->. DE|
00004140: 43 20 50 52 49 4F 52 32 20 20 20 3B 20 4D 45 52 |C PRIOR2 ; MER|
00004150: 4B 45 4E 20 46 55 45 52 20 32 2E 20 D4 45 53 54 |KEN FUER 2. .EST|
00004160: 0D 47 45 54 41 30 31 20 4C 44 41 20 23 27 28 27 |.GETA01 LDA #'('|
00004170: 0D 20 20 20 20 20 20 20 53 54 41 20 28 50 54 29 |. STA (PT)|
00004180: 2C 59 0D 20 20 20 20 20 20 20 49 4E 43 20 50 54 |,Y. INC PT|
00004190: 0D 47 45 54 41 30 32 20 4C 44 41 20 28 42 41 43 |.GETA02 LDA (BAC|
000041A0: 4B 29 2C 59 0D 20 20 20 20 20 20 20 53 54 41 20 |K),Y. STA |
000041B0: 28 50 54 29 2C 59 0D 20 20 20 20 20 20 20 42 45 |(PT),Y. BE|
000041C0: 51 20 47 45 54 41 30 33 0D 20 20 20 20 20 20 20 |Q GETA03. |
000041D0: 49 4E 59 0D 20 20 20 20 20 20 20 42 4E 45 20 47 |INY. BNE G|
000041E0: 45 54 41 30 32 0D 47 45 54 41 30 33 20 4C 44 41 |ETA02.GETA03 LDA|
000041F0: 20 50 52 49 4F 52 32 0D 20 20 20 20 20 20 20 43 | PRIOR2. C|
00004200: 4D 50 20 50 52 49 4F 52 43 0D 20 20 20 20 20 20 |MP PRIORC. |
00004210: 20 42 43 53 20 47 45 54 41 30 34 0D 20 20 20 20 | BCS GETA04. |
00004220: 20 20 20 4C 44 41 20 23 27 29 27 0D 20 20 20 20 | LDA #')'. |
00004230: 20 20 20 53 54 41 20 28 50 54 29 2C 59 0D 20 20 | STA (PT),Y. |
00004240: 20 20 20 20 20 49 4E 59 0D 47 45 54 41 30 34 20 | INY.GETA04 |
00004250: 4C 44 41 20 23 30 0D 20 20 20 20 20 20 20 53 54 |LDA #0. ST|
00004260: 41 20 28 50 54 29 2C 59 0D 20 20 20 20 20 20 20 |A (PT),Y. |
00004270: 4D 56 57 20 50 4C 2C 42 41 43 4B 0D 20 20 20 20 |MVW PL,BACK. |
00004280: 20 20 20 4C 44 41 20 50 52 49 4F 52 43 0D 20 20 | LDA PRIORC. |
00004290: 20 20 20 20 20 52 54 53 20 20 20 20 20 20 20 20 | RTS |
000042A0: 20 20 3B 20 47 45 53 43 48 41 46 46 54 21 0D 47 | ; GESCHAFFT!.G|
000042B0: 45 54 42 30 30 20 43 4D 50 20 23 33 32 0D 20 20 |ETB00 CMP #32. |
000042C0: 20 20 20 20 20 42 43 53 20 47 45 54 42 30 32 0D | BCS GETB02.|
000042D0: 47 45 54 42 30 31 20 4A 4D 50 20 47 45 54 43 30 |GETB01 JMP GETC0|
000042E0: 30 0D 47 45 54 42 30 32 20 43 4D 50 20 23 35 32 |0.GETB02 CMP #52|
000042F0: 0D 20 20 20 20 20 20 20 42 43 53 20 47 45 54 42 |. BCS GETB|
00004300: 30 31 0D 20 20 20 20 20 20 20 4A 53 52 20 50 55 |01. JSR PU|
00004310: 53 48 52 47 0D 20 20 20 20 20 20 20 4C 44 41 20 |SHRG. LDA |
00004320: 23 33 32 20 20 20 20 20 3B 20 46 4B 54 28 44 31 |#32 ; FKT(D1|
00004330: 29 0D 20 20 20 20 20 20 20 4C 44 59 20 57 50 2B |). LDY WP+|
00004340: 31 0D 20 20 20 20 20 20 20 53 54 41 20 50 54 0D |1. STA PT.|
00004350: 20 20 20 20 20 20 20 53 54 59 20 50 54 2B 31 0D | STY PT+1.|
00004360: 20 20 20 20 20 20 20 4D 56 57 20 50 32 2C 50 4C | MVW P2,PL|
00004370: 0D 20 20 20 20 20 20 20 4A 53 52 20 47 45 54 45 |. JSR GETE|
00004380: 58 50 20 20 3B 20 44 31 20 48 4F 4C 45 4E 0D 20 |XP ; D1 HOLEN. |
00004390: 20 20 20 20 20 20 4C 44 41 20 57 50 2B 31 0D 20 | LDA WP+1. |
000043A0: 20 20 20 20 20 20 50 48 41 0D 20 20 20 20 20 20 | PHA. |
000043B0: 20 4A 53 52 20 50 4F 50 52 47 0D 20 20 20 20 20 | JSR POPRG. |
000043C0: 20 20 4D 56 57 20 42 41 43 4B 2C 50 4C 0D 20 20 | MVW BACK,PL. |
000043D0: 20 20 20 20 20 50 4C 41 0D 20 20 20 20 20 20 20 | PLA. |
000043E0: 53 54 41 20 42 41 43 4B 2B 31 0D 20 20 20 20 20 |STA BACK+1. |
000043F0: 20 20 4C 44 41 20 23 33 32 0D 20 20 20 20 20 20 | LDA #32. |
00004400: 20 53 54 41 20 42 41 43 4B 0D 20 20 20 20 20 20 | STA BACK. |
00004410: 20 4C 44 59 20 23 30 0D 20 20 20 20 20 20 20 4C | LDY #0. L|
00004420: 44 41 20 43 0D 20 20 20 20 20 20 20 43 4C 43 0D |DA C. CLC.|
00004430: 20 20 20 20 20 20 20 41 44 43 20 23 31 34 38 0D | ADC #148.|
00004440: 20 20 20 20 20 20 20 53 54 41 20 28 50 54 29 2C | STA (PT),|
00004450: 59 20 20 3B BF 46 4B 54 20 49 4E 20 44 45 4E 20 |Y ;.FKT IN DEN |
00004460: C1 55 53 44 52 55 43 4B 42 55 46 46 45 52 0D 20 |.USDRUCKBUFFER. |
00004470: 20 20 20 20 20 20 49 4E 43 20 50 54 0D 20 20 20 | INC PT. |
00004480: 20 20 20 20 4C 44 41 20 23 27 28 27 20 20 20 20 | LDA #'(' |
00004490: 3B 20 27 28 27 20 49 4E 20 44 45 4E 20 C1 55 53 |; '(' IN DEN .US|
000044A0: 44 52 55 43 4B 42 55 46 46 45 52 0D 20 20 20 20 |DRUCKBUFFER. |
000044B0: 20 20 20 53 54 41 20 28 50 54 29 2C 59 0D 20 20 | STA (PT),Y. |
000044C0: 20 20 20 20 20 49 4E 43 20 50 54 0D 47 45 54 42 | INC PT.GETB|
000044D0: 30 33 20 4C 44 41 20 28 42 41 43 4B 29 2C 59 20 |03 LDA (BACK),Y |
000044E0: 3B 20 44 31 20 49 4E 20 44 45 4E 20 C1 55 53 44 |; D1 IN DEN .USD|
000044F0: 52 55 43 4B 42 55 46 46 45 52 0D 20 20 20 20 20 |RUCKBUFFER. |
00004500: 20 20 53 54 41 20 28 50 54 29 2C 59 0D 20 20 20 | STA (PT),Y. |
00004510: 20 20 20 20 42 45 51 20 47 45 54 42 30 34 0D 20 | BEQ GETB04. |
00004520: 20 20 20 20 20 20 49 4E 59 0D 20 20 20 20 20 20 | INY. |
00004530: 20 42 4E 45 20 47 45 54 42 30 33 0D 47 45 54 42 | BNE GETB03.GETB|
00004540: 30 34 20 4C 44 41 20 23 27 29 27 20 20 20 20 20 |04 LDA #')' |
00004550: 3B 20 27 29 27 20 49 4E 20 44 45 4E 20 C1 55 53 |; ')' IN DEN .US|
00004560: 44 52 55 43 4B 42 55 46 46 45 52 0D 20 20 20 20 |DRUCKBUFFER. |
00004570: 20 20 20 53 54 41 20 28 50 54 29 2C 59 0D 20 20 | STA (PT),Y. |
00004580: 20 20 20 20 20 49 4E 59 0D 20 20 20 20 20 20 20 | INY. |
00004590: 4C 44 41 20 23 30 0D 20 20 20 20 20 20 20 53 54 |LDA #0. ST|
000045A0: 41 20 28 50 54 29 2C 59 0D 20 20 20 20 20 20 20 |A (PT),Y. |
000045B0: 4D 56 57 20 50 4C 2C 42 41 43 4B 0D 20 20 20 20 |MVW PL,BACK. |
000045C0: 20 20 20 4C 44 41 20 50 52 49 4F 52 43 0D 20 20 | LDA PRIORC. |
000045D0: 20 20 20 20 20 52 54 53 20 20 20 20 20 20 20 20 | RTS |
000045E0: 20 20 3B 20 47 45 53 43 48 41 46 46 54 21 0D 47 | ; GESCHAFFT!.G|
000045F0: 45 54 43 30 30 20 43 4D 50 20 23 35 32 0D 20 20 |ETC00 CMP #52. |
00004600: 20 20 20 20 20 42 45 51 20 47 45 54 43 30 31 0D | BEQ GETC01.|
00004610: 20 20 20 20 20 20 20 43 4D 50 20 23 35 33 0D 20 | CMP #53. |
00004620: 20 20 20 20 20 20 42 4E 45 20 47 45 54 44 30 30 | BNE GETD00|
00004630: 0D 47 45 54 43 30 31 20 41 44 43 20 23 31 34 37 |.GETC01 ADC #147|
00004640: 20 20 20 20 20 3B 20 46 4B 54 28 44 31 2C 44 32 | ; FKT(D1,D2|
00004650: 29 20 28 4C 45 46 54 24 2C 52 49 47 48 54 24 29 |) (LEFT$,RIGHT$)|
00004660: 0D 20 20 20 20 20 20 20 4C 44 59 20 23 30 0D 20 |. LDY #0. |
00004670: 20 20 20 20 20 20 53 54 41 20 28 50 54 29 2C 59 | STA (PT),Y|
00004680: 20 20 20 3B 20 46 4B 54 20 49 4E 20 44 45 4E 20 | ; FKT IN DEN |
00004690: C1 55 53 0D 20 20 20 20 20 20 20 49 4E 43 20 50 |.US. INC P|
000046A0: 54 0D 20 20 20 20 20 20 20 4C 44 41 20 23 32 0D |T. LDA #2.|
000046B0: 47 45 54 43 30 32 20 53 54 41 20 42 41 43 4B 20 |GETC02 STA BACK |
000046C0: 20 20 20 20 3B 20 42 41 43 4B 20 3A 3D 20 32 2F | ; BACK := 2/|
000046D0: 33 0D 20 20 20 20 20 20 20 53 54 59 20 42 41 43 |3. STY BAC|
000046E0: 4B 2B 31 0D 20 20 20 20 20 20 20 4D 56 57 20 50 |K+1. MVW P|
000046F0: 32 2C 50 4C 0D 20 20 20 20 20 20 20 4C 44 59 20 |2,PL. LDY |
00004700: 23 30 0D 20 20 20 20 20 20 20 4A 53 52 20 47 45 |#0. JSR GE|
00004710: 54 4D 55 4C 20 20 20 3B 20 32 2F 33 20 D4 45 49 |TMUL ; 2/3 .EI|
00004720: 4C 41 55 53 44 52 55 45 43 4B 45 20 49 4E 20 CB |LAUSDRUECKE IN .|
00004730: 4C 41 4D 4D 45 52 4E 20 48 4F 4C 45 4E 0D 20 20 |LAMMERN HOLEN. |
00004740: 20 20 20 20 20 4C 44 41 20 50 52 49 4F 52 43 0D | LDA PRIORC.|
00004750: 20 20 20 20 20 20 20 52 54 53 20 20 20 20 20 20 | RTS |
00004760: 20 20 20 20 3B 20 47 45 53 43 48 41 46 46 54 21 | ; GESCHAFFT!|
00004770: 0D 47 45 54 44 30 30 20 43 4D 50 20 23 35 34 0D |.GETD00 CMP #54.|
00004780: 20 20 20 20 20 20 20 42 4E 45 20 47 45 54 45 30 | BNE GETE0|
00004790: 30 0D 20 20 20 20 20 20 20 41 44 43 20 23 31 34 |0. ADC #14|
000047A0: 37 20 20 20 20 20 3B 20 46 4B 54 28 44 31 2C 44 |7 ; FKT(D1,D|
000047B0: 32 2C 44 33 29 20 28 4D 49 44 24 29 0D 20 20 20 |2,D3) (MID$). |
000047C0: 20 20 20 20 4C 44 59 20 23 30 0D 20 20 20 20 20 | LDY #0. |
000047D0: 20 20 53 54 41 20 28 50 54 29 2C 59 0D 20 20 20 | STA (PT),Y. |
000047E0: 20 20 20 20 49 4E 43 20 50 54 0D 20 20 20 20 20 | INC PT. |
000047F0: 20 20 4C 44 41 20 23 33 0D 20 20 20 20 20 20 20 | LDA #3. |
00004800: 42 4E 45 20 47 45 54 43 30 32 0D 47 45 54 45 30 |BNE GETC02.GETE0|
00004810: 30 20 43 4D 50 20 23 24 37 46 0D 20 20 20 20 20 |0 CMP #$7F. |
00004820: 20 20 42 43 53 20 47 45 54 45 30 32 0D 47 45 54 | BCS GETE02.GET|
00004830: 45 30 31 20 4A 4D 50 20 47 45 54 46 30 30 0D 47 |E01 JMP GETF00.G|
00004840: 45 54 45 30 32 20 43 4D 50 20 23 24 41 36 0D 20 |ETE02 CMP #$A6. |
00004850: 20 20 20 20 20 20 42 43 53 20 47 45 54 45 30 31 | BCS GETE01|
00004860: 0D 20 20 20 20 20 20 20 4D 56 57 20 50 32 2C 50 |. MVW P2,P|
00004870: 4C 0D 20 20 20 20 20 20 20 4A 53 52 20 56 41 52 |L. JSR VAR|
00004880: 4E 41 4D 20 20 20 3B 20 D6 41 52 49 41 42 4C 45 |NAM ; .ARIABLE|
00004890: 20 48 4F 4C 45 4E 0D 20 20 20 20 20 20 20 4C 44 | HOLEN. LD|
000048A0: 41 20 50 52 49 4F 52 43 0D 20 20 20 20 20 20 20 |A PRIORC. |
000048B0: 52 54 53 0D 47 45 54 46 30 30 20 43 4D 50 20 23 |RTS.GETF00 CMP #|
000048C0: 24 41 36 0D 20 20 20 20 20 20 20 42 43 53 20 47 |$A6. BCS G|
000048D0: 45 54 46 30 32 0D 47 45 54 46 30 31 20 4A 4D 50 |ETF02.GETF01 JMP|
000048E0: 20 47 45 54 47 30 30 0D 47 45 54 46 30 32 20 43 | GETG00.GETF02 C|
000048F0: 4D 50 20 23 24 41 39 0D 20 20 20 20 20 20 20 42 |MP #$A9. B|
00004900: 43 43 20 47 45 54 46 30 33 0D 20 20 20 20 20 20 |CC GETF03. |
00004910: 20 43 4D 50 20 23 24 42 30 0D 20 20 20 20 20 20 | CMP #$B0. |
00004920: 20 42 43 43 20 47 45 54 46 30 31 0D 20 20 20 20 | BCC GETF01. |
00004930: 20 20 20 43 4D 50 20 23 24 43 30 0D 20 20 20 20 | CMP #$C0. |
00004940: 20 20 20 42 43 43 20 47 45 54 46 30 33 0D 20 20 | BCC GETF03. |
00004950: 20 20 20 20 20 43 4D 50 20 23 24 46 30 0D 20 20 | CMP #$F0. |
00004960: 20 20 20 20 20 42 43 43 20 47 45 54 46 30 31 0D | BCC GETF01.|
00004970: 47 45 54 46 30 33 20 4D 56 57 20 50 32 2C 50 4C |GETF03 MVW P2,PL|
00004980: 20 20 20 20 3B 20 CB 4F 4E 53 54 41 4E 54 45 20 | ; .ONSTANTE |
00004990: 48 4F 4C 45 4E 0D 20 20 20 20 20 20 20 4A 53 52 |HOLEN. JSR|
000049A0: 20 47 45 54 56 41 4C 0D 20 20 20 20 20 20 20 4C | GETVAL. L|
000049B0: 44 41 20 23 31 0D 20 20 20 20 20 20 20 4C 44 59 |DA #1. LDY|
000049C0: 20 23 30 0D 20 20 20 20 20 20 20 53 54 41 20 42 | #0. STA B|
000049D0: 41 43 4B 2B 31 0D 20 20 20 20 20 20 20 53 54 59 |ACK+1. STY|
000049E0: 20 42 41 43 4B 0D 20 20 20 20 20 20 20 4C 44 41 | BACK. LDA|
000049F0: 20 28 42 41 43 4B 29 2C 59 0D 20 20 20 20 20 20 | (BACK),Y. |
00004A00: 20 43 4D 50 20 23 33 32 0D 20 20 20 20 20 20 20 | CMP #32. |
00004A10: 42 4E 45 20 47 45 54 46 30 34 0D 20 20 20 20 20 |BNE GETF04. |
00004A20: 20 20 49 4E 43 20 42 41 43 4B 0D 47 45 54 46 30 | INC BACK.GETF0|
00004A30: 34 20 4C 44 41 20 28 42 41 43 4B 29 2C 59 0D 20 |4 LDA (BACK),Y. |
00004A40: 20 20 20 20 20 20 53 54 41 20 28 50 54 29 2C 59 | STA (PT),Y|
00004A50: 0D 20 20 20 20 20 20 20 42 45 51 20 47 45 54 46 |. BEQ GETF|
00004A60: 30 35 0D 20 20 20 20 20 20 20 49 4E 59 0D 20 20 |05. INY. |
00004A70: 20 20 20 20 20 42 4E 45 20 47 45 54 46 30 34 0D | BNE GETF04.|
00004A80: 47 45 54 46 30 35 20 4D 56 57 20 50 4C 2C 42 41 |GETF05 MVW PL,BA|
00004A90: 43 4B 0D 20 20 20 20 20 20 20 4C 44 41 20 50 52 |CK. LDA PR|
00004AA0: 49 4F 52 43 0D 20 20 20 20 20 20 20 52 54 53 0D |IORC. RTS.|
00004AB0: 47 45 54 47 30 30 20 43 4D 50 20 23 31 34 20 20 |GETG00 CMP #14 |
00004AC0: 20 20 20 20 3B 20 27 2D 27 20 3F 20 28 D6 4F 52 | ; '-' ? (.OR|
00004AD0: 5A 45 49 43 48 45 4E 29 0D 20 20 20 20 20 20 20 |ZEICHEN). |
00004AE0: 42 45 51 20 47 45 54 47 30 31 0D 20 20 20 20 20 |BEQ GETG01. |
00004AF0: 20 20 43 4D 50 20 23 31 35 20 20 20 20 20 20 3B | CMP #15 ;|
00004B00: 20 4E 4F 54 0D 20 20 20 20 20 20 20 42 4E 45 20 | NOT. BNE |
00004B10: 47 45 54 47 31 30 0D 47 45 54 47 30 31 20 4A 53 |GETG10.GETG01 JS|
00004B20: 52 20 50 55 53 48 52 47 0D 20 20 20 20 20 20 20 |R PUSHRG. |
00004B30: 4D 56 57 20 50 32 2C 50 4C 0D 20 20 20 20 20 20 |MVW P2,PL. |
00004B40: 20 4C 44 41 20 23 31 33 32 0D 20 20 20 20 20 20 | LDA #132. |
00004B50: 20 4C 44 59 20 57 50 2B 31 0D 20 20 20 20 20 20 | LDY WP+1. |
00004B60: 20 53 54 41 20 50 54 0D 20 20 20 20 20 20 20 53 | STA PT. S|
00004B70: 54 59 20 50 54 2B 31 0D 20 20 20 20 20 20 20 4A |TY PT+1. J|
00004B80: 53 52 20 47 45 54 45 58 50 0D 20 20 20 20 20 20 |SR GETEXP. |
00004B90: 20 4C 44 59 20 23 50 52 49 4F 52 32 2D 50 46 0D | LDY #PRIOR2-PF.|
00004BA0: 20 20 20 20 20 20 20 53 54 41 20 28 57 50 29 2C | STA (WP),|
00004BB0: 59 0D 20 20 20 20 20 20 20 4C 44 41 20 57 50 2B |Y. LDA WP+|
00004BC0: 31 0D 20 20 20 20 20 20 20 50 48 41 0D 20 20 20 |1. PHA. |
00004BD0: 20 20 20 20 4A 53 52 20 50 4F 50 52 47 0D 20 20 | JSR POPRG. |
00004BE0: 20 20 20 20 20 4D 56 57 20 42 41 43 4B 2C 50 4C | MVW BACK,PL|
00004BF0: 0D 20 20 20 20 20 20 20 50 4C 41 0D 20 20 20 20 |. PLA. |
00004C00: 20 20 20 53 54 41 20 42 41 43 4B 2B 31 0D 20 20 | STA BACK+1. |
00004C10: 20 20 20 20 20 4C 44 59 20 23 30 0D 20 20 20 20 | LDY #0. |
00004C20: 20 20 20 4C 44 41 20 43 0D 20 20 20 20 20 20 20 | LDA C. |
00004C30: 41 53 4C 20 41 0D 20 20 20 20 20 20 20 53 54 41 |ASL A. STA|
00004C40: 20 42 41 43 4B 0D 20 20 20 20 20 20 20 53 45 43 | BACK. SEC|
00004C50: 0D 20 20 20 20 20 20 20 4C 44 41 20 23 32 31 33 |. LDA #213|
00004C60: 0D 20 20 20 20 20 20 20 53 42 43 20 42 41 43 4B |. SBC BACK|
00004C70: 0D 20 20 20 20 20 20 20 53 42 43 20 43 0D 20 20 |. SBC C. |
00004C80: 20 20 20 20 20 53 54 41 20 28 50 54 29 2C 59 20 | STA (PT),Y |
00004C90: 20 20 3B 20 CF 50 45 52 41 54 4F 52 20 4D 45 52 | ; .PERATOR MER|
00004CA0: 4B 45 4E 0D 20 20 20 20 20 20 20 49 4E 59 0D 20 |KEN. INY. |
00004CB0: 20 20 20 20 20 20 4A 4D 50 20 47 45 54 41 30 30 | JMP GETA00|
00004CC0: 0D 47 45 54 47 31 30 20 43 4D 50 20 23 24 41 41 |.GETG10 CMP #$AA|
00004CD0: 0D 20 20 20 20 20 20 20 42 4E 45 20 47 45 54 47 |. BNE GETG|
00004CE0: 32 30 0D 20 20 20 20 20 20 20 4C 44 59 20 23 30 |20. LDY #0|
00004CF0: 0D 20 20 20 20 20 20 20 4C 44 41 20 23 32 35 35 |. LDA #255|
00004D00: 20 20 20 20 20 3B 20 D0 49 0D 20 20 20 20 20 20 | ; .I. |
00004D10: 20 53 54 41 20 28 50 54 29 2C 59 0D 20 20 20 20 | STA (PT),Y. |
00004D20: 20 20 20 54 59 41 0D 20 20 20 20 20 20 20 49 4E | TYA. IN|
00004D30: 59 0D 20 20 20 20 20 20 20 42 4E 45 20 47 45 54 |Y. BNE GET|
00004D40: 48 30 30 0D 47 45 54 47 32 30 20 43 4D 50 20 23 |H00.GETG20 CMP #|
00004D50: 24 41 42 0D 20 20 20 20 20 20 20 42 4E 45 20 47 |$AB. BNE G|
00004D60: 45 54 47 33 30 0D 20 20 20 20 20 20 20 4C 44 59 |ETG30. LDY|
00004D70: 20 23 30 0D 20 20 20 20 20 20 20 4C 44 41 20 23 | #0. LDA #|
00004D80: 27 53 27 20 20 20 20 20 3B 20 53 54 0D 20 20 20 |'S' ; ST. |
00004D90: 20 20 20 20 53 54 41 20 28 50 54 29 2C 59 0D 20 | STA (PT),Y. |
00004DA0: 20 20 20 20 20 20 49 4E 59 0D 20 20 20 20 20 20 | INY. |
00004DB0: 20 4C 44 41 20 23 27 54 27 0D 20 20 20 20 20 20 | LDA #'T'. |
00004DC0: 20 53 54 41 20 28 50 54 29 2C 59 0D 20 20 20 20 | STA (PT),Y. |
00004DD0: 20 20 20 49 4E 59 0D 20 20 20 20 20 20 20 42 4E | INY. BN|
00004DE0: 45 20 47 45 54 48 30 30 0D 47 45 54 47 33 30 20 |E GETH00.GETG30 |
00004DF0: 43 4D 50 20 23 24 41 43 0D 20 20 20 20 20 20 20 |CMP #$AC. |
00004E00: 42 45 51 20 47 45 54 47 33 31 0D 20 20 20 20 20 |BEQ GETG31. |
00004E10: 20 20 43 4D 50 20 23 24 41 46 0D 20 20 20 20 20 | CMP #$AF. |
00004E20: 20 20 42 4E 45 20 47 45 54 47 34 30 0D 47 45 54 | BNE GETG40.GET|
00004E30: 47 33 31 20 4C 44 59 20 23 30 0D 20 20 20 20 20 |G31 LDY #0. |
00004E40: 20 20 4C 44 41 20 23 27 54 27 20 20 20 20 20 3B | LDA #'T' ;|
00004E50: 20 54 49 2F 54 49 24 0D 20 20 20 20 20 20 20 53 | TI/TI$. S|
00004E60: 54 41 20 28 50 54 29 2C 59 0D 20 20 20 20 20 20 |TA (PT),Y. |
00004E70: 20 49 4E 59 0D 20 20 20 20 20 20 20 4C 44 41 20 | INY. LDA |
00004E80: 23 27 49 27 0D 20 20 20 20 20 20 20 53 54 41 20 |#'I'. STA |
00004E90: 28 50 54 29 2C 59 0D 20 20 20 20 20 20 20 49 4E |(PT),Y. IN|
00004EA0: 59 0D 20 20 20 20 20 20 20 4C 44 41 20 43 0D 20 |Y. LDA C. |
00004EB0: 20 20 20 20 20 20 43 4D 50 20 23 24 41 43 0D 20 | CMP #$AC. |
00004EC0: 20 20 20 20 20 20 42 45 51 20 47 45 54 48 30 30 | BEQ GETH00|
00004ED0: 0D 20 20 20 20 20 20 20 4C 44 41 20 23 27 24 27 |. LDA #'$'|
00004EE0: 0D 20 20 20 20 20 20 20 53 54 41 20 28 50 54 29 |. STA (PT)|
00004EF0: 2C 59 0D 20 20 20 20 20 20 20 49 4E 59 0D 47 45 |,Y. INY.GE|
00004F00: 54 48 30 30 20 4C 44 41 20 23 30 0D 20 20 20 20 |TH00 LDA #0. |
00004F10: 20 20 20 53 54 41 20 28 50 54 29 2C 59 0D 20 20 | STA (PT),Y. |
00004F20: 20 20 20 20 20 4D 56 57 20 50 32 2C 42 41 43 4B | MVW P2,BACK|
00004F30: 0D 20 20 20 20 20 20 20 4C 44 41 20 50 52 49 4F |. LDA PRIO|
00004F40: 52 43 0D 20 20 20 20 20 20 20 52 54 53 0D 47 45 |RC. RTS.GE|
00004F50: 54 47 34 30 20 43 4D 50 20 23 24 45 37 20 20 20 |TG40 CMP #$E7 |
00004F60: 20 20 3B 20 D3 54 52 49 4E 47 0D 20 20 20 20 20 | ; .TRING. |
00004F70: 20 20 42 4E 45 20 47 45 54 47 35 30 0D 20 20 20 | BNE GETG50. |
00004F80: 20 20 20 20 4D 56 57 20 50 32 2C 50 4C 0D 20 20 | MVW P2,PL. |
00004F90: 20 20 20 20 20 4C 44 59 20 23 31 0D 20 20 20 20 | LDY #1. |
00004FA0: 20 20 20 4C 44 41 20 28 50 4C 29 2C 59 0D 20 20 | LDA (PL),Y. |
00004FB0: 20 20 20 20 20 53 54 41 20 49 0D 20 20 20 20 20 | STA I. |
00004FC0: 20 20 49 4E 59 0D 20 20 20 20 20 20 20 42 4E 45 | INY. BNE|
00004FD0: 20 47 45 54 47 36 30 0D 47 45 54 47 35 30 20 43 | GETG60.GETG50 C|
00004FE0: 4D 50 20 23 35 36 0D 20 20 20 20 20 20 20 42 45 |MP #56. BE|
00004FF0: 51 20 47 45 54 47 37 30 0D 20 20 20 20 20 20 20 |Q GETG70. |
00005000: 41 4E 44 20 23 37 20 20 20 20 20 20 20 3B 20 D3 |AND #7 ; .|
00005010: 48 4F 52 54 53 54 52 49 4E 47 0D 20 20 20 20 20 |HORTSTRING. |
00005020: 20 20 53 54 41 20 49 0D 20 20 20 20 20 20 20 4D | STA I. M|
00005030: 56 57 20 50 32 2C 50 4C 0D 20 20 20 20 20 20 20 |VW P2,PL. |
00005040: 4C 44 59 20 23 31 0D 47 45 54 47 36 30 20 54 59 |LDY #1.GETG60 TY|
00005050: 41 0D 20 20 20 20 20 20 20 43 4C 43 0D 20 20 20 |A. CLC. |
00005060: 20 20 20 20 41 44 43 20 50 4C 0D 20 20 20 20 20 | ADC PL. |
00005070: 20 20 53 54 41 20 50 4C 0D 20 20 20 20 20 20 20 | STA PL. |
00005080: 42 43 43 20 47 45 54 47 36 31 0D 20 20 20 20 20 |BCC GETG61. |
00005090: 20 20 49 4E 43 20 50 4C 2B 31 0D 47 45 54 47 36 | INC PL+1.GETG6|
000050A0: 31 20 4A 53 52 20 47 45 54 53 54 52 0D 20 20 20 |1 JSR GETSTR. |
000050B0: 20 20 20 20 4D 56 57 20 50 32 2C 42 41 43 4B 0D | MVW P2,BACK.|
000050C0: 20 20 20 20 20 20 20 4C 44 41 20 50 52 49 4F 52 | LDA PRIOR|
000050D0: 43 0D 20 20 20 20 20 20 20 52 54 53 0D 47 45 54 |C. RTS.GET|
000050E0: 47 37 30 20 4C 44 59 20 23 30 20 20 20 20 20 20 |G70 LDY #0 |
000050F0: 20 3B 20 C1 52 52 41 59 45 4C 45 4D 45 4E 54 0D | ; .RRAYELEMENT.|
00005100: 20 20 20 20 20 20 20 4C 44 41 20 23 31 36 35 0D | LDA #165.|
00005110: 20 20 20 20 20 20 20 53 54 41 20 28 50 54 29 2C | STA (PT),|
00005120: 59 0D 20 20 20 20 20 20 20 49 4E 43 20 50 54 0D |Y. INC PT.|
00005130: 20 20 20 20 20 20 20 4C 44 59 20 23 31 0D 20 20 | LDY #1. |
00005140: 20 20 20 20 20 4C 44 41 20 28 50 32 29 2C 59 0D | LDA (P2),Y.|
00005150: 20 20 20 20 20 20 20 53 54 41 20 42 41 43 4B 2B | STA BACK+|
00005160: 31 0D 20 20 20 20 20 20 20 49 4E 59 0D 20 20 20 |1. INY. |
00005170: 20 20 20 20 4C 44 41 20 28 50 32 29 2C 59 0D 20 | LDA (P2),Y. |
00005180: 20 20 20 20 20 20 53 54 41 20 42 41 43 4B 0D 20 | STA BACK. |
00005190: 20 20 20 20 20 20 4A 53 52 20 44 49 56 37 0D 20 | JSR DIV7. |
000051A0: 20 20 20 20 20 20 4C 44 41 20 42 41 43 4B 0D 20 | LDA BACK. |
000051B0: 20 20 20 20 20 20 41 53 4C 20 41 0D 20 20 20 20 | ASL A. |
000051C0: 20 20 20 52 4F 4C 20 42 41 43 4B 2B 31 0D 20 20 | ROL BACK+1. |
000051D0: 20 20 20 20 20 41 44 43 20 56 53 54 0D 20 20 20 | ADC VST. |
000051E0: 20 20 20 20 53 54 41 20 24 36 31 0D 20 20 20 20 | STA $61. |
000051F0: 20 20 20 4C 44 41 20 42 41 43 4B 2B 31 0D 20 20 | LDA BACK+1. |
00005200: 20 20 20 20 20 41 44 43 20 56 53 54 2B 31 0D 20 | ADC VST+1. |
00005210: 20 20 20 20 20 20 53 54 41 20 24 36 32 0D 20 20 | STA $62. |
00005220: 20 20 20 20 20 4A 53 52 20 56 4E 41 4D 45 0D 20 | JSR VNAME. |
00005230: 20 20 20 20 20 20 4A 53 52 20 56 41 52 4E 43 0D | JSR VARNC.|
00005240: 20 20 20 20 20 20 20 4C 44 41 20 23 27 28 27 0D | LDA #'('.|
00005250: 20 20 20 20 20 20 20 4A 53 52 20 41 44 44 43 48 | JSR ADDCH|
00005260: 52 0D 20 20 20 20 20 20 20 4A 53 52 20 50 55 53 |R. JSR PUS|
00005270: 48 52 47 0D 20 20 20 20 20 20 20 4C 44 41 20 23 |HRG. LDA #|
00005280: 33 32 0D 20 20 20 20 20 20 20 4C 44 59 20 57 50 |32. LDY WP|
00005290: 2B 31 0D 20 20 20 20 20 20 20 53 54 41 20 50 54 |+1. STA PT|
000052A0: 0D 20 20 20 20 20 20 20 53 54 59 20 50 54 2B 31 |. STY PT+1|
000052B0: 0D 20 20 20 20 20 20 20 4D 56 57 20 50 32 2C 50 |. MVW P2,P|
000052C0: 4C 0D 20 20 20 20 20 20 20 4A 53 52 20 47 45 54 |L. JSR GET|
000052D0: 45 58 50 0D 20 20 20 20 20 20 20 4C 44 41 20 57 |EXP. LDA W|
000052E0: 50 2B 31 0D 20 20 20 20 20 20 20 50 48 41 0D 20 |P+1. PHA. |
000052F0: 20 20 20 20 20 20 4A 53 52 20 50 4F 50 52 47 0D | JSR POPRG.|
00005300: 20 20 20 20 20 20 20 4D 56 57 20 42 41 43 4B 2C | MVW BACK,|
00005310: 50 4C 0D 20 20 20 20 20 20 20 50 4C 41 0D 20 20 |PL. PLA. |
00005320: 20 20 20 20 20 53 54 41 20 42 41 43 4B 2B 31 0D | STA BACK+1.|
00005330: 20 20 20 20 20 20 20 4C 44 41 20 23 33 32 0D 20 | LDA #32. |
00005340: 20 20 20 20 20 20 53 54 41 20 42 41 43 4B 0D 20 | STA BACK. |
00005350: 20 20 20 20 20 20 4C 44 59 20 23 30 0D 47 45 54 | LDY #0.GET|
00005360: 47 37 31 20 4C 44 41 20 28 42 41 43 4B 29 2C 59 |G71 LDA (BACK),Y|
00005370: 0D 20 20 20 20 20 20 20 53 54 41 20 28 50 54 29 |. STA (PT)|
00005380: 2C 59 0D 20 20 20 20 20 20 20 42 45 51 20 47 45 |,Y. BEQ GE|
00005390: 54 47 37 32 0D 20 20 20 20 20 20 20 49 4E 59 0D |TG72. INY.|
000053A0: 20 20 20 20 20 20 20 42 4E 45 20 47 45 54 47 37 | BNE GETG7|
000053B0: 31 0D 47 45 54 47 37 32 20 4C 44 41 20 23 27 29 |1.GETG72 LDA #')|
000053C0: 27 0D 20 20 20 20 20 20 20 53 54 41 20 28 50 54 |'. STA (PT|
000053D0: 29 2C 59 0D 20 20 20 20 20 20 20 49 4E 59 0D 20 |),Y. INY. |
000053E0: 20 20 20 20 20 20 4C 44 41 20 23 30 0D 20 20 20 | LDA #0. |
000053F0: 20 20 20 20 53 54 41 20 28 50 54 29 2C 59 0D 20 | STA (PT),Y. |
00005400: 20 20 20 20 20 20 4D 56 57 20 50 4C 2C 42 41 43 | MVW PL,BAC|
00005410: 4B 0D 20 20 20 20 20 20 20 4C 44 41 20 50 52 49 |K. LDA PRI|
00005420: 4F 52 43 0D 20 20 20 20 20 20 20 52 54 53 0D 3B |ORC. RTS.;|
00005430: 0D 3B 0D 49 53 45 58 50 52 20 4C 44 59 20 23 30 |.;.ISEXPR LDY #0|
00005440: 20 20 20 20 20 20 20 3B 20 C1 55 46 20 C1 55 53 | ; .UF .US|
00005450: 44 52 55 43 4B 45 4C 45 4D 45 4E 54 20 50 52 55 |DRUCKELEMENT PRU|
00005460: 45 46 45 4E 0D 20 20 20 20 20 20 20 4C 44 41 20 |EFEN. LDA |
00005470: 28 43 4F 55 4E 54 29 2C 59 0D 20 20 20 20 20 20 |(COUNT),Y. |
00005480: 20 42 45 51 20 49 53 4E 45 58 50 0D 20 20 20 20 | BEQ ISNEXP. |
00005490: 20 20 20 43 4D 50 20 23 31 36 0D 20 20 20 20 20 | CMP #16. |
000054A0: 20 20 42 43 43 20 49 53 45 58 50 0D 20 20 20 20 | BCC ISEXP. |
000054B0: 20 20 20 43 4D 50 20 23 33 32 0D 20 20 20 20 20 | CMP #32. |
000054C0: 20 20 42 43 43 20 49 53 4E 45 58 50 0D 20 20 20 | BCC ISNEXP. |
000054D0: 20 20 20 20 43 4D 50 20 23 24 33 37 0D 20 20 20 | CMP #$37. |
000054E0: 20 20 20 20 42 43 43 20 49 53 45 58 50 0D 20 20 | BCC ISEXP. |
000054F0: 20 20 20 20 20 43 4D 50 20 23 24 33 38 0D 20 20 | CMP #$38. |
00005500: 20 20 20 20 20 42 45 51 20 49 53 45 58 50 0D 20 | BEQ ISEXP. |
00005510: 20 20 20 20 20 20 43 4D 50 20 23 24 38 30 0D 20 | CMP #$80. |
00005520: 20 20 20 20 20 20 42 43 43 20 49 53 4E 45 58 50 | BCC ISNEXP|
00005530: 0D 20 20 20 20 20 20 20 43 4D 50 20 23 24 43 30 |. CMP #$C0|
00005540: 0D 20 20 20 20 20 20 20 42 43 43 20 49 53 45 58 |. BCC ISEX|
00005550: 50 0D 20 20 20 20 20 20 20 43 4D 50 20 23 24 45 |P. CMP #$E|
00005560: 37 0D 20 20 20 20 20 20 20 42 43 43 20 49 53 4E |7. BCC ISN|
00005570: 45 58 50 0D 49 53 45 58 50 20 20 53 45 43 0D 20 |EXP.ISEXP SEC. |
00005580: 20 20 20 20 20 20 52 54 53 0D 49 53 4E 45 58 50 | RTS.ISNEXP|
00005590: 20 43 4C 43 0D 20 20 20 20 20 20 20 52 54 53 0D | CLC. RTS.|
000055A0: 3B 0D 49 53 4C 45 54 20 20 4C 44 59 20 23 30 20 |;.ISLET LDY #0 |
000055B0: 20 20 20 20 20 20 3B 20 C1 55 46 20 DA 55 57 45 | ; .UF .UWE|
000055C0: 49 53 55 4E 47 20 50 52 55 45 46 45 4E 0D 20 20 |ISUNG PRUEFEN. |
000055D0: 20 20 20 20 20 4C 44 41 20 28 43 4F 55 4E 54 29 | LDA (COUNT)|
000055E0: 2C 59 0D 20 20 20 20 20 20 20 43 4D 50 20 23 24 |,Y. CMP #$|
000055F0: 43 30 0D 20 20 20 20 20 20 20 42 43 43 20 49 53 |C0. BCC IS|
00005600: 4E 4C 45 54 0D 20 20 20 20 20 20 20 43 4D 50 20 |NLET. CMP |
00005610: 23 24 45 37 0D 20 20 20 20 20 20 20 42 43 53 20 |#$E7. BCS |
00005620: 49 53 4E 4C 45 54 0D 20 20 20 20 20 20 20 53 45 |ISNLET. SE|
00005630: 43 0D 20 20 20 20 20 20 20 52 54 53 0D 49 53 4E |C. RTS.ISN|
00005640: 4C 45 54 20 43 4C 43 0D 20 20 20 20 20 20 20 52 |LET CLC. R|
00005650: 54 53 0D 3B 0D 41 44 44 4C 49 4E 20 4A 53 52 20 |TS.;.ADDLIN JSR |
00005660: 53 45 41 52 43 48 0D 20 20 20 20 20 20 20 42 43 |SEARCH. BC|
00005670: 43 20 41 44 44 4C 30 32 0D 20 20 20 20 20 20 20 |C ADDL02. |
00005680: 52 54 53 0D 41 44 44 4C 30 32 20 4D 56 57 20 4C |RTS.ADDL02 MVW L|
00005690: 4C 49 4E 45 2C 24 36 35 0D 20 20 20 20 20 20 20 |LINE,$65. |
000056A0: 43 4C 43 0D 20 20 20 20 20 20 20 4C 44 41 20 23 |CLC. LDA #|
000056B0: 32 0D 20 20 20 20 20 20 20 41 44 43 20 4C 4C 49 |2. ADC LLI|
000056C0: 4E 45 0D 20 20 20 20 20 20 20 53 54 41 20 4C 4C |NE. STA LL|
000056D0: 49 4E 45 0D 20 20 20 20 20 20 20 42 43 43 20 41 |INE. BCC A|
000056E0: 44 44 4C 30 33 0D 20 20 20 20 20 20 20 49 4E 43 |DDL03. INC|
000056F0: 20 4C 4C 49 4E 45 2B 31 0D 20 20 20 20 20 20 20 | LLINE+1. |
00005700: 4C 44 41 20 4C 4C 49 4E 45 0D 20 20 20 20 20 20 |LDA LLINE. |
00005710: 20 43 4D 50 20 23 24 44 30 0D 20 20 20 20 20 20 | CMP #$D0. |
00005720: 20 42 43 43 20 41 44 44 4C 30 33 0D 20 20 20 20 | BCC ADDL03. |
00005730: 20 20 20 4A 4D 50 20 4E 4F 4D 45 4D 0D 41 44 44 | JMP NOMEM.ADD|
00005740: 4C 30 33 20 4D 56 57 20 24 37 41 2C 24 35 46 0D |L03 MVW $7A,$5F.|
00005750: 41 44 44 4C 30 34 20 4C 44 41 20 24 36 35 0D 20 |ADDL04 LDA $65. |
00005760: 20 20 20 20 20 20 42 4E 45 20 41 44 44 4C 30 35 | BNE ADDL05|
00005770: 0D 20 20 20 20 20 20 20 44 45 43 20 24 36 36 0D |. DEC $66.|
00005780: 41 44 44 4C 30 35 20 44 45 43 20 24 36 35 0D 20 |ADDL05 DEC $65. |
00005790: 20 20 20 20 20 20 4C 44 41 20 24 35 46 0D 20 20 | LDA $5F. |
000057A0: 20 20 20 20 20 42 4E 45 20 41 44 44 4C 30 36 0D | BNE ADDL06.|
000057B0: 20 20 20 20 20 20 20 44 45 43 20 24 36 30 0D 41 | DEC $60.A|
000057C0: 44 44 4C 30 36 20 44 45 43 20 24 35 46 0D 20 20 |DDL06 DEC $5F. |
000057D0: 20 20 20 20 20 4C 44 59 20 23 30 0D 20 20 20 20 | LDY #0. |
000057E0: 20 20 20 4C 44 41 20 28 24 36 35 29 2C 59 0D 20 | LDA ($65),Y. |
000057F0: 20 20 20 20 20 20 53 54 41 20 28 24 35 46 29 2C | STA ($5F),|
00005800: 59 0D 20 20 20 20 20 20 20 4C 44 41 20 24 36 34 |Y. LDA $64|
00005810: 0D 20 20 20 20 20 20 20 43 4D 50 20 24 36 36 0D |. CMP $66.|
00005820: 20 20 20 20 20 20 20 42 43 43 20 41 44 44 4C 30 | BCC ADDL0|
00005830: 34 0D 20 20 20 20 20 20 20 4C 44 41 20 24 36 33 |4. LDA $63|
00005840: 0D 20 20 20 20 20 20 20 43 4D 50 20 24 36 35 0D |. CMP $65.|
00005850: 20 20 20 20 20 20 20 42 43 43 20 41 44 44 4C 30 | BCC ADDL0|
00005860: 34 0D 20 20 20 20 20 20 20 4C 44 41 20 42 41 43 |4. LDA BAC|
00005870: 4B 0D 20 20 20 20 20 20 20 53 54 41 20 28 24 36 |K. STA ($6|
00005880: 33 29 2C 59 0D 20 20 20 20 20 20 20 49 4E 59 0D |3),Y. INY.|
00005890: 20 20 20 20 20 20 20 4C 44 41 20 42 41 43 4B 2B | LDA BACK+|
000058A0: 31 0D 20 20 20 20 20 20 20 53 54 41 20 28 24 36 |1. STA ($6|
000058B0: 33 29 2C 59 0D 20 20 20 20 20 20 20 52 54 53 0D |3),Y. RTS.|
000058C0: 3B 0D 4E 4F 4D 20 20 20 20 2E 42 59 54 20 27 4E |;.NOM .BYT 'N|
000058D0: 4F 54 20 45 4E 4F 55 47 48 20 4D 45 4D 4F 52 59 |OT ENOUGH MEMORY|
000058E0: 21 21 27 2C 24 38 44 0D 3B 0D 4E 4F 4D 45 4D 20 |!!',$8D.;.NOMEM |
000058F0: 20 50 52 49 4E 54 20 4E 4F 4D 0D 20 20 20 20 20 | PRINT NOM. |
00005900: 20 20 4C 44 58 20 53 41 56 45 53 50 0D 20 20 20 | LDX SAVESP. |
00005910: 20 20 20 20 54 58 53 0D 20 20 20 20 20 20 20 4C | TXS. L|
00005920: 44 58 20 23 32 0D 20 20 20 20 20 20 20 4A 53 52 |DX #2. JSR|
00005930: 20 43 4B 4F 55 54 0D 20 20 20 20 20 20 20 4C 44 | CKOUT. LD|
00005940: 41 20 23 30 0D 20 20 20 20 20 20 20 4A 53 52 20 |A #0. JSR |
00005950: 42 53 4F 55 54 0D 20 20 20 20 20 20 20 4A 53 52 |BSOUT. JSR|
00005960: 20 42 53 4F 55 54 0D 20 20 20 20 20 20 20 4A 53 | BSOUT. JS|
00005970: 52 20 43 4C 52 43 48 0D 20 20 20 20 20 20 20 4C |R CLRCH. L|
00005980: 44 58 20 23 32 0D 20 20 20 20 20 20 20 4A 53 52 |DX #2. JSR|
00005990: 20 43 4C 4F 53 45 0D 20 20 20 20 20 20 20 4A 4D | CLOSE. JM|
000059A0: 50 20 53 54 41 52 54 0D 3B 0D 4C 49 4E 45 4E 44 |P START.;.LINEND|
000059B0: 20 50 48 57 20 43 4F 55 4E 54 0D 20 20 20 20 20 | PHW COUNT. |
000059C0: 20 20 4C 44 41 20 50 54 0D 20 20 20 20 20 20 20 | LDA PT. |
000059D0: 43 4D 50 20 23 37 32 0D 20 20 20 20 20 20 20 42 |CMP #72. B|
000059E0: 43 53 20 4C 49 4E 45 30 32 0D 20 20 20 20 20 20 |CS LINE02. |
000059F0: 20 42 43 43 20 4C 49 4E 45 4E 32 0D 4C 49 4E 45 | BCC LINEN2.LINE|
00005A00: 4E 31 20 50 48 57 20 43 4F 55 4E 54 0D 4C 49 4E |N1 PHW COUNT.LIN|
00005A10: 45 4E 32 20 4A 53 52 20 4E 45 58 54 0D 20 20 20 |EN2 JSR NEXT. |
00005A20: 20 20 20 20 4D 56 57 20 43 4F 55 4E 54 2C 42 41 | MVW COUNT,BA|
00005A30: 43 4B 0D 20 20 20 20 20 20 20 4A 53 52 20 53 45 |CK. JSR SE|
00005A40: 41 52 43 48 0D 20 20 20 20 20 20 20 42 43 43 20 |ARCH. BCC |
00005A50: 4C 49 4E 45 30 33 0D 4C 49 4E 45 30 32 20 50 4C |LINE03.LINE02 PL|
00005A60: 57 20 43 4F 55 4E 54 0D 20 20 20 20 20 20 20 53 |W COUNT. S|
00005A70: 45 43 0D 20 20 20 20 20 20 20 52 54 53 0D 4C 49 |EC. RTS.LI|
00005A80: 4E 45 30 33 20 50 4C 57 20 43 4F 55 4E 54 0D 20 |NE03 PLW COUNT. |
00005A90: 20 20 20 20 20 20 43 4C 43 0D 20 20 20 20 20 20 | CLC. |
00005AA0: 20 52 54 53 0D 3B 0D 49 4E 43 50 54 20 20 4C 44 | RTS.;.INCPT LD|
00005AB0: 59 20 23 32 35 35 0D 49 4E 43 50 54 30 20 49 4E |Y #255.INCPT0 IN|
00005AC0: 59 0D 20 20 20 20 20 20 20 4C 44 41 20 28 50 54 |Y. LDA (PT|
00005AD0: 29 2C 59 0D 20 20 20 20 20 20 20 42 4E 45 20 49 |),Y. BNE I|
00005AE0: 4E 43 50 54 30 0D 20 20 20 20 20 20 20 43 4C 43 |NCPT0. CLC|
00005AF0: 0D 20 20 20 20 20 20 20 54 59 41 0D 20 20 20 20 |. TYA. |
00005B00: 20 20 20 41 44 43 20 50 54 0D 20 20 20 20 20 20 | ADC PT. |
00005B10: 20 53 54 41 20 50 54 0D 20 20 20 20 20 20 20 4C | STA PT. L|
00005B20: 44 59 20 23 30 0D 20 20 20 20 20 20 20 52 54 53 |DY #0. RTS|
00005B30: 0D 3B 0D 41 44 44 43 48 52 20 50 48 41 0D 20 20 |.;.ADDCHR PHA. |
00005B40: 20 20 20 20 20 4C 44 59 20 23 32 35 35 0D 41 44 | LDY #255.AD|
00005B50: 44 43 48 30 20 49 4E 59 0D 20 20 20 20 20 20 20 |DCH0 INY. |
00005B60: 4C 44 41 20 28 50 54 29 2C 59 0D 20 20 20 20 20 |LDA (PT),Y. |
00005B70: 20 20 42 4E 45 20 41 44 44 43 48 30 0D 20 20 20 | BNE ADDCH0. |
00005B80: 20 20 20 20 50 4C 41 0D 20 20 20 20 20 20 20 53 | PLA. S|
00005B90: 54 41 20 28 50 54 29 2C 59 0D 20 20 20 20 20 20 |TA (PT),Y. |
00005BA0: 20 53 45 43 0D 20 20 20 20 20 20 20 54 59 41 0D | SEC. TYA.|
00005BB0: 20 20 20 20 20 20 20 41 44 43 20 50 54 0D 20 20 | ADC PT. |
00005BC0: 20 20 20 20 20 53 54 41 20 50 54 0D 20 20 20 20 | STA PT. |
00005BD0: 20 20 20 4C 44 59 20 23 30 0D 20 20 20 20 20 20 | LDY #0. |
00005BE0: 20 54 59 41 0D 20 20 20 20 20 20 20 53 54 41 20 | TYA. STA |
00005BF0: 28 50 54 29 2C 59 0D 20 20 20 20 20 20 20 52 54 |(PT),Y. RT|
00005C00: 53 0D 3B 0D 53 45 41 52 43 48 20 4D 56 57 20 4C |S.;.SEARCH MVW L|
00005C10: 4C 49 4E 45 2C 24 36 33 0D 20 20 20 20 20 20 20 |LINE,$63. |
00005C20: 4C 44 41 20 23 3E 4C 49 4E 42 55 46 0D 20 20 20 |LDA #>LINBUF. |
00005C30: 20 20 20 20 4C 44 59 20 23 30 0D 20 20 20 20 20 | LDY #0. |
00005C40: 20 20 53 54 59 20 24 36 31 0D 20 20 20 20 20 20 | STY $61. |
00005C50: 20 53 54 41 20 24 36 32 0D 53 45 4C 4F 4F 50 20 | STA $62.SELOOP |
00005C60: 43 4C 43 0D 20 20 20 20 20 20 20 4C 44 41 20 24 |CLC. LDA $|
00005C70: 36 31 0D 20 20 20 20 20 20 20 41 44 43 20 24 36 |61. ADC $6|
00005C80: 33 0D 20 20 20 20 20 20 20 53 54 41 20 24 36 35 |3. STA $65|
00005C90: 0D 20 20 20 20 20 20 20 4C 44 41 20 24 36 32 0D |. LDA $62.|
00005CA0: 20 20 20 20 20 20 20 41 44 43 20 24 36 34 0D 20 | ADC $64. |
00005CB0: 20 20 20 20 20 20 52 4F 52 20 41 0D 20 20 20 20 | ROR A. |
00005CC0: 20 20 20 53 54 41 20 24 36 36 0D 20 20 20 20 20 | STA $66. |
00005CD0: 20 20 4C 44 41 20 24 36 35 0D 20 20 20 20 20 20 | LDA $65. |
00005CE0: 20 52 4F 52 20 41 0D 20 20 20 20 20 20 20 41 4E | ROR A. AN|
00005CF0: 44 20 23 32 35 34 0D 20 20 20 20 20 20 20 53 54 |D #254. ST|
00005D00: 41 20 24 36 35 0D 20 20 20 20 20 20 20 43 4D 50 |A $65. CMP|
00005D10: 20 24 36 31 0D 20 20 20 20 20 20 20 42 4E 45 20 | $61. BNE |
00005D20: 53 45 4C 30 31 0D 20 20 20 20 20 20 20 4C 44 41 |SEL01. LDA|
00005D30: 20 24 36 36 0D 20 20 20 20 20 20 20 43 4D 50 20 | $66. CMP |
00005D40: 24 36 32 0D 20 20 20 20 20 20 20 42 4E 45 20 53 |$62. BNE S|
00005D50: 45 4C 30 31 0D 20 20 20 20 20 20 20 43 4C 43 0D |EL01. CLC.|
00005D60: 20 20 20 20 20 20 20 52 54 53 0D 53 45 4C 30 31 | RTS.SEL01|
00005D70: 20 20 4C 44 59 20 23 31 0D 20 20 20 20 20 20 20 | LDY #1. |
00005D80: 4C 44 41 20 28 24 36 35 29 2C 59 0D 20 20 20 20 |LDA ($65),Y. |
00005D90: 20 20 20 43 4D 50 20 42 41 43 4B 2B 31 0D 20 20 | CMP BACK+1. |
00005DA0: 20 20 20 20 20 42 43 43 20 53 45 4C 30 32 0D 20 | BCC SEL02. |
00005DB0: 20 20 20 20 20 20 42 4E 45 20 53 45 4C 30 33 0D | BNE SEL03.|
00005DC0: 20 20 20 20 20 20 20 44 45 59 0D 20 20 20 20 20 | DEY. |
00005DD0: 20 20 4C 44 41 20 28 24 36 35 29 2C 59 0D 20 20 | LDA ($65),Y. |
00005DE0: 20 20 20 20 20 43 4D 50 20 42 41 43 4B 0D 20 20 | CMP BACK. |
00005DF0: 20 20 20 20 20 42 43 43 20 53 45 4C 30 32 0D 20 | BCC SEL02. |
00005E00: 20 20 20 20 20 20 42 4E 45 20 53 45 4C 30 33 0D | BNE SEL03.|
00005E10: 20 20 20 20 20 20 20 52 54 53 0D 53 45 4C 30 32 | RTS.SEL02|
00005E20: 20 20 4D 56 57 20 24 36 35 2C 24 36 31 0D 20 20 | MVW $65,$61. |
00005E30: 20 20 20 20 20 4A 4D 50 20 53 45 4C 4F 4F 50 0D | JMP SELOOP.|
00005E40: 53 45 4C 30 33 20 20 4D 56 57 20 24 36 35 2C 24 |SEL03 MVW $65,$|
00005E50: 36 33 0D 20 20 20 20 20 20 20 4A 4D 50 20 53 45 |63. JMP SE|
00005E60: 4C 4F 4F 50 0D 3B 0D 20 20 20 20 20 20 20 2E 46 |LOOP.;. .F|
00005E70: 49 4C 20 44 45 43 4F 4D 50 32 2E 53 52 43 0D |IL DECOMP2.SRC. |
;***************************************
********************.;*
*.;* DECOMPILER FUER C64 MIT AUSTROC
OMPILER *.;* BRINGT
MIT DEM AUSTROCOMPILER KOMPILIERTE
*.;* BASICPROGRAMM WIEDER IN E
INE LESBARE FORM. *.;*
*.;* GESCHRIEBEN 1987/88 VON THO
MAS KLAEGER *.;*
*.;*******************************
****************************.;.;.
.NOLIST. .ERROR.* = $9000.;
.; BETRIEBSSYSTEMROUTINEN:.;.BSOUT =
$FFD2.BASIN = $FFCF.CLRCH = $FFCC
.CHKIN = $FFC6.CKOUT = $FFC9.OPEN
= $FFC0.CLOSE = $FFC3.FILPAR =
$FFBA.FILNAM = $FFBD.LOAD = $FFD5.
RESET = $FCE2.;.; DATENADRESSEN: (GL
OBALE DATEN).;.VST = $2D.ARST =
$2F.AREN = $31.INST = $33.DATST
= $35.PRGST = $37.COUNT = $39.
;.SAVESP = $FE.;.NAMLEN = $FF.NAMBUF
= $200.NAMBU2 = NAMBUF+2.;.; DATEN
ADRESSEN: (LOKALE DATEN, WERDEN MIT PUSH
RG GERETTET.; UND MIT P
OPRG RESTAURIERT).;.WP = $3B.PF
= $3D.PL = $3F.PT = $41.
P2 = $43.PRIOR1 = $45.PRIOR2 =
$46.PRIORC = $47.C = $48.I
= $49.;.; HIERHER KOMMEN RUECKMELDU
NGEN:.;.BACK = $14.;.; DATEN ZUR ZE
ILENNUMMERIERUNG:..LINBUF = $B000.LLIN
E = $7A.;.; VERSCHIEDENE BENOETIGTE
MACROS:.;..MAC PRINT ;GIBT TEXT AUS.
LDX #0.?2 LDA ?1,X. PHA.
AND #$7F. JSR BSOUT. I
NX. PLA. BPL ?2..MND.;..MAC
MVW ;VERSCHIEBEN VON 2-BYTE-. LD
A ?1 ;ZEIGERN. LDY ?1+1. STA
?2. STY ?2+1..MND.;..MAC PHW ;P
USH WORD. LDA ?1+1. PHA.
LDA ?1. PHA..MND.;..MAC PLW ;
PULL WORD. PLA. STA ?1.
PLA. STA ?1+1..MND.;.;.; DAS WE
RK KANN BEGINNEN:.;. JMP START.;.E
RROR LDA #13 ; FLOPPYFEHLERKANAL AB
FRAGEN. JSR BSOUT. LDX #15
; VOM KOMMANDOKANAL DER FLOPPY.
JSR CHKIN ; LESEN. JSR BASIN
; ZEICHEN HOLEN. CMP #'0' ; NUM
MER '00' ODER '01'?. BEQ OK.
CMP #'7' ; NUMMER '73' (RESETMELDUNG
?). BNE OUT. JSR BASIN.
CMP #'3'. BEQ OK. PHA.
LDA #'7'. JSR BSOUT. PLA.
OUT JSR BSOUT ; FEHLERMELDUNG AUSGE
BEN. JSR BASIN. CMP #$D.
BNE OUT. PLA. PLA.
JSR CLRCH. JMP START.OK JSR BA
SIN ; FEHLERMELDUNG NUR LESEN. C
MP #$D. BNE OK. JSR CLRCH.
RTS.;.TITEL .BYT $D,'DECOMPILER ZU
M AUSTROCOMPILER',$8D.FNAM .BYT 'BITTE
FILENAMEN EINGEBEN',$8D.INIT .BYT 'I0
'.;.;.ENDE JMP RESET.;.;.START TSX.
STX SAVESP. PRINT TITEL.
PRINT FNAM. LDY #0.GET JSR BA
SIN. CMP #$D. BEQ END.
CMP #95 ; "<-" ZUM ABBRUCH. B
EQ ENDE. STA NAMBUF+2,Y. INY
. BNE GET.END TYA. BEQ ST
ART. CMP #16. BCS START.
STY NAMLEN.;. LDA #15 ;FEHLERKA
NAL OEFFNEN. LDX #8. TAY.
JSR FILPAR. LDA #2. LDX
#<INIT. LDY #>INIT. JSR FILN
AM. JSR OPEN.;. LDA #1 ;PROG
RAMM LADEN. LDX #8. LDY #0.
JSR FILPAR. LDA NAMLEN.
LDX #<NAMBU2. LDY #>NAMBU2.
JSR FILNAM. LDX #1. LDY #8
. LDA #0. JSR LOAD. JS
R ERROR.;. LDA NAMLEN. ADC #
2. CMP #16. BCC FILOP.
LDA #16.FILOP STA NAMLEN. LDA #'
B'. STA NAMBUF. LDA #'/'.
STA NAMBUF+1. LDX #15. J
SR CKOUT. LDA #'S' ; ALTES BASI
C-. JSR BSOUT ; PROGRAMM LOESCHE
N. LDA #':'. JSR BSOUT.
LDY #0.DELOOP LDA NAMBUF,Y. JSR
BSOUT. INY. CPY NAMLEN.
BNE DELOOP. LDA #13. JSR B
SOUT. JSR CLRCH. JSR ERROR.
LDA #2 ; AUSGABEDATEI OEFFNEN.
LDX #8. LDY #1. JSR FILPA
R. CLC. LDA NAMLEN. LD
X #<NAMBUF. LDY #>NAMBUF. JS
R FILNAM. JSR OPEN. JSR ERRO
R.;. LDX #11 ;PARAMETER HOLEN.SETP
AR LDA $1784,X. STA VST,X. D
EX. BPL SETPAR.;. LDA DATST+
1 ; WIRKLICH AUSTRO-COMPILER-. CMP
INST+1 ; CODE?. BCC NOAUST.
BNE OK01. LDY DATST. CPY I
NST. BCC NOAUST.OK01 LDA PRGST+1
. CMP DATST+1. BCC NOAUST.
BNE OK02. LDY PRGST. CP
Y DATST. BCC NOAUST.OK02 LDA VST
+1. CMP PRGST+1. BCC NOAUST.
BNE OK03. LDY VST. CP
Y PRGST. BCC NOAUST.OK03 LDA ARS
T+1. CMP VST+1. BCC NOAUST.
BNE OK04. LDY ARST. CP
Y VST. BCC NOAUST.OK04 LDA AREN+
1. CMP ARST+1. BCC NOAUST.
BNE VPACK. LDY AREN. CP
Y ARST. BCS VPACK.NOAUST PRINT NOT
OK. LDX SAVESP. TXS. J
MP START.NOTOK .BYT 13,'CODE NICHT OK,
KEIN AUSTRO-COMPILER-',13,'PROGRAMM!!',$
8D.;.VPACK MVW VST,COUNT ; VARIABELNNAM
EN PACKEN. MVW VST,PT.VPACK0 LDA C
OUNT+1. CMP ARST+1. BCC VPA0
0. LDA COUNT. CMP ARST.
BCS VPACK1.VPA00 LDY #0. LDA (C
OUNT),Y. STA (PT),Y. INY.
LDA (COUNT),Y. STA (PT),Y.
CLC. LDA #7. ADC COUNT.
STA COUNT. BCC VPA01. I
NC COUNT+1.VPA01 CLC. LDA #2.
ADC PT. STA PT. BCC VPACK
0. INC PT+1. BNE VPACK0.VPAC
K1 MVW PT,ARST.;. LDY #0
; VORDEFINIERTE ARRAYS. LDA (INST)
,Y ; HOLEN. CMP #$16. BNE
PDA00. JMP NOAR ; KEINE AR
RAYS VORHANDEN.PDA00 MVW INST,COUNT.
MVW INST,PL. JSR INTVAL ;
ANZAHL ARRAYS HOLEN. INC BACK.
BNE PDA01. INC BACK+1.PDA01 M
VW BACK,$60 ; PLATZ FUER ARRAY-.
ASL $60 ; DESKRIPTOREN.
ROL $61 ; SCHAFFEN. CLC.
LDA $60. ADC BACK. STA
BACK. LDA $61. ADC BACK+1.
STA BACK+1. CLC. LDA AR
ST. ADC BACK. STA AREN.
LDA ARST+1. ADC BACK+1. ST
A AREN+1.;.ARLOOP JSR NEXT. LDY #0
. LDA (COUNT),Y. CMP #$16
; ENDE DER VORDEFINIERTEN. BE
Q NOAR ; ARRAYS. CMP #$10
; DIM?. BNE ARLOOP. JS
R GETARN. JMP ARLOOP.;.NOAR LDA
#>LINBUF. LDY #4. STA $7B.
STY $7A. LDA #$8F. LDY
#0. STA WP+1. STY WP.
LDA #0. STA LINBUF. STA LINB
UF+1. LDA #255. STA LINBUF+2
. STA LINBUF+3. LDA #$36.
STA 1. JSR PASS1. JSR PA
SS2. JSR PASS3. LDA #2.
JSR CLOSE. JMP START.;.; *******
*****************************.; *
UNTERPROGRAMME *.; *********
***************************.;.GETARN LDY
#1 ; ARRAYPARAMETER ABLEGEN.
LDA (COUNT),Y. STA $5A. INY
. LDA (COUNT),Y. STA $58.
INY. LDA (COUNT),Y. STA
$59. INY. LDA (COUNT),Y.
STA BACK+1. INY. LDA (COU
NT),Y. SEC. SBC #7. ST
A BACK. LDA BACK+1. SBC #0.
STA BACK+1. LSR A. STA
$61. LDA BACK. ROR A.
CLC. ADC BACK. STA BACK.
LDA BACK+1. ADC $61. STA
BACK+1. LDA $58. CMP #$DA.
BNE AR1. LDA $59. CMP
#$AA. BEQ AR3.AR1 CLC. LD
A BACK. ADC ARST. STA BACK.
LDA BACK+1. ADC ARST+1.
STA BACK+1. LDY #2.AR2 LDA $5
8,Y. STA (BACK),Y. DEY.
BPL AR2.AR3 RTS.;.INTVAL LDY #0.
LDA (PL),Y. BMI INTV00.
RTS.INTV00 STY BACK. STY BACK+1.
INY. CMP #$A6. BNE INTV
A1. LDA (PL),Y. STA BACK.
RTS.INTVA1 CMP #$A7. BNE INTVA
2. LDA (PL),Y. STA BACK+1.
INY. LDA (PL),Y. STA BA
CK. RTS.INTVA2 CMP #$C0. AND
#15. BCC INTV01. CLC.
ADC #$10.INTV01 STA BACK. RTS.;.N
EXTAB.; 0 1 2 3 4 5 6 7 8 9 A
B C D E F. .BYT 0,1,1,1,1,1,1,1,1,
1,1,1,1,1,1,1 0. .BYT 6,1,1,1,1,1,
1,1,0,3,3,0,0,1,1,2 1. .BYT 1,1,1,
1,1,1,1,1,1,1,1,1,1,1,1,1 2. .BYT
1,1,1,1,1,1,1,6,3,1,1,1,1,1,1,1 3.
.BYT 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1 4.
.BYT 1,1,1,1,1,1,1,1,1,1,1,1,1,1,
1,1 5. .BYT 2,1,1,1,1,1,1,1,1,1,1,
1,1,1,1,1 6. .BYT 1,1,1,1,1,1,1,1,
1,1,1,1,1,1,1,1 7. .BYT 1,1,1,1,1,
1,1,1,1,1,1,1,1,1,1,1 8. .BYT 1,1,
1,1,1,1,1,1,1,1,1,1,1,1,1,1 9. .BY
T 2,2,2,3,2,3,2,3,6,6,1,1,1,1,1,1 A.
.BYT 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
B. .BYT 1,1,1,1,1,1,1,1,1,1,1,1,1,
1,1,1 C. .BYT 1,1,1,1,1,1,1,1,1,1,
1,1,1,1,1,1 D. .BYT 2,2,2,3,2,3,1,
0,1,2,3,4,5,6,7,8 E. .BYT 1,1,1,1,
1,1,1,1,1,1,1,1,1,1,1,1 F.;.NEXT LDY #
0. LDA (COUNT),Y. TAX.
LDA NEXTAB,X. BEQ NEXTA.NEXTAD CL
C. ADC COUNT. STA COUNT.
BCC NEXT00. INC COUNT+1.NEXT00
RTS.NEXTA LDA (COUNT),Y. CMP #$E7
. BNE NEXTB. INY. LDA
(COUNT),Y. CLC. ADC #2.
BCC NEXTAD.NEXTB CMP #27. BCC N
EXTC. INY. LDA (COUNT),Y.
BNE NEXTAD.NEXTC CMP #24. BNE
NEXTD.NEXT01 INY. LDA (COUNT),Y.
CMP #':'. BNE NEXT01.
INY.NEXT02 TYA. BNE NEXTAD.NEXTD
INY. CPY #100. BEQ NEXT02.
LDA (COUNT),Y. CMP #$9E.
BNE NEXTD. INY. LDA (COUNT
),Y. CMP #'3'. BNE NEXTD.
INY. LDA (COUNT),Y. CMP
#'2'. BNE NEXTD. INY.
LDA (COUNT),Y. CMP #'2'. BNE
NEXTD. INY. LDA (COUNT),Y.
CMP #'0'. BNE NEXTD. I
NY. LDA (COUNT),Y. CMP #':'.
BNE NEXTD. INY. TYA.
JMP NEXTAD.;.GETVAL LDY #0.
LDA #$37. STA 1. LDA PRIORC.
PHA. LDA (PL),Y. CMP
#$A8. BNE GETINT. LDY PL+1.
LDA PL. CLC. ADC #1.
BCC GETV0. INY.GETV0 JSR $BB
A2. JSR $BDDD. LDA #$36.
STA 1. PLA. STA PRIORC.
RTS.;.GETINT JSR INTVAL. LDY
BACK. LDA BACK+1. JSR $B391.
JSR $BDDD. LDA #$36.
STA 1. PLA. STA PRIORC.
RTS.;.CINT LDA #$37. STA 1.
LDY BACK. LDA BACK+1. JS
R $B391. JSR $BDDD. LDA #$36
. STA 1. LDA #1. LDY #
0. STA BACK+1. STY BACK.
LDA (BACK),Y. CMP #32. BN
E CINT0. INC BACK.CINT0 LDA (BACK
),Y. STA (PT),Y. BEQ CINT1.
INY. BNE CINT0.CINT1 RTS.;.
GETSTR LDY #0. LDA #34. STA
(PT),Y.GETST1 LDA (PL),Y. CPY I.
BCS GETST2. INY. STA (P
T),Y. BNE GETST1.GETST2 INY.
LDA #34. STA (PT),Y. INY.
LDA #0. STA (PT),Y. RTS
.;.PUSHRG DEC WP+1. LDA WP+1.
CMP AREN+1. BNE PUSHR0. JM
P NOMEM.PUSHR0 LDY #0.PUSHR1 LDA $3D,Y.
STA (WP),Y. INY. CPY #
16. BNE PUSHR1. RTS.;.POPRG
LDY #0.POPRG1 LDA (WP),Y. STA $3D
,Y. INY. CPY #16. BNE
POPRG1. INC WP+1. RTS.;.VARN
A1 PHW COUNT. LDY #0. LDA (C
OUNT),Y. STY BACK+1. CMP #$E
5. BNE VARN01. INY. LD
A (COUNT),Y. STA BACK+1.VARN01 INY
. LDA (COUNT),Y. JSR VARN5.
PLW COUNT. RTS.;.VARNAM LDY
#0. LDA (PL),Y. AND #$3F.
STA I. CMP #32. BCS VARN
1. STA BACK. STY BACK+1.
JSR VNAM. JMP VARNC.VARN1 CMP
#35. BNE VARN2. INY. L
DA (PL),Y. STA BACK+1. INY.
LDA (PL),Y. STA BACK.
JSR VNAM. JMP VARNC.VARN2 BCS VAR
N3. AND #3. STA BACK+1.
INY. LDA (PL),Y. STA BACK.
JSR VNAM.VARNC LDY #0. LDA
$100,Y. STA (PT),Y. BEQ VAR
NEN. INY. BNE VARNC+2.VARNEN
MVW PL,BACK. RTS.;.VARN3 STY BAC
K+1. CMP #37. BNE VARN4.
INY. LDA (PL),Y. STA BACK
+1.VARN4 INY. LDA (PL),Y.VARN5 S
TA BACK. JSR ARNAM. PHA.
JSR VARNC. PLA. STA BACK.
JSR INCPT.GETMUL LDA #'('.
STA (PT),Y. TYA. SEC.
ADC PT. STA PT. JSR PUSHRG.
LDA BACK. PHA. LDA #16
. LDY WP+1. STA PT. ST
Y PT+1. JSR GETEXP. LDA #116
. LDY WP+1. STA P2. ST
Y P2+1.VARNL LDA #16. STA PT.
PLA. SEC. SBC #1. B
NE VARNL0. JMP VARNE1.VARNL0 PHA.
LDY #0.VARNL1 LDA (PT),Y. ST
A (P2),Y. BEQ VARNL2. INY.
BNE VARNL1.VARNL2 MVW BACK,PL.
JSR GETEXP. LDA #16. STA P
T. LDA #44. JSR ADDCHR.
LDA #116. LDY WP+1. STA P2
. STY P2+1. LDY #0.VARNL3 LD
A (P2),Y. STA (PT),Y. BEQ VA
RNL4. INY. BNE VARNL3.VARNL4
LDA #16. STA PT. JMP VARNL.
VARNE1 LDY #255.VARNE2 INY. LDA (P
T),Y. BNE VARNE2. LDA #')'.
STA (PT),Y. TYA. PHA.
MVW PT,$5F. JSR POPRG.
PLA. TAY. INY. LDA #0
. STA (PT),Y. DEY.VARNE3 LDA
($5F),Y. STA (PT),Y. DEY.
BPL VARNE3. RTS.;.VNAM LDA
BACK. ASL A. ROL BACK+1.
CLC. ADC VST. STA $61.
LDA BACK+1. ADC VST+1. S
TA $62.VNAME LDY #0. LDA ($61),Y.
PHP. AND #$7F. STA $1
00. INY. LDA ($61),Y.
PHP. AND #$7F. BEQ VNAM0.
STA $100,Y. INY.VNAM0 PLP.
BPL VNAM3. PLP. BMI VNAM
1. LDA #'$'. BNE VNAM2.VNAM1
LDA #'%'.VNAM2 STA $100,Y. INY.
BNE VNAM4.VNAM3 PLP.VNAM4 LDA #
0. STA $100,Y. RTS.;.ARNAM
SEC. LDA BACK. SBC #3.
STA BACK. BCS ARN00. DEC BA
CK+1.ARN00 ASL A. TAX. LDA
BACK+1. ROL A. TAY. TX
A. CLC. ADC BACK. TAX.
TYA. ADC BACK+1. TAY.
TXA. ADC ARST. STA $6
1. TYA. ADC ARST+1. ST
A $62. JSR VNAME. LDY #2.
LDA ($61),Y. RTS.;.GETEXP MVW
PF,COUNT ; HOLT AUSDRUCK AUS.GETEXL MVW
COUNT,P2 ; DEM TEXT. JSR NEXT.
LDA COUNT+1. CMP PL+1. BC
C GETEXL. LDA COUNT. CMP PL.
BCC GETEXL. LDY #0. L
DA (P2),Y. STA C. CMP #7
; PRIORITAET FESTSTELLEN. BCS G
X000. LDA #4. BNE GETEXA.GX0
00 CMP #9. BCS GX001. LDA #
5. BNE GETEXA.GX001 CMP #11.
BCS GX002. LDA #6. BNE GET
EXA.GX002 BNE GX003. LDA #8.
BNE GETEXA.GX003 CMP #13. BCS G
X004. LDA #2. BNE GETEXA.GX0
04 BNE GX005. LDA #1. BNE G
ETEXA.GX005 CMP #15. BCS GX006.
LDA #7. BNE GETEXA.GX006 BNE
GX007. LDA #7. BNE GETEXA.G
X007 LDA #10.GETEXA STA PRIORC. L
DA C. CMP #14. BCC GX008.
JMP GETB00.GX008 JSR PUSHRG ; D1 O
P D2. MVW P2,PL. LDA #132.
LDY WP+1. STA PT. STY P
T+1. JSR GETEXP ; HOLE D2.
LDY #PRIOR2-PF. STA (WP),Y.
MVW BACK,PL. LDA #32. STA PT
. JSR GETEXP ; HOLE D1. LDY
#PRIOR1-PF. STA (WP),Y. LDA
WP+1. PHA. JSR POPRG.
MVW BACK,PL. PLA. STA BACK+
1. LDA #32. STA BACK.
LDY #0. LDA PRIOR1 ; MUSS D1 GEK
LAMMERT WERDEN ?. CMP PRIORC.
BCS GX009 ; NEIN ->. LDA #'('
; '(' IN AUSDRUCKBUFFER. STA
(PT),Y. INC PT.GX009 LDA (BACK),Y
; D1 IN AUSDRUCKBUFFER. STA (PT),
Y. BEQ GX010. INY. BNE
GX009.GX010 LDA PRIOR1. CMP PRIO
RC. BCS GX011 ; WENN D1 GEKLAMM
ERT WERDEN MUSS. LDA #')' ; ')
' IN AUSDRUCKBUFFER. STA (PT),Y.
INY.GX011 TYA. CLC. AD
C PT. STA PT. LDY #0.
LDA C. CMP #7. BCC GX012.
ADC #162 ; + - * / ^ AND OR.
STA (PT),Y. INY. BNE GETA
00.GX012 AND #4. BEQ GX013.
LDA #179 ; '<'. STA (PT),Y.
INY.GX013 LDA C. AND #1.
BEQ GX014. LDA #177 ; '>'.
STA (PT),Y. INY.GX014 LDA C
. AND #2. BEQ GETA00.
LDA #178 ; '='. STA (PT),Y.
INY.GETA00 TYA. CLC. ADC
PT. STA PT. LDY #0. L
DA #132. STA BACK. LDA PRIOR
2 ; MUSS D2 GEKLAMMERT WERDEN ?.
CMP PRIORC. BCC GETA01 ; UNBEDI
NGT ->. BNE GETA02 ; SICHER NICH
T ->. LDA C. CMP #10 ;
WENN OP <> '/'. BNE GETA02 ; NIC
HT KLAMMERN ->. DEC PRIOR2 ; MER
KEN FUER 2. TEST.GETA01 LDA #'('.
STA (PT),Y. INC PT.GETA02 LDA (BAC
K),Y. STA (PT),Y. BEQ GETA03
. INY. BNE GETA02.GETA03 LDA
PRIOR2. CMP PRIORC. BCS GET
A04. LDA #')'. STA (PT),Y.
INY.GETA04 LDA #0. STA (PT),Y
. MVW PL,BACK. LDA PRIORC.
RTS ; GESCHAFFT!.GETB00 CM
P #32. BCS GETB02.GETB01 JMP GETC0
0.GETB02 CMP #52. BCS GETB01.
JSR PUSHRG. LDA #32 ; FKT(D1
). LDY WP+1. STA PT. S
TY PT+1. MVW P2,PL. JSR GETE
XP ; D1 HOLEN. LDA WP+1. PH
A. JSR POPRG. MVW BACK,PL.
PLA. STA BACK+1. LDA #3
2. STA BACK. LDY #0. L
DA C. CLC. ADC #148. S
TA (PT),Y ;.FKT IN DEN AUSDRUCKBUFFER.
INC PT. LDA #'(' ; '(' IN
DEN AUSDRUCKBUFFER. STA (PT),Y.
INC PT.GETB03 LDA (BACK),Y ; D1 IN
DEN AUSDRUCKBUFFER. STA (PT),Y.
BEQ GETB04. INY. BNE GET
B03.GETB04 LDA #')' ; ')' IN DEN AUS
DRUCKBUFFER. STA (PT),Y. INY
. LDA #0. STA (PT),Y.
MVW PL,BACK. LDA PRIORC. RTS
; GESCHAFFT!.GETC00 CMP #52.
BEQ GETC01. CMP #53. BN
E GETD00.GETC01 ADC #147 ; FKT(D1,D2
) (LEFT$,RIGHT$). LDY #0. ST
A (PT),Y ; FKT IN DEN AUS. INC P
T. LDA #2.GETC02 STA BACK ; BA
CK := 2/3. STY BACK+1. MVW P
2,PL. LDY #0. JSR GETMUL ;
2/3 TEILAUSDRUECKE IN KLAMMERN HOLEN.
LDA PRIORC. RTS ; GE
SCHAFFT!.GETD00 CMP #54. BNE GETE0
0. ADC #147 ; FKT(D1,D2,D3) (M
ID$). LDY #0. STA (PT),Y.
INC PT. LDA #3. BNE GETC
02.GETE00 CMP #$7F. BCS GETE02.GET
E01 JMP GETF00.GETE02 CMP #$A6. BC
S GETE01. MVW P2,PL. JSR VAR
NAM ; VARIABLE HOLEN. LDA PRIORC
. RTS.GETF00 CMP #$A6. BCS G
ETF02.GETF01 JMP GETG00.GETF02 CMP #$A9.
BCC GETF03. CMP #$B0.
BCC GETF01. CMP #$C0. BCC G
ETF03. CMP #$F0. BCC GETF01.
GETF03 MVW P2,PL ; KONSTANTE HOLEN.
JSR GETVAL. LDA #1. LDY
#0. STA BACK+1. STY BACK.
LDA (BACK),Y. CMP #32.
BNE GETF04. INC BACK.GETF04 LDA (B
ACK),Y. STA (PT),Y. BEQ GETF
05. INY. BNE GETF04.GETF05 M
VW PL,BACK. LDA PRIORC. RTS.
GETG00 CMP #14 ; '-' ? (VORZEICHEN)
. BEQ GETG01. CMP #15 ;
NOT. BNE GETG10.GETG01 JSR PUSHRG
. MVW P2,PL. LDA #132.
LDY WP+1. STA PT. STY PT+1.
JSR GETEXP. LDY #PRIOR2-PF.
STA (WP),Y. LDA WP+1.
PHA. JSR POPRG. MVW BACK,PL
. PLA. STA BACK+1. LDY
#0. LDA C. ASL A. STA
BACK. SEC. LDA #213.
SBC BACK. SBC C. STA (PT),Y
; OPERATOR MERKEN. INY. JM
P GETA00.GETG10 CMP #$AA. BNE GETG
20. LDY #0. LDA #255 ; P
I. STA (PT),Y. TYA. IN
Y. BNE GETH00.GETG20 CMP #$AB.
BNE GETG30. LDY #0. LDA #
'S' ; ST. STA (PT),Y. IN
Y. LDA #'T'. STA (PT),Y.
INY. BNE GETH00.GETG30 CMP #$AC
. BEQ GETG31. CMP #$AF.
BNE GETG40.GETG31 LDY #0. LDA #'
T' ; TI/TI$. STA (PT),Y.
INY. LDA #'I'. STA (PT),Y.
INY. LDA C. CMP #$AC.
BEQ GETH00. LDA #'$'.
STA (PT),Y. INY.GETH00 LDA #0.
STA (PT),Y. MVW P2,BACK.
LDA PRIORC. RTS.GETG40 CMP #$E7
; STRING. BNE GETG50. MVW
P2,PL. LDY #1. LDA (PL),Y.
STA I. INY. BNE GETG60.
GETG50 CMP #56. BEQ GETG70.
AND #7 ; SHORTSTRING. STA I.
MVW P2,PL. LDY #1.GETG60 TY
A. CLC. ADC PL. STA PL
. BCC GETG61. INC PL+1.GETG6
1 JSR GETSTR. MVW P2,BACK. L
DA PRIORC. RTS.GETG70 LDY #0
; ARRAYELEMENT. LDA #165. S
TA (PT),Y. INC PT. LDY #1.
LDA (P2),Y. STA BACK+1.
INY. LDA (P2),Y. STA BACK.
JSR DIV7. LDA BACK. AS
L A. ROL BACK+1. ADC VST.
STA $61. LDA BACK+1. ADC
VST+1. STA $62. JSR VNAME.
JSR VARNC. LDA #'('. J
SR ADDCHR. JSR PUSHRG. LDA #
32. LDY WP+1. STA PT.
STY PT+1. MVW P2,PL. JSR GET
EXP. LDA WP+1. PHA. JS
R POPRG. MVW BACK,PL. PLA.
STA BACK+1. LDA #32. ST
A BACK. LDY #0.GETG71 LDA (BACK),Y
. STA (PT),Y. BEQ GETG72.
INY. BNE GETG71.GETG72 LDA #')
'. STA (PT),Y. INY. LD
A #0. STA (PT),Y. MVW PL,BAC
K. LDA PRIORC. RTS.;.;.ISEXP
R LDY #0 ; AUF AUSDRUCKELEMENT PRU
EFEN. LDA (COUNT),Y. BEQ ISN
EXP. CMP #16. BCC ISEXP.
CMP #32. BCC ISNEXP. CMP
#$37. BCC ISEXP. CMP #$38.
BEQ ISEXP. CMP #$80. BC
C ISNEXP. CMP #$C0. BCC ISEX
P. CMP #$E7. BCC ISNEXP.ISEX
P SEC. RTS.ISNEXP CLC. RTS.
;.ISLET LDY #0 ; AUF ZUWEISUNG PR
UEFEN. LDA (COUNT),Y. CMP #$
C0. BCC ISNLET. CMP #$E7.
BCS ISNLET. SEC. RTS.ISN
LET CLC. RTS.;.ADDLIN JSR SEARCH.
BCC ADDL02. RTS.ADDL02 MVW L
LINE,$65. CLC. LDA #2.
ADC LLINE. STA LLINE. BCC A
DDL03. INC LLINE+1. LDA LLIN
E. CMP #$D0. BCC ADDL03.
JMP NOMEM.ADDL03 MVW $7A,$5F.ADDL04 L
DA $65. BNE ADDL05. DEC $66.
ADDL05 DEC $65. LDA $5F. BNE
ADDL06. DEC $60.ADDL06 DEC $5F.
LDY #0. LDA ($65),Y. ST
A ($5F),Y. LDA $64. CMP $66.
BCC ADDL04. LDA $63.
CMP $65. BCC ADDL04. LDA BAC
K. STA ($63),Y. INY. L
DA BACK+1. STA ($63),Y. RTS.
;.NOM .BYT 'NOT ENOUGH MEMORY!!',$8D.
;.NOMEM PRINT NOM. LDX SAVESP.
TXS. LDX #2. JSR CKOUT.
LDA #0. JSR BSOUT. JSR
BSOUT. JSR CLRCH. LDX #2.
JSR CLOSE. JMP START.;.LINEND
PHW COUNT. LDA PT. CMP #72.
BCS LINE02. BCC LINEN2.LINE
N1 PHW COUNT.LINEN2 JSR NEXT. MVW
COUNT,BACK. JSR SEARCH. BCC
LINE03.LINE02 PLW COUNT. SEC.
RTS.LINE03 PLW COUNT. CLC.
RTS.;.INCPT LDY #255.INCPT0 INY.
LDA (PT),Y. BNE INCPT0. CLC
. TYA. ADC PT. STA PT.
LDY #0. RTS.;.ADDCHR PHA.
LDY #255.ADDCH0 INY. LDA (PT)
,Y. BNE ADDCH0. PLA. S
TA (PT),Y. SEC. TYA. A
DC PT. STA PT. LDY #0.
TYA. STA (PT),Y. RTS.;.SEAR
CH MVW LLINE,$63. LDA #>LINBUF.
LDY #0. STY $61. STA $62
.SELOOP CLC. LDA $61. ADC $6
3. STA $65. LDA $62. A
DC $64. ROR A. STA $66.
LDA $65. ROR A. AND #254.
STA $65. CMP $61. BNE
SEL01. LDA $66. CMP $62.
BNE SEL01. CLC. RTS.SEL01
LDY #1. LDA ($65),Y. CMP B
ACK+1. BCC SEL02. BNE SEL03.
DEY. LDA ($65),Y. CMP
BACK. BCC SEL02. BNE SEL03.
RTS.SEL02 MVW $65,$61. JMP
SELOOP.SEL03 MVW $65,$63. JMP SE
LOOP.;. .FIL DECOMP2.SRC.
> CLICK IMAGE PREVIEW FOR FULL MODAL