Path: news.weeg.uiowa.edu!news.uiowa.edu!hobbes.physics.uiowa.edu!math.ohio-state.edu!howland.reston.ans.net!europa.eng.gtefsd.com!MathWorks.Com!news2.near.net!bloom-beacon.mit.edu!senator-bedfellow.mit.edu!athena.mit.edu!hagstrom From: hagstrom@athena.mit.edu (Paul A Hagstrom) Newsgroups: comp.sys.apple2 Subject: Re: Creating STM image files (?) Date: 28 May 1994 10:05:06 GMT Organization: Massachusetts Institute of Technology Lines: 77 Message-ID: References: <2s1jd0$50h@ucsbuxb.ucsb.edu> <1994May27.085000.17675@crash> NNTP-Posting-Host: 18.71.0.58 In-reply-to: shack@crash.cts.com's message of 27 May 94 08:50:00 PDT In article <1994May27.085000.17675@crash> shack@crash.cts.com (Randy Shackelford) writes: > Regardless of what it's supposed to do you still need a way to convert a 5.25 > to a file on the II. I'm not 100% sure where this came from, but I had this hanging around in my STM folder, so here's the text of "Xdisker" from the guy who's doing the index: ----- included file ----- XDISKER 1.0 -My version of the disker program, which is just a tad spiffier, as it provides a progress bar, activates and deactivates the serial port, and autoloads diskhelp if necessary. (Actual functionality is unchanged, so far as I know.) Note that this needs to be in Integer Basic to function without modification. 2 DIM W(15):D$="": FOR X=0 TO 9:W(X)= ASC("0")+X: NEXT X: FOR X=10 TO 15:W(X)= ASC("A")+X-10: NEXT X 4 IF PEEK (768)<>169 THEN PRINT D$;"BLOAD DISKHELP" 6 FOR X=1 TO 24: PRINT : NEXT X: VTAB 1: PRINT " MR. X THE X- TRAORDINARY'S DISKER MOD!": PRINT : PRINT 7 PRINT "INSERT DISK AND PRESS RETURN."; 8 INPUT A$ 9 PRINT D$;"PR#4": REM INITALIZE SERIAL PORT 10 IO=832 12 SL=6: REM DISK CONTROLLER SLOT 15 FOR X=0 TO 34: POKE 1065+X, ASC(" "): NEXT X: POKE 1064, ASC("<"): POKE 1100, ASC(">") 20 PRINT "***"; 25 GOSUB 1000 30 FOR TK=0 TO 34 35 POKE IO+4,TK 40 FOR SK=0 TO 15 50 POKE IO+5,SK 60 CALL 768 65 POKE 1065+TK,W(SK) 70 NEXT SK 80 NEXT TK 83 PRINT : PRINT 85 PRINT "TRANSFER COMPLETE" 87 PRINT D$;"PR#0": PRINT : PRINT : PRINT : PRINT : PRINT : PRINT : PRINT : PRINT 89 PRINT "TRANSFER COMPLETE" 90 END 1000 POKE IO+0,1 1010 POKE IO+1,SL*16 1020 POKE IO+2,1 1030 POKE IO+3,0 1060 POKE IO+6,(IO+17)-256*((IO+17)/256) 1070 POKE IO+7,(IO+17)/256 1080 POKE IO+8,0 1090 POKE IO+9,32 1100 POKE IO+12,1: REM READ 1110 POKE IO+15,SL*16 1120 POKE IO+16,1 1130 POKE IO+17,0: REM DEVICE TYPE 1140 POKE IO+18,1: REM PHASES 1150 POKE IO+19,239 1160 POKE IO+20,216 1170 RETURN DISKHELP -This is unchanged from Kevin's version so far. *300L 0300-A9 03 LDA#$03 0302-A0 40 LDY#$40 0304-20 D9 03 JSR$03D9 0307-A0 00 LDY#$00 0309-B9 00 20 LDA$2000,Y 030C-20 DA FD JSR$FDDA 030F-C8 INY 0310-D0 F7 BNE$0309 0312-60 RTS *