.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 ; 0373 MOVAB W^U.2, R2 ;U.2, R2 ; SUBL2 #4, SP ;#4, SP ; CLRL 148(R2) ;TIMER_HANDLE ; 0416 PUSHAB 148(R2) ;TIMER_HANDLE ; 0417 CALLS #1, G^LIB$INIT_TIMER ;#1, LIB$INIT_TIMER ; MOVL #17694852, (R2) ;#17694852, ORG_DEFAULT_DIR ; 0420 MOVAB -132(R2), 4(R2) ;ORG_DEFAULT_DIR_TEXT, ORG_DEFAULT_DIR+4 ; 0421 PUSHL R2 ;R2 ; 0422 PUSHAB 4(SP) ;LENGTH ; CLRL -(SP) ;-(SP) ; CALLS #3, G^SYS$SETDDIR ;#3, SYS$SETDDIR ; BLBC R0, 1$ ;STATUS, 1$ ; 0424 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 ; 0428 MOVAB 8(R2), 144(R2) ;ORG_DEFAULT_DEV_TEXT, ORG_DEFAULT_DEV+4 ; 0429 CLRQ -(SP) ;-(SP) ; 0430 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$ ; 0432 MOVW (SP), 140(R2) ;LENGTH, ORG_DEFAULT_DEV ; RET ; ; 3$: CLRW 140(R2) ;ORG_DEFAULT_DEV ; RET ; ; 0434 ; Routine Size: 113 bytes, Routine Base: $CODE$ + 0000 .EXTRN SYS$DELPRC .ENTRY SY_LOGOUT, ^M<> ;SY_LOGOUT, Save nothing ; 0438 CLRQ -(SP) ;-(SP) ; 0476 CALLS #2, G^SYS$DELPRC ;#2, SYS$DELPRC ; RET ; ; 0477 ; Routine Size: 12 bytes, Routine Base: $CODE$ + 0071 .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 ; 0544 CLRQ -(SP) ;-(SP) ; 0550 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 ; ; 0551 ; Routine Size: 26 bytes, Routine Base: $CODE$ + 007D ;CONCAT U.12: .WORD ^M ;Save R2,R3,R4,R5,R6,R7 ; 0552 MOVL 8(AP), R7 ;SRC_LEN, LENGTH ; 0561 SUBL3 #192, @16(AP), R1 ;#192, @DST_LEN, R1 ; 0563 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 ; 0565 MOVC3 R7, @4(AP), @0(R6) ;LENGTH, @SRC_ADR, @0(R6) ; ADDL2 R7, (R6) ;LENGTH, (R6) ; 0566 ADDL2 R7, @16(AP) ;LENGTH, @DST_LEN ; 0567 RET ; ; 0568 ; Routine Size: 44 bytes, Routine Base: $CODE$ + 0097 .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 -708(SP), SP ;-708(SP), SP ; MOVW #270, -22(FP) ;#270, COMMAND_DESC+2 ; 0573 CLRL -(SP) ;COMMAND_LENGTH ; 0574 MOVAB -216(FP), -20(FP) ;COMMAND_STR, COMMAND_DESC+4 ; 0575 MOVAB -216(FP), 4(SP) ;COMMAND_STR, POINTER ; 0576 CASEL 4(AP), #1, #18 ;GCMD_TYPE, #1, #18 ; 0581 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 ; 0793 CALLS #1, G^LIB$SIGNAL ;#1, LIB$SIGNAL ; MOVL #134316210, R0 ;#134316210, R0 ; 0794 RET ; ; 3$: PUSHL SP ;SP ; 0590 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 ; 0591 PUSHAB 8(SP) ;POINTER ; PUSHL (R9) ;GEN_1SIZE ; PUSHL R10 ;R10 ; CALLS #4, (R7) ;#4, CONCAT ; PUSHL SP ;SP ; 0592 PUSHAB 8(SP) ;POINTER ; PUSHL #1 ;#1 ; PUSHL R11 ;R11 ; BRW 25$ ;25$ ; 4$: MOVW #270, 22(SP) ;#270, DIR_DESC+2 ; 0608 MOVW #270, 30(SP) ;#270, DEV_DESC+2 ; 0610 MOVL (R9), R6 ;GEN_1SIZE, R6 ; 0612 BGTR 5$ ;5$ ; BRW 8$ ;8$ ; 5$: MOVC5 #0, (SP), #0, #80, -324(FP) ;#0, (SP), #0, #80, $RMS_PTR ; 0615 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 ; 0616 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 ; 0617 CALLS #1, G^SYS$PARSE ;#1, SYS$PARSE ; MOVL R0, R6 ;R0, STATUS ; BLBC R6, 10$ ;STATUS, 10$ ; 0619 MOVZBL 348(SP), R0 ;DIR_NAM+56, R0 ; 0626 BLEQ 6$ ;6$ ; MOVL -356(FP), 32(SP) ;DIR_NAM+64, DEV_DESC+4 ; 0629 MOVZBL 349(SP), R1 ;DIR_NAM+57, R1 ; 0630 ADDW3 R1, R0, 28(SP) ;R1, R0, DEV_DESC ; BRB 7$ ;7$ ; 0626 6$: MOVZBW 349(SP), 28(SP) ;DIR_NAM+57, DEV_DESC ; 0634 MOVL -352(FP), 32(SP) ;DIR_NAM+68, DEV_DESC+4 ; 0635 7$: MOVZBW 350(SP), 20(SP) ;DIR_NAM+58, DIR_DESC ; 0638 MOVL -348(FP), 24(SP) ;DIR_NAM+72, DIR_DESC+4 ; 0639 BRB 9$ ;9$ ; 0612 8$: MOVW -344(R8), 20(SP) ;ORG_DEFAULT_DIR, DIR_DESC ; 0643 MOVL -340(R8), 24(SP) ;ORG_DEFAULT_DIR+4, DIR_DESC+4 ; 0644 MOVW -204(R8), 28(SP) ;ORG_DEFAULT_DEV, DEV_DESC ; 0645 MOVL -200(R8), 32(SP) ;ORG_DEFAULT_DEV+4, DEV_DESC+4 ; 0646 9$: PUSHAB 28(SP) ;DEV_DESC ; 0649 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$ ; 0651 CLRQ -(SP) ;-(SP) ; 0658 PUSHAB 28(SP) ;DIR_DESC ; CALLS #3, G^SYS$SETDDIR ;#3, SYS$SETDDIR ; MOVL R0, R6 ;R0, STATUS ; 10$: BLBC R6, 11$ ;STATUS, 11$ ; 0660 MOVAB (R10), 24(SP) ;GEN_1DATA, DIR_DESC+4 ; 0667 MOVZBW #96, 20(SP) ;#96, DIR_DESC ; 0668 PUSHAB 20(SP) ;DIR_DESC ; 0669 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$ ; 0671 BRW 28$ ;28$ ; 12$: MOVAB -192(R8), 4(SP) ;RSP_TEXT, POINTER ; 0678 CLRL (R8) ;RSP_LEN ; 0679 PUSHL R8 ;R8 ; 0680 PUSHAB 8(SP) ;POINTER ; PUSHL #25 ;#25 ; PUSHAB 20(R11) ;P.AAF ; CALLS #4, (R7) ;#4, CONCAT ; PUSHL R8 ;R8 ; 0681 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 ; 0682 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 ; 0683 MOVL (R8), @12(AP) ;RSP_LEN, @STRING_LENGTH ; 0684 BRB 19$ ;19$ ; 0685 13$: PUSHL SP ;SP ; 0694 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 ; 0704 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 ; 0715 BGTR 16$ ;16$ ; PUSHL SP ;SP ; 0718 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 ; 0722 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$ ; 0724 18$: MOVL W^GEN_HELP_TEXT+4, @8(AP) ;GEN_HELP_TEXT+4, @STRING_ADDRESS ; 0735 MOVZWL W^GEN_HELP_TEXT, @12(AP) ;GEN_HELP_TEXT, @STRING_LENGTH ; 0736 19$: BRB 23$ ;23$ ; 0737 20$: PUSHL SP ;SP ; 0746 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 ; 0747 PUSHAB 8(SP) ;POINTER ; PUSHL (R9) ;GEN_1SIZE ; PUSHL R10 ;R10 ; CALLS #4, (R7) ;#4, CONCAT ; PUSHL SP ;SP ; 0748 PUSHAB 8(SP) ;POINTER ; PUSHL #1 ;#1 ; PUSHAB 48(R11) ;P.AAG ; BRB 25$ ;25$ ; 21$: PUSHL SP ;SP ; 0758 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 ; 0759 PUSHAB 8(SP) ;POINTER ; PUSHL (R9) ;GEN_1SIZE ; PUSHL R10 ;R10 ; CALLS #4, (R7) ;#4, CONCAT ; PUSHL SP ;SP ; 0760 PUSHAB 8(SP) ;POINTER ; PUSHL #2 ;#2 ; PUSHAB 52(R11) ;P.AAH ; CALLS #4, (R7) ;#4, CONCAT ; PUSHL SP ;SP ; 0761 PUSHAB 8(SP) ;POINTER ; PUSHL W^GEN_2SIZE ;GEN_2SIZE ; PUSHAB W^GEN_2DATA ;GEN_2DATA ; CALLS #4, (R7) ;#4, CONCAT ; PUSHL SP ;SP ; 0762 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 ; 0771 MOVL (R9), W^FILE_SIZE ;GEN_1SIZE, FILE_SIZE ; 0772 23$: MOVL #134316043, R0 ;#134316043, R0 ; 0773 RET ; ; 24$: PUSHL SP ;SP ; 0782 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 ; 0783 PUSHAB 8(SP) ;POINTER ; PUSHL (R9) ;GEN_1SIZE ; PUSHL R10 ;R10 ; 25$: CALLS #4, (R7) ;#4, CONCAT ; PUSHL SP ;SP ; 0784 PUSHAB 8(SP) ;POINTER ; PUSHL W^GEN_2SIZE ;GEN_2SIZE ; PUSHAB W^GEN_2DATA ;GEN_2DATA ; BRB 27$ ;27$ ; 26$: PUSHL SP ;SP ; 0789 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 ; 0803 MOVL #51970052, -16(FP) ;#51970052, ITMLST ; 0804 MOVAB 8(SP), -12(FP) ;OUR_PID, ITMLST+4 ; 0805 MOVAB -8(FP), -8(FP) ;ITMLST+8, ITMLST+8 ; 0806 CLRL -4(FP) ;ITMLST+12 ; 0807 CLRQ -(SP) ;-(SP) ; 0808 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 ; 0809 MOVL #17694728, -224(FP) ;#17694728, MBX_DESC ; 0812 MOVAB -233(FP), -220(FP) ;MBX_NAME+11, MBX_DESC+4 ; 0813 PUSHL #8 ;#8 ; 0814 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 ; 0815 MOVAB -244(FP), -220(FP) ;MBX_NAME, MBX_DESC+4 ; 0816 PUSHAB -224(FP) ;MBX_DESC ; 0817 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$ ; 0819 MOVB #58, -225(FP) ;#58, MBX_NAME+19 ; 0826 MOVW #20, -224(FP) ;#20, MBX_DESC ; 0827 MOVC5 #19, -244(FP), #0, #132, W^FILE_NAME ;#19, MBX_NAME, #0, #132, FILE_NAME ; 0828 MOVL #19, W^FILE_SIZE ;#19, FILE_SIZE ; 0829 MOVL #1, 16(SP) ;#1, FLAGS ; 0830 PUSHL 12(SP) ;MBX_CHAN ; 0831 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$ ; 0833 28$: PUSHL R6 ;STATUS ; CALLS #1, G^LIB$SIGNAL ;#1, LIB$SIGNAL ; 29$: MOVL R6, R0 ;STATUS, R0 ; 0835 RET ; ; 0836 ; Routine Size: 960 bytes, Routine Base: $CODE$ + 00C3 .EXTRN SYS$SETIMR, SYS$WAITFR .ENTRY SY_DISMISS, ^M ;SY_DISMISS, Save R2,R3 ; 0840 MOVAB G^LIB$SIGNAL, R3 ;LIB$SIGNAL, R3 ; SUBL2 #8, SP ;#8, SP ; TSTL 4(AP) ;SECONDS ; 0884 BEQL 2$ ;2$ ; MULL3 #10000000, 4(AP), R0 ;#10000000, SECONDS, R0 ; 0886 MNEGL R0, (SP) ;R0, TOTAL_TIME ; MNEGL #1, 4(SP) ;#1, TOTAL_TIME+4 ; 0887 CLRQ -(SP) ;-(SP) ; 0888 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$ ; 0890 PUSHL R2 ;STATUS ; CALLS #1, (R3) ;#1, LIB$SIGNAL ; 1$: PUSHL #1 ;#1 ; 0892 CALLS #1, G^SYS$WAITFR ;#1, SYS$WAITFR ; MOVL R0, R2 ;R0, STATUS ; BLBS R2, 2$ ;STATUS, 2$ ; 0894 PUSHL R2 ;STATUS ; CALLS #1, (R3) ;#1, LIB$SIGNAL ; 2$: RET ; ; 0896 ; Routine Size: 79 bytes, Routine Base: $CODE$ + 0483 .ENTRY SY_TIME, ^M<> ;SY_TIME, Save nothing ; 0900 SUBL2 #24, SP ;#24, SP ; PUSHL #1 ;#1 ; 0954 PUSHAB W^U.5 ;U.5 ; 0958 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$ ; 0960 MOVZWL #10000, 12(SP) ;#10000, TEN_FOURTH ; 0965 CLRL 16(SP) ;TEN_FOURTH+4 ; 0966 PUSHAB 4(SP) ;TIMER_REMAINDER ; 0967 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$ ; 0969 MOVL 8(SP), R0 ;TIMER_MILLI_SECONDS, R0 ; 0971 RET ; ; 1$: CLRL R0 ;R0 ; 0972 RET ; ; ; Routine Size: 66 bytes, Routine Base: $CODE$ + 04D2 ; 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 9776 82 0 581 00:01.0 ; SYS$SYSROOT:[SYSLIB]TPAMAC.L32;3 42 0 0 14 00:00.1 ; COMMAND QUALIFIERS ; BLISS/LIST=KERSYS.MAR/SOURCE_LIST=(NOHEADER,NOSOURCE)/MACHINE_CODE_LIST=(ASSEMBLER,NOBINARY,UNIQUE_NAMES) KERSYS.BLI ; Compilation Complete .END