; 0001 0 MODULE KERSYS (IDENT = '3.0.045' ; 0002 0 ) = ; 0003 1 BEGIN ; 0004 1 ; 0005 1 !++ ; 0006 1 ! FACILITY: ; 0007 1 ! KERMIT-32 ; 0008 1 ! ; 0009 1 ! ABSTRACT: ; 0010 1 ! KERMIT-32 is an implementation of the KERMIT protocal to allow the ; 0011 1 ! transfer of files from micro computers to the DECsystem-10, DECSYSTEM-20 ; 0012 1 ! and now the VAX/VMS systems. ; 0013 1 ! ; 0014 1 ! ENVIRONMENT: ; 0015 1 ! User mode ; 0016 1 ! ; 0017 1 ! AUTHOR: Robert C. McQueen, Nick Bush, CREATION DATE: 24-January-1983 ; 0018 1 ! ; 0019 1 ! MODIFIED BY: ; 0020 1 ! ; 0021 1 !-- ; 0022 1 ; 0023 1 %SBTTL 'Table of Contents' ; 0024 1 %SBTTL 'Revision History' ; 0025 1 ; 0026 1 !++ ; 0027 1 ! ; 0028 1 ! 2.0.032 By: Nick Bush On: 25-Feb-1984 ; 0029 1 ! Add code for LOCAL and REMOTE commands. These depend ; 0030 1 ! upon support in KERMSG and KERSYS. ; 0031 1 ! ; 0032 1 ! 3.0.045 Start of version 3. ; 0033 1 !-- ; 0034 1 ; 0035 1 %SBTTL 'Include files' ; 0036 1 ! ; 0037 1 ! INCLUDE FILES: ; 0038 1 ! ; 0039 1 ; 0040 1 LIBRARY 'SYS$LIBRARY:STARLET'; ; 0041 1 ; 0042 1 LIBRARY 'SYS$LIBRARY:TPAMAC'; ; 0043 1 ; 0044 1 REQUIRE 'KERCOM'; ! Common definitions ; 0245 1 ; 0246 1 REQUIRE 'KERERR'; ! Error message symbol definitions ; 0306 1 ; 0307 1 %SBTTL 'Storage -- Local' ; 0308 1 ! ; 0309 1 ! OWN STORAGE: ; 0310 1 ! ; 0311 1 ; 0312 1 OWN ; 0313 1 ORG_DEFAULT_DIR_TEXT : VECTOR [MAX_FILE_NAME, BYTE], ! Text of default dir ; 0314 1 ORG_DEFAULT_DIR : BLOCK [8, BYTE], ! Original default directory ; 0315 1 ORG_DEFAULT_DEV_TEXT : VECTOR [MAX_FILE_NAME, BYTE], ! Text of default device ; 0316 1 ORG_DEFAULT_DEV : BLOCK [8, BYTE], ! Descriptor for orginal default device ; 0317 1 TIMER_HANDLE; ! Handle for timer ; 0318 1 ; 0319 1 ! ; 0320 1 %SBTTL 'External routines' ; 0321 1 ! ; 0322 1 ! EXTERNAL REFERENCES: ; 0323 1 ! ; 0324 1 ; 0325 1 EXTERNAL ROUTINE ; 0326 1 ! ; 0327 1 ! Library routines ; 0328 1 ! ; 0329 1 LIB$SIGNAL : ADDRESSING_MODE (GENERAL) NOVALUE, ; 0330 1 LIB$INIT_TIMER : ADDRESSING_MODE (GENERAL), ; 0331 1 LIB$STAT_TIMER : ADDRESSING_MODE (GENERAL), ; 0332 1 LIB$EDIV : ADDRESSING_MODE (GENERAL), ; 0333 1 LIB$SPAWN : ADDRESSING_MODE (GENERAL), ; 0334 1 OTS$CVT_L_TZ : ADDRESSING_MODE (GENERAL) NOVALUE, ; 0335 1 LIB$SET_LOGICAL : ADDRESSING_MODE (GENERAL), ; 0336 1 SYS$SETDDIR : ADDRESSING_MODE (GENERAL), ; 0337 1 ! ; 0338 1 ! KERTT - Text processing ; 0339 1 ! ; 0340 1 TT_INIT : NOVALUE, ! Initialization routine ; 0341 1 TT_TEXT : NOVALUE, ! Output a text string ; 0342 1 TT_NUMBER : NOVALUE, ! Output a number ; 0343 1 TT_CHAR : NOVALUE, ! Output a single character ; 0344 1 TT_OUTPUT : NOVALUE, ! Routine to dump the current ; 0345 1 ! text line. ; 0346 1 TT_CRLF : NOVALUE; ! Output the line ; 0347 1 ; 0348 1 %SBTTL 'External storage' ; 0349 1 ! ; 0350 1 ! EXTERNAL Storage: ; 0351 1 ! ; 0352 1 ; 0353 1 EXTERNAL ; 0354 1 ! ; 0355 1 ! KERMSG storage ; 0356 1 ! ; 0357 1 GEN_1DATA : VECTOR [CH$ALLOCATION (MAX_MSG)], ! Data for generic command ; 0358 1 GEN_1SIZE, ! Size of data in GEN_1DATA ; 0359 1 GEN_2DATA : VECTOR [CH$ALLOCATION (MAX_MSG)], ! Second argument for generic command ; 0360 1 GEN_2SIZE, ! Size of data in GEN_2DATA ; 0361 1 GEN_3DATA : VECTOR [CH$ALLOCATION (MAX_MSG)], ! Third arg for generic command ; 0362 1 GEN_3SIZE, ! Size of data in GEN_3DATA ; 0363 1 ! ; 0364 1 ! Misc constants. ; 0365 1 ! ; 0366 1 FILE_SIZE, ! Number of characters in FILE_NAME ; 0367 1 FILE_NAME : VECTOR [CH$ALLOCATION (MAX_FILE_NAME)]; ; 0368 1 ; 0369 1 %SBTTL 'SY_INIT - Initialize KERSYS' ; 0370 1 ; 0371 1 GLOBAL ROUTINE SY_INIT : NOVALUE = ; 0372 1 ; 0373 1 !++ ; 0374 1 ! FUNCTIONAL DESCRIPTION: ; 0375 1 ! ; 0376 1 ! This routine will initialize the module KERSYS. ; 0377 1 ! ; 0378 1 ! CALLING SEQUENCE: ; 0379 1 ! ; 0380 1 ! SY_INIT (); ; 0381 1 ! ; 0382 1 ! INPUT PARAMETERS: ; 0383 1 ! ; 0384 1 ! None. ; 0385 1 ! ; 0386 1 ! IMPLICIT INPUTS: ; 0387 1 ! ; 0388 1 ! None. ; 0389 1 ! ; 0390 1 ! OUPTUT PARAMETERS: ; 0391 1 ! ; 0392 1 ! None. ; 0393 1 ! ; 0394 1 ! IMPLICIT OUTPUTS: ; 0395 1 ! ; 0396 1 ! None. ; 0397 1 ! ; 0398 1 ! COMPLETION CODES: ; 0399 1 ! ; 0400 1 ! None. ; 0401 1 ! ; 0402 1 ! SIDE EFFECTS: ; 0403 1 ! ; 0404 1 ! KERSYS storage initialized ; 0405 1 ! ; 0406 1 !-- ; 0407 1 ; 0408 2 BEGIN ; 0409 2 ; 0410 2 LOCAL ; 0411 2 LENGTH, ! Length of default dir returned ; 0412 2 STATUS; ; 0413 2 ; 0414 2 TIMER_HANDLE = 0; ! Clear to get free block ; 0415 2 STATUS = LIB$INIT_TIMER (TIMER_HANDLE); ! Initialize ; 0416 2 ORG_DEFAULT_DIR [DSC$B_CLASS] = DSC$K_CLASS_S; ; 0417 2 ORG_DEFAULT_DIR [DSC$B_DTYPE] = DSC$K_DTYPE_T; ; 0418 2 ORG_DEFAULT_DIR [DSC$W_LENGTH] = MAX_FILE_NAME; ; 0419 2 ORG_DEFAULT_DIR [DSC$A_POINTER] = ORG_DEFAULT_DIR_TEXT; ; 0420 2 STATUS = SYS$SETDDIR (0, LENGTH, ORG_DEFAULT_DIR); ; 0421 2 ; 0422 2 IF .STATUS THEN ORG_DEFAULT_DIR [DSC$W_LENGTH] = .LENGTH ELSE ORG_DEFAULT_DIR [DSC$W_LENGTH] = 0; ; 0423 2 ; 0424 2 ORG_DEFAULT_DEV [DSC$B_CLASS] = DSC$K_CLASS_S; ; 0425 2 ORG_DEFAULT_DEV [DSC$B_DTYPE] = DSC$K_DTYPE_T; ; 0426 2 ORG_DEFAULT_DEV [DSC$W_LENGTH] = MAX_FILE_NAME; ; 0427 2 ORG_DEFAULT_DEV [DSC$A_POINTER] = ORG_DEFAULT_DEV_TEXT; ; 0428 2 STATUS = $TRNLOG (LOGNAM = %ASCID'SYS$DISK', RSLBUF = ORG_DEFAULT_DEV, RSLLEN = LENGTH); ; 0429 2 ; 0430 2 IF .STATUS THEN ORG_DEFAULT_DEV [DSC$W_LENGTH] = .LENGTH ELSE ORG_DEFAULT_DEV [DSC$W_LENGTH] = 0; ; 0431 2 ; 0432 1 END; ! End of SY_INIT .TITLE KERSYS .IDENT \3.0.045\ .PSECT $PLIT$,NOWRT,NOEXE,2 P.AAB: .ASCII \SYS$DISK\ ; ; P.AAA: .LONG 17694728 ; ; .ADDRESS P.AAB ; ; .PSECT $OWN$,NOEXE,2 ;ORG_DEFAULT_DIR_TEXT U.1: .BLKB 132 ;ORG_DEFAULT_DIR U.2: .BLKB 8 ;ORG_DEFAULT_DEV_TEXT U.3: .BLKB 132 ;ORG_DEFAULT_DEV U.4: .BLKB 8 ;TIMER_HANDLE U.5: .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 LIB$SIGNAL, LIB$INIT_TIMER, LIB$STAT_TIMER, LIB$EDIV, LIB$SPAWN, OTS$CVT_L_TZ, LIB$SET_LOGICAL .EXTRN SYS$SETDDIR, TT_INIT, TT_TEXT, TT_NUMBER, TT_CHAR, TT_OUTPUT, TT_CRLF, GEN_1DATA, GEN_1SIZE .EXTRN GEN_2DATA, GEN_2SIZE, GEN_3DATA, GEN_3SIZE, FILE_SIZE, FILE_NAME, SYS$TRNLOG .PSECT $CODE$,NOWRT,2 .ENTRY SY_INIT, ^M ;SY_INIT, Save R2 ; 0371 MOVAB W^U.2, R2 ;U.2, R2 ; SUBL2 #4, SP ;#4, SP ; CLRL 148(R2) ;TIMER_HANDLE ; 0414 PUSHAB 148(R2) ;TIMER_HANDLE ; 0415 CALLS #1, G^LIB$INIT_TIMER ;#1, LIB$INIT_TIMER ; MOVL #17694852, (R2) ;#17694852, ORG_DEFAULT_DIR ; 0418 MOVAB -132(R2), 4(R2) ;ORG_DEFAULT_DIR_TEXT, ORG_DEFAULT_DIR+4 ; 0419 PUSHL R2 ;R2 ; 0420 PUSHAB 4(SP) ;LENGTH ; CLRL -(SP) ;-(SP) ; CALLS #3, G^SYS$SETDDIR ;#3, SYS$SETDDIR ; BLBC R0, 1$ ;STATUS, 1$ ; 0422 MOVW (SP), (R2) ;LENGTH, ORG_DEFAULT_DIR ; BRB 2$ ;2$ ; 1$: CLRW (R2) ;ORG_DEFAULT_DIR ; 2$: MOVL #17694852, 140(R2) ;#17694852, ORG_DEFAULT_DEV ; 0426 MOVAB 8(R2), 144(R2) ;ORG_DEFAULT_DEV_TEXT, ORG_DEFAULT_DEV+4 ; 0427 CLRQ -(SP) ;-(SP) ; 0428 CLRL -(SP) ;-(SP) ; PUSHAB 140(R2) ;ORG_DEFAULT_DEV ; PUSHAB 16(SP) ;LENGTH ; PUSHAB W^P.AAA ;P.AAA ; CALLS #6, G^SYS$TRNLOG ;#6, SYS$TRNLOG ; BLBC R0, 3$ ;STATUS, 3$ ; 0430 MOVW (SP), 140(R2) ;LENGTH, ORG_DEFAULT_DEV ; RET ; ; 3$: CLRW 140(R2) ;ORG_DEFAULT_DEV ; RET ; ; 0432 ; Routine Size: 113 bytes, Routine Base: $CODE$ + 0000 ; 0433 1 ; 0434 1 %SBTTL 'SY_LOGOUT - delete the process.' ; 0435 1 ; 0436 1 GLOBAL ROUTINE SY_LOGOUT : NOVALUE = ; 0437 1 ; 0438 1 !++ ; 0439 1 ! FUNCTIONAL DESCRIPTION: ; 0440 1 ! ; 0441 1 ! This routine will delete this process. ; 0442 1 ! ; 0443 1 ! CALLING SEQUENCE: ; 0444 1 ! ; 0445 1 ! SY_LOGOUT (); ; 0446 1 ! ; 0447 1 ! INPUT PARAMETERS: ; 0448 1 ! ; 0449 1 ! None. ; 0450 1 ! ; 0451 1 ! IMPLICIT INPUTS: ; 0452 1 ! ; 0453 1 ! None. ; 0454 1 ! ; 0455 1 ! OUTPUT PARAMETERS: ; 0456 1 ! ; 0457 1 ! None. ; 0458 1 ! ; 0459 1 ! IMPLICIT OUTPUTS: ; 0460 1 ! ; 0461 1 ! None. ; 0462 1 ! ; 0463 1 ! COMPLETION CODES: ; 0464 1 ! ; 0465 1 ! None. ; 0466 1 ! ; 0467 1 ! SIDE EFFECTS: ; 0468 1 ! ; 0469 1 ! None. ; 0470 1 ! ; 0471 1 !-- ; 0472 1 ; 0473 2 BEGIN ; 0474 2 $DELPRC (); ; 0475 1 END; ! End of SY_LOGOUT .EXTRN SYS$DELPRC .ENTRY SY_LOGOUT, ^M<> ;SY_LOGOUT, Save nothing ; 0436 CLRQ -(SP) ;-(SP) ; 0474 CALLS #2, G^SYS$DELPRC ;#2, SYS$DELPRC ; RET ; ; 0475 ; Routine Size: 12 bytes, Routine Base: $CODE$ + 0071 ; 0476 1 ; 0477 1 %SBTTL 'SY_GENERIC - Perform a generic command' ; 0478 1 ; 0479 1 GLOBAL ROUTINE SY_GENERIC (GCMD_TYPE, STRING_ADDRESS, STRING_LENGTH, GET_CHR_RTN) = ; 0480 1 ; 0481 1 !++ ; 0482 1 ! FUNCTIONAL DESCRIPTION: ; 0483 1 ! ; 0484 1 ! This routine will perform a generic command. ; 0485 1 ! ; 0486 1 ! CALLING SEQUENCE: ; 0487 1 ! ; 0488 1 ! SY_GENERIC (GCMD_TYPE, STRING_ADDRESS, STRING_LENGTH, GET_CHR_RTN); ; 0489 1 ! ; 0490 1 ! INPUT PARAMETERS: ; 0491 1 ! ; 0492 1 ! GCMD_TYPE - GC_xxx value for command to be performed ; 0493 1 ! STRING_ADDRESS - Place to return address of string result ; 0494 1 ! STRING_LENGTH - Place to return length of string result ; 0495 1 ! GET_CHR_RTN - Place to return address of a get a character routine ; 0496 1 ! ; 0497 1 ! IMPLICIT INPUTS: ; 0498 1 ! ; 0499 1 ! None. ; 0500 1 ! ; 0501 1 ! OUTPUT PARAMETERS: ; 0502 1 ! ; 0503 1 ! Returns KER_xxx status ; 0504 1 ! ; 0505 1 ! IMPLICIT OUTPUTS: ; 0506 1 ! ; 0507 1 ! None. ; 0508 1 ! ; 0509 1 ! COMPLETION CODES: ; 0510 1 ! ; 0511 1 ! None. ; 0512 1 ! ; 0513 1 ! SIDE EFFECTS: ; 0514 1 ! ; 0515 1 ! None. ; 0516 1 ! ; 0517 1 !-- ; 0518 1 ; 0519 2 BEGIN ; 0520 2 ; 0521 2 LITERAL ; 0522 2 MAX_CMD_LEN = 2*MAX_MSG, ! Max command length ; 0523 2 MAX_MBX_LEN = 20; ! Max mailbox name length ; 0524 2 ; 0525 2 OWN ; 0526 2 RSP_TEXT : VECTOR [MAX_CMD_LEN, BYTE], ! Return text ; 0527 2 RSP_LEN; ! Length of return text ; 0528 2 ; 0529 2 LOCAL ; 0530 2 STATUS, ! Status results ; 0531 2 FLAGS, ! Flag word for LIB$SPAWN ; 0532 2 OUR_PID, ! Our PID value ; 0533 2 ITMLST : VECTOR [4, LONG], ! GETJPI argument ; 0534 2 POINTER, ! Character pointer ; 0535 2 MBX_CHAN, ! Channel for mail box ; 0536 2 COMMAND_LENGTH, ! Length of command string ; 0537 2 COMMAND_DESC : BLOCK [8, BYTE], ! Descriptor for command string ; 0538 2 COMMAND_STR : VECTOR [MAX_CMD_LEN, BYTE], ! Actual command string ; 0539 2 MBX_DESC : BLOCK [8, BYTE], ! Mailbox equivalence name ; 0540 2 MBX_NAME : VECTOR [MAX_MBX_LEN, BYTE]; ! Storage for MBX name ; 0541 2 ; 0542 2 ROUTINE PROCESS_COMPLETION_AST (MBX_CHAN) = ; 0543 2 ! ; 0544 2 ! This routine is called upon process completion (of the process we spawned ; 0545 2 ! to perform the command). It will ensure that the mailbox gets an end-of-file. ; 0546 2 ! ; 0547 3 BEGIN ; 0548 3 RETURN $QIO (CHAN = .MBX_CHAN, FUNC = IO$_WRITEOF); ! Write the EOF ; 0549 2 END; .PSECT $OWN$,NOEXE,2 ;RSP_TEXT U.9: .BLKB 192 ;RSP_LEN U.10: .BLKB 4 .EXTRN SYS$QIO .PSECT $CODE$,NOWRT,2 ;PROCESS_COMPLETION_AST U.11: .WORD ^M<> ;Save nothing ; 0542 CLRQ -(SP) ;-(SP) ; 0548 CLRQ -(SP) ;-(SP) ; CLRQ -(SP) ;-(SP) ; CLRQ -(SP) ;-(SP) ; MOVQ #40, -(SP) ;#40, -(SP) ; PUSHL 4(AP) ;MBX_CHAN ; CLRL -(SP) ;-(SP) ; CALLS #12, G^SYS$QIO ;#12, SYS$QIO ; RET ; ; 0549 ; Routine Size: 26 bytes, Routine Base: $CODE$ + 007D ; 0550 2 ROUTINE CONCAT (SRC_ADR, SRC_LEN, DST_PTR, DST_LEN) : NOVALUE = ; 0551 2 ! ; 0552 2 ! This routine is called to concatenate a string onto the current string ; 0553 2 ! ; 0554 3 BEGIN ; 0555 3 ; 0556 3 LOCAL ; 0557 3 LENGTH; ! Length we will actually move ; 0558 3 ; 0559 3 LENGTH = .SRC_LEN; ! Get total length ; 0560 3 ; 0561 3 IF .LENGTH GTR MAX_CMD_LEN - ..DST_LEN THEN LENGTH = MAX_CMD_LEN - ..DST_LEN; ; 0562 3 ; 0563 3 CH$MOVE (.LENGTH, CH$PTR (.SRC_ADR), ..DST_PTR); ; 0564 3 .DST_PTR = CH$PLUS (.LENGTH, ..DST_PTR); ; 0565 3 .DST_LEN = ..DST_LEN + .LENGTH; ! Update length ; 0566 2 END; ;CONCAT U.12: .WORD ^M ;Save R2,R3,R4,R5,R6,R7 ; 0550 MOVL 8(AP), R7 ;SRC_LEN, LENGTH ; 0559 SUBL3 #192, @16(AP), R1 ;#192, @DST_LEN, R1 ; 0561 MNEGL R1, R0 ;R1, R0 ; CMPL R7, R0 ;LENGTH, R0 ; BLEQ 1$ ;1$ ; MNEGL R1, R7 ;R1, LENGTH ; 1$: MOVL 12(AP), R6 ;DST_PTR, R6 ; 0563 MOVC3 R7, @4(AP), @0(R6) ;LENGTH, @SRC_ADR, @0(R6) ; ADDL2 R7, (R6) ;LENGTH, (R6) ; 0564 ADDL2 R7, @16(AP) ;LENGTH, @DST_LEN ; 0565 RET ; ; 0566 ; Routine Size: 44 bytes, Routine Base: $CODE$ + 0097 ; 0567 2 ! ; 0568 2 ! Initialize the command descriptor ; 0569 2 ! ; 0570 2 COMMAND_DESC [DSC$B_CLASS] = DSC$K_CLASS_S; ; 0571 2 COMMAND_DESC [DSC$B_DTYPE] = DSC$K_DTYPE_T; ; 0572 2 COMMAND_LENGTH = 0; ! Nothing here yet ; 0573 2 COMMAND_DESC [DSC$A_POINTER] = COMMAND_STR; ! Point at string storage ; 0574 2 POINTER = CH$PTR (COMMAND_STR); ; 0575 2 ! ; 0576 2 ! Determine what to do with the command ; 0577 2 ! ; 0578 2 ; 0579 2 CASE .GCMD_TYPE FROM GC_MIN TO GC_MAX OF ; 0580 2 SET ; 0581 2 ; 0582 2 [GC_COPY] : ; 0583 3 BEGIN ; 0584 3 ; 0585 3 EXTERNAL ; 0586 3 GEN_COPY_CMD : BLOCK [8, BYTE]; ; 0587 3 ; 0588 3 CONCAT (.GEN_COPY_CMD [DSC$A_POINTER], .GEN_COPY_CMD [DSC$W_LENGTH], POINTER, COMMAND_LENGTH); ; 0589 3 CONCAT (GEN_1DATA, .GEN_1SIZE, POINTER, COMMAND_LENGTH); ; 0590 3 CONCAT (UPLIT (%ASCII' '), 1, POINTER, COMMAND_LENGTH); ; 0591 3 CONCAT (GEN_2DATA, .GEN_2SIZE, POINTER, COMMAND_LENGTH); ; 0592 2 END; ; 0593 2 ; 0594 2 [GC_CONNECT] : ; 0595 3 BEGIN ; 0596 3 ; 0597 3 LOCAL ; 0598 3 LENGTH, ; 0599 3 DIR_FAB : $FAB_DECL, ! FAB for $PARSE ; 0600 3 DIR_NAM : $NAM_DECL, ! NAM for $PARSE ; 0601 3 EXP_STR : VECTOR [NAM$C_MAXRSS, BYTE], ! Expanded file spec ; 0602 3 DEV_DESC : BLOCK [8, BYTE], ! Descriptor for device name ; 0603 3 DIR_DESC : BLOCK [8, BYTE]; ; 0604 3 ; 0605 3 DIR_DESC [DSC$B_CLASS] = DSC$K_CLASS_S; ; 0606 3 DIR_DESC [DSC$B_DTYPE] = DSC$K_DTYPE_T; ; 0607 3 DEV_DESC [DSC$B_CLASS] = DSC$K_CLASS_S; ; 0608 3 DEV_DESC [DSC$B_DTYPE] = DSC$K_DTYPE_T; ; 0609 3 ; 0610 3 IF .GEN_1SIZE GTR 0 ; 0611 3 THEN ; 0612 4 BEGIN ; 0613 4 $FAB_INIT (FAB = DIR_FAB, FOP = NAM, NAM = DIR_NAM, FNA = GEN_1DATA, FNS = .GEN_1SIZE); ; 0614 4 $NAM_INIT (NAM = DIR_NAM, ESA = EXP_STR, ESS = NAM$C_MAXRSS); ; 0615 4 STATUS = $PARSE (FAB = DIR_FAB); ; 0616 4 ; 0617 4 IF NOT .STATUS ; 0618 4 THEN ; 0619 5 BEGIN ; 0620 5 LIB$SIGNAL (.STATUS); ; 0621 5 RETURN .STATUS; ; 0622 4 END; ; 0623 4 ; 0624 4 IF .DIR_NAM [NAM$B_NODE] GTR 0 ; 0625 4 THEN ; 0626 5 BEGIN ; 0627 5 DEV_DESC [DSC$A_POINTER] = .DIR_NAM [NAM$L_NODE]; ; 0628 5 DEV_DESC [DSC$W_LENGTH] = .DIR_NAM [NAM$B_NODE] + .DIR_NAM [NAM$B_DEV]; ; 0629 5 END ; 0630 4 ELSE ; 0631 5 BEGIN ; 0632 5 DEV_DESC [DSC$W_LENGTH] = .DIR_NAM [NAM$B_DEV]; ; 0633 5 DEV_DESC [DSC$A_POINTER] = .DIR_NAM [NAM$L_DEV]; ; 0634 4 END; ; 0635 4 ; 0636 4 DIR_DESC [DSC$W_LENGTH] = .DIR_NAM [NAM$B_DIR]; ; 0637 4 DIR_DESC [DSC$A_POINTER] = .DIR_NAM [NAM$L_DIR]; ; 0638 4 END ; 0639 3 ELSE ; 0640 4 BEGIN ; 0641 4 DIR_DESC [DSC$W_LENGTH] = .ORG_DEFAULT_DIR [DSC$W_LENGTH]; ; 0642 4 DIR_DESC [DSC$A_POINTER] = .ORG_DEFAULT_DIR [DSC$A_POINTER]; ; 0643 4 DEV_DESC [DSC$W_LENGTH] = .ORG_DEFAULT_DEV [DSC$W_LENGTH]; ; 0644 4 DEV_DESC [DSC$A_POINTER] = .ORG_DEFAULT_DEV [DSC$A_POINTER]; ; 0645 3 END; ; 0646 3 ; 0647 3 STATUS = LIB$SET_LOGICAL (%ASCID'SYS$DISK', DEV_DESC); ; 0648 3 ; 0649 3 IF NOT .STATUS ; 0650 3 THEN ; 0651 4 BEGIN ; 0652 4 LIB$SIGNAL (.STATUS); ; 0653 4 RETURN .STATUS; ; 0654 3 END; ; 0655 3 ; 0656 3 STATUS = SYS$SETDDIR (DIR_DESC, 0, 0); ; 0657 3 ; 0658 3 IF NOT .STATUS ; 0659 3 THEN ; 0660 4 BEGIN ; 0661 4 LIB$SIGNAL (.STATUS); ; 0662 4 RETURN .STATUS; ; 0663 3 END; ; 0664 3 ; 0665 3 DIR_DESC [DSC$A_POINTER] = GEN_1DATA; ; 0666 3 DIR_DESC [DSC$W_LENGTH] = MAX_MSG; ; 0667 3 STATUS = SYS$SETDDIR (0, DIR_DESC [DSC$W_LENGTH], DIR_DESC); ; 0668 3 ; 0669 3 IF NOT .STATUS ; 0670 3 THEN ; 0671 4 BEGIN ; 0672 4 LIB$SIGNAL (.STATUS); ; 0673 4 RETURN .STATUS; ; 0674 3 END; ; 0675 3 ; 0676 3 POINTER = CH$PTR (RSP_TEXT); ; 0677 3 RSP_LEN = 0; ; 0678 3 CONCAT (UPLIT (%ASCII'Default directory set to '), 25, POINTER, RSP_LEN); ; 0679 3 CONCAT (.DEV_DESC [DSC$A_POINTER], .DEV_DESC [DSC$W_LENGTH], POINTER, RSP_LEN); ; 0680 3 CONCAT (.DIR_DESC [DSC$A_POINTER], .DIR_DESC [DSC$W_LENGTH], POINTER, RSP_LEN); ; 0681 3 .STRING_ADDRESS = RSP_TEXT; ; 0682 3 .STRING_LENGTH = .RSP_LEN; ; 0683 3 RETURN KER_NORMAL; ; 0684 2 END; ; 0685 2 ; 0686 2 [GC_DELETE] : ; 0687 3 BEGIN ; 0688 3 ; 0689 3 EXTERNAL ; 0690 3 GEN_DELETE_CMD : BLOCK [8, BYTE]; ; 0691 3 ; 0692 3 CONCAT (.GEN_DELETE_CMD [DSC$A_POINTER], .GEN_DELETE_CMD [DSC$W_LENGTH], POINTER, COMMAND_LENGTH); ; 0693 3 CONCAT (GEN_1DATA, .GEN_1SIZE, POINTER, COMMAND_LENGTH); ; 0694 2 END; ; 0695 2 ; 0696 2 [GC_DIRECTORY] : ; 0697 3 BEGIN ; 0698 3 ; 0699 3 EXTERNAL ; 0700 3 GEN_DIR_CMD : BLOCK [8, BYTE]; ; 0701 3 ; 0702 3 CONCAT (.GEN_DIR_CMD [DSC$A_POINTER], .GEN_DIR_CMD [DSC$W_LENGTH], POINTER, COMMAND_LENGTH); ; 0703 3 CONCAT (GEN_1DATA, .GEN_1SIZE, POINTER, COMMAND_LENGTH); ; 0704 2 END; ; 0705 2 ; 0706 2 [GC_DISK_USAGE] : ; 0707 3 BEGIN ; 0708 3 ; 0709 3 EXTERNAL ; 0710 3 GEN_USG_CMD : BLOCK [8, BYTE], ! Command without arg ; 0711 3 GEN_USG_ARG_CMD : BLOCK [8, BYTE]; ! Command with arg ; 0712 3 ; 0713 3 IF .GEN_1SIZE LEQ 0 ; 0714 3 THEN ; 0715 4 BEGIN ; 0716 4 CONCAT (.GEN_USG_CMD [DSC$A_POINTER], .GEN_USG_CMD [DSC$W_LENGTH], POINTER, COMMAND_LENGTH); ; 0717 4 END ; 0718 3 ELSE ; 0719 4 BEGIN ; 0720 4 CONCAT (.GEN_USG_ARG_CMD [DSC$A_POINTER], .GEN_USG_ARG_CMD [DSC$W_LENGTH], POINTER, ; 0721 4 COMMAND_LENGTH); ; 0722 4 CONCAT (GEN_1DATA, .GEN_1SIZE, POINTER, COMMAND_LENGTH); ; 0723 3 END; ; 0724 3 ; 0725 2 END; ; 0726 2 ; 0727 2 [GC_HELP] : ; 0728 3 BEGIN ; 0729 3 ; 0730 3 EXTERNAL ; 0731 3 GEN_HELP_TEXT : BLOCK [8, BYTE]; ; 0732 3 ; 0733 3 .STRING_ADDRESS = .GEN_HELP_TEXT [DSC$A_POINTER]; ; 0734 3 .STRING_LENGTH = .GEN_HELP_TEXT [DSC$W_LENGTH]; ; 0735 3 RETURN KER_NORMAL; ; 0736 2 END; ; 0737 2 ; 0738 2 [GC_RENAME] : ; 0739 3 BEGIN ; 0740 3 ; 0741 3 EXTERNAL ; 0742 3 GEN_REN_CMD : BLOCK [8, BYTE]; ; 0743 3 ; 0744 3 CONCAT (.GEN_REN_CMD [DSC$A_POINTER], .GEN_REN_CMD [DSC$W_LENGTH], POINTER, COMMAND_LENGTH); ; 0745 3 CONCAT (GEN_1DATA, .GEN_1SIZE, POINTER, COMMAND_LENGTH); ; 0746 3 CONCAT (UPLIT (%ASCII' '), 1, POINTER, COMMAND_LENGTH); ; 0747 3 CONCAT (GEN_2DATA, .GEN_2SIZE, POINTER, COMMAND_LENGTH); ; 0748 2 END; ; 0749 2 ; 0750 2 [GC_SEND_MSG] : ; 0751 3 BEGIN ; 0752 3 ; 0753 3 EXTERNAL ; 0754 3 GEN_SEND_CMD : BLOCK [8, BYTE]; ; 0755 3 ; 0756 3 CONCAT (.GEN_SEND_CMD [DSC$A_POINTER], .GEN_SEND_CMD [DSC$W_LENGTH], POINTER, COMMAND_LENGTH); ; 0757 3 CONCAT (GEN_1DATA, .GEN_1SIZE, POINTER, COMMAND_LENGTH); ; 0758 3 CONCAT (UPLIT (%ASCII' "'), 2, POINTER, COMMAND_LENGTH); ; 0759 3 CONCAT (GEN_2DATA, .GEN_2SIZE, POINTER, COMMAND_LENGTH); ; 0760 3 CONCAT (UPLIT (%ASCII'"'), 1, POINTER, COMMAND_LENGTH); ; 0761 2 END; ; 0762 2 ; 0763 2 [GC_TYPE] : ; 0764 2 ! ; 0765 2 ! While KERMSG handles this for server requests, COMND_LOCAL in KERMIT does ; 0766 2 ! not. Therefore, set up the request to open the correct file. ; 0767 2 ! ; 0768 3 BEGIN ; 0769 3 CH$COPY (.GEN_1SIZE, GEN_1DATA, CHR_NUL, MAX_FILE_NAME, FILE_NAME); ; 0770 3 FILE_SIZE = .GEN_1SIZE; ; 0771 3 RETURN KER_NORMAL; ; 0772 2 END; ; 0773 2 ; 0774 2 [GC_WHO] : ; 0775 3 BEGIN ; 0776 3 ; 0777 3 EXTERNAL ; 0778 3 GEN_WHO_CMD : BLOCK [8, BYTE]; ; 0779 3 ; 0780 3 CONCAT (.GEN_WHO_CMD [DSC$A_POINTER], .GEN_WHO_CMD [DSC$W_LENGTH], POINTER, COMMAND_LENGTH); ; 0781 3 CONCAT (GEN_1DATA, .GEN_1SIZE, POINTER, COMMAND_LENGTH); ; 0782 3 CONCAT (GEN_2DATA, .GEN_2SIZE, POINTER, COMMAND_LENGTH); ; 0783 2 END; ; 0784 2 ; 0785 2 [GC_COMMAND] : ; 0786 2 ! Host command. Just pass it to the process ; 0787 2 CONCAT (GEN_1DATA, .GEN_1SIZE, POINTER, COMMAND_LENGTH); ; 0788 2 ; 0789 2 [INRANGE, OUTRANGE] : ; 0790 3 BEGIN ; 0791 3 LIB$SIGNAL (KER_UNIMPLGEN); ; 0792 3 RETURN KER_UNIMPLGEN; ! We don't do any ; 0793 2 END; ; 0794 2 TES; ; 0795 2 ; 0796 2 ! ; 0797 2 ! If we fall out of the case statement, we need to create a mailbox and ; 0798 2 ! spawn a process to perform the command with its output going to the ; 0799 2 ! mailbox ; 0800 2 ! ; 0801 2 COMMAND_DESC [DSC$W_LENGTH] = .COMMAND_LENGTH; ! Copy command length ; 0802 2 ITMLST [0] = JPI$_PID^16 + 4; ! Get PID ; 0803 2 ITMLST [1] = OUR_PID; ! Into OUR_PID ; 0804 2 ITMLST [2] = ITMLST [2]; ! Get length here ; 0805 2 ITMLST [3] = 0; ! End of list ; 0806 2 $GETJPI (ITMLST = ITMLST); ! Get info for us ; 0807 2 CH$COPY (11, CH$PTR (UPLIT (%ASCII'KERMIT$MBX_')), CHR_NUL, MAX_MBX_LEN, CH$PTR (MBX_NAME)); ; 0808 2 MBX_DESC [DSC$B_CLASS] = DSC$K_CLASS_S; ; 0809 2 MBX_DESC [DSC$B_DTYPE] = DSC$K_DTYPE_T; ; 0810 2 MBX_DESC [DSC$W_LENGTH] = MAX_MBX_LEN - 12; ! MBX name length ; 0811 2 MBX_DESC [DSC$A_POINTER] = MBX_NAME + 11; ! Where to build rest of name ; 0812 2 OTS$CVT_L_TZ (OUR_PID, MBX_DESC, MAX_MBX_LEN - 12); ! Generate rest of name ; 0813 2 MBX_DESC [DSC$W_LENGTH] = MAX_MBX_LEN - 1; ! Set total length for create ; 0814 2 MBX_DESC [DSC$A_POINTER] = MBX_NAME; ! Point at start of name ; 0815 2 STATUS = $CREMBX (CHAN = MBX_CHAN, LOGNAM = MBX_DESC); ; 0816 2 ; 0817 2 IF NOT .STATUS ; 0818 2 THEN ; 0819 3 BEGIN ; 0820 3 LIB$SIGNAL (.STATUS); ; 0821 3 RETURN .STATUS; ; 0822 2 END; ; 0823 2 ; 0824 2 MBX_NAME [MAX_MBX_LEN - 1] = %C':'; ! Terminate with colon ; 0825 2 MBX_DESC [DSC$W_LENGTH] = MAX_MBX_LEN; ! Set total length including colon ; 0826 2 CH$COPY (MAX_MBX_LEN - 1, CH$PTR (MBX_NAME), CHR_NUL, MAX_FILE_NAME, CH$PTR (FILE_NAME)); ; 0827 2 FILE_SIZE = MAX_MBX_LEN - 1; ! Set up FILE_NAME ; 0828 2 FLAGS = 1; ! Don't wait for process ; 0829 2 STATUS = LIB$SPAWN (COMMAND_DESC, 0, MBX_DESC, FLAGS, 0, 0, 0, 0, PROCESS_COMPLETION_AST, .MBX_CHAN); ; 0830 2 ; 0831 2 IF NOT .STATUS THEN LIB$SIGNAL (.STATUS); ; 0832 2 ; 0833 2 RETURN .STATUS; ; 0834 1 END; ! End of SY_GENERIC .PSECT $PLIT$,NOWRT,NOEXE,2 P.AAC: .ASCII \ \<0><0><0> ; ; P.AAE: .ASCII \SYS$DISK\ ; ; P.AAD: .LONG 17694728 ; ; .ADDRESS P.AAE ; ; P.AAF: .ASCII \Default directory set to \<0><0><0> ; ; P.AAG: .ASCII \ \<0><0><0> ; ; P.AAH: .ASCII \ "\<0><0> ; ; P.AAI: .ASCII \"\<0><0><0> ; ; P.AAJ: .ASCII \KERMIT$MBX_\<0> ; ; .EXTRN GEN_COPY_CMD, SYS$PARSE, GEN_DELETE_CMD, GEN_DIR_CMD, GEN_USG_CMD, GEN_USG_ARG_CMD .EXTRN GEN_HELP_TEXT, GEN_REN_CMD, GEN_SEND_CMD, GEN_WHO_CMD, SYS$GETJPI, SYS$CREMBX .PSECT $CODE$,NOWRT,2 .ENTRY SY_GENERIC, ^M ; ; MOVAB W^P.AAC, R11 ;P.AAC, R11 ; MOVAB W^GEN_1DATA, R10 ;GEN_1DATA, R10 ; MOVAB W^GEN_1SIZE, R9 ;GEN_1SIZE, R9 ; MOVAB W^U.10, R8 ;U.10, R8 ; MOVAB B^U.12, R7 ;U.12, R7 ; MOVAB -704(SP), SP ;-704(SP), SP ; MOVW #270, -22(FP) ;#270, COMMAND_DESC+2 ; 0571 CLRL -(SP) ;COMMAND_LENGTH ; 0572 MOVAB -216(FP), -20(FP) ;COMMAND_STR, COMMAND_DESC+4 ; 0573 MOVAB -216(FP), 4(SP) ;COMMAND_STR, POINTER ; 0574 CASEL 4(AP), #1, #18 ;GCMD_TYPE, #1, #18 ; 0579 1$: .WORD 2$-1$,- ;2$-1$,- ; 14$-1$,- ;14$-1$,- ; 15$-1$,- ;15$-1$,- ; 13$-1$,- ;13$-1$,- ; 22$-1$,- ;22$-1$,- ; 18$-1$,- ;18$-1$,- ; 2$-1$,- ;2$-1$,- ; 2$-1$,- ;2$-1$,- ; 4$-1$,- ;4$-1$,- ; 20$-1$,- ;20$-1$,- ; 3$-1$,- ;3$-1$,- ; 24$-1$,- ;24$-1$,- ; 21$-1$,- ;21$-1$,- ; 2$-1$,- ;2$-1$,- ; 26$-1$,- ;26$-1$,- ; 2$-1$,- ;2$-1$,- ; 2$-1$,- ;2$-1$,- ; 2$-1$,- ;2$-1$,- ; 2$-1$ ;2$-1$ ; 2$: PUSHL #134316210 ;#134316210 ; 0791 CALLS #1, G^LIB$SIGNAL ;#1, LIB$SIGNAL ; MOVL #134316210, R0 ;#134316210, R0 ; 0792 RET ; ; 3$: PUSHL SP ;SP ; 0588 PUSHAB 8(SP) ;POINTER ; MOVZWL W^GEN_COPY_CMD, -(SP) ;GEN_COPY_CMD, -(SP) ; PUSHL W^GEN_COPY_CMD+4 ;GEN_COPY_CMD+4 ; CALLS #4, (R7) ;#4, CONCAT ; PUSHL SP ;SP ; 0589 PUSHAB 8(SP) ;POINTER ; PUSHL (R9) ;GEN_1SIZE ; PUSHL R10 ;R10 ; CALLS #4, (R7) ;#4, CONCAT ; PUSHL SP ;SP ; 0590 PUSHAB 8(SP) ;POINTER ; PUSHL #1 ;#1 ; PUSHL R11 ;R11 ; BRW 25$ ;25$ ; 4$: MOVW #270, 22(SP) ;#270, DIR_DESC+2 ; 0606 MOVW #270, 30(SP) ;#270, DEV_DESC+2 ; 0608 MOVL (R9), R6 ;GEN_1SIZE, R6 ; 0610 BGTR 5$ ;5$ ; BRW 8$ ;8$ ; 5$: MOVC5 #0, (SP), #0, #80, -324(FP) ;#0, (SP), #0, #80, $RMS_PTR ; 0613 MOVW #20483, -324(FP) ;#20483, $RMS_PTR ; MOVL #16777216, -320(FP) ;#16777216, $RMS_PTR+4 ; MOVB #2, -302(FP) ;#2, $RMS_PTR+22 ; MOVB #2, -293(FP) ;#2, $RMS_PTR+31 ; MOVAB 288(SP), -284(FP) ;DIR_NAM, $RMS_PTR+40 ; MOVAB (R10), -280(FP) ;GEN_1DATA, $RMS_PTR+44 ; MOVB R6, -272(FP) ;R6, $RMS_PTR+52 ; MOVC5 #0, (SP), #0, #96, 288(SP) ;#0, (SP), #0, #96, $RMS_PTR ; 0614 MOVW #24578, 288(SP) ;#24578, $RMS_PTR ; MNEGB #4, 298(SP) ;#4, $RMS_PTR+10 ; MOVAB 36(SP), 300(SP) ;EXP_STR, $RMS_PTR+12 ; PUSHAB -324(FP) ;DIR_FAB ; 0615 CALLS #1, G^SYS$PARSE ;#1, SYS$PARSE ; MOVL R0, R6 ;R0, STATUS ; BLBC R6, 10$ ;STATUS, 10$ ; 0617 MOVZBL 344(SP), R0 ;DIR_NAM+56, R0 ; 0624 BLEQ 6$ ;6$ ; MOVL 352(SP), 32(SP) ;DIR_NAM+64, DEV_DESC+4 ; 0627 MOVZBL 345(SP), R1 ;DIR_NAM+57, R1 ; 0628 ADDW3 R1, R0, 28(SP) ;R1, R0, DEV_DESC ; BRB 7$ ;7$ ; 0624 6$: MOVZBW 345(SP), 28(SP) ;DIR_NAM+57, DEV_DESC ; 0632 MOVL -352(FP), 32(SP) ;DIR_NAM+68, DEV_DESC+4 ; 0633 7$: MOVZBW 346(SP), 20(SP) ;DIR_NAM+58, DIR_DESC ; 0636 MOVL -348(FP), 24(SP) ;DIR_NAM+72, DIR_DESC+4 ; 0637 BRB 9$ ;9$ ; 0610 8$: MOVW -344(R8), 20(SP) ;ORG_DEFAULT_DIR, DIR_DESC ; 0641 MOVL -340(R8), 24(SP) ;ORG_DEFAULT_DIR+4, DIR_DESC+4 ; 0642 MOVW -204(R8), 28(SP) ;ORG_DEFAULT_DEV, DEV_DESC ; 0643 MOVL -200(R8), 32(SP) ;ORG_DEFAULT_DEV+4, DEV_DESC+4 ; 0644 9$: PUSHAB 28(SP) ;DEV_DESC ; 0647 PUSHAB 12(R11) ;P.AAD ; CALLS #2, G^LIB$SET_LOGICAL ;#2, LIB$SET_LOGICAL ; MOVL R0, R6 ;R0, STATUS ; BLBC R6, 11$ ;STATUS, 11$ ; 0649 CLRQ -(SP) ;-(SP) ; 0656 PUSHAB 28(SP) ;DIR_DESC ; CALLS #3, G^SYS$SETDDIR ;#3, SYS$SETDDIR ; MOVL R0, R6 ;R0, STATUS ; 10$: BLBC R6, 11$ ;STATUS, 11$ ; 0658 MOVAB (R10), 24(SP) ;GEN_1DATA, DIR_DESC+4 ; 0665 MOVZBW #96, 20(SP) ;#96, DIR_DESC ; 0666 PUSHAB 20(SP) ;DIR_DESC ; 0667 PUSHAB 24(SP) ;DIR_DESC ; CLRL -(SP) ;-(SP) ; CALLS #3, G^SYS$SETDDIR ;#3, SYS$SETDDIR ; MOVL R0, R6 ;R0, STATUS ; 11$: BLBS R6, 12$ ;STATUS, 12$ ; 0669 BRW 28$ ;28$ ; 12$: MOVAB -192(R8), 4(SP) ;RSP_TEXT, POINTER ; 0676 CLRL (R8) ;RSP_LEN ; 0677 PUSHL R8 ;R8 ; 0678 PUSHAB 8(SP) ;POINTER ; PUSHL #25 ;#25 ; PUSHAB 20(R11) ;P.AAF ; CALLS #4, (R7) ;#4, CONCAT ; PUSHL R8 ;R8 ; 0679 PUSHAB 8(SP) ;POINTER ; MOVZWL 36(SP), -(SP) ;DEV_DESC, -(SP) ; PUSHL 44(SP) ;DEV_DESC+4 ; CALLS #4, (R7) ;#4, CONCAT ; PUSHL R8 ;R8 ; 0680 PUSHAB 8(SP) ;POINTER ; MOVZWL 28(SP), -(SP) ;DIR_DESC, -(SP) ; PUSHL 36(SP) ;DIR_DESC+4 ; CALLS #4, (R7) ;#4, CONCAT ; MOVAB -192(R8), @8(AP) ;RSP_TEXT, @STRING_ADDRESS ; 0681 MOVL (R8), @12(AP) ;RSP_LEN, @STRING_LENGTH ; 0682 BRB 19$ ;19$ ; 0683 13$: PUSHL SP ;SP ; 0692 PUSHAB 8(SP) ;POINTER ; MOVZWL W^GEN_DELETE_CMD, -(SP) ;GEN_DELETE_CMD, -(SP) ; PUSHL W^GEN_DELETE_CMD+4 ;GEN_DELETE_CMD+4 ; BRB 17$ ;17$ ; 14$: PUSHL SP ;SP ; 0702 PUSHAB 8(SP) ;POINTER ; MOVZWL W^GEN_DIR_CMD, -(SP) ;GEN_DIR_CMD, -(SP) ; PUSHL W^GEN_DIR_CMD+4 ;GEN_DIR_CMD+4 ; BRB 17$ ;17$ ; 15$: TSTL (R9) ;GEN_1SIZE ; 0713 BGTR 16$ ;16$ ; PUSHL SP ;SP ; 0716 PUSHAB 8(SP) ;POINTER ; MOVZWL W^GEN_USG_CMD, -(SP) ;GEN_USG_CMD, -(SP) ; PUSHL W^GEN_USG_CMD+4 ;GEN_USG_CMD+4 ; BRW 27$ ;27$ ; 16$: PUSHL SP ;SP ; 0720 PUSHAB 8(SP) ;POINTER ; MOVZWL W^GEN_USG_ARG_CMD, -(SP) ;GEN_USG_ARG_CMD, -(SP) ; PUSHL W^GEN_USG_ARG_CMD+4 ;GEN_USG_ARG_CMD+4 ; 17$: CALLS #4, (R7) ;#4, CONCAT ; BRW 26$ ;26$ ; 0722 18$: MOVL W^GEN_HELP_TEXT+4, @8(AP) ;GEN_HELP_TEXT+4, @STRING_ADDRESS ; 0733 MOVZWL W^GEN_HELP_TEXT, @12(AP) ;GEN_HELP_TEXT, @STRING_LENGTH ; 0734 19$: BRB 23$ ;23$ ; 0735 20$: PUSHL SP ;SP ; 0744 PUSHAB 8(SP) ;POINTER ; MOVZWL W^GEN_REN_CMD, -(SP) ;GEN_REN_CMD, -(SP) ; PUSHL W^GEN_REN_CMD+4 ;GEN_REN_CMD+4 ; CALLS #4, (R7) ;#4, CONCAT ; PUSHL SP ;SP ; 0745 PUSHAB 8(SP) ;POINTER ; PUSHL (R9) ;GEN_1SIZE ; PUSHL R10 ;R10 ; CALLS #4, (R7) ;#4, CONCAT ; PUSHL SP ;SP ; 0746 PUSHAB 8(SP) ;POINTER ; PUSHL #1 ;#1 ; PUSHAB 48(R11) ;P.AAG ; BRB 25$ ;25$ ; 21$: PUSHL SP ;SP ; 0756 PUSHAB 8(SP) ;POINTER ; MOVZWL W^GEN_SEND_CMD, -(SP) ;GEN_SEND_CMD, -(SP) ; PUSHL W^GEN_SEND_CMD+4 ;GEN_SEND_CMD+4 ; CALLS #4, (R7) ;#4, CONCAT ; PUSHL SP ;SP ; 0757 PUSHAB 8(SP) ;POINTER ; PUSHL (R9) ;GEN_1SIZE ; PUSHL R10 ;R10 ; CALLS #4, (R7) ;#4, CONCAT ; PUSHL SP ;SP ; 0758 PUSHAB 8(SP) ;POINTER ; PUSHL #2 ;#2 ; PUSHAB 52(R11) ;P.AAH ; CALLS #4, (R7) ;#4, CONCAT ; PUSHL SP ;SP ; 0759 PUSHAB 8(SP) ;POINTER ; PUSHL W^GEN_2SIZE ;GEN_2SIZE ; PUSHAB W^GEN_2DATA ;GEN_2DATA ; CALLS #4, (R7) ;#4, CONCAT ; PUSHL SP ;SP ; 0760 PUSHAB 8(SP) ;POINTER ; PUSHL #1 ;#1 ; PUSHAB 56(R11) ;P.AAI ; BRB 27$ ;27$ ; 22$: MOVC5 (R9), (R10), #0, #132, W^FILE_NAME ;GEN_1SIZE, GEN_1DATA, #0, #132, FILE_NAME ; 0769 MOVL (R9), W^FILE_SIZE ;GEN_1SIZE, FILE_SIZE ; 0770 23$: MOVL #134316043, R0 ;#134316043, R0 ; 0771 RET ; ; 24$: PUSHL SP ;SP ; 0780 PUSHAB 8(SP) ;POINTER ; MOVZWL W^GEN_WHO_CMD, -(SP) ;GEN_WHO_CMD, -(SP) ; PUSHL W^GEN_WHO_CMD+4 ;GEN_WHO_CMD+4 ; CALLS #4, (R7) ;#4, CONCAT ; PUSHL SP ;SP ; 0781 PUSHAB 8(SP) ;POINTER ; PUSHL (R9) ;GEN_1SIZE ; PUSHL R10 ;R10 ; 25$: CALLS #4, (R7) ;#4, CONCAT ; PUSHL SP ;SP ; 0782 PUSHAB 8(SP) ;POINTER ; PUSHL W^GEN_2SIZE ;GEN_2SIZE ; PUSHAB W^GEN_2DATA ;GEN_2DATA ; BRB 27$ ;27$ ; 26$: PUSHL SP ;SP ; 0787 PUSHAB 8(SP) ;POINTER ; PUSHL (R9) ;GEN_1SIZE ; PUSHL R10 ;R10 ; 27$: CALLS #4, (R7) ;#4, CONCAT ; MOVW (SP), -24(FP) ;COMMAND_LENGTH, COMMAND_DESC ; 0801 MOVL #51970052, -16(FP) ;#51970052, ITMLST ; 0802 MOVAB 8(SP), -12(FP) ;OUR_PID, ITMLST+4 ; 0803 MOVAB -8(FP), -8(FP) ;ITMLST+8, ITMLST+8 ; 0804 CLRL -4(FP) ;ITMLST+12 ; 0805 CLRQ -(SP) ;-(SP) ; 0806 CLRL -(SP) ;-(SP) ; PUSHAB -16(FP) ;ITMLST ; CLRQ -(SP) ;-(SP) ; CLRL -(SP) ;-(SP) ; CALLS #7, G^SYS$GETJPI ;#7, SYS$GETJPI ; MOVC5 #11, 60(R11), #0, #20, -244(FP) ;#11, P.AAJ, #0, #20, MBX_NAME ; 0807 MOVL #17694728, -224(FP) ;#17694728, MBX_DESC ; 0810 MOVAB -233(FP), -220(FP) ;MBX_NAME+11, MBX_DESC+4 ; 0811 PUSHL #8 ;#8 ; 0812 PUSHAB -224(FP) ;MBX_DESC ; PUSHAB 16(SP) ;OUR_PID ; CALLS #3, G^OTS$CVT_L_TZ ;#3, OTS$CVT_L_TZ ; MOVW #19, -224(FP) ;#19, MBX_DESC ; 0813 MOVAB -244(FP), -220(FP) ;MBX_NAME, MBX_DESC+4 ; 0814 PUSHAB -224(FP) ;MBX_DESC ; 0815 CLRQ -(SP) ;-(SP) ; CLRQ -(SP) ;-(SP) ; PUSHAB 32(SP) ;MBX_CHAN ; CLRL -(SP) ;-(SP) ; CALLS #7, G^SYS$CREMBX ;#7, SYS$CREMBX ; MOVL R0, R6 ;R0, STATUS ; BLBC R6, 28$ ;STATUS, 28$ ; 0817 MOVB #58, -225(FP) ;#58, MBX_NAME+19 ; 0824 MOVW #20, -224(FP) ;#20, MBX_DESC ; 0825 MOVC5 #19, -244(FP), #0, #132, W^FILE_NAME ;#19, MBX_NAME, #0, #132, FILE_NAME ; 0826 MOVL #19, W^FILE_SIZE ;#19, FILE_SIZE ; 0827 MOVL #1, 16(SP) ;#1, FLAGS ; 0828 PUSHL 12(SP) ;MBX_CHAN ; 0829 PUSHAB -26(R7) ;PROCESS_COMPLETION_AST ; CLRQ -(SP) ;-(SP) ; CLRQ -(SP) ;-(SP) ; PUSHAB 40(SP) ;FLAGS ; PUSHAB -224(FP) ;MBX_DESC ; CLRL -(SP) ;-(SP) ; PUSHAB -24(FP) ;COMMAND_DESC ; CALLS #10, G^LIB$SPAWN ;#10, LIB$SPAWN ; MOVL R0, R6 ;R0, STATUS ; BLBS R6, 29$ ;STATUS, 29$ ; 0831 28$: PUSHL R6 ;STATUS ; CALLS #1, G^LIB$SIGNAL ;#1, LIB$SIGNAL ; 29$: MOVL R6, R0 ;STATUS, R0 ; 0833 RET ; ; 0834 ; Routine Size: 960 bytes, Routine Base: $CODE$ + 00C3 ; 0835 1 ; 0836 1 %SBTTL 'SY_DISMISS - Sleep for N seconds' ; 0837 1 ; 0838 1 GLOBAL ROUTINE SY_DISMISS (SECONDS) : NOVALUE = ; 0839 1 ; 0840 1 !++ ; 0841 1 ! FUNCTIONAL DESCRIPTION: ; 0842 1 ! ; 0843 1 ! This routine is called to cause KERMIT to sleep for the ; 0844 1 ! specified number of seconds. ; 0845 1 ! ; 0846 1 ! CALLING SEQUENCE: ; 0847 1 ! ; 0848 1 ! SY_DISMISS(Number of seconds); ; 0849 1 ! ; 0850 1 ! INPUT PARAMETERS: ; 0851 1 ! ; 0852 1 ! Number of seconds to sleep. ; 0853 1 ! ; 0854 1 ! IMPLICIT INPUTS: ; 0855 1 ! ; 0856 1 ! None. ; 0857 1 ! ; 0858 1 ! OUTPUT PARAMETERS: ; 0859 1 ! ; 0860 1 ! None. ; 0861 1 ! ; 0862 1 ! IMPLICIT OUTPUTS: ; 0863 1 ! ; 0864 1 ! None. ; 0865 1 ! ; 0866 1 ! COMPLETION CODES: ; 0867 1 ! ; 0868 1 ! None. ; 0869 1 ! ; 0870 1 ! SIDE EFFECTS: ; 0871 1 ! ; 0872 1 ! None. ; 0873 1 ! ; 0874 1 !-- ; 0875 1 ; 0876 2 BEGIN ; 0877 2 ; 0878 2 LOCAL ; 0879 2 STATUS, ; 0880 2 TOTAL_TIME : VECTOR [2, LONG]; ! Quad word for length of time to sleep ; 0881 2 ; 0882 2 IF .SECONDS EQL 0 THEN RETURN KER_NORMAL; ; 0883 2 ; 0884 2 TOTAL_TIME [0] = -.SECONDS*10*1000*1000; ; 0885 2 TOTAL_TIME [1] = -1; ; 0886 2 STATUS = $SETIMR (EFN = 1, DAYTIM = TOTAL_TIME); ; 0887 2 ; 0888 2 IF NOT .STATUS THEN LIB$SIGNAL (.STATUS); ; 0889 2 ; 0890 2 STATUS = $WAITFR (EFN = 1); ; 0891 2 ; 0892 2 IF NOT .STATUS THEN LIB$SIGNAL (.STATUS); ; 0893 2 ; 0894 1 END; ! End of SY_DISMISS(time) .EXTRN SYS$SETIMR, SYS$WAITFR .ENTRY SY_DISMISS, ^M ;SY_DISMISS, Save R2,R3 ; 0838 MOVAB G^LIB$SIGNAL, R3 ;LIB$SIGNAL, R3 ; SUBL2 #8, SP ;#8, SP ; TSTL 4(AP) ;SECONDS ; 0882 BEQL 2$ ;2$ ; MULL3 #10000000, 4(AP), R0 ;#10000000, SECONDS, R0 ; 0884 MNEGL R0, (SP) ;R0, TOTAL_TIME ; MNEGL #1, 4(SP) ;#1, TOTAL_TIME+4 ; 0885 CLRQ -(SP) ;-(SP) ; 0886 PUSHAB 8(SP) ;TOTAL_TIME ; PUSHL #1 ;#1 ; CALLS #4, G^SYS$SETIMR ;#4, SYS$SETIMR ; MOVL R0, R2 ;R0, STATUS ; BLBS R2, 1$ ;STATUS, 1$ ; 0888 PUSHL R2 ;STATUS ; CALLS #1, (R3) ;#1, LIB$SIGNAL ; 1$: PUSHL #1 ;#1 ; 0890 CALLS #1, G^SYS$WAITFR ;#1, SYS$WAITFR ; MOVL R0, R2 ;R0, STATUS ; BLBS R2, 2$ ;STATUS, 2$ ; 0892 PUSHL R2 ;STATUS ; CALLS #1, (R3) ;#1, LIB$SIGNAL ; 2$: RET ; ; 0894 ; Routine Size: 79 bytes, Routine Base: $CODE$ + 0483 ; 0895 1 ; 0896 1 %SBTTL 'SY_TIME - Return elapsed time' ; 0897 1 ; 0898 1 GLOBAL ROUTINE SY_TIME = ; 0899 1 ; 0900 1 !++ ; 0901 1 ! FUNCTIONAL DESCRIPTION: ; 0902 1 ! ; 0903 1 ! This routine will return the elapsed time to the calling routine. ; 0904 1 ! This will allow for the calculation of the effective baud rate. ; 0905 1 ! ; 0906 1 ! CALLING SEQUENCE: ; 0907 1 ! ; 0908 1 ! TIME = SY_TIME (); ; 0909 1 ! ; 0910 1 ! INPUT PARAMETERS: ; 0911 1 ! ; 0912 1 ! None. ; 0913 1 ! ; 0914 1 ! IMPLICIT INPUTS: ; 0915 1 ! ; 0916 1 ! None. ; 0917 1 ! ; 0918 1 ! OUTPUT PARAMETERS: ; 0919 1 ! ; 0920 1 ! Time in milliseconds. ; 0921 1 ! ; 0922 1 ! IMPLICIT OUTPUTS: ; 0923 1 ! ; 0924 1 ! None. ; 0925 1 ! ; 0926 1 ! COMPLETION CODES: ; 0927 1 ! ; 0928 1 ! None. ; 0929 1 ! ; 0930 1 ! SIDE EFFECTS: ; 0931 1 ! ; 0932 1 ! None. ; 0933 1 ! ; 0934 1 !-- ; 0935 1 ; 0936 2 BEGIN ; 0937 2 ! ; 0938 2 ! Local storage ; 0939 2 ! ; 0940 2 ; 0941 2 LOCAL ; 0942 2 STATUS, ! Status returned by lower level ; 0943 2 TIMER_MILLI_SECONDS, ! Time in milliseconds ; 0944 2 TIMER_REMAINDER, ! Remainder on EDIV ; 0945 2 TIMER_VALUE : VECTOR [2, LONG], ! Quad word TIME value ; 0946 2 TEN_FOURTH : VECTOR [2, LONG], ! to hold 10**4 ; 0947 2 TIMER_CODE; ! Type of TIMER request ; 0948 2 ; 0949 2 ! ; 0950 2 ! Set up the type of request we want (elapsed time) ; 0951 2 ! ; 0952 2 TIMER_CODE = 1; ; 0953 2 ! ; 0954 2 ! Get the elapsed time from VMS ; 0955 2 ! ; 0956 2 STATUS = LIB$STAT_TIMER (TIMER_CODE, TIMER_VALUE, TIMER_HANDLE); ; 0957 2 ; 0958 2 IF NOT .STATUS THEN RETURN 0; ; 0959 2 ; 0960 2 ! ; 0961 2 ! Compute the LONG word value from the QUAD word given ; 0962 2 ! ; 0963 2 TEN_FOURTH [0] = 1000*10; ; 0964 2 TEN_FOURTH [1] = 0; ; 0965 2 STATUS = LIB$EDIV (TEN_FOURTH, TIMER_VALUE, TIMER_MILLI_SECONDS, TIMER_REMAINDER); ; 0966 2 ; 0967 2 IF NOT .STATUS THEN RETURN 0; ; 0968 2 ; 0969 2 RETURN .TIMER_MILLI_SECONDS; ; 0970 1 END; ! End of SY_TIME .ENTRY SY_TIME, ^M<> ;SY_TIME, Save nothing ; 0898 SUBL2 #24, SP ;#24, SP ; PUSHL #1 ;#1 ; 0952 PUSHAB W^U.5 ;U.5 ; 0956 PUSHAB 24(SP) ;TIMER_VALUE ; PUSHAB 8(SP) ;TIMER_CODE ; CALLS #3, G^LIB$STAT_TIMER ;#3, LIB$STAT_TIMER ; BLBC R0, 1$ ;STATUS, 1$ ; 0958 MOVZWL #10000, 12(SP) ;#10000, TEN_FOURTH ; 0963 CLRL 16(SP) ;TEN_FOURTH+4 ; 0964 PUSHAB 4(SP) ;TIMER_REMAINDER ; 0965 PUSHAB 12(SP) ;TIMER_MILLI_SECONDS ; PUSHAB 28(SP) ;TIMER_VALUE ; PUSHAB 24(SP) ;TEN_FOURTH ; CALLS #4, G^LIB$EDIV ;#4, LIB$EDIV ; BLBC R0, 1$ ;STATUS, 1$ ; 0967 MOVL 8(SP), R0 ;TIMER_MILLI_SECONDS, R0 ; 0969 RET ; ; 1$: CLRL R0 ;R0 ; 0970 RET ; ; ; Routine Size: 66 bytes, Routine Base: $CODE$ + 04D2 ; 0971 1 ; 0972 1 %SBTTL 'End of KERSYS.BLI' ; 0973 1 END ! End of module ; 0974 1 ; 0975 0 ELUDOM ; PSECT SUMMARY ; ; Name Bytes Attributes ; ; $OWN$ 480 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) ; $PLIT$ 88 NOVEC,NOWRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) ; $CODE$ 1300 NOVEC,NOWRT, RD , EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) ; . ABS . 0 NOVEC,NOWRT,NORD ,NOEXE,NOSHR, LCL, ABS, CON,NOPIC,ALIGN(0) ; Library Statistics ; ; -------- Symbols -------- Pages Processing ; File Total Loaded Percent Mapped Time ; ; SYS$SYSROOT:[SYSLIB]STARLET.L32;3 5809 76 1 326 00:00.7 ; SYS$SYSROOT:[SYSLIB]TPAMAC.L32;3 39 0 0 13 00:00.1 ; COMMAND QUALIFIERS ; BLISS KERSYS/LIST=KERSYS.MAR/MACHINE_CODE=(ASSEM,NOBINARY,UNIQUE)/NOOBJECT/SOURCE=NOHEADER ; Compilation Complete .END