HYPRA-ASS GEN.Q
FILE INFORMATION
FILENAME(S): HYPRA-ASS GEN.Q
FILE TYPE(S): PRG
FILE SIZE: 8.2K
FIRST SEEN: 2025-11-30 01:12:43
APPEARS ON: 1 disk(s)
FILE HASH
e6c99896a97ff55cd9899b68239aa47c6008c8a5328c3c6db89566f6a1940e2b
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| 10710 10 87 | HYPRA-ASS GEN.Q | PRG | C64er | 13 | 1 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 0A 22 30 22 64 00 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A |."0"d.;*********|
00000010: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000020: 2A 2A 2A 2A 2A 2A 2A 00 56 22 6E 00 3B 2A 20 20 |*******.V"n.;* |
00000030: 20 48 59 50 52 41 2D 41 53 53 20 2D 20 56 45 52 | HYPRA-ASS - VER|
00000040: 42 45 53 53 45 52 55 4E 47 20 20 20 2A 00 7C 22 |BESSERUNG *.|"|
00000050: 78 00 3B 2A 20 20 20 20 20 20 20 20 20 20 20 20 |x.;* |
00000060: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000070: 20 20 2A 00 A2 22 82 00 3B 2A 20 20 20 20 56 4F | *.."..;* VO|
00000080: 4E 20 4D 49 43 48 41 45 4C 20 48 41 56 45 52 4B |N MICHAEL HAVERK|
00000090: 41 4D 50 20 20 20 20 20 2A 00 C8 22 8C 00 3B 2A |AMP *.."..;*|
000000A0: 20 20 20 20 20 20 20 20 48 4F 4C 55 4E 44 45 52 | HOLUNDER|
000000B0: 57 45 47 20 31 20 20 20 20 20 20 20 20 20 2A 00 |WEG 1 *.|
000000C0: EE 22 96 00 3B 2A 20 20 20 20 20 20 20 20 32 38 |."..;* 28|
000000D0: 34 33 20 44 49 4E 4B 4C 41 47 45 20 20 20 20 20 |43 DINKLAGE |
000000E0: 20 20 20 20 2A 00 14 23 A0 00 3B 2A 20 20 20 20 | *..#..;* |
000000F0: 20 20 20 20 54 45 4C 2E 3A 30 34 34 34 33 2F 32 | TEL.:04443/2|
00000100: 37 31 35 20 20 20 20 20 20 20 2A 00 3A 23 AA 00 |715 *.:#..|
00000110: 3B 2A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |;* |
00000120: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000130: 2A 00 60 23 B4 00 3B 2A 20 20 20 20 2A 2A 2A 20 |*.`#..;* *** |
00000140: 20 30 37 2E 30 39 2E 20 31 39 38 36 20 20 2A 2A | 07.09. 1986 **|
00000150: 2A 20 20 20 20 20 2A 00 86 23 BE 00 3B 2A 20 20 |* *..#..;* |
00000160: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000170: 20 20 20 20 20 20 20 20 20 20 20 20 2A 00 AC 23 | *..#|
00000180: C8 00 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |..;*************|
00000190: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000001A0: 2A 2A 2A 00 B2 23 D2 00 3B 00 CE 23 DC 00 3B 20 |***..#..;..#..; |
000001B0: 48 59 50 52 41 2D 41 53 53 20 45 52 57 45 49 54 |HYPRA-ASS ERWEIT|
000001C0: 45 52 55 4E 47 00 F0 23 E6 00 3B 20 41 55 54 4F |ERUNG..#..; AUTO|
000001D0: 4D 41 54 49 53 43 48 45 52 20 47 45 4E 45 52 41 |MATISCHER GENERA|
000001E0: 54 4F 52 20 55 4E 44 00 FC 23 F0 00 3B 20 53 41 |TOR UND..#..; SA|
000001F0: 56 45 52 00 02 24 FA 00 3B 00 14 24 04 01 20 2E |VER..$..;..$.. .|
00000200: 45 51 4C 4E 4E 55 4D 3D 24 31 34 00 2A 24 0E 01 |EQLNNUM=$14.*$..|
00000210: 20 2E 45 51 50 52 47 41 4E 46 41 4E 47 3D 24 32 | .EQPRGANFANG=$2|
00000220: 42 00 3E 24 18 01 20 2E 45 51 50 52 47 45 4E 44 |B.>$.. .EQPRGEND|
00000230: 45 3D 24 32 44 00 54 24 22 01 20 2E 45 51 42 4C |E=$2D.T$". .EQBL|
00000240: 4E 45 55 45 4E 44 45 3D 24 35 38 00 67 24 2C 01 |NEUENDE=$58.g$,.|
00000250: 20 2E 45 51 42 4C 45 4E 44 45 3D 24 35 41 00 7C | .EQBLENDE=$5A.||
00000260: 24 36 01 20 2E 45 51 42 4C 41 4E 46 41 4E 47 3D |$6. .EQBLANFANG=|
00000270: 24 35 46 00 8E 24 40 01 20 2E 45 51 4C 4E 41 44 |$5F..$@. .EQLNAD|
00000280: 52 3D 24 35 46 00 9E 24 4A 01 20 2E 45 51 4E 45 |R=$5F..$J. .EQNE|
00000290: 55 3D 24 35 46 00 B1 24 54 01 20 2E 45 51 43 48 |U=$5F..$T. .EQCH|
000002A0: 52 47 45 54 3D 24 37 33 00 C4 24 5E 01 20 2E 45 |RGET=$73..$^. .E|
000002B0: 51 43 48 52 47 4F 54 3D 24 37 39 00 D7 24 68 01 |QCHRGOT=$79..$h.|
000002C0: 20 2E 45 51 50 52 47 56 45 4B 3D 24 37 41 00 E7 | .EQPRGVEK=$7A..|
000002D0: 24 72 01 20 2E 45 51 4C 45 4E 3D 24 43 31 00 FB |$r. .EQLEN=$C1..|
000002E0: 24 7C 01 20 2E 45 51 53 41 56 45 41 44 52 3D 24 |$|. .EQSAVEADR=$|
000002F0: 43 31 00 0E 25 86 01 20 2E 45 51 41 4E 46 41 4E |C1..%.. .EQANFAN|
00000300: 47 3D 24 46 37 00 1F 25 90 01 20 2E 45 51 45 4E |G=$F7..%.. .EQEN|
00000310: 44 45 3D 24 46 39 00 2F 25 9A 01 20 2E 45 51 41 |DE=$F9./%.. .EQA|
00000320: 4C 54 3D 24 46 39 00 46 25 A4 01 20 2E 45 51 50 |LT=$F9.F%.. .EQP|
00000330: 41 47 45 4E 55 4D 4D 45 52 3D 24 46 45 00 60 25 |AGENUMMER=$FE.`%|
00000340: AE 01 20 2E 45 51 49 4E 50 55 54 50 55 46 46 45 |.. .EQINPUTPUFFE|
00000350: 52 3D 24 30 32 30 30 00 7A 25 B8 01 20 2E 45 51 |R=$0200.z%.. .EQ|
00000360: 53 48 49 46 54 4D 55 53 54 45 52 3D 24 30 32 38 |SHIFTMUSTER=$028|
00000370: 44 00 90 25 C2 01 20 2E 45 51 4E 45 58 54 4E 55 |D..%.. .EQNEXTNU|
00000380: 4D 3D 24 30 33 33 43 00 A6 25 CC 01 20 2E 45 51 |M=$033C..%.. .EQ|
00000390: 53 54 41 52 54 4E 52 3D 24 30 33 33 43 00 BA 25 |STARTNR=$033C..%|
000003A0: D6 01 20 2E 45 51 42 4C 54 55 43 3D 24 41 33 42 |.. .EQBLTUC=$A3B|
000003B0: 46 00 D1 25 E0 01 20 2E 45 51 42 41 53 52 45 41 |F..%.. .EQBASREA|
000003C0: 44 59 3D 24 41 34 37 34 00 E7 25 EA 01 20 2E 45 |DY=$A474..%.. .E|
000003D0: 51 4C 49 4E 4B 50 52 47 3D 24 41 35 33 33 00 FF |QLINKPRG=$A533..|
000003E0: 25 F4 01 20 2E 45 51 49 4E 50 55 54 4C 49 4E 45 |%.. .EQINPUTLINE|
000003F0: 3D 24 41 35 36 30 00 16 26 FE 01 20 2E 45 51 47 |=$A560..&.. .EQG|
00000400: 45 54 4C 4E 41 44 52 3D 24 41 36 31 33 00 2D 26 |ETLNADR=$A613.-&|
00000410: 08 02 20 2E 45 51 47 45 54 4C 4E 4E 55 4D 3D 24 |.. .EQGETLNNUM=$|
00000420: 41 39 36 42 00 44 26 12 02 20 2E 45 51 4C 49 4E |A96B.D&.. .EQLIN|
00000430: 45 46 45 45 44 3D 24 41 41 44 37 00 5B 26 1C 02 |EFEED=$AAD7.[&..|
00000440: 20 2E 45 51 43 48 45 43 4B 43 4F 4D 3D 24 41 45 | .EQCHECKCOM=$AE|
00000450: 46 44 00 70 26 26 02 20 2E 45 51 43 48 52 4F 55 |FD.p&&. .EQCHROU|
00000460: 54 3D 24 46 46 44 32 00 76 26 30 02 3B 00 90 26 |T=$FFD2.v&0.;..&|
00000470: 3A 02 20 2E 45 51 53 4F 55 52 43 45 53 54 41 52 |:. .EQSOURCESTAR|
00000480: 54 3D 24 32 32 30 41 00 A3 26 44 02 20 2E 45 51 |T=$220A..&D. .EQ|
00000490: 41 55 54 4F 3D 24 32 31 36 42 00 B8 26 4E 02 20 |AUTO=$216B..&N. |
000004A0: 2E 45 51 42 49 4E 41 45 52 3D 24 31 46 46 45 00 |.EQBINAER=$1FFE.|
000004B0: D1 26 58 02 20 2E 45 51 43 48 45 43 4B 57 46 4C |.&X. .EQCHECKWFL|
000004C0: 41 47 3D 24 32 30 37 35 00 E4 26 62 02 20 2E 45 |AG=$2075..&b. .E|
000004D0: 51 43 4F 50 59 3D 24 32 31 34 43 00 F8 26 6C 02 |QCOPY=$214C..&l.|
000004E0: 20 2E 45 51 43 4F 50 59 32 3D 24 32 31 35 30 00 | .EQCOPY2=$2150.|
000004F0: 0E 27 76 02 20 2E 45 51 45 58 54 53 41 56 45 3D |.'v. .EQEXTSAVE=|
00000500: 24 32 31 42 37 00 25 27 80 02 20 2E 45 51 53 45 |$21B7.%'.. .EQSE|
00000510: 54 53 54 41 52 54 3D 24 31 46 46 31 00 3C 27 8A |TSTART=$1FF1.<'.|
00000520: 02 20 2E 45 51 53 45 54 5A 45 49 4C 45 3D 24 32 |. .EQSETZEILE=$2|
00000530: 30 35 32 00 4F 27 94 02 20 2E 45 51 57 41 49 54 |052.O'.. .EQWAIT|
00000540: 3D 24 31 46 44 38 00 63 27 9E 02 20 2E 45 51 57 |=$1FD8.c'.. .EQW|
00000550: 46 4C 41 47 3D 24 31 46 44 37 00 69 27 A8 02 3B |FLAG=$1FD7.i'..;|
00000560: 00 85 27 B2 02 20 2E 4F 42 22 48 59 50 52 41 2D |..'.. .OB"HYPRA-|
00000570: 41 53 53 20 47 45 4E 2C 50 2C 57 22 00 8B 27 BC |ASS GEN,P,W"..'.|
00000580: 02 3B 00 99 27 C6 02 20 2E 42 41 24 43 30 30 30 |.;..'.. .BA$C000|
00000590: 00 9F 27 D0 02 3B 00 AB 27 DA 02 20 4C 44 41 23 |..'..;..'.. LDA#|
000005A0: 31 33 00 B5 27 E4 02 20 53 54 41 32 00 C0 27 EE |13..'.. STA2..'.|
000005B0: 02 20 4C 44 58 23 30 00 D0 27 F8 02 4C 4F 4F 50 |. LDX#0..'..LOOP|
000005C0: 33 20 4C 44 59 23 30 00 E5 27 02 03 4C 4F 4F 50 |3 LDY#0..'..LOOP|
000005D0: 32 20 4C 44 41 53 54 41 52 54 2C 58 00 F3 27 0C |2 LDASTART,X..'.|
000005E0: 03 20 53 54 41 24 32 32 2C 59 00 FC 27 16 03 20 |. STA$22,Y..'.. |
000005F0: 49 4E 58 00 05 28 20 03 20 49 4E 59 00 10 28 2A |INX..( . INY..(*|
00000600: 03 20 43 50 59 23 33 00 1E 28 34 03 20 42 43 43 |. CPY#3..(4. BCC|
00000610: 4C 4F 4F 50 32 00 29 28 3E 03 20 4C 44 59 23 30 |LOOP2.)(>. LDY#0|
00000620: 00 3E 28 48 03 4C 4F 4F 50 31 20 4C 44 41 53 54 |.>(H.LOOP1 LDAST|
00000630: 41 52 54 2C 58 00 4E 28 52 03 20 53 54 41 28 24 |ART,X.N(R. STA($|
00000640: 32 32 29 2C 59 00 57 28 5C 03 20 49 4E 58 00 63 |22),Y.W(\. INX.c|
00000650: 28 66 03 4F 4B 31 20 49 4E 59 00 6F 28 70 03 20 |(f.OK1 INY.o(p. |
00000660: 43 50 59 24 32 34 00 7D 28 7A 03 20 42 43 43 4C |CPY$24.}(z. BCCL|
00000670: 4F 4F 50 31 00 87 28 84 03 20 44 45 43 32 00 95 |OOP1..(.. DEC2..|
00000680: 28 8E 03 20 42 4E 45 4C 4F 4F 50 33 00 9B 28 98 |(.. BNELOOP3..(.|
00000690: 03 3B 00 AE 28 A2 03 20 4C 44 58 23 33 3B 33 20 |.;..(.. LDX#3;3 |
000006A0: 42 4C 4F 43 4B 00 B9 28 AC 03 20 4C 44 59 23 30 |BLOCK..(.. LDY#0|
000006B0: 00 CF 28 B6 03 4C 4F 4F 50 34 20 4C 44 41 53 54 |..(..LOOP4 LDAST|
000006C0: 41 52 54 32 2C 59 00 E1 28 C0 03 4C 31 20 53 54 |ART2,Y..(..L1 ST|
000006D0: 41 24 31 46 44 38 2C 59 00 EA 28 CA 03 20 49 4E |A$1FD8,Y..(.. IN|
000006E0: 59 00 F8 28 D4 03 20 42 4E 45 4C 4F 4F 50 34 00 |Y..(.. BNELOOP4.|
000006F0: 08 29 DE 03 20 49 4E 43 4C 4F 4F 50 34 2B 32 00 |.).. INCLOOP4+2.|
00000700: 15 29 E8 03 20 49 4E 43 4C 31 2B 32 00 1E 29 F2 |.).. INCL1+2..).|
00000710: 03 20 44 45 58 00 2C 29 FC 03 20 42 4E 45 4C 4F |. DEX.,).. BNELO|
00000720: 4F 50 34 00 32 29 06 04 3B 00 57 29 10 04 3B 20 |OP4.2)..;.W)..; |
00000730: 2A 20 50 52 4F 47 52 41 4D 4D 20 5A 55 4D 20 41 |* PROGRAMM ZUM A|
00000740: 42 53 50 45 49 43 48 45 52 4E 20 20 20 2A 00 7C |BSPEICHERN *.||
00000750: 29 1A 04 3B 20 2A 20 44 45 53 20 47 45 41 45 4E |)..; * DES GEAEN|
00000760: 44 45 52 54 45 4E 20 41 53 53 45 4D 42 4C 45 52 |DERTEN ASSEMBLER|
00000770: 53 20 2A 00 82 29 24 04 3B 00 94 29 2E 04 20 2E |S *..)$.;..).. .|
00000780: 45 51 4E 41 4D 4C 45 4E 3D 31 33 00 B0 29 38 04 |EQNAMLEN=13..)8.|
00000790: 20 2E 45 51 47 45 52 41 45 54 45 41 44 52 3D 38 | .EQGERAETEADR=8|
000007A0: 3B 46 4C 4F 50 50 59 00 B6 29 42 04 3B 00 C5 29 |;FLOPPY..)B.;..)|
000007B0: 4C 04 53 41 56 45 20 4C 44 41 23 31 00 D0 29 56 |L.SAVE LDA#1..)V|
000007C0: 04 20 4C 44 58 23 38 00 DC 29 60 04 20 53 54 41 |. LDX#8..)`. STA|
000007D0: 24 46 45 00 E8 29 6A 04 20 53 54 58 24 46 46 00 |$FE..)j. STX$FF.|
000007E0: F3 29 74 04 20 4C 44 59 23 31 00 07 2A 7E 04 20 |.)t. LDY#1..*~. |
000007F0: 4C 44 58 23 47 45 52 41 45 54 45 41 44 52 00 12 |LDX#GERAETEADR..|
00000800: 2A 88 04 20 4C 44 41 23 38 00 20 2A 92 04 20 4A |*.. LDA#8. *.. J|
00000810: 53 52 24 46 46 42 41 00 30 2A 9C 04 20 4C 44 41 |SR$FFBA.0*.. LDA|
00000820: 23 4E 41 4D 4C 45 4E 00 41 2A A6 04 20 4C 44 58 |#NAMLEN.A*.. LDX|
00000830: 23 3C 28 4E 41 4D 45 29 00 52 2A B0 04 20 4C 44 |#<(NAME).R*.. LD|
00000840: 59 23 3E 28 4E 41 4D 45 29 00 60 2A BA 04 20 4A |Y#>(NAME).`*.. J|
00000850: 53 52 24 46 46 42 44 00 6D 2A C4 04 20 4C 44 41 |SR$FFBD.m*.. LDA|
00000860: 23 24 46 45 00 85 2A CE 04 20 4C 44 58 23 3C 28 |#$FE..*.. LDX#<(|
00000870: 53 4F 55 52 43 45 53 54 41 52 54 29 00 9D 2A D8 |SOURCESTART)..*.|
00000880: 04 20 4C 44 59 23 3E 28 53 4F 55 52 43 45 53 54 |. LDY#>(SOURCEST|
00000890: 41 52 54 29 00 AB 2A E2 04 20 4A 4D 50 24 46 46 |ART)..*.. JMP$FF|
000008A0: 44 38 00 B1 2A EC 04 3B 00 CD 2A F6 04 4E 41 4D |D8..*..;..*..NAM|
000008B0: 45 20 2E 54 58 22 48 59 50 52 41 2D 41 53 53 2B |E .TX"HYPRA-ASS+|
000008C0: 20 56 32 22 00 D3 2A 00 05 3B 00 F1 2A 0A 05 3B | V2"..*..;..*..;|
000008D0: 44 55 52 43 48 20 53 59 53 20 34 39 31 35 32 20 |DURCH SYS 49152 |
000008E0: 57 49 52 44 20 44 45 52 00 17 2B 14 05 3B 41 53 |WIRD DER..+..;AS|
000008F0: 53 45 4D 42 4C 45 52 20 47 45 41 45 4E 44 45 52 |SEMBLER GEAENDER|
00000900: 54 20 55 4E 44 20 41 55 46 20 44 49 53 4B 00 2B |T UND AUF DISK.+|
00000910: 2B 1E 05 3B 41 42 47 45 53 50 45 49 43 48 45 52 |+..;ABGESPEICHER|
00000920: 54 2E 00 51 2B 28 05 3B A4 A4 A4 A4 A4 A4 A4 A4 |T..Q+(.;........|
00000930: A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 |................|
00000940: A4 A4 A4 A4 A4 A4 A4 A4 00 57 2B 32 05 3B 00 79 |.........W+2.;.y|
00000950: 2B 3C 05 3B 41 45 4E 44 45 52 55 4E 47 45 4E 20 |+<.;AENDERUNGEN |
00000960: 49 4D 20 48 41 55 50 54 50 52 4F 47 52 41 4D 4D |IM HAUPTPROGRAMM|
00000970: 00 7F 2B 46 05 3B 00 92 2B 50 05 53 54 41 52 54 |..+F.;..+P.START|
00000980: 20 2E 57 4F 24 30 42 37 33 00 9C 2B 5A 05 20 2E | .WO$0B73..+Z. .|
00000990: 42 59 36 00 B4 2B 64 05 20 4C 44 41 23 3E 28 53 |BY6..+d. LDA#>(S|
000009A0: 4F 55 52 43 45 53 54 41 52 54 29 00 C8 2B 6E 05 |OURCESTART)..+n.|
000009B0: 20 53 54 41 50 52 47 41 4E 46 41 4E 47 2B 31 00 | STAPRGANFANG+1.|
000009C0: E0 2B 78 05 20 4C 44 41 23 3C 28 53 4F 55 52 43 |.+x. LDA#<(SOURC|
000009D0: 45 53 54 41 52 54 29 00 E6 2B 82 05 3B 00 F4 2B |ESTART)..+..;..+|
000009E0: 8C 05 20 2E 57 4F 24 31 46 34 41 00 FE 2B 96 05 |.. .WO$1F4A..+..|
000009F0: 20 2E 42 59 34 00 16 2C A0 05 20 4C 44 41 23 3E | .BY4..,.. LDA#>|
00000A00: 28 53 4F 55 52 43 45 53 54 41 52 54 29 00 2E 2C |(SOURCESTART)..,|
00000A10: AA 05 20 4C 44 58 23 3C 28 53 4F 55 52 43 45 53 |.. LDX#<(SOURCES|
00000A20: 54 41 52 54 29 00 34 2C B4 05 3B 00 42 2C BE 05 |TART).4,..;.B,..|
00000A30: 20 2E 57 4F 24 31 39 42 35 00 4C 2C C8 05 20 2E | .WO$19B5.L,.. .|
00000A40: 42 59 33 00 5C 2C D2 05 20 4A 53 52 57 41 49 54 |BY3.\,.. JSRWAIT|
00000A50: 3B 2F 45 00 62 2C DC 05 3B 00 70 2C E6 05 20 2E |;/E.b,..;.p,.. .|
00000A60: 57 4F 24 31 42 34 33 00 7A 2C F0 05 20 2E 42 59 |WO$1B43.z,.. .BY|
00000A70: 33 00 8A 2C FA 05 20 4A 53 52 57 41 49 54 3B 2F |3..,.. JSRWAIT;/|
00000A80: 46 00 90 2C 04 06 3B 00 9E 2C 0E 06 20 2E 57 4F |F..,..;..,.. .WO|
00000A90: 24 31 44 34 32 00 A8 2C 18 06 20 2E 42 59 33 00 |$1D42..,.. .BY3.|
00000AA0: B8 2C 22 06 20 4A 53 52 57 41 49 54 3B 2F 49 00 |.,". JSRWAIT;/I.|
00000AB0: BE 2C 2C 06 3B 00 CC 2C 36 06 20 2E 57 4F 24 31 |.,,.;..,6. .WO$1|
00000AC0: 43 34 45 00 D6 2C 40 06 20 2E 42 59 33 00 E6 2C |C4E..,@. .BY3..,|
00000AD0: 4A 06 20 4A 53 52 57 41 49 54 3B 2F 52 00 EC 2C |J. JSRWAIT;/R..,|
00000AE0: 54 06 3B 00 FA 2C 5E 06 20 2E 57 4F 24 31 44 44 |T.;..,^. .WO$1DD|
00000AF0: 30 00 04 2D 68 06 20 2E 42 59 33 00 14 2D 72 06 |0..-h. .BY3..-r.|
00000B00: 20 4A 53 52 57 41 49 54 3B 2F 21 00 1A 2D 7C 06 | JSRWAIT;/!..-|.|
00000B10: 3B 00 28 2D 86 06 20 2E 57 4F 24 31 46 39 30 00 |;.(-.. .WO$1F90.|
00000B20: 32 2D 90 06 20 2E 42 59 33 00 46 2D 9A 06 20 4A |2-.. .BY3.F-.. J|
00000B30: 4D 50 53 45 54 53 54 41 52 54 3B 2F 55 00 4C 2D |MPSETSTART;/U.L-|
00000B40: A4 06 3B 00 5A 2D AE 06 20 2E 57 4F 24 30 41 44 |..;.Z-.. .WO$0AD|
00000B50: 33 00 64 2D B8 06 20 2E 42 59 33 00 76 2D C2 06 |3.d-.. .BY3.v-..|
00000B60: 20 4A 4D 50 42 49 4E 41 45 52 3B 20 25 00 7C 2D | JMPBINAER; %.|-|
00000B70: CC 06 3B 00 8A 2D D6 06 20 2E 57 4F 24 31 45 36 |..;..-.. .WO$1E6|
00000B80: 45 00 94 2D E0 06 20 2E 42 59 33 00 A8 2D EA 06 |E..-.. .BY3..-..|
00000B90: 20 4A 4D 50 53 45 54 5A 45 49 4C 45 3B 2F 5A 00 | JMPSETZEILE;/Z.|
00000BA0: AE 2D F4 06 3B 00 BC 2D FE 06 20 2E 57 4F 24 31 |.-..;..-.. .WO$1|
00000BB0: 38 46 42 00 C6 2D 08 07 20 2E 42 59 35 00 DC 2D |8FB..-.. .BY5..-|
00000BC0: 12 07 20 4A 53 52 43 48 45 43 4B 57 46 4C 41 47 |.. JSRCHECKWFLAG|
00000BD0: 3B 2F 57 00 E5 2D 1C 07 20 4E 4F 50 00 EE 2D 26 |;/W..-.. NOP..-&|
00000BE0: 07 20 4E 4F 50 00 F4 2D 30 07 3B 00 02 2E 3A 07 |. NOP..-0.;...:.|
00000BF0: 20 2E 57 4F 24 31 38 41 41 00 0C 2E 44 07 20 2E | .WO$18AA...D. .|
00000C00: 42 59 33 00 1C 2E 4E 07 20 4A 53 52 41 55 54 4F |BY3...N. JSRAUTO|
00000C10: 3B 2F 41 00 22 2E 58 07 3B 00 30 2E 62 07 20 2E |;/A.".X.;.0.b. .|
00000C20: 57 4F 24 31 41 44 33 00 3A 2E 6C 07 20 2E 42 59 |WO$1AD3.:.l. .BY|
00000C30: 33 00 4D 2E 76 07 20 4A 53 52 45 58 54 53 41 56 |3.M.v. JSREXTSAV|
00000C40: 45 3B 2F 53 00 53 2E 80 07 3B 00 68 2E 8A 07 3B |E;/S.S...;.h...;|
00000C50: 20 5A 55 53 41 54 5A 52 4F 55 54 49 4E 45 4E 00 | ZUSATZROUTINEN.|
00000C60: 6E 2E 94 07 3B 00 8F 2E 9E 07 3B 20 2A 2A 2A 20 |n...;.....; *** |
00000C70: 20 41 55 46 20 53 48 49 46 54 20 57 41 52 54 45 | AUF SHIFT WARTE|
00000C80: 4E 20 20 2A 2A 2A 00 AE 2E A8 07 3B 20 20 20 2A |N ***.....; *|
00000C90: 20 20 20 46 55 45 52 20 2F 45 20 55 4E 44 20 2F | FUER /E UND /|
00000CA0: 49 20 20 20 2A 00 B4 2E B2 07 3B 00 CF 2E BC 07 |I *.....;.....|
00000CB0: 53 54 41 52 54 32 20 4A 53 52 24 46 46 45 31 3B |START2 JSR$FFE1;|
00000CC0: 53 54 4F 50 20 3F 00 DA 2E C6 07 20 42 4E 45 4F |STOP ?..... BNEO|
00000CD0: 4B 00 EE 2E D0 07 20 4A 53 52 24 46 36 34 32 3B |K..... JSR$F642;|
00000CE0: 43 4C 4F 53 45 00 03 2F DA 07 20 4A 53 52 24 31 |CLOSE../.. JSR$1|
00000CF0: 37 45 36 3B 46 4C 41 47 3D 30 00 0C 2F E4 07 20 |7E6;FLAG=0../.. |
00000D00: 53 45 43 00 20 2F EE 07 20 4A 4D 50 24 41 38 33 |SEC. /.. JMP$A83|
00000D10: 34 3B 42 52 45 41 4B 00 36 2F F8 07 4F 4B 20 4C |4;BREAK.6/..OK L|
00000D20: 44 41 53 48 49 46 54 4D 55 53 54 45 52 00 41 2F |DASHIFTMUSTER.A/|
00000D30: 02 08 20 41 4E 44 23 31 00 50 2F 0C 08 20 42 45 |.. AND#1.P/.. BE|
00000D40: 51 53 54 41 52 54 32 00 61 2F 16 08 20 4A 4D 50 |QSTART2.a/.. JMP|
00000D50: 4C 49 4E 45 46 45 45 44 00 67 2F 20 08 3B 00 8D |LINEFEED.g/ .;..|
00000D60: 2F 2A 08 3B 20 2A 2A 2A 20 2F 55 20 2D 20 42 45 |/*.; *** /U - BE|
00000D70: 46 45 48 4C 20 42 45 52 49 43 48 54 49 47 45 4E |FEHL BERICHTIGEN|
00000D80: 20 2A 2A 2A 00 93 2F 34 08 3B 00 A7 2F 3E 08 20 | ***../4.;../>. |
00000D90: 44 45 43 50 52 47 41 4E 46 41 4E 47 2B 31 00 B4 |DECPRGANFANG+1..|
00000DA0: 2F 48 08 20 4C 44 59 23 24 46 46 00 BF 2F 52 08 |/H. LDY#$FF../R.|
00000DB0: 20 4C 44 41 23 30 00 D5 2F 5C 08 20 53 54 41 28 | LDA#0../\. STA(|
00000DC0: 50 52 47 41 4E 46 41 4E 47 29 2C 59 00 E9 2F 66 |PRGANFANG),Y../f|
00000DD0: 08 20 49 4E 43 50 52 47 41 4E 46 41 4E 47 2B 31 |. INCPRGANFANG+1|
00000DE0: 00 FF 2F 70 08 52 45 41 44 59 20 4A 4D 50 42 41 |../p.READY JMPBA|
00000DF0: 53 52 45 41 44 59 00 05 30 7A 08 3B 00 2A 30 84 |SREADY..0z.;.*0.|
00000E00: 08 3B 20 2A 2A 20 45 49 4E 47 41 42 45 20 56 4F |.; ** EINGABE VO|
00000E10: 4E 20 42 49 4E 41 45 52 5A 41 48 4C 45 4E 20 2A |N BINAERZAHLEN *|
00000E20: 2A 00 4F 30 8E 08 3B 20 2A 2A 20 45 52 4D 4F 45 |*.O0..; ** ERMOE|
00000E30: 47 4C 49 43 48 45 4E 20 20 20 20 20 20 20 20 20 |GLICHEN |
00000E40: 20 20 20 20 2A 2A 00 55 30 98 08 3B 00 62 30 A2 | **.U0..;.b0.|
00000E50: 08 20 43 4D 50 23 22 25 22 00 74 30 AC 08 20 42 |. CMP#"%".t0.. B|
00000E60: 45 51 41 55 53 57 45 52 54 45 4E 00 81 30 B6 08 |EQAUSWERTEN..0..|
00000E70: 20 43 4D 50 23 22 2D 22 00 90 30 C0 08 20 42 4E | CMP#"-"..0.. BN|
00000E80: 45 57 45 49 54 45 52 00 9E 30 CA 08 20 4A 4D 50 |EWEITER..0.. JMP|
00000E90: 24 30 41 45 44 00 B2 30 D4 08 57 45 49 54 45 52 |$0AED..0..WEITER|
00000EA0: 20 4A 4D 50 24 30 41 44 37 00 B8 30 DE 08 3B 00 | JMP$0AD7..0..;.|
00000EB0: D0 30 E8 08 41 55 53 57 45 52 54 45 4E 20 4A 53 |.0..AUSWERTEN JS|
00000EC0: 52 43 48 52 47 45 54 00 DB 30 F2 08 20 4C 44 58 |RCHRGET..0.. LDX|
00000ED0: 23 30 00 E7 30 FC 08 20 53 54 58 24 31 34 00 F3 |#0..0.. STX$14..|
00000EE0: 30 06 09 20 53 54 58 24 31 35 00 03 31 10 09 42 |0.. STX$15..1..B|
00000EF0: 49 4E 4C 4F 4F 50 20 49 4E 58 00 0F 31 1A 09 20 |INLOOP INX..1.. |
00000F00: 43 50 58 23 31 37 00 1F 31 24 09 20 42 43 53 49 |CPX#17..1$. BCSI|
00000F10: 4C 4C 45 47 41 4C 00 2E 31 2E 09 20 4A 53 52 43 |LLEGAL..1.. JSRC|
00000F20: 48 52 47 4F 54 00 3D 31 38 09 20 42 43 53 53 59 |HRGOT.=18. BCSSY|
00000F30: 4E 54 41 58 00 49 31 42 09 20 43 4D 50 23 35 30 |NTAX.I1B. CMP#50|
00000F40: 00 58 31 4C 09 20 42 43 53 53 59 4E 54 41 58 00 |.X1L. BCSSYNTAX.|
00000F50: 64 31 56 09 20 53 42 43 23 34 37 00 70 31 60 09 |d1V. SBC#47.p1`.|
00000F60: 20 4F 52 41 24 31 34 00 7C 31 6A 09 20 53 54 41 | ORA$14.|1j. STA|
00000F70: 24 31 34 00 8B 31 74 09 20 4A 53 52 43 48 52 47 |$14..1t. JSRCHRG|
00000F80: 45 54 00 9A 31 7E 09 20 42 45 51 47 45 54 45 4E |ET..1~. BEQGETEN|
00000F90: 44 00 A7 31 88 09 20 43 4D 50 23 22 29 22 00 B6 |D..1.. CMP#")"..|
00000FA0: 31 92 09 20 42 45 51 47 45 54 45 4E 44 00 C8 31 |1.. BEQGETEND..1|
00000FB0: 9C 09 20 43 4D 50 23 24 33 42 3B 20 22 3B 22 00 |.. CMP#$3B; ";".|
00000FC0: D7 31 A6 09 20 42 45 51 47 45 54 45 4E 44 00 E4 |.1.. BEQGETEND..|
00000FD0: 31 B0 09 20 41 4E 44 23 24 38 30 00 F3 31 BA 09 |1.. AND#$80..1..|
00000FE0: 20 42 4E 45 47 45 54 45 4E 44 00 FC 31 C4 09 20 | BNEGETEND..1.. |
00000FF0: 43 4C 43 00 08 32 CE 09 20 41 53 4C 24 31 34 00 |CLC..2.. ASL$14.|
00001000: 14 32 D8 09 20 52 4F 4C 24 31 35 00 24 32 E2 09 |.2.. ROL$15.$2..|
00001010: 20 42 43 43 42 49 4E 4C 4F 4F 50 00 2A 32 EC 09 | BCCBINLOOP.*2..|
00001020: 3B 00 3C 32 F6 09 47 45 54 45 4E 44 20 4C 44 41 |;.<2..GETEND LDA|
00001030: 24 31 35 00 48 32 00 0A 20 4C 44 59 24 31 34 00 |$15.H2.. LDY$14.|
00001040: 5A 32 0A 0A 20 53 54 41 39 38 3B 46 41 43 31 2B |Z2.. STA98;FAC1+|
00001050: 31 00 65 32 14 0A 20 53 54 59 39 39 00 72 32 1E |1.e2.. STY99.r2.|
00001060: 0A 20 4C 44 58 23 24 39 30 00 7B 32 28 0A 20 53 |. LDX#$90.{2(. S|
00001070: 45 43 00 90 32 32 0A 20 4A 4D 50 24 42 43 34 39 |EC..22. JMP$BC49|
00001080: 3B 53 45 54 46 41 43 00 96 32 3C 0A 3B 00 AB 32 |;SETFAC..2<.;..2|
00001090: 46 0A 49 4C 4C 45 47 41 4C 20 4A 4D 50 24 42 32 |F.ILLEGAL JMP$B2|
000010A0: 34 38 00 B1 32 50 0A 3B 00 CD 32 5A 0A 3B 20 2A |48..2P.;..2Z.; *|
000010B0: 2A 2A 20 20 2F 5A 20 2D 20 42 45 46 45 48 4C 20 |** /Z - BEFEHL |
000010C0: 20 2A 2A 2A 00 D3 32 64 0A 3B 00 E0 32 6E 0A 20 | ***..2d.;..2n. |
000010D0: 43 4D 50 23 22 5A 22 00 EA 32 78 0A 20 42 45 51 |CMP#"Z"..2x. BEQ|
000010E0: 5A 00 F7 32 82 0A 20 43 4D 50 23 22 57 22 00 01 |Z..2.. CMP#"W"..|
000010F0: 33 8C 0A 20 42 45 51 57 00 15 33 96 0A 53 59 4E |3.. BEQW..3..SYN|
00001100: 54 41 58 20 4A 4D 50 24 41 46 30 38 00 1B 33 A0 |TAX JMP$AF08..3.|
00001110: 0A 3B 00 2B 33 AA 0A 5A 20 4A 53 52 43 48 52 47 |.;.+3..Z JSRCHRG|
00001120: 45 54 00 3C 33 B4 0A 20 4A 53 52 47 45 54 4C 4E |ET.<3.. JSRGETLN|
00001130: 4E 55 4D 00 4D 33 BE 0A 20 4A 53 52 47 45 54 4C |NUM.M3.. JSRGETL|
00001140: 4E 41 44 52 00 59 33 C8 0A 20 42 43 53 4F 4B 32 |NADR.Y3.. BCSOK2|
00001150: 00 6E 33 D2 0A 55 4E 44 45 46 27 44 20 4A 4D 50 |.n3..UNDEF'D JMP|
00001160: 24 41 38 45 33 00 74 33 DC 0A 3B 00 83 33 E6 0A |$A8E3.t3..;..3..|
00001170: 4F 4B 32 20 4C 44 41 24 35 46 00 8F 33 F0 0A 20 |OK2 LDA$5F..3.. |
00001180: 4C 44 59 24 36 30 00 A1 33 FA 0A 20 53 54 41 50 |LDY$60..3.. STAP|
00001190: 52 47 41 4E 46 41 4E 47 00 B5 33 04 0B 20 53 54 |RGANFANG..3.. ST|
000011A0: 59 50 52 47 41 4E 46 41 4E 47 2B 31 00 C3 33 0E |YPRGANFANG+1..3.|
000011B0: 0B 20 42 4E 45 52 45 41 44 59 00 C9 33 18 0B 3B |. BNEREADY..3..;|
000011C0: 00 DD 33 22 0B 3B 57 46 4C 41 47 20 50 52 55 45 |..3".;WFLAG PRUE|
000011D0: 46 45 4E 3A 00 FF 33 2C 0B 3B 41 55 46 52 55 46 |FEN:..3,.;AUFRUF|
000011E0: 20 44 45 52 20 50 41 52 41 4D 45 54 45 52 2D 52 | DER PARAMETER-R|
000011F0: 4F 55 54 49 4E 45 00 23 34 36 0B 3B 44 55 52 43 |OUTINE.#46.;DURC|
00001200: 48 20 44 45 4E 20 2F 57 2D 20 4F 44 45 52 20 2F |H DEN /W- ODER /|
00001210: 53 2D 42 45 46 45 48 4C 20 3F 00 29 34 40 0B 3B |S-BEFEHL ?.)4@.;|
00001220: 00 3A 34 4A 0B 20 4A 53 52 47 45 54 4C 4E 4E 55 |.:4J. JSRGETLNNU|
00001230: 4D 00 45 34 54 0B 20 4C 44 58 23 30 00 4E 34 5E |M.E4T. LDX#0.N4^|
00001240: 0B 20 54 41 59 00 5C 34 68 0B 20 42 4E 45 43 48 |. TAY.\4h. BNECH|
00001250: 57 4C 31 00 6F 34 72 0B 20 4C 44 41 57 46 4C 41 |WL1.o4r. LDAWFLA|
00001260: 47 3B 4E 45 49 4E 00 84 34 7C 0B 20 53 54 58 57 |G;NEIN..4|. STXW|
00001270: 46 4C 41 47 3B 46 4C 41 47 3D 30 00 93 34 86 0B |FLAG;FLAG=0..4..|
00001280: 20 42 4E 45 53 59 4E 54 41 58 00 9C 34 90 0B 20 | BNESYNTAX..4.. |
00001290: 52 54 53 00 A2 34 9A 0B 3B 00 B5 34 A4 0B 43 48 |RTS..4..;..4..CH|
000012A0: 57 4C 31 20 4C 44 41 57 46 4C 41 47 00 CA 34 AE |WL1 LDAWFLAG..4.|
000012B0: 0B 20 53 54 58 57 46 4C 41 47 3B 46 4C 41 47 3D |. STXWFLAG;FLAG=|
000012C0: 30 00 D9 34 B8 0B 20 42 45 51 53 59 4E 54 41 58 |0..4.. BEQSYNTAX|
000012D0: 00 ED 34 C2 0B 20 4A 4D 50 43 48 45 43 4B 43 4F |..4.. JMPCHECKCO|
000012E0: 4D 3B 4A 41 00 F3 34 CC 0B 3B 00 16 35 D6 0B 3B |M;JA..4..;..5..;|
000012F0: 20 2A 2A 20 2F 57 20 2D 20 56 45 52 53 43 48 49 | ** /W - VERSCHI|
00001300: 45 42 45 2D 42 45 46 45 48 4C 20 2A 2A 00 1C 35 |EBE-BEFEHL **..5|
00001310: E0 0B 3B 00 42 35 EA 0B 3B 41 4E 46 41 4E 47 53 |..;.B5..;ANFANGS|
00001320: 2D 20 55 2E 20 45 4E 44 41 44 52 45 53 53 45 20 |- U. ENDADRESSE |
00001330: 42 45 52 45 43 48 4E 45 4E 00 65 35 F4 0B 3B 55 |BERECHNEN.e5..;U|
00001340: 4E 44 20 42 45 52 45 49 43 48 20 49 4E 20 50 55 |ND BEREICH IN PU|
00001350: 46 46 45 52 20 28 24 41 30 30 30 2D 00 7D 35 FE |FFER ($A000-.}5.|
00001360: 0B 3B 24 43 30 30 30 29 20 56 45 52 53 43 48 49 |.;$C000) VERSCHI|
00001370: 45 42 45 4E 00 83 35 08 0C 3B 00 8F 35 12 0C 57 |EBEN..5..;..5..W|
00001380: 20 4C 44 41 23 31 00 9D 35 1C 0C 20 53 54 41 57 | LDA#1..5.. STAW|
00001390: 46 4C 41 47 00 B1 35 26 0C 20 4A 53 52 24 31 38 |FLAG..5&. JSR$18|
000013A0: 44 42 3B 5A 31 2D 5A 32 00 BF 35 30 0C 20 4C 44 |DB;Z1-Z2..50. LD|
000013B0: 41 4C 4E 41 44 52 00 D6 35 3A 0C 20 53 54 41 41 |ALNADR..5:. STAA|
000013C0: 4E 46 41 4E 47 3B 41 4E 46 41 4E 47 2D 00 E3 35 |NFANG;ANFANG-..5|
000013D0: 44 0C 20 50 48 41 3B 41 44 52 00 F3 35 4E 0C 20 |D. PHA;ADR..5N. |
000013E0: 4C 44 41 4C 4E 41 44 52 2B 31 00 04 36 58 0C 20 |LDALNADR+1..6X. |
000013F0: 53 54 41 41 4E 46 41 4E 47 2B 31 00 0D 36 62 0C |STAANFANG+1..6b.|
00001400: 20 50 48 41 00 1B 36 6C 0C 20 49 4E 43 4C 4E 4E | PHA..6l. INCLNN|
00001410: 55 4D 00 27 36 76 0C 20 42 4E 45 57 4C 31 00 37 |UM.'6v. BNEWL1.7|
00001420: 36 80 0C 20 49 4E 43 4C 4E 4E 55 4D 2B 31 00 52 |6.. INCLNNUM+1.R|
00001430: 36 8A 0C 57 4C 31 20 4A 53 52 47 45 54 4C 4E 41 |6..WL1 JSRGETLNA|
00001440: 44 52 3B 45 4E 44 41 44 52 00 5B 36 94 0C 20 53 |DR;ENDADR.[6.. S|
00001450: 45 43 00 69 36 9E 0C 20 4C 44 41 4C 4E 41 44 52 |EC.i6.. LDALNADR|
00001460: 00 76 36 A8 0C 20 53 54 41 45 4E 44 45 00 85 36 |.v6.. STAENDE..6|
00001470: B2 0C 20 53 54 41 42 4C 45 4E 44 45 00 94 36 BC |.. STABLENDE..6.|
00001480: 0C 20 53 42 43 41 4E 46 41 4E 47 00 A7 36 C6 0C |. SBCANFANG..6..|
00001490: 20 53 54 41 4C 45 4E 3B 4C 41 45 4E 47 45 00 BE | STALEN;LAENGE..|
000014A0: 36 D0 0C 20 4C 44 41 4C 4E 41 44 52 2B 31 3B 3D |6.. LDALNADR+1;=|
000014B0: 45 41 2D 41 41 00 CD 36 DA 0C 20 53 54 41 45 4E |EA-AA..6.. STAEN|
000014C0: 44 45 2B 31 00 DE 36 E4 0C 20 53 54 41 42 4C 45 |DE+1..6.. STABLE|
000014D0: 4E 44 45 2B 31 00 EF 36 EE 0C 20 53 42 43 41 4E |NDE+1..6.. SBCAN|
000014E0: 46 41 4E 47 2B 31 00 FD 36 F8 0C 20 53 54 41 4C |FANG+1..6.. STAL|
000014F0: 45 4E 2B 31 00 11 37 02 0D 20 42 43 43 53 59 4E |EN+1..7.. BCCSYN|
00001500: 54 41 58 3B 3C 30 20 3F 00 26 37 0C 0D 20 43 4D |TAX;<0 ?.&7.. CM|
00001510: 50 23 24 32 30 3B 3E 20 38 4B 42 20 3F 00 3C 37 |P#$20;> 8KB ?.<7|
00001520: 16 0D 20 42 43 43 4C 45 4E 4F 4B 3B 4A 41 2C 44 |.. BCCLENOK;JA,D|
00001530: 41 4E 4E 00 52 37 20 0D 20 4A 4D 50 24 42 39 37 |ANN.R7 . JMP$B97|
00001540: 45 3B 4F 57 45 52 46 4C 2E 00 58 37 2A 0D 3B 00 |E;OWERFL..X7*.;.|
00001550: 66 37 34 0D 4C 45 4E 4F 4B 20 50 4C 41 00 79 37 |f74.LENOK PLA.y7|
00001560: 3E 0D 20 53 54 41 42 4C 41 4E 46 41 4E 47 2B 31 |>. STABLANFANG+1|
00001570: 00 82 37 48 0D 20 50 4C 41 00 93 37 52 0D 20 53 |..7H. PLA..7R. S|
00001580: 54 41 42 4C 41 4E 46 41 4E 47 00 A8 37 5C 0D 20 |TABLANFANG..7\. |
00001590: 4C 44 41 23 24 43 30 3B 50 55 46 46 45 52 2D 00 |LDA#$C0;PUFFER-.|
000015A0: C3 37 66 0D 20 53 54 41 42 4C 4E 45 55 45 4E 44 |.7f. STABLNEUEND|
000015B0: 45 2B 31 3B 45 4E 44 41 44 52 00 CF 37 70 0D 20 |E+1;ENDADR..7p. |
000015C0: 4C 44 41 23 30 30 00 E1 37 7A 0D 20 53 54 41 42 |LDA#00..7z. STAB|
000015D0: 4C 4E 45 55 45 4E 44 45 00 EF 37 84 0D 20 4A 53 |LNEUENDE..7.. JS|
000015E0: 52 42 4C 54 55 43 00 F5 37 8E 0D 3B 00 17 38 98 |RBLTUC..7..;..8.|
000015F0: 0D 3B 52 45 53 54 20 44 45 53 20 50 52 4F 47 52 |.;REST DES PROGR|
00001600: 41 4D 4D 53 20 5A 55 53 41 4D 4D 45 4E 2D 00 25 |AMMS ZUSAMMEN-.%|
00001610: 38 A2 0D 3B 53 43 48 49 45 42 45 4E 00 2B 38 AC |8..;SCHIEBEN.+8.|
00001620: 0D 3B 00 34 38 B6 0D 20 53 45 43 00 46 38 C0 0D |.;.48.. SEC.F8..|
00001630: 20 4C 44 41 50 52 47 45 4E 44 45 2B 31 00 55 38 | LDAPRGENDE+1.U8|
00001640: CA 0D 20 53 42 43 45 4E 44 45 2B 31 00 5E 38 D4 |.. SBCENDE+1.^8.|
00001650: 0D 20 54 41 58 00 67 38 DE 0D 20 49 4E 58 00 75 |. TAX.g8.. INX.u|
00001660: 38 E8 0D 20 4A 53 52 43 4F 50 59 32 00 7B 38 F2 |8.. JSRCOPY2.{8.|
00001670: 0D 3B 00 92 38 FC 0D 3B 5A 49 45 4C 41 44 52 45 |.;..8..;ZIELADRE|
00001680: 53 53 45 20 48 4F 4C 45 4E 00 98 38 06 0E 3B 00 |SSE HOLEN..8..;.|
00001690: A8 38 10 0E 20 4A 53 52 4C 49 4E 4B 50 52 47 00 |.8.. JSRLINKPRG.|
000016A0: B7 38 1A 0E 20 4A 53 52 43 48 52 47 4F 54 00 C8 |.8.. JSRCHRGOT..|
000016B0: 38 24 0E 20 4A 53 52 47 45 54 4C 4E 4E 55 4D 00 |8$. JSRGETLNNUM.|
000016C0: D6 38 2E 0E 20 49 4E 43 4C 4E 4E 55 4D 00 E2 38 |.8.. INCLNNUM..8|
000016D0: 38 0E 20 42 4E 45 57 4C 32 00 F0 38 42 0E 20 49 |8. BNEWL2..8B. I|
000016E0: 4E 43 4C 4E 4E 55 4D 00 04 39 4C 0E 57 4C 32 20 |NCLNNUM..9L.WL2 |
000016F0: 4A 53 52 47 45 54 4C 4E 41 44 52 00 0A 39 56 0E |JSRGETLNADR..9V.|
00001700: 3B 00 2F 39 60 0E 3B 48 49 47 48 42 59 54 45 20 |;./9`.;HIGHBYTE |
00001710: 44 45 52 20 5A 49 45 4C 41 44 52 45 53 53 45 20 |DER ZIELADRESSE |
00001720: 4D 45 52 4B 45 4E 00 35 39 6A 0E 3B 00 3E 39 74 |MERKEN.59j.;.>9t|
00001730: 0E 20 54 58 41 00 47 39 7E 0E 20 50 48 41 00 4D |. TXA.G9~. PHA.M|
00001740: 39 88 0E 3B 00 72 39 92 0E 3B 4E 55 4D 4D 45 52 |9..;.r9..;NUMMER|
00001750: 20 44 45 52 20 5A 49 45 4C 5A 45 49 4C 45 20 41 | DER ZIELZEILE A|
00001760: 4C 53 20 53 54 41 52 54 2D 00 93 39 9C 0E 3B 4E |LS START-..9..;N|
00001770: 55 4D 4D 45 52 20 46 55 45 52 20 52 45 4E 55 4D |UMMER FUER RENUM|
00001780: 42 45 52 20 4D 45 52 4B 45 4E 00 99 39 A6 0E 3B |BER MERKEN..9..;|
00001790: 00 A4 39 B0 0E 20 4C 44 59 23 32 00 B6 39 BA 0E |..9.. LDY#2..9..|
000017A0: 20 4C 44 41 28 4C 4E 41 44 52 29 2C 59 00 CB 39 | LDA(LNADR),Y..9|
000017B0: C4 0E 20 53 54 41 24 30 33 33 43 3B 53 54 41 52 |.. STA$033C;STAR|
000017C0: 54 2D 00 D4 39 CE 0E 20 49 4E 59 00 E6 39 D8 0E |T-..9.. INY..9..|
000017D0: 20 4C 44 41 28 4C 4E 41 44 52 29 2C 59 00 FB 39 | LDA(LNADR),Y..9|
000017E0: E2 0E 20 53 54 41 24 30 33 33 44 3B 4E 55 4D 4D |.. STA$033D;NUMM|
000017F0: 45 52 00 01 3A EC 0E 3B 00 24 3A F6 0E 3B 41 42 |ER..:..;.$:..;AB|
00001800: 20 5A 49 45 4C 41 44 52 45 53 53 45 20 50 4C 41 | ZIELADRESSE PLA|
00001810: 54 5A 20 53 43 48 41 46 46 45 4E 00 2A 3A 00 0F |TZ SCHAFFEN.*:..|
00001820: 3B 00 33 3A 0A 0F 20 53 45 43 00 43 3A 14 0F 20 |;.3:.. SEC.C:.. |
00001830: 4C 44 41 50 52 47 45 4E 44 45 00 55 3A 1E 0F 20 |LDAPRGENDE.U:.. |
00001840: 53 54 41 42 4C 4E 45 55 45 4E 44 45 00 61 3A 28 |STABLNEUENDE.a:(|
00001850: 0F 20 53 42 43 4C 45 4E 00 70 3A 32 0F 20 53 54 |. SBCLEN.p:2. ST|
00001860: 41 42 4C 45 4E 44 45 00 82 3A 3C 0F 20 4C 44 41 |ABLENDE..:<. LDA|
00001870: 50 52 47 45 4E 44 45 2B 31 00 96 3A 46 0F 20 53 |PRGENDE+1..:F. S|
00001880: 54 41 42 4C 4E 45 55 45 4E 44 45 2B 31 00 A4 3A |TABLNEUENDE+1..:|
00001890: 50 0F 20 53 42 43 4C 45 4E 2B 31 00 B5 3A 5A 0F |P. SBCLEN+1..:Z.|
000018A0: 20 53 54 41 42 4C 45 4E 44 45 2B 31 00 C3 3A 64 | STABLENDE+1..:d|
000018B0: 0F 20 4A 53 52 42 4C 54 55 43 00 C9 3A 6E 0F 3B |. JSRBLTUC..:n.;|
000018C0: 00 ED 3A 78 0F 3B 52 41 4D 20 55 4E 54 45 52 20 |..:x.;RAM UNTER |
000018D0: 42 41 53 49 43 52 4F 4D 20 53 45 4C 45 4B 54 49 |BASICROM SELEKTI|
000018E0: 45 52 45 4E 00 F3 3A 82 0F 3B 00 FD 3A 8C 0F 20 |EREN..:..;..:.. |
000018F0: 4C 44 41 31 00 06 3B 96 0F 20 50 48 41 00 13 3B |LDA1..;.. PHA..;|
00001900: A0 0F 20 41 4E 44 23 24 46 45 00 1D 3B AA 0F 20 |.. AND#$FE..;.. |
00001910: 53 54 41 31 00 23 3B B4 0F 3B 00 46 3B BE 0F 3B |STA1.#;..;.F;..;|
00001920: 5A 55 20 56 45 52 53 43 48 49 45 42 45 4E 45 4E |ZU VERSCHIEBENEN|
00001930: 20 50 52 4F 47 52 41 4D 4D 54 45 49 4C 00 67 3B | PROGRAMMTEIL.g;|
00001940: C8 0F 3B 41 55 53 20 44 45 4D 20 50 55 46 46 45 |..;AUS DEM PUFFE|
00001950: 52 20 41 4E 20 44 49 45 20 5A 49 45 4C 2D 00 80 |R AN DIE ZIEL-..|
00001960: 3B D2 0F 3B 41 44 52 45 53 53 45 20 56 45 52 53 |;..;ADRESSE VERS|
00001970: 43 48 49 45 42 45 4E 00 86 3B DC 0F 3B 00 8F 3B |CHIEBEN..;..;..;|
00001980: E6 0F 20 53 45 43 00 9A 3B F0 0F 20 4C 44 41 23 |.. SEC..;.. LDA#|
00001990: 30 00 A6 3B FA 0F 20 53 42 43 4C 45 4E 00 B2 3B |0..;.. SBCLEN..;|
000019A0: 04 10 20 53 54 41 41 4C 54 00 BF 3B 0E 10 20 4C |.. STAALT..;.. L|
000019B0: 44 41 23 24 43 30 00 CD 3B 18 10 20 53 42 43 4C |DA#$C0..;.. SBCL|
000019C0: 45 4E 2B 31 00 DB 3B 22 10 20 53 54 41 41 4C 54 |EN+1..;". STAALT|
000019D0: 2B 31 00 E8 3B 2C 10 20 4A 53 52 43 4F 50 59 00 |+1..;,. JSRCOPY.|
000019E0: EE 3B 36 10 3B 00 03 3C 40 10 3B 52 4F 4D 20 53 |.;6.;..<@.;ROM S|
000019F0: 45 4C 45 4B 54 49 45 52 45 4E 00 09 3C 4A 10 3B |ELEKTIEREN..<J.;|
00001A00: 00 12 3C 54 10 20 50 4C 41 00 1C 3C 5E 10 20 53 |..<T. PLA..<^. S|
00001A10: 54 41 31 00 22 3C 68 10 3B 00 41 3C 72 10 3B 20 |TA1."<h.;.A<r.; |
00001A20: 50 52 4F 47 52 41 4D 4D 20 4E 45 55 20 4E 55 4D |PROGRAMM NEU NUM|
00001A30: 4D 45 52 49 45 52 45 4E 00 47 3C 7C 10 3B 00 50 |MERIEREN.G<|.;.P|
00001A40: 3C 86 10 20 50 4C 41 00 60 3C 90 10 20 53 54 41 |<.. PLA.`<.. STA|
00001A50: 4C 4E 41 44 52 2B 31 00 70 3C 9A 10 20 4A 53 52 |LNADR+1.p<.. JSR|
00001A60: 4C 49 4E 4B 50 52 47 00 84 3C A4 10 20 4C 44 41 |LINKPRG..<.. LDA|
00001A70: 23 31 30 3B 53 54 45 50 3D 31 30 00 92 3C AE 10 |#10;STEP=10..<..|
00001A80: 20 53 54 41 24 30 33 34 30 00 9D 3C B8 10 20 4C | STA$0340..<.. L|
00001A90: 44 58 23 31 00 B6 3C C2 10 20 53 54 58 50 41 47 |DX#1..<.. STXPAG|
00001AA0: 45 4E 55 4D 4D 45 52 3B 50 4E 52 3D 31 00 CB 3C |ENUMMER;PNR=1..<|
00001AB0: CC 10 20 4C 44 41 23 24 46 46 3B 42 49 53 20 5A |.. LDA#$FF;BIS Z|
00001AC0: 55 4D 00 DE 3C D6 10 20 53 54 41 4C 4E 4E 55 4D |UM..<.. STALNNUM|
00001AD0: 3B 45 4E 44 45 00 EF 3C E0 10 20 53 54 41 4C 4E |;ENDE..<.. STALN|
00001AE0: 4E 55 4D 2B 31 3B 00 04 3D EA 10 20 4A 4D 50 24 |NUM+1;..=.. JMP$|
00001AF0: 31 41 33 32 3B 3D 52 45 4E 55 4D 00 0A 3D F4 10 |1A32;=RENUM..=..|
00001B00: 3B 00 1A 3D FE 10 20 4C 44 59 23 30 3B 43 4F 50 |;..=.. LDY#0;COP|
00001B10: 59 00 28 3D 08 11 20 4C 44 58 4C 45 4E 2B 31 00 |Y.(=.. LDXLEN+1.|
00001B20: 37 3D 12 11 20 49 4E 58 3B 43 4F 50 59 32 00 49 |7=.. INX;COPY2.I|
00001B30: 3D 1C 11 43 4F 50 59 4C 4F 4F 50 31 20 44 45 58 |=..COPYLOOP1 DEX|
00001B40: 00 56 3D 26 11 20 42 45 51 52 45 53 54 00 6F 3D |.V=&. BEQREST.o=|
00001B50: 30 11 43 4F 50 59 4C 4F 4F 50 32 20 4C 44 41 28 |0.COPYLOOP2 LDA(|
00001B60: 41 4C 54 29 2C 59 00 7F 3D 3A 11 20 53 54 41 28 |ALT),Y..=:. STA(|
00001B70: 4E 45 55 29 2C 59 00 88 3D 44 11 20 49 4E 59 00 |NEU),Y..=D. INY.|
00001B80: 9A 3D 4E 11 20 42 4E 45 43 4F 50 59 4C 4F 4F 50 |.=N. BNECOPYLOOP|
00001B90: 32 00 A8 3D 58 11 20 49 4E 43 41 4C 54 2B 31 00 |2..=X. INCALT+1.|
00001BA0: B6 3D 62 11 20 49 4E 43 4E 45 55 2B 31 00 C8 3D |.=b. INCNEU+1..=|
00001BB0: 6C 11 20 42 4E 45 43 4F 50 59 4C 4F 4F 50 31 00 |l. BNECOPYLOOP1.|
00001BC0: CE 3D 76 11 3B 00 E2 3D 80 11 52 45 53 54 20 4C |.=v.;..=..REST L|
00001BD0: 44 41 28 41 4C 54 29 2C 59 00 F2 3D 8A 11 20 53 |DA(ALT),Y..=.. S|
00001BE0: 54 41 28 4E 45 55 29 2C 59 00 FB 3D 94 11 20 49 |TA(NEU),Y..=.. I|
00001BF0: 4E 59 00 07 3E 9E 11 20 43 50 59 4C 45 4E 00 14 |NY..>.. CPYLEN..|
00001C00: 3E A8 11 20 42 43 43 52 45 53 54 00 1D 3E B2 11 |>.. BCCREST..>..|
00001C10: 20 52 54 53 00 23 3E BC 11 3B 00 48 3E C6 11 3B | RTS.#>..;.H>..;|
00001C20: 20 2A 2A 20 41 55 54 4F 2D 46 55 4E 4B 54 49 4F | ** AUTO-FUNKTIO|
00001C30: 4E 20 56 45 52 42 45 53 53 45 52 4E 20 2A 2A 00 |N VERBESSERN **.|
00001C40: 4E 3E D0 11 3B 00 60 3E DA 11 20 4A 53 52 49 4E |N>..;.`>.. JSRIN|
00001C50: 50 55 54 4C 49 4E 45 00 6C 3E E4 11 20 4C 44 41 |PUTLINE.l>.. LDA|
00001C60: 24 43 38 00 78 3E EE 11 20 43 4D 50 23 34 30 00 |$C8.x>.. CMP#40.|
00001C70: 8A 3E F8 11 20 42 43 43 45 49 4E 45 5A 45 49 4C |.>.. BCCEINEZEIL|
00001C80: 45 00 9B 3E 02 12 20 4C 44 41 23 24 39 31 3B 22 |E..>.. LDA#$91;"|
00001C90: 91 22 00 AA 3E 0C 12 20 4A 53 52 43 48 52 4F 55 |."..>.. JSRCHROU|
00001CA0: 54 00 C4 3E 16 12 45 49 4E 45 5A 45 49 4C 45 20 |T..>..EINEZEILE |
00001CB0: 4C 44 41 23 24 39 31 3B 22 91 22 00 D3 3E 20 12 |LDA#$91;"."..> .|
00001CC0: 20 4A 53 52 43 48 52 4F 55 54 00 E6 3E 2A 12 20 | JSRCHROUT..>*. |
00001CD0: 4C 44 41 23 31 33 3B 52 45 54 55 52 4E 00 F4 3E |LDA#13;RETURN..>|
00001CE0: 34 12 20 53 54 41 24 30 32 37 37 00 FF 3E 3E 12 |4. STA$0277..>>.|
00001CF0: 20 4C 44 41 23 31 00 0B 3F 48 12 20 53 54 41 24 | LDA#1..?H. STA$|
00001D00: 43 36 00 1D 3F 52 12 20 4A 53 52 49 4E 50 55 54 |C6..?R. JSRINPUT|
00001D10: 4C 49 4E 45 00 2C 3F 5C 12 20 53 54 58 50 52 47 |LINE.,?\. STXPRG|
00001D20: 56 45 4B 00 3D 3F 66 12 20 53 54 59 50 52 47 56 |VEK.=?f. STYPRGV|
00001D30: 45 4B 2B 31 00 4C 3F 70 12 20 4A 53 52 43 48 52 |EK+1.L?p. JSRCHR|
00001D40: 47 45 54 00 58 3F 7A 12 20 42 43 43 4F 4B 33 00 |GET.X?z. BCCOK3.|
00001D50: 66 3F 84 12 20 4A 4D 50 24 31 38 42 39 00 6C 3F |f?.. JMP$18B9.l?|
00001D60: 8E 12 3B 00 80 3F 98 12 4F 4B 33 20 4A 53 52 47 |..;..?..OK3 JSRG|
00001D70: 45 54 4C 4E 4E 55 4D 00 8C 3F A2 12 20 4C 44 41 |ETLNNUM..?.. LDA|
00001D80: 24 31 34 00 95 3F AC 12 20 43 4C 43 00 A9 3F B6 |$14..?.. CLC..?.|
00001D90: 12 20 41 44 43 24 30 33 34 30 3B 2B 53 54 45 50 |. ADC$0340;+STEP|
00001DA0: 00 B9 3F C0 12 20 53 54 41 4E 45 58 54 4E 55 4D |..?.. STANEXTNUM|
00001DB0: 00 C5 3F CA 12 20 4C 44 41 24 31 35 00 D0 3F D4 |..?.. LDA$15..?.|
00001DC0: 12 20 41 44 43 23 30 00 E2 3F DE 12 20 53 54 41 |. ADC#0..?.. STA|
00001DD0: 4E 45 58 54 4E 55 4D 2B 31 00 EF 3F E8 12 20 4C |NEXTNUM+1..?.. L|
00001DE0: 44 58 23 24 46 46 00 FE 3F F2 12 20 53 54 58 50 |DX#$FF..?.. STXP|
00001DF0: 52 47 56 45 4B 00 0F 40 FC 12 20 49 4E 43 50 52 |RGVEK..@.. INCPR|
00001E00: 47 56 45 4B 2B 31 00 1A 40 06 13 20 4C 44 58 23 |GVEK+1..@.. LDX#|
00001E10: 36 00 30 40 10 13 20 4C 44 41 49 4E 50 55 54 50 |6.0@.. LDAINPUTP|
00001E20: 55 46 46 45 52 2C 58 00 3E 40 1A 13 20 4A 4D 50 |UFFER,X.>@.. JMP|
00001E30: 24 31 38 42 37 00 44 40 24 13 3B 00 66 40 2E 13 |$18B7.D@$.;.f@..|
00001E40: 3B 20 2A 2A 20 2F 53 20 2D 20 42 45 46 45 48 4C |; ** /S - BEFEHL|
00001E50: 20 45 52 57 45 49 54 45 52 4E 20 2A 2A 00 6C 40 | ERWEITERN **.l@|
00001E60: 38 13 3B 00 7B 40 42 13 20 4A 53 52 43 48 52 47 |8.;.{@B. JSRCHRG|
00001E70: 45 54 00 8C 40 4C 13 20 42 43 43 54 45 49 4C 53 |ET..@L. BCCTEILS|
00001E80: 41 56 45 00 A1 40 56 13 20 4A 4D 50 24 31 41 42 |AVE..@V. JMP$1AB|
00001E90: 38 3B 4E 4F 52 4D 41 4C 00 A7 40 60 13 3B 00 B8 |8;NORMAL..@`.;..|
00001EA0: 40 6A 13 54 45 49 4C 53 41 56 45 20 50 48 50 00 |@j.TEILSAVE PHP.|
00001EB0: C3 40 74 13 20 4C 44 41 23 31 00 D1 40 7E 13 20 |.@t. LDA#1..@~. |
00001EC0: 53 54 41 57 46 4C 41 47 00 DA 40 88 13 20 50 4C |STAWFLAG..@.. PL|
00001ED0: 50 00 EE 40 92 13 20 4A 53 52 24 31 38 44 45 3B |P..@.. JSR$18DE;|
00001EE0: 5A 31 2D 5A 32 00 FC 40 9C 13 20 4C 44 41 4C 4E |Z1-Z2..@.. LDALN|
00001EF0: 41 44 52 00 0C 41 A6 13 20 53 54 41 53 41 56 45 |ADR..A.. STASAVE|
00001F00: 41 44 52 00 1C 41 B0 13 20 4C 44 41 4C 4E 41 44 |ADR..A.. LDALNAD|
00001F10: 52 2B 31 00 2E 41 BA 13 20 53 54 41 53 41 56 45 |R+1..A.. STASAVE|
00001F20: 41 44 52 2B 31 00 44 41 C4 13 20 4A 53 52 24 31 |ADR+1.DA.. JSR$1|
00001F30: 41 42 38 3B 53 45 54 4E 41 4D 45 00 52 41 CE 13 |AB8;SETNAME.RA..|
00001F40: 20 49 4E 43 4C 4E 4E 55 4D 00 5E 41 D8 13 20 42 | INCLNNUM.^A.. B|
00001F50: 4E 45 53 4C 31 00 6E 41 E2 13 20 49 4E 43 4C 4E |NESL1.nA.. INCLN|
00001F60: 4E 55 4D 2B 31 00 82 41 EC 13 53 4C 31 20 4A 53 |NUM+1..A..SL1 JS|
00001F70: 52 47 45 54 4C 4E 41 44 52 00 8F 41 F6 13 20 4C |RGETLNADR..A.. L|
00001F80: 44 59 23 24 30 30 00 A1 41 00 14 20 4C 44 41 28 |DY#$00..A.. LDA(|
00001F90: 4C 4E 41 44 52 29 2C 59 00 AA 41 0A 14 20 50 48 |LNADR),Y..A.. PH|
00001FA0: 41 00 B3 41 14 14 20 54 59 41 00 C5 41 1E 14 20 |A..A.. TYA..A.. |
00001FB0: 53 54 41 28 4C 4E 41 44 52 29 2C 59 00 CE 41 28 |STA(LNADR),Y..A(|
00001FC0: 14 20 49 4E 59 00 E0 41 32 14 20 4C 44 41 28 4C |. INY..A2. LDA(L|
00001FD0: 4E 41 44 52 29 2C 59 00 E9 41 3C 14 20 50 48 41 |NADR),Y..A<. PHA|
00001FE0: 00 F6 41 46 14 20 4C 44 41 23 24 30 30 00 08 42 |..AF. LDA#$00..B|
00001FF0: 50 14 20 53 54 41 28 4C 4E 41 44 52 29 2C 59 00 |P. STA(LNADR),Y.|
00002000: 18 42 5A 14 20 4C 44 59 4C 4E 41 44 52 2B 31 00 |.BZ. LDYLNADR+1.|
00002010: 21 42 64 14 20 43 4C 43 00 2F 42 6E 14 20 4C 44 |!Bd. CLC./Bn. LD|
00002020: 41 4C 4E 41 44 52 00 3C 42 78 14 20 41 44 43 23 |ALNADR.<Bx. ADC#|
00002030: 24 30 32 00 45 42 82 14 20 54 41 58 00 50 42 8C |$02.EB.. TAX.PB.|
00002040: 14 20 42 43 43 4C 32 00 59 42 96 14 20 49 4E 59 |. BCCL2.YB.. INY|
00002050: 00 6C 42 A0 14 4C 32 20 4C 44 41 23 53 41 56 45 |.lB..L2 LDA#SAVE|
00002060: 41 44 52 00 7F 42 AA 14 20 4A 53 52 24 46 46 44 |ADR..B.. JSR$FFD|
00002070: 38 3B 53 41 56 45 00 8C 42 B4 14 20 4C 44 59 23 |8;SAVE..B.. LDY#|
00002080: 24 30 31 00 95 42 BE 14 20 50 4C 41 00 A7 42 C8 |$01..B.. PLA..B.|
00002090: 14 20 53 54 41 28 4C 4E 41 44 52 29 2C 59 00 B0 |. STA(LNADR),Y..|
000020A0: 42 D2 14 20 44 45 59 00 B9 42 DC 14 20 50 4C 41 |B.. DEY..B.. PLA|
000020B0: 00 CB 42 E6 14 20 53 54 41 28 4C 4E 41 44 52 29 |..B.. STA(LNADR)|
000020C0: 2C 59 00 DC 42 F0 14 20 4A 4D 50 42 41 53 52 45 |,Y..B.. JMPBASRE|
000020D0: 41 44 59 00 E2 42 FA 14 3B 00 EF 42 04 15 45 4E |ADY..B..;..B..EN|
000020E0: 44 20 2E 42 59 30 00 F5 42 0E 15 3B 00 FE 42 18 |D .BY0..B..;..B.|
000020F0: 15 20 2E 45 4E 00 00 00 |. .EN... |
."0"D.;********************************.
V"N.;* HYPRA-ASS - VERBESSERUNG *.|"
X.;* *.."..
;* VON MICHAEL HAVERKAMP *.H"..;*
HOLUNDERWEG 1 *.."..;*
2843 DINKLAGE *..# .;*
TEL.:04443/2715 *.:#..;*
*.`#..;* ***
07.09. 1986 *** *..#..;*
*..#H.;*************
*******************..#R.;.N#..; HYPRA-AS
S ERWEITERUNG..#..; AUTOMATISCHER GENERA
TOR UND..#..; SAVER..$..;..$.. .EQLNNUM=
$14.*$.. .EQPRGANFANG=$2B.>$.. .EQPRGEND
E=$2D.T$". .EQBLNEUENDE=$58.G$,. .EQBLEN
DE=$5A.|$6. .EQBLANFANG=$5F..$@. .EQLNAD
R=$5F..$J. .EQNEU=$5F..$T. .EQCHRGET=$73
.D$^. .EQCHRGOT=$79.W$H. .EQPRGVEK=$7A..
$R. .EQLEN=$C1..$|. .EQSAVEADR=$C1..%..
.EQANFANG=$F7..%.. .EQENDE=$F9./%.. .EQA
LT=$F9.F%.. .EQPAGENUMMER=$FE.`%.. .EQIN
PUTPUFFER=$0200.Z%.. .EQSHIFTMUSTER=$028
D..%B. .EQNEXTNUM=$033C..%L. .EQSTARTNR=
$033C..%V. .EQBLTUC=$A3BF.Q%.. .EQBASREA
DY=$A474..%.. .EQLINKPRG=$A533..%.. .EQI
NPUTLINE=$A560..&.. .EQGETLNADR=$A613.-&
.. .EQGETLNNUM=$A96B.D&.. .EQLINEFEED=$A
AD7.[&.. .EQCHECKCOM=$AEFD.P&&. .EQCHROU
T=$FFD2.V&0.;..&:. .EQSOURCESTART=$220A.
.&D. .EQAUTO=$216B..&N. .EQBINAER=$1FFE.
Q&X. .EQCHECKWFLAG=$2075..&B. .EQCOPY=$2
14C..&L. .EQCOPY2=$2150..'V. .EQEXTSAVE=
$21B7.%'.. .EQSETSTART=$1FF1.<'.. .EQSET
ZEILE=$2052.O'.. .EQWAIT=$1FD8.C'.. .EQW
FLAG=$1FD7.I'..;..'.. .OB"HYPRA-ASS GEN,
P,W"..'..;..'F. .BA$C000..'P.;..'Z. LDA#
13..'.. STA2..'.. LDX#0.P'..LOOP3 LDY#0.
.'..LOOP2 LDASTART,X..'.. STA$22,Y..'..
INX..( . INY..(*. CPY#3..(4. BCCLOOP2.)(
>. LDY#0.>(H.LOOP1 LDASTART,X.N(R. STA($
22),Y.W(\. INX.C(F.OK1 INY.O(P. CPY$24.}
(Z. BCCLOOP1..(.. DEC2..(.. BNELOOP3..(.
.;..(.. LDX#3;3 BLOCK..(.. LDY#0.O(..LOO
P4 LDASTART2,Y..(..L1 STA$1FD8,Y..(J. IN
Y..(T. BNELOOP4..).. INCLOOP4+2..).. INC
L1+2..).. DEX.,).. BNELOOP4.2)..;.W)..;
* PROGRAMM ZUM ABSPEICHERN *.|)..; * D
ES GEAENDERTEN ASSEMBLERS *..)$.;..).. .
EQNAMLEN=13..)8. .EQGERAETEADR=8;FLOPPY.
.)B.;.E)L.SAVE LDA#1.P)V. LDX#8..)`. STA
$FE..)J. STX$FF..)T. LDY#1..*~. LDX#GERA
ETEADR..*.. LDA#8. *.. JSR$FFBA.0*.. LDA
#NAMLEN.A*.. LDX#<(NAME).R*.. LDY#>(NAME
).`*.. JSR$FFBD.M*D. LDA#$FE..*N. LDX#<(
SOURCESTART)..*X. LDY#>(SOURCESTART)..*.
. JMP$FFD8..*..;.M*..NAME .TX"HYPRA-ASS+
V2".S*..;..*..;DURCH SYS 49152 WIRD DER
..+..;ASSEMBLER GEAENDERT UND AUF DISK.+
+..;ABGESPEICHERT..Q+(.;................
.................W+2.;.Y+<.;AENDERUNGEN
IM HAUPTPROGRAMM.+F.;..+P.START .WO$0B7
3..+Z. .BY6..+D. LDA#>(SOURCESTART).H+N.
STAPRGANFANG+1..+X. LDA#<(SOURCESTART).
.+..;..+.. .WO$1F4A..+.. .BY4.., . LDA#>
(SOURCESTART)..,.. LDX#<(SOURCESTART).4,
..;.B,.. .WO$19B5.L,H. .BY3.\,R. JSRWAIT
;/E.B,..;.P,.. .WO$1B43.Z,.. .BY3..,.. J
SRWAIT;/F..,..;..,.. .WO$1D42..,.. .BY3.
.,". JSRWAIT;/I..,,.;.L,6. .WO$1C4E.V,@.
.BY3..,J. JSRWAIT;/R..,T.;..,^. .WO$1DD
0..-H. .BY3..-R. JSRWAIT;/!..-|.;.(-.. .
WO$1F90.2-.. .BY3.F-.. JMPSETSTART;/U.L-
..;.Z-.. .WO$0AD3.D-.. .BY3.V-B. JMPBINA
ER; %.|-L.;..-V. .WO$1E6E..-.. .BY3..-..
JMPSETZEILE;/Z..-..;..-.. .WO$18FB.F-..
.BY5..-.. JSRCHECKWFLAG;/W..-.. NOP..-&
. NOP..-0.;...:. .WO$18AA...D. .BY3...N.
JSRAUTO;/A.".X.;.0.B. .WO$1AD3.:.L. .BY
3.M.V. JSREXTSAVE;/S.S...;.H...; ZUSATZR
OUTINEN.N...;.....; *** AUF SHIFT WARTE
N ***.....; * FUER /E UND /I *...
..;.O...START2 JSR$FFE1;STOP ?.Z.F. BNEO
K...P. JSR$F642;CLOSE../Z. JSR$17E6;FLAG
=0../.. SEC. /.. JMP$A834;BREAK.6/..OK L
DASHIFTMUSTER.A/.. AND#1.P/.. BEQSTART2.
A/.. JMPLINEFEED.G/ .;../*.; *** /U - BE
FEHL BERICHTIGEN ***../4.;../>. DECPRGAN
FANG+1../H. LDY#$FF../R. LDA#0.U/\. STA(
PRGANFANG),Y../F. INCPRGANFANG+1../P.REA
DY JMPBASREADY..0Z.;.*0..; ** EINGABE VO
N BINAERZAHLEN **.O0..; ** ERMOEGLICHEN
**.U0..;.B0.. CMP#"%".T0.. B
EQAUSWERTEN..0.. CMP#"-"..0.. BNEWEITER.
.0J. JMP$0AED..0T.WEITER JMP$0AD7..0..;.
P0..AUSWERTEN JSRCHRGET..0.. LDX#0..0..
STX$14..0.. STX$15..1..BINLOOP INX..1..
CPX#17..1$. BCSILLEGAL..1.. JSRCHRGOT.=1
8. BCSSYNTAX.I1B. CMP#50.X1L. BCSSYNTAX.
D1V. SBC#47.P1`. ORA$14.|1J. STA$14..1T.
JSRCHRGET..1~. BEQGETEND..1.. CMP#")"..
1.. BEQGETEND.H1.. CMP#$3B; ";".W1.. BEQ
GETEND..1.. AND#$80..1.. BNEGETEND..1D.
CLC..2N. ASL$14..2X. ROL$15.$2.. BCCBINL
OOP.*2..;.<2..GETEND LDA$15.H2.. LDY$14.
Z2.. STA98;FAC1+1.E2.. STY99.R2.. LDX#$9
0.{2(. SEC..22. JMP$BC49;SETFAC..2<.;..2
F.ILLEGAL JMP$B248..2P.;.M2Z.; *** /Z -
BEFEHL ***.S2D.;..2N. CMP#"Z"..2X. BEQ
Z..2.. CMP#"W"..3.. BEQW..3..SYNTAX JMP$
AF08..3 .;.+3..Z JSRCHRGET.<3.. JSRGETLN
NUM.M3.. JSRGETLNADR.Y3H. BCSOK2.N3R.UND
EF'D JMP$A8E3.T3..;..3..OK2 LDA$5F..3..
LDY$60..3.. STAPRGANFANG..3.. STYPRGANFA
NG+1.C3.. BNEREADY.I3..;..3".;WFLAG PRUE
FEN:..3,.;AUFRUF DER PARAMETER-ROUTINE.#
46.;DURCH DEN /W- ODER /S-BEFEHL ?.)4@.;
.:4J. JSRGETLNNUM.E4T. LDX#0.N4^. TAY.\4
H. BNECHWL1.O4R. LDAWFLAG;NEIN..4|. STXW
FLAG;FLAG=0..4.. BNESYNTAX..4.. RTS..4..
;..4..CHWL1 LDAWFLAG.J4.. STXWFLAG;FLAG=
0.Y4.. BEQSYNTAX..4B. JMPCHECKCOM;JA..4L
.;..5V.; ** /W - VERSCHIEBE-BEFEHL **..5
..;.B5..;ANFANGS- U. ENDADRESSE BERECHNE
N.E5..;UND BEREICH IN PUFFER ($A000-.}5.
.;$C000) VERSCHIEBEN..5..;..5..W LDA#1..
5.. STAWFLAG..5&. JSR$18DB;Z1-Z2..50. LD
ALNADR.V5:. STAANFANG;ANFANG-..5D. PHA;A
DR..5N. LDALNADR+1..6X. STAANFANG+1..6B.
PHA..6L. INCLNNUM.'6V. BNEWL1.76.. INCL
NNUM+1.R6..WL1 JSRGETLNADR;ENDADR.[6.. S
EC.I6.. LDALNADR.V6.. STAENDE..6.. STABL
ENDE..6.. SBCANFANG..6F. STALEN;LAENGE..
6P. LDALNADR+1;=EA-AA.M6Z. STAENDE+1..6.
. STABLENDE+1..6.. SBCANFANG+1..6.. STAL
EN+1..7.. BCCSYNTAX;<0 ?.&7.. CMP#$20;>
8KB ?.<7.. BCCLENOK;JA,DANN.R7 . JMP$B97
E;OWERFL..X7*.;.F74.LENOK PLA.Y7>. STABL
ANFANG+1..7H. PLA..7R. STABLANFANG..7\.
LDA#$C0;PUFFER-.C7F. STABLNEUENDE+1;ENDA
DR.O7P. LDA#00..7Z. STABLNEUENDE..7.. JS
RBLTUC..7..;..8..;REST DES PROGRAMMS ZUS
AMMEN-.%8..;SCHIEBEN.+8..;.48.. SEC.F8..
LDAPRGENDE+1.U8J. SBCENDE+1.^8T. TAX.G8
.. INX.U8.. JSRCOPY2.{8..;..8..;ZIELADRE
SSE HOLEN..8..;..8.. JSRLINKPRG..8.. JSR
CHRGOT.H8$. JSRGETLNNUM.V8.. INCLNNUM..8
8. BNEWL2..8B. INCLNNUM..9L.WL2 JSRGETLN
ADR..9V.;./9`.;HIGHBYTE DER ZIELADRESSE
MERKEN.59J.;.>9T. TXA.G9~. PHA.M9..;.R9.
.;NUMMER DER ZIELZEILE ALS START-..9..;N
UMMER FUER RENUMBER MERKEN..9..;..9.. LD
Y#2..9.. LDA(LNADR),Y.K9D. STA$033C;STAR
T-.T9N. INY..9X. LDA(LNADR),Y..9.. STA$0
33D;NUMMER..:..;.$:..;AB ZIELADRESSE PLA
TZ SCHAFFEN.*:..;.3:.. SEC.C:.. LDAPRGEN
DE.U:.. STABLNEUENDE.A:(. SBCLEN.P:2. ST
ABLENDE..:<. LDAPRGENDE+1..:F. STABLNEUE
NDE+1..:P. SBCLEN+1..:Z. STABLENDE+1.C:D
. JSRBLTUC.I:N.;..:X.;RAM UNTER BASICROM
SELEKTIEREN..:..;..:.. LDA1..;.. PHA..;
. AND#$FE..;.. STA1.#;..;.F;..;ZU VERSC
HIEBENEN PROGRAMMTEIL.G;H.;AUS DEM PUFFE
R AN DIE ZIEL-..;R.;ADRESSE VERSCHIEBEN.
.;..;..;.. SEC..;.. LDA#0..;.. SBCLEN..;
.. STAALT..;.. LDA#$C0.M;.. SBCLEN+1..;"
. STAALT+1..;,. JSRCOPY..;6.;..<@.;ROM S
ELEKTIEREN..<J.;..<T. PLA..<^. STA1."<H.
;.A<R.; PROGRAMM NEU NUMMERIEREN.G<|.;.P
<.. PLA.`<.. STALNADR+1.P<.. JSRLINKPRG.
.<.. LDA#10;STEP=10..<.. STA$0340..<.. L
DX#1..<B. STXPAGENUMMER;PNR=1.K<L. LDA#$
FF;BIS ZUM..<V. STALNNUM;ENDE..<.. STALN
NUM+1;..=.. JMP$1A32;=RENUM..=..;..=.. L
DY#0;COPY.(=.. LDXLEN+1.7=.. INX;COPY2.I
=..COPYLOOP1 DEX.V=&. BEQREST.O=0.COPYLO
OP2 LDA(ALT),Y.=:. STA(NEU),Y..=D. INY.
.=N. BNECOPYLOOP2..=X. INCALT+1..=B. INC
NEU+1.H=L. BNECOPYLOOP1.N=V.;..=..REST L
DA(ALT),Y..=.. STA(NEU),Y..=.. INY..>..
CPYLEN..>.. BCCREST..>.. RTS.#>..;.H>F.;
** AUTO-FUNKTION VERBESSERN **.N>P.;.`>
Z. JSRINPUTLINE.L>.. LDA$C8.X>.. CMP#40.
.>.. BCCEINEZEILE..>.. LDA#$91;"."..>..
JSRCHROUT.D>..EINEZEILE LDA#$91;".".S> .
JSRCHROUT..>*. LDA#13;RETURN..>4. STA$0
277..>>. LDA#1..?H. STA$C6..?R. JSRINPUT
LINE.,?\. STXPRGVEK.=?F. STYPRGVEK+1.L?P
. JSRCHRGET.X?Z. BCCOK3.F?.. JMP$18B9.L?
..;..?..OK3 JSRGETLNNUM..?.. LDA$14..?..
CLC..?.. ADC$0340;+STEP..?.. STANEXTNUM
.E?J. LDA$15.P?T. ADC#0..?.. STANEXTNUM+
1..?.. LDX#$FF..?.. STXPRGVEK..@.. INCPR
GVEK+1..@.. LDX#6.0@.. LDAINPUTPUFFER,X.
>@.. JMP$18B7.D@$.;.F@..; ** /S - BEFEHL
ERWEITERN **.L@8.;.{@B. JSRCHRGET..@L.
BCCTEILSAVE..@V. JMP$1AB8;NORMAL..@`.;..
@J.TEILSAVE PHP.C@T. LDA#1.Q@~. STAWFLAG
.Z@.. PLP..@.. JSR$18DE;Z1-Z2..@.. LDALN
ADR..A.. STASAVEADR..A.. LDALNADR+1..A..
STASAVEADR+1.DAD. JSR$1AB8;SETNAME.RAN.
INCLNNUM.^AX. BNESL1.NA.. INCLNNUM+1..A
..SL1 JSRGETLNADR..A.. LDY#$00..A.. LDA(
LNADR),Y..A.. PHA..A.. TYA.EA.. STA(LNAD
R),Y.NA(. INY..A2. LDA(LNADR),Y..A<. PHA
..AF. LDA#$00..BP. STA(LNADR),Y..BZ. LDY
LNADR+1.!BD. CLC./BN. LDALNADR.<BX. ADC#
$02.EB.. TAX.PB.. BCCL2.YB.. INY.LB .L2
LDA#SAVEADR.B.. JSR$FFD8;SAVE..B.. LDY#
$01..B.. PLA..BH. STA(LNADR),Y..BR. DEY.
.B.. PLA.KB.. STA(LNADR),Y..B.. JMPBASRE
ADY..B..;..B..END .BY0..B..;..B.. .EN...
> CLICK IMAGE PREVIEW FOR FULL MODAL