UNCOVER.SRC
FILE INFORMATION
FILENAME(S): UNCOVER.SRC
FILE TYPE(S): PRG
FILE SIZE: 2.2K
FIRST SEEN: 2025-11-30 21:13:12
APPEARS ON: 1 disk(s)
FILE HASH
1dd6214186df13e02b8663e437e442632f860ee459f26fbc2485015f1c1ed158
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| 10703 3 87 64ER | UNCOVER.SRC | PRG | DuncanTwain | 24 | 1 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 09 08 0A 00 2E 4F 53 00 16 08 14 00 2E 42 |.......OS......B| 00000010: 41 24 43 32 30 30 00 2B 08 1E 00 42 49 4E 44 20 |A$C200.+...BIND | 00000020: 20 20 20 2E 44 45 24 41 35 33 33 00 40 08 28 00 | .DE$A533.@.(.| 00000030: 4E 55 4D 4F 55 54 20 20 2E 44 45 24 42 44 43 44 |NUMOUT .DE$BDCD| 00000040: 00 55 08 32 00 42 53 4F 55 54 20 20 20 2E 44 45 |.U.2.BSOUT .DE| 00000050: 24 45 31 30 43 00 6A 08 3C 00 54 45 58 54 41 4E |$E10C.j.<.TEXTAN| 00000060: 46 20 2E 44 45 24 30 30 32 42 00 7F 08 46 00 56 |F .DE$002B...F.V| 00000070: 41 52 41 4E 46 20 20 2E 44 45 24 30 30 32 44 00 |ARANF .DE$002D.| 00000080: 94 08 50 00 46 45 4C 44 41 4E 46 20 2E 44 45 24 |..P.FELDANF .DE$| 00000090: 30 30 32 46 00 A9 08 5A 00 46 45 4C 44 45 4E 44 |002F...Z.FELDEND| 000000A0: 20 2E 44 45 24 30 30 33 31 00 BE 08 64 00 4C 31 | .DE$0031...d.L1| 000000B0: 20 20 20 20 20 20 2E 44 45 24 30 30 35 30 00 D3 | .DE$0050..| 000000C0: 08 6E 00 48 31 20 20 20 20 20 20 2E 44 45 24 30 |.n.H1 .DE$0| 000000D0: 30 35 31 00 E8 08 78 00 4C 32 20 20 20 20 20 20 |051...x.L2 | 000000E0: 2E 44 45 24 30 30 35 32 00 FD 08 82 00 48 32 20 |.DE$0052.....H2 | 000000F0: 20 20 20 20 20 2E 44 45 24 30 30 35 33 00 12 0A | .DE$0053...| 00000100: 2A EE D6 4E 80 80 80 80 80 80 02 E2 EC E8 F8 C8 |*..N............| 00000110: EF EE 02 E0 9A AE EE 22 E2 02 02 02 02 02 02 24 |.......".......$| 00000120: E4 3E EE FC 01 EC E8 01 0F 3E EE E3 FE E4 2E AE |.>.......>......| 00000130: B2 E2 E2 EE 2E EE 9E 8F 8C 86 8E E0 8E 0F EE 0E |................| 00000140: E2 E2 E3 80 80 80 80 80 88 EE EE EE EF EE EE 1C |................| 00000150: EE 3E F3 79 88 E8 9F 99 EE 80 04 80 0E EF 5A F7 |.>.y..........Z.| 00000160: 59 88 E4 C0 88 9F 99 94 88 96 C4 8F EE 80 5C EC |Y.............\.| 00000170: D8 9D BE AC 9E 9D E8 BA 88 99 9D E8 81 EF 1E FE |................| 00000180: 88 EC D9 94 88 BF 9D B6 8F EE 80 5C E8 9D E8 AF |...........\....| 00000190: D8 9C AD 9E 1C E8 9D BE AD 9D E8 81 89 1E 68 88 |..............h.| 000001A0: BE B9 EE 81 C8 1E FF 88 AC D8 EE 80 04 80 4D 81 |..............M.| 000001B0: 5C 1E A9 88 A8 B9 9E 88 E4 C8 88 6C 1E F8 88 AC |\..........l....| 000001C0: 9F AC 81 A9 1E 78 80 5C 9C DD EC 9F AF D9 9D BA |.....x.\........| 000001D0: 88 99 9D E4 88 A8 9C EC BE AC D8 E8 AF AD E8 9C |................| 000001E0: BF BF E8 9D EC 80 6C 1E 89 8C B8 EC E0 88 A8 BE |......l.........| 000001F0: B9 99 80 79 1E 19 8C 9F 99 EE 81 B8 23 30 00 1C |...y........#0..| 00000200: 0A 18 01 4C 44 41 20 54 45 58 C0 46 2C 20 59 20 |...LDA TEX.F, Y | 00000210: 3B 55 45 42 45 52 54 52 41 47 45 4E 00 41 0A 22 |;UEBERTRAGEN.A."| 00000220: 01 53 54 41 20 4C 31 20 20 20 20 20 20 20 20 20 |.STA L1 | 00000230: 3B 44 45 53 20 42 41 53 49 43 5A 45 49 47 45 52 |;DES BASICZEIGER| 00000240: 53 00 5E 0A 2C 01 49 4E 59 20 20 20 20 20 20 20 |S.^.,.INY | 00000250: 20 20 20 20 20 3B 5A 55 52 20 B8 49 45 4E 00 7A | ;ZUR .IEN.z| 00000260: 0A 36 01 4C 44 41 20 54 45 58 C0 46 2C 20 59 20 |.6.LDA TEX.F, Y | 00000270: 3B 42 45 4E 55 54 5A 55 4E 47 00 85 0A 40 01 53 |;BENUTZUNG...@.S| 00000280: 54 41 20 48 31 00 8D 0A 4A 01 44 45 59 00 AA 0A |TA H1...J.DEY...| 00000290: 54 01 4C 44 41 28 4C 31 29 2C 59 20 3B 5A 45 49 |T.LDA(L1),Y ;ZEI| 000002A0: 47 54 20 41 55 46 20 44 45 4E 00 C3 0A 5E 01 3B |GT AUF DEN...^.;| 000002B0: 31 2E 4C 49 4E 4B 50 4F B5 45 52 2C 4C 4F 57 42 |1.LINKPO.ER,LOWB| 000002C0: 59 54 45 00 D6 0A 68 01 53 54 41 20 4C 33 20 3B |YTE...h.STA L3 ;| 000002D0: 4D 45 52 4B 45 4E 00 DE 0A 72 01 49 4E 59 00 F9 |MERKEN...r.INY..| 000002E0: 0A 7C 01 4C 44 41 28 4C 31 29 2C 59 20 3B 31 2E |.|.LDA(L1),Y ;1.| 000002F0: 4C 50 2C 48 49 42 59 54 45 00 0C 0B 86 01 53 54 |LP,HIBYTE.....ST| 00000300: 41 20 48 33 20 3B 4D 45 52 4B 45 4E 00 32 0B 90 |A H3 ;MERKEN.2..| 00000310: 01 53 31 20 4C 44 41 28 4C 33 29 2C 59 20 3B 5A |.S1 LDA(L3),Y ;Z| 00000320: 45 49 47 54 20 41 55 46 20 4E 41 45 43 48 53 54 |EIGT AUF NAECHST| 00000330: 45 4E 00 4B 0B 9A 01 3B 4C 49 4E 4B 50 4F B5 45 |EN.K...;LINKPO.E| 00000340: 52 28 48 49 AB 42 59 54 45 21 29 00 70 0B A4 01 |R(HI.BYTE!).p...| 00000350: 3B 49 53 54 20 44 49 45 53 45 53 20 4E 55 4C 4C |;IST DIESES NULL| 00000360: 2C 20 53 4F 20 49 53 54 20 54 45 58 54 45 4E AB |, SO IST TEXTEN.| 00000370: 00 8D 0B AE 01 3B 44 45 20 41 B7 45 49 43 48 80 |.....;DE A.EICH.| 00000380: 20 4E 41 43 48 47 45 57 49 45 53 45 4E 00 A5 0B | NACHGEWIESEN...| 00000390: B8 01 42 45 51 20 53 36 20 3B 44 41 4E 4E 20 57 |..BEQ S6 ;DANN W| 000003A0: 45 49 54 45 52 00 AD 0B C2 01 50 48 41 00 C3 0B |EITER.....PHA...| 000003B0: CC 01 44 45 59 20 20 20 20 20 20 20 3B 5A 45 49 |..DEY ;ZEI| 000003C0: 47 45 52 00 E0 0B D6 01 4C 44 41 20 28 4C 33 29 |GER.....LDA (L3)| 000003D0: 2C 59 3B 41 55 46 20 4E 45 55 45 20 4C 2E 50 2E |,Y;AUF NEUE L.P.| 000003E0: 00 F8 0B E0 01 53 54 41 20 4C 33 20 20 20 20 3B |.....STA L3 ;| 000003F0: AB 41 44 52 45 53 53 45 00 00 0C EA 01 49 4E 59 |.ADRESSE.....INY| 00000400: 00 1D 0C F4 01 50 4C 41 20 20 20 20 20 20 20 3B |.....PLA ;| 00000410: 41 4B 54 55 41 4C 49 53 49 45 52 45 4E 00 28 0C |AKTUALISIEREN.(.| 00000420: FE 01 53 54 41 20 48 33 00 3F 0C 08 02 42 4E 45 |..STA H3.?...BNE| 00000430: 20 53 31 20 20 20 20 3B 56 91 20 56 B0 4E 45 00 | S1 ;V. V.NE.| 00000440: 47 0C 12 02 3B AC AC 00 4F 0C 1C 02 3B AC AC 00 |G...;...O...;...| 00000450: 6A 0C 26 02 3B 50 52 55 45 46 45 4E 20 44 45 52 |j.&.;PRUEFEN DER| 00000460: 20 45 49 4E 5A 45 4C 4E 45 4E 00 79 0C 30 02 3B | EINZELNEN.y.0.;| 00000470: 42 41 53 49 43 5A 45 49 C3 00 89 0C 3A 02 53 36 |BASICZEI....:.S6| 00000480: 20 4C 44 59 20 23 24 30 31 00 A9 0C 44 02 4C 44 | LDY #$01...D.LD| 00000490: 41 28 4C 31 29 2C 59 20 20 20 3B 49 53 54 20 88 |A(L1),Y ;IST .| 000004A0: 5A 54 45 20 5A 45 49 4C 45 00 C2 0C 4E 02 42 45 |ZTE ZEILE...N.BE| 000004B0: 51 20 53 43 48 4C 55 53 53 20 3B 46 45 52 54 49 |Q SCHLUSS ;FERTI| 000004C0: 47 99 00 E2 0C 58 02 4C 44 59 20 23 20 24 30 34 |G....X.LDY # $04| 000004D0: 20 3B 42 59 54 45 20 44 49 52 45 4B 54 20 4E 41 | ;BYTE DIREKT NA| 000004E0: 43 48 00 FC 0C 62 02 4C 44 41 28 4C 31 29 2C 59 |CH...b.LDA(L1),Y| 000004F0: 20 3B 5A 45 49 C3 4E 55 4D 4D 45 52 00 0D 0D 6C | ;ZEI.NUMMER...l| 00000500: 02 42 45 51 20 4B B0 52 45 4B 54 55 52 00 1F 0D |.BEQ K.REKTUR...| 00000510: 76 02 3B 28 46 41 4C 4C 53 20 82 55 4C 4C 29 00 |v.;(FALLS .ULL).| 00000520: 2C 0D 80 02 4C 44 59 20 23 24 30 31 00 4B 0D 8A |,...LDY #$01.K..| 00000530: 02 4C 44 41 28 4C 31 29 2C 59 20 3B 5A 45 49 47 |.LDA(L1),Y ;ZEIG| 00000540: 45 52 20 41 4E 48 AF 20 44 45 53 00 65 0D 94 02 |ER ANH. DES.e...| 00000550: 50 48 41 20 20 20 20 20 20 20 3B 4C 49 4E 4B 50 |PHA ;LINKP| 00000560: 4F B5 45 52 53 00 81 0D 9E 02 44 45 59 20 20 20 |O.ERS.....DEY | 00000570: 20 20 20 20 3B 41 55 46 20 4E 41 45 43 48 53 54 | ;AUF NAECHST| 00000580: 45 00 9E 0D A8 02 4C 44 41 28 4C 31 29 2C 59 20 |E.....LDA(L1),Y | 00000590: 3B 5A 45 49 4C 45 20 52 49 43 48 54 45 4E 00 A9 |;ZEILE RICHTEN..| 000005A0: 0D B2 02 53 54 41 20 4C 31 00 B1 0D BC 02 50 4C |...STA L1.....PL| 000005B0: 41 00 BC 0D C6 02 53 54 41 20 48 31 00 C7 0D D0 |A.....STA H1....| 000005C0: 02 42 4E 45 20 53 36 00 CF 0D DA 02 3B AC AC 00 |.BNE S6.....;...| 000005D0: D7 0D E4 02 3B AC AC 00 E8 0D EE 02 4B B0 52 45 |....;.......K.RE| 000005E0: 4B 54 55 52 20 49 4E 59 00 F6 0D F8 02 54 45 53 |KTUR INY.....TES| 000005F0: 54 3A 20 49 4E 59 00 04 0E 02 03 4C 44 41 28 4C |T: INY.....LDA(L| 00000600: 31 29 2C 59 00 27 0E 0C 03 43 4D 50 20 23 22 3A |1),Y.'...CMP #":| 00000610: 22 20 3B 54 45 53 54 20 41 55 46 20 44 4F 50 50 |" ;TEST AUF DOPP| 00000620: 45 4C 50 55 4E 4B 54 00 2F 0E 16 03 43 4C 43 00 |ELPUNKT./...CLC.| 00000630: 3D 0E 20 03 42 45 51 20 54 45 53 54 3A 00 55 0E |=. .BEQ TEST:.U.| 00000640: 2A 03 43 4D 50 20 23 20 24 30 20 3B 4E 55 52 20 |*.CMP # $0 ;NUR | 00000650: 22 3A 22 99 99 00 61 0E 34 03 42 4E 45 20 B2 AA |":"...a.4.BNE ..| 00000660: 31 00 69 0E 3E 03 44 45 59 00 85 0E 48 03 53 54 |1.i.>.DEY...H.ST| 00000670: 59 20 56 B0 53 43 48 20 3B 56 B0 53 43 48 55 42 |Y V.SCH ;V.SCHUB| 00000680: 20 42 45 49 4D 00 96 0E 52 03 3B 56 45 52 53 43 | BEIM...R.;VERSC| 00000690: 48 49 45 42 45 4E 00 9E 0E 5C 03 43 4C 43 00 A9 |HIEBEN...\.CLC..| 000006A0: 0E 66 03 4C 44 41 20 4C 31 00 B4 0E 70 03 53 54 |.f.LDA L1...p.ST| 000006B0: 41 20 4C 32 00 BF 0E 7A 03 4C 44 41 20 48 31 00 |A L2...z.LDA H1.| 000006C0: CA 0E 84 03 53 54 41 20 48 32 00 EE 0E 8E 03 53 |....STA H2.....S| 000006D0: 38 20 4C 44 59 20 56 B0 53 43 48 20 3B 56 45 52 |8 LDY V.SCH ;VER| 000006E0: 53 43 48 49 45 42 45 52 4F 55 54 49 4E 45 00 FC |SCHIEBEROUTINE..| 000006F0: 0E 98 03 4C 44 41 28 4C 32 29 2C 59 00 09 0F A2 |...LDA(L2),Y....| 00000700: 03 4C 44 59 20 23 24 30 34 00 17 0F AC 03 53 54 |.LDY #$04.....ST| 00000710: 41 28 4C 32 29 2C 59 00 22 0F B6 03 49 4E 43 20 |A(L2),Y."...INC | 00000720: 4C 32 00 2D 0F C0 03 42 4E 45 20 53 38 00 38 0F |L2.-...BNE S8.8.| 00000730: CA 03 4C 44 41 20 48 32 00 54 0F D4 03 43 4D 50 |..LDA H2.T...CMP| 00000740: 20 48 33 20 3B 53 43 48 91 20 41 4D 20 54 45 58 | H3 ;SCH. AM TEX| 00000750: 54 80 45 99 00 5F 0F DE 03 42 45 51 20 53 39 00 |T.E.._...BEQ S9.| 00000760: 6A 0F E8 03 49 4E 43 20 48 32 00 75 0F F2 03 42 |j...INC H2.u...B| 00000770: 4E 45 20 53 38 00 80 0F FC 03 53 39 20 53 45 43 |NE S8.....S9 SEC| 00000780: 00 88 0F 06 04 54 59 41 00 96 0F 10 04 53 42 43 |.....TYA.....SBC| 00000790: 20 56 B0 53 43 48 00 B6 0F 1A 04 41 44 43 20 4C | V.SCH.....ADC L| 000007A0: 33 20 20 20 20 3B 5A 45 49 47 45 52 20 41 55 46 |3 ;ZEIGER AUF| 000007B0: 20 54 45 58 54 AB 00 D5 0F 24 04 42 43 53 20 B2 | TEXT....$.BCS .| 000007C0: 20 AA 20 32 20 3B 80 45 20 44 45 4B 8F 45 4E 54 | . 2 ;.E DEK.ENT| 000007D0: 49 45 52 45 4E 00 E0 0F 2E 04 44 45 43 20 48 33 |IEREN.....DEC H3| 000007E0: 00 E8 0F 38 04 43 4C 43 00 F3 0F 42 04 53 54 41 |...8.CLC...B.STA| 000007F0: 20 4C 33 00 FB 0F 4C 04 3B AC AC 00 03 10 56 04 | L3...L.;.....V.| 00000800: 3B AC AC 00 1B 10 60 04 3B 5A 45 49 C3 4E 55 4D |;.....`.;ZEI.NUM| 00000810: 4D 45 52 4E 41 55 53 47 41 42 45 00 28 10 6A 04 |MERNAUSGABE.(.j.| 00000820: 4C 44 41 20 23 24 32 30 00 36 10 74 04 4A 53 52 |LDA #$20.6.t.JSR| 00000830: 20 42 53 4F 55 54 00 43 10 7E 04 4C 44 59 20 23 | BSOUT.C.~.LDY #| 00000840: 24 30 32 00 58 10 88 04 4C 44 41 20 28 4C 31 29 |$02.X...LDA (L1)| 00000850: 2C 59 20 3B 4C 4F 57 AB 00 60 10 92 04 54 41 58 |,Y ;LOW..`...TAX| 00000860: 00 68 10 9C 04 49 4E 59 00 8A 10 A6 04 4C 44 41 |.h...INY.....LDA| 00000870: 20 28 4C 31 29 2C 59 20 3B 26 48 49 AB 42 59 54 | (L1),Y ;&HI.BYT| 00000880: 45 20 44 45 52 20 5A 2E 4E 2E 00 AA 10 B0 04 4A |E DER Z.N......J| 00000890: 53 52 20 4E 55 4D 4F 55 54 20 3B 49 4E 20 41 AD |SR NUMOUT ;IN A.| 000008A0: 58 20 41 55 53 47 45 42 45 4E 00 C3 10 BA 04 4C |X AUSGEBEN.....L| 000008B0: 44 41 20 24 44 33 20 3B 43 55 52 53 B0 53 50 41 |DA $D3 ;CURS.SPA| 000008C0: 4C 54 45 00 E6 10 C4 04 43 4D 50 20 23 24 32 31 |LTE.....CMP #$21| 000008D0: 20 3B 43 52 53 52 20 5A 55 20 57 45 49 54 20 52 | ;CRSR ZU WEIT R| 000008E0: 45 43 48 54 53 99 00 EE 10 CE 04 43 4C 43 |ECHTS......CLC |
.......OS......BA$C200.+...BIND .DE$A
533.@.(.NUMOUT .DE$BDCD.U.2.BSOUT .DE
$E10C.J.<.TEXTANF .DE$002B..F.VARANF .
DE$002D...P.FELDANF .DE$002F...Z.FELDEND
.DE$0031...D.L1 .DE$0050.S.N.H1
.DE$0051...X.L2 .DE$0052.....H2
.DE$0053...*.VN...........H......."
.......$.>.......>......................
.................>.Y..........Z.Y.......
..D...\.X.................Y........\....
X.............H.....H....X....M.\.......
.H.L.........X.\.....Y............X.....
......L............Y........#0.....LDA T
EX.F, Y ;UEBERTRAGEN.A.".STA L1
;DES BASICZEIGERS.^.,.INY ;ZU
R .IEN.Z.6.LDA TEX.F, Y ;BENUTZUNG...@.S
TA H1...J.DEY...T.LDA(L1),Y ;ZEIGT AUF D
EN.C.^.;1.LINKPO.ER,LOWBYTE.V.H.STA L3 ;
MERKEN...R.INY...|.LDA(L1),Y ;1.LP,HIBYT
E.....STA H3 ;MERKEN.2...S1 LDA(L3),Y ;Z
EIGT AUF NAECHSTEN.K...;LINKPO.ER(HI.BYT
E!).P...;IST DIESES NULL, SO IST TEXTEN.
.....;DE A.EICH. NACHGEWIESEN.....BEQ S6
;DANN WEITER...B.PHA.C.L.DEY ;ZEI
GER...V.LDA (L3),Y;AUF NEUE L.P......STA
L3 ;.ADRESSE.....INY.....PLA ;
AKTUALISIEREN.(...STA H3.?...BNE S1 ;
V. V.NE.G...;...O...;...J.&.;PRUEFEN DER
EINZELNEN.Y.0.;BASICZEIC...:.S6 LDY #$0
1...D.LDA(L1),Y ;IST .ZTE ZEILE.B.N.BE
Q SCHLUSS ;FERTIG....X.LDY # $04 ;BYTE D
IREKT NACH...B.LDA(L1),Y ;ZEICNUMMER...L
.BEQ K.REKTUR...V.;(FALLS .ULL).,...LDY
#$01.K...LDA(L1),Y ;ZEIGER ANH. DES.E...
PHA ;LINKPO.ERS.....DEY ;AUF
NAECHSTE.....LDA(L1),Y ;ZEILE RICHTEN..
...STA L1.....PLA...F.STA H1.G.P.BNE S6.
O.Z.;...W...;.......K.REKTUR INY.....TES
T: INY.....LDA(L1),Y.'...CMP #":" ;TEST
AUF DOPPELPUNKT./...CLC.=. .BEQ TEST:.U.
*.CMP # $0 ;NUR ":"...A.4.BNE ..1.I.>.DE
Y...H.STY V.SCH ;V.SCHUB BEIM...R.;VERSC
HIEBEN...\.CLC...F.LDA L1...P.STA L2...Z
.LDA H1.J...STA H2.....S8 LDY V.SCH ;VER
SCHIEBEROUTINE.....LDA(L2),Y.....LDY #$0
4.....STA(L2),Y."...INC L2.-...BNE S8.8.
J.LDA H2.T.T.CMP H3 ;SCH. AM TEXT.E.._..
.BEQ S9.J...INC H2.U...BNE S8.....S9 SEC
.....TYA.....SBC V.SCH.....ADC L3 ;ZE
IGER AUF TEXT..U.$.BCS . . 2 ;.E DEK.ENT
IEREN.....DEC H3...8.CLC...B.STA L3...L.
;.....V.;.....`.;ZEICNUMMERNAUSGABE.(.J.
LDA #$20.6.T.JSR BSOUT.C.~.LDY #$02.X...
LDA (L1),Y ;LOW..`...TAX.H...INY.....LDA
(L1),Y ;&HI.BYTE DER Z.N......JSR NUMOU
T ;IN A.X AUSGEBEN.C...LDA $D3 ;CURS.SPA
LTE...D.CMP #$21 ;CRSR ZU WEIT RECHTS...
.N.CLC
> CLICK IMAGE PREVIEW FOR FULL MODAL