.TITLE STATISTICS DUMP/REINIT ROUTINE .ENABLE DEBUG .SUBTITLE IMPURE DATA STORAGE AREA .PSECT IMPURE_DATA,RD,WRT,NOSHR,GBL,CON,LONG,NOEXE,NOPIC STRING: .WORD 0,0 .ADDRESS LINE LINE: .BLKB 132 .PAGE DESCRIPTER: .LONG 0,0 LOCAL_COUNTER: ;V2.15 .LONG 0 ;V2.15 .SUBTITLE PURE DATA STORAGE AREA .PSECT PURE_DATA,RD,NOWRT,SHR,GBL,CON,NOEXE,NOPIC CODE_1: .LONG 1 CODE_2: .LONG 2 CODE_3: .LONG 3 BLANK_LINE_ARG: .LONG 1 .ADDRESS BLANK_LINE BLANK_LINE: .ASCID / / LINE_ARG: .LONG 1 .ADDRESS STRING TITLE_1_ARG: .LONG 1 .ADDRESS TITLE_1 TITLE_1: .ASCID - ?This module Clock time CPU time Buf. I/O Dir. I/O P. F.?;V1.27 TITLE_2_ARG: .LONG 1 .ADDRESS TITLE_2 TITLE_2: .ASCID / Allocated In use Total assigns/ ;V1.27 TITLE_3_ARG: ;V1.22 .LONG 1 ;V1.22 .ADDRESS TITLE_3 ;V1.22 TITLE_3: ;V1.22 .ASCID - ;V1.22 ?Accumulated Clock time CPU time Buf. I/O Dir. I/O P. F.?;V1.27 TITLE_4_ARG: ;V1.27 .LONG 1 ;V1.27 .ADDRESS TITLE_4 ;V1.27 TITLE_4: ;V1.27 .ASCID - ;V1.27 ? This module Total? ;V1.27 TITLE_0:.ASCII /Command input / ;V1.27 TITLE_A:.ASCII /Command processing / ;V1.27 TITLE_B:.ASCII ?Parse/Symbol table build ? ;V1.27 TITLE_C:.ASCII /Output symbol table / ;V1.27 TITLE_D:.ASCII /Clean up / ;V1.27 TITLE_E:.ASCII /Total / ;V1.27 TITLE_F:.ASCII /Symbols processed / ;V1.27 TITLE_G:.ASCII /How used processed / ;V1.27 TITLE_H:.ASCII /Symbols to SUPER scratch / ;V1.27 TITLE_I:.ASCII /Symbols to E.P. scratch / ;V1.27 TITLE_J:.ASCII / 64 Byte elements / ;V1.27 TITLE_K:.ASCII /128 Byte elements / ;V1.27 TITLE_L:.ASCII /192 Byte elements / ;V1.27 TITLE_M:.ASCII /256 Byte elements / ;V1.27 TITLE_AF:.ASCII /320 Byte elements / ;V2.17 TITLE_N:.ASCII /Longer elements / ;V1.27 TITLE_O:.ASCII /Requests for more VM / ;V1.27 TITLE_P:.ASCII /Requests to free VM / ;V1.27 TITLE_Q:.ASCII /Bytes of VM still allocated / ;V1.27 TITLE_R:.ASCII /Source lines input / ;V1.27 TITLE_S:.ASCII /Continuation lines input / ;V1.27 TITLE_T:.ASCII /Comment lines input / ;V1.27 TITLE_U:.ASCII /Lines output / ;V1.27 TITLE_V:.ASCII /Pages output / ;V1.27 TITLE_W:.ASCII /Build Flow Chart / ;V2.00 TITLE_X:.ASCII /Symbols to CHART scratch / ;V2.00 TITLE_Y:.ASCII /Output Flow Chart / ;V2.00 TITLE_Z:.ASCII /Clean up Flow Chart / ;V2.00 TITLE_AA: ;V2.01 .ASCII /Flow Chart Labels / ;V2.01 TITLE_AB: ;V2.01 .ASCII /Flow Chart Label Extentions / ;V2.01 TITLE_AC: ;V2.01 .ASCII /Flow Chart Vars / ;V2.01 TITLE_AD: ;V2.01 .ASCII /Flow Chart Var Extentions / ;V2.01 TITLE_AE: ;V2.01 .ASCII /Flow Chart Program Elements / ;V2.01 TITLE_AG: ;V3.00 .ASCII /Structure Elements Processed/ ;V3.00 LINE_2: .ASCID /Arithmetic/ ;V2.15 LINE_5: .ASCID ?BYTE/INTEGER*1? ;V2.15 LINE_6: .ASCID ?BYTE/INTEGER*1 FUNCTION? ;V2.15 LINE_24:.ASCID ?DOUBLE PRECISION/REAL*8? ;V2.15 LINE_25:.ASCID ?DOUBLE PRECISION/REAL*8 FUNCTION? ;V2.15 LINE_26:.ASCID ?DOUBLE COMPLEX/COMPLEX*16? ;V2.15 LINE_27:.ASCID ?DOUBLE COMPLEX/COMPLEX*16 FUNCTION? ;V2.15 LINE_37:.ASCID ?Error/Unknown Line Type? ;V2.15 LINE_45:.ASCID /IMPLICIT NONE/ ;V2.15 LINE_63:.ASCID /REAL*16(QUAD)/ ;V2.15 LINE_64:.ASCID /REAL*16(QUAD) FUNCTION/ ;V2.15 LINE_981:.ASCID /%FILL/ ;V3.00 LINE_982:.ASCID /%LOC/ ;V2.15 LINE_983:.ASCID /%DESCR/ ;V2.15 LINE_984:.ASCID /%REF/ ;V2.15 LINE_985:.ASCID /%VAL/ ;V2.15 LINE_986:.ASCID /U in DEFINE FILE/ ;V2.15 LINE_987:.ASCID /Hex Number/ ;V2.15 LINE_988:.ASCID /Octal Number/ ;V2.15 LINE_989:.ASCID /RAD50 String/ ;V2.15 LINE_990:.ASCID /Unknown Character/ ;V2.15 LINE_991:.ASCID /Quoted String/ ;V2.15 LINE_992:.ASCID /HOLLERITH String/ ;V2.15 LINE_993:.ASCID ?Number? ;V2.15 LINE_994:.ASCID /Label/ ;V2.15 LINE_995:.ASCID /End of Line/ ;V2.15 LINE_996:.ASCID /TO/ ;V2.15 LINE_997:.ASCID /THEN/ ;V2.15 LINE_998:.ASCID /WHILE/ ;V2.15 LINE_999:.ASCID /Identifier/ ;V2.15 LINE_0: .ASCID /Arithmetic/ ;V2.15 LINE_M1: .ASCID /Error/ ;V2.15 TITLE_5_ARG: ;V2.15 .LONG 1 ;V2.15 .ADDRESS TITLE_5 ;V2.15 TITLE_5:.ASCID ? ?- ;V2.15 ?FORTRAN Line Types This Module/Accumulated? ;V2.15 TITLE_6_ARG: ;V2.15 .LONG 1 ;V2.15 .ADDRESS TITLE_6 ;V2.15 TITLE_6:.ASCID ? ?- ;V2.15 ?Initial Key Word Tokens This Module/Accumulated? ;V2.15 TITLE_7_ARG: ;V2.15 .LONG 1 ;V2.15 .ADDRESS TITLE_7 ;V2.15 TITLE_7:.ASCID ? ?- ;V2.15 ?Other Misc. Tokens This Module/Accumulated? ;V2.15 TITLE_8_ARG: ;V2.15 .LONG 1 ;V2.15 .ADDRESS TITLE_8 ;V2.15 TITLE_8:.ASCID ? ?- ;V2.15 ?Multi-Character Tokens This Module/Accumulated? ;V2.15 TITLE_9_ARG: ;V2.15 .LONG 1 ;V2.15 .ADDRESS TITLE_9 ;V2.15 TITLE_9:.ASCID ? ?- ;V2.15 ?Single-Character Tokens This Module/Accumulated? ;V2.15 TITLE_10_ARG: ;V2.15 .LONG 1 ;V2.15 .ADDRESS TITLE_10 ;V2.15 TITLE_10:.ASCID ? ?- ;V2.15 ?Logical Tokens This Module/Accumulated? ;V2.15 TITLE_11_ARG: ;V2.15 .LONG 1 ;V2.15 .ADDRESS TITLE_11 ;V2.15 TITLE_11:.ASCID ? ?- ;V2.15 ?I/O Tokens This Module/Accumulated? ;V2.15 TITLE_12_ARG: ;V2.15 .LONG 1 ;V2.15 .ADDRESS TITLE_12 ;V2.15 TITLE_12:.ASCID ? ?- ;V2.15 ?Library Routine Names Tokens This Module/Accumulated? ;V2.15 .PAGE .PSECT CODE,RD,NOWRT,SHR,NOVEC,GBL,CON .ENTRY DUMP_STATS,^M CLRL LINES_ON_PAGE MOVL #STAT_OUTPUT,STATUS_WORD BITL #STATISTICS_FLAG,FLAG_WORD ;SEE IF OUTPUT WANTED ;V1.25 BEQL 3001$ ;V1.25 BITL #STAT_RUN_FLAG,FLAG_WORD+4 ;V3.15 BEQL 3001$ ;V3.15 CALLG BLANK_LINE_ARG,PRINT_LINE ;PRINT 2 BLANK LINES CALLG TITLE_1_ARG,PRINT_LINE ;TIME TITLE LINE 3001$: CLRQ TIME_TOTAL ;V1.25 ADDL2 TIME_INPUT,TIME_TOTAL ;V1.22 ADWC TIME_INPUT+4,TIME_TOTAL+4 ;V1.22 ADDL2 TIME_COMMAND,TIME_TOTAL ADWC TIME_COMMAND+4,TIME_TOTAL+4 ADDL2 TIME_PARSE,TIME_TOTAL ADWC TIME_PARSE+4,TIME_TOTAL+4 ADDL2 TIME_OUTPUT,TIME_TOTAL ADWC TIME_OUTPUT+4,TIME_TOTAL+4 ADDL2 TIME_CLEANUP,TIME_TOTAL ADWC TIME_CLEANUP+4,TIME_TOTAL+4 ADDL2 TIME_CHART,TIME_TOTAL ;V2.00 ADWC TIME_CHART+4,TIME_TOTAL+4 ;V2.00 ADDL2 TIME_CHART_OUT,TIME_TOTAL ;V2.00 ADWC TIME_CHART_OUT+4,TIME_TOTAL+4 ;V2.00 ADDL2 TIME_CHART_CLEAN,TIME_TOTAL ;V2.00 ADWC TIME_CHART_CLEAN+4,TIME_TOTAL+4 ;V2.00 ADDL3 TIME_COMMAND+8,TIME_PARSE+8,TIME_TOTAL+8 ADDL2 TIME_INPUT+8,TIME_TOTAL+8 ;V1.22 ADDL2 TIME_OUTPUT+8,TIME_TOTAL+8 ADDL2 TIME_CLEANUP+8,TIME_TOTAL+8 ADDL2 TIME_CHART+8,TIME_TOTAL+8 ;V2.00 ADDL2 TIME_CHART_OUT+8,TIME_TOTAL+8 ;V2.00 ADDL2 TIME_CHART_CLEAN+8,TIME_TOTAL+8 ;V2.00 ADDL3 TIME_COMMAND+12,TIME_PARSE+12,TIME_TOTAL+12 ADDL2 TIME_INPUT+12,TIME_TOTAL+12 ;V1.22 ADDL2 TIME_OUTPUT+12,TIME_TOTAL+12 ADDL2 TIME_CLEANUP+12,TIME_TOTAL+12 ADDL2 TIME_CHART+12,TIME_TOTAL+12 ;V2.00 ADDL2 TIME_CHART_OUT+12,TIME_TOTAL+12 ;V2.00 ADDL2 TIME_CHART_CLEAN+12,TIME_TOTAL+12 ;V2.00 ADDL3 TIME_COMMAND+16,TIME_PARSE+16,TIME_TOTAL+16 ADDL2 TIME_INPUT+16,TIME_TOTAL+16 ;V1.22 ADDL2 TIME_OUTPUT+16,TIME_TOTAL+16 ADDL2 TIME_CLEANUP+16,TIME_TOTAL+16 ADDL2 TIME_CHART+16,TIME_TOTAL+16 ;V2.00 ADDL2 TIME_CHART_OUT+16,TIME_TOTAL+16 ;V2.00 ADDL2 TIME_CHART_CLEAN+16,TIME_TOTAL+16 ;V2.00 ADDL3 TIME_COMMAND+20,TIME_PARSE+20,TIME_TOTAL+20 ADDL2 TIME_INPUT+20,TIME_TOTAL+20 ;V1.22 ADDL2 TIME_OUTPUT+20,TIME_TOTAL+20 ADDL2 TIME_CLEANUP+20,TIME_TOTAL+20 ADDL2 TIME_CHART+20,TIME_TOTAL+20 ;V2.00 ADDL2 TIME_CHART_OUT+20,TIME_TOTAL+20 ;V2.00 ADDL2 TIME_CHART_CLEAN+20,TIME_TOTAL+20 ;V2.00 .MACRO SUM_ACC T1,T2 ;V1.22 ADDL2 T1,T2 ;V1.22 ADWC T1+4,T2+4 ;V1.22 ADDL2 T1+8,T2+8 ;V1.22 ADDL2 T1+12,T2+12 ;V1.22 ADDL2 T1+16,T2+16 ;V1.22 ADDL2 T1+20,T2+20 ;V1.22 .ENDM ;V1.22 SUM_ACC TIME_INPUT,ACC_TIME_INPUT ;V1.22 SUM_ACC TIME_COMMAND,ACC_TIME_COMMAND ;V1.22 SUM_ACC TIME_PARSE,ACC_TIME_PARSE ;V1.22 SUM_ACC TIME_OUTPUT,ACC_TIME_OUTPUT ;V1.22 SUM_ACC TIME_CLEANUP,ACC_TIME_CLEANUP ;V1.22 SUM_ACC TIME_CHART,ACC_TIME_CHART ;V2.00 SUM_ACC TIME_CHART_OUT,ACC_TIME_CHART_OUT ;V2.00 SUM_ACC TIME_CHART_CLEAN,ACC_TIME_CHART_CLEAN ;V2.00 SUM_ACC TIME_TOTAL,ACC_TIME_TOTAL ;V1.22 .MACRO GEN_TIME_STAT TITLE,DATA_BLOCK,?AAAA ;V3.15 MOVC5 #0,NULL,#^A/ /,#132,LINE MOVL #78,STRING MOVAL LINE,STRING+4 MOVC3 #28,TITLE,LINE ;LOAD THE TITLE MOVL #11,DESCRIPTER MOVAB LINE+29,DESCRIPTER+4 $ASCTIM_S ,DESCRIPTER,DATA_BLOCK,CODE_1 ;ELAPSED TIME MOVL DATA_BLOCK+8,R0 CLRL R1 CLRQ DATA_BLOCK ASHQ #5,R0,R0 ADDL2 R0,DATA_BLOCK ADWC R1,DATA_BLOCK+4 ASHQ #2,R0,R0 ADDL2 R0,DATA_BLOCK ADWC R1,DATA_BLOCK+4 ASHQ #2,R0,R0 ADDL2 R0,DATA_BLOCK ADWC R1,DATA_BLOCK+4 ASHQ #1,R0,R0 ADDL2 R0,DATA_BLOCK ADWC R1,DATA_BLOCK+4 ASHQ #5,R0,R0 ADDL2 R0,DATA_BLOCK ADWC R1,DATA_BLOCK+4 ASHQ #1,R0,R0 ADDL2 R0,DATA_BLOCK ADWC R1,DATA_BLOCK+4 MOVAB LINE+41,DESCRIPTER+4 MOVL #11,DESCRIPTER $ASCTIM_S ,DESCRIPTER,DATA_BLOCK,CODE_1 ;CPU TIME MOVL #8,DESCRIPTER MOVAL LINE+53,DESCRIPTER+4 PUSHL #1 PUSHAL DESCRIPTER PUSHAL DATA_BLOCK+12 CALLS #3,G^OTS$CVT_L_TI MOVL #8,DESCRIPTER MOVAL LINE+62,DESCRIPTER+4 PUSHL #1 PUSHAL DESCRIPTER PUSHAL DATA_BLOCK+16 CALLS #3,G^OTS$CVT_L_TI MOVL #7,DESCRIPTER ;V1.27 MOVAL LINE+71,DESCRIPTER+4 PUSHL #1 PUSHAL DESCRIPTER PUSHAL DATA_BLOCK+20 CALLS #3,G^OTS$CVT_L_TI BITL #STATISTICS_FLAG,FLAG_WORD ;SEE IF OUTPUT WANTED ;V1.25 BEQL AAAA ;V1.25 BITL #STAT_RUN_FLAG,FLAG_WORD+4 ;V3.15 BEQL AAAA ;V3.15 CALLG LINE_ARG,PRINT_LINE AAAA: ;V1.25 .ENDM GEN_TIME_STAT TITLE_0,TIME_INPUT ;V1.22 GEN_TIME_STAT TITLE_A,TIME_COMMAND GEN_TIME_STAT TITLE_B,TIME_PARSE GEN_TIME_STAT TITLE_C,TIME_OUTPUT GEN_TIME_STAT TITLE_D,TIME_CLEANUP GEN_TIME_STAT TITLE_W,TIME_CHART ;V2.00 GEN_TIME_STAT TITLE_Y,TIME_CHART_OUT ;V2.00 GEN_TIME_STAT TITLE_Z,TIME_CHART_CLEAN ;V2.00 GEN_TIME_STAT TITLE_E,TIME_TOTAL BITL #STATISTICS_FLAG,FLAG_WORD ;SEE IF OUTPUT WANTED ;V1.25 BEQL 3002$ ;V1.25 BITL #STAT_RUN_FLAG,FLAG_WORD+4 ;V3.15 BEQL 3002$ ;V3.15 CALLG BLANK_LINE_ARG,PRINT_LINE ;V1.22 CALLG TITLE_3_ARG,PRINT_LINE ;TIME TITLE LINE ;V1.22 3002$: ;V1.25 GEN_TIME_STAT TITLE_0,ACC_TIME_INPUT ;V1.22 GEN_TIME_STAT TITLE_A,ACC_TIME_COMMAND ;V1.22 GEN_TIME_STAT TITLE_B,ACC_TIME_PARSE ;V1.22 GEN_TIME_STAT TITLE_C,ACC_TIME_OUTPUT ;V1.22 GEN_TIME_STAT TITLE_D,ACC_TIME_CLEANUP ;V1.22 GEN_TIME_STAT TITLE_W,ACC_TIME_CHART ;V2.00 GEN_TIME_STAT TITLE_Y,ACC_TIME_CHART_OUT ;V2.00 GEN_TIME_STAT TITLE_Z,ACC_TIME_CHART_CLEAN ;V2.00 GEN_TIME_STAT TITLE_E,ACC_TIME_TOTAL ;V1.22 BITL #STATISTICS_FLAG,FLAG_WORD ;SEE IF OUTPUT WANTED ;V1.25 BEQL 3003$ ;V1.25 BITL #STAT_RUN_FLAG,FLAG_WORD+4 ;V3.15 BEQL 3003$ ;V3.15 CALLG BLANK_LINE_ARG,PRINT_LINE CALLG TITLE_4_ARG,PRINT_LINE ;V1.27 3003$: ;V1.25 .MACRO SYMBOL_STAT TITLE,DATA,DATA2,?AAAA ;V1.25 .IF NB,DATA2 ;V1.22 ADDL2 DATA,DATA2 ;V1.22 .ENDC ;V1.22 MOVC5 #0,NULL,#^A/ /,#132,LINE .IF NB,DATA2 ;V1.22 MOVL #50,STRING ;V1.22 .IFF ;V1.22 MOVL #39,STRING ;V1.22 .ENDC ;V1.22 MOVAL LINE,STRING+4 MOVC3 #28,TITLE,LINE ;LOAD THE TITLE PUSHL #1 MOVL #10,DESCRIPTER MOVAL LINE+29,DESCRIPTER+4 PUSHAL DESCRIPTER PUSHAL DATA CALLS #3,G^OTS$CVT_L_TI .IF NB,DATA2 ;V1.22 MOVB #^A?/?,LINE+39 ;V1.22 MOVL #10,DESCRIPTER ;V1.22 MOVAL LINE+40,DESCRIPTER+4 ;V1.22 PUSHL #1 ;V1.22 PUSHAL DESCRIPTER ;V1.22 PUSHAL DATA2 ;V1.22 CALLS #3,G^OTS$CVT_L_TI ;V1.22 .ENDC ;V1.22 BITL #STATISTICS_FLAG,FLAG_WORD ;SEE IF OUTPUT WANTED ;V1.25 BEQL AAAA ;V1.25 BITL #STAT_RUN_FLAG,FLAG_WORD+4 ;V3.15 BEQL AAAA ;V3.15 CALLG LINE_ARG,PRINT_LINE AAAA: ;V1.25 .ENDM SYMBOL_STAT TITLE_F,SYMBOLS_PROCESSED,ACC_SYMBOLS_PROCESSED ;V1.22 SYMBOL_STAT TITLE_G,HOW_USED_PROCESSED,ACC_HOW_USED_PROCESSED ;V1.22 SYMBOL_STAT TITLE_AG,STRUCTURE_ELE_PROCESSED,- ;V3.00 ACC_STRUCTURE_ELE_PROCESSED ;V3.00 SYMBOL_STAT TITLE_AA,F_C_LABEL,ACC_F_C_LABEL ;V2.01 SYMBOL_STAT TITLE_AB,F_C_LABEL_EXT,ACC_F_C_LABEL_EXT ;V2.01 SYMBOL_STAT TITLE_AC,F_C_VAR,ACC_F_C_VAR ;V2.01 SYMBOL_STAT TITLE_AD,F_C_VAR_EXT,ACC_F_C_VAR_EXT ;V2.01 SYMBOL_STAT TITLE_AE,F_C_P_E,ACC_F_C_P_E ;V2.01 SYMBOL_STAT TITLE_H,SAVE_SUPER,ACC_SAVE_SUPER ;V1.22 SYMBOL_STAT TITLE_I,SAVE_ENTRY,ACC_SAVE_ENTRY ;V1.22 SYMBOL_STAT TITLE_X,SAVE_CHART,ACC_SAVE_CHART ;V2.00 SYMBOL_STAT TITLE_R,SOURCE_LINES_INPUT,ACC_SOURCE_LINES_INPUT ;V1.27 SYMBOL_STAT TITLE_S,CONTINUATION_LINES_INPUT,- ;V1.27 ACC_CONTINUATION_LINES_INPUT ;V1.27 SYMBOL_STAT TITLE_T,COMMENT_LINES_INPUT,ACC_COMMENT_LINES_INPUT ;V1.27 SYMBOL_STAT TITLE_U,LINES_OUTPUT,ACC_LINES_OUTPUT ;V1.27 SYMBOL_STAT TITLE_V,PAGES_OUTPUT,ACC_PAGES_OUTPUT ;V1.27 BITL #STATISTICS_FLAG,FLAG_WORD ;SEE IF OUTPUT WANTED ;V1.25 BEQL 3005$ ;V1.25 BITL #STAT_RUN_FLAG,FLAG_WORD+4 ;V3.15 BEQL 3005$ ;V3.15 CALLG BLANK_LINE_ARG,PRINT_LINE CALLG TITLE_2_ARG,PRINT_LINE 3005$: ;V1.25 .MACRO GEN_VM_STATS TITLE,DATA,?AAAA ;V1.25 MOVC5 #0,NULL,#^A/ /,#132,LINE MOVL #65,STRING ;V1.27 MOVAL LINE,STRING+4 MOVC3 #28,TITLE,LINE MOVL #10,DESCRIPTER MOVL #LINE+29,DESCRIPTER+4 PUSHL #1 PUSHAL DESCRIPTER PUSHAL DATA CALLS #3,G^OTS$CVT_L_TI MOVL #10,DESCRIPTER MOVL #LINE+40,DESCRIPTER+4 PUSHL #1 PUSHAL DESCRIPTER PUSHAL DATA+12 CALLS #3,G^OTS$CVT_L_TI MOVL #10,DESCRIPTER MOVL #LINE+55,DESCRIPTER+4 ;V1.27 PUSHL #1 PUSHAL DESCRIPTER PUSHAL DATA+8 CALLS #3,G^OTS$CVT_L_TI BITL #STATISTICS_FLAG,FLAG_WORD ;SEE IF OUTPUT WANTED ;V1.25 BEQL AAAA ;V1.25 BITL #STAT_RUN_FLAG,FLAG_WORD+4 ;V3.15 BEQL AAAA ;V3.15 CALLG LINE_ARG,PRINT_LINE AAAA: ;V1.25 .ENDM GEN_VM_STATS TITLE_J,ELEMENT_64 GEN_VM_STATS TITLE_K,ELEMENT_128 GEN_VM_STATS TITLE_L,ELEMENT_192 GEN_VM_STATS TITLE_M,ELEMENT_256 GEN_VM_STATS TITLE_AF,ELEMENT_320 ;V2.17 GEN_VM_STATS TITLE_N,ELEMENT_LARGE BITL #STATISTICS_FLAG,FLAG_WORD ;SEE IF OUTPUT WANTED ;V1.25 BEQL 3006$ ;V1.25 BITL #STAT_RUN_FLAG,FLAG_WORD+4 ;V3.15 BEQL 3006$ ;V3.15 CALLG BLANK_LINE_ARG,PRINT_LINE 3006$: ;V1.25 PUSHAL ALLOCATE_VM PUSHAL CODE_1 CALLS #2,G^LIB$STAT_VM PUSHAL FREE_VM PUSHAL CODE_2 CALLS #2,G^LIB$STAT_VM PUSHAL VM_INUSE PUSHAL CODE_3 CALLS #2,G^LIB$STAT_VM SYMBOL_STAT TITLE_O,ALLOCATE_VM SYMBOL_STAT TITLE_P,FREE_VM SYMBOL_STAT TITLE_Q,VM_INUSE STAT_PAGE_TWO: ;V1.31 CLRL LINES_ON_PAGE ;V1.31 BITL #STATISTICS_FLAG,FLAG_WORD ;SEE IF OUTPUT WANTED ;V1.31 BEQL 1$ ;V1.31 BITL #STAT_TYPE_FLAG,FLAG_WORD+4 ;V3.15 BEQL 1$ ;V3.15 CALLG BLANK_LINE_ARG,PRINT_LINE ;PRINT 2 BLANK LINES ;V1.31 CALLG TITLE_5_ARG,PRINT_LINE ;V2.15 CALLG BLANK_LINE_ARG,PRINT_LINE ;V1.31 1$: ;V1.31 .MACRO LINE_STAT TITLE1,DATA1,TITLE2,DATA2,?AAAA,?BBBB,?CCCC ;V3.15 ADDL2 DATA1,ACC_'DATA1 ;V2.15 .IF NB,DATA2 ;V1.31 ADDL2 DATA2,ACC_'DATA2 ;V2.15 .ENDC ;V1.31 BITL #STATISTICS_FLAG,FLAG_WORD ;SEE IF OUTPUT WANTED ;V2.15 BNEQ BBBB ;V2.15 BRW AAAA ;V2.15 BBBB: ;V2.15 BITL #STAT_TYPE_FLAG,FLAG_WORD+4 ;V3.15 BNEQ CCCC ;V3.15 BRW AAAA ;V3.15 CCCC: ;V3.15 MOVC5 #0,NULL,#^A/ /,#132,LINE ;V1.31 .IF NB,DATA2 ;V1.31 MOVL #117,STRING ;V1.31 .IFF ;V1.31 MOVL #60,STRING ;V1.31 .ENDC ;V1.31 MOVAL LINE,STRING+4 ;V1.31 CVTWL TITLE1,R11 ;LOAD TITLE FROM DESCRIPTER ;V2.15 MOVL TITLE1+4,R10 ;V2.15 MOVC5 R11,(R10),#^A/ /,#35,LINE ;V2.15 .IF NB,DATA2 ;V1.31 CVTWL TITLE2,R11 ;LOAD TITLE FROM DESCRIPTER ;V2.15 MOVL TITLE2+4,R10 ;V2.15 MOVC5 R11,(R10),#^A/ /,#35,LINE+60 ;V2.15 .ENDC ;V1.31 PUSHL #1 ;V1.31 MOVL #10,DESCRIPTER ;V1.31 MOVAL LINE+36,DESCRIPTER+4 ;V1.31 PUSHAL DESCRIPTER ;V1.31 PUSHAL DATA1 ;V2.15 CALLS #3,G^OTS$CVT_L_TI ;V1.31 MOVB #^A?/?,LINE+46 ;V1.31 MOVL #10,DESCRIPTER ;V1.31 MOVAL LINE+47,DESCRIPTER+4 ;V1.31 PUSHL #1 ;V1.31 PUSHAL DESCRIPTER ;V1.31 PUSHAL ACC_'DATA1 ;V2.15 CALLS #3,G^OTS$CVT_L_TI ;V1.31 .IF NB,DATA2 ;V1.31 PUSHL #1 ;V1.31 MOVL #10,DESCRIPTER ;V1.31 MOVAL LINE+96,DESCRIPTER+4 ;V1.31 PUSHAL DESCRIPTER ;V1.31 PUSHAL DATA2 ;V2.15 CALLS #3,G^OTS$CVT_L_TI ;V1.31 MOVB #^A?/?,LINE+106 ;V1.31 MOVL #10,DESCRIPTER ;V1.31 MOVAL LINE+107,DESCRIPTER+4 ;V1.31 PUSHL #1 ;V1.31 PUSHAL DESCRIPTER ;V1.31 PUSHAL ACC_'DATA2 ;V2.15 CALLS #3,G^OTS$CVT_L_TI ;V1.31 .ENDC CALLG LINE_ARG,PRINT_LINE ;V1.31 AAAA: ;V1.31 .ENDM LINE_STAT ;V1.31 ADDL2 LINE_TYPE_STAT+<4*>,- ;V3.00 LINE_TYPE_STAT+<4*> ;V3.00 ADDL2 LINE_TYPE_STAT+<4*>,- ;V3.00 LINE_TYPE_STAT+<4*> ;V3.00 LINE_STAT EVAL_ACCEPT,- ;V3.00 >>,- ;V3.00 EVAL_FIND_COMPLEX,- ;V3.00 >> ;V3.00 LINE_STAT EVAL_ASSIGN,- ;V3.00 >>,- ;V3.00 EVAL_FUNCTION,- ;V3.00 >> ;V3.00 LINE_STAT LINE_2,>>,- ;V3.00 EVAL_GOTO,>> ;V3.00 LINE_STAT EVAL_BACKSPACE,- ;V3.00 >>,- ;V3.00 EVAL_IF,>> ;V3.00 LINE_STAT EVAL_BLOCKDATA,- ;V3.00 >>,- ;V3.00 EVAL_INQUIRE,- ;V3.00 >> ;V3.00 LINE_STAT LINE_5,>>,- ;V3.00 LINE_45,- ;V3.00 >> ;V3.00 LINE_STAT LINE_6,- ;V3.00 >>,- ;V3.00 EVAL_IMPLICIT,- ;V3.00 >> ;V3.00 LINE_STAT EVAL_CALL,>>,- ;V3.00 EVAL_INCLUDE,- ;V3.00 >> ;V3.00 LINE_STAT EVAL_CHARACTER,- ;V3.00 >>,- ;V3.00 EVAL_INTEGER,- ;V3.00 >> ;V3.00 LINE_STAT EVAL_CHARACTER_FUNCTION,- ;V3.00 >>,- ;V3.00 EVAL_INTEGER_FUNCTION,- ;V3.00 >> ;V3.00 LINE_STAT EVAL_CLOSE,- ;V3.00 >>,- ;V3.00 EVAL_INTRINSIC,- ;V3.00 >> ;V3.00 LINE_STAT EVAL_COMMON,- ;V3.00 >>,- ;V3.00 EVAL_LOGICAL,- ;V3.00 >> ;V3.00 LINE_STAT EVAL_COMPLEX,- ;V3.00 >>,- ;V3.00 EVAL_LOGICAL_FUNCTION,- ;V3.00 >> ;V3.00 LINE_STAT EVAL_COMPLEX_FUNCTION,- ;V3.00 >>,- ;V3.00 EVAL_MAP,>> ;V3.00 LINE_STAT EVAL_CONTINUE,- ;V3.00 >>,- ;V3.00 EVAL_NAMELIST,- ;V3.00 >> ;V3.00 LINE_STAT EVAL_DATA,>>,- ;V3.00 EVAL_OPEN,>> ;V3.00 LINE_STAT EVAL_DECODE,- ;V3.00 >>,- ;V3.00 EVAL_OPTION,- ;V3.00 >> ;V3.00 LINE_STAT EVAL_DEFINEFILE,- ;V3.00 >>,- ;V3.00 EVAL_PARAMETER,- ;V3.00 >> ;V3.00 LINE_STAT EVAL_DELETE_COMPLEX,- ;V3.00 >>,- ;V3.00 EVAL_PAUSE,>> ;V3.00 LINE_STAT EVAL_DICTIONARY,- ;V3.00 >>,- ;V3.00 EVAL_PRINT,>> ;V3.00 LINE_STAT EVAL_DIMENSION,- ;V3.00 >>,- ;V3.00 EVAL_PROGRAM,- ;V3.00 >> ;V3.00 LINE_STAT EVAL_DO,>>,- ;V3.00 LINE_63,>> ;V3.00 LINE_STAT LINE_24,- ;V3.00 >>,- ;V3.00 LINE_64,- ;V3.00 >> ;V3.00 LINE_STAT LINE_25,- ;V3.00 >>,- ;V3.00 EVAL_READ_SIMPLE,- ;V3.00 >> ;V3.00 LINE_STAT LINE_26,- ;V3.00 >>,- ;V3.00 EVAL_REAL,>> ;V3.00 LINE_STAT LINE_27,- ;V3.00 >>,- ;V3.00 EVAL_REAL_FUNCTION,- ;V3.00 >> ;V3.00 LINE_STAT EVAL_EQUIVALENCE,- ;V3.00 >>,- ;V3.00 EVAL_REWRITE_COMPLEX,- ;V3.00 >> ;V3.00 LINE_STAT EVAL_ELSE,>>,- ;V3.00 EVAL_RECORD,- ;V3.00 >> ;V3.00 LINE_STAT EVAL_ELSEIF,- ;V3.00 >>,- ;V3.00 EVAL_RETURN,- ;V3.00 >> ;V3.00 LINE_STAT EVAL_ENCODE,- ;V3.00 >>,- ;V3.00 EVAL_REWIND,- ;V3.00 >> ;V3.00 LINE_STAT EVAL_END,>>,- ;V3.00 EVAL_SAVE,>> ;V3.00 LINE_STAT EVAL_ENDDO,- ;V3.00 >>,- ;V3.00 EVAL_STOP,>> ;V3.00 LINE_STAT EVAL_ENDFILE,- ;V3.00 >>,- ;V3.00 EVAL_STRUCTURE,- ;V3.00 >> ;V3.00 LINE_STAT EVAL_ENDIF,- ;V3.00 >>,- ;V3.00 EVAL_SUBROUTINE,- ;V3.00 >> ;V3.00 LINE_STAT EVAL_ENDMAP,- ;V3.00 >>,- ;V3.00 EVAL_TYPE,>> ;V3.00 LINE_STAT EVAL_ENDSTRUCTURE,- ;V3.00 >>,- ;V3.00 EVAL_UNION,>> ;V3.00 LINE_STAT EVAL_ENDUNION,- ;V3.00 >>,- ;V3.00 EVAL_UNLOCK,- ;V3.00 >> ;V3.00 LINE_STAT EVAL_ENTRY,- ;V3.00 >>,- ;V3.00 EVAL_VIRTUAL,- ;V3.00 >> ;V3.00 LINE_STAT LINE_37,>>,- ;V3.00 EVAL_VOLITILE,- ;V3.00 >> ;V3.00 LINE_STAT EVAL_EXTERNAL,- ;V3.00 >>,- ;V3.00 EVAL_WRITE_SIMPLE,- ;V3.00 >> ;V3.00 LINE_STAT EVAL_FORMAT,- ;V3.00 >> ;V3.00 CLRL LINES_ON_PAGE ;V2.15 ;PAGE 3 OF STATISTICS IS THE KEY WORDS ;V2.15 BITL #STATISTICS_FLAG,FLAG_WORD ;SEE IF OUTPUT WANTED ;V2.15 BEQL 2$ ;V2.15 BITL #STAT_TOKEN_FLAG,FLAG_WORD+4 ;V3.15 BEQL 2$ ;V3.15 CALLG BLANK_LINE_ARG,PRINT_LINE ;PRINT 2 BLANK LINES ;V2.15 CALLG TITLE_6_ARG,PRINT_LINE ;V2.15 CALLG BLANK_LINE_ARG,PRINT_LINE ;V2.15 2$: ;V2.15 DIVL3 #2,#NUMBER_OF_KEY_WORDS,R11 ;V2.15 MOVL #2,R10 ;V2.15 MOVAL KEY_WORD_TABLE,R9 ;V2.15 ADDL3 #2,R11,R8 ;V2.15 MULL3 #8,R11,R7 ;V2.15 ADDL2 #,R7 ;V2.15 MULL3 #2,R11,R0 ;V2.15 CMPL #NUMBER_OF_KEY_WORDS,R0 ;V2.15 BLEQ 3$ ;V2.15 INCL R8 ;V2.15 ADDL2 #8,R7 ;V2.15 3$: ;V2.15 ; REGESTER ALLOCATION ;V2.15 ; R11 LOOP COUNTER ;V2.15 ; R10 LEFT ITEM COUNTER OFFSET ;V2.15 ; R9 POINTER TO LEFT ITEM NAME DESCRIPTER ;V2.15 ; R8 RIGHT ITEM COUNTER OFFSET ;V2.15 ; R7 POINTER TO RIGHT ITEM NAME DESCRIPTER ;V2.15 P_3_A_LOOP_BACK: ;V2.15 ADDL2 KEY_WORD_STAT[R10],ACC_KEY_WORD_STAT[R10] ;V2.15 ADDL2 KEY_WORD_STAT[R8],ACC_KEY_WORD_STAT[R8] ;V2.15 BITL #STATISTICS_FLAG,FLAG_WORD ;SEE IF OUTPUT WANTED ;V2.15 BNEQ 1$ ;V2.15 BRW 2$ ;V2.15 1$: BITL #STAT_TOKEN_FLAG,FLAG_WORD+4 ;V3.15 BNEQ 1001$ ;V3.15 BRW 2$ ;V3.15 1001$: MOVC5 #0,NULL,#^A/ /,#132,LINE ;V3.15 MOVL #117,STRING ;V2.15 MOVAL LINE,STRING+4 ;V2.15 CVTWL (R9),R6 ;LOAD TITLE FROM DESCRIPTER ;V2.15 MOVL 4(R9),R5 ;V2.15 MOVC5 R6,(R5),#^A/ /,#35,LINE ;V2.15 CVTWL (R7),R6 ;LOAD TITLE FROM DESCRIPTER ;V2.15 MOVL 4(R7),R5 ;V2.15 MOVC5 R6,(R5),#^A/ /,#35,LINE+60 ;V2.15 PUSHL #1 ;V2.15 MOVL #10,DESCRIPTER ;V2.15 MOVAL LINE+36,DESCRIPTER+4 ;V2.15 PUSHAL DESCRIPTER ;V2.15 PUSHAL KEY_WORD_STAT[R10] ;V2.15 CALLS #3,G^OTS$CVT_L_TI ;V2.15 MOVB #^A?/?,LINE+46 ;V2.15 MOVL #10,DESCRIPTER ;V2.15 MOVAL LINE+47,DESCRIPTER+4 ;V2.15 PUSHL #1 ;V2.15 PUSHAL DESCRIPTER ;V2.15 PUSHAL ACC_KEY_WORD_STAT[R10] ;V2.15 CALLS #3,G^OTS$CVT_L_TI ;V2.15 PUSHL #1 ;V2.15 MOVL #10,DESCRIPTER ;V2.15 MOVAL LINE+96,DESCRIPTER+4 ;V2.15 PUSHAL DESCRIPTER ;V2.15 PUSHAL KEY_WORD_STAT[R8] ;V2.15 CALLS #3,G^OTS$CVT_L_TI ;V2.15 MOVB #^A?/?,LINE+106 ;V2.15 MOVL #10,DESCRIPTER ;V2.15 MOVAL LINE+107,DESCRIPTER+4 ;V2.15 PUSHL #1 ;V2.15 PUSHAL DESCRIPTER ;V2.15 PUSHAL ACC_KEY_WORD_STAT[R8] ;V2.15 CALLS #3,G^OTS$CVT_L_TI ;V2.15 CALLG LINE_ARG,PRINT_LINE ;V2.15 2$: ;V2.15 INCL R10 ;V2.15 INCL R8 ;V2.15 ADDL2 #8,R9 ;V2.15 ADDL2 #8,R7 ;V2.15 DECL R11 ;V2.15 BLEQ 3$ ;V2.15 BRW P_3_A_LOOP_BACK ;V2.15 3$: ;V2.15 BITL #1,#NUMBER_OF_KEY_WORDS ;V2.15 BNEQ 4$ ;V2.15 BRW 5$ ;V2.15 4$: ADDL2 KEY_WORD_STAT[R10],ACC_KEY_WORD_STAT[R10] ;V2.15 BITL #STATISTICS_FLAG,FLAG_WORD ;SEE IF OUTPUT WANTED ;V2.15 BNEQ 6$ ;V2.15 BRW 5$ ;V2.15 6$: BITL #STAT_TOKEN_FLAG,FLAG_WORD+4 ;V3.15 BNEQ 1006$ ;V3.15 BRW 5$ ;V3.15 MOVC5 #0,NULL,#^A/ /,#132,LINE ;V3.15 1006$: MOVL #60,STRING ;V2.15 MOVAL LINE,STRING+4 ;V2.15 CVTWL (R9),R6 ;LOAD TITLE FROM DESCRIPTER ;V2.15 MOVL 4(R9),R5 ;V2.15 MOVC5 R6,(R5),#^A/ /,#35,LINE ;V2.15 PUSHL #1 ;V2.15 MOVL #10,DESCRIPTER ;V2.15 MOVAL LINE+36,DESCRIPTER+4 ;V2.15 PUSHAL DESCRIPTER ;V2.15 PUSHAL KEY_WORD_STAT[R10] ;V2.15 CALLS #3,G^OTS$CVT_L_TI ;V2.15 MOVB #^A?/?,LINE+46 ;V2.15 MOVL #10,DESCRIPTER ;V2.15 MOVAL LINE+47,DESCRIPTER+4 ;V2.15 PUSHL #1 ;V2.15 PUSHAL DESCRIPTER ;V2.15 PUSHAL ACC_KEY_WORD_STAT[R10] ;V2.15 CALLS #3,G^OTS$CVT_L_TI ;V2.15 CALLG LINE_ARG,PRINT_LINE ;V2.15 5$: ;V2.15 ; REST OF PAGE 3-OTHER MISC TOKENS ;V2.15 BITL #STATISTICS_FLAG,FLAG_WORD ;SEE IF OUTPUT WANTED ;V2.15 BEQL 9$ ;V2.15 BITL #STAT_TOKEN_FLAG,FLAG_WORD+4 ;V3.15 BEQL 9$ ;V3.15 CALLG BLANK_LINE_ARG,PRINT_LINE ;PRINT 2 BLANK LINES ;V2.15 CALLG TITLE_7_ARG,PRINT_LINE ;V2.15 CALLG BLANK_LINE_ARG,PRINT_LINE ;V2.15 .MACRO LINE_STAT TITLE1,DATA1,TITLE2,DATA2,?AAAA,?BBBB,?CCCC ;V3.15 ADDL2 DATA1,ACC_'DATA1 ;V2.15 .IF NB,DATA2 ;V1.31 ADDL2 DATA2,ACC_'DATA2 ;V2.15 .ENDC ;V1.31 BITL #STATISTICS_FLAG,FLAG_WORD ;SEE IF OUTPUT WANTED ;V2.15 BNEQ BBBB ;V2.15 BRW AAAA ;V2.15 BBBB: ;V2.15 BITL #STAT_TOKEN_FLAG,FLAG_WORD+4 ;V3.15 BNEQ CCCC ;V3.15 BRW AAAA ;V3.15 CCCC: ;V3.15 MOVC5 #0,NULL,#^A/ /,#132,LINE ;V1.31 .IF NB,DATA2 ;V1.31 MOVL #117,STRING ;V1.31 .IFF ;V1.31 MOVL #60,STRING ;V1.31 .ENDC ;V1.31 MOVAL LINE,STRING+4 ;V1.31 CVTWL TITLE1,R11 ;LOAD TITLE FROM DESCRIPTER ;V2.15 MOVL TITLE1+4,R10 ;V2.15 MOVC5 R11,(R10),#^A/ /,#35,LINE ;V2.15 .IF NB,DATA2 ;V1.31 CVTWL TITLE2,R11 ;LOAD TITLE FROM DESCRIPTER ;V2.15 MOVL TITLE2+4,R10 ;V2.15 MOVC5 R11,(R10),#^A/ /,#35,LINE+60 ;V2.15 .ENDC ;V1.31 PUSHL #1 ;V1.31 MOVL #10,DESCRIPTER ;V1.31 MOVAL LINE+36,DESCRIPTER+4 ;V1.31 PUSHAL DESCRIPTER ;V1.31 PUSHAL DATA1 ;V2.15 CALLS #3,G^OTS$CVT_L_TI ;V1.31 MOVB #^A?/?,LINE+46 ;V1.31 MOVL #10,DESCRIPTER ;V1.31 MOVAL LINE+47,DESCRIPTER+4 ;V1.31 PUSHL #1 ;V1.31 PUSHAL DESCRIPTER ;V1.31 PUSHAL ACC_'DATA1 ;V2.15 CALLS #3,G^OTS$CVT_L_TI ;V1.31 .IF NB,DATA2 ;V1.31 PUSHL #1 ;V1.31 MOVL #10,DESCRIPTER ;V1.31 MOVAL LINE+96,DESCRIPTER+4 ;V1.31 PUSHAL DESCRIPTER ;V1.31 PUSHAL DATA2 ;V2.15 CALLS #3,G^OTS$CVT_L_TI ;V1.31 MOVB #^A?/?,LINE+106 ;V1.31 MOVL #10,DESCRIPTER ;V1.31 MOVAL LINE+107,DESCRIPTER+4 ;V1.31 PUSHL #1 ;V1.31 PUSHAL DESCRIPTER ;V1.31 PUSHAL ACC_'DATA2 ;V2.15 CALLS #3,G^OTS$CVT_L_TI ;V1.31 .ENDC CALLG LINE_ARG,PRINT_LINE ;V1.31 AAAA: ;V1.31 .ENDM LINE_STAT ;V1.31 9$: ;V2.15 LINE_STAT LINE_981,+4>,- ;V3.00 LINE_991,+4> ;V2.15 LINE_STAT LINE_982,+4>,- ;V3.00 LINE_992,+4> ;V2.15 LINE_STAT LINE_983,+4>,- ;V3.00 LINE_993,+4> ;V2.15 LINE_STAT LINE_984,+4>,- ;V3.00 LINE_994,+4> ;V2.15 LINE_STAT LINE_985,+4>,- ;V3.00 LINE_995,+4> ;V2.15 LINE_STAT LINE_986,+4>,- ;V3.00 LINE_996,+4> ;V2.15 LINE_STAT LINE_987,+4>,- ;V3.00 LINE_997,+4> ;V2.15 LINE_STAT LINE_988,+4>,- ;V3.00 LINE_998,+4> ;V2.15 LINE_STAT LINE_989,+4>,- ;V3.00 LINE_999,+4> ;V2.15 LINE_STAT LINE_990,+4>,- ;V3.00 LINE_M1, ;V2.15 LINE_STAT LINE_0, ;V3.00 ; PAGE 4 SINGLE AND MULT CHAR TOKENS AND LOGICAL TOKENS ;V2.15 CLRL LINES_ON_PAGE ;V2.15 BITL #STATISTICS_FLAG,FLAG_WORD ;SEE IF OUTPUT WANTED ;V2.15 BEQL 10$ ;V2.15 BITL #STAT_TOKEN_FLAG,FLAG_WORD+4 ;V3.15 BEQL 10$ ;V3.15 CALLG BLANK_LINE_ARG,PRINT_LINE ;PRINT 2 BLANK LINES ;V2.15 CALLG TITLE_8_ARG,PRINT_LINE ;V2.15 CALLG BLANK_LINE_ARG,PRINT_LINE ;V2.15 10$: ;V2.15 LINE_STAT MULTI_CHARACTER_TABLE,,- ;V2.15 >,> ;V2.15 LINE_STAT >,>,- ;V2.15 >,> ;V2.15 LINE_STAT >,>,- ;V2.15 >,> ;V2.15 LINE_STAT >,>,- ;V2.15 >,> ;V2.15 BITL #STATISTICS_FLAG,FLAG_WORD ;SEE IF OUTPUT WANTED ;V2.15 BEQL 11$ ;V2.15 BITL #STAT_TOKEN_FLAG,FLAG_WORD+4 ;V3.15 BEQL 11$ ;V3.15 CALLG BLANK_LINE_ARG,PRINT_LINE ;PRINT 2 BLANK LINES ;V2.15 CALLG TITLE_9_ARG,PRINT_LINE ;V2.15 CALLG BLANK_LINE_ARG,PRINT_LINE ;V2.15 11$: ;V2.15 LINE_STAT SINGLE_CHARACTER_TABLE,,- ;V2.15 >,> ;V2.15 LINE_STAT >,>-;V2.15 ,>,>;V2.15 LINE_STAT >,>-;V2.15 ,>,>;V2.15 LINE_STAT >,>-;V2.15 ,>,>;V2.15 LINE_STAT >,>-;V2.15 ,>,>;V2.15 LINE_STAT >,- ;V2.15 >,- ;V2.15 >,- ;V2.15 > ;V2.15 LINE_STAT >,- ;V2.15 >,- ;V2.15 >,- ;V2.15 > ;V2.15 LINE_STAT >,- ;V2.15 >,- ;V2.15 >,- ;V2.15 > ;V2.15 LINE_STAT >,- ;V2.15 >,- ;V2.15 >,- ;V2.15 > ;V2.15 LINE_STAT >,- ;V2.15 > ;V2.15 BITL #STATISTICS_FLAG,FLAG_WORD ;SEE IF OUTPUT WANTED ;V2.15 BEQL 12$ ;V2.15 BITL #STAT_TOKEN_FLAG,FLAG_WORD+4 ;V3.15 BEQL 12$ ;V3.15 CALLG BLANK_LINE_ARG,PRINT_LINE ;PRINT 2 BLANK LINES ;V2.15 CALLG TITLE_10_ARG,PRINT_LINE ;V2.15 CALLG BLANK_LINE_ARG,PRINT_LINE ;V2.15 12$: ;V2.15 LINE_STAT LOGICAL_TABLE,,- ;V2.15 >,> ;V2.15 LINE_STAT >,>- ;V2.15 ,>,> ;V2.15 LINE_STAT >,>- ;V2.15 ,>,> ;V2.15 LINE_STAT >,>- ;V2.15 ,>,> ;V2.15 LINE_STAT >,>- ;V2.15 ,>,> ;V2.15 LINE_STAT >,>,- ;V2.15 >,> ;V2.15 LINE_STAT >,>,- ;V2.15 >,> ;V2.15 ; PAGE 5-I/O TOKENS ;V2.15 CLRL LINES_ON_PAGE ;V2.15 BITL #STATISTICS_FLAG,FLAG_WORD ;SEE IF OUTPUT WANTED ;V2.15 BEQL 15$ ;V2.15 BITL #STAT_TOKEN_FLAG,FLAG_WORD+4 ;V3.15 BEQL 15$ ;V3.15 CALLG BLANK_LINE_ARG,PRINT_LINE ;PRINT 2 BLANK LINES ;V2.15 CALLG TITLE_11_ARG,PRINT_LINE ;V2.15 CALLG BLANK_LINE_ARG,PRINT_LINE ;V2.15 15$: ;V2.15 DIVL3 #2,#NUMBER_OF_IO,R11 ;V2.15 CLRL R10 ;V2.15 MOVAL IO_TABLE,R9 ;V2.15 MOVL R11,R8 ;V2.15 MULL3 #8,R8,R7 ;V2.15 ADDL2 #,R7 ;V2.15 MULL3 #2,R11,R0 ;V2.15 CMPL #NUMBER_OF_IO,R0 ;V2.15 BLEQ 16$ ;V2.15 INCL R8 ;V2.15 ADDL2 #8,R7 ;V2.15 16$: ;V2.15 ; REGESTER ALLOCATION ;V2.15 ; R11 LOOP COUNTER ;V2.15 ; R10 LEFT ITEM COUNTER OFFSET ;V2.15 ; R9 POINTER TO LEFT ITEM NAME DESCRIPTER ;V2.15 ; R8 RIGHT ITEM COUNTER OFFSET ;V2.15 ; R7 POINTER TO RIGHT ITEM NAME DESCRIPTER ;V2.15 P_5_LOOP_BACK: ;V2.15 ADDL2 IO_STAT[R10],ACC_IO_STAT[R10] ;V2.15 ADDL2 IO_STAT[R8],ACC_IO_STAT[R8] ;V2.15 BITL #STATISTICS_FLAG,FLAG_WORD ;SEE IF OUTPUT WANTED ;V2.15 BNEQ 1$ ;V2.15 BRW 2$ ;V2.15 1$: BITL #STAT_TOKEN_FLAG,FLAG_WORD+4 ;V3.15 BNEQ 1001$ ;V3.15 BRW 2$ ;V3.15 1001$: MOVC5 #0,NULL,#^A/ /,#132,LINE ;V3.15 MOVL #117,STRING ;V2.15 MOVAL LINE,STRING+4 ;V2.15 CVTWL (R9),R6 ;LOAD TITLE FROM DESCRIPTER ;V2.15 MOVL 4(R9),R5 ;V2.15 MOVC5 R6,(R5),#^A/ /,#35,LINE ;V2.15 CVTWL (R7),R6 ;LOAD TITLE FROM DESCRIPTER ;V2.15 MOVL 4(R7),R5 ;V2.15 MOVC5 R6,(R5),#^A/ /,#35,LINE+60 ;V2.15 PUSHL #1 ;V2.15 MOVL #10,DESCRIPTER ;V2.15 MOVAL LINE+36,DESCRIPTER+4 ;V2.15 PUSHAL DESCRIPTER ;V2.15 PUSHAL IO_STAT[R10] ;V2.15 CALLS #3,G^OTS$CVT_L_TI ;V2.15 MOVB #^A?/?,LINE+46 ;V2.15 MOVL #10,DESCRIPTER ;V2.15 MOVAL LINE+47,DESCRIPTER+4 ;V2.15 PUSHL #1 ;V2.15 PUSHAL DESCRIPTER ;V2.15 PUSHAL ACC_IO_STAT[R10] ;V2.15 CALLS #3,G^OTS$CVT_L_TI ;V2.15 PUSHL #1 ;V2.15 MOVL #10,DESCRIPTER ;V2.15 MOVAL LINE+96,DESCRIPTER+4 ;V2.15 PUSHAL DESCRIPTER ;V2.15 PUSHAL IO_STAT[R8] ;V2.15 CALLS #3,G^OTS$CVT_L_TI ;V2.15 MOVB #^A?/?,LINE+106 ;V2.15 MOVL #10,DESCRIPTER ;V2.15 MOVAL LINE+107,DESCRIPTER+4 ;V2.15 PUSHL #1 ;V2.15 PUSHAL DESCRIPTER ;V2.15 PUSHAL ACC_IO_STAT[R8] ;V2.15 CALLS #3,G^OTS$CVT_L_TI ;V2.15 CALLG LINE_ARG,PRINT_LINE ;V2.15 2$: ;V2.15 INCL R10 ;V2.15 INCL R8 ;V2.15 ADDL2 #8,R9 ;V2.15 ADDL2 #8,R7 ;V2.15 DECL R11 ;V2.15 BLEQ 3$ ;V2.15 BRW P_5_LOOP_BACK ;V2.15 3$: ;V2.15 BITL #1,#NUMBER_OF_IO ;V2.15 BNEQ 4$ ;V2.15 BRW 5$ ;V2.15 4$: ADDL2 IO_STAT[R10],ACC_IO_STAT[R10] ;V2.15 BITL #STATISTICS_FLAG,FLAG_WORD ;SEE IF OUTPUT WANTED ;V2.15 BNEQ 6$ ;V2.15 BRW 5$ ;V2.15 6$: BITL #STAT_TOKEN_FLAG,FLAG_WORD+4 ;V3.15 BNEQ 1006$ ;V3.15 BRW 5$ ;V3.15 1006$: MOVC5 #0,NULL,#^A/ /,#132,LINE ;V3.15 MOVL #60,STRING ;V2.15 MOVAL LINE,STRING+4 ;V2.15 CVTWL (R9),R6 ;LOAD TITLE FROM DESCRIPTER ;V2.15 MOVL 4(R9),R5 ;V2.15 MOVC5 R6,(R5),#^A/ /,#35,LINE ;V2.15 PUSHL #1 ;V2.15 MOVL #10,DESCRIPTER ;V2.15 MOVAL LINE+36,DESCRIPTER+4 ;V2.15 PUSHAL DESCRIPTER ;V2.15 PUSHAL IO_STAT[R10] ;V2.15 CALLS #3,G^OTS$CVT_L_TI ;V2.15 MOVB #^A?/?,LINE+46 ;V2.15 MOVL #10,DESCRIPTER ;V2.15 MOVAL LINE+47,DESCRIPTER+4 ;V2.15 PUSHL #1 ;V2.15 PUSHAL DESCRIPTER ;V2.15 PUSHAL ACC_IO_STAT[R10] ;V2.15 CALLS #3,G^OTS$CVT_L_TI ;V2.15 CALLG LINE_ARG,PRINT_LINE ;V2.15 5$: ;V2.15 ; LAST PAGE(ES) FORTAN STD ROUTINE LIBRARY ;V2.15 CLRL LOCAL_COUNTER ;V2.15 P_6_OUTER_LOOP_BACK: ;V2.15 CLRL LINES_ON_PAGE ;V2.15 BITL #STATISTICS_FLAG,FLAG_WORD ;SEE IF OUTPUT WANTED ;V2.15 BEQL 15$ ;V2.15 BITL #STAT_LIB_FLAG,FLAG_WORD+4 ;V3.15 BEQL 15$ ;V3.15 CALLG BLANK_LINE_ARG,PRINT_LINE ;PRINT 2 BLANK LINES ;V2.15 CALLG TITLE_12_ARG,PRINT_LINE ;V2.15 CALLG BLANK_LINE_ARG,PRINT_LINE ;V2.15 15$: ;V2.15 SUBL3 LOCAL_COUNTER,#NUMBER_OF_LIBRARY,R11 ;V2.15 CMPL #80,R11 ;V2.15 BGEQ 16$ ;V2.15 MOVL #80,R11 ;V2.15 16$: ;V2.15 MOVL LOCAL_COUNTER,R10 ;V2.15 MULL3 #8,R10,R9 ;V2.15 ADDL2 #LIBRARY_POINTER_TABLE,R9 ;V2.15 DIVL3 #2,R11,R8 ;V2.15 MULL3 #8,R8,R7 ;V2.15 ADDL2 R9,R7 ;V2.15 ADDL2 R10,R8 ;V2.15 ADDL2 R11,LOCAL_COUNTER ;V2.15 BITL #1,R11 ;V2.15 BEQL 17$ ;V2.15 INCL R8 ;V2.15 ADDL2 #8,R7 ;V2.15 DECL LOCAL_COUNTER ;V2.15 17$: DIVL2 #2,R11 ;V2.15 ; REGESTER ALLOCATION ;V2.15 ; R11 LOOP COUNTER ;V2.15 ; R10 LEFT ITEM COUNTER OFFSET ;V2.15 ; R9 POINTER TO LEFT ITEM NAME DESCRIPTER ;V2.15 ; R8 RIGHT ITEM COUNTER OFFSET ;V2.15 ; R7 POINTER TO RIGHT ITEM NAME DESCRIPTER ;V2.15 P_6_LOOP_BACK: ;V2.15 ADDL2 LIBRARY_STAT[R10],ACC_LIBRARY_STAT[R10] ;V2.15 ADDL2 LIBRARY_STAT[R8],ACC_LIBRARY_STAT[R8] ;V2.15 BITL #STATISTICS_FLAG,FLAG_WORD ;SEE IF OUTPUT WANTED ;V2.15 BNEQ 1$ ;V2.15 BRW 2$ ;V2.15 1$: BITL #STAT_LIB_FLAG,FLAG_WORD+4 ;V3.15 BNEQ 1001$ ;V3.15 BRW 2$ ;V3.15 1001$: MOVC5 #0,NULL,#^A/ /,#132,LINE ;V3.15 MOVL #117,STRING ;V2.15 MOVAL LINE,STRING+4 ;V2.15 CVTWL (R9),R6 ;LOAD TITLE FROM DESCRIPTER ;V2.15 MOVL 4(R9),R5 ;V2.15 MOVC5 R6,(R5),#^A/ /,#35,LINE ;V2.15 CVTWL (R7),R6 ;LOAD TITLE FROM DESCRIPTER ;V2.15 MOVL 4(R7),R5 ;V2.15 MOVC5 R6,(R5),#^A/ /,#35,LINE+60 ;V2.15 PUSHL #1 ;V2.15 MOVL #10,DESCRIPTER ;V2.15 MOVAL LINE+36,DESCRIPTER+4 ;V2.15 PUSHAL DESCRIPTER ;V2.15 PUSHAL LIBRARY_STAT[R10] ;V2.15 CALLS #3,G^OTS$CVT_L_TI ;V2.15 MOVB #^A?/?,LINE+46 ;V2.15 MOVL #10,DESCRIPTER ;V2.15 MOVAL LINE+47,DESCRIPTER+4 ;V2.15 PUSHL #1 ;V2.15 PUSHAL DESCRIPTER ;V2.15 PUSHAL ACC_LIBRARY_STAT[R10] ;V2.15 CALLS #3,G^OTS$CVT_L_TI ;V2.15 PUSHL #1 ;V2.15 MOVL #10,DESCRIPTER ;V2.15 MOVAL LINE+96,DESCRIPTER+4 ;V2.15 PUSHAL DESCRIPTER ;V2.15 PUSHAL LIBRARY_STAT[R8] ;V2.15 CALLS #3,G^OTS$CVT_L_TI ;V2.15 MOVB #^A?/?,LINE+106 ;V2.15 MOVL #10,DESCRIPTER ;V2.15 MOVAL LINE+107,DESCRIPTER+4 ;V2.15 PUSHL #1 ;V2.15 PUSHAL DESCRIPTER ;V2.15 PUSHAL ACC_LIBRARY_STAT[R8] ;V2.15 CALLS #3,G^OTS$CVT_L_TI ;V2.15 CALLG LINE_ARG,PRINT_LINE ;V2.15 2$: ;V2.15 INCL R10 ;V2.15 INCL R8 ;V2.15 ADDL2 #8,R9 ;V2.15 ADDL2 #8,R7 ;V2.15 DECL R11 ;V2.15 BLEQ 3$ ;V2.15 BRW P_6_LOOP_BACK ;V2.15 3$: ;V2.15 SUBL3 LOCAL_COUNTER,#NUMBER_OF_LIBRARY,R0 ;V2.15 CMPL #1,R0 ;V2.15 BEQL 4$ ;V2.15 BLSS 1003$ ;V2.15 BRW 5$ ;V2.15 1003$: BRW P_6_OUTER_LOOP_BACK ;V2.15 4$: ADDL2 LIBRARY_STAT[R10],ACC_LIBRARY_STAT[R10] ;V2.15 BITL #STATISTICS_FLAG,FLAG_WORD ;SEE IF OUTPUT WANTED ;V2.15 BNEQ 6$ ;V2.15 BRW 5$ ;V2.15 6$: BITL #STAT_LIB_FLAG,FLAG_WORD+4 ;V3.15 BNEQ 1006$ ;V3.15 BRW 5$ ;V3.15 1006$: MOVC5 #0,NULL,#^A/ /,#132,LINE ;V3.15 MOVL #60,STRING ;V2.15 MOVAL LINE,STRING+4 ;V2.15 CVTWL (R9),R6 ;LOAD TITLE FROM DESCRIPTER ;V2.15 MOVL 4(R9),R5 ;V2.15 MOVC5 R6,(R5),#^A/ /,#35,LINE ;V2.15 PUSHL #1 ;V2.15 MOVL #10,DESCRIPTER ;V2.15 MOVAL LINE+36,DESCRIPTER+4 ;V2.15 PUSHAL DESCRIPTER ;V2.15 PUSHAL LIBRARY_STAT[R10] ;V2.15 CALLS #3,G^OTS$CVT_L_TI ;V2.15 MOVB #^A?/?,LINE+46 ;V2.15 MOVL #10,DESCRIPTER ;V2.15 MOVAL LINE+47,DESCRIPTER+4 ;V2.15 PUSHL #1 ;V2.15 PUSHAL DESCRIPTER ;V2.15 PUSHAL ACC_LIBRARY_STAT[R10] ;V2.15 CALLS #3,G^OTS$CVT_L_TI ;V2.15 CALLG LINE_ARG,PRINT_LINE ;V2.15 5$: ;V2.15 MOVC5 #0,NULL,#0,#,TIME_INPUT ;V1.31 MOVC5 #0,NULL,#0,#,START_TOKEN_STAT ;V2.15 RET .END