Columbia Kermit

home *** CD-ROM | disk | FTP | other *** search

/ Columbia Kermit / kermit.zip / archives / vmskermit32.zip / vmsmsg.mar < prev next >

Wrap

Text File | 1990-06-01 | 494KB | 10,785 lines

; 0001 0 %TITLE 'KERMSG - Kermit message processing' ; 0002 0 MODULE KERMSG (IDENT = '3.3.111' ; L 0003 0 %IF %BLISS(BLISS32) ; 0004 0 %THEN ; 0005 0 ,ADDRESSING_MODE(EXTERNAL = GENERAL, NONEXTERNAL = GENERAL) ; 0006 0 %FI ; 0007 0 ) = ; 0008 1 BEGIN ; 0009 1 ; 0010 1 SWITCHES LANGUAGE (COMMON); ; 0011 1 ; 0012 1 !<BLF/WIDTH:100> ; 0013 1 ; 0014 1 !++ ; 0015 1 ! FACILITY: ; 0016 1 ! Kermit-10, VMS Kermit, Pro/Kermit ; 0017 1 ! ; 0018 1 ! ABSTRACT: ; 0019 1 ! KERMSG is the message processing routines for Kermit-10, VMS Kermit, ; 0020 1 ! and PRO/Kermit. ; 0021 1 ! This module is written in common BLISS, so that it can be ; 0022 1 ! transported for the DECsystem-10 and VAX/VMS systems. ; 0023 1 ! ; 0024 1 ! ENVIRONMENT: ; 0025 1 ! User mode ; 0026 1 ! ; 0027 1 ! AUTHOR: Robert C. McQueen, CREATION DATE: 24-January-1983 ; 0028 1 ! ; 0029 1 ! MODIFIED BY: ; 0030 1 ! ; 0031 1 !-- ; 0032 1 ; 0033 1 %SBTTL 'Table of Contents' ; 0034 1 !+ ; 0035 1 !.pag.lit ; 0036 1 ! Table of Contents for KERMSG ; 0037 1 ! ; 0038 1 ! ; 0039 1 ! Section Page ; 0040 1 ! 1. Revision History . . . . . . . . . . . . . . . . . . . 3 ; 0041 1 ! 2. Interface requirements . . . . . . . . . . . . . . . . 4 ; 0042 1 ! 3. Declarations ; 0043 1 ! 3.1. Forward definitions . . . . . . . . . . . . . 5 ; 0044 1 ! 4. Require files. . . . . . . . . . . . . . . . . . . . . 28 ; 0045 1 ! 5. Macro definitions. . . . . . . . . . . . . . . . . . . 29 ; 0046 1 ! 6. KERMIT Protocol Definitions. . . . . . . . . . . . . . 30 ; 0047 1 ! 6.1. Packet offsets. . . . . . . . . . . . . . . . 31 ; 0048 1 ! 6.2. Message dependent field . . . . . . . . . . . 32 ; 0049 1 ! 6.3. SEND initiate packet. . . . . . . . . . . . . 33 ; 0050 1 ! 7. KERMIT Protocol States . . . . . . . . . . . . . . . . 34 ; 0051 1 ! 8. Internal constants . . . . . . . . . . . . . . . . . . 35 ; 0052 1 ! 9. Storage - External . . . . . . . . . . . . . . . . . . 36 ; 0053 1 ! 10. Storage - Local. . . . . . . . . . . . . . . . . . . . 37 ; 0054 1 ! 11. External references. . . . . . . . . . . . . . . . . . 38 ; 0055 1 ! 12. MSG_INIT . . . . . . . . . . . . . . . . . . . . . . . 39 ; 0056 1 ! 13. SND_ERROR. . . . . . . . . . . . . . . . . . . . . . . 40 ; 0057 1 ! 14. SERVER - Server mode . . . . . . . . . . . . . . . . . 41 ; 0058 1 ! 15. SEND_SWITCH. . . . . . . . . . . . . . . . . . . . . . 42 ; 0059 1 ! 16. REC_SWITCH . . . . . . . . . . . . . . . . . . . . . . 43 ; 0060 1 ! 17. Server ; 0061 1 ! 17.1. DO_GENERIC - Execute a generic command. . . . 44 ; 0062 1 ! 18. DO_TRANSACTION - Main loop for FSM . . . . . . . . . . 45 ; 0063 1 ! 19. REC_SERVER_IDLE - Idle server state. . . . . . . . . . 46 ; 0064 1 ! 20. SEND_SERVER_INIT . . . . . . . . . . . . . . . . . . . 47 ; 0065 1 ! 21. SEND_DATA. . . . . . . . . . . . . . . . . . . . . . . 48 ; 0066 1 ! 22. SEND_FILE. . . . . . . . . . . . . . . . . . . . . . . 49 ; 0067 1 ! 23. SEND_EOF . . . . . . . . . . . . . . . . . . . . . . . 50 ; 0068 1 ! 24. SEND_INIT. . . . . . . . . . . . . . . . . . . . . . . 51 ; 0069 1 ! 25. SEND_OPEN_FILE - Open file for sending . . . . . . . . 52 ; 0070 1 ! 26. SEND_GENCMD. . . . . . . . . . . . . . . . . . . . . . 53 ; 0071 1 ! 27. SEND_BREAK . . . . . . . . . . . . . . . . . . . . . . 54 ; 0072 1 ! 28. REC_INIT . . . . . . . . . . . . . . . . . . . . . . . 55 ; 0073 1 ! 29. REC_FILE . . . . . . . . . . . . . . . . . . . . . . . 56 ; 0074 1 ! 30. REC_DATA . . . . . . . . . . . . . . . . . . . . . . . 57 ; 0075 1 ! 31. SERVER - Generic commands. . . . . . . . . . . . . . . 58 ; 0076 1 ! 32. HOST_COMMAND - perform a host command. . . . . . . . . 59 ; 0077 1 ! 33. CALL_SY_RTN - handle operating system dependent functions 60 ; 0078 1 ! 34. Message processing ; 0079 1 ! 34.1. PRS_SEND_INIT - Parse send init params. . . . 61 ; 0080 1 ! 35. SET_SEND_INIT. . . . . . . . . . . . . . . . . . . . . 62 ; 0081 1 ! 36. SEND_PACKET. . . . . . . . . . . . . . . . . . . . . . 63 ; 0082 1 ! 37. REC_MESSAGE - Receive a message. . . . . . . . . . . . 64 ; 0083 1 ! 38. REC_PACKET . . . . . . . . . . . . . . . . . . . . . . 65 ; 0084 1 ! 39. CALC_BLOCK_CHECK . . . . . . . . . . . . . . . . . . . 66 ; 0085 1 ! 40. NORMALIZE_FILE - Put file name into normal form. . . . 67 ; 0086 1 ! 41. Buffer filling ; 0087 1 ! 41.1. Main routine. . . . . . . . . . . . . . . . . 68 ; 0088 1 ! 42. BFR_EMPTY. . . . . . . . . . . . . . . . . . . . . . . 69 ; 0089 1 ! 43. Buffer filling and emptying subroutines. . . . . . . . 70 ; 0090 1 ! 44. Add parity routine . . . . . . . . . . . . . . . . . . 71 ; 0091 1 ! 45. Parity routine . . . . . . . . . . . . . . . . . . . . 72 ; 0092 1 ! 46. Per transfer ; 0093 1 ! 46.1. Initialization. . . . . . . . . . . . . . . . 73 ; 0094 1 ! 47. Statistics ; 0095 1 ! 47.1. Finish message transfer . . . . . . . . . . . 74 ; 0096 1 ! 48. Status type out ; 0097 1 ! 48.1. STS_OUTPUT. . . . . . . . . . . . . . . . . . 75 ; 0098 1 ! 49. TYPE_CHAR - Type out a character . . . . . . . . . . . 76 ; 0099 1 ! 50. Debugging ; 0100 1 ! 50.1. DBG_SEND. . . . . . . . . . . . . . . . . . . 77 ; 0101 1 ! 50.2. DBG_RECEIVE . . . . . . . . . . . . . . . . . 78 ; 0102 1 ! 50.3. DBG_MESSAGE . . . . . . . . . . . . . . . . . 79 ; 0103 1 ! 51. End of KERMSG. . . . . . . . . . . . . . . . . . . . . 80 ; 0104 1 !.end lit.pag ; 0105 1 !- ; 0106 1 %SBTTL 'Revision History' ; 0107 1 ; 0108 1 !++ ; 0109 1 ! Start of version 1. ; 0110 1 ! ; 0111 1 ! 1.0.000 By: Robert C. McQueen On: 4-Jan-1983 ; 0112 1 ! Create this program. ; 0113 1 ! ; 0114 1 ! 1.0.001 By: Robert C. McQueen On: 30-Apr-1983 ; 0115 1 ! Change PAR_xxx to be PR_xxx, so that they can be used for ; 0116 1 ! KERMIT-10. ; 0117 1 ! ; 0118 1 ! 1.0.002 By: Robert C. McQueen On: 1-May-1983 ; 0119 1 ! Add DO_GENERIC routine to cause a generic Kermit command to ; 0120 1 ! be executed on the remote Kermit. ; 0121 1 ! ; 0122 1 ! 1.0.003 By: Robert C. McQueen On: 3-May-1983 ; 0123 1 ! Fix message number incrementing. ; 0124 1 ! ; 0125 1 ! 1.0.004 By: Robert C. McQueen On: 4-May-1983 ; 0126 1 ! Allow RECEIVE file-specification to work correctly. ; 0127 1 ! ; 0128 1 ! 1.0.005 By: Robert C. McQueen On: 6-May-1983 ; 0129 1 ! Add more stats support. ; 0130 1 ! ; 0131 1 ! 1.0.006 By: Nick Bush On: 13-June-1983 ; 0132 1 ! Fix SEND_PACKET to copy correct characters when fixing ; 0133 1 ! parity bits. ; 0134 1 ! ; 0135 1 ! 1.1.007 By: Nick Bush On: 15-July-1983 ; 0136 1 ! Correct SEND-INIT message handling to do the right things ; 0137 1 ! with the protocol version 3 items. ; 0138 1 ! ; 0139 1 ! 1.1.010 By: Robert C. McQueen On: 20-July-1983 ; 0140 1 ! Make PARITY a global routine, so that it can be called by ; 0141 1 ! CONNECT processing. Change the name from PARITY to GEN_PARITY ; 0142 1 ! add a new routine to generate the parity, since it is not ; 0143 1 ! part of the checksum. ; 0144 1 ! ; 0145 1 ! 1.1.011 By: Robert C. McQueen On: 28-July-1983 ; 0146 1 ! KER_TIMEOUT errors in the SERVER loop would cause ; 0147 1 ! KER_UNISRV error messages to be returned to the remote. ; 0148 1 ! Check for receive failures and send NAKs instead. ; 0149 1 ! ; 0150 1 ! 1.2.012 By: Robert C. McQueen On: 23-August-1983 ; 0151 1 ! Don't abort if we get a message that is just an end of line ; 0152 1 ! character. It could be noise on the line. ; 0153 1 ! ; 0154 1 ! 1.2.013 By: Nick Bush On: 7-September-1983 ; 0155 1 ! Fix several problems with the SEND_xxx parameters ; 0156 1 ! ; 0157 1 ! 1.2.014 By: Robert C. McQueen On: 15-September-1983 ; 0158 1 ! Add routine calls to XFR_STATUS to tell the user on the ; 0159 1 ! number of packets have changed. ; 0160 1 ! ; 0161 1 ! 1.2.015 By: Nick Bush On: 5-October-1983 ; 0162 1 ! Add 2 and 3 character checksum (block check) support. ; 0163 1 ! Add support for data within acknowledgement packets ; 0164 1 ! and withing end-of-file packets to allow for file ; 0165 1 ! transmission to be aborted. Also add support for ; 0166 1 ! "I" packet to allow server parameters to be initialized. ; 0167 1 ! ; 0168 1 ! 1.2.016 By: Nick Bush On: 19-October-1983 ; 0169 1 ! Add repeat character support. ; 0170 1 ! ; 0171 1 ! 2.0.017 Release TOPS-10 Kermit-10 version 2.0 ; 0172 1 ! Release VAX/VMS Kermit-32 version 2.0 ; 0173 1 ! ; 0174 1 ! 2.0.018 By: Robert C. McQueen On: 16-November-1983 ; 0175 1 ! Fix four checks on the message number that were not ; 0176 1 ! mod 64. ; 0177 1 ! ; 0178 1 ! 2.0.019 By: Robert C. McQueen On: 16-November-1983 ; 0179 1 ! Remove the CLEAR routine. It is not really needed. ; 0180 1 ! ; 0181 1 ! 2.0.020 By: Nick Bush On: 12-Dec-1983 ; 0182 1 ! Fix SEND_DATA and BFR_FILL to handle empty files and ; 0183 1 ! files which happen to end just on a message boundary. ; 0184 1 ! This would sometimes produce extra nulls. ; 0185 1 ! ; 0186 1 ! 2.0.021 By: Nick Bush On: 15-Dec-1983 ; 0187 1 ! Fix some problems with REC_MESSAGE which would cause ; 0188 1 ! aborts when a message timed out. ; 0189 1 ! ; 0190 1 ! 2.0.022 By: Robert C. McQueen 19-Dec-1983 ; 0191 1 ! Make STATUS a local for most routines and remove FILE_DUMP ; 0192 1 ! as it is nolonger needed. ; 0193 1 ! ; 0194 1 ! 2.0.023 By: Nick Bush On: 3-Jan-1984 ; 0195 1 ! Change FIL_NORMAL_FORM to contain not just a flag, but ; 0196 1 ! a file name type instead. ; 0197 1 ! ; 0198 1 ! 2.0.024 By: Nick Bush On: 11-Jan-1984 ; 0199 1 ! Fix REC_MESSAGE to send NAK for packet we expect, not ; 0200 1 ! previous packet. ; 0201 1 ! ; 0202 1 ! 2.0.025 By: Nick Bush On: 23-Jan-1984 ; 0203 1 ! Re-enable server-init packet and complete code so that ; 0204 1 ! parameters set by it will remain set. ; 0205 1 ! Fix file name copying to use BFR_FILL or BFR_EMPTY ; 0206 1 ! so that all quoting/compression is done properly. ; 0207 1 ! ; 0208 1 ! 2.0.026 By: Nick Bush On: 15-Feb-1984 ; 0209 1 ! Add code for generic command support (both directions). ; 0210 1 ! There is now only one state dispatch loop, entered ; 0211 1 ! in various states for different functions. ; 0212 1 ! ; 0213 1 ! 2.0.027 By: Robert C. McQueen On: 16-Feb-1984 ; 0214 1 ! At some point SEND_TIMEOUT became global, but it was not moved ; 0215 1 ! to KERGLB. This edit moves it to KERGLB.BLI. ; 0216 1 ! ; 0217 1 ! 2.0.030 By: Nick Bush On: 2-March-1984 ; 0218 1 ! Fix BFR_FILL to handle case of last repeated character ; 0219 1 ! not fitting within a packet. It was forgetting to ; 0220 1 ! send the characters at all. ; 0221 1 ! ; 0222 1 ! 2.0.031 By: Nick Bush On: 6-March-1984 ; 0223 1 ! Make sure FILE_OPEN_FLAG is set properly when advancing ; 0224 1 ! to next file of a wild-card send. The file was not ; 0225 1 ! being set true, leading to problems after a couple files. ; 0226 1 ! ; 0227 1 ! 2.0.032 By: Nick Bush On: 9-March-1984 ; 0228 1 ! Fix UNPACK_DATA in SERVER_GENERIC to properly store ; 0229 1 ! new string pointer. ; 0230 1 ! ; 0231 1 ! 2.0.033 By: Robert C. McQueen On: 12-March-1984 ; 0232 1 ! If NEXT_FILE fails with anything other than a NOMORFILES ; 0233 1 ! it should change state to STATE_A not STATE_SB. This ; 0234 1 ! fixes a problem caused by Pro/Kermit and KERFIL (VMS). ; 0235 1 ! ; 0236 1 ! 2.0.034 By: Nick Bush On: 15-March-1984 ; 0237 1 ! Put file spec into X packet as well as F packet. This ; 0238 1 ! makes wild card TYPE's work nicer. ; 0239 1 ! ; 0240 1 ! 2.0.035 By: Nick Bush On: 20-March-1984 ; 0241 1 ! Fix send/receive quoting to conform to the way the ; 0242 1 ! protocol manual says it should be done, rather ; 0243 1 ! than the way we (and Kermit-20) have always done it. ; 0244 1 ! ; 0245 1 ! 2.0.036 By: Nick Bush On: 28-March-1984 ; 0246 1 ! Make SERVER_GENERIC more defensive against badly ; 0247 1 ! constructed packets. If an argument has negative ; 0248 1 ! length, punt the request. Also put angle brackets ; 0249 1 ! around data from "X" packet header, so file names will ; 0250 1 ! stick out. ; 0251 1 ! ; 0252 1 ! 3.0.037 Start of version 3. ; 0253 1 ! ; 0254 1 ! 3.0.040 By: Nick Bush On: 2-April-1984 ; 0255 1 ! Add separate server timeout. This allows stopping the ; 0256 1 ! server NAK's without affecting the normal packet timeout. ; 0257 1 ! ; 0258 1 ! 3.0.041 By: Nick Bush On: 12-April-1984 ; 0259 1 ! Fix block check calculation to account for the fact ; 0260 1 ! that the parity bits are put onto the message when ; 0261 1 ! it is sent (in place), so that if a retransmission is ; 0262 1 ! done without refilling the buffer (as is normal with ; 0263 1 ! data messages), the parity bits will be there. Make ; 0264 1 ! sure we strip them out for block check calculation. ; 0265 1 ! ; 0266 1 ! 3.1.042 By: Nick Bush On: 27-August-1984 ; 0267 1 ! If we get too many retries when sending a server init (I) ; 0268 1 ! packet, don't abort. Instead, just try sending the server ; 0269 1 ! command, since the Kermit on the other end might be coded ; 0270 1 ! wrong and is responding to packets it doesn't understand ; 0271 1 ! with a NAK. ; 0272 1 ! ; 0273 1 ! 3.1.043 By: Nick Bush On: 27-August-1984 ; 0274 1 ! Don't abort receives on zero length messages. Just treat ; 0275 1 ! it like a timeout. ; 0276 1 ! ; 0277 1 ! 3.1.044 By: Nick Bush On: 10-April-1985 ; 0278 1 ! Remove IBM mode. It will be instituted by IBM_CHAR being ; 0279 1 ! set >= 0 if handshaking is needed. ; 0280 1 ! ; 0281 1 ! 3.1.045 BY: David Stevens On: 15-July-1985 ; 0282 1 ! Fix terminal message for multiple file sendings. Type out ; 0283 1 ! "Sending: " in the system dependent NEXT_FILE routine. ; 0284 1 ! ; 0285 1 ! Start of version 3.2 ; 0286 1 ! ; 0287 1 ! 3.2.070 By: Robert McQueen On: 17-Dec-1985 ; 0288 1 ! Fix CRC calculations when sending 8 bit data and not ; 0289 1 ! using 8 bit quoting. ; 0290 1 ! ; 0291 1 ! 3.2.071 By: Robert McQueen On: 11-March-186 ; 0292 1 ! Include space in the message buffer for the line termination ; 0293 1 ! character. ; 0294 1 ! ; 0295 1 ! 3.3.100 By: Gregory P. Welsh On: 1-June-1986 ; 0296 1 ! Made FILE_OPEN_FLAG GLOBAL so it could be updated properly for ; 0297 1 ! Transmit function from module KERTRM. Also renamed it to ; 0298 1 ! FFILE_OPEN_FLAG so it could be distinguished externally from ; 0299 1 ! routine FILE_OPEN. ; 0300 1 ! ; 0301 1 ! 3.3.104 By: Robert McQueen On: 5-July-1986 ; 0302 1 ! Add changes/fixes suggested by Art Guion and David Deley for ; 0303 1 ! KERMSG.BLI. ; 0304 1 ! - Always attempt a handshake in IBM mode. Failing to handshake ; 0305 1 ! may cause 3704/5 style controller to hang a VM system. ; 0306 1 ! - Don't lose the last character in a buffer. BFR_FILL logic ; 0307 1 ! forgets to send the last cahracters of a file when it doesn't ; 0308 1 ! fit into the current packet. ; 0309 1 ! ; 0310 1 ! 3.3.107 By: Antonino N. Mione On: 8-Sep-1986 ; 0311 1 ! Do not abort on ERROR packet while in SERVER mode. Instead, ; 0312 1 ! return to SERVER IDLE mode. ; 0313 1 ! ; 0314 1 ! 3.3.108 By: Burt Johnson On: 1-Feb-1990 ; 0315 1 ! Added Dan Norstedt's TOP10 support for Extended Length packets; ; 0316 1 ! Header parity is computed, but not used. ; 0317 1 ! Undone 3.3.107, to allow for Ctrl-Cs to work properly ; 0318 1 ! Added PSECT PLIT = $CODE$ to accommodate TT_TEXT address ; 0319 1 ! references within 32k word_relative address boundry. ; 0320 1 ! ; 0321 1 ! 3.3.109 JHW007 Jonathan H. Welch, 4-Apr-1990 17:05 ; 0322 1 ! Backed out 3.3.108 PSECT PLIT = $CODE$ and replaced it ; 0323 1 ! with a compile-time test for BLISS32 systems so that ; 0324 1 ! references to data use longword offsets. ; 0325 1 ! ; 0326 1 ! 3.3.110 JHW008 Jonathan H. Welch, 5-Apr-1990 10:57 ; 0327 1 ! Modified the call to NORMALIZE_FILE in routine REC_FILE ; 0328 1 ! to adjust file name and type lengths downwards to 39 ; 0329 1 ! characters each as opposed to the pre-VMS 4 format of ; 0330 1 ! 9 for the name and 3 for the type. ; 0331 1 ! ; 0332 1 ! 3.3.111 JHW011 Jonathan H. Welch, 17-May-1990 9:06 ; 0333 1 ! Modified a miscoded call to send_packet in routine ; 0334 1 ! send_gencmd to correctly specify the length of the ; 0335 1 ! response packet to transmit. This miscoding only ; 0336 1 ! affected long packet support, in particular, when ; 0337 1 ! GETting files standard length packets were being used ; 0338 1 ! when long packet support was available in both kermit ; 0339 1 ! programs. ; 0340 1 !-- ; 0341 1 ; 0342 1 %SBTTL 'Interface requirements' ; 0343 1 ; 0344 1 !++ ; 0345 1 ! Interface requirements ; 0346 1 ! ; 0347 1 ! The following routines and data locations are rquired for a correct ; 0348 1 ! implementation of KERMIT. ; 0349 1 ! ; 0350 1 ! File routines: ; 0351 1 ! ; 0352 1 ! FILE_OPEN (Function) ; 0353 1 ! This routine will open a file for reading or writting. It ; 0354 1 ! will assume that FILE_SIZE contains the number of bytes ; 0355 1 ! and FILE_NAME contains the file name of length FILE_SIZE. ; 0356 1 ! The function that is passed is either FNC_READ or FNC_WRITE. ; 0357 1 ! ; 0358 1 ! FILE_CLOSE () ; 0359 1 ! This routine will close the currently open file. This ; 0360 1 ! routine will return the status of the operation. ; 0361 1 ! ; 0362 1 ! GET_FILE (Character) ; 0363 1 ! This routine will get a character from the currently open file ; 0364 1 ! and store it in the location specified by "Character". There ; 0365 1 ! will be a true/false value returned by the routine to determine ; 0366 1 ! if there was an error. ; 0367 1 ! ; 0368 1 ! PUT_FILE (Character) ; 0369 1 ! This routine will output a character to the currently open ; 0370 1 ! file. It will return a true/false value to determine if the ; 0371 1 ! routine was successful. ; 0372 1 ! ; 0373 1 ! NEXT_FILE () ; 0374 1 ! This routine will advance to the next file. This routine ; 0375 1 ! will return false if there are no more files to process. ; 0376 1 ! ; 0377 1 ! Communications line routines: ; 0378 1 ! ; 0379 1 ! RECEIVE (Buffer address, Address of var to store length into) ; 0380 1 ! This routine will receive a message from the remote Kermit. ; 0381 1 ! ; 0382 1 ! SEND (Buffer address, Length in characters) ; 0383 1 ! This routine will send a message to the remote Kermit. ; 0384 1 ! ; 0385 1 ! GEN_CRC (Buffer address, length in characters) ; 0386 1 ! This routine will calculate the CRC-CCITT for the characters ; 0387 1 ! in the buffer. ; 0388 1 ! ; 0389 1 ! Operating system routines: ; 0390 1 ! ; 0391 1 ! SY_DISMISS (Seconds) ; 0392 1 ! This routine will cause Kermit to sleep for the specified ; 0393 1 ! number of seconds. It is used to handle the DELAY parameter. ; 0394 1 ! ; 0395 1 ! SY_LOGOUT () ; 0396 1 ! Log the job off of the system. (Kill the process). ; 0397 1 ! ; 0398 1 ! SY_TIME () ; 0399 1 ! This routine will return the starting time milliseconds. ; 0400 1 ! It can be the start of Kermit, the system, etc, so long ; 0401 1 ! as it always is incrementing. ; 0402 1 ! ; 0403 1 ! Status routines: ; 0404 1 ! ; 0405 1 ! XFR_STATUS (Type, Subtype); ; 0406 1 ! This routine is called to indicate the occurance of ; 0407 1 ! a significant event that the user interface may wish ; 0408 1 ! to inform the user about. The arguments indicate the ; 0409 1 ! type of event. ; 0410 1 ! Type: "S" - Send, "R" - Receive ; 0411 1 ! Subtype: "P" - Packet ; 0412 1 ! "N" - NAK ; 0413 1 ! "T" - timeout ; 0414 1 ! For type = "I" (initiate), "T" (terminate): ; 0415 1 ! Subtype: "S" - a file send ; 0416 1 ! "R" - a file receive ; 0417 1 ! "G" - a generic command ; 0418 1 ! "I" - for "T" only, returning to server idle ; 0419 1 ! For type = "F" (file operation): ; 0420 1 ! Subtype: "S" - open for sending ; 0421 1 ! "R" - open for receiving ; 0422 1 ! "C" - closing file OK ; 0423 1 ! "X" - aborting file by user request ; 0424 1 ! "Z" - aborting group by user request ; 0425 1 ! "D" - aborting file, but saving due to disposition ; 0426 1 ! "A" - aborting file due to protocol error ; 0427 1 ! ; 0428 1 ! Error processing: ; 0429 1 ! ; 0430 1 ! KRM_ERROR (Error parameter) ; 0431 1 ! This routine will cause an error message to be issued. ; 0432 1 ! The error parameter is defined by KERERR. This may cause ; 0433 1 ! SND_ERROR to be called to send an "E" message to the remote. ; 0434 1 ! ; 0435 1 ! Terminal I/O routines: ; 0436 1 ! ; 0437 1 ! TERM_DUMP (Buffer, Count) ; 0438 1 ! DBG_DUMP (Buffer, Count) ; 0439 1 ! This routine will dump the buffer onto the user's terminal. ; 0440 1 ! The routine is supplied with the count of the characters ; 0441 1 ! and the address of the buffer. ; 0442 1 ! These may be the same routine or different. DBG_DUMP ; 0443 1 ! is only called for debugging output. ; 0444 1 ! ; 0445 1 ! ; 0446 1 ! ENTRY POINTS ; 0447 1 ! ; 0448 1 ! KERMSG contains the following entry points for the KERMIT. ; 0449 1 ! ; 0450 1 ! SERVER () ; 0451 1 ! This routine will cause KERMIT go enter server mode. ; 0452 1 ! ; 0453 1 ! SEND_SWITCH () ; 0454 1 ! This routine will send a file. It expects that the user ; 0455 1 ! has stored the text of the file name into FILE_NAME and ; 0456 1 ! the length of the text into FILE_SIZE. ; 0457 1 ! ; 0458 1 ! REC_SWITCH () ; 0459 1 ! This routine will receive a file. It expects that the default ; 0460 1 ! file name is set up in FILE_NAME and the length is in ; 0461 1 ! FILE_SIZE. ; 0462 1 ! ; 0463 1 ! GEN_PARITY (Character) ; 0464 1 ! This routine will return the character with the proper parity ; 0465 1 ! on the character. ; 0466 1 ! ; 0467 1 ! SND_ERROR (COUNT, ADDRESS) ; 0468 1 ! This routine will send the text of an error to the remote ; 0469 1 ! Kermit. ; 0470 1 ! ; 0471 1 ! DO_GENERIC (TYPE) ; 0472 1 ! This routine will cause a generic function to be sent to ; 0473 1 ! the remote Kermit. This routine will then do all of the ; 0474 1 ! necessary hand shaking to handle the local end of the generic ; 0475 1 ! Kermit command. ; 0476 1 ! ; 0477 1 ! ; 0478 1 ! GLOBAL Storage ; 0479 1 ! ; 0480 1 ! The following are the global storage locations that are used to interface ; 0481 1 ! to KERMSG. These locations contains the various send and receive parameters. ; 0482 1 ! ; 0483 1 ! Receive parameters: ; 0484 1 ! ; 0485 1 ! RCV_PKT_SIZE ; 0486 1 ! Receive packet size. ; 0487 1 ! RCV_NPAD ; 0488 1 ! Padding length ; 0489 1 ! RCV_PADCHAR ; 0490 1 ! Padding character ; 0491 1 ! RCV_TIMEOUT ; 0492 1 ! Time out ; 0493 1 ! RCV_EOL ; 0494 1 ! End of line character ; 0495 1 ! RCV_QUOTE_CHR ; 0496 1 ! Quote character ; 0497 1 ! RCV_8QUOTE_CHR ; 0498 1 ! 8-bit quoting character ; 0499 1 ! RCV_SOH ; 0500 1 ! Start of header character ; 0501 1 ! ; 0502 1 ! Send parameters (Negative values denote the default, positive user supplied): ; 0503 1 ! ; 0504 1 ! SND_PKT_SIZE ; 0505 1 ! Send packet size ; 0506 1 ! SND_NPAD ; 0507 1 ! Padding length ; 0508 1 ! SND_PADCHAR ; 0509 1 ! Padding character ; 0510 1 ! SND_TIMEOUT ; 0511 1 ! Time out ; 0512 1 ! SND_EOL ; 0513 1 ! End of line character ; 0514 1 ! SND_QUOTE_CHR ; 0515 1 ! Quote character ; 0516 1 ! SND_SOH ; 0517 1 ! Start of header character (normally 001) ; 0518 1 ! ; 0519 1 ! Statistics: ; 0520 1 ! ; 0521 1 ! SND_TOTAL_CHARS ; 0522 1 ! Total characters sent for this Kermit session ; 0523 1 ! RCV_TOTAL_CHARS ; 0524 1 ! Total characters received for this Kermit session ; 0525 1 ! SND_DATA_CHARS ; 0526 1 ! Total number of data characters sent for this Kermit session ; 0527 1 ! RCV_DATA_CHARS ; 0528 1 ! Total number of data characters received for this Kermit session ; 0529 1 ! SND_COUNT ; 0530 1 ! Total number of packets that have been sent ; 0531 1 ! RCV_COUNT ; 0532 1 ! Total number of packets that have been received. ; 0533 1 ! SMSG_TOTAL_CHARS ; 0534 1 ! Total characters sent for this file transfer ; 0535 1 ! RMSG_TOTAL_CHARS ; 0536 1 ! Total characters received for this file transfer ; 0537 1 ! SMSG_DATA_CHARS ; 0538 1 ! Total data characters sent for this file transfer ; 0539 1 ! RMSG_DATA_CHARS ; 0540 1 ! Total data characters received for this file transfer ; 0541 1 ! SMSG_NAKS ; 0542 1 ! Total number of NAKs sent for this file transfer ; 0543 1 ! RMSG_NAKS ; 0544 1 ! Total number of NAKs received for this file transfer ; 0545 1 ! XFR_TIME ; 0546 1 ! Amount of time the last transfer took in milliseconds. ; 0547 1 ! TOTAL_TIME ; 0548 1 ! Total amount of time spend transfering data. ; 0549 1 ! ; 0550 1 ! Misc constants: ; 0551 1 ! ; 0552 1 ! LAST_ERROR ; 0553 1 ! ASCIZ of the last error message issued. ; 0554 1 ! FILE_NAME ; 0555 1 ! Vector containing the ASCII characters of the file name. ; 0556 1 ! FILE_SIZE ; 0557 1 ! Number of characters in the FILE_NAME vector. ; 0558 1 ! DELAY ; 0559 1 ! Amount of time to delay ; 0560 1 ! DUPLEX ; 0561 1 ! DP_HALF or DP_FULL to denote either half duplex or full duplex. ; 0562 1 ! [Currently only DP_FULL is supported] ; 0563 1 ! PKT_RETRIES ; 0564 1 ! Number of retries to attempt to read a message. ; 0565 1 ! SI_RETRIES ; 0566 1 ! Number of retries to attempt on send inits ; 0567 1 ! DEBUG_FLAG ; 0568 1 ! Debugging mode on/off ; 0569 1 ! WARN_FLAG ; 0570 1 ! File warning flag ; 0571 1 ! IBM_FLAG ; 0572 1 ! True if talking to an IBM system, else false. ; 0573 1 ! ECHO_FLAG ; 0574 1 ! Local echo flag ; 0575 1 ! CONNECT_FLAG ; 0576 1 ! Connected flag; True if terminal and SET LINE are the same ; 0577 1 ! PARITY_TYPE ; 0578 1 ! Type of parity to use on sends. ; 0579 1 ! DEV_PARITY_FLAG ; 0580 1 ! Device will add parity to message. True if device adds ; 0581 1 ! parity and false if we must do it. ; 0582 1 ! FLAG_FILE_OPEN ; 0583 1 ! File is opened. ; 0584 1 ! ; 0585 1 !-- ; 0586 1 ; 0587 1 %SBTTL 'Declarations -- Forward definitions' ; 0588 1 !<BLF/NOFORMAT> ; 0589 1 ! ; 0590 1 ! Forward definitions ; 0591 1 ! ; 0592 1 ; 0593 1 FORWARD ROUTINE ; 0594 1 ; 0595 1 ! Main loop for a complete transaction ; 0596 1 DO_TRANSACTION, ! Perform a complete transaction ; 0597 1 ; 0598 1 ! Send processing routines ; 0599 1 ; 0600 1 SEND_SERVER_INIT, ![026] Send a server init packet ; 0601 1 SEND_DATA, ! Send data to the micro ; 0602 1 SEND_FILE, ! Send file name ; 0603 1 SEND_OPEN_FILE, ! Open file for sending ; 0604 1 SEND_GENCMD, ! Send generic command ; 0605 1 SEND_EOF, ! Send EOF ; 0606 1 SEND_INIT, ! Send initialization msg ; 0607 1 SEND_BREAK, ! Send break end of transmission ; 0608 1 ; 0609 1 ! Receive processing routines ; 0610 1 ; 0611 1 REC_SERVER_IDLE, ! Wait for message while server is idle ; 0612 1 REC_INIT, ! Receive initialization ; 0613 1 REC_FILE, ! Receive file information ; 0614 1 REC_DATA, ! Receive data ; 0615 1 ! ; 0616 1 ! Server processing routines ; 0617 1 ! ; 0618 1 SERVER_GENERIC, ! Process generic KERMIT commands ; 0619 1 HOST_COMMAND, ! Process host command ; 0620 1 KERMIT_COMMAND, ! Process Kermit command ; 0621 1 CALL_SY_RTN, ! Handle calling system routine and returning result ; 0622 1 ! ; 0623 1 ! Statistic gathering routines ; 0624 1 ! ; 0625 1 END_STATS : NOVALUE, ! End of a message processing stats routine ; 0626 1 ; 0627 1 ! Low level send/receive routines ; 0628 1 ; 0629 1 CALC_BLOCK_CHECK, ! Routine to calculate the block check value ; 0630 1 SET_SEND_INIT : NOVALUE, ! Set up the MSG_SND_INIT parameters. ; 0631 1 PRS_SEND_INIT, ! Parse MSG_SND_INIT parameters. ; 0632 1 DO_PARITY : NOVALUE, ! Routine to generate parity for a message ; 0633 1 GEN_PARITY, ! Routine to add parity to a character ; 0634 1 SEND_PACKET, ! Send a packet to the remote ; 0635 1 REC_MESSAGE, ! Receive a message with retry processing ; 0636 1 REC_PACKET, ! Receive a packet from the remote ; 0637 1 ; 0638 1 ! Utility routines ; 0639 1 ; 0640 1 NORMALIZE_FILE : NOVALUE, ! Force file name into normal form ; 0641 1 BFR_EMPTY, ! Empty the data buffer ; 0642 1 BFR_FILL, ! Fill the data buffer from a file ; 0643 1 SET_STRING, ![025] Routine to set alternate get/put routines ; 0644 1 ! for use with in memory strings ; 0645 1 TYPE_CHAR, ! Type a character from a packet ; 0646 1 INIT_XFR : NOVALUE, ! Initialize the per transfer processing ; 0647 1 STS_OUTPUT : NOVALUE, ! Output current transfer status ; 0648 1 ! ; 0649 1 ! Debugging routines ; 0650 1 ! ; 0651 1 DBG_MESSAGE : NOVALUE, ! Type out a formatted message ; 0652 1 DBG_SEND : NOVALUE, ! Send message debugging routine ; 0653 1 DBG_RECEIVE : NOVALUE; ! Receive message debugging routine ; 0654 1 %SBTTL 'Require files' ; 0655 1 ; 0656 1 ! ; 0657 1 !<BLF/FORMAT> ; 0658 1 ! ; 0659 1 ! REQUIRE FILES: ; 0660 1 ! ; 0661 1 ; L 0662 1 %IF %BLISS (BLISS32) ; 0663 1 %THEN ; 0664 1 ; 0665 1 LIBRARY 'SYS$LIBRARY:STARLET'; ; 0666 1 ; 0667 1 %FI ; 0668 1 ; 0669 1 REQUIRE 'KERCOM'; ; 0878 1 ; 0879 1 REQUIRE 'KERERR'; ; 0945 1 ; 0946 1 %SBTTL 'Macro definitions' ; 0947 1 ! ; 0948 1 ! MACROS: ; 0949 1 ! ; 0950 1 ; 0951 1 MACRO ; M 0952 1 CTL (C) = ; 0953 1 ((C) XOR %O'100')%, ; M 0954 1 CHAR (C) = ; 0955 1 ((C) + %O'40')%, ; M 0956 1 UNCHAR (C) = ; 0957 1 ((C) - %O'40')%; ; 0958 1 ; 0959 1 %SBTTL 'KERMIT Protocol Definitions' ; 0960 1 ; 0961 1 !++ ; 0962 1 ! The following describes the various items that are found in the ; 0963 1 ! KERMIT messages. A complete and through desription of the protocol can be ; 0964 1 ! found in the KERMIT PROTOCOL MANUAL. ; 0965 1 ! ; 0966 1 ! ; 0967 1 ! All KERMIT messages have the following format: ; 0968 1 ! ; 0969 1 ! <Mark><CHAR(Count)><CHAR(Seq)><Message-dependent information><Check><EOL> ; 0970 1 ! ; 0971 1 ! <MARK> ; 0972 1 ! Normally SOH (Control-A, octal 001). ; 0973 1 ! ; 0974 1 ! <CHAR(Count)> ; 0975 1 ! Count of the number of characters following this position. ; 0976 1 ! Character counts of ONLY 0 to 94 are valid. ; 0977 1 ! [108] Character count = 0 means extended length type packet. ; 0978 1 ! ; 0979 1 ! <CHAR(Seq)> ; 0980 1 ! Packet sequence number, modulo 100 (octal). ; 0981 1 ! ; 0982 1 ! [108] <CHAR(Type)> ; 0983 1 ! [108] Packet type, usually a mnemonic ASCII character. ; 0984 1 ! [108] ; 0985 1 ! [108] For Extended Length packets only: ; 0986 1 ! [108] <CHAR(Count/95)> ; 0987 1 ! [108] Count of the number of characters / 95, from (HeaderCheck) ; 0988 1 ! [108] ; 0989 1 ! [108] <CHAR(Count MOD 95)> ; 0990 1 ! [108] Count of the number of characters MOD 95, from (HeaderCheck) ; 0991 1 ! [108] ; 0992 1 ! [108] <CHAR(HeaderCheck)> ; 0993 1 ! [108] Kermit type-1 checksum of the 5 preceding ASCII characters. ; 0994 1 ! ; 0995 1 ! <MESSAGE-DEPENDENT INFORMATION> ; 0996 1 ! This field contains the message dependent information. There can ; 0997 1 ! be multiple fields in this section. See the KERMIT Protocol document ; 0998 1 ! for a complete description of this. ; 0999 1 ! ; 1000 1 ! <Check> ; 1001 1 ! A block check on the characters in the packet between, but not ; 1002 1 ! including, the mark and the checksum itself. It may be one to three ; 1003 1 ! characters, depending upon the type agreed upon. ; 1004 1 ! ; 1005 1 ! 1. Single character arithmetic sum equal to: ; 1006 1 ! chksum = (s + ((s AND 300)/100)) AND 77 ; 1007 1 ! Character sent is CHAR(chksum). ; 1008 1 ! ; 1009 1 ! 2. Two character arithmetic sum. CHAR of bits 6-11 are the first ; 1010 1 ! character, CHAR of bits 0-5 are the second character. ; 1011 1 ! ; 1012 1 ! 3. Three character CRC-CCITT. First character is CHAR of bits 12-15, ; 1013 1 ! second is CHAR of bits 6-11, third is CHAR of bits 0-5. ; 1014 1 ! ; 1015 1 ! ; 1016 1 ! <EOL> ; 1017 1 ! End of line. Any line terminator that may be required by the host. ; 1018 1 !-- ; 1019 1 ; 1020 1 %SBTTL 'KERMIT Protocol Definitions -- Packet offsets' ; 1021 1 ; 1022 1 !++ ; 1023 1 ! The following define the various offsets of the standard KERMIT ; 1024 1 ! packets. ; 1025 1 !-- ; 1026 1 ; 1027 1 LITERAL ; 1028 1 PKT_MARK = 0, ! <MARK> ; 1029 1 PKT_COUNT = 1, ! <CHAR(Count)> ; 1030 1 PKT_SEQ = 2, ! <CHAR(Seq)> ; 1031 1 PKT_TYPE = 3, ! <Message type> ; 1032 1 PKT_MSG = 4, ! <MESSAGE-DEPENDENT INFORMATION> ; 1033 1 PKT_COUNTX1 = 4, ! [108] ! Ext. pkt: <CHAR(MSB(Count))> ; 1034 1 PKT_COUNTX2 = 5, ! [108] ! Ext. pkt: <CHAR(LSB(Count))> ; 1035 1 PKT_HCHECK = 6, ! [108] ! Ext. pkt: Header parity ; 1036 1 PKT_MSGX = 7, ! [108] ! <MESSAGE-DEPENDENT INFORMATION> ; 1037 1 PKT_MAX_MSG = 94 - 5, ! Maximum size of the message dependent ; 1038 1 ! information ; 1039 1 PKT_CHKSUM = 0, ! <CHAR(Chksum)> offset from end of ; 1040 1 ! Message dependent information ; 1041 1 PKT_EOL = 1, ! <Eol> offset from end of data ; 1042 1 ! [108] PKT_OVR_HEAD_B = 2, ! Header overhead ; 1043 1 ! [108] PKT_OVR_HEAD_E = 1, ! Overhead at the end ; 1044 1 PKT_OVR_HEAD = 3, ! Overhead added to data length ; 1045 1 PKT_TOT_OVR_HEAD = 6; ! Total overhead of the message ; 1046 1 ; 1047 1 %SBTTL 'KERMIT Protocol Definitions -- Message dependent field' ; 1048 1 ; 1049 1 !++ ; 1050 1 ! The MESSAGE-DEPENDENT information field of the message contains at ; 1051 1 ! least one part. That is the type of message. The remainder of the message ; 1052 1 ! MESSAGE-DEPENDENT field is different depending on the message. ; 1053 1 ! ; 1054 1 ! <TYPE><TYPE-DEPENDENT-INFORMATION> ; 1055 1 ! ; 1056 1 ! <TYPE> ; 1057 1 ! The type defines the type of message that is being processed. ; 1058 1 ! ; 1059 1 !-- ; 1060 1 ; 1061 1 ! Protocol version 1.0 message types ; 1062 1 ; 1063 1 LITERAL ; 1064 1 MSG_DATA = %C'D', ! Data packet ; 1065 1 MSG_ACK = %C'Y', ! Acknowledgement ; 1066 1 MSG_NAK = %C'N', ! Negative acknowledgement ; 1067 1 MSG_SND_INIT = %C'S', ! Send initiate ; 1068 1 MSG_BREAK = %C'B', ! Break transmission ; 1069 1 MSG_FILE = %C'F', ! File header ; 1070 1 MSG_EOF = %C'Z', ! End of file (EOF) ; 1071 1 MSG_ERROR = %C'E'; ! Error ; 1072 1 ; 1073 1 ! Protocol version 2.0 message types ; 1074 1 ; 1075 1 LITERAL ; 1076 1 MSG_RCV_INIT = %C'R', ! Receive initiate ; 1077 1 MSG_COMMAND = %C'C', ! Host command ; 1078 1 MSG_GENERIC = %C'G', ! Generic KERMIT command. ; 1079 1 MSG_KERMIT = %C'K'; ! Perform KERMIT command (text) ; 1080 1 ; 1081 1 ! Protocol version 4.0 message types ; 1082 1 ; 1083 1 LITERAL ; 1084 1 MSG_SER_INIT = %C'I', ! Server initialization ; 1085 1 MSG_TEXT = %C'X'; ! Text header message ; 1086 1 ; 1087 1 !++ ; 1088 1 ! Generic KERMIT commands ; 1089 1 !-- ; 1090 1 ; 1091 1 LITERAL ; 1092 1 MSG_GEN_LOGIN = %C'I', ! Login ; 1093 1 MSG_GEN_EXIT = %C'F', ! Finish (exit to OS) ; 1094 1 MSG_GEN_CONNECT = %C'C', ! Connect to a directory ; 1095 1 MSG_GEN_LOGOUT = %C'L', ! Logout ; 1096 1 MSG_GEN_DIRECTORY = %C'D', ! Directory ; 1097 1 MSG_GEN_DISK_USAGE = %C'U', ! Disk usage ; 1098 1 MSG_GEN_DELETE = %C'E', ! Delete a file ; 1099 1 MSG_GEN_TYPE = %C'T', ! Type a file specification ; 1100 1 ! MSG_GEN_SUBMIT = %C'S', ! Submit ; 1101 1 ! MSG_GEN_PRINT = %C'P', ! Print ; 1102 1 MSG_GEN_WHO = %C'W', ! Who's logged in ; 1103 1 MSG_GEN_SEND = %C'M', ! Send a message to a user ; 1104 1 MSG_GEN_HELP = %C'H', ! Help ; 1105 1 MSG_GEN_QUERY = %C'Q', ! Query status ; 1106 1 MSG_GEN_RENAME = %C'R', ! Rename file ; 1107 1 MSG_GEN_COPY = %C'K', ! Copy file ; 1108 1 MSG_GEN_PROGRAM = %C'P', ! Run program and pass data ; 1109 1 MSG_GEN_JOURNAL = %C'J', ! Perform journal functions ; 1110 1 MSG_GEN_VARIABLE = %C'V'; ! Return/set variable state ; 1111 1 ; 1112 1 ! ; 1113 1 ! Acknowledgement modifiers (protocol 4.0) ; 1114 1 ! ; 1115 1 ; 1116 1 LITERAL ; 1117 1 MSG_ACK_ABT_CUR = %C'X', ! Abort current file ; 1118 1 MSG_ACK_ABT_ALL = %C'Z'; ! Abort entire stream of files ; 1119 1 ; 1120 1 ! ; 1121 1 ! End of file packet modifier ; 1122 1 ! ; 1123 1 ; 1124 1 LITERAL ; 1125 1 MSG_EOF_DISCARD = %C'D'; ! Discard data from previous file ; 1126 1 ; 1127 1 %SBTTL 'KERMIT Protocol Definitions -- SEND initiate packet' ; 1128 1 ; 1129 1 !++ ; 1130 1 ! ; 1131 1 ! The following describes the send initiate packet. All fields in the message ; 1132 1 ! data area are optional. ; 1133 1 ! ; 1134 1 ! <"S"><CHAR(Bufsiz)><CHAR(Timeout)><CHAR(npad)><CTL(pad)><CHAR(Eol)><Quote> ; 1135 1 ! <8-bit-quote><Check-type><Repeat-count-processing><Reserved><Reserved> ; 1136 1 ! ; 1137 1 ! BUFSIZ ; 1138 1 ! Sending Kermit's maximum buffer size. ; 1139 1 ! ; 1140 1 ! Timeout ; 1141 1 ! Number of seconds after which the sending Kermit wishes to be timed out ; 1142 1 ! ; 1143 1 ! Npad ; 1144 1 ! Number of padding caracters the sending Kermit needs preceding each ; 1145 1 ! packet. ; 1146 1 ! ; 1147 1 ! PAD ; 1148 1 ! Padding character. ; 1149 1 ! ; 1150 1 ! EOL ; 1151 1 ! A line terminator required on all packets set by the receiving ; 1152 1 ! Kermit. ; 1153 1 ! ; 1154 1 ! Quote ; 1155 1 ! The printable ASCII characer the sending Kermit will use when quoting ; 1156 1 ! the control cahracters. Default is "#". ; 1157 1 ! ; 1158 1 ! 8-bit-quote ; 1159 1 ! Specify quoting mecanism for 8-bit quantities. A quoting mecanism is ; 1160 1 ! mecessary when sending to hosts which prevent the use of the 8th bit ; 1161 1 ! for data. When elected, the quoting mechanism will be used by both ; 1162 1 ! hosts, and the quote character must be in the range of 41-76 or 140-176 ; 1163 1 ! octal, but different from the control-quoting character. This field is ; 1164 1 ! interpreted as follows: ; 1165 1 ! ; 1166 1 ! "Y" - I agree to 8-bit quoting if you request it. ; 1167 1 ! "N" - I will not do 8-bit quoting. ; 1168 1 ! "&" - (or any other character in the range of 41-76 or 140-176) I want ; 1169 1 ! to do 8-bit quoting using this character (it will be done if the ; 1170 1 ! other Kermit puts a "Y" in this field. ; 1171 1 ! Anything else: Quoting will not be done. ; 1172 1 ! ; 1173 1 ! Check-type ; 1174 1 ! Type of block check. The only values presently allowed in this ; 1175 1 ! field are "1", "2" or "3". Future implementations may allow other ; 1176 1 ! values. Interpretation of the values is: ; 1177 1 ! ; 1178 1 ! "1" - Single character checksum. Default value if none specified. ; 1179 1 ! "2" - Double character checksum. ; 1180 1 ! "3" - Three character CRC. ; 1181 1 ! ; 1182 1 ! Repeat-count-processing ; 1183 1 ! The prefix character to be used to indicate a repeated character. ; 1184 1 ! This can be any printable cahracter other than blank (which denotes ; 1185 1 ! no repeat count). ; 1186 1 ! ; 1187 1 ! [108] Capability byte(s) ; 1188 1 ! [108] Bit mask containing extra capabilities, currently we only use ; 1189 1 ! [108] bit 1 (extended-length packets) and bit 0 (more capability ; 1190 1 ! [108] bytes follows). ; 1191 1 ! [108] ; 1192 1 ! [108] Window length (not used) ; 1193 1 ! [108] ; 1194 1 ! [108] Extended packet length ; 1195 1 ! [108] Maximum length for extended-length packets ; 1196 1 ! ; 1197 1 !-- ; 1198 1 ; 1199 1 LITERAL ; 1200 1 P_SI_BUFSIZ = 0, ! Buffersize ; 1201 1 MY_PKT_SIZE = 80, ! My packet size ; 1202 1 P_SI_TIMOUT = 1, ! Time out ; 1203 1 MY_TIME_OUT = 15, ! My time out ; 1204 1 P_SI_NPAD = 2, ! Number of padding characters ; 1205 1 MY_NPAD = 0, ! Amount of padding I require ; 1206 1 P_SI_PAD = 3, ! Padding character ; 1207 1 MY_PAD_CHAR = 0, ! My pad character ; 1208 1 P_SI_EOL = 4, ! End of line character ; 1209 1 MY_EOL_CHAR = %O'015', ! My EOL cahracter ; 1210 1 P_SI_QUOTE = 5, ! Quote character ; 1211 1 MY_QUOTE_CHAR = %C'#', ! My quoting character ; 1212 1 P_SI_8QUOTE = 6, ! 8-bit quote ; 1213 1 MY_8BIT_QUOTE = %C'&', ! Don't do it ; 1214 1 P_SI_CHKTYPE = 7, ! Checktype used ; 1215 1 MY_CHKTYPE = CHK_1CHAR, ! Use single character checksum ; 1216 1 P_SI_REPEAT = 8, ! Repeat character ; 1217 1 MY_REPEAT = %C'~', ! My repeat character ; 1218 1 P_SI_LENGTH = 9, ! Length of the std message ; 1219 1 ! [108] ; 1220 1 P_SI_CAPAS = 9, ! [108] ! Capability field (if used) ; 1221 1 EXTLEN_CAPAS = 2, ! [108] ! Extended length packets ; 1222 1 P_SI_WINDO = 10, ! [108] ! (Send only) Not used, filler ; 1223 1 P_SI_MAXLX1 = 11, ! [108] ! (Send only) Ext. len / 95 ; 1224 1 MY_MAXLX1 = 0, ! [108] ; 1225 1 P_SI_MAXLX2 = 12, ! [108] ! (Send only) Ext. len MOD 95 ; 1226 1 MY_MAXLX2 = 80, ! [108] ; 1227 1 ! [108] ; 1228 1 P_SI_XLENGTH = 13; ! [108] ! (Send only) Len of ext. msg ; 1229 1 ; 1230 1 %SBTTL 'KERMIT Protocol States' ; 1231 1 ; 1232 1 !++ ; 1233 1 ! The following are the various states that KERMIT can be in. ; 1234 1 ! The state transitions are defined in the KERMIT Protocol manual. ; 1235 1 !-- ; 1236 1 ; 1237 1 LITERAL ; 1238 1 STATE_MIN = 1, ! Min state number ; 1239 1 STATE_S = 1, ! Send init state ; 1240 1 STATE_SF = 2, ! Send file header ; 1241 1 STATE_SD = 3, ! Send file data packet ; 1242 1 STATE_SZ = 4, ! Send EOF packet ; 1243 1 STATE_SB = 5, ! Send break ; 1244 1 STATE_R = 6, ! Receive state (wait for send-init) ; 1245 1 STATE_RF = 7, ! Receive file header packet ; 1246 1 STATE_RD = 8, ! Receive file data packet ; 1247 1 STATE_C = 9, ! Send complete ; 1248 1 STATE_A = 10, ! Abort ; 1249 1 STATE_SX = 11, ! Send text header ; 1250 1 STATE_SG = 12, ! Send generic command ; 1251 1 STATE_SI = 13, ! Send server init ; 1252 1 STATE_ID = 14, ! Server idle loop ; 1253 1 STATE_II = 15, ! Server idle after server init ; 1254 1 STATE_FI = 16, ! Server should exit ; 1255 1 STATE_LG = 17, ! Server should logout ; 1256 1 STATE_OF = 18, ! Send - open first input file ; 1257 1 STATE_EX = 19, ! Exit back to command parser ; 1258 1 STATE_ER = 20, ! Retries exceeded error ; 1259 1 STATE_MAX = 20; ! Max state number ; 1260 1 ; 1261 1 %SBTTL 'Internal constants' ; 1262 1 ; 1263 1 !++ ; 1264 1 ! The following represent various internal KERMSG constants. ; 1265 1 !-- ; 1266 1 ; 1267 1 LITERAL ; 1268 1 MAX_PKT_RETRIES = 16, ! Maximum packet retries ; 1269 1 MAX_SI_RETRIES = 5; ! Maximum send init retries ; 1270 1 ; 1271 1 %SBTTL 'Storage - External' ; 1272 1 ! ; 1273 1 ! OWN STORAGE: ; 1274 1 ! ; 1275 1 ; 1276 1 EXTERNAL ; 1277 1 ! ; 1278 1 ! Receive parameters ; 1279 1 ! ; 1280 1 RCV_PKT_SIZE, ! Receive packet size ; 1281 1 RCV_NPAD, ! Padding length ; 1282 1 RCV_PADCHAR, ! Padding character ; 1283 1 RCV_TIMEOUT, ! Time out ; 1284 1 RCV_EOL, ! EOL character ; 1285 1 RCV_QUOTE_CHR, ! Quote character ; 1286 1 RCV_SOH, ! Start of header character ; 1287 1 RCV_8QUOTE_CHR, ! 8-bit quoting character ; 1288 1 ! ; 1289 1 ! Miscellaneous parameters ; 1290 1 ! ; 1291 1 SET_REPT_CHR, ! Repeat character ; 1292 1 ! ; 1293 1 ! Send parameters ; 1294 1 ! ; 1295 1 SND_PKT_SIZE, ! Send packet size ; 1296 1 SND_NPAD, ! Padding length ; 1297 1 SND_PADCHAR, ! Padding character ; 1298 1 SND_TIMEOUT, ! Time out ; 1299 1 SND_EOL, ! EOL character ; 1300 1 SND_QUOTE_CHR, ! Quote character ; 1301 1 SND_SOH, ! Start of header character ; 1302 1 SEND_TIMEOUT, ! Time to wait for receiving message ; 1303 1 ! ; 1304 1 ! Server parameters ; 1305 1 ! ; 1306 1 SRV_TIMEOUT, ! Time between NAK's when server is idle ; 1307 1 ! ; 1308 1 ! Statistics ; 1309 1 ! ; 1310 1 SND_TOTAL_CHARS, ! Total characters sent ; 1311 1 RCV_TOTAL_CHARS, ! Total characters received ; 1312 1 SND_DATA_CHARS, ! Total number of data characters sent ; 1313 1 RCV_DATA_CHARS, ! Total number of data characters received ; 1314 1 SND_NAKS, ! Total NAKs sent ; 1315 1 RCV_NAKS, ! Total NAKs received ; 1316 1 SND_COUNT, ! Count of total number of packets ; 1317 1 RCV_COUNT, ! Count of total number packets received ; 1318 1 SMSG_COUNT, ! Total number of packets sent ; 1319 1 RMSG_COUNT, ! Total number of packets received ; 1320 1 SMSG_TOTAL_CHARS, ! Total chars sent this file xfer ; 1321 1 RMSG_TOTAL_CHARS, ! Total chars rcvd this file xfer ; 1322 1 SMSG_DATA_CHARS, ! Total data chars this file xfer ; 1323 1 RMSG_DATA_CHARS, ! Total data chars this file xfer ; 1324 1 SMSG_NAKS, ! Total number of NAKs this file xfer ; 1325 1 RMSG_NAKS, ! Total number of NAKs received ; 1326 1 XFR_TIME, ! Amount of time last xfr took ; 1327 1 TOTAL_TIME, ! Total time of all xfrs ; 1328 1 ! this file xfer ; 1329 1 LAST_ERROR : VECTOR [CH$ALLOCATION (MAX_MSG + 1)], ! Last error message ; 1330 1 ! ; 1331 1 ! Misc constants. ; 1332 1 ! ; 1333 1 FILE_NAME : VECTOR [CH$ALLOCATION (MAX_FILE_NAME)], ; 1334 1 FILE_SIZE, ; 1335 1 SI_RETRIES, ! Send init retries to attempt ; 1336 1 PKT_RETRIES, ! Number of retries to try for a message ; 1337 1 DELAY, ! Amount of time to delay ; 1338 1 DUPLEX, ! Type of connection (half or full) ; 1339 1 PARITY_TYPE, ! Type of parity to use ; 1340 1 DEV_PARITY_FLAG, ! True if output device does ; 1341 1 ! parity, false if we do it ; 1342 1 CHKTYPE, ! Type of block check desired ; 1343 1 ABT_FLAG, ! True if aborted file should be discarded ; 1344 1 DEBUG_FLAG, ! Debugging mode on/off ; 1345 1 WARN_FLAG, ! File warning flag ; 1346 1 IBM_CHAR, ! Turnaround character for IBM mode ; 1347 1 ECHO_FLAG, ! Local echo flag ; 1348 1 CONNECT_FLAG, ! Connected flag; True if ; 1349 1 ! terminal and SET LINE are ; 1350 1 ! the same ; 1351 1 ABT_CUR_FILE, ! Abort current file ; 1352 1 ABT_ALL_FILE, ! Abort all files in stream ; 1353 1 TYP_STS_FLAG, ! Type status next message ; 1354 1 TY_FIL, ! Type file specs ; 1355 1 TY_PKT, ! Type packet info ; 1356 1 FIL_NORMAL_FORM, ! If true, file names should be normalized ; 1357 1 GEN_1DATA : VECTOR [CH$ALLOCATION (MAX_MSG)], ! Data for generic command ; 1358 1 GEN_1SIZE, ! Size of data in GEN_1DATA ; 1359 1 GEN_2DATA : VECTOR [CH$ALLOCATION (MAX_MSG)], ! Second argument for generic command ; 1360 1 GEN_2SIZE, ! Size of data in GEN_2DATA ; 1361 1 GEN_3DATA : VECTOR [CH$ALLOCATION (MAX_MSG)], ! Third arg for generic command ; 1362 1 GEN_3SIZE; ! Size of data in GEN_3DATA ; 1363 1 ; 1364 1 %SBTTL 'Storage - Local' ; 1365 1 ! ; 1366 1 ! LOCAL OWN STORAGE: ; 1367 1 ! ; 1368 1 ; 1369 1 OWN ; 1370 1 ! ; 1371 1 ! Receive parameters ; 1372 1 ! ; 1373 1 RECV_8QUOTE_CHR, ! 8th-bit quoting character ; 1374 1 REPT_CHR, ! Repeat prefix character ; 1375 1 RECV_PKT_MSG, ! [108] ! Msg offset (4 std, 7 ext.) ; 1376 1 ! ; 1377 1 ! Send parameters ; 1378 1 ! ; 1379 1 SEND_PKT_SIZE, ! Send packet size ; 1380 1 SEND_NPAD, ! Padding length ; 1381 1 SEND_PADCHAR, ! Padding character ; 1382 1 SEND_EOL, ! EOL character ; 1383 1 SEND_QUOTE_CHR, ! Quote character ; 1384 1 SEND_8QUOTE_CHR, ! 8-bit quoting character ; 1385 1 SEND_INIT_SIZE, ! [108] ! Size of INIT message ; 1386 1 ! ; 1387 1 ! Misc parameters ; 1388 1 ! ; 1389 1 INI_CHK_TYPE, ! Type of block checking from init message ; 1390 1 BLK_CHK_TYPE, ! Type of block check to use ; 1391 1 FLAG_8QUOTE, ! Flag to determine if doing 8bit quoting ; 1392 1 FLAG_REPEAT, ! True if doing repeated character compression ; 1393 1 STATE, ! Current state ; 1394 1 SIZE, ! Size of the current message ; 1395 1 ! [108] Negative len for ext msgs ; 1396 1 OLD_RETRIES, ! Saved number of retries done. ; 1397 1 NUM_RETRIES, ! Number of retries ; 1398 1 MSG_NUMBER, ! Current message number ; 1399 1 REC_SEQ, ! Sequence number of msg in REC_MSG ; 1400 1 REC_LENGTH, ! Length of the message recv'd ; 1401 1 REC_TYPE, ! Type of the message received. ; 1402 1 REC_MSG : VECTOR [CH$ALLOCATION (MAX_MSG + 1, CHR_SIZE)], ! Message received ; 1403 1 SND_MSG : VECTOR [CH$ALLOCATION (MAX_MSG + 1, CHR_SIZE)], ! Message sent ; 1404 1 FILE_CHARS, ! Number of characters sent or received ; 1405 1 TEXT_HEAD_FLAG, ! Text header received, not file header ; 1406 1 NO_FILE_NEEDED, ! Don't open a file ; 1407 1 INIT_PKT_SENT, ! Server-init sent and ACKed ; 1408 1 GEN_TYPE, ! Command message type ; 1409 1 GEN_SUBTYPE, ! Generic command subtype ; 1410 1 GET_CHR_ROUTINE, ! Address of routine to get a character for BFR_FILL ; 1411 1 PUT_CHR_ROUTINE; ! Address of routine to put a character for BFR_EMPTY ; 1412 1 ! ; 1413 1 ! KERMSG Global storage ; 1414 1 ! ; 1415 1 GLOBAL ; 1416 1 FLAG_FILE_OPEN; ! File is opened. ; 1417 1 ; 1418 1 %SBTTL 'External references' ; 1419 1 ! ; 1420 1 ! EXTERNAL REFERENCES: ; 1421 1 ! ; 1422 1 ! Packet I/O routines ; 1423 1 ; 1424 1 EXTERNAL ROUTINE ; 1425 1 SEND, ! Send a packet to the remote ; 1426 1 IBM_WAIT, ! Wait for IBM turnaround ; 1427 1 RECEIVE; ! Receive a packet from the remote ; 1428 1 ; 1429 1 ! ; 1430 1 ! Terminal I/O routines ; 1431 1 ! ; 1432 1 ; 1433 1 EXTERNAL ROUTINE ; 1434 1 TERM_DUMP : NOVALUE, ! Normal terminal output ; 1435 1 DBG_DUMP : NOVALUE, ! Debugging output ; 1436 1 TT_SET_OUTPUT, ! Set output routine ; 1437 1 TT_CHAR : NOVALUE, ! Output a single character ; 1438 1 TT_CRLF : NOVALUE, ! Output a CRLF ; 1439 1 TT_NUMBER : NOVALUE, ! Output a three digit number to the ; 1440 1 ! terminal ; 1441 1 TT_TEXT : NOVALUE, ! Output a string to the user's ; 1442 1 TT_OUTPUT : NOVALUE; ! Force buffered output to terminal ; 1443 1 ; 1444 1 ! Operating system routines and misc routines ; 1445 1 ; 1446 1 EXTERNAL ROUTINE ; 1447 1 CRCCLC, ! Calculate a CRC-CCITT ; 1448 1 XFR_STATUS : NOVALUE, ! Routine to tell the user the ; 1449 1 ! status of a transfer ; 1450 1 KRM_ERROR : NOVALUE, ! Issue an error message ; 1451 1 SY_LOGOUT : NOVALUE, ! Log the job off ; 1452 1 SY_GENERIC, ! Perform a generic command ; 1453 1 SY_TIME, ! Return elapsed time in milliseconds ; 1454 1 SY_DISMISS : NOVALUE; ! Routine to dismiss for n seconds. ; 1455 1 ; 1456 1 ! ; 1457 1 ! External file processing routines ; 1458 1 ! ; 1459 1 ; 1460 1 EXTERNAL ROUTINE ; 1461 1 FILE_OPEN, ! Open a file for reading/writing ; 1462 1 FILE_CLOSE, ! Close an open file ; 1463 1 NEXT_FILE, ! Determine if there is a next file ; 1464 1 ! and open it for reading. ; 1465 1 GET_FILE, ! Get a byte from the file ; 1466 1 PUT_FILE; ! Put a byte in the file. ; 1467 1 ; 1468 1 %SBTTL 'MSG_INIT' ; 1469 1 ; 1470 1 GLOBAL ROUTINE MSG_INIT : NOVALUE = ; 1471 1 ; 1472 1 !++ ; 1473 1 ! FUNCTIONAL DESCRIPTION: ; 1474 1 ! ; 1475 1 ! This routine will initialize the message processing for ; 1476 1 ! KERMIT-32/36. ; 1477 1 ! ; 1478 1 ! CALLING SEQUENCE: ; 1479 1 ! ; 1480 1 ! MSG_INIT(); ; 1481 1 ! ; 1482 1 ! INPUT PARAMETERS: ; 1483 1 ! ; 1484 1 ! None. ; 1485 1 ! ; 1486 1 ! IMPLICIT INPUTS: ; 1487 1 ! ; 1488 1 ! None. ; 1489 1 ! ; 1490 1 ! OUTPUT PARAMETERS: ; 1491 1 ! ; 1492 1 ! None. ; 1493 1 ! ; 1494 1 ! IMPLICIT OUTPUTS: ; 1495 1 ! ; 1496 1 ! None. ; 1497 1 ! ; 1498 1 ! COMPLETION CODES: ; 1499 1 ! ; 1500 1 ! None. ; 1501 1 ! ; 1502 1 ! SIDE EFFECTS: ; 1503 1 ! ; 1504 1 ! None. ; 1505 1 ! ; 1506 1 !-- ; 1507 1 ; 1508 2 BEGIN ; 1509 2 ! ; 1510 2 ! Initialize some variables ; 1511 2 ! ; 1512 2 ! Receive parameters first ; 1513 2 ! ; 1514 2 RCV_PKT_SIZE = MY_PKT_SIZE; ; 1515 2 RCV_NPAD = MY_NPAD; ; 1516 2 RCV_PADCHAR = MY_PAD_CHAR; ; 1517 2 RCV_TIMEOUT = MY_TIME_OUT; ; 1518 2 RCV_EOL = MY_EOL_CHAR; ; 1519 2 RCV_QUOTE_CHR = MY_QUOTE_CHAR; ; 1520 2 RCV_SOH = CHR_SOH; ; 1521 2 RCV_8QUOTE_CHR = MY_8BIT_QUOTE; ; 1522 2 SET_REPT_CHR = MY_REPEAT; ; 1523 2 ! ; 1524 2 ! Send parameters. ; 1525 2 ! ; 1526 2 SND_PKT_SIZE = -MY_PKT_SIZE; ; 1527 2 SND_NPAD = -MY_NPAD; ; 1528 2 SND_PADCHAR = -MY_PAD_CHAR; ; 1529 2 SND_TIMEOUT = -MY_TIME_OUT; ; 1530 2 SND_EOL = -MY_EOL_CHAR; ; 1531 2 SND_QUOTE_CHR = -MY_QUOTE_CHAR; ; 1532 2 SND_SOH = CHR_SOH; ; 1533 2 ! ; 1534 2 ! Server parameters ; 1535 2 ! ; 1536 2 SRV_TIMEOUT = 5*MY_TIME_OUT; ; 1537 2 ! ; 1538 2 ! Other random parameters ; 1539 2 ! ; 1540 2 PKT_RETRIES = MAX_PKT_RETRIES; ! Number of retries per message ; 1541 2 SI_RETRIES = MAX_SI_RETRIES; ! Number of retries on send inits ; 1542 2 DELAY = INIT_DELAY; ; 1543 2 DUPLEX = DP_FULL; ! Use full duplex ; 1544 2 DEBUG_FLAG = FALSE; ; 1545 2 WARN_FLAG = FALSE; ; 1546 2 ECHO_FLAG = FALSE; ; 1547 2 BLK_CHK_TYPE = CHK_1CHAR; ! Start using single char checksum ; 1548 2 CHKTYPE = MY_CHKTYPE; ! Desired block check type ; 1549 2 INI_CHK_TYPE = .CHKTYPE; ! Same as default for now ; 1550 2 DEV_PARITY_FLAG = FALSE; ! We generate parity ; 1551 2 PARITY_TYPE = PR_NONE; ! No parity ; 1552 2 ABT_FLAG = TRUE; ! Discard incomplete files ; 1553 2 FLAG_FILE_OPEN = FALSE; ; 1554 2 IBM_CHAR = -1; ![044] No handsake by default ; 1555 2 TY_FIL = TRUE; ! Default to typing files ; 1556 2 TY_PKT = FALSE; ! But not packet numbers ; 1557 2 FIL_NORMAL_FORM = FNM_NORMAL; ! Default to normal form names ; 1558 2 GET_CHR_ROUTINE = GET_FILE; ![025] Initialize the get-a-char routine ; 1559 2 PUT_CHR_ROUTINE = PUT_FILE; ![025] And the put-a-char ; 1560 1 END; ! End of MSG_INIT .TITLE KERMSG KERMSG - Kermit message processing .IDENT \3.3.111\ .PSECT $OWN$,NOEXE,2 ;RECV_8QUOTE_CHR U.37: .BLKB 4 ; 00000 ;REPT_CHR U.38: .BLKB 4 ; 00004 ;RECV_PKT_MSG U.39: .BLKB 4 ; 00008 ;SEND_PKT_SIZE U.40: .BLKB 4 ; 0000C ;SEND_NPAD U.41: .BLKB 4 ; 00010 ;SEND_PADCHAR U.42: .BLKB 4 ; 00014 ;SEND_EOL U.43: .BLKB 4 ; 00018 ;SEND_QUOTE_CHR U.44: .BLKB 4 ; 0001C ;SEND_8QUOTE_CHR U.45: .BLKB 4 ; 00020 ;SEND_INIT_SIZE U.46: .BLKB 4 ; 00024 ;INI_CHK_TYPE U.47: .BLKB 4 ; 00028 ;BLK_CHK_TYPE U.48: .BLKB 4 ; 0002C ;FLAG_8QUOTE U.49: .BLKB 4 ; 00030 ;FLAG_REPEAT U.50: .BLKB 4 ; 00034 ;STATE U.51: .BLKB 4 ; 00038 ;SIZE U.52: .BLKB 4 ; 0003C ;OLD_RETRIES U.53: .BLKB 4 ; 00040 ;NUM_RETRIES U.54: .BLKB 4 ; 00044 ;MSG_NUMBER U.55: .BLKB 4 ; 00048 ;REC_SEQ U.56: .BLKB 4 ; 0004C ;REC_LENGTH U.57: .BLKB 4 ; 00050 ;REC_TYPE U.58: .BLKB 4 ; 00054 ;REC_MSG U.59: .BLKB 1004 ; 00058 ;SND_MSG U.60: .BLKB 1004 ; 00444 ;FILE_CHARS U.61: .BLKB 4 ; 00830 ;TEXT_HEAD_FLAG U.62: .BLKB 4 ; 00834 ;NO_FILE_NEEDED U.63: .BLKB 4 ; 00838 ;INIT_PKT_SENT U.64: .BLKB 4 ; 0083C ;GEN_TYPE U.65: .BLKB 4 ; 00840 ;GEN_SUBTYPE U.66: .BLKB 4 ; 00844 ;GET_CHR_ROUTINE U.67: .BLKB 4 ; 00848 ;PUT_CHR_ROUTINE U.68: .BLKB 4 ; 0084C .PSECT $GLOBAL$,NOEXE,2 FLAG_FILE_OPEN:: .BLKB 4 ; 00000 FNM_NORMAL== 1 FNM_FULL== 2 FNM_UNTRAN== 4 PR_MIN== 0 PR_NONE== 0 PR_MARK== 1 PR_EVEN== 2 PR_ODD== 3 PR_SPACE== 4 PR_MAX== 4 GC_MIN== 1 GC_EXIT== 1 GC_DIRECTORY== 2 GC_DISK_USAGE== 3 GC_DELETE== 4 GC_TYPE== 5 GC_HELP== 6 GC_LOGOUT== 7 GC_LGN== 8 GC_CONNECT== 9 GC_RENAME== 10 GC_COPY== 11 GC_WHO== 12 GC_SEND_MSG== 13 GC_STATUS== 14 GC_COMMAND== 15 GC_KERMIT== 16 GC_JOURNAL== 17 GC_VARIABLE== 18 GC_PROGRAM== 19 GC_MAX== 19 DP_FULL== 0 DP_HALF== 1 CHK_1CHAR== 49 CHK_2CHAR== 50 CHK_CRC== 51 MAX_MSG== 1002 .EXTRN RCV_PKT_SIZE, RCV_NPAD, RCV_PADCHAR, RCV_TIMEOUT, RCV_EOL, RCV_QUOTE_CHR, RCV_SOH .EXTRN RCV_8QUOTE_CHR, SET_REPT_CHR, SND_PKT_SIZE, SND_NPAD, SND_PADCHAR, SND_TIMEOUT, SND_EOL .EXTRN SND_QUOTE_CHR, SND_SOH, SEND_TIMEOUT, SRV_TIMEOUT, SND_TOTAL_CHARS, RCV_TOTAL_CHARS .EXTRN SND_DATA_CHARS, RCV_DATA_CHARS, SND_NAKS, RCV_NAKS, SND_COUNT, RCV_COUNT, SMSG_COUNT .EXTRN RMSG_COUNT, SMSG_TOTAL_CHARS, RMSG_TOTAL_CHARS, SMSG_DATA_CHARS, RMSG_DATA_CHARS, SMSG_NAKS .EXTRN RMSG_NAKS, XFR_TIME, TOTAL_TIME, LAST_ERROR, FILE_NAME, FILE_SIZE, SI_RETRIES, PKT_RETRIES .EXTRN DELAY, DUPLEX, PARITY_TYPE, DEV_PARITY_FLAG, CHKTYPE, ABT_FLAG, DEBUG_FLAG, WARN_FLAG .EXTRN IBM_CHAR, ECHO_FLAG, CONNECT_FLAG, ABT_CUR_FILE, ABT_ALL_FILE, TYP_STS_FLAG, TY_FIL .EXTRN TY_PKT, FIL_NORMAL_FORM, GEN_1DATA, GEN_1SIZE, GEN_2DATA, GEN_2SIZE, GEN_3DATA, GEN_3SIZE .EXTRN SEND, IBM_WAIT, RECEIVE, TERM_DUMP, DBG_DUMP, TT_SET_OUTPUT, TT_CHAR, TT_CRLF, TT_NUMBER .EXTRN TT_TEXT, TT_OUTPUT, CRCCLC, XFR_STATUS, KRM_ERROR, SY_LOGOUT, SY_GENERIC, SY_TIME .EXTRN SY_DISMISS, FILE_OPEN, FILE_CLOSE, NEXT_FILE, GET_FILE, PUT_FILE .PSECT $CODE$,NOWRT,2 .ENTRY MSG_INIT, ^M<R2,R3> ;MSG_INIT, Save R2,R3 1470 000C 00000 MOVAB G^CHKTYPE, R3 ;CHKTYPE, R3 53 00000000G 00 9E 00002 MOVAB G^U.48, R2 ;U.48, R2 52 00000000' 00 9E 00009 MOVZBL #80, G^RCV_PKT_SIZE ;#80, RCV_PKT_SIZE 1514 00000000G 00 50 8F 9A 00010 CLRL G^RCV_NPAD ;RCV_NPAD 1515 00000000G 00 D4 00018 CLRL G^RCV_PADCHAR ;RCV_PADCHAR 1516 00000000G 00 D4 0001E MOVL #15, G^RCV_TIMEOUT ;#15, RCV_TIMEOUT 1517 00000000G 00 0F D0 00024 MOVL #13, G^RCV_EOL ;#13, RCV_EOL 1518 00000000G 00 0D D0 0002B MOVL #35, G^RCV_QUOTE_CHR ;#35, RCV_QUOTE_CHR 1519 00000000G 00 23 D0 00032 MOVL #1, G^RCV_SOH ;#1, RCV_SOH 1520 00000000G 00 01 D0 00039 MOVL #38, G^RCV_8QUOTE_CHR ;#38, RCV_8QUOTE_CHR 1521 00000000G 00 26 D0 00040 MOVZBL #126, G^SET_REPT_CHR ;#126, SET_REPT_CHR 1522 00000000G 00 7E 8F 9A 00047 CVTBL #-80, G^SND_PKT_SIZE ;#-80, SND_PKT_SIZE 1526 00000000G 00 B0 8F 98 0004F CLRL G^SND_NPAD ;SND_NPAD 1527 00000000G 00 D4 00057 CLRL G^SND_PADCHAR ;SND_PADCHAR 1528 00000000G 00 D4 0005D MNEGL #15, G^SND_TIMEOUT ;#15, SND_TIMEOUT 1529 00000000G 00 0F CE 00063 MNEGL #13, G^SND_EOL ;#13, SND_EOL 1530 00000000G 00 0D CE 0006A MNEGL #35, G^SND_QUOTE_CHR ;#35, SND_QUOTE_CHR 1531 00000000G 00 23 CE 00071 MOVL #1, G^SND_SOH ;#1, SND_SOH 1532 00000000G 00 01 D0 00078 MOVZBL #75, G^SRV_TIMEOUT ;#75, SRV_TIMEOUT 1536 00000000G 00 4B 8F 9A 0007F MOVL #16, G^PKT_RETRIES ;#16, PKT_RETRIES 1540 00000000G 00 10 D0 00087 MOVL #5, G^SI_RETRIES ;#5, SI_RETRIES 1541 00000000G 00 05 D0 0008E MOVL #5, G^DELAY ;#5, DELAY 1542 00000000G 00 05 D0 00095 CLRL G^DUPLEX ;DUPLEX 1543 00000000G 00 D4 0009C CLRL G^DEBUG_FLAG ;DEBUG_FLAG 1544 00000000G 00 D4 000A2 CLRL G^WARN_FLAG ;WARN_FLAG 1545 00000000G 00 D4 000A8 CLRL G^ECHO_FLAG ;ECHO_FLAG 1546 00000000G 00 D4 000AE MOVL #49, (R2) ;#49, BLK_CHK_TYPE 1547 62 31 D0 000B4 MOVL #49, (R3) ;#49, CHKTYPE 1548 63 31 D0 000B7 MOVL (R3), -4(R2) ;CHKTYPE, INI_CHK_TYPE 1549 FC A2 63 D0 000BA CLRL G^DEV_PARITY_FLAG ;DEV_PARITY_FLAG 1550 00000000G 00 D4 000BE CLRL G^PARITY_TYPE ;PARITY_TYPE 1551 00000000G 00 D4 000C4 MOVL #1, G^ABT_FLAG ;#1, ABT_FLAG 1552 00000000G 00 01 D0 000CA CLRL G^FLAG_FILE_OPEN ;FLAG_FILE_OPEN 1553 00000000' 00 D4 000D1 MNEGL #1, G^IBM_CHAR ;#1, IBM_CHAR 1554 00000000G 00 01 CE 000D7 MOVL #1, G^TY_FIL ;#1, TY_FIL 1555 00000000G 00 01 D0 000DE CLRL G^TY_PKT ;TY_PKT 1556 00000000G 00 D4 000E5 MOVL #1, G^FIL_NORMAL_FORM ;#1, FIL_NORMAL_FORM 1557 00000000G 00 01 D0 000EB MOVAB G^GET_FILE, 2076(R2) ;GET_FILE, GET_CHR_ROUTINE 1558 081C C2 00000000G 00 9E 000F2 MOVAB G^PUT_FILE, 2080(R2) ;PUT_FILE, PUT_CHR_ROUTINE 1559 0820 C2 00000000G 00 9E 000FB RET ; 1560 04 00104 ; Routine Size: 261 bytes, Routine Base: $CODE$ + 0000 ; 1561 1 ; 1562 1 %SBTTL 'SND_ERROR' ; 1563 1 ; 1564 1 GLOBAL ROUTINE SND_ERROR (COUNT, ADDRESS) : NOVALUE = ; 1565 1 ; 1566 1 !++ ; 1567 1 ! FUNCTIONAL DESCRIPTION: ; 1568 1 ! ; 1569 1 ! This routine will send an error packet to the remote KERMIT. It ; 1570 1 ! is called with the count of characters and the address of the text. ; 1571 1 ! ; 1572 1 ! CALLING SEQUENCE: ; 1573 1 ! ; 1574 1 ! SND_ERROR(COUNT, %ASCII 'Error text'); ; 1575 1 ! ; 1576 1 ! INPUT PARAMETERS: ; 1577 1 ! ; 1578 1 ! None. ; 1579 1 ! ; 1580 1 ! IMPLICIT INPUTS: ; 1581 1 ! ; 1582 1 ! None. ; 1583 1 ! ; 1584 1 ! OUTPUT PARAMETERS: ; 1585 1 ! ; 1586 1 ! None. ; 1587 1 ! ; 1588 1 ! IMPLICIT OUTPUTS: ; 1589 1 ! ; 1590 1 ! None. ; 1591 1 ! ; 1592 1 ! COMPLETION CODES: ; 1593 1 ! ; 1594 1 ! None. ; 1595 1 ! ; 1596 1 ! SIDE EFFECTS: ; 1597 1 ! ; 1598 1 ! ; 1599 1 !-- ; 1600 1 ; 1601 2 BEGIN ; 1602 2 ! ; 1603 2 ! Pack the message into the buffer ; 1604 2 ! ; 1605 2 SET_STRING (CH$PTR (.ADDRESS), .COUNT, TRUE); ; 1606 2 BFR_FILL (TRUE); ; 1607 2 SET_STRING (0, 0, FALSE); ; 1608 2 ! ; 1609 2 ! Save the last error message also ; 1610 2 ! ; 1611 2 ; 1612 2 IF .COUNT GTR MAX_MSG THEN COUNT = MAX_MSG; ; 1613 2 ; 1614 2 CH$COPY (.COUNT, CH$PTR (.ADDRESS), 0, MAX_MSG + 1, CH$PTR (LAST_ERROR)); ; 1615 2 ; 1616 2 IF NOT SEND_PACKET (MSG_ERROR, .SIZE, .MSG_NUMBER) THEN RETURN KER_ABORTED; ; 1617 2 ; 1618 1 END; ! End of SND_ERROR .ENTRY SND_ERROR, ^M<R2,R3,R4,R5,R6> ;SND_ERROR, Save R2,R3,R4,R5,R6 1564 007C 00000 MOVAB G^U.30, R6 ;U.30, R6 56 00000000V 00 9E 00002 PUSHL #1 ;#1 1605 01 DD 00009 PUSHL 4(AP) ;COUNT 04 AC DD 0000B PUSHL 8(AP) ;ADDRESS 08 AC DD 0000E CALLS #3, (R6) ;#3, SET_STRING 66 03 FB 00011 PUSHL #1 ;#1 1606 01 DD 00014 CALLS #1, G^U.29 ;#1, U.29 00000000V 00 01 FB 00016 CLRQ -(SP) ;-(SP) 1607 7E 7C 0001D CLRL -(SP) ;-(SP) 7E D4 0001F CALLS #3, (R6) ;#3, SET_STRING 66 03 FB 00021 CMPL 4(AP), #1002 ;COUNT, #1002 1612 000003EA 8F 04 AC D1 00024 BLEQ 1$ ;1$ 06 15 0002C MOVZWL #1002, 4(AP) ;#1002, COUNT 04 AC 03EA 8F 3C 0002E 1$: MOVC5 4(AP), @8(AP), #0, #1003, - ;COUNT, @ADDRESS, #0, #1003, - 1614 08 BC 04 AC 2C 00034 G^LAST_ERROR ;LAST_ERROR 03EB 8F 00 00039 ; 00000000G 00 0003D PUSHL G^U.55 ;U.55 1616 00000000' 00 DD 00042 PUSHL G^U.52 ;U.52 00000000' 00 DD 00048 MOVZBL #69, -(SP) ;#69, -(SP) 7E 45 8F 9A 0004E CALLS #3, G^U.24 ;#3, U.24 00000000V 00 03 FB 00052 RET ; 1618 04 00059 ; Routine Size: 90 bytes, Routine Base: $CODE$ + 0105 ; 1619 1 ; 1620 1 %SBTTL 'SERVER - Server mode' ; 1621 1 ; 1622 1 GLOBAL ROUTINE SERVER = ; 1623 1 ; 1624 1 !++ ; 1625 1 ! FUNCTIONAL DESCRIPTION: ; 1626 1 ! ; 1627 1 ! This routine will handle the server function in the v2.0 protocol ; 1628 1 ! for KERMIT. This routine by it's nature will call various operating ; 1629 1 ! system routines to do things like logging off the system. ; 1630 1 ! ; 1631 1 ! CALLING SEQUENCE: ; 1632 1 ! ; 1633 1 ! EXIT_FLAG = SERVER(); ; 1634 1 ! ; 1635 1 ! INPUT PARAMETERS: ; 1636 1 ! ; 1637 1 ! None. ; 1638 1 ! ; 1639 1 ! IMPLICIT INPUTS: ; 1640 1 ! ; 1641 1 ! None. ; 1642 1 ! ; 1643 1 ! OUTPUT PARAMETERS: ; 1644 1 ! ; 1645 1 ! None. ; 1646 1 ! ; 1647 1 ! IMPLICIT OUTPUTS: ; 1648 1 ! ; 1649 1 ! None. ; 1650 1 ! ; 1651 1 ! COMPLETION CODES: ; 1652 1 ! ; 1653 1 ! None. ; 1654 1 ! ; 1655 1 ! SIDE EFFECTS: ; 1656 1 ! ; 1657 1 ! None. ; 1658 1 ! ; 1659 1 !-- ; 1660 1 ; 1661 2 BEGIN ; 1662 2 ; 1663 2 LOCAL ; 1664 2 STATUS; ! Status returned by various routines ; 1665 2 ; 1666 2 DO ; 1667 3 BEGIN ; 1668 3 INIT_XFR (); ; 1669 3 XFR_STATUS (%C'T', %C'I'); ! Now idle ; 1670 3 STATUS = DO_TRANSACTION (STATE_ID); ; 1671 3 END ; 1672 2 UNTIL .STATUS EQL KER_EXIT OR .STATUS EQL KER_ABORTED; ; 1673 2 ; 1674 2 RETURN .STATUS; ; 1675 1 END; ! End of GLOBAL ROUTINE SERVER .ENTRY SERVER, ^M<R2> ;SERVER, Save R2 1622 0004 00000 1$: CALLS #0, G^U.32 ;#0, U.32 1668 00000000V 00 00 FB 00002 MOVZBL #73, -(SP) ;#73, -(SP) 1669 7E 49 8F 9A 00009 MOVZBL #84, -(SP) ;#84, -(SP) 7E 54 8F 9A 0000D CALLS #2, G^XFR_STATUS ;#2, XFR_STATUS 00000000G 00 02 FB 00011 PUSHL #14 ;#14 1670 0E DD 00018 CALLS #1, G^U.1 ;#1, U.1 00000000V 00 01 FB 0001A MOVL R0, R2 ;R0, STATUS 52 50 D0 00021 CMPL R2, #134316203 ;STATUS, #134316203 1672 080180AB 8F 52 D1 00024 BEQL 2$ ;2$ 09 13 0002B CMPL R2, #134316258 ;STATUS, #134316258 080180E2 8F 52 D1 0002D BNEQ 1$ ;1$ CC 12 00034 2$: MOVL R2, R0 ;STATUS, R0 1674 50 52 D0 00036 RET ; 04 00039 ; Routine Size: 58 bytes, Routine Base: $CODE$ + 015F ; 1676 1 ; 1677 1 %SBTTL 'SEND_SWITCH' ; 1678 1 ; 1679 1 GLOBAL ROUTINE SEND_SWITCH = ; 1680 1 ; 1681 1 !++ ; 1682 1 ! FUNCTIONAL DESCRIPTION: ; 1683 1 ! ; 1684 1 ! This routine is the state table switcher for sending files. It ; 1685 1 ! loops until either it is finished or an error is encountered. The ; 1686 1 ! routines called by SEND_SWITCH are responsible for changing the state. ; 1687 1 ! ; 1688 1 ! CALLING SEQUENCE: ; 1689 1 ! ; 1690 1 ! SEND_SWITCH(); ; 1691 1 ! ; 1692 1 ! INPUT PARAMETERS: ; 1693 1 ! ; 1694 1 ! None. ; 1695 1 ! ; 1696 1 ! IMPLICIT INPUTS: ; 1697 1 ! ; 1698 1 ! None. ; 1699 1 ! ; 1700 1 ! OUTPUT PARAMETERS: ; 1701 1 ! ; 1702 1 ! Returns: ; 1703 1 ! TRUE - File sent correctly. ; 1704 1 ! FALSE - Aborted sending the file. ; 1705 1 ! ; 1706 1 ! IMPLICIT OUTPUTS: ; 1707 1 ! ; 1708 1 ! None. ; 1709 1 ! ; 1710 1 ! COMPLETION CODES: ; 1711 1 ! ; 1712 1 ! None. ; 1713 1 ! ; 1714 1 ! SIDE EFFECTS: ; 1715 1 ! ; 1716 1 ! None. ; 1717 1 ! ; 1718 1 !-- ; 1719 1 ; 1720 2 BEGIN ; 1721 2 ; 1722 2 LOCAL ; 1723 2 STATUS; ! Status result ; 1724 2 ; 1725 2 IF .CONNECT_FLAG THEN SY_DISMISS (.DELAY); ! Sleep if the user wanted us to ; 1726 2 ; 1727 2 INIT_XFR (); ! Initialize for this transfer ; 1728 2 TEXT_HEAD_FLAG = FALSE; ! Set text flag correctly ; 1729 2 XFR_STATUS (%C'I', %C'S'); ! Start of file send ; 1730 2 STATUS = DO_TRANSACTION (STATE_S); ! Call routine to do real work ; 1731 2 XFR_STATUS (%C'T', %C'S'); ! Done with send ; 1732 2 RETURN .STATUS; ! Return the result ; 1733 1 END; .ENTRY SEND_SWITCH, ^M<R2,R3> ;SEND_SWITCH, Save R2,R3 1679 000C 00000 MOVAB G^XFR_STATUS, R3 ;XFR_STATUS, R3 53 00000000G 00 9E 00002 BLBC G^CONNECT_FLAG, 1$ ;CONNECT_FLAG, 1$ 1725 0D 00000000G 00 E9 00009 PUSHL G^DELAY ;DELAY 00000000G 00 DD 00010 CALLS #1, G^SY_DISMISS ;#1, SY_DISMISS 00000000G 00 01 FB 00016 1$: CALLS #0, G^U.32 ;#0, U.32 1727 00000000V 00 00 FB 0001D CLRL G^U.62 ;U.62 1728 00000000' 00 D4 00024 MOVZBL #83, -(SP) ;#83, -(SP) 1729 7E 53 8F 9A 0002A MOVZBL #73, -(SP) ;#73, -(SP) 7E 49 8F 9A 0002E CALLS #2, (R3) ;#2, XFR_STATUS 63 02 FB 00032 PUSHL #1 ;#1 1730 01 DD 00035 CALLS #1, G^U.1 ;#1, U.1 00000000V 00 01 FB 00037 MOVL R0, R2 ;R0, STATUS 52 50 D0 0003E MOVZBL #83, -(SP) ;#83, -(SP) 1731 7E 53 8F 9A 00041 MOVZBL #84, -(SP) ;#84, -(SP) 7E 54 8F 9A 00045 CALLS #2, (R3) ;#2, XFR_STATUS 63 02 FB 00049 MOVL R2, R0 ;STATUS, R0 1732 50 52 D0 0004C RET ; 04 0004F ; Routine Size: 80 bytes, Routine Base: $CODE$ + 0199 ; 1734 1 ; 1735 1 %SBTTL 'REC_SWITCH' ; 1736 1 ; 1737 1 GLOBAL ROUTINE REC_SWITCH = ; 1738 1 ; 1739 1 !++ ; 1740 1 ! FUNCTIONAL DESCRIPTION: ; 1741 1 ! ; 1742 1 ! This routine will cause file(s) to be received by the remote ; 1743 1 ! KERMIT. This routine contains the main loop for the sending of the ; 1744 1 ! data. ; 1745 1 ! ; 1746 1 ! CALLING SEQUENCE: ; 1747 1 ! ; 1748 1 ! REC_SWITCH(); ; 1749 1 ! ; 1750 1 ! INPUT PARAMETERS: ; 1751 1 ! ; 1752 1 ! None. ; 1753 1 ! ; 1754 1 ! IMPLICIT INPUTS: ; 1755 1 ! ; 1756 1 ! FILE_DESC - Descriptor describing the file to be received by ; 1757 1 ! the remote KERMIT. ; 1758 1 ! ; 1759 1 ! OUTPUT PARAMETERS: ; 1760 1 ! ; 1761 1 ! None. ; 1762 1 ! ; 1763 1 ! IMPLICIT OUTPUTS: ; 1764 1 ! ; 1765 1 ! None. ; 1766 1 ! ; 1767 1 ! COMPLETION CODES: ; 1768 1 ! ; 1769 1 ! True - File received correctly. ; 1770 1 ! FALSE - File transfer aborted. ; 1771 1 ! ; 1772 1 ! SIDE EFFECTS: ; 1773 1 ! ; 1774 1 ! None. ; 1775 1 ! ; 1776 1 !-- ; 1777 1 ; 1778 2 BEGIN ; 1779 2 ; 1780 2 LOCAL ; 1781 2 INIT_STATE, ! State to start up DO_TRANSACTION in ; 1782 2 STATUS; ! Status returned by various routines ; 1783 2 ; 1784 2 INIT_STATE = STATE_R; ! Initialize the state ; 1785 2 MSG_NUMBER = 0; ; 1786 2 INIT_XFR (); ! Initialize the per transfer info ; 1787 2 ! ; 1788 2 ! Determine if they said REC <file-spec> ; 1789 2 ! Send MSG_RCV_INIT and then receive the file ; 1790 2 ! ; 1791 2 ; 1792 2 IF .FILE_SIZE GTR 0 ; 1793 2 THEN ; 1794 3 BEGIN ; 1795 3 GEN_TYPE = MSG_RCV_INIT; ! Use receive-init message ; 1796 3 CH$MOVE (.FILE_SIZE, CH$PTR (FILE_NAME), CH$PTR (GEN_1DATA)); ; 1797 3 GEN_1SIZE = .FILE_SIZE; ! Save the length ; 1798 3 INIT_STATE = STATE_SI; ! Start out with server init ; 1799 2 END; ; 1800 2 ; 1801 2 ! ; 1802 2 ! Now receive the file normally ; 1803 2 ! ; 1804 2 XFR_STATUS (%C'I', %C'R'); ! Start of a file receive ; 1805 2 STATUS = DO_TRANSACTION (.INIT_STATE); ; 1806 2 XFR_STATUS (%C'T', %C'R'); ! End of file receive ; 1807 2 RETURN .STATUS; ! Return the result ; 1808 1 END; ! End of REC_SWITCH .ENTRY REC_SWITCH, ^M<R2,R3,R4,R5,R6,- ;REC_SWITCH, Save R2,R3,R4,R5,R6,R7,- 1737 01FC 00000 R7,R8> ;R8 MOVAB G^XFR_STATUS, R8 ;XFR_STATUS, R8 58 00000000G 00 9E 00002 MOVL #6, R7 ;#6, INIT_STATE 1784 57 06 D0 00009 CLRL G^U.55 ;U.55 1785 00000000' 00 D4 0000C CALLS #0, G^U.32 ;#0, U.32 1786 00000000V 00 00 FB 00012 MOVL G^FILE_SIZE, R6 ;FILE_SIZE, R6 1792 56 00000000G 00 D0 00019 BLEQ 1$ ;1$ 1E 15 00020 MOVZBL #82, G^U.65 ;#82, U.65 1795 00000000' 00 52 8F 9A 00022 MOVC3 R6, G^FILE_NAME, G^GEN_1DATA ;R6, FILE_NAME, GEN_1DATA 1796 00000000G 00 56 28 0002A ; 00000000G 00 00031 MOVL R6, G^GEN_1SIZE ;R6, GEN_1SIZE 1797 00000000G 00 56 D0 00036 MOVL #13, R7 ;#13, INIT_STATE 1798 57 0D D0 0003D 1$: MOVZBL #82, -(SP) ;#82, -(SP) 1804 7E 52 8F 9A 00040 MOVZBL #73, -(SP) ;#73, -(SP) 7E 49 8F 9A 00044 CALLS #2, (R8) ;#2, XFR_STATUS 68 02 FB 00048 PUSHL R7 ;INIT_STATE 1805 57 DD 0004B CALLS #1, G^U.1 ;#1, U.1 00000000V 00 01 FB 0004D MOVL R0, R2 ;R0, STATUS 52 50 D0 00054 MOVZBL #82, -(SP) ;#82, -(SP) 1806 7E 52 8F 9A 00057 MOVZBL #84, -(SP) ;#84, -(SP) 7E 54 8F 9A 0005B CALLS #2, (R8) ;#2, XFR_STATUS 68 02 FB 0005F MOVL R2, R0 ;STATUS, R0 1807 50 52 D0 00062 RET ; 04 00065 ; Routine Size: 102 bytes, Routine Base: $CODE$ + 01E9 ; 1809 1 ; 1810 1 %SBTTL 'Server -- DO_GENERIC - Execute a generic command' ; 1811 1 ; 1812 1 GLOBAL ROUTINE DO_GENERIC (TYPE) = ; 1813 1 ; 1814 1 !++ ; 1815 1 ! FUNCTIONAL DESCRIPTION: ; 1816 1 ! ; 1817 1 ! This routine will send a generic command to the remote Kermit. ; 1818 1 ! it will do all the processing required for the generic command ; 1819 1 ! that was executed. It will return to the caller after the ; 1820 1 ! command has be executed. ; 1821 1 ! ; 1822 1 ! CALLING SEQUENCE: ; 1823 1 ! ; 1824 1 ! STATUS = DO_GENERIC (Command-type); ; 1825 1 ! ; 1826 1 ! INPUT PARAMETERS: ; 1827 1 ! ; 1828 1 ! Command-type -- Command type to be executed. ; 1829 1 ! ; 1830 1 ! IMPLICIT INPUTS: ; 1831 1 ! ; 1832 1 ! None. ; 1833 1 ! ; 1834 1 ! OUTPUT PARAMETERS: ; 1835 1 ! ; 1836 1 ! None. ; 1837 1 ! ; 1838 1 ! IMPLICIT OUTPUTS: ; 1839 1 ! ; 1840 1 ! None. ; 1841 1 ! ; 1842 1 ! COMPLETION CODES: ; 1843 1 ! ; 1844 1 ! None. ; 1845 1 ! ; 1846 1 ! SIDE EFFECTS: ; 1847 1 ! ; 1848 1 ! None. ; 1849 1 ! ; 1850 1 !-- ; 1851 1 ; 1852 2 BEGIN ; 1853 2 ; 1854 2 LOCAL ; 1855 2 INIT_STATE; ! Initial state for FSM ; 1856 2 ; 1857 2 ! ; 1858 2 ! Set up the per transfer items ; 1859 2 ! ; 1860 2 INIT_XFR (); ; 1861 2 NUM_RETRIES = 0; ; 1862 2 MSG_NUMBER = 0; ; 1863 2 ! ; 1864 2 ! These are all generic commands ; 1865 2 ! ; 1866 2 GEN_TYPE = MSG_GENERIC; ; 1867 2 ! ; 1868 2 ! Assume we will not need server init ; 1869 2 ! ; 1870 2 INIT_STATE = STATE_SG; ; 1871 2 ; 1872 2 CASE .TYPE FROM GC_MIN TO GC_MAX OF ; 1873 2 SET ; 1874 2 ; 1875 2 [GC_EXIT] : ; 1876 2 GEN_SUBTYPE = MSG_GEN_EXIT; ; 1877 2 ; 1878 2 [GC_LOGOUT] : ; 1879 2 GEN_SUBTYPE = MSG_GEN_LOGOUT; ; 1880 2 ; 1881 2 [GC_DIRECTORY] : ; 1882 3 BEGIN ; 1883 3 INIT_STATE = STATE_SI; ! We will need server-init ; 1884 3 GEN_SUBTYPE = MSG_GEN_DIRECTORY; ; 1885 2 END; ; 1886 2 ; 1887 2 [GC_DISK_USAGE] : ; 1888 3 BEGIN ; 1889 3 INIT_STATE = STATE_SI; ! We will need server-init ; 1890 3 GEN_SUBTYPE = MSG_GEN_DISK_USAGE; ; 1891 2 END; ; 1892 2 ; 1893 2 [GC_DELETE] : ; 1894 2 GEN_SUBTYPE = MSG_GEN_DELETE; ; 1895 2 ; 1896 2 [GC_TYPE] : ; 1897 3 BEGIN ; 1898 3 INIT_STATE = STATE_SI; ! We will need server-init ; 1899 3 GEN_SUBTYPE = MSG_GEN_TYPE; ; 1900 2 END; ; 1901 2 ; 1902 2 [GC_HELP] : ; 1903 3 BEGIN ; 1904 3 INIT_STATE = STATE_SI; ! We will need server-init ; 1905 3 GEN_SUBTYPE = MSG_GEN_HELP; ; 1906 2 END; ; 1907 2 ; 1908 2 [GC_LGN] : ; 1909 2 GEN_SUBTYPE = MSG_GEN_LOGIN; ! Login just gets ACK ; 1910 2 ; 1911 2 [GC_CONNECT] : ; 1912 2 GEN_SUBTYPE = MSG_GEN_CONNECT; ! CWD just gets ACK ; 1913 2 ; 1914 2 [GC_RENAME] : ; 1915 2 GEN_SUBTYPE = MSG_GEN_RENAME; ! Rename file just needs ACK ; 1916 2 ; 1917 2 [GC_COPY] : ; 1918 2 GEN_SUBTYPE = MSG_GEN_COPY; ! Copy file just needs ACK ; 1919 2 ; 1920 2 [GC_WHO] : ; 1921 3 BEGIN ; 1922 3 INIT_STATE = STATE_SI; ! May get large response ; 1923 3 GEN_SUBTYPE = MSG_GEN_WHO; ; 1924 2 END; ; 1925 2 ; 1926 2 [GC_SEND_MSG] : ; 1927 2 GEN_SUBTYPE = MSG_GEN_SEND; ! Just need an ACK ; 1928 2 ; 1929 2 [GC_STATUS] : ; 1930 3 BEGIN ; 1931 3 INIT_STATE = STATE_SI; ! May get large response ; 1932 3 GEN_SUBTYPE = MSG_GEN_QUERY; ; 1933 2 END; ; 1934 2 ; 1935 2 [GC_COMMAND] : ; 1936 3 BEGIN ; 1937 3 INIT_STATE = STATE_SI; ! Large response likely ; 1938 3 GEN_TYPE = MSG_COMMAND; ! This is host command ; 1939 2 END; ; 1940 2 ; 1941 2 [GC_KERMIT] : ; 1942 2 GEN_TYPE = MSG_KERMIT; ! Perform Kermit command (short response) ; 1943 2 ; 1944 2 [GC_PROGRAM] : ; 1945 3 BEGIN ; 1946 3 INIT_STATE = STATE_SI; ! Assume large response ; 1947 3 GEN_SUBTYPE = MSG_GEN_PROGRAM; ! Generic program command ; 1948 2 END; ; 1949 2 ; 1950 2 [GC_JOURNAL] : ; 1951 2 GEN_SUBTYPE = MSG_GEN_JOURNAL; ! Do journal function (short reply) ; 1952 2 ; 1953 2 [GC_VARIABLE] : ; 1954 2 GEN_SUBTYPE = MSG_GEN_VARIABLE; ! Set or get a variable value ; 1955 2 ; 1956 2 [INRANGE, OUTRANGE] : ; 1957 3 BEGIN ; 1958 3 KRM_ERROR (KER_UNIMPLGEN); ; 1959 3 RETURN STATE_A; ; 1960 2 END; ; 1961 2 TES; ; 1962 2 ; 1963 2 RETURN DO_TRANSACTION (.INIT_STATE); ! Go do the command ; 1964 1 END; ! End of DO_GENERIC .ENTRY DO_GENERIC, ^M<R2,R3> ;DO_GENERIC, Save R2,R3 1812 000C 00000 MOVAB G^U.66, R3 ;U.66, R3 53 00000000' 00 9E 00002 CALLS #0, G^U.32 ;#0, U.32 1860 00000000V 00 00 FB 00009 CLRQ -2048(R3) ;NUM_RETRIES 1861 F800 C3 7C 00010 MOVZBL #71, -4(R3) ;#71, GEN_TYPE 1866 FC A3 47 8F 9A 00014 MOVL #12, R2 ;#12, INIT_STATE 1870 52 0C D0 00019 CASEL 4(AP), #1, #18 ;TYPE, #1, #18 1872 01 04 AC CF 0001C ; 12 00020 1$: .WORD 2$-1$,- ;2$-1$,- 0043 0037 00021 4$-1$,- ;4$-1$,- 0055 004C 00025 5$-1$,- ;5$-1$,- 0064 005B 00029 6$-1$,- ;6$-1$,- 006D 003D 0002D 7$-1$,- ;7$-1$,- 0079 0073 00031 8$-1$,- ;8$-1$,- 0085 007F 00035 3$-1$,- ;3$-1$,- 0094 008E 00039 9$-1$,- ;9$-1$,- 00A7 009D 0003D 10$-1$,- ;10$-1$,- 00BD 00B7 00041 11$-1$,- ;11$-1$,- 00AE 00045 12$-1$,- ;12$-1$,- 13$-1$,- ;13$-1$,- 14$-1$,- ;14$-1$,- 15$-1$,- ;15$-1$,- 16$-1$,- ;16$-1$,- 17$-1$,- ;17$-1$,- 19$-1$,- ;19$-1$,- 21$-1$,- ;21$-1$,- 18$-1$ ;18$-1$ PUSHL #134316210 ;#134316210 1958 080180B2 8F DD 00047 CALLS #1, G^KRM_ERROR ;#1, KRM_ERROR 00000000G 00 01 FB 0004D MOVL #10, R0 ;#10, R0 1959 50 0A D0 00054 RET ; 04 00057 2$: MOVZBL #70, (R3) ;#70, GEN_SUBTYPE 1876 63 46 8F 9A 00058 BRB 20$ ;20$ 7E 11 0005C 3$: MOVZBL #76, (R3) ;#76, GEN_SUBTYPE 1879 63 4C 8F 9A 0005E BRB 22$ ;22$ 7E 11 00062 4$: MOVL #13, R2 ;#13, INIT_STATE 1883 52 0D D0 00064 MOVZBL #68, (R3) ;#68, GEN_SUBTYPE 1884 63 44 8F 9A 00067 BRB 22$ ;22$ 75 11 0006B 5$: MOVL #13, R2 ;#13, INIT_STATE 1889 52 0D D0 0006D MOVZBL #85, (R3) ;#85, GEN_SUBTYPE 1890 63 55 8F 9A 00070 BRB 22$ ;22$ 6C 11 00074 6$: MOVZBL #69, (R3) ;#69, GEN_SUBTYPE 1894 63 45 8F 9A 00076 BRB 22$ ;22$ 66 11 0007A 7$: MOVL #13, R2 ;#13, INIT_STATE 1898 52 0D D0 0007C MOVZBL #84, (R3) ;#84, GEN_SUBTYPE 1899 63 54 8F 9A 0007F BRB 22$ ;22$ 5D 11 00083 8$: MOVL #13, R2 ;#13, INIT_STATE 1904 52 0D D0 00085 MOVZBL #72, (R3) ;#72, GEN_SUBTYPE 1905 63 48 8F 9A 00088 BRB 22$ ;22$ 54 11 0008C 9$: MOVZBL #73, (R3) ;#73, GEN_SUBTYPE 1909 63 49 8F 9A 0008E BRB 22$ ;22$ 4E 11 00092 10$: MOVZBL #67, (R3) ;#67, GEN_SUBTYPE 1912 63 43 8F 9A 00094 BRB 22$ ;22$ 48 11 00098 11$: MOVZBL #82, (R3) ;#82, GEN_SUBTYPE 1915 63 52 8F 9A 0009A BRB 22$ ;22$ 42 11 0009E 12$: MOVZBL #75, (R3) ;#75, GEN_SUBTYPE 1918 63 4B 8F 9A 000A0 BRB 22$ ;22$ 3C 11 000A4 13$: MOVL #13, R2 ;#13, INIT_STATE 1922 52 0D D0 000A6 MOVZBL #87, (R3) ;#87, GEN_SUBTYPE 1923 63 57 8F 9A 000A9 BRB 22$ ;22$ 33 11 000AD 14$: MOVZBL #77, (R3) ;#77, GEN_SUBTYPE 1927 63 4D 8F 9A 000AF BRB 22$ ;22$ 2D 11 000B3 15$: MOVL #13, R2 ;#13, INIT_STATE 1931 52 0D D0 000B5 MOVZBL #81, (R3) ;#81, GEN_SUBTYPE 1932 63 51 8F 9A 000B8 BRB 22$ ;22$ 24 11 000BC 16$: MOVL #13, R2 ;#13, INIT_STATE 1937 52 0D D0 000BE MOVZBL #67, -4(R3) ;#67, GEN_TYPE 1938 FC A3 43 8F 9A 000C1 BRB 22$ ;22$ 1A 11 000C6 17$: MOVZBL #75, -4(R3) ;#75, GEN_TYPE 1942 FC A3 4B 8F 9A 000C8 BRB 22$ ;22$ 13 11 000CD 18$: MOVL #13, R2 ;#13, INIT_STATE 1946 52 0D D0 000CF MOVZBL #80, (R3) ;#80, GEN_SUBTYPE 1947 63 50 8F 9A 000D2 BRB 22$ ;22$ 0A 11 000D6 19$: MOVZBL #74, (R3) ;#74, GEN_SUBTYPE 1951 63 4A 8F 9A 000D8 20$: BRB 22$ ;22$ 04 11 000DC 21$: MOVZBL #86, (R3) ;#86, GEN_SUBTYPE 1954 63 56 8F 9A 000DE 22$: PUSHL R2 ;INIT_STATE 1963 52 DD 000E2 CALLS #1, G^U.1 ;#1, U.1 00000000V 00 01 FB 000E4 RET ; 04 000EB ; Routine Size: 236 bytes, Routine Base: $CODE$ + 024F ; 1965 1 ; 1966 1 %SBTTL 'DO_TRANSACTION - Main loop for FSM' ; 1967 1 ROUTINE DO_TRANSACTION (INIT_STATE) = ; 1968 1 ; 1969 1 !++ ; 1970 1 ! FUNCTIONAL DESCRIPTION: ; 1971 1 ! ; 1972 1 ! This is the main routine for performing a Kermit transaction. ; 1973 1 ! It is structured as a finite state machine with each state ; 1974 1 ! determining the next based upon the packet which is received. ; 1975 1 ! It is supplied with the initial state by the caller. ; 1976 1 ! ; 1977 1 ! CALLING SEQUENCE: ; 1978 1 ! ; 1979 1 ! Status = DO_TRANSACTION(.INIT_STATE); ; 1980 1 ! ; 1981 1 ! INPUT PARAMETERS: ; 1982 1 ! ; 1983 1 ! INIT_STATE - Initial state. ; 1984 1 ! ; 1985 1 ! IMPLICIT INPUTS: ; 1986 1 ! ; 1987 1 ! None. ; 1988 1 ! ; 1989 1 ! OUTPUT PARAMETERS: ; 1990 1 ! ; 1991 1 ! None. ; 1992 1 ! ; 1993 1 ! IMPLICIT OUTPUTS: ; 1994 1 ! ; 1995 1 ! None. ; 1996 1 ! ; 1997 1 ! COMPLETION CODES: ; 1998 1 ! ; 1999 1 ! None. ; 2000 1 ! ; 2001 1 ! SIDE EFFECTS: ; 2002 1 ! ; 2003 1 ! None. ; 2004 1 ! ; 2005 1 !-- ; 2006 1 ; 2007 2 BEGIN ; 2008 2 ; 2009 2 LOCAL ; 2010 2 RETURN_VALUE; ; 2011 2 ; 2012 2 NUM_RETRIES = 0; ! Initialize the number of retries ; 2013 2 STATE = .INIT_STATE; ! Initialize the state ; 2014 2 ; 2015 2 WHILE TRUE DO ; 2016 2 ; 2017 2 CASE .STATE FROM STATE_MIN TO STATE_MAX OF ; 2018 2 SET ; 2019 2 ! ; 2020 2 ! Send states ; 2021 2 ! ; 2022 2 ; 2023 2 [STATE_ID] : ; 2024 2 ! ; 2025 2 ! Server while idle. Set the timeout to twice the normal wait ; 2026 2 ! and wait for something to show up ; 2027 2 ! ; 2028 3 BEGIN ; 2029 3 ; 2030 3 LOCAL ; 2031 3 SAVED_TIMEOUT; ; 2032 3 ; 2033 3 SAVED_TIMEOUT = .SEND_TIMEOUT; ; 2034 3 ; 2035 3 IF .SEND_TIMEOUT NEQ 0 THEN SEND_TIMEOUT = .SRV_TIMEOUT; ; 2036 3 ; 2037 3 STATE = REC_SERVER_IDLE (); ; 2038 3 SEND_TIMEOUT = .SAVED_TIMEOUT; ; 2039 2 END; ; 2040 2 ; 2041 2 [STATE_II] : ; 2042 2 ! ; 2043 2 ! Here while server idle after having received a server-init packet ; 2044 2 ! ; 2045 2 STATE = REC_SERVER_IDLE (); ; 2046 2 ; 2047 2 [STATE_FI, STATE_LG] : ; 2048 2 ! ; 2049 2 ! Here when we are supposed to exit ; 2050 2 ! ; 2051 2 RETURN KER_EXIT; ; 2052 2 ; 2053 2 [STATE_SD] : ; 2054 2 STATE = SEND_DATA (); ; 2055 2 ; 2056 2 [STATE_SF] : ; 2057 2 STATE = SEND_FILE (); ; 2058 2 ; 2059 2 [STATE_SZ] : ; 2060 2 STATE = SEND_EOF (); ; 2061 2 ; 2062 2 [STATE_S] : ; 2063 2 STATE = SEND_INIT (); ; 2064 2 ; 2065 2 [STATE_OF] : ; 2066 2 STATE = SEND_OPEN_FILE (); ; 2067 2 ; 2068 2 [STATE_SI] : ; 2069 2 STATE = SEND_SERVER_INIT (); ; 2070 2 ; 2071 2 [STATE_SG] : ; 2072 2 STATE = SEND_GENCMD (); ; 2073 2 ; 2074 2 [STATE_SB] : ; 2075 2 STATE = SEND_BREAK (); ; 2076 2 ! ; 2077 2 ! Receiving of the data and the end of file message. ; 2078 2 ! ; 2079 2 ; 2080 2 [STATE_RD] : ; 2081 2 STATE = REC_DATA (); ; 2082 2 ! ; 2083 2 ! Receiving the FILE information of the break to end the transfer of ; 2084 2 ! one or more files ; 2085 2 ! ; 2086 2 ; 2087 2 [STATE_RF] : ; 2088 2 STATE = REC_FILE (); ; 2089 2 ! ; 2090 2 ! Initialization for the receiving of a file ; 2091 2 ! ; 2092 2 ; 2093 2 [STATE_R] : ; 2094 2 STATE = REC_INIT (); ; 2095 2 ! ; 2096 2 ! Here if we have completed the receiving of the file ; 2097 2 ! ; 2098 2 ; 2099 2 [STATE_C] : ; 2100 3 BEGIN ; 2101 3 RETURN_VALUE = TRUE; ; 2102 3 EXITLOOP; ; 2103 2 END; ; 2104 2 ! ; 2105 2 ! Here if we aborted the transfer or we have gotten into some random ; 2106 2 ! state (internal KERMSG problem). ; 2107 2 ! ; 2108 2 ; 2109 2 [STATE_A, STATE_EX, STATE_ER, INRANGE, OUTRANGE] : ; 2110 3 BEGIN ; 2111 3 RETURN_VALUE = FALSE; ; 2112 3 ; 2113 3 IF .STATE EQL STATE_EX THEN RETURN_VALUE = KER_ABORTED; ; 2114 3 ; 2115 3 ! ; 2116 3 ! Determine if the file is still open and if so close it ; 2117 3 ! ; 2118 3 ; 2119 3 IF .FLAG_FILE_OPEN ; 2120 3 THEN ; 2121 4 BEGIN ; 2122 4 FLAG_FILE_OPEN = FALSE; ; 2123 4 ; 2124 4 IF ( NOT .CONNECT_FLAG) AND .TY_FIL ; 2125 4 THEN ; 2126 5 BEGIN ; 2127 5 TT_TEXT (UPLIT (%ASCIZ' [Aborted]')); ; 2128 5 TT_CRLF (); ; 2129 4 END; ; 2130 4 ; 2131 5 FILE_CLOSE (.ABT_FLAG AND (.STATE EQL STATE_A OR .STATE EQL STATE_EX OR .STATE ; 2132 4 EQL STATE_ER)); ; 2133 4 XFR_STATUS (%C'F', %C'A'); ; 2134 3 END; ; 2135 3 ; 2136 3 ! ; 2137 3 ! Give error if aborted due to too many retries ; 2138 3 ! ; 2139 3 ; 2140 3 IF .STATE EQL STATE_ER THEN KRM_ERROR (KER_RETRIES); ; 2141 3 ; 2142 3 EXITLOOP; ; 2143 2 END; ; 2144 2 TES; ; 2145 2 ; 2146 2 ! ; 2147 2 ! End the stats and return to the caller ; 2148 2 ! ; 2149 2 END_STATS (); ; 2150 2 ! ; 2151 2 RETURN .RETURN_VALUE; ; 2152 1 END; ! End of DO_TRANSACTION .PSECT $PLIT$,NOWRT,NOEXE,2 P.AAA: .ASCII \ [Aborted]\<0><0> ; 65 74 72 6F 62 41 5B 20 00000 ; 00 00 5D 64 00008 .PSECT $CODE$,NOWRT,2 ;DO_TRANSACTION U.1: .WORD ^M<R2,R3,R4,R5,R6,R7,R8> ;Save R2,R3,R4,R5,R6,R7,R8 1967 01FC 00000 MOVAB G^U.10, R8 ;U.10, R8 58 00000000V 00 9E 00002 MOVAB G^FLAG_FILE_OPEN, R7 ;FLAG_FILE_OPEN, R7 57 00000000' 00 9E 00009 MOVAB G^SEND_TIMEOUT, R6 ;SEND_TIMEOUT, R6 56 00000000G 00 9E 00010 MOVAB G^U.51, R5 ;U.51, R5 55 00000000' 00 9E 00017 CLRL 12(R5) ;NUM_RETRIES 2012 0C A5 D4 0001E MOVL 4(AP), (R5) ;INIT_STATE, STATE 2013 65 04 AC D0 00021 1$: MOVL (R5), R0 ;STATE, R0 2017 50 65 D0 00025 CASEL R0, #1, #19 ;R0, #1, #19 01 50 CF 00028 ; 13 0002B 2$: .WORD 18$-2$,- ;18$-2$,- 00E7 00F9 0002C 16$-2$,- ;16$-2$,- 00F0 00DE 00030 15$-2$,- ;15$-2$,- 0138 011D 00034 17$-2$,- ;17$-2$,- 0126 012F 00038 22$-2$,- ;22$-2$,- 0028 0145 0003C 25$-2$,- ;25$-2$,- 0114 0028 00040 24$-2$,- ;24$-2$,- 00B7 010B 00044 23$-2$,- ;23$-2$,- 00D6 00D1 00048 28$-2$,- ;28$-2$,- 0102 00D6 0004C 3$-2$,- ;3$-2$,- 0028 0028 00050 3$-2$,- ;3$-2$,- 21$-2$,- ;21$-2$,- 20$-2$,- ;20$-2$,- 11$-2$,- ;11$-2$,- 13$-2$,- ;13$-2$,- 14$-2$,- ;14$-2$,- 14$-2$,- ;14$-2$,- 19$-2$,- ;19$-2$,- 3$-2$,- ;3$-2$,- 3$-2$ ;3$-2$ 3$: CLRL R3 ;RETURN_VALUE 2111 53 D4 00054 CMPL R0, #19 ;R0, #19 2113 13 50 D1 00056 BNEQ 4$ ;4$ 07 12 00059 MOVL #134316258, R3 ;#134316258, RETURN_VALUE 53 080180E2 8F D0 0005B 4$: BLBC (R7), 9$ ;FLAG_FILE_OPEN, 9$ 2119 69 67 E9 00062 CLRL (R7) ;FLAG_FILE_OPEN 2122 67 D4 00065 BLBS G^CONNECT_FLAG, 5$ ;CONNECT_FLAG, 5$ 2124 1B 00000000G 00 E8 00067 BLBC G^TY_FIL, 5$ ;TY_FIL, 5$ 14 00000000G 00 E9 0006E PUSHAB G^P.AAA ;P.AAA 2127 00000000' 00 9F 00075 CALLS #1, G^TT_TEXT ;#1, TT_TEXT 00000000G 00 01 FB 0007B CALLS #0, G^TT_CRLF ;#0, TT_CRLF 2128 00000000G 00 00 FB 00082 5$: MOVL (R5), R2 ;STATE, R2 2131 52 65 D0 00089 CLRL R0 ;R0 50 D4 0008C CMPL R2, #10 ;R2, #10 0A 52 D1 0008E BNEQ 6$ ;6$ 02 12 00091 INCL R0 ;R0 50 D6 00093 6$: CLRL R1 ;R1 51 D4 00095 CMPL R2, #19 ;R2, #19 13 52 D1 00097 BNEQ 7$ ;7$ 02 12 0009A INCL R1 ;R1 51 D6 0009C 7$: BISL2 R0, R1 ;R0, R1 51 50 C8 0009E CLRL R0 ;R0 2132 50 D4 000A1 CMPL R2, #20 ;R2, #20 14 52 D1 000A3 BNEQ 8$ ;8$ 02 12 000A6 INCL R0 ;R0 50 D6 000A8 8$: BISL2 R1, R0 ;R1, R0 50 51 C8 000AA MCOML G^ABT_FLAG, R4 ;ABT_FLAG, R4 54 00000000G 00 D2 000AD BICL3 R4, R0, -(SP) ;R4, R0, -(SP) 50 54 CB 000B4 ; 7E 000B7 CALLS #1, G^FILE_CLOSE ;#1, FILE_CLOSE 00000000G 00 01 FB 000B8 MOVZBL #65, -(SP) ;#65, -(SP) 2133 7E 41 8F 9A 000BF MOVZBL #70, -(SP) ;#70, -(SP) 7E 46 8F 9A 000C3 CALLS #2, G^XFR_STATUS ;#2, XFR_STATUS 00000000G 00 02 FB 000C7 9$: CMPL (R5), #20 ;STATE, #20 2140 14 65 D1 000CE BNEQ 10$ ;10$ 0D 12 000D1 PUSHL #134316194 ;#134316194 080180A2 8F DD 000D3 CALLS #1, G^KRM_ERROR ;#1, KRM_ERROR 00000000G 00 01 FB 000D9 10$: BRW 29$ ;29$ 2142 0091 31 000E0 11$: MOVL (R6), R0 ;SEND_TIMEOUT, R0 2033 50 66 D0 000E3 MOVL R0, R2 ;R0, SAVED_TIMEOUT 52 50 D0 000E6 BEQL 12$ ;12$ 2035 07 13 000E9 MOVL G^SRV_TIMEOUT, (R6) ;SRV_TIMEOUT, SEND_TIMEOUT 66 00000000G 00 D0 000EB 12$: CALLS #0, (R8) ;#0, REC_SERVER_IDLE 2037 68 00 FB 000F2 MOVL R0, (R5) ;R0, STATE 65 50 D0 000F5 MOVL R2, (R6) ;SAVED_TIMEOUT, SEND_TIMEOUT 2038 66 52 D0 000F8 BRB 27$ ;27$ 71 11 000FB 13$: CALLS #0, (R8) ;#0, REC_SERVER_IDLE 2045 68 00 FB 000FD BRB 26$ ;26$ 69 11 00100 14$: MOVL #134316203, R0 ;#134316203, R0 2051 50 080180AB 8F D0 00102 RET ; 04 00109 15$: CALLS #0, G^U.3 ;#0, U.3 2054 00000000V 00 00 FB 0010A BRB 26$ ;26$ 58 11 00111 16$: CALLS #0, G^U.4 ;#0, U.4 2057 00000000V 00 00 FB 00113 BRB 26$ ;26$ 4F 11 0011A 17$: CALLS #0, G^U.7 ;#0, U.7 2060 00000000V 00 00 FB 0011C BRB 26$ ;26$ 46 11 00123 18$: CALLS #0, G^U.8 ;#0, U.8 2063 00000000V 00 00 FB 00125 BRB 26$ ;26$ 3D 11 0012C 19$: CALLS #0, G^U.5 ;#0, U.5 2066 00000000V 00 00 FB 0012E BRB 26$ ;26$ 34 11 00135 20$: CALLS #0, G^U.2 ;#0, U.2 2069 00000000V 00 00 FB 00137 BRB 26$ ;26$ 2B 11 0013E 21$: CALLS #0, G^U.6 ;#0, U.6 2072 00000000V 00 00 FB 00140 BRB 26$ ;26$ 22 11 00147 22$: CALLS #0, G^U.9 ;#0, U.9 2075 00000000V 00 00 FB 00149 BRB 26$ ;26$ 19 11 00150 23$: CALLS #0, G^U.13 ;#0, U.13 2081 00000000V 00 00 FB 00152 BRB 26$ ;26$ 10 11 00159 24$: CALLS #0, G^U.12 ;#0, U.12 2088 00000000V 00 00 FB 0015B BRB 26$ ;26$ 07 11 00162 25$: CALLS #0, G^U.11 ;#0, U.11 2094 00000000V 00 00 FB 00164 26$: MOVL R0, (R5) ;R0, STATE 65 50 D0 0016B 27$: BRW 1$ ;1$ FEB4 31 0016E 28$: MOVL #1, R3 ;#1, RETURN_VALUE 2101 53 01 D0 00171 29$: CALLS #0, G^U.18 ;#0, U.18 2149 00000000V 00 00 FB 00174 MOVL R3, R0 ;RETURN_VALUE, R0 2151 50 53 D0 0017B RET ; 04 0017E ; Routine Size: 383 bytes, Routine Base: $CODE$ + 033B ; 2153 1 %SBTTL 'REC_SERVER_IDLE - Idle server state' ; 2154 1 ROUTINE REC_SERVER_IDLE = ; 2155 1 ; 2156 1 !++ ; 2157 1 ! FUNCTIONAL DESCRIPTION: ; 2158 1 ! ; 2159 1 ! This routine is called from DO_TRANSACTION when is the server idle ; 2160 1 ! state. It will receive a message and properly dispatch to the new ; 2161 1 ! state. ; 2162 1 ! ; 2163 1 ! CALLING SEQUENCE: ; 2164 1 ! ; 2165 1 ! STATE = REC_SERVER_IDLE (); ; 2166 1 ! ; 2167 1 ! INPUT PARAMETERS: ; 2168 1 ! ; 2169 1 ! None. ; 2170 1 ! ; 2171 1 ! IMPLICIT INPUTS: ; 2172 1 ! ; 2173 1 ! Almost everything. ; 2174 1 ! ; 2175 1 ! OUPTUT PARAMETERS: ; 2176 1 ! ; 2177 1 ! Routine value is new state for FSM ; 2178 1 ! ; 2179 1 ! IMPLICIT OUTPUTS: ; 2180 1 ! ; 2181 1 ! None. ; 2182 1 ! ; 2183 1 ! COMPLETION CODES: ; 2184 1 ! ; 2185 1 ! None. ; 2186 1 ! ; 2187 1 ! SIDE EFFECTS: ; 2188 1 ! ; 2189 1 ! None. ; 2190 1 ! ; 2191 1 !-- ; 2192 1 ; 2193 2 BEGIN ; 2194 2 ; 2195 2 LOCAL ; 2196 2 STATUS; ; 2197 2 ; 2198 2 STATUS = REC_PACKET (); ; 2199 2 ! ; 2200 2 ! Now determine what to do by the type of message we have receive. ; 2201 2 ! ; 2202 2 ; 2203 2 IF .STATUS EQL KER_ABORTED THEN RETURN STATE_EX; ; 2204 2 ; 2205 2 IF .STATUS ; 2206 2 THEN ; 2207 3 BEGIN ; 2208 3 ; 2209 3 SELECTONE .REC_TYPE OF ; 2210 3 SET ; 2211 3 ! ; 2212 3 ! Server initialization message received. ACK the ; 2213 3 ! message and continue. ; 2214 3 ! ; 2215 3 ; 2216 3 [MSG_SER_INIT] : ; 2217 4 BEGIN ; 2218 4 ; 2219 5 IF (STATUS = PRS_SEND_INIT ()) ; 2220 4 THEN ; 2221 5 BEGIN ; 2222 5 SET_SEND_INIT (); ; 2223 5 ; 2224 6 IF (STATUS = SEND_PACKET (MSG_ACK, .SEND_INIT_SIZE, .REC_SEQ)) ! [108] ; 2225 5 THEN ; 2226 6 BEGIN ; 2227 6 SND_PKT_SIZE = -.SEND_PKT_SIZE; ; 2228 6 SND_TIMEOUT = -.SEND_TIMEOUT; ; 2229 6 SND_NPAD = -.SEND_NPAD; ; 2230 6 SND_PADCHAR = -.SEND_PADCHAR; ; 2231 6 SND_EOL = -.SEND_EOL; ; 2232 6 SND_QUOTE_CHR = -.SEND_QUOTE_CHR; ; 2233 6 RCV_8QUOTE_CHR = .SEND_8QUOTE_CHR; ; 2234 6 CHKTYPE = .INI_CHK_TYPE; ; 2235 6 SET_REPT_CHR = .REPT_CHR; ; 2236 6 RETURN STATE_II; ! Now idle after INIT ; 2237 5 END; ; 2238 5 ; 2239 4 END; ; 2240 4 ; 2241 4 KRM_ERROR (KER_PROTOERR); ; 2242 4 RETURN STATE_A; ; 2243 3 END; ; 2244 3 ! ; 2245 3 ! Send init message received. We must ACK the message and ; 2246 3 ! then attempt to receive a file from the remote. ; 2247 3 ! ; 2248 3 ; 2249 3 [MSG_SND_INIT] : ; 2250 4 BEGIN ; 2251 4 MSG_NUMBER = (.REC_SEQ + 1) AND %O'77'; ; 2252 4 ; 2253 5 IF (STATUS = PRS_SEND_INIT ()) ; 2254 4 THEN ; 2255 5 BEGIN ; 2256 5 SET_SEND_INIT (); ; 2257 5 ! ; 2258 5 ! ACK the message then receive everything. ; 2259 5 ! ; 2260 5 ; 2261 5 IF SEND_PACKET (MSG_ACK, .SEND_INIT_SIZE, .REC_SEQ) ! [108] ; 2262 5 THEN ; 2263 6 BEGIN ; 2264 6 BLK_CHK_TYPE = .INI_CHK_TYPE; ! Switch to desired form of block check ; 2265 6 XFR_STATUS (%C'I', %C'R'); ! Start of file receive ; 2266 6 RETURN STATE_RF; ; 2267 5 END; ; 2268 5 ; 2269 4 END; ; 2270 4 ; 2271 4 KRM_ERROR (KER_PROTOERR); ; 2272 4 RETURN STATE_A; ; 2273 3 END; ; 2274 3 ! ; 2275 3 ! Here if we receive a receive init message. ; 2276 3 ! We will be sending a file to the other end. ; 2277 3 ! ; 2278 3 ; 2279 3 [MSG_RCV_INIT] : ; 2280 4 BEGIN ; 2281 4 ! ; 2282 4 ! Move the file specification if we received one ; 2283 4 ! ; 2284 4 SET_STRING (CH$PTR (FILE_NAME), MAX_FILE_NAME, TRUE); ; 2285 4 BFR_EMPTY (); ; 2286 4 FILE_SIZE = SET_STRING (0, 0, FALSE); ; 2287 4 CH$WCHAR (CHR_NUL, CH$PTR (FILE_NAME, .FILE_SIZE)); ; 2288 4 ; 2289 4 IF .FILE_SIZE GTR 0 ; 2290 4 THEN ; 2291 5 BEGIN ; 2292 5 XFR_STATUS (%C'I', %C'S'); ! Start of a file send ; 2293 5 RETURN STATE_S; ; 2294 4 END; ; 2295 4 ; 2296 4 KRM_ERROR (KER_PROTOERR); ; 2297 4 RETURN STATE_A; ; 2298 3 END; ; 2299 3 ! ; 2300 3 ! Generic KERMIT commands ; 2301 3 ! ; 2302 3 ; 2303 3 [MSG_GENERIC] : ; 2304 3 RETURN SERVER_GENERIC (); ; 2305 3 ! ; 2306 3 ! Host command ; 2307 3 ! ; 2308 3 ; 2309 3 [MSG_COMMAND] : ; 2310 3 RETURN HOST_COMMAND (); ; 2311 3 ! ; 2312 3 ! Kermit command ; 2313 3 ! ; 2314 3 ; 2315 3 [MSG_KERMIT] : ; 2316 3 RETURN KERMIT_COMMAND (); ; 2317 3 ! ; 2318 3 ! Unimplimented server routines ; 2319 3 ! ; 2320 3 ; 2321 3 [OTHERWISE] : ; 2322 4 BEGIN ; 2323 4 KRM_ERROR (KER_UNISRV); ; 2324 4 RETURN STATE_A; ; 2325 3 END; ; 2326 3 TES; ; 2327 3 ; 2328 2 END; ; 2329 2 ; 2330 2 ! ; 2331 2 ! If we get here, we must have gotten something random. Therefore, ; 2332 2 ! just send a NAK and remain in the current state (unless we have done this ; 2333 2 ! too many times). ; 2334 2 ! ; 2335 2 NUM_RETRIES = .NUM_RETRIES + 1; ; 2336 2 ; 2337 2 IF .NUM_RETRIES GTR .SI_RETRIES THEN RETURN STATE_A; ; 2338 2 ; 2339 2 IF SEND_PACKET (MSG_NAK, 0, 0) THEN RETURN .STATE ELSE RETURN STATE_EX; ; 2340 2 ; 2341 1 END; ! End of REC_SERVER_IDLE ;REC_SERVER_IDLE U.10: .WORD ^M<R2,R3,R4,R5,R6,R7,R8,R9,R10> ;Save R2,R3,R4,R5,R6,R7,R8,R9,R10 2154 07FC 00000 MOVAB G^U.30, R10 ;U.30, R10 5A 00000000V 00 9E 00002 MOVAB G^FILE_NAME, R9 ;FILE_NAME, R9 59 00000000G 00 9E 00009 MOVAB G^XFR_STATUS, R8 ;XFR_STATUS, R8 58 00000000G 00 9E 00010 MOVAB G^U.20, R7 ;U.20, R7 57 00000000V 00 9E 00017 MOVAB G^U.21, R6 ;U.21, R6 56 00000000V 00 9E 0001E MOVAB G^U.24, R5 ;U.24, R5 55 00000000V 00 9E 00025 MOVAB G^U.56, R4 ;U.56, R4 54 00000000' 00 9E 0002C CALLS #0, G^U.26 ;#0, U.26 2198 00000000V 00 00 FB 00033 MOVL R0, R3 ;R0, STATUS 53 50 D0 0003A CMPL R3, #134316258 ;STATUS, #134316258 2203 080180E2 8F 53 D1 0003D BNEQ 1$ ;1$ 03 12 00044 BRW 15$ ;15$ 016D 31 00046 1$: BLBS R3, 2$ ;STATUS, 2$ 2205 03 53 E8 00049 BRW 12$ ;12$ 0145 31 0004C 2$: MOVL 8(R4), R2 ;REC_TYPE, R2 2209 52 08 A4 D0 0004F CMPL R2, #73 ;R2, #73 2216 00000049 8F 52 D1 00053 BNEQ 3$ ;3$ 6D 12 0005A CALLS #0, (R6) ;#0, PRS_SEND_INIT 2219 66 00 FB 0005C MOVL R0, R3 ;R0, STATUS 53 50 D0 0005F BLBC R3, 4$ ;STATUS, 4$ 7D 53 E9 00062 CALLS #0, (R7) ;#0, SET_SEND_INIT 2222 67 00 FB 00065 PUSHL (R4) ;REC_SEQ 2224 64 DD 00068 PUSHL -40(R4) ;SEND_INIT_SIZE D8 A4 DD 0006A MOVZBL #89, -(SP) ;#89, -(SP) 7E 59 8F 9A 0006D CALLS #3, (R5) ;#3, SEND_PACKET 65 03 FB 00071 MOVL R0, R3 ;R0, STATUS 53 50 D0 00074 BLBC R3, 4$ ;STATUS, 4$ 68 53 E9 00077 MNEGL -64(R4), G^SND_PKT_SIZE ;SEND_PKT_SIZE, SND_PKT_SIZE 2227 00000000G 00 C0 A4 CE 0007A MNEGL G^SEND_TIMEOUT, G^SND_TIMEOUT ;SEND_TIMEOUT, SND_TIMEOUT 2228 00000000G 00 00000000G 00 CE 00082 MNEGL -60(R4), G^SND_NPAD ;SEND_NPAD, SND_NPAD 2229 00000000G 00 C4 A4 CE 0008D MNEGL -56(R4), G^SND_PADCHAR ;SEND_PADCHAR, SND_PADCHAR 2230 00000000G 00 C8 A4 CE 00095 MNEGL -52(R4), G^SND_EOL ;SEND_EOL, SND_EOL 2231 00000000G 00 CC A4 CE 0009D MNEGL -48(R4), G^SND_QUOTE_CHR ;SEND_QUOTE_CHR, SND_QUOTE_CHR 2232 00000000G 00 D0 A4 CE 000A5 MOVL -44(R4), G^RCV_8QUOTE_CHR ;SEND_8QUOTE_CHR, RCV_8QUOTE_CHR 2233 00000000G 00 D4 A4 D0 000AD MOVL -36(R4), G^CHKTYPE ;INI_CHK_TYPE, CHKTYPE 2234 00000000G 00 DC A4 D0 000B5 MOVL -72(R4), G^SET_REPT_CHR ;REPT_CHR, SET_REPT_CHR 2235 00000000G 00 B8 A4 D0 000BD MOVL #15, R0 ;#15, R0 2236 50 0F D0 000C5 RET ; 04 000C8 3$: CMPL R2, #83 ;R2, #83 2249 00000053 8F 52 D1 000C9 BNEQ 5$ ;5$ 39 12 000D0 ADDL3 #1, (R4), R0 ;#1, REC_SEQ, R0 2251 64 01 C1 000D2 ; 50 000D5 EXTZV #0, #6, R0, -4(R4) ;#0, #6, R0, MSG_NUMBER 06 00 EF 000D6 ; FC A4 50 000D9 CALLS #0, (R6) ;#0, PRS_SEND_INIT 2253 66 00 FB 000DC MOVL R0, R3 ;R0, STATUS 53 50 D0 000DF 4$: BLBC R3, 6$ ;STATUS, 6$ 65 53 E9 000E2 CALLS #0, (R7) ;#0, SET_SEND_INIT 2256 67 00 FB 000E5 PUSHL (R4) ;REC_SEQ 2261 64 DD 000E8 PUSHL -40(R4) ;SEND_INIT_SIZE D8 A4 DD 000EA MOVZBL #89, -(SP) ;#89, -(SP) 7E 59 8F 9A 000ED CALLS #3, (R5) ;#3, SEND_PACKET 65 03 FB 000F1 BLBC R0, 6$ ;R0, 6$ 53 50 E9 000F4 MOVL -36(R4), -32(R4) ;INI_CHK_TYPE, BLK_CHK_TYPE 2264 E0 A4 DC A4 D0 000F7 MOVZBL #82, -(SP) ;#82, -(SP) 2265 7E 52 8F 9A 000FC MOVZBL #73, -(SP) ;#73, -(SP) 7E 49 8F 9A 00100 CALLS #2, (R8) ;#2, XFR_STATUS 68 02 FB 00104 MOVL #7, R0 ;#7, R0 2266 50 07 D0 00107 RET ; 04 0010A 5$: CMPL R2, #82 ;R2, #82 2279 00000052 8F 52 D1 0010B BNEQ 8$ ;8$ 45 12 00112 PUSHL #1 ;#1 2284 01 DD 00114 MOVZBL #132, -(SP) ;#132, -(SP) 7E 84 8F 9A 00116 PUSHL R9 ;R9 59 DD 0011A CALLS #3, (R10) ;#3, SET_STRING 6A 03 FB 0011C CALLS #0, G^U.28 ;#0, U.28 2285 00000000V 00 00 FB 0011F CLRQ -(SP) ;-(SP) 2286 7E 7C 00126 CLRL -(SP) ;-(SP) 7E D4 00128 CALLS #3, (R10) ;#3, SET_STRING 6A 03 FB 0012A MOVL R0, G^FILE_SIZE ;R0, FILE_SIZE 00000000G 00 50 D0 0012D CLRB (R9)[R0] ;FILE_NAME[R0] 2287 6940 94 00134 TSTL R0 ;R0 2289 50 D5 00137 BLEQ 6$ ;6$ 0F 15 00139 MOVZBL #83, -(SP) ;#83, -(SP) 2292 7E 53 8F 9A 0013B MOVZBL #73, -(SP) ;#73, -(SP) 7E 49 8F 9A 0013F CALLS #2, (R8) ;#2, XFR_STATUS 68 02 FB 00143 MOVL #1, R0 ;#1, R0 2293 50 01 D0 00146 RET ; 04 00149 6$: PUSHL #134316226 ;#134316226 2296 080180C2 8F DD 0014A 7$: CALLS #1, G^KRM_ERROR ;#1, KRM_ERROR 00000000G 00 01 FB 00150 BRB 13$ ;13$ 2297 48 11 00157 8$: CMPL R2, #71 ;R2, #71 2303 00000047 8F 52 D1 00159 BNEQ 9$ ;9$ 08 12 00160 CALLS #0, G^U.14 ;#0, U.14 2304 00000000V 00 00 FB 00162 RET ; 04 00169 9$: CMPL R2, #67 ;R2, #67 2309 00000043 8F 52 D1 0016A BNEQ 10$ ;10$ 08 12 00171 CALLS #0, G^U.15 ;#0, U.15 2310 00000000V 00 00 FB 00173 RET ; 04 0017A 10$: CMPL R2, #75 ;R2, #75 2315 0000004B 8F 52 D1 0017B BNEQ 11$ ;11$ 08 12 00182 CALLS #0, G^U.16 ;#0, U.16 2316 00000000V 00 00 FB 00184 RET ; 04 0018B 11$: PUSHL #134316218 ;#134316218 2323 080180BA 8F DD 0018C BRB 7$ ;7$ BC 11 00192 12$: INCL -8(R4) ;NUM_RETRIES 2335 F8 A4 D6 00194 CMPL -8(R4), G^SI_RETRIES ;NUM_RETRIES, SI_RETRIES 2337 00000000G 00 F8 A4 D1 00197 BLEQ 14$ ;14$ 04 15 0019F 13$: MOVL #10, R0 ;#10, R0 50 0A D0 001A1 RET ; 04 001A4 14$: CLRQ -(SP) ;-(SP) 2339 7E 7C 001A5 MOVZBL #78, -(SP) ;#78, -(SP) 7E 4E 8F 9A 001A7 CALLS #3, (R5) ;#3, SEND_PACKET 65 03 FB 001AB BLBC R0, 15$ ;R0, 15$ 05 50 E9 001AE MOVL -20(R4), R0 ;STATE, R0 50 EC A4 D0 001B1 RET ; 04 001B5 15$: MOVL #19, R0 ;#19, R0 50 13 D0 001B6 RET ; 04 001B9 ; Routine Size: 442 bytes, Routine Base: $CODE$ + 04BA ; 2342 1 %SBTTL 'SEND_SERVER_INIT' ; 2343 1 ROUTINE SEND_SERVER_INIT = ; 2344 1 ; 2345 1 !++ ; 2346 1 ! FUNCTIONAL DESCRIPTION: ; 2347 1 ! ; 2348 1 ! This routine will send a server initialization message to the ; 2349 1 ! remote KERMIT. ; 2350 1 ! ; 2351 1 ! CALLING SEQUENCE: ; 2352 1 ! ; 2353 1 ! STATE = SEND_SERVER_INIT(); ; 2354 1 ! ; 2355 1 ! INPUT PARAMETERS: ; 2356 1 ! ; 2357 1 ! None. ; 2358 1 ! ; 2359 1 ! IMPLICIT INPUTS: ; 2360 1 ! ; 2361 1 ! RECV_xxx - desired receive parameters ; 2362 1 ! ; 2363 1 ! OUTPUT PARAMETERS: ; 2364 1 ! ; 2365 1 ! New state to change the finite state machine to. ; 2366 1 ! ; 2367 1 ! IMPLICIT OUTPUTS: ; 2368 1 ! ; 2369 1 ! SEND_xxx - Other Kermit's desired parameters ; 2370 1 ! ; 2371 1 ! COMPLETION CODES: ; 2372 1 ! ; 2373 1 ! None. ; 2374 1 ! ; 2375 1 ! SIDE EFFECTS: ; 2376 1 ! ; 2377 1 ! None. ; 2378 1 ! ; 2379 1 !-- ; 2380 1 ; 2381 2 BEGIN ; 2382 2 ; 2383 2 LOCAL ; 2384 2 OLD_OUTPUT, ! Saved terminal output routine ; 2385 2 STATUS; ! Status returned by various routines ; 2386 2 ; 2387 2 ![026] Local routine to ignore error message output ; 2388 2 ROUTINE IGNORE_ERROR (ADDRESS, LENGTH) = ; 2389 3 BEGIN ; 2390 3 RETURN TRUE; ; 2391 2 END; ;IGNORE_ERROR U.76: .WORD ^M<> ;Save nothing 2388 0000 00000 MOVL #1, R0 ;#1, R0 2390 50 01 D0 00002 RET ; 04 00005 ; Routine Size: 6 bytes, Routine Base: $CODE$ + 0674 ; 2392 2 SET_SEND_INIT (); ; 2393 2 ![026] If too many tries, just give up. Maybe the other Kermit doesn't ; 2394 2 ![026] know what to do with this packet. ; 2395 2 ; 2396 2 IF .NUM_RETRIES GTR .SI_RETRIES THEN RETURN STATE_SG; ; 2397 2 ; 2398 2 ![026] ; 2399 2 ![026] Count the number of times we try this ; 2400 2 ![026] ; 2401 2 NUM_RETRIES = .NUM_RETRIES + 1; ; 2402 2 ; 2403 2 IF NOT SEND_PACKET (MSG_SER_INIT, .SEND_INIT_SIZE, .MSG_NUMBER) THEN RETURN STATE_A; ! [108] ; 2404 2 ; 2405 2 ![026] ; 2406 2 ![026] Determine if we received a packet it good condition. If we timed out ; 2407 2 ![026] just try again. If we get an error packet back, ignore it and ; 2408 2 ![026] just continue. The other Kermit must not support this packet. ; 2409 2 ![026] ; 2410 2 OLD_OUTPUT = TT_SET_OUTPUT (IGNORE_ERROR); ; 2411 2 STATUS = REC_PACKET (); ; 2412 2 TT_OUTPUT (); ; 2413 2 TT_SET_OUTPUT (.OLD_OUTPUT); ; 2414 2 ; 2415 2 IF .STATUS EQL KER_ERRMSG THEN RETURN STATE_SG; ; 2416 2 ; 2417 2 IF NOT .STATUS ; 2418 2 THEN ; 2419 2 ; 2420 4 IF NOT ((.STATUS EQL KER_ZEROLENMSG) OR (.STATUS EQL KER_TIMEOUT) OR (.STATUS EQL ; 2421 3 KER_CHKSUMERR)) ; 2422 2 THEN ; 2423 2 RETURN STATE_EX ; 2424 2 ELSE ; 2425 2 RETURN .STATE; ; 2426 2 ; 2427 2 ! ; 2428 2 ! Determine if the packet is good. ; 2429 2 ! ; 2430 2 ; 2431 2 IF .REC_TYPE EQL MSG_ACK AND .REC_SEQ EQL .MSG_NUMBER ; 2432 2 THEN ; 2433 3 BEGIN ; 2434 3 ! ; 2435 3 ! Here if we have an ACK for the initialization message that was just sent ; 2436 3 ! to the remote KERMIT. ; 2437 3 ! ; 2438 3 ; 2439 3 IF NOT (STATUS = PRS_SEND_INIT ()) THEN RETURN STATE_A; ; 2440 3 ; 2441 3 NUM_RETRIES = 0; ; 2442 3 INIT_PKT_SENT = TRUE; ! We have exchanged init's ; 2443 3 RETURN STATE_SG; ; 2444 2 END; ; 2445 2 ; 2446 2 ! ; 2447 2 ! If we haven't returned yet, we must have gotten an invalid response. ; 2448 2 ! Just stay in the same state so we try again ; 2449 2 ! ; 2450 2 RETURN .STATE; ; 2451 1 END; ;SEND_SERVER_INIT U.2: .WORD ^M<R2,R3,R4,R5> ;Save R2,R3,R4,R5 2343 003C 00000 MOVAB G^TT_SET_OUTPUT, R5 ;TT_SET_OUTPUT, R5 55 00000000G 00 9E 00002 MOVAB G^U.54, R4 ;U.54, R4 54 00000000' 00 9E 00009 CALLS #0, G^U.20 ;#0, U.20 2392 00000000V 00 00 FB 00010 CMPL (R4), G^SI_RETRIES ;NUM_RETRIES, SI_RETRIES 2396 00000000G 00 64 D1 00017 BLEQ 1$ ;1$ 03 15 0001E BRW 5$ ;5$ 0089 31 00020 1$: INCL (R4) ;NUM_RETRIES 2401 64 D6 00023 PUSHL 4(R4) ;MSG_NUMBER 2403 04 A4 DD 00025 PUSHL -32(R4) ;SEND_INIT_SIZE E0 A4 DD 00028 MOVZBL #73, -(SP) ;#73, -(SP) 7E 49 8F 9A 0002B CALLS #3, G^U.24 ;#3, U.24 00000000V 00 03 FB 0002F BLBC R0, 3$ ;R0, 3$ 68 50 E9 00036 PUSHAB B^U.76 ;U.76 2410 BE AF 9F 00039 CALLS #1, (R5) ;#1, TT_SET_OUTPUT 65 01 FB 0003C MOVL R0, R3 ;R0, OLD_OUTPUT 53 50 D0 0003F CALLS #0, G^U.26 ;#0, U.26 2411 00000000V 00 00 FB 00042 MOVL R0, R2 ;R0, STATUS 52 50 D0 00049 CALLS #0, G^TT_OUTPUT ;#0, TT_OUTPUT 2412 00000000G 00 00 FB 0004C PUSHL R3 ;OLD_OUTPUT 2413 53 DD 00053 CALLS #1, (R5) ;#1, TT_SET_OUTPUT 65 01 FB 00055 CMPL R2, #134316170 ;STATUS, #134316170 2415 0801808A 8F 52 D1 00058 BEQL 5$ ;5$ 4B 13 0005F BLBS R2, 2$ ;STATUS, 2$ 2417 1F 52 E8 00061 CMPL R2, #134316234 ;STATUS, #134316234 2420 080180CA 8F 52 D1 00064 BEQL 6$ ;6$ 43 13 0006B CMPL R2, #134316248 ;STATUS, #134316248 080180D8 8F 52 D1 0006D BEQL 6$ ;6$ 3A 13 00074 CMPL R2, #134316178 ;STATUS, #134316178 2421 08018092 8F 52 D1 00076 BEQL 6$ ;6$ 31 13 0007D MOVL #19, R0 ;#19, R0 2423 50 13 D0 0007F RET ; 04 00082 2$: CMPL 16(R4), #89 ;REC_TYPE, #89 2431 00000059 8F 10 A4 D1 00083 BNEQ 6$ ;6$ 23 12 0008B CMPL 8(R4), 4(R4) ;REC_SEQ, MSG_NUMBER 04 A4 08 A4 D1 0008D BNEQ 6$ ;6$ 1C 12 00092 CALLS #0, G^U.21 ;#0, U.21 2439 00000000V 00 00 FB 00094 MOVL R0, R2 ;R0, STATUS 52 50 D0 0009B BLBS R2, 4$ ;STATUS, 4$ 04 52 E8 0009E 3$: MOVL #10, R0 ;#10, R0 50 0A D0 000A1 RET ; 04 000A4 4$: CLRL (R4) ;NUM_RETRIES 2441 64 D4 000A5 MOVL #1, 2040(R4) ;#1, INIT_PKT_SENT 2442 07F8 C4 01 D0 000A7 5$: MOVL #12, R0 ;#12, R0 2443 50 0C D0 000AC RET ; 04 000AF 6$: MOVL -12(R4), R0 ;STATE, R0 2450 50 F4 A4 D0 000B0 RET ; 04 000B4 ; Routine Size: 181 bytes, Routine Base: $CODE$ + 067A ; 2452 1 %SBTTL 'SEND_DATA' ; 2453 1 ROUTINE SEND_DATA = ; 2454 1 ; 2455 1 !++ ; 2456 1 ! FUNCTIONAL DESCRIPTION: ; 2457 1 ! ; 2458 1 ! This routine will send a data message to the remote KERMIT. ; 2459 1 ! ; 2460 1 ! CALLING SEQUENCE: ; 2461 1 ! ; 2462 1 ! STATE = SEND_DATA(); ; 2463 1 ! ; 2464 1 ! INPUT PARAMETERS: ; 2465 1 ! ; 2466 1 ! None. ; 2467 1 ! ; 2468 1 ! IMPLICIT INPUTS: ; 2469 1 ! ; 2470 1 ! None. ; 2471 1 ! ; 2472 1 ! OUTPUT PARAMETERS: ; 2473 1 ! ; 2474 1 ! New state to change the finite state machine to. ; 2475 1 ! ; 2476 1 ! IMPLICIT OUTPUTS: ; 2477 1 ! ; 2478 1 ! None. ; 2479 1 ! ; 2480 1 ! COMPLETION CODES: ; 2481 1 ! ; 2482 1 ! None. ; 2483 1 ! ; 2484 1 ! SIDE EFFECTS: ; 2485 1 ! ; 2486 1 ! None. ; 2487 1 ! ; 2488 1 !-- ; 2489 1 ; 2490 2 BEGIN ; 2491 2 ; 2492 2 LOCAL ; 2493 2 SUB_TYPE, ! Subtype for XFR_STATUS call ; 2494 2 STATUS; ! Status returned by various routines ; 2495 2 ; 2496 2 ! ; 2497 2 ! If there is nothing in the data packet, we should not bother to send it. ; 2498 2 ! Instead, we will just call BFR_FILL again to get some more data ; 2499 2 ! ; 2500 2 ; 2501 2 IF .SIZE NEQ 0 ! [108] ; 2502 2 THEN ; 2503 3 BEGIN ; 2504 3 ! ; 2505 3 ! Check to see if the number of retries have been exceeded. ; 2506 3 ! ; 2507 3 ; 2508 3 IF .NUM_RETRIES GTR .PKT_RETRIES THEN RETURN STATE_ER; ; 2509 3 ; 2510 3 ! ; 2511 3 ! Not exceeded yet. Increment the number of retries we have attempted ; 2512 3 ! on this message. ; 2513 3 ! ; 2514 3 NUM_RETRIES = .NUM_RETRIES + 1; ; 2515 3 ! ; 2516 3 ! Attempt to send the packet and abort if the send fails. ; 2517 3 ! ; 2518 3 ; 2519 3 IF NOT SEND_PACKET (MSG_DATA, .SIZE, .MSG_NUMBER) THEN RETURN STATE_EX; ; 2520 3 ; 2521 3 ! ; 2522 3 ! Attempt to receive a message from the remote KERMIT. ; 2523 3 ! ; 2524 3 STATUS = REC_PACKET (); ; 2525 3 ; 2526 3 IF NOT .STATUS ; 2527 3 THEN ; 2528 4 BEGIN ; 2529 4 ; 2530 5 IF (.STATUS EQL KER_ZEROLENMSG) OR (.STATUS EQL KER_TIMEOUT) OR (.STATUS EQL ; 2531 5 KER_CHKSUMERR) ; 2532 4 THEN ; 2533 4 RETURN .STATE ; 2534 4 ELSE ; 2535 4 RETURN STATE_EX; ; 2536 4 ; 2537 3 END; ; 2538 3 ; 2539 3 ! ; 2540 3 ! Determine if the message is a NAK and the NAK is for the message number ; 2541 3 ! that we are current working on. If the NAK is for the next packet then ; 2542 3 ! treat it like an ACK for this packet ; 2543 3 ! ; 2544 3 ; 2545 4 IF .REC_TYPE EQL MSG_NAK AND (.REC_SEQ NEQ ((.MSG_NUMBER + 1) AND %O'77')) ; 2546 3 THEN ; 2547 3 RETURN .STATE; ; 2548 3 ; 2549 3 ! ; 2550 3 ! Make sure we have a NAK or ACK ; 2551 3 ! ; 2552 3 ; 2553 4 IF NOT (.REC_TYPE EQL MSG_ACK OR .REC_TYPE EQL MSG_NAK) ; 2554 3 THEN ; 2555 3 ! ; 2556 3 ! Not an ACK or NAK, abort. ; 2557 3 ! ; 2558 4 BEGIN ; 2559 4 KRM_ERROR (KER_PROTOERR); ; 2560 4 RETURN STATE_A; ; 2561 3 END; ; 2562 3 ; 2563 3 ! ; 2564 3 ! Is this for this message? ; 2565 3 ! ; 2566 3 ; 2567 3 IF .REC_TYPE EQL MSG_ACK AND .REC_SEQ NEQ .MSG_NUMBER THEN RETURN .STATE; ; 2568 3 ; 2569 3 ! ; 2570 3 ! It was. Set up for sending the next data message to the remote KERMIT ; 2571 3 ! and return. ; 2572 3 ! ; 2573 3 ! ; 2574 3 ! Check for data field in ACK indicating abort file or stream ; 2575 3 ! ; 2576 3 ! ; 2577 3 ; 2578 3 IF .REC_TYPE EQL MSG_ACK AND .REC_LENGTH EQL 1 ; 2579 3 THEN ; 2580 3 ; 2581 3 SELECTONE CH$RCHAR (CH$PTR (REC_MSG, .RECV_PKT_MSG, CHR_SIZE)) OF ! [108] ; 2582 3 SET ; 2583 3 ; 2584 3 [MSG_ACK_ABT_CUR] : ; 2585 3 ABT_CUR_FILE = TRUE; ; 2586 3 ; 2587 3 [MSG_ACK_ABT_ALL] : ; 2588 3 ABT_ALL_FILE = TRUE; ; 2589 3 TES; ; 2590 3 ; 2591 3 NUM_RETRIES = 0; ; 2592 3 MSG_NUMBER = (.MSG_NUMBER + 1) AND %O'77'; ; 2593 2 END; ! End of IF .SIZE NEQ 0 ; 2594 2 ; 2595 3 IF (BFR_FILL (FALSE) EQL KER_NORMAL) AND NOT (.ABT_CUR_FILE OR .ABT_ALL_FILE) ; 2596 2 THEN ; 2597 2 RETURN STATE_SD ; 2598 2 ELSE ; 2599 3 BEGIN ; 2600 3 ; 2601 3 IF ( NOT .CONNECT_FLAG) AND .TY_FIL ; 2602 3 THEN ; 2603 4 BEGIN ; 2604 4 ; 2605 4 IF .ABT_ALL_FILE ; 2606 4 THEN ; 2607 4 TT_TEXT (UPLIT (%ASCIZ' [Group interrupted]')) ; 2608 4 ELSE ; 2609 4 ; 2610 4 IF .ABT_CUR_FILE ; 2611 4 THEN ; 2612 4 TT_TEXT (UPLIT (%ASCIZ' [Interrupted]')) ; 2613 4 ELSE ; 2614 4 TT_TEXT (UPLIT (%ASCIZ' [OK]')); ; 2615 4 ; 2616 4 TT_CRLF (); ; 2617 3 END; ; 2618 3 ; 2619 3 IF .FLAG_FILE_OPEN THEN FILE_CLOSE (FALSE); ; 2620 3 ; 2621 3 SUB_TYPE = %C'C'; ! Assume ok ; 2622 3 ; 2623 3 IF .ABT_ALL_FILE ; 2624 3 THEN ; 2625 3 SUB_TYPE = %C'Z' ; 2626 3 ELSE ; 2627 3 ; 2628 3 IF .ABT_CUR_FILE THEN SUB_TYPE = %C'X'; ; 2629 3 ; 2630 3 XFR_STATUS (%C'F', .SUB_TYPE); ; 2631 3 FLAG_FILE_OPEN = FALSE; ; 2632 3 RETURN STATE_SZ; ; 2633 2 END; ; 2634 2 ; 2635 1 END; .PSECT $PLIT$,NOWRT,NOEXE,2 P.AAB: .ASCII \ [Group interrupted]\<0><0><0><0> ; 20 70 75 6F 72 47 5B 20 0000C ; 70 75 72 72 65 74 6E 69 00014 ; 00 00 00 00 5D 64 65 74 0001C P.AAC: .ASCII \ [Interrupted]\<0><0> ; 72 72 65 74 6E 49 5B 20 00024 ; 00 00 5D 64 65 74 70 75 0002C P.AAD: .ASCII \ [OK]\<0><0><0> ; 00 00 00 5D 4B 4F 5B 20 00034 .PSECT $CODE$,NOWRT,2 ;SEND_DATA U.3: .WORD ^M<R2,R3,R4,R5,R6,R7> ;Save R2,R3,R4,R5,R6,R7 2453 00FC 00000 MOVAB G^FLAG_FILE_OPEN, R7 ;FLAG_FILE_OPEN, R7 57 00000000' 00 9E 00002 MOVAB G^P.AAB, R6 ;P.AAB, R6 56 00000000' 00 9E 00009 MOVAB G^ABT_ALL_FILE, R5 ;ABT_ALL_FILE, R5 55 00000000G 00 9E 00010 MOVAB G^ABT_CUR_FILE, R4 ;ABT_CUR_FILE, R4 54 00000000G 00 9E 00017 MOVAB G^U.55, R3 ;U.55, R3 53 00000000' 00 9E 0001E MOVL -12(R3), R0 ;SIZE, R0 2501 50 F4 A3 D0 00025 BNEQ 1$ ;1$ 03 12 00029 BRW 11$ ;11$ 00D1 31 0002B 1$: CMPL -4(R3), G^PKT_RETRIES ;NUM_RETRIES, PKT_RETRIES 2508 00000000G 00 FC A3 D1 0002E BLEQ 2$ ;2$ 04 15 00036 MOVL #20, R0 ;#20, R0 50 14 D0 00038 RET ; 04 0003B 2$: INCL -4(R3) ;NUM_RETRIES 2514 FC A3 D6 0003C PUSHL (R3) ;MSG_NUMBER 2519 63 DD 0003F PUSHL R0 ;R0 50 DD 00041 MOVZBL #68, -(SP) ;#68, -(SP) 7E 44 8F 9A 00043 CALLS #3, G^U.24 ;#3, U.24 00000000V 00 03 FB 00047 BLBC R0, 3$ ;R0, 3$ 25 50 E9 0004E CALLS #0, G^U.26 ;#0, U.26 2524 00000000V 00 00 FB 00051 BLBS R0, 4$ ;STATUS, 4$ 2526 1F 50 E8 00058 CMPL R0, #134316234 ;STATUS, #134316234 2530 080180CA 8F 50 D1 0005B BEQL 7$ ;7$ 64 13 00062 CMPL R0, #134316248 ;STATUS, #134316248 080180D8 8F 50 D1 00064 BEQL 7$ ;7$ 5B 13 0006B CMPL R0, #134316178 ;STATUS, #134316178 2531 08018092 8F 50 D1 0006D BEQL 7$ ;7$ 52 13 00074 3$: MOVL #19, R0 ;#19, R0 2535 50 13 D0 00076 RET ; 04 00079 4$: MOVL 12(R3), R1 ;REC_TYPE, R1 2545 51 0C A3 D0 0007A CLRL R2 ;R2 52 D4 0007E CMPL R1, #78 ;R1, #78 0000004E 8F 51 D1 00080 BNEQ 5$ ;5$ 0E 12 00087 INCL R2 ;R2 52 D6 00089 ADDL3 #1, (R3), R0 ;#1, MSG_NUMBER, R0 63 01 C1 0008B ; 50 0008E CMPZV #0, #6, R0, 4(R3) ;#0, #6, R0, REC_SEQ 06 00 ED 0008F ; 04 A3 50 00092 BNEQ 7$ ;7$ 31 12 00095 5$: CMPL R1, #89 ;R1, #89 2553 00000059 8F 51 D1 00097 BEQL 6$ ;6$ 14 13 0009E BLBS R2, 6$ ;R2, 6$ 11 52 E8 000A0 PUSHL #134316226 ;#134316226 2559 080180C2 8F DD 000A3 CALLS #1, G^KRM_ERROR ;#1, KRM_ERROR 00000000G 00 01 FB 000A9 MOVL #10, R0 ;#10, R0 2560 50 0A D0 000B0 RET ; 04 000B3 6$: CLRL R0 ;R0 2567 50 D4 000B4 CMPL 12(R3), #89 ;REC_TYPE, #89 00000059 8F 0C A3 D1 000B6 BNEQ 8$ ;8$ 0D 12 000BE INCL R0 ;R0 50 D6 000C0 CMPL 4(R3), (R3) ;REC_SEQ, MSG_NUMBER 63 04 A3 D1 000C2 BEQL 8$ ;8$ 05 13 000C6 7$: MOVL -16(R3), R0 ;STATE, R0 50 F0 A3 D0 000C8 RET ; 04 000CC 8$: BLBC R0, 10$ ;R0, 10$ 2578 23 50 E9 000CD CMPL 8(R3), #1 ;REC_LENGTH, #1 01 08 A3 D1 000D0 BNEQ 10$ ;10$ 1D 12 000D4 MOVL -64(R3), R0 ;RECV_PKT_MSG, R0 2581 50 C0 A3 D0 000D6 MOVZBL 16(R3)[R0], R0 ;REC_MSG[R0], R0 50 10 A340 9A 000DA CMPB R0, #88 ;R0, #88 2584 58 8F 50 91 000DF BNEQ 9$ ;9$ 05 12 000E3 MOVL #1, (R4) ;#1, ABT_CUR_FILE 2585 64 01 D0 000E5 BRB 10$ ;10$ 09 11 000E8 9$: CMPB R0, #90 ;R0, #90 2587 5A 8F 50 91 000EA BNEQ 10$ ;10$ 03 12 000EE MOVL #1, (R5) ;#1, ABT_ALL_FILE 2588 65 01 D0 000F0 10$: CLRL -4(R3) ;NUM_RETRIES 2591 FC A3 D4 000F3 ADDL3 #1, (R3), R0 ;#1, MSG_NUMBER, R0 2592 63 01 C1 000F6 ; 50 000F9 EXTZV #0, #6, R0, (R3) ;#0, #6, R0, MSG_NUMBER 06 00 EF 000FA ; 63 50 000FD 11$: CLRL -(SP) ;-(SP) 2595 7E D4 000FF CALLS #1, G^U.29 ;#1, U.29 00000000V 00 01 FB 00101 CMPL R0, #134316043 ;R0, #134316043 0801800B 8F 50 D1 00108 BNEQ 12$ ;12$ 0A 12 0010F BLBS (R4), 12$ ;ABT_CUR_FILE, 12$ 07 64 E8 00111 BLBS (R5), 12$ ;ABT_ALL_FILE, 12$ 04 65 E8 00114 MOVL #3, R0 ;#3, R0 2597 50 03 D0 00117 RET ; 04 0011A 12$: BLBS G^CONNECT_FLAG, 16$ ;CONNECT_FLAG, 16$ 2601 27 00000000G 00 E8 0011B BLBC G^TY_FIL, 16$ ;TY_FIL, 16$ 20 00000000G 00 E9 00122 BLBC (R5), 13$ ;ABT_ALL_FILE, 13$ 2605 04 65 E9 00129 PUSHL R6 ;R6 2607 56 DD 0012C BRB 15$ ;15$ 0B 11 0012E 13$: BLBC (R4), 14$ ;ABT_CUR_FILE, 14$ 2610 05 64 E9 00130 PUSHAB 24(R6) ;P.AAC 2612 18 A6 9F 00133 BRB 15$ ;15$ 03 11 00136 14$: PUSHAB 40(R6) ;P.AAD 2614 28 A6 9F 00138 15$: CALLS #1, G^TT_TEXT ;#1, TT_TEXT 00000000G 00 01 FB 0013B CALLS #0, G^TT_CRLF ;#0, TT_CRLF 2616 00000000G 00 00 FB 00142 16$: BLBC (R7), 17$ ;FLAG_FILE_OPEN, 17$ 2619 09 67 E9 00149 CLRL -(SP) ;-(SP) 7E D4 0014C CALLS #1, G^FILE_CLOSE ;#1, FILE_CLOSE 00000000G 00 01 FB 0014E 17$: MOVZBL #67, R0 ;#67, SUB_TYPE 2621 50 43 8F 9A 00155 BLBC (R5), 18$ ;ABT_ALL_FILE, 18$ 2623 06 65 E9 00159 MOVZBL #90, R0 ;#90, SUB_TYPE 2625 50 5A 8F 9A 0015C BRB 19$ ;19$ 07 11 00160 18$: BLBC (R4), 19$ ;ABT_CUR_FILE, 19$ 2628 04 64 E9 00162 MOVZBL #88, R0 ;#88, SUB_TYPE 50 58 8F 9A 00165 19$: PUSHL R0 ;SUB_TYPE 2630 50 DD 00169 MOVZBL #70, -(SP) ;#70, -(SP) 7E 46 8F 9A 0016B CALLS #2, G^XFR_STATUS ;#2, XFR_STATUS 00000000G 00 02 FB 0016F CLRL (R7) ;FLAG_FILE_OPEN 2631 67 D4 00176 MOVL #4, R0 ;#4, R0 2632 50 04 D0 00178 RET ; 04 0017B ; Routine Size: 380 bytes, Routine Base: $CODE$ + 072F ; 2636 1 %SBTTL 'SEND_FILE' ; 2637 1 ROUTINE SEND_FILE = ; 2638 1 ; 2639 1 !++ ; 2640 1 ! FUNCTIONAL DESCRIPTION: ; 2641 1 ! ; 2642 1 ! This routine will send the file specification that is being ; 2643 1 ! transfered, or it will send a text header message. ; 2644 1 ! ; 2645 1 ! CALLING SEQUENCE: ; 2646 1 ! ; 2647 1 ! STATE = SEND_FILE(); ; 2648 1 ! ; 2649 1 ! INPUT PARAMETERS: ; 2650 1 ! ; 2651 1 ! None. ; 2652 1 ! ; 2653 1 ! IMPLICIT INPUTS: ; 2654 1 ! ; 2655 1 ! TEXT_HEAD_FLAG - If true, send text header instead of file header ; 2656 1 ! ; 2657 1 ! OUTPUT PARAMETERS: ; 2658 1 ! ; 2659 1 ! New state to change the finite state machine to. ; 2660 1 ! ; 2661 1 ! IMPLICIT OUTPUTS: ; 2662 1 ! ; 2663 1 ! None. ; 2664 1 ! ; 2665 1 ! COMPLETION CODES: ; 2666 1 ! ; 2667 1 ! None. ; 2668 1 ! ; 2669 1 ! SIDE EFFECTS: ; 2670 1 ! ; 2671 1 ! None. ; 2672 1 ! ; 2673 1 !-- ; 2674 1 ; 2675 2 BEGIN ; 2676 2 ; 2677 2 LOCAL ; 2678 2 M_TYPE, ! Message type to send ; 2679 2 STATUS; ! Status returned by various routines ; 2680 2 ; 2681 2 ! ; 2682 2 ! Flag we don't want to abort yet ; 2683 2 ! ; 2684 2 ABT_CUR_FILE = FALSE; ; 2685 2 ABT_ALL_FILE = FALSE; ; 2686 2 ! ; 2687 2 ! First determine if we have exceed the number of retries that are ; 2688 2 ! allowed to attempt to send this message. ; 2689 2 ! ; 2690 2 ; 2691 2 IF .NUM_RETRIES GTR .PKT_RETRIES THEN RETURN STATE_ER; ; 2692 2 ; 2693 2 ! ; 2694 2 ! The number of retries are not exceeded. Increment the number and then ; 2695 2 ! attempt to send the packet again. ; 2696 2 ! ; 2697 2 NUM_RETRIES = .NUM_RETRIES + 1; ; 2698 2 SIZE = 0; ! Assume no name ; 2699 2 ; 2700 2 IF .TEXT_HEAD_FLAG THEN M_TYPE = MSG_TEXT ELSE M_TYPE = MSG_FILE; ; 2701 2 ; 2702 2 IF .FILE_SIZE NEQ 0 AND NOT .NO_FILE_NEEDED ; 2703 2 THEN ; 2704 3 BEGIN ; 2705 3 ![025] CH$MOVE (.FILE_SIZE, CH$PTR (FILE_NAME), ; 2706 3 ![025] CH$PTR (SND_MSG, PKT_MSG, ; 2707 3 ![025] CHR_SIZE)); ; 2708 3 ![025] ; 2709 3 ![025] Fill packet with file name ; 2710 3 ![025] ; 2711 3 SET_STRING (CH$PTR (FILE_NAME), .FILE_SIZE, TRUE); ; 2712 3 BFR_FILL (TRUE); ; 2713 3 SET_STRING (0, 0, FALSE); ; 2714 2 END; ; 2715 2 ; 2716 2 IF NOT SEND_PACKET (.M_TYPE, .SIZE, .MSG_NUMBER) THEN RETURN STATE_EX; ; 2717 2 ; 2718 2 ! ; 2719 2 ! Now get the responce from the remote KERMIT. ; 2720 2 ! ; 2721 2 STATUS = REC_PACKET (); ; 2722 2 ; 2723 2 IF NOT .STATUS ; 2724 2 THEN ; 2725 3 BEGIN ; 2726 3 ; 2727 4 IF (.STATUS EQL KER_ZEROLENMSG) OR (.STATUS EQL KER_TIMEOUT) OR (.STATUS EQL KER_CHKSUMERR) ; 2728 3 THEN ; 2729 3 RETURN .STATE ; 2730 3 ELSE ; 2731 3 RETURN STATE_EX; ; 2732 3 ; 2733 2 END; ; 2734 2 ; 2735 2 ! ; 2736 2 ! Determine if the packet is good. ; 2737 2 ! ; 2738 2 ; 2739 3 IF NOT (.REC_TYPE EQL MSG_ACK OR .REC_TYPE EQL MSG_NAK) ; 2740 2 THEN ; 2741 3 BEGIN ; 2742 3 KRM_ERROR (KER_PROTOERR); ; 2743 3 RETURN STATE_A; ; 2744 2 END; ; 2745 2 ; 2746 2 ! ; 2747 2 ! If this is a NAK and the message number is not the one we just send ; 2748 2 ! treat this like an ACK, otherwise resend the last packet. ; 2749 2 ! ; 2750 2 ; 2751 2 IF .REC_TYPE EQL MSG_NAK AND (.REC_SEQ NEQ ((.MSG_NUMBER + 1) AND %O'77')) THEN RETURN .STATE; ; 2752 2 ; 2753 2 IF .REC_TYPE EQL MSG_ACK AND .REC_SEQ NEQ .MSG_NUMBER THEN RETURN .STATE; ; 2754 2 ; 2755 2 ! ; 2756 2 ! If all is ok, bump the message number and fill first buffer ; 2757 2 ! ; 2758 2 NUM_RETRIES = 0; ; 2759 2 MSG_NUMBER = (.MSG_NUMBER + 1) AND %O'77'; ; 2760 2 ; 2761 2 IF BFR_FILL (TRUE) THEN RETURN STATE_SD ELSE RETURN STATE_A; ; 2762 2 ; 2763 1 END; ! End of SEND_FILE ;SEND_FILE U.4: .WORD ^M<R2,R3,R4,R5> ;Save R2,R3,R4,R5 2637 003C 00000 MOVAB G^U.29, R5 ;U.29, R5 55 00000000V 00 9E 00002 MOVAB G^U.30, R4 ;U.30, R4 54 00000000V 00 9E 00009 MOVAB G^U.55, R3 ;U.55, R3 53 00000000' 00 9E 00010 CLRL G^ABT_CUR_FILE ;ABT_CUR_FILE 2684 00000000G 00 D4 00017 CLRL G^ABT_ALL_FILE ;ABT_ALL_FILE 2685 00000000G 00 D4 0001D CMPL -4(R3), G^PKT_RETRIES ;NUM_RETRIES, PKT_RETRIES 2691 00000000G 00 FC A3 D1 00023 BLEQ 1$ ;1$ 04 15 0002B MOVL #20, R0 ;#20, R0 50 14 D0 0002D RET ; 04 00030 1$: INCL -4(R3) ;NUM_RETRIES 2697 FC A3 D6 00031 CLRL -12(R3) ;SIZE 2698 F4 A3 D4 00034 BLBC 2028(R3), 2$ ;TEXT_HEAD_FLAG, 2$ 2700 06 07EC C3 E9 00037 MOVZBL #88, R2 ;#88, M_TYPE 52 58 8F 9A 0003C BRB 3$ ;3$ 04 11 00040 2$: MOVZBL #70, R2 ;#70, M_TYPE 52 46 8F 9A 00042 3$: MOVL G^FILE_SIZE, R0 ;FILE_SIZE, R0 2702 50 00000000G 00 D0 00046 BEQL 4$ ;4$ 1E 13 0004D BLBS 2032(R3), 4$ ;NO_FILE_NEEDED, 4$ 19 07F0 C3 E8 0004F PUSHL #1 ;#1 2711 01 DD 00054 PUSHL R0 ;R0 50 DD 00056 PUSHAB G^FILE_NAME ;FILE_NAME 00000000G 00 9F 00058 CALLS #3, (R4) ;#3, SET_STRING 64 03 FB 0005E PUSHL #1 ;#1 2712 01 DD 00061 CALLS #1, (R5) ;#1, BFR_FILL 65 01 FB 00063 CLRQ -(SP) ;-(SP) 2713 7E 7C 00066 CLRL -(SP) ;-(SP) 7E D4 00068 CALLS #3, (R4) ;#3, SET_STRING 64 03 FB 0006A 4$: PUSHL (R3) ;MSG_NUMBER 2716 63 DD 0006D PUSHL -12(R3) ;SIZE F4 A3 DD 0006F PUSHL R2 ;M_TYPE 52 DD 00072 CALLS #3, G^U.24 ;#3, U.24 00000000V 00 03 FB 00074 BLBC R0, 5$ ;R0, 5$ 25 50 E9 0007B CALLS #0, G^U.26 ;#0, U.26 2721 00000000V 00 00 FB 0007E BLBS R0, 6$ ;STATUS, 6$ 2723 1F 50 E8 00085 CMPL R0, #134316234 ;STATUS, #134316234 2727 080180CA 8F 50 D1 00088 BEQL 9$ ;9$ 63 13 0008F CMPL R0, #134316248 ;STATUS, #134316248 080180D8 8F 50 D1 00091 BEQL 9$ ;9$ 5A 13 00098 CMPL R0, #134316178 ;STATUS, #134316178 08018092 8F 50 D1 0009A BEQL 9$ ;9$ 51 13 000A1 5$: MOVL #19, R0 ;#19, R0 2731 50 13 D0 000A3 RET ; 04 000A6 6$: MOVL 12(R3), R0 ;REC_TYPE, R0 2739 50 0C A3 D0 000A7 CMPL R0, #89 ;R0, #89 00000059 8F 50 D1 000AB BEQL 7$ ;7$ 18 13 000B2 CMPL R0, #78 ;R0, #78 0000004E 8F 50 D1 000B4 BEQL 7$ ;7$ 0F 13 000BB PUSHL #134316226 ;#134316226 2742 080180C2 8F DD 000BD CALLS #1, G^KRM_ERROR ;#1, KRM_ERROR 00000000G 00 01 FB 000C3 BRB 11$ ;11$ 2743 45 11 000CA 7$: MOVL 12(R3), R1 ;REC_TYPE, R1 2751 51 0C A3 D0 000CC CMPL R1, #78 ;R1, #78 0000004E 8F 51 D1 000D0 BNEQ 8$ ;8$ 0C 12 000D7 ADDL3 #1, (R3), R0 ;#1, MSG_NUMBER, R0 63 01 C1 000D9 ; 50 000DC CMPZV #0, #6, R0, 4(R3) ;#0, #6, R0, REC_SEQ 06 00 ED 000DD ; 04 A3 50 000E0 BNEQ 9$ ;9$ 0F 12 000E3 8$: CMPL R1, #89 ;R1, #89 2753 00000059 8F 51 D1 000E5 BNEQ 10$ ;10$ 0B 12 000EC CMPL 4(R3), (R3) ;REC_SEQ, MSG_NUMBER 63 04 A3 D1 000EE BEQL 10$ ;10$ 05 13 000F2 9$: MOVL -16(R3), R0 ;STATE, R0 50 F0 A3 D0 000F4 RET ; 04 000F8 10$: CLRL -4(R3) ;NUM_RETRIES 2758 FC A3 D4 000F9 ADDL3 #1, (R3), R0 ;#1, MSG_NUMBER, R0 2759 63 01 C1 000FC ; 50 000FF EXTZV #0, #6, R0, (R3) ;#0, #6, R0, MSG_NUMBER 06 00 EF 00100 ; 63 50 00103 PUSHL #1 ;#1 2761 01 DD 00105 CALLS #1, (R5) ;#1, BFR_FILL 65 01 FB 00107 BLBC R0, 11$ ;R0, 11$ 04 50 E9 0010A MOVL #3, R0 ;#3, R0 50 03 D0 0010D RET ; 04 00110 11$: MOVL #10, R0 ;#10, R0 50 0A D0 00111 RET ; 04 00114 ; Routine Size: 277 bytes, Routine Base: $CODE$ + 08AB ; 2764 1 %SBTTL 'SEND_EOF' ; 2765 1 ROUTINE SEND_EOF = ; 2766 1 ; 2767 1 !++ ; 2768 1 ! FUNCTIONAL DESCRIPTION: ; 2769 1 ! ; 2770 1 ! This routine will send the end of file message to the remote ; 2771 1 ! KERMIT. It will then determine if there are more files to ; 2772 1 ! send to the remote. ; 2773 1 ! ; 2774 1 ! CALLING SEQUENCE: ; 2775 1 ! ; 2776 1 ! STATE = SEND_EOF(); ; 2777 1 ! ; 2778 1 ! INPUT PARAMETERS: ; 2779 1 ! ; 2780 1 ! None. ; 2781 1 ! ; 2782 1 ! IMPLICIT INPUTS: ; 2783 1 ! ; 2784 1 ! None. ; 2785 1 ! ; 2786 1 ! OUTPUT PARAMETERS: ; 2787 1 ! ; 2788 1 ! New state to change the finite state machine to. ; 2789 1 ! ; 2790 1 ! IMPLICIT OUTPUTS: ; 2791 1 ! ; 2792 1 ! None. ; 2793 1 ! ; 2794 1 ! COMPLETION CODES: ; 2795 1 ! ; 2796 1 ! None. ; 2797 1 ! ; 2798 1 ! SIDE EFFECTS: ; 2799 1 ! ; 2800 1 ! Sets up for the next file to be processed if there is one. ; 2801 1 ! ; 2802 1 !-- ; 2803 1 ; 2804 2 BEGIN ; 2805 2 ; 2806 2 LOCAL ; 2807 2 STATUS, ! Status returned by various routines ; 2808 2 EOF_MSG_LEN; ! Length of EOF message to send ; 2809 2 ; 2810 2 ! ; 2811 2 ! First determine if we have exceed the number of retries that are ; 2812 2 ! allowed to attempt to send this message. ; 2813 2 ! ; 2814 2 ; 2815 2 IF .NUM_RETRIES GTR .PKT_RETRIES THEN RETURN STATE_ER; ; 2816 2 ; 2817 2 ! ; 2818 2 ! The number of retries are not exceeded. Increment the number and then ; 2819 2 ! attempt to send the packet again. ; 2820 2 ! ; 2821 2 NUM_RETRIES = .NUM_RETRIES + 1; ; 2822 2 ! ; 2823 2 ! Store character in packet to indicate discard of file ; 2824 2 ! Character will only be sent if file should be discarded ; 2825 2 ! ; 2826 2 CH$WCHAR (MSG_EOF_DISCARD, CH$PTR (SND_MSG, PKT_MSG, CHR_SIZE)); ; 2827 2 ; 2828 2 IF .ABT_CUR_FILE OR .ABT_ALL_FILE THEN EOF_MSG_LEN = 1 ELSE EOF_MSG_LEN = 0; ; 2829 2 ; 2830 2 IF NOT SEND_PACKET (MSG_EOF, .EOF_MSG_LEN, .MSG_NUMBER) THEN RETURN STATE_EX; ; 2831 2 ; 2832 2 ! ; 2833 2 ! Now get the responce from the remote KERMIT. ; 2834 2 ! ; 2835 2 STATUS = REC_PACKET (); ; 2836 2 ; 2837 2 IF NOT .STATUS ; 2838 2 THEN ; 2839 3 BEGIN ; 2840 3 ; 2841 4 IF (.STATUS EQL KER_ZEROLENMSG) OR (.STATUS EQL KER_TIMEOUT) OR (.STATUS EQL KER_CHKSUMERR) ; 2842 3 THEN ; 2843 3 RETURN .STATE ; 2844 3 ELSE ; 2845 3 RETURN STATE_EX; ; 2846 3 ; 2847 2 END; ; 2848 2 ; 2849 2 ! ; 2850 2 ! Determine if the packet is good. ; 2851 2 ! ; 2852 2 ; 2853 3 IF NOT (.REC_TYPE EQL MSG_ACK OR .REC_TYPE EQL MSG_NAK) ; 2854 2 THEN ; 2855 3 BEGIN ; 2856 3 KRM_ERROR (KER_PROTOERR); ; 2857 3 RETURN STATE_A; ; 2858 2 END; ; 2859 2 ; 2860 2 ! ; 2861 2 ! If this is a NAK and the message number is not the one we just send ; 2862 2 ! treat this like an ACK, otherwise resend the last packet. ; 2863 2 ! ; 2864 2 ; 2865 2 IF .REC_TYPE EQL MSG_NAK AND (.REC_SEQ NEQ ((.MSG_NUMBER + 1) AND %O'77')) THEN RETURN .STATE; ; 2866 2 ; 2867 2 IF .REC_TYPE EQL MSG_ACK AND .REC_SEQ NEQ .MSG_NUMBER THEN RETURN .STATE; ; 2868 2 ; 2869 2 ! ; 2870 2 ! Here to determine if there is another file to send. ; 2871 2 ! ; 2872 2 NUM_RETRIES = 0; ; 2873 2 MSG_NUMBER = (.MSG_NUMBER + 1) AND %O'77'; ; 2874 2 ; 2875 2 IF NOT .ABT_ALL_FILE THEN STATUS = NEXT_FILE () ELSE STATUS = KER_NOMORFILES; ; 2876 2 ; 2877 3 IF ( NOT .STATUS) OR (.STATUS EQL KER_NOMORFILES) ; 2878 2 THEN ; 2879 3 BEGIN ; 2880 3 ; 2881 3 IF (.STATUS NEQ KER_NOMORFILES) THEN RETURN STATE_A ELSE RETURN STATE_SB; ; 2882 3 ; 2883 3 END ; 2884 2 ELSE ; 2885 3 BEGIN ; 2886 3 FLAG_FILE_OPEN = TRUE; ! Have a file open again ; 2887 3 ; 2888 3 IF .FIL_NORMAL_FORM THEN NORMALIZE_FILE (FILE_NAME, FILE_SIZE, -1, -1); ; 2889 3 ; 2890 3 XFR_STATUS (%C'F', %C'S'); ! Inform display routine ; 2891 3 ; 2892 3 IF ( NOT .CONNECT_FLAG) AND .TY_FIL ; 2893 3 THEN ; 2894 4 BEGIN ; 2895 4 !![045] TT_TEXT (UPLIT (%ASCIZ'Sending: ')); ; 2896 4 TT_TEXT (FILE_NAME); ; 2897 4 TT_OUTPUT (); ; 2898 3 END; ; 2899 3 ; 2900 3 FILE_CHARS = 0; ! No characters sent yet ; 2901 3 RETURN STATE_SF; ; 2902 2 END; ; 2903 2 ; 2904 1 END; ! End of SEND_EOF ;SEND_EOF U.7: .WORD ^M<R2,R3,R4,R5> ;Save R2,R3,R4,R5 2765 003C 00000 MOVAB G^FILE_NAME, R5 ;FILE_NAME, R5 55 00000000G 00 9E 00002 MOVAB G^ABT_ALL_FILE, R4 ;ABT_ALL_FILE, R4 54 00000000G 00 9E 00009 MOVAB G^U.55, R3 ;U.55, R3 53 00000000' 00 9E 00010 CMPL -4(R3), G^PKT_RETRIES ;NUM_RETRIES, PKT_RETRIES 2815 00000000G 00 FC A3 D1 00017 BLEQ 1$ ;1$ 04 15 0001F MOVL #20, R0 ;#20, R0 50 14 D0 00021 RET ; 04 00024 1$: INCL -4(R3) ;NUM_RETRIES 2821 FC A3 D6 00025 MOVB #68, 1024(R3) ;#68, SND_MSG+4 2826 0400 C3 44 8F 90 00028 BLBS G^ABT_CUR_FILE, 2$ ;ABT_CUR_FILE, 2$ 2828 03 00000000G 00 E8 0002E BLBC (R4), 3$ ;ABT_ALL_FILE, 3$ 05 64 E9 00035 2$: MOVL #1, R0 ;#1, EOF_MSG_LEN 50 01 D0 00038 BRB 4$ ;4$ 02 11 0003B 3$: CLRL R0 ;EOF_MSG_LEN 50 D4 0003D 4$: PUSHL (R3) ;MSG_NUMBER 2830 63 DD 0003F PUSHL R0 ;EOF_MSG_LEN 50 DD 00041 MOVZBL #90, -(SP) ;#90, -(SP) 7E 5A 8F 9A 00043 CALLS #3, G^U.24 ;#3, U.24 00000000V 00 03 FB 00047 BLBC R0, 5$ ;R0, 5$ 28 50 E9 0004E CALLS #0, G^U.26 ;#0, U.26 2835 00000000V 00 00 FB 00051 MOVL R0, R2 ;R0, STATUS 52 50 D0 00058 BLBS R2, 6$ ;STATUS, 6$ 2837 1F 52 E8 0005B CMPL R2, #134316234 ;STATUS, #134316234 2841 080180CA 8F 52 D1 0005E BEQL 9$ ;9$ 63 13 00065 CMPL R2, #134316248 ;STATUS, #134316248 080180D8 8F 52 D1 00067 BEQL 9$ ;9$ 5A 13 0006E CMPL R2, #134316178 ;STATUS, #134316178 08018092 8F 52 D1 00070 BEQL 9$ ;9$ 51 13 00077 5$: MOVL #19, R0 ;#19, R0 2845 50 13 D0 00079 RET ; 04 0007C 6$: MOVL 12(R3), R0 ;REC_TYPE, R0 2853 50 0C A3 D0 0007D CMPL R0, #89 ;R0, #89 00000059 8F 50 D1 00081 BEQL 7$ ;7$ 18 13 00088 CMPL R0, #78 ;R0, #78 0000004E 8F 50 D1 0008A BEQL 7$ ;7$ 0F 13 00091 PUSHL #134316226 ;#134316226 2856 080180C2 8F DD 00093 CALLS #1, G^KRM_ERROR ;#1, KRM_ERROR 00000000G 00 01 FB 00099 BRB 14$ ;14$ 2857 64 11 000A0 7$: MOVL 12(R3), R1 ;REC_TYPE, R1 2865 51 0C A3 D0 000A2 CMPL R1, #78 ;R1, #78 0000004E 8F 51 D1 000A6 BNEQ 8$ ;8$ 0C 12 000AD ADDL3 #1, (R3), R0 ;#1, MSG_NUMBER, R0 63 01 C1 000AF ; 50 000B2 CMPZV #0, #6, R0, 4(R3) ;#0, #6, R0, REC_SEQ 06 00 ED 000B3 ; 04 A3 50 000B6 BNEQ 9$ ;9$ 0F 12 000B9 8$: CMPL R1, #89 ;R1, #89 2867 00000059 8F 51 D1 000BB BNEQ 10$ ;10$ 0B 12 000C2 CMPL 4(R3), (R3) ;REC_SEQ, MSG_NUMBER 63 04 A3 D1 000C4 BEQL 10$ ;10$ 05 13 000C8 9$: MOVL -16(R3), R0 ;STATE, R0 50 F0 A3 D0 000CA RET ; 04 000CE 10$: CLRL -4(R3) ;NUM_RETRIES 2872 FC A3 D4 000CF ADDL3 #1, (R3), R0 ;#1, MSG_NUMBER, R0 2873 63 01 C1 000D2 ; 50 000D5 EXTZV #0, #6, R0, (R3) ;#0, #6, R0, MSG_NUMBER 06 00 EF 000D6 ; 63 50 000D9 BLBS (R4), 11$ ;ABT_ALL_FILE, 11$ 2875 0C 64 E8 000DB CALLS #0, G^NEXT_FILE ;#0, NEXT_FILE 00000000G 00 00 FB 000DE MOVL R0, R2 ;R0, STATUS 52 50 D0 000E5 BRB 12$ ;12$ 07 11 000E8 11$: MOVL #134316147, R2 ;#134316147, STATUS 52 08018073 8F D0 000EA 12$: BLBC R2, 13$ ;STATUS, 13$ 2877 09 52 E9 000F1 CMPL R2, #134316147 ;STATUS, #134316147 08018073 8F 52 D1 000F4 BNEQ 16$ ;16$ 11 12 000FB 13$: CMPL R2, #134316147 ;STATUS, #134316147 2881 08018073 8F 52 D1 000FD BEQL 15$ ;15$ 04 13 00104 14$: MOVL #10, R0 ;#10, R0 50 0A D0 00106 RET ; 04 00109 15$: MOVL #5, R0 ;#5, R0 50 05 D0 0010A RET ; 04 0010D 16$: MOVL #1, G^FLAG_FILE_OPEN ;#1, FLAG_FILE_OPEN 2886 00000000' 00 01 D0 0010E BLBC G^FIL_NORMAL_FORM, 17$ ;FIL_NORMAL_FORM, 17$ 2888 15 00000000G 00 E9 00115 MNEGL #1, -(SP) ;#1, -(SP) 7E 01 CE 0011C MNEGL #1, -(SP) ;#1, -(SP) 7E 01 CE 0011F PUSHAB G^FILE_SIZE ;FILE_SIZE 00000000G 00 9F 00122 PUSHL R5 ;R5 55 DD 00128 CALLS #4, G^U.27 ;#4, U.27 00000000V 00 04 FB 0012A 17$: MOVZBL #83, -(SP) ;#83, -(SP) 2890 7E 53 8F 9A 00131 MOVZBL #70, -(SP) ;#70, -(SP) 7E 46 8F 9A 00135 CALLS #2, G^XFR_STATUS ;#2, XFR_STATUS 00000000G 00 02 FB 00139 BLBS G^CONNECT_FLAG, 18$ ;CONNECT_FLAG, 18$ 2892 17 00000000G 00 E8 00140 BLBC G^TY_FIL, 18$ ;TY_FIL, 18$ 10 00000000G 00 E9 00147 PUSHL R5 ;R5 2896 55 DD 0014E CALLS #1, G^TT_TEXT ;#1, TT_TEXT 00000000G 00 01 FB 00150 CALLS #0, G^TT_OUTPUT ;#0, TT_OUTPUT 2897 00000000G 00 00 FB 00157 18$: CLRL 2024(R3) ;FILE_CHARS 2900 07E8 C3 D4 0015E MOVL #2, R0 ;#2, R0 2901 50 02 D0 00162 RET ; 04 00165 ; Routine Size: 358 bytes, Routine Base: $CODE$ + 09C0 ; 2905 1 %SBTTL 'SEND_INIT' ; 2906 1 ROUTINE SEND_INIT = ; 2907 1 ; 2908 1 !++ ; 2909 1 ! FUNCTIONAL DESCRIPTION: ; 2910 1 ! ; 2911 1 ! This routine will send the initialization packet to the remote ; 2912 1 ! KERMIT. The message type sent is S. ; 2913 1 ! ; 2914 1 ! CALLING SEQUENCE: ; 2915 1 ! ; 2916 1 ! STATE = SEND_INIT(); ; 2917 1 ! ; 2918 1 ! INPUT PARAMETERS: ; 2919 1 ! ; 2920 1 ! None. ; 2921 1 ! ; 2922 1 ! IMPLICIT INPUTS: ; 2923 1 ! ; 2924 1 ! None. ; 2925 1 ! ; 2926 1 ! OUTPUT PARAMETERS: ; 2927 1 ! ; 2928 1 ! New state to change the finite state machine to. ; 2929 1 ! ; 2930 1 ! IMPLICIT OUTPUTS: ; 2931 1 ! ; 2932 1 ! None. ; 2933 1 ! ; 2934 1 ! COMPLETION CODES: ; 2935 1 ! ; 2936 1 ! None. ; 2937 1 ! ; 2938 1 ! SIDE EFFECTS: ; 2939 1 ! ; 2940 1 ! None. ; 2941 1 ! ; 2942 1 !-- ; 2943 1 ; 2944 2 BEGIN ; 2945 2 ; 2946 2 LOCAL ; 2947 2 STATUS; ! Status returned by various routines ; 2948 2 ; 2949 2 SET_SEND_INIT (); ; 2950 2 ; 2951 2 IF .NUM_RETRIES GTR .SI_RETRIES THEN RETURN STATE_ER; ; 2952 2 ; 2953 2 ! ; 2954 2 ! Count the number of times we try this ; 2955 2 ! ; 2956 2 NUM_RETRIES = .NUM_RETRIES + 1; ; 2957 2 ; 2958 2 IF NOT SEND_PACKET (MSG_SND_INIT, .SEND_INIT_SIZE, .MSG_NUMBER) THEN RETURN STATE_EX; ! [108] ; 2959 2 ; 2960 2 ! ; 2961 2 ! Determine if we received a packet it good condition. If we timed out or ; 2962 2 ! got an illegal message, just try again. ; 2963 2 ! ; 2964 2 STATUS = REC_PACKET (); ; 2965 2 ; 2966 2 IF NOT .STATUS ; 2967 2 THEN ; 2968 3 BEGIN ; 2969 3 ; 2970 4 IF (.STATUS EQL KER_ZEROLENMSG) OR (.STATUS EQL KER_TIMEOUT) OR (.STATUS EQL KER_CHKSUMERR) ; 2971 3 THEN ; 2972 3 RETURN .STATE ; 2973 3 ELSE ; 2974 3 RETURN STATE_EX; ; 2975 3 ; 2976 2 END; ; 2977 2 ; 2978 2 ! ; 2979 2 ! Determine if the packet is good. ; 2980 2 ! ; 2981 2 ; 2982 2 IF .REC_TYPE NEQ MSG_ACK THEN RETURN .STATE; ; 2983 2 ; 2984 2 IF .REC_SEQ NEQ .MSG_NUMBER THEN RETURN .STATE; ; 2985 2 ; 2986 2 ! ; 2987 2 ! Here if we have an ACK for the initialization message that was just sent ; 2988 2 ! to the remote KERMIT. ; 2989 2 ! ; 2990 2 ; 2991 2 IF NOT (STATUS = PRS_SEND_INIT ()) THEN RETURN STATE_A; ; 2992 2 ; 2993 2 BLK_CHK_TYPE = .INI_CHK_TYPE; ! We now use agreed upon block check type ; 2994 2 NUM_RETRIES = 0; ; 2995 2 MSG_NUMBER = (.MSG_NUMBER + 1) AND %O'77'; ; 2996 2 RETURN STATE_OF; ! Now need to open the file ; 2997 1 END; ;SEND_INIT U.8: .WORD ^M<R2> ;Save R2 2906 0004 00000 MOVAB G^U.55, R2 ;U.55, R2 52 00000000' 00 9E 00002 CALLS #0, G^U.20 ;#0, U.20 2949 00000000V 00 00 FB 00009 CMPL -4(R2), G^SI_RETRIES ;NUM_RETRIES, SI_RETRIES 2951 00000000G 00 FC A2 D1 00010 BLEQ 1$ ;1$ 04 15 00018 MOVL #20, R0 ;#20, R0 50 14 D0 0001A RET ; 04 0001D 1$: INCL -4(R2) ;NUM_RETRIES 2956 FC A2 D6 0001E PUSHL (R2) ;MSG_NUMBER 2958 62 DD 00021 PUSHL -36(R2) ;SEND_INIT_SIZE DC A2 DD 00023 MOVZBL #83, -(SP) ;#83, -(SP) 7E 53 8F 9A 00026 CALLS #3, G^U.24 ;#3, U.24 00000000V 00 03 FB 0002A BLBS R0, 2$ ;R0, 2$ 04 50 E8 00031 MOVL #19, R0 ;#19, R0 50 13 D0 00034 RET ; 04 00037 2$: CALLS #0, G^U.26 ;#0, U.26 2964 00000000V 00 00 FB 00038 BLBS R0, 6$ ;STATUS, 6$ 2966 28 50 E8 0003F CMPL R0, #134316234 ;STATUS, #134316234 2970 080180CA 8F 50 D1 00042 BEQL 3$ ;3$ 12 13 00049 CMPL R0, #134316248 ;STATUS, #134316248 080180D8 8F 50 D1 0004B BEQL 3$ ;3$ 09 13 00052 CMPL R0, #134316178 ;STATUS, #134316178 08018092 8F 50 D1 00054 BNEQ 4$ ;4$ 06 12 0005B 3$: MOVL -16(R2), R1 ;STATE, R1 2972 51 F0 A2 D0 0005D BRB 5$ ;5$ 03 11 00061 4$: MOVL #19, R1 ;#19, R1 2974 51 13 D0 00063 5$: MOVL R1, R0 ;R1, R0 50 51 D0 00066 RET ; 04 00069 6$: CMPL 12(R2), #89 ;REC_TYPE, #89 2982 00000059 8F 0C A2 D1 0006A BNEQ 7$ ;7$ 06 12 00072 CMPL 4(R2), (R2) ;REC_SEQ, MSG_NUMBER 2984 62 04 A2 D1 00074 BEQL 8$ ;8$ 05 13 00078 7$: MOVL -16(R2), R0 ;STATE, R0 50 F0 A2 D0 0007A RET ; 04 0007E 8$: CALLS #0, G^U.21 ;#0, U.21 2991 00000000V 00 00 FB 0007F BLBS R0, 9$ ;STATUS, 9$ 04 50 E8 00086 MOVL #10, R0 ;#10, R0 50 0A D0 00089 RET ; 04 0008C 9$: MOVL -32(R2), -28(R2) ;INI_CHK_TYPE, BLK_CHK_TYPE 2993 E4 A2 E0 A2 D0 0008D CLRL -4(R2) ;NUM_RETRIES 2994 FC A2 D4 00092 ADDL3 #1, (R2), R0 ;#1, MSG_NUMBER, R0 2995 62 01 C1 00095 ; 50 00098 EXTZV #0, #6, R0, (R2) ;#0, #6, R0, MSG_NUMBER 06 00 EF 00099 ; 62 50 0009C MOVL #18, R0 ;#18, R0 2996 50 12 D0 0009E RET ; 04 000A1 ; Routine Size: 162 bytes, Routine Base: $CODE$ + 0B26 ; 2998 1 %SBTTL 'SEND_OPEN_FILE - Open file for sending' ; 2999 1 ROUTINE SEND_OPEN_FILE = ; 3000 1 ; 3001 1 !++ ; 3002 1 ! FUNCTIONAL DESCRIPTION: ; 3003 1 ! ; 3004 1 ! This routine is called from DO_TRANSACTION when the first input file ; 3005 1 ! needs to be opened. ; 3006 1 ! ; 3007 1 ! CALLING SEQUENCE: ; 3008 1 ! ; 3009 1 ! STATE = SEND_OPEN_FILE (); ; 3010 1 ! ; 3011 1 ! INPUT PARAMETERS: ; 3012 1 ! ; 3013 1 ! None. ; 3014 1 ! ; 3015 1 ! IMPLICIT INPUTS: ; 3016 1 ! ; 3017 1 ! FILE_NAME, FILE_SIZE, etc. ; 3018 1 ! ; 3019 1 ! OUPTUT PARAMETERS: ; 3020 1 ! ; 3021 1 ! New state for FSM. ; 3022 1 ! ; 3023 1 ! IMPLICIT OUTPUTS: ; 3024 1 ! ; 3025 1 ! None. ; 3026 1 ! ; 3027 1 ! COMPLETION CODES: ; 3028 1 ! ; 3029 1 ! None. ; 3030 1 ! ; 3031 1 ! SIDE EFFECTS: ; 3032 1 ! ; 3033 1 ! None. ; 3034 1 ! ; 3035 1 !-- ; 3036 1 ; 3037 2 BEGIN ; 3038 2 ; 3039 2 IF ( NOT .CONNECT_FLAG) AND .TY_FIL ; 3040 2 THEN ; 3041 3 BEGIN ; 3042 3 TT_TEXT (UPLIT (%ASCIZ'Sending: ')); ; 3043 3 TT_OUTPUT (); ; 3044 2 END; ; 3045 2 ; 3046 2 FILE_CHARS = 0; ! No characters sent yet ; 3047 2 ; 3048 2 IF NOT .NO_FILE_NEEDED ; 3049 2 THEN ; 3050 2 ; 3051 2 IF NOT FILE_OPEN (FNC_READ) THEN RETURN STATE_A ELSE FLAG_FILE_OPEN = TRUE; ; 3052 2 ; 3053 2 ![023] ; 3054 2 ![023] If we want normalized file names, beat up the name now ; 3055 2 ![023] ; 3056 2 ; 3057 2 IF .FIL_NORMAL_FORM THEN NORMALIZE_FILE (FILE_NAME, FILE_SIZE, -1, -1); ; 3058 2 ; 3059 2 XFR_STATUS (%C'F', %C'S'); ! Inform display routine ; 3060 2 ; 3061 2 IF ( NOT .CONNECT_FLAG) AND .TY_FIL ; 3062 2 THEN ; 3063 3 BEGIN ; 3064 3 TT_TEXT (FILE_NAME); ; 3065 3 TT_OUTPUT (); ; 3066 2 END; ; 3067 2 ; 3068 2 RETURN STATE_SF; ; 3069 1 END; ! End of FSM_OPEN_FILE .PSECT $PLIT$,NOWRT,NOEXE,2 P.AAE: .ASCII \Sending: \<0><0><0> ; 3A 67 6E 69 64 6E 65 53 0003C ; 00 00 00 20 00044 .PSECT $CODE$,NOWRT,2 ;SEND_OPEN_FILE U.5: .WORD ^M<R2,R3,R4,R5,R6> ;Save R2,R3,R4,R5,R6 2999 007C 00000 MOVAB G^CONNECT_FLAG, R6 ;CONNECT_FLAG, R6 56 00000000G 00 9E 00002 MOVAB G^FILE_NAME, R5 ;FILE_NAME, R5 55 00000000G 00 9E 00009 MOVAB G^TT_OUTPUT, R4 ;TT_OUTPUT, R4 54 00000000G 00 9E 00010 MOVAB G^TT_TEXT, R3 ;TT_TEXT, R3 53 00000000G 00 9E 00017 MOVAB G^TY_FIL, R2 ;TY_FIL, R2 52 00000000G 00 9E 0001E BLBS (R6), 1$ ;CONNECT_FLAG, 1$ 3039 0F 66 E8 00025 BLBC (R2), 1$ ;TY_FIL, 1$ 0C 62 E9 00028 PUSHAB G^P.AAE ;P.AAE 3042 00000000' 00 9F 0002B CALLS #1, (R3) ;#1, TT_TEXT 63 01 FB 00031 CALLS #0, (R4) ;#0, TT_OUTPUT 3043 64 00 FB 00034 1$: CLRL G^U.61 ;U.61 3046 00000000' 00 D4 00037 BLBS G^U.63, 3$ ;U.63, 3$ 3048 17 00000000' 00 E8 0003D CLRL -(SP) ;-(SP) 3051 7E D4 00044 CALLS #1, G^FILE_OPEN ;#1, FILE_OPEN 00000000G 00 01 FB 00046 BLBS R0, 2$ ;R0, 2$ 04 50 E8 0004D MOVL #10, R0 ;#10, R0 50 0A D0 00050 RET ; 04 00053 2$: MOVL #1, G^FLAG_FILE_OPEN ;#1, FLAG_FILE_OPEN 00000000' 00 01 D0 00054 3$: BLBC G^FIL_NORMAL_FORM, 4$ ;FIL_NORMAL_FORM, 4$ 3057 15 00000000G 00 E9 0005B MNEGL #1, -(SP) ;#1, -(SP) 7E 01 CE 00062 MNEGL #1, -(SP) ;#1, -(SP) 7E 01 CE 00065 PUSHAB G^FILE_SIZE ;FILE_SIZE 00000000G 00 9F 00068 PUSHL R5 ;R5 55 DD 0006E CALLS #4, G^U.27 ;#4, U.27 00000000V 00 04 FB 00070 4$: MOVZBL #83, -(SP) ;#83, -(SP) 3059 7E 53 8F 9A 00077 MOVZBL #70, -(SP) ;#70, -(SP) 7E 46 8F 9A 0007B CALLS #2, G^XFR_STATUS ;#2, XFR_STATUS 00000000G 00 02 FB 0007F BLBS (R6), 5$ ;CONNECT_FLAG, 5$ 3061 0B 66 E8 00086 BLBC (R2), 5$ ;TY_FIL, 5$ 08 62 E9 00089 PUSHL R5 ;R5 3064 55 DD 0008C CALLS #1, (R3) ;#1, TT_TEXT 63 01 FB 0008E CALLS #0, (R4) ;#0, TT_OUTPUT 3065 64 00 FB 00091 5$: MOVL #2, R0 ;#2, R0 3068 50 02 D0 00094 RET ; 04 00097 ; Routine Size: 152 bytes, Routine Base: $CODE$ + 0BC8 ; 3070 1 %SBTTL 'SEND_GENCMD' ; 3071 1 ROUTINE SEND_GENCMD = ; 3072 1 ; 3073 1 !++ ; 3074 1 ! FUNCTIONAL DESCRIPTION: ; 3075 1 ! ; 3076 1 ! This routine will send a command packet to the server Kermit. ; 3077 1 ! The new state will depend upon the response. If a send-init ; 3078 1 ! is received, it will process it and switch to STATE_RF. ; 3079 1 ! If a text-header is received it will switch to STATE_RD. ; 3080 1 ! If an ACK is received, it will type the data portion and ; 3081 1 ! switch to STATE_C. ; 3082 1 ! ; 3083 1 ! CALLING SEQUENCE: ; 3084 1 ! ; 3085 1 ! STATE = SEND_GENCMD(); ; 3086 1 ! ; 3087 1 ! INPUT PARAMETERS: ; 3088 1 ! ; 3089 1 ! None. ; 3090 1 ! ; 3091 1 ! IMPLICIT INPUTS: ; 3092 1 ! ; 3093 1 ! GEN_TYPE - Message type to send (normally MSG_GENERIC) ; 3094 1 ! GEN_SUBTYPE - Message subtype (only if MSG_GENERIC) ; 3095 1 ! GEN_1DATA - First argument string ; 3096 1 ! GEN_1SIZE - Size of first argument ; 3097 1 ! GEN_2DATA - Second argument string ; 3098 1 ! GEN_2SIZE - Size of second argument ; 3099 1 ! GEN_3DATA - Third argument string ; 3100 1 ! GEN_3SIZE - Size of third argument ; 3101 1 ! ; 3102 1 ! OUTPUT PARAMETERS: ; 3103 1 ! ; 3104 1 ! New state for the finite state machine. ; 3105 1 ! ; 3106 1 ! IMPLICIT OUTPUTS: ; 3107 1 ! ; 3108 1 ! None. ; 3109 1 ! ; 3110 1 ! COMPLETION CODES: ; 3111 1 ! ; 3112 1 ! None. ; 3113 1 ! ; 3114 1 ! SIDE EFFECTS: ; 3115 1 ! ; 3116 1 ! None. ; 3117 1 ! ; 3118 1 !-- ; 3119 1 ; 3120 2 BEGIN ; 3121 2 ; 3122 2 LOCAL ; 3123 2 POINTER, ! Pointer at DATA_TEXT ; 3124 2 DATA_TEXT : VECTOR [CH$ALLOCATION (MAX_MSG)], ! Data buffer ; 3125 2 DATA_SIZE, ! Length of data buffer used ; 3126 2 STATUS; ! Status returned by various routines ; 3127 2 ; 3128 2 ROUTINE PACK_DATA (POINTER, LENGTH, SRC_ADDR, SRC_LEN) = ; 3129 2 ! ; 3130 2 ! Routine to pack an argument into the buffer. ; 3131 2 ! ; 3132 3 BEGIN ; 3133 3 ; 3134 3 IF .SRC_LEN GTR MAX_MSG - .LENGTH - 1 THEN SRC_LEN = MAX_MSG - .LENGTH - 1; ; 3135 3 ; 3136 3 LENGTH = .LENGTH + .SRC_LEN + 1; ; 3137 3 CH$WCHAR_A (CHAR (.SRC_LEN), .POINTER); ; 3138 3 .POINTER = CH$MOVE (.SRC_LEN, CH$PTR (.SRC_ADDR), ..POINTER); ; 3139 3 RETURN .LENGTH; ; 3140 2 END; ;PACK_DATA U.77: .WORD ^M<R2,R3,R4,R5> ;Save R2,R3,R4,R5 3128 003C 00000 SUBL3 #1001, 8(AP), R1 ;#1001, LENGTH, R1 3134 08 AC 000003E9 8F C3 00002 ; 51 0000A MNEGL R1, R0 ;R1, R0 50 51 CE 0000B CMPL 16(AP), R0 ;SRC_LEN, R0 50 10 AC D1 0000E BLEQ 1$ ;1$ 04 15 00012 MNEGL R1, 16(AP) ;R1, SRC_LEN 10 AC 51 CE 00014 1$: ADDL3 16(AP), 8(AP), R0 ;SRC_LEN, LENGTH, R0 3136 08 AC 10 AC C1 00018 ; 50 0001D MOVAB 1(R0), 8(AP) ;1(R0), LENGTH 08 AC 01 A0 9E 0001E MOVL 4(AP), R0 ;POINTER, R0 3137 50 04 AC D0 00023 ADDB3 #32, 16(AP), @0(R0) ;#32, SRC_LEN, @0(R0) 10 AC 20 81 00027 ; 00 B0 0002B INCL (R0) ;(R0) 60 D6 0002D MOVL @4(AP), R0 ;@POINTER, R0 3138 50 04 BC D0 0002F MOVC3 16(AP), @12(AP), (R0) ;SRC_LEN, @SRC_ADDR, (R0) 0C BC 10 AC 28 00033 ; 60 00038 MOVL R3, @4(AP) ;R3, @POINTER 04 BC 53 D0 00039 MOVL 8(AP), R0 ;LENGTH, R0 3139 50 08 AC D0 0003D RET ; 04 00041 ; Routine Size: 66 bytes, Routine Base: $CODE$ + 0C60 ; 3141 2 ! ; 3142 2 ! First determine if we have exceed the number of retries that are ; 3143 2 ! allowed to attempt to send this message. ; 3144 2 ! ; 3145 2 ; 3146 2 IF .NUM_RETRIES GTR .PKT_RETRIES THEN RETURN STATE_ER; ; 3147 2 ; 3148 2 ! ; 3149 2 ! The number of retries are not exceeded. Increment the number and then ; 3150 2 ! attempt to send the packet again. ; 3151 2 ! ; 3152 2 NUM_RETRIES = .NUM_RETRIES + 1; ; 3153 2 ! ; 3154 2 ! Build the packet data field ; 3155 2 ! ; 3156 2 POINTER = CH$PTR (DATA_TEXT); ; 3157 2 DATA_SIZE = 0; ; 3158 2 ; 3159 2 IF .GEN_TYPE EQL MSG_GENERIC ; 3160 2 THEN ; 3161 3 BEGIN ; 3162 3 CH$WCHAR_A (.GEN_SUBTYPE, POINTER); ; 3163 3 DATA_SIZE = 1; ; 3164 3 ; 3165 3 IF .GEN_1SIZE GTR 0 OR .GEN_2SIZE GTR 0 OR .GEN_3SIZE GTR 0 ; 3166 3 THEN ; 3167 4 BEGIN ; 3168 4 DATA_SIZE = PACK_DATA (POINTER, .DATA_SIZE, GEN_1DATA, .GEN_1SIZE); ; 3169 4 ; 3170 4 IF .GEN_2SIZE GTR 0 OR .GEN_3SIZE GTR 0 ; 3171 4 THEN ; 3172 5 BEGIN ; 3173 5 DATA_SIZE = PACK_DATA (POINTER, .DATA_SIZE, GEN_2DATA, .GEN_2SIZE); ; 3174 5 ; 3175 5 IF .GEN_3SIZE GTR 0 ; 3176 5 THEN ; 3177 6 BEGIN ; 3178 6 DATA_SIZE = PACK_DATA (POINTER, .DATA_SIZE, GEN_3DATA, .GEN_3SIZE); ; 3179 5 END; ; 3180 5 ; 3181 4 END; ; 3182 4 ; 3183 3 END; ; 3184 3 ; 3185 3 END ; 3186 2 ELSE ; 3187 3 BEGIN ; 3188 3 ; 3189 3 IF .GEN_1SIZE GTR MAX_MSG THEN GEN_1SIZE = MAX_MSG; ; 3190 3 ; 3191 3 DATA_SIZE = .GEN_1SIZE; ; 3192 3 CH$MOVE (.GEN_1SIZE, CH$PTR (GEN_1DATA), .POINTER); ; 3193 2 END; ; 3194 2 ; 3195 2 SET_STRING (CH$PTR (DATA_TEXT), .DATA_SIZE, TRUE); ; 3196 2 BFR_FILL (TRUE); ; 3197 2 SET_STRING (0, 0, FALSE); ; 3198 2 ! ; 3199 2 ! Send the packet ; 3200 2 ! ; 3201 2 ; 3202 2 IF NOT SEND_PACKET (.GEN_TYPE, .SIZE, .MSG_NUMBER) THEN RETURN STATE_EX; ; 3203 2 ; 3204 2 ! ; 3205 2 ! Now get the responce from the remote KERMIT. ; 3206 2 ! ; 3207 2 STATUS = REC_PACKET (); ; 3208 2 ; 3209 2 IF NOT .STATUS ; 3210 2 THEN ; 3211 3 BEGIN ; 3212 3 ; 3213 4 IF (.STATUS EQL KER_ZEROLENMSG) OR (.STATUS EQL KER_TIMEOUT) OR (.STATUS EQL KER_CHKSUMERR) ; 3214 3 THEN ; 3215 3 RETURN .STATE ; 3216 3 ELSE ; 3217 3 RETURN STATE_EX; ; 3218 3 ; 3219 2 END; ; 3220 2 ; 3221 2 ! Did we get a send-init? ; 3222 2 ; 3223 2 SELECTONE .REC_TYPE OF ; 3224 2 SET ; 3225 2 ; 3226 2 [MSG_SND_INIT] : ; 3227 3 BEGIN ; 3228 3 MSG_NUMBER = .REC_SEQ; ! Initialize sequence numbers ; 3229 3 ! Determine if the parameters are ok. If not, give up ; 3230 3 ; 3231 3 IF NOT (STATUS = PRS_SEND_INIT ()) THEN RETURN .STATUS; ; 3232 3 ; 3233 3 SET_SEND_INIT (); ! Set up our acknowledgement to the send-init ; 3234 3 SEND_PACKET (MSG_ACK, .send_init_size, .MSG_NUMBER); ! Send it ; 3235 3 BLK_CHK_TYPE = .INI_CHK_TYPE; ! Can now use agreed upon type ; 3236 3 OLD_RETRIES = .NUM_RETRIES; ; 3237 3 NUM_RETRIES = 0; ; 3238 3 MSG_NUMBER = (.MSG_NUMBER + 1) AND %O'77'; ; 3239 3 RETURN STATE_RF; ! Now expect file header ; 3240 2 END; ; 3241 2 ; 3242 2 [MSG_TEXT] : ; 3243 2 ! ; 3244 2 ! If we just got a text header, set up for typing on the terminal and ; 3245 2 ! shift to receiving data ; 3246 2 ! ; 3247 3 BEGIN ; 3248 3 TEXT_HEAD_FLAG = TRUE; ! We want terminal output ; 3249 3 PUT_CHR_ROUTINE = TYPE_CHAR; ! Set up the put a character routine ; 3250 3 ; 3251 3 IF .REC_LENGTH GTR 0 ; 3252 3 THEN ; 3253 4 BEGIN ; 3254 4 TT_TEXT (UPLIT (%ASCIZ'<<')); ! Make sure file name sticks out ; 3255 4 BFR_EMPTY (); ! Dump the packet data to the terminal ; 3256 4 TT_TEXT (UPLIT (%ASCIZ'>>')); ! So user can tell where name ends ; 3257 4 TT_CRLF (); ! And a CRLF ; 3258 3 END; ; 3259 3 ; 3260 3 SEND_PACKET (MSG_ACK, 0, .MSG_NUMBER); ! Send an ACK ; 3261 3 OLD_RETRIES = .NUM_RETRIES; ; 3262 3 NUM_RETRIES = 0; ; 3263 3 MSG_NUMBER = (.MSG_NUMBER + 1) AND %O'77'; ; 3264 3 RETURN STATE_RD; ! We now want data ; 3265 2 END; ; 3266 2 ; 3267 2 [MSG_ACK] : ; 3268 2 ! ; 3269 2 ! If we get an ACK, just type the data on the terminal and complete the ; 3270 2 ! transaction. ; 3271 2 ! ; 3272 3 BEGIN ; 3273 3 PUT_CHR_ROUTINE = TYPE_CHAR; ! Dump to terminal ; 3274 3 BFR_EMPTY (); ! Do it ; 3275 3 ; 3276 3 IF .REC_LENGTH GTR 0 THEN TT_CRLF (); ; 3277 3 ; 3278 3 RETURN STATE_C; ! And go idle ; 3279 2 END; ; 3280 2 ; 3281 2 [MSG_NAK] : ; 3282 2 ! ; 3283 2 ! If we get a NAK, stay in the same state. We will re-transmit the ; 3284 2 ! packet again. ; 3285 2 ! ; 3286 2 RETURN .STATE; ; 3287 2 TES; ; 3288 2 ; 3289 2 ! ; 3290 2 ! If we get here, we didn't get anything resembling an acceptable ; 3291 2 ! packet, so we will abort. ; 3292 2 ! ; 3293 2 KRM_ERROR (KER_PROTOERR); ; 3294 2 RETURN STATE_A; ; 3295 1 END; .PSECT $PLIT$,NOWRT,NOEXE,2 P.AAF: .ASCII \<<\<0><0> ; 00 00 3C 3C 00048 P.AAG: .ASCII \>>\<0><0> ; 00 00 3E 3E 0004C .PSECT $CODE$,NOWRT,2 ;SEND_GENCMD U.6: .WORD ^M<R2,R3,R4,R5,R6,R7,R8,R9,R10,- ;Save R2,R3,R4,R5,R6,R7,R8,R9,R10,- 3071 0FFC 00000 R11> ;R11 MOVAB G^U.24, R11 ;U.24, R11 5B 00000000V 00 9E 00002 MOVAB B^U.77, R10 ;U.77, R10 5A B2 AF 9E 00009 MOVAB G^GEN_3SIZE, R9 ;GEN_3SIZE, R9 59 00000000G 00 9E 0000D MOVAB G^GEN_1SIZE, R8 ;GEN_1SIZE, R8 58 00000000G 00 9E 00014 MOVAB G^U.55, R7 ;U.55, R7 57 00000000' 00 9E 0001B MOVAB -1008(SP), SP ;-1008(SP), SP 5E FC10 CE 9E 00022 CMPL -4(R7), G^PKT_RETRIES ;NUM_RETRIES, PKT_RETRIES 3146 00000000G 00 FC A7 D1 00027 BLEQ 1$ ;1$ 04 15 0002F MOVL #20, R0 ;#20, R0 50 14 D0 00031 RET ; 04 00034 1$: INCL -4(R7) ;NUM_RETRIES 3152 FC A7 D6 00035 MOVAB 4(SP), (SP) ;DATA_TEXT, POINTER 3156 6E 04 AE 9E 00038 CLRL R6 ;DATA_SIZE 3157 56 D4 0003C MOVL (R8), R0 ;GEN_1SIZE, R0 3165 50 68 D0 0003E CMPL 2040(R7), #71 ;GEN_TYPE, #71 3159 00000047 8F 07F8 C7 D1 00041 BNEQ 4$ ;4$ 68 12 0004A MOVB 2044(R7), @0(SP) ;GEN_SUBTYPE, @POINTER 3162 00 BE 07FC C7 90 0004C INCL (SP) ;POINTER 6E D6 00052 MOVL #1, R6 ;#1, DATA_SIZE 3163 56 01 D0 00054 TSTL R0 ;R0 3165 50 D5 00057 BGTR 2$ ;2$ 0C 14 00059 TSTL G^GEN_2SIZE ;GEN_2SIZE 00000000G 00 D5 0005B BGTR 2$ ;2$ 04 14 00061 TSTL (R9) ;GEN_3SIZE 69 D5 00063 BLEQ 6$ ;6$ 6A 15 00065 2$: PUSHL R0 ;R0 3168 50 DD 00067 PUSHAB G^GEN_1DATA ;GEN_1DATA 00000000G 00 9F 00069 PUSHL R6 ;DATA_SIZE 56 DD 0006F PUSHAB 12(SP) ;POINTER 0C AE 9F 00071 CALLS #4, (R10) ;#4, PACK_DATA 6A 04 FB 00074 MOVL R0, R6 ;R0, DATA_SIZE 56 50 D0 00077 MOVL G^GEN_2SIZE, R0 ;GEN_2SIZE, R0 3170 50 00000000G 00 D0 0007A BGTR 3$ ;3$ 04 14 00081 TSTL (R9) ;GEN_3SIZE 69 D5 00083 BLEQ 6$ ;6$ 4A 15 00085 3$: PUSHL R0 ;R0 3173 50 DD 00087 PUSHAB G^GEN_2DATA ;GEN_2DATA 00000000G 00 9F 00089 PUSHL R6 ;DATA_SIZE 56 DD 0008F PUSHAB 12(SP) ;POINTER 0C AE 9F 00091 CALLS #4, (R10) ;#4, PACK_DATA 6A 04 FB 00094 MOVL R0, R6 ;R0, DATA_SIZE 56 50 D0 00097 MOVL (R9), R0 ;GEN_3SIZE, R0 3175 50 69 D0 0009A BLEQ 6$ ;6$ 32 15 0009D PUSHL R0 ;R0 3178 50 DD 0009F PUSHAB G^GEN_3DATA ;GEN_3DATA 00000000G 00 9F 000A1 PUSHL R6 ;DATA_SIZE 56 DD 000A7 PUSHAB 12(SP) ;POINTER 0C AE 9F 000A9 CALLS #4, (R10) ;#4, PACK_DATA 6A 04 FB 000AC MOVL R0, R6 ;R0, DATA_SIZE 56 50 D0 000AF BRB 6$ ;6$ 1D 11 000B2 4$: CMPL R0, #1002 ;R0, #1002 3189 000003EA 8F 50 D1 000B4 BLEQ 5$ ;5$ 05 15 000BB MOVZWL #1002, (R8) ;#1002, GEN_1SIZE 68 03EA 8F 3C 000BD 5$: MOVL (R8), R0 ;GEN_1SIZE, R0 3191 50 68 D0 000C2 MOVL R0, R6 ;R0, DATA_SIZE 56 50 D0 000C5 MOVC3 R0, G^GEN_1DATA, @0(SP) ;R0, GEN_1DATA, @POINTER 3192 00000000G 00 50 28 000C8 ; 00 BE 000CF 6$: PUSHL #1 ;#1 3195 01 DD 000D1 PUSHL R6 ;DATA_SIZE 56 DD 000D3 PUSHAB 12(SP) ;DATA_TEXT 0C AE 9F 000D5 CALLS #3, G^U.30 ;#3, U.30 00000000V 00 03 FB 000D8 PUSHL #1 ;#1 3196 01 DD 000DF CALLS #1, G^U.29 ;#1, U.29 00000000V 00 01 FB 000E1 CLRQ -(SP) ;-(SP) 3197 7E 7C 000E8 CLRL -(SP) ;-(SP) 7E D4 000EA CALLS #3, G^U.30 ;#3, U.30 00000000V 00 03 FB 000EC PUSHL (R7) ;MSG_NUMBER 3202 67 DD 000F3 PUSHL -12(R7) ;SIZE F4 A7 DD 000F5 PUSHL 2040(R7) ;GEN_TYPE 07F8 C7 DD 000F8 CALLS #3, (R11) ;#3, SEND_PACKET 6B 03 FB 000FC BLBS R0, 7$ ;R0, 7$ 04 50 E8 000FF MOVL #19, R0 ;#19, R0 50 13 D0 00102 RET ; 04 00105 7$: CALLS #0, G^U.26 ;#0, U.26 3207 00000000V 00 00 FB 00106 BLBS R0, 11$ ;STATUS, 11$ 3209 28 50 E8 0010D CMPL R0, #134316234 ;STATUS, #134316234 3213 080180CA 8F 50 D1 00110 BEQL 8$ ;8$ 12 13 00117 CMPL R0, #134316248 ;STATUS, #134316248 080180D8 8F 50 D1 00119 BEQL 8$ ;8$ 09 13 00120 CMPL R0, #134316178 ;STATUS, #134316178 08018092 8F 50 D1 00122 BNEQ 9$ ;9$ 06 12 00129 8$: MOVL -16(R7), R1 ;STATE, R1 3215 51 F0 A7 D0 0012B BRB 10$ ;10$ 03 11 0012F 9$: MOVL #19, R1 ;#19, R1 3217 51 13 D0 00131 10$: MOVL R1, R0 ;R1, R0 50 51 D0 00134 RET ; 04 00137 11$: MOVL 12(R7), R1 ;REC_TYPE, R1 3223 51 0C A7 D0 00138 CMPL R1, #83 ;R1, #83 3226 00000053 8F 51 D1 0013C BNEQ 13$ ;13$ 3C 12 00143 MOVL 4(R7), (R7) ;REC_SEQ, MSG_NUMBER 3228 67 04 A7 D0 00145 CALLS #0, G^U.21 ;#0, U.21 3231 00000000V 00 00 FB 00149 BLBS R0, 12$ ;STATUS, 12$ 01 50 E8 00150 RET ; 04 00153 12$: CALLS #0, G^U.20 ;#0, U.20 3233 00000000V 00 00 FB 00154 PUSHL (R7) ;MSG_NUMBER 3234 67 DD 0015B PUSHL -36(R7) ;SEND_INIT_SIZE DC A7 DD 0015D MOVZBL #89, -(SP) ;#89, -(SP) 7E 59 8F 9A 00160 CALLS #3, (R11) ;#3, SEND_PACKET 6B 03 FB 00164 MOVL -32(R7), -28(R7) ;INI_CHK_TYPE, BLK_CHK_TYPE 3235 E4 A7 E0 A7 D0 00167 MOVL -4(R7), -8(R7) ;NUM_RETRIES, OLD_RETRIES 3236 F8 A7 FC A7 D0 0016C CLRL -4(R7) ;NUM_RETRIES 3237 FC A7 D4 00171 ADDL3 #1, (R7), R0 ;#1, MSG_NUMBER, R0 3238 67 01 C1 00174 ; 50 00177 EXTZV #0, #6, R0, (R7) ;#0, #6, R0, MSG_NUMBER 06 00 EF 00178 ; 67 50 0017B MOVL #7, R0 ;#7, R0 3239 50 07 D0 0017D RET ; 04 00180 13$: CMPL R1, #88 ;R1, #88 3242 00000058 8F 51 D1 00181 BNEQ 15$ ;15$ 5B 12 00188 MOVL #1, 2028(R7) ;#1, TEXT_HEAD_FLAG 3248 07EC C7 01 D0 0018A MOVAB G^U.31, 2052(R7) ;U.31, PUT_CHR_ROUTINE 3249 0804 C7 00000000V 00 9E 0018F TSTL 8(R7) ;REC_LENGTH 3251 08 A7 D5 00198 BLEQ 14$ ;14$ 28 15 0019B PUSHAB G^P.AAF ;P.AAF 3254 00000000' 00 9F 0019D CALLS #1, G^TT_TEXT ;#1, TT_TEXT 00000000G 00 01 FB 001A3 CALLS #0, G^U.28 ;#0, U.28 3255 00000000V 00 00 FB 001AA PUSHAB G^P.AAG ;P.AAG 3256 00000000' 00 9F 001B1 CALLS #1, G^TT_TEXT ;#1, TT_TEXT 00000000G 00 01 FB 001B7 CALLS #0, G^TT_CRLF ;#0, TT_CRLF 3257 00000000G 00 00 FB 001BE 14$: PUSHL (R7) ;MSG_NUMBER 3260 67 DD 001C5 CLRL -(SP) ;-(SP) 7E D4 001C7 MOVZBL #89, -(SP) ;#89, -(SP) 7E 59 8F 9A 001C9 CALLS #3, (R11) ;#3, SEND_PACKET 6B 03 FB 001CD MOVL -4(R7), -8(R7) ;NUM_RETRIES, OLD_RETRIES 3261 F8 A7 FC A7 D0 001D0 CLRL -4(R7) ;NUM_RETRIES 3262 FC A7 D4 001D5 ADDL3 #1, (R7), R0 ;#1, MSG_NUMBER, R0 3263 67 01 C1 001D8 ; 50 001DB EXTZV #0, #6, R0, (R7) ;#0, #6, R0, MSG_NUMBER 06 00 EF 001DC ; 67 50 001DF MOVL #8, R0 ;#8, R0 3264 50 08 D0 001E1 RET ; 04 001E4 15$: CMPL R1, #89 ;R1, #89 3267 00000059 8F 51 D1 001E5 BNEQ 17$ ;17$ 20 12 001EC MOVAB G^U.31, 2052(R7) ;U.31, PUT_CHR_ROUTINE 3273 0804 C7 00000000V 00 9E 001EE CALLS #0, G^U.28 ;#0, U.28 3274 00000000V 00 00 FB 001F7 TSTL 8(R7) ;REC_LENGTH 3276 08 A7 D5 001FE BLEQ 16$ ;16$ 07 15 00201 CALLS #0, G^TT_CRLF ;#0, TT_CRLF 00000000G 00 00 FB 00203 16$: MOVL #9, R0 ;#9, R0 3278 50 09 D0 0020A RET ; 04 0020D 17$: CMPL R1, #78 ;R1, #78 3281 0000004E 8F 51 D1 0020E BNEQ 18$ ;18$ 05 12 00215 MOVL -16(R7), R0 ;STATE, R0 3286 50 F0 A7 D0 00217 RET ; 04 0021B 18$: PUSHL #134316226 ;#134316226 3293 080180C2 8F DD 0021C CALLS #1, G^KRM_ERROR ;#1, KRM_ERROR 00000000G 00 01 FB 00222 MOVL #10, R0 ;#10, R0 3294 50 0A D0 00229 RET ; 04 0022C ; Routine Size: 557 bytes, Routine Base: $CODE$ + 0CA2 ; 3296 1 %SBTTL 'SEND_BREAK' ; 3297 1 ROUTINE SEND_BREAK = ; 3298 1 ; 3299 1 !++ ; 3300 1 ! FUNCTIONAL DESCRIPTION: ; 3301 1 ! ; 3302 1 ! This routine will send the break (end of transmission) message ; 3303 1 ! to the remote KERMIT. On an ACK the state becomes STATE_C. ; 3304 1 ! ; 3305 1 ! CALLING SEQUENCE: ; 3306 1 ! ; 3307 1 ! STATE = SEND_BREAK(); ; 3308 1 ! ; 3309 1 ! INPUT PARAMETERS: ; 3310 1 ! ; 3311 1 ! None. ; 3312 1 ! ; 3313 1 ! IMPLICIT INPUTS: ; 3314 1 ! ; 3315 1 ! None. ; 3316 1 ! ; 3317 1 ! OUTPUT PARAMETERS: ; 3318 1 ! ; 3319 1 ! New state for the finite state machine. ; 3320 1 ! ; 3321 1 ! IMPLICIT OUTPUTS: ; 3322 1 ! ; 3323 1 ! None. ; 3324 1 ! ; 3325 1 ! COMPLETION CODES: ; 3326 1 ! ; 3327 1 ! None. ; 3328 1 ! ; 3329 1 ! SIDE EFFECTS: ; 3330 1 ! ; 3331 1 ! None. ; 3332 1 ! ; 3333 1 !-- ; 3334 1 ; 3335 2 BEGIN ; 3336 2 ; 3337 2 LOCAL ; 3338 2 STATUS; ! Status returned by various routines ; 3339 2 ; 3340 2 ! ; 3341 2 ! First determine if we have exceed the number of retries that are ; 3342 2 ! allowed to attempt to send this message. ; 3343 2 ! ; 3344 2 ; 3345 2 IF .NUM_RETRIES GTR .PKT_RETRIES THEN RETURN STATE_ER; ; 3346 2 ; 3347 2 ! ; 3348 2 ! The number of retries are not exceeded. Increment the number and then ; 3349 2 ! attempt to send the packet again. ; 3350 2 ! ; 3351 2 NUM_RETRIES = .NUM_RETRIES + 1; ; 3352 2 ; 3353 2 IF NOT SEND_PACKET (MSG_BREAK, 0, .MSG_NUMBER) THEN RETURN STATE_EX; ; 3354 2 ; 3355 2 ! ; 3356 2 ! Now get the responce from the remote KERMIT. ; 3357 2 ! ; 3358 2 STATUS = REC_PACKET (); ; 3359 2 ; 3360 2 IF NOT .STATUS ; 3361 2 THEN ; 3362 3 BEGIN ; 3363 3 ; 3364 4 IF (.STATUS EQL KER_ZEROLENMSG) OR (.STATUS EQL KER_TIMEOUT) OR (.STATUS EQL KER_CHKSUMERR) ; 3365 3 THEN ; 3366 3 RETURN .STATE ; 3367 3 ELSE ; 3368 3 RETURN STATE_EX; ; 3369 3 ; 3370 2 END; ; 3371 2 ; 3372 2 ! ; 3373 2 ! Determine if the packet is good. ; 3374 2 ! ; 3375 2 ; 3376 3 IF NOT (.REC_TYPE EQL MSG_ACK OR .REC_TYPE EQL MSG_NAK) ; 3377 2 THEN ; 3378 3 BEGIN ; 3379 3 KRM_ERROR (KER_PROTOERR); ; 3380 3 RETURN STATE_A; ; 3381 2 END; ; 3382 2 ; 3383 2 ! ; 3384 2 ! If this is a NAK and the message number is not the one we just send ; 3385 2 ! treat this like an ACK, otherwise resend the last packet. ; 3386 2 ! ; 3387 2 ; 3388 2 IF .REC_TYPE EQL MSG_NAK AND .REC_SEQ NEQ 0 THEN RETURN .STATE; ; 3389 2 ; 3390 2 IF .REC_TYPE EQL MSG_ACK AND .REC_SEQ NEQ .MSG_NUMBER THEN RETURN .STATE; ; 3391 2 ; 3392 2 ! ; 3393 2 ! Here to determine if there is another file to send. ; 3394 2 ! ; 3395 2 NUM_RETRIES = 0; ; 3396 2 MSG_NUMBER = (.MSG_NUMBER + 1) AND %O'77'; ; 3397 2 RETURN STATE_C; ; 3398 1 END; ;SEND_BREAK U.9: .WORD ^M<R2> ;Save R2 3297 0004 00000 MOVAB G^U.55, R2 ;U.55, R2 52 00000000' 00 9E 00002 CMPL -4(R2), G^PKT_RETRIES ;NUM_RETRIES, PKT_RETRIES 3345 00000000G 00 FC A2 D1 00009 BLEQ 1$ ;1$ 04 15 00011 MOVL #20, R0 ;#20, R0 50 14 D0 00013 RET ; 04 00016 1$: INCL -4(R2) ;NUM_RETRIES 3351 FC A2 D6 00017 PUSHL (R2) ;MSG_NUMBER 3353 62 DD 0001A CLRL -(SP) ;-(SP) 7E D4 0001C MOVZBL #66, -(SP) ;#66, -(SP) 7E 42 8F 9A 0001E CALLS #3, G^U.24 ;#3, U.24 00000000V 00 03 FB 00022 BLBC R0, 2$ ;R0, 2$ 25 50 E9 00029 CALLS #0, G^U.26 ;#0, U.26 3358 00000000V 00 00 FB 0002C BLBS R0, 3$ ;STATUS, 3$ 3360 1F 50 E8 00033 CMPL R0, #134316234 ;STATUS, #134316234 3364 080180CA 8F 50 D1 00036 BEQL 6$ ;6$ 5E 13 0003D CMPL R0, #134316248 ;STATUS, #134316248 080180D8 8F 50 D1 0003F BEQL 6$ ;6$ 55 13 00046 CMPL R0, #134316178 ;STATUS, #134316178 08018092 8F 50 D1 00048 BEQL 6$ ;6$ 4C 13 0004F 2$: MOVL #19, R0 ;#19, R0 3368 50 13 D0 00051 RET ; 04 00054 3$: MOVL 12(R2), R0 ;REC_TYPE, R0 3376 50 0C A2 D0 00055 CMPL R0, #89 ;R0, #89 00000059 8F 50 D1 00059 BEQL 4$ ;4$ 1A 13 00060 CMPL R0, #78 ;R0, #78 0000004E 8F 50 D1 00062 BEQL 4$ ;4$ 11 13 00069 PUSHL #134316226 ;#134316226 3379 080180C2 8F DD 0006B CALLS #1, G^KRM_ERROR ;#1, KRM_ERROR 00000000G 00 01 FB 00071 MOVL #10, R0 ;#10, R0 3380 50 0A D0 00078 RET ; 04 0007B 4$: MOVL 12(R2), R0 ;REC_TYPE, R0 3388 50 0C A2 D0 0007C CMPL R0, #78 ;R0, #78 0000004E 8F 50 D1 00080 BNEQ 5$ ;5$ 05 12 00087 TSTL 4(R2) ;REC_SEQ 04 A2 D5 00089 BNEQ 6$ ;6$ 0F 12 0008C 5$: CMPL R0, #89 ;R0, #89 3390 00000059 8F 50 D1 0008E BNEQ 7$ ;7$ 0B 12 00095 CMPL 4(R2), (R2) ;REC_SEQ, MSG_NUMBER 62 04 A2 D1 00097 BEQL 7$ ;7$ 05 13 0009B 6$: MOVL -16(R2), R0 ;STATE, R0 50 F0 A2 D0 0009D RET ; 04 000A1 7$: CLRL -4(R2) ;NUM_RETRIES 3395 FC A2 D4 000A2 ADDL3 #1, (R2), R0 ;#1, MSG_NUMBER, R0 3396 62 01 C1 000A5 ; 50 000A8 EXTZV #0, #6, R0, (R2) ;#0, #6, R0, MSG_NUMBER 06 00 EF 000A9 ; 62 50 000AC MOVL #9, R0 ;#9, R0 3397 50 09 D0 000AE RET ; 04 000B1 ; Routine Size: 178 bytes, Routine Base: $CODE$ + 0ECF ; 3399 1 %SBTTL 'REC_INIT' ; 3400 1 ROUTINE REC_INIT = ; 3401 1 ; 3402 1 !++ ; 3403 1 ! FUNCTIONAL DESCRIPTION: ; 3404 1 ! ; 3405 1 ! This routine will process an initialization message received from ; 3406 1 ! the remote KERMIT. ; 3407 1 ! ; 3408 1 ! CALLING SEQUENCE: ; 3409 1 ! ; 3410 1 ! STATE = REC_INIT(); ; 3411 1 ! ; 3412 1 ! INPUT PARAMETERS: ; 3413 1 ! ; 3414 1 ! None. ; 3415 1 ! ; 3416 1 ! IMPLICIT INPUTS: ; 3417 1 ! ; 3418 1 ! None. ; 3419 1 ! ; 3420 1 ! OUTPUT PARAMETERS: ; 3421 1 ! ; 3422 1 ! New machine state. ; 3423 1 ! ; 3424 1 ! IMPLICIT OUTPUTS: ; 3425 1 ! ; 3426 1 ! None. ; 3427 1 ! ; 3428 1 ! COMPLETION CODES: ; 3429 1 ! ; 3430 1 ! None. ; 3431 1 ! ; 3432 1 ! SIDE EFFECTS: ; 3433 1 ! ; 3434 1 ! None. ; 3435 1 ! ; 3436 1 !-- ; 3437 1 ; 3438 2 BEGIN ; 3439 2 ; 3440 2 LOCAL ; 3441 2 STATUS; ! Status returned by various routines ; 3442 2 ; 3443 2 ROUTINE CHECK_INIT = ; 3444 3 BEGIN ; 3445 3 ; 3446 3 IF .REC_TYPE EQL MSG_SND_INIT THEN RETURN TRUE ELSE RETURN FALSE; ; 3447 3 ; 3448 2 END; ;CHECK_INIT U.78: .WORD ^M<> ;Save nothing 3443 0000 00000 CMPL G^U.58, #83 ;U.58, #83 3446 00000053 8F 00000000' 00 D1 00002 BNEQ 1$ ;1$ 04 12 0000D MOVL #1, R0 ;#1, R0 50 01 D0 0000F RET ; 04 00012 1$: CLRL R0 ;R0 50 D4 00013 RET ; 04 00015 ; Routine Size: 22 bytes, Routine Base: $CODE$ + 0F81 ; 3449 2 ; 3450 3 IF NOT (STATUS = REC_MESSAGE (CHECK_INIT)) ; 3451 2 THEN ; 3452 2 ; 3453 2 IF .STATUS NEQ KER_ABORTED THEN RETURN STATE_A ELSE RETURN STATE_EX; ; 3454 2 ; 3455 2 MSG_NUMBER = .REC_SEQ; ; 3456 2 ; 3457 2 IF NOT (STATUS = PRS_SEND_INIT ()) THEN RETURN STATE_A; ; 3458 2 ; 3459 2 SET_SEND_INIT (); ; 3460 2 SEND_PACKET (MSG_ACK, .SEND_INIT_SIZE, .MSG_NUMBER); ! [108] ; 3461 2 BLK_CHK_TYPE = .INI_CHK_TYPE; ! Can now use agreed upon type ; 3462 2 OLD_RETRIES = .NUM_RETRIES; ; 3463 2 NUM_RETRIES = 0; ; 3464 2 MSG_NUMBER = (.MSG_NUMBER + 1) AND %O'77'; ; 3465 2 RETURN STATE_RF; ; 3466 1 END; ! End of REC_INIT ;REC_INIT U.11: .WORD ^M<R2> ;Save R2 3400 0004 00000 MOVAB G^U.55, R2 ;U.55, R2 52 00000000' 00 9E 00002 PUSHAB B^U.78 ;U.78 3450 DE AF 9F 00009 CALLS #1, G^U.25 ;#1, U.25 00000000V 00 01 FB 0000C BLBS R0, 3$ ;STATUS, 3$ 15 50 E8 00013 CMPL R0, #134316258 ;STATUS, #134316258 3453 080180E2 8F 50 D1 00016 BEQL 1$ ;1$ 05 13 0001D MOVL #10, R1 ;#10, R1 51 0A D0 0001F BRB 2$ ;2$ 03 11 00022 1$: MOVL #19, R1 ;#19, R1 51 13 D0 00024 2$: MOVL R1, R0 ;R1, R0 50 51 D0 00027 RET ; 04 0002A 3$: MOVL 4(R2), (R2) ;REC_SEQ, MSG_NUMBER 3455 62 04 A2 D0 0002B CALLS #0, G^U.21 ;#0, U.21 3457 00000000V 00 00 FB 0002F BLBS R0, 4$ ;STATUS, 4$ 04 50 E8 00036 MOVL #10, R0 ;#10, R0 50 0A D0 00039 RET ; 04 0003C 4$: CALLS #0, G^U.20 ;#0, U.20 3459 00000000V 00 00 FB 0003D PUSHL (R2) ;MSG_NUMBER 3460 62 DD 00044 PUSHL -36(R2) ;SEND_INIT_SIZE DC A2 DD 00046 MOVZBL #89, -(SP) ;#89, -(SP) 7E 59 8F 9A 00049 CALLS #3, G^U.24 ;#3, U.24 00000000V 00 03 FB 0004D MOVL -32(R2), -28(R2) ;INI_CHK_TYPE, BLK_CHK_TYPE 3461 E4 A2 E0 A2 D0 00054 MOVL -4(R2), -8(R2) ;NUM_RETRIES, OLD_RETRIES 3462 F8 A2 FC A2 D0 00059 CLRL -4(R2) ;NUM_RETRIES 3463 FC A2 D4 0005E ADDL3 #1, (R2), R0 ;#1, MSG_NUMBER, R0 3464 62 01 C1 00061 ; 50 00064 EXTZV #0, #6, R0, (R2) ;#0, #6, R0, MSG_NUMBER 06 00 EF 00065 ; 62 50 00068 MOVL #7, R0 ;#7, R0 3465 50 07 D0 0006A RET ; 04 0006D ; Routine Size: 110 bytes, Routine Base: $CODE$ + 0F97 ; 3467 1 %SBTTL 'REC_FILE' ; 3468 1 ROUTINE REC_FILE = ; 3469 1 ; 3470 1 !++ ; 3471 1 ! FUNCTIONAL DESCRIPTION: ; 3472 1 ! ; 3473 1 ! This routine expects to receive an MSG_FILE packet from the remote ; 3474 1 ! KERMIT. If the message is correct this routine will change the state ; 3475 1 ! to STATE_RD. ; 3476 1 ! ; 3477 1 ! This routine also expects MSG_SND_INIT, MSG_EOF, or MSG_BREAK. ; 3478 1 ! ; 3479 1 ! CALLING SEQUENCE: ; 3480 1 ! ; 3481 1 ! STATE = REC_FILE(); ; 3482 1 ! ; 3483 1 ! INPUT PARAMETERS: ; 3484 1 ! ; 3485 1 ! None. ; 3486 1 ! ; 3487 1 ! IMPLICIT INPUTS: ; 3488 1 ! ; 3489 1 ! None. ; 3490 1 ! ; 3491 1 ! OUTPUT PARAMETERS: ; 3492 1 ! ; 3493 1 ! New state. ; 3494 1 ! ; 3495 1 ! IMPLICIT OUTPUTS: ; 3496 1 ! ; 3497 1 ! None. ; 3498 1 ! ; 3499 1 ! COMPLETION CODES: ; 3500 1 ! ; 3501 1 ! None. ; 3502 1 ! ; 3503 1 ! SIDE EFFECTS: ; 3504 1 ! ; 3505 1 ! None. ; 3506 1 ! ; 3507 1 !-- ; 3508 1 ; 3509 2 BEGIN ; 3510 2 ; 3511 2 LOCAL ; 3512 2 STATUS; ; 3513 2 ; 3514 2 ROUTINE CHECK_FILE = ; 3515 3 BEGIN ; 3516 3 ; 3517 4 IF (.REC_TYPE EQL MSG_SND_INIT) OR (.REC_TYPE EQL MSG_EOF) OR (.REC_TYPE EQL MSG_FILE) OR ( ; 3518 4 .REC_TYPE EQL MSG_BREAK) OR (.REC_TYPE EQL MSG_TEXT) ; 3519 3 THEN ; 3520 3 RETURN TRUE ; 3521 3 ELSE ; 3522 3 RETURN FALSE; ; 3523 3 ; 3524 2 END; ;CHECK_FILE U.79: .WORD ^M<> ;Save nothing 3514 0000 00000 MOVL G^U.58, R0 ;U.58, R0 3517 50 00000000' 00 D0 00002 CMPL R0, #83 ;R0, #83 00000053 8F 50 D1 00009 BEQL 1$ ;1$ 24 13 00010 CMPL R0, #90 ;R0, #90 0000005A 8F 50 D1 00012 BEQL 1$ ;1$ 1B 13 00019 CMPL R0, #70 ;R0, #70 00000046 8F 50 D1 0001B BEQL 1$ ;1$ 12 13 00022 CMPL R0, #66 ;R0, #66 3518 00000042 8F 50 D1 00024 BEQL 1$ ;1$ 09 13 0002B CMPL R0, #88 ;R0, #88 00000058 8F 50 D1 0002D BNEQ 2$ ;2$ 04 12 00034 1$: MOVL #1, R0 ;#1, R0 3520 50 01 D0 00036 RET ; 04 00039 2$: CLRL R0 ;R0 3522 50 D4 0003A RET ; 04 0003C ; Routine Size: 61 bytes, Routine Base: $CODE$ + 1005 ; 3525 2 ! ; 3526 2 ! Initialize the abort flags ; 3527 2 ! ; 3528 2 ABT_CUR_FILE = FALSE; ; 3529 2 ABT_ALL_FILE = FALSE; ; 3530 2 ! ; 3531 2 ! Get a message ; 3532 2 ! ; 3533 2 ; 3534 3 IF NOT (STATUS = REC_MESSAGE (CHECK_FILE)) ; 3535 2 THEN ; 3536 2 ; 3537 2 IF .STATUS NEQ KER_ABORTED THEN RETURN STATE_A ELSE RETURN STATE_EX; ; 3538 2 ; 3539 2 SELECTONE .REC_TYPE OF ; 3540 2 SET ; 3541 2 ; 3542 2 [MSG_SND_INIT] : ; 3543 3 BEGIN ; 3544 3 ; 3545 3 IF .OLD_RETRIES GTR .SI_RETRIES THEN RETURN STATE_ER; ; 3546 3 ; 3547 3 OLD_RETRIES = .OLD_RETRIES + 1; ; 3548 3 ; 3549 3 IF ((.MSG_NUMBER - 1) AND %O'77') EQL .REC_SEQ ; 3550 3 THEN ; 3551 4 BEGIN ; 3552 4 SET_SEND_INIT (); ; 3553 4 BLK_CHK_TYPE = CHK_1CHAR; ! Must use 1 character CHKSUM ; 3554 4 SEND_PACKET (MSG_ACK, .SEND_INIT_SIZE, .REC_SEQ); ! [108] ; 3555 4 BLK_CHK_TYPE = .INI_CHK_TYPE; ! Back to agreed upon type ; 3556 4 NUM_RETRIES = 0; ; 3557 4 RETURN .STATE; ; 3558 4 END ; 3559 3 ELSE ; 3560 4 BEGIN ; 3561 4 KRM_ERROR (KER_PROTOERR); ; 3562 4 RETURN STATE_A; ; 3563 3 END; ; 3564 3 ; 3565 2 END; ; 3566 2 ; 3567 2 [MSG_EOF] : ; 3568 3 BEGIN ; 3569 3 ; 3570 3 IF .OLD_RETRIES GTR .PKT_RETRIES THEN RETURN STATE_ER; ; 3571 3 ; 3572 3 OLD_RETRIES = .OLD_RETRIES + 1; ; 3573 3 ; 3574 3 IF ((.MSG_NUMBER - 1) AND %O'77') EQL .REC_SEQ ; 3575 3 THEN ; 3576 4 BEGIN ; 3577 4 SEND_PACKET (MSG_ACK, 0, .REC_SEQ); ; 3578 4 NUM_RETRIES = 0; ; 3579 4 RETURN .STATE; ; 3580 4 END ; 3581 3 ELSE ; 3582 4 BEGIN ; 3583 4 KRM_ERROR (KER_PROTOERR); ; 3584 4 RETURN STATE_A; ; 3585 3 END; ; 3586 3 ; 3587 2 END; ; 3588 2 ; 3589 2 [MSG_FILE] : ; 3590 3 BEGIN ; 3591 3 ; 3592 3 IF .MSG_NUMBER NEQ .REC_SEQ THEN RETURN STATE_ER; ; 3593 3 ; 3594 3 IF .REC_LENGTH EQL 0 ; 3595 3 THEN ; 3596 4 BEGIN ; 3597 4 KRM_ERROR (KER_PROTOERR); ; 3598 4 RETURN STATE_A; ; 3599 3 END; ; 3600 3 ; 3601 3 ![025] ; 3602 3 ![025] Get file name from packet with all quoting undone ; 3603 3 ![025] ; 3604 3 SET_STRING (CH$PTR (FILE_NAME), MAX_FILE_NAME, TRUE); ; 3605 3 BFR_EMPTY (); ; 3606 3 FILE_SIZE = SET_STRING (0, 0, FALSE); ; 3607 3 CH$WCHAR (CHR_NUL, CH$PTR (FILE_NAME, .FILE_SIZE)); ; 3608 3 ![025] FILE_SIZE = .REC_LENGTH; ; 3609 3 ![025] CH$COPY (.REC_LENGTH, CH$PTR (REC_MSG, PKT_MSG, CHR_SIZE), CHR_NUL, MAX_FILE_NAME, ; 3610 3 ![025] CH$PTR (FILE_NAME)); ; 3611 3 ; 3612 3 IF ( NOT .CONNECT_FLAG) AND .TY_FIL ; 3613 3 THEN ; 3614 4 BEGIN ; 3615 4 TT_TEXT (UPLIT (%ASCIZ'Receiving: ')); ; 3616 4 TT_TEXT (FILE_NAME); ; 3617 4 TT_OUTPUT (); ; 3618 3 END; ; 3619 3 ; 3620 3 ![023] ; 3621 3 ![023] Force file name into normal form if desired ; 3622 3 ![023] ; 3623 3 ; 3624 3 IF .FIL_NORMAL_FORM THEN NORMALIZE_FILE (FILE_NAME, FILE_SIZE, 39, 39); ; 3625 3 ; 3626 3 FILE_CHARS = 0; ! No characters received yet ; 3627 3 ; 3628 3 IF NOT FILE_OPEN (FNC_WRITE) THEN RETURN STATE_A; ; 3629 3 ; 3630 3 XFR_STATUS (%C'F', %C'R'); ! Tell display routine ; 3631 3 TEXT_HEAD_FLAG = FALSE; ! Got an F, not an X ; 3632 3 FLAG_FILE_OPEN = TRUE; ; 3633 3 SEND_PACKET (MSG_ACK, 0, .MSG_NUMBER); ; 3634 3 OLD_RETRIES = .NUM_RETRIES; ; 3635 3 NUM_RETRIES = 0; ; 3636 3 MSG_NUMBER = (.MSG_NUMBER + 1) AND %O'77'; ; 3637 3 RETURN STATE_RD; ; 3638 2 END; ; 3639 2 ; 3640 2 [MSG_TEXT] : ; 3641 2 ! ; 3642 2 ! If we get a text header, we will want to type the data on ; 3643 2 ! the terminal. Set up the put a character routine correctly. ; 3644 2 ! ; 3645 3 BEGIN ; 3646 3 ; 3647 3 IF .MSG_NUMBER NEQ .REC_SEQ ; 3648 3 THEN ; 3649 4 BEGIN ; 3650 4 KRM_ERROR (KER_PROTOERR); ; 3651 4 RETURN STATE_A; ; 3652 3 END; ; 3653 3 ; 3654 3 TEXT_HEAD_FLAG = TRUE; ! Got an X, not an F ; 3655 3 PUT_CHR_ROUTINE = TYPE_CHAR; ! Empty buffer on terminal ; 3656 3 ; 3657 3 IF .REC_LENGTH GTR 0 ; 3658 3 THEN ; 3659 4 BEGIN ; 3660 4 TT_TEXT (UPLIT (%ASCIZ'<<')); ! Make file name stick out ; 3661 4 BFR_EMPTY (); ! Do the header data ; 3662 4 TT_TEXT (UPLIT (%ASCIZ'>>')); ; 3663 4 TT_CRLF (); ! And a crlf ; 3664 3 END; ; 3665 3 ; 3666 3 SEND_PACKET (MSG_ACK, 0, .MSG_NUMBER); ; 3667 3 OLD_RETRIES = .NUM_RETRIES; ; 3668 3 NUM_RETRIES = 0; ; 3669 3 MSG_NUMBER = (.MSG_NUMBER + 1) AND %O'77'; ; 3670 3 RETURN STATE_RD; ; 3671 2 END; ; 3672 2 ; 3673 2 [MSG_BREAK] : ; 3674 3 BEGIN ; 3675 3 ; 3676 3 IF .MSG_NUMBER NEQ .REC_SEQ ; 3677 3 THEN ; 3678 4 BEGIN ; 3679 4 KRM_ERROR (KER_PROTOERR); ; 3680 4 RETURN STATE_A; ; 3681 3 END; ; 3682 3 ; 3683 3 SEND_PACKET (MSG_ACK, 0, .REC_SEQ); ; 3684 3 RETURN STATE_C; ; 3685 2 END; ; 3686 2 ; 3687 2 [OTHERWISE] : ; 3688 3 BEGIN ; 3689 3 KRM_ERROR (KER_PROTOERR); ; 3690 3 RETURN STATE_A; ; 3691 2 END; ; 3692 2 TES; ; 3693 2 ; 3694 1 END; ! End of REC_FILE .PSECT $PLIT$,NOWRT,NOEXE,2 P.AAH: .ASCII \Receiving: \<0> ; 6E 69 76 69 65 63 65 52 00050 ; 00 20 3A 67 00058 P.AAI: .ASCII \<<\<0><0> ; 00 00 3C 3C 0005C P.AAJ: .ASCII \>>\<0><0> ; 00 00 3E 3E 00060 .PSECT $CODE$,NOWRT,2 ;REC_FILE U.12: .WORD ^M<R2,R3,R4,R5,R6,R7,R8,R9> ;Save R2,R3,R4,R5,R6,R7,R8,R9 3468 03FC 00000 MOVAB G^FILE_SIZE, R9 ;FILE_SIZE, R9 59 00000000G 00 9E 00002 MOVAB G^U.28, R8 ;U.28, R8 58 00000000V 00 9E 00009 MOVAB G^U.30, R7 ;U.30, R7 57 00000000V 00 9E 00010 MOVAB G^P.AAH, R6 ;P.AAH, R6 56 00000000' 00 9E 00017 MOVAB G^TT_TEXT, R5 ;TT_TEXT, R5 55 00000000G 00 9E 0001E MOVAB G^FILE_NAME, R4 ;FILE_NAME, R4 54 00000000G 00 9E 00025 MOVAB G^U.24, R3 ;U.24, R3 53 00000000V 00 9E 0002C MOVAB G^U.55, R2 ;U.55, R2 52 00000000' 00 9E 00033 CLRL G^ABT_CUR_FILE ;ABT_CUR_FILE 3528 00000000G 00 D4 0003A CLRL G^ABT_ALL_FILE ;ABT_ALL_FILE 3529 00000000G 00 D4 00040 PUSHAB W^U.79 ;U.79 3534 FF79 CF 9F 00046 CALLS #1, G^U.25 ;#1, U.25 00000000V 00 01 FB 0004A BLBS R0, 2$ ;STATUS, 2$ 10 50 E8 00051 CMPL R0, #134316258 ;STATUS, #134316258 3537 080180E2 8F 50 D1 00054 BEQL 1$ ;1$ 03 13 0005B BRW 18$ ;18$ 01A2 31 0005D 1$: MOVL #19, R0 ;#19, R0 50 13 D0 00060 RET ; 04 00063 2$: MOVL 12(R2), R0 ;REC_TYPE, R0 3539 50 0C A2 D0 00064 CMPL R0, #83 ;R0, #83 3542 00000053 8F 50 D1 00068 BNEQ 3$ ;3$ 38 12 0006F CMPL -8(R2), G^SI_RETRIES ;OLD_RETRIES, SI_RETRIES 3545 00000000G 00 F8 A2 D1 00071 BGTR 7$ ;7$ 78 14 00079 INCL -8(R2) ;OLD_RETRIES 3547 F8 A2 D6 0007B SUBL3 #1, (R2), R0 ;#1, MSG_NUMBER, R0 3549 62 01 C3 0007E ; 50 00081 CMPZV #0, #6, R0, 4(R2) ;#0, #6, R0, REC_SEQ 06 00 ED 00082 ; 04 A2 50 00085 BNEQ 9$ ;9$ 72 12 00088 CALLS #0, G^U.20 ;#0, U.20 3552 00000000V 00 00 FB 0008A MOVL #49, -28(R2) ;#49, BLK_CHK_TYPE 3553 E4 A2 31 D0 00091 PUSHL 4(R2) ;REC_SEQ 3554 04 A2 DD 00095 PUSHL -36(R2) ;SEND_INIT_SIZE DC A2 DD 00098 MOVZBL #89, -(SP) ;#89, -(SP) 7E 59 8F 9A 0009B CALLS #3, (R3) ;#3, SEND_PACKET 63 03 FB 0009F MOVL -32(R2), -28(R2) ;INI_CHK_TYPE, BLK_CHK_TYPE 3555 E4 A2 E0 A2 D0 000A2 BRB 4$ ;4$ 3556 30 11 000A7 3$: CMPL R0, #90 ;R0, #90 3567 0000005A 8F 50 D1 000A9 BNEQ 5$ ;5$ 2F 12 000B0 CMPL -8(R2), G^PKT_RETRIES ;OLD_RETRIES, PKT_RETRIES 3570 00000000G 00 F8 A2 D1 000B2 BGTR 7$ ;7$ 37 14 000BA INCL -8(R2) ;OLD_RETRIES 3572 F8 A2 D6 000BC SUBL3 #1, (R2), R1 ;#1, MSG_NUMBER, R1 3574 62 01 C3 000BF ; 51 000C2 MOVL 4(R2), R0 ;REC_SEQ, R0 50 04 A2 D0 000C3 CMPZV #0, #6, R1, R0 ;#0, #6, R1, R0 06 00 ED 000C7 ; 50 51 000CA BNEQ 9$ ;9$ 2E 12 000CC PUSHL R0 ;R0 3577 50 DD 000CE CLRL -(SP) ;-(SP) 7E D4 000D0 MOVZBL #89, -(SP) ;#89, -(SP) 7E 59 8F 9A 000D2 CALLS #3, (R3) ;#3, SEND_PACKET 63 03 FB 000D6 4$: CLRL -4(R2) ;NUM_RETRIES 3578 FC A2 D4 000D9 MOVL -16(R2), R0 ;STATE, R0 3579 50 F0 A2 D0 000DC RET ; 04 000E0 5$: CMPL R0, #70 ;R0, #70 3589 00000046 8F 50 D1 000E1 BEQL 6$ ;6$ 03 13 000E8 BRW 14$ ;14$ 0091 31 000EA 6$: CMPL (R2), 4(R2) ;MSG_NUMBER, REC_SEQ 3592 04 A2 62 D1 000ED BEQL 8$ ;8$ 04 13 000F1 7$: MOVL #20, R0 ;#20, R0 50 14 D0 000F3 RET ; 04 000F6 8$: TSTL 8(R2) ;REC_LENGTH 3594 08 A2 D5 000F7 BNEQ 10$ ;10$ 03 12 000FA 9$: BRW 17$ ;17$ 00F6 31 000FC 10$: PUSHL #1 ;#1 3604 01 DD 000FF MOVZBL #132, -(SP) ;#132, -(SP) 7E 84 8F 9A 00101 PUSHL R4 ;R4 54 DD 00105 CALLS #3, (R7) ;#3, SET_STRING 67 03 FB 00107 CALLS #0, (R8) ;#0, BFR_EMPTY 3605 68 00 FB 0010A CLRQ -(SP) ;-(SP) 3606 7E 7C 0010D CLRL -(SP) ;-(SP) 7E D4 0010F CALLS #3, (R7) ;#3, SET_STRING 67 03 FB 00111 MOVL R0, (R9) ;R0, FILE_SIZE 69 50 D0 00114 CLRB (R4)[R0] ;FILE_NAME[R0] 3607 6440 94 00117 BLBS G^CONNECT_FLAG, 11$ ;CONNECT_FLAG, 11$ 3612 18 00000000G 00 E8 0011A BLBC G^TY_FIL, 11$ ;TY_FIL, 11$ 11 00000000G 00 E9 00121 PUSHL R6 ;R6 3615 56 DD 00128 CALLS #1, (R5) ;#1, TT_TEXT 65 01 FB 0012A PUSHL R4 ;R4 3616 54 DD 0012D CALLS #1, (R5) ;#1, TT_TEXT 65 01 FB 0012F CALLS #0, G^TT_OUTPUT ;#0, TT_OUTPUT 3617 00000000G 00 00 FB 00132 11$: BLBC G^FIL_NORMAL_FORM, 12$ ;FIL_NORMAL_FORM, 12$ 3624 0F 00000000G 00 E9 00139 PUSHL #39 ;#39 27 DD 00140 PUSHL #39 ;#39 27 DD 00142 PUSHR #^M<R4,R9> ;#^M<R4,R9> 0210 8F BB 00144 CALLS #4, G^U.27 ;#4, U.27 00000000V 00 04 FB 00148 12$: CLRL 2024(R2) ;FILE_CHARS 3626 07E8 C2 D4 0014F PUSHL #1 ;#1 3628 01 DD 00153 CALLS #1, G^FILE_OPEN ;#1, FILE_OPEN 00000000G 00 01 FB 00155 BLBS R0, 13$ ;R0, 13$ 03 50 E8 0015C BRW 18$ ;18$ 00A0 31 0015F 13$: MOVZBL #82, -(SP) ;#82, -(SP) 3630 7E 52 8F 9A 00162 MOVZBL #70, -(SP) ;#70, -(SP) 7E 46 8F 9A 00166 CALLS #2, G^XFR_STATUS ;#2, XFR_STATUS 00000000G 00 02 FB 0016A CLRL 2028(R2) ;TEXT_HEAD_FLAG 3631 07EC C2 D4 00171 MOVL #1, G^FLAG_FILE_OPEN ;#1, FLAG_FILE_OPEN 3632 00000000' 00 01 D0 00175 BRB 15$ ;15$ 3633 38 11 0017C 14$: CMPL R0, #88 ;R0, #88 3640 00000058 8F 50 D1 0017E BNEQ 16$ ;16$ 4F 12 00185 CMPL (R2), 4(R2) ;MSG_NUMBER, REC_SEQ 3647 04 A2 62 D1 00187 BNEQ 17$ ;17$ 68 12 0018B MOVL #1, 2028(R2) ;#1, TEXT_HEAD_FLAG 3654 07EC C2 01 D0 0018D MOVAB G^U.31, 2052(R2) ;U.31, PUT_CHR_ROUTINE 3655 0804 C2 00000000V 00 9E 00192 TSTL 8(R2) ;REC_LENGTH 3657 08 A2 D5 0019B BLEQ 15$ ;15$ 16 15 0019E PUSHAB 12(R6) ;P.AAI 3660 0C A6 9F 001A0 CALLS #1, (R5) ;#1, TT_TEXT 65 01 FB 001A3 CALLS #0, (R8) ;#0, BFR_EMPTY 3661 68 00 FB 001A6 PUSHAB 16(R6) ;P.AAJ 3662 10 A6 9F 001A9 CALLS #1, (R5) ;#1, TT_TEXT 65 01 FB 001AC CALLS #0, G^TT_CRLF ;#0, TT_CRLF 3663 00000000G 00 00 FB 001AF 15$: PUSHL (R2) ;MSG_NUMBER 3666 62 DD 001B6 CLRL -(SP) ;-(SP) 7E D4 001B8 MOVZBL #89, -(SP) ;#89, -(SP) 7E 59 8F 9A 001BA CALLS #3, (R3) ;#3, SEND_PACKET 63 03 FB 001BE MOVL -4(R2), -8(R2) ;NUM_RETRIES, OLD_RETRIES 3667 F8 A2 FC A2 D0 001C1 CLRL -4(R2) ;NUM_RETRIES 3668 FC A2 D4 001C6 ADDL3 #1, (R2), R0 ;#1, MSG_NUMBER, R0 3669 62 01 C1 001C9 ; 50 001CC EXTZV #0, #6, R0, (R2) ;#0, #6, R0, MSG_NUMBER 06 00 EF 001CD ; 62 50 001D0 MOVL #8, R0 ;#8, R0 3670 50 08 D0 001D2 RET ; 04 001D5 16$: CMPL R0, #66 ;R0, #66 3673 00000042 8F 50 D1 001D6 BNEQ 17$ ;17$ 16 12 001DD CMPL (R2), 4(R2) ;MSG_NUMBER, REC_SEQ 3676 04 A2 62 D1 001DF BNEQ 17$ ;17$ 10 12 001E3 PUSHL 4(R2) ;REC_SEQ 3683 04 A2 DD 001E5 CLRL -(SP) ;-(SP) 7E D4 001E8 MOVZBL #89, -(SP) ;#89, -(SP) 7E 59 8F 9A 001EA CALLS #3, (R3) ;#3, SEND_PACKET 63 03 FB 001EE MOVL #9, R0 ;#9, R0 3684 50 09 D0 001F1 RET ; 04 001F4 17$: PUSHL #134316226 ;#134316226 3689 080180C2 8F DD 001F5 CALLS #1, G^KRM_ERROR ;#1, KRM_ERROR 00000000G 00 01 FB 001FB 18$: MOVL #10, R0 ;#10, R0 3690 50 0A D0 00202 RET ; 04 00205 ; Routine Size: 518 bytes, Routine Base: $CODE$ + 1042 ; 3695 1 %SBTTL 'REC_DATA' ; 3696 1 ROUTINE REC_DATA = ; 3697 1 ; 3698 1 !++ ; 3699 1 ! FUNCTIONAL DESCRIPTION: ; 3700 1 ! ; 3701 1 ! This routine will accept data messages and write them to disk. ; 3702 1 ! It will also accept MSG_FILE, MSG_TEXT and MSG_EOF messages. ; 3703 1 ! ; 3704 1 ! CALLING SEQUENCE: ; 3705 1 ! ; 3706 1 ! STATE = REC_DATA(); ; 3707 1 ! ; 3708 1 ! INPUT PARAMETERS: ; 3709 1 ! ; 3710 1 ! None. ; 3711 1 ! ; 3712 1 ! IMPLICIT INPUTS: ; 3713 1 ! ; 3714 1 ! None. ; 3715 1 ! ; 3716 1 ! OUTPUT PARAMETERS: ; 3717 1 ! ; 3718 1 ! New state for the finite state machine. ; 3719 1 ! ; 3720 1 ! IMPLICIT OUTPUTS: ; 3721 1 ! ; 3722 1 ! None. ; 3723 1 ! ; 3724 1 ! COMPLETION CODES: ; 3725 1 ! ; 3726 1 ! None. ; 3727 1 ! ; 3728 1 ! SIDE EFFECTS: ; 3729 1 ! ; 3730 1 ! None. ; 3731 1 ! ; 3732 1 !-- ; 3733 1 ; 3734 2 BEGIN ; 3735 2 ; 3736 2 LOCAL ; 3737 2 STATUS; ; 3738 2 ; 3739 2 ROUTINE CHECK_DATA = ; 3740 3 BEGIN ; 3741 3 ; 3742 3 IF .REC_TYPE EQL MSG_DATA OR (.REC_TYPE EQL MSG_FILE AND NOT .TEXT_HEAD_FLAG) OR .REC_TYPE ; 3743 4 EQL MSG_EOF OR (.REC_TYPE EQL MSG_TEXT AND .TEXT_HEAD_FLAG) ; 3744 3 THEN ; 3745 3 RETURN TRUE ; 3746 3 ELSE ; 3747 3 RETURN FALSE; ; 3748 3 ; 3749 2 END; ;CHECK_DATA U.80: .WORD ^M<R2> ;Save R2 3739 0004 00000 MOVAB G^U.62, R2 ;U.62, R2 52 00000000' 00 9E 00002 MOVL -2016(R2), R0 ;REC_TYPE, R0 3742 50 F820 C2 D0 00009 CMPL R0, #68 ;R0, #68 00000044 8F 50 D1 0000E BEQL 2$ ;2$ 21 13 00015 CMPL R0, #70 ;R0, #70 00000046 8F 50 D1 00017 BNEQ 1$ ;1$ 03 12 0001E BLBC (R2), 2$ ;TEXT_HEAD_FLAG, 2$ 15 62 E9 00020 1$: CMPL R0, #90 ;R0, #90 3743 0000005A 8F 50 D1 00023 BEQL 2$ ;2$ 0C 13 0002A CMPL R0, #88 ;R0, #88 00000058 8F 50 D1 0002C BNEQ 3$ ;3$ 07 12 00033 BLBC (R2), 3$ ;TEXT_HEAD_FLAG, 3$ 04 62 E9 00035 2$: MOVL #1, R0 ;#1, R0 3745 50 01 D0 00038 RET ; 04 0003B 3$: CLRL R0 ;R0 3747 50 D4 0003C RET ; 04 0003E ; Routine Size: 63 bytes, Routine Base: $CODE$ + 1248 ; 3750 2 ; 3751 2 LOCAL ; 3752 2 SUB_TYPE, ! Subtype for XFR_STATUS ; 3753 2 DISCARD_FILE_FLAG, ! Sender requested discard ; 3754 2 ACK_MSG_LEN; ! Length of ACK to send ; 3755 2 ; 3756 2 ! ; 3757 2 ! First get a message ; 3758 2 ! ; 3759 2 ; 3760 3 IF NOT (STATUS = REC_MESSAGE (CHECK_DATA)) ; 3761 2 THEN ; 3762 2 ; 3763 2 IF .STATUS NEQ KER_ABORTED THEN RETURN STATE_A ELSE RETURN STATE_EX; ; 3764 2 ; 3765 2 SELECTONE .REC_TYPE OF ; 3766 2 SET ; 3767 2 ; 3768 2 [MSG_DATA] : ; 3769 3 BEGIN ; 3770 3 ; 3771 3 IF .MSG_NUMBER NEQ .REC_SEQ ; 3772 3 THEN ; 3773 4 BEGIN ; 3774 4 ; 3775 4 IF .OLD_RETRIES GTR .PKT_RETRIES THEN RETURN STATE_ER; ; 3776 4 ; 3777 4 OLD_RETRIES = .OLD_RETRIES + 1; ; 3778 4 ; 3779 4 IF ((.MSG_NUMBER - 1) AND %O'77') EQL .REC_SEQ ; 3780 4 THEN ; 3781 5 BEGIN ; 3782 5 SEND_PACKET (MSG_ACK, 0, .REC_SEQ); ; 3783 5 NUM_RETRIES = 0; ; 3784 5 RETURN .STATE; ; 3785 5 END ; 3786 4 ELSE ; 3787 5 BEGIN ; 3788 5 KRM_ERROR (KER_PROTOERR); ; 3789 5 RETURN STATE_A; ; 3790 4 END; ; 3791 4 ; 3792 3 END; ; 3793 3 ; 3794 3 ! ; 3795 3 ! Here if we have a message with a valid message number ; 3796 3 ! ; 3797 3 ; 3798 3 IF NOT BFR_EMPTY () THEN RETURN STATE_A; ; 3799 3 ; 3800 3 ! ; 3801 3 ! Check if we wish to abort for some reason ; 3802 3 ! ; 3803 3 ; 3804 3 IF .ABT_CUR_FILE ; 3805 3 THEN ; 3806 4 BEGIN ; 3807 4 CH$WCHAR (MSG_ACK_ABT_CUR, CH$PTR (SND_MSG, PKT_MSG, CHR_SIZE)); ; 3808 4 ACK_MSG_LEN = 1; ; 3809 4 END ; 3810 3 ELSE ; 3811 3 ; 3812 3 IF .ABT_ALL_FILE ; 3813 3 THEN ; 3814 4 BEGIN ; 3815 4 CH$WCHAR (MSG_ACK_ABT_ALL, CH$PTR (SND_MSG, PKT_MSG, CHR_SIZE)); ; 3816 4 ACK_MSG_LEN = 1; ; 3817 4 END ; 3818 3 ELSE ; 3819 3 ACK_MSG_LEN = 0; ; 3820 3 ; 3821 3 ! ; 3822 3 ! Now send the ACK ; 3823 3 ! ; 3824 3 SEND_PACKET (MSG_ACK, .ACK_MSG_LEN, .REC_SEQ); ; 3825 3 OLD_RETRIES = .NUM_RETRIES; ; 3826 3 NUM_RETRIES = 0; ; 3827 3 MSG_NUMBER = (.MSG_NUMBER + 1) AND %O'77'; ; 3828 3 RETURN STATE_RD; ; 3829 2 END; ; 3830 2 ; 3831 2 [MSG_FILE, MSG_TEXT] : ; 3832 3 BEGIN ; 3833 3 ; 3834 3 IF .OLD_RETRIES GTR .PKT_RETRIES THEN RETURN STATE_ER; ; 3835 3 ; 3836 3 OLD_RETRIES = .OLD_RETRIES + 1; ; 3837 3 ; 3838 3 IF ((.MSG_NUMBER - 1) AND %O'77') EQL .REC_SEQ ; 3839 3 THEN ; 3840 4 BEGIN ; 3841 4 SEND_PACKET (MSG_ACK, 0, .REC_SEQ); ; 3842 4 NUM_RETRIES = 0; ; 3843 4 RETURN .STATE; ; 3844 4 END ; 3845 3 ELSE ; 3846 4 BEGIN ; 3847 4 KRM_ERROR (KER_PROTOERR); ; 3848 4 RETURN STATE_A; ; 3849 3 END; ; 3850 3 ; 3851 2 END; ; 3852 2 ; 3853 2 [MSG_EOF] : ; 3854 3 BEGIN ; 3855 3 ; 3856 3 IF .MSG_NUMBER NEQ .REC_SEQ ; 3857 3 THEN ; 3858 4 BEGIN ; 3859 4 KRM_ERROR (KER_PROTOERR); ; 3860 4 RETURN STATE_A; ; 3861 3 END; ; 3862 3 ; 3863 3 SEND_PACKET (MSG_ACK, 0, .REC_SEQ); ; 3864 3 ; 3865 3 IF NOT .TEXT_HEAD_FLAG ; 3866 3 THEN ; 3867 4 BEGIN ; 3868 4 FLAG_FILE_OPEN = FALSE; ; 3869 4 DISCARD_FILE_FLAG = FALSE; ! Assume we want file ; 3870 4 ; 3871 4 IF .REC_LENGTH EQL 1 ; 3872 4 THEN ; 3873 4 ; 3874 4 IF CH$RCHAR (CH$PTR (REC_MSG, .RECV_PKT_MSG, CHR_SIZE)) EQL MSG_EOF_DISCARD ! [108] ; 3875 4 THEN ; 3876 4 DISCARD_FILE_FLAG = TRUE; ; 3877 4 ; 3878 4 IF ( NOT .CONNECT_FLAG) AND .TY_FIL ; 3879 4 THEN ; 3880 5 BEGIN ; 3881 5 ; 3882 5 IF .DISCARD_FILE_FLAG ; 3883 5 THEN ; 3884 5 ; 3885 5 IF .ABT_FLAG ; 3886 5 THEN ; 3887 5 TT_TEXT (UPLIT (%ASCIZ' [Interrupted]')) ; 3888 5 ELSE ; 3889 5 TT_TEXT (UPLIT (%ASCIZ' [Interrupted, partial file saved]')) ; 3890 5 ; 3891 5 ELSE ; 3892 5 TT_TEXT (UPLIT (%ASCIZ' [OK]')); ; 3893 5 ; 3894 5 TT_CRLF (); ; 3895 4 END; ; 3896 4 ; 3897 4 IF NOT FILE_CLOSE (.DISCARD_FILE_FLAG AND .ABT_FLAG) THEN RETURN STATE_A; ; 3898 4 ; 3899 4 IF .DISCARD_FILE_FLAG ; 3900 4 THEN ; 3901 4 ; 3902 4 IF .ABT_FLAG THEN SUB_TYPE = %C'X' ELSE SUB_TYPE = %C'D' ; 3903 4 ; 3904 4 ELSE ; 3905 4 SUB_TYPE = %C'C'; ; 3906 4 ; 3907 4 END ; 3908 3 ELSE ; 3909 4 BEGIN ; 3910 4 TT_CRLF (); ! Make sure we have a CRLF ; 3911 4 TT_OUTPUT (); ! And make sure all output is sent ; 3912 3 END; ; 3913 3 ; 3914 3 XFR_STATUS (%C'F', .SUB_TYPE); ; 3915 3 MSG_NUMBER = (.MSG_NUMBER + 1) AND %O'77'; ; 3916 3 RETURN STATE_RF; ; 3917 2 END; ; 3918 2 ; 3919 2 [OTHERWISE] : ; 3920 3 BEGIN ; 3921 3 KRM_ERROR (KER_PROTOERR); ; 3922 3 RETURN STATE_A; ; 3923 2 END; ; 3924 2 TES; ; 3925 2 ; 3926 1 END; ! End of REC_DATA .PSECT $PLIT$,NOWRT,NOEXE,2 P.AAK: .ASCII \ [Interrupted]\<0><0> ; 72 72 65 74 6E 49 5B 20 00064 ; 00 00 5D 64 65 74 70 75 0006C P.AAL: .ASCII \ [Interrupted, partial file saved]\<0><0> ; 72 72 65 74 6E 49 5B 20 00074 ; 70 20 2C 64 65 74 70 75 0007C ; 66 20 6C 61 69 74 72 61 00084 ; 65 76 61 73 20 65 6C 69 0008C ; 00 00 5D 64 00094 P.AAM: .ASCII \ [OK]\<0><0><0> ; 00 00 00 5D 4B 4F 5B 20 00098 .PSECT $CODE$,NOWRT,2 ;REC_DATA U.13: .WORD ^M<R2,R3,R4,R5,R6,R7,R8> ;Save R2,R3,R4,R5,R6,R7,R8 3696 01FC 00000 MOVAB G^TT_CRLF, R8 ;TT_CRLF, R8 58 00000000G 00 9E 00002 MOVAB G^PKT_RETRIES, R7 ;PKT_RETRIES, R7 57 00000000G 00 9E 00009 MOVAB G^P.AAK, R6 ;P.AAK, R6 56 00000000' 00 9E 00010 MOVAB G^ABT_FLAG, R5 ;ABT_FLAG, R5 55 00000000G 00 9E 00017 MOVAB G^U.24, R4 ;U.24, R4 54 00000000V 00 9E 0001E MOVAB G^U.55, R3 ;U.55, R3 53 00000000' 00 9E 00025 PUSHAB B^U.80 ;U.80 3760 92 AF 9F 0002C CALLS #1, G^U.25 ;#1, U.25 00000000V 00 01 FB 0002F BLBS R0, 3$ ;STATUS, 3$ 10 50 E8 00036 CMPL R0, #134316258 ;STATUS, #134316258 3763 080180E2 8F 50 D1 00039 BEQL 2$ ;2$ 03 13 00040 1$: BRW 28$ ;28$ 0182 31 00042 2$: MOVL #19, R0 ;#19, R0 50 13 D0 00045 RET ; 04 00048 3$: MOVL 12(R3), R2 ;REC_TYPE, R2 3765 52 0C A3 D0 00049 CMPL R2, #68 ;R2, #68 3768 00000044 8F 52 D1 0004D BNEQ 9$ ;9$ 6C 12 00054 MOVQ (R3), R0 ;MSG_NUMBER, R0 3771 50 63 7D 00056 CMPL R0, R1 ;R0, R1 51 50 D1 00059 BEQL 4$ ;4$ 16 13 0005C CMPL -8(R3), (R7) ;OLD_RETRIES, PKT_RETRIES 3775 67 F8 A3 D1 0005E BGTR 11$ ;11$ 76 14 00062 INCL -8(R3) ;OLD_RETRIES 3777 F8 A3 D6 00064 DECL R0 ;R0 3779 50 D7 00067 CMPZV #0, #6, R0, R1 ;#0, #6, R0, R1 06 00 ED 00069 ; 51 50 0006C BNEQ 13$ ;13$ 7E 12 0006E PUSHL R1 ;R1 3782 51 DD 00070 BRB 14$ ;14$ 7E 11 00072 4$: CALLS #0, G^U.28 ;#0, U.28 3798 00000000V 00 00 FB 00074 BLBC R0, 1$ ;R0, 1$ C4 50 E9 0007B BLBC G^ABT_CUR_FILE, 5$ ;ABT_CUR_FILE, 5$ 3804 08 00000000G 00 E9 0007E MOVB #88, 1024(R3) ;#88, SND_MSG+4 3807 0400 C3 58 8F 90 00085 BRB 6$ ;6$ 3808 0D 11 0008B 5$: BLBC G^ABT_ALL_FILE, 7$ ;ABT_ALL_FILE, 7$ 3812 0B 00000000G 00 E9 0008D MOVB #90, 1024(R3) ;#90, SND_MSG+4 3815 0400 C3 5A 8F 90 00094 6$: MOVL #1, R0 ;#1, ACK_MSG_LEN 3816 50 01 D0 0009A BRB 8$ ;8$ 02 11 0009D 7$: CLRL R0 ;ACK_MSG_LEN 3819 50 D4 0009F 8$: PUSHL 4(R3) ;REC_SEQ 3824 04 A3 DD 000A1 PUSHL R0 ;ACK_MSG_LEN 50 DD 000A4 MOVZBL #89, -(SP) ;#89, -(SP) 7E 59 8F 9A 000A6 CALLS #3, (R4) ;#3, SEND_PACKET 64 03 FB 000AA MOVL -4(R3), -8(R3) ;NUM_RETRIES, OLD_RETRIES 3825 F8 A3 FC A3 D0 000AD CLRL -4(R3) ;NUM_RETRIES 3826 FC A3 D4 000B2 ADDL3 #1, (R3), R0 ;#1, MSG_NUMBER, R0 3827 63 01 C1 000B5 ; 50 000B8 EXTZV #0, #6, R0, (R3) ;#0, #6, R0, MSG_NUMBER 06 00 EF 000B9 ; 63 50 000BC MOVL #8, R0 ;#8, R0 3828 50 08 D0 000BE RET ; 04 000C1 9$: CMPL R2, #70 ;R2, #70 3831 00000046 8F 52 D1 000C2 BEQL 10$ ;10$ 09 13 000C9 CMPL R2, #88 ;R2, #88 00000058 8F 52 D1 000CB BNEQ 15$ ;15$ 2F 12 000D2 10$: CMPL -8(R3), (R7) ;OLD_RETRIES, PKT_RETRIES 3834 67 F8 A3 D1 000D4 BLEQ 12$ ;12$ 04 15 000D8 11$: MOVL #20, R0 ;#20, R0 50 14 D0 000DA RET ; 04 000DD 12$: INCL -8(R3) ;OLD_RETRIES 3836 F8 A3 D6 000DE SUBL3 #1, (R3), R1 ;#1, MSG_NUMBER, R1 3838 63 01 C3 000E1 ; 51 000E4 MOVL 4(R3), R0 ;REC_SEQ, R0 50 04 A3 D0 000E5 CMPZV #0, #6, R1, R0 ;#0, #6, R1, R0 06 00 ED 000E9 ; 50 51 000EC 13$: BNEQ 16$ ;16$ 20 12 000EE PUSHL R0 ;R0 3841 50 DD 000F0 14$: CLRL -(SP) ;-(SP) 7E D4 000F2 MOVZBL #89, -(SP) ;#89, -(SP) 7E 59 8F 9A 000F4 CALLS #3, (R4) ;#3, SEND_PACKET 64 03 FB 000F8 CLRL -4(R3) ;NUM_RETRIES 3842 FC A3 D4 000FB MOVL -16(R3), R0 ;STATE, R0 3843 50 F0 A3 D0 000FE RET ; 04 00102 15$: CMPL R2, #90 ;R2, #90 3853 0000005A 8F 52 D1 00103 BNEQ 16$ ;16$ 04 12 0010A CMPL (R3), 4(R3) ;MSG_NUMBER, REC_SEQ 3856 04 A3 63 D1 0010C 16$: BEQL 17$ ;17$ 03 13 00110 BRW 27$ ;27$ 00A5 31 00112 17$: PUSHL 4(R3) ;REC_SEQ 3863 04 A3 DD 00115 CLRL -(SP) ;-(SP) 7E D4 00118 MOVZBL #89, -(SP) ;#89, -(SP) 7E 59 8F 9A 0011A CALLS #3, (R4) ;#3, SEND_PACKET 64 03 FB 0011E BLBS 2028(R3), 25$ ;TEXT_HEAD_FLAG, 25$ 3865 70 07EC C3 E8 00121 CLRL G^FLAG_FILE_OPEN ;FLAG_FILE_OPEN 3868 00000000' 00 D4 00126 CLRL R2 ;DISCARD_FILE_FLAG 3869 52 D4 0012C CMPL 8(R3), #1 ;REC_LENGTH, #1 3871 01 08 A3 D1 0012E BNEQ 18$ ;18$ 0F 12 00132 MOVL -64(R3), R0 ;RECV_PKT_MSG, R0 3874 50 C0 A3 D0 00134 CMPB 16(R3)[R0], #68 ;REC_MSG[R0], #68 44 8F 10 A340 91 00138 BNEQ 18$ ;18$ 03 12 0013E MOVL #1, R2 ;#1, DISCARD_FILE_FLAG 3876 52 01 D0 00140 18$: BLBS G^CONNECT_FLAG, 22$ ;CONNECT_FLAG, 22$ 3878 23 00000000G 00 E8 00143 BLBC G^TY_FIL, 22$ ;TY_FIL, 22$ 1C 00000000G 00 E9 0014A BLBC R2, 20$ ;DISCARD_FILE_FLAG, 20$ 3882 0C 52 E9 00151 BLBC (R5), 19$ ;ABT_FLAG, 19$ 3885 04 65 E9 00154 PUSHL R6 ;R6 3887 56 DD 00157 BRB 21$ ;21$ 08 11 00159 19$: PUSHAB 16(R6) ;P.AAL 3889 10 A6 9F 0015B BRB 21$ ;21$ 03 11 0015E 20$: PUSHAB 52(R6) ;P.AAM 3892 34 A6 9F 00160 21$: CALLS #1, G^TT_TEXT ;#1, TT_TEXT 00000000G 00 01 FB 00163 CALLS #0, (R8) ;#0, TT_CRLF 3894 68 00 FB 0016A 22$: MCOML (R5), R0 ;ABT_FLAG, R0 3897 50 65 D2 0016D BICL3 R0, R2, -(SP) ;R0, DISCARD_FILE_FLAG, -(SP) 52 50 CB 00170 ; 7E 00173 CALLS #1, G^FILE_CLOSE ;#1, FILE_CLOSE 00000000G 00 01 FB 00174 BLBC R0, 28$ ;R0, 28$ 49 50 E9 0017B BLBC R2, 24$ ;DISCARD_FILE_FLAG, 24$ 3899 0F 52 E9 0017E BLBC (R5), 23$ ;ABT_FLAG, 23$ 3902 06 65 E9 00181 MOVZBL #88, R0 ;#88, SUB_TYPE 50 58 8F 9A 00184 BRB 26$ ;26$ 16 11 00188 23$: MOVZBL #68, R0 ;#68, SUB_TYPE 50 44 8F 9A 0018A BRB 26$ ;26$ 10 11 0018E 24$: MOVZBL #67, R0 ;#67, SUB_TYPE 3905 50 43 8F 9A 00190 BRB 26$ ;26$ 0A 11 00194 25$: CALLS #0, (R8) ;#0, TT_CRLF 3910 68 00 FB 00196 CALLS #0, G^TT_OUTPUT ;#0, TT_OUTPUT 3911 00000000G 00 00 FB 00199 26$: PUSHL R0 ;SUB_TYPE 3914 50 DD 001A0 MOVZBL #70, -(SP) ;#70, -(SP) 7E 46 8F 9A 001A2 CALLS #2, G^XFR_STATUS ;#2, XFR_STATUS 00000000G 00 02 FB 001A6 ADDL3 #1, (R3), R0 ;#1, MSG_NUMBER, R0 3915 63 01 C1 001AD ; 50 001B0 EXTZV #0, #6, R0, (R3) ;#0, #6, R0, MSG_NUMBER 06 00 EF 001B1 ; 63 50 001B4 MOVL #7, R0 ;#7, R0 3916 50 07 D0 001B6 RET ; 04 001B9 27$: PUSHL #134316226 ;#134316226 3921 080180C2 8F DD 001BA CALLS #1, G^KRM_ERROR ;#1, KRM_ERROR 00000000G 00 01 FB 001C0 28$: MOVL #10, R0 ;#10, R0 3922 50 0A D0 001C7 RET ; 04 001CA ; Routine Size: 459 bytes, Routine Base: $CODE$ + 1287 ; 3927 1 %SBTTL 'SERVER - Generic commands' ; 3928 1 ROUTINE SERVER_GENERIC = ; 3929 1 ; 3930 1 !++ ; 3931 1 ! FUNCTIONAL DESCRIPTION: ; 3932 1 ! ; 3933 1 ! This routine will handle the generic server messages. ; 3934 1 ! The generic server messages include FINISH, LOGOUT. ; 3935 1 ! ; 3936 1 ! CALLING SEQUENCE: ; 3937 1 ! ; 3938 1 ! STATE = SERVER_GENERIC(); ; 3939 1 ! ; 3940 1 ! INPUT PARAMETERS: ; 3941 1 ! ; 3942 1 ! None. ; 3943 1 ! ; 3944 1 ! IMPLICIT INPUTS: ; 3945 1 ! ; 3946 1 ! Generic message receive in REC_MSG. ; 3947 1 ! ; 3948 1 ! OUTPUT PARAMETERS: ; 3949 1 ! ; 3950 1 ! Returns new state for FSM ; 3951 1 ! ; 3952 1 ! IMPLICIT OUTPUTS: ; 3953 1 ! ; 3954 1 ! None. ; 3955 1 ! ; 3956 1 ! COMPLETION CODES: ; 3957 1 ! ; 3958 1 ! None. ; 3959 1 ! ; 3960 1 ! SIDE EFFECTS: ; 3961 1 ! ; 3962 1 ! None. ; 3963 1 ! ; 3964 1 !-- ; 3965 1 ; 3966 2 BEGIN ; 3967 2 ; 3968 2 LOCAL ; 3969 2 STATUS, ! Returned status ; 3970 2 G_FUNC, ! Generic command function ; 3971 2 POINTER, ! Character pointer ; 3972 2 DATA_TEXT : VECTOR [CH$ALLOCATION (MAX_MSG)], ! Unpacked message ; 3973 2 DATA_SIZE; ! Actual size of data ; 3974 2 ; 3975 2 ROUTINE UNPACK_DATA (POINTER, SIZE, DST_ADDR, DST_LEN) = ; 3976 2 ! ; 3977 2 ! Routine to unpack an argument. ; 3978 2 ! This will copy the argument data to the desired buffer. ; 3979 2 ! ; 3980 3 BEGIN ; 3981 3 ; 3982 3 IF .SIZE GTR 0 ! If we have something to unpack ; 3983 3 THEN ; 3984 4 BEGIN ; 3985 4 .DST_LEN = UNCHAR (CH$RCHAR_A (.POINTER)); ; 3986 4 ; 3987 4 IF ..DST_LEN LSS 0 ; 3988 4 THEN ; 3989 5 BEGIN ; 3990 5 KRM_ERROR (KER_PROTOERR); ! Someone screwed up ; 3991 5 ..DST_LEN = 0; ; 3992 5 RETURN -1; ; 3993 4 END; ; 3994 4 ; 3995 4 IF ..DST_LEN GTR .SIZE - 1 THEN .DST_LEN = .SIZE - 1; ; 3996 4 ; 3997 4 CH$COPY (..DST_LEN, ..POINTER, CHR_NUL, MAX_MSG, CH$PTR (.DST_ADDR)); ; 3998 4 .POINTER = CH$PLUS (..POINTER, ..DST_LEN); ; 3999 4 RETURN .SIZE - ..DST_LEN - 1; ; 4000 4 END ; 4001 3 ELSE ; 4002 3 ! ; 4003 3 ! If nothing left in buffer, return the current size (0) ; 4004 3 ! ; 4005 3 RETURN .SIZE; ; 4006 3 ; 4007 2 END; ;UNPACK_DATA U.81: .WORD ^M<R2,R3,R4,R5,R6> ;Save R2,R3,R4,R5,R6 3975 007C 00000 MOVL 8(AP), R6 ;SIZE, R6 3982 56 08 AC D0 00002 BLEQ 3$ ;3$ 50 15 00006 MOVL @4(AP), R1 ;@POINTER, R1 3985 51 04 BC D0 00008 MOVZBL (R1), R0 ;(R1), R0 50 61 9A 0000C INCL @4(AP) ;@POINTER 04 BC D6 0000F MOVAB -32(R0), @16(AP) ;-32(R0), @DST_LEN 10 BC E0 A0 9E 00012 MOVL @16(AP), R2 ;@DST_LEN, R2 3987 52 10 BC D0 00017 BGEQ 1$ ;1$ 13 18 0001B PUSHL #134316226 ;#134316226 3990 080180C2 8F DD 0001D CALLS #1, G^KRM_ERROR ;#1, KRM_ERROR 00000000G 00 01 FB 00023 CLRL (R2) ;(R2) 3991 62 D4 0002A MNEGL #1, R0 ;#1, R0 3992 50 01 CE 0002C RET ; 04 0002F 1$: MOVAB -1(R6), R0 ;-1(R6), R0 3995 50 FF A6 9E 00030 CMPL R2, R0 ;R2, R0 50 52 D1 00034 BLEQ 2$ ;2$ 04 15 00037 MOVL R0, @16(AP) ;R0, @DST_LEN 10 BC 50 D0 00039 2$: MOVL @4(AP), R0 ;@POINTER, R0 3997 50 04 BC D0 0003D MOVC5 @16(AP), (R0), #0, #1002, - ;@DST_LEN, (R0), #0, #1002, - 60 10 BC 2C 00041 @12(AP) ;@DST_ADDR 03EA 8F 00 00045 ; 0C BC 00049 ADDL2 @16(AP), @4(AP) ;@DST_LEN, @POINTER 3998 04 BC 10 BC C0 0004B SUBL3 @16(AP), R6, R0 ;@DST_LEN, R6, R0 3999 56 10 BC C3 00050 ; 50 00054 DECL R0 ;R0 50 D7 00055 RET ; 04 00057 3$: MOVL R6, R0 ;R6, R0 50 56 D0 00058 RET ; 4005 04 0005B ; Routine Size: 92 bytes, Routine Base: $CODE$ + 1452 ; 4008 2 ! ; 4009 2 ! First unpack the message data into its various pieces ; 4010 2 ! ; 4011 2 SET_STRING (CH$PTR (DATA_TEXT), MAX_MSG, TRUE); ! Initialize for unpacking ; 4012 2 BFR_EMPTY (); ! Unpack the data ; 4013 2 DATA_SIZE = SET_STRING (0, 0, FALSE); ! All done, get size ; 4014 2 ; 4015 2 IF .DATA_SIZE LEQ 0 ; 4016 2 THEN ; 4017 3 BEGIN ; 4018 3 KRM_ERROR (KER_PROTOERR); ! Someone screwed up ; 4019 3 RETURN STATE_A; ! Since no subtype ; 4020 2 END; ; 4021 2 ; 4022 2 ! ; 4023 2 ! Get the arguments from the unpacked data (if any) ; 4024 2 ! ; 4025 2 GEN_1SIZE = 0; ! Assume no args ; 4026 2 GEN_2SIZE = 0; ! none at all ; 4027 2 GEN_3SIZE = 0; ; 4028 2 CH$WCHAR (CHR_NUL, CH$PTR (GEN_1DATA)); ! Ensure all are null terminated ; 4029 2 CH$WCHAR (CHR_NUL, CH$PTR (GEN_2DATA)); ; 4030 2 CH$WCHAR (CHR_NUL, CH$PTR (GEN_3DATA)); ; 4031 2 POINTER = CH$PTR (DATA_TEXT, 1); ! Point at second character ; 4032 2 DATA_SIZE = .DATA_SIZE - 1; ! Account for subtype ; 4033 2 ; 4034 2 IF .DATA_SIZE GTR 0 ! Room for first arg? ; 4035 2 THEN ; 4036 3 BEGIN ; 4037 3 DATA_SIZE = UNPACK_DATA (POINTER, .DATA_SIZE, GEN_1DATA, GEN_1SIZE); ; 4038 3 ; 4039 3 IF .DATA_SIZE LSS 0 THEN RETURN STATE_A; ! Punt if bad arguments ; 4040 3 ; 4041 3 IF .DATA_SIZE GTR 0 ! Second argument present? ; 4042 3 THEN ; 4043 4 BEGIN ; 4044 4 DATA_SIZE = UNPACK_DATA (POINTER, .DATA_SIZE, GEN_2DATA, GEN_2SIZE); ; 4045 4 ; 4046 4 IF .DATA_SIZE LSS 0 THEN RETURN STATE_A; ! Punt if bad arguments ; 4047 4 ; 4048 4 IF .DATA_SIZE GTR 0 ! Third argument here? ; 4049 4 THEN ; 4050 5 BEGIN ; 4051 5 DATA_SIZE = UNPACK_DATA (POINTER, .DATA_SIZE, GEN_3DATA, GEN_3SIZE); ; 4052 5 ; 4053 5 IF .DATA_SIZE LSS 0 THEN RETURN STATE_A; ! Punt if bad arguments ; 4054 5 ; 4055 4 END; ; 4056 4 ; 4057 3 END; ; 4058 3 ; 4059 2 END; ; 4060 2 ; 4061 2 SELECTONE CH$RCHAR (CH$PTR (DATA_TEXT)) OF ; 4062 2 SET ; 4063 2 ! ; 4064 2 ! EXIT command, just return the status to the upper level ; 4065 2 ! ; 4066 2 ; 4067 2 [MSG_GEN_EXIT] : ; 4068 3 BEGIN ; 4069 3 SEND_PACKET (MSG_ACK, 0, .REC_SEQ); ; 4070 3 RETURN STATE_FI; ; 4071 2 END; ; 4072 2 ! ; 4073 2 ! LOGOUT command, ACK the message then call the system routine to ; 4074 2 ! kill the process (log the job out, etc.) ; 4075 2 ! ; 4076 2 ; 4077 2 [MSG_GEN_LOGOUT] : ; 4078 3 BEGIN ; 4079 3 SEND_PACKET (MSG_ACK, 0, .REC_SEQ); ; 4080 3 SY_LOGOUT (); ; 4081 3 RETURN STATE_LG; ; 4082 2 END; ; 4083 2 ! ; 4084 2 ! For a type command, just set up a transfer flagging we want a text header ; 4085 2 ! instead of a file header. ; 4086 2 ! ; 4087 2 ; 4088 2 [MSG_GEN_TYPE] : ; 4089 3 BEGIN ; 4090 3 CH$COPY (.GEN_1SIZE, CH$PTR (GEN_1DATA), CHR_NUL, MAX_FILE_NAME, CH$PTR (FILE_NAME)); ; 4091 3 FILE_SIZE = .GEN_1SIZE; ; 4092 3 TEXT_HEAD_FLAG = TRUE; ! Now want text header ; 4093 3 XFR_STATUS (%C'I', %C'G'); ! Tell display routine we are doing a command ; 4094 3 ; 4095 3 IF .STATE EQL STATE_II AND .BLK_CHK_TYPE EQL .INI_CHK_TYPE ; 4096 3 THEN ; 4097 3 RETURN STATE_OF ! Must open the file ; 4098 3 ELSE ; 4099 3 RETURN STATE_S; ! Start the transaction with a send ; 4100 3 ; 4101 2 END; ; 4102 2 ; 4103 2 [MSG_GEN_DIRECTORY] : ; 4104 2 G_FUNC = GC_DIRECTORY; ; 4105 2 ; 4106 2 [MSG_GEN_DISK_USAGE] : ; 4107 2 G_FUNC = GC_DISK_USAGE; ; 4108 2 ; 4109 2 [MSG_GEN_DELETE] : ; 4110 2 G_FUNC = GC_DELETE; ; 4111 2 ; 4112 2 [MSG_GEN_HELP] : ; 4113 2 G_FUNC = GC_HELP; ; 4114 2 ; 4115 2 [MSG_GEN_LOGIN] : ; 4116 2 G_FUNC = GC_LGN; ; 4117 2 ; 4118 2 [MSG_GEN_CONNECT] : ; 4119 2 G_FUNC = GC_CONNECT; ; 4120 2 ; 4121 2 [MSG_GEN_RENAME] : ; 4122 2 G_FUNC = GC_RENAME; ; 4123 2 ; 4124 2 [MSG_GEN_COPY] : ; 4125 2 G_FUNC = GC_COPY; ; 4126 2 ; 4127 2 [MSG_GEN_WHO] : ; 4128 2 G_FUNC = GC_WHO; ; 4129 2 ; 4130 2 [MSG_GEN_SEND] : ; 4131 2 G_FUNC = GC_SEND_MSG; ; 4132 2 ; 4133 2 [MSG_GEN_QUERY] : ; 4134 2 G_FUNC = GC_STATUS; ; 4135 2 ; 4136 2 [MSG_GEN_PROGRAM] : ; 4137 2 G_FUNC = GC_PROGRAM; ; 4138 2 ; 4139 2 [MSG_GEN_JOURNAL] : ; 4140 2 G_FUNC = GC_JOURNAL; ; 4141 2 ; 4142 2 [MSG_GEN_VARIABLE] : ; 4143 2 G_FUNC = GC_VARIABLE; ; 4144 2 ! ; 4145 2 ! Here if we have a function that is not implemented in KERMSG. ; 4146 2 ! ; 4147 2 ; 4148 2 [OTHERWISE] : ; 4149 3 BEGIN ; 4150 3 KRM_ERROR (KER_UNIMPLGEN); ; 4151 3 RETURN STATE_A; ; 4152 2 END; ; 4153 2 TES; ; 4154 2 ; 4155 2 ! ; 4156 2 ! If we get here, we have gotten a known type of generic message that ; 4157 2 ! we need to have our operating system dependent routine handle. ; 4158 2 ! ; 4159 2 RETURN CALL_SY_RTN (.G_FUNC); ; 4160 1 END; ! End of SERVER_GENERIC ;SERVER_GENERIC U.14: .WORD ^M<R2,R3,R4,R5,R6,R7,R8,R9,R10,- ;Save R2,R3,R4,R5,R6,R7,R8,R9,R10,- 3928 0FFC 00000 R11> ;R11 MOVAB B^U.81, R11 ;U.81, R11 5B 9F AF 9E 00002 MOVAB G^GEN_1DATA, R10 ;GEN_1DATA, R10 5A 00000000G 00 9E 00006 MOVAB G^GEN_1SIZE, R9 ;GEN_1SIZE, R9 59 00000000G 00 9E 0000D MOVAB G^U.56, R8 ;U.56, R8 58 00000000' 00 9E 00014 MOVAB -1008(SP), SP ;-1008(SP), SP 5E FC10 CE 9E 0001B PUSHL #1 ;#1 4011 01 DD 00020 MOVZWL #1002, -(SP) ;#1002, -(SP) 7E 03EA 8F 3C 00022 PUSHAB 12(SP) ;DATA_TEXT 0C AE 9F 00027 CALLS #3, G^U.30 ;#3, U.30 00000000V 00 03 FB 0002A CALLS #0, G^U.28 ;#0, U.28 4012 00000000V 00 00 FB 00031 CLRQ -(SP) ;-(SP) 4013 7E 7C 00038 CLRL -(SP) ;-(SP) 7E D4 0003A CALLS #3, G^U.30 ;#3, U.30 00000000V 00 03 FB 0003C MOVL R0, R2 ;R0, DATA_SIZE 52 50 D0 00043 BGTR 1$ ;1$ 4015 09 14 00046 PUSHL #134316226 ;#134316226 4018 080180C2 8F DD 00048 BRW 25$ ;25$ 0191 31 0004E 1$: CLRL (R9) ;GEN_1SIZE 4025 69 D4 00051 CLRL G^GEN_2SIZE ;GEN_2SIZE 4026 00000000G 00 D4 00053 CLRL G^GEN_3SIZE ;GEN_3SIZE 4027 00000000G 00 D4 00059 CLRB (R10) ;GEN_1DATA 4028 6A 94 0005F CLRB G^GEN_2DATA ;GEN_2DATA 4029 00000000G 00 94 00061 CLRB G^GEN_3DATA ;GEN_3DATA 4030 00000000G 00 94 00067 MOVAB 5(SP), (SP) ;DATA_TEXT+1, POINTER 4031 6E 05 AE 9E 0006D DECL R2 ;DATA_SIZE 4032 52 D7 00071 BLEQ 3$ ;3$ 4034 4A 15 00073 PUSHL R9 ;R9 4037 59 DD 00075 PUSHR #^M<R2,R10> ;#^M<R2,R10> 0404 8F BB 00077 PUSHAB 12(SP) ;POINTER 0C AE 9F 0007B CALLS #4, (R11) ;#4, UNPACK_DATA 6B 04 FB 0007E MOVL R0, R2 ;R0, DATA_SIZE 52 50 D0 00081 BLSS 2$ ;2$ 4039 34 19 00084 BLEQ 3$ ;3$ 4041 37 15 00086 PUSHAB G^GEN_2SIZE ;GEN_2SIZE 4044 00000000G 00 9F 00088 PUSHAB G^GEN_2DATA ;GEN_2DATA 00000000G 00 9F 0008E PUSHL R2 ;DATA_SIZE 52 DD 00094 PUSHAB 12(SP) ;POINTER 0C AE 9F 00096 CALLS #4, (R11) ;#4, UNPACK_DATA 6B 04 FB 00099 MOVL R0, R2 ;R0, DATA_SIZE 52 50 D0 0009C BLSS 2$ ;2$ 4046 19 19 0009F BLEQ 3$ ;3$ 4048 1C 15 000A1 PUSHAB G^GEN_3SIZE ;GEN_3SIZE 4051 00000000G 00 9F 000A3 PUSHAB G^GEN_3DATA ;GEN_3DATA 00000000G 00 9F 000A9 PUSHL R2 ;DATA_SIZE 52 DD 000AF PUSHAB 12(SP) ;POINTER 0C AE 9F 000B1 CALLS #4, (R11) ;#4, UNPACK_DATA 6B 04 FB 000B4 MOVL R0, R2 ;R0, DATA_SIZE 52 50 D0 000B7 2$: BGEQ 3$ ;3$ 4053 03 18 000BA BRW 26$ ;26$ 012A 31 000BC 3$: MOVZBL 4(SP), R6 ;DATA_TEXT, R6 4061 56 04 AE 9A 000BF CMPB R6, #70 ;R6, #70 4067 46 8F 56 91 000C3 BNEQ 4$ ;4$ 13 12 000C7 PUSHL (R8) ;REC_SEQ 4069 68 DD 000C9 CLRL -(SP) ;-(SP) 7E D4 000CB MOVZBL #89, -(SP) ;#89, -(SP) 7E 59 8F 9A 000CD CALLS #3, G^U.24 ;#3, U.24 00000000V 00 03 FB 000D1 MOVL #16, R0 ;#16, R0 4070 50 10 D0 000D8 RET ; 04 000DB 4$: CMPB R6, #76 ;R6, #76 4077 4C 8F 56 91 000DC BNEQ 5$ ;5$ 1A 12 000E0 PUSHL (R8) ;REC_SEQ 4079 68 DD 000E2 CLRL -(SP) ;-(SP) 7E D4 000E4 MOVZBL #89, -(SP) ;#89, -(SP) 7E 59 8F 9A 000E6 CALLS #3, G^U.24 ;#3, U.24 00000000V 00 03 FB 000EA CALLS #0, G^SY_LOGOUT ;#0, SY_LOGOUT 4080 00000000G 00 00 FB 000F1 MOVL #17, R0 ;#17, R0 4081 50 11 D0 000F8 RET ; 04 000FB 5$: CMPB R6, #84 ;R6, #84 4088 54 8F 56 91 000FC BNEQ 7$ ;7$ 3F 12 00100 MOVL (R9), R7 ;GEN_1SIZE, R7 4090 57 69 D0 00102 MOVC5 R7, (R10), #0, #132, G^FILE_NAME ;R7, GEN_1DATA, #0, #132, FILE_NAME 6A 57 2C 00105 ; 0084 8F 00 00108 ; 00000000G 00 0010C MOVL R7, G^FILE_SIZE ;R7, FILE_SIZE 4091 00000000G 00 57 D0 00111 MOVL #1, 2024(R8) ;#1, TEXT_HEAD_FLAG 4092 07E8 C8 01 D0 00118 MOVZBL #71, -(SP) ;#71, -(SP) 4093 7E 47 8F 9A 0011D MOVZBL #73, -(SP) ;#73, -(SP) 7E 49 8F 9A 00121 CALLS #2, G^XFR_STATUS ;#2, XFR_STATUS 00000000G 00 02 FB 00125 CMPL -20(R8), #15 ;STATE, #15 4095 0F EC A8 D1 0012C BNEQ 6$ ;6$ 0B 12 00130 CMPL -32(R8), -36(R8) ;BLK_CHK_TYPE, INI_CHK_TYPE DC A8 E0 A8 D1 00132 BNEQ 6$ ;6$ 04 12 00137 MOVL #18, R0 ;#18, R0 4097 50 12 D0 00139 RET ; 04 0013C 6$: MOVL #1, R0 ;#1, R0 4099 50 01 D0 0013D RET ; 04 00140 7$: CMPB R6, #68 ;R6, #68 4103 44 8F 56 91 00141 BNEQ 8$ ;8$ 06 12 00145 MOVL #2, R2 ;#2, G_FUNC 4104 52 02 D0 00147 BRW 21$ ;21$ 0082 31 0014A 8$: CMPB R6, #85 ;R6, #85 4106 55 8F 56 91 0014D BNEQ 9$ ;9$ 05 12 00151 MOVL #3, R2 ;#3, G_FUNC 4107 52 03 D0 00153 BRB 10$ ;10$ 09 11 00156 9$: CMPB R6, #69 ;R6, #69 4109 45 8F 56 91 00158 BNEQ 11$ ;11$ 05 12 0015C MOVL #4, R2 ;#4, G_FUNC 4110 52 04 D0 0015E 10$: BRB 23$ ;23$ 77 11 00161 11$: CMPB R6, #72 ;R6, #72 4112 48 8F 56 91 00163 BNEQ 12$ ;12$ 05 12 00167 MOVL #6, R2 ;#6, G_FUNC 4113 52 06 D0 00169 BRB 27$ ;27$ 7F 11 0016C 12$: CMPB R6, #73 ;R6, #73 4115 49 8F 56 91 0016E BNEQ 13$ ;13$ 05 12 00172 MOVL #8, R2 ;#8, G_FUNC 4116 52 08 D0 00174 BRB 27$ ;27$ 74 11 00177 13$: CMPB R6, #67 ;R6, #67 4118 43 8F 56 91 00179 BNEQ 14$ ;14$ 05 12 0017D MOVL #9, R2 ;#9, G_FUNC 4119 52 09 D0 0017F BRB 27$ ;27$ 69 11 00182 14$: CMPB R6, #82 ;R6, #82 4121 52 8F 56 91 00184 BNEQ 15$ ;15$ 05 12 00188 MOVL #10, R2 ;#10, G_FUNC 4122 52 0A D0 0018A BRB 27$ ;27$ 5E 11 0018D 15$: CMPB R6, #75 ;R6, #75 4124 4B 8F 56 91 0018F BNEQ 16$ ;16$ 05 12 00193 MOVL #11, R2 ;#11, G_FUNC 4125 52 0B D0 00195 BRB 27$ ;27$ 53 11 00198 16$: CMPB R6, #87 ;R6, #87 4127 57 8F 56 91 0019A BNEQ 17$ ;17$ 05 12 0019E MOVL #12, R2 ;#12, G_FUNC 4128 52 0C D0 001A0 BRB 27$ ;27$ 48 11 001A3 17$: CMPB R6, #77 ;R6, #77 4130 4D 8F 56 91 001A5 BNEQ 18$ ;18$ 05 12 001A9 MOVL #13, R2 ;#13, G_FUNC 4131 52 0D D0 001AB BRB 27$ ;27$ 3D 11 001AE 18$: CMPB R6, #81 ;R6, #81 4133 51 8F 56 91 001B0 BNEQ 19$ ;19$ 05 12 001B4 MOVL #14, R2 ;#14, G_FUNC 4134 52 0E D0 001B6 BRB 27$ ;27$ 32 11 001B9 19$: CMPB R6, #80 ;R6, #80 4136 50 8F 56 91 001BB BNEQ 20$ ;20$ 05 12 001BF MOVL #19, R2 ;#19, G_FUNC 4137 52 13 D0 001C1 BRB 27$ ;27$ 27 11 001C4 20$: CMPB R6, #74 ;R6, #74 4139 4A 8F 56 91 001C6 BNEQ 22$ ;22$ 05 12 001CA MOVL #17, R2 ;#17, G_FUNC 4140 52 11 D0 001CC 21$: BRB 27$ ;27$ 1C 11 001CF 22$: CMPB R6, #86 ;R6, #86 4142 56 8F 56 91 001D1 BNEQ 24$ ;24$ 05 12 001D5 MOVL #18, R2 ;#18, G_FUNC 4143 52 12 D0 001D7 23$: BRB 27$ ;27$ 11 11 001DA 24$: PUSHL #134316210 ;#134316210 4150 080180B2 8F DD 001DC 25$: CALLS #1, G^KRM_ERROR ;#1, KRM_ERROR 00000000G 00 01 FB 001E2 26$: MOVL #10, R0 ;#10, R0 4151 50 0A D0 001E9 RET ; 04 001EC 27$: PUSHL R2 ;G_FUNC 4159 52 DD 001ED CALLS #1, G^U.17 ;#1, U.17 00000000V 00 01 FB 001EF RET ; 04 001F6 ; Routine Size: 503 bytes, Routine Base: $CODE$ + 14AE ; 4161 1 %SBTTL 'HOST_COMMAND - perform a host command' ; 4162 1 ROUTINE HOST_COMMAND = ; 4163 1 ; 4164 1 !++ ; 4165 1 ! FUNCTIONAL DESCRIPTION: ; 4166 1 ! ; 4167 1 ! This routine will handle the host command packet. ; 4168 1 ! It will set up the data for the call to the system routine. ; 4169 1 ! ; 4170 1 ! CALLING SEQUENCE: ; 4171 1 ! ; 4172 1 ! STATE = HOST_COMMAND(); ; 4173 1 ! ; 4174 1 ! INPUT PARAMETERS: ; 4175 1 ! ; 4176 1 ! None. ; 4177 1 ! ; 4178 1 ! IMPLICIT INPUTS: ; 4179 1 ! ; 4180 1 ! Generic message receive in REC_MSG. ; 4181 1 ! ; 4182 1 ! OUTPUT PARAMETERS: ; 4183 1 ! ; 4184 1 ! Returns new state for FSM ; 4185 1 ! ; 4186 1 ! IMPLICIT OUTPUTS: ; 4187 1 ! ; 4188 1 ! None. ; 4189 1 ! ; 4190 1 ! COMPLETION CODES: ; 4191 1 ! ; 4192 1 ! None. ; 4193 1 ! ; 4194 1 ! SIDE EFFECTS: ; 4195 1 ! ; 4196 1 ! None. ; 4197 1 ! ; 4198 1 !-- ; 4199 1 ; 4200 2 BEGIN ; 4201 2 GEN_1SIZE = 0; ; 4202 2 GEN_2SIZE = 0; ; 4203 2 GEN_3SIZE = 0; ; 4204 2 ; 4205 2 IF .REC_LENGTH LEQ 0 ; 4206 2 THEN ; 4207 3 BEGIN ; 4208 3 KRM_ERROR (KER_PROTOERR); ! Return an error ; 4209 3 RETURN STATE_A; ! Just abort ; 4210 2 END; ; 4211 2 ; 4212 2 SET_STRING (CH$PTR (GEN_1DATA), MAX_MSG, TRUE); ! Start writing to buffer ; 4213 2 BFR_EMPTY (); ! Dump the text ; 4214 2 GEN_1SIZE = SET_STRING (0, 0, FALSE); ! Get the result ; 4215 2 RETURN CALL_SY_RTN (GC_COMMAND); ; 4216 1 END; ! End of HOST_COMMAND ;HOST_COMMAND U.15: .WORD ^M<R2,R3> ;Save R2,R3 4162 000C 00000 MOVAB G^GEN_1SIZE, R3 ;GEN_1SIZE, R3 53 00000000G 00 9E 00002 MOVAB G^U.30, R2 ;U.30, R2 52 00000000V 00 9E 00009 CLRL (R3) ;GEN_1SIZE 4201 63 D4 00010 CLRL G^GEN_2SIZE ;GEN_2SIZE 4202 00000000G 00 D4 00012 CLRL G^GEN_3SIZE ;GEN_3SIZE 4203 00000000G 00 D4 00018 TSTL G^U.57 ;U.57 4205 00000000' 00 D5 0001E BGTR 1$ ;1$ 11 14 00024 PUSHL #134316226 ;#134316226 4208 080180C2 8F DD 00026 CALLS #1, G^KRM_ERROR ;#1, KRM_ERROR 00000000G 00 01 FB 0002C MOVL #10, R0 ;#10, R0 4209 50 0A D0 00033 RET ; 04 00036 1$: PUSHL #1 ;#1 4212 01 DD 00037 MOVZWL #1002, -(SP) ;#1002, -(SP) 7E 03EA 8F 3C 00039 PUSHAB G^GEN_1DATA ;GEN_1DATA 00000000G 00 9F 0003E CALLS #3, (R2) ;#3, SET_STRING 62 03 FB 00044 CALLS #0, G^U.28 ;#0, U.28 4213 00000000V 00 00 FB 00047 CLRQ -(SP) ;-(SP) 4214 7E 7C 0004E CLRL -(SP) ;-(SP) 7E D4 00050 CALLS #3, (R2) ;#3, SET_STRING 62 03 FB 00052 MOVL R0, (R3) ;R0, GEN_1SIZE 63 50 D0 00055 PUSHL #15 ;#15 4215 0F DD 00058 CALLS #1, G^U.17 ;#1, U.17 00000000V 00 01 FB 0005A RET ; 04 00061 ; Routine Size: 98 bytes, Routine Base: $CODE$ + 16A5 ; 4217 1 %SBTTL 'KERMIT_COMMAND - perform a KERMIT command' ; 4218 1 ROUTINE KERMIT_COMMAND = ; 4219 1 ; 4220 1 !++ ; 4221 1 ! FUNCTIONAL DESCRIPTION: ; 4222 1 ! ; 4223 1 ! This routine will handle the KERMIT command packet. ; 4224 1 ! It will set up the data for the call to the system routine. ; 4225 1 ! ; 4226 1 ! CALLING SEQUENCE: ; 4227 1 ! ; 4228 1 ! STATE = KERMIT_COMMAND(); ; 4229 1 ! ; 4230 1 ! INPUT PARAMETERS: ; 4231 1 ! ; 4232 1 ! None. ; 4233 1 ! ; 4234 1 ! IMPLICIT INPUTS: ; 4235 1 ! ; 4236 1 ! Generic message receive in REC_MSG. ; 4237 1 ! ; 4238 1 ! OUTPUT PARAMETERS: ; 4239 1 ! ; 4240 1 ! Returns new state for FSM ; 4241 1 ! ; 4242 1 ! IMPLICIT OUTPUTS: ; 4243 1 ! ; 4244 1 ! None. ; 4245 1 ! ; 4246 1 ! COMPLETION CODES: ; 4247 1 ! ; 4248 1 ! None. ; 4249 1 ! ; 4250 1 ! SIDE EFFECTS: ; 4251 1 ! ; 4252 1 ! None. ; 4253 1 ! ; 4254 1 !-- ; 4255 1 ; 4256 2 BEGIN ; 4257 2 GEN_1SIZE = 0; ; 4258 2 GEN_2SIZE = 0; ; 4259 2 GEN_3SIZE = 0; ; 4260 2 ; 4261 2 IF .REC_LENGTH LEQ 0 ; 4262 2 THEN ; 4263 3 BEGIN ; 4264 3 KRM_ERROR (KER_PROTOERR); ! Return an error ; 4265 3 RETURN STATE_A; ! Just abort ; 4266 2 END; ; 4267 2 ; 4268 2 SET_STRING (CH$PTR (GEN_1DATA), MAX_MSG, TRUE); ! Start writing to buffer ; 4269 2 BFR_EMPTY (); ! Dump the text ; 4270 2 GEN_1SIZE = SET_STRING (0, 0, FALSE); ! Get the result ; 4271 2 RETURN CALL_SY_RTN (GC_KERMIT); ; 4272 1 END; ! End of KERMIT_COMMAND ;KERMIT_COMMAND U.16: .WORD ^M<R2,R3> ;Save R2,R3 4218 000C 00000 MOVAB G^GEN_1SIZE, R3 ;GEN_1SIZE, R3 53 00000000G 00 9E 00002 MOVAB G^U.30, R2 ;U.30, R2 52 00000000V 00 9E 00009 CLRL (R3) ;GEN_1SIZE 4257 63 D4 00010 CLRL G^GEN_2SIZE ;GEN_2SIZE 4258 00000000G 00 D4 00012 CLRL G^GEN_3SIZE ;GEN_3SIZE 4259 00000000G 00 D4 00018 TSTL G^U.57 ;U.57 4261 00000000' 00 D5 0001E BGTR 1$ ;1$ 11 14 00024 PUSHL #134316226 ;#134316226 4264 080180C2 8F DD 00026 CALLS #1, G^KRM_ERROR ;#1, KRM_ERROR 00000000G 00 01 FB 0002C MOVL #10, R0 ;#10, R0 4265 50 0A D0 00033 RET ; 04 00036 1$: PUSHL #1 ;#1 4268 01 DD 00037 MOVZWL #1002, -(SP) ;#1002, -(SP) 7E 03EA 8F 3C 00039 PUSHAB G^GEN_1DATA ;GEN_1DATA 00000000G 00 9F 0003E CALLS #3, (R2) ;#3, SET_STRING 62 03 FB 00044 CALLS #0, G^U.28 ;#0, U.28 4269 00000000V 00 00 FB 00047 CLRQ -(SP) ;-(SP) 4270 7E 7C 0004E CLRL -(SP) ;-(SP) 7E D4 00050 CALLS #3, (R2) ;#3, SET_STRING 62 03 FB 00052 MOVL R0, (R3) ;R0, GEN_1SIZE 63 50 D0 00055 PUSHL #16 ;#16 4271 10 DD 00058 CALLS #1, G^U.17 ;#1, U.17 00000000V 00 01 FB 0005A RET ; 04 00061 ; Routine Size: 98 bytes, Routine Base: $CODE$ + 1707 ; 4273 1 %SBTTL 'CALL_SY_RTN - handle operating system dependent functions' ; 4274 1 ROUTINE CALL_SY_RTN (G_FUNC) = ; 4275 1 ; 4276 1 !++ ; 4277 1 ! FUNCTIONAL DESCRIPTION: ; 4278 1 ! ; 4279 1 ! This routine will handle calling the operating system dependent routine ; 4280 1 ! for a server function and returning the response. ; 4281 1 ! ; 4282 1 ! CALLING SEQUENCE: ; 4283 1 ! ; 4284 1 ! STATE = CALL_SY_RTN(.G_FUNC); ; 4285 1 ! ; 4286 1 ! INPUT PARAMETERS: ; 4287 1 ! ; 4288 1 ! G_FUNC - Generic function code ; 4289 1 ! ; 4290 1 ! IMPLICIT INPUTS: ; 4291 1 ! ; 4292 1 ! Generic message data in GEN_1DATA ; 4293 1 ! ; 4294 1 ! OUTPUT PARAMETERS: ; 4295 1 ! ; 4296 1 ! Returns new state for FSM ; 4297 1 ! ; 4298 1 ! IMPLICIT OUTPUTS: ; 4299 1 ! ; 4300 1 ! None. ; 4301 1 ! ; 4302 1 ! COMPLETION CODES: ; 4303 1 ! ; 4304 1 ! None. ; 4305 1 ! ; 4306 1 ! SIDE EFFECTS: ; 4307 1 ! ; 4308 1 ! None. ; 4309 1 ! ; 4310 1 !-- ; 4311 1 ; 4312 2 BEGIN ; 4313 2 ; 4314 2 LOCAL ; 4315 2 STRING_ADDRESS, ! Address of string result ; 4316 2 STRING_LENGTH, ! Length of string result ; 4317 2 GET_CHR_SUBROUTINE, ! Routine to get a response character ; 4318 2 STATUS; ! Status value ; 4319 2 ; 4320 2 ! ; 4321 2 ! Call the routine with the desired type of command. ; 4322 2 ! ; 4323 2 STRING_LENGTH = 0; ! Initialize for no string ; 4324 2 GET_CHR_SUBROUTINE = 0; ! And no subroutine ; 4325 2 ; 4326 2 IF NOT SY_GENERIC (.G_FUNC, STRING_ADDRESS, STRING_LENGTH, GET_CHR_SUBROUTINE) ; 4327 2 THEN ; 4328 2 RETURN STATE_A; ! And abort ; 4329 2 ; 4330 2 IF .STRING_LENGTH GTR 0 ; 4331 2 THEN ; 4332 3 BEGIN ; 4333 3 SET_STRING (CH$PTR (.STRING_ADDRESS), .STRING_LENGTH, TRUE); ; 4334 3 ; 4335 3 IF .STRING_LENGTH LSS .SEND_PKT_SIZE - PKT_OVR_HEAD ; 4336 3 THEN ; 4337 4 BEGIN ; 4338 4 BFR_FILL (TRUE); ! If it should fit, pack it in ; 4339 4 ; 4340 4 IF SET_STRING (0, 0, FALSE) GEQ .STRING_LENGTH ; 4341 4 THEN ! It fit, so just send the ACK ; 4342 4 ; 4343 4 IF SEND_PACKET (MSG_ACK, .SIZE, .REC_SEQ) THEN RETURN STATE_C ELSE RETURN STATE_EX; ; 4344 4 ; 4345 4 ! ; 4346 4 ! It didn't fit, reset the pointers to the beginning ; 4347 4 ! ; 4348 4 SET_STRING (CH$PTR (.STRING_ADDRESS), .STRING_LENGTH, TRUE); ; 4349 3 END; ; 4350 3 ; 4351 3 NO_FILE_NEEDED = TRUE; ! Don't need a file ; 4352 3 END ; 4353 2 ELSE ; 4354 2 ; 4355 2 IF .GET_CHR_SUBROUTINE NEQ 0 ! If we got a subroutine back ; 4356 2 THEN ; 4357 3 BEGIN ; 4358 3 GET_CHR_ROUTINE = .GET_CHR_SUBROUTINE; ; 4359 3 NO_FILE_NEEDED = TRUE; ; 4360 2 END; ; 4361 2 ; 4362 2 TEXT_HEAD_FLAG = TRUE; ! Send to be typed ; 4363 2 XFR_STATUS (%C'I', %C'G'); ! Doing a generic command ; 4364 2 ; 4365 2 IF .STATE EQL STATE_II AND .BLK_CHK_TYPE EQL .INI_CHK_TYPE ; 4366 2 THEN ; 4367 2 RETURN STATE_OF ; 4368 2 ELSE ; 4369 2 RETURN STATE_S; ! Send the response ; 4370 2 ; 4371 1 END; ! End of CALL_SY_RTN ;CALL_SY_RTN U.17: .WORD ^M<R2,R3,R4> ;Save R2,R3,R4 4274 001C 00000 MOVAB G^U.30, R4 ;U.30, R4 54 00000000V 00 9E 00002 MOVAB G^U.40, R3 ;U.40, R3 53 00000000' 00 9E 00009 SUBL2 #4, SP ;#4, SP 5E 04 C2 00010 CLRQ -(SP) ;GET_CHR_SUBROUTINE 4324 7E 7C 00013 PUSHL SP ;SP 4326 5E DD 00015 PUSHAB 8(SP) ;STRING_LENGTH 08 AE 9F 00017 PUSHAB 16(SP) ;STRING_ADDRESS 10 AE 9F 0001A PUSHL 4(AP) ;G_FUNC 04 AC DD 0001D CALLS #4, G^SY_GENERIC ;#4, SY_GENERIC 00000000G 00 04 FB 00020 BLBS R0, 1$ ;R0, 1$ 04 50 E8 00027 MOVL #10, R0 ;#10, R0 4328 50 0A D0 0002A RET ; 04 0002D 1$: MOVL 4(SP), R2 ;STRING_LENGTH, R2 4330 52 04 AE D0 0002E BLEQ 4$ ;4$ 50 15 00032 PUSHL #1 ;#1 4333 01 DD 00034 PUSHL R2 ;R2 52 DD 00036 PUSHL 16(SP) ;STRING_ADDRESS 10 AE DD 00038 CALLS #3, (R4) ;#3, SET_STRING 64 03 FB 0003B SUBL3 #3, (R3), R0 ;#3, SEND_PKT_SIZE, R0 4335 63 03 C3 0003E ; 50 00041 CMPL R2, R0 ;R2, R0 50 52 D1 00042 BGEQ 5$ ;5$ 46 18 00045 PUSHL #1 ;#1 4338 01 DD 00047 CALLS #1, G^U.29 ;#1, U.29 00000000V 00 01 FB 00049 CLRQ -(SP) ;-(SP) 4340 7E 7C 00050 CLRL -(SP) ;-(SP) 7E D4 00052 CALLS #3, (R4) ;#3, SET_STRING 64 03 FB 00054 CMPL R0, R2 ;R0, R2 52 50 D1 00057 BLSS 3$ ;3$ 1C 19 0005A PUSHL 64(R3) ;REC_SEQ 4343 40 A3 DD 0005C PUSHL 48(R3) ;SIZE 30 A3 DD 0005F MOVZBL #89, -(SP) ;#89, -(SP) 7E 59 8F 9A 00062 CALLS #3, G^U.24 ;#3, U.24 00000000V 00 03 FB 00066 BLBC R0, 2$ ;R0, 2$ 04 50 E9 0006D MOVL #9, R0 ;#9, R0 50 09 D0 00070 RET ; 04 00073 2$: MOVL #19, R0 ;#19, R0 50 13 D0 00074 RET ; 04 00077 3$: PUSHL #1 ;#1 4348 01 DD 00078 PUSHL R2 ;R2 52 DD 0007A PUSHL 16(SP) ;STRING_ADDRESS 10 AE DD 0007C CALLS #3, (R4) ;#3, SET_STRING 64 03 FB 0007F BRB 5$ ;5$ 4351 09 11 00082 4$: TSTL (SP) ;GET_CHR_SUBROUTINE 4355 6E D5 00084 BEQL 6$ ;6$ 0A 13 00086 MOVL (SP), 2108(R3) ;GET_CHR_SUBROUTINE, GET_CHR_ROUTINE 4358 083C C3 6E D0 00088 5$: MOVL #1, 2092(R3) ;#1, NO_FILE_NEEDED 4359 082C C3 01 D0 0008D 6$: MOVL #1, 2088(R3) ;#1, TEXT_HEAD_FLAG 4362 0828 C3 01 D0 00092 MOVZBL #71, -(SP) ;#71, -(SP) 4363 7E 47 8F 9A 00097 MOVZBL #73, -(SP) ;#73, -(SP) 7E 49 8F 9A 0009B CALLS #2, G^XFR_STATUS ;#2, XFR_STATUS 00000000G 00 02 FB 0009F CMPL 44(R3), #15 ;STATE, #15 4365 0F 2C A3 D1 000A6 BNEQ 7$ ;7$ 0B 12 000AA CMPL 32(R3), 28(R3) ;BLK_CHK_TYPE, INI_CHK_TYPE 1C A3 20 A3 D1 000AC BNEQ 7$ ;7$ 04 12 000B1 MOVL #18, R0 ;#18, R0 4367 50 12 D0 000B3 RET ; 04 000B6 7$: MOVL #1, R0 ;#1, R0 4369 50 01 D0 000B7 RET ; 04 000BA ; Routine Size: 187 bytes, Routine Base: $CODE$ + 1769 ; 4372 1 %SBTTL 'Message processing -- PRS_SEND_INIT - Parse send init params' ; 4373 1 ROUTINE PRS_SEND_INIT = ; 4374 1 ; 4375 1 !++ ; 4376 1 ! FUNCTIONAL DESCRIPTION: ; 4377 1 ! ; 4378 1 ! This routine will parse the SEND_INIT parameters that were sent by ; 4379 1 ! the remote Kermit. The items will be stored into the low segment. ; 4380 1 ! ; 4381 1 ! CALLING SEQUENCE: ; 4382 1 ! ; 4383 1 ! PRS_SEND_INIT (); ; 4384 1 ! ; 4385 1 ! INPUT PARAMETERS: ; 4386 1 ! ; 4387 1 ! None. ; 4388 1 ! ; 4389 1 ! IMPLICIT INPUTS: ; 4390 1 ! ; 4391 1 ! Message stored in REC_MSG. ; 4392 1 ! ; 4393 1 ! OUTPUT PARAMETERS: ; 4394 1 ! ; 4395 1 ! None. ; 4396 1 ! ; 4397 1 ! IMPLICIT OUTPUTS: ; 4398 1 ! ; 4399 1 ! None. ; 4400 1 ! ; 4401 1 ! COMPLETION CODES: ; 4402 1 ! ; 4403 1 ! None. ; 4404 1 ! ; 4405 1 ! SIDE EFFECTS: ; 4406 1 ! ; 4407 1 ! None. ; 4408 1 ! ; 4409 1 !-- ; 4410 1 ; 4411 2 BEGIN ; 4412 2 ! The following section of code will parse the various send parameters ; 4413 2 ! that are found in the send-init message. The following code will store ; 4414 2 ! the following as the value. ; 4415 2 ! ; 4416 2 ! If the user specified a value then the user supplied value will be used else ; 4417 2 ! the value in the message and if none in the message then the default value. ; 4418 2 ! ; 4419 2 ! User supplied values are denoted as positive values in SND_xxxxxxx. ; 4420 2 ! ; 4421 2 ! Parse the packet size ; 4422 2 ! ; 4423 3 SEND_PKT_SIZE = (IF .SND_PKT_SIZE GEQ 0 THEN ! [108] ; 4424 3 (IF .SND_PKT_SIZE GTR 94 THEN 94 ELSE .SND_PKT_SIZE) ELSE ! [108] ; 4425 4 BEGIN ; 4426 4 ; 4427 4 IF .REC_LENGTH GTR P_SI_BUFSIZ ; 4428 4 THEN ; P 4429 4 UNCHAR (CH$RCHAR (CH$PTR (REC_MSG, ; 4430 5 .RECV_PKT_MSG + P_SI_BUFSIZ, CHR_SIZE))) ! [108] ; 4431 4 ELSE ; 4432 4 ABS (.SND_PKT_SIZE) ; 4433 4 ; 4434 4 END ; 4435 2 ); ; 4436 2 ! ; 4437 2 ! Parse the time out value ; 4438 2 ! ; 4439 3 SEND_TIMEOUT = (IF .SND_TIMEOUT GEQ 0 THEN .SND_TIMEOUT ELSE ; 4440 4 BEGIN ; 4441 4 ; 4442 4 IF .REC_LENGTH GTR P_SI_TIMOUT ; 4443 4 THEN ; P 4444 4 UNCHAR (CH$RCHAR (CH$PTR (REC_MSG, ; 4445 5 .RECV_PKT_MSG + P_SI_TIMOUT, CHR_SIZE))) ! [108] ; 4446 4 ELSE ; 4447 4 ABS (.SND_TIMEOUT) ; 4448 4 ; 4449 4 END ; 4450 2 ); ; 4451 2 ! ; 4452 2 ! Parse the number of padding characters supplied ; 4453 2 ! ; 4454 3 SEND_NPAD = (IF .SND_NPAD GEQ 0 THEN .SND_NPAD ELSE ; 4455 4 BEGIN ; 4456 4 ; 4457 4 IF .REC_LENGTH GTR P_SI_NPAD ; 4458 4 THEN ; P 4459 4 UNCHAR (CH$RCHAR (CH$PTR (REC_MSG, .RECV_PKT_MSG + P_SI_NPAD, ; 4460 5 CHR_SIZE))) ! [108] ; 4461 4 ELSE ; 4462 4 ABS (.SND_NPAD) ; 4463 4 ; 4464 4 END ; 4465 2 ); ; 4466 2 ! ; 4467 2 ! Parse the padding character ; 4468 2 ! ; 4469 3 SEND_PADCHAR = (IF .SND_PADCHAR GEQ 0 THEN .SND_PADCHAR ELSE ; 4470 4 BEGIN ; 4471 4 ; 4472 4 IF .REC_LENGTH GTR P_SI_PAD ; 4473 4 THEN ; P 4474 4 CTL (CH$RCHAR (CH$PTR (REC_MSG, .RECV_PKT_MSG + P_SI_PAD, ; 4475 5 CHR_SIZE))) ! [108] ; 4476 4 ELSE ; 4477 4 ABS (.SND_PADCHAR) ; 4478 4 ; 4479 4 END ; 4480 2 ); ; 4481 2 ! ; 4482 2 ! Parse the end of line character ; 4483 2 ! ; 4484 3 SEND_EOL = (IF .SND_EOL GEQ 0 THEN .SND_EOL ELSE ; 4485 4 BEGIN ; 4486 4 ; 4487 4 IF .REC_LENGTH GTR P_SI_EOL ; 4488 4 THEN ; P 4489 4 UNCHAR (CH$RCHAR (CH$PTR (REC_MSG, .RECV_PKT_MSG + P_SI_EOL, ; 4490 5 CHR_SIZE))) ! [108] ; 4491 4 ELSE ; 4492 4 ABS (.SND_EOL) ; 4493 4 ; 4494 4 END ; 4495 2 ); ; 4496 2 ! ; 4497 2 ! Parse the quoting character ; 4498 2 ! ; 4499 3 SEND_QUOTE_CHR = (IF .SND_QUOTE_CHR GEQ 0 THEN .SND_QUOTE_CHR ELSE ; 4500 4 BEGIN ; 4501 4 ; 4502 4 IF .REC_LENGTH GTR P_SI_QUOTE ; 4503 4 THEN ; 4504 4 CH$RCHAR (CH$PTR (REC_MSG, .RECV_PKT_MSG + P_SI_QUOTE, ! [108] ; 4505 4 CHR_SIZE)) ; 4506 4 ELSE ; 4507 4 ABS (.SND_QUOTE_CHR) ; 4508 4 ; 4509 4 END ; 4510 2 ); ; 4511 2 ! ; 4512 2 ! Parse the 8-bit quoting character ; 4513 2 ! ; 4514 2 ! If the character was not included in the packet, assume no eight-bit ; 4515 2 ! quoting allowed (we are probably talking to an old version of Kermit). ; 4516 2 ! ; 4517 3 SEND_8QUOTE_CHR = (IF .REC_LENGTH GTR P_SI_8QUOTE THEN CH$RCHAR (CH$PTR (REC_MSG, ; 4518 3 .RECV_PKT_MSG + P_SI_8QUOTE, CHR_SIZE)) ELSE %C'N' ! [108] ! Assume no 8-bit quoting allowed ; 4519 2 ); ; 4520 2 ! ; 4521 2 ! Parse the checksum type ; 4522 2 ! ; 4523 2 ; 4524 2 IF .REC_LENGTH GTR P_SI_CHKTYPE ; 4525 2 THEN ; 4526 3 BEGIN ; 4527 3 ; 4528 3 LOCAL ; 4529 3 REQ_CHK_TYPE; ; 4530 3 ; 4531 3 REQ_CHK_TYPE = CH$RCHAR (CH$PTR (REC_MSG, .RECV_PKT_MSG + ! [108] ; 4532 3 P_SI_CHKTYPE, CHR_SIZE)); ; 4533 3 ; 4534 3 IF .REC_TYPE NEQ MSG_ACK ; 4535 3 THEN ; 4536 3 ; 4537 3 IF .REQ_CHK_TYPE GEQ CHK_1CHAR AND .REQ_CHK_TYPE LEQ CHK_CRC ; 4538 3 THEN ; 4539 3 INI_CHK_TYPE = .REQ_CHK_TYPE ; 4540 3 ELSE ; 4541 3 INI_CHK_TYPE = CHK_1CHAR ; 4542 3 ; 4543 3 ELSE ; 4544 3 ; 4545 3 IF .REQ_CHK_TYPE NEQ .CHKTYPE ; 4546 3 THEN ; 4547 3 INI_CHK_TYPE = CHK_1CHAR ; 4548 3 ELSE ; 4549 3 INI_CHK_TYPE = .REQ_CHK_TYPE ; 4550 3 ; 4551 3 END ; 4552 2 ELSE ; 4553 2 INI_CHK_TYPE = CHK_1CHAR; ! Only single character checksum if not specified ; 4554 2 ; 4555 2 ! ; 4556 2 ! Parse the repeat character ; 4557 2 ! ; 4558 3 REPT_CHR = (IF .REC_LENGTH GTR P_SI_REPEAT THEN CH$RCHAR (CH$PTR (REC_MSG, ; 4559 2 .RECV_PKT_MSG + P_SI_REPEAT, CHR_SIZE)) ELSE %C' '); ! [108] ; 4560 2 ! ! [108] ; 4561 2 ! Parse the capas field, if present and if we enabled extended length ! [108] ; 4562 2 ! ! [108] ; 4563 2 ! [108] ; 4564 3 IF (.REC_LENGTH GTR P_SI_CAPAS) AND (ABS(.SND_PKT_SIZE) GTR 94) ! [108] ; 4565 2 THEN ! [108] ; 4566 3 BEGIN ! [108] ; 4567 3 ! [108] ; 4568 3 LOCAL ! [108] ; 4569 3 CAPAS_OFFSET; ! [108] ; 4570 3 ! [108] ; 4571 3 CAPAS_OFFSET = .RECV_PKT_MSG + P_SI_CAPAS; ! [108] ; 4572 3 ; 4573 3 IF (UNCHAR (CH$RCHAR (CH$PTR (REC_MSG, .CAPAS_OFFSET, CHR_SIZE))) AND 2) NEQ 0 ; 4574 3 THEN ! [108] ; 4575 4 BEGIN ! [108] ; 4576 4 ! [108] ; 4577 4 SEND_PKT_SIZE = 500; ! [108] ; 4578 4 ! [108] ; 4579 4 WHILE (.REC_LENGTH GTR .CAPAS_OFFSET-.RECV_PKT_MSG) AND ! [108] ; P 4580 6 ((UNCHAR (CH$RCHAR (CH$PTR (REC_MSG, .CAPAS_OFFSET, ! [108] ; 4581 4 CHR_SIZE))) AND 1) EQL 1) DO ! [108] ; 4582 5 BEGIN ! [108] ; 4583 5 CAPAS_OFFSET = .CAPAS_OFFSET + 1; ! [108] ; 4584 4 END; ! [108] ; 4585 4 IF .REC_LENGTH GTR .CAPAS_OFFSET-.RECV_PKT_MSG+3 ! [108] ; 4586 4 THEN ! [108] ; P 4587 4 SEND_PKT_SIZE = UNCHAR (CH$RCHAR (CH$PTR (REC_MSG, ! [108] ; 4588 4 .CAPAS_OFFSET+2, CHR_SIZE))) * 95 + ; P 4589 4 UNCHAR (CH$RCHAR (CH$PTR (REC_MSG, ! [108] ; 4590 4 .CAPAS_OFFSET+3, CHR_SIZE))); ! [108] ; 4591 4 IF .SEND_PKT_SIZE GTR MAX_MSG - 2 ! [108] ; 4592 4 THEN ! [108] ; 4593 4 SEND_PKT_SIZE = MAX_MSG - 2; ! [108] ; 4594 4 IF .SEND_PKT_SIZE GTR ABS(.SND_PKT_SIZE) ! [108] ; 4595 4 THEN ! [108] ; 4596 4 SEND_PKT_SIZE = ABS(.SND_PKT_SIZE); ! [108] ; 4597 3 END; ! [108] ; 4598 2 END; ! [108] ; 4599 2 ! ; 4600 2 ! Check for a valid quoting character. If it is not valid, then we have ; 4601 2 ! a protocol error ; 4602 2 ! ; 4603 2 ; 4604 4 IF NOT ((.SEND_QUOTE_CHR GEQ %O'41' AND .SEND_QUOTE_CHR LEQ %O'76') OR (.SEND_QUOTE_CHR GEQ %O ; 4605 3 '140' AND .SEND_QUOTE_CHR LEQ %O'176')) ; 4606 2 THEN ; 4607 3 BEGIN ; 4608 3 KRM_ERROR (KER_PROTOERR); ; 4609 3 RETURN KER_PROTOERR; ; 4610 2 END; ; 4611 2 ; 4612 2 ! ; 4613 2 ! Check for a valid 8 bit quoting and set the 8 bit quoting flag as needed ; 4614 2 ! ; 4615 2 ; 4616 5 IF ( NOT ((.SEND_8QUOTE_CHR GEQ %O'041' AND .SEND_8QUOTE_CHR LEQ %O'076') OR (.SEND_8QUOTE_CHR ; 4617 5 GEQ %O'140' AND .SEND_8QUOTE_CHR LEQ %O'176') OR (.SEND_8QUOTE_CHR EQL %C'N') OR ( ; 4618 2 .SEND_8QUOTE_CHR EQL %C'Y'))) OR .SEND_8QUOTE_CHR EQL .SEND_QUOTE_CHR OR .SEND_8QUOTE_CHR ; 4619 2 EQL .RCV_QUOTE_CHR ; 4620 2 THEN ; 4621 3 BEGIN ; 4622 3 KRM_ERROR (KER_PROTOERR); ; 4623 3 RETURN KER_PROTOERR; ; 4624 2 END; ; 4625 2 ; 4626 2 IF .SEND_8QUOTE_CHR EQL %C'Y' THEN SEND_8QUOTE_CHR = .RECV_8QUOTE_CHR; ; 4627 2 ; 4628 2 IF .SEND_8QUOTE_CHR NEQ %C'N' AND .SEND_8QUOTE_CHR NEQ %C'Y' ; 4629 2 THEN ; 4630 2 FLAG_8QUOTE = TRUE ; 4631 2 ELSE ; 4632 2 FLAG_8QUOTE = FALSE; ; 4633 2 ; 4634 2 ! ; 4635 2 ! Check the repeat character and set flags ; 4636 2 ! ; 4637 2 ; 4638 5 IF ( NOT ((.REPT_CHR GEQ %O'41' AND .REPT_CHR LEQ %O'76') OR (.REPT_CHR GEQ %O'140' AND ; 4639 3 .REPT_CHR LEQ %O'176')) OR .REPT_CHR EQL .SEND_QUOTE_CHR OR .REPT_CHR EQL .SEND_8QUOTE_CHR ; 4640 2 OR .REPT_CHR EQL .RCV_QUOTE_CHR) AND .REPT_CHR NEQ %C' ' ; 4641 2 THEN ; 4642 3 BEGIN ; 4643 3 KRM_ERROR (KER_PROTOERR); ; 4644 3 RETURN KER_PROTOERR; ; 4645 2 END; ; 4646 2 ; 4647 2 IF .REPT_CHR NEQ %C' ' THEN FLAG_REPEAT = TRUE ELSE FLAG_REPEAT = FALSE; ; 4648 2 ; 4649 2 RETURN KER_NORMAL; ; 4650 1 END; ! End of PRS_SEND_INIT ;PRS_SEND_INIT U.21: .WORD ^M<R2,R3,R4,R5,R6> ;Save R2,R3,R4,R5,R6 4373 007C 00000 MOVAB G^RCV_QUOTE_CHR, R6 ;RCV_QUOTE_CHR, R6 56 00000000G 00 9E 00002 MOVAB G^U.39, R5 ;U.39, R5 55 00000000' 00 9E 00009 MOVL G^SND_PKT_SIZE, R4 ;SND_PKT_SIZE, R4 4423 54 00000000G 00 D0 00010 BLSS 2$ ;2$ 14 19 00017 CMPL R4, #94 ;R4, #94 4424 0000005E 8F 54 D1 00019 BLEQ 1$ ;1$ 06 15 00020 MOVZBL #94, R0 ;#94, R0 50 5E 8F 9A 00022 BRB 4$ ;4$ 1F 11 00026 1$: MOVL R4, R0 ;R4, R0 50 54 D0 00028 BRB 4$ ;4$ 1A 11 0002B 2$: TSTL 72(R5) ;REC_LENGTH 4427 48 A5 D5 0002D BLEQ 3$ ;3$ 0D 15 00030 MOVL (R5), R0 ;RECV_PKT_MSG, R0 4430 50 65 D0 00032 MOVZBL 80(R5)[R0], R0 ;REC_MSG[R0], R0 50 50 A540 9A 00035 SUBL2 #32, R0 ;#32, R0 50 20 C2 0003A BRB 4$ ;4$ 08 11 0003D 3$: MOVL R4, R0 ;R4, R0 4432 50 54 D0 0003F BGEQ 4$ ;4$ 03 18 00042 MNEGL R0, R0 ;R0, R0 50 50 CE 00044 4$: MOVL R0, 4(R5) ;R0, SEND_PKT_SIZE 4423 04 A5 50 D0 00047 MOVL G^SND_TIMEOUT, R0 ;SND_TIMEOUT, R0 4439 50 00000000G 00 D0 0004B BGEQ 6$ ;6$ 1A 18 00052 CMPL 72(R5), #1 ;REC_LENGTH, #1 4442 01 48 A5 D1 00054 BLEQ 5$ ;5$ 0D 15 00058 MOVL (R5), R0 ;RECV_PKT_MSG, R0 4445 50 65 D0 0005A MOVZBL 81(R5)[R0], R0 ;REC_MSG+1[R0], R0 50 51 A540 9A 0005D SUBL2 #32, R0 ;#32, R0 50 20 C2 00062 BRB 6$ ;6$ 07 11 00065 5$: TSTL R0 ;R0 4447 50 D5 00067 BGEQ 6$ ;6$ 03 18 00069 MNEGL R0, R0 ;R0, R0 50 50 CE 0006B 6$: MOVL R0, G^SEND_TIMEOUT ;R0, SEND_TIMEOUT 4439 00000000G 00 50 D0 0006E MOVL G^SND_NPAD, R0 ;SND_NPAD, R0 4454 50 00000000G 00 D0 00075 BGEQ 8$ ;8$ 1A 18 0007C CMPL 72(R5), #2 ;REC_LENGTH, #2 4457 02 48 A5 D1 0007E BLEQ 7$ ;7$ 0D 15 00082 MOVL (R5), R0 ;RECV_PKT_MSG, R0 4460 50 65 D0 00084 MOVZBL 82(R5)[R0], R0 ;REC_MSG+2[R0], R0 50 52 A540 9A 00087 SUBL2 #32, R0 ;#32, R0 50 20 C2 0008C BRB 8$ ;8$ 07 11 0008F 7$: TSTL R0 ;R0 4462 50 D5 00091 BGEQ 8$ ;8$ 03 18 00093 MNEGL R0, R0 ;R0, R0 50 50 CE 00095 8$: MOVL R0, 8(R5) ;R0, SEND_NPAD 4454 08 A5 50 D0 00098 MOVL G^SND_PADCHAR, R0 ;SND_PADCHAR, R0 4469 50 00000000G 00 D0 0009C BGEQ 10$ ;10$ 1E 18 000A3 CMPL 72(R5), #3 ;REC_LENGTH, #3 4472 03 48 A5 D1 000A5 BLEQ 9$ ;9$ 11 15 000A9 MOVL (R5), R0 ;RECV_PKT_MSG, R0 4475 50 65 D0 000AB MOVZBL 83(R5)[R0], R0 ;REC_MSG+3[R0], R0 50 53 A540 9A 000AE XORL2 #64, R0 ;#64, R0 50 00000040 8F CC 000B3 BRB 10$ ;10$ 07 11 000BA 9$: TSTL R0 ;R0 4477 50 D5 000BC BGEQ 10$ ;10$ 03 18 000BE MNEGL R0, R0 ;R0, R0 50 50 CE 000C0 10$: MOVL R0, 12(R5) ;R0, SEND_PADCHAR 4469 0C A5 50 D0 000C3 MOVL G^SND_EOL, R0 ;SND_EOL, R0 4484 50 00000000G 00 D0 000C7 BGEQ 12$ ;12$ 1A 18 000CE CMPL 72(R5), #4 ;REC_LENGTH, #4 4487 04 48 A5 D1 000D0 BLEQ 11$ ;11$ 0D 15 000D4 MOVL (R5), R0 ;RECV_PKT_MSG, R0 4490 50 65 D0 000D6 MOVZBL 84(R5)[R0], R0 ;REC_MSG+4[R0], R0 50 54 A540 9A 000D9 SUBL2 #32, R0 ;#32, R0 50 20 C2 000DE BRB 12$ ;12$ 07 11 000E1 11$: TSTL R0 ;R0 4492 50 D5 000E3 BGEQ 12$ ;12$ 03 18 000E5 MNEGL R0, R0 ;R0, R0 50 50 CE 000E7 12$: MOVL R0, 16(R5) ;R0, SEND_EOL 4484 10 A5 50 D0 000EA MOVL G^SND_QUOTE_CHR, R0 ;SND_QUOTE_CHR, R0 4499 50 00000000G 00 D0 000EE BGEQ 14$ ;14$ 17 18 000F5 CMPL 72(R5), #5 ;REC_LENGTH, #5 4502 05 48 A5 D1 000F7 BLEQ 13$ ;13$ 0A 15 000FB MOVL (R5), R0 ;RECV_PKT_MSG, R0 4504 50 65 D0 000FD MOVZBL 85(R5)[R0], R0 ;REC_MSG+5[R0], R0 4505 50 55 A540 9A 00100 BRB 14$ ;14$ 07 11 00105 13$: TSTL R0 ;R0 4507 50 D5 00107 BGEQ 14$ ;14$ 03 18 00109 MNEGL R0, R0 ;R0, R0 50 50 CE 0010B 14$: MOVL R0, 20(R5) ;R0, SEND_QUOTE_CHR 4499 14 A5 50 D0 0010E MOVL 72(R5), R3 ;REC_LENGTH, R3 4517 53 48 A5 D0 00112 CMPL R3, #6 ;R3, #6 06 53 D1 00116 BLEQ 15$ ;15$ 0A 15 00119 MOVL (R5), R0 ;RECV_PKT_MSG, R0 4518 50 65 D0 0011B MOVZBL 86(R5)[R0], R0 ;REC_MSG+6[R0], R0 50 56 A540 9A 0011E BRB 16$ ;16$ 04 11 00123 15$: MOVZBL #78, R0 ;#78, R0 50 4E 8F 9A 00125 16$: MOVL R0, 24(R5) ;R0, SEND_8QUOTE_CHR 4517 18 A5 50 D0 00129 CMPL R3, #7 ;R3, #7 4524 07 53 D1 0012D BLEQ 19$ ;19$ 2D 15 00130 MOVL (R5), R0 ;RECV_PKT_MSG, R0 4532 50 65 D0 00132 MOVZBL 87(R5)[R0], R0 ;REC_MSG+7[R0], REQ_CHK_TYPE 50 57 A540 9A 00135 CMPL 76(R5), #89 ;REC_TYPE, #89 4534 00000059 8F 4C A5 D1 0013A BEQL 17$ ;17$ 0C 13 00142 CMPL R0, #49 ;REQ_CHK_TYPE, #49 4537 31 50 D1 00144 BLSS 19$ ;19$ 16 19 00147 CMPL R0, #51 ;REQ_CHK_TYPE, #51 33 50 D1 00149 BGTR 19$ ;19$ 11 14 0014C BRB 18$ ;18$ 4539 09 11 0014E 17$: CMPL R0, G^CHKTYPE ;REQ_CHK_TYPE, CHKTYPE 4545 00000000G 00 50 D1 00150 BNEQ 19$ ;19$ 06 12 00157 18$: MOVL R0, 32(R5) ;REQ_CHK_TYPE, INI_CHK_TYPE 4549 20 A5 50 D0 00159 BRB 20$ ;20$ 04 11 0015D 19$: MOVL #49, 32(R5) ;#49, INI_CHK_TYPE 4553 20 A5 31 D0 0015F 20$: CMPL R3, #8 ;R3, #8 4558 08 53 D1 00163 BLEQ 21$ ;21$ 0A 15 00166 MOVL (R5), R0 ;RECV_PKT_MSG, R0 4559 50 65 D0 00168 MOVZBL 88(R5)[R0], R0 ;REC_MSG+8[R0], R0 50 58 A540 9A 0016B BRB 22$ ;22$ 03 11 00170 21$: MOVL #32, R0 ;#32, R0 50 20 D0 00172 22$: MOVL R0, -4(R5) ;R0, REPT_CHR 4558 FC A5 50 D0 00175 CMPL R3, #9 ;R3, #9 4564 09 53 D1 00179 BLEQ 24$ ;24$ 0F 15 0017C MOVL R4, R0 ;R4, R0 50 54 D0 0017E BGEQ 23$ ;23$ 03 18 00181 MNEGL R0, R0 ;R0, R0 50 50 CE 00183 23$: CMPL R0, #94 ;R0, #94 0000005E 8F 50 D1 00186 24$: BLEQ 30$ ;30$ 79 15 0018D MOVL (R5), R2 ;RECV_PKT_MSG, R2 4571 52 65 D0 0018F MOVAB 9(R2), R0 ;9(R2), CAPAS_OFFSET 50 09 A2 9E 00192 MOVZBL 80(R5)[R0], R1 ;REC_MSG[CAPAS_OFFSET], R1 4573 51 50 A540 9A 00196 SUBL2 #32, R1 ;#32, R1 51 20 C2 0019B BBC #1, R1, 30$ ;#1, R1, 30$ 51 01 E1 0019E ; 66 001A1 MOVZWL #500, 4(R5) ;#500, SEND_PKT_SIZE 4577 04 A5 01F4 8F 3C 001A2 25$: SUBL3 R2, R0, R1 ;R2, CAPAS_OFFSET, R1 4579 50 52 C3 001A8 ; 51 001AB CMPL R3, R1 ;R3, R1 51 53 D1 001AC BLEQ 26$ ;26$ 0F 15 001AF MOVZBL 80(R5)[R0], R1 ;REC_MSG[CAPAS_OFFSET], R1 4581 51 50 A540 9A 001B1 SUBL2 #32, R1 ;#32, R1 51 20 C2 001B6 BLBC R1, 26$ ;R1, 26$ 04 51 E9 001B9 INCL R0 ;CAPAS_OFFSET 4583 50 D6 001BC BRB 25$ ;25$ E8 11 001BE 26$: SUBL3 R2, R0, R1 ;R2, CAPAS_OFFSET, R1 4585 50 52 C3 001C0 ; 51 001C3 ADDL2 #3, R1 ;#3, R1 51 03 C0 001C4 CMPL R3, R1 ;R3, R1 51 53 D1 001C7 BLEQ 27$ ;27$ 1A 15 001CA MOVZBL 82(R5)[R0], R1 ;REC_MSG+2[CAPAS_OFFSET], R1 4588 51 52 A540 9A 001CC MULL2 #95, R1 ;#95, R1 51 0000005F 8F C4 001D1 MOVZBL 83(R5)[R0], R2 ;REC_MSG+3[CAPAS_OFFSET], R2 4590 52 53 A540 9A 001D8 ADDL2 R2, R1 ;R2, R1 51 52 C0 001DD MOVAB -3072(R1), 4(R5) ;-3072(R1), SEND_PKT_SIZE 04 A5 F400 C1 9E 001E0 27$: CMPL 4(R5), #1000 ;SEND_PKT_SIZE, #1000 4591 000003E8 8F 04 A5 D1 001E6 BLEQ 28$ ;28$ 06 15 001EE MOVZWL #1000, 4(R5) ;#1000, SEND_PKT_SIZE 4593 04 A5 03E8 8F 3C 001F0 28$: MOVL R4, R0 ;R4, R0 4594 50 54 D0 001F6 BGEQ 29$ ;29$ 03 18 001F9 MNEGL R0, R0 ;R0, R0 50 50 CE 001FB 29$: CMPL 4(R5), R0 ;SEND_PKT_SIZE, R0 50 04 A5 D1 001FE BLEQ 30$ ;30$ 04 15 00202 MOVL R0, 4(R5) ;R0, SEND_PKT_SIZE 4596 04 A5 50 D0 00204 30$: MOVL 20(R5), R0 ;SEND_QUOTE_CHR, R0 4604 50 14 A5 D0 00208 CMPL R0, #33 ;R0, #33 21 50 D1 0020C BLSS 31$ ;31$ 05 19 0020F CMPL R0, #62 ;R0, #62 3E 50 D1 00211 BLEQ 34$ ;34$ 15 15 00214 31$: CMPL R0, #96 ;R0, #96 4605 00000060 8F 50 D1 00216 BGEQ 33$ ;33$ 03 18 0021D 32$: BRW 44$ ;44$ 00A9 31 0021F 33$: CMPL R0, #126 ;R0, #126 0000007E 8F 50 D1 00222 BGTR 32$ ;32$ F4 14 00229 34$: MOVL 24(R5), R0 ;SEND_8QUOTE_CHR, R0 4616 50 18 A5 D0 0022B CMPL R0, #33 ;R0, #33 21 50 D1 0022F BLSS 35$ ;35$ 05 19 00232 CMPL R0, #62 ;R0, #62 3E 50 D1 00234 BLEQ 37$ ;37$ 24 15 00237 35$: CMPL R0, #96 ;R0, #96 4617 00000060 8F 50 D1 00239 BLSS 36$ ;36$ 09 19 00240 CMPL R0, #126 ;R0, #126 0000007E 8F 50 D1 00242 BLEQ 37$ ;37$ 12 15 00249 36$: CMPL R0, #78 ;R0, #78 0000004E 8F 50 D1 0024B BEQL 37$ ;37$ 09 13 00252 CMPL R0, #89 ;R0, #89 4618 00000059 8F 50 D1 00254 BNEQ 44$ ;44$ 6E 12 0025B 37$: CMPL R0, 20(R5) ;R0, SEND_QUOTE_CHR 14 A5 50 D1 0025D BEQL 44$ ;44$ 68 13 00261 CMPL R0, (R6) ;R0, RCV_QUOTE_CHR 4619 66 50 D1 00263 BEQL 44$ ;44$ 63 13 00266 CMPL 24(R5), #89 ;SEND_8QUOTE_CHR, #89 4626 00000059 8F 18 A5 D1 00268 BNEQ 38$ ;38$ 05 12 00270 MOVL -8(R5), 24(R5) ;RECV_8QUOTE_CHR, SEND_8QUOTE_CHR 18 A5 F8 A5 D0 00272 38$: MOVL 24(R5), R1 ;SEND_8QUOTE_CHR, R1 4628 51 18 A5 D0 00277 CMPL R1, #78 ;R1, #78 0000004E 8F 51 D1 0027B BEQL 39$ ;39$ 0F 13 00282 CMPL R1, #89 ;R1, #89 00000059 8F 51 D1 00284 BEQL 39$ ;39$ 06 13 0028B MOVL #1, 40(R5) ;#1, FLAG_8QUOTE 4630 28 A5 01 D0 0028D BRB 40$ ;40$ 03 11 00291 39$: CLRL 40(R5) ;FLAG_8QUOTE 4632 28 A5 D4 00293 40$: MOVL -4(R5), R0 ;REPT_CHR, R0 4638 50 FC A5 D0 00296 CMPL R0, #33 ;R0, #33 21 50 D1 0029A BLSS 41$ ;41$ 05 19 0029D CMPL R0, #62 ;R0, #62 3E 50 D1 0029F BLEQ 42$ ;42$ 12 15 002A2 41$: CMPL R0, #96 ;R0, #96 00000060 8F 50 D1 002A4 BLSS 43$ ;43$ 19 19 002AB CMPL R0, #126 ;R0, #126 4639 0000007E 8F 50 D1 002AD BGTR 43$ ;43$ 10 14 002B4 42$: CMPL R0, 20(R5) ;R0, SEND_QUOTE_CHR 14 A5 50 D1 002B6 BEQL 43$ ;43$ 0A 13 002BA CMPL R0, R1 ;R0, R1 51 50 D1 002BC BEQL 43$ ;43$ 05 13 002BF CMPL R0, (R6) ;R0, RCV_QUOTE_CHR 4640 66 50 D1 002C1 BNEQ 45$ ;45$ 1A 12 002C4 43$: CMPL R0, #32 ;R0, #32 20 50 D1 002C6 BEQL 45$ ;45$ 15 13 002C9 44$: PUSHL #134316226 ;#134316226 4643 080180C2 8F DD 002CB CALLS #1, G^KRM_ERROR ;#1, KRM_ERROR 00000000G 00 01 FB 002D1 MOVL #134316226, R0 ;#134316226, R0 4644 50 080180C2 8F D0 002D8 RET ; 04 002DF 45$: CMPL -4(R5), #32 ;REPT_CHR, #32 4647 20 FC A5 D1 002E0 BEQL 46$ ;46$ 06 13 002E4 MOVL #1, 44(R5) ;#1, FLAG_REPEAT 2C A5 01 D0 002E6 BRB 47$ ;47$ 03 11 002EA 46$: CLRL 44(R5) ;FLAG_REPEAT 2C A5 D4 002EC 47$: MOVL #134316043, R0 ;#134316043, R0 4649 50 0801800B 8F D0 002EF RET ; 04 002F6 ; Routine Size: 759 bytes, Routine Base: $CODE$ + 1824 ; 4651 1 %SBTTL 'SET_SEND_INIT' ; 4652 1 ROUTINE SET_SEND_INIT : NOVALUE = ; 4653 1 ; 4654 1 !++ ; 4655 1 ! FUNCTIONAL DESCRIPTION: ; 4656 1 ! ; 4657 1 ! This routine will initialize the various parameters for the ; 4658 1 ! MSG_SND_INIT message. ; 4659 1 ! ; 4660 1 ! CALLING SEQUENCE: ; 4661 1 ! ; 4662 1 ! SET_SEND_INIT(); ; 4663 1 ! ; 4664 1 ! INPUT PARAMETERS: ; 4665 1 ! ; 4666 1 ! None. ; 4667 1 ! ; 4668 1 ! IMPLICIT INPUTS: ; 4669 1 ! ; 4670 1 ! None. ; 4671 1 ! ; 4672 1 ! OUTPUT PARAMETERS: ; 4673 1 ! ; 4674 1 ! None. ; 4675 1 ! ; 4676 1 ! IMPLICIT OUTPUTS: ; 4677 1 ! ; 4678 1 ! SND_MSG parameters set up. ; 4679 1 ! ; 4680 1 ! COMPLETION CODES: ; 4681 1 ! ; 4682 1 ! None. ; 4683 1 ! ; 4684 1 ! SIDE EFFECTS: ; 4685 1 ! ; 4686 1 ! None. ; 4687 1 ! ; 4688 1 !-- ; 4689 1 ; 4690 2 BEGIN ; 4691 2 CH$WCHAR (CHAR ((IF .RCV_PKT_SIZE LSS 94 THEN .RCV_PKT_SIZE ELSE 94)), ; 4692 2 CH$PTR (SND_MSG, PKT_MSG + P_SI_BUFSIZ, CHR_SIZE)); ! [108] ; 4693 2 CH$WCHAR (CHAR (.RCV_TIMEOUT), CH$PTR (SND_MSG, PKT_MSG + P_SI_TIMOUT, ; 4694 2 CHR_SIZE)); ; 4695 2 CH$WCHAR (CHAR (.RCV_NPAD), CH$PTR (SND_MSG, PKT_MSG + P_SI_NPAD, ; 4696 2 CHR_SIZE)); ; 4697 2 CH$WCHAR (CTL (.RCV_PADCHAR), CH$PTR (SND_MSG, PKT_MSG + P_SI_PAD, ; 4698 2 CHR_SIZE)); ; 4699 2 CH$WCHAR (CHAR (.RCV_EOL), CH$PTR (SND_MSG, PKT_MSG + P_SI_EOL, CHR_SIZE)); ; 4700 2 CH$WCHAR (.RCV_QUOTE_CHR, CH$PTR (SND_MSG, PKT_MSG + P_SI_QUOTE, CHR_SIZE)); ; 4701 2 CH$WCHAR (.SEND_8QUOTE_CHR, CH$PTR (SND_MSG, PKT_MSG + P_SI_8QUOTE, ; 4702 2 CHR_SIZE)); ; 4703 2 CH$WCHAR (.INI_CHK_TYPE, CH$PTR (SND_MSG, PKT_MSG + P_SI_CHKTYPE, ; 4704 2 CHR_SIZE)); ; 4705 2 CH$WCHAR (.REPT_CHR, CH$PTR (SND_MSG, PKT_MSG + P_SI_REPEAT, CHR_SIZE)); ; 4706 2 SEND_INIT_SIZE = P_SI_LENGTH; ! [108] ; 4707 2 IF .RCV_PKT_SIZE GTR 94 ! [108] ; 4708 2 THEN ! [108] ; 4709 3 BEGIN ! [108] ; 4710 3 CH$WCHAR (CHAR (EXTLEN_CAPAS), CH$PTR (SND_MSG, PKT_MSG + P_SI_CAPAS, ; 4711 3 CHR_SIZE)); ; 4712 3 CH$WCHAR (CHAR (0), CH$PTR (SND_MSG, PKT_MSG + P_SI_WINDO, CHR_SIZE)); ; 4713 3 CH$WCHAR (CHAR (.RCV_PKT_SIZE/95), CH$PTR (SND_MSG, PKT_MSG + P_SI_MAXLX1, ; 4714 3 CHR_SIZE)); ; 4715 3 CH$WCHAR (CHAR (.RCV_PKT_SIZE MOD 95), CH$PTR (SND_MSG, PKT_MSG + P_SI_MAXLX2, ; 4716 3 CHR_SIZE)); ; 4717 3 ! [108] ; 4718 3 SEND_INIT_SIZE = P_SI_XLENGTH; ! [108] ; 4719 2 END; ! [108] ; 4720 2 ; 4721 1 END; ! End of SET_SEND_INIT ;SET_SEND_INIT U.20: .WORD ^M<R2> ;Save R2 4652 0004 00000 MOVAB G^U.46, R2 ;U.46, R2 52 00000000' 00 9E 00002 MOVL G^RCV_PKT_SIZE, R1 ;RCV_PKT_SIZE, R1 4691 51 00000000G 00 D0 00009 CMPL R1, #94 ;R1, #94 0000005E 8F 51 D1 00010 BGEQ 1$ ;1$ 05 18 00017 MOVL R1, R0 ;R1, R0 50 51 D0 00019 BRB 2$ ;2$ 04 11 0001C 1$: MOVZBL #94, R0 ;#94, R0 50 5E 8F 9A 0001E 2$: ADDB3 #32, R0, 1060(R2) ;#32, R0, SND_MSG+4 50 20 81 00022 ; 0424 C2 00025 ADDB3 #32, G^RCV_TIMEOUT, 1061(R2) ;#32, RCV_TIMEOUT, SND_MSG+5 4693 00000000G 00 20 81 00028 ; 0425 C2 0002F ADDB3 #32, G^RCV_NPAD, 1062(R2) ;#32, RCV_NPAD, SND_MSG+6 4695 00000000G 00 20 81 00032 ; 0426 C2 00039 XORB3 #64, G^RCV_PADCHAR, 1063(R2) ;#64, RCV_PADCHAR, SND_MSG+7 4697 00000000G 00 40 8F 8D 0003C ; 0427 C2 00044 ADDB3 #32, G^RCV_EOL, 1064(R2) ;#32, RCV_EOL, SND_MSG+8 4699 00000000G 00 20 81 00047 ; 0428 C2 0004E MOVB G^RCV_QUOTE_CHR, 1065(R2) ;RCV_QUOTE_CHR, SND_MSG+9 4700 0429 C2 00000000G 00 90 00051 MOVB -4(R2), 1066(R2) ;SEND_8QUOTE_CHR, SND_MSG+10 4702 042A C2 FC A2 90 0005A MOVB 4(R2), 1067(R2) ;INI_CHK_TYPE, SND_MSG+11 4704 042B C2 04 A2 90 00060 MOVB -32(R2), 1068(R2) ;REPT_CHR, SND_MSG+12 4705 042C C2 E0 A2 90 00066 MOVL #9, (R2) ;#9, SEND_INIT_SIZE 4706 62 09 D0 0006C CMPL R1, #94 ;R1, #94 4707 0000005E 8F 51 D1 0006F BLEQ 3$ ;3$ 2C 15 00076 MOVW #8226, 1069(R2) ;#8226, SND_MSG+13 4711 042D C2 2022 8F B0 00078 DIVL3 #95, R1, R0 ;#95, R1, R0 4713 51 0000005F 8F C7 0007F ; 50 00086 ADDB3 #32, R0, 1071(R2) ;#32, R0, SND_MSG+15 50 20 81 00087 ; 042F C2 0008A EMUL #1, R1, #0, -(SP) ;#1, R1, #0, -(SP) 4715 51 01 7A 0008D ; 7E 00 00090 EDIV #95, (SP)+, R0, R0 ;#95, (SP)+, R0, R0 8E 0000005F 8F 7B 00092 ; 50 50 00099 ADDB3 #32, R0, 1072(R2) ;#32, R0, SND_MSG+16 50 20 81 0009B ; 0430 C2 0009E MOVL #13, (R2) ;#13, SEND_INIT_SIZE 4718 62 0D D0 000A1 3$: RET ; 4721 04 000A4 ; Routine Size: 165 bytes, Routine Base: $CODE$ + 1B1B ; 4722 1 %SBTTL 'SEND_PACKET' ; 4723 1 ROUTINE SEND_PACKET (TYPE, LENGTH, MN) = ; 4724 1 ; 4725 1 !++ ; 4726 1 ! FUNCTIONAL DESCRIPTION: ; 4727 1 ! ; 4728 1 ! This routine will cause a packet to be sent over the line ; 4729 1 ! that has been opened by OPEN_TERMINAL. ; 4730 1 ! ; 4731 1 ! CALLING SEQUENCE: ; 4732 1 ! ; 4733 1 ! SEND_PACKET(Type, Length); ; 4734 1 ! ; 4735 1 ! INPUT PARAMETERS: ; 4736 1 ! ; 4737 1 ! TYPE - Type of packet to send. ; 4738 1 ! ; 4739 1 ! LENGTH - Length of the packet being sent. ; 4740 1 ! [108] Negative length means it's an extended length packet ; 4741 1 ! ; 4742 1 ! IMPLICIT INPUTS: ; 4743 1 ! ; 4744 1 ! None. ; 4745 1 ! ; 4746 1 ! OUTPUT PARAMETERS: ; 4747 1 ! ; 4748 1 ! None. ; 4749 1 ! ; 4750 1 ! IMPLICIT OUTPUTS: ; 4751 1 ! ; 4752 1 ! None. ; 4753 1 ! ; 4754 1 ! COMPLETION CODES: ; 4755 1 ! ; 4756 1 ! None. ; 4757 1 ! ; 4758 1 ! SIDE EFFECTS: ; 4759 1 ! ; 4760 1 ! None. ; 4761 1 ! ; 4762 1 !-- ; 4763 1 ; 4764 2 BEGIN ; 4765 2 ; 4766 2 LOCAL ; 4767 2 FILLER : VECTOR [CH$ALLOCATION (MAX_MSG, CHR_SIZE)], ; 4768 2 TOT_MSG_LEN, ! Length of message including all characters ; 4769 2 CHKSUM, ! Checksum for the message we calculate ; 4770 2 POINTER; ! Pointer to the information in the message ; 4771 2 ; 4772 2 ! ; 4773 2 ! Do any filler processing that the remote KERMIT requires. ; 4774 2 ! ; 4775 2 ; 4776 2 IF .SEND_NPAD NEQ 0 ; 4777 2 THEN ; 4778 3 BEGIN ; 4779 3 CH$FILL (.SEND_PADCHAR, MAX_MSG, CH$PTR (FILLER, 0, CHR_SIZE)); ; 4780 3 ! ; 4781 3 ! Update the send stats ; 4782 3 ! ; 4783 3 SMSG_TOTAL_CHARS = .SMSG_TOTAL_CHARS + .SEND_NPAD; ; 4784 3 ! ; 4785 3 ! Send the fill ; 4786 3 ! ; 4787 3 DO_PARITY (FILLER, .SEND_NPAD + PKT_TOT_OVR_HEAD); ; 4788 3 SEND (FILLER, .SEND_NPAD + PKT_TOT_OVR_HEAD); ; 4789 2 END; ; 4790 2 ; 4791 2 ! ; 4792 2 ! Store the header information into the message. ; 4793 2 ! ; 4794 2 CH$WCHAR (.TYPE, CH$PTR (SND_MSG, PKT_TYPE, CHR_SIZE)); ; 4795 2 CH$WCHAR (.SND_SOH, CH$PTR (SND_MSG, PKT_MARK, CHR_SIZE)); ; 4796 2 CH$WCHAR (CHAR (IF .MN LSS 0 THEN 0 ELSE .MN), CH$PTR (SND_MSG, PKT_SEQ, ; 4797 2 CHR_SIZE)); ; 4798 2 ; 4799 2 IF .LENGTH LSS 0 ! [108] ; 4800 2 THEN ! [108] ; 4801 3 BEGIN ! [108] ; 4802 3 TOT_MSG_LEN = PKT_OVR_HEAD + 3 - .LENGTH; ! [108] ; 4803 3 CH$WCHAR (CHAR (0), CH$PTR (SND_MSG, PKT_COUNT, CHR_SIZE)); ! [108] ; P 4804 3 CH$WCHAR (CHAR ((.TOT_MSG_LEN - PKT_HCHECK + 1 + ! [108] ; 4805 3 (.BLK_CHK_TYPE - CHK_1CHAR)) / 95), ! [108] ; 4806 3 CH$PTR (SND_MSG, PKT_COUNTX1, CHR_SIZE)); ! [108] ; P 4807 3 CH$WCHAR (CHAR ((.TOT_MSG_LEN - PKT_HCHECK + 1 + ! [108] ; 4808 3 (.BLK_CHK_TYPE - CHK_1CHAR)) MOD 95), ! [108] ; 4809 3 CH$PTR (SND_MSG, PKT_COUNTX2, CHR_SIZE)); ! [108] ; 4810 3 ; 4811 3 POINTER = CH$PTR(SND_MSG, PKT_SEQ, CHR_SIZE); ! [108] ; 4812 3 CHKSUM = CHAR (0) + CH$RCHAR_A (POINTER); ! [108] ; 4813 3 CHKSUM = .CHKSUM + CH$RCHAR_A (POINTER); ! [108] ; 4814 3 CHKSUM = .CHKSUM + CH$RCHAR_A (POINTER); ! [108] ; 4815 3 CHKSUM = .CHKSUM + CH$RCHAR_A (POINTER); ! [108] ; 4816 3 ; 4817 3 CH$WCHAR (CHAR ((.CHKSUM + ((.CHKSUM AND %O'300')/%O'100')) AND %O'77'), ; 4818 3 CH$PTR (SND_MSG, PKT_HCHECK, CHR_SIZE)); ! [108] ; 4819 3 END ! [108] ; 4820 2 ELSE ! [108] ; 4821 3 BEGIN ! [108] ; 4822 3 TOT_MSG_LEN = PKT_OVR_HEAD + .LENGTH; ! [108] ; 4823 3 CH$WCHAR (CHAR (.TOT_MSG_LEN + (.BLK_CHK_TYPE - CHK_1CHAR)), ! [108] ; 4824 3 CH$PTR (SND_MSG, PKT_COUNT, CHR_SIZE)); ; 4825 2 END; ! [108] ; 4826 2 ; 4827 2 ! ; 4828 2 ! Calculate the block check value ; 4829 2 ! ; 4830 2 POINTER = CH$PTR (SND_MSG, PKT_MARK + 1, CHR_SIZE); ; 4831 2 CHKSUM = CALC_BLOCK_CHECK (.POINTER, .TOT_MSG_LEN); ! [108] ; 4832 2 ! ; 4833 2 ! Store the checksum into the message ; 4834 2 ! ; 4835 2 POINTER = CH$PTR (SND_MSG, .TOT_MSG_LEN + 1, CHR_SIZE); ! [108] ; 4836 2 ; 4837 2 CASE .BLK_CHK_TYPE FROM CHK_1CHAR TO CHK_CRC OF ; 4838 2 SET ; 4839 2 ; 4840 2 [CHK_1CHAR] : ; 4841 2 CH$WCHAR_A (CHAR (.CHKSUM), POINTER); ; 4842 2 ; 4843 2 [CHK_2CHAR] : ; 4844 3 BEGIN ; 4845 3 CH$WCHAR_A (CHAR (.CHKSUM<6, 6>), POINTER); ; 4846 3 CH$WCHAR_A (CHAR (.CHKSUM<0, 6>), POINTER); ; 4847 3 TOT_MSG_LEN = .TOT_MSG_LEN + 1; ; 4848 2 END; ; 4849 2 ; 4850 2 [CHK_CRC] : ; 4851 3 BEGIN ; 4852 3 CH$WCHAR_A (CHAR (.CHKSUM<12, 4>), POINTER); ; 4853 3 CH$WCHAR_A (CHAR (.CHKSUM<6, 6>), POINTER); ; 4854 3 CH$WCHAR_A (CHAR (.CHKSUM<0, 6>), POINTER); ; 4855 3 TOT_MSG_LEN = .TOT_MSG_LEN + 2; ; 4856 2 END; ; 4857 2 TES; ; 4858 2 ; 4859 2 ! ; 4860 2 ! Store in the end of line character ; 4861 2 ! ; 4862 2 CH$WCHAR_A (.SEND_EOL, POINTER); ; 4863 2 ! ; 4864 2 ! If we are debugging then type out the message we are sending. ; 4865 2 ! ; 4866 2 DBG_SEND (SND_MSG, (.TOT_MSG_LEN + PKT_TOT_OVR_HEAD - PKT_OVR_HEAD));! [108] ; 4867 2 ! ; 4868 2 ! Update the stats for total characters and the data characters ; 4869 2 ! ; 4870 2 SMSG_TOTAL_CHARS = .SMSG_TOTAL_CHARS + .TOT_MSG_LEN + PKT_TOT_OVR_HEAD - ; 4871 2 PKT_OVR_HEAD; ! [108] ; 4872 2 ! Make data characters really be that, not just characters in data field ; 4873 2 ! SMSG_DATA_CHARS = .SMSG_DATA_CHARS + .LENGTH; ; 4874 2 ; 4875 2 IF .TYPE EQL MSG_NAK ; 4876 2 THEN ; 4877 3 BEGIN ; 4878 3 SMSG_NAKS = .SMSG_NAKS + 1; ; 4879 3 XFR_STATUS (%C'S', %C'N'); ; 4880 3 END ; 4881 2 ELSE ; 4882 3 BEGIN ; 4883 3 SMSG_COUNT = .SMSG_COUNT + 1; ; 4884 3 XFR_STATUS (%C'S', %C'P'); ; 4885 2 END; ; 4886 2 ; 4887 2 ! ; 4888 2 ! Check if we are in IBM mode and need to wait for an XON first ; 4889 2 ! We will not wait if this is a packet which might be going out ; 4890 2 ! without previous traffic (generic commands, init packets). ; 4891 2 ; 4892 3 IF (.IBM_CHAR GEQ 0) ! If handshaking on ; 4893 2 THEN ; 4894 2 IF NOT IBM_WAIT () THEN RETURN KER_ABORTED; ; 4895 2 ; 4896 2 ! ; 4897 2 ! Now call the O/S routine to send the message out to the remote KERMIT ; 4898 2 ! ; 4899 2 DO_PARITY (SND_MSG, .TOT_MSG_LEN + PKT_TOT_OVR_HEAD - PKT_OVR_HEAD); ! [108] ; 4900 2 RETURN SEND (SND_MSG, .TOT_MSG_LEN + PKT_TOT_OVR_HEAD - PKT_OVR_HEAD); ! [108] ; 4901 1 END; ! End of SEND_PACKET ;SEND_PACKET U.24: .WORD ^M<R2,R3,R4,R5,R6,R7,R8,R9,R10> ;Save R2,R3,R4,R5,R6,R7,R8,R9,R10 4723 07FC 00000 MOVAB G^SEND, R10 ;SEND, R10 5A 00000000G 00 9E 00002 MOVAB G^U.22, R9 ;U.22, R9 59 00000000V 00 9E 00009 MOVAB G^SMSG_TOTAL_CHARS, R8 ;SMSG_TOTAL_CHARS, R8 58 00000000G 00 9E 00010 MOVAB G^U.60, R7 ;U.60, R7 57 00000000' 00 9E 00017 MOVAB -1004(SP), SP ;-1004(SP), SP 5E FC14 CE 9E 0001E MOVL -1076(R7), R6 ;SEND_NPAD, R6 4776 56 FBCC C7 D0 00023 BEQL 1$ ;1$ 22 13 00028 MOVC5 #0, (SP), -1072(R7), #1002, (SP) ;#0, (SP), SEND_PADCHAR, #1002, - 4779 6E 00 2C 0002A ;FILLER 03EA 8F FBD0 C7 0002D ; 6E 00033 ADDL2 R6, (R8) ;R6, SMSG_TOTAL_CHARS 4783 68 56 C0 00034 PUSHAB 6(R6) ;6(R6) 4787 06 A6 9F 00037 PUSHAB 4(SP) ;FILLER 04 AE 9F 0003A CALLS #2, (R9) ;#2, DO_PARITY 69 02 FB 0003D ADDL3 #6, -1076(R7), -(SP) ;#6, SEND_NPAD, -(SP) 4788 FBCC C7 06 C1 00040 ; 7E 00045 PUSHAB 4(SP) ;FILLER 04 AE 9F 00046 CALLS #2, (R10) ;#2, SEND 6A 02 FB 00049 1$: MOVB 4(AP), 3(R7) ;TYPE, SND_MSG+3 4794 03 A7 04 AC 90 0004C MOVB G^SND_SOH, (R7) ;SND_SOH, SND_MSG 4795 67 00000000G 00 90 00051 TSTL 12(AP) ;MN 4796 0C AC D5 00058 BGEQ 2$ ;2$ 04 18 0005B CLRL R0 ;R0 50 D4 0005D BRB 3$ ;3$ 04 11 0005F 2$: MOVL 12(AP), R0 ;MN, R0 50 0C AC D0 00061 3$: ADDB3 #32, R0, 2(R7) ;#32, R0, SND_MSG+2 50 20 81 00065 ; 02 A7 00068 SUBL3 #49, -1048(R7), R0 ;#49, BLK_CHK_TYPE, R0 4805 FBE8 C7 31 C3 0006A ; 50 0006F MOVL 8(AP), R2 ;LENGTH, R2 4799 52 08 AC D0 00070 BGEQ 4$ ;4$ 68 18 00074 SUBL3 R2, #6, R2 ;R2, #6, TOT_MSG_LEN 4802 06 52 C3 00076 ; 52 00079 MOVB #32, 1(R7) ;#32, SND_MSG+1 4803 01 A7 20 90 0007A MOVAB -5(R0)[R2], R0 ;-5(R0)[TOT_MSG_LEN], R0 4805 50 FB A042 9E 0007E DIVL3 #95, R0, R1 ;#95, R0, R1 50 0000005F 8F C7 00083 ; 51 0008A ADDB3 #32, R1, 4(R7) ;#32, R1, SND_MSG+4 51 20 81 0008B ; 04 A7 0008E EMUL #1, R0, #0, -(SP) ;#1, R0, #0, -(SP) 4808 50 01 7A 00090 ; 7E 00 00093 EDIV #95, (SP)+, R0, R0 ;#95, (SP)+, R0, R0 8E 0000005F 8F 7B 00095 ; 50 50 0009C ADDB3 #32, R0, 5(R7) ;#32, R0, SND_MSG+5 50 20 81 0009E ; 05 A7 000A1 MOVAB 2(R7), R3 ;SND_MSG+2, POINTER 4811 53 02 A7 9E 000A3 MOVZBL (R3)+, R0 ;(POINTER)+, R0 4812 50 83 9A 000A7 MOVAB 32(R0), R1 ;32(R0), CHKSUM 51 20 A0 9E 000AA MOVZBL (R3)+, R0 ;(POINTER)+, R0 4813 50 83 9A 000AE ADDL2 R0, R1 ;R0, CHKSUM 51 50 C0 000B1 MOVZBL (R3)+, R0 ;(POINTER)+, R0 4814 50 83 9A 000B4 ADDL2 R0, R1 ;R0, CHKSUM 51 50 C0 000B7 MOVZBL (R3)+, R0 ;(POINTER)+, R0 4815 50 83 9A 000BA ADDL2 R0, R1 ;R0, CHKSUM 51 50 C0 000BD BICL3 #-193, R1, R0 ;#-193, CHKSUM, R0 4817 51 FFFFFF3F 8F CB 000C0 ; 50 000C7 DIVL2 #64, R0 ;#64, R0 50 00000040 8F C6 000C8 ADDL2 R1, R0 ;CHKSUM, R0 50 51 C0 000CF EXTZV #0, #6, R0, R4 ;#0, #6, R0, R4 06 00 EF 000D2 ; 54 50 000D5 ADDB3 #32, R4, 6(R7) ;#32, R4, SND_MSG+6 54 20 81 000D7 ; 06 A7 000DA BRB 5$ ;5$ 0C 11 000DC 4$: ADDL2 #3, R2 ;#3, TOT_MSG_LEN 4822 52 03 C0 000DE MOVAB 32(R0)[R2], R1 ;32(R0)[TOT_MSG_LEN], R1 4823 51 20 A042 9E 000E1 MOVB R1, 1(R7) ;R1, SND_MSG+1 01 A7 51 90 000E6 5$: MOVAB 1(R7), R3 ;SND_MSG+1, POINTER 4830 53 01 A7 9E 000EA PUSHL R2 ;TOT_MSG_LEN 4831 52 DD 000EE PUSHL R3 ;POINTER 53 DD 000F0 CALLS #2, G^U.19 ;#2, U.19 00000000V 00 02 FB 000F2 MOVL R0, R1 ;R0, CHKSUM 51 50 D0 000F9 MOVAB 1(R7)[R2], R3 ;SND_MSG+1[TOT_MSG_LEN], POINTER 4835 53 01 A742 9E 000FC CASEL -1048(R7), #49, #2 ;BLK_CHK_TYPE, #49, #2 4837 31 FBE8 C7 CF 00101 ; 02 00106 6$: .WORD 7$-6$,- ;7$-6$,- 000C 0006 00107 8$-6$,- ;8$-6$,- 0022 0010B 9$-6$ ;9$-6$ 7$: ADDB3 #32, R1, (R3) ;#32, CHKSUM, (POINTER) 4841 51 20 81 0010D ; 63 00110 BRB 10$ ;10$ 34 11 00111 8$: EXTZV #6, #6, R1, R0 ;#6, #6, CHKSUM, R0 4845 06 06 EF 00113 ; 50 51 00116 ADDB3 #32, R0, (R3)+ ;#32, R0, (POINTER)+ 50 20 81 00118 ; 83 0011B EXTZV #0, #6, R1, R0 ;#0, #6, CHKSUM, R0 4846 06 00 EF 0011C ; 50 51 0011F ADDB3 #32, R0, (R3) ;#32, R0, (POINTER) 50 20 81 00121 ; 63 00124 INCL R2 ;TOT_MSG_LEN 4847 52 D6 00125 BRB 10$ ;10$ 1E 11 00127 9$: EXTZV #12, #4, R1, R0 ;#12, #4, CHKSUM, R0 4852 04 0C EF 00129 ; 50 51 0012C ADDB3 #32, R0, (R3)+ ;#32, R0, (POINTER)+ 50 20 81 0012E ; 83 00131 EXTZV #6, #6, R1, R0 ;#6, #6, CHKSUM, R0 4853 06 06 EF 00132 ; 50 51 00135 ADDB3 #32, R0, (R3)+ ;#32, R0, (POINTER)+ 50 20 81 00137 ; 83 0013A EXTZV #0, #6, R1, R0 ;#0, #6, CHKSUM, R0 4854 06 00 EF 0013B ; 50 51 0013E ADDB3 #32, R0, (R3) ;#32, R0, (POINTER) 50 20 81 00140 ; 63 00143 ADDL2 #2, R2 ;#2, TOT_MSG_LEN 4855 52 02 C0 00144 10$: INCL R3 ;POINTER 4841 53 D6 00147 MOVB -1068(R7), (R3)+ ;SEND_EOL, (POINTER)+ 4862 83 FBD4 C7 90 00149 PUSHAB 3(R2) ;3(TOT_MSG_LEN) 4866 03 A2 9F 0014E PUSHL R7 ;R7 57 DD 00151 CALLS #2, G^U.35 ;#2, U.35 00000000V 00 02 FB 00153 MOVL (R8), R0 ;SMSG_TOTAL_CHARS, R0 4870 50 68 D0 0015A MOVAB 3(R2)[R0], (R8) ;3(TOT_MSG_LEN)[R0], - 4871 68 03 A240 9E 0015D ;SMSG_TOTAL_CHARS CMPL 4(AP), #78 ;TYPE, #78 4875 0000004E 8F 04 AC D1 00162 BNEQ 11$ ;11$ 0C 12 0016A INCL G^SMSG_NAKS ;SMSG_NAKS 4878 00000000G 00 D6 0016C MOVZBL #78, -(SP) ;#78, -(SP) 4879 7E 4E 8F 9A 00172 BRB 12$ ;12$ 0A 11 00176 11$: INCL G^SMSG_COUNT ;SMSG_COUNT 4883 00000000G 00 D6 00178 MOVZBL #80, -(SP) ;#80, -(SP) 4884 7E 50 8F 9A 0017E 12$: MOVZBL #83, -(SP) ;#83, -(SP) 7E 53 8F 9A 00182 CALLS #2, G^XFR_STATUS ;#2, XFR_STATUS 00000000G 00 02 FB 00186 TSTL G^IBM_CHAR ;IBM_CHAR 4892 00000000G 00 D5 0018D BLSS 13$ ;13$ 12 19 00193 CALLS #0, G^IBM_WAIT ;#0, IBM_WAIT 4894 00000000G 00 00 FB 00195 BLBS R0, 13$ ;R0, 13$ 08 50 E8 0019C MOVL #134316258, R0 ;#134316258, R0 50 080180E2 8F D0 0019F RET ; 04 001A6 13$: PUSHAB 3(R2) ;3(TOT_MSG_LEN) 4899 03 A2 9F 001A7 PUSHL R7 ;R7 57 DD 001AA CALLS #2, (R9) ;#2, DO_PARITY 69 02 FB 001AC PUSHAB 3(R2) ;3(TOT_MSG_LEN) 4900 03 A2 9F 001AF PUSHL R7 ;R7 57 DD 001B2 CALLS #2, (R10) ;#2, SEND 6A 02 FB 001B4 RET ; 04 001B7 ; Routine Size: 440 bytes, Routine Base: $CODE$ + 1BC0 ; 4902 1 %SBTTL 'REC_MESSAGE - Receive a message' ; 4903 1 ROUTINE REC_MESSAGE (CHK_ROUTINE) = ; 4904 1 ; 4905 1 !++ ; 4906 1 ! FUNCTIONAL DESCRIPTION: ; 4907 1 ! ; 4908 1 ! This routine will handle the retry processing for the various ; 4909 1 ! messages that can be received. ; 4910 1 ! ; 4911 1 ! CALLING SEQUENCE: ; 4912 1 ! ; 4913 1 ! INPUT PARAMETERS: ; 4914 1 ! ; 4915 1 ! None. ; 4916 1 ! ; 4917 1 ! IMPLICIT INPUTS: ; 4918 1 ! ; 4919 1 ! None. ; 4920 1 ! ; 4921 1 ! OUTPUT PARAMETERS: ; 4922 1 ! ; 4923 1 ! None. ; 4924 1 ! ; 4925 1 ! IMPLICIT OUTPUTS: ; 4926 1 ! ; 4927 1 ! None. ; 4928 1 ! ; 4929 1 ! COMPLETION CODES: ; 4930 1 ! ; 4931 1 ! KER_NORMAL - Normal return ; 4932 1 ! KER_RETRIES - Too many retries ; 4933 1 ! (What ever REC_PACKET returns). ; 4934 1 ! ; 4935 1 ! SIDE EFFECTS: ; 4936 1 ! ; 4937 1 ! None. ; 4938 1 ! ; 4939 1 !-- ; 4940 1 ; 4941 2 BEGIN ; 4942 2 ; 4943 2 LOCAL ; 4944 2 STATUS; ! Status returned by various routines ; 4945 2 ; 4946 2 RETURN ; 4947 2 ; 4948 2 WHILE TRUE DO ; 4949 3 BEGIN ; 4950 3 ; 4951 3 IF .NUM_RETRIES GTR .PKT_RETRIES ; 4952 3 THEN ; 4953 4 BEGIN ; 4954 4 KRM_ERROR (KER_RETRIES); ! Report the error ; 4955 4 RETURN KER_RETRIES; ; 4956 3 END; ; 4957 3 ; 4958 3 NUM_RETRIES = .NUM_RETRIES + 1; ; 4959 3 STATUS = REC_PACKET (); ; 4960 3 ![043] Don't abort on errors which might just be due to noise. ; 4961 3 ; 4962 3 IF NOT .STATUS AND .STATUS NEQ KER_CHKSUMERR AND .STATUS NEQ KER_TIMEOUT AND .STATUS NEQ ; 4963 3 KER_ZEROLENMSG ; 4964 3 THEN ; 4965 3 RETURN .STATUS; ; 4966 3 ; 4967 3 IF NOT .STATUS ; 4968 3 THEN ; 4969 3 SEND_PACKET (MSG_NAK, 0, .MSG_NUMBER) ![024] ; 4970 3 ELSE ; 4971 4 BEGIN ; 4972 4 ![021] ; 4973 4 ![021] If the packet type is not acceptable by our caller, nak it so the ; 4974 4 ![021] other end tries again, and abort the current operation. This is so ; 4975 4 ![021] we will return to server mode (if we are running that way) quickly ; 4976 4 ![021] when the other Kermit has been aborted and then restarted, and should ; 4977 4 ![021] also make restarting quick, since we will not need to wait for the ; 4978 4 ![021] other Kermit to time this message out before retransmitting. ; 4979 4 ![021] ; 4980 4 ; 4981 4 IF NOT (.CHK_ROUTINE) () ; 4982 4 THEN ; 4983 5 BEGIN ; 4984 5 SEND_PACKET (MSG_NAK, 0, .REC_SEQ); ; 4985 5 RETURN FALSE; ! Just indicate an error ; 4986 5 END ; 4987 4 ELSE ; 4988 4 EXITLOOP KER_NORMAL; ; 4989 4 ; 4990 3 END; ; 4991 3 ; 4992 2 END; ; 4993 2 ; 4994 1 END; ! End of REC_PARSE ;REC_MESSAGE U.25: .WORD ^M<R2,R3,R4> ;Save R2,R3,R4 4903 001C 00000 MOVAB W^U.24, R4 ;U.24, R4 54 FE42 CF 9E 00002 MOVAB G^U.54, R3 ;U.54, R3 53 00000000' 00 9E 00007 1$: CMPL (R3), G^PKT_RETRIES ;NUM_RETRIES, PKT_RETRIES 4951 00000000G 00 63 D1 0000E BLEQ 2$ ;2$ 15 15 00015 PUSHL #134316194 ;#134316194 4954 080180A2 8F DD 00017 CALLS #1, G^KRM_ERROR ;#1, KRM_ERROR 00000000G 00 01 FB 0001D MOVL #134316194, R0 ;#134316194, R0 4955 50 080180A2 8F D0 00024 RET ; 04 0002B 2$: INCL (R3) ;NUM_RETRIES 4958 63 D6 0002C CALLS #0, G^U.26 ;#0, U.26 4959 00000000V 00 00 FB 0002E MOVL R0, R2 ;R0, STATUS 52 50 D0 00035 BLBS R2, 4$ ;STATUS, 4$ 4962 30 52 E8 00038 CMPL R2, #134316178 ;STATUS, #134316178 08018092 8F 52 D1 0003B BEQL 3$ ;3$ 16 13 00042 CMPL R2, #134316248 ;STATUS, #134316248 080180D8 8F 52 D1 00044 BEQL 3$ ;3$ 0D 13 0004B CMPL R2, #134316234 ;STATUS, #134316234 4963 080180CA 8F 52 D1 0004D BEQL 3$ ;3$ 04 13 00054 MOVL R2, R0 ;STATUS, R0 4965 50 52 D0 00056 RET ; 04 00059 3$: BLBS R2, 4$ ;STATUS, 4$ 4967 0E 52 E8 0005A PUSHL 4(R3) ;MSG_NUMBER 4969 04 A3 DD 0005D CLRL -(SP) ;-(SP) 7E D4 00060 MOVZBL #78, -(SP) ;#78, -(SP) 7E 4E 8F 9A 00062 CALLS #3, (R4) ;#3, SEND_PACKET 64 03 FB 00066 BRB 1$ ;1$ A3 11 00069 4$: CALLS #0, @4(AP) ;#0, @CHK_ROUTINE 4981 04 BC 00 FB 0006B BLBS R0, 5$ ;R0, 5$ 0E 50 E8 0006F PUSHL 8(R3) ;REC_SEQ 4984 08 A3 DD 00072 CLRL -(SP) ;-(SP) 7E D4 00075 MOVZBL #78, -(SP) ;#78, -(SP) 7E 4E 8F 9A 00077 CALLS #3, (R4) ;#3, SEND_PACKET 64 03 FB 0007B BRB 6$ ;6$ 4985 08 11 0007E 5$: MOVL #134316043, R0 ;#134316043, R0 4988 50 0801800B 8F D0 00080 RET ; 04 00087 6$: CLRL R0 ;R0 4946 50 D4 00088 RET ; 04 0008A ; Routine Size: 139 bytes, Routine Base: $CODE$ + 1D78 ; 4995 1 %SBTTL 'REC_PACKET' ; 4996 1 ROUTINE REC_PACKET = ; 4997 1 ; 4998 1 !++ ; 4999 1 ! FUNCTIONAL DESCRIPTION: ; 5000 1 ! ; 5001 1 ! This routine will do the oppoiste of SEND_PACKET. It will wait ; 5002 1 ! for the message to be read from the remote and then it will ; 5003 1 ! check the message for validity. ; 5004 1 ! ; 5005 1 ! CALLING SEQUENCE: ; 5006 1 ! ; 5007 1 ! Flag = REC_PACKET(); ; 5008 1 ! ; 5009 1 ! INPUT PARAMETERS: ; 5010 1 ! ; 5011 1 ! None. ; 5012 1 ! ; 5013 1 ! IMPLICIT INPUTS: ; 5014 1 ! ; 5015 1 ! None. ; 5016 1 ! ; 5017 1 ! OUTPUT PARAMETERS: ; 5018 1 ! ; 5019 1 ! None. ; 5020 1 ! ; 5021 1 ! IMPLICIT OUTPUTS: ; 5022 1 ! ; 5023 1 ! REC_MSG - Contains the message received. ; 5024 1 ! ; 5025 1 ! COMPLETION CODES: ; 5026 1 ! ; 5027 1 ! True - Packet receive ok. ; 5028 1 ! False - Problem occured during the receiving of the packet. ; 5029 1 ! ; 5030 1 ! SIDE EFFECTS: ; 5031 1 ! ; 5032 1 ! None. ; 5033 1 ! ; 5034 1 !-- ; 5035 1 ; 5036 2 BEGIN ; 5037 2 ; 5038 2 BIND ; 5039 2 ATTEMPT_TEXT = UPLIT (%ASCIZ'Attempting to receive'); ; 5040 2 ; 5041 2 LOCAL ; 5042 2 STATUS, ! Status returned by various routines ; 5043 2 MSG_LENGTH, ; 5044 2 ERR_POINTER, ! Pointer to the error buffer ; 5045 2 POINTER, ; 5046 2 CHKSUM; ! Checksum of the message ; 5047 2 ; 5048 2 ! ; 5049 2 ! Attempt to read the message from the remote. ; 5050 2 ! ; 5051 2 ! DO ; 5052 2 ! BEGIN ; 5053 2 ; 5054 2 IF .DEBUG_FLAG ; 5055 2 THEN ; 5056 3 BEGIN ; 5057 3 ; 5058 3 LOCAL ; 5059 3 OLD_RTN; ; 5060 3 ; 5061 3 OLD_RTN = TT_SET_OUTPUT (DBG_DUMP); ; 5062 3 TT_TEXT (ATTEMPT_TEXT); ; 5063 3 TT_CRLF (); ; 5064 3 TT_SET_OUTPUT (.OLD_RTN); ; 5065 2 END; ; 5066 2 ; 5067 2 ! ; 5068 2 ! If status type out requested, do it once ; 5069 2 ! ; 5070 2 ; 5071 2 IF .TYP_STS_FLAG ; 5072 2 THEN ; 5073 3 BEGIN ; 5074 3 STS_OUTPUT (); ; 5075 3 TYP_STS_FLAG = FALSE; ; 5076 2 END; ; 5077 2 ; 5078 2 ! ; 5079 2 ! Receive the message from the remote Kermit ; 5080 2 ! ; 5081 2 STATUS = RECEIVE (REC_MSG, MSG_LENGTH); ; 5082 2 ! ; 5083 2 ! Check for timeouts ; 5084 2 ! ; 5085 2 ; 5086 2 IF .STATUS EQL KER_TIMEOUT THEN XFR_STATUS (%C'R', %C'T'); ; 5087 2 ; 5088 2 ! ; 5089 2 ! If it failed return the status to the upper level ; 5090 2 ! ; 5091 2 ; 5092 2 IF NOT .STATUS ; 5093 2 THEN ; 5094 3 BEGIN ; 5095 3 ; 5096 3 IF .STATUS NEQ KER_ABORTED AND .STATUS NEQ KER_TIMEOUT THEN KRM_ERROR (.STATUS); ; 5097 3 ; 5098 3 ! Report error ; 5099 3 RETURN .STATUS; ; 5100 2 END; ; 5101 2 ; 5102 2 ! ; 5103 2 ! Determine if we got a good message ; 5104 2 ! ; 5105 2 ; 5106 2 IF .MSG_LENGTH LSS PKT_TOT_OVR_HEAD - 1 ; 5107 2 THEN ; 5108 3 BEGIN ; 5109 3 RETURN KER_ZEROLENMSG; ; 5110 2 END; ; 5111 2 ; 5112 2 IF UNCHAR (CH$RCHAR (CH$PTR (REC_MSG, PKT_COUNT, CHR_SIZE))) EQL 0 ! [108] ; 5113 2 THEN ! [108] ; 5114 3 BEGIN ! [108] ; 5115 3 IF .MSG_LENGTH LSS PKT_TOT_OVR_HEAD - 1 + 3 ! [108] ; 5116 3 THEN ! [108] ; 5117 4 BEGIN ! [108] ; 5118 4 RETURN KER_ZEROLENMSG; ! [108] ; 5119 3 END; ! [108] ; 5120 2 END; ! [108] ; 5121 2 ! ; 5122 2 ! Update the stats on the total number of characters received. ; 5123 2 ! ; 5124 2 RMSG_TOTAL_CHARS = .RMSG_TOTAL_CHARS + .MSG_LENGTH; ; 5125 2 ! ; 5126 2 ! Initialize the checksum and others ; 5127 2 ! ; 5128 2 REC_TYPE = CH$RCHAR (CH$PTR (REC_MSG, PKT_TYPE, CHR_SIZE)); ; 5129 2 ! ; 5130 2 ! Now break the message apart byte by byte. ; 5131 2 ! ; 5132 2 RECV_PKT_MSG = PKT_MSG; ! [108] ; 5133 2 REC_LENGTH = UNCHAR (CH$RCHAR (CH$PTR (REC_MSG, PKT_COUNT, CHR_SIZE))); ; 5134 2 IF .REC_LENGTH EQL 0 ! [108] ; 5135 2 THEN ! [108] ; 5136 3 BEGIN ! [108] ; 5137 3 REC_LENGTH = UNCHAR (CH$RCHAR (CH$PTR (REC_MSG, PKT_COUNTX1, CHR_SIZE))) * 95 + ; 5138 3 UNCHAR (CH$RCHAR (CH$PTR (REC_MSG, PKT_COUNTX2, CHR_SIZE))) + ; 5139 3 PKT_HCHECK - 1; ! [108] ; 5140 3 RECV_PKT_MSG = PKT_MSGX; ! [108] ; 5141 2 END; ! [108] ; 5142 2 ; 5143 2 REC_SEQ = UNCHAR (CH$RCHAR (CH$PTR (REC_MSG, PKT_SEQ, CHR_SIZE))); ; 5144 2 ! ; 5145 2 ! Typed the packet if we are debugging ; 5146 2 ! ; 5147 2 DBG_RECEIVE (REC_MSG); ; 5148 2 ! ; 5149 2 ! Now compute the final checksum and make sure that it is identical ; 5150 2 ! to what we received from the remote KERMIT ; 5151 2 ! ; 5152 2 POINTER = CH$PTR (REC_MSG, PKT_MARK + 1, CHR_SIZE); ; 5153 2 REC_LENGTH = .REC_LENGTH - (.BLK_CHK_TYPE - CHK_1CHAR); ! [108] ; 5154 2 CHKSUM = CALC_BLOCK_CHECK (.POINTER, .REC_LENGTH); ! [108] ; 5155 2 POINTER = CH$PTR (REC_MSG, .REC_LENGTH + 1, CHR_SIZE); ! [108] ; 5156 2 REC_LENGTH = .REC_LENGTH - .RECV_PKT_MSG + 1; ! [108] ; 5157 2 STATUS = KER_NORMAL; ! Assume good checksum ; 5158 2 ; 5159 2 CASE .BLK_CHK_TYPE FROM CHK_1CHAR TO CHK_CRC OF ; 5160 2 SET ; 5161 2 ; 5162 2 [CHK_1CHAR] : ; 5163 2 ; 5164 2 IF .CHKSUM NEQ UNCHAR (CH$RCHAR_A (POINTER)) THEN STATUS = KER_CHKSUMERR; ; 5165 2 ; 5166 2 [CHK_2CHAR] : ; 5167 2 ; P 5168 3 IF (.CHKSUM<6, 6> NEQ UNCHAR (CH$RCHAR_A (POINTER))) OR (.CHKSUM<0, 6> NEQ UNCHAR ( ; 5169 3 CH$RCHAR_A (POINTER))) ; 5170 2 THEN ; 5171 2 STATUS = KER_CHKSUMERR; ; 5172 2 ; 5173 2 [CHK_CRC] : ; 5174 2 ; P 5175 3 IF (.CHKSUM<12, 4> NEQ UNCHAR (CH$RCHAR_A (POINTER))) OR (.CHKSUM<6, 6> NEQ UNCHAR ( ; 5176 3 CH$RCHAR_A (POINTER))) OR (.CHKSUM<0, 6> NEQ UNCHAR (CH$RCHAR_A (POINTER))) ; 5177 2 THEN ; 5178 2 STATUS = KER_CHKSUMERR; ; 5179 2 ; 5180 2 TES; ; 5181 2 ; 5182 2 ! ; 5183 2 ! If we have a bad checksum, check for the special cases when we might be out ; 5184 2 ! of sync with the sender. This can occur if the sender is retransmitting ; 5185 2 ! a send-init (because our ACK got lost), and we have agreed on multi-char ; 5186 2 ! checksums, or because the sender is a server who has aborted back to being ; 5187 2 ! idle without telling us. ; 5188 2 ! Note that in either case, we return back to using single character checksums ; 5189 2 ! ; 5190 2 ; 5191 2 IF .STATUS EQL KER_CHKSUMERR ; 5192 2 THEN ; 5193 3 BEGIN ; 5194 3 ; 5195 5 IF (.BLK_CHK_TYPE NEQ CHK_1CHAR AND .REC_SEQ EQL 0) AND (.REC_LENGTH LSS 1 - (.BLK_CHK_TYPE ; 5196 4 - CHK_1CHAR) AND .REC_TYPE EQL MSG_NAK) OR (.REC_TYPE EQL MSG_SND_INIT) ; 5197 3 THEN ; 5198 4 BEGIN ; 5199 4 ; 5200 4 LOCAL ; 5201 4 SAVE_BLK_CHK_TYPE; ; 5202 4 ; 5203 4 SAVE_BLK_CHK_TYPE = .BLK_CHK_TYPE; ! Remember what we are using ; 5204 4 BLK_CHK_TYPE = CHK_1CHAR; ; 5205 4 POINTER = CH$PTR (REC_MSG, PKT_MARK + 1, CHR_SIZE); ; 5206 4 CHKSUM = CALC_BLOCK_CHECK (.POINTER, .REC_LENGTH + .RECV_PKT_MSG - 1); ! [108] ; 5207 4 POINTER = CH$PTR (REC_MSG, .REC_LENGTH + PKT_OVR_HEAD + 1, CHR_SIZE); ; 5208 4 ; 5209 5 IF .CHKSUM NEQ UNCHAR (CH$RCHAR_A (POINTER)) ; 5210 4 THEN ; 5211 5 BEGIN ; 5212 5 BLK_CHK_TYPE = .SAVE_BLK_CHK_TYPE; ; 5213 5 RETURN KER_CHKSUMERR; ; 5214 4 END; ; 5215 4 ; 5216 4 END ; 5217 3 ELSE ; 5218 3 RETURN KER_CHKSUMERR; ; 5219 3 ; 5220 2 END; ; 5221 2 ; 5222 2 ! ; 5223 2 ! Update the stats ; 5224 2 ! ; 5225 2 ! RMSG_DATA_CHARS = .RMSG_DATA_CHARS + .REC_LENGTH; ; 5226 2 ; 5227 2 IF .REC_TYPE EQL MSG_NAK ; 5228 2 THEN ; 5229 3 BEGIN ; 5230 3 RMSG_NAKS = .RMSG_NAKS + 1; ; 5231 3 XFR_STATUS (%C'R', %C'N'); ; 5232 3 END ; 5233 2 ELSE ; 5234 3 BEGIN ; 5235 3 RMSG_COUNT = .RMSG_COUNT + 1; ; 5236 3 XFR_STATUS (%C'R', %C'P'); ; 5237 2 END; ; 5238 2 ; 5239 2 ! ; 5240 2 ! Now check to see if we have an E type (Error) packet. ; 5241 2 ! ; 5242 2 ; 5243 2 IF .REC_TYPE NEQ MSG_ERROR THEN RETURN KER_NORMAL; ; 5244 2 ; 5245 2 ! ; 5246 2 ! Here to process an error packet. Call the user routine to output the ; 5247 2 ! error message to the terminal. ; 5248 2 ! ; 5249 2 ! ; 5250 2 ![026] Use decoding routine to fetch the error text ; 5251 2 ! ; 5252 2 CH$FILL (CHR_NUL, MAX_MSG + 1, CH$PTR (LAST_ERROR)); ; 5253 2 SET_STRING (CH$PTR (LAST_ERROR), MAX_MSG, TRUE); ; 5254 2 BFR_EMPTY (); ; 5255 2 SET_STRING (0, 0, FALSE); ; 5256 2 ![026] ERR_POINTER = CH$PTR (LAST_ERROR); ; 5257 2 ![026] POINTER = CH$PTR (REC_MSG, PKT_MSG, CHR_SIZE); ; 5258 2 ![026] ; 5259 2 ![026] INCR I FROM 1 TO .REC_LENGTH DO ; 5260 2 ![026] CH$WCHAR_A (CH$RCHAR_A (POINTER), ERR_POINTER); ; 5261 2 ![026] ; 5262 2 ![026] CH$WCHAR (CHR_NUL, ERR_POINTER); ; 5263 2 TT_TEXT (LAST_ERROR); ; 5264 2 TT_CRLF (); ; 5265 2 RETURN KER_ERRMSG; ; 5266 1 END; ! End of REC_PACKET .PSECT $PLIT$,NOWRT,NOEXE,2 P.AAN: .ASCII \Attempting to receive\<0><0><0> ; 69 74 70 6D 65 74 74 41 000A0 ; 65 72 20 6F 74 20 67 6E 000A8 ; 00 00 00 65 76 69 65 63 000B0 U.82= P.AAN .PSECT $CODE$,NOWRT,2 ;REC_PACKET U.26: .WORD ^M<R2,R3,R4,R5,R6,R7,R8,R9,R10,- ;Save R2,R3,R4,R5,R6,R7,R8,R9,R10,- 4996 0FFC 00000 R11> ;R11 MOVAB G^TYP_STS_FLAG, R11 ;TYP_STS_FLAG, R11 5B 00000000G 00 9E 00002 MOVAB G^TT_CRLF, R10 ;TT_CRLF, R10 5A 00000000G 00 9E 00009 MOVAB G^TT_TEXT, R9 ;TT_TEXT, R9 59 00000000G 00 9E 00010 MOVAB G^TT_SET_OUTPUT, R8 ;TT_SET_OUTPUT, R8 58 00000000G 00 9E 00017 MOVAB G^LAST_ERROR, R7 ;LAST_ERROR, R7 57 00000000G 00 9E 0001E MOVAB G^U.57, R6 ;U.57, R6 56 00000000' 00 9E 00025 SUBL2 #4, SP ;#4, SP 5E 04 C2 0002C BLBC G^DEBUG_FLAG, 1$ ;DEBUG_FLAG, 1$ 5054 1D 00000000G 00 E9 0002F PUSHAB G^DBG_DUMP ;DBG_DUMP 5061 00000000G 00 9F 00036 CALLS #1, (R8) ;#1, TT_SET_OUTPUT 68 01 FB 0003C MOVL R0, R2 ;R0, OLD_RTN 52 50 D0 0003F PUSHAB G^U.82 ;U.82 5062 00000000' 00 9F 00042 CALLS #1, (R9) ;#1, TT_TEXT 69 01 FB 00048 CALLS #0, (R10) ;#0, TT_CRLF 5063 6A 00 FB 0004B PUSHL R2 ;OLD_RTN 5064 52 DD 0004E CALLS #1, (R8) ;#1, TT_SET_OUTPUT 68 01 FB 00050 1$: BLBC (R11), 2$ ;TYP_STS_FLAG, 2$ 5071 09 6B E9 00053 CALLS #0, G^U.33 ;#0, U.33 5074 00000000V 00 00 FB 00056 CLRL (R11) ;TYP_STS_FLAG 5075 6B D4 0005D 2$: PUSHL SP ;SP 5081 5E DD 0005F PUSHAB 8(R6) ;REC_MSG 08 A6 9F 00061 CALLS #2, G^RECEIVE ;#2, RECEIVE 00000000G 00 02 FB 00064 MOVL R0, R5 ;R0, STATUS 55 50 D0 0006B CMPL R5, #134316248 ;STATUS, #134316248 5086 080180D8 8F 55 D1 0006E BNEQ 3$ ;3$ 0F 12 00075 MOVZBL #84, -(SP) ;#84, -(SP) 7E 54 8F 9A 00077 MOVZBL #82, -(SP) ;#82, -(SP) 7E 52 8F 9A 0007B CALLS #2, G^XFR_STATUS ;#2, XFR_STATUS 00000000G 00 02 FB 0007F 3$: BLBS R5, 5$ ;STATUS, 5$ 5092 1F 55 E8 00086 CMPL R5, #134316258 ;STATUS, #134316258 5096 080180E2 8F 55 D1 00089 BEQL 4$ ;4$ 12 13 00090 CMPL R5, #134316248 ;STATUS, #134316248 080180D8 8F 55 D1 00092 BEQL 4$ ;4$ 09 13 00099 PUSHL R5 ;STATUS 55 DD 0009B CALLS #1, G^KRM_ERROR ;#1, KRM_ERROR 00000000G 00 01 FB 0009D 4$: MOVL R5, R0 ;STATUS, R0 5099 50 55 D0 000A4 RET ; 04 000A7 5$: CMPL (SP), #5 ;MSG_LENGTH, #5 5106 05 6E D1 000A8 BLSS 6$ ;6$ 0E 19 000AB MOVZBL 9(R6), R0 ;REC_MSG+1, R0 5112 50 09 A6 9A 000AD CMPB R0, #32 ;R0, #32 20 50 91 000B1 BNEQ 7$ ;7$ 0D 12 000B4 CMPL (SP), #8 ;MSG_LENGTH, #8 5115 08 6E D1 000B6 BGEQ 7$ ;7$ 08 18 000B9 6$: MOVL #134316234, R0 ;#134316234, R0 5118 50 080180CA 8F D0 000BB RET ; 04 000C2 7$: ADDL2 (SP), G^RMSG_TOTAL_CHARS ;MSG_LENGTH, RMSG_TOTAL_CHARS 5124 00000000G 00 6E C0 000C3 MOVZBL 11(R6), 4(R6) ;REC_MSG+3, REC_TYPE 5128 04 A6 0B A6 9A 000CA MOVL #4, -72(R6) ;#4, RECV_PKT_MSG 5132 B8 A6 04 D0 000CF MOVAB -32(R0), (R6) ;-32(R0), REC_LENGTH 5133 66 E0 A0 9E 000D3 BNEQ 8$ ;8$ 5134 19 12 000D7 MOVZBL 12(R6), R0 ;REC_MSG+4, R0 5137 50 0C A6 9A 000D9 MULL2 #95, R0 ;#95, R0 50 0000005F 8F C4 000DD MOVZBL 13(R6), R1 ;REC_MSG+5, R1 5138 51 0D A6 9A 000E4 MOVAB -3067(R1)[R0], (R6) ;-3067(R1)[R0], REC_LENGTH 5139 66 F405 C140 9E 000E8 MOVL #7, -72(R6) ;#7, RECV_PKT_MSG 5140 B8 A6 07 D0 000EE 8$: MOVZBL 10(R6), -4(R6) ;REC_MSG+2, REC_SEQ 5143 FC A6 0A A6 9A 000F2 SUBL2 #32, -4(R6) ;#32, REC_SEQ FC A6 20 C2 000F7 PUSHAB 8(R6) ;REC_MSG 5147 08 A6 9F 000FB CALLS #1, G^U.36 ;#1, U.36 00000000V 00 01 FB 000FE MOVAB 9(R6), R2 ;REC_MSG+1, POINTER 5152 52 09 A6 9E 00105 SUBL3 -36(R6), (R6), R0 ;BLK_CHK_TYPE, REC_LENGTH, R0 5153 66 DC A6 C3 00109 ; 50 0010D MOVAB 49(R0), (R6) ;49(R0), REC_LENGTH 66 31 A0 9E 0010E PUSHL (R6) ;REC_LENGTH 5154 66 DD 00112 PUSHL R2 ;POINTER 52 DD 00114 CALLS #2, G^U.19 ;#2, U.19 00000000V 00 02 FB 00116 MOVL (R6), R1 ;REC_LENGTH, R1 5155 51 66 D0 0011D MOVAB 9(R6)[R1], R2 ;REC_MSG+1[R1], POINTER 52 09 A641 9E 00120 MOVL -72(R6), R3 ;RECV_PKT_MSG, R3 5156 53 B8 A6 D0 00125 SUBL2 R3, R1 ;R3, R1 51 53 C2 00129 MOVAB 1(R1), (R6) ;1(R1), REC_LENGTH 66 01 A1 9E 0012C MOVL #134316043, R5 ;#134316043, STATUS 5157 55 0801800B 8F D0 00130 MOVL -36(R6), R4 ;BLK_CHK_TYPE, R4 5159 54 DC A6 D0 00137 CASEL R4, #49, #2 ;R4, #49, #2 31 54 CF 0013B ; 02 0013E 9$: .WORD 10$-9$,- ;10$-9$,- 001E 0006 0013F 12$-9$,- ;12$-9$,- 0011 00143 11$-9$ ;11$-9$ 10$: MOVZBL (R2)+, R1 ;(POINTER)+, R1 5164 51 82 9A 00145 SUBL2 #32, R1 ;#32, R1 51 20 C2 00148 CMPL R0, R1 ;CHKSUM, R1 51 50 D1 0014B BRB 13$ ;13$ 25 11 0014E 11$: MOVZBL (R2)+, R1 ;(POINTER)+, R1 5175 51 82 9A 00150 SUBL2 #32, R1 ;#32, R1 51 20 C2 00153 CMPZV #12, #4, R0, R1 ;#12, #4, CHKSUM, R1 04 0C ED 00156 ; 51 50 00159 BNEQ 14$ ;14$ 1A 12 0015B 12$: MOVZBL (R2)+, R1 ;(POINTER)+, R1 5176 51 82 9A 0015D SUBL2 #32, R1 ;#32, R1 51 20 C2 00160 CMPZV #6, #6, R0, R1 ;#6, #6, CHKSUM, R1 06 06 ED 00163 ; 51 50 00166 BNEQ 14$ ;14$ 0D 12 00168 MOVZBL (R2)+, R1 ;(POINTER)+, R1 51 82 9A 0016A SUBL2 #32, R1 ;#32, R1 51 20 C2 0016D CMPZV #0, #6, R0, R1 ;#0, #6, CHKSUM, R1 06 00 ED 00170 ; 51 50 00173 13$: BEQL 15$ ;15$ 07 13 00175 14$: MOVL #134316178, R5 ;#134316178, STATUS 5178 55 08018092 8F D0 00177 15$: CMPL R5, #134316178 ;STATUS, #134316178 5191 08018092 8F 55 D1 0017E BNEQ 19$ ;19$ 64 12 00185 CMPL R4, #49 ;R4, #49 5195 31 54 D1 00187 BEQL 16$ ;16$ 1B 13 0018A TSTL -4(R6) ;REC_SEQ FC A6 D5 0018C BNEQ 16$ ;16$ 16 12 0018F MOVAB -50(R4), R1 ;-50(R4), R1 5196 51 CE A4 9E 00191 MNEGL R1, R1 ;R1, R1 51 51 CE 00195 CMPL (R6), R1 ;REC_LENGTH, R1 51 66 D1 00198 BGEQ 16$ ;16$ 0A 18 0019B CMPL 4(R6), #78 ;REC_TYPE, #78 0000004E 8F 04 A6 D1 0019D BEQL 17$ ;17$ 0A 13 001A5 16$: CMPL 4(R6), #83 ;REC_TYPE, #83 00000053 8F 04 A6 D1 001A7 BNEQ 18$ ;18$ 32 12 001AF 17$: MOVL #49, -36(R6) ;#49, BLK_CHK_TYPE 5204 DC A6 31 D0 001B1 MOVAB 9(R6), R2 ;REC_MSG+1, POINTER 5205 52 09 A6 9E 001B5 MOVL (R6), R1 ;REC_LENGTH, R1 5206 51 66 D0 001B9 PUSHAB -1(R3)[R1] ;-1(R3)[R1] FF A341 9F 001BC PUSHL R2 ;POINTER 52 DD 001C0 CALLS #2, G^U.19 ;#2, U.19 00000000V 00 02 FB 001C2 MOVAB 8(R6), R1 ;REC_MSG, R1 5207 51 08 A6 9E 001C9 ADDL2 (R6), R1 ;REC_LENGTH, R1 51 66 C0 001CD MOVAB 4(R1), R2 ;4(R1), POINTER 52 04 A1 9E 001D0 MOVZBL (R2)+, R1 ;(POINTER)+, R1 5209 51 82 9A 001D4 SUBL2 #32, R1 ;#32, R1 51 20 C2 001D7 CMPL R0, R1 ;CHKSUM, R1 51 50 D1 001DA BEQL 19$ ;19$ 0C 13 001DD MOVL R4, -36(R6) ;SAVE_BLK_CHK_TYPE, BLK_CHK_TYPE 5212 DC A6 54 D0 001DF 18$: MOVL #134316178, R0 ;#134316178, R0 5218 50 08018092 8F D0 001E3 RET ; 04 001EA 19$: CMPL 4(R6), #78 ;REC_TYPE, #78 5227 0000004E 8F 04 A6 D1 001EB BNEQ 20$ ;20$ 0C 12 001F3 INCL G^RMSG_NAKS ;RMSG_NAKS 5230 00000000G 00 D6 001F5 MOVZBL #78, -(SP) ;#78, -(SP) 5231 7E 4E 8F 9A 001FB BRB 21$ ;21$ 0A 11 001FF 20$: INCL G^RMSG_COUNT ;RMSG_COUNT 5235 00000000G 00 D6 00201 MOVZBL #80, -(SP) ;#80, -(SP) 5236 7E 50 8F 9A 00207 21$: MOVZBL #82, -(SP) ;#82, -(SP) 7E 52 8F 9A 0020B CALLS #2, G^XFR_STATUS ;#2, XFR_STATUS 00000000G 00 02 FB 0020F CMPL 4(R6), #69 ;REC_TYPE, #69 5243 00000045 8F 04 A6 D1 00216 BEQL 22$ ;22$ 08 13 0021E MOVL #134316043, R0 ;#134316043, R0 50 0801800B 8F D0 00220 RET ; 04 00227 22$: MOVC5 #0, (SP), #0, #1003, (R7) ;#0, (SP), #0, #1003, LAST_ERROR 5252 6E 00 2C 00228 ; 03EB 8F 00 0022B ; 67 0022F PUSHL #1 ;#1 5253 01 DD 00230 MOVZWL #1002, -(SP) ;#1002, -(SP) 7E 03EA 8F 3C 00232 PUSHL R7 ;R7 57 DD 00237 CALLS #3, G^U.30 ;#3, U.30 00000000V 00 03 FB 00239 CALLS #0, G^U.28 ;#0, U.28 5254 00000000V 00 00 FB 00240 CLRQ -(SP) ;-(SP) 5255 7E 7C 00247 CLRL -(SP) ;-(SP) 7E D4 00249 CALLS #3, G^U.30 ;#3, U.30 00000000V 00 03 FB 0024B PUSHL R7 ;R7 5263 57 DD 00252 CALLS #1, (R9) ;#1, TT_TEXT 69 01 FB 00254 CALLS #0, (R10) ;#0, TT_CRLF 5264 6A 00 FB 00257 MOVL #134316170, R0 ;#134316170, R0 5265 50 0801808A 8F D0 0025A RET ; 04 00261 ; Routine Size: 610 bytes, Routine Base: $CODE$ + 1E03 ; 5267 1 %SBTTL 'CALC_BLOCK_CHECK' ; 5268 1 ROUTINE CALC_BLOCK_CHECK (POINTER, LENGTH) = ; 5269 1 ; 5270 1 !++ ; 5271 1 ! FUNCTIONAL DESCRIPTION: ; 5272 1 ! ; 5273 1 ! This routine will calculate the proper value for the block check ; 5274 1 ! for a given message. The value it returns is dependant upon the ; 5275 1 ! type of block check requested in BLK_CHK_TYPE. ; 5276 1 ! ; 5277 1 ! CALLING SEQUENCE: ; 5278 1 ! ; 5279 1 ! CHKSUM = CALC_BLOCK_CHECK (.POINTER, .LENGTH); ; 5280 1 ! ; 5281 1 ! INPUT PARAMETERS: ; 5282 1 ! ; 5283 1 ! POINTER - A character pointer to the first character to be ; 5284 1 ! included in the block check. ; 5285 1 ! ; 5286 1 ! LENGTH - The number of characters to be included. ; 5287 1 ! ; 5288 1 ! IMPLICIT INPUTS: ; 5289 1 ! ; 5290 1 ! BLK_CHK_TYPE - The type of block check to generate. ; 5291 1 ! ; 5292 1 ! OUPTUT PARAMETERS: ; 5293 1 ! ; 5294 1 ! The value is the block check. ; 5295 1 ! ; 5296 1 ! IMPLICIT OUTPUTS: ; 5297 1 ! ; 5298 1 ! None. ; 5299 1 ! ; 5300 1 ! COMPLETION CODES: ; 5301 1 ! ; 5302 1 ! None. ; 5303 1 ! ; 5304 1 ! SIDE EFFECTS: ; 5305 1 ! ; 5306 1 ! None. ; 5307 1 ! ; 5308 1 !-- ; 5309 1 ; 5310 2 BEGIN ; 5311 2 ; 5312 2 LOCAL ; 5313 2 CHAR_MASK, ! Mask for stripping bits ; 5314 2 BLOCK_CHECK; ! To build initial block check value ; 5315 2 ; 5316 2 BLOCK_CHECK = 0; ! Start out at 0 ; 5317 2 ! ; 5318 2 ! Set mask for characters so that we calculate the block check correctly ; 5319 2 ! ; 5320 2 CHAR_MASK = (IF .PARITY_TYPE EQL PR_NONE THEN %O'377' ELSE %O'177'); ; 5321 2 ; 5322 2 CASE .BLK_CHK_TYPE FROM CHK_1CHAR TO CHK_CRC OF ; 5323 2 SET ; 5324 2 ; 5325 2 [CHK_1CHAR, CHK_2CHAR] : ; 5326 2 ; 5327 2 INCR I FROM 1 TO .LENGTH DO ; 5328 2 BLOCK_CHECK = .BLOCK_CHECK + (CH$RCHAR_A (POINTER) AND .CHAR_MASK); ; 5329 2 ; 5330 2 [CHK_CRC] : ; 5331 3 BEGIN ; 5332 3 ! ; 5333 3 ! Ensure that the calculation is done with correct type of characters ; 5334 3 ! ; 5335 3 ; 5336 3 LOCAL ; 5337 3 TMP_PTR; ! Temp pointer for copying chars ; 5338 3 ; 5339 3 TMP_PTR = .POINTER; ; 5340 3 ; 5341 3 IF .PARITY_TYPE NEQ PR_NONE ; 5342 3 THEN ; 5343 3 ; 5344 3 INCR I FROM 1 TO .LENGTH DO ; 5345 3 CH$WCHAR_A ((CH$RCHAR (.TMP_PTR) AND %O'177'), TMP_PTR); ; 5346 3 ; 5347 3 BLOCK_CHECK = CRCCLC (.POINTER, .LENGTH); ; 5348 2 END; ; 5349 2 TES; ; 5350 2 ; 5351 2 IF .BLK_CHK_TYPE EQL CHK_1CHAR ; 5352 2 THEN ; 5353 2 BLOCK_CHECK = (.BLOCK_CHECK + ((.BLOCK_CHECK AND %O'300')/%O'100')) AND %O'77'; ; 5354 2 ; 5355 2 RETURN .BLOCK_CHECK; ! Return the correct value ; 5356 1 END; ! End of CALC_BLOCK_CHK ;CALC_BLOCK_CHECK U.19: .WORD ^M<R2,R3,R4,R5> ;Save R2,R3,R4,R5 5268 003C 00000 MOVAB G^U.48, R5 ;U.48, R5 55 00000000' 00 9E 00002 CLRL R3 ;BLOCK_CHECK 5316 53 D4 00009 MOVL G^PARITY_TYPE, R1 ;PARITY_TYPE, R1 5320 51 00000000G 00 D0 0000B BNEQ 1$ ;1$ 06 12 00012 MOVZBL #255, R2 ;#255, CHAR_MASK 52 FF 8F 9A 00014 BRB 2$ ;2$ 04 11 00018 1$: MOVZBL #127, R2 ;#127, CHAR_MASK 52 7F 8F 9A 0001A 2$: CASEL (R5), #49, #2 ;BLK_CHK_TYPE, #49, #2 5322 31 65 CF 0001E ; 02 00021 3$: .WORD 4$-3$,- ;4$-3$,- 0006 0006 00022 4$-3$,- ;4$-3$,- 0021 00026 7$-3$ ;7$-3$ 4$: CLRL R0 ;I 5327 50 D4 00028 BRB 6$ ;6$ 10 11 0002A 5$: MOVZBL @4(AP), R1 ;@POINTER, R1 5328 51 04 BC 9A 0002C INCL 4(AP) ;POINTER 04 AC D6 00030 MCOML R2, R4 ;CHAR_MASK, R4 54 52 D2 00033 BICL2 R4, R1 ;R4, R1 51 54 CA 00036 ADDL2 R1, R3 ;R1, BLOCK_CHECK 53 51 C0 00039 6$: AOBLEQ 8(AP), R0, 5$ ;LENGTH, I, 5$ 50 08 AC F3 0003C ; EB 00040 BRB 11$ ;11$ 27 11 00041 7$: MOVL 4(AP), R2 ;POINTER, TMP_PTR 5339 52 04 AC D0 00043 TSTL R1 ;R1 5341 51 D5 00047 BEQL 10$ ;10$ 11 13 00049 CLRL R0 ;I 5344 50 D4 0004B BRB 9$ ;9$ 08 11 0004D 8$: EXTZV #0, #7, (R2), R1 ;#0, #7, (TMP_PTR), R1 5345 07 00 EF 0004F ; 51 62 00052 MOVB R1, (R2)+ ;R1, (TMP_PTR)+ 82 51 90 00054 9$: AOBLEQ 8(AP), R0, 8$ ;LENGTH, I, 8$ 50 08 AC F3 00057 ; F3 0005B 10$: MOVQ 4(AP), -(SP) ;POINTER, -(SP) 5347 7E 04 AC 7D 0005C CALLS #2, G^CRCCLC ;#2, CRCCLC 00000000G 00 02 FB 00060 MOVL R0, R3 ;R0, BLOCK_CHECK 53 50 D0 00067 11$: CMPL (R5), #49 ;BLK_CHK_TYPE, #49 5351 31 65 D1 0006A BNEQ 12$ ;12$ 17 12 0006D BICL3 #-193, R3, R0 ;#-193, BLOCK_CHECK, R0 5353 53 FFFFFF3F 8F CB 0006F ; 50 00076 DIVL2 #64, R0 ;#64, R0 50 00000040 8F C6 00077 ADDL2 R3, R0 ;BLOCK_CHECK, R0 50 53 C0 0007E EXTZV #0, #6, R0, R3 ;#0, #6, R0, BLOCK_CHECK 06 00 EF 00081 ; 53 50 00084 12$: MOVL R3, R0 ;BLOCK_CHECK, R0 5355 50 53 D0 00086 RET ; 04 00089 ; Routine Size: 138 bytes, Routine Base: $CODE$ + 2065 ; 5357 1 %SBTTL 'NORMALIZE_FILE - Put file name into normal form' ; 5358 1 ROUTINE NORMALIZE_FILE (FILE_ADDRESS, FILE_LENGTH, NAME_LENGTH, TYPE_LENGTH) : NOVALUE = ; 5359 1 ; 5360 1 !++ ; 5361 1 ! FUNCTIONAL DESCRIPTION: ; 5362 1 ! ; 5363 1 ! This routine will ensure that a file specification is in normal ; 5364 1 ! form. It does this by replacing all non-alphanumeric characters ; 5365 1 ! (except the first period) with "X". It will also ensure that ; 5366 1 ! the resulting specification (of form name.type) has only ; 5367 1 ! a specified number of characters in the name portion and type portion. ; 5368 1 ! ; 5369 1 ! CALLING SEQUENCE: ; 5370 1 ! ; 5371 1 ! NORMALIZE_FILE (FILE_ADDRESS, FILE_LENGTH, NAME_LENGTH, TYPE_LENGTH); ; 5372 1 ! ; 5373 1 ! INPUT PARAMETERS: ; 5374 1 ! ; 5375 1 ! FILE_ADDRESS - Address of file specification string to be normalized ; 5376 1 ! ; 5377 1 ! FILE_LENGTH - Length of file specification ; 5378 1 ! ; 5379 1 ! NAME_LENGTH - Maximum length desired for "name" portion. ; 5380 1 ! ; 5381 1 ! TYPE_LENGTH - Maximum length desired for "type" portion. ; 5382 1 ! ; 5383 1 ! With both NAME_LENGTH and TYPE_LENGTH, a negative value indicates ; 5384 1 ! unlimited lenght. ; 5385 1 ! ; 5386 1 ! IMPLICIT INPUTS: ; 5387 1 ! ; 5388 1 ! None. ; 5389 1 ! ; 5390 1 ! OUPTUT PARAMETERS: ; 5391 1 ! ; 5392 1 ! FILE_LENGTH - The length of the resulting file spec ; 5393 1 ! ; 5394 1 ! NAME_LENGTH - The actual length of the resulting file name ; 5395 1 ! ; 5396 1 ! TYPE_LENGTH - The actual length of the resulting file type ; 5397 1 ! ; 5398 1 ! IMPLICIT OUTPUTS: ; 5399 1 ! ; 5400 1 ! None. ; 5401 1 ! ; 5402 1 ! COMPLETION CODES: ; 5403 1 ! ; 5404 1 ! None. ; 5405 1 ! ; 5406 1 ! SIDE EFFECTS: ; 5407 1 ! ; 5408 1 ! None. ; 5409 1 ! ; 5410 1 !-- ; 5411 1 ; 5412 2 BEGIN ; 5413 2 ; 5414 2 LOCAL ; 5415 2 CH, ! Character being processed ; 5416 2 POINTER, ! Pointer to file spec ; 5417 2 WRT_POINTER, ! Pointer to write file spec ; 5418 2 WRT_SIZE, ; 5419 2 FIRST_PERIOD, ! Flag we have seen a period ; 5420 2 IGNORE_BAD, ! Flag we should ignore bad characters ; 5421 2 BAD_CHAR, ! Flag this character was bad ; 5422 2 FILE_CTR, ! Counter for overall length ; 5423 2 NAME_CTR, ! Counter for name characters ; 5424 2 TYPE_CTR; ! Counter for type characters ; 5425 2 ; 5426 2 FILE_CTR = 0; ; 5427 2 NAME_CTR = 0; ; 5428 2 TYPE_CTR = 0; ; 5429 2 WRT_SIZE = 0; ; 5430 2 FIRST_PERIOD = FALSE; ! No periods yet ; 5431 2 POINTER = CH$PTR (.FILE_ADDRESS); ! Set up pointer to file name ; 5432 2 WRT_POINTER = .POINTER; ; 5433 2 ; 5434 2 IF .NAME_LENGTH EQL 0 THEN FIRST_PERIOD = TRUE; ! Pretend we did name already ; 5435 2 ; 5436 2 IGNORE_BAD = FALSE; ; 5437 2 ; 5438 2 IF .NAME_LENGTH GTR 0 ; 5439 2 THEN ; 5440 3 BEGIN ; 5441 3 ; 5442 3 DECR I FROM ..FILE_LENGTH TO 0 DO ; 5443 3 ; 5444 3 IF CH$RCHAR_A (POINTER) EQL %C'.' ; 5445 3 THEN ; 5446 4 BEGIN ; 5447 4 IGNORE_BAD = TRUE; ; 5448 4 EXITLOOP; ; 5449 3 END; ; 5450 3 ; 5451 2 END; ; 5452 2 ; 5453 2 POINTER = .WRT_POINTER; ; 5454 2 ; 5455 2 WHILE .FILE_CTR LSS ..FILE_LENGTH DO ; 5456 3 BEGIN ; 5457 3 CH = CH$RCHAR_A (POINTER); ! Get a character ; 5458 3 FILE_CTR = .FILE_CTR + 1; ; 5459 3 ; 5460 4 IF (.CH LSS %C'0' AND (.CH NEQ %C'.' OR .FIRST_PERIOD)) OR .CH GTR %C'z' OR (.CH GTR %C'9' ; 5461 4 AND .CH LSS %C'A') OR (.CH GTR %C'Z' AND .CH LSS %C'a') ; 5462 3 THEN ; 5463 4 BEGIN ; 5464 4 BAD_CHAR = TRUE; ; 5465 4 CH = %C'X'; ; 5466 4 END ; 5467 3 ELSE ; 5468 4 BEGIN ; 5469 4 BAD_CHAR = FALSE; ; 5470 4 ; 5471 4 IF .CH GEQ %C'a' THEN CH = .CH - (%C'a' - %C'A'); ; 5472 4 ; 5473 3 END; ; 5474 3 ; 5475 3 IF .CH EQL %C'.' ; 5476 3 THEN ; 5477 4 BEGIN ; 5478 4 FIRST_PERIOD = TRUE; ; 5479 4 CH$WCHAR_A (.CH, WRT_POINTER); ; 5480 4 WRT_SIZE = .WRT_SIZE + 1; ; 5481 4 END ; 5482 3 ELSE ; 5483 3 ; 5484 3 IF NOT .BAD_CHAR OR NOT .IGNORE_BAD ; 5485 3 THEN ; 5486 3 ; 5487 3 IF NOT .FIRST_PERIOD ; 5488 3 THEN ; 5489 4 BEGIN ; 5490 4 ; 5491 4 IF .NAME_LENGTH LSS 0 OR .NAME_CTR LSS .NAME_LENGTH ; 5492 4 THEN ; 5493 5 BEGIN ; 5494 5 NAME_CTR = .NAME_CTR + 1; ; 5495 5 WRT_SIZE = .WRT_SIZE + 1; ; 5496 5 CH$WCHAR_A (.CH, WRT_POINTER); ; 5497 4 END; ; 5498 4 ; 5499 4 END ; 5500 3 ELSE ; 5501 3 ; 5502 3 IF .TYPE_LENGTH LSS 0 OR .TYPE_CTR LSS .TYPE_LENGTH ; 5503 3 THEN ; 5504 4 BEGIN ; 5505 4 TYPE_CTR = .TYPE_CTR + 1; ; 5506 4 WRT_SIZE = .WRT_SIZE + 1; ; 5507 4 CH$WCHAR_A (.CH, WRT_POINTER); ; 5508 3 END; ; 5509 3 ; 5510 2 END; ; 5511 2 ; 5512 2 .FILE_LENGTH = .WRT_SIZE; ; 5513 2 CH$WCHAR_A (CHR_NUL, WRT_POINTER); ; 5514 1 END; ! End of NORMALIZE_FILE ;NORMALIZE_FILE U.27: .WORD ^M<R2,R3,R4,R5,R6,R7,R8,R9,R10> ;Save R2,R3,R4,R5,R6,R7,R8,R9,R10 5358 07FC 00000 CLRQ R8 ;NAME_CTR 5427 58 7C 00002 CLRL R7 ;TYPE_CTR 5428 57 D4 00004 CLRQ R4 ;FIRST_PERIOD 5430 54 7C 00006 MOVL 4(AP), R6 ;FILE_ADDRESS, POINTER 5431 56 04 AC D0 00008 MOVL R6, R1 ;POINTER, WRT_POINTER 5432 51 56 D0 0000C MOVL 12(AP), R3 ;NAME_LENGTH, R3 5434 53 0C AC D0 0000F BNEQ 1$ ;1$ 03 12 00013 MOVL #1, R4 ;#1, FIRST_PERIOD 54 01 D0 00015 1$: CLRL R10 ;IGNORE_BAD 5436 5A D4 00018 TSTL R3 ;R3 5438 53 D5 0001A BLEQ 4$ ;4$ 17 15 0001C ADDL3 #1, @8(AP), R0 ;#1, @FILE_LENGTH, I 5442 08 BC 01 C1 0001E ; 50 00022 BRB 3$ ;3$ 0D 11 00023 2$: MOVZBL (R6)+, R2 ;(POINTER)+, R2 5444 52 86 9A 00025 CMPB R2, #46 ;R2, #46 2E 52 91 00028 BNEQ 3$ ;3$ 05 12 0002B MOVL #1, R10 ;#1, IGNORE_BAD 5447 5A 01 D0 0002D BRB 4$ ;4$ 5448 03 11 00030 3$: SOBGEQ R0, 2$ ;I, 2$ 5442 F0 50 F4 00032 4$: MOVL R1, R6 ;WRT_POINTER, POINTER 5453 56 51 D0 00035 5$: CMPL R9, @8(AP) ;FILE_CTR, @FILE_LENGTH 5455 08 BC 59 D1 00038 BLSS 6$ ;6$ 03 19 0003C BRW 19$ ;19$ 008B 31 0003E 6$: MOVZBL (R6)+, R0 ;(POINTER)+, CH 5457 50 86 9A 00041 INCL R9 ;FILE_CTR 5458 59 D6 00044 CMPL R0, #48 ;CH, #48 5460 30 50 D1 00046 BGEQ 7$ ;7$ 08 18 00049 CMPL R0, #46 ;CH, #46 2E 50 D1 0004B BNEQ 9$ ;9$ 2C 12 0004E BLBS R4, 9$ ;FIRST_PERIOD, 9$ 29 54 E8 00050 7$: CMPL R0, #122 ;CH, #122 0000007A 8F 50 D1 00053 BGTR 9$ ;9$ 20 14 0005A CMPL R0, #57 ;CH, #57 39 50 D1 0005C BLEQ 8$ ;8$ 09 15 0005F CMPL R0, #65 ;CH, #65 5461 00000041 8F 50 D1 00061 BLSS 9$ ;9$ 12 19 00068 8$: CMPL R0, #90 ;CH, #90 0000005A 8F 50 D1 0006A BLEQ 10$ ;10$ 12 15 00071 CMPL R0, #97 ;CH, #97 00000061 8F 50 D1 00073 BGEQ 10$ ;10$ 09 18 0007A 9$: MOVL #1, R2 ;#1, BAD_CHAR 5464 52 01 D0 0007C MOVZBL #88, R0 ;#88, CH 5465 50 58 8F 9A 0007F BRB 11$ ;11$ 0E 11 00083 10$: CLRL R2 ;BAD_CHAR 5469 52 D4 00085 CMPL R0, #97 ;CH, #97 5471 00000061 8F 50 D1 00087 BLSS 11$ ;11$ 03 19 0008E SUBL2 #32, R0 ;#32, CH 50 20 C2 00090 11$: CMPL R0, #46 ;CH, #46 5475 2E 50 D1 00093 BNEQ 13$ ;13$ 0A 12 00096 MOVL #1, R4 ;#1, FIRST_PERIOD 5478 54 01 D0 00098 MOVB R0, (R1)+ ;CH, (WRT_POINTER)+ 5479 81 50 90 0009B INCL R5 ;WRT_SIZE 5480 55 D6 0009E 12$: BRB 5$ ;5$ 96 11 000A0 13$: BLBC R2, 14$ ;BAD_CHAR, 14$ 5484 03 52 E9 000A2 BLBS R10, 5$ ;IGNORE_BAD, 5$ 90 5A E8 000A5 14$: BLBS R4, 16$ ;FIRST_PERIOD, 16$ 5487 0D 54 E8 000A8 TSTL R3 ;R3 5491 53 D5 000AB BLSS 15$ ;15$ 05 19 000AD CMPL R8, R3 ;NAME_CTR, R3 53 58 D1 000AF BGEQ 5$ ;5$ 84 18 000B2 15$: INCL R8 ;NAME_CTR 5494 58 D6 000B4 BRB 18$ ;18$ 5495 0D 11 000B6 16$: TSTL 16(AP) ;TYPE_LENGTH 5502 10 AC D5 000B8 BLSS 17$ ;17$ 06 19 000BB CMPL R7, 16(AP) ;TYPE_CTR, TYPE_LENGTH 10 AC 57 D1 000BD BGEQ 12$ ;12$ DD 18 000C1 17$: INCL R7 ;TYPE_CTR 5505 57 D6 000C3 18$: INCL R5 ;WRT_SIZE 5506 55 D6 000C5 MOVB R0, (R1)+ ;CH, (WRT_POINTER)+ 5507 81 50 90 000C7 BRB 12$ ;12$ D4 11 000CA 19$: MOVL R5, @8(AP) ;WRT_SIZE, @FILE_LENGTH 5512 08 BC 55 D0 000CC CLRB (R1)+ ;(WRT_POINTER)+ 5513 81 94 000D0 RET ; 5514 04 000D2 ; Routine Size: 211 bytes, Routine Base: $CODE$ + 20EF ; 5515 1 %SBTTL 'Buffer filling -- Main routine' ; 5516 1 ROUTINE BFR_FILL (FIRST_FLAG) = ; 5517 1 ; 5518 1 !++ ; 5519 1 ! FUNCTIONAL DESCRIPTION: ; 5520 1 ! ; 5521 1 ! This routine will fill the buffer with data from the file. It ; 5522 1 ! will do all the quoting that is required. ; 5523 1 ! ; 5524 1 ! CALLING SEQUENCE: ; 5525 1 ! ; 5526 1 ! EOF_FLAG = BFR_FILL(.FIRST_FLAG); ; 5527 1 ! ; 5528 1 ! INPUT PARAMETERS: ; 5529 1 ! ; 5530 1 ! FIRST_FLAG - Flag whether first call for this file ; 5531 1 ! ; 5532 1 ! IMPLICIT INPUTS: ; 5533 1 ! ; 5534 1 ! None. ; 5535 1 ! ; 5536 1 ! OUTPUT PARAMETERS: ; 5537 1 ! ; 5538 1 ! True - Buffer filled may be at end of file. ; 5539 1 ! False - At end of file. ; 5540 1 ! ; 5541 1 ! IMPLICIT OUTPUTS: ; 5542 1 ! ; 5543 1 ! Number of characters stored in the buffer. ; 5544 1 ! ; 5545 1 ! COMPLETION CODES: ; 5546 1 ! ; 5547 1 ! None. ; 5548 1 ! ; 5549 1 ! SIDE EFFECTS: ; 5550 1 ! ; 5551 1 ! None. ; 5552 1 ! ; 5553 1 !-- ; 5554 1 ; 5555 2 BEGIN ; 5556 2 ; 5557 2 LITERAL ; 5558 2 NO_CHAR = -1, ! No character next ; 5559 2 EOF_CHAR = -2; ! EOF seen ; 5560 2 ; 5561 2 LOCAL ; 5562 2 I, ! Temp loop index ; 5563 2 MAX_SIZE, ! Maximum size of data ; 5564 2 POINTER; ! Pointer into the message buffer ; 5565 2 ; 5566 2 OWN ; 5567 2 NEXT_CHR, ! Saved character ; 5568 2 STATUS, ! Status value ; 5569 2 REPEAT_COUNT, ! Number of times character repeated ; 5570 2 CHAR_8_BIT, ! 8 bit character from file ; 5571 2 CHRS : VECTOR [5], ! String needed to represent character ; 5572 2 CHR_IDX, ! Index into CHRS ; 5573 2 OLD_CHAR_8_BIT, ! Previous 8-bit character ; 5574 2 OLD_CHRS : VECTOR [5], ! String for previous character ; 5575 2 OLD_CHR_IDX; ! Index for previous character ; 5576 2 ; 5577 2 ROUTINE GET_QUOTED_CHAR = ; 5578 2 ! ; 5579 2 ! This routine gets a character from the file and returns both ; 5580 2 ! the character and the string needed to represent the character ; 5581 2 ! if it needs quoting. ; 5582 2 ! ; 5583 3 BEGIN ; 5584 3 ; 5585 3 IF .NEXT_CHR GEQ 0 ; 5586 3 THEN ; 5587 4 BEGIN ; 5588 4 CHAR_8_BIT = .NEXT_CHR; ; 5589 4 NEXT_CHR = NO_CHAR; ; 5590 4 STATUS = KER_NORMAL; ; 5591 4 END ; 5592 3 ELSE ; 5593 3 ; 5594 3 IF .NEXT_CHR EQL NO_CHAR ; 5595 3 THEN ; 5596 3 STATUS = (.GET_CHR_ROUTINE) (CHAR_8_BIT) ; 5597 3 ELSE ; 5598 3 STATUS = KER_EOF; ; 5599 3 ; 5600 3 IF .STATUS EQL KER_NORMAL ; 5601 3 THEN ; 5602 4 BEGIN ; 5603 4 ! ; 5604 4 ! Determine if we should just quote the character ; 5605 4 ! Either: ; 5606 4 ! Character is a delete (177 octal) ; 5607 4 ! or Character is a control character (less than 40 octal) ; 5608 4 ! or Character is a quote character ; 5609 4 ! or Character is the repeat character and doing repeat compression ; 5610 4 ! or Character is an eight bit quote character and doing eight bit ; 5611 4 ! quoting. ; 5612 4 ! ; 5613 4 ; 5614 5 IF ((.CHAR_8_BIT AND %O'177') LSS %C' ') OR ((.CHAR_8_BIT AND %O'177') EQL CHR_DEL) OR ( ; 5615 7 (.CHAR_8_BIT AND %O'177') EQL .RCV_QUOTE_CHR) OR (.FLAG_REPEAT AND ((.CHAR_8_BIT AND ; 5616 6 %O'177') EQL .REPT_CHR)) OR (.FLAG_8QUOTE AND ((.CHAR_8_BIT AND %O'177') EQL ; 5617 5 .SEND_8QUOTE_CHR)) ; 5618 4 THEN ; 5619 5 BEGIN ; 5620 5 ! ; 5621 5 ! If the character is a control character or delete we must do a CTL(Character) ; 5622 5 ! so it is something that we can be sure we can send. ; 5623 5 ! ; 5624 5 ; 5625 6 IF ((.CHAR_8_BIT AND %O'177') LSS %C' ') OR ((.CHAR_8_BIT AND %O'177') EQL CHR_DEL) ; 5626 5 THEN ; 5627 6 CHRS [0] = CTL (.CHAR_8_BIT) ; 5628 5 ELSE ; 5629 5 CHRS [0] = .CHAR_8_BIT; ; 5630 5 ; 5631 5 CHR_IDX = 1; ; 5632 5 CHRS [1] = .RCV_QUOTE_CHR; ![035] Use character we said we would send ; 5633 5 END ; 5634 4 ELSE ; 5635 5 BEGIN ; 5636 5 CHR_IDX = 0; ; 5637 5 CHRS [0] = .CHAR_8_BIT; ; 5638 4 END; ; 5639 4 ; 5640 4 END ; 5641 3 ELSE ; 5642 3 ; 5643 3 IF .STATUS NEQ KER_EOF THEN KRM_ERROR (.STATUS); ! Report error ; 5644 3 ; 5645 3 RETURN .STATUS; ; 5646 2 END; .PSECT $OWN$,NOEXE,2 ;NEXT_CHR U.83: .BLKB 4 ; 00850 ;STATUS U.84: .BLKB 4 ; 00854 ;REPEAT_COUNT U.85: .BLKB 4 ; 00858 ;CHAR_8_BIT U.86: .BLKB 4 ; 0085C ;CHRS U.87: .BLKB 20 ; 00860 ;CHR_IDX U.88: .BLKB 4 ; 00874 ;OLD_CHAR_8_BIT U.89: .BLKB 4 ; 00878 ;OLD_CHRS U.90: .BLKB 20 ; 0087C ;OLD_CHR_IDX U.91: .BLKB 4 ; 00890 .PSECT $CODE$,NOWRT,2 ;GET_QUOTED_CHAR U.92: .WORD ^M<R2,R3> ;Save R2,R3 5577 000C 00000 MOVAB G^RCV_QUOTE_CHR, R3 ;RCV_QUOTE_CHR, R3 53 00000000G 00 9E 00002 MOVAB G^U.84, R2 ;U.84, R2 52 00000000' 00 9E 00009 MOVL -4(R2), R0 ;NEXT_CHR, R0 5585 50 FC A2 D0 00010 BLSS 1$ ;1$ 11 19 00014 MOVL R0, 8(R2) ;R0, CHAR_8_BIT 5588 08 A2 50 D0 00016 MNEGL #1, -4(R2) ;#1, NEXT_CHR 5589 FC A2 01 CE 0001A MOVL #134316043, (R2) ;#134316043, STATUS 5590 62 0801800B 8F D0 0001E BRB 3$ ;3$ 1F 11 00025 1$: CMPL R0, #-1 ;R0, #-1 5594 FFFFFFFF 8F 50 D1 00027 BNEQ 2$ ;2$ 0F 12 0002E MOVL -12(R2), R0 ;GET_CHR_ROUTINE, R0 5596 50 F4 A2 D0 00030 PUSHAB 8(R2) ;CHAR_8_BIT 08 A2 9F 00034 CALLS #1, (R0) ;#1, (R0) 60 01 FB 00037 MOVL R0, (R2) ;R0, STATUS 62 50 D0 0003A BRB 3$ ;3$ 07 11 0003D 2$: MOVL #134316131, (R2) ;#134316131, STATUS 5598 62 08018063 8F D0 0003F 3$: MOVL (R2), R0 ;STATUS, R0 5600 50 62 D0 00046 CMPL R0, #134316043 ;R0, #134316043 0801800B 8F 50 D1 00049 BNEQ 11$ ;11$ 6F 12 00050 MOVL 8(R2), R1 ;CHAR_8_BIT, R1 5614 51 08 A2 D0 00052 CLRL R0 ;R0 50 D4 00056 CMPZV #0, #7, R1, #32 ;#0, #7, R1, #32 07 00 ED 00058 ; 20 51 0005B BGEQ 4$ ;4$ 04 18 0005D INCL R0 ;R0 50 D6 0005F BRB 6$ ;6$ 2E 11 00061 4$: CMPZV #0, #7, R1, #127 ;#0, #7, R1, #127 07 00 ED 00063 ; 0000007F 8F 51 00066 BEQL 6$ ;6$ 23 13 0006C CMPZV #0, #7, R1, (R3) ;#0, #7, R1, RCV_QUOTE_CHR 5615 07 00 ED 0006E ; 63 51 00071 BEQL 6$ ;6$ 1C 13 00073 BLBC -2080(R2), 5$ ;FLAG_REPEAT, 5$ 09 F7E0 C2 E9 00075 CMPZV #0, #7, R1, -2128(R2) ;#0, #7, R1, REPT_CHR 5616 07 00 ED 0007A ; F7B0 C2 51 0007D BEQL 6$ ;6$ 0E 13 00081 5$: BLBC -2084(R2), 10$ ;FLAG_8QUOTE, 10$ 30 F7DC C2 E9 00083 CMPZV #0, #7, R1, -2100(R2) ;#0, #7, R1, SEND_8QUOTE_CHR 5617 07 00 ED 00088 ; F7CC C2 51 0008B BNEQ 10$ ;10$ 27 12 0008F 6$: BLBS R0, 7$ ;R0, 7$ 5625 0B 50 E8 00091 CMPZV #0, #7, R1, #127 ;#0, #7, R1, #127 07 00 ED 00094 ; 0000007F 8F 51 00097 BNEQ 8$ ;8$ 0B 12 0009D 7$: XORL3 #64, R1, 12(R2) ;#64, R1, CHRS 5627 51 00000040 8F CD 0009F ; 0C A2 000A6 BRB 9$ ;9$ 04 11 000A8 8$: MOVL R1, 12(R2) ;R1, CHRS 5629 0C A2 51 D0 000AA 9$: MOVL #1, 32(R2) ;#1, CHR_IDX 5631 20 A2 01 D0 000AE MOVL (R3), 16(R2) ;RCV_QUOTE_CHR, CHRS+4 5632 10 A2 63 D0 000B2 BRB 12$ ;12$ 1B 11 000B6 10$: CLRL 32(R2) ;CHR_IDX 5636 20 A2 D4 000B8 MOVL R1, 12(R2) ;R1, CHRS 5637 0C A2 51 D0 000BB BRB 12$ ;12$ 12 11 000BF 11$: CMPL R0, #134316131 ;R0, #134316131 5643 08018063 8F 50 D1 000C1 BEQL 12$ ;12$ 09 13 000C8 PUSHL R0 ;R0 50 DD 000CA CALLS #1, G^KRM_ERROR ;#1, KRM_ERROR 00000000G 00 01 FB 000CC 12$: MOVL (R2), R0 ;STATUS, R0 5645 50 62 D0 000D3 RET ; 04 000D6 ; Routine Size: 215 bytes, Routine Base: $CODE$ + 21C2 ; 5647 2 ROUTINE GET_8_QUOTED_CHAR = ; 5648 2 ! ; 5649 2 ! This routine will get the quoted representation of a character ; 5650 2 ! (by calling GET_QUOTED_CHAR), and return the 8th-bit quoted ; 5651 2 ! representation. ; 5652 2 ! ; 5653 3 BEGIN ; 5654 3 ; 5655 3 IF (STATUS = GET_QUOTED_CHAR ()) EQL KER_NORMAL ; 5656 3 THEN ; 5657 4 BEGIN ; 5658 4 ! ; 5659 4 ! Determine if we must quote the eighth bit (parity bit on) ; 5660 4 ! ; 5661 4 ; 5662 5 IF (((.CHRS [0] AND %O'177') NEQ .CHRS [0]) AND .FLAG_8QUOTE) ; 5663 4 THEN ; 5664 5 BEGIN ; 5665 5 CHRS [0] = .CHRS [0] AND %O'177'; ; 5666 5 CHR_IDX = .CHR_IDX + 1; ; 5667 5 CHRS [.CHR_IDX] = .SEND_8QUOTE_CHR; ; 5668 4 END; ; 5669 4 ; 5670 3 END; ; 5671 3 ; 5672 3 RETURN .STATUS; ; 5673 2 END; ;GET_8_QUOTED_CHAR U.93: .WORD ^M<R2> ;Save R2 5647 0004 00000 MOVAB G^U.87, R2 ;U.87, R2 52 00000000' 00 9E 00002 CALLS #0, W^U.92 ;#0, U.92 5655 FF1B CF 00 FB 00009 MOVL R0, -12(R2) ;R0, STATUS F4 A2 50 D0 0000E CMPL R0, #134316043 ;R0, #134316043 0801800B 8F 50 D1 00012 BNEQ 1$ ;1$ 21 12 00019 MOVL (R2), R0 ;CHRS, R0 5662 50 62 D0 0001B CMPZV #0, #7, R0, R0 ;#0, #7, R0, R0 07 00 ED 0001E ; 50 50 00021 BEQL 1$ ;1$ 17 13 00023 BLBC -2096(R2), 1$ ;FLAG_8QUOTE, 1$ 12 F7D0 C2 E9 00025 EXTZV #0, #7, (R2), (R2) ;#0, #7, CHRS, CHRS 5665 07 00 EF 0002A ; 62 62 0002D INCL 20(R2) ;CHR_IDX 5666 14 A2 D6 0002F MOVL 20(R2), R0 ;CHR_IDX, R0 5667 50 14 A2 D0 00032 MOVL -2112(R2), (R2)[R0] ;SEND_8QUOTE_CHR, CHRS[R0] 6240 F7C0 C2 D0 00036 1$: MOVL -12(R2), R0 ;STATUS, R0 5672 50 F4 A2 D0 0003C RET ; 04 00040 ; Routine Size: 65 bytes, Routine Base: $CODE$ + 2299 ; 5674 2 ! ; 5675 2 ! Start of code for BFR_FILL ; 5676 2 ! ; 5677 2 ! Initialize pointer and count ; 5678 2 ! ; 5679 2 SIZE = 0; ; 5680 2 IF .SEND_PKT_SIZE GTR 94 ! [108] ; 5681 2 THEN ! [108] ; 5682 3 BEGIN ! [108] ; 5683 3 POINTER = CH$PTR (SND_MSG, PKT_MSGX, CHR_SIZE); ! [108] ; 5684 3 MAX_SIZE = .SEND_PKT_SIZE - PKT_MSGX + 1 - (.BLK_CHK_TYPE - CHK_1CHAR); ; 5685 3 END ! [108] ; 5686 2 ELSE ! [108] ; 5687 3 BEGIN ! [108] ; 5688 3 POINTER = CH$PTR (SND_MSG, PKT_MSG, CHR_SIZE); ! [108] ; 5689 3 MAX_SIZE = .SEND_PKT_SIZE - PKT_MSG + 1 - (.BLK_CHK_TYPE - CHK_1CHAR); ; 5690 2 END; ! [108] ; 5691 2 ! ; 5692 2 ! If last call got an error or eof, return it now ; 5693 2 ! ; 5694 2 ; 5695 2 IF NOT .FIRST_FLAG AND (.STATUS NEQ KER_NORMAL) THEN RETURN .STATUS; ; 5696 2 ; 5697 2 ! ; 5698 2 ! If first time for a file prime the pump with the first character. ; 5699 2 ! ; 5700 2 ; 5701 2 IF .FIRST_FLAG ; 5702 2 THEN ; 5703 3 BEGIN ; 5704 3 FIRST_FLAG = FALSE; ; 5705 3 NEXT_CHR = -1; ! No backed up character ; 5706 3 ; 5707 3 IF .FLAG_8QUOTE THEN STATUS = GET_8_QUOTED_CHAR () ELSE STATUS = GET_QUOTED_CHAR (); ; 5708 3 ; 5709 3 IF .STATUS NEQ KER_NORMAL THEN RETURN .STATUS; ; 5710 3 ; 5711 3 OLD_CHAR_8_BIT = .CHAR_8_BIT; ; 5712 3 ; 5713 3 INCR OLD_CHR_IDX FROM 0 TO .CHR_IDX DO ; 5714 3 OLD_CHRS [.OLD_CHR_IDX] = .CHRS [.OLD_CHR_IDX]; ; 5715 3 ; 5716 3 OLD_CHR_IDX = .CHR_IDX; ; 5717 3 REPEAT_COUNT = 0; ! Character was not repeated yet ; 5718 3 ! Will always be incremented ; 5719 2 END; ; 5720 2 ; 5721 2 ! ; 5722 2 ! Otherwise, loop until we fill buffer ; 5723 2 ! ; 5724 2 ; 5725 2 WHILE .SIZE LSS .MAX_SIZE DO ! Normal exit is via an EXITLOOP ; 5726 3 BEGIN ; 5727 3 ! ; 5728 3 ! Check if we are doing run compression ; 5729 3 ! ; 5730 3 ; 5731 3 IF .FLAG_REPEAT ; 5732 3 THEN ; 5733 4 BEGIN ; 5734 4 ! ; 5735 4 ! Here with previous character in OLD_xxx. As long as we ; 5736 4 ! are getting the same character, just count the run. ; 5737 4 ! ; 5738 4 ; 5739 4 WHILE (.CHAR_8_BIT EQL .OLD_CHAR_8_BIT) AND (.REPEAT_COUNT LSS 94) DO ; 5740 5 BEGIN ; 5741 5 REPEAT_COUNT = .REPEAT_COUNT + 1; ; 5742 5 ; 5743 5 IF .FLAG_8QUOTE THEN STATUS = GET_8_QUOTED_CHAR () ELSE STATUS = GET_QUOTED_CHAR (); ; 5744 5 ; 5745 5 IF .STATUS NEQ KER_NORMAL ; 5746 5 THEN ; 5747 5 ; 5748 5 IF .STATUS NEQ KER_EOF ; 5749 5 THEN ; 5750 5 CHAR_8_BIT = NO_CHAR ; 5751 5 ELSE ; 5752 6 BEGIN ; 5753 6 CHAR_8_BIT = EOF_CHAR; ; 5754 6 CHR_IDX = -1; ; 5755 5 END; ; 5756 5 ; 5757 4 END; ; 5758 4 ; 5759 5 IF .OLD_CHR_IDX + 1 + 2 LSS ((.OLD_CHR_IDX + 1)*.REPEAT_COUNT) ; 5760 4 THEN ; 5761 5 BEGIN ; 5762 5 ; 5763 5 IF .SIZE + .OLD_CHR_IDX + 1 + 2 GTR .MAX_SIZE ; 5764 5 THEN ; 5765 6 BEGIN ; 5766 6 ; 5767 6 IF .CHAR_8_BIT EQL .OLD_CHAR_8_BIT ; 5768 6 THEN ; 5769 7 BEGIN ; 5770 7 NEXT_CHR = .CHAR_8_BIT; ; 5771 7 REPEAT_COUNT = .REPEAT_COUNT - 1; ; 5772 6 END; ; 5773 6 ; 5774 6 IF .CHAR_8_BIT EQL EOF_CHAR ; 5775 6 THEN ; 5776 7 BEGIN ; 5777 7 NEXT_CHR = EOF_CHAR; ! Remember EOF for next time ; 5778 7 STATUS = KER_NORMAL; ! And give good return now ; 5779 6 END; ; 5780 6 ; 5781 6 EXITLOOP; ; 5782 5 END; ; 5783 5 ; 5784 5 OLD_CHRS [.OLD_CHR_IDX + 1] = CHAR (.REPEAT_COUNT); ; 5785 5 OLD_CHRS [.OLD_CHR_IDX + 2] = .REPT_CHR; ; 5786 5 OLD_CHR_IDX = .OLD_CHR_IDX + 2; ; 5787 5 ! ; 5788 5 ! Count the number of file characters this represents ; 5789 5 ! ; 5790 5 SMSG_DATA_CHARS = .SMSG_DATA_CHARS + .REPEAT_COUNT - 1; ; 5791 5 FILE_CHARS = .FILE_CHARS + .REPEAT_COUNT - 1; ; 5792 5 REPEAT_COUNT = 1; ! Only one time for this string ; 5793 4 END; ; 5794 4 ; 5795 4 ! ; 5796 4 ! If we don't have enough room for this character, wait till next ; 5797 4 ! time. ; 5798 4 ! ; 5799 4 ; 5800 4 IF .SIZE + (.OLD_CHR_IDX + 1)*.REPEAT_COUNT GTR .MAX_SIZE ; 5801 4 THEN ; 5802 5 BEGIN ; 5803 5 ! If the next character is the same, the count will get incremented ; 5804 5 ! next time we enter, so back it off now. ; 5805 5 ; 5806 5 IF .CHAR_8_BIT EQL .OLD_CHAR_8_BIT ; 5807 5 THEN ; 5808 6 BEGIN ; 5809 6 NEXT_CHR = .CHAR_8_BIT; ; 5810 6 REPEAT_COUNT = .REPEAT_COUNT - 1; ; 5811 5 END; ; 5812 5 ! ; 5813 5 ! If this is the last character of the file, ; 5814 5 ! remember that for next time, but give good return now. ; 5815 5 ! ; 5816 5 IF .CHAR_8_BIT EQL EOF_CHAR ; 5817 5 THEN ; 5818 6 BEGIN ; 5819 6 NEXT_CHR = EOF_CHAR; ; 5820 6 STATUS = KER_NORMAL ; 5821 5 END; ; 5822 5 ; 5823 5 EXITLOOP; ; 5824 4 END; ; 5825 4 ; 5826 4 SMSG_DATA_CHARS = .SMSG_DATA_CHARS + .REPEAT_COUNT; ; 5827 4 FILE_CHARS = .FILE_CHARS + .REPEAT_COUNT; ; 5828 4 ; 5829 4 DECR REPEAT_COUNT FROM .REPEAT_COUNT TO 1 DO ; 5830 4 ; 5831 4 DECR I FROM .OLD_CHR_IDX TO 0 DO ; 5832 5 BEGIN ; 5833 5 CH$WCHAR_A (.OLD_CHRS [.I], POINTER); ; 5834 5 SIZE = .SIZE + 1; ; 5835 4 END; ; 5836 4 ; 5837 4 ! ; 5838 4 ! If we had to defer EOF condition, reactivate it now. ; 5839 4 ! ; 5840 4 IF (.CHAR_8_BIT EQL EOF_CHAR) THEN STATUS = KER_EOF; ; 5841 4 ! ; 5842 4 ! If we got an error (or EOF) then exit ; 5843 4 ! ; 5844 4 ; 5845 4 IF (.STATUS NEQ KER_NORMAL) THEN EXITLOOP; ; 5846 4 ; 5847 4 ! ; 5848 4 ! Otherwise, copy the character which broke the run ; 5849 4 ! ; 5850 4 OLD_CHAR_8_BIT = .CHAR_8_BIT; ; 5851 4 ; 5852 4 INCR OLD_CHR_IDX FROM 0 TO .CHR_IDX DO ; 5853 4 OLD_CHRS [.OLD_CHR_IDX] = .CHRS [.OLD_CHR_IDX]; ; 5854 4 ; 5855 4 OLD_CHR_IDX = .CHR_IDX; ; 5856 4 REPEAT_COUNT = 0; ; 5857 4 END ; 5858 3 ELSE ; 5859 3 ! ; 5860 3 ! Here if we are not doing run compression. We can do things much ; 5861 3 ! easier. ; 5862 3 ! ; 5863 4 BEGIN ; 5864 4 ; 5865 4 IF (.SIZE + .CHR_IDX + 1) GTR .MAX_SIZE THEN EXITLOOP; ; 5866 4 ; 5867 4 SMSG_DATA_CHARS = .SMSG_DATA_CHARS + 1; ; 5868 4 FILE_CHARS = .FILE_CHARS + 1; ; 5869 4 ; 5870 4 DECR CHR_IDX FROM .CHR_IDX TO 0 DO ; 5871 5 BEGIN ; 5872 5 CH$WCHAR_A (.CHRS [.CHR_IDX], POINTER); ; 5873 5 SIZE = .SIZE + 1; ; 5874 4 END; ; 5875 4 ; 5876 4 IF .FLAG_8QUOTE THEN STATUS = GET_8_QUOTED_CHAR () ELSE STATUS = GET_QUOTED_CHAR (); ; 5877 4 ; 5878 4 IF (.STATUS NEQ KER_NORMAL) THEN EXITLOOP; ; 5879 4 ; 5880 3 END; ; 5881 3 ; 5882 2 END; ; 5883 2 ; 5884 2 ! [108] Return negative size if we use extend packet format ; 5885 2 ; 5886 2 IF .SEND_PKT_SIZE GTR 94 ! [108] ; 5887 2 THEN ! [108] ; 5888 2 SIZE = -.SIZE; ! [108] ; 5889 2 ; 5890 2 ! ; 5891 2 ! Determine if we really stored anything into the buffer. ; 5892 2 ! ; 5893 2 ; 5894 2 IF .SIZE NEQ 0 THEN RETURN KER_NORMAL ELSE RETURN .STATUS; ; 5895 2 ; 5896 1 END; ! End of BFR_FILL ;BFR_FILL U.29: .WORD ^M<R2,R3,R4,R5,R6,R7,R8> ;Save R2,R3,R4,R5,R6,R7,R8 5516 01FC 00000 MOVAB G^SMSG_DATA_CHARS, R8 ;SMSG_DATA_CHARS, R8 58 00000000G 00 9E 00002 MOVAB B^U.93, R7 ;U.93, R7 57 B3 AF 9E 00009 MOVAB G^U.52, R6 ;U.52, R6 56 00000000' 00 9E 0000D CLRL (R6) ;SIZE 5679 66 D4 00014 SUBL3 #49, -16(R6), R0 ;#49, BLK_CHK_TYPE, R0 5684 F0 A6 31 C3 00016 ; 50 0001A MOVL -48(R6), R2 ;SEND_PKT_SIZE, R2 5680 52 D0 A6 D0 0001B CMPL R2, #94 ;R2, #94 0000005E 8F 52 D1 0001F BLEQ 1$ ;1$ 0F 15 00026 MOVAB 1039(R6), R5 ;SND_MSG+7, POINTER 5683 55 040F C6 9E 00028 SUBL3 R0, R2, R0 ;R0, R2, R0 5684 52 50 C3 0002D ; 50 00030 MOVAB -6(R0), R2 ;-6(R0), MAX_SIZE 52 FA A0 9E 00031 BRB 2$ ;2$ 0B 11 00035 1$: MOVAB 1036(R6), R5 ;SND_MSG+4, POINTER 5688 55 040C C6 9E 00037 SUBL2 R0, R2 ;R0, R2 5689 52 50 C2 0003C SUBL2 #3, R2 ;#3, MAX_SIZE 52 03 C2 0003F 2$: BLBS 4(AP), 4$ ;FIRST_FLAG, 4$ 5695 12 04 AC E8 00042 CMPL 2072(R6), #134316043 ;STATUS, #134316043 0801800B 8F 0818 C6 D1 00046 BEQL 3$ ;3$ 03 13 0004F BRW 38$ ;38$ 021F 31 00051 3$: BLBC 4(AP), 11$ ;FIRST_FLAG, 11$ 5701 4C 04 AC E9 00054 4$: CLRL 4(AP) ;FIRST_FLAG 5704 04 AC D4 00058 MNEGL #1, 2068(R6) ;#1, NEXT_CHR 5705 0814 C6 01 CE 0005B BLBC -12(R6), 5$ ;FLAG_8QUOTE, 5$ 5707 05 F4 A6 E9 00060 CALLS #0, (R7) ;#0, GET_8_QUOTED_CHAR 67 00 FB 00064 BRB 6$ ;6$ 05 11 00067 5$: CALLS #0, -215(R7) ;#0, GET_QUOTED_CHAR FF29 C7 00 FB 00069 6$: MOVL R0, 2072(R6) ;R0, STATUS 0818 C6 50 D0 0006E CMPL R0, #134316043 ;R0, #134316043 5709 0801800B 8F 50 D1 00073 BEQL 7$ ;7$ 01 13 0007A RET ; 04 0007C 7$: MOVL 2080(R6), 2108(R6) ;CHAR_8_BIT, OLD_CHAR_8_BIT 5711 083C C6 0820 C6 D0 0007D MOVL 2104(R6), R1 ;CHR_IDX, R1 5713 51 0838 C6 D0 00084 MNEGL #1, R0 ;#1, OLD_CHR_IDX 50 01 CE 00089 BRB 9$ ;9$ 09 11 0008C 8$: MOVL 2084(R6)[R0], 2112(R6)[R0] ;CHRS[OLD_CHR_IDX], OLD_CHRS- 5714 0840 C640 0824 C640 D0 0008E ;[OLD_CHR_IDX] 9$: AOBLEQ R1, R0, 8$ ;R1, OLD_CHR_IDX, 8$ 50 51 F3 00097 ; F3 0009A 10$: MOVL R1, 2132(R6) ;R1, OLD_CHR_IDX 5716 0854 C6 51 D0 0009B CLRL 2076(R6) ;REPEAT_COUNT 5717 081C C6 D4 000A0 11$: MOVL (R6), R1 ;SIZE, R1 5725 51 66 D0 000A4 CMPL R1, R2 ;R1, MAX_SIZE 52 51 D1 000A7 BLSS 12$ ;12$ 03 19 000AA BRW 36$ ;36$ 01AB 31 000AC 12$: BLBS -8(R6), 13$ ;FLAG_REPEAT, 13$ 5731 03 F8 A6 E8 000AF BRW 31$ ;31$ 015F 31 000B3 13$: CMPL 2080(R6), 2108(R6) ;CHAR_8_BIT, OLD_CHAR_8_BIT 5739 083C C6 0820 C6 D1 000B6 BNEQ 17$ ;17$ 47 12 000BD CMPL 2076(R6), #94 ;REPEAT_COUNT, #94 0000005E 8F 081C C6 D1 000BF BGEQ 17$ ;17$ 3C 18 000C8 INCL 2076(R6) ;REPEAT_COUNT 5741 081C C6 D6 000CA BLBC -12(R6), 14$ ;FLAG_8QUOTE, 14$ 5743 05 F4 A6 E9 000CE CALLS #0, (R7) ;#0, GET_8_QUOTED_CHAR 67 00 FB 000D2 BRB 15$ ;15$ 05 11 000D5 14$: CALLS #0, -215(R7) ;#0, GET_QUOTED_CHAR FF29 C7 00 FB 000D7 15$: MOVL R0, 2072(R6) ;R0, STATUS 0818 C6 50 D0 000DC CMPL R0, #134316043 ;R0, #134316043 5745 0801800B 8F 50 D1 000E1 BEQL 13$ ;13$ CC 13 000E8 CMPL R0, #134316131 ;R0, #134316131 5748 08018063 8F 50 D1 000EA BEQL 16$ ;16$ 07 13 000F1 MNEGL #1, 2080(R6) ;#1, CHAR_8_BIT 5750 0820 C6 01 CE 000F3 BRB 13$ ;13$ BC 11 000F8 16$: MNEGL #2, 2080(R6) ;#2, CHAR_8_BIT 5753 0820 C6 02 CE 000FA MNEGL #1, 2104(R6) ;#1, CHR_IDX 5754 0838 C6 01 CE 000FF BRB 13$ ;13$ B0 11 00104 17$: MOVL 2132(R6), R3 ;OLD_CHR_IDX, R3 5759 53 0854 C6 D0 00106 MOVAB 3(R3), R4 ;3(R3), R4 54 03 A3 9E 0010B MOVAB 1(R3), R1 ;1(R3), R1 51 01 A3 9E 0010F MULL3 2076(R6), R1, R0 ;REPEAT_COUNT, R1, R0 51 081C C6 C5 00113 ; 50 00118 CMPL R4, R0 ;R4, R0 50 54 D1 00119 BGEQ 19$ ;19$ 4C 18 0011C MOVL (R6), R0 ;SIZE, R0 5763 50 66 D0 0011E MOVAB 3(R3)[R0], R0 ;3(R3)[R0], R0 50 03 A340 9E 00121 CMPL R0, R2 ;R0, MAX_SIZE 52 50 D1 00126 BLEQ 18$ ;18$ 0E 15 00129 MOVL 2080(R6), R0 ;CHAR_8_BIT, R0 5767 50 0820 C6 D0 0012B CMPL R0, 2108(R6) ;R0, OLD_CHAR_8_BIT 083C C6 50 D1 00130 BEQL 20$ ;20$ 55 13 00135 BRB 21$ ;21$ 5774 5C 11 00137 18$: MOVL 2076(R6), R0 ;REPEAT_COUNT, R0 5784 50 081C C6 D0 00139 MOVAB 32(R0), 2112(R6)[R1] ;32(R0), OLD_CHRS[R1] 0840 C641 20 A0 9E 0013E MOVL -56(R6), 2120(R6)[R3] ;REPT_CHR, OLD_CHRS+8[R3] 5785 0848 C643 C8 A6 D0 00145 ADDL2 #2, 2132(R6) ;#2, OLD_CHR_IDX 5786 0854 C6 02 C0 0014C MOVL (R8), R1 ;SMSG_DATA_CHARS, R1 5790 51 68 D0 00151 MOVAB -1(R0)[R1], (R8) ;-1(R0)[R1], SMSG_DATA_CHARS 68 FF A041 9E 00154 MOVL 2036(R6), R1 ;FILE_CHARS, R1 5791 51 07F4 C6 D0 00159 MOVAB -1(R0)[R1], 2036(R6) ;-1(R0)[R1], FILE_CHARS 07F4 C6 FF A041 9E 0015E MOVL #1, 2076(R6) ;#1, REPEAT_COUNT 5792 081C C6 01 D0 00165 19$: MOVL 2132(R6), R4 ;OLD_CHR_IDX, R4 5800 54 0854 C6 D0 0016A MOVAB 1(R4), R0 ;1(R4), R0 50 01 A4 9E 0016F MULL2 2076(R6), R0 ;REPEAT_COUNT, R0 50 081C C6 C4 00173 ADDL2 (R6), R0 ;SIZE, R0 50 66 C0 00178 CMPL R0, R2 ;R0, MAX_SIZE 52 50 D1 0017B BLEQ 23$ ;23$ 2F 15 0017E MOVL 2080(R6), R0 ;CHAR_8_BIT, R0 5806 50 0820 C6 D0 00180 CMPL R0, 2108(R6) ;R0, OLD_CHAR_8_BIT 083C C6 50 D1 00185 BNEQ 21$ ;21$ 09 12 0018A 20$: MOVL R0, 2068(R6) ;R0, NEXT_CHR 5809 0814 C6 50 D0 0018C DECL 2076(R6) ;REPEAT_COUNT 5810 081C C6 D7 00191 21$: CMPL R0, #-2 ;R0, #-2 5816 FFFFFFFE 8F 50 D1 00195 BNEQ 22$ ;22$ 0E 12 0019C MNEGL #2, 2068(R6) ;#2, NEXT_CHR 5819 0814 C6 02 CE 0019E MOVL #134316043, 2072(R6) ;#134316043, STATUS 5820 0818 C6 0801800B 8F D0 001A3 22$: BRW 36$ ;36$ 5823 00AB 31 001AC 23$: MOVL 2076(R6), R1 ;REPEAT_COUNT, R1 5826 51 081C C6 D0 001AF ADDL2 R1, (R8) ;R1, SMSG_DATA_CHARS 68 51 C0 001B4 ADDL2 R1, 2036(R6) ;R1, FILE_CHARS 5827 07F4 C6 51 C0 001B7 INCL R1 ;REPEAT_COUNT 5829 51 D6 001BC BRB 27$ ;27$ 11 11 001BE 24$: MOVAB 1(R4), R0 ;1(R4), I 5831 50 01 A4 9E 001C0 BRB 26$ ;26$ 08 11 001C4 25$: CVTLB 2112(R6)[R0], (R5)+ ;OLD_CHRS[I], (POINTER)+ 5833 85 0840 C640 F6 001C6 INCL (R6) ;SIZE 5834 66 D6 001CC 26$: SOBGEQ R0, 25$ ;I, 25$ F5 50 F4 001CE 27$: SOBGTR R1, 24$ ;REPEAT_COUNT, 24$ EC 51 F5 001D1 MOVL 2080(R6), R0 ;CHAR_8_BIT, R0 5840 50 0820 C6 D0 001D4 CMPL R0, #-2 ;R0, #-2 FFFFFFFE 8F 50 D1 001D9 BNEQ 28$ ;28$ 09 12 001E0 MOVL #134316131, 2072(R6) ;#134316131, STATUS 0818 C6 08018063 8F D0 001E2 28$: CMPL 2072(R6), #134316043 ;STATUS, #134316043 5845 0801800B 8F 0818 C6 D1 001EB BNEQ 36$ ;36$ 64 12 001F4 MOVL R0, 2108(R6) ;R0, OLD_CHAR_8_BIT 5850 083C C6 50 D0 001F6 MOVL 2104(R6), R1 ;CHR_IDX, R1 5852 51 0838 C6 D0 001FB MNEGL #1, R0 ;#1, OLD_CHR_IDX 50 01 CE 00200 BRB 30$ ;30$ 09 11 00203 29$: MOVL 2084(R6)[R0], 2112(R6)[R0] ;CHRS[OLD_CHR_IDX], OLD_CHRS- 5853 0840 C640 0824 C640 D0 00205 ;[OLD_CHR_IDX] 30$: AOBLEQ R1, R0, 29$ ;R1, OLD_CHR_IDX, 29$ 50 51 F3 0020E ; F3 00211 BRW 10$ ;10$ 5855 FE86 31 00212 31$: MOVL 2104(R6), R0 ;CHR_IDX, R0 5865 50 0838 C6 D0 00215 MOVAB 1(R0)[R1], R1 ;1(R0)[R1], R1 51 01 A041 9E 0021A CMPL R1, R2 ;R1, MAX_SIZE 52 51 D1 0021F BGTR 36$ ;36$ 36 14 00222 INCL (R8) ;SMSG_DATA_CHARS 5867 68 D6 00224 INCL 2036(R6) ;FILE_CHARS 5868 07F4 C6 D6 00226 INCL R0 ;CHR_IDX 5870 50 D6 0022A BRB 33$ ;33$ 08 11 0022C 32$: CVTLB 2084(R6)[R0], (R5)+ ;CHRS[CHR_IDX], (POINTER)+ 5872 85 0824 C640 F6 0022E INCL (R6) ;SIZE 5873 66 D6 00234 33$: SOBGEQ R0, 32$ ;CHR_IDX, 32$ F5 50 F4 00236 BLBC -12(R6), 34$ ;FLAG_8QUOTE, 34$ 5876 05 F4 A6 E9 00239 CALLS #0, (R7) ;#0, GET_8_QUOTED_CHAR 67 00 FB 0023D BRB 35$ ;35$ 05 11 00240 34$: CALLS #0, -215(R7) ;#0, GET_QUOTED_CHAR FF29 C7 00 FB 00242 35$: MOVL R0, 2072(R6) ;R0, STATUS 0818 C6 50 D0 00247 CMPL 2072(R6), #134316043 ;STATUS, #134316043 5878 0801800B 8F 0818 C6 D1 0024C BNEQ 36$ ;36$ 03 12 00255 BRW 11$ ;11$ FE4A 31 00257 36$: CMPL -48(R6), #94 ;SEND_PKT_SIZE, #94 5886 0000005E 8F D0 A6 D1 0025A BLEQ 37$ ;37$ 03 15 00262 MNEGL (R6), (R6) ;SIZE, SIZE 5888 66 66 CE 00264 37$: TSTL (R6) ;SIZE 5894 66 D5 00267 BEQL 38$ ;38$ 08 13 00269 MOVL #134316043, R0 ;#134316043, R0 50 0801800B 8F D0 0026B RET ; 04 00272 38$: MOVL 2072(R6), R0 ;STATUS, R0 50 0818 C6 D0 00273 RET ; 04 00278 ; Routine Size: 633 bytes, Routine Base: $CODE$ + 22DA ; 5897 1 %SBTTL 'BFR_EMPTY' ; 5898 1 ROUTINE BFR_EMPTY = ; 5899 1 ; 5900 1 !++ ; 5901 1 ! FUNCTIONAL DESCRIPTION: ; 5902 1 ! ; 5903 1 ! This routine will empty the data from the REC_MSG message buffer ; 5904 1 ! to the file. It will process quoting characters. ; 5905 1 ! ; 5906 1 ! CALLING SEQUENCE: ; 5907 1 ! ; 5908 1 ! Flag = BFR_EMPTY(); ; 5909 1 ! ; 5910 1 ! INPUT PARAMETERS: ; 5911 1 ! ; 5912 1 ! None. ; 5913 1 ! ; 5914 1 ! IMPLICIT INPUTS: ; 5915 1 ! ; 5916 1 ! None. ; 5917 1 ! ; 5918 1 ! OUTPUT PARAMETERS: ; 5919 1 ! ; 5920 1 ! True - No problems writing the file. ; 5921 1 ! False - I/O error writing the file. ; 5922 1 ! ; 5923 1 ! IMPLICIT OUTPUTS: ; 5924 1 ! ; 5925 1 ! None. ; 5926 1 ! ; 5927 1 ! COMPLETION CODES: ; 5928 1 ! ; 5929 1 ! None. ; 5930 1 ! ; 5931 1 ! SIDE EFFECTS: ; 5932 1 ! ; 5933 1 ! None. ; 5934 1 ! ; 5935 1 !-- ; 5936 1 ; 5937 2 BEGIN ; 5938 2 ; 5939 2 LOCAL ; 5940 2 STATUS, ! Status returned by various routines ; 5941 2 REPEAT_COUNT, ! Count of times to repeat character ; 5942 2 TURN_BIT_8_ON, ! If eight bit quoting ; 5943 2 COUNTER, ! Count of the characters left ; 5944 2 CHARACTER, ! Character we are processing ; 5945 2 POINTER; ! Pointer to the data ; 5946 2 ; 5947 2 POINTER = CH$PTR (REC_MSG, .RECV_PKT_MSG, CHR_SIZE); ! [108] ; 5948 2 COUNTER = 0; ; 5949 2 ; 5950 2 WHILE (.COUNTER LSS .REC_LENGTH) DO ; 5951 3 BEGIN ; 5952 3 CHARACTER = CH$RCHAR_A (POINTER); ; 5953 3 COUNTER = .COUNTER + 1; ; 5954 3 ! ; 5955 3 ! If the character is the repeat character (and we are doing repeat ; 5956 3 ! compression), then get the count. ; 5957 3 ! ; 5958 3 ; 5959 4 IF ((.CHARACTER EQL .REPT_CHR) AND .FLAG_REPEAT) ; 5960 3 THEN ; 5961 4 BEGIN ; 5962 4 REPEAT_COUNT = UNCHAR (CH$RCHAR_A (POINTER) AND %O'177'); ; 5963 4 CHARACTER = CH$RCHAR_A (POINTER); ; 5964 4 COUNTER = .COUNTER + 2; ; 5965 4 END ; 5966 3 ELSE ; 5967 3 REPEAT_COUNT = 1; ; 5968 3 ; 5969 3 ! ; 5970 3 ! If the character is an eight bit quoting character and we are doing eight ; 5971 3 ! bit quoting then turn on the flag so we turn the eighth bit on when we ; 5972 3 ! get the real character. ; 5973 3 ! ; 5974 3 ; 5975 4 IF ((.CHARACTER EQL .SEND_8QUOTE_CHR) AND .FLAG_8QUOTE) ; 5976 3 THEN ; 5977 4 BEGIN ; 5978 4 TURN_BIT_8_ON = TRUE; ; 5979 4 COUNTER = .COUNTER + 1; ; 5980 4 CHARACTER = CH$RCHAR_A (POINTER); ; 5981 4 END ; 5982 3 ELSE ; 5983 3 TURN_BIT_8_ON = FALSE; ; 5984 3 ; 5985 3 ! ; 5986 3 ! Now determine if we are quoting the character. If so then we must eat ; 5987 3 ! the quoting character and get the real character. ; 5988 3 ! ; 5989 3 ; 5990 3 IF .CHARACTER EQL .SEND_QUOTE_CHR ; 5991 3 ![035] Is this character other Kermit sends as quote? ; 5992 3 THEN ; 5993 4 BEGIN ; 5994 4 CHARACTER = CH$RCHAR_A (POINTER); ; 5995 4 COUNTER = .COUNTER + 1; ; 5996 4 ! ; 5997 4 ! Determine if we must undo what someone else has done to the character ; 5998 4 ! ; 5999 4 ; P 6000 5 IF ((.CHARACTER AND %O'177') GEQ CTL (CHR_DEL)) AND ((.CHARACTER AND %O'177') LEQ CTL ( ; 6001 5 CHR_DEL) + %O'40') ; 6002 4 THEN ; 6003 4 CHARACTER = CTL (.CHARACTER); ; 6004 4 ; 6005 3 END; ; 6006 3 ; 6007 3 ! ; 6008 3 ! Turn on the eight bit if needed and then write the character out ; 6009 3 ! ; 6010 3 ; 6011 3 IF .TURN_BIT_8_ON THEN CHARACTER = .CHARACTER OR %O'200'; ; 6012 3 ; 6013 3 RMSG_DATA_CHARS = .RMSG_DATA_CHARS + .REPEAT_COUNT; ; 6014 3 FILE_CHARS = .FILE_CHARS + .REPEAT_COUNT; ; 6015 3 ; 6016 3 DECR REPEAT_COUNT FROM .REPEAT_COUNT TO 1 DO ; 6017 4 BEGIN ; 6018 4 STATUS = (.PUT_CHR_ROUTINE) (.CHARACTER); ; 6019 4 ; 6020 4 IF NOT .STATUS THEN RETURN .STATUS; ; 6021 4 ; 6022 3 END; ; 6023 3 ; 6024 2 END; ; 6025 2 ; 6026 2 RETURN KER_NORMAL; ; 6027 1 END; ! End of BFR_EMPTY ;BFR_EMPTY U.28: .WORD ^M<R2,R3,R4,R5,R6,R7,R8> ;Save R2,R3,R4,R5,R6,R7,R8 5898 01FC 00000 MOVAB G^U.59, R8 ;U.59, R8 58 00000000' 00 9E 00002 MOVAB (R8), R0 ;REC_MSG, R0 5947 50 68 9E 00009 ADDL3 -80(R8), R0, R5 ;RECV_PKT_MSG, R0, POINTER 50 B0 A8 C1 0000C ; 55 00010 CLRL R6 ;COUNTER 5948 56 D4 00011 1$: CMPL R6, -8(R8) ;COUNTER, REC_LENGTH 5950 F8 A8 56 D1 00013 BLSS 2$ ;2$ 03 19 00017 BRW 11$ ;11$ 0088 31 00019 2$: MOVZBL (R5)+, R4 ;(POINTER)+, CHARACTER 5952 54 85 9A 0001C INCL R6 ;COUNTER 5953 56 D6 0001F CMPL R4, -84(R8) ;CHARACTER, REPT_CHR 5959 AC A8 54 D1 00021 BNEQ 3$ ;3$ 17 12 00025 BLBC -36(R8), 3$ ;FLAG_REPEAT, 3$ 13 DC A8 E9 00027 MOVZBL (R5)+, R1 ;(POINTER)+, R1 5962 51 85 9A 0002B EXTZV #0, #7, R1, R3 ;#0, #7, R1, REPEAT_COUNT 07 00 EF 0002E ; 53 51 00031 SUBL2 #32, R3 ;#32, REPEAT_COUNT 53 20 C2 00033 MOVZBL (R5)+, R4 ;(POINTER)+, CHARACTER 5963 54 85 9A 00036 ADDL2 #2, R6 ;#2, COUNTER 5964 56 02 C0 00039 BRB 4$ ;4$ 03 11 0003C 3$: MOVL #1, R3 ;#1, REPEAT_COUNT 5967 53 01 D0 0003E 4$: CMPL R4, -56(R8) ;CHARACTER, SEND_8QUOTE_CHR 5975 C8 A8 54 D1 00041 BNEQ 5$ ;5$ 0E 12 00045 BLBC -40(R8), 5$ ;FLAG_8QUOTE, 5$ 0A D8 A8 E9 00047 MOVL #1, R7 ;#1, TURN_BIT_8_ON 5978 57 01 D0 0004B INCL R6 ;COUNTER 5979 56 D6 0004E MOVZBL (R5)+, R4 ;(POINTER)+, CHARACTER 5980 54 85 9A 00050 BRB 6$ ;6$ 02 11 00053 5$: CLRL R7 ;TURN_BIT_8_ON 5983 57 D4 00055 6$: CMPL R4, -60(R8) ;CHARACTER, SEND_QUOTE_CHR 5990 C4 A8 54 D1 00057 BNEQ 7$ ;7$ 1B 12 0005B MOVZBL (R5)+, R4 ;(POINTER)+, CHARACTER 5994 54 85 9A 0005D INCL R6 ;COUNTER 5995 56 D6 00060 CMPZV #0, #7, R4, #63 ;#0, #7, CHARACTER, #63 6000 07 00 ED 00062 ; 3F 54 00065 BLSS 7$ ;7$ 0F 19 00067 CMPZV #0, #7, R4, #95 ;#0, #7, CHARACTER, #95 6001 07 00 ED 00069 ; 0000005F 8F 54 0006C BGTR 7$ ;7$ 04 14 00072 XORB2 #64, R4 ;#64, CHARACTER 6003 54 40 8F 8C 00074 7$: BLBC R7, 8$ ;TURN_BIT_8_ON, 8$ 6011 04 57 E9 00078 BISB2 #128, R4 ;#128, CHARACTER 54 80 8F 88 0007B 8$: ADDL2 R3, G^RMSG_DATA_CHARS ;REPEAT_COUNT, RMSG_DATA_CHARS 6013 00000000G 00 53 C0 0007F ADDL2 R3, 2008(R8) ;REPEAT_COUNT, FILE_CHARS 6014 07D8 C8 53 C0 00086 MOVAB 1(R3), R2 ;1(R3), REPEAT_COUNT 6016 52 01 A3 9E 0008B BRB 10$ ;10$ 0D 11 0008F 9$: MOVL 2036(R8), R1 ;PUT_CHR_ROUTINE, R1 6018 51 07F4 C8 D0 00091 PUSHL R4 ;CHARACTER 54 DD 00096 CALLS #1, (R1) ;#1, (R1) 61 01 FB 00098 BLBC R0, 12$ ;STATUS, 12$ 6020 0D 50 E9 0009B 10$: SOBGTR R2, 9$ ;REPEAT_COUNT, 9$ 6016 F0 52 F5 0009E BRW 1$ ;1$ 5950 FF6F 31 000A1 11$: MOVL #134316043, R0 ;#134316043, R0 6026 50 0801800B 8F D0 000A4 12$: RET ; 04 000AB ; Routine Size: 172 bytes, Routine Base: $CODE$ + 2553 ; 6028 1 %SBTTL 'Buffer filling and emptying subroutines' ; 6029 1 ROUTINE SET_STRING (POINTER, LENGTH, START) = ; 6030 1 ; 6031 1 !++ ; 6032 1 ! FUNCTIONAL DESCRIPTION: ; 6033 1 ! ; 6034 1 ! This routine is used to set up the buffer filling and emptying ; 6035 1 ! routines to use a string for input (or output) rather than ; 6036 1 ! the file I/O routines. ; 6037 1 ! ; 6038 1 ! CALLING SEQUENCE: ; 6039 1 ! ; 6040 1 ! SET_STRING (.POINTER, .LENGTH, .START) ; 6041 1 ! ; 6042 1 ! INPUT PARAMETERS: ; 6043 1 ! ; 6044 1 ! POINTER - Character pointer to string ; 6045 1 ! ; 6046 1 ! LENGTH - Number of characters in string ; 6047 1 ! ; 6048 1 ! START - True to start string, false to end it ; 6049 1 ! ; 6050 1 ! IMPLICIT INPUTS: ; 6051 1 ! ; 6052 1 ! None. ; 6053 1 ! ; 6054 1 ! OUPTUT PARAMETERS: ; 6055 1 ! ; 6056 1 ! Returns 0 if START = TRUE, actual number of characters used ; 6057 1 ! by last string if START = FALSE. ; 6058 1 ! ; 6059 1 ! IMPLICIT OUTPUTS: ; 6060 1 ! ; 6061 1 ! GET_CHR_ROUTINE and PUT_CHR_ROUTINE modifed so that string ; 6062 1 ! routines are called instead of file I/O. ; 6063 1 ! ; 6064 1 ! COMPLETION CODES: ; 6065 1 ! ; 6066 1 ! None. ; 6067 1 ! ; 6068 1 ! SIDE EFFECTS: ; 6069 1 ! ; 6070 1 ! None. ; 6071 1 ! ; 6072 1 !-- ; 6073 1 ; 6074 2 BEGIN ; 6075 2 ; 6076 2 OWN ; 6077 2 STR_POINTER, ! Pointer to string ; 6078 2 STR_LENGTH, ! Length of string ; 6079 2 STR_ORG_LENGTH, ! Original length of string ; 6080 2 OLD_GET_CHR, ! Old get-char routine ; 6081 2 OLD_PUT_CHR; ! Old put-char routine ; 6082 2 ; 6083 2 ! ; 6084 2 ! Routine to get a character from the string ; 6085 2 ! ; 6086 2 ROUTINE GET_STRING (CHAR_ADDRESS) = ; 6087 3 BEGIN ; 6088 3 ! ; 6089 3 ! If some characters are left, count down the length and get next character ; 6090 3 ! Otherwise return and end of file indication. ; 6091 3 ! ; 6092 3 ; 6093 3 IF .STR_LENGTH GTR 0 ; 6094 3 THEN ; 6095 4 BEGIN ; 6096 4 STR_LENGTH = .STR_LENGTH - 1; ; 6097 4 .CHAR_ADDRESS = CH$RCHAR_A (STR_POINTER); ; 6098 4 RETURN KER_NORMAL; ; 6099 4 END ; 6100 3 ELSE ; 6101 3 RETURN KER_EOF; ; 6102 3 ; 6103 2 END; ! End of GET_STRING .PSECT $OWN$,NOEXE,2 ;STR_POINTER U.94: .BLKB 4 ; 00894 ;STR_LENGTH U.95: .BLKB 4 ; 00898 ;STR_ORG_LENGTH U.96: .BLKB 4 ; 0089C ;OLD_GET_CHR U.97: .BLKB 4 ; 008A0 ;OLD_PUT_CHR U.98: .BLKB 4 ; 008A4 .PSECT $CODE$,NOWRT,2 ;GET_STRING U.99: .WORD ^M<R2> ;Save R2 6086 0004 00000 MOVAB G^U.95, R2 ;U.95, R2 52 00000000' 00 9E 00002 TSTL (R2) ;STR_LENGTH 6093 62 D5 00009 BLEQ 1$ ;1$ 15 15 0000B DECL (R2) ;STR_LENGTH 6096 62 D7 0000D MOVL -4(R2), R0 ;STR_POINTER, R0 6097 50 FC A2 D0 0000F MOVZBL (R0), @4(AP) ;(R0), @CHAR_ADDRESS 04 BC 60 9A 00013 INCL -4(R2) ;STR_POINTER FC A2 D6 00017 MOVL #134316043, R0 ;#134316043, R0 6098 50 0801800B 8F D0 0001A RET ; 04 00021 1$: MOVL #134316131, R0 ;#134316131, R0 6101 50 08018063 8F D0 00022 RET ; 04 00029 ; Routine Size: 42 bytes, Routine Base: $CODE$ + 25FF ; 6104 2 ROUTINE PUT_STRING (CHAR_VALUE) = ; 6105 3 BEGIN ; 6106 3 ! ; 6107 3 ! If there is enough room to store another character, store the character ; 6108 3 ! and count it. Otherwise return a line too long indication. ; 6109 3 ! ; 6110 3 ; 6111 3 IF .STR_LENGTH GTR 0 ; 6112 3 THEN ; 6113 4 BEGIN ; 6114 4 STR_LENGTH = .STR_LENGTH - 1; ; 6115 4 CH$WCHAR_A (.CHAR_VALUE, STR_POINTER); ; 6116 4 RETURN KER_NORMAL; ; 6117 4 END ; 6118 3 ELSE ; 6119 3 RETURN KER_LINTOOLNG; ; 6120 3 ; 6121 2 END; ! End of PUT_STRING ;PUT_STRING U.100: .WORD ^M<R2> ;Save R2 6104 0004 00000 MOVAB G^U.95, R2 ;U.95, R2 52 00000000' 00 9E 00002 TSTL (R2) ;STR_LENGTH 6111 62 D5 00009 BLEQ 1$ ;1$ 15 15 0000B DECL (R2) ;STR_LENGTH 6114 62 D7 0000D MOVL -4(R2), R0 ;STR_POINTER, R0 6115 50 FC A2 D0 0000F MOVB 4(AP), (R0) ;CHAR_VALUE, (R0) 60 04 AC 90 00013 INCL -4(R2) ;STR_POINTER FC A2 D6 00017 MOVL #134316043, R0 ;#134316043, R0 6116 50 0801800B 8F D0 0001A RET ; 04 00021 1$: MOVL #134316098, R0 ;#134316098, R0 6119 50 08018042 8F D0 00022 RET ; 04 00029 ; Routine Size: 42 bytes, Routine Base: $CODE$ + 2629 ; 6122 2 ! ; 6123 2 ! If we have a request to start a string (input or output), save the old ; 6124 2 ! routines and set up ours. Also save the string pointer and length for ; 6125 2 ! use by our get/put routines. ; 6126 2 ! Otherwise this is a request to stop using the string routines, so reset ; 6127 2 ! the old routines and return the actual number of characters read or ; 6128 2 ! written ; 6129 2 ! ; 6130 2 ; 6131 2 IF .START ; 6132 2 THEN ; 6133 3 BEGIN ; 6134 3 STR_POINTER = .POINTER; ; 6135 3 STR_ORG_LENGTH = .LENGTH; ; 6136 3 STR_LENGTH = .LENGTH; ; 6137 3 OLD_GET_CHR = .GET_CHR_ROUTINE; ; 6138 3 OLD_PUT_CHR = .PUT_CHR_ROUTINE; ; 6139 3 GET_CHR_ROUTINE = GET_STRING; ; 6140 3 PUT_CHR_ROUTINE = PUT_STRING; ; 6141 3 RETURN 0; ; 6142 3 END ; 6143 2 ELSE ; 6144 3 BEGIN ; 6145 3 GET_CHR_ROUTINE = .OLD_GET_CHR; ; 6146 3 PUT_CHR_ROUTINE = .OLD_PUT_CHR; ; 6147 3 RETURN .STR_ORG_LENGTH - .STR_LENGTH; ; 6148 2 END; ; 6149 2 ; 6150 1 END; ! End of SET_STRING ;SET_STRING U.30: .WORD ^M<R2> ;Save R2 6029 0004 00000 MOVAB G^U.67, R2 ;U.67, R2 52 00000000' 00 9E 00002 BLBC 12(AP), 1$ ;START, 1$ 6131 1A 0C AC E9 00009 MOVL 8(AP), 84(R2) ;LENGTH, STR_ORG_LENGTH 6135 54 A2 08 AC D0 0000D MOVQ 4(AP), 76(R2) ;POINTER, STR_POINTER 6134 4C A2 04 AC 7D 00012 MOVQ (R2), 88(R2) ;GET_CHR_ROUTINE, OLD_GET_CHR 6137 58 A2 62 7D 00017 MOVAB B^U.99, (R2) ;U.99, GET_CHR_ROUTINE 6139 62 8E AF 9E 0001B MOVAB B^U.100, 4(R2) ;U.100, PUT_CHR_ROUTINE 6140 04 A2 B4 AF 9E 0001F CLRL R0 ;R0 6141 50 D4 00024 RET ; 04 00026 1$: MOVQ 88(R2), (R2) ;OLD_GET_CHR, GET_CHR_ROUTINE 6145 62 58 A2 7D 00027 SUBL3 80(R2), 84(R2), R0 ;STR_LENGTH, STR_ORG_LENGTH, R0 6147 54 A2 50 A2 C3 0002B ; 50 00030 RET ; 04 00031 ; Routine Size: 50 bytes, Routine Base: $CODE$ + 2653 ; 6151 1 %SBTTL 'Add parity routine' ; 6152 1 ROUTINE DO_PARITY (MESSAGE, LENGTH) : NOVALUE = ; 6153 1 ; 6154 1 !++ ; 6155 1 ! FUNCTIONAL DESCRIPTION: ; 6156 1 ! ; 6157 1 ! This routine will add parity for a complete message that is to be ; 6158 1 ! sent to the remote Kermit. ; 6159 1 ! ; 6160 1 ! CALLING SEQUENCE: ; 6161 1 ! ; 6162 1 ! DO_PARITY (Message_address, Message_length); ; 6163 1 ! ; 6164 1 ! INPUT PARAMETERS: ; 6165 1 ! ; 6166 1 ! Message_address - Address of the message to put parity on. ; 6167 1 ! Message_length - Lengtho of the message. ; 6168 1 ! ; 6169 1 ! IMPLICIT INPUTS: ; 6170 1 ! ; 6171 1 ! None. ; 6172 1 ! ; 6173 1 ! OUTPUT PARAMETERS: ; 6174 1 ! ; 6175 1 ! None. ; 6176 1 ! ; 6177 1 ! IMPLICIT OUTPUTS: ; 6178 1 ! ; 6179 1 ! None. ; 6180 1 ! ; 6181 1 ! COMPLETION CODES: ; 6182 1 ! ; 6183 1 ! None. ; 6184 1 ! ; 6185 1 ! SIDE EFFECTS: ; 6186 1 ! ; 6187 1 ! None. ; 6188 1 ! ; 6189 1 !-- ; 6190 1 ; 6191 2 BEGIN ; 6192 2 ; 6193 2 MAP ; 6194 2 MESSAGE : REF VECTOR [CH$ALLOCATION (MAX_MSG, CHR_SIZE)]; ; 6195 2 ; 6196 2 LOCAL ; 6197 2 POINTER; ! Point into the message ; 6198 2 ; 6199 2 IF NOT .DEV_PARITY_FLAG ; 6200 2 THEN ; 6201 3 BEGIN ; 6202 3 POINTER = CH$PTR (.MESSAGE,, CHR_SIZE); ; 6203 3 ; 6204 3 INCR I FROM 1 TO .LENGTH DO ; 6205 3 CH$WCHAR_A (GEN_PARITY (CH$RCHAR (.POINTER)), POINTER); ; 6206 3 ; 6207 2 END; ; 6208 2 ; 6209 1 END; ! End of DO_PARITY ;DO_PARITY U.22: .WORD ^M<R2,R3> ;Save R2,R3 6152 000C 00000 BLBS G^DEV_PARITY_FLAG, 3$ ;DEV_PARITY_FLAG, 3$ 6199 1A 00000000G 00 E8 00002 MOVL 4(AP), R2 ;MESSAGE, POINTER 6202 52 04 AC D0 00009 CLRL R3 ;I 6204 53 D4 0000D BRB 2$ ;2$ 0D 11 0000F 1$: MOVZBL (R2), -(SP) ;(POINTER), -(SP) 6205 7E 62 9A 00011 CALLS #1, G^U.23 ;#1, U.23 00000000V 00 01 FB 00014 MOVB R0, (R2)+ ;R0, (POINTER)+ 82 50 90 0001B 2$: AOBLEQ 8(AP), R3, 1$ ;LENGTH, I, 1$ 53 08 AC F3 0001E ; EE 00022 3$: RET ; 6209 04 00023 ; Routine Size: 36 bytes, Routine Base: $CODE$ + 2685 ; 6210 1 %SBTTL 'Parity routine' ; 6211 1 ; 6212 1 GLOBAL ROUTINE GEN_PARITY (CHARACTER) = ; 6213 1 ; 6214 1 !++ ; 6215 1 ! FUNCTIONAL DESCRIPTION: ; 6216 1 ! ; 6217 1 ! This routine will add parity to the character that is supplied. ; 6218 1 ! ; 6219 1 ! CALLING SEQUENCE: ; 6220 1 ! ; 6221 1 ! CHARACTER = GEN_PARITY(CHARACTER) ; 6222 1 ! ; 6223 1 ! INPUT PARAMETERS: ; 6224 1 ! ; 6225 1 ! CHARACTER - Produce the parity for this character depending on the ; 6226 1 ! setting of the SET PARITY switch. ; 6227 1 ! ; 6228 1 ! IMPLICIT INPUTS: ; 6229 1 ! ; 6230 1 ! None. ; 6231 1 ! ; 6232 1 ! OUTPUT PARAMETERS: ; 6233 1 ! ; 6234 1 ! None. ; 6235 1 ! ; 6236 1 ! IMPLICIT OUTPUTS: ; 6237 1 ! ; 6238 1 ! None. ; 6239 1 ! ; 6240 1 ! COMPLETION CODES: ; 6241 1 ! ; 6242 1 ! None. ; 6243 1 ! ; 6244 1 ! SIDE EFFECTS: ; 6245 1 ! ; 6246 1 ! None. ; 6247 1 ! ; 6248 1 !-- ; 6249 1 ; 6250 2 BEGIN ; 6251 2 ; 6252 2 LOCAL ; 6253 2 TEMP_CHAR; ; 6254 2 ; 6255 2 ; 6256 2 CASE .PARITY_TYPE FROM PR_MIN TO PR_MAX OF ; 6257 2 SET ; 6258 2 ; 6259 2 [PR_NONE] : ; 6260 2 RETURN .CHARACTER; ; 6261 2 ; 6262 2 [PR_SPACE] : ; 6263 2 RETURN .CHARACTER AND %O'177'; ; 6264 2 ; 6265 2 [PR_MARK] : ; 6266 2 RETURN .CHARACTER OR %O'200'; ; 6267 2 ; 6268 2 [PR_ODD] : ; 6269 2 TEMP_CHAR = .CHARACTER AND %O'177' OR %O'200'; ; 6270 2 ; 6271 2 [PR_EVEN] : ; 6272 2 TEMP_CHAR = .CHARACTER AND %O'177'; ; 6273 2 TES; ; 6274 2 ; 6275 2 TEMP_CHAR = .TEMP_CHAR XOR (.TEMP_CHAR^-4); ; 6276 2 TEMP_CHAR = .TEMP_CHAR XOR (.TEMP_CHAR^-2); ; 6277 2 ; 6278 2 IF .TEMP_CHAR<0, 2> EQL %B'01' OR .TEMP_CHAR<0, 2> EQL %B'10' ; 6279 2 THEN ; 6280 2 RETURN .CHARACTER AND %O'177' OR %O'200' ; 6281 2 ELSE ; 6282 2 RETURN .CHARACTER AND %O'177'; ; 6283 2 ; 6284 1 END; ! End of GEN_PARITY U.23: .ENTRY GEN_PARITY, ^M<R2> ;GEN_PARITY, Save R2 6212 0004 00000 MOVL 4(AP), R2 ;CHARACTER, R2 6260 52 04 AC D0 00002 CASEL G^PARITY_TYPE, #0, #4 ;PARITY_TYPE, #0, #4 6256 00 00000000G 00 CF 00006 ; 04 0000D 1$: .WORD 2$-1$,- ;2$-1$,- 000E 000A 0000E 3$-1$,- ;3$-1$,- 0017 0023 00012 5$-1$,- ;5$-1$,- 0051 00016 4$-1$,- ;4$-1$,- 8$-1$ ;8$-1$ 2$: MOVL R2, R0 ;R2, R0 6260 50 52 D0 00018 RET ; 04 0001B 3$: BISL3 #128, R2, R0 ;#128, R2, R0 6266 52 00000080 8F C9 0001C ; 50 00023 RET ; 04 00024 4$: EXTZV #0, #7, R2, R0 ;#0, #7, R2, TEMP_CHAR 6269 07 00 EF 00025 ; 50 52 00028 INSV #1, #7, #1, R0 ;#1, #7, #1, TEMP_CHAR 07 01 F0 0002A ; 50 01 0002D BRB 6$ ;6$ 05 11 0002F 5$: EXTZV #0, #7, R2, R0 ;#0, #7, R2, TEMP_CHAR 6272 07 00 EF 00031 ; 50 52 00034 6$: ASHL #-4, R0, R1 ;#-4, TEMP_CHAR, R1 6275 50 FC 8F 78 00036 ; 51 0003A XORL2 R1, R0 ;R1, TEMP_CHAR 50 51 CC 0003B ASHL #-2, R0, R1 ;#-2, TEMP_CHAR, R1 6276 50 FE 8F 78 0003E ; 51 00042 XORL2 R1, R0 ;R1, TEMP_CHAR 50 51 CC 00043 CMPZV #0, #2, R0, #1 ;#0, #2, TEMP_CHAR, #1 6278 02 00 ED 00046 ; 01 50 00049 BEQL 7$ ;7$ 07 13 0004B CMPZV #0, #2, R0, #2 ;#0, #2, TEMP_CHAR, #2 02 00 ED 0004D ; 02 50 00050 BNEQ 8$ ;8$ 0B 12 00052 7$: EXTZV #0, #7, R2, R0 ;#0, #7, R2, R0 6280 07 00 EF 00054 ; 50 52 00057 INSV #1, #7, #1, R0 ;#1, #7, #1, R0 07 01 F0 00059 ; 50 01 0005C RET ; 04 0005E 8$: EXTZV #0, #7, R2, R0 ;#0, #7, R2, R0 07 00 EF 0005F ; 50 52 00062 RET ; 6282 04 00064 ; Routine Size: 101 bytes, Routine Base: $CODE$ + 26A9 ; 6285 1 ; 6286 1 %SBTTL 'Per transfer -- Initialization' ; 6287 1 ROUTINE INIT_XFR : NOVALUE = ; 6288 1 ; 6289 1 !++ ; 6290 1 ! FUNCTIONAL DESCRIPTION: ; 6291 1 ! ; 6292 1 ! This routine will initialize the various locations that the ; 6293 1 ! send and receive statistics are kept. ; 6294 1 ! ; 6295 1 ! CALLING SEQUENCE: ; 6296 1 ! ; 6297 1 ! INIT_XFR(); ; 6298 1 ! ; 6299 1 ! INPUT PARAMETERS: ; 6300 1 ! ; 6301 1 ! None. ; 6302 1 ! ; 6303 1 ! IMPLICIT INPUTS: ; 6304 1 ! ; 6305 1 ! None. ; 6306 1 ! ; 6307 1 ! OUTPUT PARAMETERS: ; 6308 1 ! ; 6309 1 ! None. ; 6310 1 ! ; 6311 1 ! IMPLICIT OUTPUTS: ; 6312 1 ! ; 6313 1 ! None. ; 6314 1 ! ; 6315 1 ! COMPLETION CODES: ; 6316 1 ! ; 6317 1 ! None. ; 6318 1 ! ; 6319 1 ! SIDE EFFECTS: ; 6320 1 ! ; 6321 1 ! None. ; 6322 1 ! ; 6323 1 !-- ; 6324 1 ; 6325 2 BEGIN ; 6326 2 ! ; 6327 2 ! Determine if we should do 8 bit quoting ; 6328 2 ! ; 6329 2 ; 6330 2 IF .PARITY_TYPE NEQ PR_NONE ; 6331 2 THEN ; 6332 3 BEGIN ; 6333 3 RECV_8QUOTE_CHR = .RCV_8QUOTE_CHR; ; 6334 3 END ; 6335 2 ELSE ; 6336 3 BEGIN ; 6337 3 RECV_8QUOTE_CHR = %C'Y'; ; 6338 2 END; ; 6339 2 ; 6340 2 NUM_RETRIES = 0; ; 6341 2 SEND_8QUOTE_CHR = .RECV_8QUOTE_CHR; ; 6342 2 ! ; 6343 2 ! Send parameters that may not get set before we need them for the first ; 6344 2 ! time. ; 6345 2 ! ; 6346 2 SEND_PKT_SIZE = ABS (.SND_PKT_SIZE); ; 6347 2 SEND_NPAD = ABS (.SND_NPAD); ; 6348 2 SEND_PADCHAR = ABS (.SND_PADCHAR); ; 6349 2 SEND_TIMEOUT = ABS (.SND_TIMEOUT); ; 6350 2 SEND_EOL = ABS (.SND_EOL); ; 6351 2 SEND_QUOTE_CHR = ABS (.SND_QUOTE_CHR); ; 6352 2 ! ; 6353 2 ! For initialization messages, we must use single character checksum ; 6354 2 ! When the send-init/ack sequence has been done, we will switch to the ; 6355 2 ! desired form ; 6356 2 ! ; 6357 2 BLK_CHK_TYPE = CHK_1CHAR; ; 6358 2 INI_CHK_TYPE = .CHKTYPE; ! Send desired type ; 6359 2 ! ; 6360 2 ! Set desired repeat character for use in we are doing send-init ; 6361 2 ! Will be overwritten by other ends desired character if it sends ; 6362 2 ! the send-init. ; 6363 2 ! ; 6364 2 REPT_CHR = .SET_REPT_CHR; ; 6365 2 ! ; 6366 2 ! Assume packet assembly/disassembly uses characters from a file ; 6367 2 ! ; 6368 2 GET_CHR_ROUTINE = GET_FILE; ! Initialize the get-a-char routine ; 6369 2 PUT_CHR_ROUTINE = PUT_FILE; ! And the put-a-char ; 6370 2 TEXT_HEAD_FLAG = FALSE; ! And assume we will get an File header ; 6371 2 NO_FILE_NEEDED = FALSE; ! Assume will do file ops ; 6372 2 INIT_PKT_SENT = FALSE; ! And no server-init sent ; 6373 2 ! ; 6374 2 ! Always start with packet number 0 ; 6375 2 ! ; 6376 2 MSG_NUMBER = 0; ! Initial message number ; 6377 2 ! ; 6378 2 ! Stats information ; 6379 2 ! ; 6380 2 SMSG_TOTAL_CHARS = 0; ; 6381 2 RMSG_TOTAL_CHARS = 0; ; 6382 2 SMSG_DATA_CHARS = 0; ; 6383 2 RMSG_DATA_CHARS = 0; ; 6384 2 SMSG_COUNT = 0; ; 6385 2 RMSG_COUNT = 0; ; 6386 2 RMSG_NAKS = 0; ; 6387 2 SMSG_NAKS = 0; ; 6388 2 XFR_TIME = SY_TIME (); ; 6389 1 END; ! End of INIT_XFR ;INIT_XFR U.32: .WORD ^M<R2> ;Save R2 6287 0004 00000 MOVAB G^U.37, R2 ;U.37, R2 52 00000000' 00 9E 00002 TSTL G^PARITY_TYPE ;PARITY_TYPE 6330 00000000G 00 D5 00009 BEQL 1$ ;1$ 09 13 0000F MOVL G^RCV_8QUOTE_CHR, (R2) ;RCV_8QUOTE_CHR, RECV_8QUOTE_CHR 6333 62 00000000G 00 D0 00011 BRB 2$ ;2$ 04 11 00018 1$: MOVZBL #89, (R2) ;#89, RECV_8QUOTE_CHR 6337 62 59 8F 9A 0001A 2$: CLRL 68(R2) ;NUM_RETRIES 6340 44 A2 D4 0001E MOVL (R2), 32(R2) ;RECV_8QUOTE_CHR, SEND_8QUOTE_CHR 6341 20 A2 62 D0 00021 MOVL G^SND_PKT_SIZE, R0 ;SND_PKT_SIZE, R0 6346 50 00000000G 00 D0 00025 BGEQ 3$ ;3$ 03 18 0002C MNEGL R0, R0 ;R0, R0 50 50 CE 0002E 3$: MOVL R0, 12(R2) ;R0, SEND_PKT_SIZE 0C A2 50 D0 00031 MOVL G^SND_NPAD, R0 ;SND_NPAD, R0 6347 50 00000000G 00 D0 00035 BGEQ 4$ ;4$ 03 18 0003C MNEGL R0, R0 ;R0, R0 50 50 CE 0003E 4$: MOVL R0, 16(R2) ;R0, SEND_NPAD 10 A2 50 D0 00041 MOVL G^SND_PADCHAR, R0 ;SND_PADCHAR, R0 6348 50 00000000G 00 D0 00045 BGEQ 5$ ;5$ 03 18 0004C MNEGL R0, R0 ;R0, R0 50 50 CE 0004E 5$: MOVL R0, 20(R2) ;R0, SEND_PADCHAR 14 A2 50 D0 00051 MOVL G^SND_TIMEOUT, R0 ;SND_TIMEOUT, R0 6349 50 00000000G 00 D0 00055 BGEQ 6$ ;6$ 03 18 0005C MNEGL R0, R0 ;R0, R0 50 50 CE 0005E 6$: MOVL R0, G^SEND_TIMEOUT ;R0, SEND_TIMEOUT 00000000G 00 50 D0 00061 MOVL G^SND_EOL, R0 ;SND_EOL, R0 6350 50 00000000G 00 D0 00068 BGEQ 7$ ;7$ 03 18 0006F MNEGL R0, R0 ;R0, R0 50 50 CE 00071 7$: MOVL R0, 24(R2) ;R0, SEND_EOL 18 A2 50 D0 00074 MOVL G^SND_QUOTE_CHR, R0 ;SND_QUOTE_CHR, R0 6351 50 00000000G 00 D0 00078 BGEQ 8$ ;8$ 03 18 0007F MNEGL R0, R0 ;R0, R0 50 50 CE 00081 8$: MOVL R0, 28(R2) ;R0, SEND_QUOTE_CHR 1C A2 50 D0 00084 MOVL #49, 44(R2) ;#49, BLK_CHK_TYPE 6357 2C A2 31 D0 00088 MOVL G^CHKTYPE, 40(R2) ;CHKTYPE, INI_CHK_TYPE 6358 28 A2 00000000G 00 D0 0008C MOVL G^SET_REPT_CHR, 4(R2) ;SET_REPT_CHR, REPT_CHR 6364 04 A2 00000000G 00 D0 00094 MOVAB G^GET_FILE, 2120(R2) ;GET_FILE, GET_CHR_ROUTINE 6368 0848 C2 00000000G 00 9E 0009C MOVAB G^PUT_FILE, 2124(R2) ;PUT_FILE, PUT_CHR_ROUTINE 6369 084C C2 00000000G 00 9E 000A5 CLRQ 2100(R2) ;TEXT_HEAD_FLAG 6370 0834 C2 7C 000AE CLRL 2108(R2) ;INIT_PKT_SENT 6372 083C C2 D4 000B2 CLRL 72(R2) ;MSG_NUMBER 6376 48 A2 D4 000B6 CLRL G^SMSG_TOTAL_CHARS ;SMSG_TOTAL_CHARS 6380 00000000G 00 D4 000B9 CLRL G^RMSG_TOTAL_CHARS ;RMSG_TOTAL_CHARS 6381 00000000G 00 D4 000BF CLRL G^SMSG_DATA_CHARS ;SMSG_DATA_CHARS 6382 00000000G 00 D4 000C5 CLRL G^RMSG_DATA_CHARS ;RMSG_DATA_CHARS 6383 00000000G 00 D4 000CB CLRL G^SMSG_COUNT ;SMSG_COUNT 6384 00000000G 00 D4 000D1 CLRL G^RMSG_COUNT ;RMSG_COUNT 6385 00000000G 00 D4 000D7 CLRL G^RMSG_NAKS ;RMSG_NAKS 6386 00000000G 00 D4 000DD CLRL G^SMSG_NAKS ;SMSG_NAKS 6387 00000000G 00 D4 000E3 CALLS #0, G^SY_TIME ;#0, SY_TIME 6388 00000000G 00 00 FB 000E9 MOVL R0, G^XFR_TIME ;R0, XFR_TIME 00000000G 00 50 D0 000F0 RET ; 6389 04 000F7 ; Routine Size: 248 bytes, Routine Base: $CODE$ + 270E ; 6390 1 %SBTTL 'Statistics -- Finish message transfer' ; 6391 1 ROUTINE END_STATS : NOVALUE = ; 6392 1 ; 6393 1 !++ ; 6394 1 ! FUNCTIONAL DESCRIPTION: ; 6395 1 ! ; 6396 1 ! This routine will end the collection of the statistices. It will ; 6397 1 ! update the various overall statistic parameters. ; 6398 1 ! ; 6399 1 ! CALLING SEQUENCE: ; 6400 1 ! ; 6401 1 ! END_STATS (); ; 6402 1 ! ; 6403 1 ! INPUT PARAMETERS: ; 6404 1 ! ; 6405 1 ! None. ; 6406 1 ! ; 6407 1 ! IMPLICIT INPUTS: ; 6408 1 ! ; 6409 1 ! None. ; 6410 1 ! ; 6411 1 ! OUTPUT PARAMETERS: ; 6412 1 ! ; 6413 1 ! None. ; 6414 1 ! ; 6415 1 ! IMPLICIT OUTPUTS: ; 6416 1 ! ; 6417 1 ! None. ; 6418 1 ! ; 6419 1 ! COMPLETION CODES: ; 6420 1 ! ; 6421 1 ! None. ; 6422 1 ! ; 6423 1 ! SIDE EFFECTS: ; 6424 1 ! ; 6425 1 ! None. ; 6426 1 ! ; 6427 1 !-- ; 6428 1 ; 6429 2 BEGIN ; 6430 2 SND_COUNT = .SND_COUNT + .SMSG_COUNT; ; 6431 2 RCV_COUNT = .RCV_COUNT + .RMSG_COUNT; ; 6432 2 SND_TOTAL_CHARS = .SND_TOTAL_CHARS + .SMSG_TOTAL_CHARS; ; 6433 2 SND_DATA_CHARS = .SND_DATA_CHARS + .SMSG_DATA_CHARS; ; 6434 2 RCV_TOTAL_CHARS = .RCV_TOTAL_CHARS + .RMSG_TOTAL_CHARS; ; 6435 2 RCV_DATA_CHARS = .RCV_DATA_CHARS + .RMSG_DATA_CHARS; ; 6436 2 SND_NAKS = .SND_NAKS + .SMSG_NAKS; ; 6437 2 RCV_NAKS = .RCV_NAKS + .RMSG_NAKS; ; 6438 2 XFR_TIME = SY_TIME () - .XFR_TIME; ; 6439 2 TOTAL_TIME = .TOTAL_TIME + .XFR_TIME; ; 6440 1 END; ! End of END_STATS ;END_STATS U.18: .WORD ^M<R2> ;Save R2 6391 0004 00000 MOVAB G^XFR_TIME, R2 ;XFR_TIME, R2 52 00000000G 00 9E 00002 ADDL2 G^SMSG_COUNT, G^SND_COUNT ;SMSG_COUNT, SND_COUNT 6430 00000000G 00 00000000G 00 C0 00009 ADDL2 G^RMSG_COUNT, G^RCV_COUNT ;RMSG_COUNT, RCV_COUNT 6431 00000000G 00 00000000G 00 C0 00014 ADDL2 G^SMSG_TOTAL_CHARS, - ;SMSG_TOTAL_CHARS, SND_TOTAL_CHARS 6432 00000000G 00 00000000G 00 C0 0001F G^SND_TOTAL_CHARS ; ADDL2 G^SMSG_DATA_CHARS, - ;SMSG_DATA_CHARS, SND_DATA_CHARS 6433 00000000G 00 00000000G 00 C0 0002A G^SND_DATA_CHARS ; ADDL2 G^RMSG_TOTAL_CHARS, - ;RMSG_TOTAL_CHARS, RCV_TOTAL_CHARS 6434 00000000G 00 00000000G 00 C0 00035 G^RCV_TOTAL_CHARS ; ADDL2 G^RMSG_DATA_CHARS, - ;RMSG_DATA_CHARS, RCV_DATA_CHARS 6435 00000000G 00 00000000G 00 C0 00040 G^RCV_DATA_CHARS ; ADDL2 G^SMSG_NAKS, G^SND_NAKS ;SMSG_NAKS, SND_NAKS 6436 00000000G 00 00000000G 00 C0 0004B ADDL2 G^RMSG_NAKS, G^RCV_NAKS ;RMSG_NAKS, RCV_NAKS 6437 00000000G 00 00000000G 00 C0 00056 CALLS #0, G^SY_TIME ;#0, SY_TIME 6438 00000000G 00 00 FB 00061 SUBL3 (R2), R0, (R2) ;XFR_TIME, R0, XFR_TIME 50 62 C3 00068 ; 62 0006B ADDL2 (R2), G^TOTAL_TIME ;XFR_TIME, TOTAL_TIME 6439 00000000G 00 62 C0 0006C RET ; 6440 04 00073 ; Routine Size: 116 bytes, Routine Base: $CODE$ + 2806 ; 6441 1 %SBTTL 'Status type out -- STS_OUTPUT' ; 6442 1 ROUTINE STS_OUTPUT : NOVALUE = ; 6443 1 ; 6444 1 !++ ; 6445 1 ! FUNCTIONAL DESCRIPTION: ; 6446 1 ! ; 6447 1 ! This routine will output the current status of a transfer. ; 6448 1 ! This is used when the user types a ^A during a transfer. ; 6449 1 ! ; 6450 1 ! CALLING SEQUENCE: ; 6451 1 ! ; 6452 1 ! STS_OUTPUT () ; 6453 1 ! ; 6454 1 ! INPUT PARAMETERS: ; 6455 1 ! ; 6456 1 ! None. ; 6457 1 ! ; 6458 1 ! IMPLICIT INPUTS: ; 6459 1 ! ; 6460 1 ! Statistics blocks, file names, etc. ; 6461 1 ! ; 6462 1 ! OUPTUT PARAMETERS: ; 6463 1 ! ; 6464 1 ! None. ; 6465 1 ! ; 6466 1 ! IMPLICIT OUTPUTS: ; 6467 1 ! ; 6468 1 ! None. ; 6469 1 ! ; 6470 1 ! COMPLETION CODES: ; 6471 1 ! ; 6472 1 ! None. ; 6473 1 ! ; 6474 1 ! SIDE EFFECTS: ; 6475 1 ! ; 6476 1 ! None. ; 6477 1 ! ; 6478 1 !-- ; 6479 1 ; 6480 2 BEGIN ; 6481 2 TT_CHAR (%C'['); ! Start the message ; 6482 2 ; 6483 2 CASE .STATE FROM STATE_MIN TO STATE_MAX OF ; 6484 2 SET ; 6485 2 ; 6486 2 [STATE_ID, STATE_II] : ; 6487 2 TT_TEXT (UPLIT (%ASCIZ'Idle in server mode')); ; 6488 2 ; 6489 2 [STATE_S, STATE_SF] : ; 6490 3 BEGIN ; 6491 3 TT_TEXT (UPLIT (%ASCIZ'Initializing for sending file ')); ; 6492 3 TT_TEXT (FILE_NAME); ; 6493 2 END; ; 6494 2 ; 6495 2 [STATE_SI] : ; 6496 2 TT_TEXT (UPLIT (%ASCIZ'Initializing for remote command')); ; 6497 2 ; 6498 2 [STATE_SG] : ; 6499 2 TT_TEXT (UPLIT (%ASCIZ'Waiting for response to remote command')); ; 6500 2 ; 6501 2 [STATE_SD] : ; 6502 3 BEGIN ; 6503 3 TT_NUMBER (.FILE_CHARS); ; 6504 3 TT_TEXT (UPLIT (%ASCIZ' characters sent for file ')); ; 6505 3 TT_TEXT (FILE_NAME); ; 6506 2 END; ; 6507 2 ; 6508 2 [STATE_SZ] : ; 6509 3 BEGIN ; 6510 3 TT_TEXT (UPLIT (%ASCIZ'At end of file ')); ; 6511 3 TT_TEXT (FILE_NAME); ; 6512 2 END; ; 6513 2 ; 6514 2 [STATE_SB] : ; 6515 2 TT_TEXT (UPLIT (%ASCIZ'Finishing transfer session')); ; 6516 2 ; 6517 2 [STATE_R] : ; 6518 2 TT_TEXT (UPLIT (%ASCIZ'Waiting for initialization')); ; 6519 2 ; 6520 2 [STATE_RF] : ; 6521 2 TT_TEXT (UPLIT (%ASCIZ'Waiting for next file or end of session')); ; 6522 2 ; 6523 2 [STATE_RD] : ; 6524 3 BEGIN ; 6525 3 TT_NUMBER (.FILE_CHARS); ; 6526 3 TT_TEXT (UPLIT (%ASCIZ' characters received for file ')); ; 6527 3 TT_TEXT (FILE_NAME); ; 6528 2 END; ; 6529 2 ; 6530 2 [STATE_C] : ; 6531 2 TT_TEXT (UPLIT (%ASCIZ' Session complete')); ; 6532 2 ; 6533 2 [STATE_A] : ; 6534 2 TT_TEXT (UPLIT (%ASCIZ' Session aborted')); ; 6535 2 ; 6536 2 [INRANGE, OUTRANGE] : ; 6537 2 TT_TEXT (UPLIT (%ASCIZ' Unknown state')); ; 6538 2 TES; ; 6539 2 ; 6540 2 SELECTONE .STATE OF ; 6541 2 SET ; 6542 2 ; 6543 2 [STATE_S, STATE_SF, STATE_SD, STATE_SZ, STATE_SB] : ; 6544 3 BEGIN ; 6545 3 ; 6546 3 IF .RMSG_NAKS GTR 0 ; 6547 3 THEN ; 6548 4 BEGIN ; 6549 4 TT_TEXT (UPLIT (%ASCIZ', ')); ; 6550 4 TT_NUMBER (.RMSG_NAKS); ; 6551 4 TT_TEXT (UPLIT (%ASCIZ' NAKs received')); ; 6552 3 END; ; 6553 3 ; 6554 2 END; ; 6555 2 ; 6556 2 [STATE_R, STATE_RF, STATE_RD] : ; 6557 3 BEGIN ; 6558 3 ; 6559 3 IF .SMSG_NAKS GTR 0 ; 6560 3 THEN ; 6561 4 BEGIN ; 6562 4 TT_TEXT (UPLIT (%ASCIZ', ')); ; 6563 4 TT_NUMBER (.SMSG_NAKS); ; 6564 4 TT_TEXT (UPLIT (%ASCIZ' NAKs sent')); ; 6565 3 END; ; 6566 3 ; 6567 2 END; ; 6568 2 TES; ; 6569 2 ; 6570 2 TT_CHAR (%C']'); ! End the line ; 6571 2 TT_CRLF (); ! with a CRLF ; 6572 1 END; ! End of STS_OUTPUT .PSECT $PLIT$,NOWRT,NOEXE,2 P.AAO: .ASCII \Idle in server mode\<0> ; 20 6E 69 20 65 6C 64 49 000B8 ; 6D 20 72 65 76 72 65 73 000C0 ; 00 65 64 6F 000C8 P.AAP: .ASCII \Initializing for sending file \<0><0> ; 69 6C 61 69 74 69 6E 49 000CC ; 72 6F 66 20 67 6E 69 7A 000D4 ; 67 6E 69 64 6E 65 73 20 000DC ; 00 00 20 65 6C 69 66 20 000E4 P.AAQ: .ASCII \Initializing for remote command\<0> ; 69 6C 61 69 74 69 6E 49 000EC ; 72 6F 66 20 67 6E 69 7A 000F4 ; 20 65 74 6F 6D 65 72 20 000FC ; 00 64 6E 61 6D 6D 6F 63 00104 P.AAR: .ASCII \Waiting for response to remote command\<0><0> ; 20 67 6E 69 74 69 61 57 0010C ; 70 73 65 72 20 72 6F 66 00114 ; 20 6F 74 20 65 73 6E 6F 0011C ; 63 20 65 74 6F 6D 65 72 00124 ; 00 00 64 6E 61 6D 6D 6F 0012C P.AAS: .ASCII \ characters sent for file \<0><0> ; 74 63 61 72 61 68 63 20 00134 ; 74 6E 65 73 20 73 72 65 0013C ; 6C 69 66 20 72 6F 66 20 00144 ; 00 00 20 65 0014C P.AAT: .ASCII \At end of file \<0> ; 6F 20 64 6E 65 20 74 41 00150 ; 00 20 65 6C 69 66 20 66 00158 P.AAU: .ASCII \Finishing transfer session\<0><0> ; 6E 69 68 73 69 6E 69 46 00160 ; 66 73 6E 61 72 74 20 67 00168 ; 69 73 73 65 73 20 72 65 00170 ; 00 00 6E 6F 00178 P.AAV: .ASCII \Waiting for initialization\<0><0> ; 20 67 6E 69 74 69 61 57 0017C ; 74 69 6E 69 20 72 6F 66 00184 ; 69 74 61 7A 69 6C 61 69 0018C ; 00 00 6E 6F 00194 P.AAW: .ASCII \Waiting for next file or end of session\<0> ; 20 67 6E 69 74 69 61 57 00198 ; 74 78 65 6E 20 72 6F 66 001A0 ; 72 6F 20 65 6C 69 66 20 001A8 ; 20 66 6F 20 64 6E 65 20 001B0 ; 00 6E 6F 69 73 73 65 73 001B8 P.AAX: .ASCII \ characters received for file \<0><0> ; 74 63 61 72 61 68 63 20 001C0 ; 65 63 65 72 20 73 72 65 001C8 ; 72 6F 66 20 64 65 76 69 001D0 ; 00 00 20 65 6C 69 66 20 001D8 P.AAY: .ASCII \ Session complete\<0><0><0> ; 6E 6F 69 73 73 65 53 20 001E0 ; 74 65 6C 70 6D 6F 63 20 001E8 ; 00 00 00 65 001F0 P.AAZ: .ASCII \ Session aborted\<0><0><0><0> ; 6E 6F 69 73 73 65 53 20 001F4 ; 64 65 74 72 6F 62 61 20 001FC ; 00 00 00 00 00204 P.ABA: .ASCII \ Unknown state\<0><0> ; 6E 77 6F 6E 6B 6E 55 20 00208 ; 00 00 65 74 61 74 73 20 00210 P.ABB: .ASCII \, \<0><0> ; 00 00 20 2C 00218 P.ABC: .ASCII \ NAKs received\<0><0> ; 65 72 20 73 4B 41 4E 20 0021C ; 00 00 64 65 76 69 65 63 00224 P.ABD: .ASCII \, \<0><0> ; 00 00 20 2C 0022C P.ABE: .ASCII \ NAKs sent\<0><0> ; 65 73 20 73 4B 41 4E 20 00230 ; 00 00 74 6E 00238 .PSECT $CODE$,NOWRT,2 ;STS_OUTPUT U.33: .WORD ^M<R2,R3,R4,R5,R6,R7,R8> ;Save R2,R3,R4,R5,R6,R7,R8 6442 01FC 00000 MOVAB G^TT_CHAR, R8 ;TT_CHAR, R8 58 00000000G 00 9E 00002 MOVAB G^SMSG_NAKS, R7 ;SMSG_NAKS, R7 57 00000000G 00 9E 00009 MOVAB G^RMSG_NAKS, R6 ;RMSG_NAKS, R6 56 00000000G 00 9E 00010 MOVAB G^TT_NUMBER, R5 ;TT_NUMBER, R5 55 00000000G 00 9E 00017 MOVAB G^U.51, R4 ;U.51, R4 54 00000000' 00 9E 0001E MOVAB G^TT_TEXT, R3 ;TT_TEXT, R3 53 00000000G 00 9E 00025 MOVAB G^P.ABA, R2 ;P.ABA, R2 52 00000000' 00 9E 0002C MOVZBL #91, -(SP) ;#91, -(SP) 6481 7E 5B 8F 9A 00033 CALLS #1, (R8) ;#1, TT_CHAR 68 01 FB 00037 CASEL (R4), #1, #19 ;STATE, #1, #19 6483 01 64 CF 0003A ; 13 0003D 1$: .WORD 4$-1$,- ;4$-1$,- 0032 0032 0003E 4$-1$,- ;4$-1$,- 0051 0044 00042 7$-1$,- ;7$-1$,- 0066 0060 00046 8$-1$,- ;8$-1$,- 0071 006C 0004A 10$-1$,- ;10$-1$,- 0082 007D 0004E 11$-1$,- ;11$-1$,- 003E 0028 00052 12$-1$,- ;12$-1$,- 002C 0038 00056 13$-1$,- ;13$-1$,- 0028 002C 0005A 14$-1$,- ;14$-1$,- 0028 0028 0005E 15$-1$,- ;15$-1$,- 0028 0028 00062 2$-1$,- ;2$-1$,- 6$-1$,- ;6$-1$,- 5$-1$,- ;5$-1$,- 3$-1$,- ;3$-1$,- 3$-1$,- ;3$-1$,- 2$-1$,- ;2$-1$,- 2$-1$,- ;2$-1$,- 2$-1$,- ;2$-1$,- 2$-1$,- ;2$-1$,- 2$-1$ ;2$-1$ 2$: PUSHL R2 ;R2 6537 52 DD 00066 BRB 16$ ;16$ 59 11 00068 3$: PUSHAB -336(R2) ;P.AAO 6487 FEB0 C2 9F 0006A BRB 16$ ;16$ 53 11 0006E 4$: PUSHAB -316(R2) ;P.AAP 6491 FEC4 C2 9F 00070 BRB 9$ ;9$ 1D 11 00074 5$: PUSHAB -284(R2) ;P.AAQ 6496 FEE4 C2 9F 00076 BRB 16$ ;16$ 47 11 0007A 6$: PUSHAB -252(R2) ;P.AAR 6499 FF04 C2 9F 0007C BRB 16$ ;16$ 41 11 00080 7$: PUSHL 2040(R4) ;FILE_CHARS 6503 07F8 C4 DD 00082 CALLS #1, (R5) ;#1, TT_NUMBER 65 01 FB 00086 PUSHAB -212(R2) ;P.AAS 6504 FF2C C2 9F 00089 BRB 9$ ;9$ 04 11 0008D 8$: PUSHAB -184(R2) ;P.AAT 6510 FF48 C2 9F 0008F 9$: CALLS #1, (R3) ;#1, TT_TEXT 63 01 FB 00093 PUSHAB G^FILE_NAME ;FILE_NAME 6511 00000000G 00 9F 00096 BRB 16$ ;16$ 25 11 0009C 10$: PUSHAB -168(R2) ;P.AAU 6515 FF58 C2 9F 0009E BRB 16$ ;16$ 1F 11 000A2 11$: PUSHAB -140(R2) ;P.AAV 6518 FF74 C2 9F 000A4 BRB 16$ ;16$ 19 11 000A8 12$: PUSHAB -112(R2) ;P.AAW 6521 90 A2 9F 000AA BRB 16$ ;16$ 14 11 000AD 13$: PUSHL 2040(R4) ;FILE_CHARS 6525 07F8 C4 DD 000AF CALLS #1, (R5) ;#1, TT_NUMBER 65 01 FB 000B3 PUSHAB -72(R2) ;P.AAX 6526 B8 A2 9F 000B6 BRB 9$ ;9$ D8 11 000B9 14$: PUSHAB -40(R2) ;P.AAY 6531 D8 A2 9F 000BB BRB 16$ ;16$ 03 11 000BE 15$: PUSHAB -20(R2) ;P.AAZ 6534 EC A2 9F 000C0 16$: CALLS #1, (R3) ;#1, TT_TEXT 63 01 FB 000C3 MOVL (R4), R0 ;STATE, R0 6540 50 64 D0 000C6 BLEQ 17$ ;17$ 6543 19 15 000C9 CMPL R0, #5 ;R0, #5 05 50 D1 000CB BGTR 17$ ;17$ 14 14 000CE TSTL (R6) ;RMSG_NAKS 6546 66 D5 000D0 BLEQ 19$ ;19$ 2F 15 000D2 PUSHAB 16(R2) ;P.ABB 6549 10 A2 9F 000D4 CALLS #1, (R3) ;#1, TT_TEXT 63 01 FB 000D7 PUSHL (R6) ;RMSG_NAKS 6550 66 DD 000DA CALLS #1, (R5) ;#1, TT_NUMBER 65 01 FB 000DC PUSHAB 20(R2) ;P.ABC 6551 14 A2 9F 000DF BRB 18$ ;18$ 1C 11 000E2 17$: CMPL R0, #6 ;R0, #6 6556 06 50 D1 000E4 BLSS 19$ ;19$ 1A 19 000E7 CMPL R0, #8 ;R0, #8 08 50 D1 000E9 BGTR 19$ ;19$ 15 14 000EC TSTL (R7) ;SMSG_NAKS 6559 67 D5 000EE BLEQ 19$ ;19$ 11 15 000F0 PUSHAB 36(R2) ;P.ABD 6562 24 A2 9F 000F2 CALLS #1, (R3) ;#1, TT_TEXT 63 01 FB 000F5 PUSHL (R7) ;SMSG_NAKS 6563 67 DD 000F8 CALLS #1, (R5) ;#1, TT_NUMBER 65 01 FB 000FA PUSHAB 40(R2) ;P.ABE 6564 28 A2 9F 000FD 18$: CALLS #1, (R3) ;#1, TT_TEXT 63 01 FB 00100 19$: MOVZBL #93, -(SP) ;#93, -(SP) 6570 7E 5D 8F 9A 00103 CALLS #1, (R8) ;#1, TT_CHAR 68 01 FB 00107 CALLS #0, G^TT_CRLF ;#0, TT_CRLF 6571 00000000G 00 00 FB 0010A RET ; 6572 04 00111 ; Routine Size: 274 bytes, Routine Base: $CODE$ + 287A ; 6573 1 %SBTTL 'TYPE_CHAR - Type out a character' ; 6574 1 ROUTINE TYPE_CHAR (CHARACTER) = ; 6575 1 ; 6576 1 !++ ; 6577 1 ! FUNCTIONAL DESCRIPTION: ; 6578 1 ! ; 6579 1 ! This routine is used as an alternate output routine for BFR_EMPTY. ; 6580 1 ! It will type the character on the terminal, and always return a ; 6581 1 ! true status. ; 6582 1 ! ; 6583 1 ! CALLING SEQUENCE: ; 6584 1 ! ; 6585 1 ! STATUS = TYPE_CHAR (.CHARACTER); ; 6586 1 ! ; 6587 1 ! INPUT PARAMETERS: ; 6588 1 ! ; 6589 1 ! CHARACTER - The character to type ; 6590 1 ! ; 6591 1 ! IMPLICIT INPUTS: ; 6592 1 ! ; 6593 1 ! None. ; 6594 1 ! ; 6595 1 ! OUPTUT PARAMETERS: ; 6596 1 ! ; 6597 1 ! None. ; 6598 1 ! ; 6599 1 ! IMPLICIT OUTPUTS: ; 6600 1 ! ; 6601 1 ! None. ; 6602 1 ! ; 6603 1 ! COMPLETION CODES: ; 6604 1 ! ; 6605 1 ! None. ; 6606 1 ! ; 6607 1 ! SIDE EFFECTS: ; 6608 1 ! ; 6609 1 ! None. ; 6610 1 ! ; 6611 1 !-- ; 6612 1 ; 6613 2 BEGIN ; 6614 2 TT_CHAR (.CHARACTER); ! Type the character ; 6615 2 RETURN KER_NORMAL; ! And return OK ; 6616 1 END; ! End of TYPE_CHAR ;TYPE_CHAR U.31: .WORD ^M<> ;Save nothing 6574 0000 00000 PUSHL 4(AP) ;CHARACTER 6614 04 AC DD 00002 CALLS #1, G^TT_CHAR ;#1, TT_CHAR 00000000G 00 01 FB 00005 MOVL #134316043, R0 ;#134316043, R0 6615 50 0801800B 8F D0 0000C RET ; 04 00013 ; Routine Size: 20 bytes, Routine Base: $CODE$ + 298C ; 6617 1 %SBTTL 'Debugging -- DBG_SEND' ; 6618 1 ROUTINE DBG_SEND (ADDRESS, LENGTH) : NOVALUE = ; 6619 1 ; 6620 1 !++ ; 6621 1 ! FUNCTIONAL DESCRIPTION: ; 6622 1 ! ; 6623 1 ! This routine will output the message that is going to be sent ; 6624 1 ! as part of the debugging information that is turned on in the ; 6625 1 ! SET DEBUG command. ; 6626 1 ! ; 6627 1 ! CALLING SEQUENCE: ; 6628 1 ! ; 6629 1 ! DBG_SEND(MSG_ADDRESS, MSG_LENGTH); ; 6630 1 ! ; 6631 1 ! INPUT PARAMETERS: ; 6632 1 ! ; 6633 1 ! MSG_ADDRESS - Address of the message that is going to be sent ; 6634 1 ! to the remote KERMIT. The bytes are CHR_SIZE. ; 6635 1 ! MSG_LENGTH - Length of the message. ; 6636 1 ! ; 6637 1 ! IMPLICIT INPUTS: ; 6638 1 ! ; 6639 1 ! None. ; 6640 1 ! ; 6641 1 ! OUTPUT PARAMETERS: ; 6642 1 ! ; 6643 1 ! None. ; 6644 1 ! ; 6645 1 ! IMPLICIT OUTPUTS: ; 6646 1 ! ; 6647 1 ! None. ; 6648 1 ! ; 6649 1 ! COMPLETION CODES: ; 6650 1 ! ; 6651 1 ! None. ; 6652 1 ! ; 6653 1 ! SIDE EFFECTS: ; 6654 1 ! ; 6655 1 ! None. ; 6656 1 ! ; 6657 1 !-- ; 6658 1 ; 6659 2 BEGIN ; 6660 2 ; 6661 2 BIND ; 6662 2 SEND_TEXT = UPLIT (%ASCIZ'Sending...'); ; 6663 2 ; 6664 2 IF .DEBUG_FLAG ; 6665 2 THEN ; 6666 3 BEGIN ; 6667 3 ; 6668 3 LOCAL ; 6669 3 OLD_RTN; ; 6670 3 ; 6671 3 OLD_RTN = TT_SET_OUTPUT (DBG_DUMP); ; 6672 3 TT_TEXT (SEND_TEXT); ; 6673 3 DBG_MESSAGE (.ADDRESS, .LENGTH); ; 6674 3 TT_SET_OUTPUT (.OLD_RTN); ; 6675 2 END; ; 6676 2 ; 6677 1 END; ! End of DBG_SEND .PSECT $PLIT$,NOWRT,NOEXE,2 P.ABF: .ASCII \Sending...\<0><0> ; 2E 67 6E 69 64 6E 65 53 0023C ; 00 00 2E 2E 00244 U.102= P.ABF .PSECT $CODE$,NOWRT,2 ;DBG_SEND U.35: .WORD ^M<R2,R3> ;Save R2,R3 6618 000C 00000 MOVAB G^TT_SET_OUTPUT, R3 ;TT_SET_OUTPUT, R3 53 00000000G 00 9E 00002 BLBC G^DEBUG_FLAG, 1$ ;DEBUG_FLAG, 1$ 6664 29 00000000G 00 E9 00009 PUSHAB G^DBG_DUMP ;DBG_DUMP 6671 00000000G 00 9F 00010 CALLS #1, (R3) ;#1, TT_SET_OUTPUT 63 01 FB 00016 MOVL R0, R2 ;R0, OLD_RTN 52 50 D0 00019 PUSHAB G^U.102 ;U.102 6672 00000000' 00 9F 0001C CALLS #1, G^TT_TEXT ;#1, TT_TEXT 00000000G 00 01 FB 00022 MOVQ 4(AP), -(SP) ;ADDRESS, -(SP) 6673 7E 04 AC 7D 00029 CALLS #2, G^U.34 ;#2, U.34 00000000V 00 02 FB 0002D PUSHL R2 ;OLD_RTN 6674 52 DD 00034 CALLS #1, (R3) ;#1, TT_SET_OUTPUT 63 01 FB 00036 1$: RET ; 6677 04 00039 ; Routine Size: 58 bytes, Routine Base: $CODE$ + 29A0 ; 6678 1 %SBTTL 'Debugging -- DBG_RECEIVE' ; 6679 1 ROUTINE DBG_RECEIVE (ADDRESS) : NOVALUE = ; 6680 1 ; 6681 1 !++ ; 6682 1 ! FUNCTIONAL DESCRIPTION: ; 6683 1 ! ; 6684 1 ! This routine will output the message that was received from ; 6685 1 ! the remote KERMIT. This routine is called only if the DEBUG_FLAG ; 6686 1 ! is true. ; 6687 1 ! ; 6688 1 ! CALLING SEQUENCE: ; 6689 1 ! ; 6690 1 ! DBG_RECEIVE(MSG_ADDRESS); ; 6691 1 ! ; 6692 1 ! INPUT PARAMETERS: ; 6693 1 ! ; 6694 1 ! MSG_ADDRESS - Address of the message received by the remote KERMIT. ; 6695 1 ! ; 6696 1 ! IMPLICIT INPUTS: ; 6697 1 ! ; 6698 1 ! None. ; 6699 1 ! ; 6700 1 ! OUTPUT PARAMETERS: ; 6701 1 ! ; 6702 1 ! None. ; 6703 1 ! ; 6704 1 ! IMPLICIT OUTPUTS: ; 6705 1 ! ; 6706 1 ! None. ; 6707 1 ! ; 6708 1 ! COMPLETION CODES: ; 6709 1 ! ; 6710 1 ! None. ; 6711 1 ! ; 6712 1 ! SIDE EFFECTS: ; 6713 1 ! ; 6714 1 ! None. ; 6715 1 ! ; 6716 1 !-- ; 6717 1 ; 6718 2 BEGIN ; 6719 2 ; 6720 2 BIND ; 6721 2 RECEIVE_TEXT = UPLIT (%ASCIZ'Received...'); ; 6722 2 ; 6723 2 IF .DEBUG_FLAG ; 6724 2 THEN ; 6725 3 BEGIN ; 6726 3 ; 6727 3 LOCAL ; 6728 3 OLD_RTN; ; 6729 3 ; 6730 3 OLD_RTN = TT_SET_OUTPUT (DBG_DUMP); ; 6731 3 TT_TEXT (RECEIVE_TEXT); ; 6732 3 DBG_MESSAGE (.ADDRESS, .REC_LENGTH); ; 6733 3 TT_SET_OUTPUT (.OLD_RTN); ; 6734 2 END; ; 6735 2 ; 6736 1 END; ! End of DBG_RECEIVE .PSECT $PLIT$,NOWRT,NOEXE,2 P.ABG: .ASCII \Received...\<0> ; 64 65 76 69 65 63 65 52 00248 ; 00 2E 2E 2E 00250 U.103= P.ABG .PSECT $CODE$,NOWRT,2 ;DBG_RECEIVE U.36: .WORD ^M<R2,R3> ;Save R2,R3 6679 000C 00000 MOVAB G^TT_SET_OUTPUT, R3 ;TT_SET_OUTPUT, R3 53 00000000G 00 9E 00002 BLBC G^DEBUG_FLAG, 1$ ;DEBUG_FLAG, 1$ 6723 2E 00000000G 00 E9 00009 PUSHAB G^DBG_DUMP ;DBG_DUMP 6730 00000000G 00 9F 00010 CALLS #1, (R3) ;#1, TT_SET_OUTPUT 63 01 FB 00016 MOVL R0, R2 ;R0, OLD_RTN 52 50 D0 00019 PUSHAB G^U.103 ;U.103 6731 00000000' 00 9F 0001C CALLS #1, G^TT_TEXT ;#1, TT_TEXT 00000000G 00 01 FB 00022 PUSHL G^U.57 ;U.57 6732 00000000' 00 DD 00029 PUSHL 4(AP) ;ADDRESS 04 AC DD 0002F CALLS #2, G^U.34 ;#2, U.34 00000000V 00 02 FB 00032 PUSHL R2 ;OLD_RTN 6733 52 DD 00039 CALLS #1, (R3) ;#1, TT_SET_OUTPUT 63 01 FB 0003B 1$: RET ; 6736 04 0003E ; Routine Size: 63 bytes, Routine Base: $CODE$ + 29DA ; 6737 1 %SBTTL 'Debugging -- DBG_MESSAGE' ; 6738 1 ROUTINE DBG_MESSAGE (MSG_ADDRESS, MSG_LENGTH) : NOVALUE = ; 6739 1 ; 6740 1 !++ ; 6741 1 ! FUNCTIONAL DESCRIPTION: ; 6742 1 ! ; 6743 1 ! This routine will display a message that is either being sent ; 6744 1 ! or received on the user's terminal. ; 6745 1 ! ; 6746 1 ! CALLING SEQUENCE: ; 6747 1 ! ; 6748 1 ! DBG_MESSAGE(MSG_ADDRESS, MSG_LENGTH); ; 6749 1 ! ; 6750 1 ! INPUT PARAMETERS: ; 6751 1 ! ; 6752 1 ! MSG_ADDRESS - Address of the message to be output ; 6753 1 ! MSG_LENGTH - Length of the message to be output. ; 6754 1 ! ; 6755 1 ! IMPLICIT INPUTS: ; 6756 1 ! ; 6757 1 ! None. ; 6758 1 ! ; 6759 1 ! OUTPUT PARAMETERS: ; 6760 1 ! ; 6761 1 ! None. ; 6762 1 ! ; 6763 1 ! IMPLICIT OUTPUTS: ; 6764 1 ! ; 6765 1 ! None. ; 6766 1 ! ; 6767 1 ! COMPLETION CODES: ; 6768 1 ! ; 6769 1 ! None. ; 6770 1 ! ; 6771 1 ! SIDE EFFECTS: ; 6772 1 ! ; 6773 1 ! None. ; 6774 1 ! ; 6775 1 !-- ; 6776 1 ; 6777 2 BEGIN ; 6778 2 ; 6779 2 MAP ; 6780 2 MSG_ADDRESS : REF VECTOR [CH$ALLOCATION (MAX_MSG, CHR_SIZE)]; ! Point to the vector ; 6781 2 ; 6782 2 LOCAL ; 6783 2 OLD_RTN, ! Old type out routine ; 6784 2 CHKSUM, ! Numeric value of block check ; 6785 2 TEMP_POINTER, ! Temporary character pointer ; 6786 2 MSG_MSG, ! [108] ! Starting point for data ; 6787 2 MSG_LEN; ; 6788 2 ; 6789 2 ! ; 6790 2 ! Message type text ; 6791 2 ! ; 6792 2 ; 6793 2 BIND ; 6794 2 DATA_TEXT = UPLIT (%ASCIZ' (Data)'), ; 6795 2 ACK_TEXT = UPLIT (%ASCIZ' (ACK)'), ; 6796 2 NAK_TEXT = UPLIT (%ASCIZ' (NAK)'), ; 6797 2 SND_INIT_TEXT = UPLIT (%ASCIZ' (Send init)'), ; 6798 2 BREAK_TEXT = UPLIT (%ASCIZ' (Break)'), ; 6799 2 TEXT_TEXT = UPLIT (%ASCIZ' (Text header)'), ; 6800 2 FILE_TEXT = UPLIT (%ASCIZ' (File header)'), ; 6801 2 EOF_TEXT = UPLIT (%ASCIZ' (EOF)'), ; 6802 2 ERROR_TEXT = UPLIT (%ASCIZ' (Error)'), ; 6803 2 RCV_INIT_TEXT = UPLIT (%ASCIZ' (Receive initiate)'), ; 6804 2 COMMAND_TEXT = UPLIT (%ASCIZ' (Command)'), ; 6805 2 KERMIT_TEXT = UPLIT (%ASCIZ' (Generic KERMIT command)'); ; 6806 2 ; 6807 2 ! ; 6808 2 ! Header information ; 6809 2 ! ; 6810 2 ; 6811 2 BIND ; 6812 2 MN_TEXT = UPLIT (%ASCIZ'Message number: '), ; 6813 2 LENGTH_TEXT = UPLIT (%ASCIZ' Length: '), ; 6814 2 DEC_TEXT = UPLIT (%ASCIZ' (dec)'), ; 6815 2 MSG_TYP_TEXT = UPLIT (%ASCIZ'Message type: '), ; 6816 2 CHKSUM_TEXT = UPLIT (%ASCIZ'Checksum: '), ; 6817 2 CHKSUM_NUM_TEXT = UPLIT (%ASCIZ' = '), ; 6818 2 OPT_DATA_TEXT = UPLIT (%ASCIZ'Optional data: '), ; 6819 2 PRE_CHAR_TEXT = UPLIT (%ASCIZ' "'); ; 6820 2 ; 6821 2 ! ; 6822 2 ! Ensure that the type out will go to the debugging location ; 6823 2 ! ; 6824 2 OLD_RTN = TT_SET_OUTPUT (DBG_DUMP); ; 6825 2 ! ; 6826 2 ! Preliminary calculations ; 6827 2 ! ; 6828 2 MSG_LEN = UNCHAR (CH$RCHAR (CH$PTR (.MSG_ADDRESS, PKT_COUNT, CHR_SIZE))); ; 6829 2 MSG_MSG = PKT_MSG; ! [108] ; 6830 2 IF .MSG_LEN EQL 0 ! [108] ; 6831 2 THEN ! [108] ; 6832 3 BEGIN ! [108] ; 6833 3 MSG_LEN = UNCHAR (CH$RCHAR (CH$PTR (.MSG_ADDRESS, PKT_COUNTX1, CHR_SIZE))) * 95 ; 6834 3 + ; 6835 3 UNCHAR (CH$RCHAR (CH$PTR (.MSG_ADDRESS, PKT_COUNTX2, CHR_SIZE))) + ; 6836 3 PKT_HCHECK - 1; ! [108] ; 6837 3 MSG_MSG = PKT_MSGX; ! [108] ; 6838 2 END; ! [108] ; 6839 2 ; 6840 2 ! ; 6841 2 ! First output some header information for the packet. ; 6842 2 ! ; 6843 2 TT_CRLF (); ; 6844 2 TT_TEXT (MN_TEXT); ; 6845 2 TT_NUMBER (UNCHAR (CH$RCHAR (CH$PTR (.MSG_ADDRESS, PKT_SEQ, CHR_SIZE)))); ; 6846 2 TT_TEXT (DEC_TEXT); ; 6847 2 TT_TEXT (LENGTH_TEXT); ; 6848 2 TT_NUMBER (.MSG_LEN); ; 6849 2 TT_TEXT (DEC_TEXT); ; 6850 2 TT_CRLF (); ; 6851 2 ! ; 6852 2 ! Now output the message type and dependent information ; 6853 2 ! ; 6854 2 TT_TEXT (MSG_TYP_TEXT); ; 6855 2 TT_CHAR (CH$RCHAR (CH$PTR (.MSG_ADDRESS, PKT_TYPE, CHR_SIZE))); ; 6856 2 ; 6857 2 SELECTONE CH$RCHAR (CH$PTR (.MSG_ADDRESS, PKT_TYPE, CHR_SIZE)) OF ; 6858 2 SET ; 6859 2 ; 6860 2 [MSG_DATA] : ; 6861 2 TT_TEXT (DATA_TEXT); ; 6862 2 ; 6863 2 [MSG_ACK] : ; 6864 2 TT_TEXT (ACK_TEXT); ; 6865 2 ; 6866 2 [MSG_NAK] : ; 6867 2 TT_TEXT (NAK_TEXT); ; 6868 2 ; 6869 2 [MSG_SND_INIT] : ; 6870 2 TT_TEXT (SND_INIT_TEXT); ; 6871 2 ; 6872 2 [MSG_BREAK] : ; 6873 2 TT_TEXT (BREAK_TEXT); ; 6874 2 ; 6875 2 [MSG_FILE] : ; 6876 2 TT_TEXT (FILE_TEXT); ; 6877 2 ; 6878 2 [MSG_TEXT] : ; 6879 2 TT_TEXT (TEXT_TEXT); ; 6880 2 ; 6881 2 [MSG_EOF] : ; 6882 2 TT_TEXT (EOF_TEXT); ; 6883 2 ; 6884 2 [MSG_ERROR] : ; 6885 2 TT_TEXT (ERROR_TEXT); ; 6886 2 ; 6887 2 [MSG_GENERIC] : ; 6888 2 TT_TEXT (KERMIT_TEXT); ; 6889 2 ; 6890 2 [MSG_COMMAND] : ; 6891 2 TT_TEXT (COMMAND_TEXT); ; 6892 2 TES; ; 6893 2 ; 6894 2 TT_CRLF (); ; 6895 2 ! ; 6896 2 ! Now output any of the optional data. ; 6897 2 ! ; 6898 2 ; 6899 2 IF .MSG_LEN - .MSG_MSG + 1 - (.BLK_CHK_TYPE - CHK_1CHAR) NEQ 0 ! [108] ; 6900 2 THEN ; 6901 3 BEGIN ; 6902 3 TT_TEXT (OPT_DATA_TEXT); ; 6903 3 TT_CRLF (); ; 6904 3 TEMP_POINTER = CH$PTR (.MSG_ADDRESS, .MSG_MSG, CHR_SIZE); ! [108] ; 6905 3 ; 6906 3 INCR I FROM 1 TO .MSG_LEN - .MSG_MSG + 1 - (.BLK_CHK_TYPE - CHK_1CHAR) DO ! [108] ; 6907 4 BEGIN ; 6908 4 ; 6909 4 IF (.I MOD 10) EQL 1 ; 6910 4 THEN ; 6911 5 BEGIN ; 6912 5 TT_CRLF (); ; 6913 5 TT_CHAR (CHR_TAB); ; 6914 4 END; ; 6915 4 ; 6916 4 TT_TEXT (PRE_CHAR_TEXT); ; 6917 4 TT_CHAR (CH$RCHAR_A (TEMP_POINTER)); ; 6918 4 TT_CHAR (%C'"'); ; 6919 3 END; ; 6920 3 ; 6921 3 IF ((.MSG_LEN - .MSG_MSG + 1 - (.BLK_CHK_TYPE - CHK_1CHAR)) MOD 10) EQL 1 THEN ; 6922 3 TT_CRLF (); ! [108] ; 6923 3 ; 6924 3 TT_CRLF (); ; 6925 2 END; ; 6926 2 ; 6927 2 ! ; 6928 2 ! Now output the checksum for the message that we received ; 6929 2 ! ; 6930 2 ! This could be either 1 two or three characters. ; 6931 2 TT_TEXT (CHKSUM_TEXT); ; 6932 2 TEMP_POINTER = CH$PTR (.MSG_ADDRESS, ; 6933 2 .MSG_LEN + PKT_CHKSUM + 1 - (.BLK_CHK_TYPE - CHK_1CHAR), CHR_SIZE); ! [108] ; 6934 2 ; 6935 2 CASE .BLK_CHK_TYPE FROM CHK_1CHAR TO CHK_CRC OF ; 6936 2 SET ; 6937 2 ; 6938 2 [CHK_1CHAR] : ; 6939 3 BEGIN ; 6940 3 TT_TEXT (PRE_CHAR_TEXT); ; 6941 3 TT_CHAR (CH$RCHAR (.TEMP_POINTER)); ; 6942 3 TT_CHAR (%C'"'); ; 6943 3 CHKSUM = UNCHAR (CH$RCHAR (.TEMP_POINTER)); ; 6944 2 END; ; 6945 2 ; 6946 2 [CHK_2CHAR] : ; 6947 3 BEGIN ; 6948 3 CHKSUM = 0; ; 6949 3 TT_TEXT (PRE_CHAR_TEXT); ; 6950 3 TT_CHAR (CH$RCHAR (.TEMP_POINTER)); ; 6951 3 TT_CHAR (%C'"'); ; 6952 3 CHKSUM<6, 6> = UNCHAR (CH$RCHAR_A (TEMP_POINTER)); ; 6953 3 TT_TEXT (PRE_CHAR_TEXT); ; 6954 3 TT_CHAR (CH$RCHAR (.TEMP_POINTER)); ; 6955 3 TT_CHAR (%C'"'); ; 6956 3 CHKSUM<0, 6> = UNCHAR (CH$RCHAR (.TEMP_POINTER)); ; 6957 2 END; ; 6958 2 ; 6959 2 [CHK_CRC] : ; 6960 3 BEGIN ; 6961 3 CHKSUM = 0; ; 6962 3 TT_TEXT (PRE_CHAR_TEXT); ; 6963 3 TT_CHAR (CH$RCHAR (.TEMP_POINTER)); ; 6964 3 TT_CHAR (%C'"'); ; 6965 3 CHKSUM<12, 4> = UNCHAR (CH$RCHAR_A (TEMP_POINTER)); ; 6966 3 TT_TEXT (PRE_CHAR_TEXT); ; 6967 3 TT_CHAR (CH$RCHAR (.TEMP_POINTER)); ; 6968 3 TT_CHAR (%C'"'); ; 6969 3 CHKSUM<6, 6> = UNCHAR (CH$RCHAR_A (TEMP_POINTER)); ; 6970 3 TT_TEXT (PRE_CHAR_TEXT); ; 6971 3 TT_CHAR (CH$RCHAR (.TEMP_POINTER)); ; 6972 3 TT_CHAR (%C'"'); ; 6973 3 CHKSUM<0, 6> = UNCHAR (CH$RCHAR (.TEMP_POINTER)); ; 6974 2 END; ; 6975 2 TES; ; 6976 2 ; 6977 2 TT_TEXT (CHKSUM_NUM_TEXT); ; 6978 2 TT_NUMBER (.CHKSUM); ; 6979 2 TT_TEXT (DEC_TEXT); ; 6980 2 TT_CRLF (); ; 6981 2 TT_SET_OUTPUT (.OLD_RTN); ! Reset output destination ; 6982 1 END; ! End of DBG_MESSAGE .PSECT $PLIT$,NOWRT,NOEXE,2 P.ABH: .ASCII \ (Data)\<0> ; 00 29 61 74 61 44 28 20 00254 P.ABI: .ASCII \ (ACK)\<0><0> ; 00 00 29 4B 43 41 28 20 0025C P.ABJ: .ASCII \ (NAK)\<0><0> ; 00 00 29 4B 41 4E 28 20 00264 P.ABK: .ASCII \ (Send init)\<0><0><0><0> ; 69 20 64 6E 65 53 28 20 0026C ; 00 00 00 00 29 74 69 6E 00274 P.ABL: .ASCII \ (Break)\<0><0><0><0> ; 29 6B 61 65 72 42 28 20 0027C ; 00 00 00 00 00284 P.ABM: .ASCII \ (Text header)\<0><0> ; 68 20 74 78 65 54 28 20 00288 ; 00 00 29 72 65 64 61 65 00290 P.ABN: .ASCII \ (File header)\<0><0> ; 68 20 65 6C 69 46 28 20 00298 ; 00 00 29 72 65 64 61 65 002A0 P.ABO: .ASCII \ (EOF)\<0><0> ; 00 00 29 46 4F 45 28 20 002A8 P.ABP: .ASCII \ (Error)\<0><0><0><0> ; 29 72 6F 72 72 45 28 20 002B0 ; 00 00 00 00 002B8 P.ABQ: .ASCII \ (Receive initiate)\<0> ; 76 69 65 63 65 52 28 20 002BC ; 61 69 74 69 6E 69 20 65 002C4 ; 00 29 65 74 002CC P.ABR: .ASCII \ (Command)\<0><0> ; 6E 61 6D 6D 6F 43 28 20 002D0 ; 00 00 29 64 002D8 P.ABS: .ASCII \ (Generic KERMIT command)\<0><0><0> ; 69 72 65 6E 65 47 28 20 002DC ; 54 49 4D 52 45 4B 20 63 002E4 ; 64 6E 61 6D 6D 6F 63 20 002EC ; 00 00 00 29 002F4 P.ABT: .ASCII \Message number: \<0><0><0><0> ; 20 65 67 61 73 73 65 4D 002F8 ; 20 3A 72 65 62 6D 75 6E 00300 ; 00 00 00 00 00308 P.ABU: .ASCII <9>\Length: \<0><0><0> ; 3A 68 74 67 6E 65 4C 09 0030C ; 00 00 00 20 00314 P.ABV: .ASCII \ (dec)\<0><0> ; 00 00 29 63 65 64 28 20 00318 P.ABW: .ASCII \Message type: \<0><0> ; 20 65 67 61 73 73 65 4D 00320 ; 00 00 20 3A 65 70 79 74 00328 P.ABX: .ASCII \Checksum: \<0><0> ; 6D 75 73 6B 63 65 68 43 00330 ; 00 00 20 3A 00338 P.ABY: .ASCII \ = \<0> ; 00 20 3D 20 0033C P.ABZ: .ASCII \Optional data: \<0> ; 6C 61 6E 6F 69 74 70 4F 00340 ; 00 20 3A 61 74 61 64 20 00348 P.ACA: .ASCII \ "\<0><0> ; 00 00 22 20 00350 U.105= P.ABH U.106= P.ABI U.107= P.ABJ U.108= P.ABK U.109= P.ABL U.110= P.ABM U.111= P.ABN U.112= P.ABO U.113= P.ABP U.114= P.ABQ U.115= P.ABR U.116= P.ABS U.117= P.ABT U.118= P.ABU U.119= P.ABV U.120= P.ABW U.121= P.ABX U.122= P.ABY U.123= P.ABZ U.124= P.ACA .PSECT $CODE$,NOWRT,2 ;DBG_MESSAGE U.34: .WORD ^M<R2,R3,R4,R5,R6,R7,R8,R9,R10,- ;Save R2,R3,R4,R5,R6,R7,R8,R9,R10,- 6738 0FFC 00000 R11> ;R11 MOVAB G^TT_CHAR, R11 ;TT_CHAR, R11 5B 00000000G 00 9E 00002 MOVAB G^TT_TEXT, R10 ;TT_TEXT, R10 5A 00000000G 00 9E 00009 MOVAB G^U.124, R9 ;U.124, R9 59 00000000' 00 9E 00010 PUSHAB G^DBG_DUMP ;DBG_DUMP 6824 00000000G 00 9F 00017 CALLS #1, G^TT_SET_OUTPUT ;#1, TT_SET_OUTPUT 00000000G 00 01 FB 0001D MOVL R0, R8 ;R0, OLD_RTN 58 50 D0 00024 MOVL 4(AP), R4 ;MSG_ADDRESS, R4 6828 54 04 AC D0 00027 MOVZBL 1(R4), R2 ;1(R4), MSG_LEN 52 01 A4 9A 0002B SUBL2 #32, R2 ;#32, MSG_LEN 52 20 C2 0002F MOVL #4, R5 ;#4, MSG_MSG 6829 55 04 D0 00032 TSTL R2 ;MSG_LEN 6830 52 D5 00035 BNEQ 1$ ;1$ 18 12 00037 MOVZBL 4(R4), R0 ;4(R4), R0 6833 50 04 A4 9A 00039 MULL2 #95, R0 ;#95, R0 50 0000005F 8F C4 0003D MOVZBL 5(R4), R1 ;5(R4), R1 6835 51 05 A4 9A 00044 MOVAB -3067(R1)[R0], R2 ;-3067(R1)[R0], MSG_LEN 6836 52 F405 C140 9E 00048 MOVL #7, R5 ;#7, MSG_MSG 6837 55 07 D0 0004E 1$: CALLS #0, G^TT_CRLF ;#0, TT_CRLF 6843 00000000G 00 00 FB 00051 PUSHAB -88(R9) ;MN_TEXT 6844 A8 A9 9F 00058 CALLS #1, (R10) ;#1, TT_TEXT 6A 01 FB 0005B MOVZBL 2(R4), -(SP) ;2(R4), -(SP) 6845 7E 02 A4 9A 0005E SUBL2 #32, (SP) ;#32, (SP) 6E 20 C2 00062 CALLS #1, G^TT_NUMBER ;#1, TT_NUMBER 00000000G 00 01 FB 00065 PUSHAB -56(R9) ;DEC_TEXT 6846 C8 A9 9F 0006C CALLS #1, (R10) ;#1, TT_TEXT 6A 01 FB 0006F PUSHAB -68(R9) ;LENGTH_TEXT 6847 BC A9 9F 00072 CALLS #1, (R10) ;#1, TT_TEXT 6A 01 FB 00075 PUSHL R2 ;MSG_LEN 6848 52 DD 00078 CALLS #1, G^TT_NUMBER ;#1, TT_NUMBER 00000000G 00 01 FB 0007A PUSHAB -56(R9) ;DEC_TEXT 6849 C8 A9 9F 00081 CALLS #1, (R10) ;#1, TT_TEXT 6A 01 FB 00084 CALLS #0, G^TT_CRLF ;#0, TT_CRLF 6850 00000000G 00 00 FB 00087 PUSHAB -48(R9) ;MSG_TYP_TEXT 6854 D0 A9 9F 0008E CALLS #1, (R10) ;#1, TT_TEXT 6A 01 FB 00091 MOVZBL 3(R4), R3 ;3(R4), R3 6855 53 03 A4 9A 00094 PUSHL R3 ;R3 53 DD 00098 CALLS #1, (R11) ;#1, TT_CHAR 6B 01 FB 0009A CMPB R3, #68 ;R3, #68 6860 44 8F 53 91 0009D BNEQ 2$ ;2$ 06 12 000A1 PUSHAB -252(R9) ;DATA_TEXT 6861 FF04 C9 9F 000A3 BRB 12$ ;12$ 74 11 000A7 2$: CMPB R3, #89 ;R3, #89 6863 59 8F 53 91 000A9 BNEQ 3$ ;3$ 06 12 000AD PUSHAB -244(R9) ;ACK_TEXT 6864 FF0C C9 9F 000AF BRB 12$ ;12$ 68 11 000B3 3$: CMPB R3, #78 ;R3, #78 6866 4E 8F 53 91 000B5 BNEQ 4$ ;4$ 06 12 000B9 PUSHAB -236(R9) ;NAK_TEXT 6867 FF14 C9 9F 000BB BRB 12$ ;12$ 5C 11 000BF 4$: CMPB R3, #83 ;R3, #83 6869 53 8F 53 91 000C1 BNEQ 5$ ;5$ 06 12 000C5 PUSHAB -228(R9) ;SND_INIT_TEXT 6870 FF1C C9 9F 000C7 BRB 12$ ;12$ 50 11 000CB 5$: CMPB R3, #66 ;R3, #66 6872 42 8F 53 91 000CD BNEQ 6$ ;6$ 06 12 000D1 PUSHAB -212(R9) ;BREAK_TEXT 6873 FF2C C9 9F 000D3 BRB 12$ ;12$ 44 11 000D7 6$: CMPB R3, #70 ;R3, #70 6875 46 8F 53 91 000D9 BNEQ 7$ ;7$ 06 12 000DD PUSHAB -184(R9) ;FILE_TEXT 6876 FF48 C9 9F 000DF BRB 12$ ;12$ 38 11 000E3 7$: CMPB R3, #88 ;R3, #88 6878 58 8F 53 91 000E5 BNEQ 8$ ;8$ 06 12 000E9 PUSHAB -200(R9) ;TEXT_TEXT 6879 FF38 C9 9F 000EB BRB 12$ ;12$ 2C 11 000EF 8$: CMPB R3, #90 ;R3, #90 6881 5A 8F 53 91 000F1 BNEQ 9$ ;9$ 06 12 000F5 PUSHAB -168(R9) ;EOF_TEXT 6882 FF58 C9 9F 000F7 BRB 12$ ;12$ 20 11 000FB 9$: CMPB R3, #69 ;R3, #69 6884 45 8F 53 91 000FD BNEQ 10$ ;10$ 06 12 00101 PUSHAB -160(R9) ;ERROR_TEXT 6885 FF60 C9 9F 00103 BRB 12$ ;12$ 14 11 00107 10$: CMPB R3, #71 ;R3, #71 6887 47 8F 53 91 00109 BNEQ 11$ ;11$ 05 12 0010D PUSHAB -116(R9) ;KERMIT_TEXT 6888 8C A9 9F 0010F BRB 12$ ;12$ 09 11 00112 11$: CMPB R3, #67 ;R3, #67 6890 43 8F 53 91 00114 BNEQ 13$ ;13$ 06 12 00118 PUSHAB -128(R9) ;COMMAND_TEXT 6891 80 A9 9F 0011A 12$: CALLS #1, (R10) ;#1, TT_TEXT 6A 01 FB 0011D 13$: CALLS #0, G^TT_CRLF ;#0, TT_CRLF 6894 00000000G 00 00 FB 00120 SUBL3 R5, R2, R0 ;MSG_MSG, MSG_LEN, R0 6899 52 55 C3 00127 ; 50 0012A MOVAB 1(R0), R6 ;1(R0), R6 56 01 A0 9E 0012B SUBL3 #49, G^U.48, R0 ;#49, U.48, R0 00000000' 00 31 C3 0012F ; 50 00136 CMPL R6, R0 ;R6, R0 50 56 D1 00137 BEQL 18$ ;18$ 75 13 0013A PUSHAB -16(R9) ;OPT_DATA_TEXT 6902 F0 A9 9F 0013C CALLS #1, (R10) ;#1, TT_TEXT 6A 01 FB 0013F CALLS #0, G^TT_CRLF ;#0, TT_CRLF 6903 00000000G 00 00 FB 00142 ADDL3 R5, R4, R3 ;MSG_MSG, R4, TEMP_POINTER 6904 54 55 C1 00149 ; 53 0014C SUBL3 G^U.48, R6, R0 ;U.48, R6, R0 6906 56 00000000' 00 C3 0014D ; 50 00154 MOVAB 49(R0), R7 ;49(R0), R7 57 31 A0 9E 00155 CLRL R5 ;I 55 D4 00159 BRB 16$ ;16$ 2B 11 0015B 14$: EMUL #1, R5, #0, -(SP) ;#1, I, #0, -(SP) 6909 55 01 7A 0015D ; 7E 00 00160 EDIV #10, (SP)+, R0, R0 ;#10, (SP)+, R0, R0 8E 0A 7B 00162 ; 50 50 00165 CMPL R0, #1 ;R0, #1 01 50 D1 00167 BNEQ 15$ ;15$ 0C 12 0016A CALLS #0, G^TT_CRLF ;#0, TT_CRLF 6912 00000000G 00 00 FB 0016C PUSHL #9 ;#9 6913 09 DD 00173 CALLS #1, (R11) ;#1, TT_CHAR 6B 01 FB 00175 15$: PUSHL R9 ;R9 6916 59 DD 00178 CALLS #1, (R10) ;#1, TT_TEXT 6A 01 FB 0017A MOVZBL (R3)+, -(SP) ;(TEMP_POINTER)+, -(SP) 6917 7E 83 9A 0017D CALLS #1, (R11) ;#1, TT_CHAR 6B 01 FB 00180 PUSHL #34 ;#34 6918 22 DD 00183 CALLS #1, (R11) ;#1, TT_CHAR 6B 01 FB 00185 16$: AOBLEQ R7, R5, 14$ ;R7, I, 14$ 55 57 F3 00188 ; D1 0018B SUBL3 G^U.48, R6, R0 ;U.48, R6, R0 6921 56 00000000' 00 C3 0018C ; 50 00193 EMUL #1, R0, #49, -(SP) ;#1, R0, #49, -(SP) 50 01 7A 00194 ; 7E 31 00197 EDIV #10, (SP)+, R0, R0 ;#10, (SP)+, R0, R0 8E 0A 7B 00199 ; 50 50 0019C CMPL R0, #1 ;R0, #1 01 50 D1 0019E BNEQ 17$ ;17$ 07 12 001A1 CALLS #0, G^TT_CRLF ;#0, TT_CRLF 6922 00000000G 00 00 FB 001A3 17$: CALLS #0, G^TT_CRLF ;#0, TT_CRLF 6924 00000000G 00 00 FB 001AA 18$: PUSHAB -32(R9) ;CHKSUM_TEXT 6931 E0 A9 9F 001B1 CALLS #1, (R10) ;#1, TT_TEXT 6A 01 FB 001B4 MOVL G^U.48, R0 ;U.48, R0 6933 50 00000000' 00 D0 001B7 SUBL2 R0, R2 ;R0, R2 52 50 C2 001BE MOVAB 50(R2)[R4], R3 ;50(R2)[R4], TEMP_POINTER 53 32 A244 9E 001C1 CASEL R0, #49, #2 ;R0, #49, #2 6935 31 50 CF 001C6 ; 02 001C9 19$: .WORD 20$-19$,- ;20$-19$,- 001E 0006 001CA 21$-19$,- ;21$-19$,- 0022 001CE 22$-19$ ;22$-19$ 20$: PUSHL R9 ;R9 6940 59 DD 001D0 CALLS #1, (R10) ;#1, TT_TEXT 6A 01 FB 001D2 MOVZBL (R3), -(SP) ;(TEMP_POINTER), -(SP) 6941 7E 63 9A 001D5 CALLS #1, (R11) ;#1, TT_CHAR 6B 01 FB 001D8 PUSHL #34 ;#34 6942 22 DD 001DB CALLS #1, (R11) ;#1, TT_CHAR 6B 01 FB 001DD MOVZBL (R3), R2 ;(TEMP_POINTER), CHKSUM 6943 52 63 9A 001E0 SUBL2 #32, R2 ;#32, CHKSUM 52 20 C2 001E3 BRB 24$ ;24$ 59 11 001E6 21$: CLRL R2 ;CHKSUM 6948 52 D4 001E8 BRB 23$ ;23$ 6949 1E 11 001EA 22$: CLRL R2 ;CHKSUM 6961 52 D4 001EC PUSHL R9 ;R9 6962 59 DD 001EE CALLS #1, (R10) ;#1, TT_TEXT 6A 01 FB 001F0 MOVZBL (R3), -(SP) ;(TEMP_POINTER), -(SP) 6963 7E 63 9A 001F3 CALLS #1, (R11) ;#1, TT_CHAR 6B 01 FB 001F6 PUSHL #34 ;#34 6964 22 DD 001F9 CALLS #1, (R11) ;#1, TT_CHAR 6B 01 FB 001FB MOVZBL (R3)+, R0 ;(TEMP_POINTER)+, R0 6965 50 83 9A 001FE MOVAB -32(R0), R1 ;-32(R0), R1 51 E0 A0 9E 00201 INSV R1, #12, #4, R2 ;R1, #12, #4, CHKSUM 0C 51 F0 00205 ; 52 04 00208 23$: PUSHL R9 ;R9 6966 59 DD 0020A CALLS #1, (R10) ;#1, TT_TEXT 6A 01 FB 0020C MOVZBL (R3), -(SP) ;(TEMP_POINTER), -(SP) 6967 7E 63 9A 0020F CALLS #1, (R11) ;#1, TT_CHAR 6B 01 FB 00212 PUSHL #34 ;#34 6968 22 DD 00215 CALLS #1, (R11) ;#1, TT_CHAR 6B 01 FB 00217 MOVZBL (R3)+, R0 ;(TEMP_POINTER)+, R0 6969 50 83 9A 0021A MOVAB -32(R0), R1 ;-32(R0), R1 51 E0 A0 9E 0021D INSV R1, #6, #6, R2 ;R1, #6, #6, CHKSUM 06 51 F0 00221 ; 52 06 00224 PUSHL R9 ;R9 6970 59 DD 00226 CALLS #1, (R10) ;#1, TT_TEXT 6A 01 FB 00228 MOVZBL (R3), -(SP) ;(TEMP_POINTER), -(SP) 6971 7E 63 9A 0022B CALLS #1, (R11) ;#1, TT_CHAR 6B 01 FB 0022E PUSHL #34 ;#34 6972 22 DD 00231 CALLS #1, (R11) ;#1, TT_CHAR 6B 01 FB 00233 MOVZBL (R3), R0 ;(TEMP_POINTER), R0 6973 50 63 9A 00236 SUBL2 #32, R0 ;#32, R0 50 20 C2 00239 INSV R0, #0, #6, R2 ;R0, #0, #6, CHKSUM 00 50 F0 0023C ; 52 06 0023F 24$: PUSHAB -20(R9) ;CHKSUM_NUM_TEXT 6977 EC A9 9F 00241 CALLS #1, (R10) ;#1, TT_TEXT 6A 01 FB 00244 PUSHL R2 ;CHKSUM 6978 52 DD 00247 CALLS #1, G^TT_NUMBER ;#1, TT_NUMBER 00000000G 00 01 FB 00249 PUSHAB -56(R9) ;DEC_TEXT 6979 C8 A9 9F 00250 CALLS #1, (R10) ;#1, TT_TEXT 6A 01 FB 00253 CALLS #0, G^TT_CRLF ;#0, TT_CRLF 6980 00000000G 00 00 FB 00256 PUSHL R8 ;OLD_RTN 6981 58 DD 0025D CALLS #1, G^TT_SET_OUTPUT ;#1, TT_SET_OUTPUT 00000000G 00 01 FB 0025F RET ; 6982 04 00266 ; Routine Size: 615 bytes, Routine Base: $CODE$ + 2A19 ; 6983 1 %SBTTL 'End of KERMSG' ; 6984 1 END ; 6985 1 ; 6986 0 ELUDOM ; PSECT SUMMARY ; ; Name Bytes Attributes ; ; $OWN$ 2216 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) ; $GLOBAL$ 4 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) ; $CODE$ 11392 NOVEC,NOWRT, RD , EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) ; . ABS . 0 NOVEC,NOWRT,NORD ,NOEXE,NOSHR, LCL, ABS, CON,NOPIC,ALIGN(0) ; $PLIT$ 852 NOVEC,NOWRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) ; Library Statistics ; ; -------- Symbols -------- Pages Processing ; File Total Loaded Percent Mapped Time ; ; SYS$COMMON:[SYSLIB]STARLET.L32;2 12540 4 0 721 00:00.3 ; COMMAND QUALIFIERS ; BLI VMSMSG/LIS/SOURCE:NOHEAD/MACH=(ASSEM,UNIQUE) ; Compilation Complete .END