diff --git a/I650/650_test.ini b/I650/650_test.ini index 53acb3a0..ce1a0c85 100644 --- a/I650/650_test.ini +++ b/I650/650_test.ini @@ -1,14 +1,29 @@ cd sw -; set debug -n debug.txt +; set console -n log=console.txt ; set debug stdout +; set debug -n debug.txt ; set cpu debug=cmd;data;detail +; uncomment any of them to simulate ibm 650 real speed ; set throttle 11k +; set throttle 55/5 + do Build_soap_from_source.ini -do soap_and_run.ini soap_example_1_src.txt 1000 -do Build_is_from_decks.ini ntr lbox -do is_run.ini is_example_1_src.txt +set env -P "Press enter to continue . . . " +do soap_and_run.ini soap_example_1_src.txt 1000 +set env -P "Press enter to continue . . . " + +do Build_is_from_decks.ini ntr lbox +set env -P "Press enter to continue . . . " + +do is_run.ini is_example_1_src.txt +set env -P "Press enter to continue . . . " + +do it_run.ini it_example_1_src.txt it_example_1_data.txt deck_out.dck +set env -P "Press enter to continue . . . " + +do it_run.ini it_example_2_src.txt nul deck_out.dck diff --git a/I650/i650_cdp.c b/I650/i650_cdp.c index 5b10c3fa..cf36f54d 100644 --- a/I650/i650_cdp.c +++ b/I650/i650_cdp.c @@ -32,7 +32,7 @@ #include "i650_defs.h" #include "sim_card.h" -#define UNIT_CDP UNIT_ATTABLE | MODE_026 +#define UNIT_CDP UNIT_ATTABLE | MODE_026 | MODE_LOWER /* std devices. data structures @@ -77,13 +77,6 @@ DEVICE cdp_dev = { NULL, NULL, &cdp_help, NULL, NULL, &cdp_description }; -static struct card_wirings wirings[] = { - {WIRING_8WORD, "8WORD"}, - {WIRING_SOAP, "SOAP"}, - {WIRING_IS, "IS"}, - {0, 0}, -}; - // vars where card is encoded for punching char card_buf[120]; int card_nbuf; @@ -116,13 +109,23 @@ void encode_lpt_num(t_int64 d, int l) { char s[20]; int i,n; + char pad; + if (l < 0) { + l=-l; pad = ' '; // if l < 0 pad with space + } else { + pad = '0'; // if l > 0 pag with zero + } d=AbsWord(d); for (i=9;i>=0;i--) { n = (int) (d % 10); d = d / 10; s[i] = '0' + n; } + if (pad == ' ') for(i=0;i<9;i++) { + if (s[i] != '0') break; + s[i] = ' '; + } s[10] = 0; encode_lpt_str(&s[10-l]); } @@ -131,6 +134,7 @@ void encode_lpt_num(t_int64 d, int l) #define wf_NN_NNNN_NNNNs 1 #define wf_sN_NNNNNNN_NN 3 #define wf_sN_NNN_NNN_NNN 4 +#define wf_nnnnnnnnnNs 5 void encode_lpt_word(t_int64 d, int NegZero, int wFormat) { @@ -154,6 +158,9 @@ void encode_lpt_word(t_int64 d, int NegZero, int wFormat) n = Shift_Digits(&d, 3); encode_lpt_num(n, 3); encode_lpt_spc(1); n = Shift_Digits(&d, 3); encode_lpt_num(n, 3); encode_lpt_spc(1); n = Shift_Digits(&d, 3); encode_lpt_num(n, 3); + } else if (wFormat == wf_nnnnnnnnnNs) { + encode_lpt_num(d,-10); // replace leading zeroes by spaces + encode_char(0, neg ? '-':' '); } else { // default: wFormat == wf_NNNNNNNNNNs encode_lpt_num(d,10); encode_char(0, neg ? '-':' '); @@ -164,6 +171,8 @@ void encode_lpt_word(t_int64 d, int NegZero, int wFormat) // if d negative, sign on last digit (units digit) // if bSetHiPuch=1, set HiPunch on last digit. // if bSetHiPuch=2, set HiPunch on last digit and on second digit. +// if bSetHiPuch=3, set HiPunch on third digit +// if last digit is negative, never set HiPunch even if asked for (a card column cannot have both X(11) and Y(12) punched) void sprintf_word(char * pch_word, t_int64 d, int NegZero, int bSetHiPuch) { int i,n,neg, hi; @@ -178,8 +187,9 @@ void sprintf_word(char * pch_word, t_int64 d, int NegZero, int bSetHiPuch) } for (i=9;i>=0;i--) { hi = 0; - if ((i==1) && (bSetHiPuch == 2)) hi = 1; // Set Hi Punch on second digit - if ((i==9) && (bSetHiPuch > 0)) hi = 1; // Set Hi Punch on last digit (units digit) + if ((i==1) && (bSetHiPuch == 2)) hi = 1; // Set Hi Punch on second digit + if ((i==2) && (bSetHiPuch == 3)) hi = 1; // Set Hi Punch on third digit + if ((i==9) && ( (bSetHiPuch == 1) || (bSetHiPuch == 2) ) && (neg == 0)) hi = 1; // Set Hi Punch on last digit (units digit) n = (int) (d % 10); d = d / 10; n = n + hi * 10; @@ -226,6 +236,7 @@ void encode_soap_wiring(int addr) // encode soap card simulating soap control panel wiring for 533 // from SOAP II manual at http://www.bitsavers.org/pdf/ibm/650/24-4000-0_SOAPII.pdf // storage in output block + // +-------------------+ // Word 1977: | <- Location -> | Alphabetic // 1978: | <- Data Addr -> | Alphabetic // 1979: | <- Inst Addr -> | Alphabetic @@ -351,16 +362,20 @@ void encode_soap_wiring(int addr) encode_lpt_num(pat2, 4); encode_lpt_spc(5); } - } else if (ty == 1) { - // print coment line - encode_lpt_str("1"); + } else if ((ty == 1) || (ty == 5)) { + // print coment for card type 1 (SOAP II) or type 5 (SOAP modified for IT) + encode_char(0, '0' + ty); encode_lpt_spc(14); encode_lpt_str(loc); encode_lpt_str(OpCode); encode_lpt_str(data_addr); encode_lpt_str(Data_Tag); encode_lpt_str(inst_addr); encode_lpt_str(Instr_Tag); encode_lpt_str(rem1); encode_lpt_str(rem2); } else { - encode_lpt_spc(1); + if (ty == 0) { + encode_lpt_spc(1); + } else { + encode_char(0, '0' + ty); + } encode_lpt_str(loc); encode_lpt_spc(2); encode_char(0, neg ? '-':' '); encode_lpt_spc(1); encode_lpt_str(OpCode); encode_lpt_spc(3); @@ -512,6 +527,162 @@ void encode_is_wiring(int addr) } } +void encode_it_wiring(int addr) +{ + // encode card for IT compiler modified soap + // from IT manual at http://www.bitsavers.org/pdf/ibm/650/CarnegieInternalTranslator.pdf + // storage in output block + // +-------------------+ + // Word 1977: | <- Loc. Label -> | Alphabetic + // 1978: | <- Op Code -> | Alphabetic + // 1979: | <- Data Addr -> | Alphabetic + // 1980: | <- Inst Addr -> | Alphabetic + // 1981: | <- Remarks -> | Alphabetic + // 1982: | <- Remarks -> | Alphabetic + // +-------------------+ + // 1983: | | Not Used + // 1984: | | Not Used + // +-------------------+ + // 1985: | |N N N N| | N N N N=Card Number + // 1986: |a|b|c|d|e|f|g|h|i|j| a = 0/8 =8 -> reservation card + // b = 0/8 (regional setting) =0 -> card type 3, =8 -> card type 4 + // c = 0/8 + // d = 0/8 =8 -> negative value + // e = 0/8 + // f = 0/8 + // g = 0/8 =8 -> punching a PIT card + // h = 0/8 =8 -> type 1 data out format + // i = 0/8 + // j = 0/8 + // + // SIT printout format + // | Card Num | Ty | Location | Sg | OpCode | Data Addr | Instr Addr | Remarks + // SIT punch format is SOAP source card format + // Column: 41 | 42 | 43 44 45 46 47 | 48 49 50 | 51 52 53 54 55 | 56 | 57 58 59 60 61 | 62 | 63 64 65 66 67 68 69 70 71 72 + // Ty | Sg | Location | OpCode | Data Addr | | Instr Addr | | Remarks + // + // Ty = Type = blank, 3 or 4 (regional setting) + // Sg = sign = blank or - + // + // If word 1986 contains 8 in digit h, it is a type 1 data out card format + // +----+------+-------+ + // Word 1977: | VV | +NNN | SSSS | IT variable 1 + // 1978: | Word | + // +-------------------+ + // 1979: | | IT variable 2 (zero if none) + // 1980: | | + // +-------------------+ + // 1981: | | IT variable 3 + // 1982: | | + // +-------------------+ + // 1983: | | IT variable 4 + // 1984: | | + // +-------------------+ + // 1985: | | Not used + // 1986: |8|0|0|0|0|0|8|8|0|0| control word for type 1 data out card + // + // VV = IT variable being punched: 01 -> I type, 02 -> Y type, 03 -> C type + // + N N N = variable number (I5 -> 01 0005). + means zoro with Y(12) overpunch + // S S S S = statement number of IT source program where TYPE command that generates the card is + // Word = value from IT variable. If type I, is an integer. If type C or Y + // type is word is float (M MMMMMMM EE -> M=mantisa, EE=exponent) + // can be is negative (X(11) overpunch in last digit) + // up to 4 pairs var-word per card + // leading zeroes of each word are replaced by spaces + + char pch_word[20]; + char loc[6], data_addr[6], inst_addr[6], OpCode[6], rem1[6], rem2[6]; + t_int64 d; + int CardNum, ty; + int b, neg, b_pit, b_reg, b_resv, b_data; // punch control flags + int i; + + word_to_ascii(loc, 1, 5, DRUM[addr + 0]); + word_to_ascii(OpCode, 1, 3, DRUM[addr + 1]); + word_to_ascii(data_addr, 1, 5, DRUM[addr + 2]); + word_to_ascii(inst_addr, 1, 5, DRUM[addr + 3]); + word_to_ascii(rem1, 1, 5, DRUM[addr + 4]); + word_to_ascii(rem2, 1, 5, DRUM[addr + 5]); + CardNum = (int) ((DRUM[addr + 8] / D4) % D4); + d = DRUM[addr + 9]; + b = ((int) (d % 10) == 8) ? 1:0; d = d / 10; + b = ((int) (d % 10) == 8) ? 1:0; d = d / 10; + b_data = ((int) (d % 10) == 8) ? 1:0; d = d / 10; + b_pit = ((int) (d % 10) == 8) ? 1:0; d = d / 10; + b = ((int) (d % 10) == 8) ? 1:0; d = d / 10; + b = ((int) (d % 10) == 8) ? 1:0; d = d / 10; + neg = ((int) (d % 10) == 8) ? 1:0; d = d / 10; + b = ((int) (d % 10) == 8) ? 1:0; d = d / 10; + b_reg = ((int) (d % 10) == 8) ? 1:0; d = d / 10; + b_resv = ((int) (d % 10) == 8) ? 1:0; d = d / 10; + + // printf("bits %06d%04d%c ", printfw(DRUM[addr + 9])); // to echo the status digits of punched card + + // generate card + if (b_data) { + // punch type 1 data out card + for (i=0;i<4;i++) { + sprintf_word(pch_word, DRUM[addr + i*2+0], 0, (i==0) ? 3:0); // punch variable name + encode_pch_str(pch_word); + sprintf_word(pch_word, DRUM[addr + i*2+1], 0, (i==0) ? 3:0); // punch variable value + encode_pch_str(pch_word); + if (DRUM[addr + i*2+2] == 0) break; // if next word is zero, no more variables to punch + } + } else { + // punch SOAP source instruction + for(i=0;i<40;i++) encode_pch_str(" "); // leave 40 first columns blank + if (b_resv) { + if (b_reg) { + ty = 4; + } else { + ty = 3; + } + } else { + ty = 0; + } + encode_char(ty == 0 ? ' ' : '0'+ty, 0); + encode_char(neg == 0 ? ' ' : '-', 0); + encode_pch_str(loc); + encode_pch_str(OpCode); + encode_pch_str(data_addr); + encode_pch_str(" "); + encode_pch_str(inst_addr); + encode_pch_str(" "); + encode_pch_str(rem1); + encode_pch_str(rem2); + // convert to lowercase for punching + for (i=40;i= 'A') && (card_buf[i] <= 'Z')) + card_buf[i] = card_buf[i] - 'A' + 'a'; + card_buf[card_nbuf] = 0; + } + + // generate printout + if (b_data) { + // print type 1 data out card. replace leading zeroes by spaces on each word + for (i=0;i<4;i++) { + encode_lpt_word(DRUM[addr + i*2+0], 0, wf_nnnnnnnnnNs); // print variable name + encode_lpt_spc(1); + encode_lpt_word(DRUM[addr + i*2+1], 0, wf_nnnnnnnnnNs); // print variable value + encode_lpt_spc(1); + if (DRUM[addr + i*2+2] == 0) break; // if next word is zero, no more variables to punch + } + } else { + // print generated soap source listing + encode_lpt_spc(2); + encode_lpt_num(CardNum, -4); + encode_lpt_spc(2); + encode_char(0, ty == 0 ? ' ' : '0'+ty); + encode_lpt_spc(2); + encode_lpt_str(loc); + encode_lpt_spc(2); encode_char(0, neg ? '-':' '); encode_lpt_spc(1); + encode_lpt_str(OpCode); encode_lpt_spc(3); + encode_lpt_str(data_addr); encode_lpt_spc(1); encode_lpt_spc(2); + encode_lpt_str(inst_addr); encode_lpt_spc(6); + encode_lpt_str(rem1); encode_lpt_str(rem2); + } +} + /* Card punch routine */ uint32 cdp_cmd(UNIT * uptr, uint16 cmd, uint16 addr) { @@ -525,7 +696,7 @@ uint32 cdp_cmd(UNIT * uptr, uint16 cmd, uint16 addr) /* Test ready */ if ((uptr->flags & UNIT_ATT) == 0) { - sim_debug(DEBUG_CMD, &cdp_dev, "No cards (no file attached)\r\n"); + sim_debug(DEBUG_CMD, &cdp_dev, "No cards (no file attached)\n"); return SCPE_NOCARDS; } @@ -539,8 +710,11 @@ uint32 cdp_cmd(UNIT * uptr, uint16 cmd, uint16 addr) // encode soap card simulating soap control panel wiring for 533 (gasp!) encode_soap_wiring(addr); } else if (wiring == WIRING_IS) { - // encode it card + // encode floating point interpretive system (bell interpreter) card encode_is_wiring(addr); + } else if (wiring == WIRING_IT) { + // encode Carnegie Internal Translator compiler card + encode_it_wiring(addr); } else if (wiring == WIRING_8WORD) { // encode 8 words per card encode_8word_wiring(addr); @@ -561,14 +735,14 @@ uint32 cdp_cmd(UNIT * uptr, uint16 cmd, uint16 addr) if (uptr->flags & UNIT_CARD_PRINT) { // printout will be directed to file attached to CDP0 unit, if any if (cdp_unit[0].flags & UNIT_ATT) { - sim_fwrite(&card_lpt, 1, card_nlpt, cdp_unit[0].fileref); + sim_fwrite(card_lpt, 1, card_nlpt, cdp_unit[0].fileref); } } } // trim right spaces for printing punch card card_buf[card_nbuf] = 0; - sim_debug(DEBUG_DETAIL, &cpu_dev, "Punch Card: %s\r\n", card_buf); + sim_debug(DEBUG_DETAIL, &cpu_dev, "Punch Card: %s\n", card_buf); /* punch the cards */ data = (struct _card_data *)uptr->up7; @@ -588,10 +762,10 @@ uint32 cdp_cmd(UNIT * uptr, uint16 cmd, uint16 addr) } } sim_punch_card(uptr, NULL); - sim_debug(DEBUG_CMD, &cdp_dev, "PUNCH\r\n"); + sim_debug(DEBUG_CMD, &cdp_dev, "PUNCH\n"); uptr->u5 |= URCSTA_BUSY; - uptr->u4 = 0; - + uptr->u6++; // incr number of punched cards + uptr->u5 &= ~URCSTA_BUSY; return SCPE_OK; @@ -694,9 +868,11 @@ cdp_attach(UNIT * uptr, CONST char *file) { t_stat r; - if ((r = sim_card_attach(uptr, file)) != SCPE_OK) - return r; + r = sim_card_attach(uptr, file); + if (SCPE_BARE_STATUS(r) != SCPE_OK) + return r; uptr->u5 = 0; + uptr->u6 = 0; // u6 = number of cards punched return SCPE_OK; } diff --git a/I650/i650_cdr.c b/I650/i650_cdr.c index 3295a0b2..c0aa8de3 100644 --- a/I650/i650_cdr.c +++ b/I650/i650_cdr.c @@ -32,7 +32,7 @@ #include "i650_defs.h" #include "sim_card.h" -#define UNIT_CDR UNIT_ATTABLE | UNIT_RO | MODE_026 +#define UNIT_CDR UNIT_ATTABLE | UNIT_RO | MODE_026 | MODE_LOWER /* std devices. data structures @@ -54,9 +54,9 @@ t_stat cdr_set_wiring (UNIT *uptr, int32 val, CONST char *cptr, voi t_stat cdr_show_wiring (FILE *st, UNIT *uptr, int32 val, CONST void *desc); UNIT cdr_unit[] = { - {UDATA(cdr_srv, UNIT_CDR, 0), 300}, // 4 readers. Unit 0 not used - {UDATA(cdr_srv, UNIT_CDR, 0), 300}, - {UDATA(cdr_srv, UNIT_CDR, 0), 300}, + {UDATA(cdr_srv, UNIT_CDR, 0), 300}, // Unit 0 used internally for carddeck operations simulator specific command + {UDATA(cdr_srv, UNIT_CDR, 0), 300}, // unit 1 is default for initial model (1954) + {UDATA(cdr_srv, UNIT_CDR, 0), 300}, // storage unit (1955) allows two extra card/readers for a total of 3 {UDATA(cdr_srv, UNIT_CDR, 0), 300}, }; @@ -74,89 +74,106 @@ DEVICE cdr_dev = { NULL, NULL, &cdr_help, NULL, NULL, &cdr_description }; -static struct card_wirings wirings[] = { - {WIRING_8WORD, "8WORD"}, - {WIRING_SOAP, "SOAP"}, - {WIRING_IS, "IS"}, - {0, 0}, -}; - -// decode digit 0-9 read from card to get value and X(11) and Y(12) punch state (minus/HiPunch) -// return -1 if not a digit number -int decode_digit(char c1, int * HiPunch, int * NegPunch) -{ - int i,n; - - *HiPunch = *NegPunch = 0; - // N is 0..9 or ?A..I (0..9 with Y(12) High Punch set) - // or !J..R (0..9 with X(11) Minus Punch set). - // or &S..Z# (0..9 with both X(11) and Y(12) Punch set). - - if (c1 == 32) return 0; // space read as zero - for (i=0; i<40; i++) { - if (c1 == digits_ascii[i]) { - n = i % 10; - i = i / 10; - *HiPunch = (i & 1); - *NegPunch = (i >> 1); - return n; - } - } - return -1; // not a valid digit -} - -// get 10 digits word from buf, with sign. return 1 if HiPunch set on any digit -int decode_8word_wiring(char * buf, int addr) +// get 10 digits word with sign from card buf (the data struct). return 1 if HiPunch set on any digit +int decode_8word_wiring(struct _card_data * data, int addr) { // decode up to 8 numerical words per card // input card // NNNNNNNNNN ... 8 times - // N is 0..9 or ?A..I (0..9 with Y(12) High Punch set) - // or !J..R (0..9 with X(11) Minus Punch set). - // or &S..Z# (0..9 with both X(11) and Y(12) Punch set). // If last digit of word has X(11) punch whole word is set as negative value - // If N is a space, a 0 is assumed + // If N is non numeric, a 0 is assumed // put the decoded data in drum at addr (if addr < 0 -> do not store in drum) // return 1 if any colum has Y(12) hi-punch set - int c1,c2,wn,eor,iCol; - int HiPunch, hip; - int NegPunch, NegZero; - int nDigits; + uint16 c1,c2; + int wn,iCol,iDigit; + int HiPunch, NegPunch, NegZero; t_int64 d; - NegZero = 0; // flag set if negative zero is read - HiPunch = 0; // set to 1 if Y(12) high punch found - eor = 0; // signals end of card record - iCol = 0; // current read colum in card - for (wn=0;wn<8;wn++) { // one card generates 8 words in drum mem - d = 0; - nDigits=0; // number of digits - while (1) { - c1 = buf[iCol++]; - if (c1 < ' ') {eor = 1; break;} // end of card - c2 = decode_digit(c1, &hip, &NegPunch); - if (hip) HiPunch = 1; // if any column has Hi Punch Y(12) set, signal it - if (c2 < 0) c2 = 0; // nondigits chars interpreted as zero - d = d * 10 + c2; - nDigits++; - if (nDigits == 10) { - // end of word - if (NegPunch) { // has last digit a minus X(11) punch set? - d = -d; // yes, change sign of word read - if (d == 0) NegZero=1; // word read is minus zero - } - break; + NegZero = 0; // flag set if negative zero is read + HiPunch = 0; // set to 1 if Y(12) high punch found + iCol = 0; // current read colum in card + for (wn=0;wn<8;wn++) { // one card generates 8 words in drum mem + d = NegPunch = 0; + // read word digits + for (iDigit=0;iDigit<10;iDigit++) { + c1 = data->image[iCol++]; + c2 = data->hol_to_ascii[c1]; // convert to ascii + if ((c1 == 0xA00) || (c2 == '?')) { + c1 = 0xA00; c2 = '?'; // the punched value +0 should be represented by ascii ? } + if ((c2 == '+') && (iCol == 1)) { // on IT control card, first char is a Y(12) punch to make control card a load card. + c1 = 0xA00; c2 = '?'; // Digit interpreted as +0 + } + if (strchr(digits_ascii, c2) == NULL) { // scan digits ascii to check if this is a valid numeric digit with Y or X punch + c1 = 0; // nondigits chars interpreted as blank + } + if (c1 & 0x800) HiPunch = 1; // if column has Hi Punch Y(12) set, signal it + NegPunch = (c1 & 0x400) ? 1:0; // if column has minus X(11) set, signal it + c1 = c1 & 0x3FF; // remove X and Y punches + c2 = data->hol_to_ascii[c1]; // convert to ascii again + c2 = c2 - '0'; // convert ascii to binary digit + if ((c2 < 0) || (c2 > 9)) c2 = 0; // nondigits chars interpreted as zero + d = d * 10 + c2; + } + // end of word. set sign + if (NegPunch) { // has last digit a minus X(11) punch set? + d = -d; // yes, change sign of word read + if (d == 0) NegZero=1; // word read is minus zero } - if (nDigits == 0) break; // no well-formed word read -> terminate card processing if (addr >= 0) WriteDrum(addr++, d, NegZero); // store word read from card into drum - if (eor) break; // end of card sensed -> terminate card processing } return HiPunch; } +// load soap symbolic info, This is a facility to help debugging of soap programs into SimH +// does not exist in real hw +void decode_soap_symb_info(struct _card_data * data, int addr) +{ + t_int64 d; + int op,da,ia,i,i2,p; + char buf[81]; + uint16 c1,c2; + + // check soap 1-word load card initial word + d = DRUM[addr + 0]; + if (d != 6919541953LL) return; // not a 1-word load card + + // get the address where the 1-word card will be loaded (into da) + d = DRUM[addr+2]; + op = Shift_Digits(&d, 2); // current inst opcode + da = Shift_Digits(&d, 4); // addr of data + ia = Shift_Digits(&d, 4); // addr of next instr + if ((op != 24) && (ia != 8000)) return; // not a 1-word load card + if (da >= (int)MEMSIZE) return; // destination address out of range + + // convert card image punches to ascii buf for processing, starting at col 40 + // keep 026 fortran charset + for (i=40;i<80;i++) { + c1 = data->image[i]; + c2 = data->hol_to_ascii[c1]; + c2 = (strchr(mem_to_ascii, toupper(c2))) ? c2:' '; + if (c2 == '~') c2 = ' '; + buf[i] = (char) c2; + } + buf[80] = 0; // terminate string + + // copy soap symbolic info + i2 = 80; + while (1) { // calc i2 = last non space char to copy + if (--i2 < 41) return; // noting to copy + if (buf[i2] > 32) break; + } + p = da * 80; + for (i=0;i<80;i++) + DRUM_Symbolic_Buffer[p+i] = 0; // clear drum[da] symbolic info + if (i2-41 >= 80) i2 = 80-1 + 41; // only copy max 79 chars + for (i=41;i<=i2;i++) { + if ((i==47) || (i==50) || (i==55)) DRUM_Symbolic_Buffer[p++] = 32; // add space separation between op, da, ia fields + DRUM_Symbolic_Buffer[p++] = buf[i]; + } +} t_int64 decode_num_word(char * buf, int nDigits, int bSpaceIsZero) { @@ -193,7 +210,8 @@ t_int64 decode_alpha_word(char * buf, int n) return d; } -void decode_soap_wiring(char * buf, int addr) + +void decode_soap_wiring(struct _card_data * data, int addr) { // decode soap card simulating soap control panel wiring for 533 // from SOAP II manual at http://www.bitsavers.org/pdf/ibm/650/24-4000-0_SOAPII.pdf @@ -205,6 +223,7 @@ void decode_soap_wiring(char * buf, int addr) // Sg = sign = blank or - // Tg = Tag = // storage in input block + // +-------------------+ // Word 1951: | <- Location -> | Alphabetic // 1952: | <- Data Addr -> | Alphabetic // 1953: | <- Inst Addr -> | Alphabetic @@ -218,8 +237,23 @@ void decode_soap_wiring(char * buf, int addr) // 1958: | |N N N N| D Absolute Part // 1959: | |N N N N| I Absolute Part // 1960: | |T b n| T=Type (0 if Blank), b=0/8 (for non blank type), n=0/8 (for negative) + // +-------------------+ // int ty,neg; + char buf[81]; + int i; + uint16 c1,c2; + + // convert card image punches to ascii buf for processing + // keep 026 fortran charset + for (i=0;i<80;i++) { + c1 = data->image[i]; + c2 = data->hol_to_ascii[c1]; + c2 = (strchr(mem_to_ascii, toupper(c2))) ? c2:' '; + if (c2 == '~') c2 = ' '; + buf[i] = (char) c2; + } + buf[80] = 0; // terminate string DRUM[addr + 0] = decode_alpha_word(&buf[42], 5); // Location (5 chars) DRUM[addr + 1] = decode_alpha_word(&buf[50], 5); // Data Addr (5 chars) @@ -234,11 +268,13 @@ void decode_soap_wiring(char * buf, int addr) DRUM[addr + 7] = decode_num_word(&buf[51], 4, 0); // Absolute Part of Data Addr DRUM[addr + 8] = decode_num_word(&buf[57], 4, 0); // Absolute Part of Instr Addr - if (buf[40] == '1') {ty = 18; } else - if (buf[40] == '2') {ty = 28; } else {ty = 0; } + ty = buf[40] - '0'; + if ((ty < 0) || (ty > 9)) ty = 0; neg = (buf[41] == '-') ? 8:0; - DRUM[addr + 9] = ty * 10 + neg; // |T b n| T=Type (0 if Blank), b=0/8 (for non blank type), n=0/8 (for negative) + DRUM[addr + 9] = ty * 100 + + (ty ? 80:0) + + neg; // |T b n| T=Type (0 if Blank), b=0/8 (for non blank type), n=0/8 (for negative) } int sformat(char * buf, const char * match) @@ -258,18 +294,20 @@ int sformat(char * buf, const char * match) return 1; // end of match string -> return 1 -> buf matches } -void decode_is_wiring(char * buf, int addr) +void decode_is_wiring(struct _card_data * data, int addr) { // decode Floationg Decimal Interpretive System (IS) card simulating control panel wiring for 533 as described - // in manual at http://www.bitsavers.org/pdf/ibm/650/28-4024_FltDecIntrpSys + // in manual at http://www.bitsavers.org/pdf/ibm/650/28-4024_FltDecIntrpSys.pdf // input card // Column: 1 2 3 4 | 5 6 | 7 8 9 | 10 | 11 | 12 - 21 | 22 | 23 - 32 | 33 | 34 - 43 | 44 | 45 - 54 | 55 | 56 - 65 | 66 | 67 - 76 | 77 78 79 | 80 // Card | | Location | wc | s1 | Word1 | s2 | Word2 | s3 | Word3 | s4 | Word4 | s5 | Word5 | s6 | Word6 | Problem | // Num | Num // - // wc = Word Count (space for 1) - // s1 = sign of word 1 (space for +) - // Tr = Tracing identification + // wc = Word Count (range 0 to 6, space for 1) + // s1 = sign of word 1 (-, + or (same as +)) + // Tr = Tracing identification + // Word = word in format NNNNNNNNNN + // N is 0..9, (same as 0) // // Alternate input format to allow system deck loading // Column: 1 2 | 3 | 4 5 6 | 7 | 8 9 10 11 | 12 | 13 - 24 @@ -278,13 +316,13 @@ void decode_is_wiring(char * buf, int addr) // // Alternate input format to allow IT source program loading // Column: 1 2 3 4 | 5 6 | 7 8 9 | 10 | 11 | 12 - 24 - // Card | Blank | Location | | sg | N NNN NNN NNN <- This is an IT instruction (format O1 A B C) + // Card | Blank | Location | | sg | N NNN NNN NNN <- This is an IS instruction (format O1 A B C) // Num | // Column: 1 2 3 4 | 5 6 | 7 8 9 | 10 | 11 | 12 - 23 - // Card | Blank | Location | | sg | N NNNNNNN NN <- This is an IT float numeric constant (mantissa and exponent) + // Card | Blank | Location | | sg | N NNNNNNN NN <- This is an IS float numeric constant (mantissa and exponent) // Num | // Column: 1 2 3 4 | 5 6 | 7 8 9 | 10 - 23 - // Card | Blank | Location | blanks <- This is an IT transfer card (location is start of IT program) + // Card | Blank | Location | blanks <- This is an IS transfer card (location is start of IT program) // Num | // // storage in input block @@ -301,18 +339,27 @@ void decode_is_wiring(char * buf, int addr) // +-------------------+ // 1959: | Problem Number | // +-------------------+ - // input card - // WordN is 0..9, - // sign is -,+, + // // put the decoded data in drum at addr (if addr < 0 -> do not store in drum) // card number is ignored on reading int wc,neg,i; int NegZero; t_int64 d; + char buf[81]; + uint16 c1,c2; + + // convert card image punches to ascii buf for processing + // keep 0..9,+,-,, replace anything else by + for (i=0;i<80;i++) { + c1 = data->image[i]; + c2 = data->hol_to_ascii[c1]; + buf[i] = (strchr("+-0123456789", c2)) ? ((char) (c2)):' '; + } + buf[80] = 0; // terminate string if ( sformat(&buf[6], " ")) { - // blank card: read as all zero, one word count + // card with firsts 26 cols blank = blank card: read as all zero, one word count // this allows to have blank cards/comments card as long as the comment starts on column 27 of more DRUM[addr + 1] = 1 * D4; // word count } else if ( sformat(&buf[5], " NNN ")) { @@ -379,6 +426,80 @@ void decode_is_wiring(char * buf, int addr) } } +void decode_it_wiring(struct _card_data * data, int addr) +{ + // decode IT compiler card simulating control panel wiring for 533 + // from IT manual at http://www.bitsavers.org/pdf/ibm/650/CarnegieInternalTranslator.pdf + // source program input card + // Column: 1 2 3 4 | 5 | 6 - 42 | 43 - 70 | 71 72 | 73 - 80 | + // N N N N | + | | Statement | | Comments | + // Statement | Y(12) | | max 28 | | max 8 | + // Number | Punch | | chars | | chars | + // + // storage in input block + // +-------------------+ + // Word 0051: | <- Statement -> | Alphabetic + // 0052: | <- Statement -> | Alphabetic + // 0053: | <- Statement -> | Alphabetic + // 0054: | <- Statement -> | Alphabetic + // 0055: | <- Statement -> | Alphabetic + // 0056: | <- Statement -> | Alphabetic + // +-+-+-+-+-+-|-+-+-+-| + // 0057: | |N N N N| Statement Number + // +-+-+-+-+-+-|-+-+-+-| + // 0058: | | Not used + // 0059: | | Not used + // 0060: | | Not used + // +-------------------+ + // + // type 1 data input card + // Column: 1 2 | 3 | 4 5 6 | 7 8 9 10 | 11 - 20 | + // VV | + | N N N | D D D D | Word + // | Y(12) | + // | Punch | + // VV = IT variable being loaded: 01 -> I type, 02 -> Y type, 03 -> C type + // N N N = variable number (I5 -> 01 + 005) + // D D D D = variable arbitrary non-zero identification number + // Word = word to be loaded into IT variable. If type I, is an integer. If type C or Y + // type is word is float (M MMMMMMM EE -> M=mantisa, EE=exponent) + // if word is negative, last digit get X(11) overpunch + // up to 4 pairs var-word per card + // last card signaed with a X(11) overpunch in col 10 + // space is considered as zero + // type 2 data input card is a load card. No spaces are allowed + + char buf[81]; + int i; + uint16 c1,c2; + + // convert card image punches to ascii buf for processing + // keep 026 fortran charset + for (i=0;i<80;i++) { + c1 = data->image[i]; + c2 = data->hol_to_ascii[c1]; + c2 = (strchr(mem_to_ascii, toupper(c2))) ? c2:' '; + if (c2 == '~') c2 = ' '; + buf[i] = (char) c2; + } + buf[80] = 0; // terminate string + + if (buf[2] == '+') { + // type 1 data card + // re-read as 8 word per card + decode_8word_wiring(data, addr); + return; + } + DRUM[addr + 0] = decode_alpha_word(&buf[42], 5); // Statement (5 chars) + DRUM[addr + 1] = decode_alpha_word(&buf[47], 5); // Statement (5 chars) + DRUM[addr + 2] = decode_alpha_word(&buf[52], 5); // Statement (5 chars) + DRUM[addr + 3] = decode_alpha_word(&buf[57], 5); // Statement (5 chars) + DRUM[addr + 4] = decode_alpha_word(&buf[62], 5); // Statement (5 chars) + DRUM[addr + 5] = decode_alpha_word(&buf[67], 3); // Statement (3 chars) + + DRUM[addr + 6] = decode_num_word(&buf[0], 4, 1); // Statement Number (space is read as digit zero) + +} + /* @@ -386,11 +507,10 @@ void decode_is_wiring(char * buf, int addr) */ uint32 cdr_cmd(UNIT * uptr, uint16 cmd, uint16 addr) { - int i,c; struct _card_data *data; - char buf[81]; - int buf_len; uint32 wiring; + int i; + char cbuf[81]; /* Are we currently tranfering? */ if (uptr->u5 & URCSTA_BUSY) @@ -401,25 +521,25 @@ uint32 cdr_cmd(UNIT * uptr, uint16 cmd, uint16 addr) /* Test ready */ if ((uptr->flags & UNIT_ATT) == 0) { - sim_debug(DEBUG_CMD, &cdr_dev, "No cards (no file attached)\r\n"); + sim_debug(DEBUG_CMD, &cdr_dev, "No cards (no file attached)\n"); return SCPE_NOCARDS; } /* read the cards */ - sim_debug(DEBUG_CMD, &cdr_dev, "READ\r\n"); + sim_debug(DEBUG_CMD, &cdr_dev, "READ\n"); uptr->u5 |= URCSTA_BUSY; switch(sim_read_card(uptr)) { case SCPE_EOF: - sim_debug(DEBUG_DETAIL, &cdr_dev, "EOF\r\n"); + sim_debug(DEBUG_DETAIL, &cdr_dev, "EOF\n"); uptr->u5 = 0; return SCPE_NOCARDS; case SCPE_UNATT: - sim_debug(DEBUG_DETAIL, &cdr_dev, "Not Attached\r\n"); + sim_debug(DEBUG_DETAIL, &cdr_dev, "Not Attached\n"); uptr->u5 = 0; return SCPE_NOCARDS; case SCPE_IOERR: - sim_debug(DEBUG_DETAIL, &cdr_dev, "ERR\r\n"); + sim_debug(DEBUG_DETAIL, &cdr_dev, "ERR\n"); uptr->u5 = 0; return SCPE_NOCARDS; case SCPE_OK: @@ -428,30 +548,35 @@ uint32 cdr_cmd(UNIT * uptr, uint16 cmd, uint16 addr) data = (struct _card_data *)uptr->up7; - // make local copy of card - buf_len = data->ptr; - if (buf_len == 0) { - buf_len = data->len; - } - for (i=0;i<80;i++) { - if (i < buf_len) { - c = data->cbuff[i]; - if (c < ' ') c = ' '; - buf[i] = c; - } else { - buf[i] = ' '; - } - } - buf[80] = 0; // terminate string + // make local copy of card for debug output + for (i=0; i<80; i++) + cbuf[i] = data->hol_to_ascii[data->image[i]]; + cbuf[80] = 0; // terminate string + sim_debug(DEBUG_DETAIL, &cpu_dev, "Read Card: %s\n", sim_trim_endspc(cbuf)); - // trim right spaces for printing read card - for (i=80;i>=0;i--) if (buf[i] > 32) break; - c = buf[i+1]; buf[i+1]=0; - sim_debug(DEBUG_DETAIL, &cpu_dev, "Read Card: %s\r\n", buf); - buf[i+1]=c; + // uint16 data->image[] array that holds the actual punched rows on card + // using this codification: + // + // Row Name value in image[] comments + // + // Y 0x800 Hi Punch Y(12) + // X 0x400 Minus Punch X(11) + // 0 0x200 also called T (Ten, 10) + // 1 0x100 + // 2 0x080 + // 3 0x040 + // 4 0x020 + // 5 0x010 + // 6 0x008 + // 7 0x004 + // 8 0x002 + // 9 0x001 + // + // If several columns are punched, the values are ORed: eg char A is represented as a punch + // on row Y and row 1, so it value in image array will be 0x800 | 0x100 -> 0x900 // check if it is a load card (Y(12) = HiPunch set on any column of card) signales it - if (decode_8word_wiring(buf, -1)) { + if (decode_8word_wiring(data, -1)) { uptr->u5 |= URCSTA_LOAD; } else { uptr->u5 &= ~URCSTA_LOAD; @@ -463,16 +588,23 @@ uint32 cdr_cmd(UNIT * uptr, uint16 cmd, uint16 addr) // using the control panel wiring. if (uptr->u5 & URCSTA_LOAD) { // load card -> use 8 words per card encoding - decode_8word_wiring(buf, addr); + decode_8word_wiring(data, addr); + if (uptr->u5 & URCSTA_SOAPSYMB) { + // requested to load soap symb info + decode_soap_symb_info(data, addr); + } } else if (wiring == WIRING_SOAP) { // decode soap card simulating soap control panel wiring for 533 (gasp!) - decode_soap_wiring(buf, addr); + decode_soap_wiring(data, addr); } else if (wiring == WIRING_IS) { - // decode it card - decode_is_wiring(buf, addr); + // decode floating point interpretive system (bell interpreter) card + decode_is_wiring(data, addr); + } else if (wiring == WIRING_IT) { + // decode Carnegie Internal Translator compiler card + decode_it_wiring(data, addr); } else { // default wiring: decode up to 8 numerical words per card. Can be a load card - decode_8word_wiring(buf, addr); + decode_8word_wiring(data, addr); } uptr->u5 &= ~URCSTA_BUSY; @@ -526,11 +658,18 @@ cdr_attach(UNIT * uptr, CONST char *file) { t_stat r; - if ((r = sim_card_attach(uptr, file)) != SCPE_OK) - return r; + if (uptr->flags & UNIT_ATT) // remove current deck in read hopper before attaching + sim_card_detach(uptr); // the new one + + r = sim_card_attach(uptr, file); + if (SCPE_BARE_STATUS(r) != SCPE_OK) + return r; uptr->u5 = 0; uptr->u4 = 0; uptr->u6 = 0; + if (sim_switches & SWMASK ('L')) { /* Load Symbolic SOAP info? */ + uptr->u5 |= URCSTA_SOAPSYMB; + } return SCPE_OK; } diff --git a/I650/i650_cpu.c b/I650/i650_cpu.c index 952e323f..d1c0da9a 100644 --- a/I650/i650_cpu.c +++ b/I650/i650_cpu.c @@ -95,28 +95,28 @@ t_stat cpu_dep(t_value val, t_addr addr, UNIT * uptr, int32 sw); t_stat cpu_reset(DEVICE * dptr); t_stat cpu_set_size(UNIT * uptr, int32 val, CONST char *cptr, void *desc); t_stat cpu_help (FILE *st, DEVICE *dptr, UNIT *uptr, int32 flag, const char *cptr); +t_stat cpu_svc (UNIT *uptr); const char *cpu_description (DEVICE *dptr); -void mem_init(void); -t_int64 DRUM[MAXMEMSIZE] = {0}; -int DRUM_NegativeZeroFlag[MAXMEMSIZE] = {0}; +t_int64 DRUM[MAXMEMSIZE] = {0}; +int DRUM_NegativeZeroFlag[MAXMEMSIZE] = {0}; +char DRUM_Symbolic_Buffer[MAXMEMSIZE * 80] = {0}; // does not exists on real hw. Used to keep symbolic info // cpu registers +uint16 IC; // Added register not part of cpu. Has addr of current intr in execution, just for displaying purposes. IBM 650 has no program counter t_int64 ACC[2]; /* lower, upper accumulator. 10 digits (=one word) each*/ t_int64 DIST; /* ditributor. 10 digits */ -int OV; /* Overflow flag */ t_int64 CSW = 0; /* Console Switches, 10 digits */ -int CSWProgStop = 1; /* Console programmed stop switch */ -int CSWOverflowStop = 0; /* Console stop on overflow switch */ t_int64 PR; /* Program Register: hold current instr in execution, 10 digits*/ -int AR; /* Address Register: address references to drum */ -int AccNegativeZeroFlag = 0; // set to 1 if acc has a negative zero -int DistNegativeZeroFlag = 0; // set to 1 if distributor has a negative zero -int IC; // addr of current intr in execution, just for debugginf purposes. IBM 650 has no program counter +uint16 AR; /* Address Register: address references to drum */ +uint8 OV; /* Overflow flag */ +uint8 CSWProgStop = 1; /* Console programmed stop switch */ +uint8 CSWOverflowStop = 0; /* Console stop on overflow switch */ +uint8 HalfCycle = 0; // set to 0 for normal run, =1 to execute I-Half-cycle, =2 to execute D-half-cycle +int AccNegativeZeroFlag = 0; // set to 1 if acc has a negative zero +int DistNegativeZeroFlag = 0; // set to 1 if distributor has a negative zero -void (*sim_vm_init) (void) = &mem_init; - /* CPU data structures cpu_dev CPU device descriptor @@ -126,7 +126,7 @@ void (*sim_vm_init) (void) = &mem_init; */ UNIT cpu_unit = - { UDATA(NULL, MEMAMOUNT(0)|MODEL(0x0), 1000), 10 }; + { UDATA(&cpu_svc, MEMAMOUNT(0)|MODEL(0x0), 1000), 10 }; REG cpu_reg[] = { @@ -140,6 +140,7 @@ REG cpu_reg[] = { {HRDATAD(CSW, CSW, 64, "Console Switches"), REG_VMIO|REG_FIT}, {ORDATAD(CSWPS, CSWProgStop, 1, "Console Switch Program Stop"), REG_FIT}, {ORDATAD(CSWOS, CSWOverflowStop, 1, "Console Switch Overflow Stop"), REG_FIT}, + {ORDATAD(HALF, HalfCycle, 2, "Half Cycle"), REG_FIT}, {NULL} }; @@ -158,6 +159,15 @@ DEVICE cpu_dev = { NULL, NULL, &cpu_help, NULL, NULL, &cpu_description }; +t_stat cpu_svc (UNIT *uptr) +{ + // poll kbd to sense ^E to halt cpu execution. + sim_activate_after (uptr, 300*1000); // poll each 300 msec + sim_poll_kbd(); + return SCPE_OK; +} + + // return 0 if drum addr invalid int IsDrumAddrOk(int AR) { @@ -179,7 +189,7 @@ int WriteDrum(int AR, t_int64 d, int NegZero) int ReadDrum(int AR, t_int64 * d, int * NegZero) { if (IsDrumAddrOk(AR) == 0) return 0; - *d = DRUM[AR]; + *d = DRUM[AR]; *NegZero = DRUM_NegativeZeroFlag[AR]; if (*d) { *NegZero = 0; // sanity check on Minus Zero @@ -192,13 +202,15 @@ int ReadDrum(int AR, t_int64 * d, int * NegZero) int ReadAddr(int AR, t_int64 * d, int * NegZero) { int r; + int neg; - if (AR == 8000) {*d = CSW; *NegZero=0; r=1; } else - if (AR == 8001) {*d = DIST; *NegZero=DistNegativeZeroFlag; r=1; } else - if (AR == 8002) {*d = ACC[0]; *NegZero=AccNegativeZeroFlag; r=1; } else - if (AR == 8003) {*d = ACC[1]; *NegZero=AccNegativeZeroFlag; r=1; } else - { r=ReadDrum(AR, d, NegZero); } - if (*d) *NegZero = 0; // sanity check on Minus Zero + if (AR == 8000) {*d = CSW; neg=0; r=1; } else + if (AR == 8001) {*d = DIST; neg=DistNegativeZeroFlag; r=1; } else + if (AR == 8002) {*d = ACC[0]; neg=AccNegativeZeroFlag; r=1; } else + if (AR == 8003) {*d = ACC[1]; neg=AccNegativeZeroFlag; r=1; } else + { r=ReadDrum(AR, d, &neg); } + if (*d) neg = 0; // sanity check on Minus Zero + if (NegZero != NULL) *NegZero = neg; return r; } @@ -243,6 +255,7 @@ int ShiftAcc(int direction) int neg = 0; int n, m; + n = 0; a1 = ACC[1]; if (a1 < 0) {a1 = -a1; neg = 1;} a0 = ACC[0]; if (a0 < 0) {a0 = -a0; neg = 1;} @@ -311,45 +324,567 @@ t_int64 SetIA2(t_int64 d, int n) return d; } +// opcode decode +// input: prior to call DecodeOpcode PR cpu register must be loaded with the word to decode +// output: decoded instruction as opcode, DA, IA parts +// bReadDrum: =1 if instruction needes to read data from drum before execution +// returns opname: points to opcode name or NULL if undef opcode +CONST char * DecodeOpcode(int * opcode, int * DA, int * IA, int * bReadData) +{ + t_int64 d; + CONST char * opname; + + d = PR; + *opcode = Shift_Digits(&d, 2); // current inste opcode + *DA = Shift_Digits(&d, 4); // addr of data used by current instr + *IA = Shift_Digits(&d, 4); // addr of next instr + opname = get_opcode_data(*opcode, bReadData); + return opname; +} + +// opcode execution +// input: opcode, DA (data address), DrumAddr (current word under the r/w heads. Needed to calculate time used on instr execution) +// prior to call ExecOpcode DIST cpu register must be loaded with the needed data for inst execution +// output: bWriteDrum: =1 if DIST must be written back to drum +// bBranchToDA: =1 if next inst must be taken from DA register instead of DA +// CpuStepsUsed: number of steps (=word time) used on program execution +t_stat ExecOpcode(int opcode, int DA, + int * bWriteDrum, int * bBranchToDA, + int DrumAddr, + int * CpuStepsUsed) +{ + t_stat reason = 0; + t_int64 d; + int i, n, neg; + + *bBranchToDA = 0; + *bWriteDrum = 0; + *CpuStepsUsed = 0; + + switch(opcode) { + case OP_NOOP : // No operation + if ((IC == 0) && ((PR % D4) == 0)) reason = STOP_HALT; // if loop on NOOP on addr zero -> machine idle -> stop cpu + break; + case OP_STOP : // Stop if console switch is set to stop, otherwise continue as a NO-OP + if (CSWProgStop) { + reason = STOP_PROG; + // normal stops has the consequence to prevent AR to be set with IA contents (to point to next instruction). + // but STOP allows the user to resume execution with program start key on console (= scp go command) + // so to allow this here we must explicitelly update AR + AR = (PR % D4); + } + break; + // arithmetic + case OP_RAL: // Reset and Add into Lower + case OP_RSL: // Reset and Subtract into Lower + case OP_RAABL: // Reset and Add Absolute into Lower + case OP_RSABL: // Reset and Subtract Absolute into Lower + d = DIST; + if ((opcode == OP_RAABL) || (opcode == OP_RSABL)) d = AbsWord(d); + if ((opcode == OP_RSL) || (opcode == OP_RSABL)) d = -d; + OV = 0; AccNegativeZeroFlag = 0; + ACC[1] = 0; + ACC[0] = d; + sim_debug(DEBUG_DETAIL, &cpu_dev, "... ACC: %06d%04d %06d%04d%c, OV: %d\n", + printfa, + OV); + // sequence chart for Add/Substract + // (1) (0..49) (1) (0/1) (2) (0/2) (1) + // Enable Search Data to Wait Dist to Complement Remove A + // Dist Data dist for even Acc Neg Sum interlock + // (1) (1) (1) (0..49) + // Restart IA to AR Enable PR Search next + // Signal Inst + *CpuStepsUsed = 1+1+2+1 + +(DrumAddr % 2); // using lower acc -> wait for even + // no need to complement neg sum + break; + case OP_AL: // Add to Lower + case OP_SL: // Subtract from Lower + case OP_AABL: // Add Absolute to lower + case OP_SABL: // Subtract Absolute from lower + if ((opcode == OP_AL) && (ACC[1] == 0) && (ACC[0] == 0) && (AccNegativeZeroFlag) && + (DIST == 0) && (DistNegativeZeroFlag)) { + // special case as stated in Operation manual 22(22-6060-2_650_OperMan.pdf), page 95 + // Acc result on minus zero if acc contains minus zero and AU or AL with a drum + // location that contains minus zero + OV=0; + sim_debug(DEBUG_DETAIL, &cpu_dev, "... ACC: 0000000000 0000000000- (Minus Zero), OV: 0\n"); + // acc keeps the minus zero it already has + break; + } + d = DIST; + if ((opcode == OP_AABL) || (opcode == OP_SABL)) d = AbsWord(d); + if ((opcode == OP_SL) || (opcode == OP_SABL)) d = -d; + AddToAcc(0,d); + sim_debug(DEBUG_DETAIL, &cpu_dev, "... ACC: %06d%04d %06d%04d%c, OV: %d\n", + printfa, + OV); + *CpuStepsUsed = 1+1+2+1 + +(DrumAddr % 2) // using lower acc -> wait for even + +(bAccNegComplement ? 2:0); // acc sign change -> need to complement neg sum (two steps) + break; + case OP_RAU: // Reset and Add into Upper + case OP_RSU: // Reset and Subtract into Upper + case OP_AU: // Add to Upper + case OP_SU: // Substract from Upper + if ((opcode == OP_AU) && (ACC[1] == 0) && (ACC[0] == 0) && (AccNegativeZeroFlag) && + (DIST == 0) && (DistNegativeZeroFlag)) { + // special case as stated in Operation manual 22(22-6060-2_650_OperMan.pdf), page 95 + // Acc result on minus zero if acc contains minus zero and AU or AL with a drum + // location that contains minus zero + OV=0; + sim_debug(DEBUG_DETAIL, &cpu_dev, "... ACC: 0000000000 0000000000- (Minus Zero), OV: 0\n"); + // acc keeps the minus zero it already has + break; + } + d = DIST; + if ((opcode == OP_RAU) || (opcode == OP_RSU)) ACC[1] = ACC[0] = 0; + if ((opcode == OP_SU) || (opcode == OP_RSU)) d = -d; + AddToAcc(d,0); + sim_debug(DEBUG_DETAIL, &cpu_dev, "... ACC: %06d%04d %06d%04d%c, OV: %d\n", + printfa, + OV); + *CpuStepsUsed = 1+1+2+1 + +((DrumAddr+1) % 2) // using upper acc -> wait for odd + +(bAccNegComplement ? 2:0); // acc sign change -> need to complement neg sum (two steps) + break; + // Multiply/divide + case OP_MULT: // Multiply + sim_debug(DEBUG_DETAIL, &cpu_dev, "... Mult ACC: %06d%04d %06d%04d%c, OV: %d\n", + printfa, + OV); + sim_debug(DEBUG_DETAIL, &cpu_dev, "... by DIST: %06d%04d%c\n", + printfd); + if ((ACC[1] == 0) && (ACC[0] == 1) && (DIST == 0) && (DistNegativeZeroFlag)) { + // special case as stated in Operation manual 22(22-6060-2_650_OperMan.pdf), page 95 + // Acc result on minus zero if a drum location that contains minus zero + // is multiplied by +1 + OV = 0; + sim_debug(DEBUG_DETAIL, &cpu_dev, "... ACC: 0000000000 0000000000- (Minus Zero), OV: 0\n"); + // acc set to minus zero + ACC[1] = ACC[0] = 0; + AccNegativeZeroFlag = 1; + break; + } + OV = 0; + neg = (DIST < 0) ? 1:0; if (AccNegative) neg = 1-neg; + d = AbsWord(DIST); + ACC[0] = AbsWord(ACC[0]); + ACC[1] = AbsWord(ACC[1]); + for(i=0;i<10;i++) { + n = ShiftAcc(1); + while (n-- > 0) { + AddToAcc(0, d); + if (OV) break; + } + if (OV) break; + } + if (neg) { + ACC[0] = -ACC[0]; + ACC[1] = -ACC[1]; + } + sim_debug(DEBUG_DETAIL, &cpu_dev, "... ACC: %06d%04d %06d%04d%c, OV: %d\n", + printfa, + OV); + // sequence chart for Multiply/Divide + // (1) (0..49) (1) (0/1) (20..200) (1) + // Enable Search Data to Wait Mult/Div Remove A + // Dist Data dist for even loop interlock + // (1) (1) (1) (0..49) + // Restart IA to AR Enable PR Search next + // Signal Inst + *CpuStepsUsed = 1+1+1+1 + +(DrumAddr % 2) // wait for even + +20*(i+1); // i holds the number of loops done + break; + case OP_DIV: // Divide + case OP_DIVRU: // Divide and reset upper accumulator + sim_debug(DEBUG_DETAIL, &cpu_dev, "... Div ACC: %06d%04d %06d%04d%c, OV: %d\n", + printfa, + OV); + sim_debug(DEBUG_DETAIL, &cpu_dev, "... by DIST: %06d%04d%c\n", + printfd); + if (DIST == 0) { + OV = 1; + sim_debug(DEBUG_DETAIL, &cpu_dev, "Divide By Zero -> OV set\n"); + } else if (AbsWord(DIST) <= AbsWord(ACC[1])) { + OV = 1; + sim_debug(DEBUG_DETAIL, &cpu_dev, "Quotient Overflow -> OV set and ERROR\n"); + reason = STOP_OV; // quotient overfow allways stops the machine + } else { + OV = 0; + neg = (DIST < 0) ? 1:0; if (AccNegative) neg = 1-neg; + d = AbsWord(DIST); + ACC[0] = AbsWord(ACC[0]); + ACC[1] = AbsWord(ACC[1]); + for(i=0;i<10;i++) { + ShiftAcc(1); + while (d <= ACC[1]) { + AddToAcc(-d, 0); + ACC[0]++; + } + } + if (neg) { + ACC[0] = -ACC[0]; + ACC[1] = -ACC[1]; + } + if (opcode == OP_DIVRU) { + ACC[1] = 0; + } + *CpuStepsUsed = 1+1+1+1 + +(DrumAddr % 2) // wait for even + +20*(i+1) + 40; // i holds the number of loops done + } + sim_debug(DEBUG_DETAIL, &cpu_dev, "... Div result ACC: %06d%04d %06d%04d%c, OV: %d\n", + printfa, + OV); + break; + // shift + case OP_SLT: // Shift Left + case OP_SRT: // Shift Right + case OP_SRD: // Shift Right and Round + n = DA % 10; // number of digits to shift + d = 0; + while (n-- > 0) { + d = ShiftAcc((opcode == OP_SLT) ? 1:-1); + } + if (opcode == OP_SRD) { + if (d <= - 5) AddToAcc(0,-1); + if (d >= 5) AddToAcc(0,+1); + OV = 0; + } + sim_debug(DEBUG_DETAIL, &cpu_dev, "... ACC: %06d%04d %06d%04d%c, OV: %d\n", + printfa, + OV); + // sequence chart for shift + // (1) (0/1) (2) (1) + // Enable Wait Per Remove A + // Sh count for even shift interlock + // (0/1) (1) (1) (0..49) + // Restart IA to AR Enable PR Search next + // Signal Inst + *CpuStepsUsed = 1+1+1 + +(DrumAddr % 2) // wait for even + + 2*(DA % 10) // number of shifts done + + ((opcode == OP_SRD) ? 1:0); + break; + case OP_SCT : // Shift accumulator left and count + n = 10 - DA % 10; // shift count (nine's complement of unit digit of DA) + if (n==10) n=0; + if (ACC[1] == 0) { + // upper acc is zero -> will have 10 or more shifts + ACC[1] = ACC[0]; + ACC[0] = 10; + if (n) { + OV = 1; // overflow because n <> 0 + } else { + if (Get_HiDigit(ACC[1]) == 0) OV = 1; // overflow because not just 10 shifts + } + } else if (Get_HiDigit(ACC[1]) != 0) { + // no shift will be done + ACC[0] = SetIA2(ACC[0], 0); // replace last two digits by 00 + } else { + while (Get_HiDigit(ACC[1]) == 0) { + ShiftAcc(1); // shift left + if (n==10) { + OV = 1; + break; + } + n++; + } + ACC[0] = SetIA2(ACC[0], n); // replace last two digits by 00 + } + AccNegativeZeroFlag = 0; + sim_debug(DEBUG_DETAIL, &cpu_dev, "... ACC: %06d%04d %06d%04d%c, OV: %d\n", + printfa, + OV); + *CpuStepsUsed = 1+1+1 + +(DrumAddr % 2) // wait for even + + 2*(DA % 10); // number of shifts done + break; + // load and store + case OP_STL: // Store Lower in Mem + case OP_STU: // Store Upper in Mem + if ((ACC[0] == 0) && (ACC[1] == 0) && (AccNegativeZeroFlag)) { + DistNegativeZeroFlag = 1; + } else { + DistNegativeZeroFlag = 0; + } + DIST = (opcode == OP_STU) ? ACC[1] : ACC[0]; + *bWriteDrum = 1; // to write DIST in drum at AR + // sequence chart for store + // (1) (0/1) (1) (0..49) (1) (1) (1) + // Enable Wait L/U acc Search Store IA to AR Enable PR + // Dist for even to dist data data + // or odd + *CpuStepsUsed = 1+1+1+1+1+ + + (((opcode == OP_STU) ? DrumAddr:DrumAddr+1) % 2); // wait for odd/even depending on STU/STL opcode + break; + case OP_STD: // store distributor + *bWriteDrum = 1; // to write DIST in drum at AR + *CpuStepsUsed = 1+1+1+1; + break; + case OP_STDA: // Store Lower Data Address + n = ((ACC[0] / D4) % D4); // get data addr xxDDDDxxxx from lower Acc + d = SetDA(DIST, n); // replace it in distributor + if ((d == 0) && ((DIST < 0) || ( (DIST == 0) && (DistNegativeZeroFlag) ))) { + // if dist results in zero but was negative or negative zero before replacing digits + // then it is set to minus zero + DistNegativeZeroFlag = 1; + } else { + DistNegativeZeroFlag = 0; + } + DIST = d; + *bWriteDrum = 1; // to write DIST in drum at AR + *CpuStepsUsed = 1+1+1+1 + +(DrumAddr % 2); // wait for even + break; + case OP_STIA: // Store Lower Instruction Address + n = (ACC[0] % D4); // get inst addr xxyyyyAAAA + d = SetIA(DIST, n); // replace it in distributor + if ((d == 0) && ((DIST < 0) || ( (DIST == 0) && (DistNegativeZeroFlag) ))) { + // if dist results in zero but was negative or negative zero before replacing digits + // then it is set to minus zero + DistNegativeZeroFlag = 1; + } else { + DistNegativeZeroFlag = 0; + } + DIST = d; + *bWriteDrum = 1; // to write DIST in drum at AR + *CpuStepsUsed = 1+1+1+1 + +(DrumAddr % 2); // wait for even + break; + case OP_LD: // Load Distributor + *CpuStepsUsed = 1+1+1+1; + break; + case OP_TLU : // Table lookup + sim_debug(DEBUG_DETAIL, &cpu_dev, "... Search DIST: %06d%04d%c\n", + printfd); + + AR = (DA / 50) * 50; // set AR to start of band based on DA + AR--; n=-1; + while (1) { + AR++; n++; + if (0==IsDrumAddrOk(AR)) { + sim_debug(DEBUG_DETAIL, &cpu_dev, "Invalid AR addr %d ERROR\n", AR); + reason = STOP_ADDR; + break; + } + if ((AR % 50) > 47) continue; // skip addr 48 & 49 of band that cannot be used for tables + if (0==ReadAddr(AR, &d, NULL)) { // read table argument + reason = STOP_ADDR; + break; + } + if (AbsWord(d) >= AbsWord(DIST)) break; // found + } + // set the result as xxNNNNxxxx in lower acc + ACC[0] = SetDA(ACC[0], DA+n); + sim_debug(DEBUG_DETAIL, &cpu_dev, "... Result ACC: %06d%04d %06d%04d%c, OV: %d\n", + printfa, + OV); + *CpuStepsUsed = 1+1+1+1+1+1 + +(DrumAddr % 2) // wait for even + + n; // number of reads to find the argument searched for + break; + // branch + case OP_BRD1: case OP_BRD2: case OP_BRD3: case OP_BRD4: case OP_BRD5: // Branch on 8 in distributor positions 1-10 + case OP_BRD6: case OP_BRD7: case OP_BRD8: case OP_BRD9: case OP_BRD10: + sim_debug(DEBUG_DETAIL, &cpu_dev, "... Check DIST: %06d%04d%c\n", + printfd); + d = DIST; + n = opcode - OP_BRD10; if (n == 0) n = 10; + while (--n > 0) d = d / 10; + d = d % 10; + if (d == 8) { + sim_debug(DEBUG_DETAIL, &cpu_dev, "Digit is %d -> Branch Taken\n", (int32) d); + *bBranchToDA = 1; // IA (next instr addr) will be taken from DA. Branch taken + } else if (d == 9) { + // IA kept as already set. Branch not taken + sim_debug(DEBUG_DETAIL, &cpu_dev, "Digit is %d -> Branch Not Taken\n", (int32) d); + } else { + // any other value for tested digit -> stop + sim_debug(DEBUG_DETAIL, &cpu_dev, "Digit is %d -> Branch ERROR\n", (int32) d); + reason = STOP_ERRO; + break; + } + *CpuStepsUsed = 1+1 + + ((*bBranchToDA) ? 1:0); // one extra step needed if branch taken + break; + case OP_BRNZU: // Branch on Non-Zero in Upper + sim_debug(DEBUG_DETAIL, &cpu_dev, "... ACC: %06d%04d %06d%04d%c, OV: %d\n", + printfa, + OV); + if (ACC[1] != 0) { + sim_debug(DEBUG_DETAIL, &cpu_dev, "Upper ACC not Zero -> Branch Taken\n"); + *bBranchToDA = 1; + } + *CpuStepsUsed = 1+1 + +(DrumAddr % 2) // wait for even + + ((*bBranchToDA) ? 1:0); // one extra step needed if branch taken + break; + case OP_BRNZ: // Branch on Non-Zero + sim_debug(DEBUG_DETAIL, &cpu_dev, "... ACC: %06d%04d %06d%04d%c, OV: %d\n", + printfa, + OV); + if ((ACC[1] != 0) || (ACC[0] != 0)) { + sim_debug(DEBUG_DETAIL, &cpu_dev, "ACC not Zero -> Branch Taken\n"); + *bBranchToDA = 1; + } + *CpuStepsUsed = 1 + +((DrumAddr+1) % 2) // wait for odd + + ((*bBranchToDA) ? 1:0); // one extra step needed if branch taken + break; + case OP_BRMIN: // Branch on Minus + sim_debug(DEBUG_DETAIL, &cpu_dev, "... ACC: %06d%04d %06d%04d%c, OV: %d\n", + printfa, + OV); + if (AccNegative) { + sim_debug(DEBUG_DETAIL, &cpu_dev, "ACC is Negative -> Branch Taken\n"); + *bBranchToDA = 1; + } + *CpuStepsUsed = 1+1 + + ((*bBranchToDA) ? 1:0); // one extra step needed if branch taken + break; + case OP_BROV: // Branch on Overflow + sim_debug(DEBUG_DETAIL, &cpu_dev, "... Check OV: %d\n", OV); + if (OV) { + sim_debug(DEBUG_DETAIL, &cpu_dev, "OV Set -> Branch Taken\n"); + *bBranchToDA = 1; + } + *CpuStepsUsed = 1+1 + + ((*bBranchToDA) ? 1:0); // one extra step needed if branch taken + break; + // Card I/O + case OP_RD : // Read a card + AR = (DA / 50) * 50 + 1; // Read Band is XX01 to XX10 or XX51 to XX60 + { + uint32 r; + int i; + char s[6]; + + r = cdr_cmd(&cdr_unit[1], IO_RDS,AR); + if (r == SCPE_NOCARDS) { + reason = STOP_CARD; + break; + } + for (i=0;i<10;i++) { + sim_debug(DEBUG_DETAIL, &cpu_dev, "... Read Card %04d: %06d%04d%c '%s'\n", + AR+i, printfw(DRUM[AR+i],DRUM_NegativeZeroFlag[AR+i]), + word_to_ascii(s, 1, 5, DRUM[AR+i])); + } + if (cdr_unit[1].u5 & URCSTA_LOAD) { + sim_debug(DEBUG_DETAIL, &cpu_dev, "... Is a LOAD Card\n"); + *bBranchToDA = 1; // load card -> next inste is taken from DA + } + } + // 300 msec read cycle, 270 available for computing + *CpuStepsUsed = 312; // 30 msec / 0.096 msec word time; + break; + case OP_PCH : // Punch a card + AR = (DA / 50) * 50 + 27; // Read Band is XX27 to XX36 or XX77 to XX86 + { + uint32 r; + int i; + char s[6]; + + for (i=0;i<10;i++) { + sim_debug(DEBUG_DETAIL, &cpu_dev, "... Punch Card %04d: %06d%04d%c '%s'\n", + AR+i, printfw(DRUM[AR+i],DRUM_NegativeZeroFlag[AR+i]), + word_to_ascii(s, 1, 5, DRUM[AR+i])); + } + r = cdp_cmd(&cdp_unit[1], IO_WRS,AR); + if (r == SCPE_NOCARDS) { + reason = STOP_CARD; + break; + } + } + // 600 msec punch cycle, 565 available for computing + *CpuStepsUsed = 365; // 35 msec / 0.096 msec word time; + break; + default: + reason = STOP_UUO; + break; + } + if ((reason == 0) && (OV) && (CSWOverflowStop)) reason = STOP_OV; + + return reason; +} + t_stat sim_instr(void) { t_stat reason; - t_int64 d; - int n, i, sgn, r; - int opcode = 0; - int bReadData, bWriteDrum; + int opcode, halt_cpu; + int bReadData, bWriteDrum, bBranchToDA; int instr_count = 0; /* Number of instructions to execute */ const char * opname; /* points to opcode name */ - int PRNegZero; - int IA; // Instr Address: addr of next inst - int DA; // Data Address; addr of data to be used by current inst + int IA = 0; // Instr Address: addr of next inst + int DA = 0; // Data Address; addr of data to be used by current inst int DrumAddr; // address where drum is currently positioned (0-49) - int MachineCycle, bBranchTaken, CpuStepsRemaining, WaitForInterlock; + int MachineCycle, CpuStepsUsed, WaitForInterlock; + + #define IL_RD1 1 // interlock on drum area 01-10/51-60 used in reading with RD1 + #define IL_WR1 2 // interlock on drum area 27-36/77-86 used in writing for WR1 int InterLockCount[3]; // interlock counters - #define IL_RD1 1 // interlock on drum area 01-10/51-60 used in reading for cdr1 - #define IL_WR1 2 // interlock on drum area 27-36/77-86 used in writing for cdp1 + + /* How CPU execution is simulated + + A cpu instruction is executed in real hw in several steps. Some os these steps involves waiting for rotating + drum to be positioned on requested addres (register AR). Other steps can involve waiting a Interlock to be released. + The execution of a complete instruction is called a machine cycle + + User can select in real hw control panel to execute the instructions one by one. The execution is not done + on full instruction (a full cycle), but rather in instruction half-cycles: I-Cycle and D-Cycle. + During I-Cycle, the instruction is fetched from drum and decoded. During D-Cycle instruction is performed. + + The simulator models this using the concept of MachineCycles, that groups several steps on opcode execution + + SimH Real hw equivalent + machine cycle half cycle + 0 I-Cycle wait for drum to be positioned at address given by AR cpu register + 1 I-Cycle read the drum to PR register, + decode as opcode, DA, IA, + check if must wait for interlock + if decoded opcode reads data from drum set AR=DA + 2 D-Cycle wait for interlock if needed + wait for drum to be positioned at AR address if decoded opcode reads data from drum + 3 D-Cycle if decoded opcode reads data from drum, read the data in DIST + set interlock if needed + perform opcode operation + 4 D-Cycle wait opcode excution time + wait for drum to be positioned at AR addressif executed opcode writes data to drum + 5 D-Cycle if executed opcode writes data to drum, write DIST to drum + set AR=IA to read next instruction + + */ if (sim_step != 0) { instr_count = sim_step; sim_cancel_step(); } - reason = 0; + reason = halt_cpu = 0; - MachineCycle = CpuStepsRemaining = 0; - bReadData = bWriteDrum = 0; + MachineCycle = CpuStepsUsed = 0; DrumAddr = 0; WaitForInterlock = 0; InterLockCount[IL_RD1] = InterLockCount[IL_WR1] = 0; + sim_cancel (&cpu_unit); + sim_activate (&cpu_unit, 1); + while (reason == 0) { /* loop until halted */ if (sim_interval <= 0) { /* event queue? */ reason = sim_process_event(); + if (reason == SCPE_STOP) { + reason = 0; // if stop cpu requested, does not do it inmediatelly + halt_cpu = 1; // signal it so cpu is halted on end of current intr + } if (reason != SCPE_OK) { break; /* process */ } @@ -359,28 +894,44 @@ sim_instr(void) sim_interval -= 1; /* count down */ // simulate the rotating drum: incr current drum position - DrumAddr = ++DrumAddr % 50; - // if any interlock set, make it expire + DrumAddr = (DrumAddr+1) % 50; + // if any interlock set, decrease it if (InterLockCount[IL_RD1]) InterLockCount[IL_RD1]--; if (InterLockCount[IL_WR1]) InterLockCount[IL_WR1]--; + + // simulates the machine working on half cycles + if ((HalfCycle == 1) && (MachineCycle == 2)) { // if I-Half finished, about to exec D-Half + HalfCycle = 2; // bump half cycle to exec D-Half on next scp step + reason = SCPE_STEP; // then break beacuse I-Half finished + break; + } + if ((HalfCycle == 2) && (MachineCycle == 0)) { // if D-Half should start + HalfCycle = 1; // bump half cycle to exec I-Half on next scp step + instr_count = 1; // break at the end of D-half execution + MachineCycle = 3; + } + if (MachineCycle == 0) { /* Only check for break points during actual fetch */ if (sim_brk_summ && sim_brk_test(IC, SWMASK('E'))) { reason = STOP_IBKPT; break; } + // only check for ^E on fetch + if (halt_cpu) { + reason = SCPE_STOP; + break; + } // should wait for drum to fetch inst? if ((AR >= 0) && (AR < (int)MEMSIZE)) { if ((AR % 50) != DrumAddr) continue; // yes } - CpuStepsRemaining = 0; // init inst execution - bReadData = bWriteDrum = 0; + CpuStepsUsed = 0; // init inst execution MachineCycle = 1; // decode instr } if (MachineCycle == 2) { // should wait for cpu to exec the inst? - if (--CpuStepsRemaining > 0) continue; // yes - CpuStepsRemaining = 0; + if (CpuStepsUsed > 0) {CpuStepsUsed--; continue;} // yes // should wait for interlock release? if (WaitForInterlock) { if (InterLockCount[WaitForInterlock]) continue; // yes @@ -393,40 +944,36 @@ sim_instr(void) MachineCycle = 3; // exec instr } if (MachineCycle == 4) { // should wait for cpu to exec the inst? - if (--CpuStepsRemaining > 0) continue; // yes - CpuStepsRemaining = 0; + if (CpuStepsUsed > 0) {CpuStepsUsed--; continue;} // yes // should wait for drum to store data? if ((bWriteDrum) && (AR >= 0) && (AR < (int)MEMSIZE)) { if ((AR % 50) != DrumAddr) continue; // yes } MachineCycle = 5; // terminate the instr execution } - // here, MachineCicly is either 1 (decode), 3 (exec), 5 (exec2) + // here, MachineCycle is either 1 (decode), 3 (exec-read), 5 (exec-write) if (MachineCycle == 1) { // fetch current intruction from mem, save current instr addr in IC IC = AR; - if (0==ReadAddr(AR, &PR, &PRNegZero)) { + if (0==ReadAddr(AR, &PR, NULL)) { reason = STOP_ADDR; - goto end_of_while; + goto end_of_cycle; } // decode inst - d = PR; - opcode = Shift_Digits(&d, 2); // current inste opcode - DA = Shift_Digits(&d, 4); // addr of data used by current instr - IA = Shift_Digits(&d, 4); // addr of next instr - opname = get_opcode_data(opcode, &bReadData); + opname = DecodeOpcode(&opcode, &DA, &IA, &bReadData); + sim_debug(DEBUG_CMD, &cpu_dev, "Exec %04d: %02d %-6s %04d %04d %s%s\n", + IC, opcode, (opname == NULL) ? "???":opname, DA, IA, + (DRUM_Symbolic_Buffer[AR * 80] == 0) ? "" : " symb: ", + &DRUM_Symbolic_Buffer[AR * 80]); if (opname == NULL) { - reason = STOP_UUO; // unknown opcode - goto end_of_while; + reason = STOP_UUO; + goto end_of_cycle; } - sim_debug(DEBUG_CMD, &cpu_dev, "Exec %04d: %02d %-6s %04d %04d\r\n", IC, opcode, opname, DA, IA); - if ((opcode == OP_NOOP) && (IC == 0) && (IA == 0)) { - // if loop on NOOP on addr zero -> machine idle -> stop cpu - reason = STOP_HALT; - goto end_of_while; - } + AR = DA; // allways trasnfer DA to AR even if drum will be not read. This is why + // all opcodes must have a valid DA address even if not used to read drum (eg SRT 0003 to shift) + // check if opcode should wait for and already set interlock if ((opcode == OP_RD) && (InterLockCount[IL_RD1])) { WaitForInterlock = IL_RD1; @@ -436,504 +983,71 @@ sim_instr(void) WaitForInterlock = 0; } - AR = DA; - CpuStepsRemaining = 1; MachineCycle = 2; continue; } if (MachineCycle == 3) { + // decode again PR register to reload internal register DA, IA, AR again. Needed if we are executing half cycles + opname = DecodeOpcode(&opcode, &DA, &IA, &bReadData); + AR = DA; + if (opname == NULL) { + reason = STOP_UUO; + goto end_of_cycle; + } // fetch data from drum if needed if (bReadData) { - r = ReadAddr(AR, &DIST, &DistNegativeZeroFlag); - sim_debug(DEBUG_DATA, &cpu_dev, "... Read %04d: %06d%04d%c\r\n", - AR, printfd); - if (r==0) { + if (0==ReadAddr(AR, &DIST, &DistNegativeZeroFlag)) { + sim_debug(DEBUG_DATA, &cpu_dev, "... Read %04d: ???\n", + AR); reason = STOP_ADDR; - goto end_of_while; + goto end_of_cycle; + } else { + sim_debug(DEBUG_DATA, &cpu_dev, "... Read %04d: %06d%04d%c\n", + AR, printfd); } } else { if (0==IsDrumAddrOk(AR)) { // even if no data is fetched from drum, DA addr must be a valid one - sim_debug(DEBUG_DETAIL, &cpu_dev, "Invalid AR addr %d ERROR\r\n", AR); + sim_debug(DEBUG_DETAIL, &cpu_dev, "Invalid AR addr %d ERROR\n", AR); reason = STOP_ADDR; - goto end_of_while; + goto end_of_cycle; } } - bWriteDrum = 0; // set to 1 by opcode if it is necessary to write dist back to drum - bBranchTaken = 0; // flag if branch is taken - switch(opcode) { - case OP_NOOP : // No operation - break; - case OP_STOP : // Stop if console switch is set to stop, otherwise continue as a NO-OP - if (CSWProgStop) { - reason = STOP_PROG; - goto end_of_while; - } - break; - // arithmetic - case OP_RAL: // Reset and Add into Lower - case OP_RSL: // Reset and Subtract into Lower - case OP_RAABL: // Reset and Add Absolute into Lower - case OP_RSABL: // Reset and Subtract Absolute into Lower - d = DIST; - if ((opcode == OP_RAABL) || (opcode == OP_RSABL)) d = AbsWord(d); - if ((opcode == OP_RSL) || (opcode == OP_RSABL)) d = -d; - OV = 0; AccNegativeZeroFlag = 0; - ACC[1] = 0; - ACC[0] = d; - sim_debug(DEBUG_DETAIL, &cpu_dev, "... ACC: %06d%04d %06d%04d%c, OV: %d\r\n", - printfa, - OV); - // sequence chart for Add/Substract - // (1) (0..49) (1) (0/1) (2) (0/2) (1) - // Enable Search Data to Wait Dist to Complement Remove A - // Dist Data dist for even Acc Neg Sum interlock - // (1) (1) (1) (0..49) - // Restart IA to AR Enable PR Search next - // Signal Inst - CpuStepsRemaining = 1+1+2+1; - if ((DrumAddr % 2) != 0) CpuStepsRemaining++; // using lower acc -> wait for even - // no need to complement neg sum - break; - case OP_AL: // Add to Lower - case OP_SL: // Subtract from Lower - case OP_AABL: // Add Absolute to lower - case OP_SABL: // Subtract Absolute from lower - if ((opcode == OP_AL) && (ACC[1] == 0) && (ACC[0] == 0) && (AccNegativeZeroFlag) && - (DIST == 0) && (DistNegativeZeroFlag)) { - // special case as stated in Operation manual 22(22-6060-2_650_OperMan.pdf), page 95 - // Acc result on minus zero if acc contains minus zero and AU or AL with a drum - // location that contains minus zero - OV=0; - sim_debug(DEBUG_DETAIL, &cpu_dev, "... ACC: 0000000000 0000000000- (Minus Zero), OV: 0\r\n"); - // acc keeps the minus zero it already has - break; - } - d = DIST; - if ((opcode == OP_AABL) || (opcode == OP_SABL)) d = AbsWord(d); - if ((opcode == OP_SL) || (opcode == OP_SABL)) d = -d; - AddToAcc(0,d); - sim_debug(DEBUG_DETAIL, &cpu_dev, "... ACC: %06d%04d %06d%04d%c, OV: %d\r\n", - printfa, - OV); - CpuStepsRemaining = 1+1+2+1; - if ((DrumAddr % 2) != 0) CpuStepsRemaining++; // using lower acc -> wait for even - if (bAccNegComplement) CpuStepsRemaining += 2; // acc sign change -> need to complement neg sum - break; - case OP_RAU: // Reset and Add into Upper - case OP_RSU: // Reset and Subtract into Upper - case OP_AU: // Add to Upper - case OP_SU: // Substract from Upper - if ((opcode == OP_AU) && (ACC[1] == 0) && (ACC[0] == 0) && (AccNegativeZeroFlag) && - (DIST == 0) && (DistNegativeZeroFlag)) { - // special case as stated in Operation manual 22(22-6060-2_650_OperMan.pdf), page 95 - // Acc result on minus zero if acc contains minus zero and AU or AL with a drum - // location that contains minus zero - OV=0; - sim_debug(DEBUG_DETAIL, &cpu_dev, "... ACC: 0000000000 0000000000- (Minus Zero), OV: 0\r\n"); - // acc keeps the minus zero it already has - break; - } - d = DIST; - if ((opcode == OP_RAU) || (opcode == OP_RSU)) ACC[1] = ACC[0] = 0; - if ((opcode == OP_SU) || (opcode == OP_RSU)) d = -d; - AddToAcc(d,0); - sim_debug(DEBUG_DETAIL, &cpu_dev, "... ACC: %06d%04d %06d%04d%c, OV: %d\r\n", - printfa, - OV); - CpuStepsRemaining = 1+1+2+1; - if ((DrumAddr % 2) == 0) CpuStepsRemaining++; // using upper acc -> wait for odd - if (bAccNegComplement) CpuStepsRemaining += 2; // acc sign change -> need to complement neg sum - break; - // Multiply/divide - case OP_MULT: // Multiply - if ((ACC[1] == 0) && (ACC[0] == 1) && (DIST == 0) && (DistNegativeZeroFlag)) { - // special case as stated in Operation manual 22(22-6060-2_650_OperMan.pdf), page 95 - // Acc result on minus zero if a drum location that contains minus zero - // is multiplied by +1 - OV = 0; - sim_debug(DEBUG_DETAIL, &cpu_dev, "... ACC: 0000000000 0000000000- (Minus Zero), OV: 0\r\n"); - // acc set to minus zero - ACC[1] = ACC[0] = 0; - AccNegativeZeroFlag = 1; - break; - } - OV = 0; - sgn = (DIST < 0) ? -1:1; if (ACC[0] < 0) sgn = -sgn; - d = AbsWord(DIST); - ACC[0] = AbsWord(ACC[0]); - ACC[1] = AbsWord(ACC[1]); - for(i=0;i<10;i++) { - n = ShiftAcc(1); - while (n-- > 0) { - AddToAcc(0, d); - if (OV) {i=10; break;} - } - } - if (sgn < 0) { - ACC[0] = -ACC[0]; - ACC[1] = -ACC[1]; - } - sim_debug(DEBUG_DETAIL, &cpu_dev, "... ACC: %06d%04d %06d%04d%c, OV: %d\r\n", - printfa, - OV); - // sequence chart for Multiply/Divide - // (1) (0..49) (1) (0/1) (20..200) (1) - // Enable Search Data to Wait Mult/Div Remove A - // Dist Data dist for even loop interlock - // (1) (1) (1) (0..49) - // Restart IA to AR Enable PR Search next - // Signal Inst - CpuStepsRemaining = 1+1+1+1; - if ((DrumAddr % 2) != 0) CpuStepsRemaining++; // wait for even - if (i < 0) i=0; if (i>9) i=9; // i holds the number of loops done - CpuStepsRemaining += 20*(i+1); - break; - case OP_DIV: // Divide - case OP_DIVRU: // Divide and reset upper accumulator - if (DIST == 0) { - OV = 1; - sim_debug(DEBUG_DETAIL, &cpu_dev, "Divide By Zero -> OV set \r\n"); - } else if (AbsWord(DIST) <= AbsWord(ACC[1])) { - OV = 1; - sim_debug(DEBUG_DETAIL, &cpu_dev, "Quotient Overflow -> OV set and ERROR\r\n"); - reason = STOP_OV; // quotient overfow allways stops the machine - } else { - OV = 0; - sgn = (DIST < 0) ? -1:1; if (ACC[0] < 0) sgn = -sgn; - d = AbsWord(DIST); - ACC[0] = AbsWord(ACC[0]); - ACC[1] = AbsWord(ACC[1]); - for(i=0;i<10;i++) { - ShiftAcc(1); - while (d <= ACC[1]) { - AddToAcc(-d, 0); - ACC[0]++; - } - } - if (sgn < 0) { - ACC[0] = -ACC[0]; - ACC[1] = -ACC[1]; - } - if (opcode == OP_DIVRU) { - ACC[1] = 0; - } - CpuStepsRemaining = 1+1+1+1; - if ((DrumAddr % 2) != 0) CpuStepsRemaining++; // wait for even - // i holds the number of loops done - if (i < 0) i=0; if (i>9) i=9; - CpuStepsRemaining += 20*(i+1) + 40; - } - sim_debug(DEBUG_DETAIL, &cpu_dev, "... ACC: %06d%04d %06d%04d%c, OV: %d\r\n", - printfa, - OV); - break; - // shift - case OP_SLT: // Shift Left - case OP_SRT: // Shift Right - case OP_SRD: // Shift Right and Round - n = AR % 10; // number of digits to shift - d = 0; - while (n-- > 0) { - d = ShiftAcc((opcode == OP_SLT) ? 1:-1); - } - if (opcode == OP_SRD) { - if (d <= - 5) AddToAcc(0,-1); - if (d >= 5) AddToAcc(0,+1); - OV = 0; - } - sim_debug(DEBUG_DETAIL, &cpu_dev, "... ACC: %06d%04d %06d%04d%c, OV: %d\r\n", - printfa, - OV); - // sequence chart for shift - // (1) (0/1) (2) (1) - // Enable Wait Per Remove A - // Sh count for even shift interlock - // (0/1) (1) (1) (0..49) - // Restart IA to AR Enable PR Search next - // Signal Inst - CpuStepsRemaining = 1+1+1; - if ((DrumAddr % 2) != 0) CpuStepsRemaining++; // wait for even - n = AR % 10; // number of shifts done - if (n > 0) CpuStepsRemaining += 2*n; - if (opcode == OP_SRD) CpuStepsRemaining++; - break; - case OP_SCT : // Shift accumulator left and count - n = 10 - AR % 10; // shift count (nine's complement of unit digit of DA) - if (n==10) n=0; - if (ACC[1] == 0) { - // upper acc is zero -> will have 10 or more shifts - ACC[1] = ACC[0]; - ACC[0] = 10; - if (n) { - OV = 1; // overflow because n <> 0 - } else { - if (Get_HiDigit(ACC[1]) == 0) OV = 1; // overflow because not just 10 shifts - } - } else if (Get_HiDigit(ACC[1]) != 0) { - // no shift will be done - ACC[0] = SetIA2(ACC[0], 0); // replace last two digits by 00 - } else { - while (Get_HiDigit(ACC[1]) == 0) { - ShiftAcc(1); // shift left - if (n==10) { - OV = 1; - break; - } - n++; - } - ACC[0] = SetIA2(ACC[0], n); // replace last two digits by 00 - } - AccNegativeZeroFlag = 0; - sim_debug(DEBUG_DETAIL, &cpu_dev, "... ACC: %06d%04d %06d%04d%c, OV: %d\r\n", - printfa, - OV); - CpuStepsRemaining = 1+1+1; - if ((DrumAddr % 2) != 0) CpuStepsRemaining++; // wait for even - n = AR % 10; // number of shifts done - if (n > 0) CpuStepsRemaining += 2*n; - if (opcode == OP_SRD) CpuStepsRemaining++; - break; - // load and store - case OP_STL: // Store Lower in Mem - case OP_STU: // Store Upper in Mem - if ((ACC[0] == 0) && (ACC[0] == 0) && (AccNegativeZeroFlag)) { - DistNegativeZeroFlag = 1; - } else { - DistNegativeZeroFlag = 0; - } - DIST = (opcode == OP_STU) ? ACC[1] : ACC[0]; - // sequence chart for store - // (1) (0/1) (1) (0..49) (1) (1) (1) - // Enable Wait L/U acc Search Store IA to AR Enable PR - // Dist for even to dist data data - // or odd - CpuStepsRemaining = 1+1+1+1+1; - if ((DrumAddr % 2) == ( (opcode == OP_STU) ? 0:1)) CpuStepsRemaining++; // wait for odd/even - bWriteDrum = 1; // to write DIST in drum at AR - break; - case OP_STD: // store distributor - CpuStepsRemaining = 1+1+1+1; - bWriteDrum = 1; // to write DIST in drum at AR - break; - case OP_STDA: // Store Lower Data Address - n = ((ACC[0] / D4) % D4); // get data addr xxDDDDxxxx from lower Acc - d = SetDA(DIST, n); // replace it in distributor - if ((d == 0) && ((DIST < 0) || ( (DIST == 0) && (DistNegativeZeroFlag) ))) { - // if dist results in zero but was negative or negative zero before replacing digits - // then it is set to minus zero - DistNegativeZeroFlag = 1; - } else { - DistNegativeZeroFlag = 0; - } - DIST = d; - CpuStepsRemaining = 1+1+1+1; - if ((DrumAddr % 2) == 0) CpuStepsRemaining++; // wait for even - bWriteDrum = 1; // to write DIST in drum at AR - break; - case OP_STIA: // Store Lower Instruction Address - n = (ACC[0] % D4); // get inst addr xxyyyyAAAA - d = SetIA(DIST, n); // replace it in distributor - if ((d == 0) && ((DIST < 0) || ( (DIST == 0) && (DistNegativeZeroFlag) ))) { - // if dist results in zero but was negative or negative zero before replacing digits - // then it is set to minus zero - DistNegativeZeroFlag = 1; - } else { - DistNegativeZeroFlag = 0; - } - DIST = d; - CpuStepsRemaining = 1+1+1+1; - if ((DrumAddr % 2) == 0) CpuStepsRemaining++; // wait for even - bWriteDrum = 1; // to write DIST in drum at AR - break; - case OP_LD: // Load Distributor - CpuStepsRemaining = 1+1+1+1; - break; - case OP_TLU : // Table lookup - sim_debug(DEBUG_DATA, &cpu_dev, "... Search DIST: %06d%04d%c\r\n", - printfd); - AR = (DA / 50) * 50; // set AR to start of band based on DA - AR--; n=-1; - while (1) { - int dNegZero; - AR++; n++; - if (0==IsDrumAddrOk(AR)) { - sim_debug(DEBUG_DETAIL, &cpu_dev, "Invalid AR addr %d ERROR\r\n", AR); - reason = STOP_ADDR; - goto end_of_while; - } - if ((AR % 50) > 47) continue; // skip addr 48 & 49 of band that cannot be used for tables - if (0==ReadAddr(AR, &d, &dNegZero)) { // read table argument - reason = STOP_ADDR; - goto end_of_while; - } - if (AbsWord(d) >= AbsWord(DIST)) break; // found - } - // set the result as xxNNNNxxxx in lower acc - ACC[0] = SetDA(ACC[0], DA+n); - sim_debug(DEBUG_DETAIL, &cpu_dev, "... ACC: %06d%04d %06d%04d%c, OV: %d\r\n", - printfa, - OV); - CpuStepsRemaining = 1+1+1+1+1+1; - if ((DrumAddr % 2) == 0) CpuStepsRemaining++; // wait for even - CpuStepsRemaining += n; // number of reads to find the argument searched for - break; - // branch - case OP_BRD1: case OP_BRD2: case OP_BRD3: case OP_BRD4: case OP_BRD5: // Branch on 8 in distributor positions 1-10 - case OP_BRD6: case OP_BRD7: case OP_BRD8: case OP_BRD9: case OP_BRD10: - sim_debug(DEBUG_DATA, &cpu_dev, "... Check DIST: %06d%04d%c\r\n", - printfd); - d = DIST; - n = opcode - OP_BRD10; if (n == 0) n = 10; - while (--n > 0) d = d / 10; - d = d % 10; - if (d == 8) { - IA = AR; // IA (next instr addr) will be taken from AR. Branch taken - sim_debug(DEBUG_DETAIL, &cpu_dev, "Digit is %d -> Branch Taken\r\n", (int32) d); - bBranchTaken = 1; - } else if (d == 9) { - // IA kept as already set. Branch not taken - sim_debug(DEBUG_DETAIL, &cpu_dev, "Digit is %d -> Branch Not Taken\r\n", (int32) d); - } else { - // any other value for tested digit -> stop - sim_debug(DEBUG_DETAIL, &cpu_dev, "Digit is %d -> Branch ERROR\r\n", (int32) d); - reason = STOP_ERRO; - } - CpuStepsRemaining = 1+1; - if (bBranchTaken) CpuStepsRemaining++; - break; - case OP_BRNZU: // Branch on Non-Zero in Upper - sim_debug(DEBUG_DETAIL, &cpu_dev, "... ACC: %06d%04d %06d%04d%c, OV: %d\r\n", - printfa, - OV); - if (ACC[1] != 0) { - sim_debug(DEBUG_DETAIL, &cpu_dev, "Upper ACC not Zero -> Branch Taken\r\n"); - IA = AR; - bBranchTaken = 1; - } - CpuStepsRemaining = 1; - if (bBranchTaken) CpuStepsRemaining++; - if ((DrumAddr % 2) == 0) CpuStepsRemaining++; // wait for even - break; - case OP_BRNZ: // Branch on Non-Zero - sim_debug(DEBUG_DETAIL, &cpu_dev, "... ACC: %06d%04d %06d%04d%c, OV: %d\r\n", - printfa, - OV); - if ((ACC[1] != 0) || (ACC[0] != 0)) { - sim_debug(DEBUG_DETAIL, &cpu_dev, "ACC not Zero -> Branch Taken\r\n"); - IA = AR; - bBranchTaken = 1; - } - CpuStepsRemaining = 1; - if (bBranchTaken) CpuStepsRemaining++; - if ((DrumAddr % 2) != 0) CpuStepsRemaining++; // wait for odd - break; - case OP_BRMIN: // Branch on Minus - sim_debug(DEBUG_DETAIL, &cpu_dev, "... ACC: %06d%04d %06d%04d%c, OV: %d\r\n", - printfa, - OV); - if (AccNegative) { - sim_debug(DEBUG_DETAIL, &cpu_dev, "ACC is Negative -> Branch Taken\r\n"); - IA = AR; - bBranchTaken = 1; - } - CpuStepsRemaining = 1; - if (bBranchTaken) CpuStepsRemaining++; - break; - case OP_BROV: // Branch on Overflow - sim_debug(DEBUG_DETAIL, &cpu_dev, "... Check OV: %d\r\n", OV); - if (OV) { - sim_debug(DEBUG_DETAIL, &cpu_dev, "OV Set -> Branch Taken\r\n"); - IA = AR; - bBranchTaken = 1; - } - CpuStepsRemaining = 1; - if (bBranchTaken) CpuStepsRemaining++; - break; - // Card I/O - case OP_RD : // Read a card - AR = (DA / 50) * 50 + 1; // Read Band is XX01 to XX10 or XX51 to XX60 - { - uint32 r; - int i; - char s[6]; - - r = cdr_cmd(&cdr_unit[1], IO_RDS,AR); - if (r == SCPE_NOCARDS) { - //XXX SCPE_BUSY - reason = STOP_CARD; - goto end_of_while; - } - for (i=0;i<10;i++) { - sim_debug(DEBUG_DETAIL, &cpu_dev, "... Read Card %04d: %06d%04d%c '%s'\r\n", - AR+i, printfw(DRUM[AR+i],DRUM_NegativeZeroFlag[AR+i]), - word_to_ascii(s, 1, 5, DRUM[AR+i])); - } - if (cdr_unit[1].u5 & URCSTA_LOAD) { - sim_debug(DEBUG_DETAIL, &cpu_dev, "... Is a LOAD Card\r\n"); - IA = DA; // load card -> next inste is taken from DA - } - } - // 300 msec read cycle, 270 available for computing - CpuStepsRemaining = 312; // 30 msec / 0.096 msec word time; - // set interlock - InterLockCount[IL_RD1] = 3120; // 300 msec for read card processing - break; - case OP_PCH : // Punch a card - AR = (DA / 50) * 50 + 27; // Read Band is XX27 to XX36 or XX77 to XX86 - { - uint32 r; - int i; - char s[6]; - - for (i=0;i<10;i++) { - sim_debug(DEBUG_DETAIL, &cpu_dev, "... Punch Card %04d: %06d%04d%c '%s'\r\n", - AR+i, printfw(DRUM[AR+i],DRUM_NegativeZeroFlag[AR+i]), - word_to_ascii(s, 1, 5, DRUM[AR+i])); - } - r = cdp_cmd(&cdp_unit[1], IO_WRS,AR); - if (r == SCPE_NOCARDS) { - //XXX SCPE_BUSY - reason = STOP_CARD; - goto end_of_while; - } - } - // 600 msec punch cycle, 565 available for computing - CpuStepsRemaining = 365; // 35 msec / 0.096 msec word time; - // set interlock - InterLockCount[IL_WR1] = 6250; // 600 msec for punch card processing - break; - default: - reason = STOP_UUO; - break; - } - if (reason) goto end_of_while; - if ((OV) && (CSWOverflowStop)) { - reason = STOP_OV; - goto end_of_while; + // check if opcode should set interlock + if (opcode == OP_RD) { + InterLockCount[IL_RD1] = 3120; // 300 msec for read card processing + } else if ((opcode == OP_PCH) && (InterLockCount[IL_WR1])) { + InterLockCount[IL_WR1] = 6250; // 600 msec for punch card processing } + + reason = ExecOpcode(opcode, DA, + &bWriteDrum, &bBranchToDA, + DrumAddr, &CpuStepsUsed); + if (reason != 0) goto end_of_cycle; + + if (bBranchToDA) IA = DA; + MachineCycle = 4; - if (CpuStepsRemaining > 2) CpuStepsRemaining -= 2; // decrease by 2 as each inst passes at minimum two times by DrumAddr++ + if (CpuStepsUsed > 2) CpuStepsUsed -= 2; // decrease by 2 as each inst passes at minimum two times by DrumAddr incr continue; - } /* end of opcode switch */ + } if (MachineCycle == 5) { if (bWriteDrum) { - sim_debug(DEBUG_DATA, &cpu_dev, "... Write %04d: %06d%04d%c\r\n", + sim_debug(DEBUG_DATA, &cpu_dev, "... Write %04d: %06d%04d%c\n", AR, printfd); if (0==WriteDrum(AR, DIST, DistNegativeZeroFlag)) { reason = STOP_ADDR; - goto end_of_while; + goto end_of_cycle; } } - MachineCycle = 6; - continue; + // set AR to point to next instr + AR = IA; + // do not continue, just go on end_of_cycle } -end_of_while: - // set AR to point to next instr - AR = IA; +end_of_cycle: if (instr_count != 0 && --instr_count == 0) { if (reason == 0) { @@ -941,12 +1055,12 @@ end_of_while: // if cpu not stoped (just stepped) set IC so next inst to be executed is shown. // if cpu stopped because some error (reason != 0), does not advance IC so instr shown is offending one reason = SCPE_STEP; + break; } - return reason; } MachineCycle = 0; // ready to process to next instr - } /* end while */ + } /* end while */ // flush 407 printout if ((cdp_unit[0].flags & UNIT_ATT) && (cdp_unit[0].fileref)) { @@ -959,15 +1073,6 @@ end_of_while: } -/* Initialize memory to all plus zero */ -void -mem_init() { - int i; - for(i = 0; i < MAXMEMSIZE; i++) - DRUM[i] = DRUM_NegativeZeroFlag[i] = 0; -} - - /* Reset routine */ t_stat cpu_reset(DEVICE * dptr) @@ -1039,13 +1144,15 @@ cpu_set_size(UNIT * uptr, int32 val, CONST char *cptr, void *desc) if (v == 2) {v = 4000;} else v = 0; if ((v <= 0) || (v > MAXMEMSIZE)) return SCPE_ARG; - for (i = v-1; i < MEMSIZE; i++) { - if (DRUM[i] != 0) { + for (i = v; i < MEMSIZE; i++) { + if ((DRUM[i] != 0) || (DRUM_NegativeZeroFlag[i] != 0)) { mc = 1; break; } } - if ((mc != 0) && (!get_yn("Really truncate memory [N]?", FALSE))) + for (i=0;i + + allowed operations are split, join, print + + default format for card files is AUTO, this allow to intermix source decks + with different formats. To set the format for carddeck operations use + + set cpr0 -format xxxx + + this will apply to all operations, both on reading and writing deck files + + carddeck split split the deck being punched in IBM 533 device in two separate destination decks + + carddeck split + + should be cdp1 to cdp3. File must be attached. The cards punched on + this file are the ones on source deck to split. + + if instead of cdp1, cdp2 or cdp3, a file can be specified containing + the source deck to be splitted + + number of cards in each splitted deck. + If count >= 0, indicates the cards on first destination deck file + remaining cards go to the second destination deck + If count < 0, indicates the cards on second destination deck file + (so deck 2 contains lasts count cards from source) + + first destination deck file + second destination deck file + + when using as source both or can have same name as the currently + attached file to cdp device. On command execution, cdp gest its file detached. + file1 and file are created (overwritten if already exists). + + when using as source both or can have same name as . + is completly read by SimH in its internal buffer (room for 10K cards) + and then splitted to and . + + carddeck join join several deck files into a new one + + carddeck join ... as + + first source deck file + second source deck file + ... + destination deck file + + any source file , , etc can have same name as destination file . + Each source file is completly read in turn by SimH in its internal buffer (room for 10K cards) + and then written on destination file. This allos to append une deck on the top/end of + another one. + + carddeck print print deck on console, and on simulated IBM 407 is any file is attached to cpd0 + + carddeck print + + switches: if present mut be just after carddeck and before deck operation + -Q quiet return status. + +*/ + +// max number of cards in deck for cadrdeck internal command +#define MAX_CARDS_IN_DECK 10000 + +// load card file fn and add its cards to +// DeckImage array, up to a max of nMaxCards +// increment nCards with the number of added cards +// uses cdr0 device/unit +t_stat deck_load(CONST char *fn, uint16 * DeckImage, int * nCards) +{ + UNIT * uptr = &cdr_unit[0]; + struct _card_data *data; + t_stat r; + int i, convert_to_ascii; + uint16 c; + + if (*nCards < 0) { + *nCards = 0; + convert_to_ascii = 1; + } else { + convert_to_ascii = 0; + } + + // set flags for read only + uptr->flags |= UNIT_RO; + + // attach file to cdr unit 0 + r = (cdr_dev.attach)(uptr, fn); + if (r != SCPE_OK) return r; + + // read all cards from file + while (1) { + if (*nCards >= MAX_CARDS_IN_DECK) { + r = sim_messagef (SCPE_IERR, "Too many cards\n"); + break; + } + r = sim_read_card(uptr); + if (r == SCPE_EOF) { + r = SCPE_OK; break; // normal termination on card file read finished + } else if (r != SCPE_OK) break; // abnormal termination on error + data = (struct _card_data *)uptr->up7; + // add card read to deck + for (i=0; i<80; i++) { + c = data->image[i]; + if (convert_to_ascii) c = data->hol_to_ascii[c]; + DeckImage[*nCards * 80 + i] = c; + } + *nCards = *nCards + 1; + } + + // deattach file from cdr unit 0 + r = (cdr_dev.detach)(uptr); + if (r != SCPE_OK) return r; + + return SCPE_OK; +} + +// write nCards starting at card from DeckImage array to file fn +// uses cdr0 device/unit +t_stat deck_save(CONST char *fn, uint16 * DeckImage, int card, int nCards) +{ + UNIT * uptr = &cdr_unit[0]; + struct _card_data *data; + t_stat r; + int i,nc; + + // set flags for create new file + uptr->flags &= ~UNIT_RO; + sim_switches |= SWMASK ('N'); + + // attach file to cdr unit 0 + r = (cdr_dev.attach)(uptr, fn); + if (r != SCPE_OK) return r; + + // write cards to file + for (nc=0;nc= MAX_CARDS_IN_DECK) { + r = sim_messagef (SCPE_IERR, "Reading outside of Deck\n"); + break; + } + + data = (struct _card_data *)uptr->up7; + // read card from deck + for (i=0; i<80; i++) data->image[i] = DeckImage[(nc + card) * 80 + i]; + + r = sim_punch_card(uptr, NULL); + if (r != SCPE_OK) break; // abnormal termination on error + } + + // deattach file from cdr unit 0 + (cdr_dev.detach)(uptr); + + return r; +} + +// carddeck split +static t_stat deck_split_cmd(CONST char *cptr) +{ + char fn0[4*CBUFSIZE]; + char fn1[4*CBUFSIZE]; + char fn2[4*CBUFSIZE]; + + char gbuf[4*CBUFSIZE]; + DEVICE *dptr; + UNIT *uptr; + t_stat r; + + uint16 DeckImage[80 * MAX_CARDS_IN_DECK]; + int nCards, nCards1, tail; + + while (sim_isspace (*cptr)) cptr++; // trim leading spc + if (*cptr == '-') { + tail = 1; + cptr++; + } else { + tail = 0; + } + cptr = get_glyph (cptr, gbuf, 0); // get cards count param + nCards1 = (int32) get_uint (gbuf, 10, 10000, &r); + if (r != SCPE_OK) return sim_messagef (SCPE_ARG, "Invalid count value\n"); + + cptr = get_glyph (cptr, gbuf, 0); // get dev|file0 param + if ((strlen(gbuf) != 4) || (strncmp(gbuf, "CDP", 3)) || + (gbuf[3] < '1') || (gbuf[3] > '3') ) { + // is a file + strcpy(fn0, gbuf); + } else { + // is cpd1 cpd2 or cpd3 device + dptr = find_unit (gbuf, &uptr); /* locate unit */ + if (dptr == NULL) /* found dev? */ + return SCPE_NXDEV; + if (uptr == NULL) /* valid unit? */ + return SCPE_NXUN; + if ((uptr->flags & UNIT_ATT) == 0) /* attached? */ + return SCPE_NOTATT; + strcpy(fn0, uptr->filename); + sim_card_detach(uptr); // detach file from cdp device to be splitted + } + + // read source deck + nCards = 0; + r = deck_load(fn0, DeckImage, &nCards); + if (r != SCPE_OK) return sim_messagef (r, "Cannot read source deck (%s)\n", fn0); + + // calc nCards1 = cards in first deck + if (tail) { + // calc cards remaining when last nCardCount are removed from source deck + nCards1 = nCards - nCards1; + if (nCards1 < 0) nCards1 = 0; + } + if (nCards1 > nCards) nCards1 = nCards; + + while (sim_isspace (*cptr)) cptr++; // trim leading spc + cptr = get_glyph_quoted (cptr, fn1, 0); // get next param: filename 1 + if (fn1[0] == 0) return sim_messagef (SCPE_ARG, "Missing first filename\n"); + while (sim_isspace (*cptr)) cptr++; // trim leading spc + cptr = get_glyph_quoted (cptr, fn2, 0); // get next param: filename 2 + if (fn2[0] == 0) return sim_messagef (SCPE_ARG, "Missing second filename\n"); + + r = deck_save(fn1, DeckImage, 0, nCards1); + if (r != SCPE_OK) return sim_messagef (r, "Cannot write destination deck1 (%s)\n", fn0); + + r = deck_save(fn2, DeckImage, nCards1, nCards-nCards1); + if (r != SCPE_OK) return sim_messagef (r, "Cannot write destination deck2 (%s)\n", fn0); + + if ((sim_switches & SWMASK ('Q')) == 0) { + sim_messagef (SCPE_OK, "Deck splitted to %d/%d cards\n", nCards1, nCards-nCards1); + } + return SCPE_OK; + +} + +// carddeck join ... as +static t_stat deck_join_cmd(CONST char *cptr) +{ + char fnSrc[4*CBUFSIZE]; + char fnDest[4*CBUFSIZE]; + CONST char *cptr0; + CONST char *cptrAS; + char gbuf[4*CBUFSIZE]; + t_stat r; + + uint16 DeckImage[80 * MAX_CARDS_IN_DECK]; + int i,nDeck, nCards, nCards1; + + cptr0 = cptr; + // look for "as" + while (*cptr) { + while (sim_isspace (*cptr)) cptr++; // trim leading spc + cptrAS = cptr; // mark position of AS + cptr = get_glyph_quoted (cptr, gbuf, 0); // get next param + if (gbuf[0] == 0) return sim_messagef (SCPE_ARG, "AS not found\n"); + for (i=0;i<2;i++) gbuf[i] = sim_toupper(gbuf[i]); + if (strcmp(gbuf, "AS") == 0) break; + } + + while (sim_isspace (*cptr)) cptr++; // trim leading spc + cptr = get_glyph_quoted (cptr, fnDest, 0); // get next param: destination filename + if (fnDest[0] == 0) return sim_messagef (SCPE_ARG, "Missing destination filename\n"); + if (*cptr) return sim_messagef (SCPE_ARG, "Extra unknown parameters after destination filename\n"); + + cptr = cptr0; // restore cptr to scan source filenames + nDeck = nCards = 0; + while (1) { + + while (sim_isspace (*cptr)) cptr++; // trim leading spc + if (cptrAS == cptr) break; // break if reach "AS" + cptr = get_glyph_quoted (cptr, fnSrc, 0); // get next param: source filename + if (fnSrc[0] == 0) return sim_messagef (SCPE_ARG, "Missing source filename\n"); + + // read source deck + nCards1 = nCards; + r = deck_load(fnSrc, DeckImage, &nCards); + if (r != SCPE_OK) return sim_messagef (r, "Cannot read source deck (%s)\n", fnSrc); + nDeck++; + + if ((sim_switches & SWMASK ('Q')) == 0) { + sim_messagef (SCPE_OK, "Source Deck %d has %d cards (%s)\n", nDeck, nCards - nCards1, fnSrc); + } + } + r = deck_save(fnDest, DeckImage, 0, nCards); + if (r != SCPE_OK) return sim_messagef (r, "Cannot write destination deck (%s)\n", fnDest); + + if ((sim_switches & SWMASK ('Q')) == 0) { + sim_messagef (SCPE_OK, "Destination Deck has %d cards (%s)\n", nCards, fnDest); + } + + return SCPE_OK; +} + +// carddeck print +static t_stat deck_print_cmd(CONST char *cptr) +{ + char fn[4*CBUFSIZE]; + char line[81]; + t_stat r; + + uint16 DeckImage[80 * MAX_CARDS_IN_DECK]; + int i,c,nc,nCards; + + while (sim_isspace (*cptr)) cptr++; // trim leading spc + cptr = get_glyph_quoted (cptr, fn, 0); // get next param: source filename + if (fn[0] == 0) return sim_messagef (SCPE_ARG, "Missing filename\n"); + if (*cptr) return sim_messagef (SCPE_ARG, "Extra unknown parameters after filename\n"); + + // read deck to be printed (-1 to convert to ascii value, not hol) + nCards = -1; + r = deck_load(fn, DeckImage, &nCards); + if (r != SCPE_OK) return sim_messagef (r, "Cannot read deck to print (%s)\n", fn); + + for (nc=0; nc nul +carddeck -q join is_main_src.txt as deck_in.dck :add_extra_decks if "%1" == "" goto run -set env deck="void" -if -i "%1" == "TR" set env deck="is_trace_src.txt" -if -i "%1" == "LBOX" set env deck="is_set_loopbox.txt" -if %deck == "void" goto next_extra +if -i "%1" == "TR" carddeck -q join deck_in.dck is_main_src.txt as deck_in.dck +if -i "%1" == "LBOX" carddeck -q join deck_in.dck is_set_loopbox.txt as deck_in.dck -! copy deck_in.dck a.dck > nul -! copy a.dck + %deck deck_in.dck > nul -! del a.dck > nul - -:next_extra shift goto add_extra_decks :run @@ -75,20 +68,20 @@ goto add_extra_decks att cdr1 deck_in.dck set cdr1 wiring=is -; execute the loader to create Interpretive system deck +; Execute the loader to read prepared is source deck echo *** -echo *** run system loader +echo *** Run system loader to read prepared is source deck echo *** d ar 0880 go -; generate a 1-word load card deck with whole interpretive system, ready to run +; Generate a 1-word load card deck with interpretive system, ready to run echo *** -echo *** run is system generation to create -echo interpretive system (is) 1-word per card load deck +echo *** Run system generation to punch +echo *** interpretive system main deck (1-word per card) echo *** att cdp1 -n -q is.dck diff --git a/I650/sw/Build_soap_from_source.ini b/I650/sw/Build_soap_from_source.ini index 24d409c9..b331b25d 100644 --- a/I650/sw/Build_soap_from_source.ini +++ b/I650/sw/Build_soap_from_source.ini @@ -9,9 +9,9 @@ set cpu 2k set cdr1 wiring=soap -; prepare deck: SOAP (condensed deck as 7 word per card format) then SOAP source code to assemblre +; prepare deck: SOAP (condensed deck as 7 word per card format) then SOAP source code to assemble -! copy soapII_condensed_card.dck + soap_src.txt deck_in.dck > nul +carddeck -q join soapII_condensed_card.dck soap_src.txt as deck_in.dck att cdr1 deck_in.dck att cdp1 -n -q deck_out.dck diff --git a/I650/sw/is.dck b/I650/sw/is.dck index 9b4d3472..cefa50d5 100644 --- a/I650/sw/is.dck +++ b/I650/sw/is.dck @@ -1,1100 +1,1100 @@ -6I1954195C000000000A240900800?651653130H000000000?000000000?000000000?000000000? -6I1954195C000000000B240901800?010000090A000000000?000000000?000000000?000000000? -6I1954195C000000000C240902800?651958126C000000000?000000000?000000000?000000000? -6I1954195C000000000D240903800?300008122A000000000?000000000?000000000?000000000? -6I1954195C000000000E240904800?000000094C000000000?000000000?000000000?000000000? -6I1954195C000000000F240905800?651959131C000000000?000000000?000000000?000000000? -6I1954195C000000000G240906800?300008117E000000000?000000000?000000000?000000000? -6I1954195C000000000H240907800?000000095G000000000?000000000?000000000?000000000? -6I1954195C000000000I240908800?651951145E000000000?000000000?000000000?000000000? -6I1954195C000000001?240909800?000000101C000000000?000000000?000000000?000000000? -6I1954195C000000001A240910800?151519127C000000000?000000000?000000000?000000000? -6I1954195C000000001B240911800?151519127C000000000?000000000?000000000?000000000? -6I1954195C000000001C240912800?651986119A000000000?000000000?000000000?000000000? -6I1954195C000000001D240913800?691016096I000000000?000000000?000000000?000000000? -6I1954195C000000001E240914800?000000800C000000000?000000000?000000000?000000000? -6I1954195C000000001F240915800?201519132B000000000?000000000?000000000?000000000? -6I1954195C000000001G240916800?651986119A000000000?000000000?000000000?000000000? -6I1954195C000000001H240917800?651959091E000000000?000000000?000000000?000000000? -6I1954195C000000001I240918800?691371117D000000000?000000000?000000000?000000000? -6I1954195C000000002?240919800?691372127E000000000?000000000?000000000?000000000? -6I1954195C000000002A240920800?651223091E000000000?000000000?000000000?000000000? -6I1954195C000000002B240921800?651986119A000000000?000000000?000000000?000000000? -6I1954195C000000002C240922800?651986119A000000000?000000000?000000000?000000000? -6I1954195C000000002D240923800?201872162H000000000?000000000?000000000?000000000? -6I1954195C000000002E240924800?601585183I000000000?000000000?000000000?000000000? -6I1954195C000000002F240925800?651957093A000000000?000000000?000000000?000000000? -6I1954195C000000002G240926800?691780117D000000000?000000000?000000000?000000000? -6I1954195C000000002H240927800?691830127E000000000?000000000?000000000?000000000? -6I1954195C000000002I240928800?651223093A000000000?000000000?000000000?000000000? -6I1954195C000000003?240929800?651682180A000000000?000000000?000000000?000000000? -6I1954195C000000003A240930800?601585183I000000000?000000000?000000000?000000000? -6I1954195C000000003B240931800?691784175?000000000?000000000?000000000?000000000? -6I1954195C000000003C240932800?601585183I000000000?000000000?000000000?000000000? -6I1954195C000000003D240933800?201872192G000000000?000000000?000000000?000000000? -6I1954195C000000003E240934800?101688174C000000000?000000000?000000000?000000000? -6I1954195C000000003F240935800?691738144B000000000?000000000?000000000?000000000? -6I1954195C000000003G240936800?601585183I000000000?000000000?000000000?000000000? -6I1954195C000000003H240937800?201492095B000000000?000000000?000000000?000000000? -6I1954195C000000003I240938800?601542139H000000000?000000000?000000000?000000000? -6I1954195C000000004?240939800?201793169F000000000?000000000?000000000?000000000? -6I1954195C000000004A240940800?601542139H000000000?000000000?000000000?000000000? -6I1954195C000000004B240941800?651958094D000000000?000000000?000000000?000000000? -6I1954195C000000004C240942800?691645117D000000000?000000000?000000000?000000000? -6I1954195C000000004D240943800?691646127E000000000?000000000?000000000?000000000? -6I1954195C000000004E240944800?691448175?000000000?000000000?000000000?000000000? -6I1954195C000000004F240945800?601542139H000000000?000000000?000000000?000000000? -6I1954195C000000004G240946800?651223094D000000000?000000000?000000000?000000000? -6I1954195C000000004H240947800?651882180A000000000?000000000?000000000?000000000? -6I1954195C000000004I240948800?601542139H000000000?000000000?000000000?000000000? -6I1954195C000000005?240949800?691828182F000000000?000000000?000000000?000000000? -6I1954195C000000005A240950800?210992095A000000000?000000000?000000000?000000000? -6I1954195C000000005B240951800?440952098G000000000?000000000?000000000?000000000? -6I1954195C000000005C240952800?461315095C000000000?000000000?000000000?000000000? -6I1954195C000000005D240953800?350008095D000000000?000000000?000000000?000000000? -6I1954195C000000005E240954800?110990095E000000000?000000000?000000000?000000000? -6I1954195C000000005F240955800?440956096B000000000?000000000?000000000?000000000? -6I1954195C000000005G240956800?110991095G000000000?000000000?000000000?000000000? -6I1954195C000000005H240957800?440958096A000000000?000000000?000000000?000000000? -6I1954195C000000005I240958800?110991095I000000000?000000000?000000000?000000000? -6I1954195C000000006?240959800?441315096?000000000?000000000?000000000?000000000? -6I1954195C000000006A240960800?690969096C000000000?000000000?000000000?000000000? -6I1954195C000000006B240961800?690968096C000000000?000000000?000000000?000000000? -6I1954195C000000006C240962800?690967096C000000000?000000000?000000000?000000000? -6I1954195C000000006D240963800?240984096D000000000?000000000?000000000?000000000? -6I1954195C000000006E240964800?650992098D000000000?000000000?000000000?000000000? -6I1954195C000000006F240965800?300002096F000000000?000000000?000000000?000000000? -6I1954195C000000006G240966800?441120097D000000000?000000000?000000000?000000000? -6I1954195C000000006H240967800?350001098E000000000?000000000?000000000?000000000? -6I1954195C000000006I240968800?350002098E000000000?000000000?000000000?000000000? -6I1954195C000000007?240969800?350003098E000000000?000000000?000000000?000000000? -6I1954195C000000007A240970800?651045097A000000000?000000000?000000000?000000000? -6I1954195C000000007B240971800?450972098G000000000?000000000?000000000?000000000? -6I1954195C000000007C240972800?160998097C000000000?000000000?000000000?000000000? -6I1954195C000000007D240973800?450975097G000000000?000000000?000000000?000000000? -6I1954195C000000007E240974800?601045102G000000000?000000000?000000000?000000000? -6I1954195C000000007F240975800?160998097F000000000?000000000?000000000?000000000? -6I1954195C000000007G240976800?450979097H000000000?000000000?000000000?000000000? -6I1954195C000000007H240977800?690997098?000000000?000000000?000000000?000000000? -6I1954195C000000007I240978800?690996098?000000000?000000000?000000000?000000000? -6I1954195C000000008?240979800?690995098?000000000?000000000?000000000?000000000? -6I1954195C000000008A240980800?240993098A000000000?000000000?000000000?000000000? -6I1954195C000000008B240981800?651023098B000000000?000000000?000000000?000000000? -6I1954195C000000008C240982800?300003098C000000000?000000000?000000000?000000000? -6I1954195C000000008D240983800?150994800B000000000?000000000?000000000?000000000? -6I1954195C000000008E240984800?350003098E000000000?000000000?000000000?000000000? -6I1954195C000000008F240985800?168002098F000000000?000000000?000000000?000000000? -6I1954195C000000008G240986800?690993800A000000000?000000000?000000000?000000000? -6I1954195C000000008H240987800?211017109E000000000?000000000?000000000?000000000? -6I1954195C000000008I240988800?000000000?000000000?000000000?000000000?000000000? -6I1954195C000000009?240989800?000000000?000000000?000000000?000000000?000000000? -6I1954195C000000009A240990800?500000000?000000000?000000000?000000000?000000000? -6I1954195C000000009B240991800?010000000?000000000?000000000?000000000?000000000? -6I1954195C000000009C240992800?000000000?000000000?000000000?000000000?000000000? -6I1954195C000000009D240993800?000000000?000000000?000000000?000000000?000000000? -6I1954195C000000009E240994800?600000095?000000000?000000000?000000000?000000000? -6I1954195C000000009F240995800?000000098G000000000?000000000?000000000?000000000? -6I1954195C000000009G240996800?350003098G000000000?000000000?000000000?000000000? -6I1954195C000000009H240997800?350006098G000000000?000000000?000000000?000000000? -6I1954195C000000009I240998800?001000000?000000000?000000000?000000000?000000000? -6I1954195C000000010?240999800?601952140G000000000?000000000?000000000?000000000? -6I1954195C000000010A241000800?300003111I000000000?000000000?000000000?000000000? -6I1954195C000000010B241001800?300005106D000000000?000000000?000000000?000000000? -6I1954195C000000010C241002800?451109118F000000000?000000000?000000000?000000000? -6I1954195C000000010D241003800?101017109C000000000?000000000?000000000?000000000? -6I1954195C000000010E241004800?201260106H000000000?000000000?000000000?000000000? -6I1954195C000000010F241005800?658003116C000000000?000000000?000000000?000000000? -6I1954195C000000010G241006800?651023107I000000000?000000000?000000000?000000000? -6I1954195C000000010H241007800?661023107I000000000?000000000?000000000?000000000? -6I1954195C000000010I241008800?101017107D000000000?000000000?000000000?000000000? -6I1954195C000000011?241009800?555555555E000000000?000000000?000000000?000000000? -6I1954195C000000011A241010800?300004134C000000000?000000000?000000000?000000000? -6I1954195C000000011B241011800?300004118?000000000?000000000?000000000?000000000? -6I1954195C000000011C241012800?461095112?000000000?000000000?000000000?000000000? -6I1954195C000000011D241013800?300002102A000000000?000000000?000000000?000000000? -6I1954195C000000011E241014800?101024172I000000000?000000000?000000000?000000000? -6I1954195C000000011F241015800?461120106I000000000?000000000?000000000?000000000? -6I1954195C000000011G241016800?010000112?000000000?000000000?000000000?000000000? -6I1954195C000000011H241017800?000000000?000000000?000000000?000000000?000000000? -6I1954195C000000011I241018800?601951112F000000000?000000000?000000000?000000000? -6I1954195C000000012?241019800?201023102F000000000?000000000?000000000?000000000? -6I1954195C000000012A241020800?698002108A000000000?000000000?000000000?000000000? -6I1954195C000000012B241021800?678002102I000000000?000000000?000000000?000000000? -6I1954195C000000012C241022800?670000113G000000000?000000000?000000000?000000000? -6I1954195C000000012D241023800?555555555E000000000?000000000?000000000?000000000? -6I1954195C000000012E241024800?000001000?000000000?000000000?000000000?000000000? -6I1954195C000000012F241025800?101031109C000000000?000000000?000000000?000000000? -6I1954195C000000012G241026800?608003103C000000000?000000000?000000000?000000000? -6I1954195C000000012H241027800?300003103E000000000?000000000?000000000?000000000? -6I1954195C000000012I241028800?108001113F000000000?000000000?000000000?000000000? -6I1954195C000000013?241029800?300001103F000000000?000000000?000000000?000000000? -6I1954195C000000013A241030800?600000109F000000000?000000000?000000000?000000000? -6I1954195C000000013B241031800?000100000?000000000?000000000?000000000?000000000? -6I1954195C000000013C241032800?300003114D000000000?000000000?000000000?000000000? -6I1954195C000000013D241033800?300003104A000000000?000000000?000000000?000000000? -6I1954195C000000013E241034800?101037800C000000000?000000000?000000000?000000000? -6I1954195C000000013F241035800?101038104C000000000?000000000?000000000?000000000? -6I1954195C000000013G241036800?161045101B000000000?000000000?000000000?000000000? -6I1954195C000000013H241037800?651045100?000000000?000000000?000000000?000000000? -6I1954195C000000013I241038800?600000110G000000000?000000000?000000000?000000000? -6I1954195C000000014?241039800?000100100?000000000?000000000?000000000?000000000? -6I1954195C000000014A241040800?691145115A000000000?000000000?000000000?000000000? -6I1954195C000000014B241041800?201045104H000000000?000000000?000000000?000000000? -6I1954195C000000014C241042800?451364137G000000000?000000000?000000000?000000000? -6I1954195C000000014D241043800?211098800A000000000?000000000?000000000?000000000? -6I1954195C000000014E241044800?777777777G000000000?000000000?000000000?000000000? -6I1954195C000000014F241045800?555555555E000000000?000000000?000000000?000000000? -6I1954195C000000014G241046800?618003106A000000000?000000000?000000000?000000000? -6I1954195C000000014H241047800?000000100?000000000?000000000?000000000?000000000? -6I1954195C000000014I241048800?608003110E000000000?000000000?000000000?000000000? -6I1954195C000000015?241049800?350003105H000000000?000000000?000000000?000000000? -6I1954195C000000015A241050800?651103116C000000000?000000000?000000000?000000000? -6I1954195C000000015B241051800?461054115E000000000?000000000?000000000?000000000? -6I1954195C000000015C241052800?300003136B000000000?000000000?000000000?000000000? -6I1954195C000000015D241053800?658002131A000000000?000000000?000000000?000000000? -6I1954195C000000015E241054800?108001106B000000000?000000000?000000000?000000000? -6I1954195C000000015F241055800?000000000E000000000?000000000?000000000?000000000? -6I1954195C000000015G241056800?211268123A000000000?000000000?000000000?000000000? -6I1954195C000000015H241057800?101017102E000000000?000000000?000000000?000000000? -6I1954195C000000015I241058800?210000120C000000000?000000000?000000000?000000000? -6I1954195C000000016?241059800?151162800B000000000?000000000?000000000?000000000? -6I1954195C000000016A241060800?651023112I000000000?000000000?000000000?000000000? -6I1954195C000000016B241061800?300003101I000000000?000000000?000000000?000000000? -6I1954195C000000016C241062800?211017112?000000000?000000000?000000000?000000000? -6I1954195C000000016D241063800?441067107F000000000?000000000?000000000?000000000? -6I1954195C000000016E241064800?691017107A000000000?000000000?000000000?000000000? -6I1954195C000000016F241065800?600000144E000000000?000000000?000000000?000000000? -6I1954195C000000016G241066800?777777777G000000000?000000000?000000000?000000000? -6I1954195C000000016H241067800?101020800C000000000?000000000?000000000?000000000? -6I1954195C000000016I241068800?651045139I000000000?000000000?000000000?000000000? -6I1954195C000000017?241069800?608002102G000000000?000000000?000000000?000000000? -6I1954195C000000017A241070800?661023112I000000000?000000000?000000000?000000000? -6I1954195C000000017B241071800?300002107G000000000?000000000?000000000?000000000? -6I1954195C000000017C241072800?670000119H000000000?000000000?000000000?000000000? -6I1954195C000000017D241073800?600000128I000000000?000000000?000000000?000000000? -6I1954195C000000017E241074800?101031113E000000000?000000000?000000000?000000000? -6I1954195C000000017F241075800?300003113C000000000?000000000?000000000?000000000? -6I1954195C000000017G241076800?608001103D000000000?000000000?000000000?000000000? -6I1954195C000000017H241077800?108001113E000000000?000000000?000000000?000000000? -6I1954195C000000017I241078800?108001118E000000000?000000000?000000000?000000000? -6I1954195C000000018?241079800?300007100D000000000?000000000?000000000?000000000? -6I1954195C000000018A241080800?300000110H000000000?000000000?000000000?000000000? -6I1954195C000000018B241081800?651023123B000000000?000000000?000000000?000000000? -6I1954195C000000018C241082800?241289149B000000000?000000000?000000000?000000000? -6I1954195C000000018D241083800?241289154B000000000?000000000?000000000?000000000? -6I1954195C000000018E241084800?241289159B000000000?000000000?000000000?000000000? -6I1954195C000000018F241085800?241289164B000000000?000000000?000000000?000000000? -6I1954195C000000018G241086800?241289169B000000000?000000000?000000000?000000000? -6I1954195C000000018H241087800?691140119E000000000?000000000?000000000?000000000? -6I1954195C000000018I241088800?691341119E000000000?000000000?000000000?000000000? -6I1954195C000000019?241089800?691342119E000000000?000000000?000000000?000000000? -6I1954195C000000019A241090800?658002100B000000000?000000000?000000000?000000000? -6I1954195C000000019B241091800?747788001I000000000?000000000?000000000?000000000? -6I1954195C000000019C241092800?151045104I000000000?000000000?000000000?000000000? -6I1954195C000000019D241093800?118002105A000000000?000000000?000000000?000000000? -6I1954195C000000019E241094800?111952800B000000000?000000000?000000000?000000000? -6I1954195C000000019F241095800?601098101D000000000?000000000?000000000?000000000? -6I1954195C000000019G241096800?699999112?000000000?000000000?000000000?000000000? -6I1954195C000000019H241097800?151023132G000000000?000000000?000000000?000000000? -6I1954195C000000019I241098800?600000110G000000000?000000000?000000000?000000000? -6I1954195C000000020?241099800?461367115C000000000?000000000?000000000?000000000? -6I1954195C000000020A241100800?300001105G000000000?000000000?000000000?000000000? -6I1954195C000000020B241101800?300001100H000000000?000000000?000000000?000000000? -6I1954195C000000020C241102800?111255115I000000000?000000000?000000000?000000000? -6I1954195C000000020D241103800?000003000?000000000?000000000?000000000?000000000? -6I1954195C000000020E241104800?000006000?000000000?000000000?000000000?000000000? -6I1954195C000000020F241105800?300003106C000000000?000000000?000000000?000000000? -6I1954195C000000020G241106800?101260126G000000000?000000000?000000000?000000000? -6I1954195C000000020H241107800?461112106A000000000?000000000?000000000?000000000? -6I1954195C000000020I241108800?201265112B000000000?000000000?000000000?000000000? -6I1954195C000000021?241109800?300003171I000000000?000000000?000000000?000000000? -6I1954195C000000021A241110800?691017112A000000000?000000000?000000000?000000000? -6I1954195C000000021B241111800?691017117A000000000?000000000?000000000?000000000? -6I1954195C000000021C241112800?111017104F000000000?000000000?000000000?000000000? -6I1954195C000000021D241113800?201017109E000000000?000000000?000000000?000000000? -6I1954195C000000021E241114800?670000107E000000000?000000000?000000000?000000000? -6I1954195C000000021F241115800?161023113?000000000?000000000?000000000?000000000? -6I1954195C000000021G241116800?350000126G000000000?000000000?000000000?000000000? -6I1954195C000000021H241117800?350003112E000000000?000000000?000000000?000000000? -6I1954195C000000021I241118800?151023113?000000000?000000000?000000000?000000000? -6I1954195C000000022?241119800?151030800B000000000?000000000?000000000?000000000? -6I1954195C000000022A241120800?601023102G000000000?000000000?000000000?000000000? -6I1954195C000000022B241121800?300001102H000000000?000000000?000000000?000000000? -6I1954195C000000022C241122800?608003103B000000000?000000000?000000000?000000000? -6I1954195C000000022D241123800?600000134H000000000?000000000?000000000?000000000? -6I1954195C000000022E241124800?241278119D000000000?000000000?000000000?000000000? -6I1954195C000000022F241125800?608003118C000000000?000000000?000000000?000000000? -6I1954195C000000022G241126800?101038172I000000000?000000000?000000000?000000000? -6I1954195C000000022H241127800?300003104?000000000?000000000?000000000?000000000? -6I1954195C000000022I241128800?350003800C000000000?000000000?000000000?000000000? -6I1954195C000000023?241129800?300004100D000000000?000000000?000000000?000000000? -6I1954195C000000023A241130800?350003119F000000000?000000000?000000000?000000000? -6I1954195C000000023B241131800?608000144E000000000?000000000?000000000?000000000? -6I1954195C000000023C241132800?118001119?000000000?000000000?000000000?000000000? -6I1954195C000000023D241133800?608002109B000000000?000000000?000000000?000000000? -6I1954195C000000023E241134800?201291127B000000000?000000000?000000000?000000000? -6I1954195C000000023F241135800?101138109C000000000?000000000?000000000?000000000? -6I1954195C000000023G241136800?101039109C000000000?000000000?000000000?000000000? -6I1954195C000000023H241137800?608002144E000000000?000000000?000000000?000000000? -6I1954195C000000023I241138800?000000000A000000000?000000000?000000000?000000000? -6I1954195C000000024?241139800?000100100A000000000?000000000?000000000?000000000? -6I1954195C000000024A241140800?350001135I000000000?000000000?000000000?000000000? -6I1954195C000000024B241141800?827473001H000000000?000000000?000000000?000000000? -6I1954195C000000024C241142800?240000110B000000000?000000000?000000000?000000000? -6I1954195C000000024D241143800?191801126G000000000?000000000?000000000?000000000? -6I1954195C000000024E241144800?608003115H000000000?000000000?000000000?000000000? -6I1954195C000000024F241145800?210000120C000000000?000000000?000000000?000000000? -6I1954195C000000024G241146800?111852190G000000000?000000000?000000000?000000000? -6I1954195C000000024H241147800?350001175C000000000?000000000?000000000?000000000? -6I1954195C000000024I241148800?101853176?000000000?000000000?000000000?000000000? -6I1954195C000000025?241149800?101856176B000000000?000000000?000000000?000000000? -6I1954195C000000025A241150800?031622776F000000000?000000000?000000000?000000000? -6I1954195C000000025B241151800?221058116A000000000?000000000?000000000?000000000? -6I1954195C000000025C241152800?101255120I000000000?000000000?000000000?000000000? -6I1954195C000000025D241153800?108002131B000000000?000000000?000000000?000000000? -6I1954195C000000025E241154800?828875100F000000000?000000000?000000000?000000000? -6I1954195C000000025F241155800?168002111C000000000?000000000?000000000?000000000? -6I1954195C000000025G241156800?111260126G000000000?000000000?000000000?000000000? -6I1954195C000000025H241157800?691160116D000000000?000000000?000000000?000000000? -6I1954195C000000025I241158800?461115111H000000000?000000000?000000000?000000000? -6I1954195C000000026?241159800?441366109E000000000?000000000?000000000?000000000? -6I1954195C000000026A241160800?210000109E000000000?000000000?000000000?000000000? -6I1954195C000000026B241161800?151114800B000000000?000000000?000000000?000000000? -6I1954195C000000026C241162800?600000101F000000000?000000000?000000000?000000000? -6I1954195C000000026D241163800?691116126I000000000?000000000?000000000?000000000? -6I1954195C000000026E241164800?221267117?000000000?000000000?000000000?000000000? -6I1954195C000000026F241165800?601957126A000000000?000000000?000000000?000000000? -6I1954195C000000026G241166800?211277173F000000000?000000000?000000000?000000000? -6I1954195C000000026H241167800?174532934H000000000?000000000?000000000?000000000? -6I1954195C000000026I241168800?241272108A000000000?000000000?000000000?000000000? -6I1954195C000000027?241169800?151022800B000000000?000000000?000000000?000000000? -6I1954195C000000027A241170800?151073800B000000000?000000000?000000000?000000000? -6I1954195C000000027B241171800?300001107H000000000?000000000?000000000?000000000? -6I1954195C000000027C241172800?111325133F000000000?000000000?000000000?000000000? -6I1954195C000000027D241173800?651957141A000000000?000000000?000000000?000000000? -6I1954195C000000027E241174800?241278148F000000000?000000000?000000000?000000000? -6I1954195C000000027F241175800?241986134D000000000?000000000?000000000?000000000? -6I1954195C000000027G241176800?111283800C000000000?000000000?000000000?000000000? -6I1954195C000000027H241177800?691080118D000000000?000000000?000000000?000000000? -6I1954195C000000027I241178800?241017117E000000000?000000000?000000000?000000000? -6I1954195C000000028?241179800?158001800C000000000?000000000?000000000?000000000? -6I1954195C000000028A241180800?101138134C000000000?000000000?000000000?000000000? -6I1954195C000000028B241181800?608003123I000000000?000000000?000000000?000000000? -6I1954195C000000028C241182800?451236123G000000000?000000000?000000000?000000000? -6I1954195C000000028D241183800?300003139B000000000?000000000?000000000?000000000? -6I1954195C000000028E241184800?221289129B000000000?000000000?000000000?000000000? -6I1954195C000000028F241185800?101139109C000000000?000000000?000000000?000000000? -6I1954195C000000028G241186800?651045105B000000000?000000000?000000000?000000000? -6I1954195C000000028H241187800?350003109G000000000?000000000?000000000?000000000? -6I1954195C000000028I241188800?691953800C000000000?000000000?000000000?000000000? -6I1954195C000000029?241189800?300001100D000000000?000000000?000000000?000000000? -6I1954195C000000029A241190800?101045109I000000000?000000000?000000000?000000000? -6I1954195C000000029B241191800?151294124I000000000?000000000?000000000?000000000? -6I1954195C000000029C241192800?441246125G000000000?000000000?000000000?000000000? -6I1954195C000000029D241193800?111268137C000000000?000000000?000000000?000000000? -6I1954195C000000029E241194800?200000117H000000000?000000000?000000000?000000000? -6I1954195C000000029F241195800?241198105C000000000?000000000?000000000?000000000? -6I1954195C000000029G241196800?151265127D000000000?000000000?000000000?000000000? -6I1954195C000000029H241197800?211255117F000000000?000000000?000000000?000000000? -6I1954195C000000029I241198800?350000135I000000000?000000000?000000000?000000000? -6I1954195C000000030?241199800?451203109E000000000?000000000?000000000?000000000? -6I1954195C000000030A241200800?300003105I000000000?000000000?000000000?000000000? -6I1954195C000000030B241201800?101009101E000000000?000000000?000000000?000000000? -6I1954195C000000030C241202800?601009101C000000000?000000000?000000000?000000000? -6I1954195C000000030D241203800?601023102G000000000?000000000?000000000?000000000? -6I1954195C000000030E241204800?651023112G000000000?000000000?000000000?000000000? -6I1954195C000000030F241205800?651023112H000000000?000000000?000000000?000000000? -6I1954195C000000030G241206800?461670121A000000000?000000000?000000000?000000000? -6I1954195C000000030H241207800?151310800B000000000?000000000?000000000?000000000? -6I1954195C000000030I241208800?350001121E000000000?000000000?000000000?000000000? -6I1954195C000000031?241209800?168002121G000000000?000000000?000000000?000000000? -6I1954195C000000031A241210800?168002122H000000000?000000000?000000000?000000000? -6I1954195C000000031B241211800?300002121H000000000?000000000?000000000?000000000? -6I1954195C000000031C241212800?191270122?000000000?000000000?000000000?000000000? -6I1954195C000000031D241213800?350002122A000000000?000000000?000000000?000000000? -6I1954195C000000031E241214800?151219800B000000000?000000000?000000000?000000000? -6I1954195C000000031F241215800?101419122D000000000?000000000?000000000?000000000? -6I1954195C000000031G241216800?161270122E000000000?000000000?000000000?000000000? -6I1954195C000000031H241217800?241270122G000000000?000000000?000000000?000000000? -6I1954195C000000031I241218800?441223144E000000000?000000000?000000000?000000000? -6I1954195C000000032?241219800?600000120F000000000?000000000?000000000?000000000? -6I1954195C000000032A241220800?310000124C000000000?000000000?000000000?000000000? -6I1954195C000000032B241221800?101278144E000000000?000000000?000000000?000000000? -6I1954195C000000032C241222800?191278120H000000000?000000000?000000000?000000000? -6I1954195C000000032D241223800?201278118A000000000?000000000?000000000?000000000? -6I1954195C000000032E241224800?668003194C000000000?000000000?000000000?000000000? -6I1954195C000000032F241225800?300001118B000000000?000000000?000000000?000000000? -6I1954195C000000032G241226800?310002124C000000000?000000000?000000000?000000000? -6I1954195C000000032H241227800?648001123H000000000?000000000?000000000?000000000? -6I1954195C000000032I241228800?198001124D000000000?000000000?000000000?000000000? -6I1954195C000000033?241229800?601234125A000000000?000000000?000000000?000000000? -6I1954195C000000033A241230800?608002144E000000000?000000000?000000000?000000000? -6I1954195C000000033B241231800?151188109D000000000?000000000?000000000?000000000? -6I1954195C000000033C241232800?101045136A000000000?000000000?000000000?000000000? -6I1954195C000000033D241233800?608002119B000000000?000000000?000000000?000000000? -6I1954195C000000033E241234800?000000002B000000000?000000000?000000000?000000000? -6I1954195C000000033F241235800?101240124E000000000?000000000?000000000?000000000? -6I1954195C000000033G241236800?658001119A000000000?000000000?000000000?000000000? -6I1954195C000000033H241237800?601055122B000000000?000000000?000000000?000000000? -6I1954195C000000033I241238800?201294121F000000000?000000000?000000000?000000000? -6I1954195C000000034?241239800?350001124H000000000?000000000?000000000?000000000? -6I1954195C000000034A241240800?000000000A000000000?000000000?000000000?000000000? -6I1954195C000000034B241241800?211277173F000000000?000000000?000000000?000000000? -6I1954195C000000034C241242800?701951134D000000000?000000000?000000000?000000000? -6I1954195C000000034D241243800?608002121C000000000?000000000?000000000?000000000? -6I1954195C000000034E241244800?300001115B000000000?000000000?000000000?000000000? -6I1954195C000000034F241245800?300001115B000000000?000000000?000000000?000000000? -6I1954195C000000034G241246800?601150121B000000000?000000000?000000000?000000000? -6I1954195C000000034H241247800?651250140H000000000?000000000?000000000?000000000? -6I1954195C000000034I241248800?211255122I000000000?000000000?000000000?000000000? -6I1954195C000000035?241249800?101055121?000000000?000000000?000000000?000000000? -6I1954195C000000035A241250800?888888888H000000000?000000000?000000000?000000000? -6I1954195C000000035B241251800?191255123E000000000?000000000?000000000?000000000? -6I1954195C000000035C241252800?888888888H000000000?000000000?000000000?000000000? -6I1954195C000000035D241253800?350007152H000000000?000000000?000000000?000000000? -6I1954195C000000035E241254800?101658141F000000000?000000000?000000000?000000000? -6I1954195C000000035F241255800?888888888H000000000?000000000?000000000?000000000? -6I1954195C000000035G241256800?201272157E000000000?000000000?000000000?000000000? -6I1954195C000000035H241257800?651270122F000000000?000000000?000000000?000000000? -6I1954195C000000035I241258800?168001156C000000000?000000000?000000000?000000000? -6I1954195C000000036?241259800?658003171G000000000?000000000?000000000?000000000? -6I1954195C000000036A241260800?300000178A000000000?000000000?000000000?000000000? -6I1954195C000000036B241261800?350002129C000000000?000000000?000000000?000000000? -6I1954195C000000036C241262800?461266174H000000000?000000000?000000000?000000000? -6I1954195C000000036D241263800?118002172E000000000?000000000?000000000?000000000? -6I1954195C000000036E241264800?000000000?000000000?000000000?000000000?000000000? -6I1954195C000000036F241265800?888888888H000000000?000000000?000000000?000000000? -6I1954195C000000036G241266800?108001127A000000000?000000000?000000000?000000000? -6I1954195C000000036H241267800?100000128E000000000?000000000?000000000?000000000? -6I1954195C000000036I241268800?888888888H000000000?000000000?000000000?000000000? -6I1954195C000000037?241269800?221274117G000000000?000000000?000000000?000000000? -6I1954195C000000037A241270800?888888888H000000000?000000000?000000000?000000000? -6I1954195C000000037B241271800?461676163D000000000?000000000?000000000?000000000? -6I1954195C000000037C241272800?211977198I000000000?000000000?000000000?000000000? -6I1954195C000000037D241273800?441677162H000000000?000000000?000000000?000000000? -6I1954195C000000037E241274800?350000126G000000000?000000000?000000000?000000000? -6I1954195C000000037F241275800?300001173D000000000?000000000?000000000?000000000? -6I1954195C000000037G241276800?461393138?000000000?000000000?000000000?000000000? -6I1954195C000000037H241277800?888888888H000000000?000000000?000000000?000000000? -6I1954195C000000037I241278800?601285139?000000000?000000000?000000000?000000000? -6I1954195C000000038?241279800?441383128D000000000?000000000?000000000?000000000? -6I1954195C000000038A241280800?111684138I000000000?000000000?000000000?000000000? -6I1954195C000000038B241281800?000000000A000000000?000000000?000000000?000000000? -6I1954195C000000038C241282800?691635168H000000000?000000000?000000000?000000000? -6I1954195C000000038D241283800?008003126D000000000?000000000?000000000?000000000? -6I1954195C000000038E241284800?310002139E000000000?000000000?000000000?000000000? -6I1954195C000000038F241285800?008003000?000000000?000000000?000000000?000000000? -6I1954195C000000038G241286800?111690144E000000000?000000000?000000000?000000000? -6I1954195C000000038H241287800?101690144E000000000?000000000?000000000?000000000? -6I1954195C000000038I241288800?608001174D000000000?000000000?000000000?000000000? -6I1954195C000000039?241289800?300000110H000000000?000000000?000000000?000000000? -6I1954195C000000039A241290800?191250137A000000000?000000000?000000000?000000000? -6I1954195C000000039B241291800?888888888H000000000?000000000?000000000?000000000? -6I1954195C000000039C241292800?651045134I000000000?000000000?000000000?000000000? -6I1954195C000000039D241293800?000000171F000000000?000000000?000000000?000000000? -6I1954195C000000039E241294800?888888888H000000000?000000000?000000000?000000000? -6I1954195C000000039F241295800?451298174I000000000?000000000?000000000?000000000? -6I1954195C000000039G241296800?191250136H000000000?000000000?000000000?000000000? -6I1954195C000000039H241297800?888888888H000000000?000000000?000000000?000000000? -6I1954195C000000039I241298800?461569167D000000000?000000000?000000000?000000000? -6I1954195C000000040?241299800?441253155D000000000?000000000?000000000?000000000? -6I1954195C000000040A241300800?300003121D000000000?000000000?000000000?000000000? -6I1954195C000000040B241301800?691514146G000000000?000000000?000000000?000000000? -6I1954195C000000040C241302800?691807181H000000000?000000000?000000000?000000000? -6I1954195C000000040D241303800?691256161D000000000?000000000?000000000?000000000? -6I1954195C000000040E241304800?691707166D000000000?000000000?000000000?000000000? -6I1954195C000000040F241305800?691758176A000000000?000000000?000000000?000000000? -6I1954195C000000040G241306800?777777777G000000000?000000000?000000000?000000000? -6I1954195C000000040H241307800?777777777G000000000?000000000?000000000?000000000? -6I1954195C000000040I241308800?777777777G000000000?000000000?000000000?000000000? -6I1954195C000000041?241309800?777777777G000000000?000000000?000000000?000000000? -6I1954195C000000041A241310800?610000147C000000000?000000000?000000000?000000000? -6I1954195C000000041B241311800?300003136I000000000?000000000?000000000?000000000? -6I1954195C000000041C241312800?300003132B000000000?000000000?000000000?000000000? -6I1954195C000000041D241313800?221267137?000000000?000000000?000000000?000000000? -6I1954195C000000041E241314800?777777777G000000000?000000000?000000000?000000000? -6I1954195C000000041F241315800?692222109E000000000?000000000?000000000?000000000? -6I1954195C000000041G241316800?608003153I000000000?000000000?000000000?000000000? -6I1954195C000000041H241317800?777777777G000000000?000000000?000000000?000000000? -6I1954195C000000041I241318800?601285139?000000000?000000000?000000000?000000000? -6I1954195C000000042?241319800?151024113D000000000?000000000?000000000?000000000? -6I1954195C000000042A241320800?151024133E000000000?000000000?000000000?000000000? -6I1954195C000000042B241321800?101024117I000000000?000000000?000000000?000000000? -6I1954195C000000042C241322800?101325133?000000000?000000000?000000000?000000000? -6I1954195C000000042D241323800?777777777G000000000?000000000?000000000?000000000? -6I1954195C000000042E241324800?240000132?000000000?000000000?000000000?000000000? -6I1954195C000000042F241325800?690000800B000000000?000000000?000000000?000000000? -6I1954195C000000042G241326800?111951136E000000000?000000000?000000000?000000000? -6I1954195C000000042H241327800?441315113B000000000?000000000?000000000?000000000? -6I1954195C000000042I241328800?668002134?000000000?000000000?000000000?000000000? -6I1954195C000000043?241329800?201283118G000000000?000000000?000000000?000000000? -6I1954195C000000043A241330800?161283138H000000000?000000000?000000000?000000000? -6I1954195C000000043B241331800?691434153G000000000?000000000?000000000?000000000? -6I1954195C000000043C241332800?608003168I000000000?000000000?000000000?000000000? -6I1954195C000000043D241333800?601242112D000000000?000000000?000000000?000000000? -6I1954195C000000043E241334800?101337142C000000000?000000000?000000000?000000000? -6I1954195C000000043F241335800?108001119C000000000?000000000?000000000?000000000? -6I1954195C000000043G241336800?161142119G000000000?000000000?000000000?000000000? -6I1954195C000000043H241337800?777777777G000000000?000000000?000000000?000000000? -6I1954195C000000043I241338800?658002144E000000000?000000000?000000000?000000000? -6I1954195C000000044?241339800?108001800B000000000?000000000?000000000?000000000? -6I1954195C000000044A241340800?111045136C000000000?000000000?000000000?000000000? -6I1954195C000000044B241341800?350004135I000000000?000000000?000000000?000000000? -6I1954195C000000044C241342800?350007135I000000000?000000000?000000000?000000000? -6I1954195C000000044D241343800?101047100C000000000?000000000?000000000?000000000? -6I1954195C000000044E241344800?601952104B000000000?000000000?000000000?000000000? -6I1954195C000000044F241345800?241061101H000000000?000000000?000000000?000000000? -6I1954195C000000044G241346800?601277158D000000000?000000000?000000000?000000000? -6I1954195C000000044H241347800?111952137B000000000?000000000?000000000?000000000? -6I1954195C000000044I241348800?461156110F000000000?000000000?000000000?000000000? -6I1954195C000000045?241349800?300003115G000000000?000000000?000000000?000000000? -6I1954195C000000045A241350800?300003116I000000000?000000000?000000000?000000000? -6I1954195C000000045B241351800?691464146G000000000?000000000?000000000?000000000? -6I1954195C000000045C241352800?691815181H000000000?000000000?000000000?000000000? -6I1954195C000000045D241353800?691384173I000000000?000000000?000000000?000000000? -6I1954195C000000045E241354800?691385173I000000000?000000000?000000000?000000000? -6I1954195C000000045F241355800?691908176A000000000?000000000?000000000?000000000? -6I1954195C000000045G241356800?777777777G000000000?000000000?000000000?000000000? -6I1954195C000000045H241357800?691360131C000000000?000000000?000000000?000000000? -6I1954195C000000045I241358800?200796090?000000000?000000000?000000000?000000000? -6I1954195C000000046?241359800?658002111G000000000?000000000?000000000?000000000? -6I1954195C000000046A241360800?210000109E000000000?000000000?000000000?000000000? -6I1954195C000000046B241361800?300003131I000000000?000000000?000000000?000000000? -6I1954195C000000046C241362800?151065800B000000000?000000000?000000000?000000000? -6I1954195C000000046D241363800?300003117B000000000?000000000?000000000?000000000? -6I1954195C000000046E241364800?101324168F000000000?000000000?000000000?000000000? -6I1954195C000000046F241365800?441315173C000000000?000000000?000000000?000000000? -6I1954195C000000046G241366800?108001132A000000000?000000000?000000000?000000000? -6I1954195C000000046H241367800?101023132H000000000?000000000?000000000?000000000? -6I1954195C000000046I241368800?608003172H000000000?000000000?000000000?000000000? -6I1954195C000000047?241369800?151072800B000000000?000000000?000000000?000000000? -6I1954195C000000047A241370800?151123800B000000000?000000000?000000000?000000000? -6I1954195C000000047B241371800?608003128?000000000?000000000?000000000?000000000? -6I1954195C000000047C241372800?111277138B000000000?000000000?000000000?000000000? -6I1954195C000000047D241373800?441339127H000000000?000000000?000000000?000000000? -6I1954195C000000047E241374800?693333133H000000000?000000000?000000000?000000000? -6I1954195C000000047F241375800?010000171E000000000?000000000?000000000?000000000? -6I1954195C000000047G241376800?241985139G000000000?000000000?000000000?000000000? -6I1954195C000000047H241377800?691959137F000000000?000000000?000000000?000000000? -6I1954195C000000047I241378800?777777777G000000000?000000000?000000000?000000000? -6I1954195C000000048?241379800?608002173G000000000?000000000?000000000?000000000? -6I1954195C000000048A241380800?601865128C000000000?000000000?000000000?000000000? -6I1954195C000000048B241381800?777777777G000000000?000000000?000000000?000000000? -6I1954195C000000048C241382800?461315174?000000000?000000000?000000000?000000000? -6I1954195C000000048D241383800?310003172B000000000?000000000?000000000?000000000? -6I1954195C000000048E241384800?210000130C000000000?000000000?000000000?000000000? -6I1954195C000000048F241385800?210000130D000000000?000000000?000000000?000000000? -6I1954195C000000048G241386800?651789164C000000000?000000000?000000000?000000000? -6I1954195C000000048H241387800?111490129F000000000?000000000?000000000?000000000? -6I1954195C000000048I241388800?151142119G000000000?000000000?000000000?000000000? -6I1954195C000000049?241389800?191250127E000000000?000000000?000000000?000000000? -6I1954195C000000049A241390800?441346109E000000000?000000000?000000000?000000000? -6I1954195C000000049B241391800?777777777G000000000?000000000?000000000?000000000? -6I1954195C000000049C241392800?161045119I000000000?000000000?000000000?000000000? -6I1954195C000000049D241393800?696666133H000000000?000000000?000000000?000000000? -6I1954195C000000049E241394800?101398172F000000000?000000000?000000000?000000000? -6I1954195C000000049F241395800?350001137I000000000?000000000?000000000?000000000? -6I1954195C000000049G241396800?777777777G000000000?000000000?000000000?000000000? -6I1954195C000000049H241397800?691976134E000000000?000000000?000000000?000000000? -6I1954195C000000049I241398800?157079631H000000000?000000000?000000000?000000000? -6I1954195C000000050?241399800?300003135G000000000?000000000?000000000?000000000? -6I1954195C000000050A241400800?691318117D000000000?000000000?000000000?000000000? -6I1954195C000000050B241401800?010000113A000000000?000000000?000000000?000000000? -6I1954195C000000050C241402800?608003155I000000000?000000000?000000000?000000000? -6I1954195C000000050D241403800?360000152A000000000?000000000?000000000?000000000? -6I1954195C000000050E241404800?211009141D000000000?000000000?000000000?000000000? -6I1954195C000000050F241405800?300002141A000000000?000000000?000000000?000000000? -6I1954195C000000050G241406800?151409800B000000000?000000000?000000000?000000000? -6I1954195C000000050H241407800?350002166C000000000?000000000?000000000?000000000? -6I1954195C000000050I241408800?151272142I000000000?000000000?000000000?000000000? -6I1954195C000000051?241409800?600000144F000000000?000000000?000000000?000000000? -6I1954195C000000051A241410800?691964116H000000000?000000000?000000000?000000000? -6I1954195C000000051B241411800?201265146H000000000?000000000?000000000?000000000? -6I1954195C000000051C241412800?691272163I000000000?000000000?000000000?000000000? -6I1954195C000000051D241413800?158001142I000000000?000000000?000000000?000000000? -6I1954195C000000051E241414800?651023142G000000000?000000000?000000000?000000000? -6I1954195C000000051F241415800?451418146I000000000?000000000?000000000?000000000? -6I1954195C000000051G241416800?191270144H000000000?000000000?000000000?000000000? -6I1954195C000000051H241417800?461420142A000000000?000000000?000000000?000000000? -6I1954195C000000051I241418800?461422142C000000000?000000000?000000000?000000000? -6I1954195C000000052?241419800?000000002E000000000?000000000?000000000?000000000? -6I1954195C000000052A241420800?691424147G000000000?000000000?000000000?000000000? -6I1954195C000000052B241421800?691524147G000000000?000000000?000000000?000000000? -6I1954195C000000052C241422800?608001144E000000000?000000000?000000000?000000000? -6I1954195C000000052D241423800?601278144E000000000?000000000?000000000?000000000? -6I1954195C000000052E241424800?211285143H000000000?000000000?000000000?000000000? -6I1954195C000000052F241425800?241485148H000000000?000000000?000000000?000000000? -6I1954195C000000052G241426800?191252171H000000000?000000000?000000000?000000000? -6I1954195C000000052H241427800?451430109E000000000?000000000?000000000?000000000? -6I1954195C000000052I241428800?441431163B000000000?000000000?000000000?000000000? -6I1954195C000000053?241429800?350002143E000000000?000000000?000000000?000000000? -6I1954195C000000053A241430800?300003143I000000000?000000000?000000000?000000000? -6I1954195C000000053B241431800?601434167E000000000?000000000?000000000?000000000? -6I1954195C000000053C241432800?691250163I000000000?000000000?000000000?000000000? -6I1954195C000000053D241433800?310000141C000000000?000000000?000000000?000000000? -6I1954195C000000053E241434800?100000005?000000000?000000000?000000000?000000000? -6I1954195C000000053F241435800?441489144?000000000?000000000?000000000?000000000? -6I1954195C000000053G241436800?221639144B000000000?000000000?000000000?000000000? -6I1954195C000000053H241437800?678003149E000000000?000000000?000000000?000000000? -6I1954195C000000053I241438800?601665152B000000000?000000000?000000000?000000000? -6I1954195C000000054?241439800?151443144G000000000?000000000?000000000?000000000? -6I1954195C000000054A241440800?451494144E000000000?000000000?000000000?000000000? -6I1954195C000000054B241441800?600000155C000000000?000000000?000000000?000000000? -6I1954195C000000054C241442800?451697124G000000000?000000000?000000000?000000000? -6I1954195C000000054D241443800?240000109E000000000?000000000?000000000?000000000? -6I1954195C000000054E241444800?490000000?000000000?000000000?000000000?000000000? -6I1954195C000000054F241445800?210000140D000000000?000000000?000000000?000000000? -6I1954195C000000054G241446800?210000140E000000000?000000000?000000000?000000000? -6I1954195C000000054H241447800?690000800B000000000?000000000?000000000?000000000? -6I1954195C000000054I241448800?608003160H000000000?000000000?000000000?000000000? -6I1954195C000000055?241449800?300003145G000000000?000000000?000000000?000000000? -6I1954195C000000055A241450800?651961131A000000000?000000000?000000000?000000000? -6I1954195C000000055B241451800?211606160I000000000?000000000?000000000?000000000? -6I1954195C000000055C241452800?000404099H000000000?000000000?000000000?000000000? -6I1954195C000000055D241453800?601009096E000000000?000000000?000000000?000000000? -6I1954195C000000055E241454800?000000109E000000000?000000000?000000000?000000000? -6I1954195C000000055F241455800?151561800B000000000?000000000?000000000?000000000? -6I1954195C000000055G241456800?010000000?000000000?000000000?000000000?000000000? -6I1954195C000000055H241457800?151460800B000000000?000000000?000000000?000000000? -6I1954195C000000055I241458800?441462151B000000000?000000000?000000000?000000000? -6I1954195C000000056?241459800?211264141G000000000?000000000?000000000?000000000? -6I1954195C000000056A241460800?600000147C000000000?000000000?000000000?000000000? -6I1954195C000000056B241461800?181265147A000000000?000000000?000000000?000000000? -6I1954195C000000056C241462800?461615139C000000000?000000000?000000000?000000000? -6I1954195C000000056D241463800?115129277F000000000?000000000?000000000?000000000? -6I1954195C000000056E241464800?221495150B000000000?000000000?000000000?000000000? -6I1954195C000000056F241465800?201270147D000000000?000000000?000000000?000000000? -6I1954195C000000056G241466800?191270169D000000000?000000000?000000000?000000000? -6I1954195C000000056H241467800?300003142E000000000?000000000?000000000?000000000? -6I1954195C000000056I241468800?211272147E000000000?000000000?000000000?000000000? -6I1954195C000000057?241469800?461472162C000000000?000000000?000000000?000000000? -6I1954195C000000057A241470800?350001142H000000000?000000000?000000000?000000000? -6I1954195C000000057B241471800?350002157G000000000?000000000?000000000?000000000? -6I1954195C000000057C241472800?651250141B000000000?000000000?000000000?000000000? -6I1954195C000000057D241473800?211278148C000000000?000000000?000000000?000000000? -6I1954195C000000057E241474800?211278168A000000000?000000000?000000000?000000000? -6I1954195C000000057F241475800?601278158C000000000?000000000?000000000?000000000? -6I1954195C000000057G241476800?101886174A000000000?000000000?000000000?000000000? -6I1954195C000000057H241477800?241480163C000000000?000000000?000000000?000000000? -6I1954195C000000057I241478800?691481148E000000000?000000000?000000000?000000000? -6I1954195C000000058?241479800?608003148G000000000?000000000?000000000?000000000? -6I1954195C000000058A241480800?211285143H000000000?000000000?000000000?000000000? -6I1954195C000000058B241481800?300000146E000000000?000000000?000000000?000000000? -6I1954195C000000058C241482800?350000146E000000000?000000000?000000000?000000000? -6I1954195C000000058D241483800?651289149C000000000?000000000?000000000?000000000? -6I1954195C000000058E241484800?310002174C000000000?000000000?000000000?000000000? -6I1954195C000000058F241485800?221495150B000000000?000000000?000000000?000000000? -6I1954195C000000058G241486800?691241116H000000000?000000000?000000000?000000000? -6I1954195C000000058H241487800?300002154D000000000?000000000?000000000?000000000? -6I1954195C000000058I241488800?151441800B000000000?000000000?000000000?000000000? -6I1954195C000000059?241489800?310003149I000000000?000000000?000000000?000000000? -6I1954195C000000059A241490800?004673765F000000000?000000000?000000000?000000000? -6I1954195C000000059B241491800?461594139C000000000?000000000?000000000?000000000? -6I1954195C000000059C241492800?651045144I000000000?000000000?000000000?000000000? -6I1954195C000000059D241493800?451496149G000000000?000000000?000000000?000000000? -6I1954195C000000059E241494800?608002140C000000000?000000000?000000000?000000000? -6I1954195C000000059F241495800?000000146E000000000?000000000?000000000?000000000? -6I1954195C000000059G241496800?300003140F000000000?000000000?000000000?000000000? -6I1954195C000000059H241497800?600000140E000000000?000000000?000000000?000000000? -6I1954195C000000059I241498800?350002156F000000000?000000000?000000000?000000000? -6I1954195C000000060?241499800?461652170C000000000?000000000?000000000?000000000? -6I1954195C000000060A241500800?651104116C000000000?000000000?000000000?000000000? -6I1954195C000000060B241501800?241265161I000000000?000000000?000000000?000000000? -6I1954195C000000060C241502800?671264166I000000000?000000000?000000000?000000000? -6I1954195C000000060D241503800?300005141E000000000?000000000?000000000?000000000? -6I1954195C000000060E241504800?434294481I000000000?000000000?000000000?000000000? -6I1954195C000000060F241505800?691261158E000000000?000000000?000000000?000000000? -6I1954195C000000060G241506800?000255491H000000000?000000000?000000000?000000000? -6I1954195C000000060H241507800?158001156C000000000?000000000?000000000?000000000? -6I1954195C000000060I241508800?600000165E000000000?000000000?000000000?000000000? -6I1954195C000000061?241509800?191264163A000000000?000000000?000000000?000000000? -6I1954195C000000061A241510800?181267162A000000000?000000000?000000000?000000000? -6I1954195C000000061B241511800?441515131F000000000?000000000?000000000?000000000? -6I1954195C000000061C241512800?300005152E000000000?000000000?000000000?000000000? -6I1954195C000000061D241513800?066273088D000000000?000000000?000000000?000000000? -6I1954195C000000061E241514800?221495155A000000000?000000000?000000000?000000000? -6I1954195C000000061F241515800?211270152C000000000?000000000?000000000?000000000? -6I1954195C000000061G241516800?191270169E000000000?000000000?000000000?000000000? -6I1954195C000000061H241517800?191270160B000000000?000000000?000000000?000000000? -6I1954195C000000061I241518800?000000005?000000000?000000000?000000000?000000000? -6I1954195C000000062?241519800?300004163?000000000?000000000?000000000?000000000? -6I1954195C000000062A241520800?198003148?000000000?000000000?000000000?000000000? -6I1954195C000000062B241521800?118002147I000000000?000000000?000000000?000000000? -6I1954195C000000062C241522800?300002167I000000000?000000000?000000000?000000000? -6I1954195C000000062D241523800?201277153?000000000?000000000?000000000?000000000? -6I1954195C000000062E241524800?658003168G000000000?000000000?000000000?000000000? -6I1954195C000000062F241525800?461478152I000000000?000000000?000000000?000000000? -6I1954195C000000062G241526800?691886174B000000000?000000000?000000000?000000000? -6I1954195C000000062H241527800?451680144E000000000?000000000?000000000?000000000? -6I1954195C000000062I241528800?461581153B000000000?000000000?000000000?000000000? -6I1954195C000000063?241529800?691482148E000000000?000000000?000000000?000000000? -6I1954195C000000063A241530800?601283153G000000000?000000000?000000000?000000000? -6I1954195C000000063B241531800?201285158H000000000?000000000?000000000?000000000? -6I1954195C000000063C241532800?171285153I000000000?000000000?000000000?000000000? -6I1954195C000000063D241533800?310003174C000000000?000000000?000000000?000000000? -6I1954195C000000063E241534800?079689679C000000000?000000000?000000000?000000000? -6I1954195C000000063F241535800?350000171F000000000?000000000?000000000?000000000? -6I1954195C000000063G241536800?658002154E000000000?000000000?000000000?000000000? -6I1954195C000000063H241537800?300002154C000000000?000000000?000000000?000000000? -6I1954195C000000063I241538800?151691129E000000000?000000000?000000000?000000000? -6I1954195C000000064?241539800?350002144E000000000?000000000?000000000?000000000? -6I1954195C000000064A241540800?618003174H000000000?000000000?000000000?000000000? -6I1954195C000000064B241541800?161444165?000000000?000000000?000000000?000000000? -6I1954195C000000064C241542800?651045159I000000000?000000000?000000000?000000000? -6I1954195C000000064D241543800?441547144E000000000?000000000?000000000?000000000? -6I1954195C000000064E241544800?461461161A000000000?000000000?000000000?000000000? -6I1954195C000000064F241545800?300003145E000000000?000000000?000000000?000000000? -6I1954195C000000064G241546800?601252156D000000000?000000000?000000000?000000000? -6I1954195C000000064H241547800?211252155F000000000?000000000?000000000?000000000? -6I1954195C000000064I241548800?000093264C000000000?000000000?000000000?000000000? -6I1954195C000000065?241549800?300003155G000000000?000000000?000000000?000000000? -6I1954195C000000065A241550800?350001145H000000000?000000000?000000000?000000000? -6I1954195C000000065B241551800?601504150I000000000?000000000?000000000?000000000? -6I1954195C000000065C241552800?608003160I000000000?000000000?000000000?000000000? -6I1954195C000000065D241553800?300002145I000000000?000000000?000000000?000000000? -6I1954195C000000065E241554800?461507125H000000000?000000000?000000000?000000000? -6I1954195C000000065F241555800?601167157H000000000?000000000?000000000?000000000? -6I1954195C000000065G241556800?688002156E000000000?000000000?000000000?000000000? -6I1954195C000000065H241557800?151560800B000000000?000000000?000000000?000000000? -6I1954195C000000065I241558800?101562161G000000000?000000000?000000000?000000000? -6I1954195C000000066?241559800?101463151G000000000?000000000?000000000?000000000? -6I1954195C000000066A241560800?600000157H000000000?000000000?000000000?000000000? -6I1954195C000000066B241561800?600000157D000000000?000000000?000000000?000000000? -6I1954195C000000066C241562800?025439357E000000000?000000000?000000000?000000000? -6I1954195C000000066D241563800?608002157A000000000?000000000?000000000?000000000? -6I1954195C000000066E241564800?191270164H000000000?000000000?000000000?000000000? -6I1954195C000000066F241565800?151568157C000000000?000000000?000000000?000000000? -6I1954195C000000066G241566800?608002162E000000000?000000000?000000000?000000000? -6I1954195C000000066H241567800?191270140B000000000?000000000?000000000?000000000? -6I1954195C000000066I241568800?490000000?000000000?000000000?000000000?000000000? -6I1954195C000000067?241569800?681272162G000000000?000000000?000000000?000000000? -6I1954195C000000067A241570800?201278193A000000000?000000000?000000000?000000000? -6I1954195C000000067B241571800?300002152H000000000?000000000?000000000?000000000? -6I1954195C000000067C241572800?000151484B000000000?000000000?000000000?000000000? -6I1954195C000000067D241573800?181277153A000000000?000000000?000000000?000000000? -6I1954195C000000067E241574800?211278158B000000000?000000000?000000000?000000000? -6I1954195C000000067F241575800?688002153H000000000?000000000?000000000?000000000? -6I1954195C000000067G241576800?111886174B000000000?000000000?000000000?000000000? -6I1954195C000000067H241577800?108002144E000000000?000000000?000000000?000000000? -6I1954195C000000067I241578800?211283158F000000000?000000000?000000000?000000000? -6I1954195C000000068?241579800?241283153F000000000?000000000?000000000?000000000? -6I1954195C000000068A241580800?000000000?000000000?000000000?000000000?000000000? -6I1954195C000000068B241581800?181285153I000000000?000000000?000000000?000000000? -6I1954195C000000068C241582800?300002168I000000000?000000000?000000000?000000000? -6I1954195C000000068D241583800?300002158I000000000?000000000?000000000?000000000? -6I1954195C000000068E241584800?101952116F000000000?000000000?000000000?000000000? -6I1954195C000000068F241585800?241539169H000000000?000000000?000000000?000000000? -6I1954195C000000068G241586800?651289159C000000000?000000000?000000000?000000000? -6I1954195C000000068H241587800?000000005?000000000?000000000?000000000?000000000? -6I1954195C000000068I241588800?461591159E000000000?000000000?000000000?000000000? -6I1954195C000000069?241589800?201293169F000000000?000000000?000000000?000000000? -6I1954195C000000069A241590800?601952136D000000000?000000000?000000000?000000000? -6I1954195C000000069B241591800?441595154F000000000?000000000?000000000?000000000? -6I1954195C000000069C241592800?651045154I000000000?000000000?000000000?000000000? -6I1954195C000000069D241593800?451596159G000000000?000000000?000000000?000000000? -6I1954195C000000069E241594800?601548151F000000000?000000000?000000000?000000000? -6I1954195C000000069F241595800?695555133H000000000?000000000?000000000?000000000? -6I1954195C000000069G241596800?300003160E000000000?000000000?000000000?000000000? -6I1954195C000000069H241597800?600000165E000000000?000000000?000000000?000000000? -6I1954195C000000069I241598800?608003155H000000000?000000000?000000000?000000000? -6I1954195C000000070?241599800?300003120G000000000?000000000?000000000?000000000? -6I1954195C000000070A241600800?651023118I000000000?000000000?000000000?000000000? -6I1954195C000000070B241601800?350001170I000000000?000000000?000000000?000000000? -6I1954195C000000070C241602800?608003166B000000000?000000000?000000000?000000000? -6I1954195C000000070D241603800?678002166A000000000?000000000?000000000?000000000? -6I1954195C000000070E241604800?350002161F000000000?000000000?000000000?000000000? -6I1954195C000000070F241605800?151508800B000000000?000000000?000000000?000000000? -6I1954195C000000070G241606800?300002161C000000000?000000000?000000000?000000000? -6I1954195C000000070H241607800?151610800B000000000?000000000?000000000?000000000? -6I1954195C000000070I241608800?101612166G000000000?000000000?000000000?000000000? -6I1954195C000000071?241609800?101513156G000000000?000000000?000000000?000000000? -6I1954195C000000071A241610800?600000167C000000000?000000000?000000000?000000000? -6I1954195C000000071B241611800?171265147A000000000?000000000?000000000?000000000? -6I1954195C000000071C241612800?007295173G000000000?000000000?000000000?000000000? -6I1954195C000000071D241613800?201267162?000000000?000000000?000000000?000000000? -6I1954195C000000071E241614800?241267172A000000000?000000000?000000000?000000000? -6I1954195C000000071F241615800?601434144E000000000?000000000?000000000?000000000? -6I1954195C000000071G241616800?108002167E000000000?000000000?000000000?000000000? -6I1954195C000000071H241617800?191270155B000000000?000000000?000000000?000000000? -6I1954195C000000071I241618800?159154943?000000000?000000000?000000000?000000000? -6I1954195C000000072?241619800?651272143B000000000?000000000?000000000?000000000? -6I1954195C000000072A241620800?211274152G000000000?000000000?000000000?000000000? -6I1954195C000000072B241621800?461624159E000000000?000000000?000000000?000000000? -6I1954195C000000072C241622800?691576157I000000000?000000000?000000000?000000000? -6I1954195C000000072D241623800?691293150A000000000?000000000?000000000?000000000? -6I1954195C000000072E241624800?441595167H000000000?000000000?000000000?000000000? -6I1954195C000000072F241625800?101278168C000000000?000000000?000000000?000000000? -6I1954195C000000072G241626800?211283163F000000000?000000000?000000000?000000000? -6I1954195C000000072H241627800?151444160A000000000?000000000?000000000?000000000? -6I1954195C000000072I241628800?691281148D000000000?000000000?000000000?000000000? -6I1954195C000000073?241629800?350001168E000000000?000000000?000000000?000000000? -6I1954195C000000073A241630800?691433143F000000000?000000000?000000000?000000000? -6I1954195C000000073B241631800?350002143G000000000?000000000?000000000?000000000? -6I1954195C000000073C241632800?310002164A000000000?000000000?000000000?000000000? -6I1954195C000000073D241633800?678002154A000000000?000000000?000000000?000000000? -6I1954195C000000073E241634800?118001174H000000000?000000000?000000000?000000000? -6I1954195C000000073F241635800?300000171F000000000?000000000?000000000?000000000? -6I1954195C000000073G241636800?651289164C000000000?000000000?000000000?000000000? -6I1954195C000000073H241637800?300002169C000000000?000000000?000000000?000000000? -6I1954195C000000073I241638800?601291164E000000000?000000000?000000000?000000000? -6I1954195C000000074?241639800?310000141C000000000?000000000?000000000?000000000? -6I1954195C000000074A241640800?658003167B000000000?000000000?000000000?000000000? -6I1954195C000000074B241641800?151444160D000000000?000000000?000000000?000000000? -6I1954195C000000074C241642800?651045169I000000000?000000000?000000000?000000000? -6I1954195C000000074D241643800?451646164G000000000?000000000?000000000?000000000? -6I1954195C000000074E241644800?671297165A000000000?000000000?000000000?000000000? -6I1954195C000000074F241645800?641268171G000000000?000000000?000000000?000000000? -6I1954195C000000074G241646800?300003165F000000000?000000000?000000000?000000000? -6I1954195C000000074H241647800?600000160F000000000?000000000?000000000?000000000? -6I1954195C000000074I241648800?350004125I000000000?000000000?000000000?000000000? -6I1954195C000000075?241649800?300003165G000000000?000000000?000000000?000000000? -6I1954195C000000075A241650800?608003140G000000000?000000000?000000000?000000000? -6I1954195C000000075B241651800?161654151?000000000?000000000?000000000?000000000? -6I1954195C000000075C241652800?161456146A000000000?000000000?000000000?000000000? -6I1954195C000000075D241653800?101506146F000000000?000000000?000000000?000000000? -6I1954195C000000075E241654800?500000000?000000000?000000000?000000000?000000000? -6I1954195C000000075F241655800?300002151A000000000?000000000?000000000?000000000? -6I1954195C000000075G241656800?151659800B000000000?000000000?000000000?000000000? -6I1954195C000000075H241657800?151660800B000000000?000000000?000000000?000000000? -6I1954195C000000075I241658800?001742112?000000000?000000000?000000000?000000000? -6I1954195C000000076?241659800?600000160F000000000?000000000?000000000?000000000? -6I1954195C000000076A241660800?610000157H000000000?000000000?000000000?000000000? -6I1954195C000000076B241661800?181265151I000000000?000000000?000000000?000000000? -6I1954195C000000076C241662800?101665152?000000000?000000000?000000000?000000000? -6I1954195C000000076D241663800?211268167A000000000?000000000?000000000?000000000? -6I1954195C000000076E241664800?241267162B000000000?000000000?000000000?000000000? -6I1954195C000000076F241665800?100000000?000000000?000000000?000000000?000000000? -6I1954195C000000076G241666800?441569167D000000000?000000000?000000000?000000000? -6I1954195C000000076H241667800?191270159H000000000?000000000?000000000?000000000? -6I1954195C000000076I241668800?191572173?000000000?000000000?000000000?000000000? -6I1954195C000000077?241669800?350002149E000000000?000000000?000000000?000000000? -6I1954195C000000077A241670800?694444123?000000000?000000000?000000000?000000000? -6I1954195C000000077B241671800?601274162I000000000?000000000?000000000?000000000? -6I1954195C000000077C241672800?350001127I000000000?000000000?000000000?000000000? -6I1954195C000000077D241673800?451626137D000000000?000000000?000000000?000000000? -6I1954195C000000077E241674800?601278144E000000000?000000000?000000000?000000000? -6I1954195C000000077F241675800?111278144E000000000?000000000?000000000?000000000? -6I1954195C000000077G241676800?108001154?000000000?000000000?000000000?000000000? -6I1954195C000000077H241677800?691580153C000000000?000000000?000000000?000000000? -6I1954195C000000077I241678800?201285163H000000000?000000000?000000000?000000000? -6I1954195C000000078?241679800?641285147?000000000?000000000?000000000?000000000? -6I1954195C000000078A241680800?601283163G000000000?000000000?000000000?000000000? -6I1954195C000000078B241681800?111587149A000000000?000000000?000000000?000000000? -6I1954195C000000078C241682800?691535173H000000000?000000000?000000000?000000000? -6I1954195C000000078D241683800?101587144E000000000?000000000?000000000?000000000? -6I1954195C000000078E241684800?645963711A000000000?000000000?000000000?000000000? -6I1954195C000000078F241685800?211291164D000000000?000000000?000000000?000000000? -6I1954195C000000078G241686800?101951105F000000000?000000000?000000000?000000000? -6I1954195C000000078H241687800?310001149H000000000?000000000?000000000?000000000? -6I1954195C000000078I241688800?221293171E000000000?000000000?000000000?000000000? -6I1954195C000000079?241689800?211252126G000000000?000000000?000000000?000000000? -6I1954195C000000079A241690800?000000005?000000000?000000000?000000000?000000000? -6I1954195C000000079B241691800?470000000?000000000?000000000?000000000?000000000? -6I1954195C000000079C241692800?651045164I000000000?000000000?000000000?000000000? -6I1954195C000000079D241693800?201297165?000000000?000000000?000000000?000000000? -6I1954195C000000079E241694800?608003125D000000000?000000000?000000000?000000000? -6I1954195C000000079F241695800?608003165C000000000?000000000?000000000?000000000? -6I1954195C000000079G241696800?211250160C000000000?000000000?000000000?000000000? -6I1954195C000000079H241697800?690000150C000000000?000000000?000000000?000000000? -6I1954195C000000079I241698800?201289155E000000000?000000000?000000000?000000000? -6I1954195C000000080?241699800?300003160G000000000?000000000?000000000?000000000? -6I1954195C000000080A241700800?661023118I000000000?000000000?000000000?000000000? -6I1954195C000000080B241701800?157079632G000000000?000000000?000000000?000000000? -6I1954195C000000080C241702800?000003000?000000000?000000000?000000000?000000000? -6I1954195C000000080D241703800?151456161A000000000?000000000?000000000?000000000? -6I1954195C000000080E241704800?108003171C000000000?000000000?000000000?000000000? -6I1954195C000000080F241705800?108001126B000000000?000000000?000000000?000000000? -6I1954195C000000080G241706800?118001154?000000000?000000000?000000000?000000000? -6I1954195C000000080H241707800?688002162G000000000?000000000?000000000?000000000? -6I1954195C000000080I241708800?151711166F000000000?000000000?000000000?000000000? -6I1954195C000000081?241709800?441276171D000000000?000000000?000000000?000000000? -6I1954195C000000081A241710800?461375171E000000000?000000000?000000000?000000000? -6I1954195C000000081B241711800?997500000?000000000?000000000?000000000?000000000? -6I1954195C000000081C241712800?608003166H000000000?000000000?000000000?000000000? -6I1954195C000000081D241713800?108003128C000000000?000000000?000000000?000000000? -6I1954195C000000081E241714800?300005172G000000000?000000000?000000000?000000000? -6I1954195C000000081F241715800?601618142F000000000?000000000?000000000?000000000? -6I1954195C000000081G241716800?300001172C000000000?000000000?000000000?000000000? -6I1954195C000000081H241717800?350001127C000000000?000000000?000000000?000000000? -6I1954195C000000081I241718800?350002129C000000000?000000000?000000000?000000000? -6I1954195C000000082?241719800?161024132I000000000?000000000?000000000?000000000? -6I1954195C000000082A241720800?441383172D000000000?000000000?000000000?000000000? -6I1954195C000000082B241721800?691526157I000000000?000000000?000000000?000000000? -6I1954195C000000082C241722800?350002137I000000000?000000000?000000000?000000000? -6I1954195C000000082D241723800?461476174A000000000?000000000?000000000?000000000? -6I1954195C000000082E241724800?201285128H000000000?000000000?000000000?000000000? -6I1954195C000000082F241725800?461286128G000000000?000000000?000000000?000000000? -6I1954195C000000082G241726800?191285164?000000000?000000000?000000000?000000000? -6I1954195C000000082H241727800?461682128B000000000?000000000?000000000?000000000? -6I1954195C000000082I241728800?101534129?000000000?000000000?000000000?000000000? -6I1954195C000000083?241729800?691732173E000000000?000000000?000000000?000000000? -6I1954195C000000083A241730800?608003138G000000000?000000000?000000000?000000000? -6I1954195C000000083B241731800?054041950?000000000?000000000?000000000?000000000? -6I1954195C000000083C241732800?350002144E000000000?000000000?000000000?000000000? -6I1954195C000000083D241733800?601291134G000000000?000000000?000000000?000000000? -6I1954195C000000083E241734800?608003139D000000000?000000000?000000000?000000000? -6I1954195C000000083F241735800?241539104C000000000?000000000?000000000?000000000? -6I1954195C000000083G241736800?701951132F000000000?000000000?000000000?000000000? -6I1954195C000000083H241737800?360000126C000000000?000000000?000000000?000000000? -6I1954195C000000083I241738800?221293174F000000000?000000000?000000000?000000000? -6I1954195C000000084?241739800?241293150E000000000?000000000?000000000?000000000? -6I1954195C000000084A241740800?211285159?000000000?000000000?000000000?000000000? -6I1954195C000000084B241741800?618003170D000000000?000000000?000000000?000000000? -6I1954195C000000084C241742800?108001174G000000000?000000000?000000000?000000000? -6I1954195C000000084D241743800?350002129I000000000?000000000?000000000?000000000? -6I1954195C000000084E241744800?198001174E000000000?000000000?000000000?000000000? -6I1954195C000000084F241745800?211250171B000000000?000000000?000000000?000000000? -6I1954195C000000084G241746800?151702171?000000000?000000000?000000000?000000000? -6I1954195C000000084H241747800?461705170F000000000?000000000?000000000?000000000? -6I1954195C000000084I241748800?300009172?000000000?000000000?000000000?000000000? -6I1954195C000000085?241749800?671252170H000000000?000000000?000000000?000000000? -6I1954195C000000085A241750800?441854180D000000000?000000000?000000000?000000000? -6I1954195C000000085B241751800?608003180I000000000?000000000?000000000?000000000? -6I1954195C000000085C241752800?441755175F000000000?000000000?000000000?000000000? -6I1954195C000000085D241753800?691906190I000000000?000000000?000000000?000000000? -6I1954195C000000085E241754800?221260176C000000000?000000000?000000000?000000000? -6I1954195C000000085F241755800?601759191C000000000?000000000?000000000?000000000? -6I1954195C000000085G241756800?651293114G000000000?000000000?000000000?000000000? -6I1954195C000000085H241757800?211265176H000000000?000000000?000000000?000000000? -6I1954195C000000085I241758800?000000144E000000000?000000000?000000000?000000000? -6I1954195C000000086?241759800?060000000?000000000?000000000?000000000?000000000? -6I1954195C000000086A241760800?191250178G000000000?000000000?000000000?000000000? -6I1954195C000000086B241761800?241264191G000000000?000000000?000000000?000000000? -6I1954195C000000086C241762800?191250179?000000000?000000000?000000000?000000000? -6I1954195C000000086D241763800?461766191H000000000?000000000?000000000?000000000? -6I1954195C000000086E241764800?641277190B000000000?000000000?000000000?000000000? -6I1954195C000000086F241765800?118002186D000000000?000000000?000000000?000000000? -6I1954195C000000086G241766800?601919192C000000000?000000000?000000000?000000000? -6I1954195C000000086H241767800?608001182C000000000?000000000?000000000?000000000? -6I1954195C000000086I241768800?461771177B000000000?000000000?000000000?000000000? -6I1954195C000000087?241769800?691922177G000000000?000000000?000000000?000000000? -6I1954195C000000087A241770800?691924177G000000000?000000000?000000000?000000000? -6I1954195C000000087B241771800?691774177H000000000?000000000?000000000?000000000? -6I1954195C000000087C241772800?691775177H000000000?000000000?000000000?000000000? -6I1954195C000000087D241773800?350001177I000000000?000000000?000000000?000000000? -6I1954195C000000087E241774800?618003126D000000000?000000000?000000000?000000000? -6I1954195C000000087F241775800?608003126D000000000?000000000?000000000?000000000? -6I1954195C000000087G241776800?181818181H000000000?000000000?000000000?000000000? -6I1954195C000000087H241777800?241285178H000000000?000000000?000000000?000000000? -6I1954195C000000087I241778800?241283178F000000000?000000000?000000000?000000000? -6I1954195C000000088?241779800?441783178D000000000?000000000?000000000?000000000? -6I1954195C000000088A241780800?601293179G000000000?000000000?000000000?000000000? -6I1954195C000000088B241781800?678002178I000000000?000000000?000000000?000000000? -6I1954195C000000088C241782800?101785179A000000000?000000000?000000000?000000000? -6I1954195C000000088D241783800?461937193?000000000?000000000?000000000?000000000? -6I1954195C000000088E241784800?300005189G000000000?000000000?000000000?000000000? -6I1954195C000000088F241785800?200000000?000000000?000000000?000000000?000000000? -6I1954195C000000088G241786800?688002179E000000000?000000000?000000000?000000000? -6I1954195C000000088H241787800?608003114F000000000?000000000?000000000?000000000? -6I1954195C000000088I241788800?350001126?000000000?000000000?000000000?000000000? -6I1954195C000000089?241789800?201293179F000000000?000000000?000000000?000000000? -6I1954195C000000089A241790800?608003179H000000000?000000000?000000000?000000000? -6I1954195C000000089B241791800?191278193B000000000?000000000?000000000?000000000? -6I1954195C000000089C241792800?608003189I000000000?000000000?000000000?000000000? -6I1954195C000000089D241793800?310002191F000000000?000000000?000000000?000000000? -6I1954195C000000089E241794800?572957805A000000000?000000000?000000000?000000000? -6I1954195C000000089F241795800?151568177C000000000?000000000?000000000?000000000? -6I1954195C000000089G241796800?151799175B000000000?000000000?000000000?000000000? -6I1954195C000000089H241797800?111759176D000000000?000000000?000000000?000000000? -6I1954195C000000089I241798800?111855191D000000000?000000000?000000000?000000000? -6I1954195C000000090?241799800?972000000?000000000?000000000?000000000?000000000? -6I1954195C000000090A241800800?000000097?000000000?000000000?000000000?000000000? -6I1954195C000000090B241801800?500000000?000000000?000000000?000000000?000000000? -6I1954195C000000090C241802800?111869189A000000000?000000000?000000000?000000000? -6I1954195C000000090D241803800?191806188B000000000?000000000?000000000?000000000? -6I1954195C000000090E241804800?461808181A000000000?000000000?000000000?000000000? -6I1954195C000000090F241805800?300001186F000000000?000000000?000000000?000000000? -6I1954195C000000090G241806800?230258509C000000000?000000000?000000000?000000000? -6I1954195C000000090H241807800?101274182I000000000?000000000?000000000?000000000? -6I1954195C000000090I241808800?151272187I000000000?000000000?000000000?000000000? -6I1954195C000000091?241809800?111812181G000000000?000000000?000000000?000000000? -6I1954195C000000091A241810800?158001181I000000000?000000000?000000000?000000000? -6I1954195C000000091B241811800?161272187H000000000?000000000?000000000?000000000? -6I1954195C000000091C241812800?002718281H000000000?000000000?000000000?000000000? -6I1954195C000000091D241813800?691816187?000000000?000000000?000000000?000000000? -6I1954195C000000091E241814800?691867187?000000000?000000000?000000000?000000000? -6I1954195C000000091F241815800?101274188A000000000?000000000?000000000?000000000? -6I1954195C000000091G241816800?165000000?000000000?000000000?000000000?000000000? -6I1954195C000000091H241817800?461820187A000000000?000000000?000000000?000000000? -6I1954195C000000091I241818800?241821182D000000000?000000000?000000000?000000000? -6I1954195C000000092?241819800?350004188?000000000?000000000?000000000?000000000? -6I1954195C000000092A241820800?108001182E000000000?000000000?000000000?000000000? -6I1954195C000000092B241821800?101274000?000000000?000000000?000000000?000000000? -6I1954195C000000092C241822800?300001188B000000000?000000000?000000000?000000000? -6I1954195C000000092D241823800?191776189D000000000?000000000?000000000?000000000? -6I1954195C000000092E241824800?300003183C000000000?000000000?000000000?000000000? -6I1954195C000000092F241825800?191828181D000000000?000000000?000000000?000000000? -6I1954195C000000092G241826800?211285188H000000000?000000000?000000000?000000000? -6I1954195C000000092H241827800?191830181C000000000?000000000?000000000?000000000? -6I1954195C000000092I241828800?606530659G000000000?000000000?000000000?000000000? -6I1954195C000000093?241829800?211285183H000000000?000000000?000000000?000000000? -6I1954195C000000093A241830800?192049908F000000000?000000000?000000000?000000000? -6I1954195C000000093B241831800?300002183G000000000?000000000?000000000?000000000? -6I1954195C000000093C241832800?000000005B000000000?000000000?000000000?000000000? -6I1954195C000000093D241833800?151836800B000000000?000000000?000000000?000000000? -6I1954195C000000093E241834800?310002184C000000000?000000000?000000000?000000000? -6I1954195C000000093F241835800?350004184F000000000?000000000?000000000?000000000? -6I1954195C000000093G241836800?600000183A000000000?000000000?000000000?000000000? -6I1954195C000000093H241837800?201291184D000000000?000000000?000000000?000000000? -6I1954195C000000093I241838800?601291184E000000000?000000000?000000000?000000000? -6I1954195C000000094?241839800?191842182F000000000?000000000?000000000?000000000? -6I1954195C000000094A241840800?300008181?000000000?000000000?000000000?000000000? -6I1954195C000000094B241841800?211297180B000000000?000000000?000000000?000000000? -6I1954195C000000094C241842800?434294481I000000000?000000000?000000000?000000000? -6I1954195C000000094D241843800?350002175?000000000?000000000?000000000?000000000? -6I1954195C000000094E241844800?441847139C000000000?000000000?000000000?000000000? -6I1954195C000000094F241845800?111848180C000000000?000000000?000000000?000000000? -6I1954195C000000094G241846800?441849144E000000000?000000000?000000000?000000000? -6I1954195C000000094H241847800?461393175A000000000?000000000?000000000?000000000? -6I1954195C000000094I241848800?500000000?000000000?000000000?000000000?000000000? -6I1954195C000000095?241849800?360000186B000000000?000000000?000000000?000000000? -6I1954195C000000095A241850800?101855185I000000000?000000000?000000000?000000000? -6I1954195C000000095B241851800?101856186A000000000?000000000?000000000?000000000? -6I1954195C000000095C241852800?666666666F000000000?000000000?000000000?000000000? -6I1954195C000000095D241853800?400000000?000000000?000000000?000000000?000000000? -6I1954195C000000095E241854800?300001186C000000000?000000000?000000000?000000000? -6I1954195C000000095F241855800?285714285G000000000?000000000?000000000?000000000? -6I1954195C000000095G241856800?222222222B000000000?000000000?000000000?000000000? -6I1954195C000000095H241857800?191264180E000000000?000000000?000000000?000000000? -6I1954195C000000095I241858800?191264188I000000000?000000000?000000000?000000000? -6I1954195C000000096?241859800?191264179B000000000?000000000?000000000?000000000? -6I1954195C000000096A241860800?211264176G000000000?000000000?000000000?000000000? -6I1954195C000000096B241861800?191264189?000000000?000000000?000000000?000000000? -6I1954195C000000096C241862800?691865186H000000000?000000000?000000000?000000000? -6I1954195C000000096D241863800?461872187D000000000?000000000?000000000?000000000? -6I1954195C000000096E241864800?101518128C000000000?000000000?000000000?000000000? -6I1954195C000000096F241865800?000000000?000000000?000000000?000000000?000000000? -6I1954195C000000096G241866800?101869187C000000000?000000000?000000000?000000000? -6I1954195C000000096H241867800?050000000?000000000?000000000?000000000?000000000? -6I1954195C000000096I241868800?231272187E000000000?000000000?000000000?000000000? -6I1954195C000000097?241869800?200000000?000000000?000000000?000000000?000000000? -6I1954195C000000097A241870800?241274187G000000000?000000000?000000000?000000000? -6I1954195C000000097B241871800?108001182G000000000?000000000?000000000?000000000? -6I1954195C000000097C241872800?161896180D000000000?000000000?000000000?000000000? -6I1954195C000000097D241873800?608003188D000000000?000000000?000000000?000000000? -6I1954195C000000097E241874800?151896180D000000000?000000000?000000000?000000000? -6I1954195C000000097F241875800?658003183D000000000?000000000?000000000?000000000? -6I1954195C000000097G241876800?608002188E000000000?000000000?000000000?000000000? -6I1954195C000000097H241877800?350002188C000000000?000000000?000000000?000000000? -6I1954195C000000097I241878800?151832188G000000000?000000000?000000000?000000000? -6I1954195C000000098?241879800?161832188G000000000?000000000?000000000?000000000? -6I1954195C000000098A241880800?441835189C000000000?000000000?000000000?000000000? -6I1954195C000000098B241881800?608003183I000000000?000000000?000000000?000000000? -6I1954195C000000098C241882800?691285184?000000000?000000000?000000000?000000000? -6I1954195C000000098D241883800?101886184A000000000?000000000?000000000?000000000? -6I1954195C000000098E241884800?191289182A000000000?000000000?000000000?000000000? -6I1954195C000000098F241885800?241289189B000000000?000000000?000000000?000000000? -6I1954195C000000098G241886800?100000000?000000000?000000000?000000000?000000000? -6I1954195C000000098H241887800?608002144E000000000?000000000?000000000?000000000? -6I1954195C000000098I241888800?601291189E000000000?000000000?000000000?000000000? -6I1954195C000000099?241889800?608003189H000000000?000000000?000000000?000000000? -6I1954195C000000099A241890800?608003185?000000000?000000000?000000000?000000000? -6I1954195C000000099B241891800?641297187F000000000?000000000?000000000?000000000? -6I1954195C000000099C241892800?198001186?000000000?000000000?000000000?000000000? -6I1954195C000000099D241893800?010000183E000000000?000000000?000000000?000000000? -6I1954195C000000099E241894800?608003185A000000000?000000000?000000000?000000000? -6I1954195C000000099F241895800?111848182B000000000?000000000?000000000?000000000? -6I1954195C000000099G241896800?000000000A000000000?000000000?000000000?000000000? -6I1954195C000000099H241897800?691901175D000000000?000000000?000000000?000000000? -6I1954195C000000099I241898800?101852185G000000000?000000000?000000000?000000000? -6I1954195C000000100?241899800?101853185H000000000?000000000?000000000?000000000? -6I1954195C000000100A241900800?300002175G000000000?000000000?000000000?000000000? -6I1954195C000000100B241901800?300000178A000000000?000000000?000000000?000000000? -6I1954195C000000100C241902800?691905190I000000000?000000000?000000000?000000000? -6I1954195C000000100D241903800?618003191A000000000?000000000?000000000?000000000? -6I1954195C000000100E241904800?300001191B000000000?000000000?000000000?000000000? -6I1954195C000000100F241905800?101731128E000000000?000000000?000000000?000000000? -6I1954195C000000100G241906800?101580128E000000000?000000000?000000000?000000000? -6I1954195C000000100H241907800?191250190D000000000?000000000?000000000?000000000? -6I1954195C000000100I241908800?211283193F000000000?000000000?000000000?000000000? -6I1954195C000000101?241909800?241267157?000000000?000000000?000000000?000000000? -6I1954195C000000101A241910800?350001193D000000000?000000000?000000000?000000000? -6I1954195C000000101B241911800?191776194?000000000?000000000?000000000?000000000? -6I1954195C000000101C241912800?608003178B000000000?000000000?000000000?000000000? -6I1954195C000000101D241913800?191293192G000000000?000000000?000000000?000000000? -6I1954195C000000101E241914800?191250193H000000000?000000000?000000000?000000000? -6I1954195C000000101F241915800?350002193E000000000?000000000?000000000?000000000? -6I1954195C000000101G241916800?350001193E000000000?000000000?000000000?000000000? -6I1954195C000000101H241917800?300003192E000000000?000000000?000000000?000000000? -6I1954195C000000101I241918800?161921192F000000000?000000000?000000000?000000000? -6I1954195C000000102?241919800?000100000?000000000?000000000?000000000?000000000? -6I1954195C000000102A241920800?211277178?000000000?000000000?000000000?000000000? -6I1954195C000000102B241921800?000003000?000000000?000000000?000000000?000000000? -6I1954195C000000102C241922800?658003191?000000000?000000000?000000000?000000000? -6I1954195C000000102D241923800?641265177?000000000?000000000?000000000?000000000? -6I1954195C000000102E241924800?000008190D000000000?000000000?000000000?000000000? -6I1954195C000000102F241925800?151928800B000000000?000000000?000000000?000000000? -6I1954195C000000102G241926800?461929193?000000000?000000000?000000000?000000000? -6I1954195C000000102H241927800?350001193C000000000?000000000?000000000?000000000? -6I1954195C000000102I241928800?600000194A000000000?000000000?000000000?000000000? -6I1954195C000000103?241929800?651265176I000000000?000000000?000000000?000000000? -6I1954195C000000103A241930800?601297126D000000000?000000000?000000000?000000000? -6I1954195C000000103B241931800?608002193I000000000?000000000?000000000?000000000? -6I1954195C000000103C241932800?608003114C000000000?000000000?000000000?000000000? -6I1954195C000000103D241933800?101665192?000000000?000000000?000000000?000000000? -6I1954195C000000103E241934800?441942179C000000000?000000000?000000000?000000000? -6I1954195C000000103F241935800?608002194D000000000?000000000?000000000?000000000? -6I1954195C000000103G241936800?601794165E000000000?000000000?000000000?000000000? -6I1954195C000000103H241937800?651701191?000000000?000000000?000000000?000000000? -6I1954195C000000103I241938800?608003114H000000000?000000000?000000000?000000000? -6I1954195C000000104?241939800?198001194E000000000?000000000?000000000?000000000? -6I1954195C000000104A241940800?608003114I000000000?000000000?000000000?000000000? -6I1954195C000000104B241941800?211297190?000000000?000000000?000000000?000000000? -6I1954195C000000104C241942800?310003191E000000000?000000000?000000000?000000000? -6I1954195C000000104D241943800?151701191?000000000?000000000?000000000?000000000? -6I1954195C000000104E241944800?360000176E000000000?000000000?000000000?000000000? -6I1954195C000000104F241945800?211250190C000000000?000000000?000000000?000000000? -6I1954195C000000104G241946800?101978196E000000000?000000000?000000000?000000000? -6I1954195C000000104H241947800?601977194F000000000?000000000?000000000?000000000? -6I1954195C000000104I241948800?101963197?000000000?000000000?000000000?000000000? -6I1954195C000000105?241949800?441973109E000000000?000000000?000000000?000000000? -6I1954195C000000105A241950800?151977198G000000000?000000000?000000000?000000000? -6I1954195C000000105B241951800?000000000?000000000?000000000?000000000?000000000? -6I1954195C000000105C241952800?000000000?000000000?000000000?000000000?000000000? -6I1954195C000000105D241953800?000000000?000000000?000000000?000000000?000000000? -6I1954195C000000105E241954800?000000000?000000000?000000000?000000000?000000000? -6I1954195C000000105F241955800?000000000?000000000?000000000?000000000?000000000? -6I1954195C000000105G241956800?000000000?000000000?000000000?000000000?000000000? -6I1954195C000000105H241957800?000000000?000000000?000000000?000000000?000000000? -6I1954195C000000105I241958800?000000000?000000000?000000000?000000000?000000000? -6I1954195C000000106?241959800?000000000?000000000?000000000?000000000?000000000? -6I1954195C000000106A241960800?000000000?000000000?000000000?000000000?000000000? -6I1954195C000000106B241961800?608001196H000000000?000000000?000000000?000000000? -6I1954195C000000106C241962800?111978199I000000000?000000000?000000000?000000000? -6I1954195C000000106D241963800?241978199A000000000?000000000?000000000?000000000? -6I1954195C000000106E241964800?211977198I000000000?000000000?000000000?000000000? -6I1954195C000000106F241965800?211977196F000000000?000000000?000000000?000000000? -6I1954195C000000106G241966800?601969197C000000000?000000000?000000000?000000000? -6I1954195C000000106H241967800?211986199G000000000?000000000?000000000?000000000? -6I1954195C000000106I241968800?300004194H000000000?000000000?000000000?000000000? -6I1954195C000000107?241969800?000005000?000000000?000000000?000000000?000000000? -6I1954195C000000107A241970800?151974195?000000000?000000000?000000000?000000000? -6I1954195C000000107B241971800?101024196G000000000?000000000?000000000?000000000? -6I1954195C000000107C241972800?111977196B000000000?000000000?000000000?000000000? -6I1954195C000000107D241973800?211978198H000000000?000000000?000000000?000000000? -6I1954195C000000107E241974800?690000800C000000000?000000000?000000000?000000000? -6I1954195C000000107F241975800?108001194I000000000?000000000?000000000?000000000? -6I1954195C000000107G241976800?300003101I000000000?000000000?000000000?000000000? -6I1954195C000000107H241977800?691954195U000000000?000000000?000000000?000000000? -6I1954195C000000107I241978800?000000107H000000000?000000000?000000000?000000000? -6I1954195C000000108?241979800?241978800?000000000?000000000?000000000?000000000? -6I1954195C000000108A241980800?241978800?000000000?000000000?000000000?000000000? -6I1954195C000000108B241981800?000000000?000000000?000000000?000000000?000000000? -6I1954195C000000108C241982800?000000000?000000000?000000000?000000000?000000000? -6I1954195C000000108D241983800?000000000?000000000?000000000?000000000?000000000? -6I1954195C000000108E241984800?000000000?000000000?000000000?000000000?000000000? -6I1954195C000000108F241985800?000000000?000000000?000000000?000000000?000000000? -6I1954195C000000108G241986800?000000000?000000000?000000000?000000000?000000000? -6I1954195C000000108H241987800?101990800B000000000?000000000?000000000?000000000? -6I1954195C000000108I241988800?601291197B000000000?000000000?000000000?000000000? -6I1954195C000000109?241989800?118002199H000000000?000000000?000000000?000000000? -6I1954195C000000109A241990800?000000999I000000000?000000000?000000000?000000000? -6I1954195C000000109B241991800?601986197A000000000?000000000?000000000?000000000? -6I1954195C000000109C241992800?151024198G000000000?000000000?000000000?000000000? -6I1954195C000000109D241993800?151024198G000000000?000000000?000000000?000000000? -6I1954195C000000109E241994800?151024198G000000000?000000000?000000000?000000000? -6I1954195C000000109F241995800?151024198G000000000?000000000?000000000?000000000? -6I1954195C000000109G241996800?151024198G000000000?000000000?000000000?000000000? -6I1954195C000000109H241997800?711977194G000000000?000000000?000000000?000000000? -6I1954195C000000109I241998800?461966131E000000000?000000000?000000000?000000000? -6I1954195C000000110?241999800?461975196A000000000?000000000?000000000?000000000? +6I1954195C000000000A240900800?651653130H000000000?000000000?000000000?000000000? +6I1954195C000000000B240901800?010000090A000000000?000000000?000000000?000000000? +6I1954195C000000000C240902800?651958126C000000000?000000000?000000000?000000000? +6I1954195C000000000D240903800?300008122A000000000?000000000?000000000?000000000? +6I1954195C000000000E240904800?000000094C000000000?000000000?000000000?000000000? +6I1954195C000000000F240905800?651959131C000000000?000000000?000000000?000000000? +6I1954195C000000000G240906800?300008117E000000000?000000000?000000000?000000000? +6I1954195C000000000H240907800?000000095G000000000?000000000?000000000?000000000? +6I1954195C000000000I240908800?651951145E000000000?000000000?000000000?000000000? +6I1954195C000000001?240909800?000000101C000000000?000000000?000000000?000000000? +6I1954195C000000001A240910800?151519127C000000000?000000000?000000000?000000000? +6I1954195C000000001B240911800?151519127C000000000?000000000?000000000?000000000? +6I1954195C000000001C240912800?651986119A000000000?000000000?000000000?000000000? +6I1954195C000000001D240913800?691016096I000000000?000000000?000000000?000000000? +6I1954195C000000001E240914800?000000800C000000000?000000000?000000000?000000000? +6I1954195C000000001F240915800?201519132B000000000?000000000?000000000?000000000? +6I1954195C000000001G240916800?651986119A000000000?000000000?000000000?000000000? +6I1954195C000000001H240917800?651959091E000000000?000000000?000000000?000000000? +6I1954195C000000001I240918800?691371117D000000000?000000000?000000000?000000000? +6I1954195C000000002?240919800?691372127E000000000?000000000?000000000?000000000? +6I1954195C000000002A240920800?651223091E000000000?000000000?000000000?000000000? +6I1954195C000000002B240921800?651986119A000000000?000000000?000000000?000000000? +6I1954195C000000002C240922800?651986119A000000000?000000000?000000000?000000000? +6I1954195C000000002D240923800?201872162H000000000?000000000?000000000?000000000? +6I1954195C000000002E240924800?601585183I000000000?000000000?000000000?000000000? +6I1954195C000000002F240925800?651957093A000000000?000000000?000000000?000000000? +6I1954195C000000002G240926800?691780117D000000000?000000000?000000000?000000000? +6I1954195C000000002H240927800?691830127E000000000?000000000?000000000?000000000? +6I1954195C000000002I240928800?651223093A000000000?000000000?000000000?000000000? +6I1954195C000000003?240929800?651682180A000000000?000000000?000000000?000000000? +6I1954195C000000003A240930800?601585183I000000000?000000000?000000000?000000000? +6I1954195C000000003B240931800?691784175?000000000?000000000?000000000?000000000? +6I1954195C000000003C240932800?601585183I000000000?000000000?000000000?000000000? +6I1954195C000000003D240933800?201872192G000000000?000000000?000000000?000000000? +6I1954195C000000003E240934800?101688174C000000000?000000000?000000000?000000000? +6I1954195C000000003F240935800?691738144B000000000?000000000?000000000?000000000? +6I1954195C000000003G240936800?601585183I000000000?000000000?000000000?000000000? +6I1954195C000000003H240937800?201492095B000000000?000000000?000000000?000000000? +6I1954195C000000003I240938800?601542139H000000000?000000000?000000000?000000000? +6I1954195C000000004?240939800?201793169F000000000?000000000?000000000?000000000? +6I1954195C000000004A240940800?601542139H000000000?000000000?000000000?000000000? +6I1954195C000000004B240941800?651958094D000000000?000000000?000000000?000000000? +6I1954195C000000004C240942800?691645117D000000000?000000000?000000000?000000000? +6I1954195C000000004D240943800?691646127E000000000?000000000?000000000?000000000? +6I1954195C000000004E240944800?691448175?000000000?000000000?000000000?000000000? +6I1954195C000000004F240945800?601542139H000000000?000000000?000000000?000000000? +6I1954195C000000004G240946800?651223094D000000000?000000000?000000000?000000000? +6I1954195C000000004H240947800?651882180A000000000?000000000?000000000?000000000? +6I1954195C000000004I240948800?601542139H000000000?000000000?000000000?000000000? +6I1954195C000000005?240949800?691828182F000000000?000000000?000000000?000000000? +6I1954195C000000005A240950800?210992095A000000000?000000000?000000000?000000000? +6I1954195C000000005B240951800?440952098G000000000?000000000?000000000?000000000? +6I1954195C000000005C240952800?461315095C000000000?000000000?000000000?000000000? +6I1954195C000000005D240953800?350008095D000000000?000000000?000000000?000000000? +6I1954195C000000005E240954800?110990095E000000000?000000000?000000000?000000000? +6I1954195C000000005F240955800?440956096B000000000?000000000?000000000?000000000? +6I1954195C000000005G240956800?110991095G000000000?000000000?000000000?000000000? +6I1954195C000000005H240957800?440958096A000000000?000000000?000000000?000000000? +6I1954195C000000005I240958800?110991095I000000000?000000000?000000000?000000000? +6I1954195C000000006?240959800?441315096?000000000?000000000?000000000?000000000? +6I1954195C000000006A240960800?690969096C000000000?000000000?000000000?000000000? +6I1954195C000000006B240961800?690968096C000000000?000000000?000000000?000000000? +6I1954195C000000006C240962800?690967096C000000000?000000000?000000000?000000000? +6I1954195C000000006D240963800?240984096D000000000?000000000?000000000?000000000? +6I1954195C000000006E240964800?650992098D000000000?000000000?000000000?000000000? +6I1954195C000000006F240965800?300002096F000000000?000000000?000000000?000000000? +6I1954195C000000006G240966800?441120097D000000000?000000000?000000000?000000000? +6I1954195C000000006H240967800?350001098E000000000?000000000?000000000?000000000? +6I1954195C000000006I240968800?350002098E000000000?000000000?000000000?000000000? +6I1954195C000000007?240969800?350003098E000000000?000000000?000000000?000000000? +6I1954195C000000007A240970800?651045097A000000000?000000000?000000000?000000000? +6I1954195C000000007B240971800?450972098G000000000?000000000?000000000?000000000? +6I1954195C000000007C240972800?160998097C000000000?000000000?000000000?000000000? +6I1954195C000000007D240973800?450975097G000000000?000000000?000000000?000000000? +6I1954195C000000007E240974800?601045102G000000000?000000000?000000000?000000000? +6I1954195C000000007F240975800?160998097F000000000?000000000?000000000?000000000? +6I1954195C000000007G240976800?450979097H000000000?000000000?000000000?000000000? +6I1954195C000000007H240977800?690997098?000000000?000000000?000000000?000000000? +6I1954195C000000007I240978800?690996098?000000000?000000000?000000000?000000000? +6I1954195C000000008?240979800?690995098?000000000?000000000?000000000?000000000? +6I1954195C000000008A240980800?240993098A000000000?000000000?000000000?000000000? +6I1954195C000000008B240981800?651023098B000000000?000000000?000000000?000000000? +6I1954195C000000008C240982800?300003098C000000000?000000000?000000000?000000000? +6I1954195C000000008D240983800?150994800B000000000?000000000?000000000?000000000? +6I1954195C000000008E240984800?350003098E000000000?000000000?000000000?000000000? +6I1954195C000000008F240985800?168002098F000000000?000000000?000000000?000000000? +6I1954195C000000008G240986800?690993800A000000000?000000000?000000000?000000000? +6I1954195C000000008H240987800?211017109E000000000?000000000?000000000?000000000? +6I1954195C000000008I240988800?000000000?000000000?000000000?000000000?000000000? +6I1954195C000000009?240989800?000000000?000000000?000000000?000000000?000000000? +6I1954195C000000009A240990800?500000000?000000000?000000000?000000000?000000000? +6I1954195C000000009B240991800?010000000?000000000?000000000?000000000?000000000? +6I1954195C000000009C240992800?000000000?000000000?000000000?000000000?000000000? +6I1954195C000000009D240993800?000000000?000000000?000000000?000000000?000000000? +6I1954195C000000009E240994800?600000095?000000000?000000000?000000000?000000000? +6I1954195C000000009F240995800?000000098G000000000?000000000?000000000?000000000? +6I1954195C000000009G240996800?350003098G000000000?000000000?000000000?000000000? +6I1954195C000000009H240997800?350006098G000000000?000000000?000000000?000000000? +6I1954195C000000009I240998800?001000000?000000000?000000000?000000000?000000000? +6I1954195C000000010?240999800?601952140G000000000?000000000?000000000?000000000? +6I1954195C000000010A241000800?300003111I000000000?000000000?000000000?000000000? +6I1954195C000000010B241001800?300005106D000000000?000000000?000000000?000000000? +6I1954195C000000010C241002800?451109118F000000000?000000000?000000000?000000000? +6I1954195C000000010D241003800?101017109C000000000?000000000?000000000?000000000? +6I1954195C000000010E241004800?201260106H000000000?000000000?000000000?000000000? +6I1954195C000000010F241005800?658003116C000000000?000000000?000000000?000000000? +6I1954195C000000010G241006800?651023107I000000000?000000000?000000000?000000000? +6I1954195C000000010H241007800?661023107I000000000?000000000?000000000?000000000? +6I1954195C000000010I241008800?101017107D000000000?000000000?000000000?000000000? +6I1954195C000000011?241009800?555555555E000000000?000000000?000000000?000000000? +6I1954195C000000011A241010800?300004134C000000000?000000000?000000000?000000000? +6I1954195C000000011B241011800?300004118?000000000?000000000?000000000?000000000? +6I1954195C000000011C241012800?461095112?000000000?000000000?000000000?000000000? +6I1954195C000000011D241013800?300002102A000000000?000000000?000000000?000000000? +6I1954195C000000011E241014800?101024172I000000000?000000000?000000000?000000000? +6I1954195C000000011F241015800?461120106I000000000?000000000?000000000?000000000? +6I1954195C000000011G241016800?010000112?000000000?000000000?000000000?000000000? +6I1954195C000000011H241017800?000000000?000000000?000000000?000000000?000000000? +6I1954195C000000011I241018800?601951112F000000000?000000000?000000000?000000000? +6I1954195C000000012?241019800?201023102F000000000?000000000?000000000?000000000? +6I1954195C000000012A241020800?698002108A000000000?000000000?000000000?000000000? +6I1954195C000000012B241021800?678002102I000000000?000000000?000000000?000000000? +6I1954195C000000012C241022800?670000113G000000000?000000000?000000000?000000000? +6I1954195C000000012D241023800?555555555E000000000?000000000?000000000?000000000? +6I1954195C000000012E241024800?000001000?000000000?000000000?000000000?000000000? +6I1954195C000000012F241025800?101031109C000000000?000000000?000000000?000000000? +6I1954195C000000012G241026800?608003103C000000000?000000000?000000000?000000000? +6I1954195C000000012H241027800?300003103E000000000?000000000?000000000?000000000? +6I1954195C000000012I241028800?108001113F000000000?000000000?000000000?000000000? +6I1954195C000000013?241029800?300001103F000000000?000000000?000000000?000000000? +6I1954195C000000013A241030800?600000109F000000000?000000000?000000000?000000000? +6I1954195C000000013B241031800?000100000?000000000?000000000?000000000?000000000? +6I1954195C000000013C241032800?300003114D000000000?000000000?000000000?000000000? +6I1954195C000000013D241033800?300003104A000000000?000000000?000000000?000000000? +6I1954195C000000013E241034800?101037800C000000000?000000000?000000000?000000000? +6I1954195C000000013F241035800?101038104C000000000?000000000?000000000?000000000? +6I1954195C000000013G241036800?161045101B000000000?000000000?000000000?000000000? +6I1954195C000000013H241037800?651045100?000000000?000000000?000000000?000000000? +6I1954195C000000013I241038800?600000110G000000000?000000000?000000000?000000000? +6I1954195C000000014?241039800?000100100?000000000?000000000?000000000?000000000? +6I1954195C000000014A241040800?691145115A000000000?000000000?000000000?000000000? +6I1954195C000000014B241041800?201045104H000000000?000000000?000000000?000000000? +6I1954195C000000014C241042800?451364137G000000000?000000000?000000000?000000000? +6I1954195C000000014D241043800?211098800A000000000?000000000?000000000?000000000? +6I1954195C000000014E241044800?777777777G000000000?000000000?000000000?000000000? +6I1954195C000000014F241045800?555555555E000000000?000000000?000000000?000000000? +6I1954195C000000014G241046800?618003106A000000000?000000000?000000000?000000000? +6I1954195C000000014H241047800?000000100?000000000?000000000?000000000?000000000? +6I1954195C000000014I241048800?608003110E000000000?000000000?000000000?000000000? +6I1954195C000000015?241049800?350003105H000000000?000000000?000000000?000000000? +6I1954195C000000015A241050800?651103116C000000000?000000000?000000000?000000000? +6I1954195C000000015B241051800?461054115E000000000?000000000?000000000?000000000? +6I1954195C000000015C241052800?300003136B000000000?000000000?000000000?000000000? +6I1954195C000000015D241053800?658002131A000000000?000000000?000000000?000000000? +6I1954195C000000015E241054800?108001106B000000000?000000000?000000000?000000000? +6I1954195C000000015F241055800?000000000E000000000?000000000?000000000?000000000? +6I1954195C000000015G241056800?211268123A000000000?000000000?000000000?000000000? +6I1954195C000000015H241057800?101017102E000000000?000000000?000000000?000000000? +6I1954195C000000015I241058800?210000120C000000000?000000000?000000000?000000000? +6I1954195C000000016?241059800?151162800B000000000?000000000?000000000?000000000? +6I1954195C000000016A241060800?651023112I000000000?000000000?000000000?000000000? +6I1954195C000000016B241061800?300003101I000000000?000000000?000000000?000000000? +6I1954195C000000016C241062800?211017112?000000000?000000000?000000000?000000000? +6I1954195C000000016D241063800?441067107F000000000?000000000?000000000?000000000? +6I1954195C000000016E241064800?691017107A000000000?000000000?000000000?000000000? +6I1954195C000000016F241065800?600000144E000000000?000000000?000000000?000000000? +6I1954195C000000016G241066800?777777777G000000000?000000000?000000000?000000000? +6I1954195C000000016H241067800?101020800C000000000?000000000?000000000?000000000? +6I1954195C000000016I241068800?651045139I000000000?000000000?000000000?000000000? +6I1954195C000000017?241069800?608002102G000000000?000000000?000000000?000000000? +6I1954195C000000017A241070800?661023112I000000000?000000000?000000000?000000000? +6I1954195C000000017B241071800?300002107G000000000?000000000?000000000?000000000? +6I1954195C000000017C241072800?670000119H000000000?000000000?000000000?000000000? +6I1954195C000000017D241073800?600000128I000000000?000000000?000000000?000000000? +6I1954195C000000017E241074800?101031113E000000000?000000000?000000000?000000000? +6I1954195C000000017F241075800?300003113C000000000?000000000?000000000?000000000? +6I1954195C000000017G241076800?608001103D000000000?000000000?000000000?000000000? +6I1954195C000000017H241077800?108001113E000000000?000000000?000000000?000000000? +6I1954195C000000017I241078800?108001118E000000000?000000000?000000000?000000000? +6I1954195C000000018?241079800?300007100D000000000?000000000?000000000?000000000? +6I1954195C000000018A241080800?300000110H000000000?000000000?000000000?000000000? +6I1954195C000000018B241081800?651023123B000000000?000000000?000000000?000000000? +6I1954195C000000018C241082800?241289149B000000000?000000000?000000000?000000000? +6I1954195C000000018D241083800?241289154B000000000?000000000?000000000?000000000? +6I1954195C000000018E241084800?241289159B000000000?000000000?000000000?000000000? +6I1954195C000000018F241085800?241289164B000000000?000000000?000000000?000000000? +6I1954195C000000018G241086800?241289169B000000000?000000000?000000000?000000000? +6I1954195C000000018H241087800?691140119E000000000?000000000?000000000?000000000? +6I1954195C000000018I241088800?691341119E000000000?000000000?000000000?000000000? +6I1954195C000000019?241089800?691342119E000000000?000000000?000000000?000000000? +6I1954195C000000019A241090800?658002100B000000000?000000000?000000000?000000000? +6I1954195C000000019B241091800?747788001I000000000?000000000?000000000?000000000? +6I1954195C000000019C241092800?151045104I000000000?000000000?000000000?000000000? +6I1954195C000000019D241093800?118002105A000000000?000000000?000000000?000000000? +6I1954195C000000019E241094800?111952800B000000000?000000000?000000000?000000000? +6I1954195C000000019F241095800?601098101D000000000?000000000?000000000?000000000? +6I1954195C000000019G241096800?699999112?000000000?000000000?000000000?000000000? +6I1954195C000000019H241097800?151023132G000000000?000000000?000000000?000000000? +6I1954195C000000019I241098800?600000110G000000000?000000000?000000000?000000000? +6I1954195C000000020?241099800?461367115C000000000?000000000?000000000?000000000? +6I1954195C000000020A241100800?300001105G000000000?000000000?000000000?000000000? +6I1954195C000000020B241101800?300001100H000000000?000000000?000000000?000000000? +6I1954195C000000020C241102800?111255115I000000000?000000000?000000000?000000000? +6I1954195C000000020D241103800?000003000?000000000?000000000?000000000?000000000? +6I1954195C000000020E241104800?000006000?000000000?000000000?000000000?000000000? +6I1954195C000000020F241105800?300003106C000000000?000000000?000000000?000000000? +6I1954195C000000020G241106800?101260126G000000000?000000000?000000000?000000000? +6I1954195C000000020H241107800?461112106A000000000?000000000?000000000?000000000? +6I1954195C000000020I241108800?201265112B000000000?000000000?000000000?000000000? +6I1954195C000000021?241109800?300003171I000000000?000000000?000000000?000000000? +6I1954195C000000021A241110800?691017112A000000000?000000000?000000000?000000000? +6I1954195C000000021B241111800?691017117A000000000?000000000?000000000?000000000? +6I1954195C000000021C241112800?111017104F000000000?000000000?000000000?000000000? +6I1954195C000000021D241113800?201017109E000000000?000000000?000000000?000000000? +6I1954195C000000021E241114800?670000107E000000000?000000000?000000000?000000000? +6I1954195C000000021F241115800?161023113?000000000?000000000?000000000?000000000? +6I1954195C000000021G241116800?350000126G000000000?000000000?000000000?000000000? +6I1954195C000000021H241117800?350003112E000000000?000000000?000000000?000000000? +6I1954195C000000021I241118800?151023113?000000000?000000000?000000000?000000000? +6I1954195C000000022?241119800?151030800B000000000?000000000?000000000?000000000? +6I1954195C000000022A241120800?601023102G000000000?000000000?000000000?000000000? +6I1954195C000000022B241121800?300001102H000000000?000000000?000000000?000000000? +6I1954195C000000022C241122800?608003103B000000000?000000000?000000000?000000000? +6I1954195C000000022D241123800?600000134H000000000?000000000?000000000?000000000? +6I1954195C000000022E241124800?241278119D000000000?000000000?000000000?000000000? +6I1954195C000000022F241125800?608003118C000000000?000000000?000000000?000000000? +6I1954195C000000022G241126800?101038172I000000000?000000000?000000000?000000000? +6I1954195C000000022H241127800?300003104?000000000?000000000?000000000?000000000? +6I1954195C000000022I241128800?350003800C000000000?000000000?000000000?000000000? +6I1954195C000000023?241129800?300004100D000000000?000000000?000000000?000000000? +6I1954195C000000023A241130800?350003119F000000000?000000000?000000000?000000000? +6I1954195C000000023B241131800?608000144E000000000?000000000?000000000?000000000? +6I1954195C000000023C241132800?118001119?000000000?000000000?000000000?000000000? +6I1954195C000000023D241133800?608002109B000000000?000000000?000000000?000000000? +6I1954195C000000023E241134800?201291127B000000000?000000000?000000000?000000000? +6I1954195C000000023F241135800?101138109C000000000?000000000?000000000?000000000? +6I1954195C000000023G241136800?101039109C000000000?000000000?000000000?000000000? +6I1954195C000000023H241137800?608002144E000000000?000000000?000000000?000000000? +6I1954195C000000023I241138800?000000000A000000000?000000000?000000000?000000000? +6I1954195C000000024?241139800?000100100A000000000?000000000?000000000?000000000? +6I1954195C000000024A241140800?350001135I000000000?000000000?000000000?000000000? +6I1954195C000000024B241141800?827473001H000000000?000000000?000000000?000000000? +6I1954195C000000024C241142800?240000110B000000000?000000000?000000000?000000000? +6I1954195C000000024D241143800?191801126G000000000?000000000?000000000?000000000? +6I1954195C000000024E241144800?608003115H000000000?000000000?000000000?000000000? +6I1954195C000000024F241145800?210000120C000000000?000000000?000000000?000000000? +6I1954195C000000024G241146800?111852190G000000000?000000000?000000000?000000000? +6I1954195C000000024H241147800?350001175C000000000?000000000?000000000?000000000? +6I1954195C000000024I241148800?101853176?000000000?000000000?000000000?000000000? +6I1954195C000000025?241149800?101856176B000000000?000000000?000000000?000000000? +6I1954195C000000025A241150800?031622776F000000000?000000000?000000000?000000000? +6I1954195C000000025B241151800?221058116A000000000?000000000?000000000?000000000? +6I1954195C000000025C241152800?101255120I000000000?000000000?000000000?000000000? +6I1954195C000000025D241153800?108002131B000000000?000000000?000000000?000000000? +6I1954195C000000025E241154800?828875100F000000000?000000000?000000000?000000000? +6I1954195C000000025F241155800?168002111C000000000?000000000?000000000?000000000? +6I1954195C000000025G241156800?111260126G000000000?000000000?000000000?000000000? +6I1954195C000000025H241157800?691160116D000000000?000000000?000000000?000000000? +6I1954195C000000025I241158800?461115111H000000000?000000000?000000000?000000000? +6I1954195C000000026?241159800?441366109E000000000?000000000?000000000?000000000? +6I1954195C000000026A241160800?210000109E000000000?000000000?000000000?000000000? +6I1954195C000000026B241161800?151114800B000000000?000000000?000000000?000000000? +6I1954195C000000026C241162800?600000101F000000000?000000000?000000000?000000000? +6I1954195C000000026D241163800?691116126I000000000?000000000?000000000?000000000? +6I1954195C000000026E241164800?221267117?000000000?000000000?000000000?000000000? +6I1954195C000000026F241165800?601957126A000000000?000000000?000000000?000000000? +6I1954195C000000026G241166800?211277173F000000000?000000000?000000000?000000000? +6I1954195C000000026H241167800?174532934H000000000?000000000?000000000?000000000? +6I1954195C000000026I241168800?241272108A000000000?000000000?000000000?000000000? +6I1954195C000000027?241169800?151022800B000000000?000000000?000000000?000000000? +6I1954195C000000027A241170800?151073800B000000000?000000000?000000000?000000000? +6I1954195C000000027B241171800?300001107H000000000?000000000?000000000?000000000? +6I1954195C000000027C241172800?111325133F000000000?000000000?000000000?000000000? +6I1954195C000000027D241173800?651957141A000000000?000000000?000000000?000000000? +6I1954195C000000027E241174800?241278148F000000000?000000000?000000000?000000000? +6I1954195C000000027F241175800?241986134D000000000?000000000?000000000?000000000? +6I1954195C000000027G241176800?111283800C000000000?000000000?000000000?000000000? +6I1954195C000000027H241177800?691080118D000000000?000000000?000000000?000000000? +6I1954195C000000027I241178800?241017117E000000000?000000000?000000000?000000000? +6I1954195C000000028?241179800?158001800C000000000?000000000?000000000?000000000? +6I1954195C000000028A241180800?101138134C000000000?000000000?000000000?000000000? +6I1954195C000000028B241181800?608003123I000000000?000000000?000000000?000000000? +6I1954195C000000028C241182800?451236123G000000000?000000000?000000000?000000000? +6I1954195C000000028D241183800?300003139B000000000?000000000?000000000?000000000? +6I1954195C000000028E241184800?221289129B000000000?000000000?000000000?000000000? +6I1954195C000000028F241185800?101139109C000000000?000000000?000000000?000000000? +6I1954195C000000028G241186800?651045105B000000000?000000000?000000000?000000000? +6I1954195C000000028H241187800?350003109G000000000?000000000?000000000?000000000? +6I1954195C000000028I241188800?691953800C000000000?000000000?000000000?000000000? +6I1954195C000000029?241189800?300001100D000000000?000000000?000000000?000000000? +6I1954195C000000029A241190800?101045109I000000000?000000000?000000000?000000000? +6I1954195C000000029B241191800?151294124I000000000?000000000?000000000?000000000? +6I1954195C000000029C241192800?441246125G000000000?000000000?000000000?000000000? +6I1954195C000000029D241193800?111268137C000000000?000000000?000000000?000000000? +6I1954195C000000029E241194800?200000117H000000000?000000000?000000000?000000000? +6I1954195C000000029F241195800?241198105C000000000?000000000?000000000?000000000? +6I1954195C000000029G241196800?151265127D000000000?000000000?000000000?000000000? +6I1954195C000000029H241197800?211255117F000000000?000000000?000000000?000000000? +6I1954195C000000029I241198800?350000135I000000000?000000000?000000000?000000000? +6I1954195C000000030?241199800?451203109E000000000?000000000?000000000?000000000? +6I1954195C000000030A241200800?300003105I000000000?000000000?000000000?000000000? +6I1954195C000000030B241201800?101009101E000000000?000000000?000000000?000000000? +6I1954195C000000030C241202800?601009101C000000000?000000000?000000000?000000000? +6I1954195C000000030D241203800?601023102G000000000?000000000?000000000?000000000? +6I1954195C000000030E241204800?651023112G000000000?000000000?000000000?000000000? +6I1954195C000000030F241205800?651023112H000000000?000000000?000000000?000000000? +6I1954195C000000030G241206800?461670121A000000000?000000000?000000000?000000000? +6I1954195C000000030H241207800?151310800B000000000?000000000?000000000?000000000? +6I1954195C000000030I241208800?350001121E000000000?000000000?000000000?000000000? +6I1954195C000000031?241209800?168002121G000000000?000000000?000000000?000000000? +6I1954195C000000031A241210800?168002122H000000000?000000000?000000000?000000000? +6I1954195C000000031B241211800?300002121H000000000?000000000?000000000?000000000? +6I1954195C000000031C241212800?191270122?000000000?000000000?000000000?000000000? +6I1954195C000000031D241213800?350002122A000000000?000000000?000000000?000000000? +6I1954195C000000031E241214800?151219800B000000000?000000000?000000000?000000000? +6I1954195C000000031F241215800?101419122D000000000?000000000?000000000?000000000? +6I1954195C000000031G241216800?161270122E000000000?000000000?000000000?000000000? +6I1954195C000000031H241217800?241270122G000000000?000000000?000000000?000000000? +6I1954195C000000031I241218800?441223144E000000000?000000000?000000000?000000000? +6I1954195C000000032?241219800?600000120F000000000?000000000?000000000?000000000? +6I1954195C000000032A241220800?310000124C000000000?000000000?000000000?000000000? +6I1954195C000000032B241221800?101278144E000000000?000000000?000000000?000000000? +6I1954195C000000032C241222800?191278120H000000000?000000000?000000000?000000000? +6I1954195C000000032D241223800?201278118A000000000?000000000?000000000?000000000? +6I1954195C000000032E241224800?668003194C000000000?000000000?000000000?000000000? +6I1954195C000000032F241225800?300001118B000000000?000000000?000000000?000000000? +6I1954195C000000032G241226800?310002124C000000000?000000000?000000000?000000000? +6I1954195C000000032H241227800?648001123H000000000?000000000?000000000?000000000? +6I1954195C000000032I241228800?198001124D000000000?000000000?000000000?000000000? +6I1954195C000000033?241229800?601234125A000000000?000000000?000000000?000000000? +6I1954195C000000033A241230800?608002144E000000000?000000000?000000000?000000000? +6I1954195C000000033B241231800?151188109D000000000?000000000?000000000?000000000? +6I1954195C000000033C241232800?101045136A000000000?000000000?000000000?000000000? +6I1954195C000000033D241233800?608002119B000000000?000000000?000000000?000000000? +6I1954195C000000033E241234800?000000002B000000000?000000000?000000000?000000000? +6I1954195C000000033F241235800?101240124E000000000?000000000?000000000?000000000? +6I1954195C000000033G241236800?658001119A000000000?000000000?000000000?000000000? +6I1954195C000000033H241237800?601055122B000000000?000000000?000000000?000000000? +6I1954195C000000033I241238800?201294121F000000000?000000000?000000000?000000000? +6I1954195C000000034?241239800?350001124H000000000?000000000?000000000?000000000? +6I1954195C000000034A241240800?000000000A000000000?000000000?000000000?000000000? +6I1954195C000000034B241241800?211277173F000000000?000000000?000000000?000000000? +6I1954195C000000034C241242800?701951134D000000000?000000000?000000000?000000000? +6I1954195C000000034D241243800?608002121C000000000?000000000?000000000?000000000? +6I1954195C000000034E241244800?300001115B000000000?000000000?000000000?000000000? +6I1954195C000000034F241245800?300001115B000000000?000000000?000000000?000000000? +6I1954195C000000034G241246800?601150121B000000000?000000000?000000000?000000000? +6I1954195C000000034H241247800?651250140H000000000?000000000?000000000?000000000? +6I1954195C000000034I241248800?211255122I000000000?000000000?000000000?000000000? +6I1954195C000000035?241249800?101055121?000000000?000000000?000000000?000000000? +6I1954195C000000035A241250800?888888888H000000000?000000000?000000000?000000000? +6I1954195C000000035B241251800?191255123E000000000?000000000?000000000?000000000? +6I1954195C000000035C241252800?888888888H000000000?000000000?000000000?000000000? +6I1954195C000000035D241253800?350007152H000000000?000000000?000000000?000000000? +6I1954195C000000035E241254800?101658141F000000000?000000000?000000000?000000000? +6I1954195C000000035F241255800?888888888H000000000?000000000?000000000?000000000? +6I1954195C000000035G241256800?201272157E000000000?000000000?000000000?000000000? +6I1954195C000000035H241257800?651270122F000000000?000000000?000000000?000000000? +6I1954195C000000035I241258800?168001156C000000000?000000000?000000000?000000000? +6I1954195C000000036?241259800?658003171G000000000?000000000?000000000?000000000? +6I1954195C000000036A241260800?300000178A000000000?000000000?000000000?000000000? +6I1954195C000000036B241261800?350002129C000000000?000000000?000000000?000000000? +6I1954195C000000036C241262800?461266174H000000000?000000000?000000000?000000000? +6I1954195C000000036D241263800?118002172E000000000?000000000?000000000?000000000? +6I1954195C000000036E241264800?000000000?000000000?000000000?000000000?000000000? +6I1954195C000000036F241265800?888888888H000000000?000000000?000000000?000000000? +6I1954195C000000036G241266800?108001127A000000000?000000000?000000000?000000000? +6I1954195C000000036H241267800?100000128E000000000?000000000?000000000?000000000? +6I1954195C000000036I241268800?888888888H000000000?000000000?000000000?000000000? +6I1954195C000000037?241269800?221274117G000000000?000000000?000000000?000000000? +6I1954195C000000037A241270800?888888888H000000000?000000000?000000000?000000000? +6I1954195C000000037B241271800?461676163D000000000?000000000?000000000?000000000? +6I1954195C000000037C241272800?211977198I000000000?000000000?000000000?000000000? +6I1954195C000000037D241273800?441677162H000000000?000000000?000000000?000000000? +6I1954195C000000037E241274800?350000126G000000000?000000000?000000000?000000000? +6I1954195C000000037F241275800?300001173D000000000?000000000?000000000?000000000? +6I1954195C000000037G241276800?461393138?000000000?000000000?000000000?000000000? +6I1954195C000000037H241277800?888888888H000000000?000000000?000000000?000000000? +6I1954195C000000037I241278800?601285139?000000000?000000000?000000000?000000000? +6I1954195C000000038?241279800?441383128D000000000?000000000?000000000?000000000? +6I1954195C000000038A241280800?111684138I000000000?000000000?000000000?000000000? +6I1954195C000000038B241281800?000000000A000000000?000000000?000000000?000000000? +6I1954195C000000038C241282800?691635168H000000000?000000000?000000000?000000000? +6I1954195C000000038D241283800?008003126D000000000?000000000?000000000?000000000? +6I1954195C000000038E241284800?310002139E000000000?000000000?000000000?000000000? +6I1954195C000000038F241285800?008003000?000000000?000000000?000000000?000000000? +6I1954195C000000038G241286800?111690144E000000000?000000000?000000000?000000000? +6I1954195C000000038H241287800?101690144E000000000?000000000?000000000?000000000? +6I1954195C000000038I241288800?608001174D000000000?000000000?000000000?000000000? +6I1954195C000000039?241289800?300000110H000000000?000000000?000000000?000000000? +6I1954195C000000039A241290800?191250137A000000000?000000000?000000000?000000000? +6I1954195C000000039B241291800?888888888H000000000?000000000?000000000?000000000? +6I1954195C000000039C241292800?651045134I000000000?000000000?000000000?000000000? +6I1954195C000000039D241293800?000000171F000000000?000000000?000000000?000000000? +6I1954195C000000039E241294800?888888888H000000000?000000000?000000000?000000000? +6I1954195C000000039F241295800?451298174I000000000?000000000?000000000?000000000? +6I1954195C000000039G241296800?191250136H000000000?000000000?000000000?000000000? +6I1954195C000000039H241297800?888888888H000000000?000000000?000000000?000000000? +6I1954195C000000039I241298800?461569167D000000000?000000000?000000000?000000000? +6I1954195C000000040?241299800?441253155D000000000?000000000?000000000?000000000? +6I1954195C000000040A241300800?300003121D000000000?000000000?000000000?000000000? +6I1954195C000000040B241301800?691514146G000000000?000000000?000000000?000000000? +6I1954195C000000040C241302800?691807181H000000000?000000000?000000000?000000000? +6I1954195C000000040D241303800?691256161D000000000?000000000?000000000?000000000? +6I1954195C000000040E241304800?691707166D000000000?000000000?000000000?000000000? +6I1954195C000000040F241305800?691758176A000000000?000000000?000000000?000000000? +6I1954195C000000040G241306800?777777777G000000000?000000000?000000000?000000000? +6I1954195C000000040H241307800?777777777G000000000?000000000?000000000?000000000? +6I1954195C000000040I241308800?777777777G000000000?000000000?000000000?000000000? +6I1954195C000000041?241309800?777777777G000000000?000000000?000000000?000000000? +6I1954195C000000041A241310800?610000147C000000000?000000000?000000000?000000000? +6I1954195C000000041B241311800?300003136I000000000?000000000?000000000?000000000? +6I1954195C000000041C241312800?300003132B000000000?000000000?000000000?000000000? +6I1954195C000000041D241313800?221267137?000000000?000000000?000000000?000000000? +6I1954195C000000041E241314800?777777777G000000000?000000000?000000000?000000000? +6I1954195C000000041F241315800?692222109E000000000?000000000?000000000?000000000? +6I1954195C000000041G241316800?608003153I000000000?000000000?000000000?000000000? +6I1954195C000000041H241317800?777777777G000000000?000000000?000000000?000000000? +6I1954195C000000041I241318800?601285139?000000000?000000000?000000000?000000000? +6I1954195C000000042?241319800?151024113D000000000?000000000?000000000?000000000? +6I1954195C000000042A241320800?151024133E000000000?000000000?000000000?000000000? +6I1954195C000000042B241321800?101024117I000000000?000000000?000000000?000000000? +6I1954195C000000042C241322800?101325133?000000000?000000000?000000000?000000000? +6I1954195C000000042D241323800?777777777G000000000?000000000?000000000?000000000? +6I1954195C000000042E241324800?240000132?000000000?000000000?000000000?000000000? +6I1954195C000000042F241325800?690000800B000000000?000000000?000000000?000000000? +6I1954195C000000042G241326800?111951136E000000000?000000000?000000000?000000000? +6I1954195C000000042H241327800?441315113B000000000?000000000?000000000?000000000? +6I1954195C000000042I241328800?668002134?000000000?000000000?000000000?000000000? +6I1954195C000000043?241329800?201283118G000000000?000000000?000000000?000000000? +6I1954195C000000043A241330800?161283138H000000000?000000000?000000000?000000000? +6I1954195C000000043B241331800?691434153G000000000?000000000?000000000?000000000? +6I1954195C000000043C241332800?608003168I000000000?000000000?000000000?000000000? +6I1954195C000000043D241333800?601242112D000000000?000000000?000000000?000000000? +6I1954195C000000043E241334800?101337142C000000000?000000000?000000000?000000000? +6I1954195C000000043F241335800?108001119C000000000?000000000?000000000?000000000? +6I1954195C000000043G241336800?161142119G000000000?000000000?000000000?000000000? +6I1954195C000000043H241337800?777777777G000000000?000000000?000000000?000000000? +6I1954195C000000043I241338800?658002144E000000000?000000000?000000000?000000000? +6I1954195C000000044?241339800?108001800B000000000?000000000?000000000?000000000? +6I1954195C000000044A241340800?111045136C000000000?000000000?000000000?000000000? +6I1954195C000000044B241341800?350004135I000000000?000000000?000000000?000000000? +6I1954195C000000044C241342800?350007135I000000000?000000000?000000000?000000000? +6I1954195C000000044D241343800?101047100C000000000?000000000?000000000?000000000? +6I1954195C000000044E241344800?601952104B000000000?000000000?000000000?000000000? +6I1954195C000000044F241345800?241061101H000000000?000000000?000000000?000000000? +6I1954195C000000044G241346800?601277158D000000000?000000000?000000000?000000000? +6I1954195C000000044H241347800?111952137B000000000?000000000?000000000?000000000? +6I1954195C000000044I241348800?461156110F000000000?000000000?000000000?000000000? +6I1954195C000000045?241349800?300003115G000000000?000000000?000000000?000000000? +6I1954195C000000045A241350800?300003116I000000000?000000000?000000000?000000000? +6I1954195C000000045B241351800?691464146G000000000?000000000?000000000?000000000? +6I1954195C000000045C241352800?691815181H000000000?000000000?000000000?000000000? +6I1954195C000000045D241353800?691384173I000000000?000000000?000000000?000000000? +6I1954195C000000045E241354800?691385173I000000000?000000000?000000000?000000000? +6I1954195C000000045F241355800?691908176A000000000?000000000?000000000?000000000? +6I1954195C000000045G241356800?777777777G000000000?000000000?000000000?000000000? +6I1954195C000000045H241357800?691360131C000000000?000000000?000000000?000000000? +6I1954195C000000045I241358800?200796090?000000000?000000000?000000000?000000000? +6I1954195C000000046?241359800?658002111G000000000?000000000?000000000?000000000? +6I1954195C000000046A241360800?210000109E000000000?000000000?000000000?000000000? +6I1954195C000000046B241361800?300003131I000000000?000000000?000000000?000000000? +6I1954195C000000046C241362800?151065800B000000000?000000000?000000000?000000000? +6I1954195C000000046D241363800?300003117B000000000?000000000?000000000?000000000? +6I1954195C000000046E241364800?101324168F000000000?000000000?000000000?000000000? +6I1954195C000000046F241365800?441315173C000000000?000000000?000000000?000000000? +6I1954195C000000046G241366800?108001132A000000000?000000000?000000000?000000000? +6I1954195C000000046H241367800?101023132H000000000?000000000?000000000?000000000? +6I1954195C000000046I241368800?608003172H000000000?000000000?000000000?000000000? +6I1954195C000000047?241369800?151072800B000000000?000000000?000000000?000000000? +6I1954195C000000047A241370800?151123800B000000000?000000000?000000000?000000000? +6I1954195C000000047B241371800?608003128?000000000?000000000?000000000?000000000? +6I1954195C000000047C241372800?111277138B000000000?000000000?000000000?000000000? +6I1954195C000000047D241373800?441339127H000000000?000000000?000000000?000000000? +6I1954195C000000047E241374800?693333133H000000000?000000000?000000000?000000000? +6I1954195C000000047F241375800?010000171E000000000?000000000?000000000?000000000? +6I1954195C000000047G241376800?241985139G000000000?000000000?000000000?000000000? +6I1954195C000000047H241377800?691959137F000000000?000000000?000000000?000000000? +6I1954195C000000047I241378800?777777777G000000000?000000000?000000000?000000000? +6I1954195C000000048?241379800?608002173G000000000?000000000?000000000?000000000? +6I1954195C000000048A241380800?601865128C000000000?000000000?000000000?000000000? +6I1954195C000000048B241381800?777777777G000000000?000000000?000000000?000000000? +6I1954195C000000048C241382800?461315174?000000000?000000000?000000000?000000000? +6I1954195C000000048D241383800?310003172B000000000?000000000?000000000?000000000? +6I1954195C000000048E241384800?210000130C000000000?000000000?000000000?000000000? +6I1954195C000000048F241385800?210000130D000000000?000000000?000000000?000000000? +6I1954195C000000048G241386800?651789164C000000000?000000000?000000000?000000000? +6I1954195C000000048H241387800?111490129F000000000?000000000?000000000?000000000? +6I1954195C000000048I241388800?151142119G000000000?000000000?000000000?000000000? +6I1954195C000000049?241389800?191250127E000000000?000000000?000000000?000000000? +6I1954195C000000049A241390800?441346109E000000000?000000000?000000000?000000000? +6I1954195C000000049B241391800?777777777G000000000?000000000?000000000?000000000? +6I1954195C000000049C241392800?161045119I000000000?000000000?000000000?000000000? +6I1954195C000000049D241393800?696666133H000000000?000000000?000000000?000000000? +6I1954195C000000049E241394800?101398172F000000000?000000000?000000000?000000000? +6I1954195C000000049F241395800?350001137I000000000?000000000?000000000?000000000? +6I1954195C000000049G241396800?777777777G000000000?000000000?000000000?000000000? +6I1954195C000000049H241397800?691976134E000000000?000000000?000000000?000000000? +6I1954195C000000049I241398800?157079631H000000000?000000000?000000000?000000000? +6I1954195C000000050?241399800?300003135G000000000?000000000?000000000?000000000? +6I1954195C000000050A241400800?691318117D000000000?000000000?000000000?000000000? +6I1954195C000000050B241401800?010000113A000000000?000000000?000000000?000000000? +6I1954195C000000050C241402800?608003155I000000000?000000000?000000000?000000000? +6I1954195C000000050D241403800?360000152A000000000?000000000?000000000?000000000? +6I1954195C000000050E241404800?211009141D000000000?000000000?000000000?000000000? +6I1954195C000000050F241405800?300002141A000000000?000000000?000000000?000000000? +6I1954195C000000050G241406800?151409800B000000000?000000000?000000000?000000000? +6I1954195C000000050H241407800?350002166C000000000?000000000?000000000?000000000? +6I1954195C000000050I241408800?151272142I000000000?000000000?000000000?000000000? +6I1954195C000000051?241409800?600000144F000000000?000000000?000000000?000000000? +6I1954195C000000051A241410800?691964116H000000000?000000000?000000000?000000000? +6I1954195C000000051B241411800?201265146H000000000?000000000?000000000?000000000? +6I1954195C000000051C241412800?691272163I000000000?000000000?000000000?000000000? +6I1954195C000000051D241413800?158001142I000000000?000000000?000000000?000000000? +6I1954195C000000051E241414800?651023142G000000000?000000000?000000000?000000000? +6I1954195C000000051F241415800?451418146I000000000?000000000?000000000?000000000? +6I1954195C000000051G241416800?191270144H000000000?000000000?000000000?000000000? +6I1954195C000000051H241417800?461420142A000000000?000000000?000000000?000000000? +6I1954195C000000051I241418800?461422142C000000000?000000000?000000000?000000000? +6I1954195C000000052?241419800?000000002E000000000?000000000?000000000?000000000? +6I1954195C000000052A241420800?691424147G000000000?000000000?000000000?000000000? +6I1954195C000000052B241421800?691524147G000000000?000000000?000000000?000000000? +6I1954195C000000052C241422800?608001144E000000000?000000000?000000000?000000000? +6I1954195C000000052D241423800?601278144E000000000?000000000?000000000?000000000? +6I1954195C000000052E241424800?211285143H000000000?000000000?000000000?000000000? +6I1954195C000000052F241425800?241485148H000000000?000000000?000000000?000000000? +6I1954195C000000052G241426800?191252171H000000000?000000000?000000000?000000000? +6I1954195C000000052H241427800?451430109E000000000?000000000?000000000?000000000? +6I1954195C000000052I241428800?441431163B000000000?000000000?000000000?000000000? +6I1954195C000000053?241429800?350002143E000000000?000000000?000000000?000000000? +6I1954195C000000053A241430800?300003143I000000000?000000000?000000000?000000000? +6I1954195C000000053B241431800?601434167E000000000?000000000?000000000?000000000? +6I1954195C000000053C241432800?691250163I000000000?000000000?000000000?000000000? +6I1954195C000000053D241433800?310000141C000000000?000000000?000000000?000000000? +6I1954195C000000053E241434800?100000005?000000000?000000000?000000000?000000000? +6I1954195C000000053F241435800?441489144?000000000?000000000?000000000?000000000? +6I1954195C000000053G241436800?221639144B000000000?000000000?000000000?000000000? +6I1954195C000000053H241437800?678003149E000000000?000000000?000000000?000000000? +6I1954195C000000053I241438800?601665152B000000000?000000000?000000000?000000000? +6I1954195C000000054?241439800?151443144G000000000?000000000?000000000?000000000? +6I1954195C000000054A241440800?451494144E000000000?000000000?000000000?000000000? +6I1954195C000000054B241441800?600000155C000000000?000000000?000000000?000000000? +6I1954195C000000054C241442800?451697124G000000000?000000000?000000000?000000000? +6I1954195C000000054D241443800?240000109E000000000?000000000?000000000?000000000? +6I1954195C000000054E241444800?490000000?000000000?000000000?000000000?000000000? +6I1954195C000000054F241445800?210000140D000000000?000000000?000000000?000000000? +6I1954195C000000054G241446800?210000140E000000000?000000000?000000000?000000000? +6I1954195C000000054H241447800?690000800B000000000?000000000?000000000?000000000? +6I1954195C000000054I241448800?608003160H000000000?000000000?000000000?000000000? +6I1954195C000000055?241449800?300003145G000000000?000000000?000000000?000000000? +6I1954195C000000055A241450800?651961131A000000000?000000000?000000000?000000000? +6I1954195C000000055B241451800?211606160I000000000?000000000?000000000?000000000? +6I1954195C000000055C241452800?000404099H000000000?000000000?000000000?000000000? +6I1954195C000000055D241453800?601009096E000000000?000000000?000000000?000000000? +6I1954195C000000055E241454800?000000109E000000000?000000000?000000000?000000000? +6I1954195C000000055F241455800?151561800B000000000?000000000?000000000?000000000? +6I1954195C000000055G241456800?010000000?000000000?000000000?000000000?000000000? +6I1954195C000000055H241457800?151460800B000000000?000000000?000000000?000000000? +6I1954195C000000055I241458800?441462151B000000000?000000000?000000000?000000000? +6I1954195C000000056?241459800?211264141G000000000?000000000?000000000?000000000? +6I1954195C000000056A241460800?600000147C000000000?000000000?000000000?000000000? +6I1954195C000000056B241461800?181265147A000000000?000000000?000000000?000000000? +6I1954195C000000056C241462800?461615139C000000000?000000000?000000000?000000000? +6I1954195C000000056D241463800?115129277F000000000?000000000?000000000?000000000? +6I1954195C000000056E241464800?221495150B000000000?000000000?000000000?000000000? +6I1954195C000000056F241465800?201270147D000000000?000000000?000000000?000000000? +6I1954195C000000056G241466800?191270169D000000000?000000000?000000000?000000000? +6I1954195C000000056H241467800?300003142E000000000?000000000?000000000?000000000? +6I1954195C000000056I241468800?211272147E000000000?000000000?000000000?000000000? +6I1954195C000000057?241469800?461472162C000000000?000000000?000000000?000000000? +6I1954195C000000057A241470800?350001142H000000000?000000000?000000000?000000000? +6I1954195C000000057B241471800?350002157G000000000?000000000?000000000?000000000? +6I1954195C000000057C241472800?651250141B000000000?000000000?000000000?000000000? +6I1954195C000000057D241473800?211278148C000000000?000000000?000000000?000000000? +6I1954195C000000057E241474800?211278168A000000000?000000000?000000000?000000000? +6I1954195C000000057F241475800?601278158C000000000?000000000?000000000?000000000? +6I1954195C000000057G241476800?101886174A000000000?000000000?000000000?000000000? +6I1954195C000000057H241477800?241480163C000000000?000000000?000000000?000000000? +6I1954195C000000057I241478800?691481148E000000000?000000000?000000000?000000000? +6I1954195C000000058?241479800?608003148G000000000?000000000?000000000?000000000? +6I1954195C000000058A241480800?211285143H000000000?000000000?000000000?000000000? +6I1954195C000000058B241481800?300000146E000000000?000000000?000000000?000000000? +6I1954195C000000058C241482800?350000146E000000000?000000000?000000000?000000000? +6I1954195C000000058D241483800?651289149C000000000?000000000?000000000?000000000? +6I1954195C000000058E241484800?310002174C000000000?000000000?000000000?000000000? +6I1954195C000000058F241485800?221495150B000000000?000000000?000000000?000000000? +6I1954195C000000058G241486800?691241116H000000000?000000000?000000000?000000000? +6I1954195C000000058H241487800?300002154D000000000?000000000?000000000?000000000? +6I1954195C000000058I241488800?151441800B000000000?000000000?000000000?000000000? +6I1954195C000000059?241489800?310003149I000000000?000000000?000000000?000000000? +6I1954195C000000059A241490800?004673765F000000000?000000000?000000000?000000000? +6I1954195C000000059B241491800?461594139C000000000?000000000?000000000?000000000? +6I1954195C000000059C241492800?651045144I000000000?000000000?000000000?000000000? +6I1954195C000000059D241493800?451496149G000000000?000000000?000000000?000000000? +6I1954195C000000059E241494800?608002140C000000000?000000000?000000000?000000000? +6I1954195C000000059F241495800?000000146E000000000?000000000?000000000?000000000? +6I1954195C000000059G241496800?300003140F000000000?000000000?000000000?000000000? +6I1954195C000000059H241497800?600000140E000000000?000000000?000000000?000000000? +6I1954195C000000059I241498800?350002156F000000000?000000000?000000000?000000000? +6I1954195C000000060?241499800?461652170C000000000?000000000?000000000?000000000? +6I1954195C000000060A241500800?651104116C000000000?000000000?000000000?000000000? +6I1954195C000000060B241501800?241265161I000000000?000000000?000000000?000000000? +6I1954195C000000060C241502800?671264166I000000000?000000000?000000000?000000000? +6I1954195C000000060D241503800?300005141E000000000?000000000?000000000?000000000? +6I1954195C000000060E241504800?434294481I000000000?000000000?000000000?000000000? +6I1954195C000000060F241505800?691261158E000000000?000000000?000000000?000000000? +6I1954195C000000060G241506800?000255491H000000000?000000000?000000000?000000000? +6I1954195C000000060H241507800?158001156C000000000?000000000?000000000?000000000? +6I1954195C000000060I241508800?600000165E000000000?000000000?000000000?000000000? +6I1954195C000000061?241509800?191264163A000000000?000000000?000000000?000000000? +6I1954195C000000061A241510800?181267162A000000000?000000000?000000000?000000000? +6I1954195C000000061B241511800?441515131F000000000?000000000?000000000?000000000? +6I1954195C000000061C241512800?300005152E000000000?000000000?000000000?000000000? +6I1954195C000000061D241513800?066273088D000000000?000000000?000000000?000000000? +6I1954195C000000061E241514800?221495155A000000000?000000000?000000000?000000000? +6I1954195C000000061F241515800?211270152C000000000?000000000?000000000?000000000? +6I1954195C000000061G241516800?191270169E000000000?000000000?000000000?000000000? +6I1954195C000000061H241517800?191270160B000000000?000000000?000000000?000000000? +6I1954195C000000061I241518800?000000005?000000000?000000000?000000000?000000000? +6I1954195C000000062?241519800?300004163?000000000?000000000?000000000?000000000? +6I1954195C000000062A241520800?198003148?000000000?000000000?000000000?000000000? +6I1954195C000000062B241521800?118002147I000000000?000000000?000000000?000000000? +6I1954195C000000062C241522800?300002167I000000000?000000000?000000000?000000000? +6I1954195C000000062D241523800?201277153?000000000?000000000?000000000?000000000? +6I1954195C000000062E241524800?658003168G000000000?000000000?000000000?000000000? +6I1954195C000000062F241525800?461478152I000000000?000000000?000000000?000000000? +6I1954195C000000062G241526800?691886174B000000000?000000000?000000000?000000000? +6I1954195C000000062H241527800?451680144E000000000?000000000?000000000?000000000? +6I1954195C000000062I241528800?461581153B000000000?000000000?000000000?000000000? +6I1954195C000000063?241529800?691482148E000000000?000000000?000000000?000000000? +6I1954195C000000063A241530800?601283153G000000000?000000000?000000000?000000000? +6I1954195C000000063B241531800?201285158H000000000?000000000?000000000?000000000? +6I1954195C000000063C241532800?171285153I000000000?000000000?000000000?000000000? +6I1954195C000000063D241533800?310003174C000000000?000000000?000000000?000000000? +6I1954195C000000063E241534800?079689679C000000000?000000000?000000000?000000000? +6I1954195C000000063F241535800?350000171F000000000?000000000?000000000?000000000? +6I1954195C000000063G241536800?658002154E000000000?000000000?000000000?000000000? +6I1954195C000000063H241537800?300002154C000000000?000000000?000000000?000000000? +6I1954195C000000063I241538800?151691129E000000000?000000000?000000000?000000000? +6I1954195C000000064?241539800?350002144E000000000?000000000?000000000?000000000? +6I1954195C000000064A241540800?618003174H000000000?000000000?000000000?000000000? +6I1954195C000000064B241541800?161444165?000000000?000000000?000000000?000000000? +6I1954195C000000064C241542800?651045159I000000000?000000000?000000000?000000000? +6I1954195C000000064D241543800?441547144E000000000?000000000?000000000?000000000? +6I1954195C000000064E241544800?461461161A000000000?000000000?000000000?000000000? +6I1954195C000000064F241545800?300003145E000000000?000000000?000000000?000000000? +6I1954195C000000064G241546800?601252156D000000000?000000000?000000000?000000000? +6I1954195C000000064H241547800?211252155F000000000?000000000?000000000?000000000? +6I1954195C000000064I241548800?000093264C000000000?000000000?000000000?000000000? +6I1954195C000000065?241549800?300003155G000000000?000000000?000000000?000000000? +6I1954195C000000065A241550800?350001145H000000000?000000000?000000000?000000000? +6I1954195C000000065B241551800?601504150I000000000?000000000?000000000?000000000? +6I1954195C000000065C241552800?608003160I000000000?000000000?000000000?000000000? +6I1954195C000000065D241553800?300002145I000000000?000000000?000000000?000000000? +6I1954195C000000065E241554800?461507125H000000000?000000000?000000000?000000000? +6I1954195C000000065F241555800?601167157H000000000?000000000?000000000?000000000? +6I1954195C000000065G241556800?688002156E000000000?000000000?000000000?000000000? +6I1954195C000000065H241557800?151560800B000000000?000000000?000000000?000000000? +6I1954195C000000065I241558800?101562161G000000000?000000000?000000000?000000000? +6I1954195C000000066?241559800?101463151G000000000?000000000?000000000?000000000? +6I1954195C000000066A241560800?600000157H000000000?000000000?000000000?000000000? +6I1954195C000000066B241561800?600000157D000000000?000000000?000000000?000000000? +6I1954195C000000066C241562800?025439357E000000000?000000000?000000000?000000000? +6I1954195C000000066D241563800?608002157A000000000?000000000?000000000?000000000? +6I1954195C000000066E241564800?191270164H000000000?000000000?000000000?000000000? +6I1954195C000000066F241565800?151568157C000000000?000000000?000000000?000000000? +6I1954195C000000066G241566800?608002162E000000000?000000000?000000000?000000000? +6I1954195C000000066H241567800?191270140B000000000?000000000?000000000?000000000? +6I1954195C000000066I241568800?490000000?000000000?000000000?000000000?000000000? +6I1954195C000000067?241569800?681272162G000000000?000000000?000000000?000000000? +6I1954195C000000067A241570800?201278193A000000000?000000000?000000000?000000000? +6I1954195C000000067B241571800?300002152H000000000?000000000?000000000?000000000? +6I1954195C000000067C241572800?000151484B000000000?000000000?000000000?000000000? +6I1954195C000000067D241573800?181277153A000000000?000000000?000000000?000000000? +6I1954195C000000067E241574800?211278158B000000000?000000000?000000000?000000000? +6I1954195C000000067F241575800?688002153H000000000?000000000?000000000?000000000? +6I1954195C000000067G241576800?111886174B000000000?000000000?000000000?000000000? +6I1954195C000000067H241577800?108002144E000000000?000000000?000000000?000000000? +6I1954195C000000067I241578800?211283158F000000000?000000000?000000000?000000000? +6I1954195C000000068?241579800?241283153F000000000?000000000?000000000?000000000? +6I1954195C000000068A241580800?000000000?000000000?000000000?000000000?000000000? +6I1954195C000000068B241581800?181285153I000000000?000000000?000000000?000000000? +6I1954195C000000068C241582800?300002168I000000000?000000000?000000000?000000000? +6I1954195C000000068D241583800?300002158I000000000?000000000?000000000?000000000? +6I1954195C000000068E241584800?101952116F000000000?000000000?000000000?000000000? +6I1954195C000000068F241585800?241539169H000000000?000000000?000000000?000000000? +6I1954195C000000068G241586800?651289159C000000000?000000000?000000000?000000000? +6I1954195C000000068H241587800?000000005?000000000?000000000?000000000?000000000? +6I1954195C000000068I241588800?461591159E000000000?000000000?000000000?000000000? +6I1954195C000000069?241589800?201293169F000000000?000000000?000000000?000000000? +6I1954195C000000069A241590800?601952136D000000000?000000000?000000000?000000000? +6I1954195C000000069B241591800?441595154F000000000?000000000?000000000?000000000? +6I1954195C000000069C241592800?651045154I000000000?000000000?000000000?000000000? +6I1954195C000000069D241593800?451596159G000000000?000000000?000000000?000000000? +6I1954195C000000069E241594800?601548151F000000000?000000000?000000000?000000000? +6I1954195C000000069F241595800?695555133H000000000?000000000?000000000?000000000? +6I1954195C000000069G241596800?300003160E000000000?000000000?000000000?000000000? +6I1954195C000000069H241597800?600000165E000000000?000000000?000000000?000000000? +6I1954195C000000069I241598800?608003155H000000000?000000000?000000000?000000000? +6I1954195C000000070?241599800?300003120G000000000?000000000?000000000?000000000? +6I1954195C000000070A241600800?651023118I000000000?000000000?000000000?000000000? +6I1954195C000000070B241601800?350001170I000000000?000000000?000000000?000000000? +6I1954195C000000070C241602800?608003166B000000000?000000000?000000000?000000000? +6I1954195C000000070D241603800?678002166A000000000?000000000?000000000?000000000? +6I1954195C000000070E241604800?350002161F000000000?000000000?000000000?000000000? +6I1954195C000000070F241605800?151508800B000000000?000000000?000000000?000000000? +6I1954195C000000070G241606800?300002161C000000000?000000000?000000000?000000000? +6I1954195C000000070H241607800?151610800B000000000?000000000?000000000?000000000? +6I1954195C000000070I241608800?101612166G000000000?000000000?000000000?000000000? +6I1954195C000000071?241609800?101513156G000000000?000000000?000000000?000000000? +6I1954195C000000071A241610800?600000167C000000000?000000000?000000000?000000000? +6I1954195C000000071B241611800?171265147A000000000?000000000?000000000?000000000? +6I1954195C000000071C241612800?007295173G000000000?000000000?000000000?000000000? +6I1954195C000000071D241613800?201267162?000000000?000000000?000000000?000000000? +6I1954195C000000071E241614800?241267172A000000000?000000000?000000000?000000000? +6I1954195C000000071F241615800?601434144E000000000?000000000?000000000?000000000? +6I1954195C000000071G241616800?108002167E000000000?000000000?000000000?000000000? +6I1954195C000000071H241617800?191270155B000000000?000000000?000000000?000000000? +6I1954195C000000071I241618800?159154943?000000000?000000000?000000000?000000000? +6I1954195C000000072?241619800?651272143B000000000?000000000?000000000?000000000? +6I1954195C000000072A241620800?211274152G000000000?000000000?000000000?000000000? +6I1954195C000000072B241621800?461624159E000000000?000000000?000000000?000000000? +6I1954195C000000072C241622800?691576157I000000000?000000000?000000000?000000000? +6I1954195C000000072D241623800?691293150A000000000?000000000?000000000?000000000? +6I1954195C000000072E241624800?441595167H000000000?000000000?000000000?000000000? +6I1954195C000000072F241625800?101278168C000000000?000000000?000000000?000000000? +6I1954195C000000072G241626800?211283163F000000000?000000000?000000000?000000000? +6I1954195C000000072H241627800?151444160A000000000?000000000?000000000?000000000? +6I1954195C000000072I241628800?691281148D000000000?000000000?000000000?000000000? +6I1954195C000000073?241629800?350001168E000000000?000000000?000000000?000000000? +6I1954195C000000073A241630800?691433143F000000000?000000000?000000000?000000000? +6I1954195C000000073B241631800?350002143G000000000?000000000?000000000?000000000? +6I1954195C000000073C241632800?310002164A000000000?000000000?000000000?000000000? +6I1954195C000000073D241633800?678002154A000000000?000000000?000000000?000000000? +6I1954195C000000073E241634800?118001174H000000000?000000000?000000000?000000000? +6I1954195C000000073F241635800?300000171F000000000?000000000?000000000?000000000? +6I1954195C000000073G241636800?651289164C000000000?000000000?000000000?000000000? +6I1954195C000000073H241637800?300002169C000000000?000000000?000000000?000000000? +6I1954195C000000073I241638800?601291164E000000000?000000000?000000000?000000000? +6I1954195C000000074?241639800?310000141C000000000?000000000?000000000?000000000? +6I1954195C000000074A241640800?658003167B000000000?000000000?000000000?000000000? +6I1954195C000000074B241641800?151444160D000000000?000000000?000000000?000000000? +6I1954195C000000074C241642800?651045169I000000000?000000000?000000000?000000000? +6I1954195C000000074D241643800?451646164G000000000?000000000?000000000?000000000? +6I1954195C000000074E241644800?671297165A000000000?000000000?000000000?000000000? +6I1954195C000000074F241645800?641268171G000000000?000000000?000000000?000000000? +6I1954195C000000074G241646800?300003165F000000000?000000000?000000000?000000000? +6I1954195C000000074H241647800?600000160F000000000?000000000?000000000?000000000? +6I1954195C000000074I241648800?350004125I000000000?000000000?000000000?000000000? +6I1954195C000000075?241649800?300003165G000000000?000000000?000000000?000000000? +6I1954195C000000075A241650800?608003140G000000000?000000000?000000000?000000000? +6I1954195C000000075B241651800?161654151?000000000?000000000?000000000?000000000? +6I1954195C000000075C241652800?161456146A000000000?000000000?000000000?000000000? +6I1954195C000000075D241653800?101506146F000000000?000000000?000000000?000000000? +6I1954195C000000075E241654800?500000000?000000000?000000000?000000000?000000000? +6I1954195C000000075F241655800?300002151A000000000?000000000?000000000?000000000? +6I1954195C000000075G241656800?151659800B000000000?000000000?000000000?000000000? +6I1954195C000000075H241657800?151660800B000000000?000000000?000000000?000000000? +6I1954195C000000075I241658800?001742112?000000000?000000000?000000000?000000000? +6I1954195C000000076?241659800?600000160F000000000?000000000?000000000?000000000? +6I1954195C000000076A241660800?610000157H000000000?000000000?000000000?000000000? +6I1954195C000000076B241661800?181265151I000000000?000000000?000000000?000000000? +6I1954195C000000076C241662800?101665152?000000000?000000000?000000000?000000000? +6I1954195C000000076D241663800?211268167A000000000?000000000?000000000?000000000? +6I1954195C000000076E241664800?241267162B000000000?000000000?000000000?000000000? +6I1954195C000000076F241665800?100000000?000000000?000000000?000000000?000000000? +6I1954195C000000076G241666800?441569167D000000000?000000000?000000000?000000000? +6I1954195C000000076H241667800?191270159H000000000?000000000?000000000?000000000? +6I1954195C000000076I241668800?191572173?000000000?000000000?000000000?000000000? +6I1954195C000000077?241669800?350002149E000000000?000000000?000000000?000000000? +6I1954195C000000077A241670800?694444123?000000000?000000000?000000000?000000000? +6I1954195C000000077B241671800?601274162I000000000?000000000?000000000?000000000? +6I1954195C000000077C241672800?350001127I000000000?000000000?000000000?000000000? +6I1954195C000000077D241673800?451626137D000000000?000000000?000000000?000000000? +6I1954195C000000077E241674800?601278144E000000000?000000000?000000000?000000000? +6I1954195C000000077F241675800?111278144E000000000?000000000?000000000?000000000? +6I1954195C000000077G241676800?108001154?000000000?000000000?000000000?000000000? +6I1954195C000000077H241677800?691580153C000000000?000000000?000000000?000000000? +6I1954195C000000077I241678800?201285163H000000000?000000000?000000000?000000000? +6I1954195C000000078?241679800?641285147?000000000?000000000?000000000?000000000? +6I1954195C000000078A241680800?601283163G000000000?000000000?000000000?000000000? +6I1954195C000000078B241681800?111587149A000000000?000000000?000000000?000000000? +6I1954195C000000078C241682800?691535173H000000000?000000000?000000000?000000000? +6I1954195C000000078D241683800?101587144E000000000?000000000?000000000?000000000? +6I1954195C000000078E241684800?645963711A000000000?000000000?000000000?000000000? +6I1954195C000000078F241685800?211291164D000000000?000000000?000000000?000000000? +6I1954195C000000078G241686800?101951105F000000000?000000000?000000000?000000000? +6I1954195C000000078H241687800?310001149H000000000?000000000?000000000?000000000? +6I1954195C000000078I241688800?221293171E000000000?000000000?000000000?000000000? +6I1954195C000000079?241689800?211252126G000000000?000000000?000000000?000000000? +6I1954195C000000079A241690800?000000005?000000000?000000000?000000000?000000000? +6I1954195C000000079B241691800?470000000?000000000?000000000?000000000?000000000? +6I1954195C000000079C241692800?651045164I000000000?000000000?000000000?000000000? +6I1954195C000000079D241693800?201297165?000000000?000000000?000000000?000000000? +6I1954195C000000079E241694800?608003125D000000000?000000000?000000000?000000000? +6I1954195C000000079F241695800?608003165C000000000?000000000?000000000?000000000? +6I1954195C000000079G241696800?211250160C000000000?000000000?000000000?000000000? +6I1954195C000000079H241697800?690000150C000000000?000000000?000000000?000000000? +6I1954195C000000079I241698800?201289155E000000000?000000000?000000000?000000000? +6I1954195C000000080?241699800?300003160G000000000?000000000?000000000?000000000? +6I1954195C000000080A241700800?661023118I000000000?000000000?000000000?000000000? +6I1954195C000000080B241701800?157079632G000000000?000000000?000000000?000000000? +6I1954195C000000080C241702800?000003000?000000000?000000000?000000000?000000000? +6I1954195C000000080D241703800?151456161A000000000?000000000?000000000?000000000? +6I1954195C000000080E241704800?108003171C000000000?000000000?000000000?000000000? +6I1954195C000000080F241705800?108001126B000000000?000000000?000000000?000000000? +6I1954195C000000080G241706800?118001154?000000000?000000000?000000000?000000000? +6I1954195C000000080H241707800?688002162G000000000?000000000?000000000?000000000? +6I1954195C000000080I241708800?151711166F000000000?000000000?000000000?000000000? +6I1954195C000000081?241709800?441276171D000000000?000000000?000000000?000000000? +6I1954195C000000081A241710800?461375171E000000000?000000000?000000000?000000000? +6I1954195C000000081B241711800?997500000?000000000?000000000?000000000?000000000? +6I1954195C000000081C241712800?608003166H000000000?000000000?000000000?000000000? +6I1954195C000000081D241713800?108003128C000000000?000000000?000000000?000000000? +6I1954195C000000081E241714800?300005172G000000000?000000000?000000000?000000000? +6I1954195C000000081F241715800?601618142F000000000?000000000?000000000?000000000? +6I1954195C000000081G241716800?300001172C000000000?000000000?000000000?000000000? +6I1954195C000000081H241717800?350001127C000000000?000000000?000000000?000000000? +6I1954195C000000081I241718800?350002129C000000000?000000000?000000000?000000000? +6I1954195C000000082?241719800?161024132I000000000?000000000?000000000?000000000? +6I1954195C000000082A241720800?441383172D000000000?000000000?000000000?000000000? +6I1954195C000000082B241721800?691526157I000000000?000000000?000000000?000000000? +6I1954195C000000082C241722800?350002137I000000000?000000000?000000000?000000000? +6I1954195C000000082D241723800?461476174A000000000?000000000?000000000?000000000? +6I1954195C000000082E241724800?201285128H000000000?000000000?000000000?000000000? +6I1954195C000000082F241725800?461286128G000000000?000000000?000000000?000000000? +6I1954195C000000082G241726800?191285164?000000000?000000000?000000000?000000000? +6I1954195C000000082H241727800?461682128B000000000?000000000?000000000?000000000? +6I1954195C000000082I241728800?101534129?000000000?000000000?000000000?000000000? +6I1954195C000000083?241729800?691732173E000000000?000000000?000000000?000000000? +6I1954195C000000083A241730800?608003138G000000000?000000000?000000000?000000000? +6I1954195C000000083B241731800?054041950?000000000?000000000?000000000?000000000? +6I1954195C000000083C241732800?350002144E000000000?000000000?000000000?000000000? +6I1954195C000000083D241733800?601291134G000000000?000000000?000000000?000000000? +6I1954195C000000083E241734800?608003139D000000000?000000000?000000000?000000000? +6I1954195C000000083F241735800?241539104C000000000?000000000?000000000?000000000? +6I1954195C000000083G241736800?701951132F000000000?000000000?000000000?000000000? +6I1954195C000000083H241737800?360000126C000000000?000000000?000000000?000000000? +6I1954195C000000083I241738800?221293174F000000000?000000000?000000000?000000000? +6I1954195C000000084?241739800?241293150E000000000?000000000?000000000?000000000? +6I1954195C000000084A241740800?211285159?000000000?000000000?000000000?000000000? +6I1954195C000000084B241741800?618003170D000000000?000000000?000000000?000000000? +6I1954195C000000084C241742800?108001174G000000000?000000000?000000000?000000000? +6I1954195C000000084D241743800?350002129I000000000?000000000?000000000?000000000? +6I1954195C000000084E241744800?198001174E000000000?000000000?000000000?000000000? +6I1954195C000000084F241745800?211250171B000000000?000000000?000000000?000000000? +6I1954195C000000084G241746800?151702171?000000000?000000000?000000000?000000000? +6I1954195C000000084H241747800?461705170F000000000?000000000?000000000?000000000? +6I1954195C000000084I241748800?300009172?000000000?000000000?000000000?000000000? +6I1954195C000000085?241749800?671252170H000000000?000000000?000000000?000000000? +6I1954195C000000085A241750800?441854180D000000000?000000000?000000000?000000000? +6I1954195C000000085B241751800?608003180I000000000?000000000?000000000?000000000? +6I1954195C000000085C241752800?441755175F000000000?000000000?000000000?000000000? +6I1954195C000000085D241753800?691906190I000000000?000000000?000000000?000000000? +6I1954195C000000085E241754800?221260176C000000000?000000000?000000000?000000000? +6I1954195C000000085F241755800?601759191C000000000?000000000?000000000?000000000? +6I1954195C000000085G241756800?651293114G000000000?000000000?000000000?000000000? +6I1954195C000000085H241757800?211265176H000000000?000000000?000000000?000000000? +6I1954195C000000085I241758800?000000144E000000000?000000000?000000000?000000000? +6I1954195C000000086?241759800?060000000?000000000?000000000?000000000?000000000? +6I1954195C000000086A241760800?191250178G000000000?000000000?000000000?000000000? +6I1954195C000000086B241761800?241264191G000000000?000000000?000000000?000000000? +6I1954195C000000086C241762800?191250179?000000000?000000000?000000000?000000000? +6I1954195C000000086D241763800?461766191H000000000?000000000?000000000?000000000? +6I1954195C000000086E241764800?641277190B000000000?000000000?000000000?000000000? +6I1954195C000000086F241765800?118002186D000000000?000000000?000000000?000000000? +6I1954195C000000086G241766800?601919192C000000000?000000000?000000000?000000000? +6I1954195C000000086H241767800?608001182C000000000?000000000?000000000?000000000? +6I1954195C000000086I241768800?461771177B000000000?000000000?000000000?000000000? +6I1954195C000000087?241769800?691922177G000000000?000000000?000000000?000000000? +6I1954195C000000087A241770800?691924177G000000000?000000000?000000000?000000000? +6I1954195C000000087B241771800?691774177H000000000?000000000?000000000?000000000? +6I1954195C000000087C241772800?691775177H000000000?000000000?000000000?000000000? +6I1954195C000000087D241773800?350001177I000000000?000000000?000000000?000000000? +6I1954195C000000087E241774800?618003126D000000000?000000000?000000000?000000000? +6I1954195C000000087F241775800?608003126D000000000?000000000?000000000?000000000? +6I1954195C000000087G241776800?181818181H000000000?000000000?000000000?000000000? +6I1954195C000000087H241777800?241285178H000000000?000000000?000000000?000000000? +6I1954195C000000087I241778800?241283178F000000000?000000000?000000000?000000000? +6I1954195C000000088?241779800?441783178D000000000?000000000?000000000?000000000? +6I1954195C000000088A241780800?601293179G000000000?000000000?000000000?000000000? +6I1954195C000000088B241781800?678002178I000000000?000000000?000000000?000000000? +6I1954195C000000088C241782800?101785179A000000000?000000000?000000000?000000000? +6I1954195C000000088D241783800?461937193?000000000?000000000?000000000?000000000? +6I1954195C000000088E241784800?300005189G000000000?000000000?000000000?000000000? +6I1954195C000000088F241785800?200000000?000000000?000000000?000000000?000000000? +6I1954195C000000088G241786800?688002179E000000000?000000000?000000000?000000000? +6I1954195C000000088H241787800?608003114F000000000?000000000?000000000?000000000? +6I1954195C000000088I241788800?350001126?000000000?000000000?000000000?000000000? +6I1954195C000000089?241789800?201293179F000000000?000000000?000000000?000000000? +6I1954195C000000089A241790800?608003179H000000000?000000000?000000000?000000000? +6I1954195C000000089B241791800?191278193B000000000?000000000?000000000?000000000? +6I1954195C000000089C241792800?608003189I000000000?000000000?000000000?000000000? +6I1954195C000000089D241793800?310002191F000000000?000000000?000000000?000000000? +6I1954195C000000089E241794800?572957805A000000000?000000000?000000000?000000000? +6I1954195C000000089F241795800?151568177C000000000?000000000?000000000?000000000? +6I1954195C000000089G241796800?151799175B000000000?000000000?000000000?000000000? +6I1954195C000000089H241797800?111759176D000000000?000000000?000000000?000000000? +6I1954195C000000089I241798800?111855191D000000000?000000000?000000000?000000000? +6I1954195C000000090?241799800?972000000?000000000?000000000?000000000?000000000? +6I1954195C000000090A241800800?000000097?000000000?000000000?000000000?000000000? +6I1954195C000000090B241801800?500000000?000000000?000000000?000000000?000000000? +6I1954195C000000090C241802800?111869189A000000000?000000000?000000000?000000000? +6I1954195C000000090D241803800?191806188B000000000?000000000?000000000?000000000? +6I1954195C000000090E241804800?461808181A000000000?000000000?000000000?000000000? +6I1954195C000000090F241805800?300001186F000000000?000000000?000000000?000000000? +6I1954195C000000090G241806800?230258509C000000000?000000000?000000000?000000000? +6I1954195C000000090H241807800?101274182I000000000?000000000?000000000?000000000? +6I1954195C000000090I241808800?151272187I000000000?000000000?000000000?000000000? +6I1954195C000000091?241809800?111812181G000000000?000000000?000000000?000000000? +6I1954195C000000091A241810800?158001181I000000000?000000000?000000000?000000000? +6I1954195C000000091B241811800?161272187H000000000?000000000?000000000?000000000? +6I1954195C000000091C241812800?002718281H000000000?000000000?000000000?000000000? +6I1954195C000000091D241813800?691816187?000000000?000000000?000000000?000000000? +6I1954195C000000091E241814800?691867187?000000000?000000000?000000000?000000000? +6I1954195C000000091F241815800?101274188A000000000?000000000?000000000?000000000? +6I1954195C000000091G241816800?165000000?000000000?000000000?000000000?000000000? +6I1954195C000000091H241817800?461820187A000000000?000000000?000000000?000000000? +6I1954195C000000091I241818800?241821182D000000000?000000000?000000000?000000000? +6I1954195C000000092?241819800?350004188?000000000?000000000?000000000?000000000? +6I1954195C000000092A241820800?108001182E000000000?000000000?000000000?000000000? +6I1954195C000000092B241821800?101274000?000000000?000000000?000000000?000000000? +6I1954195C000000092C241822800?300001188B000000000?000000000?000000000?000000000? +6I1954195C000000092D241823800?191776189D000000000?000000000?000000000?000000000? +6I1954195C000000092E241824800?300003183C000000000?000000000?000000000?000000000? +6I1954195C000000092F241825800?191828181D000000000?000000000?000000000?000000000? +6I1954195C000000092G241826800?211285188H000000000?000000000?000000000?000000000? +6I1954195C000000092H241827800?191830181C000000000?000000000?000000000?000000000? +6I1954195C000000092I241828800?606530659G000000000?000000000?000000000?000000000? +6I1954195C000000093?241829800?211285183H000000000?000000000?000000000?000000000? +6I1954195C000000093A241830800?192049908F000000000?000000000?000000000?000000000? +6I1954195C000000093B241831800?300002183G000000000?000000000?000000000?000000000? +6I1954195C000000093C241832800?000000005B000000000?000000000?000000000?000000000? +6I1954195C000000093D241833800?151836800B000000000?000000000?000000000?000000000? +6I1954195C000000093E241834800?310002184C000000000?000000000?000000000?000000000? +6I1954195C000000093F241835800?350004184F000000000?000000000?000000000?000000000? +6I1954195C000000093G241836800?600000183A000000000?000000000?000000000?000000000? +6I1954195C000000093H241837800?201291184D000000000?000000000?000000000?000000000? +6I1954195C000000093I241838800?601291184E000000000?000000000?000000000?000000000? +6I1954195C000000094?241839800?191842182F000000000?000000000?000000000?000000000? +6I1954195C000000094A241840800?300008181?000000000?000000000?000000000?000000000? +6I1954195C000000094B241841800?211297180B000000000?000000000?000000000?000000000? +6I1954195C000000094C241842800?434294481I000000000?000000000?000000000?000000000? +6I1954195C000000094D241843800?350002175?000000000?000000000?000000000?000000000? +6I1954195C000000094E241844800?441847139C000000000?000000000?000000000?000000000? +6I1954195C000000094F241845800?111848180C000000000?000000000?000000000?000000000? +6I1954195C000000094G241846800?441849144E000000000?000000000?000000000?000000000? +6I1954195C000000094H241847800?461393175A000000000?000000000?000000000?000000000? +6I1954195C000000094I241848800?500000000?000000000?000000000?000000000?000000000? +6I1954195C000000095?241849800?360000186B000000000?000000000?000000000?000000000? +6I1954195C000000095A241850800?101855185I000000000?000000000?000000000?000000000? +6I1954195C000000095B241851800?101856186A000000000?000000000?000000000?000000000? +6I1954195C000000095C241852800?666666666F000000000?000000000?000000000?000000000? +6I1954195C000000095D241853800?400000000?000000000?000000000?000000000?000000000? +6I1954195C000000095E241854800?300001186C000000000?000000000?000000000?000000000? +6I1954195C000000095F241855800?285714285G000000000?000000000?000000000?000000000? +6I1954195C000000095G241856800?222222222B000000000?000000000?000000000?000000000? +6I1954195C000000095H241857800?191264180E000000000?000000000?000000000?000000000? +6I1954195C000000095I241858800?191264188I000000000?000000000?000000000?000000000? +6I1954195C000000096?241859800?191264179B000000000?000000000?000000000?000000000? +6I1954195C000000096A241860800?211264176G000000000?000000000?000000000?000000000? +6I1954195C000000096B241861800?191264189?000000000?000000000?000000000?000000000? +6I1954195C000000096C241862800?691865186H000000000?000000000?000000000?000000000? +6I1954195C000000096D241863800?461872187D000000000?000000000?000000000?000000000? +6I1954195C000000096E241864800?101518128C000000000?000000000?000000000?000000000? +6I1954195C000000096F241865800?000000000?000000000?000000000?000000000?000000000? +6I1954195C000000096G241866800?101869187C000000000?000000000?000000000?000000000? +6I1954195C000000096H241867800?050000000?000000000?000000000?000000000?000000000? +6I1954195C000000096I241868800?231272187E000000000?000000000?000000000?000000000? +6I1954195C000000097?241869800?200000000?000000000?000000000?000000000?000000000? +6I1954195C000000097A241870800?241274187G000000000?000000000?000000000?000000000? +6I1954195C000000097B241871800?108001182G000000000?000000000?000000000?000000000? +6I1954195C000000097C241872800?161896180D000000000?000000000?000000000?000000000? +6I1954195C000000097D241873800?608003188D000000000?000000000?000000000?000000000? +6I1954195C000000097E241874800?151896180D000000000?000000000?000000000?000000000? +6I1954195C000000097F241875800?658003183D000000000?000000000?000000000?000000000? +6I1954195C000000097G241876800?608002188E000000000?000000000?000000000?000000000? +6I1954195C000000097H241877800?350002188C000000000?000000000?000000000?000000000? +6I1954195C000000097I241878800?151832188G000000000?000000000?000000000?000000000? +6I1954195C000000098?241879800?161832188G000000000?000000000?000000000?000000000? +6I1954195C000000098A241880800?441835189C000000000?000000000?000000000?000000000? +6I1954195C000000098B241881800?608003183I000000000?000000000?000000000?000000000? +6I1954195C000000098C241882800?691285184?000000000?000000000?000000000?000000000? +6I1954195C000000098D241883800?101886184A000000000?000000000?000000000?000000000? +6I1954195C000000098E241884800?191289182A000000000?000000000?000000000?000000000? +6I1954195C000000098F241885800?241289189B000000000?000000000?000000000?000000000? +6I1954195C000000098G241886800?100000000?000000000?000000000?000000000?000000000? +6I1954195C000000098H241887800?608002144E000000000?000000000?000000000?000000000? +6I1954195C000000098I241888800?601291189E000000000?000000000?000000000?000000000? +6I1954195C000000099?241889800?608003189H000000000?000000000?000000000?000000000? +6I1954195C000000099A241890800?608003185?000000000?000000000?000000000?000000000? +6I1954195C000000099B241891800?641297187F000000000?000000000?000000000?000000000? +6I1954195C000000099C241892800?198001186?000000000?000000000?000000000?000000000? +6I1954195C000000099D241893800?010000183E000000000?000000000?000000000?000000000? +6I1954195C000000099E241894800?608003185A000000000?000000000?000000000?000000000? +6I1954195C000000099F241895800?111848182B000000000?000000000?000000000?000000000? +6I1954195C000000099G241896800?000000000A000000000?000000000?000000000?000000000? +6I1954195C000000099H241897800?691901175D000000000?000000000?000000000?000000000? +6I1954195C000000099I241898800?101852185G000000000?000000000?000000000?000000000? +6I1954195C000000100?241899800?101853185H000000000?000000000?000000000?000000000? +6I1954195C000000100A241900800?300002175G000000000?000000000?000000000?000000000? +6I1954195C000000100B241901800?300000178A000000000?000000000?000000000?000000000? +6I1954195C000000100C241902800?691905190I000000000?000000000?000000000?000000000? +6I1954195C000000100D241903800?618003191A000000000?000000000?000000000?000000000? +6I1954195C000000100E241904800?300001191B000000000?000000000?000000000?000000000? +6I1954195C000000100F241905800?101731128E000000000?000000000?000000000?000000000? +6I1954195C000000100G241906800?101580128E000000000?000000000?000000000?000000000? +6I1954195C000000100H241907800?191250190D000000000?000000000?000000000?000000000? +6I1954195C000000100I241908800?211283193F000000000?000000000?000000000?000000000? +6I1954195C000000101?241909800?241267157?000000000?000000000?000000000?000000000? +6I1954195C000000101A241910800?350001193D000000000?000000000?000000000?000000000? +6I1954195C000000101B241911800?191776194?000000000?000000000?000000000?000000000? +6I1954195C000000101C241912800?608003178B000000000?000000000?000000000?000000000? +6I1954195C000000101D241913800?191293192G000000000?000000000?000000000?000000000? +6I1954195C000000101E241914800?191250193H000000000?000000000?000000000?000000000? +6I1954195C000000101F241915800?350002193E000000000?000000000?000000000?000000000? +6I1954195C000000101G241916800?350001193E000000000?000000000?000000000?000000000? +6I1954195C000000101H241917800?300003192E000000000?000000000?000000000?000000000? +6I1954195C000000101I241918800?161921192F000000000?000000000?000000000?000000000? +6I1954195C000000102?241919800?000100000?000000000?000000000?000000000?000000000? +6I1954195C000000102A241920800?211277178?000000000?000000000?000000000?000000000? +6I1954195C000000102B241921800?000003000?000000000?000000000?000000000?000000000? +6I1954195C000000102C241922800?658003191?000000000?000000000?000000000?000000000? +6I1954195C000000102D241923800?641265177?000000000?000000000?000000000?000000000? +6I1954195C000000102E241924800?000008190D000000000?000000000?000000000?000000000? +6I1954195C000000102F241925800?151928800B000000000?000000000?000000000?000000000? +6I1954195C000000102G241926800?461929193?000000000?000000000?000000000?000000000? +6I1954195C000000102H241927800?350001193C000000000?000000000?000000000?000000000? +6I1954195C000000102I241928800?600000194A000000000?000000000?000000000?000000000? +6I1954195C000000103?241929800?651265176I000000000?000000000?000000000?000000000? +6I1954195C000000103A241930800?601297126D000000000?000000000?000000000?000000000? +6I1954195C000000103B241931800?608002193I000000000?000000000?000000000?000000000? +6I1954195C000000103C241932800?608003114C000000000?000000000?000000000?000000000? +6I1954195C000000103D241933800?101665192?000000000?000000000?000000000?000000000? +6I1954195C000000103E241934800?441942179C000000000?000000000?000000000?000000000? +6I1954195C000000103F241935800?608002194D000000000?000000000?000000000?000000000? +6I1954195C000000103G241936800?601794165E000000000?000000000?000000000?000000000? +6I1954195C000000103H241937800?651701191?000000000?000000000?000000000?000000000? +6I1954195C000000103I241938800?608003114H000000000?000000000?000000000?000000000? +6I1954195C000000104?241939800?198001194E000000000?000000000?000000000?000000000? +6I1954195C000000104A241940800?608003114I000000000?000000000?000000000?000000000? +6I1954195C000000104B241941800?211297190?000000000?000000000?000000000?000000000? +6I1954195C000000104C241942800?310003191E000000000?000000000?000000000?000000000? +6I1954195C000000104D241943800?151701191?000000000?000000000?000000000?000000000? +6I1954195C000000104E241944800?360000176E000000000?000000000?000000000?000000000? +6I1954195C000000104F241945800?211250190C000000000?000000000?000000000?000000000? +6I1954195C000000104G241946800?101978196E000000000?000000000?000000000?000000000? +6I1954195C000000104H241947800?601977194F000000000?000000000?000000000?000000000? +6I1954195C000000104I241948800?101963197?000000000?000000000?000000000?000000000? +6I1954195C000000105?241949800?441973109E000000000?000000000?000000000?000000000? +6I1954195C000000105A241950800?151977198G000000000?000000000?000000000?000000000? +6I1954195C000000105B241951800?000000000?000000000?000000000?000000000?000000000? +6I1954195C000000105C241952800?000000000?000000000?000000000?000000000?000000000? +6I1954195C000000105D241953800?000000000?000000000?000000000?000000000?000000000? +6I1954195C000000105E241954800?000000000?000000000?000000000?000000000?000000000? +6I1954195C000000105F241955800?000000000?000000000?000000000?000000000?000000000? +6I1954195C000000105G241956800?000000000?000000000?000000000?000000000?000000000? +6I1954195C000000105H241957800?000000000?000000000?000000000?000000000?000000000? +6I1954195C000000105I241958800?000000000?000000000?000000000?000000000?000000000? +6I1954195C000000106?241959800?000000000?000000000?000000000?000000000?000000000? +6I1954195C000000106A241960800?000000000?000000000?000000000?000000000?000000000? +6I1954195C000000106B241961800?608001196H000000000?000000000?000000000?000000000? +6I1954195C000000106C241962800?111978199I000000000?000000000?000000000?000000000? +6I1954195C000000106D241963800?241978199A000000000?000000000?000000000?000000000? +6I1954195C000000106E241964800?211977198I000000000?000000000?000000000?000000000? +6I1954195C000000106F241965800?211977196F000000000?000000000?000000000?000000000? +6I1954195C000000106G241966800?601969197C000000000?000000000?000000000?000000000? +6I1954195C000000106H241967800?211986199G000000000?000000000?000000000?000000000? +6I1954195C000000106I241968800?300004194H000000000?000000000?000000000?000000000? +6I1954195C000000107?241969800?000005000?000000000?000000000?000000000?000000000? +6I1954195C000000107A241970800?151974195?000000000?000000000?000000000?000000000? +6I1954195C000000107B241971800?101024196G000000000?000000000?000000000?000000000? +6I1954195C000000107C241972800?111977196B000000000?000000000?000000000?000000000? +6I1954195C000000107D241973800?211978198H000000000?000000000?000000000?000000000? +6I1954195C000000107E241974800?690000800C000000000?000000000?000000000?000000000? +6I1954195C000000107F241975800?108001194I000000000?000000000?000000000?000000000? +6I1954195C000000107G241976800?300003101I000000000?000000000?000000000?000000000? +6I1954195C000000107H241977800?691954195L000000000?000000000?000000000?000000000? +6I1954195C000000107I241978800?000000107H000000000?000000000?000000000?000000000? +6I1954195C000000108?241979800?241978800?000000000?000000000?000000000?000000000? +6I1954195C000000108A241980800?241978800?000000000?000000000?000000000?000000000? +6I1954195C000000108B241981800?000000000?000000000?000000000?000000000?000000000? +6I1954195C000000108C241982800?000000000?000000000?000000000?000000000?000000000? +6I1954195C000000108D241983800?000000000?000000000?000000000?000000000?000000000? +6I1954195C000000108E241984800?000000000?000000000?000000000?000000000?000000000? +6I1954195C000000108F241985800?000000000?000000000?000000000?000000000?000000000? +6I1954195C000000108G241986800?000000000?000000000?000000000?000000000?000000000? +6I1954195C000000108H241987800?101990800B000000000?000000000?000000000?000000000? +6I1954195C000000108I241988800?601291197B000000000?000000000?000000000?000000000? +6I1954195C000000109?241989800?118002199H000000000?000000000?000000000?000000000? +6I1954195C000000109A241990800?000000999I000000000?000000000?000000000?000000000? +6I1954195C000000109B241991800?601986197A000000000?000000000?000000000?000000000? +6I1954195C000000109C241992800?151024198G000000000?000000000?000000000?000000000? +6I1954195C000000109D241993800?151024198G000000000?000000000?000000000?000000000? +6I1954195C000000109E241994800?151024198G000000000?000000000?000000000?000000000? +6I1954195C000000109F241995800?151024198G000000000?000000000?000000000?000000000? +6I1954195C000000109G241996800?151024198G000000000?000000000?000000000?000000000? +6I1954195C000000109H241997800?711977194G000000000?000000000?000000000?000000000? +6I1954195C000000109I241998800?461966131E000000000?000000000?000000000?000000000? +6I1954195C000000110?241999800?461975196A000000000?000000000?000000000?000000000? diff --git a/I650/sw/is_example_1_src.txt b/I650/sw/is_example_1_src.txt index 49993d8d..2bd0acdf 100644 --- a/I650/sw/is_example_1_src.txt +++ b/I650/sw/is_example_1_src.txt @@ -5,11 +5,11 @@ uses two extra o2 codes: o2=800 (set lbox) and o2=453 (tr zero) warning: comments are allowed past column 28 but some characters - are forbidden: uppercase letters, question mark, exclamation, number char, - ampersand char. if these chars are used, the line (i.e. the card for this - line) will be interpreted as a load card, and program will crash on trying - to execute it. + are forbidden: uppercase letters, question mark, if these chars + are used, the line (i.e. the card for this line) will be interpreted + as a load card, and interpreter will crash on trying to execute it. + interpretive system syntax c-like equivalent sytax 100 -9 000 201 400 initp -move i1 prime initp: prime[c]=1 101 +0 001 050 100 loop c 050 initp c++; if c<50 goto initp @@ -30,7 +30,7 @@ 111 +1 300 301 301 loop2 add num mult mult loop2: mult=mult+num 112 +2 301 203 000 sub mult i50 last - 113 +0 201 103 114 tr sgn loop1 cont if mult >= 50 goto loop1 (go to b if +, go to c if -) + 113 +0 201 103 114 tr sgn loop1 cont if mult >= 50 goto loop1 // tr to b if +, go to c if - 114 +0 800 003 301 set lbox c mult c=mult 115 -9 000 200 400 -move zero prime prime[c]=0 @@ -40,14 +40,14 @@ 120 +9 000 201 300 loope move i1 num loope: num=1 121 +0 800 002 202 set lbox b i2 b=2 - 122 +1 300 201 300 prt1 add num i1 num prt1: num++ + 122 +1 300 201 300 prt1 add num i1 num prt1: num++ 123 -9 000 400 000 -move prime last last=prime[b] 124 +0 453 127 126 tr zero prt2 cont if last = 0 goto prt2 126 +0 410 300 300 pch num num punch num - 127 +0 010 050 122 prt2 loop b 050 prt1 prt2: b++; if b<50 goto prt1 + 127 +0 010 050 122 prt2 loop b 050 prt1 prt2: b++; if b<50 goto prt1 128 +0 000 000 000 unc stop end diff --git a/I650/sw/is_run.ini b/I650/sw/is_run.ini index 03f0522f..7e1de297 100644 --- a/I650/sw/is_run.ini +++ b/I650/sw/is_run.ini @@ -6,14 +6,14 @@ ; params: %1 source card deck to run with Floating Point Interpretive System (IS) -; %2 input card deck (if empty, do not attach input card +; %2 input card deck (if empty, do not attach input card) -; Load IS deck into (1 word per card format), but does not execute it +; Load is main deck into drum (1 word per card format), but does not execute it set cpu 2k echo *** -echo *** load is deck into drum +echo *** Load is main deck into drum echo *** att cdr1 -q is.dck @@ -22,12 +22,10 @@ d csw 7019519999 d ar 8000 go -; now put IS program cards in reader and load them +; Now put is program in reader and read it -! copy %1 deck_in.dck > nul -if "%2" == "" goto run -! copy %1 + %2 deck_in.dck > nul -:run +carddeck -q join %1 as deck_in.dck +if "%2" != "" carddeck -q join deck_in.dck %2 as deck_in.dck att cdr1 deck_in.dck set cdr1 wiring=is @@ -37,7 +35,7 @@ set cdp1 echo, print, wiring=is att cdp0 -n -q print.txt echo *** -echo *** load and run IS program +echo *** Read and run is program echo *** d csw 7019511333 diff --git a/I650/sw/it_compiler.dck b/I650/sw/it_compiler.dck new file mode 100644 index 00000000..2d6f46ba --- /dev/null +++ b/I650/sw/it_compiler.dck @@ -0,0 +1,1738 @@ +6I1954195C 0000241999800?7000510351 startrd1 0051 28-read +6I1954195C 0000240351800?6003540359 raucntrl 29- +6I1954195C 0000240359800?2119860339 stuw0010 30-header card +6I1954195C 0000240339800?6519570361 rals 31- +6I1954195C 0000240361800?6903640367 ldd sr3 32- +6I1954195C 0000240364800?6905170370 ldd sr3ed 33- +6I1954195C 0000240517800?6005200025 rausix 34-absolute +6I1954195C 0000240025800?2103830336 stua0001ps0 35-value count +6I1954195C 0000240336800?2000410144 ps0 stlpsi 36-clear +6I1954195C 0000240144800?6901470350 lddtau1 37- +6I1954195C 0000240350800?2419601234 stdtau ps 38- +6I1954195C 0000241234800?6019590363 ps rauffbit 39-check last +6I1954195C 0000240363800?4405671111 nzuend reada 40-statement +6I1954195C 0000241111800?7000510651 readard1 0051 41-first read +6I1954195C 0000240651800?6500570511 ral 0057 42-store stmnt +6I1954195C 0000240511800?2000000353 stl 0000 43-number +6I1954195C 0000240353800?6503560661 ralonet 44-tally and +6I1954195C 0000240661800?2003650368 stlflag 45-flag set to +6I1954195C 0000240368800?2003730026 stltallyps1a 46-one +6I1954195C 0000240650800?7000510026 ps1 rd1 0051ps1a 47-next read +6I1954195C 0000240026800?6000290333 ps1a raumax 48-alarm if +6I1954195C 0000240333800?1103730027 suptally 49-tally is +6I1954195C 0000240027800?4403310332 nzu larm 50-maximum +6I1954195C 0000240331800?6503730527 raltally 51-kk xxxx yyyy +6I1954195C 0000240527800?1500300335 alostore 52-is +6I1954195C 0000240335800?6903380341 lddps2 sr1 53-0600510000 +6I1954195C 0000240338800?6503730627 ps2 raltally 54-tally plus +6I1954195C 0000240627800?1503300485 alosixt 55-six is tally +6I1954195C 0000240485800?2003730526 stltally 56-gamma equals +6I1954195C 0000240526800?6000560711 rau 0056 57-word6 times +6I1954195C 0000240711800?3000020667 srt 0002ps2b 58-01 +6I1954195C 0000240667800?2103720525 ps2b stugamma 59-l equals end +6I1954195C 0000240525800?2005290532 stll 60-symbol +6I1954195C 0000240532800?6080020491 rau 8002 61- +6I1954195C 0000240491800?1103440149 suprsl 62-recycle if l +6I1954195C 0000240149800?4406500504 nzups1 63-is not f +6I1954195C 0000240504800?6503570761 ralffty1 64-initialize u +6I1954195C 0000240761800?2005150518 stlu 65-if l is f +6I1954195C 0000240518800?6503730677 raltally 66-tally minus +6I1954195C 0000240677800?1603560811 sloonet 67-one +6I1954195C 0000240811800?3500040371 slt 0004 68-tally in dta +6I1954195C 0000240371800?2003730626 stltally 69-quota equals +6I1954195C 0000240626800?2005310334 stlquotaps2a 70-tally +6I1954195C 0000240334800?2104880541 ps2a stuv1 71- +6I1954195C 0000240541800?2101460199 stuk 72-preset all +6I1954195C 0000240199800?2100420145 stut0001 73-pertinent +6I1954195C 0000240145800?2107000653 stunu 74-counters +6I1954195C 0000240653800?2119770530 stuj0001 75-to zero +6I1954195C 0000240530800?2104840337 stun 76- +6I1954195C 0000240337800?2103420345 stunbar 77- +6I1954195C 0000240345800?2107500703 stumu 78- +6I1954195C 0000240703800?2103580861 stuarith 79- +6I1954195C 0000240861800?2103660369 stuabval 80- +6I1954195C 0000240369800?2105240727 stuopsgn 81- +6I1954195C 0000240727800?2106320535 sturelat 82- +6I1954195C 0000240535800?2103400343 stur ps3 83-r equals 0 +6I1954195C 0000240343800?6003720777 ps3 raugamma 84- +6I1954195C 0000240777800?4406310682 nzu ps5 85-out if gamma +6I1954195C 0000240631800?3000020487 srt 0002 86-is zero +6I1954195C 0000240487800?2103720625 stugamma 87-fetch next +6I1954195C 0000240625800?6080020483 rau 8002 88-symbol s +6I1954195C 0000240483800?4405370343 nzu ps3 89-recycle if s +6I1954195C 0000240537800?1505290533 alol 90-zero if not +6I1954195C 0000240533800?2003400493 stlr ps3d 91-r equals l +6I1954195C 0000240493800?2105290732 ps3d stul ps3a 92-l equal ds +6I1954195C 0000240732800?6580030489 ps3a ral 8003 93-if l equals +6I1954195C 0000240489800?3000080507 srt 0008 94-an integer +6I1954195C 0000240507800?1603600565 sloninty 95-set intgr +6I1954195C 0000240565800?4606680519 bmips3g ps3c 96-to l and l +6I1954195C 0000240668800?6005290633 ps3g raul ps3b 97-equal to 99 +6I1954195C 0000240519800?6005290683 ps3c raul 98-then return +6I1954195C 0000240683800?2105380641 stuintgr 99-to ps3b +6I1954195C 0000240641800?6003600665 rauninty 100- +6I1954195C 0000240665800?3000010521 srt 0001 101- +6I1954195C 0000240521800?1003600715 aupnintyps3ba 102- +6I1954195C 0000240633800?3000080701 ps3b srt 0008 103-generate +6I1954195C 0000240701800?1503400495 alor 104-entry +6I1954195C 0000240495800?3000040355 srt 0004 105-to symbol +6I1954195C 0000240355800?2005090362 stltemp1 106-pair table +6I1954195C 0000240362800?6507650669 ralps4 107-fetch switch +6I1954195C 0000240669800?6905090512 lddtemp1 108-from table +6I1954195C 0000240512800?8401508002 tlu 0150 8002 109-if switch is +6I1954195C 0000240765800?6000000505 ps4 rau 0000 110-admissable +6I1954195C 0000240505800?1105090513 suptemp1 111-go to +6I1954195C 0000240513800?3000040523 srt 0004 112-generators +6I1954195C 0000240523800?4408270028 nzualarm 113-alarm if not +6I1954195C 0000240028800?3500048003 slt 0004 8003 114- +6I1954195C 0000240682800?6003730877 ps5 rautally 115-decrement +6I1954195C 0000240877800?1106300635 supone ps5a 116-tally if +6I1954195C 0000240635800?2103730676 ps5a stutally 117-gamma zero +6I1954195C 0000240676800?4406290680 nzu ps10 118-out if tally +6I1954195C 0000240629800?1007828003 aupps6 8003 119-is zero if +6I1954195C 0000240782800?6000000655 ps6 rau 0000 120-not gamma is +6I1954195C 0000240655800?2103720343 stugammaps3 121-next word +6I1954195C 0000240800800?2407530506 ps7 stdps8 122-store +6I1954195C 0000240506800?4606590510 bmi ps7a 123-generated +6I1954195C 0000240659800?1605150719 slou ps7b 124-indtruction +6I1954195C 0000240510800?1505150719 ps7a alou ps7b 125-and +6I1954195C 0000240719800?6905220675 ps7b lddps7c 126-increment u +6I1954195C 0000240675800?2205228001 sdaps7c 8001 127-by one +6I1954195C 0000240522800?2100000803 ps7c stu 0000 128-and return +6I1954195C 0000240803800?6505150769 ralu 129-to generator +6I1954195C 0000240769800?1506300685 aloone 130-if storage +6I1954195C 0000240685800?2005150718 stlu 131-not exceeded +6I1954195C 0000240718800?1606710725 slomaxu 132-otherwise +6I1954195C 0000240725800?4607530679 bmips8 133-alarm +6I1954195C 0000240679800?6508320332 raloone larm 134- +6I1954195C 0000240753800?0100000753 ps8 hlt 0000ps8 135- +6I1954195C 0000240680800?6505290733 ps10 rall 136-if tally is +6I1954195C 0000240733800?2003400543 stlr 137-zero set lr +6I1954195C 0000240543800?6003600715 raunintyps3ba 138-equal to 90l +6I1954195C 0000240715800?3500080783 ps3baslt 0008 139-and enter +6I1954195C 0000240783800?2105290633 stul ps3b 140-gen table +6I1954195C 0000240850800?6008530657 ps12 rautemp9 141-from end of +6I1954195C 0000240657800?2119800833 stuw0004 142-statement +6I1954195C 0000240833800?2019810534 stlw0005 143-generators +6I1954195C 0000240534800?6000000705 rau 0000 144- +6I1954195C 0000240705800?6905080911 ldd stnon 145-form entry +6I1954195C 0000240508800?1000350539 aupd0004 146-for +6I1954195C 0000240539800?2119770730 stuw0001 147-statement +6I1954195C 0000240730800?6508830637 ralnono 148-dictionary +6I1954195C 0000240637800?3500040347 slt 0004 149- +6I1954195C 0000240347800?2019780681 stlw0002 150- +6I1954195C 0000240681800?6006340639 raunonon 151- +6I1954195C 0000240639800?2019820735 stlw0006 152- +6I1954195C 0000240735800?2119790882 stuw0003 153- +6I1954195C 0000240882800?6907850638 ldd ps133 154- +6I1954195C 0000240785800?6008530707 rautemp9 155- +6I1954195C 0000240707800?2119770780 stuw0001 156- +6I1954195C 0000240780800?6503570961 ralffty1 157-ubar equals +6I1954195C 0000240961800?2005160819 stlubar 158-fiftyone +6I1954195C 0000240819800?1619580663 slopc 159-alarm if +6I1954195C 0000240663800?1605150869 slou 160-storage +6I1954195C 0000240869800?1603830687 sloa0001 161-exceeded +6I1954195C 0000240687800?1519561011 alo 1956 162-but +6I1954195C 0000241011800?4608150514 bmi ps13c 163-with +6I1954195C 0000240815800?6006010755 rauo0002 164-option of +6I1954195C 0000240755800?3000060919 srt 0006 165-final +6I1954195C 0000240919800?2019780731 stlw0002 166-printout +6I1954195C 0000240731800?2019590662 stlffbit 167- +6I1954195C 0000240662800?6908650638 ldd ps133 168- +6I1954195C 0000240865800?6507680332 ralotwo larm 169- +6I1954195C 0000240514800?6503730927 ps13craltally 170- +6I1954195C 0000240927800?1605310835 sloquota 171- +6I1954195C 0000240835800?4506880689 nze ps13a 172-store +6I1954195C 0000240688800?1580010545 alo 8001 173-original +6I1954195C 0000240545800?1501480903 alotwo 174-statement +6I1954195C 0000240903800?2003730726 stltally 175-as +6I1954195C 0000240726800?1507290933 alops13b 176-comments +6I1954195C 0000240933800?6904860341 lddps14 sr1 177- +6I1954195C 0000240689800?2119810684 ps13astuw0005 178- +6I1954195C 0000240684800?2419820486 stdw0006ps14 179- +6I1954195C 0000240729800?0199991981 ps13b 01 9999w0005 180- +6I1954195C 0000240638800?2406910494 ps133stdfini 181- +6I1954195C 0000240494800?6519580713 ralpc 182-increment +6I1954195C 0000240713800?1506300935 aloone 183-program +6I1954195C 0000240935800?2019581061 stlpc 184-counter +6I1954195C 0000241061800?2019850738 stlw0009 185- +6I1954195C 0000240738800?7119770977 pchw0001 186-and +6I1954195C 0000240977800?2119770691 stuw0001fini 187-punch +6I1954195C 0000240486800?6005160721 ps14 rauubar 188-fetch word +6I1954195C 0000240721800?1006248003 aupps14a 8003 189-in ubar +6I1954195C 0000240624800?6500000805 ps14aral 0000 190- +6I1954195C 0000240805800?2007090712 stltemp3 191- +6I1954195C 0000240712800?4609150566 bmi ps16 192-if word is +6I1954195C 0000240915800?6505160771 ralubar 193-negative +6I1954195C 0000240771800?1603571161 sloffty1ps15 194-assign it +6I1954195C 0000241161800?3000040821 ps15 srt 0004 195-a symbolic +6I1954195C 0000240821800?6906740367 lddps15asr3 196-location +6I1954195C 0000240674800?1008530757 ps15aauptemp9 197- +6I1954195C 0000240757800?2119770830 stuw0001 198- +6I1954195C 0000240830800?6707090566 ramtemp3ps16 199- +6I1954195C 0000240566800?3500020673 ps16 slt 0002 200- +6I1954195C 0000240673800?2007090762 stltemp3 201-extract +6I1954195C 0000240762800?6080030969 rau 8003 202-operation +6I1954195C 0000240969800?3500060983 slt 0006 203-from word +6I1954195C 0000240983800?2107880741 stutemp4 204- +6I1954195C 0000240741800?1505440249 alops18 205-fetch op +6I1954195C 0000240249800?2105090812 stutemp1 206-mnemonic +6I1954195C 0000240812800?8406008002 tluo0001 8002 207-from table +6I1954195C 0000240544800?6000000855 ps18 rau 0000 208-and check +6I1954195C 0000240855800?1107880593 suptemp4 209-for admiss +6I1954195C 0000240593800?3000060807 srt 0006 210-store op if +6I1954195C 0000240807800?4408270862 nzualarm 211-admissable +6I1954195C 0000240862800?2019780781 stlw0002ps27 212- +6I1954195C 0000240781800?6507090763 ps27 raltemp3 213-extract +6I1954195C 0000240763800?3500040723 slt 0004 214-data address +6I1954195C 0000240723800?2007090912 stltemp3 215-from word +6I1954195C 0000240912800?6080031019 rau 8003 216-out if d is +6I1954195C 0000241019800?4407730724 nzu ps19 217-next loc +6I1954195C 0000240773800?3000010779 srt 0001 218-out if d is +6I1954195C 0000240779800?4410330734 nzups18a 219-not accum +6I1954195C 0000240734800?6007370724 rauaccumps19 220- +6I1954195C 0000241033800?3000020739 ps18asrt 0002 221-out if d not +6I1954195C 0000240739800?4406430594 nzups20 222-addrss withn +6I1954195C 0000240594800?3000030953 srt 0003 223-statement +6I1954195C 0000240953800?1603571211 sloffty1 224-generate +6I1954195C 0000241211800?3000040871 srt 0004 225-mnemonic +6I1954195C 0000240871800?6907740367 ldd sr3 226-if d is in +6I1954195C 0000240774800?1008530724 auptemp9ps19 227-statement +6I1954195C 0000240643800?2005090962 ps20 stltemp1 228-generate +6I1954195C 0000240962800?6080031069 rau 8003 229-mnemonic if +6I1954195C 0000241069800?3500040829 slt 0004 230-d is neithr +6I1954195C 0000240829800?1009328003 aupps23 8003 231-next nor in +6I1954195C 0000240932800?6000310985 ps23 raud 232-statement +6I1954195C 0000240985800?2104900693 stutemp2 233- +6I1954195C 0000240693800?1100400595 supd0009 234-out if d is +6I1954195C 0000240595800?4402990900 nzups23a 235-not extnsn +6I1954195C 0000240900800?6505090813 raltemp1 236-if extension +6I1954195C 0000240813800?3000070879 srt 0007 237-generate +6I1954195C 0000240879800?6909820367 ldd sr3 238-mnemonic +6I1954195C 0000240982800?1000400724 aupd0009ps19 239- +6I1954195C 0000240299800?6005090863 ps23arautemp1 240- +6I1954195C 0000240863800?3000070929 srt 0007 241-gen numeric +6I1954195C 0000240929800?6910321035 ldd ps100 242-tag if data +6I1954195C 0000241032800?4505360787 nze ps23b 243-is not +6I1954195C 0000240536800?1006340787 aupnononps23b 244-extension +6I1954195C 0000240787800?1004900724 ps23bauptemp2ps19 245- +6I1954195C 0000240724800?2119801083 ps19 stuw0004 246- +6I1954195C 0000241083800?6103651119 rsuflag ps25 247-negative +6I1954195C 0000240365800?1000000000 flag 10 0000 0000 248-flag if data +6I1954195C 0000241119800?2103650818 ps25 stuflag 249-positive +6I1954195C 0000240818800?4609210672 bmi ps26 250-flag if inst +6I1954195C 0000240921800?6019801085 rauw0004 251-recycle +6I1954195C 0000241085800?2119790781 stuw0003ps27 252-if d if not +6I1954195C 0000240672800?6005160971 ps26 rauubar 253-punch and +6I1954195C 0000240971800?1006301135 aupone 254-recycle to +6I1954195C 0000241135800?2105161169 stuubar 255-ps13c if +6I1954195C 0000241169800?1105151219 supu 256-udar not +6I1954195C 0000241219800?4408230824 nzu ps28 257-equal to +6I1954195C 0000240823800?6905140638 lddps13cps133 258-u +6I1954195C 0000240824800?6519571261 ps28 rals 259-s equals s +6I1954195C 0000241261800?1503561311 aloonet 260-plus one +6I1954195C 0000241311800?2019570660 stls 261-and form +6I1954195C 0000240660800?6909130367 ldd sr3 262-next locatn +6I1954195C 0000240913800?6906660370 ldd sr3ed 263- +6I1954195C 0000240666800?6019791133 rauw0003 264- +6I1954195C 0000241133800?4408370838 nzups30 ps29 265- +6I1954195C 0000240837800?6019801185 ps30 rauw0004 266- +6I1954195C 0000241185800?4407890540 nzups32 ps31 267- +6I1954195C 0000240789800?6919600638 ps32 lddtau ps133 268- +6I1954195C 0000240838800?6008530857 ps29 rautemp9 269- +6I1954195C 0000240857800?2119790837 stuw0003ps30 270- +6I1954195C 0000240540800?6008530907 ps31 rautemp9 271- +6I1954195C 0000240907800?2119800789 stuw0004ps32 272- +6I1954195C 0000241960800?0000001234 tau nop 0000ps 273- +6I1954195C 0000240147800?0000001234 tau1 nop 0000ps 274- +6I1954195C 0000240341800?2406440497 sr1 stdexit sr1e 275- +6I1954195C 0000240950800?1610030497 sr1a sloincr sr1e 276- +6I1954195C 0000240497800?3500021053 sr1e slt 0002 277- +6I1954195C 0000241053800?4409570644 nzu exit 278- +6I1954195C 0000240957800?3500020963 slt 0002 279-sr1 blocks +6I1954195C 0000240963800?6907161269 lddsr1d 280-kk consec +6I1954195C 0000241269800?2207161319 sdasr1d 281-locations +6I1954195C 0000241319800?3000040979 srt 0004 282-from xxxx to +6I1954195C 0000240979800?6910821235 lddsr1l 283-yyyy +6I1954195C 0000241235800?2210828001 sdasr1l 8001 284- +6I1954195C 0000240716800?2400000950 sr1d std 0000sr1a 285- +6I1954195C 0000241082800?6900000716 sr1l ldd 0000sr1d 286- +6I1954195C 0000241003800?0099989999 incr 00 9998 9999 287- +6I1954195C 0000240367800?2406440547 sr3 stdexit 288-sr3 converts +6I1954195C 0000240547800?1410001050 divtwsix 289-three digit +6I1954195C 0000241050800?2005091012 stltemp1 290-numbers into +6I1954195C 0000241012800?6909650868 lddsr3b sr3a 291-two letter +6I1954195C 0000240868800?2404900743 sr3a stdtemp2 292-mnemonics +6I1954195C 0000240743800?1003561361 auponet 293- +6I1954195C 0000241361800?3000010717 srt 0001 294- +6I1954195C 0000240717800?4410210722 nzu sr3a1 295- +6I1954195C 0000241021800?1608741029 slonineo 296- +6I1954195C 0000241029800?4411830784 nzu sr3a2 297- +6I1954195C 0000241183800?1506360784 alostl sr3a2 298- +6I1954195C 0000240722800?3500011079 sr3a1slt 0001 299- +6I1954195C 0000241079800?1180010490 sup 8001temp2 300- +6I1954195C 0000240784800?1508741129 sr3a2alonineo 301- +6I1954195C 0000241129800?3500010490 slt 0001temp2 302- +6I1954195C 0000240965800?3000021071 sr3b srt 0002 303- +6I1954195C 0000241071800?1005091013 auptemp1 304- +6I1954195C 0000241013800?6907660868 lddsr3c sr3a 305- +6I1954195C 0000240766800?3500020644 sr3c slt 0002exit 306- +6I1954195C 0000240370800?2406440597 sr3edstdexit 307-generate +6I1954195C 0000240597800?6080030905 rau 8003 308-symbolic +6I1954195C 0000240905800?3500041015 slt 0004 309-location +6I1954195C 0000241015800?1009180873 auplocus 310-for next +6I1954195C 0000240873800?2108530644 stutemp9exit 311-statement +6I1954195C 0000241100800?2406440647 srn stdexit 312-srn forms +6I1954195C 0000240647800?6503581063 ralarith 313-numbers +6I1954195C 0000241063800?4508160767 nzesrn5 314-out if float +6I1954195C 0000240767800?6506700775 ralsrn2 315-ing point +6I1954195C 0000240775800?1607500955 slomu 316-fix asinteg +6I1954195C 0000240955800?1004848002 aupn 8002 317-er if fixed +6I1954195C 0000240670800?3000101027 srn2 srt 0010 318-point +6I1954195C 0000241027800?6080031285 rau 8003srn4 319- +6I1954195C 0000240816800?6507501005 srn5 ralmu 320-floating pt +6I1954195C 0000241005800?1503571411 aloffty1 321-exponent is +6I1954195C 0000241411800?3000041121 srt 0004 322-mu plus +6I1954195C 0000241121800?1503420697 alonbar 323-forty nine +6I1954195C 0000240697800?2005091062 stltemp1 324-plus nbar +6I1954195C 0000241062800?3500080831 slt 0008 325- +6I1954195C 0000240831800?4413350686 nzusrn6 326-mntisa alarm +6I1954195C 0000240686800?6504840839 raln 327- +6I1954195C 0000240839800?3000020645 srt 0002 328-and mantissa +6I1954195C 0000240645800?6080021103 rau 8002 329-is +6I1954195C 0000241103800?4410071285 nzu srn4 330- +6I1954195C 0000241007800?3600001179 sct 0000 331-n to 8 sig +6I1954195C 0000241179800?1005091113 auptemp1 332-nificant fig +6I1954195C 0000241113800?1180021171 sup 8002 333-ures +6I1954195C 0000241171800?6080031285 rau 8003srn4 334- +6I1954195C 0000241335800?6508880332 srn6 ralotreylarm 335-alarm +6I1954195C 0000241285800?2104840644 srn4 stun exit 336- +6I1954195C 0000241150800?2406440747 srac stdexit 337-absolute +6I1954195C 0000240747800?6012001055 raufour 338-constant +6I1954195C 0000241055800?2107101163 stujay sracr 339-routine +6I1954195C 0000241163800?6007101065 sracrraujay 340- +6I1954195C 0000241065800?1103830887 supa0001 341-out if jay +6I1954195C 0000240887800?4407910492 nzu srac3 342-equals abcnt +6I1954195C 0000240791800?6507101115 raljay 343- +6I1954195C 0000241115800?1506301385 aloone 344-incrmnt jay +6I1954195C 0000241385800?2007101213 stljay 345- +6I1954195C 0000241213800?1508668002 alosrac1 8002 346-fetch jayth +6I1954195C 0000240866800?6503830937 srac1rala0001srac2 347-constant +6I1954195C 0000240937800?1604840889 srac2slon 348-recycle if n +6I1954195C 0000240889800?4511630793 nzesracrsrac5 349-equals jth +6I1954195C 0000240793800?6507101165 srac5raljay 350-constant +6I1954195C 0000241165800?1509680923 aloral 351- +6I1954195C 0000240923800?1507760881 aloabcon 352- +6I1954195C 0000240881800?6580020644 ral 8002exit 353- +6I1954195C 0000240492800?6007101215 srac3raujay 354- +6I1954195C 0000241215800?1006301435 aupone 355- +6I1954195C 0000241435800?2103830736 stua0001 356-n stored as +6I1954195C 0000240736800?2107101263 stujay 357- +6I1954195C 0000241263800?1109161221 supabcnt 358-new abcon if +6I1954195C 0000241221800?4609240825 bmi srac7 359-abcnt not +6I1954195C 0000240924800?1080010931 aup 8001 360-exceeded +6I1954195C 0000240931800?1008340939 aupsrac6 361-new ab const +6I1954195C 0000240939800?6904848003 lddn 8003 362- +6I1954195C 0000240825800?6505280332 srac7ralofivelarm 363-alarm +6I1954195C 0000240916800?0000990000 abcnt 00 0099 0000 364-ral a1 plus +6I1954195C 0000240834800?2403830793 srac6stda0001srac5 365-jay in lower +6I1954195C 0000241035800?2406910694 ps100stdfini 366-interlace +6I1954195C 0000240694800?3000031153 srt 0003 367- +6I1954195C 0000241153800?1680021461 slo 8002 368-four +6I1954195C 0000241461800?3500010817 slt 0001 369- +6I1954195C 0000240817800?1580010875 alo 8001 370-digits +6I1954195C 0000240875800?3500010981 slt 0001 371- +6I1954195C 0000240981800?1680020989 slo 8002 372- +6I1954195C 0000240989800?3500010695 slt 0001 373-with +6I1954195C 0000240695800?1580011203 alo 8001 374- +6I1954195C 0000241203800?3500010759 slt 0001 375- +6I1954195C 0000240759800?1680020867 slo 8002 376-zeroes +6I1954195C 0000240867800?3500010973 slt 0001 377- +6I1954195C 0000240973800?1580011031 alo 8001 378- +6I1954195C 0000241031800?3500010691 slt 0001fini 379- +6I1954195C 0000240032800?6900000000 d0001 i 380-symbols for +6I1954195C 0000240033800?8800000000 d0002 y 381-problem +6I1954195C 0000240034800?6300000000 d0003 c 382-variables +6I1954195C 0000240035800?8200000000 d0004 s 383- +6I1954195C 0000240036800?6100000000 d0005 a 384- +6I1954195C 0000240037800?7700000000 d0006 p 385- +6I1954195C 0000240038800?8600000000 d0007 w 386- +6I1954195C 0000240039800?0008000000 d0008 00 0800 0000 387- +6I1954195C 0000240040800?6590906161 d0009 e00aa 388- +6I1954195C 0000240600800?0000757677 o0001 00 0075 7677 389-mnemonics +6I1954195C 0000240601800?0001687383 o0002 00 0168 7383 390-for +6I1954195C 0000240602800?0010618477 o0003 00 1061 8477 391-required +6I1954195C 0000240603800?0015617376 o0004 00 1561 7376 392-operations +6I1954195C 0000240604800?0016827376 o0005 00 1682 7376 393- +6I1954195C 0000240605800?0017617473 o0006 00 1761 7473 394- +6I1954195C 0000240606800?0018827473 o0007 00 1882 7473 395- +6I1954195C 0000240607800?0019747788 o0008 00 1974 7788 396- +6I1954195C 0000240608800?0020828373 o0009 00 2082 8373 397- +6I1954195C 0000240609800?0024828364 o0010 00 2482 8364 398- +6I1954195C 0000240610800?0035827383 o0011 00 3582 7383 399- +6I1954195C 0000240611800?0045758965 o0012 00 4575 8965 400- +6I1954195C 0000240612800?0046627469 o0013 00 4662 7469 401- +6I1954195C 0000240613800?0060796184 o0014 00 6079 6184 402- +6I1954195C 0000240614800?0061798284 o0015 00 6179 8284 403- +6I1954195C 0000240615800?0064648579 o0016 00 6464 8579 404- +6I1954195C 0000240616800?0065796173 o0017 00 6579 6173 405- +6I1954195C 0000240617800?0066798273 o0018 00 6679 8273 406- +6I1954195C 0000240618800?0067796174 o0019 00 6779 6174 407- +6I1954195C 0000240619800?0068798274 o0020 00 6879 8274 408- +6I1954195C 0000240620800?0069736464 o0021 00 6973 6464 409- +6I1954195C 0000240621800?0070796491 o0022 00 7079 6491 410- +6I1954195C 0000240622800?0071776368 o0023 00 7177 6368 411- +6I1954195C 0000240623800?0099687383 o0024 00 9968 7383 412- +6I1954195C 0000240383800?0000060000 a0001 00 0006 0000 413-preset +6I1954195C 0000240384800?0000000001 a0002 00 0000 0001 414-absolute +6I1954195C 0000240387800?0000001000 a0005 00 0000 1000 415-constants +6I1954195C 0000240388800?0000002000 a0006 00 0000 2000 416- +6I1954195C 0000240389800?0000003000 a0007 00 0000 3000 417- +6I1954195C 0000240150800?0061631018 0150 00 6163ai 418-absolute +6I1954195C 0000240151800?0061691018 0151 00 6169ai 419-value +6I1954195C 0000240152800?0061730628 0152 00 6173al 420- +6I1954195C 0000240153800?0061780628 0153 00 6178al 421- +6I1954195C 0000240154800?0061881018 0154 00 6188ai 422- +6I1954195C 0000240155800?0062820987 0155 00 6282bs 423-b minus +6I1954195C 0000240156800?0062990654 0156 00 6299bn 424- +6I1954195C 0000240157800?0063690974 0157 00 6369ci 425-c +6I1954195C 0000240158800?0063730678 0158 00 6373ceel 426- +6I1954195C 0000240159800?0063750880 0159 00 6375cmtx 427- +6I1954195C 0000240160800?0063990704 0160 00 6399cn 428- +6I1954195C 0000240161800?0064631068 0161 00 6463wy 429-divide +6I1954195C 0000240162800?0064661271 0162 00 6466df 430- +6I1954195C 0000240163800?0064691068 0163 00 6469wy 431- +6I1954195C 0000240164800?0064710826 0164 00 6471zn 432- +6I1954195C 0000240165800?0064730728 0165 00 6473wl 433- +6I1954195C 0000240166800?0064781233 0166 00 6478we 434- +6I1954195C 0000240167800?0064881068 0167 00 6488wy 435- +6I1954195C 0000240168800?0064990826 0168 00 6499zn 436- +6I1954195C 0000240169800?0065720343 0169 00 6572ps3 437- +6I1954195C 0000240170800?0066631068 0170 00 6663wy 438-f +6I1954195C 0000240171800?0066661321 0171 00 6666ff 439-o +6I1954195C 0000240172800?0066691068 0172 00 6669wy 440-n +6I1954195C 0000240173800?0066710826 0173 00 6671zn 441-l +6I1954195C 0000240174800?0066730728 0174 00 6673wl 442-e +6I1954195C 0000240175800?0066781233 0175 00 6678we 443-f +6I1954195C 0000240176800?0066820343 0176 00 6682ps3 444-t +6I1954195C 0000240177800?0066881068 0177 00 6688wy 445- +6I1954195C 0000240178800?0066990826 0178 00 6699zn 446- +6I1954195C 0000240179800?0067691024 0179 00 6769gi 447- +6I1954195C 0000240180800?0067730778 0180 00 6773gl 448-go +6I1954195C 0000240181800?0067990754 0181 00 6799gn 449- +6I1954195C 0000240182800?0068660343 0182 00 6866ps3 450- +6I1954195C 0000240183800?0069661371 0183 00 6966if 451-halt +6I1954195C 0000240184800?0069691074 0184 00 6969ii 452-if +6I1954195C 0000240185800?0069730828 0185 00 6973il 453-i +6I1954195C 0000240186800?0069990804 0186 00 6999in 454- +6I1954195C 0000240187800?0071641369 0187 00 7164pw 455- +6I1954195C 0000240188800?0071661421 0188 00 7166pf 456-decimal +6I1954195C 0000240189800?0071721077 0189 00 7172pcmma 457-point +6I1954195C 0000240190800?0071771369 0190 00 7177pw 458- +6I1954195C 0000240191800?0071781421 0191 00 7178pf 459- +6I1954195C 0000240192800?0071791421 0192 00 7179pf 460- +6I1954195C 0000240193800?0071821369 0193 00 7182pw 461- +6I1954195C 0000240194800?0071871369 0194 00 7187pw 462- +6I1954195C 0000240195800?0071990854 0195 00 7199pn 463- +6I1954195C 0000240196800?0072631068 0196 00 7263wy 464- +6I1954195C 0000240197800?0072661471 0197 00 7266qf 465- +6I1954195C 0000240200800?0072691068 0200 00 7269wy 466- +6I1954195C 0000240201800?0072710826 0201 00 7271zn 467- +6I1954195C 0000240202800?0072730728 0202 00 7273wl 468-comma +6I1954195C 0000240203800?0072781233 0203 00 7278we 469- +6I1954195C 0000240204800?0072820343 0204 00 7282ps3 470-comma minus +6I1954195C 0000240205800?0072881068 0205 00 7288wy 471- +6I1954195C 0000240206800?0072990826 0206 00 7299zn 472- +6I1954195C 0000240207800?0073631068 0207 00 7363wy 473- +6I1954195C 0000240208800?0073691068 0208 00 7369wy 474- +6I1954195C 0000240209800?0073710826 0209 00 7371zn 475- +6I1954195C 0000240210800?0073730728 0210 00 7373wl 476- +6I1954195C 0000240211800?0073781233 0211 00 7378we 477- +6I1954195C 0000240212800?0073820343 0212 00 7382ps3 478-left minus +6I1954195C 0000240213800?0073881068 0213 00 7388wy 479- +6I1954195C 0000240214800?0073990826 0214 00 7399zn 480- +6I1954195C 0000240215800?0074631118 0215 00 7463mini 481- +6I1954195C 0000240216800?0074691118 0216 00 7469mini 482-m l +6I1954195C 0000240217800?0074710876 0217 00 7471minn 483-i o e +6I1954195C 0000240218800?0074730878 0218 00 7473minl 484-n n f +6I1954195C 0000240219800?0074780878 0219 00 7478minl 485-u t +6I1954195C 0000240220800?0074881118 0220 00 7488mini 486-s +6I1954195C 0000240221800?0074990876 0221 00 7499minn 487- +6I1954195C 0000240222800?0075730343 0222 00 7573ps3 488- +6I1954195C 0000240223800?0077631068 0223 00 7763wy 489- +6I1954195C 0000240224800?0077691068 0224 00 7769wy 490- +6I1954195C 0000240225800?0077710826 0225 00 7771zn 491- +6I1954195C 0000240226800?0077730728 0226 00 7773wl 492- +6I1954195C 0000240227800?0077781233 0227 00 7778we 493- +6I1954195C 0000240228800?0077820343 0228 00 7782ps3 494-p minus +6I1954195C 0000240229800?0077881068 0229 00 7788wy 495-matrix +6I1954195C 0000240230800?0077990826 0230 00 7799zn 496-power +6I1954195C 0000240231800?0078641419 0231 00 7864ew 497- +6I1954195C 0000240232800?0078661521 0232 00 7866ee 498- +6I1954195C 0000240233800?0078721127 0233 00 7872qcmma 499- +6I1954195C 0000240234800?0078771419 0234 00 7877ew 500- +6I1954195C 0000240235800?0078781521 0235 00 7878ee 501- +6I1954195C 0000240236800?0078791521 0236 00 7879ee 502- +6I1954195C 0000240237800?0078821419 0237 00 7882ew 503- +6I1954195C 0000240238800?0078871419 0238 00 7887ew 504-extensions +6I1954195C 0000240239800?0078990904 0239 00 7899en 505- +6I1954195C 0000240240800?0079641469 0240 00 7964rw 506- +6I1954195C 0000240241800?0079661571 0241 00 7966rr 507- +6I1954195C 0000240242800?0079691571 0242 00 7969rr 508- +6I1954195C 0000240243800?0079721177 0243 00 7972rcmma 509- +6I1954195C 0000240244800?0079771469 0244 00 7977rw 510- +6I1954195C 0000240245800?0079781571 0245 00 7978rr 511- +6I1954195C 0000240246800?0079791571 0246 00 7979rr 512- +6I1954195C 0000240247800?0079821469 0247 00 7982rw 513- +6I1954195C 0000240250800?0079831571 0250 00 7983rr 514- +6I1954195C 0000240251800?0079871469 0251 00 7987rw 515- +6I1954195C 0000240252800?0079890744 0252 00 7989rz 516- +6I1954195C 0000240253800?0082631068 0253 00 8263wy 517-right paren +6I1954195C 0000240254800?0082691068 0254 00 8269wy 518- +6I1954195C 0000240255800?0082710826 0255 00 8271zn 519- +6I1954195C 0000240256800?0082730728 0256 00 8273wl 520- +6I1954195C 0000240257800?0082781233 0257 00 8278we 521- +6I1954195C 0000240258800?0082881068 0258 00 8288wy 522- +6I1954195C 0000240259800?0082990826 0259 00 8299zn 523- +6I1954195C 0000240260800?0083631168 0260 00 8363tc 524- +6I1954195C 0000240261800?0083691124 0261 00 8369ti 525- +6I1954195C 0000240262800?0083730928 0262 00 8373tl 526- +6I1954195C 0000240263800?0083880843 0263 00 8388ty 527- +6I1954195C 0000240264800?0084631218 0264 00 8463my 528- +6I1954195C 0000240265800?0084691218 0265 00 8469my 529- +6I1954195C 0000240266800?0084710926 0266 00 8471mn 530- +6I1954195C 0000240267800?0084730978 0267 00 8473ml 531- +6I1954195C 0000240268800?0084781283 0268 00 8478me 532-sum +6I1954195C 0000240269800?0084881218 0269 00 8488my 533- +6I1954195C 0000240270800?0084990926 0270 00 8499mn 534- +6I1954195C 0000240271800?0085631218 0271 00 8563my 535- +6I1954195C 0000240272800?0085691218 0272 00 8569my 536- +6I1954195C 0000240273800?0085710926 0273 00 8571mn 537- +6I1954195C 0000240274800?0085730978 0274 00 8573ml 538- +6I1954195C 0000240275800?0085781283 0275 00 8578me 539- +6I1954195C 0000240276800?0085881218 0276 00 8588my 540-type +6I1954195C 0000240277800?0085990926 0277 00 8599mn 541- +6I1954195C 0000240278800?0086631218 0278 00 8663my 542- +6I1954195C 0000240279800?0086691218 0279 00 8669my 543- +6I1954195C 0000240280800?0086710926 0280 00 8671mn 544-relations +6I1954195C 0000240281800?0086730978 0281 00 8673ml 545- +6I1954195C 0000240282800?0086781283 0282 00 8678me 546- +6I1954195C 0000240283800?0086881218 0283 00 8688my 547- +6I1954195C 0000240284800?0086990926 0284 00 8699mn 548- +6I1954195C 0000240285800?0087631068 0285 00 8763wy 549- +6I1954195C 0000240286800?0087691068 0286 00 8769wy 550- +6I1954195C 0000240287800?0087710826 0287 00 8771zn 551- +6I1954195C 0000240288800?0087730728 0288 00 8773wl 552- +6I1954195C 0000240289800?0087781233 0289 00 8778we 553- +6I1954195C 0000240290800?0087881068 0290 00 8788wy 554- +6I1954195C 0000240291800?0087990826 0291 00 8799zn 555- +6I1954195C 0000240292800?0088691174 0292 00 8869yi 556- +6I1954195C 0000240293800?0088731028 0293 00 8873yl 557- +6I1954195C 0000240294800?0088750930 0294 00 8875ymtx 558- +6I1954195C 0000240295800?0088990954 0295 00 8899yn 559- +6I1954195C 0000240296800?0089631068 0296 00 8963wy 560- +6I1954195C 0000240297800?0089691068 0297 00 8969wy 561- +6I1954195C 0000240300800?0089710826 0300 00 8971zn 562- +6I1954195C 0000240301800?0089730728 0301 00 8973wl 563- +6I1954195C 0000240302800?0089781233 0302 00 8978we 564- +6I1954195C 0000240303800?0089820343 0303 00 8982ps3 565- +6I1954195C 0000240304800?0089881068 0304 00 8988wy 566- +6I1954195C 0000240305800?0089990826 0305 00 8999zn 567- +6I1954195C 0000240306800?0090631268 0306 00 9063endy 568-times +6I1954195C 0000240307800?0090640850 0307 00 9064ps12 569- +6I1954195C 0000240308800?0090670772 0308 00 9067endg 570- +6I1954195C 0000240309800?0090681023 0309 00 9068endh 571- +6I1954195C 0000240310800?0090691268 0310 00 9069endy 572- +6I1954195C 0000240311800?0090731078 0311 00 9073endl 573- +6I1954195C 0000240312800?0090780850 0312 00 9078ps12 574- +6I1954195C 0000240313800?0090830938 0313 00 9083endt 575- +6I1954195C 0000240314800?0090881268 0314 00 9088endy 576-y +6I1954195C 0000240315800?0099620917 0315 00 9962nf 577- +6I1954195C 0000240316800?0099641519 0316 00 9964nw 578- +6I1954195C 0000240317800?0099650720 0317 00 9965nr 579-substitution +6I1954195C 0000240318800?0099660917 0318 00 9966nf 580- +6I1954195C 0000240319800?0099690720 0319 00 9969nr 581- +6I1954195C 0000240320800?0099710917 0320 00 9971nf 582- +6I1954195C 0000240321800?0099721227 0321 00 9972ncmma 583- +6I1954195C 0000240322800?0099771519 0322 00 9977nw 584- +6I1954195C 0000240323800?0099780720 0323 00 9978nr 585- +6I1954195C 0000240324800?0099790720 0324 00 9979nr 586- +6I1954195C 0000240325800?0099821519 0325 00 9982nw 587- +6I1954195C 0000240326800?0099830720 0326 00 9983nr 588-first +6I1954195C 0000240327800?0099871519 0327 00 9987nw 589-characters +6I1954195C 0000240328800?0099890794 0328 00 9989nz 590- +6I1954195C 0000240329800?0099990917 0329 00 9999nf 591- +6I1954195C 0000241018800?6507681073 ai ralotwo 592-ral rsl +6I1954195C 0000241073800?2007880841 stltemp4 593-become +6I1954195C 0000240841800?6908440797 lddai1 uchge 594-ram rsm +6I1954195C 0000240844800?6908471250 ai1 ldd setel 595-l is r +6I1954195C 0000240847800?2003660343 stlabvalps3 596-abval nonzro +6I1954195C 0000240628800?6910810884 al ldd stbta 597-beta is u +6I1954195C 0000241081800?2104880891 stuv1 598-v1 is zero +6I1954195C 0000240891800?6508940349 ralram 599-compile +6I1954195C 0000240349800?1503521057 alolow 600-ram 8002 +6I1954195C 0000241057800?6907601313 ldd osgn1 601- +6I1954195C 0000240760800?2105240844 stuopsgnai1 602-opsgn zero +6I1954195C 0000240987800?6906400893 bs ldd dropu 603-dcrmnt u +6I1954195C 0000240640800?6503831037 rala0001 604-abcon count +6I1954195C 0000241037800?1606301485 sloone 605-minus one +6I1954195C 0000241485800?2003830786 stla0001 606- +6I1954195C 0000240786800?6004841039 raun bn1 607- +6I1954195C 0000240654800?6910391100 bn lddbn1 srn 608- +6I1954195C 0000241039800?2103420745 bn1 stunbar 609-nbar equals +6I1954195C 0000240745800?6901980751 ldd chkar 610-n +6I1954195C 0000240198800?6503561511 ralonet 611-arith equals +6I1954195C 0000241511800?2104841087 stun 612-one +6I1954195C 0000241087800?2003581561 stlarithnf2 613- +6I1954195C 0000240678800?6511311535 ceel ralthree 614- +6I1954195C 0000241535800?6909741250 lddci setel 615- +6I1954195C 0000240974800?6512771181 ci ralc ci1 616- +6I1954195C 0000241181800?1003561611 ci1 auponet adlow 617- +6I1954195C 0000241611800?2105091112 adlowstutemp1 618-store v and +6I1954195C 0000241112800?2004900943 stltemp2 619-arith +6I1954195C 0000240943800?6903460751 ldd chkar 620- +6I1954195C 0000240346800?6504991253 ralslti3 621-compile +6I1954195C 0000241253800?6906561313 ldd osgn1 622-slt 0004 and +6I1954195C 0000240656800?2105241327 stuopsgn 623- +6I1954195C 0000241327800?6009801585 raulow1 624-alo 8002 +6I1954195C 0000241585800?1009880993 aupalo 625- +6I1954195C 0000240993800?6904960800 ldd ps7 626-compile +6I1954195C 0000240496800?6580031303 ral 8003var2 627-ralv0000 +6I1954195C 0000240880800?6001481353 cmtx rautwo ymtx1 628-v is two +6I1954195C 0000240704800?6512771231 cn ralc cn1 629-v equals c +6I1954195C 0000241231800?1003561661 cn1 auponet var 630-arith is one +6I1954195C 0000241661800?2105091162 var stutemp1 631-store v and +6I1954195C 0000241162800?2004901043 stltemp2 632-arith +6I1954195C 0000241043800?6905460751 ldd chkar 633- +6I1954195C 0000240546800?6905490884 ldd stbta 634- +6I1954195C 0000240549800?6906521100 ldd srn 635-generate n +6I1954195C 0000240652800?6911050658 ldd chknn 636- +6I1954195C 0000241105800?3500041303 slt 0004var2 637- +6I1954195C 0000241303800?1509681123 var2 aloral 638-compile +6I1954195C 0000241123800?1504900795 alotemp2 639-ral vn +6I1954195C 0000240795800?6902481313 lddvar1 osgn1 640- +6I1954195C 0000240248800?6505091363 var1 raltemp1 641-set arith +6I1954195C 0000241363800?2003581711 stlaritheec2 642- +6I1954195C 0000241271800?6512241229 df ralsxtnt 643-begin read +6I1954195C 0000241229800?6906351038 lddps5a ldsr 644- +6I1954195C 0000241521800?6915711274 ee lddrr nuinc 645- +6I1954195C 0000241711800?2105240343 eec2 stuopsgnps3 646- +6I1954195C 0000240904800?6911070751 en ldd chkar 647- +6I1954195C 0000241107800?6908101100 ldd srn 648-generate n +6I1954195C 0000240810800?6914130658 ldd chknn 649- +6I1954195C 0000241413800?1500321137 alod0001 650-compile +6I1954195C 0000241137800?1506900845 aloext 651-ldd0000en +6I1954195C 0000240845800?6902981313 ldd osgn1 652- +6I1954195C 0000240298800?2105241377 stuopsgn 653- +6I1954195C 0000241377800?6507001155 ralnu 654- +6I1954195C 0000241155800?1507081463 aloen1 655- +6I1954195C 0000241463800?1080021621 aup 8002 656-if jnu not +6I1954195C 0000241621800?1606301635 sloone 657-equal jnu +6I1954195C 0000241635800?6910880941 ldden4 658-plus one +6I1954195C 0000240941800?2210888003 sdaen4 8003 659-compile +6I1954195C 0000240708800?6519771281 en1 ralj0001 660-nopphijnu +6I1954195C 0000241281800?2004901088 stltemp2en4 661- +6I1954195C 0000241088800?1619771331 en4 sloj0001 662- +6I1954195C 0000241331800?4509341685 nze en3 663- +6I1954195C 0000240934800?6504900895 raltemp2 664- +6I1954195C 0000240895800?1603561761 sloonet 665- +6I1954195C 0000241761800?3500041671 slt 0004 666- +6I1954195C 0000241671800?1513241279 alophi 667- +6I1954195C 0000241279800?6916851313 ldden3 osgn1 668- +6I1954195C 0000241685800?6004841089 en3 raun 669-extension +6I1954195C 0000241089800?1105420897 supmaxe 670-number +6I1954195C 0000240897800?4613000801 bmi en2a 671-set arith +6I1954195C 0000241300800?6003561811 rauonet en2 672- +6I1954195C 0000240801800?6080021811 en2a rau 8002en2 673- +6I1954195C 0000241811800?2103581861 en2 stuarith 674-v1 to zero +6I1954195C 0000241861800?2004880343 stlv1 ps3 675- +6I1954195C 0000241419800?6914691274 ew lddrw nuinc 676- +6I1954195C 0000240772800?6506321187 endg ralrelat 677-end stmnt if +6I1954195C 0000241187800?4507400850 nze ps12 678-relat zero +6I1954195C 0000240740800?6910930596 lddendg1 679-if go intgr +6I1954195C 0000240596800?2210930646 sdaendg1 680-then +6I1954195C 0000240646800?6905990702 lddendg3 681-inst of +6I1954195C 0000240702800?2205990752 sdaendg3 682-uminustwo +6I1954195C 0000240752800?6505151569 ralu 683-set to data +6I1954195C 0000241569800?1601481403 slotwo 684-of uminus1 +6I1954195C 0000241403800?6907060809 lddendga 685-then +6I1954195C 0000240809800?2207060859 sdaendga 686-decompile +6I1954195C 0000240859800?6912121265 lddendgb 687- +6I1954195C 0000241265800?2212121315 sdaendgb 688-if +6I1954195C 0000241315800?1513188002 alo 8002 689-go i intgr +6I1954195C 0000241318800?6500011205 ral 0001 690-then +6I1954195C 0000241205800?3500021911 slt 0002 691-endgr +6I1954195C 0000241911800?4413650966 nzuendgr 692- +6I1954195C 0000240966800?3000020706 srt 0002endga 693- +6I1954195C 0000240706800?6900001212 endgaldd 0000endgb 694- +6I1954195C 0000241212800?2300001453 endgbsia 0000 695- +6I1954195C 0000241453800?6907560893 ldd dropu 696-if relat +6I1954195C 0000240756800?6506321237 ralrelat 697-neg them +6I1954195C 0000241237800?4607900991 bmiendg2endg5 698-endg2 +6I1954195C 0000241365800?6506321287 endgrralrelat 699-if relat neg +6I1954195C 0000241287800?4607901041 bmiendg2endg4 700-then endg2 +6I1954195C 0000240790800?6780020649 endg2ram 8002 701-inst of +6I1954195C 0000240649800?2015030806 stlbeta 702-relatminus1 +6I1954195C 0000240806800?6910410944 lddendg4bmone 703-set to u +6I1954195C 0000241041800?6505150599 endg4ralu endg3 704-data of +6I1954195C 0000240599800?6900001093 endg3ldd 0000endg1 705-relat set +6I1954195C 0000241093800?2200001553 endg1sda 0000 706-to u +6I1954195C 0000241553800?6105151619 rsuu 707-compile +6I1954195C 0000241619800?6909910800 lddendg5ps7 708-neg nop +6I1954195C 0000240991800?2106320850 endg5sturelatps12 709-relat zero +6I1954195C 0000241023800?6005151669 endh rauu 710-compile +6I1954195C 0000241669800?1008321337 aupoone 711-hlt u 0000 +6I1954195C 0000241337800?6908500800 lddps12 ps7 712- +6I1954195C 0000241078800?6912681721 endl lddendy dropk 713- +6I1954195C 0000240938800?6510910945 endt ralfourt 714-end punch +6I1954195C 0000240945800?1619771381 sloj0001 715-generator +6I1954195C 0000241381800?4608271735 bmialarm 716-compiles +6I1954195C 0000241735800?6580011143 ral 8001 717-ldd pnchsr +6I1954195C 0000241143800?3500041603 slt 0004 718-if nr of +6I1954195C 0000241603800?1500001255 alo 0000 719-variables +6I1954195C 0000241255800?2004841387 stln 720-less than +6I1954195C 0000241387800?6908401150 ldd srac 721-five +6I1954195C 0000240840800?6911931313 ldd osgn1 722- +6I1954195C 0000241193800?6506960851 ralsvntt 723- +6I1954195C 0000240851800?6908501038 lddps12 ldsr 724- +6I1954195C 0000241268800?6917711374 endy ldd chknk 725-if u equals +6I1954195C 0000241771800?6914241427 ldd ubeta 726-beta plus 1 +6I1954195C 0000241424800?4511281329 nzeendy1 727-ral becomes +6I1954195C 0000241329800?6611321437 rslnze 728-stl +6I1954195C 0000241437800?2007881141 stltemp4 729-in beta +6I1954195C 0000241141800?6515031157 ralbeta 730- +6I1954195C 0000241157800?6908601513 ldd chgop 731- +6I1954195C 0000240860800?2005091262 stltemp1 732- +6I1954195C 0000241262800?6515031207 ralbeta 733- +6I1954195C 0000241207800?1606301785 sloone 734- +6I1954195C 0000241785800?2007881191 stltemp4 735- +6I1954195C 0000241191800?1509948002 aloendy2 8002 736-set contents +6I1954195C 0000240994800?6500001305 endy2ral 0000 737-beta minus +6I1954195C 0000241305800?2004901243 stltemp2 738-one equal +6I1954195C 0000241243800?6780020901 ram 8002 739-to content +6I1954195C 0000240901800?1610040909 slostla1 740-beta with +6I1954195C 0000240909800?4508501563 nzeps12 741-sign beta +6I1954195C 0000241563800?6007881293 rautemp4 742-minus one +6I1954195C 0000241293800?2105151368 stuu 743-if beta +6I1954195C 0000241368800?6004900995 rautemp2 744-minus one +6I1954195C 0000240995800?4603480699 bmi endy3 745-contains +6I1954195C 0000240348800?6105091613 rsutemp1endy4 746-stl acc +6I1954195C 0000240699800?6005091613 endy3rautemp1endy4 747- +6I1954195C 0000241613800?6908500800 endy4lddps12 ps7 748- +6I1954195C 0000241128800?6614311835 endy1rslfrone 749-if u not bta +6I1954195C 0000241835800?2007881241 stltemp4 750-plus one +6I1954195C 0000241241800?6910440797 ldd uchge 751-recompile +6I1954195C 0000241044800?6505151719 ralu 752-raly0 0000 +6I1954195C 0000241719800?1601481653 slotwo 753- +6I1954195C 0000241653800?2005151418 stlu 754-to +6I1954195C 0000241418800?1518218002 aloendy6 8002 755- +6I1954195C 0000241821800?6000001355 endy6rau 0000 756-alo u 0000 +6I1954195C 0000241355800?1005151769 aupu 757-ldd acc 8002 +6I1954195C 0000241769800?1001481703 auptwo 758-stdyo 0000 +6I1954195C 0000241703800?3000041663 srt 0004 759- +6I1954195C 0000241663800?6080031871 rau 8003 760-with sgn of +6I1954195C 0000241871800?3500041481 slt 0004 761-last inst +6I1954195C 0000241481800?6909840800 ldd ps7 762-negative +6I1954195C 0000240984800?6505151819 ralu 763- +6I1954195C 0000241819800?1508228002 aloendy7 8002 764- +6I1954195C 0000240822800?6600001405 endy7rsl 0000 765- +6I1954195C 0000241405800?2005091312 stltemp1 766- +6I1954195C 0000241312800?6014151869 rauldac 767- +6I1954195C 0000241869800?6908720800 ldd ps7 768- +6I1954195C 0000240872800?6005091713 rautemp1 769- +6I1954195C 0000241713800?6908500800 lddps12 ps7 770- +6I1954195C 0000241321800?2119590343 ff stuffbitps3 771-ffbit on +6I1954195C 0000241024800?6509881343 gi ralalo 772-compile +6I1954195C 0000241343800?1507761531 aloabcon 773-alo a0 8002 +6I1954195C 0000241531800?1509801885 alolow1 774-where a0 +6I1954195C 0000241885800?6911381313 ldd osgn1 775-will cont +6I1954195C 0000241138800?6008321711 rauoone eec2 776-s0 addrss +6I1954195C 0000240778800?6910240751 gl lddgi chkar 777- +6I1954195C 0000240754800?6912570751 gn ldd chkar 778- +6I1954195C 0000241257800?6909101100 ldd srn 779- +6I1954195C 0000240910800?6917630658 ldd chknn 780-compile +6I1954195C 0000241763800?1510161921 alogo 781-nop0000sn +6I1954195C 0000241921800?6917111313 lddeec2 osgn1 782- +6I1954195C 0000241371800?6914741374 if lddni chknk 783- +6I1954195C 0000241074800?6514771611 ii rali adlow 784- +6I1954195C 0000240828800?6506301935 il ralone 785- +6I1954195C 0000241935800?6910741250 lddii setel 786- +6I1954195C 0000240804800?6514771661 in rali var 787-v equals i +6I1954195C 0000241283800?6909781581 me lddml numin 788-dcrmnt nu +6I1954195C 0000240978800?6016310836 ml rau strel 789-relat is l +6I1954195C 0000241631800?6910341721 ldd dropk 790- +6I1954195C 0000241034800?6914870890 ldd chktk 791-to ml1 if +6I1954195C 0000241487800?4509401291 nze ml1 792-tk is zero +6I1954195C 0000240940800?6912911094 lddml1 tknz1 793-tknz1and ml1 +6I1954195C 0000241291800?6917521134 ml1 ldd setek 794- +6I1954195C 0000241752800?6911440947 ldd nglft a794- +6I1954195C 0000241144800?2103660343 stuabvalps3 795-abval zero +6I1954195C 0000241218800?6019710836 my rau strel 796-relat is l +6I1954195C 0000241971800?6915240890 ldd chktk 797-to mini if +6I1954195C 0000241524800?4511781118 nzemy1 mini 798-tk is zero +6I1954195C 0000241178800?6912911194 my1 lddml1 tknz2 799- +6I1954195C 0000240926800?6013790836 mn rau strel 800-relat is l +6I1954195C 0000241379800?6911820890 ldd chktk 801-to minn if +6I1954195C 0000241182800?4508860876 nze minn 802-tk is zero +6I1954195C 0000240886800?6911391100 ldd srn 803-compile +6I1954195C 0000241139800?6911781681 lddmy1 genn 804-ral ajay +6I1954195C 0000241118800?6508321537 mini raloone 805-ral ram +6I1954195C 0000241537800?2007881341 stltemp4 806-becomes +6I1954195C 0000241341800?6912440797 ldd uchge 807-rsl rsm +6I1954195C 0000241244800?6500351189 rald0004 808-l is s +6I1954195C 0000241189800?2005290668 stll ps3g 809-then ps3g +6I1954195C 0000240878800?6906680947 minl lddps3g nglft 810- +6I1954195C 0000240876800?6914291100 minn ldd srn 811- +6I1954195C 0000241429800?6104841239 rsun 812-n is minus n +6I1954195C 0000241239800?2104841587 stun 813-compile +6I1954195C 0000241587800?6909901681 ldd genn 814-ral ajay +6I1954195C 0000240990800?6500351289 rald0004 815-l is s +6I1954195C 0000241289800?2005291068 stll wy 816-then wy +6I1954195C 0000240500800?8400001455 m0001 84 0000idem 817-switching +6I1954195C 0000240501800?8500001505 m0002 85 0000grtr 818-dictionary +6I1954195C 0000240502800?8600001555 m0003 86 0000grtrz 819-for +6I1954195C 0000240503800?9999990827 m0004 99 9999alarm 820-relations +6I1954195C 0000241455800?6505151919 idem ralu 821-compile +6I1954195C 0000241919800?2006320936 stlrelat 822-nze0000next +6I1954195C 0000240936800?6511321637 ralnze grtr1 823- +6I1954195C 0000241555800?6505151969 grtrzralu 824-v equals u +6I1954195C 0000241969800?2006320986 stlrelatgrtz1 825-compile +6I1954195C 0000240986800?6513391637 grtz1ralbmi grtr1 826-bmi0000next +6I1954195C 0000241637800?6917111313 grtr1lddeec2 osgn1 827-opsgn zero +6I1954195C 0000241505800?6605150770 grtr rslu 828-v equals u +6I1954195C 0000240770800?1606301036 sloone 829-plus one +6I1954195C 0000241036800?2006321086 stlrelat 830-compile +6I1954195C 0000241086800?6511321687 ralnze 831-nze0000next +6I1954195C 0000241687800?6910401313 ldd osgn1 832- +6I1954195C 0000241040800?2105240986 stuopsgngrtz1 833- +6I1954195C 0000241227800?6907201173 ncmmalddnr comma 834- +6I1954195C 0000240917800?6005381393 nf rauintgr 835-n equals l +6I1954195C 0000241393800?3000081961 srt 0008 836-and n +6I1954195C 0000241961800?1504841389 alon 837- +6I1954195C 0000241389800?3000011045 srt 0001 838-mu equals mu +6I1954195C 0000241045800?2004841737 stln 839-plus one +6I1954195C 0000241737800?6007501605 raumu 840- +6I1954195C 0000241605800?1006301561 aupone nf2 841- +6I1954195C 0000241561800?2107500343 nf2 stumu ps3 842- +6I1954195C 0000241474800?6515271731 ni ralni1 843- +6I1954195C 0000241731800?6906321136 lddrelat 844-switch to +6I1954195C 0000241136800?8405008002 tlum0001 8002 845-relation +6I1954195C 0000241527800?6000001655 ni1 rau 0000 846-compiler +6I1954195C 0000241655800?1106328003 suprelat 8003 847- +6I1954195C 0000240720800?2003421095 nr stlnbar 848-n nbar mu +6I1954195C 0000241095800?2004841787 stln 849-del and +6I1954195C 0000241787800?2007501753 stlmu 850-arith zero +6I1954195C 0000241753800?2003580917 stlarithnf 851- +6I1954195C 0000241519800?6907201223 nw lddnr tkop 852-store op +6I1954195C 0000240794800?6907201273 nz lddnr nz4 853- +6I1954195C 0000241273800?2409761479 nz4 stdout 854- +6I1954195C 0000241479800?6912321374 lddnz1 chknk 855- +6I1954195C 0000241232800?6500011705 nz1 ral 0001 856-compile +6I1954195C 0000241705800?3500021362 slt 0002 857-stl acc +6I1954195C 0000241362800?1114650820 supsixtr 858-or +6I1954195C 0000240820800?4413231574 nzu flote 859-ldd floatk +6I1954195C 0000241323800?1103301186 supsixt 860-or +6I1954195C 0000241186800?4414391090 nzu fixva 861-ldd fix +6I1954195C 0000241439800?1105920997 supnnten 862-or +6I1954195C 0000240997800?4409511574 nzu flote 863- +6I1954195C 0000240951800?6510540332 ralfiveolarm 864-alarm +6I1954195C 0000241350800?6004881443 nz3 rauv1 865-to nz2 if +6I1954195C 0000241443800?4409760498 nzuout nz2 866-v1 zero +6I1954195C 0000240498800?6510040959 nz2 ralstla1 867- +6I1954195C 0000240959800?6914121313 ldd osgn1 868- +6I1954195C 0000241412800?2105241577 stuopsgnflot1 869- +6I1954195C 0000241574800?6003581813 floterauarith 870-float if +6I1954195C 0000241813800?4413501468 nzunz3 871- +6I1954195C 0000241468800?6509221627 ralfivet 872-y and fix +6I1954195C 0000241627800?6915771038 lddflot1ldsr 873-c and fix +6I1954195C 0000241577800?6080030976 flot1rau 8003out 874- +6I1954195C 0000241090800?6003581863 fixvarauarith 875- +6I1954195C 0000241863800?4409670498 nzu nz2 876- +6I1954195C 0000240967800?6508700925 ralfixnr 877- +6I1954195C 0000240925800?6904981038 lddnz2 ldsr 878- +6I1954195C 0000241077800?6914211173 pcmmalddpf comma 879- +6I1954195C 0000241421800?2004841837 pf stln 880-n nbar and +6I1954195C 0000241837800?2003421145 stlnbar 881-mu zero +6I1954195C 0000241145800?2007500854 stlmu pn 882-then pn +6I1954195C 0000240854800?6503561462 pn ralonet 883-arith to +6I1954195C 0000241462800?2003581561 stlarithnf2 884-floating +6I1954195C 0000241369800?6914211223 pw lddpf tkop 885-tkop and pf +6I1954195C 0000241127800?6915211173 qcmmalddee comma 886- +6I1954195C 0000241471800?6019601515 qf rautau 887- +6I1954195C 0000241515800?1115181373 suptau5 888-quant +6I1954195C 0000241373800?4416771228 nzutf1 889- +6I1954195C 0000241228800?6916771030 lddtf1 stsmt 890-if so +6I1954195C 0000241030800?2406911294 stsmtstdfini 891-store stmt +6I1954195C 0000241294800?6510471001 ralflop1 892-no of stmt +6I1954195C 0000241001800?1000001755 aup 0000 893-following +6I1954195C 0000241755800?1606301236 sloone 894-quant +6I1954195C 0000241236800?1514898002 alo 8002 895- +6I1954195C 0000241489800?2105680691 stun0001fini 896- +6I1954195C 0000241677800?6000411195 tf1 raupsi 897-if not +6I1954195C 0000241195800?1006301286 aupone 898-incrmnt psi +6I1954195C 0000241286800?2100411344 stupsi 899-ans set +6I1954195C 0000241344800?1903301336 mpysixt 900-count +6I1954195C 0000241336800?2010471400 stlflop1 901- +6I1954195C 0000241400800?6506301386 ralone tf2 902- +6I1954195C 0000241450800?4418031104 qua4 nzu curtn 903-if tally +6I1954195C 0000241803800?1008568003 aup 8003 904-non zero +6I1954195C 0000240856800?6500001805 ral 0000qua20 905-send nxt wrd +6I1954195C 0000241805800?2003720975 qua20stlgammaqua3 906-to gamma +6I1954195C 0000240975800?6003721727 qua3 raugamma 907- +6I1954195C 0000241727800?4417811282 nzu qua1 908- +6I1954195C 0000241781800?3000021887 srt 0002 909-extract +6I1954195C 0000241887800?2103721025 stugamma 910-pewth +6I1954195C 0000241025800?6080021333 rau 8002 911-symbol +6I1954195C 0000241333800?2105091512 stutemp1 912-is +6I1954195C 0000241512800?4415650975 nzuqua2 qua3 913-symbol zero +6I1954195C 0000241282800?6003731777 qua1 rautally 914-incrmnt +6I1954195C 0000241777800?1106301436 supone 915-tally +6I1954195C 0000241436800?2103731450 stutallyqua4 916- +6I1954195C 0000241565800?1115681423 qua2 supsvty2 917-is symbol k +6I1954195C 0000241423800?4418271278 nzuqua5 918- +6I1954195C 0000241278800?6518311486 ralchi 919-incrmnt chi +6I1954195C 0000241486800?1506301386 aloone tf2 920- +6I1954195C 0000241386800?2018311084 tf2 stlchi 921-clear l +6I1954195C 0000241084800?2111881391 stustar 922-and star +6I1954195C 0000241391800?2107460975 stuel qua3 923- +6I1954195C 0000241827800?6007461051 qua5 rauel 924- +6I1954195C 0000241051800?1003561562 auponet 925-incrmnt el +6I1954195C 0000241562800?2107460749 stuel 926-alarm if +6I1954195C 0000240749800?1103301536 supsixt 927-more than +6I1954195C 0000241536800?4415391140 nzuqua7 qua50 928-five symbls +6I1954195C 0000241140800?6500411245 qua50ralpsi 929- +6I1954195C 0000241245800?1606301586 sloone 930- +6I1954195C 0000241586800?2000410827 stlpsi alarm 931- +6I1954195C 0000241539800?6011881493 qua7 raustar 932- +6I1954195C 0000241493800?3000020799 srt 0002 933- +6I1954195C 0000240799800?1005091913 auptemp1 934- +6I1954195C 0000241913800?1510471101 aloflop1 935- +6I1954195C 0000241101800?1518311636 alochi 936- +6I1954195C 0000241636800?1615891543 sloseven 937- +6I1954195C 0000241543800?1507968002 alo 8002 938- +6I1954195C 0000240796800?2105680972 stun0001 939- +6I1954195C 0000240972800?2111880975 stustar qua3 940- +6I1954195C 0000241104800?6913070960 curtnldd flop 941-store +6I1954195C 0000241307800?6519811686 ralw0005curt1 942-convert no +6I1954195C 0000241686800?3500021593 curt1slt 0002 943-of statmnts +6I1954195C 0000241593800?1103601615 supninty 944-being +6I1954195C 0000241615800?1180031473 sup 8003 945-quantified +6I1954195C 0000241473800?4510261877 nze curt2 946-to pure +6I1954195C 0000241026800?1080011686 aup 8001curt1 947-numeric +6I1954195C 0000241877800?1080011736 curt2aup 8001 948- +6I1954195C 0000241736800?3000021643 srt 0002 949- +6I1954195C 0000241643800?1680021151 slo 8002 950- +6I1954195C 0000241151800?3000011357 srt 0001 951- +6I1954195C 0000241357800?1580011665 alo 8001 952- +6I1954195C 0000241665800?1680021523 slo 8002 953- +6I1954195C 0000241523800?3000011529 srt 0001 954- +6I1954195C 0000241529800?1580011937 alo 8001 955- +6I1954195C 0000241937800?3500021693 slt 0002 956- +6I1954195C 0000241693800?1510471201 aloflop1 957- +6I1954195C 0000241201800?1601481853 slotwo 958- +6I1954195C 0000241853800?1509068002 alo 8002 959- +6I1954195C 0000240906800?2105681022 stun0001 960- +6I1954195C 0000241022800?6919801383 lddw0004 961- +6I1954195C 0000241383800?2400011154 std 0001 962-variable +6I1954195C 0000241154800?6914071010 lddz 963- +6I1954195C 0000241010800?2400021855 std 0002 964-z +6I1954195C 0000241855800?6919791332 lddw0003 965-lower +6I1954195C 0000241332800?2400030956 std 0003 966-variable +6I1954195C 0000240956800?6009221927 raufivet 967- +6I1954195C 0000241927800?2000041457 stl 0004 968- +6I1954195C 0000241457800?1510601715 alotau6 qua9 969- +6I1954195C 0000241715800?2103731076 qua9 stutally 970-return to +6I1954195C 0000241076800?2019601963 stltau 971-scanner +6I1954195C 0000241963800?6503440667 ralrsl ps2b 972- +6I1954195C 0000241060800?6515181573 tau6 raltau5 qua11 973-set tau +6I1954195C 0000241573800?2019600564 qua11stltau tau2 974-to tau5 +6I1954195C 0000241518800?6910721030 tau5 ldd stsmt 975- +6I1954195C 0000241072800?6505641573 raltau2 qua11 976- +6I1954195C 0000240564800?6910170920 tau2 lddqua21dcrmt 977- +6I1954195C 0000241017800?6909700960 qua21ldd flop 978- +6I1954195C 0000240970800?6019811786 rauw0005 979- +6I1954195C 0000241786800?4412341190 nzups qua10 980-number +6I1954195C 0000241190800?6519801836 qua10ralw0004 981-store +6I1954195C 0000241836800?2100001903 stu 0000 982- +6I1954195C 0000241903800?2000011204 stl 0001 983-quant varble +6I1954195C 0000241204800?2000031006 stl 0003 984- +6I1954195C 0000241006800?6914071110 lddz 985-z +6I1954195C 0000241110800?2400021905 std 0002 986- +6I1954195C 0000241905800?6519781433 ralw0002 987-increment +6I1954195C 0000241433800?2000050758 stl 0005 988-if minus +6I1954195C 0000240758800?1616121067 slom 989-otherwise +6I1954195C 0000241067800?3500021623 slt 0002 990-z s incrmnt +6I1954195C 0000241623800?4413281378 nzu quamn 991- +6I1954195C 0000241328800?6000351378 raud0004quamn 992- +6I1954195C 0000241378800?2100041507 quamnstu 0004 993- +6I1954195C 0000241507800?6011601765 rausevnt 994- +6I1954195C 0000241765800?2000061009 stl 0006 995- +6I1954195C 0000241009800?1516621715 alotau3 qua9 996-to scanner +6I1954195C 0000240920800?2406911394 dcrmtstdfini 997-decrement +6I1954195C 0000241394800?6000411295 raupsi 998-quant count +6I1954195C 0000241295800?2107091712 stutemp3dcmt3 999-for all +6I1954195C 0000241712800?6007090664 dcmt3rautemp3 1000-psi less +6I1954195C 0000240664800?4411170691 nzu fini 1001-than or +6I1954195C 0000241117800?1106301886 supone 1002-equal to +6I1954195C 0000241886800?2107091762 stutemp3 1003-current +6I1954195C 0000241762800?1903301936 mpysixt 1004-psi +6I1954195C 0000241936800?1516391743 alodcmt1 1005- +6I1954195C 0000241743800?6908460849 ldddcmt2 1006- +6I1954195C 0000240849800?2208468002 sdadcmt2 8002 1007- +6I1954195C 0000241639800?6005721428 dcmt1raun0005 1008- +6I1954195C 0000241428800?1100001056 sup 0000 1009- +6I1954195C 0000241056800?4417120846 nzudcmt3dcmt2 1010- +6I1954195C 0000240846800?2105721712 dcmt2stun0005dcmt3 1011- +6I1954195C 0000241662800?6918150960 tau3 ldd flop 1012-store +6I1954195C 0000241815800?6908941097 lddram 1013- +6I1954195C 0000241097800?2400011254 std 0001 1014-g +6I1954195C 0000241254800?6019821987 rauw0006 1015- +6I1954195C 0000241987800?2000001304 stl 0000 1016- +6I1954195C 0000241304800?2000071210 stl 0007 1017- +6I1954195C 0000241210800?6907140911 ldd stnon 1018- +6I1954195C 0000240714800?2100021106 stu 0002 1019- +6I1954195C 0000241106800?6910591812 lddwdif 1020- +6I1954195C 0000241812800?2400031156 std 0003 1021-if +6I1954195C 0000241156800?6900381441 lddd0007 1022- +6I1954195C 0000241441800?2400050808 std 0005 1023-w +6I1954195C 0000240808800?6519781483 ralw0002 1024-check for +6I1954195C 0000241483800?1616121167 slom 1025-negative +6I1954195C 0000241167800?3500021673 slt 0002 1026-increment +6I1954195C 0000241673800?4414781528 nzuqua30 1027- +6I1954195C 0000241528800?6919801533 lddw0004 1028- +6I1954195C 0000241533800?2400041557 std 0004 1029- +6I1954195C 0000241557800?6919771080 lddw0001qua31 1030- +6I1954195C 0000241478800?6919771130 qua30lddw0001 1031- +6I1954195C 0000241130800?2400041607 std 0004 1032-upper varble +6I1954195C 0000241607800?6919801080 lddw0004qua31 1033- +6I1954195C 0000241080800?2400061109 qua31std 0006 1034-quant varble +6I1954195C 0000241109800?6018621217 rauninet 1035- +6I1954195C 0000241217800?2000071260 stl 0007 1036- +6I1954195C 0000241260800?2400081912 std 0008 1037- +6I1954195C 0000241912800?1518651715 alotau4 qua9 1038-to scanner +6I1954195C 0000241865800?6500411345 tau4 ralpsi 1039- +6I1954195C 0000241345800?1606301238 sloone 1040- +6I1954195C 0000241238800?2000411444 stlpsi 1041- +6I1954195C 0000241444800?4505480336 nzequa22ps0 1042- +6I1954195C 0000240548800?6505641020 qua22raltau2 1043- +6I1954195C 0000241020800?2019601017 stltau qua21 1044- +6I1954195C 0000240960800?2409761579 flop stdout 1045- +6I1954195C 0000241579800?6000411395 raupsi 1046- +6I1954195C 0000241395800?1903301288 mpysixt 1047-store statmt +6I1954195C 0000241288800?2010471500 stlflop1 1048- +6I1954195C 0000241500800?1605201075 slosix 1049- +6I1954195C 0000241075800?1515781583 alo flop3 1050- +6I1954195C 0000241578800?0605681977 06n0001w0001 1051- +6I1954195C 0000241583800?6909760341 flop3lddout sr1 1052- +6I1954195C 0000241177800?6915711173 rcmmalddrr comma 1053- +6I1954195C 0000241571800?6501461251 rr ralk 1054-k equals k +6I1954195C 0000241251800?2104881491 stuv1 1055- +6I1954195C 0000241491800?1506301338 aloone 1056-plus one +6I1954195C 0000241338800?3500051301 slt 0005 1057- +6I1954195C 0000241301800?4408271206 nzualarm 1056- +6I1954195C 0000241206800?3000051070 srt 0005 1059- +6I1954195C 0000241070800?2001460899 stlk rr2 1060- +6I1954195C 0000240899800?1508028002 rr2 alorr1 8002 1061-tk equals +6I1954195C 0000240802800?2100420343 rr1 stut0001ps3 1062-zero +6I1954195C 0000241469800?6506361541 rw ralstl 1063-compile +6I1954195C 0000241541800?1501461351 alok 1064-stl wk +6I1954195C 0000241351800?1513541159 alow 1065- +6I1954195C 0000241159800?6919621313 ldd osgn1 1066-opsgn zero +6I1954195C 0000241962800?2105241628 stuopsgn 1067- +6I1954195C 0000241628800?6918811134 ldd setek 1068- +6I1954195C 0000241881800?6915711223 lddrr tkop 1069- +6I1954195C 0000240744800?6915711273 rz lddrr nz4 1070- +6I1954195C 0000241124800?6506301388 ti ralone tiff 1071-punch +6I1954195C 0000240843800?6501481388 ty raltwo tiff 1072-generators +6I1954195C 0000241168800?6511311388 tc ralthreetiff 1073- +6I1954195C 0000240928800?6519311388 tl ralldsr1tiff 1074- +6I1954195C 0000241388800?1515911445 tiff aloab3 1075-compiles +6I1954195C 0000241445800?2009490852 stltmble 1076-program +6I1954195C 0000240852800?6912561427 ldd ubeta 1077-which +6I1954195C 0000241256800?4513100764 nze ti4 1078-identifies +6I1954195C 0000241310800?6505151120 ralu 1079-varianles +6I1954195C 0000241120800?1611311438 slothree 1080-whose values +6I1954195C 0000241438800?2005151618 stlu 1081-are to be +6I1954195C 0000241618800?6509491404 raltmbleti2 1082-punched +6I1954195C 0000240764800?6912670893 ti4 ldd dropu 1083- +6I1954195C 0000241267800?1511708002 alo 8002 1084- +6I1954195C 0000241170800?6000001306 rau 0000 1085- +6I1954195C 0000241306800?3500020814 slt 0002 1086- +6I1954195C 0000240814800?3000061629 srt 0006 1087- +6I1954195C 0000241629800?2104841488 stun 1088- +6I1954195C 0000241488800?6914041150 lddti2 srac 1089- +6I1954195C 0000241404800?6916571313 ti2 ldd osgn1 1090- +6I1954195C 0000241657800?6903431173 lddps3 comma 1091- +6I1954195C 0000241591800?1550030000 ab3 15 5003 0000 1092- +6I1954195C 0000240949800?0000000000 tmble 00 0000 0000 1093- +6I1954195C 0000241233800?6907281581 we lddwl numin 1094- +6I1954195C 0000240728800?6913821721 wl ldd dropk 1095-is previous +6I1954195C 0000241382800?6915380890 ldd chktk 1096-operation +6I1954195C 0000241538800?4506421793 nzewl1 alpha 1097-zero +6I1954195C 0000241793800?6908961134 alphaldd setek 1098-if so ek +6I1954195C 0000240896800?6501461401 ralk 1099-is arith and +6I1954195C 0000241401800?2103660899 stuabvalrr2 1100-abval zero +6I1954195C 0000240642800?6917931094 wl1 lddalphatknz1 1101-then +6I1954195C 0000241094800?2409761679 tknz1stdout 1102-return ps3 +6I1954195C 0000241679800?2005090864 stltemp1 1103-if not is +6I1954195C 0000240864800?1613171122 slop 1104-ppn p +6I1954195C 0000241122800?4511261678 nze pwrw 1105-if not is +6I1954195C 0000241126800?6917291432 ldd getek 1106-wk fxd or fl +6I1954195C 0000241729800?4514821633 nzefltw1nflw1 1107-if fl is ari +6I1954195C 0000241482800?6503580914 fltw1ralarith 1108-th fixed or +6I1954195C 0000240914800?4516681220 nzefltw2nflw2 1109-floating +6I1954195C 0000241668800?6504881843 fltw2ralv1 wl3a 1110-if v1 zero +6I1954195C 0000241843800?6909460999 wl3a lddgamm swtch 1111-compile +6I1954195C 0000240999800?4509021454 swtchnzeralwkstlac 1112-stl acc +6I1954195C 0000241454800?2406441147 stlacstdexit 1113-and +6I1954195C 0000241147800?6510041209 ralstla1 1114-ral wk +6I1954195C 0000241209800?6909641313 ldd osgn1 1115-if non zero +6I1954195C 0000240964800?2105241728 stuopsgnralw1 1116-compile +6I1954195C 0000241004800?2000010000 stla1stl 0001 0000 1117-ral wk +6I1954195C 0000240902800?2406441728 ralwkstdexit ralw1 1118- +6I1954195C 0000241728800?6501461451 ralw1ralk 1119-set opsgn +6I1954195C 0000241451800?1513541259 alow 1120-to zero +6I1954195C 0000241259800?1509681723 aloral 1121-in both +6I1954195C 0000241723800?6911761313 ldd osgn1 1122-cases +6I1954195C 0000241176800?2105240644 stuopsgnexit 1123- +6I1954195C 0000240946800?6007681773 gamm rauotwo gamm1 1124-increment +6I1954195C 0000241773800?1506301588 gamm1aloone wl3c 1125-opn and +6I1954195C 0000241588800?1005091014 wl3c auptemp1 1126-set v1 +6I1954195C 0000241014800?2105091064 stutemp1netta 1127-then go to +6I1954195C 0000241064800?2004881641 nettastlv1 fl1k 1128-arith gen +6I1954195C 0000241220800?6509221778 nflw2ralfivet 1129-compile +6I1954195C 0000241778800?6915321038 ldd ldsr 1130-ldd floatk +6I1954195C 0000241532800?2105241828 stuopsgn 1131-and merge +6I1954195C 0000241828800?6503561114 ralonet 1132-with float +6I1954195C 0000241114800?2003581843 stlarithwl3a 1133-float +6I1954195C 0000241633800?6503581164 nflw1ralarith 1134-if wk fixed +6I1954195C 0000241164800?4517181270 nzen1fw2n1nw2 1135-is present +6I1954195C 0000241718800?6504881893 n1fw2ralv1 1136-fixed +6I1954195C 0000241893800?6909960999 ldd swtch 1137-to switch if +6I1954195C 0000240996800?6510911495 ralfourt 1138-float then +6I1954195C 0000241495800?6909461038 lddgamm ldsr 1139-ldd float +6I1954195C 0000241270800?6008321588 n1nw2rauoone wl3c 1140-fix fix +6I1954195C 0000241678800?6915821432 pwrw ldd getek 1141-is wk fixed +6I1954195C 0000241582800?4516381688 nze pwrp 1142-if not is +6I1954195C 0000241638800?6503581214 ralarith 1143-present flt +6I1954195C 0000241214800?4517681320 nzepwrfl 1144-if not +6I1954195C 0000241320800?6510911545 ralfourt 1145-compile +6I1954195C 0000241545800?6917681038 lddpwrflldsr 1146-ldd float +6I1954195C 0000241768800?6503561264 pwrflralonet 1147-float float +6I1954195C 0000241264800?2003581314 stlarith 1148-compiles +6I1954195C 0000241314800?6913671038 ldd ldsr 1149-ldd log +6I1954195C 0000241367800?6913701454 lddpwr1 stlac 1150-stl acc +6I1954195C 0000241370800?6008321773 pwr1 rauoone gamm1 1151- +6I1954195C 0000241688800?6504881943 pwrp ralv1 1152-ral wk +6I1954195C 0000241943800?6910460999 ldd swtch 1153-compile +6I1954195C 0000241046800?6503581364 ralarith 1154-stl acc +6I1954195C 0000241364800?2004881691 stlv1 1155-andor +6I1954195C 0000241691800?1514941049 alotwlvt 1156-ral wk and +6I1954195C 0000241049800?6909761038 lddout ldsr 1157-power invrt +6I1954195C 0000241068800?6911720890 wy ldd chktk 1158-is previous +6I1954195C 0000241172800?4512261793 nze alpha 1159-opn zero +6I1954195C 0000241226800?6917931194 lddalphatknz2 1160- +6I1954195C 0000241194800?2409761779 tknz2stdout 1161- +6I1954195C 0000241779800?2005091414 stltemp1 1162-if not is +6I1954195C 0000241414800?1613171222 slop 1163-opn p +6I1954195C 0000241222800?4512761878 nze powr 1164-if not is +6I1954195C 0000241276800?6918291432 ldd getek 1165-prev float +6I1954195C 0000241829800?4516321683 nzeflt1 nflt1 1166-if so go to +6I1954195C 0000241632800?6504881993 flt1 ralv1 1167-altr if prev +6I1954195C 0000241993800?4510961197 nzeflt2 1168-not in acc +6I1954195C 0000241197800?6910961099 lddflt2 altr 1169- +6I1954195C 0000241096800?6503581464 flt2 ralarith 1170-compile +6I1954195C 0000241464800?4510641420 nzenetta 1171-float if +6I1954195C 0000241420800?6510911595 ralfourt 1172-present +6I1954195C 0000241595800?6905981038 ldd ldsr 1173-fixed +6I1954195C 0000240598800?6503561514 ralonet 1174- +6I1954195C 0000241514800?2003581064 stlarithnetta 1175- +6I1954195C 0000241683800?6503581564 nflt1ralarith 1176-if not float +6I1954195C 0000241564800?4518181470 nzefx1f2 1177-fix go to +6I1954195C 0000241470800?6008881588 rauotreywl3c 1178-wl3c if +6I1954195C 0000241818800?6912720944 fx1f2ldd bmone 1179-float fix +6I1954195C 0000241272800?6115031707 rsubeta 1180-compile neg +6I1954195C 0000241707800?1113601915 supar33 1181-ldd beta ftk +6I1954195C 0000241915800?6918680800 lddar34 ps7 1182-to altr3 +6I1954195C 0000241360800?6900009005 ar33 ldd 0000 9005 1183-and then +6I1954195C 0000241868800?6910641417 ar34 lddnetta 1184-netta +6I1954195C 0000241417800?2406441247 stdexit altr3 1185- +6I1954195C 0000241099800?2406441297 altr stdexit 1186-altr perfrms +6I1954195C 0000241297800?6915500944 ldd bmone 1187-following +6I1954195C 0000241550800?6912471600 lddaltr3stac1 1188-sequentially +6I1954195C 0000240944800?2406911544 bmonestdfini 1189-beta minus +6I1954195C 0000241544800?6515031757 ralbeta 1190-one to +6I1954195C 0000241757800?1606301738 sloone 1191-temp4 +6I1954195C 0000241738800?2007881741 stltemp4i4zu1 1192- +6I1954195C 0000241741800?6507881594 i4zu1raltemp4 1193-inst of +6I1954195C 0000241594800?1513471501 aloi4zu3 1194-contents +6I1954195C 0000241501800?6915041807 lddi4zu2 1195-of temp4 +6I1954195C 0000241807800?2215041857 sdai4zu2 1196-equals u +6I1954195C 0000241857800?6080028003 rau 8002 8003 1197-if not ldd +6I1954195C 0000241347800?6900001554 i4zu3ldd 0000 1198- +6I1954195C 0000241554800?2404901644 stdtemp2 1199- +6I1954195C 0000241644800?6780011551 ram 8001 1200-if ldd set +6I1954195C 0000241551800?1616041309 slockldd 1201-data of +6I1954195C 0000241309800?3500021965 slt 0002 1202-contents +6I1954195C 0000241965800?4415201570 nzu i4zu4 1203-of +6I1954195C 0000241520800?6505151620 ralu 1204-temp4 to +6I1954195C 0000241620800?3000041682 srt 0004 1205-u +6I1954195C 0000241682800?1008321788 aupoone i4zu5 1206- +6I1954195C 0000241570800?6505151788 i4zu4ralu i4zu5 1207- +6I1954195C 0000241788800?1015041359 i4zu5aupi4zu2 1208- +6I1954195C 0000241359800?6904908003 lddtemp2 8003 1209- +6I1954195C 0000241504800?2200000691 i4zu2sda 0000fini 1210- +6I1954195C 0000241600800?2406911694 stac1stdfini 1211-compile neg +6I1954195C 0000241694800?6115031907 rsubeta 1212-stl acc bta +6I1954195C 0000241907800?3000041467 srt 0004 1213- +6I1954195C 0000241467800?1110041409 supstla1 1214- +6I1954195C 0000241409800?6906910800 lddfini ps7 1215- +6I1954195C 0000241247800?6916501654 altr3ldd ium2u 1216- +6I1954195C 0000241650800?6515030858 ralbeta 1217- +6I1954195C 0000240858800?2007881791 stltemp4 1218- +6I1954195C 0000241791800?6917441397 ldd bmini 1219- +6I1954195C 0000241744800?6508321838 raloone 1220- +6I1954195C 0000241838800?2005240644 stlopsgnexit 1221- +6I1954195C 0000241654800?2406911794 ium2ustdfini 1222-u minus two +6I1954195C 0000241794800?6505151670 ralu 1223-to temp4 +6I1954195C 0000241670800?1601481704 slotwo 1224-then i4zu1 +6I1954195C 0000241704800?2007881741 stltemp4i4zu1 1225- +6I1954195C 0000241397800?2406911844 bministdfini 1226-contents of +6I1954195C 0000241844800?6107881894 rsutemp4 1227-contents of +6I1954195C 0000241894800?1114478003 supbmin2 8003 1228-temp4 made +6I1954195C 0000241447800?1800001356 bmin2sml 0000 1229-negative +6I1954195C 0000241356800?6080021066 rau 8002 1230- +6I1954195C 0000241066800?1607881944 slotemp4 1231- +6I1954195C 0000241944800?1614978002 slobmin3 8002 1232- +6I1954195C 0000241497800?2100000691 bmin3 21 0000fini 1233- +6I1954195C 0000240644800?0106440644 exit hltexit exit 1234- +6I1954195C 0000240691800?0106910691 fini hltfini fini 1235- +6I1954195C 0000240976800?0109760976 out hltout out 1236- +6I1954195C 0000241313800?2406911994 osgn1stdfini osgn3 1237-set sign of +6I1954195C 0000241994800?1005241879 osgn3aupopsgn 1238-instruction +6I1954195C 0000241879800?1017328003 auposgn2 8003 1239-to be +6I1954195C 0000241732800?6080021841 osgn2rau 8002 1240-compiled +6I1954195C 0000241841800?6906910800 lddfini ps7 1241- +6I1954195C 0000241427800?2406911645 ubetastdfini 1242-is u equal +6I1954195C 0000241645800?6515030908 ralbeta 1243-to beta +6I1954195C 0000240908800?1506301888 aloone 1244-plus one +6I1954195C 0000241888800?1605150691 slou fini 1245- +6I1954195C 0000241513800?2406911695 chgopstdfini chge1 1246-op of +6I1954195C 0000241695800?1506481754 chge1alochg1 1247-contents of +6I1954195C 0000241754800?6909581614 lddchg2 1248-lower +6I1954195C 0000241614800?2209588002 sdachg2 8002 1249-changed by +6I1954195C 0000240648800?6500001406 chg1 ral 0000 1250-contents of +6I1954195C 0000241406800?4614591410 bmi chg3 1251-temp4 +6I1954195C 0000241459800?1607880958 slotemp4chg2 1252- +6I1954195C 0000241410800?1507880958 chg3 alotemp4chg2 1253- +6I1954195C 0000240958800?2000000691 chg2 stl 0000fini 1254- +6I1954195C 0000241878800?6917821432 powr ldd getek 1255-is prev flt +6I1954195C 0000241782800?4519381988 nzepowr1powrf 1256-if so is +6I1954195C 0000241938800?6504881745 powr1ralv1 1257-prev in acc +6I1954195C 0000241745800?4506981149 nzepowr4 1258-altr if not +6I1954195C 0000241149800?6906981099 lddpowr4altr 1259- +6I1954195C 0000240698800?6503581664 powr4ralarith 1260-if pres fix +6I1954195C 0000241664800?4519181720 nzepowr2 1261-compile +6I1954195C 0000241720800?6510911795 ralfourt 1262-float +6I1954195C 0000241795800?6907481038 ldd ldsr 1263-and set +6I1954195C 0000240748800?6503561714 ralonet 1264-opsgn to +6I1954195C 0000241714800?2003581918 stlarithpowr2 1265-one +6I1954195C 0000241918800?6503561764 powr2ralonet 1266-compile +6I1954195C 0000241764800?6913701038 lddpwr1 ldsr 1267-ldd log +6I1954195C 0000241988800?6918911099 powrflddpowr3altr 1268-if prev fix +6I1954195C 0000241891800?6503581814 powr3ralarith 1269-altr +6I1954195C 0000241814800?2004881941 stlv1 1270-compile +6I1954195C 0000241941800?1518451199 alotent opld 1271- +6I1954195C 0000241199800?6909761038 opld lddout ldsr 1272- +6I1954195C 0000241700800?1501461601 opwk alok 1273-compiles +6I1954195C 0000241601800?1513541509 alow opwk1 1274-opn wk next +6I1954195C 0000241509800?6918641313 opwk1lddopwk2osgn1 1275- +6I1954195C 0000241864800?2105240976 opwk2stuopsgnout 1276- +6I1954195C 0000241038800?2419311184 ldsr stdldsr1 1277-opsgn zero +6I1954195C 0000241184800?1516891895 aloldsr2 1278-compiles +6I1954195C 0000241895800?6907981313 ldd osgn1 1279-ldd0000lowr +6I1954195C 0000240798800?2105241931 stuopsgnldsr1 1280-plus 9000 +6I1954195C 0000241931800?0119311931 ldsr1hltldsr1ldsr1 1281- +6I1954195C 0000241689800?6900009000 ldsr2ldd 0000 9000 1282- +6I1954195C 0000241750800?1518041509 opaccaloacc opwk1 1283- +6I1954195C 0000241641800?6519451249 fl1k ralar5 1284-fetch opn +6I1954195C 0000241249800?6905091914 lddtemp1 1285-entry from +6I1954195C 0000241914800?8405508002 tluq0001 8002 1286-switching +6I1954195C 0000241945800?6000001456 ar5 rau 0000 1287-dictionary +6I1954195C 0000241456800?1105091964 suptemp1 1288-alarm if +6I1954195C 0000241964800?3000041125 srt 0004 1289-opn is +6I1954195C 0000241125800?4408271180 nzualarm 1290-invalid +6I1954195C 0000241180800?3500048003 slt 0004 8003 1291-if valid go +6I1954195C 0000240550800?6400001506 q0001 64 0000fpdv 1292-switching +6I1954195C 0000240551800?6500001556 q0002 65 0000fpdv1 1293-dictionary +6I1954195C 0000240552800?6600001606 q0003 66 0000fpdv2 1294-for arithmtc +6I1954195C 0000240553800?6700001656 q0004 67 0000fpdv3 1295-subgenrators +6I1954195C 0000240554800?7800001706 q0005 78 0000fppwr 1296- +6I1954195C 0000240555800?8200001756 q0006 82 0000fpad 1297- +6I1954195C 0000240556800?8300001806 q0007 83 0000fpad1 1298- +6I1954195C 0000240557800?8400001756 q0008 84 0000fpad 1299- +6I1954195C 0000240558800?8500001856 q0009 85 0000fpad3 1300- +6I1954195C 0000240559800?8700001906 q0010 87 0000fpmu 1301- +6I1954195C 0000240560800?8800001008 q0011 88 0000fpmu1 1302- +6I1954195C 0000240561800?8900001906 q0012 89 0000fpmu 1303- +6I1954195C 0000240562800?9000001058 q0013 90 0000fpmu3 1304- +6I1954195C 0000240563800?9900000827 q0014 99 0000alarm 1305- +6I1954195C 0000241756800?6515591199 fpad raleigttopld 1306-to arith +6I1954195C 0000241806800?6509881700 fpad1ralalo opwk 1307-generators +6I1954195C 0000241008800?6511161322 fpmu1ralrau 1308-start of +6I1954195C 0000241322800?1503521108 alolow 1309-arithmetic +6I1954195C 0000241108800?6911661313 ldd osgn1 1310-subgeneratrs +6I1954195C 0000241166800?2105241928 stuopsgn 1311- +6I1954195C 0000241928800?6518321700 ralmpy opwk 1312- +6I1954195C 0000241906800?6518621199 fpmu ralninetopld 1313- +6I1954195C 0000241506800?6503301199 fpdv ralsixt opld 1314- +6I1954195C 0000241556800?6516091700 fpdv1raldvr opwk 1315- +6I1954195C 0000241606800?6516591199 fpdv2ralfrtntopld 1316- +6I1954195C 0000241706800?6518621517 fppwrralninet 1317- +6I1954195C 0000241517800?6917701038 ldd ldsr 1318- +6I1954195C 0000241770800?6518231929 raltwot 1319- +6I1954195C 0000241929800?6904981038 lddnz2 ldsr 1320- +6I1954195C 0000241856800?6917091427 fpad3ldd ubeta 1321-is u equal +6I1954195C 0000241709800?4512161266 nzeadd4 1322-beta plus 1 +6I1954195C 0000241266800?6610541759 rslfiveomultn 1323- +6I1954195C 0000241216800?6918201099 add4 ldd altr 1324-altr and +6I1954195C 0000241820800?6509881750 ralalo opacc 1325-alo acc +6I1954195C 0000241656800?6918091099 fpdv3ldd altr 1326-altr and +6I1954195C 0000241809800?6516091750 raldvr opacc 1327-dvr acc +6I1954195C 0000241058800?6011161372 fpmu3raurau 1328- +6I1954195C 0000241372800?2113261230 stutemp6 1329- +6I1954195C 0000241230800?6505151870 ralu 1330- +6I1954195C 0000241870800?6918731376 ldd chkop 1331- +6I1954195C 0000241873800?2007881991 stltemp4 1332- +6I1954195C 0000241991800?1613391995 slobmi 1333- +6I1954195C 0000241995800?2012990952 stltemp5 1334- +6I1954195C 0000240952800?6911581427 ldd ubeta 1335- +6I1954195C 0000241158800?4513161366 nze mult1 1336- +6I1954195C 0000241316800?6503661422 ralabval 1337- +6I1954195C 0000241422800?4514261280 nzemult3 1338- +6I1954195C 0000241280800?6605281733 rslofive 1339- +6I1954195C 0000241733800?2007880692 stltemp4mult2 1340- +6I1954195C 0000241426800?6511161472 mult3ralrau 1341- +6I1954195C 0000241472800?1503521208 alolow 1342- +6I1954195C 0000241208800?6914161313 ldd osgn1 1343- +6I1954195C 0000241416800?2105241330 stuopsgn 1344- +6I1954195C 0000241330800?2103661920 stuabvalmult4 1345- +6I1954195C 0000240692800?6505151970 mult2ralu 1346- +6I1954195C 0000241970800?1606301739 sloone 1347- +6I1954195C 0000241739800?6919201513 lddmult4chgop 1348- +6I1954195C 0000241920800?6919231099 mult4ldd altr 1349- +6I1954195C 0000241923800?6518321750 ralmpy opacc 1350- +6I1954195C 0000241366800?6503661522 mult1ralabval 1351- +6I1954195C 0000241522800?4514261380 nzemult3 1352- +6I1954195C 0000241380800?6707881146 ramtemp4 1353- +6I1954195C 0000241146800?1513261882 alotemp6 1354- +6I1954195C 0000241882800?2013261430 stltemp6 1355- +6I1954195C 0000241430800?6515031258 ralbeta 1356- +6I1954195C 0000241258800?6914661376 ldd chkop 1357- +6I1954195C 0000241466800?4515721622 nze mlt7a 1358- +6I1954195C 0000241572800?1508321789 alooone 1359- +6I1954195C 0000241789800?4507421196 nzemult6 1360- +6I1954195C 0000241196800?6807881246 rsmtemp4mlt7b 1361- +6I1954195C 0000241622800?6707881246 mlt7aramtemp4mlt7b 1362- +6I1954195C 0000241246800?1605281783 mlt7bsloofive 1363- +6I1954195C 0000241783800?2007880792 stltemp4mult7 1364- +6I1954195C 0000240792800?6515031308 mult7ralbeta 1365- +6I1954195C 0000241308800?1606301839 sloone 1366- +6I1954195C 0000241839800?6908421513 ldd chgop 1367- +6I1954195C 0000240842800?6512991759 raltemp5multn 1368- +6I1954195C 0000241759800?2007880892 multnstltemp4 1369- +6I1954195C 0000240892800?6515031358 ralbeta 1370- +6I1954195C 0000241358800?6918641513 lddopwk2chgop 1371- +6I1954195C 0000241800800?6515031408 mult8ralbeta 1372- +6I1954195C 0000241408800?2005151968 stlu 1373- +6I1954195C 0000241968800?6916721513 ldd chgop 1374- +6I1954195C 0000241672800?2012991002 stltemp5 1375- +6I1954195C 0000241002800?4614581508 bmi mult9 1376- +6I1954195C 0000241458800?6008321508 rauoone mult9 1377- +6I1954195C 0000241508800?2105241480 mult9stuopsgn 1378- +6I1954195C 0000241480800?6513261932 raltemp6 1379- +6I1954195C 0000241932800?1503521558 alolow 1380- +6I1954195C 0000241558800?6915161313 ldd osgn1 1381- +6I1954195C 0000241516800?2105241530 stuopsgn 1382- +6I1954195C 0000241530800?6712991854 ramtemp5 1383- +6I1954195C 0000241854800?6909761313 lddout osgn1 1384- +6I1954195C 0000240742800?6512991904 mult6raltemp5 1385- +6I1954195C 0000241904800?2007881800 stltemp4mult8 1386- +6I1954195C 0000241174800?6515801181 yi raly ci1 1387- +6I1954195C 0000241028800?6501481608 yl raltwo 1388- +6I1954195C 0000241608800?6911741250 lddyi setel 1389- +6I1954195C 0000240930800?6006301353 ymtx rauone ymtx1 1390-v is one +6I1954195C 0000241353800?1009681973 ymtx1aupral 1391-compile +6I1954195C 0000241973800?1014771833 aupi 1392-ral i 0000 +6I1954195C 0000241833800?6918890800 ldd ps7 1393-plus v +6I1954195C 0000241889800?6505151722 ralu 1394-beta is u +6I1954195C 0000241722800?1606301939 sloone 1395-minus one +6I1954195C 0000241939800?2015031658 stlbeta 1396- +6I1954195C 0000241658800?2103661772 stuabval 1397-abval zero +6I1954195C 0000241772800?6911751630 lddymtx2 1398- +6I1954195C 0000241630800?2409761058 stdout fpmu3 1399- +6I1954195C 0000241175800?6603561566 ymtx2rslonet 1400-decrement +6I1954195C 0000241566800?6918221225 ldd setjn 1401-jnu +6I1954195C 0000241822800?1509881296 aloalo 1402-compile +6I1954195C 0000241296800?1513241680 alophi 1403-alo phijnu +6I1954195C 0000241680800?6918831313 ldd osgn1 1404- +6I1954195C 0000241883800?6516121567 ralm 1405-r equals +6I1954195C 0000241567800?1608321989 slooone 1406-left paren +6I1954195C 0000241989800?2003400668 stlr ps3g 1407-yl or cl +6I1954195C 0000240954800?6515801231 yn raly cn1 1408-v equals y +6I1954195C 0000240826800?6917301100 zn ldd srn 1409-generate n +6I1954195C 0000241730800?6910681681 lddwy genn 1410- +6I1954195C 0000240751800?2409761780 chkarstdout 1411-alarm if +6I1954195C 0000241780800?6503581616 ralarith 1412-floating +6I1954195C 0000241616800?4508270976 nzealarmout 1413- +6I1954195C 0000241374800?2406911346 chknkstdfini 1414-alarm if k +6I1954195C 0000241346800?6007001708 raunu 1415-and nu +6I1954195C 0000241708800?1001461651 aupk 1416-non zero +6I1954195C 0000241651800?4408270691 nzualarmfini 1417- +6I1954195C 0000240658800?2406441547 chknnstdexit 1418-alarm if n +6I1954195C 0000241547800?3000041758 srt 0004 1419-is more +6I1954195C 0000241758800?1516661872 alotype3 1420- +6I1954195C 0000241872800?4413351476 nzusrn6 1421-than 2000 +6I1954195C 0000241476800?1680011933 slo 8001 1422- +6I1954195C 0000241933800?3000060644 srt 0006exit 1423-digits +6I1954195C 0000241376800?2406911396 chkopstdfini 1424- +6I1954195C 0000241396800?1513498002 alo 8002 1425- +6I1954195C 0000241349800?6799991808 67 9999 1426- +6I1954195C 0000241808800?3500021716 slt 0002 1427- +6I1954195C 0000241716800?1680021275 slo 8002 1428- +6I1954195C 0000241275800?3000021284 srt 0002 1429- +6I1954195C 0000241284800?1509680691 aloral fini 1430- +6I1954195C 0000240890800?2409761830 chktkstdout 1431- +6I1954195C 0000241830800?6501461701 ralk 1432-fetch tk +6I1954195C 0000241701800?1518588002 alo 8002 1433- +6I1954195C 0000241858800?6500420976 ralt0001out 1434- +6I1954195C 0000241173800?2409761880 commastdout 1435-increment +6I1954195C 0000241880800?6503561766 ralonet 1436-jnu +6I1954195C 0000241766800?6919221225 ldd setjn 1437-then +6I1954195C 0000241922800?1606301240 sloone 1438-compile +6I1954195C 0000241240800?1506360942 alostl 1439-stl phijnu +6I1954195C 0000240942800?1513241930 alophi 1440-minus one +6I1954195C 0000241930800?6913341313 ldd osgn1 1441- +6I1954195C 0000241334800?2105241384 stuopsgn 1442- +6I1954195C 0000241384800?6580030976 ral 8003out 1443- +6I1954195C 0000241721800?2409761434 dropkstdout 1444-decrement +6I1954195C 0000241434800?6501461751 ralk 1445-k +6I1954195C 0000241751800?1606301290 sloone 1446- +6I1954195C 0000241290800?2001460976 stlk out 1447- +6I1954195C 0000240893800?2406441597 dropustdexit 1448-decrmnt u +6I1954195C 0000241597800?6505151972 ralu 1449- +6I1954195C 0000241972800?1606301340 sloone 1450- +6I1954195C 0000241340800?2005150644 stlu exit 1451- +6I1954195C 0000241681800?2409761484 genn stdout 1452- +6I1954195C 0000241484800?6913900884 ldd stbta 1453- +6I1954195C 0000241390800?6914461150 ldd srac 1454- +6I1954195C 0000241446800?6913991313 ldd osgn1 1455- +6I1954195C 0000241399800?2105240976 stuopsgnout 1456- +6I1954195C 0000241432800?2406441647 getekstdexit 1457-get present +6I1954195C 0000241647800?6501461801 ralk 1458-ek value +6I1954195C 0000241801800?1519088002 alo 8002 1459- +6I1954195C 0000241908800?6503740644 rale0001exit 1460- +6I1954195C 0000240947800?2409761534 nglftstdout 1461- +6I1954195C 0000241534800?6500351440 rald0004 1462- +6I1954195C 0000241440800?2005291584 stll 1463- +6I1954195C 0000241584800?2104880992 stuv1 1464- +6I1954195C 0000240992800?6503661624 ralabval 1465- +6I1954195C 0000241624800?4516341684 nze nglna 1466- +6I1954195C 0000241634800?6505151674 ralu 1467- +6I1954195C 0000241674800?6917341376 ldd chkop 1468- +6I1954195C 0000241734800?1507681724 alootwo 1469- +6I1954195C 0000241724800?4517841834 nzenglnb 1470- +6I1954195C 0000241834800?6508321784 raloone nglnb 1471- +6I1954195C 0000241784800?2007881042 nglnbstltemp4 1472- +6I1954195C 0000241042800?6909760797 lddout uchge 1473- +6I1954195C 0000241684800?6914900884 nglnaldd stbta 1474- +6I1954195C 0000241490800?6503441449 ralrsl 1475- +6I1954195C 0000241449800?1503521859 alolow 1476- +6I1954195C 0000241859800?6918161313 ldd osgn1 1477- +6I1954195C 0000241816800?2105240976 stuopsgnout 1478- +6I1954195C 0000241274800?2409761884 nuincstdout 1479- +6I1954195C 0000241884800?6507001909 ralnu 1480-nu equals nu +6I1954195C 0000241909800?1080021617 aup 8002 1481-plus one +6I1954195C 0000241617800?1006301540 aupone 1482-and +6I1954195C 0000241540800?2107001460 stunu 1483-jnu equals +6I1954195C 0000241460800?1018661774 aupnu2 1484-jnuminusone +6I1954195C 0000241774800?1519348002 alonu1 8002 1485- +6I1954195C 0000241934800?6919778003 nu1 lddj0001 8003 1486- +6I1954195C 0000241866800?2419770976 nu2 stdj0001out 1487- +6I1954195C 0000241581800?2409761590 numinstdout 1488- +6I1954195C 0000241590800?6507001510 ralnu 1489-nu equals nu +6I1954195C 0000241510800?1606301640 sloone 1490-minus one +6I1954195C 0000241640800?2007000976 stlnu out 1491- +6I1954195C 0000241134800?2406441697 setekstdexit 1492-set ek +6I1954195C 0000241697800?6003581916 rauarith 1493-equal to +6I1954195C 0000241916800?1501461851 alok 1494-arthh +6I1954195C 0000241851800?1515608002 alo 8002 1495- +6I1954195C 0000241560800?2103740644 stue0001exit 1496- +6I1954195C 0000241250800?2406441747 setelstdexit 1497-set variable +6I1954195C 0000241747800?2019311690 stlldsr1 1498-type +6I1954195C 0000241690800?6503401496 ralr 1499-set l equal +6I1954195C 0000241496800?2005290644 stll exit 1500-to r +6I1954195C 0000241225800?2406441797 setjnstdexit 1501-jnu equals +6I1954195C 0000241797800?2005091966 stltemp1 1502-jnu plus +6I1954195C 0000241966800?6507001610 ralnu 1503- +6I1954195C 0000241610800?1516671824 alostjn1 1504-contents +6I1954195C 0000241824800?6917401546 lddstjn2 1505- +6I1954195C 0000241546800?2217408002 sdastjn2 8002 1506-of lower +6I1954195C 0000241667800?6519771790 stjn1ralj0001 1507- +6I1954195C 0000241790800?1505091740 alotemp1stjn2 1508- +6I1954195C 0000241740800?2019771840 stjn2stlj0001 1509- +6I1954195C 0000241840800?3500040644 slt 0004exit 1510- +6I1954195C 0000240884800?2406441847 stbtastdexit 1511- +6I1954195C 0000241847800?6505151874 ralu 1512- +6I1954195C 0000241874800?2015030644 stlbeta exit 1513- +6I1954195C 0000240911800?2406441897 stnonstdexit 1514- +6I1954195C 0000241897800?6918501035 ldd ps100 1515- +6I1954195C 0000241850800?1006340644 aupnononexit 1516- +6I1954195C 0000240836800?6905291890 strellddl 1517-set relation +6I1954195C 0000241890800?2406328003 stdrelat 8003 1518-type +6I1954195C 0000241223800?2406911596 tkop stdfini 1519-store opn +6I1954195C 0000241596800?6001461901 rauk 1520-in tk +6I1954195C 0000241901800?1016601717 auptkop1 1521-and +6I1954195C 0000241717800?6903408003 lddr 8003 1522-exit from +6I1954195C 0000241660800?2400420691 tkop1stdt0001fini 1523-fini +6I1954195C 0000240797800?2406911646 uchgestdfini 1524-u equals u +6I1954195C 0000241646800?6505151924 ralu 1525-minus one +6I1954195C 0000241924800?1606301695 sloone chge1 1526- +6I1954195C 0000240332800?2005291940 larm stll 1527-set error +6I1954195C 0000241940800?2003400827 stlr alarm 1528-identifctn +6I1954195C 0000240827800?6000001710 alarmrau 0000 1529-alarm +6I1954195C 0000241710800?3500011767 slt 0001 1530-subroutine +6I1954195C 0000241767800?1505291990 alol 1531-displays +6I1954195C 0000241990800?3500031499 slt 0003 1532-l r and +6I1954195C 0000241499800?1503401696 alor 1533-statement +6I1954195C 0000241696800?3500021760 slt 0002 1534-nr +6I1954195C 0000241760800?0112341234 hlt 1234ps 1535- +6I1954195C 0000240567800?6503831092 end rala0001 1536-end and fnlp +6I1954195C 0000241092800?3000041810 srt 0004 1537-punchabcons +6I1954195C 0000241810800?2019551860 stl 1955 1538-and +6I1954195C 0000241860800?6019511910 rau 1951 1539-reservation +6I1954195C 0000241910800?1003841142 aupa0002 1540-cards +6I1954195C 0000241142800?1003841192 aupa0002 1541- +6I1954195C 0000241192800?2103851242 stua0003 1542- +6I1954195C 0000241242800?1019521817 aup 1952 1543- +6I1954195C 0000241817800?1003841292 aupa0002 1544- +6I1954195C 0000241292800?2103861342 stua0004 1545- +6I1954195C 0000241342800?1019531867 aup 1953 1546- +6I1954195C 0000241867800?1003841392 aupa0002 1547- +6I1954195C 0000241392800?6917460911 ldd stnon 1548- +6I1954195C 0000241746800?2119801442 stuw0004 1549- +6I1954195C 0000241442800?6506341492 ralnonon 1550- +6I1954195C 0000241492800?2119811542 stuw0005 1551- +6I1954195C 0000241542800?2119821592 stuw0006 1552- +6I1954195C 0000241592800?2019791642 stlw0003 1553- +6I1954195C 0000241642800?6008831692 raunono 1554- +6I1954195C 0000241692800?3500041917 slt 0004 1555- +6I1954195C 0000241917800?2119781742 stuw0002 1556- +6I1954195C 0000241742800?6000361792 raud0005 1557- +6I1954195C 0000241792800?2119771842 stuw0001 1558- +6I1954195C 0000241842800?6917960638 ldd ps133 1559- +6I1954195C 0000241796800?6003831892 raua0001apch4 1560- +6I1954195C 0000241892800?3000041967 apch4srt 0004 1561- +6I1954195C 0000241967800?6919740911 ldd stnon 1562- +6I1954195C 0000241974800?1000361942 aupd0005 1563- +6I1954195C 0000241942800?2119771992 stuw0001 1564- +6I1954195C 0000241992800?6503831846 rala0001 1565- +6I1954195C 0000241846800?1515498002 alo 8002 1566- +6I1954195C 0000241549800?6503831896 rala0001 1567- +6I1954195C 0000241896800?2005091325 stltemp1 1568- +6I1954195C 0000241325800?4619461996 bmiapch1apch2 1569- +6I1954195C 0000241996800?1003541375 apch2aupcntrl 1570- +6I1954195C 0000241375800?2119861947 stuw0010apch3 1571- +6I1954195C 0000241946800?6000391996 apch1raud0008apch2 1572- +6I1954195C 0000241947800?6705091604 apch3ramtemp1ckldd 1573- +6I1954195C 0000241604800?6980031425 cklddldd 8003 1574- +6I1954195C 0000241425800?2205091475 sdatemp1 1575- +6I1954195C 0000241475800?1080031997 aup 8003 1576- +6I1954195C 0000241997800?2304900848 siatemp2 1577- +6I1954195C 0000240848800?3500021525 slt 0002 1578- +6I1954195C 0000241525800?6080030898 rau 8003 1579- +6I1954195C 0000240898800?6910521035 ldd ps100 1580- +6I1954195C 0000241052800?1008830948 aupnono 1581- +6I1954195C 0000240948800?3500041575 slt 0004 1582- +6I1954195C 0000241575800?2119780998 stuw0002 1583- +6I1954195C 0000240998800?6005091625 rautemp1 1584- +6I1954195C 0000241625800?3000041048 srt 0004 1585- +6I1954195C 0000241048800?6911020911 ldd stnon 1586- +6I1954195C 0000241102800?2119791098 stuw0003 1587- +6I1954195C 0000241098800?6004901148 rautemp2 1588- +6I1954195C 0000241148800?6911520911 ldd stnon 1589- +6I1954195C 0000241152800?2119801198 stuw0004 1590- +6I1954195C 0000241198800?2019811248 stlw0005 1591- +6I1954195C 0000241248800?6912020638 ldd ps133 1592- +6I1954195C 0000241202800?6003831298 raua0001 1593- +6I1954195C 0000241298800?1106301348 supone 1594- +6I1954195C 0000241348800?2103831398 stua0001 1595- +6I1954195C 0000241398800?4418921252 nzuapch4fnlpc 1596- +6I1954195C 0000241252800?2119771448 fnlpcstuw0001 1597- +6I1954195C 0000241448800?2119781498 stuw0002 1598- +6I1954195C 0000241498800?2101461599 stuk 1599- +6I1954195C 0000241599800?2107101675 stujay fnl1 1600- +6I1954195C 0000241675800?6007101725 fnl1 raujay fnl2 1601- +6I1954195C 0000241725800?1003561775 fnl2 auponet 1602- +6I1954195C 0000241775800?2103721825 stugamma 1603- +6I1954195C 0000241825800?6015481875 rautype4 1604- +6I1954195C 0000241875800?2119861598 stuw0010 1605- +6I1954195C 0000241598800?6513021925 ralfnl3 1606- +6I1954195C 0000241925800?1501468002 alok 8002 1607- +6I1954195C 0000241302800?6500321648 fnl3 rald0001 1608- +6I1954195C 0000241648800?2019791698 stlw0003 1609- +6I1954195C 0000241698800?2004901748 stltemp2 1610- +6I1954195C 0000241748800?6003721798 raugamma 1611- +6I1954195C 0000241798800?6913521035 ldd ps100 1612- +6I1954195C 0000241352800?1019751848 aupyou 1613- +6I1954195C 0000241848800?2119801898 stuw0004 1614- +6I1954195C 0000241898800?6914020638 ldd ps133 1615- +6I1954195C 0000241402800?6515261948 ralfnl4 1616- +6I1954195C 0000241948800?1501468002 alok 8002 1617- +6I1954195C 0000241526800?6519511576 fnl4 ral 1951 1618- +6I1954195C 0000241576800?2005091626 stltemp1 1619- +6I1954195C 0000241626800?1503721998 alogamma 1620- +6I1954195C 0000241998800?2007101676 stljay 1621- +6I1954195C 0000241676800?1603721649 slogamma 1622- +6I1954195C 0000241649800?4514521726 nzefnl5 1623- +6I1954195C 0000241726800?6580011699 ral 8001 1624- +6I1954195C 0000241699800?1603561776 sloonet 1625- +6I1954195C 0000241776800?2003721452 stlgammafnl5 1626- +6I1954195C 0000241900800?7119771749 fnl6 pchw0001 1627- +6I1954195C 0000241749800?6001461502 rauk 1628- +6I1954195C 0000241502800?1006301799 aupone 1629- +6I1954195C 0000241799800?2101461849 stuk 1630- +6I1954195C 0000241849800?1115521826 supfive 1631- +6I1954195C 0000241826800?4416759876 nzufnl1 9876 1632-finish +6I1954195C 0000241452800?6016661876 fnl5 rautype3 1633- +6I1954195C 0000241876800?2119861899 stuw0010 1634- +6I1954195C 0000241899800?6007101926 raujay 1635- +6I1954195C 0000241926800?6919490911 ldd stnon 1636- +6I1954195C 0000241949800?2119801950 stuw0004 1637- +6I1954195C 0000241950800?6003721602 raugamma 1638- +6I1954195C 0000241602800?1003561976 auponet 1639- +6I1954195C 0000241976800?6916520911 ldd stnon 1640- +6I1954195C 0000241652800?1004901702 auptemp2 1641- +6I1954195C 0000241702800?2119791900 stuw0003fnl6 1642- +6I1954195C 0000240356800?0000000001 onet 00 0000 0001 1643- +6I1954195C 0000241823800?0000000002 twot 00 0000 0002 1644- +6I1954195C 0000241091800?0000000004 fourt 00 0000 0004 1646- +6I1954195C 0000240922800?0000000005 fivet 00 0000 0005 1647- +6I1954195C 0000240330800?0000000006 sixt 00 0000 0006 1648- +6I1954195C 0000241160800?0000000007 sevnt 00 0000 0007 1649- +6I1954195C 0000241559800?0000000008 eigtt 00 0000 0008 1650- +6I1954195C 0000241862800?0000000009 ninet 00 0000 0009 1651- +6I1954195C 0000241845800?0000000010 tent 00 0000 0010 1652- +6I1954195C 0000241494800?0000000012 twlvt 00 0000 0012 1653- +6I1954195C 0000241659800?0000000014 frtnt 00 0000 0014 1654- +6I1954195C 0000241224800?0000000016 sxtnt 00 0000 0016 1655- +6I1954195C 0000240696800?0000000017 svntt 00 0000 0017 1656- +6I1954195C 0000240592800?0000000019 nnten 00 0000 0019 1657- +6I1954195C 0000241000800?0000000026 twsix 00 0000 0026 1658- +6I1954195C 0000241465800?0000000063 sixtr 00 0000 0063 1659- +6I1954195C 0000240360800?0000000090 ninty 00 0000 0090 1660- +6I1954195C 0000240630800?0000010000 one 00 0001 0000 1661- +6I1954195C 0000240148800?0000020000 two 00 0002 0000 1662- +6I1954195C 0000241131800?0000030000 three 00 0003 0000 1663- +6I1954195C 0000241200800?0000040000 four 00 0004 0000 1664- +6I1954195C 0000241552800?0000050000 five 00 0005 0000 1665- +6I1954195C 0000240520800?0000060000 six 00 0006 0000 1666- +6I1954195C 0000241589800?0000070000 seven 00 0007 0000 1667- +6I1954195C 0000240357800?0000510000 ffty1 00 0051 0000 1668- +6I1954195C 0000240832800?0100000000 oone 01 0000 0000 1669- +6I1954195C 0000240768800?0200000000 otwo 02 0000 0000 1670- +6I1954195C 0000240888800?0300000000 otrey 03 0000 0000 1671- +6I1954195C 0000240528800?0500000000 ofive 05 0000 0000 1672- +6I1954195C 0000241431800?4100000000 frone 41 0000 0000 1673- +6I1954195C 0000241054800?5000000000 fiveo 50 0000 0000 1674- +6I1954195C 0000241568800?7200000000 svty2 72 0000 0000 1675- +6I1954195C 0000240874800?9000000000 nineo 90 0000 0000 1676- +6I1954195C 0000240988800?1500000000 alo 15 0000 0000 1677- +6I1954195C 0000241832800?1900000000 mpy 19 0000 0000 1678- +6I1954195C 0000240636800?2000000000 stl 20 0000 0000 1679- +6I1954195C 0000241132800?4500000000 nze 45 0000 0000 1680- +6I1954195C 0000241339800?4600000000 bmi 46 0000 0000 1681- +6I1954195C 0000241116800?6000000000 rau 60 0000 0000 1682- +6I1954195C 0000241609800?6400000000 dvr 64 0000 0000 1683- +6I1954195C 0000240968800?6500000000 ral 65 0000 0000 1684- +6I1954195C 0000240344800?6600000000 rsl 66 0000 0000 1685- +6I1954195C 0000240894800?6700000000 ram 67 0000 0000 1686- +6I1954195C 0000240776800?0050000000 abcon 00 5000 0000 1687- +6I1954195C 0000241804800?0000010000 acc 00 0001 0000 1688- +6I1954195C 0000240737800?6163630000 accum acc 1689- +6I1954195C 0000241277800?0030000000 c 00 3000 0000 1690- +6I1954195C 0000240354800?0000008000 cntrl 00 0000 8000 1691- +6I1954195C 0000240690800?0000009000 ext 00 0000 9000 1692- +6I1954195C 0000240870800?0000000501 fixnr 00 0000 0501 1693- +6I1954195C 0000241016800?0040004000 go 00 4000 4000 1694- +6I1954195C 0000241415800?6900018002 ldac ldd 0001 8002 1695- +6I1954195C 0000241477800?0010000000 i 00 1000 0000 1696- +6I1954195C 0000240918800?7361616161 locus 73 6161 6161 1697- +6I1954195C 0000240352800?0080020000 low 00 8002 0000 1698- +6I1954195C 0000240980800?0000008002 low1 00 0000 8002 1699- +6I1954195C 0000241612800?7400000000 m m 1700- +6I1954195C 0000240029800?0000000025 max 00 0000 0025 1701- +6I1954195C 0000240542800?0000000500 maxe 00 0000 0500 1702- +6I1954195C 0000240671800?0001430000 maxu 00 0143 0000 1703- +6I1954195C 0000240883800?0000009090 nono 00 0000 9090 1704- +6I1954195C 0000240634800?0090909090 nonon 00 9090 9090 1705- +6I1954195C 0000241317800?7700000000 p p 1706- +6I1954195C 0000241324800?0060000000 phi 00 6000 0000 1707- +6I1954195C 0000240499800?3510030000 slti3 35 1003 0000 1708- +6I1954195C 0000241004800?2000010000 stla1stl 0001 0000 1709- +6I1954195C 0000240030800?0600510000 store 06 0051 0000 1710- +6I1954195C 0000240853800?7361616161 temp9 73 6161 6161 1711- +6I1954195C 0000241666800?8000008000 type3 80 0000 8000 1712- +6I1954195C 0000241548800?8800008000 type4 88 0000 8000 1713- +6I1954195C 0000241354800?0070000000 w 00 7000 0000 1714- +6I1954195C 0000241059800?6966000000 wdif 69 6600 0000 1715- +6I1954195C 0000241580800?0020000000 y 00 2000 0000 1716- +6I1954195C 0000241975800?8490909090 you u0000 1717- +6I1954195C 0000241407800?8900000000 z z 1718- +6I1954195C 0000240041800?0000000000 psi 00 0000 0000 - +6I1954195C 0000240373800?0000000000 tally 00 0000 0000 - +6I1954195C 0000240372800?0000000000 gamma 00 0000 0000 - +6I1954195C 0000240529800?0000000000 l 00 0000 0000 - +6I1954195C 0000240515800?0000000000 u 00 0000 0000 - +6I1954195C 0000240531800?0000000000 quota 00 0000 0000 - +6I1954195C 0000240488800?0000000000 v1 00 0000 0000 - +6I1954195C 0000240146800?0000000000 k 00 0000 0000 - +6I1954195C 0000240700800?0000000000 nu 00 0000 0000 - +6I1954195C 0000240484800?0000000000 n 00 0000 0000 - +6I1954195C 0000240342800?0000000000 nbar 00 0000 0000 - +6I1954195C 0000240750800?0000000000 mu 00 0000 0000 - +6I1954195C 0000240358800?0000000000 arith 00 0000 0000 - +6I1954195C 0000240366800?0000000000 abval 00 0000 0000 - +6I1954195C 0000240524800?0000000000 opsgn 00 0000 0000 - +6I1954195C 0000240632800?0000000000 relat 00 0000 0000 - +6I1954195C 0000240340800?0000000000 r 00 0000 0000 - +6I1954195C 0000240538800?0000000000 intgr 00 0000 0000 - +6I1954195C 0000240509800?0000000000 temp1 00 0000 0000 - +6I1954195C 0000240516800?0000000000 ubar 00 0000 0000 - +6I1954195C 0000240490800?0000000000 temp2 00 0000 0000 - +6I1954195C 0000240709800?0000000000 temp3 00 0000 0000 - +6I1954195C 0000240788800?0000000000 temp4 00 0000 0000 - +6I1954195C 0000241299800?0000000000 temp5 00 0000 0000 - +6I1954195C 0000241326800?0000000000 temp6 00 0000 0000 - +6I1954195C 0000240710800?0000000000 jay 00 0000 0000 - +6I1954195C 0000241503800?0000000000 beta 00 0000 0000 - +6I1954195C 0000241047800?0000000000 flop1 00 0000 0000 - +6I1954195C 0000241831800?0000000000 chi 00 0000 0000 - +6I1954195C 0000241188800?0000000000 star 00 0000 0000 - +6I1954195C 0000240746800?0000000000 el 00 0000 0000 - +6I1954195C 0000241334800?2105241902 stuopsgn 1442- +6I1954195C 0000241902800?2404881384 stdv1 1384 1442- +6I1954195C 0000241065800?1103831137 supa0001 341-out if jay +6I1954195C 0000241137800?2108450887 stunewab 0887 a341- +6I1954195C 0000240987800?6906900893 bs ldd dropu 603-dcrmnt u +6I1954195C 0000240690800?6508450298 ralnewab a603- +6I1954195C 0000240298800?4507860640 nzebsa 0640 b603- +6I1954195C 0000241485800?2003830786 stla0001bsa 606- +6I1954195C 0000240786800?6004841039 bsa raun bn1 607- +6I1954195C 0000241413800?6913771038 ldd 1377ldsr 650-compile +6I1954195C 0000240845800?0000000000 newab 00 0000 0000 - +6I1954195C 0000240940800?6918021094 lddml1a tknz1 793-tknz1and ml1 +6I1954195C 0000241178800?6918021194 my1 lddml1a tknz2 799- +6I1954195C 0000241802800?1680021852 ml1a slo 8002 a793- +6I1954195C 0000241852800?2003661291 stlabvalml1 b793- +6I1954195C 0000241139800?6919711681 ldd 1971genn 804-ral ajay diff --git a/I650/sw/it_compiler_listing.txt b/I650/sw/it_compiler_listing.txt new file mode 100644 index 00000000..daa23bbc --- /dev/null +++ b/I650/sw/it_compiler_listing.txt @@ -0,0 +1,1789 @@ + 1 5 CARNEGIE TECH COMPILER IT 0000 00 0000 0000 + 2 5 MARCH 15 1957 0000 00 0000 0000 + 3 1 0000 0024 0000 00 0000 0000 + 4 4 D U0031 0000 00 0000 0000 + 5 3 D0032 0040 0000 00 0000 0000 + 6 3 T0042 0050 0000 00 0000 0000 + 7 1 0051 0143 0000 00 0000 0000 + 8 1 0150 0197 0000 00 0000 0000 + 9 1 0200 0247 0000 00 0000 0000 + 10 1 0250 0297 0000 00 0000 0000 + 11 1 0300 0329 0000 00 0000 0000 + 12 3 O0600 0623 0000 00 0000 0000 + 13 3 E0374 0382 0000 00 0000 0000 + 14 3 A0383 0482 0000 00 0000 0000 + 15 3 M0500 0503 0000 00 0000 0000 + 16 3 Q0550 0563 0000 00 0000 0000 + 17 3 N0568 0591 0000 00 0000 0000 + 18 1 1951 1960 RESRVE READ 0000 00 0000 0000 + 19 3 J1977 1986 J BAND 0000 00 0000 0000 + 20 3 W1977 1986 W BAND 0000 00 0000 0000 + 21 4 S 1957 0000 00 0000 0000 + 22 4 PC 1958 0000 00 0000 0000 + 23 4 FFBIT 1959 0000 00 0000 0000 + 24 4 TAU 1960 0000 00 0000 0000 + 25 4 PS U1234 0000 00 0000 0000 + 26 4 READA U1111 0000 00 0000 0000 + 27 4 START U1999 0000 00 0000 0000 + 28 START RD1 0051 READ 1999 70 0051 0351 + 29 RAU CNTRL 0351 60 0354 0359 + 30 STU W0010 HEADER CARD 0359 21 1986 0339 + 31 RAL S 0339 65 1957 0361 + 32 LDD SR3 0361 69 0364 0367 + 33 LDD SR3ED 0364 69 0517 0370 + 34 RAU SIX ABSOLUTE 0517 60 0520 0025 + 35 STU A0001 PS0 VALUE COUNT 0025 21 0383 0336 + 36 PS0 STL PSI CLEAR 0336 20 0041 0144 + 37 LDD TAU1 0144 69 0147 0350 + 38 STD TAU PS 0350 24 1960 1234 + 39 PS RAU FFBIT CHECK LAST 1234 60 1959 0363 + 40 NZU END READA STATEMENT 0363 44 0567 1111 + 41 READA RD1 0051 FIRST READ 1111 70 0051 0651 + 42 RAL 0057 STORE STMNT 0651 65 0057 0511 + 43 STL 0000 NUMBER 0511 20 0000 0353 + 44 RAL ONET TALLY AND 0353 65 0356 0661 + 45 STL FLAG FLAG SET TO 0661 20 0365 0368 + 46 STL TALLY PS1A ONE 0368 20 0373 0026 + 47 PS1 RD1 0051 PS1A NEXT READ 0650 70 0051 0026 + 48 PS1A RAU MAX ALARM IF 0026 60 0029 0333 + 49 SUP TALLY TALLY IS 0333 11 0373 0027 + 50 NZU LARM MAXIMUM 0027 44 0331 0332 + 51 RAL TALLY KK XXXX YYYY 0331 65 0373 0527 + 52 ALO STORE IS 0527 15 0030 0335 + 53 LDD PS2 SR1 0600510000 0335 69 0338 0341 + 54 PS2 RAL TALLY TALLY PLUS 0338 65 0373 0627 + 55 ALO SIXT SIX IS TALLY 0627 15 0330 0485 + 56 STL TALLY GAMMA EQUALS 0485 20 0373 0526 + 57 RAU 0056 WORD6 TIMES 0526 60 0056 0711 + 58 SRT 0002 PS2B 01 0711 30 0002 0667 + 59 PS2B STU GAMMA L EQUALS END 0667 21 0372 0525 + 60 STL L SYMBOL 0525 20 0529 0532 + 61 RAU 8002 0532 60 8002 0491 + 62 SUP RSL RECYCLE IF L 0491 11 0344 0149 + 63 NZU PS1 IS NOT F 0149 44 0650 0504 + 64 RAL FFTY1 INITIALIZE U 0504 65 0357 0761 + 65 STL U IF L IS F 0761 20 0515 0518 + 66 RAL TALLY TALLY MINUS 0518 65 0373 0677 + 67 SLO ONET ONE 0677 16 0356 0811 + 68 SLT 0004 TALLY IN DTA 0811 35 0004 0371 + 69 STL TALLY QUOTA EQUALS 0371 20 0373 0626 + 70 STL QUOTA PS2A TALLY 0626 20 0531 0334 + 71 PS2A STU V1 0334 21 0488 0541 + 72 STU K PRESET ALL 0541 21 0146 0199 + 73 STU T0001 PERTINENT 0199 21 0042 0145 + 74 STU NU COUNTERS 0145 21 0700 0653 + 75 STU J0001 TO ZERO 0653 21 1977 0530 + 76 STU N 0530 21 0484 0337 + 77 STU NBAR 0337 21 0342 0345 + 78 STU MU 0345 21 0750 0703 + 79 STU ARITH 0703 21 0358 0861 + 80 STU ABVAL 0861 21 0366 0369 + 81 STU OPSGN 0369 21 0524 0727 + 82 STU RELAT 0727 21 0632 0535 + 83 STU R PS3 R EQUALS 0 0535 21 0340 0343 + 84 PS3 RAU GAMMA 0343 60 0372 0777 + 85 NZU PS5 OUT IF GAMMA 0777 44 0631 0682 + 86 SRT 0002 IS ZERO 0631 30 0002 0487 + 87 STU GAMMA FETCH NEXT 0487 21 0372 0625 + 88 RAU 8002 SYMBOL S 0625 60 8002 0483 + 89 NZU PS3 RECYCLE IF S 0483 44 0537 0343 + 90 ALO L ZERO IF NOT 0537 15 0529 0533 + 91 STL R PS3D R EQUALS L 0533 20 0340 0493 + 92 PS3D STU L PS3A L EQUAL DS 0493 21 0529 0732 + 93 PS3A RAL 8003 IF L EQUALS 0732 65 8003 0489 + 94 SRT 0008 AN INTEGER 0489 30 0008 0507 + 95 SLO NINTY SET INTGR 0507 16 0360 0565 + 96 BMI PS3G PS3C TO L AND L 0565 46 0668 0519 + 97 PS3G RAU L PS3B EQUAL TO 99 0668 60 0529 0633 + 98 PS3C RAU L THEN RETURN 0519 60 0529 0683 + 99 STU INTGR TO PS3B 0683 21 0538 0641 + 100 RAU NINTY 0641 60 0360 0665 + 101 SRT 0001 0665 30 0001 0521 + 102 AUP NINTY PS3BA 0521 10 0360 0715 + 103 PS3B SRT 0008 GENERATE 0633 30 0008 0701 + 104 ALO R ENTRY 0701 15 0340 0495 + 105 SRT 0004 TO SYMBOL 0495 30 0004 0355 + 106 STL TEMP1 PAIR TABLE 0355 20 0509 0362 + 107 RAL PS4 FETCH SWITCH 0362 65 0765 0669 + 108 LDD TEMP1 FROM TABLE 0669 69 0509 0512 + 109 TLU 0150 8002 IF SWITCH IS 0512 84 0150 8002 + 110 PS4 RAU 0000 ADMISSABLE 0765 60 0000 0505 + 111 SUP TEMP1 GO TO 0505 11 0509 0513 + 112 SRT 0004 GENERATORS 0513 30 0004 0523 + 113 NZU ALARM ALARM IF NOT 0523 44 0827 0028 + 114 SLT 0004 8003 0028 35 0004 8003 + 115 PS5 RAU TALLY DECREMENT 0682 60 0373 0877 + 116 SUP ONE PS5A TALLY IF 0877 11 0630 0635 + 117 PS5A STU TALLY GAMMA ZERO 0635 21 0373 0676 + 118 NZU PS10 OUT IF TALLY 0676 44 0629 0680 + 119 AUP PS6 8003 IS ZERO IF 0629 10 0782 8003 + 120 PS6 RAU 0000 NOT GAMMA IS 0782 60 0000 0655 + 121 STU GAMMA PS3 NEXT WORD 0655 21 0372 0343 + 122 PS7 STD PS8 STORE 0800 24 0753 0506 + 123 BMI PS7A GENERATED 0506 46 0659 0510 + 124 SLO U PS7B INDTRUCTION 0659 16 0515 0719 + 125 PS7A ALO U PS7B AND 0510 15 0515 0719 + 126 PS7B LDD PS7C INCREMENT U 0719 69 0522 0675 + 127 SDA PS7C 8001 BY ONE 0675 22 0522 8001 + 128 PS7C STU 0000 AND RETURN 0522 21 0000 0803 + 129 RAL U TO GENERATOR 0803 65 0515 0769 + 130 ALO ONE IF STORAGE 0769 15 0630 0685 + 131 STL U NOT EXCEEDED 0685 20 0515 0718 + 132 SLO MAXU OTHERWISE 0718 16 0671 0725 + 133 BMI PS8 ALARM 0725 46 0753 0679 + 134 RAL OONE LARM 0679 65 0832 0332 + 135 PS8 HLT 0000 PS8 0753 01 0000 0753 + 136 PS10 RAL L IF TALLY IS 0680 65 0529 0733 + 137 STL R ZERO SET LR 0733 20 0340 0543 + 138 RAU NINTY PS3BA EQUAL TO 90L 0543 60 0360 0715 + 139 PS3BA SLT 0008 AND ENTER 0715 35 0008 0783 + 140 STU L PS3B GEN TABLE 0783 21 0529 0633 + 141 PS12 RAU TEMP9 FROM END OF 0850 60 0853 0657 + 142 STU W0004 STATEMENT 0657 21 1980 0833 + 143 STL W0005 GENERATORS 0833 20 1981 0534 + 144 RAU 0000 0534 60 0000 0705 + 145 LDD STNON FORM ENTRY 0705 69 0508 0911 + 146 AUP D0004 FOR 0508 10 0035 0539 + 147 STU W0001 STATEMENT 0539 21 1977 0730 + 148 RAL NONO DICTIONARY 0730 65 0883 0637 + 149 SLT 0004 0637 35 0004 0347 + 150 STL W0002 0347 20 1978 0681 + 151 RAU NONON 0681 60 0634 0639 + 152 STL W0006 0639 20 1982 0735 + 153 STU W0003 0735 21 1979 0882 + 154 LDD PS133 0882 69 0785 0638 + 155 RAU TEMP9 0785 60 0853 0707 + 156 STU W0001 0707 21 1977 0780 + 157 RAL FFTY1 UBAR EQUALS 0780 65 0357 0961 + 158 STL UBAR FIFTYONE 0961 20 0516 0819 + 159 SLO PC ALARM IF 0819 16 1958 0663 + 160 SLO U STORAGE 0663 16 0515 0869 + 161 SLO A0001 EXCEEDED 0869 16 0383 0687 + 162 ALO 1956 BUT 0687 15 1956 1011 + 163 BMI PS13C WITH 1011 46 0815 0514 + 164 RAU O0002 OPTION OF 0815 60 0601 0755 + 165 SRT 0006 FINAL 0755 30 0006 0919 + 166 STL W0002 PRINTOUT 0919 20 1978 0731 + 167 STL FFBIT 0731 20 1959 0662 + 168 LDD PS133 0662 69 0865 0638 + 169 RAL OTWO LARM 0865 65 0768 0332 + 170 PS13C RAL TALLY 0514 65 0373 0927 + 171 SLO QUOTA 0927 16 0531 0835 + 172 NZE PS13A STORE 0835 45 0688 0689 + 173 ALO 8001 ORIGINAL 0688 15 8001 0545 + 174 ALO TWO STATEMENT 0545 15 0148 0903 + 175 STL TALLY AS 0903 20 0373 0726 + 176 ALO PS13B COMMENTS 0726 15 0729 0933 + 177 LDD PS14 SR1 0933 69 0486 0341 + 178 PS13A STU W0005 0689 21 1981 0684 + 179 STD W0006 PS14 0684 24 1982 0486 + 180 PS13B 01 9999 W0005 0729 01 9999 1981 + 181 PS133 STD FINI 0638 24 0691 0494 + 182 RAL PC INCREMENT 0494 65 1958 0713 + 183 ALO ONE PROGRAM 0713 15 0630 0935 + 184 STL PC COUNTER 0935 20 1958 1061 + 185 STL W0009 1061 20 1985 0738 + 186 PCH W0001 AND 0738 71 1977 0977 + 187 STU W0001 FINI PUNCH 0977 21 1977 0691 + 188 PS14 RAU UBAR FETCH WORD 0486 60 0516 0721 + 189 AUP PS14A 8003 IN UBAR 0721 10 0624 8003 + 190 PS14A RAL 0000 0624 65 0000 0805 + 191 STL TEMP3 0805 20 0709 0712 + 192 BMI PS16 IF WORD IS 0712 46 0915 0566 + 193 RAL UBAR NEGATIVE 0915 65 0516 0771 + 194 SLO FFTY1 PS15 ASSIGN IT 0771 16 0357 1161 + 195 PS15 SRT 0004 A SYMBOLIC 1161 30 0004 0821 + 196 LDD PS15A SR3 LOCATION 0821 69 0674 0367 + 197 PS15A AUP TEMP9 0674 10 0853 0757 + 198 STU W0001 0757 21 1977 0830 + 199 RAM TEMP3 PS16 0830 67 0709 0566 + 200 PS16 SLT 0002 0566 35 0002 0673 + 201 STL TEMP3 EXTRACT 0673 20 0709 0762 + 202 RAU 8003 OPERATION 0762 60 8003 0969 + 203 SLT 0006 FROM WORD 0969 35 0006 0983 + 204 STU TEMP4 0983 21 0788 0741 + 205 ALO PS18 FETCH OP 0741 15 0544 0249 + 206 STU TEMP1 MNEMONIC 0249 21 0509 0812 + 207 TLU O0001 8002 FROM TABLE 0812 84 0600 8002 + 208 PS18 RAU 0000 AND CHECK 0544 60 0000 0855 + 209 SUP TEMP4 FOR ADMISS 0855 11 0788 0593 + 210 SRT 0006 STORE OP IF 0593 30 0006 0807 + 211 NZU ALARM ADMISSABLE 0807 44 0827 0862 + 212 STL W0002 PS27 0862 20 1978 0781 + 213 PS27 RAL TEMP3 EXTRACT 0781 65 0709 0763 + 214 SLT 0004 DATA ADDRESS 0763 35 0004 0723 + 215 STL TEMP3 FROM WORD 0723 20 0709 0912 + 216 RAU 8003 OUT IF D IS 0912 60 8003 1019 + 217 NZU PS19 NEXT LOC 1019 44 0773 0724 + 218 SRT 0001 OUT IF D IS 0773 30 0001 0779 + 219 NZU PS18A NOT ACCUM 0779 44 1033 0734 + 220 RAU ACCUM PS19 0734 60 0737 0724 + 221 PS18A SRT 0002 OUT IF D NOT 1033 30 0002 0739 + 222 NZU PS20 ADDRSS WITHN 0739 44 0643 0594 + 223 SRT 0003 STATEMENT 0594 30 0003 0953 + 224 SLO FFTY1 GENERATE 0953 16 0357 1211 + 225 SRT 0004 MNEMONIC 1211 30 0004 0871 + 226 LDD SR3 IF D IS IN 0871 69 0774 0367 + 227 AUP TEMP9 PS19 STATEMENT 0774 10 0853 0724 + 228 PS20 STL TEMP1 GENERATE 0643 20 0509 0962 + 229 RAU 8003 MNEMONIC IF 0962 60 8003 1069 + 230 SLT 0004 D IS NEITHR 1069 35 0004 0829 + 231 AUP PS23 8003 NEXT NOR IN 0829 10 0932 8003 + 232 PS23 RAU D STATEMENT 0932 60 0031 0985 + 233 STU TEMP2 0985 21 0490 0693 + 234 SUP D0009 OUT IF D IS 0693 11 0040 0595 + 235 NZU PS23A NOT EXTNSN 0595 44 0299 0900 + 236 RAL TEMP1 IF EXTENSION 0900 65 0509 0813 + 237 SRT 0007 GENERATE 0813 30 0007 0879 + 238 LDD SR3 MNEMONIC 0879 69 0982 0367 + 239 AUP D0009 PS19 0982 10 0040 0724 + 240 PS23A RAU TEMP1 0299 60 0509 0863 + 241 SRT 0007 GEN NUMERIC 0863 30 0007 0929 + 242 LDD PS100 TAG IF DATA 0929 69 1032 1035 + 243 NZE PS23B IS NOT 1032 45 0536 0787 + 244 AUP NONON PS23B EXTENSION 0536 10 0634 0787 + 245 PS23B AUP TEMP2 PS19 0787 10 0490 0724 + 246 PS19 STU W0004 0724 21 1980 1083 + 247 RSU FLAG PS25 NEGATIVE 1083 61 0365 1119 + 248 FLAG 10 0000 0000 FLAG IF DATA 0365 10 0000 0000 + 249 PS25 STU FLAG POSITIVE 1119 21 0365 0818 + 250 BMI PS26 FLAG IF INST 0818 46 0921 0672 + 251 RAU W0004 RECYCLE 0921 60 1980 1085 + 252 STU W0003 PS27 IF D IF NOT 1085 21 1979 0781 + 253 PS26 RAU UBAR PUNCH AND 0672 60 0516 0971 + 254 AUP ONE RECYCLE TO 0971 10 0630 1135 + 255 STU UBAR PS13C IF 1135 21 0516 1169 + 256 SUP U UDAR NOT 1169 11 0515 1219 + 257 NZU PS28 EQUAL TO 1219 44 0823 0824 + 258 LDD PS13C PS133 U 0823 69 0514 0638 + 259 PS28 RAL S S EQUALS S 0824 65 1957 1261 + 260 ALO ONET PLUS ONE 1261 15 0356 1311 + 261 STL S AND FORM 1311 20 1957 0660 + 262 LDD SR3 NEXT LOCATN 0660 69 0913 0367 + 263 LDD SR3ED 0913 69 0666 0370 + 264 RAU W0003 0666 60 1979 1133 + 265 NZU PS30 PS29 1133 44 0837 0838 + 266 PS30 RAU W0004 0837 60 1980 1185 + 267 NZU PS32 PS31 1185 44 0789 0540 + 268 PS32 LDD TAU PS133 0789 69 1960 0638 + 269 PS29 RAU TEMP9 0838 60 0853 0857 + 270 STU W0003 PS30 0857 21 1979 0837 + 271 PS31 RAU TEMP9 0540 60 0853 0907 + 272 STU W0004 PS32 0907 21 1980 0789 + 273 TAU NOP 0000 PS 1960 00 0000 1234 + 274 TAU1 NOP 0000 PS 0147 00 0000 1234 + 275 SR1 STD EXIT SR1E 0341 24 0644 0497 + 276 SR1A SLO INCR SR1E 0950 16 1003 0497 + 277 SR1E SLT 0002 0497 35 0002 1053 + 278 NZU EXIT 1053 44 0957 0644 + 279 SLT 0002 SR1 BLOCKS 0957 35 0002 0963 + 280 LDD SR1D KK CONSEC 0963 69 0716 1269 + 281 SDA SR1D LOCATIONS 1269 22 0716 1319 + 282 SRT 0004 FROM XXXX TO 1319 30 0004 0979 + 283 LDD SR1L YYYY 0979 69 1082 1235 + 284 SDA SR1L 8001 1235 22 1082 8001 + 285 SR1D STD 0000 SR1A 0716 24 0000 0950 + 286 SR1L LDD 0000 SR1D 1082 69 0000 0716 + 287 INCR 00 9998 9999 1003 00 9998 9999 + 288 SR3 STD EXIT SR3 CONVERTS 0367 24 0644 0547 + 289 DIV TWSIX THREE DIGIT 0547 14 1000 1050 + 290 STL TEMP1 NUMBERS INTO 1050 20 0509 1012 + 291 LDD SR3B SR3A TWO LETTER 1012 69 0965 0868 + 292 SR3A STD TEMP2 MNEMONICS 0868 24 0490 0743 + 293 AUP ONET 0743 10 0356 1361 + 294 SRT 0001 1361 30 0001 0717 + 295 NZU SR3A1 0717 44 1021 0722 + 296 SLO NINEO 1021 16 0874 1029 + 297 NZU SR3A2 1029 44 1183 0784 + 298 ALO STL SR3A2 1183 15 0636 0784 + 299 SR3A1 SLT 0001 0722 35 0001 1079 + 300 SUP 8001 TEMP2 1079 11 8001 0490 + 301 SR3A2 ALO NINEO 0784 15 0874 1129 + 302 SLT 0001 TEMP2 1129 35 0001 0490 + 303 SR3B SRT 0002 0965 30 0002 1071 + 304 AUP TEMP1 1071 10 0509 1013 + 305 LDD SR3C SR3A 1013 69 0766 0868 + 306 SR3C SLT 0002 EXIT 0766 35 0002 0644 + 307 SR3ED STD EXIT GENERATE 0370 24 0644 0597 + 308 RAU 8003 SYMBOLIC 0597 60 8003 0905 + 309 SLT 0004 LOCATION 0905 35 0004 1015 + 310 AUP LOCUS FOR NEXT 1015 10 0918 0873 + 311 STU TEMP9 EXIT STATEMENT 0873 21 0853 0644 + 312 SRN STD EXIT SRN FORMS 1100 24 0644 0647 + 313 RAL ARITH NUMBERS 0647 65 0358 1063 + 314 NZE SRN5 OUT IF FLOAT 1063 45 0816 0767 + 315 RAL SRN2 ING POINT 0767 65 0670 0775 + 316 SLO MU FIX ASINTEG 0775 16 0750 0955 + 317 AUP N 8002 ER IF FIXED 0955 10 0484 8002 + 318 SRN2 SRT 0010 POINT 0670 30 0010 1027 + 319 RAU 8003 SRN4 1027 60 8003 1285 + 320 SRN5 RAL MU FLOATING PT 0816 65 0750 1005 + 321 ALO FFTY1 EXPONENT IS 1005 15 0357 1411 + 322 SRT 0004 MU PLUS 1411 30 0004 1121 + 323 ALO NBAR FORTY NINE 1121 15 0342 0697 + 324 STL TEMP1 PLUS NBAR 0697 20 0509 1062 + 325 SLT 0008 1062 35 0008 0831 + 326 NZU SRN6 MNTISA ALARM 0831 44 1335 0686 + 327 RAL N 0686 65 0484 0839 + 328 SRT 0002 AND MANTISSA 0839 30 0002 0645 + 329 RAU 8002 IS 0645 60 8002 1103 + 330 NZU SRN4 1103 44 1007 1285 + 331 SCT 0000 N TO 8 SIG 1007 36 0000 1179 + 332 AUP TEMP1 NIFICANT FIG 1179 10 0509 1113 + 333 SUP 8002 URES 1113 11 8002 1171 + 334 RAU 8003 SRN4 1171 60 8003 1285 + 335 SRN6 RAL OTREY LARM ALARM 1335 65 0888 0332 + 336 SRN4 STU N EXIT 1285 21 0484 0644 + 337 SRAC STD EXIT ABSOLUTE 1150 24 0644 0747 + 338 RAU FOUR CONSTANT 0747 60 1200 1055 + 339 STU JAY SRACR ROUTINE 1055 21 0710 1163 + 340 SRACR RAU JAY 1163 60 0710 1065 + 341 SUP A0001 OUT IF JAY 1065 11 0383 0887 + 342 NZU SRAC3 EQUALS ABCNT 0887 44 0791 0492 + 343 RAL JAY 0791 65 0710 1115 + 344 ALO ONE INCRMNT JAY 1115 15 0630 1385 + 345 STL JAY 1385 20 0710 1213 + 346 ALO SRAC1 8002 FETCH JAYTH 1213 15 0866 8002 + 347 SRAC1 RAL A0001 SRAC2 CONSTANT 0866 65 0383 0937 + 348 SRAC2 SLO N RECYCLE IF N 0937 16 0484 0889 + 349 NZE SRACR SRAC5 EQUALS JTH 0889 45 1163 0793 + 350 SRAC5 RAL JAY CONSTANT 0793 65 0710 1165 + 351 ALO RAL 1165 15 0968 0923 + 352 ALO ABCON 0923 15 0776 0881 + 353 RAL 8002 EXIT 0881 65 8002 0644 + 354 SRAC3 RAU JAY 0492 60 0710 1215 + 355 AUP ONE 1215 10 0630 1435 + 356 STU A0001 N STORED AS 1435 21 0383 0736 + 357 STU JAY 0736 21 0710 1263 + 358 SUP ABCNT NEW ABCON IF 1263 11 0916 1221 + 359 BMI SRAC7 ABCNT NOT 1221 46 0924 0825 + 360 AUP 8001 EXCEEDED 0924 10 8001 0931 + 361 AUP SRAC6 NEW AB CONST 0931 10 0834 0939 + 362 LDD N 8003 0939 69 0484 8003 + 363 SRAC7 RAL OFIVE LARM ALARM 0825 65 0528 0332 + 364 ABCNT 00 0099 0000 RAL A1 PLUS 0916 00 0099 0000 + 365 SRAC6 STD A0001 SRAC5 JAY IN LOWER 0834 24 0383 0793 + 366 PS100 STD FINI INTERLACE 1035 24 0691 0694 + 367 SRT 0003 0694 30 0003 1153 + 368 SLO 8002 FOUR 1153 16 8002 1461 + 369 SLT 0001 1461 35 0001 0817 + 370 ALO 8001 DIGITS 0817 15 8001 0875 + 371 SLT 0001 0875 35 0001 0981 + 372 SLO 8002 0981 16 8002 0989 + 373 SLT 0001 WITH 0989 35 0001 0695 + 374 ALO 8001 0695 15 8001 1203 + 375 SLT 0001 1203 35 0001 0759 + 376 SLO 8002 ZEROES 0759 16 8002 0867 + 377 SLT 0001 0867 35 0001 0973 + 378 ALO 8001 0973 15 8001 1031 + 379 SLT 0001 FINI 1031 35 0001 0691 + 380 D0001 I SYMBOLS FOR 0032 69 0000 0000 + 381 D0002 Y PROBLEM 0033 88 0000 0000 + 382 D0003 C VARIABLES 0034 63 0000 0000 + 383 D0004 S 0035 82 0000 0000 + 384 D0005 A 0036 61 0000 0000 + 385 D0006 P 0037 77 0000 0000 + 386 D0007 W 0038 86 0000 0000 + 387 D0008 00 0800 0000 0039 00 0800 0000 + 388 D0009 E00AA 0040 65 9090 6161 +A388 5 MNEMONICS FOR REQUIERD OPERATIONS 0000 00 0000 0000 In original listing, some opcodes has a different + 389 O0001 00 0075 7677 NOP 0600 00 0075 7677 name. Changed to regula SOAP names + 390 O0002 00 0168 7383 HLT 0601 00 0168 7383 + 391 O0003 00 1061 8477 AUP 0602 00 1061 8477 original -> new value + 392 O0004 00 1561 7376 ALO 0603 00 1561 7376 + 393 O0005 00 1682 7376 SLO 0604 00 1682 7376 + 394 O0006 00 1761 7473 AML 0605 00 1761 7473 AAB -> AML 00 1761 6162 -> 00 1761 7473 + 395 O0007 00 1882 7473 SML 0606 00 1882 7473 SAB -> SML 00 1882 6162 -> 00 1882 7473 + 396 O0008 00 1974 7788 MPY 0607 00 1974 7788 + 397 O0009 00 2082 8373 STL 0608 00 2082 8373 + 398 O0010 00 2482 8364 STD 0609 00 2482 8364 + 399 O0011 00 3582 7383 SLT 0610 00 3582 7383 + 400 O0012 00 4575 8965 NZE 0611 00 4575 8965 NZA -> NZE 00 4575 8961 -> 00 4575 8965 + 401 O0013 00 4662 7469 BMI 0612 00 4662 7469 + 402 O0014 00 6079 6184 RAU 0613 00 6079 6184 + 403 O0015 00 6179 8284 RSU 0614 00 6179 8284 + 404 O0016 00 6464 8579 DVR 0615 00 6464 8579 + 405 O0017 00 6579 6173 RAL 0616 00 6579 6173 + 406 O0018 00 6679 8273 RSL 0617 00 6679 8273 + 407 O0019 00 6779 6174 RAM 0618 00 6779 6174 RAB -> RAM 00 6779 6162 -> 00 6779 6174 + 408 O0020 00 6879 8274 RSM 0619 00 6879 8274 RSB -> RSM 00 6879 8262 -> 00 6879 8274 + 409 O0021 00 6973 6464 LDD 0620 00 6973 6464 + 410 O0022 00 7079 6491 RD1 0621 00 7079 6491 RDS -> RD1 00 7079 6482 -> 00 7079 6491 + 411 O0023 00 7177 6368 PCH 0622 00 7177 6368 + 412 O0024 00 9968 7383 HLT 0623 00 9968 7383 + 413 A0001 00 0006 0000 PRESET 0383 00 0006 0000 + 414 A0002 00 0000 0001 ABSOLUTE 0384 00 0000 0001 + 415 A0005 00 0000 1000 CONSTANTS 0387 00 0000 1000 + 416 A0006 00 0000 2000 0388 00 0000 2000 + 417 A0007 00 0000 3000 0389 00 0000 3000 + 418 0150 00 6163 AI ABSOLUTE 0150 00 6163 1018 + 419 0151 00 6169 AI VALUE 0151 00 6169 1018 + 420 0152 00 6173 AL 0152 00 6173 0628 + 421 0153 00 6178 AL 0153 00 6178 0628 + 422 0154 00 6188 AI 0154 00 6188 1018 + 423 0155 00 6282 BS B MINUS 0155 00 6282 0987 + 424 0156 00 6299 BN 0156 00 6299 0654 + 425 0157 00 6369 CI C 0157 00 6369 0974 + 426 0158 00 6373 CEEL 0158 00 6373 0678 + 427 0159 00 6375 CMTX 0159 00 6375 0880 + 428 0160 00 6399 CN 0160 00 6399 0704 + 429 0161 00 6463 WY DIVIDE 0161 00 6463 1068 + 430 0162 00 6466 DF 0162 00 6466 1271 + 431 0163 00 6469 WY 0163 00 6469 1068 + 432 0164 00 6471 ZN 0164 00 6471 0826 + 433 0165 00 6473 WL 0165 00 6473 0728 + 434 0166 00 6478 WE 0166 00 6478 1233 + 435 0167 00 6488 WY 0167 00 6488 1068 + 436 0168 00 6499 ZN 0168 00 6499 0826 + 437 0169 00 6572 PS3 0169 00 6572 0343 + 438 0170 00 6663 WY F 0170 00 6663 1068 + 439 0171 00 6666 FF O 0171 00 6666 1321 + 440 0172 00 6669 WY N 0172 00 6669 1068 + 441 0173 00 6671 ZN L 0173 00 6671 0826 + 442 0174 00 6673 WL E 0174 00 6673 0728 + 443 0175 00 6678 WE F 0175 00 6678 1233 + 444 0176 00 6682 PS3 T 0176 00 6682 0343 + 445 0177 00 6688 WY 0177 00 6688 1068 + 446 0178 00 6699 ZN 0178 00 6699 0826 + 447 0179 00 6769 GI 0179 00 6769 1024 + 448 0180 00 6773 GL GO 0180 00 6773 0778 + 449 0181 00 6799 GN 0181 00 6799 0754 + 450 0182 00 6866 PS3 0182 00 6866 0343 + 451 0183 00 6966 IF HALT 0183 00 6966 1371 + 452 0184 00 6969 II IF 0184 00 6969 1074 + 453 0185 00 6973 IL I 0185 00 6973 0828 + 454 0186 00 6999 IN 0186 00 6999 0804 + 455 0187 00 7164 PW 0187 00 7164 1369 + 456 0188 00 7166 PF DECIMAL 0188 00 7166 1421 + 457 0189 00 7172 PCMMA POINT 0189 00 7172 1077 + 458 0190 00 7177 PW 0190 00 7177 1369 + 459 0191 00 7178 PF 0191 00 7178 1421 + 460 0192 00 7179 PF 0192 00 7179 1421 + 461 0193 00 7182 PW 0193 00 7182 1369 + 462 0194 00 7187 PW 0194 00 7187 1369 + 463 0195 00 7199 PN 0195 00 7199 0854 + 464 0196 00 7263 WY 0196 00 7263 1068 + 465 0197 00 7266 QF 0197 00 7266 1471 + 466 0200 00 7269 WY 0200 00 7269 1068 + 467 0201 00 7271 ZN 0201 00 7271 0826 + 468 0202 00 7273 WL COMMA 0202 00 7273 0728 + 469 0203 00 7278 WE 0203 00 7278 1233 + 470 0204 00 7282 PS3 COMMA MINUS 0204 00 7282 0343 + 471 0205 00 7288 WY 0205 00 7288 1068 + 472 0206 00 7299 ZN 0206 00 7299 0826 + 473 0207 00 7363 WY 0207 00 7363 1068 + 474 0208 00 7369 WY 0208 00 7369 1068 + 475 0209 00 7371 ZN 0209 00 7371 0826 + 476 0210 00 7373 WL 0210 00 7373 0728 + 477 0211 00 7378 WE 0211 00 7378 1233 + 478 0212 00 7382 PS3 LEFT MINUS 0212 00 7382 0343 + 479 0213 00 7388 WY 0213 00 7388 1068 + 480 0214 00 7399 ZN 0214 00 7399 0826 + 481 0215 00 7463 MINI 0215 00 7463 1118 + 482 0216 00 7469 MINI M L 0216 00 7469 1118 + 483 0217 00 7471 MINN I O E 0217 00 7471 0876 + 484 0218 00 7473 MINL N N F 0218 00 7473 0878 + 485 0219 00 7478 MINL U T 0219 00 7478 0878 + 486 0220 00 7488 MINI S 0220 00 7488 1118 + 487 0221 00 7499 MINN 0221 00 7499 0876 + 488 0222 00 7573 PS3 0222 00 7573 0343 + 489 0223 00 7763 WY 0223 00 7763 1068 + 490 0224 00 7769 WY 0224 00 7769 1068 + 491 0225 00 7771 ZN 0225 00 7771 0826 + 492 0226 00 7773 WL 0226 00 7773 0728 + 493 0227 00 7778 WE 0227 00 7778 1233 + 494 0228 00 7782 PS3 P MINUS 0228 00 7782 0343 + 495 0229 00 7788 WY MATRIX 0229 00 7788 1068 + 496 0230 00 7799 ZN POWER 0230 00 7799 0826 + 497 0231 00 7864 EW 0231 00 7864 1419 + 498 0232 00 7866 EE 0232 00 7866 1521 + 499 0233 00 7872 QCMMA 0233 00 7872 1127 + 500 0234 00 7877 EW 0234 00 7877 1419 + 501 0235 00 7878 EE 0235 00 7878 1521 + 502 0236 00 7879 EE 0236 00 7879 1521 + 503 0237 00 7882 EW 0237 00 7882 1419 + 504 0238 00 7887 EW EXTENSIONS 0238 00 7887 1419 + 505 0239 00 7899 EN 0239 00 7899 0904 + 506 0240 00 7964 RW 0240 00 7964 1469 + 507 0241 00 7966 RR 0241 00 7966 1571 + 508 0242 00 7969 RR 0242 00 7969 1571 + 509 0243 00 7972 RCMMA 0243 00 7972 1177 + 510 0244 00 7977 RW 0244 00 7977 1469 + 511 0245 00 7978 RR 0245 00 7978 1571 + 512 0246 00 7979 RR 0246 00 7979 1571 + 513 0247 00 7982 RW 0247 00 7982 1469 + 514 0250 00 7983 RR 0250 00 7983 1571 + 515 0251 00 7987 RW 0251 00 7987 1469 + 516 0252 00 7989 RZ 0252 00 7989 0744 + 517 0253 00 8263 WY RIGHT PAREN 0253 00 8263 1068 + 518 0254 00 8269 WY 0254 00 8269 1068 + 519 0255 00 8271 ZN 0255 00 8271 0826 + 520 0256 00 8273 WL 0256 00 8273 0728 + 521 0257 00 8278 WE 0257 00 8278 1233 + 522 0258 00 8288 WY 0258 00 8288 1068 + 523 0259 00 8299 ZN 0259 00 8299 0826 + 524 0260 00 8363 TC 0260 00 8363 1168 + 525 0261 00 8369 TI 0261 00 8369 1124 + 526 0262 00 8373 TL 0262 00 8373 0928 + 527 0263 00 8388 TY 0263 00 8388 0843 + 528 0264 00 8463 MY 0264 00 8463 1218 + 529 0265 00 8469 MY 0265 00 8469 1218 + 530 0266 00 8471 MN 0266 00 8471 0926 + 531 0267 00 8473 ML 0267 00 8473 0978 + 532 0268 00 8478 ME SUM 0268 00 8478 1283 + 533 0269 00 8488 MY 0269 00 8488 1218 + 534 0270 00 8499 MN 0270 00 8499 0926 + 535 0271 00 8563 MY 0271 00 8563 1218 + 536 0272 00 8569 MY 0272 00 8569 1218 + 537 0273 00 8571 MN 0273 00 8571 0926 + 538 0274 00 8573 ML 0274 00 8573 0978 + 539 0275 00 8578 ME 0275 00 8578 1283 + 540 0276 00 8588 MY TYPE 0276 00 8588 1218 + 541 0277 00 8599 MN 0277 00 8599 0926 + 542 0278 00 8663 MY 0278 00 8663 1218 + 543 0279 00 8669 MY 0279 00 8669 1218 + 544 0280 00 8671 MN RELATIONS 0280 00 8671 0926 + 545 0281 00 8673 ML 0281 00 8673 0978 + 546 0282 00 8678 ME 0282 00 8678 1283 + 547 0283 00 8688 MY 0283 00 8688 1218 + 548 0284 00 8699 MN 0284 00 8699 0926 + 549 0285 00 8763 WY 0285 00 8763 1068 + 550 0286 00 8769 WY 0286 00 8769 1068 + 551 0287 00 8771 ZN 0287 00 8771 0826 + 552 0288 00 8773 WL 0288 00 8773 0728 + 553 0289 00 8778 WE 0289 00 8778 1233 + 554 0290 00 8788 WY 0290 00 8788 1068 + 555 0291 00 8799 ZN 0291 00 8799 0826 + 556 0292 00 8869 YI 0292 00 8869 1174 + 557 0293 00 8873 YL 0293 00 8873 1028 + 558 0294 00 8875 YMTX 0294 00 8875 0930 + 559 0295 00 8899 YN 0295 00 8899 0954 + 560 0296 00 8963 WY 0296 00 8963 1068 + 561 0297 00 8969 WY 0297 00 8969 1068 + 562 0300 00 8971 ZN 0300 00 8971 0826 + 563 0301 00 8973 WL 0301 00 8973 0728 + 564 0302 00 8978 WE 0302 00 8978 1233 + 565 0303 00 8982 PS3 0303 00 8982 0343 + 566 0304 00 8988 WY 0304 00 8988 1068 + 567 0305 00 8999 ZN 0305 00 8999 0826 + 568 0306 00 9063 ENDY TIMES 0306 00 9063 1268 + 569 0307 00 9064 PS12 0307 00 9064 0850 + 570 0308 00 9067 ENDG 0308 00 9067 0772 + 571 0309 00 9068 ENDH 0309 00 9068 1023 + 572 0310 00 9069 ENDY 0310 00 9069 1268 + 573 0311 00 9073 ENDL 0311 00 9073 1078 + 574 0312 00 9078 PS12 0312 00 9078 0850 + 575 0313 00 9083 ENDT 0313 00 9083 0938 + 576 0314 00 9088 ENDY Y 0314 00 9088 1268 + 577 0315 00 9962 NF 0315 00 9962 0917 + 578 0316 00 9964 NW 0316 00 9964 1519 + 579 0317 00 9965 NR SUBSTITUTION 0317 00 9965 0720 + 580 0318 00 9966 NF 0318 00 9966 0917 + 581 0319 00 9969 NR 0319 00 9969 0720 + 582 0320 00 9971 NF 0320 00 9971 0917 + 583 0321 00 9972 NCMMA 0321 00 9972 1227 + 584 0322 00 9977 NW 0322 00 9977 1519 + 585 0323 00 9978 NR 0323 00 9978 0720 + 586 0324 00 9979 NR 0324 00 9979 0720 + 587 0325 00 9982 NW 0325 00 9982 1519 + 588 0326 00 9983 NR FIRST 0326 00 9983 0720 + 589 0327 00 9987 NW CHARACTERS 0327 00 9987 1519 + 590 0328 00 9989 NZ 0328 00 9989 0794 + 591 0329 00 9999 NF 0329 00 9999 0917 + 592 AI RAL OTWO RAL RSL 1018 65 0768 1073 + 593 STL TEMP4 BECOME 1073 20 0788 0841 + 594 LDD AI1 UCHGE RAM RSM 0841 69 0844 0797 + 595 AI1 LDD SETEL L IS R 0844 69 0847 1250 + 596 STL ABVAL PS3 ABVAL NONZRO 0847 20 0366 0343 + 597 AL LDD STBTA BETA IS U 0628 69 1081 0884 + 598 STU V1 V1 IS ZERO 1081 21 0488 0891 + 599 RAL RAM COMPILE 0891 65 0894 0349 + 600 ALO LOW RAM 8002 0349 15 0352 1057 + 601 LDD OSGN1 1057 69 0760 1313 + 602 STU OPSGN AI1 OPSGN ZERO 0760 21 0524 0844 + 603 BS LDD DROPU DCRMNT U 0987 69 0640 0893 + 604 RAL A0001 ABCON COUNT 0640 65 0383 1037 + 605 SLO ONE MINUS ONE 1037 16 0630 1485 + 606 STL A0001 1485 20 0383 0786 + 607 RAU N BN1 0786 60 0484 1039 + 608 BN LDD BN1 SRN 0654 69 1039 1100 + 609 BN1 STU NBAR NBAR EQUALS 1039 21 0342 0745 + 610 LDD CHKAR N 0745 69 0198 0751 + 611 RAL ONET ARITH EQUALS 0198 65 0356 1511 + 612 STU N ONE 1511 21 0484 1087 + 613 STL ARITH NF2 1087 20 0358 1561 + 614 CEEL RAL THREE 0678 65 1131 1535 + 615 LDD CI SETEL 1535 69 0974 1250 + 616 CI RAL C CI1 0974 65 1277 1181 + 617 CI1 AUP ONET ADLOW 1181 10 0356 1611 + 618 ADLOW STU TEMP1 STORE V AND 1611 21 0509 1112 + 619 STL TEMP2 ARITH 1112 20 0490 0943 + 620 LDD CHKAR 0943 69 0346 0751 + 621 RAL SLTI3 COMPILE 0346 65 0499 1253 + 622 LDD OSGN1 SLT 0004 AND 1253 69 0656 1313 + 623 STU OPSGN 0656 21 0524 1327 + 624 RAU LOW1 ALO 8002 1327 60 0980 1585 + 625 AUP ALO 1585 10 0988 0993 + 626 LDD PS7 COMPILE 0993 69 0496 0800 + 627 RAL 8003 VAR2 RALV0000 0496 65 8003 1303 + 628 CMTX RAU TWO YMTX1 V IS TWO 0880 60 0148 1353 + 629 CN RAL C CN1 V EQUALS C 0704 65 1277 1231 + 630 CN1 AUP ONET VAR ARITH IS ONE 1231 10 0356 1661 + 631 VAR STU TEMP1 STORE V AND 1661 21 0509 1162 + 632 STL TEMP2 ARITH 1162 20 0490 1043 + 633 LDD CHKAR 1043 69 0546 0751 + 634 LDD STBTA 0546 69 0549 0884 + 635 LDD SRN GENERATE N 0549 69 0652 1100 + 636 LDD CHKNN 0652 69 1105 0658 + 637 SLT 0004 VAR2 1105 35 0004 1303 + 638 VAR2 ALO RAL COMPILE 1303 15 0968 1123 + 639 ALO TEMP2 RAL VN 1123 15 0490 0795 + 640 LDD VAR1 OSGN1 0795 69 0248 1313 + 641 VAR1 RAL TEMP1 SET ARITH 0248 65 0509 1363 + 642 STL ARITH EEC2 1363 20 0358 1711 + 643 DF RAL SXTNT BEGIN READ 1271 65 1224 1229 + 644 LDD PS5A LDSR 1229 69 0635 1038 + 645 EE LDD RR NUINC 1521 69 1571 1274 + 646 EEC2 STU OPSGN PS3 1711 21 0524 0343 + 647 EN LDD CHKAR 0904 69 1107 0751 + 648 LDD SRN GENERATE N 1107 69 0810 1100 + 649 LDD CHKNN 0810 69 1413 0658 + 650 ALO D0001 COMPILE 1413 15 0032 1137 + 651 ALO EXT LDD0000EN 1137 15 0690 0845 + 652 LDD OSGN1 0845 69 0298 1313 + 653 STU OPSGN 0298 21 0524 1377 + 654 RAL NU 1377 65 0700 1155 + 655 ALO EN1 1155 15 0708 1463 + 656 AUP 8002 IF JNU NOT 1463 10 8002 1621 + 657 SLO ONE EQUAL JNU 1621 16 0630 1635 + 658 LDD EN4 PLUS ONE 1635 69 1088 0941 + 659 SDA EN4 8003 COMPILE 0941 22 1088 8003 + 660 EN1 RAL J0001 NOPPHIJNU 0708 65 1977 1281 + 661 STL TEMP2 EN4 1281 20 0490 1088 + 662 EN4 SLO J0001 1088 16 1977 1331 + 663 NZE EN3 1331 45 0934 1685 + 664 RAL TEMP2 0934 65 0490 0895 + 665 SLO ONET 0895 16 0356 1761 + 666 SLT 0004 1761 35 0004 1671 + 667 ALO PHI 1671 15 1324 1279 + 668 LDD EN3 OSGN1 1279 69 1685 1313 + 669 EN3 RAU N EXTENSION 1685 60 0484 1089 + 670 SUP MAXE NUMBER 1089 11 0542 0897 + 671 BMI EN2A SET ARITH 0897 46 1300 0801 + 672 RAU ONET EN2 1300 60 0356 1811 + 673 EN2A RAU 8002 EN2 0801 60 8002 1811 + 674 EN2 STU ARITH V1 TO ZERO 1811 21 0358 1861 + 675 STL V1 PS3 1861 20 0488 0343 + 676 EW LDD RW NUINC 1419 69 1469 1274 + 677 ENDG RAL RELAT END STMNT IF 0772 65 0632 1187 + 678 NZE PS12 RELAT ZERO 1187 45 0740 0850 + 679 LDD ENDG1 IF GO INTGR 0740 69 1093 0596 + 680 SDA ENDG1 THEN 0596 22 1093 0646 + 681 LDD ENDG3 INST OF 0646 69 0599 0702 + 682 SDA ENDG3 UMINUSTWO 0702 22 0599 0752 + 683 RAL U SET TO DATA 0752 65 0515 1569 + 684 SLO TWO OF UMINUS1 1569 16 0148 1403 + 685 LDD ENDGA THEN 1403 69 0706 0809 + 686 SDA ENDGA DECOMPILE 0809 22 0706 0859 + 687 LDD ENDGB 0859 69 1212 1265 + 688 SDA ENDGB IF 1265 22 1212 1315 + 689 ALO 8002 GO I INTGR 1315 15 1318 8002 + 690 RAL 0001 THEN 1318 65 0001 1205 + 691 SLT 0002 ENDGR 1205 35 0002 1911 + 692 NZU ENDGR 1911 44 1365 0966 + 693 SRT 0002 ENDGA 0966 30 0002 0706 + 694 ENDGA LDD 0000 ENDGB 0706 69 0000 1212 + 695 ENDGB SIA 0000 1212 23 0000 1453 + 696 LDD DROPU IF RELAT 1453 69 0756 0893 + 697 RAL RELAT NEG THEM 0756 65 0632 1237 + 698 BMI ENDG2 ENDG5 ENDG2 1237 46 0790 0991 + 699 ENDGR RAL RELAT IF RELAT NEG 1365 65 0632 1287 + 700 BMI ENDG2 ENDG4 THEN ENDG2 1287 46 0790 1041 + 701 ENDG2 RAM 8002 INST OF 0790 67 8002 0649 + 702 STL BETA RELATMINUS1 0649 20 1503 0806 + 703 LDD ENDG4 BMONE SET TO U 0806 69 1041 0944 + 704 ENDG4 RAL U ENDG3 DATA OF 1041 65 0515 0599 + 705 ENDG3 LDD 0000 ENDG1 RELAT SET 0599 69 0000 1093 + 706 ENDG1 SDA 0000 TO U 1093 22 0000 1553 + 707 RSU U COMPILE 1553 61 0515 1619 + 708 LDD ENDG5 PS7 NEG NOP 1619 69 0991 0800 + 709 ENDG5 STU RELAT PS12 RELAT ZERO 0991 21 0632 0850 + 710 ENDH RAU U COMPILE 1023 60 0515 1669 + 711 AUP OONE HLT U 0000 1669 10 0832 1337 + 712 LDD PS12 PS7 1337 69 0850 0800 + 713 ENDL LDD ENDY DROPK 1078 69 1268 1721 + 714 ENDT RAL FOURT END PUNCH 0938 65 1091 0945 + 715 SLO J0001 GENERATOR 0945 16 1977 1381 + 716 BMI ALARM COMPILES 1381 46 0827 1735 + 717 RAL 8001 LDD PNCHSR 1735 65 8001 1143 + 718 SLT 0004 IF NR OF 1143 35 0004 1603 + 719 ALO 0000 VARIABLES 1603 15 0000 1255 + 720 STL N LESS THAN 1255 20 0484 1387 + 721 LDD SRAC FIVE 1387 69 0840 1150 + 722 LDD OSGN1 0840 69 1193 1313 + 723 RAL SVNTT 1193 65 0696 0851 + 724 LDD PS12 LDSR 0851 69 0850 1038 + 725 ENDY LDD CHKNK IF U EQUALS 1268 69 1771 1374 + 726 LDD UBETA BETA PLUS 1 1771 69 1424 1427 + 727 NZE ENDY1 RAL BECOMES 1424 45 1128 1329 + 728 RSL NZE STL 1329 66 1132 1437 + 729 STL TEMP4 IN BETA 1437 20 0788 1141 + 730 RAL BETA 1141 65 1503 1157 + 731 LDD CHGOP 1157 69 0860 1513 + 732 STL TEMP1 0860 20 0509 1262 + 733 RAL BETA 1262 65 1503 1207 + 734 SLO ONE 1207 16 0630 1785 + 735 STL TEMP4 1785 20 0788 1191 + 736 ALO ENDY2 8002 SET CONTENTS 1191 15 0994 8002 + 737 ENDY2 RAL 0000 BETA MINUS 0994 65 0000 1305 + 738 STL TEMP2 ONE EQUAL 1305 20 0490 1243 + 739 RAM 8002 TO CONTENT 1243 67 8002 0901 + 740 SLO STLA1 BETA WITH 0901 16 1004 0909 + 741 NZE PS12 SIGN BETA 0909 45 0850 1563 + 742 RAU TEMP4 MINUS ONE 1563 60 0788 1293 + 743 STU U IF BETA 1293 21 0515 1368 + 744 RAU TEMP2 MINUS ONE 1368 60 0490 0995 + 745 BMI ENDY3 CONTAINS 0995 46 0348 0699 + 746 RSU TEMP1 ENDY4 STL ACC 0348 61 0509 1613 + 747 ENDY3 RAU TEMP1 ENDY4 0699 60 0509 1613 + 748 ENDY4 LDD PS12 PS7 1613 69 0850 0800 + 749 ENDY1 RSL FRONE IF U NOT BTA 1128 66 1431 1835 + 750 STL TEMP4 PLUS ONE 1835 20 0788 1241 + 751 LDD UCHGE RECOMPILE 1241 69 1044 0797 + 752 RAL U RALY0 0000 1044 65 0515 1719 + 753 SLO TWO 1719 16 0148 1653 + 754 STL U TO 1653 20 0515 1418 + 755 ALO ENDY6 8002 1418 15 1821 8002 + 756 ENDY6 RAU 0000 ALO U 0000 1821 60 0000 1355 + 757 AUP U LDD ACC 8002 1355 10 0515 1769 + 758 AUP TWO STDYO 0000 1769 10 0148 1703 + 759 SRT 0004 1703 30 0004 1663 + 760 RAU 8003 WITH SGN OF 1663 60 8003 1871 + 761 SLT 0004 LAST INST 1871 35 0004 1481 + 762 LDD PS7 NEGATIVE 1481 69 0984 0800 + 763 RAL U 0984 65 0515 1819 + 764 ALO ENDY7 8002 1819 15 0822 8002 + 765 ENDY7 RSL 0000 0822 66 0000 1405 + 766 STL TEMP1 1405 20 0509 1312 + 767 RAU LDAC 1312 60 1415 1869 + 768 LDD PS7 1869 69 0872 0800 + 769 RAU TEMP1 0872 60 0509 1713 + 770 LDD PS12 PS7 1713 69 0850 0800 + 771 FF STU FFBIT PS3 FFBIT ON 1321 21 1959 0343 + 772 GI RAL ALO COMPILE 1024 65 0988 1343 + 773 ALO ABCON ALO A0 8002 1343 15 0776 1531 + 774 ALO LOW1 WHERE A0 1531 15 0980 1885 + 775 LDD OSGN1 WILL CONT 1885 69 1138 1313 + 776 RAU OONE EEC2 S0 ADDRSS 1138 60 0832 1711 + 777 GL LDD GI CHKAR 0778 69 1024 0751 + 778 GN LDD CHKAR 0754 69 1257 0751 + 779 LDD SRN 1257 69 0910 1100 + 780 LDD CHKNN COMPILE 0910 69 1763 0658 + 781 ALO GO NOP0000SN 1763 15 1016 1921 + 782 LDD EEC2 OSGN1 1921 69 1711 1313 + 783 IF LDD NI CHKNK 1371 69 1474 1374 + 784 II RAL I ADLOW 1074 65 1477 1611 + 785 IL RAL ONE 0828 65 0630 1935 + 786 LDD II SETEL 1935 69 1074 1250 + 787 IN RAL I VAR V EQUALS I 0804 65 1477 1661 + 788 ME LDD ML NUMIN DCRMNT NU 1283 69 0978 1581 + 789 ML RAU STREL RELAT IS L 0978 60 1631 0836 + 790 LDD DROPK 1631 69 1034 1721 + 791 LDD CHKTK TO ML1 IF 1034 69 1487 0890 + 792 NZE ML1 TK IS ZERO 1487 45 0940 1291 + 793 LDD ML1 TKNZ1 TKNZ1AND ML1 0940 69 1291 1094 + 794 ML1 LDD SETEK 1291 69 1752 1134 +A794 LDD NGLFT 1752 69 1144 0947 + 795 STU ABVAL PS3 ABVAL ZERO 1144 21 0366 0343 + 796 MY RAU STREL RELAT IS L 1218 60 1971 0836 + 797 LDD CHKTK TO MINI IF 1971 69 1524 0890 + 798 NZE MY1 MINI TK IS ZERO 1524 45 1178 1118 + 799 MY1 LDD ML1 TKNZ2 1178 69 1291 1194 + 800 MN RAU STREL RELAT IS L 0926 60 1379 0836 + 801 LDD CHKTK TO MINN IF 1379 69 1182 0890 + 802 NZE MINN TK IS ZERO 1182 45 0886 0876 + 803 LDD SRN COMPILE 0886 69 1139 1100 + 804 LDD MY1 GENN RAL AJAY 1139 69 1178 1681 + 805 MINI RAL OONE RAL RAM 1118 65 0832 1537 + 806 STL TEMP4 BECOMES 1537 20 0788 1341 + 807 LDD UCHGE RSL RSM 1341 69 1244 0797 + 808 RAL D0004 L IS S 1244 65 0035 1189 + 809 STL L PS3G THEN PS3G 1189 20 0529 0668 + 810 MINL LDD PS3G NGLFT 0878 69 0668 0947 + 811 MINN LDD SRN 0876 69 1429 1100 + 812 RSU N N IS MINUS N 1429 61 0484 1239 + 813 STU N COMPILE 1239 21 0484 1587 + 814 LDD GENN RAL AJAY 1587 69 0990 1681 + 815 RAL D0004 L IS S 0990 65 0035 1289 + 816 STL L WY THEN WY 1289 20 0529 1068 + 817 M0001 84 0000 IDEM SWITCHING 0500 84 0000 1455 + 818 M0002 85 0000 GRTR DICTIONARY 0501 85 0000 1505 + 819 M0003 86 0000 GRTRZ FOR 0502 86 0000 1555 + 820 M0004 99 9999 ALARM RELATIONS 0503 99 9999 0827 + 821 IDEM RAL U COMPILE 1455 65 0515 1919 + 822 STL RELAT NZE0000NEXT 1919 20 0632 0936 + 823 RAL NZE GRTR1 0936 65 1132 1637 + 824 GRTRZ RAL U V EQUALS U 1555 65 0515 1969 + 825 STL RELAT GRTZ1 COMPILE 1969 20 0632 0986 + 826 GRTZ1 RAL BMI GRTR1 BMI0000NEXT 0986 65 1339 1637 + 827 GRTR1 LDD EEC2 OSGN1 OPSGN ZERO 1637 69 1711 1313 + 828 GRTR RSL U V EQUALS U 1505 66 0515 0770 + 829 SLO ONE PLUS ONE 0770 16 0630 1036 + 830 STL RELAT COMPILE 1036 20 0632 1086 + 831 RAL NZE NZE0000NEXT 1086 65 1132 1687 + 832 LDD OSGN1 1687 69 1040 1313 + 833 STU OPSGN GRTZ1 1040 21 0524 0986 + 834 NCMMA LDD NR COMMA 1227 69 0720 1173 + 835 NF RAU INTGR N EQUALS L 0917 60 0538 1393 + 836 SRT 0008 AND N 1393 30 0008 1961 + 837 ALO N 1961 15 0484 1389 + 838 SRT 0001 MU EQUALS MU 1389 30 0001 1045 + 839 STL N PLUS ONE 1045 20 0484 1737 + 840 RAU MU 1737 60 0750 1605 + 841 AUP ONE NF2 1605 10 0630 1561 + 842 NF2 STU MU PS3 1561 21 0750 0343 + 843 NI RAL NI1 1474 65 1527 1731 + 844 LDD RELAT SWITCH TO 1731 69 0632 1136 + 845 TLU M0001 8002 RELATION 1136 84 0500 8002 + 846 NI1 RAU 0000 COMPILER 1527 60 0000 1655 + 847 SUP RELAT 8003 1655 11 0632 8003 + 848 NR STL NBAR N NBAR MU 0720 20 0342 1095 + 849 STL N DEL AND 1095 20 0484 1787 + 850 STL MU ARITH ZERO 1787 20 0750 1753 + 851 STL ARITH NF 1753 20 0358 0917 + 852 NW LDD NR TKOP STORE OP 1519 69 0720 1223 + 853 NZ LDD NR NZ4 0794 69 0720 1273 + 854 NZ4 STD OUT 1273 24 0976 1479 + 855 LDD NZ1 CHKNK 1479 69 1232 1374 + 856 NZ1 RAL 0001 COMPILE 1232 65 0001 1705 + 857 SLT 0002 STL ACC 1705 35 0002 1362 + 858 SUP SIXTR OR 1362 11 1465 0820 + 859 NZU FLOTE LDD FLOATK 0820 44 1323 1574 + 860 SUP SIXT OR 1323 11 0330 1186 + 861 NZU FIXVA LDD FIX 1186 44 1439 1090 + 862 SUP NNTEN OR 1439 11 0592 0997 + 863 NZU FLOTE 0997 44 0951 1574 + 864 RAL FIVEO LARM ALARM 0951 65 1054 0332 + 865 NZ3 RAU V1 TO NZ2 IF 1350 60 0488 1443 + 866 NZU OUT NZ2 V1 ZERO 1443 44 0976 0498 + 867 NZ2 RAL STLA1 0498 65 1004 0959 + 868 LDD OSGN1 0959 69 1412 1313 + 869 STU OPSGN FLOT1 1412 21 0524 1577 + 870 FLOTE RAU ARITH FLOAT IF 1574 60 0358 1813 + 871 NZU NZ3 1813 44 1350 1468 + 872 RAL FIVET Y AND FIX 1468 65 0922 1627 + 873 LDD FLOT1 LDSR C AND FIX 1627 69 1577 1038 + 874 FLOT1 RAU 8003 OUT 1577 60 8003 0976 + 875 FIXVA RAU ARITH 1090 60 0358 1863 + 876 NZU NZ2 1863 44 0967 0498 + 877 RAL FIXNR 0967 65 0870 0925 + 878 LDD NZ2 LDSR 0925 69 0498 1038 + 879 PCMMA LDD PF COMMA 1077 69 1421 1173 + 880 PF STL N N NBAR AND 1421 20 0484 1837 + 881 STL NBAR MU ZERO 1837 20 0342 1145 + 882 STL MU PN THEN PN 1145 20 0750 0854 + 883 PN RAL ONET ARITH TO 0854 65 0356 1462 + 884 STL ARITH NF2 FLOATING 1462 20 0358 1561 + 885 PW LDD PF TKOP TKOP AND PF 1369 69 1421 1223 + 886 QCMMA LDD EE COMMA 1127 69 1521 1173 + 887 QF RAU TAU 1471 60 1960 1515 + 888 SUP TAU5 QUANT 1515 11 1518 1373 + 889 NZU TF1 1373 44 1677 1228 + 890 LDD TF1 STSMT IF SO 1228 69 1677 1030 + 891 STSMT STD FINI STORE STMT 1030 24 0691 1294 + 892 RAL FLOP1 NO OF STMT 1294 65 1047 1001 + 893 AUP 0000 FOLLOWING 1001 10 0000 1755 + 894 SLO ONE QUANT 1755 16 0630 1236 + 895 ALO 8002 1236 15 1489 8002 + 896 STU N0001 FINI 1489 21 0568 0691 + 897 TF1 RAU PSI IF NOT 1677 60 0041 1195 + 898 AUP ONE INCRMNT PSI 1195 10 0630 1286 + 899 STU PSI ANS SET 1286 21 0041 1344 + 900 MPY SIXT COUNT 1344 19 0330 1336 + 901 STL FLOP1 1336 20 1047 1400 + 902 RAL ONE TF2 1400 65 0630 1386 + 903 QUA4 NZU CURTN IF TALLY 1450 44 1803 1104 + 904 AUP 8003 NON ZERO 1803 10 0856 8003 + 905 RAL 0000 QUA20 SEND NXT WRD 0856 65 0000 1805 + 906 QUA20 STL GAMMA QUA3 TO GAMMA 1805 20 0372 0975 + 907 QUA3 RAU GAMMA 0975 60 0372 1727 + 908 NZU QUA1 1727 44 1781 1282 + 909 SRT 0002 EXTRACT 1781 30 0002 1887 + 910 STU GAMMA PEWTH 1887 21 0372 1025 + 911 RAU 8002 SYMBOL 1025 60 8002 1333 + 912 STU TEMP1 IS 1333 21 0509 1512 + 913 NZU QUA2 QUA3 SYMBOL ZERO 1512 44 1565 0975 + 914 QUA1 RAU TALLY INCRMNT 1282 60 0373 1777 + 915 SUP ONE TALLY 1777 11 0630 1436 + 916 STU TALLY QUA4 1436 21 0373 1450 + 917 QUA2 SUP SVTY2 IS SYMBOL K 1565 11 1568 1423 + 918 NZU QUA5 1423 44 1827 1278 + 919 RAL CHI INCRMNT CHI 1278 65 1831 1486 + 920 ALO ONE TF2 1486 15 0630 1386 + 921 TF2 STL CHI CLEAR L 1386 20 1831 1084 + 922 STU STAR AND STAR 1084 21 1188 1391 + 923 STU EL QUA3 1391 21 0746 0975 + 924 QUA5 RAU EL 1827 60 0746 1051 + 925 AUP ONET INCRMNT EL 1051 10 0356 1562 + 926 STU EL ALARM IF 1562 21 0746 0749 + 927 SUP SIXT MORE THAN 0749 11 0330 1536 + 928 NZU QUA7 QUA50 FIVE SYMBLS 1536 44 1539 1140 + 929 QUA50 RAL PSI 1140 65 0041 1245 + 930 SLO ONE 1245 16 0630 1586 + 931 STL PSI ALARM 1586 20 0041 0827 + 932 QUA7 RAU STAR 1539 60 1188 1493 + 933 SRT 0002 1493 30 0002 0799 + 934 AUP TEMP1 0799 10 0509 1913 + 935 ALO FLOP1 1913 15 1047 1101 + 936 ALO CHI 1101 15 1831 1636 + 937 SLO SEVEN 1636 16 1589 1543 + 938 ALO 8002 1543 15 0796 8002 + 939 STU N0001 0796 21 0568 0972 + 940 STU STAR QUA3 0972 21 1188 0975 + 941 CURTN LDD FLOP STORE 1104 69 1307 0960 + 942 RAL W0005 CURT1 CONVERT NO 1307 65 1981 1686 + 943 CURT1 SLT 0002 OF STATMNTS 1686 35 0002 1593 + 944 SUP NINTY BEING 1593 11 0360 1615 + 945 SUP 8003 QUANTIFIED 1615 11 8003 1473 + 946 NZE CURT2 TO PURE 1473 45 1026 1877 + 947 AUP 8001 CURT1 NUMERIC 1026 10 8001 1686 + 948 CURT2 AUP 8001 1877 10 8001 1736 + 949 SRT 0002 1736 30 0002 1643 + 950 SLO 8002 1643 16 8002 1151 + 951 SRT 0001 1151 30 0001 1357 + 952 ALO 8001 1357 15 8001 1665 + 953 SLO 8002 1665 16 8002 1523 + 954 SRT 0001 1523 30 0001 1529 + 955 ALO 8001 1529 15 8001 1937 + 956 SLT 0002 1937 35 0002 1693 + 957 ALO FLOP1 1693 15 1047 1201 + 958 SLO TWO 1201 16 0148 1853 + 959 ALO 8002 1853 15 0906 8002 + 960 STU N0001 0906 21 0568 1022 + 961 LDD W0004 1022 69 1980 1383 + 962 STD 0001 VARIABLE 1383 24 0001 1154 + 963 LDD Z 1154 69 1407 1010 + 964 STD 0002 Z 1010 24 0002 1855 + 965 LDD W0003 LOWER 1855 69 1979 1332 + 966 STD 0003 VARIABLE 1332 24 0003 0956 + 967 RAU FIVET 0956 60 0922 1927 + 968 STL 0004 1927 20 0004 1457 + 969 ALO TAU6 QUA9 1457 15 1060 1715 + 970 QUA9 STU TALLY RETURN TO 1715 21 0373 1076 + 971 STL TAU SCANNER 1076 20 1960 1963 + 972 RAL RSL PS2B 1963 65 0344 0667 + 973 TAU6 RAL TAU5 QUA11 SET TAU 1060 65 1518 1573 + 974 QUA11 STL TAU TAU2 TO TAU5 1573 20 1960 0564 + 975 TAU5 LDD STSMT 1518 69 1072 1030 + 976 RAL TAU2 QUA11 1072 65 0564 1573 + 977 TAU2 LDD QUA21 DCRMT 0564 69 1017 0920 + 978 QUA21 LDD FLOP 1017 69 0970 0960 + 979 RAU W0005 0970 60 1981 1786 + 980 NZU PS QUA10 NUMBER 1786 44 1234 1190 + 981 QUA10 RAL W0004 STORE 1190 65 1980 1836 + 982 STU 0000 1836 21 0000 1903 + 983 STL 0001 QUANT VARBLE 1903 20 0001 1204 + 984 STL 0003 1204 20 0003 1006 + 985 LDD Z Z 1006 69 1407 1110 + 986 STD 0002 1110 24 0002 1905 + 987 RAL W0002 INCREMENT 1905 65 1978 1433 + 988 STL 0005 IF MINUS 1433 20 0005 0758 + 989 SLO M OTHERWISE 0758 16 1612 1067 + 990 SLT 0002 Z S INCRMNT 1067 35 0002 1623 + 991 NZU QUAMN 1623 44 1328 1378 + 992 RAU D0004 QUAMN 1328 60 0035 1378 + 993 QUAMN STU 0004 1378 21 0004 1507 + 994 RAU SEVNT 1507 60 1160 1765 + 995 STL 0006 1765 20 0006 1009 + 996 ALO TAU3 QUA9 TO SCANNER 1009 15 1662 1715 + 997 DCRMT STD FINI DECREMENT 0920 24 0691 1394 + 998 RAU PSI QUANT COUNT 1394 60 0041 1295 + 999 STU TEMP3 DCMT3 FOR ALL 1295 21 0709 1712 +1000 DCMT3 RAU TEMP3 PSI LESS 1712 60 0709 0664 +1001 NZU FINI THAN OR 0664 44 1117 0691 +1002 SUP ONE EQUAL TO 1117 11 0630 1886 +1003 STU TEMP3 CURRENT 1886 21 0709 1762 +1004 MPY SIXT PSI 1762 19 0330 1936 +1005 ALO DCMT1 1936 15 1639 1743 +1006 LDD DCMT2 1743 69 0846 0849 +1007 SDA DCMT2 8002 0849 22 0846 8002 +1008 DCMT1 RAU N0005 1639 60 0572 1428 +1009 SUP 0000 1428 11 0000 1056 +1010 NZU DCMT3 DCMT2 1056 44 1712 0846 +1011 DCMT2 STU N0005 DCMT3 0846 21 0572 1712 +1012 TAU3 LDD FLOP STORE 1662 69 1815 0960 +1013 LDD RAM 1815 69 0894 1097 +1014 STD 0001 G 1097 24 0001 1254 +1015 RAU W0006 1254 60 1982 1987 +1016 STL 0000 1987 20 0000 1304 +1017 STL 0007 1304 20 0007 1210 +1018 LDD STNON 1210 69 0714 0911 +1019 STU 0002 0714 21 0002 1106 +1020 LDD WDIF 1106 69 1059 1812 +1021 STD 0003 IF 1812 24 0003 1156 +1022 LDD D0007 1156 69 0038 1441 +1023 STD 0005 W 1441 24 0005 0808 +1024 RAL W0002 CHECK FOR 0808 65 1978 1483 +1025 SLO M NEGATIVE 1483 16 1612 1167 +1026 SLT 0002 INCREMENT 1167 35 0002 1673 +1027 NZU QUA30 1673 44 1478 1528 +1028 LDD W0004 1528 69 1980 1533 +1029 STD 0004 1533 24 0004 1557 +1030 LDD W0001 QUA31 1557 69 1977 1080 +1031 QUA30 LDD W0001 1478 69 1977 1130 +1032 STD 0004 UPPER VARBLE 1130 24 0004 1607 +1033 LDD W0004 QUA31 1607 69 1980 1080 +1034 QUA31 STD 0006 QUANT VARBLE 1080 24 0006 1109 +1035 RAU NINET 1109 60 1862 1217 +1036 STL 0007 1217 20 0007 1260 +1037 STD 0008 1260 24 0008 1912 +1038 ALO TAU4 QUA9 TO SCANNER 1912 15 1865 1715 +1039 TAU4 RAL PSI 1865 65 0041 1345 +1040 SLO ONE 1345 16 0630 1238 +1041 STL PSI 1238 20 0041 1444 +1042 NZE QUA22 PS0 1444 45 0548 0336 +1043 QUA22 RAL TAU2 0548 65 0564 1020 +1044 STL TAU QUA21 1020 20 1960 1017 +1045 FLOP STD OUT 0960 24 0976 1579 +1046 RAU PSI 1579 60 0041 1395 +1047 MPY SIXT STORE STATMT 1395 19 0330 1288 +1048 STL FLOP1 1288 20 1047 1500 +1049 SLO SIX 1500 16 0520 1075 +1050 ALO FLOP3 1075 15 1578 1583 +1051 06 N0001 W0001 1578 06 0568 1977 +1052 FLOP3 LDD OUT SR1 1583 69 0976 0341 +1053 RCMMA LDD RR COMMA 1177 69 1571 1173 +1054 RR RAL K K EQUALS K 1571 65 0146 1251 +1055 STU V1 1251 21 0488 1491 +1056 ALO ONE PLUS ONE 1491 15 0630 1338 +1057 SLT 0005 1338 35 0005 1301 +1056 NZU ALARM 1301 44 0827 1206 +1059 SRT 0005 1206 30 0005 1070 +1060 STL K RR2 1070 20 0146 0899 +1061 RR2 ALO RR1 8002 TK EQUALS 0899 15 0802 8002 +1062 RR1 STU T0001 PS3 ZERO 0802 21 0042 0343 +1063 RW RAL STL COMPILE 1469 65 0636 1541 +1064 ALO K STL WK 1541 15 0146 1351 +1065 ALO W 1351 15 1354 1159 +1066 LDD OSGN1 OPSGN ZERO 1159 69 1962 1313 +1067 STU OPSGN 1962 21 0524 1628 +1068 LDD SETEK 1628 69 1881 1134 +1069 LDD RR TKOP 1881 69 1571 1223 +1070 RZ LDD RR NZ4 0744 69 1571 1273 +1071 TI RAL ONE TIFF PUNCH 1124 65 0630 1388 +1072 TY RAL TWO TIFF GENERATORS 0843 65 0148 1388 +1073 TC RAL THREE TIFF 1168 65 1131 1388 +1074 TL RAL LDSR1 TIFF 0928 65 1931 1388 +1075 TIFF ALO AB3 COMPILES 1388 15 1591 1445 +1076 STL TMBLE PROGRAM 1445 20 0949 0852 +1077 LDD UBETA WHICH 0852 69 1256 1427 +1078 NZE TI4 IDENTIFIES 1256 45 1310 0764 +1079 RAL U VARIANLES 1310 65 0515 1120 +1080 SLO THREE WHOSE VALUES 1120 16 1131 1438 +1081 STL U ARE TO BE 1438 20 0515 1618 +1082 RAL TMBLE TI2 PUNCHED 1618 65 0949 1404 +1083 TI4 LDD DROPU 0764 69 1267 0893 +1084 ALO 8002 1267 15 1170 8002 +1085 RAU 0000 1170 60 0000 1306 +1086 SLT 0002 1306 35 0002 0814 +1087 SRT 0006 0814 30 0006 1629 +1088 STU N 1629 21 0484 1488 +1089 LDD TI2 SRAC 1488 69 1404 1150 +1090 TI2 LDD OSGN1 1404 69 1657 1313 +1091 LDD PS3 COMMA 1657 69 0343 1173 +1092 AB3 15 5003 0000 1591 15 5003 0000 +1093 TMBLE 00 0000 0000 0949 00 0000 0000 +1094 WE LDD WL NUMIN 1233 69 0728 1581 +1095 WL LDD DROPK IS PREVIOUS 0728 69 1382 1721 +1096 LDD CHKTK OPERATION 1382 69 1538 0890 +1097 NZE WL1 ALPHA ZERO 1538 45 0642 1793 +1098 ALPHA LDD SETEK IF SO EK 1793 69 0896 1134 +1099 RAL K IS ARITH AND 0896 65 0146 1401 +1100 STU ABVAL RR2 ABVAL ZERO 1401 21 0366 0899 +1101 WL1 LDD ALPHA TKNZ1 THEN 0642 69 1793 1094 +1102 TKNZ1 STD OUT RETURN PS3 1094 24 0976 1679 +1103 STL TEMP1 IF NOT IS 1679 20 0509 0864 +1104 SLO P PPN P 0864 16 1317 1122 +1105 NZE PWRW IF NOT IS 1122 45 1126 1678 +1106 LDD GETEK WK FXD OR FL 1126 69 1729 1432 +1107 NZE FLTW1 NFLW1 IF FL IS ARI 1729 45 1482 1633 +1108 FLTW1 RAL ARITH TH FIXED OR 1482 65 0358 0914 +1109 NZE FLTW2 NFLW2 FLOATING 0914 45 1668 1220 +1110 FLTW2 RAL V1 WL3A IF V1 ZERO 1668 65 0488 1843 +1111 WL3A LDD GAMM SWTCH COMPILE 1843 69 0946 0999 +1112 SWTCH NZE RALWK STLAC STL ACC 0999 45 0902 1454 +1113 STLAC STD EXIT AND 1454 24 0644 1147 +1114 RAL STLA1 RAL WK 1147 65 1004 1209 +1115 LDD OSGN1 IF NON ZERO 1209 69 0964 1313 +1116 STU OPSGN RALW1 COMPILE 0964 21 0524 1728 +1117 STLA1 STL 0001 0000 RAL WK 1004 20 0001 0000 +1118 RALWK STD EXIT RALW1 0902 24 0644 1728 +1119 RALW1 RAL K SET OPSGN 1728 65 0146 1451 +1120 ALO W TO ZERO 1451 15 1354 1259 +1121 ALO RAL IN BOTH 1259 15 0968 1723 +1122 LDD OSGN1 CASES 1723 69 1176 1313 +1123 STU OPSGN EXIT 1176 21 0524 0644 +1124 GAMM RAU OTWO GAMM1 INCREMENT 0946 60 0768 1773 +1125 GAMM1 ALO ONE WL3C OPN AND 1773 15 0630 1588 +1126 WL3C AUP TEMP1 SET V1 1588 10 0509 1014 +1127 STU TEMP1 NETTA THEN GO TO 1014 21 0509 1064 +1128 NETTA STL V1 FL1K ARITH GEN 1064 20 0488 1641 +1129 NFLW2 RAL FIVET COMPILE 1220 65 0922 1778 +1130 LDD LDSR LDD FLOATK 1778 69 1532 1038 +1131 STU OPSGN AND MERGE 1532 21 0524 1828 +1132 RAL ONET WITH FLOAT 1828 65 0356 1114 +1133 STL ARITH WL3A FLOAT 1114 20 0358 1843 +1134 NFLW1 RAL ARITH IF WK FIXED 1633 65 0358 1164 +1135 NZE N1FW2 N1NW2 IS PRESENT 1164 45 1718 1270 +1136 N1FW2 RAL V1 FIXED 1718 65 0488 1893 +1137 LDD SWTCH TO SWITCH IF 1893 69 0996 0999 +1138 RAL FOURT FLOAT THEN 0996 65 1091 1495 +1139 LDD GAMM LDSR LDD FLOAT 1495 69 0946 1038 +1140 N1NW2 RAU OONE WL3C FIX FIX 1270 60 0832 1588 +1141 PWRW LDD GETEK IS WK FIXED 1678 69 1582 1432 +1142 NZE PWRP IF NOT IS 1582 45 1638 1688 +1143 RAL ARITH PRESENT FLT 1638 65 0358 1214 +1144 NZE PWRFL IF NOT 1214 45 1768 1320 +1145 RAL FOURT COMPILE 1320 65 1091 1545 +1146 LDD PWRFL LDSR LDD FLOAT 1545 69 1768 1038 +1147 PWRFL RAL ONET FLOAT FLOAT 1768 65 0356 1264 +1148 STL ARITH COMPILES 1264 20 0358 1314 +1149 LDD LDSR LDD LOG 1314 69 1367 1038 +1150 LDD PWR1 STLAC STL ACC 1367 69 1370 1454 +1151 PWR1 RAU OONE GAMM1 1370 60 0832 1773 +1152 PWRP RAL V1 RAL WK 1688 65 0488 1943 +1153 LDD SWTCH COMPILE 1943 69 1046 0999 +1154 RAL ARITH STL ACC 1046 65 0358 1364 +1155 STL V1 ANDOR 1364 20 0488 1691 +1156 ALO TWLVT RAL WK AND 1691 15 1494 1049 +1157 LDD OUT LDSR POWER INVRT 1049 69 0976 1038 +1158 WY LDD CHKTK IS PREVIOUS 1068 69 1172 0890 +1159 NZE ALPHA OPN ZERO 1172 45 1226 1793 +1160 LDD ALPHA TKNZ2 1226 69 1793 1194 +1161 TKNZ2 STD OUT 1194 24 0976 1779 +1162 STL TEMP1 IF NOT IS 1779 20 0509 1414 +1163 SLO P OPN P 1414 16 1317 1222 +1164 NZE POWR IF NOT IS 1222 45 1276 1878 +1165 LDD GETEK PREV FLOAT 1276 69 1829 1432 +1166 NZE FLT1 NFLT1 IF SO GO TO 1829 45 1632 1683 +1167 FLT1 RAL V1 ALTR IF PREV 1632 65 0488 1993 +1168 NZE FLT2 NOT IN ACC 1993 45 1096 1197 +1169 LDD FLT2 ALTR 1197 69 1096 1099 +1170 FLT2 RAL ARITH COMPILE 1096 65 0358 1464 +1171 NZE NETTA FLOAT IF 1464 45 1064 1420 +1172 RAL FOURT PRESENT 1420 65 1091 1595 +1173 LDD LDSR FIXED 1595 69 0598 1038 +1174 RAL ONET 0598 65 0356 1514 +1175 STL ARITH NETTA 1514 20 0358 1064 +1176 NFLT1 RAL ARITH IF NOT FLOAT 1683 65 0358 1564 +1177 NZE FX1F2 FIX GO TO 1564 45 1818 1470 +1178 RAU OTREY WL3C WL3C IF 1470 60 0888 1588 +1179 FX1F2 LDD BMONE FLOAT FIX 1818 69 1272 0944 +1180 RSU BETA COMPILE NEG 1272 61 1503 1707 +1181 SUP AR33 LDD BETA FTK 1707 11 1360 1915 +1182 LDD AR34 PS7 TO ALTR3 1915 69 1868 0800 +1183 AR33 LDD 0000 9005 AND THEN 1360 69 0000 9005 +1184 AR34 LDD NETTA NETTA 1868 69 1064 1417 +1185 STD EXIT ALTR3 1417 24 0644 1247 +1186 ALTR STD EXIT ALTR PERFRMS 1099 24 0644 1297 +1187 LDD BMONE FOLLOWING 1297 69 1550 0944 +1188 LDD ALTR3 STAC1 SEQUENTIALLY 1550 69 1247 1600 +1189 BMONE STD FINI BETA MINUS 0944 24 0691 1544 +1190 RAL BETA ONE TO 1544 65 1503 1757 +1191 SLO ONE TEMP4 1757 16 0630 1738 +1192 STL TEMP4 I4ZU1 1738 20 0788 1741 +1193 I4ZU1 RAL TEMP4 INST OF 1741 65 0788 1594 +1194 ALO I4ZU3 CONTENTS 1594 15 1347 1501 +1195 LDD I4ZU2 OF TEMP4 1501 69 1504 1807 +1196 SDA I4ZU2 EQUALS U 1807 22 1504 1857 +1197 RAU 8002 8003 IF NOT LDD 1857 60 8002 8003 +1198 I4ZU3 LDD 0000 1347 69 0000 1554 +1199 STD TEMP2 1554 24 0490 1644 +1200 RAM 8001 IF LDD SET 1644 67 8001 1551 +1201 SLO CKLDD DATA OF 1551 16 1604 1309 +1202 SLT 0002 CONTENTS 1309 35 0002 1965 +1203 NZU I4ZU4 OF 1965 44 1520 1570 +1204 RAL U TEMP4 TO 1520 65 0515 1620 +1205 SRT 0004 U 1620 30 0004 1682 +1206 AUP OONE I4ZU5 1682 10 0832 1788 +1207 I4ZU4 RAL U I4ZU5 1570 65 0515 1788 +1208 I4ZU5 AUP I4ZU2 1788 10 1504 1359 +1209 LDD TEMP2 8003 1359 69 0490 8003 +1210 I4ZU2 SDA 0000 FINI 1504 22 0000 0691 +1211 STAC1 STD FINI COMPILE NEG 1600 24 0691 1694 +1212 RSU BETA STL ACC BTA 1694 61 1503 1907 +1213 SRT 0004 1907 30 0004 1467 +1214 SUP STLA1 1467 11 1004 1409 +1215 LDD FINI PS7 1409 69 0691 0800 +1216 ALTR3 LDD IUM2U 1247 69 1650 1654 +1217 RAL BETA 1650 65 1503 0858 +1218 STL TEMP4 0858 20 0788 1791 +1219 LDD BMINI 1791 69 1744 1397 +1220 RAL OONE 1744 65 0832 1838 +1221 STL OPSGN EXIT 1838 20 0524 0644 +1222 IUM2U STD FINI U MINUS TWO 1654 24 0691 1794 +1223 RAL U TO TEMP4 1794 65 0515 1670 +1224 SLO TWO THEN I4ZU1 1670 16 0148 1704 +1225 STL TEMP4 I4ZU1 1704 20 0788 1741 +1226 BMINI STD FINI CONTENTS OF 1397 24 0691 1844 +1227 RSU TEMP4 CONTENTS OF 1844 61 0788 1894 +1228 SUP BMIN2 8003 TEMP4 MADE 1894 11 1447 8003 +1229 BMIN2 SML 0000 NEGATIVE 1447 18 0000 1356 +1230 RAU 8002 1356 60 8002 1066 +1231 SLO TEMP4 1066 16 0788 1944 +1232 SLO BMIN3 8002 1944 16 1497 8002 +1233 BMIN3 21 0000 FINI 1497 21 0000 0691 +1234 EXIT HLT EXIT EXIT 0644 01 0644 0644 +1235 FINI HLT FINI FINI 0691 01 0691 0691 +1236 OUT HLT OUT OUT 0976 01 0976 0976 +1237 OSGN1 STD FINI OSGN3 SET SIGN OF 1313 24 0691 1994 +1238 OSGN3 AUP OPSGN INSTRUCTION 1994 10 0524 1879 +1239 AUP OSGN2 8003 TO BE 1879 10 1732 8003 +1240 OSGN2 RAU 8002 COMPILED 1732 60 8002 1841 +1241 LDD FINI PS7 1841 69 0691 0800 +1242 UBETA STD FINI IS U EQUAL 1427 24 0691 1645 +1243 RAL BETA TO BETA 1645 65 1503 0908 +1244 ALO ONE PLUS ONE 0908 15 0630 1888 +1245 SLO U FINI 1888 16 0515 0691 +1246 CHGOP STD FINI CHGE1 OP OF 1513 24 0691 1695 +1247 CHGE1 ALO CHG1 CONTENTS OF 1695 15 0648 1754 +1248 LDD CHG2 LOWER 1754 69 0958 1614 +1249 SDA CHG2 8002 CHANGED BY 1614 22 0958 8002 +1250 CHG1 RAL 0000 CONTENTS OF 0648 65 0000 1406 +1251 BMI CHG3 TEMP4 1406 46 1459 1410 +1252 SLO TEMP4 CHG2 1459 16 0788 0958 +1253 CHG3 ALO TEMP4 CHG2 1410 15 0788 0958 +1254 CHG2 STL 0000 FINI 0958 20 0000 0691 +1255 POWR LDD GETEK IS PREV FLT 1878 69 1782 1432 +1256 NZE POWR1 POWRF IF SO IS 1782 45 1938 1988 +1257 POWR1 RAL V1 PREV IN ACC 1938 65 0488 1745 +1258 NZE POWR4 ALTR IF NOT 1745 45 0698 1149 +1259 LDD POWR4 ALTR 1149 69 0698 1099 +1260 POWR4 RAL ARITH IF PRES FIX 0698 65 0358 1664 +1261 NZE POWR2 COMPILE 1664 45 1918 1720 +1262 RAL FOURT FLOAT 1720 65 1091 1795 +1263 LDD LDSR AND SET 1795 69 0748 1038 +1264 RAL ONET OPSGN TO 0748 65 0356 1714 +1265 STL ARITH POWR2 ONE 1714 20 0358 1918 +1266 POWR2 RAL ONET COMPILE 1918 65 0356 1764 +1267 LDD PWR1 LDSR LDD LOG 1764 69 1370 1038 +1268 POWRF LDD POWR3 ALTR IF PREV FIX 1988 69 1891 1099 +1269 POWR3 RAL ARITH ALTR 1891 65 0358 1814 +1270 STL V1 COMPILE 1814 20 0488 1941 +1271 ALO TENT OPLD 1941 15 1845 1199 +1272 OPLD LDD OUT LDSR 1199 69 0976 1038 +1273 OPWK ALO K COMPILES 1700 15 0146 1601 +1274 ALO W OPWK1 OPN WK NEXT 1601 15 1354 1509 +1275 OPWK1 LDD OPWK2 OSGN1 1509 69 1864 1313 +1276 OPWK2 STU OPSGN OUT 1864 21 0524 0976 +1277 LDSR STD LDSR1 OPSGN ZERO 1038 24 1931 1184 +1278 ALO LDSR2 COMPILES 1184 15 1689 1895 +1279 LDD OSGN1 LDD0000LOWR 1895 69 0798 1313 +1280 STU OPSGN LDSR1 PLUS 9000 0798 21 0524 1931 +1281 LDSR1 HLT LDSR1 LDSR1 1931 01 1931 1931 +1282 LDSR2 LDD 0000 9000 1689 69 0000 9000 +1283 OPACC ALO ACC OPWK1 1750 15 1804 1509 +1284 FL1K RAL AR5 FETCH OPN 1641 65 1945 1249 +1285 LDD TEMP1 ENTRY FROM 1249 69 0509 1914 +1286 TLU Q0001 8002 SWITCHING 1914 84 0550 8002 +1287 AR5 RAU 0000 DICTIONARY 1945 60 0000 1456 +1288 SUP TEMP1 ALARM IF 1456 11 0509 1964 +1289 SRT 0004 OPN IS 1964 30 0004 1125 +1290 NZU ALARM INVALID 1125 44 0827 1180 +1291 SLT 0004 8003 IF VALID GO 1180 35 0004 8003 +1292 Q0001 64 0000 FPDV SWITCHING 0550 64 0000 1506 +1293 Q0002 65 0000 FPDV1 DICTIONARY 0551 65 0000 1556 +1294 Q0003 66 0000 FPDV2 FOR ARITHMTC 0552 66 0000 1606 +1295 Q0004 67 0000 FPDV3 SUBGENRATORS 0553 67 0000 1656 +1296 Q0005 78 0000 FPPWR 0554 78 0000 1706 +1297 Q0006 82 0000 FPAD 0555 82 0000 1756 +1298 Q0007 83 0000 FPAD1 0556 83 0000 1806 +1299 Q0008 84 0000 FPAD 0557 84 0000 1756 +1300 Q0009 85 0000 FPAD3 0558 85 0000 1856 +1301 Q0010 87 0000 FPMU 0559 87 0000 1906 +1302 Q0011 88 0000 FPMU1 0560 88 0000 1008 +1303 Q0012 89 0000 FPMU 0561 89 0000 1906 +1304 Q0013 90 0000 FPMU3 0562 90 0000 1058 +1305 Q0014 99 0000 ALARM 0563 99 0000 0827 +1306 FPAD RAL EIGTT OPLD TO ARITH 1756 65 1559 1199 +1307 FPAD1 RAL ALO OPWK GENERATORS 1806 65 0988 1700 +1308 FPMU1 RAL RAU START OF 1008 65 1116 1322 +1309 ALO LOW ARITHMETIC 1322 15 0352 1108 +1310 LDD OSGN1 SUBGENERATRS 1108 69 1166 1313 +1311 STU OPSGN 1166 21 0524 1928 +1312 RAL MPY OPWK 1928 65 1832 1700 +1313 FPMU RAL NINET OPLD 1906 65 1862 1199 +1314 FPDV RAL SIXT OPLD 1506 65 0330 1199 +1315 FPDV1 RAL DVR OPWK 1556 65 1609 1700 +1316 FPDV2 RAL FRTNT OPLD 1606 65 1659 1199 +1317 FPPWR RAL NINET 1706 65 1862 1517 +1318 LDD LDSR 1517 69 1770 1038 +1319 RAL TWOT 1770 65 1823 1929 +1320 LDD NZ2 LDSR 1929 69 0498 1038 +1321 FPAD3 LDD UBETA IS U EQUAL 1856 69 1709 1427 +1322 NZE ADD4 BETA PLUS 1 1709 45 1216 1266 +1323 RSL FIVEO MULTN 1266 66 1054 1759 +1324 ADD4 LDD ALTR ALTR AND 1216 69 1820 1099 +1325 RAL ALO OPACC ALO ACC 1820 65 0988 1750 +1326 FPDV3 LDD ALTR ALTR AND 1656 69 1809 1099 +1327 RAL DVR OPACC DVR ACC 1809 65 1609 1750 +1328 FPMU3 RAU RAU 1058 60 1116 1372 +1329 STU TEMP6 1372 21 1326 1230 +1330 RAL U 1230 65 0515 1870 +1331 LDD CHKOP 1870 69 1873 1376 +1332 STL TEMP4 1873 20 0788 1991 +1333 SLO BMI 1991 16 1339 1995 +1334 STL TEMP5 1995 20 1299 0952 +1335 LDD UBETA 0952 69 1158 1427 +1336 NZE MULT1 1158 45 1316 1366 +1337 RAL ABVAL 1316 65 0366 1422 +1338 NZE MULT3 1422 45 1426 1280 +1339 RSL OFIVE 1280 66 0528 1733 +1340 STL TEMP4 MULT2 1733 20 0788 0692 +1341 MULT3 RAL RAU 1426 65 1116 1472 +1342 ALO LOW 1472 15 0352 1208 +1343 LDD OSGN1 1208 69 1416 1313 +1344 STU OPSGN 1416 21 0524 1330 +1345 STU ABVAL MULT4 1330 21 0366 1920 +1346 MULT2 RAL U 0692 65 0515 1970 +1347 SLO ONE 1970 16 0630 1739 +1348 LDD MULT4 CHGOP 1739 69 1920 1513 +1349 MULT4 LDD ALTR 1920 69 1923 1099 +1350 RAL MPY OPACC 1923 65 1832 1750 +1351 MULT1 RAL ABVAL 1366 65 0366 1522 +1352 NZE MULT3 1522 45 1426 1380 +1353 RAM TEMP4 1380 67 0788 1146 +1354 ALO TEMP6 1146 15 1326 1882 +1355 STL TEMP6 1882 20 1326 1430 +1356 RAL BETA 1430 65 1503 1258 +1357 LDD CHKOP 1258 69 1466 1376 +1358 NZE MLT7A 1466 45 1572 1622 +1359 ALO OONE 1572 15 0832 1789 +1360 NZE MULT6 1789 45 0742 1196 +1361 RSM TEMP4 MLT7B 1196 68 0788 1246 +1362 MLT7A RAM TEMP4 MLT7B 1622 67 0788 1246 +1363 MLT7B SLO OFIVE 1246 16 0528 1783 +1364 STL TEMP4 MULT7 1783 20 0788 0792 +1365 MULT7 RAL BETA 0792 65 1503 1308 +1366 SLO ONE 1308 16 0630 1839 +1367 LDD CHGOP 1839 69 0842 1513 +1368 RAL TEMP5 MULTN 0842 65 1299 1759 +1369 MULTN STL TEMP4 1759 20 0788 0892 +1370 RAL BETA 0892 65 1503 1358 +1371 LDD OPWK2 CHGOP 1358 69 1864 1513 +1372 MULT8 RAL BETA 1800 65 1503 1408 +1373 STL U 1408 20 0515 1968 +1374 LDD CHGOP 1968 69 1672 1513 +1375 STL TEMP5 1672 20 1299 1002 +1376 BMI MULT9 1002 46 1458 1508 +1377 RAU OONE MULT9 1458 60 0832 1508 +1378 MULT9 STU OPSGN 1508 21 0524 1480 +1379 RAL TEMP6 1480 65 1326 1932 +1380 ALO LOW 1932 15 0352 1558 +1381 LDD OSGN1 1558 69 1516 1313 +1382 STU OPSGN 1516 21 0524 1530 +1383 RAM TEMP5 1530 67 1299 1854 +1384 LDD OUT OSGN1 1854 69 0976 1313 +1385 MULT6 RAL TEMP5 0742 65 1299 1904 +1386 STL TEMP4 MULT8 1904 20 0788 1800 +1387 YI RAL Y CI1 1174 65 1580 1181 +1388 YL RAL TWO 1028 65 0148 1608 +1389 LDD YI SETEL 1608 69 1174 1250 +1390 YMTX RAU ONE YMTX1 V IS ONE 0930 60 0630 1353 +1391 YMTX1 AUP RAL COMPILE 1353 10 0968 1973 +1392 AUP I RAL I 0000 1973 10 1477 1833 +1393 LDD PS7 PLUS V 1833 69 1889 0800 +1394 RAL U BETA IS U 1889 65 0515 1722 +1395 SLO ONE MINUS ONE 1722 16 0630 1939 +1396 STL BETA 1939 20 1503 1658 +1397 STU ABVAL ABVAL ZERO 1658 21 0366 1772 +1398 LDD YMTX2 1772 69 1175 1630 +1399 STD OUT FPMU3 1630 24 0976 1058 +1400 YMTX2 RSL ONET DECREMENT 1175 66 0356 1566 +1401 LDD SETJN JNU 1566 69 1822 1225 +1402 ALO ALO COMPILE 1822 15 0988 1296 +1403 ALO PHI ALO PHIJNU 1296 15 1324 1680 +1404 LDD OSGN1 1680 69 1883 1313 +1405 RAL M R EQUALS 1883 65 1612 1567 +1406 SLO OONE LEFT PAREN 1567 16 0832 1989 +1407 STL R PS3G YL OR CL 1989 20 0340 0668 +1408 YN RAL Y CN1 V EQUALS Y 0954 65 1580 1231 +1409 ZN LDD SRN GENERATE N 0826 69 1730 1100 +1410 LDD WY GENN 1730 69 1068 1681 +1411 CHKAR STD OUT ALARM IF 0751 24 0976 1780 +1412 RAL ARITH FLOATING 1780 65 0358 1616 +1413 NZE ALARM OUT 1616 45 0827 0976 +1414 CHKNK STD FINI ALARM IF K 1374 24 0691 1346 +1415 RAU NU AND NU 1346 60 0700 1708 +1416 AUP K NON ZERO 1708 10 0146 1651 +1417 NZU ALARM FINI 1651 44 0827 0691 +1418 CHKNN STD EXIT ALARM IF N 0658 24 0644 1547 +1419 SRT 0004 IS MORE 1547 30 0004 1758 +1420 ALO TYPE3 1758 15 1666 1872 +1421 NZU SRN6 THAN 2000 1872 44 1335 1476 +1422 SLO 8001 1476 16 8001 1933 +1423 SRT 0006 EXIT DIGITS 1933 30 0006 0644 +1424 CHKOP STD FINI 1376 24 0691 1396 +1425 ALO 8002 1396 15 1349 8002 +1426 67 9999 1349 67 9999 1808 +1427 SLT 0002 1808 35 0002 1716 +1428 SLO 8002 1716 16 8002 1275 +1429 SRT 0002 1275 30 0002 1284 +1430 ALO RAL FINI 1284 15 0968 0691 +1431 CHKTK STD OUT 0890 24 0976 1830 +1432 RAL K FETCH TK 1830 65 0146 1701 +1433 ALO 8002 1701 15 1858 8002 +1434 RAL T0001 OUT 1858 65 0042 0976 +1435 COMMA STD OUT INCREMENT 1173 24 0976 1880 +1436 RAL ONET JNU 1880 65 0356 1766 +1437 LDD SETJN THEN 1766 69 1922 1225 +1438 SLO ONE COMPILE 1922 16 0630 1240 +1439 ALO STL STL PHIJNU 1240 15 0636 0942 +1440 ALO PHI MINUS ONE 0942 15 1324 1930 +1441 LDD OSGN1 1930 69 1334 1313 +1442 STU OPSGN 1334 21 0524 1384 +1443 RAL 8003 OUT 1384 65 8003 0976 +1444 DROPK STD OUT DECREMENT 1721 24 0976 1434 +1445 RAL K K 1434 65 0146 1751 +1446 SLO ONE 1751 16 0630 1290 +1447 STL K OUT 1290 20 0146 0976 +1448 DROPU STD EXIT DECRMNT U 0893 24 0644 1597 +1449 RAL U 1597 65 0515 1972 +1450 SLO ONE 1972 16 0630 1340 +1451 STL U EXIT 1340 20 0515 0644 +1452 GENN STD OUT 1681 24 0976 1484 +1453 LDD STBTA 1484 69 1390 0884 +1454 LDD SRAC 1390 69 1446 1150 +1455 LDD OSGN1 1446 69 1399 1313 +1456 STU OPSGN OUT 1399 21 0524 0976 +1457 GETEK STD EXIT GET PRESENT 1432 24 0644 1647 +1458 RAL K EK VALUE 1647 65 0146 1801 +1459 ALO 8002 1801 15 1908 8002 +1460 RAL E0001 EXIT 1908 65 0374 0644 +1461 NGLFT STD OUT 0947 24 0976 1534 +1462 RAL D0004 1534 65 0035 1440 +1463 STL L 1440 20 0529 1584 +1464 STU V1 1584 21 0488 0992 +1465 RAL ABVAL 0992 65 0366 1624 +1466 NZE NGLNA 1624 45 1634 1684 +1467 RAL U 1634 65 0515 1674 +1468 LDD CHKOP 1674 69 1734 1376 +1469 ALO OTWO 1734 15 0768 1724 +1470 NZE NGLNB 1724 45 1784 1834 +1471 RAL OONE NGLNB 1834 65 0832 1784 +1472 NGLNB STL TEMP4 1784 20 0788 1042 +1473 LDD OUT UCHGE 1042 69 0976 0797 +1474 NGLNA LDD STBTA 1684 69 1490 0884 +1475 RAL RSL 1490 65 0344 1449 +1476 ALO LOW 1449 15 0352 1859 +1477 LDD OSGN1 1859 69 1816 1313 +1478 STU OPSGN OUT 1816 21 0524 0976 +1479 NUINC STD OUT 1274 24 0976 1884 +1480 RAL NU NU EQUALS NU 1884 65 0700 1909 +1481 AUP 8002 PLUS ONE 1909 10 8002 1617 +1482 AUP ONE AND 1617 10 0630 1540 +1483 STU NU JNU EQUALS 1540 21 0700 1460 +1484 AUP NU2 JNUMINUSONE 1460 10 1866 1774 +1485 ALO NU1 8002 1774 15 1934 8002 +1486 NU1 LDD J0001 8003 1934 69 1977 8003 +1487 NU2 STD J0001 OUT 1866 24 1977 0976 +1488 NUMIN STD OUT 1581 24 0976 1590 +1489 RAL NU NU EQUALS NU 1590 65 0700 1510 +1490 SLO ONE MINUS ONE 1510 16 0630 1640 +1491 STL NU OUT 1640 20 0700 0976 +1492 SETEK STD EXIT SET EK 1134 24 0644 1697 +1493 RAU ARITH EQUAL TO 1697 60 0358 1916 +1494 ALO K ARTHH 1916 15 0146 1851 +1495 ALO 8002 1851 15 1560 8002 +1496 STU E0001 EXIT 1560 21 0374 0644 +1497 SETEL STD EXIT SET VARIABLE 1250 24 0644 1747 +1498 STL LDSR1 TYPE 1747 20 1931 1690 +1499 RAL R SET L EQUAL 1690 65 0340 1496 +1500 STL L EXIT TO R 1496 20 0529 0644 +1501 SETJN STD EXIT JNU EQUALS 1225 24 0644 1797 +1502 STL TEMP1 JNU PLUS 1797 20 0509 1966 +1503 RAL NU 1966 65 0700 1610 +1504 ALO STJN1 CONTENTS 1610 15 1667 1824 +1505 LDD STJN2 1824 69 1740 1546 +1506 SDA STJN2 8002 OF LOWER 1546 22 1740 8002 +1507 STJN1 RAL J0001 1667 65 1977 1790 +1508 ALO TEMP1 STJN2 1790 15 0509 1740 +1509 STJN2 STL J0001 1740 20 1977 1840 +1510 SLT 0004 EXIT 1840 35 0004 0644 +1511 STBTA STD EXIT 0884 24 0644 1847 +1512 RAL U 1847 65 0515 1874 +1513 STL BETA EXIT 1874 20 1503 0644 +1514 STNON STD EXIT 0911 24 0644 1897 +1515 LDD PS100 1897 69 1850 1035 +1516 AUP NONON EXIT 1850 10 0634 0644 +1517 STREL LDD L SET RELATION 0836 69 0529 1890 +1518 STD RELAT 8003 TYPE 1890 24 0632 8003 +1519 TKOP STD FINI STORE OPN 1223 24 0691 1596 +1520 RAU K IN TK 1596 60 0146 1901 +1521 AUP TKOP1 AND 1901 10 1660 1717 +1522 LDD R 8003 EXIT FROM 1717 69 0340 8003 +1523 TKOP1 STD T0001 FINI FINI 1660 24 0042 0691 +1524 UCHGE STD FINI U EQUALS U 0797 24 0691 1646 +1525 RAL U MINUS ONE 1646 65 0515 1924 +1526 SLO ONE CHGE1 1924 16 0630 1695 +1527 LARM STL L SET ERROR 0332 20 0529 1940 +1528 STL R ALARM IDENTIFCTN 1940 20 0340 0827 +1529 ALARM RAU 0000 ALARM 0827 60 0000 1710 +1530 SLT 0001 SUBROUTINE 1710 35 0001 1767 +1531 ALO L DISPLAYS 1767 15 0529 1990 +1532 SLT 0003 L R AND 1990 35 0003 1499 +1533 ALO R STATEMENT 1499 15 0340 1696 +1534 SLT 0002 NR 1696 35 0002 1760 +1535 HLT 1234 PS 1760 01 1234 1234 +1536 END RAL A0001 END AND FNLP 0567 65 0383 1092 +1537 SRT 0004 PUNCHABCONS 1092 30 0004 1810 +1538 STL 1955 AND 1810 20 1955 1860 +1539 RAU 1951 RESERVATION 1860 60 1951 1910 +1540 AUP A0002 CARDS 1910 10 0384 1142 +1541 AUP A0002 1142 10 0384 1192 +1542 STU A0003 1192 21 0385 1242 +1543 AUP 1952 1242 10 1952 1817 +1544 AUP A0002 1817 10 0384 1292 +1545 STU A0004 1292 21 0386 1342 +1546 AUP 1953 1342 10 1953 1867 +1547 AUP A0002 1867 10 0384 1392 +1548 LDD STNON 1392 69 1746 0911 +1549 STU W0004 1746 21 1980 1442 +1550 RAL NONON 1442 65 0634 1492 +1551 STU W0005 1492 21 1981 1542 +1552 STU W0006 1542 21 1982 1592 +1553 STL W0003 1592 20 1979 1642 +1554 RAU NONO 1642 60 0883 1692 +1555 SLT 0004 1692 35 0004 1917 +1556 STU W0002 1917 21 1978 1742 +1557 RAU D0005 1742 60 0036 1792 +1558 STU W0001 1792 21 1977 1842 +1559 LDD PS133 1842 69 1796 0638 +1560 RAU A0001 APCH4 1796 60 0383 1892 +1561 APCH4 SRT 0004 1892 30 0004 1967 +1562 LDD STNON 1967 69 1974 0911 +1563 AUP D0005 1974 10 0036 1942 +1564 STU W0001 1942 21 1977 1992 +1565 RAL A0001 1992 65 0383 1846 +1566 ALO 8002 1846 15 1549 8002 +1567 RAL A0001 1549 65 0383 1896 +1568 STL TEMP1 1896 20 0509 1325 +1569 BMI APCH1 APCH2 1325 46 1946 1996 +1570 APCH2 AUP CNTRL 1996 10 0354 1375 +1571 STU W0010 APCH3 1375 21 1986 1947 +1572 APCH1 RAU D0008 APCH2 1946 60 0039 1996 +1573 APCH3 RAM TEMP1 CKLDD 1947 67 0509 1604 +1574 CKLDD LDD 8003 1604 69 8003 1425 +1575 SDA TEMP1 1425 22 0509 1475 +1576 AUP 8003 1475 10 8003 1997 +1577 SIA TEMP2 1997 23 0490 0848 +1578 SLT 0002 0848 35 0002 1525 +1579 RAU 8003 1525 60 8003 0898 +1580 LDD PS100 0898 69 1052 1035 +1581 AUP NONO 1052 10 0883 0948 +1582 SLT 0004 0948 35 0004 1575 +1583 STU W0002 1575 21 1978 0998 +1584 RAU TEMP1 0998 60 0509 1625 +1585 SRT 0004 1625 30 0004 1048 +1586 LDD STNON 1048 69 1102 0911 +1587 STU W0003 1102 21 1979 1098 +1588 RAU TEMP2 1098 60 0490 1148 +1589 LDD STNON 1148 69 1152 0911 +1590 STU W0004 1152 21 1980 1198 +1591 STL W0005 1198 20 1981 1248 +1592 LDD PS133 1248 69 1202 0638 +1593 RAU A0001 1202 60 0383 1298 +1594 SUP ONE 1298 11 0630 1348 +1595 STU A0001 1348 21 0383 1398 +1596 NZU APCH4 FNLPC 1398 44 1892 1252 +1597 FNLPC STU W0001 1252 21 1977 1448 +1598 STU W0002 1448 21 1978 1498 +1599 STU K 1498 21 0146 1599 +1600 STU JAY FNL1 1599 21 0710 1675 +1601 FNL1 RAU JAY FNL2 1675 60 0710 1725 +1602 FNL2 AUP ONET 1725 10 0356 1775 +1603 STU GAMMA 1775 21 0372 1825 +1604 RAU TYPE4 1825 60 1548 1875 +1605 STU W0010 1875 21 1986 1598 +1606 RAL FNL3 1598 65 1302 1925 +1607 ALO K 8002 1925 15 0146 8002 +1608 FNL3 RAL D0001 1302 65 0032 1648 +1609 STL W0003 1648 20 1979 1698 +1610 STL TEMP2 1698 20 0490 1748 +1611 RAU GAMMA 1748 60 0372 1798 +1612 LDD PS100 1798 69 1352 1035 +1613 AUP YOU 1352 10 1975 1848 +1614 STU W0004 1848 21 1980 1898 +1615 LDD PS133 1898 69 1402 0638 +1616 RAL FNL4 1402 65 1526 1948 +1617 ALO K 8002 1948 15 0146 8002 +1618 FNL4 RAL 1951 1526 65 1951 1576 +1619 STL TEMP1 1576 20 0509 1626 +1620 ALO GAMMA 1626 15 0372 1998 +1621 STL JAY 1998 20 0710 1676 +1622 SLO GAMMA 1676 16 0372 1649 +1623 NZE FNL5 1649 45 1452 1726 +1624 RAL 8001 1726 65 8001 1699 +1625 SLO ONET 1699 16 0356 1776 +1626 STL GAMMA FNL5 1776 20 0372 1452 +1627 FNL6 PCH W0001 1900 71 1977 1749 +1628 RAU K 1749 60 0146 1502 +1629 AUP ONE 1502 10 0630 1799 +1630 STU K 1799 21 0146 1849 +1631 SUP FIVE 1849 11 1552 1826 +1632 NZU FNL1 9876 FINISH 1826 44 1675 9876 +1633 FNL5 RAU TYPE3 1452 60 1666 1876 +1634 STU W0010 1876 21 1986 1899 +1635 RAU JAY 1899 60 0710 1926 +1636 LDD STNON 1926 69 1949 0911 +1637 STU W0004 1949 21 1980 1950 +1638 RAU GAMMA 1950 60 0372 1602 +1639 AUP ONET 1602 10 0356 1976 +1640 LDD STNON 1976 69 1652 0911 +1641 AUP TEMP2 1652 10 0490 1702 +1642 STU W0003 FNL6 1702 21 1979 1900 +1643 ONET 00 0000 0001 0356 00 0000 0001 +1644 TWOT 00 0000 0002 1823 00 0000 0002 +1646 FOURT 00 0000 0004 1091 00 0000 0004 +1647 FIVET 00 0000 0005 0922 00 0000 0005 +1648 SIXT 00 0000 0006 0330 00 0000 0006 +1649 SEVNT 00 0000 0007 1160 00 0000 0007 +1650 EIGTT 00 0000 0008 1559 00 0000 0008 +1651 NINET 00 0000 0009 1862 00 0000 0009 +1652 TENT 00 0000 0010 1845 00 0000 0010 +1653 TWLVT 00 0000 0012 1494 00 0000 0012 +1654 FRTNT 00 0000 0014 1659 00 0000 0014 +1655 SXTNT 00 0000 0016 1224 00 0000 0016 +1656 SVNTT 00 0000 0017 0696 00 0000 0017 +1657 NNTEN 00 0000 0019 0592 00 0000 0019 +1658 TWSIX 00 0000 0026 1000 00 0000 0026 +1659 SIXTR 00 0000 0063 1465 00 0000 0063 +1660 NINTY 00 0000 0090 0360 00 0000 0090 +1661 ONE 00 0001 0000 0630 00 0001 0000 +1662 TWO 00 0002 0000 0148 00 0002 0000 +1663 THREE 00 0003 0000 1131 00 0003 0000 +1664 FOUR 00 0004 0000 1200 00 0004 0000 +1665 FIVE 00 0005 0000 1552 00 0005 0000 +1666 SIX 00 0006 0000 0520 00 0006 0000 +1667 SEVEN 00 0007 0000 1589 00 0007 0000 +1668 FFTY1 00 0051 0000 0357 00 0051 0000 +1669 OONE 01 0000 0000 0832 01 0000 0000 +1670 OTWO 02 0000 0000 0768 02 0000 0000 +1671 OTREY 03 0000 0000 0888 03 0000 0000 +1672 OFIVE 05 0000 0000 0528 05 0000 0000 +1673 FRONE 41 0000 0000 1431 41 0000 0000 +1674 FIVEO 50 0000 0000 1054 50 0000 0000 +1675 SVTY2 72 0000 0000 1568 72 0000 0000 +1676 NINEO 90 0000 0000 0874 90 0000 0000 +1677 ALO 15 0000 0000 0988 15 0000 0000 +1678 MPY 19 0000 0000 1832 19 0000 0000 +1679 STL 20 0000 0000 0636 20 0000 0000 +1680 NZE 45 0000 0000 1132 45 0000 0000 +1681 BMI 46 0000 0000 1339 46 0000 0000 +1682 RAU 60 0000 0000 1116 60 0000 0000 +1683 DVR 64 0000 0000 1609 64 0000 0000 +1684 RAL 65 0000 0000 0968 65 0000 0000 +1685 RSL 66 0000 0000 0344 66 0000 0000 +1686 RAM 67 0000 0000 0894 67 0000 0000 +1687 ABCON 00 5000 0000 0776 00 5000 0000 +1688 ACC 00 0001 0000 1804 00 0001 0000 +1689 ACCUM ACC 0737 61 6363 0000 +1690 C 00 3000 0000 1277 00 3000 0000 +1691 CNTRL 00 0000 8000 0354 00 0000 8000 +1692 EXT 00 0000 9000 0690 00 0000 9000 +1693 FIXNR 00 0000 0501 0870 00 0000 0501 +1694 GO 00 4000 4000 1016 00 4000 4000 +1695 LDAC LDD 0001 8002 1415 69 0001 8002 +1696 I 00 1000 0000 1477 00 1000 0000 +1697 LOCUS 73 6161 6161 0918 73 6161 6161 +1698 LOW 00 8002 0000 0352 00 8002 0000 +1699 LOW1 00 0000 8002 0980 00 0000 8002 +1700 M M 1612 74 0000 0000 +1701 MAX 00 0000 0025 0029 00 0000 0025 +1702 MAXE 00 0000 0500 0542 00 0000 0500 +1703 MAXU 00 0143 0000 0671 00 0143 0000 +1704 NONO 00 0000 9090 0883 00 0000 9090 +1705 NONON 00 9090 9090 0634 00 9090 9090 +1706 P P 1317 77 0000 0000 +1707 PHI 00 6000 0000 1324 00 6000 0000 +1708 SLTI3 35 1003 0000 0499 35 1003 0000 +1709 STLA1 STL 0001 0000 1004 20 0001 0000 +1710 STORE 06 0051 0000 0030 06 0051 0000 +1711 TEMP9 73 6161 6161 0853 73 6161 6161 +1712 TYPE3 80 0000 8000 1666 80 0000 8000 +1713 TYPE4 88 0000 8000 1548 88 0000 8000 +1714 W 00 7000 0000 1354 00 7000 0000 +1715 WDIF 69 6600 0000 1059 69 6600 0000 +1716 Y 00 2000 0000 1580 00 2000 0000 +1717 YOU U0000 1975 84 9090 9090 +1718 Z Z 1407 89 0000 0000 + PSI 00 0000 0000 0041 00 0000 0000 + TALLY 00 0000 0000 0373 00 0000 0000 + GAMMA 00 0000 0000 0372 00 0000 0000 + L 00 0000 0000 0529 00 0000 0000 + U 00 0000 0000 0515 00 0000 0000 + QUOTA 00 0000 0000 0531 00 0000 0000 + V1 00 0000 0000 0488 00 0000 0000 + K 00 0000 0000 0146 00 0000 0000 + NU 00 0000 0000 0700 00 0000 0000 + N 00 0000 0000 0484 00 0000 0000 + NBAR 00 0000 0000 0342 00 0000 0000 + MU 00 0000 0000 0750 00 0000 0000 + ARITH 00 0000 0000 0358 00 0000 0000 + ABVAL 00 0000 0000 0366 00 0000 0000 + OPSGN 00 0000 0000 0524 00 0000 0000 + RELAT 00 0000 0000 0632 00 0000 0000 + R 00 0000 0000 0340 00 0000 0000 + INTGR 00 0000 0000 0538 00 0000 0000 + TEMP1 00 0000 0000 0509 00 0000 0000 + UBAR 00 0000 0000 0516 00 0000 0000 + TEMP2 00 0000 0000 0490 00 0000 0000 + TEMP3 00 0000 0000 0709 00 0000 0000 + TEMP4 00 0000 0000 0788 00 0000 0000 + TEMP5 00 0000 0000 1299 00 0000 0000 + TEMP6 00 0000 0000 1326 00 0000 0000 + JAY 00 0000 0000 0710 00 0000 0000 + BETA 00 0000 0000 1503 00 0000 0000 + FLOP1 00 0000 0000 1047 00 0000 0000 + CHI 00 0000 0000 1831 00 0000 0000 + STAR 00 0000 0000 1188 00 0000 0000 + EL 00 0000 0000 0746 00 0000 0000 + 1 5 + 2 5 CARNEGIE TECH COMPILER IT + 3 5 DECEMBER 18 1957 + 4 5 + 5 5 ERRATA BUGFIX + 6 5 +1442X STU OPSGN 1334 21 0524 1902 +1442A STD V1 1384 1902 24 0488 1384 + 1 5 + 2 5 CARNEGIE TECH COMPILER IT + 3 5 APRIL 18 1958 + 4 5 + 5 5 ERRATA BUGFIX + 6 5 + 341X SUP A0001 OUT IF JAY 1065 11 0383 1137 +A341X STU NEWAB 0887 1137 21 0845 0887 + 603X BS LDD DROPU DCRMNT U 0987 69 0690 0893 +A603X RAL NEWAB 0690 65 0845 0298 +B603X NZE BSA 0640 0298 45 0786 0640 + 606X STL A0001 BSA 1485 20 0383 0786 + 607X BSA RAU N BN1 0786 60 0484 1039 + 650X LDD 1377 LDSR COMPILE 1413 69 1377 1038 + X NEWAB 00 0000 0000 0845 00 0000 0000 + 1 5 + 2 5 CARNEGIE TECH COMPILER IT + 3 5 NO DATE + 4 5 + 5 5 ERRATA BUGFIX + 6 5 + 793X LDD ML1A TKNZ1 TKNZ1AND ML1 0940 69 1802 1094 + 799X MY1 LDD ML1A TKNZ2 1178 69 1802 1194 +A793X ML1A SLO 8002 1802 16 8002 1852 +B793X STL ABVAL ML1 1852 20 0366 1291 + 804X LDD 1971 GENN RAL AJAY 1139 69 1971 1681 + + + + + diff --git a/I650/sw/it_example_1_data.txt b/I650/sw/it_example_1_data.txt new file mode 100644 index 00000000..fe4ab385 --- /dev/null +++ b/I650/sw/it_example_1_data.txt @@ -0,0 +1,12 @@ +02+ 1 11000000050 +03+ 1 902100000005! +03+ 2 9022000000050 +03+ 3 9033000000050 +03+ 4 9044000000050 +03+ 5 9055000000050 +03+ 6 9066000000050 +03+ 7 9077000000050 +03+ 8 9088000000050 +03+ 9 9099000000050 ++3 10 210000000511100000051 +01+ 5 80! 11 diff --git a/I650/sw/it_example_1_out.txt b/I650/sw/it_example_1_out.txt new file mode 100644 index 00000000..d5efd40d --- /dev/null +++ b/I650/sw/it_example_1_out.txt @@ -0,0 +1 @@ + 3 ~ ~ ~d diff --git a/I650/sw/it_example_1_src.txt b/I650/sw/it_example_1_src.txt new file mode 100644 index 00000000..13dbf98f --- /dev/null +++ b/I650/sw/it_example_1_src.txt @@ -0,0 +1,8 @@ ++0000000050000000002000000001100000000070000000000001725 + +0001+ read f rd dta +0002+ y2 z 0j f set p +0003+ 4k i1k i5k m1k 1k f i loop +0004+ y2 z ci1 s y1 x y2 f new p +0005+ t y2 t i5 f pch p +0007+ h ff stop diff --git a/I650/sw/it_example_2_src.txt b/I650/sw/it_example_2_src.txt new file mode 100644 index 00000000..d32e3d21 --- /dev/null +++ b/I650/sw/it_example_2_src.txt @@ -0,0 +1,62 @@ ++ 2 0 50 10 1672 + + 1+ 2k i1k 1k 1k 50k f c1 to + 2+ ci1 z 1j f c50=1 + + i1 z 1 f n=1 + 3+ i1 z i1 s 1 f n=n+1 + + g 5 if i1 w 50 f gt 50 + + g 3 if ci1 u 0j f c(n)=0 + + i2 z i1 f m=n + 4+ i2 z i2 s i1 f m=m+n + + g 3 if i2 w 50 f gt 50 + + ci2 z 0j f c(m)=0 + + g 4 f goto 4 + 5+ i1 z 1 f n=1 + 6+ i1 z i1 s 1 f n=n+1 + + g 10 if i1 w 50 f gt 50 + + g 8 if ci1 u 0j f c(n)=0 + 7+ t i1 f pch n + 8+ g 6 f goto 6 + 10+ h ff stop + + +prime number generator using the sieve of eratosthenes +converted to ibm 650 IT compliler + + IT system syntax IT notation in manual c-like equivalent syntax + + 1+ 2k i1k 1k 1k 50k 1: 2,i1,1,1,50, for(num=1,num<=50;num++) + 2+ ci1 z 1j 2: ci1 <- 1. prime(num) = 1.0 + + + i1 z 1 i1 <- 1 num=1 + + 3+ i1 z i1 s 1 3: i1 <- i1 + 1 loop1: num++ + + g 5 if i1 w 50 g 5 if i1 >= 50 if num >= 50 goto loope + + + g 3 if ci1 u 0j g 3 if ci1 = 0. if prime(num)=0 goto loop1 + + i2 z i1 i2 <- i1 mult=num + + 4+ i2 z i2 s i1 4: i2 <- i2 + i1 loop2: mult=mult+num + + g 3 if i2 w 50 g 3 if i2 >= 50 if mult >= 50 goto loop1 + + + ci2 z 0j ci2 <- 0. prime(mult) = 0.0 + + g 4 g 4 goto loop2 + + 5+ i1 z 1 5: i1 <- 1 loope: num = 1 + 6+ i1 z i1 s 1 i1 <- i1 + 1 prt1: num++ + + g 10 if i1 w 50 g 10 if i1 >= 50 if num >= 50 goto prt3 + + + g 8 if ci1 u 0j g 8 if ci1 = 0. if prime(num)=0 goto prt2 + 7+ t i1 t i1 punch num + 8+ g 6 g 6 prt2: goto prt1 +10+ h h prt3: end + +control card is calculated as follows + +number of i integer variables: 2 (i1 and i2) +number of y float variables: 0 +number of c float variables: 50 (ci1 ranges from c1 to c50) +higher statement number: 10 +using run time package p1 (265 words) +mem avail N = 1999 - (2 + 0 + 50 + 10 + 265) = 1672 + diff --git a/I650/sw/it_package_p1.dck b/I650/sw/it_package_p1.dck new file mode 100644 index 00000000..d4c8bd0f --- /dev/null +++ b/I650/sw/it_package_p1.dck @@ -0,0 +1,254 @@ +6I1954195C 0000241833800?2417861789 e00aistdarthxai1 1-add +6I1954195C 0000241789800?2017941799 ai1 stlarthg 2- +6I1954195C 0000241799800?6918021805 ldd arthb 3- +6I1954195C 0000241802800?6780021767 ram 8002 4-store acc +6I1954195C 0000241767800?2017721894 stlarthf 5-power +6I1954195C 0000241894800?1819021759 smlarthe 6- +6I1954195C 0000241759800?3500011766 slt 0001 7- +6I1954195C 0000241766800?4417731771 nzuai12 8-find max +6I1954195C 0000241771800?6917741777 lddai3a 9- +6I1954195C 0000241777800?3000051790 srt 0005 10-power +6I1954195C 0000241790800?2217931796 sdaai3 11-set expnnts +6I1954195C 0000241796800?4618991754 bmi ai2 12-and then +6I1954195C 0000241899800?6719021817 ramarthe 13-perform +6I1954195C 0000241817800?2017721776 stlarthf 14-addition +6I1954195C 0000241776800?6517881943 ralarthh 15- +6I1954195C 0000241943800?6918241793 lddarthmai3 16- +6I1954195C 0000241793800?3000001811 ai3 srt 0000ai3b 17- +6I1954195C 0000241774800?3000001811 ai3a srt 0000ai3b 18- +6I1954195C 0000241811800?1580011770 ai3b alo 8001ai5 19- +6I1954195C 0000241754800?6518241779 ai2 ralarthm 20- +6I1954195C 0000241779800?6917881793 lddarthhai3 21- +6I1954195C 0000241770800?6080021780 ai5 rau 8002 22-clear arthe +6I1954195C 0000241780800?2019021762 stlarthearths 23-to scale +6I1954195C 0000241773800?4617781828 ai12 bmi ai13 24- +6I1954195C 0000241778800?6517941904 ralarthgai10 25- +6I1954195C 0000241828800?6500001786 ai13 ralacc arthx 26- +6I1954195C 0000241805800?2418081826 arthbstdarthy 27-break up exp +6I1954195C 0000241826800?3500081996 slt 0008 28-and mantissa +6I1954195C 0000241996800?2019021755 stlarthe 29-store power +6I1954195C 0000241755800?6080031763 rau 8003 30-and mantissa +6I1954195C 0000241763800?3500011769 slt 0001 31-of lower +6I1954195C 0000241769800?2118241997 stuarthm 32- +6I1954195C 0000241997800?6000001855 rauacc 33- +6I1954195C 0000241855800?3000021761 srt 0002 34-store power +6I1954195C 0000241761800?1680021819 slo 8002 35-and mantissa +6I1954195C 0000241819800?3500011775 slt 0001 36-of acc +6I1954195C 0000241775800?1580011783 alo 8001 37- +6I1954195C 0000241783800?2117881808 stuarthharthy 38- +6I1954195C 0000241762800?3600001782 arthssct 0000 39-normalize +6I1954195C 0000241782800?4719421787 bovai6 40-brnch if zro +6I1954195C 0000241787800?2017941797 stlarthg 41-shift count +6I1954195C 0000241797800?6580031905 ral 8003 42-round on +6I1954195C 0000241905800?3100021813 srd 0002 43-ninth digit +6I1954195C 0000241813800?3500021869 slt 0002 44-check for +6I1954195C 0000241869800?2018241877 stlarthm 45-roundoff +6I1954195C 0000241877800?4418311834 nzuai7 ai8 46-overflow +6I1954195C 0000241834800?6780031841 ai8 ram 8003 47-and +6I1954195C 0000241841800?1817941800 smlarthg 48-correct if +6I1954195C 0000241800800?1519031822 aloaj2 49-necessary +6I1954195C 0000241822800?3500081791 slt 0008 50- +6I1954195C 0000241791800?6580021849 ral 8002 51- +6I1954195C 0000241849800?1719021757 amlarthe 52- +6I1954195C 0000241757800?1517721827 aloarthf 53- +6I1954195C 0000241827800?4617521781 bmiai11a 54-pwr too smal +6I1954195C 0000241781800?4417851836 nzuai11 55-pwr too lrge +6I1954195C 0000241836800?3500021893 slt 0002 56- +6I1954195C 0000241893800?2119981901 stuacc1 57- +6I1954195C 0000241901800?6518241829 ralarthm 58- +6I1954195C 0000241829800?4619441995 bmi ai9 59-combine +6I1954195C 0000241944800?1619981904 sloacc1 ai10 60- +6I1954195C 0000241904800?2000001786 ai10 stlacc arthx 61-and +6I1954195C 0000241995800?1519981904 ai9 aloacc1 ai10 62- +6I1954195C 0000241831800?3000011792 ai7 srt 0001 63-adjust +6I1954195C 0000241792800?2018241927 stlarthm 64- +6I1954195C 0000241927800?3500011834 slt 0001ai8 65- +6I1954195C 0000241942800?6580031904 ai6 ral 8003ai10 66- +6I1954195C 0000241832800?2417861839 e00ajstdarthx 67-multiply +6I1954195C 0000241839800?6918521805 ldd arthb 68- +6I1954195C 0000241852800?6780021867 ram 8002 69-acc power +6I1954195C 0000241867800?1618201825 sloaj1 70-minus 48 +6I1954195C 0000241825800?2017721875 stlarthf 71- +6I1954195C 0000241875800?6017881756 rauarthh 72- +6I1954195C 0000241756800?1918241762 mpyarthmarths 73- +6I1954195C 0000241830800?2417861889 e00agstdarthxag1 74-divide +6I1954195C 0000241889800?6918421805 ag1 ldd arthb 75-is divisor +6I1954195C 0000241842800?4418121846 nzu ag3 76-zer0 +6I1954195C 0000241812800?6880021821 rsm 8002 77-divisor +6I1954195C 0000241821800?1518761895 aloag2 78-power minus +6I1954195C 0000241895800?2017721768 stlarthf 79-49 +6I1954195C 0000241768800?6018241879 rauarthm 80-sh1ft +6I1954195C 0000241879800?3000011885 srt 0001 81-dividend +6I1954195C 0000241885800?6417881803 dvrarthh 82-do divide +6I1954195C 0000241803800?6080021762 rau 8002arths 83- +6I1954195C 0000241882800?2417861989 e00aostdarthx 84-div reverse +6I1954195C 0000241989800?2018431896 stlacc2 85- +6I1954195C 0000241896800?6500001810 ralacc 86- +6I1954195C 0000241810800?6918431897 lddacc2 87- +6I1954195C 0000241897800?2400001889 stdacc ag1 88- +6I1954195C 0000241947800?2418581911 e00afstdacc6 89-fl0at to lwr +6I1954195C 0000241911800?6919251928 lddae4 e00ae 90-and acc +6I1954195C 0000241925800?2000001858 ae4 stlacc acc6 91- +6I1954195C 0000241928800?2417861840 e00aestdarthx 92-float to lwr +6I1954195C 0000241840800?6080021753 rau 8002 93-only +6I1954195C 0000241753800?3600001975 sct 0000 94-normalize +6I1954195C 0000241975800?2018811784 stlacc3 95- +6I1954195C 0000241784800?4718511890 bovad1 96-zer0 check +6I1954195C 0000241890800?6580031798 ral 8003 97- +6I1954195C 0000241798800?3100021807 srd 0002 98-round for +6I1954195C 0000241807800?3500021764 slt 0002 99-placing exp +6I1954195C 0000241764800?4418181891 nzu ae6 100-check round +6I1954195C 0000241818800?6980031874 ldd 8003 101-overflow +6I1954195C 0000241874800?3000011884 srt 0001 102- +6I1954195C 0000241884800?1580011891 alo 8001ae6 103- +6I1954195C 0000241891800?4618441845 ae6 bmiae2 104-insert +6I1954195C 0000241845800?1518481804 aloaj3 ae5 105-exp0nent +6I1954195C 0000241844800?1618481804 ae2 sloaj3 ae5 106- +6I1954195C 0000241804800?1618811786 ae5 sloacc3 arthx 107- +6I1954195C 0000241932800?2417861990 e00thstdarthx 108-fix l0wer +6I1954195C 0000241990800?3500081859 slt 0008 109-to lower +6I1954195C 0000241859800?2118241878 stuarthm 110- +6I1954195C 0000241878800?6780021887 ram 8002 111-test exp +6I1954195C 0000241887800?1619401945 sloaj5 112-store zer0 +6I1954195C 0000241945800?4618511850 bmiad1 113-if less than +6I1954195C 0000241850800?1618531758 sloaj4 114-50 alarm +6I1954195C 0000241758800?4618611862 bmi ad3 115-1f grtr than +6I1954195C 0000241861800?3000041921 srt 0004 116-59 +6I1954195C 0000241921800?1519241929 aloar7 117- +6I1954195C 0000241929800?6918351838 lddad2a 118-modify +6I1954195C 0000241838800?2219911971 sdaad2 119-shift +6I1954195C 0000241971800?6518241930 ralarthm 120- +6I1954195C 0000241930800?3500021991 slt 0002ad2 121- +6I1954195C 0000241851800?6580031786 ad1 ral 8003arthx 122-store zero +6I1954195C 0000241991800?3000001786 ad2 srt 0000arthx 123-shift c0nst +6I1954195C 0000241835800?3000001786 ad2a srt 0000arthx 124- +6I1954195C 0000241862800?6917863031 ad3 lddarthx 3031 125-fix alarm +6I1954195C 0000241846800?6917863061 ag3 lddarthx 3061 126-divide alarm +6I1954195C 0000241785800?6917863081 ai11 lddarthx 3081 127-scale alarm +6I1954195C 0000241752800?0110811942 ai11ahlt 1081ai6 128- +6I1954195C 0000241876800?4900000000 ag2 49 0000 0000 129- +6I1954195C 0000241820800?4800000000 aj1 48 0000 0000 130- +6I1954195C 0000241903800?0000000001 aj2 00 0000 0001 131- +6I1954195C 0000241848800?0000000059 aj3 00 0000 0059 132- +6I1954195C 0000241853800?1000000000 aj4 10 0000 0000 133- +6I1954195C 0000241940800?5000000000 aj5 50 0000 0000 134- +6I1954195C 0000241974800?2419771880 e00aqstdj0001aq1 135-read +6I1954195C 0000241880800?7019761898 aq1 rd1 1976aq3 136- +6I1954195C 0000241898800?6719511806 aq3 ramp0001aq3a 137- +6I1954195C 0000241892800?6719511806 aq3b ramp0001aq3a 138-check for +6I1954195C 0000241806800?4518601837 aq3a nze aq8 139-last word +6I1954195C 0000241860800?6918631816 lddaq5 aq4 140-on card +6I1954195C 0000241816800?2418701873 aq4 stdacc4 141- +6I1954195C 0000241873800?1080031931 aup 8003 142-read in +6I1954195C 0000241931800?3000041941 srt 0004 143-label for +6I1954195C 0000241941800?2317951948 siaacc5 144-present +6I1954195C 0000241948800?1680011856 slo 8001 145-variable +6I1954195C 0000241856800?1518098002 alo 8002 146-get i y 0r c +6I1954195C 0000241809800?6000001987 rau 0000 147-address from +6I1954195C 0000241987800?1017951949 aupacc5 146-abcon dict +6I1954195C 0000241949800?3500041870 slt 0004acc4 149-generate +6I1954195C 0000241863800?1018661857 aq5 aupaq7 150-1nstruction +6I1954195C 0000241857800?1519601965 alop0010 151- +6I1954195C 0000241965800?1519688002 alo 8002 152-get and +6I1954195C 0000241968800?6919528003 lddp0002 8003 153-store word +6I1954195C 0000241866800?2400001907 aq7 std 0000 154- +6I1954195C 0000241907800?6519601915 ralp0010 155-increment +6I1954195C 0000241915800?1519181854 aloaq9 156-word count +6I1954195C 0000241854800?2019601963 stlp0010 157- +6I1954195C 0000241963800?1518928002 aloaq3b 8002 158- +6I1954195C 0000241837800?6519511765 aq8 ralp0001 159-check for +6I1954195C 0000241765800?4619771880 bmij0001aq1 160-last card +6I1954195C 0000241801800?2419551908 e00arstdp0005 161-punch 0ut +6I1954195C 0000241908800?2119791935 stuj0003 162- +6I1954195C 0000241935800?2319581912 siap0008 163-store stmnt +6I1954195C 0000241912800?2119801886 stuj0004 164-number +6I1954195C 0000241886800?2219541909 sdap0004 165-store word +6I1954195C 0000241909800?1680011917 slo 8001 166-count +6I1954195C 0000241917800?4519201872 nzear10 ar9 167-test zero +6I1954195C 0000241920800?2119811814 ar10 stuj0005 168-stmt number +6I1954195C 0000241814800?2419821972 stdj0006 169-set punch +6I1954195C 0000241972800?2419831864 stdj0007 170-band to +6I1954195C 0000241864800?2419841888 stdj0008 171-zeroes +6I1954195C 0000241888800?2419601913 stdp0010ar3 172-set counter +6I1954195C 0000241913800?6519541910 ar3 ralp0004 173- +6I1954195C 0000241910800?1619241936 sloar7 174- +6I1954195C 0000241936800?4619941992 bmiar8 175-test word +6I1954195C 0000241992800?2019541865 stlp0004ar4 176-count +6I1954195C 0000241865800?1518688002 ar4 alo 8002 177-get word +6I1954195C 0000241868800?6519501914 ralp0000 178-label from +6I1954195C 0000241914800?1080031922 aup 8003 179-punch consts +6I1954195C 0000241922800?3500011938 slt 0001 180- +6I1954195C 0000241938800?2219571961 sdap0007 181-modify label +6I1954195C 0000241961800?1680011919 slo 8001 182- +6I1954195C 0000241919800?3000011926 srt 0001 183- +6I1954195C 0000241926800?1519571962 alop0007 184- +6I1954195C 0000241962800?3500041923 slt 0004 185-insert stmnt +6I1954195C 0000241923800?1519581964 alop0008 186-number +6I1954195C 0000241964800?1019601916 aupp0010 187- +6I1954195C 0000241916800?1019698003 aup 8003 188- +6I1954195C 0000241969800?2019771988 stlj0001 189-store label +6I1954195C 0000241988800?6580021900 ral 8002 190-for punching +6I1954195C 0000241900800?6919061816 ldd aq4 191-modify label +6I1954195C 0000241906800?1019661934 aupar6 192-into drum +6I1954195C 0000241934800?1519601967 alop0010 193-loc in read +6I1954195C 0000241967800?1519708003 alo 8003 194-get word +6I1954195C 0000241970800?2419781993 stdj0002 195-store in +6I1954195C 0000241993800?6519601815 ralp0010 196-punch band +6I1954195C 0000241815800?1519181973 aloaq9 197- +6I1954195C 0000241973800?2019601913 stlp0010ar3 196- +6I1954195C 0000241966800?6900008002 ar6 ldd 0000 8002 199- +6I1954195C 0000241924800?0000010000 ar7 00 0001 0000 200- +6I1954195C 0000241994800?7119771955 ar8 pchj0001p0005 201-punch +6I1954195C 0000241872800?6580001937 ar9 ral 8000 202-if stmt nmbr +6I1954195C 0000241937800?4619201955 bmiar10 p0005 203-zro pch only +6I1954195C 0000241918800?0000020000 aq9 00 0002 0000 204-if 8000 neg +6I1954195C 0000241986800?8000008800 j0010 80 0000 8800 205-control cnst +6I1954195C 0000241976800?6719511744 1976ram 1951 206-read +6I1954195C 0000241744800?1080031741 aup 8003 207-up to +6I1954195C 0000241741800?3500041748 slt 0004 208-seven +6I1954195C 0000241748800?2219591737 sdap0009 209-contiguous +6I1954195C 0000241737800?3000041746 srt 0004 210-variables +6I1954195C 0000241746800?6917501816 ldd aq4 211-per card +6I1954195C 0000241750800?6580031749 ral 8003 212- +6I1954195C 0000241749800?1019591740 aupp0009 213- +6I1954195C 0000241740800?1580011751 alo 8001 214- +6I1954195C 0000241751800?1017381742 aupaq9b 215- +6I1954195C 0000241742800?1517451735 aloaq10 aq11 216- +6I1954195C 0000241735800?1117381743 aq11 supaq9b 217- +6I1954195C 0000241743800?4417471837 nzu aq8 218- +6I1954195C 0000241747800?1080011736 aup 8001 219- +6I1954195C 0000241736800?1119241739 supar7 220- +6I1954195C 0000241739800?1680018003 slo 8001 8003 221- +6I1954195C 0000241738800?6919528002 aq9b ldd 1952 8002 222- +6I1954195C 0000241745800?2400001735 aq10 std 0000aq11 223- +6I1954195C 0000241786800?0000000000 arthx 00 0000 0000 - +6I1954195C 0000241794800?0000000000 arthg 00 0000 0000 - +6I1954195C 0000241772800?0000000000 arthf 00 0000 0000 - +6I1954195C 0000241902800?0000000000 arthe 00 0000 0000 - +6I1954195C 0000241788800?0000000000 arthh 00 0000 0000 - +6I1954195C 0000241824800?0000000000 arthm 00 0000 0000 - +6I1954195C 0000241808800?0000000000 arthy 00 0000 0000 - +6I1954195C 0000240000800?0000000000 acc 00 0000 0000 - +6I1954195C 0000241998800?0000000000 acc1 00 0000 0000 - +6I1954195C 0000241843800?0000000000 acc2 00 0000 0000 - +6I1954195C 0000241881800?0000000000 acc3 00 0000 0000 - +6I1954195C 0000241870800?0000000000 acc4 00 0000 0000 - +6I1954195C 0000241795800?0000000000 acc5 00 0000 0000 - +6I1954195C 0000241858800?0000000000 acc6 00 0000 0000 - +6I1954195C 0000241977800?0000000000 j0001 00 0000 0000 - +6I1954195C 0000241978800?0000000000 j0002 00 0000 0000 - +6I1954195C 0000241979800?0000000000 j0003 00 0000 0000 - +6I1954195C 0000241980800?0000000000 j0004 00 0000 0000 - +6I1954195C 0000241981800?0000000000 j0005 00 0000 0000 - +6I1954195C 0000241982800?0000000000 j0006 00 0000 0000 - +6I1954195C 0000241983800?0000000000 j0007 00 0000 0000 - +6I1954195C 0000241984800?0000000000 j0008 00 0000 0000 - +6I1954195C 0000241950800?0000000000 p0000 00 0000 0000 - +6I1954195C 0000241951800?0000000000 p0001 00 0000 0000 - +6I1954195C 0000241952800?0000000000 p0002 00 0000 0000 - +6I1954195C 0000241954800?0000000000 p0004 00 0000 0000 - +6I1954195C 0000241955800?0000000000 p0005 00 0000 0000 - +6I1954195C 0000241957800?0000000000 p0007 00 0000 0000 - +6I1954195C 0000241958800?0000000000 p0008 00 0000 0000 - +6I1954195C 0000241959800?0000000000 p0009 00 0000 0000 - +6I1954195C 0000241960800?0000000000 p0010 00 0000 0000 - diff --git a/I650/sw/it_package_p1_listing.txt b/I650/sw/it_package_p1_listing.txt new file mode 100644 index 00000000..a6a5e4fa --- /dev/null +++ b/I650/sw/it_package_p1_listing.txt @@ -0,0 +1,267 @@ + 5 PACKAGE 1 + 5 CONTAINS FOLLOWING + 5 ROUTINES + 5 E00AI ADDITION + 5 E00AJ MULTIPLICATION + 5 E00AG DIVISION + 5 E00AO DIVIDE REVERSE + 5 E00AF FLOAT TO LOWER AND ACC + 5 E00AE FLOAT TO LOWER + 5 E00AQ READ + 5 E00AR PUNCH + 5 E00TH FIX TO LOWER + 1 E00AI STD ARTHX AI1 ADD 1833 24 1786 1789 + 2 AI1 STL ARTHG 1789 20 1794 1799 + 3 LDD ARTHB 1799 69 1802 1805 + 4 RAM 8002 STORE ACC 1802 67 8002 1767 + 5 STL ARTHF POWER 1767 20 1772 1894 + 6 SML ARTHE 1894 18 1902 1759 + 7 SLT 0001 1759 35 0001 1766 + 8 NZU AI12 FIND MAX 1766 44 1773 1771 + 9 LDD AI3A 1771 69 1774 1777 + 10 SRT 0005 POWER 1777 30 0005 1790 + 11 SDA AI3 SET EXPNNTS 1790 22 1793 1796 + 12 BMI AI2 AND THEN 1796 46 1899 1754 + 13 RAM ARTHE PERFORM 1899 67 1902 1817 + 14 STL ARTHF ADDITION 1817 20 1772 1776 + 15 RAL ARTHH 1776 65 1788 1943 + 16 LDD ARTHM AI3 1943 69 1824 1793 + 17 AI3 SRT 0000 AI3B 1793 30 0000 1811 + 18 AI3A SRT 0000 AI3B 1774 30 0000 1811 + 19 AI3B ALO 8001 AI5 1811 15 8001 1770 + 20 AI2 RAL ARTHM 1754 65 1824 1779 + 21 LDD ARTHH AI3 1779 69 1788 1793 + 22 AI5 RAU 8002 CLEAR ARTHE 1770 60 8002 1780 + 23 STL ARTHE ARTHS TO SCALE 1780 20 1902 1762 + 24 AI12 BMI AI13 1773 46 1778 1828 + 25 RAL ARTHG AI10 1778 65 1794 1904 + 26 AI13 RAL ACC ARTHX 1828 65 0000 1786 + 27 ARTHB STD ARTHY BREAK UP EXP 1805 24 1808 1826 + 28 SLT 0008 AND MANTISSA 1826 35 0008 1996 + 29 STL ARTHE STORE POWER 1996 20 1902 1755 + 30 RAU 8003 AND MANTISSA 1755 60 8003 1763 + 31 SLT 0001 OF LOWER 1763 35 0001 1769 + 32 STU ARTHM 1769 21 1824 1997 + 33 RAU ACC 1997 60 0000 1855 + 34 SRT 0002 STORE POWER 1855 30 0002 1761 + 35 SLO 8002 AND MANTISSA 1761 16 8002 1819 + 36 SLT 0001 OF ACC 1819 35 0001 1775 + 37 ALO 8001 1775 15 8001 1783 + 38 STU ARTHH ARTHY 1783 21 1788 1808 + 39 ARTHS SCT 0000 NORMALIZE 1762 36 0000 1782 + 40 BOV AI6 BRNCH IF ZRO 1782 47 1942 1787 + 41 STL ARTHG SHIFT COUNT 1787 20 1794 1797 + 42 RAL 8003 ROUND ON 1797 65 8003 1905 + 43 SRD 0002 NINTH DIGIT 1905 31 0002 1813 + 44 SLT 0002 CHECK FOR 1813 35 0002 1869 + 45 STL ARTHM ROUNDOFF 1869 20 1824 1877 + 46 NZU AI7 AI8 OVERFLOW 1877 44 1831 1834 + 47 AI8 RAM 8003 AND 1834 67 8003 1841 + 48 SML ARTHG CORRECT IF 1841 18 1794 1800 + 49 ALO AJ2 NECESSARY 1800 15 1903 1822 + 50 SLT 0008 1822 35 0008 1791 + 51 RAL 8002 1791 65 8002 1849 + 52 AML ARTHE 1849 17 1902 1757 + 53 ALO ARTHF 1757 15 1772 1827 + 54 BMI AI11A PWR TOO SMAL 1827 46 1752 1781 + 55 NZU AI11 PWR TOO LRGE 1781 44 1785 1836 + 56 SLT 0002 1836 35 0002 1893 + 57 STU ACC1 1893 21 1998 1901 + 58 RAL ARTHM 1901 65 1824 1829 + 59 BMI AI9 COMBINE 1829 46 1944 1995 + 60 SLO ACC1 AI10 1944 16 1998 1904 + 61 AI10 STL ACC ARTHX AND 1904 20 0000 1786 + 62 AI9 ALO ACC1 AI10 1995 15 1998 1904 + 63 AI7 SRT 0001 ADJUST 1831 30 0001 1792 + 64 STL ARTHM 1792 20 1824 1927 + 65 SLT 0001 AI8 1927 35 0001 1834 + 66 AI6 RAL 8003 AI10 1942 65 8003 1904 + 67 E00AJ STD ARTHX MULTIPLY 1832 24 1786 1839 + 68 LDD ARTHB 1839 69 1852 1805 + 69 RAM 8002 ACC POWER 1852 67 8002 1867 + 70 SLO AJ1 MINUS 48 1867 16 1820 1825 + 71 STL ARTHF 1825 20 1772 1875 + 72 RAU ARTHH 1875 60 1788 1756 + 73 MPY ARTHM ARTHS 1756 19 1824 1762 + 74 E00AG STD ARTHX AG1 DIVIDE 1830 24 1786 1889 + 75 AG1 LDD ARTHB IS DIVISOR 1889 69 1842 1805 + 76 NZU AG3 ZER0 1842 44 1812 1846 + 77 RSM 8002 DIVISOR 1812 68 8002 1821 + 78 ALO AG2 POWER MINUS 1821 15 1876 1895 + 79 STL ARTHF 49 1895 20 1772 1768 + 80 RAU ARTHM SH1FT 1768 60 1824 1879 + 81 SRT 0001 DIVIDEND 1879 30 0001 1885 + 82 DVR ARTHH DO DIVIDE 1885 64 1788 1803 + 83 RAU 8002 ARTHS 1803 60 8002 1762 + 84 E00AO STD ARTHX DIV REVERSE 1882 24 1786 1989 + 85 STL ACC2 1989 20 1843 1896 + 86 RAL ACC 1896 65 0000 1810 + 87 LDD ACC2 1810 69 1843 1897 + 88 STD ACC AG1 1897 24 0000 1889 + 89 E00AF STD ACC6 FL0AT TO LWR 1947 24 1858 1911 + 90 LDD AE4 E00AE AND ACC 1911 69 1925 1928 + 91 AE4 STL ACC ACC6 1925 20 0000 1858 + 92 E00AE STD ARTHX FLOAT TO LWR 1928 24 1786 1840 + 93 RAU 8002 ONLY 1840 60 8002 1753 + 94 SCT 0000 NORMALIZE 1753 36 0000 1975 + 95 STL ACC3 1975 20 1881 1784 + 96 BOV AD1 ZER0 CHECK 1784 47 1851 1890 + 97 RAL 8003 1890 65 8003 1798 + 98 SRD 0002 ROUND FOR 1798 31 0002 1807 + 99 SLT 0002 PLACING EXP 1807 35 0002 1764 + 100 NZU AE6 CHECK ROUND 1764 44 1818 1891 + 101 LDD 8003 OVERFLOW 1818 69 8003 1874 + 102 SRT 0001 1874 30 0001 1884 + 103 ALO 8001 AE6 1884 15 8001 1891 + 104 AE6 BMI AE2 INSERT 1891 46 1844 1845 + 105 ALO AJ3 AE5 EXP0NENT 1845 15 1848 1804 + 106 AE2 SLO AJ3 AE5 1844 16 1848 1804 + 107 AE5 SLO ACC3 ARTHX 1804 16 1881 1786 + 108 E00TH STD ARTHX FIX L0WER 1932 24 1786 1990 + 109 SLT 0008 TO LOWER 1990 35 0008 1859 + 110 STU ARTHM 1859 21 1824 1878 + 111 RAM 8002 TEST EXP 1878 67 8002 1887 + 112 SLO AJ5 STORE ZER0 1887 16 1940 1945 + 113 BMI AD1 IF LESS THAN 1945 46 1851 1850 + 114 SLO AJ4 50 ALARM 1850 16 1853 1758 + 115 BMI AD3 1F GRTR THAN 1758 46 1861 1862 + 116 SRT 0004 59 1861 30 0004 1921 + 117 ALO AR7 1921 15 1924 1929 + 118 LDD AD2A MODIFY 1929 69 1835 1838 + 119 SDA AD2 SHIFT 1838 22 1991 1971 + 120 RAL ARTHM 1971 65 1824 1930 + 121 SLT 0002 AD2 1930 35 0002 1991 + 122 AD1 RAL 8003 ARTHX STORE ZERO 1851 65 8003 1786 + 123 AD2 SRT 0000 ARTHX SHIFT C0NST 1991 30 0000 1786 + 124 AD2A SRT 0000 ARTHX 1835 30 0000 1786 + 125 AD3 LDD ARTHX 3031 FIX ALARM 1862 69 1786 3031 + 126 AG3 LDD ARTHX 3061 DIVIDE ALARM 1846 69 1786 3061 + 127 AI11 LDD ARTHX 3081 SCALE ALARM 1785 69 1786 3081 + 128 AI11A HLT 1081 AI6 1752 01 1081 1942 + 129 AG2 49 0000 0000 1876 49 0000 0000 + 130 AJ1 48 0000 0000 1820 48 0000 0000 + 131 AJ2 00 0000 0001 1903 00 0000 0001 + 132 AJ3 00 0000 0059 1848 00 0000 0059 + 133 AJ4 10 0000 0000 1853 10 0000 0000 + 134 AJ5 50 0000 0000 1940 50 0000 0000 + 135 E00AQ STD J0001 AQ1 READ 1974 24 1977 1880 + 136 AQ1 RD1 1976 AQ3 1880 70 1976 1898 + 137 AQ3 RAM P0001 AQ3A 1898 67 1951 1806 + 138 AQ3B RAM P0001 AQ3A CHECK FOR 1892 67 1951 1806 + 139 AQ3A NZE AQ8 LAST WORD 1806 45 1860 1837 + 140 LDD AQ5 AQ4 ON CARD 1860 69 1863 1816 + 141 AQ4 STD ACC4 1816 24 1870 1873 + 142 AUP 8003 READ IN 1873 10 8003 1931 + 143 SRT 0004 LABEL FOR 1931 30 0004 1941 + 144 SIA ACC5 PRESENT 1941 23 1795 1948 + 145 SLO 8001 VARIABLE 1948 16 8001 1856 + 146 ALO 8002 GET I Y OR C 1856 15 1809 8002 + 147 RAU 0000 ADDRESS FROM 1809 60 0000 1987 was RAU A000 - 00 0000 0000 + 146 AUP ACC5 ABCON DICT 1987 10 1795 1949 + 149 SLT 0004 ACC4 GENERATE 1949 35 0004 1870 + 150 AQ5 AUP AQ7 INSTRUCTION 1863 10 1866 1857 + 151 ALO P0010 1857 15 1960 1965 + 152 ALO 8002 GET AND 1965 15 1968 8002 + 153 LDD P0002 8003 STORE WORD 1968 69 1952 8003 + 154 AQ7 STD 0000 1866 24 0000 1907 + 155 RAL P0010 INCREMENT 1907 65 1960 1915 + 156 ALO AQ9 WORD COUNT 1915 15 1918 1854 + 157 STL P0010 1854 20 1960 1963 + 158 ALO AQ3B 8002 1963 15 1892 8002 + 159 AQ8 RAL P0001 CHECK FOR 1837 65 1951 1765 + 160 BMI J0001 AQ1 LAST CARD 1765 46 1977 1880 + 161 E00AR STD P0005 PUNCH 0UT 1801 24 1955 1908 + 162 STU J0003 1908 21 1979 1935 + 163 SIA P0008 STORE STMNT 1935 23 1958 1912 + 164 STU J0004 NUMBER 1912 21 1980 1886 + 165 SDA P0004 STORE WORD 1886 22 1954 1909 + 166 SLO 8001 COUNT 1909 16 8001 1917 + 167 NZE AR10 AR9 TEST ZERO 1917 45 1920 1872 + 168 AR10 STU J0005 STMT NUMBER 1920 21 1981 1814 + 169 STD J0006 SET PUNCH 1814 24 1982 1972 + 170 STD J0007 BAND TO 1972 24 1983 1864 + 171 STD J0008 ZEROES 1864 24 1984 1888 + 172 STD P0010 AR3 SET COUNTER 1888 24 1960 1913 + 173 AR3 RAL P0004 1913 65 1954 1910 + 174 SLO AR7 1910 16 1924 1936 + 175 BMI AR8 TEST WORD 1936 46 1994 1992 + 176 STL P0004 AR4 COUNT 1992 20 1954 1865 + 177 AR4 ALO 8002 GET WORD 1865 15 1868 8002 + 178 RAL P0000 LABEL FROM 1868 65 1950 1914 + 179 AUP 8003 PUNCH CONSTS 1914 10 8003 1922 + 180 SLT 0001 1922 35 0001 1938 + 181 SDA P0007 MODIFY LABEL 1938 22 1957 1961 + 182 SLO 8001 1961 16 8001 1919 + 183 SRT 0001 1919 30 0001 1926 + 184 ALO P0007 1926 15 1957 1962 + 185 SLT 0004 INSERT STMNT 1962 35 0004 1923 + 186 ALO P0008 NUMBER 1923 15 1958 1964 + 187 AUP P0010 1964 10 1960 1916 + 188 AUP 8003 1916 10 1969 8003 + 189 STL J0001 STORE LABEL 1969 20 1977 1988 + 190 RAL 8002 FOR PUNCHING 1988 65 8002 1900 + 191 LDD AQ4 MODIFY LABEL 1900 69 1906 1816 + 192 AUP AR6 INTO DRUM 1906 10 1966 1934 + 193 ALO P0010 LOC IN READ 1934 15 1960 1967 + 194 ALO 8003 GET WORD 1967 15 1970 8003 + 195 STD J0002 STORE IN 1970 24 1978 1993 + 196 RAL P0010 PUNCH BAND 1993 65 1960 1815 + 197 ALO AQ9 1815 15 1918 1973 + 196 STL P0010 AR3 1973 20 1960 1913 + 199 AR6 LDD 0000 8002 1966 69 0000 8002 + 200 AR7 00 0001 0000 1924 00 0001 0000 + 201 AR8 PCH J0001 P0005 PUNCH 1994 71 1977 1955 + 202 AR9 RAL 8000 IF STMT NMBR 1872 65 8000 1937 + 203 BMI AR10 P0005 ZRO PCH ONLY 1937 46 1920 1955 + 204 AQ9 00 0002 0000 IF 8000 NEG 1918 00 0002 0000 + 205 J0010 80 0000 8800 CONTROL CNST 1986 80 0000 8800 + 206 1976 RAM 1951 READ 1976 67 1951 1744 + 207 AUP 8003 UP TO 1744 10 8003 1741 + 208 SLT 0004 SEVEN 1741 35 0004 1748 + 209 SDA P0009 CONTIGUOUS 1748 22 1959 1737 + 210 SRT 0004 VARIABLES 1737 30 0004 1746 + 211 LDD AQ4 PER CARD 1746 69 1750 1816 + 212 RAL 8003 1750 65 8003 1749 + 213 AUP P0009 1749 10 1959 1740 + 214 ALO 8001 1740 15 8001 1751 + 215 AUP AQ9B 1751 10 1738 1742 + 216 ALO AQ10 AQ11 1742 15 1745 1735 + 217 AQ11 SUP AQ9B 1735 11 1738 1743 + 218 NZU AQ8 1743 44 1747 1837 + 219 AUP 8001 1747 10 8001 1736 + 220 SUP AR7 1736 11 1924 1739 + 221 SLO 8001 8003 1739 16 8001 8003 + 222 AQ9B LDD 1952 8002 1738 69 1952 8002 + 223 AQ10 STD 0000 AQ11 1745 24 0000 1735 + 1 VARS + ARTHX 00 0000 0000 1786 00 0000 0000 + ARTHG 00 0000 0000 1794 00 0000 0000 + ARTHF 00 0000 0000 1772 00 0000 0000 + ARTHE 00 0000 0000 1902 00 0000 0000 + ARTHH 00 0000 0000 1788 00 0000 0000 + ARTHM 00 0000 0000 1824 00 0000 0000 + ARTHY 00 0000 0000 1808 00 0000 0000 + ACC 00 0000 0000 0000 00 0000 0000 + ACC1 00 0000 0000 1998 00 0000 0000 + ACC2 00 0000 0000 1843 00 0000 0000 + ACC3 00 0000 0000 1881 00 0000 0000 + ACC4 00 0000 0000 1870 00 0000 0000 + ACC5 00 0000 0000 1795 00 0000 0000 + ACC6 00 0000 0000 1858 00 0000 0000 + J0001 00 0000 0000 1977 00 0000 0000 + J0002 00 0000 0000 1978 00 0000 0000 + J0003 00 0000 0000 1979 00 0000 0000 + J0004 00 0000 0000 1980 00 0000 0000 + J0005 00 0000 0000 1981 00 0000 0000 + J0006 00 0000 0000 1982 00 0000 0000 + J0007 00 0000 0000 1983 00 0000 0000 + J0008 00 0000 0000 1984 00 0000 0000 + P0000 00 0000 0000 1950 00 0000 0000 + P0001 00 0000 0000 1951 00 0000 0000 + P0002 00 0000 0000 1952 00 0000 0000 + P0004 00 0000 0000 1954 00 0000 0000 + P0005 00 0000 0000 1955 00 0000 0000 + P0007 00 0000 0000 1957 00 0000 0000 + P0008 00 0000 0000 1958 00 0000 0000 + P0009 00 0000 0000 1959 00 0000 0000 + P0010 00 0000 0000 1960 00 0000 0000 diff --git a/I650/sw/it_package_p2.dck b/I650/sw/it_package_p2.dck new file mode 100644 index 00000000..205a04b9 --- /dev/null +++ b/I650/sw/it_package_p2.dck @@ -0,0 +1,370 @@ +6I1954195C 0000241833800?2417861789 e00aistdarthxai1 1-add +6I1954195C 0000241789800?2017941799 ai1 stlarthg 2- +6I1954195C 0000241799800?6918021805 ldd arthb 3- +6I1954195C 0000241802800?6780021767 ram 8002 4-store acc +6I1954195C 0000241767800?2017721894 stlarthf 5-power +6I1954195C 0000241894800?1819021759 smlarthe 6- +6I1954195C 0000241759800?3500011766 slt 0001 7- +6I1954195C 0000241766800?4417731771 nzuai12 8-find max +6I1954195C 0000241771800?6917741777 lddai3a 9- +6I1954195C 0000241777800?3000051790 srt 0005 10-power +6I1954195C 0000241790800?2217931796 sdaai3 11-set expnnts +6I1954195C 0000241796800?4618991754 bmi ai2 12-and then +6I1954195C 0000241899800?6719021817 ramarthe 13-perform +6I1954195C 0000241817800?2017721776 stlarthf 14-addition +6I1954195C 0000241776800?6517881943 ralarthh 15- +6I1954195C 0000241943800?6918241793 lddarthmai3 16- +6I1954195C 0000241793800?3000001811 ai3 srt 0000ai3b 17- +6I1954195C 0000241774800?3000001811 ai3a srt 0000ai3b 18- +6I1954195C 0000241811800?1580011770 ai3b alo 8001ai5 19- +6I1954195C 0000241754800?6518241779 ai2 ralarthm 20- +6I1954195C 0000241779800?6917881793 lddarthhai3 21- +6I1954195C 0000241770800?6080021780 ai5 rau 8002 22-clear arthe +6I1954195C 0000241780800?2019021762 stlarthearths 23-to scale +6I1954195C 0000241773800?4617781828 ai12 bmi ai13 24- +6I1954195C 0000241778800?6517941904 ralarthgai10 25- +6I1954195C 0000241828800?6500001786 ai13 ralacc arthx 26- +6I1954195C 0000241805800?2418081826 arthbstdarthy 27-break up exp +6I1954195C 0000241826800?3500081996 slt 0008 28-and mantissa +6I1954195C 0000241996800?2019021755 stlarthe 29-store power +6I1954195C 0000241755800?6080031763 rau 8003 30-and mantissa +6I1954195C 0000241763800?3500011769 slt 0001 31-of lower +6I1954195C 0000241769800?2118241997 stuarthm 32- +6I1954195C 0000241997800?6000001855 rauacc 33- +6I1954195C 0000241855800?3000021761 srt 0002 34-store power +6I1954195C 0000241761800?1680021819 slo 8002 35-and mantissa +6I1954195C 0000241819800?3500011775 slt 0001 36-of acc +6I1954195C 0000241775800?1580011783 alo 8001 37- +6I1954195C 0000241783800?2117881808 stuarthharthy 38- +6I1954195C 0000241762800?3600001782 arthssct 0000 39-normalize +6I1954195C 0000241782800?4719421787 bovai6 40-brnch if zro +6I1954195C 0000241787800?2017941797 stlarthg 41-shift count +6I1954195C 0000241797800?6580031905 ral 8003 42-round on +6I1954195C 0000241905800?3100021813 srd 0002 43-ninth digit +6I1954195C 0000241813800?3500021869 slt 0002 44-check for +6I1954195C 0000241869800?2018241877 stlarthm 45-roundoff +6I1954195C 0000241877800?4418311834 nzuai7 ai8 46-overflow +6I1954195C 0000241834800?6780031841 ai8 ram 8003 47-and +6I1954195C 0000241841800?1817941800 smlarthg 48-correct if +6I1954195C 0000241800800?1519031822 aloaj2 49-necessary +6I1954195C 0000241822800?3500081791 slt 0008 50- +6I1954195C 0000241791800?6580021849 ral 8002 51- +6I1954195C 0000241849800?1719021757 amlarthe 52- +6I1954195C 0000241757800?1517721827 aloarthf 53- +6I1954195C 0000241827800?4617521781 bmiai11a 54-pwr too smal +6I1954195C 0000241781800?4417851836 nzuai11 55-pwr too lrge +6I1954195C 0000241836800?3500021893 slt 0002 56- +6I1954195C 0000241893800?2119981901 stuacc1 57- +6I1954195C 0000241901800?6518241829 ralarthm 58- +6I1954195C 0000241829800?4619441995 bmi ai9 59-combine +6I1954195C 0000241944800?1619981904 sloacc1 ai10 60- +6I1954195C 0000241904800?2000001786 ai10 stlacc arthx 61-and +6I1954195C 0000241995800?1519981904 ai9 aloacc1 ai10 62- +6I1954195C 0000241831800?3000011792 ai7 srt 0001 63-adjust +6I1954195C 0000241792800?2018241927 stlarthm 64- +6I1954195C 0000241927800?3500011834 slt 0001ai8 65- +6I1954195C 0000241942800?6580031904 ai6 ral 8003ai10 66- +6I1954195C 0000241832800?2417861839 e00ajstdarthx 67-multiply +6I1954195C 0000241839800?6918521805 ldd arthb 68- +6I1954195C 0000241852800?6780021867 ram 8002 69-acc power +6I1954195C 0000241867800?1618201825 sloaj1 70-minus 48 +6I1954195C 0000241825800?2017721875 stlarthf 71- +6I1954195C 0000241875800?6017881756 rauarthh 72- +6I1954195C 0000241756800?1918241762 mpyarthmarths 73- +6I1954195C 0000241830800?2417861889 e00agstdarthxag1 74-divide +6I1954195C 0000241889800?6918421805 ag1 ldd arthb 75-is divisor +6I1954195C 0000241842800?4418121846 nzu ag3 76-zer0 +6I1954195C 0000241812800?6880021821 rsm 8002 77-divisor +6I1954195C 0000241821800?1518761895 aloag2 78-power minus +6I1954195C 0000241895800?2017721768 stlarthf 79-49 +6I1954195C 0000241768800?6018241879 rauarthm 80-sh1ft +6I1954195C 0000241879800?3000011885 srt 0001 81-dividend +6I1954195C 0000241885800?6417881803 dvrarthh 82-do divide +6I1954195C 0000241803800?6080021762 rau 8002arths 83- +6I1954195C 0000241882800?2417861989 e00aostdarthx 84-div reverse +6I1954195C 0000241989800?2018431896 stlacc2 85- +6I1954195C 0000241896800?6500001810 ralacc 86- +6I1954195C 0000241810800?6918431897 lddacc2 87- +6I1954195C 0000241897800?2400001889 stdacc ag1 88- +6I1954195C 0000241947800?2418581911 e00afstdacc6 89-fl0at to lwr +6I1954195C 0000241911800?6919251928 lddae4 e00ae 90-and acc +6I1954195C 0000241925800?2000001858 ae4 stlacc acc6 91- +6I1954195C 0000241928800?2417861840 e00aestdarthx 92-float to lwr +6I1954195C 0000241840800?6080021753 rau 8002 93-only +6I1954195C 0000241753800?3600001975 sct 0000 94-normalize +6I1954195C 0000241975800?2018811784 stlacc3 95- +6I1954195C 0000241784800?4718511890 bovad1 96-zer0 check +6I1954195C 0000241890800?6580031798 ral 8003 97- +6I1954195C 0000241798800?3100021807 srd 0002 98-round for +6I1954195C 0000241807800?3500021764 slt 0002 99-placing exp +6I1954195C 0000241764800?4418181891 nzu ae6 100-check round +6I1954195C 0000241818800?6980031874 ldd 8003 101-overflow +6I1954195C 0000241874800?3000011884 srt 0001 102- +6I1954195C 0000241884800?1580011891 alo 8001ae6 103- +6I1954195C 0000241891800?4618441845 ae6 bmiae2 104-insert +6I1954195C 0000241845800?1518481804 aloaj3 ae5 105-exp0nent +6I1954195C 0000241844800?1618481804 ae2 sloaj3 ae5 106- +6I1954195C 0000241804800?1618811786 ae5 sloacc3 arthx 107- +6I1954195C 0000241932800?2417861990 e00thstdarthx 108-fix l0wer +6I1954195C 0000241990800?3500081859 slt 0008 109-to lower +6I1954195C 0000241859800?2118241878 stuarthm 110- +6I1954195C 0000241878800?6780021887 ram 8002 111-test exp +6I1954195C 0000241887800?1619401945 sloaj5 112-store zer0 +6I1954195C 0000241945800?4618511850 bmiad1 113-if less than +6I1954195C 0000241850800?1618531758 sloaj4 114-50 alarm +6I1954195C 0000241758800?4618611862 bmi ad3 115-1f grtr than +6I1954195C 0000241861800?3000041921 srt 0004 116-59 +6I1954195C 0000241921800?1519241929 aloar7 117- +6I1954195C 0000241929800?6918351838 lddad2a 118-modify +6I1954195C 0000241838800?2219911971 sdaad2 119-shift +6I1954195C 0000241971800?6518241930 ralarthm 120- +6I1954195C 0000241930800?3500021991 slt 0002ad2 121- +6I1954195C 0000241851800?6580031786 ad1 ral 8003arthx 122-store zero +6I1954195C 0000241991800?3000001786 ad2 srt 0000arthx 123-shift c0nst +6I1954195C 0000241835800?3000001786 ad2a srt 0000arthx 124- +6I1954195C 0000241862800?6917863031 ad3 lddarthx 3031 125-fix alarm +6I1954195C 0000241846800?6917863061 ag3 lddarthx 3061 126-divide alarm +6I1954195C 0000241785800?6917863081 ai11 lddarthx 3081 127-scale alarm +6I1954195C 0000241752800?0110811942 ai11ahlt 1081ai6 128- +6I1954195C 0000241876800?4900000000 ag2 49 0000 0000 129- +6I1954195C 0000241820800?4800000000 aj1 48 0000 0000 130- +6I1954195C 0000241903800?0000000001 aj2 00 0000 0001 131- +6I1954195C 0000241848800?0000000059 aj3 00 0000 0059 132- +6I1954195C 0000241853800?1000000000 aj4 10 0000 0000 133- +6I1954195C 0000241940800?5000000000 aj5 50 0000 0000 134- +6I1954195C 0000241974800?2419771880 e00aqstdj0001aq1 135-read +6I1954195C 0000241880800?7019761898 aq1 rd1 1976aq3 136- +6I1954195C 0000241898800?6719511806 aq3 ramp0001aq3a 137- +6I1954195C 0000241892800?6719511806 aq3b ramp0001aq3a 138-check for +6I1954195C 0000241806800?4518601837 aq3a nze aq8 139-last word +6I1954195C 0000241860800?6918631816 lddaq5 aq4 140-on card +6I1954195C 0000241816800?2418701873 aq4 stdacc4 141- +6I1954195C 0000241873800?1080031931 aup 8003 142-read in +6I1954195C 0000241931800?3000041941 srt 0004 143-label for +6I1954195C 0000241941800?2317951948 siaacc5 144-present +6I1954195C 0000241948800?1680011856 slo 8001 145-variable +6I1954195C 0000241856800?1518098002 alo 8002 146-get i y 0r c +6I1954195C 0000241809800?6000001987 rau 0000 147-address from +6I1954195C 0000241987800?1017951949 aupacc5 146-abcon dict +6I1954195C 0000241949800?3500041870 slt 0004acc4 149-generate +6I1954195C 0000241863800?1018661857 aq5 aupaq7 150-1nstruction +6I1954195C 0000241857800?1519601965 alop0010 151- +6I1954195C 0000241965800?1519688002 alo 8002 152-get and +6I1954195C 0000241968800?6919528003 lddp0002 8003 153-store word +6I1954195C 0000241866800?2400001907 aq7 std 0000 154- +6I1954195C 0000241907800?6519601915 ralp0010 155-increment +6I1954195C 0000241915800?1519181854 aloaq9 156-word count +6I1954195C 0000241854800?2019601963 stlp0010 157- +6I1954195C 0000241963800?1518928002 aloaq3b 8002 158- +6I1954195C 0000241837800?6519511765 aq8 ralp0001 159-check for +6I1954195C 0000241765800?4619771880 bmij0001aq1 160-last card +6I1954195C 0000241801800?2419551908 e00arstdp0005 161-punch 0ut +6I1954195C 0000241908800?2119791935 stuj0003 162- +6I1954195C 0000241935800?2319581912 siap0008 163-store stmnt +6I1954195C 0000241912800?2119801886 stuj0004 164-number +6I1954195C 0000241886800?2219541909 sdap0004 165-store word +6I1954195C 0000241909800?1680011917 slo 8001 166-count +6I1954195C 0000241917800?4519201872 nzear10 ar9 167-test zero +6I1954195C 0000241920800?2119811814 ar10 stuj0005 168-stmt number +6I1954195C 0000241814800?2419821972 stdj0006 169-set punch +6I1954195C 0000241972800?2419831864 stdj0007 170-band to +6I1954195C 0000241864800?2419841888 stdj0008 171-zeroes +6I1954195C 0000241888800?2419601913 stdp0010ar3 172-set counter +6I1954195C 0000241913800?6519541910 ar3 ralp0004 173- +6I1954195C 0000241910800?1619241936 sloar7 174- +6I1954195C 0000241936800?4619941992 bmiar8 175-test word +6I1954195C 0000241992800?2019541865 stlp0004ar4 176-count +6I1954195C 0000241865800?1518688002 ar4 alo 8002 177-get word +6I1954195C 0000241868800?6519501914 ralp0000 178-label from +6I1954195C 0000241914800?1080031922 aup 8003 179-punch consts +6I1954195C 0000241922800?3500011938 slt 0001 180- +6I1954195C 0000241938800?2219571961 sdap0007 181-modify label +6I1954195C 0000241961800?1680011919 slo 8001 182- +6I1954195C 0000241919800?3000011926 srt 0001 183- +6I1954195C 0000241926800?1519571962 alop0007 184- +6I1954195C 0000241962800?3500041923 slt 0004 185-insert stmnt +6I1954195C 0000241923800?1519581964 alop0008 186-number +6I1954195C 0000241964800?1019601916 aupp0010 187- +6I1954195C 0000241916800?1019698003 aup 8003 188- +6I1954195C 0000241969800?2019771988 stlj0001 189-store label +6I1954195C 0000241988800?6580021900 ral 8002 190-for punching +6I1954195C 0000241900800?6919061816 ldd aq4 191-modify label +6I1954195C 0000241906800?1019661934 aupar6 192-into drum +6I1954195C 0000241934800?1519601967 alop0010 193-loc in read +6I1954195C 0000241967800?1519708003 alo 8003 194-get word +6I1954195C 0000241970800?2419781993 stdj0002 195-store in +6I1954195C 0000241993800?6519601815 ralp0010 196-punch band +6I1954195C 0000241815800?1519181973 aloaq9 197- +6I1954195C 0000241973800?2019601913 stlp0010ar3 196- +6I1954195C 0000241966800?6900008002 ar6 ldd 0000 8002 199- +6I1954195C 0000241924800?0000010000 ar7 00 0001 0000 200- +6I1954195C 0000241994800?7119771955 ar8 pchj0001p0005 201-punch +6I1954195C 0000241872800?6580001937 ar9 ral 8000 202-if stmt nmbr +6I1954195C 0000241937800?4619201955 bmiar10 p0005 203-zro pch only +6I1954195C 0000241918800?0000020000 aq9 00 0002 0000 204-if 8000 neg +6I1954195C 0000241986800?8000008800 j0010 80 0000 8800 205-control cnst +6I1954195C 0000241654800?2418081732 e00alstdarthy 206- +6I1954195C 0000241732800?2017881694 stlarthh 207- +6I1954195C 0000241694800?6500001709 ralacc al17a 208-is power +6I1954195C 0000241709800?2418701723 al17astdacc4 209-two +6I1954195C 0000241723800?2417861739 stdarthx 210-if so +6I1954195C 0000241739800?1616861692 sloal16 211-multiply +6I1954195C 0000241692800?4517311751 nzeal18 212- +6I1954195C 0000241751800?6517881645 ralarthh 213- +6I1954195C 0000241645800?2400001655 stdacc 214- +6I1954195C 0000241655800?6918081832 lddarthye00aj 215- +6I1954195C 0000241731800?6517881693 al18 ralarthhal17 216- +6I1954195C 0000241693800?3500081661 al17 slt 0008 217- +6I1954195C 0000241661800?1680021720 slo 8002 218- +6I1954195C 0000241720800?3500021677 slt 0002 219-q equals +6I1954195C 0000241677800?1580011690 alo 8001 220-mantissa +6I1954195C 0000241690800?2117721675 stuarthf 221-of argument +6I1954195C 0000241675800?6780021683 ram 8002 222- +6I1954195C 0000241683800?1617361691 sloal1 223-store expnnt +6I1954195C 0000241691800?3500021698 slt 0002 224-of argmnt +6I1954195C 0000241698800?2119021706 stuarthe 225- +6I1954195C 0000241706800?6516601666 ralal2 226-mantissa of +6I1954195C 0000241666800?2018241678 stlarthm 227-z is one +6I1954195C 0000241678800?6517361695 ralal1 228- +6I1954195C 0000241695800?3500021702 slt 0002 229-exp of z is +6I1954195C 0000241702800?2117941747 stuarthgal3 230-50 +6I1954195C 0000241747800?6000001708 al3 rauacc 231-k is grtst +6I1954195C 0000241708800?1917361738 mpyal1 232-integer in +6I1954195C 0000241738800?2100001658 stuacc 233-k over two +6I1954195C 0000241658800?6580021667 ral 8002 234-is remainder +6I1954195C 0000241667800?4516701646 nze al4 235-zer0 +6I1954195C 0000241670800?6018241729 rauarthm 236-if not set z +6I1954195C 0000241729800?6916821737 ldd al5 237-equals to +6I1954195C 0000241682800?1517941715 aloarthg 238-z times q +6I1954195C 0000241715800?2017941699 stlarthg 239-via +6I1954195C 0000241699800?6516651669 ralarthd 240-subroutine +6I1954195C 0000241669800?2018241638 stlarthm 241- +6I1954195C 0000241638800?4516461741 nzeal4 al20 242- +6I1954195C 0000241646800?6000001712 al4 rauacc 243-if k nonzero +6I1954195C 0000241712800?4416681721 nzu al7 244-q equals +6I1954195C 0000241668800?6017721679 rauarthf 245- +6I1954195C 0000241679800?6916841737 ldd al5 246-via subrtne +6I1954195C 0000241684800?1519021714 aloarthe 247- +6I1954195C 0000241714800?2019021662 stlarthe 248- +6I1954195C 0000241662800?6516651719 ralarthd 249- +6I1954195C 0000241719800?2017721747 stlarthfal3 250- +6I1954195C 0000241721800?6017941700 al7 rauarthg 251-set exponnts +6I1954195C 0000241700800?3000021663 srt 0002 252-arths +6I1954195C 0000241663800?4417851722 nzuai11 253-exp overscal +6I1954195C 0000241722800?2019021664 stlarthe 254- +6I1954195C 0000241664800?2117721671 stuarthf 255- +6I1954195C 0000241671800?6018241680 rauarthm 256- +6I1954195C 0000241680800?3000011741 srt 0001al20 257- +6I1954195C 0000241741800?6917161724 al20 lddal8 258- +6I1954195C 0000241724800?2417861762 stdarthxarths 259- +6I1954195C 0000241716800?6518701648 al8 ralacc4 260- +6I1954195C 0000241648800?4617011743 bmial10 261- +6I1954195C 0000241743800?6500001808 ralacc arthy 262- +6I1954195C 0000241701800?6500001672 al10 ralacc 263-z equals one +6I1954195C 0000241672800?4516761681 nze al12 264-over z if +6I1954195C 0000241676800?6516851649 ralal11 265-k neg and z +6I1954195C 0000241649800?6918081830 lddarthye00ag 266-non zero +6I1954195C 0000241681800?6918083111 al12 lddarthy 3111 267-alarm if zro +6I1954195C 0000241737800?2417861652 al5 stdarthx 268- +6I1954195C 0000241652800?1917721673 mpyarthf 269- +6I1954195C 0000241673800?3000091644 srt 0009 270- +6I1954195C 0000241644800?4416501639 nzual14 271- +6I1954195C 0000241639800?2016651640 stlarthd 272- +6I1954195C 0000241640800?6580031641 ral 8003al15 273- +6I1954195C 0000241641800?1519021786 al15 aloarthearthx 274- +6I1954195C 0000241650800?3000011643 al14 srt 0001 275- +6I1954195C 0000241643800?2016651642 stlarthd 276- +6I1954195C 0000241642800?6519031641 ralaj2 al15 277- +6I1954195C 0000241736800?5000000000 al1 50 0000 0000 278- +6I1954195C 0000241660800?1000000000 al2 10 0000 0000 279- +6I1954195C 0000241685800?1000000050 al11 10 0000 0050 280- +6I1954195C 0000241686800?0000000002 al16 00 0000 0002 281- +6I1954195C 0000241903800?0000000001 aj2 00 0000 0001 282- +6I1954195C 0000241651800?2418081687 e00anstdarthy 283-power +6I1954195C 0000241687800?6900001674 lddacc 284-float fix +6I1954195C 0000241674800?2417881745 stdarthh 285-reverse +6I1954195C 0000241745800?2000001709 stlacc al17a 286- +6I1954195C 0000241704800?2418081711 e00akstdarthy 287-power fixfix +6I1954195C 0000241711800?2017941647 stlarthgak1 288-q is argmnt +6I1954195C 0000241647800?6700001705 ak1 ramacc 289-k equals +6I1954195C 0000241705800?2017721725 stlarthf 290-abval power +6I1954195C 0000241725800?6519031707 ralaj2 291-z equals +6I1954195C 0000241707800?2017881718 stlarthhak3 292-one +6I1954195C 0000241718800?6017721727 ak3 rauarthf 293-k is gtst +6I1954195C 0000241727800?1917301717 mpyak4 294-intgr in +6I1954195C 0000241717800?2117721726 stuarthf 295-k over two +6I1954195C 0000241726800?6580021735 ral 8002 296-is remainder +6I1954195C 0000241735800?4517341742 nze ak5 297-zero +6I1954195C 0000241734800?6017881688 rauarthh 298-if not z is +6I1954195C 0000241688800?1917941733 mpyarthg 299-z times q +6I1954195C 0000241733800?2017881742 stlarthhak5 300- +6I1954195C 0000241742800?6017721728 ak5 rauarthf 301- +6I1954195C 0000241728800?4417401746 nzu ak6 302-1s k zero +6I1954195C 0000241740800?6017941749 rauarthg 303-if not +6I1954195C 0000241749800?1980011689 mpy 8001 304-q equals +6I1954195C 0000241689800?2017941718 stlarthgak3 305-q squared +6I1954195C 0000241746800?6000001656 ak6 rauacc 306-is power neg +6I1954195C 0000241656800?4616591713 bmi ak7 307-if so is z +6I1954195C 0000241659800?6717881744 ramarthh 308-zero +6I1954195C 0000241744800?4517481750 nze ak8 309-if not is z +6I1954195C 0000241748800?1619031657 sloaj2 310-one +6I1954195C 0000241657800?4517101713 nzeak10 ak7 311- +6I1954195C 0000241713800?6517881808 ak7 ralarthharthy 312-exhibit z +6I1954195C 0000241710800?6580031808 ak10 ral 8003arthy 313- +6I1954195C 0000241750800?6918083101 ak8 lddarthy 3101 314-alarm +6I1954195C 0000241730800?5000000000 ak4 50 0000 0000 315- +6I1954195C 0000241903800?0000000001 aj2 00 0000 0001 316- +6I1954195C 0000241653800?2418081696 e00amstdarthy 317-interchge +6I1954195C 0000241696800?6900001703 lddacc 318-acc and +6I1954195C 0000241703800?2417941697 stdarthg 319-lower +6I1954195C 0000241697800?2000001647 stlacc ak1 320-then e00ak +6I1954195C 0000241976800?6719511623 1976ram 1951 321- +6I1954195C 0000241623800?1080031632 aup 8003 322- +6I1954195C 0000241632800?3500041624 slt 0004 323- +6I1954195C 0000241624800?2219591626 sdap0009 324- +6I1954195C 0000241626800?3000041637 srt 0004 325- +6I1954195C 0000241637800?6916271816 ldd aq4 326- +6I1954195C 0000241627800?6580031636 ral 8003 327- +6I1954195C 0000241636800?1019591633 aupp0009 328- +6I1954195C 0000241633800?1580011631 alo 8001 329- +6I1954195C 0000241631800?1016251628 aupaq9b 330- +6I1954195C 0000241628800?1516341622 aloaq10 aq11 331- +6I1954195C 0000241622800?1116251630 aq11 supaq9b 332- +6I1954195C 0000241630800?4416351837 nzu aq8 333- +6I1954195C 0000241635800?1080011621 aup 8001 334- +6I1954195C 0000241621800?1119241629 supar7 335- +6I1954195C 0000241629800?1680018003 slo 8001 8003 336- +6I1954195C 0000241625800?6919528002 aq9b ldd 1952 8002 337- +6I1954195C 0000241634800?2400001622 aq10 std 0000aq11 338- +6I1954195C 0000241786800?0000000000 arthx 00 0000 0000 - +6I1954195C 0000241665800?0000000000 arthd 00 0000 0000 - +6I1954195C 0000241794800?0000000000 arthg 00 0000 0000 - +6I1954195C 0000241772800?0000000000 arthf 00 0000 0000 - +6I1954195C 0000241902800?0000000000 arthe 00 0000 0000 - +6I1954195C 0000241788800?0000000000 arthh 00 0000 0000 - +6I1954195C 0000241824800?0000000000 arthm 00 0000 0000 - +6I1954195C 0000241808800?0000000000 arthy 00 0000 0000 - +6I1954195C 0000240000800?0000000000 acc 00 0000 0000 - +6I1954195C 0000241998800?0000000000 acc1 00 0000 0000 - +6I1954195C 0000241843800?0000000000 acc2 00 0000 0000 - +6I1954195C 0000241881800?0000000000 acc3 00 0000 0000 - +6I1954195C 0000241870800?0000000000 acc4 00 0000 0000 - +6I1954195C 0000241795800?0000000000 acc5 00 0000 0000 - +6I1954195C 0000241858800?0000000000 acc6 00 0000 0000 - +6I1954195C 0000241977800?0000000000 j0001 00 0000 0000 - +6I1954195C 0000241978800?0000000000 j0002 00 0000 0000 - +6I1954195C 0000241979800?0000000000 j0003 00 0000 0000 - +6I1954195C 0000241980800?0000000000 j0004 00 0000 0000 - +6I1954195C 0000241981800?0000000000 j0005 00 0000 0000 - +6I1954195C 0000241982800?0000000000 j0006 00 0000 0000 - +6I1954195C 0000241983800?0000000000 j0007 00 0000 0000 - +6I1954195C 0000241984800?0000000000 j0008 00 0000 0000 - +6I1954195C 0000241950800?0000000000 p0000 00 0000 0000 - +6I1954195C 0000241951800?0000000000 p0001 00 0000 0000 - +6I1954195C 0000241952800?0000000000 p0002 00 0000 0000 - +6I1954195C 0000241954800?0000000000 p0004 00 0000 0000 - +6I1954195C 0000241955800?0000000000 p0005 00 0000 0000 - +6I1954195C 0000241957800?0000000000 p0007 00 0000 0000 - +6I1954195C 0000241958800?0000000000 p0008 00 0000 0000 - +6I1954195C 0000241959800?0000000000 p0009 00 0000 0000 - +6I1954195C 0000241960800?0000000000 p0010 00 0000 0000 - diff --git a/I650/sw/it_package_p2_listing.txt b/I650/sw/it_package_p2_listing.txt new file mode 100644 index 00000000..2af19c87 --- /dev/null +++ b/I650/sw/it_package_p2_listing.txt @@ -0,0 +1,379 @@ + 5 PACKAGE 2 + 5 CONTAINS PACKAGE 1 + 5 PLUS THE FOLLOWING + 5 ROUTINES + 5 E00AK POWER FIX FIX + 5 E00Am POWER FIX FIX REVERSE + 5 E00AL POWER FLOAT FIX + 5 E00AN POWER FLOAT FIX REVERSE + 1 E00AI STD ARTHX AI1 ADD 1833 24 1786 1789 + 2 AI1 STL ARTHG 1789 20 1794 1799 + 3 LDD ARTHB 1799 69 1802 1805 + 4 RAM 8002 STORE ACC 1802 67 8002 1767 + 5 STL ARTHF POWER 1767 20 1772 1894 + 6 SML ARTHE 1894 18 1902 1759 + 7 SLT 0001 1759 35 0001 1766 + 8 NZU AI12 FIND MAX 1766 44 1773 1771 + 9 LDD AI3A 1771 69 1774 1777 + 10 SRT 0005 POWER 1777 30 0005 1790 + 11 SDA AI3 SET EXPNNTS 1790 22 1793 1796 + 12 BMI AI2 AND THEN 1796 46 1899 1754 + 13 RAM ARTHE PERFORM 1899 67 1902 1817 + 14 STL ARTHF ADDITION 1817 20 1772 1776 + 15 RAL ARTHH 1776 65 1788 1943 + 16 LDD ARTHM AI3 1943 69 1824 1793 + 17 AI3 SRT 0000 AI3B 1793 30 0000 1811 + 18 AI3A SRT 0000 AI3B 1774 30 0000 1811 + 19 AI3B ALO 8001 AI5 1811 15 8001 1770 + 20 AI2 RAL ARTHM 1754 65 1824 1779 + 21 LDD ARTHH AI3 1779 69 1788 1793 + 22 AI5 RAU 8002 CLEAR ARTHE 1770 60 8002 1780 + 23 STL ARTHE ARTHS TO SCALE 1780 20 1902 1762 + 24 AI12 BMI AI13 1773 46 1778 1828 + 25 RAL ARTHG AI10 1778 65 1794 1904 + 26 AI13 RAL ACC ARTHX 1828 65 0000 1786 + 27 ARTHB STD ARTHY BREAK UP EXP 1805 24 1808 1826 + 28 SLT 0008 AND MANTISSA 1826 35 0008 1996 + 29 STL ARTHE STORE POWER 1996 20 1902 1755 + 30 RAU 8003 AND MANTISSA 1755 60 8003 1763 + 31 SLT 0001 OF LOWER 1763 35 0001 1769 + 32 STU ARTHM 1769 21 1824 1997 + 33 RAU ACC 1997 60 0000 1855 + 34 SRT 0002 STORE POWER 1855 30 0002 1761 + 35 SLO 8002 AND MANTISSA 1761 16 8002 1819 + 36 SLT 0001 OF ACC 1819 35 0001 1775 + 37 ALO 8001 1775 15 8001 1783 + 38 STU ARTHH ARTHY 1783 21 1788 1808 + 39 ARTHS SCT 0000 NORMALIZE 1762 36 0000 1782 + 40 BOV AI6 BRNCH IF ZRO 1782 47 1942 1787 + 41 STL ARTHG SHIFT COUNT 1787 20 1794 1797 + 42 RAL 8003 ROUND ON 1797 65 8003 1905 + 43 SRD 0002 NINTH DIGIT 1905 31 0002 1813 + 44 SLT 0002 CHECK FOR 1813 35 0002 1869 + 45 STL ARTHM ROUNDOFF 1869 20 1824 1877 + 46 NZU AI7 AI8 OVERFLOW 1877 44 1831 1834 + 47 AI8 RAM 8003 AND 1834 67 8003 1841 + 48 SML ARTHG CORRECT IF 1841 18 1794 1800 + 49 ALO AJ2 NECESSARY 1800 15 1903 1822 + 50 SLT 0008 1822 35 0008 1791 + 51 RAL 8002 1791 65 8002 1849 + 52 AML ARTHE 1849 17 1902 1757 + 53 ALO ARTHF 1757 15 1772 1827 + 54 BMI AI11A PWR TOO SMAL 1827 46 1752 1781 + 55 NZU AI11 PWR TOO LRGE 1781 44 1785 1836 + 56 SLT 0002 1836 35 0002 1893 + 57 STU ACC1 1893 21 1998 1901 + 58 RAL ARTHM 1901 65 1824 1829 + 59 BMI AI9 COMBINE 1829 46 1944 1995 + 60 SLO ACC1 AI10 1944 16 1998 1904 + 61 AI10 STL ACC ARTHX AND 1904 20 0000 1786 + 62 AI9 ALO ACC1 AI10 1995 15 1998 1904 + 63 AI7 SRT 0001 ADJUST 1831 30 0001 1792 + 64 STL ARTHM 1792 20 1824 1927 + 65 SLT 0001 AI8 1927 35 0001 1834 + 66 AI6 RAL 8003 AI10 1942 65 8003 1904 + 67 E00AJ STD ARTHX MULTIPLY 1832 24 1786 1839 + 68 LDD ARTHB 1839 69 1852 1805 + 69 RAM 8002 ACC POWER 1852 67 8002 1867 + 70 SLO AJ1 MINUS 48 1867 16 1820 1825 + 71 STL ARTHF 1825 20 1772 1875 + 72 RAU ARTHH 1875 60 1788 1756 + 73 MPY ARTHM ARTHS 1756 19 1824 1762 + 74 E00AG STD ARTHX AG1 DIVIDE 1830 24 1786 1889 + 75 AG1 LDD ARTHB IS DIVISOR 1889 69 1842 1805 + 76 NZU AG3 ZER0 1842 44 1812 1846 + 77 RSM 8002 DIVISOR 1812 68 8002 1821 + 78 ALO AG2 POWER MINUS 1821 15 1876 1895 + 79 STL ARTHF 49 1895 20 1772 1768 + 80 RAU ARTHM SH1FT 1768 60 1824 1879 + 81 SRT 0001 DIVIDEND 1879 30 0001 1885 + 82 DVR ARTHH DO DIVIDE 1885 64 1788 1803 + 83 RAU 8002 ARTHS 1803 60 8002 1762 + 84 E00AO STD ARTHX DIV REVERSE 1882 24 1786 1989 + 85 STL ACC2 1989 20 1843 1896 + 86 RAL ACC 1896 65 0000 1810 + 87 LDD ACC2 1810 69 1843 1897 + 88 STD ACC AG1 1897 24 0000 1889 + 89 E00AF STD ACC6 FL0AT TO LWR 1947 24 1858 1911 + 90 LDD AE4 E00AE AND ACC 1911 69 1925 1928 + 91 AE4 STL ACC ACC6 1925 20 0000 1858 + 92 E00AE STD ARTHX FLOAT TO LWR 1928 24 1786 1840 + 93 RAU 8002 ONLY 1840 60 8002 1753 + 94 SCT 0000 NORMALIZE 1753 36 0000 1975 + 95 STL ACC3 1975 20 1881 1784 + 96 BOV AD1 ZER0 CHECK 1784 47 1851 1890 + 97 RAL 8003 1890 65 8003 1798 + 98 SRD 0002 ROUND FOR 1798 31 0002 1807 + 99 SLT 0002 PLACING EXP 1807 35 0002 1764 + 100 NZU AE6 CHECK ROUND 1764 44 1818 1891 + 101 LDD 8003 OVERFLOW 1818 69 8003 1874 + 102 SRT 0001 1874 30 0001 1884 + 103 ALO 8001 AE6 1884 15 8001 1891 + 104 AE6 BMI AE2 INSERT 1891 46 1844 1845 + 105 ALO AJ3 AE5 EXP0NENT 1845 15 1848 1804 + 106 AE2 SLO AJ3 AE5 1844 16 1848 1804 + 107 AE5 SLO ACC3 ARTHX 1804 16 1881 1786 + 108 E00TH STD ARTHX FIX L0WER 1932 24 1786 1990 + 109 SLT 0008 TO LOWER 1990 35 0008 1859 + 110 STU ARTHM 1859 21 1824 1878 + 111 RAM 8002 TEST EXP 1878 67 8002 1887 + 112 SLO AJ5 STORE ZER0 1887 16 1940 1945 + 113 BMI AD1 IF LESS THAN 1945 46 1851 1850 + 114 SLO AJ4 50 ALARM 1850 16 1853 1758 + 115 BMI AD3 1F GRTR THAN 1758 46 1861 1862 + 116 SRT 0004 59 1861 30 0004 1921 + 117 ALO AR7 1921 15 1924 1929 + 118 LDD AD2A MODIFY 1929 69 1835 1838 + 119 SDA AD2 SHIFT 1838 22 1991 1971 + 120 RAL ARTHM 1971 65 1824 1930 + 121 SLT 0002 AD2 1930 35 0002 1991 + 122 AD1 RAL 8003 ARTHX STORE ZERO 1851 65 8003 1786 + 123 AD2 SRT 0000 ARTHX SHIFT C0NST 1991 30 0000 1786 + 124 AD2A SRT 0000 ARTHX 1835 30 0000 1786 + 125 AD3 LDD ARTHX 3031 FIX ALARM 1862 69 1786 3031 + 126 AG3 LDD ARTHX 3061 DIVIDE ALARM 1846 69 1786 3061 + 127 AI11 LDD ARTHX 3081 SCALE ALARM 1785 69 1786 3081 + 128 AI11A HLT 1081 AI6 1752 01 1081 1942 + 129 AG2 49 0000 0000 1876 49 0000 0000 + 130 AJ1 48 0000 0000 1820 48 0000 0000 + 131 AJ2 00 0000 0001 1903 00 0000 0001 + 132 AJ3 00 0000 0059 1848 00 0000 0059 + 133 AJ4 10 0000 0000 1853 10 0000 0000 + 134 AJ5 50 0000 0000 1940 50 0000 0000 + 135 E00AQ STD J0001 AQ1 READ 1974 24 1977 1880 + 136 AQ1 RD1 1976 AQ3 1880 70 1976 1898 + 137 AQ3 RAM P0001 AQ3A 1898 67 1951 1806 + 138 AQ3B RAM P0001 AQ3A CHECK FOR 1892 67 1951 1806 + 139 AQ3A NZE AQ8 LAST WORD 1806 45 1860 1837 + 140 LDD AQ5 AQ4 ON CARD 1860 69 1863 1816 + 141 AQ4 STD ACC4 1816 24 1870 1873 + 142 AUP 8003 READ IN 1873 10 8003 1931 + 143 SRT 0004 LABEL FOR 1931 30 0004 1941 + 144 SIA ACC5 PRESENT 1941 23 1795 1948 + 145 SLO 8001 VARIABLE 1948 16 8001 1856 + 146 ALO 8002 GET I Y 0R C 1856 15 1809 8002 + 147 RAU 0000 ADDRESS FROM 1809 60 0000 1987 was RAU A000 - 00 0000 0000 + 146 AUP ACC5 ABCON DICT 1987 10 1795 1949 + 149 SLT 0004 ACC4 GENERATE 1949 35 0004 1870 + 150 AQ5 AUP AQ7 1NSTRUCTION 1863 10 1866 1857 + 151 ALO P0010 1857 15 1960 1965 + 152 ALO 8002 GET AND 1965 15 1968 8002 + 153 LDD P0002 8003 STORE WORD 1968 69 1952 8003 + 154 AQ7 STD 0000 1866 24 0000 1907 + 155 RAL P0010 INCREMENT 1907 65 1960 1915 + 156 ALO AQ9 WORD COUNT 1915 15 1918 1854 + 157 STL P0010 1854 20 1960 1963 + 158 ALO AQ3B 8002 1963 15 1892 8002 + 159 AQ8 RAL P0001 CHECK FOR 1837 65 1951 1765 + 160 BMI J0001 AQ1 LAST CARD 1765 46 1977 1880 + 161 E00AR STD P0005 PUNCH 0UT 1801 24 1955 1908 + 162 STU J0003 1908 21 1979 1935 + 163 SIA P0008 STORE STMNT 1935 23 1958 1912 + 164 STU J0004 NUMBER 1912 21 1980 1886 + 165 SDA P0004 STORE WORD 1886 22 1954 1909 + 166 SLO 8001 COUNT 1909 16 8001 1917 + 167 NZE AR10 AR9 TEST ZERO 1917 45 1920 1872 + 168 AR10 STU J0005 STMT NUMBER 1920 21 1981 1814 + 169 STD J0006 SET PUNCH 1814 24 1982 1972 + 170 STD J0007 BAND TO 1972 24 1983 1864 + 171 STD J0008 ZEROES 1864 24 1984 1888 + 172 STD P0010 AR3 SET COUNTER 1888 24 1960 1913 + 173 AR3 RAL P0004 1913 65 1954 1910 + 174 SLO AR7 1910 16 1924 1936 + 175 BMI AR8 TEST WORD 1936 46 1994 1992 + 176 STL P0004 AR4 COUNT 1992 20 1954 1865 + 177 AR4 ALO 8002 GET WORD 1865 15 1868 8002 + 178 RAL P0000 LABEL FROM 1868 65 1950 1914 + 179 AUP 8003 PUNCH CONSTS 1914 10 8003 1922 + 180 SLT 0001 1922 35 0001 1938 + 181 SDA P0007 MODIFY LABEL 1938 22 1957 1961 + 182 SLO 8001 1961 16 8001 1919 + 183 SRT 0001 1919 30 0001 1926 + 184 ALO P0007 1926 15 1957 1962 + 185 SLT 0004 INSERT STMNT 1962 35 0004 1923 + 186 ALO P0008 NUMBER 1923 15 1958 1964 + 187 AUP P0010 1964 10 1960 1916 + 188 AUP 8003 1916 10 1969 8003 + 189 STL J0001 STORE LABEL 1969 20 1977 1988 + 190 RAL 8002 FOR PUNCHING 1988 65 8002 1900 + 191 LDD AQ4 MODIFY LABEL 1900 69 1906 1816 + 192 AUP AR6 INTO DRUM 1906 10 1966 1934 + 193 ALO P0010 LOC IN READ 1934 15 1960 1967 + 194 ALO 8003 GET WORD 1967 15 1970 8003 + 195 STD J0002 STORE IN 1970 24 1978 1993 + 196 RAL P0010 PUNCH BAND 1993 65 1960 1815 + 197 ALO AQ9 1815 15 1918 1973 + 196 STL P0010 AR3 1973 20 1960 1913 + 199 AR6 LDD 0000 8002 1966 69 0000 8002 + 200 AR7 00 0001 0000 1924 00 0001 0000 + 201 AR8 PCH J0001 P0005 PUNCH 1994 71 1977 1955 + 202 AR9 RAL 8000 IF STMT NMBR 1872 65 8000 1937 + 203 BMI AR10 P0005 ZRO PCH ONLY 1937 46 1920 1955 + 204 AQ9 00 0002 0000 IF 8000 NEG 1918 00 0002 0000 + 205 J0010 80 0000 8800 CONTROL CNST 1986 80 0000 8800 + 206 E00AL STD ARTHY 1654 24 1808 1732 + 207 STL ARTHH 1732 20 1788 1694 + 208 RAL ACC AL17A IS POWER 1694 65 0000 1709 + 209 AL17A STD ACC4 TWO 1709 24 1870 1723 + 210 STD ARTHX IF SO 1723 24 1786 1739 + 211 SLO AL16 MULTIPLY 1739 16 1686 1692 + 212 NZE AL18 1692 45 1731 1751 + 213 RAL ARTHH 1751 65 1788 1645 + 214 STD ACC 1645 24 0000 1655 + 215 LDD ARTHY E00AJ 1655 69 1808 1832 + 216 AL18 RAL ARTHH AL17 1731 65 1788 1693 + 217 AL17 SLT 0008 1693 35 0008 1661 + 218 SLO 8002 1661 16 8002 1720 + 219 SLT 0002 Q EQUALS 1720 35 0002 1677 + 220 ALO 8001 MANTISSA 1677 15 8001 1690 + 221 STU ARTHF OF ARGUMENT 1690 21 1772 1675 + 222 RAM 8002 1675 67 8002 1683 + 223 SLO AL1 STORE EXPNNT 1683 16 1736 1691 + 224 SLT 0002 OF ARGMNT 1691 35 0002 1698 + 225 STU ARTHE 1698 21 1902 1706 + 226 RAL AL2 MANTISSA OF 1706 65 1660 1666 + 227 STL ARTHM Z IS ONE 1666 20 1824 1678 + 228 RAL AL1 1678 65 1736 1695 + 229 SLT 0002 EXP OF Z IS 1695 35 0002 1702 + 230 STU ARTHG AL3 50 1702 21 1794 1747 + 231 AL3 RAU ACC K IS GRTST 1747 60 0000 1708 + 232 MPY AL1 INTEGER IN 1708 19 1736 1738 + 233 STU ACC K OVER TWO 1738 21 0000 1658 + 234 RAL 8002 IS REMAINDER 1658 65 8002 1667 + 235 NZE AL4 ZER0 1667 45 1670 1646 + 236 RAU ARTHM IF NOT SET Z 1670 60 1824 1729 + 237 LDD AL5 EQUALS TO 1729 69 1682 1737 + 238 ALO ARTHG Z TIMES Q 1682 15 1794 1715 + 239 STL ARTHG VIA 1715 20 1794 1699 + 240 RAL ARTHD SUBROUTINE 1699 65 1665 1669 + 241 STL ARTHM 1669 20 1824 1638 + 242 NZE AL4 AL20 1638 45 1646 1741 + 243 AL4 RAU ACC IF K NONZERO 1646 60 0000 1712 + 244 NZU AL7 Q EQUALS 1712 44 1668 1721 + 245 RAU ARTHF 1668 60 1772 1679 + 246 LDD AL5 VIA SUBRTNE 1679 69 1684 1737 + 247 ALO ARTHE 1684 15 1902 1714 + 248 STL ARTHE 1714 20 1902 1662 + 249 RAL ARTHD 1662 65 1665 1719 + 250 STL ARTHF AL3 1719 20 1772 1747 + 251 AL7 RAU ARTHG SET EXPONNTS 1721 60 1794 1700 + 252 SRT 0002 ARTHS 1700 30 0002 1663 + 253 NZU AI11 EXP OVERSCAL 1663 44 1785 1722 + 254 STL ARTHE 1722 20 1902 1664 + 255 STU ARTHF 1664 21 1772 1671 + 256 RAU ARTHM 1671 60 1824 1680 + 257 SRT 0001 AL20 1680 30 0001 1741 + 258 AL20 LDD AL8 1741 69 1716 1724 + 259 STD ARTHX ARTHS 1724 24 1786 1762 + 260 AL8 RAL ACC4 1716 65 1870 1648 + 261 BMI AL10 1648 46 1701 1743 + 262 RAL ACC ARTHY 1743 65 0000 1808 + 263 AL10 RAL ACC Z EQUALS ONE 1701 65 0000 1672 + 264 NZE AL12 OVER Z IF 1672 45 1676 1681 + 265 RAL AL11 K NEG AND Z 1676 65 1685 1649 + 266 LDD ARTHY E00AG NON ZERO 1649 69 1808 1830 + 267 AL12 LDD ARTHY 3111 ALARM IF ZRO 1681 69 1808 3111 + 268 AL5 STD ARTHX 1737 24 1786 1652 + 269 MPY ARTHF 1652 19 1772 1673 + 270 SRT 0009 1673 30 0009 1644 + 271 NZU AL14 1644 44 1650 1639 + 272 STL ARTHD 1639 20 1665 1640 + 273 RAL 8003 AL15 1640 65 8003 1641 + 274 AL15 ALO ARTHE ARTHX 1641 15 1902 1786 + 275 AL14 SRT 0001 1650 30 0001 1643 + 276 STL ARTHD 1643 20 1665 1642 + 277 RAL AJ2 AL15 1642 65 1903 1641 + 278 AL1 50 0000 0000 1736 50 0000 0000 + 279 AL2 10 0000 0000 1660 10 0000 0000 + 280 AL11 10 0000 0050 1685 10 0000 0050 + 281 AL16 00 0000 0002 1686 00 0000 0002 + 282 AJ2 00 0000 0001 1903 00 0000 0001 + 283 E00AN STD ARTHY POWER 1651 24 1808 1687 + 284 LDD ACC FLOAT FIX 1687 69 0000 1674 + 285 STD ARTHH REVERSE 1674 24 1788 1745 + 286 STL ACC AL17A 1745 20 0000 1709 + 287 E00AK STD ARTHY POWER FIXFIX 1704 24 1808 1711 + 288 STL ARTHG AK1 Q IS ARGMNT 1711 20 1794 1647 + 289 AK1 RAM ACC K EQUALS 1647 67 0000 1705 + 290 STL ARTHF ABVAL POWER 1705 20 1772 1725 + 291 RAL AJ2 Z EQUALS 1725 65 1903 1707 + 292 STL ARTHH AK3 ONE 1707 20 1788 1718 + 293 AK3 RAU ARTHF K IS GTST 1718 60 1772 1727 + 294 MPY AK4 INTGR IN 1727 19 1730 1717 + 295 STU ARTHF K OVER TWO 1717 21 1772 1726 + 296 RAL 8002 IS REMAINDER 1726 65 8002 1735 + 297 NZE AK5 ZERO 1735 45 1734 1742 + 298 RAU ARTHH IF NOT Z IS 1734 60 1788 1688 + 299 MPY ARTHG Z TIMES Q 1688 19 1794 1733 + 300 STL ARTHH AK5 1733 20 1788 1742 + 301 AK5 RAU ARTHF 1742 60 1772 1728 + 302 NZU AK6 1S K ZERO 1728 44 1740 1746 + 303 RAU ARTHG IF NOT 1740 60 1794 1749 + 304 MPY 8001 Q EQUALS 1749 19 8001 1689 + 305 STL ARTHG AK3 Q SQUARED 1689 20 1794 1718 + 306 AK6 RAU ACC IS POWER NEG 1746 60 0000 1656 + 307 BMI AK7 IF SO IS Z 1656 46 1659 1713 + 308 RAM ARTHH ZERO 1659 67 1788 1744 + 309 NZE AK8 IF NOT IS Z 1744 45 1748 1750 + 310 SLO AJ2 ONE 1748 16 1903 1657 + 311 NZE AK10 AK7 1657 45 1710 1713 + 312 AK7 RAL ARTHH ARTHY EXHIBIT Z 1713 65 1788 1808 + 313 AK10 RAL 8003 ARTHY 1710 65 8003 1808 + 314 AK8 LDD ARTHY 3101 ALARM 1750 69 1808 3101 + 315 AK4 50 0000 0000 1730 50 0000 0000 + 316 AJ2 00 0000 0001 1903 00 0000 0001 + 317 E00AM STD ARTHY INTERCHGE 1653 24 1808 1696 + 318 LDD ACC ACC AND 1696 69 0000 1703 + 319 STD ARTHG LOWER 1703 24 1794 1697 + 320 STL ACC AK1 THEN E00AK 1697 20 0000 1647 + 321 1976 RAM 1951 1976 67 1951 1623 + 322 AUP 8003 1623 10 8003 1632 + 323 SLT 0004 1632 35 0004 1624 + 324 SDA P0009 1624 22 1959 1626 + 325 SRT 0004 1626 30 0004 1637 + 326 LDD AQ4 1637 69 1627 1816 + 327 RAL 8003 1627 65 8003 1636 + 328 AUP P0009 1636 10 1959 1633 + 329 ALO 8001 1633 15 8001 1631 + 330 AUP AQ9B 1631 10 1625 1628 + 331 ALO AQ10 AQ11 1628 15 1634 1622 + 332 AQ11 SUP AQ9B 1622 11 1625 1630 + 333 NZU AQ8 1630 44 1635 1837 + 334 AUP 8001 1635 10 8001 1621 + 335 SUP AR7 1621 11 1924 1629 + 336 SLO 8001 8003 1629 16 8001 8003 + 337 AQ9B LDD 1952 8002 1625 69 1952 8002 + 338 AQ10 STD 0000 AQ11 1634 24 0000 1622 + 1 VARS + ARTHX 00 0000 0000 1786 00 0000 0000 + ARTHD 00 0000 0000 1665 00 0000 0000 + ARTHG 00 0000 0000 1794 00 0000 0000 + ARTHF 00 0000 0000 1772 00 0000 0000 + ARTHE 00 0000 0000 1902 00 0000 0000 + ARTHH 00 0000 0000 1788 00 0000 0000 + ARTHM 00 0000 0000 1824 00 0000 0000 + ARTHY 00 0000 0000 1808 00 0000 0000 + ACC 00 0000 0000 0000 00 0000 0000 + ACC1 00 0000 0000 1998 00 0000 0000 + ACC2 00 0000 0000 1843 00 0000 0000 + ACC3 00 0000 0000 1881 00 0000 0000 + ACC4 00 0000 0000 1870 00 0000 0000 + ACC5 00 0000 0000 1795 00 0000 0000 + ACC6 00 0000 0000 1858 00 0000 0000 + J0001 00 0000 0000 1977 00 0000 0000 + J0002 00 0000 0000 1978 00 0000 0000 + J0003 00 0000 0000 1979 00 0000 0000 + J0004 00 0000 0000 1980 00 0000 0000 + J0005 00 0000 0000 1981 00 0000 0000 + J0006 00 0000 0000 1982 00 0000 0000 + J0007 00 0000 0000 1983 00 0000 0000 + J0008 00 0000 0000 1984 00 0000 0000 + P0000 00 0000 0000 1950 00 0000 0000 + P0001 00 0000 0000 1951 00 0000 0000 + P0002 00 0000 0000 1952 00 0000 0000 + P0004 00 0000 0000 1954 00 0000 0000 + P0005 00 0000 0000 1955 00 0000 0000 + P0007 00 0000 0000 1957 00 0000 0000 + P0008 00 0000 0000 1958 00 0000 0000 + P0009 00 0000 0000 1959 00 0000 0000 + P0010 00 0000 0000 1960 00 0000 0000 diff --git a/I650/sw/it_package_p3.dck b/I650/sw/it_package_p3.dck new file mode 100644 index 00000000..bcc91f0f --- /dev/null +++ b/I650/sw/it_package_p3.dck @@ -0,0 +1,377 @@ +6I1954195C 0000241833800?2417861789 e00aistdarthxai1 1-add +6I1954195C 0000241789800?2017941799 ai1 stlarthg 2- +6I1954195C 0000241799800?6918021805 ldd arthb 3- +6I1954195C 0000241802800?6780021767 ram 8002 4-store acc +6I1954195C 0000241767800?2017721894 stlarthf 5-power +6I1954195C 0000241894800?1819021759 smlarthe 6- +6I1954195C 0000241759800?3500011766 slt 0001 7- +6I1954195C 0000241766800?4417731771 nzuai12 8-find max +6I1954195C 0000241771800?6917741777 lddai3a 9- +6I1954195C 0000241777800?3000051790 srt 0005 10-power +6I1954195C 0000241790800?2217931796 sdaai3 11-set expnnts +6I1954195C 0000241796800?4618991754 bmi ai2 12-and then +6I1954195C 0000241899800?6719021817 ramarthe 13-perform +6I1954195C 0000241817800?2017721776 stlarthf 14-addition +6I1954195C 0000241776800?6517881943 ralarthh 15- +6I1954195C 0000241943800?6918241793 lddarthmai3 16- +6I1954195C 0000241793800?3000001811 ai3 srt 0000ai3b 17- +6I1954195C 0000241774800?3000001811 ai3a srt 0000ai3b 18- +6I1954195C 0000241811800?1580011770 ai3b alo 8001ai5 19- +6I1954195C 0000241754800?6518241779 ai2 ralarthm 20- +6I1954195C 0000241779800?6917881793 lddarthhai3 21- +6I1954195C 0000241770800?6080021780 ai5 rau 8002 22-clear arthe +6I1954195C 0000241780800?2019021762 stlarthearths 23-to scale +6I1954195C 0000241773800?4617781828 ai12 bmi ai13 24- +6I1954195C 0000241778800?6517941904 ralarthgai10 25- +6I1954195C 0000241828800?6500001786 ai13 ralacc arthx 26- +6I1954195C 0000241805800?2418081826 arthbstdarthy 27-break up exp +6I1954195C 0000241826800?3500081996 slt 0008 28-and mantissa +6I1954195C 0000241996800?2019021755 stlarthe 29-store power +6I1954195C 0000241755800?6080031763 rau 8003 30-and mantissa +6I1954195C 0000241763800?3500011769 slt 0001 31-of lower +6I1954195C 0000241769800?2118241997 stuarthm 32- +6I1954195C 0000241997800?6000001855 rauacc 33- +6I1954195C 0000241855800?3000021761 srt 0002 34-store power +6I1954195C 0000241761800?1680021819 slo 8002 35-and mantissa +6I1954195C 0000241819800?3500011775 slt 0001 36-of acc +6I1954195C 0000241775800?1580011783 alo 8001 37- +6I1954195C 0000241783800?2117881808 stuarthharthy 38- +6I1954195C 0000241762800?3600001782 arthssct 0000 39-normalize +6I1954195C 0000241782800?4719421787 bovai6 40-brnch if zro +6I1954195C 0000241787800?2017941797 stlarthg 41-shift count +6I1954195C 0000241797800?6580031905 ral 8003 42-round on +6I1954195C 0000241905800?3100021813 srd 0002 43-ninth digit +6I1954195C 0000241813800?3500021869 slt 0002 44-check for +6I1954195C 0000241869800?2018241877 stlarthm 45-roundoff +6I1954195C 0000241877800?4418311834 nzuai7 ai8 46-overflow +6I1954195C 0000241834800?6780031841 ai8 ram 8003 47-and +6I1954195C 0000241841800?1817941800 smlarthg 48-correct if +6I1954195C 0000241800800?1519031822 aloaj2 49-necessary +6I1954195C 0000241822800?3500081791 slt 0008 50- +6I1954195C 0000241791800?6580021849 ral 8002 51- +6I1954195C 0000241849800?1719021757 amlarthe 52- +6I1954195C 0000241757800?1517721827 aloarthf 53- +6I1954195C 0000241827800?4617521781 bmiai11a 54-pwr too smal +6I1954195C 0000241781800?4417851836 nzuai11 55-pwr too lrge +6I1954195C 0000241836800?3500021893 slt 0002 56- +6I1954195C 0000241893800?2119981901 stuacc1 57- +6I1954195C 0000241901800?6518241829 ralarthm 58- +6I1954195C 0000241829800?4619441995 bmi ai9 59-combine +6I1954195C 0000241944800?1619981904 sloacc1 ai10 60- +6I1954195C 0000241904800?2000001786 ai10 stlacc arthx 61-and +6I1954195C 0000241995800?1519981904 ai9 aloacc1 ai10 62- +6I1954195C 0000241831800?3000011792 ai7 srt 0001 63-adjust +6I1954195C 0000241792800?2018241927 stlarthm 64- +6I1954195C 0000241927800?3500011834 slt 0001ai8 65- +6I1954195C 0000241942800?6580031904 ai6 ral 8003ai10 66- +6I1954195C 0000241832800?2417861839 e00ajstdarthx 67-multiply +6I1954195C 0000241839800?6918521805 ldd arthb 68- +6I1954195C 0000241852800?6780021867 ram 8002 69-acc power +6I1954195C 0000241867800?1618201825 sloaj1 70-minus 48 +6I1954195C 0000241825800?2017721875 stlarthf 71- +6I1954195C 0000241875800?6017881756 rauarthh 72- +6I1954195C 0000241756800?1918241762 mpyarthmarths 73- +6I1954195C 0000241830800?2417861889 e00agstdarthxag1 74-divide +6I1954195C 0000241889800?6918421805 ag1 ldd arthb 75-is divisor +6I1954195C 0000241842800?4418121846 nzu ag3 76-zer0 +6I1954195C 0000241812800?6880021821 rsm 8002 77-divisor +6I1954195C 0000241821800?1518761895 aloag2 78-power minus +6I1954195C 0000241895800?2017721768 stlarthf 79-49 +6I1954195C 0000241768800?6018241879 rauarthm 80-sh1ft +6I1954195C 0000241879800?3000011885 srt 0001 81-dividend +6I1954195C 0000241885800?6417881803 dvrarthh 82-do divide +6I1954195C 0000241803800?6080021762 rau 8002arths 83- +6I1954195C 0000241882800?2417861989 e00aostdarthx 84-div reverse +6I1954195C 0000241989800?2018431896 stlacc2 85- +6I1954195C 0000241896800?6500001810 ralacc 86- +6I1954195C 0000241810800?6918431897 lddacc2 87- +6I1954195C 0000241897800?2400001889 stdacc ag1 88- +6I1954195C 0000241947800?2418581911 e00afstdacc6 89-fl0at to lwr +6I1954195C 0000241911800?6919251928 lddae4 e00ae 90-and acc +6I1954195C 0000241925800?2000001858 ae4 stlacc acc6 91- +6I1954195C 0000241928800?2417861840 e00aestdarthx 92-float to lwr +6I1954195C 0000241840800?6080021753 rau 8002 93-only +6I1954195C 0000241753800?3600001975 sct 0000 94-normalize +6I1954195C 0000241975800?2018811784 stlacc3 95- +6I1954195C 0000241784800?4718511890 bovad1 96-zer0 check +6I1954195C 0000241890800?6580031798 ral 8003 97- +6I1954195C 0000241798800?3100021807 srd 0002 98-round for +6I1954195C 0000241807800?3500021764 slt 0002 99-placing exp +6I1954195C 0000241764800?4418181891 nzu ae6 100-check round +6I1954195C 0000241818800?6980031874 ldd 8003 101-overflow +6I1954195C 0000241874800?3000011884 srt 0001 102- +6I1954195C 0000241884800?1580011891 alo 8001ae6 103- +6I1954195C 0000241891800?4618441845 ae6 bmiae2 104-insert +6I1954195C 0000241845800?1518481804 aloaj3 ae5 105-exp0nent +6I1954195C 0000241844800?1618481804 ae2 sloaj3 ae5 106- +6I1954195C 0000241804800?1618811786 ae5 sloacc3 arthx 107- +6I1954195C 0000241932800?2417861990 e00thstdarthx 108-fix l0wer +6I1954195C 0000241990800?3500081859 slt 0008 109-to lower +6I1954195C 0000241859800?2118241878 stuarthm 110- +6I1954195C 0000241878800?6780021887 ram 8002 111-test exp +6I1954195C 0000241887800?1619401945 sloaj5 112-store zer0 +6I1954195C 0000241945800?4618511850 bmiad1 113-if less than +6I1954195C 0000241850800?1618531758 sloaj4 114-50 alarm +6I1954195C 0000241758800?4618611862 bmi ad3 115-1f grtr than +6I1954195C 0000241861800?3000041921 srt 0004 116-59 +6I1954195C 0000241921800?1519241929 aloar7 117- +6I1954195C 0000241929800?6918351838 lddad2a 118-modify +6I1954195C 0000241838800?2219911971 sdaad2 119-shift +6I1954195C 0000241971800?6518241930 ralarthm 120- +6I1954195C 0000241930800?3500021991 slt 0002ad2 121- +6I1954195C 0000241851800?6580031786 ad1 ral 8003arthx 122-store zero +6I1954195C 0000241991800?3000001786 ad2 srt 0000arthx 123-shift c0nst +6I1954195C 0000241835800?3000001786 ad2a srt 0000arthx 124- +6I1954195C 0000241862800?6917863031 ad3 lddarthx 3031 125-fix alarm +6I1954195C 0000241846800?6917863061 ag3 lddarthx 3061 126-divide alarm +6I1954195C 0000241785800?6917863081 ai11 lddarthx 3081 127-scale alarm +6I1954195C 0000241752800?0110811942 ai11ahlt 1081ai6 128- +6I1954195C 0000241876800?4900000000 ag2 49 0000 0000 129- +6I1954195C 0000241820800?4800000000 aj1 48 0000 0000 130- +6I1954195C 0000241903800?0000000001 aj2 00 0000 0001 131- +6I1954195C 0000241848800?0000000059 aj3 00 0000 0059 132- +6I1954195C 0000241853800?1000000000 aj4 10 0000 0000 133- +6I1954195C 0000241940800?5000000000 aj5 50 0000 0000 134- +6I1954195C 0000241974800?2419771880 e00aqstdj0001aq1 135-read +6I1954195C 0000241880800?7019761898 aq1 rd1 1976aq3 136- +6I1954195C 0000241898800?6719511806 aq3 ramp0001aq3a 137- +6I1954195C 0000241892800?6719511806 aq3b ramp0001aq3a 138-check for +6I1954195C 0000241806800?4518601837 aq3a nze aq8 139-last word +6I1954195C 0000241860800?6918631816 lddaq5 aq4 140-on card +6I1954195C 0000241816800?2418701873 aq4 stdacc4 141- +6I1954195C 0000241873800?1080031931 aup 8003 142-read in +6I1954195C 0000241931800?3000041941 srt 0004 143-label for +6I1954195C 0000241941800?2317951948 siaacc5 144-present +6I1954195C 0000241948800?1680011856 slo 8001 145-variable +6I1954195C 0000241856800?1518098002 alo 8002 146-get i y 0r c +6I1954195C 0000241809800?6000001987 rau 0000 147-address from +6I1954195C 0000241987800?1017951949 aupacc5 146-abcon dict +6I1954195C 0000241949800?3500041870 slt 0004acc4 149-generate +6I1954195C 0000241863800?1018661857 aq5 aupaq7 150-1nstruction +6I1954195C 0000241857800?1519601965 alop0010 151- +6I1954195C 0000241965800?1519688002 alo 8002 152-get and +6I1954195C 0000241968800?6919528003 lddp0002 8003 153-store word +6I1954195C 0000241866800?2400001907 aq7 std 0000 154- +6I1954195C 0000241907800?6519601915 ralp0010 155-increment +6I1954195C 0000241915800?1519181854 aloaq9 156-word count +6I1954195C 0000241854800?2019601963 stlp0010 157- +6I1954195C 0000241963800?1518928002 aloaq3b 8002 158- +6I1954195C 0000241837800?6519511765 aq8 ralp0001 159-check for +6I1954195C 0000241765800?4619771880 bmij0001aq1 160-last card +6I1954195C 0000241801800?2419551908 e00arstdp0005 161-punch 0ut +6I1954195C 0000241908800?2119791935 stuj0003 162- +6I1954195C 0000241935800?2319581912 siap0008 163-store stmnt +6I1954195C 0000241912800?2119801886 stuj0004 164-number +6I1954195C 0000241886800?2219541909 sdap0004 165-store word +6I1954195C 0000241909800?1680011917 slo 8001 166-count +6I1954195C 0000241917800?4519201872 nzear10 ar9 167-test zero +6I1954195C 0000241920800?2119811814 ar10 stuj0005 168-stmt number +6I1954195C 0000241814800?2419821972 stdj0006 169-set punch +6I1954195C 0000241972800?2419831864 stdj0007 170-band to +6I1954195C 0000241864800?2419841888 stdj0008 171-zeroes +6I1954195C 0000241888800?2419601913 stdp0010ar3 172-set counter +6I1954195C 0000241913800?6519541910 ar3 ralp0004 173- +6I1954195C 0000241910800?1619241936 sloar7 174- +6I1954195C 0000241936800?4619941992 bmiar8 175-test word +6I1954195C 0000241992800?2019541865 stlp0004ar4 176-count +6I1954195C 0000241865800?1518688002 ar4 alo 8002 177-get word +6I1954195C 0000241868800?6519501914 ralp0000 178-label from +6I1954195C 0000241914800?1080031922 aup 8003 179-punch consts +6I1954195C 0000241922800?3500011938 slt 0001 180- +6I1954195C 0000241938800?2219571961 sdap0007 181-modify label +6I1954195C 0000241961800?1680011919 slo 8001 182- +6I1954195C 0000241919800?3000011926 srt 0001 183- +6I1954195C 0000241926800?1519571962 alop0007 184- +6I1954195C 0000241962800?3500041923 slt 0004 185-insert stmnt +6I1954195C 0000241923800?1519581964 alop0008 186-number +6I1954195C 0000241964800?1019601916 aupp0010 187- +6I1954195C 0000241916800?1019698003 aup 8003 188- +6I1954195C 0000241969800?2019771988 stlj0001 189-store label +6I1954195C 0000241988800?6580021900 ral 8002 190-for punching +6I1954195C 0000241900800?6919061816 ldd aq4 191-modify label +6I1954195C 0000241906800?1019661934 aupar6 192-into drum +6I1954195C 0000241934800?1519601967 alop0010 193-loc in read +6I1954195C 0000241967800?1519708003 alo 8003 194-get word +6I1954195C 0000241970800?2419781993 stdj0002 195-store in +6I1954195C 0000241993800?6519601815 ralp0010 196-punch band +6I1954195C 0000241815800?1519181973 aloaq9 197- +6I1954195C 0000241973800?2019601913 stlp0010ar3 196- +6I1954195C 0000241966800?6900008002 ar6 ldd 0000 8002 199- +6I1954195C 0000241924800?0000010000 ar7 00 0001 0000 200- +6I1954195C 0000241994800?7119771955 ar8 pchj0001p0005 201-punch +6I1954195C 0000241872800?6580001937 ar9 ral 8000 202-if stmt nmbr +6I1954195C 0000241937800?4619201955 bmiar10 p0005 203-zro pch only +6I1954195C 0000241918800?0000020000 aq9 00 0002 0000 204-if 8000 neg +6I1954195C 0000241986800?8000008800 j0010 80 0000 8800 205-control cnst +6I1954195C 0000241976800?6719511744 1976ram 1951 206-read +6I1954195C 0000241744800?1080031741 aup 8003 207-up to +6I1954195C 0000241741800?3500041748 slt 0004 208-seven +6I1954195C 0000241748800?2219591737 sdap0009 209-contiguous +6I1954195C 0000241737800?3000041746 srt 0004 210-variables +6I1954195C 0000241746800?6917501816 ldd aq4 211-per card +6I1954195C 0000241750800?6580031749 ral 8003 212- +6I1954195C 0000241749800?1019591740 aupp0009 213- +6I1954195C 0000241740800?1580011751 alo 8001 214- +6I1954195C 0000241751800?1017381742 aupaq9b 215- +6I1954195C 0000241742800?1517451735 aloaq10 aq11 216- +6I1954195C 0000241735800?1117381743 aq11 supaq9b 217- +6I1954195C 0000241743800?4417471837 nzu aq8 218- +6I1954195C 0000241747800?1080011736 aup 8001 219- +6I1954195C 0000241736800?1119241739 supar7 220- +6I1954195C 0000241739800?1680018003 slo 8001 8003 221- +6I1954195C 0000241738800?6919528002 aq9b ldd 1952 8002 222- +6I1954195C 0000241745800?2400001735 aq10 std 0000aq11 223- +6I1954195C 0000241705800?2418581711 e00acstdacc6 224-exponential +6I1954195C 0000241711800?4517151710 nze ac5 225-is argument +6I1954195C 0000241715800?3500081683 slt 0008 226-zero +6I1954195C 0000241683800?2117881692 stuarthh 227-if not let +6I1954195C 0000241692800?6880021701 rsm 8002 228-n be mantsa +6I1954195C 0000241701800?1517041709 aloac3 229-x be power +6I1954195C 0000241709800?4616631713 bmiac4 230-1s x grtr +6I1954195C 0000241713800?3500011719 slt 0001 231-than two +6I1954195C 0000241719800?4417101724 nzuac5 232-or less than +6I1954195C 0000241724800?3000051687 srt 0005 233-minus eight +6I1954195C 0000241687800?1516901695 aloac6 234-if x within +6I1954195C 0000241695800?2016651718 stlarthd 235-bounds gen +6I1954195C 0000241718800?6017881693 rauarthh 236-int and +6I1954195C 0000241693800?3000061665 srt 0006arthd 237-fract parts +6I1954195C 0000241704800?5100000000 ac3 51 0000 0000 238-of argument +6I1954195C 0000241690800?3000001684 ac6 srt 0000 239-is arg neg +6I1954195C 0000241684800?4616891702 bmiac8 240-if so int is +6I1954195C 0000241702800?2116651685 stuarthdac1 241-int minus 1 +6I1954195C 0000241689800?1119031707 ac8 supaj2 242-and fract is +6I1954195C 0000241707800?2116651668 stuarthd 243-fract plus 1 +6I1954195C 0000241668800?6580021677 ral 8002 244- +6I1954195C 0000241677800?1516801685 aloac2 ac1 245- +6I1954195C 0000241680800?9999999999 ac2 99 9999 9999 246- +6I1954195C 0000241685800?2017881694 ac1 stlarthh 247- +6I1954195C 0000241694800?6080021703 rau 8002 248- +6I1954195C 0000241703800?1917061708 mpyac18 249-generate +6I1954195C 0000241708800?6080031716 rau 8003 250- +6I1954195C 0000241716800?1017201686 aupac17 251-polynomial +6I1954195C 0000241686800?1917881691 mpyarthh 252- +6I1954195C 0000241691800?6080031661 rau 8003 253-approxim +6I1954195C 0000241661800?1016661682 aupac16 254-ation +6I1954195C 0000241682800?1917881696 mpyarthh 255- +6I1954195C 0000241696800?6080031712 rau 8003 256-for +6I1954195C 0000241712800?1017171678 aupac15 257- +6I1954195C 0000241678800?1917881650 mpyarthh 258-exponential +6I1954195C 0000241650800?6080031714 rau 8003 259- +6I1954195C 0000241714800?1016671679 aupac14 260- +6I1954195C 0000241679800?1917881698 mpyarthh 261- +6I1954195C 0000241698800?6080031655 rau 8003 262- +6I1954195C 0000241655800?1016601676 aupac13 263- +6I1954195C 0000241676800?1917881652 mpyarthh 264- +6I1954195C 0000241652800?6080031659 rau 8003 265- +6I1954195C 0000241659800?1016641672 aupac12 266- +6I1954195C 0000241672800?1917881673 mpyarthh 267-square +6I1954195C 0000241673800?6080031700 rau 8003 268-result +6I1954195C 0000241700800?1018531671 aupaj4 269-scale and +6I1954195C 0000241671800?1980031657 mpy 8003 270-float then +6I1954195C 0000241657800?3000011688 srt 0001 271-exit +6I1954195C 0000241688800?2118431697 stuacc2 272- +6I1954195C 0000241697800?6016511656 rauac19 273- +6I1954195C 0000241656800?1016651933 auparthd 274- +6I1954195C 0000241933800?4618581669 bmiacc6 a274- +6I1954195C 0000241669800?3000021675 srt 0002 275- +6I1954195C 0000241675800?4416741681 nzuac21 276- +6I1954195C 0000241681800?1018431699 aupacc2 277- +6I1954195C 0000241699800?3000081858 srt 0008acc6 278- +6I1954195C 0000241663800?6517881653 ac4 ralarthh 279- +6I1954195C 0000241653800?4616251674 bmi ac21 280- +6I1954195C 0000241625800?6580031858 ral 8003acc6 281- +6I1954195C 0000241710800?6516271858 ac5 ralac20 acc6 282-argmnt zero +6I1954195C 0000241674800?6918583021 ac21 lddacc6 3021 283-alarm stop +6I1954195C 0000241664800?1151292776 ac12 11 5129 2776 286- +6I1954195C 0000241660800?0662730884 ac13 06 6273 0884 287- +6I1954195C 0000241667800?0254393575 ac14 02 5439 3575 288- +6I1954195C 0000241717800?0072951737 ac15 00 7295 1737 289- +6I1954195C 0000241666800?0017421120 ac16 00 1742 1120 290- +6I1954195C 0000241720800?0002554918 ac17 00 0255 4918 291- +6I1954195C 0000241706800?0000932643 ac18 00 0093 2643 292- +6I1954195C 0000241651800?0000000050 ac19 00 0000 0050 293- +6I1954195C 0000241627800?1000000050 ac20 10 0000 0050 294- +6I1954195C 0000241638800?4516621632 e00abnze ab10 295-is arg zero +6I1954195C 0000241662800?2416651670 stdarthd 296- +6I1954195C 0000241670800?4616321624 bmiab10 297-is arg neg +6I1954195C 0000241624800?3500081643 slt 0008 298- +6I1954195C 0000241643800?2019021658 stlarthe 299-store power +6I1954195C 0000241658800?6080031615 rau 8003 300-form z +6I1954195C 0000241615800?1016181623 aupab1 301-equal arg +6I1954195C 0000241623800?2118811635 stuacc3 302-minus root +6I1954195C 0000241635800?1117231728 supab2 303-ten over arg +6I1954195C 0000241728800?6418811731 dvracc3 304-plus root +6I1954195C 0000241731800?2017861639 stlarthx 305-ten +6I1954195C 0000241639800?6080021647 rau 8002 306- +6I1954195C 0000241647800?1980011721 mpy 8001 307-z square +6I1954195C 0000241721800?2118811636 stuacc3 308- +6I1954195C 0000241636800?6080031644 rau 8003 309-generate +6I1954195C 0000241644800?1916481654 mpyab7 310- +6I1954195C 0000241654800?6080031614 rau 8003 311-polynomial +6I1954195C 0000241614800?1016171726 aupab6 312- +6I1954195C 0000241726800?1918811730 mpyacc3 313-approximatn +6I1954195C 0000241730800?6080031640 rau 8003 314- +6I1954195C 0000241640800?1016491727 aupab5 315- +6I1954195C 0000241727800?1918811613 mpyacc3 316- +6I1954195C 0000241613800?6080031616 rau 8003 317- +6I1954195C 0000241616800?1016191628 aupab4 318- +6I1954195C 0000241628800?1918811633 mpyacc3 319- +6I1954195C 0000241633800?6080031641 rau 8003 320- +6I1954195C 0000241641800?1016451733 aupab3 321- +6I1954195C 0000241733800?1917861722 mpyarthx 322- +6I1954195C 0000241722800?6580031729 ral 8003 323- +6I1954195C 0000241729800?1517321637 aloab8 324- +6I1954195C 0000241637800?3000021646 srt 0002 325- +6I1954195C 0000241646800?1519021725 aloarthe 326-add power +6I1954195C 0000241725800?1617321642 sloab8 327- +6I1954195C 0000241642800?3100021620 srd 0002 328-round +6I1954195C 0000241620800?6080021734 rau 8002 329- +6I1954195C 0000241734800?3600001621 sct 0000 330-normalize +6I1954195C 0000241621800?4716311626 bovab12 331- +6I1954195C 0000241626800?4616291630 bmi ab13 332- +6I1954195C 0000241629800?1116341622 supab9 ab11 333-adjust +6I1954195C 0000241622800?1180021631 ab11 sup 8002ab12 334-power +6I1954195C 0000241631800?6580031665 ab12 ral 8003arthd 335- +6I1954195C 0000241630800?1016341622 ab13 aupab9 ab11 336- +6I1954195C 0000241632800?6916653011 ab10 lddarthd 3011 337-alarm +6I1954195C 0000241618800?0031622780 ab1 00 3162 2780 338- +6I1954195C 0000241723800?0063245560 ab2 00 6324 5560 339- +6I1954195C 0000241645800?8685917180 ab3 86 8591 7180 340- +6I1954195C 0000241619800?2893355240 ab4 28 9335 5240 341- +6I1954195C 0000241649800?1775220710 ab5 17 7522 0710 342- +6I1954195C 0000241617800?0943764760 ab6 09 4376 4760 343- +6I1954195C 0000241648800?1913377140 ab7 19 1337 7140 344- +6I1954195C 0000241732800?5000000000 ab8 50 0000 0000 345- +6I1954195C 0000241634800?0000000053 ab9 00 0000 0053 346- +6I1954195C 0000241665800?0000000000 arthd 00 0000 0000 - +6I1954195C 0000241786800?0000000000 arthx 00 0000 0000 - +6I1954195C 0000241794800?0000000000 arthg 00 0000 0000 - +6I1954195C 0000241772800?0000000000 arthf 00 0000 0000 - +6I1954195C 0000241902800?0000000000 arthe 00 0000 0000 - +6I1954195C 0000241788800?0000000000 arthh 00 0000 0000 - +6I1954195C 0000241824800?0000000000 arthm 00 0000 0000 - +6I1954195C 0000241808800?0000000000 arthy 00 0000 0000 - +6I1954195C 0000240000800?0000000000 acc 00 0000 0000 - +6I1954195C 0000241998800?0000000000 acc1 00 0000 0000 - +6I1954195C 0000241843800?0000000000 acc2 00 0000 0000 - +6I1954195C 0000241881800?0000000000 acc3 00 0000 0000 - +6I1954195C 0000241870800?0000000000 acc4 00 0000 0000 - +6I1954195C 0000241795800?0000000000 acc5 00 0000 0000 - +6I1954195C 0000241858800?0000000000 acc6 00 0000 0000 - +6I1954195C 0000241977800?0000000000 j0001 00 0000 0000 - +6I1954195C 0000241978800?0000000000 j0002 00 0000 0000 - +6I1954195C 0000241979800?0000000000 j0003 00 0000 0000 - +6I1954195C 0000241980800?0000000000 j0004 00 0000 0000 - +6I1954195C 0000241981800?0000000000 j0005 00 0000 0000 - +6I1954195C 0000241982800?0000000000 j0006 00 0000 0000 - +6I1954195C 0000241983800?0000000000 j0007 00 0000 0000 - +6I1954195C 0000241984800?0000000000 j0008 00 0000 0000 - +6I1954195C 0000241950800?0000000000 p0000 00 0000 0000 - +6I1954195C 0000241951800?0000000000 p0001 00 0000 0000 - +6I1954195C 0000241952800?0000000000 p0002 00 0000 0000 - +6I1954195C 0000241954800?0000000000 p0004 00 0000 0000 - +6I1954195C 0000241955800?0000000000 p0005 00 0000 0000 - +6I1954195C 0000241957800?0000000000 p0007 00 0000 0000 - +6I1954195C 0000241958800?0000000000 p0008 00 0000 0000 - +6I1954195C 0000241959800?0000000000 p0009 00 0000 0000 - +6I1954195C 0000241960800?0000000000 p0010 00 0000 0000 - diff --git a/I650/sw/it_package_p3_listing.txt b/I650/sw/it_package_p3_listing.txt new file mode 100644 index 00000000..4d9600df --- /dev/null +++ b/I650/sw/it_package_p3_listing.txt @@ -0,0 +1,386 @@ + 5 PACKAGE 3 + 5 CONTAINS PACKAGE 1 + 5 PLUS THE FOLLOWING + 5 ROUTINES + 5 E00AC EXPONENTIAL SUBROUTINE + 5 E00A8 L0G SUBROUTINE + 1 E00AI STD ARTHX AI1 ADD 1833 24 1786 1789 + 2 AI1 STL ARTHG 1789 20 1794 1799 + 3 LDD ARTHB 1799 69 1802 1805 + 4 RAM 8002 STORE ACC 1802 67 8002 1767 + 5 STL ARTHF POWER 1767 20 1772 1894 + 6 SML ARTHE 1894 18 1902 1759 + 7 SLT 0001 1759 35 0001 1766 + 8 NZU AI12 FIND MAX 1766 44 1773 1771 + 9 LDD AI3A 1771 69 1774 1777 + 10 SRT 0005 POWER 1777 30 0005 1790 + 11 SDA AI3 SET EXPNNTS 1790 22 1793 1796 + 12 BMI AI2 AND THEN 1796 46 1899 1754 + 13 RAM ARTHE PERFORM 1899 67 1902 1817 + 14 STL ARTHF ADDITION 1817 20 1772 1776 + 15 RAL ARTHH 1776 65 1788 1943 + 16 LDD ARTHM AI3 1943 69 1824 1793 + 17 AI3 SRT 0000 AI3B 1793 30 0000 1811 + 18 AI3A SRT 0000 AI3B 1774 30 0000 1811 + 19 AI3B ALO 8001 AI5 1811 15 8001 1770 + 20 AI2 RAL ARTHM 1754 65 1824 1779 + 21 LDD ARTHH AI3 1779 69 1788 1793 + 22 AI5 RAU 8002 CLEAR ARTHE 1770 60 8002 1780 + 23 STL ARTHE ARTHS TO SCALE 1780 20 1902 1762 + 24 AI12 BMI AI13 1773 46 1778 1828 + 25 RAL ARTHG AI10 1778 65 1794 1904 + 26 AI13 RAL ACC ARTHX 1828 65 0000 1786 + 27 ARTHB STD ARTHY BREAK UP EXP 1805 24 1808 1826 + 28 SLT 0008 AND MANTISSA 1826 35 0008 1996 + 29 STL ARTHE STORE POWER 1996 20 1902 1755 + 30 RAU 8003 AND MANTISSA 1755 60 8003 1763 + 31 SLT 0001 OF LOWER 1763 35 0001 1769 + 32 STU ARTHM 1769 21 1824 1997 + 33 RAU ACC 1997 60 0000 1855 + 34 SRT 0002 STORE POWER 1855 30 0002 1761 + 35 SLO 8002 AND MANTISSA 1761 16 8002 1819 + 36 SLT 0001 OF ACC 1819 35 0001 1775 + 37 ALO 8001 1775 15 8001 1783 + 38 STU ARTHH ARTHY 1783 21 1788 1808 + 39 ARTHS SCT 0000 NORMALIZE 1762 36 0000 1782 + 40 BOV AI6 BRNCH IF ZRO 1782 47 1942 1787 + 41 STL ARTHG SHIFT COUNT 1787 20 1794 1797 + 42 RAL 8003 ROUND ON 1797 65 8003 1905 + 43 SRD 0002 NINTH DIGIT 1905 31 0002 1813 + 44 SLT 0002 CHECK FOR 1813 35 0002 1869 + 45 STL ARTHM ROUNDOFF 1869 20 1824 1877 + 46 NZU AI7 AI8 OVERFLOW 1877 44 1831 1834 + 47 AI8 RAM 8003 AND 1834 67 8003 1841 + 48 SML ARTHG CORRECT IF 1841 18 1794 1800 + 49 ALO AJ2 NECESSARY 1800 15 1903 1822 + 50 SLT 0008 1822 35 0008 1791 + 51 RAL 8002 1791 65 8002 1849 + 52 AML ARTHE 1849 17 1902 1757 + 53 ALO ARTHF 1757 15 1772 1827 + 54 BMI AI11A PWR TOO SMAL 1827 46 1752 1781 + 55 NZU AI11 PWR TOO LRGE 1781 44 1785 1836 + 56 SLT 0002 1836 35 0002 1893 + 57 STU ACC1 1893 21 1998 1901 + 58 RAL ARTHM 1901 65 1824 1829 + 59 BMI AI9 COMBINE 1829 46 1944 1995 + 60 SLO ACC1 AI10 1944 16 1998 1904 + 61 AI10 STL ACC ARTHX AND 1904 20 0000 1786 + 62 AI9 ALO ACC1 AI10 1995 15 1998 1904 + 63 AI7 SRT 0001 ADJUST 1831 30 0001 1792 + 64 STL ARTHM 1792 20 1824 1927 + 65 SLT 0001 AI8 1927 35 0001 1834 + 66 AI6 RAL 8003 AI10 1942 65 8003 1904 + 67 E00AJ STD ARTHX MULTIPLY 1832 24 1786 1839 + 68 LDD ARTHB 1839 69 1852 1805 + 69 RAM 8002 ACC POWER 1852 67 8002 1867 + 70 SLO AJ1 MINUS 48 1867 16 1820 1825 + 71 STL ARTHF 1825 20 1772 1875 + 72 RAU ARTHH 1875 60 1788 1756 + 73 MPY ARTHM ARTHS 1756 19 1824 1762 + 74 E00AG STD ARTHX AG1 DIVIDE 1830 24 1786 1889 + 75 AG1 LDD ARTHB IS DIVISOR 1889 69 1842 1805 + 76 NZU AG3 ZER0 1842 44 1812 1846 + 77 RSM 8002 DIVISOR 1812 68 8002 1821 + 78 ALO AG2 POWER MINUS 1821 15 1876 1895 + 79 STL ARTHF 49 1895 20 1772 1768 + 80 RAU ARTHM SH1FT 1768 60 1824 1879 + 81 SRT 0001 DIVIDEND 1879 30 0001 1885 + 82 DVR ARTHH DO DIVIDE 1885 64 1788 1803 + 83 RAU 8002 ARTHS 1803 60 8002 1762 + 84 E00AO STD ARTHX DIV REVERSE 1882 24 1786 1989 + 85 STL ACC2 1989 20 1843 1896 + 86 RAL ACC 1896 65 0000 1810 + 87 LDD ACC2 1810 69 1843 1897 + 88 STD ACC AG1 1897 24 0000 1889 + 89 E00AF STD ACC6 FL0AT TO LWR 1947 24 1858 1911 + 90 LDD AE4 E00AE AND ACC 1911 69 1925 1928 + 91 AE4 STL ACC ACC6 1925 20 0000 1858 + 92 E00AE STD ARTHX FLOAT TO LWR 1928 24 1786 1840 + 93 RAU 8002 ONLY 1840 60 8002 1753 + 94 SCT 0000 NORMALIZE 1753 36 0000 1975 + 95 STL ACC3 1975 20 1881 1784 + 96 BOV AD1 ZER0 CHECK 1784 47 1851 1890 + 97 RAL 8003 1890 65 8003 1798 + 98 SRD 0002 ROUND FOR 1798 31 0002 1807 + 99 SLT 0002 PLACING EXP 1807 35 0002 1764 + 100 NZU AE6 CHECK ROUND 1764 44 1818 1891 + 101 LDD 8003 OVERFLOW 1818 69 8003 1874 + 102 SRT 0001 1874 30 0001 1884 + 103 ALO 8001 AE6 1884 15 8001 1891 + 104 AE6 BMI AE2 INSERT 1891 46 1844 1845 + 105 ALO AJ3 AE5 EXP0NENT 1845 15 1848 1804 + 106 AE2 SLO AJ3 AE5 1844 16 1848 1804 + 107 AE5 SLO ACC3 ARTHX 1804 16 1881 1786 + 108 E00TH STD ARTHX FIX L0WER 1932 24 1786 1990 + 109 SLT 0008 TO LOWER 1990 35 0008 1859 + 110 STU ARTHM 1859 21 1824 1878 + 111 RAM 8002 TEST EXP 1878 67 8002 1887 + 112 SLO AJ5 STORE ZER0 1887 16 1940 1945 + 113 BMI AD1 IF LESS THAN 1945 46 1851 1850 + 114 SLO AJ4 50 ALARM 1850 16 1853 1758 + 115 BMI AD3 1F GRTR THAN 1758 46 1861 1862 + 116 SRT 0004 59 1861 30 0004 1921 + 117 ALO AR7 1921 15 1924 1929 + 118 LDD AD2A MODIFY 1929 69 1835 1838 + 119 SDA AD2 SHIFT 1838 22 1991 1971 + 120 RAL ARTHM 1971 65 1824 1930 + 121 SLT 0002 AD2 1930 35 0002 1991 + 122 AD1 RAL 8003 ARTHX STORE ZERO 1851 65 8003 1786 + 123 AD2 SRT 0000 ARTHX SHIFT C0NST 1991 30 0000 1786 + 124 AD2A SRT 0000 ARTHX 1835 30 0000 1786 + 125 AD3 LDD ARTHX 3031 FIX ALARM 1862 69 1786 3031 + 126 AG3 LDD ARTHX 3061 DIVIDE ALARM 1846 69 1786 3061 + 127 AI11 LDD ARTHX 3081 SCALE ALARM 1785 69 1786 3081 + 128 AI11A HLT 1081 AI6 1752 01 1081 1942 + 129 AG2 49 0000 0000 1876 49 0000 0000 + 130 AJ1 48 0000 0000 1820 48 0000 0000 + 131 AJ2 00 0000 0001 1903 00 0000 0001 + 132 AJ3 00 0000 0059 1848 00 0000 0059 + 133 AJ4 10 0000 0000 1853 10 0000 0000 + 134 AJ5 50 0000 0000 1940 50 0000 0000 + 135 E00AQ STD J0001 AQ1 READ 1974 24 1977 1880 + 136 AQ1 RD1 1976 AQ3 1880 70 1976 1898 + 137 AQ3 RAM P0001 AQ3A 1898 67 1951 1806 + 138 AQ3B RAM P0001 AQ3A CHECK FOR 1892 67 1951 1806 + 139 AQ3A NZE AQ8 LAST WORD 1806 45 1860 1837 + 140 LDD AQ5 AQ4 ON CARD 1860 69 1863 1816 + 141 AQ4 STD ACC4 1816 24 1870 1873 + 142 AUP 8003 READ IN 1873 10 8003 1931 + 143 SRT 0004 LABEL FOR 1931 30 0004 1941 + 144 SIA ACC5 PRESENT 1941 23 1795 1948 + 145 SLO 8001 VARIABLE 1948 16 8001 1856 + 146 ALO 8002 GET I Y 0R C 1856 15 1809 8002 + 147 RAU 0000 ADDRESS FROM 1809 60 0000 1987 was RAU A000 - 00 0000 0000 + 146 AUP ACC5 ABCON DICT 1987 10 1795 1949 + 149 SLT 0004 ACC4 GENERATE 1949 35 0004 1870 + 150 AQ5 AUP AQ7 1NSTRUCTION 1863 10 1866 1857 + 151 ALO P0010 1857 15 1960 1965 + 152 ALO 8002 GET AND 1965 15 1968 8002 + 153 LDD P0002 8003 STORE WORD 1968 69 1952 8003 + 154 AQ7 STD 0000 1866 24 0000 1907 + 155 RAL P0010 INCREMENT 1907 65 1960 1915 + 156 ALO AQ9 WORD COUNT 1915 15 1918 1854 + 157 STL P0010 1854 20 1960 1963 + 158 ALO AQ3B 8002 1963 15 1892 8002 + 159 AQ8 RAL P0001 CHECK FOR 1837 65 1951 1765 + 160 BMI J0001 AQ1 LAST CARD 1765 46 1977 1880 + 161 E00AR STD P0005 PUNCH 0UT 1801 24 1955 1908 + 162 STU J0003 1908 21 1979 1935 + 163 SIA P0008 STORE STMNT 1935 23 1958 1912 + 164 STU J0004 NUMBER 1912 21 1980 1886 + 165 SDA P0004 STORE WORD 1886 22 1954 1909 + 166 SLO 8001 COUNT 1909 16 8001 1917 + 167 NZE AR10 AR9 TEST ZERO 1917 45 1920 1872 + 168 AR10 STU J0005 STMT NUMBER 1920 21 1981 1814 + 169 STD J0006 SET PUNCH 1814 24 1982 1972 + 170 STD J0007 BAND TO 1972 24 1983 1864 + 171 STD J0008 ZEROES 1864 24 1984 1888 + 172 STD P0010 AR3 SET COUNTER 1888 24 1960 1913 + 173 AR3 RAL P0004 1913 65 1954 1910 + 174 SLO AR7 1910 16 1924 1936 + 175 BMI AR8 TEST WORD 1936 46 1994 1992 + 176 STL P0004 AR4 COUNT 1992 20 1954 1865 + 177 AR4 ALO 8002 GET WORD 1865 15 1868 8002 + 178 RAL P0000 LABEL FROM 1868 65 1950 1914 + 179 AUP 8003 PUNCH CONSTS 1914 10 8003 1922 + 180 SLT 0001 1922 35 0001 1938 + 181 SDA P0007 MODIFY LABEL 1938 22 1957 1961 + 182 SLO 8001 1961 16 8001 1919 + 183 SRT 0001 1919 30 0001 1926 + 184 ALO P0007 1926 15 1957 1962 + 185 SLT 0004 INSERT STMNT 1962 35 0004 1923 + 186 ALO P0008 NUMBER 1923 15 1958 1964 + 187 AUP P0010 1964 10 1960 1916 + 188 AUP 8003 1916 10 1969 8003 + 189 STL J0001 STORE LABEL 1969 20 1977 1988 + 190 RAL 8002 FOR PUNCHING 1988 65 8002 1900 + 191 LDD AQ4 MODIFY LABEL 1900 69 1906 1816 + 192 AUP AR6 INTO DRUM 1906 10 1966 1934 + 193 ALO P0010 LOC IN READ 1934 15 1960 1967 + 194 ALO 8003 GET WORD 1967 15 1970 8003 + 195 STD J0002 STORE IN 1970 24 1978 1993 + 196 RAL P0010 PUNCH BAND 1993 65 1960 1815 + 197 ALO AQ9 1815 15 1918 1973 + 196 STL P0010 AR3 1973 20 1960 1913 + 199 AR6 LDD 0000 8002 1966 69 0000 8002 + 200 AR7 00 0001 0000 1924 00 0001 0000 + 201 AR8 PCH J0001 P0005 PUNCH 1994 71 1977 1955 + 202 AR9 RAL 8000 IF STMT NMBR 1872 65 8000 1937 + 203 BMI AR10 P0005 ZRO PCH ONLY 1937 46 1920 1955 + 204 AQ9 00 0002 0000 IF 8000 NEG 1918 00 0002 0000 + 205 J0010 80 0000 8800 CONTROL CNST 1986 80 0000 8800 + 206 1976 RAM 1951 READ 1976 67 1951 1744 + 207 AUP 8003 UP TO 1744 10 8003 1741 + 208 SLT 0004 SEVEN 1741 35 0004 1748 + 209 SDA P0009 CONTIGUOUS 1748 22 1959 1737 + 210 SRT 0004 VARIABLES 1737 30 0004 1746 + 211 LDD AQ4 PER CARD 1746 69 1750 1816 + 212 RAL 8003 1750 65 8003 1749 + 213 AUP P0009 1749 10 1959 1740 + 214 ALO 8001 1740 15 8001 1751 + 215 AUP AQ9B 1751 10 1738 1742 + 216 ALO AQ10 AQ11 1742 15 1745 1735 + 217 AQ11 SUP AQ9B 1735 11 1738 1743 + 218 NZU AQ8 1743 44 1747 1837 + 219 AUP 8001 1747 10 8001 1736 + 220 SUP AR7 1736 11 1924 1739 + 221 SLO 8001 8003 1739 16 8001 8003 + 222 AQ9B LDD 1952 8002 1738 69 1952 8002 + 223 AQ10 STD 0000 AQ11 1745 24 0000 1735 + 224 E00AC STD ACC6 EXPONENTIAL 1705 24 1858 1711 + 225 NZE AC5 IS ARGUMENT 1711 45 1715 1710 + 226 SLT 0008 ZERO 1715 35 0008 1683 + 227 STU ARTHH IF NOT LET 1683 21 1788 1692 + 228 RSM 8002 N BE MANTSA 1692 68 8002 1701 + 229 ALO AC3 X BE POWER 1701 15 1704 1709 + 230 BMI AC4 1S X GRTR 1709 46 1663 1713 + 231 SLT 0001 THAN TWO 1713 35 0001 1719 + 232 NZU AC5 OR LESS THAN 1719 44 1710 1724 + 233 SRT 0005 MINUS EIGHT 1724 30 0005 1687 + 234 ALO AC6 IF X WITHIN 1687 15 1690 1695 + 235 STL ARTHD BOUNDS GEN 1695 20 1665 1718 + 236 RAU ARTHH INT AND 1718 60 1788 1693 + 237 SRT 0006 ARTHD FRACT PARTS 1693 30 0006 1665 + 238 AC3 51 0000 0000 OF ARGUMENT 1704 51 0000 0000 + 239 AC6 SRT 0000 IS ARG NEG 1690 30 0000 1684 + 240 BMI AC8 IF SO INT IS 1684 46 1689 1702 + 241 STU ARTHD AC1 INT MINUS 1 1702 21 1665 1685 + 242 AC8 SUP AJ2 AND FRACT IS 1689 11 1903 1707 + 243 STU ARTHD FRACT PLUS 1 1707 21 1665 1668 + 244 RAL 8002 1668 65 8002 1677 + 245 ALO AC2 AC1 1677 15 1680 1685 + 246 AC2 99 9999 9999 1680 99 9999 9999 + 247 AC1 STL ARTHH 1685 20 1788 1694 + 248 RAU 8002 1694 60 8002 1703 + 249 MPY AC18 GENERATE 1703 19 1706 1708 + 250 RAU 8003 1708 60 8003 1716 + 251 AUP AC17 POLYNOMIAL 1716 10 1720 1686 + 252 MPY ARTHH 1686 19 1788 1691 + 253 RAU 8003 APPROXIM 1691 60 8003 1661 + 254 AUP AC16 ATION 1661 10 1666 1682 + 255 MPY ARTHH 1682 19 1788 1696 + 256 RAU 8003 FOR 1696 60 8003 1712 + 257 AUP AC15 1712 10 1717 1678 + 258 MPY ARTHH EXPONENTIAL 1678 19 1788 1650 + 259 RAU 8003 1650 60 8003 1714 + 260 AUP AC14 1714 10 1667 1679 + 261 MPY ARTHH 1679 19 1788 1698 + 262 RAU 8003 1698 60 8003 1655 + 263 AUP AC13 1655 10 1660 1676 + 264 MPY ARTHH 1676 19 1788 1652 + 265 RAU 8003 1652 60 8003 1659 + 266 AUP AC12 1659 10 1664 1672 + 267 MPY ARTHH SQUARE 1672 19 1788 1673 + 268 RAU 8003 RESULT 1673 60 8003 1700 + 269 AUP AJ4 SCALE AND 1700 10 1853 1671 + 270 MPY 8003 FLOAT THEN 1671 19 8003 1657 + 271 SRT 0001 EXIT 1657 30 0001 1688 + 272 STU ACC2 1688 21 1843 1697 + 273 RAU AC19 1697 60 1651 1656 + 274 AUP ARTHD 1656 10 1665 1933 +A274 BMI ACC6 1933 46 1858 1669 + 275 SRT 0002 1669 30 0002 1675 + 276 NZU AC21 1675 44 1674 1681 + 277 AUP ACC2 1681 10 1843 1699 + 278 SRT 0008 ACC6 1699 30 0008 1858 + 279 AC4 RAL ARTHH 1663 65 1788 1653 + 280 BMI AC21 1653 46 1625 1674 + 281 RAL 8003 ACC6 1625 65 8003 1858 + 282 AC5 RAL AC20 ACC6 ARGMNT ZERO 1710 65 1627 1858 + 283 AC21 LDD ACC6 3021 ALARM STOP 1674 69 1858 3021 + 284 1 AC10 00 0000 0001 1903 00 0000 0001 AC10 same as AJ3 + 285 1 AC11 10 0000 0000 1853 10 0000 0000 + 286 AC12 11 5129 2776 1664 11 5129 2776 + 287 AC13 06 6273 0884 1660 06 6273 0884 + 288 AC14 02 5439 3575 1667 02 5439 3575 + 289 AC15 00 7295 1737 1717 00 7295 1737 + 290 AC16 00 1742 1120 1666 00 1742 1120 + 291 AC17 00 0255 4918 1720 00 0255 4918 + 292 AC18 00 0093 2643 1706 00 0093 2643 + 293 AC19 00 0000 0050 1651 00 0000 0050 + 294 AC20 10 0000 0050 1627 10 0000 0050 + 295 E00AB NZE AB10 IS ARG ZERO 1638 45 1662 1632 + 296 STD ARTHD 1662 24 1665 1670 + 297 BMI AB10 IS ARG NEG 1670 46 1632 1624 + 298 SLT 0008 1624 35 0008 1643 + 299 STL ARTHE STORE POWER 1643 20 1902 1658 + 300 RAU 8003 FORM Z 1658 60 8003 1615 + 301 AUP AB1 EQUAL ARG 1615 10 1618 1623 + 302 STU ACC3 MINUS ROOT 1623 21 1881 1635 + 303 SUP AB2 TEN OVER ARG 1635 11 1723 1728 + 304 DVR ACC3 PLUS ROOT 1728 64 1881 1731 + 305 STL ARTHX TEN 1731 20 1786 1639 + 306 RAU 8002 1639 60 8002 1647 + 307 MPY 8001 Z SQUARE 1647 19 8001 1721 + 308 STU ACC3 1721 21 1881 1636 + 309 RAU 8003 GENERATE 1636 60 8003 1644 + 310 MPY AB7 1644 19 1648 1654 + 311 RAU 8003 POLYNOMIAL 1654 60 8003 1614 + 312 AUP AB6 1614 10 1617 1726 + 313 MPY ACC3 APPROXIMATN 1726 19 1881 1730 + 314 RAU 8003 1730 60 8003 1640 + 315 AUP AB5 1640 10 1649 1727 + 316 MPY ACC3 1727 19 1881 1613 + 317 RAU 8003 1613 60 8003 1616 + 318 AUP AB4 1616 10 1619 1628 + 319 MPY ACC3 1628 19 1881 1633 + 320 RAU 8003 1633 60 8003 1641 + 321 AUP AB3 1641 10 1645 1733 + 322 MPY ARTHX 1733 19 1786 1722 + 323 RAL 8003 1722 65 8003 1729 + 324 ALO AB8 1729 15 1732 1637 + 325 SRT 0002 1637 30 0002 1646 + 326 ALO ARTHE ADD POWER 1646 15 1902 1725 + 327 SLO AB8 1725 16 1732 1642 + 328 SRD 0002 ROUND 1642 31 0002 1620 + 329 RAU 8002 1620 60 8002 1734 + 330 SCT 0000 NORMALIZE 1734 36 0000 1621 + 331 BOV AB12 1621 47 1631 1626 + 332 BMI AB13 1626 46 1629 1630 + 333 SUP AB9 AB11 ADJUST 1629 11 1634 1622 + 334 AB11 SUP 8002 AB12 POWER 1622 11 8002 1631 + 335 AB12 RAL 8003 ARTHD 1631 65 8003 1665 + 336 AB13 AUP AB9 AB11 1630 10 1634 1622 + 337 AB10 LDD ARTHD 3011 ALARM 1632 69 1665 3011 + 338 AB1 00 3162 2780 1618 00 3162 2780 + 339 AB2 00 6324 5560 1723 00 6324 5560 + 340 AB3 86 8591 7180 1645 86 8591 7180 + 341 AB4 28 9335 5240 1619 28 9335 5240 + 342 AB5 17 7522 0710 1649 17 7522 0710 + 343 AB6 09 4376 4760 1617 09 4376 4760 + 344 AB7 19 1337 7140 1648 19 1337 7140 + 345 AB8 50 0000 0000 1732 50 0000 0000 + 346 AB9 00 0000 0053 1634 00 0000 0053 + 1 VARS + ARTHD 00 0000 0000 1665 00 0000 0000 + ARTHX 00 0000 0000 1786 00 0000 0000 + ARTHG 00 0000 0000 1794 00 0000 0000 + ARTHF 00 0000 0000 1772 00 0000 0000 + ARTHE 00 0000 0000 1902 00 0000 0000 + ARTHH 00 0000 0000 1788 00 0000 0000 + ARTHM 00 0000 0000 1824 00 0000 0000 + ARTHY 00 0000 0000 1808 00 0000 0000 + ACC 00 0000 0000 0000 00 0000 0000 + ACC1 00 0000 0000 1998 00 0000 0000 + ACC2 00 0000 0000 1843 00 0000 0000 + ACC3 00 0000 0000 1881 00 0000 0000 + ACC4 00 0000 0000 1870 00 0000 0000 + ACC5 00 0000 0000 1795 00 0000 0000 + ACC6 00 0000 0000 1858 00 0000 0000 + J0001 00 0000 0000 1977 00 0000 0000 + J0002 00 0000 0000 1978 00 0000 0000 + J0003 00 0000 0000 1979 00 0000 0000 + J0004 00 0000 0000 1980 00 0000 0000 + J0005 00 0000 0000 1981 00 0000 0000 + J0006 00 0000 0000 1982 00 0000 0000 + J0007 00 0000 0000 1983 00 0000 0000 + J0008 00 0000 0000 1984 00 0000 0000 + P0000 00 0000 0000 1950 00 0000 0000 + P0001 00 0000 0000 1951 00 0000 0000 + P0002 00 0000 0000 1952 00 0000 0000 + P0004 00 0000 0000 1954 00 0000 0000 + P0005 00 0000 0000 1955 00 0000 0000 + P0007 00 0000 0000 1957 00 0000 0000 + P0008 00 0000 0000 1958 00 0000 0000 + P0009 00 0000 0000 1959 00 0000 0000 + P0010 00 0000 0000 1960 00 0000 0000 diff --git a/I650/sw/it_package_p4.dck b/I650/sw/it_package_p4.dck new file mode 100644 index 00000000..d013fa74 --- /dev/null +++ b/I650/sw/it_package_p4.dck @@ -0,0 +1,494 @@ +6I1954195C 0000241833800?2417861789 e00aistdarthxai1 6-add +6I1954195C 0000241789800?2017941799 ai1 stlarthg 7- +6I1954195C 0000241799800?6918021805 ldd arthb 8- +6I1954195C 0000241802800?6780021767 ram 8002 9-store acc +6I1954195C 0000241767800?2017721894 stlarthf 10-power +6I1954195C 0000241894800?1819021759 smlarthe 11- +6I1954195C 0000241759800?3500011766 slt 0001 12- +6I1954195C 0000241766800?4417731771 nzuai12 13-find max +6I1954195C 0000241771800?6917741777 lddai3a 14- +6I1954195C 0000241777800?3000051790 srt 0005 15-power +6I1954195C 0000241790800?2217931796 sdaai3 16-set expnnts +6I1954195C 0000241796800?4618991754 bmi ai2 17-and then +6I1954195C 0000241899800?6719021817 ramarthe 18-perform +6I1954195C 0000241817800?2017721776 stlarthf 19-addition +6I1954195C 0000241776800?6517881943 ralarthh 20- +6I1954195C 0000241943800?6918241793 lddarthmai3 21- +6I1954195C 0000241793800?3000001811 ai3 srt 0000ai3b 22- +6I1954195C 0000241774800?3000001811 ai3a srt 0000ai3b 23- +6I1954195C 0000241811800?1580011770 ai3b alo 8001ai5 24- +6I1954195C 0000241754800?6518241779 ai2 ralarthm 25- +6I1954195C 0000241779800?6917881793 lddarthhai3 26- +6I1954195C 0000241770800?6080021780 ai5 rau 8002 27-clear arthe +6I1954195C 0000241780800?2019021762 stlarthearths 28-to scale +6I1954195C 0000241773800?4617781828 ai12 bmi ai13 29- +6I1954195C 0000241778800?6517941904 ralarthgai10 30- +6I1954195C 0000241828800?6500001786 ai13 ralacc arthx 31- +6I1954195C 0000241805800?2418081826 arthbstdarthy 32-break up exp +6I1954195C 0000241826800?3500081996 slt 0008 33-and mantissa +6I1954195C 0000241996800?2019021755 stlarthe 34-store power +6I1954195C 0000241755800?6080031763 rau 8003 35-and mantissa +6I1954195C 0000241763800?3500011769 slt 0001 36-of lower +6I1954195C 0000241769800?2118241997 stuarthm 37- +6I1954195C 0000241997800?6000001855 rauacc 38- +6I1954195C 0000241855800?3000021761 srt 0002 39-store power +6I1954195C 0000241761800?1680021819 slo 8002 40-and mantissa +6I1954195C 0000241819800?3500011775 slt 0001 41-of acc +6I1954195C 0000241775800?1580011783 alo 8001 42- +6I1954195C 0000241783800?2117881808 stuarthharthy 43- +6I1954195C 0000241762800?3600001782 arthssct 0000 44-normalize +6I1954195C 0000241782800?4719421787 bovai6 45-brnch if zro +6I1954195C 0000241787800?2017941797 stlarthg 46-shift count +6I1954195C 0000241797800?6580031905 ral 8003 47-round on +6I1954195C 0000241905800?3100021813 srd 0002 48-ninth digit +6I1954195C 0000241813800?3500021869 slt 0002 49-check for +6I1954195C 0000241869800?2018241877 stlarthm 50-roundoff +6I1954195C 0000241877800?4418311834 nzuai7 ai8 51-overflow +6I1954195C 0000241834800?6780031841 ai8 ram 8003 52-and +6I1954195C 0000241841800?1817941800 smlarthg 53-correct if +6I1954195C 0000241800800?1519031822 aloaj2 54-necessary +6I1954195C 0000241822800?3500081791 slt 0008 55- +6I1954195C 0000241791800?6580021849 ral 8002 56- +6I1954195C 0000241849800?1719021757 amlarthe 57- +6I1954195C 0000241757800?1517721827 aloarthf 58- +6I1954195C 0000241827800?4617521781 bmiai11a 59-pwr too smal +6I1954195C 0000241781800?4417851836 nzuai11 60-pwr too lrge +6I1954195C 0000241836800?3500021893 slt 0002 61- +6I1954195C 0000241893800?2119981901 stuacc1 62- +6I1954195C 0000241901800?6518241829 ralarthm 63- +6I1954195C 0000241829800?4619441995 bmi ai9 64-combine +6I1954195C 0000241944800?1619981904 sloacc1 ai10 65- +6I1954195C 0000241904800?2000001786 ai10 stlacc arthx 66-and +6I1954195C 0000241995800?1519981904 ai9 aloacc1 ai10 67- +6I1954195C 0000241831800?3000011792 ai7 srt 0001 68-adjust +6I1954195C 0000241792800?2018241927 stlarthm 69- +6I1954195C 0000241927800?3500011834 slt 0001ai8 70- +6I1954195C 0000241942800?6580031904 ai6 ral 8003ai10 71- +6I1954195C 0000241832800?2417861839 e00ajstdarthx 72-multiply +6I1954195C 0000241839800?6918521805 ldd arthb 73- +6I1954195C 0000241852800?6780021867 ram 8002 74-acc power +6I1954195C 0000241867800?1618201825 sloaj1 75-minus 48 +6I1954195C 0000241825800?2017721875 stlarthf 76- +6I1954195C 0000241875800?6017881756 rauarthh 77- +6I1954195C 0000241756800?1918241762 mpyarthmarths 78- +6I1954195C 0000241830800?2417861889 e00agstdarthxag1 79-divide +6I1954195C 0000241889800?6918421805 ag1 ldd arthb 80-is divisor +6I1954195C 0000241842800?4418121846 nzu ag3 81-zer0 +6I1954195C 0000241812800?6880021821 rsm 8002 82-divisor +6I1954195C 0000241821800?1518761895 aloag2 83-power minus +6I1954195C 0000241895800?2017721768 stlarthf 84-49 +6I1954195C 0000241768800?6018241879 rauarthm 85-sh1ft +6I1954195C 0000241879800?3000011885 srt 0001 86-dividend +6I1954195C 0000241885800?6417881803 dvrarthh 87-do divide +6I1954195C 0000241803800?6080021762 rau 8002arths 88- +6I1954195C 0000241882800?2417861989 e00aostdarthx 89-div reverse +6I1954195C 0000241989800?2018431896 stlacc2 90- +6I1954195C 0000241896800?6500001810 ralacc 91- +6I1954195C 0000241810800?6918431897 lddacc2 92- +6I1954195C 0000241897800?2400001889 stdacc ag1 93- +6I1954195C 0000241947800?2418581911 e00afstdacc6 94-fl0at to lwr +6I1954195C 0000241911800?6919251928 lddae4 e00ae 95-and acc +6I1954195C 0000241925800?2000001858 ae4 stlacc acc6 96- +6I1954195C 0000241928800?2417861840 e00aestdarthx 97-float to lwr +6I1954195C 0000241840800?6080021753 rau 8002 98-only +6I1954195C 0000241753800?3600001975 sct 0000 99-normalize +6I1954195C 0000241975800?2018811784 stlacc3 100- +6I1954195C 0000241784800?4718511890 bovad1 101-zer0 check +6I1954195C 0000241890800?6580031798 ral 8003 102- +6I1954195C 0000241798800?3100021807 srd 0002 103-round for +6I1954195C 0000241807800?3500021764 slt 0002 104-placing exp +6I1954195C 0000241764800?4418181891 nzu ae6 105-check round +6I1954195C 0000241818800?6980031874 ldd 8003 106-overflow +6I1954195C 0000241874800?3000011884 srt 0001 107- +6I1954195C 0000241884800?1580011891 alo 8001ae6 108- +6I1954195C 0000241891800?4618441845 ae6 bmiae2 109-insert +6I1954195C 0000241845800?1518481804 aloaj3 ae5 110-exp0nent +6I1954195C 0000241844800?1618481804 ae2 sloaj3 ae5 111- +6I1954195C 0000241804800?1618811786 ae5 sloacc3 arthx 112- +6I1954195C 0000241932800?2417861990 e00thstdarthx 113-fix l0wer +6I1954195C 0000241990800?3500081859 slt 0008 114-to lower +6I1954195C 0000241859800?2118241878 stuarthm 115- +6I1954195C 0000241878800?6780021887 ram 8002 116-test exp +6I1954195C 0000241887800?1619401945 sloaj5 117-store zer0 +6I1954195C 0000241945800?4618511850 bmiad1 118-if less than +6I1954195C 0000241850800?1618531758 sloaj4 119-50 alarm +6I1954195C 0000241758800?4618611862 bmi ad3 120-1f grtr than +6I1954195C 0000241861800?3000041921 srt 0004 121-59 +6I1954195C 0000241921800?1519241929 aloar7 122- +6I1954195C 0000241929800?6918351838 lddad2a 123-modify +6I1954195C 0000241838800?2219911971 sdaad2 124-shift +6I1954195C 0000241971800?6518241930 ralarthm 125- +6I1954195C 0000241930800?3500021991 slt 0002ad2 126- +6I1954195C 0000241851800?6580031786 ad1 ral 8003arthx 127-store zero +6I1954195C 0000241991800?3000001786 ad2 srt 0000arthx 128-shift c0nst +6I1954195C 0000241835800?3000001786 ad2a srt 0000arthx 129- +6I1954195C 0000241862800?6917863031 ad3 lddarthx 3031 130-fix alarm +6I1954195C 0000241846800?6917863061 ag3 lddarthx 3061 131-divide alarm +6I1954195C 0000241785800?6917863081 ai11 lddarthx 3081 132-scale alarm +6I1954195C 0000241752800?0110811942 ai11ahlt 1081ai6 133- +6I1954195C 0000241876800?4900000000 ag2 49 0000 0000 134- +6I1954195C 0000241820800?4800000000 aj1 48 0000 0000 135- +6I1954195C 0000241903800?0000000001 aj2 00 0000 0001 136- +6I1954195C 0000241848800?0000000059 aj3 00 0000 0059 137- +6I1954195C 0000241853800?1000000000 aj4 10 0000 0000 138- +6I1954195C 0000241940800?5000000000 aj5 50 0000 0000 139- +6I1954195C 0000241974800?2419771880 e00aqstdj0001aq1 140-read +6I1954195C 0000241880800?7019761898 aq1 rd1 1976aq3 141- +6I1954195C 0000241898800?6719511806 aq3 ramp0001aq3a 142- +6I1954195C 0000241892800?6719511806 aq3b ramp0001aq3a 143-check for +6I1954195C 0000241806800?4518601837 aq3a nze aq8 144-last word +6I1954195C 0000241860800?6918631816 lddaq5 aq4 145-on card +6I1954195C 0000241816800?2418701873 aq4 stdacc4 146- +6I1954195C 0000241873800?1080031931 aup 8003 147-read in +6I1954195C 0000241931800?3000041941 srt 0004 148-label for +6I1954195C 0000241941800?2317951948 siaacc5 149-present +6I1954195C 0000241948800?1680011856 slo 8001 150-variable +6I1954195C 0000241856800?1518098002 alo 8002 151-get i y 0r c +6I1954195C 0000241809800?6000001987 rau 0000 152-address from +6I1954195C 0000241987800?1017951949 aupacc5 153-abcon dict +6I1954195C 0000241949800?3500041870 slt 0004acc4 154-generate +6I1954195C 0000241863800?1018661857 aq5 aupaq7 155-1nstruction +6I1954195C 0000241857800?1519601965 alop0010 156- +6I1954195C 0000241965800?1519688002 alo 8002 157-get and +6I1954195C 0000241968800?6919528003 lddp0002 8003 158-store word +6I1954195C 0000241866800?2400001907 aq7 std 0000 159- +6I1954195C 0000241907800?6519601915 ralp0010 160-increment +6I1954195C 0000241915800?1519181854 aloaq9 161-word count +6I1954195C 0000241854800?2019601963 stlp0010 162- +6I1954195C 0000241963800?1518928002 aloaq3b 8002 163- +6I1954195C 0000241837800?6519511765 aq8 ralp0001 164-check for +6I1954195C 0000241765800?4619771880 bmij0001aq1 165-last card +6I1954195C 0000241801800?2419551908 e00arstdp0005 166-punch 0ut +6I1954195C 0000241908800?2119791935 stuj0003 167- +6I1954195C 0000241935800?2319581912 siap0008 168-store stmnt +6I1954195C 0000241912800?2119801886 stuj0004 169-number +6I1954195C 0000241886800?2219541909 sdap0004 170-store word +6I1954195C 0000241909800?1680011917 slo 8001 171-count +6I1954195C 0000241917800?4519201872 nzear10 ar9 172-test zero +6I1954195C 0000241920800?2119811814 ar10 stuj0005 173-stmt number +6I1954195C 0000241814800?2419821972 stdj0006 174-set punch +6I1954195C 0000241972800?2419831864 stdj0007 175-band to +6I1954195C 0000241864800?2419841888 stdj0008 176-zeroes +6I1954195C 0000241888800?2419601913 stdp0010ar3 177-set counter +6I1954195C 0000241913800?6519541910 ar3 ralp0004 178- +6I1954195C 0000241910800?1619241936 sloar7 179- +6I1954195C 0000241936800?4619941992 bmiar8 180-test word +6I1954195C 0000241992800?2019541865 stlp0004ar4 181-count +6I1954195C 0000241865800?1518688002 ar4 alo 8002 182-get word +6I1954195C 0000241868800?6519501914 ralp0000 183-label from +6I1954195C 0000241914800?1080031922 aup 8003 184-punch consts +6I1954195C 0000241922800?3500011938 slt 0001 185- +6I1954195C 0000241938800?2219571961 sdap0007 186-modify label +6I1954195C 0000241961800?1680011919 slo 8001 187- +6I1954195C 0000241919800?3000011926 srt 0001 188- +6I1954195C 0000241926800?1519571962 alop0007 189- +6I1954195C 0000241962800?3500041923 slt 0004 190-insert stmnt +6I1954195C 0000241923800?1519581964 alop0008 191-number +6I1954195C 0000241964800?1019601916 aupp0010 192- +6I1954195C 0000241916800?1019698003 aup 8003 193- +6I1954195C 0000241969800?2019771988 stlj0001 194-store label +6I1954195C 0000241988800?6580021900 ral 8002 195-for punching +6I1954195C 0000241900800?6919061816 ldd aq4 196-modify label +6I1954195C 0000241906800?1019661934 aupar6 197-into drum +6I1954195C 0000241934800?1519601967 alop0010 198-loc in read +6I1954195C 0000241967800?1519708003 alo 8003 199-get word +6I1954195C 0000241970800?2419781993 stdj0002 200-store in +6I1954195C 0000241993800?6519601815 ralp0010 201-punch band +6I1954195C 0000241815800?1519181973 aloaq9 202- +6I1954195C 0000241973800?2019601913 stlp0010ar3 203- +6I1954195C 0000241966800?6900008002 ar6 ldd 0000 8002 204- +6I1954195C 0000241924800?0000010000 ar7 00 0001 0000 205- +6I1954195C 0000241994800?7119771955 ar8 pchj0001p0005 206-punch +6I1954195C 0000241872800?6580001937 ar9 ral 8000 207-if stmt nmbr +6I1954195C 0000241937800?4619201955 bmiar10 p0005 208-zro pch only +6I1954195C 0000241918800?0000020000 aq9 00 0002 0000 209-if 8000 neg +6I1954195C 0000241986800?8000008800 j0010 80 0000 8800 210-control cnst +6I1954195C 0000241654800?2418081732 e00alstdarthy 211- +6I1954195C 0000241732800?2017881694 stlarthh 212- +6I1954195C 0000241694800?6500001709 ralacc al17a 213-is power +6I1954195C 0000241709800?2418701723 al17astdacc4 214-two +6I1954195C 0000241723800?2417861739 stdarthx 215-if so +6I1954195C 0000241739800?1616861692 sloal16 216-multiply +6I1954195C 0000241692800?4517311751 nzeal18 217- +6I1954195C 0000241751800?6517881645 ralarthh 218- +6I1954195C 0000241645800?2400001655 stdacc 219- +6I1954195C 0000241655800?6918081832 lddarthye00aj 220- +6I1954195C 0000241731800?6517881693 al18 ralarthhal17 221- +6I1954195C 0000241693800?3500081661 al17 slt 0008 222- +6I1954195C 0000241661800?1680021720 slo 8002 223- +6I1954195C 0000241720800?3500021677 slt 0002 224-q equals +6I1954195C 0000241677800?1580011690 alo 8001 225-mantissa +6I1954195C 0000241690800?2117721675 stuarthf 226-of argument +6I1954195C 0000241675800?6780021683 ram 8002 227- +6I1954195C 0000241683800?1617361691 sloal1 228-store expnnt +6I1954195C 0000241691800?3500021698 slt 0002 229-of argmnt +6I1954195C 0000241698800?2119021706 stuarthe 230- +6I1954195C 0000241706800?6516601666 ralal2 231-mantissa of +6I1954195C 0000241666800?2018241678 stlarthm 232-z is one +6I1954195C 0000241678800?6517361695 ralal1 233- +6I1954195C 0000241695800?3500021702 slt 0002 234-exp of z is +6I1954195C 0000241702800?2117941747 stuarthgal3 235-50 +6I1954195C 0000241747800?6000001708 al3 rauacc 236-k is grtst +6I1954195C 0000241708800?1917361738 mpyal1 237-integer in +6I1954195C 0000241738800?2100001658 stuacc 238-k over two +6I1954195C 0000241658800?6580021667 ral 8002 239-is remainder +6I1954195C 0000241667800?4516701646 nze al4 240-zer0 +6I1954195C 0000241670800?6018241729 rauarthm 241-if not set z +6I1954195C 0000241729800?6916821737 ldd al5 242-equals to +6I1954195C 0000241682800?1517941715 aloarthg 243-z times q +6I1954195C 0000241715800?2017941699 stlarthg 244-via +6I1954195C 0000241699800?6516651669 ralarthd 245-subroutine +6I1954195C 0000241669800?2018241638 stlarthm 246- +6I1954195C 0000241638800?4516461741 nzeal4 al20 247- +6I1954195C 0000241646800?6000001712 al4 rauacc 248-if k nonzero +6I1954195C 0000241712800?4416681721 nzu al7 249-q equals +6I1954195C 0000241668800?6017721679 rauarthf 250- +6I1954195C 0000241679800?6916841737 ldd al5 251-via subrtne +6I1954195C 0000241684800?1519021714 aloarthe 252- +6I1954195C 0000241714800?2019021662 stlarthe 253- +6I1954195C 0000241662800?6516651719 ralarthd 254- +6I1954195C 0000241719800?2017721747 stlarthfal3 255- +6I1954195C 0000241721800?6017941700 al7 rauarthg 256-set exponnts +6I1954195C 0000241700800?3000021663 srt 0002 257-arths +6I1954195C 0000241663800?4417851722 nzuai11 258-exp overscal +6I1954195C 0000241722800?2019021664 stlarthe 259- +6I1954195C 0000241664800?2117721671 stuarthf 260- +6I1954195C 0000241671800?6018241680 rauarthm 261- +6I1954195C 0000241680800?3000011741 srt 0001al20 262- +6I1954195C 0000241741800?6917161724 al20 lddal8 263- +6I1954195C 0000241724800?2417861762 stdarthxarths 264- +6I1954195C 0000241716800?6518701648 al8 ralacc4 265- +6I1954195C 0000241648800?4617011743 bmial10 266- +6I1954195C 0000241743800?6500001808 ralacc arthy 267- +6I1954195C 0000241701800?6500001672 al10 ralacc 268-z equals one +6I1954195C 0000241672800?4516761681 nze al12 269-over z if +6I1954195C 0000241676800?6516851649 ralal11 270-k neg and z +6I1954195C 0000241649800?6918081830 lddarthye00ag 271-non zero +6I1954195C 0000241681800?6918083111 al12 lddarthy 3111 272-alarm if zro +6I1954195C 0000241737800?2417861652 al5 stdarthx 273- +6I1954195C 0000241652800?1917721673 mpyarthf 274- +6I1954195C 0000241673800?3000091644 srt 0009 275- +6I1954195C 0000241644800?4416501639 nzual14 276- +6I1954195C 0000241639800?2016651640 stlarthd 277- +6I1954195C 0000241640800?6580031641 ral 8003al15 278- +6I1954195C 0000241641800?1519021786 al15 aloarthearthx 279- +6I1954195C 0000241650800?3000011643 al14 srt 0001 280- +6I1954195C 0000241643800?2016651642 stlarthd 281- +6I1954195C 0000241642800?6519031641 ralaj2 al15 282- +6I1954195C 0000241736800?5000000000 al1 50 0000 0000 283- +6I1954195C 0000241660800?1000000000 al2 10 0000 0000 284- +6I1954195C 0000241685800?1000000050 al11 10 0000 0050 285- +6I1954195C 0000241686800?0000000002 al16 00 0000 0002 286- +6I1954195C 0000241903800?0000000001 aj2 00 0000 0001 287- +6I1954195C 0000241651800?2418081687 e00anstdarthy 288-power +6I1954195C 0000241687800?6900001674 lddacc 289-float fix +6I1954195C 0000241674800?2417881745 stdarthh 290-reverse +6I1954195C 0000241745800?2000001709 stlacc al17a 291- +6I1954195C 0000241704800?2418081711 e00akstdarthy 292-power fixfix +6I1954195C 0000241711800?2017941647 stlarthgak1 293-q is argmnt +6I1954195C 0000241647800?6700001705 ak1 ramacc 294-k equals +6I1954195C 0000241705800?2017721725 stlarthf 295-abval power +6I1954195C 0000241725800?6519031707 ralaj2 296-z equals +6I1954195C 0000241707800?2017881718 stlarthhak3 297-one +6I1954195C 0000241718800?6017721727 ak3 rauarthf 298-k is gtst +6I1954195C 0000241727800?1917301717 mpyak4 299-intgr in +6I1954195C 0000241717800?2117721726 stuarthf 300-k over two +6I1954195C 0000241726800?6580021735 ral 8002 301-is remainder +6I1954195C 0000241735800?4517341742 nze ak5 302-zero +6I1954195C 0000241734800?6017881688 rauarthh 303-if not z is +6I1954195C 0000241688800?1917941733 mpyarthg 304-z times q +6I1954195C 0000241733800?2017881742 stlarthhak5 305- +6I1954195C 0000241742800?6017721728 ak5 rauarthf 306- +6I1954195C 0000241728800?4417401746 nzu ak6 307-1s k zero +6I1954195C 0000241740800?6017941749 rauarthg 308-if not +6I1954195C 0000241749800?1980011689 mpy 8001 309-q equals +6I1954195C 0000241689800?2017941718 stlarthgak3 310-q squared +6I1954195C 0000241746800?6000001656 ak6 rauacc 311-is power neg +6I1954195C 0000241656800?4616591713 bmi ak7 312-if so is z +6I1954195C 0000241659800?6717881744 ramarthh 313-zero +6I1954195C 0000241744800?4517481750 nze ak8 314-if not is z +6I1954195C 0000241748800?1619031657 sloaj2 315-one +6I1954195C 0000241657800?4517101713 nzeak10 ak7 316- +6I1954195C 0000241713800?6517881808 ak7 ralarthharthy 317-exhibit z +6I1954195C 0000241710800?6580031808 ak10 ral 8003arthy 318- +6I1954195C 0000241750800?6918083101 ak8 lddarthy 3101 319-alarm +6I1954195C 0000241730800?5000000000 ak4 50 0000 0000 320- +6I1954195C 0000241903800?0000000001 aj2 00 0000 0001 321- +6I1954195C 0000241653800?2418081696 e00amstdarthy 322-interchge +6I1954195C 0000241696800?6900001703 lddacc 323-acc and +6I1954195C 0000241703800?2417941697 stdarthg 324-lower +6I1954195C 0000241697800?2000001647 stlacc ak1 325-then e00ak +6I1954195C 0000241976800?6719511623 1976ram 1951 326- +6I1954195C 0000241623800?1080031632 aup 8003 327- +6I1954195C 0000241632800?3500041624 slt 0004 328- +6I1954195C 0000241624800?2219591626 sdap0009 329- +6I1954195C 0000241626800?3000041637 srt 0004 330- +6I1954195C 0000241637800?6916271816 ldd aq4 331- +6I1954195C 0000241627800?6580031636 ral 8003 332- +6I1954195C 0000241636800?1019591633 aupp0009 333- +6I1954195C 0000241633800?1580011631 alo 8001 334- +6I1954195C 0000241631800?1016251628 aupaq9b 335- +6I1954195C 0000241628800?1516341622 aloaq10 aq11 336- +6I1954195C 0000241622800?1116251630 aq11 supaq9b 337- +6I1954195C 0000241630800?4416351837 nzu aq8 338- +6I1954195C 0000241635800?1080011621 aup 8001 339- +6I1954195C 0000241621800?1119241629 supar7 340- +6I1954195C 0000241629800?1680018003 slo 8001 8003 341- +6I1954195C 0000241625800?6919528002 aq9b ldd 1952 8002 342- +6I1954195C 0000241634800?2400001622 aq10 std 0000aq11 343- +6I1954195C 0000241605800?2418581611 e00acstdacc6 344-exponential +6I1954195C 0000241611800?4516151504 nze ac5 345-is argument +6I1954195C 0000241615800?3500081583 slt 0008 346-zero +6I1954195C 0000241583800?2117881592 stuarthh 347-if not let +6I1954195C 0000241592800?6880021601 rsm 8002 348-n be mantsa +6I1954195C 0000241601800?1516041609 aloac3 349-x be power +6I1954195C 0000241609800?4615131613 bmiac4 350-is x grtr +6I1954195C 0000241613800?3500011619 slt 0001 351-than two +6I1954195C 0000241619800?4415041574 nzuac5 352-or less than +6I1954195C 0000241574800?3000051587 srt 0005 353-minus eight +6I1954195C 0000241587800?1515901595 aloac6 354-if x within +6I1954195C 0000241595800?2016651618 stlarthd 355-bounds gen +6I1954195C 0000241618800?6017881593 rauarthh 356-int and +6I1954195C 0000241593800?3000061665 srt 0006arthd 357-fract parts +6I1954195C 0000241604800?5100000000 ac3 51 0000 0000 358-of argument +6I1954195C 0000241590800?3000001584 ac6 srt 0000 359-is arg neg +6I1954195C 0000241584800?4615891602 bmiac8 360-1f so int is +6I1954195C 0000241602800?2116651585 stuarthdac1 361-int minus 1 +6I1954195C 0000241589800?1119031607 ac8 supaj2 362-and fract is +6I1954195C 0000241607800?2116651568 stuarthd 363-fract plus 1 +6I1954195C 0000241568800?6580021577 ral 8002 364- +6I1954195C 0000241577800?1515801585 aloac2 ac1 365- +6I1954195C 0000241580800?9999999999 ac2 99 9999 9999 366- +6I1954195C 0000241585800?2017881594 ac1 stlarthh 367- +6I1954195C 0000241594800?6080021603 rau 8002 368- +6I1954195C 0000241603800?1916061608 mpyac18 369-generate +6I1954195C 0000241608800?6080031616 rau 8003 370- +6I1954195C 0000241616800?1016201586 aupac17 371-polynomial +6I1954195C 0000241586800?1917881591 mpyarthh 372- +6I1954195C 0000241591800?6080031561 rau 8003 373-approxim +6I1954195C 0000241561800?1015661582 aupac16 374-ation +6I1954195C 0000241582800?1917881596 mpyarthh 375- +6I1954195C 0000241596800?6080031612 rau 8003 376-for +6I1954195C 0000241612800?1016171578 aupac15 377- +6I1954195C 0000241578800?1917881550 mpyarthh 378-exponential +6I1954195C 0000241550800?6080031614 rau 8003 379- +6I1954195C 0000241614800?1015671579 aupac14 380- +6I1954195C 0000241579800?1917881598 mpyarthh 381- +6I1954195C 0000241598800?6080031555 rau 8003 382- +6I1954195C 0000241555800?1015601576 aupac13 383- +6I1954195C 0000241576800?1917881552 mpyarthh 384- +6I1954195C 0000241552800?6080031559 rau 8003 385- +6I1954195C 0000241559800?1015641572 aupac12 386- +6I1954195C 0000241572800?1917881573 mpyarthh 387-square +6I1954195C 0000241573800?6080031600 rau 8003 388-result +6I1954195C 0000241600800?1018531571 aupaj4 389-scale and +6I1954195C 0000241571800?1980031557 mpy 8003 390-float then +6I1954195C 0000241557800?3000011588 srt 0001 391-exit +6I1954195C 0000241588800?2118431597 stuacc2 392- +6I1954195C 0000241597800?6015511556 rauac19 393- +6I1954195C 0000241556800?1016651933 auparthd 394- +6I1954195C 0000241933800?4618581569 bmiacc6 a394- +6I1954195C 0000241569800?3000021575 srt 0002 395- +6I1954195C 0000241575800?4415141581 nzuac21 396- +6I1954195C 0000241581800?1018431599 aupacc2 397- +6I1954195C 0000241599800?3000081858 srt 0008acc6 398- +6I1954195C 0000241513800?6517881503 ac4 ralarthh 399- +6I1954195C 0000241503800?4615101514 bmi ac21 400- +6I1954195C 0000241510800?6580031858 ral 8003acc6 401- +6I1954195C 0000241504800?6515651858 ac5 ralac20 acc6 402-argmnt zero +6I1954195C 0000241514800?6918583021 ac21 lddacc6 3021 403-alarm stop +6I1954195C 0000241903800?0000000001 aj2 00 0000 0001 404- +6I1954195C 0000241853800?1000000000 aj4 10 0000 0000 405- +6I1954195C 0000241564800?1151292776 ac12 11 5129 2776 406- +6I1954195C 0000241560800?0662730884 ac13 06 6273 0884 407- +6I1954195C 0000241567800?0254393575 ac14 02 5439 3575 408- +6I1954195C 0000241617800?0072951737 ac15 00 7295 1737 409- +6I1954195C 0000241566800?0017421120 ac16 00 1742 1120 410- +6I1954195C 0000241620800?0002554918 ac17 00 0255 4918 411- +6I1954195C 0000241606800?0000932643 ac18 00 0093 2643 412- +6I1954195C 0000241551800?0000000050 ac19 00 0000 0050 413- +6I1954195C 0000241565800?1000000050 ac20 10 0000 0050 414- +6I1954195C 0000241507800?4515621505 e00a8nze ab10 415-is arg zero +6I1954195C 0000241562800?2416651570 stdarthd 416- +6I1954195C 0000241570800?4615051524 bmiab10 417-is arg neg +6I1954195C 0000241524800?3500081543 slt 0008 418- +6I1954195C 0000241543800?2019021558 stlarthe 419-store power +6I1954195C 0000241558800?6080031515 rau 8003 420-form z +6I1954195C 0000241515800?1015181523 aupab1 421-equal arg +6I1954195C 0000241523800?2118811535 stuacc3 422-minus root +6I1954195C 0000241535800?1115531563 supab2 423-ten over arg +6I1954195C 0000241563800?6418811500 dvracc3 424-plus root +6I1954195C 0000241500800?2018081511 stlarthy 425-ten +6I1954195C 0000241511800?6080021519 rau 8002 426- +6I1954195C 0000241519800?1980011521 mpy 8001 427-z square +6I1954195C 0000241521800?2118811536 stuacc3 428- +6I1954195C 0000241536800?6080031544 rau 8003 429-generate +6I1954195C 0000241544800?1915481554 mpyab7 430- +6I1954195C 0000241554800?6080031512 rau 8003 431-polynomial +6I1954195C 0000241512800?1015161526 aupab6 432- +6I1954195C 0000241526800?1918811531 mpyacc3 433-approximatn +6I1954195C 0000241531800?6080031540 rau 8003 434- +6I1954195C 0000241540800?1015491527 aupab5 435- +6I1954195C 0000241527800?1918811538 mpyacc3 436- +6I1954195C 0000241538800?6080031502 rau 8003 437- +6I1954195C 0000241502800?1016101528 aupab4 438- +6I1954195C 0000241528800?1918811533 mpyacc3 439- +6I1954195C 0000241533800?6080031541 rau 8003 440- +6I1954195C 0000241541800?1015451501 aupab3 441- +6I1954195C 0000241501800?1918081508 mpyarthy 442- +6I1954195C 0000241508800?6580031517 ral 8003 443- +6I1954195C 0000241517800?1515201525 aloab8 444- +6I1954195C 0000241525800?3000021532 srt 0002 445- +6I1954195C 0000241532800?1519021509 aloarthe 446-add power +6I1954195C 0000241509800?1615201529 sloab8 447- +6I1954195C 0000241529800?3100021537 srd 0002 448-round +6I1954195C 0000241537800?6080021546 rau 8002 449- +6I1954195C 0000241546800?3600001522 sct 0000 450-normalize +6I1954195C 0000241522800?4715061530 bovab12 451- +6I1954195C 0000241530800?4615341539 bmi ab13 452- +6I1954195C 0000241534800?1115421547 supab9 ab11 453-adjust +6I1954195C 0000241547800?1180021506 ab11 sup 8002ab12 454-power +6I1954195C 0000241506800?6580031665 ab12 ral 8003arthd 455- +6I1954195C 0000241539800?1015421547 ab13 aupab9 ab11 456- +6I1954195C 0000241505800?6916653011 ab10 lddarthd 3011 457-alarm +6I1954195C 0000241518800?0031622780 ab1 00 3162 2780 458- +6I1954195C 0000241553800?0063245560 ab2 00 6324 5560 459- +6I1954195C 0000241545800?8685917180 ab3 86 8591 7180 460- +6I1954195C 0000241610800?2893355240 ab4 28 9335 5240 461- +6I1954195C 0000241549800?1775220710 ab5 17 7522 0710 462- +6I1954195C 0000241516800?0943764760 ab6 09 4376 4760 463- +6I1954195C 0000241548800?1913377140 ab7 19 1337 7140 464- +6I1954195C 0000241520800?5000000000 ab8 50 0000 0000 465- +6I1954195C 0000241542800?0000000053 ab9 00 0000 0053 466- +6I1954195C 0000241786800?0000000000 arthx 00 0000 0000 - +6I1954195C 0000241665800?0000000000 arthd 00 0000 0000 - +6I1954195C 0000241794800?0000000000 arthg 00 0000 0000 - +6I1954195C 0000241772800?0000000000 arthf 00 0000 0000 - +6I1954195C 0000241902800?0000000000 arthe 00 0000 0000 - +6I1954195C 0000241788800?0000000000 arthh 00 0000 0000 - +6I1954195C 0000241824800?0000000000 arthm 00 0000 0000 - +6I1954195C 0000241808800?0000000000 arthy 00 0000 0000 - +6I1954195C 0000240000800?0000000000 acc 00 0000 0000 - +6I1954195C 0000241998800?0000000000 acc1 00 0000 0000 - +6I1954195C 0000241843800?0000000000 acc2 00 0000 0000 - +6I1954195C 0000241881800?0000000000 acc3 00 0000 0000 - +6I1954195C 0000241870800?0000000000 acc4 00 0000 0000 - +6I1954195C 0000241795800?0000000000 acc5 00 0000 0000 - +6I1954195C 0000241858800?0000000000 acc6 00 0000 0000 - +6I1954195C 0000241977800?0000000000 j0001 00 0000 0000 - +6I1954195C 0000241978800?0000000000 j0002 00 0000 0000 - +6I1954195C 0000241979800?0000000000 j0003 00 0000 0000 - +6I1954195C 0000241980800?0000000000 j0004 00 0000 0000 - +6I1954195C 0000241981800?0000000000 j0005 00 0000 0000 - +6I1954195C 0000241982800?0000000000 j0006 00 0000 0000 - +6I1954195C 0000241983800?0000000000 j0007 00 0000 0000 - +6I1954195C 0000241984800?0000000000 j0008 00 0000 0000 - +6I1954195C 0000241950800?0000000000 p0000 00 0000 0000 - +6I1954195C 0000241951800?0000000000 p0001 00 0000 0000 - +6I1954195C 0000241952800?0000000000 p0002 00 0000 0000 - +6I1954195C 0000241954800?0000000000 p0004 00 0000 0000 - +6I1954195C 0000241955800?0000000000 p0005 00 0000 0000 - +6I1954195C 0000241957800?0000000000 p0007 00 0000 0000 - +6I1954195C 0000241958800?0000000000 p0008 00 0000 0000 - +6I1954195C 0000241959800?0000000000 p0009 00 0000 0000 - +6I1954195C 0000241960800?0000000000 p0010 00 0000 0000 - diff --git a/I650/sw/it_package_p4_listing.txt b/I650/sw/it_package_p4_listing.txt new file mode 100644 index 00000000..f354dba9 --- /dev/null +++ b/I650/sw/it_package_p4_listing.txt @@ -0,0 +1,500 @@ + 5 PACKAGE 4 IS + 5 PACKAGE 2 + 5 PLUS + 5 LOG AND EXPONENTIAL + 5 SUBROUTINES + 6 E00AI STD ARTHX AI1 ADD 1833 24 1786 1789 + 7 AI1 STL ARTHG 1789 20 1794 1799 + 8 LDD ARTHB 1799 69 1802 1805 + 9 RAM 8002 STORE ACC 1802 67 8002 1767 + 10 STL ARTHF POWER 1767 20 1772 1894 + 11 SML ARTHE 1894 18 1902 1759 + 12 SLT 0001 1759 35 0001 1766 + 13 NZU AI12 FIND MAX 1766 44 1773 1771 + 14 LDD AI3A 1771 69 1774 1777 + 15 SRT 0005 POWER 1777 30 0005 1790 + 16 SDA AI3 SET EXPNNTS 1790 22 1793 1796 + 17 BMI AI2 AND THEN 1796 46 1899 1754 + 18 RAM ARTHE PERFORM 1899 67 1902 1817 + 19 STL ARTHF ADDITION 1817 20 1772 1776 + 20 RAL ARTHH 1776 65 1788 1943 + 21 LDD ARTHM AI3 1943 69 1824 1793 + 22 AI3 SRT 0000 AI3B 1793 30 0000 1811 + 23 AI3A SRT 0000 AI3B 1774 30 0000 1811 + 24 AI3B ALO 8001 AI5 1811 15 8001 1770 + 25 AI2 RAL ARTHM 1754 65 1824 1779 + 26 LDD ARTHH AI3 1779 69 1788 1793 + 27 AI5 RAU 8002 CLEAR ARTHE 1770 60 8002 1780 + 28 STL ARTHE ARTHS TO SCALE 1780 20 1902 1762 + 29 AI12 BMI AI13 1773 46 1778 1828 + 30 RAL ARTHG AI10 1778 65 1794 1904 + 31 AI13 RAL ACC ARTHX 1828 65 0000 1786 + 32 ARTHB STD ARTHY BREAK UP EXP 1805 24 1808 1826 + 33 SLT 0008 AND MANTISSA 1826 35 0008 1996 + 34 STL ARTHE STORE POWER 1996 20 1902 1755 + 35 RAU 8003 AND MANTISSA 1755 60 8003 1763 + 36 SLT 0001 OF LOWER 1763 35 0001 1769 + 37 STU ARTHM 1769 21 1824 1997 + 38 RAU ACC 1997 60 0000 1855 + 39 SRT 0002 STORE POWER 1855 30 0002 1761 + 40 SLO 8002 AND MANTISSA 1761 16 8002 1819 + 41 SLT 0001 OF ACC 1819 35 0001 1775 + 42 ALO 8001 1775 15 8001 1783 + 43 STU ARTHH ARTHY 1783 21 1788 1808 + 44 ARTHS SCT 0000 NORMALIZE 1762 36 0000 1782 + 45 BOV AI6 BRNCH IF ZRO 1782 47 1942 1787 + 46 STL ARTHG SHIFT COUNT 1787 20 1794 1797 + 47 RAL 8003 ROUND ON 1797 65 8003 1905 + 48 SRD 0002 NINTH DIGIT 1905 31 0002 1813 + 49 SLT 0002 CHECK FOR 1813 35 0002 1869 + 50 STL ARTHM ROUNDOFF 1869 20 1824 1877 + 51 NZU AI7 AI8 OVERFLOW 1877 44 1831 1834 + 52 AI8 RAM 8003 AND 1834 67 8003 1841 + 53 SML ARTHG CORRECT IF 1841 18 1794 1800 + 54 ALO AJ2 NECESSARY 1800 15 1903 1822 + 55 SLT 0008 1822 35 0008 1791 + 56 RAL 8002 1791 65 8002 1849 + 57 AML ARTHE 1849 17 1902 1757 + 58 ALO ARTHF 1757 15 1772 1827 + 59 BMI AI11A PWR TOO SMAL 1827 46 1752 1781 + 60 NZU AI11 PWR TOO LRGE 1781 44 1785 1836 + 61 SLT 0002 1836 35 0002 1893 + 62 STU ACC1 1893 21 1998 1901 + 63 RAL ARTHM 1901 65 1824 1829 + 64 BMI AI9 COMBINE 1829 46 1944 1995 + 65 SLO ACC1 AI10 1944 16 1998 1904 + 66 AI10 STL ACC ARTHX AND 1904 20 0000 1786 + 67 AI9 ALO ACC1 AI10 1995 15 1998 1904 + 68 AI7 SRT 0001 ADJUST 1831 30 0001 1792 + 69 STL ARTHM 1792 20 1824 1927 + 70 SLT 0001 AI8 1927 35 0001 1834 + 71 AI6 RAL 8003 AI10 1942 65 8003 1904 + 72 E00AJ STD ARTHX MULTIPLY 1832 24 1786 1839 + 73 LDD ARTHB 1839 69 1852 1805 + 74 RAM 8002 ACC POWER 1852 67 8002 1867 + 75 SLO AJ1 MINUS 48 1867 16 1820 1825 + 76 STL ARTHF 1825 20 1772 1875 + 77 RAU ARTHH 1875 60 1788 1756 + 78 MPY ARTHM ARTHS 1756 19 1824 1762 + 79 E00AG STD ARTHX AG1 DIVIDE 1830 24 1786 1889 + 80 AG1 LDD ARTHB IS DIVISOR 1889 69 1842 1805 + 81 NZU AG3 ZER0 1842 44 1812 1846 + 82 RSM 8002 DIVISOR 1812 68 8002 1821 + 83 ALO AG2 POWER MINUS 1821 15 1876 1895 + 84 STL ARTHF 49 1895 20 1772 1768 + 85 RAU ARTHM SH1FT 1768 60 1824 1879 + 86 SRT 0001 DIVIDEND 1879 30 0001 1885 + 87 DVR ARTHH DO DIVIDE 1885 64 1788 1803 + 88 RAU 8002 ARTHS 1803 60 8002 1762 + 89 E00AO STD ARTHX DIV REVERSE 1882 24 1786 1989 + 90 STL ACC2 1989 20 1843 1896 + 91 RAL ACC 1896 65 0000 1810 + 92 LDD ACC2 1810 69 1843 1897 + 93 STD ACC AG1 1897 24 0000 1889 + 94 E00AF STD ACC6 FL0AT TO LWR 1947 24 1858 1911 + 95 LDD AE4 E00AE AND ACC 1911 69 1925 1928 + 96 AE4 STL ACC ACC6 1925 20 0000 1858 + 97 E00AE STD ARTHX FLOAT TO LWR 1928 24 1786 1840 + 98 RAU 8002 ONLY 1840 60 8002 1753 + 99 SCT 0000 NORMALIZE 1753 36 0000 1975 + 100 STL ACC3 1975 20 1881 1784 + 101 BOV AD1 ZER0 CHECK 1784 47 1851 1890 + 102 RAL 8003 1890 65 8003 1798 + 103 SRD 0002 ROUND FOR 1798 31 0002 1807 + 104 SLT 0002 PLACING EXP 1807 35 0002 1764 + 105 NZU AE6 CHECK ROUND 1764 44 1818 1891 + 106 LDD 8003 OVERFLOW 1818 69 8003 1874 + 107 SRT 0001 1874 30 0001 1884 + 108 ALO 8001 AE6 1884 15 8001 1891 + 109 AE6 BMI AE2 INSERT 1891 46 1844 1845 + 110 ALO AJ3 AE5 EXP0NENT 1845 15 1848 1804 + 111 AE2 SLO AJ3 AE5 1844 16 1848 1804 + 112 AE5 SLO ACC3 ARTHX 1804 16 1881 1786 + 113 E00TH STD ARTHX FIX L0WER 1932 24 1786 1990 + 114 SLT 0008 TO LOWER 1990 35 0008 1859 + 115 STU ARTHM 1859 21 1824 1878 + 116 RAM 8002 TEST EXP 1878 67 8002 1887 + 117 SLO AJ5 STORE ZER0 1887 16 1940 1945 + 118 BMI AD1 IF LESS THAN 1945 46 1851 1850 + 119 SLO AJ4 50 ALARM 1850 16 1853 1758 + 120 BMI AD3 1F GRTR THAN 1758 46 1861 1862 + 121 SRT 0004 59 1861 30 0004 1921 + 122 ALO AR7 1921 15 1924 1929 + 123 LDD AD2A MODIFY 1929 69 1835 1838 + 124 SDA AD2 SHIFT 1838 22 1991 1971 + 125 RAL ARTHM 1971 65 1824 1930 + 126 SLT 0002 AD2 1930 35 0002 1991 + 127 AD1 RAL 8003 ARTHX STORE ZERO 1851 65 8003 1786 + 128 AD2 SRT 0000 ARTHX SHIFT C0NST 1991 30 0000 1786 + 129 AD2A SRT 0000 ARTHX 1835 30 0000 1786 + 130 AD3 LDD ARTHX 3031 FIX ALARM 1862 69 1786 3031 + 131 AG3 LDD ARTHX 3061 DIVIDE ALARM 1846 69 1786 3061 + 132 AI11 LDD ARTHX 3081 SCALE ALARM 1785 69 1786 3081 + 133 AI11A HLT 1081 AI6 1752 01 1081 1942 + 134 AG2 49 0000 0000 1876 49 0000 0000 + 135 AJ1 48 0000 0000 1820 48 0000 0000 + 136 AJ2 00 0000 0001 1903 00 0000 0001 + 137 AJ3 00 0000 0059 1848 00 0000 0059 + 138 AJ4 10 0000 0000 1853 10 0000 0000 + 139 AJ5 50 0000 0000 1940 50 0000 0000 + 140 E00AQ STD J0001 AQ1 READ 1974 24 1977 1880 + 141 AQ1 RD1 1976 AQ3 1880 70 1976 1898 + 142 AQ3 RAM P0001 AQ3A 1898 67 1951 1806 + 143 AQ3B RAM P0001 AQ3A CHECK FOR 1892 67 1951 1806 + 144 AQ3A NZE AQ8 LAST WORD 1806 45 1860 1837 + 145 LDD AQ5 AQ4 ON CARD 1860 69 1863 1816 + 146 AQ4 STD ACC4 1816 24 1870 1873 + 147 AUP 8003 READ IN 1873 10 8003 1931 + 148 SRT 0004 LABEL FOR 1931 30 0004 1941 + 149 SIA ACC5 PRESENT 1941 23 1795 1948 + 150 SLO 8001 VARIABLE 1948 16 8001 1856 + 151 ALO 8002 GET I Y 0R C 1856 15 1809 8002 + 152 RAU 0000 ADDRESS FROM 1809 60 0000 1987 was RAU A000 - 00 0000 0000 + 153 AUP ACC5 ABCON DICT 1987 10 1795 1949 + 154 SLT 0004 ACC4 GENERATE 1949 35 0004 1870 + 155 AQ5 AUP AQ7 1NSTRUCTION 1863 10 1866 1857 + 156 ALO P0010 1857 15 1960 1965 + 157 ALO 8002 GET AND 1965 15 1968 8002 + 158 LDD P0002 8003 STORE WORD 1968 69 1952 8003 + 159 AQ7 STD 0000 1866 24 0000 1907 + 160 RAL P0010 INCREMENT 1907 65 1960 1915 + 161 ALO AQ9 WORD COUNT 1915 15 1918 1854 + 162 STL P0010 1854 20 1960 1963 + 163 ALO AQ3B 8002 1963 15 1892 8002 + 164 AQ8 RAL P0001 CHECK FOR 1837 65 1951 1765 + 165 BMI J0001 AQ1 LAST CARD 1765 46 1977 1880 + 166 E00AR STD P0005 PUNCH 0UT 1801 24 1955 1908 + 167 STU J0003 1908 21 1979 1935 + 168 SIA P0008 STORE STMNT 1935 23 1958 1912 + 169 STU J0004 NUMBER 1912 21 1980 1886 + 170 SDA P0004 STORE WORD 1886 22 1954 1909 + 171 SLO 8001 COUNT 1909 16 8001 1917 + 172 NZE AR10 AR9 TEST ZERO 1917 45 1920 1872 + 173 AR10 STU J0005 STMT NUMBER 1920 21 1981 1814 + 174 STD J0006 SET PUNCH 1814 24 1982 1972 + 175 STD J0007 BAND TO 1972 24 1983 1864 + 176 STD J0008 ZEROES 1864 24 1984 1888 + 177 STD P0010 AR3 SET COUNTER 1888 24 1960 1913 + 178 AR3 RAL P0004 1913 65 1954 1910 + 179 SLO AR7 1910 16 1924 1936 + 180 BMI AR8 TEST WORD 1936 46 1994 1992 + 181 STL P0004 AR4 COUNT 1992 20 1954 1865 + 182 AR4 ALO 8002 GET WORD 1865 15 1868 8002 + 183 RAL P0000 LABEL FROM 1868 65 1950 1914 + 184 AUP 8003 PUNCH CONSTS 1914 10 8003 1922 + 185 SLT 0001 1922 35 0001 1938 + 186 SDA P0007 MODIFY LABEL 1938 22 1957 1961 + 187 SLO 8001 1961 16 8001 1919 + 188 SRT 0001 1919 30 0001 1926 + 189 ALO P0007 1926 15 1957 1962 + 190 SLT 0004 INSERT STMNT 1962 35 0004 1923 + 191 ALO P0008 NUMBER 1923 15 1958 1964 + 192 AUP P0010 1964 10 1960 1916 + 193 AUP 8003 1916 10 1969 8003 + 194 STL J0001 STORE LABEL 1969 20 1977 1988 + 195 RAL 8002 FOR PUNCHING 1988 65 8002 1900 + 196 LDD AQ4 MODIFY LABEL 1900 69 1906 1816 + 197 AUP AR6 INTO DRUM 1906 10 1966 1934 + 198 ALO P0010 LOC IN READ 1934 15 1960 1967 + 199 ALO 8003 GET WORD 1967 15 1970 8003 + 200 STD J0002 STORE IN 1970 24 1978 1993 + 201 RAL P0010 PUNCH BAND 1993 65 1960 1815 + 202 ALO AQ9 1815 15 1918 1973 + 203 STL P0010 AR3 1973 20 1960 1913 + 204 AR6 LDD 0000 8002 1966 69 0000 8002 + 205 AR7 00 0001 0000 1924 00 0001 0000 + 206 AR8 PCH J0001 P0005 PUNCH 1994 71 1977 1955 + 207 AR9 RAL 8000 IF STMT NMBR 1872 65 8000 1937 + 208 BMI AR10 P0005 ZRO PCH ONLY 1937 46 1920 1955 + 209 AQ9 00 0002 0000 IF 8000 NEG 1918 00 0002 0000 + 210 J0010 80 0000 8800 CONTROL CNST 1986 80 0000 8800 + 211 E00AL STD ARTHY 1654 24 1808 1732 + 212 STL ARTHH 1732 20 1788 1694 + 213 RAL ACC AL17A IS POWER 1694 65 0000 1709 + 214 AL17A STD ACC4 TWO 1709 24 1870 1723 + 215 STD ARTHX IF SO 1723 24 1786 1739 + 216 SLO AL16 MULTIPLY 1739 16 1686 1692 + 217 NZE AL18 1692 45 1731 1751 + 218 RAL ARTHH 1751 65 1788 1645 + 219 STD ACC 1645 24 0000 1655 + 220 LDD ARTHY E00AJ 1655 69 1808 1832 + 221 AL18 RAL ARTHH AL17 1731 65 1788 1693 + 222 AL17 SLT 0008 1693 35 0008 1661 + 223 SLO 8002 1661 16 8002 1720 + 224 SLT 0002 Q EQUALS 1720 35 0002 1677 + 225 ALO 8001 MANTISSA 1677 15 8001 1690 + 226 STU ARTHF OF ARGUMENT 1690 21 1772 1675 + 227 RAM 8002 1675 67 8002 1683 + 228 SLO AL1 STORE EXPNNT 1683 16 1736 1691 + 229 SLT 0002 OF ARGMNT 1691 35 0002 1698 + 230 STU ARTHE 1698 21 1902 1706 + 231 RAL AL2 MANTISSA OF 1706 65 1660 1666 + 232 STL ARTHM Z IS ONE 1666 20 1824 1678 + 233 RAL AL1 1678 65 1736 1695 + 234 SLT 0002 EXP OF Z IS 1695 35 0002 1702 + 235 STU ARTHG AL3 50 1702 21 1794 1747 + 236 AL3 RAU ACC K IS GRTST 1747 60 0000 1708 + 237 MPY AL1 INTEGER IN 1708 19 1736 1738 + 238 STU ACC K OVER TWO 1738 21 0000 1658 + 239 RAL 8002 IS REMAINDER 1658 65 8002 1667 + 240 NZE AL4 ZER0 1667 45 1670 1646 + 241 RAU ARTHM IF NOT SET Z 1670 60 1824 1729 + 242 LDD AL5 EQUALS TO 1729 69 1682 1737 + 243 ALO ARTHG Z TIMES Q 1682 15 1794 1715 + 244 STL ARTHG VIA 1715 20 1794 1699 + 245 RAL ARTHD SUBROUTINE 1699 65 1665 1669 + 246 STL ARTHM 1669 20 1824 1638 + 247 NZE AL4 AL20 1638 45 1646 1741 + 248 AL4 RAU ACC IF K NONZERO 1646 60 0000 1712 + 249 NZU AL7 Q EQUALS 1712 44 1668 1721 + 250 RAU ARTHF 1668 60 1772 1679 + 251 LDD AL5 VIA SUBRTNE 1679 69 1684 1737 + 252 ALO ARTHE 1684 15 1902 1714 + 253 STL ARTHE 1714 20 1902 1662 + 254 RAL ARTHD 1662 65 1665 1719 + 255 STL ARTHF AL3 1719 20 1772 1747 + 256 AL7 RAU ARTHG SET EXPONNTS 1721 60 1794 1700 + 257 SRT 0002 ARTHS 1700 30 0002 1663 + 258 NZU AI11 EXP OVERSCAL 1663 44 1785 1722 + 259 STL ARTHE 1722 20 1902 1664 + 260 STU ARTHF 1664 21 1772 1671 + 261 RAU ARTHM 1671 60 1824 1680 + 262 SRT 0001 AL20 1680 30 0001 1741 + 263 AL20 LDD AL8 1741 69 1716 1724 + 264 STD ARTHX ARTHS 1724 24 1786 1762 + 265 AL8 RAL ACC4 1716 65 1870 1648 + 266 BMI AL10 1648 46 1701 1743 + 267 RAL ACC ARTHY 1743 65 0000 1808 + 268 AL10 RAL ACC Z EQUALS ONE 1701 65 0000 1672 + 269 NZE AL12 OVER Z IF 1672 45 1676 1681 + 270 RAL AL11 K NEG AND Z 1676 65 1685 1649 + 271 LDD ARTHY E00AG NON ZERO 1649 69 1808 1830 + 272 AL12 LDD ARTHY 3111 ALARM IF ZRO 1681 69 1808 3111 + 273 AL5 STD ARTHX 1737 24 1786 1652 + 274 MPY ARTHF 1652 19 1772 1673 + 275 SRT 0009 1673 30 0009 1644 + 276 NZU AL14 1644 44 1650 1639 + 277 STL ARTHD 1639 20 1665 1640 + 278 RAL 8003 AL15 1640 65 8003 1641 + 279 AL15 ALO ARTHE ARTHX 1641 15 1902 1786 + 280 AL14 SRT 0001 1650 30 0001 1643 + 281 STL ARTHD 1643 20 1665 1642 + 282 RAL AJ2 AL15 1642 65 1903 1641 + 283 AL1 50 0000 0000 1736 50 0000 0000 + 284 AL2 10 0000 0000 1660 10 0000 0000 + 285 AL11 10 0000 0050 1685 10 0000 0050 + 286 AL16 00 0000 0002 1686 00 0000 0002 + 287 AJ2 00 0000 0001 1903 00 0000 0001 + 288 E00AN STD ARTHY POWER 1651 24 1808 1687 + 289 LDD ACC FLOAT FIX 1687 69 0000 1674 + 290 STD ARTHH REVERSE 1674 24 1788 1745 + 291 STL ACC AL17A 1745 20 0000 1709 + 292 E00AK STD ARTHY POWER FIXFIX 1704 24 1808 1711 + 293 STL ARTHG AK1 Q IS ARGMNT 1711 20 1794 1647 + 294 AK1 RAM ACC K EQUALS 1647 67 0000 1705 + 295 STL ARTHF ABVAL POWER 1705 20 1772 1725 + 296 RAL AJ2 Z EQUALS 1725 65 1903 1707 + 297 STL ARTHH AK3 ONE 1707 20 1788 1718 + 298 AK3 RAU ARTHF K IS GTST 1718 60 1772 1727 + 299 MPY AK4 INTGR IN 1727 19 1730 1717 + 300 STU ARTHF K OVER TWO 1717 21 1772 1726 + 301 RAL 8002 IS REMAINDER 1726 65 8002 1735 + 302 NZE AK5 ZERO 1735 45 1734 1742 + 303 RAU ARTHH IF NOT Z IS 1734 60 1788 1688 + 304 MPY ARTHG Z TIMES Q 1688 19 1794 1733 + 305 STL ARTHH AK5 1733 20 1788 1742 + 306 AK5 RAU ARTHF 1742 60 1772 1728 + 307 NZU AK6 1S K ZERO 1728 44 1740 1746 + 308 RAU ARTHG IF NOT 1740 60 1794 1749 + 309 MPY 8001 Q EQUALS 1749 19 8001 1689 + 310 STL ARTHG AK3 Q SQUARED 1689 20 1794 1718 + 311 AK6 RAU ACC IS POWER NEG 1746 60 0000 1656 + 312 BMI AK7 IF SO IS Z 1656 46 1659 1713 + 313 RAM ARTHH ZERO 1659 67 1788 1744 + 314 NZE AK8 IF NOT IS Z 1744 45 1748 1750 + 315 SLO AJ2 ONE 1748 16 1903 1657 + 316 NZE AK10 AK7 1657 45 1710 1713 + 317 AK7 RAL ARTHH ARTHY EXHIBIT Z 1713 65 1788 1808 + 318 AK10 RAL 8003 ARTHY 1710 65 8003 1808 + 319 AK8 LDD ARTHY 3101 ALARM 1750 69 1808 3101 + 320 AK4 50 0000 0000 1730 50 0000 0000 + 321 AJ2 00 0000 0001 1903 00 0000 0001 + 322 E00AM STD ARTHY INTERCHGE 1653 24 1808 1696 + 323 LDD ACC ACC AND 1696 69 0000 1703 + 324 STD ARTHG LOWER 1703 24 1794 1697 + 325 STL ACC AK1 THEN E00AK 1697 20 0000 1647 + 326 1976 RAM 1951 1976 67 1951 1623 + 327 AUP 8003 1623 10 8003 1632 + 328 SLT 0004 1632 35 0004 1624 + 329 SDA P0009 1624 22 1959 1626 + 330 SRT 0004 1626 30 0004 1637 + 331 LDD AQ4 1637 69 1627 1816 + 332 RAL 8003 1627 65 8003 1636 + 333 AUP P0009 1636 10 1959 1633 + 334 ALO 8001 1633 15 8001 1631 + 335 AUP AQ9B 1631 10 1625 1628 + 336 ALO AQ10 AQ11 1628 15 1634 1622 + 337 AQ11 SUP AQ9B 1622 11 1625 1630 + 338 NZU AQ8 1630 44 1635 1837 + 339 AUP 8001 1635 10 8001 1621 + 340 SUP AR7 1621 11 1924 1629 + 341 SLO 8001 8003 1629 16 8001 8003 + 342 AQ9B LDD 1952 8002 1625 69 1952 8002 + 343 AQ10 STD 0000 AQ11 1634 24 0000 1622 + 344 E00AC STD ACC6 EXPONENTIAL 1605 24 1858 1611 + 345 NZE AC5 IS ARGUMENT 1611 45 1615 1504 + 346 SLT 0008 ZERO 1615 35 0008 1583 + 347 STU ARTHH IF NOT LET 1583 21 1788 1592 + 348 RSM 8002 N BE MANTSA 1592 68 8002 1601 + 349 ALO AC3 X BE POWER 1601 15 1604 1609 + 350 BMI AC4 IS X GRTR 1609 46 1513 1613 + 351 SLT 0001 THAN TWO 1613 35 0001 1619 + 352 NZU AC5 OR LESS THAN 1619 44 1504 1574 + 353 SRT 0005 MINUS EIGHT 1574 30 0005 1587 + 354 ALO AC6 IF X WITHIN 1587 15 1590 1595 + 355 STL ARTHD BOUNDS GEN 1595 20 1665 1618 + 356 RAU ARTHH INT AND 1618 60 1788 1593 + 357 SRT 0006 ARTHD FRACT PARTS 1593 30 0006 1665 + 358 AC3 51 0000 0000 OF ARGUMENT 1604 51 0000 0000 + 359 AC6 SRT 0000 IS ARG NEG 1590 30 0000 1584 + 360 BMI AC8 1F SO INT IS 1584 46 1589 1602 + 361 STU ARTHD AC1 INT MINUS 1 1602 21 1665 1585 + 362 AC8 SUP AJ2 AND FRACT IS 1589 11 1903 1607 + 363 STU ARTHD FRACT PLUS 1 1607 21 1665 1568 + 364 RAL 8002 1568 65 8002 1577 + 365 ALO AC2 AC1 1577 15 1580 1585 + 366 AC2 99 9999 9999 1580 99 9999 9999 + 367 AC1 STL ARTHH 1585 20 1788 1594 + 368 RAU 8002 1594 60 8002 1603 + 369 MPY AC18 GENERATE 1603 19 1606 1608 + 370 RAU 8003 1608 60 8003 1616 + 371 AUP AC17 POLYNOMIAL 1616 10 1620 1586 + 372 MPY ARTHH 1586 19 1788 1591 + 373 RAU 8003 APPROXIM 1591 60 8003 1561 + 374 AUP AC16 ATION 1561 10 1566 1582 + 375 MPY ARTHH 1582 19 1788 1596 + 376 RAU 8003 FOR 1596 60 8003 1612 + 377 AUP AC15 1612 10 1617 1578 + 378 MPY ARTHH EXPONENTIAL 1578 19 1788 1550 + 379 RAU 8003 1550 60 8003 1614 + 380 AUP AC14 1614 10 1567 1579 + 381 MPY ARTHH 1579 19 1788 1598 + 382 RAU 8003 1598 60 8003 1555 + 383 AUP AC13 1555 10 1560 1576 + 384 MPY ARTHH 1576 19 1788 1552 + 385 RAU 8003 1552 60 8003 1559 + 386 AUP AC12 1559 10 1564 1572 + 387 MPY ARTHH SQUARE 1572 19 1788 1573 + 388 RAU 8003 RESULT 1573 60 8003 1600 + 389 AUP AJ4 SCALE AND 1600 10 1853 1571 + 390 MPY 8003 FLOAT THEN 1571 19 8003 1557 + 391 SRT 0001 EXIT 1557 30 0001 1588 + 392 STU ACC2 1588 21 1843 1597 + 393 RAU AC19 1597 60 1551 1556 + 394 AUP ARTHD 1556 10 1665 1933 +A394 BMI ACC6 1933 46 1858 1569 + 395 SRT 0002 1569 30 0002 1575 + 396 NZU AC21 1575 44 1514 1581 + 397 AUP ACC2 1581 10 1843 1599 + 398 SRT 0008 ACC6 1599 30 0008 1858 + 399 AC4 RAL ARTHH 1513 65 1788 1503 + 400 BMI AC21 1503 46 1510 1514 + 401 RAL 8003 ACC6 1510 65 8003 1858 + 402 AC5 RAL AC20 ACC6 ARGMNT ZERO 1504 65 1565 1858 + 403 AC21 LDD ACC6 3021 ALARM STOP 1514 69 1858 3021 + 404 AJ2 00 0000 0001 1903 00 0000 0001 + 405 AJ4 10 0000 0000 1853 10 0000 0000 + 406 AC12 11 5129 2776 1564 11 5129 2776 + 407 AC13 06 6273 0884 1560 06 6273 0884 + 408 AC14 02 5439 3575 1567 02 5439 3575 + 409 AC15 00 7295 1737 1617 00 7295 1737 + 410 AC16 00 1742 1120 1566 00 1742 1120 + 411 AC17 00 0255 4918 1620 00 0255 4918 + 412 AC18 00 0093 2643 1606 00 0093 2643 + 413 AC19 00 0000 0050 1551 00 0000 0050 + 414 AC20 10 0000 0050 1565 10 0000 0050 + 415 E00A8 NZE AB10 IS ARG ZERO 1507 45 1562 1505 + 416 STD ARTHD 1562 24 1665 1570 + 417 BMI AB10 IS ARG NEG 1570 46 1505 1524 + 418 SLT 0008 1524 35 0008 1543 + 419 STL ARTHE STORE POWER 1543 20 1902 1558 + 420 RAU 8003 FORM Z 1558 60 8003 1515 + 421 AUP AB1 EQUAL ARG 1515 10 1518 1523 + 422 STU ACC3 MINUS ROOT 1523 21 1881 1535 + 423 SUP AB2 TEN OVER ARG 1535 11 1553 1563 + 424 DVR ACC3 PLUS ROOT 1563 64 1881 1500 + 425 STL ARTHY TEN 1500 20 1808 1511 + 426 RAU 8002 1511 60 8002 1519 + 427 MPY 8001 Z SQUARE 1519 19 8001 1521 + 428 STU ACC3 1521 21 1881 1536 + 429 RAU 8003 GENERATE 1536 60 8003 1544 + 430 MPY AB7 1544 19 1548 1554 + 431 RAU 8003 POLYNOMIAL 1554 60 8003 1512 + 432 AUP AB6 1512 10 1516 1526 + 433 MPY ACC3 APPROXIMATN 1526 19 1881 1531 + 434 RAU 8003 1531 60 8003 1540 + 435 AUP AB5 1540 10 1549 1527 + 436 MPY ACC3 1527 19 1881 1538 + 437 RAU 8003 1538 60 8003 1502 + 438 AUP AB4 1502 10 1610 1528 + 439 MPY ACC3 1528 19 1881 1533 + 440 RAU 8003 1533 60 8003 1541 + 441 AUP AB3 1541 10 1545 1501 + 442 MPY ARTHY 1501 19 1808 1508 + 443 RAL 8003 1508 65 8003 1517 + 444 ALO AB8 1517 15 1520 1525 + 445 SRT 0002 1525 30 0002 1532 + 446 ALO ARTHE ADD POWER 1532 15 1902 1509 + 447 SLO AB8 1509 16 1520 1529 + 448 SRD 0002 ROUND 1529 31 0002 1537 + 449 RAU 8002 1537 60 8002 1546 + 450 SCT 0000 NORMALIZE 1546 36 0000 1522 + 451 BOV AB12 1522 47 1506 1530 + 452 BMI AB13 1530 46 1534 1539 + 453 SUP AB9 AB11 ADJUST 1534 11 1542 1547 + 454 AB11 SUP 8002 AB12 POWER 1547 11 8002 1506 + 455 AB12 RAL 8003 ARTHD 1506 65 8003 1665 + 456 AB13 AUP AB9 AB11 1539 10 1542 1547 + 457 AB10 LDD ARTHD 3011 ALARM 1505 69 1665 3011 + 458 AB1 00 3162 2780 1518 00 3162 2780 + 459 AB2 00 6324 5560 1553 00 6324 5560 + 460 AB3 86 8591 7180 1545 86 8591 7180 + 461 AB4 28 9335 5240 1610 28 9335 5240 + 462 AB5 17 7522 0710 1549 17 7522 0710 + 463 AB6 09 4376 4760 1516 09 4376 4760 + 464 AB7 19 1337 7140 1548 19 1337 7140 + 465 AB8 50 0000 0000 1520 50 0000 0000 + 466 AB9 00 0000 0053 1542 00 0000 0053 + 1 VARS + ARTHX 00 0000 0000 1786 00 0000 0000 + ARTHD 00 0000 0000 1665 00 0000 0000 + ARTHG 00 0000 0000 1794 00 0000 0000 + ARTHF 00 0000 0000 1772 00 0000 0000 + ARTHE 00 0000 0000 1902 00 0000 0000 + ARTHH 00 0000 0000 1788 00 0000 0000 + ARTHM 00 0000 0000 1824 00 0000 0000 + ARTHY 00 0000 0000 1808 00 0000 0000 + ACC 00 0000 0000 0000 00 0000 0000 + ACC1 00 0000 0000 1998 00 0000 0000 + ACC2 00 0000 0000 1843 00 0000 0000 + ACC3 00 0000 0000 1881 00 0000 0000 + ACC4 00 0000 0000 1870 00 0000 0000 + ACC5 00 0000 0000 1795 00 0000 0000 + ACC6 00 0000 0000 1858 00 0000 0000 + J0001 00 0000 0000 1977 00 0000 0000 + J0002 00 0000 0000 1978 00 0000 0000 + J0003 00 0000 0000 1979 00 0000 0000 + J0004 00 0000 0000 1980 00 0000 0000 + J0005 00 0000 0000 1981 00 0000 0000 + J0006 00 0000 0000 1982 00 0000 0000 + J0007 00 0000 0000 1983 00 0000 0000 + J0008 00 0000 0000 1984 00 0000 0000 + P0000 00 0000 0000 1950 00 0000 0000 + P0001 00 0000 0000 1951 00 0000 0000 + P0002 00 0000 0000 1952 00 0000 0000 + P0004 00 0000 0000 1954 00 0000 0000 + P0005 00 0000 0000 1955 00 0000 0000 + P0007 00 0000 0000 1957 00 0000 0000 + P0008 00 0000 0000 1958 00 0000 0000 + P0009 00 0000 0000 1959 00 0000 0000 + P0010 00 0000 0000 1960 00 0000 0000 diff --git a/I650/sw/it_reservation_p1.dck b/I650/sw/it_reservation_p1.dck new file mode 100644 index 00000000..0694b3fc --- /dev/null +++ b/I650/sw/it_reservation_p1.dck @@ -0,0 +1,23 @@ + 5 reservation package r1 + 5 reservation package r1 + 4 laaaa u1999 initial locn + 4 acc u0000 reserve acc + 4 p 1950 reserve for + 3 p1951 1960 punch consts + 4 w 1977 reserve w + 3 w1978 1986 storage band + 3 j1977 1986 punch band + 1 1735 1950 reserve + 1 1961 1976 for + 1 1987 1998 subroutines + 4 e00th 1932 fix entry + 4 e00ae 1928 float to lwr + 4 e00af 1947 float to acc + 4 e00ag 1830 divide entry + 4 e00ai 1833 add entry + 4 e00aj 1832 multiply + 4 e00ao 1882 rev divide + 4 e00aq 1974 read entry + 4 e00ar 1801 punch entry + 1809raua0000 1987 get a0000 + 5 last card of r1 diff --git a/I650/sw/it_reservation_p1_listing.txt b/I650/sw/it_reservation_p1_listing.txt new file mode 100644 index 00000000..5ba2b2be --- /dev/null +++ b/I650/sw/it_reservation_p1_listing.txt @@ -0,0 +1,23 @@ + 5 RESERVATION PACKAGE R1 + 5 RESERVATION PACKAGE R1 + 4 LAAAA U1999 INITIAL LOCN + 4 ACC U0000 RESERVE ACC + 4 P 1950 RESERVE FOR + 3 P1951 1960 PUNCH CONSTS + 4 W 1977 RESERVE W + 3 W1978 1986 STORAGE BAND + 3 J1977 1986 PUNCH BAND + 1 1735 1950 RESERVE + 1 1961 1976 FOR + 1 1987 1998 SUBROUTINES + 4 E00TH 1932 FIX ENTRY + 4 E00AE 1928 FLOAT TO LWR + 4 E00AF 1947 FLOAT TO ACC + 4 E00AG 1830 DIVIDE ENTRY + 4 E00AI 1833 ADD ENTRY + 4 E00AJ 1832 MULTIPLY + 4 E00AO 1882 REV DIVIDE + 4 E00AQ 1974 READ ENTRY + 4 E00AR 1801 PUNCH ENTRY + 1809 RAU A0000 1987 GET A0000 + 5 LAST CARD OF R1 diff --git a/I650/sw/it_reservation_p2.dck b/I650/sw/it_reservation_p2.dck new file mode 100644 index 00000000..7b09d52a --- /dev/null +++ b/I650/sw/it_reservation_p2.dck @@ -0,0 +1,27 @@ + 5 reservation package r2 + 5 reservation package r2 + 4 laaaa u1999 initial locn + 4 acc u0000 reserve acc + 4 p 1950 reserve for + 3 p1951 1960 punch consts + 4 w 1977 reserve w + 3 w1978 1986 storage band + 3 j1977 1986 punch band + 1 1621 1950 reserve + 1 1961 1976 for + 1 1987 1998 subroutines + 4 e00th 1932 fix entry + 4 e00ae 1928 float to lwr + 4 e00af 1947 float to acc + 4 e00ag 1830 divide entry + 4 e00ai 1833 add entry + 4 e00ak 1704 fix fix powr + 4 e00al 1654 flt fix powr + 4 e00am 1653 rv fx fx pwr + 4 e00an 1651 rv fl fx pwr + 4 e00aj 1832 multiply + 4 e00ao 1882 rev divide + 4 e00aq 1974 read entry + 4 e00ar 1801 punch entry + 1809raua0000 1987 get a0000 + 5 last card of r2 diff --git a/I650/sw/it_reservation_p2_listing.txt b/I650/sw/it_reservation_p2_listing.txt new file mode 100644 index 00000000..3bbf766c --- /dev/null +++ b/I650/sw/it_reservation_p2_listing.txt @@ -0,0 +1,27 @@ + 5 RESERVATION PACKAGE R2 + 5 RESERVATION PACKAGE R2 + 4 LAAAA U1999 INITIAL LOCN + 4 ACC U0000 RESERVE ACC + 4 P 1950 RESERVE FOR + 3 P1951 1960 PUNCH CONSTS + 4 W 1977 RESERVE W + 3 W1978 1986 STORAGE BAND + 3 J1977 1986 PUNCH BAND + 1 1621 1950 RESERVE + 1 1961 1976 FOR + 1 1987 1998 SUBROUTINES + 4 E00TH 1932 FIX ENTRY + 4 E00AE 1928 FLOAT TO LWR + 4 E00AF 1947 FLOAT TO ACC + 4 E00AG 1830 DIVIDE ENTRY + 4 E00AI 1833 ADD ENTRY + 4 E00AK 1704 FIX FIX POWR + 4 E00AL 1654 FLT FIX POWR + 4 E00AM 1653 RV FX FX PWR + 4 E00AN 1651 RV FL FX PWR + 4 E00AJ 1832 MULTIPLY + 4 E00AO 1882 REV DIVIDE + 4 E00AQ 1974 READ ENTRY + 4 E00AR 1801 PUNCH ENTRY + 1809 RAU A0000 1987 GET A0000 + 5 LAST CARD OF R2 diff --git a/I650/sw/it_reservation_p3.dck b/I650/sw/it_reservation_p3.dck new file mode 100644 index 00000000..32243190 --- /dev/null +++ b/I650/sw/it_reservation_p3.dck @@ -0,0 +1,25 @@ + 5 reservation package r3 + 5 reservation package r3 + 4 laaaa u1999 initial locn + 4 acc u0000 reserve acc + 4 p 1950 reserve for + 3 p1951 1960 punch consts + 4 w 1977 reserve w + 3 w1978 1986 storage band + 3 j1977 1986 punch band + 1 1613 1950 reserve + 1 1961 1976 for + 1 1987 1998 subroutines + 4 e00ab 1638 logarithm + 4 e00ac 1705 exponential + 4 e00th 1932 fix entry + 4 e00ae 1928 float to lwr + 4 e00af 1947 float to acc + 4 e00ag 1830 divide entry + 4 e00ai 1833 add entry + 4 e00aj 1832 multiply + 4 e00ao 1882 rev divide + 4 e00aq 1974 read entry + 4 e00ar 1801 punch entry + 1809raua0000 1987 get a0000 + 5 last card of r3 diff --git a/I650/sw/it_reservation_p3_listing.txt b/I650/sw/it_reservation_p3_listing.txt new file mode 100644 index 00000000..5edb51de --- /dev/null +++ b/I650/sw/it_reservation_p3_listing.txt @@ -0,0 +1,25 @@ + 5 RESERVATION PACKAGE R3 + 5 RESERVATION PACKAGE R3 + 4 LAAAA U1999 INITIAL LOCN + 4 ACC U0000 RESERVE ACC + 4 P 1950 RESERVE FOR + 3 P1951 1960 PUNCH CONSTS + 4 W 1977 RESERVE W + 3 W1978 1986 STORAGE BAND + 3 J1977 1986 PUNCH BAND + 1 1613 1950 RESERVE + 1 1961 1976 FOR + 1 1987 1998 SUBROUTINES + 4 E00AB 1638 LOGARITHM + 4 E00AC 1705 EXPONENTIAL + 4 E00TH 1932 FIX ENTRY + 4 E00AE 1928 FLOAT TO LWR + 4 E00AF 1947 FLOAT TO ACC + 4 E00AG 1830 DIVIDE ENTRY + 4 E00AI 1833 ADD ENTRY + 4 E00AJ 1832 MULTIPLY + 4 E00AO 1882 REV DIVIDE + 4 E00AQ 1974 READ ENTRY + 4 E00AR 1801 PUNCH ENTRY + 1809 RAU A0000 1987 GET A0000 + 5 LAST CARD OF R3 diff --git a/I650/sw/it_reservation_p4.dck b/I650/sw/it_reservation_p4.dck new file mode 100644 index 00000000..eee2568b --- /dev/null +++ b/I650/sw/it_reservation_p4.dck @@ -0,0 +1,29 @@ + 5 reservation package r4 + 5 reservation package r4 + 4 laaaa u1999 initial locn + 4 acc u0000 reserve acc + 4 p 1950 reserve for + 3 p1951 1960 punch consts + 4 w 1977 reserve w + 3 w1978 1986 storage band + 3 j1977 1986 punch band + 1 1500 1950 reserve + 1 1961 1976 for + 1 1987 1998 subroutines + 4 e00ab 1507 logarithm + 4 e00ac 1605 exponential + 4 e00th 1932 fix entry + 4 e00ae 1928 float to lwr + 4 e00af 1947 float to acc + 4 e00ag 1830 divide entry + 4 e00ai 1833 add entry + 4 e00aj 1832 multiply + 4 e00ak 1704 fix fix powr + 4 e00al 1654 flt fix powr + 4 e00am 1653 rv fx fx pwr + 4 e00an 1651 rv fl fx pwr + 4 e00ao 1882 rev divide + 4 e00aq 1974 read entry + 4 e00ar 1801 punch entry + 1809raua0000 1987 get a0000 + 5 last card of r4 diff --git a/I650/sw/it_reservation_p4_listing.txt b/I650/sw/it_reservation_p4_listing.txt new file mode 100644 index 00000000..a8f57795 --- /dev/null +++ b/I650/sw/it_reservation_p4_listing.txt @@ -0,0 +1,29 @@ + 5 RESERVATION PACKAGE R4 + 5 RESERVATION PACKAGE R4 + 4 LAAAA U1999 INITIAL LOCN + 4 ACC U0000 RESERVE ACC + 4 P 1950 RESERVE FOR + 3 P1951 1960 PUNCH CONSTS + 4 W 1977 RESERVE W + 3 W1978 1986 STORAGE BAND + 3 J1977 1986 PUNCH BAND + 1 1500 1950 RESERVE + 1 1961 1976 FOR + 1 1987 1998 SUBROUTINES + 4 E00AB 1507 LOGARITHM + 4 E00AC 1605 EXPONENTIAL + 4 E00TH 1932 FIX ENTRY + 4 E00AE 1928 FLOAT TO LWR + 4 E00AF 1947 FLOAT TO ACC + 4 E00AG 1830 DIVIDE ENTRY + 4 E00AI 1833 ADD ENTRY + 4 E00AJ 1832 MULTIPLY + 4 E00AK 1704 FIX FIX POWR + 4 E00AL 1654 FLT FIX POWR + 4 E00AM 1653 RV FX FX PWR + 4 E00AN 1651 RV FL FX PWR + 4 E00AO 1882 REV DIVIDE + 4 E00AQ 1974 READ ENTRY + 4 E00AR 1801 PUNCH ENTRY + 1809 RAU A0000 1987 GET A0000 + 5 LAST CARD OF R4 diff --git a/I650/sw/it_run.ini b/I650/sw/it_run.ini new file mode 100644 index 00000000..18ec092c --- /dev/null +++ b/I650/sw/it_run.ini @@ -0,0 +1,175 @@ + +; set console -n log=log.txt +; set debug -n debug.txt +; set debug stdout +; set cpu debug=cmd;data;detail + + +; params: %1 source progrma card deck to compile with it +; %2 input program data card deck (if empty, do not attach input card) +; %3 output program data card deck (if empty, do not attach input card) + +set cpu 2k +att cdp0 -n -q print.txt + +; print IT source program + +echo +carddeck -q print %1 + +; load IT compiler but do not execute it + +echo *** +echo *** Load IT compiler deck into drum +echo *** + +att cdr1 -q -l it_compiler.dck + +d csw 70 1951 3000 +d ar 8000 +go + +echo *** +echo *** Run IT compiler +echo *** + +; Now put source cards in reader and start compiler + +att cdr1 -q %1 +set cdr1 wiring=it + +att cdp1 -n -q deck_out.dck +set cdp1 echo, print, wiring=it + +d csw 70 1999 3000 +d ar 8000 +go + +; check if compilation ok + +if accup=0 goto compile_ok + +echo +echo *** (compilation error code in Upper ACC) +echo + +ex accup +goto end + +:compile_ok + +; Prepare PIT deck (as compiled IT program) +; separate last 10 cards from compilation output deck (called reservation cards) + +carddeck -q split -10 cdp1 deck_soap.dck deck_res.dck +det cdr1 + +; create the pit program deck with +; 1) reservation cards from compilation step +; 2) package used reservation deck +; 3) rest of compilation output + +carddeck -q join deck_res.dck it_reservation_p1.dck deck_soap.dck as deck_pit.dck + +; Load soap deck into drum (1 word per card format), but does not execute it + + +echo *** +echo *** Load soap deck into drum +echo *** + +att cdr1 -q -l soapII.dck + +d csw 7019519999 +d ar 8000 +go + +echo *** +echo *** Apply IT modifications to soap deck +echo *** + +att cdr1 -q -l it_soapII_patch.dck + +d csw 7019519999 +d ar 8000 +go + + +; Now put source cards in reader and start soap assembler + +echo *** +echo *** Assemble PIT deck +echo *** + +att cdr1 deck_pit.dck +set cdr1 wiring=soap + +att cdp1 -n -q deck_out.dck +set cdp1 echo, print, wiring=soap + +d ar 1000 +go + +; Prepare SPIT deck (as assembled PIT program) + +; create the spit program deck with +; 1) package cards +; 2) assembly output + +det cdr1 +det cdp1 + +carddeck -q join it_package_p1.dck deck_out.dck as deck_spit.dck + +; Load deck into drum (1 word per card format), but does not execute it + +echo *** +echo *** Read SPIT deck to run into drum +echo *** + +; Load assembled deck into drum +; -l switch allows to load the symbolic info so debug cmd info will show +; soap source code read from card. + +set cdr1 wiring=8WORD +att cdr1 -l deck_spit.dck + + +d csw 7019519999 +d ar 8000 +go + +; attach input and output data deck + +det cdr1 + +if "%2" == "" goto run1 +att cdr1 -q %2 +set cdr1 wiring=it +:run1 + +if "%3" == "" goto run2 +att cdp1 -n -q %3 +set cdp1 echo, print, wiring=it +:run2 + +; Now execute the loaded deck + +echo *** +echo *** Run program +echo *** + +; set csw to -1 to activate conditional type statement +d csw 0 +d ar 1999 +go + +; clean up + +del deck_pit.dck +del deck_spit.dck +del deck_soap.dck +del deck_res.dck + + +:end diff --git a/I650/sw/it_soapIIA_patch_listing.txt b/I650/sw/it_soapIIA_patch_listing.txt new file mode 100644 index 00000000..9fd108ca --- /dev/null +++ b/I650/sw/it_soapIIA_patch_listing.txt @@ -0,0 +1,164 @@ + + MODIFIED + INSTRUCTIONS + IN IT + SOAP DECK + + AVAILABIKITY 0959 69 1956 8002 LD 1956 8002 + READ CHANGES 1052 69 1952 8002 LD 1952 8002 + WORDS 0992 65 1697 0970 RAL 1697 0970 + CHANGES IN 0970 21 1977 0981 STU 1977 0981 + AVAILABILITY 0981 24 1984 1560 STD 1984 1560 + TABLE PUNCH 1042 24 1983 0990 STD 1983 0990 + OUT ROUTINE 0990 22 1982 1138 STDA 1982 1138 + FOR COMPILER 1138 10 1141 8002 AU 1141 8002 + SOAP DECK 1124 00 0000 8808 NOOP 0000 8808 + 1039 24 ?982 1947 NOOP 0000 0024 + 1141 24 1978 1947 STD 1978 1947 + 1252 10 1983 1152 AU 1983 1152 + CHANGES IN 1990 65 1986 0940 RAL 1986 0940 + PUNCH OUT 0940 92 1950 0900 BRD2 1950 0900 + ROUTINE 0900 35 0004 0918 SLT 0004 0918 + FOR FIVE 0918 65 6002 1526 RAL 6002 1526 + PER CARD 1526 35 0002 1180 SLT 0002 1180 + PUNCH OUT 1180 44 1950 0985 BRNZU 1950 0985 + 0985 95 1242 0950 BRD5 1242 0950 + 1242 66 1983 0908 RSL 1983 0908 + 0950 65 1903 0908 RAL 1903 0908 + 0908 20 0928 1930 STL 0928 1930 + 1930 65 1978 1933 RAL 1978 1933 + 1933 10 1979 1383 AU 1979 1383 + 1303 45 1536 0917 BRNZ 1536 0917 + BLANK CARD 1536 65 1984 0943 RAL 1984 0943 + I E BLANK 0943 35 0002 0901 SLT 0002 0901 + OP AND DATA 0901 21 0934 0926 STU 0934 0926 + CODE CAUSES 0926 20 0933 0938 STL 0933 0938 + TRANSFER 0944 30 0002 0925 SRT 0002 0925 + INSTRUCTION 0925 15 0933 0926 AL 0933 0926 + TO BE 0945 35 0004 0923 SLT 0004 0923 + INSERTED 0923 10 0933 0912 AU 0933 0912 + AND CAUSES 0912 21 0933 0911 STU 0933 0911 + LAST CARD 0911 20 0934 0938 STL 0934 0938 + TO BE 0946 15 0934 0911 AL 0934 0911 + PUNCHED OUT 0947 30 0004 0919 SRT 0004 0919 + 0919 15 0934 0949 AL 0934 0949 + TRANSFER 0949 20 0934 0902 STL 0934 0902 + INSTRUCTION 0902 69 0909 1382 LD 0909 1382 + TRANSFERS 1382 24 0938 0915 STD 0938 0915 + FROM 5 PER 0915 65 0927 1183 RAL 0927 1183 + CARD 0937 24 0908 0902 STD 0908 0902 + LOADING 0906 69 0920 0937 LD 0920 0937 + ROUTINE 1183 15 1522 0910 AL 1522 0910 + INTO 0910 20 0927 1532 STL 0927 1532 + COMPILED 0982 69 0914 0924 LD 0914 0924 + PROGRAM 0924 24 1536 1950 STD 1536 1950 + I E 1999 1532 71 0927 0906 PCH 0927 0906 + 0920 20 0928 1930 STL 0928 1930 + 0914 65 1964 0943 RAL 1964 0943 + 0938 65 1536 0907 RAL 1536 0907 + 0907 15 1522 1428 AL 1522 1428 + 1428 20 1536 0941 STL 1536 0941 + 0941 65 0908 0913 RAL 0908 0913 + + + + 0913 15 1290 0922 AL 1290 0922 + 0922 20 0908 1950 STL 0908 1950 + TYPE 6 CARD 1906 65 1953 1464 RAL 1953 1464 + WITH WORD 1464 16 1167 1225 SL 1167 1225 + ONE 1225 45 1332 1156 BRNZ 1332 1156 + IN DATA 1156 69 1414 1524 LD 1414 1524 + CAUSES ONE 1524 24 1990 8001 STD 1990 8001 + PER CARD 1332 69 1485 1516 LD 1485 1516 + NORNAL SOAP 1516 24 1990 1950 STD 1990 1950 + OUTPUT 1167 76 7565 0000 76 Unknown opcode + ANY OTHER 1414 71 1977 0906 PCH 1977 0906 + TYPE 6 CARD 1405 65 1986 0940 RAL 1986 0940 + RESTORES 0917 69 0921 1429 LD 0921 1429 + FIVE PER 1429 24 1904 1250 STD 1904 1250 + CARD OUTPUT 1250 69 0902 0916 LD 0902 0916 + 0916 24 0938 1992 STD 0938 1992 + 1992 69 1648 1358 LD 1648 1358 + 1358 24 1532 0905 STD 1532 0905 + 0905 65 1568 0935 RAL 1568 0935 + 0935 24 1978 0908 STD 1978 0908 + 1648 69 1913 1267 LD 1913 1267 + 1267 24 1532 1914 STD 1532 1914 + 1914 71 0927 5678 PCH 0927 5678 + 1913 71 0927 1950 PCH 0927 1950 + 0921 00 1998 0000 NOOP 1998 0000 + 1568 00 0000 1999 NOOP 0000 1999 + 0909 65 1536 0907 RAL 1536 0907 + 0936 00 0800 8800 NOOP 0800 8800 + 0927 88 8888 0000 88 Unknown opcode + CHANGED 1948 65 1911 1916 RAL 1911 1916 + STORAGE 1916 10 1931 8002 AU 1931 8002 + TRANSFER 1934 15 1290 1949 AL 1290 1949 + ROUTINE 1949 10 6001 1912 AU 6001 1912 + WITH SOAP 1912 11 1915 1932 SU 1915 1932 + 1932 44 1998 1935 BRNZU 1998 1935 + 1911 69 1951 8003 LD 1951 8003 + 1931 24 1977 1934 STD 1977 1934 + 1915 24 1983 1934 STD 1983 1934 + CHANGED 1186 15 1522 1344 AL 1522 1344 + CONSTANT 1187 15 1522 1006 AL 1522 1006 + LOCATIONS 1292 10 1522 1165 AU 1522 1165 + WITHIN 1344 15 1522 1187 AL 1522 1187 + SOAP 1105 14 1468 1224 DIV 1468 1224 + 1455 14 1468 1410 DIV 1468 1410 + 1088 10 1290 0998 AU 1290 0998 + 1939 15 1290 1647 LD 1984 1772 + 0953 15 1290 1221 AL 1290 1221 + 1056 15 1290 1127 AL 1290 1127 + 1243 10 1290 1322 AU 1290 1322 + 1364 15 1290 1371 AL 1290 1371 + 1947 15 1290 1075 AL 1290 1075 + CHG INIT RTN 1273 24 1586 0906 STD 1586 0906 + 7 PER CARD 1984 70 1985 9999 STD 0000 1998 + LOADING 1985 65 1951 0055 LD 1953 1983 + ROUTINE FOR 0055 69 0008 0054 LD 0008 0054 + IT 0054 22 0008 0058 STDA 0008 0058 + 0058 35 0004 0006 SLT 0004 0006 + 0006 15 8001 0056 AL 8001 0056 + USES 2 0056 22 0009 0052 STDA 0009 0052 + LOCATIONS 0052 65 0057 0053 RAL 0057 0053 + + + 1 TO 9 0053 10 0008 8002 AU 0008 8002 + 51 TO 58 0002 10 0005 0011 AU 0005 0011 + 11 1 84 0011 15 8001 0004 AL 8001 0004 + AND 1985 0004 11 0009 0003 SU 0009 0003 + 0003 44 0007 1984 BRNZU 0007 1984 + 1984 10 8001 8002 STD 0000 1998 + 0008 24 0000 0002 STD 0000 0002 + 0057 69 1952 8003 LD 1952 8003 + 0005 00 0001 0000 NOOP 0001 0000 + 0007 10 6001 8002 AU 6001 8002 + 5 PER CARD 1998 70 1977 3000 RD 1977 3000 + LOADING 1977 65 1958 1786 RAL 1958 1786 + ROUTINE FOR 1786 35 0004 1794 SLT 0004 1794 + IT 1794 69 1980 1795 LD 1980 1795 + SUBROUTINE 1795 22 1980 1824 STDA 1980 1824 + PACKAGES 1824 69 1956 1980 LD 1956 1980 + 1980 24 0000 1808 STD 0000 1808 + 1808 30 0004 1843 SRT 0004 1843 + 1043 10 1957 1870 AU 1957 1870 + USES 28 1870 69 1981 1858 LD 1981 1858 + LOCATIONS 1858 22 1981 1902 STDA 1981 1902 + 1977 TO 1985 1902 69 1955 1981 LD 1955 1981 + 1772 1786 1981 24 0000 1881 STD 0000 1881 + 1788 1794 1881 30 0004 1760 SRT 0004 1760 + 1795 18 8 1760 69 1982 1847 LD 1982 1847 + 1824 1843 1847 22 1982 1978 STDA 1982 1978 + 1858 187 1978 69 1954 1982 LD 1954 1982 + 1881 19 2 1982 24 0000 1946 STD 0000 1946 + 1998 176 1946 30 0004 1823 SRT 0004 1823 + 1823 1847 1623 69 1983 1979 LD 1983 1979 + 1883 1939 1979 22 1983 1985 STDA 1983 1985 + AND 1946 1985 69 1953 1983 LD 1953 1983 + ALL ARE 1983 24 0000 1883 STD 0000 1883 + TEMPORARY 1883 30 0004 1939 SRT 0004 1939 + STORAGE 1939 69 1984 1772 LD 1984 1772 + LOCATIONS 1772 22 1954 1788 STDA 1954 1788 + IN PACKAGES 1788 69 1952 1984 LD 1952 1984 + P1 THRU P4 1984 24 0000 1998 STD 0000 1998 diff --git a/I650/sw/it_soapII_patch.dck b/I650/sw/it_soapII_patch.dck new file mode 100644 index 00000000..07ae452e --- /dev/null +++ b/I650/sw/it_soapII_patch.dck @@ -0,0 +1,16 @@ +6I1954195C 0000240954800?6519861945 +6I1954195C 0000241945800?1515961732 +6I1954195C 0000240961800?6519861945 +6I1954195C 0000240964800?6519861945 +6I1954195C 0000240959800?6519861945 +6I1954195C 0000241991800?0000001002 +6I1954195C 0000241993800?0000001004 +6I1954195C 0000241994800?0000001006 +6I1954195C 0000241995800?6019501405 +6I1954195C 0000241994800?0000001746 +6I1954195C 0000241738800?9000000001 +6I1954195C 0000241744800?0000001006 +6I1954195C 0000241746800?6917381748 +6I1954195C 0000241748800?2410441790 +6I1954195C 0000241790800?6917441794 +6I1954195C 0000241794800?2419941994 diff --git a/I650/sw/it_soapII_patch.txt b/I650/sw/it_soapII_patch.txt new file mode 100644 index 00000000..6b570c61 --- /dev/null +++ b/I650/sw/it_soapII_patch.txt @@ -0,0 +1,44 @@ + +; These are the patches needed to make +; SOAP II to run with IT + +; free address 1993, using 1945 instead +dep 0954 65 1986 1945 +dep 1945 15 1596 1732 +dep 0961 65 1986 1945 +dep 0964 65 1986 1945 +dep 0959 65 1986 1945 + +; set jump address for new redefined card types 1,3,4 and 5 +; that IT needs + +; card type 1 was comment now is blr (reserve block) +; card type 3 was undef now is reg (reserve regional block) +; card type 4 was undef now is syn (reserve symbol) +; card type 5 was undef now is comment + +dep 1991 00 0000 1002 +dep 1993 00 0000 1004 +dep 1994 00 0000 1006 +dep 1995 60 1950 1405 + +; make first card type 4 to define region u0001 9999 (but not reserved) +; use free addresses at 1738, 1744, 1746, 1748, 1790, 1794, 1795, 1796, 1798 + +; set card type 4 to jump to 1738 to store 90 0000 0001 in 1044 and reset +; 1994 to value 00 0000 1006 +dep 1994 00 0000 1746 + +; consts: regu, card4 +dep 1738 90 0000 0001 +dep 1744 00 0000 1006 + +; ldd regu +; std 1044 +; ldd card4 +; std 1994 1994 +dep 1746 69 1738 1748 +dep 1748 24 1044 1790 +dep 1790 69 1744 1794 +dep 1794 24 1994 1994 + diff --git a/I650/sw/it_subr_cos_listing.txt b/I650/sw/it_subr_cos_listing.txt new file mode 100644 index 00000000..eb473489 --- /dev/null +++ b/I650/sw/it_subr_cos_listing.txt @@ -0,0 +1,80 @@ + 5 SUBROUTINE 21 COSINE + E00AV STO ARTHX BEGIN CISINE + SLT 0008 ARGUMENT + STU ARTHF ALARM IF PWR + RSM 8002 OVERSCALE + ALO AV1 COSX EQUALS + BMI AV2 ONE IF PWR + SLO AV3 UNDERSCALE + BMI AV4 + SRT 0004 + ALO AV5 + STL AV6 + RAU ARTHF FORM + MPY AV7 AV6 FRACTIONAL + AV6 HLT AV6 AV23 AND INTGRL + AV23 STL ARTHG PARTS + RAU 8003 + MPY AV8 FORM S AS + STL ARTHE ONE MINUS + RSM ARTHG TWICE ABVAL + SML 8001 OF FRACTNL + ALO AV9 PART + RAU 8002 + STU ARTHF + MPY 8001 FORM SINE + STU ARTHG + RAU AV16 POLYNOMIAL + MPY ARTHG APPROXIMATOR + RAU 8003 + AUP AV15 + MPY AR7HG + RAU 8003 + AUP AV14 + MPY ARTHG + RAU 8003 + AUP AV13 + MPY ARTHG + SRT 0001 + RAU 8003 + AUP AV12 EQUALS ONE + MPY ARTHF + SCT 0000 + BOV AV19 + STL AR7HF + RAL 8003 ROUND + SRT 0002 AND + STL ARTHG ADJUST + RSU ARTHF POWER + SRT 0002 + BMI AV25 + SUP 8003 + ALO AV8 AV24 + AV24 AUP ARTHG + SLT 0002 AV22 + AV22 STU ARTHF DETERMINE + RAU ARTHE SIGN OF + NZU AV20 RESULT + AV20 RSL ARTHF ARTHX + AV25 RAL ARTHF ARTHX + SUP 8003 + SLO AV8 AV24 + AV2 RAL ARTHE OVERSCALE + LDD ARTHX 3211 DISPLAY + AV4 RAL AV21 ARTHX COSX IS ONE + AV19 RAL 8002 COSX IS ZERO + SLO 8001 ARTHX + AV17 RAU AV21 AV22 COSX IS PLUS + AV1 57 0000 0000 OR MINUS 1 + AV3 11 0000 0000 + AV5 SRD 0011 AV23 + AV7 31 8309 8862 + AV8 50 0000 0000 + AV9 99 9999 9999 + AV12 15 7079 6318 + AV13 - 64 5963 7111 + AV14 07 9689 6793 + AV15 - 00 4673 7656 + AV16 00 0151 4842 + AV21 10 0000 0050 + 5 LAST CARD SUBROUTINE 21 diff --git a/I650/sw/it_subr_sin_listing.txt b/I650/sw/it_subr_sin_listing.txt new file mode 100644 index 00000000..00b09cde --- /dev/null +++ b/I650/sw/it_subr_sin_listing.txt @@ -0,0 +1,87 @@ + 5 SUBROUTINE 22 SINE + E00AW STD ARTHX BEGIN SINE + STL ARTHE SUBROUTINE + SLT 0008 STORE + STU ARTHF ARGUMENT + RSM 8002 IS POWER + ALO AW1 OVERSCALE + BMI AW2 IF SO ALARM + SLO AW3 IS P0WER + BMI AW4 UNDERSCALE + SRT 0004 IF SO SINX + ALO AW5 EQUALS X + STL AW6 + RAU ARTHF F0RM FRACTL + MPY AW7 AW6 PART + AW6 HLT AW6 AW23 + AW23 STL ARTHG + RAU 8003 IS INTGRAL + MPY AW8 PAR7 0DD + RAL 8002 + NZE AW9 IF SO FLIP + RSL ARTHE SGN OF X + STL ARTHE AW9 + AW9 RSM ARTHG FORM S AS 2 + SML 8001 MINUS 2 ALPH + NZU AW10 IF 2 ALPH + AUP AW11 GRTG 1 OR 2 + NZU AW17 AW10 ALPH OTHER + AU10 RAM 8002 WISE + STL ARTHF FORM SINE + RAU 8002 POLYNOMIAL + MPY 8001 + STU ARTHG APPROXIMATOR + RAU AW16 + MPY ARTHG + RAU 8003 + AUP AW15 + MPY ARTHG + RAU 8003 + AUP AW14 + MPY ARTHG + RAU 8003 + AUP AW13 + MPY ARTHG + SRT 0001 + RAU 8003 + AUP AW12 + MPY ARTHF + SCT 0000 + BOV AW19 + STL ARTHF SINE TO 0 + RAL 8003 + SRT 0002 ROUND + STL ARTHG + RSU ARTHF + SRT 0002 ADJUST POWER + BMI AW25 + SUP 8003 + ALO AW8 AW24 + AW24 AUP ARTHG + SLT 0002 AW22 + AW25 SUP 8003 + SLO AW8 AW24 + AW22 STU ARTHF DETERMINE + RAL ARTHE PROPER SIGN + BMI AW20 OF RESULT + RSL ARTHF ARTHX EXIT + AW20 RAL ARTHF ARTHX EXIT + AW4 RAL ARTHE ARTHX SINX IS X + AW17 RAU AW21 AW22 SINX IS ONE + AW19 RAL 8002 SINX IS ZERO + SLO 8001 ARTHX + AW1 57 0000 0000 CONSTANTS + AW3 09 0000 0000 + AW5 SRT 0009 AW23 + AW7 31 8309 8862 + AW8 50 0000 0000 + AW11 00 0000 0002 + AW12 15 7079 6318 + AW13 - 64 5963 7111 + AW14 07 9689 6793 + AW15 - 00 4673 7656 + AW16 00 0151 4842 + AW21 10 0000 0050 + AW2 RAL ARTHE ALARM FOR + LDD ARTHX 3221 SINE + 5 LAST CARD SUBROUTINE 22 diff --git a/I650/sw/it_subr_sqrt_listing.txt b/I650/sw/it_subr_sqrt_listing.txt new file mode 100644 index 00000000..94095b13 --- /dev/null +++ b/I650/sw/it_subr_sqrt_listing.txt @@ -0,0 +1,62 @@ + 5 SUBROUTINE 20 SQUARE RT + E00AU STD ARTHX SQUARE ROOT + BMI AU1 ALARM IF NEG + SLT 0008 + NZU AU2 TEST FOR ZRO + STL ARTHF BREAK UP EXP + RAL 8003 AND MANTISSA + SLT 0002 CALCULATE + STL ARTHE INITIAL X + AUP AU8 AU3 + AU4 RAU ARTHE CALCULATE + DVR ARTHG NEXT X + SLO 8001 VALUE + NZE AU5 + BMI AU5 TEST FOR END + ALO 8001 + ALO 8001 AU3 + AU3 DVR AU9 RECYCLE + STL ARTHG AU4 + AU5 RAL ARTHF MODIFY + ALO AU10 EXPONENT + SRT 0008 + DIV AU9 + ALO 8003 + STL ARTHF TEST EVEN OR + NZU AU6 ODD EXP + RAU ARTHG EXP ODD + SRT 0001 + MPY AU11 MPY BY SQRT + SRD 0010 AU7 OF 10 + AU7 SLT 0002 + ALO ARTHF ARTHX GO TO EXIT + AU6 RAL ARTHG EXP EVEN + SRD 0002 AU7 + AU2 RAL 8003 ARTHX STORE ZERO + AU1 LDD ARTHX 3201 SQRT ALARM + AU8 00 0000 0001 CONSTANTS + AU9 00 0000 0002 + AU10 49 0000 0000 + AU11 03 1622 7766 + 5 LAST CARD SUBROUTINE 20 + + + + + + + + + + + + + + + + + + + ? + +? ? ???? diff --git a/I650/sw/soap_and_run.ini b/I650/sw/soap_and_run.ini index ea845757..fbdca49b 100644 --- a/I650/sw/soap_and_run.ini +++ b/I650/sw/soap_and_run.ini @@ -11,19 +11,19 @@ set cpu 2k -; Load SOAP deck into core (1 word per card format), but does not execute it +; Load soap deck into drum (1 word per card format), but does not execute it -att cdr1 -q soapII.dck +att cdr1 -q -l soapII.dck echo *** -echo *** load soap deck into drum +echo *** Load soap deck into drum echo *** d csw 7019519999 d ar 8000 go -; now put source cards in reader and start SOAP assembler +; Now put source cards in reader and start soap assembler att cdr1 %1 set cdr1 wiring=soap @@ -33,7 +33,7 @@ set cdp1 echo, print, wiring=soap att cdp0 -n -q print.txt echo *** -echo *** run soap +echo *** Assemble source deck echo *** d ar 1000 @@ -41,18 +41,20 @@ go if "%2" == "" goto end -; load assembled deck into core +; Load assembled deck into drum +; -l switch allows to load the symbolic info so debug cmd info will show +; soap source code read from card. det cdp1 set cdr1 wiring=8WORD -att cdr1 deck_out.dck +att cdr1 -l deck_out.dck att cdp1 -n -q deck_out_run.dck set cdp1 echo, print, wiring=8WORD echo *** -echo *** load assembled program +echo *** Read assembled program deck echo *** d csw 7019519999 @@ -64,11 +66,11 @@ if "%3" == "" goto run att cdr1 %3 -; now execute the loaded deck +; Now execute the loaded deck :run echo *** -echo *** run assembled program +echo *** Run assembled program echo *** d ar %2 diff --git a/doc/i650_doc.doc b/doc/i650_doc.doc index fe8c0952..f5ce12ad 100644 Binary files a/doc/i650_doc.doc and b/doc/i650_doc.doc differ