; 0001 0 %TITLE 'KERMSG - Kermit message processing' ; 0002 0 MODULE KERMSG (IDENT = '3.0.041' ; 0003 0 ) = ; 0004 1 BEGIN ; 0005 1 ; 0006 1 SWITCHES LANGUAGE (COMMON); ; 0007 1 ; 0008 1 ! ; 0009 1 ; 0010 1 !++ ; 0011 1 ! FACILITY: ; 0012 1 ! Kermit-10, VMS Kermit, Pro/Kermit ; 0013 1 ! ; 0014 1 ! ABSTRACT: ; 0015 1 ! KERMSG is the message processing routines for Kermit-10, VMS Kermit, ; 0016 1 ! and PRO/Kermit. ; 0017 1 ! This module is written in common BLISS, so that it can be ; 0018 1 ! transported for the DECsystem-10 and VAX/VMS systems. ; 0019 1 ! ; 0020 1 ! ENVIRONMENT: ; 0021 1 ! User mode ; 0022 1 ! ; 0023 1 ! AUTHOR: Robert C. McQueen, CREATION DATE: 24-January-1983 ; 0024 1 ! ; 0025 1 ! MODIFIED BY: ; 0026 1 ! ; 0027 1 !-- ; 0028 1 ; 0029 1 %SBTTL 'Table of Contents' ; 0030 1 !+ ; 0031 1 !.pag.lit ; 0032 1 ! Table of Contents for KERMSG ; 0033 1 ! ; 0034 1 ! ; 0035 1 ! Section Page ; 0036 1 ! 1. Revision History . . . . . . . . . . . . . . . . . . . 3 ; 0037 1 ! 2. Interface requirements . . . . . . . . . . . . . . . . 4 ; 0038 1 ! 3. Declarations ; 0039 1 ! 3.1. Forward definitions . . . . . . . . . . . . . 5 ; 0040 1 ! 4. Require files. . . . . . . . . . . . . . . . . . . . . 28 ; 0041 1 ! 5. Macro definitions. . . . . . . . . . . . . . . . . . . 29 ; 0042 1 ! 6. KERMIT Protocol Definitions. . . . . . . . . . . . . . 30 ; 0043 1 ! 6.1. Packet offsets. . . . . . . . . . . . . . . . 31 ; 0044 1 ! 6.2. Message dependent field . . . . . . . . . . . 32 ; 0045 1 ! 6.3. SEND initiate packet. . . . . . . . . . . . . 33 ; 0046 1 ! 7. KERMIT Protocol States . . . . . . . . . . . . . . . . 34 ; 0047 1 ! 8. Internal constants . . . . . . . . . . . . . . . . . . 35 ; 0048 1 ! 9. Storage - External . . . . . . . . . . . . . . . . . . 36 ; 0049 1 ! 10. Storage - Local. . . . . . . . . . . . . . . . . . . . 37 ; 0050 1 ! 11. External references. . . . . . . . . . . . . . . . . . 38 ; 0051 1 ! 12. MSG_INIT . . . . . . . . . . . . . . . . . . . . . . . 39 ; 0052 1 ! 13. SND_ERROR. . . . . . . . . . . . . . . . . . . . . . . 40 ; 0053 1 ! 14. SERVER - Server mode . . . . . . . . . . . . . . . . . 41 ; 0054 1 ! 15. SEND_SWITCH. . . . . . . . . . . . . . . . . . . . . . 42 ; 0055 1 ! 16. REC_SWITCH . . . . . . . . . . . . . . . . . . . . . . 43 ; 0056 1 ! 17. Server ; 0057 1 ! 17.1. DO_GENERIC - Execute a generic command. . . . 44 ; 0058 1 ! 18. DO_TRANSACTION - Main loop for FSM . . . . . . . . . . 45 ; 0059 1 ! 19. REC_SERVER_IDLE - Idle server state. . . . . . . . . . 46 ; 0060 1 ! 20. SEND_SERVER_INIT . . . . . . . . . . . . . . . . . . . 47 ; 0061 1 ! 21. SEND_DATA. . . . . . . . . . . . . . . . . . . . . . . 48 ; 0062 1 ! 22. SEND_FILE. . . . . . . . . . . . . . . . . . . . . . . 49 ; 0063 1 ! 23. SEND_EOF . . . . . . . . . . . . . . . . . . . . . . . 50 ; 0064 1 ! 24. SEND_INIT. . . . . . . . . . . . . . . . . . . . . . . 51 ; 0065 1 ! 25. SEND_OPEN_FILE - Open file for sending . . . . . . . . 52 ; 0066 1 ! 26. SEND_GENCMD. . . . . . . . . . . . . . . . . . . . . . 53 ; 0067 1 ! 27. SEND_BREAK . . . . . . . . . . . . . . . . . . . . . . 54 ; 0068 1 ! 28. REC_INIT . . . . . . . . . . . . . . . . . . . . . . . 55 ; 0069 1 ! 29. REC_FILE . . . . . . . . . . . . . . . . . . . . . . . 56 ; 0070 1 ! 30. REC_DATA . . . . . . . . . . . . . . . . . . . . . . . 57 ; 0071 1 ! 31. SERVER - Generic commands. . . . . . . . . . . . . . . 58 ; 0072 1 ! 32. HOST_COMMAND - perform a host command. . . . . . . . . 59 ; 0073 1 ! 33. CALL_SY_RTN - handle operating system dependent functions 60 ; 0074 1 ! 34. Message processing ; 0075 1 ! 34.1. PRS_SEND_INIT - Parse send init params. . . . 61 ; 0076 1 ! 35. SET_SEND_INIT. . . . . . . . . . . . . . . . . . . . . 62 ; 0077 1 ! 36. SEND_PACKET. . . . . . . . . . . . . . . . . . . . . . 63 ; 0078 1 ! 37. REC_MESSAGE - Receive a message. . . . . . . . . . . . 64 ; 0079 1 ! 38. REC_PACKET . . . . . . . . . . . . . . . . . . . . . . 65 ; 0080 1 ! 39. CALC_BLOCK_CHECK . . . . . . . . . . . . . . . . . . . 66 ; 0081 1 ! 40. NORMALIZE_FILE - Put file name into normal form. . . . 67 ; 0082 1 ! 41. Buffer filling ; 0083 1 ! 41.1. Main routine. . . . . . . . . . . . . . . . . 68 ; 0084 1 ! 42. BFR_EMPTY. . . . . . . . . . . . . . . . . . . . . . . 69 ; 0085 1 ! 43. Buffer filling and emptying subroutines. . . . . . . . 70 ; 0086 1 ! 44. Add parity routine . . . . . . . . . . . . . . . . . . 71 ; 0087 1 ! 45. Parity routine . . . . . . . . . . . . . . . . . . . . 72 ; 0088 1 ! 46. Per transfer ; 0089 1 ! 46.1. Initialization. . . . . . . . . . . . . . . . 73 ; 0090 1 ! 47. Statistics ; 0091 1 ! 47.1. Finish message transfer . . . . . . . . . . . 74 ; 0092 1 ! 48. Status type out ; 0093 1 ! 48.1. STS_OUTPUT. . . . . . . . . . . . . . . . . . 75 ; 0094 1 ! 49. TYPE_CHAR - Type out a character . . . . . . . . . . . 76 ; 0095 1 ! 50. Debugging ; 0096 1 ! 50.1. DBG_SEND. . . . . . . . . . . . . . . . . . . 77 ; 0097 1 ! 50.2. DBG_RECEIVE . . . . . . . . . . . . . . . . . 78 ; 0098 1 ! 50.3. DBG_MESSAGE . . . . . . . . . . . . . . . . . 79 ; 0099 1 ! 51. End of KERMSG. . . . . . . . . . . . . . . . . . . . . 80 ; 0100 1 !.end lit.pag ; 0101 1 !- ; 0102 1 %SBTTL 'Revision History' ; 0103 1 ; 0104 1 !++ ; 0105 1 ! Start of version 1. ; 0106 1 ! ; 0107 1 ! 1.0.000 By: Robert C. McQueen On: 4-Jan-1983 ; 0108 1 ! Create this program. ; 0109 1 ! ; 0110 1 ! 1.0.001 By: Robert C. McQueen On: 30-Apr-1983 ; 0111 1 ! Change PAR_xxx to be PR_xxx, so that they can be used for ; 0112 1 ! KERMIT-10. ; 0113 1 ! ; 0114 1 ! 1.0.002 By: Robert C. McQueen On: 1-May-1983 ; 0115 1 ! Add DO_GENERIC routine to cause a generic Kermit command to ; 0116 1 ! be executed on the remote Kermit. ; 0117 1 ! ; 0118 1 ! 1.0.003 By: Robert C. McQueen On: 3-May-1983 ; 0119 1 ! Fix message number incrementing. ; 0120 1 ! ; 0121 1 ! 1.0.004 By: Robert C. McQueen On: 4-May-1983 ; 0122 1 ! Allow RECEIVE file-specification to work correctly. ; 0123 1 ! ; 0124 1 ! 1.0.005 By: Robert C. McQueen On: 6-May-1983 ; 0125 1 ! Add more stats support. ; 0126 1 ! ; 0127 1 ! 1.0.006 By: Nick Bush On: 13-June-1983 ; 0128 1 ! Fix SEND_PACKET to copy correct characters when fixing ; 0129 1 ! parity bits. ; 0130 1 ! ; 0131 1 ! 1.1.007 By: Nick Bush On: 15-July-1983 ; 0132 1 ! Correct SEND-INIT message handling to do the right things ; 0133 1 ! with the protocol version 3 items. ; 0134 1 ! ; 0135 1 ! 1.1.010 By: Robert C. McQueen On: 20-July-1983 ; 0136 1 ! Make PARITY a global routine, so that it can be called by ; 0137 1 ! CONNECT processing. Change the name from PARITY to GEN_PARITY ; 0138 1 ! add a new routine to generate the parity, since it is not ; 0139 1 ! part of the checksum. ; 0140 1 ! ; 0141 1 ! 1.1.011 By: Robert C. McQueen On: 28-July-1983 ; 0142 1 ! KER_TIMEOUT errors in the SERVER loop would cause ; 0143 1 ! KER_UNISRV error messages to be returned to the remote. ; 0144 1 ! Check for receive failures and send NAKs instead. ; 0145 1 ! ; 0146 1 ! 1.2.012 By: Robert C. McQueen On: 23-August-1983 ; 0147 1 ! Don't abort if we get a message that is just an end of line ; 0148 1 ! character. It could be noise on the line. ; 0149 1 ! ; 0150 1 ! 1.2.013 By: Nick Bush On: 7-September-1983 ; 0151 1 ! Fix several problems with the SEND_xxx parameters ; 0152 1 ! ; 0153 1 ! 1.2.014 By: Robert C. McQueen On: 15-September-1983 ; 0154 1 ! Add routine calls to XFR_STATUS to tell the user on the ; 0155 1 ! number of packets have changed. ; 0156 1 ! ; 0157 1 ! 1.2.015 By: Nick Bush On: 5-October-1983 ; 0158 1 ! Add 2 and 3 character checksum (block check) support. ; 0159 1 ! Add support for data within acknowledgement packets ; 0160 1 ! and withing end-of-file packets to allow for file ; 0161 1 ! transmission to be aborted. Also add support for ; 0162 1 ! "I" packet to allow server parameters to be initialized. ; 0163 1 ! ; 0164 1 ! 1.2.016 By: Nick Bush On: 19-October-1983 ; 0165 1 ! Add repeat character support. ; 0166 1 ! ; 0167 1 ! 2.0.017 Release TOPS-10 Kermit-10 version 2.0 ; 0168 1 ! Release VAX/VMS Kermit-32 version 2.0 ; 0169 1 ! ; 0170 1 ! 2.0.018 By: Robert C. McQueen On: 16-November-1983 ; 0171 1 ! Fix four checks on the message number that were not ; 0172 1 ! mod 64. ; 0173 1 ! ; 0174 1 ! 2.0.019 By: Robert C. McQueen On: 16-November-1983 ; 0175 1 ! Remove the CLEAR routine. It is not really needed. ; 0176 1 ! ; 0177 1 ! 2.0.020 By: Nick Bush On: 12-Dec-1983 ; 0178 1 ! Fix SEND_DATA and BFR_FILL to handle empty files and ; 0179 1 ! files which happen to end just on a message boundary. ; 0180 1 ! This would sometimes produce extra nulls. ; 0181 1 ! ; 0182 1 ! 2.0.021 By: Nick Bush On: 15-Dec-1983 ; 0183 1 ! Fix some problems with REC_MESSAGE which would cause ; 0184 1 ! aborts when a message timed out. ; 0185 1 ! ; 0186 1 ! 2.0.022 By: Robert C. McQueen 19-Dec-1983 ; 0187 1 ! Make STATUS a local for most routines and remove FILE_DUMP ; 0188 1 ! as it is nolonger needed. ; 0189 1 ! ; 0190 1 ! 2.0.023 By: Nick Bush On: 3-Jan-1984 ; 0191 1 ! Change FIL_NORMAL_FORM to contain not just a flag, but ; 0192 1 ! a file name type instead. ; 0193 1 ! ; 0194 1 ! 2.0.024 By: Nick Bush On: 11-Jan-1984 ; 0195 1 ! Fix REC_MESSAGE to send NAK for packet we expect, not ; 0196 1 ! previous packet. ; 0197 1 ! ; 0198 1 ! 2.0.025 By: Nick Bush On: 23-Jan-1984 ; 0199 1 ! Re-enable server-init packet and complete code so that ; 0200 1 ! parameters set by it will remain set. ; 0201 1 ! Fix file name copying to use BFR_FILL or BFR_EMPTY ; 0202 1 ! so that all quoting/compression is done properly. ; 0203 1 ! ; 0204 1 ! 2.0.026 By: Nick Bush On: 15-Feb-1984 ; 0205 1 ! Add code for generic command support (both directions). ; 0206 1 ! There is now only one state dispatch loop, entered ; 0207 1 ! in various states for different functions. ; 0208 1 ! ; 0209 1 ! 2.0.027 By: Robert C. McQueen On: 16-Feb-1984 ; 0210 1 ! At some point SEND_TIMEOUT became global, but it was not moved ; 0211 1 ! to KERGLB. This edit moves it to KERGLB.BLI. ; 0212 1 ! ; 0213 1 ! 2.0.030 By: Nick Bush On: 2-March-1984 ; 0214 1 ! Fix BFR_FILL to handle case of last repeated character ; 0215 1 ! not fitting within a packet. It was forgetting to ; 0216 1 ! send the characters at all. ; 0217 1 ! ; 0218 1 ! 2.0.031 By: Nick Bush On: 6-March-1984 ; 0219 1 ! Make sure FILE_OPEN_FLAG is set properly when advancing ; 0220 1 ! to next file of a wild-card send. The file was not ; 0221 1 ! being set true, leading to problems after a couple files. ; 0222 1 ! ; 0223 1 ! 2.0.032 By: Nick Bush On: 9-March-1984 ; 0224 1 ! Fix UNPACK_DATA in SERVER_GENERIC to properly store ; 0225 1 ! new string pointer. ; 0226 1 ! ; 0227 1 ! 2.0.033 By: Robert C. McQueen On: 12-March-1984 ; 0228 1 ! If NEXT_FILE fails with anything other than a NOMORFILES ; 0229 1 ! it should change state to STATE_A not STATE_SB. This ; 0230 1 ! fixes a problem caused by Pro/Kermit and KERFIL (VMS). ; 0231 1 ! ; 0232 1 ! 2.0.034 By: Nick Bush On: 15-March-1984 ; 0233 1 ! Put file spec into X packet as well as F packet. This ; 0234 1 ! makes wild card TYPE's work nicer. ; 0235 1 ! ; 0236 1 ! 2.0.035 By: Nick Bush On: 20-March-1984 ; 0237 1 ! Fix send/receive quoting to conform to the way the ; 0238 1 ! protocol manual says it should be done, rather ; 0239 1 ! than the way we (and Kermit-20) have always done it. ; 0240 1 ! ; 0241 1 ! 2.0.036 By: Nick Bush On: 28-March-1984 ; 0242 1 ! Make SERVER_GENERIC more defensive against badly ; 0243 1 ! constructed packets. If an argument has negative ; 0244 1 ! length, punt the request. Also put angle brackets ; 0245 1 ! around data from "X" packet header, so file names will ; 0246 1 ! stick out. ; 0247 1 ! ; 0248 1 ! 3.0.037 Start of version 3. ; 0249 1 ! ; 0250 1 ! 3.0.040 By: Nick Bush On: 2-April-1984 ; 0251 1 ! Add separate server timeout. This allows stopping the ; 0252 1 ! server NAK's without affecting the normal packet timeout. ; 0253 1 ! ; 0254 1 ! 3.0.041 By: Nick Bush On: 12-April-1984 ; 0255 1 ! Fix block check calculation to account for the fact ; 0256 1 ! that the parity bits are put onto the message when ; 0257 1 ! it is sent (in place), so that if a retransmission is ; 0258 1 ! done without refilling the buffer (as is normal with ; 0259 1 ! data messages), the parity bits will be there. Make ; 0260 1 ! sure we strip them out for block check calculation. ; 0261 1 !-- ; 0262 1 ; 0263 1 %SBTTL 'Interface requirements' ; 0264 1 ; 0265 1 !++ ; 0266 1 ! Interface requirements ; 0267 1 ! ; 0268 1 ! The following routines and data locations are rquired for a correct ; 0269 1 ! implementation of KERMIT. ; 0270 1 ! ; 0271 1 ! File routines: ; 0272 1 ! ; 0273 1 ! FILE_OPEN (Function) ; 0274 1 ! This routine will open a file for reading or writting. It ; 0275 1 ! will assume that FILE_SIZE contains the number of bytes ; 0276 1 ! and FILE_NAME contains the file name of length FILE_SIZE. ; 0277 1 ! The function that is passed is either FNC_READ or FNC_WRITE. ; 0278 1 ! ; 0279 1 ! FILE_CLOSE () ; 0280 1 ! This routine will close the currently open file. This ; 0281 1 ! routine will return the status of the operation. ; 0282 1 ! ; 0283 1 ! GET_FILE (Character) ; 0284 1 ! This routine will get a character from the currently open file ; 0285 1 ! and store it in the location specified by "Character". There ; 0286 1 ! will be a true/false value returned by the routine to determine ; 0287 1 ! if there was an error. ; 0288 1 ! ; 0289 1 ! PUT_FILE (Character) ; 0290 1 ! This routine will output a character to the currently open ; 0291 1 ! file. It will return a true/false value to determine if the ; 0292 1 ! routine was successful. ; 0293 1 ! ; 0294 1 ! NEXT_FILE () ; 0295 1 ! This routine will advance to the next file. This routine ; 0296 1 ! will return false if there are no more files to process. ; 0297 1 ! ; 0298 1 ! Communications line routines: ; 0299 1 ! ; 0300 1 ! RECEIVE (Buffer address, Address of var to store length into) ; 0301 1 ! This routine will receive a message from the remote Kermit. ; 0302 1 ! ; 0303 1 ! SEND (Buffer address, Length in characters) ; 0304 1 ! This routine will send a message to the remote Kermit. ; 0305 1 ! ; 0306 1 ! GEN_CRC (Buffer address, length in characters) ; 0307 1 ! This routine will calculate the CRC-CCITT for the characters ; 0308 1 ! in the buffer. ; 0309 1 ! ; 0310 1 ! Operating system routines: ; 0311 1 ! ; 0312 1 ! SY_DISMISS (Seconds) ; 0313 1 ! This routine will cause Kermit to sleep for the specified ; 0314 1 ! number of seconds. It is used to handle the DELAY parameter. ; 0315 1 ! ; 0316 1 ! SY_LOGOUT () ; 0317 1 ! Log the job off of the system. (Kill the process). ; 0318 1 ! ; 0319 1 ! SY_TIME () ; 0320 1 ! This routine will return the starting time milliseconds. ; 0321 1 ! It can be the start of Kermit, the system, etc, so long ; 0322 1 ! as it always is incrementing. ; 0323 1 ! ; 0324 1 ! Status routines: ; 0325 1 ! ; 0326 1 ! XFR_STATUS (Type, Subtype); ; 0327 1 ! This routine is called to indicate the occurance of ; 0328 1 ! a significant event that the user interface may wish ; 0329 1 ! to inform the user about. The arguments indicate the ; 0330 1 ! type of event. ; 0331 1 ! Type: "S" - Send, "R" - Receive ; 0332 1 ! Subtype: "P" - Packet ; 0333 1 ! "N" - NAK ; 0334 1 ! "T" - timeout ; 0335 1 ! For type = "I" (initiate), "T" (terminate): ; 0336 1 ! Subtype: "S" - a file send ; 0337 1 ! "R" - a file receive ; 0338 1 ! "G" - a generic command ; 0339 1 ! "I" - for "T" only, returning to server idle ; 0340 1 ! For type = "F" (file operation): ; 0341 1 ! Subtype: "S" - open for sending ; 0342 1 ! "R" - open for receiving ; 0343 1 ! "C" - closing file OK ; 0344 1 ! "X" - aborting file by user request ; 0345 1 ! "Z" - aborting group by user request ; 0346 1 ! "D" - aborting file, but saving due to disposition ; 0347 1 ! "A" - aborting file due to protocol error ; 0348 1 ! ; 0349 1 ! Error processing: ; 0350 1 ! ; 0351 1 ! KRM_ERROR (Error parameter) ; 0352 1 ! This routine will cause an error message to be issued. ; 0353 1 ! The error parameter is defined by KERERR. This may cause ; 0354 1 ! SND_ERROR to be called to send an "E" message to the remote. ; 0355 1 ! ; 0356 1 ! Terminal I/O routines: ; 0357 1 ! ; 0358 1 ! TERM_DUMP (Buffer, Count) ; 0359 1 ! DBG_DUMP (Buffer, Count) ; 0360 1 ! This routine will dump the buffer onto the user's terminal. ; 0361 1 ! The routine is supplied with the count of the characters ; 0362 1 ! and the address of the buffer. ; 0363 1 ! These may be the same routine or different. DBG_DUMP ; 0364 1 ! is only called for debugging output. ; 0365 1 ! ; 0366 1 ! ; 0367 1 ! ENTRY POINTS ; 0368 1 ! ; 0369 1 ! KERMSG contains the following entry points for the KERMIT. ; 0370 1 ! ; 0371 1 ! SERVER () ; 0372 1 ! This routine will cause KERMIT go enter server mode. ; 0373 1 ! ; 0374 1 ! SEND_SWITCH () ; 0375 1 ! This routine will send a file. It expects that the user ; 0376 1 ! has stored the text of the file name into FILE_NAME and ; 0377 1 ! the length of the text into FILE_SIZE. ; 0378 1 ! ; 0379 1 ! REC_SWITCH () ; 0380 1 ! This routine will receive a file. It expects that the default ; 0381 1 ! file name is set up in FILE_NAME and the length is in ; 0382 1 ! FILE_SIZE. ; 0383 1 ! ; 0384 1 ! GEN_PARITY (Character) ; 0385 1 ! This routine will return the character with the proper parity ; 0386 1 ! on the character. ; 0387 1 ! ; 0388 1 ! SND_ERROR (COUNT, ADDRESS) ; 0389 1 ! This routine will send the text of an error to the remote ; 0390 1 ! Kermit. ; 0391 1 ! ; 0392 1 ! DO_GENERIC (TYPE) ; 0393 1 ! This routine will cause a generic function to be sent to ; 0394 1 ! the remote Kermit. This routine will then do all of the ; 0395 1 ! necessary hand shaking to handle the local end of the generic ; 0396 1 ! Kermit command. ; 0397 1 ! ; 0398 1 ! ; 0399 1 ! GLOBAL Storage ; 0400 1 ! ; 0401 1 ! The following are the global storage locations that are used to interface ; 0402 1 ! to KERMSG. These locations contains the various send and receive parameters. ; 0403 1 ! ; 0404 1 ! Receive parameters: ; 0405 1 ! ; 0406 1 ! RCV_PKT_SIZE ; 0407 1 ! Receive packet size. ; 0408 1 ! RCV_NPAD ; 0409 1 ! Padding length ; 0410 1 ! RCV_PADCHAR ; 0411 1 ! Padding character ; 0412 1 ! RCV_TIMEOUT ; 0413 1 ! Time out ; 0414 1 ! RCV_EOL ; 0415 1 ! End of line character ; 0416 1 ! RCV_QUOTE_CHR ; 0417 1 ! Quote character ; 0418 1 ! RCV_8QUOTE_CHR ; 0419 1 ! 8-bit quoting character ; 0420 1 ! RCV_SOH ; 0421 1 ! Start of header character ; 0422 1 ! ; 0423 1 ! Send parameters (Negative values denote the default, positive user supplied): ; 0424 1 ! ; 0425 1 ! SND_PKT_SIZE ; 0426 1 ! Send packet size ; 0427 1 ! SND_NPAD ; 0428 1 ! Padding length ; 0429 1 ! SND_PADCHAR ; 0430 1 ! Padding character ; 0431 1 ! SND_TIMEOUT ; 0432 1 ! Time out ; 0433 1 ! SND_EOL ; 0434 1 ! End of line character ; 0435 1 ! SND_QUOTE_CHR ; 0436 1 ! Quote character ; 0437 1 ! SND_SOH ; 0438 1 ! Start of header character (normally 001) ; 0439 1 ! ; 0440 1 ! Statistics: ; 0441 1 ! ; 0442 1 ! SND_TOTAL_CHARS ; 0443 1 ! Total characters sent for this Kermit session ; 0444 1 ! RCV_TOTAL_CHARS ; 0445 1 ! Total characters received for this Kermit session ; 0446 1 ! SND_DATA_CHARS ; 0447 1 ! Total number of data characters sent for this Kermit session ; 0448 1 ! RCV_DATA_CHARS ; 0449 1 ! Total number of data characters received for this Kermit session ; 0450 1 ! SND_COUNT ; 0451 1 ! Total number of packets that have been sent ; 0452 1 ! RCV_COUNT ; 0453 1 ! Total number of packets that have been received. ; 0454 1 ! SMSG_TOTAL_CHARS ; 0455 1 ! Total characters sent for this file transfer ; 0456 1 ! RMSG_TOTAL_CHARS ; 0457 1 ! Total characters received for this file transfer ; 0458 1 ! SMSG_DATA_CHARS ; 0459 1 ! Total data characters sent for this file transfer ; 0460 1 ! RMSG_DATA_CHARS ; 0461 1 ! Total data characters received for this file transfer ; 0462 1 ! SMSG_NAKS ; 0463 1 ! Total number of NAKs sent for this file transfer ; 0464 1 ! RMSG_NAKS ; 0465 1 ! Total number of NAKs received for this file transfer ; 0466 1 ! XFR_TIME ; 0467 1 ! Amount of time the last transfer took in milliseconds. ; 0468 1 ! TOTAL_TIME ; 0469 1 ! Total amount of time spend transfering data. ; 0470 1 ! ; 0471 1 ! Misc constants: ; 0472 1 ! ; 0473 1 ! LAST_ERROR ; 0474 1 ! ASCIZ of the last error message issued. ; 0475 1 ! FILE_NAME ; 0476 1 ! Vector containing the ASCII characters of the file name. ; 0477 1 ! FILE_SIZE ; 0478 1 ! Number of characters in the FILE_NAME vector. ; 0479 1 ! DELAY ; 0480 1 ! Amount of time to delay ; 0481 1 ! DUPLEX ; 0482 1 ! DP_HALF or DP_FULL to denote either half duplex or full duplex. ; 0483 1 ! [Currently only DP_FULL is supported] ; 0484 1 ! PKT_RETRIES ; 0485 1 ! Number of retries to attempt to read a message. ; 0486 1 ! SI_RETRIES ; 0487 1 ! Number of retries to attempt on send inits ; 0488 1 ! DEBUG_FLAG ; 0489 1 ! Debugging mode on/off ; 0490 1 ! WARN_FLAG ; 0491 1 ! File warning flag ; 0492 1 ! IBM_FLAG ; 0493 1 ! True if talking to an IBM system, else false. ; 0494 1 ! ECHO_FLAG ; 0495 1 ! Local echo flag ; 0496 1 ! CONNECT_FLAG ; 0497 1 ! Connected flag; True if terminal and SET LINE are the same ; 0498 1 ! PARITY_TYPE ; 0499 1 ! Type of parity to use on sends. ; 0500 1 ! DEV_PARITY_FLAG ; 0501 1 ! Device will add parity to message. True if device adds ; 0502 1 ! parity and false if we must do it. ; 0503 1 ! ; 0504 1 !-- ; 0505 1 ; 0506 1 %SBTTL 'Declarations -- Forward definitions' ; 0507 1 ! ; 0508 1 ! ; 0509 1 ! Forward definitions ; 0510 1 ! ; 0511 1 ; 0512 1 FORWARD ROUTINE ; 0513 1 ; 0514 1 ! Main loop for a complete transaction ; 0515 1 DO_TRANSACTION, ! Perform a complete transaction ; 0516 1 ; 0517 1 ! Send processing routines ; 0518 1 ; 0519 1 SEND_SERVER_INIT, ![026] Send a server init packet ; 0520 1 SEND_DATA, ! Send data to the micro ; 0521 1 SEND_FILE, ! Send file name ; 0522 1 SEND_OPEN_FILE, ! Open file for sending ; 0523 1 SEND_GENCMD, ! Send generic command ; 0524 1 SEND_EOF, ! Send EOF ; 0525 1 SEND_INIT, ! Send initialization msg ; 0526 1 SEND_BREAK, ! Send break end of transmission ; 0527 1 ; 0528 1 ! Receive processing routines ; 0529 1 ; 0530 1 REC_SERVER_IDLE, ! Wait for message while server is idle ; 0531 1 REC_INIT, ! Receive initialization ; 0532 1 REC_FILE, ! Receive file information ; 0533 1 REC_DATA, ! Receive data ; 0534 1 ! ; 0535 1 ! Server processing routines ; 0536 1 ! ; 0537 1 SERVER_GENERIC, ! Process generic KERMIT commands ; 0538 1 HOST_COMMAND, ! Process host command ; 0539 1 KERMIT_COMMAND, ! Process Kermit command ; 0540 1 CALL_SY_RTN, ! Handle calling system routine and returning result ; 0541 1 ! ; 0542 1 ! Statistic gathering routines ; 0543 1 ! ; 0544 1 END_STATS : NOVALUE, ! End of a message processing stats routine ; 0545 1 ; 0546 1 ! Low level send/receive routines ; 0547 1 ; 0548 1 CALC_BLOCK_CHECK, ! Routine to calculate the block check value ; 0549 1 SET_SEND_INIT : NOVALUE, ! Set up the MSG_SND_INIT parameters. ; 0550 1 PRS_SEND_INIT, ! Parse MSG_SND_INIT parameters. ; 0551 1 DO_PARITY : NOVALUE, ! Routine to generate parity for a message ; 0552 1 GEN_PARITY, ! Routine to add parity to a character ; 0553 1 SEND_PACKET, ! Send a packet to the remote ; 0554 1 REC_MESSAGE, ! Receive a message with retry processing ; 0555 1 REC_PACKET, ! Receive a packet from the remote ; 0556 1 ; 0557 1 ! Utility routines ; 0558 1 ; 0559 1 NORMALIZE_FILE : NOVALUE, ! Force file name into normal form ; 0560 1 BFR_EMPTY, ! Empty the data buffer ; 0561 1 BFR_FILL, ! Fill the data buffer from a file ; 0562 1 SET_STRING, ![025] Routine to set alternate get/put routines ; 0563 1 ! for use with in memory strings ; 0564 1 TYPE_CHAR, ! Type a character from a packet ; 0565 1 INIT_XFR : NOVALUE, ! Initialize the per transfer processing ; 0566 1 STS_OUTPUT : NOVALUE, ! Output current transfer status ; 0567 1 ! ; 0568 1 ! Debugging routines ; 0569 1 ! ; 0570 1 DBG_MESSAGE : NOVALUE, ! Type out a formatted message ; 0571 1 DBG_SEND : NOVALUE, ! Send message debugging routine ; 0572 1 DBG_RECEIVE : NOVALUE; ! Receive message debugging routine ; 0573 1 %SBTTL 'Require files' ; 0574 1 ; 0575 1 ! ; 0576 1 ! ; 0577 1 ! ; 0578 1 ! REQUIRE FILES: ; 0579 1 ! ; 0580 1 ; L 0581 1 %IF %BLISS (BLISS32) ; 0582 1 %THEN ; 0583 1 ; 0584 1 LIBRARY 'SYS$LIBRARY:STARLET'; ; 0585 1 ; 0586 1 %FI ; 0587 1 ; 0588 1 REQUIRE 'KERCOM'; ; 0789 1 ; 0790 1 REQUIRE 'KERERR'; ; 0850 1 ; 0851 1 %SBTTL 'Macro definitions' ; 0852 1 ! ; 0853 1 ! MACROS: ; 0854 1 ! ; 0855 1 ; 0856 1 MACRO ; M 0857 1 CTL (C) = ; 0858 1 ((C) XOR %O'100')%, ; M 0859 1 CHAR (C) = ; 0860 1 ((C) + %O'40')%, ; M 0861 1 UNCHAR (C) = ; 0862 1 ((C) - %O'40')%; ; 0863 1 ; 0864 1 %SBTTL 'KERMIT Protocol Definitions' ; 0865 1 ; 0866 1 !++ ; 0867 1 ! The following describes the various items that are found in the ; 0868 1 ! KERMIT messages. A complete and through desription of the protocol can be ; 0869 1 ! found in the KERMIT PROTOCOL MANUAL. ; 0870 1 ! ; 0871 1 ! ; 0872 1 ! All KERMIT messages have the following format: ; 0873 1 ! ; 0874 1 ! ; 0875 1 ! ; 0876 1 ! ; 0877 1 ! Normally SOH (Control-A, octal 001). ; 0878 1 ! ; 0879 1 ! ; 0880 1 ! Count of the number of characters following this position. ; 0881 1 ! Character counts of ONLY 0 to 94 are valid. ; 0882 1 ! ; 0883 1 ! ; 0884 1 ! Packet sequence number, modulo 100 (octal). ; 0885 1 ! ; 0886 1 ! ; 0887 1 ! This field contains the message dependent information. There can ; 0888 1 ! be multiple fields in this section. See the KERMIT Protocol document ; 0889 1 ! for a complete description of this. ; 0890 1 ! ; 0891 1 ! ; 0892 1 ! A block check on the characters in the packet between, but not ; 0893 1 ! including, the mark and the checksum itself. It may be one to three ; 0894 1 ! characters, depending upon the type agreed upon. ; 0895 1 ! ; 0896 1 ! 1. Single character arithmetic sum equal to: ; 0897 1 ! chksum = (s + ((s AND 300)/100)) AND 77 ; 0898 1 ! Character sent is CHAR(chksum). ; 0899 1 ! ; 0900 1 ! 2. Two character arithmetic sum. CHAR of bits 6-11 are the first ; 0901 1 ! character, CHAR of bits 0-5 are the second character. ; 0902 1 ! ; 0903 1 ! 3. Three character CRC-CCITT. First character is CHAR of bits 12-15, ; 0904 1 ! second is CHAR of bits 6-11, third is CHAR of bits 0-5. ; 0905 1 ! ; 0906 1 ! ; 0907 1 ! ; 0908 1 ! End of line. Any line terminator that may be required by the host. ; 0909 1 !-- ; 0910 1 ; 0911 1 %SBTTL 'KERMIT Protocol Definitions -- Packet offsets' ; 0912 1 ; 0913 1 !++ ; 0914 1 ! The following define the various offsets of the standard KERMIT ; 0915 1 ! packets. ; 0916 1 !-- ; 0917 1 ; 0918 1 LITERAL ; 0919 1 PKT_MARK = 0, ! ; 0920 1 PKT_COUNT = 1, ! ; 0921 1 PKT_SEQ = 2, ! ; 0922 1 PKT_TYPE = 3, ! ; 0923 1 PKT_MSG = 4, ! ; 0924 1 PKT_MAX_MSG = 94 - 5, ! Maximum size of the message dependent ; 0925 1 ! information ; 0926 1 PKT_CHKSUM = 0, ! offset from end of ; 0927 1 ! Message dependent information ; 0928 1 PKT_EOL = 1, ! offset from end of data ; 0929 1 PKT_OVR_HEAD_B = 2, ! Header overhead ; 0930 1 PKT_OVR_HEAD_E = 1, ! Overhead at the end ; 0931 1 PKT_OVR_HEAD = 3, ! Overhead added to data length ; 0932 1 PKT_TOT_OVR_HEAD = 6; ! Total overhead of the message ; 0933 1 ; 0934 1 %SBTTL 'KERMIT Protocol Definitions -- Message dependent field' ; 0935 1 ; 0936 1 !++ ; 0937 1 ! The MESSAGE-DEPENDENT information field of the message contains at ; 0938 1 ! least one part. That is the type of message. The remainder of the message ; 0939 1 ! MESSAGE-DEPENDENT field is different depending on the message. ; 0940 1 ! ; 0941 1 ! ; 0942 1 ! ; 0943 1 ! ; 0944 1 ! The type defines the type of message that is being processed. ; 0945 1 ! ; 0946 1 !-- ; 0947 1 ; 0948 1 ! Protocol version 1.0 message types ; 0949 1 ; 0950 1 LITERAL ; 0951 1 MSG_DATA = %C'D', ! Data packet ; 0952 1 MSG_ACK = %C'Y', ! Acknowledgement ; 0953 1 MSG_NAK = %C'N', ! Negative acknowledgement ; 0954 1 MSG_SND_INIT = %C'S', ! Send initiate ; 0955 1 MSG_BREAK = %C'B', ! Break transmission ; 0956 1 MSG_FILE = %C'F', ! File header ; 0957 1 MSG_EOF = %C'Z', ! End of file (EOF) ; 0958 1 MSG_ERROR = %C'E'; ! Error ; 0959 1 ; 0960 1 ! Protocol version 2.0 message types ; 0961 1 ; 0962 1 LITERAL ; 0963 1 MSG_RCV_INIT = %C'R', ! Receive initiate ; 0964 1 MSG_COMMAND = %C'C', ! Host command ; 0965 1 MSG_GENERIC = %C'G', ! Generic KERMIT command. ; 0966 1 MSG_KERMIT = %C'K'; ! Perform KERMIT command (text) ; 0967 1 ; 0968 1 ! Protocol version 4.0 message types ; 0969 1 ; 0970 1 LITERAL ; 0971 1 MSG_SER_INIT = %C'I', ! Server initialization ; 0972 1 MSG_TEXT = %C'X'; ! Text header message ; 0973 1 ; 0974 1 !++ ; 0975 1 ! Generic KERMIT commands ; 0976 1 !-- ; 0977 1 ; 0978 1 LITERAL ; 0979 1 MSG_GEN_LOGIN = %C'I', ! Login ; 0980 1 MSG_GEN_EXIT = %C'F', ! Finish (exit to OS) ; 0981 1 MSG_GEN_CONNECT = %C'C', ! Connect to a directory ; 0982 1 MSG_GEN_LOGOUT = %C'L', ! Logout ; 0983 1 MSG_GEN_DIRECTORY = %C'D', ! Directory ; 0984 1 MSG_GEN_DISK_USAGE = %C'U', ! Disk usage ; 0985 1 MSG_GEN_DELETE = %C'E', ! Delete a file ; 0986 1 MSG_GEN_TYPE = %C'T', ! Type a file specification ; 0987 1 ! MSG_GEN_SUBMIT = %C'S', ! Submit ; 0988 1 ! MSG_GEN_PRINT = %C'P', ! Print ; 0989 1 MSG_GEN_WHO = %C'W', ! Who's logged in ; 0990 1 MSG_GEN_SEND = %C'M', ! Send a message to a user ; 0991 1 MSG_GEN_HELP = %C'H', ! Help ; 0992 1 MSG_GEN_QUERY = %C'Q', ! Query status ; 0993 1 MSG_GEN_RENAME = %C'R', ! Rename file ; 0994 1 MSG_GEN_COPY = %C'K', ! Copy file ; 0995 1 MSG_GEN_PROGRAM = %C'P', ! Run program and pass data ; 0996 1 MSG_GEN_JOURNAL = %C'J', ! Perform journal functions ; 0997 1 MSG_GEN_VARIABLE = %C'V'; ! Return/set variable state ; 0998 1 ; 0999 1 ! ; 1000 1 ! Acknowledgement modifiers (protocol 4.0) ; 1001 1 ! ; 1002 1 ; 1003 1 LITERAL ; 1004 1 MSG_ACK_ABT_CUR = %C'X', ! Abort current file ; 1005 1 MSG_ACK_ABT_ALL = %C'Z'; ! Abort entire stream of files ; 1006 1 ; 1007 1 ! ; 1008 1 ! End of file packet modifier ; 1009 1 ! ; 1010 1 ; 1011 1 LITERAL ; 1012 1 MSG_EOF_DISCARD = %C'D'; ! Discard data from previous file ; 1013 1 ; 1014 1 %SBTTL 'KERMIT Protocol Definitions -- SEND initiate packet' ; 1015 1 ; 1016 1 !++ ; 1017 1 ! ; 1018 1 ! The following describes the send initiate packet. All fields in the message ; 1019 1 ! data area are optional. ; 1020 1 ! ; 1021 1 ! <"S"> ; 1022 1 ! <8-bit-quote> ; 1023 1 ! ; 1024 1 ! BUFSIZ ; 1025 1 ! Sending Kermit's maximum buffer size. ; 1026 1 ! ; 1027 1 ! Timeout ; 1028 1 ! Number of seconds after which the sending Kermit wishes to be timed out ; 1029 1 ! ; 1030 1 ! Npad ; 1031 1 ! Number of padding caracters the sending Kermit needs preceding each ; 1032 1 ! packet. ; 1033 1 ! ; 1034 1 ! PAD ; 1035 1 ! Padding character. ; 1036 1 ! ; 1037 1 ! EOL ; 1038 1 ! A line terminator required on all packets set by the receiving ; 1039 1 ! Kermit. ; 1040 1 ! ; 1041 1 ! Quote ; 1042 1 ! The printable ASCII characer the sending Kermit will use when quoting ; 1043 1 ! the control cahracters. Default is "#". ; 1044 1 ! ; 1045 1 ! 8-bit-quote ; 1046 1 ! Specify quoting mecanism for 8-bit quantities. A quoting mecanism is ; 1047 1 ! mecessary when sending to hosts which prevent the use of the 8th bit ; 1048 1 ! for data. When elected, the quoting mechanism will be used by both ; 1049 1 ! hosts, and the quote character must be in the range of 41-76 or 140-176 ; 1050 1 ! octal, but different from the control-quoting character. This field is ; 1051 1 ! interpreted as follows: ; 1052 1 ! ; 1053 1 ! "Y" - I agree to 8-bit quoting if you request it. ; 1054 1 ! "N" - I will not do 8-bit quoting. ; 1055 1 ! "&" - (or any other character in the range of 41-76 or 140-176) I want ; 1056 1 ! to do 8-bit quoting using this character (it will be done if the ; 1057 1 ! other Kermit puts a "Y" in this field. ; 1058 1 ! Anything else: Quoting will not be done. ; 1059 1 ! ; 1060 1 ! Check-type ; 1061 1 ! Type of block check. The only values presently allowed in this ; 1062 1 ! field are "1", "2" or "3". Future implementations may allow other ; 1063 1 ! values. Interpretation of the values is: ; 1064 1 ! ; 1065 1 ! "1" - Single character checksum. Default value if none specified. ; 1066 1 ! "2" - Double character checksum. ; 1067 1 ! "3" - Three character CRC. ; 1068 1 ! ; 1069 1 ! Repeat-count-processing ; 1070 1 ! The prefix character to be used to indicate a repeated character. ; 1071 1 ! This can be any printable cahracter other than blank (which denotes ; 1072 1 ! no repeat count). ; 1073 1 ! ; 1074 1 ! Fields 10 to 11 reserved. ; 1075 1 !-- ; 1076 1 ; 1077 1 LITERAL ; 1078 1 P_SI_BUFSIZ = 0, ! Buffersize ; 1079 1 MY_PKT_SIZE = 80, ! My packet size ; 1080 1 P_SI_TIMOUT = 1, ! Time out ; 1081 1 MY_TIME_OUT = 15, ! My time out ; 1082 1 P_SI_NPAD = 2, ! Number of padding characters ; 1083 1 MY_NPAD = 0, ! Amount of padding I require ; 1084 1 P_SI_PAD = 3, ! Padding character ; 1085 1 MY_PAD_CHAR = 0, ! My pad character ; 1086 1 P_SI_EOL = 4, ! End of line character ; 1087 1 MY_EOL_CHAR = %O'015', ! My EOL cahracter ; 1088 1 P_SI_QUOTE = 5, ! Quote character ; 1089 1 MY_QUOTE_CHAR = %C'#', ! My quoting character ; 1090 1 P_SI_8QUOTE = 6, ! 8-bit quote ; 1091 1 MY_8BIT_QUOTE = %C'&', ! Don't do it ; 1092 1 P_SI_CHKTYPE = 7, ! Checktype used ; 1093 1 MY_CHKTYPE = CHK_1CHAR, ! Use single character checksum ; 1094 1 P_SI_REPEAT = 8, ! Repeat character ; 1095 1 MY_REPEAT = %C'~', ! My repeat character ; 1096 1 P_SI_LENGTH = 9; ! Length of the message ; 1097 1 ; 1098 1 %SBTTL 'KERMIT Protocol States' ; 1099 1 ; 1100 1 !++ ; 1101 1 ! The following are the various states that KERMIT can be in. ; 1102 1 ! The state transitions are defined in the KERMIT Protocol manual. ; 1103 1 !-- ; 1104 1 ; 1105 1 LITERAL ; 1106 1 STATE_MIN = 1, ! Min state number ; 1107 1 STATE_S = 1, ! Send init state ; 1108 1 STATE_SF = 2, ! Send file header ; 1109 1 STATE_SD = 3, ! Send file data packet ; 1110 1 STATE_SZ = 4, ! Send EOF packet ; 1111 1 STATE_SB = 5, ! Send break ; 1112 1 STATE_R = 6, ! Receive state (wait for send-init) ; 1113 1 STATE_RF = 7, ! Receive file header packet ; 1114 1 STATE_RD = 8, ! Receive file data packet ; 1115 1 STATE_C = 9, ! Send complete ; 1116 1 STATE_A = 10, ! Abort ; 1117 1 STATE_SX = 11, ! Send text header ; 1118 1 STATE_SG = 12, ! Send generic command ; 1119 1 STATE_SI = 13, ! Send server init ; 1120 1 STATE_ID = 14, ! Server idle loop ; 1121 1 STATE_II = 15, ! Server idle after server init ; 1122 1 STATE_FI = 16, ! Server should exit ; 1123 1 STATE_LG = 17, ! Server should logout ; 1124 1 STATE_OF = 18, ! Send - open first input file ; 1125 1 STATE_EX = 19, ! Exit back to command parser ; 1126 1 STATE_ER = 20, ! Retries exceeded error ; 1127 1 STATE_MAX = 20; ! Max state number ; 1128 1 ; 1129 1 %SBTTL 'Internal constants' ; 1130 1 ; 1131 1 !++ ; 1132 1 ! The following represent various internal KERMSG constants. ; 1133 1 !-- ; 1134 1 ; 1135 1 LITERAL ; 1136 1 MAX_PKT_RETRIES = 16, ! Maximum packet retries ; 1137 1 MAX_SI_RETRIES = 5; ! Maximum send init retries ; 1138 1 ; 1139 1 %SBTTL 'Storage - External' ; 1140 1 ! ; 1141 1 ! OWN STORAGE: ; 1142 1 ! ; 1143 1 ; 1144 1 EXTERNAL ; 1145 1 ! ; 1146 1 ! Receive parameters ; 1147 1 ! ; 1148 1 RCV_PKT_SIZE, ! Receive packet size ; 1149 1 RCV_NPAD, ! Padding length ; 1150 1 RCV_PADCHAR, ! Padding character ; 1151 1 RCV_TIMEOUT, ! Time out ; 1152 1 RCV_EOL, ! EOL character ; 1153 1 RCV_QUOTE_CHR, ! Quote character ; 1154 1 RCV_SOH, ! Start of header character ; 1155 1 RCV_8QUOTE_CHR, ! 8-bit quoting character ; 1156 1 ! ; 1157 1 ! Miscellaneous parameters ; 1158 1 ! ; 1159 1 SET_REPT_CHR, ! Repeat character ; 1160 1 ! ; 1161 1 ! Send parameters ; 1162 1 ! ; 1163 1 SND_PKT_SIZE, ! Send packet size ; 1164 1 SND_NPAD, ! Padding length ; 1165 1 SND_PADCHAR, ! Padding character ; 1166 1 SND_TIMEOUT, ! Time out ; 1167 1 SND_EOL, ! EOL character ; 1168 1 SND_QUOTE_CHR, ! Quote character ; 1169 1 SND_SOH, ! Start of header character ; 1170 1 SEND_TIMEOUT, ! Time to wait for receiving message ; 1171 1 ! ; 1172 1 ! Server parameters ; 1173 1 ! ; 1174 1 SRV_TIMEOUT, ! Time between NAK's when server is idle ; 1175 1 ! ; 1176 1 ! Statistics ; 1177 1 ! ; 1178 1 SND_TOTAL_CHARS, ! Total characters sent ; 1179 1 RCV_TOTAL_CHARS, ! Total characters received ; 1180 1 SND_DATA_CHARS, ! Total number of data characters sent ; 1181 1 RCV_DATA_CHARS, ! Total number of data characters received ; 1182 1 SND_NAKS, ! Total NAKs sent ; 1183 1 RCV_NAKS, ! Total NAKs received ; 1184 1 SND_COUNT, ! Count of total number of packets ; 1185 1 RCV_COUNT, ! Count of total number packets received ; 1186 1 SMSG_COUNT, ! Total number of packets sent ; 1187 1 RMSG_COUNT, ! Total number of packets received ; 1188 1 SMSG_TOTAL_CHARS, ! Total chars sent this file xfer ; 1189 1 RMSG_TOTAL_CHARS, ! Total chars rcvd this file xfer ; 1190 1 SMSG_DATA_CHARS, ! Total data chars this file xfer ; 1191 1 RMSG_DATA_CHARS, ! Total data chars this file xfer ; 1192 1 SMSG_NAKS, ! Total number of NAKs this file xfer ; 1193 1 RMSG_NAKS, ! Total number of NAKs received ; 1194 1 XFR_TIME, ! Amount of time last xfr took ; 1195 1 TOTAL_TIME, ! Total time of all xfrs ; 1196 1 ! this file xfer ; 1197 1 LAST_ERROR : VECTOR [CH$ALLOCATION (MAX_MSG + 1)], ! Last error message ; 1198 1 ! ; 1199 1 ! Misc constants. ; 1200 1 ! ; 1201 1 FILE_NAME : VECTOR [CH$ALLOCATION (MAX_FILE_NAME)], ; 1202 1 FILE_SIZE, ; 1203 1 SI_RETRIES, ! Send init retries to attempt ; 1204 1 PKT_RETRIES, ! Number of retries to try for a message ; 1205 1 DELAY, ! Amount of time to delay ; 1206 1 DUPLEX, ! Type of connection (half or full) ; 1207 1 PARITY_TYPE, ! Type of parity to use ; 1208 1 DEV_PARITY_FLAG, ! True if output device does ; 1209 1 ! parity, false if we do it ; 1210 1 CHKTYPE, ! Type of block check desired ; 1211 1 ABT_FLAG, ! True if aborted file should be discarded ; 1212 1 DEBUG_FLAG, ! Debugging mode on/off ; 1213 1 WARN_FLAG, ! File warning flag ; 1214 1 IBM_FLAG, ! Talking to an IBM system ; 1215 1 IBM_CHAR, ! Turnaround character for IBM mode ; 1216 1 ECHO_FLAG, ! Local echo flag ; 1217 1 CONNECT_FLAG, ! Connected flag; True if ; 1218 1 ! terminal and SET LINE are ; 1219 1 ! the same ; 1220 1 ABT_CUR_FILE, ! Abort current file ; 1221 1 ABT_ALL_FILE, ! Abort all files in stream ; 1222 1 TYP_STS_FLAG, ! Type status next message ; 1223 1 TY_FIL, ! Type file specs ; 1224 1 TY_PKT, ! Type packet info ; 1225 1 FIL_NORMAL_FORM, ! If true, file names should be normalized ; 1226 1 GEN_1DATA : VECTOR [CH$ALLOCATION (MAX_MSG)], ! Data for generic command ; 1227 1 GEN_1SIZE, ! Size of data in GEN_1DATA ; 1228 1 GEN_2DATA : VECTOR [CH$ALLOCATION (MAX_MSG)], ! Second argument for generic command ; 1229 1 GEN_2SIZE, ! Size of data in GEN_2DATA ; 1230 1 GEN_3DATA : VECTOR [CH$ALLOCATION (MAX_MSG)], ! Third arg for generic command ; 1231 1 GEN_3SIZE; ! Size of data in GEN_3DATA ; 1232 1 ; 1233 1 %SBTTL 'Storage - Local' ; 1234 1 ! ; 1235 1 ! LOCAL OWN STORAGE: ; 1236 1 ! ; 1237 1 ; 1238 1 OWN ; 1239 1 ! ; 1240 1 ! Receive parameters ; 1241 1 ! ; 1242 1 RECV_8QUOTE_CHR, ! 8th-bit quoting character ; 1243 1 REPT_CHR, ! Repeat prefix character ; 1244 1 ! ; 1245 1 ! Send parameters ; 1246 1 ! ; 1247 1 SEND_PKT_SIZE, ! Send packet size ; 1248 1 SEND_NPAD, ! Padding length ; 1249 1 SEND_PADCHAR, ! Padding character ; 1250 1 SEND_EOL, ! EOL character ; 1251 1 SEND_QUOTE_CHR, ! Quote character ; 1252 1 SEND_8QUOTE_CHR, ! 8-bit quoting character ; 1253 1 ! ; 1254 1 ! Misc parameters ; 1255 1 ! ; 1256 1 INI_CHK_TYPE, ! Type of block checking from init message ; 1257 1 BLK_CHK_TYPE, ! Type of block check to use ; 1258 1 FLAG_8QUOTE, ! Flag to determine if doing 8bit quoting ; 1259 1 FLAG_REPEAT, ! True if doing repeated character compression ; 1260 1 STATE, ! Current state ; 1261 1 SIZE, ! Size of the current message ; 1262 1 OLD_RETRIES, ! Saved number of retries done. ; 1263 1 NUM_RETRIES, ! Number of retries ; 1264 1 MSG_NUMBER, ! Current message number ; 1265 1 REC_SEQ, ! Sequence number of msg in REC_MSG ; 1266 1 REC_LENGTH, ! Length of the message recv'd ; 1267 1 REC_TYPE, ! Type of the message received. ; 1268 1 REC_MSG : VECTOR [CH$ALLOCATION (MAX_MSG, CHR_SIZE)], ! Message received ; 1269 1 SND_MSG : VECTOR [CH$ALLOCATION (MAX_MSG, CHR_SIZE)], ! Message sent ; 1270 1 FILE_OPEN_FLAG, ! File is opened. ; 1271 1 FILE_CHARS, ! Number of characters sent or received ; 1272 1 TEXT_HEAD_FLAG, ! Text header received, not file header ; 1273 1 NO_FILE_NEEDED, ! Don't open a file ; 1274 1 INIT_PKT_SENT, ! Server-init sent and ACKed ; 1275 1 GEN_TYPE, ! Command message type ; 1276 1 GEN_SUBTYPE, ! Generic command subtype ; 1277 1 GET_CHR_ROUTINE, ![025] Address of routine to get a character for BFR_FILL ; 1278 1 PUT_CHR_ROUTINE; ![025] Address of routine to put a character for BFR_EMPTY ; 1279 1 ; 1280 1 %SBTTL 'External references' ; 1281 1 ! ; 1282 1 ! EXTERNAL REFERENCES: ; 1283 1 ! ; 1284 1 ! Packet I/O routines ; 1285 1 ; 1286 1 EXTERNAL ROUTINE ; 1287 1 SEND, ! Send a packet to the remote ; 1288 1 IBM_WAIT, ! Wait for IBM turnaround ; 1289 1 RECEIVE; ! Receive a packet from the remote ; 1290 1 ; 1291 1 ! ; 1292 1 ! Terminal I/O routines ; 1293 1 ! ; 1294 1 ; 1295 1 EXTERNAL ROUTINE ; 1296 1 TERM_DUMP : NOVALUE, ! Normal terminal output ; 1297 1 DBG_DUMP : NOVALUE, ! Debugging output ; 1298 1 TT_SET_OUTPUT, ! Set output routine ; 1299 1 TT_CHAR : NOVALUE, ! Output a single character ; 1300 1 TT_CRLF : NOVALUE, ! Output a CRLF ; 1301 1 TT_NUMBER : NOVALUE, ! Output a three digit number to the ; 1302 1 ! terminal ; 1303 1 TT_TEXT : NOVALUE, ! Output a string to the user's ; 1304 1 TT_OUTPUT : NOVALUE; ! Force buffered output to terminal ; 1305 1 ; 1306 1 ! Operating system routines and misc routines ; 1307 1 ; 1308 1 EXTERNAL ROUTINE ; 1309 1 CRCCLC, ! Calculate a CRC-CCITT ; 1310 1 XFR_STATUS : NOVALUE, ! Routine to tell the user the ; 1311 1 ! status of a transfer ; 1312 1 KRM_ERROR : NOVALUE, ! Issue an error message ; 1313 1 SY_LOGOUT : NOVALUE, ! Log the job off ; 1314 1 SY_GENERIC, ! Perform a generic command ; 1315 1 SY_TIME, ! Return elapsed time in milliseconds ; 1316 1 SY_DISMISS : NOVALUE; ! Routine to dismiss for n seconds. ; 1317 1 ; 1318 1 ! ; 1319 1 ! External file processing routines ; 1320 1 ! ; 1321 1 ; 1322 1 EXTERNAL ROUTINE ; 1323 1 FILE_OPEN, ! Open a file for reading/writing ; 1324 1 FILE_CLOSE, ! Close an open file ; 1325 1 NEXT_FILE, ! Determine if there is a next file ; 1326 1 ! and open it for reading. ; 1327 1 GET_FILE, ! Get a byte from the file ; 1328 1 PUT_FILE; ! Put a byte in the file. ; 1329 1 ; 1330 1 %SBTTL 'MSG_INIT' ; 1331 1 ; 1332 1 GLOBAL ROUTINE MSG_INIT : NOVALUE = ; 1333 1 ; 1334 1 !++ ; 1335 1 ! FUNCTIONAL DESCRIPTION: ; 1336 1 ! ; 1337 1 ! This routine will initialize the message processing for ; 1338 1 ! KERMIT-32/36. ; 1339 1 ! ; 1340 1 ! CALLING SEQUENCE: ; 1341 1 ! ; 1342 1 ! MSG_INIT(); ; 1343 1 ! ; 1344 1 ! INPUT PARAMETERS: ; 1345 1 ! ; 1346 1 ! None. ; 1347 1 ! ; 1348 1 ! IMPLICIT INPUTS: ; 1349 1 ! ; 1350 1 ! None. ; 1351 1 ! ; 1352 1 ! OUTPUT PARAMETERS: ; 1353 1 ! ; 1354 1 ! None. ; 1355 1 ! ; 1356 1 ! IMPLICIT OUTPUTS: ; 1357 1 ! ; 1358 1 ! None. ; 1359 1 ! ; 1360 1 ! COMPLETION CODES: ; 1361 1 ! ; 1362 1 ! None. ; 1363 1 ! ; 1364 1 ! SIDE EFFECTS: ; 1365 1 ! ; 1366 1 ! None. ; 1367 1 ! ; 1368 1 !-- ; 1369 1 ; 1370 2 BEGIN ; 1371 2 ! ; 1372 2 ! Initialize some variables ; 1373 2 ! ; 1374 2 ! Receive parameters first ; 1375 2 ! ; 1376 2 RCV_PKT_SIZE = MY_PKT_SIZE; ; 1377 2 RCV_NPAD = MY_NPAD; ; 1378 2 RCV_PADCHAR = MY_PAD_CHAR; ; 1379 2 RCV_TIMEOUT = MY_TIME_OUT; ; 1380 2 RCV_EOL = MY_EOL_CHAR; ; 1381 2 RCV_QUOTE_CHR = MY_QUOTE_CHAR; ; 1382 2 RCV_SOH = CHR_SOH; ; 1383 2 RCV_8QUOTE_CHR = MY_8BIT_QUOTE; ; 1384 2 SET_REPT_CHR = MY_REPEAT; ; 1385 2 ! ; 1386 2 ! Send parameters. ; 1387 2 ! ; 1388 2 SND_PKT_SIZE = -MY_PKT_SIZE; ; 1389 2 SND_NPAD = -MY_NPAD; ; 1390 2 SND_PADCHAR = -MY_PAD_CHAR; ; 1391 2 SND_TIMEOUT = -MY_TIME_OUT; ; 1392 2 SND_EOL = -MY_EOL_CHAR; ; 1393 2 SND_QUOTE_CHR = -MY_QUOTE_CHAR; ; 1394 2 SND_SOH = CHR_SOH; ; 1395 2 ! ; 1396 2 ! Server parameters ; 1397 2 ! ; 1398 2 SRV_TIMEOUT = 5*MY_TIME_OUT; ; 1399 2 ! ; 1400 2 ! Other random parameters ; 1401 2 ! ; 1402 2 PKT_RETRIES = MAX_PKT_RETRIES; ! Number of retries per message ; 1403 2 SI_RETRIES = MAX_SI_RETRIES; ! Number of retries on send inits ; 1404 2 DELAY = INIT_DELAY; ; 1405 2 DUPLEX = DP_FULL; ! Use full duplex ; 1406 2 DEBUG_FLAG = FALSE; ; 1407 2 WARN_FLAG = FALSE; ; 1408 2 ECHO_FLAG = FALSE; ; 1409 2 BLK_CHK_TYPE = CHK_1CHAR; ! Start using single char checksum ; 1410 2 CHKTYPE = MY_CHKTYPE; ! Desired block check type ; 1411 2 INI_CHK_TYPE = .CHKTYPE; ! Same as default for now ; 1412 2 DEV_PARITY_FLAG = FALSE; ! We generate parity ; 1413 2 PARITY_TYPE = PR_NONE; ! No parity ; 1414 2 ABT_FLAG = TRUE; ! Discard incomplete files ; 1415 2 FILE_OPEN_FLAG = FALSE; ; 1416 2 IBM_FLAG = FALSE; ! Not talking to an IBM ; 1417 2 IBM_CHAR = CHR_DC1; ! XON is IBM turnaround character ; 1418 2 TY_FIL = TRUE; ! Default to typing files ; 1419 2 TY_PKT = FALSE; ! But not packet numbers ; 1420 2 FIL_NORMAL_FORM = FNM_NORMAL; ! Default to normal form names ; 1421 2 GET_CHR_ROUTINE = GET_FILE; ![025] Initialize the get-a-char routine ; 1422 2 PUT_CHR_ROUTINE = PUT_FILE; ![025] And the put-a-char ; 1423 1 END; ! End of MSG_INIT .TITLE KERMSG KERMSG - Kermit message processing .IDENT \3.0.041\ .PSECT $OWN$,NOEXE,2 ;RECV_8QUOTE_CHR U.37: .BLKB 4 ;REPT_CHR U.38: .BLKB 4 ;SEND_PKT_SIZE U.39: .BLKB 4 ;SEND_NPAD U.40: .BLKB 4 ;SEND_PADCHAR U.41: .BLKB 4 ;SEND_EOL U.42: .BLKB 4 ;SEND_QUOTE_CHR U.43: .BLKB 4 ;SEND_8QUOTE_CHR U.44: .BLKB 4 ;INI_CHK_TYPE U.45: .BLKB 4 ;BLK_CHK_TYPE U.46: .BLKB 4 ;FLAG_8QUOTE U.47: .BLKB 4 ;FLAG_REPEAT U.48: .BLKB 4 ;STATE U.49: .BLKB 4 ;SIZE U.50: .BLKB 4 ;OLD_RETRIES U.51: .BLKB 4 ;NUM_RETRIES U.52: .BLKB 4 ;MSG_NUMBER U.53: .BLKB 4 ;REC_SEQ U.54: .BLKB 4 ;REC_LENGTH U.55: .BLKB 4 ;REC_TYPE U.56: .BLKB 4 ;REC_MSG U.57: .BLKB 96 ;SND_MSG U.58: .BLKB 96 ;FILE_OPEN_FLAG U.59: .BLKB 4 ;FILE_CHARS U.60: .BLKB 4 ;TEXT_HEAD_FLAG U.61: .BLKB 4 ;NO_FILE_NEEDED U.62: .BLKB 4 ;INIT_PKT_SENT U.63: .BLKB 4 ;GEN_TYPE U.64: .BLKB 4 ;GEN_SUBTYPE U.65: .BLKB 4 ;GET_CHR_ROUTINE U.66: .BLKB 4 ;PUT_CHR_ROUTINE U.67: .BLKB 4 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== 96 .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_FLAG, IBM_CHAR, ECHO_FLAG, CONNECT_FLAG, ABT_CUR_FILE, ABT_ALL_FILE, TYP_STS_FLAG .EXTRN TY_FIL, TY_PKT, FIL_NORMAL_FORM, GEN_1DATA, GEN_1SIZE, GEN_2DATA, GEN_2SIZE, GEN_3DATA .EXTRN GEN_3SIZE, SEND, IBM_WAIT, RECEIVE, TERM_DUMP, DBG_DUMP, TT_SET_OUTPUT, TT_CHAR, TT_CRLF .EXTRN TT_NUMBER, TT_TEXT, TT_OUTPUT, CRCCLC, XFR_STATUS, KRM_ERROR, SY_LOGOUT, SY_GENERIC .EXTRN SY_TIME, SY_DISMISS, FILE_OPEN, FILE_CLOSE, NEXT_FILE, GET_FILE, PUT_FILE .PSECT $CODE$,NOWRT,2 .ENTRY MSG_INIT, ^M<> ;MSG_INIT, Save nothing ; 1332 MOVZBL #80, W^RCV_PKT_SIZE ;#80, RCV_PKT_SIZE ; 1376 CLRL W^RCV_NPAD ;RCV_NPAD ; 1377 CLRL W^RCV_PADCHAR ;RCV_PADCHAR ; 1378 MOVL #15, W^RCV_TIMEOUT ;#15, RCV_TIMEOUT ; 1379 MOVL #13, W^RCV_EOL ;#13, RCV_EOL ; 1380 MOVL #35, W^RCV_QUOTE_CHR ;#35, RCV_QUOTE_CHR ; 1381 MOVL #1, W^RCV_SOH ;#1, RCV_SOH ; 1382 MOVL #38, W^RCV_8QUOTE_CHR ;#38, RCV_8QUOTE_CHR ; 1383 MOVZBL #126, W^SET_REPT_CHR ;#126, SET_REPT_CHR ; 1384 CVTBL #-80, W^SND_PKT_SIZE ;#-80, SND_PKT_SIZE ; 1388 CLRL W^SND_NPAD ;SND_NPAD ; 1389 CLRL W^SND_PADCHAR ;SND_PADCHAR ; 1390 MNEGL #15, W^SND_TIMEOUT ;#15, SND_TIMEOUT ; 1391 MNEGL #13, W^SND_EOL ;#13, SND_EOL ; 1392 MNEGL #35, W^SND_QUOTE_CHR ;#35, SND_QUOTE_CHR ; 1393 MOVL #1, W^SND_SOH ;#1, SND_SOH ; 1394 MOVZBL #75, W^SRV_TIMEOUT ;#75, SRV_TIMEOUT ; 1398 MOVL #16, W^PKT_RETRIES ;#16, PKT_RETRIES ; 1402 MOVL #5, W^SI_RETRIES ;#5, SI_RETRIES ; 1403 MOVL #5, W^DELAY ;#5, DELAY ; 1404 CLRL W^DUPLEX ;DUPLEX ; 1405 CLRL W^DEBUG_FLAG ;DEBUG_FLAG ; 1406 CLRL W^WARN_FLAG ;WARN_FLAG ; 1407 CLRL W^ECHO_FLAG ;ECHO_FLAG ; 1408 MOVL #49, W^U.46 ;#49, U.46 ; 1409 MOVL #49, W^CHKTYPE ;#49, CHKTYPE ; 1410 MOVL W^CHKTYPE, W^U.45 ;CHKTYPE, U.45 ; 1411 CLRL W^DEV_PARITY_FLAG ;DEV_PARITY_FLAG ; 1412 CLRL W^PARITY_TYPE ;PARITY_TYPE ; 1413 MOVL #1, W^ABT_FLAG ;#1, ABT_FLAG ; 1414 CLRL W^U.59 ;U.59 ; 1415 CLRL W^IBM_FLAG ;IBM_FLAG ; 1416 MOVL #17, W^IBM_CHAR ;#17, IBM_CHAR ; 1417 MOVL #1, W^TY_FIL ;#1, TY_FIL ; 1418 CLRL W^TY_PKT ;TY_PKT ; 1419 MOVL #1, W^FIL_NORMAL_FORM ;#1, FIL_NORMAL_FORM ; 1420 MOVAB W^GET_FILE, W^U.66 ;GET_FILE, U.66 ; 1421 MOVAB W^PUT_FILE, W^U.67 ;PUT_FILE, U.67 ; 1422 RET ; ; 1423 ; Routine Size: 190 bytes, Routine Base: $CODE$ + 0000 ; 1424 1 ; 1425 1 %SBTTL 'SND_ERROR' ; 1426 1 ; 1427 1 GLOBAL ROUTINE SND_ERROR (COUNT, ADDRESS) : NOVALUE = ; 1428 1 ; 1429 1 !++ ; 1430 1 ! FUNCTIONAL DESCRIPTION: ; 1431 1 ! ; 1432 1 ! This routine will send an error packet to the remote KERMIT. It ; 1433 1 ! is called with the count of characters and the address of the text. ; 1434 1 ! ; 1435 1 ! CALLING SEQUENCE: ; 1436 1 ! ; 1437 1 ! SND_ERROR(COUNT, %ASCII 'Error text'); ; 1438 1 ! ; 1439 1 ! INPUT PARAMETERS: ; 1440 1 ! ; 1441 1 ! None. ; 1442 1 ! ; 1443 1 ! IMPLICIT INPUTS: ; 1444 1 ! ; 1445 1 ! None. ; 1446 1 ! ; 1447 1 ! OUTPUT PARAMETERS: ; 1448 1 ! ; 1449 1 ! None. ; 1450 1 ! ; 1451 1 ! IMPLICIT OUTPUTS: ; 1452 1 ! ; 1453 1 ! None. ; 1454 1 ! ; 1455 1 ! COMPLETION CODES: ; 1456 1 ! ; 1457 1 ! None. ; 1458 1 ! ; 1459 1 ! SIDE EFFECTS: ; 1460 1 ! ; 1461 1 ! ; 1462 1 !-- ; 1463 1 ; 1464 2 BEGIN ; 1465 2 ! ; 1466 2 ! Pack the message into the buffer ; 1467 2 ! ; 1468 2 SET_STRING (CH$PTR (.ADDRESS), .COUNT, TRUE); ; 1469 2 BFR_FILL (TRUE); ; 1470 2 SET_STRING (0, 0, FALSE); ; 1471 2 ! ; 1472 2 ! Save the last error message also ; 1473 2 ! ; 1474 2 ; 1475 2 IF .COUNT GTR MAX_MSG THEN COUNT = MAX_MSG; ; 1476 2 ; 1477 2 CH$COPY (.COUNT, CH$PTR (.ADDRESS), 0, MAX_MSG + 1, CH$PTR (LAST_ERROR)); ; 1478 2 ; 1479 2 IF NOT SEND_PACKET (MSG_ERROR, .SIZE, .MSG_NUMBER) THEN RETURN KER_ABORTED; ; 1480 2 ; 1481 1 END; ! End of SND_ERROR .ENTRY SND_ERROR, ^M ;SND_ERROR, Save R2,R3,R4,R5 ; 1427 PUSHL #1 ;#1 ; 1468 PUSHL 4(AP) ;COUNT ; PUSHL 8(AP) ;ADDRESS ; CALLS #3, W^U.30 ;#3, U.30 ; PUSHL #1 ;#1 ; 1469 CALLS #1, W^U.29 ;#1, U.29 ; CLRQ -(SP) ;-(SP) ; 1470 CLRL -(SP) ;-(SP) ; CALLS #3, W^U.30 ;#3, U.30 ; CMPL 4(AP), #96 ;COUNT, #96 ; 1475 BLEQ 1$ ;1$ ; MOVZBL #96, 4(AP) ;#96, COUNT ; 1$: MOVC5 4(AP), @8(AP), #0, #97, W^LAST_ERROR ;COUNT, @ADDRESS, #0, #97, LAST_ERROR ; 1477 PUSHL W^U.53 ;U.53 ; 1479 PUSHL W^U.50 ;U.50 ; MOVZBL #69, -(SP) ;#69, -(SP) ; CALLS #3, W^U.24 ;#3, U.24 ; RET ; ; 1481 ; Routine Size: 76 bytes, Routine Base: $CODE$ + 00BE ; 1482 1 ; 1483 1 %SBTTL 'SERVER - Server mode' ; 1484 1 ; 1485 1 GLOBAL ROUTINE SERVER = ; 1486 1 ; 1487 1 !++ ; 1488 1 ! FUNCTIONAL DESCRIPTION: ; 1489 1 ! ; 1490 1 ! This routine will handle the server function in the v2.0 protocol ; 1491 1 ! for KERMIT. This routine by it's nature will call various operating ; 1492 1 ! system routines to do things like logging off the system. ; 1493 1 ! ; 1494 1 ! CALLING SEQUENCE: ; 1495 1 ! ; 1496 1 ! EXIT_FLAG = SERVER(); ; 1497 1 ! ; 1498 1 ! INPUT PARAMETERS: ; 1499 1 ! ; 1500 1 ! None. ; 1501 1 ! ; 1502 1 ! IMPLICIT INPUTS: ; 1503 1 ! ; 1504 1 ! None. ; 1505 1 ! ; 1506 1 ! OUTPUT PARAMETERS: ; 1507 1 ! ; 1508 1 ! None. ; 1509 1 ! ; 1510 1 ! IMPLICIT OUTPUTS: ; 1511 1 ! ; 1512 1 ! None. ; 1513 1 ! ; 1514 1 ! COMPLETION CODES: ; 1515 1 ! ; 1516 1 ! None. ; 1517 1 ! ; 1518 1 ! SIDE EFFECTS: ; 1519 1 ! ; 1520 1 ! None. ; 1521 1 ! ; 1522 1 !-- ; 1523 1 ; 1524 2 BEGIN ; 1525 2 ; 1526 2 LOCAL ; 1527 2 STATUS; ! Status returned by various routines ; 1528 2 ; 1529 2 DO ; 1530 3 BEGIN ; 1531 3 INIT_XFR (); ; 1532 3 XFR_STATUS (%C'T', %C'I'); ! Now idle ; 1533 3 STATUS = DO_TRANSACTION (STATE_ID); ; 1534 3 END ; 1535 2 UNTIL .STATUS EQL KER_EXIT OR .STATUS EQL KER_ABORTED; ; 1536 2 ; 1537 2 RETURN .STATUS; ; 1538 1 END; ! End of GLOBAL ROUTINE SERVER .ENTRY SERVER, ^M ;SERVER, Save R2 ; 1485 1$: CALLS #0, W^U.32 ;#0, U.32 ; 1531 MOVZBL #73, -(SP) ;#73, -(SP) ; 1532 MOVZBL #84, -(SP) ;#84, -(SP) ; CALLS #2, W^XFR_STATUS ;#2, XFR_STATUS ; PUSHL #14 ;#14 ; 1533 CALLS #1, W^U.1 ;#1, U.1 ; MOVL R0, R2 ;R0, STATUS ; CMPL R2, #134316203 ;STATUS, #134316203 ; 1535 BEQL 2$ ;2$ ; CMPL R2, #134316258 ;STATUS, #134316258 ; BNEQ 1$ ;1$ ; 2$: MOVL R2, R0 ;STATUS, R0 ; 1537 RET ; ; 1538 ; Routine Size: 52 bytes, Routine Base: $CODE$ + 010A ; 1539 1 ; 1540 1 %SBTTL 'SEND_SWITCH' ; 1541 1 ; 1542 1 GLOBAL ROUTINE SEND_SWITCH = ; 1543 1 ; 1544 1 !++ ; 1545 1 ! FUNCTIONAL DESCRIPTION: ; 1546 1 ! ; 1547 1 ! This routine is the state table switcher for sending files. It ; 1548 1 ! loops until either it is finished or an error is encountered. The ; 1549 1 ! routines called by SEND_SWITCH are responsible for changing the state. ; 1550 1 ! ; 1551 1 ! CALLING SEQUENCE: ; 1552 1 ! ; 1553 1 ! SEND_SWITCH(); ; 1554 1 ! ; 1555 1 ! INPUT PARAMETERS: ; 1556 1 ! ; 1557 1 ! None. ; 1558 1 ! ; 1559 1 ! IMPLICIT INPUTS: ; 1560 1 ! ; 1561 1 ! None. ; 1562 1 ! ; 1563 1 ! OUTPUT PARAMETERS: ; 1564 1 ! ; 1565 1 ! Returns: ; 1566 1 ! TRUE - File sent correctly. ; 1567 1 ! FALSE - Aborted sending the file. ; 1568 1 ! ; 1569 1 ! IMPLICIT OUTPUTS: ; 1570 1 ! ; 1571 1 ! None. ; 1572 1 ! ; 1573 1 ! COMPLETION CODES: ; 1574 1 ! ; 1575 1 ! None. ; 1576 1 ! ; 1577 1 ! SIDE EFFECTS: ; 1578 1 ! ; 1579 1 ! None. ; 1580 1 ! ; 1581 1 !-- ; 1582 1 ; 1583 2 BEGIN ; 1584 2 ; 1585 2 LOCAL ; 1586 2 STATUS; ! Status result ; 1587 2 ; 1588 2 IF .CONNECT_FLAG THEN SY_DISMISS (.DELAY); ! Sleep if the user wanted us to ; 1589 2 ; 1590 2 INIT_XFR (); ! Initialize for this transfer ; 1591 2 TEXT_HEAD_FLAG = FALSE; ! Set text flag correctly ; 1592 2 XFR_STATUS (%C'I', %C'S'); ! Start of file send ; 1593 2 STATUS = DO_TRANSACTION (STATE_S); ! Call routine to do real work ; 1594 2 XFR_STATUS (%C'T', %C'S'); ! Done with send ; 1595 2 RETURN .STATUS; ! Return the result ; 1596 1 END; .ENTRY SEND_SWITCH, ^M ;SEND_SWITCH, Save R2 ; 1542 BLBC W^CONNECT_FLAG, 1$ ;CONNECT_FLAG, 1$ ; 1588 PUSHL W^DELAY ;DELAY ; CALLS #1, W^SY_DISMISS ;#1, SY_DISMISS ; 1$: CALLS #0, W^U.32 ;#0, U.32 ; 1590 CLRL W^U.61 ;U.61 ; 1591 MOVZBL #83, -(SP) ;#83, -(SP) ; 1592 MOVZBL #73, -(SP) ;#73, -(SP) ; CALLS #2, W^XFR_STATUS ;#2, XFR_STATUS ; PUSHL #1 ;#1 ; 1593 CALLS #1, W^U.1 ;#1, U.1 ; MOVL R0, R2 ;R0, STATUS ; MOVZBL #83, -(SP) ;#83, -(SP) ; 1594 MOVZBL #84, -(SP) ;#84, -(SP) ; CALLS #2, W^XFR_STATUS ;#2, XFR_STATUS ; MOVL R2, R0 ;STATUS, R0 ; 1595 RET ; ; 1596 ; Routine Size: 65 bytes, Routine Base: $CODE$ + 013E ; 1597 1 ; 1598 1 %SBTTL 'REC_SWITCH' ; 1599 1 ; 1600 1 GLOBAL ROUTINE REC_SWITCH = ; 1601 1 ; 1602 1 !++ ; 1603 1 ! FUNCTIONAL DESCRIPTION: ; 1604 1 ! ; 1605 1 ! This routine will cause file(s) to be received by the remote ; 1606 1 ! KERMIT. This routine contains the main loop for the sending of the ; 1607 1 ! data. ; 1608 1 ! ; 1609 1 ! CALLING SEQUENCE: ; 1610 1 ! ; 1611 1 ! REC_SWITCH(); ; 1612 1 ! ; 1613 1 ! INPUT PARAMETERS: ; 1614 1 ! ; 1615 1 ! None. ; 1616 1 ! ; 1617 1 ! IMPLICIT INPUTS: ; 1618 1 ! ; 1619 1 ! FILE_DESC - Descriptor describing the file to be received by ; 1620 1 ! the remote KERMIT. ; 1621 1 ! ; 1622 1 ! OUTPUT PARAMETERS: ; 1623 1 ! ; 1624 1 ! None. ; 1625 1 ! ; 1626 1 ! IMPLICIT OUTPUTS: ; 1627 1 ! ; 1628 1 ! None. ; 1629 1 ! ; 1630 1 ! COMPLETION CODES: ; 1631 1 ! ; 1632 1 ! True - File received correctly. ; 1633 1 ! FALSE - File transfer aborted. ; 1634 1 ! ; 1635 1 ! SIDE EFFECTS: ; 1636 1 ! ; 1637 1 ! None. ; 1638 1 ! ; 1639 1 !-- ; 1640 1 ; 1641 2 BEGIN ; 1642 2 ; 1643 2 LOCAL ; 1644 2 INIT_STATE, ! State to start up DO_TRANSACTION in ; 1645 2 STATUS; ! Status returned by various routines ; 1646 2 ; 1647 2 INIT_STATE = STATE_R; ! Initialize the state ; 1648 2 MSG_NUMBER = 0; ; 1649 2 INIT_XFR (); ! Initialize the per transfer info ; 1650 2 ! ; 1651 2 ! Determine if they said REC ; 1652 2 ! Send MSG_RCV_INIT and then receive the file ; 1653 2 ! ; 1654 2 ; 1655 2 IF .FILE_SIZE GTR 0 ; 1656 2 THEN ; 1657 3 BEGIN ; 1658 3 GEN_TYPE = MSG_RCV_INIT; ! Use receive-init message ; 1659 3 CH$MOVE (.FILE_SIZE, CH$PTR (FILE_NAME), CH$PTR (GEN_1DATA)); ; 1660 3 GEN_1SIZE = .FILE_SIZE; ! Save the length ; 1661 3 INIT_STATE = STATE_SI; ! Start out with server init ; 1662 2 END; ; 1663 2 ; 1664 2 ! ; 1665 2 ! Now receive the file normally ; 1666 2 ! ; 1667 2 XFR_STATUS (%C'I', %C'R'); ! Start of a file receive ; 1668 2 STATUS = DO_TRANSACTION (.INIT_STATE); ; 1669 2 XFR_STATUS (%C'T', %C'R'); ! End of file receive ; 1670 2 RETURN .STATUS; ! Return the result ; 1671 1 END; ! End of REC_SWITCH .ENTRY REC_SWITCH, ^M ;REC_SWITCH, Save R2,R3,R4,R5,R6,R7 ; 1600 MOVL #6, R7 ;#6, INIT_STATE ; 1647 CLRL W^U.53 ;U.53 ; 1648 CALLS #0, W^U.32 ;#0, U.32 ; 1649 MOVL W^FILE_SIZE, R6 ;FILE_SIZE, R6 ; 1655 BLEQ 1$ ;1$ ; MOVZBL #82, W^U.64 ;#82, U.64 ; 1658 MOVC3 R6, W^FILE_NAME, W^GEN_1DATA ;R6, FILE_NAME, GEN_1DATA ; 1659 MOVL R6, W^GEN_1SIZE ;R6, GEN_1SIZE ; 1660 MOVL #13, R7 ;#13, INIT_STATE ; 1661 1$: MOVZBL #82, -(SP) ;#82, -(SP) ; 1667 MOVZBL #73, -(SP) ;#73, -(SP) ; CALLS #2, W^XFR_STATUS ;#2, XFR_STATUS ; PUSHL R7 ;INIT_STATE ; 1668 CALLS #1, W^U.1 ;#1, U.1 ; MOVL R0, R2 ;R0, STATUS ; MOVZBL #82, -(SP) ;#82, -(SP) ; 1669 MOVZBL #84, -(SP) ;#84, -(SP) ; CALLS #2, W^XFR_STATUS ;#2, XFR_STATUS ; MOVL R2, R0 ;STATUS, R0 ; 1670 RET ; ; 1671 ; Routine Size: 83 bytes, Routine Base: $CODE$ + 017F ; 1672 1 ; 1673 1 %SBTTL 'Server -- DO_GENERIC - Execute a generic command' ; 1674 1 ; 1675 1 GLOBAL ROUTINE DO_GENERIC (TYPE) = ; 1676 1 ; 1677 1 !++ ; 1678 1 ! FUNCTIONAL DESCRIPTION: ; 1679 1 ! ; 1680 1 ! This routine will send a generic command to the remote Kermit. ; 1681 1 ! it will do all the processing required for the generic command ; 1682 1 ! that was executed. It will return to the caller after the ; 1683 1 ! command has be executed. ; 1684 1 ! ; 1685 1 ! CALLING SEQUENCE: ; 1686 1 ! ; 1687 1 ! STATUS = DO_GENERIC (Command-type); ; 1688 1 ! ; 1689 1 ! INPUT PARAMETERS: ; 1690 1 ! ; 1691 1 ! Command-type -- Command type to be executed. ; 1692 1 ! ; 1693 1 ! IMPLICIT INPUTS: ; 1694 1 ! ; 1695 1 ! None. ; 1696 1 ! ; 1697 1 ! OUTPUT PARAMETERS: ; 1698 1 ! ; 1699 1 ! None. ; 1700 1 ! ; 1701 1 ! IMPLICIT OUTPUTS: ; 1702 1 ! ; 1703 1 ! None. ; 1704 1 ! ; 1705 1 ! COMPLETION CODES: ; 1706 1 ! ; 1707 1 ! None. ; 1708 1 ! ; 1709 1 ! SIDE EFFECTS: ; 1710 1 ! ; 1711 1 ! None. ; 1712 1 ! ; 1713 1 !-- ; 1714 1 ; 1715 2 BEGIN ; 1716 2 ; 1717 2 LOCAL ; 1718 2 INIT_STATE; ! Initial state for FSM ; 1719 2 ; 1720 2 ! ; 1721 2 ! Set up the per transfer items ; 1722 2 ! ; 1723 2 INIT_XFR (); ; 1724 2 NUM_RETRIES = 0; ; 1725 2 MSG_NUMBER = 0; ; 1726 2 ! ; 1727 2 ! These are all generic commands ; 1728 2 ! ; 1729 2 GEN_TYPE = MSG_GENERIC; ; 1730 2 ! ; 1731 2 ! Assume we will not need server init ; 1732 2 ! ; 1733 2 INIT_STATE = STATE_SG; ; 1734 2 ; 1735 2 CASE .TYPE FROM GC_MIN TO GC_MAX OF ; 1736 2 SET ; 1737 2 ; 1738 2 [GC_EXIT] : ; 1739 2 GEN_SUBTYPE = MSG_GEN_EXIT; ; 1740 2 ; 1741 2 [GC_LOGOUT] : ; 1742 2 GEN_SUBTYPE = MSG_GEN_LOGOUT; ; 1743 2 ; 1744 2 [GC_DIRECTORY] : ; 1745 3 BEGIN ; 1746 3 INIT_STATE = STATE_SI; ! We will need server-init ; 1747 3 GEN_SUBTYPE = MSG_GEN_DIRECTORY; ; 1748 2 END; ; 1749 2 ; 1750 2 [GC_DISK_USAGE] : ; 1751 3 BEGIN ; 1752 3 INIT_STATE = STATE_SI; ! We will need server-init ; 1753 3 GEN_SUBTYPE = MSG_GEN_DISK_USAGE; ; 1754 2 END; ; 1755 2 ; 1756 2 [GC_DELETE] : ; 1757 2 GEN_SUBTYPE = MSG_GEN_DELETE; ; 1758 2 ; 1759 2 [GC_TYPE] : ; 1760 3 BEGIN ; 1761 3 INIT_STATE = STATE_SI; ! We will need server-init ; 1762 3 GEN_SUBTYPE = MSG_GEN_TYPE; ; 1763 2 END; ; 1764 2 ; 1765 2 [GC_HELP] : ; 1766 3 BEGIN ; 1767 3 INIT_STATE = STATE_SI; ! We will need server-init ; 1768 3 GEN_SUBTYPE = MSG_GEN_HELP; ; 1769 2 END; ; 1770 2 ; 1771 2 [GC_LGN] : ; 1772 2 GEN_SUBTYPE = MSG_GEN_LOGIN; ! Login just gets ACK ; 1773 2 ; 1774 2 [GC_CONNECT] : ; 1775 2 GEN_SUBTYPE = MSG_GEN_CONNECT; ! CWD just gets ACK ; 1776 2 ; 1777 2 [GC_RENAME] : ; 1778 2 GEN_SUBTYPE = MSG_GEN_RENAME; ! Rename file just needs ACK ; 1779 2 ; 1780 2 [GC_COPY] : ; 1781 2 GEN_SUBTYPE = MSG_GEN_COPY; ! Copy file just needs ACK ; 1782 2 ; 1783 2 [GC_WHO] : ; 1784 3 BEGIN ; 1785 3 INIT_STATE = STATE_SI; ! May get large response ; 1786 3 GEN_SUBTYPE = MSG_GEN_WHO; ; 1787 2 END; ; 1788 2 ; 1789 2 [GC_SEND_MSG] : ; 1790 2 GEN_SUBTYPE = MSG_GEN_SEND; ! Just need an ACK ; 1791 2 ; 1792 2 [GC_STATUS] : ; 1793 3 BEGIN ; 1794 3 INIT_STATE = STATE_SI; ! May get large response ; 1795 3 GEN_SUBTYPE = MSG_GEN_QUERY; ; 1796 2 END; ; 1797 2 ; 1798 2 [GC_COMMAND] : ; 1799 3 BEGIN ; 1800 3 INIT_STATE = STATE_SI; ! Large response likely ; 1801 3 GEN_TYPE = MSG_COMMAND; ! This is host command ; 1802 2 END; ; 1803 2 ; 1804 2 [GC_KERMIT] : ; 1805 2 GEN_TYPE = MSG_KERMIT; ! Perform Kermit command (short response) ; 1806 2 ; 1807 2 [GC_PROGRAM] : ; 1808 3 BEGIN ; 1809 3 INIT_STATE = STATE_SI; ! Assume large response ; 1810 3 GEN_SUBTYPE = MSG_GEN_PROGRAM; ! Generic program command ; 1811 2 END; ; 1812 2 ; 1813 2 [GC_JOURNAL] : ; 1814 2 GEN_SUBTYPE = MSG_GEN_JOURNAL; ! Do journal function (short reply) ; 1815 2 ; 1816 2 [GC_VARIABLE] : ; 1817 2 GEN_SUBTYPE = MSG_GEN_VARIABLE; ! Set or get a variable value ; 1818 2 ; 1819 2 [INRANGE, OUTRANGE] : ; 1820 3 BEGIN ; 1821 3 KRM_ERROR (KER_UNIMPLGEN); ; 1822 3 RETURN STATE_A; ; 1823 2 END; ; 1824 2 TES; ; 1825 2 ; 1826 2 RETURN DO_TRANSACTION (.INIT_STATE); ! Go do the command ; 1827 1 END; ! End of DO_GENERIC .ENTRY DO_GENERIC, ^M ;DO_GENERIC, Save R2,R3 ; 1675 MOVAB W^U.65, R3 ;U.65, R3 ; CALLS #0, W^U.32 ;#0, U.32 ; 1723 CLRQ -236(R3) ;NUM_RETRIES ; 1724 MOVZBL #71, -4(R3) ;#71, GEN_TYPE ; 1729 MOVL #12, R2 ;#12, INIT_STATE ; 1733 CASEL 4(AP), #1, #18 ;TYPE, #1, #18 ; 1735 1$: .WORD 2$-1$,- ;2$-1$,- ; 4$-1$,- ;4$-1$,- ; 5$-1$,- ;5$-1$,- ; 6$-1$,- ;6$-1$,- ; 7$-1$,- ;7$-1$,- ; 8$-1$,- ;8$-1$,- ; 3$-1$,- ;3$-1$,- ; 9$-1$,- ;9$-1$,- ; 10$-1$,- ;10$-1$,- ; 11$-1$,- ;11$-1$,- ; 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 ; 1821 CALLS #1, W^KRM_ERROR ;#1, KRM_ERROR ; MOVL #10, R0 ;#10, R0 ; 1822 RET ; ; 2$: MOVZBL #70, (R3) ;#70, GEN_SUBTYPE ; 1739 BRB 20$ ;20$ ; 3$: MOVZBL #76, (R3) ;#76, GEN_SUBTYPE ; 1742 BRB 22$ ;22$ ; 4$: MOVL #13, R2 ;#13, INIT_STATE ; 1746 MOVZBL #68, (R3) ;#68, GEN_SUBTYPE ; 1747 BRB 22$ ;22$ ; 1735 5$: MOVL #13, R2 ;#13, INIT_STATE ; 1752 MOVZBL #85, (R3) ;#85, GEN_SUBTYPE ; 1753 BRB 22$ ;22$ ; 1735 6$: MOVZBL #69, (R3) ;#69, GEN_SUBTYPE ; 1757 BRB 22$ ;22$ ; 7$: MOVL #13, R2 ;#13, INIT_STATE ; 1761 MOVZBL #84, (R3) ;#84, GEN_SUBTYPE ; 1762 BRB 22$ ;22$ ; 1735 8$: MOVL #13, R2 ;#13, INIT_STATE ; 1767 MOVZBL #72, (R3) ;#72, GEN_SUBTYPE ; 1768 BRB 22$ ;22$ ; 1735 9$: MOVZBL #73, (R3) ;#73, GEN_SUBTYPE ; 1772 BRB 22$ ;22$ ; 10$: MOVZBL #67, (R3) ;#67, GEN_SUBTYPE ; 1775 BRB 22$ ;22$ ; 11$: MOVZBL #82, (R3) ;#82, GEN_SUBTYPE ; 1778 BRB 22$ ;22$ ; 12$: MOVZBL #75, (R3) ;#75, GEN_SUBTYPE ; 1781 BRB 22$ ;22$ ; 13$: MOVL #13, R2 ;#13, INIT_STATE ; 1785 MOVZBL #87, (R3) ;#87, GEN_SUBTYPE ; 1786 BRB 22$ ;22$ ; 1735 14$: MOVZBL #77, (R3) ;#77, GEN_SUBTYPE ; 1790 BRB 22$ ;22$ ; 15$: MOVL #13, R2 ;#13, INIT_STATE ; 1794 MOVZBL #81, (R3) ;#81, GEN_SUBTYPE ; 1795 BRB 22$ ;22$ ; 1735 16$: MOVL #13, R2 ;#13, INIT_STATE ; 1800 MOVZBL #67, -4(R3) ;#67, GEN_TYPE ; 1801 BRB 22$ ;22$ ; 1735 17$: MOVZBL #75, -4(R3) ;#75, GEN_TYPE ; 1805 BRB 22$ ;22$ ; 18$: MOVL #13, R2 ;#13, INIT_STATE ; 1809 MOVZBL #80, (R3) ;#80, GEN_SUBTYPE ; 1810 BRB 22$ ;22$ ; 1735 19$: MOVZBL #74, (R3) ;#74, GEN_SUBTYPE ; 1814 20$: BRB 22$ ;22$ ; 21$: MOVZBL #86, (R3) ;#86, GEN_SUBTYPE ; 1817 22$: PUSHL R2 ;INIT_STATE ; 1826 CALLS #1, W^U.1 ;#1, U.1 ; RET ; ; 1827 ; Routine Size: 228 bytes, Routine Base: $CODE$ + 01D2 ; 1828 1 ; 1829 1 %SBTTL 'DO_TRANSACTION - Main loop for FSM' ; 1830 1 ROUTINE DO_TRANSACTION (INIT_STATE) = ; 1831 1 ; 1832 1 !++ ; 1833 1 ! FUNCTIONAL DESCRIPTION: ; 1834 1 ! ; 1835 1 ! This is the main routine for performing a Kermit transaction. ; 1836 1 ! It is structured as a finite state machine with each state ; 1837 1 ! determining the next based upon the packet which is received. ; 1838 1 ! It is supplied with the initial state by the caller. ; 1839 1 ! ; 1840 1 ! CALLING SEQUENCE: ; 1841 1 ! ; 1842 1 ! Status = DO_TRANSACTION(.INIT_STATE); ; 1843 1 ! ; 1844 1 ! INPUT PARAMETERS: ; 1845 1 ! ; 1846 1 ! INIT_STATE - Initial state. ; 1847 1 ! ; 1848 1 ! IMPLICIT INPUTS: ; 1849 1 ! ; 1850 1 ! None. ; 1851 1 ! ; 1852 1 ! OUTPUT PARAMETERS: ; 1853 1 ! ; 1854 1 ! None. ; 1855 1 ! ; 1856 1 ! IMPLICIT OUTPUTS: ; 1857 1 ! ; 1858 1 ! None. ; 1859 1 ! ; 1860 1 ! COMPLETION CODES: ; 1861 1 ! ; 1862 1 ! None. ; 1863 1 ! ; 1864 1 ! SIDE EFFECTS: ; 1865 1 ! ; 1866 1 ! None. ; 1867 1 ! ; 1868 1 !-- ; 1869 1 ; 1870 2 BEGIN ; 1871 2 ; 1872 2 LOCAL ; 1873 2 RETURN_VALUE; ; 1874 2 ; 1875 2 NUM_RETRIES = 0; ! Initialize the number of retries ; 1876 2 STATE = .INIT_STATE; ! Initialize the state ; 1877 2 ; 1878 2 WHILE TRUE DO ; 1879 2 ; 1880 2 CASE .STATE FROM STATE_MIN TO STATE_MAX OF ; 1881 2 SET ; 1882 2 ! ; 1883 2 ! Send states ; 1884 2 ! ; 1885 2 ; 1886 2 [STATE_ID] : ; 1887 2 ! ; 1888 2 ! Server while idle. Set the timeout to twice the normal wait ; 1889 2 ! and wait for something to show up ; 1890 2 ! ; 1891 3 BEGIN ; 1892 3 ; 1893 3 LOCAL ; 1894 3 SAVED_TIMEOUT; ; 1895 3 ; 1896 3 SAVED_TIMEOUT = .SEND_TIMEOUT; ; 1897 3 ; 1898 3 IF .SEND_TIMEOUT NEQ 0 THEN SEND_TIMEOUT = .SRV_TIMEOUT; ; 1899 3 ; 1900 3 STATE = REC_SERVER_IDLE (); ; 1901 3 SEND_TIMEOUT = .SAVED_TIMEOUT; ; 1902 2 END; ; 1903 2 ; 1904 2 [STATE_II] : ; 1905 2 ! ; 1906 2 ! Here while server idle after having received a server-init packet ; 1907 2 ! ; 1908 2 STATE = REC_SERVER_IDLE (); ; 1909 2 ; 1910 2 [STATE_FI, STATE_LG] : ; 1911 2 ! ; 1912 2 ! Here when we are supposed to exit ; 1913 2 ! ; 1914 2 RETURN KER_EXIT; ; 1915 2 ; 1916 2 [STATE_SD] : ; 1917 2 STATE = SEND_DATA (); ; 1918 2 ; 1919 2 [STATE_SF] : ; 1920 2 STATE = SEND_FILE (); ; 1921 2 ; 1922 2 [STATE_SZ] : ; 1923 2 STATE = SEND_EOF (); ; 1924 2 ; 1925 2 [STATE_S] : ; 1926 2 STATE = SEND_INIT (); ; 1927 2 ; 1928 2 [STATE_OF] : ; 1929 2 STATE = SEND_OPEN_FILE (); ; 1930 2 ; 1931 2 [STATE_SI] : ; 1932 2 STATE = SEND_SERVER_INIT (); ; 1933 2 ; 1934 2 [STATE_SG] : ; 1935 2 STATE = SEND_GENCMD (); ; 1936 2 ; 1937 2 [STATE_SB] : ; 1938 2 STATE = SEND_BREAK (); ; 1939 2 ! ; 1940 2 ! Receiving of the data and the end of file message. ; 1941 2 ! ; 1942 2 ; 1943 2 [STATE_RD] : ; 1944 2 STATE = REC_DATA (); ; 1945 2 ! ; 1946 2 ! Receiving the FILE information of the break to end the transfer of ; 1947 2 ! one or more files ; 1948 2 ! ; 1949 2 ; 1950 2 [STATE_RF] : ; 1951 2 STATE = REC_FILE (); ; 1952 2 ! ; 1953 2 ! Initialization for the receiving of a file ; 1954 2 ! ; 1955 2 ; 1956 2 [STATE_R] : ; 1957 2 STATE = REC_INIT (); ; 1958 2 ! ; 1959 2 ! Here if we have completed the receiving of the file ; 1960 2 ! ; 1961 2 ; 1962 2 [STATE_C] : ; 1963 3 BEGIN ; 1964 3 RETURN_VALUE = TRUE; ; 1965 3 EXITLOOP; ; 1966 2 END; ; 1967 2 ! ; 1968 2 ! Here if we aborted the transfer or we have gotten into some random ; 1969 2 ! state (internal KERMSG problem). ; 1970 2 ! ; 1971 2 ; 1972 2 [STATE_A, STATE_EX, STATE_ER, INRANGE, OUTRANGE] : ; 1973 3 BEGIN ; 1974 3 RETURN_VALUE = FALSE; ; 1975 3 ; 1976 3 IF .STATE EQL STATE_EX THEN RETURN_VALUE = KER_ABORTED; ; 1977 3 ; 1978 3 ! ; 1979 3 ! Determine if the file is still open and if so close it ; 1980 3 ! ; 1981 3 ; 1982 3 IF .FILE_OPEN_FLAG ; 1983 3 THEN ; 1984 4 BEGIN ; 1985 4 FILE_OPEN_FLAG = FALSE; ; 1986 4 ; 1987 4 IF ( NOT .CONNECT_FLAG) AND .TY_FIL ; 1988 4 THEN ; 1989 5 BEGIN ; 1990 5 TT_TEXT (UPLIT (%ASCIZ' [Aborted]')); ; 1991 5 TT_CRLF (); ; 1992 4 END; ; 1993 4 ; 1994 5 FILE_CLOSE (.ABT_FLAG AND (.STATE EQL STATE_A OR .STATE EQL STATE_EX OR .STATE ; 1995 4 EQL STATE_ER)); ; 1996 4 XFR_STATUS (%C'F', %C'A'); ; 1997 3 END; ; 1998 3 ; 1999 3 ! ; 2000 3 ! Give error if aborted due to too many retries ; 2001 3 ! ; 2002 3 ; 2003 3 IF .STATE EQL STATE_ER THEN KRM_ERROR (KER_RETRIES); ; 2004 3 ; 2005 3 EXITLOOP; ; 2006 2 END; ; 2007 2 TES; ; 2008 2 ; 2009 2 ! ; 2010 2 ! End the stats and return to the caller ; 2011 2 ! ; 2012 2 END_STATS (); ; 2013 2 ! ; 2014 2 RETURN .RETURN_VALUE; ; 2015 1 END; ! End of DO_TRANSACTION .PSECT $PLIT$,NOWRT,NOEXE,2 P.AAA: .ASCII \ [Aborted]\<0><0> ; ; .PSECT $CODE$,NOWRT,2 ;DO_TRANSACTION U.1: .WORD ^M ;Save R2,R3,R4,R5,R6 ; 1830 MOVAB W^SEND_TIMEOUT, R6 ;SEND_TIMEOUT, R6 ; MOVAB W^U.49, R5 ;U.49, R5 ; CLRL 12(R5) ;NUM_RETRIES ; 1875 MOVL 4(AP), (R5) ;INIT_STATE, STATE ; 1876 1$: CASEL (R5), #1, #19 ;STATE, #1, #19 ; 1880 2$: .WORD 18$-2$,- ;18$-2$,- ; 16$-2$,- ;16$-2$,- ; 15$-2$,- ;15$-2$,- ; 17$-2$,- ;17$-2$,- ; 22$-2$,- ;22$-2$,- ; 25$-2$,- ;25$-2$,- ; 24$-2$,- ;24$-2$,- ; 23$-2$,- ;23$-2$,- ; 28$-2$,- ;28$-2$,- ; 3$-2$,- ;3$-2$,- ; 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 ; 1974 CMPL (R5), #19 ;STATE, #19 ; 1976 BNEQ 4$ ;4$ ; MOVL #134316258, R3 ;#134316258, RETURN_VALUE ; 4$: BLBC 224(R5), 9$ ;FILE_OPEN_FLAG, 9$ ; 1982 CLRL 224(R5) ;FILE_OPEN_FLAG ; 1985 BLBS W^CONNECT_FLAG, 5$ ;CONNECT_FLAG, 5$ ; 1987 BLBC W^TY_FIL, 5$ ;TY_FIL, 5$ ; PUSHAB W^P.AAA ;P.AAA ; 1990 CALLS #1, W^TT_TEXT ;#1, TT_TEXT ; CALLS #0, W^TT_CRLF ;#0, TT_CRLF ; 1991 5$: MOVL (R5), R2 ;STATE, R2 ; 1994 CLRL R0 ;R0 ; CMPL R2, #10 ;R2, #10 ; BNEQ 6$ ;6$ ; INCL R0 ;R0 ; 6$: CLRL R1 ;R1 ; CMPL R2, #19 ;R2, #19 ; BNEQ 7$ ;7$ ; INCL R1 ;R1 ; 7$: BISL2 R0, R1 ;R0, R1 ; CLRL R0 ;R0 ; 1995 CMPL R2, #20 ;R2, #20 ; BNEQ 8$ ;8$ ; INCL R0 ;R0 ; 8$: BISL2 R1, R0 ;R1, R0 ; MCOML W^ABT_FLAG, R4 ;ABT_FLAG, R4 ; 1994 BICL3 R4, R0, -(SP) ;R4, R0, -(SP) ; CALLS #1, W^FILE_CLOSE ;#1, FILE_CLOSE ; MOVZBL #65, -(SP) ;#65, -(SP) ; 1996 MOVZBL #70, -(SP) ;#70, -(SP) ; CALLS #2, W^XFR_STATUS ;#2, XFR_STATUS ; 9$: CMPL (R5), #20 ;STATE, #20 ; 2003 BNEQ 10$ ;10$ ; PUSHL #134316194 ;#134316194 ; CALLS #1, W^KRM_ERROR ;#1, KRM_ERROR ; 10$: BRB 29$ ;29$ ; 1973 11$: MOVL (R6), R2 ;SEND_TIMEOUT, SAVED_TIMEOUT ; 1896 BEQL 12$ ;12$ ; 1898 MOVL W^SRV_TIMEOUT, (R6) ;SRV_TIMEOUT, SEND_TIMEOUT ; 12$: CALLS #0, W^U.10 ;#0, U.10 ; 1900 MOVL R0, (R5) ;R0, STATE ; MOVL R2, (R6) ;SAVED_TIMEOUT, SEND_TIMEOUT ; 1901 BRB 27$ ;27$ ; 1880 13$: CALLS #0, W^U.10 ;#0, U.10 ; 1908 BRB 26$ ;26$ ; 14$: MOVL #134316203, R0 ;#134316203, R0 ; 1914 RET ; ; 15$: CALLS #0, W^U.3 ;#0, U.3 ; 1917 BRB 26$ ;26$ ; 16$: CALLS #0, W^U.4 ;#0, U.4 ; 1920 BRB 26$ ;26$ ; 17$: CALLS #0, W^U.7 ;#0, U.7 ; 1923 BRB 26$ ;26$ ; 18$: CALLS #0, W^U.8 ;#0, U.8 ; 1926 BRB 26$ ;26$ ; 19$: CALLS #0, W^U.5 ;#0, U.5 ; 1929 BRB 26$ ;26$ ; 20$: CALLS #0, W^U.2 ;#0, U.2 ; 1932 BRB 26$ ;26$ ; 21$: CALLS #0, W^U.6 ;#0, U.6 ; 1935 BRB 26$ ;26$ ; 22$: CALLS #0, W^U.9 ;#0, U.9 ; 1938 BRB 26$ ;26$ ; 23$: CALLS #0, W^U.13 ;#0, U.13 ; 1944 BRB 26$ ;26$ ; 24$: CALLS #0, W^U.12 ;#0, U.12 ; 1951 BRB 26$ ;26$ ; 25$: CALLS #0, W^U.11 ;#0, U.11 ; 1957 26$: MOVL R0, (R5) ;R0, STATE ; 27$: BRW 1$ ;1$ ; 28$: MOVL #1, R3 ;#1, RETURN_VALUE ; 1964 29$: CALLS #0, W^U.18 ;#0, U.18 ; 2012 MOVL R3, R0 ;RETURN_VALUE, R0 ; 2014 RET ; ; 2015 ; Routine Size: 322 bytes, Routine Base: $CODE$ + 02B6 ; 2016 1 %SBTTL 'REC_SERVER_IDLE - Idle server state' ; 2017 1 ROUTINE REC_SERVER_IDLE = ; 2018 1 ; 2019 1 !++ ; 2020 1 ! FUNCTIONAL DESCRIPTION: ; 2021 1 ! ; 2022 1 ! This routine is called from DO_TRANSACTION when is the server idle ; 2023 1 ! state. It will receive a message and properly dispatch to the new ; 2024 1 ! state. ; 2025 1 ! ; 2026 1 ! CALLING SEQUENCE: ; 2027 1 ! ; 2028 1 ! STATE = REC_SERVER_IDLE (); ; 2029 1 ! ; 2030 1 ! INPUT PARAMETERS: ; 2031 1 ! ; 2032 1 ! None. ; 2033 1 ! ; 2034 1 ! IMPLICIT INPUTS: ; 2035 1 ! ; 2036 1 ! Almost everything. ; 2037 1 ! ; 2038 1 ! OUPTUT PARAMETERS: ; 2039 1 ! ; 2040 1 ! Routine value is new state for FSM ; 2041 1 ! ; 2042 1 ! IMPLICIT OUTPUTS: ; 2043 1 ! ; 2044 1 ! None. ; 2045 1 ! ; 2046 1 ! COMPLETION CODES: ; 2047 1 ! ; 2048 1 ! None. ; 2049 1 ! ; 2050 1 ! SIDE EFFECTS: ; 2051 1 ! ; 2052 1 ! None. ; 2053 1 ! ; 2054 1 !-- ; 2055 1 ; 2056 2 BEGIN ; 2057 2 ; 2058 2 LOCAL ; 2059 2 STATUS; ; 2060 2 ; 2061 2 STATUS = REC_PACKET (); ; 2062 2 ! ; 2063 2 ! Now determine what to do by the type of message we have receive. ; 2064 2 ! ; 2065 2 ; 2066 2 IF .STATUS EQL KER_ABORTED THEN RETURN STATE_EX; ; 2067 2 ; 2068 2 IF .STATUS ; 2069 2 THEN ; 2070 3 BEGIN ; 2071 3 ; 2072 3 SELECTONE .REC_TYPE OF ; 2073 3 SET ; 2074 3 ! ; 2075 3 ! Server initialization message received. ACK the ; 2076 3 ! message and continue. ; 2077 3 ! ; 2078 3 ; 2079 3 [MSG_SER_INIT] : ; 2080 4 BEGIN ; 2081 4 ; 2082 5 IF (STATUS = PRS_SEND_INIT ()) ; 2083 4 THEN ; 2084 5 BEGIN ; 2085 5 SET_SEND_INIT (); ; 2086 5 ; 2087 6 IF (STATUS = SEND_PACKET (MSG_ACK, P_SI_LENGTH, .REC_SEQ)) ; 2088 5 THEN ; 2089 6 BEGIN ; 2090 6 SND_PKT_SIZE = -.SEND_PKT_SIZE; ; 2091 6 SND_TIMEOUT = -.SEND_TIMEOUT; ; 2092 6 SND_NPAD = -.SEND_NPAD; ; 2093 6 SND_PADCHAR = -.SEND_PADCHAR; ; 2094 6 SND_EOL = -.SEND_EOL; ; 2095 6 SND_QUOTE_CHR = -.SEND_QUOTE_CHR; ; 2096 6 RCV_8QUOTE_CHR = .SEND_8QUOTE_CHR; ; 2097 6 CHKTYPE = .INI_CHK_TYPE; ; 2098 6 SET_REPT_CHR = .REPT_CHR; ; 2099 6 RETURN STATE_II; ! Now idle after INIT ; 2100 5 END; ; 2101 5 ; 2102 4 END; ; 2103 4 ; 2104 4 KRM_ERROR (KER_PROTOERR); ; 2105 4 RETURN STATE_A; ; 2106 3 END; ; 2107 3 ! ; 2108 3 ! Send init message received. We must ACK the message and ; 2109 3 ! then attempt to receive a file from the remote. ; 2110 3 ! ; 2111 3 ; 2112 3 [MSG_SND_INIT] : ; 2113 4 BEGIN ; 2114 4 MSG_NUMBER = (.REC_SEQ + 1) AND %O'77'; ; 2115 4 ; 2116 5 IF (STATUS = PRS_SEND_INIT ()) ; 2117 4 THEN ; 2118 5 BEGIN ; 2119 5 SET_SEND_INIT (); ; 2120 5 ! ; 2121 5 ! ACK the message then receive everything. ; 2122 5 ! ; 2123 5 ; 2124 5 IF SEND_PACKET (MSG_ACK, P_SI_LENGTH, .REC_SEQ) ; 2125 5 THEN ; 2126 6 BEGIN ; 2127 6 BLK_CHK_TYPE = .INI_CHK_TYPE; ! Switch to desired form of block check ; 2128 6 XFR_STATUS (%C'I', %C'R'); ! Start of file receive ; 2129 6 RETURN STATE_RF; ; 2130 5 END; ; 2131 5 ; 2132 4 END; ; 2133 4 ; 2134 4 KRM_ERROR (KER_PROTOERR); ; 2135 4 RETURN STATE_A; ; 2136 3 END; ; 2137 3 ! ; 2138 3 ! Here if we receive a receive init message. ; 2139 3 ! We will be sending a file to the other end. ; 2140 3 ! ; 2141 3 ; 2142 3 [MSG_RCV_INIT] : ; 2143 4 BEGIN ; 2144 4 ! ; 2145 4 ! Move the file specification if we received one ; 2146 4 ! ; 2147 4 SET_STRING (CH$PTR (FILE_NAME), MAX_FILE_NAME, TRUE); ; 2148 4 BFR_EMPTY (); ; 2149 4 FILE_SIZE = SET_STRING (0, 0, FALSE); ; 2150 4 CH$WCHAR (CHR_NUL, CH$PTR (FILE_NAME, .FILE_SIZE)); ; 2151 4 ; 2152 4 IF .FILE_SIZE GTR 0 ; 2153 4 THEN ; 2154 5 BEGIN ; 2155 5 XFR_STATUS (%C'I', %C'S'); ! Start of a file send ; 2156 5 RETURN STATE_S; ; 2157 4 END; ; 2158 4 ; 2159 4 KRM_ERROR (KER_PROTOERR); ; 2160 4 RETURN STATE_A; ; 2161 3 END; ; 2162 3 ! ; 2163 3 ! Generic KERMIT commands ; 2164 3 ! ; 2165 3 ; 2166 3 [MSG_GENERIC] : ; 2167 3 RETURN SERVER_GENERIC (); ; 2168 3 ! ; 2169 3 ! Host command ; 2170 3 ! ; 2171 3 ; 2172 3 [MSG_COMMAND] : ; 2173 3 RETURN HOST_COMMAND (); ; 2174 3 ! ; 2175 3 ! Kermit command ; 2176 3 ! ; 2177 3 ; 2178 3 [MSG_KERMIT] : ; 2179 3 RETURN KERMIT_COMMAND (); ; 2180 3 ! ; 2181 3 ! Unimplimented server routines ; 2182 3 ! ; 2183 3 ; 2184 3 [OTHERWISE] : ; 2185 4 BEGIN ; 2186 4 KRM_ERROR (KER_UNISRV); ; 2187 4 RETURN STATE_A; ; 2188 3 END; ; 2189 3 TES; ; 2190 3 ; 2191 2 END; ; 2192 2 ; 2193 2 ! ; 2194 2 ! If we get here, we must have gotten something random. Therefore, ; 2195 2 ! just send a NAK and remain in the current state (unless we have done this ; 2196 2 ! too many times). ; 2197 2 ! ; 2198 2 NUM_RETRIES = .NUM_RETRIES + 1; ; 2199 2 ; 2200 2 IF .NUM_RETRIES GTR .SI_RETRIES THEN RETURN STATE_A; ; 2201 2 ; 2202 2 IF SEND_PACKET (MSG_NAK, 0, 0) THEN RETURN .STATE ELSE RETURN STATE_EX; ; 2203 2 ; 2204 1 END; ! End of REC_SERVER_IDLE ;REC_SERVER_IDLE U.10: .WORD ^M ;Save R2,R3,R4,R5 ; 2017 MOVAB W^U.24, R5 ;U.24, R5 ; MOVAB W^U.54, R4 ;U.54, R4 ; CALLS #0, W^U.26 ;#0, U.26 ; 2061 MOVL R0, R3 ;R0, STATUS ; CMPL R3, #134316258 ;STATUS, #134316258 ; 2066 BNEQ 1$ ;1$ ; BRW 15$ ;15$ ; 1$: BLBS R3, 2$ ;STATUS, 2$ ; 2068 BRW 12$ ;12$ ; 2$: MOVL 8(R4), R2 ;REC_TYPE, R2 ; 2072 CMPL R2, #73 ;R2, #73 ; 2079 BNEQ 3$ ;3$ ; CALLS #0, W^U.21 ;#0, U.21 ; 2082 MOVL R0, R3 ;R0, STATUS ; BLBC R3, 4$ ;STATUS, 4$ ; CALLS #0, W^U.20 ;#0, U.20 ; 2085 PUSHL (R4) ;REC_SEQ ; 2087 PUSHL #9 ;#9 ; MOVZBL #89, -(SP) ;#89, -(SP) ; CALLS #3, (R5) ;#3, SEND_PACKET ; MOVL R0, R3 ;R0, STATUS ; BLBC R3, 4$ ;STATUS, 4$ ; MNEGL -60(R4), W^SND_PKT_SIZE ;SEND_PKT_SIZE, SND_PKT_SIZE ; 2090 MNEGL W^SEND_TIMEOUT, W^SND_TIMEOUT ;SEND_TIMEOUT, SND_TIMEOUT ; 2091 MNEGL -56(R4), W^SND_NPAD ;SEND_NPAD, SND_NPAD ; 2092 MNEGL -52(R4), W^SND_PADCHAR ;SEND_PADCHAR, SND_PADCHAR ; 2093 MNEGL -48(R4), W^SND_EOL ;SEND_EOL, SND_EOL ; 2094 MNEGL -44(R4), W^SND_QUOTE_CHR ;SEND_QUOTE_CHR, SND_QUOTE_CHR ; 2095 MOVL -40(R4), W^RCV_8QUOTE_CHR ;SEND_8QUOTE_CHR, RCV_8QUOTE_CHR ; 2096 MOVL -36(R4), W^CHKTYPE ;INI_CHK_TYPE, CHKTYPE ; 2097 MOVL -64(R4), W^SET_REPT_CHR ;REPT_CHR, SET_REPT_CHR ; 2098 MOVL #15, R0 ;#15, R0 ; 2099 RET ; ; 3$: CMPL R2, #83 ;R2, #83 ; 2112 BNEQ 5$ ;5$ ; ADDL3 #1, (R4), R0 ;#1, REC_SEQ, R0 ; 2114 EXTZV #0, #6, R0, -4(R4) ;#0, #6, R0, MSG_NUMBER ; CALLS #0, W^U.21 ;#0, U.21 ; 2116 MOVL R0, R3 ;R0, STATUS ; 4$: BLBC R3, 6$ ;STATUS, 6$ ; CALLS #0, W^U.20 ;#0, U.20 ; 2119 PUSHL (R4) ;REC_SEQ ; 2124 PUSHL #9 ;#9 ; MOVZBL #89, -(SP) ;#89, -(SP) ; CALLS #3, (R5) ;#3, SEND_PACKET ; BLBC R0, 6$ ;R0, 6$ ; MOVL -36(R4), -32(R4) ;INI_CHK_TYPE, BLK_CHK_TYPE ; 2127 MOVZBL #82, -(SP) ;#82, -(SP) ; 2128 MOVZBL #73, -(SP) ;#73, -(SP) ; CALLS #2, W^XFR_STATUS ;#2, XFR_STATUS ; MOVL #7, R0 ;#7, R0 ; 2129 RET ; ; 5$: CMPL R2, #82 ;R2, #82 ; 2142 BNEQ 8$ ;8$ ; PUSHL #1 ;#1 ; 2147 MOVZBL #132, -(SP) ;#132, -(SP) ; PUSHAB W^FILE_NAME ;FILE_NAME ; CALLS #3, W^U.30 ;#3, U.30 ; CALLS #0, W^U.28 ;#0, U.28 ; 2148 CLRQ -(SP) ;-(SP) ; 2149 CLRL -(SP) ;-(SP) ; CALLS #3, W^U.30 ;#3, U.30 ; MOVL R0, W^FILE_SIZE ;R0, FILE_SIZE ; MOVAB W^FILE_NAME, R0 ;FILE_NAME, R0 ; 2150 CLRB @W^FILE_SIZE[R0] ;@FILE_SIZE[R0] ; TSTL W^FILE_SIZE ;FILE_SIZE ; 2152 BLEQ 6$ ;6$ ; MOVZBL #83, -(SP) ;#83, -(SP) ; 2155 MOVZBL #73, -(SP) ;#73, -(SP) ; CALLS #2, W^XFR_STATUS ;#2, XFR_STATUS ; MOVL #1, R0 ;#1, R0 ; 2156 RET ; ; 6$: PUSHL #134316226 ;#134316226 ; 2159 7$: CALLS #1, W^KRM_ERROR ;#1, KRM_ERROR ; BRB 13$ ;13$ ; 2160 8$: CMPL R2, #71 ;R2, #71 ; 2166 BNEQ 9$ ;9$ ; CALLS #0, W^U.14 ;#0, U.14 ; 2167 RET ; ; 9$: CMPL R2, #67 ;R2, #67 ; 2172 BNEQ 10$ ;10$ ; CALLS #0, W^U.15 ;#0, U.15 ; 2173 RET ; ; 10$: CMPL R2, #75 ;R2, #75 ; 2178 BNEQ 11$ ;11$ ; CALLS #0, W^U.16 ;#0, U.16 ; 2179 RET ; ; 11$: PUSHL #134316218 ;#134316218 ; 2186 BRB 7$ ;7$ ; 12$: INCL -8(R4) ;NUM_RETRIES ; 2198 CMPL -8(R4), W^SI_RETRIES ;NUM_RETRIES, SI_RETRIES ; 2200 BLEQ 14$ ;14$ ; 13$: MOVL #10, R0 ;#10, R0 ; RET ; ; 14$: CLRQ -(SP) ;-(SP) ; 2202 MOVZBL #78, -(SP) ;#78, -(SP) ; CALLS #3, (R5) ;#3, SEND_PACKET ; BLBC R0, 15$ ;R0, 15$ ; MOVL -20(R4), R0 ;STATE, R0 ; RET ; ; 15$: MOVL #19, R0 ;#19, R0 ; RET ; ; 2204 ; Routine Size: 392 bytes, Routine Base: $CODE$ + 03F8 ; 2205 1 %SBTTL 'SEND_SERVER_INIT' ; 2206 1 ROUTINE SEND_SERVER_INIT = ; 2207 1 ; 2208 1 !++ ; 2209 1 ! FUNCTIONAL DESCRIPTION: ; 2210 1 ! ; 2211 1 ! This routine will send a server initialization message to the ; 2212 1 ! remote KERMIT. ; 2213 1 ! ; 2214 1 ! CALLING SEQUENCE: ; 2215 1 ! ; 2216 1 ! STATE = SEND_SERVER_INIT(); ; 2217 1 ! ; 2218 1 ! INPUT PARAMETERS: ; 2219 1 ! ; 2220 1 ! None. ; 2221 1 ! ; 2222 1 ! IMPLICIT INPUTS: ; 2223 1 ! ; 2224 1 ! RECV_xxx - desired receive parameters ; 2225 1 ! ; 2226 1 ! OUTPUT PARAMETERS: ; 2227 1 ! ; 2228 1 ! New state to change the finite state machine to. ; 2229 1 ! ; 2230 1 ! IMPLICIT OUTPUTS: ; 2231 1 ! ; 2232 1 ! SEND_xxx - Other Kermit's desired parameters ; 2233 1 ! ; 2234 1 ! COMPLETION CODES: ; 2235 1 ! ; 2236 1 ! None. ; 2237 1 ! ; 2238 1 ! SIDE EFFECTS: ; 2239 1 ! ; 2240 1 ! None. ; 2241 1 ! ; 2242 1 !-- ; 2243 1 ; 2244 2 BEGIN ; 2245 2 ; 2246 2 LOCAL ; 2247 2 OLD_OUTPUT, ! Saved terminal output routine ; 2248 2 STATUS; ! Status returned by various routines ; 2249 2 ; 2250 2 ![026] Local routine to ignore error message output ; 2251 2 ROUTINE IGNORE_ERROR (ADDRESS, LENGTH) = ; 2252 3 BEGIN ; 2253 3 RETURN TRUE; ; 2254 2 END; ;IGNORE_ERROR U.74: .WORD ^M<> ;Save nothing ; 2251 MOVL #1, R0 ;#1, R0 ; 2253 RET ; ; 2254 ; Routine Size: 6 bytes, Routine Base: $CODE$ + 0580 ; 2255 2 SET_SEND_INIT (); ; 2256 2 ![026] If too many tries, just give up. Maybe the other Kermit doesn't ; 2257 2 ![026] know what to do with this packet. ; 2258 2 ; 2259 2 IF .NUM_RETRIES GTR .SI_RETRIES THEN RETURN STATE_ER; ; 2260 2 ; 2261 2 ![026] ; 2262 2 ![026] Count the number of times we try this ; 2263 2 ![026] ; 2264 2 NUM_RETRIES = .NUM_RETRIES + 1; ; 2265 2 ; 2266 2 IF NOT SEND_PACKET (MSG_SER_INIT, P_SI_LENGTH, .MSG_NUMBER) THEN RETURN STATE_A; ; 2267 2 ; 2268 2 ![026] ; 2269 2 ![026] Determine if we received a packet it good condition. If we timed out ; 2270 2 ![026] just try again. If we get an error packet back, ignore it and ; 2271 2 ![026] just continue. The other Kermit must not support this packet. ; 2272 2 ![026] ; 2273 2 OLD_OUTPUT = TT_SET_OUTPUT (IGNORE_ERROR); ; 2274 2 STATUS = REC_PACKET (); ; 2275 2 TT_OUTPUT (); ; 2276 2 TT_SET_OUTPUT (.OLD_OUTPUT); ; 2277 2 ; 2278 2 IF .STATUS EQL KER_ERRMSG THEN RETURN STATE_SG; ; 2279 2 ; 2280 2 IF NOT .STATUS ; 2281 2 THEN ; 2282 2 ; 2283 4 IF NOT ((.STATUS EQL KER_ZEROLENMSG) OR (.STATUS EQL KER_TIMEOUT) OR (.STATUS EQL ; 2284 3 KER_CHKSUMERR)) ; 2285 2 THEN ; 2286 2 RETURN STATE_EX ; 2287 2 ELSE ; 2288 2 RETURN .STATE; ; 2289 2 ; 2290 2 ! ; 2291 2 ! Determine if the packet is good. ; 2292 2 ! ; 2293 2 ; 2294 2 IF .REC_TYPE EQL MSG_ACK AND .REC_SEQ EQL .MSG_NUMBER ; 2295 2 THEN ; 2296 3 BEGIN ; 2297 3 ! ; 2298 3 ! Here if we have an ACK for the initialization message that was just sent ; 2299 3 ! to the remote KERMIT. ; 2300 3 ! ; 2301 3 ; 2302 3 IF NOT (STATUS = PRS_SEND_INIT ()) THEN RETURN STATE_A; ; 2303 3 ; 2304 3 NUM_RETRIES = 0; ; 2305 3 INIT_PKT_SENT = TRUE; ! We have exchanged init's ; 2306 3 RETURN STATE_SG; ; 2307 2 END; ; 2308 2 ; 2309 2 ! ; 2310 2 ! If we haven't returned yet, we must have gotten an invalid response. ; 2311 2 ! Just stay in the same state so we try again ; 2312 2 ! ; 2313 2 RETURN .STATE; ; 2314 1 END; ;SEND_SERVER_INIT U.2: .WORD ^M ;Save R2,R3,R4 ; 2206 MOVAB W^U.52, R4 ;U.52, R4 ; CALLS #0, W^U.20 ;#0, U.20 ; 2255 CMPL (R4), W^SI_RETRIES ;NUM_RETRIES, SI_RETRIES ; 2259 BLEQ 1$ ;1$ ; MOVL #20, R0 ;#20, R0 ; RET ; ; 1$: INCL (R4) ;NUM_RETRIES ; 2264 PUSHL 4(R4) ;MSG_NUMBER ; 2266 PUSHL #9 ;#9 ; MOVZBL #73, -(SP) ;#73, -(SP) ; CALLS #3, W^U.24 ;#3, U.24 ; BLBC R0, 3$ ;R0, 3$ ; PUSHAB B^U.74 ;U.74 ; 2273 CALLS #1, W^TT_SET_OUTPUT ;#1, TT_SET_OUTPUT ; MOVL R0, R3 ;R0, OLD_OUTPUT ; CALLS #0, W^U.26 ;#0, U.26 ; 2274 MOVL R0, R2 ;R0, STATUS ; CALLS #0, W^TT_OUTPUT ;#0, TT_OUTPUT ; 2275 PUSHL R3 ;OLD_OUTPUT ; 2276 CALLS #1, W^TT_SET_OUTPUT ;#1, TT_SET_OUTPUT ; CMPL R2, #134316170 ;STATUS, #134316170 ; 2278 BEQL 5$ ;5$ ; BLBS R2, 2$ ;STATUS, 2$ ; 2280 CMPL R2, #134316234 ;STATUS, #134316234 ; 2283 BEQL 6$ ;6$ ; CMPL R2, #134316248 ;STATUS, #134316248 ; BEQL 6$ ;6$ ; CMPL R2, #134316178 ;STATUS, #134316178 ; BEQL 6$ ;6$ ; MOVL #19, R0 ;#19, R0 ; 2288 RET ; ; 2$: CMPL 16(R4), #89 ;REC_TYPE, #89 ; 2294 BNEQ 6$ ;6$ ; CMPL 8(R4), 4(R4) ;REC_SEQ, MSG_NUMBER ; BNEQ 6$ ;6$ ; CALLS #0, W^U.21 ;#0, U.21 ; 2302 MOVL R0, R2 ;R0, STATUS ; BLBS R2, 4$ ;STATUS, 4$ ; 3$: MOVL #10, R0 ;#10, R0 ; RET ; ; 4$: CLRL (R4) ;NUM_RETRIES ; 2304 MOVL #1, 228(R4) ;#1, INIT_PKT_SENT ; 2305 5$: MOVL #12, R0 ;#12, R0 ; 2306 RET ; ; 6$: MOVL -12(R4), R0 ;STATE, R0 ; 2313 RET ; ; 2314 ; Routine Size: 164 bytes, Routine Base: $CODE$ + 0586 ; 2315 1 %SBTTL 'SEND_DATA' ; 2316 1 ROUTINE SEND_DATA = ; 2317 1 ; 2318 1 !++ ; 2319 1 ! FUNCTIONAL DESCRIPTION: ; 2320 1 ! ; 2321 1 ! This routine will send a data message to the remote KERMIT. ; 2322 1 ! ; 2323 1 ! CALLING SEQUENCE: ; 2324 1 ! ; 2325 1 ! STATE = SEND_DATA(); ; 2326 1 ! ; 2327 1 ! INPUT PARAMETERS: ; 2328 1 ! ; 2329 1 ! None. ; 2330 1 ! ; 2331 1 ! IMPLICIT INPUTS: ; 2332 1 ! ; 2333 1 ! None. ; 2334 1 ! ; 2335 1 ! OUTPUT PARAMETERS: ; 2336 1 ! ; 2337 1 ! New state to change the finite state machine to. ; 2338 1 ! ; 2339 1 ! IMPLICIT OUTPUTS: ; 2340 1 ! ; 2341 1 ! None. ; 2342 1 ! ; 2343 1 ! COMPLETION CODES: ; 2344 1 ! ; 2345 1 ! None. ; 2346 1 ! ; 2347 1 ! SIDE EFFECTS: ; 2348 1 ! ; 2349 1 ! None. ; 2350 1 ! ; 2351 1 !-- ; 2352 1 ; 2353 2 BEGIN ; 2354 2 ; 2355 2 LOCAL ; 2356 2 SUB_TYPE, ! Subtype for XFR_STATUS call ; 2357 2 STATUS; ! Status returned by various routines ; 2358 2 ; 2359 2 ! ; 2360 2 ! If there is nothing in the data packet, we should not bother to send it. ; 2361 2 ! Instead, we will just call BFR_FILL again to get some more data ; 2362 2 ! ; 2363 2 ; 2364 2 IF .SIZE GTR 0 ; 2365 2 THEN ; 2366 3 BEGIN ; 2367 3 ! ; 2368 3 ! Check to see if the number of retries have been exceeded. ; 2369 3 ! ; 2370 3 ; 2371 3 IF .NUM_RETRIES GTR .PKT_RETRIES THEN RETURN STATE_ER; ; 2372 3 ; 2373 3 ! ; 2374 3 ! Not exceeded yet. Increment the number of retries we have attempted ; 2375 3 ! on this message. ; 2376 3 ! ; 2377 3 NUM_RETRIES = .NUM_RETRIES + 1; ; 2378 3 ! ; 2379 3 ! Attempt to send the packet and abort if the send fails. ; 2380 3 ! ; 2381 3 ; 2382 3 IF NOT SEND_PACKET (MSG_DATA, .SIZE, .MSG_NUMBER) THEN RETURN STATE_EX; ; 2383 3 ; 2384 3 ! ; 2385 3 ! Attempt to receive a message from the remote KERMIT. ; 2386 3 ! ; 2387 3 STATUS = REC_PACKET (); ; 2388 3 ; 2389 3 IF NOT .STATUS ; 2390 3 THEN ; 2391 4 BEGIN ; 2392 4 ; 2393 5 IF (.STATUS EQL KER_ZEROLENMSG) OR (.STATUS EQL KER_TIMEOUT) OR (.STATUS EQL ; 2394 5 KER_CHKSUMERR) ; 2395 4 THEN ; 2396 4 RETURN .STATE ; 2397 4 ELSE ; 2398 4 RETURN STATE_EX; ; 2399 4 ; 2400 3 END; ; 2401 3 ; 2402 3 ! ; 2403 3 ! Determine if the message is a NAK and the NAK is for the message number ; 2404 3 ! that we are current working on. If the NAK is for the next packet then ; 2405 3 ! treat it like an ACK for this packet ; 2406 3 ! ; 2407 3 ; 2408 4 IF .REC_TYPE EQL MSG_NAK AND (.REC_SEQ NEQ ((.MSG_NUMBER + 1) AND %O'77')) ; 2409 3 THEN ; 2410 3 RETURN .STATE; ; 2411 3 ; 2412 3 ! ; 2413 3 ! Make sure we have a NAK or ACK ; 2414 3 ! ; 2415 3 ; 2416 4 IF NOT (.REC_TYPE EQL MSG_ACK OR .REC_TYPE EQL MSG_NAK) ; 2417 3 THEN ; 2418 3 ! ; 2419 3 ! Not an ACK or NAK, abort. ; 2420 3 ! ; 2421 4 BEGIN ; 2422 4 KRM_ERROR (KER_PROTOERR); ; 2423 4 RETURN STATE_A; ; 2424 3 END; ; 2425 3 ; 2426 3 ! ; 2427 3 ! Is this for this message? ; 2428 3 ! ; 2429 3 ; 2430 3 IF .REC_TYPE EQL MSG_ACK AND .REC_SEQ NEQ .MSG_NUMBER THEN RETURN .STATE; ; 2431 3 ; 2432 3 ! ; 2433 3 ! It was. Set up for sending the next data message to the remote KERMIT ; 2434 3 ! and return. ; 2435 3 ! ; 2436 3 ! ; 2437 3 ! Check for data field in ACK indicating abort file or stream ; 2438 3 ! ; 2439 3 ! ; 2440 3 ; 2441 3 IF .REC_TYPE EQL MSG_ACK AND .REC_LENGTH EQL 1 ; 2442 3 THEN ; 2443 3 ; 2444 3 SELECTONE CH$RCHAR (CH$PTR (REC_MSG, PKT_MSG, CHR_SIZE)) OF ; 2445 3 SET ; 2446 3 ; 2447 3 [MSG_ACK_ABT_CUR] : ; 2448 3 ABT_CUR_FILE = TRUE; ; 2449 3 ; 2450 3 [MSG_ACK_ABT_ALL] : ; 2451 3 ABT_ALL_FILE = TRUE; ; 2452 3 TES; ; 2453 3 ; 2454 3 NUM_RETRIES = 0; ; 2455 3 MSG_NUMBER = (.MSG_NUMBER + 1) AND %O'77'; ; 2456 2 END; ! End of IF .SIZE GTR 0 ; 2457 2 ; 2458 3 IF (BFR_FILL (FALSE) EQL KER_NORMAL) AND NOT (.ABT_CUR_FILE OR .ABT_ALL_FILE) ; 2459 2 THEN ; 2460 2 RETURN STATE_SD ; 2461 2 ELSE ; 2462 3 BEGIN ; 2463 3 ; 2464 3 IF ( NOT .CONNECT_FLAG) AND .TY_FIL ; 2465 3 THEN ; 2466 4 BEGIN ; 2467 4 ; 2468 4 IF .ABT_ALL_FILE ; 2469 4 THEN ; 2470 4 TT_TEXT (UPLIT (%ASCIZ' [Group interrupted]')) ; 2471 4 ELSE ; 2472 4 ; 2473 4 IF .ABT_CUR_FILE ; 2474 4 THEN ; 2475 4 TT_TEXT (UPLIT (%ASCIZ' [Interrupted]')) ; 2476 4 ELSE ; 2477 4 TT_TEXT (UPLIT (%ASCIZ' [OK]')); ; 2478 4 ; 2479 4 TT_CRLF (); ; 2480 3 END; ; 2481 3 ; 2482 3 IF .FILE_OPEN_FLAG THEN FILE_CLOSE (FALSE); ; 2483 3 ; 2484 3 SUB_TYPE = %C'C'; ! Assume ok ; 2485 3 ; 2486 3 IF .ABT_ALL_FILE ; 2487 3 THEN ; 2488 3 SUB_TYPE = %C'Z' ; 2489 3 ELSE ; 2490 3 ; 2491 3 IF .ABT_CUR_FILE THEN SUB_TYPE = %C'X'; ; 2492 3 ; 2493 3 XFR_STATUS (%C'F', .SUB_TYPE); ; 2494 3 FILE_OPEN_FLAG = FALSE; ; 2495 3 RETURN STATE_SZ; ; 2496 2 END; ; 2497 2 ; 2498 1 END; .PSECT $PLIT$,NOWRT,NOEXE,2 P.AAB: .ASCII \ [Group interrupted]\<0><0><0><0> ; ; P.AAC: .ASCII \ [Interrupted]\<0><0> ; ; P.AAD: .ASCII \ [OK]\<0><0><0> ; ; .PSECT $CODE$,NOWRT,2 ;SEND_DATA U.3: .WORD ^M ;Save R2,R3,R4 ; 2316 MOVAB W^ABT_ALL_FILE, R4 ;ABT_ALL_FILE, R4 ; MOVAB W^ABT_CUR_FILE, R3 ;ABT_CUR_FILE, R3 ; MOVAB W^U.53, R2 ;U.53, R2 ; MOVL -12(R2), R0 ;SIZE, R0 ; 2364 BGTR 1$ ;1$ ; BRW 11$ ;11$ ; 1$: CMPL -4(R2), W^PKT_RETRIES ;NUM_RETRIES, PKT_RETRIES ; 2371 BLEQ 2$ ;2$ ; MOVL #20, R0 ;#20, R0 ; RET ; ; 2$: INCL -4(R2) ;NUM_RETRIES ; 2377 PUSHL (R2) ;MSG_NUMBER ; 2382 PUSHL R0 ;R0 ; MOVZBL #68, -(SP) ;#68, -(SP) ; CALLS #3, W^U.24 ;#3, U.24 ; BLBC R0, 3$ ;R0, 3$ ; CALLS #0, W^U.26 ;#0, U.26 ; 2387 BLBS R0, 4$ ;STATUS, 4$ ; 2389 CMPL R0, #134316234 ;STATUS, #134316234 ; 2393 BEQL 7$ ;7$ ; CMPL R0, #134316248 ;STATUS, #134316248 ; BEQL 7$ ;7$ ; CMPL R0, #134316178 ;STATUS, #134316178 ; BEQL 7$ ;7$ ; 3$: MOVL #19, R0 ;#19, R0 ; 2398 RET ; ; 4$: CLRL R1 ;R1 ; 2408 CMPL 12(R2), #78 ;REC_TYPE, #78 ; BNEQ 5$ ;5$ ; INCL R1 ;R1 ; ADDL3 #1, (R2), R0 ;#1, MSG_NUMBER, R0 ; CMPZV #0, #6, R0, 4(R2) ;#0, #6, R0, REC_SEQ ; BNEQ 7$ ;7$ ; 5$: CMPL 12(R2), #89 ;REC_TYPE, #89 ; 2416 BEQL 6$ ;6$ ; BLBS R1, 6$ ;R1, 6$ ; PUSHL #134316226 ;#134316226 ; 2422 CALLS #1, W^KRM_ERROR ;#1, KRM_ERROR ; MOVL #10, R0 ;#10, R0 ; 2423 RET ; ; 6$: CLRL R0 ;R0 ; 2430 CMPL 12(R2), #89 ;REC_TYPE, #89 ; BNEQ 8$ ;8$ ; INCL R0 ;R0 ; CMPL 4(R2), (R2) ;REC_SEQ, MSG_NUMBER ; BEQL 8$ ;8$ ; 7$: MOVL -16(R2), R0 ;STATE, R0 ; RET ; ; 8$: BLBC R0, 10$ ;R0, 10$ ; 2441 CMPL 8(R2), #1 ;REC_LENGTH, #1 ; BNEQ 10$ ;10$ ; MOVZBL 20(R2), R0 ;REC_MSG+4, R0 ; 2444 CMPB R0, #88 ;R0, #88 ; 2447 BNEQ 9$ ;9$ ; MOVL #1, (R3) ;#1, ABT_CUR_FILE ; 2448 BRB 10$ ;10$ ; 9$: CMPB R0, #90 ;R0, #90 ; 2450 BNEQ 10$ ;10$ ; MOVL #1, (R4) ;#1, ABT_ALL_FILE ; 2451 10$: CLRL -4(R2) ;NUM_RETRIES ; 2454 ADDL3 #1, (R2), R0 ;#1, MSG_NUMBER, R0 ; 2455 EXTZV #0, #6, R0, (R2) ;#0, #6, R0, MSG_NUMBER ; 11$: CLRL -(SP) ;-(SP) ; 2458 CALLS #1, W^U.29 ;#1, U.29 ; CMPL R0, #134316043 ;R0, #134316043 ; BNEQ 12$ ;12$ ; BLBS (R3), 12$ ;ABT_CUR_FILE, 12$ ; BLBS (R4), 12$ ;ABT_ALL_FILE, 12$ ; MOVL #3, R0 ;#3, R0 ; 2462 RET ; ; 12$: BLBS W^CONNECT_FLAG, 16$ ;CONNECT_FLAG, 16$ ; 2464 BLBC W^TY_FIL, 16$ ;TY_FIL, 16$ ; BLBC (R4), 13$ ;ABT_ALL_FILE, 13$ ; 2468 PUSHAB W^P.AAB ;P.AAB ; 2470 BRB 15$ ;15$ ; 13$: BLBC (R3), 14$ ;ABT_CUR_FILE, 14$ ; 2473 PUSHAB W^P.AAC ;P.AAC ; 2475 BRB 15$ ;15$ ; 14$: PUSHAB W^P.AAD ;P.AAD ; 2477 15$: CALLS #1, W^TT_TEXT ;#1, TT_TEXT ; CALLS #0, W^TT_CRLF ;#0, TT_CRLF ; 2479 16$: BLBC 208(R2), 17$ ;FILE_OPEN_FLAG, 17$ ; 2482 CLRL -(SP) ;-(SP) ; CALLS #1, W^FILE_CLOSE ;#1, FILE_CLOSE ; 17$: MOVZBL #67, R0 ;#67, SUB_TYPE ; 2484 BLBC (R4), 18$ ;ABT_ALL_FILE, 18$ ; 2486 MOVZBL #90, R0 ;#90, SUB_TYPE ; 2488 BRB 19$ ;19$ ; 18$: BLBC (R3), 19$ ;ABT_CUR_FILE, 19$ ; 2491 MOVZBL #88, R0 ;#88, SUB_TYPE ; 19$: PUSHL R0 ;SUB_TYPE ; 2493 MOVZBL #70, -(SP) ;#70, -(SP) ; CALLS #2, W^XFR_STATUS ;#2, XFR_STATUS ; CLRL 208(R2) ;FILE_OPEN_FLAG ; 2494 MOVL #4, R0 ;#4, R0 ; 2495 RET ; ; 2498 ; Routine Size: 339 bytes, Routine Base: $CODE$ + 062A ; 2499 1 %SBTTL 'SEND_FILE' ; 2500 1 ROUTINE SEND_FILE = ; 2501 1 ; 2502 1 !++ ; 2503 1 ! FUNCTIONAL DESCRIPTION: ; 2504 1 ! ; 2505 1 ! This routine will send the file specification that is being ; 2506 1 ! transfered, or it will send a text header message. ; 2507 1 ! ; 2508 1 ! CALLING SEQUENCE: ; 2509 1 ! ; 2510 1 ! STATE = SEND_FILE(); ; 2511 1 ! ; 2512 1 ! INPUT PARAMETERS: ; 2513 1 ! ; 2514 1 ! None. ; 2515 1 ! ; 2516 1 ! IMPLICIT INPUTS: ; 2517 1 ! ; 2518 1 ! TEXT_HEAD_FLAG - If true, send text header instead of file header ; 2519 1 ! ; 2520 1 ! OUTPUT PARAMETERS: ; 2521 1 ! ; 2522 1 ! New state to change the finite state machine to. ; 2523 1 ! ; 2524 1 ! IMPLICIT OUTPUTS: ; 2525 1 ! ; 2526 1 ! None. ; 2527 1 ! ; 2528 1 ! COMPLETION CODES: ; 2529 1 ! ; 2530 1 ! None. ; 2531 1 ! ; 2532 1 ! SIDE EFFECTS: ; 2533 1 ! ; 2534 1 ! None. ; 2535 1 ! ; 2536 1 !-- ; 2537 1 ; 2538 2 BEGIN ; 2539 2 ; 2540 2 LOCAL ; 2541 2 M_TYPE, ! Message type to send ; 2542 2 STATUS; ! Status returned by various routines ; 2543 2 ; 2544 2 ! ; 2545 2 ! Flag we don't want to abort yet ; 2546 2 ! ; 2547 2 ABT_CUR_FILE = FALSE; ; 2548 2 ABT_ALL_FILE = FALSE; ; 2549 2 ! ; 2550 2 ! First determine if we have exceed the number of retries that are ; 2551 2 ! allowed to attempt to send this message. ; 2552 2 ! ; 2553 2 ; 2554 2 IF .NUM_RETRIES GTR .PKT_RETRIES THEN RETURN STATE_ER; ; 2555 2 ; 2556 2 ! ; 2557 2 ! The number of retries are not exceeded. Increment the number and then ; 2558 2 ! attempt to send the packet again. ; 2559 2 ! ; 2560 2 NUM_RETRIES = .NUM_RETRIES + 1; ; 2561 2 SIZE = 0; ! Assume no name ; 2562 2 ; 2563 2 IF .TEXT_HEAD_FLAG THEN M_TYPE = MSG_TEXT ELSE M_TYPE = MSG_FILE; ; 2564 2 ; 2565 2 IF .FILE_SIZE NEQ 0 AND NOT .NO_FILE_NEEDED ; 2566 2 THEN ; 2567 3 BEGIN ; 2568 3 ![025] CH$MOVE (.FILE_SIZE, CH$PTR (FILE_NAME), ; 2569 3 ![025] CH$PTR (SND_MSG, PKT_MSG, ; 2570 3 ![025] CHR_SIZE)); ; 2571 3 ![025] ; 2572 3 ![025] Fill packet with file name ; 2573 3 ![025] ; 2574 3 SET_STRING (CH$PTR (FILE_NAME), .FILE_SIZE, TRUE); ; 2575 3 BFR_FILL (TRUE); ; 2576 3 SET_STRING (0, 0, FALSE); ; 2577 2 END; ; 2578 2 ; 2579 2 IF NOT SEND_PACKET (.M_TYPE, .SIZE, .MSG_NUMBER) THEN RETURN STATE_EX; ; 2580 2 ; 2581 2 ! ; 2582 2 ! Now get the responce from the remote KERMIT. ; 2583 2 ! ; 2584 2 STATUS = REC_PACKET (); ; 2585 2 ; 2586 2 IF NOT .STATUS ; 2587 2 THEN ; 2588 3 BEGIN ; 2589 3 ; 2590 4 IF (.STATUS EQL KER_ZEROLENMSG) OR (.STATUS EQL KER_TIMEOUT) OR (.STATUS EQL KER_CHKSUMERR) ; 2591 3 THEN ; 2592 3 RETURN .STATE ; 2593 3 ELSE ; 2594 3 RETURN STATE_EX; ; 2595 3 ; 2596 2 END; ; 2597 2 ; 2598 2 ! ; 2599 2 ! Determine if the packet is good. ; 2600 2 ! ; 2601 2 ; 2602 3 IF NOT (.REC_TYPE EQL MSG_ACK OR .REC_TYPE EQL MSG_NAK) ; 2603 2 THEN ; 2604 3 BEGIN ; 2605 3 KRM_ERROR (KER_PROTOERR); ; 2606 3 RETURN STATE_A; ; 2607 2 END; ; 2608 2 ; 2609 2 ! ; 2610 2 ! If this is a NAK and the message number is not the one we just send ; 2611 2 ! treat this like an ACK, otherwise resend the last packet. ; 2612 2 ! ; 2613 2 ; 2614 2 IF .REC_TYPE EQL MSG_NAK AND (.REC_SEQ NEQ ((.MSG_NUMBER + 1) AND %O'77')) THEN RETURN .STATE; ; 2615 2 ; 2616 2 IF .REC_TYPE EQL MSG_ACK AND .REC_SEQ NEQ .MSG_NUMBER THEN RETURN .STATE; ; 2617 2 ; 2618 2 ! ; 2619 2 ! If all is ok, bump the message number and fill first buffer ; 2620 2 ! ; 2621 2 NUM_RETRIES = 0; ; 2622 2 MSG_NUMBER = (.MSG_NUMBER + 1) AND %O'77'; ; 2623 2 ; 2624 2 IF BFR_FILL (TRUE) THEN RETURN STATE_SD ELSE RETURN STATE_A; ; 2625 2 ; 2626 1 END; ! End of SEND_FILE ;SEND_FILE U.4: .WORD ^M ;Save R2,R3 ; 2500 MOVAB W^U.53, R3 ;U.53, R3 ; CLRL W^ABT_CUR_FILE ;ABT_CUR_FILE ; 2547 CLRL W^ABT_ALL_FILE ;ABT_ALL_FILE ; 2548 CMPL -4(R3), W^PKT_RETRIES ;NUM_RETRIES, PKT_RETRIES ; 2554 BLEQ 1$ ;1$ ; MOVL #20, R0 ;#20, R0 ; RET ; ; 1$: INCL -4(R3) ;NUM_RETRIES ; 2560 CLRL -12(R3) ;SIZE ; 2561 BLBC 216(R3), 2$ ;TEXT_HEAD_FLAG, 2$ ; 2563 MOVZBL #88, R2 ;#88, M_TYPE ; BRB 3$ ;3$ ; 2$: MOVZBL #70, R2 ;#70, M_TYPE ; 3$: MOVL W^FILE_SIZE, R0 ;FILE_SIZE, R0 ; 2565 BEQL 4$ ;4$ ; BLBS 220(R3), 4$ ;NO_FILE_NEEDED, 4$ ; PUSHL #1 ;#1 ; 2574 PUSHL R0 ;R0 ; PUSHAB W^FILE_NAME ;FILE_NAME ; CALLS #3, W^U.30 ;#3, U.30 ; PUSHL #1 ;#1 ; 2575 CALLS #1, W^U.29 ;#1, U.29 ; CLRQ -(SP) ;-(SP) ; 2576 CLRL -(SP) ;-(SP) ; CALLS #3, W^U.30 ;#3, U.30 ; 4$: PUSHL (R3) ;MSG_NUMBER ; 2579 PUSHL -12(R3) ;SIZE ; PUSHL R2 ;M_TYPE ; CALLS #3, W^U.24 ;#3, U.24 ; BLBC R0, 5$ ;R0, 5$ ; CALLS #0, W^U.26 ;#0, U.26 ; 2584 BLBS R0, 6$ ;STATUS, 6$ ; 2586 CMPL R0, #134316234 ;STATUS, #134316234 ; 2590 BEQL 9$ ;9$ ; CMPL R0, #134316248 ;STATUS, #134316248 ; BEQL 9$ ;9$ ; CMPL R0, #134316178 ;STATUS, #134316178 ; BEQL 9$ ;9$ ; 5$: MOVL #19, R0 ;#19, R0 ; 2594 RET ; ; 6$: CMPL 12(R3), #89 ;REC_TYPE, #89 ; 2602 BEQL 7$ ;7$ ; CMPL 12(R3), #78 ;REC_TYPE, #78 ; BEQL 7$ ;7$ ; PUSHL #134316226 ;#134316226 ; 2605 CALLS #1, W^KRM_ERROR ;#1, KRM_ERROR ; BRB 11$ ;11$ ; 2606 7$: CMPL 12(R3), #78 ;REC_TYPE, #78 ; 2614 BNEQ 8$ ;8$ ; ADDL3 #1, (R3), R0 ;#1, MSG_NUMBER, R0 ; CMPZV #0, #6, R0, 4(R3) ;#0, #6, R0, REC_SEQ ; BNEQ 9$ ;9$ ; 8$: CMPL 12(R3), #89 ;REC_TYPE, #89 ; 2616 BNEQ 10$ ;10$ ; CMPL 4(R3), (R3) ;REC_SEQ, MSG_NUMBER ; BEQL 10$ ;10$ ; 9$: MOVL -16(R3), R0 ;STATE, R0 ; RET ; ; 10$: CLRL -4(R3) ;NUM_RETRIES ; 2621 ADDL3 #1, (R3), R0 ;#1, MSG_NUMBER, R0 ; 2622 EXTZV #0, #6, R0, (R3) ;#0, #6, R0, MSG_NUMBER ; PUSHL #1 ;#1 ; 2624 CALLS #1, W^U.29 ;#1, U.29 ; BLBC R0, 11$ ;R0, 11$ ; MOVL #3, R0 ;#3, R0 ; RET ; ; 11$: MOVL #10, R0 ;#10, R0 ; RET ; ; 2626 ; Routine Size: 249 bytes, Routine Base: $CODE$ + 077D ; 2627 1 %SBTTL 'SEND_EOF' ; 2628 1 ROUTINE SEND_EOF = ; 2629 1 ; 2630 1 !++ ; 2631 1 ! FUNCTIONAL DESCRIPTION: ; 2632 1 ! ; 2633 1 ! This routine will send the end of file message to the remote ; 2634 1 ! KERMIT. It will then determine if there are more files to ; 2635 1 ! send to the remote. ; 2636 1 ! ; 2637 1 ! CALLING SEQUENCE: ; 2638 1 ! ; 2639 1 ! STATE = SEND_EOF(); ; 2640 1 ! ; 2641 1 ! INPUT PARAMETERS: ; 2642 1 ! ; 2643 1 ! None. ; 2644 1 ! ; 2645 1 ! IMPLICIT INPUTS: ; 2646 1 ! ; 2647 1 ! None. ; 2648 1 ! ; 2649 1 ! OUTPUT PARAMETERS: ; 2650 1 ! ; 2651 1 ! New state to change the finite state machine to. ; 2652 1 ! ; 2653 1 ! IMPLICIT OUTPUTS: ; 2654 1 ! ; 2655 1 ! None. ; 2656 1 ! ; 2657 1 ! COMPLETION CODES: ; 2658 1 ! ; 2659 1 ! None. ; 2660 1 ! ; 2661 1 ! SIDE EFFECTS: ; 2662 1 ! ; 2663 1 ! Sets up for the next file to be processed if there is one. ; 2664 1 ! ; 2665 1 !-- ; 2666 1 ; 2667 2 BEGIN ; 2668 2 ; 2669 2 LOCAL ; 2670 2 STATUS, ! Status returned by various routines ; 2671 2 EOF_MSG_LEN; ! Length of EOF message to send ; 2672 2 ; 2673 2 ! ; 2674 2 ! First determine if we have exceed the number of retries that are ; 2675 2 ! allowed to attempt to send this message. ; 2676 2 ! ; 2677 2 ; 2678 2 IF .NUM_RETRIES GTR .PKT_RETRIES THEN RETURN STATE_ER; ; 2679 2 ; 2680 2 ! ; 2681 2 ! The number of retries are not exceeded. Increment the number and then ; 2682 2 ! attempt to send the packet again. ; 2683 2 ! ; 2684 2 NUM_RETRIES = .NUM_RETRIES + 1; ; 2685 2 ! ; 2686 2 ! Store character in packet to indicate discard of file ; 2687 2 ! Character will only be sent if file should be discarded ; 2688 2 ! ; 2689 2 CH$WCHAR (MSG_EOF_DISCARD, CH$PTR (SND_MSG, PKT_MSG, CHR_SIZE)); ; 2690 2 ; 2691 2 IF .ABT_CUR_FILE OR .ABT_ALL_FILE THEN EOF_MSG_LEN = 1 ELSE EOF_MSG_LEN = 0; ; 2692 2 ; 2693 2 IF NOT SEND_PACKET (MSG_EOF, .EOF_MSG_LEN, .MSG_NUMBER) THEN RETURN STATE_EX; ; 2694 2 ; 2695 2 ! ; 2696 2 ! Now get the responce from the remote KERMIT. ; 2697 2 ! ; 2698 2 STATUS = REC_PACKET (); ; 2699 2 ; 2700 2 IF NOT .STATUS ; 2701 2 THEN ; 2702 3 BEGIN ; 2703 3 ; 2704 4 IF (.STATUS EQL KER_ZEROLENMSG) OR (.STATUS EQL KER_TIMEOUT) OR (.STATUS EQL KER_CHKSUMERR) ; 2705 3 THEN ; 2706 3 RETURN .STATE ; 2707 3 ELSE ; 2708 3 RETURN STATE_EX; ; 2709 3 ; 2710 2 END; ; 2711 2 ; 2712 2 ! ; 2713 2 ! Determine if the packet is good. ; 2714 2 ! ; 2715 2 ; 2716 3 IF NOT (.REC_TYPE EQL MSG_ACK OR .REC_TYPE EQL MSG_NAK) ; 2717 2 THEN ; 2718 3 BEGIN ; 2719 3 KRM_ERROR (KER_PROTOERR); ; 2720 3 RETURN STATE_A; ; 2721 2 END; ; 2722 2 ; 2723 2 ! ; 2724 2 ! If this is a NAK and the message number is not the one we just send ; 2725 2 ! treat this like an ACK, otherwise resend the last packet. ; 2726 2 ! ; 2727 2 ; 2728 2 IF .REC_TYPE EQL MSG_NAK AND (.REC_SEQ NEQ ((.MSG_NUMBER + 1) AND %O'77')) THEN RETURN .STATE; ; 2729 2 ; 2730 2 IF .REC_TYPE EQL MSG_ACK AND .REC_SEQ NEQ .MSG_NUMBER THEN RETURN .STATE; ; 2731 2 ; 2732 2 ! ; 2733 2 ! Here to determine if there is another file to send. ; 2734 2 ! ; 2735 2 NUM_RETRIES = 0; ; 2736 2 MSG_NUMBER = (.MSG_NUMBER + 1) AND %O'77'; ; 2737 2 ; 2738 2 IF NOT .ABT_ALL_FILE THEN STATUS = NEXT_FILE () ELSE STATUS = KER_NOMORFILES; ; 2739 2 ; 2740 3 IF ( NOT .STATUS) OR (.STATUS EQL KER_NOMORFILES) ; 2741 2 THEN ; 2742 3 BEGIN ; 2743 3 ; 2744 3 IF (.STATUS NEQ KER_NOMORFILES) THEN RETURN STATE_A ELSE RETURN STATE_SB; ; 2745 3 ; 2746 3 END ; 2747 2 ELSE ; 2748 3 BEGIN ; 2749 3 FILE_OPEN_FLAG = TRUE; ! Have a file open again ; 2750 3 ; 2751 3 IF .FIL_NORMAL_FORM THEN NORMALIZE_FILE (FILE_NAME, FILE_SIZE, -1, -1); ; 2752 3 ; 2753 3 XFR_STATUS (%C'F', %C'S'); ! Inform display routine ; 2754 3 ; 2755 3 IF ( NOT .CONNECT_FLAG) AND .TY_FIL ; 2756 3 THEN ; 2757 4 BEGIN ; 2758 4 TT_TEXT (UPLIT (%ASCIZ'Sending: ')); ; 2759 4 TT_TEXT (FILE_NAME); ; 2760 4 TT_OUTPUT (); ; 2761 3 END; ; 2762 3 ; 2763 3 FILE_CHARS = 0; ! No characters sent yet ; 2764 3 RETURN STATE_SF; ; 2765 2 END; ; 2766 2 ; 2767 1 END; ! End of SEND_EOF .PSECT $PLIT$,NOWRT,NOEXE,2 P.AAE: .ASCII \Sending: \<0><0><0> ; ; .PSECT $CODE$,NOWRT,2 ;SEND_EOF U.7: .WORD ^M ;Save R2,R3 ; 2628 MOVAB W^U.53, R3 ;U.53, R3 ; CMPL -4(R3), W^PKT_RETRIES ;NUM_RETRIES, PKT_RETRIES ; 2678 BLEQ 1$ ;1$ ; MOVL #20, R0 ;#20, R0 ; RET ; ; 1$: INCL -4(R3) ;NUM_RETRIES ; 2684 MOVB #68, 116(R3) ;#68, SND_MSG+4 ; 2689 BLBS W^ABT_CUR_FILE, 2$ ;ABT_CUR_FILE, 2$ ; 2691 BLBC W^ABT_ALL_FILE, 3$ ;ABT_ALL_FILE, 3$ ; 2$: MOVL #1, R0 ;#1, EOF_MSG_LEN ; BRB 4$ ;4$ ; 3$: CLRL R0 ;EOF_MSG_LEN ; 4$: PUSHL (R3) ;MSG_NUMBER ; 2693 PUSHL R0 ;EOF_MSG_LEN ; MOVZBL #90, -(SP) ;#90, -(SP) ; CALLS #3, W^U.24 ;#3, U.24 ; BLBC R0, 5$ ;R0, 5$ ; CALLS #0, W^U.26 ;#0, U.26 ; 2698 MOVL R0, R2 ;R0, STATUS ; BLBS R2, 6$ ;STATUS, 6$ ; 2700 CMPL R2, #134316234 ;STATUS, #134316234 ; 2704 BEQL 9$ ;9$ ; CMPL R2, #134316248 ;STATUS, #134316248 ; BEQL 9$ ;9$ ; CMPL R2, #134316178 ;STATUS, #134316178 ; BEQL 9$ ;9$ ; 5$: MOVL #19, R0 ;#19, R0 ; 2708 RET ; ; 6$: CMPL 12(R3), #89 ;REC_TYPE, #89 ; 2716 BEQL 7$ ;7$ ; CMPL 12(R3), #78 ;REC_TYPE, #78 ; BEQL 7$ ;7$ ; PUSHL #134316226 ;#134316226 ; 2719 CALLS #1, W^KRM_ERROR ;#1, KRM_ERROR ; BRB 14$ ;14$ ; 2720 7$: CMPL 12(R3), #78 ;REC_TYPE, #78 ; 2728 BNEQ 8$ ;8$ ; ADDL3 #1, (R3), R0 ;#1, MSG_NUMBER, R0 ; CMPZV #0, #6, R0, 4(R3) ;#0, #6, R0, REC_SEQ ; BNEQ 9$ ;9$ ; 8$: CMPL 12(R3), #89 ;REC_TYPE, #89 ; 2730 BNEQ 10$ ;10$ ; CMPL 4(R3), (R3) ;REC_SEQ, MSG_NUMBER ; BEQL 10$ ;10$ ; 9$: MOVL -16(R3), R0 ;STATE, R0 ; RET ; ; 10$: CLRL -4(R3) ;NUM_RETRIES ; 2735 ADDL3 #1, (R3), R0 ;#1, MSG_NUMBER, R0 ; 2736 EXTZV #0, #6, R0, (R3) ;#0, #6, R0, MSG_NUMBER ; BLBS W^ABT_ALL_FILE, 11$ ;ABT_ALL_FILE, 11$ ; 2738 CALLS #0, W^NEXT_FILE ;#0, NEXT_FILE ; MOVL R0, R2 ;R0, STATUS ; BRB 12$ ;12$ ; 11$: MOVL #134316147, R2 ;#134316147, STATUS ; 12$: BLBC R2, 13$ ;STATUS, 13$ ; 2740 CMPL R2, #134316147 ;STATUS, #134316147 ; BNEQ 16$ ;16$ ; 13$: CMPL R2, #134316147 ;STATUS, #134316147 ; 2744 BEQL 15$ ;15$ ; 14$: MOVL #10, R0 ;#10, R0 ; RET ; ; 15$: MOVL #5, R0 ;#5, R0 ; RET ; ; 2748 16$: MOVL #1, 208(R3) ;#1, FILE_OPEN_FLAG ; 2749 BLBC W^FIL_NORMAL_FORM, 17$ ;FIL_NORMAL_FORM, 17$ ; 2751 MNEGL #1, -(SP) ;#1, -(SP) ; MNEGL #1, -(SP) ;#1, -(SP) ; PUSHAB W^FILE_SIZE ;FILE_SIZE ; PUSHAB W^FILE_NAME ;FILE_NAME ; CALLS #4, W^U.27 ;#4, U.27 ; 17$: MOVZBL #83, -(SP) ;#83, -(SP) ; 2753 MOVZBL #70, -(SP) ;#70, -(SP) ; CALLS #2, W^XFR_STATUS ;#2, XFR_STATUS ; BLBS W^CONNECT_FLAG, 18$ ;CONNECT_FLAG, 18$ ; 2755 BLBC W^TY_FIL, 18$ ;TY_FIL, 18$ ; PUSHAB W^P.AAE ;P.AAE ; 2758 CALLS #1, W^TT_TEXT ;#1, TT_TEXT ; PUSHAB W^FILE_NAME ;FILE_NAME ; 2759 CALLS #1, W^TT_TEXT ;#1, TT_TEXT ; CALLS #0, W^TT_OUTPUT ;#0, TT_OUTPUT ; 2760 18$: CLRL 212(R3) ;FILE_CHARS ; 2763 MOVL #2, R0 ;#2, R0 ; 2764 RET ; ; 2767 ; Routine Size: 324 bytes, Routine Base: $CODE$ + 0876 ; 2768 1 %SBTTL 'SEND_INIT' ; 2769 1 ROUTINE SEND_INIT = ; 2770 1 ; 2771 1 !++ ; 2772 1 ! FUNCTIONAL DESCRIPTION: ; 2773 1 ! ; 2774 1 ! This routine will send the initialization packet to the remote ; 2775 1 ! KERMIT. The message type sent is S. ; 2776 1 ! ; 2777 1 ! CALLING SEQUENCE: ; 2778 1 ! ; 2779 1 ! STATE = SEND_INIT(); ; 2780 1 ! ; 2781 1 ! INPUT PARAMETERS: ; 2782 1 ! ; 2783 1 ! None. ; 2784 1 ! ; 2785 1 ! IMPLICIT INPUTS: ; 2786 1 ! ; 2787 1 ! None. ; 2788 1 ! ; 2789 1 ! OUTPUT PARAMETERS: ; 2790 1 ! ; 2791 1 ! New state to change the finite state machine to. ; 2792 1 ! ; 2793 1 ! IMPLICIT OUTPUTS: ; 2794 1 ! ; 2795 1 ! None. ; 2796 1 ! ; 2797 1 ! COMPLETION CODES: ; 2798 1 ! ; 2799 1 ! None. ; 2800 1 ! ; 2801 1 ! SIDE EFFECTS: ; 2802 1 ! ; 2803 1 ! None. ; 2804 1 ! ; 2805 1 !-- ; 2806 1 ; 2807 2 BEGIN ; 2808 2 ; 2809 2 LOCAL ; 2810 2 STATUS; ! Status returned by various routines ; 2811 2 ; 2812 2 SET_SEND_INIT (); ; 2813 2 ; 2814 2 IF .NUM_RETRIES GTR .SI_RETRIES THEN RETURN STATE_ER; ; 2815 2 ; 2816 2 ! ; 2817 2 ! Count the number of times we try this ; 2818 2 ! ; 2819 2 NUM_RETRIES = .NUM_RETRIES + 1; ; 2820 2 ; 2821 2 IF NOT SEND_PACKET (MSG_SND_INIT, P_SI_LENGTH, .MSG_NUMBER) THEN RETURN STATE_EX; ; 2822 2 ; 2823 2 ! ; 2824 2 ! Determine if we received a packet it good condition. If we timed out or ; 2825 2 ! got an illegal message, just try again. ; 2826 2 ! ; 2827 2 STATUS = REC_PACKET (); ; 2828 2 ; 2829 2 IF NOT .STATUS ; 2830 2 THEN ; 2831 3 BEGIN ; 2832 3 ; 2833 4 IF (.STATUS EQL KER_ZEROLENMSG) OR (.STATUS EQL KER_TIMEOUT) OR (.STATUS EQL KER_CHKSUMERR) ; 2834 3 THEN ; 2835 3 RETURN .STATE ; 2836 3 ELSE ; 2837 3 RETURN STATE_EX; ; 2838 3 ; 2839 2 END; ; 2840 2 ; 2841 2 ! ; 2842 2 ! Determine if the packet is good. ; 2843 2 ! ; 2844 2 ; 2845 2 IF .REC_TYPE NEQ MSG_ACK THEN RETURN .STATE; ; 2846 2 ; 2847 2 IF .REC_SEQ NEQ .MSG_NUMBER THEN RETURN .STATE; ; 2848 2 ; 2849 2 ! ; 2850 2 ! Here if we have an ACK for the initialization message that was just sent ; 2851 2 ! to the remote KERMIT. ; 2852 2 ! ; 2853 2 ; 2854 2 IF NOT (STATUS = PRS_SEND_INIT ()) THEN RETURN STATE_A; ; 2855 2 ; 2856 2 BLK_CHK_TYPE = .INI_CHK_TYPE; ! We now use agreed upon block check type ; 2857 2 NUM_RETRIES = 0; ; 2858 2 MSG_NUMBER = (.MSG_NUMBER + 1) AND %O'77'; ; 2859 2 RETURN STATE_OF; ! Now need to open the file ; 2860 1 END; ;SEND_INIT U.8: .WORD ^M ;Save R2 ; 2769 MOVAB W^U.53, R2 ;U.53, R2 ; CALLS #0, W^U.20 ;#0, U.20 ; 2812 CMPL -4(R2), W^SI_RETRIES ;NUM_RETRIES, SI_RETRIES ; 2814 BLEQ 1$ ;1$ ; MOVL #20, R0 ;#20, R0 ; RET ; ; 1$: INCL -4(R2) ;NUM_RETRIES ; 2819 PUSHL (R2) ;MSG_NUMBER ; 2821 PUSHL #9 ;#9 ; MOVZBL #83, -(SP) ;#83, -(SP) ; CALLS #3, W^U.24 ;#3, U.24 ; BLBS R0, 2$ ;R0, 2$ ; MOVL #19, R0 ;#19, R0 ; RET ; ; 2$: CALLS #0, W^U.26 ;#0, U.26 ; 2827 BLBS R0, 6$ ;STATUS, 6$ ; 2829 CMPL R0, #134316234 ;STATUS, #134316234 ; 2833 BEQL 3$ ;3$ ; CMPL R0, #134316248 ;STATUS, #134316248 ; BEQL 3$ ;3$ ; CMPL R0, #134316178 ;STATUS, #134316178 ; BNEQ 4$ ;4$ ; 3$: MOVL -16(R2), R1 ;STATE, R1 ; 2837 BRB 5$ ;5$ ; 4$: MOVL #19, R1 ;#19, R1 ; 5$: MOVL R1, R0 ;R1, R0 ; RET ; ; 6$: CMPL 12(R2), #89 ;REC_TYPE, #89 ; 2845 BNEQ 7$ ;7$ ; CMPL 4(R2), (R2) ;REC_SEQ, MSG_NUMBER ; 2847 BEQL 8$ ;8$ ; 7$: MOVL -16(R2), R0 ;STATE, R0 ; RET ; ; 8$: CALLS #0, W^U.21 ;#0, U.21 ; 2854 BLBS R0, 9$ ;STATUS, 9$ ; MOVL #10, R0 ;#10, R0 ; RET ; ; 9$: MOVL -32(R2), -28(R2) ;INI_CHK_TYPE, BLK_CHK_TYPE ; 2856 CLRL -4(R2) ;NUM_RETRIES ; 2857 ADDL3 #1, (R2), R0 ;#1, MSG_NUMBER, R0 ; 2858 EXTZV #0, #6, R0, (R2) ;#0, #6, R0, MSG_NUMBER ; MOVL #18, R0 ;#18, R0 ; 2859 RET ; ; 2860 ; Routine Size: 149 bytes, Routine Base: $CODE$ + 09BA ; 2861 1 %SBTTL 'SEND_OPEN_FILE - Open file for sending' ; 2862 1 ROUTINE SEND_OPEN_FILE = ; 2863 1 ; 2864 1 !++ ; 2865 1 ! FUNCTIONAL DESCRIPTION: ; 2866 1 ! ; 2867 1 ! This routine is called from DO_TRANSACTION when the first input file ; 2868 1 ! needs to be opened. ; 2869 1 ! ; 2870 1 ! CALLING SEQUENCE: ; 2871 1 ! ; 2872 1 ! STATE = SEND_OPEN_FILE (); ; 2873 1 ! ; 2874 1 ! INPUT PARAMETERS: ; 2875 1 ! ; 2876 1 ! None. ; 2877 1 ! ; 2878 1 ! IMPLICIT INPUTS: ; 2879 1 ! ; 2880 1 ! FILE_NAME, FILE_SIZE, etc. ; 2881 1 ! ; 2882 1 ! OUPTUT PARAMETERS: ; 2883 1 ! ; 2884 1 ! New state for FSM. ; 2885 1 ! ; 2886 1 ! IMPLICIT OUTPUTS: ; 2887 1 ! ; 2888 1 ! None. ; 2889 1 ! ; 2890 1 ! COMPLETION CODES: ; 2891 1 ! ; 2892 1 ! None. ; 2893 1 ! ; 2894 1 ! SIDE EFFECTS: ; 2895 1 ! ; 2896 1 ! None. ; 2897 1 ! ; 2898 1 !-- ; 2899 1 ; 2900 2 BEGIN ; 2901 2 ; 2902 2 IF ( NOT .CONNECT_FLAG) AND .TY_FIL ; 2903 2 THEN ; 2904 3 BEGIN ; 2905 3 TT_TEXT (UPLIT (%ASCIZ'Sending: ')); ; 2906 3 TT_OUTPUT (); ; 2907 2 END; ; 2908 2 ; 2909 2 FILE_CHARS = 0; ! No characters sent yet ; 2910 2 ; 2911 2 IF NOT .NO_FILE_NEEDED ; 2912 2 THEN ; 2913 2 ; 2914 2 IF NOT FILE_OPEN (FNC_READ) THEN RETURN STATE_A ELSE FILE_OPEN_FLAG = TRUE; ; 2915 2 ; 2916 2 ![023] ; 2917 2 ![023] If we want normalized file names, beat up the name now ; 2918 2 ![023] ; 2919 2 ; 2920 2 IF .FIL_NORMAL_FORM THEN NORMALIZE_FILE (FILE_NAME, FILE_SIZE, -1, -1); ; 2921 2 ; 2922 2 XFR_STATUS (%C'F', %C'S'); ! Inform display routine ; 2923 2 ; 2924 2 IF ( NOT .CONNECT_FLAG) AND .TY_FIL ; 2925 2 THEN ; 2926 3 BEGIN ; 2927 3 TT_TEXT (FILE_NAME); ; 2928 3 TT_OUTPUT (); ; 2929 2 END; ; 2930 2 ; 2931 2 RETURN STATE_SF; ; 2932 1 END; ! End of FSM_OPEN_FILE .PSECT $PLIT$,NOWRT,NOEXE,2 P.AAF: .ASCII \Sending: \<0><0><0> ; ; .PSECT $CODE$,NOWRT,2 ;SEND_OPEN_FILE U.5: .WORD ^M<> ;Save nothing ; 2862 BLBS W^CONNECT_FLAG, 1$ ;CONNECT_FLAG, 1$ ; 2902 BLBC W^TY_FIL, 1$ ;TY_FIL, 1$ ; PUSHAB W^P.AAF ;P.AAF ; 2905 CALLS #1, W^TT_TEXT ;#1, TT_TEXT ; CALLS #0, W^TT_OUTPUT ;#0, TT_OUTPUT ; 2906 1$: CLRL W^U.60 ;U.60 ; 2909 BLBS W^U.62, 3$ ;U.62, 3$ ; 2911 CLRL -(SP) ;-(SP) ; 2914 CALLS #1, W^FILE_OPEN ;#1, FILE_OPEN ; BLBS R0, 2$ ;R0, 2$ ; MOVL #10, R0 ;#10, R0 ; RET ; ; 2$: MOVL #1, W^U.59 ;#1, U.59 ; 3$: BLBC W^FIL_NORMAL_FORM, 4$ ;FIL_NORMAL_FORM, 4$ ; 2920 MNEGL #1, -(SP) ;#1, -(SP) ; MNEGL #1, -(SP) ;#1, -(SP) ; PUSHAB W^FILE_SIZE ;FILE_SIZE ; PUSHAB W^FILE_NAME ;FILE_NAME ; CALLS #4, W^U.27 ;#4, U.27 ; 4$: MOVZBL #83, -(SP) ;#83, -(SP) ; 2922 MOVZBL #70, -(SP) ;#70, -(SP) ; CALLS #2, W^XFR_STATUS ;#2, XFR_STATUS ; BLBS W^CONNECT_FLAG, 5$ ;CONNECT_FLAG, 5$ ; 2924 BLBC W^TY_FIL, 5$ ;TY_FIL, 5$ ; PUSHAB W^FILE_NAME ;FILE_NAME ; 2927 CALLS #1, W^TT_TEXT ;#1, TT_TEXT ; CALLS #0, W^TT_OUTPUT ;#0, TT_OUTPUT ; 2928 5$: MOVL #2, R0 ;#2, R0 ; 2931 RET ; ; 2932 ; Routine Size: 119 bytes, Routine Base: $CODE$ + 0A4F ; 2933 1 %SBTTL 'SEND_GENCMD' ; 2934 1 ROUTINE SEND_GENCMD = ; 2935 1 ; 2936 1 !++ ; 2937 1 ! FUNCTIONAL DESCRIPTION: ; 2938 1 ! ; 2939 1 ! This routine will send a command packet to the server Kermit. ; 2940 1 ! The new state will depend upon the response. If a send-init ; 2941 1 ! is received, it will process it and switch to STATE_RF. ; 2942 1 ! If a text-header is received it will switch to STATE_RD. ; 2943 1 ! If an ACK is received, it will type the data portion and ; 2944 1 ! switch to STATE_C. ; 2945 1 ! ; 2946 1 ! CALLING SEQUENCE: ; 2947 1 ! ; 2948 1 ! STATE = SEND_GENCMD(); ; 2949 1 ! ; 2950 1 ! INPUT PARAMETERS: ; 2951 1 ! ; 2952 1 ! None. ; 2953 1 ! ; 2954 1 ! IMPLICIT INPUTS: ; 2955 1 ! ; 2956 1 ! GEN_TYPE - Message type to send (normally MSG_GENERIC) ; 2957 1 ! GEN_SUBTYPE - Message subtype (only if MSG_GENERIC) ; 2958 1 ! GEN_1DATA - First argument string ; 2959 1 ! GEN_1SIZE - Size of first argument ; 2960 1 ! GEN_2DATA - Second argument string ; 2961 1 ! GEN_2SIZE - Size of second argument ; 2962 1 ! GEN_3DATA - Third argument string ; 2963 1 ! GEN_3SIZE - Size of third argument ; 2964 1 ! ; 2965 1 ! OUTPUT PARAMETERS: ; 2966 1 ! ; 2967 1 ! New state for the finite state machine. ; 2968 1 ! ; 2969 1 ! IMPLICIT OUTPUTS: ; 2970 1 ! ; 2971 1 ! None. ; 2972 1 ! ; 2973 1 ! COMPLETION CODES: ; 2974 1 ! ; 2975 1 ! None. ; 2976 1 ! ; 2977 1 ! SIDE EFFECTS: ; 2978 1 ! ; 2979 1 ! None. ; 2980 1 ! ; 2981 1 !-- ; 2982 1 ; 2983 2 BEGIN ; 2984 2 ; 2985 2 LOCAL ; 2986 2 POINTER, ! Pointer at DATA_TEXT ; 2987 2 DATA_TEXT : VECTOR [CH$ALLOCATION (MAX_MSG)], ! Data buffer ; 2988 2 DATA_SIZE, ! Length of data buffer used ; 2989 2 STATUS; ! Status returned by various routines ; 2990 2 ; 2991 2 ROUTINE PACK_DATA (POINTER, LENGTH, SRC_ADDR, SRC_LEN) = ; 2992 2 ! ; 2993 2 ! Routine to pack an argument into the buffer. ; 2994 2 ! ; 2995 3 BEGIN ; 2996 3 ; 2997 3 IF .SRC_LEN GTR MAX_MSG - .LENGTH - 1 THEN SRC_LEN = MAX_MSG - .LENGTH - 1; ; 2998 3 ; 2999 3 LENGTH = .LENGTH + .SRC_LEN + 1; ; 3000 3 CH$WCHAR_A (CHAR (.SRC_LEN), .POINTER); ; 3001 3 .POINTER = CH$MOVE (.SRC_LEN, CH$PTR (.SRC_ADDR), ..POINTER); ; 3002 3 RETURN .LENGTH; ; 3003 2 END; ;PACK_DATA U.75: .WORD ^M ;Save R2,R3,R4,R5 ; 2991 SUBL3 #95, 8(AP), R1 ;#95, LENGTH, R1 ; 2997 MNEGL R1, R0 ;R1, R0 ; CMPL 16(AP), R0 ;SRC_LEN, R0 ; BLEQ 1$ ;1$ ; MNEGL R1, 16(AP) ;R1, SRC_LEN ; 1$: ADDL3 16(AP), 8(AP), R0 ;SRC_LEN, LENGTH, R0 ; 2999 MOVAB 1(R0), 8(AP) ;1(R0), LENGTH ; MOVL 4(AP), R0 ;POINTER, R0 ; 3000 ADDB3 #32, 16(AP), @0(R0) ;#32, SRC_LEN, @0(R0) ; INCL (R0) ;(R0) ; MOVL @4(AP), R0 ;@POINTER, R0 ; 3001 MOVC3 16(AP), @12(AP), (R0) ;SRC_LEN, @SRC_ADDR, (R0) ; MOVL R3, @4(AP) ;R3, @POINTER ; MOVL 8(AP), R0 ;LENGTH, R0 ; 3002 RET ; ; 3003 ; Routine Size: 66 bytes, Routine Base: $CODE$ + 0AC6 ; 3004 2 ! ; 3005 2 ! First determine if we have exceed the number of retries that are ; 3006 2 ! allowed to attempt to send this message. ; 3007 2 ! ; 3008 2 ; 3009 2 IF .NUM_RETRIES GTR .PKT_RETRIES THEN RETURN STATE_ER; ; 3010 2 ; 3011 2 ! ; 3012 2 ! The number of retries are not exceeded. Increment the number and then ; 3013 2 ! attempt to send the packet again. ; 3014 2 ! ; 3015 2 NUM_RETRIES = .NUM_RETRIES + 1; ; 3016 2 ! ; 3017 2 ! Build the packet data field ; 3018 2 ! ; 3019 2 POINTER = CH$PTR (DATA_TEXT); ; 3020 2 DATA_SIZE = 0; ; 3021 2 ; 3022 2 IF .GEN_TYPE EQL MSG_GENERIC ; 3023 2 THEN ; 3024 3 BEGIN ; 3025 3 CH$WCHAR_A (.GEN_SUBTYPE, POINTER); ; 3026 3 DATA_SIZE = 1; ; 3027 3 ; 3028 3 IF .GEN_1SIZE GTR 0 OR .GEN_2SIZE GTR 0 OR .GEN_3SIZE GTR 0 ; 3029 3 THEN ; 3030 4 BEGIN ; 3031 4 DATA_SIZE = PACK_DATA (POINTER, .DATA_SIZE, GEN_1DATA, .GEN_1SIZE); ; 3032 4 ; 3033 4 IF .GEN_2SIZE GTR 0 OR .GEN_3SIZE GTR 0 ; 3034 4 THEN ; 3035 5 BEGIN ; 3036 5 DATA_SIZE = PACK_DATA (POINTER, .DATA_SIZE, GEN_2DATA, .GEN_2SIZE); ; 3037 5 ; 3038 5 IF .GEN_3SIZE GTR 0 ; 3039 5 THEN ; 3040 6 BEGIN ; 3041 6 DATA_SIZE = PACK_DATA (POINTER, .DATA_SIZE, GEN_3DATA, .GEN_3SIZE); ; 3042 5 END; ; 3043 5 ; 3044 4 END; ; 3045 4 ; 3046 3 END; ; 3047 3 ; 3048 3 END ; 3049 2 ELSE ; 3050 3 BEGIN ; 3051 3 ; 3052 3 IF .GEN_1SIZE GTR MAX_MSG THEN GEN_1SIZE = MAX_MSG; ; 3053 3 ; 3054 3 DATA_SIZE = .GEN_1SIZE; ; 3055 3 CH$MOVE (.GEN_1SIZE, CH$PTR (GEN_1DATA), .POINTER); ; 3056 2 END; ; 3057 2 ; 3058 2 SET_STRING (CH$PTR (DATA_TEXT), .DATA_SIZE, TRUE); ; 3059 2 BFR_FILL (TRUE); ; 3060 2 SET_STRING (0, 0, FALSE); ; 3061 2 ! ; 3062 2 ! Send the packet ; 3063 2 ! ; 3064 2 ; 3065 2 IF NOT SEND_PACKET (.GEN_TYPE, .SIZE, .MSG_NUMBER) THEN RETURN STATE_EX; ; 3066 2 ; 3067 2 ! ; 3068 2 ! Now get the responce from the remote KERMIT. ; 3069 2 ! ; 3070 2 STATUS = REC_PACKET (); ; 3071 2 ; 3072 2 IF NOT .STATUS ; 3073 2 THEN ; 3074 3 BEGIN ; 3075 3 ; 3076 4 IF (.STATUS EQL KER_ZEROLENMSG) OR (.STATUS EQL KER_TIMEOUT) OR (.STATUS EQL KER_CHKSUMERR) ; 3077 3 THEN ; 3078 3 RETURN .STATE ; 3079 3 ELSE ; 3080 3 RETURN STATE_EX; ; 3081 3 ; 3082 2 END; ; 3083 2 ; 3084 2 ! Did we get a send-init? ; 3085 2 ; 3086 2 SELECTONE .REC_TYPE OF ; 3087 2 SET ; 3088 2 ; 3089 2 [MSG_SND_INIT] : ; 3090 3 BEGIN ; 3091 3 MSG_NUMBER = .REC_SEQ; ! Initialize sequence numbers ; 3092 3 ! Determine if the parameters are ok. If not, give up ; 3093 3 ; 3094 3 IF NOT (STATUS = PRS_SEND_INIT ()) THEN RETURN .STATUS; ; 3095 3 ; 3096 3 SET_SEND_INIT (); ! Set up our acknowledgement to the send-init ; 3097 3 SEND_PACKET (MSG_ACK, P_SI_LENGTH, .MSG_NUMBER); ! Send it ; 3098 3 BLK_CHK_TYPE = .INI_CHK_TYPE; ! Can now use agreed upon type ; 3099 3 OLD_RETRIES = .NUM_RETRIES; ; 3100 3 NUM_RETRIES = 0; ; 3101 3 MSG_NUMBER = (.MSG_NUMBER + 1) AND %O'77'; ; 3102 3 RETURN STATE_RF; ! Now expect file header ; 3103 2 END; ; 3104 2 ; 3105 2 [MSG_TEXT] : ; 3106 2 ! ; 3107 2 ! If we just got a text header, set up for typing on the terminal and ; 3108 2 ! shift to receiving data ; 3109 2 ! ; 3110 3 BEGIN ; 3111 3 TEXT_HEAD_FLAG = TRUE; ! We want terminal output ; 3112 3 PUT_CHR_ROUTINE = TYPE_CHAR; ! Set up the put a character routine ; 3113 3 ; 3114 3 IF .REC_LENGTH GTR 0 ; 3115 3 THEN ; 3116 4 BEGIN ; 3117 4 TT_TEXT (UPLIT (%ASCIZ'<<')); ! Make sure file name sticks out ; 3118 4 BFR_EMPTY (); ! Dump the packet data to the terminal ; 3119 4 TT_TEXT (UPLIT (%ASCIZ'>>')); ! So user can tell where name ends ; 3120 4 TT_CRLF (); ! And a CRLF ; 3121 3 END; ; 3122 3 ; 3123 3 SEND_PACKET (MSG_ACK, 0, .MSG_NUMBER); ! Send an ACK ; 3124 3 OLD_RETRIES = .NUM_RETRIES; ; 3125 3 NUM_RETRIES = 0; ; 3126 3 MSG_NUMBER = (.MSG_NUMBER + 1) AND %O'77'; ; 3127 3 RETURN STATE_RD; ! We now want data ; 3128 2 END; ; 3129 2 ; 3130 2 [MSG_ACK] : ; 3131 2 ! ; 3132 2 ! If we get an ACK, just type the data on the terminal and complete the ; 3133 2 ! transaction. ; 3134 2 ! ; 3135 3 BEGIN ; 3136 3 PUT_CHR_ROUTINE = TYPE_CHAR; ! Dump to terminal ; 3137 3 BFR_EMPTY (); ! Do it ; 3138 3 ; 3139 3 IF .REC_LENGTH GTR 0 THEN TT_CRLF (); ; 3140 3 ; 3141 3 RETURN STATE_C; ! And go idle ; 3142 2 END; ; 3143 2 ; 3144 2 [MSG_NAK] : ; 3145 2 ! ; 3146 2 ! If we get a NAK, stay in the same state. We will re-transmit the ; 3147 2 ! packet again. ; 3148 2 ! ; 3149 2 RETURN .STATE; ; 3150 2 TES; ; 3151 2 ; 3152 2 ! ; 3153 2 ! If we get here, we didn't get anything resembling an acceptable ; 3154 2 ! packet, so we will abort. ; 3155 2 ! ; 3156 2 KRM_ERROR (KER_PROTOERR); ; 3157 2 RETURN STATE_A; ; 3158 1 END; .PSECT $PLIT$,NOWRT,NOEXE,2 P.AAG: .ASCII \<<\<0><0> ; ; P.AAH: .ASCII \>>\<0><0> ; ; .PSECT $CODE$,NOWRT,2 ;SEND_GENCMD U.6: .WORD ^M ;Save R2,R3,R4,R5,R6,R7,R8,R9,R10,R11 ; 2934 MOVAB W^U.24, R11 ;U.24, R11 ; MOVAB B^U.75, R10 ;U.75, R10 ; MOVAB W^GEN_3SIZE, R9 ;GEN_3SIZE, R9 ; MOVAB W^GEN_1SIZE, R8 ;GEN_1SIZE, R8 ; MOVAB W^U.53, R7 ;U.53, R7 ; MOVAB -100(SP), SP ;-100(SP), SP ; CMPL -4(R7), W^PKT_RETRIES ;NUM_RETRIES, PKT_RETRIES ; 3009 BLEQ 1$ ;1$ ; MOVL #20, R0 ;#20, R0 ; RET ; ; 1$: INCL -4(R7) ;NUM_RETRIES ; 3015 MOVAB 4(SP), (SP) ;DATA_TEXT, POINTER ; 3019 CLRL R6 ;DATA_SIZE ; 3020 MOVL (R8), R0 ;GEN_1SIZE, R0 ; 3028 CMPL 228(R7), #71 ;GEN_TYPE, #71 ; 3022 BNEQ 4$ ;4$ ; MOVB 232(R7), @0(SP) ;GEN_SUBTYPE, @POINTER ; 3025 INCL (SP) ;POINTER ; MOVL #1, R6 ;#1, DATA_SIZE ; 3026 TSTL R0 ;R0 ; 3028 BGTR 2$ ;2$ ; TSTL W^GEN_2SIZE ;GEN_2SIZE ; BGTR 2$ ;2$ ; TSTL (R9) ;GEN_3SIZE ; BLEQ 6$ ;6$ ; 2$: PUSHL R0 ;R0 ; 3031 PUSHAB W^GEN_1DATA ;GEN_1DATA ; PUSHL R6 ;DATA_SIZE ; PUSHAB 12(SP) ;POINTER ; CALLS #4, (R10) ;#4, PACK_DATA ; MOVL R0, R6 ;R0, DATA_SIZE ; MOVL W^GEN_2SIZE, R0 ;GEN_2SIZE, R0 ; 3033 BGTR 3$ ;3$ ; TSTL (R9) ;GEN_3SIZE ; BLEQ 6$ ;6$ ; 3$: PUSHL R0 ;R0 ; 3036 PUSHAB W^GEN_2DATA ;GEN_2DATA ; PUSHL R6 ;DATA_SIZE ; PUSHAB 12(SP) ;POINTER ; CALLS #4, (R10) ;#4, PACK_DATA ; MOVL R0, R6 ;R0, DATA_SIZE ; MOVL (R9), R0 ;GEN_3SIZE, R0 ; 3038 BLEQ 6$ ;6$ ; PUSHL R0 ;R0 ; 3041 PUSHAB W^GEN_3DATA ;GEN_3DATA ; PUSHL R6 ;DATA_SIZE ; PUSHAB 12(SP) ;POINTER ; CALLS #4, (R10) ;#4, PACK_DATA ; MOVL R0, R6 ;R0, DATA_SIZE ; BRB 6$ ;6$ ; 3022 4$: CMPL R0, #96 ;R0, #96 ; 3052 BLEQ 5$ ;5$ ; MOVZBL #96, (R8) ;#96, GEN_1SIZE ; 5$: MOVL (R8), R6 ;GEN_1SIZE, DATA_SIZE ; 3054 MOVC3 (R8), W^GEN_1DATA, @0(SP) ;GEN_1SIZE, GEN_1DATA, @POINTER ; 3055 6$: PUSHL #1 ;#1 ; 3058 PUSHL R6 ;DATA_SIZE ; PUSHAB 12(SP) ;DATA_TEXT ; CALLS #3, W^U.30 ;#3, U.30 ; PUSHL #1 ;#1 ; 3059 CALLS #1, W^U.29 ;#1, U.29 ; CLRQ -(SP) ;-(SP) ; 3060 CLRL -(SP) ;-(SP) ; CALLS #3, W^U.30 ;#3, U.30 ; PUSHL (R7) ;MSG_NUMBER ; 3065 PUSHL -12(R7) ;SIZE ; PUSHL 228(R7) ;GEN_TYPE ; CALLS #3, (R11) ;#3, SEND_PACKET ; BLBS R0, 7$ ;R0, 7$ ; MOVL #19, R0 ;#19, R0 ; RET ; ; 7$: CALLS #0, W^U.26 ;#0, U.26 ; 3070 BLBS R0, 11$ ;STATUS, 11$ ; 3072 CMPL R0, #134316234 ;STATUS, #134316234 ; 3076 BEQL 8$ ;8$ ; CMPL R0, #134316248 ;STATUS, #134316248 ; BEQL 8$ ;8$ ; CMPL R0, #134316178 ;STATUS, #134316178 ; BNEQ 9$ ;9$ ; 8$: MOVL -16(R7), R1 ;STATE, R1 ; 3080 BRB 10$ ;10$ ; 9$: MOVL #19, R1 ;#19, R1 ; 10$: MOVL R1, R0 ;R1, R0 ; RET ; ; 11$: MOVL 12(R7), R1 ;REC_TYPE, R1 ; 3086 CMPL R1, #83 ;R1, #83 ; 3089 BNEQ 13$ ;13$ ; MOVL 4(R7), (R7) ;REC_SEQ, MSG_NUMBER ; 3091 CALLS #0, W^U.21 ;#0, U.21 ; 3094 BLBS R0, 12$ ;STATUS, 12$ ; RET ; ; 12$: CALLS #0, W^U.20 ;#0, U.20 ; 3096 PUSHL (R7) ;MSG_NUMBER ; 3097 PUSHL #9 ;#9 ; MOVZBL #89, -(SP) ;#89, -(SP) ; CALLS #3, (R11) ;#3, SEND_PACKET ; MOVL -32(R7), -28(R7) ;INI_CHK_TYPE, BLK_CHK_TYPE ; 3098 MOVL -4(R7), -8(R7) ;NUM_RETRIES, OLD_RETRIES ; 3099 CLRL -4(R7) ;NUM_RETRIES ; 3100 ADDL3 #1, (R7), R0 ;#1, MSG_NUMBER, R0 ; 3101 EXTZV #0, #6, R0, (R7) ;#0, #6, R0, MSG_NUMBER ; MOVL #7, R0 ;#7, R0 ; 3102 RET ; ; 13$: CMPL R1, #88 ;R1, #88 ; 3105 BNEQ 15$ ;15$ ; MOVL #1, 216(R7) ;#1, TEXT_HEAD_FLAG ; 3111 MOVAB W^U.31, 240(R7) ;U.31, PUT_CHR_ROUTINE ; 3112 TSTL 8(R7) ;REC_LENGTH ; 3114 BLEQ 14$ ;14$ ; PUSHAB W^P.AAG ;P.AAG ; 3117 CALLS #1, W^TT_TEXT ;#1, TT_TEXT ; CALLS #0, W^U.28 ;#0, U.28 ; 3118 PUSHAB W^P.AAH ;P.AAH ; 3119 CALLS #1, W^TT_TEXT ;#1, TT_TEXT ; CALLS #0, W^TT_CRLF ;#0, TT_CRLF ; 3120 14$: PUSHL (R7) ;MSG_NUMBER ; 3123 CLRL -(SP) ;-(SP) ; MOVZBL #89, -(SP) ;#89, -(SP) ; CALLS #3, (R11) ;#3, SEND_PACKET ; MOVL -4(R7), -8(R7) ;NUM_RETRIES, OLD_RETRIES ; 3124 CLRL -4(R7) ;NUM_RETRIES ; 3125 ADDL3 #1, (R7), R0 ;#1, MSG_NUMBER, R0 ; 3126 EXTZV #0, #6, R0, (R7) ;#0, #6, R0, MSG_NUMBER ; MOVL #8, R0 ;#8, R0 ; 3127 RET ; ; 15$: CMPL R1, #89 ;R1, #89 ; 3130 BNEQ 17$ ;17$ ; MOVAB W^U.31, 240(R7) ;U.31, PUT_CHR_ROUTINE ; 3136 CALLS #0, W^U.28 ;#0, U.28 ; 3137 TSTL 8(R7) ;REC_LENGTH ; 3139 BLEQ 16$ ;16$ ; CALLS #0, W^TT_CRLF ;#0, TT_CRLF ; 16$: MOVL #9, R0 ;#9, R0 ; 3141 RET ; ; 17$: CMPL R1, #78 ;R1, #78 ; 3144 BNEQ 18$ ;18$ ; MOVL -16(R7), R0 ;STATE, R0 ; 3149 RET ; ; 18$: PUSHL #134316226 ;#134316226 ; 3156 CALLS #1, W^KRM_ERROR ;#1, KRM_ERROR ; MOVL #10, R0 ;#10, R0 ; 3157 RET ; ; 3158 ; Routine Size: 495 bytes, Routine Base: $CODE$ + 0B08 ; 3159 1 %SBTTL 'SEND_BREAK' ; 3160 1 ROUTINE SEND_BREAK = ; 3161 1 ; 3162 1 !++ ; 3163 1 ! FUNCTIONAL DESCRIPTION: ; 3164 1 ! ; 3165 1 ! This routine will send the break (end of transmission) message ; 3166 1 ! to the remote KERMIT. On an ACK the state becomes STATE_C. ; 3167 1 ! ; 3168 1 ! CALLING SEQUENCE: ; 3169 1 ! ; 3170 1 ! STATE = SEND_BREAK(); ; 3171 1 ! ; 3172 1 ! INPUT PARAMETERS: ; 3173 1 ! ; 3174 1 ! None. ; 3175 1 ! ; 3176 1 ! IMPLICIT INPUTS: ; 3177 1 ! ; 3178 1 ! None. ; 3179 1 ! ; 3180 1 ! OUTPUT PARAMETERS: ; 3181 1 ! ; 3182 1 ! New state for the finite state machine. ; 3183 1 ! ; 3184 1 ! IMPLICIT OUTPUTS: ; 3185 1 ! ; 3186 1 ! None. ; 3187 1 ! ; 3188 1 ! COMPLETION CODES: ; 3189 1 ! ; 3190 1 ! None. ; 3191 1 ! ; 3192 1 ! SIDE EFFECTS: ; 3193 1 ! ; 3194 1 ! None. ; 3195 1 ! ; 3196 1 !-- ; 3197 1 ; 3198 2 BEGIN ; 3199 2 ; 3200 2 LOCAL ; 3201 2 STATUS; ! Status returned by various routines ; 3202 2 ; 3203 2 ! ; 3204 2 ! First determine if we have exceed the number of retries that are ; 3205 2 ! allowed to attempt to send this message. ; 3206 2 ! ; 3207 2 ; 3208 2 IF .NUM_RETRIES GTR .PKT_RETRIES THEN RETURN STATE_ER; ; 3209 2 ; 3210 2 ! ; 3211 2 ! The number of retries are not exceeded. Increment the number and then ; 3212 2 ! attempt to send the packet again. ; 3213 2 ! ; 3214 2 NUM_RETRIES = .NUM_RETRIES + 1; ; 3215 2 ; 3216 2 IF NOT SEND_PACKET (MSG_BREAK, 0, .MSG_NUMBER) THEN RETURN STATE_EX; ; 3217 2 ; 3218 2 ! ; 3219 2 ! Now get the responce from the remote KERMIT. ; 3220 2 ! ; 3221 2 STATUS = REC_PACKET (); ; 3222 2 ; 3223 2 IF NOT .STATUS ; 3224 2 THEN ; 3225 3 BEGIN ; 3226 3 ; 3227 4 IF (.STATUS EQL KER_ZEROLENMSG) OR (.STATUS EQL KER_TIMEOUT) OR (.STATUS EQL KER_CHKSUMERR) ; 3228 3 THEN ; 3229 3 RETURN .STATE ; 3230 3 ELSE ; 3231 3 RETURN STATE_EX; ; 3232 3 ; 3233 2 END; ; 3234 2 ; 3235 2 ! ; 3236 2 ! Determine if the packet is good. ; 3237 2 ! ; 3238 2 ; 3239 3 IF NOT (.REC_TYPE EQL MSG_ACK OR .REC_TYPE EQL MSG_NAK) ; 3240 2 THEN ; 3241 3 BEGIN ; 3242 3 KRM_ERROR (KER_PROTOERR); ; 3243 3 RETURN STATE_A; ; 3244 2 END; ; 3245 2 ; 3246 2 ! ; 3247 2 ! If this is a NAK and the message number is not the one we just send ; 3248 2 ! treat this like an ACK, otherwise resend the last packet. ; 3249 2 ! ; 3250 2 ; 3251 2 IF .REC_TYPE EQL MSG_NAK AND .REC_SEQ NEQ 0 THEN RETURN .STATE; ; 3252 2 ; 3253 2 IF .REC_TYPE EQL MSG_ACK AND .REC_SEQ NEQ .MSG_NUMBER THEN RETURN .STATE; ; 3254 2 ; 3255 2 ! ; 3256 2 ! Here to determine if there is another file to send. ; 3257 2 ! ; 3258 2 NUM_RETRIES = 0; ; 3259 2 MSG_NUMBER = (.MSG_NUMBER + 1) AND %O'77'; ; 3260 2 RETURN STATE_C; ; 3261 1 END; ;SEND_BREAK U.9: .WORD ^M ;Save R2 ; 3160 MOVAB W^U.53, R2 ;U.53, R2 ; CMPL -4(R2), W^PKT_RETRIES ;NUM_RETRIES, PKT_RETRIES ; 3208 BLEQ 1$ ;1$ ; MOVL #20, R0 ;#20, R0 ; RET ; ; 1$: INCL -4(R2) ;NUM_RETRIES ; 3214 PUSHL (R2) ;MSG_NUMBER ; 3216 CLRL -(SP) ;-(SP) ; MOVZBL #66, -(SP) ;#66, -(SP) ; CALLS #3, W^U.24 ;#3, U.24 ; BLBC R0, 2$ ;R0, 2$ ; CALLS #0, W^U.26 ;#0, U.26 ; 3221 BLBS R0, 3$ ;STATUS, 3$ ; 3223 CMPL R0, #134316234 ;STATUS, #134316234 ; 3227 BEQL 6$ ;6$ ; CMPL R0, #134316248 ;STATUS, #134316248 ; BEQL 6$ ;6$ ; CMPL R0, #134316178 ;STATUS, #134316178 ; BEQL 6$ ;6$ ; 2$: MOVL #19, R0 ;#19, R0 ; 3231 RET ; ; 3$: CMPL 12(R2), #89 ;REC_TYPE, #89 ; 3239 BEQL 4$ ;4$ ; CMPL 12(R2), #78 ;REC_TYPE, #78 ; BEQL 4$ ;4$ ; PUSHL #134316226 ;#134316226 ; 3242 CALLS #1, W^KRM_ERROR ;#1, KRM_ERROR ; MOVL #10, R0 ;#10, R0 ; 3243 RET ; ; 4$: CMPL 12(R2), #78 ;REC_TYPE, #78 ; 3251 BNEQ 5$ ;5$ ; TSTL 4(R2) ;REC_SEQ ; BNEQ 6$ ;6$ ; 5$: CMPL 12(R2), #89 ;REC_TYPE, #89 ; 3253 BNEQ 7$ ;7$ ; CMPL 4(R2), (R2) ;REC_SEQ, MSG_NUMBER ; BEQL 7$ ;7$ ; 6$: MOVL -16(R2), R0 ;STATE, R0 ; RET ; ; 7$: CLRL -4(R2) ;NUM_RETRIES ; 3258 ADDL3 #1, (R2), R0 ;#1, MSG_NUMBER, R0 ; 3259 EXTZV #0, #6, R0, (R2) ;#0, #6, R0, MSG_NUMBER ; MOVL #9, R0 ;#9, R0 ; 3260 RET ; ; 3261 ; Routine Size: 164 bytes, Routine Base: $CODE$ + 0CF7 ; 3262 1 %SBTTL 'REC_INIT' ; 3263 1 ROUTINE REC_INIT = ; 3264 1 ; 3265 1 !++ ; 3266 1 ! FUNCTIONAL DESCRIPTION: ; 3267 1 ! ; 3268 1 ! This routine will process an initialization message received from ; 3269 1 ! the remote KERMIT. ; 3270 1 ! ; 3271 1 ! CALLING SEQUENCE: ; 3272 1 ! ; 3273 1 ! STATE = REC_INIT(); ; 3274 1 ! ; 3275 1 ! INPUT PARAMETERS: ; 3276 1 ! ; 3277 1 ! None. ; 3278 1 ! ; 3279 1 ! IMPLICIT INPUTS: ; 3280 1 ! ; 3281 1 ! None. ; 3282 1 ! ; 3283 1 ! OUTPUT PARAMETERS: ; 3284 1 ! ; 3285 1 ! New machine state. ; 3286 1 ! ; 3287 1 ! IMPLICIT OUTPUTS: ; 3288 1 ! ; 3289 1 ! None. ; 3290 1 ! ; 3291 1 ! COMPLETION CODES: ; 3292 1 ! ; 3293 1 ! None. ; 3294 1 ! ; 3295 1 ! SIDE EFFECTS: ; 3296 1 ! ; 3297 1 ! None. ; 3298 1 ! ; 3299 1 !-- ; 3300 1 ; 3301 2 BEGIN ; 3302 2 ; 3303 2 LOCAL ; 3304 2 STATUS; ! Status returned by various routines ; 3305 2 ; 3306 2 ROUTINE CHECK_INIT = ; 3307 3 BEGIN ; 3308 3 ; 3309 3 IF .REC_TYPE EQL MSG_SND_INIT THEN RETURN TRUE ELSE RETURN FALSE; ; 3310 3 ; 3311 2 END; ;CHECK_INIT U.76: .WORD ^M<> ;Save nothing ; 3306 CMPL W^U.56, #83 ;U.56, #83 ; 3309 BNEQ 1$ ;1$ ; MOVL #1, R0 ;#1, R0 ; RET ; ; 1$: CLRL R0 ;R0 ; RET ; ; 3311 ; Routine Size: 20 bytes, Routine Base: $CODE$ + 0D9B ; 3312 2 ; 3313 3 IF NOT (STATUS = REC_MESSAGE (CHECK_INIT)) ; 3314 2 THEN ; 3315 2 ; 3316 2 IF .STATUS NEQ KER_ABORTED THEN RETURN STATE_A ELSE RETURN STATE_EX; ; 3317 2 ; 3318 2 MSG_NUMBER = .REC_SEQ; ; 3319 2 ; 3320 2 IF NOT (STATUS = PRS_SEND_INIT ()) THEN RETURN STATE_A; ; 3321 2 ; 3322 2 SET_SEND_INIT (); ; 3323 2 SEND_PACKET (MSG_ACK, P_SI_LENGTH, .MSG_NUMBER); ; 3324 2 BLK_CHK_TYPE = .INI_CHK_TYPE; ! Can now use agreed upon type ; 3325 2 OLD_RETRIES = .NUM_RETRIES; ; 3326 2 NUM_RETRIES = 0; ; 3327 2 MSG_NUMBER = (.MSG_NUMBER + 1) AND %O'77'; ; 3328 2 RETURN STATE_RF; ; 3329 1 END; ! End of REC_INIT ;REC_INIT U.11: .WORD ^M ;Save R2 ; 3263 MOVAB W^U.53, R2 ;U.53, R2 ; PUSHAB B^U.76 ;U.76 ; 3313 CALLS #1, W^U.25 ;#1, U.25 ; BLBS R0, 3$ ;STATUS, 3$ ; CMPL R0, #134316258 ;STATUS, #134316258 ; 3316 BEQL 1$ ;1$ ; MOVL #10, R1 ;#10, R1 ; BRB 2$ ;2$ ; 1$: MOVL #19, R1 ;#19, R1 ; 2$: MOVL R1, R0 ;R1, R0 ; RET ; ; 3$: MOVL 4(R2), (R2) ;REC_SEQ, MSG_NUMBER ; 3318 CALLS #0, W^U.21 ;#0, U.21 ; 3320 BLBS R0, 4$ ;STATUS, 4$ ; MOVL #10, R0 ;#10, R0 ; RET ; ; 4$: CALLS #0, W^U.20 ;#0, U.20 ; 3322 PUSHL (R2) ;MSG_NUMBER ; 3323 PUSHL #9 ;#9 ; MOVZBL #89, -(SP) ;#89, -(SP) ; CALLS #3, W^U.24 ;#3, U.24 ; MOVL -32(R2), -28(R2) ;INI_CHK_TYPE, BLK_CHK_TYPE ; 3324 MOVL -4(R2), -8(R2) ;NUM_RETRIES, OLD_RETRIES ; 3325 CLRL -4(R2) ;NUM_RETRIES ; 3326 ADDL3 #1, (R2), R0 ;#1, MSG_NUMBER, R0 ; 3327 EXTZV #0, #6, R0, (R2) ;#0, #6, R0, MSG_NUMBER ; MOVL #7, R0 ;#7, R0 ; 3328 RET ; ; 3329 ; Routine Size: 99 bytes, Routine Base: $CODE$ + 0DAF ; 3330 1 %SBTTL 'REC_FILE' ; 3331 1 ROUTINE REC_FILE = ; 3332 1 ; 3333 1 !++ ; 3334 1 ! FUNCTIONAL DESCRIPTION: ; 3335 1 ! ; 3336 1 ! This routine expects to receive an MSG_FILE packet from the remote ; 3337 1 ! KERMIT. If the message is correct this routine will change the state ; 3338 1 ! to STATE_RD. ; 3339 1 ! ; 3340 1 ! This routine also expects MSG_SND_INIT, MSG_EOF, or MSG_BREAK. ; 3341 1 ! ; 3342 1 ! CALLING SEQUENCE: ; 3343 1 ! ; 3344 1 ! STATE = REC_FILE(); ; 3345 1 ! ; 3346 1 ! INPUT PARAMETERS: ; 3347 1 ! ; 3348 1 ! None. ; 3349 1 ! ; 3350 1 ! IMPLICIT INPUTS: ; 3351 1 ! ; 3352 1 ! None. ; 3353 1 ! ; 3354 1 ! OUTPUT PARAMETERS: ; 3355 1 ! ; 3356 1 ! New state. ; 3357 1 ! ; 3358 1 ! IMPLICIT OUTPUTS: ; 3359 1 ! ; 3360 1 ! None. ; 3361 1 ! ; 3362 1 ! COMPLETION CODES: ; 3363 1 ! ; 3364 1 ! None. ; 3365 1 ! ; 3366 1 ! SIDE EFFECTS: ; 3367 1 ! ; 3368 1 ! None. ; 3369 1 ! ; 3370 1 !-- ; 3371 1 ; 3372 2 BEGIN ; 3373 2 ; 3374 2 LOCAL ; 3375 2 STATUS; ; 3376 2 ; 3377 2 ROUTINE CHECK_FILE = ; 3378 3 BEGIN ; 3379 3 ; 3380 4 IF (.REC_TYPE EQL MSG_SND_INIT) OR (.REC_TYPE EQL MSG_EOF) OR (.REC_TYPE EQL MSG_FILE) OR ( ; 3381 4 .REC_TYPE EQL MSG_BREAK) OR (.REC_TYPE EQL MSG_TEXT) ; 3382 3 THEN ; 3383 3 RETURN TRUE ; 3384 3 ELSE ; 3385 3 RETURN FALSE; ; 3386 3 ; 3387 2 END; ;CHECK_FILE U.77: .WORD ^M<> ;Save nothing ; 3377 MOVL W^U.56, R0 ;U.56, R0 ; 3380 CMPL R0, #83 ;R0, #83 ; BEQL 1$ ;1$ ; CMPL R0, #90 ;R0, #90 ; BEQL 1$ ;1$ ; CMPL R0, #70 ;R0, #70 ; BEQL 1$ ;1$ ; CMPL R0, #66 ;R0, #66 ; 3381 BEQL 1$ ;1$ ; CMPL R0, #88 ;R0, #88 ; BNEQ 2$ ;2$ ; 1$: MOVL #1, R0 ;#1, R0 ; 3385 RET ; ; 2$: CLRL R0 ;R0 ; RET ; ; 3387 ; Routine Size: 59 bytes, Routine Base: $CODE$ + 0E12 ; 3388 2 ! ; 3389 2 ! Initialize the abort flags ; 3390 2 ! ; 3391 2 ABT_CUR_FILE = FALSE; ; 3392 2 ABT_ALL_FILE = FALSE; ; 3393 2 ! ; 3394 2 ! Get a message ; 3395 2 ! ; 3396 2 ; 3397 3 IF NOT (STATUS = REC_MESSAGE (CHECK_FILE)) ; 3398 2 THEN ; 3399 2 ; 3400 2 IF .STATUS NEQ KER_ABORTED THEN RETURN STATE_A ELSE RETURN STATE_EX; ; 3401 2 ; 3402 2 SELECTONE .REC_TYPE OF ; 3403 2 SET ; 3404 2 ; 3405 2 [MSG_SND_INIT] : ; 3406 3 BEGIN ; 3407 3 ; 3408 3 IF .OLD_RETRIES GTR .SI_RETRIES THEN RETURN STATE_ER; ; 3409 3 ; 3410 3 OLD_RETRIES = .OLD_RETRIES + 1; ; 3411 3 ; 3412 3 IF ((.MSG_NUMBER - 1) AND %O'77') EQL .REC_SEQ ; 3413 3 THEN ; 3414 4 BEGIN ; 3415 4 SET_SEND_INIT (); ; 3416 4 BLK_CHK_TYPE = CHK_1CHAR; ! Must use 1 character CHKSUM ; 3417 4 SEND_PACKET (MSG_ACK, P_SI_LENGTH, .REC_SEQ); ; 3418 4 BLK_CHK_TYPE = .INI_CHK_TYPE; ! Back to agreed upon type ; 3419 4 NUM_RETRIES = 0; ; 3420 4 RETURN .STATE; ; 3421 4 END ; 3422 3 ELSE ; 3423 4 BEGIN ; 3424 4 KRM_ERROR (KER_PROTOERR); ; 3425 4 RETURN STATE_A; ; 3426 3 END; ; 3427 3 ; 3428 2 END; ; 3429 2 ; 3430 2 [MSG_EOF] : ; 3431 3 BEGIN ; 3432 3 ; 3433 3 IF .OLD_RETRIES GTR .PKT_RETRIES THEN RETURN STATE_ER; ; 3434 3 ; 3435 3 OLD_RETRIES = .OLD_RETRIES + 1; ; 3436 3 ; 3437 3 IF ((.MSG_NUMBER - 1) AND %O'77') EQL .REC_SEQ ; 3438 3 THEN ; 3439 4 BEGIN ; 3440 4 SEND_PACKET (MSG_ACK, 0, .REC_SEQ); ; 3441 4 NUM_RETRIES = 0; ; 3442 4 RETURN .STATE; ; 3443 4 END ; 3444 3 ELSE ; 3445 4 BEGIN ; 3446 4 KRM_ERROR (KER_PROTOERR); ; 3447 4 RETURN STATE_A; ; 3448 3 END; ; 3449 3 ; 3450 2 END; ; 3451 2 ; 3452 2 [MSG_FILE] : ; 3453 3 BEGIN ; 3454 3 ; 3455 3 IF .MSG_NUMBER NEQ .REC_SEQ THEN RETURN STATE_ER; ; 3456 3 ; 3457 3 IF .REC_LENGTH EQL 0 ; 3458 3 THEN ; 3459 4 BEGIN ; 3460 4 KRM_ERROR (KER_PROTOERR); ; 3461 4 RETURN STATE_A; ; 3462 3 END; ; 3463 3 ; 3464 3 ![025] ; 3465 3 ![025] Get file name from packet with all quoting undone ; 3466 3 ![025] ; 3467 3 SET_STRING (CH$PTR (FILE_NAME), MAX_FILE_NAME, TRUE); ; 3468 3 BFR_EMPTY (); ; 3469 3 FILE_SIZE = SET_STRING (0, 0, FALSE); ; 3470 3 CH$WCHAR (CHR_NUL, CH$PTR (FILE_NAME, .FILE_SIZE)); ; 3471 3 ![025] FILE_SIZE = .REC_LENGTH; ; 3472 3 ![025] CH$COPY (.REC_LENGTH, CH$PTR (REC_MSG, PKT_MSG, CHR_SIZE), CHR_NUL, MAX_FILE_NAME, ; 3473 3 ![025] CH$PTR (FILE_NAME)); ; 3474 3 ; 3475 3 IF ( NOT .CONNECT_FLAG) AND .TY_FIL ; 3476 3 THEN ; 3477 4 BEGIN ; 3478 4 TT_TEXT (UPLIT (%ASCIZ'Receiving: ')); ; 3479 4 TT_TEXT (FILE_NAME); ; 3480 4 TT_OUTPUT (); ; 3481 3 END; ; 3482 3 ; 3483 3 ![023] ; 3484 3 ![023] Force file name into normal form if desired ; 3485 3 ![023] ; 3486 3 ; 3487 3 IF .FIL_NORMAL_FORM THEN NORMALIZE_FILE (FILE_NAME, FILE_SIZE, 9, 3); ; 3488 3 ; 3489 3 FILE_CHARS = 0; ! No characters received yet ; 3490 3 ; 3491 3 IF NOT FILE_OPEN (FNC_WRITE) THEN RETURN STATE_A; ; 3492 3 ; 3493 3 XFR_STATUS (%C'F', %C'R'); ! Tell display routine ; 3494 3 TEXT_HEAD_FLAG = FALSE; ! Got an F, not an X ; 3495 3 FILE_OPEN_FLAG = TRUE; ; 3496 3 SEND_PACKET (MSG_ACK, 0, .MSG_NUMBER); ; 3497 3 OLD_RETRIES = .NUM_RETRIES; ; 3498 3 NUM_RETRIES = 0; ; 3499 3 MSG_NUMBER = (.MSG_NUMBER + 1) AND %O'77'; ; 3500 3 RETURN STATE_RD; ; 3501 2 END; ; 3502 2 ; 3503 2 [MSG_TEXT] : ; 3504 2 ! ; 3505 2 ! If we get a text header, we will want to type the data on ; 3506 2 ! the terminal. Set up the put a character routine correctly. ; 3507 2 ! ; 3508 3 BEGIN ; 3509 3 ; 3510 3 IF .MSG_NUMBER NEQ .REC_SEQ ; 3511 3 THEN ; 3512 4 BEGIN ; 3513 4 KRM_ERROR (KER_PROTOERR); ; 3514 4 RETURN STATE_A; ; 3515 3 END; ; 3516 3 ; 3517 3 TEXT_HEAD_FLAG = TRUE; ! Got an X, not an F ; 3518 3 PUT_CHR_ROUTINE = TYPE_CHAR; ! Empty buffer on terminal ; 3519 3 ; 3520 3 IF .REC_LENGTH GTR 0 ; 3521 3 THEN ; 3522 4 BEGIN ; 3523 4 TT_TEXT (UPLIT (%ASCIZ'<<')); ! Make file name stick out ; 3524 4 BFR_EMPTY (); ! Do the header data ; 3525 4 TT_TEXT (UPLIT (%ASCIZ'>>')); ; 3526 4 TT_CRLF (); ! And a crlf ; 3527 3 END; ; 3528 3 ; 3529 3 SEND_PACKET (MSG_ACK, 0, .MSG_NUMBER); ; 3530 3 OLD_RETRIES = .NUM_RETRIES; ; 3531 3 NUM_RETRIES = 0; ; 3532 3 MSG_NUMBER = (.MSG_NUMBER + 1) AND %O'77'; ; 3533 3 RETURN STATE_RD; ; 3534 2 END; ; 3535 2 ; 3536 2 [MSG_BREAK] : ; 3537 3 BEGIN ; 3538 3 ; 3539 3 IF .MSG_NUMBER NEQ .REC_SEQ ; 3540 3 THEN ; 3541 4 BEGIN ; 3542 4 KRM_ERROR (KER_PROTOERR); ; 3543 4 RETURN STATE_A; ; 3544 3 END; ; 3545 3 ; 3546 3 SEND_PACKET (MSG_ACK, 0, .REC_SEQ); ; 3547 3 RETURN STATE_C; ; 3548 2 END; ; 3549 2 ; 3550 2 [OTHERWISE] : ; 3551 3 BEGIN ; 3552 3 KRM_ERROR (KER_PROTOERR); ; 3553 3 RETURN STATE_A; ; 3554 2 END; ; 3555 2 TES; ; 3556 2 ; 3557 1 END; ! End of REC_FILE .PSECT $PLIT$,NOWRT,NOEXE,2 P.AAI: .ASCII \Receiving: \<0> ; ; P.AAJ: .ASCII \<<\<0><0> ; ; P.AAK: .ASCII \>>\<0><0> ; ; .PSECT $CODE$,NOWRT,2 ;REC_FILE U.12: .WORD ^M ;Save R2,R3,R4,R5 ; 3331 MOVAB W^TT_TEXT, R5 ;TT_TEXT, R5 ; MOVAB W^FILE_NAME, R4 ;FILE_NAME, R4 ; MOVAB W^U.24, R3 ;U.24, R3 ; MOVAB W^U.53, R2 ;U.53, R2 ; CLRL W^ABT_CUR_FILE ;ABT_CUR_FILE ; 3391 CLRL W^ABT_ALL_FILE ;ABT_ALL_FILE ; 3392 PUSHAB B^U.77 ;U.77 ; 3397 CALLS #1, W^U.25 ;#1, U.25 ; BLBS R0, 2$ ;STATUS, 2$ ; CMPL R0, #134316258 ;STATUS, #134316258 ; 3400 BEQL 1$ ;1$ ; BRW 18$ ;18$ ; 1$: MOVL #19, R0 ;#19, R0 ; RET ; ; 2$: MOVL 12(R2), R0 ;REC_TYPE, R0 ; 3402 CMPL R0, #83 ;R0, #83 ; 3405 BNEQ 3$ ;3$ ; CMPL -8(R2), W^SI_RETRIES ;OLD_RETRIES, SI_RETRIES ; 3408 BGTR 7$ ;7$ ; INCL -8(R2) ;OLD_RETRIES ; 3410 SUBL3 #1, (R2), R0 ;#1, MSG_NUMBER, R0 ; 3412 CMPZV #0, #6, R0, 4(R2) ;#0, #6, R0, REC_SEQ ; BNEQ 9$ ;9$ ; CALLS #0, W^U.20 ;#0, U.20 ; 3415 MOVL #49, -28(R2) ;#49, BLK_CHK_TYPE ; 3416 PUSHL 4(R2) ;REC_SEQ ; 3417 PUSHL #9 ;#9 ; MOVZBL #89, -(SP) ;#89, -(SP) ; CALLS #3, (R3) ;#3, SEND_PACKET ; MOVL -32(R2), -28(R2) ;INI_CHK_TYPE, BLK_CHK_TYPE ; 3418 BRB 4$ ;4$ ; 3419 3$: CMPL R0, #90 ;R0, #90 ; 3430 BNEQ 5$ ;5$ ; CMPL -8(R2), W^PKT_RETRIES ;OLD_RETRIES, PKT_RETRIES ; 3433 BGTR 7$ ;7$ ; INCL -8(R2) ;OLD_RETRIES ; 3435 SUBL3 #1, (R2), R0 ;#1, MSG_NUMBER, R0 ; 3437 CMPZV #0, #6, R0, 4(R2) ;#0, #6, R0, REC_SEQ ; BNEQ 9$ ;9$ ; PUSHL 4(R2) ;REC_SEQ ; 3440 CLRL -(SP) ;-(SP) ; MOVZBL #89, -(SP) ;#89, -(SP) ; CALLS #3, (R3) ;#3, SEND_PACKET ; 4$: CLRL -4(R2) ;NUM_RETRIES ; 3441 MOVL -16(R2), R0 ;STATE, R0 ; 3445 RET ; ; 5$: CMPL R0, #70 ;R0, #70 ; 3452 BEQL 6$ ;6$ ; BRW 14$ ;14$ ; 6$: CMPL (R2), 4(R2) ;MSG_NUMBER, REC_SEQ ; 3455 BEQL 8$ ;8$ ; 7$: MOVL #20, R0 ;#20, R0 ; RET ; ; 8$: TSTL 8(R2) ;REC_LENGTH ; 3457 BNEQ 10$ ;10$ ; 9$: BRW 17$ ;17$ ; 10$: PUSHL #1 ;#1 ; 3467 MOVZBL #132, -(SP) ;#132, -(SP) ; PUSHL R4 ;R4 ; CALLS #3, W^U.30 ;#3, U.30 ; CALLS #0, W^U.28 ;#0, U.28 ; 3468 CLRQ -(SP) ;-(SP) ; 3469 CLRL -(SP) ;-(SP) ; CALLS #3, W^U.30 ;#3, U.30 ; MOVL R0, W^FILE_SIZE ;R0, FILE_SIZE ; MOVAB (R4), R0 ;FILE_NAME, R0 ; 3470 CLRB @W^FILE_SIZE[R0] ;@FILE_SIZE[R0] ; BLBS W^CONNECT_FLAG, 11$ ;CONNECT_FLAG, 11$ ; 3475 BLBC W^TY_FIL, 11$ ;TY_FIL, 11$ ; PUSHAB W^P.AAI ;P.AAI ; 3478 CALLS #1, (R5) ;#1, TT_TEXT ; PUSHL R4 ;R4 ; 3479 CALLS #1, (R5) ;#1, TT_TEXT ; CALLS #0, W^TT_OUTPUT ;#0, TT_OUTPUT ; 3480 11$: BLBC W^FIL_NORMAL_FORM, 12$ ;FIL_NORMAL_FORM, 12$ ; 3487 PUSHL #3 ;#3 ; PUSHL #9 ;#9 ; PUSHAB W^FILE_SIZE ;FILE_SIZE ; PUSHL R4 ;R4 ; CALLS #4, W^U.27 ;#4, U.27 ; 12$: CLRL 212(R2) ;FILE_CHARS ; 3489 PUSHL #1 ;#1 ; 3491 CALLS #1, W^FILE_OPEN ;#1, FILE_OPEN ; BLBS R0, 13$ ;R0, 13$ ; BRW 18$ ;18$ ; 13$: MOVZBL #82, -(SP) ;#82, -(SP) ; 3493 MOVZBL #70, -(SP) ;#70, -(SP) ; CALLS #2, W^XFR_STATUS ;#2, XFR_STATUS ; CLRL 216(R2) ;TEXT_HEAD_FLAG ; 3494 MOVL #1, 208(R2) ;#1, FILE_OPEN_FLAG ; 3495 BRB 15$ ;15$ ; 3496 14$: CMPL R0, #88 ;R0, #88 ; 3503 BNEQ 16$ ;16$ ; CMPL (R2), 4(R2) ;MSG_NUMBER, REC_SEQ ; 3510 BNEQ 17$ ;17$ ; MOVL #1, 216(R2) ;#1, TEXT_HEAD_FLAG ; 3517 MOVAB W^U.31, 240(R2) ;U.31, PUT_CHR_ROUTINE ; 3518 TSTL 8(R2) ;REC_LENGTH ; 3520 BLEQ 15$ ;15$ ; PUSHAB W^P.AAJ ;P.AAJ ; 3523 CALLS #1, (R5) ;#1, TT_TEXT ; CALLS #0, W^U.28 ;#0, U.28 ; 3524 PUSHAB W^P.AAK ;P.AAK ; 3525 CALLS #1, (R5) ;#1, TT_TEXT ; CALLS #0, W^TT_CRLF ;#0, TT_CRLF ; 3526 15$: PUSHL (R2) ;MSG_NUMBER ; 3529 CLRL -(SP) ;-(SP) ; MOVZBL #89, -(SP) ;#89, -(SP) ; CALLS #3, (R3) ;#3, SEND_PACKET ; MOVL -4(R2), -8(R2) ;NUM_RETRIES, OLD_RETRIES ; 3530 CLRL -4(R2) ;NUM_RETRIES ; 3531 ADDL3 #1, (R2), R0 ;#1, MSG_NUMBER, R0 ; 3532 EXTZV #0, #6, R0, (R2) ;#0, #6, R0, MSG_NUMBER ; MOVL #8, R0 ;#8, R0 ; 3533 RET ; ; 16$: CMPL R0, #66 ;R0, #66 ; 3536 BNEQ 17$ ;17$ ; CMPL (R2), 4(R2) ;MSG_NUMBER, REC_SEQ ; 3539 BNEQ 17$ ;17$ ; PUSHL 4(R2) ;REC_SEQ ; 3546 CLRL -(SP) ;-(SP) ; MOVZBL #89, -(SP) ;#89, -(SP) ; CALLS #3, (R3) ;#3, SEND_PACKET ; MOVL #9, R0 ;#9, R0 ; 3547 RET ; ; 17$: PUSHL #134316226 ;#134316226 ; 3552 CALLS #1, W^KRM_ERROR ;#1, KRM_ERROR ; 18$: MOVL #10, R0 ;#10, R0 ; 3553 RET ; ; 3557 ; Routine Size: 465 bytes, Routine Base: $CODE$ + 0E4D ; 3558 1 %SBTTL 'REC_DATA' ; 3559 1 ROUTINE REC_DATA = ; 3560 1 ; 3561 1 !++ ; 3562 1 ! FUNCTIONAL DESCRIPTION: ; 3563 1 ! ; 3564 1 ! This routine will accept data messages and write them to disk. ; 3565 1 ! It will also accept MSG_FILE, MSG_TEXT and MSG_EOF messages. ; 3566 1 ! ; 3567 1 ! CALLING SEQUENCE: ; 3568 1 ! ; 3569 1 ! STATE = REC_DATA(); ; 3570 1 ! ; 3571 1 ! INPUT PARAMETERS: ; 3572 1 ! ; 3573 1 ! None. ; 3574 1 ! ; 3575 1 ! IMPLICIT INPUTS: ; 3576 1 ! ; 3577 1 ! None. ; 3578 1 ! ; 3579 1 ! OUTPUT PARAMETERS: ; 3580 1 ! ; 3581 1 ! New state for the finite state machine. ; 3582 1 ! ; 3583 1 ! IMPLICIT OUTPUTS: ; 3584 1 ! ; 3585 1 ! None. ; 3586 1 ! ; 3587 1 ! COMPLETION CODES: ; 3588 1 ! ; 3589 1 ! None. ; 3590 1 ! ; 3591 1 ! SIDE EFFECTS: ; 3592 1 ! ; 3593 1 ! None. ; 3594 1 ! ; 3595 1 !-- ; 3596 1 ; 3597 2 BEGIN ; 3598 2 ; 3599 2 LOCAL ; 3600 2 STATUS; ; 3601 2 ; 3602 2 ROUTINE CHECK_DATA = ; 3603 3 BEGIN ; 3604 3 ; 3605 3 IF .REC_TYPE EQL MSG_DATA OR (.REC_TYPE EQL MSG_FILE AND NOT .TEXT_HEAD_FLAG) OR .REC_TYPE ; 3606 4 EQL MSG_EOF OR (.REC_TYPE EQL MSG_TEXT AND .TEXT_HEAD_FLAG) ; 3607 3 THEN ; 3608 3 RETURN TRUE ; 3609 3 ELSE ; 3610 3 RETURN FALSE; ; 3611 3 ; 3612 2 END; ;CHECK_DATA U.78: .WORD ^M<> ;Save nothing ; 3602 MOVL W^U.56, R0 ;U.56, R0 ; 3605 CMPL R0, #68 ;R0, #68 ; BEQL 2$ ;2$ ; CMPL R0, #70 ;R0, #70 ; BNEQ 1$ ;1$ ; BLBC W^U.61, 2$ ;U.61, 2$ ; 1$: CMPL R0, #90 ;R0, #90 ; 3606 BEQL 2$ ;2$ ; CMPL R0, #88 ;R0, #88 ; BNEQ 3$ ;3$ ; BLBC W^U.61, 3$ ;U.61, 3$ ; 2$: MOVL #1, R0 ;#1, R0 ; 3610 RET ; ; 3$: CLRL R0 ;R0 ; RET ; ; 3612 ; Routine Size: 60 bytes, Routine Base: $CODE$ + 101E ; 3613 2 ; 3614 2 LOCAL ; 3615 2 SUB_TYPE, ! Subtype for XFR_STATUS ; 3616 2 DISCARD_FILE_FLAG, ! Sender requested discard ; 3617 2 ACK_MSG_LEN; ! Length of ACK to send ; 3618 2 ; 3619 2 ! ; 3620 2 ! First get a message ; 3621 2 ! ; 3622 2 ; 3623 3 IF NOT (STATUS = REC_MESSAGE (CHECK_DATA)) ; 3624 2 THEN ; 3625 2 ; 3626 2 IF .STATUS NEQ KER_ABORTED THEN RETURN STATE_A ELSE RETURN STATE_EX; ; 3627 2 ; 3628 2 SELECTONE .REC_TYPE OF ; 3629 2 SET ; 3630 2 ; 3631 2 [MSG_DATA] : ; 3632 3 BEGIN ; 3633 3 ; 3634 3 IF .MSG_NUMBER NEQ .REC_SEQ ; 3635 3 THEN ; 3636 4 BEGIN ; 3637 4 ; 3638 4 IF .OLD_RETRIES GTR .PKT_RETRIES THEN RETURN STATE_ER; ; 3639 4 ; 3640 4 OLD_RETRIES = .OLD_RETRIES + 1; ; 3641 4 ; 3642 4 IF ((.MSG_NUMBER - 1) AND %O'77') EQL .REC_SEQ ; 3643 4 THEN ; 3644 5 BEGIN ; 3645 5 SEND_PACKET (MSG_ACK, 0, .REC_SEQ); ; 3646 5 NUM_RETRIES = 0; ; 3647 5 RETURN .STATE; ; 3648 5 END ; 3649 4 ELSE ; 3650 5 BEGIN ; 3651 5 KRM_ERROR (KER_PROTOERR); ; 3652 5 RETURN STATE_A; ; 3653 4 END; ; 3654 4 ; 3655 3 END; ; 3656 3 ; 3657 3 ! ; 3658 3 ! Here if we have a message with a valid message number ; 3659 3 ! ; 3660 3 ; 3661 3 IF NOT BFR_EMPTY () THEN RETURN STATE_A; ; 3662 3 ; 3663 3 ! ; 3664 3 ! Check if we wish to abort for some reason ; 3665 3 ! ; 3666 3 ; 3667 3 IF .ABT_CUR_FILE ; 3668 3 THEN ; 3669 4 BEGIN ; 3670 4 CH$WCHAR (MSG_ACK_ABT_CUR, CH$PTR (SND_MSG, PKT_MSG, CHR_SIZE)); ; 3671 4 ACK_MSG_LEN = 1; ; 3672 4 END ; 3673 3 ELSE ; 3674 3 ; 3675 3 IF .ABT_ALL_FILE ; 3676 3 THEN ; 3677 4 BEGIN ; 3678 4 CH$WCHAR (MSG_ACK_ABT_ALL, CH$PTR (SND_MSG, PKT_MSG, CHR_SIZE)); ; 3679 4 ACK_MSG_LEN = 1; ; 3680 4 END ; 3681 3 ELSE ; 3682 3 ACK_MSG_LEN = 0; ; 3683 3 ; 3684 3 ! ; 3685 3 ! Now send the ACK ; 3686 3 ! ; 3687 3 SEND_PACKET (MSG_ACK, .ACK_MSG_LEN, .REC_SEQ); ; 3688 3 OLD_RETRIES = .NUM_RETRIES; ; 3689 3 NUM_RETRIES = 0; ; 3690 3 MSG_NUMBER = (.MSG_NUMBER + 1) AND %O'77'; ; 3691 3 RETURN STATE_RD; ; 3692 2 END; ; 3693 2 ; 3694 2 [MSG_FILE, MSG_TEXT] : ; 3695 3 BEGIN ; 3696 3 ; 3697 3 IF .OLD_RETRIES GTR .PKT_RETRIES THEN RETURN STATE_ER; ; 3698 3 ; 3699 3 OLD_RETRIES = .OLD_RETRIES + 1; ; 3700 3 ; 3701 3 IF ((.MSG_NUMBER - 1) AND %O'77') EQL .REC_SEQ ; 3702 3 THEN ; 3703 4 BEGIN ; 3704 4 SEND_PACKET (MSG_ACK, 0, .REC_SEQ); ; 3705 4 NUM_RETRIES = 0; ; 3706 4 RETURN .STATE; ; 3707 4 END ; 3708 3 ELSE ; 3709 4 BEGIN ; 3710 4 KRM_ERROR (KER_PROTOERR); ; 3711 4 RETURN STATE_A; ; 3712 3 END; ; 3713 3 ; 3714 2 END; ; 3715 2 ; 3716 2 [MSG_EOF] : ; 3717 3 BEGIN ; 3718 3 ; 3719 3 IF .MSG_NUMBER NEQ .REC_SEQ ; 3720 3 THEN ; 3721 4 BEGIN ; 3722 4 KRM_ERROR (KER_PROTOERR); ; 3723 4 RETURN STATE_A; ; 3724 3 END; ; 3725 3 ; 3726 3 SEND_PACKET (MSG_ACK, 0, .REC_SEQ); ; 3727 3 ; 3728 3 IF NOT .TEXT_HEAD_FLAG ; 3729 3 THEN ; 3730 4 BEGIN ; 3731 4 FILE_OPEN_FLAG = FALSE; ; 3732 4 DISCARD_FILE_FLAG = FALSE; ! Assume we want file ; 3733 4 ; 3734 4 IF .REC_LENGTH EQL 1 ; 3735 4 THEN ; 3736 4 ; 3737 4 IF CH$RCHAR (CH$PTR (REC_MSG, PKT_MSG, CHR_SIZE)) EQL MSG_EOF_DISCARD ; 3738 4 THEN ; 3739 4 DISCARD_FILE_FLAG = TRUE; ; 3740 4 ; 3741 4 IF ( NOT .CONNECT_FLAG) AND .TY_FIL ; 3742 4 THEN ; 3743 5 BEGIN ; 3744 5 ; 3745 5 IF .DISCARD_FILE_FLAG ; 3746 5 THEN ; 3747 5 ; 3748 5 IF .ABT_FLAG ; 3749 5 THEN ; 3750 5 TT_TEXT (UPLIT (%ASCIZ' [Interrupted]')) ; 3751 5 ELSE ; 3752 5 TT_TEXT (UPLIT (%ASCIZ' [Interrupted, partial file saved]')) ; 3753 5 ; 3754 5 ELSE ; 3755 5 TT_TEXT (UPLIT (%ASCIZ' [OK]')); ; 3756 5 ; 3757 5 TT_CRLF (); ; 3758 4 END; ; 3759 4 ; 3760 4 IF NOT FILE_CLOSE (.DISCARD_FILE_FLAG AND .ABT_FLAG) THEN RETURN STATE_A; ; 3761 4 ; 3762 4 IF .DISCARD_FILE_FLAG ; 3763 4 THEN ; 3764 4 ; 3765 4 IF .ABT_FLAG THEN SUB_TYPE = %C'X' ELSE SUB_TYPE = %C'D' ; 3766 4 ; 3767 4 ELSE ; 3768 4 SUB_TYPE = %C'C'; ; 3769 4 ; 3770 4 END ; 3771 3 ELSE ; 3772 4 BEGIN ; 3773 4 TT_CRLF (); ! Make sure we have a CRLF ; 3774 4 TT_OUTPUT (); ! And make sure all output is sent ; 3775 3 END; ; 3776 3 ; 3777 3 XFR_STATUS (%C'F', .SUB_TYPE); ; 3778 3 MSG_NUMBER = (.MSG_NUMBER + 1) AND %O'77'; ; 3779 3 RETURN STATE_RF; ; 3780 2 END; ; 3781 2 ; 3782 2 [OTHERWISE] : ; 3783 3 BEGIN ; 3784 3 KRM_ERROR (KER_PROTOERR); ; 3785 3 RETURN STATE_A; ; 3786 2 END; ; 3787 2 TES; ; 3788 2 ; 3789 1 END; ! End of REC_DATA .PSECT $PLIT$,NOWRT,NOEXE,2 P.AAL: .ASCII \ [Interrupted]\<0><0> ; ; P.AAM: .ASCII \ [Interrupted, partial file saved]\<0><0> ; ; P.AAN: .ASCII \ [OK]\<0><0><0> ; ; .PSECT $CODE$,NOWRT,2 ;REC_DATA U.13: .WORD ^M ;Save R2,R3,R4,R5 ; 3559 MOVAB W^ABT_FLAG, R5 ;ABT_FLAG, R5 ; MOVAB W^U.24, R4 ;U.24, R4 ; MOVAB W^U.53, R3 ;U.53, R3 ; PUSHAB B^U.78 ;U.78 ; 3623 CALLS #1, W^U.25 ;#1, U.25 ; BLBS R0, 3$ ;STATUS, 3$ ; CMPL R0, #134316258 ;STATUS, #134316258 ; 3626 BEQL 2$ ;2$ ; 1$: BRW 28$ ;28$ ; 2$: MOVL #19, R0 ;#19, R0 ; RET ; ; 3$: MOVL 12(R3), R0 ;REC_TYPE, R0 ; 3628 CMPL R0, #68 ;R0, #68 ; 3631 BNEQ 9$ ;9$ ; MOVL 4(R3), R1 ;REC_SEQ, R1 ; 3634 CMPL (R3), R1 ;MSG_NUMBER, R1 ; BEQL 4$ ;4$ ; CMPL -8(R3), W^PKT_RETRIES ;OLD_RETRIES, PKT_RETRIES ; 3638 BGTR 11$ ;11$ ; INCL -8(R3) ;OLD_RETRIES ; 3640 SUBL3 #1, (R3), R0 ;#1, MSG_NUMBER, R0 ; 3642 CMPZV #0, #6, R0, R1 ;#0, #6, R0, R1 ; BNEQ 13$ ;13$ ; PUSHL R1 ;R1 ; 3645 BRB 14$ ;14$ ; 4$: CALLS #0, W^U.28 ;#0, U.28 ; 3661 BLBC R0, 1$ ;R0, 1$ ; BLBC W^ABT_CUR_FILE, 5$ ;ABT_CUR_FILE, 5$ ; 3667 MOVB #88, 116(R3) ;#88, SND_MSG+4 ; 3670 BRB 6$ ;6$ ; 3671 5$: BLBC W^ABT_ALL_FILE, 7$ ;ABT_ALL_FILE, 7$ ; 3675 MOVB #90, 116(R3) ;#90, SND_MSG+4 ; 3678 6$: MOVL #1, R0 ;#1, ACK_MSG_LEN ; 3679 BRB 8$ ;8$ ; 3675 7$: CLRL R0 ;ACK_MSG_LEN ; 3682 8$: PUSHL 4(R3) ;REC_SEQ ; 3687 PUSHL R0 ;ACK_MSG_LEN ; MOVZBL #89, -(SP) ;#89, -(SP) ; CALLS #3, (R4) ;#3, SEND_PACKET ; MOVL -4(R3), -8(R3) ;NUM_RETRIES, OLD_RETRIES ; 3688 CLRL -4(R3) ;NUM_RETRIES ; 3689 ADDL3 #1, (R3), R0 ;#1, MSG_NUMBER, R0 ; 3690 EXTZV #0, #6, R0, (R3) ;#0, #6, R0, MSG_NUMBER ; MOVL #8, R0 ;#8, R0 ; 3691 RET ; ; 9$: CMPL R0, #70 ;R0, #70 ; 3694 BEQL 10$ ;10$ ; CMPL R0, #88 ;R0, #88 ; BNEQ 15$ ;15$ ; 10$: CMPL -8(R3), W^PKT_RETRIES ;OLD_RETRIES, PKT_RETRIES ; 3697 BLEQ 12$ ;12$ ; 11$: MOVL #20, R0 ;#20, R0 ; RET ; ; 12$: INCL -8(R3) ;OLD_RETRIES ; 3699 SUBL3 #1, (R3), R0 ;#1, MSG_NUMBER, R0 ; 3701 CMPZV #0, #6, R0, 4(R3) ;#0, #6, R0, REC_SEQ ; 13$: BNEQ 16$ ;16$ ; PUSHL 4(R3) ;REC_SEQ ; 3704 14$: CLRL -(SP) ;-(SP) ; MOVZBL #89, -(SP) ;#89, -(SP) ; CALLS #3, (R4) ;#3, SEND_PACKET ; CLRL -4(R3) ;NUM_RETRIES ; 3705 MOVL -16(R3), R0 ;STATE, R0 ; 3709 RET ; ; 15$: CMPL R0, #90 ;R0, #90 ; 3716 BNEQ 16$ ;16$ ; CMPL (R3), 4(R3) ;MSG_NUMBER, REC_SEQ ; 3719 16$: BEQL 17$ ;17$ ; BRW 27$ ;27$ ; 17$: PUSHL 4(R3) ;REC_SEQ ; 3726 CLRL -(SP) ;-(SP) ; MOVZBL #89, -(SP) ;#89, -(SP) ; CALLS #3, (R4) ;#3, SEND_PACKET ; BLBS 216(R3), 25$ ;TEXT_HEAD_FLAG, 25$ ; 3728 CLRL 208(R3) ;FILE_OPEN_FLAG ; 3731 CLRL R2 ;DISCARD_FILE_FLAG ; 3732 CMPL 8(R3), #1 ;REC_LENGTH, #1 ; 3734 BNEQ 18$ ;18$ ; CMPB 20(R3), #68 ;REC_MSG+4, #68 ; 3737 BNEQ 18$ ;18$ ; MOVL #1, R2 ;#1, DISCARD_FILE_FLAG ; 3739 18$: BLBS W^CONNECT_FLAG, 22$ ;CONNECT_FLAG, 22$ ; 3741 BLBC W^TY_FIL, 22$ ;TY_FIL, 22$ ; BLBC R2, 20$ ;DISCARD_FILE_FLAG, 20$ ; 3745 BLBC (R5), 19$ ;ABT_FLAG, 19$ ; 3748 PUSHAB W^P.AAL ;P.AAL ; 3750 BRB 21$ ;21$ ; 19$: PUSHAB W^P.AAM ;P.AAM ; 3752 BRB 21$ ;21$ ; 20$: PUSHAB W^P.AAN ;P.AAN ; 3755 21$: CALLS #1, W^TT_TEXT ;#1, TT_TEXT ; CALLS #0, W^TT_CRLF ;#0, TT_CRLF ; 3757 22$: MCOML (R5), R0 ;ABT_FLAG, R0 ; 3760 BICL3 R0, R2, -(SP) ;R0, DISCARD_FILE_FLAG, -(SP) ; CALLS #1, W^FILE_CLOSE ;#1, FILE_CLOSE ; BLBC R0, 28$ ;R0, 28$ ; BLBC R2, 24$ ;DISCARD_FILE_FLAG, 24$ ; 3762 BLBC (R5), 23$ ;ABT_FLAG, 23$ ; 3765 MOVZBL #88, R0 ;#88, SUB_TYPE ; BRB 26$ ;26$ ; 23$: MOVZBL #68, R0 ;#68, SUB_TYPE ; BRB 26$ ;26$ ; 24$: MOVZBL #67, R0 ;#67, SUB_TYPE ; 3768 BRB 26$ ;26$ ; 3728 25$: CALLS #0, W^TT_CRLF ;#0, TT_CRLF ; 3773 CALLS #0, W^TT_OUTPUT ;#0, TT_OUTPUT ; 3774 26$: PUSHL R0 ;SUB_TYPE ; 3777 MOVZBL #70, -(SP) ;#70, -(SP) ; CALLS #2, W^XFR_STATUS ;#2, XFR_STATUS ; ADDL3 #1, (R3), R0 ;#1, MSG_NUMBER, R0 ; 3778 EXTZV #0, #6, R0, (R3) ;#0, #6, R0, MSG_NUMBER ; MOVL #7, R0 ;#7, R0 ; 3779 RET ; ; 27$: PUSHL #134316226 ;#134316226 ; 3784 CALLS #1, W^KRM_ERROR ;#1, KRM_ERROR ; 28$: MOVL #10, R0 ;#10, R0 ; 3785 RET ; ; 3789 ; Routine Size: 414 bytes, Routine Base: $CODE$ + 105A ; 3790 1 %SBTTL 'SERVER - Generic commands' ; 3791 1 ROUTINE SERVER_GENERIC = ; 3792 1 ; 3793 1 !++ ; 3794 1 ! FUNCTIONAL DESCRIPTION: ; 3795 1 ! ; 3796 1 ! This routine will handle the generic server messages. ; 3797 1 ! The generic server messages include FINISH, LOGOUT. ; 3798 1 ! ; 3799 1 ! CALLING SEQUENCE: ; 3800 1 ! ; 3801 1 ! STATE = SERVER_GENERIC(); ; 3802 1 ! ; 3803 1 ! INPUT PARAMETERS: ; 3804 1 ! ; 3805 1 ! None. ; 3806 1 ! ; 3807 1 ! IMPLICIT INPUTS: ; 3808 1 ! ; 3809 1 ! Generic message receive in REC_MSG. ; 3810 1 ! ; 3811 1 ! OUTPUT PARAMETERS: ; 3812 1 ! ; 3813 1 ! Returns new state for FSM ; 3814 1 ! ; 3815 1 ! IMPLICIT OUTPUTS: ; 3816 1 ! ; 3817 1 ! None. ; 3818 1 ! ; 3819 1 ! COMPLETION CODES: ; 3820 1 ! ; 3821 1 ! None. ; 3822 1 ! ; 3823 1 ! SIDE EFFECTS: ; 3824 1 ! ; 3825 1 ! None. ; 3826 1 ! ; 3827 1 !-- ; 3828 1 ; 3829 2 BEGIN ; 3830 2 ; 3831 2 LOCAL ; 3832 2 STATUS, ! Returned status ; 3833 2 G_FUNC, ! Generic command function ; 3834 2 POINTER, ! Character pointer ; 3835 2 DATA_TEXT : VECTOR [CH$ALLOCATION (MAX_MSG)], ! Unpacked message ; 3836 2 DATA_SIZE; ! Actual size of data ; 3837 2 ; 3838 2 ROUTINE UNPACK_DATA (POINTER, SIZE, DST_ADDR, DST_LEN) = ; 3839 2 ! ; 3840 2 ! Routine to unpack an argument. ; 3841 2 ! This will copy the argument data to the desired buffer. ; 3842 2 ! ; 3843 3 BEGIN ; 3844 3 ; 3845 3 IF .SIZE GTR 0 ! If we have something to unpack ; 3846 3 THEN ; 3847 4 BEGIN ; 3848 4 .DST_LEN = UNCHAR (CH$RCHAR_A (.POINTER)); ; 3849 4 ; 3850 4 IF ..DST_LEN LSS 0 ; 3851 4 THEN ; 3852 5 BEGIN ; 3853 5 KRM_ERROR (KER_PROTOERR); ! Someone screwed up ; 3854 5 ..DST_LEN = 0; ; 3855 5 RETURN -1; ; 3856 4 END; ; 3857 4 ; 3858 4 IF ..DST_LEN GTR .SIZE - 1 THEN .DST_LEN = .SIZE - 1; ; 3859 4 ; 3860 4 CH$COPY (..DST_LEN, ..POINTER, CHR_NUL, MAX_MSG, CH$PTR (.DST_ADDR)); ; 3861 4 .POINTER = CH$PLUS (..POINTER, ..DST_LEN); ; 3862 4 RETURN .SIZE - ..DST_LEN - 1; ; 3863 4 END ; 3864 3 ELSE ; 3865 3 ! ; 3866 3 ! If nothing left in buffer, return the current size (0) ; 3867 3 ! ; 3868 3 RETURN .SIZE; ; 3869 3 ; 3870 2 END; ;UNPACK_DATA U.79: .WORD ^M ;Save R2,R3,R4,R5,R6 ; 3838 MOVL 8(AP), R6 ;SIZE, R6 ; 3845 BLEQ 3$ ;3$ ; MOVL @4(AP), R1 ;@POINTER, R1 ; 3848 MOVZBL (R1), R0 ;(R1), R0 ; INCL @4(AP) ;@POINTER ; MOVAB -32(R0), @16(AP) ;-32(R0), @DST_LEN ; MOVL @16(AP), R2 ;@DST_LEN, R2 ; 3850 BGEQ 1$ ;1$ ; PUSHL #134316226 ;#134316226 ; 3853 CALLS #1, W^KRM_ERROR ;#1, KRM_ERROR ; CLRL (R2) ;(R2) ; 3854 MNEGL #1, R0 ;#1, R0 ; 3855 RET ; ; 1$: MOVAB -1(R6), R0 ;-1(R6), R0 ; 3858 CMPL R2, R0 ;R2, R0 ; BLEQ 2$ ;2$ ; MOVL R0, @16(AP) ;R0, @DST_LEN ; 2$: MOVL @4(AP), R0 ;@POINTER, R0 ; 3860 MOVC5 @16(AP), (R0), #0, #96, @12(AP) ;@DST_LEN, (R0), #0, #96, @DST_ADDR ; ADDL2 @16(AP), @4(AP) ;@DST_LEN, @POINTER ; 3861 SUBL3 @16(AP), R6, R0 ;@DST_LEN, R6, R0 ; 3862 DECL R0 ;R0 ; RET ; ; 3868 3$: MOVL R6, R0 ;R6, R0 ; RET ; ; 3870 ; Routine Size: 90 bytes, Routine Base: $CODE$ + 11F8 ; 3871 2 ! ; 3872 2 ! First unpack the message data into its various pieces ; 3873 2 ! ; 3874 2 SET_STRING (CH$PTR (DATA_TEXT), MAX_MSG, TRUE); ! Initialize for unpacking ; 3875 2 BFR_EMPTY (); ! Unpack the data ; 3876 2 DATA_SIZE = SET_STRING (0, 0, FALSE); ! All done, get size ; 3877 2 ; 3878 2 IF .DATA_SIZE LEQ 0 ; 3879 2 THEN ; 3880 3 BEGIN ; 3881 3 KRM_ERROR (KER_PROTOERR); ! Someone screwed up ; 3882 3 RETURN STATE_A; ! Since no subtype ; 3883 2 END; ; 3884 2 ; 3885 2 ! ; 3886 2 ! Get the arguments from the unpacked data (if any) ; 3887 2 ! ; 3888 2 GEN_1SIZE = 0; ! Assume no args ; 3889 2 GEN_2SIZE = 0; ! none at all ; 3890 2 GEN_3SIZE = 0; ; 3891 2 CH$WCHAR (CHR_NUL, CH$PTR (GEN_1DATA)); ! Ensure all are null terminated ; 3892 2 CH$WCHAR (CHR_NUL, CH$PTR (GEN_2DATA)); ; 3893 2 CH$WCHAR (CHR_NUL, CH$PTR (GEN_3DATA)); ; 3894 2 POINTER = CH$PTR (DATA_TEXT, 1); ! Point at second character ; 3895 2 DATA_SIZE = .DATA_SIZE - 1; ! Account for subtype ; 3896 2 ; 3897 2 IF .DATA_SIZE GTR 0 ! Room for first arg? ; 3898 2 THEN ; 3899 3 BEGIN ; 3900 3 DATA_SIZE = UNPACK_DATA (POINTER, .DATA_SIZE, GEN_1DATA, GEN_1SIZE); ; 3901 3 ; 3902 3 IF .DATA_SIZE LSS 0 THEN RETURN STATE_A; ! Punt if bad arguments ; 3903 3 ; 3904 3 IF .DATA_SIZE GTR 0 ! Second argument present? ; 3905 3 THEN ; 3906 4 BEGIN ; 3907 4 DATA_SIZE = UNPACK_DATA (POINTER, .DATA_SIZE, GEN_2DATA, GEN_2SIZE); ; 3908 4 ; 3909 4 IF .DATA_SIZE LSS 0 THEN RETURN STATE_A; ! Punt if bad arguments ; 3910 4 ; 3911 4 IF .DATA_SIZE GTR 0 ! Third argument here? ; 3912 4 THEN ; 3913 5 BEGIN ; 3914 5 DATA_SIZE = UNPACK_DATA (POINTER, .DATA_SIZE, GEN_3DATA, GEN_3SIZE); ; 3915 5 ; 3916 5 IF .DATA_SIZE LSS 0 THEN RETURN STATE_A; ! Punt if bad arguments ; 3917 5 ; 3918 4 END; ; 3919 4 ; 3920 3 END; ; 3921 3 ; 3922 2 END; ; 3923 2 ; 3924 2 SELECTONE CH$RCHAR (CH$PTR (DATA_TEXT)) OF ; 3925 2 SET ; 3926 2 ! ; 3927 2 ! EXIT command, just return the status to the upper level ; 3928 2 ! ; 3929 2 ; 3930 2 [MSG_GEN_EXIT] : ; 3931 3 BEGIN ; 3932 3 SEND_PACKET (MSG_ACK, 0, .REC_SEQ); ; 3933 3 RETURN STATE_FI; ; 3934 2 END; ; 3935 2 ! ; 3936 2 ! LOGOUT command, ACK the message then call the system routine to ; 3937 2 ! kill the process (log the job out, etc.) ; 3938 2 ! ; 3939 2 ; 3940 2 [MSG_GEN_LOGOUT] : ; 3941 3 BEGIN ; 3942 3 SEND_PACKET (MSG_ACK, 0, .REC_SEQ); ; 3943 3 SY_LOGOUT (); ; 3944 3 RETURN STATE_LG; ; 3945 2 END; ; 3946 2 ! ; 3947 2 ! For a type command, just set up a transfer flagging we want a text header ; 3948 2 ! instead of a file header. ; 3949 2 ! ; 3950 2 ; 3951 2 [MSG_GEN_TYPE] : ; 3952 3 BEGIN ; 3953 3 CH$COPY (.GEN_1SIZE, CH$PTR (GEN_1DATA), CHR_NUL, MAX_FILE_NAME, CH$PTR (FILE_NAME)); ; 3954 3 FILE_SIZE = .GEN_1SIZE; ; 3955 3 TEXT_HEAD_FLAG = TRUE; ! Now want text header ; 3956 3 XFR_STATUS (%C'I', %C'G'); ! Tell display routine we are doing a command ; 3957 3 ; 3958 3 IF .STATE EQL STATE_II AND .BLK_CHK_TYPE EQL .INI_CHK_TYPE ; 3959 3 THEN ; 3960 3 RETURN STATE_OF ! Must open the file ; 3961 3 ELSE ; 3962 3 RETURN STATE_S; ! Start the transaction with a send ; 3963 3 ; 3964 2 END; ; 3965 2 ; 3966 2 [MSG_GEN_DIRECTORY] : ; 3967 2 G_FUNC = GC_DIRECTORY; ; 3968 2 ; 3969 2 [MSG_GEN_DISK_USAGE] : ; 3970 2 G_FUNC = GC_DISK_USAGE; ; 3971 2 ; 3972 2 [MSG_GEN_DELETE] : ; 3973 2 G_FUNC = GC_DELETE; ; 3974 2 ; 3975 2 [MSG_GEN_HELP] : ; 3976 2 G_FUNC = GC_HELP; ; 3977 2 ; 3978 2 [MSG_GEN_LOGIN] : ; 3979 2 G_FUNC = GC_LGN; ; 3980 2 ; 3981 2 [MSG_GEN_CONNECT] : ; 3982 2 G_FUNC = GC_CONNECT; ; 3983 2 ; 3984 2 [MSG_GEN_RENAME] : ; 3985 2 G_FUNC = GC_RENAME; ; 3986 2 ; 3987 2 [MSG_GEN_COPY] : ; 3988 2 G_FUNC = GC_COPY; ; 3989 2 ; 3990 2 [MSG_GEN_WHO] : ; 3991 2 G_FUNC = GC_WHO; ; 3992 2 ; 3993 2 [MSG_GEN_SEND] : ; 3994 2 G_FUNC = GC_SEND_MSG; ; 3995 2 ; 3996 2 [MSG_GEN_QUERY] : ; 3997 2 G_FUNC = GC_STATUS; ; 3998 2 ; 3999 2 [MSG_GEN_PROGRAM] : ; 4000 2 G_FUNC = GC_PROGRAM; ; 4001 2 ; 4002 2 [MSG_GEN_JOURNAL] : ; 4003 2 G_FUNC = GC_JOURNAL; ; 4004 2 ; 4005 2 [MSG_GEN_VARIABLE] : ; 4006 2 G_FUNC = GC_VARIABLE; ; 4007 2 ! ; 4008 2 ! Here if we have a function that is not implemented in KERMSG. ; 4009 2 ! ; 4010 2 ; 4011 2 [OTHERWISE] : ; 4012 3 BEGIN ; 4013 3 KRM_ERROR (KER_UNIMPLGEN); ; 4014 3 RETURN STATE_A; ; 4015 2 END; ; 4016 2 TES; ; 4017 2 ; 4018 2 ! ; 4019 2 ! If we get here, we have gotten a known type of generic message that ; 4020 2 ! we need to have our operating system dependent routine handle. ; 4021 2 ! ; 4022 2 RETURN CALL_SY_RTN (.G_FUNC); ; 4023 1 END; ! End of SERVER_GENERIC ;SERVER_GENERIC U.14: .WORD ^M ;Save R2,R3,R4,R5,R6,R7,R8,R9,R10 ; 3791 MOVAB B^U.79, R10 ;U.79, R10 ; MOVAB W^GEN_1DATA, R9 ;GEN_1DATA, R9 ; MOVAB W^GEN_1SIZE, R8 ;GEN_1SIZE, R8 ; MOVAB W^U.54, R7 ;U.54, R7 ; MOVAB -100(SP), SP ;-100(SP), SP ; PUSHL #1 ;#1 ; 3874 MOVZBL #96, -(SP) ;#96, -(SP) ; PUSHAB 12(SP) ;DATA_TEXT ; CALLS #3, W^U.30 ;#3, U.30 ; CALLS #0, W^U.28 ;#0, U.28 ; 3875 CLRQ -(SP) ;-(SP) ; 3876 CLRL -(SP) ;-(SP) ; CALLS #3, W^U.30 ;#3, U.30 ; MOVL R0, R2 ;R0, DATA_SIZE ; BGTR 1$ ;1$ ; 3878 PUSHL #134316226 ;#134316226 ; 3881 BRW 25$ ;25$ ; 1$: CLRL (R8) ;GEN_1SIZE ; 3888 CLRL W^GEN_2SIZE ;GEN_2SIZE ; 3889 CLRL W^GEN_3SIZE ;GEN_3SIZE ; 3890 CLRB (R9) ;GEN_1DATA ; 3891 CLRB W^GEN_2DATA ;GEN_2DATA ; 3892 CLRB W^GEN_3DATA ;GEN_3DATA ; 3893 MOVAB 5(SP), (SP) ;DATA_TEXT+1, POINTER ; 3894 DECL R2 ;DATA_SIZE ; 3895 BLEQ 3$ ;3$ ; 3897 PUSHL R8 ;R8 ; 3900 PUSHR #^M ;#^M ; PUSHAB 12(SP) ;POINTER ; CALLS #4, (R10) ;#4, UNPACK_DATA ; MOVL R0, R2 ;R0, DATA_SIZE ; BLSS 2$ ;2$ ; 3902 BLEQ 3$ ;3$ ; 3904 PUSHAB W^GEN_2SIZE ;GEN_2SIZE ; 3907 PUSHAB W^GEN_2DATA ;GEN_2DATA ; PUSHL R2 ;DATA_SIZE ; PUSHAB 12(SP) ;POINTER ; CALLS #4, (R10) ;#4, UNPACK_DATA ; MOVL R0, R2 ;R0, DATA_SIZE ; BLSS 2$ ;2$ ; 3909 BLEQ 3$ ;3$ ; 3911 PUSHAB W^GEN_3SIZE ;GEN_3SIZE ; 3914 PUSHAB W^GEN_3DATA ;GEN_3DATA ; PUSHL R2 ;DATA_SIZE ; PUSHAB 12(SP) ;POINTER ; CALLS #4, (R10) ;#4, UNPACK_DATA ; MOVL R0, R2 ;R0, DATA_SIZE ; 2$: BGEQ 3$ ;3$ ; 3916 BRW 26$ ;26$ ; 3$: MOVZBL 4(SP), R6 ;DATA_TEXT, R6 ; 3924 CMPB R6, #70 ;R6, #70 ; 3930 BNEQ 4$ ;4$ ; PUSHL (R7) ;REC_SEQ ; 3932 CLRL -(SP) ;-(SP) ; MOVZBL #89, -(SP) ;#89, -(SP) ; CALLS #3, W^U.24 ;#3, U.24 ; MOVL #16, R0 ;#16, R0 ; 3933 RET ; ; 4$: CMPB R6, #76 ;R6, #76 ; 3940 BNEQ 5$ ;5$ ; PUSHL (R7) ;REC_SEQ ; 3942 CLRL -(SP) ;-(SP) ; MOVZBL #89, -(SP) ;#89, -(SP) ; CALLS #3, W^U.24 ;#3, U.24 ; CALLS #0, W^SY_LOGOUT ;#0, SY_LOGOUT ; 3943 MOVL #17, R0 ;#17, R0 ; 3944 RET ; ; 5$: CMPB R6, #84 ;R6, #84 ; 3951 BNEQ 7$ ;7$ ; MOVC5 (R8), (R9), #0, #132, W^FILE_NAME ;GEN_1SIZE, GEN_1DATA, #0, #132, FILE_NAME ; 3953 MOVL (R8), W^FILE_SIZE ;GEN_1SIZE, FILE_SIZE ; 3954 MOVL #1, 212(R7) ;#1, TEXT_HEAD_FLAG ; 3955 MOVZBL #71, -(SP) ;#71, -(SP) ; 3956 MOVZBL #73, -(SP) ;#73, -(SP) ; CALLS #2, W^XFR_STATUS ;#2, XFR_STATUS ; CMPL -20(R7), #15 ;STATE, #15 ; 3958 BNEQ 6$ ;6$ ; CMPL -32(R7), -36(R7) ;BLK_CHK_TYPE, INI_CHK_TYPE ; BNEQ 6$ ;6$ ; MOVL #18, R0 ;#18, R0 ; 3962 RET ; ; 6$: MOVL #1, R0 ;#1, R0 ; RET ; ; 7$: CMPB R6, #68 ;R6, #68 ; 3966 BNEQ 8$ ;8$ ; MOVL #2, R2 ;#2, G_FUNC ; 3967 BRW 21$ ;21$ ; 8$: CMPB R6, #85 ;R6, #85 ; 3969 BNEQ 9$ ;9$ ; MOVL #3, R2 ;#3, G_FUNC ; 3970 BRB 10$ ;10$ ; 9$: CMPB R6, #69 ;R6, #69 ; 3972 BNEQ 11$ ;11$ ; MOVL #4, R2 ;#4, G_FUNC ; 3973 10$: BRB 23$ ;23$ ; 11$: CMPB R6, #72 ;R6, #72 ; 3975 BNEQ 12$ ;12$ ; MOVL #6, R2 ;#6, G_FUNC ; 3976 BRB 27$ ;27$ ; 12$: CMPB R6, #73 ;R6, #73 ; 3978 BNEQ 13$ ;13$ ; MOVL #8, R2 ;#8, G_FUNC ; 3979 BRB 27$ ;27$ ; 13$: CMPB R6, #67 ;R6, #67 ; 3981 BNEQ 14$ ;14$ ; MOVL #9, R2 ;#9, G_FUNC ; 3982 BRB 27$ ;27$ ; 14$: CMPB R6, #82 ;R6, #82 ; 3984 BNEQ 15$ ;15$ ; MOVL #10, R2 ;#10, G_FUNC ; 3985 BRB 27$ ;27$ ; 15$: CMPB R6, #75 ;R6, #75 ; 3987 BNEQ 16$ ;16$ ; MOVL #11, R2 ;#11, G_FUNC ; 3988 BRB 27$ ;27$ ; 16$: CMPB R6, #87 ;R6, #87 ; 3990 BNEQ 17$ ;17$ ; MOVL #12, R2 ;#12, G_FUNC ; 3991 BRB 27$ ;27$ ; 17$: CMPB R6, #77 ;R6, #77 ; 3993 BNEQ 18$ ;18$ ; MOVL #13, R2 ;#13, G_FUNC ; 3994 BRB 27$ ;27$ ; 18$: CMPB R6, #81 ;R6, #81 ; 3996 BNEQ 19$ ;19$ ; MOVL #14, R2 ;#14, G_FUNC ; 3997 BRB 27$ ;27$ ; 19$: CMPB R6, #80 ;R6, #80 ; 3999 BNEQ 20$ ;20$ ; MOVL #19, R2 ;#19, G_FUNC ; 4000 BRB 27$ ;27$ ; 20$: CMPB R6, #74 ;R6, #74 ; 4002 BNEQ 22$ ;22$ ; MOVL #17, R2 ;#17, G_FUNC ; 4003 21$: BRB 27$ ;27$ ; 22$: CMPB R6, #86 ;R6, #86 ; 4005 BNEQ 24$ ;24$ ; MOVL #18, R2 ;#18, G_FUNC ; 4006 23$: BRB 27$ ;27$ ; 24$: PUSHL #134316210 ;#134316210 ; 4013 25$: CALLS #1, W^KRM_ERROR ;#1, KRM_ERROR ; 26$: MOVL #10, R0 ;#10, R0 ; 4014 RET ; ; 27$: PUSHL R2 ;G_FUNC ; 4022 CALLS #1, W^U.17 ;#1, U.17 ; RET ; ; 4023 ; Routine Size: 454 bytes, Routine Base: $CODE$ + 1252 ; 4024 1 %SBTTL 'HOST_COMMAND - perform a host command' ; 4025 1 ROUTINE HOST_COMMAND = ; 4026 1 ; 4027 1 !++ ; 4028 1 ! FUNCTIONAL DESCRIPTION: ; 4029 1 ! ; 4030 1 ! This routine will handle the host command packet. ; 4031 1 ! It will set up the data for the call to the system routine. ; 4032 1 ! ; 4033 1 ! CALLING SEQUENCE: ; 4034 1 ! ; 4035 1 ! STATE = HOST_COMMAND(); ; 4036 1 ! ; 4037 1 ! INPUT PARAMETERS: ; 4038 1 ! ; 4039 1 ! None. ; 4040 1 ! ; 4041 1 ! IMPLICIT INPUTS: ; 4042 1 ! ; 4043 1 ! Generic message receive in REC_MSG. ; 4044 1 ! ; 4045 1 ! OUTPUT PARAMETERS: ; 4046 1 ! ; 4047 1 ! Returns new state for FSM ; 4048 1 ! ; 4049 1 ! IMPLICIT OUTPUTS: ; 4050 1 ! ; 4051 1 ! None. ; 4052 1 ! ; 4053 1 ! COMPLETION CODES: ; 4054 1 ! ; 4055 1 ! None. ; 4056 1 ! ; 4057 1 ! SIDE EFFECTS: ; 4058 1 ! ; 4059 1 ! None. ; 4060 1 ! ; 4061 1 !-- ; 4062 1 ; 4063 2 BEGIN ; 4064 2 GEN_1SIZE = 0; ; 4065 2 GEN_2SIZE = 0; ; 4066 2 GEN_3SIZE = 0; ; 4067 2 ; 4068 2 IF .REC_LENGTH LEQ 0 ; 4069 2 THEN ; 4070 3 BEGIN ; 4071 3 KRM_ERROR (KER_PROTOERR); ! Return an error ; 4072 3 RETURN STATE_A; ! Just abort ; 4073 2 END; ; 4074 2 ; 4075 2 SET_STRING (CH$PTR (GEN_1DATA), MAX_MSG, TRUE); ! Start writing to buffer ; 4076 2 BFR_EMPTY (); ! Dump the text ; 4077 2 GEN_1SIZE = SET_STRING (0, 0, FALSE); ! Get the result ; 4078 2 RETURN CALL_SY_RTN (GC_COMMAND); ; 4079 1 END; ! End of HOST_COMMAND ;HOST_COMMAND U.15: .WORD ^M<> ;Save nothing ; 4025 CLRL W^GEN_1SIZE ;GEN_1SIZE ; 4064 CLRL W^GEN_2SIZE ;GEN_2SIZE ; 4065 CLRL W^GEN_3SIZE ;GEN_3SIZE ; 4066 TSTL W^U.55 ;U.55 ; 4068 BGTR 1$ ;1$ ; PUSHL #134316226 ;#134316226 ; 4071 CALLS #1, W^KRM_ERROR ;#1, KRM_ERROR ; MOVL #10, R0 ;#10, R0 ; 4072 RET ; ; 1$: PUSHL #1 ;#1 ; 4075 MOVZBL #96, -(SP) ;#96, -(SP) ; PUSHAB W^GEN_1DATA ;GEN_1DATA ; CALLS #3, W^U.30 ;#3, U.30 ; CALLS #0, W^U.28 ;#0, U.28 ; 4076 CLRQ -(SP) ;-(SP) ; 4077 CLRL -(SP) ;-(SP) ; CALLS #3, W^U.30 ;#3, U.30 ; MOVL R0, W^GEN_1SIZE ;R0, GEN_1SIZE ; PUSHL #15 ;#15 ; 4078 CALLS #1, W^U.17 ;#1, U.17 ; RET ; ; 4079 ; Routine Size: 77 bytes, Routine Base: $CODE$ + 1418 ; 4080 1 %SBTTL 'KERMIT_COMMAND - perform a KERMIT command' ; 4081 1 ROUTINE KERMIT_COMMAND = ; 4082 1 ; 4083 1 !++ ; 4084 1 ! FUNCTIONAL DESCRIPTION: ; 4085 1 ! ; 4086 1 ! This routine will handle the KERMIT command packet. ; 4087 1 ! It will set up the data for the call to the system routine. ; 4088 1 ! ; 4089 1 ! CALLING SEQUENCE: ; 4090 1 ! ; 4091 1 ! STATE = KERMIT_COMMAND(); ; 4092 1 ! ; 4093 1 ! INPUT PARAMETERS: ; 4094 1 ! ; 4095 1 ! None. ; 4096 1 ! ; 4097 1 ! IMPLICIT INPUTS: ; 4098 1 ! ; 4099 1 ! Generic message receive in REC_MSG. ; 4100 1 ! ; 4101 1 ! OUTPUT PARAMETERS: ; 4102 1 ! ; 4103 1 ! Returns new state for FSM ; 4104 1 ! ; 4105 1 ! IMPLICIT OUTPUTS: ; 4106 1 ! ; 4107 1 ! None. ; 4108 1 ! ; 4109 1 ! COMPLETION CODES: ; 4110 1 ! ; 4111 1 ! None. ; 4112 1 ! ; 4113 1 ! SIDE EFFECTS: ; 4114 1 ! ; 4115 1 ! None. ; 4116 1 ! ; 4117 1 !-- ; 4118 1 ; 4119 2 BEGIN ; 4120 2 GEN_1SIZE = 0; ; 4121 2 GEN_2SIZE = 0; ; 4122 2 GEN_3SIZE = 0; ; 4123 2 ; 4124 2 IF .REC_LENGTH LEQ 0 ; 4125 2 THEN ; 4126 3 BEGIN ; 4127 3 KRM_ERROR (KER_PROTOERR); ! Return an error ; 4128 3 RETURN STATE_A; ! Just abort ; 4129 2 END; ; 4130 2 ; 4131 2 SET_STRING (CH$PTR (GEN_1DATA), MAX_MSG, TRUE); ! Start writing to buffer ; 4132 2 BFR_EMPTY (); ! Dump the text ; 4133 2 GEN_1SIZE = SET_STRING (0, 0, FALSE); ! Get the result ; 4134 2 RETURN CALL_SY_RTN (GC_KERMIT); ; 4135 1 END; ! End of KERMIT_COMMAND ;KERMIT_COMMAND U.16: .WORD ^M<> ;Save nothing ; 4081 CLRL W^GEN_1SIZE ;GEN_1SIZE ; 4120 CLRL W^GEN_2SIZE ;GEN_2SIZE ; 4121 CLRL W^GEN_3SIZE ;GEN_3SIZE ; 4122 TSTL W^U.55 ;U.55 ; 4124 BGTR 1$ ;1$ ; PUSHL #134316226 ;#134316226 ; 4127 CALLS #1, W^KRM_ERROR ;#1, KRM_ERROR ; MOVL #10, R0 ;#10, R0 ; 4128 RET ; ; 1$: PUSHL #1 ;#1 ; 4131 MOVZBL #96, -(SP) ;#96, -(SP) ; PUSHAB W^GEN_1DATA ;GEN_1DATA ; CALLS #3, W^U.30 ;#3, U.30 ; CALLS #0, W^U.28 ;#0, U.28 ; 4132 CLRQ -(SP) ;-(SP) ; 4133 CLRL -(SP) ;-(SP) ; CALLS #3, W^U.30 ;#3, U.30 ; MOVL R0, W^GEN_1SIZE ;R0, GEN_1SIZE ; PUSHL #16 ;#16 ; 4134 CALLS #1, W^U.17 ;#1, U.17 ; RET ; ; 4135 ; Routine Size: 77 bytes, Routine Base: $CODE$ + 1465 ; 4136 1 %SBTTL 'CALL_SY_RTN - handle operating system dependent functions' ; 4137 1 ROUTINE CALL_SY_RTN (G_FUNC) = ; 4138 1 ; 4139 1 !++ ; 4140 1 ! FUNCTIONAL DESCRIPTION: ; 4141 1 ! ; 4142 1 ! This routine will handle calling the operating system dependent routine ; 4143 1 ! for a server function and returning the response. ; 4144 1 ! ; 4145 1 ! CALLING SEQUENCE: ; 4146 1 ! ; 4147 1 ! STATE = CALL_SY_RTN(.G_FUNC); ; 4148 1 ! ; 4149 1 ! INPUT PARAMETERS: ; 4150 1 ! ; 4151 1 ! G_FUNC - Generic function code ; 4152 1 ! ; 4153 1 ! IMPLICIT INPUTS: ; 4154 1 ! ; 4155 1 ! Generic message data in GEN_1DATA ; 4156 1 ! ; 4157 1 ! OUTPUT PARAMETERS: ; 4158 1 ! ; 4159 1 ! Returns new state for FSM ; 4160 1 ! ; 4161 1 ! IMPLICIT OUTPUTS: ; 4162 1 ! ; 4163 1 ! None. ; 4164 1 ! ; 4165 1 ! COMPLETION CODES: ; 4166 1 ! ; 4167 1 ! None. ; 4168 1 ! ; 4169 1 ! SIDE EFFECTS: ; 4170 1 ! ; 4171 1 ! None. ; 4172 1 ! ; 4173 1 !-- ; 4174 1 ; 4175 2 BEGIN ; 4176 2 ; 4177 2 LOCAL ; 4178 2 STRING_ADDRESS, ! Address of string result ; 4179 2 STRING_LENGTH, ! Length of string result ; 4180 2 GET_CHR_SUBROUTINE, ! Routine to get a response character ; 4181 2 STATUS; ! Status value ; 4182 2 ; 4183 2 ! ; 4184 2 ! Call the routine with the desired type of command. ; 4185 2 ! ; 4186 2 STRING_LENGTH = 0; ! Initialize for no string ; 4187 2 GET_CHR_SUBROUTINE = 0; ! And no subroutine ; 4188 2 ; 4189 2 IF NOT SY_GENERIC (.G_FUNC, STRING_ADDRESS, STRING_LENGTH, GET_CHR_SUBROUTINE) ; 4190 2 THEN ; 4191 2 RETURN STATE_A; ! And abort ; 4192 2 ; 4193 2 IF .STRING_LENGTH GTR 0 ; 4194 2 THEN ; 4195 3 BEGIN ; 4196 3 SET_STRING (CH$PTR (.STRING_ADDRESS), .STRING_LENGTH, TRUE); ; 4197 3 ; 4198 3 IF .STRING_LENGTH LSS .SEND_PKT_SIZE - PKT_OVR_HEAD ; 4199 3 THEN ; 4200 4 BEGIN ; 4201 4 BFR_FILL (TRUE); ! If it should fit, pack it in ; 4202 4 ; 4203 4 IF SET_STRING (0, 0, FALSE) GEQ .STRING_LENGTH ; 4204 4 THEN ! It fit, so just send the ACK ; 4205 4 ; 4206 4 IF SEND_PACKET (MSG_ACK, .SIZE, .REC_SEQ) THEN RETURN STATE_C ELSE RETURN STATE_EX; ; 4207 4 ; 4208 4 ! ; 4209 4 ! It didn't fit, reset the pointers to the beginning ; 4210 4 ! ; 4211 4 SET_STRING (CH$PTR (.STRING_ADDRESS), .STRING_LENGTH, TRUE); ; 4212 3 END; ; 4213 3 ; 4214 3 NO_FILE_NEEDED = TRUE; ! Don't need a file ; 4215 3 END ; 4216 2 ELSE ; 4217 2 ; 4218 2 IF .GET_CHR_SUBROUTINE NEQ 0 ! If we got a subroutine back ; 4219 2 THEN ; 4220 3 BEGIN ; 4221 3 GET_CHR_ROUTINE = .GET_CHR_SUBROUTINE; ; 4222 3 NO_FILE_NEEDED = TRUE; ; 4223 2 END; ; 4224 2 ; 4225 2 TEXT_HEAD_FLAG = TRUE; ! Send to be typed ; 4226 2 XFR_STATUS (%C'I', %C'G'); ! Doing a generic command ; 4227 2 ; 4228 2 IF .STATE EQL STATE_II AND .BLK_CHK_TYPE EQL .INI_CHK_TYPE ; 4229 2 THEN ; 4230 2 RETURN STATE_OF ; 4231 2 ELSE ; 4232 2 RETURN STATE_S; ! Send the response ; 4233 2 ; 4234 1 END; ! End of CALL_SY_RTN ;CALL_SY_RTN U.17: .WORD ^M ;Save R2,R3,R4 ; 4137 MOVAB W^U.30, R4 ;U.30, R4 ; MOVAB W^U.39, R3 ;U.39, R3 ; SUBL2 #4, SP ;#4, SP ; CLRQ -(SP) ;GET_CHR_SUBROUTINE ; 4187 PUSHL SP ;SP ; 4189 PUSHAB 8(SP) ;STRING_LENGTH ; PUSHAB 16(SP) ;STRING_ADDRESS ; PUSHL 4(AP) ;G_FUNC ; CALLS #4, W^SY_GENERIC ;#4, SY_GENERIC ; BLBS R0, 1$ ;R0, 1$ ; MOVL #10, R0 ;#10, R0 ; 4191 RET ; ; 1$: MOVL 4(SP), R2 ;STRING_LENGTH, R2 ; 4193 BLEQ 4$ ;4$ ; PUSHL #1 ;#1 ; 4196 PUSHL R2 ;R2 ; PUSHL 16(SP) ;STRING_ADDRESS ; CALLS #3, (R4) ;#3, SET_STRING ; SUBL3 #3, (R3), R0 ;#3, SEND_PKT_SIZE, R0 ; 4198 CMPL R2, R0 ;R2, R0 ; BGEQ 5$ ;5$ ; PUSHL #1 ;#1 ; 4201 CALLS #1, W^U.29 ;#1, U.29 ; CLRQ -(SP) ;-(SP) ; 4203 CLRL -(SP) ;-(SP) ; CALLS #3, (R4) ;#3, SET_STRING ; CMPL R0, R2 ;R0, R2 ; BLSS 3$ ;3$ ; PUSHL 60(R3) ;REC_SEQ ; 4206 PUSHL 44(R3) ;SIZE ; MOVZBL #89, -(SP) ;#89, -(SP) ; CALLS #3, W^U.24 ;#3, U.24 ; BLBC R0, 2$ ;R0, 2$ ; MOVL #9, R0 ;#9, R0 ; RET ; ; 2$: MOVL #19, R0 ;#19, R0 ; RET ; ; 3$: PUSHL #1 ;#1 ; 4211 PUSHL R2 ;R2 ; PUSHL 16(SP) ;STRING_ADDRESS ; CALLS #3, (R4) ;#3, SET_STRING ; BRB 5$ ;5$ ; 4214 4$: TSTL (SP) ;GET_CHR_SUBROUTINE ; 4218 BEQL 6$ ;6$ ; MOVL (SP), 292(R3) ;GET_CHR_SUBROUTINE, GET_CHR_ROUTINE ; 4221 5$: MOVL #1, 276(R3) ;#1, NO_FILE_NEEDED ; 4222 6$: MOVL #1, 272(R3) ;#1, TEXT_HEAD_FLAG ; 4225 MOVZBL #71, -(SP) ;#71, -(SP) ; 4226 MOVZBL #73, -(SP) ;#73, -(SP) ; CALLS #2, W^XFR_STATUS ;#2, XFR_STATUS ; CMPL 40(R3), #15 ;STATE, #15 ; 4228 BNEQ 7$ ;7$ ; CMPL 28(R3), 24(R3) ;BLK_CHK_TYPE, INI_CHK_TYPE ; BNEQ 7$ ;7$ ; MOVL #18, R0 ;#18, R0 ; 4232 RET ; ; 7$: MOVL #1, R0 ;#1, R0 ; RET ; ; 4234 ; Routine Size: 175 bytes, Routine Base: $CODE$ + 14B2 ; 4235 1 %SBTTL 'Message processing -- PRS_SEND_INIT - Parse send init params' ; 4236 1 ROUTINE PRS_SEND_INIT = ; 4237 1 ; 4238 1 !++ ; 4239 1 ! FUNCTIONAL DESCRIPTION: ; 4240 1 ! ; 4241 1 ! This routine will parse the SEND_INIT parameters that were sent by ; 4242 1 ! the remote Kermit. The items will be stored into the low segment. ; 4243 1 ! ; 4244 1 ! CALLING SEQUENCE: ; 4245 1 ! ; 4246 1 ! PRS_SEND_INIT (); ; 4247 1 ! ; 4248 1 ! INPUT PARAMETERS: ; 4249 1 ! ; 4250 1 ! None. ; 4251 1 ! ; 4252 1 ! IMPLICIT INPUTS: ; 4253 1 ! ; 4254 1 ! Message stored in REC_MSG. ; 4255 1 ! ; 4256 1 ! OUTPUT PARAMETERS: ; 4257 1 ! ; 4258 1 ! None. ; 4259 1 ! ; 4260 1 ! IMPLICIT OUTPUTS: ; 4261 1 ! ; 4262 1 ! None. ; 4263 1 ! ; 4264 1 ! COMPLETION CODES: ; 4265 1 ! ; 4266 1 ! None. ; 4267 1 ! ; 4268 1 ! SIDE EFFECTS: ; 4269 1 ! ; 4270 1 ! None. ; 4271 1 ! ; 4272 1 !-- ; 4273 1 ; 4274 2 BEGIN ; 4275 2 ! The following section of code will parse the various send parameters ; 4276 2 ! that are found in the send-init message. The following code will store ; 4277 2 ! the following as the value. ; 4278 2 ! ; 4279 2 ! If the user specified a value then the user supplied value will be used else ; 4280 2 ! the value in the message and if none in the message then the default value. ; 4281 2 ! ; 4282 2 ! User supplied values are denoted as positive values in SND_xxxxxxx. ; 4283 2 ! ; 4284 2 ! Parse the packet size ; 4285 2 ! ; 4286 3 SEND_PKT_SIZE = (IF .SND_PKT_SIZE GEQ 0 THEN .SND_PKT_SIZE ELSE ; 4287 4 BEGIN ; 4288 4 ; 4289 4 IF .REC_LENGTH GTR P_SI_BUFSIZ ; 4290 4 THEN ; P 4291 4 UNCHAR (CH$RCHAR (CH$PTR (REC_MSG, ; 4292 5 PKT_MSG + P_SI_BUFSIZ, CHR_SIZE))) ; 4293 4 ELSE ; 4294 4 ABS (.SND_PKT_SIZE) ; 4295 4 ; 4296 4 END ; 4297 2 ); ; 4298 2 ! ; 4299 2 ! Parse the time out value ; 4300 2 ! ; 4301 3 SEND_TIMEOUT = (IF .SND_TIMEOUT GEQ 0 THEN .SND_TIMEOUT ELSE ; 4302 4 BEGIN ; 4303 4 ; 4304 4 IF .REC_LENGTH GTR P_SI_TIMOUT ; 4305 4 THEN ; P 4306 4 UNCHAR (CH$RCHAR (CH$PTR (REC_MSG, ; 4307 5 PKT_MSG + P_SI_TIMOUT, CHR_SIZE))) ; 4308 4 ELSE ; 4309 4 ABS (.SND_TIMEOUT) ; 4310 4 ; 4311 4 END ; 4312 2 ); ; 4313 2 ! ; 4314 2 ! Parse the number of padding characters supplied ; 4315 2 ! ; 4316 3 SEND_NPAD = (IF .SND_NPAD GEQ 0 THEN .SND_NPAD ELSE ; 4317 4 BEGIN ; 4318 4 ; 4319 4 IF .REC_LENGTH GTR P_SI_NPAD ; 4320 4 THEN ; P 4321 4 UNCHAR (CH$RCHAR (CH$PTR (REC_MSG, PKT_MSG + P_SI_NPAD, ; 4322 5 CHR_SIZE))) ; 4323 4 ELSE ; 4324 4 ABS (.SND_NPAD) ; 4325 4 ; 4326 4 END ; 4327 2 ); ; 4328 2 ! ; 4329 2 ! Parse the padding character ; 4330 2 ! ; 4331 3 SEND_PADCHAR = (IF .SND_PADCHAR GEQ 0 THEN .SND_PADCHAR ELSE ; 4332 4 BEGIN ; 4333 4 ; 4334 4 IF .REC_LENGTH GTR P_SI_PAD ; 4335 4 THEN ; P 4336 4 CTL (CH$RCHAR (CH$PTR (REC_MSG, PKT_MSG + P_SI_PAD, ; 4337 5 CHR_SIZE))) ; 4338 4 ELSE ; 4339 4 ABS (.SND_PADCHAR) ; 4340 4 ; 4341 4 END ; 4342 2 ); ; 4343 2 ! ; 4344 2 ! Parse the end of line character ; 4345 2 ! ; 4346 3 SEND_EOL = (IF .SND_EOL GEQ 0 THEN .SND_EOL ELSE ; 4347 4 BEGIN ; 4348 4 ; 4349 4 IF .REC_LENGTH GTR P_SI_EOL ; 4350 4 THEN ; P 4351 4 UNCHAR (CH$RCHAR (CH$PTR (REC_MSG, PKT_MSG + P_SI_EOL, ; 4352 5 CHR_SIZE))) ; 4353 4 ELSE ; 4354 4 ABS (.SND_EOL) ; 4355 4 ; 4356 4 END ; 4357 2 ); ; 4358 2 ! ; 4359 2 ! Parse the quoting character ; 4360 2 ! ; 4361 3 SEND_QUOTE_CHR = (IF .SND_QUOTE_CHR GEQ 0 THEN .SND_QUOTE_CHR ELSE ; 4362 4 BEGIN ; 4363 4 ; 4364 4 IF .REC_LENGTH GTR P_SI_QUOTE ; 4365 4 THEN ; 4366 4 CH$RCHAR (CH$PTR (REC_MSG, PKT_MSG + P_SI_QUOTE, ; 4367 4 CHR_SIZE)) ; 4368 4 ELSE ; 4369 4 ABS (.SND_QUOTE_CHR) ; 4370 4 ; 4371 4 END ; 4372 2 ); ; 4373 2 ! ; 4374 2 ! Parse the 8-bit quoting character ; 4375 2 ! ; 4376 2 ! If the character was not included in the packet, assume no eight-bit ; 4377 2 ! quoting allowed (we are probably talking to an old version of Kermit). ; 4378 2 ! ; 4379 3 SEND_8QUOTE_CHR = (IF .REC_LENGTH GTR P_SI_8QUOTE THEN CH$RCHAR (CH$PTR (REC_MSG, ; 4380 3 PKT_MSG + P_SI_8QUOTE, CHR_SIZE)) ELSE %C'N' ! Assume no 8-bit quoting allowed ; 4381 2 ); ; 4382 2 ! ; 4383 2 ! Parse the checksum type ; 4384 2 ! ; 4385 2 ; 4386 2 IF .REC_LENGTH GTR P_SI_CHKTYPE ; 4387 2 THEN ; 4388 3 BEGIN ; 4389 3 ; 4390 3 LOCAL ; 4391 3 REQ_CHK_TYPE; ; 4392 3 ; 4393 3 REQ_CHK_TYPE = CH$RCHAR (CH$PTR (REC_MSG, PKT_MSG + P_SI_CHKTYPE, CHR_SIZE)); ; 4394 3 ; 4395 3 IF .REC_TYPE NEQ MSG_ACK ; 4396 3 THEN ; 4397 3 ; 4398 3 IF .REQ_CHK_TYPE GEQ CHK_1CHAR AND .REQ_CHK_TYPE LEQ CHK_CRC ; 4399 3 THEN ; 4400 3 INI_CHK_TYPE = .REQ_CHK_TYPE ; 4401 3 ELSE ; 4402 3 INI_CHK_TYPE = CHK_1CHAR ; 4403 3 ; 4404 3 ELSE ; 4405 3 ; 4406 3 IF .REQ_CHK_TYPE NEQ .CHKTYPE ; 4407 3 THEN ; 4408 3 INI_CHK_TYPE = CHK_1CHAR ; 4409 3 ELSE ; 4410 3 INI_CHK_TYPE = .REQ_CHK_TYPE ; 4411 3 ; 4412 3 END ; 4413 2 ELSE ; 4414 2 INI_CHK_TYPE = CHK_1CHAR; ! Only single character checksum if not specified ; 4415 2 ; 4416 2 ! ; 4417 2 ! Parse the repeat character ; 4418 2 ! ; 4419 3 REPT_CHR = (IF .REC_LENGTH GTR P_SI_REPEAT THEN CH$RCHAR (CH$PTR (REC_MSG, ; 4420 2 PKT_MSG + P_SI_REPEAT, CHR_SIZE)) ELSE %C' '); ; 4421 2 ! ; 4422 2 ! Check for a valid quoting character. If it is not valid, then we have ; 4423 2 ! a protocol error ; 4424 2 ! ; 4425 2 ; 4426 4 IF NOT ((.SEND_QUOTE_CHR GEQ %O'41' AND .SEND_QUOTE_CHR LEQ %O'76') OR (.SEND_QUOTE_CHR GEQ %O ; 4427 3 '140' AND .SEND_QUOTE_CHR LEQ %O'176')) ; 4428 2 THEN ; 4429 3 BEGIN ; 4430 3 KRM_ERROR (KER_PROTOERR); ; 4431 3 RETURN KER_PROTOERR; ; 4432 2 END; ; 4433 2 ; 4434 2 ! ; 4435 2 ! Check for a valid 8 bit quoting and set the 8 bit quoting flag as needed ; 4436 2 ! ; 4437 2 ; 4438 5 IF ( NOT ((.SEND_8QUOTE_CHR GEQ %O'041' AND .SEND_8QUOTE_CHR LEQ %O'076') OR (.SEND_8QUOTE_CHR ; 4439 5 GEQ %O'140' AND .SEND_8QUOTE_CHR LEQ %O'176') OR (.SEND_8QUOTE_CHR EQL %C'N') OR ( ; 4440 2 .SEND_8QUOTE_CHR EQL %C'Y'))) OR .SEND_8QUOTE_CHR EQL .SEND_QUOTE_CHR OR .SEND_8QUOTE_CHR ; 4441 2 EQL .RCV_QUOTE_CHR ; 4442 2 THEN ; 4443 3 BEGIN ; 4444 3 KRM_ERROR (KER_PROTOERR); ; 4445 3 RETURN KER_PROTOERR; ; 4446 2 END; ; 4447 2 ; 4448 2 IF .SEND_8QUOTE_CHR EQL %C'Y' THEN SEND_8QUOTE_CHR = .RECV_8QUOTE_CHR; ; 4449 2 ; 4450 2 IF .SEND_8QUOTE_CHR NEQ %C'N' AND .SEND_8QUOTE_CHR NEQ %C'Y' ; 4451 2 THEN ; 4452 2 FLAG_8QUOTE = TRUE ; 4453 2 ELSE ; 4454 2 FLAG_8QUOTE = FALSE; ; 4455 2 ; 4456 2 ! ; 4457 2 ! Check the repeat character and set flags ; 4458 2 ! ; 4459 2 ; 4460 5 IF ( NOT ((.REPT_CHR GEQ %O'41' AND .REPT_CHR LEQ %O'76') OR (.REPT_CHR GEQ %O'140' AND ; 4461 3 .REPT_CHR LEQ %O'176')) OR .REPT_CHR EQL .SEND_QUOTE_CHR OR .REPT_CHR EQL .SEND_8QUOTE_CHR ; 4462 2 OR .REPT_CHR EQL .RCV_QUOTE_CHR) AND .REPT_CHR NEQ %C' ' ; 4463 2 THEN ; 4464 3 BEGIN ; 4465 3 KRM_ERROR (KER_PROTOERR); ; 4466 3 RETURN KER_PROTOERR; ; 4467 2 END; ; 4468 2 ; 4469 2 IF .REPT_CHR NEQ %C' ' THEN FLAG_REPEAT = TRUE ELSE FLAG_REPEAT = FALSE; ; 4470 2 ; 4471 2 RETURN KER_NORMAL; ; 4472 1 END; ! End of PRS_SEND_INIT ;PRS_SEND_INIT U.21: .WORD ^M ;Save R2 ; 4236 MOVAB W^U.55, R2 ;U.55, R2 ; MOVL W^SND_PKT_SIZE, R0 ;SND_PKT_SIZE, R0 ; 4286 BGEQ 2$ ;2$ ; TSTL (R2) ;REC_LENGTH ; 4289 BLEQ 1$ ;1$ ; MOVZBL 12(R2), R0 ;REC_MSG+4, R0 ; 4292 SUBL2 #32, R0 ;#32, R0 ; BRB 2$ ;2$ ; 1$: TSTL R0 ;R0 ; 4294 BGEQ 2$ ;2$ ; MNEGL R0, R0 ;R0, R0 ; 2$: MOVL R0, -64(R2) ;R0, SEND_PKT_SIZE ; 4286 MOVL W^SND_TIMEOUT, R0 ;SND_TIMEOUT, R0 ; 4301 BGEQ 4$ ;4$ ; CMPL (R2), #1 ;REC_LENGTH, #1 ; 4304 BLEQ 3$ ;3$ ; MOVZBL 13(R2), R0 ;REC_MSG+5, R0 ; 4307 SUBL2 #32, R0 ;#32, R0 ; BRB 4$ ;4$ ; 3$: TSTL R0 ;R0 ; 4309 BGEQ 4$ ;4$ ; MNEGL R0, R0 ;R0, R0 ; 4$: MOVL R0, W^SEND_TIMEOUT ;R0, SEND_TIMEOUT ; 4301 MOVL W^SND_NPAD, R0 ;SND_NPAD, R0 ; 4316 BGEQ 6$ ;6$ ; CMPL (R2), #2 ;REC_LENGTH, #2 ; 4319 BLEQ 5$ ;5$ ; MOVZBL 14(R2), R0 ;REC_MSG+6, R0 ; 4322 SUBL2 #32, R0 ;#32, R0 ; BRB 6$ ;6$ ; 5$: TSTL R0 ;R0 ; 4324 BGEQ 6$ ;6$ ; MNEGL R0, R0 ;R0, R0 ; 6$: MOVL R0, -60(R2) ;R0, SEND_NPAD ; 4316 MOVL W^SND_PADCHAR, R0 ;SND_PADCHAR, R0 ; 4331 BGEQ 8$ ;8$ ; CMPL (R2), #3 ;REC_LENGTH, #3 ; 4334 BLEQ 7$ ;7$ ; MOVZBL 15(R2), R0 ;REC_MSG+7, R0 ; 4337 XORL2 #64, R0 ;#64, R0 ; BRB 8$ ;8$ ; 7$: TSTL R0 ;R0 ; 4339 BGEQ 8$ ;8$ ; MNEGL R0, R0 ;R0, R0 ; 8$: MOVL R0, -56(R2) ;R0, SEND_PADCHAR ; 4331 MOVL W^SND_EOL, R0 ;SND_EOL, R0 ; 4346 BGEQ 10$ ;10$ ; CMPL (R2), #4 ;REC_LENGTH, #4 ; 4349 BLEQ 9$ ;9$ ; MOVZBL 16(R2), R0 ;REC_MSG+8, R0 ; 4352 SUBL2 #32, R0 ;#32, R0 ; BRB 10$ ;10$ ; 9$: TSTL R0 ;R0 ; 4354 BGEQ 10$ ;10$ ; MNEGL R0, R0 ;R0, R0 ; 10$: MOVL R0, -52(R2) ;R0, SEND_EOL ; 4346 MOVL W^SND_QUOTE_CHR, R0 ;SND_QUOTE_CHR, R0 ; 4361 BGEQ 12$ ;12$ ; CMPL (R2), #5 ;REC_LENGTH, #5 ; 4364 BLEQ 11$ ;11$ ; MOVZBL 17(R2), R0 ;REC_MSG+9, R0 ; 4367 BRB 12$ ;12$ ; 11$: TSTL R0 ;R0 ; 4369 BGEQ 12$ ;12$ ; MNEGL R0, R0 ;R0, R0 ; 12$: MOVL R0, -48(R2) ;R0, SEND_QUOTE_CHR ; 4361 MOVL (R2), R1 ;REC_LENGTH, R1 ; 4379 CMPL R1, #6 ;R1, #6 ; BLEQ 13$ ;13$ ; MOVZBL 18(R2), R0 ;REC_MSG+10, R0 ; 4380 BRB 14$ ;14$ ; 13$: MOVZBL #78, R0 ;#78, R0 ; 14$: MOVL R0, -44(R2) ;R0, SEND_8QUOTE_CHR ; 4379 CMPL R1, #7 ;R1, #7 ; 4386 BLEQ 17$ ;17$ ; MOVZBL 19(R2), R0 ;REC_MSG+11, REQ_CHK_TYPE ; 4393 CMPL 4(R2), #89 ;REC_TYPE, #89 ; 4395 BEQL 15$ ;15$ ; CMPL R0, #49 ;REQ_CHK_TYPE, #49 ; 4398 BLSS 17$ ;17$ ; CMPL R0, #51 ;REQ_CHK_TYPE, #51 ; BGTR 17$ ;17$ ; BRB 16$ ;16$ ; 4400 15$: CMPL R0, W^CHKTYPE ;REQ_CHK_TYPE, CHKTYPE ; 4406 BNEQ 17$ ;17$ ; 16$: MOVL R0, -40(R2) ;REQ_CHK_TYPE, INI_CHK_TYPE ; 4410 BRB 18$ ;18$ ; 4395 17$: MOVL #49, -40(R2) ;#49, INI_CHK_TYPE ; 4414 18$: CMPL R1, #8 ;R1, #8 ; 4419 BLEQ 19$ ;19$ ; MOVZBL 20(R2), R0 ;REC_MSG+12, R0 ; 4420 BRB 20$ ;20$ ; 19$: MOVL #32, R0 ;#32, R0 ; 20$: MOVL R0, -68(R2) ;R0, REPT_CHR ; 4419 MOVL -48(R2), R0 ;SEND_QUOTE_CHR, R0 ; 4426 CMPL R0, #33 ;R0, #33 ; BLSS 21$ ;21$ ; CMPL R0, #62 ;R0, #62 ; BLEQ 24$ ;24$ ; 21$: CMPL R0, #96 ;R0, #96 ; BGEQ 23$ ;23$ ; 22$: BRW 34$ ;34$ ; 23$: CMPL R0, #126 ;R0, #126 ; 4427 BGTR 22$ ;22$ ; 24$: MOVL -44(R2), R0 ;SEND_8QUOTE_CHR, R0 ; 4438 CMPL R0, #33 ;R0, #33 ; BLSS 25$ ;25$ ; CMPL R0, #62 ;R0, #62 ; BLEQ 27$ ;27$ ; 25$: CMPL R0, #96 ;R0, #96 ; 4439 BLSS 26$ ;26$ ; CMPL R0, #126 ;R0, #126 ; BLEQ 27$ ;27$ ; 26$: CMPL R0, #78 ;R0, #78 ; BEQL 27$ ;27$ ; CMPL R0, #89 ;R0, #89 ; 4440 BNEQ 34$ ;34$ ; 27$: CMPL R0, -48(R2) ;R0, SEND_QUOTE_CHR ; BEQL 34$ ;34$ ; CMPL R0, W^RCV_QUOTE_CHR ;R0, RCV_QUOTE_CHR ; 4441 BEQL 34$ ;34$ ; CMPL -44(R2), #89 ;SEND_8QUOTE_CHR, #89 ; 4448 BNEQ 28$ ;28$ ; MOVL -72(R2), -44(R2) ;RECV_8QUOTE_CHR, SEND_8QUOTE_CHR ; 28$: MOVL -44(R2), R1 ;SEND_8QUOTE_CHR, R1 ; 4450 CMPL R1, #78 ;R1, #78 ; BEQL 29$ ;29$ ; CMPL R1, #89 ;R1, #89 ; BEQL 29$ ;29$ ; MOVL #1, -32(R2) ;#1, FLAG_8QUOTE ; 4452 BRB 30$ ;30$ ; 29$: CLRL -32(R2) ;FLAG_8QUOTE ; 4454 30$: MOVL -68(R2), R0 ;REPT_CHR, R0 ; 4460 CMPL R0, #33 ;R0, #33 ; BLSS 31$ ;31$ ; CMPL R0, #62 ;R0, #62 ; BLEQ 32$ ;32$ ; 31$: CMPL R0, #96 ;R0, #96 ; BLSS 33$ ;33$ ; CMPL R0, #126 ;R0, #126 ; 4461 BGTR 33$ ;33$ ; 32$: CMPL R0, -48(R2) ;R0, SEND_QUOTE_CHR ; BEQL 33$ ;33$ ; CMPL R0, R1 ;R0, R1 ; BEQL 33$ ;33$ ; CMPL R0, W^RCV_QUOTE_CHR ;R0, RCV_QUOTE_CHR ; 4462 BNEQ 35$ ;35$ ; 33$: CMPL R0, #32 ;R0, #32 ; BEQL 35$ ;35$ ; 34$: PUSHL #134316226 ;#134316226 ; 4465 CALLS #1, W^KRM_ERROR ;#1, KRM_ERROR ; MOVL #134316226, R0 ;#134316226, R0 ; 4466 RET ; ; 35$: CMPL -68(R2), #32 ;REPT_CHR, #32 ; 4469 BEQL 36$ ;36$ ; MOVL #1, -28(R2) ;#1, FLAG_REPEAT ; BRB 37$ ;37$ ; 36$: CLRL -28(R2) ;FLAG_REPEAT ; 37$: MOVL #134316043, R0 ;#134316043, R0 ; 4471 RET ; ; 4472 ; Routine Size: 529 bytes, Routine Base: $CODE$ + 1561 ; 4473 1 %SBTTL 'SET_SEND_INIT' ; 4474 1 ROUTINE SET_SEND_INIT : NOVALUE = ; 4475 1 ; 4476 1 !++ ; 4477 1 ! FUNCTIONAL DESCRIPTION: ; 4478 1 ! ; 4479 1 ! This routine will initialize the various parameters for the ; 4480 1 ! MSG_SND_INIT message. ; 4481 1 ! ; 4482 1 ! CALLING SEQUENCE: ; 4483 1 ! ; 4484 1 ! SET_SEND_INIT(); ; 4485 1 ! ; 4486 1 ! INPUT PARAMETERS: ; 4487 1 ! ; 4488 1 ! None. ; 4489 1 ! ; 4490 1 ! IMPLICIT INPUTS: ; 4491 1 ! ; 4492 1 ! None. ; 4493 1 ! ; 4494 1 ! OUTPUT PARAMETERS: ; 4495 1 ! ; 4496 1 ! None. ; 4497 1 ! ; 4498 1 ! IMPLICIT OUTPUTS: ; 4499 1 ! ; 4500 1 ! SND_MSG parameters set up. ; 4501 1 ! ; 4502 1 ! COMPLETION CODES: ; 4503 1 ! ; 4504 1 ! None. ; 4505 1 ! ; 4506 1 ! SIDE EFFECTS: ; 4507 1 ! ; 4508 1 ! None. ; 4509 1 ! ; 4510 1 !-- ; 4511 1 ; 4512 2 BEGIN ; 4513 2 CH$WCHAR (CHAR (.RCV_PKT_SIZE), CH$PTR (SND_MSG, PKT_MSG + P_SI_BUFSIZ, CHR_SIZE)); ; 4514 2 CH$WCHAR (CHAR (.RCV_TIMEOUT), CH$PTR (SND_MSG, PKT_MSG + P_SI_TIMOUT, CHR_SIZE)); ; 4515 2 CH$WCHAR (CHAR (.RCV_NPAD), CH$PTR (SND_MSG, PKT_MSG + P_SI_NPAD, CHR_SIZE)); ; 4516 2 CH$WCHAR (CTL (.RCV_PADCHAR), CH$PTR (SND_MSG, PKT_MSG + P_SI_PAD, CHR_SIZE)); ; 4517 2 CH$WCHAR (CHAR (.RCV_EOL), CH$PTR (SND_MSG, PKT_MSG + P_SI_EOL, CHR_SIZE)); ; 4518 2 CH$WCHAR (.RCV_QUOTE_CHR, CH$PTR (SND_MSG, PKT_MSG + P_SI_QUOTE, CHR_SIZE)); ; 4519 2 CH$WCHAR (.SEND_8QUOTE_CHR, CH$PTR (SND_MSG, PKT_MSG + P_SI_8QUOTE, CHR_SIZE)); ; 4520 2 CH$WCHAR (.INI_CHK_TYPE, CH$PTR (SND_MSG, PKT_MSG + P_SI_CHKTYPE, CHR_SIZE)); ; 4521 2 CH$WCHAR (.REPT_CHR, CH$PTR (SND_MSG, PKT_MSG + P_SI_REPEAT, CHR_SIZE)); ; 4522 1 END; ! End of SET_SEND_INIT ;SET_SEND_INIT U.20: .WORD ^M ;Save R2 ; 4474 MOVAB W^U.58+4, R2 ;U.58+4, R2 ; ADDB3 #32, W^RCV_PKT_SIZE, (R2) ;#32, RCV_PKT_SIZE, SND_MSG+4 ; 4513 ADDB3 #32, W^RCV_TIMEOUT, 1(R2) ;#32, RCV_TIMEOUT, SND_MSG+5 ; 4514 ADDB3 #32, W^RCV_NPAD, 2(R2) ;#32, RCV_NPAD, SND_MSG+6 ; 4515 XORB3 #64, W^RCV_PADCHAR, 3(R2) ;#64, RCV_PADCHAR, SND_MSG+7 ; 4516 ADDB3 #32, W^RCV_EOL, 4(R2) ;#32, RCV_EOL, SND_MSG+8 ; 4517 MOVB W^RCV_QUOTE_CHR, 5(R2) ;RCV_QUOTE_CHR, SND_MSG+9 ; 4518 MOVB -152(R2), 6(R2) ;SEND_8QUOTE_CHR, SND_MSG+10 ; 4519 MOVB -148(R2), 7(R2) ;INI_CHK_TYPE, SND_MSG+11 ; 4520 MOVB -176(R2), 8(R2) ;REPT_CHR, SND_MSG+12 ; 4521 RET ; ; 4522 ; Routine Size: 67 bytes, Routine Base: $CODE$ + 1772 ; 4523 1 %SBTTL 'SEND_PACKET' ; 4524 1 ROUTINE SEND_PACKET (TYPE, LENGTH, MN) = ; 4525 1 ; 4526 1 !++ ; 4527 1 ! FUNCTIONAL DESCRIPTION: ; 4528 1 ! ; 4529 1 ! This routine will cause a packet to be sent over the line ; 4530 1 ! that has been opened by OPEN_TERMINAL. ; 4531 1 ! ; 4532 1 ! CALLING SEQUENCE: ; 4533 1 ! ; 4534 1 ! SEND_PACKET(Type, Length); ; 4535 1 ! ; 4536 1 ! INPUT PARAMETERS: ; 4537 1 ! ; 4538 1 ! TYPE - Type of packet to send. ; 4539 1 ! ; 4540 1 ! LENGTH - Length of the packet being sent. ; 4541 1 ! ; 4542 1 ! IMPLICIT INPUTS: ; 4543 1 ! ; 4544 1 ! None. ; 4545 1 ! ; 4546 1 ! OUTPUT PARAMETERS: ; 4547 1 ! ; 4548 1 ! None. ; 4549 1 ! ; 4550 1 ! IMPLICIT OUTPUTS: ; 4551 1 ! ; 4552 1 ! None. ; 4553 1 ! ; 4554 1 ! COMPLETION CODES: ; 4555 1 ! ; 4556 1 ! None. ; 4557 1 ! ; 4558 1 ! SIDE EFFECTS: ; 4559 1 ! ; 4560 1 ! None. ; 4561 1 ! ; 4562 1 !-- ; 4563 1 ; 4564 2 BEGIN ; 4565 2 ; 4566 2 LOCAL ; 4567 2 FILLER : VECTOR [CH$ALLOCATION (MAX_MSG, CHR_SIZE)], ; 4568 2 TOT_MSG_LEN, ! Length of message including all characters ; 4569 2 CHKSUM, ! Checksum for the message we calculate ; 4570 2 POINTER; ! Pointer to the information in the message ; 4571 2 ; 4572 2 ! ; 4573 2 ! Do any filler processing that the remote KERMIT requires. ; 4574 2 ! ; 4575 2 ; 4576 2 IF .SEND_NPAD NEQ 0 ; 4577 2 THEN ; 4578 3 BEGIN ; 4579 3 CH$FILL (.SEND_PADCHAR, MAX_MSG, CH$PTR (FILLER, 0, CHR_SIZE)); ; 4580 3 ! ; 4581 3 ! Update the send stats ; 4582 3 ! ; 4583 3 SMSG_TOTAL_CHARS = .SMSG_TOTAL_CHARS + .SEND_NPAD; ; 4584 3 ! ; 4585 3 ! Send the fill ; 4586 3 ! ; 4587 3 DO_PARITY (FILLER, .SEND_NPAD + PKT_TOT_OVR_HEAD); ; 4588 3 SEND (FILLER, .SEND_NPAD + PKT_TOT_OVR_HEAD); ; 4589 2 END; ; 4590 2 ; 4591 2 ! ; 4592 2 ! Store the header information into the message. ; 4593 2 ! ; 4594 2 CH$WCHAR (.TYPE, CH$PTR (SND_MSG, PKT_TYPE, CHR_SIZE)); ; 4595 2 CH$WCHAR (.SND_SOH, CH$PTR (SND_MSG, PKT_MARK, CHR_SIZE)); ; 4596 2 CH$WCHAR (CHAR (.LENGTH + PKT_OVR_HEAD + (.BLK_CHK_TYPE - CHK_1CHAR)), ; 4597 2 CH$PTR (SND_MSG, ; 4598 2 PKT_COUNT, CHR_SIZE)); ; 4599 2 CH$WCHAR (CHAR ((IF .MN LSS 0 THEN 0 ELSE .MN)), CH$PTR (SND_MSG, PKT_SEQ, CHR_SIZE)); ; 4600 2 ! ; 4601 2 ! Calculate the block check value ; 4602 2 ! ; 4603 2 POINTER = CH$PTR (SND_MSG, PKT_MARK + 1, CHR_SIZE); ; 4604 2 CHKSUM = CALC_BLOCK_CHECK (.POINTER, .LENGTH + PKT_OVR_HEAD); ; 4605 2 TOT_MSG_LEN = .LENGTH + PKT_TOT_OVR_HEAD; ; 4606 2 ! ; 4607 2 ! Store the checksum into the message ; 4608 2 ! ; 4609 2 POINTER = CH$PTR (SND_MSG, .LENGTH + PKT_OVR_HEAD + 1, CHR_SIZE); ; 4610 2 ; 4611 2 CASE .BLK_CHK_TYPE FROM CHK_1CHAR TO CHK_CRC OF ; 4612 2 SET ; 4613 2 ; 4614 2 [CHK_1CHAR] : ; 4615 2 CH$WCHAR_A (CHAR (.CHKSUM), POINTER); ; 4616 2 ; 4617 2 [CHK_2CHAR] : ; 4618 3 BEGIN ; 4619 3 CH$WCHAR_A (CHAR (.CHKSUM<6, 6>), POINTER); ; 4620 3 CH$WCHAR_A (CHAR (.CHKSUM<0, 6>), POINTER); ; 4621 3 TOT_MSG_LEN = .TOT_MSG_LEN + 1; ; 4622 2 END; ; 4623 2 ; 4624 2 [CHK_CRC] : ; 4625 3 BEGIN ; 4626 3 CH$WCHAR_A (CHAR (.CHKSUM<12, 4>), POINTER); ; 4627 3 CH$WCHAR_A (CHAR (.CHKSUM<6, 6>), POINTER); ; 4628 3 CH$WCHAR_A (CHAR (.CHKSUM<0, 6>), POINTER); ; 4629 3 TOT_MSG_LEN = .TOT_MSG_LEN + 2; ; 4630 2 END; ; 4631 2 TES; ; 4632 2 ; 4633 2 ! ; 4634 2 ! Store in the end of line character ; 4635 2 ! ; 4636 2 CH$WCHAR_A (.SEND_EOL, POINTER); ; 4637 2 ! ; 4638 2 ! If we are debugging then type out the message we are sending. ; 4639 2 ! ; 4640 2 DBG_SEND (SND_MSG, (.TOT_MSG_LEN)); ; 4641 2 ! ; 4642 2 ! Update the stats for total characters and the data characters ; 4643 2 ! ; 4644 2 SMSG_TOTAL_CHARS = .SMSG_TOTAL_CHARS + .TOT_MSG_LEN; ; 4645 2 ! Make data characters really be that, not just characters in data field ; 4646 2 ! SMSG_DATA_CHARS = .SMSG_DATA_CHARS + .LENGTH; ; 4647 2 ; 4648 2 IF .TYPE EQL MSG_NAK ; 4649 2 THEN ; 4650 3 BEGIN ; 4651 3 SMSG_NAKS = .SMSG_NAKS + 1; ; 4652 3 XFR_STATUS (%C'S', %C'N'); ; 4653 3 END ; 4654 2 ELSE ; 4655 3 BEGIN ; 4656 3 SMSG_COUNT = .SMSG_COUNT + 1; ; 4657 3 XFR_STATUS (%C'S', %C'P'); ; 4658 2 END; ; 4659 2 ; 4660 2 ! ; 4661 2 ! Check if we are in IBM mode and need to wait for an XON first ; 4662 2 ! We will not wait if this is a packet which might be going out ; 4663 2 ! without previous traffic (generic commands, init packets). ; 4664 2 ; 4665 3 IF .IBM_FLAG AND NOT (.TYPE EQL MSG_SND_INIT OR .TYPE EQL MSG_SER_INIT OR .TYPE EQL MSG_RCV_INIT ; 4666 3 OR .TYPE EQL MSG_COMMAND OR .TYPE EQL MSG_GENERIC) ; 4667 2 THEN ; 4668 2 ; 4669 2 IF NOT IBM_WAIT () THEN RETURN KER_ABORTED; ; 4670 2 ; 4671 2 ! ; 4672 2 ! Now call the O/S routine to send the message out to the remote KERMIT ; 4673 2 ! ; 4674 2 DO_PARITY (SND_MSG, .TOT_MSG_LEN); ; 4675 2 RETURN SEND (SND_MSG, .TOT_MSG_LEN); ; 4676 1 END; ! End of SEND_PACKET ;SEND_PACKET U.24: .WORD ^M ;Save R2,R3,R4,R5,R6,R7 ; 4524 MOVAB W^U.58, R7 ;U.58, R7 ; MOVAB -96(SP), SP ;-96(SP), SP ; MOVL -164(R7), R6 ;SEND_NPAD, R6 ; 4576 BEQL 1$ ;1$ ; MOVC5 #0, (SP), -160(R7), #96, (SP) ;#0, (SP), SEND_PADCHAR, #96, FILLER ; 4579 ADDL2 R6, W^SMSG_TOTAL_CHARS ;R6, SMSG_TOTAL_CHARS ; 4583 PUSHAB 6(R6) ;6(R6) ; 4587 PUSHAB 4(SP) ;FILLER ; CALLS #2, W^U.22 ;#2, U.22 ; ADDL3 #6, -164(R7), -(SP) ;#6, SEND_NPAD, -(SP) ; 4588 PUSHAB 4(SP) ;FILLER ; CALLS #2, W^SEND ;#2, SEND ; 1$: MOVL 4(AP), R3 ;TYPE, R3 ; 4594 MOVB R3, 3(R7) ;R3, SND_MSG+3 ; MOVB W^SND_SOH, (R7) ;SND_SOH, SND_MSG ; 4595 ADDL3 -140(R7), 8(AP), R0 ;BLK_CHK_TYPE, LENGTH, R0 ; 4596 SUBB3 #14, R0, 1(R7) ;#14, R0, SND_MSG+1 ; TSTL 12(AP) ;MN ; 4599 BGEQ 2$ ;2$ ; CLRL R0 ;R0 ; BRB 3$ ;3$ ; 2$: MOVL 12(AP), R0 ;MN, R0 ; 3$: ADDB3 #32, R0, 2(R7) ;#32, R0, SND_MSG+2 ; MOVAB 1(R7), R2 ;SND_MSG+1, POINTER ; 4603 ADDL3 #3, 8(AP), -(SP) ;#3, LENGTH, -(SP) ; 4604 PUSHL R2 ;POINTER ; CALLS #2, W^U.19 ;#2, U.19 ; ADDL3 #6, 8(AP), R4 ;#6, LENGTH, TOT_MSG_LEN ; 4605 MOVAB (R7), R1 ;SND_MSG, R1 ; 4609 ADDL2 8(AP), R1 ;LENGTH, R1 ; MOVAB 4(R1), R2 ;4(R1), POINTER ; CASEL -140(R7), #49, #2 ;BLK_CHK_TYPE, #49, #2 ; 4615 4$: .WORD 5$-4$,- ;5$-4$,- ; 6$-4$,- ;6$-4$,- ; 7$-4$ ;7$-4$ ; 5$: ADDB3 #32, R0, (R2) ;#32, CHKSUM, (POINTER) ; BRB 8$ ;8$ ; 6$: EXTZV #6, #6, R0, R1 ;#6, #6, CHKSUM, R1 ; 4619 ADDB3 #32, R1, (R2)+ ;#32, R1, (POINTER)+ ; EXTZV #0, #6, R0, R1 ;#0, #6, CHKSUM, R1 ; 4620 ADDB3 #32, R1, (R2) ;#32, R1, (POINTER) ; INCL R4 ;TOT_MSG_LEN ; 4621 BRB 8$ ;8$ ; 4615 7$: EXTZV #12, #4, R0, R1 ;#12, #4, CHKSUM, R1 ; 4626 ADDB3 #32, R1, (R2)+ ;#32, R1, (POINTER)+ ; EXTZV #6, #6, R0, R1 ;#6, #6, CHKSUM, R1 ; 4627 ADDB3 #32, R1, (R2)+ ;#32, R1, (POINTER)+ ; EXTZV #0, #6, R0, R1 ;#0, #6, CHKSUM, R1 ; 4628 ADDB3 #32, R1, (R2) ;#32, R1, (POINTER) ; ADDL2 #2, R4 ;#2, TOT_MSG_LEN ; 4629 8$: INCL R2 ;POINTER ; 4615 MOVB -156(R7), (R2)+ ;SEND_EOL, (POINTER)+ ; 4636 PUSHL R4 ;TOT_MSG_LEN ; 4640 PUSHL R7 ;R7 ; CALLS #2, W^U.35 ;#2, U.35 ; ADDL2 R4, W^SMSG_TOTAL_CHARS ;TOT_MSG_LEN, SMSG_TOTAL_CHARS ; 4644 CMPL R3, #78 ;R3, #78 ; 4648 BNEQ 9$ ;9$ ; INCL W^SMSG_NAKS ;SMSG_NAKS ; 4651 MOVZBL #78, -(SP) ;#78, -(SP) ; 4652 BRB 10$ ;10$ ; 9$: INCL W^SMSG_COUNT ;SMSG_COUNT ; 4656 MOVZBL #80, -(SP) ;#80, -(SP) ; 4657 10$: MOVZBL #83, -(SP) ;#83, -(SP) ; CALLS #2, W^XFR_STATUS ;#2, XFR_STATUS ; BLBC W^IBM_FLAG, 11$ ;IBM_FLAG, 11$ ; 4665 CMPL R3, #83 ;R3, #83 ; BEQL 11$ ;11$ ; CMPL R3, #73 ;R3, #73 ; BEQL 11$ ;11$ ; CMPL R3, #82 ;R3, #82 ; BEQL 11$ ;11$ ; CMPL R3, #67 ;R3, #67 ; 4666 BEQL 11$ ;11$ ; CMPL R3, #71 ;R3, #71 ; BEQL 11$ ;11$ ; CALLS #0, W^IBM_WAIT ;#0, IBM_WAIT ; 4669 BLBS R0, 11$ ;R0, 11$ ; MOVL #134316258, R0 ;#134316258, R0 ; RET ; ; 11$: PUSHL R4 ;TOT_MSG_LEN ; 4674 PUSHL R7 ;R7 ; CALLS #2, W^U.22 ;#2, U.22 ; PUSHL R4 ;TOT_MSG_LEN ; 4675 PUSHL R7 ;R7 ; CALLS #2, W^SEND ;#2, SEND ; RET ; ; 4676 ; Routine Size: 345 bytes, Routine Base: $CODE$ + 17B5 ; 4677 1 %SBTTL 'REC_MESSAGE - Receive a message' ; 4678 1 ROUTINE REC_MESSAGE (CHK_ROUTINE) = ; 4679 1 ; 4680 1 !++ ; 4681 1 ! FUNCTIONAL DESCRIPTION: ; 4682 1 ! ; 4683 1 ! This routine will handle the retry processing for the various ; 4684 1 ! messages that can be received. ; 4685 1 ! ; 4686 1 ! CALLING SEQUENCE: ; 4687 1 ! ; 4688 1 ! INPUT PARAMETERS: ; 4689 1 ! ; 4690 1 ! None. ; 4691 1 ! ; 4692 1 ! IMPLICIT INPUTS: ; 4693 1 ! ; 4694 1 ! None. ; 4695 1 ! ; 4696 1 ! OUTPUT PARAMETERS: ; 4697 1 ! ; 4698 1 ! None. ; 4699 1 ! ; 4700 1 ! IMPLICIT OUTPUTS: ; 4701 1 ! ; 4702 1 ! None. ; 4703 1 ! ; 4704 1 ! COMPLETION CODES: ; 4705 1 ! ; 4706 1 ! KER_NORMAL - Normal return ; 4707 1 ! KER_RETRIES - Too many retries ; 4708 1 ! (What ever REC_PACKET returns). ; 4709 1 ! ; 4710 1 ! SIDE EFFECTS: ; 4711 1 ! ; 4712 1 ! None. ; 4713 1 ! ; 4714 1 !-- ; 4715 1 ; 4716 2 BEGIN ; 4717 2 ; 4718 2 LOCAL ; 4719 2 STATUS; ! Status returned by various routines ; 4720 2 ; 4721 2 RETURN ; 4722 2 ; 4723 2 WHILE TRUE DO ; 4724 3 BEGIN ; 4725 3 ; 4726 3 IF .NUM_RETRIES GTR .PKT_RETRIES ; 4727 3 THEN ; 4728 4 BEGIN ; 4729 4 KRM_ERROR (KER_RETRIES); ! Report the error ; 4730 4 RETURN KER_RETRIES; ; 4731 3 END; ; 4732 3 ; 4733 3 NUM_RETRIES = .NUM_RETRIES + 1; ; 4734 3 STATUS = REC_PACKET (); ; 4735 3 ; 4736 3 IF NOT .STATUS AND .STATUS NEQ KER_CHKSUMERR AND .STATUS NEQ KER_TIMEOUT ; 4737 3 THEN ; 4738 3 RETURN .STATUS; ; 4739 3 ; 4740 3 IF NOT .STATUS ; 4741 3 THEN ; 4742 3 SEND_PACKET (MSG_NAK, 0, .MSG_NUMBER) ![024] ; 4743 3 ELSE ; 4744 4 BEGIN ; 4745 4 ![021] ; 4746 4 ![021] If the packet type is not acceptable by our caller, nak it so the ; 4747 4 ![021] other end tries again, and abort the current operation. This is so ; 4748 4 ![021] we will return to server mode (if we are running that way) quickly ; 4749 4 ![021] when the other Kermit has been aborted and then restarted, and should ; 4750 4 ![021] also make restarting quick, since we will not need to wait for the ; 4751 4 ![021] other Kermit to time this message out before retransmitting. ; 4752 4 ![021] ; 4753 4 ; 4754 4 IF NOT (.CHK_ROUTINE) () ; 4755 4 THEN ; 4756 5 BEGIN ; 4757 5 SEND_PACKET (MSG_NAK, 0, .REC_SEQ); ; 4758 5 RETURN FALSE; ! Just indicate an error ; 4759 5 END ; 4760 4 ELSE ; 4761 4 EXITLOOP KER_NORMAL; ; 4762 4 ; 4763 3 END; ; 4764 3 ; 4765 2 END; ; 4766 2 ; 4767 1 END; ! End of REC_PARSE ;REC_MESSAGE U.25: .WORD ^M ;Save R2,R3 ; 4678 MOVAB W^U.52, R3 ;U.52, R3 ; 1$: CMPL (R3), W^PKT_RETRIES ;NUM_RETRIES, PKT_RETRIES ; 4726 BLEQ 2$ ;2$ ; PUSHL #134316194 ;#134316194 ; 4729 CALLS #1, W^KRM_ERROR ;#1, KRM_ERROR ; MOVL #134316194, R0 ;#134316194, R0 ; 4730 RET ; ; 2$: INCL (R3) ;NUM_RETRIES ; 4733 CALLS #0, W^U.26 ;#0, U.26 ; 4734 MOVL R0, R2 ;R0, STATUS ; BLBS R2, 4$ ;STATUS, 4$ ; 4736 CMPL R2, #134316178 ;STATUS, #134316178 ; BEQL 3$ ;3$ ; CMPL R2, #134316248 ;STATUS, #134316248 ; BEQL 3$ ;3$ ; MOVL R2, R0 ;STATUS, R0 ; 4738 RET ; ; 3$: BLBS R2, 4$ ;STATUS, 4$ ; 4740 PUSHL 4(R3) ;MSG_NUMBER ; 4742 CLRL -(SP) ;-(SP) ; MOVZBL #78, -(SP) ;#78, -(SP) ; CALLS #3, W^U.24 ;#3, U.24 ; BRB 1$ ;1$ ; 4$: CALLS #0, @4(AP) ;#0, @CHK_ROUTINE ; 4754 BLBS R0, 5$ ;R0, 5$ ; PUSHL 8(R3) ;REC_SEQ ; 4757 CLRL -(SP) ;-(SP) ; MOVZBL #78, -(SP) ;#78, -(SP) ; CALLS #3, W^U.24 ;#3, U.24 ; BRB 6$ ;6$ ; 4758 5$: MOVL #134316043, R0 ;#134316043, R0 ; 4761 RET ; ; 6$: CLRL R0 ;R0 ; 4767 RET ; ; ; Routine Size: 121 bytes, Routine Base: $CODE$ + 190E ; 4768 1 %SBTTL 'REC_PACKET' ; 4769 1 ROUTINE REC_PACKET = ; 4770 1 ; 4771 1 !++ ; 4772 1 ! FUNCTIONAL DESCRIPTION: ; 4773 1 ! ; 4774 1 ! This routine will do the oppoiste of SEND_PACKET. It will wait ; 4775 1 ! for the message to be read from the remote and then it will ; 4776 1 ! check the message for validity. ; 4777 1 ! ; 4778 1 ! CALLING SEQUENCE: ; 4779 1 ! ; 4780 1 ! Flag = REC_PACKET(); ; 4781 1 ! ; 4782 1 ! INPUT PARAMETERS: ; 4783 1 ! ; 4784 1 ! None. ; 4785 1 ! ; 4786 1 ! IMPLICIT INPUTS: ; 4787 1 ! ; 4788 1 ! None. ; 4789 1 ! ; 4790 1 ! OUTPUT PARAMETERS: ; 4791 1 ! ; 4792 1 ! None. ; 4793 1 ! ; 4794 1 ! IMPLICIT OUTPUTS: ; 4795 1 ! ; 4796 1 ! REC_MSG - Contains the message received. ; 4797 1 ! ; 4798 1 ! COMPLETION CODES: ; 4799 1 ! ; 4800 1 ! True - Packet receive ok. ; 4801 1 ! False - Problem occured during the receiving of the packet. ; 4802 1 ! ; 4803 1 ! SIDE EFFECTS: ; 4804 1 ! ; 4805 1 ! None. ; 4806 1 ! ; 4807 1 !-- ; 4808 1 ; 4809 2 BEGIN ; 4810 2 ; 4811 2 BIND ; 4812 2 ATTEMPT_TEXT = UPLIT (%ASCIZ'Attempting to receive'); ; 4813 2 ; 4814 2 LOCAL ; 4815 2 STATUS, ! Status returned by various routines ; 4816 2 MSG_LENGTH, ; 4817 2 ERR_POINTER, ! Pointer to the error buffer ; 4818 2 POINTER, ; 4819 2 CHKSUM; ! Checksum of the message ; 4820 2 ; 4821 2 ! ; 4822 2 ! Attempt to read the message from the remote. ; 4823 2 ! ; 4824 2 ! DO ; 4825 2 ! BEGIN ; 4826 2 ; 4827 2 IF .DEBUG_FLAG ; 4828 2 THEN ; 4829 3 BEGIN ; 4830 3 ; 4831 3 LOCAL ; 4832 3 OLD_RTN; ; 4833 3 ; 4834 3 OLD_RTN = TT_SET_OUTPUT (DBG_DUMP); ; 4835 3 TT_TEXT (ATTEMPT_TEXT); ; 4836 3 TT_CRLF (); ; 4837 3 TT_SET_OUTPUT (.OLD_RTN); ; 4838 2 END; ; 4839 2 ; 4840 2 ! ; 4841 2 ! If status type out requested, do it once ; 4842 2 ! ; 4843 2 ; 4844 2 IF .TYP_STS_FLAG ; 4845 2 THEN ; 4846 3 BEGIN ; 4847 3 STS_OUTPUT (); ; 4848 3 TYP_STS_FLAG = FALSE; ; 4849 2 END; ; 4850 2 ; 4851 2 ! ; 4852 2 ! Receive the message from the remote Kermit ; 4853 2 ! ; 4854 2 STATUS = RECEIVE (REC_MSG, MSG_LENGTH); ; 4855 2 ! ; 4856 2 ! Check for timeouts ; 4857 2 ! ; 4858 2 ; 4859 2 IF .STATUS EQL KER_TIMEOUT THEN XFR_STATUS (%C'R', %C'T'); ; 4860 2 ; 4861 2 ! ; 4862 2 ! If it failed return the status to the upper level ; 4863 2 ! ; 4864 2 ; 4865 2 IF NOT .STATUS ; 4866 2 THEN ; 4867 3 BEGIN ; 4868 3 ; 4869 3 IF .STATUS NEQ KER_ABORTED AND .STATUS NEQ KER_TIMEOUT THEN KRM_ERROR (.STATUS); ; 4870 3 ; 4871 3 ! Report error ; 4872 3 RETURN .STATUS; ; 4873 2 END; ; 4874 2 ; 4875 2 ! ; 4876 2 ! Determine if we got a good message ; 4877 2 ! ; 4878 2 ; 4879 2 IF .MSG_LENGTH LSS PKT_TOT_OVR_HEAD - 1 ; 4880 2 THEN ; 4881 3 BEGIN ; 4882 3 RETURN KER_ZEROLENMSG; ; 4883 2 END; ; 4884 2 ; 4885 2 ! ; 4886 2 ! Update the stats on the total number of characters received. ; 4887 2 ! ; 4888 2 RMSG_TOTAL_CHARS = .RMSG_TOTAL_CHARS + .MSG_LENGTH; ; 4889 2 ! ; 4890 2 ! Initialize the checksum and others ; 4891 2 ! ; 4892 2 REC_TYPE = CH$RCHAR (CH$PTR (REC_MSG, PKT_TYPE, CHR_SIZE)); ; 4893 2 ! ; 4894 2 ! Now break the message apart byte by byte. ; 4895 2 ! ; 4896 3 REC_LENGTH = UNCHAR (CH$RCHAR (CH$PTR (REC_MSG, PKT_COUNT, CHR_SIZE))) - PKT_OVR_HEAD - ( ; 4897 2 .BLK_CHK_TYPE - CHK_1CHAR); ; 4898 2 REC_SEQ = UNCHAR (CH$RCHAR (CH$PTR (REC_MSG, PKT_SEQ, CHR_SIZE))); ; 4899 2 ! ; 4900 2 ! Typed the packet if we are debugging ; 4901 2 ! ; 4902 2 DBG_RECEIVE (REC_MSG); ; 4903 2 ! ; 4904 2 ! Now compute the final checksum and make sure that it is identical ; 4905 2 ! to what we received from the remote KERMIT ; 4906 2 ! ; 4907 2 POINTER = CH$PTR (REC_MSG, PKT_MARK + 1, CHR_SIZE); ; 4908 2 CHKSUM = CALC_BLOCK_CHECK (.POINTER, .REC_LENGTH + PKT_OVR_HEAD); ; 4909 2 POINTER = CH$PTR (REC_MSG, .REC_LENGTH + PKT_OVR_HEAD + 1, CHR_SIZE); ; 4910 2 STATUS = KER_NORMAL; ! Assume good checksum ; 4911 2 ; 4912 2 CASE .BLK_CHK_TYPE FROM CHK_1CHAR TO CHK_CRC OF ; 4913 2 SET ; 4914 2 ; 4915 2 [CHK_1CHAR] : ; 4916 2 ; 4917 2 IF .CHKSUM NEQ UNCHAR (CH$RCHAR_A (POINTER)) THEN STATUS = KER_CHKSUMERR; ; 4918 2 ; 4919 2 [CHK_2CHAR] : ; 4920 2 ; P 4921 3 IF (.CHKSUM<6, 6> NEQ UNCHAR (CH$RCHAR_A (POINTER))) OR (.CHKSUM<0, 6> NEQ UNCHAR ( ; 4922 3 CH$RCHAR_A (POINTER))) ; 4923 2 THEN ; 4924 2 STATUS = KER_CHKSUMERR; ; 4925 2 ; 4926 2 [CHK_CRC] : ; 4927 2 ; P 4928 3 IF (.CHKSUM<12, 4> NEQ UNCHAR (CH$RCHAR_A (POINTER))) OR (.CHKSUM<6, 6> NEQ UNCHAR ( ; 4929 3 CH$RCHAR_A (POINTER))) OR (.CHKSUM<0, 6> NEQ UNCHAR (CH$RCHAR_A (POINTER))) ; 4930 2 THEN ; 4931 2 STATUS = KER_CHKSUMERR; ; 4932 2 ; 4933 2 TES; ; 4934 2 ; 4935 2 ! ; 4936 2 ! If we have a bad checksum, check for the special cases when we might be out ; 4937 2 ! of sync with the sender. This can occur if the sender is retransmitting ; 4938 2 ! a send-init (because our ACK got lost), and we have agreed on multi-char ; 4939 2 ! checksums, or because the sender is a server who has aborted back to being ; 4940 2 ! idle without telling us. ; 4941 2 ! Note that in either case, we return back to using single character checksums ; 4942 2 ! ; 4943 2 ; 4944 2 IF .STATUS EQL KER_CHKSUMERR ; 4945 2 THEN ; 4946 3 BEGIN ; 4947 3 ; 4948 5 IF (.BLK_CHK_TYPE NEQ CHK_1CHAR AND .REC_SEQ EQL 0) AND (.REC_LENGTH LSS 1 - (.BLK_CHK_TYPE ; 4949 4 - CHK_1CHAR) AND .REC_TYPE EQL MSG_NAK) OR (.REC_TYPE EQL MSG_SND_INIT) ; 4950 3 THEN ; 4951 4 BEGIN ; 4952 4 ; 4953 4 LOCAL ; 4954 4 SAVE_BLK_CHK_TYPE; ; 4955 4 ; 4956 4 SAVE_BLK_CHK_TYPE = .BLK_CHK_TYPE; ! Remember what we are using ; 4957 4 BLK_CHK_TYPE = CHK_1CHAR; ; 4958 4 POINTER = CH$PTR (REC_MSG, PKT_MARK + 1, CHR_SIZE); ; 4959 4 CHKSUM = CALC_BLOCK_CHECK (.POINTER, .REC_LENGTH + PKT_OVR_HEAD); ; 4960 4 POINTER = CH$PTR (REC_MSG, .REC_LENGTH + PKT_OVR_HEAD + 1, CHR_SIZE); ; 4961 4 ; 4962 5 IF .CHKSUM NEQ UNCHAR (CH$RCHAR_A (POINTER)) ; 4963 4 THEN ; 4964 5 BEGIN ; 4965 5 BLK_CHK_TYPE = .SAVE_BLK_CHK_TYPE; ; 4966 5 RETURN KER_CHKSUMERR; ; 4967 4 END; ; 4968 4 ; 4969 4 END ; 4970 3 ELSE ; 4971 3 RETURN KER_CHKSUMERR; ; 4972 3 ; 4973 2 END; ; 4974 2 ; 4975 2 ! ; 4976 2 ! Update the stats ; 4977 2 ! ; 4978 2 ! RMSG_DATA_CHARS = .RMSG_DATA_CHARS + .REC_LENGTH; ; 4979 2 ; 4980 2 IF .REC_TYPE EQL MSG_NAK ; 4981 2 THEN ; 4982 3 BEGIN ; 4983 3 RMSG_NAKS = .RMSG_NAKS + 1; ; 4984 3 XFR_STATUS (%C'R', %C'N'); ; 4985 3 END ; 4986 2 ELSE ; 4987 3 BEGIN ; 4988 3 RMSG_COUNT = .RMSG_COUNT + 1; ; 4989 3 XFR_STATUS (%C'R', %C'P'); ; 4990 2 END; ; 4991 2 ; 4992 2 ! ; 4993 2 ! Now check to see if we have an E type (Error) packet. ; 4994 2 ! ; 4995 2 ; 4996 2 IF .REC_TYPE NEQ MSG_ERROR THEN RETURN KER_NORMAL; ; 4997 2 ; 4998 2 ! ; 4999 2 ! Here to process an error packet. Call the user routine to output the ; 5000 2 ! error message to the terminal. ; 5001 2 ! ; 5002 2 ! ; 5003 2 ![026] Use decoding routine to fetch the error text ; 5004 2 ! ; 5005 2 CH$FILL (CHR_NUL, MAX_MSG + 1, CH$PTR (LAST_ERROR)); ; 5006 2 SET_STRING (CH$PTR (LAST_ERROR), MAX_MSG, TRUE); ; 5007 2 BFR_EMPTY (); ; 5008 2 SET_STRING (0, 0, FALSE); ; 5009 2 ![026] ERR_POINTER = CH$PTR (LAST_ERROR); ; 5010 2 ![026] POINTER = CH$PTR (REC_MSG, PKT_MSG, CHR_SIZE); ; 5011 2 ![026] ; 5012 2 ![026] INCR I FROM 1 TO .REC_LENGTH DO ; 5013 2 ![026] CH$WCHAR_A (CH$RCHAR_A (POINTER), ERR_POINTER); ; 5014 2 ![026] ; 5015 2 ![026] CH$WCHAR (CHR_NUL, ERR_POINTER); ; 5016 2 TT_TEXT (LAST_ERROR); ; 5017 2 TT_CRLF (); ; 5018 2 RETURN KER_ERRMSG; ; 5019 1 END; ! End of REC_PACKET .PSECT $PLIT$,NOWRT,NOEXE,2 P.AAO: .ASCII \Attempting to receive\<0><0><0> ; ; U.80= P.AAO .PSECT $CODE$,NOWRT,2 ;REC_PACKET U.26: .WORD ^M ;Save R2,R3,R4,R5,R6,R7 ; 4769 MOVAB W^LAST_ERROR, R7 ;LAST_ERROR, R7 ; MOVAB W^U.56, R6 ;U.56, R6 ; SUBL2 #4, SP ;#4, SP ; BLBC W^DEBUG_FLAG, 1$ ;DEBUG_FLAG, 1$ ; 4827 PUSHAB W^DBG_DUMP ;DBG_DUMP ; 4834 CALLS #1, W^TT_SET_OUTPUT ;#1, TT_SET_OUTPUT ; MOVL R0, R2 ;R0, OLD_RTN ; PUSHAB W^U.80 ;U.80 ; 4835 CALLS #1, W^TT_TEXT ;#1, TT_TEXT ; CALLS #0, W^TT_CRLF ;#0, TT_CRLF ; 4836 PUSHL R2 ;OLD_RTN ; 4837 CALLS #1, W^TT_SET_OUTPUT ;#1, TT_SET_OUTPUT ; 1$: BLBC W^TYP_STS_FLAG, 2$ ;TYP_STS_FLAG, 2$ ; 4844 CALLS #0, W^U.33 ;#0, U.33 ; 4847 CLRL W^TYP_STS_FLAG ;TYP_STS_FLAG ; 4848 2$: PUSHL SP ;SP ; 4854 PUSHAB 4(R6) ;REC_MSG ; CALLS #2, W^RECEIVE ;#2, RECEIVE ; MOVL R0, R5 ;R0, STATUS ; CMPL R5, #134316248 ;STATUS, #134316248 ; 4859 BNEQ 3$ ;3$ ; MOVZBL #84, -(SP) ;#84, -(SP) ; MOVZBL #82, -(SP) ;#82, -(SP) ; CALLS #2, W^XFR_STATUS ;#2, XFR_STATUS ; 3$: BLBS R5, 5$ ;STATUS, 5$ ; 4865 CMPL R5, #134316258 ;STATUS, #134316258 ; 4869 BEQL 4$ ;4$ ; CMPL R5, #134316248 ;STATUS, #134316248 ; BEQL 4$ ;4$ ; PUSHL R5 ;STATUS ; CALLS #1, W^KRM_ERROR ;#1, KRM_ERROR ; 4$: MOVL R5, R0 ;STATUS, R0 ; 4872 RET ; ; 5$: CMPL (SP), #5 ;MSG_LENGTH, #5 ; 4879 BGEQ 6$ ;6$ ; MOVL #134316234, R0 ;#134316234, R0 ; 4882 RET ; ; 6$: ADDL2 (SP), W^RMSG_TOTAL_CHARS ;MSG_LENGTH, RMSG_TOTAL_CHARS ; 4888 MOVZBL 7(R6), (R6) ;REC_MSG+3, REC_TYPE ; 4892 MOVZBL 5(R6), R0 ;REC_MSG+1, R0 ; 4896 SUBL2 -40(R6), R0 ;BLK_CHK_TYPE, R0 ; MOVAB 14(R0), -4(R6) ;14(R0), REC_LENGTH ; MOVZBL 6(R6), -8(R6) ;REC_MSG+2, REC_SEQ ; 4898 SUBL2 #32, -8(R6) ;#32, REC_SEQ ; PUSHAB 4(R6) ;REC_MSG ; 4902 CALLS #1, W^U.36 ;#1, U.36 ; MOVAB 5(R6), R2 ;REC_MSG+1, POINTER ; 4907 ADDL3 #3, -4(R6), -(SP) ;#3, REC_LENGTH, -(SP) ; 4908 PUSHL R2 ;POINTER ; CALLS #2, W^U.19 ;#2, U.19 ; MOVL -4(R6), R1 ;REC_LENGTH, R1 ; 4909 MOVAB 8(R6)[R1], R2 ;REC_MSG+4[R1], POINTER ; MOVL #134316043, R5 ;#134316043, STATUS ; 4910 MOVL -40(R6), R4 ;BLK_CHK_TYPE, R4 ; 4912 CASEL R4, #49, #2 ;R4, #49, #2 ; 7$: .WORD 8$-7$,- ;8$-7$,- ; 10$-7$,- ;10$-7$,- ; 9$-7$ ;9$-7$ ; 8$: MOVZBL (R2)+, R3 ;(POINTER)+, R3 ; 4917 SUBL2 #32, R3 ;#32, R3 ; CMPL R0, R3 ;CHKSUM, R3 ; BRB 11$ ;11$ ; 9$: MOVZBL (R2)+, R3 ;(POINTER)+, R3 ; 4928 SUBL2 #32, R3 ;#32, R3 ; CMPZV #12, #4, R0, R3 ;#12, #4, CHKSUM, R3 ; BNEQ 12$ ;12$ ; 10$: MOVZBL (R2)+, R3 ;(POINTER)+, R3 ; 4929 SUBL2 #32, R3 ;#32, R3 ; CMPZV #6, #6, R0, R3 ;#6, #6, CHKSUM, R3 ; BNEQ 12$ ;12$ ; MOVZBL (R2)+, R3 ;(POINTER)+, R3 ; SUBL2 #32, R3 ;#32, R3 ; CMPZV #0, #6, R0, R3 ;#0, #6, CHKSUM, R3 ; 11$: BEQL 13$ ;13$ ; 12$: MOVL #134316178, R5 ;#134316178, STATUS ; 4931 13$: CMPL R5, #134316178 ;STATUS, #134316178 ; 4944 BNEQ 17$ ;17$ ; CMPL R4, #49 ;R4, #49 ; 4948 BEQL 14$ ;14$ ; TSTL -8(R6) ;REC_SEQ ; BNEQ 14$ ;14$ ; MOVAB -50(R4), R3 ;-50(R4), R3 ; MNEGL R3, R3 ;R3, R3 ; CMPL R1, R3 ;R1, R3 ; BGEQ 14$ ;14$ ; CMPL (R6), #78 ;REC_TYPE, #78 ; 4949 BEQL 15$ ;15$ ; 14$: CMPL (R6), #83 ;REC_TYPE, #83 ; BNEQ 16$ ;16$ ; 15$: MOVL R4, R3 ;R4, SAVE_BLK_CHK_TYPE ; 4956 MOVL #49, -40(R6) ;#49, BLK_CHK_TYPE ; 4957 MOVAB 5(R6), R2 ;REC_MSG+1, POINTER ; 4958 PUSHAB 3(R1) ;3(R1) ; 4959 PUSHL R2 ;POINTER ; CALLS #2, W^U.19 ;#2, U.19 ; MOVAB 4(R6), R1 ;REC_MSG, R1 ; 4960 ADDL2 -4(R6), R1 ;REC_LENGTH, R1 ; MOVAB 4(R1), R2 ;4(R1), POINTER ; MOVZBL (R2)+, R1 ;(POINTER)+, R1 ; 4962 SUBL2 #32, R1 ;#32, R1 ; CMPL R0, R1 ;CHKSUM, R1 ; BEQL 17$ ;17$ ; MOVL R3, -40(R6) ;SAVE_BLK_CHK_TYPE, BLK_CHK_TYPE ; 4965 16$: MOVL #134316178, R0 ;#134316178, R0 ; 4971 RET ; ; 17$: CMPL (R6), #78 ;REC_TYPE, #78 ; 4980 BNEQ 18$ ;18$ ; INCL W^RMSG_NAKS ;RMSG_NAKS ; 4983 MOVZBL #78, -(SP) ;#78, -(SP) ; 4984 BRB 19$ ;19$ ; 18$: INCL W^RMSG_COUNT ;RMSG_COUNT ; 4988 MOVZBL #80, -(SP) ;#80, -(SP) ; 4989 19$: MOVZBL #82, -(SP) ;#82, -(SP) ; CALLS #2, W^XFR_STATUS ;#2, XFR_STATUS ; CMPL (R6), #69 ;REC_TYPE, #69 ; 4996 BEQL 20$ ;20$ ; MOVL #134316043, R0 ;#134316043, R0 ; RET ; ; 20$: MOVC5 #0, (SP), #0, #97, (R7) ;#0, (SP), #0, #97, LAST_ERROR ; 5005 PUSHL #1 ;#1 ; 5006 MOVZBL #96, -(SP) ;#96, -(SP) ; PUSHL R7 ;R7 ; CALLS #3, W^U.30 ;#3, U.30 ; CALLS #0, W^U.28 ;#0, U.28 ; 5007 CLRQ -(SP) ;-(SP) ; 5008 CLRL -(SP) ;-(SP) ; CALLS #3, W^U.30 ;#3, U.30 ; PUSHL R7 ;R7 ; 5016 CALLS #1, W^TT_TEXT ;#1, TT_TEXT ; CALLS #0, W^TT_CRLF ;#0, TT_CRLF ; 5017 MOVL #134316170, R0 ;#134316170, R0 ; 5018 RET ; ; 5019 ; Routine Size: 502 bytes, Routine Base: $CODE$ + 1987 ; 5020 1 %SBTTL 'CALC_BLOCK_CHECK' ; 5021 1 ROUTINE CALC_BLOCK_CHECK (POINTER, LENGTH) = ; 5022 1 ; 5023 1 !++ ; 5024 1 ! FUNCTIONAL DESCRIPTION: ; 5025 1 ! ; 5026 1 ! This routine will calculate the proper value for the block check ; 5027 1 ! for a given message. The value it returns is dependant upon the ; 5028 1 ! type of block check requested in BLK_CHK_TYPE. ; 5029 1 ! ; 5030 1 ! CALLING SEQUENCE: ; 5031 1 ! ; 5032 1 ! CHKSUM = CALC_BLOCK_CHECK (.POINTER, .LENGTH); ; 5033 1 ! ; 5034 1 ! INPUT PARAMETERS: ; 5035 1 ! ; 5036 1 ! POINTER - A character pointer to the first character to be ; 5037 1 ! included in the block check. ; 5038 1 ! ; 5039 1 ! LENGTH - The number of characters to be included. ; 5040 1 ! ; 5041 1 ! IMPLICIT INPUTS: ; 5042 1 ! ; 5043 1 ! BLK_CHK_TYPE - The type of block check to generate. ; 5044 1 ! ; 5045 1 ! OUPTUT PARAMETERS: ; 5046 1 ! ; 5047 1 ! The value is the block check. ; 5048 1 ! ; 5049 1 ! IMPLICIT OUTPUTS: ; 5050 1 ! ; 5051 1 ! None. ; 5052 1 ! ; 5053 1 ! COMPLETION CODES: ; 5054 1 ! ; 5055 1 ! None. ; 5056 1 ! ; 5057 1 ! SIDE EFFECTS: ; 5058 1 ! ; 5059 1 ! None. ; 5060 1 ! ; 5061 1 !-- ; 5062 1 ; 5063 2 BEGIN ; 5064 2 ; 5065 2 LOCAL ; 5066 2 CHAR_MASK, ! Mask for stripping bits ; 5067 2 BLOCK_CHECK; ! To build initial block check value ; 5068 2 ; 5069 2 BLOCK_CHECK = 0; ! Start out at 0 ; 5070 2 ! ; 5071 2 ! Set mask for characters so that we calculate the block check correctly ; 5072 2 ! ; 5073 2 CHAR_MASK = (IF .PARITY_TYPE EQL PR_NONE THEN %O'377' ELSE %O'177'); ; 5074 2 ; 5075 2 CASE .BLK_CHK_TYPE FROM CHK_1CHAR TO CHK_CRC OF ; 5076 2 SET ; 5077 2 ; 5078 2 [CHK_1CHAR, CHK_2CHAR] : ; 5079 2 ; 5080 2 INCR I FROM 1 TO .LENGTH DO ; 5081 2 BLOCK_CHECK = .BLOCK_CHECK + (CH$RCHAR_A (POINTER) AND .CHAR_MASK); ; 5082 2 ; 5083 2 [CHK_CRC] : ; 5084 3 BEGIN ; 5085 3 ! ; 5086 3 ! Ensure that the calculation is done with correct type of characters ; 5087 3 ! ; 5088 3 ; 5089 3 LOCAL ; 5090 3 TMP_PTR; ! Temp pointer for copying chars ; 5091 3 ; 5092 3 TMP_PTR = .POINTER; ; 5093 3 ; 5094 3 IF .PARITY_TYPE EQL PR_NONE ; 5095 3 THEN ; 5096 3 ; 5097 3 INCR I FROM 1 TO .LENGTH DO ; 5098 3 CH$WCHAR_A ((CH$RCHAR (.TMP_PTR) AND %O'177'), TMP_PTR); ; 5099 3 ; 5100 3 BLOCK_CHECK = CRCCLC (.POINTER, .LENGTH); ; 5101 2 END; ; 5102 2 TES; ; 5103 2 ; 5104 2 IF .BLK_CHK_TYPE EQL CHK_1CHAR ; 5105 2 THEN ; 5106 2 BLOCK_CHECK = (.BLOCK_CHECK + ((.BLOCK_CHECK AND %O'300')/%O'100')) AND %O'77'; ; 5107 2 ; 5108 2 RETURN .BLOCK_CHECK; ! Return the correct value ; 5109 1 END; ! End of CALC_BLOCK_CHK ;CALC_BLOCK_CHECK U.19: .WORD ^M ;Save R2,R3,R4 ; 5021 CLRL R3 ;BLOCK_CHECK ; 5069 CLRL R1 ;R1 ; 5073 TSTL W^PARITY_TYPE ;PARITY_TYPE ; BNEQ 1$ ;1$ ; INCL R1 ;R1 ; MOVZBL #255, R2 ;#255, CHAR_MASK ; BRB 2$ ;2$ ; 1$: MOVZBL #127, R2 ;#127, CHAR_MASK ; 2$: CASEL W^U.46, #49, #2 ;U.46, #49, #2 ; 5075 3$: .WORD 4$-3$,- ;4$-3$,- ; 4$-3$,- ;4$-3$,- ; 7$-3$ ;7$-3$ ; 4$: CLRL R0 ;I ; 5080 BRB 6$ ;6$ ; 5$: MOVZBL @4(AP), R1 ;@POINTER, R1 ; 5081 INCL 4(AP) ;POINTER ; MCOML R2, R4 ;CHAR_MASK, R4 ; BICL2 R4, R1 ;R4, R1 ; ADDL2 R1, R3 ;R1, BLOCK_CHECK ; 6$: AOBLEQ 8(AP), R0, 5$ ;LENGTH, I, 5$ ; BRB 11$ ;11$ ; 5080 7$: MOVL 4(AP), R0 ;POINTER, TMP_PTR ; 5092 BLBC R1, 10$ ;R1, 10$ ; 5094 CLRL R2 ;I ; 5098 BRB 9$ ;9$ ; 8$: EXTZV #0, #7, (R0), R1 ;#0, #7, (TMP_PTR), R1 ; MOVB R1, (R0)+ ;R1, (TMP_PTR)+ ; 9$: AOBLEQ 8(AP), R2, 8$ ;LENGTH, I, 8$ ; 10$: MOVQ 4(AP), -(SP) ;POINTER, -(SP) ; 5100 CALLS #2, W^CRCCLC ;#2, CRCCLC ; MOVL R0, R3 ;R0, BLOCK_CHECK ; 11$: CMPL W^U.46, #49 ;U.46, #49 ; 5104 BNEQ 12$ ;12$ ; BICL3 #-193, R3, R0 ;#-193, BLOCK_CHECK, R0 ; 5106 DIVL2 #64, R0 ;#64, R0 ; ADDL2 R3, R0 ;BLOCK_CHECK, R0 ; EXTZV #0, #6, R0, R3 ;#0, #6, R0, BLOCK_CHECK ; 12$: MOVL R3, R0 ;BLOCK_CHECK, R0 ; 5108 RET ; ; 5109 ; Routine Size: 133 bytes, Routine Base: $CODE$ + 1B7D ; 5110 1 %SBTTL 'NORMALIZE_FILE - Put file name into normal form' ; 5111 1 ROUTINE NORMALIZE_FILE (FILE_ADDRESS, FILE_LENGTH, NAME_LENGTH, TYPE_LENGTH) : NOVALUE = ; 5112 1 ; 5113 1 !++ ; 5114 1 ! FUNCTIONAL DESCRIPTION: ; 5115 1 ! ; 5116 1 ! This routine will ensure that a file specification is in normal ; 5117 1 ! form. It does this by replacing all non-alphanumeric characters ; 5118 1 ! (except the first period) with "X". It will also ensure that ; 5119 1 ! the resulting specification (of form name.type) has only ; 5120 1 ! a specified number of characters in the name portion and type portion. ; 5121 1 ! ; 5122 1 ! CALLING SEQUENCE: ; 5123 1 ! ; 5124 1 ! NORMALIZE_FILE (FILE_ADDRESS, FILE_LENGTH, NAME_LENGTH, TYPE_LENGTH); ; 5125 1 ! ; 5126 1 ! INPUT PARAMETERS: ; 5127 1 ! ; 5128 1 ! FILE_ADDRESS - Address of file specification string to be normalized ; 5129 1 ! ; 5130 1 ! FILE_LENGTH - Length of file specification ; 5131 1 ! ; 5132 1 ! NAME_LENGTH - Maximum length desired for "name" portion. ; 5133 1 ! ; 5134 1 ! TYPE_LENGTH - Maximum length desired for "type" portion. ; 5135 1 ! ; 5136 1 ! With both NAME_LENGTH and TYPE_LENGTH, a negative value indicates ; 5137 1 ! unlimited lenght. ; 5138 1 ! ; 5139 1 ! IMPLICIT INPUTS: ; 5140 1 ! ; 5141 1 ! None. ; 5142 1 ! ; 5143 1 ! OUPTUT PARAMETERS: ; 5144 1 ! ; 5145 1 ! FILE_LENGTH - The length of the resulting file spec ; 5146 1 ! ; 5147 1 ! NAME_LENGTH - The actual length of the resulting file name ; 5148 1 ! ; 5149 1 ! TYPE_LENGTH - The actual length of the resulting file type ; 5150 1 ! ; 5151 1 ! IMPLICIT OUTPUTS: ; 5152 1 ! ; 5153 1 ! None. ; 5154 1 ! ; 5155 1 ! COMPLETION CODES: ; 5156 1 ! ; 5157 1 ! None. ; 5158 1 ! ; 5159 1 ! SIDE EFFECTS: ; 5160 1 ! ; 5161 1 ! None. ; 5162 1 ! ; 5163 1 !-- ; 5164 1 ; 5165 2 BEGIN ; 5166 2 ; 5167 2 LOCAL ; 5168 2 CH, ! Character being processed ; 5169 2 POINTER, ! Pointer to file spec ; 5170 2 WRT_POINTER, ! Pointer to write file spec ; 5171 2 WRT_SIZE, ; 5172 2 FIRST_PERIOD, ! Flag we have seen a period ; 5173 2 IGNORE_BAD, ! Flag we should ignore bad characters ; 5174 2 BAD_CHAR, ! Flag this character was bad ; 5175 2 FILE_CTR, ! Counter for overall length ; 5176 2 NAME_CTR, ! Counter for name characters ; 5177 2 TYPE_CTR; ! Counter for type characters ; 5178 2 ; 5179 2 FILE_CTR = 0; ; 5180 2 NAME_CTR = 0; ; 5181 2 TYPE_CTR = 0; ; 5182 2 WRT_SIZE = 0; ; 5183 2 FIRST_PERIOD = FALSE; ! No periods yet ; 5184 2 POINTER = CH$PTR (.FILE_ADDRESS); ! Set up pointer to file name ; 5185 2 WRT_POINTER = .POINTER; ; 5186 2 ; 5187 2 IF .NAME_LENGTH EQL 0 THEN FIRST_PERIOD = TRUE; ! Pretend we did name already ; 5188 2 ; 5189 2 IGNORE_BAD = FALSE; ; 5190 2 ; 5191 2 IF .NAME_LENGTH GTR 0 ; 5192 2 THEN ; 5193 3 BEGIN ; 5194 3 ; 5195 3 DECR I FROM ..FILE_LENGTH TO 0 DO ; 5196 3 ; 5197 3 IF CH$RCHAR_A (POINTER) EQL %C'.' ; 5198 3 THEN ; 5199 4 BEGIN ; 5200 4 IGNORE_BAD = TRUE; ; 5201 4 EXITLOOP; ; 5202 3 END; ; 5203 3 ; 5204 2 END; ; 5205 2 ; 5206 2 POINTER = .WRT_POINTER; ; 5207 2 ; 5208 2 WHILE .FILE_CTR LSS ..FILE_LENGTH DO ; 5209 3 BEGIN ; 5210 3 CH = CH$RCHAR_A (POINTER); ! Get a character ; 5211 3 FILE_CTR = .FILE_CTR + 1; ; 5212 3 ; 5213 4 IF (.CH LSS %C'0' AND (.CH NEQ %C'.' OR .FIRST_PERIOD)) OR .CH GTR %C'z' OR (.CH GTR %C'9' ; 5214 4 AND .CH LSS %C'A') OR (.CH GTR %C'Z' AND .CH LSS %C'a') ; 5215 3 THEN ; 5216 4 BEGIN ; 5217 4 BAD_CHAR = TRUE; ; 5218 4 CH = %C'X'; ; 5219 4 END ; 5220 3 ELSE ; 5221 4 BEGIN ; 5222 4 BAD_CHAR = FALSE; ; 5223 4 ; 5224 4 IF .CH GEQ %C'a' THEN CH = .CH - (%C'a' - %C'A'); ; 5225 4 ; 5226 3 END; ; 5227 3 ; 5228 3 IF .CH EQL %C'.' ; 5229 3 THEN ; 5230 4 BEGIN ; 5231 4 FIRST_PERIOD = TRUE; ; 5232 4 CH$WCHAR_A (.CH, WRT_POINTER); ; 5233 4 WRT_SIZE = .WRT_SIZE + 1; ; 5234 4 END ; 5235 3 ELSE ; 5236 3 ; 5237 3 IF NOT .BAD_CHAR OR NOT .IGNORE_BAD ; 5238 3 THEN ; 5239 3 ; 5240 3 IF NOT .FIRST_PERIOD ; 5241 3 THEN ; 5242 4 BEGIN ; 5243 4 ; 5244 4 IF .NAME_LENGTH LSS 0 OR .NAME_CTR LSS .NAME_LENGTH ; 5245 4 THEN ; 5246 5 BEGIN ; 5247 5 NAME_CTR = .NAME_CTR + 1; ; 5248 5 WRT_SIZE = .WRT_SIZE + 1; ; 5249 5 CH$WCHAR_A (.CH, WRT_POINTER); ; 5250 4 END; ; 5251 4 ; 5252 4 END ; 5253 3 ELSE ; 5254 3 ; 5255 3 IF .TYPE_LENGTH LSS 0 OR .TYPE_CTR LSS .TYPE_LENGTH ; 5256 3 THEN ; 5257 4 BEGIN ; 5258 4 TYPE_CTR = .TYPE_CTR + 1; ; 5259 4 WRT_SIZE = .WRT_SIZE + 1; ; 5260 4 CH$WCHAR_A (.CH, WRT_POINTER); ; 5261 3 END; ; 5262 3 ; 5263 2 END; ; 5264 2 ; 5265 2 .FILE_LENGTH = .WRT_SIZE; ; 5266 2 CH$WCHAR_A (CHR_NUL, WRT_POINTER); ; 5267 1 END; ! End of NORMALIZE_FILE ;NORMALIZE_FILE U.27: .WORD ^M ;Save R2,R3,R4,R5,R6,R7,R8,R9,R10 ; 5111 CLRQ R8 ;NAME_CTR ; 5180 CLRL R7 ;TYPE_CTR ; 5181 CLRQ R4 ;FIRST_PERIOD ; 5183 MOVL 4(AP), R6 ;FILE_ADDRESS, POINTER ; 5184 MOVL R6, R1 ;POINTER, WRT_POINTER ; 5185 MOVL 12(AP), R3 ;NAME_LENGTH, R3 ; 5187 BNEQ 1$ ;1$ ; MOVL #1, R4 ;#1, FIRST_PERIOD ; 1$: CLRL R10 ;IGNORE_BAD ; 5189 TSTL R3 ;R3 ; 5191 BLEQ 4$ ;4$ ; ADDL3 #1, @8(AP), R0 ;#1, @FILE_LENGTH, I ; 5195 BRB 3$ ;3$ ; 2$: MOVZBL (R6)+, R2 ;(POINTER)+, R2 ; 5197 CMPB R2, #46 ;R2, #46 ; BNEQ 3$ ;3$ ; MOVL #1, R10 ;#1, IGNORE_BAD ; 5200 BRB 4$ ;4$ ; 5199 3$: SOBGEQ R0, 2$ ;I, 2$ ; 5197 4$: MOVL R1, R6 ;WRT_POINTER, POINTER ; 5206 5$: CMPL R9, @8(AP) ;FILE_CTR, @FILE_LENGTH ; 5208 BLSS 6$ ;6$ ; BRW 19$ ;19$ ; 6$: MOVZBL (R6)+, R0 ;(POINTER)+, CH ; 5210 INCL R9 ;FILE_CTR ; 5211 CMPL R0, #48 ;CH, #48 ; 5213 BGEQ 7$ ;7$ ; CMPL R0, #46 ;CH, #46 ; BNEQ 9$ ;9$ ; BLBS R4, 9$ ;FIRST_PERIOD, 9$ ; 7$: CMPL R0, #122 ;CH, #122 ; BGTR 9$ ;9$ ; CMPL R0, #57 ;CH, #57 ; BLEQ 8$ ;8$ ; CMPL R0, #65 ;CH, #65 ; 5214 BLSS 9$ ;9$ ; 8$: CMPL R0, #90 ;CH, #90 ; BLEQ 10$ ;10$ ; CMPL R0, #97 ;CH, #97 ; BGEQ 10$ ;10$ ; 9$: MOVL #1, R2 ;#1, BAD_CHAR ; 5217 MOVZBL #88, R0 ;#88, CH ; 5218 BRB 11$ ;11$ ; 5213 10$: CLRL R2 ;BAD_CHAR ; 5222 CMPL R0, #97 ;CH, #97 ; 5224 BLSS 11$ ;11$ ; SUBL2 #32, R0 ;#32, CH ; 11$: CMPL R0, #46 ;CH, #46 ; 5228 BNEQ 13$ ;13$ ; MOVL #1, R4 ;#1, FIRST_PERIOD ; 5231 MOVB R0, (R1)+ ;CH, (WRT_POINTER)+ ; 5232 INCL R5 ;WRT_SIZE ; 5233 12$: BRB 5$ ;5$ ; 5228 13$: BLBC R2, 14$ ;BAD_CHAR, 14$ ; 5237 BLBS R10, 5$ ;IGNORE_BAD, 5$ ; 14$: BLBS R4, 16$ ;FIRST_PERIOD, 16$ ; 5240 TSTL R3 ;R3 ; 5244 BLSS 15$ ;15$ ; CMPL R8, R3 ;NAME_CTR, R3 ; BGEQ 5$ ;5$ ; 15$: INCL R8 ;NAME_CTR ; 5247 BRB 18$ ;18$ ; 5248 16$: TSTL 16(AP) ;TYPE_LENGTH ; 5255 BLSS 17$ ;17$ ; CMPL R7, 16(AP) ;TYPE_CTR, TYPE_LENGTH ; BGEQ 12$ ;12$ ; 17$: INCL R7 ;TYPE_CTR ; 5258 18$: INCL R5 ;WRT_SIZE ; 5259 MOVB R0, (R1)+ ;CH, (WRT_POINTER)+ ; 5260 BRB 12$ ;12$ ; 5240 19$: MOVL R5, @8(AP) ;WRT_SIZE, @FILE_LENGTH ; 5265 CLRB (R1)+ ;(WRT_POINTER)+ ; 5266 RET ; ; 5267 ; Routine Size: 211 bytes, Routine Base: $CODE$ + 1C02 ; 5268 1 %SBTTL 'Buffer filling -- Main routine' ; 5269 1 ROUTINE BFR_FILL (FIRST_FLAG) = ; 5270 1 ; 5271 1 !++ ; 5272 1 ! FUNCTIONAL DESCRIPTION: ; 5273 1 ! ; 5274 1 ! This routine will fill the buffer with data from the file. It ; 5275 1 ! will do all the quoting that is required. ; 5276 1 ! ; 5277 1 ! CALLING SEQUENCE: ; 5278 1 ! ; 5279 1 ! EOF_FLAG = BFR_FILL(.FIRST_FLAG); ; 5280 1 ! ; 5281 1 ! INPUT PARAMETERS: ; 5282 1 ! ; 5283 1 ! FIRST_FLAG - Flag whether first call for this file ; 5284 1 ! ; 5285 1 ! IMPLICIT INPUTS: ; 5286 1 ! ; 5287 1 ! None. ; 5288 1 ! ; 5289 1 ! OUTPUT PARAMETERS: ; 5290 1 ! ; 5291 1 ! True - Buffer filled may be at end of file. ; 5292 1 ! False - At end of file. ; 5293 1 ! ; 5294 1 ! IMPLICIT OUTPUTS: ; 5295 1 ! ; 5296 1 ! Number of characters stored in the buffer. ; 5297 1 ! ; 5298 1 ! COMPLETION CODES: ; 5299 1 ! ; 5300 1 ! None. ; 5301 1 ! ; 5302 1 ! SIDE EFFECTS: ; 5303 1 ! ; 5304 1 ! None. ; 5305 1 ! ; 5306 1 !-- ; 5307 1 ; 5308 2 BEGIN ; 5309 2 ; 5310 2 LITERAL ; 5311 2 NO_CHAR = -1, ! No character next ; 5312 2 EOF_CHAR = -2; ! EOF seen ; 5313 2 ; 5314 2 LOCAL ; 5315 2 I, ! Temp loop index ; 5316 2 MAX_SIZE, ! Maximum size of data ; 5317 2 POINTER; ! Pointer into the message buffer ; 5318 2 ; 5319 2 OWN ; 5320 2 NEXT_CHR, ! Saved character ; 5321 2 STATUS, ! Status value ; 5322 2 REPEAT_COUNT, ! Number of times character repeated ; 5323 2 CHAR_8_BIT, ! 8 bit character from file ; 5324 2 CHRS : VECTOR [5], ! String needed to represent character ; 5325 2 CHR_IDX, ! Index into CHRS ; 5326 2 OLD_CHAR_8_BIT, ! Previous 8-bit character ; 5327 2 OLD_CHRS : VECTOR [5], ! String for previous character ; 5328 2 OLD_CHR_IDX; ! Index for previous character ; 5329 2 ; 5330 2 ROUTINE GET_QUOTED_CHAR = ; 5331 2 ! ; 5332 2 ! This routine gets a character from the file and returns both ; 5333 2 ! the character and the string needed to represent the character ; 5334 2 ! if it needs quoting. ; 5335 2 ! ; 5336 3 BEGIN ; 5337 3 ; 5338 3 IF .NEXT_CHR GEQ 0 ; 5339 3 THEN ; 5340 4 BEGIN ; 5341 4 CHAR_8_BIT = .NEXT_CHR; ; 5342 4 NEXT_CHR = NO_CHAR; ; 5343 4 STATUS = KER_NORMAL; ; 5344 4 END ; 5345 3 ELSE ; 5346 3 ; 5347 3 IF .NEXT_CHR EQL NO_CHAR ; 5348 3 THEN ; 5349 3 STATUS = (.GET_CHR_ROUTINE) (CHAR_8_BIT) ; 5350 3 ELSE ; 5351 3 STATUS = KER_EOF; ; 5352 3 ; 5353 3 IF .STATUS EQL KER_NORMAL ; 5354 3 THEN ; 5355 4 BEGIN ; 5356 4 ! ; 5357 4 ! Determine if we should just quote the character ; 5358 4 ! Either: ; 5359 4 ! Character is a delete (177 octal) ; 5360 4 ! or Character is a control character (less than 40 octal) ; 5361 4 ! or Character is a quote character ; 5362 4 ! or Character is the repeat character and doing repeat compression ; 5363 4 ! or Character is an eight bit quote character and doing eight bit ; 5364 4 ! quoting. ; 5365 4 ! ; 5366 4 ; 5367 5 IF ((.CHAR_8_BIT AND %O'177') LSS %C' ') OR ((.CHAR_8_BIT AND %O'177') EQL CHR_DEL) OR ( ; 5368 7 (.CHAR_8_BIT AND %O'177') EQL .RCV_QUOTE_CHR) OR (.FLAG_REPEAT AND ((.CHAR_8_BIT AND ; 5369 6 %O'177') EQL .REPT_CHR)) OR (.FLAG_8QUOTE AND ((.CHAR_8_BIT AND %O'177') EQL ; 5370 5 .SEND_8QUOTE_CHR)) ; 5371 4 THEN ; 5372 5 BEGIN ; 5373 5 ! ; 5374 5 ! If the character is a control character or delete we must do a CTL(Character) ; 5375 5 ! so it is something that we can be sure we can send. ; 5376 5 ! ; 5377 5 ; 5378 6 IF ((.CHAR_8_BIT AND %O'177') LSS %C' ') OR ((.CHAR_8_BIT AND %O'177') EQL CHR_DEL) ; 5379 5 THEN ; 5380 6 CHRS [0] = CTL (.CHAR_8_BIT) ; 5381 5 ELSE ; 5382 5 CHRS [0] = .CHAR_8_BIT; ; 5383 5 ; 5384 5 CHR_IDX = 1; ; 5385 5 CHRS [1] = .RCV_QUOTE_CHR; ![035] Use character we said we would send ; 5386 5 END ; 5387 4 ELSE ; 5388 5 BEGIN ; 5389 5 CHR_IDX = 0; ; 5390 5 CHRS [0] = .CHAR_8_BIT; ; 5391 4 END; ; 5392 4 ; 5393 4 END ; 5394 3 ELSE ; 5395 3 ; 5396 3 IF .STATUS NEQ KER_EOF THEN KRM_ERROR (.STATUS); ! Report error ; 5397 3 ; 5398 3 RETURN .STATUS; ; 5399 2 END; .PSECT $OWN$,NOEXE,2 ;NEXT_CHR U.81: .BLKB 4 ;STATUS U.82: .BLKB 4 ;REPEAT_COUNT U.83: .BLKB 4 ;CHAR_8_BIT U.84: .BLKB 4 ;CHRS U.85: .BLKB 20 ;CHR_IDX U.86: .BLKB 4 ;OLD_CHAR_8_BIT U.87: .BLKB 4 ;OLD_CHRS U.88: .BLKB 20 ;OLD_CHR_IDX U.89: .BLKB 4 .PSECT $CODE$,NOWRT,2 ;GET_QUOTED_CHAR U.90: .WORD ^M ;Save R2 ; 5330 MOVAB W^U.82, R2 ;U.82, R2 ; MOVL -4(R2), R0 ;NEXT_CHR, R0 ; 5338 BLSS 1$ ;1$ ; MOVL R0, 8(R2) ;R0, CHAR_8_BIT ; 5341 MNEGL #1, -4(R2) ;#1, NEXT_CHR ; 5342 MOVL #134316043, (R2) ;#134316043, STATUS ; 5343 BRB 3$ ;3$ ; 5338 1$: CMPL R0, #-1 ;R0, #-1 ; 5347 BNEQ 2$ ;2$ ; PUSHAB 8(R2) ;CHAR_8_BIT ; 5349 CALLS #1, @-12(R2) ;#1, @GET_CHR_ROUTINE ; MOVL R0, (R2) ;R0, STATUS ; BRB 3$ ;3$ ; 2$: MOVL #134316131, (R2) ;#134316131, STATUS ; 5351 3$: MOVL (R2), R0 ;STATUS, R0 ; 5353 CMPL R0, #134316043 ;R0, #134316043 ; BNEQ 11$ ;11$ ; MOVL 8(R2), R1 ;CHAR_8_BIT, R1 ; 5367 CLRL R0 ;R0 ; CMPZV #0, #7, R1, #32 ;#0, #7, R1, #32 ; BGEQ 4$ ;4$ ; INCL R0 ;R0 ; BRB 6$ ;6$ ; 4$: CMPZV #0, #7, R1, #127 ;#0, #7, R1, #127 ; BEQL 6$ ;6$ ; CMPZV #0, #7, R1, W^RCV_QUOTE_CHR ;#0, #7, R1, RCV_QUOTE_CHR ; 5368 BEQL 6$ ;6$ ; BLBC -268(R2), 5$ ;FLAG_REPEAT, 5$ ; CMPZV #0, #7, R1, -308(R2) ;#0, #7, R1, REPT_CHR ; 5369 BEQL 6$ ;6$ ; 5$: BLBC -272(R2), 10$ ;FLAG_8QUOTE, 10$ ; CMPZV #0, #7, R1, -284(R2) ;#0, #7, R1, SEND_8QUOTE_CHR ; 5370 BNEQ 10$ ;10$ ; 6$: BLBS R0, 7$ ;R0, 7$ ; 5378 CMPZV #0, #7, R1, #127 ;#0, #7, R1, #127 ; BNEQ 8$ ;8$ ; 7$: XORL3 #64, R1, 12(R2) ;#64, R1, CHRS ; 5380 BRB 9$ ;9$ ; 8$: MOVL R1, 12(R2) ;R1, CHRS ; 5382 9$: MOVL #1, 32(R2) ;#1, CHR_IDX ; 5384 MOVL W^RCV_QUOTE_CHR, 16(R2) ;RCV_QUOTE_CHR, CHRS+4 ; 5385 BRB 12$ ;12$ ; 5367 10$: CLRL 32(R2) ;CHR_IDX ; 5389 MOVL R1, 12(R2) ;R1, CHRS ; 5390 BRB 12$ ;12$ ; 5353 11$: CMPL R0, #134316131 ;R0, #134316131 ; 5396 BEQL 12$ ;12$ ; PUSHL R0 ;R0 ; CALLS #1, W^KRM_ERROR ;#1, KRM_ERROR ; 12$: MOVL (R2), R0 ;STATUS, R0 ; 5398 RET ; ; 5399 ; Routine Size: 205 bytes, Routine Base: $CODE$ + 1CD5 ; 5400 2 ROUTINE GET_8_QUOTED_CHAR = ; 5401 2 ! ; 5402 2 ! This routine will get the quoted representation of a character ; 5403 2 ! (by calling GET_QUOTED_CHAR), and return the 8th-bit quoted ; 5404 2 ! representation. ; 5405 2 ! ; 5406 3 BEGIN ; 5407 3 ; 5408 3 IF (STATUS = GET_QUOTED_CHAR ()) EQL KER_NORMAL ; 5409 3 THEN ; 5410 4 BEGIN ; 5411 4 ! ; 5412 4 ! Determine if we must quote the eighth bit (parity bit on) ; 5413 4 ! ; 5414 4 ; 5415 5 IF (((.CHRS [0] AND %O'177') NEQ .CHRS [0]) AND .FLAG_8QUOTE) ; 5416 4 THEN ; 5417 5 BEGIN ; 5418 5 CHRS [0] = .CHRS [0] AND %O'177'; ; 5419 5 CHR_IDX = .CHR_IDX + 1; ; 5420 5 CHRS [.CHR_IDX] = .SEND_8QUOTE_CHR; ; 5421 4 END; ; 5422 4 ; 5423 3 END; ; 5424 3 ; 5425 3 RETURN .STATUS; ; 5426 2 END; ;GET_8_QUOTED_CHAR U.91: .WORD ^M ;Save R2 ; 5400 MOVAB W^U.85, R2 ;U.85, R2 ; CALLS #0, W^U.90 ;#0, U.90 ; 5408 MOVL R0, -12(R2) ;R0, STATUS ; CMPL R0, #134316043 ;R0, #134316043 ; BNEQ 1$ ;1$ ; CMPZV #0, #7, (R2), (R2) ;#0, #7, CHRS, CHRS ; 5415 BEQL 1$ ;1$ ; BLBC -284(R2), 1$ ;FLAG_8QUOTE, 1$ ; EXTZV #0, #7, (R2), (R2) ;#0, #7, CHRS, CHRS ; 5418 INCL 20(R2) ;CHR_IDX ; 5419 MOVL 20(R2), R0 ;CHR_IDX, R0 ; 5420 MOVL -296(R2), (R2)[R0] ;SEND_8QUOTE_CHR, CHRS[R0] ; 1$: MOVL -12(R2), R0 ;STATUS, R0 ; 5425 RET ; ; 5426 ; Routine Size: 60 bytes, Routine Base: $CODE$ + 1DA2 ; 5427 2 ! ; 5428 2 ! Start of code for BFR_FILL ; 5429 2 ! ; 5430 2 ! Initialize pointer and count ; 5431 2 ! ; 5432 2 SIZE = 0; ; 5433 2 POINTER = CH$PTR (SND_MSG, PKT_MSG, CHR_SIZE); ; 5434 2 MAX_SIZE = .SEND_PKT_SIZE - PKT_OVR_HEAD - (.BLK_CHK_TYPE - CHK_1CHAR); ; 5435 2 ! ; 5436 2 ! If last call got an error or eof, return it now ; 5437 2 ! ; 5438 2 ; 5439 2 IF NOT .FIRST_FLAG AND (.STATUS NEQ KER_NORMAL) THEN RETURN .STATUS; ; 5440 2 ; 5441 2 ! ; 5442 2 ! If first time for a file prime the pump with the first character. ; 5443 2 ! ; 5444 2 ; 5445 2 IF .FIRST_FLAG ; 5446 2 THEN ; 5447 3 BEGIN ; 5448 3 FIRST_FLAG = FALSE; ; 5449 3 NEXT_CHR = -1; ! No backed up character ; 5450 3 ; 5451 3 IF .FLAG_8QUOTE THEN STATUS = GET_8_QUOTED_CHAR () ELSE STATUS = GET_QUOTED_CHAR (); ; 5452 3 ; 5453 3 IF .STATUS NEQ KER_NORMAL THEN RETURN .STATUS; ; 5454 3 ; 5455 3 OLD_CHAR_8_BIT = .CHAR_8_BIT; ; 5456 3 ; 5457 3 INCR OLD_CHR_IDX FROM 0 TO .CHR_IDX DO ; 5458 3 OLD_CHRS [.OLD_CHR_IDX] = .CHRS [.OLD_CHR_IDX]; ; 5459 3 ; 5460 3 OLD_CHR_IDX = .CHR_IDX; ; 5461 3 REPEAT_COUNT = 0; ! Character was not repeated yet ; 5462 3 ! Will always be incremented ; 5463 2 END; ; 5464 2 ; 5465 2 ! ; 5466 2 ! Otherwise, loop until we fill buffer ; 5467 2 ! ; 5468 2 ; 5469 2 WHILE .SIZE LSS .MAX_SIZE DO ! Normal exit is via an EXITLOOP ; 5470 3 BEGIN ; 5471 3 ! ; 5472 3 ! Check if we are doing run compression ; 5473 3 ! ; 5474 3 ; 5475 3 IF .FLAG_REPEAT ; 5476 3 THEN ; 5477 4 BEGIN ; 5478 4 ! ; 5479 4 ! Here with previous character in OLD_xxx. As long as we ; 5480 4 ! are getting the same character, just count the run. ; 5481 4 ! ; 5482 4 ; 5483 4 WHILE (.CHAR_8_BIT EQL .OLD_CHAR_8_BIT) AND (.REPEAT_COUNT LSS 94) DO ; 5484 5 BEGIN ; 5485 5 REPEAT_COUNT = .REPEAT_COUNT + 1; ; 5486 5 ; 5487 5 IF .FLAG_8QUOTE THEN STATUS = GET_8_QUOTED_CHAR () ELSE STATUS = GET_QUOTED_CHAR (); ; 5488 5 ; 5489 5 IF .STATUS NEQ KER_NORMAL ; 5490 5 THEN ; 5491 5 ; 5492 5 IF .STATUS NEQ KER_EOF ; 5493 5 THEN ; 5494 5 CHAR_8_BIT = NO_CHAR ; 5495 5 ELSE ; 5496 6 BEGIN ; 5497 6 CHAR_8_BIT = EOF_CHAR; ; 5498 6 CHR_IDX = -1; ; 5499 5 END; ; 5500 5 ; 5501 4 END; ; 5502 4 ; 5503 5 IF .OLD_CHR_IDX + 1 + 2 LSS ((.OLD_CHR_IDX + 1)*.REPEAT_COUNT) ; 5504 4 THEN ; 5505 5 BEGIN ; 5506 5 ; 5507 5 IF .SIZE + .OLD_CHR_IDX + 1 + 2 GTR .MAX_SIZE ; 5508 5 THEN ; 5509 6 BEGIN ; 5510 6 ; 5511 6 IF .CHAR_8_BIT EQL .OLD_CHAR_8_BIT ; 5512 6 THEN ; 5513 7 BEGIN ; 5514 7 NEXT_CHR = .CHAR_8_BIT; ; 5515 7 REPEAT_COUNT = .REPEAT_COUNT - 1; ; 5516 6 END; ; 5517 6 ; 5518 6 IF .CHAR_8_BIT EQL EOF_CHAR ; 5519 6 THEN ; 5520 7 BEGIN ; 5521 7 NEXT_CHR = EOF_CHAR; ! Remember EOF for next time ; 5522 7 STATUS = KER_NORMAL; ! And give good return now ; 5523 6 END; ; 5524 6 ; 5525 6 EXITLOOP; ; 5526 5 END; ; 5527 5 ; 5528 5 OLD_CHRS [.OLD_CHR_IDX + 1] = CHAR (.REPEAT_COUNT); ; 5529 5 OLD_CHRS [.OLD_CHR_IDX + 2] = .REPT_CHR; ; 5530 5 OLD_CHR_IDX = .OLD_CHR_IDX + 2; ; 5531 5 ! ; 5532 5 ! Count the number of file characters this represents ; 5533 5 ! ; 5534 5 SMSG_DATA_CHARS = .SMSG_DATA_CHARS + .REPEAT_COUNT - 1; ; 5535 5 FILE_CHARS = .FILE_CHARS + .REPEAT_COUNT - 1; ; 5536 5 REPEAT_COUNT = 1; ! Only one time for this string ; 5537 4 END; ; 5538 4 ; 5539 4 ! ; 5540 4 ! If we don't have enough room for this character, wait till next ; 5541 4 ! time. ; 5542 4 ! ; 5543 4 ; 5544 4 IF .SIZE + (.OLD_CHR_IDX + 1)*.REPEAT_COUNT GTR .MAX_SIZE ; 5545 4 THEN ; 5546 5 BEGIN ; 5547 5 ! If the next character is the same, the count will get incremented ; 5548 5 ! next time we enter, so back it off now. ; 5549 5 ; 5550 5 IF .CHAR_8_BIT EQL .OLD_CHAR_8_BIT ; 5551 5 THEN ; 5552 6 BEGIN ; 5553 6 NEXT_CHR = .CHAR_8_BIT; ; 5554 6 REPEAT_COUNT = .REPEAT_COUNT - 1; ; 5555 5 END; ; 5556 5 ; 5557 5 EXITLOOP; ; 5558 4 END; ; 5559 4 ; 5560 4 SMSG_DATA_CHARS = .SMSG_DATA_CHARS + .REPEAT_COUNT; ; 5561 4 FILE_CHARS = .FILE_CHARS + .REPEAT_COUNT; ; 5562 4 ; 5563 4 DECR REPEAT_COUNT FROM .REPEAT_COUNT TO 1 DO ; 5564 4 ; 5565 4 DECR I FROM .OLD_CHR_IDX TO 0 DO ; 5566 5 BEGIN ; 5567 5 CH$WCHAR_A (.OLD_CHRS [.I], POINTER); ; 5568 5 SIZE = .SIZE + 1; ; 5569 4 END; ; 5570 4 ; 5571 4 ! ; 5572 4 ! If we got an error (or EOF) then exit ; 5573 4 ! ; 5574 4 ; 5575 4 IF (.STATUS NEQ KER_NORMAL) THEN EXITLOOP; ; 5576 4 ; 5577 4 ! ; 5578 4 ! Otherwise, copy the character which broke the run ; 5579 4 ! ; 5580 4 OLD_CHAR_8_BIT = .CHAR_8_BIT; ; 5581 4 ; 5582 4 INCR OLD_CHR_IDX FROM 0 TO .CHR_IDX DO ; 5583 4 OLD_CHRS [.OLD_CHR_IDX] = .CHRS [.OLD_CHR_IDX]; ; 5584 4 ; 5585 4 OLD_CHR_IDX = .CHR_IDX; ; 5586 4 REPEAT_COUNT = 0; ; 5587 4 END ; 5588 3 ELSE ; 5589 3 ! ; 5590 3 ! Here if we are not doing run compression. We can do things much ; 5591 3 ! easier. ; 5592 3 ! ; 5593 4 BEGIN ; 5594 4 ; 5595 4 IF (.SIZE + .CHR_IDX + 1) GTR .MAX_SIZE THEN EXITLOOP; ; 5596 4 ; 5597 4 SMSG_DATA_CHARS = .SMSG_DATA_CHARS + 1; ; 5598 4 FILE_CHARS = .FILE_CHARS + 1; ; 5599 4 ; 5600 4 DECR CHR_IDX FROM .CHR_IDX TO 0 DO ; 5601 5 BEGIN ; 5602 5 CH$WCHAR_A (.CHRS [.CHR_IDX], POINTER); ; 5603 5 SIZE = .SIZE + 1; ; 5604 4 END; ; 5605 4 ; 5606 4 IF .FLAG_8QUOTE THEN STATUS = GET_8_QUOTED_CHAR () ELSE STATUS = GET_QUOTED_CHAR (); ; 5607 4 ; 5608 4 IF (.STATUS NEQ KER_NORMAL) THEN EXITLOOP; ; 5609 4 ; 5610 3 END; ; 5611 3 ; 5612 2 END; ; 5613 2 ; 5614 2 ! ; 5615 2 ! Determine if we really stored anything into the buffer. ; 5616 2 ! ; 5617 2 ; 5618 2 IF .SIZE NEQ 0 THEN RETURN KER_NORMAL ELSE RETURN .STATUS; ; 5619 2 ; 5620 1 END; ! End of BFR_FILL ;BFR_FILL U.29: .WORD ^M ;Save R2,R3,R4,R5,R6,R7,R8 ; 5269 MOVAB W^SMSG_DATA_CHARS, R8 ;SMSG_DATA_CHARS, R8 ; MOVAB B^U.91, R7 ;U.91, R7 ; MOVAB W^U.82, R6 ;U.82, R6 ; CLRL -260(R6) ;SIZE ; 5432 MOVAB -132(R6), R5 ;SND_MSG+4, POINTER ; 5433 SUBL3 -276(R6), -304(R6), R2 ;BLK_CHK_TYPE, SEND_PKT_SIZE, R2 ; 5434 ADDL2 #46, R2 ;#46, MAX_SIZE ; BLBS 4(AP), 1$ ;FIRST_FLAG, 1$ ; 5439 CMPL (R6), #134316043 ;STATUS, #134316043 ; BNEQ 4$ ;4$ ; BLBC 4(AP), 9$ ;FIRST_FLAG, 9$ ; 5445 1$: CLRL 4(AP) ;FIRST_FLAG ; 5448 MNEGL #1, -4(R6) ;#1, NEXT_CHR ; 5449 BLBC -272(R6), 2$ ;FLAG_8QUOTE, 2$ ; 5451 CALLS #0, (R7) ;#0, GET_8_QUOTED_CHAR ; BRB 3$ ;3$ ; 2$: CALLS #0, -205(R7) ;#0, GET_QUOTED_CHAR ; 3$: MOVL R0, (R6) ;R0, STATUS ; CMPL (R6), #134316043 ;STATUS, #134316043 ; 5453 4$: BEQL 5$ ;5$ ; BRW 34$ ;34$ ; 5$: MOVL 8(R6), 36(R6) ;CHAR_8_BIT, OLD_CHAR_8_BIT ; 5455 MNEGL #1, R0 ;#1, OLD_CHR_IDX ; 5457 BRB 7$ ;7$ ; 6$: MOVL 12(R6)[R0], 40(R6)[R0] ;CHRS[OLD_CHR_IDX], OLD_CHRS[OLD_CHR_IDX] ; 5458 7$: AOBLEQ 32(R6), R0, 6$ ;CHR_IDX, OLD_CHR_IDX, 6$ ; 8$: MOVL 32(R6), 60(R6) ;CHR_IDX, OLD_CHR_IDX ; 5460 CLRL 4(R6) ;REPEAT_COUNT ; 5461 9$: CMPL -260(R6), R2 ;SIZE, MAX_SIZE ; 5469 BLSS 10$ ;10$ ; BRW 33$ ;33$ ; 10$: BLBS -268(R6), 11$ ;FLAG_REPEAT, 11$ ; 5475 BRW 28$ ;28$ ; 11$: CMPL 8(R6), 36(R6) ;CHAR_8_BIT, OLD_CHAR_8_BIT ; 5483 BNEQ 15$ ;15$ ; CMPL 4(R6), #94 ;REPEAT_COUNT, #94 ; BGEQ 15$ ;15$ ; INCL 4(R6) ;REPEAT_COUNT ; 5485 BLBC -272(R6), 12$ ;FLAG_8QUOTE, 12$ ; 5487 CALLS #0, (R7) ;#0, GET_8_QUOTED_CHAR ; BRB 13$ ;13$ ; 12$: CALLS #0, -205(R7) ;#0, GET_QUOTED_CHAR ; 13$: MOVL R0, (R6) ;R0, STATUS ; CMPL (R6), #134316043 ;STATUS, #134316043 ; 5489 BEQL 11$ ;11$ ; CMPL (R6), #134316131 ;STATUS, #134316131 ; 5492 BEQL 14$ ;14$ ; MNEGL #1, 8(R6) ;#1, CHAR_8_BIT ; 5494 BRB 11$ ;11$ ; 14$: MNEGL #2, 8(R6) ;#2, CHAR_8_BIT ; 5497 MNEGL #1, 32(R6) ;#1, CHR_IDX ; 5498 BRB 11$ ;11$ ; 5492 15$: MOVL 60(R6), R1 ;OLD_CHR_IDX, R1 ; 5503 MOVAB 3(R1), R4 ;3(R1), R4 ; MOVAB 1(R1), R0 ;1(R1), R0 ; MULL3 4(R6), R0, R3 ;REPEAT_COUNT, R0, R3 ; CMPL R4, R3 ;R4, R3 ; BGEQ 18$ ;18$ ; ADDL3 -260(R6), R1, R3 ;SIZE, R1, R3 ; 5507 ADDL2 #3, R3 ;#3, R3 ; CMPL R3, R2 ;R3, MAX_SIZE ; BLEQ 17$ ;17$ ; MOVL 8(R6), R3 ;CHAR_8_BIT, R3 ; 5511 CMPL R3, 36(R6) ;R3, OLD_CHAR_8_BIT ; BNEQ 16$ ;16$ ; MOVL R3, -4(R6) ;R3, NEXT_CHR ; 5514 DECL 4(R6) ;REPEAT_COUNT ; 5515 16$: CMPL R3, #-2 ;R3, #-2 ; 5518 BNEQ 19$ ;19$ ; MNEGL #2, -4(R6) ;#2, NEXT_CHR ; 5521 MOVL #134316043, (R6) ;#134316043, STATUS ; 5522 BRB 19$ ;19$ ; 5509 17$: MOVL 4(R6), R3 ;REPEAT_COUNT, R3 ; 5528 MOVAB 32(R3), 40(R6)[R0] ;32(R3), OLD_CHRS[R0] ; MOVL -308(R6), 48(R6)[R1] ;REPT_CHR, OLD_CHRS+8[R1] ; 5529 ADDL2 #2, 60(R6) ;#2, OLD_CHR_IDX ; 5530 ADDL3 R3, (R8), R0 ;R3, SMSG_DATA_CHARS, R0 ; 5534 MOVAB -1(R0), (R8) ;-1(R0), SMSG_DATA_CHARS ; ADDL3 -36(R6), R3, R0 ;FILE_CHARS, R3, R0 ; 5535 MOVAB -1(R0), -36(R6) ;-1(R0), FILE_CHARS ; MOVL #1, 4(R6) ;#1, REPEAT_COUNT ; 5536 18$: ADDL3 #1, 60(R6), R0 ;#1, OLD_CHR_IDX, R0 ; 5544 MULL2 4(R6), R0 ;REPEAT_COUNT, R0 ; ADDL2 -260(R6), R0 ;SIZE, R0 ; CMPL R0, R2 ;R0, MAX_SIZE ; BLEQ 20$ ;20$ ; CMPL 8(R6), 36(R6) ;CHAR_8_BIT, OLD_CHAR_8_BIT ; 5550 BNEQ 25$ ;25$ ; MOVL 8(R6), -4(R6) ;CHAR_8_BIT, NEXT_CHR ; 5553 DECL 4(R6) ;REPEAT_COUNT ; 5554 19$: BRW 33$ ;33$ ; 5546 20$: MOVL 4(R6), R0 ;REPEAT_COUNT, R0 ; 5560 ADDL2 R0, (R8) ;R0, SMSG_DATA_CHARS ; ADDL2 R0, -36(R6) ;R0, FILE_CHARS ; 5561 INCL R0 ;REPEAT_COUNT ; 5563 BRB 24$ ;24$ ; 21$: ADDL3 #1, 60(R6), R1 ;#1, OLD_CHR_IDX, I ; 5565 BRB 23$ ;23$ ; 22$: CVTLB 40(R6)[R1], (R5)+ ;OLD_CHRS[I], (POINTER)+ ; 5567 INCL -260(R6) ;SIZE ; 5568 23$: SOBGEQ R1, 22$ ;I, 22$ ; 5565 24$: SOBGTR R0, 21$ ;REPEAT_COUNT, 21$ ; CMPL (R6), #134316043 ;STATUS, #134316043 ; 5575 25$: BNEQ 33$ ;33$ ; MOVL 8(R6), 36(R6) ;CHAR_8_BIT, OLD_CHAR_8_BIT ; 5580 MNEGL #1, R0 ;#1, OLD_CHR_IDX ; 5582 BRB 27$ ;27$ ; 26$: MOVL 12(R6)[R0], 40(R6)[R0] ;CHRS[OLD_CHR_IDX], OLD_CHRS[OLD_CHR_IDX] ; 5583 27$: AOBLEQ 32(R6), R0, 26$ ;CHR_IDX, OLD_CHR_IDX, 26$ ; BRW 8$ ;8$ ; 5585 28$: ADDL3 32(R6), -260(R6), R0 ;CHR_IDX, SIZE, R0 ; 5595 INCL R0 ;R0 ; CMPL R0, R2 ;R0, MAX_SIZE ; BGTR 33$ ;33$ ; INCL (R8) ;SMSG_DATA_CHARS ; 5597 INCL -36(R6) ;FILE_CHARS ; 5598 ADDL3 #1, 32(R6), R0 ;#1, CHR_IDX, CHR_IDX ; 5600 BRB 30$ ;30$ ; 29$: CVTLB 12(R6)[R0], (R5)+ ;CHRS[CHR_IDX], (POINTER)+ ; 5602 INCL -260(R6) ;SIZE ; 5603 30$: SOBGEQ R0, 29$ ;CHR_IDX, 29$ ; 5600 BLBC -272(R6), 31$ ;FLAG_8QUOTE, 31$ ; 5606 CALLS #0, (R7) ;#0, GET_8_QUOTED_CHAR ; BRB 32$ ;32$ ; 31$: CALLS #0, -205(R7) ;#0, GET_QUOTED_CHAR ; 32$: MOVL R0, (R6) ;R0, STATUS ; CMPL (R6), #134316043 ;STATUS, #134316043 ; 5608 BNEQ 33$ ;33$ ; BRW 9$ ;9$ ; 33$: TSTL -260(R6) ;SIZE ; 5618 BEQL 34$ ;34$ ; MOVL #134316043, R0 ;#134316043, R0 ; RET ; ; 34$: MOVL (R6), R0 ;STATUS, R0 ; RET ; ; 5620 ; Routine Size: 522 bytes, Routine Base: $CODE$ + 1DDE ; 5621 1 %SBTTL 'BFR_EMPTY' ; 5622 1 ROUTINE BFR_EMPTY = ; 5623 1 ; 5624 1 !++ ; 5625 1 ! FUNCTIONAL DESCRIPTION: ; 5626 1 ! ; 5627 1 ! This routine will empty the data from the REC_MSG message buffer ; 5628 1 ! to the file. It will process quoting characters. ; 5629 1 ! ; 5630 1 ! CALLING SEQUENCE: ; 5631 1 ! ; 5632 1 ! Flag = BFR_EMPTY(); ; 5633 1 ! ; 5634 1 ! INPUT PARAMETERS: ; 5635 1 ! ; 5636 1 ! None. ; 5637 1 ! ; 5638 1 ! IMPLICIT INPUTS: ; 5639 1 ! ; 5640 1 ! None. ; 5641 1 ! ; 5642 1 ! OUTPUT PARAMETERS: ; 5643 1 ! ; 5644 1 ! True - No problems writing the file. ; 5645 1 ! False - I/O error writing the file. ; 5646 1 ! ; 5647 1 ! IMPLICIT OUTPUTS: ; 5648 1 ! ; 5649 1 ! None. ; 5650 1 ! ; 5651 1 ! COMPLETION CODES: ; 5652 1 ! ; 5653 1 ! None. ; 5654 1 ! ; 5655 1 ! SIDE EFFECTS: ; 5656 1 ! ; 5657 1 ! None. ; 5658 1 ! ; 5659 1 !-- ; 5660 1 ; 5661 2 BEGIN ; 5662 2 ; 5663 2 LOCAL ; 5664 2 STATUS, ! Status returned by various routines ; 5665 2 REPEAT_COUNT, ! Count of times to repeat character ; 5666 2 TURN_BIT_8_ON, ! If eight bit quoting ; 5667 2 COUNTER, ! Count of the characters left ; 5668 2 CHARACTER, ! Character we are processing ; 5669 2 POINTER; ! Pointer to the data ; 5670 2 ; 5671 2 POINTER = CH$PTR (REC_MSG, PKT_MSG, CHR_SIZE); ; 5672 2 COUNTER = 0; ; 5673 2 ; 5674 2 WHILE (.COUNTER LSS .REC_LENGTH) DO ; 5675 3 BEGIN ; 5676 3 CHARACTER = CH$RCHAR_A (POINTER); ; 5677 3 COUNTER = .COUNTER + 1; ; 5678 3 ! ; 5679 3 ! If the character is the repeat character (and we are doing repeat ; 5680 3 ! compression), then get the count. ; 5681 3 ! ; 5682 3 ; 5683 4 IF ((.CHARACTER EQL .REPT_CHR) AND .FLAG_REPEAT) ; 5684 3 THEN ; 5685 4 BEGIN ; 5686 4 REPEAT_COUNT = UNCHAR (CH$RCHAR_A (POINTER) AND %O'177'); ; 5687 4 CHARACTER = CH$RCHAR_A (POINTER); ; 5688 4 COUNTER = .COUNTER + 2; ; 5689 4 END ; 5690 3 ELSE ; 5691 3 REPEAT_COUNT = 1; ; 5692 3 ; 5693 3 ! ; 5694 3 ! If the character is an eight bit quoting character and we are doing eight ; 5695 3 ! bit quoting then turn on the flag so we turn the eighth bit on when we ; 5696 3 ! get the real character. ; 5697 3 ! ; 5698 3 ; 5699 4 IF ((.CHARACTER EQL .SEND_8QUOTE_CHR) AND .FLAG_8QUOTE) ; 5700 3 THEN ; 5701 4 BEGIN ; 5702 4 TURN_BIT_8_ON = TRUE; ; 5703 4 COUNTER = .COUNTER + 1; ; 5704 4 CHARACTER = CH$RCHAR_A (POINTER); ; 5705 4 END ; 5706 3 ELSE ; 5707 3 TURN_BIT_8_ON = FALSE; ; 5708 3 ; 5709 3 ! ; 5710 3 ! Now determine if we are quoting the character. If so then we must eat ; 5711 3 ! the quoting character and get the real character. ; 5712 3 ! ; 5713 3 ; 5714 3 IF .CHARACTER EQL .SEND_QUOTE_CHR ; 5715 3 ![035] Is this character other Kermit sends as quote? ; 5716 3 THEN ; 5717 4 BEGIN ; 5718 4 CHARACTER = CH$RCHAR_A (POINTER); ; 5719 4 COUNTER = .COUNTER + 1; ; 5720 4 ! ; 5721 4 ! Determine if we must undo what someone else has done to the character ; 5722 4 ! ; 5723 4 ; P 5724 5 IF ((.CHARACTER AND %O'177') GEQ CTL (CHR_DEL)) AND ((.CHARACTER AND %O'177') LEQ CTL ( ; 5725 5 CHR_DEL) + %O'40') ; 5726 4 THEN ; 5727 4 CHARACTER = CTL (.CHARACTER); ; 5728 4 ; 5729 3 END; ; 5730 3 ; 5731 3 ! ; 5732 3 ! Turn on the eight bit if needed and then write the character out ; 5733 3 ! ; 5734 3 ; 5735 3 IF .TURN_BIT_8_ON THEN CHARACTER = .CHARACTER OR %O'200'; ; 5736 3 ; 5737 3 RMSG_DATA_CHARS = .RMSG_DATA_CHARS + .REPEAT_COUNT; ; 5738 3 FILE_CHARS = .FILE_CHARS + .REPEAT_COUNT; ; 5739 3 ; 5740 3 DECR REPEAT_COUNT FROM .REPEAT_COUNT TO 1 DO ; 5741 4 BEGIN ; 5742 4 STATUS = (.PUT_CHR_ROUTINE) (.CHARACTER); ; 5743 4 ; 5744 4 IF NOT .STATUS THEN RETURN .STATUS; ; 5745 4 ; 5746 3 END; ; 5747 3 ; 5748 2 END; ; 5749 2 ; 5750 2 RETURN KER_NORMAL; ; 5751 1 END; ! End of BFR_EMPTY ;BFR_EMPTY U.28: .WORD ^M ;Save R2,R3,R4,R5,R6,R7,R8 ; 5622 MOVAB W^U.57+4, R8 ;U.57+4, R8 ; MOVAB (R8), R5 ;REC_MSG+4, POINTER ; 5671 CLRL R6 ;COUNTER ; 5672 1$: CMPL R6, -12(R8) ;COUNTER, REC_LENGTH ; 5674 BLSS 2$ ;2$ ; BRW 11$ ;11$ ; 2$: MOVZBL (R5)+, R4 ;(POINTER)+, CHARACTER ; 5676 INCL R6 ;COUNTER ; 5677 CMPL R4, -80(R8) ;CHARACTER, REPT_CHR ; 5683 BNEQ 3$ ;3$ ; BLBC -40(R8), 3$ ;FLAG_REPEAT, 3$ ; MOVZBL (R5)+, R1 ;(POINTER)+, R1 ; 5686 EXTZV #0, #7, R1, R3 ;#0, #7, R1, REPEAT_COUNT ; SUBL2 #32, R3 ;#32, REPEAT_COUNT ; MOVZBL (R5)+, R4 ;(POINTER)+, CHARACTER ; 5687 ADDL2 #2, R6 ;#2, COUNTER ; 5688 BRB 4$ ;4$ ; 5683 3$: MOVL #1, R3 ;#1, REPEAT_COUNT ; 5691 4$: CMPL R4, -56(R8) ;CHARACTER, SEND_8QUOTE_CHR ; 5699 BNEQ 5$ ;5$ ; BLBC -44(R8), 5$ ;FLAG_8QUOTE, 5$ ; MOVL #1, R7 ;#1, TURN_BIT_8_ON ; 5702 INCL R6 ;COUNTER ; 5703 MOVZBL (R5)+, R4 ;(POINTER)+, CHARACTER ; 5704 BRB 6$ ;6$ ; 5699 5$: CLRL R7 ;TURN_BIT_8_ON ; 5707 6$: CMPL R4, -60(R8) ;CHARACTER, SEND_QUOTE_CHR ; 5714 BNEQ 7$ ;7$ ; MOVZBL (R5)+, R4 ;(POINTER)+, CHARACTER ; 5718 INCL R6 ;COUNTER ; 5719 CMPZV #0, #7, R4, #63 ;#0, #7, CHARACTER, #63 ; 5724 BLSS 7$ ;7$ ; CMPZV #0, #7, R4, #95 ;#0, #7, CHARACTER, #95 ; 5725 BGTR 7$ ;7$ ; XORB2 #64, R4 ;#64, CHARACTER ; 5727 7$: BLBC R7, 8$ ;TURN_BIT_8_ON, 8$ ; 5735 BISB2 #128, R4 ;#128, CHARACTER ; 8$: ADDL2 R3, W^RMSG_DATA_CHARS ;REPEAT_COUNT, RMSG_DATA_CHARS ; 5737 ADDL2 R3, 192(R8) ;REPEAT_COUNT, FILE_CHARS ; 5738 MOVAB 1(R3), R2 ;1(R3), REPEAT_COUNT ; 5742 BRB 10$ ;10$ ; 9$: PUSHL R4 ;CHARACTER ; CALLS #1, @220(R8) ;#1, @PUT_CHR_ROUTINE ; BLBC R0, 12$ ;STATUS, 12$ ; 5744 10$: SOBGTR R2, 9$ ;REPEAT_COUNT, 9$ ; 5740 BRW 1$ ;1$ ; 5674 11$: MOVL #134316043, R0 ;#134316043, R0 ; 5750 12$: RET ; ; 5751 ; Routine Size: 160 bytes, Routine Base: $CODE$ + 1FE8 ; 5752 1 %SBTTL 'Buffer filling and emptying subroutines' ; 5753 1 ROUTINE SET_STRING (POINTER, LENGTH, START) = ; 5754 1 ; 5755 1 !++ ; 5756 1 ! FUNCTIONAL DESCRIPTION: ; 5757 1 ! ; 5758 1 ! This routine is used to set up the buffer filling and emptying ; 5759 1 ! routines to use a string for input (or output) rather than ; 5760 1 ! the file I/O routines. ; 5761 1 ! ; 5762 1 ! CALLING SEQUENCE: ; 5763 1 ! ; 5764 1 ! SET_STRING (.POINTER, .LENGTH, .START) ; 5765 1 ! ; 5766 1 ! INPUT PARAMETERS: ; 5767 1 ! ; 5768 1 ! POINTER - Character pointer to string ; 5769 1 ! ; 5770 1 ! LENGTH - Number of characters in string ; 5771 1 ! ; 5772 1 ! START - True to start string, false to end it ; 5773 1 ! ; 5774 1 ! IMPLICIT INPUTS: ; 5775 1 ! ; 5776 1 ! None. ; 5777 1 ! ; 5778 1 ! OUPTUT PARAMETERS: ; 5779 1 ! ; 5780 1 ! Returns 0 if START = TRUE, actual number of characters used ; 5781 1 ! by last string if START = FALSE. ; 5782 1 ! ; 5783 1 ! IMPLICIT OUTPUTS: ; 5784 1 ! ; 5785 1 ! GET_CHR_ROUTINE and PUT_CHR_ROUTINE modifed so that string ; 5786 1 ! routines are called instead of file I/O. ; 5787 1 ! ; 5788 1 ! COMPLETION CODES: ; 5789 1 ! ; 5790 1 ! None. ; 5791 1 ! ; 5792 1 ! SIDE EFFECTS: ; 5793 1 ! ; 5794 1 ! None. ; 5795 1 ! ; 5796 1 !-- ; 5797 1 ; 5798 2 BEGIN ; 5799 2 ; 5800 2 OWN ; 5801 2 STR_POINTER, ! Pointer to string ; 5802 2 STR_LENGTH, ! Length of string ; 5803 2 STR_ORG_LENGTH, ! Original length of string ; 5804 2 OLD_GET_CHR, ! Old get-char routine ; 5805 2 OLD_PUT_CHR; ! Old put-char routine ; 5806 2 ; 5807 2 ! ; 5808 2 ! Routine to get a character from the string ; 5809 2 ! ; 5810 2 ROUTINE GET_STRING (CHAR_ADDRESS) = ; 5811 3 BEGIN ; 5812 3 ! ; 5813 3 ! If some characters are left, count down the length and get next character ; 5814 3 ! Otherwise return and end of file indication. ; 5815 3 ! ; 5816 3 ; 5817 3 IF .STR_LENGTH GTR 0 ; 5818 3 THEN ; 5819 4 BEGIN ; 5820 4 STR_LENGTH = .STR_LENGTH - 1; ; 5821 4 .CHAR_ADDRESS = CH$RCHAR_A (STR_POINTER); ; 5822 4 RETURN KER_NORMAL; ; 5823 4 END ; 5824 3 ELSE ; 5825 3 RETURN KER_EOF; ; 5826 3 ; 5827 2 END; ! End of GET_STRING .PSECT $OWN$,NOEXE,2 ;STR_POINTER U.92: .BLKB 4 ;STR_LENGTH U.93: .BLKB 4 ;STR_ORG_LENGTH U.94: .BLKB 4 ;OLD_GET_CHR U.95: .BLKB 4 ;OLD_PUT_CHR U.96: .BLKB 4 .PSECT $CODE$,NOWRT,2 ;GET_STRING U.97: .WORD ^M ;Save R2 ; 5810 MOVAB W^U.93, R2 ;U.93, R2 ; TSTL (R2) ;STR_LENGTH ; 5817 BLEQ 1$ ;1$ ; DECL (R2) ;STR_LENGTH ; 5820 MOVZBL @-4(R2), @4(AP) ;@STR_POINTER, @CHAR_ADDRESS ; 5821 INCL -4(R2) ;STR_POINTER ; MOVL #134316043, R0 ;#134316043, R0 ; 5825 RET ; ; 1$: MOVL #134316131, R0 ;#134316131, R0 ; RET ; ; 5827 ; Routine Size: 37 bytes, Routine Base: $CODE$ + 2088 ; 5828 2 ROUTINE PUT_STRING (CHAR_VALUE) = ; 5829 3 BEGIN ; 5830 3 ! ; 5831 3 ! If there is enough room to store another character, store the character ; 5832 3 ! and count it. Otherwise return a line too long indication. ; 5833 3 ! ; 5834 3 ; 5835 3 IF .STR_LENGTH GTR 0 ; 5836 3 THEN ; 5837 4 BEGIN ; 5838 4 STR_LENGTH = .STR_LENGTH - 1; ; 5839 4 CH$WCHAR_A (.CHAR_VALUE, STR_POINTER); ; 5840 4 RETURN KER_NORMAL; ; 5841 4 END ; 5842 3 ELSE ; 5843 3 RETURN KER_LINTOOLNG; ; 5844 3 ; 5845 2 END; ! End of PUT_STRING ;PUT_STRING U.98: .WORD ^M ;Save R2 ; 5828 MOVAB W^U.93, R2 ;U.93, R2 ; TSTL (R2) ;STR_LENGTH ; 5835 BLEQ 1$ ;1$ ; DECL (R2) ;STR_LENGTH ; 5838 MOVB 4(AP), @-4(R2) ;CHAR_VALUE, @STR_POINTER ; 5839 INCL -4(R2) ;STR_POINTER ; MOVL #134316043, R0 ;#134316043, R0 ; 5843 RET ; ; 1$: MOVL #134316098, R0 ;#134316098, R0 ; RET ; ; 5845 ; Routine Size: 37 bytes, Routine Base: $CODE$ + 20AD ; 5846 2 ! ; 5847 2 ! If we have a request to start a string (input or output), save the old ; 5848 2 ! routines and set up ours. Also save the string pointer and length for ; 5849 2 ! use by our get/put routines. ; 5850 2 ! Otherwise this is a request to stop using the string routines, so reset ; 5851 2 ! the old routines and return the actual number of characters read or ; 5852 2 ! written ; 5853 2 ! ; 5854 2 ; 5855 2 IF .START ; 5856 2 THEN ; 5857 3 BEGIN ; 5858 3 STR_POINTER = .POINTER; ; 5859 3 STR_ORG_LENGTH = .LENGTH; ; 5860 3 STR_LENGTH = .LENGTH; ; 5861 3 OLD_GET_CHR = .GET_CHR_ROUTINE; ; 5862 3 OLD_PUT_CHR = .PUT_CHR_ROUTINE; ; 5863 3 GET_CHR_ROUTINE = GET_STRING; ; 5864 3 PUT_CHR_ROUTINE = PUT_STRING; ; 5865 3 RETURN 0; ; 5866 3 END ; 5867 2 ELSE ; 5868 3 BEGIN ; 5869 3 GET_CHR_ROUTINE = .OLD_GET_CHR; ; 5870 3 PUT_CHR_ROUTINE = .OLD_PUT_CHR; ; 5871 3 RETURN .STR_ORG_LENGTH - .STR_LENGTH; ; 5872 2 END; ; 5873 2 ; 5874 1 END; ! End of SET_STRING ;SET_STRING U.30: .WORD ^M ;Save R2 ; 5753 MOVAB W^U.66, R2 ;U.66, R2 ; BLBC 12(AP), 1$ ;START, 1$ ; 5855 MOVL 8(AP), 84(R2) ;LENGTH, STR_ORG_LENGTH ; 5859 MOVQ 4(AP), 76(R2) ;POINTER, STR_POINTER ; 5858 MOVQ (R2), 88(R2) ;GET_CHR_ROUTINE, OLD_GET_CHR ; 5861 MOVAB B^U.97, (R2) ;U.97, GET_CHR_ROUTINE ; 5863 MOVAB B^U.98, 4(R2) ;U.98, PUT_CHR_ROUTINE ; 5864 CLRL R0 ;R0 ; 5868 RET ; ; 1$: MOVQ 88(R2), (R2) ;OLD_GET_CHR, GET_CHR_ROUTINE ; 5869 SUBL3 80(R2), 84(R2), R0 ;STR_LENGTH, STR_ORG_LENGTH, R0 ; 5871 RET ; ; 5874 ; Routine Size: 48 bytes, Routine Base: $CODE$ + 20D2 ; 5875 1 %SBTTL 'Add parity routine' ; 5876 1 ROUTINE DO_PARITY (MESSAGE, LENGTH) : NOVALUE = ; 5877 1 ; 5878 1 !++ ; 5879 1 ! FUNCTIONAL DESCRIPTION: ; 5880 1 ! ; 5881 1 ! This routine will add parity for a complete message that is to be ; 5882 1 ! sent to the remote Kermit. ; 5883 1 ! ; 5884 1 ! CALLING SEQUENCE: ; 5885 1 ! ; 5886 1 ! DO_PARITY (Message_address, Message_length); ; 5887 1 ! ; 5888 1 ! INPUT PARAMETERS: ; 5889 1 ! ; 5890 1 ! Message_address - Address of the message to put parity on. ; 5891 1 ! Message_length - Lengtho of the message. ; 5892 1 ! ; 5893 1 ! IMPLICIT INPUTS: ; 5894 1 ! ; 5895 1 ! None. ; 5896 1 ! ; 5897 1 ! OUTPUT PARAMETERS: ; 5898 1 ! ; 5899 1 ! None. ; 5900 1 ! ; 5901 1 ! IMPLICIT OUTPUTS: ; 5902 1 ! ; 5903 1 ! None. ; 5904 1 ! ; 5905 1 ! COMPLETION CODES: ; 5906 1 ! ; 5907 1 ! None. ; 5908 1 ! ; 5909 1 ! SIDE EFFECTS: ; 5910 1 ! ; 5911 1 ! None. ; 5912 1 ! ; 5913 1 !-- ; 5914 1 ; 5915 2 BEGIN ; 5916 2 ; 5917 2 MAP ; 5918 2 MESSAGE : REF VECTOR [CH$ALLOCATION (MAX_MSG, CHR_SIZE)]; ; 5919 2 ; 5920 2 LOCAL ; 5921 2 POINTER; ! Point into the message ; 5922 2 ; 5923 2 IF NOT .DEV_PARITY_FLAG ; 5924 2 THEN ; 5925 3 BEGIN ; 5926 3 POINTER = CH$PTR (.MESSAGE,, CHR_SIZE); ; 5927 3 ; 5928 3 INCR I FROM 1 TO .LENGTH DO ; 5929 3 CH$WCHAR_A (GEN_PARITY (CH$RCHAR (.POINTER)), POINTER); ; 5930 3 ; 5931 2 END; ; 5932 2 ; 5933 1 END; ! End of DO_PARITY ;DO_PARITY U.22: .WORD ^M ;Save R2,R3 ; 5876 BLBS W^DEV_PARITY_FLAG, 3$ ;DEV_PARITY_FLAG, 3$ ; 5923 MOVL 4(AP), R2 ;MESSAGE, POINTER ; 5926 CLRL R3 ;I ; 5929 BRB 2$ ;2$ ; 1$: MOVZBL (R2), -(SP) ;(POINTER), -(SP) ; CALLS #1, W^U.23 ;#1, U.23 ; MOVB R0, (R2)+ ;R0, (POINTER)+ ; 2$: AOBLEQ 8(AP), R3, 1$ ;LENGTH, I, 1$ ; 3$: RET ; ; 5933 ; Routine Size: 32 bytes, Routine Base: $CODE$ + 2102 ; 5934 1 %SBTTL 'Parity routine' ; 5935 1 ; 5936 1 GLOBAL ROUTINE GEN_PARITY (CHARACTER) = ; 5937 1 ; 5938 1 !++ ; 5939 1 ! FUNCTIONAL DESCRIPTION: ; 5940 1 ! ; 5941 1 ! This routine will add parity to the character that is supplied. ; 5942 1 ! ; 5943 1 ! CALLING SEQUENCE: ; 5944 1 ! ; 5945 1 ! CHARACTER = GEN_PARITY(CHARACTER) ; 5946 1 ! ; 5947 1 ! INPUT PARAMETERS: ; 5948 1 ! ; 5949 1 ! CHARACTER - Produce the parity for this character depending on the ; 5950 1 ! setting of the SET PARITY switch. ; 5951 1 ! ; 5952 1 ! IMPLICIT INPUTS: ; 5953 1 ! ; 5954 1 ! None. ; 5955 1 ! ; 5956 1 ! OUTPUT PARAMETERS: ; 5957 1 ! ; 5958 1 ! None. ; 5959 1 ! ; 5960 1 ! IMPLICIT OUTPUTS: ; 5961 1 ! ; 5962 1 ! None. ; 5963 1 ! ; 5964 1 ! COMPLETION CODES: ; 5965 1 ! ; 5966 1 ! None. ; 5967 1 ! ; 5968 1 ! SIDE EFFECTS: ; 5969 1 ! ; 5970 1 ! None. ; 5971 1 ! ; 5972 1 !-- ; 5973 1 ; 5974 2 BEGIN ; 5975 2 ; 5976 2 LOCAL ; 5977 2 TEMP_CHAR; ; 5978 2 ; 5979 2 IF .IBM_FLAG THEN RETURN .CHARACTER OR %O'200'; ; 5980 2 ; 5981 2 CASE .PARITY_TYPE FROM PR_MIN TO PR_MAX OF ; 5982 2 SET ; 5983 2 ; 5984 2 [PR_NONE] : ; 5985 2 RETURN .CHARACTER; ; 5986 2 ; 5987 2 [PR_SPACE] : ; 5988 2 RETURN .CHARACTER AND %O'177'; ; 5989 2 ; 5990 2 [PR_MARK] : ; 5991 2 RETURN .CHARACTER OR %O'200'; ; 5992 2 ; 5993 2 [PR_ODD] : ; 5994 2 TEMP_CHAR = .CHARACTER AND %O'177' OR %O'200'; ; 5995 2 ; 5996 2 [PR_EVEN] : ; 5997 2 TEMP_CHAR = .CHARACTER AND %O'177'; ; 5998 2 TES; ; 5999 2 ; 6000 2 TEMP_CHAR = .TEMP_CHAR XOR (.TEMP_CHAR^-4); ; 6001 2 TEMP_CHAR = .TEMP_CHAR XOR (.TEMP_CHAR^-2); ; 6002 2 ; 6003 2 IF .TEMP_CHAR<0, 2> EQL %B'01' OR .TEMP_CHAR<0, 2> EQL %B'10' ; 6004 2 THEN ; 6005 2 RETURN .CHARACTER AND %O'177' OR %O'200' ; 6006 2 ELSE ; 6007 2 RETURN .CHARACTER AND %O'177'; ; 6008 2 ; 6009 1 END; ! End of GEN_PARITY U.23: .ENTRY GEN_PARITY, ^M ;GEN_PARITY, Save R2 ; 5936 BLBC W^IBM_FLAG, 1$ ;IBM_FLAG, 1$ ; 5979 BISL3 #128, 4(AP), R0 ;#128, CHARACTER, R0 ; RET ; ; 1$: MOVL 4(AP), R2 ;CHARACTER, R2 ; 5985 CASEL W^PARITY_TYPE, #0, #4 ;PARITY_TYPE, #0, #4 ; 5981 2$: .WORD 3$-2$,- ;3$-2$,- ; 4$-2$,- ;4$-2$,- ; 6$-2$,- ;6$-2$,- ; 5$-2$,- ;5$-2$,- ; 9$-2$ ;9$-2$ ; 3$: MOVL R2, R0 ;R2, R0 ; 5985 RET ; ; 4$: BISL3 #128, R2, R0 ;#128, R2, R0 ; 5991 RET ; ; 5$: EXTZV #0, #7, R2, R0 ;#0, #7, R2, TEMP_CHAR ; 5994 INSV #1, #7, #1, R0 ;#1, #7, #1, TEMP_CHAR ; BRB 7$ ;7$ ; 6$: EXTZV #0, #7, R2, R0 ;#0, #7, R2, TEMP_CHAR ; 5997 7$: ASHL #-4, R0, R1 ;#-4, TEMP_CHAR, R1 ; 6000 XORL2 R1, R0 ;R1, TEMP_CHAR ; ASHL #-2, R0, R1 ;#-2, TEMP_CHAR, R1 ; 6001 XORL2 R1, R0 ;R1, TEMP_CHAR ; CMPZV #0, #2, R0, #1 ;#0, #2, TEMP_CHAR, #1 ; 6003 BEQL 8$ ;8$ ; CMPZV #0, #2, R0, #2 ;#0, #2, TEMP_CHAR, #2 ; BNEQ 9$ ;9$ ; 8$: EXTZV #0, #7, R2, R0 ;#0, #7, R2, R0 ; 6005 INSV #1, #7, #1, R0 ;#1, #7, #1, R0 ; RET ; ; 6007 9$: EXTZV #0, #7, R2, R0 ;#0, #7, R2, R0 ; RET ; ; 6009 ; Routine Size: 114 bytes, Routine Base: $CODE$ + 2122 ; 6010 1 ; 6011 1 %SBTTL 'Per transfer -- Initialization' ; 6012 1 ROUTINE INIT_XFR : NOVALUE = ; 6013 1 ; 6014 1 !++ ; 6015 1 ! FUNCTIONAL DESCRIPTION: ; 6016 1 ! ; 6017 1 ! This routine will initialize the various locations that the ; 6018 1 ! send and receive statistics are kept. ; 6019 1 ! ; 6020 1 ! CALLING SEQUENCE: ; 6021 1 ! ; 6022 1 ! INIT_XFR(); ; 6023 1 ! ; 6024 1 ! INPUT PARAMETERS: ; 6025 1 ! ; 6026 1 ! None. ; 6027 1 ! ; 6028 1 ! IMPLICIT INPUTS: ; 6029 1 ! ; 6030 1 ! None. ; 6031 1 ! ; 6032 1 ! OUTPUT PARAMETERS: ; 6033 1 ! ; 6034 1 ! None. ; 6035 1 ! ; 6036 1 ! IMPLICIT OUTPUTS: ; 6037 1 ! ; 6038 1 ! None. ; 6039 1 ! ; 6040 1 ! COMPLETION CODES: ; 6041 1 ! ; 6042 1 ! None. ; 6043 1 ! ; 6044 1 ! SIDE EFFECTS: ; 6045 1 ! ; 6046 1 ! None. ; 6047 1 ! ; 6048 1 !-- ; 6049 1 ; 6050 2 BEGIN ; 6051 2 ! ; 6052 2 ! Determine if we should do 8 bit quoting ; 6053 2 ! ; 6054 2 ; 6055 2 IF .PARITY_TYPE NEQ PR_NONE ; 6056 2 THEN ; 6057 3 BEGIN ; 6058 3 RECV_8QUOTE_CHR = .RCV_8QUOTE_CHR; ; 6059 3 END ; 6060 2 ELSE ; 6061 3 BEGIN ; 6062 3 RECV_8QUOTE_CHR = %C'Y'; ; 6063 2 END; ; 6064 2 ; 6065 2 NUM_RETRIES = 0; ; 6066 2 SEND_8QUOTE_CHR = .RECV_8QUOTE_CHR; ; 6067 2 ! ; 6068 2 ! Send parameters that may not get set before we need them for the first ; 6069 2 ! time. ; 6070 2 ! ; 6071 2 SEND_PKT_SIZE = ABS (.SND_PKT_SIZE); ; 6072 2 SEND_NPAD = ABS (.SND_NPAD); ; 6073 2 SEND_PADCHAR = ABS (.SND_PADCHAR); ; 6074 2 SEND_TIMEOUT = ABS (.SND_TIMEOUT); ; 6075 2 SEND_EOL = ABS (.SND_EOL); ; 6076 2 SEND_QUOTE_CHR = ABS (.SND_QUOTE_CHR); ; 6077 2 ! ; 6078 2 ! For initialization messages, we must use single character checksum ; 6079 2 ! When the send-init/ack sequence has been done, we will switch to the ; 6080 2 ! desired form ; 6081 2 ! ; 6082 2 BLK_CHK_TYPE = CHK_1CHAR; ; 6083 2 INI_CHK_TYPE = .CHKTYPE; ! Send desired type ; 6084 2 ! ; 6085 2 ! Set desired repeat character for use in we are doing send-init ; 6086 2 ! Will be overwritten by other ends desired character if it sends ; 6087 2 ! the send-init. ; 6088 2 ! ; 6089 2 REPT_CHR = .SET_REPT_CHR; ; 6090 2 ! ; 6091 2 ! Assume packet assembly/disassembly uses characters from a file ; 6092 2 ! ; 6093 2 GET_CHR_ROUTINE = GET_FILE; ! Initialize the get-a-char routine ; 6094 2 PUT_CHR_ROUTINE = PUT_FILE; ! And the put-a-char ; 6095 2 TEXT_HEAD_FLAG = FALSE; ! And assume we will get an File header ; 6096 2 NO_FILE_NEEDED = FALSE; ! Assume will do file ops ; 6097 2 INIT_PKT_SENT = FALSE; ! And no server-init sent ; 6098 2 ! ; 6099 2 ! Always start with packet number 0 ; 6100 2 ! ; 6101 2 MSG_NUMBER = 0; ! Initial message number ; 6102 2 ! ; 6103 2 ! Stats information ; 6104 2 ! ; 6105 2 SMSG_TOTAL_CHARS = 0; ; 6106 2 RMSG_TOTAL_CHARS = 0; ; 6107 2 SMSG_DATA_CHARS = 0; ; 6108 2 RMSG_DATA_CHARS = 0; ; 6109 2 SMSG_COUNT = 0; ; 6110 2 RMSG_COUNT = 0; ; 6111 2 RMSG_NAKS = 0; ; 6112 2 SMSG_NAKS = 0; ; 6113 2 XFR_TIME = SY_TIME (); ; 6114 1 END; ! End of INIT_XFR ;INIT_XFR U.32: .WORD ^M ;Save R2 ; 6012 MOVAB W^U.37, R2 ;U.37, R2 ; TSTL W^PARITY_TYPE ;PARITY_TYPE ; 6055 BEQL 1$ ;1$ ; MOVL W^RCV_8QUOTE_CHR, (R2) ;RCV_8QUOTE_CHR, RECV_8QUOTE_CHR ; 6058 BRB 2$ ;2$ ; 6055 1$: MOVZBL #89, (R2) ;#89, RECV_8QUOTE_CHR ; 6062 2$: CLRL 60(R2) ;NUM_RETRIES ; 6065 MOVL (R2), 28(R2) ;RECV_8QUOTE_CHR, SEND_8QUOTE_CHR ; 6066 MOVL W^SND_PKT_SIZE, R0 ;SND_PKT_SIZE, R0 ; 6071 BGEQ 3$ ;3$ ; MNEGL R0, R0 ;R0, R0 ; 3$: MOVL R0, 8(R2) ;R0, SEND_PKT_SIZE ; MOVL W^SND_NPAD, R0 ;SND_NPAD, R0 ; 6072 BGEQ 4$ ;4$ ; MNEGL R0, R0 ;R0, R0 ; 4$: MOVL R0, 12(R2) ;R0, SEND_NPAD ; MOVL W^SND_PADCHAR, R0 ;SND_PADCHAR, R0 ; 6073 BGEQ 5$ ;5$ ; MNEGL R0, R0 ;R0, R0 ; 5$: MOVL R0, 16(R2) ;R0, SEND_PADCHAR ; MOVL W^SND_TIMEOUT, R0 ;SND_TIMEOUT, R0 ; 6074 BGEQ 6$ ;6$ ; MNEGL R0, R0 ;R0, R0 ; 6$: MOVL R0, W^SEND_TIMEOUT ;R0, SEND_TIMEOUT ; MOVL W^SND_EOL, R0 ;SND_EOL, R0 ; 6075 BGEQ 7$ ;7$ ; MNEGL R0, R0 ;R0, R0 ; 7$: MOVL R0, 20(R2) ;R0, SEND_EOL ; MOVL W^SND_QUOTE_CHR, R0 ;SND_QUOTE_CHR, R0 ; 6076 BGEQ 8$ ;8$ ; MNEGL R0, R0 ;R0, R0 ; 8$: MOVL R0, 24(R2) ;R0, SEND_QUOTE_CHR ; MOVL #49, 36(R2) ;#49, BLK_CHK_TYPE ; 6082 MOVL W^CHKTYPE, 32(R2) ;CHKTYPE, INI_CHK_TYPE ; 6083 MOVL W^SET_REPT_CHR, 4(R2) ;SET_REPT_CHR, REPT_CHR ; 6089 MOVAB W^GET_FILE, 300(R2) ;GET_FILE, GET_CHR_ROUTINE ; 6093 MOVAB W^PUT_FILE, 304(R2) ;PUT_FILE, PUT_CHR_ROUTINE ; 6094 CLRQ 280(R2) ;TEXT_HEAD_FLAG ; 6095 CLRL 288(R2) ;INIT_PKT_SENT ; 6097 CLRL 64(R2) ;MSG_NUMBER ; 6101 CLRL W^SMSG_TOTAL_CHARS ;SMSG_TOTAL_CHARS ; 6105 CLRL W^RMSG_TOTAL_CHARS ;RMSG_TOTAL_CHARS ; 6106 CLRL W^SMSG_DATA_CHARS ;SMSG_DATA_CHARS ; 6107 CLRL W^RMSG_DATA_CHARS ;RMSG_DATA_CHARS ; 6108 CLRL W^SMSG_COUNT ;SMSG_COUNT ; 6109 CLRL W^RMSG_COUNT ;RMSG_COUNT ; 6110 CLRL W^RMSG_NAKS ;RMSG_NAKS ; 6111 CLRL W^SMSG_NAKS ;SMSG_NAKS ; 6112 CALLS #0, W^SY_TIME ;#0, SY_TIME ; 6113 MOVL R0, W^XFR_TIME ;R0, XFR_TIME ; RET ; ; 6114 ; Routine Size: 200 bytes, Routine Base: $CODE$ + 2194 ; 6115 1 %SBTTL 'Statistics -- Finish message transfer' ; 6116 1 ROUTINE END_STATS : NOVALUE = ; 6117 1 ; 6118 1 !++ ; 6119 1 ! FUNCTIONAL DESCRIPTION: ; 6120 1 ! ; 6121 1 ! This routine will end the collection of the statistices. It will ; 6122 1 ! update the various overall statistic parameters. ; 6123 1 ! ; 6124 1 ! CALLING SEQUENCE: ; 6125 1 ! ; 6126 1 ! END_STATS (); ; 6127 1 ! ; 6128 1 ! INPUT PARAMETERS: ; 6129 1 ! ; 6130 1 ! None. ; 6131 1 ! ; 6132 1 ! IMPLICIT INPUTS: ; 6133 1 ! ; 6134 1 ! None. ; 6135 1 ! ; 6136 1 ! OUTPUT PARAMETERS: ; 6137 1 ! ; 6138 1 ! None. ; 6139 1 ! ; 6140 1 ! IMPLICIT OUTPUTS: ; 6141 1 ! ; 6142 1 ! None. ; 6143 1 ! ; 6144 1 ! COMPLETION CODES: ; 6145 1 ! ; 6146 1 ! None. ; 6147 1 ! ; 6148 1 ! SIDE EFFECTS: ; 6149 1 ! ; 6150 1 ! None. ; 6151 1 ! ; 6152 1 !-- ; 6153 1 ; 6154 2 BEGIN ; 6155 2 SND_COUNT = .SND_COUNT + .SMSG_COUNT; ; 6156 2 RCV_COUNT = .RCV_COUNT + .RMSG_COUNT; ; 6157 2 SND_TOTAL_CHARS = .SND_TOTAL_CHARS + .SMSG_TOTAL_CHARS; ; 6158 2 SND_DATA_CHARS = .SND_DATA_CHARS + .SMSG_DATA_CHARS; ; 6159 2 RCV_TOTAL_CHARS = .RCV_TOTAL_CHARS + .RMSG_TOTAL_CHARS; ; 6160 2 RCV_DATA_CHARS = .RCV_DATA_CHARS + .RMSG_DATA_CHARS; ; 6161 2 SND_NAKS = .SND_NAKS + .SMSG_NAKS; ; 6162 2 RCV_NAKS = .RCV_NAKS + .RMSG_NAKS; ; 6163 2 XFR_TIME = SY_TIME () - .XFR_TIME; ; 6164 2 TOTAL_TIME = .TOTAL_TIME + .XFR_TIME; ; 6165 1 END; ! End of END_STATS ;END_STATS U.18: .WORD ^M ;Save R2 ; 6116 MOVAB W^XFR_TIME, R2 ;XFR_TIME, R2 ; ADDL2 W^SMSG_COUNT, W^SND_COUNT ;SMSG_COUNT, SND_COUNT ; 6155 ADDL2 W^RMSG_COUNT, W^RCV_COUNT ;RMSG_COUNT, RCV_COUNT ; 6156 ADDL2 W^SMSG_TOTAL_CHARS, - ;SMSG_TOTAL_CHARS, SND_TOTAL_CHARS ; 6157 W^SND_TOTAL_CHARS ; ; ADDL2 W^SMSG_DATA_CHARS, W^SND_DATA_CHARS ;SMSG_DATA_CHARS, SND_DATA_CHARS ; 6158 ADDL2 W^RMSG_TOTAL_CHARS, - ;RMSG_TOTAL_CHARS, RCV_TOTAL_CHARS ; 6159 W^RCV_TOTAL_CHARS ; ; ADDL2 W^RMSG_DATA_CHARS, W^RCV_DATA_CHARS ;RMSG_DATA_CHARS, RCV_DATA_CHARS ; 6160 ADDL2 W^SMSG_NAKS, W^SND_NAKS ;SMSG_NAKS, SND_NAKS ; 6161 ADDL2 W^RMSG_NAKS, W^RCV_NAKS ;RMSG_NAKS, RCV_NAKS ; 6162 CALLS #0, W^SY_TIME ;#0, SY_TIME ; 6163 SUBL3 (R2), R0, (R2) ;XFR_TIME, R0, XFR_TIME ; ADDL2 (R2), W^TOTAL_TIME ;XFR_TIME, TOTAL_TIME ; 6164 RET ; ; 6165 ; Routine Size: 78 bytes, Routine Base: $CODE$ + 225C ; 6166 1 %SBTTL 'Status type out -- STS_OUTPUT' ; 6167 1 ROUTINE STS_OUTPUT : NOVALUE = ; 6168 1 ; 6169 1 !++ ; 6170 1 ! FUNCTIONAL DESCRIPTION: ; 6171 1 ! ; 6172 1 ! This routine will output the current status of a transfer. ; 6173 1 ! This is used when the user types a ^A during a transfer. ; 6174 1 ! ; 6175 1 ! CALLING SEQUENCE: ; 6176 1 ! ; 6177 1 ! STS_OUTPUT () ; 6178 1 ! ; 6179 1 ! INPUT PARAMETERS: ; 6180 1 ! ; 6181 1 ! None. ; 6182 1 ! ; 6183 1 ! IMPLICIT INPUTS: ; 6184 1 ! ; 6185 1 ! Statistics blocks, file names, etc. ; 6186 1 ! ; 6187 1 ! OUPTUT PARAMETERS: ; 6188 1 ! ; 6189 1 ! None. ; 6190 1 ! ; 6191 1 ! IMPLICIT OUTPUTS: ; 6192 1 ! ; 6193 1 ! None. ; 6194 1 ! ; 6195 1 ! COMPLETION CODES: ; 6196 1 ! ; 6197 1 ! None. ; 6198 1 ! ; 6199 1 ! SIDE EFFECTS: ; 6200 1 ! ; 6201 1 ! None. ; 6202 1 ! ; 6203 1 !-- ; 6204 1 ; 6205 2 BEGIN ; 6206 2 TT_CHAR (%C'['); ! Start the message ; 6207 2 ; 6208 2 CASE .STATE FROM STATE_MIN TO STATE_MAX OF ; 6209 2 SET ; 6210 2 ; 6211 2 [STATE_ID, STATE_II] : ; 6212 2 TT_TEXT (UPLIT (%ASCIZ'Idle in server mode')); ; 6213 2 ; 6214 2 [STATE_S, STATE_SF] : ; 6215 3 BEGIN ; 6216 3 TT_TEXT (UPLIT (%ASCIZ'Initializing for sending file ')); ; 6217 3 TT_TEXT (FILE_NAME); ; 6218 2 END; ; 6219 2 ; 6220 2 [STATE_SI] : ; 6221 2 TT_TEXT (UPLIT (%ASCIZ'Initializing for remote command')); ; 6222 2 ; 6223 2 [STATE_SG] : ; 6224 2 TT_TEXT (UPLIT (%ASCIZ'Waiting for response to remote command')); ; 6225 2 ; 6226 2 [STATE_SD] : ; 6227 3 BEGIN ; 6228 3 TT_NUMBER (.FILE_CHARS); ; 6229 3 TT_TEXT (UPLIT (%ASCIZ' characters sent for file ')); ; 6230 3 TT_TEXT (FILE_NAME); ; 6231 2 END; ; 6232 2 ; 6233 2 [STATE_SZ] : ; 6234 3 BEGIN ; 6235 3 TT_TEXT (UPLIT (%ASCIZ'At end of file ')); ; 6236 3 TT_TEXT (FILE_NAME); ; 6237 2 END; ; 6238 2 ; 6239 2 [STATE_SB] : ; 6240 2 TT_TEXT (UPLIT (%ASCIZ'Finishing transfer session')); ; 6241 2 ; 6242 2 [STATE_R] : ; 6243 2 TT_TEXT (UPLIT (%ASCIZ'Waiting for initialization')); ; 6244 2 ; 6245 2 [STATE_RF] : ; 6246 2 TT_TEXT (UPLIT (%ASCIZ'Waiting for next file or end of session')); ; 6247 2 ; 6248 2 [STATE_RD] : ; 6249 3 BEGIN ; 6250 3 TT_NUMBER (.FILE_CHARS); ; 6251 3 TT_TEXT (UPLIT (%ASCIZ' characters received for file ')); ; 6252 3 TT_TEXT (FILE_NAME); ; 6253 2 END; ; 6254 2 ; 6255 2 [STATE_C] : ; 6256 2 TT_TEXT (UPLIT (%ASCIZ' Session complete')); ; 6257 2 ; 6258 2 [STATE_A] : ; 6259 2 TT_TEXT (UPLIT (%ASCIZ' Session aborted')); ; 6260 2 ; 6261 2 [INRANGE, OUTRANGE] : ; 6262 2 TT_TEXT (UPLIT (%ASCIZ' Unknown state')); ; 6263 2 TES; ; 6264 2 ; 6265 2 SELECTONE .STATE OF ; 6266 2 SET ; 6267 2 ; 6268 2 [STATE_S, STATE_SF, STATE_SD, STATE_SZ, STATE_SB] : ; 6269 3 BEGIN ; 6270 3 ; 6271 3 IF .RMSG_NAKS GTR 0 ; 6272 3 THEN ; 6273 4 BEGIN ; 6274 4 TT_TEXT (UPLIT (%ASCIZ', ')); ; 6275 4 TT_NUMBER (.RMSG_NAKS); ; 6276 4 TT_TEXT (UPLIT (%ASCIZ' NAKs received')); ; 6277 3 END; ; 6278 3 ; 6279 2 END; ; 6280 2 ; 6281 2 [STATE_R, STATE_RF, STATE_RD] : ; 6282 3 BEGIN ; 6283 3 ; 6284 3 IF .SMSG_NAKS GTR 0 ; 6285 3 THEN ; 6286 4 BEGIN ; 6287 4 TT_TEXT (UPLIT (%ASCIZ', ')); ; 6288 4 TT_NUMBER (.SMSG_NAKS); ; 6289 4 TT_TEXT (UPLIT (%ASCIZ' NAKs sent')); ; 6290 3 END; ; 6291 3 ; 6292 2 END; ; 6293 2 TES; ; 6294 2 ; 6295 2 TT_CHAR (%C']'); ! End the line ; 6296 2 TT_CRLF (); ! with a CRLF ; 6297 1 END; ! End of STS_OUTPUT .PSECT $PLIT$,NOWRT,NOEXE,2 P.AAP: .ASCII \Idle in server mode\<0> ; ; P.AAQ: .ASCII \Initializing for sending file \<0><0> ; ; P.AAR: .ASCII \Initializing for remote command\<0> ; ; P.AAS: .ASCII \Waiting for response to remote command\<0><0> ; ; P.AAT: .ASCII \ characters sent for file \<0><0> ; ; P.AAU: .ASCII \At end of file \<0> ; ; P.AAV: .ASCII \Finishing transfer session\<0><0> ; ; P.AAW: .ASCII \Waiting for initialization\<0><0> ; ; P.AAX: .ASCII \Waiting for next file or end of session\<0> ; ; P.AAY: .ASCII \ characters received for file \<0><0> ; ; P.AAZ: .ASCII \ Session complete\<0><0><0> ; ; P.ABA: .ASCII \ Session aborted\<0><0><0><0> ; ; P.ABB: .ASCII \ Unknown state\<0><0> ; ; P.ABC: .ASCII \, \<0><0> ; ; P.ABD: .ASCII \ NAKs received\<0><0> ; ; P.ABE: .ASCII \, \<0><0> ; ; P.ABF: .ASCII \ NAKs sent\<0><0> ; ; .PSECT $CODE$,NOWRT,2 ;STS_OUTPUT U.33: .WORD ^M ;Save R2,R3,R4 ; 6167 MOVAB W^TT_NUMBER, R4 ;TT_NUMBER, R4 ; MOVAB W^TT_TEXT, R3 ;TT_TEXT, R3 ; MOVAB W^P.ABB, R2 ;P.ABB, R2 ; MOVZBL #91, -(SP) ;#91, -(SP) ; 6206 CALLS #1, W^TT_CHAR ;#1, TT_CHAR ; CASEL W^U.49, #1, #19 ;U.49, #1, #19 ; 6208 1$: .WORD 4$-1$,- ;4$-1$,- ; 4$-1$,- ;4$-1$,- ; 7$-1$,- ;7$-1$,- ; 8$-1$,- ;8$-1$,- ; 10$-1$,- ;10$-1$,- ; 11$-1$,- ;11$-1$,- ; 12$-1$,- ;12$-1$,- ; 13$-1$,- ;13$-1$,- ; 14$-1$,- ;14$-1$,- ; 15$-1$,- ;15$-1$,- ; 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 ; 6262 BRB 16$ ;16$ ; 3$: PUSHAB -336(R2) ;P.AAP ; 6212 BRB 16$ ;16$ ; 4$: PUSHAB -316(R2) ;P.AAQ ; 6216 BRB 9$ ;9$ ; 5$: PUSHAB -284(R2) ;P.AAR ; 6221 BRB 16$ ;16$ ; 6$: PUSHAB -252(R2) ;P.AAS ; 6224 BRB 16$ ;16$ ; 7$: PUSHL W^U.60 ;U.60 ; 6228 CALLS #1, (R4) ;#1, TT_NUMBER ; PUSHAB -212(R2) ;P.AAT ; 6229 BRB 9$ ;9$ ; 8$: PUSHAB -184(R2) ;P.AAU ; 6235 9$: CALLS #1, (R3) ;#1, TT_TEXT ; PUSHAB W^FILE_NAME ;FILE_NAME ; 6236 BRB 16$ ;16$ ; 10$: PUSHAB -168(R2) ;P.AAV ; 6240 BRB 16$ ;16$ ; 11$: PUSHAB -140(R2) ;P.AAW ; 6243 BRB 16$ ;16$ ; 12$: PUSHAB -112(R2) ;P.AAX ; 6246 BRB 16$ ;16$ ; 13$: PUSHL W^U.60 ;U.60 ; 6250 CALLS #1, (R4) ;#1, TT_NUMBER ; PUSHAB -72(R2) ;P.AAY ; 6251 BRB 9$ ;9$ ; 14$: PUSHAB -40(R2) ;P.AAZ ; 6256 BRB 16$ ;16$ ; 15$: PUSHAB -20(R2) ;P.ABA ; 6259 16$: CALLS #1, (R3) ;#1, TT_TEXT ; MOVL W^U.49, R0 ;U.49, R0 ; 6265 BLEQ 17$ ;17$ ; 6268 CMPL R0, #5 ;R0, #5 ; BGTR 17$ ;17$ ; TSTL W^RMSG_NAKS ;RMSG_NAKS ; 6271 BLEQ 19$ ;19$ ; PUSHAB 16(R2) ;P.ABC ; 6274 CALLS #1, (R3) ;#1, TT_TEXT ; PUSHL W^RMSG_NAKS ;RMSG_NAKS ; 6275 CALLS #1, (R4) ;#1, TT_NUMBER ; PUSHAB 20(R2) ;P.ABD ; 6276 BRB 18$ ;18$ ; 17$: CMPL R0, #6 ;R0, #6 ; 6281 BLSS 19$ ;19$ ; CMPL R0, #8 ;R0, #8 ; BGTR 19$ ;19$ ; TSTL W^SMSG_NAKS ;SMSG_NAKS ; 6284 BLEQ 19$ ;19$ ; PUSHAB 36(R2) ;P.ABE ; 6287 CALLS #1, (R3) ;#1, TT_TEXT ; PUSHL W^SMSG_NAKS ;SMSG_NAKS ; 6288 CALLS #1, (R4) ;#1, TT_NUMBER ; PUSHAB 40(R2) ;P.ABF ; 6289 18$: CALLS #1, (R3) ;#1, TT_TEXT ; 19$: MOVZBL #93, -(SP) ;#93, -(SP) ; 6295 CALLS #1, W^TT_CHAR ;#1, TT_CHAR ; CALLS #0, W^TT_CRLF ;#0, TT_CRLF ; 6296 RET ; ; 6297 ; Routine Size: 252 bytes, Routine Base: $CODE$ + 22AA ; 6298 1 %SBTTL 'TYPE_CHAR - Type out a character' ; 6299 1 ROUTINE TYPE_CHAR (CHARACTER) = ; 6300 1 ; 6301 1 !++ ; 6302 1 ! FUNCTIONAL DESCRIPTION: ; 6303 1 ! ; 6304 1 ! This routine is used as an alternate output routine for BFR_EMPTY. ; 6305 1 ! It will type the character on the terminal, and always return a ; 6306 1 ! true status. ; 6307 1 ! ; 6308 1 ! CALLING SEQUENCE: ; 6309 1 ! ; 6310 1 ! STATUS = TYPE_CHAR (.CHARACTER); ; 6311 1 ! ; 6312 1 ! INPUT PARAMETERS: ; 6313 1 ! ; 6314 1 ! CHARACTER - The character to type ; 6315 1 ! ; 6316 1 ! IMPLICIT INPUTS: ; 6317 1 ! ; 6318 1 ! None. ; 6319 1 ! ; 6320 1 ! OUPTUT PARAMETERS: ; 6321 1 ! ; 6322 1 ! None. ; 6323 1 ! ; 6324 1 ! IMPLICIT OUTPUTS: ; 6325 1 ! ; 6326 1 ! None. ; 6327 1 ! ; 6328 1 ! COMPLETION CODES: ; 6329 1 ! ; 6330 1 ! None. ; 6331 1 ! ; 6332 1 ! SIDE EFFECTS: ; 6333 1 ! ; 6334 1 ! None. ; 6335 1 ! ; 6336 1 !-- ; 6337 1 ; 6338 2 BEGIN ; 6339 2 TT_CHAR (.CHARACTER); ! Type the character ; 6340 2 RETURN KER_NORMAL; ! And return OK ; 6341 1 END; ! End of TYPE_CHAR ;TYPE_CHAR U.31: .WORD ^M<> ;Save nothing ; 6299 PUSHL 4(AP) ;CHARACTER ; 6339 CALLS #1, W^TT_CHAR ;#1, TT_CHAR ; MOVL #134316043, R0 ;#134316043, R0 ; 6340 RET ; ; 6341 ; Routine Size: 18 bytes, Routine Base: $CODE$ + 23A6 ; 6342 1 %SBTTL 'Debugging -- DBG_SEND' ; 6343 1 ROUTINE DBG_SEND (ADDRESS, LENGTH) : NOVALUE = ; 6344 1 ; 6345 1 !++ ; 6346 1 ! FUNCTIONAL DESCRIPTION: ; 6347 1 ! ; 6348 1 ! This routine will output the message that is going to be sent ; 6349 1 ! as part of the debugging information that is turned on in the ; 6350 1 ! SET DEBUG command. ; 6351 1 ! ; 6352 1 ! CALLING SEQUENCE: ; 6353 1 ! ; 6354 1 ! DBG_SEND(MSG_ADDRESS, MSG_LENGTH); ; 6355 1 ! ; 6356 1 ! INPUT PARAMETERS: ; 6357 1 ! ; 6358 1 ! MSG_ADDRESS - Address of the message that is going to be sent ; 6359 1 ! to the remote KERMIT. The bytes are CHR_SIZE. ; 6360 1 ! MSG_LENGTH - Length of the message. ; 6361 1 ! ; 6362 1 ! IMPLICIT INPUTS: ; 6363 1 ! ; 6364 1 ! None. ; 6365 1 ! ; 6366 1 ! OUTPUT PARAMETERS: ; 6367 1 ! ; 6368 1 ! None. ; 6369 1 ! ; 6370 1 ! IMPLICIT OUTPUTS: ; 6371 1 ! ; 6372 1 ! None. ; 6373 1 ! ; 6374 1 ! COMPLETION CODES: ; 6375 1 ! ; 6376 1 ! None. ; 6377 1 ! ; 6378 1 ! SIDE EFFECTS: ; 6379 1 ! ; 6380 1 ! None. ; 6381 1 ! ; 6382 1 !-- ; 6383 1 ; 6384 2 BEGIN ; 6385 2 ; 6386 2 BIND ; 6387 2 SEND_TEXT = UPLIT (%ASCIZ'Sending...'); ; 6388 2 ; 6389 2 IF .DEBUG_FLAG ; 6390 2 THEN ; 6391 3 BEGIN ; 6392 3 ; 6393 3 LOCAL ; 6394 3 OLD_RTN; ; 6395 3 ; 6396 3 OLD_RTN = TT_SET_OUTPUT (DBG_DUMP); ; 6397 3 TT_TEXT (SEND_TEXT); ; 6398 3 DBG_MESSAGE (.ADDRESS, .LENGTH); ; 6399 3 TT_SET_OUTPUT (.OLD_RTN); ; 6400 2 END; ; 6401 2 ; 6402 1 END; ! End of DBG_SEND .PSECT $PLIT$,NOWRT,NOEXE,2 P.ABG: .ASCII \Sending...\<0><0> ; ; U.100= P.ABG .PSECT $CODE$,NOWRT,2 ;DBG_SEND U.35: .WORD ^M ;Save R2 ; 6343 BLBC W^DEBUG_FLAG, 1$ ;DEBUG_FLAG, 1$ ; 6389 PUSHAB W^DBG_DUMP ;DBG_DUMP ; 6396 CALLS #1, W^TT_SET_OUTPUT ;#1, TT_SET_OUTPUT ; MOVL R0, R2 ;R0, OLD_RTN ; PUSHAB W^U.100 ;U.100 ; 6397 CALLS #1, W^TT_TEXT ;#1, TT_TEXT ; MOVQ 4(AP), -(SP) ;ADDRESS, -(SP) ; 6398 CALLS #2, W^U.34 ;#2, U.34 ; PUSHL R2 ;OLD_RTN ; 6399 CALLS #1, W^TT_SET_OUTPUT ;#1, TT_SET_OUTPUT ; 1$: RET ; ; 6402 ; Routine Size: 45 bytes, Routine Base: $CODE$ + 23B8 ; 6403 1 %SBTTL 'Debugging -- DBG_RECEIVE' ; 6404 1 ROUTINE DBG_RECEIVE (ADDRESS) : NOVALUE = ; 6405 1 ; 6406 1 !++ ; 6407 1 ! FUNCTIONAL DESCRIPTION: ; 6408 1 ! ; 6409 1 ! This routine will output the message that was received from ; 6410 1 ! the remote KERMIT. This routine is called only if the DEBUG_FLAG ; 6411 1 ! is true. ; 6412 1 ! ; 6413 1 ! CALLING SEQUENCE: ; 6414 1 ! ; 6415 1 ! DBG_RECEIVE(MSG_ADDRESS); ; 6416 1 ! ; 6417 1 ! INPUT PARAMETERS: ; 6418 1 ! ; 6419 1 ! MSG_ADDRESS - Address of the message received by the remote KERMIT. ; 6420 1 ! ; 6421 1 ! IMPLICIT INPUTS: ; 6422 1 ! ; 6423 1 ! None. ; 6424 1 ! ; 6425 1 ! OUTPUT PARAMETERS: ; 6426 1 ! ; 6427 1 ! None. ; 6428 1 ! ; 6429 1 ! IMPLICIT OUTPUTS: ; 6430 1 ! ; 6431 1 ! None. ; 6432 1 ! ; 6433 1 ! COMPLETION CODES: ; 6434 1 ! ; 6435 1 ! None. ; 6436 1 ! ; 6437 1 ! SIDE EFFECTS: ; 6438 1 ! ; 6439 1 ! None. ; 6440 1 ! ; 6441 1 !-- ; 6442 1 ; 6443 2 BEGIN ; 6444 2 ; 6445 2 BIND ; 6446 2 RECEIVE_TEXT = UPLIT (%ASCIZ'Received...'); ; 6447 2 ; 6448 2 IF .DEBUG_FLAG ; 6449 2 THEN ; 6450 3 BEGIN ; 6451 3 ; 6452 3 LOCAL ; 6453 3 OLD_RTN; ; 6454 3 ; 6455 3 OLD_RTN = TT_SET_OUTPUT (DBG_DUMP); ; 6456 3 TT_TEXT (RECEIVE_TEXT); ; 6457 3 DBG_MESSAGE (.ADDRESS, .REC_LENGTH); ; 6458 3 TT_SET_OUTPUT (.OLD_RTN); ; 6459 2 END; ; 6460 2 ; 6461 1 END; ! End of DBG_RECEIVE .PSECT $PLIT$,NOWRT,NOEXE,2 P.ABH: .ASCII \Received...\<0> ; ; U.101= P.ABH .PSECT $CODE$,NOWRT,2 ;DBG_RECEIVE U.36: .WORD ^M ;Save R2 ; 6404 BLBC W^DEBUG_FLAG, 1$ ;DEBUG_FLAG, 1$ ; 6448 PUSHAB W^DBG_DUMP ;DBG_DUMP ; 6455 CALLS #1, W^TT_SET_OUTPUT ;#1, TT_SET_OUTPUT ; MOVL R0, R2 ;R0, OLD_RTN ; PUSHAB W^U.101 ;U.101 ; 6456 CALLS #1, W^TT_TEXT ;#1, TT_TEXT ; PUSHL W^U.55 ;U.55 ; 6457 PUSHL 4(AP) ;ADDRESS ; CALLS #2, W^U.34 ;#2, U.34 ; PUSHL R2 ;OLD_RTN ; 6458 CALLS #1, W^TT_SET_OUTPUT ;#1, TT_SET_OUTPUT ; 1$: RET ; ; 6461 ; Routine Size: 48 bytes, Routine Base: $CODE$ + 23E5 ; 6462 1 %SBTTL 'Debugging -- DBG_MESSAGE' ; 6463 1 ROUTINE DBG_MESSAGE (MSG_ADDRESS, MSG_LENGTH) : NOVALUE = ; 6464 1 ; 6465 1 !++ ; 6466 1 ! FUNCTIONAL DESCRIPTION: ; 6467 1 ! ; 6468 1 ! This routine will display a message that is either being sent ; 6469 1 ! or received on the user's terminal. ; 6470 1 ! ; 6471 1 ! CALLING SEQUENCE: ; 6472 1 ! ; 6473 1 ! DBG_MESSAGE(MSG_ADDRESS, MSG_LENGTH); ; 6474 1 ! ; 6475 1 ! INPUT PARAMETERS: ; 6476 1 ! ; 6477 1 ! MSG_ADDRESS - Address of the message to be output ; 6478 1 ! MSG_LENGTH - Length of the message to be output. ; 6479 1 ! ; 6480 1 ! IMPLICIT INPUTS: ; 6481 1 ! ; 6482 1 ! None. ; 6483 1 ! ; 6484 1 ! OUTPUT PARAMETERS: ; 6485 1 ! ; 6486 1 ! None. ; 6487 1 ! ; 6488 1 ! IMPLICIT OUTPUTS: ; 6489 1 ! ; 6490 1 ! None. ; 6491 1 ! ; 6492 1 ! COMPLETION CODES: ; 6493 1 ! ; 6494 1 ! None. ; 6495 1 ! ; 6496 1 ! SIDE EFFECTS: ; 6497 1 ! ; 6498 1 ! None. ; 6499 1 ! ; 6500 1 !-- ; 6501 1 ; 6502 2 BEGIN ; 6503 2 ; 6504 2 MAP ; 6505 2 MSG_ADDRESS : REF VECTOR [CH$ALLOCATION (MAX_MSG, CHR_SIZE)]; ! Point to the vector ; 6506 2 ; 6507 2 LOCAL ; 6508 2 OLD_RTN, ! Old type out routine ; 6509 2 CHKSUM, ! Numeric value of block check ; 6510 2 TEMP_POINTER, ! Temporary character pointer ; 6511 2 MSG_LEN; ; 6512 2 ; 6513 2 ! ; 6514 2 ! Message type text ; 6515 2 ! ; 6516 2 ; 6517 2 BIND ; 6518 2 DATA_TEXT = UPLIT (%ASCIZ' (Data)'), ; 6519 2 ACK_TEXT = UPLIT (%ASCIZ' (ACK)'), ; 6520 2 NAK_TEXT = UPLIT (%ASCIZ' (NAK)'), ; 6521 2 SND_INIT_TEXT = UPLIT (%ASCIZ' (Send init)'), ; 6522 2 BREAK_TEXT = UPLIT (%ASCIZ' (Break)'), ; 6523 2 TEXT_TEXT = UPLIT (%ASCIZ' (Text header)'), ; 6524 2 FILE_TEXT = UPLIT (%ASCIZ' (File header)'), ; 6525 2 EOF_TEXT = UPLIT (%ASCIZ' (EOF)'), ; 6526 2 ERROR_TEXT = UPLIT (%ASCIZ' (Error)'), ; 6527 2 RCV_INIT_TEXT = UPLIT (%ASCIZ' (Receive initiate)'), ; 6528 2 COMMAND_TEXT = UPLIT (%ASCIZ' (Command)'), ; 6529 2 KERMIT_TEXT = UPLIT (%ASCIZ' (Generic KERMIT command)'); ; 6530 2 ; 6531 2 ! ; 6532 2 ! Header information ; 6533 2 ! ; 6534 2 ; 6535 2 BIND ; 6536 2 MN_TEXT = UPLIT (%ASCIZ'Message number: '), ; 6537 2 LENGTH_TEXT = UPLIT (%ASCIZ' Length: '), ; 6538 2 DEC_TEXT = UPLIT (%ASCIZ' (dec)'), ; 6539 2 MSG_TYP_TEXT = UPLIT (%ASCIZ'Message type: '), ; 6540 2 CHKSUM_TEXT = UPLIT (%ASCIZ'Checksum: '), ; 6541 2 CHKSUM_NUM_TEXT = UPLIT (%ASCIZ' = '), ; 6542 2 OPT_DATA_TEXT = UPLIT (%ASCIZ'Optional data: '), ; 6543 2 PRE_CHAR_TEXT = UPLIT (%ASCIZ' "'); ; 6544 2 ; 6545 2 ! ; 6546 2 ! Ensure that the type out will go to the debugging location ; 6547 2 ! ; 6548 2 OLD_RTN = TT_SET_OUTPUT (DBG_DUMP); ; 6549 2 ! ; 6550 2 ! Preliminary calculations ; 6551 2 ! ; 6552 2 MSG_LEN = UNCHAR (CH$RCHAR (CH$PTR (.MSG_ADDRESS, PKT_COUNT, CHR_SIZE))); ; 6553 2 ! ; 6554 2 ! First output some header information for the packet. ; 6555 2 ! ; 6556 2 TT_CRLF (); ; 6557 2 TT_TEXT (MN_TEXT); ; 6558 2 TT_NUMBER (UNCHAR (CH$RCHAR (CH$PTR (.MSG_ADDRESS, PKT_SEQ, CHR_SIZE)))); ; 6559 2 TT_TEXT (DEC_TEXT); ; 6560 2 TT_TEXT (LENGTH_TEXT); ; 6561 2 TT_NUMBER (.MSG_LEN); ; 6562 2 TT_TEXT (DEC_TEXT); ; 6563 2 TT_CRLF (); ; 6564 2 ! ; 6565 2 ! Now output the message type and dependent information ; 6566 2 ! ; 6567 2 TT_TEXT (MSG_TYP_TEXT); ; 6568 2 TT_CHAR (CH$RCHAR (CH$PTR (.MSG_ADDRESS, PKT_TYPE, CHR_SIZE))); ; 6569 2 ; 6570 2 SELECTONE CH$RCHAR (CH$PTR (.MSG_ADDRESS, PKT_TYPE, CHR_SIZE)) OF ; 6571 2 SET ; 6572 2 ; 6573 2 [MSG_DATA] : ; 6574 2 TT_TEXT (DATA_TEXT); ; 6575 2 ; 6576 2 [MSG_ACK] : ; 6577 2 TT_TEXT (ACK_TEXT); ; 6578 2 ; 6579 2 [MSG_NAK] : ; 6580 2 TT_TEXT (NAK_TEXT); ; 6581 2 ; 6582 2 [MSG_SND_INIT] : ; 6583 2 TT_TEXT (SND_INIT_TEXT); ; 6584 2 ; 6585 2 [MSG_BREAK] : ; 6586 2 TT_TEXT (BREAK_TEXT); ; 6587 2 ; 6588 2 [MSG_FILE] : ; 6589 2 TT_TEXT (FILE_TEXT); ; 6590 2 ; 6591 2 [MSG_TEXT] : ; 6592 2 TT_TEXT (TEXT_TEXT); ; 6593 2 ; 6594 2 [MSG_EOF] : ; 6595 2 TT_TEXT (EOF_TEXT); ; 6596 2 ; 6597 2 [MSG_ERROR] : ; 6598 2 TT_TEXT (ERROR_TEXT); ; 6599 2 ; 6600 2 [MSG_GENERIC] : ; 6601 2 TT_TEXT (KERMIT_TEXT); ; 6602 2 ; 6603 2 [MSG_COMMAND] : ; 6604 2 TT_TEXT (COMMAND_TEXT); ; 6605 2 TES; ; 6606 2 ; 6607 2 TT_CRLF (); ; 6608 2 ! ; 6609 2 ! Now output any of the optional data. ; 6610 2 ! ; 6611 2 ; 6612 2 IF .MSG_LEN - PKT_OVR_HEAD - (.BLK_CHK_TYPE - CHK_1CHAR) NEQ 0 ; 6613 2 THEN ; 6614 3 BEGIN ; 6615 3 TT_TEXT (OPT_DATA_TEXT); ; 6616 3 TT_CRLF (); ; 6617 3 TEMP_POINTER = CH$PTR (.MSG_ADDRESS, PKT_MSG, CHR_SIZE); ; 6618 3 ; 6619 3 INCR I FROM 1 TO .MSG_LEN - PKT_OVR_HEAD - (.BLK_CHK_TYPE - CHK_1CHAR) DO ; 6620 4 BEGIN ; 6621 4 ; 6622 4 IF (.I MOD 10) EQL 1 ; 6623 4 THEN ; 6624 5 BEGIN ; 6625 5 TT_CRLF (); ; 6626 5 TT_CHAR (CHR_TAB); ; 6627 4 END; ; 6628 4 ; 6629 4 TT_TEXT (PRE_CHAR_TEXT); ; 6630 4 TT_CHAR (CH$RCHAR_A (TEMP_POINTER)); ; 6631 4 TT_CHAR (%C'"'); ; 6632 3 END; ; 6633 3 ; 6634 3 IF ((.MSG_LEN - PKT_OVR_HEAD - (.BLK_CHK_TYPE - CHK_1CHAR)) MOD 10) EQL 1 THEN TT_CRLF (); ; 6635 3 ; 6636 3 TT_CRLF (); ; 6637 2 END; ; 6638 2 ; 6639 2 ! ; 6640 2 ! Now output the checksum for the message that we received ; 6641 2 ! ; 6642 2 ! This could be either 1 two or three characters. ; 6643 2 TT_TEXT (CHKSUM_TEXT); ; 6644 2 TEMP_POINTER = CH$PTR (.MSG_ADDRESS, ; 6645 2 PKT_MSG + .MSG_LEN + PKT_CHKSUM - PKT_OVR_HEAD - (.BLK_CHK_TYPE - CHK_1CHAR), CHR_SIZE); ; 6646 2 ; 6647 2 CASE .BLK_CHK_TYPE FROM CHK_1CHAR TO CHK_CRC OF ; 6648 2 SET ; 6649 2 ; 6650 2 [CHK_1CHAR] : ; 6651 3 BEGIN ; 6652 3 TT_TEXT (PRE_CHAR_TEXT); ; 6653 3 TT_CHAR (CH$RCHAR (.TEMP_POINTER)); ; 6654 3 TT_CHAR (%C'"'); ; 6655 3 CHKSUM = UNCHAR (CH$RCHAR (.TEMP_POINTER)); ; 6656 2 END; ; 6657 2 ; 6658 2 [CHK_2CHAR] : ; 6659 3 BEGIN ; 6660 3 CHKSUM = 0; ; 6661 3 TT_TEXT (PRE_CHAR_TEXT); ; 6662 3 TT_CHAR (CH$RCHAR (.TEMP_POINTER)); ; 6663 3 TT_CHAR (%C'"'); ; 6664 3 CHKSUM<6, 6> = UNCHAR (CH$RCHAR_A (TEMP_POINTER)); ; 6665 3 TT_TEXT (PRE_CHAR_TEXT); ; 6666 3 TT_CHAR (CH$RCHAR (.TEMP_POINTER)); ; 6667 3 TT_CHAR (%C'"'); ; 6668 3 CHKSUM<0, 6> = UNCHAR (CH$RCHAR (.TEMP_POINTER)); ; 6669 2 END; ; 6670 2 ; 6671 2 [CHK_CRC] : ; 6672 3 BEGIN ; 6673 3 CHKSUM = 0; ; 6674 3 TT_TEXT (PRE_CHAR_TEXT); ; 6675 3 TT_CHAR (CH$RCHAR (.TEMP_POINTER)); ; 6676 3 TT_CHAR (%C'"'); ; 6677 3 CHKSUM<12, 4> = UNCHAR (CH$RCHAR_A (TEMP_POINTER)); ; 6678 3 TT_TEXT (PRE_CHAR_TEXT); ; 6679 3 TT_CHAR (CH$RCHAR (.TEMP_POINTER)); ; 6680 3 TT_CHAR (%C'"'); ; 6681 3 CHKSUM<6, 6> = UNCHAR (CH$RCHAR_A (TEMP_POINTER)); ; 6682 3 TT_TEXT (PRE_CHAR_TEXT); ; 6683 3 TT_CHAR (CH$RCHAR (.TEMP_POINTER)); ; 6684 3 TT_CHAR (%C'"'); ; 6685 3 CHKSUM<0, 6> = UNCHAR (CH$RCHAR (.TEMP_POINTER)); ; 6686 2 END; ; 6687 2 TES; ; 6688 2 ; 6689 2 TT_TEXT (CHKSUM_NUM_TEXT); ; 6690 2 TT_NUMBER (.CHKSUM); ; 6691 2 TT_TEXT (DEC_TEXT); ; 6692 2 TT_CRLF (); ; 6693 2 TT_SET_OUTPUT (.OLD_RTN); ! Reset output destination ; 6694 1 END; ! End of DBG_MESSAGE .PSECT $PLIT$,NOWRT,NOEXE,2 P.ABI: .ASCII \ (Data)\<0> ; ; P.ABJ: .ASCII \ (ACK)\<0><0> ; ; P.ABK: .ASCII \ (NAK)\<0><0> ; ; P.ABL: .ASCII \ (Send init)\<0><0><0><0> ; ; P.ABM: .ASCII \ (Break)\<0><0><0><0> ; ; P.ABN: .ASCII \ (Text header)\<0><0> ; ; P.ABO: .ASCII \ (File header)\<0><0> ; ; P.ABP: .ASCII \ (EOF)\<0><0> ; ; P.ABQ: .ASCII \ (Error)\<0><0><0><0> ; ; P.ABR: .ASCII \ (Receive initiate)\<0> ; ; P.ABS: .ASCII \ (Command)\<0><0> ; ; P.ABT: .ASCII \ (Generic KERMIT command)\<0><0><0> ; ; P.ABU: .ASCII \Message number: \<0><0><0><0> ; ; P.ABV: .ASCII <9>\Length: \<0><0><0> ; ; P.ABW: .ASCII \ (dec)\<0><0> ; ; P.ABX: .ASCII \Message type: \<0><0> ; ; P.ABY: .ASCII \Checksum: \<0><0> ; ; P.ABZ: .ASCII \ = \<0> ; ; P.ACA: .ASCII \Optional data: \<0> ; ; P.ACB: .ASCII \ "\<0><0> ; ; U.103= P.ABI U.104= P.ABJ U.105= P.ABK U.106= P.ABL U.107= P.ABM U.108= P.ABN U.109= P.ABO U.110= P.ABP U.111= P.ABQ U.112= P.ABR U.113= P.ABS U.114= P.ABT U.115= P.ABU U.116= P.ABV U.117= P.ABW U.118= P.ABX U.119= P.ABY U.120= P.ABZ U.121= P.ACA U.122= P.ACB .PSECT $CODE$,NOWRT,2 ;DBG_MESSAGE U.34: .WORD ^M ;Save R2,R3,R4,R5,R6,R7,R8,R9,R10,R11 ; 6463 MOVAB W^TT_CHAR, R11 ;TT_CHAR, R11 ; MOVAB W^TT_TEXT, R10 ;TT_TEXT, R10 ; MOVAB W^U.122, R9 ;U.122, R9 ; PUSHAB W^DBG_DUMP ;DBG_DUMP ; 6548 CALLS #1, W^TT_SET_OUTPUT ;#1, TT_SET_OUTPUT ; MOVL R0, R8 ;R0, OLD_RTN ; MOVL 4(AP), R4 ;MSG_ADDRESS, R4 ; 6552 MOVZBL 1(R4), R3 ;1(R4), MSG_LEN ; SUBL2 #32, R3 ;#32, MSG_LEN ; CALLS #0, W^TT_CRLF ;#0, TT_CRLF ; 6556 PUSHAB -88(R9) ;MN_TEXT ; 6557 CALLS #1, (R10) ;#1, TT_TEXT ; MOVZBL 2(R4), -(SP) ;2(R4), -(SP) ; 6558 SUBL2 #32, (SP) ;#32, (SP) ; CALLS #1, W^TT_NUMBER ;#1, TT_NUMBER ; PUSHAB -56(R9) ;DEC_TEXT ; 6559 CALLS #1, (R10) ;#1, TT_TEXT ; PUSHAB -68(R9) ;LENGTH_TEXT ; 6560 CALLS #1, (R10) ;#1, TT_TEXT ; PUSHL R3 ;MSG_LEN ; 6561 CALLS #1, W^TT_NUMBER ;#1, TT_NUMBER ; PUSHAB -56(R9) ;DEC_TEXT ; 6562 CALLS #1, (R10) ;#1, TT_TEXT ; CALLS #0, W^TT_CRLF ;#0, TT_CRLF ; 6563 PUSHAB -48(R9) ;MSG_TYP_TEXT ; 6567 CALLS #1, (R10) ;#1, TT_TEXT ; MOVZBL 3(R4), R2 ;3(R4), R2 ; 6568 PUSHL R2 ;R2 ; CALLS #1, (R11) ;#1, TT_CHAR ; CMPB R2, #68 ;R2, #68 ; 6573 BNEQ 1$ ;1$ ; PUSHAB -252(R9) ;DATA_TEXT ; 6574 BRB 11$ ;11$ ; 1$: CMPB R2, #89 ;R2, #89 ; 6576 BNEQ 2$ ;2$ ; PUSHAB -244(R9) ;ACK_TEXT ; 6577 BRB 11$ ;11$ ; 2$: CMPB R2, #78 ;R2, #78 ; 6579 BNEQ 3$ ;3$ ; PUSHAB -236(R9) ;NAK_TEXT ; 6580 BRB 11$ ;11$ ; 3$: CMPB R2, #83 ;R2, #83 ; 6582 BNEQ 4$ ;4$ ; PUSHAB -228(R9) ;SND_INIT_TEXT ; 6583 BRB 11$ ;11$ ; 4$: CMPB R2, #66 ;R2, #66 ; 6585 BNEQ 5$ ;5$ ; PUSHAB -212(R9) ;BREAK_TEXT ; 6586 BRB 11$ ;11$ ; 5$: CMPB R2, #70 ;R2, #70 ; 6588 BNEQ 6$ ;6$ ; PUSHAB -184(R9) ;FILE_TEXT ; 6589 BRB 11$ ;11$ ; 6$: CMPB R2, #88 ;R2, #88 ; 6591 BNEQ 7$ ;7$ ; PUSHAB -200(R9) ;TEXT_TEXT ; 6592 BRB 11$ ;11$ ; 7$: CMPB R2, #90 ;R2, #90 ; 6594 BNEQ 8$ ;8$ ; PUSHAB -168(R9) ;EOF_TEXT ; 6595 BRB 11$ ;11$ ; 8$: CMPB R2, #69 ;R2, #69 ; 6597 BNEQ 9$ ;9$ ; PUSHAB -160(R9) ;ERROR_TEXT ; 6598 BRB 11$ ;11$ ; 9$: CMPB R2, #71 ;R2, #71 ; 6600 BNEQ 10$ ;10$ ; PUSHAB -116(R9) ;KERMIT_TEXT ; 6601 BRB 11$ ;11$ ; 10$: CMPB R2, #67 ;R2, #67 ; 6603 BNEQ 12$ ;12$ ; PUSHAB -128(R9) ;COMMAND_TEXT ; 6604 11$: CALLS #1, (R10) ;#1, TT_TEXT ; 12$: CALLS #0, W^TT_CRLF ;#0, TT_CRLF ; 6607 MOVAB -3(R3), R6 ;-3(R3), R6 ; 6612 SUBL3 #49, W^U.46, R0 ;#49, U.46, R0 ; CMPL R6, R0 ;R6, R0 ; BEQL 17$ ;17$ ; PUSHAB -16(R9) ;OPT_DATA_TEXT ; 6615 CALLS #1, (R10) ;#1, TT_TEXT ; CALLS #0, W^TT_CRLF ;#0, TT_CRLF ; 6616 MOVAB 4(R4), R2 ;4(R4), TEMP_POINTER ; 6617 SUBL3 W^U.46, R6, R0 ;U.46, R6, R0 ; 6619 MOVAB 49(R0), R7 ;49(R0), R7 ; CLRL R5 ;I ; BRB 15$ ;15$ ; 13$: EMUL #1, R5, #0, -(SP) ;#1, I, #0, -(SP) ; 6622 EDIV #10, (SP)+, R0, R0 ;#10, (SP)+, R0, R0 ; CMPL R0, #1 ;R0, #1 ; BNEQ 14$ ;14$ ; CALLS #0, W^TT_CRLF ;#0, TT_CRLF ; 6625 PUSHL #9 ;#9 ; 6626 CALLS #1, (R11) ;#1, TT_CHAR ; 14$: PUSHL R9 ;R9 ; 6629 CALLS #1, (R10) ;#1, TT_TEXT ; MOVZBL (R2)+, -(SP) ;(TEMP_POINTER)+, -(SP) ; 6630 CALLS #1, (R11) ;#1, TT_CHAR ; PUSHL #34 ;#34 ; 6631 CALLS #1, (R11) ;#1, TT_CHAR ; 15$: AOBLEQ R7, R5, 13$ ;R7, I, 13$ ; 6619 SUBL3 W^U.46, R6, R0 ;U.46, R6, R0 ; 6634 EMUL #1, R0, #49, -(SP) ;#1, R0, #49, -(SP) ; EDIV #10, (SP)+, R0, R0 ;#10, (SP)+, R0, R0 ; CMPL R0, #1 ;R0, #1 ; BNEQ 16$ ;16$ ; CALLS #0, W^TT_CRLF ;#0, TT_CRLF ; 16$: CALLS #0, W^TT_CRLF ;#0, TT_CRLF ; 6636 17$: PUSHAB -32(R9) ;CHKSUM_TEXT ; 6643 CALLS #1, (R10) ;#1, TT_TEXT ; SUBL2 W^U.46, R3 ;U.46, R3 ; 6645 MOVAB 50(R3)[R4], R2 ;50(R3)[R4], TEMP_POINTER ; CASEL W^U.46, #49, #2 ;U.46, #49, #2 ; 6647 18$: .WORD 19$-18$,- ;19$-18$,- ; 20$-18$,- ;20$-18$,- ; 21$-18$ ;21$-18$ ; 19$: PUSHL R9 ;R9 ; 6652 CALLS #1, (R10) ;#1, TT_TEXT ; MOVZBL (R2), -(SP) ;(TEMP_POINTER), -(SP) ; 6653 CALLS #1, (R11) ;#1, TT_CHAR ; PUSHL #34 ;#34 ; 6654 CALLS #1, (R11) ;#1, TT_CHAR ; MOVZBL (R2), R3 ;(TEMP_POINTER), CHKSUM ; 6655 SUBL2 #32, R3 ;#32, CHKSUM ; BRB 23$ ;23$ ; 6647 20$: CLRL R3 ;CHKSUM ; 6660 BRB 22$ ;22$ ; 6661 21$: CLRL R3 ;CHKSUM ; 6673 PUSHL R9 ;R9 ; 6674 CALLS #1, (R10) ;#1, TT_TEXT ; MOVZBL (R2), -(SP) ;(TEMP_POINTER), -(SP) ; 6675 CALLS #1, (R11) ;#1, TT_CHAR ; PUSHL #34 ;#34 ; 6676 CALLS #1, (R11) ;#1, TT_CHAR ; MOVZBL (R2)+, R0 ;(TEMP_POINTER)+, R0 ; 6677 MOVAB -32(R0), R1 ;-32(R0), R1 ; INSV R1, #12, #4, R3 ;R1, #12, #4, CHKSUM ; 22$: PUSHL R9 ;R9 ; 6678 CALLS #1, (R10) ;#1, TT_TEXT ; MOVZBL (R2), -(SP) ;(TEMP_POINTER), -(SP) ; 6679 CALLS #1, (R11) ;#1, TT_CHAR ; PUSHL #34 ;#34 ; 6680 CALLS #1, (R11) ;#1, TT_CHAR ; MOVZBL (R2)+, R0 ;(TEMP_POINTER)+, R0 ; 6681 MOVAB -32(R0), R1 ;-32(R0), R1 ; INSV R1, #6, #6, R3 ;R1, #6, #6, CHKSUM ; PUSHL R9 ;R9 ; 6682 CALLS #1, (R10) ;#1, TT_TEXT ; MOVZBL (R2), -(SP) ;(TEMP_POINTER), -(SP) ; 6683 CALLS #1, (R11) ;#1, TT_CHAR ; PUSHL #34 ;#34 ; 6684 CALLS #1, (R11) ;#1, TT_CHAR ; MOVZBL (R2), R0 ;(TEMP_POINTER), R0 ; 6685 SUBL2 #32, R0 ;#32, R0 ; INSV R0, #0, #6, R3 ;R0, #0, #6, CHKSUM ; 23$: PUSHAB -20(R9) ;CHKSUM_NUM_TEXT ; 6689 CALLS #1, (R10) ;#1, TT_TEXT ; PUSHL R3 ;CHKSUM ; 6690 CALLS #1, W^TT_NUMBER ;#1, TT_NUMBER ; PUSHAB -56(R9) ;DEC_TEXT ; 6691 CALLS #1, (R10) ;#1, TT_TEXT ; CALLS #0, W^TT_CRLF ;#0, TT_CRLF ; 6692 PUSHL R8 ;OLD_RTN ; 6693 CALLS #1, W^TT_SET_OUTPUT ;#1, TT_SET_OUTPUT ; RET ; ; 6694 ; Routine Size: 537 bytes, Routine Base: $CODE$ + 2415 ; 6695 1 %SBTTL 'End of KERMSG' ; 6696 1 END ; 6697 1 ; 6698 0 ELUDOM ; PSECT SUMMARY ; ; Name Bytes Attributes ; ; $OWN$ 396 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) ; $CODE$ 9774 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$ 864 NOVEC,NOWRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) ; Library Statistics ; ; -------- Symbols -------- Pages Processing ; File Total Loaded Percent Mapped Time ; ; SYS$SYSROOT:[SYSLIB]STARLET.L32;3 5809 4 0 326 00:00.7 ; COMMAND QUALIFIERS ; BLISS KERMSG/LIST=KERMSG.MAR/MACHINE_CODE=(ASSEM,NOBINARY,UNIQUE)/NOOBJECT/SOURCE=NOHEADER ; Compilation Complete .END