1 /BETTER SYMBOL TABLE DUMP FOR U/W-FOCAL -JVZ- 2 3 /THIS PATCH MODIFIES THE 'TYPE $' COMMAND TO PERMIT DUMPS 4 /WITH MORE THAN ONE ITEM PER LINE. THE NUMBER OF ITEMS MAY 5 /NOW BE SPECIFIED FOLLOWING THE '$'. THUS 'TYPE $5' WILL 6 /DUMP FIVE VARIABLES PER LINE. THE FORMAT SHOULD BE CHOSEN 7 /SO THAT ALL ITEMS FIT WITHIN THE WIDTH OF THE PAPER. THE 8 /DEFAULT VALUE (IF NONE IS SPECIFIED) IS 3. THIS PATCH RE- 9 /MOVES 9 (UNUSED) FUNCTION ENTRY POINTS FROM THE TABLES. 10 11 /SYMBOLS FROM THE LISTING: 12 13 FIELD 1 14 15 AXOUT=17 16 XCT=20 17 ATSW=23 18 LASTLN=25 19 PT1=30 20 LASTV=31 21 T3=33 22 GINC=65 23 LINENO=67 24 CCR=77 25 DMPSW=100 26 P177=106 27 C200=123 28 FOUTPUT=130 29 END=134 30 PROC=611 31 EVAL=1613 32 33 FENT=JMS I 7 34 FIXMRI FGET=0000 35 FEXT=0000 36 FIXIT=4453 37 PUSHJ=4540 38 GETC=4545 39 PRINTC=4551 40 POPJ=5541 41 42 *1574 43 011574 2202 HUMPTY /BRANCH POINT 44 45 *2202 46 012202 4540 HUMPTY, PUSHJ /READ THE ITEM COUNT 47 012203 1612 EVAL-1 48 012204 4453 FIXIT 49 012205 7041 CIA 50 012206 7450 SNA 51 012207 7146 CMA CLL RTL /DEFAULT VALUE = 3 52 012210 3067 DCA LINENO /= 'NO. PER LINE' 53 012211 5612 JMP I .+1 54 012212 0402 DUMPTY 55 *402 56 010402 1100 DUMPTY, TAD DMPSW /INITIALIZATION 57 010403 3023 DCA ATSW 58 010404 1134 TAD END 59 010405 3030 DCA PT1 /START AT THE BEGINNING 60 010406 3020 DCA XCT 61 010407 3431 DCA I LASTV /CLEAR THE FINAL NAME 62 010410 1067 TAD LINENO 63 010411 3025 DCA LASTLN 64 010412 5701 JMP I 501 65 *420 66 010420 1233 TAD DOEXIT 67 *433 68 010433 0611 DOEXIT, PROC /MOVED TO GAIN A WORD 69 *501 70 010501 3054 TDUMP+2 71 *3052 72 013052 1311 TDUMP, TAD SPACE /BETWEEN MULTIPLE ITEMS 73 013053 4551 PRINTC 74 013054 1430 TAD I PT1 /HERE WE GO 75 013055 7450 SNA /END? 76 013056 5541 POPJ /INTO THE WILD BLUE YONDER 77 013057 6201 CDF 78 013060 3523 DCA I C200 /STICK NAME AHEAD OF THE PROGRAM 79 013061 1106 TAD P177 80 013062 3017 DCA AXOUT /SET OUTPUT POINTERS 81 013063 3100 DCA DMPSW /TURN ON THE TRACE 82 013064 4545 GETC 83 013065 4545 GETC / 'AB(' 84 013066 4545 GETC 85 013067 2030 ISZ PT1 86 013070 1430 TAD I PT1 /GET THE SUBSCRIPT 87 013071 3033 DCA T3 88 013072 4717 JMS I SDUMP /WRITE IT OUT 89 013073 4545 GETC / ')' 90 013074 1023 TAD ATSW 91 013075 3100 DCA DMPSW /REMOVE THE TRACE 92 013076 2030 ISZ PT1 93 013077 4407 FENT 94 013100 0430 FGET I PT1 /BRING IN THE VALUE 95 013101 0000 FEXT 96 013102 4530 JMS I FOUTPUT /PRINT IT 97 013103 7144 CMA CLL RAL /=-2 98 013104 1065 TAD GINC 99 013105 1030 TAD PT1 /SET UP THE NEXT ONE 100 013106 3030 DCA PT1 101 013107 2025 ISZ LASTLN /INCREMENT ITEM COUNT 102 013110 1430 TAD I PT1 /LOOK-AHEAD CHECK 103 013111 7640 SPACE, SZA CLA /END OF LINE OR TABLE 104 013112 5252 JMP TDUMP /KEEP GOING 105 013113 1067 TAD LINENO 106 013114 3025 DCA LASTLN /RESET COUNTER 107 013115 1077 TAD CCR 108 013116 5253 JMP TDUMP+1 /DO A CR/LF 109 SDUMP=.;$ ATSW 0023 AXOUT 0017 C200 0123 CCR 0077 DMPSW 0100 DOEXIT 0433 DUMPTY 0402 END 0134 EVAL 1613 FENT 4407 FEXT 0000 FGET 0000 FIXIT 4453 FOUTPU 0130 GETC 4545 GINC 0065 HUMPTY 2202 LASTLN 0025 LASTV 0031 LINENO 0067 P177 0106 POPJ 5541 PRINTC 4551 PROC 0611 PT1 0030 PUSHJ 4540 SDUMP 3117 SPACE 3111 T3 0033 TDUMP 3052 XCT 0020