IBM-COPY.ASS
FILE INFORMATION
FILENAME(S): IBM-COPY.ASS
FILE TYPE(S): PRG
FILE SIZE: 1.9K
FIRST SEEN: 2025-11-30 21:28:19
APPEARS ON: 1 disk(s)
FILE HASH
9fb320180761685956993a17a3d4bcc646b3a29c73c3422a2b3dfbc6719105ca
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| VCGN D 64007 | IBM-COPY.ASS | PRG | DuncanTwain | 30 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 22 08 0A 00 3B 22 20 48 41 52 44 2D 43 4F |.."...;" HARD-CO|
00000010: 50 59 20 48 49 52 45 53 20 53 43 52 45 45 4E 20 |PY HIRES SCREEN |
00000020: 54 4F 00 3C 08 14 00 3B 22 20 53 54 41 52 20 53 |TO.<...;" STAR S|
00000030: 47 2F 31 30 20 50 52 49 4E 54 45 52 00 42 08 1E |G/10 PRINTER.B..|
00000040: 00 3B 00 56 08 64 00 46 49 4C 45 20 20 20 20 45 |.;.V.d.FILE E|
00000050: 51 55 20 31 32 37 00 68 08 6E 00 44 45 56 49 43 |QU 127.h.n.DEVIC|
00000060: 45 20 20 45 51 55 20 34 00 7B 08 78 00 45 53 43 |E EQU 4.{.x.ESC|
00000070: 41 50 45 20 20 45 51 55 20 32 37 00 8E 08 82 00 |APE EQU 27.....|
00000080: 4C 46 20 20 20 20 20 20 45 51 55 20 31 30 00 A4 |LF EQU 10..|
00000090: 08 8C 00 53 45 54 4C 46 53 20 20 45 51 55 20 24 |...SETLFS EQU $|
000000A0: 46 46 42 41 00 BA 08 96 00 53 45 54 4E 41 4D 20 |FFBA.....SETNAM |
000000B0: 20 45 51 55 20 24 46 46 42 44 00 D0 08 A0 00 4F | EQU $FFBD.....O|
000000C0: 50 45 4E 20 20 20 20 45 51 55 20 24 46 46 43 30 |PEN EQU $FFC0|
000000D0: 00 E6 08 AA 00 43 48 4B 4F 55 54 20 20 45 51 55 |.....CHKOUT EQU|
000000E0: 20 24 45 31 31 38 00 FC 08 B4 00 43 48 52 4F 55 | $E118.....CHROU|
000000F0: 54 20 20 45 51 55 20 24 46 46 44 32 00 12 09 BE |T EQU $FFD2....|
00000100: 00 43 4C 4F 53 45 20 20 20 45 51 55 20 24 46 46 |.CLOSE EQU $FF|
00000110: 43 33 00 28 09 C8 00 43 4C 52 43 48 4E 20 20 45 |C3.(...CLRCHN E|
00000120: 51 55 20 24 46 46 43 43 00 3E 09 D2 00 4D 41 50 |QU $FFCC.>...MAP|
00000130: 20 20 20 20 20 45 51 55 20 24 45 30 30 30 00 52 | EQU $E000.R|
00000140: 09 DC 00 56 45 43 20 20 20 20 20 45 51 55 20 24 |...VEC EQU $|
00000150: 46 42 00 66 09 E6 00 52 45 47 45 4C 20 20 20 45 |FB.f...REGEL E|
00000160: 51 55 20 24 46 44 00 7A 09 F0 00 42 59 54 45 20 |QU $FD.z...BYTE |
00000170: 20 20 20 45 51 55 20 24 46 45 00 8E 09 FA 00 52 | EQU $FE.....R|
00000180: 59 20 20 20 20 20 20 45 51 55 20 24 46 46 00 94 |Y EQU $FF..|
00000190: 09 04 01 3B 00 A1 09 E8 03 B0 47 20 24 43 46 30 |...;......G $CF0|
000001A0: 30 00 B2 09 F2 03 4A 4D 50 20 48 41 52 44 43 4F |0.....JMP HARDCO|
000001B0: 50 59 00 C1 09 FC 03 52 41 55 4D 20 4D 45 4D 20 |PY.....RAUM MEM |
000001C0: 38 00 D2 09 06 04 48 41 52 44 43 4F 50 59 20 4E |8.....HARDCOPY N|
000001D0: 4F 50 00 E6 09 10 04 3B 22 20 4F 50 45 4E 20 50 |OP.....;" OPEN P|
000001E0: 52 49 4E 54 45 52 00 F4 09 1A 04 4C 44 41 20 23 |RINTER.....LDA #|
000001F0: 46 49 4C 45 00 04 0A 24 04 4C 44 58 20 23 44 45 |FILE...$.LDX #DE|
00000200: 56 49 43 45 00 11 0A 2E 04 4C 44 59 20 23 24 46 |VICE.....LDY #$F|
00000210: 46 00 20 0A 38 04 4A 53 52 20 53 45 54 4C 46 53 |F. .8.JSR SETLFS|
00000220: 00 2B 0A 42 04 4C 44 41 20 23 30 00 3A 0A 4C 04 |.+.B.LDA #0.:.L.|
00000230: 4A 53 52 20 53 45 54 4E 41 4D 00 47 0A 56 04 4A |JSR SETNAM.G.V.J|
00000240: 53 52 20 4F 50 45 4E 00 60 0A 60 04 3B 22 20 4F |SR OPEN.`.`.;" O|
00000250: 55 54 50 55 54 20 54 4F 20 50 52 49 4E 54 45 52 |UTPUT TO PRINTER|
00000260: 00 6E 0A 6A 04 4C 44 58 20 23 46 49 4C 45 00 7D |.n.j.LDX #FILE.}|
00000270: 0A 74 04 4A 53 52 20 43 48 4B 4F 55 54 00 98 0A |.t.JSR CHKOUT...|
00000280: 7E 04 3B 22 20 4C 49 4E 45 46 45 45 44 20 3D 20 |~.;" LINEFEED = |
00000290: 31 2F 39 20 49 4E 43 48 00 A8 0A 88 04 4C 44 41 |1/9 INCH.....LDA|
000002A0: 20 23 45 53 43 41 50 45 00 B7 0A 92 04 4A 53 52 | #ESCAPE.....JSR|
000002B0: 20 43 48 52 4F 55 54 00 C3 0A 9C 04 4C 44 41 20 | CHROUT.....LDA |
000002C0: 23 35 31 00 D2 0A A6 04 4A 53 52 20 43 48 52 4F |#51.....JSR CHRO|
000002D0: 55 54 00 DE 0A B0 04 4C 44 41 20 23 32 34 00 ED |UT.....LDA #24..|
000002E0: 0A BA 04 4A 53 52 20 43 48 52 4F 55 54 00 FE 0A |...JSR CHROUT...|
000002F0: C4 04 3B 22 20 56 45 43 20 3D 20 4D 41 50 00 0C |..;" VEC = MAP..|
00000300: 0B CE 04 4C 44 41 20 23 B3 4D 41 50 00 18 0B D8 |...LDA #.MAP....|
00000310: 04 53 54 41 20 56 45 43 00 26 0B E2 04 4C 44 41 |.STA VEC.&...LDA|
00000320: 20 23 B1 4D 41 50 00 34 0B EC 04 53 54 41 20 56 | #.MAP.4...STA V|
00000330: 45 43 AA 31 00 51 0B F6 04 3B 22 20 46 4F 52 20 |EC.1.Q...;" FOR |
00000340: 52 45 47 45 4C 3D 32 35 20 44 4F 57 4E 54 4F 20 |REGEL=25 DOWNTO |
00000350: 31 00 5D 0B 00 05 4C 44 41 20 23 32 35 00 6B 0B |1.]...LDA #25.k.|
00000360: 0A 05 53 54 41 20 52 45 47 45 4C 00 78 0B 14 05 |..STA REGEL.x...|
00000370: 4C 55 53 30 20 4E 4F 50 00 9B 0B 1E 05 3B 22 20 |LUS0 NOP.....;" |
00000380: 5A 45 54 20 50 52 49 4E 54 45 52 20 49 4E 20 47 |ZET PRINTER IN G|
00000390: 52 41 46 49 43 53 20 4D 4F 44 45 00 AB 0B 28 05 |RAFICS MODE...(.|
000003A0: 4C 44 41 20 23 45 53 43 41 50 45 00 BA 0B 32 05 |LDA #ESCAPE...2.|
000003B0: 4A 53 52 20 43 48 52 4F 55 54 00 C6 0B 3C 05 4C |JSR CHROUT...<.L|
000003C0: 44 41 20 23 34 32 00 D5 0B 46 05 4A 53 52 20 43 |DA #42...F.JSR C|
000003D0: 48 52 4F 55 54 00 E0 0B 50 05 4C 44 41 20 23 35 |HROUT...P.LDA #5|
000003E0: 00 EF 0B 5A 05 4A 53 52 20 43 48 52 4F 55 54 00 |...Z.JSR CHROUT.|
000003F0: FB 0B 64 05 4C 44 41 20 23 36 34 00 0A 0C 6E 05 |..d.LDA #64...n.|
00000400: 4A 53 52 20 43 48 52 4F 55 54 00 15 0C 78 05 4C |JSR CHROUT...x.L|
00000410: 44 41 20 23 31 00 24 0C 82 05 4A 53 52 20 43 48 |DA #1.$...JSR CH|
00000420: 52 4F 55 54 00 49 0C 8C 05 3B 22 20 3C 45 53 43 |ROUT.I...;" <ESC|
00000430: 3E 20 2A 20 35 20 31 20 30 20 3D 20 50 4C 4F 54 |> * 5 1 0 = PLOT|
00000440: 54 45 52 20 28 32 35 36 29 00 5F 0C 96 05 3B 22 |TER (256)._...;"|
00000450: 20 46 4F 52 20 52 59 3D 30 20 54 4F 20 33 39 00 | FOR RY=0 TO 39.|
00000460: 6B 0C A0 05 4C 44 41 20 23 33 39 00 76 0C AA 05 |k...LDA #39.v...|
00000470: 53 54 41 20 52 59 00 92 0C B4 05 4C 55 53 31 20 |STA RY.....LUS1 |
00000480: 53 45 49 3B 20 22 4E 4F 20 49 4E 54 45 52 52 55 |SEI; "NO INTERRU|
00000490: 50 54 00 A1 0C B9 05 4A 53 52 20 53 57 49 54 43 |PT.....JSR SWITC|
000004A0: 48 00 B9 0C BE 05 3B 22 20 46 4F 52 20 59 3D 37 |H.....;" FOR Y=7|
000004B0: 20 44 4F 57 4E 54 4F 20 30 00 C4 0C C8 05 4C 44 | DOWNTO 0.....LD|
000004C0: 59 20 23 37 00 D9 0C D2 05 4C 55 53 32 20 4C 44 |Y #7.....LUS2 LD|
000004D0: 41 20 28 56 45 43 29 2C 59 00 E8 0C DC 05 53 54 |A (VEC),Y.....ST|
000004E0: 41 20 52 41 55 4D 2C 59 00 F0 0C E6 05 44 45 59 |A RAUM,Y.....DEY|
000004F0: 00 FD 0C F0 05 42 50 4C 20 4C 55 53 32 00 0C 0D |.....BPL LUS2...|
00000500: FA 05 4A 53 52 20 53 57 49 54 43 48 00 14 0D FF |..JSR SWITCH....|
00000510: 05 43 4C 49 00 2C 0D 04 06 3B 22 20 46 4F 52 20 |.CLI.,...;" FOR |
00000520: 59 3D 37 20 44 4F 57 4E 54 4F 20 30 00 37 0D 0E |Y=7 DOWNTO 0.7..|
00000530: 06 4C 44 59 20 23 37 00 47 0D 18 06 4C 55 53 33 |.LDY #7.G...LUS3|
00000540: 20 4C 44 41 20 23 30 00 54 0D 22 06 53 54 41 20 | LDA #0.T.".STA |
00000550: 42 59 54 45 00 6C 0D 2C 06 3B 22 20 46 4F 52 20 |BYTE.l.,.;" FOR |
00000560: 58 3D 37 20 44 4F 57 4E 54 4F 20 30 00 77 0D 36 |X=7 DOWNTO 0.w.6|
00000570: 06 4C 44 58 20 23 37 00 8B 0D 40 06 4C 55 53 34 |.LDX #7...@.LUS4|
00000580: 20 41 53 4C 20 52 41 55 4D 2C 58 00 97 0D 4A 06 | ASL RAUM,X...J.|
00000590: 52 B0 20 42 59 54 45 00 9F 0D 54 06 44 45 58 00 |R. BYTE...T.DEX.|
000005A0: AC 0D 5E 06 42 50 4C 20 4C 55 53 34 00 C0 0D 68 |..^.BPL LUS4...h|
000005B0: 06 3B 22 20 56 45 52 5A 45 4E 44 20 42 59 54 45 |.;" VERZEND BYTE|
000005C0: 00 CD 0D 72 06 4C 44 41 20 42 59 54 45 00 DC 0D |...r.LDA BYTE...|
000005D0: 7C 06 4A 53 52 20 43 48 52 4F 55 54 00 E4 0D 86 ||.JSR CHROUT....|
000005E0: 06 44 45 59 00 F1 0D 90 06 42 50 4C 20 4C 55 53 |.DEY.....BPL LUS|
000005F0: 33 00 03 0E 9A 06 3B 22 20 56 45 43 3A 3D 56 45 |3.....;" VEC:=VE|
00000600: 43 2B 38 00 0E 0E A4 06 4C 44 41 20 23 38 00 16 |C+8.....LDA #8..|
00000610: 0E AE 06 43 4C 43 00 22 0E B8 06 41 44 43 20 56 |...CLC."...ADC V|
00000620: 45 43 00 2E 0E C2 06 53 54 41 20 56 45 43 00 39 |EC.....STA VEC.9|
00000630: 0E CC 06 4C 44 41 20 23 30 00 47 0E D6 06 41 44 |...LDA #0.G...AD|
00000640: 43 20 56 45 43 AA 31 00 55 0E E0 06 53 54 41 20 |C VEC.1.U...STA |
00000650: 56 45 43 AA 31 00 60 0E EA 06 44 45 43 20 52 59 |VEC.1.`...DEC RY|
00000660: 00 6D 0E F4 06 42 50 4C 20 4C 55 53 31 00 7E 0E |.m...BPL LUS1.~.|
00000670: FE 06 3B 22 20 4C 49 4E 45 20 46 45 45 44 00 8A |..;" LINE FEED..|
00000680: 0E 08 07 4C 44 41 20 23 4C 46 00 99 0E 12 07 4A |...LDA #LF.....J|
00000690: 53 52 20 43 48 52 4F 55 54 00 A7 0E 1C 07 44 45 |SR CHROUT.....DE|
000006A0: 43 20 52 45 47 45 4C 00 B4 0E 26 07 42 4E 45 20 |C REGEL...&.BNE |
000006B0: 4C 55 53 30 00 C9 0E 30 07 3B 22 20 52 45 53 45 |LUS0...0.;" RESE|
000006C0: 54 20 50 52 49 4E 54 45 52 00 D9 0E 3A 07 4C 44 |T PRINTER...:.LD|
000006D0: 41 20 23 45 53 43 41 50 45 00 E8 0E 44 07 4A 53 |A #ESCAPE...D.JS|
000006E0: 52 20 43 48 52 4F 55 54 00 F4 0E 4E 07 4C 44 41 |R CHROUT...N.LDA|
000006F0: 20 23 36 34 00 03 0F 58 07 4A 53 52 20 43 48 52 | #64...X.JSR CHR|
00000700: 4F 55 54 00 23 0F 62 07 3B 22 20 4E 4F 52 4D 41 |OUT.#.b.;" NORMA|
00000710: 4C 45 20 4F 55 54 50 55 54 20 4F 4E 20 53 43 52 |LE OUTPUT ON SCR|
00000720: 45 45 4E 00 32 0F 6C 07 4A 53 52 20 43 4C 52 43 |EEN.2.l.JSR CLRC|
00000730: 48 4E 00 40 0F 76 07 4C 44 41 20 23 46 49 4C 45 |HN.@.v.LDA #FILE|
00000740: 00 4E 0F 80 07 4A 53 52 20 43 4C 4F 53 45 00 56 |.N...JSR CLOSE.V|
00000750: 0F 8A 07 52 54 53 00 5C 0F 94 07 3B 00 80 0F A8 |...RTS.\...;....|
00000760: 07 53 57 49 54 43 48 20 4E 4F 50 3B 22 20 4C 45 |.SWITCH NOP;" LE|
00000770: 45 53 54 20 4F 4E 44 45 52 20 4B 45 52 4E 45 4C |EST ONDER KERNEL|
00000780: 00 8A 0F B2 07 4C 44 41 20 31 00 94 0F BC 07 45 |.....LDA 1.....E|
00000790: B0 20 23 32 00 9E 0F C6 07 53 54 41 20 31 00 A6 |. #2.....STA 1..|
000007A0: 0F D0 07 52 54 53 00 AC 0F DA 07 3B 00 00 00 C9 |...RTS.....;....|
.."...;" HARD-COPY HIRES SCREEN TO.<...;
" STAR SG/10 PRINTER.B...;.V.D.FILE E
QU 127.H.N.DEVICE EQU 4.{.X.ESCAPE EQU
27.....LF EQU 10.....SETLFS EQU $
FFBA.....SETNAM EQU $FFBD.P. .OPEN E
QU $FFC0.....CHKOUT EQU $E118.....CHROU
T EQU $FFD2.....CLOSE EQU $FFC3.(.H.C
LRCHN EQU $FFCC.>.R.MAP EQU $E000.R
...VEC EQU $FB.F...REGEL EQU $FD.Z
...BYTE EQU $FE.....RY EQU $FF..
...;......G $CF00.....JMP HARDCOPY.A...R
AUM MEM 8.R...HARDCOPY NOP.....;" OPEN P
RINTER.....LDA #FILE...$.LDX #DEVICE....
.LDY #$FF. .8.JSR SETLFS.+.B.LDA #0.:.L.
JSR SETNAM.G.V.JSR OPEN.`.`.;" OUTPUT TO
PRINTER.N.J.LDX #FILE.}.T.JSR CHKOUT...
~.;" LINEFEED = 1/9 INCH.....LDA #ESCAPE
.....JSR CHROUT.C...LDA #51.R...JSR CHRO
UT.....LDA #24.....JSR CHROUT...D.;" VEC
= MAP...N.LDA #.MAP...X.STA VEC.&...LDA
#.MAP.4...STA VEC.1.Q...;" FOR REGEL=25
DOWNTO 1.]...LDA #25.K...STA REGEL.X...
LUS0 NOP.....;" ZET PRINTER IN GRAFICS M
ODE...(.LDA #ESCAPE...2.JSR CHROUT.F.<.L
DA #42.U.F.JSR CHROUT...P.LDA #5...Z.JSR
CHROUT...D.LDA #64...N.JSR CHROUT...X.L
DA #1.$...JSR CHROUT.I...;" <ESC> * 5 1
0 = PLOTTER (256)._...;" FOR RY=0 TO 39.
K. .LDA #39.V...STA RY.....LUS1 SEI; "NO
INTERRUPT.....JSR SWITCH.....;" FOR Y=7
DOWNTO 0.D.H.LDY #7.Y.R.LUS2 LDA (VEC),
Y.....STA RAUM,Y.....DEY.....BPL LUS2...
..JSR SWITCH.....CLI.,...;" FOR Y=7 DOWN
TO 0.7...LDY #7.G...LUS3 LDA #0.T.".STA
BYTE.L.,.;" FOR X=7 DOWNTO 0.W.6.LDX #7.
..@.LUS4 ASL RAUM,X...J.R. BYTE...T.DEX.
..^.BPL LUS4...H.;" VERZEND BYTE.M.R.LDA
BYTE...|.JSR CHROUT.....DEY.....BPL LUS
3.....;" VEC:=VEC+8.....LDA #8.....CLC."
...ADC VEC...B.STA VEC.9.L.LDA #0.G.V.AD
C VEC.1.U...STA VEC.1.`...DEC RY.M...BPL
LUS1.~...;" LINE FEED.....LDA #LF.....J
SR CHROUT.....DEC REGEL...&.BNE LUS0.I.0
.;" RESET PRINTER.Y.:.LDA #ESCAPE...D.JS
R CHROUT...N.LDA #64...X.JSR CHROUT.#.B.
;" NORMALE OUTPUT ON SCREEN.2.L.JSR CLRC
HN.@.V.LDA #FILE.N...JSR CLOSE.V...RTS.\
...;.....SWITCH NOP;" LEEST ONDER KERNEL
.....LDA 1.....E. #2...F.STA 1...P.RTS..
.Z.;...I
> CLICK IMAGE PREVIEW FOR FULL MODAL