68kMLA Classic Interface
This is a version of the 68kMLA forums for viewing on your favorite old mac. Visitors on modern platforms may prefer the main site.
| Click here to select a new forum. | | MacTEP | Posted by: gavo on 2011-01-07 14:22:13
I'm sure I used to have a copy of this but cant find it. A bit of a search of the interweb has also turned up nothing. Does anyone have a copy or a link for this? Its the Mac's first telecommunications program, written in Microsoft BASIC, and released as freeware at the time by Dennis Brothers.
Cheers,
| Posted by: gavo on 2011-01-08 01:25:49
I knew I had it somewhere - I'll post it here just in case I lose it again (and of course for others to enjoy).
1000 REM MacTEP - Macintosh Terminal Emulator - Version 1.60a
1010 REM Dennis F. Brothers - Compuserve ID [70065,172] - 16 Mar 84
1020 REM COPYRIGHT 1984 - BROTHERS ASSOCIATES, WAYLAND MA
1030 REM PERMISSION IS HEREBY GRANTED FOR PERSONAL, NON-COMMERCIAL
1040 REM REPRODUCTION AND USE OF THIS PROGRAM, PROVIDED THAT THIS NOTICE IS
1050 REM INCLUDED IN ANY COPY
1060 REM
1070 REM Modem connection (MAC -> modem) 3->7 5->2 8->1 9->3
1080 REM
1090 REM
1100 DEFINT A-Z :REM default to integers for speed
1110 REM
1120 REM
1130 REM Define constants
1140 REM
1150 BUFLIM=32
1160 REM
1170 FALSE=0: TRUE=-1
1180 REM
1190 LF=10: LF$=CHR$(LF)
1200 CR=13: CR$=CHR$(CR)
1202 BS=8: BS$=CHR$(BS)
1204 DEL=127: DEL$=CHR$(DEL)
1210 XON=17:XON$=CHR$(XON)
1220 XOFF=19: XOFF$=CHR$(XOFF)
1230 REM
1240 CMDB=186: CMDB$=CHR$(CMDB)
1250 CMDE=171: CMDE$=CHR$(CMDE)
1260 CMDR=168: CMDR$=CHR$(CMDR)
1270 CMDT=160: CMDT$=CHR$(CMDT)
1280 REM
1290 REM
2000 REM initialize and display startup information
2010 REM
2020 CALL TEXTSIZE(9): CALL TEXTFONT(4): WIDTH 80
2030 CLS: PRINT: PRINT: PRINT
2040 PRINT "MacTEP - V1.60a - copyright ) 1984, Brothers Associates
2050 PRINT: PRINT: PRINT
2051 PRINT " Enter sends a CONTROL-C"
2052 PRINT " Command-C interrupts this program"
2060 PRINT " Option-E option-E exits to the Macintosh desktop"
2070 PRINT " Option-T starts and stops ASCII transmit (upload)"
2080 PRINT " Option-R starts and stops ASCII receive (download)"
2090 PRINT " Option-B starts and stops ASCII Basic receive"
2100 PRINT " (lines not beginning with a digit are ignored"
2110 PRINT: PRINT
2120 REM
2130 REM Open the COM1 port, set the baud rate
2140 REM
2150 OPEN "com1: " AS #1
2160 GOSUB 9000
2170 PRINT: PRINT: PRINT
2180 REM
2190 REM
3000 REM Main terminal emulator routines
3010 REM
3020 IF BR > 300 THEN GOTO 4000
3030 REM
3040 REM Low speed - no throttling required
3050 REM
3060 WHILE LOC(1)<>0
3070 C=ASC(INPUT$(1,1)) AND &H7F
3080 IF C<>LF AND C<>XOFF AND C<>XON THEN PRINT CHR$(C);
3090 WEND
3100 C$=INKEY$
3110 IF C$="" THEN GOTO 3060
3120 IF C$=CMDE$ THEN PRINT: PRINT "Exiting...": SYSTEM
3130 IF C$=CMDB$ THEN BMODE=TRUE: GOTO 5000
3140 IF C$=CMDR$ THEN BMODE=FALSE: GOTO 5000
3150 IF C$=CMDT$ THEN GOTO 6000
3152 IF C$=BS$ THEN C$=BSCH$
3160 PRINT #1,C$;
3170 GOTO 3060
3180 REM
3190 REM
4000 REM high speed - use X-on/X-off throttling
4010 REM
4020 XFLAG=FALSE
4030 WHILE LOC(1)<>0
4040 IF (LOC(1)>BUFLIM) AND (NOT XFLAG) THEN PRINT #1,XOFF;: XFLAG=TRUE
4050 C=ASC(INPUT$(1,1)) AND &H7F
4060 IF C<>LF AND C<>XOFF AND C<>XON THEN PRINT CHR$(C);
4070 WEND
4080 IF XFLAG THEN XFLAG=FALSE: PRINT #1,XON$;
4090 C$=INKEY$
4100 IF C$="" THEN GOTO 4030
4110 IF C$=CMDE$ THEN PRINT: PRINT "Exiting...": SYSTEM
4120 IF C$=CMDB$ THEN BMODE=TRUE: GOTO 5000
4130 IF C$=CMDR$ THEN BMODE=FALSE: GOTO 5000
4140 IF C$=CMDT$ THEN GOTO 6000
4142 IF C$=BS$ THEN C$=BSCH$
4150 PRINT #1,C$
4160 GOTO 4030
4170 REM
4180 REM
5000 REM receive (download) ASCII file
5010 REM
5020 PRINT: LINE INPUT "receive file name: ",F$
5025 IF F$="" THEN GOTO 3000
5030 OPEN F$ FOR OUTPUT AS #2
5040 XFLAG=FALSE: L$=""
5050 WHILE F$<>""
5060 WHILE LOC(1)<>0
5070 IF (LOC(1)>BUFLIM) AND (NOT XFLAG) THEN PRINT #1,XOFF$;: XFLAG=TRUE
5080 C=ASC(INPUT$(1,1)) AND &H7F
5090 IF C=LF OR C=XOFF OR C=XON THEN GOTO 5170
5100 PRINT CHR$(C);
5110 IF C<>CR THEN L$=L$+CHR$(C): GOTO 5170
5120 IF NOT XFLAG THEN PRINT #1,XOFF$;: XFLAG=TRUE
5130 IF BMODE AND (L$="") THEN GOTO 5170
5140 IF BMODE THEN C$=LEFT$(L$,1): IF (C$<"0") OR (C$>"9") THEN GOTO 5160
5150 PRINT #2,L$
5160 L$=""
5170 WEND
5180 IF XFLAG THEN XFLAG=FALSE: PRINT #1,XON$;
5190 C$=INKEY$
5200 IF C$="" THEN GOTO 5250
5210 IF ((C$<>CMDB$) AND (C$<>CMDR$)) THEN PRINT #1,C$;: GOTO 5250
5220 CLOSE #2
5230 PRINT: PRINT "Receive Ended": PRINT
5240 F$=""
5250 WEND
5260 GOTO 3000
5270 REM
5280 REM
6000 REM transmit (upload) ASCII file
6010 REM
6020 PRINT: LINE INPUT "transmit file name: ",F$
6030 IF F$="" THEN GOTO 3000
6040 OPEN F$ FOR INPUT AS #2
6050 XFLAG=FALSE: DLY=FALSE: QUIT=FALSE
6060 I=1: LL=0
6070 WHILE NOT ((EOF(2) AND (I>LL)) OR QUIT)
6080 WHILE LOC(1)<>0
6090 IF (LOC(1)>BUFLIM) AND (NOT XFLAG) THEN PRINT #1,XOFF$;: XFLAG=TRUE
6100 C=ASC(INPUT$(1,1)) AND &H7F
6110 IF C=LF THEN GOTO 6150
6120 IF C=XOFF THEN DLY=TRUE: GOTO 6150
6130 IF C=XON THEN DLY=FALSE: GOTO 6150
6140 PRINT CHR$(C);
6150 WEND
6160 IF XFLAG THEN XFLAG=FALSE: PRINT #1,XON$;
6170 IF DLY THEN GOTO 6250
6180 IF I<=LL THEN GOTO 6230
6190 PRINT #1,XOFF$;
6200 LINE INPUT #2,L$
6210 I=0: LL=LEN(L$)
6220 PRINT #1,XON$;
6230 IF I=LL THEN PRINT #1,CR$;: I=I+1: GOTO 6250
6240 I=I+1: PRINT #1,MID$(L$,I,1);
6250 C$=INKEY$
6260 IF C$="" THEN GOTO 6290
6270 IF C$=CMDT$ THEN QUIT=TRUE: GOTO 6290
6280 PRINT #1,C$;
6290 WEND
6300 CLOSE #2
6310 PRINT: PRINT "Transmit Ended": PRINT
6320 GOTO 3000
6330 REM
6340 REM
9000 REM Subroutine to ask for and set COM1 baud rate
9010 REM
9020 REM Fill array with Write SCC B machine-language subroutine
9030 REM
9040 DIM ML(50)
9050 I=0
9060 READ A: ML(I)=A
9070 I=I+1
9080 IF A<>-1 THEN GOTO 9060
9090 REM
9100 REM Get baud rate, calculate time constant, and bash SCC
9110 REM
9120 INPUT "Baud Rate: ",BR
9130 TC=(115200!/BR)-2
9140 TCH=INT(TC/256)
9150 TCL=TC MOD 256
9160 R=12: X=TCL: WSCCB!=VARPTR(ML(0)): CALL WSCCB!(R,X)
9170 R=13: X=TCH: WSCCB!=VARPTR(ML(0)): CALL WSCCB!(R,X)
9172 INPUT "delete instead of backspace (y/n)", BSC$
9174 IF BSC$="Y" OR BSC$="y" THEN BSCH$=DEL$ ELSE BSCH$=BS$
9180 RETURN
9190 REM
9200 REM 68000 machine language code for subroutine to write
9210 REM control regs of Z8530 Serial Communication Controller (SCC)
9220 REM - this subroutine addresses the B port of the Mac's SCC
9230 REM
9240 REM link A6,0
9250 DATA &H4E56,&H0000
9260 REM move.B 11(A6),10(A6)
9270 DATA &H1D6E,&H000B,&H000A
9280 REM clr.B 11(A6)
9290 DATA &H422E,&H000B
9300 REM move.B 9(A6),8(A6)
9310 DATA &H1D6E,&H0009,&H0008
9320 REM clr.B 9(A6)
9330 DATA &H422E,&H0009
9340 REM or.W 0700H,SR
9350 DATA &H007C,&H0700
9360 REM move.W 10(A6),00B00002H
9370 DATA &H33EE,&H000A,&H00B0,&H0002
9380 REM move.W 8(A6),00B00002H
9390 DATA &H33EE,&H0008,&H00B0,&H0002
9400 REM and.W 0F8FFH,SR
9410 DATA &H027C,&HF8FF
9420 REM unlk A6
9430 DATA &H4E5E
9440 REM rts
9450 DATA &H4E75
9460 REM
9470 DATA -1
9480 REM
9490 END | Posted by: Dog Cow on 2011-01-08 16:10:11
A bit of a search of the interweb has also turned up nothing. Check Usenet newsgroup net.sources. I found posts indicating that it was posted there. I have the archive of that newsgroup, but it's not online at Mac GUI.
Oh, looks like one was posted in net.micro.mac too, version 1.81
0 REM Terminal program for Macintosh with up/download, 1200 baud, autodial ...
10 REM Overlay to MacTEP v. 1.81
20 REM Overlay by Loftus E. Becker, Jr. - Compuserve 70206,67
30 REM Adds Automatic Dial/Redial (Anchor Mark XII, Hayes Smartmodem),
40 REM viewing disk files, resetting baud rate, and timer functions
50 REM
1010 REM
1020 REM Version 1.81 - 6-Apr-84
1030 REM Dennis F. Brothers - Compuserve 70065,172 - MCI Mail DBROTHERS
1040 REM
1050 REM Copyright (c) 1984 - Brothers Associates, Wayland MA
1060 REM Permission is hereby granted for personal, non-commercial
1070 REM reproduction and use of this program, provided that this
1080 REM notice is included in any copy. MacTEP v. 1.81
| Posted by: gavo on 2011-01-08 18:13:09
Cheers Dog Cow!
| | 1 |
|