HCOPY128.SRC

FILE INFORMATION

FILENAME(S): HCOPY128.SRC

FILE TYPE(S): PRG

FILE SIZE: 1.9K

FIRST SEEN: 2025-11-30 01:13:13

APPEARS ON: 2 disk(s)

FILE HASH

5b08defd27130d7d75c9ae190b7b7c5ce187fc62c48ff7226d3e8f4c540f8a04

FOUND ON DISKS (2 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
15722 SEITE B	HCOPY128.SRC	PRG	C64er	12	5	DOWNLOAD FILE
15722 SEITE B	HCOPY128.SRC	PRG	DuncanTwain	12	5	DOWNLOAD FILE

FILE CONTENT & ANALYSIS

00000000: 61 5C 8E 5C E8 03 3B 20  20 20 20 20 20 20 20 20  |a\.\..;         |
00000010: 20 20 20 20 20 20 20 54  4F 50 41 53 53 20 41 53  |       TOPASS AS|
00000020: 53 45 4D 42 4C 45 52 4C  49 53 54 49 4E 47 00 B3  |SEMBLERLISTING..|
00000030: 5C F2 03 3B 20 20 20 20  20 20 20 20 20 20 20 20  |\..;            |
00000040: 20 20 20 20 20 20 20 20  20 20 20 48 43 4F 50 59  |           HCOPY|
00000050: 31 32 38 00 B9 5C FC 03  3B 00 E8 5C 06 04 3B 20  |128..\..;..\..; |
00000060: 20 20 20 20 20 20 20 20  20 20 20 20 20 4D 49 43  |             MIC|
00000070: 48 41 45 4C 20 53 43 48  4D 41 4E 44 2C 20 30 33  |HAEL SCHMAND, 03|
00000080: 2E 30 34 2E 31 39 38 37  00 EE 5C 10 04 3B 00 FA  |.04.1987..\..;..|
00000090: 5C 1A 04 2E 90 24 30 43  30 30 00 00 5D 24 04 3B  |\....$0C00..]$.;|
000000A0: 00 12 5D 2E 04 2E 8F 58  43 4F 52 44 3D 24 31 31  |..]....XCORD=$11|
000000B0: 33 31 00 24 5D 38 04 2E  8F 59 43 4F 52 44 3D 24  |31.$]8...YCORD=$|
000000C0: 31 31 33 33 00 35 5D 42  04 2E 8F 42 59 54 41 44  |1133.5]B...BYTAD|
000000D0: 52 3D 24 38 43 00 48 5D  4C 04 2E 8F 53 45 54 42  |R=$8C.H]L...SETB|
000000E0: 49 54 3D 24 39 43 45 33  00 5B 5D 56 04 2E 8F 47  |IT=$9CE3.[]V...G|
000000F0: 45 54 41 44 52 3D 24 39  44 32 34 00 6D 5D 60 04  |ETADR=$9D24.m]`.|
00000100: 2E 8F 42 53 4F 55 54 3D  24 39 32 36 39 00 7F 5D  |..BSOUT=$9269..]|
00000110: 6A 04 2E 8F 42 55 46 46  45 52 3D 24 31 30 30 00  |j...BUFFER=$100.|
00000120: 8F 5D 74 04 2E 8F 54 45  4D 50 31 3D 24 46 41 00  |.]t...TEMP1=$FA.|
00000130: 9F 5D 7E 04 2E 8F 54 45  4D 50 32 3D 24 46 42 00  |.]~...TEMP2=$FB.|
00000140: AF 5D 88 04 2E 8F 53 48  49 46 54 3D 24 44 33 00  |.]....SHIFT=$D3.|
00000150: B5 5D 92 04 3B 00 DE 5D  9C 04 48 43 45 52 52 20  |.]..;..]..HCERR |
00000160: 97 4C 41 42 37 3B 44 52  55 43 4B 45 52 2D 4B 41  |.LAB7;DRUCKER-KA|
00000170: 4E 41 4C 20 53 43 48 4C  49 45 53 53 45 4E 00 E9  |NAL SCHLIESSEN..|
00000180: 5D A6 04 20 83 23 24 30  35 00 16 5E B0 04 20 96  |].. .#$05..^.. .|
00000190: 24 34 44 33 43 3B 41 55  53 47 41 42 45 20 44 45  |$4D3C;AUSGABE DE|
000001A0: 56 49 43 45 20 4E 4F 54  20 50 52 45 53 45 4E 54  |VICE NOT PRESENT|
000001B0: 20 45 52 52 4F 52 00 1C  5E B5 04 3B 00 4B 5E BA  | ERROR..^..;.K^.|
000001C0: 04 48 43 4F 50 59 20 97  24 41 30 37 34 3B 54 45  |.HCOPY .$A074;TE|
000001D0: 53 54 20 47 52 41 50 48  49 43 2D 52 41 4D 20 45  |ST GRAPHIC-RAM E|
000001E0: 49 4E 47 45 52 49 43 48  54 45 54 00 5D 5E C4 04  |INGERICHTET.]^..|
000001F0: 20 97 24 41 38 34 35 3B  4D 41 50 49 4F 00 7E 5E  | .$A845;MAPIO.~^|
00000200: CE 04 20 81 23 24 30 34  3B 44 52 55 43 4B 45 52  |.. .#$04;DRUCKER|
00000210: 2D 4B 41 4E 41 4C 20 4F  45 46 46 4E 45 4E 00 85  |-KANAL OEFFNEN..|
00000220: 5E D8 04 20 99 00 91 5E  E2 04 20 97 24 46 46 42  |^.. ...^.. .$FFB|
00000230: 41 00 9D 5E EC 04 20 97  24 46 46 43 30 00 A8 5E  |A..^.. .$FFC0..^|
00000240: F6 04 20 83 23 24 30 34  00 B4 5E 00 05 20 97 24  |.. .#$04..^.. .$|
00000250: 46 46 43 39 00 CC 5E 0A  05 20 8D 24 39 30 3B 53  |FFC9..^.. .$90;S|
00000260: 54 41 54 55 53 20 54 45  53 54 45 4E 00 E4 5E 14  |TATUS TESTEN..^.|
00000270: 05 20 B2 48 43 45 52 52  3B 46 45 48 4C 45 52 20  |. .HCERR;FEHLER |
00000280: 2D 2D 2D 3E 00 FC 5E 1E  05 20 81 23 24 30 38 3B  |--->..^.. .#$08;|
00000290: 47 52 41 46 49 4B 2D 4D  4F 44 55 53 00 08 5F 28  |GRAFIK-MODUS.._(|
000002A0: 05 20 97 42 53 4F 55 54  00 23 5F 32 05 20 81 23  |. .BSOUT.#_2. .#|
000002B0: 24 30 44 3B 52 45 54 55  52 4E 20 41 55 53 47 45  |$0D;RETURN AUSGE|
000002C0: 42 45 4E 00 2F 5F 3C 05  20 97 42 53 4F 55 54 00  |BEN./_<. .BSOUT.|
000002D0: 35 5F 46 05 3B 00 4F 5F  50 05 20 81 23 24 30 3B  |5_F.;.O_P. .#$0;|
000002E0: 58 2F 59 20 4B 4F 4F 52  44 49 4E 41 54 45 4E 00  |X/Y KOORDINATEN.|
000002F0: 6A 5F 5A 05 20 83 23 24  30 36 3B 41 55 46 20 4E  |j_Z. .#$06;AUF N|
00000300: 55 4C 4C 20 53 45 54 5A  45 4E 00 76 5F 64 05 20  |ULL SETZEN.v_d. |
00000310: 88 54 45 4D 50 31 00 84  5F 6E 05 20 82 59 43 4F  |.TEMP1.._n. .YCO|
00000320: 52 44 2B 31 00 94 5F 78  05 4C 41 42 31 20 82 58  |RD+1.._x.LAB1 .X|
00000330: 43 4F 52 44 00 A2 5F 82  05 20 82 58 43 4F 52 44  |CORD.._.. .XCORD|
00000340: 2B 31 00 B2 5F 8C 05 4C  41 42 32 20 81 54 45 4D  |+1.._..LAB2 .TEM|
00000350: 50 31 00 BE 5F 96 05 20  82 59 43 4F 52 44 00 C9  |P1.._.. .YCORD..|
00000360: 5F A0 05 20 81 23 24 30  36 00 D5 5F AA 05 20 82  |_.. .#$06.._.. .|
00000370: 54 45 4D 50 32 00 06 60  B4 05 4C 41 42 33 20 97  |TEMP2..`..LAB3 .|
00000380: 53 45 54 42 49 54 3B 42  59 54 45 41 44 52 20 49  |SETBIT;BYTEADR I|
00000390: 4D 20 47 52 41 46 49 4B  53 50 45 49 43 48 45 52  |M GRAFIKSPEICHER|
000003A0: 20 48 4F 4C 45 4E 00 22  60 BE 05 20 81 28 42 59  | HOLEN."`.. .(BY|
000003B0: 54 41 44 52 29 2C 59 3B  42 59 54 45 20 4C 41 44  |TADR),Y;BYTE LAD|
000003C0: 45 4E 00 2E 60 C8 05 20  83 54 45 4D 50 32 00 53  |EN..`.. .TEMP2.S|
000003D0: 60 D2 05 20 82 42 55 46  46 45 52 2C 58 3B 55 4E  |`.. .BUFFER,X;UN|
000003E0: 44 20 5A 57 49 53 43 48  45 4E 53 50 45 49 43 48  |D ZWISCHENSPEICH|
000003F0: 45 52 4E 00 6D 60 DC 05  20 94 59 43 4F 52 44 3B  |ERN.m`.. .YCORD;|
00000400: 53 43 48 4F 4E 20 37 20  42 59 54 45 3F 00 79 60  |SCHON 7 BYTE?.y`|
00000410: E6 05 20 94 54 45 4D 50  32 00 8E 60 F0 05 20 B1  |.. .TEMP2..`.. .|
00000420: 4C 41 42 33 3B 4E 45 49  4E 20 2D 2D 2D 3E 00 9A  |LAB3;NEIN --->..|
00000430: 60 FA 05 20 8A 59 43 4F  52 44 00 C1 60 04 06 20  |`.. .YCORD..`.. |
00000440: 84 23 24 30 37 3B 37 20  42 59 54 45 53 20 41 55  |.#$07;7 BYTES AU|
00000450: 53 20 47 52 41 46 49 4B  2D 53 50 45 49 43 48 45  |S GRAFIK-SPEICHE|
00000460: 52 00 F1 60 0E 06 4C 41  42 34 20 81 23 24 30 31  |R..`..LAB4 .#$01|
00000470: 3B 49 4E 20 38 20 42 59  54 45 53 20 44 52 55 43  |;IN 8 BYTES DRUC|
00000480: 4B 45 52 46 4F 52 4D 41  54 20 4D 50 53 20 38 30  |KERFORMAT MPS 80|
00000490: 31 00 06 61 18 06 20 83  23 24 30 36 3B 55 4D 57  |1..a.. .#$06;UMW|
000004A0: 41 4E 44 45 4C 4E 00 19  61 22 06 4C 41 42 35 20  |ANDELN..a".LAB5 |
000004B0: 8C 42 55 46 46 45 52 2C  58 00 20 61 2C 06 20 90  |.BUFFER,X. a,. .|
000004C0: 00 27 61 36 06 20 AF 00  32 61 40 06 20 B1 4C 41  |.'a6. ..2a@. .LA|
000004D0: 42 35 00 39 61 4A 06 20  A0 00 45 61 54 06 20 81  |B5.9aJ. ..EaT. .|
000004E0: 54 45 4D 50 31 00 67 61  5E 06 20 85 23 24 43 38  |TEMP1.ga^. .#$C8|
000004F0: 3B 49 4E 20 4C 45 54 5A  54 45 52 20 44 52 55 43  |;IN LETZTER DRUC|
00000500: 4B 5A 45 49 4C 45 3F 00  7A 61 68 06 20 B5 4F 4B  |KZEILE?.zah. .OK|
00000510: 3B 4E 45 49 4E 20 2D 2D  2D 3E 00 9A 61 72 06 20  |;NEIN --->..ar. |
00000520: A1 3B 53 4F 4E 53 54 20  42 49 54 53 20 4D 49 54  |.;SONST BITS MIT|
00000530: 20 59 43 4F 52 44 3E 31  39 39 00 B0 61 7C 06 20  | YCORD>199..a|. |
00000540: 87 23 24 38 46 3B 41 55  53 42 4C 45 4E 44 45 4E  |.#$8F;AUSBLENDEN|
00000550: 00 DE 61 86 06 20 2E 91  24 32 34 3B 45 49 4E 20  |..a.. ..$24;EIN |
00000560: 42 59 54 45 20 49 4D 20  50 52 4F 47 52 41 4D 4D  |BYTE IM PROGRAMM|
00000570: 20 55 45 42 45 52 53 50  52 49 4E 47 45 4E 00 E7  | UEBERSPRINGEN..|
00000580: 61 90 06 4F 4B 20 A1 00  01 62 9A 06 20 97 42 53  |a..OK ...b.. .BS|
00000590: 4F 55 54 3B 42 59 54 45  20 41 55 53 47 45 42 45  |OUT;BYTE AUSGEBE|
000005A0: 4E 00 08 62 A4 06 20 A3  00 13 62 AE 06 20 B1 4C  |N..b.. ...b.. .L|
000005B0: 41 42 34 00 2D 62 B8 06  20 81 23 24 30 38 3B 58  |AB4.-b.. .#$08;X|
000005C0: 43 4F 52 44 20 45 52 48  4F 45 48 45 4E 00 34 62  |CORD ERHOEHEN.4b|
000005D0: C2 06 20 A6 00 40 62 CC  06 20 86 58 43 4F 52 44  |.. ..@b.. .XCORD|
000005E0: 00 4C 62 D6 06 20 82 58  43 4F 52 44 00 57 62 E0  |.Lb.. .XCORD.Wb.|
000005F0: 06 20 B5 4C 41 42 36 00  65 62 EA 06 20 8A 58 43  |. .LAB6.eb.. .XC|
00000600: 4F 52 44 2B 31 00 8E 62  F4 06 4C 41 42 36 20 97  |ORD+1..b..LAB6 .|
00000610: 47 45 54 41 44 52 3B 4E  4F 43 48 20 49 4D 20 47  |GETADR;NOCH IM G|
00000620: 52 41 46 49 4B 2D 42 45  52 45 49 43 48 3F 00 AA  |RAFIK-BEREICH?..|
00000630: 62 FE 06 20 B5 4C 41 42  32 3B 58 43 4F 52 44 20  |b.. .LAB2;XCORD |
00000640: 3C 20 33 31 39 20 2D 2D  2D 3E 00 CA 62 08 07 20  |< 319 --->..b.. |
00000650: 81 23 24 30 44 3B 53 4F  4E 53 54 20 4E 41 45 43  |.#$0D;SONST NAEC|
00000660: 48 53 54 45 20 5A 45 49  4C 45 00 D6 62 12 07 20  |HSTE ZEILE..b.. |
00000670: 97 42 53 4F 55 54 00 F1  62 1C 07 20 81 54 45 4D  |.BSOUT..b.. .TEM|
00000680: 50 31 3B 59 43 4F 52 44  20 45 52 48 4F 45 48 45  |P1;YCORD ERHOEHE|
00000690: 4E 00 F8 62 26 07 20 A6  00 03 63 30 07 20 86 23  |N..b&. ...c0. .#|
000006A0: 24 30 37 00 0F 63 3A 07  20 82 54 45 4D 50 31 00  |$07..c:. .TEMP1.|
000006B0: 36 63 44 07 20 85 23 24  43 43 3B 4C 45 54 5A 54  |6cD. .#$CC;LETZT|
000006C0: 45 20 44 52 55 43 4B 5A  45 49 4C 45 20 45 52 52  |E DRUCKZEILE ERR|
000006D0: 45 49 43 48 54 3F 00 49  63 4E 07 20 B6 4C 41 42  |EICHT?.IcN. .LAB|
000006E0: 37 3B 4A 41 20 2D 2D 2D  3E 00 74 63 58 07 20 81  |7;JA --->.tcX. .|
000006F0: 53 48 49 46 54 3B 41 42  42 52 55 43 48 20 44 55  |SHIFT;ABBRUCH DU|
00000700: 52 43 48 20 53 48 49 46  54 2F 43 54 52 4C 2F 43  |RCH SHIFT/CTRL/C|
00000710: 4F 4D 4D 3F 00 89 63 62  07 20 B8 4C 41 42 31 3B  |OMM?..cb. .LAB1;|
00000720: 4E 45 49 4E 20 2D 2D 2D  3E 00 8F 63 67 07 3B 00  |NEIN --->..cg.;.|
00000730: B5 63 6C 07 4C 41 42 37  20 81 23 24 30 46 3B 44  |.cl.LAB7 .#$0F;D|
00000740: 52 55 43 4B 45 52 20 49  4E 20 4E 4F 52 4D 41 4C  |RUCKER IN NORMAL|
00000750: 4D 4F 44 55 53 00 C1 63  76 07 20 97 42 53 4F 55  |MODUS..cv. .BSOU|
00000760: 54 00 DC 63 80 07 20 81  23 24 30 44 3B 52 45 54  |T..c.. .#$0D;RET|
00000770: 55 52 4E 20 41 55 53 47  45 42 45 4E 00 E8 63 8A  |URN AUSGEBEN..c.|
00000780: 07 20 97 42 53 4F 55 54  00 05 64 94 07 20 96 24  |. .BSOUT..d.. .$|
00000790: 46 46 43 43 3B 4B 41 4E  41 4C 20 53 43 48 4C 49  |FFCC;KANAL SCHLI|
000007A0: 45 53 53 45 4E 00 00 00                           |ESSEN...        |

