home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
kermit.columbia.edu
/
kermit.columbia.edu.tar
/
kermit.columbia.edu
/
vmskermit32
/
vmssys.mar
< prev
next >
Wrap
Text File
|
2018-01-01
|
67KB
|
1,464 lines
; 0001 0 MODULE KERSYS (IDENT = '3.3.113',
; 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 ! 3.3.113 JHW0002 Jonathan Welch, 5-May-1988 11:48
; 0061 1 ! Modified SY_TIME to use $GETTIM as opposed to the LIB$timer
; 0062 1 ! routines (which broke when their method of calculating
; 0063 1 ! time differences changed in V4.4?).
; 0064 1 !
; 0065 1 ! Removed the call to LIB$INIT_TIMER in SY_INIT.
; 0066 1 !--
; 0067 1
; 0068 1 %SBTTL 'Include files'
; 0069 1 !
; 0070 1 ! INCLUDE FILES:
; 0071 1 !
; 0072 1
; 0073 1 LIBRARY 'SYS$LIBRARY:STARLET';
; 0074 1
; 0075 1 LIBRARY 'SYS$LIBRARY:TPAMAC';
; 0076 1
; 0077 1 REQUIRE 'KERCOM'; ! Common definitions
; 0286 1
; 0287 1 REQUIRE 'KERERR'; ! Error message symbol definitions
; 0353 1
; 0354 1 %SBTTL 'Storage -- Local'
; 0355 1 !
; 0356 1 ! OWN STORAGE:
; 0357 1 !
; 0358 1
; 0359 1 OWN
; 0360 1 VMS_VERSION, ! Major version number of VMS
; 0361 1 ORG_DEFAULT_DIR_TEXT : VECTOR [MAX_FILE_NAME, BYTE], ! Text of default dir
; 0362 1 ORG_DEFAULT_DIR : BLOCK [8, BYTE], ! Original default directory
; 0363 1 ORG_DEFAULT_DEV_TEXT : VECTOR [MAX_FILE_NAME, BYTE], ! Text of default device
; 0364 1 ORG_DEFAULT_DEV : BLOCK [8, BYTE], ! Descriptor for orginal default device
; 0365 1 Subtrahend : VECTOR [2, LONG]; ! Constant to subtract from system time.
; 0366 1
; 0367 1 !<BLF/FORMAT>
; 0368 1 %SBTTL 'External routines'
; 0369 1 !
; 0370 1 ! EXTERNAL REFERENCES:
; 0371 1 !
; 0372 1
; 0373 1 EXTERNAL ROUTINE
; 0374 1 !
; 0375 1 ! Library routines
; 0376 1 !
; 0377 1 LIB$EDIV : ADDRESSING_MODE (GENERAL),
; 0378 1 LIB$SET_LOGICAL : ADDRESSING_MODE (GENERAL),
; 0379 1 LIB$SIGNAL : ADDRESSING_MODE (GENERAL) NOVALUE,
; 0380 1 LIB$SPAWN : ADDRESSING_MODE (GENERAL),
; 0381 1 LIB$SUBX : ADDRESSING_MODE (GENERAL),
; 0382 1 OTS$CVT_L_TZ : ADDRESSING_MODE (GENERAL) NOVALUE,
; 0383 1 SYS$SETDDIR : ADDRESSING_MODE (GENERAL),
; 0384 1 SYS$GETTIM : ADDRESSING_MODE (GENERAL),
; 0385 1 !
; 0386 1 ! KERTRM - Terminal handling routines
; 0387 1 !
; 0388 1 TERM_CLOSE, ! Close terminal and restore characteristics
; 0389 1
; 0390 1 !
; 0391 1 ! KERTT - Text processing
; 0392 1 !
; 0393 1 TT_INIT : NOVALUE, ! Initialization routine
; 0394 1 TT_TEXT : NOVALUE, ! Output a text string
; 0395 1 TT_NUMBER : NOVALUE, ! Output a number
; 0396 1 TT_CHAR : NOVALUE, ! Output a single character
; 0397 1 TT_OUTPUT : NOVALUE, ! Routine to dump the current
; 0398 1 ! text line.
; 0399 1 TT_CRLF : NOVALUE; ! Output the line
; 0400 1
; 0401 1 %SBTTL 'External storage'
; 0402 1 !
; 0403 1 ! EXTERNAL Storage:
; 0404 1 !
; 0405 1
; 0406 1 EXTERNAL
; 0407 1 !
; 0408 1 ! KERMSG storage
; 0409 1 !
; 0410 1 GEN_1DATA : VECTOR [CH$ALLOCATION (MAX_MSG)], ! Data for generic command
; 0411 1 GEN_1SIZE, ! Size of data in GEN_1DATA
; 0412 1 GEN_2DATA : VECTOR [CH$ALLOCATION (MAX_MSG)], ! Second argument for generic command
; 0413 1 GEN_2SIZE, ! Size of data in GEN_2DATA
; 0414 1 GEN_3DATA : VECTOR [CH$ALLOCATION (MAX_MSG)], ! Third arg for generic command
; 0415 1 GEN_3SIZE, ! Size of data in GEN_3DATA
; 0416 1 !
; 0417 1 ! Misc constants.
; 0418 1 !
; 0419 1 FILE_SIZE, ! Number of characters in FILE_NAME
; 0420 1 FILE_NAME : VECTOR [CH$ALLOCATION (MAX_FILE_NAME)];
; 0421 1
; 0422 1 %SBTTL 'SY_INIT - Initialize KERSYS'
; 0423 1
; 0424 1 GLOBAL ROUTINE SY_INIT : NOVALUE =
; 0425 1
; 0426 1 !++
; 0427 1 ! FUNCTIONAL DESCRIPTION:
; 0428 1 !
; 0429 1 ! This routine will initialize the module KERSYS.
; 0430 1 !
; 0431 1 ! CALLING SEQUENCE:
; 0432 1 !
; 0433 1 ! SY_INIT ();
; 0434 1 !
; 0435 1 ! INPUT PARAMETERS:
; 0436 1 !
; 0437 1 ! None.
; 0438 1 !
; 0439 1 ! IMPLICIT INPUTS:
; 0440 1 !
; 0441 1 ! None.
; 0442 1 !
; 0443 1 ! OUPTUT PARAMETERS:
; 0444 1 !
; 0445 1 ! None.
; 0446 1 !
; 0447 1 ! IMPLICIT OUTPUTS:
; 0448 1 !
; 0449 1 ! None.
; 0450 1 !
; 0451 1 ! COMPLETION CODES:
; 0452 1 !
; 0453 1 ! None.
; 0454 1 !
; 0455 1 ! SIDE EFFECTS:
; 0456 1 !
; 0457 1 ! KERSYS storage initialized
; 0458 1 !
; 0459 1 !--
; 0460 1
; 0461 2 BEGIN
; 0462 2
; 0463 2 LITERAL
; 0464 2 SYI_EFN = 10; ! EFN to use for $GETSYI
; 0465 2
; 0466 2 LOCAL
; 0467 2 VERSION_STRING : VECTOR [8, BYTE], ! Return version string here
; 0468 2 VERSION_LENGTH, ! And length here
; 0469 2 SYI_ITEM_LIST : BLOCK [16, BYTE], ! Argument list for $GETSYI
; 0470 2 LENGTH, ! Length of default dir returned
; 0471 2 STATUS;
; 0472 2
; 0473 2 EXTERNAL ROUTINE
; 0474 2 LIB$SYS_TRNLOG : ADDRESSING_MODE(GENERAL);
; 0475 2
; 0476 2 !
; 0477 2 ! Set up arg list for $GETSYI
; 0478 2 !
; 0479 2 SYI_ITEM_LIST [0, 0, 16, 0] = 8; ! We expect an 8-byte string
; 0480 2 SYI_ITEM_LIST [2, 0, 16, 0] = SYI$_VERSION; ! Want the VMS version
; 0481 2 SYI_ITEM_LIST [4, 0, 32, 0] = VERSION_STRING; ! Put it here
; 0482 2 SYI_ITEM_LIST [8, 0, 32, 0] = VERSION_LENGTH; ! Length goes here
; 0483 2 SYI_ITEM_LIST [12, 0, 32, 0] = 0; ! End the list
; 0484 2 STATUS = $GETSYI (EFN=SYI_EFN, ITMLST=SYI_ITEM_LIST); ! Get the data
; 0485 2 IF NOT .STATUS ! If we can't get the version
; 0486 2 THEN
; 0487 2 VMS_VERSION = 0 ! Assume very old VMS?
; 0488 2 ELSE
; 0489 3 BEGIN
; 0490 3 STATUS = $WAITFR (EFN=SYI_EFN); ! Wait for completion
; 0491 3 IF .STATUS ! If we got it
; 0492 3 THEN
; 0493 4 BEGIN
; 0494 4 IF .VERSION_STRING [0] GEQ %C'0' AND
; 0495 4 .VERSION_STRING [0] LEQ %C'9' ! If first character is numeric
; 0496 4 THEN
; 0497 4 VMS_VERSION = (.VERSION_STRING[0] - %C'0')*10 ! save first digit
; 0498 4 ELSE
; 0499 4 VMS_VERSION = 0; ! No first digit, store 0
; 0500 4 VMS_VERSION = .VMS_VERSION + .VERSION_STRING[1] - %C'0' ! Get rest of version
; 0501 4 END
; 0502 3 ELSE
; 0503 3 VMS_VERSION = 0; ! Can't get version?
; 0504 2 END;
; 0505 2 !
; 0506 2 ! Set up original default directory
; 0507 2 !
; 0508 2 ORG_DEFAULT_DIR [DSC$B_CLASS] = DSC$K_CLASS_S;
; 0509 2 ORG_DEFAULT_DIR [DSC$B_DTYPE] = DSC$K_DTYPE_T;
; 0510 2 ORG_DEFAULT_DIR [DSC$W_LENGTH] = MAX_FILE_NAME;
; 0511 2 ORG_DEFAULT_DIR [DSC$A_POINTER] = ORG_DEFAULT_DIR_TEXT;
; 0512 2 STATUS = SYS$SETDDIR (0, LENGTH, ORG_DEFAULT_DIR);
; 0513 2
; 0514 2 IF .STATUS THEN ORG_DEFAULT_DIR [DSC$W_LENGTH] = .LENGTH ELSE ORG_DEFAULT_DIR [DSC$W_LENGTH] = 0;
; 0515 2 !
; 0516 2 ! Get original default device
; 0517 2 !
; 0518 2 ORG_DEFAULT_DEV [DSC$B_CLASS] = DSC$K_CLASS_S;
; 0519 2 ORG_DEFAULT_DEV [DSC$B_DTYPE] = DSC$K_DTYPE_T;
; 0520 2 ORG_DEFAULT_DEV [DSC$W_LENGTH] = MAX_FILE_NAME;
; 0521 2 ORG_DEFAULT_DEV [DSC$A_POINTER] = ORG_DEFAULT_DEV_TEXT;
; 0522 2 STATUS = LIB$SYS_TRNLOG (%ASCID'SYS$DISK', LENGTH, ORG_DEFAULT_DEV);
; 0523 2
; 0524 2 IF .STATUS EQL SS$_NOTRAN ! No translation?
; 0525 2 THEN
; 0526 2 LENGTH = 0; ! Yes, set the length to zero
; 0527 2 IF .STATUS THEN ORG_DEFAULT_DEV [DSC$W_LENGTH] = .LENGTH ELSE ORG_DEFAULT_DEV [DSC$W_LENGTH] = 0;
; 0528 2
; 0529 1 END; ! End of SY_INIT
.TITLE KERSYS
.IDENT \3.3.113\
.PSECT $OWN$,NOEXE,2
;VMS_VERSION
U.1: .BLKB 4 ; 00000
;ORG_DEFAULT_DIR_TEXT
U.2: .BLKB 132 ; 00004
;ORG_DEFAULT_DIR
U.3: .BLKB 8 ; 00088
;ORG_DEFAULT_DEV_TEXT
U.4: .BLKB 132 ; 00090
;ORG_DEFAULT_DEV
U.5: .BLKB 8 ; 00114
;SUBTRAHEND
U.6: .BLKB 8 ; 0011C
.PSECT $PLIT$,NOWRT,NOEXE,2
P.AAB: .ASCII \SYS$DISK\ ; 4B 53 49 44 24 53 59 53 00000
P.AAA: .LONG 17694728 ; 010E0008 00008
.ADDRESS P.AAB ; 00000000' 0000C
FNM_NORMAL== 1
FNM_FULL== 2
FNM_UNTRAN== 4
PR_MIN== 0
PR_NONE== 0
PR_MARK== 1
PR_EVEN== 2
PR_ODD== 3
PR_SPACE== 4
PR_MAX== 4
GC_MIN== 1
GC_EXIT== 1
GC_DIRECTORY== 2
GC_DISK_USAGE== 3
GC_DELETE== 4
GC_TYPE== 5
GC_HELP== 6
GC_LOGOUT== 7
GC_LGN== 8
GC_CONNECT== 9
GC_RENAME== 10
GC_COPY== 11
GC_WHO== 12
GC_SEND_MSG== 13
GC_STATUS== 14
GC_COMMAND== 15
GC_KERMIT== 16
GC_JOURNAL== 17
GC_VARIABLE== 18
GC_PROGRAM== 19
GC_MAX== 19
DP_FULL== 0
DP_HALF== 1
CHK_1CHAR== 49
CHK_2CHAR== 50
CHK_CRC== 51
MAX_MSG== 1002
.EXTRN LIB$EDIV, LIB$SET_LOGICAL, LIB$SIGNAL, LIB$SPAWN, LIB$SUBX, OTS$CVT_L_TZ, SYS$SETDDIR
.EXTRN SYS$GETTIM, TERM_CLOSE, TT_INIT, TT_TEXT, TT_NUMBER, TT_CHAR, TT_OUTPUT, TT_CRLF, GEN_1DATA
.EXTRN GEN_1SIZE, GEN_2DATA, GEN_2SIZE, GEN_3DATA, GEN_3SIZE, FILE_SIZE, FILE_NAME, LIB$SYS_TRNLOG
.EXTRN SYS$GETSYI, SYS$WAITFR
.PSECT $CODE$,NOWRT,2
.ENTRY SY_INIT, ^M<R2> ;SY_INIT, Save R2 0424 0004 00000
MOVAB G^U.1, R2 ;U.1, R2 52 00000000' 00 9E 00002
SUBL2 #32, SP ;#32, SP 5E 20 C2 00009
MOVL #268435464, 8(SP) ;#268435464, SYI_ITEM_LIST 0480 08 AE 10000008 8F D0 0000C
MOVAB 24(SP), 12(SP) ;VERSION_STRING, SYI_ITEM_LIST+4 0481 0C AE 18 AE 9E 00014
MOVAB (SP), 16(SP) ;VERSION_LENGTH, SYI_ITEM_LIST+8 0482 10 AE 6E 9E 00019
CLRL 20(SP) ;SYI_ITEM_LIST+12 0483 14 AE D4 0001D
CLRQ -(SP) ;-(SP) 0484 7E 7C 00020
CLRL -(SP) ;-(SP) 7E D4 00022
PUSHAB 20(SP) ;SYI_ITEM_LIST 14 AE 9F 00024
CLRQ -(SP) ;-(SP) 7E 7C 00027
PUSHL #10 ;#10 0A DD 00029
CALLS #7, G^SYS$GETSYI ;#7, SYS$GETSYI 00000000G 00 07 FB 0002B
BLBC R0, 3$ ;STATUS, 3$ 0485 34 50 E9 00032
PUSHL #10 ;#10 0490 0A DD 00035
CALLS #1, G^SYS$WAITFR ;#1, SYS$WAITFR 00000000G 00 01 FB 00037
BLBC R0, 3$ ;STATUS, 3$ 0491 28 50 E9 0003E
CMPB 24(SP), #48 ;VERSION_STRING, #48 0494 30 18 AE 91 00041
BLSSU 1$ ;1$ 13 1F 00045
CMPB 24(SP), #57 ;VERSION_STRING, #57 0495 39 18 AE 91 00047
BGTRU 1$ ;1$ 0D 1A 0004B
MOVZBL 24(SP), R1 ;VERSION_STRING, R1 0497 51 18 AE 9A 0004D
SUBL2 #48, R1 ;#48, R1 51 30 C2 00051
MULL3 #10, R1, (R2) ;#10, R1, VMS_VERSION 51 0A C5 00054
; 62 00057
BRB 2$ ;2$ 02 11 00058
1$: CLRL (R2) ;VMS_VERSION 0499 62 D4 0005A
2$: MOVZBL 25(SP), R1 ;VERSION_STRING+1, R1 0500 51 19 AE 9A 0005C
ADDL2 (R2), R1 ;VMS_VERSION, R1 51 62 C0 00060
MOVAB -48(R1), (R2) ;-48(R1), VMS_VERSION 62 D0 A1 9E 00063
BRB 4$ ;4$ 02 11 00067
3$: CLRL (R2) ;VMS_VERSION 0503 62 D4 00069
4$: MOVL #17694852, 136(R2) ;#17694852, ORG_DEFAULT_DIR 0510 0088 C2 010E0084 8F D0 0006B
MOVAB 4(R2), 140(R2) ;ORG_DEFAULT_DIR_TEXT, - 0511 008C C2 04 A2 9E 00074
;ORG_DEFAULT_DIR+4
PUSHAB 136(R2) ;ORG_DEFAULT_DIR 0512 0088 C2 9F 0007A
PUSHAB 8(SP) ;LENGTH 08 AE 9F 0007E
CLRL -(SP) ;-(SP) 7E D4 00081
CALLS #3, G^SYS$SETDDIR ;#3, SYS$SETDDIR 00000000G 00 03 FB 00083
BLBC R0, 5$ ;STATUS, 5$ 0514 08 50 E9 0008A
MOVW 4(SP), 136(R2) ;LENGTH, ORG_DEFAULT_DIR 0088 C2 04 AE B0 0008D
BRB 6$ ;6$ 04 11 00093
5$: CLRW 136(R2) ;ORG_DEFAULT_DIR 0088 C2 B4 00095
6$: MOVL #17694852, 276(R2) ;#17694852, ORG_DEFAULT_DEV 0520 0114 C2 010E0084 8F D0 00099
MOVAB 144(R2), 280(R2) ;ORG_DEFAULT_DEV_TEXT, - 0521 0118 C2 0090 C2 9E 000A2
;ORG_DEFAULT_DEV+4
PUSHAB 276(R2) ;ORG_DEFAULT_DEV 0522 0114 C2 9F 000A9
PUSHAB 8(SP) ;LENGTH 08 AE 9F 000AD
PUSHAB G^P.AAA ;P.AAA 00000000' 00 9F 000B0
CALLS #3, G^LIB$SYS_TRNLOG ;#3, LIB$SYS_TRNLOG 00000000G 00 03 FB 000B6
CMPL R0, #1577 ;STATUS, #1577 0524 00000629 8F 50 D1 000BD
BNEQ 7$ ;7$ 03 12 000C4
CLRL 4(SP) ;LENGTH 0526 04 AE D4 000C6
7$: BLBC R0, 8$ ;STATUS, 8$ 0527 07 50 E9 000C9
MOVW 4(SP), 276(R2) ;LENGTH, ORG_DEFAULT_DEV 0114 C2 04 AE B0 000CC
RET ; 04 000D2
8$: CLRW 276(R2) ;ORG_DEFAULT_DEV 0114 C2 B4 000D3
RET ; 0529 04 000D7
; Routine Size: 216 bytes, Routine Base: $CODE$ + 0000
; 0530 1
; 0531 1 %SBTTL 'SY_LOGOUT - delete the process.'
; 0532 1
; 0533 1 GLOBAL ROUTINE SY_LOGOUT : NOVALUE =
; 0534 1
; 0535 1 !++
; 0536 1 ! FUNCTIONAL DESCRIPTION:
; 0537 1 !
; 0538 1 ! This routine will delete this process.
; 0539 1 !
; 0540 1 ! CALLING SEQUENCE:
; 0541 1 !
; 0542 1 ! SY_LOGOUT ();
; 0543 1 !
; 0544 1 ! INPUT PARAMETERS:
; 0545 1 !
; 0546 1 ! None.
; 0547 1 !
; 0548 1 ! IMPLICIT INPUTS:
; 0549 1 !
; 0550 1 ! None.
; 0551 1 !
; 0552 1 ! OUTPUT PARAMETERS:
; 0553 1 !
; 0554 1 ! None.
; 0555 1 !
; 0556 1 ! IMPLICIT OUTPUTS:
; 0557 1 !
; 0558 1 ! None.
; 0559 1 !
; 0560 1 ! COMPLETION CODES:
; 0561 1 !
; 0562 1 ! None.
; 0563 1 !
; 0564 1 ! SIDE EFFECTS:
; 0565 1 !
; 0566 1 ! None.
; 0567 1 !
; 0568 1 !--
; 0569 1
; 0570 2 BEGIN
; 0571 2 TERM_CLOSE(); ![108] Close the terminal early
; 0572 2 $DELPRC ();
; 0573 1 END; ! End of SY_LOGOUT
.EXTRN SYS$DELPRC
.ENTRY SY_LOGOUT, ^M<> ;SY_LOGOUT, Save nothing 0533 0000 00000
CALLS #0, G^TERM_CLOSE ;#0, TERM_CLOSE 0571 00000000G 00 00 FB 00002
CLRQ -(SP) ;-(SP) 0572 7E 7C 00009
CALLS #2, G^SYS$DELPRC ;#2, SYS$DELPRC 00000000G 00 02 FB 0000B
RET ; 0573 04 00012
; Routine Size: 19 bytes, Routine Base: $CODE$ + 00D8
; 0574 1
; 0575 1 %SBTTL 'SY_GENERIC - Perform a generic command'
; 0576 1
; 0577 1 GLOBAL ROUTINE SY_GENERIC (GCMD_TYPE, STRING_ADDRESS, STRING_LENGTH, GET_CHR_RTN) =
; 0578 1
; 0579 1 !++
; 0580 1 ! FUNCTIONAL DESCRIPTION:
; 0581 1 !
; 0582 1 ! This routine will perform a generic command.
; 0583 1 !
; 0584 1 ! CALLING SEQUENCE:
; 0585 1 !
; 0586 1 ! SY_GENERIC (GCMD_TYPE, STRING_ADDRESS, STRING_LENGTH, GET_CHR_RTN);
; 0587 1 !
; 0588 1 ! INPUT PARAMETERS:
; 0589 1 !
; 0590 1 ! GCMD_TYPE - GC_xxx value for command to be performed
; 0591 1 ! STRING_ADDRESS - Place to return address of string result
; 0592 1 ! STRING_LENGTH - Place to return length of string result
; 0593 1 ! GET_CHR_RTN - Place to return address of a get a character routine
; 0594 1 !
; 0595 1 ! IMPLICIT INPUTS:
; 0596 1 !
; 0597 1 ! None.
; 0598 1 !
; 0599 1 ! OUTPUT PARAMETERS:
; 0600 1 !
; 0601 1 ! Returns KER_xxx status
; 0602 1 !
; 0603 1 ! IMPLICIT OUTPUTS:
; 0604 1 !
; 0605 1 ! None.
; 0606 1 !
; 0607 1 ! COMPLETION CODES:
; 0608 1 !
; 0609 1 ! None.
; 0610 1 !
; 0611 1 ! SIDE EFFECTS:
; 0612 1 !
; 0613 1 ! None.
; 0614 1 !
; 0615 1 !--
; 0616 1
; 0617 2 BEGIN
; 0618 2
; 0619 2 LITERAL
; 0620 2 MAX_CMD_LEN = 2*MAX_MSG, ! Max command length
; 0621 2 MAX_MBX_LEN = 20; ! Max mailbox name length
; 0622 2
; 0623 2 OWN
; 0624 2 RSP_TEXT : VECTOR [MAX_CMD_LEN, BYTE], ! Return text
; 0625 2 RSP_LEN; ! Length of return text
; 0626 2
; 0627 2 LOCAL
; 0628 2 STATUS, ! Status results
; 0629 2 FLAGS, ! Flag word for LIB$SPAWN
; 0630 2 OUR_PID, ! Our PID value
; 0631 2 ITMLST : VECTOR [4, LONG], ! GETJPI argument
; 0632 2 POINTER, ! Character pointer
; 0633 2 MBX_CHAN, ! Channel for mail box
; 0634 2 COMMAND_LENGTH, ! Length of command string
; 0635 2 COMMAND_DESC : BLOCK [8, BYTE], ! Descriptor for command string
; 0636 2 COMMAND_STR : VECTOR [MAX_CMD_LEN, BYTE], ! Actual command string
; 0637 2 MBX_DESC : BLOCK [8, BYTE], ! Mailbox equivalence name
; 0638 2 MBX_NAME : VECTOR [MAX_MBX_LEN, BYTE]; ! Storage for MBX name
; 0639 2
; 0640 2 ROUTINE PROCESS_COMPLETION_AST (MBX_CHAN) =
; 0641 2 !
; 0642 2 ! This routine is called upon process completion (of the process we spawned
; 0643 2 ! to perform the command). It will ensure that the mailbox gets an end-of-file.
; 0644 2 !
; 0645 3 BEGIN
; 0646 3 RETURN $QIO (CHAN = .MBX_CHAN, FUNC = IO$_WRITEOF); ! Write the EOF
; 0647 2 END;
.PSECT $OWN$,NOEXE,2
;RSP_TEXT
U.10: .BLKB 2004 ; 00124
;RSP_LEN
U.11: .BLKB 4 ; 008F8
.EXTRN SYS$QIO
.PSECT $CODE$,NOWRT,2
;PROCESS_COMPLETION_AST
U.12: .WORD ^M<> ;Save nothing 0640 0000 00000
CLRQ -(SP) ;-(SP) 0646 7E 7C 00002
CLRQ -(SP) ;-(SP) 7E 7C 00004
CLRQ -(SP) ;-(SP) 7E 7C 00006
CLRQ -(SP) ;-(SP) 7E 7C 00008
MOVQ #40, -(SP) ;#40, -(SP) 7E 28 7D 0000A
PUSHL 4(AP) ;MBX_CHAN 04 AC DD 0000D
CLRL -(SP) ;-(SP) 7E D4 00010
CALLS #12, G^SYS$QIO ;#12, SYS$QIO 00000000G 00 0C FB 00012
RET ; 04 00019
; Routine Size: 26 bytes, Routine Base: $CODE$ + 00EB
; 0648 2 ROUTINE CONCAT (SRC_ADR, SRC_LEN, DST_PTR, DST_LEN) : NOVALUE =
; 0649 2 !
; 0650 2 ! This routine is called to concatenate a string onto the current string
; 0651 2 !
; 0652 3 BEGIN
; 0653 3
; 0654 3 LOCAL
; 0655 3 LENGTH; ! Length we will actually move
; 0656 3
; 0657 3 LENGTH = .SRC_LEN; ! Get total length
; 0658 3
; 0659 3 IF .LENGTH GTR MAX_CMD_LEN - ..DST_LEN THEN LENGTH = MAX_CMD_LEN - ..DST_LEN;
; 0660 3
; 0661 3 CH$MOVE (.LENGTH, CH$PTR (.SRC_ADR), ..DST_PTR);
; 0662 3 .DST_PTR = CH$PLUS (.LENGTH, ..DST_PTR);
; 0663 3 .DST_LEN = ..DST_LEN + .LENGTH; ! Update length
; 0664 2 END;
;CONCAT
U.13: .WORD ^M<R2,R3,R4,R5,R6,R7> ;Save R2,R3,R4,R5,R6,R7 0648 00FC 00000
MOVL 8(AP), R7 ;SRC_LEN, LENGTH 0657 57 08 AC D0 00002
SUBL3 #2004, @16(AP), R1 ;#2004, @DST_LEN, R1 0659 10 BC 000007D4 8F C3 00006
; 51 0000E
MNEGL R1, R0 ;R1, R0 50 51 CE 0000F
CMPL R7, R0 ;LENGTH, R0 50 57 D1 00012
BLEQ 1$ ;1$ 03 15 00015
MNEGL R1, R7 ;R1, LENGTH 57 51 CE 00017
1$: MOVL 12(AP), R6 ;DST_PTR, R6 0661 56 0C AC D0 0001A
MOVC3 R7, @4(AP), @0(R6) ;LENGTH, @SRC_ADR, @0(R6) 04 BC 57 28 0001E
; 00 B6 00022
ADDL2 R7, (R6) ;LENGTH, (R6) 0662 66 57 C0 00024
ADDL2 R7, @16(AP) ;LENGTH, @DST_LEN 0663 10 BC 57 C0 00027
RET ; 0664 04 0002B
; Routine Size: 44 bytes, Routine Base: $CODE$ + 0105
; 0665 2 !
; 0666 2 ! Initialize the command descriptor
; 0667 2 !
; 0668 2 COMMAND_DESC [DSC$B_CLASS] = DSC$K_CLASS_S;
; 0669 2 COMMAND_DESC [DSC$B_DTYPE] = DSC$K_DTYPE_T;
; 0670 2 COMMAND_LENGTH = 0; ! Nothing here yet
; 0671 2 COMMAND_DESC [DSC$A_POINTER] = COMMAND_STR; ! Point at string storage
; 0672 2 POINTER = CH$PTR (COMMAND_STR);
; 0673 2 !
; 0674 2 ! Determine what to do with the command
; 0675 2 !
; 0676 2
; 0677 2 CASE .GCMD_TYPE FROM GC_MIN TO GC_MAX OF
; 0678 2 SET
; 0679 2
; 0680 2 [GC_COPY] :
; 0681 3 BEGIN
; 0682 3
; 0683 3 EXTERNAL
; 0684 3 GEN_COPY_CMD : BLOCK [8, BYTE];
; 0685 3
; 0686 3 CONCAT (.GEN_COPY_CMD [DSC$A_POINTER], .GEN_COPY_CMD [DSC$W_LENGTH], POINTER, COMMAND_LENGTH);
; 0687 3 CONCAT (GEN_1DATA, .GEN_1SIZE, POINTER, COMMAND_LENGTH);
; 0688 3 CONCAT (UPLIT (%ASCII' '), 1, POINTER, COMMAND_LENGTH);
; 0689 3 CONCAT (GEN_2DATA, .GEN_2SIZE, POINTER, COMMAND_LENGTH);
; 0690 2 END;
; 0691 2
; 0692 2 [GC_CONNECT] :
; 0693 3 BEGIN
; 0694 3
; 0695 3 LOCAL
; 0696 3 LENGTH,
; 0697 3 DIR_FAB : $FAB_DECL, ! FAB for $PARSE
; 0698 3 DIR_NAM : $NAM_DECL, ! NAM for $PARSE
; 0699 3 EXP_STR : VECTOR [NAM$C_MAXRSS, BYTE], ! Expanded file spec
; 0700 3 DEV_DESC : BLOCK [8, BYTE], ! Descriptor for device name
; 0701 3 DIR_DESC : BLOCK [8, BYTE];
; 0702 3
; 0703 3 DIR_DESC [DSC$B_CLASS] = DSC$K_CLASS_S;
; 0704 3 DIR_DESC [DSC$B_DTYPE] = DSC$K_DTYPE_T;
; 0705 3 DEV_DESC [DSC$B_CLASS] = DSC$K_CLASS_S;
; 0706 3 DEV_DESC [DSC$B_DTYPE] = DSC$K_DTYPE_T;
; 0707 3
; 0708 3 IF .GEN_1SIZE GTR 0
; 0709 3 THEN
; 0710 4 BEGIN
; 0711 4 $FAB_INIT (FAB = DIR_FAB, FOP = NAM, NAM = DIR_NAM, FNA = GEN_1DATA, FNS = .GEN_1SIZE);
; 0712 4 $NAM_INIT (NAM = DIR_NAM, ESA = EXP_STR, ESS = NAM$C_MAXRSS);
; 0713 4 STATUS = $PARSE (FAB = DIR_FAB);
; 0714 4
; 0715 4 IF NOT .STATUS
; 0716 4 THEN
; 0717 5 BEGIN
; 0718 5 LIB$SIGNAL (.STATUS);
; 0719 5 RETURN .STATUS;
; 0720 4 END;
; 0721 4
; 0722 4 IF .DIR_NAM [NAM$B_NODE] GTR 0
; 0723 4 THEN
; 0724 5 BEGIN
; 0725 5 DEV_DESC [DSC$A_POINTER] = .DIR_NAM [NAM$L_NODE];
; 0726 5 DEV_DESC [DSC$W_LENGTH] = .DIR_NAM [NAM$B_NODE] + .DIR_NAM [NAM$B_DEV];
; 0727 5 END
; 0728 4 ELSE
; 0729 5 BEGIN
; 0730 5 DEV_DESC [DSC$W_LENGTH] = .DIR_NAM [NAM$B_DEV];
; 0731 5 DEV_DESC [DSC$A_POINTER] = .DIR_NAM [NAM$L_DEV];
; 0732 4 END;
; 0733 4
; 0734 4 DIR_DESC [DSC$W_LENGTH] = .DIR_NAM [NAM$B_DIR];
; 0735 4 DIR_DESC [DSC$A_POINTER] = .DIR_NAM [NAM$L_DIR];
; 0736 4 END
; 0737 3 ELSE
; 0738 4 BEGIN
; 0739 4 DIR_DESC [DSC$W_LENGTH] = .ORG_DEFAULT_DIR [DSC$W_LENGTH];
; 0740 4 DIR_DESC [DSC$A_POINTER] = .ORG_DEFAULT_DIR [DSC$A_POINTER];
; 0741 4 DEV_DESC [DSC$W_LENGTH] = .ORG_DEFAULT_DEV [DSC$W_LENGTH];
; 0742 4 DEV_DESC [DSC$A_POINTER] = .ORG_DEFAULT_DEV [DSC$A_POINTER];
; 0743 3 END;
; 0744 3
; 0745 3 STATUS = LIB$SET_LOGICAL (%ASCID'SYS$DISK', DEV_DESC);
; 0746 3
; 0747 3 IF NOT .STATUS
; 0748 3 THEN
; 0749 4 BEGIN
; 0750 4 LIB$SIGNAL (.STATUS);
; 0751 4 RETURN .STATUS;
; 0752 3 END;
; 0753 3
; 0754 3 STATUS = SYS$SETDDIR (DIR_DESC, 0, 0);
; 0755 3
; 0756 3 IF NOT .STATUS
; 0757 3 THEN
; 0758 4 BEGIN
; 0759 4 LIB$SIGNAL (.STATUS);
; 0760 4 RETURN .STATUS;
; 0761 3 END;
; 0762 3
; 0763 3 DIR_DESC [DSC$A_POINTER] = GEN_1DATA;
; 0764 3 DIR_DESC [DSC$W_LENGTH] = MAX_MSG;
; 0765 3 STATUS = SYS$SETDDIR (0, DIR_DESC [DSC$W_LENGTH], DIR_DESC);
; 0766 3
; 0767 3 IF NOT .STATUS
; 0768 3 THEN
; 0769 4 BEGIN
; 0770 4 LIB$SIGNAL (.STATUS);
; 0771 4 RETURN .STATUS;
; 0772 3 END;
; 0773 3
; 0774 3 POINTER = CH$PTR (RSP_TEXT);
; 0775 3 RSP_LEN = 0;
; 0776 3 CONCAT (UPLIT (%ASCII'Default directory set to '), 25, POINTER, RSP_LEN);
; 0777 3 CONCAT (.DEV_DESC [DSC$A_POINTER], .DEV_DESC [DSC$W_LENGTH], POINTER, RSP_LEN);
; 0778 3 CONCAT (.DIR_DESC [DSC$A_POINTER], .DIR_DESC [DSC$W_LENGTH], POINTER, RSP_LEN);
; 0779 3 .STRING_ADDRESS = RSP_TEXT;
; 0780 3 .STRING_LENGTH = .RSP_LEN;
; 0781 3 RETURN KER_NORMAL;
; 0782 2 END;
; 0783 2
; 0784 2 [GC_DELETE] :
; 0785 3 BEGIN
; 0786 3
; 0787 3 EXTERNAL
; 0788 3 GEN_DELETE_CMD : BLOCK [8, BYTE];
; 0789 3
; 0790 3 CONCAT (.GEN_DELETE_CMD [DSC$A_POINTER], .GEN_DELETE_CMD [DSC$W_LENGTH], POINTER, COMMAND_LENGTH);
; 0791 3 CONCAT (GEN_1DATA, .GEN_1SIZE, POINTER, COMMAND_LENGTH);
; 0792 2 END;
; 0793 2
; 0794 2 [GC_DIRECTORY] :
; 0795 3 BEGIN
; 0796 3
; 0797 3 EXTERNAL
; 0798 3 GEN_DIR_CMD : BLOCK [8, BYTE];
; 0799 3
; 0800 3 CONCAT (.GEN_DIR_CMD [DSC$A_POINTER], .GEN_DIR_CMD [DSC$W_LENGTH], POINTER, COMMAND_LENGTH);
; 0801 3 CONCAT (GEN_1DATA, .GEN_1SIZE, POINTER, COMMAND_LENGTH);
; 0802 2 END;
; 0803 2
; 0804 2 [GC_DISK_USAGE] :
; 0805 3 BEGIN
; 0806 3
; 0807 3 EXTERNAL
; 0808 3 GEN_USG_CMD : BLOCK [8, BYTE], ! Command without arg
; 0809 3 GEN_USG_ARG_CMD : BLOCK [8, BYTE]; ! Command with arg
; 0810 3
; 0811 3 IF .GEN_1SIZE LEQ 0
; 0812 3 THEN
; 0813 4 BEGIN
; 0814 4 CONCAT (.GEN_USG_CMD [DSC$A_POINTER], .GEN_USG_CMD [DSC$W_LENGTH], POINTER, COMMAND_LENGTH);
; 0815 4 END
; 0816 3 ELSE
; 0817 4 BEGIN
; 0818 4 CONCAT (.GEN_USG_ARG_CMD [DSC$A_POINTER], .GEN_USG_ARG_CMD [DSC$W_LENGTH], POINTER,
; 0819 4 COMMAND_LENGTH);
; 0820 4 CONCAT (GEN_1DATA, .GEN_1SIZE, POINTER, COMMAND_LENGTH);
; 0821 3 END;
; 0822 3
; 0823 2 END;
; 0824 2
; 0825 2 [GC_HELP] :
; 0826 3 BEGIN
; 0827 3
; 0828 3 EXTERNAL
; 0829 3 GEN_HELP_TEXT : BLOCK [8, BYTE];
; 0830 3
; 0831 3 .STRING_ADDRESS = .GEN_HELP_TEXT [DSC$A_POINTER];
; 0832 3 .STRING_LENGTH = .GEN_HELP_TEXT [DSC$W_LENGTH];
; 0833 3 RETURN KER_NORMAL;
; 0834 2 END;
; 0835 2
; 0836 2 [GC_RENAME] :
; 0837 3 BEGIN
; 0838 3
; 0839 3 EXTERNAL
; 0840 3 GEN_REN_CMD : BLOCK [8, BYTE];
; 0841 3
; 0842 3 CONCAT (.GEN_REN_CMD [DSC$A_POINTER], .GEN_REN_CMD [DSC$W_LENGTH], POINTER, COMMAND_LENGTH);
; 0843 3 CONCAT (GEN_1DATA, .GEN_1SIZE, POINTER, COMMAND_LENGTH);
; 0844 3 CONCAT (UPLIT (%ASCII' '), 1, POINTER, COMMAND_LENGTH);
; 0845 3 CONCAT (GEN_2DATA, .GEN_2SIZE, POINTER, COMMAND_LENGTH);
; 0846 2 END;
; 0847 2
; 0848 2 [GC_SEND_MSG] :
; 0849 3 BEGIN
; 0850 3
; 0851 3 EXTERNAL
; 0852 3 GEN_SEND_CMD : BLOCK [8, BYTE];
; 0853 3
; 0854 3 CONCAT (.GEN_SEND_CMD [DSC$A_POINTER], .GEN_SEND_CMD [DSC$W_LENGTH], POINTER, COMMAND_LENGTH);
; 0855 3 CONCAT (GEN_1DATA, .GEN_1SIZE, POINTER, COMMAND_LENGTH);
; 0856 3 CONCAT (UPLIT (%ASCII' "'), 2, POINTER, COMMAND_LENGTH);
; 0857 3 CONCAT (GEN_2DATA, .GEN_2SIZE, POINTER, COMMAND_LENGTH);
; 0858 3 CONCAT (UPLIT (%ASCII'"'), 1, POINTER, COMMAND_LENGTH);
; 0859 2 END;
; 0860 2
; 0861 2 [GC_TYPE] :
; 0862 2 !
; 0863 2 ! While KERMSG handles this for server requests, COMND_LOCAL in KERMIT does
; 0864 2 ! not. Therefore, set up the request to open the correct file.
; 0865 2 !
; 0866 3 BEGIN
; 0867 3 CH$COPY (.GEN_1SIZE, GEN_1DATA, CHR_NUL, MAX_FILE_NAME, FILE_NAME);
; 0868 3 FILE_SIZE = .GEN_1SIZE;
; 0869 3 RETURN KER_NORMAL;
; 0870 2 END;
; 0871 2
; 0872 2 [GC_WHO] :
; 0873 3 BEGIN
; 0874 3
; 0875 3 EXTERNAL
; 0876 3 GEN_WHO_CMD : BLOCK [8, BYTE];
; 0877 3
; 0878 3 CONCAT (.GEN_WHO_CMD [DSC$A_POINTER], .GEN_WHO_CMD [DSC$W_LENGTH], POINTER, COMMAND_LENGTH);
; 0879 3 CONCAT (GEN_1DATA, .GEN_1SIZE, POINTER, COMMAND_LENGTH);
; 0880 3 CONCAT (GEN_2DATA, .GEN_2SIZE, POINTER, COMMAND_LENGTH);
; 0881 2 END;
; 0882 2
; 0883 2 [GC_COMMAND] :
; 0884 2 ! Host command. Just pass it to the process
; 0885 2 CONCAT (GEN_1DATA, .GEN_1SIZE, POINTER, COMMAND_LENGTH);
; 0886 2
; 0887 2 [INRANGE, OUTRANGE] :
; 0888 3 BEGIN
; 0889 3 LIB$SIGNAL (KER_UNIMPLGEN);
; 0890 3 RETURN KER_UNIMPLGEN; ! We don't do any
; 0891 2 END;
; 0892 2 TES;
; 0893 2
; 0894 2 !
; 0895 2 ! If we fall out of the case statement, we need to create a mailbox and
; 0896 2 ! spawn a process to perform the command with its output going to the
; 0897 2 ! mailbox
; 0898 2 !
; 0899 2 COMMAND_DESC [DSC$W_LENGTH] = .COMMAND_LENGTH; ! Copy command length
; 0900 2 ITMLST [0] = JPI$_PID^16 + 4; ! Get PID
; 0901 2 ITMLST [1] = OUR_PID; ! Into OUR_PID
; 0902 2 ITMLST [2] = ITMLST [2]; ! Get length here
; 0903 2 ITMLST [3] = 0; ! End of list
; 0904 2 $GETJPI (ITMLST = ITMLST); ! Get info for us
; 0905 2 CH$COPY (11, CH$PTR (UPLIT (%ASCII'KERMIT$MBX_')), CHR_NUL, ! Build name
; 0906 2 MAX_MBX_LEN, CH$PTR (MBX_NAME)); ! for mailbox
; 0907 2 MBX_DESC [DSC$B_CLASS] = DSC$K_CLASS_S;
; 0908 2 MBX_DESC [DSC$B_DTYPE] = DSC$K_DTYPE_T;
; 0909 2 MBX_DESC [DSC$W_LENGTH] = MAX_MBX_LEN - 12; ! MBX name length
; 0910 2 MBX_DESC [DSC$A_POINTER] = MBX_NAME + 11; ! Where to build rest of name
; 0911 2 OTS$CVT_L_TZ (OUR_PID, MBX_DESC, MAX_MBX_LEN - 12); ! Generate rest of name
; 0912 2 MBX_DESC [DSC$W_LENGTH] = MAX_MBX_LEN - 1; ! Set total length for create
; 0913 2 MBX_DESC [DSC$A_POINTER] = MBX_NAME; ! Point at start of name
; 0914 2 STATUS = $CREMBX (CHAN = MBX_CHAN, LOGNAM = MBX_DESC);
; 0915 2
; 0916 2 IF NOT .STATUS
; 0917 2 THEN
; 0918 3 BEGIN
; 0919 3 LIB$SIGNAL (.STATUS);
; 0920 3 RETURN .STATUS;
; 0921 2 END;
; 0922 2
; 0923 2 MBX_NAME [MAX_MBX_LEN - 1] = %C':'; ! Terminate with colon
; 0924 2 MBX_DESC [DSC$W_LENGTH] = MAX_MBX_LEN; ! Set total length including colon
; 0925 2 CH$COPY (MAX_MBX_LEN - 1, CH$PTR (MBX_NAME), CHR_NUL, MAX_FILE_NAME, CH$PTR (FILE_NAME));
; 0926 2 FILE_SIZE = MAX_MBX_LEN - 1; ! Set up FILE_NAME
; 0927 2 FLAGS = 1; ! Don't wait for process
; 0928 2 STATUS = LIB$SPAWN ( ! Spawn a DCL subprocess
; 0929 2 COMMAND_DESC, ! to do this command
; 0930 3 (IF .VMS_VERSION LEQ 3 ! If old VMS
; 0931 3 THEN
; 0932 3 0 ! Then no SYS$INPUT arg
; 0933 3 ELSE
; 0934 2 %ASCID'NLA0:'), ! no SYS$INPUT
; 0935 2 MBX_DESC, ! set SYS$OUTPUT to mailbox
; 0936 2 FLAGS, ! don't wait for process to complete
; 0937 2 0, ! Process name
; 0938 2 0, ! process id
; 0939 2 0, ! completion status
; 0940 2 0, ! ?
; 0941 3 (IF .VMS_VERSION LEQ 3 ! If VMS 3 or earlier
; 0942 3 THEN
; 0943 3 PROCESS_COMPLETION_AST ! We need to force eof
; 0944 3 ELSE ! when process finishes
; 0945 2 0), ! 4.0 and on we get one free
; 0946 2 .MBX_CHAN); ! feed ast routine this value
; 0947 2
; 0948 2 IF NOT .STATUS THEN LIB$SIGNAL (.STATUS);
; 0949 2
; 0950 2 RETURN .STATUS;
; 0951 1 END; ! End of SY_GENERIC
.PSECT $PLIT$,NOWRT,NOEXE,2
P.AAC: .ASCII \ \<0><0><0> ; 00 00 00 20 00010
P.AAE: .ASCII \SYS$DISK\ ; 4B 53 49 44 24 53 59 53 00014
P.AAD: .LONG 17694728 ; 010E0008 0001C
.ADDRESS P.AAE ; 00000000' 00020
P.AAF: .ASCII \Default directory set to \<0><0><0>
; 20 74 6C 75 61 66 65 44 00024
; 72 6F 74 63 65 72 69 64 0002C
; 6F 74 20 74 65 73 20 79 00034
; 00 00 00 20 0003C
P.AAG: .ASCII \ \<0><0><0> ; 00 00 00 20 00040
P.AAH: .ASCII \ "\<0><0> ; 00 00 22 20 00044
P.AAI: .ASCII \"\<0><0><0> ; 00 00 00 22 00048
P.AAJ: .ASCII \KERMIT$MBX_\<0> ; 4D 24 54 49 4D 52 45 4B 0004C
; 00 5F 58 42 00054
P.AAL: .ASCII \NLA0:\<0><0><0> ; 00 00 00 3A 30 41 4C 4E 00058
P.AAK: .LONG 17694725 ; 010E0005 00060
.ADDRESS P.AAL ; 00000000' 00064
.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<R2,R3,R4,R5,R6,- ;SY_GENERIC, Save R2,R3,R4,R5,R6,R7,- 0577 0FFC 00000
R7,R8,R9,R10,R11> ;R8,R9,R10,R11
MOVAB G^P.AAC, R11 ;P.AAC, R11 5B 00000000' 00 9E 00002
MOVAB G^GEN_1DATA, R10 ;GEN_1DATA, R10 5A 00000000G 00 9E 00009
MOVAB G^GEN_1SIZE, R9 ;GEN_1SIZE, R9 59 00000000G 00 9E 00010
MOVAB G^U.11, R8 ;U.11, R8 58 00000000' 00 9E 00017
MOVAB B^U.13, R7 ;U.13, R7 57 B3 AF 9E 0001E
MOVAB -2520(SP), SP ;-2520(SP), SP 5E F628 CE 9E 00022
MOVW #270, -22(FP) ;#270, COMMAND_DESC+2 0669 EA AD 010E 8F B0 00027
CLRL -(SP) ;COMMAND_LENGTH 0670 7E D4 0002D
MOVAB 496(SP), -20(FP) ;COMMAND_STR, COMMAND_DESC+4 0671 EC AD 01F0 CE 9E 0002F
MOVAB 496(SP), 4(SP) ;COMMAND_STR, POINTER 0672 04 AE 01F0 CE 9E 00035
CASEL 4(AP), #1, #18 ;GCMD_TYPE, #1, #18 0677 01 04 AC CF 0003B
; 12 0003F
1$: .WORD 2$-1$,- ;2$-1$,- 01C3 0026 00040
14$-1$,- ;14$-1$,- 01AF 01D7 00044
15$-1$,- ;15$-1$,- 0208 0297 00048
13$-1$,- ;13$-1$,- 0026 0026 0004C
22$-1$,- ;22$-1$,- 021B 0068 00050
18$-1$,- ;18$-1$,- 02B5 003B 00054
2$-1$,- ;2$-1$,- 0026 0249 00058
2$-1$,- ;2$-1$,- 0026 02E9 0005C
4$-1$,- ;4$-1$,- 0026 0026 00060
20$-1$,- ;20$-1$,- 0026 00064
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 0889 080180B2 8F DD 00066
CALLS #1, G^LIB$SIGNAL ;#1, LIB$SIGNAL 00000000G 00 01 FB 0006C
MOVL #134316210, R0 ;#134316210, R0 0890 50 080180B2 8F D0 00073
RET ; 04 0007A
3$: PUSHL SP ;SP 0686 5E DD 0007B
PUSHAB 8(SP) ;POINTER 08 AE 9F 0007D
MOVZWL G^GEN_COPY_CMD, -(SP) ;GEN_COPY_CMD, -(SP) 7E 00000000G 00 3C 00080
PUSHL G^GEN_COPY_CMD+4 ;GEN_COPY_CMD+4 00000000G 00 DD 00087
CALLS #4, (R7) ;#4, CONCAT 67 04 FB 0008D
PUSHL SP ;SP 0687 5E DD 00090
PUSHAB 8(SP) ;POINTER 08 AE 9F 00092
PUSHL (R9) ;GEN_1SIZE 69 DD 00095
PUSHL R10 ;R10 5A DD 00097
CALLS #4, (R7) ;#4, CONCAT 67 04 FB 00099
PUSHL SP ;SP 0688 5E DD 0009C
PUSHAB 8(SP) ;POINTER 08 AE 9F 0009E
PUSHL #1 ;#1 01 DD 000A1
PUSHL R11 ;R11 5B DD 000A3
BRW 25$ ;25$ 026B 31 000A5
4$: MOVW #270, 22(SP) ;#270, DIR_DESC+2 0704 16 AE 010E 8F B0 000A8
MOVW #270, 30(SP) ;#270, DEV_DESC+2 0706 1E AE 010E 8F B0 000AE
MOVL (R9), R6 ;GEN_1SIZE, R6 0708 56 69 D0 000B4
BGTR 5$ ;5$ 03 14 000B7
BRW 8$ ;8$ 0095 31 000B9
5$: MOVC5 #0, (SP), #0, #80, 388(SP) ;#0, (SP), #0, #80, $RMS_PTR 0711 6E 00 2C 000BC
; 0050 8F 00 000BF
; 0184 CE 000C3
MOVW #20483, 388(SP) ;#20483, $RMS_PTR 0184 CE 5003 8F B0 000C6
MOVL #16777216, 392(SP) ;#16777216, $RMS_PTR+4 0188 CE 01000000 8F D0 000CD
MOVB #2, 410(SP) ;#2, $RMS_PTR+22 019A CE 02 90 000D6
MOVB #2, 419(SP) ;#2, $RMS_PTR+31 01A3 CE 02 90 000DB
MOVAB 292(SP), 428(SP) ;DIR_NAM, $RMS_PTR+40 01AC CE 0124 CE 9E 000E0
MOVAB (R10), 432(SP) ;GEN_1DATA, $RMS_PTR+44 01B0 CE 6A 9E 000E7
MOVB R6, 440(SP) ;R6, $RMS_PTR+52 01B8 CE 56 90 000EC
MOVC5 #0, (SP), #0, #96, 292(SP) ;#0, (SP), #0, #96, $RMS_PTR 0712 6E 00 2C 000F1
; 0060 8F 00 000F4
; 0124 CE 000F8
MOVW #24578, 292(SP) ;#24578, $RMS_PTR 0124 CE 6002 8F B0 000FB
MNEGB #1, 302(SP) ;#1, $RMS_PTR+10 012E CE 01 8E 00102
MOVAB 36(SP), 304(SP) ;EXP_STR, $RMS_PTR+12 0130 CE 24 AE 9E 00107
PUSHAB 388(SP) ;DIR_FAB 0713 0184 CE 9F 0010D
CALLS #1, G^SYS$PARSE ;#1, SYS$PARSE 00000000G 00 01 FB 00111
MOVL R0, R6 ;R0, STATUS 56 50 D0 00118
BLBC R6, 10$ ;STATUS, 10$ 0715 6D 56 E9 0011B
MOVZBL 348(SP), R0 ;DIR_NAM+56, R0 0722 50 015C CE 9A 0011E
BLEQ 6$ ;6$ 12 15 00123
MOVL 356(SP), 32(SP) ;DIR_NAM+64, DEV_DESC+4 0725 20 AE 0164 CE D0 00125
MOVZBL 349(SP), R1 ;DIR_NAM+57, R1 0726 51 015D CE 9A 0012B
ADDW3 R1, R0, 28(SP) ;R1, R0, DEV_DESC 50 51 A1 00130
; 1C AE 00133
BRB 7$ ;7$ 0C 11 00135
6$: MOVZBW 349(SP), 28(SP) ;DIR_NAM+57, DEV_DESC 0730 1C AE 015D CE 9B 00137
MOVL 360(SP), 32(SP) ;DIR_NAM+68, DEV_DESC+4 0731 20 AE 0168 CE D0 0013D
7$: MOVZBW 350(SP), 20(SP) ;DIR_NAM+58, DIR_DESC 0734 14 AE 015E CE 9B 00143
MOVL 364(SP), 24(SP) ;DIR_NAM+72, DIR_DESC+4 0735 18 AE 016C CE D0 00149
BRB 9$ ;9$ 18 11 0014F
8$: MOVW -2160(R8), 20(SP) ;ORG_DEFAULT_DIR, DIR_DESC 0739 14 AE F790 C8 B0 00151
MOVL -2156(R8), 24(SP) ;ORG_DEFAULT_DIR+4, DIR_DESC+4 0740 18 AE F794 C8 D0 00157
MOVW -2020(R8), 28(SP) ;ORG_DEFAULT_DEV, DEV_DESC 0741 1C AE F81C C8 B0 0015D
MOVL -2016(R8), 32(SP) ;ORG_DEFAULT_DEV+4, DEV_DESC+4 0742 20 AE F820 C8 D0 00163
9$: PUSHAB 28(SP) ;DEV_DESC 0745 1C AE 9F 00169
PUSHAB 12(R11) ;P.AAD 0C AB 9F 0016C
CALLS #2, G^LIB$SET_LOGICAL ;#2, LIB$SET_LOGICAL 00000000G 00 02 FB 0016F
MOVL R0, R6 ;R0, STATUS 56 50 D0 00176
BLBC R6, 11$ ;STATUS, 11$ 0747 2E 56 E9 00179
CLRQ -(SP) ;-(SP) 0754 7E 7C 0017C
PUSHAB 28(SP) ;DIR_DESC 1C AE 9F 0017E
CALLS #3, G^SYS$SETDDIR ;#3, SYS$SETDDIR 00000000G 00 03 FB 00181
MOVL R0, R6 ;R0, STATUS 56 50 D0 00188
10$: BLBC R6, 11$ ;STATUS, 11$ 0756 1C 56 E9 0018B
MOVAB (R10), 24(SP) ;GEN_1DATA, DIR_DESC+4 0763 18 AE 6A 9E 0018E
MOVW #1002, 20(SP) ;#1002, DIR_DESC 0764 14 AE 03EA 8F B0 00192
PUSHAB 20(SP) ;DIR_DESC 0765 14 AE 9F 00198
PUSHAB 24(SP) ;DIR_DESC 18 AE 9F 0019B
CLRL -(SP) ;-(SP) 7E D4 0019E
CALLS #3, G^SYS$SETDDIR ;#3, SYS$SETDDIR 00000000G 00 03 FB 001A0
MOVL R0, R6 ;R0, STATUS 56 50 D0 001A7
11$: BLBS R6, 12$ ;STATUS, 12$ 0767 03 56 E8 001AA
BRW 32$ ;32$ 0262 31 001AD
12$: MOVAB -2004(R8), 4(SP) ;RSP_TEXT, POINTER 0774 04 AE F82C C8 9E 001B0
CLRL (R8) ;RSP_LEN 0775 68 D4 001B6
PUSHL R8 ;R8 0776 58 DD 001B8
PUSHAB 8(SP) ;POINTER 08 AE 9F 001BA
PUSHL #25 ;#25 19 DD 001BD
PUSHAB 20(R11) ;P.AAF 14 AB 9F 001BF
CALLS #4, (R7) ;#4, CONCAT 67 04 FB 001C2
PUSHL R8 ;R8 0777 58 DD 001C5
PUSHAB 8(SP) ;POINTER 08 AE 9F 001C7
MOVZWL 36(SP), -(SP) ;DEV_DESC, -(SP) 7E 24 AE 3C 001CA
PUSHL 44(SP) ;DEV_DESC+4 2C AE DD 001CE
CALLS #4, (R7) ;#4, CONCAT 67 04 FB 001D1
PUSHL R8 ;R8 0778 58 DD 001D4
PUSHAB 8(SP) ;POINTER 08 AE 9F 001D6
MOVZWL 28(SP), -(SP) ;DIR_DESC, -(SP) 7E 1C AE 3C 001D9
PUSHL 36(SP) ;DIR_DESC+4 24 AE DD 001DD
CALLS #4, (R7) ;#4, CONCAT 67 04 FB 001E0
MOVAB -2004(R8), @8(AP) ;RSP_TEXT, @STRING_ADDRESS 0779 08 BC F82C C8 9E 001E3
MOVL (R8), @12(AP) ;RSP_LEN, @STRING_LENGTH 0780 0C BC 68 D0 001E9
BRB 19$ ;19$ 0781 69 11 001ED
13$: PUSHL SP ;SP 0790 5E DD 001EF
PUSHAB 8(SP) ;POINTER 08 AE 9F 001F1
MOVZWL G^GEN_DELETE_CMD, -(SP) ;GEN_DELETE_CMD, -(SP) 7E 00000000G 00 3C 001F4
PUSHL G^GEN_DELETE_CMD+4 ;GEN_DELETE_CMD+4 00000000G 00 DD 001FB
BRB 17$ ;17$ 3F 11 00201
14$: PUSHL SP ;SP 0800 5E DD 00203
PUSHAB 8(SP) ;POINTER 08 AE 9F 00205
MOVZWL G^GEN_DIR_CMD, -(SP) ;GEN_DIR_CMD, -(SP) 7E 00000000G 00 3C 00208
PUSHL G^GEN_DIR_CMD+4 ;GEN_DIR_CMD+4 00000000G 00 DD 0020F
BRB 17$ ;17$ 2B 11 00215
15$: TSTL (R9) ;GEN_1SIZE 0811 69 D5 00217
BGTR 16$ ;16$ 15 14 00219
PUSHL SP ;SP 0814 5E DD 0021B
PUSHAB 8(SP) ;POINTER 08 AE 9F 0021D
MOVZWL G^GEN_USG_CMD, -(SP) ;GEN_USG_CMD, -(SP) 7E 00000000G 00 3C 00220
PUSHL G^GEN_USG_CMD+4 ;GEN_USG_CMD+4 00000000G 00 DD 00227
BRW 27$ ;27$ 0102 31 0022D
16$: PUSHL SP ;SP 0819 5E DD 00230
PUSHAB 8(SP) ;POINTER 0818 08 AE 9F 00232
MOVZWL G^GEN_USG_ARG_CMD, -(SP) ;GEN_USG_ARG_CMD, -(SP) 7E 00000000G 00 3C 00235
PUSHL G^GEN_USG_ARG_CMD+4 ;GEN_USG_ARG_CMD+4 00000000G 00 DD 0023C
17$: CALLS #4, (R7) ;#4, CONCAT 67 04 FB 00242
BRW 26$ ;26$ 0820 00E1 31 00245
18$: MOVL G^GEN_HELP_TEXT+4, @8(AP) ;GEN_HELP_TEXT+4, @STRING_ADDRESS 0831 08 BC 00000000G 00 D0 00248
MOVZWL G^GEN_HELP_TEXT, @12(AP) ;GEN_HELP_TEXT, @STRING_LENGTH 0832 0C BC 00000000G 00 3C 00250
19$: BRW 23$ ;23$ 0833 0092 31 00258
20$: PUSHL SP ;SP 0842 5E DD 0025B
PUSHAB 8(SP) ;POINTER 08 AE 9F 0025D
MOVZWL G^GEN_REN_CMD, -(SP) ;GEN_REN_CMD, -(SP) 7E 00000000G 00 3C 00260
PUSHL G^GEN_REN_CMD+4 ;GEN_REN_CMD+4 00000000G 00 DD 00267
CALLS #4, (R7) ;#4, CONCAT 67 04 FB 0026D
PUSHL SP ;SP 0843 5E DD 00270
PUSHAB 8(SP) ;POINTER 08 AE 9F 00272
PUSHL (R9) ;GEN_1SIZE 69 DD 00275
PUSHL R10 ;R10 5A DD 00277
CALLS #4, (R7) ;#4, CONCAT 67 04 FB 00279
PUSHL SP ;SP 0844 5E DD 0027C
PUSHAB 8(SP) ;POINTER 08 AE 9F 0027E
PUSHL #1 ;#1 01 DD 00281
PUSHAB 48(R11) ;P.AAG 30 AB 9F 00283
BRW 25$ ;25$ 008A 31 00286
21$: PUSHL SP ;SP 0854 5E DD 00289
PUSHAB 8(SP) ;POINTER 08 AE 9F 0028B
MOVZWL G^GEN_SEND_CMD, -(SP) ;GEN_SEND_CMD, -(SP) 7E 00000000G 00 3C 0028E
PUSHL G^GEN_SEND_CMD+4 ;GEN_SEND_CMD+4 00000000G 00 DD 00295
CALLS #4, (R7) ;#4, CONCAT 67 04 FB 0029B
PUSHL SP ;SP 0855 5E DD 0029E
PUSHAB 8(SP) ;POINTER 08 AE 9F 002A0
PUSHL (R9) ;GEN_1SIZE 69 DD 002A3
PUSHL R10 ;R10 5A DD 002A5
CALLS #4, (R7) ;#4, CONCAT 67 04 FB 002A7
PUSHL SP ;SP 0856 5E DD 002AA
PUSHAB 8(SP) ;POINTER 08 AE 9F 002AC
PUSHL #2 ;#2 02 DD 002AF
PUSHAB 52(R11) ;P.AAH 34 AB 9F 002B1
CALLS #4, (R7) ;#4, CONCAT 67 04 FB 002B4
PUSHL SP ;SP 0857 5E DD 002B7
PUSHAB 8(SP) ;POINTER 08 AE 9F 002B9
PUSHL G^GEN_2SIZE ;GEN_2SIZE 00000000G 00 DD 002BC
PUSHAB G^GEN_2DATA ;GEN_2DATA 00000000G 00 9F 002C2
CALLS #4, (R7) ;#4, CONCAT 67 04 FB 002C8
PUSHL SP ;SP 0858 5E DD 002CB
PUSHAB 8(SP) ;POINTER 08 AE 9F 002CD
PUSHL #1 ;#1 01 DD 002D0
PUSHAB 56(R11) ;P.AAI 38 AB 9F 002D2
BRB 27$ ;27$ 5B 11 002D5
22$: MOVL (R9), R6 ;GEN_1SIZE, R6 0867 56 69 D0 002D7
MOVC5 R6, (R10), #0, #132, G^FILE_NAME ;R6, GEN_1DATA, #0, #132, FILE_NAME 6A 56 2C 002DA
; 0084 8F 00 002DD
; 00000000G 00 002E1
MOVL R6, G^FILE_SIZE ;R6, FILE_SIZE 0868 00000000G 00 56 D0 002E6
23$: MOVL #134316043, R0 ;#134316043, R0 0869 50 0801800B 8F D0 002ED
RET ; 04 002F4
24$: PUSHL SP ;SP 0878 5E DD 002F5
PUSHAB 8(SP) ;POINTER 08 AE 9F 002F7
MOVZWL G^GEN_WHO_CMD, -(SP) ;GEN_WHO_CMD, -(SP) 7E 00000000G 00 3C 002FA
PUSHL G^GEN_WHO_CMD+4 ;GEN_WHO_CMD+4 00000000G 00 DD 00301
CALLS #4, (R7) ;#4, CONCAT 67 04 FB 00307
PUSHL SP ;SP 0879 5E DD 0030A
PUSHAB 8(SP) ;POINTER 08 AE 9F 0030C
PUSHL (R9) ;GEN_1SIZE 69 DD 0030F
PUSHL R10 ;R10 5A DD 00311
25$: CALLS #4, (R7) ;#4, CONCAT 67 04 FB 00313
PUSHL SP ;SP 0880 5E DD 00316
PUSHAB 8(SP) ;POINTER 08 AE 9F 00318
PUSHL G^GEN_2SIZE ;GEN_2SIZE 00000000G 00 DD 0031B
PUSHAB G^GEN_2DATA ;GEN_2DATA 00000000G 00 9F 00321
BRB 27$ ;27$ 09 11 00327
26$: PUSHL SP ;SP 0885 5E DD 00329
PUSHAB 8(SP) ;POINTER 08 AE 9F 0032B
PUSHL (R9) ;GEN_1SIZE 69 DD 0032E
PUSHL R10 ;R10 5A DD 00330
27$: CALLS #4, (R7) ;#4, CONCAT 67 04 FB 00332
MOVW (SP), -24(FP) ;COMMAND_LENGTH, COMMAND_DESC 0899 E8 AD 6E B0 00335
MOVL #51970052, -16(FP) ;#51970052, ITMLST 0900 F0 AD 03190004 8F D0 00339
MOVAB 8(SP), -12(FP) ;OUR_PID, ITMLST+4 0901 F4 AD 08 AE 9E 00341
MOVAB -8(FP), -8(FP) ;ITMLST+8, ITMLST+8 0902 F8 AD F8 AD 9E 00346
CLRL -4(FP) ;ITMLST+12 0903 FC AD D4 0034B
CLRQ -(SP) ;-(SP) 0904 7E 7C 0034E
CLRL -(SP) ;-(SP) 7E D4 00350
PUSHAB -16(FP) ;ITMLST F0 AD 9F 00352
CLRQ -(SP) ;-(SP) 7E 7C 00355
CLRL -(SP) ;-(SP) 7E D4 00357
CALLS #7, G^SYS$GETJPI ;#7, SYS$GETJPI 00000000G 00 07 FB 00359
MOVC5 #11, 60(R11), #0, #20, 468(SP) ;#11, P.AAJ, #0, #20, MBX_NAME 0906 3C AB 0B 2C 00360
; 14 00 00364
; 01D4 CE 00366
MOVL #17694728, 488(SP) ;#17694728, MBX_DESC 0909 01E8 CE 010E0008 8F D0 00369
MOVAB 479(SP), 492(SP) ;MBX_NAME+11, MBX_DESC+4 0910 01EC CE 01DF CE 9E 00372
PUSHL #8 ;#8 0911 08 DD 00379
PUSHAB 492(SP) ;MBX_DESC 01EC CE 9F 0037B
PUSHAB 16(SP) ;OUR_PID 10 AE 9F 0037F
CALLS #3, G^OTS$CVT_L_TZ ;#3, OTS$CVT_L_TZ 00000000G 00 03 FB 00382
MOVW #19, 488(SP) ;#19, MBX_DESC 0912 01E8 CE 13 B0 00389
MOVAB 468(SP), 492(SP) ;MBX_NAME, MBX_DESC+4 0913 01EC CE 01D4 CE 9E 0038E
PUSHAB 488(SP) ;MBX_DESC 0914 01E8 CE 9F 00395
CLRQ -(SP) ;-(SP) 7E 7C 00399
CLRQ -(SP) ;-(SP) 7E 7C 0039B
PUSHAB 32(SP) ;MBX_CHAN 20 AE 9F 0039D
CLRL -(SP) ;-(SP) 7E D4 003A0
CALLS #7, G^SYS$CREMBX ;#7, SYS$CREMBX 00000000G 00 07 FB 003A2
MOVL R0, R6 ;R0, STATUS 56 50 D0 003A9
BLBC R6, 32$ ;STATUS, 32$ 0916 63 56 E9 003AC
MOVB #58, 487(SP) ;#58, MBX_NAME+19 0923 01E7 CE 3A 90 003AF
MOVW #20, 488(SP) ;#20, MBX_DESC 0924 01E8 CE 14 B0 003B4
MOVC5 #19, 468(SP), #0, #132, - ;#19, MBX_NAME, #0, #132, FILE_NAME 0925 01D4 CE 13 2C 003B9
G^FILE_NAME ; 0084 8F 00 003BE
; 00000000G 00 003C2
MOVL #19, G^FILE_SIZE ;#19, FILE_SIZE 0926 00000000G 00 13 D0 003C7
MOVL #1, 16(SP) ;#1, FLAGS 0927 10 AE 01 D0 003CE
PUSHL 12(SP) ;MBX_CHAN 0946 0C AE DD 003D2
CLRL R1 ;R1 0941 51 D4 003D5
CMPL -2296(R8), #3 ;VMS_VERSION, #3 03 F708 C8 D1 003D7
BGTR 28$ ;28$ 0A 14 003DC
INCL R1 ;R1 51 D6 003DE
MOVAB -26(R7), R0 ;PROCESS_COMPLETION_AST, R0 0943 50 E6 A7 9E 003E0
PUSHL R0 ;R0 50 DD 003E4
BRB 29$ ;29$ 02 11 003E6
28$: CLRL -(SP) ;-(SP) 0945 7E D4 003E8
29$: CLRQ -(SP) ;-(SP) 0939 7E 7C 003EA
CLRQ -(SP) ;-(SP) 0937 7E 7C 003EC
PUSHAB 40(SP) ;FLAGS 0936 28 AE 9F 003EE
PUSHAB 516(SP) ;MBX_DESC 0935 0204 CE 9F 003F1
BLBC R1, 30$ ;R1, 30$ 0930 04 51 E9 003F5
CLRL -(SP) ;-(SP) 0932 7E D4 003F8
BRB 31$ ;31$ 06 11 003FA
30$: MOVAB 80(R11), R0 ;P.AAK, R0 0934 50 50 AB 9E 003FC
PUSHL R0 ;R0 50 DD 00400
31$: PUSHAB -24(FP) ;COMMAND_DESC 0929 E8 AD 9F 00402
CALLS #10, G^LIB$SPAWN ;#10, LIB$SPAWN 00000000G 00 0A FB 00405
MOVL R0, R6 ;R0, STATUS 56 50 D0 0040C
BLBS R6, 33$ ;STATUS, 33$ 0948 09 56 E8 0040F
32$: PUSHL R6 ;STATUS 56 DD 00412
CALLS #1, G^LIB$SIGNAL ;#1, LIB$SIGNAL 00000000G 00 01 FB 00414
33$: MOVL R6, R0 ;STATUS, R0 0950 50 56 D0 0041B
RET ; 04 0041E
; Routine Size: 1055 bytes, Routine Base: $CODE$ + 0131
; 0952 1
; 0953 1 %SBTTL 'SY_DISMISS - Sleep for N seconds'
; 0954 1
; 0955 1 GLOBAL ROUTINE SY_DISMISS (SECONDS) : NOVALUE =
; 0956 1
; 0957 1 !++
; 0958 1 ! FUNCTIONAL DESCRIPTION:
; 0959 1 !
; 0960 1 ! This routine is called to cause KERMIT to sleep for the
; 0961 1 ! specified number of seconds.
; 0962 1 !
; 0963 1 ! CALLING SEQUENCE:
; 0964 1 !
; 0965 1 ! SY_DISMISS(Number of seconds);
; 0966 1 !
; 0967 1 ! INPUT PARAMETERS:
; 0968 1 !
; 0969 1 ! Number of seconds to sleep.
; 0970 1 !
; 0971 1 ! IMPLICIT INPUTS:
; 0972 1 !
; 0973 1 ! None.
; 0974 1 !
; 0975 1 ! OUTPUT PARAMETERS:
; 0976 1 !
; 0977 1 ! None.
; 0978 1 !
; 0979 1 ! IMPLICIT OUTPUTS:
; 0980 1 !
; 0981 1 ! None.
; 0982 1 !
; 0983 1 ! COMPLETION CODES:
; 0984 1 !
; 0985 1 ! None.
; 0986 1 !
; 0987 1 ! SIDE EFFECTS:
; 0988 1 !
; 0989 1 ! None.
; 0990 1 !
; 0991 1 !--
; 0992 1
; 0993 2 BEGIN
; 0994 2
; 0995 2 LOCAL
; 0996 2 STATUS,
; 0997 2 TOTAL_TIME : VECTOR [2, LONG]; ! Quad word for length of time to sleep
; 0998 2
; 0999 2 IF .SECONDS EQL 0 THEN RETURN KER_NORMAL;
; 1000 2
; 1001 2 TOTAL_TIME [0] = -.SECONDS*10*1000*1000;
; 1002 2 TOTAL_TIME [1] = -1;
; 1003 2 STATUS = $SETIMR (EFN = 1, DAYTIM = TOTAL_TIME);
; 1004 2
; 1005 2 IF NOT .STATUS THEN LIB$SIGNAL (.STATUS);
; 1006 2
; 1007 2 STATUS = $WAITFR (EFN = 1);
; 1008 2
; 1009 2 IF NOT .STATUS THEN LIB$SIGNAL (.STATUS);
; 1010 2
; 1011 1 END; ! End of SY_DISMISS(time)
.EXTRN SYS$SETIMR
.ENTRY SY_DISMISS, ^M<R2,R3> ;SY_DISMISS, Save R2,R3 0955 000C 00000
MOVAB G^LIB$SIGNAL, R3 ;LIB$SIGNAL, R3 53 00000000G 00 9E 00002
SUBL2 #8, SP ;#8, SP 5E 08 C2 00009
TSTL 4(AP) ;SECONDS 0999 04 AC D5 0000C
BEQL 2$ ;2$ 3F 13 0000F
MULL3 #10000000, 4(AP), R0 ;#10000000, SECONDS, R0 1001 04 AC 00989680 8F C5 00011
; 50 00019
MNEGL R0, (SP) ;R0, TOTAL_TIME 6E 50 CE 0001A
MNEGL #1, 4(SP) ;#1, TOTAL_TIME+4 1002 04 AE 01 CE 0001D
CLRQ -(SP) ;-(SP) 1003 7E 7C 00021
CLRL -(SP) ;-(SP) 7E D4 00023
PUSHAB 12(SP) ;TOTAL_TIME 0C AE 9F 00025
PUSHL #1 ;#1 01 DD 00028
CALLS #5, G^SYS$SETIMR ;#5, SYS$SETIMR 00000000G 00 05 FB 0002A
MOVL R0, R2 ;R0, STATUS 52 50 D0 00031
BLBS R2, 1$ ;STATUS, 1$ 1005 05 52 E8 00034
PUSHL R2 ;STATUS 52 DD 00037
CALLS #1, (R3) ;#1, LIB$SIGNAL 63 01 FB 00039
1$: PUSHL #1 ;#1 1007 01 DD 0003C
CALLS #1, G^SYS$WAITFR ;#1, SYS$WAITFR 00000000G 00 01 FB 0003E
MOVL R0, R2 ;R0, STATUS 52 50 D0 00045
BLBS R2, 2$ ;STATUS, 2$ 1009 05 52 E8 00048
PUSHL R2 ;STATUS 52 DD 0004B
CALLS #1, (R3) ;#1, LIB$SIGNAL 63 01 FB 0004D
2$: RET ; 1011 04 00050
; Routine Size: 81 bytes, Routine Base: $CODE$ + 0550
; 1012 1
; 1013 1 %SBTTL 'SY_TIME - Return abbreviated system time'
; 1014 1
; 1015 1 GLOBAL ROUTINE SY_TIME =
; 1016 1
; 1017 1 !++
; 1018 1 ! FUNCTIONAL DESCRIPTION:
; 1019 1 !
; 1020 1 ! This routine will return the system time to the calling routine.
; 1021 1 ! This will allow for the calculation of the effective baud rate.
; 1022 1 !
; 1023 1 ! CALLING SEQUENCE:
; 1024 1 !
; 1025 1 ! TIME = SY_TIME ();
; 1026 1 !
; 1027 1 ! INPUT PARAMETERS:
; 1028 1 !
; 1029 1 ! None.
; 1030 1 !
; 1031 1 ! IMPLICIT INPUTS:
; 1032 1 !
; 1033 1 ! None.
; 1034 1 !
; 1035 1 ! OUTPUT PARAMETERS:
; 1036 1 !
; 1037 1 ! Time in milliseconds.
; 1038 1 !
; 1039 1 ! IMPLICIT OUTPUTS:
; 1040 1 !
; 1041 1 ! None.
; 1042 1 !
; 1043 1 ! COMPLETION CODES:
; 1044 1 !
; 1045 1 ! None.
; 1046 1 !
; 1047 1 ! SIDE EFFECTS:
; 1048 1 !
; 1049 1 ! None.
; 1050 1 !
; 1051 1 !--
; 1052 1
; 1053 2 BEGIN
; 1054 2 !
; 1055 2 ! Local storage
; 1056 2 !
; 1057 2
; 1058 2 LOCAL
; 1059 2 Adjusted_Time : VECTOR [2, LONG], ! System time - a constant.
; 1060 2 MILLI_SECONDS, ! Time in milliseconds
; 1061 2 REMAINDER, ! Remainder on EDIV
; 1062 2 STATUS, ! Status returned by lower level
; 1063 2 Time : VECTOR [2, LONG], ! Quadword to hold system time.
; 1064 2 TEN_FOURTH : VECTOR [2, LONG]; ! to hold 10**4
; 1065 2
; 1066 2 !
; 1067 2 ! LIB$EDIV will fail if the system time is too large, so we need
; 1068 2 ! to subtract some large constant from it - might as well use
; 1069 2 ! the current time.
; 1070 2 !
; 1071 2
; 1072 2 IF .Subtrahend [0] EQL 0 AND .Subtrahend [1] EQL 0
; 1073 2 THEN
; 1074 3 BEGIN
; 1075 3 STATUS = SYS$GETTIM(Subtrahend);
; 1076 3 IF NOT .STATUS THEN RETURN 0;
; 1077 2 END;
; 1078 2 !
; 1079 2 ! Get the VMS system time.
; 1080 2 !
; 1081 2 STATUS = SYS$GETTIM(Time);
; 1082 2 IF NOT .STATUS THEN RETURN 0;
; 1083 2
; 1084 2 !
; 1085 2 ! Compute the longword value from the quadword returned.
; 1086 2 !
; 1087 2 Status = LIB$SUBX(Time, Subtrahend, Adjusted_Time);
; 1088 2 IF NOT .STATUS THEN RETURN 0;
; 1089 2
; 1090 2 TEN_FOURTH [0] = 1000*10;
; 1091 2 TEN_FOURTH [1] = 0;
; 1092 2 STATUS = LIB$EDIV (TEN_FOURTH, Adjusted_Time, MILLI_SECONDS, REMAINDER);
; 1093 2
; 1094 2 IF NOT .STATUS AND .Status NEQ SS$_INTOVF THEN RETURN 0;
; 1095 2
; 1096 2 RETURN .MILLI_SECONDS;
; 1097 1 END; ! End of SY_TIME
.ENTRY SY_TIME, ^M<R2,R3> ;SY_TIME, Save R2,R3 1015 000C 00000
MOVAB G^SYS$GETTIM, R3 ;SYS$GETTIM, R3 53 00000000G 00 9E 00002
MOVAB G^U.6, R2 ;U.6, R2 52 00000000' 00 9E 00009
SUBL2 #32, SP ;#32, SP 5E 20 C2 00010
TSTL (R2) ;SUBTRAHEND 1072 62 D5 00013
BNEQ 1$ ;1$ 0D 12 00015
TSTL 4(R2) ;SUBTRAHEND+4 04 A2 D5 00017
BNEQ 1$ ;1$ 08 12 0001A
PUSHL R2 ;R2 1075 52 DD 0001C
CALLS #1, (R3) ;#1, SYS$GETTIM 63 01 FB 0001E
BLBC R0, 3$ ;STATUS, 3$ 1076 47 50 E9 00021
1$: PUSHAB 16(SP) ;TIME 1081 10 AE 9F 00024
CALLS #1, (R3) ;#1, SYS$GETTIM 63 01 FB 00027
BLBC R0, 3$ ;STATUS, 3$ 1082 3E 50 E9 0002A
PUSHAB 24(SP) ;ADJUSTED_TIME 1087 18 AE 9F 0002D
PUSHL R2 ;R2 52 DD 00030
PUSHAB 24(SP) ;TIME 18 AE 9F 00032
CALLS #3, G^LIB$SUBX ;#3, LIB$SUBX 00000000G 00 03 FB 00035
BLBC R0, 3$ ;STATUS, 3$ 1088 2C 50 E9 0003C
MOVZWL #10000, 8(SP) ;#10000, TEN_FOURTH 1090 08 AE 2710 8F 3C 0003F
CLRL 12(SP) ;TEN_FOURTH+4 1091 0C AE D4 00045
PUSHL SP ;SP 1092 5E DD 00048
PUSHAB 8(SP) ;MILLI_SECONDS 08 AE 9F 0004A
PUSHAB 32(SP) ;ADJUSTED_TIME 20 AE 9F 0004D
PUSHAB 20(SP) ;TEN_FOURTH 14 AE 9F 00050
CALLS #4, G^LIB$EDIV ;#4, LIB$EDIV 00000000G 00 04 FB 00053
BLBS R0, 2$ ;STATUS, 2$ 1094 09 50 E8 0005A
CMPL R0, #1148 ;STATUS, #1148 0000047C 8F 50 D1 0005D
BNEQ 3$ ;3$ 05 12 00064
2$: MOVL 4(SP), R0 ;MILLI_SECONDS, R0 1096 50 04 AE D0 00066
RET ; 04 0006A
3$: CLRL R0 ;R0 50 D4 0006B
RET ; 04 0006D
; Routine Size: 110 bytes, Routine Base: $CODE$ + 05A1
; 1098 1
; 1099 1 %SBTTL 'End of KERSYS.BLI'
; 1100 1 END ! End of module
; 1101 1
; 1102 0 ELUDOM
; PSECT SUMMARY
;
; Name Bytes Attributes
;
; $OWN$ 2300 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$ 1551 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;4 15754 86 0 919 00:00.4
; SYS$COMMON:[SYSLIB]TPAMAC.L32;4 43 0 0 15 00:00.1
; COMMAND QUALIFIERS
; BLI/LIS/MAC=(ASSEM,UNIQ)/SOUR:NOHEAD VMSSYS
; Compilation Complete
.END