.TITLE KERTRM .IDENT \3.0.046\ .PSECT $PLIT$,NOWRT,NOEXE,2 P.AAB: .ASCII \SYS$NODE\ ; ; P.AAA: .LONG 17694728 ; ; .ADDRESS P.AAB ; ; P.AAD: .ASCII \SYS$OUTPUT\<0><0> ; ; P.AAC: .LONG 17694730 ; ; .ADDRESS P.AAD ; ; P.AAF: .ASCII \SYS$COMMAND\<0> ; ; P.AAE: .LONG 17694731 ; ; .ADDRESS P.AAF ; ; P.AAH: .ASCII \KER$COMM\ ; ; P.AAG: .LONG 17694728 ; ; .ADDRESS P.AAH ; ; P.AAJ: .ASCII \SYS$INPUT\<0><0><0> ; ; P.AAI: .LONG 17694729 ; ; .ADDRESS P.AAJ ; ; P.AAK: .BYTE 13, 10 ; ; .BLKB 2 P.AAM: .ASCII \Default terminal for transfers is: \<0> ; ; P.AAL: .LONG 17694755 ; ; .ADDRESS P.AAM ; ; P.AAO: .ASCII \No default terminal line for transfers\<0><0> ; ; P.AAN: .LONG 17694758 ; ; .ADDRESS P.AAO ; ; P.AAP: .BYTE 13, 10 ; ; .PSECT $OWN$,NOEXE,2 ;FORCE_ABORT U.1: .BLKB 4 ;FORCE_TIMEOUT U.2: .BLKB 4 ;TERM_FIRST_TIME U.3: .BLKB 4 ;TERM_CHAN U.4: .BLKB 4 ;CONS_CHAN U.5: .BLKB 4 ;SYS_OUTPUT_CHAN U.6: .BLKB 4 ;SYS_OUTPUT_OPEN U.7: .BLKB 4 ;SYS_OUTPUT_NAME U.8: .BLKB 7 .BLKB 1 ;SYS_OUTPUT_DESC U.9: .BLKB 8 ;SYS_COMMAND_CHAN U.10: .BLKB 4 ;SYS_COMMAND_OPEN U.11: .BLKB 4 ;SYS_COMMAND_NAME U.12: .BLKB 7 .BLKB 1 ;SYS_COMMAND_DESC U.13: .BLKB 8 ;TERM_NAME U.14: .BLKB 7 .BLKB 1 ;JOB_TERM_NAME U.15: .BLKB 7 .BLKB 1 ;TERM_OPEN_FLAG U.16: .BLKB 4 ;SESSION_FAB U.17: .BLKB 80 ;SESSION_RAB U.18: .BLKB 68 ;SESSION_NAME U.19: .BLKB 132 ;SESSION_OPEN U.20: .BLKB 4 ;SESSION_LOGGING U.21: .BLKB 4 ;DEBUG_FAB U.22: .BLKB 80 ;DEBUG_RAB U.23: .BLKB 68 ;DEBUG_NAME U.24: .BLKB 132 ;DEBUG_REDIRECTED U.25: .BLKB 4 ;NODE_NAME U.26: .BLKB 128 ;IO_STATUS U.27: .BLKB 8 ;RECV_BUFFER U.28: .BLKB 116 ;OLD_PARITY U.29: .BLKB 8 ;OLD_TERM_CHAR U.30: .BLKB 12 ;NEW_TERM_CHAR U.31: .BLKB 12 .PSECT $GLOBAL$,NOEXE,2 NODE_DESC:: .BLKB 8 DEBUG_DESC:: .BLKB 8 SESSION_DESC:: .BLKB 8 TERM_DESC:: .BLKB 8 JOB_TERM_DESC:: .BLKB 8 TERM_FLAG:: .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 U.43= P.AAL U.45= P.AAN .EXTRN LIB$PUT_SCREEN, LIB$PUT_OUTPUT, LIB$EMUL, LIB$ADDX, LIB$SIGNAL, PARITY_TYPE, ECHO_FLAG .EXTRN IBM_FLAG, IBM_CHAR, RCV_EOL, SEND_TIMEOUT, CONNECT_FLAG, ESCAPE_CHR, SYS$TRNLOG, SYS$GETJPI .EXTRN SYS$ASSIGN, SYS$QIOW .PSECT $CODE$,NOWRT,2 .ENTRY TERM_INIT, ^M ; ; MOVAB G^SYS$TRNLOG, R11 ;SYS$TRNLOG, R11 ; MOVAB G^SYS$ASSIGN, R10 ;SYS$ASSIGN, R10 ; MOVAB W^P.AAA, R9 ;P.AAA, R9 ; MOVAB W^TERM_DESC, R8 ;TERM_DESC, R8 ; MOVAB W^U.14, R7 ;U.14, R7 ; SUBL2 #60, SP ;#60, SP ; MOVL #17694720, -8(R8) ;#17694720, SESSION_DESC ; 0657 MOVAB 168(R7), -4(R8) ;SESSION_NAME, SESSION_DESC+4 ; 0658 MOVL #17694720, -16(R8) ;#17694720, DEBUG_DESC ; 0664 MOVAB 456(R7), -12(R8) ;DEBUG_NAME, DEBUG_DESC+4 ; 0665 MOVL #17694848, -24(R8) ;#17694848, NODE_DESC ; 0671 MOVAB 592(R7), -20(R8) ;NODE_NAME, NODE_DESC+4 ; 0672 CLRQ -(SP) ;-(SP) ; 0674 CLRL -(SP) ;-(SP) ; PUSHAB -24(R8) ;NODE_DESC ; PUSHAB -24(R8) ;NODE_DESC ; PUSHL R9 ;R9 ; CALLS #6, (R11) ;#6, SYS$TRNLOG ; MOVL R0, R6 ;R0, STATUS ; MOVZBL #64, R2 ;#64, COUNTER ; 0675 1$: CMPB 592(R7), #95 ;NODE_NAME, #95 ; 0677 BEQL 2$ ;2$ ; BLBC R6, 3$ ;STATUS, 3$ ; TSTL R2 ;COUNTER ; BLEQ 2$ ;2$ ; CLRQ -(SP) ;-(SP) ; 0679 CLRL -(SP) ;-(SP) ; PUSHAB -24(R8) ;NODE_DESC ; PUSHAB -24(R8) ;NODE_DESC ; PUSHAB -24(R8) ;NODE_DESC ; CALLS #6, (R11) ;#6, SYS$TRNLOG ; MOVL R0, R6 ;R0, STATUS ; DECL R2 ;COUNTER ; 0681 BRB 1$ ;1$ ; 0677 2$: BLBS R6, 4$ ;STATUS, 4$ ; 0688 3$: CLRW -24(R8) ;NODE_DESC ; 0691 CLRB 592(R7) ;NODE_NAME ; 0692 BRB 5$ ;5$ ; 0688 4$: CMPB 592(R7), #95 ;NODE_NAME, #95 ; 0696 BNEQ 5$ ;5$ ; DECW -24(R8) ;NODE_DESC ; 0699 MOVAB 593(R7), -20(R8) ;NODE_NAME+1, NODE_DESC+4 ; 0700 5$: MOVL #17694727, 8(R8) ;#17694727, JOB_TERM_DESC ; 0708 MOVAB 8(R7), 12(R8) ;JOB_TERM_NAME, JOB_TERM_DESC+4 ; 0709 MOVB #95, 8(R7) ;#95, JOB_TERM_NAME ; 0710 MOVL #52232198, 8(SP) ;#52232198, ITMLST ; 0712 MOVAB 9(R7), 12(SP) ;JOB_TERM_NAME+1, ITMLST+4 ; 0713 MOVAB (SP), 16(SP) ;RSL_LENGTH, ITMLST+8 ; 0714 CLRL 20(SP) ;ITMLST+12 ; 0716 CLRQ -(SP) ;-(SP) ; 0717 CLRL -(SP) ;-(SP) ; PUSHAB 20(SP) ;ITMLST ; CLRQ -(SP) ;-(SP) ; CLRL -(SP) ;-(SP) ; CALLS #7, G^SYS$GETJPI ;#7, SYS$GETJPI ; MOVL R0, R6 ;R0, STATUS ; ADDW3 #1, (SP), 8(R8) ;#1, RSL_LENGTH, JOB_TERM_DESC ; 0718 BLBC R6, 6$ ;STATUS, 6$ ; 0720 TSTL (SP) ;RSL_LENGTH ; BNEQ 7$ ;7$ ; 6$: CLRW 8(R8) ;JOB_TERM_DESC ; 7$: MOVL #17694727, -32(R7) ;#17694727, SYS_OUTPUT_DESC ; 0727 MOVAB -40(R7), -28(R7) ;SYS_OUTPUT_NAME, SYS_OUTPUT_DESC+4 ; 0728 PUSHAB 4(SP) ;DEV_TYPE ; 0729 PUSHAB -32(R7) ;SYS_OUTPUT_DESC ; PUSHAB 20(R9) ;P.AAC ; CALLS #3, W^U.39 ;#3, U.39 ; MOVL R0, R6 ;R0, STATUS ; BLBC R6, 8$ ;STATUS, 8$ ; 0731 CMPL 4(SP), #66 ;DEV_TYPE, #66 ; BNEQ 8$ ;8$ ; CLRQ -(SP) ;-(SP) ; 0734 PUSHAB -48(R7) ;SYS_OUTPUT_CHAN ; PUSHAB -32(R7) ;SYS_OUTPUT_DESC ; CALLS #4, (R10) ;#4, SYS$ASSIGN ; MOVL R0, R6 ;R0, STATUS ; BLBC R6, 8$ ;STATUS, 8$ ; 0736 MOVL #1, -44(R7) ;#1, SYS_OUTPUT_OPEN ; 8$: MOVL #17694727, -8(R7) ;#17694727, SYS_COMMAND_DESC ; 0742 MOVAB -16(R7), -4(R7) ;SYS_COMMAND_NAME, SYS_COMMAND_DESC+4 ; 0743 PUSHAB 4(SP) ;DEV_TYPE ; 0744 PUSHAB -8(R7) ;SYS_COMMAND_DESC ; PUSHAB 40(R9) ;P.AAE ; CALLS #3, W^U.39 ;#3, U.39 ; MOVL R0, R6 ;R0, STATUS ; BLBC R6, 9$ ;STATUS, 9$ ; 0746 CMPL 4(SP), #66 ;DEV_TYPE, #66 ; BNEQ 9$ ;9$ ; CLRQ -(SP) ;-(SP) ; 0749 PUSHAB -24(R7) ;SYS_COMMAND_CHAN ; PUSHAB -8(R7) ;SYS_COMMAND_DESC ; CALLS #4, (R10) ;#4, SYS$ASSIGN ; MOVL R0, R6 ;R0, STATUS ; BLBC R6, 9$ ;STATUS, 9$ ; 0751 MOVL #1, -20(R7) ;#1, SYS_COMMAND_OPEN ; 9$: MOVL #17694727, (R8) ;#17694727, TERM_DESC ; 0761 MOVAB (R7), 4(R8) ;TERM_NAME, TERM_DESC+4 ; 0760 PUSHAB 4(SP) ;DEV_TYPE ; 0765 PUSHL R8 ;R8 ; PUSHAB 56(R9) ;P.AAG ; CALLS #3, W^U.39 ;#3, U.39 ; MOVL R0, R6 ;R0, STATUS ; BLBC R6, 10$ ;STATUS, 10$ ; 0767 CMPL 4(SP), #66 ;DEV_TYPE, #66 ; BEQL 15$ ;15$ ; 10$: MOVW #7, (R8) ;#7, TERM_DESC ; 0773 PUSHAB 4(SP) ;DEV_TYPE ; 0774 PUSHL R8 ;R8 ; PUSHAB 76(R9) ;P.AAI ; CALLS #3, W^U.39 ;#3, U.39 ; MOVL R0, R6 ;R0, STATUS ; BLBC R6, 11$ ;STATUS, 11$ ; 0776 CMPL 4(SP), #66 ;DEV_TYPE, #66 ; BEQL 15$ ;15$ ; 11$: BLBC -44(R7), 12$ ;SYS_OUTPUT_OPEN, 12$ ; 0784 MOVC5 -32(R7), @-28(R7), #0, #7, (R7) ;SYS_OUTPUT_DESC, @SYS_OUTPUT_DESC+4, #0, #7, TERM_NAME ; 0789 BRB 13$ ;13$ ; 0790 12$: BLBC -20(R7), 14$ ;SYS_COMMAND_OPEN, 14$ ; 0799 MOVC5 -8(R7), @-4(R7), #0, #7, (R7) ;SYS_COMMAND_DESC, @SYS_COMMAND_DESC+4, #0, #7, TERM_NAME ; 0804 13$: MOVAB -32(R7), R0 ;SYS_OUTPUT_DESC, R0 ; 0805 MOVW R0, (R8) ;R0, TERM_DESC ; BRB 15$ ;15$ ; 0799 14$: MOVW 8(R8), (R8) ;JOB_TERM_DESC, TERM_DESC ; 0813 MOVC5 8(R8), @12(R8), #0, #7, (R7) ;JOB_TERM_DESC, @JOB_TERM_DESC+4, #0, #7, TERM_NAME ; 0816 15$: MOVZWL (R8), R0 ;TERM_DESC, R0 ; 0831 CLRB (R7)[R0] ;TERM_NAME[R0] ; CLRQ -(SP) ;-(SP) ; 0832 PUSHAB -56(R7) ;TERM_CHAN ; PUSHL R8 ;R8 ; CALLS #4, (R10) ;#4, SYS$ASSIGN ; MOVL R0, R6 ;R0, STATUS ; PUSHL #2 ;#2 ; 0833 PUSHAB 84(R9) ;P.AAK ; CALLS #2, W^U.38 ;#2, U.38 ; BLBC R6, 16$ ;STATUS, 16$ ; 0835 MOVL #1, 16(R7) ;#1, TERM_OPEN_FLAG ; 0845 MOVZWL 124(R9), -(SP) ;DEFTRM_TEXT, -(SP) ; 0846 PUSHL 128(R9) ;DEFTRM_TEXT+4 ; CALLS #2, W^U.38 ;#2, U.38 ; MOVZWL (R8), -(SP) ;TERM_DESC, -(SP) ; 0847 PUSHL R7 ;R7 ; BRB 17$ ;17$ ; 16$: CLRL 16(R7) ;TERM_OPEN_FLAG ; 0858 CLRW (R8) ;TERM_DESC ; 0859 MOVZWL 172(R9), -(SP) ;NODEFTRM_TEXT, -(SP) ; 0860 PUSHL 176(R9) ;NODEFTRM_TEXT+4 ; 17$: CALLS #2, W^U.38 ;#2, U.38 ; PUSHL #2 ;#2 ; 0863 PUSHAB 180(R9) ;P.AAP ; CALLS #2, W^U.38 ;#2, U.38 ; CLRL 16(R8) ;TERM_FLAG ; 0867 BLBC 16(R7), 20$ ;TERM_OPEN_FLAG, 20$ ; 0873 CLRQ -(SP) ;-(SP) ; 0877 CLRQ -(SP) ;-(SP) ; PUSHL #12 ;#12 ; PUSHAB 852(R7) ;OLD_TERM_CHAR ; CLRQ -(SP) ;-(SP) ; PUSHAB 844(R7) ;OLD_PARITY ; PUSHL #39 ;#39 ; PUSHL -56(R7) ;TERM_CHAN ; CLRL -(SP) ;-(SP) ; CALLS #12, G^SYS$QIOW ;#12, SYS$QIOW ; MOVL R0, R6 ;R0, STATUS ; BLBC R6, 20$ ;STATUS, 20$ ; 0879 BBC #6, 850(R7), 19$ ;#6, OLD_PARITY+6, 19$ ; 0882 TSTB 850(R7) ;OLD_PARITY+6 ; 0885 BGEQ 18$ ;18$ ; MOVL #3, W^PARITY_TYPE ;#3, PARITY_TYPE ; 0887 RET ; ; 18$: MOVL #2, W^PARITY_TYPE ;#2, PARITY_TYPE ; 0889 RET ; ; 0885 19$: CLRL W^PARITY_TYPE ;PARITY_TYPE ; 0892 20$: RET ; ; 0896 ; Routine Size: 644 bytes, Routine Base: $CODE$ + 0000 .EXTRN SYS$DASSGN .ENTRY SET_TRANS_TERM, ^M ;SET_TRANS_TERM, Save R2,R3,R4,R5 ; 0900 SUBL2 #24, SP ;#24, SP ; MOVL #17694727, 16(SP) ;#17694727, RSL_DESC ; 0956 MOVAB 8(SP), 20(SP) ;RSL_NAME, RSL_DESC+4 ; 0957 PUSHL SP ;SP ; 0958 PUSHAB 20(SP) ;RSL_DESC ; PUSHL 4(AP) ;NEW_NAME ; CALLS #3, W^U.39 ;#3, U.39 ; BLBC R0, 2$ ;STATUS, 2$ ; 0960 CMPL (SP), #66 ;DEV_TYPE, #66 ; 0962 BEQL 1$ ;1$ ; MOVL #134316242, R0 ;#134316242, R0 ; RET ; ; 1$: CLRQ -(SP) ;-(SP) ; 0967 PUSHAB 12(SP) ;NEW_CHAN ; PUSHAB 28(SP) ;RSL_DESC ; CALLS #4, G^SYS$ASSIGN ;#4, SYS$ASSIGN ; BLBC R0, 2$ ;STATUS, 2$ ; 0969 PUSHL W^U.4 ;U.4 ; 0974 CALLS #1, G^SYS$DASSGN ;#1, SYS$DASSGN ; MOVL 4(SP), W^U.4 ;NEW_CHAN, U.4 ; 0975 MOVC5 16(SP), 8(SP), #0, #7, W^U.14 ;RSL_DESC, RSL_NAME, #0, #7, U.14 ; 0977 MOVW 16(SP), W^TERM_DESC ;RSL_DESC, TERM_DESC ; 0978 MOVL #134316043, R0 ;#134316043, R0 ; 0979 2$: RET ; ; 0980 ; Routine Size: 110 bytes, Routine Base: $CODE$ + 0284 U.38: .ENTRY TERM_DUMP, ^M<> ;TERM_DUMP, Save nothing ; 0984 SUBL2 #8, SP ;#8, SP ; BLBS W^CONNECT_FLAG, 2$ ;CONNECT_FLAG, 2$ ; 1029 BLBC W^U.7, 1$ ;U.7, 1$ ; 1033 CLRQ -(SP) ;-(SP) ; 1036 CLRQ -(SP) ;-(SP) ; MOVQ 4(AP), -(SP) ;BUFFER_ADDRESS, -(SP) ; CLRQ -(SP) ;-(SP) ; MOVQ #48, -(SP) ;#48, -(SP) ; PUSHL W^U.6 ;U.6 ; PUSHL #6 ;#6 ; CALLS #12, G^SYS$QIOW ;#12, SYS$QIOW ; RET ; ; 1$: MOVW #270, 2(SP) ;#270, TEXT_DESC+2 ; 1040 MOVW 8(AP), (SP) ;BUFFER_COUNT, TEXT_DESC ; 1041 MOVL 4(AP), 4(SP) ;BUFFER_ADDRESS, TEXT_DESC+4 ; 1042 PUSHL SP ;SP ; 1043 CALLS #1, G^LIB$PUT_OUTPUT ;#1, LIB$PUT_OUTPUT ; 2$: RET ; ; 1048 ; Routine Size: 67 bytes, Routine Base: $CODE$ + 02F2 .EXTRN LOG_CHAR, LOG_CLOSE .ENTRY DBG_DUMP, ^M ;DBG_DUMP, Save R2,R3,R4 ; 1052 MOVAB W^U.25, R4 ;U.25, R4 ; SUBL2 #8, SP ;#8, SP ; BLBS W^CONNECT_FLAG, 2$ ;CONNECT_FLAG, 2$ ; 1098 BLBS (R4), 3$ ;DEBUG_REDIRECTED, 3$ ; BLBC -632(R4), 1$ ;SYS_OUTPUT_OPEN, 1$ ; 1102 CLRQ -(SP) ;-(SP) ; 1105 CLRQ -(SP) ;-(SP) ; MOVQ 4(AP), -(SP) ;BUFFER_ADDRESS, -(SP) ; CLRQ -(SP) ;-(SP) ; CLRL -(SP) ;-(SP) ; MOVZWL #304, -(SP) ;#304, -(SP) ; PUSHL -636(R4) ;SYS_OUTPUT_CHAN ; PUSHL #6 ;#6 ; CALLS #12, G^SYS$QIOW ;#12, SYS$QIOW ; RET ; ; 1$: MOVW #270, 2(SP) ;#270, TEXT_DESC+2 ; 1109 MOVW 8(AP), (SP) ;BUFFER_COUNT, TEXT_DESC ; 1110 MOVL 4(AP), 4(SP) ;BUFFER_ADDRESS, TEXT_DESC+4 ; 1111 PUSHL SP ;SP ; 1112 CALLS #1, G^LIB$PUT_OUTPUT ;#1, LIB$PUT_OUTPUT ; RET ; ; 1098 2$: BLBC (R4), 6$ ;DEBUG_REDIRECTED, 6$ ; 1118 3$: MOVL 4(AP), R3 ;BUFFER_ADDRESS, POINTER ; 1129 ADDL3 #1, 8(AP), R2 ;#1, BUFFER_COUNT, I ; 1131 BRB 5$ ;5$ ; 4$: PUSHAB -200(R4) ;DEBUG_RAB ; 1133 MOVZBL (R3)+, -(SP) ;(POINTER)+, -(SP) ; CALLS #2, W^LOG_CHAR ;#2, LOG_CHAR ; BLBS R0, 5$ ;R0, 5$ ; PUSHAB -200(R4) ;DEBUG_RAB ; 1136 PUSHAB -280(R4) ;DEBUG_FAB ; CALLS #2, W^LOG_CLOSE ;#2, LOG_CLOSE ; CLRL (R4) ;DEBUG_REDIRECTED ; 1137 5$: SOBGTR R2, 4$ ;I, 4$ ; 1133 6$: RET ; ; 1142 ; Routine Size: 127 bytes, Routine Base: $CODE$ + 0335 .EXTRN TT_CRLF, STR$UPCASE, LIB$GET_COMMAND .ENTRY GET_COMMAND, ^M ;GET_COMMAND, Save R2,R3 ; 1146 SUBL2 #8, SP ;#8, SP ; BLBC W^U.11, 6$ ;U.11, 6$ ; 1205 MOVL #55, R1 ;#55, QIO_FUNC ; 1208 BLBS 16(AP), 1$ ;ECHO_FLAG, 1$ ; 1210 MOVZBL #119, R1 ;#119, QIO_FUNC ; 1$: MOVL 8(AP), R0 ;PROMPT_DESC, R0 ; 1214 MOVZWL (R0), -(SP) ;(R0), -(SP) ; PUSHL 4(R0) ;4(R0) ; CLRQ -(SP) ;-(SP) ; MOVL 4(AP), R2 ;CMD_DESC, R2 ; MOVZWL (R2), -(SP) ;(R2), -(SP) ; PUSHL 4(R2) ;4(R2) ; CLRQ -(SP) ;-(SP) ; PUSHAB 32(SP) ;IOSB ; PUSHL R1 ;QIO_FUNC ; PUSHL W^U.10 ;U.10 ; CLRL -(SP) ;-(SP) ; CALLS #12, G^SYS$QIOW ;#12, SYS$QIOW ; MOVL R0, R3 ;R0, STATUS ; BLBC R3, 4$ ;STATUS, 4$ ; 1216 BLBS 16(AP), 2$ ;ECHO_FLAG, 2$ ; 1222 CALLS #0, W^TT_CRLF ;#0, TT_CRLF ; 2$: BLBC (SP), 3$ ;IOSB, 3$ ; 1224 MOVZWL 2(SP), @12(AP) ;IOSB+2, @CMD_LENGTH ; 1227 CMPW 6(SP), #1 ;IOSB+6, #1 ; 1229 BNEQ 3$ ;3$ ; CMPW 4(SP), #26 ;IOSB+4, #26 ; BNEQ 3$ ;3$ ; MOVL #98938, R0 ;#98938, R0 ; RET ; ; 3$: PUSHL R2 ;R2 ; 1236 PUSHL R2 ;R2 ; CALLS #2, G^STR$UPCASE ;#2, STR$UPCASE ; MOVL R0, R3 ;R0, STATUS ; BLBS R3, 5$ ;STATUS, 5$ ; 1238 4$: MOVL R3, R0 ;STATUS, R0 ; RET ; ; 5$: MOVZWL (SP), R0 ;IOSB, R0 ; 1240 RET ; ; 6$: MOVQ 8(AP), -(SP) ;PROMPT_DESC, -(SP) ; 1246 PUSHL 4(AP) ;CMD_DESC ; CALLS #3, G^LIB$GET_COMMAND ;#3, LIB$GET_COMMAND ; RET ; ; 1247 ; Routine Size: 146 bytes, Routine Base: $CODE$ + 03B4 .PSECT $PLIT$,NOWRT,NOEXE,2 .BLKB 2 P.AAR: .ASCII \!-!-!11%D!/!-!%T!_Starting transaction log in file !AS!/\ ; ; P.AAQ: .LONG 17694776 ; ; .ADDRESS P.AAR ; ; P.AAS: .LONG 0 ; ; .ADDRESS TRANSACTION_DESC ; ; .EXTRN LOG_FAOL, LOG_OPEN, TRANSACTION_OPEN, TRANSACTION_DESC, TRANSACTION_FAB, TRANSACTION_RAB .EXTRN SYS$CANCEL .PSECT $CODE$,NOWRT,2 .ENTRY TERM_OPEN, ^M ; ; MOVAB G^SYS$QIOW, R9 ;SYS$QIOW, R9 ; MOVAB W^CONNECT_FLAG, R8 ;CONNECT_FLAG, R8 ; MOVAB G^LIB$SIGNAL, R7 ;LIB$SIGNAL, R7 ; MOVAB W^TERM_DESC, R6 ;TERM_DESC, R6 ; MOVAB W^U.31+4, R5 ;U.31+4, R5 ; BLBS -852(R5), 2$ ;TERM_OPEN_FLAG, 2$ ; 1311 TSTW (R6) ;TERM_DESC ; 1314 BEQL 1$ ;1$ ; PUSHL R6 ;R6 ; 1317 CALLS #1, W^SET_TRANS_TERM ;#1, SET_TRANS_TERM ; MOVL R0, R4 ;R0, STATUS ; BLBS R4, 2$ ;STATUS, 2$ ; 1319 BRW 10$ ;10$ ; 1$: MOVL #134316242, R0 ;#134316242, R0 ; 1323 RET ; ; 2$: CMPC5 -900(R5), @-896(R5), #0, (R6), - ;SYS_OUTPUT_DESC, @SYS_OUTPUT_DESC+4, #0, TERM_DESC, TERM_NAME ; 1329 -868(R5) ; ; BNEQ 3$ ;3$ ; BLBS -912(R5), 4$ ;SYS_OUTPUT_OPEN, 4$ ; 1330 3$: CLRL (R8) ;CONNECT_FLAG ; 1332 BRB 5$ ;5$ ; 4$: MOVL #1, (R8) ;#1, CONNECT_FLAG ; 1334 5$: BLBS (R8), 6$ ;CONNECT_FLAG, 6$ ; 1340 BLBC -912(R5), 6$ ;SYS_OUTPUT_OPEN, 6$ ; MOVL -916(R5), -920(R5) ;SYS_OUTPUT_CHAN, CONS_CHAN ; 6$: CLRQ -(SP) ;-(SP) ; 1346 CLRQ -(SP) ;-(SP) ; PUSHL #12 ;#12 ; PUSHAB -16(R5) ;OLD_TERM_CHAR ; CLRQ -(SP) ;-(SP) ; PUSHAB -24(R5) ;OLD_PARITY ; PUSHL #39 ;#39 ; PUSHL -924(R5) ;TERM_CHAN ; CLRL -(SP) ;-(SP) ; CALLS #12, (R9) ;#12, SYS$QIOW ; MOVL R0, R4 ;R0, STATUS ; BLBC R4, 9$ ;STATUS, 9$ ; 1348 MOVL -16(R5), -4(R5) ;OLD_TERM_CHAR, NEW_TERM_CHAR ; 1357 MOVB -9(R5), 3(R5) ;OLD_TERM_CHAR+7, NEW_TERM_CHAR+7 ; 1358 EXTZV #0, #24, -12(R5), R0 ;#0, #24, OLD_TERM_CHAR+4, R0 ; 1359 BICL2 #3588, R0 ;#3588, R0 ; BISL3 #131072, R0, R1 ;#131072, R0, R1 ; INSV R1, #0, #24, (R5) ;R1, #0, #24, NEW_TERM_CHAR+4 ; TSTL W^PARITY_TYPE ;PARITY_TYPE ; 1363 BNEQ 7$ ;7$ ; BLBS W^IBM_FLAG, 7$ ;IBM_FLAG, 7$ ; EXTZV #0, #24, (R5), R0 ;#0, #24, NEW_TERM_CHAR+4, R0 ; 1365 INSV #1, #15, #1, R0 ;#1, #15, #1, R0 ; BRB 8$ ;8$ ; 7$: EXTZV #0, #24, (R5), R0 ;#0, #24, NEW_TERM_CHAR+4, R0 ; 1367 INSV #0, #15, #1, R0 ;#0, #15, #1, R0 ; 8$: INSV R0, #0, #24, (R5) ;R0, #0, #24, NEW_TERM_CHAR+4 ; BISL3 #32, -8(R5), 4(R5) ;#32, OLD_TERM_CHAR+8, NEW_TERM_CHAR+8 ; 1369 MOVQ #32, -(SP) ;#32, -(SP) ; 1371 CLRQ -(SP) ;-(SP) ; PUSHL #12 ;#12 ; PUSHAB -4(R5) ;NEW_TERM_CHAR ; CLRQ -(SP) ;-(SP) ; MOVQ #35, -(SP) ;#35, -(SP) ; PUSHL -924(R5) ;TERM_CHAN ; CLRL -(SP) ;-(SP) ; CALLS #12, (R9) ;#12, SYS$QIOW ; MOVL R0, R4 ;R0, STATUS ; BLBS R4, 11$ ;STATUS, 11$ ; 1373 9$: PUSHL R4 ;STATUS ; 1376 CALLS #1, (R7) ;#1, LIB$SIGNAL ; 10$: MOVL R4, R0 ;STATUS, R0 ; 1377 RET ; ; 11$: MOVL #1, 16(R6) ;#1, TERM_FLAG ; 1380 MOVL #1, -928(R5) ;#1, TERM_FIRST_TIME ; 1381 CLRQ -936(R5) ;FORCE_ABORT ; 1383 CALLS #0, W^U.40 ;#0, U.40 ; 1387 MOVL R0, R4 ;R0, STATUS ; BLBS R4, 12$ ;STATUS, 12$ ; 1389 PUSHL R4 ;STATUS ; 1392 CALLS #1, (R7) ;#1, LIB$SIGNAL ; BRB 13$ ;13$ ; 1393 12$: BLBS (R8), 14$ ;CONNECT_FLAG, 14$ ; 1400 BLBC -912(R5), 14$ ;SYS_OUTPUT_OPEN, 14$ ; CALLS #0, W^U.41 ;#0, U.41 ; 1403 MOVL R0, R4 ;R0, STATUS ; BLBS R4, 14$ ;STATUS, 14$ ; 1405 PUSHL R4 ;STATUS ; 1408 CALLS #1, (R7) ;#1, LIB$SIGNAL ; PUSHL -924(R5) ;TERM_CHAN ; 1409 CALLS #1, G^SYS$CANCEL ;#1, SYS$CANCEL ; PUSHL -924(R5) ;TERM_CHAN ; 1410 CALLS #1, G^SYS$DASSGN ;#1, SYS$DASSGN ; 13$: MOVL #134316266, R0 ;#134316266, R0 ; 1411 RET ; ; 14$: TSTW -16(R6) ;DEBUG_DESC ; 1420 BEQL 15$ ;15$ ; PUSHAB -480(R5) ;DEBUG_RAB ; 1423 PUSHAB -560(R5) ;DEBUG_FAB ; PUSHAB -16(R6) ;DEBUG_DESC ; CALLS #3, W^LOG_OPEN ;#3, LOG_OPEN ; BLBC R0, 15$ ;R0, 15$ ; MOVL #1, -280(R5) ;#1, DEBUG_REDIRECTED ; 1425 BRB 16$ ;16$ ; 15$: CLRL -280(R5) ;DEBUG_REDIRECTED ; 1429 16$: TSTW W^TRANSACTION_DESC ;TRANSACTION_DESC ; 1431 BEQL 17$ ;17$ ; PUSHAB W^TRANSACTION_RAB ;TRANSACTION_RAB ; 1433 PUSHAB W^TRANSACTION_FAB ;TRANSACTION_FAB ; PUSHAB W^TRANSACTION_DESC ;TRANSACTION_DESC ; CALLS #3, W^LOG_OPEN ;#3, LOG_OPEN ; BLBC R0, 17$ ;R0, 17$ ; MOVL #1, W^TRANSACTION_OPEN ;#1, TRANSACTION_OPEN ; 1436 PUSHAB W^TRANSACTION_RAB ;TRANSACTION_RAB ; 1437 PUSHAB W^P.AAS ;P.AAS ; 1438 PUSHAB W^P.AAQ ;P.AAQ ; 1437 CALLS #3, W^LOG_FAOL ;#3, LOG_FAOL ; BRB 18$ ;18$ ; 1433 17$: CLRL W^TRANSACTION_OPEN ;TRANSACTION_OPEN ; 1443 18$: MOVL #134316043, R0 ;#134316043, R0 ; 1445 RET ; ; 1446 ; Routine Size: 437 bytes, Routine Base: $CODE$ + 0446 .PSECT $PLIT$,NOWRT,NOEXE,2 P.AAU: .ASCII \!-!-!11%D!/!-!%T!_Closing transaction log file !AS!/\ ; ; P.AAT: .LONG 17694772 ; ; .ADDRESS P.AAU ; ; P.AAV: .LONG 0 ; ; .ADDRESS TRANSACTION_DESC ; ; .PSECT $CODE$,NOWRT,2 .ENTRY TERM_CLOSE, ^M ;TERM_CLOSE, Save R2,R3,R4 ; 1450 MOVAB G^SYS$CANCEL, R4 ;SYS$CANCEL, R4 ; MOVAB W^U.4, R3 ;U.4, R3 ; PUSHL (R3) ;TERM_CHAN ; 1504 CALLS #1, (R4) ;#1, SYS$CANCEL ; MOVL R0, R2 ;R0, STATUS ; BLBC 12(R3), 1$ ;SYS_OUTPUT_OPEN, 1$ ; 1506 PUSHL 4(R3) ;CONS_CHAN ; CALLS #1, (R4) ;#1, SYS$CANCEL ; 1$: CLRL W^CONNECT_FLAG ;CONNECT_FLAG ; 1508 MOVZBL 906(R3), R0 ;OLD_PARITY+6, R0 ; 1509 BICL2 #-193, R0 ;#-193, R0 ; BISB2 #32, R0 ;#32, PAR ; CLRL -(SP) ;-(SP) ; 1512 PUSHL R0 ;PAR ; MOVZWL 904(R3), -(SP) ;OLD_PARITY+4, -(SP) ; MOVQ #12, -(SP) ;#12, -(SP) ; PUSHAB 908(R3) ;OLD_TERM_CHAR ; CLRQ -(SP) ;-(SP) ; MOVQ #35, -(SP) ;#35, -(SP) ; PUSHL (R3) ;TERM_CHAN ; CLRL -(SP) ;-(SP) ; CALLS #12, G^SYS$QIOW ;#12, SYS$QIOW ; MOVL R0, R2 ;R0, STATUS ; BLBS R2, 2$ ;STATUS, 2$ ; 1514 PUSHL R2 ;STATUS ; 1517 CALLS #1, G^LIB$SIGNAL ;#1, LIB$SIGNAL ; MOVL R2, R0 ;STATUS, R0 ; 1518 RET ; ; 2$: CLRL W^TERM_FLAG ;TERM_FLAG ; 1524 BLBC 644(R3), 3$ ;DEBUG_REDIRECTED, 3$ ; 1529 PUSHAB 444(R3) ;DEBUG_RAB ; 1532 PUSHAB 364(R3) ;DEBUG_FAB ; CALLS #2, W^LOG_CLOSE ;#2, LOG_CLOSE ; CLRL 644(R3) ;DEBUG_REDIRECTED ; 1533 3$: BLBC W^TRANSACTION_OPEN, 4$ ;TRANSACTION_OPEN, 4$ ; 1538 PUSHAB W^TRANSACTION_RAB ;TRANSACTION_RAB ; 1541 PUSHAB W^P.AAV ;P.AAV ; 1542 PUSHAB W^P.AAT ;P.AAT ; 1541 CALLS #3, W^LOG_FAOL ;#3, LOG_FAOL ; PUSHAB W^TRANSACTION_RAB ;TRANSACTION_RAB ; 1543 PUSHAB W^TRANSACTION_FAB ;TRANSACTION_FAB ; CALLS #2, W^LOG_CLOSE ;#2, LOG_CLOSE ; CLRL W^TRANSACTION_OPEN ;TRANSACTION_OPEN ; 1544 4$: MOVL #134316043, R0 ;#134316043, R0 ; 1549 RET ; ; 1550 ; Routine Size: 175 bytes, Routine Base: $CODE$ + 05FB .EXTRN SYS$READEF .ENTRY SEND, ^M ;SEND, Save R2 ; 1554 SUBL2 #4, SP ;#4, SP ; PUSHL SP ;SP ; 1605 PUSHL #2 ;#2 ; CALLS #2, G^SYS$READEF ;#2, SYS$READEF ; MOVL R0, R2 ;R0, STATUS ; BICL3 #-5, (SP), R0 ;#-5, CUR_EFN, R0 ; 1607 CMPL R0, #1 ;R0, #1 ; BNEQ 1$ ;1$ ; CALLS #0, W^U.40 ;#0, U.40 ; 1$: CLRQ -(SP) ;-(SP) ; 1610 CLRQ -(SP) ;-(SP) ; MOVQ 4(AP), -(SP) ;ADDRESS, -(SP) ; CLRQ -(SP) ;-(SP) ; CLRL -(SP) ;-(SP) ; MOVZWL #304, -(SP) ;#304, -(SP) ; PUSHL W^U.4 ;U.4 ; PUSHL #4 ;#4 ; CALLS #12, G^SYS$QIOW ;#12, SYS$QIOW ; MOVL R0, R2 ;R0, STATUS ; CMPL R2, #1 ;STATUS, #1 ; 1612 BNEQ 2$ ;2$ ; MOVL #134316043, R0 ;#134316043, R0 ; 1616 RET ; ; 2$: PUSHL R2 ;STATUS ; 1617 CALLS #1, G^LIB$SIGNAL ;#1, LIB$SIGNAL ; MOVL R2, R0 ;STATUS, R0 ; 1618 RET ; ; 1621 ; Routine Size: 96 bytes, Routine Base: $CODE$ + 06AA .PSECT $PLIT$,NOWRT,NOEXE,2 P.AAW: .LONG 10000000 ; ; P.AAX: .LONG 0 ; ; .PSECT $OWN$,NOEXE,2 ;INT_CHR_SEEN U.57: .BLKB 4 .EXTRN RCV_SOH, SYS$CLREF, SYS$CANTIM, SYS$GETTIM, SYS$SETIMR, SYS$WFLOR .PSECT $CODE$,NOWRT,2 .ENTRY RECEIVE, ^M ; ; MOVAB G^SYS$CANTIM, R11 ;SYS$CANTIM, R11 ; MOVAB W^U.57, R10 ;U.57, R10 ; SUBL2 #20, SP ;#20, SP ; CLRL (R10) ;INT_CHR_SEEN ; 1686 BLBS -940(R10), 1$ ;FORCE_TIMEOUT, 1$ ; 1691 PUSHL #3 ;#3 ; CALLS #1, G^SYS$CLREF ;#1, SYS$CLREF ; MOVL R0, R9 ;R0, STATUS ; 1$: TSTL W^SEND_TIMEOUT ;SEND_TIMEOUT ; 1693 BLEQ 2$ ;2$ ; MOVQ #3, -(SP) ;#3, -(SP) ; 1696 CALLS #2, (R11) ;#2, SYS$CANTIM ; MOVL R0, R9 ;R0, STATUS ; PUSHAB 4(SP) ;TIMER_VALUE ; 1697 CALLS #1, G^SYS$GETTIM ;#1, SYS$GETTIM ; MOVL R0, R9 ;R0, STATUS ; PUSHAB 12(SP) ;QWORD_TIMEOUT ; 1698 PUSHAB W^P.AAX ;P.AAX ; PUSHAB W^P.AAW ;P.AAW ; PUSHAB W^SEND_TIMEOUT ;SEND_TIMEOUT ; CALLS #4, G^LIB$EMUL ;#4, LIB$EMUL ; MOVL R0, R9 ;R0, STATUS ; PUSHAB 12(SP) ;QWORD_TIMEOUT ; 1699 PUSHAB 16(SP) ;QWORD_TIMEOUT ; PUSHAB 12(SP) ;TIMER_VALUE ; CALLS #3, G^LIB$ADDX ;#3, LIB$ADDX ; MOVL R0, R9 ;R0, STATUS ; PUSHL #3 ;#3 ; 1700 CLRL -(SP) ;-(SP) ; PUSHAB 20(SP) ;QWORD_TIMEOUT ; PUSHL #3 ;#3 ; CALLS #4, G^SYS$SETIMR ;#4, SYS$SETIMR ; MOVL R0, R9 ;R0, STATUS ; 2$: PUSHL #12 ;#12 ; 1714 PUSHL #2 ;#2 ; CALLS #2, G^SYS$WFLOR ;#2, SYS$WFLOR ; MOVL R0, R9 ;R0, STATUS ; PUSHL SP ;SP ; 1715 PUSHL #2 ;#2 ; CALLS #2, G^SYS$READEF ;#2, SYS$READEF ; MOVL R0, R9 ;R0, STATUS ; CLRL -940(R10) ;FORCE_TIMEOUT ; 1716 BBS #2, (SP), 3$ ;#2, CUR_EFN, 3$ ; 1722 MOVL #134316248, R0 ;#134316248, R0 ; RET ; ; 3$: BLBS -944(R10), 5$ ;FORCE_ABORT, 5$ ; 1728 BLBS -156(R10), 4$ ;IO_STATUS, 4$ ; 1740 MOVZWL -156(R10), -(SP) ;IO_STATUS, -(SP) ; 1743 BRW 19$ ;19$ ; 4$: BLBC W^CONNECT_FLAG, 8$ ;CONNECT_FLAG, 8$ ; 1752 CMPW -152(R10), #25 ;IO_STATUS+4, #25 ; 1755 BNEQ 7$ ;7$ ; CMPL W^RCV_EOL, #25 ;RCV_EOL, #25 ; BEQL 7$ ;7$ ; BLBC (R10), 6$ ;INT_CHR_SEEN, 6$ ; 1759 TSTW -154(R10) ;IO_STATUS+2 ; BNEQ 6$ ;6$ ; 5$: MOVQ #3, -(SP) ;#3, -(SP) ; 1762 CALLS #2, (R11) ;#2, SYS$CANTIM ; MOVL R0, R9 ;R0, STATUS ; MOVL #134316258, R0 ;#134316258, R0 ; 1763 RET ; ; 6$: MOVL #1, (R10) ;#1, INT_CHR_SEEN ; 1767 CLRW -154(R10) ;IO_STATUS+2 ; 1768 BRB 8$ ;8$ ; 1757 7$: CLRL (R10) ;INT_CHR_SEEN ; 1773 8$: MOVAB -148(R10), R6 ;RECV_BUFFER, OLD_POINTER ; 1780 MOVZWL -154(R10), R7 ;IO_STATUS+2, CUR_LENGTH ; 1781 LOCC W^RCV_SOH, R7, (R6) ;RCV_SOH, CUR_LENGTH, (OLD_POINTER) ; 1782 BNEQ 9$ ;9$ ; CLRL R1 ;R1 ; 9$: MOVL R1, R8 ;R1, NEW_POINTER ; BEQL 16$ ;16$ ; 1789 10$: TSTL R7 ;CUR_LENGTH ; 1797 BLEQ 12$ ;12$ ; TSTL R8 ;NEW_POINTER ; BEQL 12$ ;12$ ; SUBL3 R8, R6, R0 ;NEW_POINTER, OLD_POINTER, R0 ; 1799 ADDL2 R0, R7 ;R0, CUR_LENGTH ; MOVL R8, R6 ;NEW_POINTER, OLD_POINTER ; 1801 MOVAB -1(R7), R0 ;-1(R7), R0 ; 1802 LOCC W^RCV_SOH, R0, 1(R6) ;RCV_SOH, R0, 1(OLD_POINTER) ; BNEQ 11$ ;11$ ; CLRL R1 ;R1 ; 11$: MOVL R1, R8 ;R1, NEW_POINTER ; BRB 10$ ;10$ ; 1797 12$: TSTL R7 ;CUR_LENGTH ; 1811 BLEQ 16$ ;16$ ; MOVAB 1(R7), R0 ;1(R7), R0 ; 1814 MOVL R0, @8(AP) ;R0, @LENGTH ; TSTL W^PARITY_TYPE ;PARITY_TYPE ; 1816 BNEQ 13$ ;13$ ; BLBS W^IBM_FLAG, 13$ ;IBM_FLAG, 13$ ; MOVC3 R0, (R6), @4(AP) ;R0, (OLD_POINTER), @ADDRESS ; 1818 BRB 17$ ;17$ ; 13$: MOVL 4(AP), R8 ;ADDRESS, NEW_POINTER ; 1821 MOVAB 1(R7), R0 ;1(R7), CUR_LENGTH ; 1824 BRB 15$ ;15$ ; 14$: MOVZBL (R6)+, R1 ;(OLD_POINTER)+, R1 ; EXTZV #0, #7, R1, R2 ;#0, #7, R1, R2 ; MOVB R2, (R8)+ ;R2, (NEW_POINTER)+ ; 15$: SOBGEQ R0, 14$ ;CUR_LENGTH, 14$ ; BRB 17$ ;17$ ; 1813 16$: CALLS #0, W^U.40 ;#0, U.40 ; 1837 MOVL R0, R9 ;R0, STATUS ; BLBC R9, 18$ ;STATUS, 18$ ; 1839 BRW 2$ ;2$ ; 17$: CALLS #0, W^U.40 ;#0, U.40 ; 1852 MOVL R0, R9 ;R0, STATUS ; BLBS R9, 20$ ;STATUS, 20$ ; 1854 18$: PUSHL R9 ;STATUS ; 1857 19$: CALLS #1, G^LIB$SIGNAL ;#1, LIB$SIGNAL ; MOVL #134316266, R0 ;#134316266, R0 ; 1858 RET ; ; 20$: MOVL #134316043, R0 ;#134316043, R0 ; 1861 RET ; ; 1862 ; Routine Size: 414 bytes, Routine Base: $CODE$ + 070A .PSECT $PLIT$,NOWRT,NOEXE,2 P.AAY: .LONG 10000000 ; ; P.AAZ: .LONG 0 ; ; .PSECT $CODE$,NOWRT,2 .ENTRY IBM_WAIT, ^M ;IBM_WAIT, Save R2,R3,R4 ; 1866 MOVAB W^U.27, R4 ;U.27, R4 ; MOVAB G^SYS$CANTIM, R3 ;SYS$CANTIM, R3 ; SUBL2 #20, SP ;#20, SP ; PUSHL #3 ;#3 ; 1916 CALLS #1, G^SYS$CLREF ;#1, SYS$CLREF ; MOVL R0, R2 ;R0, STATUS ; TSTL W^SEND_TIMEOUT ;SEND_TIMEOUT ; 1918 BLEQ 1$ ;1$ ; MOVQ #3, -(SP) ;#3, -(SP) ; 1921 CALLS #2, (R3) ;#2, SYS$CANTIM ; MOVL R0, R2 ;R0, STATUS ; PUSHAB 4(SP) ;TIMER_VALUE ; 1922 CALLS #1, G^SYS$GETTIM ;#1, SYS$GETTIM ; MOVL R0, R2 ;R0, STATUS ; PUSHAB 12(SP) ;QWORD_TIMEOUT ; 1923 PUSHAB W^P.AAZ ;P.AAZ ; PUSHAB W^P.AAY ;P.AAY ; PUSHAB W^SEND_TIMEOUT ;SEND_TIMEOUT ; CALLS #4, G^LIB$EMUL ;#4, LIB$EMUL ; MOVL R0, R2 ;R0, STATUS ; PUSHAB 12(SP) ;QWORD_TIMEOUT ; 1924 PUSHAB 16(SP) ;QWORD_TIMEOUT ; PUSHAB 12(SP) ;TIMER_VALUE ; CALLS #3, G^LIB$ADDX ;#3, LIB$ADDX ; MOVL R0, R2 ;R0, STATUS ; PUSHL #3 ;#3 ; 1925 CLRL -(SP) ;-(SP) ; PUSHAB 20(SP) ;QWORD_TIMEOUT ; PUSHL #3 ;#3 ; CALLS #4, G^SYS$SETIMR ;#4, SYS$SETIMR ; MOVL R0, R2 ;R0, STATUS ; 1$: PUSHL #12 ;#12 ; 1939 PUSHL #2 ;#2 ; CALLS #2, G^SYS$WFLOR ;#2, SYS$WFLOR ; MOVL R0, R2 ;R0, STATUS ; PUSHL SP ;SP ; 1940 PUSHL #2 ;#2 ; CALLS #2, G^SYS$READEF ;#2, SYS$READEF ; MOVL R0, R2 ;R0, STATUS ; BBC #2, (SP), 7$ ;#2, CUR_EFN, 7$ ; 1946 BLBS (R4), 2$ ;IO_STATUS, 2$ ; 1953 MOVZWL (R4), -(SP) ;IO_STATUS, -(SP) ; 1956 BRB 6$ ;6$ ; 2$: BLBC W^CONNECT_FLAG, 3$ ;CONNECT_FLAG, 3$ ; 1965 CMPW 4(R4), #25 ;IO_STATUS+4, #25 ; 1968 BNEQ 3$ ;3$ ; CMPL W^RCV_EOL, #25 ;RCV_EOL, #25 ; BEQL 3$ ;3$ ; MOVQ #3, -(SP) ;#3, -(SP) ; 1971 CALLS #2, (R3) ;#2, SYS$CANTIM ; MOVL R0, R2 ;R0, STATUS ; MOVL #134316258, R0 ;#134316258, R0 ; 1972 RET ; ; 3$: CMPZV #0, #16, 4(R4), W^IBM_CHAR ;#0, #16, IO_STATUS+4, IBM_CHAR ; 1977 BEQL 4$ ;4$ ; CALLS #0, W^U.40 ;#0, U.40 ; 1982 MOVL R0, R2 ;R0, STATUS ; BLBS R2, 1$ ;STATUS, 1$ ; 1984 BRB 5$ ;5$ ; 1987 4$: CALLS #0, W^U.40 ;#0, U.40 ; 1997 MOVL R0, R2 ;R0, STATUS ; BLBS R2, 7$ ;STATUS, 7$ ; 1999 5$: PUSHL R2 ;STATUS ; 2002 6$: CALLS #1, G^LIB$SIGNAL ;#1, LIB$SIGNAL ; MOVL #134316266, R0 ;#134316266, R0 ; 2003 RET ; ; 7$: MOVL #134316043, R0 ;#134316043, R0 ; 2006 RET ; ; 2007 ; Routine Size: 254 bytes, Routine Base: $CODE$ + 08A8 .EXTRN SYS$GETDVI, SYS$WAITFR ;GET_DEV_CHAR U.39: .WORD ^M ;Save R2 ; 2010 SUBL2 #40, SP ;#40, SP ; MOVL #262148, 4(SP) ;#262148, ITMLST ; 2065 MOVL 12(AP), 8(SP) ;DEV_CLASS, ITMLST+4 ; 2066 CLRL 12(SP) ;ITMLST+8 ; 2067 MOVW #32, 18(SP) ;#32, ITMLST+14 ; 2071 MOVL 8(AP), R2 ;PHYS_NAME_DESC, R2 ; 2072 MOVW (R2), 16(SP) ;(R2), ITMLST+12 ; MOVL 4(R2), 20(SP) ;4(R2), ITMLST+16 ; 2073 MOVAB (SP), 24(SP) ;PHYS_NAME_LENGTH, ITMLST+20 ; 2074 CLRL 28(SP) ;ITMLST+24 ; 2079 CLRQ -(SP) ;-(SP) ; 2083 CLRQ -(SP) ;-(SP) ; PUSHAB 20(SP) ;ITMLST ; PUSHL 4(AP) ;LOG_NAME_DESC ; MOVQ #7, -(SP) ;#7, -(SP) ; CALLS #8, G^SYS$GETDVI ;#8, SYS$GETDVI ; BLBC R0, 1$ ;STATUS, 1$ ; 2085 PUSHL #7 ;#7 ; 2090 CALLS #1, G^SYS$WAITFR ;#1, SYS$WAITFR ; BLBC R0, 1$ ;STATUS, 1$ ; 2092 MOVW (SP), (R2) ;PHYS_NAME_LENGTH, (R2) ; 2097 MOVL #134316043, R0 ;#134316043, R0 ; 2098 1$: RET ; ; 2099 ; Routine Size: 91 bytes, Routine Base: $CODE$ + 09A6 .EXTRN SYS$QIO ;DO_RECEIVE_QIO U.40: .WORD ^M<> ;Save nothing ; 2101 SUBL2 #4, SP ;#4, SP ; CLRL -(SP) ;TERMINATOR ; 2151 ASHL W^RCV_EOL, #1, R0 ;RCV_EOL, #1, R0 ; 2152 BISL3 #33554432, R0, 4(SP) ;#33554432, R0, TERMINATOR+4 ; BLBC W^IBM_FLAG, 1$ ;IBM_FLAG, 1$ ; 2154 ASHL W^IBM_CHAR, #1, R0 ;IBM_CHAR, #1, R0 ; BISL2 R0, 4(SP) ;R0, TERMINATOR+4 ; 1$: MOVZWL #2170, R0 ;#2170, QIO_FUNC ; 2160 CLRQ -(SP) ;-(SP) ; 2162 PUSHAB 8(SP) ;TERMINATOR ; CLRL -(SP) ;-(SP) ; MOVZBL #116, -(SP) ;#116, -(SP) ; PUSHAB W^U.28 ;U.28 ; CLRQ -(SP) ;-(SP) ; PUSHAB W^U.27 ;U.27 ; PUSHL R0 ;QIO_FUNC ; PUSHL W^U.4 ;U.4 ; PUSHL #2 ;#2 ; CALLS #12, G^SYS$QIO ;#12, SYS$QIO ; RET ; ; 2163 ; Routine Size: 79 bytes, Routine Base: $CODE$ + 0A01 .PSECT $OWN$,NOEXE,2 ;CONS_STATUS U.60: .BLKB 8 ;CONS_BUFFER U.61: .BLKB 1 .EXTRN ABT_CUR_FILE, ABT_ALL_FILE, DEBUG_FLAG, TYP_STS_FLAG, SYS$SETEF .PSECT $CODE$,NOWRT,2 ;CONS_AST U.62: .WORD ^M ;Save R2 ; 2228 MOVAB W^U.60, R2 ;U.60, R2 ; BLBC (R2), 9$ ;CONS_STATUS, 9$ ; 2231 MOVZWL 4(R2), R0 ;CONS_STATUS+4, R0 ; 2234 CMPW R0, #26 ;R0, #26 ; 2237 BNEQ 1$ ;1$ ; MOVL #1, W^ABT_ALL_FILE ;#1, ABT_ALL_FILE ; 2238 1$: CMPW R0, #24 ;R0, #24 ; 2240 BNEQ 2$ ;2$ ; MOVL #1, W^ABT_CUR_FILE ;#1, ABT_CUR_FILE ; 2241 2$: CMPW R0, #25 ;R0, #25 ; 2243 BEQL 10$ ;10$ ; CMPW R0, #3 ;R0, #3 ; 2246 BNEQ 3$ ;3$ ; MOVL #1, -944(R2) ;#1, FORCE_TIMEOUT ; 2248 MOVL #1, -948(R2) ;#1, FORCE_ABORT ; 2249 3$: CMPW R0, #4 ;R0, #4 ; 2252 BNEQ 4$ ;4$ ; MCOML W^DEBUG_FLAG, W^DEBUG_FLAG ;DEBUG_FLAG, DEBUG_FLAG ; 2253 4$: CMPW R0, #1 ;R0, #1 ; 2255 BNEQ 5$ ;5$ ; MOVL #1, W^TYP_STS_FLAG ;#1, TYP_STS_FLAG ; 2256 5$: CMPW R0, #13 ;R0, #13 ; 2258 BNEQ 6$ ;6$ ; MOVL #1, -944(R2) ;#1, FORCE_TIMEOUT ; 2259 6$: CMPW R0, #1 ;R0, #1 ; 2261 BEQL 7$ ;7$ ; CMPW R0, #3 ;R0, #3 ; BEQL 7$ ;7$ ; CMPW R0, #13 ;R0, #13 ; BEQL 7$ ;7$ ; CMPW R0, #24 ;R0, #24 ; BEQL 7$ ;7$ ; CMPW R0, #26 ;R0, #26 ; BNEQ 9$ ;9$ ; 7$: BLBS -944(R2), 8$ ;FORCE_TIMEOUT, 8$ ; 2265 TSTL W^SEND_TIMEOUT ;SEND_TIMEOUT ; BNEQ 9$ ;9$ ; 8$: PUSHL #3 ;#3 ; CALLS #1, G^SYS$SETEF ;#1, SYS$SETEF ; 9$: CMPW (R2), #2096 ;CONS_STATUS, #2096 ; 2269 BEQL 10$ ;10$ ; CMPW (R2), #44 ;CONS_STATUS, #44 ; BEQL 10$ ;10$ ; CALLS #0, W^U.41 ;#0, U.41 ; 2271 RET ; ; 2273 10$: MOVL #1, R0 ;#1, R0 ; RET ; ; 2275 ; Routine Size: 153 bytes, Routine Base: $CODE$ + 0A50 ;DO_CONS_QIO U.41: .WORD ^M<> ;Save nothing ; 2165 SUBL2 #40, SP ;#40, SP ; MOVL #32, 32(SP) ;#32, TERMINATOR ; 2279 MOVAB (SP), 36(SP) ;TERM_MASK, TERMINATOR+4 ; 2280 CLRL R0 ;I ; 2282 1$: MNEGL #1, (SP)[R0] ;#1, TERM_MASK[I] ; 2283 AOBLEQ #7, R0, 1$ ;#7, I, 1$ ; CLRQ -(SP) ;-(SP) ; 2287 PUSHAB 40(SP) ;TERMINATOR ; MOVQ #1, -(SP) ;#1, -(SP) ; PUSHAB W^U.61 ;U.61 ; CLRL -(SP) ;-(SP) ; PUSHAB W^U.62 ;U.62 ; PUSHAB W^U.60 ;U.60 ; MOVZBL #122, -(SP) ;#122, -(SP) ; PUSHL W^U.5 ;U.5 ; PUSHL #5 ;#5 ; CALLS #12, G^SYS$QIO ;#12, SYS$QIO ; RET ; ; 2288 ; Routine Size: 63 bytes, Routine Base: $CODE$ + 0AE9 .PSECT $PLIT$,NOWRT,NOEXE,2 P.ABB: .ASCII \Connecting to \<0><0> ; ; P.ABA: .LONG 17694734 ; ; .ADDRESS P.ABB ; ; P.ABD: .ASCII \. Type \ ; ; P.ABC: .LONG 17694728 ; ; .ADDRESS P.ABD ; ; P.ABF: .ASCII \C to return to VAX/VMS Kermit-32]\<0><0><0> ; ; P.ABE: .LONG 17694753 ; ; .ADDRESS P.ABF ; ; P.ABH: .ASCII \Returning to VAX/VMS Kermit-32]\<0> ; ; P.ABG: .LONG 17694751 ; ; .ADDRESS P.ABH ; ; P.ABJ: .ASCII \0 00:00:00.050\<0><0> ; ; P.ABI: .LONG 17694734 ; ; .ADDRESS P.ABJ ; ; P.ABL: .ASCII \SYS$INPUT:\<0><0> ; ; P.ABK: .LONG 17694730 ; ; .ADDRESS P.ABL ; ; .PSECT $OWN$,NOEXE,2 .BLKB 3 ;BTIMUP U.64: .BLKB 8 ;CHANNEL U.65: .BLKB 8 ;CHR_COUNT U.66: .LONG 0 ; ; ;ESC_FLG U.67: .LONG 0 ; ; ;IN_IOSB U.68: .BLKB 32 ;INP_BUF U.69: .BLKB 102 .BLKB 2 ;MSG U.70: .BLKB 80 ;MSG_DES U.71: .BLKB 8 ;OUT_BUF U.72: .BLKB 322 .BLKB 2 ;OUT_BUFNUM U.73: .BLKB 2 .BLKB 2 ;OUT_EFN U.74: .BLKB 2 .BLKB 2 ;OUT_PTR U.75: .BLKB 8 ;MYT_QIO_FUNC U.76: .BLKB 4 ;ESC_CHR_LEN U.77: .BLKB 4 ;ESC_CHR_MSG U.78: .BLKB 30 .BLKB 2 ;STATE U.79: .BLKB 4 U.80= P.ABA U.81= P.ABC U.82= P.ABE U.83= P.ABG U.88= P.ABI U.89= U.65+4 U.90= P.ABK .PSECT $CODE$,NOWRT,2 ;TYPE_OUT_BUF U.91: .WORD ^M ;Save R2,R3,R4,R5,R6 ; 2407 MOVAB G^SYS$READEF, R6 ;SYS$READEF, R6 ; MOVAB W^U.79, R5 ;U.79, R5 ; PUSHL R5 ;R5 ; 2422 PUSHL #5 ;#5 ; CALLS #2, (R6) ;#2, SYS$READEF ; MOVL R0, R4 ;R0, STATUS ; CMPL R4, #1 ;STATUS, #1 ; BEQL 1$ ;1$ ; MOVAB -52(R5), R0 ;OUT_EFN, R0 ; 2425 MOVZBL @4(AP)[R0], -(SP) ;@DEV[R0], -(SP) ; BRB 3$ ;3$ ; 1$: MOVL 4(AP), R2 ;DEV, R2 ; 2429 MOVAB -52(R5)[R2], R3 ;OUT_EFN[R2], R3 ; MOVZBL (R3), -(SP) ;(R3), -(SP) ; CALLS #1, G^SYS$WAITFR ;#1, SYS$WAITFR ; MOVZBL (R3), -(SP) ;(R3), -(SP) ; 2430 CALLS #1, G^SYS$CLREF ;#1, SYS$CLREF ; PUSHL R5 ;R5 ; 2432 PUSHL #5 ;#5 ; CALLS #2, (R6) ;#2, SYS$READEF ; CMPL R0, #1 ;R0, #1 ; BNEQ 2$ ;2$ ; CLRQ -(SP) ;-(SP) ; 2436 CLRQ -(SP) ;-(SP) ; MOVZWL -612(R5)[R2], -(SP) ;CHR_COUNT[R2], -(SP) ; MOVZBL -56(R5)[R2], R0 ;OUT_BUFNUM[R2], R0 ; MOVAW (R0)[R2], R0 ;(R0)[R2], R0 ; MULL2 #80, R0 ;#80, R0 ; MOVAB -380(R5)[R0], R0 ;OUT_BUF[R0], R0 ; PUSHAB (R2)[R0] ;(R2)[R0] ; CLRQ -(SP) ;-(SP) ; CLRL -(SP) ;-(SP) ; MOVZWL #304, -(SP) ;#304, -(SP) ; PUSHL -620(R5)[R2] ;CHANNEL[R2] ; MOVZBL (R3), -(SP) ;(R3), -(SP) ; CALLS #12, G^SYS$QIO ;#12, SYS$QIO ; MOVL R0, R4 ;R0, STATUS ; BRB 4$ ;4$ ; 2434 2$: MOVZBL (R3), -(SP) ;(R3), -(SP) ; 2439 3$: BRB 6$ ;6$ ; 4$: CLRW -612(R5)[R2] ;CHR_COUNT[R2] ; 2443 INCB (R3) ;(R3) ; 2444 MOVAB -56(R5)[R2], R1 ;OUT_BUFNUM[R2], R1 ; 2446 MOVZBL (R1), R0 ;(R1), R0 ; INCL R0 ;R0 ; MOVB R0, (R1) ;R0, (R1) ; CMPL R0, #2 ;R0, #2 ; BLSS 5$ ;5$ ; CLRB (R1) ;(R1) ; 2449 ASHL #1, R2, R0 ;#1, R2, R0 ; 2450 ADDB3 #1, R0, (R3) ;#1, R0, (R3) ; 5$: MOVZBL (R1), R0 ;(R1), R0 ; 2453 MOVAW (R0)[R2], R0 ;(R0)[R2], R0 ; MULL2 #80, R0 ;#80, R0 ; MOVAB -380(R5)[R0], R0 ;OUT_BUF[R0], R0 ; ADDL3 R2, R0, -48(R5)[R2] ;R2, R0, OUT_PTR[R2] ; BLBS R4, 7$ ;STATUS, 7$ ; 2455 PUSHL R4 ;STATUS ; 2458 CALLS #1, G^LIB$SIGNAL ;#1, LIB$SIGNAL ; PUSHL #5 ;#5 ; 2459 6$: CALLS #1, G^SYS$SETEF ;#1, SYS$SETEF ; 7$: MOVL R4, R0 ;STATUS, R0 ; 2462 RET ; ; 2463 ; Routine Size: 236 bytes, Routine Base: $CODE$ + 0B28 ;TIME_UP U.92: .WORD ^M<> ;Save nothing ; 2465 CMPL 4(AP), #2 ;OUTEFN, #2 ; 2477 BGTR 1$ ;1$ ; CLRL R0 ;DEV ; 2479 BRB 2$ ;2$ ; 1$: MOVL #1, R0 ;#1, DEV ; 2481 2$: PUSHL R0 ;DEV ; 2483 CALLS #1, W^U.91 ;#1, U.91 ; RET ; ; 2484 ; Routine Size: 23 bytes, Routine Base: $CODE$ + 0C14 .EXTRN GEN_PARITY ;STORE_INPUT U.93: .WORD ^M ;Save R2,R3,R4,R5,R6,R7,R8,R9 ; 2486 MOVAB W^U.74, R9 ;U.74, R9 ; PUSHAB 52(R9) ;STATE ; 2504 PUSHL #5 ;#5 ; CALLS #2, G^SYS$READEF ;#2, SYS$READEF ; MOVL R0, R3 ;R0, STATUS ; CMPL R3, #1 ;STATUS, #1 ; BEQL 1$ ;1$ ; RET ; ; 1$: TSTL 12(AP) ;NUM_CHR_IN ; 2506 BNEQ 2$ ;2$ ; RET ; ; 2$: MOVL 4(AP), R7 ;DEV, R7 ; 2508 MOVAW -560(R9)[R7], R8 ;CHR_COUNT[R7], R8 ; MOVZWL (R8), R0 ;(R8), R0 ; ADDL2 12(AP), R0 ;NUM_CHR_IN, R0 ; CMPL R0, #80 ;R0, #80 ; BLEQ 3$ ;3$ ; MOVZWL (R8), R2 ;(R8), SAVED_CHR_CNT ; 2519 SUBL3 R2, #80, R2 ;SAVED_CHR_CNT, #80, SAVED_CHR_CNT ; SUBL2 R2, 12(AP) ;SAVED_CHR_CNT, NUM_CHR_IN ; 2520 PUSHL R2 ;SAVED_CHR_CNT ; 2521 PUSHL 8(AP) ;INP_POINTER ; PUSHL R7 ;R7 ; CALLS #3, B^U.93 ;#3, U.93 ; ADDL2 R2, 8(AP) ;SAVED_CHR_CNT, INP_POINTER ; 2522 3$: TSTW (R8) ;(R8) ; 2525 BNEQ 4$ ;4$ ; MOVZBL (R9)[R7], -(SP) ;OUT_EFN[R7], -(SP) ; 2528 PUSHAB B^U.92 ;U.92 ; PUSHAB -576(R9) ;BTIMUP ; CLRL -(SP) ;-(SP) ; CALLS #4, G^SYS$SETIMR ;#4, SYS$SETIMR ; MOVL R0, R3 ;R0, STATUS ; BLBS R3, 4$ ;STATUS, 4$ ; 2530 PUSHL R3 ;STATUS ; 2533 CALLS #1, G^LIB$SIGNAL ;#1, LIB$SIGNAL ; PUSHL #5 ;#5 ; 2534 CALLS #1, G^SYS$SETEF ;#1, SYS$SETEF ; RET ; ; 2535 4$: MOVAL 4(R9)[R7], R6 ;OUT_PTR[R7], R6 ; 2552 TSTL R7 ;R7 ; 2542 BNEQ 7$ ;7$ ; MOVL 8(AP), R3 ;INP_POINTER, POINTER ; 2549 ADDL3 #1, 12(AP), R2 ;#1, NUM_CHR_IN, I ; 2552 BRB 6$ ;6$ ; 5$: MOVZBL (R3)+, -(SP) ;(POINTER)+, -(SP) ; CALLS #1, W^GEN_PARITY ;#1, GEN_PARITY ; MOVB R0, @0(R6) ;R0, @0(R6) ; INCL (R6) ;(R6) ; 6$: SOBGTR R2, 5$ ;I, 5$ ; BRB 8$ ;8$ ; 2542 7$: MOVC3 12(AP), @8(AP), @0(R6) ;NUM_CHR_IN, @INP_POINTER, @0(R6) ; 2556 MOVL R3, (R6) ;R3, (R6) ; 8$: CMPL R7, #1 ;R7, #1 ; 2562 BEQL 9$ ;9$ ; BLBC W^ECHO_FLAG, 12$ ;ECHO_FLAG, 12$ ; 9$: BLBC -1168(R9), 12$ ;SESSION_OPEN, 12$ ; BLBC -1164(R9), 12$ ;SESSION_LOGGING, 12$ ; MOVL 8(AP), R3 ;INP_POINTER, POINTER ; 2570 ADDL3 #1, 12(AP), R2 ;#1, NUM_CHR_IN, I ; 2572 BRB 11$ ;11$ ; 10$: PUSHAB -1368(R9) ;SESSION_RAB ; 2574 MOVZBL (R3)+, -(SP) ;(POINTER)+, -(SP) ; CALLS #2, W^LOG_CHAR ;#2, LOG_CHAR ; BLBS R0, 11$ ;R0, 11$ ; CLRL -1164(R9) ;SESSION_LOGGING ; 2577 BRB 12$ ;12$ ; 2576 11$: SOBGTR R2, 10$ ;I, 10$ ; 2574 12$: MOVZWL (R8), R0 ;(R8), R0 ; 2583 ADDL2 12(AP), R0 ;NUM_CHR_IN, R0 ; MOVW R0, (R8) ;R0, (R8) ; CMPL R0, #55 ;R0, #55 ; BLSS 13$ ;13$ ; CLRL -(SP) ;-(SP) ; 2586 MOVZBL (R9)[R7], -(SP) ;OUT_EFN[R7], -(SP) ; CALLS #2, G^SYS$CANTIM ;#2, SYS$CANTIM ; PUSHL R7 ;R7 ; 2587 CALLS #1, W^U.91 ;#1, U.91 ; 13$: RET ; ; 2591 ; Routine Size: 279 bytes, Routine Base: $CODE$ + 0C2B .PSECT $PLIT$,NOWRT,NOEXE,2 P.ABM: .BYTE 91 ; ; P.ABN: .BYTE 93 ; ; P.ABO: .BYTE 13, 10 ; ; .PSECT $OWN$,NOEXE,2 ;STATUS U.95: .BLKB 4 ;NUM_CHR_IN U.96: .BLKB 4 .PSECT $CODE$,NOWRT,2 ;TYPE_MSG U.98: .WORD ^M ;Save R2 ; 2618 MOVAB W^U.93, R2 ;U.93, R2 ; BLBC 8(AP), 1$ ;OPEN_FLAG, 1$ ; 2624 PUSHL #1 ;#1 ; 2627 PUSHAB W^P.ABM ;P.ABM ; PUSHL #1 ;#1 ; CALLS #3, (R2) ;#3, STORE_INPUT ; MOVZWL W^NODE_DESC, R0 ;NODE_DESC, R0 ; 2629 BLEQ 1$ ;1$ ; PUSHL R0 ;R0 ; 2632 PUSHL W^NODE_DESC+4 ;NODE_DESC+4 ; PUSHL #1 ;#1 ; CALLS #3, (R2) ;#3, STORE_INPUT ; 1$: MOVL 4(AP), R0 ;MSG_DESC, R0 ; 2636 MOVZWL (R0), -(SP) ;(R0), -(SP) ; PUSHL 4(R0) ;4(R0) ; PUSHL #1 ;#1 ; CALLS #3, (R2) ;#3, STORE_INPUT ; BLBC 12(AP), 2$ ;CLOSE_FLAG, 2$ ; 2638 PUSHL #1 ;#1 ; PUSHAB W^P.ABN ;P.ABN ; PUSHL #1 ;#1 ; CALLS #3, (R2) ;#3, STORE_INPUT ; 2$: BLBC 16(AP), 3$ ;CRLF_FLAG, 3$ ; 2640 PUSHL #2 ;#2 ; PUSHAB W^P.ABO ;P.ABO ; PUSHL #1 ;#1 ; CALLS #3, (R2) ;#3, STORE_INPUT ; 3$: RET ; ; 2642 ; Routine Size: 86 bytes, Routine Base: $CODE$ + 0D42 .PSECT $PLIT$,NOWRT,NOEXE,2 P.ABQ: .ASCII \Escape commands are:\ ; ; P.ABP: .LONG 17694740 ; ; .ADDRESS P.ABQ ; ; P.ABS: .ASCII <9>\C - Return to VAX/VMS Kermit-32\ ; ; P.ABR: .LONG 17694752 ; ; .ADDRESS P.ABS ; ; P.ABU: .ASCII <9>\Q - Suspend logging to session log file (if any)\<0><0><0> ; ; P.ABT: .LONG 17694769 ; ; .ADDRESS P.ABU ; ; P.ABW: .ASCII <9>\R - Resume logging to session log file (if any)\ ; ; P.ABV: .LONG 17694768 ; ; .ADDRESS P.ABW ; ; P.ABY: .ASCII <9>\S - Show status\ ; ; P.ABX: .LONG 17694736 ; ; .ADDRESS P.ABY ; ; P.ACA: .ASCII <9>\0 - Send a null\ ; ; P.ABZ: .LONG 17694736 ; ; .ADDRESS P.ACA ; ; P.ACC: .ASCII <9>\? - Type this text\<0> ; ; P.ACB: .LONG 17694739 ; ; .ADDRESS P.ACC ; ; P.ACE: .ASCII <9><0><0><0> ; ; P.ACD: .LONG 17694721 ; ; .ADDRESS P.ACE ; ; P.ACG: .ASCII \ - Send escape character\ ; ; P.ACF: .LONG 17694744 ; ; .ADDRESS P.ACG ; ; P.ACI: .ASCII \logging already disabled\ ; ; P.ACH: .LONG 17694744 ; ; .ADDRESS P.ACI ; ; P.ACK: .ASCII \logging disabled\ ; ; P.ACJ: .LONG 17694736 ; ; .ADDRESS P.ACK ; ; P.ACM: .ASCII \no log file to enable\<0><0><0> ; ; P.ACL: .LONG 17694741 ; ; .ADDRESS P.ACM ; ; P.ACO: .ASCII \logging enabled\<0> ; ; P.ACN: .LONG 17694735 ; ; .ADDRESS P.ACO ; ; P.ACQ: .ASCII \Connected to \<0><0><0> ; ; P.ACP: .LONG 17694733 ; ; .ADDRESS P.ACQ ; ; P.ACS: .ASCII <9>\Escape character: "\ ; ; P.ACR: .LONG 17694740 ; ; .ADDRESS P.ACS ; ; P.ACU: .ASCII \"\<0><0><0> ; ; P.ACT: .LONG 17694721 ; ; .ADDRESS P.ACU ; ; P.ACW: .ASCII <9>\Local echo: \<0><0><0> ; ; P.ACV: .LONG 17694733 ; ; .ADDRESS P.ACW ; ; P.ACY: .ASCII \On\<0><0> ; ; P.ACX: .LONG 17694722 ; ; .ADDRESS P.ACY ; ; P.ADA: .ASCII \Off\<0> ; ; P.ACZ: .LONG 17694723 ; ; .ADDRESS P.ADA ; ; P.ADC: .ASCII <9>\Parity: \<0><0><0> ; ; P.ADB: .LONG 17694729 ; ; .ADDRESS P.ADC ; ; P.ADE: .ASCII \None\ ; ; P.ADD: .LONG 17694724 ; ; .ADDRESS P.ADE ; ; P.ADG: .ASCII \Odd\<0> ; ; P.ADF: .LONG 17694723 ; ; .ADDRESS P.ADG ; ; P.ADI: .ASCII \Even\ ; ; P.ADH: .LONG 17694724 ; ; .ADDRESS P.ADI ; ; P.ADK: .ASCII \Mark\ ; ; P.ADJ: .LONG 17694724 ; ; .ADDRESS P.ADK ; ; P.ADM: .ASCII \Space\<0><0><0> ; ; P.ADL: .LONG 17694725 ; ; .ADDRESS P.ADM ; ; P.ADO: .ASCII <9>\Logging: \<0><0> ; ; P.ADN: .LONG 17694730 ; ; .ADDRESS P.ADO ; ; P.ADQ: .ASCII \ Enabled\ ; ; P.ADP: .LONG 17694728 ; ; .ADDRESS P.ADQ ; ; P.ADS: .ASCII \ Disabled\<0><0><0> ; ; P.ADR: .LONG 17694729 ; ; .ADDRESS P.ADS ; ; P.ADU: .ASCII \ None specifed\<0><0> ; ; P.ADT: .LONG 17694734 ; ; .ADDRESS P.ADU ; ; P.ADV: .BYTE 7 ; ; U.100= P.ACH U.101= P.ACJ U.102= P.ACL U.103= P.ACN .PSECT $CODE$,NOWRT,2 ;CHK_FOR_EXIT U.97: .WORD ^M ;Save R2,R3,R4,R5,R6,R7,R8,R9,R10 ; 2609 MOVAB W^ESCAPE_CHR, R10 ;ESCAPE_CHR, R10 ; MOVAB W^U.96, R9 ;U.96, R9 ; MOVAB B^U.98, R8 ;U.98, R8 ; CLRL R7 ;INDEX ; 2617 MULL3 #25, 4(AP), R0 ;#25, INP_BUFNUM, R0 ; 2650 MOVAB -580(R9)[R0], R2 ;INP_BUF[R0], PTR0 ; CMPL -616(R9), #1 ;ESC_FLG, #1 ; 2652 BNEQ 1$ ;1$ ; CLRL R7 ;INDEX ; 2655 MOVL R2, R6 ;PTR0, ESC_PTR ; 2656 CLRL -616(R9) ;ESC_FLG ; 2657 BRB 5$ ;5$ ; 2652 1$: LOCC (R10), (R9), (R2) ;ESCAPE_CHR, NUM_CHR_IN, (PTR0) ; 2661 BNEQ 2$ ;2$ ; CLRL R1 ;R1 ; 2$: MOVL R1, R6 ;R1, ESC_PTR ; BEQL 4$ ;4$ ; SUBL3 R6, R2, R7 ;ESC_PTR, PTR0, INDEX ; 2666 SUBL3 #1, (R9), R0 ;#1, NUM_CHR_IN, R0 ; 2668 MOVL R0, (R9) ;R0, NUM_CHR_IN ; CMPL R7, R0 ;INDEX, R0 ; BEQL 3$ ;3$ ; SUBL3 R7, (R9), R0 ;INDEX, NUM_CHR_IN, R0 ; 2671 MOVC3 R0, 1(R6), (R6) ;R0, 1(ESC_PTR), (ESC_PTR) ; 2672 BRB 5$ ;5$ ; 2668 3$: MOVL #1, -616(R9) ;#1, ESC_FLG ; 2676 4$: BRW 36$ ;36$ ; 2677 5$: CLRL R2 ;EAT_CHR ; 2682 CMPB (R6), #63 ;(ESC_PTR), #63 ; 2687 BNEQ 7$ ;7$ ; PUSHL #1 ;#1 ; 2689 MOVQ #1, -(SP) ;#1, -(SP) ; PUSHAB W^P.ABP ;P.ABP ; CALLS #4, (R8) ;#4, TYPE_MSG ; PUSHL #1 ;#1 ; 2690 CLRQ -(SP) ;-(SP) ; PUSHAB W^P.ABR ;P.ABR ; CALLS #4, (R8) ;#4, TYPE_MSG ; PUSHL #1 ;#1 ; 2691 CLRQ -(SP) ;-(SP) ; PUSHAB W^P.ABT ;P.ABT ; CALLS #4, (R8) ;#4, TYPE_MSG ; PUSHL #1 ;#1 ; 2693 CLRQ -(SP) ;-(SP) ; PUSHAB W^P.ABV ;P.ABV ; CALLS #4, (R8) ;#4, TYPE_MSG ; PUSHL #1 ;#1 ; 2695 CLRQ -(SP) ;-(SP) ; PUSHAB W^P.ABX ;P.ABX ; CALLS #4, (R8) ;#4, TYPE_MSG ; PUSHL #1 ;#1 ; 2696 CLRQ -(SP) ;-(SP) ; PUSHAB W^P.ABZ ;P.ABZ ; CALLS #4, (R8) ;#4, TYPE_MSG ; PUSHL #1 ;#1 ; 2697 CLRQ -(SP) ;-(SP) ; PUSHAB W^P.ACB ;P.ACB ; CALLS #4, (R8) ;#4, TYPE_MSG ; CLRQ -(SP) ;-(SP) ; 2698 CLRL -(SP) ;-(SP) ; PUSHAB W^P.ACD ;P.ACD ; CALLS #4, (R8) ;#4, TYPE_MSG ; PUSHL -44(R9) ;ESC_CHR_LEN ; 2699 PUSHAB -40(R9) ;ESC_CHR_MSG ; PUSHL #1 ;#1 ; CALLS #3, -279(R8) ;#3, STORE_INPUT ; PUSHL #1 ;#1 ; 2700 PUSHL #1 ;#1 ; CLRL -(SP) ;-(SP) ; PUSHAB W^P.ACF ;P.ACF ; 6$: CALLS #4, (R8) ;#4, TYPE_MSG ; BRB 13$ ;13$ ; 2701 7$: CMPB (R6), #67 ;(ESC_PTR), #67 ; 2704 BEQL 8$ ;8$ ; CMPB (R6), #99 ;(ESC_PTR), #99 ; BNEQ 9$ ;9$ ; 8$: MOVL R7, (R9) ;INDEX, NUM_CHR_IN ; 2706 MOVL #1, R0 ;#1, R0 ; 2707 RET ; ; 9$: CMPB (R6), #81 ;(ESC_PTR), #81 ; 2710 BEQL 10$ ;10$ ; CMPB (R6), #113 ;(ESC_PTR), #113 ; BNEQ 14$ ;14$ ; 10$: BLBC -1224(R9), 11$ ;SESSION_LOGGING, 11$ ; 2717 PUSHL #1 ;#1 ; 2719 PUSHL #1 ;#1 ; PUSHL #1 ;#1 ; PUSHAB W^U.101 ;U.101 ; BRB 12$ ;12$ ; 11$: PUSHL #1 ;#1 ; 2721 PUSHL #1 ;#1 ; PUSHL #1 ;#1 ; PUSHAB W^U.100 ;U.100 ; 12$: CALLS #4, (R8) ;#4, TYPE_MSG ; CLRL -1224(R9) ;SESSION_LOGGING ; 2723 13$: BRW 34$ ;34$ ; 2724 14$: CMPB (R6), #82 ;(ESC_PTR), #82 ; 2727 BEQL 15$ ;15$ ; CMPB (R6), #114 ;(ESC_PTR), #114 ; BNEQ 17$ ;17$ ; 15$: MOVL -1228(R9), -1224(R9) ;SESSION_OPEN, SESSION_LOGGING ; 2734 BLBC -1224(R9), 16$ ;SESSION_LOGGING, 16$ ; 2736 PUSHL #1 ;#1 ; 2738 PUSHL #1 ;#1 ; PUSHL #1 ;#1 ; PUSHAB W^U.103 ;U.103 ; BRB 6$ ;6$ ; 16$: PUSHL #1 ;#1 ; 2740 PUSHL #1 ;#1 ; PUSHL #1 ;#1 ; PUSHAB W^U.102 ;U.102 ; BRB 6$ ;6$ ; 17$: CMPB (R6), #83 ;(ESC_PTR), #83 ; 2745 BEQL 18$ ;18$ ; CMPB (R6), #115 ;(ESC_PTR), #115 ; BEQL 18$ ;18$ ; BRW 31$ ;31$ ; 18$: CLRQ -(SP) ;-(SP) ; 2747 PUSHL #1 ;#1 ; PUSHAB W^P.ACP ;P.ACP ; CALLS #4, (R8) ;#4, TYPE_MSG ; PUSHL #1 ;#1 ; 2748 CLRQ -(SP) ;-(SP) ; PUSHAB W^TERM_DESC ;TERM_DESC ; CALLS #4, (R8) ;#4, TYPE_MSG ; CLRQ -(SP) ;-(SP) ; 2749 CLRL -(SP) ;-(SP) ; PUSHAB W^P.ACR ;P.ACR ; CALLS #4, (R8) ;#4, TYPE_MSG ; PUSHL -44(R9) ;ESC_CHR_LEN ; 2750 PUSHAB -40(R9) ;ESC_CHR_MSG ; PUSHL #1 ;#1 ; CALLS #3, -279(R8) ;#3, STORE_INPUT ; PUSHL #1 ;#1 ; 2751 CLRQ -(SP) ;-(SP) ; PUSHAB W^P.ACT ;P.ACT ; CALLS #4, (R8) ;#4, TYPE_MSG ; CLRQ -(SP) ;-(SP) ; 2752 CLRL -(SP) ;-(SP) ; PUSHAB W^P.ACV ;P.ACV ; CALLS #4, (R8) ;#4, TYPE_MSG ; BLBC W^ECHO_FLAG, 19$ ;ECHO_FLAG, 19$ ; 2754 PUSHL #1 ;#1 ; 2756 CLRQ -(SP) ;-(SP) ; PUSHAB W^P.ACX ;P.ACX ; BRB 20$ ;20$ ; 19$: PUSHL #1 ;#1 ; 2758 CLRQ -(SP) ;-(SP) ; PUSHAB W^P.ACZ ;P.ACZ ; 20$: CALLS #4, (R8) ;#4, TYPE_MSG ; CLRQ -(SP) ;-(SP) ; 2760 CLRL -(SP) ;-(SP) ; PUSHAB W^P.ADB ;P.ADB ; CALLS #4, (R8) ;#4, TYPE_MSG ; CASEL W^PARITY_TYPE, #0, #4 ;PARITY_TYPE, #0, #4 ; 2762 21$: .WORD 22$-21$,- ;22$-21$,- ; 25$-21$,- ;25$-21$,- ; 24$-21$,- ;24$-21$,- ; 23$-21$,- ;23$-21$,- ; 26$-21$ ;26$-21$ ; 22$: PUSHL #1 ;#1 ; 2766 CLRQ -(SP) ;-(SP) ; PUSHAB W^P.ADD ;P.ADD ; BRB 27$ ;27$ ; 23$: PUSHL #1 ;#1 ; 2769 CLRQ -(SP) ;-(SP) ; PUSHAB W^P.ADF ;P.ADF ; BRB 27$ ;27$ ; 24$: PUSHL #1 ;#1 ; 2772 CLRQ -(SP) ;-(SP) ; PUSHAB W^P.ADH ;P.ADH ; BRB 27$ ;27$ ; 25$: PUSHL #1 ;#1 ; 2775 CLRQ -(SP) ;-(SP) ; PUSHAB W^P.ADJ ;P.ADJ ; BRB 27$ ;27$ ; 26$: PUSHL #1 ;#1 ; 2778 CLRQ -(SP) ;-(SP) ; PUSHAB W^P.ADL ;P.ADL ; 27$: CALLS #4, (R8) ;#4, TYPE_MSG ; CLRQ -(SP) ;-(SP) ; 2781 CLRL -(SP) ;-(SP) ; PUSHAB W^P.ADN ;P.ADN ; CALLS #4, (R8) ;#4, TYPE_MSG ; TSTL -1228(R9) ;SESSION_OPEN ; 2783 BLEQ 29$ ;29$ ; CLRQ -(SP) ;-(SP) ; 2786 CLRL -(SP) ;-(SP) ; PUSHAB W^SESSION_DESC ;SESSION_DESC ; CALLS #4, (R8) ;#4, TYPE_MSG ; BLBC -1224(R9), 28$ ;SESSION_LOGGING, 28$ ; 2788 PUSHL #1 ;#1 ; 2790 PUSHL #1 ;#1 ; CLRL -(SP) ;-(SP) ; PUSHAB W^P.ADP ;P.ADP ; BRB 30$ ;30$ ; 28$: PUSHL #1 ;#1 ; 2792 PUSHL #1 ;#1 ; CLRL -(SP) ;-(SP) ; PUSHAB W^P.ADR ;P.ADR ; BRB 30$ ;30$ ; 29$: PUSHL #1 ;#1 ; 2796 PUSHL #1 ;#1 ; CLRL -(SP) ;-(SP) ; PUSHAB W^P.ADT ;P.ADT ; 30$: BRW 6$ ;6$ ; 31$: CMPZV #0, #8, (R6), (R10) ;#0, #8, (ESC_PTR), ESCAPE_CHR ; 2801 BNEQ 32$ ;32$ ; MOVB (R10), (R6) ;ESCAPE_CHR, (ESC_PTR) ; 2802 BRB 35$ ;35$ ; 2684 32$: CMPB (R6), #48 ;(ESC_PTR), #48 ; 2804 BNEQ 33$ ;33$ ; CLRB (R6) ;(ESC_PTR) ; 2805 BRB 35$ ;35$ ; 2684 33$: PUSHL #1 ;#1 ; 2809 PUSHAB W^P.ADV ;P.ADV ; PUSHL #1 ;#1 ; CALLS #3, -279(R8) ;#3, STORE_INPUT ; 34$: MOVL #1, R2 ;#1, EAT_CHR ; 2810 35$: TSTL R2 ;EAT_CHR ; 2814 BLEQ 36$ ;36$ ; SUBL3 R2, (R9), R0 ;EAT_CHR, NUM_CHR_IN, R0 ; 2817 MOVL R0, (R9) ;R0, NUM_CHR_IN ; CMPL R0, R7 ;R0, INDEX ; BEQL 36$ ;36$ ; SUBL3 R7, (R9), R0 ;INDEX, NUM_CHR_IN, R0 ; 2819 MOVC3 R0, (R2)[R6], (R6) ;R0, (EAT_CHR)[ESC_PTR], (ESC_PTR) ; 2820 36$: CLRL R0 ;R0 ; 2823 RET ; ; ; Routine Size: 657 bytes, Routine Base: $CODE$ + 0D98 ;MYTINP U.94: .WORD ^M ;Save R2,R3,R4,R5 ; 2593 MOVAB G^SYS$SETEF, R5 ;SYS$SETEF, R5 ; MOVAB G^SYS$READEF, R4 ;SYS$READEF, R4 ; MOVAB W^U.95, R3 ;U.95, R3 ; PUSHAB -4(R3) ;STATE ; 2827 PUSHL #5 ;#5 ; CALLS #2, (R4) ;#2, SYS$READEF ; MOVL R0, (R3) ;R0, STATUS ; CMPL R0, #1 ;R0, #1 ; BEQL 1$ ;1$ ; BRW 8$ ;8$ ; 1$: MOVL 4(AP), R2 ;INP_BUFNUM, R2 ; 2829 PUSHAQ -606(R3)[R2] ;IN_IOSB+2[R2] ; MOVZWL @(SP)+, R0 ;@(SP)+, R0 ; PUSHAQ -602(R3)[R2] ;IN_IOSB+6[R2] ; MOVZWL @(SP)+, R1 ;@(SP)+, R1 ; ADDL3 R1, R0, 4(R3) ;R1, R0, NUM_CHR_IN ; BEQL 3$ ;3$ ; 2831 PUSHL R2 ;R2 ; 2834 CALLS #1, W^U.97 ;#1, U.97 ; BLBC R0, 2$ ;R0, 2$ ; CLRQ -(SP) ;-(SP) ; 2837 CALLS #2, G^SYS$CANTIM ;#2, SYS$CANTIM ; PUSHL #5 ;#5 ; 2838 CALLS #1, (R5) ;#1, SYS$SETEF ; MOVL #1, R0 ;#1, R0 ; 2839 RET ; ; 2$: PUSHL 4(R3) ;NUM_CHR_IN ; 2842 MULL3 #25, R2, R0 ;#25, R2, R0 ; PUSHAB -576(R3)[R0] ;INP_BUF[R0] ; CLRL -(SP) ;-(SP) ; CALLS #3, W^U.93 ;#3, U.93 ; 3$: PUSHAB -4(R3) ;STATE ; 2846 PUSHL #5 ;#5 ; CALLS #2, (R4) ;#2, SYS$READEF ; MOVL R0, (R3) ;R0, STATUS ; CMPL R0, #1 ;R0, #1 ; BNEQ 7$ ;7$ ; MULL3 #25, R2, R0 ;#25, R2, R0 ; 2857 MOVAB -576(R3)[R0], R1 ;INP_BUF[R0], R1 ; MOVAQ -608(R3)[R2], R0 ;IN_IOSB[R2], R0 ; TSTL 4(R3) ;NUM_CHR_IN ; 2852 BGTR 4$ ;4$ ; TSTL R2 ;R2 ; BEQL 5$ ;5$ ; 4$: CLRQ -(SP) ;-(SP) ; 2857 CLRQ -(SP) ;-(SP) ; PUSHL #25 ;#25 ; PUSHL R1 ;R1 ; PUSHL R2 ;R2 ; PUSHAB W^U.94 ;U.94 ; PUSHL R0 ;R0 ; BISL3 #128, -44(R3), -(SP) ;#128, MYT_QIO_FUNC, -(SP) ; BRB 6$ ;6$ ; 5$: CLRQ -(SP) ;-(SP) ; 2861 CLRQ -(SP) ;-(SP) ; PUSHL #1 ;#1 ; PUSHL R1 ;R1 ; PUSHL R2 ;R2 ; PUSHAB W^U.94 ;U.94 ; PUSHL R0 ;R0 ; PUSHL -44(R3) ;MYT_QIO_FUNC ; 6$: PUSHL -620(R3) ;MYT_CHAN ; CLRL -(SP) ;-(SP) ; CALLS #12, G^SYS$QIO ;#12, SYS$QIO ; MOVL R0, (R3) ;R0, STATUS ; 7$: BLBS (R3), 8$ ;STATUS, 8$ ; 2863 PUSHL (R3) ;STATUS ; 2866 CALLS #1, G^LIB$SIGNAL ;#1, LIB$SIGNAL ; PUSHL #5 ;#5 ; 2867 CALLS #1, (R5) ;#1, SYS$SETEF ; 8$: MOVL (R3), R0 ;STATUS, R0 ; 2870 RET ; ; 2871 ; Routine Size: 238 bytes, Routine Base: $CODE$ + 1029 ;TRMINP U.104: .WORD ^M ;Save R2,R3,R4,R5 ; 2873 MOVAB G^SYS$READEF, R5 ;SYS$READEF, R5 ; PUSHAB W^U.79 ;U.79 ; 2887 PUSHL #5 ;#5 ; CALLS #2, (R5) ;#2, SYS$READEF ; MOVL R0, R4 ;R0, STATUS ; CMPL R4, #1 ;STATUS, #1 ; BEQL 1$ ;1$ ; BRW 7$ ;7$ ; 1$: MOVL 4(AP), R2 ;INP_BUFNUM, R2 ; 2889 PUSHAQ W^U.68+18[R2] ;U.68+18[R2] ; MOVZWL @(SP)+, R3 ;@(SP)+, NUM_CHR_IN ; PUSHAQ W^U.68+22[R2] ;U.68+22[R2] ; MOVZWL @(SP)+, R0 ;@(SP)+, R0 ; ADDL2 R0, R3 ;R0, NUM_CHR_IN ; BEQL 2$ ;2$ ; 2891 PUSHL R3 ;NUM_CHR_IN ; 2894 MULL3 #25, R2, R0 ;#25, R2, R0 ; 2893 PUSHAB W^U.69+51[R0] ;U.69+51[R0] ; PUSHL #1 ;#1 ; CALLS #3, W^U.93 ;#3, U.93 ; 2$: PUSHAB W^U.79 ;U.79 ; 2896 PUSHL #5 ;#5 ; CALLS #2, (R5) ;#2, SYS$READEF ; MOVL R0, R4 ;R0, STATUS ; CMPL R4, #1 ;STATUS, #1 ; BNEQ 6$ ;6$ ; MULL3 #25, R2, R0 ;#25, R2, R0 ; 2910 MOVAB W^U.69+51[R0], R1 ;U.69+51[R0], R1 ; MOVAQ W^U.68+16[R2], R0 ;U.68+16[R2], R0 ; TSTL R3 ;NUM_CHR_IN ; 2904 BGTR 3$ ;3$ ; TSTL R2 ;R2 ; BEQL 4$ ;4$ ; 3$: CLRQ -(SP) ;-(SP) ; 2910 CLRQ -(SP) ;-(SP) ; PUSHL #25 ;#25 ; PUSHL R1 ;R1 ; PUSHL R2 ;R2 ; PUSHAB B^U.104 ;U.104 ; PUSHL R0 ;R0 ; MOVZBL #250, -(SP) ;#250, -(SP) ; BRB 5$ ;5$ ; 4$: CLRQ -(SP) ;-(SP) ; 2915 CLRQ -(SP) ;-(SP) ; PUSHL #1 ;#1 ; PUSHL R1 ;R1 ; PUSHL R2 ;R2 ; PUSHAB W^U.104 ;U.104 ; PUSHL R0 ;R0 ; MOVZBL #122, -(SP) ;#122, -(SP) ; 5$: PUSHL W^U.4 ;U.4 ; CLRL -(SP) ;-(SP) ; CALLS #12, G^SYS$QIO ;#12, SYS$QIO ; MOVL R0, R4 ;R0, STATUS ; 6$: BLBS R4, 7$ ;STATUS, 7$ ; 2917 PUSHL R4 ;STATUS ; 2920 CALLS #1, G^LIB$SIGNAL ;#1, LIB$SIGNAL ; PUSHL #5 ;#5 ; 2921 CALLS #1, G^SYS$SETEF ;#1, SYS$SETEF ; 7$: MOVL R4, R0 ;STATUS, R0 ; 2924 RET ; ; 2925 ; Routine Size: 195 bytes, Routine Base: $CODE$ + 1117 .PSECT $PLIT$,NOWRT,NOEXE,2 .BLKB 3 P.ADX: .ASCII \^@ or control-space on VT-100\<0><0><0> ; ; P.ADW: .LONG 17694749 ; ; .ADDRESS P.ADX ; ; P.ADZ: .ASCII \^^ or ^~ on VT-100\<0><0> ; ; P.ADY: .LONG 17694738 ; ; .ADDRESS P.ADZ ; ; P.AEB: .ASCII \^_ or ^? on VT-100\<0><0> ; ; P.AEA: .LONG 17694738 ; ; .ADDRESS P.AEB ; ; U.107= P.ADW U.109= P.ADY U.111= P.AEA .PSECT $CODE$,NOWRT,2 ;ESC_MSG U.105: .WORD ^M ;Save R2,R3,R4,R5,R6,R7 ; 2927 MOVAB W^U.107, R7 ;U.107, R7 ; MOVL W^ESCAPE_CHR, R6 ;ESCAPE_CHR, R6 ; 2933 BNEQ 1$ ;1$ ; 2936 MOVC3 (R7), @4(R7), @4(AP) ;NUL_TXT, @NUL_TXT+4, @ESC_TEXT ; 2946 MOVZWL (R7), R0 ;NUL_TXT, R0 ; 2947 RET ; ; 1$: CMPL R6, #30 ;R6, #30 ; 2950 BNEQ 2$ ;2$ ; MOVC3 28(R7), @32(R7), @4(AP) ;RS_TXT, @RS_TXT+4, @ESC_TEXT ; 2960 MOVZWL 28(R7), R0 ;RS_TXT, R0 ; 2961 RET ; ; 2$: CMPL R6, #31 ;R6, #31 ; 2964 BNEQ 3$ ;3$ ; MOVC3 56(R7), @60(R7), @4(AP) ;US_TXT, @US_TXT+4, @ESC_TEXT ; 2974 MOVZWL 56(R7), R0 ;US_TXT, R0 ; 2975 RET ; ; 3$: TSTL R6 ;R6 ; 2978 BLEQ 4$ ;4$ ; CMPL R6, #31 ;R6, #31 ; BGTR 4$ ;4$ ; MOVL 4(AP), R0 ;ESC_TEXT, R0 ; 2980 MOVB #94, (R0) ;#94, (R0) ; ADDB3 #64, R6, 1(R0) ;#64, R6, 1(R0) ; 2981 MOVL #2, R0 ;#2, R0 ; 2982 RET ; ; 4$: CMPL R6, #127 ;R6, #127 ; 2985 BNEQ 5$ ;5$ ; MOVL #4998468, 4(AP) ;#4998468, ESC_TEXT ; 2987 MOVL #3, R0 ;#3, R0 ; 2988 RET ; ; 5$: CLRL R0 ;R0 ; 2992 RET ; ; 2993 ; Routine Size: 109 bytes, Routine Base: $CODE$ + 11DA .PSECT $PLIT$,NOWRT,NOEXE,2 P.AEC: .BYTE 91 ; ; .BLKB 3 P.AEE: .BLKB 0 ; ; P.AED: .LONG 17694720 ; ; .ADDRESS P.AEE ; ; P.AEG: .BLKB 0 ; ; P.AEF: .LONG 17694720 ; ; .ADDRESS P.AEG ; ; P.AEH: .BYTE 91 ; ; .BLKB 3 P.AEJ: .BLKB 0 ; ; P.AEI: .LONG 17694720 ; ; .ADDRESS P.AEJ ; ; .EXTRN SYS$BINTIM, SYS$SETAST, SYS$WFLAND .PSECT $CODE$,NOWRT,2 .ENTRY TERM_CONNECT, ^M ; ; MOVAB -92(SP), SP ;-92(SP), SP ; CLRQ W^U.66 ;U.66 ; 2996 CLRW W^U.73 ;U.73 ; 2999 MOVW #769, W^U.74 ;#769, U.74 ; 3001 MOVZBL W^U.73, R0 ;U.73, R0 ; 3003 MULL2 #80, R0 ;#80, R0 ; MOVAB W^U.72[R0], W^U.75 ;U.72[R0], U.75 ; MOVZBL W^U.73+1, R0 ;U.73+1, R0 ; 3004 MULL2 #80, R0 ;#80, R0 ; MOVAB W^U.72+161[R0], W^U.75+4 ;U.72+161[R0], U.75+4 ; PUSHAB W^U.64 ;U.64 ; 3005 PUSHAB W^U.88 ;U.88 ; CALLS #2, G^SYS$BINTIM ;#2, SYS$BINTIM ; PUSHAB W^U.78 ;U.78 ; 3009 CALLS #1, W^U.105 ;#1, U.105 ; MOVL R0, W^U.77 ;R0, U.77 ; MOVW #270, 6(SP) ;#270, CON_MSG_DESC+2 ; 3011 MOVAB 12(SP), 8(SP) ;CON_MSG, CON_MSG_DESC+4 ; 3012 MOVZWL W^NODE_DESC, R0 ;NODE_DESC, R0 ; 3013 MOVZWL W^U.80, R1 ;U.80, R1 ; ADDL2 R1, R0 ;R1, R0 ; MOVZWL W^TERM_DESC, R10 ;TERM_DESC, R10 ; 3014 ADDL2 R10, R0 ;R10, R0 ; 3013 MOVZWL W^U.81, R9 ;U.81, R9 ; 3014 ADDL2 R9, R0 ;R9, R0 ; ADDL2 W^U.77, R0 ;U.77, R0 ; MOVZWL W^U.82, R6 ;U.82, R6 ; MOVAB 1(R6)[R0], R1 ;1(R6)[R0], R1 ; MOVW R1, 4(SP) ;R1, CON_MSG_DESC ; MOVZWL W^NODE_DESC, (SP) ;NODE_DESC, (SP) ; 3016 MOVZWL W^U.80, R11 ;U.80, R11 ; 3017 MOVZWL 4(SP), R8 ;CON_MSG_DESC, R8 ; 3022 MOVAB 12(SP), R7 ;CON_MSG, R7 ; MOVC5 #1, W^P.AEC, #0, R8, (R7) ;#1, P.AEC, #0, R8, (R7) ; BGEQ 1$ ;1$ ; INCL R7 ;R7 ; DECL R8 ;R8 ; MOVC5 (SP), @W^NODE_DESC+4, #0, R8, (R7) ;(SP), @NODE_DESC+4, #0, R8, (R7) ; BGEQ 1$ ;1$ ; ADDL2 (SP), R7 ;(SP), R7 ; SUBL2 (SP), R8 ;(SP), R8 ; MOVC5 R11, @W^U.80+4, #0, R8, (R7) ;R11, @U.80+4, #0, R8, (R7) ; BGEQ 1$ ;1$ ; ADDL2 R11, R7 ;R11, R7 ; SUBL2 R11, R8 ;R11, R8 ; MOVC5 R10, @W^TERM_DESC+4, #0, R8, (R7) ;R10, @TERM_DESC+4, #0, R8, (R7) ; BGEQ 1$ ;1$ ; ADDL2 R10, R7 ;R10, R7 ; SUBL2 R10, R8 ;R10, R8 ; MOVC5 R9, @W^U.81+4, #0, R8, (R7) ;R9, @U.81+4, #0, R8, (R7) ; BGEQ 1$ ;1$ ; ADDL2 R9, R7 ;R9, R7 ; SUBL2 R9, R8 ;R9, R8 ; MOVC5 W^U.77, W^U.78, #0, R8, (R7) ;U.77, U.78, #0, R8, (R7) ; BGEQ 1$ ;1$ ; ADDL2 W^U.77, R7 ;U.77, R7 ; SUBL2 W^U.77, R8 ;U.77, R8 ; MOVC5 R6, @W^U.82+4, #0, R8, (R7) ;R6, @U.82+4, #0, R8, (R7) ; 1$: CALLS #0, W^TERM_OPEN ;#0, TERM_OPEN ; 3026 MOVL R0, R8 ;R0, STATUS ; BLBC W^CONNECT_FLAG, 2$ ;CONNECT_FLAG, 2$ ; 3028 CALLS #0, W^TERM_CLOSE ;#0, TERM_CLOSE ; 3031 PUSHL #134316274 ;#134316274 ; 3032 CALLS #1, G^LIB$SIGNAL ;#1, LIB$SIGNAL ; MOVL #134316274, R0 ;#134316274, R0 ; 3033 RET ; ; 2$: BLBC R8, 4$ ;STATUS, 4$ ; 3036 BLBS W^U.7, 3$ ;U.7, 3$ ; 3043 CALLS #0, W^TERM_CLOSE ;#0, TERM_CLOSE ; 3046 PUSHL #134316242 ;#134316242 ; 3047 CALLS #1, G^LIB$SIGNAL ;#1, LIB$SIGNAL ; MOVL #134316242, R0 ;#134316242, R0 ; 3048 RET ; ; 3$: PUSHL W^U.4 ;U.4 ; 3051 CALLS #1, G^SYS$CANCEL ;#1, SYS$CANCEL ; MOVL R0, R8 ;R0, STATUS ; MOVQ W^U.4, W^U.65 ;U.4, U.65 ; 3052 PUSHL W^U.5 ;U.5 ; 3054 CALLS #1, G^SYS$CANCEL ;#1, SYS$CANCEL ; MOVL R0, R8 ;R0, STATUS ; BLBS R8, 5$ ;STATUS, 5$ ; 3057 CALLS #0, W^TERM_CLOSE ;#0, TERM_CLOSE ; 3060 4$: PUSHL R8 ;STATUS ; 3061 CALLS #1, G^LIB$SIGNAL ;#1, LIB$SIGNAL ; BRW 17$ ;17$ ; 3062 5$: CLRQ W^U.20 ;U.20 ; 3068 TSTW W^SESSION_DESC ;SESSION_DESC ; 3071 BEQL 6$ ;6$ ; PUSHAB W^U.18 ;U.18 ; 3074 PUSHAB W^U.17 ;U.17 ; PUSHAB W^SESSION_DESC ;SESSION_DESC ; CALLS #3, W^LOG_OPEN ;#3, LOG_OPEN ; MOVL R0, R8 ;R0, STATUS ; BLBC R8, 6$ ;STATUS, 6$ ; 3076 MOVL #1, W^U.20 ;#1, U.20 ; 3079 MOVL #1, W^U.21 ;#1, U.21 ; 3080 6$: PUSHL #5 ;#5 ; 3086 CALLS #1, G^SYS$CLREF ;#1, SYS$CLREF ; MOVL #1, R2 ;#1, FLAG ; 3088 7$: PUSHL R2 ;FLAG ; 3089 CALLS #1, G^SYS$SETEF ;#1, SYS$SETEF ; AOBLEQ #4, R2, 7$ ;#4, FLAG, 7$ ; MOVL #58, W^U.76 ;#58, U.76 ; 3095 BLBS W^ECHO_FLAG, 8$ ;ECHO_FLAG, 8$ ; 3097 BLBS W^IBM_FLAG, 8$ ;IBM_FLAG, 8$ ; MOVZBL #122, W^U.76 ;#122, U.76 ; 8$: PUSHAB W^P.AED ;P.AED ; 3103 CALLS #1, G^LIB$PUT_OUTPUT ;#1, LIB$PUT_OUTPUT ; PUSHAB 4(SP) ;CON_MSG_DESC ; 3104 CALLS #1, G^LIB$PUT_OUTPUT ;#1, LIB$PUT_OUTPUT ; PUSHAB W^P.AEF ;P.AEF ; 3105 CALLS #1, G^LIB$PUT_OUTPUT ;#1, LIB$PUT_OUTPUT ; CLRL -(SP) ;-(SP) ; 3106 CALLS #1, G^SYS$SETAST ;#1, SYS$SETAST ; CLRQ -(SP) ;-(SP) ; 3114 CLRQ -(SP) ;-(SP) ; PUSHL #1 ;#1 ; PUSHAB W^U.69 ;U.69 ; CLRL -(SP) ;-(SP) ; PUSHAB W^U.94 ;U.94 ; PUSHAB W^U.68 ;U.68 ; PUSHL W^U.76 ;U.76 ; PUSHL W^U.89 ;U.89 ; CLRL -(SP) ;-(SP) ; CALLS #12, G^SYS$QIO ;#12, SYS$QIO ; MOVL R0, R8 ;R0, STATUS ; BLBC R8, 10$ ;STATUS, 10$ ; 3116 CLRQ -(SP) ;-(SP) ; 3119 CLRQ -(SP) ;-(SP) ; PUSHL #25 ;#25 ; PUSHAB W^U.69+51 ;U.69+51 ; CLRL -(SP) ;-(SP) ; PUSHAB W^U.104 ;U.104 ; PUSHAB W^U.68+16 ;U.68+16 ; MOVZBL #122, -(SP) ;#122, -(SP) ; PUSHL W^U.4 ;U.4 ; CLRL -(SP) ;-(SP) ; CALLS #12, G^SYS$QIO ;#12, SYS$QIO ; MOVL R0, R8 ;R0, STATUS ; BLBC R8, 11$ ;STATUS, 11$ ; 3121 MOVL #1, R2 ;#1, INP_BUFNUM ; 3123 9$: CLRQ -(SP) ;-(SP) ; 3129 CLRQ -(SP) ;-(SP) ; PUSHL #25 ;#25 ; MULL3 #25, R2, R3 ;#25, INP_BUFNUM, R3 ; PUSHAB W^U.69[R3] ;U.69[R3] ; PUSHL R2 ;INP_BUFNUM ; PUSHAB W^U.94 ;U.94 ; PUSHAQ W^U.68[R2] ;U.68[INP_BUFNUM] ; BISL3 #128, W^U.76, -(SP) ;#128, U.76, -(SP) ; PUSHL W^U.89 ;U.89 ; CLRL -(SP) ;-(SP) ; CALLS #12, G^SYS$QIO ;#12, SYS$QIO ; MOVL R0, R8 ;R0, STATUS ; 10$: BLBC R8, 11$ ;STATUS, 11$ ; 3131 CLRQ -(SP) ;-(SP) ; 3135 CLRQ -(SP) ;-(SP) ; PUSHL #25 ;#25 ; PUSHAB W^U.69+51[R3] ;U.69+51[R3] ; PUSHL R2 ;INP_BUFNUM ; PUSHAB W^U.104 ;U.104 ; PUSHAQ W^U.68+16[R2] ;U.68+16[INP_BUFNUM] ; MOVZBL #250, -(SP) ;#250, -(SP) ; PUSHL W^U.4 ;U.4 ; CLRL -(SP) ;-(SP) ; CALLS #12, G^SYS$QIO ;#12, SYS$QIO ; MOVL R0, R8 ;R0, STATUS ; 11$: BLBS R8, 12$ ;STATUS, 12$ ; 3137 BRW 14$ ;14$ ; 12$: AOBLEQ #1, R2, 9$ ;#1, INP_BUFNUM, 9$ ; 3123 PUSHL #1 ;#1 ; 3141 CALLS #1, G^SYS$SETAST ;#1, SYS$SETAST ; PUSHL #5 ;#5 ; 3142 CALLS #1, G^SYS$WAITFR ;#1, SYS$WAITFR ; PUSHL #30 ;#30 ; 3143 CLRL -(SP) ;-(SP) ; CALLS #2, G^SYS$WFLAND ;#2, SYS$WFLAND ; MOVZWL W^NODE_DESC, R0 ;NODE_DESC, R0 ; 3144 MOVZWL W^U.83, R1 ;U.83, R1 ; ADDL2 R1, R0 ;R1, R0 ; ADDW3 #1, R0, 4(SP) ;#1, R0, CON_MSG_DESC ; MOVZWL W^NODE_DESC, R10 ;NODE_DESC, R10 ; 3145 MOVZWL W^U.83, R9 ;U.83, R9 ; 3146 MOVZWL 4(SP), R7 ;CON_MSG_DESC, R7 ; 3147 MOVL 8(SP), R6 ;CON_MSG_DESC+4, R6 ; 3148 MOVC5 #1, W^P.AEH, #0, R7, (R6) ;#1, P.AEH, #0, R7, (R6) ; BGEQ 13$ ;13$ ; INCL R6 ;R6 ; DECL R7 ;R7 ; MOVC5 R10, @W^NODE_DESC+4, #0, R7, (R6) ;R10, @NODE_DESC+4, #0, R7, (R6) ; BGEQ 13$ ;13$ ; ADDL2 R10, R6 ;R10, R6 ; SUBL2 R10, R7 ;R10, R7 ; MOVC5 R9, @W^U.83+4, #0, R7, (R6) ;R9, @U.83+4, #0, R7, (R6) ; 13$: PUSHAB 4(SP) ;CON_MSG_DESC ; 3149 CALLS #1, G^LIB$PUT_OUTPUT ;#1, LIB$PUT_OUTPUT ; PUSHAB W^P.AEI ;P.AEI ; 3150 CALLS #1, G^LIB$PUT_OUTPUT ;#1, LIB$PUT_OUTPUT ; 14$: CLRQ -(SP) ;-(SP) ; 3155 CALLS #2, G^SYS$CANTIM ;#2, SYS$CANTIM ; BLBC W^U.20, 15$ ;U.20, 15$ ; 3160 PUSHAB W^U.18 ;U.18 ; PUSHAB W^U.17 ;U.17 ; CALLS #2, W^LOG_CLOSE ;#2, LOG_CLOSE ; 15$: CLRL W^U.20 ;U.20 ; 3162 CALLS #0, W^TERM_CLOSE ;#0, TERM_CLOSE ; 3166 MOVL R0, R8 ;R0, STATUS ; BLBS R8, 16$ ;STATUS, 16$ ; 3168 PUSHL R8 ;STATUS ; CALLS #1, G^LIB$SIGNAL ;#1, LIB$SIGNAL ; 16$: PUSHL #1 ;#1 ; 3170 CALLS #1, G^SYS$SETAST ;#1, SYS$SETAST ; 17$: MOVL R8, R0 ;STATUS, R0 ; 3171 RET ; ; 3172 ; Routine Size: 917 bytes, Routine Base: $CODE$ + 1247 ; PSECT SUMMARY ; ; Name Bytes Attributes ; ; $OWN$ 1600 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) ; $GLOBAL$ 44 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) ; $PLIT$ 1344 NOVEC,NOWRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) ; $CODE$ 5596 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 63 0 581 00:01.0 ; COMMAND QUALIFIERS ; BLISS/LIST=KERTRM.MAR/SOURCE_LIST=(NOHEADER,NOSOURCE)/MACHINE_CODE_LIST=(ASSEMBLER,NOBINARY,UNIQUE_NAMES) KERTRM.BLI ; Compilation Complete .END