BACKUP.PAL
FILE INFORMATION
FILENAME(S): BACKUP.PAL
FILE TYPE(S): PRG
FILE SIZE: 2.3K
FIRST SEEN: 2025-11-30 18:12:37
APPEARS ON: 1 disk(s)
FILE HASH
b583de158a8d96913bd8926d914d58686bc5d3aadc69f8cce5dd35c5f2e99816
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| 1541 DEVELOPMENT | BACKUP.PAL | PRG | Sailor, Ganheden | 14 | 14 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 12 08 64 00 8F 20 42 41 43 4B 55 50 2E 50 |....d.. BACKUP.P|
00000010: 41 4C 00 18 08 6E 00 8F 00 31 08 78 00 9F 20 32 |AL...n...1.x.. 2|
00000020: 2C 38 2C 32 2C 22 40 30 3A 4D 2E 42 2C 50 2C 57 |,8,2,"@0:M.B,P,W|
00000030: 22 00 37 08 82 00 8F 00 42 08 8C 00 9E 34 30 39 |".7.....B....409|
00000040: 36 30 00 48 08 96 00 3B 00 56 08 A0 00 2E 4F 50 |60.H...;.V....OP|
00000050: 54 20 50 2C 4F 32 00 5C 08 AA 00 3B 00 75 08 B4 |T P,O2.\...;.u..|
00000060: 00 3B 20 4D AB 52 20 AD 20 4D AB 57 20 52 4F 55 |.; M.R . M.W ROU|
00000070: 54 49 4E 45 53 00 7B 08 BE 00 3B 00 88 08 C8 00 |TINES.{...;.....|
00000080: AC B2 20 24 43 30 30 30 00 8E 08 D2 00 3B 00 A6 |.. $C000.....;..|
00000090: 08 DC 00 3B 20 52 41 4D 20 4C 4F 43 41 54 49 91 |...; RAM LOCATI.|
000000A0: 53 20 55 53 45 44 00 BF 08 E6 00 3B 20 AB AB AB |S USED.....; ...|
000000B0: AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB 00 |................|
000000C0: E5 08 F0 00 50 4F B5 20 B2 20 24 30 30 46 42 20 |....PO. . $00FB |
000000D0: 3B 50 4F B5 45 52 20 A4 20 87 AD 57 52 49 54 45 |;PO.ER . ..WRITE|
000000E0: 20 50 41 47 45 00 EB 08 FA 00 3B 00 03 09 04 01 | PAGE.....;.....|
000000F0: 3B 20 52 4F 4D 20 52 4F 55 54 49 4E 45 53 20 55 |; ROM ROUTINES U|
00000100: 53 45 44 00 1B 09 0E 01 3B 20 AB AB AB AB AB AB |SED.....; ......|
00000110: AB AB AB AB AB AB AB AB AB AB AB 00 42 09 18 01 |............B...|
00000120: 43 48 4B 4F 55 54 20 B2 20 24 46 46 43 39 20 3B |CHKOUT . $FFC9 ;|
00000130: 9F 20 43 48 41 4E 4E 45 4C 20 81 20 4F 55 54 50 |. CHANNEL . OUTP|
00000140: 55 54 00 69 09 22 01 43 48 52 4F 55 54 20 B2 20 |UT.i.".CHROUT . |
00000150: 24 46 46 44 32 20 3B 4F 55 54 50 55 54 20 41 20 |$FFD2 ;OUTPUT A |
00000160: 43 48 41 52 41 43 54 45 52 00 8E 09 2C 01 9C 43 |CHARACTER...,..C|
00000170: 48 4E 20 B2 20 24 46 46 43 43 20 3B 43 4C 45 41 |HN . $FFCC ;CLEA|
00000180: 52 20 41 4C 4C 20 43 48 41 4E 4E 45 4C 53 00 B0 |R ALL CHANNELS..|
00000190: 09 36 01 43 48 4B 49 4E 20 B2 20 20 24 46 46 43 |.6.CHKIN . $FFC|
000001A0: 36 20 3B 9F 20 43 48 41 4E 4E 45 4C 20 81 20 85 |6 ;. CHANNEL . .|
000001B0: 00 D2 09 40 01 43 48 52 49 4E 20 B2 20 20 24 46 |...@.CHRIN . $F|
000001C0: 46 43 46 20 3B 85 20 41 20 43 48 41 52 41 43 54 |FCF ;. A CHARACT|
000001D0: 45 52 00 D8 09 4A 01 3B 00 F4 09 54 01 3B 20 44 |ER...J.;...T.; D|
000001E0: 49 53 4B 20 4D AB 52 20 26 20 4D AB 57 20 43 4F |ISK M.R & M.W CO|
000001F0: 4D 4D AF 53 00 FA 09 5E 01 3B 00 0A 0A 68 01 4D |MM.S...^.;...h.M|
00000200: 52 20 2E C6 20 22 4D 2D 52 22 00 24 0A 72 01 2E |R .. "M-R".$.r..|
00000210: 42 59 54 45 20 24 30 30 2C 24 30 34 2C 24 46 46 |BYTE $00,$04,$FF|
00000220: 2C 24 38 30 00 2A 0A 7C 01 3B 00 3A 0A 86 01 4D |,$80.*.|.;.:...M|
00000230: 57 20 2E C6 20 22 4D 2D 57 22 00 55 0A 90 01 54 |W .. "M-W".U...T|
00000240: 45 4D 50 20 2E 42 59 54 45 20 24 30 30 2C 24 30 |EMP .BYTE $00,$0|
00000250: 34 2C 24 32 30 00 5B 0A 9A 01 3B 00 7D 0A A4 01 |4,$20.[...;.}...|
00000260: 3B AC AB AB AB AB AB AB AB AB AB AB AB AB AB AB |;...............|
00000270: AB AB AB AB AB AB AB AB AB AB AB AB AC 00 9C 0A |................|
00000280: AE 01 3B AC 20 20 87 20 46 52 4F 4D 20 44 49 53 |..;. . FROM DIS|
00000290: 4B 20 52 4F 55 54 49 4E 45 53 20 AC 00 BE 0A B8 |K ROUTINES .....|
000002A0: 01 3B AC AB AB AB AB AB AB AB AB AB AB AB AB AB |.;..............|
000002B0: AB AB AB AB AB AB AB AB AB AB AB AB AB AC 00 D2 |................|
000002C0: 0A C2 01 3B 20 4D AB 52 20 45 4E 54 52 59 20 50 |...; M.R ENTRY P|
000002D0: 4F B5 00 EE 0A CC 01 3B 20 AB AB AB AB AB AB AB |O......; .......|
000002E0: AB AB AB AB AB AB AB AB AB AB AB AB AB AB 00 FB |................|
000002F0: 0A D6 01 4C 44 41 20 23 24 30 30 00 1A 0B E0 01 |...LDA #$00.....|
00000300: 53 54 41 20 50 4F B5 20 20 3B 50 4F B5 20 A4 20 |STA PO. ;PO. . |
00000310: 46 49 52 53 54 20 48 41 4C 46 00 3B 0B EA 01 53 |FIRST HALF.;...S|
00000320: 54 41 20 4D 52 AA 33 20 20 20 3B 41 53 4B 20 81 |TA MR.3 ;ASK .|
00000330: 20 46 49 52 53 54 20 48 41 4C 46 00 55 0B F4 01 | FIRST HALF.U...|
00000340: 4A 53 52 20 87 49 54 20 3B 87 20 46 49 52 53 54 |JSR .IT ;. FIRST|
00000350: 20 48 41 4C 46 00 5B 0B FE 01 3B 00 68 0B 08 02 | HALF.[...;.h...|
00000360: 4C 44 41 20 23 24 38 30 00 87 0B 12 02 53 54 41 |LDA #$80.....STA|
00000370: 20 50 4F B5 20 20 3B 50 4F B5 20 A4 20 53 45 43 | PO. ;PO. . SEC|
00000380: 91 44 20 48 41 4C 46 00 A8 0B 1C 02 53 54 41 20 |.D HALF.....STA |
00000390: 4D 52 AA 33 20 20 20 3B 41 53 4B 20 81 20 53 45 |MR.3 ;ASK . SE|
000003A0: 43 91 44 20 48 41 4C 46 00 C2 0B 26 02 4A 53 52 |C.D HALF...&.JSR|
000003B0: 20 87 49 54 20 3B 87 20 53 45 43 91 44 20 48 41 | .IT ;. SEC.D HA|
000003C0: 4C 46 00 C8 0B 30 02 3B 00 E2 0B 3A 02 52 54 53 |LF...0.;...:.RTS|
000003D0: 20 20 20 20 20 20 20 20 3B 8E 20 A4 20 42 41 53 | ;. . BAS|
000003E0: 49 43 00 E8 0B 44 02 3B 00 0A 0C 4E 02 3B 20 53 |IC...D.;...N.; S|
000003F0: 55 42 52 4F 55 54 49 4E 45 20 A4 20 87 20 49 4E |UBROUTINE . . IN|
00000400: 20 48 41 4C 46 20 50 41 47 45 00 30 0C 58 02 3B | HALF PAGE.0.X.;|
00000410: 20 AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB | ...............|
00000420: AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB |................|
00000430: 00 5E 0C 62 02 87 49 54 20 4C 44 58 20 23 24 30 |.^.b..IT LDX #$0|
00000440: 46 20 3B 50 52 45 50 41 52 45 20 43 48 41 4E 4E |F ;PREPARE CHANN|
00000450: 45 4C 20 31 35 20 81 20 4F 55 54 50 55 54 00 6D |EL 15 . OUTPUT.m|
00000460: 0C 6C 02 4A 53 52 20 43 48 4B 4F 55 54 00 73 0C |.l.JSR CHKOUT.s.|
00000470: 76 02 3B 00 80 0C 80 02 4C 44 58 20 23 24 30 30 |v.;.....LDX #$00|
00000480: 00 A1 0C 8A 02 4C 4F 4F 50 31 20 4C 44 41 20 4D |.....LOOP1 LDA M|
00000490: 52 2C 58 20 3B 53 80 20 4D AB 52 20 43 4F 4D 4D |R,X ;S. M.R COMM|
000004A0: AF 00 B0 0C 94 02 4A 53 52 20 43 48 52 4F 55 54 |......JSR CHROUT|
000004B0: 00 B8 0C 9E 02 49 4E 58 00 C5 0C A8 02 43 50 58 |.....INX.....CPX|
000004C0: 20 23 24 30 37 00 D3 0C B2 02 42 4E 45 20 4C 4F | #$07.....BNE LO|
000004D0: 4F 50 31 00 D9 0C BC 02 3B 00 FA 0C C6 02 4A 53 |OP1.....;.....JS|
000004E0: 52 20 9C 43 48 4E 20 3B 20 43 4C 45 41 52 20 54 |R .CHN ; CLEAR T|
000004F0: 48 45 20 43 48 41 4E 4E 45 4C 00 00 0D D0 02 3B |HE CHANNEL.....;|
00000500: 00 25 0D DA 02 4C 44 58 20 23 24 30 46 20 3B 50 |.%...LDX #$0F ;P|
00000510: 52 45 50 41 52 45 20 43 48 41 4E 4E 45 4C 20 31 |REPARE CHANNEL 1|
00000520: 35 20 81 20 85 00 33 0D E4 02 4A 53 52 20 43 48 |5 . ..3...JSR CH|
00000530: 4B 49 4E 00 39 0D EE 02 3B 00 46 0D F8 02 4C 44 |KIN.9...;.F...LD|
00000540: 59 20 23 24 30 30 00 5A 0D 02 03 4C 4F 4F 50 32 |Y #$00.Z...LOOP2|
00000550: 20 4A 53 52 20 43 48 52 49 4E 00 6A 0D 0C 03 53 | JSR CHRIN.j...S|
00000560: 54 41 20 28 50 4F B5 29 2C 59 00 72 0D 16 03 49 |TA (PO.),Y.r...I|
00000570: 4E 59 00 7F 0D 20 03 43 50 59 20 23 24 38 31 00 |NY... .CPY #$81.|
00000580: 8D 0D 2A 03 42 4E 45 20 4C 4F 4F 50 32 00 93 0D |..*.BNE LOOP2...|
00000590: 34 03 3B 00 B4 0D 3E 03 4A 53 52 20 9C 43 48 4E |4.;...>.JSR .CHN|
000005A0: 20 3B 20 43 4C 45 41 52 20 54 48 45 20 43 48 41 | ; CLEAR THE CHA|
000005B0: 4E 4E 45 4C 00 CE 0D 48 03 52 54 53 20 3B 80 20 |NNEL...H.RTS ;. |
000005C0: 4F 46 20 87 20 48 41 4C 46 20 50 41 47 45 00 D4 |OF . HALF PAGE..|
000005D0: 0D 52 03 3B 00 F6 0D 5C 03 3B AC AB AB AB AB AB |.R.;...\.;......|
000005E0: AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB |................|
000005F0: AB AB AB AB AB AC 00 15 0E 66 03 3B AC 20 20 53 |.........f.;. S|
00000600: 80 20 A4 20 44 49 53 4B 20 52 4F 55 54 49 4E 45 |. . DISK ROUTINE|
00000610: 53 20 20 20 AC 00 37 0E 70 03 3B AC AB AB AB AB |S ..7.p.;.....|
00000620: AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB |................|
00000630: AB AB AB AB AB AB AC 00 51 0E 7A 03 3B 20 46 49 |........Q.z.; FI|
00000640: 52 53 54 20 4D AB 57 20 45 4E 54 52 59 20 50 4F |RST M.W ENTRY PO|
00000650: B5 00 6D 0E 84 03 3B 20 AB AB AB AB AB AB AB AB |..m...; ........|
00000660: AB AB AB AB AB AB AB AB AB AB AB AB AB 00 9C 0E |................|
00000670: 8E 03 4D 52 49 54 45 20 4C 44 41 20 23 24 30 30 |..MRITE LDA #$00|
00000680: 20 3B 49 4E 49 54 49 41 4C 49 5A 45 20 50 41 52 | ;INITIALIZE PAR|
00000690: 54 20 50 41 47 45 20 50 4F B5 45 52 00 A9 0E 98 |T PAGE PO.ER....|
000006A0: 03 53 54 41 20 54 45 4D 50 00 B7 0E A2 03 42 45 |.STA TEMP.....BE|
000006B0: 51 20 45 4E 54 45 52 00 BD 0E AC 03 3B 00 D0 0E |Q ENTER.....;...|
000006C0: B6 03 4C 4F 4F 50 33 20 4C 44 41 20 54 45 4D 50 |..LOOP3 LDA TEMP|
000006D0: 00 D8 0E C0 03 43 4C 43 00 E5 0E CA 03 41 44 43 |.....CLC.....ADC|
000006E0: 20 23 24 32 30 00 F2 0E D4 03 53 54 41 20 54 45 | #$20.....STA TE|
000006F0: 4D 50 00 FE 0E DE 03 42 45 51 20 44 91 45 00 04 |MP.....BEQ D.E..|
00000700: 0F E8 03 3B 00 34 0F F2 03 45 4E 54 45 52 20 4C |...;.4...ENTER L|
00000710: 44 58 20 23 24 30 46 20 3B 50 52 45 50 41 52 45 |DX #$0F ;PREPARE|
00000720: 20 43 48 41 4E 4E 45 4C 20 31 35 20 81 20 4F 55 | CHANNEL 15 . OU|
00000730: 54 50 55 54 00 43 0F FC 03 4A 53 52 20 43 48 4B |TPUT.C...JSR CHK|
00000740: 4F 55 54 00 49 0F 06 04 3B 00 56 0F 10 04 4C 44 |OUT.I...;.V...LD|
00000750: 58 20 23 24 30 30 00 7D 0F 1A 04 4C 4F 4F 50 34 |X #$00.}...LOOP4|
00000760: 20 4C 44 41 20 4D 57 2C 58 20 3B 53 80 20 22 4D | LDA MW,X ;S. "M|
00000770: 2D 57 20 4C 4F 20 48 49 20 24 32 30 22 00 8C 0F |-W LO HI $20"...|
00000780: 24 04 4A 53 52 20 43 48 52 4F 55 54 00 94 0F 2E |$.JSR CHROUT....|
00000790: 04 49 4E 58 00 A1 0F 38 04 43 50 58 20 23 24 30 |.INX...8.CPX #$0|
000007A0: 36 00 AF 0F 42 04 42 4E 45 20 4C 4F 4F 50 34 00 |6...B.BNE LOOP4.|
000007B0: B5 0F 4C 04 3B 00 DC 0F 56 04 4C 44 41 20 54 45 |..L.;...V.LDA TE|
000007C0: 4D 50 20 3B 50 4F B5 20 A4 20 53 54 41 52 54 20 |MP ;PO. . START |
000007D0: 4F 46 20 50 41 52 54 20 50 41 47 45 00 E8 0F 60 |OF PART PAGE...`|
000007E0: 04 53 54 41 20 50 4F B5 00 EE 0F 6A 04 3B 00 FB |.STA PO....j.;..|
000007F0: 0F 74 04 4C 44 59 20 23 24 30 30 00 01 10 7E 04 |.t.LDY #$00...~.|
00000800: 3B 00 29 10 88 04 4C 4F 4F 50 35 20 4C 44 41 20 |;.)...LOOP5 LDA |
00000810: 28 50 4F B5 29 2C 59 20 3B 53 80 20 33 32 20 43 |(PO.),Y ;S. 32 C|
00000820: 48 41 52 41 43 54 45 52 53 00 38 10 92 04 4A 53 |HARACTERS.8...JS|
00000830: 52 20 43 48 52 4F 55 54 00 40 10 9C 04 49 4E 59 |R CHROUT.@...INY|
00000840: 00 4D 10 A6 04 43 50 59 20 23 24 32 30 00 6A 10 |.M...CPY #$20.j.|
00000850: B0 04 42 4E 45 20 4C 4F 4F 50 35 20 20 3B A8 20 |..BNE LOOP5 ;. |
00000860: 44 91 45 20 33 32 20 59 45 54 00 70 10 BA 04 3B |D.E 32 YET.p...;|
00000870: 00 8B 10 C4 04 4C 44 41 20 23 24 30 44 20 20 20 |.....LDA #$0D |
00000880: 3B 43 41 52 52 49 41 47 45 20 8E 00 9A 10 CE 04 |;CARRIAGE ......|
00000890: 4A 53 52 20 43 48 52 4F 55 54 00 BA 10 D8 04 4A |JSR CHROUT.....J|
000008A0: 53 52 20 9C 43 48 4E 20 3B 43 4C 45 41 52 20 54 |SR .CHN ;CLEAR T|
000008B0: 48 45 20 43 48 41 4E 4E 45 4C 00 C0 10 E2 04 3B |HE CHANNEL.....;|
000008C0: 00 CD 10 EC 04 4C 44 41 20 23 24 30 30 00 F0 10 |.....LDA #$00...|
000008D0: F6 04 42 45 51 20 4C 4F 4F 50 33 20 20 3B 41 4C |..BEQ LOOP3 ;AL|
000008E0: 57 41 59 53 20 A4 20 44 4F 20 82 20 50 41 52 54 |WAYS . DO . PART|
000008F0: 00 F6 10 00 05 3B 00 12 11 0A 05 44 91 45 20 52 |.....;.....D.E R|
00000900: 54 53 20 20 20 3B 42 41 43 4B 20 A4 20 42 41 53 |TS ;BACK . BAS|
00000910: 49 43 00 00 00 |IC... |
....D.. BACKUP.PAL...N...1.X.. 2,8,2,"@0
:M.B,P,W".7.....B....40960.H...;.V. ..OP
T P,O2.\...;.U...; M.R . M.W ROUTINES.{.
..;...H... $C000...R.;.....; RAM LOCATI.
S USED.....; .......................PO.
. $00FB ;PO.ER . ..WRITE PAGE.....;.....
; ROM ROUTINES USED.....; ..............
....B...CHKOUT . $FFC9 ;. CHANNEL . OUTP
UT.I.".CHROUT . $FFD2 ;OUTPUT A CHARACTE
R...,..CHN . $FFCC ;CLEAR ALL CHANNELS..
.6.CHKIN . $FFC6 ;. CHANNEL . ..R.@.CHR
IN . $FFCF ;. A CHARACTER.X.J.;...T.; D
ISK M.R & M.W COMM.S...^.;...H.MR .F "M-
R".$.R..BYTE $00,$04,$FF,$80.*.|.;.:...M
W .F "M-W".U...TEMP .BYTE $00,$04,$20.[.
..;.}...;...............................
..;. . FROM DISK ROUTINES ......;......
.......................R.B.; M.R ENTRY P
O....L.; ........................V.LDA #
$00.....STA PO. ;PO. . FIRST HALF.;...S
TA MR.3 ;ASK . FIRST HALF.U...JSR .IT
;. FIRST HALF.[...;.H...LDA #$80.....STA
PO. ;PO. . SEC.D HALF.....STA MR.3 ;
ASK . SEC.D HALF.B.&.JSR .IT ;. SEC.D HA
LF.H.0.;...:.RTS ;. . BASIC...D.;
...N.; SUBROUTINE . . IN HALF PAGE.0.X.;
................................^.B..IT
LDX #$0F ;PREPARE CHANNEL 15 . OUTPUT.M
.L.JSR CHKOUT.S.V.;.....LDX #$00.....LOO
P1 LDA MR,X ;S. M.R COMM......JSR CHROUT
.....INX.E...CPX #$07.S...BNE LOOP1.Y...
;...F.JSR .CHN ; CLEAR THE CHANNEL...P.;
.%.Z.LDX #$0F ;PREPARE CHANNEL 15 . ..3.
..JSR CHKIN.9...;.F...LDY #$00.Z...LOOP2
JSR CHRIN.J...STA (PO.),Y.R...INY.. .C
PY #$81...*.BNE LOOP2...4.;...>.JSR .CHN
; CLEAR THE CHANNEL.N.H.RTS ;. OF . HAL
F PAGE.T.R.;...\.;......................
.........F.;. S. . DISK ROUTINES ..7.
P.;.............................Q.Z.; FI
RST M.W ENTRY PO..M...; ................
..........MRITE LDA #$00 ;INITIALIZE PAR
T PAGE PO.ER.....STA TEMP.....BEQ ENTER.
....;.P...LOOP3 LDA TEMP.X...CLC...J.ADC
#$20...T.STA TEMP.....BEQ D.E.....;.4..
.ENTER LDX #$0F ;PREPARE CHANNEL 15 . OU
TPUT.C...JSR CHKOUT.I...;.V...LDX #$00.}
...LOOP4 LDA MW,X ;S. "M-W LO HI $20"...
$.JSR CHROUT.....INX...8.CPX #$06...B.BN
E LOOP4...L.;...V.LDA TEMP ;PO. . START
OF PART PAGE...`.STA PO....J.;...T.LDY #
$00...~.;.)...LOOP5 LDA (PO.),Y ;S. 32 C
HARACTERS.8...JSR CHROUT.@...INY.M...CPY
#$20.J...BNE LOOP5 ;. D.E 32 YET.P...;
...D.LDA #$0D ;CARRIAGE ....N.JSR CHRO
UT...X.JSR .CHN ;CLEAR THE CHANNEL.....;
.M...LDA #$00.....BEQ LOOP3 ;ALWAYS . D
O . PART.....;.....D.E RTS ;BACK . BAS
IC...
> CLICK IMAGE PREVIEW FOR FULL MODAL