HARDCOPY80.SRC
FILE INFORMATION
FILENAME(S): HARDCOPY80.SRC
FILE TYPE(S): PRG
FILE SIZE: 2.9K
FIRST SEEN: 2025-11-02 16:39:38
APPEARS ON: 1 disk(s)
FILE HASH
ac5a13c3379d1459c76117da077341982498c5d43f060e1c3d87faee9e7f5827
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| 128 | HARDCOPY80.SRC | PRG | Treasure Chest - Plattfuss | 4 | 3 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 61 5C 8A 5C 64 00 2E 90 24 31 33 30 30 3B 20 4F |a\.\d...$1300; O| 00000010: 42 4A 45 4B 54 43 4F 44 45 20 41 42 20 24 31 33 |BJEKTCODE AB $13| 00000020: 30 30 20 41 42 4C 45 47 45 4E 00 90 5C 6E 00 3B |00 ABLEGEN..\n.;| 00000030: 00 BE 5C 78 00 3B 20 2A 2A 2A 2A 2A 2A 2A 2A 2A |..\x.; *********| 00000040: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000050: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 EC |**************..| 00000060: 5C 82 00 3B 20 2A 20 20 20 20 20 20 20 20 20 20 |\..; * | 00000070: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000080: 20 20 20 20 20 20 20 20 20 20 20 2A 00 1A 5D 8C | *..].| 00000090: 00 3B 20 2A 20 20 20 48 20 41 20 52 20 44 20 43 |.; * H A R D C| 000000A0: 20 4F 20 50 20 59 20 2D 20 52 20 4F 20 55 20 54 | O P Y - R O U T| 000000B0: 20 49 20 4E 20 45 20 20 20 2A 00 48 5D 96 00 3B | I N E *.H]..;| 000000C0: 20 2A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | * | 000000D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000000E0: 20 20 20 20 20 20 20 2A 00 76 5D A0 00 3B 20 2A | *.v]..; *| 000000F0: 20 20 20 20 56 4F 4D 20 38 30 2D 5A 45 49 43 48 | VOM 80-ZEICH| 00000100: 45 4E 2D 54 45 58 54 42 49 4C 44 53 43 48 49 52 |EN-TEXTBILDSCHIR| 00000110: 4D 20 20 20 20 2A 00 A4 5D AA 00 3B 20 2A 20 20 |M *..]..; * | 00000120: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000130: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000140: 20 20 20 2A 00 D2 5D B4 00 3B 20 2A 2A 2A 2A 2A | *..]..; *****| 00000150: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000160: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000170: 2A 2A 00 00 5E BE 00 3B 20 2A 20 20 20 20 20 20 |**..^..; * | 00000180: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000190: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2A | *| 000001A0: 00 2E 5E C8 00 3B 20 2A 20 20 50 52 4F 47 52 41 |..^..; * PROGRA| 000001B0: 4D 4D 49 45 52 54 20 56 4F 4E 3A 20 46 4C 4F 52 |MMIERT VON: FLOR| 000001C0: 49 41 4E 20 4D 55 45 4C 4C 45 52 20 20 2A 00 5C |IAN MUELLER *.\| 000001D0: 5E D2 00 3B 20 2A 20 20 20 20 20 20 20 20 20 20 |^..; * | 000001E0: 20 20 20 20 20 4D 49 54 3A 20 54 4F 50 2D 41 53 | MIT: TOP-AS| 000001F0: 53 20 20 20 20 20 20 20 20 20 20 2A 00 8A 5E DC |S *..^.| 00000200: 00 3B 20 2A 20 20 20 20 20 20 20 20 20 20 20 20 |.; * | 00000210: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000220: 20 20 20 20 20 20 20 20 20 2A 00 B8 5E E6 00 3B | *..^..;| 00000230: 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A | ***************| 00000240: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000250: 2A 2A 2A 2A 2A 2A 2A 2A 00 BE 5E F0 00 3B 00 D8 |********..^..;..| 00000260: 5E FA 00 3B 20 53 59 4D 42 4F 4C 44 45 46 49 4E |^..; SYMBOLDEFIN| 00000270: 49 54 49 4F 4E 45 4E 3A 00 DE 5E 04 01 3B 00 07 |ITIONEN:..^..;..| 00000280: 5F 0E 01 2E 8F 53 45 54 50 41 52 3D 24 46 46 42 |_....SETPAR=$FFB| 00000290: 41 3B 20 46 49 4C 45 50 41 52 41 4D 45 54 45 52 |A; FILEPARAMETER| 000002A0: 20 53 45 54 5A 45 4E 00 2C 5F 18 01 2E 8F 53 45 | SETZEN.,_....SE| 000002B0: 54 4E 41 4D 3D 24 46 46 42 44 3B 20 46 49 4C 45 |TNAM=$FFBD; FILE| 000002C0: 4E 41 4D 45 4E 20 53 45 54 5A 45 4E 00 4B 5F 22 |NAMEN SETZEN.K_"| 000002D0: 01 2E 8F 4F 50 45 4E 3D 24 46 46 43 30 3B 20 46 |...OPEN=$FFC0; F| 000002E0: 49 4C 45 20 4F 45 46 46 4E 45 4E 00 6E 5F 2C 01 |ILE OEFFNEN.n_,.| 000002F0: 2E 8F 43 4C 4F 53 45 3D 24 46 46 43 33 3B 20 46 |..CLOSE=$FFC3; F| 00000300: 49 4C 45 20 53 43 48 4C 49 45 53 53 45 4E 00 93 |ILE SCHLIESSEN..| 00000310: 5F 36 01 2E 8F 42 41 53 4F 55 54 3D 24 46 46 44 |_6...BASOUT=$FFD| 00000320: 32 3B 20 5A 45 49 43 48 45 4E 20 41 55 53 47 45 |2; ZEICHEN AUSGE| 00000330: 42 45 4E 00 C0 5F 40 01 2E 8F 43 4B 4F 55 54 3D |BEN.._@...CKOUT=| 00000340: 24 46 46 43 39 3B 20 41 55 53 47 41 42 45 20 41 |$FFC9; AUSGABE A| 00000350: 55 46 20 46 49 4C 45 20 55 4D 4C 45 4E 4B 45 4E |UF FILE UMLENKEN| 00000360: 00 E9 5F 4A 01 2E 8F 43 4C 52 43 48 3D 24 46 46 |.._J...CLRCH=$FF| 00000370: 43 43 3B 20 41 55 53 47 41 42 45 20 57 49 45 44 |CC; AUSGABE WIED| 00000380: 45 52 20 4E 4F 52 4D 41 4C 00 EF 5F 54 01 3B 00 |ER NORMAL.._T.;.| 00000390: 17 60 5E 01 2E 8F 53 45 54 56 44 43 3D 24 43 44 |.`^...SETVDC=$CD| 000003A0: 43 43 3B 20 56 44 43 2D 52 45 47 49 53 54 45 52 |CC; VDC-REGISTER| 000003B0: 20 53 45 54 5A 45 4E 00 41 60 68 01 2E 8F 47 45 | SETZEN.A`h...GE| 000003C0: 54 56 44 43 3D 24 43 44 44 41 3B 20 56 44 43 2D |TVDC=$CDDA; VDC-| 000003D0: 52 45 47 49 53 54 45 52 20 41 55 53 4C 45 53 45 |REGISTER AUSLESE| 000003E0: 4E 00 47 60 72 01 3B 00 4D 60 7C 01 3B 00 73 60 |N.G`r.;.M`|.;.s`| 000003F0: 86 01 2E 8F 5A 45 49 47 45 52 3D 24 46 42 3B 20 |....ZEIGER=$FB; | 00000400: 5A 45 49 47 45 52 20 41 55 46 20 41 4B 54 55 45 |ZEIGER AUF AKTUE| 00000410: 4C 4C 45 00 97 60 90 01 2E 8F 5A 45 49 47 45 52 |LLE..`....ZEIGER| 00000420: 4C 4F 57 3D 5A 45 49 47 45 52 3B 20 50 4F 53 49 |LOW=ZEIGER; POSI| 00000430: 54 49 4F 4E 20 49 4D 00 BA 60 9A 01 2E 8F 5A 45 |TION IM..`....ZE| 00000440: 49 47 45 52 48 49 47 48 3D 5A 45 49 47 45 52 2B |IGERHIGH=ZEIGER+| 00000450: 31 3B 20 56 44 43 2D 52 41 4D 00 C0 60 A4 01 3B |1; VDC-RAM..`..;| 00000460: 00 C6 60 AE 01 3B 00 CC 60 B8 01 3B 00 E0 60 C2 |..`..;..`..;..`.| 00000470: 01 20 81 23 30 3B 20 42 45 49 20 24 30 30 30 30 |. .#0; BEI $0000| 00000480: 00 FC 60 CC 01 20 82 5A 45 49 47 45 52 4C 4F 57 |..`.. .ZEIGERLOW| 00000490: 3B 20 49 4D 20 56 44 43 2D 52 41 4D 00 17 61 D6 |; IM VDC-RAM..a.| 000004A0: 01 20 82 5A 45 49 47 45 52 48 49 47 48 3B 20 42 |. .ZEIGERHIGH; B| 000004B0: 45 47 49 4E 4E 45 4E 00 1D 61 E0 01 3B 00 34 61 |EGINNEN..a..;.4a| 000004C0: EA 01 20 81 23 34 3B 20 46 49 4C 45 4E 55 4D 4D |.. .#4; FILENUMM| 000004D0: 45 52 20 34 00 51 61 F4 01 20 99 3B 20 47 45 52 |ER 4.Qa.. .; GER| 000004E0: 41 45 54 45 4E 55 4D 4D 45 52 20 41 55 43 48 20 |AETENUMMER AUCH | 000004F0: 34 00 6E 61 FE 01 20 84 23 30 3B 20 53 45 4B 55 |4.na.. .#0; SEKU| 00000500: 4E 44 41 45 52 41 44 52 45 53 53 45 20 30 00 91 |NDAERADRESSE 0..| 00000510: 61 08 02 20 97 53 45 54 50 41 52 3B 20 46 49 4C |a.. .SETPAR; FIL| 00000520: 45 50 41 52 41 4D 45 54 45 52 20 53 45 54 5A 45 |EPARAMETER SETZE| 00000530: 4E 00 97 61 12 02 3B 00 AC 61 1C 02 20 81 23 30 |N..a..;..a.. .#0| 00000540: 3B 20 4C 41 45 4E 47 45 20 3D 20 30 00 CD 61 26 |; LAENGE = 0..a&| 00000550: 02 20 97 53 45 54 4E 41 4D 3B 20 41 4C 53 4F 20 |. .SETNAM; ALSO | 00000560: 4B 45 49 4E 20 46 49 4C 45 4E 41 4D 45 00 D3 61 |KEIN FILENAME..a| 00000570: 30 02 3B 00 EC 61 3A 02 20 97 4F 50 45 4E 3B 20 |0.;..a:. .OPEN; | 00000580: 46 49 4C 45 20 4F 45 46 46 4E 45 4E 00 F2 61 44 |FILE OEFFNEN..aD| 00000590: 02 3B 00 0D 62 4E 02 20 83 23 34 3B 20 41 55 53 |.;..bN. .#4; AUS| 000005A0: 47 41 42 45 20 41 55 46 20 46 49 4C 45 00 2C 62 |GABE AUF FILE.,b| 000005B0: 58 02 20 97 43 4B 4F 55 54 3B 20 4E 55 4D 4D 45 |X. .CKOUT; NUMME| 000005C0: 52 20 34 20 55 4D 4C 45 4E 4B 45 4E 00 32 62 62 |R 4 UMLENKEN.2bb| 000005D0: 02 3B 00 56 62 6C 02 53 43 48 4C 45 49 46 45 20 |.;.Vbl.SCHLEIFE | 000005E0: 81 5A 45 49 47 45 52 48 49 47 48 3B 20 48 49 47 |.ZEIGERHIGH; HIG| 000005F0: 48 2D 42 59 54 45 00 74 62 76 02 20 83 23 31 38 |H-BYTE.tbv. .#18| 00000600: 3B 20 49 4E 20 56 44 43 2D 52 45 47 49 53 54 45 |; IN VDC-REGISTE| 00000610: 52 20 31 38 00 8C 62 80 02 20 97 53 45 54 56 44 |R 18..b.. .SETVD| 00000620: 43 3B 20 53 43 48 52 45 49 42 45 4E 00 A6 62 8A |C; SCHREIBEN..b.| 00000630: 02 20 81 5A 45 49 47 45 52 4C 4F 57 3B 20 4C 4F |. .ZEIGERLOW; LO| 00000640: 57 2D 42 59 54 45 00 C4 62 94 02 20 83 23 31 39 |W-BYTE..b.. .#19| 00000650: 3B 20 49 4E 20 56 44 43 2D 52 45 47 49 53 54 45 |; IN VDC-REGISTE| 00000660: 52 20 31 39 00 F3 62 9E 02 20 97 53 45 54 56 44 |R 19..b.. .SETVD| 00000670: 43 3B 20 28 2A 2A 2A 20 53 49 45 48 45 20 42 45 |C; (*** SIEHE BE| 00000680: 53 43 48 52 45 49 42 55 4E 47 20 21 21 21 20 2A |SCHREIBUNG !!! *| 00000690: 2A 2A 29 00 0E 63 A8 02 20 83 23 33 31 3B 20 56 |**)..c.. .#31; V| 000006A0: 44 43 2D 52 45 47 49 53 54 45 52 20 33 31 00 25 |DC-REGISTER 31.%| 000006B0: 63 B2 02 20 97 47 45 54 56 44 43 3B 20 41 55 53 |c.. .GETVDC; AUS| 000006C0: 4C 45 53 45 4E 00 2B 63 BC 02 3B 00 58 63 C6 02 |LESEN.+c..;.Xc..| 000006D0: 55 4D 57 41 4E 44 4C 55 4E 47 20 87 23 25 30 31 |UMWANDLUNG .#%01| 000006E0: 31 31 31 31 31 31 3B 20 42 49 54 20 37 20 41 55 |111111; BIT 7 AU| 000006F0: 53 42 4C 45 4E 44 45 4E 00 7A 63 D0 02 20 99 3B |SBLENDEN.zc.. .;| 00000700: 20 57 45 52 54 20 49 4E 20 58 2D 52 45 47 49 53 | WERT IN X-REGIS| 00000710: 54 45 52 20 4D 45 52 4B 45 4E 00 80 63 DA 02 3B |TER MERKEN..c..;| 00000720: 00 A4 63 E4 02 20 A6 3B 20 43 41 52 52 59 20 56 |..c.. .; CARRY V| 00000730: 4F 52 20 41 44 44 49 54 49 4F 4E 20 4C 4F 45 53 |OR ADDITION LOES| 00000740: 43 48 45 4E 00 BB 63 EE 02 20 86 23 36 34 3B 20 |CHEN..c.. .#64; | 00000750: 36 34 20 41 44 44 49 45 52 45 4E 00 C1 63 F8 02 |64 ADDIEREN..c..| 00000760: 3B 00 DA 63 02 03 20 85 23 31 32 38 3B 20 43 4F |;..c.. .#128; CO| 00000770: 44 45 20 3C 20 31 32 38 20 3F 00 0A 64 0C 03 20 |DE < 128 ?..d.. | 00000780: B6 55 4D 57 41 4E 44 4C 55 4E 47 31 3B 20 4E 45 |.UMWANDLUNG1; NE| 00000790: 49 4E 2C 20 44 41 4E 4E 20 4E 49 43 48 54 20 36 |IN, DANN NICHT 6| 000007A0: 34 20 41 42 5A 49 45 48 45 4E 00 22 64 16 03 20 |4 ABZIEHEN."d.. | 000007B0: 85 23 39 36 3B 20 43 4F 44 45 20 3E 3D 20 39 36 |.#96; CODE >= 96| 000007C0: 20 3F 00 52 64 20 03 20 B5 55 4D 57 41 4E 44 4C | ?.Rd . .UMWANDL| 000007D0: 55 4E 47 31 3B 20 4E 45 49 4E 2C 20 44 41 4E 4E |UNG1; NEIN, DANN| 000007E0: 20 4E 49 43 48 54 20 36 34 20 41 42 5A 49 45 48 | NICHT 64 ABZIEH| 000007F0: 45 4E 00 81 64 2A 03 20 92 23 36 34 3B 20 36 34 |EN..d*. .#64; 64| 00000800: 20 41 42 5A 49 45 48 45 4E 20 28 42 45 49 20 43 | ABZIEHEN (BEI C| 00000810: 4F 44 45 3C 31 32 38 20 55 4E 44 20 3E 3D 39 36 |ODE<128 UND >=96| 00000820: 29 00 87 64 34 03 3B 00 B8 64 3E 03 55 4D 57 41 |)..d4.;..d>.UMWA| 00000830: 4E 44 4C 55 4E 47 31 20 8B 23 39 36 3B 20 41 4C |NDLUNG1 .#96; AL| 00000840: 54 45 52 20 57 45 52 54 20 28 53 2E 20 37 32 30 |TER WERT (S. 720| 00000850: 29 20 3C 20 39 36 20 3F 00 EB 64 48 03 20 B6 55 |) < 96 ?..dH. .U| 00000860: 4D 57 41 4E 44 4C 55 4E 47 45 4E 44 45 3B 20 4E |MWANDLUNGENDE; N| 00000870: 45 49 4E 2C 20 44 41 4E 4E 20 4E 49 43 48 54 20 |EIN, DANN NICHT | 00000880: 33 32 20 41 42 5A 49 45 48 45 4E 00 11 65 52 03 |32 ABZIEHEN..eR.| 00000890: 20 8B 23 36 34 3B 20 41 4C 54 45 52 20 57 45 52 | .#64; ALTER WER| 000008A0: 54 20 28 53 2E 20 37 32 30 29 20 3E 3D 36 34 20 |T (S. 720) >=64 | 000008B0: 3F 00 44 65 5C 03 20 B5 55 4D 57 41 4E 44 4C 55 |?.De\. .UMWANDLU| 000008C0: 4E 47 45 4E 44 45 3B 20 4E 45 49 4E 2C 20 44 41 |NGENDE; NEIN, DA| 000008D0: 4E 4E 20 4E 49 43 48 54 20 33 32 20 41 42 5A 49 |NN NICHT 32 ABZI| 000008E0: 45 48 45 4E 00 73 65 66 03 20 92 23 33 32 3B 20 |EHEN.sef. .#32; | 000008F0: 33 32 20 41 42 5A 49 45 48 45 4E 20 28 42 45 49 |32 ABZIEHEN (BEI| 00000900: 20 36 34 3C 3D 41 4C 54 45 52 20 57 45 52 54 3C | 64<=ALTER WERT<| 00000910: 39 36 29 00 79 65 70 03 3B 00 B8 65 7A 03 55 4D |96).yep.;..ez.UM| 00000920: 57 41 4E 44 4C 55 4E 47 45 4E 44 45 20 97 42 41 |WANDLUNGENDE .BA| 00000930: 53 4F 55 54 3B 20 5A 45 49 43 48 45 4E 20 4E 41 |SOUT; ZEICHEN NA| 00000940: 43 48 20 43 4F 44 45 57 41 4E 44 4C 55 4E 47 20 |CH CODEWANDLUNG | 00000950: 41 55 53 47 45 42 45 4E 00 BE 65 84 03 3B 00 E4 |AUSGEBEN..e..;..| 00000960: 65 8E 03 20 B6 45 4E 44 45 3B 20 45 49 4E 2F 41 |e.. .ENDE; EIN/A| 00000970: 55 53 47 41 42 45 2D 46 45 48 4C 45 52 20 28 43 |USGABE-FEHLER (C| 00000980: 3D 31 29 3F 00 EA 65 98 03 3B 00 16 66 A2 03 20 |=1)?..e..;..f.. | 00000990: 8A 5A 45 49 47 45 52 4C 4F 57 3B 20 31 36 2D 42 |.ZEIGERLOW; 16-B| 000009A0: 49 54 2D 5A 45 49 47 45 52 20 41 55 46 20 4E 41 |IT-ZEIGER AUF NA| 000009B0: 45 43 48 53 54 45 00 35 66 AC 03 20 B7 54 45 53 |ECHSTE.5f.. .TES| 000009C0: 54 3B 20 41 44 52 45 53 53 45 20 49 4D 20 56 44 |T; ADRESSE IM VD| 000009D0: 43 2D 52 41 4D 00 55 66 B6 03 20 8A 5A 45 49 47 |C-RAM.Uf.. .ZEIG| 000009E0: 45 52 48 49 47 48 3B 20 55 4D 20 31 20 45 52 48 |ERHIGH; UM 1 ERH| 000009F0: 4F 45 48 45 4E 00 5B 66 C0 03 3B 00 84 66 CA 03 |OEHEN.[f..;..f..| 00000A00: 54 45 53 54 20 81 5A 45 49 47 45 52 4C 4F 57 3B |TEST .ZEIGERLOW;| 00000A10: 20 4E 55 4E 20 57 49 52 44 20 44 45 52 20 5A 45 | NUN WIRD DER ZE| 00000A20: 49 47 45 52 00 A8 66 D4 03 20 85 23 3C 28 32 30 |IGER..f.. .#<(20| 00000A30: 30 30 29 3B 20 4D 49 54 20 32 30 30 30 20 56 45 |00); MIT 2000 VE| 00000A40: 52 47 4C 49 43 48 45 4E 00 D2 66 DE 03 20 81 5A |RGLICHEN..f.. .Z| 00000A50: 45 49 47 45 52 48 49 47 48 3B 20 42 45 49 20 32 |EIGERHIGH; BEI 2| 00000A60: 30 30 30 3A 20 53 43 48 4C 45 49 46 45 4E 45 4E |000: SCHLEIFENEN| 00000A70: 44 45 00 01 67 E8 03 20 92 23 3E 28 32 30 30 30 |DE..g.. .#>(2000| 00000A80: 29 3B 20 41 4E 53 4F 4E 53 54 45 4E 3A 20 53 43 |); ANSONSTEN: SC| 00000A90: 48 4C 45 49 46 45 20 46 4F 52 54 53 45 54 5A 45 |HLEIFE FORTSETZE| 00000AA0: 4E 00 2F 67 F2 03 20 B5 53 43 48 4C 45 49 46 45 |N./g.. .SCHLEIFE| 00000AB0: 3B 20 20 20 20 20 20 20 20 20 20 20 20 4D 49 54 |; MIT| 00000AC0: 20 4E 41 45 43 48 53 54 45 4D 20 57 45 52 54 00 | NAECHSTEM WERT.| 00000AD0: 35 67 FC 03 3B 00 58 67 06 04 45 4E 44 45 20 81 |5g..;.Xg..ENDE .| 00000AE0: 23 31 33 3B 20 43 52 20 28 57 41 47 45 4E 52 55 |#13; CR (WAGENRU| 00000AF0: 45 43 4B 4C 41 55 46 29 00 6F 67 10 04 20 97 42 |ECKLAUF).og.. .B| 00000B00: 41 53 4F 55 54 3B 20 41 55 53 47 45 42 45 4E 00 |ASOUT; AUSGEBEN.| 00000B10: 75 67 1A 04 3B 00 8D 67 24 04 20 81 23 34 3B 20 |ug..;..g$. .#4; | 00000B20: 46 49 4C 45 20 4E 55 4D 4D 45 52 20 34 00 A5 67 |FILE NUMMER 4..g| 00000B30: 2E 04 20 97 43 4C 4F 53 45 3B 20 53 43 48 4C 49 |.. .CLOSE; SCHLI| 00000B40: 45 53 53 45 4E 00 AB 67 38 04 3B 00 D8 67 42 04 |ESSEN..g8.;..gB.| 00000B50: 20 97 43 4C 52 43 48 3B 20 41 55 53 47 41 42 45 | .CLRCH; AUSGABE| 00000B60: 47 45 52 41 45 54 20 57 49 45 44 45 52 20 42 49 |GERAET WIEDER BI| 00000B70: 4C 44 53 43 48 49 52 4D 00 DE 67 4C 04 3B 00 F6 |LDSCHIRM..gL.;..| 00000B80: 67 56 04 20 A4 3B 20 52 4F 55 54 49 4E 45 20 42 |gV. .; ROUTINE B| 00000B90: 45 45 4E 44 45 4E 00 00 00 |EENDEN... |
A\.\D...$1300; OBJEKTCODE AB $1300 ABLEG
EN..\N.;..\X.; *************************
**************..\..; *
*..]..; * H A R D C
O P Y - R O U T I N E *.H]..; *
*.V] .; *
VOM 80-ZEICHEN-TEXTBILDSCHIRM *..
]..; *
*.R]..; *****************************
**********..^..; *
*..^H.; * PROGRAMMIERT V
ON: FLORIAN MUELLER *.\^R.; *
MIT: TOP-ASS *..^..; *
*..^..;
***************************************
..^..;.X^..; SYMBOLDEFINITIONEN:..^..;..
_....SETPAR=$FFBA; FILEPARAMETER SETZEN.
,_....SETNAM=$FFBD; FILENAMEN SETZEN.K_"
...OPEN=$FFC0; FILE OEFFNEN.N_,...CLOSE=
$FFC3; FILE SCHLIESSEN.._6...BASOUT=$FFD
2; ZEICHEN AUSGEBEN.._@...CKOUT=$FFC9; A
USGABE AUF FILE UMLENKEN.._J...CLRCH=$FF
CC; AUSGABE WIEDER NORMAL.._T.;..`^...SE
TVDC=$CDCC; VDC-REGISTER SETZEN.A`H...GE
TVDC=$CDDA; VDC-REGISTER AUSLESEN.G`R.;.
M`|.;.S`....ZEIGER=$FB; ZEIGER AUF AKTUE
LLE..`....ZEIGERLOW=ZEIGER; POSITION IM.
.`....ZEIGERHIGH=ZEIGER+1; VDC-RAM..`..;
.F`..;.L`..;..`B. .#0; BEI $0000..`L. .Z
EIGERLOW; IM VDC-RAM..AV. .ZEIGERHIGH; B
EGINNEN..A..;.4A.. .#4; FILENUMMER 4.QA.
. .; GERAETENUMMER AUCH 4.NA.. .#0; SEKU
NDAERADRESSE 0..A.. .SETPAR; FILEPARAMET
ER SETZEN..A..;..A.. .#0; LAENGE = 0.MA&
. .SETNAM; ALSO KEIN FILENAME.SA0.;..A:.
.OPEN; FILE OEFFNEN..AD.;..BN. .#4; AUS
GABE AUF FILE.,BX. .CKOUT; NUMMER 4 UMLE
NKEN.2BB.;.VBL.SCHLEIFE .ZEIGERHIGH; HIG
H-BYTE.TBV. .#18; IN VDC-REGISTER 18..B.
. .SETVDC; SCHREIBEN..B.. .ZEIGERLOW; LO
W-BYTE.DB.. .#19; IN VDC-REGISTER 19..B.
. .SETVDC; (*** SIEHE BESCHREIBUNG !!! *
**)..C.. .#31; VDC-REGISTER 31.%C.. .GET
VDC; AUSLESEN.+C..;.XCF.UMWANDLUNG .#%01
111111; BIT 7 AUSBLENDEN.ZCP. .; WERT IN
X-REGISTER MERKEN..CZ.;..C.. .; CARRY V
OR ADDITION LOESCHEN..C.. .#64; 64 ADDIE
REN.AC..;.ZC.. .#128; CODE < 128 ?..D..
.UMWANDLUNG1; NEIN, DANN NICHT 64 ABZIEH
EN."D.. .#96; CODE >= 96 ?.RD . .UMWANDL
UNG1; NEIN, DANN NICHT 64 ABZIEHEN..D*.
.#64; 64 ABZIEHEN (BEI CODE<128 UND >=96
)..D4.;..D>.UMWANDLUNG1 .#96; ALTER WERT
(S. 720) < 96 ?..DH. .UMWANDLUNGENDE; N
EIN, DANN NICHT 32 ABZIEHEN..ER. .#64; A
LTER WERT (S. 720) >=64 ?.DE\. .UMWANDLU
NGENDE; NEIN, DANN NICHT 32 ABZIEHEN.SEF
. .#32; 32 ABZIEHEN (BEI 64<=ALTER WERT<
96).YEP.;..EZ.UMWANDLUNGENDE .BASOUT; ZE
ICHEN NACH CODEWANDLUNG AUSGEBEN..E..;..
E.. .ENDE; EIN/AUSGABE-FEHLER (C=1)?..E.
.;..F.. .ZEIGERLOW; 16-BIT-ZEIGER AUF NA
ECHSTE.5F.. .TEST; ADRESSE IM VDC-RAM.UF
.. .ZEIGERHIGH; UM 1 ERHOEHEN.[F..;..FJ.
TEST .ZEIGERLOW; NUN WIRD DER ZEIGER..FT
. .#<(2000); MIT 2000 VERGLICHEN.RF.. .Z
EIGERHIGH; BEI 2000: SCHLEIFENENDE..G..
.#>(2000); ANSONSTEN: SCHLEIFE FORTSETZE
N./G.. .SCHLEIFE; MIT NAECHST
EM WERT.5G..;.XG..ENDE .#13; CR (WAGENRU
ECKLAUF).OG.. .BASOUT; AUSGEBEN.UG..;..G
$. .#4; FILE NUMMER 4..G.. .CLOSE; SCHLI
ESSEN..G8.;.XGB. .CLRCH; AUSGABEGERAET W
IEDER BILDSCHIRM..GL.;..GV. .; ROUTINE B
EENDEN...
> CLICK IMAGE PREVIEW FOR FULL MODAL