VERIFY-QUELLCODE
FILE INFORMATION
FILENAME(S): VERIFY-QUELLCODE
FILE TYPE(S): PRG
FILE SIZE: 3.3K
FIRST SEEN: 2025-11-30 01:12:51
APPEARS ON: 2 disk(s)
FILE HASH
4c1b0fb6c469dbe6ed4af6dfb751229507c092ceeedc7148acf9e16b79af94e5
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| 64 ER SONDERH 71 | VERIFY-QUELLCODE | PRG | C64er | 16 | 12 | DOWNLOAD FILE |
| 10910 10 899999 | VERIFY-QUELLCODE | PRG | C64er | 21 | 7 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 25 08 10 27 8F 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 00 49 08 1A 27 8F 2A 2A 2A 20 20 |*****.I..'.*** |
00000030: 20 56 45 52 49 46 59 2D 4D 41 53 54 45 52 20 56 | VERIFY-MASTER V|
00000040: 31 2E 30 20 20 20 2A 2A 2A 00 6D 08 24 27 8F 2A |1.0 ***.m.$'.*|
00000050: 2A 2A 20 20 20 20 20 20 20 28 43 29 20 31 39 38 |** (C) 198|
00000060: 39 20 42 59 20 20 20 20 20 20 2A 2A 2A 00 91 08 |9 BY ***...|
00000070: 2E 27 8F 2A 2A 2A 20 20 20 20 4D 41 54 54 48 49 |.'.*** MATTHI|
00000080: 41 53 20 53 54 52 45 43 4B 45 52 20 20 20 2A 2A |AS STRECKER **|
00000090: 2A 00 B5 08 38 27 8F 2A 2A 2A 20 20 20 20 20 20 |*...8'.*** |
000000A0: 20 5A 55 4D 20 41 4E 47 45 52 20 38 20 20 20 20 | ZUM ANGER 8 |
000000B0: 20 20 2A 2A 2A 00 D9 08 42 27 8F 2A 2A 2A 20 20 | ***...B'.*** |
000000C0: 20 20 33 34 33 30 20 57 49 54 5A 45 4E 48 41 55 | 3430 WITZENHAU|
000000D0: 53 45 4E 20 20 20 2A 2A 2A 00 FD 08 4C 27 8F 2A |SEN ***...L'.*|
000000E0: 2A 2A 20 20 20 20 54 45 4C 2E 3A 20 30 35 35 34 |** TEL.: 0554|
000000F0: 32 2F 31 36 33 32 20 20 20 20 2A 2A 2A 00 21 09 |2/1632 ***.!.|
00000100: 56 27 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |V'.*************|
00000110: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000120: 2A 00 2D 09 60 27 9E 39 AC 34 30 39 36 00 39 09 |*.-.`'.9.4096.9.|
00000130: 6A 27 2E 4F 50 54 20 4F 4F 00 46 09 74 27 AC B2 |j'.OPT OO.F.t'..|
00000140: 20 34 39 31 35 32 00 59 09 7E 27 48 49 4C 31 20 | 49152.Y.~'HIL1 |
00000150: 20 20 B2 20 24 30 30 38 42 00 6C 09 88 27 48 49 | . $008B.l..'HI|
00000160: 4C 32 20 20 20 B2 20 24 30 30 30 32 00 7F 09 92 |L2 . $0002....|
00000170: 27 48 49 4C 33 20 20 20 B2 20 24 30 30 38 44 00 |'HIL3 . $008D.|
00000180: 92 09 9C 27 53 54 41 54 55 53 20 B2 20 24 30 30 |...'STATUS . $00|
00000190: 39 30 00 A5 09 A6 27 53 50 41 4C 54 45 20 B2 20 |90....'SPALTE . |
000001A0: 24 30 30 44 33 00 B8 09 B0 27 5A 45 49 4C 45 20 |$00D3....'ZEILE |
000001B0: 20 B2 20 24 30 30 44 36 00 CB 09 BA 27 53 54 52 | . $00D6....'STR|
000001C0: 4F 55 54 20 B2 20 24 41 42 31 45 00 DE 09 C4 27 |OUT . $AB1E....'|
000001D0: 43 48 4B 43 4F 4D 20 B2 20 24 41 45 46 44 00 F1 |CHKCOM . $AEFD..|
000001E0: 09 CE 27 5A 41 4C 4F 55 54 20 B2 20 24 42 44 43 |..'ZALOUT . $BDC|
000001F0: 44 00 04 0A D8 27 53 45 54 4E 41 4D 20 B2 20 24 |D....'SETNAM . $|
00000200: 45 32 35 37 00 17 0A E2 27 53 45 54 43 55 52 20 |E257....'SETCUR |
00000210: B2 20 24 45 35 31 30 00 28 0A EC 27 9C 53 43 52 |. $E510.(..'.SCR|
00000220: 20 B2 20 24 45 35 34 34 00 3B 0A F6 27 46 49 4C | . $E544.;..'FIL|
00000230: 50 41 52 20 B2 20 24 46 46 42 41 00 4E 0A 00 28 |PAR . $FFBA.N..(|
00000240: 46 49 4C 4E 41 4D 20 B2 20 24 46 46 42 44 00 5E |FILNAM . $FFBD.^|
00000250: 0A 0A 28 9F 20 20 20 B2 20 24 46 46 43 30 00 6D |..(. . $FFC0.m|
00000260: 0A 14 28 A0 20 20 B2 20 24 46 46 43 33 00 80 0A |..(. . $FFC3...|
00000270: 1E 28 49 45 43 49 4E 20 20 B2 20 24 46 46 41 35 |.(IECIN . $FFA5|
00000280: 00 93 0A 28 28 54 41 4C 4B 20 20 20 B2 20 24 46 |...((TALK . $F|
00000290: 46 42 34 00 A6 0A 32 28 55 4E 54 41 4C 4B 20 B2 |FB4...2(UNTALK .|
000002A0: 20 24 46 46 41 42 00 B9 0A 3C 28 53 45 43 54 4C | $FFAB...<(SECTL|
000002B0: 4B 20 B2 20 24 46 46 39 36 00 CC 0A 46 28 42 41 |K . $FF96...F(BA|
000002C0: 53 4F 55 54 20 B2 20 24 46 46 44 32 00 F2 0A 50 |SOUT . $FFD2...P|
000002D0: 28 3B AB AB AB AB AB AB AB AB AB AB AB AB AB AB |(;..............|
000002E0: AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB |................|
000002F0: AB AB 00 09 0B 5A 28 45 49 4E 53 50 52 20 20 4A |.....Z(EINSPR J|
00000300: 53 52 20 43 48 4B 43 4F 4D 00 27 0B 64 28 3A 20 |SR CHKCOM.'.d(: |
00000310: 20 20 20 20 20 20 4C 44 41 20 23 30 3A 53 54 41 | LDA #0:STA|
00000320: 20 53 54 41 54 55 53 00 4A 0B 6E 28 3A 20 20 20 | STATUS.J.n(: |
00000330: 20 20 20 20 4C 44 41 20 23 31 3A 4C 44 58 20 23 | LDA #1:LDX #|
00000340: 38 3A 4C 44 59 20 23 24 36 32 00 61 0B 78 28 3A |8:LDY #$62.a.x(:|
00000350: 20 20 20 20 20 20 20 4A 53 52 20 46 49 4C 50 41 | JSR FILPA|
00000360: 52 00 78 0B 82 28 3A 20 20 20 20 20 20 20 4A 53 |R.x..(: JS|
00000370: 52 20 53 45 54 4E 41 4D 00 9C 0B 8C 28 3A 20 20 |R SETNAM....(: |
00000380: 20 20 20 20 20 4C 44 41 20 23 B3 54 45 58 54 31 | LDA #.TEXT1|
00000390: 3A 4C 44 59 20 23 B1 54 45 58 54 31 00 B3 0B 96 |:LDY #.TEXT1....|
000003A0: 28 3A 20 20 20 20 20 20 20 4A 53 52 20 53 54 52 |(: JSR STR|
000003B0: 4F 55 54 00 C5 0B A0 28 3A 20 20 20 20 20 20 20 |OUT....(: |
000003C0: 4A 53 52 20 9F 00 E1 0B AA 28 3A 20 20 20 20 20 |JSR .....(: |
000003D0: 20 20 4C 44 41 20 23 38 3A 4A 53 52 20 54 41 4C | LDA #8:JSR TAL|
000003E0: 4B 00 01 0C B4 28 3A 20 20 20 20 20 20 20 4C 44 |K....(: LD|
000003F0: 41 20 23 24 36 32 3A 4A 53 52 20 53 45 43 54 4C |A #$62:JSR SECTL|
00000400: 4B 00 22 0C BE 28 3A 20 20 20 20 20 20 20 4A 53 |K."..(: JS|
00000410: 52 20 49 45 43 49 4E 3A 42 49 54 20 53 54 41 54 |R IECIN:BIT STAT|
00000420: 55 53 00 34 0C C8 28 3A 20 20 20 20 20 20 20 42 |US.4..(: B|
00000430: 56 43 20 9A 00 49 0C D2 28 3A 20 20 20 20 20 20 |VC ..I..(: |
00000440: 20 4A 4D 50 20 45 52 52 B0 00 6F 0C DC 28 3B AB | JMP ERR..o..(;.|
00000450: AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB |................|
00000460: AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB 00 |................|
00000470: 8B 0C E6 28 9A 20 20 20 20 53 54 41 20 48 49 4C |...(. STA HIL|
00000480: 31 3A 53 54 41 20 4D 45 52 4B 31 00 AC 0C F0 28 |1:STA MERK1....(|
00000490: 3A 20 20 20 20 20 20 20 4A 53 52 20 49 45 43 49 |: JSR IECI|
000004A0: 4E 3A 53 54 41 20 48 49 4C 31 AA 31 00 C4 0C FA |N:STA HIL1.1....|
000004B0: 28 3A 20 20 20 20 20 20 20 53 54 41 20 4D 45 52 |(: STA MER|
000004C0: 4B 31 AA 31 00 EA 0C 04 29 3B AB AB AB AB AB AB |K1.1....);......|
000004D0: AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB |................|
000004E0: AB AB AB AB AB AB AB AB AB AB 00 FA 0C 0E 29 56 |..............)V|
000004F0: 45 52 53 43 48 31 20 53 45 49 00 1B 0D 18 29 3A |ERSCH1 SEI....):|
00000500: 20 20 20 20 20 20 20 4C 44 58 20 23 35 33 3A 53 | LDX #53:S|
00000510: 54 58 20 31 3A 4C 44 59 20 23 30 00 3D 0D 22 29 |TX 1:LDY #0.=.")|
00000520: 3A 20 20 20 20 20 20 20 4C 44 41 20 28 48 49 4C |: LDA (HIL|
00000530: 31 29 2C 59 3A 53 54 41 20 48 49 4C 32 00 57 0D |1),Y:STA HIL2.W.|
00000540: 2C 29 3A 20 20 20 20 20 20 20 4C 44 58 20 23 35 |,): LDX #5|
00000550: 35 3A 53 54 58 20 31 00 67 0D 36 29 3A 20 20 20 |5:STX 1.g.6): |
00000560: 20 20 20 20 43 4C 49 00 86 0D 40 29 3A 20 20 20 | CLI...@): |
00000570: 20 20 20 20 4A 53 52 20 49 45 43 49 4E 3A 53 54 | JSR IECIN:ST|
00000580: 41 20 48 49 4C 33 00 A5 0D 4A 29 3A 20 20 20 20 |A HIL3...J): |
00000590: 20 20 20 42 49 54 20 53 54 41 54 55 53 3A 42 56 | BIT STATUS:BV|
000005A0: 53 20 45 4F 44 00 C1 0D 54 29 3A 20 20 20 20 20 |S EOD...T): |
000005B0: 20 20 43 4D 50 20 48 49 4C 32 3A 42 45 51 20 4F | CMP HIL2:BEQ O|
000005C0: 4B 00 E7 0D 5E 29 3B AB AB AB AB AB AB AB AB AB |K...^);.........|
000005D0: AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB |................|
000005E0: AB AB AB AB AB AB AB 00 06 0E 68 29 3A 20 20 20 |..........h): |
000005F0: 20 20 20 20 4C 44 41 20 23 31 33 3A 4A 53 52 20 | LDA #13:JSR |
00000600: 42 41 53 4F 55 54 00 24 0E 72 29 3A 20 20 20 20 |BASOUT.$.r): |
00000610: 20 20 20 4C 44 41 20 23 35 3A 53 54 41 20 53 50 | LDA #5:STA SP|
00000620: 41 4C 54 45 00 3B 0E 7C 29 3A 20 20 20 20 20 20 |ALTE.;.|): |
00000630: 20 4A 53 52 20 53 45 54 43 55 52 00 5B 0E 86 29 | JSR SETCUR.[..)|
00000640: 3A 20 20 20 20 20 20 20 4C 44 58 20 48 49 4C 31 |: LDX HIL1|
00000650: 3A 4C 44 41 20 48 49 4C 31 AA 31 00 72 0E 90 29 |:LDA HIL1.1.r..)|
00000660: 3A 20 20 20 20 20 20 20 4A 53 52 20 5A 41 4C 4F |: JSR ZALO|
00000670: 55 54 00 91 0E 9A 29 3A 20 20 20 20 20 20 20 4C |UT....): L|
00000680: 44 41 20 23 32 31 3A 53 54 41 20 53 50 41 4C 54 |DA #21:STA SPALT|
00000690: 45 00 A8 0E A4 29 3A 20 20 20 20 20 20 20 4A 53 |E....): JS|
000006A0: 52 20 53 45 54 43 55 52 00 C4 0E AE 29 3A 20 20 |R SETCUR....): |
000006B0: 20 20 20 20 20 4C 44 58 20 48 49 4C 32 3A 4C 44 | LDX HIL2:LD|
000006C0: 41 20 23 30 00 DB 0E B8 29 3A 20 20 20 20 20 20 |A #0....): |
000006D0: 20 4A 53 52 20 5A 41 4C 4F 55 54 00 FA 0E C2 29 | JSR ZALOUT....)|
000006E0: 3A 20 20 20 20 20 20 20 4C 44 41 20 23 33 33 3A |: LDA #33:|
000006F0: 53 54 41 20 53 50 41 4C 54 45 00 11 0F CC 29 3A |STA SPALTE....):|
00000700: 20 20 20 20 20 20 20 4A 53 52 20 53 45 54 43 55 | JSR SETCU|
00000710: 52 00 2D 0F D6 29 3A 20 20 20 20 20 20 20 4C 44 |R.-..): LD|
00000720: 58 20 48 49 4C 33 3A 4C 44 41 20 23 30 00 44 0F |X HIL3:LDA #0.D.|
00000730: E0 29 3A 20 20 20 20 20 20 20 4A 53 52 20 5A 41 |.): JSR ZA|
00000740: 4C 4F 55 54 00 65 0F EA 29 4F 4B 20 20 20 20 20 |LOUT.e..)OK |
00000750: 20 49 4E 43 20 48 49 4C 31 3A 42 4E 45 20 56 45 | INC HIL1:BNE VE|
00000760: 52 53 43 48 31 00 7C 0F F4 29 3A 20 20 20 20 20 |RSCH1.|..): |
00000770: 20 20 49 4E 43 20 48 49 4C 31 AA 31 00 94 0F FE | INC HIL1.1....|
00000780: 29 3A 20 20 20 20 20 20 20 4A 4D 50 20 56 45 52 |): JMP VER|
00000790: 53 43 48 31 00 BA 0F 08 2A 3B AB AB AB AB AB AB |SCH1....*;......|
000007A0: AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB |................|
000007B0: AB AB AB AB AB AB AB AB AB AB 00 D7 0F 12 2A 45 |..............*E|
000007C0: 4F 44 20 20 20 20 20 4C 44 41 20 5A 45 49 4C 45 |OD LDA ZEILE|
000007D0: 3A 43 4D 50 20 23 36 00 F8 0F 1C 2A 3A 20 20 20 |:CMP #6....*: |
000007E0: 20 20 20 20 42 4E 45 20 45 4F 44 32 3A 4C 44 41 | BNE EOD2:LDA|
000007F0: 20 23 B3 54 45 58 54 34 00 1B 10 26 2A 3A 20 20 | #.TEXT4...&*: |
00000800: 20 20 20 20 20 4C 44 59 20 23 B1 54 45 58 54 34 | LDY #.TEXT4|
00000810: 3A 4A 53 52 20 53 54 52 4F 55 54 00 3F 10 30 2A |:JSR STROUT.?.0*|
00000820: 45 4F 44 32 20 20 20 20 4C 44 41 20 23 B3 54 45 |EOD2 LDA #.TE|
00000830: 58 54 32 3A 4C 44 59 20 23 B1 54 45 58 54 32 00 |XT2:LDY #.TEXT2.|
00000840: 56 10 3A 2A 3A 20 20 20 20 20 20 20 4A 53 52 20 |V.:*: JSR |
00000850: 53 54 52 4F 55 54 00 74 10 44 2A 3A 20 20 20 20 |STROUT.t.D*: |
00000860: 20 20 20 4C 44 41 20 23 38 3A 53 54 41 20 53 50 | LDA #8:STA SP|
00000870: 41 4C 54 45 00 8B 10 4E 2A 3A 20 20 20 20 20 20 |ALTE...N*: |
00000880: 20 4A 53 52 20 53 45 54 43 55 52 00 AD 10 58 2A | JSR SETCUR...X*|
00000890: 3A 20 20 20 20 20 20 20 4C 44 58 20 4D 45 52 4B |: LDX MERK|
000008A0: 31 3A 4C 44 41 20 4D 45 52 4B 31 AA 31 00 C4 10 |1:LDA MERK1.1...|
000008B0: 62 2A 3A 20 20 20 20 20 20 20 4A 53 52 20 5A 41 |b*: JSR ZA|
000008C0: 4C 4F 55 54 00 E3 10 6C 2A 3A 20 20 20 20 20 20 |LOUT...l*: |
000008D0: 20 4C 44 41 20 23 32 37 3A 53 54 41 20 53 50 41 | LDA #27:STA SPA|
000008E0: 4C 54 45 00 FA 10 76 2A 3A 20 20 20 20 20 20 20 |LTE...v*: |
000008F0: 4A 53 52 20 53 45 54 43 55 52 00 1A 11 80 2A 3A |JSR SETCUR....*:|
00000900: 20 20 20 20 20 20 20 4C 44 58 20 48 49 4C 31 3A | LDX HIL1:|
00000910: 4C 44 41 20 48 49 4C 31 AA 31 00 31 11 8A 2A 3A |LDA HIL1.1.1..*:|
00000920: 20 20 20 20 20 20 20 4A 53 52 20 5A 41 4C 4F 55 | JSR ZALOU|
00000930: 54 00 4F 11 94 2A 45 4F 44 33 20 20 20 20 4C 44 |T.O..*EOD3 LD|
00000940: 41 20 23 38 3A 4A 53 52 20 55 4E 54 41 4C 4B 00 |A #8:JSR UNTALK.|
00000950: 62 11 9E 2A 3A 20 20 20 20 20 20 20 4C 44 41 20 |b..*: LDA |
00000960: 23 31 00 74 11 A8 2A 3A 20 20 20 20 20 20 20 4A |#1.t..*: J|
00000970: 4D 50 20 A0 00 9A 11 B2 2A 3B AB AB AB AB AB AB |MP .....*;......|
00000980: AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB |................|
00000990: AB AB AB AB AB AB AB AB AB AB 00 BD 11 BC 2A 45 |..............*E|
000009A0: 52 52 B0 20 20 20 4C 44 41 20 23 B3 54 45 58 54 |RR. LDA #.TEXT|
000009B0: 33 3A 4C 44 59 20 23 B1 54 45 58 54 33 00 D4 11 |3:LDY #.TEXT3...|
000009C0: C6 2A 3A 20 20 20 20 20 20 20 4A 53 52 20 53 54 |.*: JSR ST|
000009D0: 52 4F 55 54 00 E9 11 D0 2A 3A 20 20 20 20 20 20 |ROUT....*: |
000009E0: 20 4A 4D 50 20 45 4F 44 33 00 0F 12 DA 2A 3B AB | JMP EOD3....*;.|
000009F0: AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB |................|
00000A00: AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB 00 |................|
00000A10: 2A 12 E4 2A 54 45 58 54 31 20 2E 42 59 54 20 31 |*..*TEXT1 .BYT 1|
00000A20: 34 37 2C 30 31 33 2C 30 31 33 00 4E 12 EE 2A 2E |47,013,013.N..*.|
00000A30: C6 20 22 20 20 20 20 20 20 20 20 20 20 20 56 45 |. " VE|
00000A40: 52 49 46 59 2D 4D 41 53 54 45 52 20 56 22 00 5B |RIFY-MASTER V".[|
00000A50: 12 F8 2A 2E C6 20 22 31 2E 30 22 00 68 12 02 2B |..*.. "1.0".h..+|
00000A60: 2E 42 59 54 20 30 31 33 00 8C 12 0C 2B 2E C6 20 |.BYT 013....+.. |
00000A70: 22 20 20 20 20 20 20 20 20 20 20 20 2D 2D 2D 2D |" ----|
00000A80: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 22 00 99 12 16 |-----------"....|
00000A90: 2B 2E C6 20 22 2D 2D 2D 22 00 AA 12 20 2B 2E 42 |+.. "---"... +.B|
00000AA0: 59 54 20 30 31 33 2C 30 31 33 00 C4 12 2A 2B 2E |YT 013,013...*+.|
00000AB0: C6 20 22 20 46 45 48 4C 45 52 41 44 52 45 53 53 |. " FEHLERADRESS|
00000AC0: 45 3A 20 22 00 E5 12 34 2B 2E C6 20 22 53 50 45 |E: "...4+.. "SPE|
00000AD0: 49 43 48 45 52 57 45 52 54 3A 20 46 49 4C 45 57 |ICHERWERT: FILEW|
00000AE0: 45 52 54 3A 22 00 F2 12 3E 2B 2E 42 59 54 20 30 |ERT:"...>+.BYT 0|
00000AF0: 31 33 00 16 13 48 2B 2E C6 20 22 20 2D 2D 2D 2D |13...H+.. " ----|
00000B00: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000B10: 2D 2D 2D 2D 2D 22 00 2D 13 52 2B 2E C6 20 22 2D |-----".-.R+.. "-|
00000B20: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 22 00 3A 13 |------------".:.|
00000B30: 5C 2B 2E 42 59 54 20 30 30 30 00 60 13 66 2B 3B |\+.BYT 000.`.f+;|
00000B40: AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB |................|
00000B50: AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB |................|
00000B60: 00 7B 13 70 2B 54 45 58 54 32 20 2E 42 59 54 20 |.{.p+TEXT2 .BYT |
00000B70: 30 31 33 2C 30 31 33 2C 30 31 33 00 98 13 7A 2B |013,013,013...z+|
00000B80: 2E C6 20 22 20 20 20 20 20 53 54 41 52 54 41 44 |.. " STARTAD|
00000B90: 52 45 53 53 45 3A 20 22 00 B2 13 84 2B 2E C6 20 |RESSE: "....+.. |
00000BA0: 22 20 20 20 20 20 45 4E 44 41 44 52 45 53 53 45 |" ENDADRESSE|
00000BB0: 3A 22 00 C7 13 8E 2B 2E 42 59 54 20 30 31 33 2C |:"....+.BYT 013,|
00000BC0: 30 31 33 2C 30 30 30 00 ED 13 98 2B 3B AB AB AB |013,000....+;...|
00000BD0: AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB |................|
00000BE0: AB AB AB AB AB AB AB AB AB AB AB AB AB 00 08 14 |................|
00000BF0: A2 2B 54 45 58 54 33 20 2E 42 59 54 20 30 31 33 |.+TEXT3 .BYT 013|
00000C00: 2C 30 31 33 2C 30 31 33 00 2C 14 AC 2B 2E C6 20 |,013,013.,..+.. |
00000C10: 22 20 20 20 20 20 45 52 52 4F 52 20 2D 20 50 4C |" ERROR - PL|
00000C20: 45 41 53 45 20 43 48 45 43 4B 20 22 00 3F 14 B6 |EASE CHECK ".?..|
00000C30: 2B 2E C6 20 22 59 4F 55 52 20 44 49 53 4B 22 00 |+.. "YOUR DISK".|
00000C40: 50 14 C0 2B 2E 42 59 54 20 30 31 33 2C 30 30 30 |P..+.BYT 013,000|
00000C50: 00 76 14 CA 2B 3B AB AB AB AB AB AB AB AB AB AB |.v..+;..........|
00000C60: AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB |................|
00000C70: AB AB AB AB AB AB 00 8D 14 D4 2B 54 45 58 54 34 |..........+TEXT4|
00000C80: 20 2E 42 59 54 20 30 31 33 2C 30 31 33 00 AC 14 | .BYT 013,013...|
00000C90: DE 2B 2E C6 20 22 20 20 20 20 20 20 20 20 20 20 |.+.. " |
00000CA0: 4B 45 49 4E 20 56 45 52 49 46 59 22 00 C0 14 E8 |KEIN VERIFY"....|
00000CB0: 2B 2E C6 20 22 20 45 52 52 4F 52 20 21 21 21 22 |+.. " ERROR !!!"|
00000CC0: 00 D1 14 F2 2B 2E 42 59 54 20 30 31 33 2C 30 30 |....+.BYT 013,00|
00000CD0: 30 00 F7 14 FC 2B 3B AB AB AB AB AB AB AB AB AB |0....+;.........|
00000CE0: AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB |................|
00000CF0: AB AB AB AB AB AB AB 00 0E 15 06 2C 4D 45 52 4B |...........,MERK|
00000D00: 31 20 2E 42 59 54 20 30 30 30 2C 30 30 30 00 34 |1 .BYT 000,000.4|
00000D10: 15 10 2C 3B AB AB AB AB AB AB AB AB AB AB AB AB |..,;............|
00000D20: AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB |................|
00000D30: AB AB AB AB 00 3B 15 1A 2C 2E 80 00 00 00 |.....;..,..... |
..%..'.******************************.I.
.'.*** VERIFY-MASTER V1.0 ***.M.$'.*
** (C) 1989 BY ***....'.***
MATTHIAS STRECKER ***...8'.***
ZUM ANGER 8 ***.Y.B'.*** 3430 W
ITZENHAUSEN ***...L'.*** TEL.: 0554
2/1632 ***.!.V'.*********************
*********.-.`'.9.4096.9.J'.OPT OO.F.T'..
49152.Y.~'HIL1 . $008B.L..'HIL2 . $
0002...'HIL3 . $008D....'STATUS . $00
90....'SPALTE . $00D3....'ZEILE . $00D6
.K..'STROUT . $AB1E...D'CHKCOM . $AEFD..
.N'ZALOUT . $BDCD...X'SETNAM . $E257....
'SETCUR . $E510.(..'.SCR . $E544.;..'FIL
PAR . $FFBA.N..(FILNAM . $FFBD.^..(. .
$FFC0.M..( . $FFC3....(IECIN . $FFA5
...((TALK . $FFB4...2(UNTALK . $FFAB..
.<(SECTLK . $FF96.L.F(BASOUT . $FFD2...P
(;...................................Z(E
INSPR JSR CHKCOM.'.D(: LDA #0:STA
STATUS.J.N(: LDA #1:LDX #8:LDY #$
62.A.X(: JSR FILPAR.X..(: JS
R SETNAM....(: LDA #.TEXT1:LDY #.T
EXT1....(: JSR STROUT.E. (:
JSR .....(: LDA #8:JSR TALK....(:
LDA #$62:JSR SECTLK."..(: JS
R IECIN:BIT STATUS.4.H(: BVC ..I.R
(: JMP ERR..O..(;.................
...................(. STA HIL1:STA ME
RK1....(: JSR IECIN:STA HIL1.1.D..
(: STA MERK1.1....);..............
......................)VERSCH1 SEI....):
LDX #53:STX 1:LDY #0.=."):
LDA (HIL1),Y:STA HIL2.W.,): LDX #5
5:STX 1.G.6): CLI...@): JSR
IECIN:STA HIL3...J): BIT STATUS:BV
S EOD.A.T): CMP HIL2:BEQ OK...^);.
..................................H):
LDA #13:JSR BASOUT.$.R): LDA #
5:STA SPALTE.;.|): JSR SETCUR.[..)
: LDX HIL1:LDA HIL1.1.R..):
JSR ZALOUT....): LDA #21:STA SPALT
E....): JSR SETCUR.D..): LDX
HIL2:LDA #0....): JSR ZALOUT...B)
: LDA #33:STA SPALTE...L): J
SR SETCUR.-.V): LDX HIL3:LDA #0.D.
.): JSR ZALOUT.E..)OK INC HIL
1:BNE VERSCH1.|..): INC HIL1.1....
): JMP VERSCH1....*;..............
...................W..*EOD LDA ZEILE
:CMP #6....*: BNE EOD2:LDA #.TEXT4
...&*: LDY #.TEXT4:JSR STROUT.?.0*
EOD2 LDA #.TEXT2:LDY #.TEXT2.V.:*:
JSR STROUT.T.D*: LDA #8:STA SP
ALTE...N*: JSR SETCUR...X*:
LDX MERK1:LDA MERK1.1.D.B*: JSR ZA
LOUT...L*: LDA #27:STA SPALTE...V*
: JSR SETCUR....*: LDX HIL1:
LDA HIL1.1.1..*: JSR ZALOUT.O..*EO
D3 LDA #8:JSR UNTALK.B..*: LDA
#1.T..*: JMP ....*;..............
......................*ERR. LDA #.TEXT
3:LDY #.TEXT3.T.F*: JSR STROUT...P
*: JMP EOD3...Z*;.................
................*..*TEXT1 .BYT 147,013,0
13.N..*.F " VERIFY-MASTER V".[
..*.F "1.0".H..+.BYT 013....+.F "
---------------"....+.F "---"... +.B
YT 013,013.D.*+.F " FEHLERADRESSE: "...4
+.F "SPEICHERWERT: FILEWERT:"...>+.BYT 0
13...H+.F " -------------------------".-
.R+.F "-------------".:.\+.BYT 000.`.F+;
.................................{.P+TEX
T2 .BYT 013,013,013...Z+.F " STARTAD
RESSE: "....+.F " ENDADRESSE:".G..+.
BYT 013,013,000....+;...................
.................+TEXT3 .BYT 013,013,013
.,..+.F " ERROR - PLEASE CHECK ".?..
+.F "YOUR DISK".P..+.BYT 013,000.V.J+;..
.................................T+TEXT4
.BYT 013,013....+.F " KEIN VER
IFY"....+.F " ERROR !!!".Q..+.BYT 013,00
0....+;.................................
...,MERK1 .BYT 000,000.4..,;............
.....................;..,.....
> CLICK IMAGE PREVIEW FOR FULL MODAL