Home » CEEFAX disks » telesoftware8.adl » 30-07-88/BACKUP
30-07-88/BACKUP
This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.
Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.
| Tape/disk: | Home » CEEFAX disks » telesoftware8.adl |
| Filename: | 30-07-88/BACKUP |
| Read OK: | ✔ |
| File size: | 0D00 bytes |
| Load address: | FFFF0E00 |
| Exec address: | FFFF802B |
Duplicates
There is 1 duplicate copy of this file in the archive:
- CEEFAX disks » telesoftware5.adl » 17-02-88/BACKUP
- CEEFAX disks » telesoftware8.adl » 30-07-88/BACKUP
File contents
10 pause_flag=&81 20 track_flag=&82 30 max_track_read=24 40 max_track=&80 50 osnewl=&FFE7 60 oswrch=&FFEE 70 oscli=&FFF7 80 osword=&FFF1 90 osrdch=&FFE0 100 FOR N=0 TO 3 STEP 3 110 P%=&0900 120 [ 130 OPT N 140 LDX #&FF 150.loop 160 INX 170 LDA source,X 180 JSR oswrch 190 BNE loop 200 JSR read_write 210 STA read 220 LDX #&FF 230.loop1 240 INX 250 LDA destn,X 260 JSR oswrch 270 BNE loop1 280 JSR read_write 290 STA save 300 LDX #&FF 310.loop2 320 INX 330 LDA pause,X 340 JSR oswrch 350 BNE loop2 360 JSR osrdch 370 JSR oswrch 380 STA pause_flag 390 LDX #&FF 400.loop3 410 INX 420 LDA tracks,X 430 JSR oswrch 440 BNE loop3 450 JSR osrdch 460 JSR oswrch 470 CMP #89 480 BNE tr40 490 LDA #80 500 STA track_flag 510 JMP start 520.tr40 530 LDA #40 540 STA track_flag 550.start 560 JSR osnewl 570 JSR osnewl 580 LDA #max_track_read 590 STA max_track 600.loop4 610 INC srdata+7 620 LDX #srdata MOD 256 630 LDY #srdata DIV 256 640 JSR oscli 650 LDA srdata+7 660 CMP #55 670 BNE loop4 680.readgo 690 JSR rpause 700.readdisc 710 INC read+7 720 LDA #&7F 730 LDX #read MOD 256 740 LDY #read DIV 256 750 JSR osword 760.shiftup 770 LDA #&42 780 LDX #ramup MOD 256 790 LDY #ramup DIV 256 800 JSR osword 810 LDA max_track 820 CMP read+7 830 BEQ savedata 840 CLC 850 LDA #&A 860 ADC ramup+9 870 STA ramup+9 880 JMP readdisc 890.savedata 900 JSR spause 910.savedisc 920 LDA #&42 930 LDX #ramdown MOD 256 940 LDY #ramdown DIV 256 950 JSR osword 960 CLC 970 LDA #&A 980 ADC ramdown+9 990 STA ramdown+9 1000.savetodisc 1010 INC save+7 1020 LDA #&7F 1030 LDX #save MOD 256 1040 LDY #save DIV 256 1050 JSR osword 1060 LDA &80 1070 CMP save+7 1080 BNE savedisc 1090 LDA max_track 1100 CMP track_flag 1110 BEQ bye 1120 CLC 1130 LDA #max_track_read 1140 ADC max_track 1150 CMP track_flag 1160 BCS adjust 1170 STA max_track 1180 JMP addrreset 1190 .adjust 1200 LDA track_flag 1210 STA max_track 1220.addrreset 1230 LDA #0 1240 STA ramup+9 1250 STA ramdown+9 1260 JMP readgo 1270.read_write 1280 JSR osrdch 1290 JSR oswrch 1300 SEC 1310 SBC #48 1320 RTS 1330.rpause 1340 LDX #&FF 1350 LDA pause_flag 1360 CMP #78 1370 BNE loop5 1380 RTS 1390.loop5 1400 INX 1410 LDA source1,X 1420 JSR oswrch 1430 BNE loop5 1440 JSR osrdch 1450 RTS 1460.spause 1470 LDX #&FF 1480 LDA pause_flag 1490 CMP #78 1500 BNE loop6 1510 RTS 1520.loop6 1530 INX 1540 LDA destn1,X 1550 JSR oswrch 1560 BNE loop6 1570 JSR osrdch 1580 RTS 1590.bye RTS 1600.read 1610 EQUD &00190000 1620 EQUD &FF530300 1630 EQUB 0 1640 EQUB 42 1650 EQUB 0 1660.srdata 1670 EQUS "SRDATA " 1680 EQUB 51 1690 EQUB 13 1700.ramup 1710 EQUD &001900C0 1720 EQUD &000A0000 1730 EQUB 00 1740 EQUB 00 1750.ramdown 1760 EQUD &00190040 1770 EQUD &000A0000 1780 EQUB &0 1790 EQUB &0 1800.save 1810 EQUD &00190000 1820 EQUD &FF4B0300 1830 EQUB 0 1840 EQUB 42 1850 EQUB 0 1860.source 1861 EQUB 12 1870 EQUB 13 1880 EQUS "Sideways Ram Disc Copier by A.Valentine" 1890 EQUB 13 1900 EQUB 10 1901EQUB 10 1910 EQUS "Enter source drive : " 1920 EQUB 0 1930.destn 1940 EQUB13 1950 EQUB10 1960 EQUS "Enter destination drive : " 1970 EQUB 0 1980.pause 1990 EQUB 13 2000 EQUB 10 2010 EQUS "Pause between read / write Y/N : " 2020 EQUB 0 2030.tracks 2040 EQUB13 2050 EQUB10 2060 EQUS "Is it 80 track Y/N : " 2070 EQUB 0 2080.source1 2090 EQUB 7 2100 EQUS "Insert source disc and press a key. " 2110 EQUB 13 2120 EQUB 0 2130.destn1 2140 EQUB 7 2150 EQUS "Insert destination disc and press a key." 2160 EQUB 13 2170 EQUB 0 2180]:NEXT
pause_flag=&81 track_flag=&82 max_track_read=24 ( max_track=&80 2 osnewl=&FFE7 < oswrch=&FFEE F oscli=&FFF7 P osword=&FFF1 Z osrdch=&FFE0 d � N=0 � 3 � 3 n P%=&0900 x [ � OPT N � LDX #&FF � .loop � INX � LDA source,X � JSR oswrch � BNE loop � JSR read_write � STA read � LDX #&FF � .loop1 � INX � LDA destn,X JSR oswrch BNE loop1 JSR read_write " STA save , LDX #&FF 6 .loop2 @ INX J LDA pause,X T JSR oswrch ^ BNE loop2 h JSR osrdch r JSR oswrch | STA pause_flag � LDX #&FF � .loop3 � INX � LDA tracks,X � JSR oswrch � BNE loop3 � JSR osrdch � JSR oswrch � CMP #89 � BNE tr40 � LDA #80 � STA track_flag � JMP start .tr40 LDA #40 STA track_flag & .start 0 JSR osnewl : JSR osnewl D LDA #max_track_read N STA max_track X .loop4 b INC srdata+7 l LDX #srdata � 256 v LDY #srdata � 256 � JSR oscli � LDA srdata+7 � CMP #55 � BNE loop4 � .readgo � JSR rpause � .readdisc � INC read+7 � LDA #&7F � LDX #read � 256 � LDY #read � 256 � JSR osword � .shiftup LDA #&42 LDX #ramup � 256 LDY #ramup � 256 JSR osword * LDA max_track 4 CMP read+7 > BEQ savedata H CLC R LDA #&A \ ADC ramup+9 f STA ramup+9 p JMP readdisc z .savedata � JSR spause � .savedisc � LDA #&42 � LDX #ramdown � 256 � LDY #ramdown � 256 � JSR osword � CLC � LDA #&A � ADC ramdown+9 � STA ramdown+9 �.savetodisc � INC save+7 � LDA #&7F LDX #save � 256 LDY #save � 256 JSR osword $ LDA &80 . CMP save+7 8 BNE savedisc B LDA max_track L CMP track_flag V BEQ bye ` CLC j LDA #max_track_read t ADC max_track ~ CMP track_flag � BCS adjust � STA max_track � JMP addrreset � .adjust � LDA track_flag � STA max_track �.addrreset � LDA #0 � STA ramup+9 � STA ramdown+9 � JMP readgo �.read_write JSR osrdch JSR oswrch SEC SBC #48 ( RTS 2 .rpause < LDX #&FF F LDA pause_flag P CMP #78 Z BNE loop5 d RTS n .loop5 x INX � LDA source1,X � JSR oswrch � BNE loop5 � JSR osrdch � RTS � .spause � LDX #&FF � LDA pause_flag � CMP #78 � BNE loop6 � RTS � .loop6 � INX LDA destn1,X JSR oswrch BNE loop6 " JSR osrdch , RTS 6 .bye RTS @ .read J EQUD &00190000 T EQUD &FF530300 ^ EQUB 0 h EQUB 42 r EQUB 0 | .srdata � EQUS "SRDATA " � EQUB 51 � EQUB 13 � .ramup � EQUD &001900C0 � EQUD &000A0000 � EQUB 00 � EQUB 00 � .ramdown � EQUD &00190040 � EQUD &000A0000 � EQUB &0 � EQUB &0 .save EQUD &00190000 EQUD &FF4B0300 & EQUB 0 0 EQUB 42 : EQUB 0 D .source E EQUB 12 N EQUB 13 X3 EQUS "Sideways Ram Disc Copier by A.Valentine" b EQUB 13 l EQUB 10 m EQUB 10 v- EQUS "Enter source drive : " � EQUB 0 � .destn � EQUB13 � EQUB10 �- EQUS "Enter destination drive : " � EQUB 0 � .pause � EQUB 13 � EQUB 10 �- EQUS "Pause between read / write Y/N : " � EQUB 0 � .tracks � EQUB13 EQUB10 - EQUS "Is it 80 track Y/N : " EQUB 0 .source1 * EQUB 7 44 EQUS "Insert source disc and press a key. " > EQUB 13 H EQUB 0 R .destn1 \ EQUB 7 f4 EQUS "Insert destination disc and press a key." p EQUB 13 z EQUB 0 �]:� �
00000000 0d 00 0a 13 20 70 61 75 73 65 5f 66 6c 61 67 3d |.... pause_flag=| 00000010 26 38 31 0d 00 14 13 20 74 72 61 63 6b 5f 66 6c |&81.... track_fl| 00000020 61 67 3d 26 38 32 0d 00 1e 16 20 6d 61 78 5f 74 |ag=&82.... max_t| 00000030 72 61 63 6b 5f 72 65 61 64 3d 32 34 0d 00 28 12 |rack_read=24..(.| 00000040 20 6d 61 78 5f 74 72 61 63 6b 3d 26 38 30 0d 00 | max_track=&80..| 00000050 32 11 20 6f 73 6e 65 77 6c 3d 26 46 46 45 37 0d |2. osnewl=&FFE7.| 00000060 00 3c 11 20 6f 73 77 72 63 68 3d 26 46 46 45 45 |.<. oswrch=&FFEE| 00000070 0d 00 46 10 20 6f 73 63 6c 69 3d 26 46 46 46 37 |..F. oscli=&FFF7| 00000080 0d 00 50 11 20 6f 73 77 6f 72 64 3d 26 46 46 46 |..P. osword=&FFF| 00000090 31 0d 00 5a 11 20 6f 73 72 64 63 68 3d 26 46 46 |1..Z. osrdch=&FF| 000000a0 45 30 0d 00 64 12 20 e3 20 4e 3d 30 20 b8 20 33 |E0..d. . N=0 . 3| 000000b0 20 88 20 33 0d 00 6e 0d 20 50 25 3d 26 30 39 30 | . 3..n. P%=&090| 000000c0 30 0d 00 78 06 20 5b 0d 00 82 0a 20 4f 50 54 20 |0..x. [.... OPT | 000000d0 4e 0d 00 8c 0d 20 4c 44 58 20 23 26 46 46 0d 00 |N.... LDX #&FF..| 000000e0 96 09 2e 6c 6f 6f 70 0d 00 a0 08 20 49 4e 58 0d |...loop.... INX.| 000000f0 00 aa 11 20 4c 44 41 20 73 6f 75 72 63 65 2c 58 |... LDA source,X| 00000100 0d 00 b4 0f 20 4a 53 52 20 6f 73 77 72 63 68 0d |.... JSR oswrch.| 00000110 00 be 0d 20 42 4e 45 20 6c 6f 6f 70 0d 00 c8 13 |... BNE loop....| 00000120 20 4a 53 52 20 72 65 61 64 5f 77 72 69 74 65 0d | JSR read_write.| 00000130 00 d2 0d 20 53 54 41 20 72 65 61 64 0d 00 dc 0d |... STA read....| 00000140 20 4c 44 58 20 23 26 46 46 0d 00 e6 0a 2e 6c 6f | LDX #&FF.....lo| 00000150 6f 70 31 0d 00 f0 08 20 49 4e 58 0d 00 fa 10 20 |op1.... INX.... | 00000160 4c 44 41 20 64 65 73 74 6e 2c 58 0d 01 04 0f 20 |LDA destn,X.... | 00000170 4a 53 52 20 6f 73 77 72 63 68 0d 01 0e 0e 20 42 |JSR oswrch.... B| 00000180 4e 45 20 6c 6f 6f 70 31 0d 01 18 13 20 4a 53 52 |NE loop1.... JSR| 00000190 20 72 65 61 64 5f 77 72 69 74 65 0d 01 22 0d 20 | read_write..". | 000001a0 53 54 41 20 73 61 76 65 0d 01 2c 0d 20 4c 44 58 |STA save..,. LDX| 000001b0 20 23 26 46 46 0d 01 36 0a 2e 6c 6f 6f 70 32 0d | #&FF..6..loop2.| 000001c0 01 40 08 20 49 4e 58 0d 01 4a 10 20 4c 44 41 20 |.@. INX..J. LDA | 000001d0 70 61 75 73 65 2c 58 0d 01 54 0f 20 4a 53 52 20 |pause,X..T. JSR | 000001e0 6f 73 77 72 63 68 0d 01 5e 0e 20 42 4e 45 20 6c |oswrch..^. BNE l| 000001f0 6f 6f 70 32 0d 01 68 0f 20 4a 53 52 20 6f 73 72 |oop2..h. JSR osr| 00000200 64 63 68 0d 01 72 0f 20 4a 53 52 20 6f 73 77 72 |dch..r. JSR oswr| 00000210 63 68 0d 01 7c 13 20 53 54 41 20 70 61 75 73 65 |ch..|. STA pause| 00000220 5f 66 6c 61 67 0d 01 86 0d 20 4c 44 58 20 23 26 |_flag.... LDX #&| 00000230 46 46 0d 01 90 0a 2e 6c 6f 6f 70 33 0d 01 9a 08 |FF.....loop3....| 00000240 20 49 4e 58 0d 01 a4 11 20 4c 44 41 20 74 72 61 | INX.... LDA tra| 00000250 63 6b 73 2c 58 0d 01 ae 0f 20 4a 53 52 20 6f 73 |cks,X.... JSR os| 00000260 77 72 63 68 0d 01 b8 0e 20 42 4e 45 20 6c 6f 6f |wrch.... BNE loo| 00000270 70 33 0d 01 c2 0f 20 4a 53 52 20 6f 73 72 64 63 |p3.... JSR osrdc| 00000280 68 0d 01 cc 0f 20 4a 53 52 20 6f 73 77 72 63 68 |h.... JSR oswrch| 00000290 0d 01 d6 0c 20 43 4d 50 20 23 38 39 0d 01 e0 0d |.... CMP #89....| 000002a0 20 42 4e 45 20 74 72 34 30 0d 01 ea 0c 20 4c 44 | BNE tr40.... LD| 000002b0 41 20 23 38 30 0d 01 f4 13 20 53 54 41 20 74 72 |A #80.... STA tr| 000002c0 61 63 6b 5f 66 6c 61 67 0d 01 fe 0e 20 4a 4d 50 |ack_flag.... JMP| 000002d0 20 73 74 61 72 74 0d 02 08 09 2e 74 72 34 30 0d | start.....tr40.| 000002e0 02 12 0c 20 4c 44 41 20 23 34 30 0d 02 1c 13 20 |... LDA #40.... | 000002f0 53 54 41 20 74 72 61 63 6b 5f 66 6c 61 67 0d 02 |STA track_flag..| 00000300 26 0a 2e 73 74 61 72 74 0d 02 30 0f 20 4a 53 52 |&..start..0. JSR| 00000310 20 6f 73 6e 65 77 6c 0d 02 3a 0f 20 4a 53 52 20 | osnewl..:. JSR | 00000320 6f 73 6e 65 77 6c 0d 02 44 18 20 4c 44 41 20 23 |osnewl..D. LDA #| 00000330 6d 61 78 5f 74 72 61 63 6b 5f 72 65 61 64 0d 02 |max_track_read..| 00000340 4e 12 20 53 54 41 20 6d 61 78 5f 74 72 61 63 6b |N. STA max_track| 00000350 0d 02 58 0a 2e 6c 6f 6f 70 34 0d 02 62 11 20 49 |..X..loop4..b. I| 00000360 4e 43 20 73 72 64 61 74 61 2b 37 0d 02 6c 16 20 |NC srdata+7..l. | 00000370 4c 44 58 20 23 73 72 64 61 74 61 20 83 20 32 35 |LDX #srdata . 25| 00000380 36 0d 02 76 16 20 4c 44 59 20 23 73 72 64 61 74 |6..v. LDY #srdat| 00000390 61 20 81 20 32 35 36 0d 02 80 0e 20 4a 53 52 20 |a . 256.... JSR | 000003a0 6f 73 63 6c 69 0d 02 8a 11 20 4c 44 41 20 73 72 |oscli.... LDA sr| 000003b0 64 61 74 61 2b 37 0d 02 94 0c 20 43 4d 50 20 23 |data+7.... CMP #| 000003c0 35 35 0d 02 9e 0e 20 42 4e 45 20 6c 6f 6f 70 34 |55.... BNE loop4| 000003d0 0d 02 a8 0b 2e 72 65 61 64 67 6f 0d 02 b2 0f 20 |.....readgo.... | 000003e0 4a 53 52 20 72 70 61 75 73 65 0d 02 bc 0d 2e 72 |JSR rpause.....r| 000003f0 65 61 64 64 69 73 63 0d 02 c6 0f 20 49 4e 43 20 |eaddisc.... INC | 00000400 72 65 61 64 2b 37 0d 02 d0 0d 20 4c 44 41 20 23 |read+7.... LDA #| 00000410 26 37 46 0d 02 da 14 20 4c 44 58 20 23 72 65 61 |&7F.... LDX #rea| 00000420 64 20 83 20 32 35 36 0d 02 e4 14 20 4c 44 59 20 |d . 256.... LDY | 00000430 23 72 65 61 64 20 81 20 32 35 36 0d 02 ee 0f 20 |#read . 256.... | 00000440 4a 53 52 20 6f 73 77 6f 72 64 0d 02 f8 0c 2e 73 |JSR osword.....s| 00000450 68 69 66 74 75 70 0d 03 02 0d 20 4c 44 41 20 23 |hiftup.... LDA #| 00000460 26 34 32 0d 03 0c 15 20 4c 44 58 20 23 72 61 6d |&42.... LDX #ram| 00000470 75 70 20 83 20 32 35 36 0d 03 16 15 20 4c 44 59 |up . 256.... LDY| 00000480 20 23 72 61 6d 75 70 20 81 20 32 35 36 0d 03 20 | #ramup . 256.. | 00000490 0f 20 4a 53 52 20 6f 73 77 6f 72 64 0d 03 2a 12 |. JSR osword..*.| 000004a0 20 4c 44 41 20 6d 61 78 5f 74 72 61 63 6b 0d 03 | LDA max_track..| 000004b0 34 0f 20 43 4d 50 20 72 65 61 64 2b 37 0d 03 3e |4. CMP read+7..>| 000004c0 11 20 42 45 51 20 73 61 76 65 64 61 74 61 0d 03 |. BEQ savedata..| 000004d0 48 08 20 43 4c 43 0d 03 52 0c 20 4c 44 41 20 23 |H. CLC..R. LDA #| 000004e0 26 41 0d 03 5c 10 20 41 44 43 20 72 61 6d 75 70 |&A..\. ADC ramup| 000004f0 2b 39 0d 03 66 10 20 53 54 41 20 72 61 6d 75 70 |+9..f. STA ramup| 00000500 2b 39 0d 03 70 11 20 4a 4d 50 20 72 65 61 64 64 |+9..p. JMP readd| 00000510 69 73 63 0d 03 7a 0d 2e 73 61 76 65 64 61 74 61 |isc..z..savedata| 00000520 0d 03 84 0f 20 4a 53 52 20 73 70 61 75 73 65 0d |.... JSR spause.| 00000530 03 8e 0d 2e 73 61 76 65 64 69 73 63 0d 03 98 0d |....savedisc....| 00000540 20 4c 44 41 20 23 26 34 32 0d 03 a2 17 20 4c 44 | LDA #&42.... LD| 00000550 58 20 23 72 61 6d 64 6f 77 6e 20 83 20 32 35 36 |X #ramdown . 256| 00000560 0d 03 ac 17 20 4c 44 59 20 23 72 61 6d 64 6f 77 |.... LDY #ramdow| 00000570 6e 20 81 20 32 35 36 0d 03 b6 0f 20 4a 53 52 20 |n . 256.... JSR | 00000580 6f 73 77 6f 72 64 0d 03 c0 08 20 43 4c 43 0d 03 |osword.... CLC..| 00000590 ca 0c 20 4c 44 41 20 23 26 41 0d 03 d4 12 20 41 |.. LDA #&A.... A| 000005a0 44 43 20 72 61 6d 64 6f 77 6e 2b 39 0d 03 de 12 |DC ramdown+9....| 000005b0 20 53 54 41 20 72 61 6d 64 6f 77 6e 2b 39 0d 03 | STA ramdown+9..| 000005c0 e8 0f 2e 73 61 76 65 74 6f 64 69 73 63 0d 03 f2 |...savetodisc...| 000005d0 0f 20 49 4e 43 20 73 61 76 65 2b 37 0d 03 fc 0d |. INC save+7....| 000005e0 20 4c 44 41 20 23 26 37 46 0d 04 06 14 20 4c 44 | LDA #&7F.... LD| 000005f0 58 20 23 73 61 76 65 20 83 20 32 35 36 0d 04 10 |X #save . 256...| 00000600 14 20 4c 44 59 20 23 73 61 76 65 20 81 20 32 35 |. LDY #save . 25| 00000610 36 0d 04 1a 0f 20 4a 53 52 20 6f 73 77 6f 72 64 |6.... JSR osword| 00000620 0d 04 24 0c 20 4c 44 41 20 26 38 30 0d 04 2e 0f |..$. LDA &80....| 00000630 20 43 4d 50 20 73 61 76 65 2b 37 0d 04 38 11 20 | CMP save+7..8. | 00000640 42 4e 45 20 73 61 76 65 64 69 73 63 0d 04 42 12 |BNE savedisc..B.| 00000650 20 4c 44 41 20 6d 61 78 5f 74 72 61 63 6b 0d 04 | LDA max_track..| 00000660 4c 13 20 43 4d 50 20 74 72 61 63 6b 5f 66 6c 61 |L. CMP track_fla| 00000670 67 0d 04 56 0c 20 42 45 51 20 62 79 65 0d 04 60 |g..V. BEQ bye..`| 00000680 08 20 43 4c 43 0d 04 6a 18 20 4c 44 41 20 23 6d |. CLC..j. LDA #m| 00000690 61 78 5f 74 72 61 63 6b 5f 72 65 61 64 0d 04 74 |ax_track_read..t| 000006a0 12 20 41 44 43 20 6d 61 78 5f 74 72 61 63 6b 0d |. ADC max_track.| 000006b0 04 7e 13 20 43 4d 50 20 74 72 61 63 6b 5f 66 6c |.~. CMP track_fl| 000006c0 61 67 0d 04 88 0f 20 42 43 53 20 61 64 6a 75 73 |ag.... BCS adjus| 000006d0 74 0d 04 92 12 20 53 54 41 20 6d 61 78 5f 74 72 |t.... STA max_tr| 000006e0 61 63 6b 0d 04 9c 12 20 4a 4d 50 20 61 64 64 72 |ack.... JMP addr| 000006f0 72 65 73 65 74 0d 04 a6 0c 20 2e 61 64 6a 75 73 |reset.... .adjus| 00000700 74 0d 04 b0 13 20 4c 44 41 20 74 72 61 63 6b 5f |t.... LDA track_| 00000710 66 6c 61 67 0d 04 ba 12 20 53 54 41 20 6d 61 78 |flag.... STA max| 00000720 5f 74 72 61 63 6b 0d 04 c4 0e 2e 61 64 64 72 72 |_track.....addrr| 00000730 65 73 65 74 0d 04 ce 0b 20 4c 44 41 20 23 30 0d |eset.... LDA #0.| 00000740 04 d8 10 20 53 54 41 20 72 61 6d 75 70 2b 39 0d |... STA ramup+9.| 00000750 04 e2 12 20 53 54 41 20 72 61 6d 64 6f 77 6e 2b |... STA ramdown+| 00000760 39 0d 04 ec 0f 20 4a 4d 50 20 72 65 61 64 67 6f |9.... JMP readgo| 00000770 0d 04 f6 0f 2e 72 65 61 64 5f 77 72 69 74 65 0d |.....read_write.| 00000780 05 00 0f 20 4a 53 52 20 6f 73 72 64 63 68 0d 05 |... JSR osrdch..| 00000790 0a 0f 20 4a 53 52 20 6f 73 77 72 63 68 0d 05 14 |.. JSR oswrch...| 000007a0 08 20 53 45 43 0d 05 1e 0c 20 53 42 43 20 23 34 |. SEC.... SBC #4| 000007b0 38 0d 05 28 08 20 52 54 53 0d 05 32 0b 2e 72 70 |8..(. RTS..2..rp| 000007c0 61 75 73 65 0d 05 3c 0d 20 4c 44 58 20 23 26 46 |ause..<. LDX #&F| 000007d0 46 0d 05 46 13 20 4c 44 41 20 70 61 75 73 65 5f |F..F. LDA pause_| 000007e0 66 6c 61 67 0d 05 50 0c 20 43 4d 50 20 23 37 38 |flag..P. CMP #78| 000007f0 0d 05 5a 0e 20 42 4e 45 20 6c 6f 6f 70 35 0d 05 |..Z. BNE loop5..| 00000800 64 08 20 52 54 53 0d 05 6e 0a 2e 6c 6f 6f 70 35 |d. RTS..n..loop5| 00000810 0d 05 78 08 20 49 4e 58 0d 05 82 12 20 4c 44 41 |..x. INX.... LDA| 00000820 20 73 6f 75 72 63 65 31 2c 58 0d 05 8c 0f 20 4a | source1,X.... J| 00000830 53 52 20 6f 73 77 72 63 68 0d 05 96 0e 20 42 4e |SR oswrch.... BN| 00000840 45 20 6c 6f 6f 70 35 0d 05 a0 0f 20 4a 53 52 20 |E loop5.... JSR | 00000850 6f 73 72 64 63 68 0d 05 aa 08 20 52 54 53 0d 05 |osrdch.... RTS..| 00000860 b4 0b 2e 73 70 61 75 73 65 0d 05 be 0d 20 4c 44 |...spause.... LD| 00000870 58 20 23 26 46 46 0d 05 c8 13 20 4c 44 41 20 70 |X #&FF.... LDA p| 00000880 61 75 73 65 5f 66 6c 61 67 0d 05 d2 0c 20 43 4d |ause_flag.... CM| 00000890 50 20 23 37 38 0d 05 dc 0e 20 42 4e 45 20 6c 6f |P #78.... BNE lo| 000008a0 6f 70 36 0d 05 e6 08 20 52 54 53 0d 05 f0 0a 2e |op6.... RTS.....| 000008b0 6c 6f 6f 70 36 0d 05 fa 08 20 49 4e 58 0d 06 04 |loop6.... INX...| 000008c0 11 20 4c 44 41 20 64 65 73 74 6e 31 2c 58 0d 06 |. LDA destn1,X..| 000008d0 0e 0f 20 4a 53 52 20 6f 73 77 72 63 68 0d 06 18 |.. JSR oswrch...| 000008e0 0e 20 42 4e 45 20 6c 6f 6f 70 36 0d 06 22 0f 20 |. BNE loop6..". | 000008f0 4a 53 52 20 6f 73 72 64 63 68 0d 06 2c 08 20 52 |JSR osrdch..,. R| 00000900 54 53 0d 06 36 0c 2e 62 79 65 20 52 54 53 0d 06 |TS..6..bye RTS..| 00000910 40 09 2e 72 65 61 64 0d 06 4a 13 20 45 51 55 44 |@..read..J. EQUD| 00000920 20 26 30 30 31 39 30 30 30 30 0d 06 54 13 20 45 | &00190000..T. E| 00000930 51 55 44 20 26 46 46 35 33 30 33 30 30 0d 06 5e |QUD &FF530300..^| 00000940 0b 20 45 51 55 42 20 30 0d 06 68 0c 20 45 51 55 |. EQUB 0..h. EQU| 00000950 42 20 34 32 0d 06 72 0b 20 45 51 55 42 20 30 0d |B 42..r. EQUB 0.| 00000960 06 7c 0b 2e 73 72 64 61 74 61 0d 06 86 13 20 45 |.|..srdata.... E| 00000970 51 55 53 20 22 53 52 44 41 54 41 20 22 0d 06 90 |QUS "SRDATA "...| 00000980 0c 20 45 51 55 42 20 35 31 0d 06 9a 0c 20 45 51 |. EQUB 51.... EQ| 00000990 55 42 20 31 33 0d 06 a4 0a 2e 72 61 6d 75 70 0d |UB 13.....ramup.| 000009a0 06 ae 13 20 45 51 55 44 20 26 30 30 31 39 30 30 |... EQUD &001900| 000009b0 43 30 0d 06 b8 13 20 45 51 55 44 20 26 30 30 30 |C0.... EQUD &000| 000009c0 41 30 30 30 30 0d 06 c2 0c 20 45 51 55 42 20 30 |A0000.... EQUB 0| 000009d0 30 0d 06 cc 0c 20 45 51 55 42 20 30 30 0d 06 d6 |0.... EQUB 00...| 000009e0 0c 2e 72 61 6d 64 6f 77 6e 0d 06 e0 13 20 45 51 |..ramdown.... EQ| 000009f0 55 44 20 26 30 30 31 39 30 30 34 30 0d 06 ea 13 |UD &00190040....| 00000a00 20 45 51 55 44 20 26 30 30 30 41 30 30 30 30 0d | EQUD &000A0000.| 00000a10 06 f4 0c 20 45 51 55 42 20 26 30 0d 06 fe 0c 20 |... EQUB &0.... | 00000a20 45 51 55 42 20 26 30 0d 07 08 09 2e 73 61 76 65 |EQUB &0.....save| 00000a30 0d 07 12 13 20 45 51 55 44 20 26 30 30 31 39 30 |.... EQUD &00190| 00000a40 30 30 30 0d 07 1c 13 20 45 51 55 44 20 26 46 46 |000.... EQUD &FF| 00000a50 34 42 30 33 30 30 0d 07 26 0b 20 45 51 55 42 20 |4B0300..&. EQUB | 00000a60 30 0d 07 30 0c 20 45 51 55 42 20 34 32 0d 07 3a |0..0. EQUB 42..:| 00000a70 0b 20 45 51 55 42 20 30 0d 07 44 0b 2e 73 6f 75 |. EQUB 0..D..sou| 00000a80 72 63 65 0d 07 45 0c 20 45 51 55 42 20 31 32 0d |rce..E. EQUB 12.| 00000a90 07 4e 0c 20 45 51 55 42 20 31 33 0d 07 58 33 20 |.N. EQUB 13..X3 | 00000aa0 45 51 55 53 20 22 53 69 64 65 77 61 79 73 20 52 |EQUS "Sideways R| 00000ab0 61 6d 20 44 69 73 63 20 43 6f 70 69 65 72 20 62 |am Disc Copier b| 00000ac0 79 20 41 2e 56 61 6c 65 6e 74 69 6e 65 22 0d 07 |y A.Valentine"..| 00000ad0 62 0c 20 45 51 55 42 20 31 33 0d 07 6c 0c 20 45 |b. EQUB 13..l. E| 00000ae0 51 55 42 20 31 30 0d 07 6d 0b 45 51 55 42 20 31 |QUB 10..m.EQUB 1| 00000af0 30 0d 07 76 2d 20 45 51 55 53 20 22 45 6e 74 65 |0..v- EQUS "Ente| 00000b00 72 20 73 6f 75 72 63 65 20 64 72 69 76 65 20 20 |r source drive | 00000b10 20 20 20 20 20 20 20 20 20 20 20 3a 20 22 0d 07 | : "..| 00000b20 80 0b 20 45 51 55 42 20 30 0d 07 8a 0a 2e 64 65 |.. EQUB 0.....de| 00000b30 73 74 6e 0d 07 94 0b 20 45 51 55 42 31 33 0d 07 |stn.... EQUB13..| 00000b40 9e 0b 20 45 51 55 42 31 30 0d 07 a8 2d 20 45 51 |.. EQUB10...- EQ| 00000b50 55 53 20 22 45 6e 74 65 72 20 64 65 73 74 69 6e |US "Enter destin| 00000b60 61 74 69 6f 6e 20 64 72 69 76 65 20 20 20 20 20 |ation drive | 00000b70 20 20 20 3a 20 22 0d 07 b2 0b 20 45 51 55 42 20 | : ".... EQUB | 00000b80 30 0d 07 bc 0a 2e 70 61 75 73 65 0d 07 c6 0c 20 |0.....pause.... | 00000b90 45 51 55 42 20 31 33 0d 07 d0 0c 20 45 51 55 42 |EQUB 13.... EQUB| 00000ba0 20 31 30 0d 07 da 2d 20 45 51 55 53 20 22 50 61 | 10...- EQUS "Pa| 00000bb0 75 73 65 20 62 65 74 77 65 65 6e 20 72 65 61 64 |use between read| 00000bc0 20 2f 20 77 72 69 74 65 20 59 2f 4e 20 3a 20 22 | / write Y/N : "| 00000bd0 0d 07 e4 0b 20 45 51 55 42 20 30 0d 07 ee 0b 2e |.... EQUB 0.....| 00000be0 74 72 61 63 6b 73 0d 07 f8 0b 20 45 51 55 42 31 |tracks.... EQUB1| 00000bf0 33 0d 08 02 0b 20 45 51 55 42 31 30 0d 08 0c 2d |3.... EQUB10...-| 00000c00 20 45 51 55 53 20 22 49 73 20 69 74 20 38 30 20 | EQUS "Is it 80 | 00000c10 74 72 61 63 6b 20 59 2f 4e 20 20 20 20 20 20 20 |track Y/N | 00000c20 20 20 20 20 20 20 3a 20 22 0d 08 16 0b 20 45 51 | : ".... EQ| 00000c30 55 42 20 30 0d 08 20 0c 2e 73 6f 75 72 63 65 31 |UB 0.. ..source1| 00000c40 0d 08 2a 0b 20 45 51 55 42 20 37 0d 08 34 34 20 |..*. EQUB 7..44 | 00000c50 45 51 55 53 20 22 49 6e 73 65 72 74 20 73 6f 75 |EQUS "Insert sou| 00000c60 72 63 65 20 64 69 73 63 20 61 6e 64 20 70 72 65 |rce disc and pre| 00000c70 73 73 20 61 20 6b 65 79 2e 20 20 20 20 20 22 0d |ss a key. ".| 00000c80 08 3e 0c 20 45 51 55 42 20 31 33 0d 08 48 0b 20 |.>. EQUB 13..H. | 00000c90 45 51 55 42 20 30 0d 08 52 0b 2e 64 65 73 74 6e |EQUB 0..R..destn| 00000ca0 31 0d 08 5c 0b 20 45 51 55 42 20 37 0d 08 66 34 |1..\. EQUB 7..f4| 00000cb0 20 45 51 55 53 20 22 49 6e 73 65 72 74 20 64 65 | EQUS "Insert de| 00000cc0 73 74 69 6e 61 74 69 6f 6e 20 64 69 73 63 20 61 |stination disc a| 00000cd0 6e 64 20 70 72 65 73 73 20 61 20 6b 65 79 2e 22 |nd press a key."| 00000ce0 0d 08 70 0c 20 45 51 55 42 20 31 33 0d 08 7a 0b |..p. EQUB 13..z.| 00000cf0 20 45 51 55 42 20 30 0d 08 84 07 5d 3a ed 0d ff | EQUB 0....]:...| 00000d00
30-07-88/BACKUP.m0
30-07-88/BACKUP.m1
30-07-88/BACKUP.m2
30-07-88/BACKUP.m4
30-07-88/BACKUP.m5
.