💾 Archived View for mirrors.apple2.org.za › archive › apple.cabi.net › FAQs.and.INFO › TelecomInfo ›… captured on 2023-03-20 at 22:55:22.
⬅️ Previous capture (2023-01-29)
-=-=-=-=-=-=-
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: <HAGSTROM.94May28060506@al-burro.mit.edu>
References: <2s1jd0$50h@ucsbuxb.ucsb.edu>
<dirk-270594105402@muffin.maschinenbau.uni-dortmund.de>
<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.