LOC 1000' CTBL: DJMS C40 DJMS C41 DJMS C42 DJMS C43 DJMS C44 DJMS C45 DJMS C46 DJMS C47 DJMS C50 DJMS C51 DJMS C52 DJMS C53 DJMS C54 DJMS C55 DJMS C56 DJMS C57 DJMS C60 DJMS C61 DJMS C62 DJMS C63 DJMS C64 DJMS C65 DJMS C66 DJMS C67 DJMS C70 DJMS C71 DJMS C72 DJMS C73 DJMS C74 DJMS C75 DJMS C76 DJMS C77 DJMS C100 DJMS C101 DJMS C102 DJMS C103 DJMS C104 DJMS C105 DJMS C106 DJMS C107 DJMS C110 DJMS C111 DJMS C112 DJMS C113 DJMS C114 DJMS C115 DJMS C116 DJMS C117 DJMS C120 DJMS C121 DJMS C122 DJMS C123 DJMS C124 DJMS C125 DJMS C126 DJMS C127 DJMS C130 DJMS C131 DJMS C132 DJMS C133 DJMS C134 DJMS C135 DJMS C136 DJMS C137 DJMS C140 DJMS C141 DJMS C142 DJMS C143 DJMS C144 DJMS C145 DJMS C146 DJMS C147 DJMS C150 DJMS C151 DJMS C152 DJMS C153 DJMS C154 DJMS C155 DJMS C156 DJMS C157 DJMS C160 DJMS C161 DJMS C162 DJMS C163 DJMS C164 DJMS C165 DJMS C166 DJMS C167 DJMS C170 DJMS C171 DJMS C172 DJMS C173 DJMS C174 DJMS C175 DJMS C176 DATA 0' C40: INC E,D30 ; ' ' INC D30,D30 INC D20,X C41: INC E,D13 ; '!' INC D13,D13 INC D13,B0M3 INC B0M3,B0M3 INC D0M3,B00 INC D30,D30 INC D10,X C42: INC E,D13 ; '"' INC D13,D03 INC D03,B1M3 INC D23,B1M3 INC D3M3,D2M3 INC D0M3,X C43: INC E,B13 ; '#' INC B13,B13 INC B13,DM2M3 INC DM1M1,B30 INC B20,B20 INC D02,D02 INC BM1M3,BM1M3 INC BM1M3,BM1M3 INC DM23,DM21 INC B30,B20 INC B20,D2M3 INC D2M1,X C44: INC E,D02 ; '$' INC B2M2,B20 INC B20,B22 INC B02,BM21 INC BM21,BM21 INC BM21,B02 INC B22,B20 INC B20,B2M2 INC DM33,DM12 INC B0M3,B0M3 INC B0M3,B0M3 INC B0M3,B0M3 INC D33,D20 INC D20,X C45: INC E,B23 ; '%' INC B23,B23 INC B23,DM3M2 INC DM10,BM11 INC BM10,BM1M1 INC B0M2,B1M1 INC B10,B11 INC B02,D0M3 INC D0M3,B11 INC B10,B1M1 INC B0M2,BM1M1 INC BM10,BM11 INC B02,D3M2 INC D3M2,D10 INC X,X C46: INC E,D02 ; '&' INC B02,B23 INC B23,B01 INC BM11,BM10 INC BM1M1,B0M1 INC B2M3,B2M3 INC B2M3,D13 INC BM2M2,BM2M2 INC BM20,BM22 INC D3M2,D30 INC D30,D20 INC X,X C47: INC E,D33 ; ''' INC D03,D03 INC B23,D3M3 INC D3M3,D0M3 INC D0M3,X C50: INC E,D33 ; '(' INC D33,D03 INC D03,BM2M1 INC BM1M2,B0M3 INC B0M3,B1M2 INC B2M1,D30 INC D20,X C51: INC E,D13 ; ')' INC D13,D03 INC D03,B2M1 INC B1M2,B0M3 INC B0M3,BM1M2 INC BM2M1,D30 INC D30,D30 INC X,X C52: INC E,D23 ; '*' INC B23,B23 INC DM20,DM20 INC B2M3,B2M3 INC D13,BM30 INC BM30,D3M3 INC D3M3,D30 INC D10,X C53: INC E,D32 ; '+' INC D11,B03 INC B03,DM3M3 INC B30,B30 INC D3M3,D1M3 INC X,X C54: INC E,D3M3 ; ',' INC D10,B13 INC B01,BM10 INC B0M1,B10 INC D30,D30 INC X,X C55: INC E,D13 ; '-' INC D13,B20 INC B20,D3M3 INC D2M3,X C56: INC E,D20 ; '.' INC D20,B01 INC B10,B0M1 INC BM10,D30 INC D30,D10 INC X,X C57: INC E,B23 ; '/' INC B23,B23 INC B23,D3M3 INC D0M3,D0M3 INC D0M3,X C60: INC E,D03 ; '0' INC B03,B03 INC B23,B20 INC B20,B2M3 INC B0M3,B0M3 INC BM2M3,BM20 INC BM20,BM23 INC D0M3,B23 INC B23,B23 INC B23,D3M3 INC D0M3,D0M3 INC D0M3,X C61: INC E,D33 ; '1' INC D03,D02 INC D02,B12 INC B10,B0M3 INC B0M3,B0M3 INC B0M3,DM20 INC B20,B20 INC D20,D20 INC X,X C62: INC E,D03 ; '2' INC D03,D03 INC B23,B20 INC B20,B2M3 INC B0M2,BM2M1 INC BM2M1,BM2M1 INC BM2M1,B0M3 INC B30,B30 INC B20,D30 INC X,X C63: INC E,D03 ; '3' INC B2M3,B20 INC B20,B23 INC B01,BM32 INC B32,B01 INC BM23,BM20 INC BM20,BM2M3 INC D3M3,D3M3 INC D3M3,D20 INC X,X C64: INC E,D30 ; '4' INC D20,B03 INC B03,B03 INC B03,BM10 INC BM2M3,BM2M3 INC B0M1,B30 INC B30,B20 INC D3M3,D0M2 INC X,X C65: INC E,D02 ; '5' INC B2M2,B20 INC B20,B22 INC B02,B02 INC BM22,BM30 INC BM30,B02 INC B02,B30 INC B20,B20 INC D3M3,D1M3 INC D0M3,D0M3 INC X,X C66: INC E,D20 ; '6' INC BM22,B03 INC B02,B02 INC B23,B20 INC B20,B2M3 INC DM3M2,DM3M2 INC DM20,B22 INC B20,B20 INC B2M2,B0M3 INC BM2M2,BM20 INC BM20,D30 INC D30,D30 INC X,X C67: INC E,D03 ; '7' INC D03,D03 INC B13,B30 INC B20,B20 INC BM1M3,BM1M3 INC BM1M3,BM1M3 INC D30,D20 INC D20,X C70: INC E,D20 ; '8' INC BM22,B02 INC B22,B20 INC B20,B22 INC B02,BM22 INC BM20,BM20 INC BM2M2,B0M2 INC B2M2,D20 INC D20,B2M2 INC B0M2,BM2M2 INC BM20,BM20 INC D30,D30 INC D30,X C71: INC E,D03 ; '9' INC B2M3,B20 INC B20,B23 INC B03,B02 INC B02,BM22 INC BM20,BM20 INC BM2M2,B0M3 INC B2M2,B20 INC B20,B22 INC D3M3,D0M2 INC D0M2,X C72: INC E,D20 ; ':' INC D20,B01 INC B10,B0M1 INC BM10,D02 INC D02,B01 INC B10,B0M1 INC BM10,D3M3 INC D3M1,D10 INC X,X C73: INC E,D3M3 ; ';' INC D10,B13 INC B01,BM10 INC B0M1,B10 INC D02,D02 INC B01,BM10 INC B0M1,B10 INC D3M2,D3M2 INC X,X C74: INC E,D31 ; '<' INC D31,BM22 INC BM22,B22 INC B22,D3M3 INC D2M3,D0M2 INC D0M2,X C75: INC E,D23 ; '=' INC D02,B20 INC B20,D02 INC BM20,BM20 INC D3M3,D3M3 INC D3M1,X C76: INC E,D22 ; '>' INC B22,B22 INC BM22,BM22 INC D3M3,D3M3 INC D3M3,D0M1 INC X,X C77: INC E,D03 ; '?' INC D03,D03 INC B23,B20 INC B20,B2M3 INC B0M2,BM2M2 INC BM2M2,B0M1 INC D0M2,B00 INC D30,D20 INC D20,X C100: INC E,D33 ; '@' INC D33,D21 INC BM21,BM20 INC BM2M1,B0M3 INC B2M1,B20 INC B21,B03 INC B01,BM13 INC BM11,BM20 INC BM20,BM1M1 INC BM1M3,B0M2 INC B0M2,B1M3 INC B1M1,B20 INC B20,B22 INC D3M2,X C101: INC E,B13 ; 'A' INC B13,B13 INC B13,B1M3 INC B1M3,B1M3 INC B1M3,DM13 INC BM30,BM30 INC D3M3,D30 INC D30,D10 INC X,X C102: INC E,B03 ; 'B' INC B03,B03 INC B03,B30 INC B20,B3M2 INC B0M2,BM3M2 INC BM30,BM20 INC D30,D20 INC B3M2,B0M2 INC BM3M2,BM30 INC BM20,D30 INC D30,D30 INC D20,X C103: INC E,D20 ; 'C' INC BM23,B03 INC B03,B23 INC B20,B20 INC B2M3,D0M3 INC D0M3,BM2M3 INC BM20,BM20 INC D30,D30 INC D30,X C104: INC E,B03 ; 'D' INC B03,B03 INC B03,B20 INC B20,B2M1 INC B2M3,B0M2 INC B0M2,BM2M3 INC BM2M1,BM20 INC BM20,D30 INC D30,D30 INC D20,X C105: INC E,B03 ; 'E' INC B03,B03 INC B03,B30 INC B30,B20 INC DM2M3,DM1M3 INC BM30,BM20 INC D0M3,D0M3 INC B30,B30 INC B20,D30 INC X,X C106: INC E,B03 ; 'F' INC B03,B03 INC B03,B30 INC B30,B20 INC DM3M3,D0M3 INC BM30,BM20 INC D3M3,D3M3 INC D30,D20 INC X,X C107: INC E,D20 ; 'G' INC BM23,B03 INC B03,B23 INC B20,B20 INC B2M3,DM3M3 INC B30,B0M3 INC BM2M3,BM20 INC BM20,D30 INC D30,D30 INC X,X C110: INC E,B03 ; 'H' INC B03,B03 INC B03,D0M3 INC D0M3,B30 INC B30,B20 INC B03,B03 INC D0M3,D0M3 INC B0M3,B0M3 INC D30,X C111: INC E,D20 ; 'I' INC B20,B20 INC DM20,B03 INC B03,B03 INC B03,D20 INC BM20,BM20 INC D3M3,D3M3 INC D3M3,D0M3 INC X,X C112: INC E,D12 ; 'J' INC B1M2,B20 INC B12,B03 INC B03,B02 INC B02,D20 INC BM20,BM30 INC D3M3,D3M3 INC D3M3,D0M3 INC X,X C113: INC E,B03 ; 'K' INC B03,B03 INC B03,D30 INC D30,D20 INC BM3M3,BM3M3 INC BM2M2,D22 INC B3M3,B3M3 INC D30,X C114: INC E,D03 ; 'L' INC D03,D03 INC D03,B0M3 INC B0M3,B0M3 INC B0M3,B30 INC B30,B20 INC D30,X C115: INC E,B03 ; 'M' INC B03,B03 INC B03,B2M3 INC B2M3,B23 INC B23,B0M3 INC B0M3,B0M3 INC B0M3,D30 INC X,X C116: INC E,B03 ; 'N' INC B03,B03 INC B03,B2M3 INC B2M3,B2M3 INC B2M3,B03 INC B03,B03 INC B03,D3M3 INC D0M3,D0M3 INC D0M3,X C117: INC E,D03 ; 'O' INC B03,B03 INC B23,B20 INC B20,B2M3 INC B0M3,B0M3 INC BM2M3,BM20 INC BM20,BM23 INC D3M3,D30 INC D30,D20 INC X,X C120: INC E,B03 ; 'P' INC B03,B03 INC B03,B30 INC B20,B3M2 INC B0M2,BM3M2 INC BM30,BM20 INC D3M3,D3M3 INC D30,D20 INC X,X C121: INC E,D03 ; 'Q' INC B03,B03 INC B23,B20 INC B20,B2M3 INC B0M3,B0M3 INC BM2M3,BM20 INC BM20,BM23 INC D30,D20 INC B3M3,D30 INC X,X C122: INC E,B03 ; 'R' INC B03,B03 INC B03,B30 INC B20,B3M2 INC B0M2,BM3M2 INC BM30,BM20 INC D30,D20 INC B1M2,B1M2 INC B1M2,D30 INC X,X C123: INC E,D02 ; 'S' INC B2M2,B20 INC B20,B22 INC B02,BM21 INC BM21,BM21 INC BM21,B02 INC B22,B20 INC B20,B2M2 INC D3M3,D0M3 INC D0M2,D0M2 INC X,X C124: INC E,D20 ; 'T' INC D20,B03 INC B03,B03 INC B03,D20 INC D20,BM30 INC BM30,BM20 INC D3M3,D3M3 INC D3M3,D2M3 INC X,X C125: INC E,D03 ; 'U' INC D03,D03 INC D03,B0M3 INC B0M3,B0M3 INC B2M3,B20 INC B20,B23 INC B03,B03 INC B03,D3M3 INC D0M3,D0M3 INC D0M3,X C126: INC E,D03 ; 'V' INC D03,D03 INC D03,B1M3 INC B1M3,B1M3 INC B1M3,B13 INC B13,B13 INC B13,D3M3 INC D0M3,D0M3 INC D0M3,X C127: INC E,D03 ; 'W' INC D03,D03 INC D03,B0M3 INC B0M3,B0M3 INC B2M3,B10 INC B13,B1M3 INC B10,B23 INC B03,B03 INC B03,D3M3 INC D0M3,D0M3 INC D0M3,X C130: INC E,B23 ; 'X' INC B23,B23 INC B23,DM30 INC DM30,DM20 INC B2M3,B2M3 INC B2M3,B2M3 INC D30,X C131: INC E,D20 ; 'Y' INC D20,B03 INC B03,B23 INC B23,DM30 INC DM30,DM20 INC B2M3,B2M3 INC D3M3,D3M3 INC D10,X C132: INC E,D03 ; 'Z' INC D03,D03 INC D03,B30 INC B30,B20 INC BM2M3,BM2M3 INC BM2M3,BM2M3 INC B30,B30 INC B20,D30 INC X,X C133: INC E,D33 ; '[' INC D33,D03 INC D03,BM30 INC B0M3,B0M3 INC B0M3,B0M3 INC B30,D30 INC D20,X C134: INC E,D03 ; '\' INC D03,D03 INC D03,B2M3 INC B2M3,B2M3 INC B2M3,D30 INC X,X C135: INC E,D23 ; ']' INC D03,D03 INC D03,B30 INC B0M3,B0M3 INC B0M3,B0M3 INC BM30,D30 INC D30,D30 INC X,X C136: INC E,D13 ; '^' INC D03,D03 INC B32,B3M2 INC D3M3,D1M3 INC D0M3,X C137: INC E,DM1M2 ; '_' INC B30,B30 INC B30,B20 INC D12,X C140: INC E,D33 ; '`' INC D03,D03 INC D03,B2M3 INC D3M3,D3M3 INC D0M3,X C141: INC E,D13 ; 'a' INC D03,D01 INC B11,B20 INC B20,B1M1 INC B0M3,B0M2 INC B0M2,D01 INC BM2M1,BM20 INC BM21,B03 INC B21,B20 INC B2M1,D3M3 INC D1M1,X C142: INC E,D10 ; 'b' INC B03,B03 INC B03,B02 INC D0M3,D0M2 INC B22,B20 INC B2M2,B0M2 INC B0M2,BM2M2 INC BM20,BM22 INC D3M2,D30 INC D30,D10 INC X,X C143: INC E,D33 ; 'c' INC D33,D10 INC BM22,BM20 INC BM2M2,B0M2 INC B0M2,B2M2 INC B20,B22 INC D3M2,D10 INC X,X C144: INC E,D33 ; 'd' INC D33,D13 INC D02,B0M3 INC B0M3,B0M3 INC B0M2,D02 INC BM2M2,BM20 INC BM22,B02 INC B02,B22 INC B20,B2M2 INC D3M3,D1M3 INC X,X C145: INC E,D12 ; 'e' INC D02,B30 INC B30,B02 INC BM22,BM20 INC BM2M2,B0M2 INC B0M2,B2M2 INC B20,B22 INC D2M1,D2M1 INC X,X C146: INC E,D10 ; 'f' INC B03,B03 INC B03,B22 INC B20,B2M2 INC B0M1,DM3M2 INC BM30,D3M3 INC D3M3,D20 INC D20,X C147: INC E,D1M1 ; 'g' INC B2M2,B20 INC B22,B03 INC B03,B03 INC D0M2,BM22 INC BM20,BM2M2 INC B0M2,B0M2 INC B2M2,B20 INC B22,D2M1 INC D2M1,X C150: INC E,D10 ; 'h' INC B03,B03 INC B03,B02 INC D0M3,D0M2 INC B22,B20 INC B2M2,B0M3 INC B0M3,D30 INC D10,X C151: INC E,D3M1 ; 'i' INC D20,BM11 INC B03,B03 INC B02,D02 INC B00,D3M3 INC D3M3,D1M3 INC D0M1,X C152: INC E,D2M1 ; 'j' INC B1M2,B10 INC B12,B03 INC B03,B03 INC D02,B00 INC D3M3,D3M3 INC D0M2,D0M2 INC X,X C153: INC E,D10 ; 'k' INC B03,B03 INC B03,B02 INC D3M3,D30 INC BM2M1,BM2M1 INC BM2M1,D21 INC B2M3,B2M3 INC D20,D20 INC X,X C154: INC E,D33 ; 'l' INC D13,D03 INC D02,B0M3 INC B0M3,B0M3 INC B0M2,B1M1 INC D31,D30 INC X,X C155: INC E,B03 ; 'm' INC B02,B02 INC B11,B10 INC B2M3,B23 INC B10,B1M1 INC B0M3,B0M2 INC B0M2,D30 INC X,X C156: INC E,D10 ; 'n' INC B03,B03 INC B02,D0M2 INC B22,B20 INC B2M2,B0M3 INC B0M3,D30 INC D10,X C157: INC E,D12 ; 'o' INC B02,B02 INC B22,B20 INC B2M2,B0M2 INC B0M2,BM2M2 INC BM20,BM22 INC D3M2,D30 INC D20,D20 INC X,X C160: INC E,D1M3 ; 'p' INC B03,B03 INC B03,B02 INC D0M2,B22 INC B20,B2M2 INC B0M2,B0M2 INC BM2M2,BM20 INC BM22,D3M2 INC D30,D20 INC D20,X C161: INC E,D12 ; 'q' INC B02,B02 INC B22,B20 INC B2M2,D02 INC B0M3,B0M3 INC B0M3,B0M2 INC D03,D02 INC BM2M2,BM20 INC BM22,D3M2 INC D30,D20 INC D20,X C162: INC E,D10 ; 'r' INC B03,B03 INC B02,D0M2 INC B22,B20 INC B2M2,D3M3 INC D1M3,X C163: INC E,D12 ; 's' INC B2M2,B20 INC B22,B01 INC BM31,BM31 INC B01,B22 INC B20,B2M2 INC D3M3,D1M3 INC X,X C164: INC E,D33 ; 't' INC D33,D02 INC BM20,BM20 INC D23,B0M3 INC B0M3,B0M3 INC B0M2,B1M1 INC D31,D30 INC X,X C165: INC E,D13 ; 'u' INC D03,D02 INC B0M3,B0M3 INC B2M2,B20 INC B22,B03 INC B03,D0M3 INC D0M3,B0M2 INC D20,D20 INC X,X C166: INC E,D13 ; 'v' INC D03,D02 INC B0M2,B1M3 INC B1M3,B20 INC B13,B13 INC B02,D3M3 INC D1M3,D0M2 INC X,X C167: INC E,D03 ; 'w' INC D03,D02 INC B0M3,B0M3 INC B1M2,B10 INC B23,B2M3 INC B10,B12 INC B03,B03 INC D3M3,D0M3 INC D0M2,X C170: INC E,D10 ; 'x' INC B23,B22 INC B23,DM30 INC DM30,B2M3 INC B2M2,B2M3 INC D20,D20 INC X,X C171: INC E,D1M1 ; 'y' INC B2M2,B20 INC B22,B03 INC B03,B03 INC DM30,DM30 INC B0M3,B0M3 INC B2M2,B20 INC B22,D3M2 INC D10,X C172: INC E,D13 ; 'z' INC D03,D02 INC B30,B30 INC BM2M3,BM2M2 INC BM2M3,B30 INC B30,D20 INC D20,X C173: INC E,D33 ; '{' INC D33,D03 INC D03,BM10 INC BM1M1,B0M2 INC B0M2,BM1M1 INC B1M1,B0M2 INC B0M2,B1M1 INC B10,D30 INC D20,X C174: INC E,D13 ; '|' INC D13,D13 INC D13,D03 INC B0M3,B0M3 INC B0M3,B0M3 INC B0M3,B0M3 INC D33,D30 INC D10,X C175: INC E,D23 ; '}' INC D03,D03 INC D03,B10 INC B1M1,B0M2 INC B0M2,B1M1 INC BM1M1,B0M2 INC B0M2,BM1M1 INC BM10,D30 INC D30,D30 INC X,X C176: INC E,D13 ; '~' INC D03,D03 INC B22,B2M2 INC B22,D3M3 INC D1M3,D0M3 INC D0M2,X END