A\.\..;                TOPASS ASSEMBLERL
ISTING..\..;                       HCOPY
128..\..;..\..;              MICHAEL SCH
MAND, 03.04.1987..\..;..\....$0C00..]$.;
..]....XCORD=$1131.$]8...YCORD=$1133.5]B
...BYTADR=$8C.H]L...SETBIT=$9CE3.[]V...G
ETADR=$9D24.M]`...BSOUT=$9269.]J...BUFF
ER=$100..]T...TEMP1=$FA..]~...TEMP2=$FB.
.]....SHIFT=$D3..]..;..]..HCERR .LAB7;DR
UCKER-KANAL SCHLIESSEN..].. .#$05..^.. .
$4D3C;AUSGABE DEVICE NOT PRESENT ERROR..
^..;.K^..HCOPY .$A074;TEST GRAPHIC-RAM E
INGERICHTET.]^D. .$A845;MAPIO.~^N. .#$04
;DRUCKER-KANAL OEFFNEN..^X. ...^.. .$FFB
A..^.. .$FFC0..^.. .#$04..^.. .$FFC9.L^.
. .$90;STATUS TESTEN..^.. .HCERR;FEHLER 
--->..^.. .#$08;GRAFIK-MODUS.._(. .BSOUT
.#_2. .#$0D;RETURN AUSGEBEN./_<. .BSOUT.
5_F.;.O_P. .#$0;X/Y KOORDINATEN.J_Z. .#$
06;AUF NULL SETZEN.V_D. .TEMP1.._N. .YCO
RD+1.._X.LAB1 .XCORD.._.. .XCORD+1.._..L
AB2 .TEMP1.._.. .YCORD.I_ . .#$06.U_.. .
TEMP2..`..LAB3 .SETBIT;BYTEADR IM GRAFIK
SPEICHER HOLEN."`.. .(BYTADR),Y;BYTE LAD
EN..`H. .TEMP2.S`R. .BUFFER,X;UND ZWISCH
ENSPEICHERN.M`.. .YCORD;SCHON 7 BYTE?.Y`
.. .TEMP2..`.. .LAB3;NEIN --->..`.. .YCO
RD.A`.. .#$07;7 BYTES AUS GRAFIK-SPEICHE
R..`..LAB4 .#$01;IN 8 BYTES DRUCKERFORMA
T MPS 801..A.. .#$06;UMWANDELN..A".LAB5 
.BUFFER,X. A,. ..'A6. ..2A@. .LAB5.9AJ. 
 .EAT. .TEMP1.GA^. .#$C8;IN LETZTER DRUC
