HARDCOPY.ASS
FILE INFORMATION
FILENAME(S): HARDCOPY.ASS
FILE TYPE(S): PRG
FILE SIZE: 1.9K
FIRST SEEN: 2025-11-30 21:28:18
APPEARS ON: 1 disk(s)
FILE HASH
b1aa5c6b499cfa14df7e080821037951bfb6661c768f0be941eaf824afa75b3d
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| VCGN D 64007 | HARDCOPY.ASS | PRG | DuncanTwain | 17 | 1 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 09 08 00 00 4E 50 52 00 2A 08 0A 00 3B 22 |......NPR.*...;"| 00000010: 20 48 41 52 44 2D 43 4F 50 59 20 48 49 52 45 53 | HARD-COPY HIRES| 00000020: 20 53 43 52 45 45 4E 20 54 4F 00 44 08 14 00 3B | SCREEN TO.D...;| 00000030: 22 20 53 54 41 52 20 53 47 2F 31 30 20 50 52 49 |" STAR SG/10 PRI| 00000040: 4E 54 45 52 00 4A 08 1E 00 3B 00 5E 08 64 00 46 |NTER.J...;.^.d.F| 00000050: 49 4C 45 20 20 20 20 45 51 55 20 31 32 37 00 70 |ILE EQU 127.p| 00000060: 08 6E 00 44 45 56 49 43 45 20 20 45 51 55 20 34 |.n.DEVICE EQU 4| 00000070: 00 83 08 78 00 45 53 43 41 50 45 20 20 45 51 55 |...x.ESCAPE EQU| 00000080: 20 32 37 00 96 08 82 00 4C 46 20 20 20 20 20 20 | 27.....LF | 00000090: 45 51 55 20 31 30 00 AC 08 8C 00 53 45 54 4C 46 |EQU 10.....SETLF| 000000A0: 53 20 20 45 51 55 20 24 46 46 42 41 00 C2 08 96 |S EQU $FFBA....| 000000B0: 00 53 45 54 4E 41 4D 20 20 45 51 55 20 24 46 46 |.SETNAM EQU $FF| 000000C0: 42 44 00 D8 08 A0 00 4F 50 45 4E 20 20 20 20 45 |BD.....OPEN E| 000000D0: 51 55 20 24 46 46 43 30 00 EE 08 AA 00 43 48 4B |QU $FFC0.....CHK| 000000E0: 4F 55 54 20 20 45 51 55 20 24 45 31 31 38 00 04 |OUT EQU $E118..| 000000F0: 09 B4 00 43 48 52 4F 55 54 20 20 45 51 55 20 24 |...CHROUT EQU $| 00000100: 46 46 44 32 00 1A 09 BE 00 43 4C 4F 53 45 20 20 |FFD2.....CLOSE | 00000110: 20 45 51 55 20 24 46 46 43 33 00 30 09 C8 00 43 | EQU $FFC3.0...C| 00000120: 4C 52 43 48 4E 20 20 45 51 55 20 24 46 46 43 43 |LRCHN EQU $FFCC| 00000130: 00 46 09 D2 00 4D 41 50 20 20 20 20 20 45 51 55 |.F...MAP EQU| 00000140: 20 24 45 30 30 30 00 5A 09 DC 00 56 45 43 20 20 | $E000.Z...VEC | 00000150: 20 20 20 45 51 55 20 24 46 42 00 6E 09 E6 00 52 | EQU $FB.n...R| 00000160: 45 47 45 4C 20 20 20 45 51 55 20 24 46 44 00 82 |EGEL EQU $FD..| 00000170: 09 F0 00 42 59 54 45 20 20 20 20 45 51 55 20 24 |...BYTE EQU $| 00000180: 46 45 00 96 09 FA 00 52 59 20 20 20 20 20 20 45 |FE.....RY E| 00000190: 51 55 20 24 46 46 00 9C 09 04 01 3B 00 A9 09 E8 |QU $FF.....;....| 000001A0: 03 B0 47 20 24 43 46 30 30 00 BA 09 F2 03 4A 4D |..G $CF00.....JM| 000001B0: 50 20 48 41 52 44 43 4F 50 59 00 C9 09 FC 03 52 |P HARDCOPY.....R| 000001C0: 41 55 4D 20 4D 45 4D 20 38 00 DA 09 06 04 48 41 |AUM MEM 8.....HA| 000001D0: 52 44 43 4F 50 59 20 4E 4F 50 00 EE 09 10 04 3B |RDCOPY NOP.....;| 000001E0: 22 20 4F 50 45 4E 20 50 52 49 4E 54 45 52 00 FC |" OPEN PRINTER..| 000001F0: 09 1A 04 4C 44 41 20 23 46 49 4C 45 00 0C 0A 24 |...LDA #FILE...$| 00000200: 04 4C 44 58 20 23 44 45 56 49 43 45 00 19 0A 2E |.LDX #DEVICE....| 00000210: 04 4C 44 59 20 23 24 46 46 00 28 0A 38 04 4A 53 |.LDY #$FF.(.8.JS| 00000220: 52 20 53 45 54 4C 46 53 00 33 0A 42 04 4C 44 41 |R SETLFS.3.B.LDA| 00000230: 20 23 30 00 42 0A 4C 04 4A 53 52 20 53 45 54 4E | #0.B.L.JSR SETN| 00000240: 41 4D 00 4F 0A 56 04 4A 53 52 20 4F 50 45 4E 00 |AM.O.V.JSR OPEN.| 00000250: 68 0A 60 04 3B 22 20 4F 55 54 50 55 54 20 54 4F |h.`.;" OUTPUT TO| 00000260: 20 50 52 49 4E 54 45 52 00 76 0A 6A 04 4C 44 58 | PRINTER.v.j.LDX| 00000270: 20 23 46 49 4C 45 00 85 0A 74 04 4A 53 52 20 43 | #FILE...t.JSR C| 00000280: 48 4B 4F 55 54 00 A0 0A 7E 04 3B 22 20 4C 49 4E |HKOUT...~.;" LIN| 00000290: 45 46 45 45 44 20 3D 20 31 2F 39 20 49 4E 43 48 |EFEED = 1/9 INCH| 000002A0: 00 B0 0A 88 04 4C 44 41 20 23 45 53 43 41 50 45 |.....LDA #ESCAPE| 000002B0: 00 BF 0A 92 04 4A 53 52 20 43 48 52 4F 55 54 00 |.....JSR CHROUT.| 000002C0: CB 0A 9C 04 4C 44 41 20 23 36 35 00 DA 0A A6 04 |....LDA #65.....| 000002D0: 4A 53 52 20 43 48 52 4F 55 54 00 E5 0A B0 04 4C |JSR CHROUT.....L| 000002E0: 44 41 20 23 38 00 F4 0A BA 04 4A 53 52 20 43 48 |DA #8.....JSR CH| 000002F0: 52 4F 55 54 00 05 0B C4 04 3B 22 20 56 45 43 20 |ROUT.....;" VEC | 00000300: 3D 20 4D 41 50 00 13 0B CE 04 4C 44 41 20 23 B3 |= MAP.....LDA #.| 00000310: 4D 41 50 00 1F 0B D8 04 53 54 41 20 56 45 43 00 |MAP.....STA VEC.| 00000320: 2D 0B E2 04 4C 44 41 20 23 B1 4D 41 50 00 3B 0B |-...LDA #.MAP.;.| 00000330: EC 04 53 54 41 20 56 45 43 AA 31 00 58 0B F6 04 |..STA VEC.1.X...| 00000340: 3B 22 20 46 4F 52 20 52 45 47 45 4C 3D 32 35 20 |;" FOR REGEL=25 | 00000350: 44 4F 57 4E 54 4F 20 31 00 64 0B 00 05 4C 44 41 |DOWNTO 1.d...LDA| 00000360: 20 23 32 35 00 72 0B 0A 05 53 54 41 20 52 45 47 | #25.r...STA REG| 00000370: 45 4C 00 7F 0B 14 05 4C 55 53 30 20 4E 4F 50 00 |EL.....LUS0 NOP.| 00000380: A2 0B 1E 05 3B 22 20 5A 45 54 20 50 52 49 4E 54 |....;" ZET PRINT| 00000390: 45 52 20 49 4E 20 47 52 41 46 49 43 53 20 4D 4F |ER IN GRAFICS MO| 000003A0: 44 45 00 B2 0B 28 05 4C 44 41 20 23 45 53 43 41 |DE...(.LDA #ESCA| 000003B0: 50 45 00 C1 0B 32 05 4A 53 52 20 43 48 52 4F 55 |PE...2.JSR CHROU| 000003C0: 54 00 CE 0B 3C 05 4C 44 41 20 23 31 30 33 00 DD |T...<.LDA #103..| 000003D0: 0B 46 05 4A 53 52 20 43 48 52 4F 55 54 00 E8 0B |.F.JSR CHROUT...| 000003E0: 50 05 4C 44 41 20 23 35 00 F7 0B 5A 05 4A 53 52 |P.LDA #5...Z.JSR| 000003F0: 20 43 48 52 4F 55 54 00 03 0C 64 05 4C 44 41 20 | CHROUT...d.LDA | 00000400: 23 36 34 00 12 0C 6E 05 4A 53 52 20 43 48 52 4F |#64...n.JSR CHRO| 00000410: 55 54 00 1D 0C 78 05 4C 44 41 20 23 31 00 2C 0C |UT...x.LDA #1.,.| 00000420: 82 05 4A 53 52 20 43 48 52 4F 55 54 00 51 0C 8C |..JSR CHROUT.Q..| 00000430: 05 3B 22 20 3C 45 53 43 3E 20 C7 20 35 20 31 20 |.;" <ESC> . 5 1 | 00000440: 30 20 3D 20 50 4C 4F 54 54 45 52 20 28 32 35 36 |0 = PLOTTER (256| 00000450: 29 00 67 0C 96 05 3B 22 20 46 4F 52 20 52 59 3D |).g...;" FOR RY=| 00000460: 30 20 54 4F 20 33 39 00 73 0C A0 05 4C 44 41 20 |0 TO 39.s...LDA | 00000470: 23 33 39 00 7E 0C AA 05 53 54 41 20 52 59 00 9A |#39.~...STA RY..| 00000480: 0C B4 05 4C 55 53 31 20 53 45 49 3B 20 22 4E 4F |...LUS1 SEI; "NO| 00000490: 20 49 4E 54 45 52 52 55 50 54 00 A9 0C B9 05 4A | INTERRUPT.....J| 000004A0: 53 52 20 53 57 49 54 43 48 00 C1 0C BE 05 3B 22 |SR SWITCH.....;"| 000004B0: 20 46 4F 52 20 59 3D 37 20 44 4F 57 4E 54 4F 20 | FOR Y=7 DOWNTO | 000004C0: 30 00 CC 0C C8 05 4C 44 59 20 23 37 00 E1 0C D2 |0.....LDY #7....| 000004D0: 05 4C 55 53 32 20 4C 44 41 20 28 56 45 43 29 2C |.LUS2 LDA (VEC),| 000004E0: 59 00 F0 0C DC 05 53 54 41 20 52 41 55 4D 2C 59 |Y.....STA RAUM,Y| 000004F0: 00 F8 0C E6 05 44 45 59 00 05 0D F0 05 42 50 4C |.....DEY.....BPL| 00000500: 20 4C 55 53 32 00 14 0D FA 05 4A 53 52 20 53 57 | LUS2.....JSR SW| 00000510: 49 54 43 48 00 1C 0D FF 05 43 4C 49 00 34 0D 04 |ITCH.....CLI.4..| 00000520: 06 3B 22 20 46 4F 52 20 59 3D 37 20 44 4F 57 4E |.;" FOR Y=7 DOWN| 00000530: 54 4F 20 30 00 3F 0D 0E 06 4C 44 59 20 23 37 00 |TO 0.?...LDY #7.| 00000540: 4F 0D 18 06 4C 55 53 33 20 4C 44 41 20 23 30 00 |O...LUS3 LDA #0.| 00000550: 5C 0D 22 06 53 54 41 20 42 59 54 45 00 74 0D 2C |\.".STA BYTE.t.,| 00000560: 06 3B 22 20 46 4F 52 20 58 3D 37 20 44 4F 57 4E |.;" FOR X=7 DOWN| 00000570: 54 4F 20 30 00 7F 0D 36 06 4C 44 58 20 23 37 00 |TO 0...6.LDX #7.| 00000580: 93 0D 40 06 4C 55 53 34 20 41 53 4C 20 52 41 55 |..@.LUS4 ASL RAU| 00000590: 4D 2C 58 00 9F 0D 4A 06 52 B0 20 42 59 54 45 00 |M,X...J.R. BYTE.| 000005A0: A7 0D 54 06 44 45 58 00 B4 0D 5E 06 42 50 4C 20 |..T.DEX...^.BPL | 000005B0: 4C 55 53 34 00 C8 0D 68 06 3B 22 20 56 45 52 5A |LUS4...h.;" VERZ| 000005C0: 45 4E 44 20 42 59 54 45 00 D5 0D 72 06 4C 44 41 |END BYTE...r.LDA| 000005D0: 20 42 59 54 45 00 E4 0D 7C 06 4A 53 52 20 43 48 | BYTE...|.JSR CH| 000005E0: 52 4F 55 54 00 EC 0D 86 06 44 45 59 00 F9 0D 90 |ROUT.....DEY....| 000005F0: 06 42 50 4C 20 4C 55 53 33 00 0B 0E 9A 06 3B 22 |.BPL LUS3.....;"| 00000600: 20 56 45 43 3A 3D 56 45 43 2B 38 00 16 0E A4 06 | VEC:=VEC+8.....| 00000610: 4C 44 41 20 23 38 00 1E 0E AE 06 43 4C 43 00 2A |LDA #8.....CLC.*| 00000620: 0E B8 06 41 44 43 20 56 45 43 00 36 0E C2 06 53 |...ADC VEC.6...S| 00000630: 54 41 20 56 45 43 00 41 0E CC 06 4C 44 41 20 23 |TA VEC.A...LDA #| 00000640: 30 00 4F 0E D6 06 41 44 43 20 56 45 43 AA 31 00 |0.O...ADC VEC.1.| 00000650: 5D 0E E0 06 53 54 41 20 56 45 43 AA 31 00 68 0E |]...STA VEC.1.h.| 00000660: EA 06 44 45 43 20 52 59 00 75 0E F4 06 42 50 4C |..DEC RY.u...BPL| 00000670: 20 4C 55 53 31 00 86 0E FE 06 3B 22 20 4C 49 4E | LUS1.....;" LIN| 00000680: 45 20 46 45 45 44 00 92 0E 08 07 4C 44 41 20 23 |E FEED.....LDA #| 00000690: 4C 46 00 A1 0E 12 07 4A 53 52 20 43 48 52 4F 55 |LF.....JSR CHROU| 000006A0: 54 00 AF 0E 1C 07 44 45 43 20 52 45 47 45 4C 00 |T.....DEC REGEL.| 000006B0: BC 0E 26 07 42 4E 45 20 4C 55 53 30 00 D8 0E 30 |..&.BNE LUS0...0| 000006C0: 07 3B 22 20 4E 4F 52 4D 41 4C 45 20 4C 49 4E 45 |.;" NORMALE LINE| 000006D0: 20 53 50 41 43 49 4E 47 00 E8 0E 3A 07 4C 44 41 | SPACING...:.LDA| 000006E0: 20 23 45 53 43 41 50 45 00 F7 0E 44 07 4A 53 52 | #ESCAPE...D.JSR| 000006F0: 20 43 48 52 4F 55 54 00 03 0F 4E 07 4C 44 41 20 | CHROUT...N.LDA | 00000700: 23 35 30 00 12 0F 58 07 4A 53 52 20 43 48 52 4F |#50...X.JSR CHRO| 00000710: 55 54 00 32 0F 62 07 3B 22 20 4E 4F 52 4D 41 4C |UT.2.b.;" NORMAL| 00000720: 45 20 4F 55 54 50 55 54 20 4F 4E 20 53 43 52 45 |E OUTPUT ON SCRE| 00000730: 45 4E 00 41 0F 6C 07 4A 53 52 20 43 4C 52 43 48 |EN.A.l.JSR CLRCH| 00000740: 4E 00 4F 0F 76 07 4C 44 41 20 23 46 49 4C 45 00 |N.O.v.LDA #FILE.| 00000750: 5D 0F 80 07 4A 53 52 20 43 4C 4F 53 45 00 65 0F |]...JSR CLOSE.e.| 00000760: 8A 07 52 54 53 00 6B 0F 94 07 3B 00 8F 0F A8 07 |..RTS.k...;.....| 00000770: 53 57 49 54 43 48 20 4E 4F 50 3B 22 20 4C 45 45 |SWITCH NOP;" LEE| 00000780: 53 54 20 4F 4E 44 45 52 20 4B 45 52 4E 45 4C 00 |ST ONDER KERNEL.| 00000790: 99 0F B2 07 4C 44 41 20 31 00 A3 0F BC 07 45 B0 |....LDA 1.....E.| 000007A0: 20 23 32 00 AD 0F C6 07 53 54 41 20 31 00 B5 0F | #2.....STA 1...| 000007B0: D0 07 52 54 53 00 BB 0F DA 07 3B 00 00 00 34 |..RTS.....;...4 |
......NPR.*...;" HARD-COPY HIRES SCREEN TO.D...;" STAR SG/10 PRINTER.J...;.^.D.F ILE EQU 127.P.N.DEVICE EQU 4...X.ESC APE EQU 27.....LF EQU 10.....SETLF S EQU $FFBA.B...SETNAM EQU $FFBD.X. .O PEN EQU $FFC0.....CHKOUT EQU $E118.. ...CHROUT EQU $FFD2.....CLOSE EQU $FF C3.0.H.CLRCHN EQU $FFCC.F.R.MAP EQU $E000.Z...VEC EQU $FB.N...REGEL E QU $FD.....BYTE EQU $FE.....RY E QU $FF.....;......G $CF00.....JMP HARDCO PY.I...RAUM MEM 8.Z...HARDCOPY NOP.....; " OPEN PRINTER.....LDA #FILE...$.LDX #DE VICE.....LDY #$FF.(.8.JSR SETLFS.3.B.LDA #0.B.L.JSR SETNAM.O.V.JSR OPEN.H.`.;" O UTPUT TO PRINTER.V.J.LDX #FILE...T.JSR C HKOUT. .~.;" LINEFEED = 1/9 INCH.....LDA #ESCAPE.....JSR CHROUT.K...LDA #65.Z... JSR CHROUT.....LDA #8.....JSR CHROUT...D .;" VEC = MAP...N.LDA #.MAP...X.STA VEC. -...LDA #.MAP.;...STA VEC.1.X...;" FOR R EGEL=25 DOWNTO 1.D...LDA #25.R...STA REG EL....LUS0 NOP.....;" ZET PRINTER IN GR AFICS MODE...(.LDA #ESCAPE.A.2.JSR CHROU T.N.<.LDA #103...F.JSR CHROUT...P.LDA #5 ...Z.JSR CHROUT...D.LDA #64...N.JSR CHRO UT...X.LDA #1.,...JSR CHROUT.Q...;" <ESC > G 5 1 0 = PLOTTER (256).G...;" FOR RY= 0 TO 39.S. .LDA #39.~...STA RY.....LUS1 SEI; "NO INTERRUPT.....JSR SWITCH.A...;" FOR Y=7 DOWNTO 0.L.H.LDY #7...R.LUS2 LD A (VEC),Y.....STA RAUM,Y.....DEY.....BPL LUS2.....JSR SWITCH.....CLI.4...;" FOR Y=7 DOWNTO 0.?...LDY #7.O...LUS3 LDA #0. \.".STA BYTE.T.,.;" FOR X=7 DOWNTO 0..6 .LDX #7...@.LUS4 ASL RAUM,X...J.R. BYTE. ..T.DEX...^.BPL LUS4.H.H.;" VERZEND BYTE .U.R.LDA BYTE...|.JSR CHROUT.....DEY.... .BPL LUS3.....;" VEC:=VEC+8.....LDA #8.. ...CLC.*...ADC VEC.6.B.STA VEC.A.L.LDA # 0.O.V.ADC VEC.1.]...STA VEC.1.H...DEC RY .U...BPL LUS1.....;" LINE FEED.....LDA # LF.....JSR CHROUT.....DEC REGEL...&.BNE LUS0.X.0.;" NORMALE LINE SPACING...:.LDA #ESCAPE...D.JSR CHROUT...N.LDA #50...X. JSR CHROUT.2.B.;" NORMALE OUTPUT ON SCRE EN.A.L.JSR CLRCHN.O.V.LDA #FILE.]...JSR CLOSE.E...RTS.K...;.....SWITCH NOP;" LEE ST ONDER KERNEL.....LDA 1.....E. #2...F. STA 1...P.RTS...Z.;...4
> CLICK IMAGE PREVIEW FOR FULL MODAL