home *** CD-ROM | disk | FTP | other *** search
/ ftp.barnyard.co.uk / 2015.02.ftp.barnyard.co.uk.tar / ftp.barnyard.co.uk / cpm / walnut-creek-CDROM / CPM / MODEMS / MODEM7 / M7SY-3.ASM < prev    next >
Assembly Source File  |  2000-06-30  |  21KB  |  544 lines
  1.  
  2. ; M7SY-3.ASM   - SANYO MBC-1000 computer overlay file for MDM722+.  2/17/84
  3. ;
  4. ; You will want to look this file over carefully. There are a number of
  5. ; options that you can use to configure the program to suit your taste.
  6. ;
  7. ; This file adapts the Sanyo MBC-1000 computer to the modem program.
  8. ; 
  9. ;
  10. ;  THIS MODIFICATION MAKES USE OF TIMER 2 ON THE 8253 TIMER IC (IC4)
  11. ;  OF THE SERIAL I/O BOARD OF THE SANYO MBC-1000.
  12. ;
  13. ;  To use this program, the serial I/O board must be modified as follows:
  14. ;
  15. ;  1. Cut etch from IC18 Pin 1 to JP2 Pin 8.
  16. ;  2. Install jumper from IC18 Pin 1 to IC4 Pin 18.
  17. ;  3. Install jumper from IC4 Pin 17 to JP2 Pin 8.
  18. ;  4. Install jumper from IC4 Pin 16 to IC4 Pin 14.
  19. ;  5. Move jumper strap to JP2 Pin 8 for programmable baud rate, other
  20. ;     pins (1-7) can still be used for standard baud rate selections.
  21. ;  6. Hardware modification is now complete.
  22. ;
  23. ;  *** THIS VERSION SETS UP THE USART FOR 8 BITS, NO PARITY, 1 STOP BIT ***
  24. ;
  25. ; Edit this file for your preferences then follow the "TO USE:" example
  26. ; shown below.
  27. ;
  28. ; Use the "SET" command to change the baudrate when desired.  It starts
  29. ; out at 1200 baud when the program is first called up.  Because of tem- 
  30. ; perature and component variations, you mave have to alter the timing
  31. ; parameters in OK300 and OK1200, plus or minus 1 or 2 numbers, if CRC
  32. ; errors occur to frequently during transmission and reception.
  33. ;
  34. ; =   =   =   =   =   =   =   =   =   =   =   =   =   =   =   =   =   =
  35. ;
  36. ; 02/17/84 - Renamed  M7SY-3.ASM with improvements on 3 bugs. (1) Use
  37. ;            MDM722 or later to eliminate the problems with Contol X when
  38. ;            dialing.  (2) Altered the parameter for 300 baud set for 0240h
  39. ;            to 0241h to eliminate overwhelming CRC errors during Send.
  40. ;            (3) Irv Hoff et al take note.  For some reason, the Sanyo's
  41. ;            lock up after a connect.  When the message "hit any key to
  42. ;            stop the bell" occurs, there is a subsequent CALL STAT and
  43. ;            CALL KEYIN that gets the Sanyo's in a tight loop.  Change
  44. ;            the CALL STAT to a JMP RETURN (goes directly to the Terminal
  45. ;            mode without waiting for a keystroke) to avoid the problem
  46. ;            while waiting for someone more astute than me to fix the bug.
  47. ;            I even tried patching in my specific BIOS addresses in a num-   
  48. ;            ber of places, figuring the problem was in INITADR--but to no
  49. ;            avail.
  50. ;
  51. ;               Bob Sandel  Canton, MI (leave msg with TCBBS 1-313-846-6127
  52. ;                         or Keith Peterson's Royal Oak CP/M 1-313-759-6569 )
  53. ;
  54. ;
  55. ; 02/01/84 - Blended MDM711SN w the top of MDM719.ASM
  56. ;          - Made Default Baud Rate 1200; Added back LOADBD to update MSPEED
  57. ;       - ^P back on at LSTTST;changed LOGON back to ^L;set TOUCHPULSE
  58. ;       - back to P=Pulse;added cosmetic remarks;BUFSIZ=XFRSIZ=16K
  59. ;          -     Bob Sandel    Canton, MI                             
  60. ;
  61. ; 08/01/83 - Altered MDM711NE for the Sanyo MBC-1000
  62. ;         computer using an external modem    - Dave Hardy
  63. ;
  64. ; 07/01/83 - Revised for use with MDM711    - Irv Hoff
  65. ; 06/22/83 - Revised for use with MDM710    - Irv Hoff
  66. ;
  67. ; =   =   =   =   =   =   =   =   =   =   =   =   =   =   =   =   =   =
  68. ;
  69. VERSION:  EQU    719    ;MDM719 (01/22/84)  --    CP/M MODEM PROGRAM
  70. ;
  71. ;       COPYRIGHTED 1984 BY IRV HOFF (TO DETER COMMERCIAL USE)
  72. ;
  73. ; THIS TELEPHONE MODEM PROGRAM USES THE CHRISTENSEN PROTOCOL.  IT HAS
  74. ; BOTH CHECKSUM AND 'CRC' CAPABILITY FOR ERROR-DETECTION. IT SUPPORTS
  75. ; DIALING AND AUTO-REDIALING FOR THE S-100 PMMI, HAYES SMARTMODEM 300
  76. ; AND 1200 AND U.S. ROBOTICS MODEMS.  IT SUPPORTS UP TO TWO ALTERNATE
  77. ; DIALING SYSTEMS SUCH AS 'MCI', 'SPRINT', ETC.  IT IS COPYRIGHTED TO
  78. ; DETER COMMERCIALISM.  IT MAY BE USED FOR NON-PROFIT PURPOSES OR CAN
  79. ; BE ALTERED OR UPDATED IF AGAIN RELEASED TO THE PUBLIC DOMAIN.
  80. ;
  81. ; OTHER EXTERNAL MODEMS MAY BE READILY USED, ALTHOUGH  MANUAL DIALING
  82. ; MAY BE NECESARY.  OVERLAYS HAVE BEEN MADE ALLOWING RAPID ADAPTATION
  83. ; TO VARIOUS COMPUTERS.  THE PROGRAM CONFORMS READILY TO NUMEROUS I/O
  84. ; DEVICES INCLUDING THE 2661, 8250, 8251, Z80-SIO, ETC.
  85. ;
  86. ; NOTE:  Current version (722+)is 71 sectors long.  Use this figure with
  87. ;     DDT, etc. to merge the appropriate overlay, regardless of what
  88. ;     the overlay may call for (such as 66 sectors for overlays made
  89. ;     during MDM712 era or 69 sectors during the MDM 719 era. )  
  90. ;
  91. ;NOTE:   M7NM-6.ASM (or later if applicable) must be used with
  92. ;     this version.  That has the 'SAVSIZ' byte just prior
  93. ;     to the 'NUMBLIB:' phone number library.
  94. ;
  95. ;***********************************************************************
  96. ; If you improve or modify this program please attempt to upload to TCBBS
  97. ; Dearborn, MI (313) 846-6127.  If there is insufficient disk space,
  98. ; leave a message on MINICBBS there.
  99. ;
  100. ;
  101. ; 02/01/84  *******   WARNING Some Bugs remain TO USE ANCHOR XII  *******
  102. ;        Still having trouble with CAL (lockup after connect); Can receive
  103. ;           at 300 & 1200 but can only send at 1200 baud.  Control X does
  104. ;           does not really terminate dial.  ATDP, manual dial, works fine!!
  105. ;           If you work it out (leave msg w TCBBS 1-313-846-6127) Bob Sandel
  106. ;
  107. ; 01/22/84  Fixed Irv's error in GETACK routine which prevented the
  108. ;  MDM719   robust improvement (added by Bob Plouffe) from working.
  109. ;        Changed ACKNAK to NO so default will require valid NAK
  110. ;        rather than non-ACK.  This is part of the robust improvements,
  111. ;        NOT because of any special ArpaNet requirement.  Changed
  112. ;        SHOWHEX to true for distribution version so users would have
  113. ;        HEX and DECIMAL reporting while transferring files (most users
  114. ;        have told me they prefer to see both).  Changed PMMI dialing
  115. ;        pulse default to 10pps which most exchanges will accept.
  116. ;        (This can be set to other pulse rates in the user overlay).
  117. ;                - Keith Petersen, W8SDZ
  118. ;
  119. ;***********************************************************************
  120. ;
  121. ;   GENERAL INTEREST:  When transferring files modem-to-modem, the batch
  122. ;   mode is extremely useful.  It allows automatic transmission of nu-
  123. ;   merous files while the operator at the receiving end does virtually
  124. ;   nothing.  It can be used for single files or with wildcards.  With
  125. ;   normal single program transfer, the receiving end switches from CRC
  126. ;   to checksum in one minute and times out completely in 100 seconds.
  127. ;   (In batch mode it times out in 3 minutes for receive.)  This offers
  128. ;   ample opportunity to transfer programs between individuals.
  129. ;
  130. ;***********************************************************************
  131. ;
  132. ; 01/21/84  NUMBLIB now automatically starts on even page.  0D00H for
  133. ;  MDM718   this version.  Made the buffer size for file transfer inde-
  134. ;        pendent from the buffer size for ASCII capture to disk.  It
  135. ;        had been 16k both since MODEM770.  The file transfer size is
  136. ;        now set to 4k for default.  Most systems can easily use 16k
  137. ;        but some very slow ones may need 8k or 4k.  Set via XFRSIZ.
  138. ;        (May be set with DDT by changing byte just prior to start of
  139. ;        NUMLIB, which is 0CFFH in this case.)  Now recognizes single
  140. ;        digit result codes for auto-dial modems.  Added code for the
  141. ;        new Anchor modems which recognize busy signals and can start
  142. ;        a redial immediately.  Thanks for ideas from Wayne Masters,
  143. ;        Ron Fowler, Fred Viles and others.        - Irv Hoff
  144. ;
  145. ; 07/27/83  Added two alternate dialing routines such as MCI and SPRINT.
  146. ;  MDM712   Fixed "disk space remaining" to read correctly with CP/M+.
  147. ;                    - Irv Hoff
  148. ;
  149. ; 07/01/83  Changed TERM to allow use of the printer port for modem use.
  150. ;  MDM711                - Irv Hoff
  151. ;
  152. ; 06/22/83  MAJOR CHANGE:  Added autodialing and automatic continuous
  153. ;  MDM710           redialing for Hayes Smartmodem 300 or 1200,
  154. ;               U.S. Robotics in addition to the PMMI modem
  155. ;               for S-100 computers.        - Irv Hoff
  156. ;
  157. ; 01/01/83  First version.  Can be assembled with ASM.COM.  (Previously
  158. ;  MDM700   it was necessary to have the MODEM7.LIB file and use MAC.COM
  159. ;        to assemble the program.)  Selected MDM700 as a new program
  160. ;
  161. ;***********************************************************************
  162. ;
  163. PORT:      EQU    0A4H    ;  Sanyo MBC-1000 Serial Port   
  164. ;
  165. MODCTL1:  EQU    PORT+1  ;modem STATUS port
  166. MODCTL2:  EQU    PORT+1  ;CHANGED FOR SANYO CONTROL PORT
  167. MODDATP:  EQU    PORT      ;modem data port
  168. CTIMER:   EQU   0A3H    ;8253 baud rate counter/timer
  169. ;
  170. MODRCVB:  EQU    02H    ;modem receive bit (DAV)
  171. MODRCVR:  EQU    02H    ;modem receive ready
  172. MODSNDB:  EQU    01H    ;modem send bit
  173. MODSNDR:  EQU    01H    ;modem send ready bit
  174. ;
  175. ;
  176. ;+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
  177. ;             SPECIAL EQUATES FOR PMMI
  178. ;
  179. BAUDRP:      EQU    PORT+2    ;modem baud rate port
  180. BRKMSK:      EQU    0FBH    ;mask to set break
  181. EVPARMSK: EQU    20H    ;mask to set even parity
  182. NOPARMSK: EQU    10H    ;mask to reset to no parity
  183. ODPARMSK: EQU    0CFH    ;mask to set odd parity
  184. ;
  185. ANSWMOD:  EQU    1EH    ;answer mode
  186. ORIGMOD:  EQU    1DH    ;originate mode
  187. WAITCTS:  EQU    150    ;number of seconds (x5) to wait for the
  188.             ;computer to answer after PMMI auto-dial
  189.             ;100=20 sec, 150=30 sec, 255=51 sec.
  190.             ;any number 0-255 acceptable
  191. ;
  192. ;          (END OF SPECIAL PMMI EQUATES)
  193. ;+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
  194. ;
  195. ;
  196. YES:    EQU    0FFH
  197. NO:    EQU    0
  198. ;
  199. ;
  200. BUFSIZ:    EQU    16    ;buffer size in Kbytes for ASCII capture to disk
  201.             ;(16k is one file extent)
  202. XFRSIZ: EQU    16      ;file transfer buffer in Kbytes.  Do not make
  203.             ;any larger than BUFSIZ.  16k works fine on all
  204.             ;but very slowest systems
  205. ;
  206. BDNMCH:    EQU    75H    ;bad name match
  207. ERRLIM:    EQU    10    ;maximum allowable consecutive errors
  208. ERRCRC:    EQU    6    ;CRC tries, then switches to CHECKSUM
  209. LIBLEN:    EQU    34    ;length of each phone library entry
  210. ;
  211. SHOWHEX:EQU    YES    ;yes, show hex record count - no, do not show
  212. ;
  213. RUB:    EQU    7FH    ;rub
  214. CRC:    EQU    'C'    ;requests 'CRC' instead of 'CKSUM'
  215. ESC:    EQU    '['-40H    ;^[ = escape
  216. SOH:    EQU    'A'-40H    ;^A = start of header
  217. EOT:    EQU    'D'-40H    ;^D = end of text
  218. EXITCHR:EQU    'E'-40H    ;^E = exit character
  219. ACK:    EQU    'F'-40H    ;^F = acknowledge
  220. OKNMCH:    EQU    'F'-40H    ;^F = ok name match
  221. BELL:    EQU    'G'-40H    ;^G = bell character
  222. BKSP:    EQU    'H'-40H    ;^H = backspace
  223. LF:    EQU    'J'-40H    ;^J = linefeed
  224. CR:    EQU    'M'-40H    ;^M = carriage return
  225. XON:    EQU    'Q'-40H    ;^Q = XON character
  226. XOFF:    EQU    'S'-40H    ;^S = XOFF character
  227. NAK:    EQU    'U'-40H    ;^U = not acknowledge
  228. CANCEL    EQU    'X'-40H    ;^X = cancel send or receive
  229. EOFCHAR:EQU    'Z'-40H    ;^Z = end of file
  230. ;
  231. ;
  232.     ORG    0100H
  233. ;
  234. ;
  235.         DS      3        ; for JUMP     START  instruction
  236. ;
  237. ;
  238. ; THESE ROUTINES AND EQUATES ARE AT THE BEGINNING OF THE PROGRAM SO
  239. ; THEY CAN BE PATCHED BY A MONITOR OR OVERLAY FILE WITHOUT RE-ASSEMBLING
  240. ; THE PROGRAM.
  241. ;
  242. PMMIMODEM:  DB    NO     ;yes=PMMI modem, no=non-PMMI modem
  243. SMARTMODEM: DB    YES     ;yes=HAYES Smartmodem or Anchor Automation Mark XII
  244. TOUCHPULSE: DB    'P'    ;T=touch, P=pulse (Smartmodem-only)
  245. ;
  246. CLOCK:       DB    40    ;clock speed x .1, up to 25.5 mhz.
  247.             ;2 MHz=20, 3.68 MH=37, 4 MHz=40, etc.
  248. MSPEED:       DB    5    ;sets display time for sending a file
  249.             ;0=110    1=300  2=450  3=600  4=710
  250.             ;5=1200 6=2400 7=4800 8=9600 9=19200
  251. BYTDLY:       DB    5    ;default time to send character in
  252.             ;terminal mode file transfer (0-9)
  253.             ;0=0 delay, 1=10 ms, 5=50 ms, 9=90 ms
  254. CRDLY:       DB    5    ;end-of-line delay after CRLF in terminal
  255.             ;mode file transfer for slow BBS systems
  256.             ;0=0 delay, 1=100 ms, 5=500 ms, 9=900 ms
  257. NOOFCOL:   DB    4    ;number of directory columns   was 5
  258. SETUPTST:  DB    YES     ;yes=non-PMMI setup routine
  259. SCRNTEST:  DB    YES    ;yes=if home cursor and clear screen
  260.             ;routine at CLRSCRN
  261. ACKNAK:       DB   YES     ;yes=resend a record after any non-ACK
  262.             ;no=resend a record after a valid NAK (robust)
  263. BAKUPBYTE: DB    NO    ;yes=make .BAK file
  264. CRCDFLT:   DB    YES    ;yes=default to CRC checking
  265.             ;no=default to Checksum checking
  266. TOGGLECRC: DB    YES    ;yes=allow toggling of Checksum to CRC
  267. CONVBKSP:  DB    NO    ;yes=convert backspace to rub
  268. TOGGLEBK:  DB    YES     ;yes=allow toggling of bksp to rub
  269. ADDLF:       DB    NO    ;no=no LF after CR to send file in
  270.             ;terminal mode (added by remote echo)
  271. TOGGLELF:  DB    YES    ;yes=allow toggling of LF after CR
  272. TRANLOGON: DB    YES     ;yes=allow transmission of logon
  273.             ;write logon sequence at location LOGON
  274. SAVCCP:       DB    YES    ;yes=do not overwrite CCP
  275. LOCNXTCHR: DB    NO    ;yes=local cmd if EXTCHR precedes
  276.             ;no=not local cmd if EXTCHR precedes
  277. TOGGLELOC: DB    YES    ;yes=allow toggling of LOCNXTCHR
  278. LSTTST:       DB    YES    ;yes=allow toggling of printer on/off
  279.             ;in terminal mode. Set to no if using
  280.             ;the printer port for the modem
  281. XOFFTST:   DB    YES    ;yes=allow testing of XOFF from remote
  282.             ;while sending a file in terminal mode
  283. XONWAIT:   DB    NO    ;yes=wait for XON after sending CR while
  284.             ;transmitting a file in terminal mode    
  285. TOGXOFF:   DB    YES    ;yes=allow toggling of XOFF testing
  286. IGNORCTL:  DB    YES     ;yes=do not send control characters
  287.             ;above CTL-M to CRT in terminal mode
  288.             ;no=send any incoming CTL-char to CRT
  289. EXTRA1:       DB    0    ;for future expansion
  290. EXTRA2:       DB    0    ;for future expansion
  291. BRKCHR:       DB    '@'-40H    ;^@ = Send a 300 ms. break tone
  292. NOCONNCT:  DB    'N'-40H    ;^N = Disconnect from phone line
  293. LOGCHR:       DB    'L'-40H    ;^L = Send logon
  294. LSTCHR:       DB    'P'-40H    ;^P = Toggle printer
  295. UNSAVECHR: DB    'R'-40H    ;^R = Close input text buffer
  296. TRANCHR:   DB    'T'-40H ;^T = Transmit file to remote
  297. SAVECHR:   DB    'Y'-40H    ;^Y = Open input text buffer
  298. EXTCHR:       DB    '^'-40H    ;^^ = Send next character
  299. ;
  300. ;
  301. ; Equates used only by PMMI routines grouped together here.
  302. ;
  303. PULSERATE: DB    250    ;125=20pps dialing, 250=10pps
  304. CHGBAUD:   DB    'B'-40H    ;^B = Used with PMMIMODEM in terminal
  305.             ;mode to change baud rate on fly
  306. ;
  307. ;
  308. ; Handles in/out ports for data and status
  309. ;
  310. IN$MODCTL1:    IN    MODCTL1 ! RET    ;in modem control port
  311.         DS    7                ;spares if needed for non-PMMI
  312. OUT$MODDATP:    OUT    MODDATP    ! RET    ;out modem data port
  313.         DS      7           ;spares if needed for non=PMMI
  314. IN$MODDATP:    IN    MODDATP ! RET    ;in modem data port
  315.                 DS      7            ;spares if needed for non-PMMI
  316. ;
  317. ANI$MODRCVB:    ANI    MODRCVB ! RET    ;bit to test for receive ready
  318. CPI$MODRCVR:    CPI    MODRCVR ! RET    ;value of receive bit when ready
  319. ANI$MODSNDB:    ANI    MODSNDB ! RET    ;bit to test for send ready
  320. CPI$MODSNDR:    CPI    MODSNDR ! RET    ;value of send bit when ready
  321. ;
  322. ;
  323. ;====================== SPECIAL PMMI PORTS =============================
  324. ;
  325. IN$BAUDRP:    IN    BAUDRP     ! RET    ;in baudrate port
  326. OUT$BAUDRP:    OUT    BAUDRP     ! RET    ;out baudrate port
  327. OUT$MODCTL1:    OUT    MODCTL1     ! RET    ;out modem control port #1
  328. OUT$MODCTL2:    OUT    MODCTL2  ! RET    ;out modem control port #2
  329. ;
  330. ;================== END OF SPECIAL PMMI PORTS ==========================
  331. ;
  332. ;
  333. LOGONPTR:    DW    LOGON
  334. JMP$DIAL:    DS      3
  335. JMP$DISCONNT:    DS      3   
  336. JMP$GOODBYE:    JMP    GOODBYE
  337. JMP$INITMOD:    JMP    INITMOD
  338.                 RET ! NOP ! NOP  
  339.                 RET ! NOP ! NOP
  340.                 RET ! NOP ! NOP
  341. JMP$SETUPR:    JMP    SETUPR
  342. JMP$SPCLMENU:    JMP    SPCLMENU
  343. JMP$SYSVER:    JMP    SYSVER
  344. JMP$BREAK    JMP    SENDBRK
  345. ;
  346. ;
  347. ; NEXT SIX LINES SHOULD NOT BE CHANGED BY USER OVERLAY AS THESE GO TO
  348. ; SPECIFIC LOCATIONS IN THE MAIN PROGRAM, NOT IN THE OVERLAY.
  349. ;
  350. JMP$ILPRT:      DS      3    
  351. JMP$INBUF:    DS      3    
  352. JMP$INLNCOMP:    DS      3        
  353. JMP$INMODEM:    DS      3      
  354. JMP$NXTSCRN:    DS      3       
  355. JMP$TIMER:    DS      3     
  356. ;
  357. ;
  358. ; Clear sequences are for Televideo, Lear Siegler, etc.  Change to match
  359. ; your terminal.  (Heath uses ESC 4AH for clear to end of screen, ESC 45H
  360. ; to clear screen.  Lear Siegler and others use ESC 79H for clear to end
  361. ; of screen and ESC 3AH to clear screen.)  Room allowed for four bytes.
  362. ; (Last zero needed for stopping the string display.  Any extra 0's just
  363. ; act as NOP's.)
  364. ;
  365. CLREOS:    CALL    JMP$ILPRT       ;was ILPRT
  366.     DB    0,0,0,0,0    ;dave hardy had 059h,0,0,0,0
  367.     RET
  368. ;.....
  369. ;
  370. ;
  371. CLRSCRN:CALL    JMP$ILPRT      ; was ILPRT
  372.     DB    1AH,0,0,0,0    ; was 1eh,59h,59h,00 in dave hardy version
  373.     RET
  374. ;.....
  375. ;
  376. ;
  377. ;======================= SIGN-ON MESSAGE ==============================    
  378. ;
  379. ; Send version number and date
  380. ;
  381. SYSVER: CALL    JMP$ILPRT      ; was LDA
  382.     DB    '       Sanyo MBC-1000 & Anchor Mark XII modem  1200 Baud'
  383.     DB    CR,LF,cr,lf,cr,lf
  384.     db    'MDM722.COM--------M7SY-2.HEX-------M7NM-6RS.HEX'
  385.     db    cr,lf,cr,lf  ;I use above to track patches: customize at will
  386.     db    0        ;end of message flag
  387.     RET
  388. ;.....
  389. ;
  390. SYSVER1:JMP      SYSVER
  391. ;.....
  392. ;
  393. ;
  394. ;==================== LOGON MESSAGE (IF ANY) ===========================
  395. ;
  396. ; Insert your logon message here.  End with a 0 (for"CALL ILPRT").
  397. ; PMMIusers have 59 bytes available, non-PMMI users have approximately
  398. ; 2K bytes available as they can overwrite all the following PMMI rou-
  399. ; tines if they wish.  This method allows the external overlays to have
  400. ; plenty of room.  It keeps the phone number library at a fixed location.
  401. ;
  402. LOGON:    DB      'Your Name?',CR,LF
  403.     DB    0        ;to terminate the logon message
  404. ;.....
  405. ;
  406. ;=========== ANCHOR MARK XII INITIALIZATION ADDED =====================
  407. ;
  408. ; Insert your initialization routine here if needed.  Can replace the
  409. ; following special PMMI area to set speed and auto-dial.  Over 950
  410. ; bytes are available for this purpose.  (End your routine with a RET.)
  411. ;
  412. ;
  413. ;=======================================================================
  414. ;
  415. ; This routine allows a 300 ms. break tone to be send to reset some
  416. ; time-share computers.
  417. ;
  418. SENDBRK:  MVI    A,1FH        ;SEND A BREAK TONE
  419.       JMP    GOODBYE1
  420. ;.....
  421. ;
  422. ;
  423. ; This routine sends a 300 ms. break tone and sets DTR low for the same
  424. ; length of time to disconnect some modesm such as the Bell 212A, etc.    
  425. ;
  426. GOODBYE:  MVI    A,08H        ;SEND BREAK, TURN OFF DTR
  427. ;
  428. GOODBYE1: OUT    MODCTL1        ;SEND TO STATUS PORT
  429.       MVI    B,3        ;WAIT 300 MS.
  430.       CALL     JMP$TIMER
  431.       MVI    A,37H        ;NORMAL SEND/RECEIVE WITH DTR
  432.       OUT    MODCTL1        ;SEND TO STATUS PORT
  433.       RET
  434. ;.....
  435. ;
  436. ;
  437. ; Sanyo MBC-1000 initialization -- sets the 8251A for 8 bits, 1 stop bit,
  438. ; no parity, 1200 Baud (was 300 baud)
  439. ;
  440. INITMOD:  MVI    A,5        ;TRANSFER TIME FOR 1200 Baud (was 1=300 BAUD)
  441.       STA    MSPEED    
  442.           MVI    A,96H        ;Set up counter/timer to be baud rate clock
  443.       OUT    CTIMER
  444.           LDA    V1
  445.       OUT    CTIMER-1
  446.       MVI    A,087H        ;INSURE OUT OF MODE state
  447.       OUT    MODCTL1        ;MODEM STATUS PORT
  448.       out   modctl1         ;slight extra delay
  449.       MVI    A,40H        ;INITIALIZE USART
  450.       OUT    MODCTL1        ;MODEM STATUS PORT
  451.       LDA    V2
  452.       ADI    4CH        ;8 DATA BITS, 1 STOP, NO PARITY
  453.       OUT    MODCTL1        ;MODEM STATUS PORT
  454.       MVI    A,17H        ;DTR, RCV, XMT, ERROR RST:hardy had 27h w RTS
  455.       OUT    MODCTL1        ;MODEM STATUS PORT
  456.       IN    PORT        ;CLEAR DATA PORT
  457.       RET
  458. ;
  459. V1    DB    010H            ;COUNTER VALUE(dflt = 1200; was 040h=300 baud)
  460. V2    DB    2        ;CLOCK DIVISOR  2 works from 150 to 1200 baud
  461. ;.....
  462. ;========== NON-PMMI SETUP (SPEED CHANGE, ETC.) IF ANY ==============
  463. ;
  464. ; Insert your speed change and/or auto-dialing routines here.
  465. ; Over 950 bytes are available (INCLUDING INITMOD, above).
  466. ; End your routine with a RET.
  467. ;
  468. ;
  469. SETUPR:      LXI    D,BAUDBUF    ;POINT TO NEW INPUT BUFFER
  470.       CALL    JMP$ILPRT
  471.       DB    'Input Baud Rate (300, 1200): ',0         ;, 1800, 2400): ',0
  472.       CALL    JMP$INBUF
  473.       LXI    D,BAUDBUF+2
  474.       CALL    JMP$INLNCOMP    ;COMPARE BAUDBUF+2 WITH CHARACTERS BELOW
  475.       DB    '300',0
  476.       JNC    OK300        ;GO IF GOT MATCH
  477.       CALL    JMP$INLNCOMP
  478.       DB    '1200',0
  479.       JNC    OK1200
  480. ;      CALL    JMP$INLNCOMP    ;killed these lines so only 300/1200 plays
  481. ;      DB    '1800',0
  482. ;      JNC    OK1800
  483. ;      CALL    JMP$INLNCOMP
  484. ;      DB    '2400',0
  485. ;      JNC    OK2400
  486.       CALL    JMP$ILPRT    ;ALL MATCHES FAILED, TELL OPERATOR
  487.       DB    '++ Incorrect entry ++',CR,LF,BELL,0
  488.       JMP    SETUPR        ;TRY AGAIN
  489. ;
  490. OK300:    LXI    H,0241H        ;V1=41h   V2=02h   ******* WARNING ******
  491.                                 ;
  492.                                 ;V1 was 40h  minor adjustment of the value
  493.                                 ;of V1 may be required because of individual
  494.                                 ;crystal, component or temperature variations.
  495.     SHLD    V1        ;SAVE PARAMETERS FOR 300 BAUD
  496.         MVI    A,1        ;MSPEED 300 BAUD VALUE
  497.         JMP    LOADBD          ;jump to load: Dave you forgot this !!
  498. ;
  499. OK1200:    LXI    H,0210H        ;V1=10h   V2=02h  See Warning in OK300
  500.     SHLD    V1
  501.     MVI    A,5
  502.     JMP     LOADBD
  503. ;
  504. ;        killed the followings lines to restrict baud set to 300 & 1200
  505. ;
  506. ;OK1800:    LXI    H,01A0H    ;V1=A0h   V2=01h
  507. ;    SHLD    V1
  508. ;    MVI    A,6
  509. ;    JMP    loadbd 
  510. ;
  511. ;OK2400:    LXI    H,0180H    ;V1=80h   V2=01h
  512. ;    SHLD    V1
  513. ;    MVI    A,6
  514. ;    JMP    loadbd 
  515. ;
  516. LOADBD: STA     INITMOD+1    ;change time-to-send to match baudrate
  517.         JMP     INITMOD         ;reset MSPEED TO NEW BAUDRATE
  518. ; 
  519. ;
  520. ;
  521. BAUDBUF:  DB    10,0
  522.       DS    10
  523. ;.....
  524. ;
  525. ;
  526. ;           (END OF INITMOD AND SETUP ROUTINES)
  527. ;=======================================================================
  528. ;        
  529. ;
  530. ; These routines can be used for your equipment.  End with RET.  If
  531. ; using the Hayes Smartmodem this is unavailable without a special ad-
  532. ; dress change.
  533. ;
  534. SPCLMENU: RET
  535. ;        
  536. ;=======================================================================
  537. ;
  538. ;
  539. ; NOTE:  MUST TERMINATE PRIOR TO 0400H (with Smartmodem)
  540. ;                 0C00H (without Smartmodem)
  541. ;
  542. ;
  543.      END        ; ************************************************
  544.