KZEILE?.ZAH. .OK;NEIN --->..AR. .;SONST 
BITS MIT YCORD>199..A|. .#$8F;AUSBLENDEN
..A.. ..$24;EIN BYTE IM PROGRAMM UEBERSP
RINGEN..A..OK ...B.. .BSOUT;BYTE AUSGEBE
N..B.. ...B.. .LAB4.-B.. .#$08;XCORD ERH
OEHEN.4BB. ..@BL. .XCORD.LBV. .XCORD.WB.
. .LAB6.EB.. .XCORD+1..B..LAB6 .GETADR;N
OCH IM GRAFIK-BEREICH?..B.. .LAB2;XCORD 
< 319 --->.JB.. .#$0D;SONST NAECHSTE ZEI
LE.VB.. .BSOUT..B.. .TEMP1;YCORD ERHOEHE
N..B&. ...C0. .#$07..C:. .TEMP1.6CD. .#$
CC;LETZTE DRUCKZEILE ERREICHT?.ICN. .LAB
7;JA --->.TCX. .SHIFT;ABBRUCH DURCH SHIF
T/CTRL/COMM?..CB. .LAB1;NEIN --->..CG.;.
.CL.LAB7 .#$0F;DRUCKER IN NORMALMODUS.AC
V. .BSOUT..C.. .#$0D;RETURN AUSGEBEN..C.
. .BSOUT..D.. .$FFCC;KANAL SCHLIESSEN...

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL