; 0001 0 MODULE KERSYS (IDENT = '3.3.108', ; 0002 0 ADDRESSING_MODE(EXTERNAL = GENERAL, NONEXTERNAL = GENERAL) ; 0003 0 ) = ; 0004 1 BEGIN ; 0005 1 ; 0006 1 !++ ; 0007 1 ! FACILITY: ; 0008 1 ! KERMIT-32 ; 0009 1 ! ; 0010 1 ! ABSTRACT: ; 0011 1 ! KERMIT-32 is an implementation of the KERMIT protocal to allow the ; 0012 1 ! transfer of files from micro computers to the DECsystem-10, DECSYSTEM-20 ; 0013 1 ! and now the VAX/VMS systems. ; 0014 1 ! ; 0015 1 ! ENVIRONMENT: ; 0016 1 ! User mode ; 0017 1 ! ; 0018 1 ! AUTHOR: Robert C. McQueen, Nick Bush, CREATION DATE: 24-January-1983 ; 0019 1 ! ; 0020 1 ! MODIFIED BY: ; 0021 1 ! ; 0022 1 !-- ; 0023 1 ; 0024 1 %SBTTL 'Table of Contents' ; 0025 1 %SBTTL 'Revision History' ; 0026 1 ; 0027 1 !++ ; 0028 1 ! ; 0029 1 ! 2.0.032 By: Nick Bush On: 25-Feb-1984 ; 0030 1 ! Add code for LOCAL and REMOTE commands. These depend ; 0031 1 ! upon support in KERMSG and KERSYS. ; 0032 1 ! ; 0033 1 ! 3.0.045 Start of version 3. ; 0034 1 ! ; 0035 1 ! 3.1.057 By: Nick Bush On: 21-Feb-1985 ; 0036 1 ! Determine VMS version on startup and remember for later ; 0037 1 ! use. Use it in KERSYS to determine whether we will need ; 0038 1 ! to force an end-of-file on the mailbox when the subprocess ; 0039 1 ! on the other end goes away. ; 0040 1 ! ; 0041 1 ! 3.1.064 By: Nick Bush On: 30-March-1985 ; 0042 1 ! Fix LIB$SPAWN call to set SYS$INPUT for the subprocess ; 0043 1 ! to be NLA0: so that it doesn't try to input from the ; 0044 1 ! terminal. ; 0045 1 ! ; 0046 1 ! 3.1.066 By: Nick Bush On: 22-April-1985 ; 0047 1 ! Don't use NLA0: as SYS$INPUT when spawning things under VMS 3. ; 0048 1 ! ; 0049 1 ! Start of version 3.3 ; 0050 1 ! ; 0051 1 ! 3.3.101 By: Robert McQueen On: 2-July-1986 ; 0052 1 ! Change from $TRNLOG system service calls to LIB$SYS_TRNLOG ; 0053 1 ! library routine calls. ; 0054 1 ! ; 0055 1 ! 3.3.108 By: Antonino N. Mione On: 8-Sep-1986 ; 0056 1 ! Make KERMIT-32 close the terminal (so the terminal ; 0057 1 ! parameters are appropriately reset) upon reciept of ; 0058 1 ! a GENERIC LOGOUT packet. ; 0059 1 !-- ; 0060 1 ; 0061 1 %SBTTL 'Include files' ; 0062 1 ! ; 0063 1 ! INCLUDE FILES: ; 0064 1 ! ; 0065 1 ; 0066 1 LIBRARY 'SYS$LIBRARY:STARLET'; ; 0067 1 ; 0068 1 LIBRARY 'SYS$LIBRARY:TPAMAC'; ; 0069 1 ; 0070 1 REQUIRE 'KERCOM'; ! Common definitions ; 0278 1 ; 0279 1 REQUIRE 'KERERR'; ! Error message symbol definitions ; 0345 1 ; 0346 1 %SBTTL 'Storage -- Local' ; 0347 1 ! ; 0348 1 ! OWN STORAGE: ; 0349 1 ! ; 0350 1 ; 0351 1 OWN ; 0352 1 VMS_VERSION, ! Major version number of VMS ; 0353 1 ORG_DEFAULT_DIR_TEXT : VECTOR [MAX_FILE_NAME, BYTE], ! Text of default dir ; 0354 1 ORG_DEFAULT_DIR : BLOCK [8, BYTE], ! Original default directory ; 0355 1 ORG_DEFAULT_DEV_TEXT : VECTOR [MAX_FILE_NAME, BYTE], ! Text of default device ; 0356 1 ORG_DEFAULT_DEV : BLOCK [8, BYTE], ! Descriptor for orginal default device ; 0357 1 TIMER_HANDLE; ! Handle for timer ; 0358 1 ; 0359 1 ! ; 0360 1 %SBTTL 'External routines' ; 0361 1 ! ; 0362 1 ! EXTERNAL REFERENCES: ; 0363 1 ! ; 0364 1 ; 0365 1 EXTERNAL ROUTINE ; 0366 1 ! ; 0367 1 ! Library routines ; 0368 1 ! ; 0369 1 LIB$SIGNAL : ADDRESSING_MODE (GENERAL) NOVALUE, ; 0370 1 LIB$INIT_TIMER : ADDRESSING_MODE (GENERAL), ; 0371 1 LIB$STAT_TIMER : ADDRESSING_MODE (GENERAL), ; 0372 1 LIB$EDIV : ADDRESSING_MODE (GENERAL), ; 0373 1 LIB$SPAWN : ADDRESSING_MODE (GENERAL), ; 0374 1 OTS$CVT_L_TZ : ADDRESSING_MODE (GENERAL) NOVALUE, ; 0375 1 LIB$SET_LOGICAL : ADDRESSING_MODE (GENERAL), ; 0376 1 SYS$SETDDIR : ADDRESSING_MODE (GENERAL), ; 0377 1 ! ; 0378 1 ! KERTRM - Terminal handling routines ; 0379 1 ! ; 0380 1 TERM_CLOSE, ! Close terminal and restore characteristics ; 0381 1 ; 0382 1 ! ; 0383 1 ! KERTT - Text processing ; 0384 1 ! ; 0385 1 TT_INIT : NOVALUE, ! Initialization routine ; 0386 1 TT_TEXT : NOVALUE, ! Output a text string ; 0387 1 TT_NUMBER : NOVALUE, ! Output a number ; 0388 1 TT_CHAR : NOVALUE, ! Output a single character ; 0389 1 TT_OUTPUT : NOVALUE, ! Routine to dump the current ; 0390 1 ! text line. ; 0391 1 TT_CRLF : NOVALUE; ! Output the line ; 0392 1 ; 0393 1 %SBTTL 'External storage' ; 0394 1 ! ; 0395 1 ! EXTERNAL Storage: ; 0396 1 ! ; 0397 1 ; 0398 1 EXTERNAL ; 0399 1 ! ; 0400 1 ! KERMSG storage ; 0401 1 ! ; 0402 1 GEN_1DATA : VECTOR [CH$ALLOCATION (MAX_MSG)], ! Data for generic command ; 0403 1 GEN_1SIZE, ! Size of data in GEN_1DATA ; 0404 1 GEN_2DATA : VECTOR [CH$ALLOCATION (MAX_MSG)], ! Second argument for generic command ; 0405 1 GEN_2SIZE, ! Size of data in GEN_2DATA ; 0406 1 GEN_3DATA : VECTOR [CH$ALLOCATION (MAX_MSG)], ! Third arg for generic command ; 0407 1 GEN_3SIZE, ! Size of data in GEN_3DATA ; 0408 1 ! ; 0409 1 ! Misc constants. ; 0410 1 ! ; 0411 1 FILE_SIZE, ! Number of characters in FILE_NAME ; 0412 1 FILE_NAME : VECTOR [CH$ALLOCATION (MAX_FILE_NAME)]; ; 0413 1 ; 0414 1 %SBTTL 'SY_INIT - Initialize KERSYS' ; 0415 1 ; 0416 1 GLOBAL ROUTINE SY_INIT : NOVALUE = ; 0417 1 ; 0418 1 !++ ; 0419 1 ! FUNCTIONAL DESCRIPTION: ; 0420 1 ! ; 0421 1 ! This routine will initialize the module KERSYS. ; 0422 1 ! ; 0423 1 ! CALLING SEQUENCE: ; 0424 1 ! ; 0425 1 ! SY_INIT (); ; 0426 1 ! ; 0427 1 ! INPUT PARAMETERS: ; 0428 1 ! ; 0429 1 ! None. ; 0430 1 ! ; 0431 1 ! IMPLICIT INPUTS: ; 0432 1 ! ; 0433 1 ! None. ; 0434 1 ! ; 0435 1 ! OUPTUT PARAMETERS: ; 0436 1 ! ; 0437 1 ! None. ; 0438 1 ! ; 0439 1 ! IMPLICIT OUTPUTS: ; 0440 1 ! ; 0441 1 ! None. ; 0442 1 ! ; 0443 1 ! COMPLETION CODES: ; 0444 1 ! ; 0445 1 ! None. ; 0446 1 ! ; 0447 1 ! SIDE EFFECTS: ; 0448 1 ! ; 0449 1 ! KERSYS storage initialized ; 0450 1 ! ; 0451 1 !-- ; 0452 1 ; 0453 2 BEGIN ; 0454 2 ; 0455 2 LITERAL ; 0456 2 SYI_EFN = 10; ! EFN to use for $GETSYI ; 0457 2 ; 0458 2 LOCAL ; 0459 2 VERSION_STRING : VECTOR [8, BYTE], ! Return version string here ; 0460 2 VERSION_LENGTH, ! And length here ; 0461 2 SYI_ITEM_LIST : BLOCK [16, BYTE], ! Argument list for $GETSYI ; 0462 2 LENGTH, ! Length of default dir returned ; 0463 2 STATUS; ; 0464 2 ; 0465 2 EXTERNAL ROUTINE ; 0466 2 LIB$SYS_TRNLOG : ADDRESSING_MODE(GENERAL); ; 0467 2 ; 0468 2 ! ; 0469 2 ! Set up arg list for $GETSYI ; 0470 2 ! ; 0471 2 SYI_ITEM_LIST [0, 0, 16, 0] = 8; ! We expect an 8-byte string ; 0472 2 SYI_ITEM_LIST [2, 0, 16, 0] = SYI$_VERSION; ! Want the VMS version ; 0473 2 SYI_ITEM_LIST [4, 0, 32, 0] = VERSION_STRING; ! Put it here ; 0474 2 SYI_ITEM_LIST [8, 0, 32, 0] = VERSION_LENGTH; ! Length goes here ; 0475 2 SYI_ITEM_LIST [12, 0, 32, 0] = 0; ! End the list ; 0476 2 STATUS = $GETSYI (EFN=SYI_EFN, ITMLST=SYI_ITEM_LIST); ! Get the data ; 0477 2 IF NOT .STATUS ! If we can't get the version ; 0478 2 THEN ; 0479 2 VMS_VERSION = 0 ! Assume very old VMS? ; 0480 2 ELSE ; 0481 3 BEGIN ; 0482 3 STATUS = $WAITFR (EFN=SYI_EFN); ! Wait for completion ; 0483 3 IF .STATUS ! If we got it ; 0484 3 THEN ; 0485 4 BEGIN ; 0486 4 IF .VERSION_STRING [0] GEQ %C'0' AND ; 0487 4 .VERSION_STRING [0] LEQ %C'9' ! If first character is numeric ; 0488 4 THEN ; 0489 4 VMS_VERSION = (.VERSION_STRING[0] - %C'0')*10 ! save first digit ; 0490 4 ELSE ; 0491 4 VMS_VERSION = 0; ! No first digit, store 0 ; 0492 4 VMS_VERSION = .VMS_VERSION + .VERSION_STRING[1] - %C'0' ! Get rest of version ; 0493 4 END ; 0494 3 ELSE ; 0495 3 VMS_VERSION = 0; ! Can't get version? ; 0496 2 END; ; 0497 2 ! ; 0498 2 ! Initialize the timer we will use ; 0499 2 ! ; 0500 2 TIMER_HANDLE = 0; ! Clear to get free block ; 0501 2 STATUS = LIB$INIT_TIMER (TIMER_HANDLE); ! Initialize ; 0502 2 ! ; 0503 2 ! Set up original default directory ; 0504 2 ! ; 0505 2 ORG_DEFAULT_DIR [DSC$B_CLASS] = DSC$K_CLASS_S; ; 0506 2 ORG_DEFAULT_DIR [DSC$B_DTYPE] = DSC$K_DTYPE_T; ; 0507 2 ORG_DEFAULT_DIR [DSC$W_LENGTH] = MAX_FILE_NAME; ; 0508 2 ORG_DEFAULT_DIR [DSC$A_POINTER] = ORG_DEFAULT_DIR_TEXT; ; 0509 2 STATUS = SYS$SETDDIR (0, LENGTH, ORG_DEFAULT_DIR); ; 0510 2 ; 0511 2 IF .STATUS THEN ORG_DEFAULT_DIR [DSC$W_LENGTH] = .LENGTH ELSE ORG_DEFAULT_DIR [DSC$W_LENGTH] = 0; ; 0512 2 ! ; 0513 2 ! Get original default device ; 0514 2 ! ; 0515 2 ORG_DEFAULT_DEV [DSC$B_CLASS] = DSC$K_CLASS_S; ; 0516 2 ORG_DEFAULT_DEV [DSC$B_DTYPE] = DSC$K_DTYPE_T; ; 0517 2 ORG_DEFAULT_DEV [DSC$W_LENGTH] = MAX_FILE_NAME; ; 0518 2 ORG_DEFAULT_DEV [DSC$A_POINTER] = ORG_DEFAULT_DEV_TEXT; ; 0519 2 STATUS = LIB$SYS_TRNLOG (%ASCID'SYS$DISK', LENGTH, ORG_DEFAULT_DEV); ; 0520 2 ; 0521 2 IF .STATUS EQL SS$_NOTRAN ! No translation? ; 0522 2 THEN ; 0523 2 LENGTH = 0; ! Yes, set the length to zero ; 0524 2 IF .STATUS THEN ORG_DEFAULT_DEV [DSC$W_LENGTH] = .LENGTH ELSE ORG_DEFAULT_DEV [DSC$W_LENGTH] = 0; ; 0525 2 ; 0526 1 END; ! End of SY_INIT .TITLE KERSYS .IDENT \3.3.108\ .PSECT $PLIT$,NOWRT,NOEXE,2 P.AAB: .ASCII \SYS$DISK\ ; ; P.AAA: .LONG 17694728 ; ; .ADDRESS P.AAB ; ; .PSECT $OWN$,NOEXE,2 ;VMS_VERSION U.1: .BLKB 4 ;ORG_DEFAULT_DIR_TEXT U.2: .BLKB 132 ;ORG_DEFAULT_DIR U.3: .BLKB 8 ;ORG_DEFAULT_DEV_TEXT U.4: .BLKB 132 ;ORG_DEFAULT_DEV U.5: .BLKB 8 ;TIMER_HANDLE U.6: .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, TERM_CLOSE, TT_INIT, TT_TEXT, TT_NUMBER, TT_CHAR, TT_OUTPUT, TT_CRLF .EXTRN GEN_1DATA, GEN_1SIZE, GEN_2DATA, GEN_2SIZE, GEN_3DATA, GEN_3SIZE, FILE_SIZE, FILE_NAME .EXTRN LIB$SYS_TRNLOG, SYS$GETSYI, SYS$WAITFR .PSECT $CODE$,NOWRT,2 .ENTRY SY_INIT, ^M ;SY_INIT, Save R2 ; 0416 MOVAB G^U.1, R2 ;U.1, R2 ; SUBL2 #32, SP ;#32, SP ; MOVL #268435464, 8(SP) ;#268435464, SYI_ITEM_LIST ; 0471 MOVAB 24(SP), 12(SP) ;VERSION_STRING, SYI_ITEM_LIST+4 ; 0473 MOVAB (SP), 16(SP) ;VERSION_LENGTH, SYI_ITEM_LIST+8 ; 0474 CLRL 20(SP) ;SYI_ITEM_LIST+12 ; 0475 CLRQ -(SP) ;-(SP) ; 0476 CLRL -(SP) ;-(SP) ; PUSHAB 20(SP) ;SYI_ITEM_LIST ; CLRQ -(SP) ;-(SP) ; PUSHL #10 ;#10 ; CALLS #7, G^SYS$GETSYI ;#7, SYS$GETSYI ; BLBC R0, 3$ ;STATUS, 3$ ; 0477 PUSHL #10 ;#10 ; 0482 CALLS #1, G^SYS$WAITFR ;#1, SYS$WAITFR ; BLBC R0, 3$ ;STATUS, 3$ ; 0483 CMPB 24(SP), #48 ;VERSION_STRING, #48 ; 0486 BLSSU 1$ ;1$ ; CMPB 24(SP), #57 ;VERSION_STRING, #57 ; 0487 BGTRU 1$ ;1$ ; MOVZBL 24(SP), R1 ;VERSION_STRING, R1 ; 0489 SUBL2 #48, R1 ;#48, R1 ; MULL3 #10, R1, (R2) ;#10, R1, VMS_VERSION ; BRB 2$ ;2$ ; 1$: CLRL (R2) ;VMS_VERSION ; 0491 2$: MOVZBL 25(SP), R1 ;VERSION_STRING+1, R1 ; 0492 ADDL2 (R2), R1 ;VMS_VERSION, R1 ; MOVAB -48(R1), (R2) ;-48(R1), VMS_VERSION ; BRB 4$ ;4$ ; 3$: CLRL (R2) ;VMS_VERSION ; 0495 4$: CLRL 284(R2) ;TIMER_HANDLE ; 0500 PUSHAB 284(R2) ;TIMER_HANDLE ; 0501 CALLS #1, G^LIB$INIT_TIMER ;#1, LIB$INIT_TIMER ; MOVL #17694852, 136(R2) ;#17694852, ORG_DEFAULT_DIR ; 0507 MOVAB 4(R2), 140(R2) ;ORG_DEFAULT_DIR_TEXT, ORG_DEFAULT_DIR+4 ; 0508 PUSHAB 136(R2) ;ORG_DEFAULT_DIR ; 0509 PUSHAB 8(SP) ;LENGTH ; CLRL -(SP) ;-(SP) ; CALLS #3, G^SYS$SETDDIR ;#3, SYS$SETDDIR ; BLBC R0, 5$ ;STATUS, 5$ ; 0511 MOVW 4(SP), 136(R2) ;LENGTH, ORG_DEFAULT_DIR ; BRB 6$ ;6$ ; 5$: CLRW 136(R2) ;ORG_DEFAULT_DIR ; 6$: MOVL #17694852, 276(R2) ;#17694852, ORG_DEFAULT_DEV ; 0517 MOVAB 144(R2), 280(R2) ;ORG_DEFAULT_DEV_TEXT, ORG_DEFAULT_DEV+4 ; 0518 PUSHAB 276(R2) ;ORG_DEFAULT_DEV ; 0519 PUSHAB 8(SP) ;LENGTH ; PUSHAB G^P.AAA ;P.AAA ; CALLS #3, G^LIB$SYS_TRNLOG ;#3, LIB$SYS_TRNLOG ; CMPL R0, #1577 ;STATUS, #1577 ; 0521 BNEQ 7$ ;7$ ; CLRL 4(SP) ;LENGTH ; 0523 7$: BLBC R0, 8$ ;STATUS, 8$ ; 0524 MOVW 4(SP), 276(R2) ;LENGTH, ORG_DEFAULT_DEV ; RET ; ; 8$: CLRW 276(R2) ;ORG_DEFAULT_DEV ; RET ; ; 0526 ; Routine Size: 231 bytes, Routine Base: $CODE$ + 0000 ; 0527 1 ; 0528 1 %SBTTL 'SY_LOGOUT - delete the process.' ; 0529 1 ; 0530 1 GLOBAL ROUTINE SY_LOGOUT : NOVALUE = ; 0531 1 ; 0532 1 !++ ; 0533 1 ! FUNCTIONAL DESCRIPTION: ; 0534 1 ! ; 0535 1 ! This routine will delete this process. ; 0536 1 ! ; 0537 1 ! CALLING SEQUENCE: ; 0538 1 ! ; 0539 1 ! SY_LOGOUT (); ; 0540 1 ! ; 0541 1 ! INPUT PARAMETERS: ; 0542 1 ! ; 0543 1 ! None. ; 0544 1 ! ; 0545 1 ! IMPLICIT INPUTS: ; 0546 1 ! ; 0547 1 ! None. ; 0548 1 ! ; 0549 1 ! OUTPUT PARAMETERS: ; 0550 1 ! ; 0551 1 ! None. ; 0552 1 ! ; 0553 1 ! IMPLICIT OUTPUTS: ; 0554 1 ! ; 0555 1 ! None. ; 0556 1 ! ; 0557 1 ! COMPLETION CODES: ; 0558 1 ! ; 0559 1 ! None. ; 0560 1 ! ; 0561 1 ! SIDE EFFECTS: ; 0562 1 ! ; 0563 1 ! None. ; 0564 1 ! ; 0565 1 !-- ; 0566 1 ; 0567 2 BEGIN ; 0568 2 TERM_CLOSE(); ![108] Close the terminal early ; 0569 2 $DELPRC (); ; 0570 1 END; ! End of SY_LOGOUT .EXTRN SYS$DELPRC .ENTRY SY_LOGOUT, ^M<> ;SY_LOGOUT, Save nothing ; 0530 CALLS #0, G^TERM_CLOSE ;#0, TERM_CLOSE ; 0568 CLRQ -(SP) ;-(SP) ; 0569 CALLS #2, G^SYS$DELPRC ;#2, SYS$DELPRC ; RET ; ; 0570 ; Routine Size: 19 bytes, Routine Base: $CODE$ + 00E7 ; 0571 1 ; 0572 1 %SBTTL 'SY_GENERIC - Perform a generic command' ; 0573 1 ; 0574 1 GLOBAL ROUTINE SY_GENERIC (GCMD_TYPE, STRING_ADDRESS, STRING_LENGTH, GET_CHR_RTN) = ; 0575 1 ; 0576 1 !++ ; 0577 1 ! FUNCTIONAL DESCRIPTION: ; 0578 1 ! ; 0579 1 ! This routine will perform a generic command. ; 0580 1 ! ; 0581 1 ! CALLING SEQUENCE: ; 0582 1 ! ; 0583 1 ! SY_GENERIC (GCMD_TYPE, STRING_ADDRESS, STRING_LENGTH, GET_CHR_RTN); ; 0584 1 ! ; 0585 1 ! INPUT PARAMETERS: ; 0586 1 ! ; 0587 1 ! GCMD_TYPE - GC_xxx value for command to be performed ; 0588 1 ! STRING_ADDRESS - Place to return address of string result ; 0589 1 ! STRING_LENGTH - Place to return length of string result ; 0590 1 ! GET_CHR_RTN - Place to return address of a get a character routine ; 0591 1 ! ; 0592 1 ! IMPLICIT INPUTS: ; 0593 1 ! ; 0594 1 ! None. ; 0595 1 ! ; 0596 1 ! OUTPUT PARAMETERS: ; 0597 1 ! ; 0598 1 ! Returns KER_xxx status ; 0599 1 ! ; 0600 1 ! IMPLICIT OUTPUTS: ; 0601 1 ! ; 0602 1 ! None. ; 0603 1 ! ; 0604 1 ! COMPLETION CODES: ; 0605 1 ! ; 0606 1 ! None. ; 0607 1 ! ; 0608 1 ! SIDE EFFECTS: ; 0609 1 ! ; 0610 1 ! None. ; 0611 1 ! ; 0612 1 !-- ; 0613 1 ; 0614 2 BEGIN ; 0615 2 ; 0616 2 LITERAL ; 0617 2 MAX_CMD_LEN = 2*MAX_MSG, ! Max command length ; 0618 2 MAX_MBX_LEN = 20; ! Max mailbox name length ; 0619 2 ; 0620 2 OWN ; 0621 2 RSP_TEXT : VECTOR [MAX_CMD_LEN, BYTE], ! Return text ; 0622 2 RSP_LEN; ! Length of return text ; 0623 2 ; 0624 2 LOCAL ; 0625 2 STATUS, ! Status results ; 0626 2 FLAGS, ! Flag word for LIB$SPAWN ; 0627 2 OUR_PID, ! Our PID value ; 0628 2 ITMLST : VECTOR [4, LONG], ! GETJPI argument ; 0629 2 POINTER, ! Character pointer ; 0630 2 MBX_CHAN, ! Channel for mail box ; 0631 2 COMMAND_LENGTH, ! Length of command string ; 0632 2 COMMAND_DESC : BLOCK [8, BYTE], ! Descriptor for command string ; 0633 2 COMMAND_STR : VECTOR [MAX_CMD_LEN, BYTE], ! Actual command string ; 0634 2 MBX_DESC : BLOCK [8, BYTE], ! Mailbox equivalence name ; 0635 2 MBX_NAME : VECTOR [MAX_MBX_LEN, BYTE]; ! Storage for MBX name ; 0636 2 ; 0637 2 ROUTINE PROCESS_COMPLETION_AST (MBX_CHAN) = ; 0638 2 ! ; 0639 2 ! This routine is called upon process completion (of the process we spawned ; 0640 2 ! to perform the command). It will ensure that the mailbox gets an end-of-file. ; 0641 2 ! ; 0642 3 BEGIN ; 0643 3 RETURN $QIO (CHAN = .MBX_CHAN, FUNC = IO$_WRITEOF); ! Write the EOF ; 0644 2 END; .PSECT $OWN$,NOEXE,2 ;RSP_TEXT U.10: .BLKB 192 ;RSP_LEN U.11: .BLKB 4 .EXTRN SYS$QIO .PSECT $CODE$,NOWRT,2 ;PROCESS_COMPLETION_AST U.12: .WORD ^M<> ;Save nothing ; 0637 CLRQ -(SP) ;-(SP) ; 0643 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 ; ; 0644 ; Routine Size: 26 bytes, Routine Base: $CODE$ + 00FA ; 0645 2 ROUTINE CONCAT (SRC_ADR, SRC_LEN, DST_PTR, DST_LEN) : NOVALUE = ; 0646 2 ! ; 0647 2 ! This routine is called to concatenate a string onto the current string ; 0648 2 ! ; 0649 3 BEGIN ; 0650 3 ; 0651 3 LOCAL ; 0652 3 LENGTH; ! Length we will actually move ; 0653 3 ; 0654 3 LENGTH = .SRC_LEN; ! Get total length ; 0655 3 ; 0656 3 IF .LENGTH GTR MAX_CMD_LEN - ..DST_LEN THEN LENGTH = MAX_CMD_LEN - ..DST_LEN; ; 0657 3 ; 0658 3 CH$MOVE (.LENGTH, CH$PTR (.SRC_ADR), ..DST_PTR); ; 0659 3 .DST_PTR = CH$PLUS (.LENGTH, ..DST_PTR); ; 0660 3 .DST_LEN = ..DST_LEN + .LENGTH; ! Update length ; 0661 2 END; ;CONCAT U.13: .WORD ^M ;Save R2,R3,R4,R5,R6,R7 ; 0645 MOVL 8(AP), R7 ;SRC_LEN, LENGTH ; 0654 SUBL3 #192, @16(AP), R1 ;#192, @DST_LEN, R1 ; 0656 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 ; 0658 MOVC3 R7, @4(AP), @0(R6) ;LENGTH, @SRC_ADR, @0(R6) ; ADDL2 R7, (R6) ;LENGTH, (R6) ; 0659 ADDL2 R7, @16(AP) ;LENGTH, @DST_LEN ; 0660 RET ; ; 0661 ; Routine Size: 44 bytes, Routine Base: $CODE$ + 0114 ; 0662 2 ! ; 0663 2 ! Initialize the command descriptor ; 0664 2 ! ; 0665 2 COMMAND_DESC [DSC$B_CLASS] = DSC$K_CLASS_S; ; 0666 2 COMMAND_DESC [DSC$B_DTYPE] = DSC$K_DTYPE_T; ; 0667 2 COMMAND_LENGTH = 0; ! Nothing here yet ; 0668 2 COMMAND_DESC [DSC$A_POINTER] = COMMAND_STR; ! Point at string storage ; 0669 2 POINTER = CH$PTR (COMMAND_STR); ; 0670 2 ! ; 0671 2 ! Determine what to do with the command ; 0672 2 ! ; 0673 2 ; 0674 2 CASE .GCMD_TYPE FROM GC_MIN TO GC_MAX OF ; 0675 2 SET ; 0676 2 ; 0677 2 [GC_COPY] : ; 0678 3 BEGIN ; 0679 3 ; 0680 3 EXTERNAL ; 0681 3 GEN_COPY_CMD : BLOCK [8, BYTE]; ; 0682 3 ; 0683 3 CONCAT (.GEN_COPY_CMD [DSC$A_POINTER], .GEN_COPY_CMD [DSC$W_LENGTH], POINTER, COMMAND_LENGTH); ; 0684 3 CONCAT (GEN_1DATA, .GEN_1SIZE, POINTER, COMMAND_LENGTH); ; 0685 3 CONCAT (UPLIT (%ASCII' '), 1, POINTER, COMMAND_LENGTH); ; 0686 3 CONCAT (GEN_2DATA, .GEN_2SIZE, POINTER, COMMAND_LENGTH); ; 0687 2 END; ; 0688 2 ; 0689 2 [GC_CONNECT] : ; 0690 3 BEGIN ; 0691 3 ; 0692 3 LOCAL ; 0693 3 LENGTH, ; 0694 3 DIR_FAB : $FAB_DECL, ! FAB for $PARSE ; 0695 3 DIR_NAM : $NAM_DECL, ! NAM for $PARSE ; 0696 3 EXP_STR : VECTOR [NAM$C_MAXRSS, BYTE], ! Expanded file spec ; 0697 3 DEV_DESC : BLOCK [8, BYTE], ! Descriptor for device name ; 0698 3 DIR_DESC : BLOCK [8, BYTE]; ; 0699 3 ; 0700 3 DIR_DESC [DSC$B_CLASS] = DSC$K_CLASS_S; ; 0701 3 DIR_DESC [DSC$B_DTYPE] = DSC$K_DTYPE_T; ; 0702 3 DEV_DESC [DSC$B_CLASS] = DSC$K_CLASS_S; ; 0703 3 DEV_DESC [DSC$B_DTYPE] = DSC$K_DTYPE_T; ; 0704 3 ; 0705 3 IF .GEN_1SIZE GTR 0 ; 0706 3 THEN ; 0707 4 BEGIN ; 0708 4 $FAB_INIT (FAB = DIR_FAB, FOP = NAM, NAM = DIR_NAM, FNA = GEN_1DATA, FNS = .GEN_1SIZE); ; 0709 4 $NAM_INIT (NAM = DIR_NAM, ESA = EXP_STR, ESS = NAM$C_MAXRSS); ; 0710 4 STATUS = $PARSE (FAB = DIR_FAB); ; 0711 4 ; 0712 4 IF NOT .STATUS ; 0713 4 THEN ; 0714 5 BEGIN ; 0715 5 LIB$SIGNAL (.STATUS); ; 0716 5 RETURN .STATUS; ; 0717 4 END; ; 0718 4 ; 0719 4 IF .DIR_NAM [NAM$B_NODE] GTR 0 ; 0720 4 THEN ; 0721 5 BEGIN ; 0722 5 DEV_DESC [DSC$A_POINTER] = .DIR_NAM [NAM$L_NODE]; ; 0723 5 DEV_DESC [DSC$W_LENGTH] = .DIR_NAM [NAM$B_NODE] + .DIR_NAM [NAM$B_DEV]; ; 0724 5 END ; 0725 4 ELSE ; 0726 5 BEGIN ; 0727 5 DEV_DESC [DSC$W_LENGTH] = .DIR_NAM [NAM$B_DEV]; ; 0728 5 DEV_DESC [DSC$A_POINTER] = .DIR_NAM [NAM$L_DEV]; ; 0729 4 END; ; 0730 4 ; 0731 4 DIR_DESC [DSC$W_LENGTH] = .DIR_NAM [NAM$B_DIR]; ; 0732 4 DIR_DESC [DSC$A_POINTER] = .DIR_NAM [NAM$L_DIR]; ; 0733 4 END ; 0734 3 ELSE ; 0735 4 BEGIN ; 0736 4 DIR_DESC [DSC$W_LENGTH] = .ORG_DEFAULT_DIR [DSC$W_LENGTH]; ; 0737 4 DIR_DESC [DSC$A_POINTER] = .ORG_DEFAULT_DIR [DSC$A_POINTER]; ; 0738 4 DEV_DESC [DSC$W_LENGTH] = .ORG_DEFAULT_DEV [DSC$W_LENGTH]; ; 0739 4 DEV_DESC [DSC$A_POINTER] = .ORG_DEFAULT_DEV [DSC$A_POINTER]; ; 0740 3 END; ; 0741 3 ; 0742 3 STATUS = LIB$SET_LOGICAL (%ASCID'SYS$DISK', DEV_DESC); ; 0743 3 ; 0744 3 IF NOT .STATUS ; 0745 3 THEN ; 0746 4 BEGIN ; 0747 4 LIB$SIGNAL (.STATUS); ; 0748 4 RETURN .STATUS; ; 0749 3 END; ; 0750 3 ; 0751 3 STATUS = SYS$SETDDIR (DIR_DESC, 0, 0); ; 0752 3 ; 0753 3 IF NOT .STATUS ; 0754 3 THEN ; 0755 4 BEGIN ; 0756 4 LIB$SIGNAL (.STATUS); ; 0757 4 RETURN .STATUS; ; 0758 3 END; ; 0759 3 ; 0760 3 DIR_DESC [DSC$A_POINTER] = GEN_1DATA; ; 0761 3 DIR_DESC [DSC$W_LENGTH] = MAX_MSG; ; 0762 3 STATUS = SYS$SETDDIR (0, DIR_DESC [DSC$W_LENGTH], DIR_DESC); ; 0763 3 ; 0764 3 IF NOT .STATUS ; 0765 3 THEN ; 0766 4 BEGIN ; 0767 4 LIB$SIGNAL (.STATUS); ; 0768 4 RETURN .STATUS; ; 0769 3 END; ; 0770 3 ; 0771 3 POINTER = CH$PTR (RSP_TEXT); ; 0772 3 RSP_LEN = 0; ; 0773 3 CONCAT (UPLIT (%ASCII'Default directory set to '), 25, POINTER, RSP_LEN); ; 0774 3 CONCAT (.DEV_DESC [DSC$A_POINTER], .DEV_DESC [DSC$W_LENGTH], POINTER, RSP_LEN); ; 0775 3 CONCAT (.DIR_DESC [DSC$A_POINTER], .DIR_DESC [DSC$W_LENGTH], POINTER, RSP_LEN); ; 0776 3 .STRING_ADDRESS = RSP_TEXT; ; 0777 3 .STRING_LENGTH = .RSP_LEN; ; 0778 3 RETURN KER_NORMAL; ; 0779 2 END; ; 0780 2 ; 0781 2 [GC_DELETE] : ; 0782 3 BEGIN ; 0783 3 ; 0784 3 EXTERNAL ; 0785 3 GEN_DELETE_CMD : BLOCK [8, BYTE]; ; 0786 3 ; 0787 3 CONCAT (.GEN_DELETE_CMD [DSC$A_POINTER], .GEN_DELETE_CMD [DSC$W_LENGTH], POINTER, COMMAND_LENGTH); ; 0788 3 CONCAT (GEN_1DATA, .GEN_1SIZE, POINTER, COMMAND_LENGTH); ; 0789 2 END; ; 0790 2 ; 0791 2 [GC_DIRECTORY] : ; 0792 3 BEGIN ; 0793 3 ; 0794 3 EXTERNAL ; 0795 3 GEN_DIR_CMD : BLOCK [8, BYTE]; ; 0796 3 ; 0797 3 CONCAT (.GEN_DIR_CMD [DSC$A_POINTER], .GEN_DIR_CMD [DSC$W_LENGTH], POINTER, COMMAND_LENGTH); ; 0798 3 CONCAT (GEN_1DATA, .GEN_1SIZE, POINTER, COMMAND_LENGTH); ; 0799 2 END; ; 0800 2 ; 0801 2 [GC_DISK_USAGE] : ; 0802 3 BEGIN ; 0803 3 ; 0804 3 EXTERNAL ; 0805 3 GEN_USG_CMD : BLOCK [8, BYTE], ! Command without arg ; 0806 3 GEN_USG_ARG_CMD : BLOCK [8, BYTE]; ! Command with arg ; 0807 3 ; 0808 3 IF .GEN_1SIZE LEQ 0 ; 0809 3 THEN ; 0810 4 BEGIN ; 0811 4 CONCAT (.GEN_USG_CMD [DSC$A_POINTER], .GEN_USG_CMD [DSC$W_LENGTH], POINTER, COMMAND_LENGTH); ; 0812 4 END ; 0813 3 ELSE ; 0814 4 BEGIN ; 0815 4 CONCAT (.GEN_USG_ARG_CMD [DSC$A_POINTER], .GEN_USG_ARG_CMD [DSC$W_LENGTH], POINTER, ; 0816 4 COMMAND_LENGTH); ; 0817 4 CONCAT (GEN_1DATA, .GEN_1SIZE, POINTER, COMMAND_LENGTH); ; 0818 3 END; ; 0819 3 ; 0820 2 END; ; 0821 2 ; 0822 2 [GC_HELP] : ; 0823 3 BEGIN ; 0824 3 ; 0825 3 EXTERNAL ; 0826 3 GEN_HELP_TEXT : BLOCK [8, BYTE]; ; 0827 3 ; 0828 3 .STRING_ADDRESS = .GEN_HELP_TEXT [DSC$A_POINTER]; ; 0829 3 .STRING_LENGTH = .GEN_HELP_TEXT [DSC$W_LENGTH]; ; 0830 3 RETURN KER_NORMAL; ; 0831 2 END; ; 0832 2 ; 0833 2 [GC_RENAME] : ; 0834 3 BEGIN ; 0835 3 ; 0836 3 EXTERNAL ; 0837 3 GEN_REN_CMD : BLOCK [8, BYTE]; ; 0838 3 ; 0839 3 CONCAT (.GEN_REN_CMD [DSC$A_POINTER], .GEN_REN_CMD [DSC$W_LENGTH], POINTER, COMMAND_LENGTH); ; 0840 3 CONCAT (GEN_1DATA, .GEN_1SIZE, POINTER, COMMAND_LENGTH); ; 0841 3 CONCAT (UPLIT (%ASCII' '), 1, POINTER, COMMAND_LENGTH); ; 0842 3 CONCAT (GEN_2DATA, .GEN_2SIZE, POINTER, COMMAND_LENGTH); ; 0843 2 END; ; 0844 2 ; 0845 2 [GC_SEND_MSG] : ; 0846 3 BEGIN ; 0847 3 ; 0848 3 EXTERNAL ; 0849 3 GEN_SEND_CMD : BLOCK [8, BYTE]; ; 0850 3 ; 0851 3 CONCAT (.GEN_SEND_CMD [DSC$A_POINTER], .GEN_SEND_CMD [DSC$W_LENGTH], POINTER, COMMAND_LENGTH); ; 0852 3 CONCAT (GEN_1DATA, .GEN_1SIZE, POINTER, COMMAND_LENGTH); ; 0853 3 CONCAT (UPLIT (%ASCII' "'), 2, POINTER, COMMAND_LENGTH); ; 0854 3 CONCAT (GEN_2DATA, .GEN_2SIZE, POINTER, COMMAND_LENGTH); ; 0855 3 CONCAT (UPLIT (%ASCII'"'), 1, POINTER, COMMAND_LENGTH); ; 0856 2 END; ; 0857 2 ; 0858 2 [GC_TYPE] : ; 0859 2 ! ; 0860 2 ! While KERMSG handles this for server requests, COMND_LOCAL in KERMIT does ; 0861 2 ! not. Therefore, set up the request to open the correct file. ; 0862 2 ! ; 0863 3 BEGIN ; 0864 3 CH$COPY (.GEN_1SIZE, GEN_1DATA, CHR_NUL, MAX_FILE_NAME, FILE_NAME); ; 0865 3 FILE_SIZE = .GEN_1SIZE; ; 0866 3 RETURN KER_NORMAL; ; 0867 2 END; ; 0868 2 ; 0869 2 [GC_WHO] : ; 0870 3 BEGIN ; 0871 3 ; 0872 3 EXTERNAL ; 0873 3 GEN_WHO_CMD : BLOCK [8, BYTE]; ; 0874 3 ; 0875 3 CONCAT (.GEN_WHO_CMD [DSC$A_POINTER], .GEN_WHO_CMD [DSC$W_LENGTH], POINTER, COMMAND_LENGTH); ; 0876 3 CONCAT (GEN_1DATA, .GEN_1SIZE, POINTER, COMMAND_LENGTH); ; 0877 3 CONCAT (GEN_2DATA, .GEN_2SIZE, POINTER, COMMAND_LENGTH); ; 0878 2 END; ; 0879 2 ; 0880 2 [GC_COMMAND] : ; 0881 2 ! Host command. Just pass it to the process ; 0882 2 CONCAT (GEN_1DATA, .GEN_1SIZE, POINTER, COMMAND_LENGTH); ; 0883 2 ; 0884 2 [INRANGE, OUTRANGE] : ; 0885 3 BEGIN ; 0886 3 LIB$SIGNAL (KER_UNIMPLGEN); ; 0887 3 RETURN KER_UNIMPLGEN; ! We don't do any ; 0888 2 END; ; 0889 2 TES; ; 0890 2 ; 0891 2 ! ; 0892 2 ! If we fall out of the case statement, we need to create a mailbox and ; 0893 2 ! spawn a process to perform the command with its output going to the ; 0894 2 ! mailbox ; 0895 2 ! ; 0896 2 COMMAND_DESC [DSC$W_LENGTH] = .COMMAND_LENGTH; ! Copy command length ; 0897 2 ITMLST [0] = JPI$_PID^16 + 4; ! Get PID ; 0898 2 ITMLST [1] = OUR_PID; ! Into OUR_PID ; 0899 2 ITMLST [2] = ITMLST [2]; ! Get length here ; 0900 2 ITMLST [3] = 0; ! End of list ; 0901 2 $GETJPI (ITMLST = ITMLST); ! Get info for us ; 0902 2 CH$COPY (11, CH$PTR (UPLIT (%ASCII'KERMIT$MBX_')), CHR_NUL, ! Build name ; 0903 2 MAX_MBX_LEN, CH$PTR (MBX_NAME)); ! for mailbox ; 0904 2 MBX_DESC [DSC$B_CLASS] = DSC$K_CLASS_S; ; 0905 2 MBX_DESC [DSC$B_DTYPE] = DSC$K_DTYPE_T; ; 0906 2 MBX_DESC [DSC$W_LENGTH] = MAX_MBX_LEN - 12; ! MBX name length ; 0907 2 MBX_DESC [DSC$A_POINTER] = MBX_NAME + 11; ! Where to build rest of name ; 0908 2 OTS$CVT_L_TZ (OUR_PID, MBX_DESC, MAX_MBX_LEN - 12); ! Generate rest of name ; 0909 2 MBX_DESC [DSC$W_LENGTH] = MAX_MBX_LEN - 1; ! Set total length for create ; 0910 2 MBX_DESC [DSC$A_POINTER] = MBX_NAME; ! Point at start of name ; 0911 2 STATUS = $CREMBX (CHAN = MBX_CHAN, LOGNAM = MBX_DESC); ; 0912 2 ; 0913 2 IF NOT .STATUS ; 0914 2 THEN ; 0915 3 BEGIN ; 0916 3 LIB$SIGNAL (.STATUS); ; 0917 3 RETURN .STATUS; ; 0918 2 END; ; 0919 2 ; 0920 2 MBX_NAME [MAX_MBX_LEN - 1] = %C':'; ! Terminate with colon ; 0921 2 MBX_DESC [DSC$W_LENGTH] = MAX_MBX_LEN; ! Set total length including colon ; 0922 2 CH$COPY (MAX_MBX_LEN - 1, CH$PTR (MBX_NAME), CHR_NUL, MAX_FILE_NAME, CH$PTR (FILE_NAME)); ; 0923 2 FILE_SIZE = MAX_MBX_LEN - 1; ! Set up FILE_NAME ; 0924 2 FLAGS = 1; ! Don't wait for process ; 0925 2 STATUS = LIB$SPAWN ( ! Spawn a DCL subprocess ; 0926 2 COMMAND_DESC, ! to do this command ; 0927 3 (IF .VMS_VERSION LEQ 3 ! If old VMS ; 0928 3 THEN ; 0929 3 0 ! Then no SYS$INPUT arg ; 0930 3 ELSE ; 0931 2 %ASCID'NLA0:'), ! no SYS$INPUT ; 0932 2 MBX_DESC, ! set SYS$OUTPUT to mailbox ; 0933 2 FLAGS, ! don't wait for process to complete ; 0934 2 0, ! Process name ; 0935 2 0, ! process id ; 0936 2 0, ! completion status ; 0937 2 0, ! ? ; 0938 3 (IF .VMS_VERSION LEQ 3 ! If VMS 3 or earlier ; 0939 3 THEN ; 0940 3 PROCESS_COMPLETION_AST ! We need to force eof ; 0941 3 ELSE ! when process finishes ; 0942 2 0), ! 4.0 and on we get one free ; 0943 2 .MBX_CHAN); ! feed ast routine this value ; 0944 2 ; 0945 2 IF NOT .STATUS THEN LIB$SIGNAL (.STATUS); ; 0946 2 ; 0947 2 RETURN .STATUS; ; 0948 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> ; ; P.AAL: .ASCII \NLA0:\<0><0><0> ; ; P.AAK: .LONG 17694725 ; ; .ADDRESS P.AAL ; ; .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 G^P.AAC, R11 ;P.AAC, R11 ; MOVAB G^GEN_1DATA, R10 ;GEN_1DATA, R10 ; MOVAB G^GEN_1SIZE, R9 ;GEN_1SIZE, R9 ; MOVAB G^U.11, R8 ;U.11, R8 ; MOVAB B^U.13, R7 ;U.13, R7 ; MOVAB -708(SP), SP ;-708(SP), SP ; MOVW #270, -22(FP) ;#270, COMMAND_DESC+2 ; 0666 CLRL -(SP) ;COMMAND_LENGTH ; 0667 MOVAB -216(FP), -20(FP) ;COMMAND_STR, COMMAND_DESC+4 ; 0668 MOVAB -216(FP), 4(SP) ;COMMAND_STR, POINTER ; 0669 CASEL 4(AP), #1, #18 ;GCMD_TYPE, #1, #18 ; 0674 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 ; 0886 CALLS #1, G^LIB$SIGNAL ;#1, LIB$SIGNAL ; MOVL #134316210, R0 ;#134316210, R0 ; 0887 RET ; ; 3$: PUSHL SP ;SP ; 0683 PUSHAB 8(SP) ;POINTER ; MOVZWL G^GEN_COPY_CMD, -(SP) ;GEN_COPY_CMD, -(SP) ; PUSHL G^GEN_COPY_CMD+4 ;GEN_COPY_CMD+4 ; CALLS #4, (R7) ;#4, CONCAT ; PUSHL SP ;SP ; 0684 PUSHAB 8(SP) ;POINTER ; PUSHL (R9) ;GEN_1SIZE ; PUSHL R10 ;R10 ; CALLS #4, (R7) ;#4, CONCAT ; PUSHL SP ;SP ; 0685 PUSHAB 8(SP) ;POINTER ; PUSHL #1 ;#1 ; PUSHL R11 ;R11 ; BRW 25$ ;25$ ; 4$: MOVW #270, 22(SP) ;#270, DIR_DESC+2 ; 0701 MOVW #270, 30(SP) ;#270, DEV_DESC+2 ; 0703 MOVL (R9), R6 ;GEN_1SIZE, R6 ; 0705 BGTR 5$ ;5$ ; BRW 8$ ;8$ ; 5$: MOVC5 #0, (SP), #0, #80, -324(FP) ;#0, (SP), #0, #80, $RMS_PTR ; 0708 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 292(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, 292(SP) ;#0, (SP), #0, #96, $RMS_PTR ; 0709 MOVW #24578, 292(SP) ;#24578, $RMS_PTR ; MNEGB #1, 302(SP) ;#1, $RMS_PTR+10 ; MOVAB 36(SP), 304(SP) ;EXP_STR, $RMS_PTR+12 ; PUSHAB -324(FP) ;DIR_FAB ; 0710 CALLS #1, G^SYS$PARSE ;#1, SYS$PARSE ; MOVL R0, R6 ;R0, STATUS ; BLBC R6, 10$ ;STATUS, 10$ ; 0712 MOVZBL 348(SP), R0 ;DIR_NAM+56, R0 ; 0719 BLEQ 6$ ;6$ ; MOVL -356(FP), 32(SP) ;DIR_NAM+64, DEV_DESC+4 ; 0722 MOVZBL 349(SP), R1 ;DIR_NAM+57, R1 ; 0723 ADDW3 R1, R0, 28(SP) ;R1, R0, DEV_DESC ; BRB 7$ ;7$ ; 6$: MOVZBW 349(SP), 28(SP) ;DIR_NAM+57, DEV_DESC ; 0727 MOVL -352(FP), 32(SP) ;DIR_NAM+68, DEV_DESC+4 ; 0728 7$: MOVZBW 350(SP), 20(SP) ;DIR_NAM+58, DIR_DESC ; 0731 MOVL -348(FP), 24(SP) ;DIR_NAM+72, DIR_DESC+4 ; 0732 BRB 9$ ;9$ ; 8$: MOVW -344(R8), 20(SP) ;ORG_DEFAULT_DIR, DIR_DESC ; 0736 MOVL -340(R8), 24(SP) ;ORG_DEFAULT_DIR+4, DIR_DESC+4 ; 0737 MOVW -204(R8), 28(SP) ;ORG_DEFAULT_DEV, DEV_DESC ; 0738 MOVL -200(R8), 32(SP) ;ORG_DEFAULT_DEV+4, DEV_DESC+4 ; 0739 9$: PUSHAB 28(SP) ;DEV_DESC ; 0742 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$ ; 0744 CLRQ -(SP) ;-(SP) ; 0751 PUSHAB 28(SP) ;DIR_DESC ; CALLS #3, G^SYS$SETDDIR ;#3, SYS$SETDDIR ; MOVL R0, R6 ;R0, STATUS ; 10$: BLBC R6, 11$ ;STATUS, 11$ ; 0753 MOVAB (R10), 24(SP) ;GEN_1DATA, DIR_DESC+4 ; 0760 MOVZBW #96, 20(SP) ;#96, DIR_DESC ; 0761 PUSHAB 20(SP) ;DIR_DESC ; 0762 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$ ; 0764 BRW 32$ ;32$ ; 12$: MOVAB -192(R8), 4(SP) ;RSP_TEXT, POINTER ; 0771 CLRL (R8) ;RSP_LEN ; 0772 PUSHL R8 ;R8 ; 0773 PUSHAB 8(SP) ;POINTER ; PUSHL #25 ;#25 ; PUSHAB 20(R11) ;P.AAF ; CALLS #4, (R7) ;#4, CONCAT ; PUSHL R8 ;R8 ; 0774 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 ; 0775 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 ; 0776 MOVL (R8), @12(AP) ;RSP_LEN, @STRING_LENGTH ; 0777 BRB 19$ ;19$ ; 0778 13$: PUSHL SP ;SP ; 0787 PUSHAB 8(SP) ;POINTER ; MOVZWL G^GEN_DELETE_CMD, -(SP) ;GEN_DELETE_CMD, -(SP) ; PUSHL G^GEN_DELETE_CMD+4 ;GEN_DELETE_CMD+4 ; BRB 17$ ;17$ ; 14$: PUSHL SP ;SP ; 0797 PUSHAB 8(SP) ;POINTER ; MOVZWL G^GEN_DIR_CMD, -(SP) ;GEN_DIR_CMD, -(SP) ; PUSHL G^GEN_DIR_CMD+4 ;GEN_DIR_CMD+4 ; BRB 17$ ;17$ ; 15$: TSTL (R9) ;GEN_1SIZE ; 0808 BGTR 16$ ;16$ ; PUSHL SP ;SP ; 0811 PUSHAB 8(SP) ;POINTER ; MOVZWL G^GEN_USG_CMD, -(SP) ;GEN_USG_CMD, -(SP) ; PUSHL G^GEN_USG_CMD+4 ;GEN_USG_CMD+4 ; BRW 27$ ;27$ ; 16$: PUSHL SP ;SP ; 0815 PUSHAB 8(SP) ;POINTER ; MOVZWL G^GEN_USG_ARG_CMD, -(SP) ;GEN_USG_ARG_CMD, -(SP) ; PUSHL G^GEN_USG_ARG_CMD+4 ;GEN_USG_ARG_CMD+4 ; 17$: CALLS #4, (R7) ;#4, CONCAT ; BRW 26$ ;26$ ; 0817 18$: MOVL G^GEN_HELP_TEXT+4, @8(AP) ;GEN_HELP_TEXT+4, @STRING_ADDRESS ; 0828 MOVZWL G^GEN_HELP_TEXT, @12(AP) ;GEN_HELP_TEXT, @STRING_LENGTH ; 0829 19$: BRW 23$ ;23$ ; 0830 20$: PUSHL SP ;SP ; 0839 PUSHAB 8(SP) ;POINTER ; MOVZWL G^GEN_REN_CMD, -(SP) ;GEN_REN_CMD, -(SP) ; PUSHL G^GEN_REN_CMD+4 ;GEN_REN_CMD+4 ; CALLS #4, (R7) ;#4, CONCAT ; PUSHL SP ;SP ; 0840 PUSHAB 8(SP) ;POINTER ; PUSHL (R9) ;GEN_1SIZE ; PUSHL R10 ;R10 ; CALLS #4, (R7) ;#4, CONCAT ; PUSHL SP ;SP ; 0841 PUSHAB 8(SP) ;POINTER ; PUSHL #1 ;#1 ; PUSHAB 48(R11) ;P.AAG ; BRW 25$ ;25$ ; 21$: PUSHL SP ;SP ; 0851 PUSHAB 8(SP) ;POINTER ; MOVZWL G^GEN_SEND_CMD, -(SP) ;GEN_SEND_CMD, -(SP) ; PUSHL G^GEN_SEND_CMD+4 ;GEN_SEND_CMD+4 ; CALLS #4, (R7) ;#4, CONCAT ; PUSHL SP ;SP ; 0852 PUSHAB 8(SP) ;POINTER ; PUSHL (R9) ;GEN_1SIZE ; PUSHL R10 ;R10 ; CALLS #4, (R7) ;#4, CONCAT ; PUSHL SP ;SP ; 0853 PUSHAB 8(SP) ;POINTER ; PUSHL #2 ;#2 ; PUSHAB 52(R11) ;P.AAH ; CALLS #4, (R7) ;#4, CONCAT ; PUSHL SP ;SP ; 0854 PUSHAB 8(SP) ;POINTER ; PUSHL G^GEN_2SIZE ;GEN_2SIZE ; PUSHAB G^GEN_2DATA ;GEN_2DATA ; CALLS #4, (R7) ;#4, CONCAT ; PUSHL SP ;SP ; 0855 PUSHAB 8(SP) ;POINTER ; PUSHL #1 ;#1 ; PUSHAB 56(R11) ;P.AAI ; BRB 27$ ;27$ ; 22$: MOVL (R9), R6 ;GEN_1SIZE, R6 ; 0864 MOVC5 R6, (R10), #0, #132, G^FILE_NAME ;R6, GEN_1DATA, #0, #132, FILE_NAME ; MOVL R6, G^FILE_SIZE ;R6, FILE_SIZE ; 0865 23$: MOVL #134316043, R0 ;#134316043, R0 ; 0866 RET ; ; 24$: PUSHL SP ;SP ; 0875 PUSHAB 8(SP) ;POINTER ; MOVZWL G^GEN_WHO_CMD, -(SP) ;GEN_WHO_CMD, -(SP) ; PUSHL G^GEN_WHO_CMD+4 ;GEN_WHO_CMD+4 ; CALLS #4, (R7) ;#4, CONCAT ; PUSHL SP ;SP ; 0876 PUSHAB 8(SP) ;POINTER ; PUSHL (R9) ;GEN_1SIZE ; PUSHL R10 ;R10 ; 25$: CALLS #4, (R7) ;#4, CONCAT ; PUSHL SP ;SP ; 0877 PUSHAB 8(SP) ;POINTER ; PUSHL G^GEN_2SIZE ;GEN_2SIZE ; PUSHAB G^GEN_2DATA ;GEN_2DATA ; BRB 27$ ;27$ ; 26$: PUSHL SP ;SP ; 0882 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 ; 0896 MOVL #51970052, -16(FP) ;#51970052, ITMLST ; 0897 MOVAB 8(SP), -12(FP) ;OUR_PID, ITMLST+4 ; 0898 MOVAB -8(FP), -8(FP) ;ITMLST+8, ITMLST+8 ; 0899 CLRL -4(FP) ;ITMLST+12 ; 0900 CLRQ -(SP) ;-(SP) ; 0901 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 ; 0903 MOVL #17694728, -224(FP) ;#17694728, MBX_DESC ; 0906 MOVAB -233(FP), -220(FP) ;MBX_NAME+11, MBX_DESC+4 ; 0907 PUSHL #8 ;#8 ; 0908 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 ; 0909 MOVAB -244(FP), -220(FP) ;MBX_NAME, MBX_DESC+4 ; 0910 PUSHAB -224(FP) ;MBX_DESC ; 0911 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, 32$ ;STATUS, 32$ ; 0913 MOVB #58, -225(FP) ;#58, MBX_NAME+19 ; 0920 MOVW #20, -224(FP) ;#20, MBX_DESC ; 0921 MOVC5 #19, -244(FP), #0, #132, G^FILE_NAME ;#19, MBX_NAME, #0, #132, FILE_NAME ; 0922 MOVL #19, G^FILE_SIZE ;#19, FILE_SIZE ; 0923 MOVL #1, 16(SP) ;#1, FLAGS ; 0924 PUSHL 12(SP) ;MBX_CHAN ; 0943 CLRL R1 ;R1 ; 0938 CMPL -480(R8), #3 ;VMS_VERSION, #3 ; BGTR 28$ ;28$ ; INCL R1 ;R1 ; MOVAB -26(R7), R0 ;PROCESS_COMPLETION_AST, R0 ; PUSHL R0 ;R0 ; BRB 29$ ;29$ ; 28$: CLRL -(SP) ;-(SP) ; 29$: CLRQ -(SP) ;-(SP) ; 0925 CLRQ -(SP) ;-(SP) ; PUSHAB 40(SP) ;FLAGS ; PUSHAB -224(FP) ;MBX_DESC ; BLBC R1, 30$ ;R1, 30$ ; 0927 CLRL -(SP) ;-(SP) ; BRB 31$ ;31$ ; 30$: MOVAB 80(R11), R0 ;P.AAK, R0 ; 0930 PUSHL R0 ;R0 ; 31$: PUSHAB -24(FP) ;COMMAND_DESC ; 0925 CALLS #10, G^LIB$SPAWN ;#10, LIB$SPAWN ; MOVL R0, R6 ;R0, STATUS ; BLBS R6, 33$ ;STATUS, 33$ ; 0945 32$: PUSHL R6 ;STATUS ; CALLS #1, G^LIB$SIGNAL ;#1, LIB$SIGNAL ; 33$: MOVL R6, R0 ;STATUS, R0 ; 0947 RET ; ; 0948 ; Routine Size: 1054 bytes, Routine Base: $CODE$ + 0140 ; 0949 1 ; 0950 1 %SBTTL 'SY_DISMISS - Sleep for N seconds' ; 0951 1 ; 0952 1 GLOBAL ROUTINE SY_DISMISS (SECONDS) : NOVALUE = ; 0953 1 ; 0954 1 !++ ; 0955 1 ! FUNCTIONAL DESCRIPTION: ; 0956 1 ! ; 0957 1 ! This routine is called to cause KERMIT to sleep for the ; 0958 1 ! specified number of seconds. ; 0959 1 ! ; 0960 1 ! CALLING SEQUENCE: ; 0961 1 ! ; 0962 1 ! SY_DISMISS(Number of seconds); ; 0963 1 ! ; 0964 1 ! INPUT PARAMETERS: ; 0965 1 ! ; 0966 1 ! Number of seconds to sleep. ; 0967 1 ! ; 0968 1 ! IMPLICIT INPUTS: ; 0969 1 ! ; 0970 1 ! None. ; 0971 1 ! ; 0972 1 ! OUTPUT PARAMETERS: ; 0973 1 ! ; 0974 1 ! None. ; 0975 1 ! ; 0976 1 ! IMPLICIT OUTPUTS: ; 0977 1 ! ; 0978 1 ! None. ; 0979 1 ! ; 0980 1 ! COMPLETION CODES: ; 0981 1 ! ; 0982 1 ! None. ; 0983 1 ! ; 0984 1 ! SIDE EFFECTS: ; 0985 1 ! ; 0986 1 ! None. ; 0987 1 ! ; 0988 1 !-- ; 0989 1 ; 0990 2 BEGIN ; 0991 2 ; 0992 2 LOCAL ; 0993 2 STATUS, ; 0994 2 TOTAL_TIME : VECTOR [2, LONG]; ! Quad word for length of time to sleep ; 0995 2 ; 0996 2 IF .SECONDS EQL 0 THEN RETURN KER_NORMAL; ; 0997 2 ; 0998 2 TOTAL_TIME [0] = -.SECONDS*10*1000*1000; ; 0999 2 TOTAL_TIME [1] = -1; ; 1000 2 STATUS = $SETIMR (EFN = 1, DAYTIM = TOTAL_TIME); ; 1001 2 ; 1002 2 IF NOT .STATUS THEN LIB$SIGNAL (.STATUS); ; 1003 2 ; 1004 2 STATUS = $WAITFR (EFN = 1); ; 1005 2 ; 1006 2 IF NOT .STATUS THEN LIB$SIGNAL (.STATUS); ; 1007 2 ; 1008 1 END; ! End of SY_DISMISS(time) .EXTRN SYS$SETIMR .ENTRY SY_DISMISS, ^M ;SY_DISMISS, Save R2,R3 ; 0952 MOVAB G^LIB$SIGNAL, R3 ;LIB$SIGNAL, R3 ; SUBL2 #8, SP ;#8, SP ; TSTL 4(AP) ;SECONDS ; 0996 BEQL 2$ ;2$ ; MULL3 #10000000, 4(AP), R0 ;#10000000, SECONDS, R0 ; 0998 MNEGL R0, (SP) ;R0, TOTAL_TIME ; MNEGL #1, 4(SP) ;#1, TOTAL_TIME+4 ; 0999 CLRQ -(SP) ;-(SP) ; 1000 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$ ; 1002 PUSHL R2 ;STATUS ; CALLS #1, (R3) ;#1, LIB$SIGNAL ; 1$: PUSHL #1 ;#1 ; 1004 CALLS #1, G^SYS$WAITFR ;#1, SYS$WAITFR ; MOVL R0, R2 ;R0, STATUS ; BLBS R2, 2$ ;STATUS, 2$ ; 1006 PUSHL R2 ;STATUS ; CALLS #1, (R3) ;#1, LIB$SIGNAL ; 2$: RET ; ; 1008 ; Routine Size: 79 bytes, Routine Base: $CODE$ + 055E ; 1009 1 ; 1010 1 %SBTTL 'SY_TIME - Return elapsed time' ; 1011 1 ; 1012 1 GLOBAL ROUTINE SY_TIME = ; 1013 1 ; 1014 1 !++ ; 1015 1 ! FUNCTIONAL DESCRIPTION: ; 1016 1 ! ; 1017 1 ! This routine will return the elapsed time to the calling routine. ; 1018 1 ! This will allow for the calculation of the effective baud rate. ; 1019 1 ! ; 1020 1 ! CALLING SEQUENCE: ; 1021 1 ! ; 1022 1 ! TIME = SY_TIME (); ; 1023 1 ! ; 1024 1 ! INPUT PARAMETERS: ; 1025 1 ! ; 1026 1 ! None. ; 1027 1 ! ; 1028 1 ! IMPLICIT INPUTS: ; 1029 1 ! ; 1030 1 ! None. ; 1031 1 ! ; 1032 1 ! OUTPUT PARAMETERS: ; 1033 1 ! ; 1034 1 ! Time in milliseconds. ; 1035 1 ! ; 1036 1 ! IMPLICIT OUTPUTS: ; 1037 1 ! ; 1038 1 ! None. ; 1039 1 ! ; 1040 1 ! COMPLETION CODES: ; 1041 1 ! ; 1042 1 ! None. ; 1043 1 ! ; 1044 1 ! SIDE EFFECTS: ; 1045 1 ! ; 1046 1 ! None. ; 1047 1 ! ; 1048 1 !-- ; 1049 1 ; 1050 2 BEGIN ; 1051 2 ! ; 1052 2 ! Local storage ; 1053 2 ! ; 1054 2 ; 1055 2 LOCAL ; 1056 2 STATUS, ! Status returned by lower level ; 1057 2 TIMER_MILLI_SECONDS, ! Time in milliseconds ; 1058 2 TIMER_REMAINDER, ! Remainder on EDIV ; 1059 2 TIMER_VALUE : VECTOR [2, LONG], ! Quad word TIME value ; 1060 2 TEN_FOURTH : VECTOR [2, LONG], ! to hold 10**4 ; 1061 2 TIMER_CODE; ! Type of TIMER request ; 1062 2 ; 1063 2 ! ; 1064 2 ! Set up the type of request we want (elapsed time) ; 1065 2 ! ; 1066 2 TIMER_CODE = 1; ; 1067 2 ! ; 1068 2 ! Get the elapsed time from VMS ; 1069 2 ! ; 1070 2 STATUS = LIB$STAT_TIMER (TIMER_CODE, TIMER_VALUE, TIMER_HANDLE); ; 1071 2 ; 1072 2 IF NOT .STATUS THEN RETURN 0; ; 1073 2 ; 1074 2 ! ; 1075 2 ! Compute the LONG word value from the QUAD word given ; 1076 2 ! ; 1077 2 TEN_FOURTH [0] = 1000*10; ; 1078 2 TEN_FOURTH [1] = 0; ; 1079 2 STATUS = LIB$EDIV (TEN_FOURTH, TIMER_VALUE, TIMER_MILLI_SECONDS, TIMER_REMAINDER); ; 1080 2 ; 1081 2 IF NOT .STATUS THEN RETURN 0; ; 1082 2 ; 1083 2 RETURN .TIMER_MILLI_SECONDS; ; 1084 1 END; ! End of SY_TIME .ENTRY SY_TIME, ^M<> ;SY_TIME, Save nothing ; 1012 SUBL2 #24, SP ;#24, SP ; PUSHL #1 ;#1 ; 1066 PUSHAB G^U.6 ;U.6 ; 1070 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$ ; 1072 MOVZWL #10000, 12(SP) ;#10000, TEN_FOURTH ; 1077 CLRL 16(SP) ;TEN_FOURTH+4 ; 1078 PUSHAB 4(SP) ;TIMER_REMAINDER ; 1079 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$ ; 1081 MOVL 8(SP), R0 ;TIMER_MILLI_SECONDS, R0 ; 1083 RET ; ; 1$: CLRL R0 ;R0 ; 1084 RET ; ; ; Routine Size: 68 bytes, Routine Base: $CODE$ + 05AD ; 1085 1 ; 1086 1 %SBTTL 'End of KERSYS.BLI' ; 1087 1 END ! End of module ; 1088 1 ; 1089 0 ELUDOM ; PSECT SUMMARY ; ; Name Bytes Attributes ; ; $OWN$ 484 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) ; $PLIT$ 104 NOVEC,NOWRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) ; $CODE$ 1521 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$COMMON:[SYSLIB]STARLET.L32;2 10093 84 0 598 00:01.2 ; SYS$COMMON:[SYSLIB]TPAMAC.L32;2 42 0 0 14 00:00.2 ; COMMAND QUALIFIERS ; BLISS VMSSYS/LIST=VMSSYS.MAR/MACHINE_CODE=(ASSEM,NOBINARY,UNIQUE)/NOOBJECT/SOURCE=NOHEADER ; Compilation Complete .END