UUENCODE read a whole disk, uuencodes it and sends it out on the serial line (slot 2 assumed). You can simply capture it on the other side and pipe it thru uudecode. UUENCODE.BAS is the main part (in Applesoft BASIC). UUENCODE.ASS is the uuencoder in assembly language. RWTS2 is needed also. RWTS2 is a assembly language routine, which hooks into the Applesoft &-vector. It allows simple access to the DOS 3.3 RWTS (read write track sector) routine. The following commands are understood: &A (ADDRESS,DRIVE) set the buffer address and the drive &R (TRACK,SECTOR) read the given sector into the buffer &W (TRACK,SECTOR) write the buffer to the sector ADDRESS is a pointer to a 256 byte buffer DRIVE is 0 or 1 TRACK is 0 to 35 SECTOR is 0 to 15 If you want to access a disk drive in another slot (default=6), you have to POKE 879,16*SLOT before &R (or &W) and POKE 927,16*SLOT after the &R (or &W). Example: Read the VTOC (Track 17, Sector 0) into the memory. 100 HIMEM: 16384 : REM Set himem to $2000 110 PRINT CHR$($);"BRUN RWTS2" 120 &A(16384,0) : REM Use $2000-$20FF as buffer 130 &R(17,0): REM Read VTOC -------------------8<----------------8<---------------------- 100 REM UUENCODE DISK 110 HIMEM: 16384 120 AD = 16384:A0 = AD + 256 130 IF PEEK (1013) = 76 AND PEEK (1014) = 32 AND PEEK (1015) = 3 THEN 160 140 PRINT CHR$ (4)"BRUN RWTS2" 150 PRINT CHR$ (4)"BRUN UUENCODE.BIN" 160 & A(A0,1) 170 A1 = A0 180 PR# 2 190 PRINT "BEGIN 666 DISK" 200 FOR T = 0 TO 34 210 FOR S = 0 TO 15 300 & R(T,S) 310 A2 = A0 + 256 400 IF A2 - A1 < 45 THEN 500 410 POKE 237,45 420 POKE 239,A1 / 256 430 POKE 238,A1 - 256 * PEEK (239) 440 CALL 784 450 A1 = A1 + 45 460 GOTO 400 500 POKE 237,A2 - A1 510 POKE 239,A1 / 256 520 POKE 238,A1 - 256 * PEEK (239) 530 CALL 787 540 A1 = A1 - 256 600 NEXT S 610 NEXT T 700 POKE 237,A2 - A1 - 256 710 POKE 239,A1 / 256 720 POKE 238,A1 - 256 * PEEK (239) 730 CALL 784 800 PRINT " " 900 PRINT "END" 910 PR# 0 -------------------8<----------------8<---------------------- 0270- A9 4C LDA #$4C 0272- 8D 13 03 STA $0313 0275- 8D 10 03 STA $0310 0278- A9 02 LDA #$02 027A- 8D 15 03 STA $0315 027D- A9 8D LDA #$8D 027F- 8D 14 03 STA $0314 0282- A9 02 LDA #$02 0284- 8D 12 03 STA $0312 0287- A9 A1 LDA #$A1 0289- 8D 11 03 STA $0311 028C- 60 RTS 028D- A4 ED LDY $ED 028F- A5 EE LDA $EE 0291- 85 EC STA $EC 0293- A5 EF LDA $EF 0295- 85 ED STA $ED 0297- C6 ED DEC $ED 0299- B1 EE LDA ($EE),Y 029B- 91 EC STA ($EC),Y 029D- 88 DEY 029E- 10 F9 BPL $0299 02A0- 60 RTS 02A1- A5 ED LDA $ED 02A3- 20 E7 02 JSR $02E7 02A6- A0 00 LDY #$00 02A8- C4 ED CPY $ED 02AA- 10 36 BPL $02E2 02AC- A9 00 LDA #$00 02AE- 85 EC STA $EC 02B0- B1 EE LDA ($EE),Y 02B2- 4A LSR 02B3- 66 EC ROR $EC 02B5- 4A LSR 02B6- 66 EC ROR $EC 02B8- 20 E7 02 JSR $02E7 02BB- C8 INY 02BC- B1 EE LDA ($EE),Y 02BE- 4A LSR 02BF- 4A LSR 02C0- 05 EC ORA $EC 02C2- 4A LSR 02C3- 4A LSR 02C4- 20 E7 02 JSR $02E7 02C7- B1 EE LDA ($EE),Y 02C9- 85 EC STA $EC 02CB- C8 INY 02CC- B1 EE LDA ($EE),Y 02CE- 0A ASL 02CF- 26 EC ROL $EC 02D1- 0A ASL 02D2- 26 EC ROL $EC 02D4- A5 EC LDA $EC 02D6- 20 E7 02 JSR $02E7 02D9- B1 EE LDA ($EE),Y 02DB- 20 E7 02 JSR $02E7 02DE- C8 INY 02DF- 4C A8 02 JMP $02A8 02E2- A9 8D LDA #$8D 02E4- 4C ED FD JMP $FDED 02E7- 29 3F AND #$3F 02E9- D0 02 BNE $02ED 02EB- A9 40 LDA #$40 02ED- 18 CLC 02EE- 69 A0 ADC #$A0 02F0- 4C ED FD JMP $FDED 02F3- 00 BRK 02F4- 00 BRK 02F5- 00 BRK 02F6- 00 BRK 02F7- 00 BRK 02F8- 00 BRK 02F9- 00 BRK 02FA- 00 BRK 02FB- 00 BRK 02FC- 00 BRK 02FD- 00 BRK 02FE- 00 BRK 02FF- 00 BRK 0270: A9 4C 8D 13 03 8D 10 03 0278: A9 02 8D 15 03 A9 8D 8D 0280: 14 03 A9 02 8D 12 03 A9 0288: A1 8D 11 03 60 A4 ED A5 0290: EE 85 EC A5 EF 85 ED C6 0298: ED B1 EE 91 EC 88 10 F9 02A0: 60 A5 ED 20 E7 02 A0 00 02A8: C4 ED 10 36 A9 00 85 EC 02B0: B1 EE 4A 66 EC 4A 66 EC 02B8: 20 E7 02 C8 B1 EE 4A 4A 02C0: 05 EC 4A 4A 20 E7 02 B1 02C8: EE 85 EC C8 B1 EE 0A 26 02D0: EC 0A 26 EC A5 EC 20 E7 02D8: 02 B1 EE 20 E7 02 C8 4C 02E0: A8 02 A9 8D 4C ED FD 29 02E8: 3F D0 02 A9 40 18 69 A0 02F0: 4C ED FD 00 00 00 00 00 02F8: 00 00 00 00 00 00 00 00 -------------------8<----------------8<---------------------- 0300- A9 4C LDA #$4C 0302- 8D F5 03 STA $03F5 0305- A9 20 LDA #$20 0307- 8D F6 03 STA $03F6 030A- A9 03 LDA #$03 030C- 8D F7 03 STA $03F7 030F- 60 RTS 0310- 04 ??? 0311- C6 51 DEC $51 0313- F0 08 BEQ $031D 0315- CA DEX 0316- D0 F6 BNE $030E 0318- A6 50 LDX $50 031A- 4C 0B 03 JMP $030B 031D- 60 RTS 031E- 00 BRK 031F- 4A LSR 0320- C9 52 CMP #$52 0322- F0 0F BEQ $0333 0324- C9 57 CMP #$57 0326- F0 0F BEQ $0337 0328- EA NOP 0329- EA NOP 032A- EA NOP 032B- EA NOP 032C- C9 41 CMP #$41 032E- F0 1D BEQ $034D 0330- 4C 7C D9 JMP $D97C 0333- A9 01 LDA #$01 0335- D0 02 BNE $0339 0337- A9 02 LDA #$02 0339- 85 FA STA $FA 033B- 20 B5 03 JSR $03B5 033E- 20 46 E7 JSR $E746 0341- 86 FC STX $FC 0343- A5 50 LDA $50 0345- 85 FB STA $FB 0347- 20 B8 DE JSR $DEB8 034A- 4C 65 03 JMP $0365 034D- 20 B5 03 JSR $03B5 0350- 20 46 E7 JSR $E746 0353- 8A TXA 0354- EA NOP 0355- EA NOP 0356- EA NOP 0357- EA NOP 0358- 85 FF STA $FF 035A- A5 50 LDA $50 035C- 85 FD STA $FD 035E- A5 51 LDA $51 0360- 85 FE STA $FE 0362- 4C B8 DE JMP $DEB8 0365- 20 E3 03 JSR $03E3 0368- 84 06 STY $06 036A- 85 07 STA $07 036C- A0 01 LDY #$01 036E- A9 60 LDA #$60 0370- 91 06 STA ($06),Y 0372- C8 INY 0373- A5 FF LDA $FF 0375- 91 06 STA ($06),Y 0377- C8 INY 0378- A9 00 LDA #$00 037A- 91 06 STA ($06),Y 037C- C8 INY 037D- A5 FB LDA $FB 037F- 91 06 STA ($06),Y 0381- C8 INY 0382- A5 FC LDA $FC 0384- 91 06 STA ($06),Y 0386- A0 08 LDY #$08 0388- A5 FD LDA $FD 038A- 91 06 STA ($06),Y 038C- C8 INY 038D- A5 FE LDA $FE 038F- 91 06 STA ($06),Y 0391- A0 0C LDY #$0C 0393- A5 FA LDA $FA 0395- 91 06 STA ($06),Y 0397- A0 0E LDY #$0E 0399- A9 00 LDA #$00 039B- 91 06 STA ($06),Y 039D- C8 INY 039E- A9 60 LDA #$60 03A0- 91 06 STA ($06),Y 03A2- A4 06 LDY $06 03A4- A5 07 LDA $07 03A6- 20 D9 03 JSR $03D9 03A9- A9 00 LDA #$00 03AB- 85 48 STA $48 03AD- A0 0D LDY #$0D 03AF- B1 06 LDA ($06),Y 03B1- 85 1D STA $1D 03B3- 60 RTS 03B4- 00 BRK 03B5- 20 B1 00 JSR $00B1 03B8- 4C BB DE JMP $DEBB 03BB- 29 2A AND #$2A 03BD- 2B ??? 03BE- 00 BRK 0300: A9 4C 8D F5 03 A9 20 8D 0308: F6 03 A9 03 8D F7 03 60 0310: 04 C6 51 F0 08 CA D0 F6 0318: A6 50 4C 0B 03 60 00 4A 0320: C9 52 F0 0F C9 57 F0 0F 0328: EA EA EA EA C9 41 F0 1D 0330: 4C 7C D9 A9 01 D0 02 A9 0338: 02 85 FA 20 B5 03 20 46 0340: E7 86 FC A5 50 85 FB 20 0348: B8 DE 4C 65 03 20 B5 03 0350: 20 46 E7 8A EA EA EA EA 0358: 85 FF A5 50 85 FD A5 51 0360: 85 FE 4C B8 DE 20 E3 03 0368: 84 06 85 07 A0 01 A9 60 0370: 91 06 C8 A5 FF 91 06 C8 0378: A9 00 91 06 C8 A5 FB 91 0380: 06 C8 A5 FC 91 06 A0 08 0388: A5 FD 91 06 C8 A5 FE 91 0390: 06 A0 0C A5 FA 91 06 A0 0398: 0E A9 00 91 06 C8 A9 60 03A0: 91 06 A4 06 A5 07 20 D9 03A8: 03 A9 00 85 48 A0 0D B1 03B0: 06 85 1D 60 00 20 B1 00 03B8: 4C BB DE 29 2A 2B 00 2C