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 / MODEM / SENDOUT8.ASM < prev    next >
Assembly Source File  |  2000-06-30  |  8KB  |  271 lines
  1. ;
  2. ;TITLE 'SENDOUT UTILITY V.8 FOR CP/M AND MODEM AS OF 1/19/83 AAJ'
  3. ;
  4. ;THIS ROUTINE WRITTEN BY AL JEWER AND RELEASED IN PUBLIC
  5. ;DOMAIN 4/8/81. 
  6. ; 
  7. ; THIS PROGRAM AND DOCUMENTATION COPYRIGHT 1981, 1982, 1983 
  8. ; BY AL JEWER. THIS SOFTWARE MUST NOT BE SOLD.
  9. ;
  10. ;THIS CP/M TRANSIENT COMMAND IS INVOKED IN THIS MANNER:
  11. ;
  12. ;A>SENDOUT XMODEM S FILENAME.TYP
  13. ;
  14. ;IN THIS EXAMPLE, THE STRING "XMODEM S FILENAME.TYP"
  15. ;WILL BE SENT OUT THE MODEM PORT TO A REMOTE SYSTEM.
  16. ;THIS IS FOR USE IN:
  17. ;
  18. ;        1) TRANSFERRING MULTIPLE PROGRAMS TO & FROM
  19. ;            REMOTE USING A SUBMIT FILE
  20. ;
  21. ;        2) SENDING COMMANDS WITHOUT HAVING TO
  22. ;            ENTER & EXIT THE "MODEM" PROGRAM
  23. ;
  24. ;THE STRING CAN BE UP TO 127 CHARACTERS LONG, AND IS 
  25. ;ECHOED TO THE LOCAL CONSOLE AS IT IS SENT.
  26. ;
  27. ;  DEFAULT MODE OF OPERATION
  28. ;
  29. ;THE PROGRAM WILL WAIT FOR A ">" CHARACTER BEFORE IT
  30. ;SENDS THE LINE, TO ALLOW THE REMOTE TO BE READY FOR
  31. ;THE COMMAND LINE. AS THE LINE IS SENT, THE PROGRAM 
  32. ;WILL CHECK THE CHARACTERS ECHOED BACK TO ASSURE THAT
  33. ;THE COMMAND LINE HAS BEEN TRANSMITTED PROPERLY.
  34. ;IF AN ERROR IS DETECTED, THE PROGRAM WILL SEND OUT
  35. ;A ^U FOLLOWED BY A CARRIAGE RETURN, THEN RETRY 
  36. ;SENDING THE LINE, UNTIL A PROPER TRANSMISSION IS MADE.
  37. ;
  38. ;  SPECIAL MODE OF OPERATION (FOR NON-CP/M SYSTEMS)
  39. ;
  40. ; TO ALLOW USE WITH OTHER SYSTEMS, PROVISION HAS BEEN 
  41. ; MADE TO CHANGE THE PROMPT CHARACTER IN THE COMMAND 
  42. ; LINE, USING AN ASTRISK TO INDICATE THIS MODE.
  43. ; THE COMMAND THEN TAKES THE FORM:
  44. ;
  45. ; SENDOUT *?COMMAND LINE
  46. ;
  47. ; THIS COMMAND LINE WILL CAUSE THE SENDOUT PROGRAM TO 
  48. ; WAIT FOR A '?' CHARACTER INSTEAD OF THE MORE USUAL '>'.
  49. ; ALSO, IN THE CASE WHERE A TRANSMISSION ERROR OCCURS,
  50. ; THE PROGRAM WILL SEND ASCII 'DELETE' CHARACTERS (07FH)
  51. ; TO CANCEL THE INPUT LINE. THIS IS USED INSTEAD OF THE 
  52. ; ^U USUALLY USED IN CP/M.
  53. ;
  54. ; OR,
  55. ;
  56. ; SENDOUT *^JCOMMAND LINE
  57. ;
  58. ; THIS MODE WORKS THE SAME AS ABOVE, EXCEPT IN THIS CASE,
  59. ; THE 'TRIGGER' CHARACTER WILL BE A CONTROL-J (LINE FEED).
  60. ; NOTE THAT YOU MUST TYPE THE UP-ARROW CHARACTER TO 
  61. ; INDICATE THAT THE ASCII CHARACTER FOLLOWING IS ACTUALLY
  62. ; A CONTROL CHARACTER. THIS ALLOWS USING ANY ASCII CHARACTER
  63. ; AS THE TRIGGER CHARACTER (EXCEPT, OF COURSE, FOR '^').
  64. ;
  65. ;UPDATES: (IN REVERSE ORDER TO MINIMIZE READING TIME)
  66. ;
  67. ;19-JAN-83 MODIFIED BY AL JEWER TO ALLOW USE WITH NON-CP/M
  68. ;          SYSTEMS BY ALLOWING USER-SPECIFIED 'TRIGGER'
  69. ;          CHARACTER. CHANGED APPLE MODS TO GENERAL 
  70. ;          PURPOSE MEMORY-MAPPED I/O ROUTINES. ELIMINATED
  71. ;          MULTIPLE NAMES FOR PORTS AND MASK BITS.
  72. ;
  73. ; 5-OCT-82 ADDED EQUATES TO ALLOW USE WITH AN INTEL
  74. ;          I8251 USART SERIAL PORT.
  75. ;                DAVE MABRY
  76. ;
  77. ;15-JAN-81 MODIFIED BY JOHN LIMPERT TO ADD MEMORY
  78. ;       MAPPED I/O FOR THE APPLE ][ WITH A D.C.
  79. ;       HAYES MICROMODEM IN SLOT #2. SET APPLE
  80. ;       TRUE FOR THIS CONFIGURATION.
  81. ;
  82. ;10-DEC-81 MODIFIED BY AL JEWER TO REMOVE REFERENCE TO
  83. ;       LOCAL CONSOLE PORT (FUNCTION NOW PERFORMED 
  84. ;       BY BIOS CALLS)
  85. ;       ALSO ADDED RETRY COUNTER TO GIVE UP IF PHONE
  86. ;       LINE GETS TOO HORRIBLE.
  87. ;
  88. ;23-NOV-81 MODIFIED BY JOHN LABOVITZ. ADDED SOME
  89. ;       SIGNON MESSAGES, AND ABILITY TO ABORT
  90. ;       BY A ^C.
  91. ;
  92. ;15-AUG-81 MODIFIED BY HOWARD BOOKER TO INCLUDE
  93. ;       CONDITIONAL EQUATES FOR THE DC HAYES
  94. ;       80-103A MODEM CARD.
  95. ;
  96. ;10-APR-81 REWRITTEN BY AL JEWER TO CHECK ECHOED
  97. ;       STRING FOR VALID TRANSFER.
  98. ;
  99. ;08-APR-81 MODIFIED BY TOM JORGENSON FOR SUPPORT
  100. ;       OF OTHER MODEM/PORT TYPES (ESP. H89)
  101. ;
  102. ;ANY QUESTIONS OR COMMENTS:
  103. ;
  104. ;    AL JEWER
  105. ;    PO BOX 123
  106. ;    WHITEWATER, WI. 53190
  107. ;
  108. ;    (414) 563-9932 (F4 RCPM SYSTEM)
  109. ;
  110. ;BASE DEFINITION, CHANGE THIS TO 4200H IF ALTERNATE CP/M
  111. ;(RELOCATED) VERSION SUCH AS HEATH/LIFEBOAT OR TRS-80
  112. ;
  113. BASE    EQU    0    ;BASE OF MEMORY SEGMENT
  114. ;
  115. ;THESE SHOULD BE O.K. AS IS
  116. ;
  117. CBOOT    EQU    BASE    ;JUMP HERE TO COLD BOOT CP/M
  118. BDOS    EQU    BASE+5    ;BDOS FUNCTION CALL ADDRESS
  119. BUFFER    EQU    BASE+80H ;INPUT LINE BUFFER
  120. CONOUT    EQU    2    ;CP/M CONSOLE OUTPUT FROM E
  121. PLINE    EQU    9    ;CP/M PRINT STRING AT (DE)
  122. CSTAT    EQU    11    ;CP/M CONSOLE STATUS
  123. CONIN    EQU    1    ;CP/M CONSOLE INPUT
  124. CR    EQU    0DH    ;ASCII CHARACTERS
  125. LF    EQU    0AH
  126. CTLU    EQU    'U'-40H ;CONTROL-U
  127. CTLC    EQU    'C'-40H ;CONTROL-C
  128. DELETE    EQU    07FH    ;ASCII DELETE CHARACTER (RUBOUT)
  129. ;
  130. ; IF YOU REQUIRE DEFAULTS FOR OTHER THAN CP/M SYSTEMS, CHANGE THE 
  131. ; EQUATES BELOW TO MATCH YOUR SYSTEM REQUIREMENTS.
  132. ;
  133. CANCEL    EQU    CTLU    ;THIS CHARACTER CANCELS INPUT LINE
  134. ;
  135. DEFAULT    EQU    '>'    ;DEFAULT TRIGGER CHARACTER (SYSTEM PROMPT)
  136. ;
  137. SPECIAL    EQU    '*'    ;THIS CHARACTER, WHEN USED AS THE 1ST 
  138. ;            ;CHARACTER OF THE CP/M COMMAND LINE TAIL,
  139. ;            ;INDICATES A REQUEST FOR THE NON-CP/M MODE.
  140. ;            ;(SEE DOCUMENTATION ABOVE)
  141. ;
  142. FALSE    EQU    0
  143. TRUE    EQU    NOT FALSE
  144. ;
  145. PMAPIO    SET    TRUE    ;*** DO NOT CHANGE THIS STATEMENT ***
  146.             ;THIS FLAG SETS PORT MAPPED OR MEMORY 
  147.             ;MAPPED I/O ROUTINES. IT IS ACTUALLY
  148.             ;SET UP IN EQUATES BELOW.
  149.             ;IF YOU ADD EQUATES FOR A DIFFERENT MODEM 
  150.             ;TYPE WHICH USES MEMORY MAPPED I/O, ADD
  151.             ;A 'PMAP SET FALSE' STATEMENT TO YOUR 
  152.             ;EQUATE BLOCK (EX: APPLE EQUATES)
  153. ;
  154. FASTCLK EQU    TRUE     ;TRUE IF 4MHZ OR GREATER
  155. ;
  156. RETRYS    EQU    32    ;RETRY THIS MANY TIMES BEFORE GIVING UP
  157. ;
  158. ;CHOOSE YOUR MODEM/PORT TYPE HERE:
  159. ;
  160. APPLE    EQU    FALSE    ;TRUE, IF APPLE WITH MMII
  161. H89    EQU    FALSE    ;TRUE, IF H89
  162. PMMI    EQU    TRUE     ;TRUE, IF PMMI
  163. DCH    EQU    FALSE    ;TRUE, IF DCH
  164. INTEL    EQU    FALSE    ;TRUE, IF INTEL MDS-225 OR EQUIVALENT
  165. ;
  166.     IF    PMMI
  167. ;
  168. ;CHANGE THE FOLLOWING IF YOUR PMMI IS NOT AT THE 
  169. ;STANDARD BASE ADDRESS OF 0C0H.
  170. ;
  171. TPORT    EQU    0C0H    ;THIS IS STATUS PORT
  172. DPORT    EQU    TPORT+1 ;DATA I/O PORT
  173. POTBMT    EQU    1    ;XMIT BUFFER EMPTY FLAG
  174. PODAV    EQU    2    ;DATA AVAILABLE FLAG
  175. ;
  176.     ENDIF        ;PMMI
  177. ;
  178.     IF    H89
  179. ;
  180. ;SHOULD USE THESE AS LONG AS YOU CONFORM
  181. ;TO STD PORT ADDRESS (330Q)
  182. ;
  183. TPORT    EQU    335Q    ;STATUS PORT (8250 UART)
  184. DPORT    EQU    330Q    ;DATA PORT
  185. POTBMT    EQU    040Q    ;THRE BIT (TX BUFFER EMPTY)
  186. PODAV    EQU    001Q    ;DATA AVAILABLE FLAG
  187. ;
  188.     ENDIF        ;H89
  189. ;
  190.     IF DCH
  191. ;
  192. ;STANDARD DC HAYES MODEL 80-103A PORTS
  193. ;
  194. TPORT    EQU    81H    ;STATUS PORT (TR1602 UART)
  195. DPORT    EQU    80H    ;DATA PORT
  196. POTBMT    EQU    02H    ;THRE BIT (TX BUFFER EMPTY)
  197. PODAV    EQU    01H    ;DATA AVAILABLE FLAG
  198. ;
  199.     ENDIF        ;DCH
  200. ;
  201.     IF APPLE
  202. ;
  203. PMAPIO    SET    FALSE    ;APPLE USES MEMORY MAPPED I/O
  204. ;
  205. ;APPLE ][ WITH MICROMODEM IN SLOT #2
  206. ;
  207. TPORT     EQU    0E0A6H    ;ACIA CSR
  208. DPORT     EQU    0E0A7H    ;ACIA DATA BUFFER
  209. POTBMT    EQU    02H    ;TRANSMIT REGISTER EMPTY BIT
  210. PODAV     EQU    01H    ;RECEIVER DATA AVAILABLE BIT
  211. ;
  212.     ENDIF        ;APPLE
  213. ;
  214. ;
  215.     IF    INTEL
  216. ;
  217. TPORT    EQU    0F7H    ; STATUS PORT (I8251 USART)
  218. DPORT    EQU    0F6H    ; DATA PORT
  219. POTBMT    EQU    1    ; TRANSMITTER READY
  220. PODAV    EQU    2    ; RECIEVER READY (IE CHAR AVAILABLE)
  221. ;
  222.     ENDIF        ;INTEL MDS-225
  223. ;
  224. ORG    BASE+100H    ;START OF TPA
  225. ;
  226. START:    JMP     START1    ;AROUND COPYRIGHT NOTICE
  227.     DB    'Copyright 1981, 1982, 1983 Al Jewer'
  228. START1:    LXI     H,0    ;GET THE SYSTEM STACK POINTER 
  229.     DAD    SP    ;TO THE HL
  230.     SHLD    OLDSTK    ;STORE FOR EXIT
  231.     LXI    SP,STACK ;SET SAFE STACK
  232.     CALL    ILPRT    ;SAY HELLO TO THE FOLKS
  233.     DB    'SENDOUT V. 8.0  --  Type ^C to ABORT',CR,LF,0
  234.     MVI    A,RETRYS ;SET RETRY COUNTER 
  235.     STA    TRYNUM    ;TO ITS INITIAL VALUE
  236.     LHLD    1    ;GET WARM BOOT ADDRESS
  237.     LXI    D,4    ;PLUS 1 TABLE POSITION & 1 JMP
  238.     DAD    D    ;GIVES CONSTAT VECTOR AT (HL)
  239.     MOV    E,M    ;LO BYTE OF CONSTAT
  240.     INX    H    ;POINT TO HI BYTE
  241.     MOV    D,M    ;CONSTAT VECTOR NOW IN DE
  242.     XCHG        ;CONSTAT VECTOR NOW IN HL
  243.     SHLD    CST+1    ;INIT THE CONSTAT CALL
  244.     LXI    H,2    ;DISTANCE TO NEXT VECTOR
  245.     DAD    D    ;THIS IS CONIN VECTOR AT (HL)
  246.     MOV    E,M    ;LO BYTE OF CONIN
  247.     INX    H    ;POINT TO HI BYTE
  248.     MOV    D,M    ;CONIN VECTOR NOW IN DE
  249.     XCHG        ;CONIN VECTOR NOW IN HL
  250.     SHLD    CIN+1    ;INIT THE CONIN CALL
  251.     LXI    H,BUFFER ;POINT TO COMMAND LINE BUFFER
  252.     MOV    A,M    ;GET THE CHARACTER COUNT
  253.     ORA    A    ;ZERO LENGTH?
  254.     JZ    ERROR    ;RETURN IF SO
  255.     DCR    A    ;LENGTH OF 1? (THIS WOULD BE SPACE ONLY)
  256.     JZ    ERROR    ;IGNORE THIS TOO
  257.     INR    A    ;RESTORE VALUE
  258.     INR    A    ;ADD 1 FOR FINAL CR
  259.     INX    H    ;SKIP THE LEADING SPACE
  260.     SHLD    STRING    ;STORE DEFAULT STRING ADDRESS
  261.     STA    SLEN    ;AND DEFAULT STRING LENGTH
  262.     MOV    B,A    ;STRING LENGTH IN B
  263.     INX    H    ;SKIP THE SPACE
  264.     MOV     A,M    ;GET THE 1ST CHARACTER ON THE LINE
  265.     CPI     SPECIAL    ;IS IT ALTERNATE PROMPT REQUEST?
  266.     JNZ    NOSPCL    ;JUMP IF EVERYTHING IS NORMAL
  267.     DCR    B    ;SOAK UP TRIGGER CHARACTER & NEW PROMPT.
  268.     DCR     B    ;
  269.     INX    H    ;POINT TO NEW TRIGGER CHARACTER
  270.     MOV     A,M    ;GET IT
  271.     CPI