HARDCOPY-G.SRC
FILE INFORMATION
FILENAME(S): HARDCOPY-G.SRC
FILE TYPE(S): PRG
FILE SIZE: 3.4K
FIRST SEEN: 2025-11-02 16:39:38
APPEARS ON: 1 disk(s)
FILE HASH
016a4b759d000c084662dec2c26d0921978b2217a8536bc746b0d46b2791b012
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| 128 | HARDCOPY-G.SRC | PRG | Treasure Chest - Plattfuss | 32 | 4 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 61 5C 95 5C 64 00 3B 20 2A 2A 2A 2A 2A 2A 2A 2A |a\.\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 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000030: 2A 2A 2A 2A 2A 00 C9 5C 6E 00 3B 20 2A 20 20 20 |*****..\n.; * |
00000040: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000050: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000060: 20 20 20 20 20 20 20 20 2A 00 FD 5C 78 00 3B 20 | *..\x.; |
00000070: 2A 20 20 51 55 45 4C 4C 54 45 58 54 20 56 4F 4E |* QUELLTEXT VON|
00000080: 20 20 48 20 41 20 52 20 44 20 43 20 4F 20 50 20 | H A R D C O P |
00000090: 59 20 20 38 30 31 2F 38 30 33 20 20 2A 00 31 5D |Y 801/803 *.1]|
000000A0: 82 00 3B 20 2A 20 20 3D 3D 3D 3D 3D 3D 3D 3D 3D |..; * =========|
000000B0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
000000C0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 20 20 |============== |
000000D0: 2A 00 65 5D 8C 00 3B 20 2A 20 20 20 20 20 20 20 |*.e]..; * |
000000E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000000F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000100: 20 20 20 20 2A 00 99 5D 96 00 3B 20 2A 20 20 20 | *..]..; * |
00000110: 45 52 53 54 45 4C 4C 54 20 4D 49 54 20 44 45 4D |ERSTELLT MIT DEM|
00000120: 20 41 53 53 45 4D 42 4C 45 52 20 22 54 4F 50 2D | ASSEMBLER "TOP-|
00000130: 41 53 53 22 20 20 20 20 2A 00 CD 5D A0 00 3B 20 |ASS" *..]..; |
00000140: 2A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |* |
00000150: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000160: 20 20 20 20 20 20 20 20 20 20 20 20 2A 00 01 5E | *..^|
00000170: AA 00 3B 20 2A 20 20 28 4D 41 52 4B 54 26 54 45 |..; * (MARKT&TE|
00000180: 43 48 4E 49 4B 20 31 32 38 45 52 2D 53 4F 46 54 |CHNIK 128ER-SOFT|
00000190: 57 41 52 45 2C 20 4D 44 20 32 35 33 20 41 29 20 |WARE, MD 253 A) |
000001A0: 2A 00 35 5E B4 00 3B 20 2A 20 20 20 20 20 20 20 |*.5^..; * |
000001B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000001C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000001D0: 20 20 20 20 2A 00 69 5E BE 00 3B 20 2A 2A 2A 2A | *.i^..; ****|
000001E0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000001F0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000200: 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 6F 5E C8 00 3B 00 |*********.o^..;.|
00000210: 75 5E D2 00 3B 00 91 5E DC 00 20 2E 8F 54 45 4D |u^..;..^.. ..TEM|
00000220: 50 31 3D 24 31 36 3B 20 44 49 45 20 4C 41 42 45 |P1=$16; DIE LABE|
00000230: 4C 00 B0 5E E6 00 20 2E 8F 54 45 4D 50 32 3D 24 |L..^.. ..TEMP2=$|
00000240: 31 37 3B 20 54 45 4D 50 31 2D 54 45 4D 50 31 32 |17; TEMP1-TEMP12|
00000250: 00 CD 5E F0 00 20 2E 8F 54 45 4D 50 33 3D 24 36 |..^.. ..TEMP3=$6|
00000260: 33 3B 20 42 45 5A 45 49 43 48 4E 45 4E 00 E3 5E |3; BEZEICHNEN..^|
00000270: FA 00 20 2E 8F 54 45 4D 50 34 3D 24 36 35 3B 20 |.. ..TEMP4=$65; |
00000280: 44 49 45 00 FF 5E 04 01 20 2E 8F 54 45 4D 50 35 |DIE..^.. ..TEMP5|
00000290: 3D 24 36 36 3B 20 5A 57 49 53 43 48 45 4E 2D 00 |=$66; ZWISCHEN-.|
000002A0: 1A 5F 0E 01 20 2E 8F 54 45 4D 50 36 3D 24 36 37 |._.. ..TEMP6=$67|
000002B0: 3B 20 53 50 45 49 43 48 45 52 00 30 5F 18 01 20 |; SPEICHER.0_.. |
000002C0: 2E 8F 54 45 4D 50 37 3D 24 36 39 3B 20 44 45 52 |..TEMP7=$69; DER|
000002D0: 00 4C 5F 22 01 20 2E 8F 54 45 4D 50 38 3D 24 46 |.L_". ..TEMP8=$F|
000002E0: 43 3B 20 48 41 52 44 43 4F 50 59 2D 00 67 5F 2C |C; HARDCOPY-.g_,|
000002F0: 01 20 2E 8F 54 45 4D 50 39 3D 24 46 41 3B 20 52 |. ..TEMP9=$FA; R|
00000300: 4F 55 54 49 4E 45 2E 00 82 5F 36 01 20 2E 8F 54 |OUTINE..._6. ..T|
00000310: 45 4D 50 31 30 3D 24 46 42 3B 20 24 46 41 2D 24 |EMP10=$FB; $FA-$|
00000320: 46 45 00 A0 5F 40 01 20 2E 8F 54 45 4D 50 31 31 |FE.._@. ..TEMP11|
00000330: 3D 24 46 44 3B 20 49 53 54 20 46 52 45 49 45 52 |=$FD; IST FREIER|
00000340: 00 C5 5F 4A 01 20 2E 8F 54 45 4D 50 31 32 3D 24 |.._J. ..TEMP12=$|
00000350: 46 45 3B 20 42 45 4E 55 54 5A 45 52 53 50 45 49 |FE; BENUTZERSPEI|
00000360: 43 48 45 52 2E 00 EF 5F 54 01 20 2E 8F 53 45 54 |CHER..._T. ..SET|
00000370: 50 41 52 3D 24 46 46 42 41 3B 20 46 49 4C 45 50 |PAR=$FFBA; FILEP|
00000380: 41 52 41 4D 45 54 45 52 20 53 45 54 5A 45 4E 00 |ARAMETER SETZEN.|
00000390: 0F 60 5E 01 20 2E 8F 4F 50 45 4E 3D 24 46 46 43 |.`^. ..OPEN=$FFC|
000003A0: 30 3B 20 46 49 4C 45 20 4F 45 46 46 4E 45 4E 00 |0; FILE OEFFNEN.|
000003B0: 35 60 68 01 20 2E 8F 43 48 4B 4F 55 54 3D 24 46 |5`h. ..CHKOUT=$F|
000003C0: 46 43 39 3B 20 41 55 53 47 41 42 45 20 55 4D 4C |FC9; AUSGABE UML|
000003D0: 45 4E 4B 45 4E 00 64 60 72 01 20 2E 8F 43 4C 52 |ENKEN.d`r. ..CLR|
000003E0: 43 48 3D 24 46 46 43 43 3B 20 45 49 4E 2F 41 55 |CH=$FFCC; EIN/AU|
000003F0: 53 47 41 42 45 20 49 4E 49 54 49 41 4C 49 53 49 |SGABE INITIALISI|
00000400: 45 52 45 4E 00 92 60 7C 01 20 2E 8F 42 41 53 4F |EREN..`|. ..BASO|
00000410: 55 54 3D 24 46 46 44 32 3B 20 5A 45 49 43 48 45 |UT=$FFD2; ZEICHE|
00000420: 4E 20 49 4D 20 41 4B 4B 55 20 41 55 53 47 45 42 |N IM AKKU AUSGEB|
00000430: 45 4E 00 98 60 86 01 3B 00 BC 60 90 01 20 2E 90 |EN..`..;..`.. ..|
00000440: 24 31 33 30 30 3B 20 41 42 20 24 31 33 30 30 20 |$1300; AB $1300 |
00000450: 41 53 53 45 4D 42 4C 49 45 52 45 4E 00 C2 60 9A |ASSEMBLIEREN..`.|
00000460: 01 3B 00 D9 60 A4 01 20 81 23 31 32 37 3B 20 46 |.;..`.. .#127; F|
00000470: 49 4C 45 4E 55 4D 4D 45 52 00 F1 60 AE 01 20 83 |ILENUMMER..`.. .|
00000480: 23 34 3B 20 47 45 52 41 45 54 45 4E 55 4D 4D 45 |#4; GERAETENUMME|
00000490: 52 00 0C 61 B8 01 20 84 23 30 3B 20 53 45 4B 55 |R..a.. .#0; SEKU|
000004A0: 4E 44 41 45 52 41 44 52 45 53 53 45 00 21 61 C2 |NDAERADRESSE.!a.|
000004B0: 01 20 97 53 45 54 50 41 52 3B 20 53 45 54 5A 45 |. .SETPAR; SETZE|
000004C0: 4E 00 3A 61 CC 01 20 97 4F 50 45 4E 3B 20 46 49 |N.:a.. .OPEN; FI|
000004D0: 4C 45 20 4F 45 46 46 4E 45 4E 00 58 61 D6 01 20 |LE OEFFNEN.Xa.. |
000004E0: 83 23 31 32 37 3B 20 46 49 4C 45 4E 55 4D 4D 45 |.#127; FILENUMME|
000004F0: 52 20 4E 41 43 48 20 58 00 75 61 E0 01 20 88 54 |R NACH X.ua.. .T|
00000500: 45 4D 50 37 3B 20 49 4E 20 54 45 4D 50 37 20 4D |EMP7; IN TEMP7 M|
00000510: 45 52 4B 45 4E 00 9B 61 EA 01 20 97 43 48 4B 4F |ERKEN..a.. .CHKO|
00000520: 55 54 3B 20 41 55 53 47 41 42 45 20 41 55 46 20 |UT; AUSGABE AUF |
00000530: 46 49 4C 45 20 4C 45 4E 4B 45 4E 00 A6 61 F4 01 |FILE LENKEN..a..|
00000540: 20 81 23 24 46 46 00 B2 61 FE 01 20 82 54 45 4D | .#$FF..a.. .TEM|
00000550: 50 33 00 BB 61 08 02 20 81 23 37 00 C8 61 12 02 |P3..a.. .#7..a..|
00000560: 20 82 54 45 4D 50 31 31 00 D3 61 1C 02 20 81 23 | .TEMP11..a.. .#|
00000570: 24 31 43 00 DF 61 26 02 20 82 54 45 4D 50 38 00 |$1C..a&. .TEMP8.|
00000580: E8 61 30 02 20 81 23 30 00 F5 61 3A 02 20 82 54 |.a0. .#0..a:. .T|
00000590: 41 42 4C 45 33 00 05 62 44 02 4C 41 42 45 4C 31 |ABLE3..bD.LABEL1|
000005A0: 20 81 23 34 30 00 12 62 4E 02 20 82 54 41 42 4C | .#40..bN. .TABL|
000005B0: 45 34 00 1D 62 58 02 20 83 23 24 30 34 00 33 62 |E4..bX. .#$04.3b|
000005C0: 62 02 4C 41 42 45 4C 32 20 81 4C 41 42 45 4C 31 |b.LABEL2 .LABEL1|
000005D0: 31 2C 58 00 4F 62 6C 02 20 97 42 41 53 4F 55 54 |1,X.Obl. .BASOUT|
000005E0: 3B 20 41 4B 4B 55 20 41 55 53 47 45 42 45 4E 00 |; AKKU AUSGEBEN.|
000005F0: 6E 62 76 02 20 AF 3B 20 5A 41 45 48 4C 45 52 20 |nbv. .; ZAEHLER |
00000600: 44 45 4B 52 45 4D 45 4E 54 49 45 52 45 4E 00 9B |DEKREMENTIEREN..|
00000610: 62 80 02 20 B1 4C 41 42 45 4C 32 3B 20 4E 4F 43 |b.. .LABEL2; NOC|
00000620: 48 20 4E 49 43 48 54 20 46 45 52 54 49 47 2C 20 |H NICHT FERTIG, |
00000630: 44 41 4E 4E 20 57 45 49 54 45 52 00 AD 62 8A 02 |DANN WEITER..b..|
00000640: 20 81 23 30 3B 20 4C 4F 45 53 43 48 54 00 C4 62 | .#0; LOESCHT..b|
00000650: 94 02 20 82 54 45 4D 50 34 3B 20 54 45 4D 50 34 |.. .TEMP4; TEMP4|
00000660: 20 55 4E 44 00 D7 62 9E 02 20 82 54 45 4D 50 35 | UND..b.. .TEMP5|
00000670: 3B 20 54 45 4D 50 35 00 EA 62 A8 02 4C 41 42 45 |; TEMP5..b..LABE|
00000680: 4C 33 20 81 54 41 42 4C 45 33 00 F6 62 B2 02 20 |L3 .TABLE3..b.. |
00000690: 82 54 45 4D 50 36 00 FF 62 BC 02 20 81 23 30 00 |.TEMP6..b.. .#0.|
000006A0: 0C 63 C6 02 20 82 54 45 4D 50 31 32 00 1E 63 D0 |.c.. .TEMP12..c.|
000006B0: 02 4C 41 42 45 4C 34 20 81 54 45 4D 50 34 00 2A |.LABEL4 .TEMP4.*|
000006C0: 63 DA 02 20 83 54 45 4D 50 35 00 36 63 E4 02 20 |c.. .TEMP5.6c.. |
000006D0: 84 54 45 4D 50 36 00 44 63 EE 02 20 97 4C 41 42 |.TEMP6.Dc.. .LAB|
000006E0: 45 4C 31 33 00 59 63 F8 02 20 84 23 30 3B 20 4F |EL13.Yc.. .#0; O|
000006F0: 46 46 53 45 54 20 3D 20 30 00 69 63 02 03 20 81 |FFSET = 0.ic.. .|
00000700: 28 54 45 4D 50 39 29 2C 59 00 76 63 0C 03 20 83 |(TEMP9),Y.vc.. .|
00000710: 54 45 4D 50 31 32 00 85 63 16 03 20 82 54 41 42 |TEMP12..c.. .TAB|
00000720: 4C 45 35 2C 58 00 A1 63 20 03 20 8A 54 45 4D 50 |LE5,X..c . .TEMP|
00000730: 36 3B 20 54 45 4D 50 36 20 45 52 48 4F 45 48 45 |6; TEMP6 ERHOEHE|
00000740: 4E 00 BC 63 2A 03 20 A2 3B 20 5A 41 45 48 4C 45 |N..c*. .; ZAEHLE|
00000750: 52 20 58 20 45 52 48 4F 45 48 45 4E 00 E0 63 34 |R X ERHOEHEN..c4|
00000760: 03 20 88 54 45 4D 50 31 32 3B 20 55 4E 44 20 49 |. .TEMP12; UND I|
00000770: 4E 20 54 45 4D 50 31 32 20 41 42 4C 45 47 45 4E |N TEMP12 ABLEGEN|
00000780: 00 05 64 3E 03 20 8B 54 45 4D 50 31 31 3B 20 4D |..d>. .TEMP11; M|
00000790: 49 54 20 54 45 4D 50 31 31 20 56 45 52 47 4C 45 |IT TEMP11 VERGLE|
000007A0: 49 43 48 45 4E 00 37 64 48 03 20 B7 4C 41 42 45 |ICHEN.7dH. .LABE|
000007B0: 4C 34 3B 20 4B 45 49 4E 45 20 55 45 42 45 52 45 |L4; KEINE UEBERE|
000007C0: 49 4E 53 54 49 4D 4D 55 4E 47 2C 20 44 41 4E 4E |INSTIMMUNG, DANN|
000007D0: 20 57 45 49 54 45 52 00 40 64 52 03 20 81 23 30 | WEITER.@dR. .#0|
000007E0: 00 49 64 5C 03 20 84 23 37 00 5C 64 66 03 4C 41 |.Id\. .#7.\df.LA|
000007F0: 42 45 4C 35 20 83 54 45 4D 50 31 31 00 71 64 70 |BEL5 .TEMP11.qdp|
00000800: 03 4C 41 42 45 4C 36 20 8C 54 41 42 4C 45 35 2C |.LABEL6 .TABLE5,|
00000810: 58 00 78 64 7A 03 20 90 00 7F 64 84 03 20 AF 00 |X.xdz. ...d.. ..|
00000820: 8C 64 8E 03 20 B1 4C 41 42 45 4C 36 00 98 64 98 |.d.. .LABEL6..d.|
00000830: 03 20 87 54 45 4D 50 33 00 B7 64 A2 03 20 8F 23 |. .TEMP3..d.. .#|
00000840: 25 31 30 30 30 30 30 30 30 3B 20 42 49 54 20 37 |%10000000; BIT 7|
00000850: 20 53 45 54 5A 45 4E 00 D3 64 AC 03 20 97 42 41 | SETZEN..d.. .BA|
00000860: 53 4F 55 54 3B 20 41 4B 4B 55 20 41 55 53 47 45 |SOUT; AKKU AUSGE|
00000870: 42 45 4E 00 F4 64 B6 03 20 A3 3B 20 5A 41 45 48 |BEN..d.. .; ZAEH|
00000880: 4C 45 52 20 59 20 44 45 4B 52 45 4D 45 4E 54 49 |LER Y DEKREMENTI|
00000890: 45 52 45 4E 00 26 65 C0 03 20 B1 4C 41 42 45 4C |EREN.&e.. .LABEL|
000008A0: 35 3B 20 4E 4F 43 48 20 4E 49 43 48 54 20 48 45 |5; NOCH NICHT HE|
000008B0: 52 55 4E 54 45 52 47 45 5A 41 45 48 4C 54 3D 3E |RUNTERGEZAEHLT=>|
000008C0: 57 45 49 54 45 52 00 32 65 CA 03 20 81 54 45 4D |WEITER.2e.. .TEM|
000008D0: 50 34 00 39 65 D4 03 20 A6 00 42 65 DE 03 20 86 |P4.9e.. ..Be.. .|
000008E0: 23 38 00 4E 65 E8 03 20 82 54 45 4D 50 34 00 5B |#8.Ne.. .TEMP4.[|
000008F0: 65 F2 03 20 B5 4C 41 42 45 4C 37 00 67 65 FC 03 |e.. .LABEL7.ge..|
00000900: 20 8A 54 45 4D 50 35 00 7A 65 06 04 4C 41 42 45 | .TEMP5.ze..LABE|
00000910: 4C 37 20 94 54 41 42 4C 45 34 00 87 65 10 04 20 |L7 .TABLE4..e.. |
00000920: B7 4C 41 42 45 4C 33 00 92 65 1A 04 20 81 23 24 |.LABEL3..e.. .#$|
00000930: 30 44 00 AE 65 24 04 20 97 42 41 53 4F 55 54 3B |0D..e$. .BASOUT;|
00000940: 20 41 4B 4B 55 20 41 55 53 47 45 42 45 4E 00 BB | AKKU AUSGEBEN..|
00000950: 65 2E 04 20 81 54 41 42 4C 45 33 00 C2 65 38 04 |e.. .TABLE3..e8.|
00000960: 20 A6 00 CB 65 42 04 20 86 23 37 00 D8 65 4C 04 | ...eB. .#7..eL.|
00000970: 20 82 54 41 42 4C 45 33 00 E4 65 56 04 20 94 54 | .TABLE3..eV. .T|
00000980: 45 4D 50 38 00 F1 65 60 04 20 B8 4C 41 42 45 4C |EMP8..e`. .LABEL|
00000990: 39 00 04 66 6A 04 4C 41 42 45 4C 38 20 96 4C 41 |9..fj.LABEL8 .LA|
000009A0: 42 45 4C 31 00 13 66 74 04 4C 41 42 45 4C 39 20 |BEL1..ft.LABEL9 |
000009B0: 81 23 34 00 20 66 7E 04 20 85 54 45 4D 50 31 31 |.#4. f~. .TEMP11|
000009C0: 00 2E 66 88 04 20 B8 4C 41 42 45 4C 31 30 00 3B |..f.. .LABEL10.;|
000009D0: 66 92 04 20 82 54 45 4D 50 31 31 00 44 66 9C 04 |f.. .TEMP11.Df..|
000009E0: 20 81 23 31 00 50 66 A6 04 20 82 54 45 4D 50 38 | .#1.Pf.. .TEMP8|
000009F0: 00 5A 66 B0 04 20 81 23 31 35 00 66 66 BA 04 20 |.Zf.. .#15.ff.. |
00000A00: 82 54 45 4D 50 33 00 73 66 C4 04 20 B7 4C 41 42 |.TEMP3.sf.. .LAB|
00000A10: 45 4C 38 00 84 66 CE 04 4C 41 42 45 4C 31 30 20 |EL8..f..LABEL10 |
00000A20: 81 23 31 35 00 A0 66 D8 04 20 97 42 41 53 4F 55 |.#15..f.. .BASOU|
00000A30: 54 3B 20 41 4B 4B 55 20 41 55 53 47 45 42 45 4E |T; AKKU AUSGEBEN|
00000A40: 00 BF 66 E2 04 20 81 23 31 32 37 3B 20 46 49 4C |..f.. .#127; FIL|
00000A50: 45 4E 55 4D 4D 45 52 20 49 4E 20 41 4B 4B 55 00 |ENUMMER IN AKKU.|
00000A60: E7 66 EC 04 20 96 43 4C 52 43 48 3B 20 45 49 4E |.f.. .CLRCH; EIN|
00000A70: 2F 41 55 53 47 41 42 45 20 49 4E 49 54 49 41 4C |/AUSGABE INITIAL|
00000A80: 49 53 49 45 52 45 4E 00 FC 66 F6 04 4C 41 42 45 |ISIEREN..f..LABE|
00000A90: 4C 31 31 20 B3 4C 41 42 45 4C 31 32 00 11 67 00 |L11 .LABEL12..g.|
00000AA0: 05 4C 41 42 45 4C 31 32 20 B1 4C 41 42 45 4C 31 |.LABEL12 .LABEL1|
00000AB0: 34 00 18 67 0A 05 20 AE 00 2B 67 14 05 4C 41 42 |4..g.. ..+g..LAB|
00000AC0: 45 4C 31 33 20 82 54 45 4D 50 31 00 37 67 1E 05 |EL13 .TEMP1.7g..|
00000AD0: 20 88 54 45 4D 50 32 00 3E 67 28 05 20 9A 00 45 | .TEMP2.>g(. ..E|
00000AE0: 67 32 05 20 8E 00 4C 67 3C 05 20 8E 00 53 67 46 |g2. ..Lg<. ..SgF|
00000AF0: 05 20 8E 00 5A 67 50 05 20 99 00 69 67 5A 05 20 |. ..ZgP. ..igZ. |
00000B00: 81 54 41 42 4C 45 31 2C 58 00 76 67 64 05 20 82 |.TABLE1,X.vgd. .|
00000B10: 54 45 4D 50 31 30 00 7D 67 6E 05 20 98 00 86 67 |TEMP10.}gn. ...g|
00000B20: 78 05 20 87 23 33 00 8D 67 82 05 20 99 00 9C 67 |x. .#3..g.. ...g|
00000B30: 8C 05 20 81 54 41 42 4C 45 32 2C 58 00 A8 67 96 |.. .TABLE2,X..g.|
00000B40: 05 20 82 54 45 4D 50 39 00 AF 67 A0 05 20 9A 00 |. .TEMP9..g.. ..|
00000B50: C0 67 AA 05 20 87 23 25 30 30 30 30 30 31 31 31 |.g.. .#%00000111|
00000B60: 00 EB 67 B4 05 4C 41 42 45 4C 31 34 20 A6 3B 20 |..g..LABEL14 .; |
00000B70: 43 41 52 52 59 20 56 4F 52 20 41 44 44 49 54 49 |CARRY VOR ADDITI|
00000B80: 4F 4E 20 4C 4F 45 53 43 48 45 4E 00 F7 67 BE 05 |ON LOESCHEN..g..|
00000B90: 20 86 54 45 4D 50 39 00 03 68 C8 05 20 82 54 45 | .TEMP9..h.. .TE|
00000BA0: 4D 50 39 00 0F 68 D2 05 20 81 54 45 4D 50 31 00 |MP9..h.. .TEMP1.|
00000BB0: 20 68 DC 05 20 87 23 25 31 31 31 31 31 30 30 30 | h.. .#%11111000|
00000BC0: 00 2C 68 E6 05 20 82 54 45 4D 50 34 00 3D 68 F0 |.,h.. .TEMP4.=h.|
00000BD0: 05 20 81 23 25 30 30 31 30 30 30 30 30 00 4A 68 |. .#%00100000.Jh|
00000BE0: FA 05 20 8F 54 45 4D 50 31 30 00 57 68 04 06 20 |.. .TEMP10.Wh.. |
00000BF0: 82 54 45 4D 50 31 30 00 7B 68 0E 06 20 A6 3B 20 |.TEMP10.{h.. .; |
00000C00: 43 41 52 52 59 20 56 4F 52 20 41 44 44 49 54 49 |CARRY VOR ADDITI|
00000C10: 4F 4E 20 4C 4F 45 53 43 48 45 4E 00 87 68 18 06 |ON LOESCHEN..h..|
00000C20: 20 81 54 45 4D 50 39 00 93 68 22 06 20 86 54 45 | .TEMP9..h". .TE|
00000C30: 4D 50 34 00 9F 68 2C 06 20 82 54 45 4D 50 39 00 |MP4..h,. .TEMP9.|
00000C40: AC 68 36 06 20 81 54 45 4D 50 31 30 00 B8 68 40 |.h6. .TEMP10..h@|
00000C50: 06 20 86 54 45 4D 50 32 00 C5 68 4A 06 20 82 54 |. .TEMP2..hJ. .T|
00000C60: 45 4D 50 31 30 00 DF 68 54 06 20 A4 3B 20 52 4F |EMP10..hT. .; RO|
00000C70: 55 54 49 4E 45 20 56 45 52 4C 41 53 53 45 4E 00 |UTINE VERLASSEN.|
00000C80: E5 68 5E 06 3B 00 12 69 68 06 54 41 42 4C 45 31 |.h^.;..ih.TABLE1|
00000C90: 20 2E 91 24 30 30 2C 24 30 31 2C 24 30 32 2C 24 | ..$00,$01,$02,$|
00000CA0: 30 33 2C 24 30 35 2C 24 30 36 2C 24 30 37 2C 24 |03,$05,$06,$07,$|
00000CB0: 30 38 00 39 69 72 06 20 2E 91 24 30 41 2C 24 30 |08.9ir. ..$0A,$0|
00000CC0: 42 2C 24 30 43 2C 24 30 44 2C 24 30 46 2C 24 31 |B,$0C,$0D,$0F,$1|
00000CD0: 30 2C 24 31 31 2C 24 31 32 00 60 69 7C 06 20 2E |0,$11,$12.`i|. .|
00000CE0: 91 24 31 34 2C 24 31 35 2C 24 31 36 2C 24 31 37 |.$14,$15,$16,$17|
00000CF0: 2C 24 31 39 2C 24 31 41 2C 24 31 42 2C 24 31 43 |,$19,$1A,$1B,$1C|
00000D00: 00 6F 69 86 06 20 2E 91 24 31 45 2C 24 31 46 00 |.oi.. ..$1E,$1F.|
00000D10: 8C 69 90 06 54 41 42 4C 45 32 20 2E 91 24 30 30 |.i..TABLE2 ..$00|
00000D20: 2C 24 34 30 2C 24 38 30 2C 24 43 30 00 A1 69 9A |,$40,$80,$C0..i.|
00000D30: 06 54 41 42 4C 45 33 20 2E 91 24 43 42 2C 24 30 |.TABLE3 ..$CB,$0|
00000D40: 30 00 B6 69 A4 06 54 41 42 4C 45 34 20 2E 91 24 |0..i..TABLE4 ..$|
00000D50: 30 30 2C 24 30 30 00 E3 69 AE 06 54 41 42 4C 45 |00,$00..i..TABLE|
00000D60: 35 20 2E 91 24 30 30 2C 24 30 30 2C 24 30 30 2C |5 ..$00,$00,$00,|
00000D70: 24 30 30 2C 24 30 30 2C 24 30 30 2C 24 30 30 2C |$00,$00,$00,$00,|
00000D80: 24 30 30 00 FA 69 B8 06 20 2E 91 24 30 30 2C 24 |$00..i.. ..$00,$|
00000D90: 46 46 2C 24 30 30 2C 24 46 46 00 0B 6A C2 06 54 |FF,$00,$FF..j..T|
00000DA0: 41 42 4C 45 36 20 2E 91 24 30 30 00 00 00 |ABLE6 ..$00... |
A\.\D.; ********************************
*************.I\N.; *
*..\X.; * QUELL
TEXT VON H A R D C O P Y 801/803 *.1]
..; * =================================
====== *.E]..; *
*..]..; * ERSTELLT
MIT DEM ASSEMBLER "TOP-ASS" *.M] .;
*
*..^..; * (MARKT&TECHNIK 128ER-SOFT
WARE, MD 253 A) *.5^..; *
*.I^..; ****
****************************************
*.O^H.;.U^R.;..^.. ..TEMP1=$16; DIE LABE
L..^.. ..TEMP2=$17; TEMP1-TEMP12.M^.. ..
TEMP3=$63; BEZEICHNEN..^.. ..TEMP4=$65;
DIE..^.. ..TEMP5=$66; ZWISCHEN-.._.. ..T
EMP6=$67; SPEICHER.0_.. ..TEMP7=$69; DER
.L_". ..TEMP8=$FC; HARDCOPY-.G_,. ..TEMP
9=$FA; ROUTINE..._6. ..TEMP10=$FB; $FA-$
FE. _@. ..TEMP11=$FD; IST FREIER.E_J. ..
TEMP12=$FE; BENUTZERSPEICHER..._T. ..SET
PAR=$FFBA; FILEPARAMETER SETZEN..`^. ..O
PEN=$FFC0; FILE OEFFNEN.5`H. ..CHKOUT=$F
FC9; AUSGABE UMLENKEN.D`R. ..CLRCH=$FFCC
; EIN/AUSGABE INITIALISIEREN..`|. ..BASO
UT=$FFD2; ZEICHEN IM AKKU AUSGEBEN..`..;
..`.. ..$1300; AB $1300 ASSEMBLIEREN.B`.
.;.Y`.. .#127; FILENUMMER..`.. .#4; GERA
ETENUMMER..A.. .#0; SEKUNDAERADRESSE.!AB
. .SETPAR; SETZEN.:AL. .OPEN; FILE OEFFN
EN.XAV. .#127; FILENUMMER NACH X.UA.. .T
EMP7; IN TEMP7 MERKEN..A.. .CHKOUT; AUSG
ABE AUF FILE LENKEN..A.. .#$FF..A.. .TEM
P3..A.. .#7.HA.. .TEMP11.SA.. .#$1C..A&.
.TEMP8..A0. .#0..A:. .TABLE3..BD.LABEL1
.#40..BN. .TABLE4..BX. .#$04.3BB.LABEL2
.LABEL11,X.OBL. .BASOUT; AKKU AUSGEBEN.
NBV. .; ZAEHLER DEKREMENTIEREN..B.. .LAB
EL2; NOCH NICHT FERTIG, DANN WEITER..B..
.#0; LOESCHT.DB.. .TEMP4; TEMP4 UND.WB.
. .TEMP5; TEMP5..B..LABEL3 .TABLE3..B..
.TEMP6..B.. .#0..CF. .TEMP12..CP.LABEL4
.TEMP4.*CZ. .TEMP5.6C.. .TEMP6.DC.. .LAB
EL13.YC.. .#0; OFFSET = 0.IC.. .(TEMP9),
Y.VC.. .TEMP12..C.. .TABLE5,X..C . .TEMP
6; TEMP6 ERHOEHEN..C*. .; ZAEHLER X ERHO
EHEN..C4. .TEMP12; UND IN TEMP12 ABLEGEN
..D>. .TEMP11; MIT TEMP11 VERGLEICHEN.7D
H. .LABEL4; KEINE UEBEREINSTIMMUNG, DANN
WEITER.@DR. .#0.ID\. .#7.\DF.LABEL5 .TE
MP11.QDP.LABEL6 .TABLE5,X.XDZ. ..D.. ..
.D.. .LABEL6..D.. .TEMP3..D.. .#%1000000
0; BIT 7 SETZEN.SD.. .BASOUT; AKKU AUSGE
BEN..D.. .; ZAEHLER Y DEKREMENTIEREN.&E.
. .LABEL5; NOCH NICHT HERUNTERGEZAEHLT=>
WEITER.2EJ. .TEMP4.9ET. ..BE.. .#8.NE..
.TEMP4.[E.. .LABEL7.GE.. .TEMP5.ZE..LABE
L7 .TABLE4..E.. .LABEL3..E.. .#$0D..E$.
.BASOUT; AKKU AUSGEBEN..E.. .TABLE3.BE8.
..KEB. .#7.XEL. .TABLE3..EV. .TEMP8..E`
. .LABEL9..FJ.LABEL8 .LABEL1..FT.LABEL9
.#4. F~. .TEMP11..F.. .LABEL10.;F.. .TEM
P11.DF.. .#1.PF.. .TEMP8.ZF.. .#15.FF..
.TEMP3.SFD. .LABEL8..FN.LABEL10 .#15. FX
. .BASOUT; AKKU AUSGEBEN..F.. .#127; FIL
ENUMMER IN AKKU..F.. .CLRCH; EIN/AUSGABE
INITIALISIEREN..F..LABEL11 .LABEL12..G.
.LABEL12 .LABEL14..G.. ..+G..LABEL13 .TE
MP1.7G.. .TEMP2.>G(. ..EG2. ..LG<. ..SGF
. ..ZGP. ..IGZ. .TABLE1,X.VGD. .TEMP10.}
GN. ...GX. .#3..G.. ...G.. .TABLE2,X..G.
. .TEMP9..G . ...G.. .#%00000111..G..LAB
EL14 .; CARRY VOR ADDITION LOESCHEN..G..
.TEMP9..HH. .TEMP9..HR. .TEMP1. H.. .#%
11111000.,H.. .TEMP4.=H.. .#%00100000.JH
.. .TEMP10.WH.. .TEMP10.{H.. .; CARRY VO
R ADDITION LOESCHEN..H.. .TEMP9..H". .TE
MP4..H,. .TEMP9..H6. .TEMP10..H@. .TEMP2
.EHJ. .TEMP10..HT. .; ROUTINE VERLASSEN.
.H^.;..IH.TABLE1 ..$00,$01,$02,$03,$05,$
06,$07,$08.9IR. ..$0A,$0B,$0C,$0D,$0F,$1
0,$11,$12.`I|. ..$14,$15,$16,$17,$19,$1A
,$1B,$1C.OI.. ..$1E,$1F..I..TABLE2 ..$00
,$40,$80,$C0..I..TABLE3 ..$CB,$00..I..TA
BLE4 ..$00,$00..I..TABLE5 ..$00,$00,$00,
$00,$00,$00,$00,$00..I.. ..$00,$FF,$00,$
FF..JB.TABLE6 ..$00...
> CLICK IMAGE PREVIEW FOR FULL MODAL