COPY.PAL
FILE INFORMATION
FILENAME(S): COPY.PAL
FILE TYPE(S): PRG
FILE SIZE: 1.1K
FIRST SEEN: 2025-11-30 18:05:27
APPEARS ON: 1 disk(s)
FILE HASH
6858df50a269f41264e335111c57175e593a6adbf0b4aafe37dd28e14cca6143
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| LOADSTAR 69 S 1 | COPY.PAL | PRG | Xii | 25 | 9 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 15 08 64 00 9F 32 2C 38 2C 31 2C 22 30 3A |....d..2,8,1,"0:| 00000010: 43 4F 50 59 22 00 1E 08 6E 00 9E 37 30 30 00 24 |COPY"...n..700.$| 00000020: 08 78 00 3B 00 30 08 82 00 2E 4F 50 54 20 4F 32 |.x.;.0....OPT O2| 00000030: 00 36 08 8C 00 3B 00 48 08 96 00 58 53 41 44 38 |.6...;.H...XSAD8| 00000040: 41 20 B2 24 41 44 38 41 00 5B 08 A0 00 58 53 41 |A .$AD8A.[...XSA| 00000050: 45 46 44 20 3D 24 41 45 46 44 20 00 6E 08 AA 00 |EFD =$AEFD .n...| 00000060: 58 53 42 37 46 37 20 3D 24 42 37 46 37 20 00 74 |XSB7F7 =$B7F7 .t| 00000070: 08 B4 00 3B 00 91 08 BE 00 4A 53 52 20 58 53 41 |...;.....JSR XSA| 00000080: 45 46 44 20 3B 20 46 45 54 43 48 20 43 4F 4D 4D |EFD ; FETCH COMM| 00000090: 41 00 B2 08 C8 00 4A 53 52 20 58 53 41 44 38 41 |A.....JSR XSAD8A| 000000A0: 20 3B 20 A1 20 53 4F 55 52 43 45 20 49 4E 20 46 | ; . SOURCE IN F| 000000B0: 41 43 00 D2 08 D2 00 4A 53 52 20 58 53 42 37 46 |AC.....JSR XSB7F| 000000C0: 37 20 3B 20 43 91 56 45 52 54 20 A4 20 B5 45 47 |7 ; C.VERT . .EG| 000000D0: 45 52 00 F8 08 DC 00 53 54 59 20 24 42 30 20 20 |ER.....STY $B0 | 000000E0: 20 20 3B 20 28 24 42 30 29 20 B2 B1 20 53 4F 55 | ; ($B0) .. SOU| 000000F0: 52 43 45 20 41 44 44 52 00 09 09 E6 00 53 54 41 |RCE ADDR.....STA| 00000100: 20 24 42 31 20 20 20 20 3B 00 26 09 F0 00 4A 53 | $B1 ;.&...JS| 00000110: 52 20 58 53 41 45 46 44 20 3B 20 46 45 54 43 48 |R XSAEFD ; FETCH| 00000120: 20 43 4F 4D 4D 41 00 45 09 FA 00 4A 53 52 20 58 | COMMA.E...JSR X| 00000130: 53 41 44 38 41 20 3B 20 A1 20 44 45 53 54 20 49 |SAD8A ; . DEST I| 00000140: 4E 20 46 41 43 00 65 09 04 01 4A 53 52 20 58 53 |N FAC.e...JSR XS| 00000150: 42 37 46 37 20 3B 20 43 91 56 45 52 54 20 A4 20 |B7F7 ; C.VERT . | 00000160: B5 45 47 45 52 00 89 09 0E 01 53 54 59 20 24 42 |.EGER.....STY $B| 00000170: 32 20 20 20 20 3B 20 28 24 42 32 29 20 B2 B1 20 |2 ; ($B2) .. | 00000180: 44 45 53 54 20 41 44 44 52 00 9A 09 18 01 53 54 |DEST ADDR.....ST| 00000190: 41 20 24 42 33 20 20 20 20 3B 00 B7 09 22 01 4A |A $B3 ;...".J| 000001A0: 53 52 20 58 53 41 45 46 44 20 3B 20 46 45 54 43 |SR XSAEFD ; FETC| 000001B0: 48 20 43 4F 4D 4D 41 00 DC 09 2C 01 4A 53 52 20 |H COMMA...,.JSR | 000001C0: 58 53 41 44 38 41 20 3B 20 A1 20 42 59 54 45 20 |XSAD8A ; . BYTE | 000001D0: 43 4F 55 4E 54 20 49 4E 20 46 41 43 00 FC 09 36 |COUNT IN FAC...6| 000001E0: 01 4A 53 52 20 58 53 42 37 46 37 20 3B 20 43 91 |.JSR XSB7F7 ; C.| 000001F0: 56 45 52 54 20 A4 20 B5 45 47 45 52 00 1D 0A 40 |VERT . .EGER...@| 00000200: 01 45 B0 20 23 24 46 46 20 20 20 3B 20 91 45 27 |.E. #$FF ; .E'| 00000210: 53 20 43 4F 4D 50 20 4F 46 20 4D 53 42 00 3C 0A |S COMP OF MSB.<.| 00000220: 4A 01 53 54 41 20 24 42 35 20 20 20 20 3B 20 20 |J.STA $B5 ; | 00000230: 53 A4 52 45 20 49 54 20 41 57 41 59 00 4D 0A 54 |S.RE IT AWAY.M.T| 00000240: 01 54 59 41 20 20 20 20 20 20 20 20 3B 00 6E 0A |.TYA ;.n.| 00000250: 5E 01 45 B0 20 23 24 46 46 20 20 20 3B 20 91 45 |^.E. #$FF ; .E| 00000260: 27 53 20 43 4F 4D 50 20 4F 46 20 4C 53 42 00 8D |'S COMP OF LSB..| 00000270: 0A 68 01 53 54 41 20 24 42 34 20 20 20 20 3B 20 |.h.STA $B4 ; | 00000280: 20 53 A4 52 45 20 49 54 20 41 57 41 59 00 B4 0A | S.RE IT AWAY...| 00000290: 72 01 49 4E 43 20 24 42 34 20 20 20 20 3B 20 47 |r.INC $B4 ; G| 000002A0: 45 4E 45 52 41 54 45 20 54 57 4F 27 53 20 43 4F |ENERATE TWO'S CO| 000002B0: 4D 50 4C 2E 00 D8 0A 7C 01 42 4E 45 20 44 4E 49 |MPL....|.BNE DNI| 000002C0: 20 20 20 20 3B 20 20 4F 46 20 54 48 45 20 42 59 | ; OF THE BY| 000002D0: 54 45 20 43 4F 55 4E 54 00 E9 0A 86 01 49 4E 43 |TE COUNT.....INC| 000002E0: 20 24 42 35 20 20 20 20 3B 00 EF 0A 90 01 3B 00 | $B5 ;.....;.| 000002F0: 14 0B 9A 01 44 4E 49 20 4C 44 59 20 23 30 20 3B |....DNI LDY #0 ;| 00000300: 20 49 4E 49 54 20 49 4E 44 45 58 20 52 45 47 49 | INIT INDEX REGI| 00000310: 53 54 45 52 00 39 0B A4 01 4A 33 37 41 33 20 4C |STER.9...J37A3 L| 00000320: 44 41 20 28 24 42 30 29 2C 59 20 3B 20 46 45 54 |DA ($B0),Y ; FET| 00000330: 43 48 20 41 20 42 59 54 45 00 57 0B AE 01 53 54 |CH A BYTE.W...ST| 00000340: 41 20 28 24 42 32 29 2C 59 20 3B 20 53 A4 52 45 |A ($B2),Y ; S.RE| 00000350: 20 41 20 42 59 54 45 00 7A 0B B8 01 49 4E 59 20 | A BYTE.z...INY | 00000360: 20 20 20 20 20 20 20 20 3B 20 55 50 44 41 54 45 | ; UPDATE| 00000370: 20 49 4E 44 45 58 20 52 45 47 00 8C 0B C2 01 42 | INDEX REG.....B| 00000380: 4E 45 20 44 49 50 20 20 20 20 20 3B 00 B0 0B CC |NE DIP ;....| 00000390: 01 49 4E 43 20 24 42 31 20 20 20 20 20 3B 20 55 |.INC $B1 ; U| 000003A0: 50 44 41 54 45 20 50 4E 54 52 20 4D 53 42 27 53 |PDATE PNTR MSB'S| 000003B0: 00 D6 0B D6 01 49 4E 43 20 24 42 33 20 20 20 20 |.....INC $B3 | 000003C0: 20 3B 20 20 91 4C 59 20 57 48 45 4E 20 4E 45 43 | ; .LY WHEN NEC| 000003D0: 45 53 53 41 52 59 00 DC 0B E0 01 3B 00 01 0C EA |ESSARY.....;....| 000003E0: 01 44 49 50 20 49 4E 43 20 24 42 34 20 3B 20 49 |.DIP INC $B4 ; I| 000003F0: 4E 43 8F 45 4E 54 20 54 57 4F 27 53 20 43 4F 4D |NC.ENT TWO'S COM| 00000400: 50 00 26 0C F4 01 42 4E 45 20 4A 33 37 41 33 20 |P.&...BNE J37A3 | 00000410: 20 20 3B 20 20 4F 46 20 54 48 45 20 42 59 54 45 | ; OF THE BYTE| 00000420: 20 43 4F 55 4E 54 00 4C 0C FE 01 49 4E 43 20 24 | COUNT.L...INC $| 00000430: 42 35 20 20 20 20 20 3B 20 4C 4F 4F 50 20 42 41 |B5 ; LOOP BA| 00000440: 43 4B 20 57 48 49 4C 45 20 54 48 45 00 71 0C 08 |CK WHILE THE.q..| 00000450: 02 42 4E 45 20 4A 33 37 41 33 20 20 20 3B 20 20 |.BNE J37A3 ; | 00000460: 43 4F 55 4E 54 20 49 53 20 4E 45 47 41 54 49 56 |COUNT IS NEGATIV| 00000470: 45 00 92 0C 12 02 52 54 53 20 20 20 20 20 20 20 |E.....RTS | 00000480: 20 20 3B 20 A1 20 42 41 43 4B 20 A4 20 42 41 53 | ; . BACK . BAS| 00000490: 49 43 00 06 00 |IC... |
....D..2,8,1,"0:COPY"...N..700.$.X.;.0..
..OPT O2.6...;.H...XSAD8A .$AD8A.[. .XSA
EFD =$AEFD .N...XSB7F7 =$B7F7 .T...;....
.JSR XSAEFD ; FETCH COMMA...H.JSR XSAD8A
; . SOURCE IN FAC.R.R.JSR XSB7F7 ; C.VE
RT . .EGER.....STY $B0 ; ($B0) .. SOU
RCE ADDR.....STA $B1 ;.&...JSR XSAEFD
; FETCH COMMA.E...JSR XSAD8A ; . DEST I
N FAC.E...JSR XSB7F7 ; C.VERT . .EGER...
..STY $B2 ; ($B2) .. DEST ADDR.....ST
A $B3 ;...".JSR XSAEFD ; FETCH COMMA.
..,.JSR XSAD8A ; . BYTE COUNT IN FAC...6
.JSR XSB7F7 ; C.VERT . .EGER...@.E. #$FF
; .E'S COMP OF MSB.<.J.STA $B5 ;
S.RE IT AWAY.M.T.TYA ;.N.^.E. #$F
F ; .E'S COMP OF LSB...H.STA $B4 ;
S.RE IT AWAY...R.INC $B4 ; GENERATE
TWO'S COMPL..X.|.BNE DNI ; OF THE BY
TE COUNT.....INC $B5 ;.....;.....DNI
LDY #0 ; INIT INDEX REGISTER.9...J37A3 L
DA ($B0),Y ; FETCH A BYTE.W...STA ($B2),
Y ; S.RE A BYTE.Z...INY ; UPDATE
INDEX REG...B.BNE DIP ;...L.INC $B1
; UPDATE PNTR MSB'S.V.V.INC $B3
; .LY WHEN NECESSARY.....;.....DIP INC
$B4 ; INC.ENT TWO'S COMP.&...BNE J37A3
; OF THE BYTE COUNT.L...INC $B5 ;
LOOP BACK WHILE THE.Q...BNE J37A3 ;
COUNT IS NEGATIVE.....RTS ; . BA
CK . BASIC...
> CLICK IMAGE PREVIEW FOR FULL MODAL