home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / cpm / modem7 / m730-mpm.lbr / M730MPM.DQF / m730mpm.dif
Text File  |  1985-02-09  |  12KB  |  553 lines
  1. 1c 0
  2. ;        
  3. .
  4. 3a 63764
  5. ;  This is a public domain progam.  The modifications shown are examples
  6. ;  of what can be done with most any modem program if a bios structure is
  7. ;  included.  Mite and Move-It are samples of two commercial modem program
  8. ;  that can be modified.
  9. ;
  10. ;  The calls in the modification look into the XIOS and MPM.SYS files.
  11. ;  The modified XIOS and RSP modules are available for almost any
  12. ;  configuration CompuPro supports from L D Snyder and Associaties, P O 
  13. ;  Box 4876, Winter Park, Florida  32793. (305) 677-1856
  14. .
  15. 62c 14975
  16. ;     M7NM-6.ASM can be used to change the telephone overlay numbers
  17. .
  18. 69c 28430
  19. ;     M7FNK.COM can be used to quickly and easily change any of the
  20. .
  21. 119,127c 25433
  22. ; SPECIAL EQUATES FOR COMPUPRO 
  23. ;
  24. BASE:        EQU    30H
  25. MODE:        EQU    BASE+2
  26. COMM:        EQU    BASE+3
  27. CUSER:        EQU    BASE+7    ;USER SELECT REGISTER
  28. EXACT:        EQU    6    ;EXACT USART TO USE     
  29. .
  30. 127a 25689
  31. SETB    EQU    1
  32. CSTAT    EQU    2
  33. CINPUT  EQU    3
  34. COUT    EQU    4
  35. CONIN    EQU    1
  36. READQ    EQU    137
  37. WRITEQ  EQU    139
  38. READQCON EQU    138    
  39. OPENQ    EQU    135    
  40. ;
  41. ;
  42. PORT:      EQU    BASE    ;your base port (data or status)
  43. ;
  44. BAUDRP:   EQU   PORT+2  ;baud rate
  45. MODCTL1:  EQU    PORT+1    ;modem control port
  46. MODDATP:  EQU    PORT      ;modem data port
  47. MODRCVB:  EQU    02H    ;modem receive bit (DAV)
  48. MODRCVR:  EQU    02H    ;modem receive ready
  49. MODSNDB:  EQU    01H    ;modem send bit
  50. MODSNDR:  EQU    01H    ;modem send ready bit
  51. ;
  52. ;
  53. .
  54. 217,218c 29136
  55. PMMIMODEM: DB    NO     ;yes=PMMI modem
  56. AUTODIAL:  DB    YES    ;yes=Hayes-type autodial modem
  57. .
  58. 221,223c 60023
  59. CLOCK:       DB    2     ;clock speed in MHz x 10, 25.5 MHz max.
  60.             ;2 MHz=20, 3.68 MH=37, 4 MHz=40, etc.
  61. MSPEED:       DB    5    ;sets display time for sending a file
  62. .
  63. 233,234c 43580
  64. SETUPTST:  DB    YES    ;yes=non-PMMI setup routine
  65. SCRNTEST:  DB    YES    ;yes=if home cursor and clear screen
  66. .
  67. 262c 26180
  68. IGNORCTL:  DB    NO     ;yes=do not send control characters
  69. .
  70. 286,295d 23886
  71. 288,295c 24142
  72. IN$MODCTL1:    
  73. ;        --- get status ---
  74. ;
  75.         push    b
  76.         push    d
  77.         push    h
  78.         mvi     a,cstat
  79.         sta    cios+2        ; set command to extended XIOS func.
  80.         lxi    d,cios
  81.         mvi     c,50        ; direct XIOS call
  82.         call    5        ; status returned in A reg.
  83.         pop    h
  84.         pop    d
  85.         pop    b
  86.  
  87.         RET    ;in modem control port
  88.  
  89.         DB    0,0,0,0,0,0,0    ;spares if needed for non-PMMI
  90. OUT$MODDATP:    
  91. ;
  92. ;     --- To send a character to COMM+ for output ---
  93. ;
  94.         push    b
  95.         push    d
  96.         push    h
  97.         sta    cios+3        ; put character and 
  98.         mvi     a,cout        
  99.         sta     cios+2        ; command into direct XIOS block
  100.         lxi    d,cios
  101.         mvi    c,50
  102.         call    5    
  103.         pop    h
  104.         pop    d
  105.         pop    b
  106.  
  107.         RET    ;out modem data port
  108.  
  109.         DB    0,0,0,0,0,0,0    ;spares if needed for non=PMMI
  110. ;
  111. CIOS    DB    6,0,0,0,0,0,0        ; BLOCK USED FOR DIRECT XIOS CALL
  112. ;
  113. IN$MODDATP:    
  114. ;
  115. ;      --- To get character from COMM+ buffer ---
  116. ;
  117.         push    b
  118.         push    d
  119.         push    h
  120.         mvi     a,cinput    ; set command byte for extended XIOS     
  121.         sta    cios+2        ; call
  122.         lxi    d,cios
  123.         mvi     c,50        
  124.         call    5        ; char. returned in A Reg.
  125.         pop    h
  126.         pop    d
  127.         pop    b
  128. ;
  129.         RET    ;in modem data port
  130. ;
  131.         DB    0,0,0,0,0,0,0    ;spares if needed for non-PMMI
  132. ANI$MODRCVB:    ANI    MODRCVB ! RET    ;bit to test for receive ready
  133. CPI$MODRCVR:    CPI    MODRCVR ! RET    ;value of receive bit when ready
  134. ANI$MODSNDB:    ANI    MODSNDB ! RET    ;bit to test for send ready
  135. CPI$MODSNDR:    CPI    MODSNDR ! RET    ;value of send bit when ready
  136. .
  137. 354,365c 24398
  138. ;
  139. ;====================== SPECIAL PMMI PORTS =============================
  140. ;
  141. IN$BAUDRP:    IN    BAUDRP     ! RET    ;in baudrate port
  142. OUT$BAUDRP:    OUT    BAUDRP     ! RET    ;out baudrate port
  143. OUT$MODCTL1:    OUT    MODCTL1     ! RET    ;out modem control port #1
  144. OUT$MODCTL2:    OUT    MODCTL2  ! RET    ;out modem control port #2
  145. ;
  146. ;================== END OF SPECIAL PMMI PORTS ==========================
  147. .
  148. 365,373c 24654
  149. LOGONPTR:    DW    LOGON
  150. JMP$DIAL:    JMP    DIAL
  151. JMP$DISCONNT:    JMP    DISCONNT
  152. JMP$GOODBYE:    JMP    GOODBYE
  153. JMP$INITMOD:    JMP    INITMOD
  154. JMP$NEWBAUD:    JMP    NEWBAUD
  155. JMP$NOPARITY:    JMP    NOPARITY
  156. JMP$PARITY:    JMP    PARITY
  157. JMP$SETUPR:    JMP    SETUPR
  158. JMP$SPCLMENU:    JMP    SPCLMENU
  159. JMP$SYSVER:    JMP    SYSVER
  160. JMP$BREAK    JMP    SENDBRK
  161. .
  162. 379,389c 24910
  163. ; NEXT SIX LINES SHOULD NOT BE CHANGED BY USER OVERLAY AS THESE GO TO
  164. ; SPECIFIC LOCATIONS IN THE MAIN PROGRAM, NOT IN THE OVERLAY.
  165. ;
  166. JMP$ILPRT:    JMP    ILPRT
  167. JMP$INBUF:    JMP    INBUF
  168. JMP$INLNCOMP:    JMP    INLNCOMP
  169. JMP$INMODEM:    JMP    INMODEM
  170. JMP$NXTSCRN:    JMP    NXTSCRN
  171. JMP$TIMER:    JMP    TIMER
  172. .
  173. 390,391c 25166
  174. ; Clear sequences are for Televideo, Lear Siegler, etc.  Change to match
  175. ; your terminal.  (Heath uses ESC 4AH for clear to end of screen, ESC 45H
  176. ; to clear screen.  Lear Siegler and others use ESC 79H for clear to end
  177. ; of screen and ESC 3AH to clear screen.)  Room allowed for four bytes.
  178. ; (Last zero needed for stopping the string display.  Any extra 0's just
  179. ; act as NOP's.)
  180. ;
  181. CLREOS:    CALL    ILPRT
  182.     DB    ESC,79H,0,0,0
  183. .
  184. 402a 30242
  185. CLRSCRN:CALL    ILPRT
  186.     DB    ESC,3AH,0,0,0
  187.     RET
  188. ;.....
  189. ;
  190. ;
  191. .
  192. 426,427c 39546
  193. SYSVER1:CALL    ILPRT        ;if not usig the PMMI S-100 board
  194.     DB    'Version for CompuPro running MP/M 816 and '
  195.     DB      'Hayes Smartmodem 1200',CR,LF,LF,0
  196. .
  197. 453c 9912
  198. INITMOD:
  199.     push    b
  200.     push    d
  201.     push    h      
  202. ;
  203. ; Make sure there is an available communications port
  204. ;
  205.  
  206.     mvi    b,0
  207.     mvi    c,1
  208. qloop2:    mov    a,c
  209.     adi    30h
  210.     sta    qname+6        ; Make the Queue name
  211.     push    b        ; save the number of this port
  212.     mvi    c,openq
  213.     lxi    d,qpb
  214.     call    bdos        ; open queue
  215.     mvi    c,readqcon
  216.     lxi    d,qpb
  217.     call    bdos        ; see if queue has message
  218.     cpi    0ffh
  219.     jz    setstat        ; it's not available
  220. ;    mvi    c,writeq
  221. ;    lxi    d,qpb
  222. ;    call    bdos        ; it's available, put message back for now
  223.     mvi    a,0
  224. setstat: cma            ; make true=FFh, false=0h
  225.     pop    b
  226.     lxi    h,pstat1
  227.     dcx    h
  228.     dad    b
  229.     mov    m,a        ; store status
  230.     inr    c
  231.     mvi    a,3        ; check if done
  232.     cmp    c
  233.     jnz    qloop2        ; check the other queue
  234.     
  235.     lda    pstat1
  236.     mov    b,a
  237.     lda    pstat2
  238.     add    b        ; get sum of status'
  239.     jnz    check1
  240.     lxi    d,noportmsg    ; no ports available
  241.     call    pstring
  242.     mvi    c,0
  243.     call    bdos        ; exit program
  244.  
  245. check1: cpi    0ffh        ; only one available ?
  246.     jz    tellifok    ; tell user which one
  247.     lxi    d,askwhich    ; else, ask which one
  248.     call    pstring
  249. getchoice: mvi    c,conin
  250.     call    bdos        ; get response
  251.     sta    ptouse        ; save response
  252.     cpi    33h
  253.     jnc    badchoice    
  254.     cpi    31h
  255.     jc    badchoice
  256.     jz    w2back
  257.     mvi    a,31h
  258.     jmp    wqback
  259. w2back:    mvi    a,32h
  260. wqback: sta    qname+6
  261.     mvi    c,writeq
  262.     lxi    d,qpb
  263.     call    bdos        ; write the queue back that were not using    
  264.     jmp    setport        ; choice ok
  265.  
  266. askwhich: db    cr,lf,'Console 1 and Console 2 available as'
  267.     db    ' communication ports.',cr,lf
  268.     db    'Please enter console number to use (1 or 2) ? $'
  269. choices:  db    cr,lf,'The possible consoles choices are 1 or 2 - ? $'
  270. pstat1:    db    0
  271. pstat2:    db    0
  272. noportmsg: db    cr,lf,'NO Communication Ports available.'
  273.        db    cr,lf,'Use COMM to activate communication ports.$'
  274. tellmsg: db    cr,lf,'Console '
  275. tellport: db    0
  276.       db    ' is the only available port.  OK to use ? $'
  277. ptousemsg: db    cr,lf,cr,lf,'Please make sure console '
  278. ptouse:    db    0
  279.     db    ' is properly connected '
  280.     db    cr,lf,'for use as a communications '
  281.     db    'port.....',cr,lf,cr,lf,'$'
  282.  
  283. qpb:    db    0,0        ;must be zero
  284.     dw    0        ;queue ID
  285.     dw    1        ;nmsgs
  286.     dw    char        ;buffer addr.
  287. qname:    db    'MXcomm_ '    ;name to open
  288.     db    0,0,0,0,0
  289. char:    db    0,0,0
  290.  
  291. pstring: mvi    c,print
  292.     call    bdos
  293.     ret    
  294.          
  295. badchoice: lxi    d,choices
  296.     call    pstring
  297.     jmp    getchoice    ; ask again
  298. tellifok: lda    pstat1
  299.     ana    a
  300.     jnz    use1
  301.     mvi    a,32h
  302.     sta    tellport    ; its console 2
  303.     jmp    stickport
  304. use1:    mvi    a,31h        ; its console 1
  305.     sta    tellport
  306. stickport: sta    ptouse
  307.     lxi    d,tellmsg
  308.     call    pstring
  309.     mvi    c,conin
  310.     call    bdos
  311.     ani    11011111b    ; force to upper case
  312.     cpi    'Y'
  313.     jz    setport
  314.     mvi    c,0
  315.     call    bdos        ; else quit program
  316. setport: lxi    d,ptousemsg
  317.     call    pstring
  318.     lda    ptouse
  319.     sta    qname+6
  320.     sui    30h        ; convert to binary
  321.     sta     cios+1        ; put into direct xios call block    
  322.     
  323. ;    mvi    c,readq
  324. ;    lxi    d,qpb
  325. ;    call    bdos        ; read queue for good now
  326.  
  327.     mvi    c,164        ; get printer number and save it
  328.     call    5
  329.     sta    ptrnum
  330.  
  331.     pop    h
  332.     pop    d
  333.     pop    b
  334.     ret    
  335. .
  336. 1175,1179c 8066
  337.      CALL    ILPRT
  338.     DB    CR,LF,LF,'++ Connected ++'
  339.      DB    BELL,0
  340.     MVI    B,5        ;wait half second for Smodem to spit out
  341.      CALL    TIMER        ;'CONNECT' else we'll see NNECT on CRT
  342. ; 
  343. .
  344. 1183,1186c 65296
  345. ;    JMP    TERM
  346. ;    CALL    STAT        ;keypress?
  347. ;    JZ    CONMADE3    ;exit if no keys pressed
  348. ;    CALL    KEYIN
  349. ;    XRA    A
  350. .
  351. 1195a 45343
  352. ;
  353. .
  354. 1628c 26272
  355.     DB    '    Additional Subcommands for PMMI Modems'
  356. .
  357. 1636,1650c 23476
  358.     DB    '       Both ends must be capable of these options'
  359.     DB    CR,LF
  360.     DB    '       which are available only in R and S modes.'
  361.     DB    CR,LF
  362.     DB    '       The parity checking will be part of the'
  363.     DB    CR,LF
  364.     DB    '       file transfer protocol.',CR,LF,LF
  365.     DB    '  Speed Options:',CR,LF
  366.     DB    '    After entering your primary and secondary '
  367.     DB    'options,',CR,LF
  368.     DB    '    you can set the modem speed by placing a '
  369.     DB    ' "." after',CR,LF
  370.     DB    '    the options followed by the speed e.g., '
  371.     DB    '300, 600.',CR,LF,LF
  372.     DB    '    EXAMPLE:  SBO.600 will set the modem for '
  373. .
  374. 1852c 26107
  375.     DB    VERSION MOD 10+'0',' 04/18/84 - (type M for Menu)',CR,LF,0
  376. .
  377. 1930c 52906
  378. ;    SHLD    GOLIST+1    ;bios list device status jump vector
  379.                 ;we want to skip this for mpm
  380. .
  381. 3092,3094c 38886
  382. LSTMSG:    LDA    LISTFLG
  383. .
  384. 3094a 3854
  385.     JMP    ATTLST        ;attempt to attach list device
  386. ;
  387. attlst1:CALL    ILPRT
  388.     DB    'Printer buffer is ',0
  389. .
  390. 3102c 38008
  391. ;
  392. LSTMSG1:CALL      ILPRT
  393.     DB    'Printer buffer is ',0
  394.     CALL    ILPRT
  395.     DB    'OFF',CR,LF,0
  396.     call    detlst        ; Detach list device
  397.     ret
  398. ;
  399. detlst:    push    psw
  400.     push    b
  401.     push    d
  402.     push    h
  403.     mvi    c,159
  404.     call    5
  405.     pop    h
  406.     pop    d
  407.     pop    b
  408.     pop    psw
  409.     ret
  410. ;
  411. attlst:      push    psw
  412.       push    b
  413.       push    d
  414.       push    h
  415.       mvi    c,161        ; Conditional list attach
  416.       call    5
  417.       ora    a
  418.       jz    attlst2        ; go ahead and attach
  419.       lda    listflg
  420.       cma            ; Else toggle flag off
  421.       sta    listflg        ; and tell user the printer is busy
  422.       lda    ptrnum
  423.       adi    30h        ; make prnum ascii
  424.       sta    prnuma
  425.       mvi    c,9
  426.       lxi    d,prbusy
  427.       call    5                    
  428.         pop    h
  429.       pop     d    
  430.       pop     b
  431.       pop     psw
  432.       jmp    lstmsg1
  433. attlst2:  mvi    c,158
  434.       call     5    
  435.       pop    h
  436.       pop    d
  437.       pop     b
  438.       pop    psw
  439.       jmp    attlst1    
  440. ;
  441. prbusy:      db    cr,lf,'  Printer # '
  442. prnuma:      db    0
  443.       db    ' is Busy',cr,lf,'$'     
  444. .
  445. 3157,3160c 38264
  446. ;...
  447. .
  448. 3329a 8809
  449. ; List the character on the printer if it is ready, then see if at the
  450. ; top of the buffer.
  451. ;
  452. ;
  453. GOLIST:      push    b
  454.       push    d
  455.       push    h
  456.       mvi     c,50
  457.       lxi     d,pstat
  458.       call     5
  459.       pop    h
  460.       pop     d
  461.       pop    b
  462.  
  463. ;      CALL    $-$        
  464.       ORA    A        
  465.       RZ            
  466.       JMP    LIST$CONT
  467. pstat:      db    15
  468. ptrnum:      db    0        ; PRINTER NUMBER
  469.       db     0,0,0,0,0,0    ; Direct XIOS call memory area
  470. ;
  471. ;
  472. ;....
  473. ;
  474. .
  475. 3452,3459d 59427
  476. 3455c 57117
  477. LIST$CONT CALL    CMP$I$O        ; if the same then nothing to print
  478. .
  479. 5402c 62832
  480. PRTNAME:DB    '    ','.','   ',0   ; 8 spaces, period, 3 spaces
  481. .
  482. 6173c 1235
  483.     DB    '          Single Letter Commands',CR,LF,LF
  484. .
  485. 6181,6183c 7539
  486.     DB    '     For copying text to disk use T (E or L) '
  487.     DB    'FILENAME.TYP',CR,LF
  488.     DB    '     Start or Stop toggles described on subsequent'
  489. .
  490. 6188,6199c 11265
  491.     DB    '     COMMAND: R (or S) FILENAME.TYP',CR,LF
  492.     DB    '     R and S can use the following subcommands:'
  493.     DB    CR,LF
  494.     DB    '        B  - Bulk transfer using wildcards '
  495.     DB    '(e.g., *.*)',CR,LF
  496.     DB    '        D  - Disconnect when done'
  497.     DB    CR,LF
  498.     DB    '        Q  - Quiet mode (no messages to console)'
  499.     DB    CR,LF
  500.     DB    '        V  - View <R> or <S> bytes on console'
  501.     DB    CR,LF
  502.     DB    '        X  - When done, disconnect, go to CP/M'
  503. .
  504. 6209,6210c 32460
  505.     DB    '        Three Letter Commands',CR,LF,LF
  506.     DB    'MPM - Exit from this program to MP/M',CR,LF
  507. .
  508. 6278c 8077
  509.     DB    0        ;Set command went here
  510. .
  511. 6281c 11858
  512.     DB    'BYE - Disconnect, then return to MP/M'
  513. .
  514. 6295c 3847
  515.     DB    '      The following are terminal text '
  516. .
  517. 6303c 30219
  518.     DB    '    Local Commands while in Terminal Mode'
  519. .
  520. 6344,6350c 60606
  521.     DB    '         Start & Stop may be toggled as often as '
  522.     DB    'desired.',CR,LF
  523.     DB    '         A ";" at start of line indicates buffer '
  524.     DB    'is copying.',CR,LF
  525.     DB    '         XOFF automatically used to stop input '
  526.     DB    'when writing',CR,LF
  527.     DB    '        full buffer to disk, XON sent to '
  528. .
  529. 6431c 57216
  530.     DB    'MPM',0
  531. .
  532. 6477,6479c 13434
  533.     CALL    INLNCOMP    ;after this went the set command
  534. .
  535. 6533c 64117
  536.     DB    '     SPECIAL FUNCTION KEY TABLE'
  537. .
  538. 6590c 34013
  539.     DB    CR,LF,'<< Exit to MP/M >>',CR,LF,0
  540. .
  541. 7159c 52697
  542.     DB    '       Library of Phone Numbers of Remote Systems'
  543. .
  544. 7173c 40082
  545.     PUSH    H        ;save source address
  546. .
  547. 7268c 54092
  548.     DB    '        Current Settings',CR,LF,LF,0
  549. .
  550. $a 42947
  551. .
  552. 09,6210c 32460
  553.     DB    '        T