From 08027162ca0e8bb3f97a22115e91ed2986945a81 Mon Sep 17 00:00:00 2001 From: Roberto Sancho Villa Date: Fri, 15 May 2020 05:57:01 -0700 Subject: [PATCH] I650: Update IBM 650 simulator to Release 4 - Integration with updated sim_card API - Addition of MT (Mag Tape) device - Addition of DSK (Disk) device - Build time simulator test --- .gitattributes | 1 + .travis.yml | 2 +- I650/650_demo_all.ini | 207 + I650/650_test.ini | 48 - I650/i650_cdp.c | 491 ++- I650/i650_cdr.c | 668 ++- I650/i650_cpu.c | 630 ++- I650/i650_defs.h | 117 +- I650/i650_dsk.c | 494 +++ I650/i650_mt.c | 665 +++ I650/i650_sys.c | 264 +- I650/sw/Build_is_from_decks.ini | 3 +- I650/sw/bell/00_readme.txt | 2 + I650/sw/build_fortransit_pack.ini | 11 +- I650/sw/build_soap4_tap_lib.ini | 23 + I650/sw/build_ssoap_ramac_from_decks.ini | 24 + I650/sw/fds/5440.2009_INTERPRETIVE_FDS.crd | Bin 0 -> 14400 bytes I650/sw/fds/example.txt | 63 + I650/sw/fds/load_card.dck | 2 + I650/sw/fortransit/00_readme.txt | 21 +- I650/sw/fortransit/pack.dck | 4 +- I650/sw/i650_demo_all.ini | 205 + I650/sw/it/00_readme.txt | 1 + I650/sw/it/it_package_p4_listing.txt | 2 +- I650/sw/ramac0.dsk | 1 + I650/sw/regional/load_id_card.dck | 1 + .../regional/print_five_field_ctrl_cards.txt | 18 + I650/sw/regional/print_five_field_src.txt | 73 + I650/sw/regional/punch_drum_a_to_b.dck | 18 + I650/sw/regional/punch_eighths_drum.dck | 8 + I650/sw/regional/ra.dck | 30 + I650/sw/regional/ra_starter_card.dck | 1 + I650/sw/run_fds.ini | 33 + I650/sw/run_fortransit.ini | 22 +- I650/sw/run_is.ini | 5 +- I650/sw/run_it.ini | 7 +- I650/sw/run_ra.ini | 78 + I650/sw/run_soap.ini | 3 +- I650/sw/run_soap4.ini | 117 + I650/sw/run_supersoap.ini | 134 + I650/sw/run_supersoap_ramac.ini | 119 + I650/sw/soap/00_readme.txt | 1 + I650/sw/soap/soap4.dck | 1804 +++++++++ I650/sw/soap/soap4_example_lib_routines.txt | 12 + I650/sw/soap/soap4_example_tap.txt | 8 + I650/sw/soap/soap4_lib.txt | 198 + I650/sw/soap/soap4_listing.txt | 2247 +++++++++++ I650/sw/soap/soap4_src.txt | 2248 +++++++++++ I650/sw/soaplib.tap | Bin 0 -> 1096 bytes I650/sw/supersoap/00_readme.txt | 695 ++++ I650/sw/supersoap/build_ssoap_ramac_src.txt | 209 + I650/sw/supersoap/ssoap.txt | 3565 +++++++++++++++++ I650/sw/supersoap/ssoap_calling_card.dck | 1 + I650/sw/supersoap/ssoap_calling_card.txt | 10 + I650/sw/supersoap/ssoap_core.dck | 2021 ++++++++++ I650/sw/supersoap/ssoap_example.txt | 22 + I650/sw/supersoap/ssoap_example_src.txt | 22 + I650/sw/supersoap/ssoap_loader_src.txt | 59 + I650/sw/supersoap/ssoap_main.dck | 1524 +++++++ I650/sw/supersoap/ssoap_main_core_src.txt | 3555 ++++++++++++++++ I650/tests/i650_test.ini | 98 + I650/tests/soap4tap.dck | 13 + I650/tests/ssoapexpl.dck | 22 + I650/tests/testmm.dck | 12 + README.md | 2 + Visual Studio Projects/I650.vcproj | 8 + Visual Studio Projects/Simh.sln | 9 + doc/i650_doc.doc | Bin 428544 -> 502272 bytes makefile | 5 +- 69 files changed, 22547 insertions(+), 439 deletions(-) create mode 100644 I650/650_demo_all.ini delete mode 100644 I650/650_test.ini create mode 100644 I650/i650_dsk.c create mode 100644 I650/i650_mt.c create mode 100644 I650/sw/build_soap4_tap_lib.ini create mode 100644 I650/sw/build_ssoap_ramac_from_decks.ini create mode 100644 I650/sw/fds/5440.2009_INTERPRETIVE_FDS.crd create mode 100644 I650/sw/fds/example.txt create mode 100644 I650/sw/fds/load_card.dck create mode 100644 I650/sw/i650_demo_all.ini create mode 100644 I650/sw/ramac0.dsk create mode 100644 I650/sw/regional/load_id_card.dck create mode 100644 I650/sw/regional/print_five_field_ctrl_cards.txt create mode 100644 I650/sw/regional/print_five_field_src.txt create mode 100644 I650/sw/regional/punch_drum_a_to_b.dck create mode 100644 I650/sw/regional/punch_eighths_drum.dck create mode 100644 I650/sw/regional/ra.dck create mode 100644 I650/sw/regional/ra_starter_card.dck create mode 100644 I650/sw/run_fds.ini create mode 100644 I650/sw/run_ra.ini create mode 100644 I650/sw/run_soap4.ini create mode 100644 I650/sw/run_supersoap.ini create mode 100644 I650/sw/run_supersoap_ramac.ini create mode 100644 I650/sw/soap/soap4.dck create mode 100644 I650/sw/soap/soap4_example_lib_routines.txt create mode 100644 I650/sw/soap/soap4_example_tap.txt create mode 100644 I650/sw/soap/soap4_lib.txt create mode 100644 I650/sw/soap/soap4_listing.txt create mode 100644 I650/sw/soap/soap4_src.txt create mode 100644 I650/sw/soaplib.tap create mode 100644 I650/sw/supersoap/00_readme.txt create mode 100644 I650/sw/supersoap/build_ssoap_ramac_src.txt create mode 100644 I650/sw/supersoap/ssoap.txt create mode 100644 I650/sw/supersoap/ssoap_calling_card.dck create mode 100644 I650/sw/supersoap/ssoap_calling_card.txt create mode 100644 I650/sw/supersoap/ssoap_core.dck create mode 100644 I650/sw/supersoap/ssoap_example.txt create mode 100644 I650/sw/supersoap/ssoap_example_src.txt create mode 100644 I650/sw/supersoap/ssoap_loader_src.txt create mode 100644 I650/sw/supersoap/ssoap_main.dck create mode 100644 I650/sw/supersoap/ssoap_main_core_src.txt create mode 100644 I650/tests/i650_test.ini create mode 100644 I650/tests/soap4tap.dck create mode 100644 I650/tests/ssoapexpl.dck create mode 100644 I650/tests/testmm.dck diff --git a/.gitattributes b/.gitattributes index 50a36092e..cdfc2b2e6 100644 --- a/.gitattributes +++ b/.gitattributes @@ -10,5 +10,6 @@ *.tap binary *.dsk binary *.vhd binary +*.crd binary sim_rev.h export-subst diff --git a/.travis.yml b/.travis.yml index 073efcca4..282102b2a 100644 --- a/.travis.yml +++ b/.travis.yml @@ -10,7 +10,7 @@ env: - SIM="microvax3100m80 vaxstation4000vlc infoserver1000 nova eclipse hp2100 hp3000 i1401 i1620 s3 altair altairz80 gri i7094 ibm1130" - SIM="id16 id32 sds lgp h316 cdc1700 swtp6800mp-a swtp6800mp-a2 tx-0 ssem b5500 isys8010 isys8020 isys8030 isys8024" - SIM="besm6 imds-210 imds-220 imds-225 imds-230 imds-800 imds-810" - - SIM="scelbi 3b2 i701 i704 i7010 i7070 i7080 i7090 sigma uc15" + - SIM="scelbi 3b2 i701 i704 i7010 i7070 i7080 i7090 sigma uc15 i650" sudo: required install: sh -ex .travis/deps.sh script: make $SIM diff --git a/I650/650_demo_all.ini b/I650/650_demo_all.ini new file mode 100644 index 000000000..a810c5125 --- /dev/null +++ b/I650/650_demo_all.ini @@ -0,0 +1,207 @@ + +; demo all .ini scripts + +cd sw + +set console -n log=console.txt +set debug -q stdout +set debug -q -n debug.txt +set cpu debug=cmd;data;detail +set mt debug=cmd;data;detail;exp +set dsk debug=cmd;data;detail;exp + +; uncomment any of them to simulate ibm 650 real speed +; set throttle 11k +; set throttle 55/5 + +echo +echo =========================================================== +echo test build_soap_from_source.ini +echo =========================================================== +echo generates soap assembly listing +echo =========================================================== +echo + +do build_soap_from_source.ini +set env -P "Press Enter to continue . . . " dummy=cont + +echo +echo =========================================================== +echo test run_soap.ini +echo =========================================================== +echo example from manual +echo should print 0100 lines +echo =========================================================== +echo + +do run_soap.ini soap/soap_example_1_src.txt 1000 +set env -P "Press Enter to continue . . . " dummy=cont + +echo +echo =========================================================== +echo test build_soap4_tap_lib.ini +echo =========================================================== +echo generate a library tape, assemble and run a prog that calls it +echo should display 38 0100 up to 38 6600 +echo then assemble example +echo =========================================================== +echo + +; build_soap4_tap_lib.ini calls run_soap4.ini, so no need to test it again +do build_soap4_tap_lib.ini +set env -P "Press Enter to continue . . . " dummy=cont + +echo +echo =========================================================== +echo test build_ssoap_ramac_from_decks.ini +echo =========================================================== +echo builds supersoap on ramac disk, then assemble example prog +echo =========================================================== +echo + +do build_ssoap_ramac_from_decks.ini +set env -P "Press Enter to continue . . . " dummy=cont + +echo +echo =========================================================== +echo test assemble ssoap from source +echo =========================================================== +echo assemble original supersoap source +echo =========================================================== +echo + +do run_supersoap_ramac.ini supersoap/ssoap_main_core_src.txt +set env -P "Press Enter to continue . . . " dummy=cont + +echo +echo =========================================================== +echo test run_fds.ini +echo =========================================================== +echo generates 9 lines (numberes 1-9) with 3 colums of numbers +echo integer (1..9), float (1..9), sqrt (1..9) +echo last line is: 00 0000 0009 50 9000 0000 50 3000 0000 +echo =========================================================== +echo + +do run_fds.ini fds\example.txt +set env -P "Press Enter to continue . . . " dummy=cont + +echo +echo =========================================================== +echo test run_ra.ini +echo =========================================================== +echo regional assembler assembles and run aprog to list on one column 5-word cards +echo listing is one column, words from 0900-0925, some 1960, 0990, +echo more 1960s, 0401-0411. echo last line is: 0411 00 0000 0900 +echo =========================================================== +echo + +do run_ra.ini regional\print_five_field_ctrl_cards.txt regional\print_five_field_src.txt 0900 deck_in.dck +set env -P "Press Enter to continue . . . " dummy=cont + +echo +echo =========================================================== +echo build_is_from_decks.ini +echo =========================================================== +echo build is from source deck +echo =========================================================== +echo + +do build_is_from_decks.ini ntr lbox +set env -P "Press Enter to continue . . . " dummy=cont + +echo +echo =========================================================== +echo test run_is.ini +echo =========================================================== +echo sieve of eratosthenes - print prime numbers < 50 (last one is 47) +echo =========================================================== +echo + +do run_is.ini bell/is_example_1_src.txt +set env -P "Press Enter to continue . . . " dummy=cont + +echo +echo =========================================================== +echo test run_it.ini +echo =========================================================== +echo example from manual +echo should print one line: 200020005 6400000051 100050005 11 +echo =========================================================== +echo + +do run_it.ini it/it_example_1_src.txt it/it_example_1_data.txt +set env -P "Press Enter to continue . . . " dummy=cont + +echo +echo =========================================================== +echo test run_it.ini +echo =========================================================== +echo sieve of eratosthenes - print prime numbers < 50 (last one is 47) +echo =========================================================== +echo + + +do run_it.ini it/it_example_2_src.txt nul +set env -P "Press Enter to continue . . . " dummy=cont + +echo +echo =========================================================== +echo test build_fortransit_pack.ini +echo =========================================================== +echo build fortransit funcion packs +echo =========================================================== +echo + +do build_fortransit_pack.ini +set env -P "Press Enter to continue . . . " dummy=cont + +echo +echo =========================================================== +echo test run_fortransit.ini +echo =========================================================== +echo example from manual - matrix multiplication +echo =========================================================== +echo + +do run_fortransit.ini fortransit/fortransit_example_2_src.txt fortransit/fortransit_example_2_data.txt +set env -P "Press Enter to continue . . . " dummy=cont + +echo +echo =========================================================== +echo test run_fortransit.ini +echo =========================================================== +echo sieve of eratosthenes - print prime numbers < 50 (last one is 47) +echo =========================================================== +echo + +do run_fortransit.ini fortransit/fortransit_example_1_src.txt nul +set env -P "Press Enter to continue . . . " dummy=cont + +echo +echo =========================================================== +echo test run_fortransit.ini +echo =========================================================== +echo test fortran functions (each one identified by a 1111 to 9999) +echo =========================================================== +echo + +do run_fortransit.ini fortransit/fortransit_example_4_src.txt +set env -P "Press Enter to continue . . . " dummy=cont + +echo +echo =========================================================== +echo test run_fortransit.ini +echo =========================================================== +echo list a fortran graphic! +echo =========================================================== +echo + +do run_fortransit.ini fortransit/fortransit_example_5_src.txt +set env -P "Press Enter to continue . . . " dummy=cont + +quit + +goto end + +:end diff --git a/I650/650_test.ini b/I650/650_test.ini deleted file mode 100644 index d245cd949..000000000 --- a/I650/650_test.ini +++ /dev/null @@ -1,48 +0,0 @@ - -cd sw - -; 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 -set env -P "Press Enter to continue . . . " - -do run_soap.ini soap/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 run_is.ini bell/is_example_1_src.txt -set env -P "Press Enter to continue . . . " - -do run_it.ini it/it_example_1_src.txt it/it_example_1_data.txt -set env -P "Press Enter to continue . . . " - -do run_it.ini it/it_example_2_src.txt nul -set env -P "Press Enter to continue . . . " - -do build_fortransit_pack.ini -set env -P "Press Enter to continue . . . " - -do run_fortransit.ini fortransit/fortransit_example_2_src.txt fortransit/fortransit_example_2_data.txt -set env -P "Press Enter to continue . . . " - -do run_fortransit.ini fortransit/fortransit_example_1_src.txt nul -set env -P "Press Enter to continue . . . " - -do run_fortransit.ini fortransit/fortransit_example_4_src.txt -set env -P "Press Enter to continue . . . " - -do run_fortransit.ini fortransit/fortransit_example_5_src.txt -set env -P "Press Enter to continue . . . " - -goto end - -:end diff --git a/I650/i650_cdp.c b/I650/i650_cdp.c index df33e9d9d..3cfa31fd9 100644 --- a/I650/i650_cdp.c +++ b/I650/i650_cdp.c @@ -139,6 +139,7 @@ void encode_lpt_num(t_int64 d, int l) #define wf_nnnnnnnnnNs 5 #define wf_nnnnnnnnnH 6 #define wf_NNNNNNNNNN 7 +#define wf_sNNNNNNNNNN 8 void encode_lpt_word(t_int64 d, int NegZero, int wFormat) { @@ -175,6 +176,9 @@ void encode_lpt_word(t_int64 d, int NegZero, int wFormat) encode_char(0, (n==0) ? '+':'A'+n-1); // hi punch on last digit } else if (wFormat == wf_NNNNNNNNNN) { encode_lpt_num(d,10); + } else if (wFormat == wf_sNNNNNNNNNN) { + encode_char(0, neg ? '-':'+'); + encode_lpt_num(d,10); } else { // default: wFormat == wf_NNNNNNNNNNs encode_lpt_num(d,10); encode_char(0, neg ? '-':' '); @@ -247,7 +251,7 @@ void encode_8word_wiring(void) } } -void encode_soap_wiring(void) +void encode_soap_wiring(int bMultiPass) { // 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 @@ -265,7 +269,8 @@ void encode_soap_wiring(void) // +-+-|-+-+-+-|-+-+-|-| // 1984: | |N N N N| |T| N N N N=Location, T=Type (0 if Blank) // 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 (for non blank type) + // 1986: |a|b|c|d|e|f|g|h|i|j| punch control word + // a = 0/8 (for non blank type) =0 -> bank LOC,OP etc // b = 0/8 (negative) // c = 0/8 (bypass) // d = 0/8 (punch a) =8 -> do not print Loc op da ir @@ -275,22 +280,39 @@ void encode_soap_wiring(void) // h = 0/8 (blank out D) // i = 0/8 (blank out I) // j = 0/8 (blank out OP) - // + // // SOAP printout format // | Sg | Location | OpCode | Data Addr | Tg | Instr Addr | Tg | Remarks | Drum Addr | NN NNNN NNNN[-] (signed word value at this drum addr) // SOAP punch format (load card, 1 word per card) // simulates punching over prepunched 1-word load card - // | word1 | nnnn | 24 addr 800? | NNNNNNNNNN[-] | source soap line + // | word1 | nnnn | 24 addr 800? | NNNNNNNNNN | source soap line // nnnn=card number // addr=drum address where the word is loaded - // NNNNNNNNNN=word to be loaded at addr, with sign + // NNNNNNNNNN=word to be loaded at addr, with sign in last digit + // + // If MultiPass flag set, + // e = 0/8 (punch b) =8 -> punch availability table OR punch 5/CD card + // if word1 start by 01 is 5/CD card + // if word1 start by 00 is an availability card + // + // SOAPIIA 5 word per card (5/CD) punch format + // | word 1 | word 2 | word 3 | word 4 | word 5 | word 6 | word 7 | word 8 | + // | 01 AAAA NNNN | first | second | third | fourth | fifth | location of intructions | + // | instruction | instruction | instruction | instruction | instruction | 1 2 3 | 4 5 | + // AAAA=ident | NNNN NNNN NN|NN NNNN NNNN | + // NNNN=card num + // + // SOAPIIA 5 word per card printout format + // | 01 | AAAA | NNNN | word 1 | word 2 | word 3 | word 4 | word 5 | NNNN | NNNN | NNNN | NNNN | NNNN | + // word1 word2 word3 word4 word5 location + // char loc[6], data_addr[6], inst_addr[6], OpCode[6], Data_Tag[6], Instr_Tag[6], rem1[6], rem2[6]; char pch_word[20]; t_int64 d, instr; int location, CardNum, ty; - int b_non_blank, neg, b_blk_op, b_blk_i, b_blk_d, b_blk_l, b_800X, b_pch_b, b_pch_a, b_bypass; // punch control flags - int i, sv_card_nbuf, n; + int b_non_blank, neg, b_blk_op, b_blk_i, b_blk_d, b_blk_l, b_800X, b_pch_b, b_pch_a, b_bypass, b_5cd; // punch control flags + int i, sv_card_nbuf, n, NegZero; int pat1, pat2; word_to_ascii(loc, 1, 5, IOSync[0]); @@ -319,8 +341,17 @@ void encode_soap_wiring(void) // printf("bits %06d%04d%c ", printfw(IOSync[9])); // to echo the control word of punched card + if ((bMultiPass) && (b_pch_b) && (IOSync[0] / D8 == 01)) { + b_5cd = 1; + } else { + b_5cd = 0; + } + + if ((ty==1) || (ty==2)) b_pch_a=1; // card types 1 or 2 punch non generating code card + // generate card if (b_pch_b) { + // punch 5 words per card format or // punch availability table (pat pseudo-op output) for(i=0;i<8;i++) { sprintf_word(pch_word, IOSync[i], 0, 1); @@ -334,7 +365,6 @@ void encode_soap_wiring(void) encode_pch_str(pch_word); encode_pch_str(" "); // two blank words encode_pch_str(" "); - if (b_non_blank) encode_pch_str("1"); else encode_pch_str(" "); } else { // punch generating code card if (b_800X) { @@ -348,9 +378,9 @@ void encode_soap_wiring(void) encode_pch_str(pch_word); sprintf_word(pch_word, AbsWord(instr) * (neg ? -1:1), ((neg) && (instr == 0)) ? 1:0, 1); encode_pch_str(pch_word); - encode_char(ty == 0 ? ' ' : '0'+ty, 0); } - encode_pch_str(" "); + encode_char(ty == 0 ? ' ' : '0'+ty, 0); + encode_char(neg ? '-' : ' ', 0); sv_card_nbuf = card_nbuf; // save pch bufer current pos encode_pch_str(loc); encode_pch_str(OpCode); encode_pch_str(data_addr); encode_pch_str(Data_Tag); @@ -365,21 +395,50 @@ void encode_soap_wiring(void) // generate printout if (b_pch_b) { - // print availability table (pat pseudo-op output) - for(i=0; i<4; i++) { - d = IOSync[i*2]; + if (b_5cd) { + // print 5 words per card format or + d = IOSync[0]; pat1 = (int) ((d / D4) % D4); pat2 = (int) ( d % D4); - d = IOSync[i*2 + 1]; - encode_lpt_num(pat1, 4); - encode_lpt_spc(2); - encode_lpt_num(d, 10); - encode_lpt_spc(2); - encode_lpt_num(pat2, 4); - encode_lpt_spc(5); + encode_lpt_num(01, 2); // print 01 + encode_lpt_spc(1); + encode_lpt_num(pat1, 4); // print AAAA + encode_lpt_spc(1); + encode_lpt_num(pat2, 4); // print NNNN + encode_lpt_spc(1); + for(i=1;i<=5;i++) { // print 5 words as NNNNNNNNNs + d = IOSync[i]; + NegZero = IOSync_NegativeZeroFlag[i]; + encode_lpt_word(d, NegZero, wf_NNNNNNNNNNs); + } + encode_lpt_spc(1); // print locations of words as NNNN NNNN NNNN NNNN NNNN + d = IOSync[6]; + for(i=1;i<=5;i++) { + n = Shift_Digits(&d, 4); + if (i==3) { + d = IOSync[7]; + n = n + Shift_Digits(&d, 2); + } + encode_lpt_num(n, 4); + encode_lpt_spc(1); + } + } else { + // print availability table (pat pseudo-op output) + for(i=0; i<4; i++) { + d = IOSync[i*2]; + pat1 = (int) ((d / D4) % D4); + pat2 = (int) ( d % D4); + d = IOSync[i*2 + 1]; + encode_lpt_num(pat1, 4); + encode_lpt_spc(2); + encode_lpt_num(d, 10); + encode_lpt_spc(2); + encode_lpt_num(pat2, 4); + encode_lpt_spc(5); + } } } else if ((ty == 1) || (ty == 5)) { - // print coment for card type 1 (SOAP II) or type 5 (SOAP modified for IT) + // print comment 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); @@ -426,6 +485,265 @@ void encode_soap_wiring(void) } } +void encode_supersoap_wiring() +{ + // encode soap card simulating soap control panel wiring for 533 + // storage in output block (one card format) + // +-------------------+ + // Word 9040: | <- Location -> | Alphabetic + // 9041: | <- Data Addr -> | Alphabetic + // 9042: | <- Inst Addr -> | Alphabetic + // +-+-+-|-+-+-|-+-|-+-| + // 9043: | Op Code |DTg|ITg| Alphabetic + // +-+-+-|-+-+-|-+-|-+-| + // 9044: | <- Remarks -> | Alphabetic + // 9045: | <- Remarks -> | Alphabetic + // 9046: |<-Assembled Instr->| + // +-+-|-+-+-+-|-+-+-|-| + // 9047: | |N N N N| |T| N N N N=Location, T=Type (0 if Blank) + // 9048: | n n n n |N N N N| N N N N=Card Number, n n n n = location2 + // 9049: |a| | |d|e| |g| | |j| punch control word + // a =8 -> bank LOC OP etc, =0 -> punch LOC2 LOC1 OP etc =7 -> PAT card + // b + // c =8 -> 8 words + // d =8 -> five words per card + // e =9 -> positive, =8 -> negative + // f + // g =8 -> ??? + // h + // i + // j =4 -> punch 8004 + // + // SOAP printout format + // | Sg | Location | OpCode | Data Addr | Tg | Instr Addr | Tg | Remarks | Drum Addr | NN NNNN NNNN[-] (signed word value at this drum addr) + // SOAP punch format (load card, 1 word per card) + // simulates punching over prepunched 1-word load card + // | word1 | nnnn | 24 addr 800? | NNNNNNNNNN | source soap line + // nnnn=card number + // addr=drum address where the word is loaded + // NNNNNNNNNN=word to be loaded at addr, with sign in last digit + // + // SuperSoap five word per card (FIV) punch format + // | word 1 | word 2 | word 3 | word 4 | word 5 | word 6 | word 7 | word 8 | + // | 888888 NNNN | fifth | fourth | third | second | first | location of intructions | + // | instruction | instruction | instruction | instruction | instruction | 5 4 3 | 2 1 | + // NNNN=card num | NNNN NNNN NN|NN NNNN NNNN | + // + // + // SuperSoap five word per card printout format + // | 88888 | NNNN | word 5 | word 4 | word 3 | word 2 | word 1 | NNNN | NNNN | NNNN | NNNN | NNNN | + // word5 word4 word3 word2 word1 location + // + + char loc[6], data_addr[6], inst_addr[6], OpCode[6], Data_Tag[6], Instr_Tag[6], rem1[6], rem2[6]; + char pch_word[20]; + t_int64 d, instr; + int location, location2, CardNum, ty, opcodeNum; + int b_blank, neg, b4, fiv, b_8word; // punch control flags + int i, sv_card_nbuf, n, NegZero; + int pat1, pat2; + char cardtype; + + word_to_ascii(loc, 1, 5, IOSync[0]); + word_to_ascii(data_addr, 1, 5, IOSync[1]); + word_to_ascii(inst_addr, 1, 5, IOSync[2]); + word_to_ascii(OpCode, 1, 3, IOSync[3]); + word_to_ascii(Data_Tag, 4, 1, IOSync[3]); + word_to_ascii(Instr_Tag, 5, 1, IOSync[3]); + word_to_ascii(rem1, 1, 5, IOSync[4]); + word_to_ascii(rem2, 1, 5, IOSync[5]); + instr = IOSync[6]; + location = (int) ((IOSync[7] / D4) % D4); + ty = (int) ( IOSync[7] % 10); + CardNum = (int) ( IOSync[8] % D4); + location2 = (int) ( (IOSync[8] / (10*D4)) % D4); + d = IOSync[9]; + + b4 = ((int) (d % 10) == 8) ? 1:0; d = d / 10; + i = ((int) (d % 10) == 8) ? 1:0; d = d / 10; + i = ((int) (d % 10) == 8) ? 1:0; d = d / 10; + i = ((int) (d % 10) == 8) ? 1:0; d = d / 10; + i = ((int) (d % 10) == 8) ? 1:0; d = d / 10; + neg = ((int) (d % 10) == 8) ? 1:0; d = d / 10; + fiv = ((int) (d % 10) == 8) ? 1:0; d = d / 10; + b_8word = ((int) (d % 10) == 8) ? 1:0; d = d / 10; + i = ((int) (d % 10) == 8) ? 1:0; d = d / 10; + b_blank = (int) (d % 10); d = d / 10; + + opcodeNum = (int) (IOSync[3] / D4); // origina ibm650 char opcode + + if (b_blank==7) { + cardtype = 'P'; // punch availability table card PAT + } else if (fiv) { + cardtype = '5'; // punch five words per card + } else if (b_8word) { + cardtype = '8'; // punch 8-words load binary card + } else if ((b_blank) || (ty==1) || (ty==3)) { + //XXX missing PAL output, + cardtype = 'A'; // comment card + } else if ((ty==2) || (ty==4) || ((location >= 8000) && (location <= 8009))) { + cardtype = 'B'; // 800X card + } else { + //XXX missing PLR, FIL in one-per-card form, FIL in five-per-card form, DEK + cardtype = 'C'; // regular code card + } + + // generate card + if (cardtype=='P') { + // punch availability table (pat pseudo-op output) + for(i=0;i<8;i++) { + sprintf_word(pch_word, IOSync[i], 0, 1); + encode_pch_str(pch_word); + } + } else if (cardtype=='8') { + // punch 8-words load binary card + for(i=0;i<8;i++) { + d = IOSync[i]; + NegZero = IOSync_NegativeZeroFlag[i]; + sprintf_word(pch_word, d, NegZero, 1); + encode_pch_str(pch_word); + } + } else if (cardtype=='5') { + // punch five-per-card per card format + sprintf(pch_word, "888888%04d", (int)(IOSync[8] % D4)); // punch six 8's, then the card number + encode_pch_str(pch_word); + for(i=1;i<6;i++) { + sprintf_word(pch_word, IOSync[i], 0, 1); // sign on units + encode_pch_str(pch_word); + } + sprintf_word(pch_word, IOSync[6], 0, 0); // locations -> no sign + encode_pch_str(pch_word); + sprintf_word(pch_word, IOSync[7], 0, 0); + encode_pch_str(pch_word); + } else { + // cardtype A, B or C + if (cardtype=='A') { + encode_pch_str("?000008000"); // punch non generating code card + } else if (cardtype=='B') { + encode_pch_str("F919548000"); // punch for 800X locations + } else { + encode_pch_str("F919541953"); // punch for load card + } + if ((ty!=1) && (ty!=3) && ((opcodeNum==647963) || (opcodeNum==637664))) { + sprintf(pch_word, " %s%04d", loc, CardNum); // card DRC or COD + } else { + sprintf(pch_word, " %04d", CardNum); // consecutive card count + } + encode_pch_str(pch_word); + if (cardtype=='A') { + encode_pch_str(" "); + encode_pch_str(" "); + } else { + sprintf(pch_word, "24%04d800?", location);// addr to place the loaded word + encode_pch_str(pch_word); + sprintf_word(pch_word, AbsWord(instr) * (neg ? -1:1), ((neg) && (instr == 0)) ? 1:0, 1); + encode_pch_str(pch_word); + } + // input reproduced + encode_char(ty == 0 ? ' ' : '0'+ty, 0); + encode_char(neg ? '-' : ' ', 0); + sv_card_nbuf = card_nbuf; // save pch bufer current pos + encode_pch_str(loc); encode_pch_str(OpCode); + encode_pch_str(data_addr); encode_pch_str(Data_Tag); + encode_pch_str(inst_addr); encode_pch_str(Instr_Tag); + encode_pch_str(rem1); encode_pch_str(rem2); + // convert to lowercase for punching + for (i=sv_card_nbuf;i= 'A') && (card_buf[i] <= 'Z')) + card_buf[i] = card_buf[i] - 'A' + 'a'; + } + card_buf[card_nbuf] = 0; + + // generate printout + if (cardtype=='5') { + // print five words per card format + encode_lpt_str("888888 "); + encode_lpt_num((int)(IOSync[8] % D4), 4); // card number + encode_lpt_spc(1); + for(i=1;i<=5;i++) { // print 5 words as NNNNNNNNNs + d = IOSync[i]; + NegZero = IOSync_NegativeZeroFlag[i]; + encode_lpt_word(d, NegZero, wf_NNNNNNNNNNs); + } + encode_lpt_spc(1); // print locations of words as NNNN NNNN NNNN NNNN NNNN + d = IOSync[6]; + for(i=1;i<=5;i++) { + n = Shift_Digits(&d, 4); + if (i==3) { + d = IOSync[7]; + n = n + Shift_Digits(&d, 2); + } + encode_lpt_num(n, 4); + encode_lpt_spc(1); + } + } else if (cardtype=='8') { + // punch 8-words load binary card + // print out card contents 8 words in format NN NNNN NNNN+ + for(i=0;i<8;i++) { + d = IOSync[i]; + NegZero = IOSync_NegativeZeroFlag[i]; + encode_lpt_word(d, NegZero, wf_sNNNNNNNNNN); + encode_lpt_spc(2); + } + } else if (cardtype=='P') { + // print availability table (pat pseudo-op output) + for(i=0; i<4; i++) { + d = IOSync[i*2]; + pat1 = (int) ((d / D4) % D4); + pat2 = (int) ( d % D4); + d = IOSync[i*2 + 1]; + encode_lpt_num(pat1, 4); + encode_lpt_spc(2); + encode_lpt_num(d, 10); + encode_lpt_spc(2); + encode_lpt_num(pat2, 4); + encode_lpt_spc(5); + } + } else { + encode_lpt_num(CardNum, 4); + encode_lpt_spc(3); + if (ty == 1) { + // print comment card type 1 + encode_lpt_str("1 "); + 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 { + if (ty == 0) { + encode_lpt_spc(1); + } else { + encode_char(0, '0' + ty); + } + encode_lpt_spc(2); encode_char(0, neg ? '-':' '); encode_lpt_spc(1); + encode_lpt_str(loc); encode_lpt_spc(2); + encode_lpt_str(OpCode); encode_lpt_spc(2); + encode_lpt_str(data_addr); encode_lpt_str(Data_Tag); encode_lpt_spc(1); + encode_lpt_str(inst_addr); encode_lpt_str(Instr_Tag); encode_lpt_spc(3); + encode_lpt_str(rem1); encode_lpt_str(rem2); encode_lpt_spc(4); + if (b_blank) { + // blank loc opcode data_addr instr_addr + } else { + if (location2!=location) { + encode_lpt_num(location2, 4); + } else { + encode_lpt_spc(4); + } + encode_lpt_spc(1); + encode_lpt_num(location, 4); encode_lpt_spc(2); + encode_char(0, neg ? '-':'+'); + d = instr; + n = Shift_Digits(&d, 2); // operation code (2 digits) + encode_lpt_num(n, 2); encode_lpt_spc(1); + n = Shift_Digits(&d, 4); // data addr (4 digits) + encode_lpt_num(n, 4); encode_lpt_spc(1); + n = Shift_Digits(&d, 4); // instr addr (4 digits) + encode_lpt_num(n, 4); + } + } + } +} + void encode_is_wiring(void) { // encode Floationg Decimal Interpretive System (IS) card simulating control panel wiring for 533 as described @@ -702,6 +1020,113 @@ void encode_it_wiring(void) } } +void encode_ra_wiring(void) +{ + // encode card for Missile Systems Division, Lockheed Aircraft Corporation + // regional assembly card - five load cards + // storage in output block + // +-------------------+ + // Word 0977: | XX AAAA XXXX | Address A1 (X=don't care) + // 0978: | NN NNNN NNNN | word 1 + // 0979: | XX AAAA XXXX | Address A2 + // 0980: | NN NNNN NNNN | word 2 + // 0981: | XX AAAA XXXX | Address A3 + // 0982: | NN NNNN NNNN | word 3 + // 0983: | XX AAAA XXXX | Address A4 + // 0984: | NN NNNN NNNN | word 4 + // 0985: | XX AAAA XXXX | Address A5 + // 0986: | NN NNNN NNNN | word 5 + // +-------------------+ + // + // punch card format + // + // Column: | 1 2 3 4 - 10 | 11 - 14 | 15 16 | 17 - 20 | 21 - 24 | 25 - 28 | 29 30 | 31 - 34 | 35 - 38 | 39 - 42 | 43 44 | 45 - 48 | 49 - 52 | 53 - 56 | 57 58 | 59 - 62 | 63 - 66 | 67 - 70 | 71 72 | 73 - 76 | 77 - 80 | + // | + | N N N N | N N | N N N N | N N N N | N N N N | N N | N N N N | N N N N | N N N N | N N | N N N N | N N N N | N N N N | N N | N N N N | N N N N | N N N N | N N | N N N N | N N N N | + // | Addr | Op | Data | Instr | Addr | Op | Data | Instr | Addr | Op | Data | Instr | Addr | Op | Data | Instr | Addr | Op | Data | Instr | + // | Location| Code | Addr | Addr | Location| Code | Addr | Addr | Location| Code | Addr | Addr | Location| Code | Addr | Addr | Location| Code | Addr | Addr | + // | (A1) (O1) (D1) (I1) | (A2) (O2) (D2) (I2) | (A3) (O3) (D3) (I3) | (A4) (O4) (D4) (I4) | (A5) (O5) (D5) (I5) | + // | Word 1 | Word 2 | Word 3 | Word 4 | Word 5 | + // + // printout of five load card (only prints words 1, 2 and 3) + // + // Column: | 1 2 | 3 - 6 | 7 8 | 9 10 | 11 | 12 - 15 | 16 | 17 - 20 | 21 | 22 - 25 | 26 - 29 | 30 31 | 32 33 | 34 | 35 - 38 | 39 | 40 - 43 | 44 | 45 - 48 | 49 - 52 | 53 54 | 55 56 | 57 | 58 - 61 | 62 | 63 - 66 | 67 | + // | | N N N N | | N N | | N N N N | | N N N N | s | | N N N N | | N N | | N N N N | | N N N N | s | | N N N N | | N N | | N N N N | | N N N N | s | + // | Addr | | Op | | Data | | Instr | sign | Addr | | Op | | Data | | Instr | sign | Addr | | Op | | Data | | Instr | sign + // | Location| | Code | | Addr | | Addr | | Location| | Code | | Addr | | Addr | | Location| | Code | | Addr | | Addr | + // | (A1) | (O1) | | (D1) | | (I1) | | (A2) | (O2) | | (D2) | | (I2) | | (A3) | (O3) | | (D3) | | (I3) | + // | Word 1 | | Word 2 | | Word 3 | + + char pch_word[20]; + t_int64 d; + int n; + + encode_pch_str(" + "); + + d = IOSync[0]; Shift_Digits(&d, 2); n=Shift_Digits(&d, 4); + sprintf_word(pch_word, n, 0, 0); // A1 + encode_pch_str(&pch_word[6]); + sprintf_word(pch_word, IOSync[1], 0, 0); // word 1 + encode_pch_str(pch_word); + + d = IOSync[2]; Shift_Digits(&d, 2); n=Shift_Digits(&d, 4); + sprintf_word(pch_word, n, 0, 0); // A2 + encode_pch_str(&pch_word[6]); + sprintf_word(pch_word, IOSync[3], 0, 0); // word 2 + encode_pch_str(pch_word); + + d = IOSync[4]; Shift_Digits(&d, 2); n=Shift_Digits(&d, 4); + sprintf_word(pch_word, n, 0, 0); // A3 + encode_pch_str(&pch_word[6]); + sprintf_word(pch_word, IOSync[5], 0, 0); // word 3 + encode_pch_str(pch_word); + + d = IOSync[6]; Shift_Digits(&d, 2); n=Shift_Digits(&d, 4); + sprintf_word(pch_word, n, 0, 0); // A4 + encode_pch_str(&pch_word[6]); + sprintf_word(pch_word, IOSync[7], 0, 0); // word 4 + encode_pch_str(pch_word); + + d = IOSync[8]; Shift_Digits(&d, 2); n=Shift_Digits(&d, 4); + sprintf_word(pch_word, n, 0, 0); // A5 + encode_pch_str(&pch_word[6]); + sprintf_word(pch_word, IOSync[9], 0, 0); // word 5 + encode_pch_str(pch_word); + + encode_lpt_str(" "); + + d = IOSync[0]; + Shift_Digits(&d, 2); n = Shift_Digits(&d, 4); + encode_lpt_num(n, 4); + encode_lpt_spc(2); + d = IOSync[1]; + encode_lpt_word(d, 0, wf_NN_NNNN_NNNNs); + encode_lpt_spc(4); + + d = IOSync[2]; + Shift_Digits(&d, 2); n = Shift_Digits(&d, 4); + d = IOSync[3]; + if ((n==0) && (d==0)) { + encode_lpt_spc(4+2+13+4); + } else { + encode_lpt_num(n, 4); + encode_lpt_spc(2); + encode_lpt_word(d, 0, wf_NN_NNNN_NNNNs); + encode_lpt_spc(4); + } + + d = IOSync[4]; + Shift_Digits(&d, 2); n = Shift_Digits(&d, 4); + d = IOSync[5]; + if ((n==0) && (d==0)) { + encode_lpt_spc(4+2+13+4); + } else { + encode_lpt_num(n, 4); + encode_lpt_spc(2); + encode_lpt_word(d, 0, wf_NN_NNNN_NNNNs); + encode_lpt_spc(4); + } +} + void encode_fortransit_wiring(void) { // encode card for FORTRANSIT modified IT compiler @@ -897,7 +1322,7 @@ void encode_fortransit_wiring(void) uint32 cdp_cmd(UNIT * uptr, uint16 cmd, uint16 addr) { int i,c,h; - struct _card_data *data; + uint16 image[80]; uint32 wiring; /* Are we currently tranfering? */ @@ -906,7 +1331,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)\n"); + sim_debug(DEBUG_EXP, &cdp_dev, "No cards (no file attached)\n"); return SCPE_NOCARDS; } @@ -918,13 +1343,22 @@ uint32 cdp_cmd(UNIT * uptr, uint16 cmd, uint16 addr) if (wiring == WIRING_SOAP) { // encode soap card simulating soap control panel wiring for 533 (gasp!) - encode_soap_wiring(); + encode_soap_wiring(0); + } else if (wiring == WIRING_SOAPA) { + // encode soap card for multipass sopa IIA + encode_soap_wiring(1); + } else if (wiring == WIRING_SUPERSOAP) { + // encode super soap card + encode_supersoap_wiring(); } else if (wiring == WIRING_IS) { // encode floating point interpretive system (bell interpreter) card encode_is_wiring(); } else if (wiring == WIRING_IT) { // encode Carnegie Internal Translator compiler card encode_it_wiring(); + } else if (wiring == WIRING_RA) { + // endecode Missile Systems Division Lockheed Aircraft Corporation - regional assembly card + encode_ra_wiring(); } else if (wiring == WIRING_FORTRANSIT) { // encode Fortransit translator card encode_fortransit_wiring(); @@ -958,7 +1392,6 @@ uint32 cdp_cmd(UNIT * uptr, uint16 cmd, uint16 addr) sim_debug(DEBUG_DETAIL, &cpu_dev, "Punch Card: %s\n", card_buf); /* punch the cards */ - data = (struct _card_data *)uptr->up7; for (i=0; i<80; i++) { if (i >= card_nbuf) { c = 32; @@ -967,14 +1400,14 @@ uint32 cdp_cmd(UNIT * uptr, uint16 cmd, uint16 addr) } if (c == 32) { // no punch - data->image[i] = 0; + image[i] = 0; } else { // punch char - h = ascii_to_hol[c & 127]; - data->image[i] = h; + h = sim_ascii_to_hol(c); + image[i] = h; } } - sim_punch_card(uptr, NULL); + sim_punch_card(uptr, image); sim_debug(DEBUG_CMD, &cdp_dev, "PUNCH\n"); uptr->u5 |= URCSTA_BUSY; uptr->u6++; // incr number of punched cards diff --git a/I650/i650_cdr.c b/I650/i650_cdr.c index 2f47b45ef..b84a3aa47 100644 --- a/I650/i650_cdr.c +++ b/I650/i650_cdr.c @@ -76,11 +76,12 @@ DEVICE cdr_dev = { // buffer to hold read cards in take hopper of each unit // to be printed by carddeck command -char ReadHopper[3 * MAX_CARDS_IN_READ_TAKE_HOPPER * 80]; -int ReadHopperLast[3]; +uint16 ReadStaker[3 * MAX_CARDS_IN_READ_STAKER_HOPPER * 80]; +int ReadStakerLast[3]; -// 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 bCheckForHiPunch) +// get 10 digits word with sign from card buf (the data struct). +// return the first column where HiPunch set (first column is 1; 0 is no HiPunch set) +int decode_8word_wiring(uint16 image[80], int bCheckForHiPunch) { // decode up to 8 numerical words per card // input card @@ -88,21 +89,21 @@ int decode_8word_wiring(struct _card_data * data, int bCheckForHiPunch) // If last digit of word has X(11) punch whole word is set as negative value // If N is non numeric, a 0 is assumed // put the decoded data in IO Sync buffer (if bCheckForHiPunch = 1 -> do not store in IO Sync Buffer) - // return 1 if any colum has Y(12) hi-punch set + // return first colum with Y(12) hi-punch set (1 to 80) 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 + HiPunch = 0; // set 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 + c1 = image[iCol++]; + c2 = sim_hol_to_ascii(c1); // convert to ascii if ((c1 == 0xA00) || (c2 == '?')) { c1 = 0xA00; c2 = '?'; // the punched value +0 should be represented by ascii ? } @@ -112,12 +113,16 @@ int decode_8word_wiring(struct _card_data * data, int bCheckForHiPunch) 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 > 9) c2 = 0; // nondigits chars interpreted as zero + if (((c1 & 0x800)!=0) && (HiPunch == 0)) { + HiPunch = iCol; // HiPunch=first column that has Hi Punch Y(12) set + } + NegPunch = (c1 & 0x400) ? 1:0; // if column has minus X(11) set, signal it + if ((iCol==10) && + (c2 == '-')) NegPunch= 1; // allow a minus on col 10 + c1 = c1 & 0x3FF; // remove X and Y punches + c2 = sim_hol_to_ascii(c1); // convert to ascii again + c2 = c2 - '0'; // convert ascii to binary digit + if (c2 > 9) c2 = 0; // nondigits chars interpreted as zero d = d * 10 + c2; } // end of word. set sign @@ -130,18 +135,20 @@ int decode_8word_wiring(struct _card_data * data, int bCheckForHiPunch) IOSync [wn]=d; IOSync_NegativeZeroFlag[wn]=NegZero; } - } + } + 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) +void decode_soap_symb_info(uint16 image[80]) { t_int64 d; - int op,da,ia,i,i2,p; + int op,da,ia,i,i2; char buf[81]; uint16 c1,c2; + char *Symbolic_Buffer; // check soap 1-word load card initial word d = IOSync[0]; @@ -153,32 +160,30 @@ void decode_soap_symb_info(struct _card_data * data) 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)DRUMSIZE) return; // symbolic info can only be associated to drum addrs - + if (da < (int)DRUMSIZE) { + // symbolic info to be associated to drum addrs + Symbolic_Buffer = &DRUM_Symbolic_Buffer[da * 80]; + } else if ((da >= 9000) && (da < 9060)) { + // symbolic info to be associated to IAS addrs + Symbolic_Buffer = &IAS_Symbolic_Buffer[(da - 9000) * 80]; + } else { + return; // symbolic info can only be associated to drum or IAS addrs + } // convert card image punches to ascii buf for processing, starting at col 40 // keep 026 fortran charset + i2=0; for (i=40;i<80;i++) { - c1 = data->image[i]; - c2 = data->hol_to_ascii[c1]; + c1 = image[i]; + c2 = sim_hol_to_ascii(c1); c2 = (strchr(mem_to_ascii, toupper(c2))) ? c2:' '; if (c2 == '~') c2 = ' '; - buf[i] = (char) c2; + if ((i==47) || (i==50) || (i==56)) buf[i2++] = ' '; // add space separation between op, da, ia fields + buf[i2++] = (char) c2; } - buf[80] = 0; // terminate string + buf[i2++] = 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 - 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]; - } + memset(Symbolic_Buffer, 0, 80); // clear drum/ias symbolic info + sim_strlcpy(Symbolic_Buffer, buf, i2); } t_int64 decode_num_word(char * buf, int nDigits, int bSpaceIsZero) @@ -217,7 +222,7 @@ t_int64 decode_alpha_word(char * buf, int n) } -void decode_soap_wiring(struct _card_data * data) +void decode_soap_wiring(uint16 image[80], int bMultiPass) { // 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 @@ -228,6 +233,7 @@ void decode_soap_wiring(struct _card_data * data) // Ty = Type = blank, 1 or 2 // Sg = sign = blank or - // Tg = Tag = + // // storage in input block // +-------------------+ // Word 1951: | <- Location -> | Alphabetic @@ -243,9 +249,16 @@ void decode_soap_wiring(struct _card_data * data) // 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; + // +-------------+-----+ + // + // If MultiPass flag set, colum 80 contains multipass punches + // + // And sets additional flags in 1960 input block + // + // +-+-----+-----+-----+ + // 1960: | |N N N| |T b n| T=Type (0 if Blank), b=0/8 (for non blank type), n=0/8 (for negative) + // +-+-----+-----+-----+ + int ty,neg,col80; char buf[81]; int i; uint16 c1,c2; @@ -253,8 +266,8 @@ void decode_soap_wiring(struct _card_data * data) // 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]; + c1 = image[i]; + c2 = sim_hol_to_ascii(c1); c2 = (strchr(mem_to_ascii, toupper(c2))) ? c2:' '; if (c2 == '~') c2 = ' '; buf[i] = (char) c2; @@ -277,12 +290,97 @@ void decode_soap_wiring(struct _card_data * data) ty = buf[40] - '0'; if ((ty < 0) || (ty > 9)) ty = 0; neg = (buf[41] == '-') ? 8:0; + col80 = buf[79]; IOSync[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) + neg; // |T b n| T=Type (0 if Blank), b=0/8 (for non blank type), n=0/8 (for negative) + if (bMultiPass) { + IOSync[9] += 9 * ((t_int64) D8 ) + // Loc addr digit 9 + 9 * ((t_int64) D8 / 10 ) + // Data addr digit 8 + 9 * ((t_int64) D8 / 100) ; // Instr addr digit 7 + } +} + +void decode_supersoap_wiring(uint16 image[80]) +{ + // decode supersoap card simulating soap control panel wiring for 533 + // educated guess based on supersoap program listing at http://archive.computerhistory.org/resources/access/text/2018/07/102784987-05-01-acc.pdf + // input card + // Column: | 23 24 25 26 | 27 .. 32 | 33 34 35 36 | 37 38 39 40 | 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 + // | LH | | DH | IH | Ty | Sg | Location | OpCode | Data Addr | Tg | Instr Addr | Tg | Remarks + // + // Ty = Type = blank, or 0 to 9 + // Sg = sign = blank or - + // Tg = Tag A to D + // LH, DH, IH can be bank or set (for hand optimization of input card) + // + // storage in input block + // +-------------------+ + // Word 1951: | <- Location -> | Alphabetic + // 1952: | <- Data Addr -> | Alphabetic + // 1953: | <- Inst Addr -> | Alphabetic + // +-+-+-+-+-+-+-+-|-+-| + // 1954: | Op Code |DTg|ITg| Alphabetic + // +-+-+-|-+-+-|-+-|-+-| + // 1955: | <- Remarks -> | Alphabetic + // 1956: | <- Remarks -> | Alphabetic + // +-+-+-+-+-+-|-+-+-+-| + // 1957: | |D D D D|I I I I| DH, IH field for hand optimization + // 1958: | |N N N N| | LH field for hand optimization + // 1959: | | + // 1960: |x x x n 8 T| T=card type + // +-+-+-+-+-+-+-+-+-+-+ + // + // T=card type: 0=assembler source, 1=comment, + // 2/4=non generating code, 3=no_DUP 8 (manual page 40) + // n=9 -> positive value, =8 -> negative + // x=don't care + // + // +-------------+-----+ + // + int ty,neg,col80; + 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 = image[i]; + c2 = sim_hol_to_ascii(c1); + c2 = (strchr(mem_to_ascii, toupper(c2))) ? c2:' '; + if (c2 == '~') c2 = ' '; + buf[i] = (char) c2; + } + buf[80] = 0; // terminate string + + IOSync[0] = decode_alpha_word(&buf[42], 5); // Location (5 chars) + IOSync[1] = decode_alpha_word(&buf[50], 5); // Data Addr (5 chars) + IOSync[2] = decode_alpha_word(&buf[56], 5); // Inst Addr (5 chars) + IOSync[3] = decode_alpha_word(&buf[47], 3) * D4 + // OpCode (3 chars only) + decode_alpha_word(&buf[55], 1) * 100 + // Data Addr Tag (1 char only) + decode_alpha_word(&buf[61], 1); // Instr Addr Tag (1 char only) + IOSync[4] = decode_alpha_word(&buf[62], 5); // Remarks + IOSync[5] = decode_alpha_word(&buf[67], 5); // Remarks + + IOSync[6] = decode_num_word(&buf[32], 4, 1) * D4 + + decode_num_word(&buf[36], 4, 1); // DH & IH + IOSync[7] = decode_num_word(&buf[22], 4, 1); // LH + IOSync[8] = 0; + + ty = buf[40] - '0'; + if ((ty < 0) || (ty > 9)) ty = 0; + neg = (buf[41] == '-') ? 8:9; + col80 = buf[79]; + + IOSync[9] = ty + + neg * 100000 + // 8=negative, 9=positive XXX + 8 * 1000; + } + int sformat(char * buf, const char * match) { char m,c; @@ -300,7 +398,7 @@ int sformat(char * buf, const char * match) return 1; // end of match string -> return 1 -> buf matches } -void decode_is_wiring(struct _card_data * data) +void decode_is_wiring(uint16 image[80]) { // 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.pdf @@ -357,8 +455,8 @@ void decode_is_wiring(struct _card_data * data) // 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]; + c1 = image[i]; + c2 = sim_hol_to_ascii(c1); buf[i] = (strchr("+-0123456789", c2)) ? ((char) (c2)):' '; } buf[80] = 0; // terminate string @@ -434,7 +532,7 @@ void decode_is_wiring(struct _card_data * data) } } -void decode_it_wiring(struct _card_data * data) +void decode_it_wiring(uint16 image[80]) { // decode IT compiler card simulating control panel wiring for 533 // from IT manual at http://www.bitsavers.org/pdf/ibm/650/CarnegieInternalTranslator.pdf @@ -483,8 +581,8 @@ void decode_it_wiring(struct _card_data * data) // 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]; + c1 = image[i]; + c2 = sim_hol_to_ascii(c1); c2 = (strchr(mem_to_ascii, toupper(c2))) ? c2:' '; if (c2 == '~') c2 = ' '; buf[i] = (char) c2; @@ -494,7 +592,7 @@ void decode_it_wiring(struct _card_data * data) if (buf[2] == '+') { // type 1 data card // re-read as 8 word per card - decode_8word_wiring(data, 0); + decode_8word_wiring(image, 0); return; } IOSync[0] = decode_alpha_word(&buf[42], 5); // Statement (5 chars) @@ -508,7 +606,378 @@ void decode_it_wiring(struct _card_data * data) } -void decode_fortransit_wiring(struct _card_data * data) +// convert RrNNNN to word +// R can be A to I (equivalent to 1 to 9). r and N can be 0 to 9 +// any other char assumed to be zero +t_int64 decode_regional_addr(char * buf, char * nbuf) +{ + int c; + t_int64 w; + + c = *buf++; + if ((c >= 'A') && (c <= 'I')) { + w=(c-'A'+1); // convert region letter A-I to digit 1-9 + } else if ((c >= '1') && (c <= '9')) { + w=(c-'1'+1); + } else {w=0;} + + c = *buf++; + if ((c >= '0') && (c <= '9')) { + w = w * 10 + c - '0'; + } else { + w = w * 10; + } + return w * 10000 + decode_num_word(nbuf, 4, 1); +} + +int decode_ra_wiring(uint16 image[80], int HiPunch) +{ + // decode REGIONAL ASSEMBLY card simulating control panel wiring for 533 + // return 1 if it is a load card that makes RD inst continue to DA addr instead of IA addr + // card format in Appl_Sci_tech_Newsletter_10_Oct55.pdf (bitsavers) page p33 + // + // the 533 is used as numeric device. Letters does not means alpha chars, but instead are + // used as digit+HiPunch Y(12) (0123456789 -> +ABCDEFGHI) or digit+X(11) (0123456789->-JKLMNOPQR) + // + // there are 4 formats allowed. Each format is marked con card by a HiPunch on col 3,5 9 or 11 + // + // the formats are + // HiPunch on column 3 -> five field card: this is standard 650 card from format number [1] + // 5 -> machine languaje trace: this is standard 650 card from format number [2] + // 7 -> flair trace: this is standard 650 card from format number [3] + // 11 -> regional instruction: this is standard 650 card from format number [4] + // note that this format allows a characte "A" to "I" on column 11. The Hi Punch is + // + // On RA wiring, simulated 533 supports: + // + // Format Is Load Apply + // card type number Card? 533 format + // -----------------:------- --------- --------- ---------- + // five field card [1] NO YES <- RD inst continue to DA addr instead of IA addr + // regional instruction [4] NO YES <- RD inst continue to IA addr + // normal card none NO NO <- RD inst continue to IA addr + // normal load card any other YES NO <- RD inst continue to DA addr instead of IA addr + // + // regional assembler source program input card (regional instruction) - standard 650 card from format number [4] + // + // Column: | 1 - 5 | 6 - 10 | 11 12 | 13 - 16 | 17 18 | 19 20 | 21 - 24 | 25 26 | 27 - 30 | + // | NNNNN | NNNNN | r r | N N N N | N N | r r | N N N N | r r | N N N N | + // Deck | Seq | Regional Addr | Op | Regional Addr | Regional Addr | + // Numb. | for location | Code | for Data Addr | for Instr Addr + // + // N is digit 0-9. Blank is interpreted as 0 digit + // if rr is blank, value 00 + // rr can be numeric or Alfa. If alfa, 1=a, 2=b ... 9=i, so "A2" -> RR=12 and "I9" -> RR=99 + // rr can be "A0" .. "I9". Any other char is interpreted as '0' + // OpCode, DA or IA can be negative by setting X(11) necative punch + // + // + // storage in input block for card format [4] and [4b] + // +-------------------+ + // Word 0401: | rr NNNN 0000 | Regional addr for location + // 0402: | rr NNNN 0000 | Regional addr for Data Addr + // 0403: | rr NNNN 0000 | Regional addr for Instr Addr + // 0404: | NN 0000 0000 | if OpCode is numeric (Can be positive or negative) else zero + // 0405: | N | if OpCode is numeric and negative is -1, else zero + // 0406: | <- OpCode -> | if OpCode is Alphabetic, the char codes (5 chars), Else zero + // +-------------------+ + // 0407: | | Not used + // 0408: | | Not used + // 0409: | | Not used + // 0410: | | Not used + // +-------------------+ + // + // + // five field card - standard 650 card from format number [1] + // + // Column: | 1 - 5 | 6 - 10 | 11 - 14 | 15 16 | 17 - 20 | 21 - 24 | 25 - 28 | 29 30 | 31 - 34 | 35 - 38 | 39 - 42 | 43 44 | 45 - 48 | 49 - 52 | 53 - 56 | 57 58 | 59 - 62 | 63 - 66 | 67 - 70 | 71 72 | 73 - 76 | 77 - 80 | + // | NNhNN | NNNNN | N N N N | N N | N N N N | N N N N | N N N N | N N | N N N N | N N N N | N N N N | N N | N N N N | N N N N | N N N N | N N | N N N N | N N N N | N N N N | N N | N N N N | N N N N | + // Deck | Seq | Addr | Op | Data | Instr | Addr | Op | Data | Instr | Addr | Op | Data | Instr | Addr | Op | Data | Instr | Addr | Op | Data | Instr | + // Numb. | Location| Code | Addr | Addr | Location| Code | Addr | Addr | Location| Code | Addr | Addr | Location| Code | Addr | Addr | Location| Code | Addr | Addr | + // | (A1) (O1) (D1) (I1) | (A2) (O2) (D2) (I2) | (A3) (O3) (D3) (I3) | (A4) (O4) (D4) (I4) | (A5) (O5) (D5) (I5) | + // | Word 1 | Word 2 | Word 3 | Word 4 | Word 5 | + // + // h is digit 0-9 with HiPunch set + // if HiPunch is set on last digit of a An, the program will autoexecute at this address + // + // + // storage in input block for card format [1] + // +-------------------+ + // Word 1951: | 24 (A1) 1903 | Note: if A1 has HiPunch on last digit (Y(12) in col 14), the word generated + // 1952: | O1 (D1) (I1) | at 1951 will be 24 (A1) (A1) + // 1953: | 24 (A2) 1904 | if A2 has HiPunch on last digit (Y(12) in col 28), the word generated + // 1954: | O2 (D2) (I2) | at 1953 will be 24 (A2) (A2) + // 1955: | 24 (A3) 1905 | if A3 has HiPunch on last digit (Y(12) in col 42), the word generated + // 1956: | O3 (D3) (I3) | at 1955 will be 24 (A3) (A3) + // 1957: | 24 (A4) 1906 | if A4 has HiPunch on last digit (Y(12) in col 56), the word generated + // 1958: | O4 (D4) (I4) | at 1957 will be 24 (A4) (A4) + // 1959: | 24 (A5) 1901 | if A5 has HiPunch on last digit (Y(12) in col 70), the word generated + // 1960: | O5 (D5) (I5) | at 1959 will be 24 (A5) (A5) + // +-------------------+ + // + + char buf[81]; + int hbuf[81]; + + int wsgn[5]; // store sgn of words + int i, IsLoadCard, IsNeg, NegPunch; + uint16 c1,c2; + t_int64 A,I; + + IsLoadCard = NegPunch = 0; + // init sgn to positive + for (i=0;i<5;i++) wsgn[i]=1; + + // convert card image punches to ascii buf for processing + for (i=0;i<80;i++) { + IsNeg = hbuf[i]=0; + c1 = image[i]; + c2 = sim_hol_to_ascii(c1); + c2 = toupper(c2); + if ((c1 == 0xA00) || (c2 == '?') || c2 == '+') { + hbuf[i]=1; c2='0'; // '0' or blank + HiPunch Y(12) + } else if ((c2 == '!') || (c2 == '-')) { + IsNeg = 1; c2= '0'; // '0' or blank + X(11) + } else if ((c2 >= 'A') && (c2 <= 'I')) { + hbuf[i]=1; c2=c2-'A'+'1'; // A..I means '1'..'9' + HiPunch Y(12) set + } else if ((c2 >= 'J') && (c2 <= 'R')) { + IsNeg = 1; c2=c2-'J'+'1'; // J..R means '1'..'9' + X(11) set + } else if ((c2 >= '1') && (c2 <= '9')) { + // digit '0'..'9' + } else { + c2='0'; // any other is zero + } + if (IsNeg) { // if column has minus X(11) mark sign of the word n + if (i<10) { // none + } else if (i<24) {wsgn[0]=-1; // word 1 negative + } else if (i<38) {wsgn[1]=-1; // word 2 negative + } else if (i<52) {wsgn[2]=-1; // word 3 negative + } else if (i<66) {wsgn[3]=-1; // word 4 negative + } else {wsgn[4]=-1;} // word 5 negative + if ((i>=10) && (NegPunch==0)) NegPunch = i; + } + buf[i] = (char) c2; + } + buf[80] = 0; // terminate string + + if (hbuf[10]) { + // regional instruction: this is standard 650 card from format number [4] + // Column: | 1 - 5 | 6 - 10 | 11 12 | 13 - 16 | 17 18 | 19 20 | 21 - 24 | 25 26 | 27 - 30 | + // | NNNNN | NNNNN | r r | N N N N | N N | r r | N N N N | r r | N N N N | + IsNeg = ((NegPunch >=10) && (NegPunch < 30)) ? -1:1; + IOSync[0] = decode_regional_addr(&buf[10], &buf[12]) * 10000; // Regional Location + IOSync[3] = decode_num_word(&buf[16], 2, 1) * 10000 * 10000 * IsNeg; // opcode numeric + IOSync[1] = decode_regional_addr(&buf[18], &buf[20]) * 10000; // Regional DA + IOSync[2] = decode_regional_addr(&buf[24], &buf[26]) * 10000; // Regional IA + IOSync[4] = IsNeg; // check if word OP DA IA is negative + IOSync[5] = 0; + if (IOSync[4] < 0) IOSync[3] = -IOSync[3]; // make opcode negative if word negative + } else if (hbuf[2]) { + // five field card - standard 650 card from format number [1] + // Column: | 1 - 5 | 6 - 10 | 11 - 14 | 15 16 | 17 - 20 | 21 - 24 | 25 - 28 | 29 30 | 31 - 34 | 35 - 38 | 39 - 42 | 43 44 | 45 - 48 | 49 - 52 | 53 - 56 | 57 58 | 59 - 62 | 63 - 66 | 67 - 70 | 71 72 | 73 - 76 | 77 - 80 | + // | NNhNN | NNNNN | N N N N | N N | N N N N | N N N N | N N N N | N N | N N N N | N N N N | N N N N | N N | N N N N | N N N N | N N N N | N N | N N N N | N N N N | N N N N | N N | N N N N | N N N N | + // | (A1) (O1) (D1) (I1) | (A2) (O2) (D2) (I2) | (A3) (O3) (D3) (I3) | (A4) (O4) (D4) (I4) | (A5) (O5) (D5) (I5) | + // | Word 1 | Word 2 | Word 3 | Word 4 | Word 5 | + // + A = decode_num_word(&buf[10], 4, 1); + I = (hbuf[13]) ? A : 1903; // if HiPunch on (A1) last digit, replace 1903 with (A1) value + IOSync[0] = (t_int64) 24 * 10000 * 10000 + A * 10000 + I; + IOSync[1] = decode_num_word(&buf[14], 10, 1) * wsgn[0]; + + A = decode_num_word(&buf[24], 4, 1); + I = (hbuf[27]) ? A : 1904; // if HiPunch on (A2) last digit, replace 1904 with (A1) value + IOSync[2] = (t_int64) 24 * 10000 * 10000 + A * 10000 + I; + IOSync[3] = decode_num_word(&buf[28], 10, 1) * wsgn[1]; + + A = decode_num_word(&buf[38], 4, 1); + I = (hbuf[41]) ? A : 1905; // if HiPunch on (A3) last digit, replace 1905 with (A3) value + IOSync[4] = (t_int64) 24 * 10000 * 10000 + A * 10000 + I; + IOSync[5] = decode_num_word(&buf[42], 10, 1) * wsgn[2]; + + A = decode_num_word(&buf[52], 4, 1); + I = (hbuf[55]) ? A : 1906; // if HiPunch on (A4) last digit, replace 1906 with (A4) value + IOSync[6] = (t_int64) 24 * 10000 * 10000 + A * 10000 + I; + IOSync[7] = decode_num_word(&buf[56], 10, 1) * wsgn[3]; + + A = decode_num_word(&buf[66], 4, 1); + I = (hbuf[69]) ? A : 1901; // if HiPunch on (A5) last digit, replace 1901 with (A5) value + IOSync[8] = (t_int64) 24 * 10000 * 10000 + A * 10000 + I; + IOSync[9] = decode_num_word(&buf[70], 10, 1) * wsgn[4]; + } else { + decode_8word_wiring(image, 0); + if (HiPunch > 0) IsLoadCard=1; + } + return IsLoadCard; +} + +int decode_fds_wiring(uint16 image[80], int HiPunch) +{ + // decode Interpretive Floating Decimal System card + // return 1 if it is a load card that makes RD inst continue to DA addr instead of IA addr + // no card format defined in Appl_Sci_tech_Newsletter_08_Oct54.pdf (bitsavers) page p18 + // guesswork based on bitsavers deck format 5440.2009_INTERPRETIVE_FDS.crd + // two formats are defined. One that match the 5440.2009_INTERPRETIVE_FDS.crd deck, and a second one + // that allows to load a single word, used to enter a FDS program on a friendly way + // + // FDS program input card - five word card + // + // Column: | 1 2 | 3 - 6 | 7 8 | 9 - 12 | 13 - 16 | 17 18 | 19 - 22 | 23 24 | 25 - 28 | 29 - 32 | 33 34 | 35 - 38 | 39 40 | 41 - 44 | 45 - 48 | 49 50 | 51 - 54 | 55 56 | 57 - 60 | 61 - 64 | 65 66 | 67 - 70 | 71 72 | 73 - 76 | 77 - 80 | + // | 8 8 | n n n N | n n | n n n n | n n n N | 8 8 | n n n N | n n | n n n n | n n n N | 8 8 | n n n N | n n | n n n n | n n n N | 8 8 | n n n N | n n | n n n n | n n n N | 8 8 | n n n N | n n | n n n n | n n n N | + // | Addr | Op | Data | Instr | | Addr | Op | Data | Instr | | Addr | Op | Data | Instr | | Addr | Op | Data | Instr | | Addr | Op | Data | Instr | + // | Location| Code | Addr | Addr | | Location| Code | Addr | Addr | | Location| Code | Addr | Addr | | Location| Code | Addr | Addr | | Location| Code | Addr | Addr | + // | (A1) (O1) (D1) (I1) | | (A2) (O2) (D2) (I2) | | (A3) (O3) (D3) (I3) | | (A4) (O4) (D4) (I4) | | (A5) (O5) (D5) (I5) | + // | Word 1 | | Word 2 | | Word 3 | | Word 4 | | Word 5 | + // + // n is digit 0-9 + // H is digit 0-9 with HiPunch set + // + // + // storage in input block + // +-------------------+ + // Word 1951: | 24 (A1) 1903 | + // 1952: | O1 (D1) (I1) | + // 1953: | 24 (A2) 1904 | + // 1954: | O2 (D2) (I2) | + // 1955: | 24 (A3) 1905 | + // 1956: | O3 (D3) (I3) | + // 1957: | 24 (A4) 1906 | + // 1958: | O4 (D4) (I4) | + // 1959: | 24 (A5) 1901 | + // 1960: | O5 (D5) (I5) | + // +-------------------+ + // + // FDS program input card - one word card + // + // Column: | 1 2 3 | 4 - 7 | 8 9 | 10 11 | 12 | 13 - 16 | 17 | 18 - 21 | 22 23 | 24 - 80 + // | + g | n n n n | | n n | | n n n n | | n n n n | s | comments + // | Addr | | Op | | Data | | Instr | | + // | Location| | Code | | Addr | | Addr | | + // | (A1) | | (O1) | | (D1) | | (I1) | | + // | Word 1 | + // + // n is digit 0-9 + // + is digit 0 with HiPunch set + // s is sign. Can be +,- or blank + // g can be "G" (7+HiPunch) or blank, If G this is a transfer card to A1 address + // + // storage in input block + // +-------------------+ + // Word 1951: | 24 (A1) 1903 | if is a transfer card (G present), then this word is: 00 (A1) (A1) + // 1952: | O1 (D1) (I1) | + // 1953: | 24 0000 1904 | + // 1954: | 00 0000 0000 | + // 1955: | 24 0000 1905 | + // 1956: | 00 0000 0000 | + // 1957: | 24 0000 1906 | + // 1958: | 00 0000 0000 | + // 1959: | 24 0000 1901 | + // 1960: | 00 0000 0000 | + // +-------------------+ + // + + char buf[81]; + + int i, IsLoadCard, IsNeg, NegPunch, IsGo, IsSgn; + uint16 c1,c2; + t_int64 A,I; + + IsLoadCard = NegPunch = IsGo = IsSgn = 0; + // init sgn to positive + + // convert card image punches to ascii buf for processing + for (i=0;i<80;i++) { + IsNeg =0; + c1 = image[i]; + c2 = sim_hol_to_ascii(c1); + c2 = toupper(c2); + if ((c1 == 0xA00) || (c2 == '?') || c2 == '+') { + c2='0'; // '0' or blank + HiPunch Y(12) + if (i==1) HiPunch=2; + } else if ((c2 == '!') || (c2 == '-')) { + IsNeg = 1; c2= '0'; // '0' or blank + X(11) + if (i==21) IsSgn=1; // '-' in column 22 + } else if ((c2 >= 'A') && (c2 <= 'I')) { + if ((c2 == 'G') && (i==2)) IsGo=1; // g or G in column 3 + c2=c2-'A'+'1'; // A..I means '1'..'9' + HiPunch Y(12) set + } else if ((c2 >= 'J') && (c2 <= 'R')) { + IsNeg = 1; c2=c2-'J'+'1'; // J..R means '1'..'9' + X(11) set + } else if ((c2 >= '1') && (c2 <= '9')) { + // digit '0'..'9' + } else { + c2='0'; // any other is zero + } + buf[i] = (char) c2; + } + buf[80] = 0; // terminate string + + if (HiPunch==6) { + // five word card + // Column: | 1 2 | 3 - 6 | 7 8 | 9 - 12 | 13 - 16 | 17 18 | 19 - 22 | 23 24 | 25 - 28 | 29 - 32 | 33 34 | 35 - 38 | 39 40 | 41 - 44 | 45 - 48 | 49 50 | 51 - 54 | 55 56 | 57 - 60 | 61 - 64 | 65 66 | 67 - 70 | 71 72 | 73 - 76 | 77 - 80 | + // | 8 8 | n n n N | n n | n n n n | n n n N | 8 8 | n n n N | n n | n n n n | n n n N | 8 8 | n n n N | n n | n n n n | n n n N | 8 8 | n n n N | n n | n n n n | n n n N | 8 8 | n n n N | n n | n n n n | n n n N | + // | (A1) (O1) (D1) (I1) | | (A2) (O2) (D2) (I2) | | (A3) (O3) (D3) (I3) | | (A4) (O4) (D4) (I4) | | (A5) (O5) (D5) (I5) | + // | Word 1 | | Word 2 | | Word 3 | | Word 4 | | Word 5 | + // + A = decode_num_word(&buf[2], 4, 1); + I = 1903; + IOSync[0] = (t_int64) 24 * 10000 * 10000 + A * 10000 + I; + IOSync[1] = decode_num_word(&buf[6], 10, 1); + + A = decode_num_word(&buf[18], 4, 1); + I = 1904; + IOSync[2] = (t_int64) 24 * 10000 * 10000 + A * 10000 + I; + IOSync[3] = decode_num_word(&buf[22], 10, 1); + + A = decode_num_word(&buf[34], 4, 1); + I = 1905; + IOSync[4] = (t_int64) 24 * 10000 * 10000 + A * 10000 + I; + IOSync[5] = decode_num_word(&buf[38], 10, 1); + + A = decode_num_word(&buf[50], 4, 1); + I = 1906; + IOSync[6] = (t_int64) 24 * 10000 * 10000 + A * 10000 + I; + IOSync[7] = decode_num_word(&buf[54], 10, 1); + + A = decode_num_word(&buf[66], 4, 1); + I = 1901; + IOSync[8] = (t_int64) 24 * 10000 * 10000 + A * 10000 + I; + IOSync[9] = decode_num_word(&buf[70], 10, 1); + + } else if (HiPunch==2) { + // Column: | 1 2 3 | 4 - 7 | 8 9 | 10 11 | 12 | 13 - 16 | 17 | 18 - 21 | 22 23 | 24 - 80 + // | + g | n n n n | | n n | | n n n n | | n n n n | s | comments + // | (A1) | | (O1) | | (D1) | | (I1) | | + A = decode_num_word(&buf[3], 4, 1); + I = 1903; + IOSync[0] = (t_int64) 24 * 10000 * 10000 + A * 10000 + I; + if (IsGo) IOSync[0] = A; + IOSync[1] = decode_num_word(&buf[ 9], 2, 1) * 10000 * 10000 + + decode_num_word(&buf[12], 4, 1) * 10000 + + decode_num_word(&buf[17], 4, 1); + if (IsSgn) IOSync[1] = -IOSync[1]; + + A = 0; I = 1904; + IOSync[2] = (t_int64) 24 * 10000 * 10000 + A * 10000 + I; + IOSync[3] = 0; + + A = 0; I = 1905; + IOSync[4] = (t_int64) 24 * 10000 * 10000 + A * 10000 + I; + IOSync[5] = 0; + + A = 0; I = 1906; + IOSync[6] = (t_int64) 24 * 10000 * 10000 + A * 10000 + I; + IOSync[7] = 0; + + A = 0; I = 1901; + IOSync[8] = (t_int64) 24 * 10000 * 10000 + A * 10000 + I; + IOSync[9] = 0; + } else { + decode_8word_wiring(image, 0); + if (HiPunch > 0) IsLoadCard=1; + } + return IsLoadCard; +} + +void decode_fortransit_wiring(uint16 image[80]) { // decode FORTRANSIT translator card simulating control panel wiring for 533 // from FORTRANSIT manual at http://bitsavers.org/pdf/ibm/650/28-4028_FOR_TRANSIT.pdf @@ -593,8 +1062,8 @@ void decode_fortransit_wiring(struct _card_data * data) // 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]; + c1 = image[i]; + c2 = sim_hol_to_ascii(c1); c2 = toupper(c2); c2 = (strchr(mem_to_ascii, c2)) ? c2:' '; if (c2 == '~') c2 = ' '; @@ -605,7 +1074,7 @@ void decode_fortransit_wiring(struct _card_data * data) if (buf[72] == '+') { // read data card input for READ fortransit command // re-read as 8 word per card - decode_8word_wiring(data, 0); + decode_8word_wiring(image, 0); return; } else if (buf[4] == '+') { // it source statement @@ -631,14 +1100,16 @@ void decode_fortransit_wiring(struct _card_data * data) ( decode_num_word(&buf[1], 4, 1) ); // statement number } } + + /* * Device entry points for card reader. */ uint32 cdr_cmd(UNIT * uptr, uint16 cmd, uint16 addr) { - struct _card_data *data; uint32 wiring; - int i; + uint16 image[80]; + int i, HiPunch; char cbuf[81]; int ncdr, ic; @@ -654,7 +1125,7 @@ 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)\n"); + sim_debug(DEBUG_EXP, &cdr_dev, "No cards (no file attached)\n"); return SCPE_NOCARDS; } @@ -662,28 +1133,30 @@ uint32 cdr_cmd(UNIT * uptr, uint16 cmd, uint16 addr) 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\n"); + switch(sim_read_card(uptr, image)) { + case CDSE_EOF: + sim_debug(DEBUG_EXP, &cdr_dev, "EOF\n"); + uptr->u5 = 0; + return SCPE_NOCARDS; + case CDSE_EMPTY: + sim_debug(DEBUG_EXP, &cdr_dev, "Input Hopper Empty\n"); uptr->u5 = 0; return SCPE_NOCARDS; case SCPE_UNATT: - sim_debug(DEBUG_DETAIL, &cdr_dev, "Not Attached\n"); + sim_debug(DEBUG_EXP, &cdr_dev, "Not Attached\n"); uptr->u5 = 0; return SCPE_NOCARDS; - case SCPE_IOERR: - sim_debug(DEBUG_DETAIL, &cdr_dev, "ERR\n"); + case CDSE_ERROR: + sim_debug(DEBUG_EXP, &cdr_dev, "IO ERR\n"); uptr->u5 = 0; return SCPE_NOCARDS; - case SCPE_OK: + case CDSE_OK: break; } - data = (struct _card_data *)uptr->up7; - // make local copy of card for debug output for (i=0; i<80; i++) - cbuf[i] = data->hol_to_ascii[data->image[i]]; + cbuf[i] = sim_hol_to_ascii(image[i]); cbuf[80] = 0; // terminate string sim_debug(DEBUG_DETAIL, &cpu_dev, "Read Card: %s\n", sim_trim_endspc(cbuf)); @@ -692,10 +1165,12 @@ uint32 cdr_cmd(UNIT * uptr, uint16 cmd, uint16 addr) ncdr = uptr - &cdr_unit[1]; // ncdr is the card reader: 0 for cdr1, 1 for cdr2, 2 for cdr3 if ((ncdr >= 0) && (ncdr < 3)) { // safety check, not needed (should allways be true) but just to be sure // advance read buffer last card - ReadHopperLast[ncdr] = (ReadHopperLast[ncdr] + 1) % MAX_CARDS_IN_READ_TAKE_HOPPER; + ReadStakerLast[ncdr] = (ReadStakerLast[ncdr] + 1) % MAX_CARDS_IN_READ_STAKER_HOPPER; // save card in read card hopper buffer - ic = (ncdr * MAX_CARDS_IN_READ_TAKE_HOPPER + ReadHopperLast[ncdr]) * 80; - for (i=0; i<80; i++) ReadHopper[ic + i] = cbuf[i]; + ic = (ncdr * MAX_CARDS_IN_READ_STAKER_HOPPER + ReadStakerLast[ncdr]) * 80; + for (i=0; i<80; i++) { + ReadStaker[ic + i] = image[i]; + } } // uint16 data->image[] array that holds the actual punched rows on card @@ -719,39 +1194,58 @@ uint32 cdr_cmd(UNIT * uptr, uint16 cmd, uint16 addr) // 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 + wiring = (uptr->flags & UNIT_CARD_WIRING); + HiPunch = decode_8word_wiring(image, 1); + // check if it is a load card (Y(12) = HiPunch set on any column of card) signales it - if (decode_8word_wiring(data, 1)) { - uptr->u5 |= URCSTA_LOAD; + // Regional Assembler /FDS should process format of Load Cards + if ((HiPunch > 0) && + (wiring != WIRING_RA) && + (wiring != WIRING_FDS)) { + uptr->u5 |= URCSTA_LOAD; } else { - uptr->u5 &= ~URCSTA_LOAD; + uptr->u5 &= ~URCSTA_LOAD; } - wiring = (uptr->flags & UNIT_CARD_WIRING); - // translate chars read from card and copy to memory words // using the control panel wiring. if (uptr->u5 & URCSTA_LOAD) { - // load card -> use 8 words per card encoding - decode_8word_wiring(data, 0); + decode_8word_wiring(image, 0); if (uptr->u5 & URCSTA_SOAPSYMB) { // requested to load soap symb info - decode_soap_symb_info(data); + decode_soap_symb_info(image); } } else if (wiring == WIRING_SOAP) { // decode soap card simulating soap control panel wiring for 533 (gasp!) - decode_soap_wiring(data); + decode_soap_wiring(image, 0); + } else if (wiring == WIRING_SOAPA) { + // decode soap card for multipass sopa IIA + decode_soap_wiring(image, 1); + } else if (wiring == WIRING_SUPERSOAP) { + // decode super soap card + decode_supersoap_wiring(image); } else if (wiring == WIRING_IS) { // decode floating point interpretive system (bell interpreter) card - decode_is_wiring(data); + decode_is_wiring(image); + } else if (wiring == WIRING_RA) { + // decode Missile Systems Division Lockheed Aircraft Corporation - regional assembly card + if (decode_ra_wiring(image, HiPunch)) { + uptr->u5 |= URCSTA_LOAD; + } + } else if (wiring == WIRING_FDS) { + // decode Floating Decimal Systems + if (decode_fds_wiring(image, HiPunch)) { + uptr->u5 |= URCSTA_LOAD; + } } else if (wiring == WIRING_IT) { // decode Carnegie Internal Translator compiler card - decode_it_wiring(data); + decode_it_wiring(image); } else if (wiring == WIRING_FORTRANSIT) { // decode Fortransit translator card - decode_fortransit_wiring(data); + decode_fortransit_wiring(image); } else { // default wiring: decode up to 8 numerical words per card. Can be a load card - decode_8word_wiring(data, 0); + decode_8word_wiring(image, 0); } uptr->u5 &= ~URCSTA_BUSY; @@ -822,11 +1316,11 @@ cdr_attach(UNIT * uptr, CONST char *file) ncdr = uptr - &cdr_unit[1]; // ncdr is the card reader: 0 for cdr1, 1 for cdr2, 2 for cdr3 if ((ncdr >= 0) && (ncdr < 3)) { // safety check, not needed (should allways be true) but just to be sure // reset last read card number - ReadHopperLast[ncdr] = 0; + ReadStakerLast[ncdr] = 0; // clear buffer - ic1 = (ncdr * MAX_CARDS_IN_READ_TAKE_HOPPER) * 80; - ic2 = ic1 + MAX_CARDS_IN_READ_TAKE_HOPPER * 80; - for (i=ic1; i this is the global time measurement +t_int64 GlobalWordTimeCount=1; + + // 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 uint16 PROP; // Added register not part of cpu. Has operation code of current intr in execution, just for scp scripting purposes. Contains the two higher digits of PR register @@ -143,7 +168,6 @@ int AccNegativeZeroFlag = 0; // set to 1 if acc has a negati int DistNegativeZeroFlag = 0; // set to 1 if distributor has a negative zero int16 IR[3]; // Index registers. Are 4 digits as AR register, but signed - /* CPU data structures cpu_dev CPU device descriptor @@ -176,14 +200,18 @@ MTAB cpu_mod[] = { {UNIT_MSIZE, MEMAMOUNT(0), "1K", "1K", &cpu_set_size}, {UNIT_MSIZE, MEMAMOUNT(1), "2K", "2K", &cpu_set_size}, {UNIT_MSIZE, MEMAMOUNT(2), "4K", "4K", &cpu_set_size}, - {OPTION_STOR, 0, NULL, "NOSTORAGEUNIT", NULL}, - {OPTION_STOR, OPTION_STOR, "Storage Unit", "STORAGEUNIT", NULL}, - {OPTION_CNTRL, 0, NULL, "NOCNTRLUNIT", NULL}, - {OPTION_CNTRL, OPTION_CNTRL, "Control Unit", "CNTRLUNIT", NULL}, - {OPTION_SOAPMNE, 0, NULL, "DEFAULTMNE", NULL}, - {OPTION_SOAPMNE, OPTION_SOAPMNE, "Using SOAP Mnemonics", "SOAPMNE", NULL}, - {OPTION_FAST, 0, NULL, "REALTIME", NULL}, - {OPTION_FAST, OPTION_FAST, "Fast Execution", "FAST", NULL}, + {OPTION_STOR, 0, NULL, "NOSTORAGEUNIT", NULL}, + {OPTION_STOR, OPTION_STOR, "Storage Unit", "STORAGEUNIT", NULL}, + {OPTION_CNTRL, 0, NULL, "NOCNTRLUNIT", NULL}, + {OPTION_CNTRL, OPTION_CNTRL, "Control Unit", "CNTRLUNIT", NULL}, + {OPTION_SOAPMNE, 0, NULL, "DEFAULTMNE", NULL}, + {OPTION_SOAPMNE, OPTION_SOAPMNE, "Using SOAP Mnemonics", "SOAPMNE", NULL}, + {OPTION_FAST, 0, NULL, "REALTIME", NULL}, + {OPTION_FAST, OPTION_FAST, "Fast Execution", "FAST", NULL}, + {OPTION_TLE, 0, NULL, "NOTLE", NULL}, + {OPTION_TLE, OPTION_TLE, "Table Lookup on Equal", "TLE", NULL}, + {OPTION_1DSKARM, 0, NULL, "NOTLE", NULL}, + {OPTION_1DSKARM, OPTION_1DSKARM, "Enable 1 ARM RAMAC", "1DSKARM", NULL}, {0} }; @@ -195,6 +223,7 @@ 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. @@ -214,7 +243,7 @@ int IsDrumAddrOk(int AR, int ValidDA) // Drum address if ((AR >= 0) && (AR < DRUMSIZE)) return (ValidDA & vda_D) ? 1:0; - // cpu registers: acc (lo&hi), distibutor, console swithc reg: ok to check for Addr validity, ok to read, cannot write to it + // cpu registers: acc (lo&hi), distibutor, console switch reg: ok to check for Addr validity, ok to read, cannot write to it if ((AR >= 8000) && (AR <= 8003)) return (ValidDA & vda_A) ? 1:0; // index registers (ir) present if Storage Unit is enabled: ok to check for Addr validity, ok to read, cannot write to it @@ -404,7 +433,7 @@ int AddFloatToAcc(int bSubstractFlag, int bAbsFlag, int bNormalizeFlag) int n, neg; t_int64 d; - OV = 0; AccNegativeZeroFlag = 0; + AccNegativeZeroFlag = 0; nSteps = 0; n = GetExp(ACC[1]) - GetExp(DIST); @@ -485,7 +514,7 @@ int bAccNegComplement; // flag to signals acc has complemented a negative ass (= // add to accumulator, set Overflow void AddToAcc(t_int64 a1, t_int64 a0, int bSetOverflow) { - OV = 0; AccNegativeZeroFlag = 0; + AccNegativeZeroFlag = 0; bAccNegComplement = 0; ACC[0] += a0; @@ -563,10 +592,14 @@ t_int64 SetIA2(t_int64 d, int n) } // normalize to 4 digits, 10 complements -void NormalizeAddr(int * addr) +void NormalizeAddr(int * addr, int bAllowNegativeValue) { while (*addr >= 10000) *addr -= 10000; - while (*addr < 0) *addr += 10000; + if (bAllowNegativeValue) { + while (*addr <= -10000) *addr += 10000; + } else { + while (*addr < 0) *addr += 10000; + } } // apply index register to a tagged address @@ -575,23 +608,64 @@ void NormalizeAddr(int * addr) int ApplyIndexRegister(int * addr) { int n = 0; - int norm = 0; // check for tag and untag - if ((*addr >= 2000) && (*addr < 4000)) {n = 1; norm = 2000; } else - if ((*addr >= 4000) && (*addr < 6000)) {n = 2; norm = 4000; } else - if ((*addr >= 6000) && (*addr < 8000)) {n = 3; norm = 6000; } else - if ((*addr >= 9200) && (*addr < 9260)) {n = 1; norm = 200; } else - if ((*addr >= 9400) && (*addr < 9460)) {n = 2; norm = 400; } else - if ((*addr >= 9600) && (*addr < 9660)) {n = 3; norm = 600; } else + if ((*addr >= 2000) && (*addr < 4000)) {n = 1; *addr -= 2000; } else + if ((*addr >= 4000) && (*addr < 6000)) {n = 2; *addr -= 4000; } else + if ((*addr >= 6000) && (*addr < 8000)) {n = 3; *addr -= 6000; } else + if ((*addr >= 9200) && (*addr < 9400)) {n = 1; *addr -= 200; } else + if ((*addr >= 9400) && (*addr < 9600)) {n = 2; *addr -= 400; } else + if ((*addr >= 9600) && (*addr < 9800)) {n = 3; *addr -= 600; } else return 0; // address not tagged - *addr = *addr + IR[n-1] - norm; - NormalizeAddr(addr); + *addr = *addr + IR[n-1]; + NormalizeAddr(addr, 0); return 1; } +// apply index register to a tagged address for Model 4 +// removes tag, replace value with developed address +// return 1 if address was tagged, and has been replaced by developed addr +int ApplyIndexRegisterModel4(int * DA, int * IA) +{ + int n, tagDA, tagIA, nIndexApplied; + + tagDA = tagIA = 0; + + nIndexApplied = 0; + if ((*DA >= 9200) && (*DA < 9800)) { + nIndexApplied += ApplyIndexRegister(DA); + if ((*IA >= 9200) && (*IA < 9800)) { + nIndexApplied += ApplyIndexRegister(IA); + } + return nIndexApplied; + } + if ((*DA >= 4000) && (*DA < 8000)) { + *DA -= 4000; // remove tag on DA address + tagIA = 1; + } + if ((*IA >= 4000) && (*IA < 8000)) { + *IA -= 4000; // remove tag on IA address + tagDA = 1; + } else if ( ((*IA >= 8800) && (*IA < 8900)) || ((*IA >= 9800) && (*IA < 9900)) ) { + *IA -= 800; // remove tag on IA address + tagDA = 1; + } + + n = tagDA + 2 * tagIA; + if (n) { + *DA = *DA + IR[n-1]; + NormalizeAddr(DA, 0); + nIndexApplied++; + } + if ((*IA >= 9200) && (*IA < 9800)) { + nIndexApplied += ApplyIndexRegister(IA); + } + + return nIndexApplied; +} + // 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 @@ -599,18 +673,23 @@ int ApplyIndexRegister(int * addr) CONST char * DecodeOpcode(t_int64 d, int * opcode, int * DA, int * IA) { CONST char * opname; + int opt; *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 = (cpu_unit.flags & OPTION_SOAPMNE) ? base_ops[*opcode].name2 : base_ops[*opcode].name1; - if (base_ops[*opcode].option == opStorUnit) { + opt = base_ops[*opcode].option; // cpu option needed to have the opcode available + if (opt == opStorUnit) { // opcode available if IBM 653 Storage Unit is present if (STOR == 0) return NULL; - } else if (base_ops[*opcode].option == opCntrlUnit) { + } else if (opt == opCntrlUnit) { // opcode available if IBM 652 Control Unit is present if (CNTRL == 0) return NULL; + } else if (opt == opTLE) { + // opcode available if Table LookUo Feature is present + if ((cpu_unit.flags & OPTION_TLE) == 0) return NULL; } return opname; } @@ -621,24 +700,39 @@ CONST char * DecodeOpcode(t_int64 d, int * opcode, int * DA, int * IA) // return number of words transfered int TransferIAS(CONST char * dir, int bEOB) { - int n, f0, t0, f1, t1, ec; + int n, f0, t0, f1, t1, ec, ZeroNeg; + t_int64 d; + char s[6]; n = f0 = t0 = f1 = t1 = ec = 0; while (1) { - if (dir[0] == 'D') { - IAS[IAS_TimingRing] = DRUM[AR]; - IAS_NegativeZeroFlag[IAS_TimingRing] = DRUM_NegativeZeroFlag[AR]; - if (n==0) {f0=AR; t0=IAS_TimingRing;} - f1=AR; t1=IAS_TimingRing; + if (dir[0] == 'D') { + // copy drum to ias + d = IAS[IAS_TimingRing] = DRUM[AR]; + ZeroNeg = IAS_NegativeZeroFlag[IAS_TimingRing] = DRUM_NegativeZeroFlag[AR]; + sim_debug(DEBUG_DETAIL, &cpu_dev, "... DRUM %04d to IAS %04d: %06d%04d%c '%s'\n", + AR, IAS_TimingRing+9000, printfw(d,ZeroNeg), + word_to_ascii(s, 1, 5, d)); + if (n==0) {f0=AR; t0=IAS_TimingRing+9000;} + f1=AR; t1=IAS_TimingRing+9000; + // copy symbolic info from drum to ias (so code copies to ias to be executed faster + // keeps its symbolic info) + memset(&IAS_Symbolic_Buffer[IAS_TimingRing * 80], 0, 80); // clear ias symbolic info + sim_strlcpy(&IAS_Symbolic_Buffer[IAS_TimingRing * 80], + &DRUM_Symbolic_Buffer[AR * 80], 80); } else { - DRUM[AR] = IAS[IAS_TimingRing]; - DRUM_NegativeZeroFlag[AR] = IAS_NegativeZeroFlag[IAS_TimingRing]; - if (n==0) {t0=AR; f0=IAS_TimingRing;} - t1=AR; f1=IAS_TimingRing; + // copy ias to drum + d = DRUM[AR] = IAS[IAS_TimingRing]; + ZeroNeg = DRUM_NegativeZeroFlag[AR] = IAS_NegativeZeroFlag[IAS_TimingRing]; + sim_debug(DEBUG_DETAIL, &cpu_dev, "... IAS %04d to DRUM %04d: %06d%04d%c '%s'\n", + IAS_TimingRing+9000, AR, printfw(d,ZeroNeg), + word_to_ascii(s, 1, 5, d)); + if (n==0) {t0=AR; f0=IAS_TimingRing+9000;} + t1=AR; f1=IAS_TimingRing+9000; } n++; if ((AR % 50) == 49) { ec = 0; break; } - if (IAS_TimingRing == 9059) { ec = 1; break; } + if (IAS_TimingRing == 59) { ec = 1; break; } if ((bEOB) && ((IAS_TimingRing % 10) == 9)) { ec = 2; break; } AR++; IAS_TimingRing++; } @@ -646,7 +740,7 @@ int TransferIAS(CONST char * dir, int bEOB) f0, f1, t0, t1, n); sim_debug(DEBUG_DATA, &cpu_dev, " ended by end of %s condition\n", (ec == 0) ? "Drum band" : (ec == 1) ? "IAS" : "IAS Block"); - IAS_TimingRing = (IAS_TimingRing + 1) % 60; // incr timing ring at end of pch + IAS_TimingRing = (IAS_TimingRing + 1) % 60; // incr timing ring at end of transfer return n; } @@ -663,7 +757,7 @@ t_stat ExecOpcode(int opcode, int DA, { t_stat reason = 0; t_int64 d; - int i, n, neg; + int i, n, neg, SvOV; int bUsingIAS; *bBranchToDA = 0; @@ -690,7 +784,7 @@ t_stat ExecOpcode(int opcode, int DA, 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; + AccNegativeZeroFlag = 0; ACC[1] = 0; ACC[0] = d; sim_debug(DEBUG_DETAIL, &cpu_dev, "... ACC: %06d%04d %06d%04d%c, OV: %d\n", @@ -716,7 +810,6 @@ t_stat ExecOpcode(int opcode, int DA, // 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; @@ -741,7 +834,6 @@ t_stat ExecOpcode(int opcode, int DA, // 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; @@ -768,7 +860,6 @@ t_stat ExecOpcode(int opcode, int DA, // 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, "... Mult result ACC: 0000000000 0000000000- (Minus Zero), OV: 0\n"); // acc set to minus zero ACC[1] = ACC[0] = 0; @@ -776,7 +867,7 @@ t_stat ExecOpcode(int opcode, int DA, break; } *CpuStepsUsed = 0; - OV = 0; + SvOV=OV; OV=0; neg = (DIST < 0) ? 1:0; if (AccNegative) neg = 1-neg; d = AbsWord(DIST); ACC[0] = AbsWord(ACC[0]); @@ -795,6 +886,7 @@ t_stat ExecOpcode(int opcode, int DA, ACC[0] = -ACC[0]; ACC[1] = -ACC[1]; } + if (SvOV==1) OV=1; // if overflow was set at beginning of opcode execution, keeps its state sim_debug(DEBUG_DETAIL, &cpu_dev, "... ACC: %06d%04d %06d%04d%c, OV: %d\n", printfa, OV); @@ -816,13 +908,14 @@ t_stat ExecOpcode(int opcode, int DA, OV); sim_debug(DEBUG_DETAIL, &cpu_dev, "... by DIST: %06d%04d%c\n", printfd); + SvOV=OV; if (DIST == 0) { OV = 1; - sim_debug(DEBUG_DETAIL, &cpu_dev, "Divide By Zero -> OV set\n"); + sim_debug(DEBUG_EXP, &cpu_dev, "Divide By Zero -> OV set and ERROR\n"); reason = STOP_OV; // divisor zero allways stops the machine } else if (AbsWord(DIST) <= AbsWord(ACC[1])) { OV = 1; - sim_debug(DEBUG_DETAIL, &cpu_dev, "Quotient Overflow -> OV set and ERROR\n"); + sim_debug(DEBUG_EXP, &cpu_dev, "Quotient Overflow -> OV set and ERROR\n"); reason = STOP_OV; // quotient overfow allways stops the machine } else { *CpuStepsUsed = 0; @@ -852,6 +945,7 @@ t_stat ExecOpcode(int opcode, int DA, +(DrumAddr % 2) // wait for even +*CpuStepsUsed + 40; // i holds the number of loops done } + if (SvOV==1) OV=1; // if overflow was set at beginning of opcode execution, keeps its state sim_debug(DEBUG_DETAIL, &cpu_dev, "... Div result ACC: %06d%04d %06d%04d%c, OV: %d\n", printfa, OV); @@ -867,9 +961,8 @@ t_stat ExecOpcode(int opcode, int DA, d = ShiftAcc((opcode == OP_SLT) ? 1:-1); } if (opcode == OP_SRD) { - if (d <= - 5) AddToAcc(0,-1,1); - if (d >= 5) AddToAcc(0,+1,1); - OV = 0; + if (d <= - 5) AddToAcc(0,-1,0); + if (d >= 5) AddToAcc(0,+1,0); } sim_debug(DEBUG_DETAIL, &cpu_dev, "... ACC: %06d%04d %06d%04d%c, OV: %d\n", printfa, @@ -887,33 +980,26 @@ t_stat ExecOpcode(int opcode, int DA, + ((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) + n = DA % 10; + if (n>0) n=10-n; // shift count (ten's complement of unit digit of DA, or zero if digit is zero) neg = AccNegative; // save acc sign ACC[0] = AbsWord(ACC[0]); ACC[1] = AbsWord(ACC[1]); - 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 + i=0; + if (Get_HiDigit(ACC[1]) > 0) { + // no shift, two low orfer digits replaced by zero 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++; + ShiftAcc(1); // shift left + i++; // number of shift + n++; // count } - ACC[0] = SetIA2(ACC[0], n); // replace last two digits by 00 + ACC[0] = SetIA2(ACC[0], n); // replace last two digits by count n } AccNegativeZeroFlag = 0; if (neg) {ACC[0] = -ACC[0]; ACC[1] = -ACC[1]; } @@ -922,7 +1008,7 @@ t_stat ExecOpcode(int opcode, int DA, OV); *CpuStepsUsed = 1+1+1 +(DrumAddr % 2) // wait for even - + 2*(DA % 10); // number of shifts done + + 2*i; // number of shifts done break; // load and store case OP_STL: // Store Lower in Mem @@ -974,8 +1060,9 @@ t_stat ExecOpcode(int opcode, int DA, +(DrumAddr % 2); // wait for even break; case OP_LD: // Load Distributor - *CpuStepsUsed = 1+1+1+1; + *CpuStepsUsed = 1+1+1+1; break; + case OP_TLE: // Table lookup on equal case OP_TLU: // Table lookup { char s[6]; @@ -993,13 +1080,16 @@ t_stat ExecOpcode(int opcode, int DA, while (1) { AR++; n++; if (0==IsDrumAddrOk(AR, vda_DS)) { - sim_debug(DEBUG_DETAIL, &cpu_dev, "Invalid AR addr %d ERROR\n", AR); + sim_debug(DEBUG_EXP, &cpu_dev, "Invalid AR addr %d ERROR\n", AR); reason = STOP_ADDR; break; } if ((bUsingIAS == 0) && ((AR % 50) > 47)) continue; // skip addr 48 & 49 of band that cannot be used for tables ReadAddr(AR, &d, NULL); // read table argument - if (AbsWord(d) >= AbsWord(DIST)) { + if ( (opcode == OP_TLU) ? + (AbsWord(d) >= AbsWord(DIST)) : + (AbsWord(d) == AbsWord(DIST)) + ) { sim_debug(DEBUG_DETAIL, &cpu_dev, "... Found %04d: %06d%04d%c '%s'\n", AR, printfw(d,0), word_to_ascii(s, 1, 5, d)); @@ -1023,7 +1113,7 @@ t_stat ExecOpcode(int opcode, int DA, 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; + d = AbsWord(DIST); n = opcode - OP_BRD10; if (n == 0) n = 10; while (--n > 0) d = d / 10; d = d % 10; @@ -1035,7 +1125,7 @@ t_stat ExecOpcode(int opcode, int DA, 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); + sim_debug(DEBUG_EXP, &cpu_dev, "Digit is %d -> Branch ERROR\n", (int32) d); reason = STOP_ERRO; break; } @@ -1085,25 +1175,42 @@ t_stat ExecOpcode(int opcode, int DA, } *CpuStepsUsed = 1+1 + ((*bBranchToDA) ? 1:0); // one extra step needed if branch taken + // BOV resets overflow + OV=0; break; // Card I/O case OP_RD: // Read a card + case OP_RD2: + case OP_RD3: + case OP_RC1: + case OP_RC2: + case OP_RC3: bUsingIAS = (AR >= 9000) ? 1:0; { char s[6]; + int nUnit, area, nIL; + + if ((opcode == OP_RD2) || (opcode == OP_RC2)) { + nUnit = 2; nIL = IL_RD23; area = 13; + } else if ((opcode == OP_RD3) || (opcode == OP_RC3)) { + nUnit = 3; nIL = IL_RD23; area = 13; + } else { + nUnit = 1; nIL = IL_RD1; area = 1; + } if (bUsingIAS == 0) { - AR = (DA / 50) * 50 + 1; // Drum Read Band is XX01 to XX10 or XX51 to XX60 + AR = (DA / 50) * 50 + area; // Drum Read Band is XX01 to XX10 or XX51 to XX60 } - reason = cdr_cmd(&cdr_unit[1], IO_RDS, AR); + reason = cdr_cmd(&cdr_unit[nUnit], 0, AR); if (reason == SCPE_NOCARDS) { - reason = STOP_CARD; + reason = STOP_IO; break; } else if (reason != SCPE_OK) { break; } // copy card data from IO Sync buffer to drum/ias + sim_debug(DEBUG_DETAIL, &cpu_dev, "... Read Card Unit CDR%d\n", nUnit); for (i=0;i<10;i++) { sim_debug(DEBUG_DETAIL, &cpu_dev, "... Read Card %04d: %06d%04d%c '%s'\n", AR+i, printfw(IOSync[i],IOSync_NegativeZeroFlag[i]), @@ -1123,23 +1230,35 @@ t_stat ExecOpcode(int opcode, int DA, sim_debug(DEBUG_DETAIL, &cpu_dev, "... Is a LOAD Card\n"); *bBranchToDA = 1; // load card -> next instr is taken from DA } + // 300 msec read cycle, 270 available for computing + *CpuStepsUsed = msec_to_wordtime(30); // 30 msec div 0.096 msec word time; + InterLockCount[nIL] = msec_to_wordtime(300); // set interlock 300 msec for card read processing } - // 300 msec read cycle, 270 available for computing - *CpuStepsUsed = 312; // 30 msec div 0.096 msec word time; - InterLockCount[IL_RD1] = 3120; // 300 msec for read card processing break; case OP_PCH: // Punch a card + case OP_WR2: + case OP_WR3: bUsingIAS = (AR >= 9000) ? 1:0; { char s[6]; + int nUnit, area, nIL; + + if (opcode == OP_WR2) { + nUnit = 2; nIL = IL_WR23; area = 39; + } else if (opcode == OP_WR3) { + nUnit = 3; nIL = IL_WR23; area = 39; + } else { + nUnit = 1; nIL = IL_RD1; area = 27; + } if (bUsingIAS == 0) { - AR = (DA / 50) * 50 + 27; // Drum Read Band is XX27 to XX36 or XX77 to XX86 + AR = (DA / 50) * 50 + area; // Drum Read Band is XX27 to XX36 or XX77 to XX86 } // clear IO Sync buffer for (i=0;i<10;i++) IOSync[i] = IOSync_NegativeZeroFlag[i] = 0; // copy card data to IO Sync buffer from drum/ias + sim_debug(DEBUG_DETAIL, &cpu_dev, "... Punch Card Unit CDP%d\n", nUnit); for (i=0;i<10;i++) { if (bUsingIAS == 0) { IOSync[i] = DRUM[AR + i]; @@ -1148,26 +1267,30 @@ t_stat ExecOpcode(int opcode, int DA, n = AR - 9000 + i; IOSync[i] = IAS[n]; IOSync_NegativeZeroFlag[i] = IAS_NegativeZeroFlag[n]; - IAS_TimingRing = i; - if ((n % 10) == 9) break; // hit ias end of block, terminate even if transfered less than 10 words + IAS_TimingRing = n; } sim_debug(DEBUG_DETAIL, &cpu_dev, "... Punch Card %04d: %06d%04d%c '%s'\n", AR+i, printfw(IOSync[i],IOSync_NegativeZeroFlag[i]), word_to_ascii(s, 1, 5, IOSync[i])); + if (bUsingIAS) { + // punching from IAS. If hit ias end of block, terminate even + // if transfered less than 10 words (rest of words were filled with zeroes) + if ((n % 10) == 9) break; + } } - reason = cdp_cmd(&cdp_unit[1], IO_WRS,AR); + reason = cdp_cmd(&cdp_unit[nUnit], 0,AR); if (reason == SCPE_NOCARDS) { - reason = STOP_CARD; + reason = STOP_IO; break; } else if (reason != SCPE_OK) { break; } if (bUsingIAS) IAS_TimingRing = (IAS_TimingRing + 1) % 60; // incr timing ring at end of pch + // 600 msec punch cycle, 565 available for computing + *CpuStepsUsed = msec_to_wordtime(35); // 35 msec div 0.096 msec word time; + InterLockCount[nIL] = msec_to_wordtime(600); // set interlock 600 msec for card punch processing } - // 600 msec punch cycle, 565 available for computing - *CpuStepsUsed = 365; // 35 msec div 0.096 msec word time; - InterLockCount[IL_WR1] = 6250; // 600 msec for punch card processing break; // IAS - Immediate Access Storage case OP_SET: // Set IAS Timing Ring @@ -1182,11 +1305,11 @@ t_stat ExecOpcode(int opcode, int DA, *CpuStepsUsed = 1+1+1+n; break; case OP_LIB: // Load IAS Block (from Drum) - n = TransferIAS("D->I", 1); // transfer drum to ias, end of ias block does not terminate transfer + n = TransferIAS("D->I", 1); // transfer drum to ias, end of ias block does terminate transfer *CpuStepsUsed = 1+1+1+n; break; case OP_SIB: // Store IAS Block (to Drum) - n = TransferIAS("I->D", 1); // transfer ias to drum, end of ias block does not terminate transfer + n = TransferIAS("I->D", 1); // transfer ias to drum, end of ias block does terminate transfer *CpuStepsUsed = 1+1+1+n; break; // Index Register @@ -1198,14 +1321,16 @@ t_stat ExecOpcode(int opcode, int DA, if ((opcode == OP_RAA) || (opcode == OP_RSA)) n = 0; if (DA >= 8000) { ReadAddr(DA, &d, NULL); + DIST=d; DistNegativeZeroFlag=0; + sim_debug(DEBUG_DATA, &cpu_dev, "... Read %04d: %06d%04d%c\n", DA, printfd); i = (int) (d % D4); } else { i = DA; } n = n + (((opcode == OP_AXA) || (opcode == OP_RAA)) ? i : -i); - NormalizeAddr(&n); - sim_debug(DEBUG_DETAIL, &cpu_dev, "... IRA: %04d\n", - n); + NormalizeAddr(&n, 1); + sim_debug(DEBUG_DETAIL, &cpu_dev, "... IRA: %04d%c\n", + abs(n), n<0?'-':'+'); IR[0] = n; *CpuStepsUsed = 1+1+1; break; @@ -1217,14 +1342,16 @@ t_stat ExecOpcode(int opcode, int DA, if ((opcode == OP_RAB) || (opcode == OP_RSB)) n = 0; if (DA >= 8000) { ReadAddr(DA, &d, NULL); + DIST=d; DistNegativeZeroFlag=0; + sim_debug(DEBUG_DATA, &cpu_dev, "... Read %04d: %06d%04d%c\n", DA, printfd); i = (int) (d % D4); } else { i = DA; } n = n + (((opcode == OP_AXB) || (opcode == OP_RAB)) ? i : -i); - NormalizeAddr(&n); - sim_debug(DEBUG_DETAIL, &cpu_dev, "... IRB: %04d\n", - n); + NormalizeAddr(&n, 1); + sim_debug(DEBUG_DETAIL, &cpu_dev, "... IRB: %04d%c\n", + abs(n), n<0?'-':'+'); IR[1] = n; *CpuStepsUsed = 1+1+1; break; @@ -1236,14 +1363,16 @@ t_stat ExecOpcode(int opcode, int DA, if ((opcode == OP_RAC) || (opcode == OP_RSC)) n = 0; if (DA >= 8000) { ReadAddr(DA, &d, NULL); + DIST=d; DistNegativeZeroFlag=0; + sim_debug(DEBUG_DATA, &cpu_dev, "... Read %04d: %06d%04d%c\n", DA, printfd); i = (int) (d % D4); } else { i = DA; } n = n + (((opcode == OP_AXC) || (opcode == OP_RAC)) ? i : -i); - NormalizeAddr(&n); - sim_debug(DEBUG_DETAIL, &cpu_dev, "... IRC: %04d\n", - n); + NormalizeAddr(&n, 1); + sim_debug(DEBUG_DETAIL, &cpu_dev, "... IRC: %04d%c\n", + abs(n), n<0?'-':'+'); IR[2] = n; *CpuStepsUsed = 1+1+1; break; @@ -1252,8 +1381,8 @@ t_stat ExecOpcode(int opcode, int DA, case OP_BMC: i = ((opcode == OP_BMA) ? 0 : (opcode == OP_BMB) ? 1 : 2); n = IR[i]; - sim_debug(DEBUG_DETAIL, &cpu_dev, "... IR%c: %04d\n", - i+'A', n); + sim_debug(DEBUG_DETAIL, &cpu_dev, "... IR%c: %04d%c\n", + i+'A', abs(n), n<0?'-':'+'); if (n<0) { sim_debug(DEBUG_DETAIL, &cpu_dev, "Is Negative -> Branch Taken\n"); *bBranchToDA = 1; @@ -1266,10 +1395,10 @@ t_stat ExecOpcode(int opcode, int DA, case OP_NZC: i = ((opcode == OP_NZA) ? 0 : (opcode == OP_NZB) ? 1 : 2); n = IR[i]; - sim_debug(DEBUG_DETAIL, &cpu_dev, "... IR%c: %04d\n", - i+'A', n); - if (n==0) { - sim_debug(DEBUG_DETAIL, &cpu_dev, "Is Zero -> Branch Taken\n"); + sim_debug(DEBUG_DETAIL, &cpu_dev, "... IR%c: %04d%c\n", + i+'A', abs(n), n<0?'-':'+'); + if (n!=0) { + sim_debug(DEBUG_DETAIL, &cpu_dev, "Is Non Zero -> Branch Taken\n"); *bBranchToDA = 1; } *CpuStepsUsed = 1+1 @@ -1298,7 +1427,7 @@ t_stat ExecOpcode(int opcode, int DA, OV); sim_debug(DEBUG_DETAIL, &cpu_dev, "... by DIST: %06d%04d%c\n", printfd); - OV = 0; + SvOV=OV; OV = 0; if (((ACC[1] / 100) == 0) || ((DIST / 100) == 0)) { // if any mantissa is zero -> multiply by zero -> result = 0 ACC[1] = ACC[0] = 0; @@ -1321,6 +1450,7 @@ t_stat ExecOpcode(int opcode, int DA, } MantissaRoundAndNormalizeToFloat(CpuStepsUsed, neg, exp); } + if (SvOV==1) OV=1; // if overflow was set at beginning of opcode execution, keeps its state sim_debug(DEBUG_DETAIL, &cpu_dev, "... FP Mult result ACC: %06d%04d %06d%04d%c, OV: %d\n", printfa, OV); @@ -1332,8 +1462,8 @@ t_stat ExecOpcode(int opcode, int DA, printfa, OV); sim_debug(DEBUG_DETAIL, &cpu_dev, "... by DIST: %06d%04d%c\n", - printfd); - OV = 0; + printfd); + SvOV=OV; OV = 0; if ((DIST / 100) == 0) { // check mantissa for zero, not exponent OV = 1; sim_debug(DEBUG_DETAIL, &cpu_dev, "Divide By Zero -> OV set and ERROR\n"); @@ -1342,8 +1472,7 @@ t_stat ExecOpcode(int opcode, int DA, // if dividend is zero -> result = 0 ACC[1] = ACC[0] = 0; } else { - int exp = GetExp(ACC[1]) - GetExp(DIST) + 50; - + int exp = GetExp(ACC[1]) - GetExp(DIST) + 50; neg = (DIST < 0) ? -1:1; if (AccNegative) neg = -neg; ACC[1] = AbsWord(ACC[1]) / 100; @@ -1362,14 +1491,117 @@ t_stat ExecOpcode(int opcode, int DA, *CpuStepsUsed = *CpuStepsUsed + 2; } ACC[1] = ACC[0]; - MantissaRoundAndNormalizeToFloat(CpuStepsUsed, neg, exp); + MantissaRoundAndNormalizeToFloat(CpuStepsUsed, neg, exp); } + if (SvOV==1) OV=1; // if overflow was set at beginning of opcode execution, keeps its state sim_debug(DEBUG_DETAIL, &cpu_dev, "... FP Div result ACC: %06d%04d %06d%04d%c, OV: %d\n", printfa, OV); *CpuStepsUsed = 1+1+2+2+16+2+1+ *CpuStepsUsed +(DrumAddr % 2); // wait for even break; + // tape opcodes + case OP_RTC: // Read Tape Check + sim_debug(DEBUG_DETAIL, &cpu_dev, "... Tape %d read check\n", DA % 10); + goto tape_opcode; + case OP_RTA: // Read Tape Alphanumeric + case OP_RTN: // Read Tape Numeric + sim_debug(DEBUG_DETAIL, &cpu_dev, "... Tape %d read at IAS: %04d\n", DA % 10, IAS_TimingRing + 9000); + goto tape_opcode; + case OP_WTN: // Write Tape Numeric + case OP_WTA: // Write Tape Alphabetic + sim_debug(DEBUG_DETAIL, &cpu_dev, "... Tape %d write from IAS: %04d\n", DA % 10, IAS_TimingRing + 9000); + goto tape_opcode; + case OP_WTM: // Write Tape Mark + sim_debug(DEBUG_DETAIL, &cpu_dev, "... Tape %d write tape mark\n", DA % 10); + goto tape_opcode; + case OP_BST: // BackStep Tape + sim_debug(DEBUG_DETAIL, &cpu_dev, "... Tape %d backspace record\n", DA % 10); + goto tape_opcode; + case OP_RWD: // rewind + sim_debug(DEBUG_DETAIL, &cpu_dev, "... Tape %d rewind\n", DA % 10); + tape_opcode: + n = (DA % 10); + if ((n < 0) || (n > 5)) { + sim_debug(DEBUG_EXP, &cpu_dev, "Invalid Tape addr %d ERROR\n", AR); + reason = STOP_ADDR; + break; + } + reason = mt_cmd(&mt_unit[n], opcode, FAST); + if (reason == SCPE_OK) { + // tape command terminated + } else if (reason == SCPE_OK_INPROGRESS) { + // tape command in progress. + // Set interlock on Control Unit. Will be removed by mt_svr when tape operation terminates + InterLockCount[IL_Tape] = msec_to_wordtime(5*60*1000); + // Set interlock on IAS if read/write from/to IAS. Will be removed by mt_svr when tape operation terminates + if ((opcode == OP_RTN) || (opcode == OP_RTA) || (opcode == OP_WTN) || (opcode == OP_WTA)){ + InterLockCount[IL_IAS] = msec_to_wordtime(5*60*1000); ; + } + reason = SCPE_OK; + } else { + // other reason are unexpected errors and terminates the opcode execution + break; + } + *CpuStepsUsed = 1+1+1+1+1; + break; + case OP_NTS: // Branch on No Tape Signal + case OP_NEF: // Branch on No End of File + sim_debug(DEBUG_DETAIL, &cpu_dev, "... Tape Signal is %s\n", TapeIndicatorStr[LastTapeIndicator]); + if ((opcode == OP_NTS) && (LastTapeIndicator == 0)) { + sim_debug(DEBUG_DETAIL, &cpu_dev, "No Tape Signal -> Branch Taken\n"); + *bBranchToDA = 1; + } + if ((opcode == OP_NEF) && (LastTapeIndicator != MT_IND_EOF)) { + sim_debug(DEBUG_DETAIL, &cpu_dev, "No End of File -> Branch Taken\n"); + *bBranchToDA = 1; + } + *CpuStepsUsed = 1+1 + + ((*bBranchToDA) ? 1:0); // one extra step needed if branch taken + break; + // disk opcodes + case OP_SDS: // seek + case OP_RDS: // seek + case OP_WDS: // seek + sim_debug(DEBUG_DETAIL, &cpu_dev, "... DIST: %06d%04d%c\n", printfd); + n = abs((int)(DIST % D8)) % 1000000; // ramac operation address + sim_debug(DEBUG_DETAIL, &cpu_dev, "... RAMAC %s on Unit %d, Disk %d, Track %d, Arm %d started\n", + (opcode == OP_SDS) ? "SEEK" : (opcode == OP_RDS) ? "READ" : "WRITE", + i=(n / 100000) % 10, // unit + (n / 1000) % 100, // disk + (n / 10) % 100, // track + neg=(n % 10) // arm + ); + if (neg > 2) { + sim_debug(DEBUG_EXP, &cpu_dev, "Arm out of range (should be 0..2)\n"); + reason = STOP_IO; // selected arm or unit out of range + } + if (i > 3) { + sim_debug(DEBUG_EXP, &cpu_dev, "Unit out of range (should be 0..3)\n"); + reason = STOP_IO; // selected arm or unit out of range + } + if (cpu_unit.flags & OPTION_1DSKARM) { + // if 1 arm per disk enabled, alisase all disck comands to be executed on arm 0 + n = (n / 10)*10; + } + reason = dsk_cmd(opcode, n, FAST); + if (reason == SCPE_OK) { + // disk command terminated + } else if (reason == SCPE_OK_INPROGRESS) { + // disk command in progress. + // Set interlock on Ramac Disk Control Unit. Will be removed by dsk_svr when disk operation terminates + InterLockCount[IL_RamacUnit] = msec_to_wordtime(75); + // Set interlock on IAS if read/write from/to IAS. Will be removed by dsk_svr when disk operation terminates + if ((opcode == OP_RDS) || (opcode == OP_WDS)){ + InterLockCount[IL_IAS] = msec_to_wordtime(5*60*1000); ; + } + reason = SCPE_OK; + } else { + // other reason are unexpected errors and terminates the opcode execution + break; + } + *CpuStepsUsed = 1+1+1+1+1; + break; default: reason = STOP_UUO; break; @@ -1379,30 +1611,81 @@ t_stat ExecOpcode(int opcode, int DA, return reason; } -// return 1 if must wait for storage +// return 2 if must wait for drum rotation, return 1 if must wait for IAS interlock release int WaitForStorage(int AR) { if ((AR >= 0) && (AR < DRUMSIZE)) { - if ((AR % 50) != DrumAddr) return 1; // yes, must wait for drum + if ((AR % 50) != DrumAddr) return 2; // yes, must wait for drum } else if ((STOR) && (AR >= 9000) && (AR < 9060)) { if (InterLockCount[IL_IAS] > 0) return 1; // yes, IAS was interlocked. Must wait until interlock is released } return 0; } +// return 1 if must wait for interlock release +int WaitForInterlock(int nInterlock) +{ + int n, arm; + + // handle combined interlocks + if (nInterlock == IL_Tape_and_Unit_and_IAS) { + if (WaitForInterlock(IL_IAS)) return 1; + if (WaitForInterlock(IL_Tape)) return 1; + if (WaitForInterlock(-1)) return 1; // check for interlock on tape unit + return 0; + } else if (nInterlock == IL_Tape_and_Unit) { + if (WaitForInterlock(IL_Tape)) return 1; + if (WaitForInterlock(-1)) return 1; // check for interlock on tape unit + return 0; + } else if (nInterlock == IL_RamacUnit_and_Arm_and_IAS) { + if (WaitForInterlock(IL_IAS)) return 1; + if (WaitForInterlock(IL_RamacUnit)) return 1; + if (WaitForInterlock(-2)) return 1; // check for interlock on disk unit + return 0; + } else if (nInterlock == IL_RamacUnit_and_Arm) { + if (WaitForInterlock(IL_RamacUnit)) return 1; + if (WaitForInterlock(-2)) return 1; // check for interlock on ramac disk unit arm + return 0; + } + // handle interlock on tape unit + if (nInterlock == -1) { + // get tape unit referenced by current opcode from intruction DA + n = (PR / D4) % 10; + if ((n < 0) || (n > 5)) return 0; // invalid tape addr -> no interlock wait + return mt_ready(n) ? 0:1; // if tape ready -> return 0 -> no need to wait for tape unit + } + // handle interlock on disk unit arm + if (nInterlock == -2) { + // get disk unit and arm referenced by current DIST (distributor) value + n = abs((int)(DIST % D8)); + arm = n % 10; + n = n / 100000; + if ((arm > 2) || (n > 3)) return 0; // invalid arm/disk unit -> no interlock wait + if (cpu_unit.flags & OPTION_1DSKARM) { + // if 1 arm per disk enabled, alisase all disck comands to be executed on arm 0 + arm=0; + } + return dsk_ready(n, arm) ? 0:1; // if disk unit arm ready -> return 0 -> no need to wait + } + + // handle single interlock + return InterLockCount[nInterlock]; +} + t_stat sim_instr(void) { t_stat reason; - int opcode, halt_cpu; + int opcode, halt_cpu_requested; int bReadData, bWriteDrum, bBranchToDA; int instr_count = 0; /* Number of instructions to execute */ const char * opname; /* points to opcode name */ + char * Symbolic_Buffer; int IA = 0; // Instr Address: addr of next inst int DA = 0; // Data Address; addr of data to be used by current inst - int MachineCycle, CpuStepsUsed, il, WaitForInterlock; + int MachineCycle, CpuStepsUsed, il, nInterlock, bInterLockWaitMsg, bFastMode; /* How CPU execution is simulated @@ -1447,7 +1730,7 @@ sim_instr(void) sim_cancel_step(); } - reason = halt_cpu = 0; + reason = halt_cpu_requested = 0; MachineCycle = CpuStepsUsed = 0; DrumAddr = 0; @@ -1463,19 +1746,23 @@ sim_instr(void) ProgStopFlag = 0; } - WaitForInterlock = 0; // clear interlocks - for (il=0;il this is the global time measurement + GlobalWordTimeCount++; + // if any interlock set, decrease it - for (il=0;il 0) InterLockCount[il]--; + for (il=0;il < sizeof(InterLockCount)/ sizeof(InterLockCount[0]) ;il++) { + if (InterLockCount[il] > 0) InterLockCount[il]--; + } // decrease pending to execute step intruction count if (CpuStepsUsed > 0) CpuStepsUsed--; @@ -1518,7 +1811,14 @@ sim_instr(void) continue; } // should wait for storage to fetch inst? - if (FAST == 0) if (WaitForStorage(AR)) continue; // yes + if (bFastMode == 0) { + il=WaitForStorage(AR); + if ((il==1) && (bInterLockWaitMsg == 0)) { + bInterLockWaitMsg = 1; + sim_debug(DEBUG_DETAIL, &cpu_dev, "Wait for interlock on IAS to fetch opcode at %04d\n", AR); + } + if (il>0) continue; // yes, wait for storage to fetch inst + } // init inst execution CpuStepsUsed = 0; @@ -1534,10 +1834,20 @@ sim_instr(void) } // decode inst opname = DecodeOpcode(PR, &opcode, &DA, &IA); + // get symbolic info if any + if ((AR < MAXDRUMSIZE) && (DRUM_Symbolic_Buffer[AR * 80] > 0)) { + // drum symb info + Symbolic_Buffer = &DRUM_Symbolic_Buffer[AR * 80]; + } else if ((AR >= 9000) && (AR < 9060)) { + // ias symb info + Symbolic_Buffer = &IAS_Symbolic_Buffer[(AR - 9000) * 80]; + } else { + Symbolic_Buffer = 0; + } sim_debug(DEBUG_CMD, &cpu_dev, "Exec %04d: %02d %-6s %04d %04d %s%s\n", IC, opcode, (opname == NULL) ? "???":opname, DA, IA, - ((AR >= MAXDRUMSIZE) || (DRUM_Symbolic_Buffer[AR * 80] == 0)) ? "" : " symb: ", - (AR >= MAXDRUMSIZE) ? "" : &DRUM_Symbolic_Buffer[AR * 80]); + (Symbolic_Buffer) ? " symb: ": "", + (Symbolic_Buffer) ? Symbolic_Buffer : ""); PROP = (uint16) opcode; if (opname == NULL) { reason = STOP_UUO; @@ -1546,7 +1856,11 @@ sim_instr(void) // if DA or IA tagged, modify DA or IA to remove tag and set the developed address in PR if (STOR) { int nIndexsApplied; - nIndexsApplied = ApplyIndexRegister(&DA) + ApplyIndexRegister(&IA); + if (DRUM4K) { + nIndexsApplied = ApplyIndexRegisterModel4(&DA, &IA); + } else { + nIndexsApplied = ApplyIndexRegister(&DA) + ApplyIndexRegister(&IA); + } if (nIndexsApplied > 0) { CpuStepsUsed += nIndexsApplied; PR = (t_int64) opcode * D8 + (t_int64) DA * D4 + (t_int64) IA; @@ -1562,31 +1876,55 @@ sim_instr(void) // simulates the machine working on half cycles if (HalfCycle == 1) { // 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 + HalfCycle = 2; // bump half cycle to exec D-Half on next scp step + reason = SCPE_STEP; // then break beacuse I-Half finished break; } bReadData = (base_ops[opcode].opRW & opReadDA) ? 1:0; // check if opcode should wait for and already set interlock - WaitForInterlock = base_ops[opcode].opInterLock; + nInterlock = base_ops[opcode].opInterLock; + bInterLockWaitMsg = 0; MachineCycle = 2; } // WAIT FOR DATA READ if (MachineCycle == 2) { - // should wait to exec the inst (the address untagging) ? - if (FAST == 0) if (CpuStepsUsed > 0) continue; // yes + // should wait before exec the inst (time for address untagging) ? + if (bFastMode == 0) if (CpuStepsUsed > 0) continue; // yes // should wait for interlock release for opcode execution? - if (WaitForInterlock) { - if (FAST == 0) if (InterLockCount[WaitForInterlock] > 0) continue; // interlock makes execution wait - InterLockCount[WaitForInterlock] = 0; // clear interlock - WaitForInterlock = 0; + if (nInterlock) { + if (bFastMode == 0) if (WaitForInterlock(nInterlock)) { + if (bInterLockWaitMsg == 0) { + bInterLockWaitMsg = 1; + sim_debug(DEBUG_DETAIL, &cpu_dev, "Wait for interlock on %s\n", + (nInterlock==IL_RD1) ? "RD1" : + (nInterlock==IL_WR1) ? "WR1" : + (nInterlock==IL_RD23) ? "RD23" : + (nInterlock==IL_WR23) ? "WR23" : + (nInterlock==IL_IAS) ? "IAS" : + (nInterlock==IL_Tape) ? "TCI" : + (nInterlock==IL_Tape_and_Unit_and_IAS) ? "IAS+TCI+Tape Unit ready" : + (nInterlock==IL_Tape_and_Unit) ? "TCI+Tape Unit ready" : + (nInterlock==IL_RamacUnit) ? "RAMAC Unit" : + (nInterlock==IL_RamacUnit_and_Arm) ? "RAMAC Unit+Arm" : + (nInterlock==IL_RamacUnit_and_Arm_and_IAS) ? "IAS+RAMAC Unit+Arm" : + "???"); + } + continue; // yes, wait for interlock + } } // should wait for storage to fetch data? if (bReadData) { - if (FAST == 0) if (WaitForStorage(AR)) continue; // yes + if (bFastMode == 0) { + il=WaitForStorage(AR); + if ((il==1) && (bInterLockWaitMsg == 0)) { + bInterLockWaitMsg = 1; + sim_debug(DEBUG_DETAIL, &cpu_dev, "Wait for interlock on IAS to read at %04d\n",AR); + } + if (il>0) continue; // yes, wait for drum rotation/IAS ready + } } MachineCycle = 3; @@ -1627,10 +1965,17 @@ sim_instr(void) // WAIT FOR DATA WRITE if (MachineCycle == 4) { // should wait to exec the inst (opcode execution) ? - if (FAST == 0) if (CpuStepsUsed > 0) continue; // yes + if (bFastMode == 0) if (CpuStepsUsed > 0) continue; // yes // should wait for storage to store data? if (bWriteDrum) { - if (FAST == 0) if (WaitForStorage(AR)) continue; // yes + if (bFastMode == 0) { + il=WaitForStorage(AR); + if ((il==1) && (bInterLockWaitMsg == 0)) { + bInterLockWaitMsg = 1; + sim_debug(DEBUG_DETAIL, &cpu_dev, "Wait for interlock on IAS to write at %04d\n", AR); + } + if (il>0) continue; // yes + } } MachineCycle = 5; @@ -1661,7 +2006,11 @@ sim_instr(void) break; } } - MachineCycle = 0; // ready to process to next instr + // ready to process to next instr + MachineCycle = 0; + + // reset the message for interlock wait + bInterLockWaitMsg = 0; } /* end while */ @@ -1738,7 +2087,7 @@ cpu_dep(t_value val, t_addr addr, UNIT * uptr, int32 sw) } return SCPE_OK; } - + t_stat cpu_set_size(UNIT * uptr, int32 val, CONST char *cptr, void *desc) { @@ -1760,8 +2109,6 @@ cpu_set_size(UNIT * uptr, int32 val, CONST char *cptr, void *desc) } } } - if ((mc != 0) && (!get_yn("Really truncate memory [N]? ", FALSE))) - return SCPE_OK; cpu_unit.flags &= ~UNIT_MSIZE; cpu_unit.flags |= val; cpu_unit.capac = 9990 + (v / 1000); @@ -1772,7 +2119,6 @@ cpu_set_size(UNIT * uptr, int32 val, CONST char *cptr, void *desc) for(i = 0; i < 60; i++) IAS[i] = IAS_NegativeZeroFlag[i] = 0; return SCPE_OK; } - t_stat cpu_help (FILE *st, DEVICE *dptr, UNIT *uptr, int32 flag, const char *cptr) { diff --git a/I650/i650_defs.h b/I650/i650_defs.h index a7321b3d3..2cb82fc4c 100644 --- a/I650/i650_defs.h +++ b/I650/i650_defs.h @@ -28,7 +28,15 @@ #define STOP_HALT 1 /* HALT */ #define STOP_IBKPT 2 /* breakpoint */ #define STOP_UUO 3 /* invalid opcode */ -#define STOP_CARD 4 /* Stop on card reader/punch error (no card in hopper, read/punch failure, no cards, stop pressed on cdr/cdp*/ +#define STOP_IO 4 /* Stop on IO: + card reader/punch error: + no card in hopper, read/punch failure, no cards, stop pressed on cdr/cdp + only simulated no card in hopper situation when all cards from attached file has been read + tape: + executed tape opcode and got non handled by indicator error + disk: + selected arm or unit out of range + */ #define STOP_PROG 5 /* Programmed stop */ #define STOP_OV 6 /* Overflow stop */ #define STOP_ERRO 7 /* Error in opcode execution: BRD in witch position tested not 8 or 9, TLU failure */ @@ -42,22 +50,24 @@ extern t_int64 DRUM[MAXDRUMSIZE]; extern int DRUM_NegativeZeroFlag[MAXDRUMSIZE]; extern char DRUM_Symbolic_Buffer[MAXDRUMSIZE * 80]; +extern char IAS_Symbolic_Buffer[60 * 80]; extern t_int64 IOSync[10]; extern int IOSync_NegativeZeroFlag[10]; -#define STOR (cpu_unit.flags & OPTION_STOR) -#define CNTRL (cpu_unit.flags & OPTION_CNTRL) -#define FAST (cpu_unit.flags & OPTION_FAST) +#define STOR ((uint32)cpu_unit.flags & OPTION_STOR) // return non zero if set cpu storage option set +#define CNTRL ((uint32)cpu_unit.flags & OPTION_CNTRL) // return non zero if set cpu cntrl option set +#define FAST ((uint32)(cpu_unit.flags & OPTION_FAST) ? 1:0) // return non zero if set cpu fast option set +#define DRUM4K ((uint32)cpu_unit.flags & MEMAMOUNT(2)) // return 0 if drum size < 4k, non zero if = 4k extern t_int64 IAS[60]; extern int IAS_NegativeZeroFlag[60]; extern int IAS_TimingRing; +extern int InterLockCount[8]; extern int WriteAddr(int AR, t_int64 d, int NegZero); extern int ReadAddr(int AR, t_int64 * d, int * NegZero); extern CONST char * DecodeOpcode(t_int64 d, int * opcode, int * DA, int * IA); -extern void vm_init(void); /* digits contants */ @@ -65,10 +75,12 @@ extern void vm_init(void); #define D8 (100000000L) // eight digits (8 zeroes) #define D4 (10000L) // four digits (4 zeroes) +// increment umber of word counts elapsed from starting of simulator -> this is the global time measurement +extern t_int64 GlobalWordTimeCount; /* Device information block */ struct dib { - uint8 upc; /* Units per channel */ + uint8 upc; // Number of Units in device uint32 (*cmd)(UNIT *up, uint16 cmd, uint16 dev);/* Issue command. */ void (*ini)(UNIT *up, t_bool f); }; @@ -84,62 +96,89 @@ typedef struct dib DIB; extern DEBTAB dev_debug[]; extern DEBTAB crd_debug[]; -/* Returns from read/write */ -#define DATA_OK 0 /* Data transfered ok */ -#define TIME_ERROR 1 /* Channel did not transfer last operation */ -#define END_RECORD 2 /* End of record */ - /* Returns from device commands */ -#define SCPE_BUSY (1) /* Device is active */ -#define SCPE_NOCARDS (2) /* No cards to read or ti write */ +#define SCPE_BUSY (1) // Device is active +#define SCPE_NOCARDS (2) // No cards to read or to write +#define SCPE_OK_INPROGRESS (3) // Operation in progress /* Global device definitions */ #ifdef CPANEL extern DEVICE cp_dev; #endif -// max number of cards in deck for carddeck internal command -#define MAX_CARDS_IN_DECK 10000 -#define MAX_CARDS_IN_READ_TAKE_HOPPER 10 +#define MAX_CARDS_IN_DECK 10000 // max number of cards in deck for carddeck internal command +#define MAX_CARDS_IN_READ_STAKER_HOPPER 10 // max number of cards in card reader take + // staker that can be viewev with carddeck echolast extern DIB cdr_dib; extern DEVICE cdr_dev; extern uint32 cdr_cmd(UNIT *, uint16, uint16); extern UNIT cdr_unit[4]; -extern char ReadHopper[3 * MAX_CARDS_IN_READ_TAKE_HOPPER * 80]; -extern int ReadHopperLast[3]; +extern uint16 ReadStaker[3 * MAX_CARDS_IN_READ_STAKER_HOPPER * 80]; +extern int ReadStakerLast[3]; extern DIB cdp_dib; extern DEVICE cdp_dev; extern uint32 cdp_cmd(UNIT *, uint16, uint16); extern UNIT cdp_unit[4]; -/* Device status information stored in u5 */ +/* Card read-punch device status information stored in u5 */ #define URCSTA_ERR 0002 /* Error reading record */ -#define URCSTA_BUSY 0010 /* Device is busy */ +#define URCSTA_BUSY 0010 /* Device unit is busy */ #define URCSTA_LOAD 01000 /* Load flag for 533 card reader */ #define URCSTA_SOAPSYMB 02000 /* Get soap symbolic info when reading the card */ +extern DIB mt_dib; +extern DEVICE mt_dev; +extern uint32 mt_cmd(UNIT *, uint16, uint16); +extern UNIT mt_unit[6]; +extern int LastTapeSelected; +extern int LastTapeIndicator; +extern const char * TapeIndicatorStr[11]; +extern int mt_ready(int n); +extern void mt_ini(UNIT * uptr, t_bool f); + +/* Tape Indicator status */ +#define MT_IND_WRT_PROT 1 // attempting to write to a write protected tape +#define MT_IND_IOCHECK 2 // host os i/o error on tape file +#define MT_IND_EOF 3 // found Tape Mark in current record while reading +#define MT_IND_EOT 4 // found End of Tape Mark while reading/writing +#define MT_IND_LONG_REC 5 // record begin read from tape does not fit in record defined at IAS storage +#define MT_IND_SHORT_REC 6 // record begin read from tape does not fill record defined at IAS storage +#define MT_IND_DIS 7 // no tape has this address (tape unit is disabled) +#define MT_IND_NOATT 8 // no reel load on tape (no tape file attached) +#define MT_IND_NOTRDY 9 // tape not ready +#define MT_IND_BADCHAR 10 // tape not ready + +extern DIB dsk_dib; +extern DEVICE dsk_dev; +extern uint32 dsk_cmd(int, int32, uint16); +extern UNIT dsk_unit[4]; +extern int dsk_ready(int n, int arm); +extern void dsk_ini(UNIT * uptr, t_bool f); + +/* Disk Indicator status */ +#define DSK_IND_BADADDR 1 // invalid unit/arm/disk plate/track accessed +#define DSK_IND_IOCHECK 2 // host os i/o error on disk file +#define DSK_IND_DIS 7 // no disk has this address (disk unit is disabled) +#define DIS_IND_NOATT 8 // no disk file attached +#define DIS_IND_NOTRDY 9 // disk arm not ready extern struct card_wirings { uint32 mode; const char *name; } wirings[]; + extern char digits_ascii[31]; extern char mem_to_ascii[101]; extern int ascii_to_NN(int ch); -extern uint16 ascii_to_hol[128]; - +extern uint16 sim_ascii_to_hol(char c); +extern char sim_hol_to_ascii(uint16 hol); /* Generic devices common to all */ extern DEVICE cpu_dev; extern UNIT cpu_unit; extern REG cpu_reg[]; -extern int cycle_time; - -/* I/O Command codes */ -#define IO_RDS 1 /* Read record */ -#define IO_WRS 4 /* Write one record */ extern const char *cpu_description(DEVICE *dptr); @@ -189,6 +228,7 @@ extern const char *cpu_description(DEVICE *dptr); #define OP_SL 16 // Subtract from lower accumulator #define OP_SU 11 // Subtract from upper accumulator #define OP_TLU 84 // Table lookup +#define OP_TLE 63 // Table lookup on equal // Instructions on Storage Unit // opcodes for indexing #define OP_AXA 50 // Add to index register A @@ -269,13 +309,24 @@ extern const char *cpu_description(DEVICE *dptr); #define opStorUnit 1 // opcode available if IBM 653 Storage Unit is present #define opCntrlUnit 2 // opcode available if IBM 652 Control Unit is present +#define opTLE 3 // opcode available if Table Lookup on equal feature installed #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 #define IL_RD23 3 // interlock on drum area 39-48/89-98 used in reading with RD2/RD3 #define IL_WR23 4 // interlock on drum area 13-22/63-72 used in writing for WR2/WR3 #define IL_IAS 5 // interlock on ias access -#define IL_array 6 // interlock array definition value +#define IL_Tape 6 // interlock on tape control circuits +#define IL_RamacUnit 7 // interlock on ramac unit control circuits + +#define IL_Tape_and_Unit_and_IAS 100 // interlock IAS + Tape control + Tape Unit +#define IL_Tape_and_Unit 101 // interlock Tape control + Tape Unit +#define IL_RamacUnit_and_Arm_and_IAS 102 // interlock IAS + Ramac unit control + Unit Access Arm +#define IL_RamacUnit_and_Arm 103 // interlock + Ramac unit control + Unit Access Arm + +#define msec_to_wordtime(n) ((int)(n / 0.096)) // convert time in msec to number of word times +#define msec_elapsed(n) ((int)((GlobalWordTimeCount - (n)) * 0.096)) // return msec elapsed from a give wordtime stamp + /* Symbol tables */ typedef struct @@ -305,9 +356,13 @@ extern t_opcode base_ops[100]; #define UNIT_CARD_WIRING ( 0xF00 << UNIT_V_CARD_MODE) #define WIRING_8WORD ( 0x000 << UNIT_V_CARD_MODE) #define WIRING_SOAP ( 0x100 << UNIT_V_CARD_MODE) -#define WIRING_IS ( 0x200 << UNIT_V_CARD_MODE) -#define WIRING_IT ( 0x300 << UNIT_V_CARD_MODE) -#define WIRING_FORTRANSIT ( 0x400 << UNIT_V_CARD_MODE) +#define WIRING_SOAPA ( 0x200 << UNIT_V_CARD_MODE) +#define WIRING_IS ( 0x300 << UNIT_V_CARD_MODE) +#define WIRING_IT ( 0x400 << UNIT_V_CARD_MODE) +#define WIRING_FORTRANSIT ( 0x500 << UNIT_V_CARD_MODE) +#define WIRING_RA ( 0x600 << UNIT_V_CARD_MODE) +#define WIRING_FDS ( 0x700 << UNIT_V_CARD_MODE) +#define WIRING_SUPERSOAP ( 0x800 << UNIT_V_CARD_MODE) #define UNIT_CARD_ECHO ( 0x1000 << UNIT_V_CARD_MODE) #define UNIT_CARD_PRINT ( 0x2000 << UNIT_V_CARD_MODE) diff --git a/I650/i650_dsk.c b/I650/i650_dsk.c new file mode 100644 index 000000000..5cafcc1ae --- /dev/null +++ b/I650/i650_dsk.c @@ -0,0 +1,494 @@ +/* i650_dsk.c: IBM 650 RAMAC Disk Dotrage + + Copyright (c) 2018, Roberto Sancho + + Permission is hereby granted, free of charge, to any person obtaining a + copy of this software and associated documentation files (the "Software"), + to deal in the Software without restriction, including without limitation + the rights to use, copy, modify, merge, publish, distribute, sublicense, + and/or sell copies of the Software, and to permit persons to whom the + Software is furnished to do so, subject to the following conditions: + + The above copyright notice and this permission notice shall be included in + all copies or substantial portions of the Software. + + THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR + IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, + FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL + ROBERTO SANCHO BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER + IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN + CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. + + +*/ + +#include "i650_defs.h" + +#define UNIT_DSK UNIT_ATTABLE | UNIT_DISABLE | UNIT_FIX + +#define DISK_SIZE (12*60*100) // a physical disk plate size: 12 bytes per word x 60 words per track x 100 tracks per disk + // there are 100 like this in each unit + +#define UPDATE_RAMAC 10 // update ramac arm movement each 10 msec of simulted time + // time pregress as drum wordcount progresses + +/* Definitions */ +uint32 dsk_cmd(int opcode, int32 addr, uint16 fast); +t_stat dsk_srv(UNIT *); +void dsk_ini(UNIT *, t_bool f); +t_stat dsk_reset(DEVICE *); +t_stat dsk_attach(UNIT *, CONST char *); +t_stat dsk_detach(UNIT *); +t_stat dsk_help (FILE *st, DEVICE *dptr, UNIT *uptr, int32 flag, const char *cptr); +const char *dsk_description (DEVICE *dptr); + +UNIT dsk_unit[4] = { + {UDATA(&dsk_srv, UNIT_DSK, 0), 0}, /* 0 */ + {UDATA(&dsk_srv, UNIT_DSK, 0), 0}, /* 1 */ + {UDATA(&dsk_srv, UNIT_DSK, 0), 0}, /* 2 */ + {UDATA(&dsk_srv, UNIT_DSK, 0), 0}, /* 3 */ +}; + +DEVICE dsk_dev = { + "DSK", dsk_unit, NULL, NULL, + 4, 8, 15, 1, 8, 8, + NULL, NULL, &dsk_reset, NULL, &dsk_attach, &dsk_detach, + &dsk_dib, DEV_DISABLE | DEV_DEBUG, 0, dev_debug, + NULL, NULL, &dsk_help, NULL, NULL, &dsk_description +}; + + +// array for disc units (4) arm's positions (3 arms per unit) +struct armrec { + int current_disk, current_track; // current disk plate/track where the arm is positioned + int dest_disk, dest_track; // destination position where the arm should go + int cmd; // opcode being executed (OP_SDS, OP_RDS, OP_WDS) + t_int64 InitTime; // timestamp using global wordTime counter when operation starts + struct armmov { + int disk, track; // disk plate/track where the arm is positioned in this point of movement sequence + int msec; // time in msec arm stay in this position + } seq[1+100+50+100+1]; // sequeece of arm movement. If =0 -> end of sequence +} Arm[4][3]; + + +int dsk_read_numeric_word(char * buf, t_int64 * d, int * ZeroNeg) +{ + int i, neg; + char c; + + neg = 0; + *d = 0; + if (ZeroNeg != NULL) *ZeroNeg = 0; + for (i=0;i<10;i++) { + c = *buf++; + if ((c < '0') || (c > '9')) c='0'; + *d = *d * 10 + (c - '0'); + } + if (*buf++ == '-') neg=1; + if (neg) *d = -*d; + if (ZeroNeg != NULL) *ZeroNeg = ((neg) && (*d == 0)) ? 1:0; + return 0; +} + + + +void dsk_write_numeric_word(char * buf, t_int64 d, int ZeroNeg) +{ + int i, neg; + char c; + + neg = 0; + if (d < 0) {neg=1; d=-d;} + if (ZeroNeg) neg=1; + for (i=0;i<10;i++) { + c = Shift_Digits(&d,1) + '0'; + *buf++ = c; + } + *buf++ = neg ? '-':'+'; +} + + +// perform the operation (Read, Write) on RAMAC unit file +// init file if len=0 (flat format) +// +t_stat dsk_operation(int cmd, int unit, int arm, int disk, int track) +{ + + FILE *f; + int flen, i, ic, ZeroNeg; + char buf[DISK_SIZE+1]; + t_int64 d; + char s[6]; + // buf holds a full disk + + if ((unit < 0) || (unit > 3)) return 0; + if ((arm < 0) || (arm > 2) ) return 0; + if ((disk < 0) || (disk > 99)) return 0; + if ((track < 0) || (track > 99)) return 0; + + f = dsk_unit[unit].fileref; // get disk file from unit; + + flen = sim_fsize(f); + if (flen == 0) { + // new file, fill it with blanks + memset(buf, 32, sizeof(buf)); // fill with space + for (i=1;i<1000;i++) buf[i*12*6-1]=13; // ad some cr lo allow text editor to vire ramac file + buf[sizeof(buf)-1]=0; // add string terminator + for(i=0;i<100;i++) sim_fwrite(buf, 1, DISK_SIZE, f); + } + sim_fseek(f, DISK_SIZE * disk, SEEK_SET); + sim_fread(buf, 1, DISK_SIZE, f); // read the entire disc (100 tracks) + ic = 12 * 60 * track; // ic is char at beginning of track + sim_debug(DEBUG_DETAIL, &cpu_dev, "... RAMAC file at fseek %d, ic %d\n", DISK_SIZE * disk, ic); + if (cmd==OP_RDS) { + for(i=0;i<60;i++) { + dsk_read_numeric_word(&buf[ic], &d, &ZeroNeg); + ic += 12; // 12 bytes per word + // store into IAS + IAS[i] = d; + IAS_NegativeZeroFlag[i] = ZeroNeg; + sim_debug(DEBUG_DETAIL, &cpu_dev, "... RAMAC to IAS %04d: %06d%04d%c '%s'\n", + i+9000, printfw(d,ZeroNeg), + word_to_ascii(s, 1, 5, d)); + } + // set IAS_TimingRing. Nothing said in RAMAC manual, but needed to make supersoap CDD pseudo op work properly + IAS_TimingRing=0; + } else if (cmd==OP_WDS) { + for(i=0;i<60;i++) { + // read IAS + d = IAS[i]; + ZeroNeg = IAS_NegativeZeroFlag[i]; + sim_debug(DEBUG_DETAIL, &cpu_dev, "... IAS %04d to RAMAC: %06d%04d%c '%s'\n", + i+9000, printfw(d,ZeroNeg), + word_to_ascii(s, 1, 5, d)); + // write numeric to disk buf + dsk_write_numeric_word(&buf[ic], d, ZeroNeg); + ic += 12; + } + // set IAS_TimingRing. Nothing said in RAMAC manual, but needed to make supersoap CDD pseudo op work properly + IAS_TimingRing=0; + // write back disk to ramac unit file + sim_fseek(f, DISK_SIZE * disk, SEEK_SET); + sim_fwrite(buf, 1, DISK_SIZE, f); // write the entire disc (100 tracks) + } + // don't know if Seek Opcode (SDS) also sets TimingRing to zero + + return SCPE_OK; +} + + +// return 1 if disk unit n (0..3) and arm (0..2) is ready to receive a command +int dsk_ready(int unit, int arm) +{ + if ((unit < 0) || (unit > 3)) return 0; + if ((arm < 0) || (arm > 2) ) return 0; + if (Arm[unit][arm].cmd == 0) return 1; // arm has no cmd to execute -> it is ready to receive new command + return 0; +} + +void dsk_set_mov_seq(int unit,int arm) +{ + // set arm movement sequence to its destination + // + // arm timing + // seek: 50 msec setup time + // on same disk: + // 2 msec per track in same disk (0-99) + // 25 msec sensing track gap (that identifies the start of track pos) a mean between 0-50 msec or + // to extract arm outside disk for arm to go to another disk + // going to another physical disk: + // 200 msec start arm vertical motion + // 9 msec per physical disk (0 to 49) + // 200 msec stop arm vertical motion + // + // read: 110 msec + // write: 135 msec + // + + int cmd, nseq, i, d1, d2, dy, tr; + + cmd = Arm[unit][arm].cmd; + nseq = 0; + + // seek or read/write but current arm pos not the addr selected for + // read/write -> must do a seek cycle + if ((cmd == OP_SDS) || + (Arm[unit][arm].current_disk != Arm[unit][arm].dest_disk) || + (Arm[unit][arm].current_track != Arm[unit][arm].dest_track)) { + // start seek sequence at current arm pos + Arm[unit][arm].seq[nseq].disk = Arm[unit][arm].current_disk; + Arm[unit][arm].seq[nseq].track = tr = Arm[unit][arm].current_track; + Arm[unit][arm].seq[nseq++].msec = 50; // msec needed for seek setup time + // is arm already accessing physical destination disk? + if ((d1=(Arm[unit][arm].current_disk % 50)) != (d2=(Arm[unit][arm].dest_disk % 50))) { + // not yet, should move arm up or down + // is arm outside physical disk stack? + if (Arm[unit][arm].current_track >= 0) { + // not yet, should move arm outside physical disk (up to -1) + // move out arm track to track until outside of physical disk + for (i=Arm[unit][arm].current_track;i>=0;i--) { + Arm[unit][arm].seq[nseq].disk = Arm[unit][arm].current_disk; + Arm[unit][arm].seq[nseq].track = i; + Arm[unit][arm].seq[nseq++].msec = 2; // msec needed for horizontal arm movement of 1 track + } + } + // now arm is outside disk stack, can move up and down + Arm[unit][arm].seq[nseq].disk = Arm[unit][arm].current_disk; + Arm[unit][arm].seq[nseq].track = -1; + Arm[unit][arm].seq[nseq++].msec = 200; // msec needed to setup vertical arm movement + // move out up/down on disk stack up to destination disk + dy = (d1 < d2) ? +1:-1; + i = Arm[unit][arm].current_disk; + for (;;) { + if (i % 50 == d2) break; + Arm[unit][arm].seq[nseq].disk = i; + Arm[unit][arm].seq[nseq].track = -1; + Arm[unit][arm].seq[nseq++].msec = 9; // msec needed for vertical arm movement of 1 physical disk + i=i+dy; + } + // stop motion and select destination disk (not physical disk) + Arm[unit][arm].seq[nseq].disk = Arm[unit][arm].dest_disk; + Arm[unit][arm].seq[nseq].track = tr = -1; + Arm[unit][arm].seq[nseq++].msec = 200; // msec needed to stop vertical arm movement + } + // now arm accessing physical destination disk + // is arm at destination track? + if (tr != (d2=Arm[unit][arm].dest_track)) { + // not yet, should move arm horizontally + dy = (tr < d2) ? +1:-1; + for (;;) { + if (tr == d2) break; + Arm[unit][arm].seq[nseq].disk = Arm[unit][arm].dest_disk; + Arm[unit][arm].seq[nseq].track = tr; + Arm[unit][arm].seq[nseq++].msec = 2; // msec needed for horizontal arm movement of 1 track + tr=tr+dy; + } + } + // now arm is positioned on destination track, disk + // sense the track gap to finish seek operation + Arm[unit][arm].seq[nseq].disk = Arm[unit][arm].dest_disk; + Arm[unit][arm].seq[nseq].track = Arm[unit][arm].dest_track; + Arm[unit][arm].seq[nseq++].msec = 25; // msec needed for sensing track gap + } + + // read operation + if (cmd == OP_RDS) { + Arm[unit][arm].seq[nseq].disk = Arm[unit][arm].dest_disk; + Arm[unit][arm].seq[nseq].track = Arm[unit][arm].dest_track; + Arm[unit][arm].seq[nseq++].msec = 110; // msec needed for reading entire track + } else if (cmd == OP_WDS) { + Arm[unit][arm].seq[nseq].disk = Arm[unit][arm].dest_disk; + Arm[unit][arm].seq[nseq].track = Arm[unit][arm].dest_track; + Arm[unit][arm].seq[nseq++].msec = 135; // msec needed for writing entire track + } + // set end of sequence + Arm[unit][arm].seq[nseq].disk = Arm[unit][arm].dest_disk; + Arm[unit][arm].seq[nseq].track = Arm[unit][arm].dest_track; + Arm[unit][arm].seq[nseq++].msec = 0; // end of sequence mark +} + +/* Start off a RAMAC command */ +uint32 dsk_cmd(int cmd, int32 addr, uint16 fast) +{ + DEVICE *dptr; + UNIT *uptr; + int unit, disk, track, arm; + int time; + int bFastMode; + + unit =(addr / 100000) % 10; + disk =(addr / 1000) % 100, + track=(addr / 10) % 100, + arm =(addr % 10); + + time = 0; + /* Make sure addr unit number */ + if ((unit > 3) || (unit < 0)) return STOP_ADDR; + if ((arm > 2) || (arm < 0)) return STOP_ADDR; + + uptr = &dsk_unit[unit]; + dptr = find_dev_from_unit(uptr); + + // init IBM 652 Control Unit internal registers + bFastMode = fast; + + /* If disk unit disabled return error */ + if (uptr->flags & UNIT_DIS) { + sim_debug(DEBUG_EXP, dptr, "RAMAC command attempted on disabled unit %d\n", unit); + // not stated in manual: what happends if command to non existant disk? + // option 1 -> cpu halt (used this) + // option 2 -> indictor flag set + return STOP_IO; + } + /* If disk unit has no file attached return error */ + if ((uptr->flags & UNIT_ATT) == 0) { + sim_debug(DEBUG_EXP, dptr, "RAMAC command attempted on unit %d that has no file attached\n", unit); + return STOP_IO; + } + // init arm operation + Arm[unit][arm].cmd = cmd; // the command to execute: can be OP_SDS, OP_RDS, OP_WDS + Arm[unit][arm].dest_disk = disk; // the destination address + Arm[unit][arm].dest_track = track; + sim_debug(DEBUG_CMD, dptr, "RAMAC unit %d, arm %d: %s on disk %d, track %d started\n", + unit, arm, + (cmd == OP_SDS) ? "SEEK" : (cmd == OP_RDS) ? "READ" : "WRITE", + Arm[unit][arm].dest_disk, Arm[unit][arm].dest_track); + + if (bFastMode) { + time = 0; // no movement sequence. Just go to destination pos inmediatelly and exec command + Arm[unit][arm].InitTime = -1; + } else { + time = msec_to_wordtime(UPDATE_RAMAC); // sampling disk arm movement sequence each 10 msec + Arm[unit][arm].InitTime = GlobalWordTimeCount; // when the movement sequence starts (in word time counts) + // calculate the movement seqnece + dsk_set_mov_seq(unit,arm); + } + // schedule command execution + sim_cancel(uptr); + sim_activate(uptr, time); + return SCPE_OK_INPROGRESS; +} + +/* Handle processing of disk requests. */ +t_stat dsk_srv(UNIT * uptr) +{ + DEVICE *dptr = find_dev_from_unit(uptr); + int unit = (uptr - dptr->units); + int time, msec, arm, cmd, nseq; + t_int64 InitTime; + int bSequenceInProgress=0; + int bFastMode; + t_stat r; + + // init IBM 652 Control Unit internal registers + bFastMode = 0; + // update arm movement for this unit + for (arm=0;arm<3;arm++) { + cmd = Arm[unit][arm].cmd; + if (cmd == 0) continue; // RAMAC arm for this disk unit is stoped (=ready). + // continue to Process next arm of this unit + + // arm in movement (=busy) + // calc time in msec elapsed from start of comand execution + InitTime=Arm[unit][arm].InitTime; + if (InitTime<0) { + bFastMode=1; + } else { + time=msec_elapsed(Arm[unit][arm].InitTime); + // examine sequence of arm movements to determine what is the current position + // or arm at this point of time + nseq=0; + for(;;) { + msec=Arm[unit][arm].seq[nseq].msec; + if (msec==0) break; // exit beacuse end of sequence + time=time-msec; + if (time<0) break; // exit beacuse we are at this point of sequence + nseq++; + } + if (time <0) { + // sequence not finisehd: set current arm pos + Arm[unit][arm].current_disk=Arm[unit][arm].seq[nseq].disk; + Arm[unit][arm].current_track=Arm[unit][arm].seq[nseq].track; + bSequenceInProgress=1; // there is an arm in movement + // arm not arrived to its destination yet. contiinue proceed with next arm + sim_debug(DEBUG_CMD, dptr, "RAMAC unit %d, arm %d: now at disk %d, track %d\n", + unit, arm, + Arm[unit][arm].current_disk, Arm[unit][arm].current_track); + continue; + } + } + // arm arrived to its destination position + Arm[unit][arm].current_disk=Arm[unit][arm].dest_disk; + Arm[unit][arm].current_track=Arm[unit][arm].dest_track; + // execute command + sim_debug(DEBUG_DETAIL, &cpu_dev, "... RAMAC unit %d, arm %d: %s on disk %d, track %d start execution \n", + unit, arm, + (cmd == OP_SDS) ? "SEEK" : (cmd == OP_RDS) ? "READ" : "WRITE", + Arm[unit][arm].dest_disk, Arm[unit][arm].dest_track); + r = dsk_operation(cmd, unit, arm, Arm[unit][arm].dest_disk, Arm[unit][arm].dest_track); + if (r != SCPE_OK) return STOP_IO; + // cmd execution finished, can free IAS interlock + sim_debug(DEBUG_DETAIL, &cpu_dev, "... RAMAC unit %d, arm %d: %s on disk %d, track %d finished\n", + unit, arm, + (cmd == OP_SDS) ? "SEEK" : (cmd == OP_RDS) ? "READ" : "WRITE", + Arm[unit][arm].dest_disk, Arm[unit][arm].dest_track); + if (((cmd==OP_RDS) || (cmd==OP_WDS)) && (InterLockCount[IL_IAS])) { + // remove IAS Interlock + InterLockCount[IL_IAS] = 0; + sim_debug(DEBUG_CMD, dptr, "RAMAC unit %d, arm %d: free IAS interlock\n", unit, arm); + } + // set arm as ready, so it can accept new commands + Arm[unit][arm].cmd = 0; + sim_debug(DEBUG_CMD, dptr, "RAMAC unit %d, arm %d READY\n", unit, arm); + } + // if there is any arm in movement, re-schedulle event + sim_cancel(uptr); + if (bSequenceInProgress) { + if (bFastMode) { + time = 0; // no movement sequence. Just go to destination pos inmediatelly and exec command + } else { + time = msec_to_wordtime(UPDATE_RAMAC); // sampling disk arm movement sequence each 10 msec + } + sim_activate(uptr, time); + } + return SCPE_OK; +} + +void dsk_ini(UNIT * uptr, t_bool f) +{ + DEVICE *dptr = find_dev_from_unit(uptr); + int unit = (uptr - dptr->units); + + memset(&Arm[unit], 0, sizeof(Arm[unit])); // zeroes arm info for this unit +} + +t_stat dsk_reset(DEVICE * dptr) +{ + int i; + for (i = 0; i < 4; i++) { + dsk_ini(&dsk_unit[i], 0); + } + return SCPE_OK; +} + +t_stat dsk_attach(UNIT * uptr, CONST char *file) +{ + DEVICE *dptr = find_dev_from_unit(uptr); + int unit = (uptr - dptr->units); + t_stat r; + int flen; + + if ((r = attach_unit(uptr, file)) != SCPE_OK) return r; + flen=sim_fsize(uptr->fileref); + if ((flen > 0) && (flen != DISK_SIZE * 100)) { + sim_messagef (SCPE_IERR, "Invalid RAMAC Unit file size\n"); + detach_unit (uptr); + } + dsk_ini(uptr, 0); + return SCPE_OK; +} + +t_stat dsk_detach(UNIT * uptr) +{ + sim_cancel(uptr); // cancel any pending command + dsk_ini(uptr, 0); + return detach_unit (uptr); /* detach unit */ +} + +t_stat +dsk_help(FILE *st, DEVICE *dptr, UNIT *uptr, int32 flag, const char *cptr) +{ + fprintf (st, "%s\n\n", dsk_description(dptr)); + fprintf (st, "RAMAC Magnetic storage disk.\n\n"); + fprint_set_help(st, dptr); + fprint_show_help(st, dptr); + return SCPE_OK; +} + +const char * +dsk_description(DEVICE *dptr) +{ + return "IBM 355 RAMAC Disk Storage Unit"; +} + + diff --git a/I650/i650_mt.c b/I650/i650_mt.c new file mode 100644 index 000000000..7610305d7 --- /dev/null +++ b/I650/i650_mt.c @@ -0,0 +1,665 @@ +/* i650_mt.c: IBM 650 Magnetic tape + + Copyright (c) 2018, Roberto Sancho + + Permission is hereby granted, free of charge, to any person obtaining a + copy of this software and associated documentation files (the "Software"), + to deal in the Software without restriction, including without limitation + the rights to use, copy, modify, merge, publish, distribute, sublicense, + and/or sell copies of the Software, and to permit persons to whom the + Software is furnished to do so, subject to the following conditions: + + The above copyright notice and this permission notice shall be included in + all copies or substantial portions of the Software. + + THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR + IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, + FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL + ROBERTO SANCHO BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER + IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN + CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. + + Magnetic tapes are represented as a series of variable records + of the form: + + 32b byte count + byte 0 + byte 1 + : + byte n-2 + byte n-1 + 32b byte count + + If the byte count is odd, the record is padded with an extra byte + of junk. File marks are represented by a byte count of 0. +*/ + +#include "i650_defs.h" +#include "sim_tape.h" + +#define UNIT_MT UNIT_ATTABLE | UNIT_ROABLE | UNIT_DISABLE + +/* in u3 is tape medium length used on current position */ +/* in u4 is tape medium max length (28800 for 2400 ft reel) */ +/* in u5 holds the command being executed by tape unit */ +#define MT_CMDMSK 0x00FF /* Command being run */ +#define MT_RDY 0x0100 /* Unit is ready for command */ +#define MT_IND 0x0200 /* Unit has Indicator light on */ + +/* u6 holds the current buffer position */ + + +/* Definitions */ +uint32 mt_cmd(UNIT *, uint16, uint16); +t_stat mt_srv(UNIT *); +void mt_ini(UNIT *, t_bool); +t_stat mt_reset(DEVICE *); +t_stat mt_attach(UNIT *, CONST char *); +t_stat mt_detach(UNIT *); +t_stat mt_rew(UNIT * uptr, int32 val, CONST char *cptr,void *desc); +t_stat mt_set_len (UNIT *uptr, int32 val, CONST char *cptr, void *desc); +t_stat mt_show_len (FILE *st, UNIT *uptr, int32 val, CONST void *desc); +t_stat mt_help (FILE *st, DEVICE *dptr, UNIT *uptr, int32 flag, const char *cptr); +const char *mt_description (DEVICE *dptr); + +UNIT mt_unit[6] = { + {UDATA(&mt_srv, UNIT_MT, 0), 0}, /* 0 */ + {UDATA(&mt_srv, UNIT_MT, 0), 0}, /* 1 */ + {UDATA(&mt_srv, UNIT_MT, 0), 0}, /* 2 */ + {UDATA(&mt_srv, UNIT_MT, 0), 0}, /* 3 */ + {UDATA(&mt_srv, UNIT_MT, 0), 0}, /* 4 */ + {UDATA(&mt_srv, UNIT_MT, 0), 0}, /* 5 */ +}; + +MTAB mt_mod[] = { + {MTUF_WLK, 0, "write enabled", "WRITEENABLED", NULL, NULL, NULL, "Write ring in place"}, + {MTUF_WLK, MTUF_WLK, "write locked", "LOCKED", NULL, NULL, NULL, "No write ring in place"}, + {MTAB_XTD | MTAB_VUN, 0, "FORMAT", "FORMAT", &sim_tape_set_fmt, &sim_tape_show_fmt, NULL, + "Set/Display tape format (SIMH, E11, TPC, P7B)"}, + {MTAB_XTD | MTAB_VUN, 0, "LENGTH", "LENGTH", &mt_set_len, &mt_show_len, NULL, + "Set tape medium length (50 to 10000 foot)" }, + {MTAB_XTD | MTAB_VUN, 0, NULL, "REWIND", &mt_rew, NULL, NULL, "Rewind tape"}, + {0} +}; + +DEVICE mt_dev = { + "MT", mt_unit, NULL, mt_mod, + 6, 8, 15, 1, 8, 8, + NULL, NULL, &mt_reset, NULL, &mt_attach, &mt_detach, + &mt_dib, DEV_DISABLE | DEV_DEBUG, 0, dev_debug, + NULL, NULL, &mt_help, NULL, NULL, &mt_description +}; + +// IBM 652 Control Unit internal state +int LastTapeSelected = -1; // last tape selected. =0 to 5, -1=none yet +int LastTapeIndicator = 0; // last tape operation has some indication to tell to program/operator +int bFastMode = 0; // =1 for FAST operation + +const char * TapeIndicatorStr[11] = { "OK", + "WRITE PROTECTED", + "IO CHECK", + "END OF FILE", + "END OF TAPE", + "LONG RECORD", + "SHORT RECORD", + "NO TAPE UNIT AT THIS ADDRESS", + "NO REEL LOADED", + "NOT READY", + "BAD CHAR"}; + +// return 1 if tape unit n (0..5) is ready to receive a command +int mt_ready(int n) +{ + if ((n < 0) || (n > 5)) return 0; + if (mt_unit[n].u5 & MT_RDY) return 1; + return 0; +} + +/* Rewind tape drive */ +t_stat mt_rew(UNIT * uptr, int32 val, CONST char *cptr, void *desc) +{ + /* If drive is offline or not attached return not ready */ + if ((uptr->flags & UNIT_ATT) == 0) + return SCPE_NOATT; + uptr->u3 = 0; // tape at begin of medium + uptr->u5 = MT_RDY; // clear indicator flag, clear last command, set ready flag + return sim_tape_rewind(uptr); +} + +int mt_read_numeric_word(uint8 * buf, t_int64 * d, int * ZeroNeg) +{ + int i, neg; + char c; + + neg = 0; + *d = 0; + if (ZeroNeg != NULL) *ZeroNeg = 0; + for (i=0;i<10;i++) { + c = *buf++; + if (i==9) { // is last word digit + if ((c >= '0') && (c <= '9')) return MT_IND_BADCHAR; // last digit should have sign + if (c == '?') c = '0'; // +0 + if ((c >= 'A') && (c <= 'I')) c = c - 'A' + '1'; // +1 to +9 + if ((c >= 'J') && (c <= 'R')) {c = c - 'J' + '1'; neg=1;} // -1 to -9 + if (c == '!') {c = '0'; neg=1;} // -0 + } + if ((c < '0') || (c > '9')) return MT_IND_BADCHAR; + *d = *d * 10 + (c - '0'); + } + if (neg) *d = -*d; + if (ZeroNeg != NULL) *ZeroNeg = ((neg) && (*d == 0)) ? 1:0; + return 0; +} + +int mt_read_alpha_word(uint8 * buf, t_int64 * d) +{ + int i, n; + char c; + + *d = 0; + for (i=0;i<5;i++) { + c = *buf++; + n = ascii_to_NN(c); + if ((n==0) && (c != ' ')) return MT_IND_BADCHAR; + *d = *d * 100 + n; + } + return 0; +} + +int mt_transfer_tape_rec_to_IAS(uint8 * buf, t_mtrlnt reclen, char mode) +{ + int n,ic,r, ZeroNeg; + t_int64 d, CtrlWord; + char s[6]; + t_mtrlnt expected_reclen; + + if (mode == 'N') { + // numeric mode + expected_reclen = (60 - IAS_TimingRing) * 10; // record len expected + // does expected record len match read record from tape? + if (expected_reclen != reclen) { + return (reclen > expected_reclen) ? MT_IND_LONG_REC : MT_IND_SHORT_REC; + } + // yes, record length match -> load IAS with tape record data + ic = 0; + while (1) { + // read numeric word from tape + r = mt_read_numeric_word(&buf[ic], &d, &ZeroNeg); + if (r) return r; + ic += 10; + // store into IAS + IAS[IAS_TimingRing] = d; + IAS_NegativeZeroFlag[IAS_TimingRing] = ZeroNeg; + sim_debug(DEBUG_DETAIL, &cpu_dev, "... Tape to IAS %04d: %06d%04d%c '%s'\n", + IAS_TimingRing+9000, printfw(d,ZeroNeg), + word_to_ascii(s, 1, 5, d)); + // incr IAS_TimingRing, exit if arrived to end of IAS + IAS_TimingRing = (IAS_TimingRing + 1) % 60; + if (IAS_TimingRing == 0) break; + } + return 0; + } + // alphabetic mode + // check tape record size limits + if (reclen < 10 + 9*5) return MT_IND_SHORT_REC; + if (reclen > 10 + 9*10) return MT_IND_LONG_REC; + ic = 0; + while(1) { + // get control word + if (ic + 10 > (int)reclen) return MT_IND_SHORT_REC; + r = mt_read_numeric_word(&buf[ic], &CtrlWord, NULL); + if (r) return r; + ic += 10; + // store it in IAS[nnn9] + n = (IAS_TimingRing / 10) * 10 + 9; + IAS[n] = CtrlWord; + IAS_NegativeZeroFlag[n] = 0; + // load rest of words + for (n=0;n<9;n++) { + if ((CtrlWord % 10) != 8) { + // read a numeric word form tape + if (ic + 10 > (int)reclen) return MT_IND_SHORT_REC; + r = mt_read_numeric_word(&buf[ic], &d, &ZeroNeg); + if (r) return r; + ic += 10; + } else { + // read alphanumeric word from tape + if (ic + 5 > (int)reclen) return MT_IND_SHORT_REC; + r = mt_read_alpha_word(&buf[ic], &d); ZeroNeg=0; + if (r) return r; + ic += 5; + } + CtrlWord = CtrlWord / 10; + // store into IAS + IAS[IAS_TimingRing] = d; + IAS_NegativeZeroFlag[IAS_TimingRing] = ZeroNeg; + sim_debug(DEBUG_DETAIL, &cpu_dev, "... Tape to IAS %04d: %06d%04d%c '%s'\n", + IAS_TimingRing+9000, printfw(d,ZeroNeg), + word_to_ascii(s, 1, 5, d)); + // incr IAS_TimingRing, exit if arrived to end of IAS + IAS_TimingRing = (IAS_TimingRing + 1) % 60; + if (IAS_TimingRing == 0) return MT_IND_LONG_REC; + } + IAS_TimingRing = (IAS_TimingRing + 1) % 60; // skip control word + if ((IAS_TimingRing == 0) && (ic != reclen)) return MT_IND_LONG_REC; + if (ic == reclen) { + if (IAS_TimingRing != 0) return MT_IND_SHORT_REC; + break; + } + } + return 0; +} + +void mt_write_numeric_word(uint8 * buf, t_int64 d, int ZeroNeg) +{ + int i, neg; + char c; + + neg = 0; + if (d < 0) {neg=1; d=-d;} + if (ZeroNeg) neg=1; + for (i=0;i<10;i++) { + c = Shift_Digits(&d,1) + '0'; + if (i==9) { + if (neg==0) { // last digit has sign + if (c == '0') c = '?'; // +0 + if ((c >= '1') && (c <= '9')) c = c - '1' + 'A'; // +1 to +9 + } else { + if ((c >= '1') && (c <= '9')) {c = c - '1' + 'J';} // -1 to -9 + if (c == '0') {c = '!';} // -0 + } + } + *buf++ = c; + } +} + +void mt_write_alpha_word(uint8 * buf, t_int64 d) +{ + int i, n; + char c; + + for (i=0;i<5;i++) { + n = Shift_Digits(&d,2); + c = mem_to_ascii[n]; + *buf++ = c; + } +} + +void mt_transfer_IAS_to_tape_rec(uint8 * buf, t_mtrlnt * reclen, char mode) +{ + int n,ic,ZeroNeg; + t_int64 d, CtrlWord; + char s[6]; + + if (mode == 'N') { + // numeric mode + ic = 0; + while (1) { + // read IAS + d = IAS[IAS_TimingRing]; + ZeroNeg = IAS_NegativeZeroFlag[IAS_TimingRing]; + sim_debug(DEBUG_DETAIL, &cpu_dev, "... IAS %04d to Tape: %06d%04d%c '%s'\n", + IAS_TimingRing+9000, printfw(d,ZeroNeg), + word_to_ascii(s, 1, 5, d)); + // write numeric to tape buf + mt_write_numeric_word(&buf[ic], d, ZeroNeg); + ic += 10; + // incr IAS_TimingRing, exit if arrived to end of IAS + IAS_TimingRing = (IAS_TimingRing + 1) % 60; + if (IAS_TimingRing == 0) break; + } + *reclen = (t_mtrlnt) ic; + return; + } + // alphabetic mode + ic = 0; + while(1) { + // get control word form IAS[nnn9] + n = (IAS_TimingRing / 10) * 10 + 9; + CtrlWord = IAS[n]; + // write control word in tape buf + mt_write_numeric_word(&buf[ic], CtrlWord, 0); + ic += 10; + // write rest of words + for (n=0;n<9;n++) { + // read from IAS + d = IAS[IAS_TimingRing]; + ZeroNeg = IAS_NegativeZeroFlag[IAS_TimingRing]; + if ((CtrlWord % 10) != 8) { + // write a numeric word to tape buf + mt_write_numeric_word(&buf[ic], d, ZeroNeg); + ic += 10; + } else { + // write alphanumeric word to tape buf + mt_write_alpha_word(&buf[ic], d); + ic += 5; + } + CtrlWord = CtrlWord / 10; + // incr IAS_TimingRing, exit if arrived to end of IAS + IAS_TimingRing = (IAS_TimingRing + 1) % 60; + if (IAS_TimingRing == 0) break; + } + if (IAS_TimingRing == 0) break; + IAS_TimingRing = (IAS_TimingRing + 1) % 60; // skip control word + if (IAS_TimingRing == 0) break; + } + *reclen = (t_mtrlnt) ic; +} + +/* Start off a mag tape command */ +uint32 mt_cmd(UNIT * uptr, uint16 cmd, uint16 fast) +{ + DEVICE *dptr = find_dev_from_unit(uptr); + int unit = uptr - &mt_unit[0]; + int i, ic, time; + t_stat r; + uint8 buf[1024]; + char cbuf[100]; + t_mtrlnt reclen; + + time = 0; + /* Make sure valid drive number */ + if ((unit > 5) || (unit < 0)) return STOP_ADDR; + // init IBM 652 Control Unit internal registers + LastTapeSelected = unit; + LastTapeIndicator = 0; + bFastMode = fast; + /* If tape unit disabled return error */ + if (uptr->flags & UNIT_DIS) { + sim_debug(DEBUG_EXP, dptr, "Tape %d: command %02d attempted on disabled tape\n", unit, cmd); + LastTapeIndicator = MT_IND_DIS; + // not stated in manual: what happends if command to non existant tape? + // option 1 -> cpu halt + // option 2 -> tape indictor flag set (used this) + return SCPE_OK; + } + /* If tape has no file attached return error */ + if ((uptr->flags & UNIT_ATT) == 0) { + sim_debug(DEBUG_EXP, dptr, "Tape %d: command %02d attempted on tape without file attached\n", unit, cmd); + LastTapeIndicator = MT_IND_NOATT; + uptr->u5 |= MT_IND; // turn on tape indicator light to signal to operator the faulting tape + return SCPE_OK; + } + uptr->u5 &= ~(MT_CMDMSK | MT_RDY | MT_IND); // remove last command sent to tape, remove ready flag, remove tape indicator flag + uptr->u5 |= cmd; // set current command in execution + switch (cmd) { + case OP_RTC: + case OP_RTA: + case OP_RTN: + sim_debug(DEBUG_DATA, dptr, "Tape unit %d: init read\n", unit); + // actual simulated tape read + reclen = 0; + r = sim_tape_rdrecf(uptr, buf, &reclen, sizeof(buf)); + // calc tape pos: + // each char uses 0,005 inches. at the end of record the IRG (inter gap record) uses 3/4 inchs (0.75) + // scaled x1000 to use integer values + uptr->u3 += (int32) ((reclen * 0.005 + 0.75) * 1000); + // process result conditions + if (r == MTSE_TMK) { + sim_debug(DEBUG_EXP, dptr, "Tape unit %d: tape mark sensed\n", unit); + LastTapeIndicator = MT_IND_EOF; + uptr->u5 |= MT_IND; + } else if ((r == MTSE_EOM) || (uptr->u3 > uptr->u4*1000)) { + sim_debug(DEBUG_EXP, dptr, "Tape unit %d: end of tape sensed\n", unit); + LastTapeIndicator = MT_IND_EOT; + uptr->u5 |= MT_IND; + } else if (r == MTSE_RECE) { + // record header contains error flag + sim_debug(DEBUG_EXP, dptr, "Tape unit %d: longitudinal or vertical check error\n", unit); + LastTapeIndicator = MT_IND_IOCHECK; + uptr->u5 |= MT_IND; + } else if (r != MTSE_OK) { + sim_debug(DEBUG_EXP, dptr, "Tape unit %d: read error %d\n", unit, r); + return STOP_IO; + } + // debug output: display buf as 50 chars per line + sim_debug(DEBUG_DETAIL, dptr, "Read record (%d chars) from tape:\n", (int) reclen); + ic = 0; + while (1) { + for (i=0;i<50;i++) { + cbuf[i] = 0; + if (ic == reclen) break; + cbuf[i] = buf[ic++]; + } + sim_debug(DEBUG_DETAIL, dptr, "... '%s'\n", cbuf); + if (ic == reclen) break; + } + // calc wordcount time needed to finish tape operation + time = msec_to_wordtime(11 + reclen * 0.068); + // transfer read data to IAS + if ((cmd != OP_RTC) && (LastTapeIndicator == 0)) { + LastTapeIndicator = mt_transfer_tape_rec_to_IAS(buf, reclen, (cmd == OP_RTN) ? 'N':'A'); + if (LastTapeIndicator) { + sim_debug(DEBUG_EXP, dptr, "Tape unit %d: decode error %s\n", unit, TapeIndicatorStr[LastTapeIndicator]); + uptr->u5 |= MT_IND; + } + } + break; + case OP_WTM: + case OP_WTA: + case OP_WTN: + sim_debug(DEBUG_CMD, dptr, "Tape unit %d: init write\n", unit); + if (cmd == OP_WTM) { + r = sim_tape_wrtmk(uptr); + // calc tape pos: + uptr->u3 += (int32) ((1 * 0.005 + 0.75) * 1000); + sim_debug(DEBUG_DETAIL, dptr, "Write Tape Mark\n"); + } else { + sim_debug(DEBUG_DETAIL, dptr, "IAS TimingRing is %d\n", IAS_TimingRing+9000); + mt_transfer_IAS_to_tape_rec(buf, &reclen, (cmd == OP_WTN) ? 'N':'A'); + // actual simulated tape write + r = sim_tape_wrrecf(uptr, buf, reclen); + // calc tape pos: + uptr->u3 += (int32) ((reclen * 0.005 + 0.75) * 1000); + // debug output: display buf as 50 chars per line + sim_debug(DEBUG_DETAIL, dptr, "Write record (%d chars) to tape:\n", (int) reclen); + ic = 0; + while (1) { + for (i=0;i<50;i++) { + cbuf[i] = 0; + if (ic == reclen) break; + cbuf[i] = buf[ic++]; + } + sim_debug(DEBUG_DETAIL, dptr, "... '%s'\n", cbuf); + if (ic == reclen) break; + } + sim_debug(DEBUG_DETAIL, dptr, " IAS TimingRing is %d\n", IAS_TimingRing+9000); + } + // process result conditions + if (r == MTSE_WRP) { + LastTapeIndicator = MT_IND_WRT_PROT; + uptr->u5 |= MT_IND; + } else if ((r == MTSE_EOM) || (uptr->u3 > uptr->u4*1000)) { + LastTapeIndicator = MT_IND_EOT; + uptr->u5 |= MT_IND; + } else if (r != MTSE_OK) { + sim_debug(DEBUG_EXP, dptr, "Tape unit %d: write error %d\n", unit, r); + return STOP_IO; + } + // calc wordcount time needed + time = msec_to_wordtime(11 + reclen * 0.068); // time to remove Tape Control interlock + break; + case OP_BST: + case OP_RWD: + /* Check if at load point, quick return if so */ + if (sim_tape_bot(uptr)) { + sim_debug(DEBUG_CMD, dptr, "Tape unit %d: at BOT\n", unit); + uptr->u5 |= MT_RDY; + uptr->u3 = 0; + return SCPE_OK; + } + if (cmd == OP_RWD) { + sim_debug(DEBUG_CMD, dptr, "Tape unit %d: init rewind\n", unit); + sim_tape_rewind(uptr); + uptr->u3 = 0; + time = msec_to_wordtime(35); // 35 msec to remove Tape Control interlock + } + if (cmd == OP_BST) { + sim_debug(DEBUG_CMD, dptr, "Tape unit %d: init backstep record\n", unit); + r = sim_tape_sprecr(uptr, &reclen); + if ((r != MTSE_OK) && (r != MTSE_TMK)) { + return r; + } + uptr->u3 -= (int32) ((reclen * 0.005 + 0.75) * 1000); + time = msec_to_wordtime(38.5 + reclen * 0.068); // time to remove Tape Control interlock + } + break; + default: + sim_debug(DEBUG_EXP, dptr, "Tape %d: unknown command %02d\n", unit, cmd); + // should never occurs. just to catch it if so. + } + if (bFastMode) time = 0; + sim_cancel(uptr); + sim_activate(uptr, time); + return SCPE_OK_INPROGRESS; +} + +/* Handle processing of tape requests. */ +t_stat mt_srv(UNIT * uptr) +{ + DEVICE *dptr = find_dev_from_unit(uptr); + int unit = (uptr - dptr->units); + int cmd = uptr->u5 & MT_CMDMSK; + int time; + + switch (cmd) { + case OP_RTC: + case OP_RTA: + case OP_RTN: + case OP_WTM: + case OP_WTA: + case OP_WTN: + if (InterLockCount[IL_Tape]) { + // remove Tape Control Interlock + InterLockCount[IL_Tape] = 0; + sim_debug(DEBUG_CMD, dptr, "Tape unit %d: free TCI interlock\n", unit); + } + if (InterLockCount[IL_IAS]) { + // remove IAS Interlock + InterLockCount[IL_IAS] = 0; + sim_debug(DEBUG_CMD, dptr, "Tape unit %d: free IAS interlock\n", unit); + } + // command finished + goto tape_done; + break; + case OP_BST: + case OP_RWD: + if (InterLockCount[IL_Tape]) { + // remove Tape Control Interlock + InterLockCount[IL_Tape] = 0; + sim_debug(DEBUG_CMD, dptr, "Tape unit %d: free TCI interlock\n", unit); + // calculate end of backspace/rew time + if (cmd == OP_BST) { + time = msec_to_wordtime(38.5 + 22); + } else { + // max time to rew is 1.2 minutes. + // get a rought aprox on % medium used (not exacta as not taking into account Hi/low speed rew) + time = (int) ((uptr->u3 / (uptr->u4*1000.0))*1.2*60+1); // number of seconds + time = msec_to_wordtime(time * 1000); // number of word times + } + if (bFastMode) time = 0; + sim_cancel(uptr); + sim_activate(uptr, time); + } else { + // command finished + goto tape_done; + } + break; + default: + return SCPE_ARG; // should never occurs. just to catch it if so. + tape_done: + sim_debug(DEBUG_CMD, dptr, "Tape unit %d: ready\n", unit); + sim_debug(DEBUG_DETAIL, &cpu_dev, "... Tape %d done, used %4.2f%% of medium\n", + unit, + (uptr->u3 / (uptr->u4*1000.0))*100.0 + ); + // set unit ready to accept new commands + uptr->u5 |= MT_RDY; + break; + } + return SCPE_OK; +} + +void mt_ini(UNIT * uptr, t_bool f) +{ + if (uptr->flags & UNIT_ATT) { + uptr->u5 = MT_RDY; + } else { + uptr->u5 = 0; + } + uptr->u3 = 0; + if (uptr->u4 == 0) uptr->u4 = 28800; // default 2400 ft reel; 1 foot = 12 inches; 2400 ft = 28800 inches +} + +t_stat mt_reset(DEVICE * dptr) +{ + int i; + for (i = 0; i < 6; i++) { + mt_ini(&mt_unit[i], 0); + } + return SCPE_OK; +} + +t_stat mt_attach(UNIT * uptr, CONST char *file) +{ + t_stat r; + + if ((r = sim_tape_attach(uptr, file)) != SCPE_OK) + return r; + uptr->u3 = 0; + uptr->u5 = MT_RDY; + return SCPE_OK; +} + +t_stat mt_detach(UNIT * uptr) +{ + uptr->u3 = 0; + uptr->u5 = 0; + sim_cancel(uptr); // cancel any pending command + return sim_tape_detach(uptr); +} + +/* Set tape length */ + +t_stat mt_set_len (UNIT *uptr, int32 val, CONST char *cptr, void *desc) +{ + int len; + t_stat r; + + if ((cptr == NULL) || (*cptr == 0)) return SCPE_ARG; + len = (int) get_uint (cptr, 10, 10000, &r); + if (r != SCPE_OK) return SCPE_ARG; + if (len < 50) return SCPE_ARG; + uptr->u4 = 28800 * len / 2400; + return SCPE_OK; +} + +/* Show tape length */ + +t_stat mt_show_len (FILE *st, UNIT *uptr, int32 val, CONST void *desc) +{ + fprintf (st, "length %d foot", uptr->u4 * 2400 / 28800); + return SCPE_OK; +} + + +t_stat +mt_help(FILE *st, DEVICE *dptr, UNIT *uptr, int32 flag, const char *cptr) +{ + fprintf (st, "%s\n\n", mt_description(dptr)); + fprintf (st, "The magnetic tape assumes that all tapes are 7 track\n"); + fprintf (st, "with valid parity. Tapes are assumed to be 200 characters per\n"); + fprintf (st, "inch. \n\n"); + sim_tape_attach_help (st, dptr, uptr, flag, cptr); + fprint_set_help(st, dptr); + fprint_show_help(st, dptr); + return SCPE_OK; +} + +const char * +mt_description(DEVICE *dptr) +{ + return "IBM 727 Magnetic tape unit"; +} + + diff --git a/I650/i650_sys.c b/I650/i650_sys.c index d6449f9a9..0e3237e8d 100644 --- a/I650/i650_sys.c +++ b/I650/i650_sys.c @@ -45,15 +45,17 @@ DEVICE *sim_devices[] = { &cpu_dev, &cdr_dev, &cdp_dev, -//XXX &mta_dev, + &mt_dev, + &dsk_dev, NULL }; /* Device addressing words */ -DIB cdr_dib = { 1, &cdr_cmd, NULL }; +DIB cdr_dib = { 3, &cdr_cmd, NULL }; DIB cdp_dib = { 3, &cdp_cmd, NULL }; -//XXX DIB mt_dib = { CH_TYP_76XX, NUM_UNITS_MT, 0000, 0000, &mt_cmd, &mt_ini }; +DIB mt_dib = { 5, &mt_cmd, &mt_ini }; +DIB dsk_dib = { 4, &mt_cmd, &dsk_ini }; /* Simulator stop codes */ const char *sim_stop_messages[] = { @@ -61,7 +63,7 @@ const char *sim_stop_messages[] = { "HALT instruction", "Breakpoint", "Unknown Opcode", - "Card Read/Punch Error", + "I/O Error", "Programmed Stop", "Overflow", "Opcode Execution Error", @@ -99,7 +101,11 @@ DEBTAB crd_debug[] = { // simulator available IBM 533 wirings struct card_wirings wirings[] = { {WIRING_8WORD, "8WORD"}, + {WIRING_RA, "RA"}, + {WIRING_FDS, "FDS"}, {WIRING_SOAP, "SOAP"}, + {WIRING_SOAPA, "SOAPA"}, + {WIRING_SUPERSOAP, "SUPERSOAP"}, {WIRING_IS, "IS"}, {WIRING_IT, "IT"}, {WIRING_FORTRANSIT, "FORTRANSIT"}, @@ -169,19 +175,40 @@ uint16 ascii_to_hol[128] = { 0xC04, 0xC02, 0xC01, 0x680, 0x640, 0x620, 0x610, 0x608, /* x y z { | } ~ del */ /* Y78 X78 78 79 */ - 0x604, 0x602, 0x601, 0x406, 0x806,0x0006,0x0005,0xf000 + 0x604, 0x602, 0x601, 0x406, 0x806, 0x006, 0x005,0xf000 }; +uint16 sim_ascii_to_hol(char c) +{ + return ascii_to_hol[c & 127]; +} + +char sim_hol_to_ascii(uint16 hol) +{ + int c; + hol = hol & 0x0fff; // ignore extra high bits, if any + if (hol == 0xa00) return '?'; // +0 + if (hol == 0x600) return '!'; // -0 + for (c=31;c<127;c++) { + if (ascii_to_hol[c] == hol) { + // take in consideration the aliases between hol and ascii to return + // char as for 026 FORT charset + // hol = 0x022 -> 8-4 punches -> "-" or "'" or "@". Must be "-" + // hol = 0x222 -> 0-8-4 punches -> "(" or "%". Must be "(" + if (c == '%') {c = '(';} else + if (c == '@') {c = '-';} else + if (c == '\'') {c = '-';}; + return c; + } + } + return '~'; +} + /* Initialize vm */ void vm_init(void) { int i; - static int initialized = 0; - - if (initialized) - return; - initialized = 1; // Initialize vm memory to all plus zero for(i = 0; i < MAXDRUMSIZE; i++) DRUM[i] = DRUM_NegativeZeroFlag[i] = 0; for(i = 0; i < 60; i++) IAS[i] = IAS_NegativeZeroFlag[i] = 0; @@ -191,6 +218,8 @@ vm_init(void) { } +void (*sim_vm_init) (void) = &vm_init; + /* Load a card image file into memory. */ t_stat @@ -203,17 +232,17 @@ sim_load(FILE * fileref, CONST char *cptr, CONST char *fnam, int flag) /* Opcodes */ t_opcode base_ops[100] = { - // opcode name soap name R/W? option Valid Data Address + // opcode name soap name R/W? option Valid Data Address Interlock {OP_NOOP, "NOOP", "NOP", 0, 0, vda_DAITS}, {OP_STOP, "STOP", "HLT", 0, 0, vda_DAITS}, {OP_UFA, "FASN", "UFA", opReadDA, opStorUnit, vda_DAIS}, - {OP_RTC, "RCT", "RTC", 0, opCntrlUnit, vda_T}, - {OP_RTN, "RT", "RTN", 0, opCntrlUnit, vda_T}, - {OP_RTA, "RTA", "RTA", 0, opCntrlUnit, vda_T}, - {OP_WTN, "WT", "WTN", 0, opCntrlUnit, vda_T}, - {OP_WTA, "WTA", "WTA", 0, opCntrlUnit, vda_T}, - {OP_LIB, "LBB", "LIB", opReadDA, opStorUnit, vda_D, IL_IAS}, - {OP_LDI, "LB", "LDI", opReadDA, opStorUnit, vda_D, IL_IAS}, + {OP_RTC, "RCT", "RTC", 0, opCntrlUnit, vda_T, IL_Tape_and_Unit}, + {OP_RTN, "RT", "RTN", 0, opCntrlUnit, vda_T, IL_Tape_and_Unit_and_IAS}, + {OP_RTA, "RAT", "RTA", 0, opCntrlUnit, vda_T, IL_Tape_and_Unit_and_IAS}, + {OP_WTN, "WT", "WTN", 0, opCntrlUnit, vda_T, IL_Tape_and_Unit_and_IAS}, + {OP_WTA, "WAT", "WTA", 0, opCntrlUnit, vda_T, IL_Tape_and_Unit_and_IAS}, + {OP_LIB, "LBB", "LIB", 0, opStorUnit, vda_D, IL_IAS}, + {OP_LDI, "LB", "LDI", 0, opStorUnit, vda_D, IL_IAS}, {OP_AU, "AU", "AUP", opReadDA, 0, vda_DAIS}, {OP_SU, "SU", "SUP", opReadDA, 0, vda_DAIS}, @@ -231,7 +260,7 @@ t_opcode base_ops[100] = { {OP_STDA, "STDA", "SDA", opWriteDA, 0, vda_DS}, {OP_STIA, "STIA", "SIA", opWriteDA, 0, vda_DS}, {OP_STD, "STD", "STD", opWriteDA, 0, vda_DS}, - {OP_NTS, "BNTS", "NTS", 0, opCntrlUnit, vda_DAIS}, + {OP_NTS, "BNTS", "NTS", 0, opCntrlUnit, vda_DAIS, IL_Tape}, {OP_BIN, "BIN", "BIN", 0, opCntrlUnit, vda_D}, {OP_SET, "SET", "SET", 0, opStorUnit, vda_S, IL_IAS}, {OP_SIB, "STBB", "SIB", 0, opStorUnit, vda_D, IL_IAS}, @@ -263,17 +292,17 @@ t_opcode base_ops[100] = { {OP_SXA, "SA", "SXA", 0, opStorUnit, vda_DAS}, {OP_AXB, "AB", "AXB", 0, opStorUnit, vda_DAS}, {OP_SXB, "SB", "SXB", 0, opStorUnit, vda_DAS}, - {OP_NEF, "BRNEF", "NEF", 0, opCntrlUnit, vda_DAIS}, - {OP_RWD, "RWD", "RWD", 0, opCntrlUnit, vda_T}, - {OP_WTM, "WTM", "WTM", 0, opCntrlUnit, vda_T}, - {OP_BST, "BSP", "BST", 0, opCntrlUnit, vda_T}, + {OP_NEF, "BRNEF", "NEF", 0, opCntrlUnit, vda_DAIS, IL_Tape}, + {OP_RWD, "RWD", "RWD", 0, opCntrlUnit, vda_T, IL_Tape_and_Unit}, + {OP_WTM, "WTM", "WTM", 0, opCntrlUnit, vda_T, IL_Tape_and_Unit}, + {OP_BST, "BSP", "BST", 0, opCntrlUnit, vda_T, IL_Tape_and_Unit}, {OP_AXC, "AC", "AXC", 0, opStorUnit, vda_DAS}, {OP_SXC, "SC", "SXC", 0, opStorUnit, vda_DAS}, {OP_RAU, "RAU", "RAU", opReadDA, 0, vda_DAIS}, {OP_RSU, "RSU", "RSU", opReadDA, 0, vda_DAIS}, {62, NULL, NULL, 0, 0, 0}, - {63, NULL, NULL, 0, 0, 0}, + {OP_TLE, "TLE", "TLE", 0, opTLE, vda_DS}, {OP_DIVRU, "DIVRU", "DVR", opReadDA, 0, vda_DAIS}, {OP_RAL, "RAL", "RAL", opReadDA, 0, vda_DAIS}, {OP_RSL, "RSL", "RSL", opReadDA, 0, vda_DAIS}, @@ -287,9 +316,9 @@ t_opcode base_ops[100] = { {OP_RD2, "RD2", "RD2", 0, opStorUnit, vda_DS, IL_RD23}, {OP_WR2, "WR2", "WR2", 0, opStorUnit, vda_DS, IL_WR23}, {OP_RC2, "RC2", "RC2", 0, opStorUnit, vda_DS, IL_RD23}, - {OP_RD3, "RD3", "RD3", 0, opStorUnit, vda_DS, IL_RD23}, - {OP_WR3, "WR3", "WR3", 0, opStorUnit, vda_DS, IL_WR23}, - {OP_RC3, "RC3", "RC3", 0, opStorUnit, vda_DS, IL_RD23}, + {OP_RD3, "RDPRT", "RD3", 0, opStorUnit, vda_DS, IL_RD23}, + {OP_WR3, "PRT", "WR3", 0, opStorUnit, vda_DS, IL_WR23}, + {OP_RC3, "RCPRT", "RC3", 0, opStorUnit, vda_DS, IL_RD23}, {OP_RPY, "RPY", "RPY", 0, opCntrlUnit, vda_D}, {OP_RAA, "RAA", "RAA", 0, opStorUnit, vda_DAS}, @@ -297,9 +326,9 @@ t_opcode base_ops[100] = { {OP_RAB, "RAB", "RAB", 0, opStorUnit, vda_DAS}, {OP_RSB, "RSB", "RSB", 0, opStorUnit, vda_DAS}, {OP_TLU, "TLU", "TLU", 0, 0, vda_DS}, - {OP_SDS, "SDS", "SDS", 0, opCntrlUnit, vda_9000}, - {OP_RDS, "RDS", "RDS", 0, opCntrlUnit, vda_9000}, - {OP_WDS, "WDS", "WDS", 0, opCntrlUnit, vda_9000}, + {OP_SDS, "SDS", "SDS", 0, opCntrlUnit, vda_9000, IL_RamacUnit_and_Arm}, + {OP_RDS, "RDS", "RDS", 0, opCntrlUnit, vda_9000, IL_RamacUnit_and_Arm_and_IAS}, + {OP_WDS, "WDS", "WDS", 0, opCntrlUnit, vda_9000, IL_RamacUnit_and_Arm_and_IAS}, {OP_RAC, "RAC", "RAC", 0, opStorUnit, vda_DAS}, {OP_RSC, "RSC", "RSC", 0, opStorUnit, vda_DAS}, @@ -626,6 +655,8 @@ int Shift_Digits(t_int64 * d, int nDigits) 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) + if cound is 5cd, file2 received 5 words-per-load-card deck + if file2 has no cards, it is deleted. first destination deck file second destination deck file @@ -677,18 +708,11 @@ int Shift_Digits(t_int64 * d, int nDigits) t_stat deck_load(CONST char *fn, uint16 * DeckImage, int * nCards) { UNIT * uptr = &cdr_unit[0]; - struct _card_data *data; + uint16 image[80]; t_stat r, r2; - int i, convert_to_ascii; + int i; 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; @@ -698,20 +722,21 @@ t_stat deck_load(CONST char *fn, uint16 * DeckImage, int * nCards) // 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; + r = sim_read_card(uptr, image); + if ((r == CDSE_EOF) || (r == CDSE_EMPTY)) { + r = SCPE_OK; break; // normal termination on card file read finished + } else if (r != CDSE_OK) { + break; // abnormal termination on error + } // 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; + c = image[i]; + DeckImage[*nCards * 80 + i] = c & 0xFFF; } *nCards = *nCards + 1; } @@ -729,7 +754,7 @@ t_stat deck_load(CONST char *fn, uint16 * DeckImage, int * nCards) t_stat deck_save(CONST char *fn, uint16 * DeckImage, int card, int nCards) { UNIT * uptr = &cdr_unit[0]; - struct _card_data *data; + uint16 image[80]; t_stat r; int i,nc; @@ -748,12 +773,11 @@ t_stat deck_save(CONST char *fn, uint16 * DeckImage, int card, int nCards) 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]; + for (i=0; i<80; i++) image[i] = DeckImage[(nc + card) * 80 + i]; - r = sim_punch_card(uptr, NULL); - if (r != SCPE_OK) break; // abnormal termination on error + r = sim_punch_card(uptr, image); + if (r != CDSE_OK) break; // abnormal termination on error } // deattach file from cdr unit 0 @@ -768,11 +792,13 @@ void deck_print_echo(uint16 * DeckImage, int nCards, int bPrint, int bEcho) { char line[81]; int i,c,nc; + uint16 hol; for (nc=0; nc +// carddeck split 5CD +// carddeck split PAT static t_stat deck_split_cmd(CONST char *cptr) { char fn0[4*CBUFSIZE]; @@ -805,6 +833,8 @@ static t_stat deck_split_cmd(CONST char *cptr) DEVICE *dptr; UNIT *uptr; t_stat r; + int bSplit5CD = 0; + int bSplitPAT = 0; uint16 DeckImage[80 * MAX_CARDS_IN_DECK]; int nCards, nCards1, tail; @@ -816,10 +846,20 @@ static t_stat deck_split_cmd(CONST char *cptr) } else { tail = 0; } + nCards1 = 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"); - if (nCards1 == 0) return sim_messagef (SCPE_ARG, "Count cannot be zero\n"); + if ((tail == 0) && (strlen(gbuf) == 3) && (strncmp(gbuf, "5CD", 3) == 0)) { + // split 5-words per card load cards fron deck + bSplit5CD = 1; + } else if ((tail == 0) && (strlen(gbuf) == 3) && (strncmp(gbuf, "PAT", 3) == 0)) { + // split availability table load cards fron deck + bSplitPAT = 1; + } else { + // + nCards1 = (int32) get_uint (gbuf, 10, 10000, &r); + if (r != SCPE_OK) return sim_messagef (SCPE_ARG, "Invalid count value\n"); + if (nCards1 == 0) return sim_messagef (SCPE_ARG, "Count cannot be zero\n"); + } get_glyph (cptr, gbuf, 0); // get dev param cptr = get_glyph_quoted (cptr, fn0, 0); // re-read using get_glyph_quoted to do not @@ -861,6 +901,104 @@ static t_stat deck_split_cmd(CONST char *cptr) 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"); + if (bSplit5CD ) { + // separate 5cd deck + uint16 DeckImage1[80 * MAX_CARDS_IN_DECK]; + uint16 DeckImage2[80 * MAX_CARDS_IN_DECK]; + int i, nc, nc1, nc2, bFound; + uint16 hol; + + nc1 = nc2 = 0; + for (nc=0; ncxD+jo?((3AZwX#%&H)ILcE2Q5Nd_s&Hcb33E-k@u_jo>Du$?jiC1Q+nk>ct^m8kJkMt`S=ZW6 zhW>io?)|uq3}44(=x2OH1gtobL{w9dgW1l!z1xgbNO38IWqo@2r8~Czw&4Pd!vEZ1IuD`mtrT_r2DS@*gQ?9K*zU9`-+Ic~k!2|87qih%@As zKYgg?G4%G*1FOr>+>Ci#CjWs&z2iOe6LaPd`M95ldfxSqoP3Qj;(zl>{;y+(iNEsS zJ8|2v9_y#~()R=PO^bCPPQ5Z2M+Ziq=vwuKjQ6Ewgv3Wm!*SwC{IP$XY4cuRbNv+*-YEr0fb z^;P}@u5)+7e_S69uDMk|9`;A()rkX~><<|WY>ym$d$0ZNj_>FE-l=x&FMrwp@7w;W zJn*@S#UcDY@P!P9)_8FQ6MUcRQ~84*px>82az9R7!(aYbKa-!3$Npt4rft|hOjdG^ zI$r#){$}J^{d+&UKGc8qfxj`<8L9Q}u&=@&viUPx=-f>wf6CyxVBnGX?=wD;Pvf`Y zU;SVEi*xxPM&*}3>TKP_C4cbOsHyy;7Cg#dH|J^TksXO>>U`a|`jCI&|627?(I35r z|EO<^e-HenpZFz%vxznCtP+>`wXN$@$YXw--{7$^Czu_aj^W>jJm+`rkJ@6TAGS+x zB2M$i{+r*3rd^x+N63suUdFS&w#^@McoA#(ie~nQ@^RyR)1RzaziO|1TzNO|*T}!t zw`1G-2>j0F>@Q`!f;VCee3L)Ne;9S#SMtzWulxrx8te8hPJ7>Le-62`zmZ3m(4XWi zf8{wpxlfAuQF`QWydv*O0Hg5!|e8glxuy5ul|?Gzu#V!Ke~YtVimryE&RJ)V(_*9{t(YN`|(&VyM6Jz3_)T z`}30dna6H0PC7FwQpPXv_r(w2)gRXPrXTz>27jymfp7MY__@9WK6}NqjI}=UhdlA! zGC#MvV<ZdGrsb`_ZGkS z0nLk-;XIV+*}1+#X7r=KH+)x0w9E9n41b>K4K~J}AN;sm*ZvZ6&0jwv&d!f9sgEiQ znDyVVn*Pd>IVPHK)NpR=^CY;VEhFUo-p;=2kN!2fNA<^Z>UmZs{_d|$^=HU23wmG3 z98o&)W3HV4pBQtz4))*DgX=NJQ}5GU>7CR5p=X7Ae^~J;Fa6eg_>YR)U-qZV*)`^b z-;)3tiw}pz{7_Xg^;xI)Vz=-jriPqieWsRgRX=k!`MV#leqg0T9^o_ej{J?E@>lRK=lW34azt^W=G$gj_1^qsjp0-wV8{yp_}mVtR@9Qu%F{i%nCS-)nV z`-?eO{~#~?R1^E-tWV}&1OFG2Ke`W2e9Gig%XnDcVXJ}x7F@>ibqB|e$j`03=wN{2kg`pTM_^FB4k zPMg={*XvvDufv~sRlobc^OKrY+TwK3LqP!zez9$RleS4)U?lU#19J)jru13D_H06+XIt(V$H8}HRm@flc(F{FJwmQ z{?+(0&?kSlrp(_Dz?Sw0Zv`XWk#xc=#XOQ_c9l`#Uge$Vq=}{M}B+ zc6@w;pZESV=R-5jkR@2J=p0BQ3j1HKPi3>HKk5JQ+ODsC?T>Bv$X4+i@`zu%IM0N0 zenTeu&Tq`mtUrEV3M@kQkl)&$joAa8nq1$(&+uoI{`pn^S^QG}34tBwh&}4;-Ef@L zjJjrL_UBe#{607MOa86qRsPDwAM)tWHsc>Ye`WmWZF4$jvwmdiy#yNPE9PwC1OLRw zS{pccrl0wJzBjVR!e9K^-#_I?j$G$A@l{RW8}ko-_ST40>)*NfgI>77U3{*;-WISWv7%_;{SN+@zlS5o}n2r5^;G-9(M$l>XD*nhV{u);sm`YDQ?ytK( zYSJ)mNnifiUpqcCzTmL%B?n)#KV@$68+ZPh|E1%=^1>$l=#R)sO#`21e`3}JgfA~< z;p~1Xd7{t$e~%HL-`^-l*l z#rOQ+*Ht|GU-^SyI9vQG<6rB>w6gUa`9uED$DC~VzR9uomzZk(hP?3?>-UWL&;C-z zKKP@e!cq8%9Qp>XCRuzkr!#)Y6@OsDXZBynME|va8!%(d`}11kR`V#m@`rz8te&r& z-$#F+-@sh{V6r~HW(NiSxxbk6=R?2uza@X(Kg((H6Y{8EIchk`Ip>f4wI3i%1cBm! zQ-v6_{Peqx>#H@@{E@$7ki66P`tbY0?B9?X+2`N;`^ShMGVx`=EW)}0uTMQPQT3ns zv8?{{w~XgUe6D$uzmOw3@!Mf+Kezq{>xch;iVuY65jg*M_yVi-HzUh|ueJU{mbIam zKc6FOe+l`Qo;`oezgLFWrjPiYXM&->DQ|k`NzS=HjEo@%D$zA9gXftat3Qm^x*hz_ z{-C}${==X89tJa(GOt{F*+pV_jr`X4>R5(#<|oJ5hkwX{idfol*ky%3@e;!;aQ;&bvB@<)8H-*tcUe~WMO3)j|1ZI+z#v-VH;Kl=y2H|&ew zkU#4`*Z#r!{Kc<47QZ3)%&iPxyw>lFA#d>mpZpenW$<0_6@U7-xj*{d{ z|A^o3^Zv>H(T;tnb%T|>`Xl3?+y0`AU)%Cq$Hb>Be?wpR=lTJ^_)0Hc`e)%&R`2*R zeqT8*tvi%stp_SC#{8Wdzsmi{x{;0VYI|v1a>d6k>L+2vzbSi$b#lm_aQ5LJGV#K% zY|d4`_X?4J=!AXkj1BxDlmD{o`Cj|K>-YIlpL+kxl{tkK5%b%~p7jj?wckVCT6Hk8P|D*6Au6FvLtNxHb`EB&X;79)c;CJQI7{MP= zN-y)#-{F~26hYt;9izs>&Dp8H2owt4t%_NVf3 zJ=Nd((d)Ape#Sa@%RA;5>$<+VzeoL8AoEQQ*8l&&1^&6eRtzlUm(EaPEzIa;5%(Xd zNB7OkeS1Hsf9U=DNv?|zeLKR#zyG}7pNjdRaroT=U&J>IV{-m8^da{(?)v?Ln?7tq zroNoF%e)UNeu>*i5OKLbC$qJz`-_l+F%p7ErpeifANWF!=*gA&_umI^9sYO)uJLJ4 zJ*PkN@NWzAS@FSt7Cx^p@&JZb`j9{H`73JGCqL{@$s6zDU~FE$LN0%_#N*)k$q#M8 z{KHGXVAiq5Gjr*c39tU%4lL1=XXaPl@+bc5*~|YxCjXot{fV~LCo=IHd33Suue=jK zY6>~L)jHd02fozzL;4bz$cMiAhxv{CD%$V?fA7OGWC9%M7 zr}OvsWBLD#nU;U>6Q#}L+L^!7Gw1O0u6NEg=cJZ-|I4?`@0^w%d9KgW%X#UE;PZ*; zn3wRUs+qreuNqm@Td(}Azt4n>cly)6=;_k6{*(tljECO)!>T`I>cx#S>#^5r{e}F2 z&o#69KkqN(kMV94_q?TFzwe4mJ3g(yuu@;H-{`M_W99exq~<^CGyYSsBbWP!^%HmG zU-NH$wSOpE5ASpSLMHzE`r`gz#HW9|`HgSg>A(N|CVqcEMqQKNy1z6d*XPh1GX3}8 z&$#~y)O-B(d_vCF@iIPts|Y5jU;d(g$GpEue5}^Uahv$D1%Lki5`GHbrsrD3aL(T~ z=fr2G5g+7C>hJm=L+@PF`r6`8eAMsy8F^=anZL$RXI=EaWpKXr->E+5C)by9?e8J~ zOMc;McS4=Gx!l fUR44a$NKb>`@grId4*2>I`*+$E{lC^m#6+8;DymB literal 0 HcmV?d00001 diff --git a/I650/sw/fds/example.txt b/I650/sw/fds/example.txt new file mode 100644 index 000000000..9712567ac --- /dev/null +++ b/I650/sw/fds/example.txt @@ -0,0 +1,63 @@ + + A accumulator is address 0037 + + B accumulator is address 0089 + + K accumulator is address 0057 + + branch to address 0026 to resume execution of FDS operations on next address + + + + Floating point format EE mmmm mmmm + + FDS instruction: + AAAA OP AAAA BBBB- + + IBM 650 instruction: + AAAA OP (DA) (IA) + + + + constants + + 0500 50 0000 0000 0.0 floating point + + 0501 50 1000 0000 1.0 floating point + + 0502 00 0000 0001 decimal 1 + + 0503 00 0000 0010 decimal 10 max number of results + + 0504 00 0000 0000 decimal zero + + 0505 00 1100 0000 start of interpretive FDS program + + + + variables + + 0510 00 0000 0000 N float + + 0511 00 0000 0000 sqrt(n) + + 0512 00 0000 0000 iteration count + + + + Main FDS program + + + + 1100 01 0510 0501- FDS A(N=0510) + B(1.0=0501) -> K + + 1101 69 0057 1201 ld dist<-K + + 1201 24 0510 1202 std 0510 N<-K + + 1202 60 0512 1203 rau 0512 acc=iteration count + + 1203 10 0502 1204 au 0502 acc=acc+1 + + 1204 21 0512 1205 stu 0512 interation count=acc + + 1205 11 0503 1206 su 0503 compare with max num of iterations + + 1206 46 0026 9999 brmin continue interpretation, else stop + + 1102 16 0510 0511- FDS sqrt(A(N=0510)) -> B (0511) + + 1103 69 0512 1210 ld iteration count + + 1210 24 0977 1211 std word1 punch area + + 1211 69 0510 1212 ld N float + + 1212 24 0978 1213 std word2 punch area + + 1213 69 0511 1214 ld sqrt(N) float + + 1214 24 0979 1215 std word3 punch area + + 1215 71 0977 0026 pch Iteration num N float sqrt(N) float, then continue interpretation + + 1104 12 1100 0000- FDS BR A(=1100) + + + + 1000 69 0504 1001 ld dist=0 decimal + + 1001 24 0512 1002 std iteration count + + 1002 69 0500 1003 ld dist=0 float + + 1003 24 0510 1004 std N + + 1004 65 0505 0420 ral acc=start of interpretive program, start interpretation + + + + should print + + + + 00 0000 0001 50 1000 0000 50 1000 0000 + + 00 0000 0002 50 2000 0000 50 1414 2135 + + 00 0000 0003 50 3000 0000 50 1732 0508 + + 00 0000 0004 50 4000 0000 50 2000 0000 + + 00 0000 0005 50 5000 0000 50 2236 0679 + + 00 0000 0006 50 6000 0000 50 2449 4897 + + 00 0000 0007 50 7000 0000 50 2645 7513 + + 00 0000 0008 50 8000 0000 50 2828 4271 + + 00 0000 0009 50 9000 0000 50 3000 0000 + + + + iteration num N=1..9 float sqrt(N) float + + + +g1000 transfer card. Start execution at addr 1000 \ No newline at end of file diff --git a/I650/sw/fds/load_card.dck b/I650/sw/fds/load_card.dck new file mode 100644 index 000000000..a51dd2d6d --- /dev/null +++ b/I650/sw/fds/load_card.dck @@ -0,0 +1,2 @@ +G0195119026919521951691954195369195619556919581957691960195910800119653500011966 Load FDS 5 word Card +F919541952241961195370196119610000001901 ignore first load card of fds deck diff --git a/I650/sw/fortransit/00_readme.txt b/I650/sw/fortransit/00_readme.txt index 026e3a906..c62637cdf 100644 --- a/I650/sw/fortransit/00_readme.txt +++ b/I650/sw/fortransit/00_readme.txt @@ -1,5 +1,6 @@ Restoration comments May/2018 +By Roberto Sancho Fortransit From Bitsavers Manual CarnegieInternalTranslator.pdf (listings) @@ -46,16 +47,16 @@ The PACKAGE provides the subroutines stated in fortransit.pdf in page 36, and also provides a set of functions to be used in fortransit source code: - A=LOGF(B) base 10 Logarithm: log 10 - A=EXPF(B) base 10 exponent: 10^(B) - A=LNF(B) base e logarithm: neperian log e - A=EXPNF(B) base e exponent: e^(float) - A=COSF(B) cosine - A=SINF(B) sine - A=SQRT(B) square root - A=ABSF(B) absolute value - A=INTF(B) integer part - A=MAXF(B,C,...) returns maximum value of argument list + A=LOGF(B) base 10 Logarithm: log 10 + A=EXPF(B) base 10 exponent: 10^(B) + A=LNF(B) base e logarithm: neperian log e + A=EXPNF(B) base e exponent: e^(float) + A=COSF(B) cosine + A=SINF(B) sine + A=SQRT(B) square root + A=ABSF(B) absolute value + A=INTF(B) integer part + A=MAXF(B,C,...) returns maximum value of argument list All functions has FLOAT arguments and returns FLOAT value. If a FIXED argument is given, the program will stop with AR=9099 diff --git a/I650/sw/fortransit/pack.dck b/I650/sw/fortransit/pack.dck index b3374b944..4ab4854a2 100644 --- a/I650/sw/fortransit/pack.dck +++ b/I650/sw/fortransit/pack.dck @@ -724,9 +724,9 @@ 6I1954195C 0724241646800?310011176D av5 srd 0011 av23 6I1954195C 0725241696800?318309886B av7 31 8309 8862 6I1954195C 0726241728800?157079632G pih 15 7079 6327 pi / 2 in -6I1954195C 0727241912800?645963711J av13 64 5963 7111 +6I1954195C 0727241912800?645963711J -av13 64 5963 7111 6I1954195C 0728241910800?079689679C av14 07 9689 6793 -6I1954195C 0729241804800?004673765O av15 00 4673 7656 +6I1954195C 0729241804800?004673765O -av15 00 4673 7656 6I1954195C 0730241829800?000151484B av16 00 0151 4842 6I1954195C 0731241847800?100000005? av21 10 0000 0050 6I1954195C 0732241919800?999999999I n999 99 9999 9999 diff --git a/I650/sw/i650_demo_all.ini b/I650/sw/i650_demo_all.ini new file mode 100644 index 000000000..6fd944a27 --- /dev/null +++ b/I650/sw/i650_demo_all.ini @@ -0,0 +1,205 @@ + +; demo all .ini scripts + +set console -n log=console.txt +set debug -q stdout +set debug -q -n debug.txt +set cpu debug=cmd;data;detail +set mt debug=cmd;data;detail;exp +set dsk debug=cmd;data;detail;exp + +; uncomment any of them to simulate ibm 650 real speed +; set throttle 11k +; set throttle 55/5 + +echo +echo =========================================================== +echo test build_soap_from_source.ini +echo =========================================================== +echo generates soap assembly listing +echo =========================================================== +echo + +do build_soap_from_source.ini +set env -P "Press Enter to continue . . . " dummy=cont + +echo +echo =========================================================== +echo test run_soap.ini +echo =========================================================== +echo example from manual +echo should print 0100 lines +echo =========================================================== +echo + +do run_soap.ini soap/soap_example_1_src.txt 1000 +set env -P "Press Enter to continue . . . " dummy=cont + +echo +echo =========================================================== +echo test build_soap4_tap_lib.ini +echo =========================================================== +echo generate a library tape, assemble and run a prog that calls it +echo should display 38 0100 up to 38 6600 +echo then assemble example +echo =========================================================== +echo + +; build_soap4_tap_lib.ini calls run_soap4.ini, so no need to test it again +do build_soap4_tap_lib.ini +set env -P "Press Enter to continue . . . " dummy=cont + +echo +echo =========================================================== +echo test build_ssoap_ramac_from_decks.ini +echo =========================================================== +echo builds supersoap on ramac disk, then assemble example prog +echo =========================================================== +echo + +do build_ssoap_ramac_from_decks.ini +set env -P "Press Enter to continue . . . " dummy=cont + +echo +echo =========================================================== +echo test assemble ssoap from source +echo =========================================================== +echo assemble original supersoap source +echo =========================================================== +echo + +do run_supersoap_ramac.ini supersoap/ssoap_main_core_src.txt +set env -P "Press Enter to continue . . . " dummy=cont + +echo +echo =========================================================== +echo test run_fds.ini +echo =========================================================== +echo generates 9 lines (numberes 1-9) with 3 colums of numbers +echo integer (1..9), float (1..9), sqrt (1..9) +echo last line is: 00 0000 0009 50 9000 0000 50 3000 0000 +echo =========================================================== +echo + +do run_fds.ini fds/example.txt +set env -P "Press Enter to continue . . . " dummy=cont + +echo +echo =========================================================== +echo test run_ra.ini +echo =========================================================== +echo regional assembler assembles and run aprog to list on one column 5-word cards +echo listing is one column, words from 0900-0925, some 1960, 0990, +echo more 1960s, 0401-0411. echo last line is: 0411 00 0000 0900 +echo =========================================================== +echo + +do run_ra.ini regional/print_five_field_ctrl_cards.txt regional/print_five_field_src.txt 0900 deck_in.dck +set env -P "Press Enter to continue . . . " dummy=cont + +echo +echo =========================================================== +echo build_is_from_decks.ini +echo =========================================================== +echo build is from source deck +echo =========================================================== +echo + +do build_is_from_decks.ini ntr lbox +set env -P "Press Enter to continue . . . " dummy=cont + +echo +echo =========================================================== +echo test run_is.ini +echo =========================================================== +echo sieve of eratosthenes - print prime numbers < 50 (last one is 47) +echo =========================================================== +echo + +do run_is.ini bell/is_example_1_src.txt +set env -P "Press Enter to continue . . . " dummy=cont + +echo +echo =========================================================== +echo test run_it.ini +echo =========================================================== +echo example from manual +echo should print one line: 200020005 6400000051 100050005 11 +echo =========================================================== +echo + +do run_it.ini it/it_example_1_src.txt it/it_example_1_data.txt +set env -P "Press Enter to continue . . . " dummy=cont + +echo +echo =========================================================== +echo test run_it.ini +echo =========================================================== +echo sieve of eratosthenes - print prime numbers < 50 (last one is 47) +echo =========================================================== +echo + + +do run_it.ini it/it_example_2_src.txt nul +set env -P "Press Enter to continue . . . " dummy=cont + +echo +echo =========================================================== +echo test build_fortransit_pack.ini +echo =========================================================== +echo build fortransit funcion packs +echo =========================================================== +echo + +do build_fortransit_pack.ini +set env -P "Press Enter to continue . . . " dummy=cont + +echo +echo =========================================================== +echo test run_fortransit.ini +echo =========================================================== +echo example from manual - matrix multiplication +echo =========================================================== +echo + +do run_fortransit.ini fortransit/fortransit_example_2_src.txt fortransit/fortransit_example_2_data.txt +set env -P "Press Enter to continue . . . " dummy=cont + +echo +echo =========================================================== +echo test run_fortransit.ini +echo =========================================================== +echo sieve of eratosthenes - print prime numbers < 50 (last one is 47) +echo =========================================================== +echo + +do run_fortransit.ini fortransit/fortransit_example_1_src.txt nul +set env -P "Press Enter to continue . . . " dummy=cont + +echo +echo =========================================================== +echo test run_fortransit.ini +echo =========================================================== +echo test fortran functions (each one identified by a 1111 to 9999) +echo =========================================================== +echo + +do run_fortransit.ini fortransit/fortransit_example_4_src.txt +set env -P "Press Enter to continue . . . " dummy=cont + +echo +echo =========================================================== +echo test run_fortransit.ini +echo =========================================================== +echo list a fortran graphic! +echo =========================================================== +echo + +do run_fortransit.ini fortransit/fortransit_example_5_src.txt +set env -P "Press Enter to continue . . . " dummy=cont + +quit + +goto end + +:end diff --git a/I650/sw/it/00_readme.txt b/I650/sw/it/00_readme.txt index 03d67eab1..512dc09a4 100644 --- a/I650/sw/it/00_readme.txt +++ b/I650/sw/it/00_readme.txt @@ -1,5 +1,6 @@ Restoration comments May/2018 +By Roberto Sancho Internal Translator (IT Compiler) diff --git a/I650/sw/it/it_package_p4_listing.txt b/I650/sw/it/it_package_p4_listing.txt index f354dba98..673d1d443 100644 --- a/I650/sw/it/it_package_p4_listing.txt +++ b/I650/sw/it/it_package_p4_listing.txt @@ -1,4 +1,4 @@ - 5 PACKAGE 4 IS + 5 PACKAGE 4 IS 5 PACKAGE 2 5 PLUS 5 LOG AND EXPONENTIAL diff --git a/I650/sw/ramac0.dsk b/I650/sw/ramac0.dsk new file mode 100644 index 000000000..62e02bc39 --- /dev/null +++ b/I650/sw/ramac0.dsk @@ -0,0 +1 @@ +1090000097+ 0221000000+ 1080010097+ 0089000000+ 3000060221+ 0056000000+ 1580020056+ 0087000000+ 5000010087+ 0031000000+ 1580010031+ 0024000000+ 4600240075+ 0121000000+ 1600160121+ 0013000000+ 1180030013+ 0105000000+ 4401050056+ 0051000000+ 3500010051+ 0094000000+ 2490000094+ 0238000000+ 4502380089+ 0235000000+ 1180030235+ 0077000000+ 3000020077+ 0071000000+ 8200010071+ 0065000000+ 8000000065+ 0009000000+ 2400000001+ 0059000000+ 6500550085+ 0004000000+ 6019540009+ 0006000000+ 6900060059+ 0003000000+ 6500550085+ 0002000000+ 8809990976+ 0001000000+ 6019540009+ 0000000000+ 4120050000+ 0084000000+ 5100050084+ 0078000000+ 8080030078+ 0019000000+ 3000090019+ 0249000000+ 2000460249+ 0085000000+ 3500090085+ 0015000000+ 3500020205+ 0248000000+ 4402470248+ 0043000000+ 1001880043+ 0617000000+ 2003140617+ 0231000000+ 3500040231+ 0197000000+ 1503930197+ 0076000000+ 1580010231+ 0073000000+ 3000010073+ 0067000000+ 1680020067+ 0109000000+ 3500020109+ 0103000000+ 1603990103+ 0082000000+ 8802000950+ 0008000000+ 1500088002+ 0055000000+ 3000040055+ 0527000000+ 4600760527+ 0023000000+ 1600180023+ 0115000000+ 6315500115+ 0064000000+ 2417110064+ 0095000000+ 1680020095+ 0337000000+ 3000020337+ 0081000000+ 4400810082+ 0227000000+ 3000040227+ 0017000000+ 4400170001+ 0014000000+ 5300010071+ 0063000000+ 4200630014+ 0010000000+ 2343070010+ 0053000000+ 6916400053+ 0237000000+ 1090000237+ 0029000000+ 4500560029+ 0075000000+ 6900500053+ 0097000000+ 6580010335+ 0777000000+ 9600200777+ 0667000000+ 9600690621+ 0066000000+ 4500660667+ 0113000000+ 6904600113+ 0605000000+ 6519510605+ 0547000000+ 8902750547+ 0041000000+ 2101880041+ 0615000000+ 8300010615+ 0209000000+ 2319540000+ 0215000000+ 6990000215+ 0509000000+ 6519540509+ 0232000000+ 2090000232+ 0225000000+ 6716190225+ 0958000000+ 6716400225+ 0957000000+ 6716050225+ 0956000000+ 6716200225+ 0986000000+ 6716210225+ 0955000000+ 6504310231+ 0962000000+ 6503690231+ 0952000000+ 6503680231+ 0951000000+ 6503540231+ 0950000000+ 0016500000+ 0018000000+ 4000000000+ 0016000000+ 2001060209+ 0505000000+ 6080010505+ 0247000000+ 2401060209+ 0203000000+ 6980050203+ 0497000000+ 6063420497+ 0114000000+ 8880030114+ 0205000000+ 8200000069+ 0057000000+ 6519520057+ 0022000000+ 8902550022+ 0116000000+ 2404600069+ 0104000000+ 6915510104+ 0079000000+ 0000000000+ 0052000000+ 0000000000+ 0096000000+ 8888888888+ 0460000000+ 6519510069+ 0659000000+ 8300010659+ 0503000000+ 4501160767+ 0613000000+ 1600080613+ 0671000000+ 6590110671+ 0214000000+ 2019610214+ 0007000000+ 3500060007+ 0243000000+ 2101900243+ 0011000000+ 1001060011+ 0101000000+ 1000520101+ 0499000000+ 2000460499+ 0039000000+ 6580030101+ 0123000000+ 0101230123+ 0038000000+ 1507980101+ 0245000000+ 1080010245+ 0037000000+ 1000960101+ 0093000000+ 1502390093+ 0036000000+ 2007802038+ 0025000000+ 0903039018+ 0068000000+ 2790000068+ 0213000000+ 2404600213+ 0054000000+ 6915510054+ 0335000000+ 6690110473+ 0216000000+ 6590110475+ 0618000000+ 9602160618+ 0663000000+ 6919600663+ 0206000000+ 2390110206+ 0550000000+ 6990110550+ 0044000000+ 8200010069+ 0107000000+ 6519530107+ 0100000000+ 8902560100+ 0244000000+ 2001900244+ 0246000000+ 9102440246+ 0091000000+ 6901880091+ 0034000000+ 6901880091+ 0033000000+ 2000960034+ 0585000000+ 6905850549+ 0032000000+ 2400520219+ 0610000000+ 2400520034+ 0609000000+ 6580074609+ 0535000000+ 5800010535+ 0086000000+ 4005350086+ 0532000000+ 5190090532+ 0223000000+ 5190110532+ 0074000000+ 4402230074+ 0619000000+ 1490080619+ 0655000000+ 8880020655+ 0196000000+ 6901960549+ 0443000000+ 8080020443+ 0035000000+ 2203141017+ 0061000000+ 3500040061+ 0201000000+ 6990110201+ 0045000000+ 3500020493+ 0487000000+ 2403340487+ 0632000000+ 6980070632+ 0226000000+ 2006730226+ 0069000000+ 7019991998+ 0769000000+ 7019991998+ 0999000000+ 2406160769+ 0763000000+ 6904600763+ 0506000000+ 2003030506+ 0599000000+ 2104960599+ 0341000000+ 2001880341+ 0525000000+ 2406141018+ 0211000000+ 6002560211+ 0523000000+ 2119620523+ 0548000000+ 2324450548+ 0241000000+ 6916880241+ 0685000000+ 6507800685+ 0228000000+ 8080010228+ 0072000000+ 4500720523+ 0768000000+ 6519620768+ 0207000000+ 8080020443+ 0220000000+ 2000960219+ 0070000000+ 6900700549+ 0217000000+ 6504770531+ 0218000000+ 2003142219+ 0338000000+ 1590000338+ 0475000000+ 6190010338+ 0339000000+ 4503380339+ 0635000000+ 1590000635+ 0677000000+ 4504750677+ 0473000000+ 1690309031+ 0146000000+ 4102249029+ 0145000000+ 5100909028+ 0136000000+ 4719979000+ 0122000000+ 9619949000+ 0144000000+ 1526509027+ 0143000000+ 4700309026+ 0142000000+ 3000019025+ 0141000000+ 4090249005+ 0140000000+ 6580019023+ 0131000000+ 3500019011+ 0139000000+ 1090069022+ 0138000000+ 3500019021+ 0137000000+ 1180039020+ 0135000000+ 4490189019+ 0134000000+ 1590169017+ 0132000000+ 2490069015+ 0130000000+ 4590139014+ 0129000000+ 1180039012+ 0128000000+ 8080019011+ 0127000000+ 1180039010+ 0125000000+ 1590099008+ 0124000000+ 4490079008+ 0119000000+ 8100539040+ 0320000000+ 9603209000+ 0665000000+ 6504600665+ 0766000000+ 4907669005+ 0913000000+ 4590020913+ 0058000000+ 0901171019+ 0648000000+ 2790000648+ 0493000000+ 1580059055+ 0577000000+ 3500049054+ 0573000000+ 3000049000+ 0576000000+ 4490539000+ 0562000000+ 9619979000+ 0575000000+ 6524459052+ 0574000000+ 4705389051+ 0565000000+ 6525139050+ 0559000000+ 6507809000+ 0560000000+ 6507809000+ 0561000000+ 4994371995+ 0572000000+ 4705389049+ 0556000000+ 3600019001+ 0563000000+ 4319979040+ 0571000000+ 4990481995+ 0570000000+ 9690479000+ 0582000000+ 6525139059+ 0569000000+ 4704749046+ 0568000000+ 4502249045+ 0567000000+ 1690439044+ 0564000000+ 4590419042+ 0557000000+ 6200000000+ 0558000000+ 1000000090+ 0147000000+ 1000000000+ 0133000000+ 0000000090+ 0126000000+ 6943070110+ 0102000000+ 0901500102+ 0118000000+ 0903039029+ 0117000000+ 1690359034+ 0149000000+ 4590329033+ 0148000000+ 8888888888+ 0513000000+ 0014930000+ 0120000000+ 0000020000+ 0040000000+ 1531969039+ 0620000000+ 6180030620+ 0709000000+ 8080020709+ 0301000000+ 1400400301+ 0537000000+ 4805374897+ 0083000000+ 4819954896+ 0638000000+ 4990010638+ 0534000000+ 4600830534+ 0080000000+ 4705280080+ 0675000000+ 6312001015+ 0546000000+ 2414930546+ 0773000000+ 3500020773+ 0649000000+ 1180030773+ 0915000000+ 1002100915+ 0607000000+ 6080010607+ 0600000000+ 4406490600+ 0495000000+ 3500080495+ 0927000000+ 6006730927+ 0224000000+ 2790000117+ 0507000000+ 6780000507+ 0300000000+ 4806310829+ 0580000000+ 8890079057+ 0581000000+ 0400000000+ 0566000000+ 9090409053+ 0765000000+ 2019620765+ 0916000000+ 2425130916+ 0579000000+ 6915519056+ 0578000000+ 6980020731+ 0674000000+ 6519601016+ 0631000000+ 1076109010+ 0637000000+ 4906379003+ 0584000000+ 5900600584+ 0828000000+ 4990030828+ 0524000000+ 2007710524+ 0799000000+ 5990590799+ 0491000000+ 8880020491+ 0233000000+ 1507780233+ 0775000000+ 6507710775+ 0090000000+ 9690580090+ 0110000000+ 9690580090+ 0838000000+ 9600909058+ 0587000000+ 0000800000+ 0007320749- 0000800000+ 0007210729- 0000800000+ 0007110719- 0000800000+ 0699000000+ 0000800000+ 0698000000+ 0000800000+ 0689000000+ 0000800000+ 0688000000+ 0000800000+ 0681000000+ 0000800000+ 0680000000+ 0000800000+ 0679000000+ 0000800000+ 0678000000+ 0000800000+ 0670000000+ 0000800000+ 0669000000+ 0000800000+ 0668000000+ 0000800000+ 0004450454- 0000800000+ 0005130522- 3500049017+ 0169000000+ 9290209017+ 0173000000+ 6990399024+ 0172000000+ 6504129023+ 0526000000+ 1005268003+ 0160000000+ 6080031013+ 0705000000+ 3500051035+ 0622000000+ 6003140622+ 0167000000+ 1504159020+ 0171000000+ 6500009022+ 0170000000+ 1590218002+ 0158000000+ 8404009009+ 0687000000+ 1680020687+ 0928000000+ 3500020928+ 0770000000+ 6703140770+ 0596000000+ 9205969020+ 0168000000+ 4690189019+ 0165000000+ 4290169017+ 0164000000+ 6590399015+ 0154000000+ 4600909003+ 0159000000+ 4990499005+ 0720000000+ 8890070720+ 0108000000+ 2490490108+ 0202000000+ 0901500202+ 0204000000+ 2790010204+ 0549000000+ 6709359004+ 0682000000+ 4306829005+ 0829000000+ 6759589004+ 0541000000+ 8900010541+ 0835000000+ 9408356828+ 0731000000+ 4290460772+ 0194000000+ 5300019045+ 0193000000+ 4490029044+ 0192000000+ 6077509043+ 0191000000+ 8880029042+ 0161000000+ 0909179051+ 0199000000+ 5800509037+ 0189000000+ 4690509040+ 0187000000+ 1690339038+ 0186000000+ 8800009037+ 0163000000+ 8800009037+ 0162000000+ 8200049613+ 0510000000+ 2402570510+ 0185000000+ 6980069036+ 0184000000+ 1580029035+ 0183000000+ 1580029034+ 0198000000+ 0000000050+ 0182000000+ 0000000002+ 0157000000+ 6580039049+ 0545000000+ 1490330545+ 0153000000+ 1590419004+ 0181000000+ 3000089032+ 0180000000+ 6790589031+ 0177000000+ 1180039031+ 0179000000+ 3500029030+ 0178000000+ 6790589029+ 0176000000+ 4490279028+ 0672000000+ 1490080672+ 0175000000+ 6590419026+ 0174000000+ 2090589025+ 0166000000+ 3500019021+ 0269000000+ 8280029020+ 0268000000+ 3600009019+ 0267000000+ 6077509018+ 0251000000+ 5800509002+ 0266000000+ 5880029017+ 0265000000+ 3000049016+ 0250000000+ 8490029058+ 0755000000+ 6507559054+ 0502000000+ 5802000502+ 0501000000+ 4805010502+ 0948000000+ 5901500948+ 0042000000+ 5300010042+ 0236000000+ 4202360772+ 0533000000+ 4690010533+ 0926000000+ 1690539059+ 0925000000+ 0000000001+ 0919000000+ 8490529058+ 0920000000+ 0977509055+ 0641000000+ 2790020641+ 0924000000+ 6990529057+ 0923000000+ 2090559056+ 0921000000+ 1590539054+ 0917000000+ 3500049050+ 0918000000+ 0902529005+ 0152000000+ 0902519002+ 0151000000+ 0902509001+ 0150000000+ 8890079004+ 0591000000+ 6780000591+ 0234000000+ 5800019042+ 0195000000+ 1590069044+ 0292000000+ 1680019043+ 0291000000+ 1490411074+ 0289000000+ 6680079040+ 0288000000+ 2474939039+ 0646000000+ 6914930646+ 0287000000+ 4990380827+ 0824000000+ 5902930824+ 0909000000+ 2002560909+ 0774000000+ 1590070774+ 0759000000+ 6499990759+ 0286000000+ 1590378002+ 0285000000+ 8490119036+ 0284000000+ 1680029035+ 0283000000+ 3000029034+ 0282000000+ 8880019033+ 0281000000+ 6090079032+ 0280000000+ 2090069031+ 0253000000+ 4790309004+ 0254000000+ 8290089005+ 0252000000+ 1580069003+ 0278000000+ 1580039029+ 0595000000+ 1990280595+ 0822000000+ 1405040822+ 0551000000+ 6580070551+ 0276000000+ 8280029027+ 0275000000+ 1990259026+ 0273000000+ 6080069024+ 0272000000+ 2177509023+ 0271000000+ 3140019022+ 0270000000+ 0303111099+ 0356000000+ 0908004099+ 0355000000+ 4800980099+ 0354000000+ 0303050499+ 0353000000+ 0303050499+ 0352000000+ 0303020299+ 0351000000+ 0303121299+ 0350000000+ 1505050598+ 0349000000+ 4000055598+ 0348000000+ 2103050598+ 0347000000+ 8000050598+ 0346000000+ 4401050598+ 0345000000+ 0303232299+ 0344000000+ 6916545498+ 0343000000+ 2419540498+ 0342000000+ 0000000000+ 0256000000+ 0000000002+ 0290000000+ 0000000500+ 0277000000+ 0000000004+ 0504000000+ 0000000050+ 0274000000+ 4740029000+ 0299000000+ 2325139000+ 0905000000+ 6916520905+ 0300000000+ 4390009051+ 0279000000+ 2371969050+ 0296000000+ 3000049050+ 0298000000+ 2271969049+ 0297000000+ 3500049009+ 0295000000+ 4490469047+ 0294000000+ 6971969045+ 0293000000+ 0304040598+ 0386000000+ 0303040498+ 0385000000+ 0303040498+ 0384000000+ 0303040498+ 0383000000+ 0303040498+ 0382000000+ 0303474699+ 0381000000+ 0303272699+ 0380000000+ 0303272699+ 0379000000+ 0004009898- 0378000000+ 0000000098- 0377000000+ 0303414099+ 0376000000+ 0303272699+ 0375000000+ 0303272699+ 0374000000+ 6512000088- 0373000000+ 0090909098- 0372000000+ 0303020299+ 0371000000+ 0303121299+ 0370000000+ 9800050598+ 0369000000+ 4905050598+ 0368000000+ 0404050598+ 0367000000+ 0303030399+ 0366000000+ 0304030399+ 0365000000+ 0304030399+ 0364000000+ 0405030399+ 0363000000+ 0504030399+ 0362000000+ 0303212099+ 0361000000+ 0303050499+ 0360000000+ 0303050499+ 0359000000+ 0303050499+ 0358000000+ 0303050499+ 0357000000+ 1110131298+ 0416000000+ 0908111098+ 0415000000+ 0706090898+ 0414000000+ 0706070698+ 0413000000+ 2322252498+ 0412000000+ 0303030399+ 0411000000+ 0303050499+ 0410000000+ 0303050499+ 0409000000+ 0303050499+ 0408000000+ 0303050499+ 0407000000+ 0303111099+ 0406000000+ 0303151699+ 0405000000+ 0014991499+ 0404000000+ 0303050499+ 0403000000+ 0303050499+ 0402000000+ 2477500488+ 0401000000+ 7999949588+ 0400000000+ 9089555598+ 0399000000+ 0000050598+ 0398000000+ 4040050598+ 0397000000+ 0404050598+ 0396000000+ 1990050588+ 0395000000+ 6514930088+ 0394000000+ 0001000588+ 0393000000+ 7999999988+ 0392000000+ 0303040498+ 0391000000+ 0303040498+ 0390000000+ 0303050598+ 0389000000+ 0303040498+ 0388000000+ 0403050498+ 0387000000+ 4006600710+ 0656000000+ 4406060656+ 0601000000+ 1000460601+ 0691000000+ 4606341535+ 0531000000+ 6504770531+ 0219000000+ 0404050598+ 0441000000+ 0303050598+ 0440000000+ 0303050598+ 0439000000+ 0303050598+ 0438000000+ 0303050598+ 0437000000+ 0303050598+ 0436000000+ 0303050598+ 0435000000+ 0303050598+ 0434000000+ 0303050598+ 0433000000+ 0404050598+ 0432000000+ 9999999988+ 0431000000+ 9059969788+ 0430000000+ 3905050598+ 0429000000+ 6080050598+ 0428000000+ 2449050598+ 0427000000+ 0303151699+ 0426000000+ 8003969888+ 0425000000+ 8002979788+ 0424000000+ 8001949588+ 0423000000+ 8000969788+ 0422000000+ 2120232298+ 0421000000+ 1918212098+ 0420000000+ 1716191898+ 0419000000+ 1514171698+ 0418000000+ 1312151498+ 0417000000+ 3600061028+ 0701000000+ 6504831037+ 0589000000+ 2403140589+ 0586000000+ 6924830586+ 0760000000+ 4107600323+ 0756000000+ 5100050756+ 0949000000+ 2100460949+ 0242000000+ 8080010242+ 0536000000+ 4603230536+ 0831000000+ 6504770831+ 0826000000+ 2003230826+ 0647000000+ 1603680776+ 0676000000+ 6519610676+ 0706000000+ 4506060706+ 0651000000+ 6500460651+ 0634000000+ 4705890634+ 0336000000+ 2104830336+ 0937000000+ 2004840937+ 0825000000+ 1019610825+ 0597000000+ 3000040597+ 0837000000+ 1004830837+ 0539000000+ 6504840539+ 0530000000+ 6903141174+ 0230000000+ 1609191124+ 0660000000+ 6516121535+ 0650000000+ 4703230650+ 0645000000+ 7104770645+ 0938000000+ 2004850938+ 0583000000+ 1507780583+ 0489000000+ 6504850489+ 0710000000+ 3600010833+ 0976000000+ 6915981501+ 0092000000+ 6903148002+ 0931000000+ 1504270931+ 0543000000+ 8880011036+ 0730000000+ 6900270730+ 0062000000+ 8690000062+ 0657000000+ 8590000657+ 0901000000+ 6915980901+ 0936000000+ 4606060529+ 0776000000+ 4606060529+ 0683000000+ 8590000606+ 0851000000+ 2052480851+ 0630000000+ 1507640630+ 0910000000+ 4006060910+ 0906000000+ 8790000906+ 0751000000+ 2052480751+ 0836000000+ 6903141029+ 0929000000+ 2492010929+ 0664000000+ 6919610664+ 0686000000+ 3000020686+ 0779000000+ 8180030779+ 0511000000+ 1001570511+ 0629000000+ 3500020629+ 0208000000+ 8690000208+ 0553000000+ 6552480553+ 0494000000+ 8200000494+ 0636000000+ 4606361038+ 0633000000+ 1504290633+ 0229000000+ 4602290529+ 0012000000+ 6000000010- 0764000000+ 4760006000+ 0907000000+ 6980031531+ 0911000000+ 1690500911+ 0652000000+ 2490471031+ 0761000000+ 1700460652+ 0947000000+ 3500020947+ 0340000000+ 2290471539+ 0930000000+ 3000020930+ 0914000000+ 4707610914+ 0508000000+ 3000030508+ 0697000000+ 1090491039+ 0830000000+ 6590500830+ 0661000000+ 2090480661+ 0603000000+ 0919510603+ 0593000000+ 2309351538+ 0611000000+ 2919570611+ 0933000000+ 1507780933+ 0939000000+ 1509350939+ 0554000000+ 6707801536+ 0026000000+ 7490406000+ 0027000000+ 9209072027+ 0602000000+ 6914480602+ 0707000000+ 7190400707+ 0028000000+ 5000010026+ 0757000000+ 9207070757+ 0552000000+ 6914490552+ 0639000000+ 8100010639+ 0833000000+ 8802070833+ 0529000000+ 8802070833+ 0606000000+ 9790089014+ 0264000000+ 2015301533+ 0788000000+ 6690069013+ 0787000000+ 5380019012+ 0786000000+ 8210009011+ 0785000000+ 4117179010+ 0784000000+ 5090059009+ 0781000000+ 0907809006+ 0050000000+ 8080020050+ 0322000000+ 4017170322+ 0457000000+ 4017170323+ 0458000000+ 4119661717+ 0463000000+ 8801630107+ 0512000000+ 6519530512+ 0461000000+ 4419636261+ 0908000000+ 2419611714+ 0758000000+ 6980050758+ 0500000000+ 2403230022+ 0212000000+ 6910140212+ 0961000000+ 6907080212+ 0604000000+ 2119510604+ 0963000000+ 8000000550+ 0658000000+ 6519520658+ 0112000000+ 4501121713+ 0608000000+ 6519530608+ 0767000000+ 2403140209+ 0959000000+ 8888888888- 0477000000+ 0088000000+ 0486000000+ 0000000000+ 0485000000+ 0000000000+ 0935000000+ 2090039031+ 0858000000+ 1180019030+ 0857000000+ 1490161727+ 0853000000+ 6790009025+ 0852000000+ 2190019024+ 0854000000+ 5200109028+ 0945000000+ 3040009011+ 0944000000+ 8888888888+ 0846000000+ 6590079028+ 0849000000+ 5200109010+ 0845000000+ 1180039011+ 0848000000+ 3040009009+ 0847000000+ 1090079008+ 0844000000+ 0915059025+ 0702000000+ 0920000702+ 0240000000+ 8008440240+ 0708000000+ 6519611715+ 0021000000+ 4105001717+ 0060000000+ 6510141969+ 0960000000+ 8200009008+ 0797000000+ 8000599022+ 0782000000+ 5200019059+ 0796000000+ 5100019021+ 0795000000+ 4090200001+ 0794000000+ 2055509019+ 0793000000+ 6755509018+ 0792000000+ 6855509018+ 0790000000+ 2490598001+ 0791000000+ 6990179016+ 0783000000+ 6990159016+ 0789000000+ 2190019031+ 0887000000+ 1190509040+ 0886000000+ 6090019058+ 0885000000+ 4990570261+ 0884000000+ 5800049056+ 0881000000+ 2079509053+ 0856000000+ 5200109015+ 0883000000+ 4290559006+ 0882000000+ 5300109054+ 0880000000+ 4290529053+ 0879000000+ 2190009051+ 0877000000+ 1190509049+ 0875000000+ 5300019049+ 0876000000+ 1090169048+ 0874000000+ 4690469047+ 0873000000+ 6090009045+ 0872000000+ 2190019044+ 0869000000+ 5200019041+ 0871000000+ 5100019043+ 0870000000+ 4490419042+ 0868000000+ 5000019040+ 0867000000+ 5320009039+ 0855000000+ 4590139014+ 0866000000+ 6590019038+ 0865000000+ 5902009037+ 0864000000+ 2190009036+ 0863000000+ 1490171733+ 0862000000+ 6590029034+ 0861000000+ 4506129033+ 0860000000+ 1680079032+ 0859000000+ 2401101732+ 0490000000+ 6905870490+ 0934000000+ 2002391735+ 0834000000+ 1607780834+ 0841000000+ 1607801985+ 0462000000+ 8801620503+ 0684000000+ 2007800684+ 0464000000+ 2404961149+ 0932000000+ 1607781983+ 0459000000+ 4519861987+ 0832000000+ 2003231981+ 0966000000+ 6680020966+ 0442000000+ 2102390442+ 0965000000+ 2424230001+ 0654000000+ 6915510654+ 0696000000+ 6519511731+ 0964000000+ 1602551979+ 0030000000+ 6502551977+ 0538000000+ 6502551975+ 0474000000+ 0902551712+ 0643000000+ 3690060643+ 0528000000+ 1017228001+ 0912000000+ 1502550912+ 0456000000+ 8801560022+ 0762000000+ 6919601971+ 0455000000+ 4519681721+ 0662000000+ 6680021969+ 0953000000+ 4719670001+ 0261000000+ 8200091718+ 0612000000+ 0000000001+ 0878000000+ 6519520840+ 0977000000+ 5300010977+ 0978000000+ 6716121197+ 0695000000+ 6811978001+ 0544000000+ 4505440695+ 0690000000+ 6712990647+ 0997000000+ 0000000000+ 0210000000+ 3500021047+ 0640000000+ 6619520640+ 0975000000+ 6519520640+ 0974000000+ 6909990059+ 0898000000+ 0000000001+ 0778000000+ 6909990059+ 0896000000+ 4608980003+ 0260000000+ 0119961996+ 0467000000+ 8801670022+ 0973000000+ 6019520927+ 0590000000+ 8800000590+ 0972000000+ 5200010972+ 0971000000+ 2004850001+ 0540000000+ 1607780540+ 0466000000+ 8801660022+ 0969000000+ 1607781984+ 0465000000+ 8817340976+ 0988000000+ 0000000000+ 0798000000+ 2007980001+ 0492000000+ 6519521034+ 0967000000+ 0000008999+ 0496000000+ 0000008999+ 0771000000+ 0000000000+ 0239000000+ 2496090542+ 0703000000+ 8900081991+ 0653000000+ 2490091741+ 0899000000+ 8102001541+ 0900000000+ 8809000976+ 0984000000+ 0000038622+ 0823000000+ 0000038362+ 0628000000+ 0000038352+ 0627000000+ 0000038382+ 0626000000+ 0000038522+ 0625000000+ 0000038562+ 0624000000+ 0000038002+ 0623000000+ 6966231544+ 0989000000+ 6510451549+ 0694000000+ 8806940976+ 0644000000+ 6506941499+ 0941000000+ 2406160941+ 0891000000+ 4717401990+ 0302000000+ 0919509052+ 0998000000+ 1019531540+ 0704000000+ 6080071497+ 0940000000+ 3600010940+ 0982000000+ 8801000940+ 0996000000+ 8803000940+ 0979000000+ 8804000940+ 0980000000+ 8805000940+ 0981000000+ 2054490001+ 0890000000+ 6803720890+ 0895000000+ 6803730890+ 0594000000+ 4505940895+ 0840000000+ 8080020428+ 0812000000+ 3000049012+ 0811000000+ 4490119012+ 0839000000+ 1603940537+ 0810000000+ 6590029010+ 0809000000+ 2419519009+ 0808000000+ 4690039008+ 0088000000+ 2090028001+ 0807000000+ 4290070999+ 0806000000+ 6703739006+ 0801000000+ 0968209001+ 0753000000+ 6902561042+ 0970000000+ 8900190970+ 0942000000+ 2119530942+ 0498000000+ 6516530342+ 0800000000+ 8808000976+ 0954000000+ 5800010842+ 0892000000+ 5200021004+ 0488000000+ 6959600401+ 0842000000+ 8300080842+ 0754000000+ 8880030754+ 0946000000+ 4619540946+ 0692000000+ 1919510692+ 0642000000+ 0000000450+ 0352000000+ 1604040653+ 0005000000+ 7190000348+ 0099000000+ 1713981991+ 0098000000+ 5000010354+ 0592000000+ 5800020592+ 0700000000+ 2096080700+ 0542000000+ 8801710100+ 0993000000+ 0000000000+ 0188000000+ 2001880001+ 0843000000+ 9610461198+ 0693000000+ 3500041742+ 0470000000+ 2003231542+ 0469000000+ 8801690100+ 0992000000+ 0000000000+ 0156000000+ 6007780985+ 0991000000+ 6107780985+ 0990000000+ 2101560001+ 0985000000+ 6913481544+ 0968000000+ 6680020968+ 0983000000+ 5640000003+ 0263000000+ 8280020263+ 0468000000+ 8801680503+ 0987000000+ 0000000010+ 0805000000+ 0000010000+ 0804000000+ 1590049006+ 0821000000+ 6590029021+ 0820000000+ 5300019020+ 0803000000+ 8909970976+ 0819000000+ 2019529019+ 0818000000+ 3000019018+ 0817000000+ 1803729017+ 0816000000+ 4403959016+ 0815000000+ 3000029015+ 0814000000+ 1907789014+ 0588000000+ 3000010395+ 0813000000+ 1090049013+ 0598000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 8888888888+ 0616000000+ 7019991998+ 0555000000+ 2119620999+ 0333000000+ 2404601698+ 0666000000+ 6913991544+ 0888000000+ 6913991544+ 0444000000+ 4708880888+ 0222000000+ 4708880888+ 0111000000+ 0107770777+ 0621000000+ 0106660666+ 0020000000+ 0169970222+ 0772000000+ 0140020111+ 0827000000+ 6703780647+ 0200000000+ 8790001746+ 0903000000+ 6915980903+ 0750000000+ 8590001545+ 0902000000+ 6915980902+ 0995000000+ 2407760001+ 0259000000+ 8590001495+ 0802000000+ 8590001494+ 0752000000+ 6815621044+ 0994000000+ 0000000000+ 0303000000+ 2003030001+ 0894000000+ 9610431543+ 0262000000+ 6919600262+ 0943000000+ 8880020943+ 0472000000+ 8801720022+ 0893000000+ 2003230893+ 0471000000+ 8269620000+ 1578000000+ 8265830000+ 1577000000+ 6269750000+ 1576000000+ 7583820000+ 1575000000+ 8283640000+ 1574000000+ 8269610000+ 1573000000+ 8264610000+ 1572000000+ 8283840000+ 1571000000+ 8283730000+ 1570000000+ 7477880000+ 1569000000+ 8274730000+ 1568000000+ 6174730000+ 1567000000+ 8273760000+ 1566000000+ 6173760000+ 1565000000+ 6469850000+ 1564000000+ 6000000501+ 1563000000+ 6000000000+ 1562000000+ 8284770000+ 1561000000+ 6184770000+ 1560000000+ 7364690000+ 1559000000+ 7369620000+ 1558000000+ 8683610000+ 1557000000+ 8683750000+ 1556000000+ 7983610000+ 1555000000+ 7983750000+ 1554000000+ 7983630000+ 1553000000+ 8466610000+ 1552000000+ 6873830000+ 1551000000+ 7576770000+ 1550000000+ 6019600015+ 1998000000+ 7961840000+ 1610000000+ 8287630000+ 1609000000+ 6187630000+ 1608000000+ 6282830000+ 1607000000+ 8683740000+ 1606000000+ 7986830000+ 1605000000+ 7565660000+ 1604000000+ 8287620000+ 1603000000+ 6187620000+ 1602000000+ 8287610000+ 1601000000+ 6187610000+ 1600000000+ 6276850000+ 1597000000+ 6274690000+ 1596000000+ 7589650000+ 1595000000+ 7589840000+ 1594000000+ 6274620000+ 1593000000+ 7589620000+ 1592000000+ 6274610000+ 1591000000+ 7589610000+ 1590000000+ 6674770000+ 1589000000+ 6682740000+ 1588000000+ 6661740000+ 1587000000+ 8263830000+ 1586000000+ 8273830000+ 1585000000+ 6664850000+ 1584000000+ 6682620000+ 1583000000+ 6661640000+ 1582000000+ 8279640000+ 1581000000+ 8279830000+ 1580000000+ 8283690000+ 1579000000+ 6264900000+ 1640000000+ 7982630000+ 1639000000+ 7961630000+ 1638000000+ 8664820000+ 1637000000+ 7964820000+ 1636000000+ 8264820000+ 1635000000+ 8373840000+ 1634000000+ 7982620000+ 1633000000+ 7961620000+ 1632000000+ 7982610000+ 1631000000+ 7961610000+ 1630000000+ 7977880000+ 1629000000+ 7963930000+ 1628000000+ 8679930000+ 1627000000+ 7964930000+ 1626000000+ 7963920000+ 1625000000+ 8679920000+ 1624000000+ 7964920000+ 1623000000+ 7963910000+ 1622000000+ 8679910000+ 1621000000+ 7964910000+ 1620000000+ 7376640000+ 1619000000+ 7982740000+ 1618000000+ 7961740000+ 1617000000+ 7982730000+ 1616000000+ 7961730000+ 1615000000+ 6485790000+ 1614000000+ 8373650000+ 1613000000+ 8888880005+ 1612000000+ 7982840000+ 1611000000+ 7784640000+ 1672000000+ 6484770000+ 1671000000+ 8265790000+ 1670000000+ 6363950000+ 1669000000+ 8272770000+ 1668000000+ 6376640000+ 1667000000+ 6479630000+ 1666000000+ 6376790000+ 1665000000+ 8475640000+ 1664000000+ 6273610000+ 1663000000+ 6264990000+ 1662000000+ 6273790000+ 1661000000+ 8288750000+ 1660000000+ 6173660000+ 1659000000+ 7364640000+ 1658000000+ 6264760000+ 1657000000+ 7986640000+ 1656000000+ 7763680000+ 1655000000+ 7782830000+ 1654000000+ 6578840000+ 1653000000+ 6264980000+ 1652000000+ 6274630000+ 1651000000+ 7589630000+ 1650000000+ 6264970000+ 1647000000+ 6264960000+ 1646000000+ 6264950000+ 1645000000+ 6264940000+ 1644000000+ 6264930000+ 1643000000+ 6264920000+ 1642000000+ 6264910000+ 1641000000+ 9090610000+ 1704000000+ 6474760000+ 1703000000+ 6476660000+ 1702000000+ 6376660000+ 1701000000+ 6276770000+ 1700000000+ 6669850000+ 1697000000+ 6669730000+ 1696000000+ 6376750000+ 1695000000+ 6476750000+ 1694000000+ 6164750000+ 1693000000+ 7587830000+ 1692000000+ 7474760000+ 1691000000+ 6874760000+ 1690000000+ 7761730000+ 1689000000+ 6363910000+ 1688000000+ 7479720000+ 1687000000+ 7963640000+ 1686000000+ 7574760000+ 1685000000+ 7761830000+ 1684000000+ 7773790000+ 1683000000+ 6465720000+ 1682000000+ 6364640000+ 1681000000+ 6482720000+ 1680000000+ 8361770000+ 1679000000+ 7779830000+ 1678000000+ 7675650000+ 1677000000+ 6575640000+ 1676000000+ 8263790000+ 1675000000+ 6865640000+ 1674000000+ 7677830000+ 1673000000+ 1790509027+ 1565000000+ 3000019015+ 1564000000+ 8000009014+ 1563000000+ 6794049216+ 1566000000+ 4190169012+ 1576000000+ 8000009026+ 1575000000+ 1590258002+ 1574000000+ 8490029024+ 1573000000+ 1680029023+ 1572000000+ 3500069022+ 1571000000+ 2090509021+ 1568000000+ 9999000000+ 1560000000+ 9099000003- 1559000000+ 9059000002- 1558000000+ 8999000000+ 1557000000+ 8007000001+ 1556000000+ 7999800000+ 1553000000+ 1999000001- 1552000000+ 8890319018+ 1579000000+ 1601200675+ 1015000000+ 0905560058+ 1019000000+ 0000000000+ 1962000000+ 6007710525+ 1018000000+ 3000042034+ 1017000000+ 7977780000+ 1710000000+ 7382830000+ 1709000000+ 8282830000+ 1708000000+ 7361830000+ 1707000000+ 8261830000+ 1706000000+ 7764730000+ 1705000000+ 8888888888- 1448000000+ 9999999999- 1449000000+ 0000088382+ 1598000000+ 2390492028+ 1531000000+ 1003920652+ 1031000000+ 2490460340+ 1030000000+ 6903141030+ 1539000000+ 3500030697+ 1039000000+ 2790400593+ 1538000000+ 2790570554+ 1049000000+ 3500051049+ 1536000000+ 8790000606+ 1501000000+ 3000020543+ 1036000000+ 2492000836+ 1029000000+ 8200010494+ 1038000000+ 2319610219+ 1537000000+ 1680021537+ 1028000000+ 3000060701+ 1037000000+ 2424770530+ 1174000000+ 2004770230+ 1124000000+ 8080010691+ 1535000000+ 8888888888+ 0017491949- 8980029042+ 1074000000+ 3500049011+ 1013000000+ 3000090705+ 1035000000+ 3540010674+ 1016000000+ 6580016300+ 1551000000+ 2390509001+ 1578000000+ 6980039028+ 1577000000+ 6790509027+ 1562000000+ 0000000050+ 1511000000+ 3020009028+ 1517000000+ 1090049023+ 1505000000+ 1180039005+ 1516000000+ 3540009022+ 1515000000+ 2190049021+ 1514000000+ 3520009020+ 1513000000+ 6579509019+ 1509000000+ 8080029027+ 1508000000+ 1490179014+ 1507000000+ 8880029026+ 1965000000+ 1490161965+ 1512000000+ 6780019018+ 1506000000+ 8009440240+ 1014000000+ 6707800324+ 1723000000+ 1517238002+ 1970000000+ 2790051970+ 1715000000+ 6903230264+ 1533000000+ 5180012459+ 1964000000+ 6919611964+ 1728000000+ 4817171728+ 1724000000+ 8890051724+ 1966000000+ 8262591720+ 1963000000+ 1019510908+ 1033000000+ 2307801033+ 1714000000+ 8368697572+ 1716000000+ 2419530112+ 1719000000+ 6917161719+ 1713000000+ 8690009000+ 1547000000+ 8590001547+ 1544000000+ 2002551012+ 1720000000+ 4990181720+ 1736000000+ 8300011736+ 1730000000+ 8990201730+ 1722000000+ 2002550762+ 1721000000+ 6680021721+ 1974000000+ 9619741721+ 1971000000+ 8801550107+ 1968000000+ 6519530662+ 1726000000+ 2003231726+ 1969000000+ 6590039059+ 1973000000+ 5800011973+ 1967000000+ 0000000049+ 1978000000+ 6019789035+ 1725000000+ 3600011725+ 1718000000+ 8280029035+ 1733000000+ 2190029029+ 1727000000+ 2079500001+ 1522000000+ 5880039015+ 1529000000+ 5902009035+ 1528000000+ 1080039034+ 1527000000+ 8200019033+ 1526000000+ 1080039032+ 1521000000+ 6580039013+ 1520000000+ 0908529012+ 1518000000+ 4590249012+ 1525000000+ 4617179031+ 1524000000+ 1807809030+ 1523000000+ 2390009029+ 1519000000+ 0000000500+ 1510000000+ 8801650022+ 1734000000+ 8801640057+ 1534000000+ 2103231534+ 1989000000+ 4519890492+ 1034000000+ 0000000000+ 1530000000+ 8888888888+ 1982000000+ 0907769007+ 1739000000+ 4617390001+ 1732000000+ 6908380490+ 1987000000+ 2115300934+ 1988000000+ 6515301988+ 1735000000+ 4808410492+ 1738000000+ 8880011738+ 1532000000+ 6903231532+ 1985000000+ 4617350464+ 1032000000+ 1003231032+ 1149000000+ 2007710932+ 1983000000+ 8801590057+ 1986000000+ 6519520832+ 1981000000+ 8080030696+ 1737000000+ 3500021737+ 1731000000+ 2326504002+ 1980000000+ 1616621980+ 1979000000+ 2324454002+ 1729000000+ 6916621729+ 1977000000+ 2325134002+ 1976000000+ 6916621976+ 1975000000+ 8880039038+ 1972000000+ 4619729031+ 1712000000+ 1004310659+ 1012000000+ 2171999003+ 1027000000+ 4690039008+ 1026000000+ 6571999007+ 1025000000+ 5840019006+ 1024000000+ 4890059002+ 1023000000+ 5940009004+ 1022000000+ 8800009003+ 1020000000+ 2790010753+ 1048000000+ 8280011048+ 1042000000+ 4208920999+ 1004000000+ 6103780642+ 1999000000+ 0005000500- 1398000000+ 6939500703+ 1991000000+ 6715990653+ 1741000000+ 8305990343+ 1541000000+ 8880030989+ 1041000000+ 3500011041+ 1549000000+ 2407690001+ 1499000000+ 2404600891+ 1740000000+ 4417400644+ 1990000000+ 2900460302+ 1950000000+ 2010450998+ 1540000000+ 2790520704+ 1199000000+ 3000031199+ 1040000000+ 1503551040+ 1497000000+ 2004770001+ 1197000000+ 6519520690- 1299000000+ 2102100001+ 1047000000+ 1980000260+ 1996000000+ 2009350999+ 1984000000+ 6713490647+ 1000000000+ 2405290001+ 1747000000+ 6906061747+ 1001000000+ 6909361747+ 1746000000+ 5100011699+ 1546000000+ 1608041546+ 1749000000+ 4017490750+ 1496000000+ 2092001496+ 1699000000+ 0190598000+ 1745000000+ 6517451699+ 1502000000+ 8000591502+ 1545000000+ 6906830259+ 1002000000+ 6900120259+ 1495000000+ 2012490802+ 1744000000+ 6815631744+ 1494000000+ 2012480752+ 1044000000+ 1503030894+ 1993000000+ 3560001993+ 1743000000+ 6603231743+ 1043000000+ 6503231743+ 1543000000+ 1703770843+ 1046000000+ 1507781046+ 1198000000+ 6919600693+ 1649000000+ 3500021649+ 1992000000+ 1503231992+ 1742000000+ 8801700022+ 1542000000+ 0000038602- 1348000000+ 6482727991- 1249000000+ 6469827279- 1248000000+ 2102560001+ 1021000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 2101880333+ 1698000000+ 0000038662- 1399000000+ 0109990999+ 1717000000+ 0130000888+ 1997000000+ 0140020555+ 1995000000+ 0120000444+ 1994000000+ 0103330333+ 1011000000+ 3600011007+ 1009000000+ 3600011006+ 1008000000+ 6680021006+ 1007000000+ 0000038652+ 1648000000+ 6916481544+ 1006000000+ 0000038642+ 1548000000+ 6915481544+ 1005000000+ 2410160991+ 1498000000+ 6905451498+ 1003000000+ 6906231544- 1349000000+ 6080019001+ 8117009002+ 1590049003+ 8200009005+ 8690001989+ 2919651967+ 2939508002+ 1019701977+ 5003001979+ 2919508001+ 0000000010+ 2937008002+ 2937201978+ 2937801982+ 2938401992+ 2939001966+ 2939601968+ 6980031984+ 2937508002+ 8200001971+ 0000000000+ 0000000000+ 2938008002+ 0000000000+ 8590005971+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 5200011967+ 0000000000+ 0000000000+ 4119951996+ 0000000000+ 0000000000+ 2938508002+ 6919991969+ 0000000000+ 0000000000+ 7019991998+ 6019540009+ 8809990976+ 6500310085+ 6900870097+ 6500310085+ 1604040753+ 3500020016+ 2417110197+ 2003142219+ 8000000014+ 5990590618+ 1600640619+ 6980050020+ 6063420012+ 8200010019+ 3500090085+ 1680020228+ 0016500000+ 6590110226+ 3000020075+ 2400730076+ 6519611965+ 3000042034+ 4500540078+ 1580010082+ 2007802038+ 6707800893+ 7490406000+ 7190400830+ 1090000095+ 2101900243+ 1502358002+ 6903380492+ 6901880091+ 6901880091+ 8080020236+ 1500900205+ 1080010545+ 0101230123+ 2000460107+ 2090000599+ 8902750247+ 3500010050+ 3000020499+ 6990110600+ 6990110101+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 4400530054+ 2343070061+ 6580074609+ 1180030011+ 3000060029+ 8080030077+ 6904600063+ 2000730076+ 2119620949+ 2003140074+ 4105001717+ 4201140065+ 2001900244+ 4501160070+ 4000000000+ 4402290001+ 6990000648+ 4501210949+ 8100539040+ 2004730676+ 9604740777+ 4602270225+ 1490080211+ 0000000000+ 1001880245+ 1180030083+ 8300010232+ 5100050084+ 1090000337+ 6915510340+ 4502410587+ 4606420635+ 5000010242+ 4500860237+ 4120050000+ 2000460249+ 2490000042+ 6019540009+ 4690039008+ 1580010059+ 0000000000+ 9102440062+ 6915980751+ 0903039018+ 1603990006+ 6902480051+ 0000008999+ 2400000001+ 1713980586+ 7190000348+ 6080010057+ 3500040109+ 1602551971+ 0905560535+ 2404600524+ 8880030013+ 0901170103+ 1001130320+ 8890070216+ 2203140022+ 6502139054+ 4708880888+ 9690580221+ 0000000000+ 5300010019+ 0000000000+ 9600690224+ 0903039029+ 0901500202+ 4490079008+ 0014930000+ 8080010677+ 4719979000+ 6580030320+ 1590099008+ 1180039010+ 0000000090+ 8080019011+ 1180039012+ 4590139014+ 2490069015+ 6580019023+ 1590169017+ 1000000000+ 4490189019+ 1180039020+ 5100909028+ 3500019021+ 1090069022+ 3500019011+ 4090249005+ 3000019025+ 4701029026+ 1526509027+ 9619949000+ 4106209029+ 1690309031+ 1000000090+ 4590329033+ 1690359034+ 0902509001+ 0902519002+ 0902529005+ 1490330491+ 6590399015+ 0000000000+ 0000000000+ 0000000002+ 1590218002+ 4602219003+ 1005448003+ 8880029042+ 8800009037+ 8800009037+ 4290169017+ 4690189019+ 2090589025+ 6003140528+ 9202129020+ 3500049017+ 6500009022+ 1504159020+ 6990399024+ 9290209017+ 6590419026+ 1490080832+ 6790589029+ 6790589031+ 3500029030+ 1180039031+ 3000089032+ 1590419004+ 0000000050+ 1580029035+ 6980069036+ 2402570661+ 1690339038+ 4690509040+ 0000000000+ 5800509037+ 0000000000+ 6077509043+ 4490029044+ 5300019045+ 4290460504+ 5800019042+ 6312000617+ 6315500214+ 1580029034+ 0909179051+ 6703780768+ 6502551970+ 6943070112+ 3500020540+ 6080010611+ 1001150320+ 8980029042+ 6919600764+ 4005120616+ 6519620067+ 6903140667+ 4404870537+ 6703140621+ 8490029058+ 1600170071+ 0000000000+ 4990499005+ 6902310492+ 6504770081+ 6504770081+ 8080020236+ 6509270494+ 4708880888+ 8888888888+ 0107770777+ 3000040031+ 1602350239+ 1503930548+ 3000010089+ 3000040238+ 3500080547+ 2001150219+ 2101880041+ 4803364897+ 6780001498+ 8802000950+ 6903390492+ 1080010095+ 4400430094+ 4504430948+ 0920000652+ 1590000008+ 1580020054+ 3500060505+ 8902560550+ 4401000549+ 8900010503+ 6519510056+ 0907809006+ 3000090055+ 3000049016+ 6077509018+ 8290089005+ 2090069031+ 4790309004+ 0000000000+ 0000000000+ 0000000000+ 2271969048+ 2407730001+ 4608980003+ 4719660001+ 9615391739+ 5640000003+ 9790089014+ 5880029017+ 5800509002+ 3600009019+ 8280029020+ 3500019021+ 3140019022+ 2177509023+ 6080069024+ 1990259026+ 0000000050+ 8280029027+ 6580070647+ 0000000500+ 1580069003+ 4390009050+ 6090079032+ 8880019033+ 3000029034+ 1680029035+ 8490119036+ 1590378002+ 6499990594+ 6914930596+ 6680079040+ 1490410206+ 0000000002+ 1680019043+ 1590069044+ 6971969045+ 4490469047+ 3500049009+ 2371969049+ 3000049049+ 4740029000+ 6916520655+ 6780001198+ 8880020010+ 4717251975+ 0000000000+ 6580016300+ 1999000001- 7999800000+ 0000000000+ 0000000000+ 8007000001+ 8999000000+ 9059000002- 9099000003- 9999000000+ 0000000000+ 6790509027+ 8000009014+ 3000019015+ 1790509027+ 6794049216+ 1000730030+ 2090509021+ 8080020248+ 0000000000+ 3500069022+ 1680029023+ 8490029024+ 1590258002+ 8000009026+ 4190169012+ 6980039028+ 2390509001+ 8890319018+ 2119620999+ 0000000000+ 6916880341+ 1405391199+ 6916400051+ 2001150034+ 8880020072+ 2404600069+ 2324450058+ 2419540498+ 6916545498+ 0303232299+ 4401050598+ 8000050598+ 2103050598+ 4000055598+ 1505050598+ 0303121299+ 0303020299+ 0303050499+ 0303050499+ 4800980099+ 0908004099+ 0303111099+ 0303050499+ 0303050499+ 0303050499+ 0303050499+ 0303212099+ 0504030399+ 0405030399+ 0304030399+ 0304030399+ 0303030399+ 0404050598+ 4905050598+ 9800050598+ 0303121299+ 0303020299+ 0090909098- 6512000088- 0303272699+ 0303272699+ 0303414099+ 0000000098- 0004009898- 0303272699+ 0303272699+ 0303474699+ 0303040498+ 0303040498+ 0303040498+ 0303040498+ 0304040598+ 0403050498+ 0303040498+ 0303050598+ 0303040498+ 0303040498+ 7999999988+ 0001000588+ 6514930088+ 1990050588+ 0404050598+ 4040050598+ 0000050598+ 9089555598+ 7999949588+ 2477500488+ 0303050499+ 0303050499+ 0014991499+ 0303151699+ 0303111099+ 0303050499+ 0303050499+ 0303050499+ 0303050499+ 0303030399+ 2322252498+ 0706070698+ 0706090898+ 0908111098+ 1110131298+ 1312151498+ 1514171698+ 1716191898+ 1918212098+ 2120232298+ 8000969788+ 8001949588+ 8002979788+ 8003969888+ 0303151699+ 2449050598+ 6080050598+ 3905050598+ 9059969788+ 9999999988+ 0404050598+ 0303050598+ 0303050598+ 0303050598+ 0303050598+ 0303050598+ 0303050598+ 0303050598+ 0303050598+ 0404050598+ 8300010998+ 8902550649+ 6913991544+ 0000800000+ 0000800000+ 0000800000+ 0000800000+ 0000800000+ 0000800000+ 0000800000+ 0000800000+ 0000800000+ 0000800000+ 6919601013+ 1502550759+ 4017170322+ 4017170323+ 1608971501+ 8888888888+ 6519530708+ 1607801035+ 4110161717+ 2007801533+ 1608970802+ 1608970902+ 0119961996+ 8280020263+ 2003231736+ 3500041986+ 2003231988+ 8880021039+ 0000000000+ 0106660666+ 4705900530+ 0000000000+ 8888888888- 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0088000000+ 5190090493+ 5200021004+ 4910489005+ 3500021149+ 6580039049+ 2790010597+ 4000520497+ 1508970301+ 6915510104+ 0977509055+ 5800010052+ 2119531036+ 1680020007+ 6980050756+ 2002560509+ 2490490108+ 6759589004+ 0169970222+ 2019610018+ 2403140730+ 6904600615+ 6900270840+ 5902930915+ 4006840946+ 2402150674+ 1609190673+ 0000800000+ 0000800000+ 0000800000+ 0000800000+ 0000800000+ 0000800000+ 0000800000+ 0000800000+ 0000800000+ 0000800000+ 3500049011+ 2790000093+ 4207780504+ 7019991998+ 6590110241+ 3500050638+ 1680020592+ 4602330534+ 1531969039+ 2001880542+ 4603230637+ 4990010538+ 4590020489+ 6980020643+ 5190110493+ 4819954896+ 0000020000+ 2414930196+ 4806450110+ 2100961049+ 9690580221+ 6504129023+ 1507980320+ 1580039029+ 4402030204+ 3500040059+ 3500020105+ 6519530664+ 4406840208+ 1019610629+ 1990280546+ 4760006000+ 7019991998+ 4702019049+ 4590419042+ 6200000000+ 6525139050+ 6507809000+ 6507809000+ 4490539000+ 3600019001+ 1690439044+ 4702019051+ 0400000000+ 4506209045+ 4706509046+ 6525139059+ 4990481995+ 4319979040+ 4994371995+ 3500049054+ 6524459052+ 9619979000+ 3000049000+ 1580059055+ 6915519056+ 2425130605+ 4806070829+ 8890079057+ 9690479000+ 2052480602+ 5900600640+ 0000000000+ 6939500903+ 1590000595+ 1908979014+ 1508970761+ 3690060760+ 1001570892+ 8404009009+ 1076109010+ 1590070501+ 4500080799+ 2474939039+ 0901500502+ 1090049013+ 6519540066+ 2390110207+ 4506840705+ 8790000510+ 6504770533+ 2919570770+ 2019620765+ 6915980651+ 6519600824+ 8000000600+ 2401130034+ 2401130219+ 1009140769+ 4703230659+ 2052480911+ 8200000069+ 2402230526+ 6504850589+ 1601200475+ 2009270630+ 4600240023+ 6004730230+ 3500020529+ 6690110080+ 0000038002+ 0000038562+ 0000038522+ 0000038382+ 0000038352+ 0000038362+ 2004840697+ 4990030584+ 6504841549+ 2403340490+ 3000020639+ 5901500541+ 8080010693+ 2096080894+ 8080010842+ 3000090700+ 2290470706+ 4905939003+ 2405260001+ 6500460601+ 9402466828+ 6919610895+ 5802000110+ 4707300642+ 1407500553+ 2319540000+ 6519520614+ 6502551968+ 8590001015+ 0915059025+ 8690000695+ 6906581012+ 2325139000+ 2790570930+ 4107670323+ 8008440240+ 6516120635+ 6519520608+ 8200049613+ 4607760685+ 8880029026+ 8200010069+ 9600689000+ 2404601744+ 2424770631+ 0000800000+ 0000800000+ 0000800000+ 2390492028+ 2090481030+ 2004770210+ 6009270532+ 4519811032+ 6980070632+ 6507800335+ 0000800000+ 0000800000+ 0000800000+ 0000800000+ 6705859004+ 3500020939+ 8802090890+ 8802090890+ 1919510836+ 1090491495+ 0000800000+ 0000800000+ 6552480653+ 2012481502+ 3000040552+ 1000460551+ 1508970604+ 3500020591+ 3000060755+ 2104830646+ 0000800000+ 0000800000+ 6080030523+ 6903148002+ 2000900831+ 3000030762+ 2424230001+ 6519610766+ 6903141018+ 2319610219+ 8801630664+ 6980030671+ 8200091716+ 0000800000+ 0000800000+ 0000800000+ 0000800000+ 0000800000+ 0000800000+ 0000800000+ 0000800000+ 0000800000+ 2492000583+ 0000800000+ 0000800000+ 0000800000+ 0000800000+ 0000800000+ 0000800000+ 0000800000+ 0000800000+ 0000800000+ 6504830696+ 4608340835+ 0000800000+ 0000800000+ 0000800000+ 0000800000+ 0000800000+ 0000800000+ 0000800000+ 0000800000+ 0000800000+ 0000800000+ 0000800000+ 0000800000+ 0000800000+ 0000800000+ 0000800000+ 0000800000+ 0000800000+ 0000800000+ 0000000004+ 8790000684+ 2401121124+ 8900080586+ 6959600401+ 3600061548+ 2419611714+ 9208301017+ 4507630913+ 1017138001+ 0902550910+ 2004850838+ 4709160633+ 8801550664+ 9606220527+ 9090409053+ 1603680773+ 6924830506+ 2003230603+ 1180030540+ 2305850940+ 8300011977+ 6590039059+ 4606840685+ 6180030531+ 3000031983+ 1504290731+ 6580010495+ 5300010634+ 8080030938+ 0000000000+ 5090059009+ 8000599022+ 6990179016+ 4117179010+ 8210009011+ 5380019012+ 6690069013+ 2015300933+ 6990159016+ 6855509018+ 2490598001+ 6755509018+ 2055509019+ 4090200001+ 5100019021+ 5200019059+ 8200009008+ 0000000000+ 6190010008+ 6516530342+ 6703739006+ 2005850999+ 5300019020+ 0000010000+ 0000000010+ 4290070999+ 2090028001+ 2419519009+ 6590029010+ 1603940336+ 3000049012+ 8080020428+ 3000010395+ 3000029015+ 4403959016+ 1803729017+ 3000019018+ 2019529019+ 8909970976+ 6590029021+ 1590049006+ 2326504002+ 0000038622+ 3540010536+ 2017321735+ 0000000049+ 0140020111+ 6919611964+ 4306829005+ 6914480851+ 6515301535+ 4490279028+ 1019510906+ 8200000690+ 8200010690+ 4619541040+ 1608970702+ 7104770612+ 4490119012+ 8880011046+ 6815630891+ 2100460850+ 3000020644+ 1090079008+ 5200109010+ 8888888888+ 3040009009+ 1180039011+ 6590079028+ 5100050657+ 9205542027+ 6790009025+ 1490161727+ 2190019024+ 5320009039+ 2079509053+ 1180019030+ 2090039031+ 1680079032+ 4507109033+ 6590029034+ 1490171033+ 2190009036+ 5902009037+ 6590019038+ 4590139014+ 5000019040+ 4490419042+ 2190019044+ 5100019043+ 5200019041+ 6090009045+ 4690469047+ 1090169048+ 1190509049+ 5300019049+ 2190009051+ 0000000001+ 4290529053+ 5300109054+ 5800049056+ 4290559006+ 5200109015+ 4990570261+ 6090019058+ 1190509040+ 2190019031+ 6913991544+ 0000000000+ 8100011496+ 2012491503+ 8180030843+ 3500050656+ 5800021500+ 2492010942+ 6909990097+ 0000000001+ 6909990097+ 2490091985+ 8102001984+ 1690500709+ 2004850001+ 2496090636+ 8590001041+ 4606840685+ 4417126261+ 4506600912+ 8801560649+ 1004310998+ 4619639031+ 8590000684+ 6917151718+ 2002550908+ 0000000000+ 4990380827+ 2490470935+ 1590539054+ 3500049050+ 0000000001+ 8490529058+ 2090559056+ 0000000000+ 6990529057+ 2790020496+ 1690539059+ 4690010525+ 0000008999+ 8801590614+ 0907769007+ 1505850694+ 6019520230+ 1504270701+ 6903230264+ 4808371038+ 1003920901+ 5800010754+ 6080071545+ 6915510704+ 1700460901+ 2790401045+ 6906620259+ 6903140720+ 6680020966+ 3040009011+ 5200109028+ 1512980613+ 0968209001+ 6519530907+ 6002560511+ 6503540059+ 6503680059+ 6503690059+ 6680021719+ 8808000976+ 6716210040+ 6716050040+ 6716400040+ 6716190040+ 2403140076+ 6510141719+ 6910141012+ 6504310059+ 2119510654+ 6519511722+ 2100900943+ 2003231976+ 6519521174+ 6913481544+ 8801660649+ 6902561536+ 5200010972+ 8800000931+ 8801670649+ 6519521724+ 6619521724+ 3600010890+ 6519520675+ 5300010977+ 8803000937+ 8804000937+ 8805000937+ 3600010937+ 6680020968+ 8809000976+ 2101560001+ 6716200040+ 8801680442+ 8819800976+ 6966231544+ 6108970985+ 6008970985+ 8801690550+ 8801710550+ 6815620691+ 6915980904+ 8801000937+ 6712990768+ 6519510069+ 7019991998+ 6713490768+ 6906841992+ 6909050259+ 6904911494+ 4209360999+ 6917431544+ 6919931544+ 6680021006+ 3600011006+ 3600011007+ 0000000000+ 0103330333+ 2403230649+ 9619670913+ 8009440240+ 8690000508+ 8890051074+ 5000010026+ 2490460683+ 2002550909+ 8800009003+ 2102560001+ 5940009004+ 4890059002+ 5840019006+ 6571999007+ 4690039008+ 2171999003+ 6905430752+ 8888888888+ 6590500687+ 2109140001+ 6803721532+ 8280029035+ 2004770001+ 6903231978+ 8900190970+ 6517321537+ 2007980001+ 6919600262+ 8880031648+ 8000591047+ 2790010947+ 8880030989+ 1608041991+ 0919510672+ 3000020932+ 6515041541+ 6504600665+ 2003030507+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 4817170828+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 4609290001+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 2790000106+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 4517291038+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 6906061992+ 2790000117+ 8080020774+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 6469827279- 6482727991- 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 6000000010- 6519521974- 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000038602- 6906231544- 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0005000500- 0000038662- 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 8888888888- 9999999999- 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 2408240991+ 3500030703+ 6914490757+ 0000000000+ 8890079004+ 9602219058+ 5000010354+ 2009271730+ 8590000841+ 8590000941+ 0190598000+ 1090049023+ 6780019018+ 1490179014+ 8080029027+ 6579509019+ 0000000500+ 0000000050+ 1490160663+ 3520009020+ 2190049021+ 3540009022+ 1180039005+ 3020009028+ 0908529012+ 2390009029+ 6580039013+ 1080039032+ 2079500001+ 1807809030+ 4617179031+ 4590249012+ 8200019033+ 1080039034+ 5902009035+ 5880039015+ 0000000000+ 6810348001+ 2054490001+ 8801620442+ 2402231734+ 2115301733+ 8280011042+ 3500011043+ 1019530825+ 6603231989+ 1703771738+ 2092001741+ 1508971540+ 6919601987+ 8590001547+ 1503550775+ 0000000000+ 8690009000+ 1680020707+ 1004830692+ 7576770000+ 6873830000+ 8466610000+ 7983630000+ 7983750000+ 7983610000+ 8683750000+ 8683610000+ 7369620000+ 7364690000+ 6184770000+ 8284770000+ 6000000000+ 6000000501+ 6469850000+ 6173760000+ 8273760000+ 6174730000+ 8274730000+ 7477880000+ 8283730000+ 8283840000+ 8264610000+ 8269610000+ 8283640000+ 7583820000+ 6269750000+ 8265830000+ 8269620000+ 8283690000+ 8279830000+ 8279640000+ 6661640000+ 6682620000+ 6664850000+ 8273830000+ 8263830000+ 6661740000+ 6682740000+ 6674770000+ 7589610000+ 6274610000+ 7589620000+ 6274620000+ 7589840000+ 7589650000+ 6274690000+ 6276850000+ 0000088382+ 0000000450+ 6187610000+ 8287610000+ 6187620000+ 8287620000+ 7565660000+ 7986830000+ 8683740000+ 6282830000+ 6187630000+ 8287630000+ 7961840000+ 7982840000+ 8888880005+ 8373650000+ 6485790000+ 7961730000+ 7982730000+ 7961740000+ 7982740000+ 7376640000+ 7964910000+ 8679910000+ 7963910000+ 7964920000+ 8679920000+ 7963920000+ 7964930000+ 8679930000+ 7963930000+ 7977880000+ 7961610000+ 7982610000+ 7961620000+ 7982620000+ 8373840000+ 8264820000+ 7964820000+ 8664820000+ 7961630000+ 7982630000+ 6264900000+ 6264910000+ 6264920000+ 6264930000+ 6264940000+ 6264950000+ 6264960000+ 6264970000+ 8300080754+ 1003231728+ 7589630000+ 6274630000+ 6264980000+ 6578840000+ 7782830000+ 7763680000+ 7986640000+ 6264760000+ 7364640000+ 6173660000+ 8288750000+ 6273790000+ 6264990000+ 6273610000+ 8475640000+ 6376790000+ 6479630000+ 6376640000+ 8272770000+ 6363950000+ 8265790000+ 6484770000+ 7784640000+ 7677830000+ 6865640000+ 8263790000+ 6575640000+ 7675650000+ 7779830000+ 8361770000+ 6482720000+ 6364640000+ 6465720000+ 7773790000+ 7761830000+ 7574760000+ 7963640000+ 7479720000+ 6363910000+ 7761730000+ 6874760000+ 7474760000+ 7587830000+ 6164750000+ 6476750000+ 6376750000+ 6669730000+ 6669850000+ 0000000000+ 0000000000+ 6276770000+ 6376660000+ 6476660000+ 6474760000+ 9090610000+ 7764730000+ 8261830000+ 7361830000+ 8282830000+ 7382830000+ 7977780000+ 0000000000+ 8262591019+ 8990200771+ 2307800833+ 8368697572+ 3600011973+ 0109990999+ 2419530660+ 2003231726+ 1517238002+ 2324454002+ 3500020779+ 6707800324+ 3500021031+ 2404601534+ 6519530758+ 2190029029+ 4608310464+ 2103231979+ 2400961649+ 6716121034+ 0000000000+ 6914990752+ 6510370641+ 0919509052+ 8801700649+ 3500021543+ 2001880001+ 6503231989+ 1503031990+ 4010441745+ 8790001197+ 0000038642+ 2101880333+ 6915981742+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 8888888888+ 8888888888+ 8888888888+ 8888888888+ 8888888888+ 8888888888+ 8888888888+ 8888888888+ 8888888888+ 8888888888+ 8888888888+ 8888888888+ 8888888888+ 8888888888+ 8888888888+ 8888888888+ 8888888888+ 8888888888+ 8888888888+ 8888888888+ 8888888888+ 8888888888+ 8888888888+ 8888888888+ 8888888888+ 8888888888+ 8888888888+ 8888888888+ 8888888888+ 8888888888+ 8888888888+ 8888888888+ 8888888888+ 8888888888+ 8888888888+ 8888888888+ 8888888888+ 8888888888+ 8888888888+ 8888888888+ 8888888888+ 8888888888+ 8888888888+ 8888888888+ 8888888888+ 8888888888+ 8888888888+ 8888888888+ 8888888888+ 8888888888+ 8888888888+ 8888888888+ 8888888888+ 8888888888+ 8888888888+ 8888888888+ 8888888888+ 8888888888+ 8888888888+ 8888888888+ 8888888888+ 8888888888+ 8888888888+ 8888888888+ 8888888888+ 8888888888+ 8888888888+ 8888888888+ 8888888888+ 8888888888+ 8888888888+ 8888888888+ 8888888888+ 8888888888+ 8888888888+ 8888888888+ 8888888888+ 8888888888+ 8888888888+ 8888888888+ 8888888888+ 8888888888+ 8888888888+ 8888888888+ 8888888888+ 8888888888+ 8888888888+ 8888888888+ 8888888888+ 8888888888+ 8888888888+ 8888888888+ 8888888888+ 8888888888+ 8888888888+ 8888888888+ 8888888888+ 8888888888+ 8888888888+ 8888888888+ 8888888888+ 8888888888+ 8888888888+ 8888888888+ 8888888888+ 8888888888+ 8888888888+ 8888888888+ 8888888888+ 8888888888+ 8888888888+ 8888888888+ 8888888888+ 8888888888+ 8888888888+ 8888888888+ 8888888888+ 8888888888+ 8888888888+ 8888888888+ 8888888888+ 8888888888+ 8888888888+ 8888888888+ 8888888888+ 8888888888+ 8888888888+ 8888888888+ 8888888888+ 8888888888+ 8888888888+ 8888888888+ 8888888888+ 8888888888+ 8888888888+ 8888888888+ 8888888888+ 8888888888+ 8888888888+ 8888888888+ 8888888888+ 8888888888+ 8888888888+ 8888888888+ 8888888888+ 8888888888+ 8888888888+ 8888888888+ 8888888888+ 8888888888+ 8888888888+ 8888888888+ 8888888888+ 8888888888+ 8888888888+ 8888888888+ 8888888888+ 8888888888+ 8888888888+ 8888888888+ 8888888888+ 8888888888+ 8888888888+ 8888888888+ 8888888888+ 8888888888+ 8888888888+ 8888888888+ 8888888888+ 8888888888+ 8888888888+ 8888888888+ 8888888888+ 8888888888+ 8888888888+ 8888888888+ 8888888888+ 8888888888+ 8888888888+ 8888888888+ 8888888888+ 8888888888+ 8888888888+ 8888888888+ 8888888888+ 8888888888+ 8888888888+ 8888888888+ 8888888888+ 8888888888+ 8888888888+ 8888888888+ 8888888888+ 8888888888+ 8888888888+ 8888888888+ 8888888888+ 8888888888+ 8888888888+ 8888888888+ 2900460302+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 8880039038+ 5180012459+ 2790051720+ 5800010772+ 6680020913+ 6916621969+ 2325134002+ 6916621721+ 1616620822+ 4509281028+ 6008269035+ 4515311731+ 4417251982+ 6519521972+ 4990181019+ 8880010934+ 8801640614+ 8801650649+ 6803731532+ 8810370976+ 2790521538+ 8305990343+ 6715990753+ 1503231737+ 9615401542+ 8801720649+ 3560001740+ 2003030001+ 5100011541+ 2406850001+ 0000038652+ 0120000444+ 0140020555+ 1980000260+ 0130000888+ 6019600015+ 6103780686+ 6500479001+ 8816509002+ 8300019003+ 6990049005+ 2919500069+ 2790108001+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 2002551960+ 2000461999+ 2014931998+ 0977001984+ 6963081976+ 0960001984+ 2916501978+ 2919500999+ 0000038282+ 0000038332+ 6500491961+ 4519641965+ 4019951966+ 5000011972+ 6919671970+ 6506851989+ 6707731977+ 0000088002+ 4516951973+ 6500461971+ 8590001975+ 1619741979+ 4019951983+ 6500481975+ 0000001999+ 5800010069+ 8590001981+ 1606621968+ 5800011954+ 4519631983+ 6915981982+ 8690001986+ 8590001987+ 6519671699+ 8790001990+ 5900501992+ 2790106306+ 4519541991+ 0000000010+ 1606061980+ 4819855654+ 8690001696+ 1519881993+ 6980021996+ 0163010300+ 0163010300+ 8590005954+ 0163010300+ 4519631969+ 5000011962+ 6990019002+ 0000038342+ 8590009003+ 6909999004+ 2405269005+ 6990069007+ 2916509008+ 2790108001+ 6990019009+ 8690009000+ 0000038432+ 0000038452+ 1416581669+ 8200011660+ 8590001662+ 6502551661+ 2790001996+ 8590001663+ 0000000050+ 3500011665+ 8816001992+ 3500011667+ 3600011547+ 6500461652+ 2114691672+ 1516681673+ 8690009000+ 1516701675+ 0000000002+ 2014591664+ 0000000002+ 0000000000+ 8200001678+ 6980021679+ 0000000000+ 2016043698+ 0000000000+ 0000000000+ 6916511666+ 8590001684+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 8790001954+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 8816501954+ 6502551659+ 6916501654+ 6916511657+ 8802001656+ 6990019002+ 0000038342+ 8590009003+ 6909999004+ 2405269005+ 6990069007+ 2916509008+ 2790108001+ 6990019009+ 8690009000+ 4216571655+ 0816741658+ 2016043698+ 8200011671+ 8300561660+ 6502551659+ 8802001662+ 6916641667+ 2790001663+ 3500011665+ 2794561666+ 2016841657+ 2790001996+ 2816811661+ 0080880000+ 1516695651+ 2916771650+ 2416861668+ 7116661670+ 0000000002+ 4216731954+ 8816001992+ 0000038432+ 5200081660+ 6919081906+ 8590001907+ 8790008000+ 6919521953+ 2792561956+ 2419001954+ 8100561955+ 7019009898+ 0919011957+ 4019581905+ 5000081955+ 0000038452+ 0080880000+ 1416901689+ 8590001693+ 2014591691+ 0000000050+ 2114691692+ 6916851547+ 6500461687+ 0000000000+ 8816501954+ 7116661654+ 6916721544+ 6916851688+ 7116661656+ 6590019002+ 0000088372+ 8590009003+ 8200009004+ 8919009005+ 8000049006+ 6990079008+ 2919009009+ 2790108001+ 6990011908+ 6919071910+ 6919241910+ 8000041921+ 2919000999+ 2919549058+ 8590001945+ 5100011912+ 0000038332+ 8690001913+ 8690001914+ 8590001915+ 6980021918+ 5800501908+ 4019175900+ 1619201911+ 2979001909+ 8000041922+ 1619201925+ 2790101939+ 8000231922+ 0000000010+ 5200011923+ 5200011912+ 5800501917+ 0000038282+ 6980021905+ 1519701977+ 6980021983+ 8690001984+ 8590001985+ 2916501981+ 6919571986+ 6919741979+ 8590001988+ 2903801982+ 8690001990+ 8590001991+ 2790101992+ 2790301993+ 8590005946+ 2790101980+ 8690001987+ 2919500999+ 2903501978+ 0000000000+ 2979001906+ 2919501916+ 2916501919+ 8690001976+ 8590009014+ 6990019002+ 0000038342+ 8590009003+ 6919559004+ 2490549005+ 6909999006+ 2405269010+ 6500499008+ 6990011659+ 8690009000+ 2916509007+ 4816579911+ 0000038392+ 8200011662+ 4516581660+ 6902551665+ 2790001996+ 5740001674+ 8813930069+ 4590091663+ 8110001666+ 8280011668+ 8816001992+ 6919601664+ 9616671669+ 2416043698+ 6902551661+ 6916701673+ 8800041674+ 6990019009+ 0740001682+ 0000038412+ 1416771688+ 2416761669+ 2720001676+ 8590001680+ 0640001682+ 0000000050+ 2114691679+ 6916711681+ 6500461672+ 8690009000+ 2516951687+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 5900011651+ 2014591678+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 8080021666+ 0000000000+ 8816501954+ 6500481654+ 6916521544+ 6916711675+ 8802001656+ 6990019002+ 0000038402+ 8590009003+ 6903149004+ 2490429005+ 6916949006+ 2490229007+ 6502559008+ 3500049009+ 6990289010+ 2290289011+ 6990249012+ 2290249013+ 6990319014+ 2290319015+ 6990469016+ 2290469019+ 6990019018+ 8690009000+ 2916099017+ 6590089003+ 2590309000+ 0000000000+ 8800099004+ 5702559036+ 2590309006+ 5900019007+ 4890049900+ 0402559005+ 2919691975+ 4119891974+ 5702551983+ 8200008002+ 2937508002+ 6519821989+ 8117001981+ 2937201973+ 2937801995+ 2938401970+ 2939001987+ 2939601984+ 6519861992+ 0000000000+ 5300011988+ 5003001992+ 0000000000+ 0402551991+ 2939508002+ 5900011993+ 2938508002+ 8800109009+ 5200011997+ 2937001972+ 4819969901+ 2519991971+ 2938008002+ 2790008002+ 6959751994+ 0000000000+ 8800108001+ 6990019002+ 0000038472+ 8590009003+ 6990049005+ 2917509006+ 2790108001+ 6990019007+ 8690009000+ 0000000000+ 0000000000+ 6916041757+ 0640001758+ 4517719911+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 8280011763+ 2519501764+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 6517661771+ 5740001770+ 0000000000+ 0000000010+ 0000000000+ 0000000000+ 0000000000+ 1617731752+ 2790001751+ 0000000000+ 0000000001+ 6501270131+ 1601280133+ 0000000000+ 0000000004+ 0000000001+ 0000000000+ 0000000000+ 2790000136+ 0000000000+ 4501319911+ 0000000000+ 0000000000+ 0640000142+ 0000000000+ 0000000000+ 0000000000+ 6902930146+ 6902930146+ 2501470148+ 0000000000+ 0000000000+ 0000000000+ 8280010124+ 4703470325+ 5740000125+ 0000000000+ 6990019002+ 0000038482+ 8590009003+ 6916949004+ 2490189005+ 6516049006+ 3500049007+ 6990209008+ 2290209009+ 6990169010+ 2290169015+ 6903149012+ 2417509013+ 6990019014+ 8690009000+ 2917509011+ 0402559001+ 2590069003+ 0000000000+ 0188889004+ 5702559000+ 0000000000+ 6990099008+ 0000000000+ 2790108001+ 2988889000+ 6917511765+ 6590091769+ 8280011770+ 4817679911+ 2490001771+ 6917721777+ 5740001776+ 0000000000+ 6990031775+ 8800041776+ 6517741779+ 0000038372+ 0000000000+ 0000000007+ 2290031782+ 2790001781+ 8590001783+ 0000000000+ 1590091788+ 0000000000+ 0640001787+ 6916041763+ 8690009000+ 0000000000+ 0000000000+ 0000000000+ 2517911792+ 2090091769+ 0000000000+ 0000038422+ 4717661998+ 5900011764+ 0000000000+ 0000000000+ 6990019002+ 0000038492+ 8590009020+ 6990049010+ 2801019006+ 2790108001+ 6990019007+ 8690009000+ 0000000000+ 0000000000+ 0817519005+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 2901109003+ 6901010115+ 6590090119+ 0000000000+ 8800040120+ 2490000121+ 0000000000+ 0000000000+ 0000000000+ 6990030125+ 2790000126+ 6501240129+ 0000000000+ 0000000000+ 0000000007+ 2290030132+ 0640000133+ 0000000000+ 0000000000+ 1590090139+ 0000000000+ 0000000000+ 6902930146+ 2501370138+ 0000000000+ 0000000000+ 0000000000+ 4703470349+ 5900010144+ 2090090119+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 4801479911+ 0000000000+ 8280010114+ 5740000120+ 0000000000+ 0000000000+ 6990019002+ 0000038442+ 8590009003+ 6990049005+ 2917509006+ 2790108001+ 6990019007+ 8690009000+ 0000000000+ 0000000000+ 6516041773+ 2794561757+ 4217551756+ 2790001772+ 2018341758+ 6917961759+ 0917971753+ 2918271752+ 2790001755+ 2418361760+ 7118181767+ 2016041950+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 4217701771+ 0000000000+ 0000000000+ 5200081751+ 1517951761+ 2918311754+ 8300561751+ 2905810134+ 8300560131+ 0000000000+ 2790000124+ 2405860139+ 4201320133+ 4201350136+ 2794560137+ 6901460128+ 0901470127+ 2005840138+ 5200080131+ 1501450142+ 2905770129+ 2790000132+ 7105550130+ 6502930125+ 2401490140+ 2002930143+ 4703470325+ 8790008000+ 0000000010+ 0080880000+ 6919081906+ 8590001907+ 8790001954+ 6990019002+ 0000038472+ 8590009003+ 6903149004+ 2490359009+ 4790509006+ 6990019007+ 8690009000+ 0000000000+ 2916099005+ 6080019001+ 8117009002+ 1590039004+ 8690001999+ 8200009005+ 2919651966+ 1019691973+ 5003001981+ 0000000000+ 0000000010+ 0000000000+ 0000000000+ 4119761982+ 6980031980+ 2937508002+ 2938008002+ 2938508002+ 2939508002+ 0000000000+ 0000000000+ 8590005986+ 8200001986+ 6919851992+ 0000000000+ 0000000000+ 0000000000+ 2937008002+ 2937201974+ 2937801975+ 2938401972+ 2939001977+ 2939601967+ 2919508001+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 5200011966+ 6990519052+ 2917729006+ 2790558001+ 0000000000+ 0000000000+ 8790001771+ 8590001772+ 8790000136+ 8590000124+ 0000000000+ 6990019002+ 0000038482+ 8590009009+ 6903149004+ 2417509005+ 4290069056+ 6990019007+ 8690009000+ 0000000000+ 2917509003+ 6080019001+ 1090029003+ 0000000010+ 6980039004+ 8590009005+ 6990099008+ 8690009000+ 6980039006+ 2790108001+ 2988889007+ 6917681773+ 6516041792+ 2794561769+ 2790001770+ 2018341787+ 5200081763+ 4717711772+ 8790008000+ 2918271779+ 2818311765+ 6917741777+ 1517751780+ 2417961762+ 0000038372+ 0000000010+ 0000000000+ 8590001784+ 0000000000+ 4217821783+ 2016041998+ 0000000000+ 6917851788+ 0817941764+ 8690009000+ 0080880000+ 0000000000+ 2790001782+ 2418361789+ 7118181791+ 0000038462+ 4217661767+ 8300561763+ 0000009003+ 6919081906+ 8590001907+ 8790001954+ 2917919006+ 8590001794+ 0000009056+ 8790001767+ 6990019002+ 0000038492+ 8590009010+ 6516999004+ 1690059006+ 8802001656+ 4590079056+ 6990019008+ 8690009000+ 0000000000+ 2901009003+ 6080019001+ 1090029003+ 0000000010+ 6980039004+ 8590009005+ 6990099008+ 8690009000+ 6980039006+ 2790108001+ 2988889007+ 6901180121+ 6502930142+ 2794560119+ 2790000120+ 2005340137+ 7105050123+ 4703470349+ 8790008000+ 2905270129+ 2805310115+ 2401410112+ 0000000000+ 4201260127+ 0000000000+ 0000000000+ 5200080113+ 1501300136+ 0000000000+ 4201320133+ 0000000010+ 0000000000+ 6901350138+ 0801390114+ 0000000000+ 0080880000+ 2002930117+ 2790000132+ 2405360116+ 6919081906+ 8590001907+ 8790001954+ 8300560113+ 0000000000+ 0000000000+ 0000000000+ 2901419007+ 8590000144+ 0000000000+ 8790000127+ 6990019002+ 0000038502+ 8590009003+ 6990049005+ 2919509006+ 2790108001+ 6990019007+ 8690009010+ 0000000000+ 0000000000+ 5800017955+ 0930001750+ 0930501750+ 0931501750+ 0919739000+ 2790001961+ 0929201972+ 4119631964+ 0930401952+ 0931001953+ 0931601965+ 0916101962+ 8800011968+ 0929801951+ 6919671970+ 5003001962+ 0917741969+ 0000038512+ 0929001750+ 2790271971+ 8590001954+ 2901240324+ 0929501750+ 2903231966+ 8690009058+ 5800016330+ 2790000335+ 4103300337+ 0937500140+ 0938000140+ 5003000140+ 0939400343+ 0937000328+ 0937600329+ 0938200338+ 0938800336+ 8800010342+ 6501440339+ 0938500140+ 3600010141+ 0000038372+ 8690009000+ 0939000140+ 0939500327+ 8590000341+ 0000000000+ 0000000000+ 6903400344+ 8109000326+ 8109001955+ 6514939001+ 1490139002+ 2014919003+ 2114929004+ 1180019005+ 1690119010+ 4690071956+ 6990129008+ 8590009009+ 8690009010+ 2919509006+ 0000000020+ 0000038502+ 0000000050+ 0814911955+ 8090001963+ 6917901544+ 0817511965+ 6580071966+ 2490071967+ 4019681969+ 2114921962+ 6919511970+ 8290011971+ 1680051972+ 6580061974+ 3500041978+ 6990051975+ 5000201986+ 6519881997+ 2414911956+ 8890021979+ 4519761977+ 5380011980+ 3500041985+ 2490001981+ 2794101982+ 3600011983+ 6990091984+ 6514591964+ 5200491976+ 3600011761+ 0960001957+ 6914691973+ 2290091990+ 1590081993+ 6080051995+ 8880021996+ 0000001000+ 0000000000+ 4719941762+ 0000000000+ 0000000000+ 2290081958+ 6917501959+ 1919531987+ 8200001979+ 2414931961+ 5100191960+ 2790001954+ 6990019002+ 0000038512+ 8590009010+ 6917509004+ 2406669005+ 6990010301+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 2903009003+ 0914590311+ 8690009058+ 0906320334+ 8890020312+ 6080050313+ 1680050314+ 0801010320+ 6580070322+ 4703230112+ 3600010111+ 2790010316+ 6506000306+ 1903170337+ 4503180319+ 5380010321+ 2906000302+ 0000000050+ 2794100324+ 3600010325+ 6580060327+ 5200490318+ 3500040333+ 6906660326+ 0960000307+ 6906100315+ 2490070332+ 3500040338+ 0000038372+ 0000000000+ 0000000000+ 8590000336+ 6990050340+ 6990090339+ 8090000342+ 0000000000+ 8690009000+ 8880020345+ 1590080346+ 2290090309+ 2490000310+ 0000000000+ 8290010304+ 0000000000+ 0000000000+ 8200000312+ 2290080308+ 6903280331+ 2790000303+ 5000010305+ 8200499001+ 2094109002+ 4290039004+ 1690059006+ 2790101146+ 0000010000+ 5300019001+ 4011051106+ 1590099000+ 0000990000+ 2911001102+ 6996601113+ 8109501108+ 8690001109+ 5900601110+ 5000509008+ 6712481103+ 5800021116+ 6511119000+ 3500021115+ 8590001116+ 0100498000+ 5140001123+ 2420001112+ 4611181125+ 8880031124+ 4811191120+ 4611211122+ 6912481127+ 6596611117+ 6511491114+ 8380021130+ 3000021129+ 4011261107+ 1180011131+ 8690001137+ 5040011113+ 8590001999+ 0000000000+ 1511321138+ 3000041141+ 3000021137+ 2400001107+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 1811401145+ 6996608002+ 0000000000+ 0000000010+ 8180021101+ 0000000000+ 0000000000+ 0000000000+ 2011491104+ 2929509007+ 0000000000+ 0000000000+ 0000000000+ 8200499001+ 2094109002+ 4290039004+ 1690059006+ 2790100946+ 0000010000+ 5300019001+ 4009050906+ 1590099000+ 0000990000+ 2909000902+ 0000000010+ 8109500908+ 2406590912+ 5800020926+ 5000509008+ 6706590913+ 2009110914+ 6912490903+ 6996600917+ 5320010922+ 0000000000+ 6509159000+ 8690000918+ 5900600920+ 0110498000+ 4609190921+ 2440000910+ 3500020925+ 8380020928+ 8590000926+ 3000020927+ 4209320904+ 1609330937+ 8690000936+ 8880030934+ 4809290930+ 1509310935+ 3000040939+ 6596610916+ 6509110923+ 2400000904+ 5220000917+ 0000000501+ 1180010941+ 6996608002+ 1509330947+ 4609400942+ 8590000348+ 8180020909+ 6906590938+ 3000020947+ 6909110924+ 0000000000+ 0000000000+ 0000000000+ 2939509007+ 1809010907+ 6916049059+ 2402939010+ 6990289001+ 8590009010+ 6909999003+ 2405269004+ 6500479008+ 4590069007+ 8816510069+ 6590098001+ 8300019005+ 8100011951+ 2919509002+ 1415111952+ 2790131953+ 0919539014+ 5000019015+ 4019949016+ 6080029017+ 1915119018+ 8000069019+ 2190079030+ 7090429898+ 5100010023+ 3500020014+ 1500160022+ 5800250017+ 2200120015+ 6920020012+ 6700010013+ 0000038532+ 0080800008+ 2390029031+ 2490039032+ 2490059033+ 3500049034+ 2290049035+ 2490019036+ 6080019037+ 2390069038+ 6592219039+ 1590029040+ 2092219041+ 4090429043+ 5100019038+ 8000029044+ 6592259045+ 1590069046+ 2092259047+ 4090489049+ 4190509051+ 8100029044+ 7190209056+ 5100019044+ 0000000000+ 6990281547+ 0163000300+ 0163000300+ 2816751678+ 0163000300+ 8800009049+ 2816509053+ 6990589001+ 8590009002+ 8000069003+ 6592519004+ 1536519005+ 2036789006+ 4090079008+ 5100019003+ 6990099030+ 0080800008+ 2416579011+ 6590129013+ 0000170001+ 1516569014+ 2016549015+ 6590169017+ 4800050004+ 1516519018+ 2016569019+ 6506069020+ 1606859021+ 2016589022+ 6506629023+ 1607739024+ 4590259026+ 8200069028+ 6590589027+ 2790001975+ 6990291544+ 0000038552+ 2919709049+ 8200001979+ 6919821987+ 0977001976+ 0960001976+ 8802001973+ 8790001981+ 1519801986+ 8590005974+ 8816001977+ 0000000010+ 4819855972+ 0000038502+ 7116661984+ 8690009010+ 5900501977+ 6980021978+ 8590001983+ 0000038542+ 2416869050+ 6903149010+ 2900120017+ 8080020020+ 5980030021+ 4000180019+ 2420000015+ 7000249898+ 0919529043+ 0000088002+ 6919881544+ 6990589001+ 8590009002+ 8800009003+ 8109809004+ 8200069011+ 0000000000+ 0000000000+ 0000000000+ 2903009052+ 0080800008+ 2490109008+ 6580059012+ 3500049037+ 1590359014+ 4590369015+ 4190169034+ 5000019011+ 1580069018+ 1690199020+ 0100007999+ 2090009021+ 5040009038+ 2494019023+ 4290249025+ 5300019026+ 7190009027+ 5100019038+ 5800019028+ 5000069029+ 8200069015+ 8200060352+ 0000000000+ 2916529030+ 0803309029+ 5110199051+ 0109808000+ 1529809017+ 1629809013+ 6929809022+ 0905779032+ 0119998000+ 5000059044+ 1639999013+ 6939999022+ 4190469045+ 5320019046+ 5100059047+ 1539999017+ 0000000000+ 0000038552+ 8690009010+ 6980059059+ 6990589054+ 2905769050+ 0916549053+ 8590000342+ 6903410347+ 6980079010+ 0000038512+ 2490519057+ 6990409001+ 8590009002+ 7116669059+ 8800009009+ 8090519005+ 8890109006+ 6903819007+ 8590009033+ 0903009004+ 2903500352+ 2903519008+ 6516580363+ 0198989898+ 3500040365+ 1580060364+ 5000010387+ 6580070369+ 0080800008+ 2090010370+ 4703779000+ 2419860391+ 0000038062+ 4503660367+ 1603680374+ 1692590373+ 2790000371+ 6903810384+ 0118007999+ 3500040379+ 6903750378+ 0916540357+ 7190000399+ 1503760382+ 2019770380+ 0000038372+ 0190598000+ 6503629059+ 8590000388+ 1503850393+ 2919780383+ 0000088382+ 4503860387+ 6903580361+ 8690000389+ 5900010003+ 5000050392+ 4103900366+ 2790040394+ 8100590395+ 5000010395+ 7119790398+ 4103960397+ 1590010359+ 0803530372+ 6580050354+ 1592540355+ 5320010396+ 5800010356+ 8690000360+ 3600019003+ 8300019001+ 6504779010+ 6909999003+ 2405269004+ 4619829005+ 6919869006+ 2419929007+ 6500479008+ 4519569009+ 6519991951+ 2919509002+ 6415111971+ 2002551959+ 2007801983+ 6506851989+ 6507731977+ 8816510069+ 8816530069+ 8816520069+ 4139561995+ 8590001966+ 4519921965+ 8280021973+ 5300011969+ 8790001992+ 6915981960+ 8690001972+ 4319701974+ 4519921975+ 5800011967+ 6915981964+ 2000471982+ 6607801985+ 6903141967+ 2460001963+ 6919781544+ 9219791981+ 1606621968+ 0000038572+ 6919841988+ 2919500999+ 6919901544+ 6500481957+ 4119871995+ 0000038332+ 8880011991+ 6919961544+ 6500491958+ 8590001993+ 1606061961+ 0000038592+ 1502551962+ 6514491976+ 8690001998+ 0163000300+ 0163000300+ 0000038582+ 0163000300+ 2790101980+ 0000001950+ 6504779001+ 4690029003+ 6514499004+ 6990589007+ 9290059006+ 6990599008+ 6990559007+ 2490599008+ 8590009009+ 6990119012+ 2919509015+ 6619917996+ 2406849013+ 6502559014+ 1607809010+ 4619969016+ 6580019017+ 1690189019+ 0000001000+ 4690209021+ 6502559022+ 6607809035+ 1690189023+ 4690249025+ 8800009028+ 8800019026+ 6690279028+ 0000000001+ 1590189029+ 3500069031+ 8800000835+ 1007809032+ 3500049033+ 6180039034+ 2119610834+ 1590279036+ 3500041997+ 0000000000+ 0000000000+ 0000000000+ 2019611970+ 8690001986+ 2919500999+ 0000000000+ 0000000000+ 0000000000+ 6919891992+ 4619909000+ 0000000000+ 8802090890+ 2790101982+ 0009990000+ 2406841987+ 0000000000+ 0000000000+ 0000038592+ 6519991981+ 1602551980+ 0000038582+ 0000038332+ 6514499001+ 9290029003+ 6990509004+ 6990459005+ 2490459005+ 8590009006+ 6903149054+ 6504859008+ 1508979009+ 2004859010+ 6904779058+ 6000479012+ 1915119013+ 2390009014+ 1590579015+ 3500069016+ 1007809017+ 8080019018+ 5010009019+ 5110009020+ 4190219022+ 1190239022+ 3500049024+ 0000001800+ 2190579025+ 6502559026+ 1607809027+ 4690289029+ 6080039029+ 3500049030+ 1590539031+ 1590009032+ 2090539033+ 6990529034+ 2390529035+ 6590009036+ 3500049037+ 1580019038+ 1590559039+ 2090559040+ 1590519041+ 2090519044+ 6590459043+ 8690001976+ 2919719042+ 0000038592+ 2919500999+ 2790101973+ 4619749000+ 7119771975+ 0000038332+ 2900019984+ 5100010008+ 8000000008+ 2490549007+ 4000030020+ 8888888888+ 2420000006+ 2390509011+ 0080000008+ 6990019002+ 0000038332+ 8590009003+ 6505859058+ 0000000001+ 2405859006+ 6903149053+ 6502559008+ 1607809009+ 4690109011+ 6080039011+ 3500049012+ 1590529013+ 2090529014+ 6507809015+ 8080019016+ 5010009017+ 5110009018+ 4190199020+ 1690219020+ 3500049022+ 0000001800+ 1590569023+ 2090569045+ 6990019025+ 8690001976+ 0000038332+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 2919729024+ 0000000000+ 2919500999+ 2790101974+ 7119771975+ 6919541953+ 2090519005+ 8000001957+ 2490539007+ 6919558001+ 5100011957+ 2420001958+ 4019568000+ 1590049051+ 0080080000+ 4690019002+ 6990049005+ 6990599003+ 8590009010+ 1415111976+ 2490229006+ 6519519007+ 4590089009+ 6990589003+ 6990589012+ 2090569011+ 8816629021+ 8590009013+ 6990149015+ 2919619016+ 2790218001+ 6590171971+ 0000001950+ 0000000000+ 0000000000+ 0000000000+ 2919610442+ 2019671970+ 6919991968+ 6919671972+ 5419781973+ 8816630550+ 0000000000+ 8690001974+ 2919500999+ 8816640649+ 6919981977+ 8280011978+ 1608971978+ 6919671975+ 8280011981+ 6080021986+ 8690001987+ 4519821983+ 5000011989+ 2407809000+ 4519841985+ 0340001988+ 8819660976+ 0340001990+ 2790101969+ 1915111971+ 8080021979+ 2519781965+ 6580051980+ 1608971981+ 2919618001+ 2790211991+ 6919621992+ 0162890300+ 0162890300+ 0000000000+ 0162890300+ 0000038612+ 0000038332+ 6919999001+ 8590009017+ 2090009003+ 3500049058+ 2090029007+ 6594589438+ 2094589048+ 6590050768+ 6890108001+ 6716129010+ 2004779011+ 6590009012+ 1590139014+ 0000000023+ 6919999038+ 7190409016+ 8690001993+ 8300019002+ 0000000000+ 0000000000+ 6519529028+ 1590029006+ 1590009006+ 1590029006+ 1590009006+ 1590029006+ 1590009006+ 1590009004+ 4590089009+ 5300049005+ 7190509029+ 1590009006+ 1590009006+ 1590019006+ 1590029006+ 1590029006+ 1590029006+ 1590009006+ 2819619015+ 2090051014+ 8800009049+ 2900110019+ 2440000015+ 4600010017+ 8280020021+ 4000180019+ 5800010020+ 0919529043+ 5300019005+ 0080000008+ 7090429898+ 8000040022+ 5100010023+ 7000169898+ 6000060013+ 6920010012+ 1500070014+ 3000040014+ 2090019027+ 0080000008+ 6990599005+ 6059499002+ 4419639003+ 4290001980+ 0908041962+ 8590009021+ 6590079012+ 2419531966+ 8301999009+ 8909890976+ 6990189017+ 2819529006+ 2119519010+ 6273610000+ 0061856169+ 7361627365+ 0000000000+ 2490009004+ 5200019001+ 0099989990+ 0000000000+ 2919619008+ 2090199001+ 3600001985+ 3120011971+ 8080021973+ 8819670976+ 6590359002+ 8690001974+ 5080021977+ 0000000000+ 2190351979+ 0000000000+ 6580061981+ 2790101982+ 0000000000+ 0000000000+ 5080031986+ 0000000000+ 6080051987+ 6919991968+ 1419841995+ 2919500999+ 0000000000+ 0000000004+ 8080021993+ 5015490428+ 1919901965+ 0000000000+ 0000000000+ 0000000050+ 0000000000+ 0000000000+ 3500011964+ 0000000000+ 1919981969+ 0000000000+ 0000000000+ 0000000500+ 0000038332+ 6916839001+ 8590009010+ 2790108001+ 6916839004+ 8790009005+ 6990069002+ 6916821985+ 8790009008+ 4590091691+ 8200011698+ 2919509037+ 0919009007+ 1008971954+ 7119771959+ 3540001994+ 3500011961+ 3040001989+ 8290581966+ 0000000000+ 4716991964+ 1508971957+ 8280031971+ 0000000000+ 0000000000+ 5800021972+ 4656921970+ 3600061970+ 0000000000+ 0000000000+ 0000000000+ 2019771988+ 6038501956+ 8290581990+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 6990449038+ 8000059039+ 2439789040+ 4090419042+ 5100019039+ 6990439002+ 0918509003+ 8989898989+ 8590001951+ 0880000000+ 6580011995+ 3500031997+ 6980031996+ 4819931694+ 1180011955+ 1180011999+ 6596611965+ 2138501959+ 3000061960+ 9119521953+ 8080035991+ 0000000000+ 5101001955+ 6990019002+ 0000038632+ 8590009003+ 6990049005+ 2916509006+ 2790108001+ 8909910976+ 1606629008+ 6990011547+ 6507739007+ 2438501654+ 1616551660+ 4616561669+ 8690001658+ 4016571659+ 0000000010+ 6952481671+ 5100011650+ 8000991664+ 3500021665+ 2002551661+ 5900601667+ 2017111666+ 1656951652+ 6908461650+ 8880031674+ 6680031966+ 8590001672+ 1619771689+ 6502551670+ 8690001651+ 8590005697+ 6980061678+ 8590005687+ 1180011684+ 5300011698+ 8690001677+ 2790101679+ 2490581990+ 2916500999+ 0000038282+ 0000038332+ 0000088332+ 0000088342+ 3000021651+ 2919501676+ 2919001688+ 2918501688+ 8690001675+ 4519871964+ 2790101673+ 6752481653+ 3600061662+ 1608041692+ 6502551663+ 0000000000+ 0000000501+ 8200011691+ 6956821690+ 6717111668+ 8909959021+ 4790069002+ 4690030976+ 6990589004+ 2419650976+ 6519529010+ 2819619002+ 8200041971+ 2931501965+ 4019761980+ 2819509020+ 2919500999+ 6919581982+ 1502901999+ 2802561952+ 8590001969+ 8790001975+ 0802561956+ 0000038332+ 4019705962+ 8816960069+ 2919619001+ 2919001952+ 2938501965+ 0939001956+ 2790005964+ 2790121974+ 2790121972+ 2790121981+ 8101501965+ 1519731977+ 8102501970+ 2934001965+ 0000000010+ 2914501954+ 4019781952+ 0932001956+ 6980021983+ 1519731979+ 6980021985+ 8102501986+ 0934501957+ 8590001987+ 5000501989+ 0000000000+ 5000501991+ 8200041968+ 8690001992+ 0000000000+ 8590005963+ 0000000000+ 8590005964+ 2790101951+ 0000000000+ 0162570300+ 0162570300+ 3500011953+ 0162570300+ 8690001959+ 6980021955+ 6004609001+ 9690049005+ 6519629053+ 0810229046+ 6509279029+ 1102239006+ 4490079004+ 6501129008+ 1614999009+ 4590109004+ 6904609011+ 8080019012+ 6780059013+ 1490149015+ 0000000500+ 8880029016+ 6580039017+ 1490189019+ 0000000050+ 8080029020+ 1080039021+ 1080039022+ 5880039023+ 6577509024+ 3520019025+ 1090269027+ 0000000008+ 3120019028+ 2077509002+ 2490009030+ 1600969031+ 4590329002+ 6519529033+ 1590349035+ 0934000000+ 4490369003+ 3500029037+ 8080039038+ 1180019039+ 4590039040+ 6924139041+ 8280019042+ 5390009043+ 4290039044+ 6915519045+ 2424139003+ 6902569047+ 8280019048+ 6902159049+ 2402569050+ 8880019003+ 6600000000+ 5000000000+ 4590549055+ 8080019056+ 6900969058+ 3000049057+ 2025139055+ 2409279059+ 6502230666+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000800000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 6524459052+ 9619979000+ 3000049000+ 1580059055+ 6915519056+ 2425130605+ 4806070829+ 8890079057+ 9690479000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 6524459052+ 9619979000+ 3000049000+ 1580059055+ 6915519056+ 2425130605+ 4806070829+ 8890079057+ 9690479000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 6524459052+ 9619979000+ 3000049000+ 1580059055+ 6915519056+ 2425130605+ 4806070829+ 8890079057+ 9690479000+ 0000000000+ 0000000800+ 0000000000+ 8000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 8000000000+ 0000000000+ 0000000080+ 0000000000+ 8000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 6524459052+ 9619979000+ 3000049000+ 1580059055+ 6915519056+ 2425130605+ 4806070829+ 8890079057+ 9690479000+ 6276770000+ 6376660000+ 6476660000+ 6474760000+ 9090610000+ 7764730000+ 8261830000+ 7361830000+ 8282830000+ 7382830000+ 7977780000+ 7964910000+ 8262591019+ 8990200771+ 2307800833+ 8368697572+ 3600011973+ 0109990999+ 2419530660+ 2003231726+ 1517238002+ 2324454002+ 3500020779+ 6707800324+ 3500021031+ 2404601534+ 6519530758+ 2190029029+ 4608310464+ 2103231979+ 2400961649+ 6716121034+ 5000908004+ 6914990752+ 6510370641+ 0919509052+ 8801700649+ 3500021543+ 2001880001+ 6503231989+ 1503031990+ 4010441745+ 8790001197+ 0000038642+ 2101880333+ 6915981742+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 6524459052+ 9619979000+ 3000049000+ 1580059055+ 6915519056+ 2425130605+ 4806070829+ 8890079057+ 9690479000+ 6187610000+ 8287610000+ 6187620000+ 8287620000+ 7565660000+ 7986830000+ 8683740000+ 6282830000+ 6187630000+ 8287630000+ 7961840000+ 7982840000+ 8888880005+ 8373650000+ 6485790000+ 7961730000+ 7982730000+ 7961740000+ 7982740000+ 7376640000+ 7964910000+ 8679910000+ 7963910000+ 7964920000+ 8679920000+ 7963920000+ 7964930000+ 8679930000+ 7963930000+ 7977880000+ 7961610000+ 7982610000+ 7961620000+ 7982620000+ 8373840000+ 8264820000+ 7964820000+ 8664820000+ 7961630000+ 7982630000+ 6264900000+ 6264910000+ 6264920000+ 6264930000+ 6264940000+ 6264950000+ 6264960000+ 6264970000+ 8300080754+ 1003231728+ 0000000000+ 6524459052+ 9619979000+ 3000049000+ 1580059055+ 6915519056+ 2425130605+ 4806070829+ 8890079057+ 9690479000+ 7576770000+ 6873830000+ 8466610000+ 7983630000+ 7983750000+ 7983610000+ 8683750000+ 8683610000+ 7369620000+ 7364690000+ 6184770000+ 8284770000+ 6000000000+ 6000000501+ 6469850000+ 6173760000+ 8273760000+ 6174730000+ 8274730000+ 7477880000+ 8283730000+ 8283840000+ 8264610000+ 8269610000+ 8283640000+ 7583820000+ 6269750000+ 8265830000+ 8269620000+ 8283690000+ 8279830000+ 8279640000+ 6661640000+ 6682620000+ 6664850000+ 8273830000+ 8263830000+ 6661740000+ 6682740000+ 6674770000+ 7589610000+ 6274610000+ 7589620000+ 6274620000+ 7589840000+ 7589650000+ 6274690000+ 6276850000+ 0000088382+ 0000000450+ 0000000000+ 6524459052+ 9619979000+ 3000049000+ 1580059055+ 6915519056+ 2425130605+ 4806070829+ 8890079057+ 9690479000+ 5000010354+ 2009271730+ 8590000841+ 8590000941+ 0190598000+ 1090049023+ 6780019018+ 1490179014+ 8080029027+ 6579509019+ 0000000500+ 0000000050+ 1490160663+ 3520009020+ 2190049021+ 3540009022+ 1180039005+ 3020009028+ 0908529012+ 2390009029+ 6580039013+ 1080039032+ 2079500001+ 1807809030+ 4617179031+ 4590249012+ 8200019033+ 1080039034+ 5902009035+ 5880039015+ 0000000000+ 6810348001+ 2054490001+ 8801620442+ 2402231734+ 2115301733+ 8280011042+ 3500011043+ 1019530825+ 6603231989+ 1703771738+ 2092001741+ 1508971540+ 6919601987+ 8590001547+ 1503550775+ 0000000000+ 8690009000+ 1680020707+ 1004830692+ 0000000000+ 6524459052+ 9619979000+ 3000049000+ 1580059055+ 6915519056+ 2425130605+ 4806070829+ 8890079057+ 9690479000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 2408240991+ 3500030703+ 6914490757+ 0000000000+ 8890079004+ 9602219058+ 0000000000+ 6524459052+ 9619979000+ 3000049000+ 1580059055+ 6915519056+ 2425130605+ 4806070829+ 8890079057+ 9690479000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 8888888888- 9999999999- 0000000000+ 6524459052+ 9619979000+ 3000049000+ 1580059055+ 6915519056+ 2425130605+ 4806070829+ 8890079057+ 9690479000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0005000500- 0000038662- 0000000000+ 6524459052+ 9619979000+ 3000049000+ 1580059055+ 6915519056+ 2425130605+ 4806070829+ 8890079057+ 9690479000+ 9590690019+ 9469000019+ 9590906919+ 6669756487+ 8283767965+ 9990909919+ 6376797666+ 7961748286+ 6669737373+ 7961747675+ 6376798286+ 7961747590+ 7961747591+ 9662749491+ 7961747666+ 6376797675+ 7779767565+ 8284629184+ 6273799100+ 8284629179+ 6578848262+ 6873839999+ 6578849100+ 6183658228+ 9590690028+ 9590906928+ 9169000028+ 9499690028+ 6383616787+ 6484747763+ 8277798464+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000038602- 6906231544- 0000000000+ 6524459052+ 9619979000+ 3000049000+ 1580059055+ 6915519056+ 2425130605+ 4806070829+ 8890079057+ 9690479000+ 6364696666+ 6376796578+ 9890876578+ 7779766364+ 6173667683+ 7374618283+ 7374828392+ 6474618283+ 6474828391+ 6398876578+ 6376646473+ 7779766369+ 6974618283+ 6974828391+ 6173666975+ 7775636891+ 6669756982+ 7265650000+ 6376796563+ 7265657777+ 7265657700+ 8282768483+ 8365747718+ 9990690018+ 9190907718+ 7272727294+ 8288746273+ 9162939918+ 6661796273+ 9476770018+ 7272727292+ 7272727293+ 6661796975+ 8288746291+ 9090909068+ 6578848288+ 6469856964+ 9264000018+ 6661796365+ 6661797675+ 9169878787+ 6661798286+ 6363758391+ 9590690038+ 6661797666+ 6873839292+ 6873640020+ 9269000019+ 6000000010- 6519521974- 0000000000+ 6524459052+ 9619979000+ 3000049000+ 1580059055+ 6915519056+ 2425130605+ 4806070829+ 8890079057+ 9690479000+ 9593938373+ 7461828379+ 7784756368+ 6464696666+ 6873839191+ 9169727272+ 7782846476+ 7965616461+ 6484747798+ 6484747799+ 7376636183+ 7779766777+ 6873839494+ 6873839595+ 6873839898+ 8283617983+ 6361797988+ 6469827263+ 6669857675+ 7683657564+ 6469827279+ 9698749491+ 7675658286+ 7779838286+ 6273798367+ 6164657564+ 6483616767+ 6975828379+ 6587698390+ 7677836974+ 7476646583+ 6261826587+ 7365856573+ 7376638482+ 6686618787+ 6669858367+ 6873839393+ 6183767500+ 7784836167+ 9490907700+ 7364699491+ 7662618265+ 8284647674+ 7461636875+ 7369756379+ 7779766373+ 6873839797+ 6873839696+ 0400000290- 2600000621- 0000000000+ 6524459052+ 9619979000+ 3000049000+ 1580059055+ 6915519056+ 2425130605+ 4806070829+ 8890079057+ 9690479000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 4517291038+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 6906061992+ 2790000117+ 8080020774+ 0000000000+ 6524459052+ 9619979000+ 3000049000+ 1580059055+ 6915519056+ 2425130605+ 4806070829+ 8890079057+ 9690479000+ 0090250504+ 0090289031+ 0090389048+ 0006060776+ 0006470012+ 0005290636+ 0010380764+ 0006830936+ 0008330708+ 0002121014+ 0017201717+ 0019699007+ 0090179016+ 0090501978+ 0019821045+ 0090190000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 4609290001+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 2790000106+ 0000000000+ 6524459052+ 9619979000+ 3000049000+ 1580059055+ 6915519056+ 2425130605+ 4806070829+ 8890079057+ 9690479000+ 0000460069+ 0002190798+ 0008270897+ 0009760999+ 0015441547+ 0019611962+ 0019941995+ 0019971998+ 0004601598+ 0016121711+ 0012481298+ 0014491448+ 0015300303+ 0003070314+ 0003230188+ 0001560190+ 0002560780+ 0007800477+ 0010110006+ 0000590016+ 0000500018+ 0000080231+ 0001060209+ 0006210020+ 4817170828+ 0002390096+ 0000520116+ 0007670503+ 0006590022+ 0000570443+ 0005490244+ 0001000107+ 0005500531+ 0002070614+ 0007710496+ 0006160769+ 0006739009+ 0090160030+ 0002249030+ 0001109043+ 0004740538+ 0006310927+ 0002100528+ 0005370040+ 0005870838+ 0007781016+ 0009359033+ 0005450772+ 0090559041+ 0000000000+ 0000000000+ 6524459052+ 9619979000+ 3000049000+ 1580059055+ 6915519056+ 2425130605+ 4806070829+ 8890079057+ 9690479000+ 6713490768+ 6906841992+ 6909050259+ 6904911494+ 4209360999+ 6917431544+ 6919931544+ 6680021006+ 3600011006+ 3600011007+ 0000000000+ 0103330333+ 2403230649+ 9619670913+ 8009440240+ 8690000508+ 8890051074+ 5000010026+ 2490460683+ 2002550909+ 8800009003+ 2102560001+ 5940009004+ 4890059002+ 5840019006+ 6571999007+ 4690039008+ 2171999003+ 6905430752+ 8888888888+ 6590500687+ 2109140001+ 6803721532+ 8280029035+ 2004770001+ 6903231978+ 8900190970+ 6517321537+ 2007980001+ 6919600262+ 8880031648+ 8000591047+ 2790010947+ 8880030989+ 1608041991+ 0919510672+ 3000020932+ 6515041541+ 6504600665+ 2003030507+ 0000000000+ 6524459052+ 9619979000+ 3000049000+ 1580059055+ 6915519056+ 2425130605+ 4806070829+ 8890079057+ 9690479000+ 6503540059+ 6503680059+ 6503690059+ 6680021719+ 8808000976+ 6716210040+ 6716050040+ 6716400040+ 6716190040+ 2403140076+ 6510141719+ 6910141012+ 6504310059+ 2119510654+ 6519511722+ 2100900943+ 2003231976+ 6519521174+ 6913481544+ 8801660649+ 6902561536+ 5200010972+ 8800000931+ 8801670649+ 6519521724+ 6619521724+ 3600010890+ 6519520675+ 5300010977+ 8803000937+ 8804000937+ 8805000937+ 3600010937+ 6680020968+ 8809000976+ 2101560001+ 6716200040+ 8801680442+ 8819800976+ 6966231544+ 6108970985+ 6008970985+ 8801690550+ 8801710550+ 6815620691+ 6915980904+ 8801000937+ 6712990768+ 6519510069+ 7019991998+ 0000000000+ 6524459052+ 9619979000+ 3000049000+ 1580059055+ 6915519056+ 2425130605+ 4806070829+ 8890079057+ 9690479000+ 8102001984+ 1690500709+ 2004850001+ 2496090636+ 8590001041+ 4606840685+ 4417126261+ 4506600912+ 8801560649+ 1004310998+ 4619639031+ 8590000684+ 6917151718+ 2002550908+ 0000000000+ 4990380827+ 2490470935+ 1590539054+ 3500049050+ 0000000001+ 8490529058+ 2090559056+ 0000000000+ 6990529057+ 2790020496+ 1690539059+ 4690010525+ 0000009008+ 8801590614+ 0907769007+ 1505850694+ 6019520230+ 1504270701+ 6903230264+ 4808371038+ 1003920901+ 5800010754+ 6080071545+ 6915510704+ 1700460901+ 2790401045+ 6906620259+ 6903140720+ 6680020966+ 3040009011+ 5200109028+ 1512980613+ 0968209001+ 6519530907+ 6002560511+ 0000000000+ 6524459052+ 9619979000+ 3000049000+ 1580059055+ 6915519056+ 2425130605+ 4806070829+ 8890079057+ 9690479000+ 5100050657+ 9205542027+ 6790009025+ 1490161727+ 2190019024+ 5320009039+ 2079509053+ 1180019030+ 2090039031+ 1680079032+ 4507109033+ 6590029034+ 1490171033+ 2190009036+ 5902009037+ 6590019038+ 4590139014+ 5000019040+ 4490419042+ 2190019044+ 5100019043+ 5200019041+ 6090009045+ 4690469047+ 1090169048+ 1190509049+ 5300019049+ 2190009051+ 0000000001+ 4290529053+ 5300109054+ 5800049056+ 4290559006+ 5200109015+ 4990570261+ 6090019058+ 1190509040+ 2190019031+ 6913991544+ 0000000000+ 8100011496+ 2012491503+ 8180030843+ 3500050656+ 5800021500+ 2492010942+ 6909990097+ 0000000001+ 6909990097+ 2490091985+ 0000000000+ 6524459052+ 9619979000+ 3000049000+ 1580059055+ 6915519056+ 2425130605+ 4806070829+ 8890079057+ 9690479000+ 6516530342+ 6703739006+ 2005850999+ 5300019020+ 0000010000+ 0000000010+ 4290070999+ 2090028001+ 2419519009+ 6590029010+ 1603940336+ 3000049012+ 8080020428+ 3000010395+ 3000029015+ 4403959016+ 1803729017+ 3000019018+ 2019529019+ 8909970976+ 6590029021+ 1590049006+ 2326504002+ 0000038622+ 3540010536+ 2017321735+ 0000000049+ 0140020111+ 6919611964+ 4306829005+ 6914480851+ 6515301535+ 4490279028+ 1019510906+ 8200000690+ 8200010690+ 4619541040+ 1608970702+ 7104770612+ 4490119012+ 8880011046+ 6815630891+ 2100460850+ 3000020644+ 1090079008+ 5200109010+ 8888888888+ 3040009009+ 1180039011+ 6590079028+ 0000000000+ 6524459052+ 9619979000+ 3000049000+ 1580059055+ 6915519056+ 2425130605+ 4806070829+ 8890079057+ 9690479000+ 0000000004+ 8790000684+ 2401121124+ 8900080586+ 6959600401+ 3600061548+ 2419611714+ 9208301017+ 4507630913+ 1017138001+ 0902550910+ 2004850838+ 4709160633+ 8801550664+ 9606220527+ 9090409053+ 1603680773+ 6924830506+ 2003230603+ 1180030540+ 2305850940+ 8300011977+ 6590039059+ 4607760685+ 6180030531+ 3000031983+ 1504290731+ 6580010495+ 5300010634+ 8080030938+ 0000008004+ 5090059009+ 8000599022+ 6990179016+ 4117179010+ 8210009011+ 5380019012+ 6690069013+ 2015300933+ 6990159016+ 6855509018+ 2490598001+ 6755509018+ 2055509019+ 4090200001+ 5100019021+ 5200019059+ 8200009008+ 0000000000+ 6190010008+ 0000000000+ 6524459052+ 9619979000+ 3000049000+ 1580059055+ 6915519056+ 2425130605+ 4806070829+ 8890079057+ 9690479000+ 6080030523+ 6903148002+ 2000900831+ 3000030762+ 2424230001+ 6519610766+ 6903141018+ 2319610219+ 8801630664+ 6980030671+ 8200091716+ 6264991749+ 6264990445+ 6264990622+ 0000800000+ 6264991049+ 6264990513+ 0000800000+ 0000800000+ 0000800000+ 2492000583+ 0000800000+ 0000800000+ 0000800000+ 0000800000+ 6264990341+ 6264991549+ 0000800000+ 6264990116+ 6264990650+ 6504830696+ 4608340835+ 6264991199+ 6264990843+ 6264990943+ 6264991504+ 6264990851+ 0000800000+ 0000800000+ 6264990555+ 6264990302+ 6264990149+ 6264990916+ 6264990250+ 6264990779+ 6264990476+ 6264990800+ 6264991019+ 0000800000+ 6264990025+ 0000000000+ 6524459052+ 9619979000+ 3000049000+ 1580059055+ 6915519056+ 2425130605+ 4806070829+ 8890079057+ 9690479000+ 6502551968+ 8590001015+ 0915059025+ 8690000695+ 6906581012+ 2325139000+ 2790570930+ 4107670323+ 8008440240+ 6516120635+ 6519520608+ 8200049613+ 4607760685+ 8880029026+ 8200010069+ 9600689000+ 2404601744+ 2424770631+ 0000800000+ 0000800000+ 0000800000+ 2390492028+ 2090481030+ 2004770210+ 6009270532+ 4519811032+ 6980070632+ 6507800335+ 0000800000+ 0000800000+ 0000800000+ 0000800000+ 6705859004+ 3500020939+ 8802090890+ 8802090890+ 1919510836+ 1090491495+ 0000800000+ 0000800000+ 6552480653+ 2012481502+ 3000040552+ 1000460551+ 1508970604+ 3500020591+ 3000060755+ 2104830646+ 0000800000+ 0000800000+ 0000000000+ 6524459052+ 9619979000+ 3000049000+ 1580059055+ 6915519056+ 2425130605+ 4806070829+ 8890079057+ 9690479000+ 2390110207+ 4506840705+ 8790000510+ 6504770533+ 2919570770+ 2019620765+ 6915980651+ 6519600824+ 8000000600+ 2401130034+ 2401130219+ 1009140769+ 4703230659+ 2052480911+ 8200000069+ 2402230526+ 6504850589+ 1601200475+ 2009270630+ 4600240023+ 6004730230+ 3500020529+ 6690110080+ 0000038002+ 0000038562+ 0000038522+ 0000038382+ 0000038352+ 0000038362+ 2004840697+ 4990030584+ 6504841549+ 2403340490+ 3000020639+ 5901500541+ 8080010693+ 2096080894+ 8080010842+ 3000090700+ 2290470706+ 4905939003+ 2405260001+ 6500460601+ 9402466828+ 6919610895+ 5802000110+ 4707300642+ 1407500553+ 2319540000+ 6519520614+ 0000000000+ 6524459052+ 9619979000+ 3000049000+ 1580059055+ 6915519056+ 2425130605+ 4806070829+ 8890079057+ 9690479000+ 6519530664+ 4406840208+ 1019610629+ 1990280546+ 4760006000+ 7019991998+ 4702019049+ 4590419042+ 6200000000+ 6525139050+ 6507809000+ 6507809000+ 4490539000+ 3600019001+ 1690439044+ 4702019051+ 0400000000+ 4506209045+ 4706509046+ 6525139059+ 4990481995+ 4319979040+ 4994371995+ 3500049054+ 6524459052+ 9619979000+ 3000049000+ 1580059055+ 6915519056+ 2425130605+ 4806070829+ 8890079057+ 9690479000+ 2052480602+ 5900600640+ 0000001553+ 6939500903+ 1590000595+ 1908979014+ 1508970761+ 3690060760+ 1001570892+ 8404009009+ 1076109010+ 1590070501+ 4500080799+ 2474939039+ 0901500502+ 1090049013+ 6519540066+ 0000000000+ 6524459052+ 9619979000+ 3000049000+ 1580059055+ 6915519056+ 2425130605+ 4806070829+ 8890079057+ 9690479000+ 6980050756+ 2002560509+ 2490490108+ 6759589004+ 0169970222+ 2019610018+ 2403140730+ 6904600615+ 6900270840+ 5902930915+ 4006840946+ 2402150674+ 1609190673+ 6873830000+ 6873830000+ 6873830000+ 6873830000+ 6873830000+ 6873830000+ 6873830000+ 6873830000+ 6873830000+ 6873830000+ 3500049011+ 2790000093+ 4207780504+ 7019991998+ 6590110241+ 3500050638+ 1680020592+ 4602330534+ 1531969039+ 2001880542+ 4603230637+ 4990010538+ 4590020489+ 6980020643+ 5190110493+ 4819954896+ 0000020000+ 2414930196+ 4806450110+ 2100961049+ 9690580221+ 6504129023+ 1507980320+ 1580039029+ 4402030204+ 3500040059+ 3500020105+ 0000000000+ 6524459052+ 9619979000+ 3000049000+ 1580059055+ 6915519056+ 2425130605+ 4806070829+ 8890079057+ 9690479000+ 6363910612+ 6363919035+ 6363910653+ 6363919031+ 6363910492+ 6919601013+ 1502550759+ 4017170322+ 4017170323+ 1608971501+ 6873830000+ 6519530708+ 1607801035+ 4110161717+ 2007801533+ 1608970802+ 1608970902+ 0119961996+ 8280020263+ 2003231736+ 3500041986+ 2003231988+ 8880021039+ 0090000000+ 0106660666+ 4705900530+ 0000000000+ 8888888888- 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0000000000+ 0088000000+ 5190090493+ 5200021004+ 4910489005+ 3500021149+ 6580039049+ 2790010597+ 4000520497+ 1508970301+ 6915510104+ 0977509055+ 5800010052+ 2119531036+ 1680020007+ 0000000000+ 6524459052+ 9619979000+ 3000049000+ 1580059055+ 6915519056+ 2425130605+ 4806070829+ 8890079057+ 9690479000+ 7999949588+ 2477500488+ 0303050499+ 0303050499+ 0014991499+ 0303151699+ 0303111099+ 0303050499+ 0303050499+ 0303050499+ 0303050499+ 0303030399+ 2322252498+ 0706070698+ 0706090898+ 0908111098+ 1110131298+ 1312151498+ 1514171698+ 1716191898+ 1918212098+ 2120232298+ 8000969788+ 8001949588+ 8002979788+ 8003969888+ 0303151699+ 2449050598+ 6080050598+ 3905050598+ 9059969788+ 9999999988+ 0404050598+ 0303050598+ 0303050598+ 0303050598+ 0303050598+ 0303050598+ 0303050598+ 0303050598+ 0303050598+ 0404050598+ 8300010998+ 8902550649+ 6913991544+ 6363919040+ 6363911747+ 6363910750+ 6363911699+ 6363919016+ 0000000000+ 6524459052+ 9619979000+ 3000049000+ 1580059055+ 6915519056+ 2425130605+ 4806070829+ 8890079057+ 9690479000+ 0303121299+ 0303020299+ 0303050499+ 0303050499+ 4800980099+ 0908004099+ 0303111099+ 0303050499+ 0303050499+ 0303050499+ 0303050499+ 0303212099+ 0504030399+ 0405030399+ 0304030399+ 0304030399+ 0303030399+ 0404050598+ 4905050598+ 9800050598+ 0303121299+ 0303020299+ 0090909098- 6512000088- 0303272699+ 0303272699+ 0303414099+ 0000000098- 0004009898- 0303272699+ 0303272699+ 0303474699+ 0303040498+ 0303040498+ 0303040498+ 0303040498+ 0304040598+ 0403050498+ 0303040498+ 0303050598+ 0303040498+ 0303040498+ 7999999988+ 0001000588+ 6514930088+ 1990050588+ 0404050598+ 4040050598+ 0000050598+ 9089555598+ 0000000000+ 6524459052+ 9619979000+ 3000049000+ 1580059055+ 6915519056+ 2425130605+ 4806070829+ 8890079057+ 9690479000+ 6780001198+ 8880020010+ 4717251975+ 0000000000+ 6580016300+ 1999000001- 7999800000+ 0907800000+ 0907800000+ 8007000001+ 8999000000+ 9059000002- 9099000003- 9999000000+ 7019991998+ 6790509027+ 8000009014+ 3000019015+ 1790509027+ 6794049216+ 1000730030+ 2090509021+ 8080020248+ 8802000965- 3500069022+ 1680029023+ 8490029024+ 1590258002+ 8000009026+ 4190169012+ 6980039028+ 2390509001+ 8890319018+ 2119620999+ 0000001652+ 6916880341+ 1405391199+ 6916400051+ 2001150034+ 8880020072+ 2404600069+ 2324450058+ 2419540498+ 6916545498+ 0303232299+ 4401050598+ 8000050598+ 2103050598+ 4000055598+ 1505050598+ 0000000000+ 6524459052+ 9619979000+ 3000049000+ 1580059055+ 6915519056+ 2425130605+ 4806070829+ 8890079057+ 9690479000+ 3000049016+ 6077509018+ 8290089005+ 2090069031+ 4790309004+ 0000003800+ 9875940131+ 0000000001+ 2271969048+ 2407730001+ 4608980003+ 4719660001+ 9615391739+ 5640000003+ 9790089014+ 5880029017+ 5800509002+ 3600009019+ 8280029020+ 3500019021+ 3140019022+ 2177509023+ 6080069024+ 1990259026+ 0000000050+ 8280029027+ 6580070647+ 0000000500+ 1580069003+ 4390009050+ 6090079032+ 8880019033+ 3000029034+ 1680029035+ 8490119036+ 1590378002+ 6499990594+ 6914930596+ 6680079040+ 1490410206+ 0000000002+ 1680019043+ 1590069044+ 6971969045+ 4490469047+ 3500049009+ 2371969049+ 3000049049+ 4740029000+ 6916520655+ 0000000000+ 6524459052+ 9619979000+ 3000049000+ 1580059055+ 6915519056+ 2425130605+ 4806070829+ 8890079057+ 9690479000+ 6703780768+ 6502551970+ 6943070112+ 3500020540+ 6080010611+ 1001150320+ 8980029042+ 6919600764+ 4005120616+ 6519620067+ 6903140667+ 4404870537+ 6703140621+ 8490029058+ 1600170071+ 9875940131+ 4990499005+ 6902310492+ 6504770081+ 6504770081+ 8080020236+ 6509270494+ 4708880888+ 6873830000+ 0107770777+ 3000040031+ 1602350239+ 1503930548+ 3000010089+ 3000040238+ 3500080547+ 2001150219+ 2101880041+ 4803364897+ 6780001498+ 8802000950+ 6903390492+ 1080010095+ 4400430094+ 4504430948+ 0920000652+ 1590000008+ 1580020054+ 3500060505+ 8902560550+ 4401000549+ 8900010503+ 6519510056+ 0907809006+ 3000090055+ 0000000000+ 6524459052+ 9619979000+ 3000049000+ 1580059055+ 6915519056+ 2425130605+ 4806070829+ 8890079057+ 9690479000+ 0902509001+ 0902519002+ 0902529005+ 1490330491+ 6590399015+ 0000000000+ 0000000000+ 0000000002+ 1590218002+ 4602219003+ 1005448003+ 8880029042+ 8800009037+ 8800009037+ 4290169017+ 4690189019+ 2090589025+ 6003140528+ 9202129020+ 3500049017+ 6500009022+ 1504159020+ 6990399024+ 9290209017+ 6590419026+ 1490080832+ 6790589029+ 6790589031+ 3500029030+ 1180039031+ 3000089032+ 1590419004+ 0000000050+ 1580029035+ 6980069036+ 2402570661+ 1690339038+ 4690509040+ 0000000000+ 5800509037+ 0000000010+ 6077509043+ 4490029044+ 5300019045+ 4290460504+ 5800019042+ 6312000617+ 6315500214+ 1580029034+ 0909179051+ 0000000000+ 6524459052+ 9619979000+ 3000049000+ 1580059055+ 6915519056+ 2425130605+ 4806070829+ 8890079057+ 9690479000+ 6080010057+ 3500040109+ 1602551971+ 0905560535+ 2404600524+ 8880030013+ 0901170103+ 1001130320+ 8890070216+ 2203140022+ 6502139054+ 4708880888+ 9690580221+ 0000000010+ 5300010019+ 0000000008+ 9600690224+ 0903039029+ 0901500202+ 4490079008+ 0014930000+ 8080010677+ 4719979000+ 6580030320+ 1590099008+ 1180039010+ 0000000090+ 8080019011+ 1180039012+ 4590139014+ 2490069015+ 6580019023+ 1590169017+ 1000000000+ 4490189019+ 1180039020+ 5100909028+ 3500019021+ 1090069022+ 3500019011+ 4090249005+ 3000019025+ 4701029026+ 1526509027+ 9619949000+ 4106209029+ 1690309031+ 1000000090+ 4590329033+ 1690359034+ 0000000000+ 6524459052+ 9619979000+ 3000049000+ 1580059055+ 6915519056+ 2425130605+ 4806070829+ 8890079057+ 9690479000+ 4400530054+ 2343070061+ 6580074609+ 1180030011+ 3000060029+ 8080030077+ 6904600063+ 2000730076+ 2119620949+ 2003140074+ 4105001717+ 4201140065+ 2001900244+ 4501160070+ 4000000000+ 4402290001+ 6990000648+ 4501210949+ 8100539040+ 2004730676+ 9604740777+ 4602270225+ 1490080211+ 0000000000+ 1001880245+ 1180030083+ 8300010232+ 5100050084+ 1090000337+ 6915510340+ 4502410587+ 4606420635+ 5000010242+ 4500860237+ 4120050000+ 2000460249+ 2490000042+ 6019540009+ 4690039008+ 1580010059+ 0000000000+ 9102440062+ 6915980751+ 0903039018+ 1603990006+ 6902480051+ 0000009008+ 2400000001+ 1713980586+ 7190000348+ 0000000000+ 6524459052+ 9619979000+ 3000049000+ 1580059055+ 6915519056+ 2425130605+ 4806070829+ 8890079057+ 9690479000+ 6019540009+ 8809990976+ 6500310085+ 6900870097+ 6500310085+ 1604040753+ 3500020016+ 2417110197+ 2003142219+ 8000000014+ 5990590618+ 1600640619+ 6980050020+ 6063420012+ 8200010019+ 3500090085+ 1680020228+ 0016500000+ 6590110226+ 3000020075+ 2400730076+ 6519611965+ 3000042034+ 4500540078+ 1580010082+ 2007802038+ 6707800893+ 7490406000+ 7190400830+ 1090000095+ 2101900243+ 1502358002+ 6903380492+ 6901880091+ 6901880091+ 8080020236+ 1500900205+ 1080010545+ 0101230123+ 2000460107+ 2090000599+ 8902750247+ 3500010050+ 3000020499+ 6990110600+ 6990110101+ 0000001999+ 0093989090+ 0090000000+ 0091999999+ 0000000000+ 6524459052+ 9619979000+ 3000049000+ 1580059055+ 6915519056+ 2425130605+ 4806070829+ 8890079057+ 9690479000+ 6004609001+ 9690049005+ 6519629053+ 0810229046+ 6507719029+ 1106169006+ 4490079004+ 6501109008+ 1605879009+ 4590109004+ 6904609011+ 8080019012+ 6780059013+ 1490149015+ 0000000500+ 8880029016+ 6580039017+ 1490189019+ 0000000050+ 8080029020+ 1080039021+ 1080039022+ 5880039023+ 6577509024+ 3520019025+ 1090269027+ 0000000008+ 3120019028+ 2077509002+ 2490009030+ 1604969031+ 4590329002+ 6519529033+ 1590349035+ 0934000000+ 4490369003+ 3500029037+ 8080039038+ 1180019039+ 4590039040+ 6924139041+ 8280019042+ 5390009043+ 4290039044+ 6915519045+ 2424139003+ 6902569047+ 8280019048+ 6906149049+ 2402569050+ 8880019003+ 6600000000+ 5000000000+ 4590549055+ 8080019056+ 6904969058+ 3000049057+ 2025139055+ 2407719059+ 6506160666+ \ No newline at end of file diff --git a/I650/sw/regional/load_id_card.dck b/I650/sw/regional/load_id_card.dck new file mode 100644 index 000000000..5aa191817 --- /dev/null +++ b/I650/sw/regional/load_id_card.dck @@ -0,0 +1 @@ +G0195119026919521951691954195369195619556919581957691960195910800119653500011966 Load Identification Card diff --git a/I650/sw/regional/print_five_field_ctrl_cards.txt b/I650/sw/regional/print_five_field_ctrl_cards.txt new file mode 100644 index 000000000..585d2cb21 --- /dev/null +++ b/I650/sw/regional/print_five_field_ctrl_cards.txt @@ -0,0 +1,18 @@ + + + + regional assembler sample control cards + + + + this is a five-field card because the '+' in column 3 + + stores 0 at word 0, so no worries. allow comments past col 80 + + + + regions are defined by letter a-h plus digit 0-9 + + first region is empty (00) used to define absolute addresses + + region start address and len is given + + regions should be stored on addr 1000 onwards, on ascending order + + + + region start + + Addr name len addr comment + ? 1000a020000000 1000 a0 2000 0000 region for all drum absolute address + ? 1001c001000900 1001 c0 0100 0900 region for program code + ? 1002d000100990 1002 d0 0010 0990 region for program data (variables) + ? 1003h000100977 1003 h0 0010 0977 punch area + ? 1004h100110401 1004 h1 0011 0401 read area diff --git a/I650/sw/regional/print_five_field_src.txt b/I650/sw/regional/print_five_field_src.txt new file mode 100644 index 000000000..3deb30bb4 --- /dev/null +++ b/I650/sw/regional/print_five_field_src.txt @@ -0,0 +1,73 @@ + c0000070h10010c00001 c0.0000 rd h1.0010 read card at addr 0401, jmp to 0410 if load card + c0000165h10000c00002 ral h1.0000 ral 0401 addr word 1 + c0000220h00000c00003 stl h0.0000 stl 0777 addr word 1 for punch out + c0000365h10001c00004 ral h1.0001 ral 0402 word 1 contents + c0000420h00001c00005 stl h0.0001 stl 0778 word 1 for punch + c0000571h00000c00006 pch h0.0000 punch 0777 + c0000665h10002c00007 ral h1.0002 ral 0403 addr word 2 + c0000720h00000c00008 stl h0.0000 stl 0777 addr word 2 for punch out + c0000865h10003c00009 ral h1.0003 ral 0404 word 2 contents + c0000920h00001c00010 stl h0.0001 stl 0778 word 2 for punch + c0001071h00000c00011 pch h0.0000 punch 0777 + c0001165h10004c00012 ral h1.0004 ral 0405 addr word 3 + c0001220h00000c00013 stl h0.0000 stl 0777 addr word 3 for punch out + c0001365h10005c00014 ral h1.0005 ral 0406 word 3 contents + c0001420h00001c00015 stl h0.0001 stl 0778 word 3 for punch + c0001571h00000c00016 pch h0.0000 punch 0777 + c0001665h10006c00017 ral h1.0006 ral 0407 addr word 4 + c0001720h00000c00018 stl h0.0000 stl 0777 addr word 4 for punch out + c0001865h10007c00019 ral h1.0007 ral 0408 word 4 contents + c0001920h00001c00020 stl h0.0001 stl 0778 word 4 for punch + c0002071h00000c00021 pch h0.0000 punch 0777 + c0002165h10008c00022 ral h1.0008 ral 0408 addr word 5 + c0002220h00000c00023 stl h0.0000 stl 0777 addr word 5 for punch out + c0002365h10009c00024 ral h1.0009 ral 0409 word 5 contents + c0002420h00001c00025 stl h0.0001 stl 0778 word 5 for punch + c0002571h00000c00000 pch h0.0000 c0.0000 punch 0777 goto start + d0 0 variables for program + h1 000a00000a00000 initialize punch area + h1 200a00000a00000 initialize punch area + h1 300a00000a00000 initialize punch area + h1 400a00000a00000 initialize punch area + h1 500a00000a00000 initialize punch area + h1 600a00000a00000 initialize punch area + h1 700a00000a00000 initialize punch area + h1 800a00000a00000 initialize punch area + h1 900a00000a00000 initialize punch area + h1 1000a00000c00000 nop 0000 c0.0000 jmp back to read next card if this card is a load card (thus ignore reads cards) + i0 end of program + + RRaaaaOOrrAAAArraaaa comment + + RRaaaa = regional addr for location + OO = opcode + rrAAAA = regional addr for DA + RRaaaa = regional addr for IA + + rr is A0-H9 and mst match with a control card + + +regional assembly sample program + +prints contents of input deck (in five-filed card format) +load cards are skiped + +regional formatted source code card are indetified because the 'a'..'i' char in col 11 +allow comments past col 31 + +this program needs the following regions, defined by control cards + +region start +Addr name len addr comment +1000 a0 2000 0000 region for all drum absolute address +1001 c0 0100 0900 region for program code +1002 d0 0010 0990 region for program data (variables) +1003 h0 0010 0977 punch area +1004 h1 0010 0401 read area + +program starts at c0.0000 (gives absolute address 0900) +no mnemonics! it is not a symbolic assembler! + +i0 marks the end of source program. assembler stops with (stop 0000 0500) +put next deck on read hopper (mount deck file on cdr1), and press start to +assemble it (sim> go) \ No newline at end of file diff --git a/I650/sw/regional/punch_drum_a_to_b.dck b/I650/sw/regional/punch_drum_a_to_b.dck new file mode 100644 index 000000000..5f51371ef --- /dev/null +++ b/I650/sw/regional/punch_drum_a_to_b.dck @@ -0,0 +1,18 @@ + + 1910678000191119116919461912191235000419131913221910191419143500021943 deck 033.02 punch drum from a to b + + 1943608003191519153500041916191615194719171917101948800319182419281919 + + 1919211927194519202419301921192121192919451922241932192319232119311945 this routine punches words from drum sequential from a to b on five-field format + + 1924241934192519252119331945192624193619441944211935193719377119271938 to operatoe this routine + + 1938111910193919394619401941194010800119421942101949800319410100000000 1. set 8000 to 70 1901 xxxx + + 1945108002800319466900000000194700000100021948690000191819490000009992 2. put load-identification card in front and load deck 033.01 + + 190+0100001910 3. on halt, set 8000 to 00 aaaa bbbb + 4. press start + + + + + + + + + + \ No newline at end of file diff --git a/I650/sw/regional/punch_eighths_drum.dck b/I650/sw/regional/punch_eighths_drum.dck new file mode 100644 index 000000000..211f4f7f0 --- /dev/null +++ b/I650/sw/regional/punch_eighths_drum.dck @@ -0,0 +1,8 @@ + ? 0997018000800009126980030913091323099109140914168001091509151509900916 deck 033.01 punch b eighths of the drum + ? 0916100992800209172409780918091822097709190919158003800209202409800921 + ? 0921220979091909232409820924092422098109190926240984092709272209830919 this routine punches b eigh of the drum in such a fashion that the list is + ? 0929240986093009302209850931093710800109380938350008093909394409460940 representative that the list is representative of drum layout. b may vary + ? 0940650991094109411609940942094245094309970943200991094409446509960945 from 1 to 8. punching starts with contents of a. + ? 0945150995091609466509950916099069000009170992000050000309930001990012 to operate this routine + ? 0994000000000109960002000000093171097709320932160993093309332009950934 1. set 8000 to 70 1901 xxxx 2. put load-identification card in front and load deck 033.01 + ? 093430000409360936608002093709116580000912091?0100000911 3. on halt, set 8000 to 00 a b 4. press start diff --git a/I650/sw/regional/ra.dck b/I650/sw/regional/ra.dck new file mode 100644 index 000000000..70778efe0 --- /dev/null +++ b/I650/sw/regional/ra.dck @@ -0,0 +1,30 @@ + + 0500650807050105013500010502050220081705030503200818050405042108190505 deck 033.06 + + 0505650803050605062005590508050870040105090509650401051005103500020511 + + 0511210816051205123000010513051311080705140514460515061505156508170516 regional assembly routine + + 0516160816051705174505800518051865081805190519160401052005204505210525 + + 0521460522064105222408180523052365080205240524210819052805256508190526 + + 0526150806052705272008190528052865080805290529690401053005308410008002 + + 0531698003053205322308110533053365080905340534690402053005366980030537 + + 0537230812053805386508100539053969040305300541698003054205422308130543 + + 0543650812054405443500040545054515040205460546698003054705472208210548 + + 0548650403054905493000040550055015081305510551698003055205522308220553 + + 0553650811055405543500040555055515040105560556150819055705576980030558 + + 0558220820055905592407770560056065055905610561150806056205626905700563 + + 0563220570056405646504050565056546056605680566660821056705671608220642 + + 0568650821056905691508220642057020077805710571650570057205721608040573 + + 0573450574057705741508050575057569055905760576220559050805777107770578 + + 0578650803057905792005590508058024081705810581690401058205822408180583 + + 0583650559058405842108190585058516080305860586450587052805871608020588 + + 0588450589059305891608020590059045059105970591160802059205924506050601 + + 0593650801059405941008000595059521077905960596200780059905976508010598 + + 0598100800059905992107810600060020078206030601650801060206021008000603 + + 0603210783060406042007840607060565080106060606100800060706072107850608 + + 0608200786060906097107770610061065080306110611200559052806156505590616 + + 0616160803061706174506180641061816080206190619450620062406201608020621 + + 0621450622062806221608020623062345063606320624650801062506251008000626 + + 0626210779062706272007800630062865080106290629100800063006302107810631 + + 0631200782063406326508010633063310080006340634210783063506352007840638 + + 0636650801063706371008000638063821078506390639200786064006407107770641 + + 0641010000050006421504040570080000196000000801999999999908020000020000 + + 0803240777056008042007860571080520078705710806000001000008070000000009 + + 080865100005310809651000053608106510000541 \ No newline at end of file diff --git a/I650/sw/regional/ra_starter_card.dck b/I650/sw/regional/ra_starter_card.dck new file mode 100644 index 000000000..8693cea02 --- /dev/null +++ b/I650/sw/regional/ra_starter_card.dck @@ -0,0 +1 @@ + ? 050?6508070501 regional assembler starter card diff --git a/I650/sw/run_fds.ini b/I650/sw/run_fds.ini new file mode 100644 index 000000000..5dc1a85b4 --- /dev/null +++ b/I650/sw/run_fds.ini @@ -0,0 +1,33 @@ + +; set console -n log=log.txt +; set debug -n debug.txt +; set debug stdout +; set cpu debug=cmd;data;detail + +; params: %1 FDS program deck +; %2 input card deck (if empty, do not attach input card) + +set cpu 2k + +; prepare input deck + +carddeck -q join fds/load_card.dck fds/5440.2009_INTERPRETIVE_FDS.crd %1 %2 AS deck_in.dck + +; Now put input deck in reader + +att cdr1 -q deck_in.dck +set cdr1 wiring=fds + +att cdp1 -n -q deck_out.dck +set cdp1 echo, print, wiring=8word +att cdp0 -n -q print.txt + +; uncomment this debug to get trace of how assembled source deck is executed +; set debug -n debug.txt + +d csw 70 1901 9999 +d ar 8000 +go + +:end + diff --git a/I650/sw/run_fortransit.ini b/I650/sw/run_fortransit.ini index 20218c79f..512003e01 100644 --- a/I650/sw/run_fortransit.ini +++ b/I650/sw/run_fortransit.ini @@ -25,6 +25,7 @@ echo *** echo *** Load FORTRANSIT translator deck into drum echo *** +set cdr1 wiring=8word att cdr1 -q -l fortransit/fortransit_translator.dck d csw 70 1951 9999 @@ -56,7 +57,7 @@ d ar 8000 go ; check if programed stop because an error is detected -if not prop=01 goto translate_ok1 +if not prop==01 goto translate_ok1; echo echo *** (translation error code in Address Register AR) @@ -74,7 +75,7 @@ goto end :translate_ok1 ; check if programed stop because normal termination -if prop=70 if ar=1951 goto translate_ok2 +if ((PROP==70) && (AR==1951)) goto translate_ok2; goto end :translate_ok2 @@ -112,7 +113,8 @@ d ar 8000 go ; check if programed stop because an error is detected -if not prop=01 if not ar=1234 goto compile_ok1 + +if not ar==1234 goto compile_ok1; echo echo *** (compilation error code in Upper ACC) @@ -124,7 +126,7 @@ goto end :compile_ok1 ; check if programed stop because normal termination -if prop=70 if ar=1951 goto compile_ok2 +if ((PROP==70) && (AR==1951)) goto compile_ok2; goto end :compile_ok2 @@ -160,7 +162,7 @@ echo *** echo *** Run SOAP assembler echo *** -att cdr1 deck_soap.dck +att cdr1 -q deck_soap.dck set cdr1 wiring=soap att cdp1 -n -q deck_out.dck @@ -170,7 +172,7 @@ d ar 1000 go ; check if programed stop because an error is detected -if not prop=01 goto assemble_ok1 +if not prop==01 goto assemble_ok1; echo echo *** (assembling error code in AR) @@ -182,7 +184,7 @@ goto end :assemble_ok1 ; check if programed stop because normal termination -if prop=70 if ar=1951 goto assemble_ok2 +if ((PROP==70) && (AR==1951)) goto assemble_ok2; goto end :assemble_ok2 @@ -205,7 +207,7 @@ echo *** ; soap source code read from card. set cdr1 wiring=8WORD -att cdr1 -l deck_out.dck +att cdr1 -q -l deck_out.dck d csw 7019519999 d ar 8000 @@ -220,8 +222,8 @@ att cdr1 -q %2 set cdr1 wiring=fortransit :run1 -if "%3" != "" att cdp1 -n -q %3 -if "%3" == "" att cdp1 -n -q deck_out.dck +if "%3" != "" att cdp1 -n -q %3; +if "%3" == "" att cdp1 -n -q deck_out.dck; set cdp1 echo, print, wiring=fortransit ; Now execute the loaded program object deck diff --git a/I650/sw/run_is.ini b/I650/sw/run_is.ini index dac2b32d7..bf36374d4 100644 --- a/I650/sw/run_is.ini +++ b/I650/sw/run_is.ini @@ -13,9 +13,10 @@ set cpu 2k echo *** -echo *** Load is main deck into drum +echo *** Load IS main deck into drum echo *** +set cdr1 wiring=8word att cdr1 -q bell/is.dck d csw 7019519999 @@ -35,7 +36,7 @@ set cdp1 echo, print, wiring=is att cdp0 -n -q print.txt echo *** -echo *** Read and run is program +echo *** Read and run IS program echo *** d csw 7019511333 diff --git a/I650/sw/run_it.ini b/I650/sw/run_it.ini index 3b654f0ba..3bce2fa18 100644 --- a/I650/sw/run_it.ini +++ b/I650/sw/run_it.ini @@ -23,6 +23,7 @@ echo *** echo *** Load IT compiler deck into drum echo *** +set cdr1 wiring=8word att cdr1 -q -l it/it_compiler.dck d csw 70 1951 3000 @@ -47,7 +48,7 @@ go ; check if compilation ok -if accup=0 goto compile_ok +if accup==0 goto compile_ok echo echo *** (compilation error code in Upper ACC) @@ -75,7 +76,7 @@ carddeck -q join deck_res.dck it/it_reservation_p1.dck deck_soap.dck as deck_pit echo *** -echo *** Load soap deck into drum +echo *** Load SOAP deck into drum echo *** att cdr1 -q -l it/soapII.dck @@ -85,7 +86,7 @@ d ar 8000 go echo *** -echo *** Apply IT modifications to soap deck +echo *** Apply IT modifications to SOAP deck echo *** att cdr1 -q -l it/soapII_patch.dck diff --git a/I650/sw/run_ra.ini b/I650/sw/run_ra.ini new file mode 100644 index 000000000..9d003b464 --- /dev/null +++ b/I650/sw/run_ra.ini @@ -0,0 +1,78 @@ + +; set console -n log=log.txt +; set debug -n debug.txt +; set debug stdout +; set cpu debug=cmd;data;detail + +; params: %1 control cards for regional program +; %2 regional assembly source card deck +; %3 start address to run program (If empty, program not run) +; %4 input card deck (if empty, do not attach input card) + +set cpu 2k + +; prepare input deck + +carddeck -q join regional/load_id_card.dck regional/ra.dck %1 regional/ra_starter_card.dck %2 AS deck_in.dck + +; Now put input deck in reader + +att cdr1 -q deck_in.dck +set cdr1 wiring=ra + +att cdp1 -n -q deck_out.dck +set cdp1 echo, print, wiring=ra +att cdp0 -n -q print.txt + +echo *** +echo *** Regional Assembler source deck +echo *** + +; uncomment this debug to get trace of how source deck is assembled +; set debug -n debug.txt + +d csw 70 1901 0000 +d ar 8000 +go + +; this generates deck_out.dck as program in five-field card format + +if "%3" == "" goto end + +; Load five-field card deck into drum + +carddeck -q join regional/load_id_card.dck deck_out.dck AS deck_in.dck + +; Now put input deck in reader + +att cdr1 -q deck_in.dck +set cdr1 wiring=ra + +att cdp1 -n -q deck_out.dck +set cdp1 echo, print, wiring=ra +att cdp0 -n -q print.txt + +d csw 70 1901 0000 +d ar 8000 +go + +echo *** +echo *** Run Assembled program +echo *** + +; attach input deck +if "%4" == "" goto run1 + +att cdr1 -q %4 + +; Now execute the loaded deck +:run1 + +; uncomment this debug to get trace of how assembled source deck is executed +; set debug -n debug.txt + +d ar %3 +go + +:end + diff --git a/I650/sw/run_soap.ini b/I650/sw/run_soap.ini index d0ae0fd1b..26dcb93b9 100644 --- a/I650/sw/run_soap.ini +++ b/I650/sw/run_soap.ini @@ -13,10 +13,11 @@ set cpu 2k ; Load soap deck into drum (1 word per card format), but does not execute it +set cdr1 wiring=8word att cdr1 -q -l soap/soapII.dck echo *** -echo *** Load soap deck into drum +echo *** Load SOAP deck into drum echo *** d csw 7019519999 diff --git a/I650/sw/run_soap4.ini b/I650/sw/run_soap4.ini new file mode 100644 index 000000000..de456e4cd --- /dev/null +++ b/I650/sw/run_soap4.ini @@ -0,0 +1,117 @@ + +; set console -n log=log.txt +; set debug -n debug.txt +; set debug stdout +set cpu debug=cmd;data;detail +set mt debug=cmd;data;detail;exp + + +; params: %1 source card deck to assemble with soap +; %2 start address to run program (If empty, program not run) +; %3 input card deck (if empty, do not attach input card) +; %4 input card deck wiring (if empty, uses 8WORD) +; %5 output card deck wiring (if empty, uses 8WORD) + +set cpu 4k +set cpu soapmne + +; if TAP pseudo-op is to be used in SOAP source program, this section must be uncommented +; start of TAP pseudocode enable section + +set cpu CntrlUnit +set cpu StorageUnit + +at mt2 soaplib.tap + +; end of TAP pseudocode enable section + +; Load soap deck into drum (1 word per card format), but does not execute it + +set cdr1 wiring=8word +att cdr1 -q -l soap/soap4.dck + +echo *** +echo *** Load SOAP4 deck into drum +echo *** + +d csw 7019519999 +d ar 8000 +go + +; Now put source cards in reader and start soap assembler + +att cdr1 -q %1 +set cdr1 wiring=soapa + +att cdp1 -n -q deck_out.dck +set cdp1 echo, print, wiring=soapa +att cdp0 -n -q print.txt + +echo *** +echo *** Assemble source deck +echo *** + +; uncomment this debug to get trace of how source deck is assembled +; set debug -n debug.txt + +d ar 1000 +go + +; separate 5 words per card deck if any generated +carddeck -q split 5cd cdp1 deck_out.dck deck_out_5cd.dck + +; discard availability card generated if any +carddeck -q split pat deck_out.dck deck_out.dck nul + + +if "%2" == "" goto end + +; 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 -q -l deck_out.dck + +att cdp1 -n -q deck_out_run.dck +set cdp1 echo, print, wiring=8WORD + + +echo *** +echo *** Read assembled program deck +echo *** + +d csw 7019519999 +d ar 8000 +go + +; attach input deck +if "%3" == "" goto run1 + +if "%4" == "" goto run2 +set cdr1 wiring=%4 +:run2 + +if "%5" == "" goto run3 +set cdp1 wiring=%5 +:run3 + +att cdr1 -q %3 + +; Now execute the loaded deck +:run1 + +echo *** +echo *** Run assembled program +echo *** + +; uncomment this debug to get trace of how assembled source deck is executed +; set debug -n debug.txt + +d ar %2 +go + +det all + +:end + diff --git a/I650/sw/run_supersoap.ini b/I650/sw/run_supersoap.ini new file mode 100644 index 000000000..8a4502fac --- /dev/null +++ b/I650/sw/run_supersoap.ini @@ -0,0 +1,134 @@ + +; set console -n log=log.txt +; set debug -n debug.txt +; set debug stdout +; set cpu debug=cmd;data;detail +; set mt debug=cmd;data;detail;exp +; set dsk debug=cmd;data;detail;exp + + +; params: %1 source card deck to assemble with soap +; %2 start address to run program (If empty, program not run) +; %3 input card deck (if empty, do not attach input card) +; %4 input card deck wiring (if empty, uses 8WORD) +; %5 output card deck wiring (if empty, uses 8WORD) + +; Assembles using SuperSoap card deck. Do not need ramac if only outputs 1-word +; format cards, and does not uses the following pseudo operatios: +; CDD, DSK, TAP, DEK, SKP, FIL, DON, FIV, PLR, PAL. PDL, LAT, SAT, LST, SST + +set cpu 2k +set cpu soapmne + +set cpu CntrlUnit +set cpu StorageUnit + +; SuperSoap needed the Table lookup feature installed (to provide TLE opcode) +set cpu tle + +at mt2 soaplib.tap +at dsk0 ramac0.dsk + +; Load soap deck into drum (1 word per card format), but does not execute it + +set cdr1 wiring=8word +att cdr1 -q -l supersoap/ssoap_main.dck + +echo *** +echo *** Load SuperSoap main deck into drum +echo *** + +d csw 7019518282 +d ar 8000 +go + +; Now put source cards in reader and start soap assembler + +att cdr1 -q %1 +set cdr1 wiring=supersoap + +att cdp1 -n -q deck_out.dck +set cdp1 echo, print, wiring=supersoap +att cdp0 -n -q print.txt + +echo *** +echo *** Assemble source deck +echo *** + +; uncomment this debug to get trace of how source deck is assembled +; set debug -n debug.txt + +; use transfer card for main program (line 1552 of supersoap listing), +; RD1 1999 1998 8004 +70 1999 1998 +; we store in distrib (addr 8001) and exec from it +dep dist 70 1999 1998 +dep ar 8001 + +go + +if ar==9898 goto noasmerr + +echo *** Error in last read card: +carddeck -q echolast 1 cdr1 +echo *** Error in PR register: +ex pr + +goto end + +:noasmerr + +; separate 5 words per card deck if any generated +carddeck -q split 5cd cdp1 deck_out.dck deck_out_5cd.dck + +; discard availability card generated if any +carddeck -q split pat deck_out.dck deck_out.dck deck_out_pat.dck + +if "%2" == "" goto end + +; 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 -q -l deck_out.dck + +att cdp1 -n -q deck_out_run.dck +set cdp1 echo, print, wiring=8WORD + + +echo *** +echo *** Read assembled program deck +echo *** + +d csw 7019519999 +d ar 8000 +go + +; attach input deck +if "%3" == "" goto run1 + +if "%4" == "" goto run2 +set cdr1 wiring=%4 +:run2 + +if "%5" == "" goto run3 +set cdp1 wiring=%5 +:run3 + +att cdr1 -q %3 + +; Now execute the loaded deck +:run1 + +echo *** +echo *** Run assembled program +echo *** + +; uncomment this debug to get trace of how assembled source deck is executed +; set debug -n debug.txt + +d ar %2 +go + +:end + diff --git a/I650/sw/run_supersoap_ramac.ini b/I650/sw/run_supersoap_ramac.ini new file mode 100644 index 000000000..82371fdb3 --- /dev/null +++ b/I650/sw/run_supersoap_ramac.ini @@ -0,0 +1,119 @@ + +; set console -n log=log.txt +; set debug -n debug.txt +; set debug stdout +; set cpu debug=cmd;data;detail +; set mt debug=cmd;data;detail;exp +; set dsk debug=cmd;data;detail;exp + + +; params: %1 source card deck to assemble with soap +; %2 start address to run program (If empty, program not run) +; %3 input card deck (if empty, do not attach input card) +; %4 input card deck wiring (if empty, uses 8WORD) +; %5 output card deck wiring (if empty, uses 8WORD) + +; Assembles using SuperSoap stored in ramac. Needs ramac disk with supersoap already +; built in it. Allows the use of following pseudo operations (that uses ramac): +; CDD, DSK, TAP, DEK, SKP, FIL, DON, FIV, PLR, PAL. PDL, LAT, SAT, LST, SST + +set cpu 2k +set cpu soapmne + +set cpu CntrlUnit +set cpu StorageUnit + +; SuperSoap needed the Table lookup feature installed (to provide TLE opcode) +set cpu tle + +at mt2 soaplib.tap +at dsk0 ramac0.dsk + +; prepare input deck: supersoap calling card followe by assembly deck + +carddeck -q join supersoap/ssoap_calling_card.dck %1 as deck_in.dck +att cdr1 -q -l deck_in.dck +set cdr1 wiring=supersoap + +att cdp1 -n -q deck_out.dck +set cdp1 echo, print, wiring=supersoap +att cdp0 -n -q print.txt + +echo *** +echo *** Load SuperSoap from RAMAC and assemble source deck +echo *** + +; uncomment this debug to get trace of how source deck is assembled +; set debug -n debug.txt + +d csw 7019518282 +d ar 8000 + +go + +if ar==9898 goto noasmerr + +echo *** Error in last read card: +carddeck -q echolast 1 cdr1 +echo *** Error in PR register: +ex pr + +goto end + +:noasmerr + +; separate 5 words per card deck if any generated +carddeck -q split 5cd cdp1 deck_out.dck deck_out_5cd.dck + +; discard availability card generated if any +carddeck -q split pat deck_out.dck deck_out.dck deck_out_pat.dck + +if "%2" == "" goto end + +; 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 -q -l deck_out.dck + +att cdp1 -n -q deck_out_run.dck +set cdp1 echo, print, wiring=8WORD + + +echo *** +echo *** Read assembled program deck +echo *** + +d csw 7019519999 +d ar 8000 +go + +; attach input deck +if "%3" == "" goto run1 + +if "%4" == "" goto run2 +set cdr1 wiring=%4 +:run2 + +if "%5" == "" goto run3 +set cdp1 wiring=%5 +:run3 + +att cdr1 -q %3 + +; Now execute the loaded deck +:run1 + +echo *** +echo *** Run assembled program +echo *** + +; uncomment this debug to get trace of how assembled source deck is executed +; set debug -n debug.txt + +d ar %2 +go + +:end + diff --git a/I650/sw/soap/00_readme.txt b/I650/sw/soap/00_readme.txt index 8296a0fc8..c048ba116 100644 --- a/I650/sw/soap/00_readme.txt +++ b/I650/sw/soap/00_readme.txt @@ -1,5 +1,6 @@ Restoration comments May/2018 +By Roberto Sancho SOAP II From Bitsavers Manual 24-4000-0_SOAPII.pdf diff --git a/I650/sw/soap/soap4.dck b/I650/sw/soap/soap4.dck new file mode 100644 index 000000000..9b91f8f7e --- /dev/null +++ b/I650/sw/soap/soap4.dck @@ -0,0 +1,1804 @@ +6I1954195C 0000240650800?2406530656 subr3stdexitxdownr 102-stor exit +6I1954195C 0000240656800?6019540659 downrrau 1954 103- +6I1954195C 0000240659800?2319610564 siaxxxx1 104- +6I1954195C 0000240564800?6580010571 ral 8001 105-is op blnk +6I1954195C 0000240571800?4505740575 nze illop 106- +6I1954195C 0000240574800?3500020581 slt 0002 107- +6I1954195C 0000240581800?4405850586 nzu num 108- +6I1954195C 0000240585800?6080010141 rau 8001 109- +6I1954195C 0000240141800?8416500655 tluc0001 110-search +6I1954195C 0000240655800?1506588002 alo1 8002 111-symbolic +6I1954195C 0000240753800?1119610565 nxt supxxxx1 113- +6I1954195C 0000240565800?3000040625 srt 0004 114-is symb op +6I1954195C 0000240625800?4405750580 nzuillop 115-legal +6I1954195C 0000240580800?3500010587 slt 0001 116- +6I1954195C 0000240587800?4402410142 nzu norm 117- +6I1954195C 0000240241800?1100940049 sup4ixxx 118-test pseu +6I1954195C 0000240049800?4408530654 nzurpq 119- +6I1954195C 0000240654800?3500038003 slt 0003 8003 120-pseudo op +6I1954195C 0000240142800?2019830636 norm stlp0007 122-store num +6I1954195C 0000240636800?1680010143 slo 8001 123-op and get +6I1954195C 0000240143800?8407000755 tlun0001 124-optimizing +6I1954195C 0000240755800?1507588002 alo5 8002 125-data +6I1954195C 0000240651800?2407540653 nxtinstdoptimexitx 127- +6I1954195C 0000240586800?6080010193 num rau 8001 129-op code in +6I1954195C 0000240193800?6900960099 ldd compr 130-dbl digit +6I1954195C 0000240096800?6019830637 raup0007 131- +6I1954195C 0000240637800?3000020142 srt 0002norm 132-to 1 digit +6I1954195C 0000240853800?3500010759 rpq slt 0001 134-negativ op +6I1954195C 0000240759800?2019830686 stlp0007 135-add cntrol +6I1954195C 0000240686800?1680020095 slo 8002 136-8 to pch +6I1954195C 0000240095800?3500040855 slt 0004 137-minus and +6I1954195C 0000240855800?1519860291 alop0010 138-get proper +6I1954195C 0000240291800?3500010047 slt 0001 139-entry in +6I1954195C 0000240047800?1680021105 slo 8002 140-0ptimizing +6I1954195C 0000241105800?1508580563 aloh8xxx 141-table +6I1954195C 0000240563800?3000010569 srt 0001aup 142- +6I1954195C 0000240575800?6519860341 illopralp0010 144-illegal +6I1954195C 0000240341800?1501440569 alo8ixxxaup 145-op pch +6I1954195C 0000240569800?1005720577 aup aup2 146-blank op +6I1954195C 0000240577800?2019868003 stlp0010 8003 147- +6I1954195C 0000240658800?6000000753 1 rau 0000nxt 150-constants +6I1954195C 0000240572800?6907030651 2 lddn0004nxtin 151- +6I1954195C 0000240758800?6900000651 5 ldd 0000nxtin 152- +6I1954195C 0000240754800?0100000754 optim 01 0000optim 153- +6I1954195C 0000240850800?4710031003 subr4bov 159- +6I1954195C 0000241003800?2407560859 stdexitz 160- +6I1954195C 0000240859800?2119610614 stuxxxx1 161-store addr +6I1954195C 0000240614800?3000080583 srt 0008 162-is c5 +6I1954195C 0000240583800?2119620615 stuxxxx2 163-save c5 +6I1954195C 0000240615800?6080020573 rau 8002 164-are low 4 +6I1954195C 0000240573800?1005760631 aup90xxxloop 165- +6I1954195C 0000240631800?1005590613 loop auph1 166- +6I1954195C 0000240613800?4705660568 bov sym 167- +6I1954195C 0000240566800?3500020623 slt 0002 168- +6I1954195C 0000240623800?4406310578 nzuloop 169- +6I1954195C 0000240578800?6519620567 ralxxxx2 170-low 4 num +6I1954195C 0000240567800?4505700756 nze exitz 171- +6I1954195C 0000240570800?1605760681 slo90xxx 172-is c5 +6I1954195C 0000240681800?4605840568 bmi sym 173-alphabetic +6I1954195C 0000240584800?6505501155 ral1ixxx 174-regional +6I1954195C 0000241155800?1019610665 aupxxxx1aex 175- +6I1954195C 0000240665800?1507560561 aex aloexitz 176- +6I1954195C 0000240561800?1680028001 slo 8002 8001 177- +6I1954195C 0000240568800?6019610765 sym rauxxxx1 178-hed symbol +6I1954195C 0000240765800?6906180621 ldd sub15 179- +6I1954195C 0000240618800?2106220675 stuhsymb 180- +6I1954195C 0000240675800?3000080243 srt 0008 181- +6I1954195C 0000240243800?4400970048 nzu lit 182- +6I1954195C 0000240097800?6080011053 rau 8001 183- +6I1954195C 0000241053800?1508560665 alo2ixxxaex 184- +6I1954195C 0000240048800?6080011355 lit rau 8001 185- +6I1954195C 0000241355800?1505520665 alo100ixaex 186- +6I1954195C 0000240622800?0100000622 hsymb 01 0000hsymb 187-eraseable +6I1954195C 0000240621800?2406240627 sub15stdexity 193-save exit +6I1954195C 0000240627800?6980030634 ldd 8003 194-1s c1 +6I1954195C 0000240634800?3500081103 slt 0008 195-blank +6I1954195C 0000241103800?4406570908 nzudh 196- +6I1954195C 0000240908800?6080010865 rau 8001 197-head +6I1954195C 0000240865800?1006680624 aup0000hexity 198- +6I1954195C 0000240657800?6080010624 dh rau 8001exity 199-dont head +6I1954195C 0000240900800?2407560909 subr5stdexitz 205-store exit +6I1954195C 0000240909800?2019610664 stlxxxx1 206-store a +6I1954195C 0000240664800?3500040775 slt 0004 207- +6I1954195C 0000240775800?1680020633 slo 8002 208- +6I1954195C 0000240633800?8412001405 tlur0001 209-tlu +6I1954195C 0000241405800?1510088002 aloget 8002 210-range +6I1954195C 0000240677800?3500060391 x slt 0006 212- +6I1954195C 0000240391800?3000061455 srt 0006 213- +6I1954195C 0000241455800?1007560661 aupexitz 214- +6I1954195C 0000240661800?1519611015 aloxxxx1 215- +6I1954195C 0000241015800?1180038001 sup 8003 8001 216- +6I1954195C 0000241008800?6000000677 get rau 0000x 217- +6I1954195C 0000241200800?0039990000 r0001 00 3999 0000 218-range +6I1954195C 0000241201800?0079990003 r0002 00 7999 0003 219-table +6I1954195C 0000241202800?0080030001 r0003 00 8003 0001 220- +6I1954195C 0000241203800?0080040979 r0004 00 8004 0979 221- +6I1954195C 0000241204800?0080070001 r0005 00 8007 0001 222- +6I1954195C 0000241205800?0089990979 r0006 00 8999 0979 223- +6I1954195C 0000241206800?0091990002 r0007 00 9199 0002 224- +6I1954195C 0000241207800?9999990003 r0008 99 9999 0003 225- +6I1954195C 0000240756800?0100000756 exitz 01 0000exitz 227- +6I1954195C 0000241050800?2407561009 subr6stdexitz 234-store exit +6I1954195C 0000241009800?2107640617 stus 235-store symb +6I1954195C 0000240617800?6906200673 lddswof 236-set switch +6I1954195C 0000240673800?2406260579 stdsw 237-off +6I1954195C 0000240579800?6580030687 ral 8003 238-scramnle +6I1954195C 0000240687800?1405900851 divrf 239-symbol +6I1954195C 0000240851800?6580031059 ral 8003 240-giving lo +6I1954195C 0000241059800?3500040619 slt 0004 241- +6I1954195C 0000240619800?1506720777 alol1 sli 242- +6I1954195C 0000240777800?2007818001 sli stlli 8001 243-init li +6I1954195C 0000240145800?4500980149 a nze und 245-li zero +6I1954195C 0000240098800?1607640669 slos 246-is cont of +6I1954195C 0000240669800?4506260773 nzesw def 247-li symb +6I1954195C 0000240626800?6507810635 sw ralli off 248-is li +6I1954195C 0000240635800?1605880293 off slolmax 249-maximum +6I1954195C 0000240293800?4501460147 nze max 250- +6I1954195C 0000240146800?1501990777 alolmp1 sli 251-step li +6I1954195C 0000241100800?1505540777 on alo1dxxxsli 252-step li +6I1954195C 0000240147800?6911501153 max lddswon 253-set +6I1954195C 0000241153800?2406260629 stdsw 254-switch on +6I1954195C 0000240629800?6506720777 rall1 sli 255-zero li +6I1954195C 0000240773800?6507810685 def ralli 257-defined +6I1954195C 0000240685800?6906380441 lddasu subr8 258-get +6I1954195C 0000240638800?1007640756 asu aups exitz 259-equivalent +6I1954195C 0000240149800?6507560761 und ralexitz 261-if symbol +6I1954195C 0000240761800?9508640616 bd5l 262-is undefnd +6I1954195C 0000240616800?9607690671 bd6d i 263-test if it +6I1954195C 0000240864800?6919600663 l ldd 1960 264-has been +6I1954195C 0000240663800?9906670768 bd9 alo1 265-previously +6I1954195C 0000240667800?6919570660 ldd 1957stequ 266-establshed +6I1954195C 0000240769800?6919600763 d ldd 1960 267-and if so +6I1954195C 0000240763800?9806660768 bd8 alo1 268-store it +6I1954195C 0000240666800?6919580660 ldd 1958stequ 269-as equiv +6I1954195C 0000240671800?6919600863 i ldd 1960 270- +6I1954195C 0000240863800?9707660768 bd7 alo1 271- +6I1954195C 0000240766800?6919590660 ldd 1959stequ 272-if still +6I1954195C 0000240660800?2410130866 stequstdequivralli 273-undefined +6I1954195C 0000240768800?1505501505 alo1 alo1ixxx 274-then step +6I1954195C 0000241505800?2007561109 stlexitz 275-exit +6I1954195C 0000241109800?6505620767 ralsymct 276- +6I1954195C 0000240767800?1605501555 slo1ixxx 277-zero if +6I1954195C 0000241555800?2005621065 stlsymct 278-1000th +6I1954195C 0000241065800?4508660869 nzerallifull 279-symbol +6I1954195C 0000240866800?6507810785 ralliralli 281- +6I1954195C 0000240785800?1606880343 slolx 282- +6I1954195C 0000240343800?2001970638 stllsymbasu 283- +6I1954195C 0000240869800?6907720825 full lddset5+ 285-suspend +6I1954195C 0000240825800?2406280831 stdpchwd 286-5/cd punch +6I1954195C 0000240831800?6906840787 ldd4d888 287-1100 symbs +6I1954195C 0000240787800?2406400393 stdtrans 288-set contrl +6I1954195C 0000240393800?6901960249 lddinto1 289-to enter +6I1954195C 0000240249800?2406521605 stdintox 290-pass +6I1954195C 0000241605800?6919850788 lddp0009 291-routine +6I1954195C 0000240788800?2404910194 stdnhold 292-on next +6I1954195C 0000240194800?6906680771 ldd0000h 293-card read +6I1954195C 0000240771800?2406740866 stdhholdralli 294- +6I1954195C 0000240620800?6507810635 swof ralli off 296-constants +6I1954195C 0000241150800?6507811100 swon ralli on 297- +6I1954195C 0000240590800?0000001099 rf 00 0000 1099 298- +6I1954195C 0000240688800?6500000145 lx ral 0000a 299- +6I1954195C 0000240672800?6520000145 l1 rals0001a 300- +6I1954195C 0000240588800?6530990145 lmax rals1100a 301- +6I1954195C 0000240199800?6531000145 lmp1 rals1101a 302- +6I1954195C 0000240684800?0400008880 4d888 04 0000 8880 303- +6I1954195C 0000240196800?1502991353 into1alotorgpfirst 304- +6I1954195C 0000240764800?0100000764 s 01 0000s 305-eraseable +6I1954195C 0000241350800?0100001350 lo 01 0000lo 307- +6I1954195C 0000240781800?0100000781 li 01 0000li 308- +6I1954195C 0000240197800?0100000197 lsymb 01 0000lsymb 309- +6I1954195C 0000240562800?0100000562 symct 01 0000symct 310- +6I1954195C 0000240491800?0100000491 nhold 01 0000nhold 311- +6I1954195C 0000240674800?0100000674 hhold 01 0000hhold 312- +6I1954195C 0000240640800?0100000640 trans 01 0000trans 313- +6I1954195C 0000241400800?2407561159 subr7stdexitz 319-store exit +6I1954195C 0000241159800?6906621115 lddss 320- +6I1954195C 0000241115800?2219628001 sdaxxxx2 8001 321-store +6I1954195C 0000240591800?1180010247 a sup 8001 323- +6I1954195C 0000240247800?2019610964 stlxxxx1 324-save e +6I1954195C 0000240964800?3000040875 srt 0004 325- +6I1954195C 0000240875800?1408560867 div2ixxx 326-calculate +6I1954195C 0000240867800?3500040827 slt 0004 327-location +6I1954195C 0000240827800?1506300835 aloc1 328-of +6I1954195C 0000240835800?6908380641 lddc2 329-e +6I1954195C 0000240641800?2201950148 sdasel 330-and +6I1954195C 0000240148800?6909010854 lddc3 331-store +6I1954195C 0000240854800?2207570760 sdaser 332- +6I1954195C 0000240760800?2011650868 stlobee 333- +6I1954195C 0000240868800?1680010975 slo 8001 334- +6I1954195C 0000240975800?1519611165 aloxxxx1obee 335- +6I1954195C 0000241165800?6999860589 obee ldd 9986b 336- +6I1954195C 0000240589800?4407570244 b nzuser 337- +6I1954195C 0000240244800?3500040195 slt 0004sel 338- +6I1954195C 0000240662800?2199870591 ss stu 9987a 339-condtants +6I1954195C 0000240630800?6922000589 c1 ldd 2200b 340- +6I1954195C 0000240838800?2299850756 c2 sda 9985exitz 341- +6I1954195C 0000240901800?2399840756 c3 sia 9984exitz 342- +6I1954195C 0000240195800?0100000195 sel 01 0000sel 344- +6I1954195C 0000240757800?0100000757 ser 01 0000ser 345- +6I1954195C 0000240441800?2402940297 subr8stdexit 351-store exit +6I1954195C 0000240297800?6980031004 ldd 8003 352- +6I1954195C 0000241004800?2201971450 sdalsymb 353-store l +6I1954195C 0000241450800?6580010857 ral 8001 354- +6I1954195C 0000240857800?1408600821 div2dxxx 355- +6I1954195C 0000240821800?3500040881 slt 0004 356- +6I1954195C 0000240881800?1507848002 aloe1 8002 357- +6I1954195C 0000240678800?4410310582 tr nzu lh 359- +6I1954195C 0000241031800?6780010837 ram 8001lr 360-get e rh +6I1954195C 0000240582800?6780010639 lh ram 8001 361-get e lh +6I1954195C 0000240639800?3000040837 srt 0004lr 362- +6I1954195C 0000240837800?6980030344 lr ldd 8003 363- +6I1954195C 0000240344800?2310131016 siaequiv 364- +6I1954195C 0000241016800?6501970294 rallsymbexit 365- +6I1954195C 0000240784800?6922000678 e1 ldd 2200tr 367- +6I1954195C 0000240294800?0100000294 exit 01 0000exit 368-eraseable +6I1954195C 0000241013800?0100001013 equiv 01 0000equiv 369- +6I1954195C 0000241500800?2007561209 subr9stlexitz 374- +6I1954195C 0000241209800?6907621215 lddmask 375- +6I1954195C 0000241215800?2216400443 sdazzzz1 376- +6I1954195C 0000240443800?6902460349 lddal0c stor 377- +6I1954195C 0000240349800?2419611014 stor stdxxxx1 378- +6I1954195C 0000241014800?3000080683 srt 0008 379- +6I1954195C 0000240683800?6580030691 ral 8003 380-test char +6I1954195C 0000240691800?1605761081 slo90xxx 381-region +6I1954195C 0000241081800?4608340801 bmi 0801 382- +6I1954195C 0000240834800?3500041961 slt 0004xxxx1 383- +6I1954195C 0000241961800?1510648002 xxxx1aloc 8002 384- +6I1954195C 0000240245800?9003991550 nex bdoill 386-is reg cha +6I1954195C 0000241550800?1614031640 sloh9xxxzzzz1 387-defined +6I1954195C 0000241640800?1519591063 zzzz1alo 1959all 388- +6I1954195C 0000241063800?1605501805 all slo1ixxx 389- +6I1954195C 0000241805800?4603990756 bmiill exitz 390- +6I1954195C 0000240399800?6507560861 ill ralexitz 391-undefined +6I1954195C 0000240861800?1505508002 alo1ixxx 8002 392-or illegal +6I1954195C 0000240762800?1599991063 mask alo 9999all 394- +6I1954195C 0000240246800?1510648002 al0c aloc 8002 395- +6I1954195C 0000241064800?6516500245 c ral 1650nex 396- +6I1954195C 0000241600800?2110541007 sub10stucongo 400- +6I1954195C 0000241007800?6019860791 raup0010 401- +6I1954195C 0000240791800?1003940449 aup84th 402- +6I1954195C 0000240449800?6910541057 lddcongoh8sub 403- +6I1954195C 0000240394800?0008000000 84th 00 0800 0000 405-constant +6I1954195C 0000241057800?2410101113 h8substd8exit 407- +6I1954195C 0000241113800?3500010969 slt 0001 408- +6I1954195C 0000240969800?3000011075 srt 0001 409- +6I1954195C 0000241075800?1008581163 auph8xxx 410- +6I1954195C 0000241163800?2119860689 stup0010 411- +6I1954195C 0000240689800?7119770877 pchp0001 412- +6I1954195C 0000240877800?6006801010 rautyp3a8exit 413- +6I1954195C 0000241850800?1014531107 sub11aupdrumt 419-test drum +6I1954195C 0000241107800?4410110862 nzusex 420-tag +6I1954195C 0000240862800?2010670670 stlexit 421-is addr l +6I1954195C 0000240670800?9608231125 bd6di 422- +6I1954195C 0000241125800?6507780783 ralseqll 423- +6I1954195C 0000240783800?4607860923 bmi d0001 424- +6I1954195C 0000240786800?6580030841 ral 8003ssw 425-l +6I1954195C 0000240823800?6906760679 di lddf 426-d or i +6I1954195C 0000240679800?2219611114 sdaxxxx1sub13 427-find optim +6I1954195C 0000240841800?6904440347 ssw ldd gda11 429-get table +6I1954195C 0000240444800?3000051157 srt 0005ta 430-strt +6I1954195C 0000241157800?1510608002 ta aloa1p1 8002 431-srch tabl +6I1954195C 0000240043800?4403970198 =0001nzu add 433-available +6I1954195C 0000240397800?4631001001 bmi yes 434- +6I1954195C 0000243100800?1180011357 sup 8001sw 435-no strtlu +6I1954195C 0000240198800?1505548002 add alo1dxxx 8002 436- +6I1954195C 0000241164800?6911170770 swin lddoff2 stsw 442-get tlu st +6I1954195C 0000241265800?4510181019 swof nze max 444-test end +6I1954195C 0000241018800?1508711175 aloamp1 sai 445-of table +6I1954195C 0000241315800?4510681069 swon nze full 447-1s drum +6I1954195C 0000241068800?1580011225 alo 8001 448-full +6I1954195C 0000241225800?1505551175 alo10dxxsai 449- +6I1954195C 0000241175800?6905508002 sai ldd1ixxx 8002 451-tlu avail +6I1954195C 0000240044800?1604471157 =0002sloa1 ta 453- +6I1954195C 0000241019800?6504471051 max rala1 455-tbl end-60 +6I1954195C 0000241051800?6911041407 lddon 456-test full +6I1954195C 0000241407800?2413571175 stdsw sai 457- +6I1954195C 0000240770800?2413578001 stsw stdsw 8001 459- +6I1954195C 0000241069800?0102220873 full hlt 0222 461-drum packd +6I1954195C 0000240873800?6510670971 ralexit 462-set drum +6I1954195C 0000240971800?6905501503 ldd1ixxx 463-tag to 1 +6I1954195C 0000241503800?2414531011 stddrumtsex 464- +6I1954195C 0000241011800?1580018002 sex alo 8001 8002 465-k+1 exit +6I1954195C 0000241001800?6911541457 yes lddst 467-reserve +6I1954195C 0000241457800?2211111214 sdaeras 468-location +6I1954195C 0000241214800?6080031021 rau 8003 469-found +6I1954195C 0000241021800?8405501855 tlu(0001 470- +6I1954195C 0000241855800?1510588002 alofixav 8002 471- +6I1954195C 0000241365800?4611181111 sca bmi eras 473- +6I1954195C 0000241118800?1080011275 aup 8001 474- +6I1954195C 0000241275800?1605548002 slo1dxxx 8002 475- +6I1954195C 0000241111800?2100400493 eras stu 0040ca 476- +6I1954195C 0000240493800?1602961101 ca slostmpy 477-calculate +6I1954195C 0000241101800?2219051108 sdasau2 478-location +6I1954195C 0000241108800?6611541309 rslst 479-found +6I1954195C 0000241309800?1511111415 aloeras 480- +6I1954195C 0000241415800?3500041325 slt 0004 481- +6I1954195C 0000241325800?1680020833 slo 8002 482- +6I1954195C 0000240833800?3500050295 slt 0005 483- +6I1954195C 0000240295800?8405003105 tlu.0001 484- +6I1954195C 0000243105800?2411581161 stdrcall 485- +6I1954195C 0000241161800?1080021119 aup 8002 486- +6I1954195C 0000241119800?2107741027 studla 487- +6I1954195C 0000241027800?1507808002 alosxavl 8002 488- +6I1954195C 0000241213800?1611581263 asca slorcall 490- +6I1954195C 0000241263800?3500070779 slt 0007 491- +6I1954195C 0000240779800?1019051359 aupsau2 492- +6I1954195C 0000241359800?1909120883 mpy-50 493- +6I1954195C 0000240883800?1507740829 alodla 494- +6I1954195C 0000240829800?1506320887 alocnvrt 495- +6I1954195C 0000240887800?3000041067 srt 0004exit 496- +6I1954195C 0000240347800?2431501553 gda11stdrerun 498-given +6I1954195C 0000241553800?6080021211 rau 8002 499-dynamic +6I1954195C 0000241211800?2412641167 stddyna 500-level-get +6I1954195C 0000241167800?1080010973 aup 8001 501-tabl start +6I1954195C 0000240973800?3000010879 srt 0001 502-address +6I1954195C 0000240879800?6680020987 rsl 8002 503- +6I1954195C 0000240987800?6906900593 lddoff 504- +6I1954195C 0000240593800?2413571160 stdsw 505- +6I1954195C 0000241160800?1012643150 aupdyna rerun 506- +6I1954195C 0000240500800?0700000000 .0001 07 0000 0000 508-group tabl +6I1954195C 0000240501800?1500000000 .0002 15 0000 0000 509- +6I1954195C 0000240502800?2300000000 .0003 23 0000 0000 510- +6I1954195C 0000240503800?3100000000 .0004 31 0000 0000 511- +6I1954195C 0000240504800?3900000000 .0005 39 0000 0000 512- +6I1954195C 0000240505800?5700000000 .0006 57 0000 0000 513- +6I1954195C 0000240506800?6500000000 .0007 65 0000 0000 514- +6I1954195C 0000240507800?7300000000 .0008 73 0000 0000 515- +6I1954195C 0000240508800?8100000000 .0009 81 0000 0000 516- +6I1954195C 0000240509800?8900000000 .0010 89 0000 0000 517- +6I1954195C 0000240550800?0000000001 (0001 00 0000 0001 519-band table +6I1954195C 0000240551800?0000000010 (0002 00 0000 0010 520- +6I1954195C 0000240552800?0000000100 (0003 00 0000 0100 521- +6I1954195C 0000240553800?0000001000 (0004 00 0000 1000 522- +6I1954195C 0000240555800?0000100000 (0006 00 0010 0000 524- +6I1954195C 0000240556800?0001000000 (0007 00 0100 0000 525- +6I1954195C 0000240557800?0010000000 (0008 00 1000 0000 526- +6I1954195C 0000240558800?0100000000 (0009 01 0000 0000 527- +6I1954195C 0000240559800?1000000000 (0010 10 0000 0000 528- +6I1954195C 0000240560800?9999999999 (0011 99 9999 9999 529- +6I1954195C 0000240676800?0000000841 f 00 0000ssw 531-constants +6I1954195C 0000241060800?1000000043 a1p1 aup 0000=0001 532- +6I1954195C 0000241061800?0100001061 ao hlt 0000ao 533- +6I1954195C 0000241110800?1004900043 amax aup 0490=0001 534- +6I1954195C 0000243750800?7400000001 apex 74 0000 0001 535- +6I1954195C 0000241117800?1611101265 off2 sloamax swof 536- +6I1954195C 0000240871800?8405000044 amp1 tlu 0500 0044 537- +6I1954195C 0000240447800?8400000044 a1 tlu 0000=0002 538- +6I1954195C 0000241104800?1610611315 on sloao swon 539- +6I1954195C 0000241357800?0100001357 sw hlt 0000sw 540- +6I1954195C 0000241154800?2100000493 st stu 0000ca 541- +6I1954195C 0000241058800?1100001365 fixavsup 0000sca 542- +6I1954195C 0000240296800?0005500000 stmpy 00 0550 0000 543- +6I1954195C 0000241905800?0100001905 sau2 hlt 0000sau2 544- +6I1954195C 0000241158800?0100001158 rcallhlt 0000rcall 545- +6I1954195C 0000240774800?0100000774 dla hlt 0000dla 546- +6I1954195C 0000240912800?000000005! --50 00 0000 0050 547- +6I1954195C 0000240632800?0034500000 cnvrt 00 3450 0000 548- +6I1954195C 0000243150800?0100003150 rerunhlt 0000rerun 549- +6I1954195C 0000241264800?0100001264 dyna hlt 0000dyna 550- +6I1954195C 0000240690800?2010611164 off stlao swin 551- +6I1954195C 0000240780800?6500001213 sxavlral 0000asca 552- +6I1954195C 0000243800800?1519860891 sub12alop0010 557- +6I1954195C 0000240891800?1504940499 alo87nth 558- +6I1954195C 0000240499800?2019868003 stlp0010 8003 559- +6I1954195C 0000241114800?2407561409 sub13stdexitz 564-store exit +6I1954195C 0000241409800?9510121314 bd5 i 565-d or i +6I1954195C 0000241012800?9614651217 bd6ram 566-+ '+u +6I1954195C 0000241217800?6519541459 ral 1954 567-test core +6I1954195C 0000241459800?3000021515 srt 0002 568-d addr +6I1954195C 0000241515800?6080021023 rau 8002 569-tagged +6I1954195C 0000241023800?3000021029 srt 0002 570- +6I1954195C 0000241029800?1180031037 sup 8003 571- +6I1954195C 0000241037800?4507901465 nze ram 572- +6I1954195C 0000240790800?6506430497 ralopreg 573-set opreg +6I1954195C 0000240497800?1505503155 alo1ixxx 574-to n + 1 +6I1954195C 0000243155800?2006431465 stlopregram 575- +6I1954195C 0000241465800?6707541509 ram ramoptim 576- +6I1954195C 0000241509800?3500021565 slt 0002 577-clear op +6I1954195C 0000241565800?1180031073 sup 8003 578-code +6I1954195C 0000241073800?3500011079 slt 0001 579- +6I1954195C 0000241079800?1680021087 slo 8002 580- +6I1954195C 0000241087800?3500010693 slt 0001 581- +6I1954195C 0000240693800?1580010549 alo 8001 582- +6I1954195C 0000240549800?3000031507 srt 0003seo 583- +6I1954195C 0000241314800?6707541559 i ramoptim 584-i +6I1954195C 0000241559800?9210621364 bd2shop 585-shift test +6I1954195C 0000241364800?3500041507 slt 0004seo 586-+ '+u +6I1954195C 0000241507800?2019611414 seo stlxxxx1 587-save ev od +6I1954195C 0000241414800?6506430547 ralopreg 588- +6I1954195C 0000240547800?1408561267 div2ixxx 589- +6I1954195C 0000241267800?6080031375 rau 8003 590- +6I1954195C 0000241375800?1519611615 aloxxxx1 591- +6I1954195C 0000241615800?4411690820 nzu r8 592- +6I1954195C 0000241169800?3500021425 slt 0002 593- +6I1954195C 0000241425800?6580020820 ral 8002r8 594- +6I1954195C 0000240820800?3000080789 r8 srt 0008 595-get base +6I1954195C 0000240789800?1506430597 aloopreg 596-plus delta +6I1954195C 0000240597800?1438501261 div50xxx 597- +6I1954195C 0000241261800?6580030756 ral 8003exitz 598- +6I1954195C 0000241062800?9318151317 shop bd3 xas 600-ir test +6I1954195C 0000241815800?6519831137 ralp0007 601- +6I1954195C 0000241137800?3000040647 srt 0004 602-digit of +6I1954195C 0000240647800?3500091367 slt 0009 603-d address +6I1954195C 0000241367800?1680021475 slo 8002 604- +6I1954195C 0000241475800?8412503755 tluu0001 605- +6I1954195C 0000243755800?1512088002 alogu 8002 606- +6I1954195C 0000241123800?3500021129 top slt 0002 608- +6I1954195C 0000241129800?6907541557 lddoptim 609-is op srd +6I1954195C 0000241557800?9412101507 bd4 seo 610- +6I1954195C 0000241210800?3500041507 slt 0004seo 611-srd +6I1954195C 0000241317800?6519831237 xas ralp0007 613-tlu +6I1954195C 0000241237800?3000040697 srt 0004 614-d address +6I1954195C 0000240697800?3500061311 slt 0006 615- +6I1954195C 0000241311800?1680021219 slo 8002 616- +6I1954195C 0000241219800?8413003805 tlui0001 617- +6I1954195C 0000243805800?1513088002 alogxd 8002 618- +6I1954195C 0000241173800?3500041507 nxt slt 0004seo 620- +6I1954195C 0000241250800?0023222524 u0001 00 2322 2524 622-shift +6I1954195C 0000241251800?1007060706 u0002 10 0706 0706 623-optimizing +6I1954195C 0000241252800?2007060908 u0003 20 0706 0908 624-table +6I1954195C 0000241253800?3009081110 u0004 30 0908 1110 625- +6I1954195C 0000241254800?4011101312 u0005 40 1110 1312 626- +6I1954195C 0000241255800?5013121514 u0006 50 1312 1514 627- +6I1954195C 0000241256800?6015141716 u0007 60 1514 1716 628- +6I1954195C 0000241257800?7017161918 u0008 70 1716 1918 629- +6I1954195C 0000241258800?8019182120 u0009 80 1918 2120 630- +6I1954195C 0000241259800?9021202322 u0010 90 2120 2322 631- +6I1954195C 0000241300800?3999060600 i0001 39 9906 0600 633-x accum +6I1954195C 0000241301800?7999070700 i0002 79 9907 0700 634-add sub +6I1954195C 0000241302800?8000080800 i0003 80 0008 0800 635-table +6I1954195C 0000241303800?8001060600 i0004 80 0106 0600 636- +6I1954195C 0000241304800?8002090800 i0005 80 0209 0800 637- +6I1954195C 0000241305800?8003080900 i0006 80 0308 0900 638- +6I1954195C 0000241306800?9059080800 i0007 90 5908 0800 639- +6I1954195C 0000241307800?9999090900 i0008 99 9909 0900 640- +6I1954195C 0000241208800?6500001123 gu ral 0000top 642-constants +6I1954195C 0000241308800?6500001173 gxd ral 0000nxt 643- +6I1954195C 0000243900800?6916031006 sb17dldddeq di 649-d equiv +6I1954195C 0000243950800?6918031006 sb17ilddieq di 650-i equiv +6I1954195C 0000241006800?2419611464 di stdxxxx1 651-save tag +6I1954195C 0000241464800?2106241077 stuexity 652-save exit +6I1954195C 0000241077800?2019621865 stlxxxx2 653-save 800x +6I1954195C 0000241865800?6919611114 lddxxxx1sub13 654-calc optim +6I1954195C 0000241151800?2010131066 sda stlequiv 655-dynam addr +6I1954195C 0000241066800?1408561417 div2ixxx 656- +6I1954195C 0000241417800?2119611514 stuxxxx1 657-store even +6I1954195C 0000241514800?6507541809 raloptim 658-odd factor +6I1954195C 0000241809800?4611121313 bmi xm 659- +6I1954195C 0000241112800?6907561859 lddexitz 660-branch if +6I1954195C 0000241859800?9511621614 bd5d i 661-arithmetic +6I1954195C 0000241162800?6519621467 d ralxxxx2 662-op code +6I1954195C 0000241467800?1608701525 slo8001 663-and lessen +6I1954195C 0000241525800?4513131179 nzexm 664-even 8001 +6I1954195C 0000241179800?6519611915 ralxxxx1 665-data da +6I1954195C 0000241915800?4511681269 nzeex 666-by 2 or +6I1954195C 0000241269800?6508221127 ral48 alo 667-increase +6I1954195C 0000241614800?6510131517 i ralequiv 668-any 800x +6I1954195C 0000241517800?1508561361 alo2ixxx 669-inst da +6I1954195C 0000241361800?2010131313 stlequivxm 670-by 2 +6I1954195C 0000241313800?6519613115 xm ralxxxx1 671- +6I1954195C 0000243115800?4512181319 nzeod ev 672-add to da +6I1954195C 0000241218800?6510711575 od ral8002 eo 673-possible +6I1954195C 0000241319800?6508721575 ev ral8003 eo 674-even or +6I1954195C 0000241575800?1619621617 eo sloxxxx2 675-odd factor +6I1954195C 0000241617800?4511681121 nzeex add1 676-for 8002 +6I1954195C 0000241168800?6510130624 ex ralequivexity 677-and 8003 d +6I1954195C 0000241121800?6505501127 add1 ral1ixxxalo 678-and i das +6I1954195C 0000241127800?1510130624 alo aloequivexity 679- +6I1954195C 0000241603800?0000881151 deq 00 0088sda 681- +6I1954195C 0000241803800?0000091151 ieq 00 0009sda 682- +6I1954195C 0000240870800?0000008001 8001 00 0000 8001 683- +6I1954195C 0000241071800?0000008002 8002 00 0000 8002 684- +6I1954195C 0000240872800?0000008003 8003 00 0000 8003 685- +6I1954195C 0000240822800?0000000048 48 00 0000 0048 686- +6I1954195C 0000241351800?2019611814 indexstlxxxx1 692-store addr +6I1954195C 0000241814800?2106241177 stuexity 693-store exit +6I1954195C 0000241177800?6019541909 rau 1954 694-get d tag +6I1954195C 0000241909800?3500071825 slt 0007 698-clear opcd +6I1954195C 0000241825800?1508281033 aloindxi 696- +6I1954195C 0000241033800?6906241227 lddexity 697- +6I1954195C 0000241227800?9508300682 bd5d i 698-d or i +6I1954195C 0000240682800?3500020839 i slt 0002 699- +6I1954195C 0000240839800?9601920594 bd6drmi cori 700-test core +6I1954195C 0000240192800?4403450346 drmi nzucomp1 701-or drum +6I1954195C 0000240346800?3000011853 srt 0001a 702- +6I1954195C 0000240594800?4407970248 cori nzudtag 703-and i tag +6I1954195C 0000240248800?3000023855 srt 0002 704-chnge 4000 +6I1954195C 0000243855800?1580021853 alo 8002a 705-to 800 +6I1954195C 0000240797800?1180033905 dtag sup 8003 706- +6I1954195C 0000243905800?4513583109 nzecomp2 707- +6I1954195C 0000243109800?6580013165 ral 8001 708-set to mpy +6I1954195C 0000243165800?3500011171 slt 0001cord 709-itag by200 +6I1954195C 0000240830800?3000091401 d srt 0009 710-positn tag +6I1954195C 0000241401800?9613541171 bd6drmd cord 711-testdrm or +6I1954195C 0000241171800?1908241853 cord mpy0200ia 712-core +6I1954195C 0000241354800?1680021363 drmd slo 8002 713- +6I1954195C 0000241363800?4418171853 nzu a 714-is there a +6I1954195C 0000241817800?1108561411 sup2ixxx 715- +6I1954195C 0000241411800?6906241277 lddexity 716-test 80xx +6I1954195C 0000241277800?9708800782 bd7 800x 717-or +6I1954195C 0000240880800?4610830884 bmidax d80xx 718-drum +6I1954195C 0000240884800?6912870840 d80xxldd400ix 719-tag 8 or c +6I1954195C 0000240840800?2408281131 stdindxi 720- +6I1954195C 0000241131800?4410831853 nzudax a 721-test b c +6I1954195C 0000240782800?4409450884 800x nzu 0945d80xx 722-is it b +6I1954195C 0000241083800?6508361853 dax ral4000ia 723-tag a andc +6I1954195C 0000241853800?1519610624 a aloxxxx1exity 724- +6I1954195C 0000241287800?0000000400 400ix 00 0000 0400 725- +6I1954195C 0000240345800?2114511404 comp1stuitagw1620r 727-save tag +6I1954195C 0000241358800?2414511404 comp2stditagw1620r 728- +6I1954195C 0000241404800?6019521607 1620rrau 1952 729- +6I1954195C 0000241607800?4414611212 nzu clrit 730- +6I1954195C 0000241461800?6019543159 rau 1954 731-test ir +6I1954195C 0000243159800?2319623765 siaxxxx2 732-ir op code +6I1954195C 0000243765800?8406003955 tlu)0001 733- +6I1954195C 0000243955800?1514088002 aloopsrh 8002 734- +6I1954195C 0000241867800?3000041327 ars srt 0004 736- +6I1954195C 0000241327800?4411811212 nzu clrit 737- +6I1954195C 0000241181800?6519543759 ral 1954 738-clr i-tag +6I1954195C 0000243759800?3000023815 srt 0002 739-from +6I1954195C 0000243815800?3500021221 slt 0002 740-instructn +6I1954195C 0000241221800?2019801133 stlp0004 741- +6I1954195C 0000241133800?2419541807 std 1954 742-zero i-go +6I1954195C 0000241807800?2119790832 stup0003dnb c 743-find locat +6I1954195C 0000241212800?2114510954 clritstuitagw 0954 744-error +6I1954195C 0000241408800?1100001867 opsrhsup 0000ars 745- +6I1954195C 0000241451800?0100001451 itagwhlt 0000itagw 746- +6I1954195C 0000240600800?6187610000 )0001 61 8761 0000 748-tagged +6I1954195C 0000240601800?6187620000 )0002 61 8762 0000 749-i-address +6I1954195C 0000240602800?6187630000 )0003 61 8763 0000 750-op code +6I1954195C 0000240603800?7961610000 )0004 79 6161 0000 751-search +6I1954195C 0000240604800?7961620000 )0005 79 6162 0000 752-table +6I1954195C 0000240605800?7961630000 )0006 79 6163 0000 753- +6I1954195C 0000240606800?7982610000 )0007 79 8261 0000 754- +6I1954195C 0000240607800?7982620000 )0008 79 8262 0000 755- +6I1954195C 0000240608800?7982630000 )0009 79 8263 0000 756- +6I1954195C 0000240609800?8287610000 )0010 82 8761 0000 757- +6I1954195C 0000240610800?8287620000 )0011 82 8762 0000 758- +6I1954195C 0000240611800?8287630000 )0012 82 8763 0000 759- +6I1954195C 0000240612800?9999999999 )0013 99 9999 9999 760-table end +6I1954195C 0000240624800?0100000624 exity 01 0000exity 761-eraseable +6I1954195C 0000241501800?2406531056 proclstdexitx 773-store exit +6I1954195C 0000241056800?6019511106 rau 1951 774-is l blank +6I1954195C 0000241106800?4438091260 nzunb 775- +6I1954195C 0000241260800?1507781183 aloseqll 776- +6I1954195C 0000241183800?4608861337 bmiblnk 777- +6I1954195C 0000241337800?6908900793 lddtcori 778- +6I1954195C 0000240793800?9009310935 bdok0001l0003 779- +6I1954195C 0000240886800?6014531857 blnk raudrumt 780- +6I1954195C 0000241857800?4409241262 nzud0002b 781- +6I1954195C 0000241262800?6506430847 b ralopregsetl 782-blank +6I1954195C 0000240847800?3500041907 setl slt 0004 783-set l +6I1954195C 0000241907800?6919841387 lddp0008 784-to or +6I1954195C 0000241387800?2219841437 sdap0008 785- +6I1954195C 0000241437800?6507781233 ralseqll 786- +6I1954195C 0000241233800?4606531487 bmiexitx 787- +6I1954195C 0000241487800?1509900395 aloctrsq 788- +6I1954195C 0000240395800?2007780653 stlseqllexitx 789- +6I1954195C 0000243809800?6913120850 nb lddg subr4 790-what is l +6I1954195C 0000240925800?6519570931 g0001ral 1957k0001 791-absolute +6I1954195C 0000240926800?1512291500 g0002alok subr9 792- +6I1954195C 0000240927800?6909301050 g0003lddj subr6 793-symbolic +6I1954195C 0000241025800?6909301050 g0101lddj subr6 794- +6I1954195C 0000240931800?6910340900 k0001lddl subr5 795-test range +6I1954195C 0000240932800?6004940599 k0002rau87nthx 796-reg error +6I1954195C 0000240599800?1019860991 x aupp0010 797-set blank +6I1954195C 0000240991800?2119860847 stup0010setl 798-l8 +6I1954195C 0000240933800?2006430847 l0001stlopregsetl 799-drum addr +6I1954195C 0000240934800?2006801283 l0002stltyp3a800x 800-800x loc +6I1954195C 0000240935800?6908881091 l0003lddorceq89x 801-core addr +6I1954195C 0000240936800?6004940599 l0004rau87nthx 802-other +6I1954195C 0000241912800?6004940599 80xxlrau87nthx 803-80xx addr +6I1954195C 0000241283800?6910361091 800x lddorxeq89x 804- +6I1954195C 0000241091800?2406430599 89x stdopregx 805- +6I1954195C 0000240928800?6510130931 j0001ralequivk0001 806-sym defind +6I1954195C 0000240929800?6508821850 j0002rald sub11 807-sym undef +6I1954195C 0000240923800?2006430396 d0001stlopregss 808-s eq found +6I1954195C 0000240924800?6004940599 d0002rau87nthx 809-drum paked +6I1954195C 0000240396800?1006221377 ss auphsymb 810-store +6I1954195C 0000241377800?1501971551 alolsymb 811-symbol +6I1954195C 0000241551800?6912621400 lddb subr7 812- +6I1954195C 0000241312800?0000000925 g 00 0000g0001 814-constants +6I1954195C 0000241229800?0019570931 k nop 1957k0001 815- +6I1954195C 0000240930800?0000080928 j 00 0008j0001 816- +6I1954195C 0000241034800?0000000933 l 00 0000l0001 817- +6I1954195C 0000240882800?0000900923 d 00 0090d0001 818- +6I1954195C 0000241601800?0000080000 86th 00 0008 0000 819- +6I1954195C 0000240494800?0000008000 87nth 00 0000 8000 820- +6I1954195C 0000240653800?0100000653 exitx 01 0000exitx 821-eraseable +6I1954195C 0000240643800?0000000000 opreg 00 0000 0000 822- +6I1954195C 0000241453800?0100001453 drumt 01 0000drumt 823- +6I1954195C 0000240888800?0100000888 orceq 01 0000orceq 824- +6I1954195C 0000241036800?0100001036 orxeq 01 0000orxeq 825- +6I1954195C 0000241801800?2406531156 procdstdexitx 838-store exit +6I1954195C 0000241156800?6019523107 rau 1952 839- +6I1954195C 0000243107800?4415111362 nzunb 840- +6I1954195C 0000241362800?1538651369 aloseqdd 841- +6I1954195C 0000241369800?4609220944 bmi j0001 842- +6I1954195C 0000240922800?6518751850 rald sub11 843-find +6I1954195C 0000240937800?2011410952 d0001stlorball0004 844-optimum d +6I1954195C 0000240938800?6012410445 d0002rau88th x 845-drum paked +6I1954195C 0000241851800?6907543157 bt lddoptim 846-is op +6I1954195C 0000243157800?9113101412 bd1cksqd 847- +6I1954195C 0000241412800?2006431310 stlopregcksqd 848- +6I1954195C 0000240445800?1019861291 x aupp0010 849-set blank +6I1954195C 0000241291800?2119861310 stup0010cksqd 850- +6I1954195C 0000241310800?6538651419 cksqdralseqdd 851- +6I1954195C 0000241419800?4606531223 bmiexitx 852- +6I1954195C 0000241223800?1509900495 aloctrsq 853- +6I1954195C 0000240495800?2038650653 stlseqddexitx 854- +6I1954195C 0000241511800?6918640850 nb lddg subr4 855-what is d +6I1954195C 0000240941800?6519580944 g0001ral 1958j0001 856- +6I1954195C 0000240942800?1505951500 g0002aloj subr9 857- +6I1954195C 0000240943800?6904461050 g0003lddk subr6 858-symbolic +6I1954195C 0000241041800?6906441050 g0101lddk- subr6 859- +6I1954195C 0000240944800?6908970900 j0001lddl subr5 860-test range +6I1954195C 0000240945800?6012410445 j0002rau88th x 861-reg error +6I1954195C 0000240949800?1008521351 l0001aupaxd index 862-drum addr +6I1954195C 0000240950800?1019031351 l0002aupax8a index 863-test tag +6I1954195C 0000240951800?1014541351 l0003aupaxc index 864-core addr +6I1954195C 0000240952800?3500041413 l0004slt 0004sd 865-other +6I1954195C 0000241928800?1012311351 80xxdaupax8t index 866-80xx addr +6I1954195C 0000241901800?3500041561 800x slt 0004 867-set 80xx d +6I1954195C 0000241561800?6919831086 lddp0007 868- +6I1954195C 0000241086800?2219831136 sdap0007 869- +6I1954195C 0000241136800?3000040997 srt 0004 870- +6I1954195C 0000240997800?1031013900 aupxeq sb17d 871-get 800x e +6I1954195C 0000243151800?3500041611 scd slt 0004 872-set core d +6I1954195C 0000241611800?6919831236 lddp0007 873- +6I1954195C 0000241236800?2219831286 sdap0007 874- +6I1954195C 0000241286800?3000041047 srt 0004 875- +6I1954195C 0000241047800?6937511114 lddceq sub13 876-get core e +6I1954195C 0000243801800?2008881851 sceq stlorceqbt 877-save core +6I1954195C 0000240946800?2416300948 k0001stdpchexk0003 878- +6I1954195C 0000240947800?6510130944 k0002ralequivj0001 879- +6I1954195C 0000240948800?6538511850 k0003ralf sub11 880- +6I1954195C 0000240939800?2008430496 f0001stleq ss 881-save eq +6I1954195C 0000240940800?2106940945 f0002studdrmtj0002 882-drum paked +6I1954195C 0000240496800?1006221427 ss auphsymb 883-store +6I1954195C 0000241427800?1501973901 alolsymb 884-symbol +6I1954195C 0000243901800?6915041400 ldd subr7 885- +6I1954195C 0000241504800?6508430949 raleq l0001 886- +6I1954195C 0000241413800?6919831336 sd lddp0007 887-set d addr +6I1954195C 0000241336800?2219831386 sdap0007 888- +6I1954195C 0000241386800?3000041851 srt 0004bt 889- +6I1954195C 0000241875800?0000880937 d 00 0088d0001 891-constants +6I1954195C 0000241864800?0000000941 g 00 0000g0001 892- +6I1954195C 0000240595800?0019580944 j nop 1958j0001 893- +6I1954195C 0000240897800?0000000949 l 00 0000l0001 894- +6I1954195C 0000243851800?0000880939 f 00 0088f0001 895- +6I1954195C 0000240446800?0000890947 k 00 0089k0002 896- +6I1954195C 0000240644800?000089094P -k- 00 0089k0002 897- +6I1954195C 0000240852800?0008880937 axd 00 0888d0001 898- +6I1954195C 0000241454800?0000983151 axc 00 0098scd 899- +6I1954195C 0000241231800?0009880952 ax8t 00 0988l0004 900- +6I1954195C 0000241903800?0009881901 ax8a 00 0988800x 901- +6I1954195C 0000243101800?2010361851 xeq stlorxeqbt 902- +6I1954195C 0000243751800?0000983801 ceq 00 0098sceq 903- +6I1954195C 0000241241800?0000000800 88th 00 0000 0800 904- +6I1954195C 0000240843800?0100000843 eq 01 0000eq 905-eraseable +6I1954195C 0000241141800?0100001141 orbal 01 0000orbal 906- +6I1954195C 0000243951800?2406531356 procistdexitx 919-store exit +6I1954195C 0000241356800?6019533757 rau 1953 920-is i blank +6I1954195C 0000243757800?4418111462 nzunb 921- +6I1954195C 0000241462800?1539151469 aloseqii 922- +6I1954195C 0000241469800?4609720960 bmi j0001 923- +6I1954195C 0000240972800?6019523807 rau 1952 924-is d blank +6I1954195C 0000243807800?4408321512 nzudnb 925- +6I1954195C 0000241512800?1014533857 aupdrumt 926- +6I1954195C 0000243857800?4409591562 nzug0002 927- +6I1954195C 0000241562800?6511410968 ralorball0004 928-tag +6I1954195C 0000240832800?6508851850 dnb rald sub11 929-find best +6I1954195C 0000240953800?2011410965 d0001stlorball0001 930-found +6I1954195C 0000240954800?6519861341 d0002ralp0010x 931-drum paked +6I1954195C 0000241341800?1507940649 x alo89th 932- +6I1954195C 0000240649800?2019860889 stlp0010cksqi 933- +6I1954195C 0000241811800?6919140850 nb lddf subr4 934-what is i +6I1954195C 0000240955800?6519590960 f0001ral 1959j0001 935-absolute +6I1954195C 0000240956800?1538591500 f0002aloj subr9 936- +6I1954195C 0000240957800?6913601050 f0003lddk subr6 937-symbolic +6I1954195C 0000241055800?6913601050 f0101lddk subr6 938- +6I1954195C 0000240960800?6914630900 j0001lddl subr5 939-test range +6I1954195C 0000240961800?6519861341 j0002ralp0010x 940-reg err0r +6I1954195C 0000240965800?1012681351 l0001aupaxd index 941-drum addr +6I1954195C 0000240966800?1080021925 l0002aup 8002800x 942-800x +6I1954195C 0000240967800?1009701351 l0003aupaxc index 943-core addr +6I1954195C 0000240968800?6919831436 l0004lddp0007 944-other +6I1954195C 0000241436800?2319831486 siap0007mor 945- +6I1954195C 0000241944800?0000000968 80xxinop 0000l0004 946-80xx iaddr +6I1954195C 0000241925800?1508281333 800x aloindxi 947- +6I1954195C 0000241333800?1580010989 alo 8001 948- +6I1954195C 0000240989800?6919831536 lddp0007 949- +6I1954195C 0000241536800?2319831586 siap0007 950- +6I1954195C 0000241586800?6580030893 ral 8003 951- +6I1954195C 0000240893800?1005463950 aupxeq sb17i 952- +6I1954195C 0000241052800?6919831836 90xx lddp0007 953-set core +6I1954195C 0000241836800?2319831886 siap0007 954-address +6I1954195C 0000241886800?6910391114 lddceq sub13 955-get core e +6I1954195C 0000240962800?6510130960 k0001ralequivj0001 956-sym defind +6I1954195C 0000240963800?6511161850 k0002ralg sub11 957-sym undef +6I1954195C 0000240958800?1018611351 g0001aupaxds index 958-found best +6I1954195C 0000240959800?6519861341 g0002ralp0010x 959-drum paked +6I1954195C 0000241102800?6919831936 ldd lddp0007si 960- +6I1954195C 0000241936800?2319833136 si siap0007 961- +6I1954195C 0000243136800?6519613965 ralxxxx1 962- +6I1954195C 0000243965800?1006221477 auphsymb 963-store +6I1954195C 0000241477800?1501971152 alolsymb 964-symbol +6I1954195C 0000241152800?6914861400 lddmor subr7 965- +6I1954195C 0000241486800?6911410844 mor lddorbal 966-set or +6I1954195C 0000240844800?2406430889 stdopregcksqi 967- +6I1954195C 0000240889800?6539151519 cksqiralseqii 968- +6I1954195C 0000241519800?4606531273 bmiexitx 969- +6I1954195C 0000241273800?1509900645 aloctrsq 970- +6I1954195C 0000240645800?2039150653 stlseqiiexitx 971- +6I1954195C 0000241352800?2008881486 sceq stlorceqmor 972-save core +6I1954195C 0000240885800?0000890953 d 00 0089d0001 974-constants +6I1954195C 0000241914800?0000000955 f 00 0000f0001 975- +6I1954195C 0000243859800?0019590960 j nop 1959j0001 976- +6I1954195C 0000241360800?0000990962 k 00 0099k0001 977- +6I1954195C 0000241463800?0000000965 l 00 0000l0001 978- +6I1954195C 0000241116800?0000890958 g 00 0089g0001 979- +6I1954195C 0000240794800?0000000080 89th 00 0000 0080 980- +6I1954195C 0000241268800?0000890968 axd 00 0089l0004 981- +6I1954195C 0000240970800?0000991052 axc 00 009990xx 982- +6I1954195C 0000241861800?0000891102 axds 00 0089ldd 983- +6I1954195C 0000240546800?2010361486 xeq stlorxeqmor 984- +6I1954195C 0000241039800?0000091352 ceq 00 0009sceq 985- +6I1954195C 0000241402800?2406241527 subr2stdexity 991- +6I1954195C 0000241527800?2012811084 stln 992-store n +6I1954195C 0000241084800?1680011391 slo 8001 993- +6I1954195C 0000241391800?1080030699 aup 8003 994- +6I1954195C 0000240699800?3000033907 srt 0003 995- +6I1954195C 0000243907800?2116121166 stux 996-save group +6I1954195C 0000241166800?1180011323 sup 8001 997- +6I1954195C 0000241323800?3500011279 slt 0001 998- +6I1954195C 0000241279800?2111341537 stup 999-save band +6I1954195C 0000241537800?1180010993 sup 8001 1000- +6I1954195C 0000240993800?3500020799 slt 0002 1001- +6I1954195C 0000240799800?1914521373 mpy51xxx 1002-get +6I1954195C 0000241373800?3000011329 srt 0001 1003-table +6I1954195C 0000241329800?6910320347 ldd gda11 1004- +6I1954195C 0000241032800?3500011089 slt 0001 1005- +6I1954195C 0000241089800?2108941097 stuany 1006- +6I1954195C 0000241097800?3000023103 srt 0002 1007- +6I1954195C 0000243103800?1680021911 slo 8002 1008- +6I1954195C 0000241911800?3000061975 srt 0006 1009- +6I1954195C 0000241975800?1580011331 alo 8001 1010- +6I1954195C 0000241331800?1511841139 aloh5 1011- +6I1954195C 0000241139800?4410430994 nzu slt 1012- +6I1954195C 0000241043800?1505960994 alo5000 slt 1013- +6I1954195C 0000240994800?3500021502 slt slt 0002 1014- +6I1954195C 0000241502800?1514063111 alobgin2 1015- +6I1954195C 0000243111800?2012161569 stla393 1016- +6I1954195C 0000241569800?6008940849 rauany 1017- +6I1954195C 0000240849800?1016121917 aupx 1018- +6I1954195C 0000241917800?1511341239 alop 1019- +6I1954195C 0000241239800?3500040899 slt 0004 1020- +6I1954195C 0000240899800?1515523957 aloc1 1021-get slt +6I1954195C 0000243957800?2000420695 stlb0002 1022-and srt +6I1954195C 0000240695800?6902981602 lddc2 1023-1nstructns +6I1954195C 0000241602800?2214563909 sdaspr 1024- +6I1954195C 0000243909800?1018123117 aupc3 su 1025-and ral +6I1954195C 0000243117800?2110223125 su stusa 1026- +6I1954195C 0000243125800?1008788003 aupc4 8003 1027- +6I1954195C 0000240042800?3500091513 b0002slt 0009xx 1029- +6I1954195C 0000241513800?1580031271 xx alo 8003 1030- +6I1954195C 0000241271800?6080021379 rau 8002 1031- +6I1954195C 0000241379800?3500011035 slt 0001 1032- +6I1954195C 0000241035800?3000011441 srt 0001 1033- +6I1954195C 0000241441800?1019621456 aupxxxx2spr - +6I1954195C 0000241456800?3000091577 spr srt 0009sac 1035- +6I1954195C 0000241577800?1080021022 sac aup 8002sa 1036- +6I1954195C 0000241022800?2199830041 sa stu 9983b0001 1037- +6I1954195C 0000240041800?6512811085 b0001raln 1039-is n zero +6I1954195C 0000241085800?4509880624 nze1or50exity 1040- +6I1954195C 0000240988800?1605501506 1or50slo1ixxxnext 1041-reduce n +6I1954195C 0000241506800?2012811234 next stln eithr 1042-by 1 +6I1954195C 0000241234800?6010221827 eithrrausa eith2 1043-is ai +6I1954195C 0000241827800?1112161321 eith2supa393 1044-at band +6I1954195C 0000241321800?4608743175 bmi tpl 1045-end yes +6I1954195C 0000240874800?1080011381 aup 8001 1046-no +6I1954195C 0000241381800?1012843117 aup su 1047- +6I1954195C 0000241284800?0000080000 00 0008 0000 1048- +6I1954195C 0000243175800?1080011431 tpl aup 8001 1050-band end +6I1954195C 0000241431800?1580011587 alo 8001 1051-test tabl +6I1954195C 0000241587800?1110400795 suplast 1052-end +6I1954195C 0000240795800?4603480999 bmi tp 1053- +6I1954195C 0000240348800?1080011556 aup 8001 1054-no step +6I1954195C 0000241556800?1539591613 alo50d 1055-to nxt bnd +6I1954195C 0000241613800?2012161619 stla393 1056- +6I1954195C 0000241619800?1010723117 aup su 1057- +6I1954195C 0000241072800?0000180000 00 0018 0000 1058- +6I1954195C 0000240999800?6914061410 tp lddbgin2 1060- +6I1954195C 0000241410800?2412161819 stda393 tpr 1061- +6I1954195C 0000241819800?6514563161 tpr ralspr 1062- +6I1954195C 0000243161800?1602983153 sloc2 1063-is p 9 +6I1954195C 0000243153800?4516061458 nze zp 1064- +6I1954195C 0000241606800?1514601266 aloc5 1065- +6I1954195C 0000241266800?6915521806 lddc1 1066- +6I1954195C 0000241806800?2200420845 sdab0002 1067- +6I1954195C 0000240845800?2014561510 stlspr 56 1068- +6I1954195C 0000241510800?6010221877 56 rausa sz 1069-reduce ai +6I1954195C 0000241877800?1110303117 sz sup su 1070-by 482 +6I1954195C 0000241030800?0004820000 00 0482 0000 1071- +6I1954195C 0000241458800?6915521856 zp lddc1 1073-set p to +6I1954195C 0000241856800?2400420895 stdb0002 1074-zero +6I1954195C 0000240895800?6903981802 lddc7 1075- +6I1954195C 0000241802800?2414561560 stdspr 78 1076- +6I1954195C 0000241560800?6010221927 78 rausa 178 1077-reduce ai +6I1954195C 0000241927800?1110803117 178 sup su 1078-by 481 +6I1954195C 0000241080800?0004810000 00 0481 0000 1079- +6I1954195C 0000241552800?3500001513 c1 slt 0000xx 1081-constants +6I1954195C 0000240298800?3000091577 c2 srt 0009sac 1082- +6I1954195C 0000241812800?2100000041 c3 stu 0000b0001 1083- +6I1954195C 0000240878800?4400000001 c4 44 0000 0001 1084- +6I1954195C 0000241216800?2104820041 a393 stu 0482b0001 1085- +6I1954195C 0000241460800?3000101577 c5 srt 0010sac 1086- +6I1954195C 0000240398800?3000001577 c7 srt 0000sac 1087- +6I1954195C 0000241134800?0100001134 p hlt 0000p 1089- +6I1954195C 0000241281800?0100001281 n hlt 0000n 1090- +6I1954195C 0000241612800?0100001612 x hlt 0000x 1093- +6I1954195C 0000241452800?0000000005 51xxx 00 0000 0005 1094- +6I1954195C 0000241040800?2104820041 last stu 0482b0001 1095- +6I1954195C 0000241184800?5000000000 h5 50 0000 0000 1096- +6I1954195C 0000240596800?0000005000 5000 00 0000 5000 1097- +6I1954195C 0000241406800?2100320041 bgin2stu 0032b0001 1098- +6I1954195C 0000243959800?0000500000 50d 00 0050 0000 1099- +6I1954195C 0000240700800?0100040498 n0001 01 0004 0498 1105-nop hlt +6I1954195C 0000240701800?0233232299 n0002 02 3323 2299 1106-ufa +6I1954195C 0000240702800?0700050598 n0003 07 0005 0598 1107-03 to 07 +6I1954195C 0000240703800?0833121299 n0004 08 3312 1299 1108-lib ill op +6I1954195C 0000240704800?0933020299 n0005 09 3302 0299 1109-ldi +6I1954195C 0000240705800?113305049R -n0006 11 3305 0499 1110-aup sup +6I1954195C 0000240706800?1300000099 n0007 13 0000 0099 1111-rsr +6I1954195C 0000240707800?1433111099 n0008 14 3311 1099 1112-div +6I1954195C 0000240708800?183305049R -n0009 18 3305 0499 1113-15 to 18 +6I1954195C 0000240709800?1933212099 n0010 19 3321 2099 1114-mpy +6I1954195C 0000240710800?2054030399 n0011 20 5403 0399 1115-stl +6I1954195C 0000240711800?2145030399 n0012 21 4503 0399 1116-stu +6I1954195C 0000240712800?2334030399 n0013 23 3403 0399 1117-sda sia +6I1954195C 0000240713800?2433030399 n0014 24 3303 0399 1118-std sfm +6I1954195C 0000240714800?2544050598 n0015 25 4405 0598 1119-nts +6I1954195C 0000240715800?2600040498 n0016 26 0004 0498 1120-bin +6I1954195C 0000240716800?2700050598 n0017 27 0005 0598 1121-set wts +6I1954195C 0000240717800?2833121299 n0018 28 3312 1299 1122-sib +6I1954195C 0000240718800?2933020299 n0019 29 3302 0299 1123-sti +6I1954195C 0000240719800?3000009888 n0020 30 0000 9888 1124-srt sps +6I1954195C 0000240720800?3100008888 n0021 31 0000 8888 1125-srd +6I1954195C 0000240721800?3333272699 n0022 33 3327 2699 1126-fad fsb +6I1954195C 0000240722800?3433000099 n0023 34 3300 0099 1127-fdv +6I1954195C 0000240723800?3600009888 n0024 36 0000 9888 1128-slt sct +6I1954195C 0000240724800?3833272699 n0025 38 3327 2699 1129-fam fsm +6I1954195C 0000240725800?3933000099 n0026 39 3300 0099 1130-fmp +6I1954195C 0000240726800?4333040498 n0027 43 3304 0498 1131-40 to 43 +6I1954195C 0000240727800?4434040598 n0028 44 3404 0598 1132-nzu +6I1954195C 0000240728800?4543050498 n0029 45 4305 0498 1133-nze +6I1954195C 0000240729800?4633040498 n0030 46 3304 0498 1134-bmi +6I1954195C 0000240730800?4733050598 n0031 47 3305 0598 1135-bov +6I1954195C 0000240731800?4933040498 n0032 49 3304 0498 1136-nzc bmc +6I1954195C 0000240732800?5300000988 n0033 53 0000 0988 1137-50 to 53 +6I1954195C 0000240733800?5444050598 n0034 54 4405 0598 1138-nef +6I1954195C 0000240734800?5700050598 n0035 57 0005 0598 1139-55 to 57 +6I1954195C 0000240735800?5900000988 n0036 59 0000 0988 1140-axc sxc +6I1954195C 0000240736800?613305049R -n0037 61 3305 0499 1141-rau rsu +6I1954195C 0000240737800?6333050699 n0038 63 3305 0699 1142-tle +6I1954195C 0000240738800?6433111099 n0039 64 3311 1099 1143-dvr +6I1954195C 0000240739800?683305049R -n0040 68 3305 0499 1144-65 to 68 +6I1954195C 0000240740800?6933030399 n0041 69 3303 0399 1145-ldd +6I1954195C 0000240741800?7800000099 n0042 78 0000 0099 1146-70 to 78 +6I1954195C 0000240742800?7900050599 n0043 79 0005 0599 1147-rpy +6I1954195C 0000240743800?8300000988 n0044 83 0000 0988 1148-80 70 83 +6I1954195C 0000240744800?8433050699 n0045 84 3305 0699 1149-tlu +6I1954195C 0000240745800?8700050598 n0046 87 0005 0598 1150-85 to 87 +6I1954195C 0000240746800?8900000988 n0047 89 0000 0988 1151-rac rsc +6I1954195C 0000240747800?9044050598 n0048 90 4405 0598 1152-bd0 +6I1954195C 0000240748800?0033060599 n0049 00 3306 0599 1153-nac +6I1954195C 0000240749800?0054060598 n0050 00 5406 0598 1154-elu neu +6I1954195C 0000240750800?9833050598 n0051 98 3305 0598 1155-bd1 to bd8 +6I1954195C 0000240751800?9944050598 n0052 99 4405 0598 1156-bd9 +6I1954195C 0000240752800?0065030399 n0053 00 6503 0399 1157-anc +6I1954195C 0000241650800?6173664806 61 7366 4806 1162-alf +6I1954195C 0000241651800?6173760150 61 7376 0150 1163-alo +6I1954195C 0000241652800?6174730170 61 7473 0170 1164-aml +6I1954195C 0000241653800?6175638920 61 7563 8920 1165-anc +6I1954195C 0000241654800?6184770100 61 8477 0100 1166-aup +6I1954195C 0000241655800?6187610500 61 8761 0500 1167-axa +6I1954195C 0000241656800?6187620520 61 8762 0520 1168-axb +6I1954195C 0000241657800?6187630580 61 8763 0580 1169-axc +6I1954195C 0000241658800?6264760900 62 6476 0900 1170-bdo +6I1954195C 0000241659800?6264900900 62 6490 0900 1171-bd0 now ok +6I1954195C 0000241660800?6264910910 62 6491 0910 1172-bd1 +6I1954195C 0000241661800?6264920920 62 6492 0920 1173-bd2 +6I1954195C 0000241662800?6264930930 62 6493 0930 1174-bd3 +6I1954195C 0000241663800?6264940940 62 6494 0940 1175-bd4 +6I1954195C 0000241664800?6264950950 62 6495 0950 1176-bd5 +6I1954195C 0000241665800?6264960960 62 6496 0960 1177-bd6 +6I1954195C 0000241666800?6264970970 62 6497 0970 1178-bd7 +6I1954195C 0000241667800?6264980980 62 6498 0980 1179-bd8 +6I1954195C 0000241668800?6264990990 62 6499 0990 1180-bd9 +6I1954195C 0000241669800?6269750260 62 6975 0260 1181-bin +6I1954195C 0000241670800?6273614802 62 7361 4802 1182-bla +6I1954195C 0000241671800?6273794801 62 7379 4801 1183-blr +6I1954195C 0000241672800?6274610410 62 7461 0410 1184-bma +6I1954195C 0000241673800?6274620430 62 7462 0430 1185-bmb +6I1954195C 0000241674800?6274630490 62 7463 0490 1186-bmc +6I1954195C 0000241675800?6274690460 62 7469 0460 1187-bmi +6I1954195C 0000241676800?6276774814 62 7677 4814 1188-bop +6I1954195C 0000241677800?6276850470 62 7685 0470 1189-bov +6I1954195C 0000241678800?6282830570 62 8283 0570 1190-bst +6I1954195C 0000241679800?6469850140 64 6985 0140 1191-div +6I1954195C 0000241680800?6473614815 64 7361 4815 1192-dla +6I1954195C 0000241681800?6485790640 64 8579 0640 1193-dvr +6I1954195C 0000241682800?6573848643 65 7384 8643 1194-elu +6I1954195C 0000241683800?6578844804 65 7884 4804 1195-equ +6I1954195C 0000241684800?6661640320 66 6164 0320 1196-fad +6I1954195C 0000241685800?6661740370 66 6174 0370 1197-fam +6I1954195C 0000241686800?6664850340 66 6485 0340 1198-fdv +6I1954195C 0000241687800?6674770390 66 7477 0390 1199-fmp +6I1954195C 0000241688800?6682620330 66 8262 0330 1200-fsb +6I1954195C 0000241689800?6682740380 66 8274 0380 1201-fsm +6I1954195C 0000241690800?6865644808 68 6564 4808 1202-hed +6I1954195C 0000241691800?6873830010 68 7383 0010 1203-hlt +6I1954195C 0000241692800?7364640690 73 6464 0690 1204-ldd +6I1954195C 0000241693800?7364690090 73 6469 0090 1205-ldi +6I1954195C 0000241694800?7369620080 73 6962 0080 1206-lib +6I1954195C 0000241695800?7477880190 74 7788 0190 1207-mpy +6I1954195C 0000241696800?7561638565 75 6163 8565 1208-nac +6I1954195C 0000241697800?7565660540 75 6566 0540 1209-nef +6I1954195C 0000241700800?7565848642 75 6584 8642 1211-neu +6I1954195C 0000241701800?7576770000 75 7677 0000 1212-nop +6I1954195C 0000241702800?7583820250 75 8382 0250 1213-nts +6I1954195C 0000241703800?7589610400 75 8961 0400 1214-nza +6I1954195C 0000241704800?7589620420 75 8962 0420 1215-nzb +6I1954195C 0000241705800?7589630480 75 8963 0480 1216-nzc +6I1954195C 0000241706800?7589650450 75 8965 0450 1217-nze +6I1954195C 0000241707800?7589840440 75 8984 0440 1218-nzu +6I1954195C 0000241708800?7761834807 77 6183 4807 1219-pat +6I1954195C 0000241709800?7763680710 77 6368 0710 1220-pch +6I1954195C 0000241710800?7782834812 77 8283 4812 1221-pst +6I1954195C 0000241711800?7961610800 79 6161 0800 1222-raa +6I1954195C 0000241712800?7961620820 79 6162 0820 1223-rab +6I1954195C 0000241713800?7961630880 79 6163 0880 1224-rac +6I1954195C 0000241714800?7961730650 79 6173 0650 1225-ral +6I1954195C 0000241715800?7961740670 79 6174 0670 1226-ram +6I1954195C 0000241716800?7961840600 79 6184 0600 1227-rau +6I1954195C 0000241717800?7962794811 79 6279 4811 1228-rbr +6I1954195C 0000241718800?7963640700 79 6364 0700 1229-rcd +6I1954195C 0000241719800?7963910720 79 6391 0720 1230-rc1 +6I1954195C 0000241720800?7963920750 79 6392 0750 1231-rc2 +6I1954195C 0000241721800?7963930780 79 6393 0780 1232-rc3 +6I1954195C 0000241722800?7964794813 79 6479 4813 1233-rdr +6I1954195C 0000241723800?7964820860 79 6482 0860 1234-rds +6I1954195C 0000241724800?7964910700 79 6491 0700 1235-rd1 +6I1954195C 0000241725800?7964920730 79 6492 0730 1236-rd2 +6I1954195C 0000241726800?7964930760 79 6493 0760 1237-rd3 +6I1954195C 0000241727800?7965674803 79 6567 4803 1238-reg +6I1954195C 0000241728800?7965734809 79 6573 4809 1239-rel +6I1954195C 0000241729800?7965784810 79 6578 4810 1240-req +6I1954195C 0000241730800?7977880790 79 7788 0790 1241-rpy +6I1954195C 0000241731800?7982610810 79 8261 0810 1242-rsa +6I1954195C 0000241732800?7982620830 79 8262 0830 1243-rsb +6I1954195C 0000241733800?7982630890 79 8263 0890 1244-rsc +6I1954195C 0000241734800?7982730660 79 8273 0660 1245-rsl +6I1954195C 0000241735800?7982740680 79 8274 0680 1246-rsm +6I1954195C 0000241736800?7982790120 79 8279 0120 1247-rsr +6I1954195C 0000241737800?7982840610 79 8284 0610 1248-rsu +6I1954195C 0000241738800?7983610050 79 8361 0050 1249-rta +6I1954195C 0000241739800?7983630030 79 8363 0030 1250-rtc +6I1954195C 0000241740800?7983750040 79 8375 0040 1251-rtn +6I1954195C 0000241741800?7983828205 79 8382 8205 1252-rts +6I1954195C 0000241742800?7986640550 79 8664 0550 1253-rwd +6I1954195C 0000241743800?8263830360 82 6383 0360 1254-sct +6I1954195C 0000241744800?8264610220 82 6461 0220 1255-sda +6I1954195C 0000241745800?8264820850 82 6482 0850 1256-sds +6I1954195C 0000241746800?8265784816 82 6578 4816 1257-seq +6I1954195C 0000241747800?8265830270 82 6583 0270 1258-set +6I1954195C 0000241750800?8266745019 82 6674 5019 1260-sfm +6I1954195C 0000241751800?8269610230 82 6961 0230 1261-sia +6I1954195C 0000241752800?8269620280 82 6962 0280 1262-sib +6I1954195C 0000241753800?8273760160 82 7376 0160 1263-slo +6I1954195C 0000241754800?8273830350 82 7383 0350 1264-slt +6I1954195C 0000241755800?8274730180 82 7473 0180 1265-sml +6I1954195C 0000241756800?8277825630 82 7782 5630 1266-sps +6I1954195C 0000241757800?8279640310 82 7964 0310 1267-srd +6I1954195C 0000241758800?8279830300 82 7983 0300 1268-srt +6I1954195C 0000241759800?8283640240 82 8364 0240 1269-std +6I1954195C 0000241760800?8283690290 82 8369 0290 1270-sti +6I1954195C 0000241761800?8283730200 82 8373 0200 1271-stl +6I1954195C 0000241762800?8283840210 82 8384 0210 1272-stu +6I1954195C 0000241763800?8284770110 82 8477 0110 1273-sup +6I1954195C 0000241764800?8287610510 82 8761 0510 1274-sxa +6I1954195C 0000241765800?8287620530 82 8762 0530 1275-sxb +6I1954195C 0000241766800?8287630590 82 8763 0590 1276-sxc +6I1954195C 0000241767800?8288754805 82 8875 4805 1277-syn +6I1954195C 0000241768800?8361774817 83 6177 4817 1278-tap +6I1954195C 0000241769800?8373650630 83 7365 0630 1279-tle +6I1954195C 0000241770800?8373840840 83 7384 0840 1280-tlu +6I1954195C 0000241771800?8388767879 83 8876 7879 1281-tyo +6I1954195C 0000241772800?8466610020 84 6661 0020 1282-ufa +6I1954195C 0000241773800?8664820870 86 6482 0870 1283-wds +6I1954195C 0000241774800?8679910710 86 7991 0710 1284-wr1 +6I1954195C 0000241775800?8679920740 86 7992 0740 1285-wr2 +6I1954195C 0000241776800?8679930770 86 7993 0770 1286-wr3 +6I1954195C 0000241777800?8683610070 86 8361 0070 1287-wta +6I1954195C 0000241778800?8683740560 86 8374 0560 1288-wtm +6I1954195C 0000241779800?8683750060 86 8375 0060 1289-wtn +6I1954195C 0000241780800?8683825307 86 8382 5307 1290-wts +6I1954195C 0000241781800?8766794818 87 6679 4818 1291-xfr +6I1954195C 0000241782800?9563644819 95 6364 4819 1292-5cd +6I1954195C 0000241783800?0000000000 00 0000 0000 1293- +6I1954195C 0000241784800?0000000000 00 0000 0000 1294- +6I1954195C 0000241785800?0000000000 00 0000 0000 1295- +6I1954195C 0000241786800?9999999999 99 9999 9999 1296-table end +6I1954195C 0000241000800?6919503753 1000lddreadcsub16 1301-entry +6I1954195C 0000241950800?7019991998 readcrcd 1999 1998 1303-read card +6I1954195C 0000241998800?6019511906 1998rau 1951 1304-transfer +6I1954195C 0000241906800?2419771130 stdp0001 1305-alphabetic +6I1954195C 0000241130800?2008281481 stlindxi 1306- +6I1954195C 0000241481800?6919523106 ldd 1952 1307-input +6I1954195C 0000243106800?2419781531 stdp0002 1308-to +6I1954195C 0000241531800?6919533156 ldd 1953 1309-output +6I1954195C 0000243156800?2419791082 stdp0003 1310- +6I1954195C 0000241082800?6919541508 ldd 1954 1311- +6I1954195C 0000241508800?2419801383 stdp0004 1312- +6I1954195C 0000241383800?6919551558 ldd 1955 1313- +6I1954195C 0000241558800?2419811334 stdp0005 1314- +6I1954195C 0000241334800?6919561610 ldd 1956 1315- +6I1954195C 0000241610800?2419821135 stdp0006count 1316- +6I1954195C 0000241135800?6519851289 countralp0009 1317-step +6I1954195C 0000241289800?1505503756 alo1ixxx 1318-card +6I1954195C 0000243756800?2019851038 stlp0009 1319-number +6I1954195C 0000241038800?6019601316 rau 1960 1320- +6I1954195C 0000241316800?2006801433 stltyp3a 1321-zro testwd +6I1954195C 0000241433800?3000021339 srt 0002 1322-store +6I1954195C 0000241339800?1680021147 slo 8002 1323-control +6I1954195C 0000241147800?2419861389 stdp0010 1324-info +6I1954195C 0000241389800?1580031247 alo 8003 1325- +6I1954195C 0000241247800?1006400995 auptrans 1326- +6I1954195C 0000240995800?2119840652 stup0008intox 1327- +6I1954195C 0000240652800?1502993803 intoxalotorgptest 1331-pass cntrl +6I1954195C 0000243806800?0000001990 torg 00 0000t0001 1333- +6I1954195C 0000240299800?0000001185 torgp 00 0000o0001 1335-constants +6I1954195C 0000241852800?6506801235 punchraltyp3a 1341-test typ3 +6I1954195C 0000241235800?4510881439 nze h8pre 1342- +6I1954195C 0000241088800?6019861491 raup0010 1343-add contrl +6I1954195C 0000241491800?1016013856 aup86thapreh8 1344-8 to p0010 +6I1954195C 0000241439800?6019863856 h8preraup0010preh8 1345- +6I1954195C 0000243856800?6907721057 preh8lddset5 h8sub 1346- +6I1954195C 0000240772800?6516301285 set5 ralpchexlit 1347-1/cd exit +6I1954195C 0000243127800?4711801180 5/cd bov 1350- +6I1954195C 0000241180800?6019861541 raup0010 1351-test neg +6I1954195C 0000241541800?3500011297 slt 0001 1352-instrcyn +6I1954195C 0000241297800?1008581813 auph8xxx 1353- +6I1954195C 0000241813800?4713661318 bovneg 1354- +6I1954195C 0000241318800?6719831787 ramp0007posit 1355-positive +6I1954195C 0000241366800?6819831787 neg rsmp0007posit 1356-negative +6I1954195C 0000241787800?2009820045 positstl+0006*0001 1357-stor inst +6I1954195C 0000240045800?6519841489 *0001ralp0008 1358- +6I1954195C 0000241489800?6980030646 ldd 8003loc 1359- +6I1954195C 0000240646800?2219410046 loc sda-0005*0002 1360-stor loc +6I1954195C 0000240046800?6017871791 *0002rauposit 1361- +6I1954195C 0000241791800?1110441049 sup+max 1362-test pch +6I1954195C 0000241049800?4438531554 nzu 5cd 1363- +6I1954195C 0000243853800?1039063761 aup+amp1+ 1364-up store +6I1954195C 0000243761800?2117871090 + stuposit 1365-instrctns +6I1954195C 0000241090800?1010931347 auplocm 1366- +6I1954195C 0000241347800?2106460776 stuloc pexit 1367- +6I1954195C 0000241554800?6019391143 5cd rau-0003 1369- +6I1954195C 0000241143800?3000021099 srt 0002 1370-set 5/cd +6I1954195C 0000241099800?1519411045 alo-0005 1371-locations +6I1954195C 0000241045800?3000043956 srt 0004 1372-in words +6I1954195C 0000243956800?1519401095 alo-0004 1373-7-8 of +6I1954195C 0000241095800?2009841837 stl+0008 1374-output cd +6I1954195C 0000241837800?3500021243 slt 0002 1375- +6I1954195C 0000241243800?1019381293 aup-0002 1376- +6I1954195C 0000241293800?3000043903 srt 0004 1377- +6I1954195C 0000243903800?1019371841 aup-0001 1378- +6I1954195C 0000241841800?3500021397 slt 0002 1379- +6I1954195C 0000241397800?2109833186 stu+0007 1380- +6I1954195C 0000243186800?7109773177 pch+0001 1381-pch 5/cd +6I1954195C 0000243177800?6709771581 ram+0001 1382-up card +6I1954195C 0000241581800?1505501808 alo1ixxx 1383-number +6I1954195C 0000241808800?2009771230 stl+0001 1384- +6I1954195C 0000241230800?6014833761 raurset + 1385- +6I1954195C 0000240776800?6516301285 pexitralpchexlit 1387-test litrl +6I1954195C 0000241285800?4511381539 lit nzetryit 1388-symbl no +6I1954195C 0000241539800?6014511858 rauitagwhld5c 1389-+ '+u +6I1954195C 0000241858800?4438111950 hld5cnzuitag readc 1390- +6I1954195C 0000241862800?6906401343 tsfullddtrans 1392-test full +6I1954195C 0000241343800?9206961950 bd2 readc 1393-symbl tabl +6I1954195C 0000240696800?6907761429 lddpexit 1394- +6I1954195C 0000241429800?2407723775 stdset5 1395-suspend +6I1954195C 0000243775800?6910281831 lddrsltt 1396-5/cd punch +6I1954195C 0000241831800?2418581950 stdhld5creadc 1397- +6I1954195C 0000241028800?4438111862 rslttnzuitag tsful 1398- +6I1954195C 0000243811800?2014161869 itag stlwhere 1399- +6I1954195C 0000241869800?4611221423 bmisecndhirst 1400- +6I1954195C 0000241122800?6938251078 secndlddsaved 1401- +6I1954195C 0000241078800?2406430796 stdopreg 1402- +6I1954195C 0000240796800?2014510776 stlitagwpexit 1403- +6I1954195C 0000241423800?6180031881 hirstrsu 8003 1404- +6I1954195C 0000241881800?2114511604 stuitagw 1405- +6I1954195C 0000241604800?6019831887 raup0007 1406- +6I1954195C 0000241887800?3500021393 slt 0002 1407- +6I1954195C 0000241393800?6580031902 ral 8003 1408- +6I1954195C 0000241902800?3000063167 srt 0006 1409- +6I1954195C 0000243167800?2038251128 stlsaved 1410- +6I1954195C 0000241128800?6714511908 ramitagw 1411- +6I1954195C 0000241908800?3500021466 slt 0002 1412- +6I1954195C 0000241466800?1780011473 aml 8001 1413- +6I1954195C 0000241473800?3500031931 slt 0003 1414- +6I1954195C 0000241931800?1013841789 aupnzsym 1415- +6I1954195C 0000241789800?2119543108 stu 1954 1416- +6I1954195C 0000243108800?6019533158 rau 1953 1417- +6I1954195C 0000243158800?2419523758 std 1952 1418- +6I1954195C 0000243758800?2019511804 stl 1951 1419- +6I1954195C 0000241804800?6938080850 ldd subr4 1420- +6I1954195C 0000243808800?0000000091 00 0000/0001 1421- +6I1954195C 0000240091800?6919593112 /0001ldd 1959set58 1422- +6I1954195C 0000243112800?2419581998 set58std 1958 1998 1423- +6I1954195C 0000240092800?6919593112 /0002ldd 1959set58 1424- +6I1954195C 0000240093800?0000001998 /0003nop 0000 1998 1425- +6I1954195C 0000240191800?0000001998 /0101nop 0000 1998 1426- +6I1954195C 0000241138800?6014513858 tryitrauitagw 1427- +6I1954195C 0000243858800?4438613162 nzu litc 1428- +6I1954195C 0000243861800?4611221516 bmisecnd 1429- +6I1954195C 0000241516800?6919833786 lddp0007 1430- +6I1954195C 0000243786800?2418390242 stdabsol 1431- +6I1954195C 0000240242800?6919783131 lddp0002 1432- +6I1954195C 0000243131800?2414341987 stdlitsm 1433- +6I1954195C 0000241987800?2414161423 stdwherehirst 1434- +6I1954195C 0000243162800?6014161371 litc rauwhere 1436- +6I1954195C 0000241371800?2019783181 stlp0002 1437- +6I1954195C 0000243181800?4413353836 nzumoved 1438- +6I1954195C 0000243836800?6519523908 ral 1952ornry 1439- +6I1954195C 0000241335800?6918390292 movedlddabsol 1440-trsfr data +6I1954195C 0000240292800?2419833886 stdp0007 1441-to normal +6I1954195C 0000243886800?6514341889 rallitsm 1442-area +6I1954195C 0000241889800?2114163908 stuwhereornry 1443- +6I1954195C 0000243908800?3000061523 ornrysrt 0006 1444-test neg m +6I1954195C 0000241523800?1608263781 sloalfm 1445- +6I1954195C 0000243781800?4514841385 nzeh8x 1446- +6I1954195C 0000241385800?6512381443 ralh88 st88 1447- +6I1954195C 0000241484800?6508581443 h8x ralh8xxxst88 1448- +6I1954195C 0000241443800?1006941149 st88 aupddrmt 1449-drum paked +6I1954195C 0000241149800?4439531854 nzu stlit 1450- +6I1954195C 0000243953800?1504941854 alo87nthstlit 1451- +6I1954195C 0000241854800?2019861989 stlitstlp0010 1452- +6I1954195C 0000241989800?6519853139 ralp0009 1453- +6I1954195C 0000243139800?1505503958 alo1ixxx 1454- +6I1954195C 0000243958800?2019851288 stlp0009 1455- +6I1954195C 0000241288800?2119771280 stup0001 1456- +6I1954195C 0000241280800?6519833137 ralp0007 1457- +6I1954195C 0000243137800?6911401493 lddtran1 1458- +6I1954195C 0000241493800?2219843187 sdap0008 1459- +6I1954195C 0000243187800?6019811435 raup0005 1460- +6I1954195C 0000241435800?6913380099 ldd compr 1461- +6I1954195C 0000241338800?6019823787 raup0006 1462- +6I1954195C 0000243787800?6912401543 lddstp7 1463- +6I1954195C 0000241543800?2419621616 stdxxxx2sct 1464- +6I1954195C 0000241240800?2116301533 stp7 stupchex 1465- +6I1954195C 0000241533800?2419791132 stdp0003 1466- +6I1954195C 0000241132800?6914851388 lddltalf 1467- +6I1954195C 0000241388800?2419803148 stdp0004 1468- +6I1954195C 0000243148800?6007723198 rauset5 1469-are we in +6I1954195C 0000243198800?1137833848 supbrnch 1470-5cd mode +6I1954195C 0000243848800?4418523899 nzupunch 1470- +6I1954195C 0000243899800?6939493999 lddrset5 1470- +6I1954195C 0000243999800?2407721852 stdset5 punch 1470- +6I1954195C 0000243949800?6937833798 rset5lddbrnchrstor 1470- +6I1954195C 0000243798800?2407723127 rstorstdset5 5/cd 1470- +6I1954195C 0000241044800?2009820045 +max stl+0006*0001 1471- +6I1954195C 0000243906800?2009830045 +amp1stl+0007*0001 1472- +6I1954195C 0000241093800?0209590001 locm 02 0959 0001 1473- +6I1954195C 0000243102800?4438111950 symflnzuitag readc 1475- +6I1954195C 0000241238800?8800000000 h88 88 0000 0000 1476- +6I1954195C 0000240826800?0000000074 alfm 00 0000 0074 1477- +6I1954195C 0000241485800?7369830000 ltalf 73 6983 0000 1478- +6I1954195C 0000241140800?0900009991 tran1 09 0000 9991 1479- +6I1954195C 0000241384800?7589606000 nzsym 75 8960 6000 1480- +6I1954195C 0000240099800?2419621816 comprstdxxxx2 1483- +6I1954195C 0000241816800?2019831616 stlp0007sct 1484- +6I1954195C 0000241616800?3600003189 sct sct 0000ckzer 1485- +6I1954195C 0000243189800?4415931962 ckzernzu xxxx2 1486- +6I1954195C 0000241593800?3500011249 slt 0001 1487- +6I1954195C 0000241249800?6580031810 ral 8003 1488- +6I1954195C 0000241810800?1019833837 aupp0007 1489- +6I1954195C 0000243837800?3500011793 slt 0001 1490- +6I1954195C 0000241793800?2119833936 stup0007 1491- +6I1954195C 0000243936800?6080023189 rau 8002ckzer 1492- +6I1954195C 0000243152800?6019501600 setccraureadcsub10 1495-sudo exit +6I1954195C 0000241800800?6919501904 1800lddreadcsub22 1497-manual pst +6I1954195C 0000241900800?6919503104 1900lddreadcsub14 1499-manual pat +6I1954195C 0000241993800?2406801990 t0004stdtyp3at0001 1501-set testwd +6I1954195C 0000241990800?6918430650 t0001ldd subr3 1502-type 0 +6I1954195C 0000241843800?6908461501 ldd procl 1503-650 +6I1954195C 0000240846800?6912991801 ldd procd 1504-command or +6I1954195C 0000241299800?6918523951 lddpunchproci 1505-constants +6I1954195C 0000241991800?6019541860 t0002rau 1954 1508- +6I1954195C 0000241860800?1114853789 supltalf 1509- +6I1954195C 0000243789800?4431521094 nzusetcccdnod 1510- +6I1954195C 0000241094800?6519853839 cdnodralp0009 1511- +6I1954195C 0000243839800?1605501910 slo1ixxx 1512- +6I1954195C 0000241910800?2019851950 stlp0009readc 1513- +6I1954195C 0000243803800?6580023911 test ral 8002 1518-if zero +6I1954195C 0000243911800?3500031919 slt 0003 1519-enter +6I1954195C 0000241919800?4415738001 nzu 8001 1520-multipass +6I1954195C 0000241573800?6906743777 lddhhold 1521-restore +6I1954195C 0000243777800?2406681421 std0000h 1522-card numbr +6I1954195C 0000241421800?6904911144 lddnhold 1523-and +6I1954195C 0000241144800?2419851438 stdp0009 1524-heading +6I1954195C 0000241438800?6580001145 ral 8000 1525-pst if +6I1954195C 0000241145800?4604481349 bmi zero 1526-8000 is +6I1954195C 0000240448800?6913491904 lddzero sub22 1527-minus +6I1954195C 0000241349800?6937523753 zero ldd1998xsub16 1529-zero sym t +6I1954195C 0000241353800?6931101863 firstldd8d888 1531-alter +6I1954195C 0000241863800?2406401893 stdtrans 1532-control +6I1954195C 0000241893800?6908961399 lddintop 1533-for cards +6I1954195C 0000241399800?2406523803 stdintoxtest 1534-2 thru x +6I1954195C 0000241186800?6019501600 o0002raureadcsub10 1536-comments +6I1954195C 0000241187800?0000001189 o0003nop 0000o0005 1537-relocate +6I1954195C 0000241188800?2406801185 o0004stdtyp3ao0001 1538-set testwd +6I1954195C 0000241185800?6519543160 o0001ral 1954 1539-type 0 +6I1954195C 0000243160800?1616901245 sloc0041 1540-test hed +6I1954195C 0000241245800?3500063760 slt 0006 1541- +6I1954195C 0000243760800?4419130808 nzu 0808 1542- +6I1954195C 0000241913800?6019513810 rau 1951 1543- +6I1954195C 0000243810800?1531133767 aloo5 look 1544- +6I1954195C 0000241189800?6019523860 o0005rau 1952 1545-control +6I1954195C 0000243860800?1531633767 aloo6 look 1546-exits for +6I1954195C 0000241190800?6019533910 o0006rau 1953 1547-examining +6I1954195C 0000243910800?1537633767 aloo7 look 1548-loc data +6I1954195C 0000241191800?6519861891 o0007ralp0010 1549-and inst +6I1954195C 0000241891800?2106801583 stutyp3a 1550-zro testwd +6I1954195C 0000241583800?1539863141 alo8and8 1551-addresses +6I1954195C 0000243141800?2019861852 stlp0010punch 1552- +6I1954195C 0000243767800?4414718001 look nzu 8001 1553-blank +6I1954195C 0000241471800?2406533960 stdexitx 1554- +6I1954195C 0000243960800?6938131866 lddo11 1555- +6I1954195C 0000241866800?2238131916 sdao11 1556- +6I1954195C 0000241916800?6080031823 rau 8003 1557- +6I1954195C 0000241823800?6908760850 lddo8 subr4 1558- +6I1954195C 0000241192800?0000000653 o0008nop 0000exitx 1559- +6I1954195C 0000241193800?0000000653 o0009nop 0000exitx 1560-regional +6I1954195C 0000241194800?6938131050 o0010lddo11 subr6 1561-symbolic +6I1954195C 0000241292800?6938131050 o010 lddo11 subr6 1562- +6I1954195C 0000241196800?0000000653 o0012nop 0000exitx 1563-undefined +6I1954195C 0000241195800?6510133817 o0011ralequiv 1564-defined or +6I1954195C 0000243817800?3500043827 slt 0004 1565-previously +6I1954195C 0000243827800?1006533961 aupexitx 1566-establishd +6I1954195C 0000243961800?1001441449 aup8ixxx 1567- +6I1954195C 0000241449800?6919838003 lddp0007 8003 1568- +6I1954195C 0000241197800?6919843887 o0013lddp0008 1569-cause drum +6I1954195C 0000243887800?2219843937 sdap0008 1570-equivalent +6I1954195C 0000243937800?6612901295 rsl3000ifix 1571-to be pchd +6I1954195C 0000241198800?2219833987 o0014sdap0007 1572-as l d or +6I1954195C 0000243987800?6608241295 rsl0200ifix 1573-i and 5 6 +6I1954195C 0000241199800?3000043762 o001 srt 0004 1574-or 7 to be +6I1954195C 0000243762800?2319831488 siap0007 1575-punched +6I1954195C 0000241488800?6605511295 rsl0010ifix 1576-accordngly +6I1954195C 0000241295800?1519843889 fix alop0008 1577- +6I1954195C 0000243889800?2019840653 stlp0008exitx 1578- +6I1954195C 0000243110800?0800008880 8d888 08 0000 8880 1580- +6I1954195C 0000240896800?1502993803 intopalotorgptest 1581- +6I1954195C 0000243752800?0008001998 1998xnop 0800 1998 1582- +6I1954195C 0000243113800?0000081189 o5 nop 0008o0005 1583-constants +6I1954195C 0000243163800?0000891190 o6 nop 0089o0006 1584- +6I1954195C 0000243763800?0000991191 o7 nop 0099o0007 1585- +6I1954195C 0000243986800?0080080000 8and8 00 8008 0000 1586- +6I1954195C 0000240876800?0000001192 o8 nop 0000o0008 1587- +6I1954195C 0000243813800?0000001195 o11 nop 0000o0011 1588-eraseable +6I1954195C 0000241992800?6913450650 t0003ldd subr3 1593-process op +6I1954195C 0000241345800?6519513812 ral 1951 1594-is l fixed +6I1954195C 0000243812800?3500021969 slt 0002 1595- +6I1954195C 0000241969800?4418730974 nzu rel 1596- +6I1954195C 0000241873800?6019573862 rau 1957 1597-fixed l +6I1954195C 0000243862800?1108363191 sup4000i 1598-drum core +6I1954195C 0000243191800?4612441395 bmi fc 1599- +6I1954195C 0000241244800?1080013802 aup 8001res 1600-fixed drum +6I1954195C 0000241395800?6519573912 fc ral 1957setl 1601-+ '+u +6I1954195C 0000243852800?6519513912 sr ral 1951setl 1602- +6I1954195C 0000243912800?3500041923 setl slt 0004 1603- +6I1954195C 0000241923800?6919841538 lddp0008 1604- +6I1954195C 0000241538800?2219841788 sdap0008prod 1605- +6I1954195C 0000240974800?6019573962 rel rau 1957 1606-drum core +6I1954195C 0000243962800?1108363791 sup4000i 1607- +6I1954195C 0000243791800?4612941445 bmi rc 1608- +6I1954195C 0000241294800?1014473902 aupddiff 1609-relocate +6I1954195C 0000243902800?4638633913 bmi bl 1610-drum addr +6I1954195C 0000243863800?1008363802 aup4000ires 1611- +6I1954195C 0000243802800?2119513154 res stu 1951 1612- +6I1954195C 0000243154800?2019623116 stlxxxx2 - +6I1954195C 0000243116800?6938521402 lddsr subr2 1614- +6I1954195C 0000241445800?6519573963 rc ral 1957 1615-relocate +6I1954195C 0000243963800?1531661521 alocdiff 1616-core +6I1954195C 0000241521800?1610241479 slo9060 1617- +6I1954195C 0000241479800?4611823913 bmi bl 1618- +6I1954195C 0000241182800?1580013912 alo 8001setl 1619- +6I1954195C 0000243913800?6017883800 bl rauprod sub12 1620-bl4nk l +6I1954195C 0000241788800?6938411344 prod lddproi 1625-set d exit +6I1954195C 0000241344800?2406533114 stdexitx 1626- +6I1954195C 0000243114800?6019523164 rau 1952 1627-what is d +6I1954195C 0000243164800?6938670850 lddh subr4 1628- +6I1954195C 0000240902800?6519583764 h0001ral 1958 1629-relocate +6I1954195C 0000243764800?1608363891 slo4000i 1630-d 0r c +6I1954195C 0000243891800?4615641563 bmi 1564 1563 1631- +6I1954195C 0000240903800?3000081571 h0002srt 0008 1632-c d or f +6I1954195C 0000241571800?1010748003 aup1500 8003 1633- +6I1954195C 0000241563800?6531661821 1563ralcdiffcdd 1634-c +6I1954195C 0000241564800?6514471821 1564ralddiffcdd 1635-d +6I1954195C 0000241566800?6519580944 1566ral 1958j0001 1636-f +6I1954195C 0000241821800?1519580944 cdd alo 1958j0001 1637- +6I1954195C 0000240904800?0000000943 h0003nop 0000g0003 1638-symbolic +6I1954195C 0000241002800?0000001041 h0101nop 0000 1041 - +6I1954195C 0000243841800?6918523814 proi lddpunch 1644-set i exit +6I1954195C 0000243814800?2406533864 stdexitx 1645- +6I1954195C 0000243864800?6019533914 rau 1953 1646-what is i +6I1954195C 0000243914800?6939170850 lddm subr4 1647- +6I1954195C 0000240905800?6519593964 m0001ral 1959 1648-relocate +6I1954195C 0000243964800?1608363941 slo4000i 1649-d or c +6I1954195C 0000243941800?4615681567 bmi 1568 1567 1650- +6I1954195C 0000240906800?3000083875 m0002srt 0008 1651-c d or f +6I1954195C 0000243875800?1011788003 aup1504 8003 1652- +6I1954195C 0000241567800?6531661871 1567ralcdiffcdi 1653-c +6I1954195C 0000241568800?6514471871 1568ralddiffcdi 1654-d +6I1954195C 0000241570800?6519590960 1570ral 1959j0001 1655-f +6I1954195C 0000241871800?1519590960 cdi alo 1959j0001 1656- +6I1954195C 0000240907800?0000000957 m0003nop 0000 0957 -symbolic +6I1954195C 0000241005800?0000001055 m0101nop 0000 1055 - +6I1954195C 0000241024800?0000009060 9060 00 0000 9060 1660- +6I1954195C 0000243867800?0000000902 h 00 0000h0001 1661- +6I1954195C 0000241074800?0000001500 1500 00 0000 1500 1662- +6I1954195C 0000243917800?0000000905 m 00 0000m0001 1663- +6I1954195C 0000241178800?0000001504 1504 00 0000 1504 1664- +6I1954195C 0000240814800?6931523753 0814lddsetccsub16 1670- +6I1954195C 0000240801800?6519593766 0801ral 1959blr 1674- +6I1954195C 0000243766800?6931191172 blr lddzerooblr1 1675- +6I1954195C 0000243119800?0000000000 zeroo 00 0000 0000 1676- +6I1954195C 0000241172800?2419623816 blr1 stdxxxx2 - +6I1954195C 0000243816800?1619583866 slo 1958 1678- +6I1954195C 0000243866800?1080011973 aup 8001 1679- +6I1954195C 0000241973800?1108363991 sup4000i 1680- +6I1954195C 0000243991800?4613943152 bmi setcc 1681- +6I1954195C 0000241394800?1080013952 aup 8001 1682- +6I1954195C 0000243952800?6931521402 lddsetccsubr2 1683- +6I1954195C 0000240811800?6014473754 0811rauddiff 1687- +6I1954195C 0000243754800?1519593766 alo 1959blr 1688- +6I1954195C 0000240815800?6913681921 0815lddits50 1692-dla +6I1954195C 0000241921800?2409880342 std1or50 1693-routine +6I1954195C 0000240342800?6914950498 ldd24 1694- +6I1954195C 0000240498800?2415103916 std56 2 1695-modfy +6I1954195C 0000243916800?6931691222 ldd35 1696-subr2 +6I1954195C 0000241222800?2415603966 std78 2 1697- +6I1954195C 0000243966800?6918191272 lddtpr 2 1698- +6I1954195C 0000241272800?2412341838 stdeithr 1699- +6I1954195C 0000241838800?6903921545 lddpreex 1700- +6I1954195C 0000241545800?2431520802 stdsetcc 0802 1701- +6I1954195C 0000240392800?6915950548 preexldd13 1702- +6I1954195C 0000240548800?2415103967 std56 2 1703-reset +6I1954195C 0000243967800?6910203123 ldd08 1704-exits +6I1954195C 0000243123800?2415601418 std78 2 1705- +6I1954195C 0000241418800?6919711124 ldd964 1706- +6I1954195C 0000241124800?2412341888 stdeithr 1707- +6I1954195C 0000241888800?6904421795 lddslo11 1708- +6I1954195C 0000241795800?2409880492 std1or50 1709- +6I1954195C 0000240492800?6918450598 lddpcha 1710- +6I1954195C 0000240598800?2431528001 stdsetcc 8001 1711- +6I1954195C 0000241368800?1638501506 its50slo50xxxnext2 1712- +6I1954195C 0000241495800?6010223117 24 rausa 2su 2 1713- +6I1954195C 0000243169800?6010223877 35 rausa 2 1714- +6I1954195C 0000243877800?1005543117 aup1dxxxsu 2 1715- +6I1954195C 0000241020800?6010221927 08 rausa 2178 2 1716- +6I1954195C 0000241971800?6010221827 964 rausa 2eith2 1717- +6I1954195C 0000240442800?1605501506 slo11slo1ixxxnext2 1718- +6I1954195C 0000241845800?6019501600 pcha raureadcsub10 1719- +6I1954195C 0000241595800?6010221877 13 rausa 2sz 2 1720- +6I1954195C 0000240802800?6519591468 0802ral 1959 1724- +6I1954195C 0000241468800?2114531518 studrumt 1725- +6I1954195C 0000241518800?2406941497 stdddrmt 1726- +6I1954195C 0000241497800?6905591172 ldd(0010blr1 1727- +6I1954195C 0000240803800?6019521618 0803rau 1952 1732- +6I1954195C 0000241618800?6931210349 ldd stor9 1733- +6I1954195C 0000243121800?1511741529 alost 1734- +6I1954195C 0000241529800?1019581818 aup 1958 1735- +6I1954195C 0000241818800?1014038002 auph9xxx 8002 1736-add def 9 +6I1954195C 0000241174800?2116500801 st stu 1650 0801 1738-store reg +6I1954195C 0000240804800?6908581868 0804lddh8xxxboth 1745- +6I1954195C 0000240805800?6914031868 0805lddh9xxxboth 1746- +6I1954195C 0000241868800?2431711224 both stdtag 1747- +6I1954195C 0000241224800?6019531918 rau 1953 1748-what is 1 +6I1954195C 0000241918800?6937710850 lddz subr4 1749- +6I1954195C 0000240917800?6519590915 z0001ral 1959y0001 1750-absolute +6I1954195C 0000240918800?1538211500 z0002aloy subr9 1751- +6I1954195C 0000240915800?2019583118 y0001stle 1752- +6I1954195C 0000243118800?2419593168 std 1959td 1753- +6I1954195C 0000240916800?6519860592 y0002ralp0010bp 1754-reg error +6I1954195C 0000240919800?6913221050 z0003lddw subr6 1755-symbolic +6I1954195C 0000241017800?6913221050 z0101lddw subr6 1756- +6I1954195C 0000240920800?6510130915 w0001ralequivy0001 1757-s defined +6I1954195C 0000240921800?6519860592 w0002ralp0010bp 1758-s undefind +6I1954195C 0000243168800?6019523768 td rau 1952 1760-head d +6I1954195C 0000243768800?6938710621 ldd sub15 1761-and equate +6I1954195C 0000243871800?6912741050 lddv subr6 1762-to e +6I1954195C 0000240910800?1519583818 v0001aloe sd 1763- +6I1954195C 0000240911800?1519583868 v0002aloe 1764-symb und +6I1954195C 0000243868800?2019613918 stlxxxx1 1765- +6I1954195C 0000243918800?6519523968 ral 1952 1766-test lit +6I1954195C 0000243968800?3500023925 slt 0002 1767-symbol +6I1954195C 0000243925800?4418291330 nzuok 1768- +6I1954195C 0000241330800?2016301833 stlpchex 1769-set testw +6I1954195C 0000241833800?6519583769 rale 1770-set l +6I1954195C 0000243769800?6919831988 lddp0007 1771- +6I1954195C 0000241988800?3500041499 slt 0004 1772- +6I1954195C 0000241499800?2219833138 sdap0007 1773- +6I1954195C 0000243138800?6906421895 ldd1 1774- +6I1954195C 0000241895800?2419501829 stdreadcok 1775-set return +6I1954195C 0000241829800?6519613819 ok ralxxxx1 1776- +6I1954195C 0000243819800?1007643818 aups 6sd 1777- +6I1954195C 0000240642800?6919450648 1 lddrdcd* 1778-go to +6I1954195C 0000240648800?2419500776 stdreadcpexit 1779-pch lit +6I1954195C 0000243818800?6939211400 sd lddtt subr7 1780- +6I1954195C 0000241945800?7019991998 rdcd*rcd 1999 1998 1781- +6I1954195C 0000243921800?6931711324 tt lddtag 1783-test tag +6I1954195C 0000241324800?9031520801 bdosetcc 0801 1784- +6I1954195C 0000240810800?6908583869 0810lddh8xxx 1786- +6I1954195C 0000243869800?2431711374 stdtag 1787-routine +6I1954195C 0000241374800?6519593919 ral 1959 1788-is i +6I1954195C 0000243919800?1608360692 slo4000i 1789-drum 0 cor +6I1954195C 0000240692800?4619950996 bmid 1790- +6I1954195C 0000240996800?1531663971 alocdiffcd 1791- +6I1954195C 0000241995800?1514473971 d aloddiffcd 1792- +6I1954195C 0000243971800?1508360915 cd alo4000iy0001 1793- +6I1954195C 0000240592800?1531451549 bp alo88 1795-by pass +6I1954195C 0000241549800?2019863152 stlp0010setcc 1796- +6I1954195C 0000243771800?0000000917 z 00 0000z0001 1798-constants +6I1954195C 0000243821800?0019590915 y nop 1959y0001 1799- +6I1954195C 0000241322800?0000990920 w 00 0099w0001 1800- +6I1954195C 0000241274800?0000890910 v 00 0089v0001 1801- +6I1954195C 0000243145800?0080000000 88 00 8000 0000 1802- +6I1954195C 0000243171800?0100003171 tag 01 0000tag 1804-eraseable +6I1954195C 0000240806800?6939691501 0806ldd procl 1809- +6I1954195C 0000243969800?6919521070 ldd 1952 1810- +6I1954195C 0000241070800?2419833188 stdp0007 1811- +6I1954195C 0000243188800?6519531120 ral 1953 1812- +6I1954195C 0000241120800?4518523975 nzepunch 1813- +6I1954195C 0000243975800?6912283831 lddsoap2 1814-by +6I1954195C 0000243831800?2419791852 stdp0003punch 1815-soap2 +6I1954195C 0000241228800?8276617792 soap2 82 7661 7792 1817-constant +6I1954195C 0000243104800?2406531170 sub14stdexitx 1822-store exir +6I1954195C 0000241170800?6031733927 raua1 1823-set for +6I1954195C 0000243927800?1513801535 alors1 1824-1st hal +6I1954195C 0000241535800?6937880792 ldd avtb 1825- +6I1954195C 0000243788800?6008421547 raua2 1826-set for +6I1954195C 0000241547800?1538041220 alors2 1827-2nd half +6I1954195C 0000241220800?6906530792 lddexitxavtb 1828-of drum +6I1954195C 0000240792800?2431950698 avtb stdexit 1829-store exit +6I1954195C 0000240698800?6909863939 ldd85th 1830-set punch +6I1954195C 0000243939800?2419863989 stdp0010 1831-8 +6I1954195C 0000243989800?2119611270 stuxxxx1 1832- +6I1954195C 0000241270800?1037733977 aup35d 1833- +6I1954195C 0000243977800?2112321585 stubdmax 1834- +6I1954195C 0000241585800?1038381943 aup450d 1835- +6I1954195C 0000241943800?2107983854 stuamax 1836- +6I1954195C 0000243854800?1013200976 aup15d 1837- +6I1954195C 0000240976800?2114301883 stuamp5 1838- +6I1954195C 0000241883800?1180030892 sup 8003loop 1839- +6I1954195C 0000240892800?1037958001 loop aupc1 8001 1840- +6I1954195C 0000243904800?1113701026 next suptw1 1842- +6I1954195C 0000241026800?4418791480 nzu srs 1843- +6I1954195C 0000241879800?1012823888 aupc2 1844- +6I1954195C 0000243888800?1509928003 aloc3 8003 1845- +6I1954195C 0000241480800?2019621420 srs stlxxxx2 1846-save rs +6I1954195C 0000241420800?6038231278 rauc4 1847- +6I1954195C 0000241278800?1519618002 aloxxxx1 8002 1848- +6I1954195C 0000243954800?1114701076 tp suptw2 1851- +6I1954195C 0000241076800?4419291530 nzu pun 1852- +6I1954195C 0000241929800?1013323938 aupc5 1853- +6I1954195C 0000243938800?1505548002 alo1dxxx 8002 1854- +6I1954195C 0000241530800?7119771328 pun pchp0001 1855- +6I1954195C 0000241328800?6780023988 ram 8002 1856- +6I1954195C 0000243988800?1612321340 slobdmax 1b57- +6I1954195C 0000241340800?4514443845 nze tsten 1858- +6I1954195C 0000241444800?1580011520 alo 8001 1859- +6I1954195C 0000241520800?1538731378 alo5dxxxstlxx 1860- +6I1954195C 0000243845800?1580011620 tstenalo 8001 1861- +6I1954195C 0000241620800?1607981820 sloamax 1862- +6I1954195C 0000241820800?4514243195 nze exit 1863- +6I1954195C 0000241424800?1514301835 aloamp5 1864- +6I1954195C 0000241835800?1012321390 aupbdmax 1865- +6I1954195C 0000241390800?1039591870 aup50d 2 1866- +6I1954195C 0000241870800?2112321378 stubdmaxstlxx 1867- +6I1954195C 0000241378800?2019611920 stlxxstlxxxx1 1868- +6I1954195C 0000241920800?6519621970 ralxxxx2 1869- +6I1954195C 0000241970800?1639230892 sloc7 loop 1870- +6I1954195C 0000243173800?6900008003 a1 ldd 0000 8003 1872- +6I1954195C 0000240842800?6900048003 a2 ldd 0004 8003 1873- +6I1954195C 0000241380800?0000000450 rs1 00 0000 0450 1874- +6I1954195C 0000243804800?0020002450 rs2 00 2000 2450 1875- +6I1954195C 0000243120800?2119771830 zp1 stup0001nxt 1876- +6I1954195C 0000243170800?2119851830 zp9 stup0009nxt 1877- +6I1954195C 0000243770800?2119861830 zp10 stup0010nxt 1878- +6I1954195C 0000243795800?2019773904 c1 stlp0001next 1879- +6I1954195C 0000241282800?2019853904 c2 stlp0009next 1880- +6I1954195C 0000240992800?0005000500 c3 00 0500 0500 1881- +6I1954195C 0000243823800?2419783954 c4 stdp0002tp 1882- +6I1954195C 0000241332800?2419863954 c5 stdp0010tp 1883- +6I1954195C 0000243923800?0014991499 c7 00 1499 1499 1884- +6I1954195C 0000241370800?2019833904 tw1 stlp0007next 1885- +6I1954195C 0000241470800?2419843954 tw2 stdp0008tp 1886- +6I1954195C 0000243773800?0000350000 35d 00 0035 0000 1887- +6I1954195C 0000243838800?0004500000 450d 00 0450 0000 1888- +6I1954195C 0000241320800?0000150000 15d 00 0015 0000 1889- +6I1954195C 0000243873800?0000050000 5dxxx 00 0005 0000 1890- +6I1954195C 0000240986800?0000800000 85th 00 0080 0000 1891- +6I1954195C 0000240813800?6080021372 0813rau 8002 1895-zero 80023 +6I1954195C 0000241372800?6931523820 lddsetccunrav 1896- +6I1954195C 0000243820800?2416403143 unravstdzzzz1 1897-store exit +6I1954195C 0000243143800?2119613870 stuxxxx1 1898- +6I1954195C 0000243870800?1539731428 aloi2 incrm 1899-get start +6I1954195C 0000241428800?2016411494 incrmstlzzzz2 1900-store k +6I1954195C 0000241494800?6915973920 ldd subr1 1901-to avail +6I1954195C 0000241597800?6516413895 ralzzzz2 1902- +6I1954195C 0000243895800?1608483970 sloi99 1903-are we +6I1954195C 0000243970800?4514741640 nze zzzz1 1904-done +6I1954195C 0000241474800?1580013881 alo 8001 1905- +6I1954195C 0000243881800?1515341440 alo astrk 1906- +6I1954195C 0000241534800?0000500050 00 0050 0050 1907- +6I1954195C 0000241440800?1019611428 astrkaupxxxx1incrm 1908- +6I1954195C 0000240848800?0004500489 i99 00 0450 0489 1909- +6I1954195C 0000243973800?0000000039 i2 00 0000 0039 1910- +6I1954195C 0000240817800?6911403898 0817lddtran1 1915-comments +6I1954195C 0000243898800?2419843948 stdp0008 1915- +6I1954195C 0000243948800?6019483998 raubb817 1915- +6I1954195C 0000243998800?1508581600 aloh8xxxsub10 1915- +6I1954195C 0000241948800?6014221478 bb817rau set 1916-test 1st +6I1954195C 0000241422800?6519511472 ral 1951 1917-tap rcd vs +6I1954195C 0000241472800?1690503129 slo 9050 1918-card +6I1954195C 0000243129800?4513821933 nzepass init 1919-no yes +6I1954195C 0000241522800?2790501528 setblset 9050 1920-trsfr tape +6I1954195C 0000241528800?2819511998 sib 1951 1998 1921-to cd area +6I1954195C 0000241478800?2790503133 set set 9050 1922-read tape +6I1954195C 0000243133800?0480121490 rtn 8012nts 1923- +6I1954195C 0000241490800?2580013945 nts nts 8001 1924- +6I1954195C 0000243945800?5417991572 nef exit 1925- +6I1954195C 0000241799800?4518221872 nze halt 1926- +6I1954195C 0000241822800?3500013179 slt 0001 1927-reread +6I1954195C 0000243179800?5780121478 bst 8012set 1928-routine +6I1954195C 0000241872800?0100009999 halt hlt 0000 9999 1929- +6I1954195C 0000241933800?6915403193 init lddcopy 1930-found +6I1954195C 0000243193800?2419501922 stdreadc 1931-routine +6I1954195C 0000241922800?6911263779 lddrwind 1932-set to +6I1954195C 0000243779800?2415721522 stdexit setbl 1933-process +6I1954195C 0000241126800?5580123931 rwindrwd 8012 1934-finished +6I1954195C 0000243931800?6915841790 lddentr 1935-routine +6I1954195C 0000241790800?2415720642 stdexit 1 z 1936- +6I1954195C 0000241382800?6018858001 pass rau 8001 1937-bypass +6I1954195C 0000241885800?0380121490 rtc 8012nts 1938-routine +6I1954195C 0000241540800?6515221478 copy ralsetblset 1939- +6I1954195C 0000241584800?0000001948 entr nop 0000bb817 1940- +6I1954195C 0000241572800?0000001948 exit nop 0000bb817 1941- +6I1954195C 0000240812800?6018001600 0812rau 1800sub10 1946- +6I1954195C 0000240808800?6519521972 0808ral 1952 1950- +6I1954195C 0000241972800?3000081042 srt 0008 1951-heading +6I1954195C 0000241042800?2006683152 stl0000hsetcc 1952-character +6I1954195C 0000240668800?0100000668 0000h 01 00000000h 1954-eraseable +6I1954195C 0000240809800?6519523122 0809ral 1952 1959- +6I1954195C 0000243122800?4511761828 nze sdd 1960-drum +6I1954195C 0000241176800?6519581828 ral 1958sdd 1961-and +6I1954195C 0000241828800?2014473172 sdd stlddiff 1962-core +6I1954195C 0000243172800?6519533772 ral 1953 1963-deltas +6I1954195C 0000243772800?4512261878 nze scd 1964- +6I1954195C 0000241226800?6519591878 ral 1959scd 1965- +6I1954195C 0000241878800?2031663152 scd stlcdiffsetcc 1966- +6I1954195C 0000241447800?0100001447 ddiff 01 0000ddiff 1968-eraseable +6I1954195C 0000243166800?0100003166 cdiff 01 0000cdiff 1969- +6I1954195C 0000240816800?6019513822 0816rau 1951 1974- +6I1954195C 0000243822800?4412761326 nzu s9h 1975- +6I1954195C 0000241276800?1519573872 alo 1957stll 1976- +6I1954195C 0000241326800?6619543872 s9h rsl 1954stll 1977- +6I1954195C 0000243872800?2007783981 stll stlseqll 1978- +6I1954195C 0000243981800?6019523922 rau 1952 1979- +6I1954195C 0000243922800?4413761426 nzu s9i 1980- +6I1954195C 0000241376800?1519583972 alo 1958stld 1981- +6I1954195C 0000241426800?6619543972 s9i rsl 1954stld 1982- +6I1954195C 0000243972800?2038651524 stld stlseqdd 1983- +6I1954195C 0000241524800?6019531574 rau 1953 1984- +6I1954195C 0000241574800?4431283178 nzu s9j 1985- +6I1954195C 0000243128800?6519591824 ral 1959 1986- +6I1954195C 0000241824800?1637783183 slo9000 1987- +6I1954195C 0000243183800?4618401890 bmi cseqi 1988- +6I1954195C 0000241840800?1580011797 alo 8001tuvwx 1989- +6I1954195C 0000241797800?6908581874 tuvwxlddh8xxxs9k 1990- +6I1954195C 0000241874800?2408903793 s9k stdtcori 1991- +6I1954195C 0000243793800?2039151924 stlseqii 1992- +6I1954195C 0000241924800?6019601974 rau 1960 1993- +6I1954195C 0000241974800?3000011432 srt 0001 1994- +6I1954195C 0000241432800?1180033140 sup 8003 1995- +6I1954195C 0000243140800?4515443995 nzenegsq 1996- +6I1954195C 0000243995800?6705503124 ram1ixxxstiix 1997- +6I1954195C 0000241544800?6805503124 negsqrsm1ixxxstiix 1998- +6I1954195C 0000243124800?2009903152 stiixstlctrsqsetcc 1999- +6I1954195C 0000243178800?6619541797 s9j rsl 1954tuvwx 2000- +6I1954195C 0000241890800?1580011847 cseqialo 8001 2001- +6I1954195C 0000241847800?6914031874 lddh9xxxs9k 2002- +6I1954195C 0000243778800?0000009000 9000 00 0000 9000 2003- +6I1954195C 0000240818800?6031741600 0818rau sub10 2008-xfr +6I1954195C 0000243174800?6019523774 rau 1952 2009-test +6I1954195C 0000243774800?4438283878 nzu y 2010-blank trsf +6I1954195C 0000243828800?2019833190 stlp0007 2011- +6I1954195C 0000243190800?6938431801 ldd procd 2012-get start +6I1954195C 0000243843800?6510463824 ralretn z 2013-address +6I1954195C 0000243878800?6514823824 y raltw z 2014- +6I1954195C 0000243824800?1017871092 z aupposit 2015-must we +6I1954195C 0000241092800?1110963874 sup+min 2016-pch lastcd +6I1954195C 0000243874800?4439288002 nzu 8002 2017-no +6I1954195C 0000243928800?2019501554 stlreadc5cd + 2018-yes +6I1954195C 0000241046800?6809771532 retn rsm+0001 2019-set id wd +6I1954195C 0000241532800?2009771880 stl+0001 2020-negative +6I1954195C 0000241880800?6519833790 ralp0007 2021- +6I1954195C 0000243790800?3000043924 srt 0004 2022-stor start +6I1954195C 0000243924800?2009781582 stl+0002 2023-address +6I1954195C 0000241582800?6519353840 rali6 2024-zero +6I1954195C 0000243840800?6938933920 ldd subr1 2025-wds3-8 +6I1954195C 0000243893800?7109773978 pch+0001 2026- +6I1954195C 0000243978800?6709771832 ram+0001 2027- +6I1954195C 0000241832800?1505503974 alo1ixxx 2028- +6I1954195C 0000243974800?2009771482 stl+0001tw 2029- +6I1954195C 0000241482800?6919450898 tw lddrdcd 2030- +6I1954195C 0000240898800?2419508001 stdreadc 8001 2031-rset exit +6I1954195C 0000241935800?0009790984 i6 00+0003+0008 2032- +6I1954195C 0000241096800?2009780045 +min stl+0002*0001 2033- +6I1954195C 0000240819800?6014761600 0819rau sub10 2037-5/cd punch +6I1954195C 0000241476800?6019521526 rau 1952 2038-insert id +6I1954195C 0000241526800?4438291930 nzu * 2039-if any +6I1954195C 0000243829800?6519581576 ral 1958 2040- +6I1954195C 0000241576800?3500041930 slt 0004* 2041- +6I1954195C 0000241930800?1019531826 * aup 1953 2042-and set cd +6I1954195C 0000241826800?4438793130 nzu skp 2043-no+ strt +6I1954195C 0000243879800?1519591876 alo 1959sia 2044- +6I1954195C 0000243130800?1505501876 skp alo1ixxxsia 2045- +6I1954195C 0000241876800?6909773180 sia ldd+0001 2046- +6I1954195C 0000243180800?2216403943 sdazzzz1 2047- +6I1954195C 0000243943800?2309773780 sia+0001 2048- +6I1954195C 0000243780800?6037833890 raubrnch 2049- +6I1954195C 0000243890800?2407728001 stdset5+ 8001 2050- +6I1954195C 0000243783800?4507763127 brnchnzepexit5/cd+ 2051- +6I1954195C 0000240807800?6019001600 0807rau 1900sub10 2053- +6I1954195C 0000241904800?2406531926 sub22stdexitx 2057-set exit +6I1954195C 0000241926800?6019853940 raup0009 2058-save card +6I1954195C 0000243940800?2419611976 stdxxxx1 2059-numbering +6I1954195C 0000241976800?2019773830 stlp0001 2060-blank out +6I1954195C 0000243830800?2419811834 stdp0005 2061-locn and +6I1954195C 0000241834800?2419823135 stdp0006 2062-comments +6I1954195C 0000243135800?2419853990 stdp0009 2063-and number +6I1954195C 0000243990800?6939931146 ldd9d999 2064-set nines +6I1954195C 0000241146800?2419841142 stdp0008 2065-for pching +6I1954195C 0000241142800?6916831242 lddc0034 2066-store equ +6I1954195C 0000241242800?2319803833 siap0004 2067-as pseudop +6I1954195C 0000243833800?6513421897 rala see 2068- +6I1954195C 0000241897800?1631261882 see sloterm 2069-exit when +6I1954195C 0000241882800?4513921442 nze endst 2070-finished +6I1954195C 0000241392800?1512463176 alomore 2071-increment +6I1954195C 0000243176800?2019628001 stlxxxx2 8001 2072-st locatn +6I1954195C 0000243776800?4439291897 test nzu see 2074- +6I1954195C 0000243929800?1180031492 sup 8003 2075- +6I1954195C 0000241492800?2419781932 stdp0002 2076-if symbol +6I1954195C 0000241932800?2119861542 stup0010 2077-is in tabl +6I1954195C 0000241542800?6912960441 ldd subr8 2078-get equiv +6I1954195C 0000241296800?6010133826 rauequiv 2079-enter +6I1954195C 0000243826800?1005543876 aup1dxxxloop 2080-loop to +6I1954195C 0000243876800?3000013883 loop srt 0001 2081-convert +6I1954195C 0000243883800?1180031592 sup 8003 2082-numeric +6I1954195C 0000241592800?3000011849 srt 0001 2083-equivalent +6I1954195C 0000241849800?1080013926 aup 8001 2084-to alpha +6I1954195C 0000243926800?4438763880 nzuloop 2085-form +6I1954195C 0000243880800?1539331792 aloy 2086-store it +6I1954195C 0000241792800?2019793132 stlp0003 2087-for punch +6I1954195C 0000243132800?6031851600 rau sub10 2088-punch a +6I1954195C 0000243185800?6519621897 ralxxxx2see 2089- +6I1954195C 0000241442800?6919613976 endstlddxxxx1 2091-restore +6I1954195C 0000243976800?2419850653 stdp0009exitx 2092-card numbr +6I1954195C 0000241342800?1019993776 a aups0000test 2094-constants +6I1954195C 0000243126800?1030993776 term aups1100test 2095- +6I1954195C 0000241246800?1031003776 more aups1101test 2096- +6I1954195C 0000243933800?9990909090 y 99 9090 9090 2097- +6I1954195C 0000243753800?2439793182 sub16stdalpha 2102- +6I1954195C 0000243182800?9737851842 bd7 init 2103- +6I1954195C 0000243785800?6906283782 lddpchwdpart 2104-reset pch +6I1954195C 0000241842800?6514831892 init ralrset+ 2105- +6I1954195C 0000241892800?2417871942 stdposit 2106-5/cd pch +6I1954195C 0000241942800?1510931947 alolocm+ 2107- +6I1954195C 0000241947800?2006461899 stlloc + 2108- +6I1954195C 0000241899800?6039303835 raui3 2109- +6I1954195C 0000243835800?2019853142 stlp0009 2110-zero numb +6I1954195C 0000243142800?2406683980 std0000h 2111-zero hed +6I1954195C 0000243980800?6939833820 ldd unrav 2112-make drum +6I1954195C 0000243983800?6180013192 rsu 8001 2113-available +6I1954195C 0000243192800?2107783832 stuseqll 2114- +6I1954195C 0000243832800?2438653882 stdseqdd 2115- +6I1954195C 0000243882800?2439153932 stdseqii 2116- +6I1954195C 0000243932800?6904941997 ldd87nth 2117- +6I1954195C 0000241997800?2406431346 stdopreg 2118- +6I1954195C 0000241346800?6519493982 rali5 2119- +6I1954195C 0000243982800?2114531884 studrumt 2120-+ '+u +6I1954195C 0000241884800?2406943147 stdddrmt 2121- +6I1954195C 0000243147800?2414511934 stditagw 2122- +6I1954195C 0000241934800?1008583134 auph8xxx 2123-undefine +6I1954195C 0000243134800?2408901594 stdtcori 2124- +6I1954195C 0000241594800?2415783184 std. 2125-undefine +6I1954195C 0000243184800?2415883792 std$ 2126-special +6I1954195C 0000243792800?2415983784 std, 2127-character +6I1954195C 0000243784800?2416083834 std= 2128- +6I1954195C 0000243834800?2415793884 std) 2129- +6I1954195C 0000243884800?2415893842 std* 2130- +6I1954195C 0000243842800?2415993934 std( 2131- +6I1954195C 0000243934800?2416093984 std' 2132- +6I1954195C 0000243984800?2415803885 std+ 2133- +6I1954195C 0000243885800?2415901794 std- 2134- +6I1954195C 0000241794800?2415911844 std/ 2135- +6I1954195C 0000241844800?6931973920 ldd subr1 2136- +6I1954195C 0000243197800?6907763935 lddpexit 2137- +6I1954195C 0000243935800?2406283782 stdpchwdpart 2138- +6I1954195C 0000243782800?2407723985 part stdset5+ 2139- +6I1954195C 0000243985800?6931023892 lddsymfl 2140- +6I1954195C 0000243892800?2418583942 stdhld5c 2141- +6I1954195C 0000243942800?6913963149 ldd1198i 2142-restore +6I1954195C 0000243149800?2405623992 stdsymct 2143-sym count +6I1954195C 0000243992800?6514461894 rali1 2144-zero out +6I1954195C 0000241894800?2116301994 stupchex 2145- +6I1954195C 0000241994800?6937973920 ldd subr1 2146-symbol tab +6I1954195C 0000243797800?6939931496 ldd9d999 2147-set con +6I1954195C 0000241496800?2406403144 stdtrans 2148-trols for +6I1954195C 0000243144800?6938473194 lddintoa 2149-assembly +6I1954195C 0000243194800?2406523979 stdintoxalpha 2150- +6I1954195C 0000241446800?0020003099 i1 00s0001s1100 2152- +6I1954195C 0000243930800?1111111111 i3 11 1111 1111 2153- +6I1954195C 0000241949800?0016211649 i5 00 1621 1649 2154- +6I1954195C 0000243993800?0900009990 9d999 09 0000 9990 2155- +6I1954195C 0000243847800?1538068002 intoaalotorg 8002 2156- +6I1954195C 0000241483800?2009780045 rset+stl+0002*0001 2157- +6I1954195C 0000240977800?0100009999 +0001hlt 0000 9999 2158- +6I1954195C 0000241396800?0000000998 1198i 00 0000 0998 2159- +6I1954195C 0000243920800?2406533794 subr1stdexitx 2166-store exit +6I1954195C 0000243794800?2119613844 stuxxxx1 2167-store k +6I1954195C 0000243844800?6938973894 lddfwa 2168-set +6I1954195C 0000243894800?2238973944 sdafwa 2169-fwa +6I1954195C 0000243944800?3500043994 slt 0004 2170-lwa +6I1954195C 0000243994800?2219621546 sdaxxxx2 2171-addresses +6I1954195C 0000241546800?6038971596 raufwa 2172- +6I1954195C 0000241596800?1519618003 aloxxxx1 8003 2173- +6I1954195C 0000241796800?1119621846 next supxxxx2 2175-end of +6I1954195C 0000241846800?4431990653 nzu exitx 2176-loop test +6I1954195C 0000243199800?1080011896 aup 8001aup1d 2177- +6I1954195C 0000241896800?1005548003 aup1daup1dxxx 8003 2178- +6I1954195C 0000243897800?2099981796 fwa stl 9998next 2180-constants +6I1954195C 0000241999800?6519511946 1999ral 1951 2185-calculate +6I1954195C 0000241946800?3000041996 srt 0004 2186-location +6I1954195C 0000241996800?6080023146 rau 8002 2187-in avail +6I1954195C 0000243146800?3000033196 srt 0003 2188-table +6I1954195C 0000243196800?1080033796 aup 8003 2189- +6I1954195C 0000243796800?2138463799 stuadd 2190- +6I1954195C 0000243799800?1180013896 sup 8001 2191- +6I1954195C 0000243896800?3000073946 srt 0007 2192- +6I1954195C 0000243946800?6938490347 ldd gda11 2193- +6I1954195C 0000243849800?3500013996 slt 0001 2194- +6I1954195C 0000243996800?1038463947 aupadd 2195- +6I1954195C 0000243947800?3000063997 srt 0006 2196- +6I1954195C 0000243997800?1509981048 aloc1 2197- +6I1954195C 0000241048800?1010988003 aupc3 8003 2198- +6I1954195C 0000241148800?1112481298 tup suptw 2201- +6I1954195C 0000241298800?4413481950 nzu readc 2202- +6I1954195C 0000241348800?1013981448 auptwp2 2203- +6I1954195C 0000241448800?1505548003 alo1dxxx 8003 2204- +6I1954195C 0000241248800?6919588002 tw ldd 1958 8002 2205- +6I1954195C 0000241398800?6919608002 twp2 ldd 1960 8002 2206- +6I1954195C 0000243850800?0000000050 50xxx 00 0000 0050 2208- +6I1954195C 0000240576800?0000000090 90xxx 00 0000 0090 2209- +6I1954195C 0000240824800?0000000200 0200i 00 0000 0200 2210- +6I1954195C 0000241290800?0000003000 3000i 00 0000 3000 2211- +6I1954195C 0000240836800?0000004000 4000i 00 0000 4000 2212- +6I1954195C 0000240554800?0000010000 1dxxx 00 0001 0000 2213- +6I1954195C 0000240860800?0000020000 2dxxx 00 0002 0000 2214- +6I1954195C 0000240858800?8000000000 h8xxx 80 0000 0000 2215- +6I1954195C 0000241403800?9000000000 h9xxx 90 0000 0000 2216- +6I1954195C 0000241498800?0000003999 3999i 00 0000 3999 2217- +6I1954195C 0000241548800?0000320000 32dxx 00 0032 0000 2218- +6I1954195C 0000241798800?0000030000 3dxxx 00 0003 0000 2219- +6I1954195C 0000241848800?0000000011 11ixx 00 0000 0011 2220- +6I1954195C 0000240856800?0000000002 2ixxx 00 0000 0002 2221- +6I1954195C 0000240094800?0000000004 4ixxx 00 0000 0004 2222- +6I1954195C 0000240144800?0000000008 8ixxx 00 0000 0008 2223- +6I1954195C 0000240040800?999999999R - 0040 99 9999 9999 2224-table end +6I1954195C 0000240090800?999999999R - 0090 99 9999 9999 2225-for +6I1954195C 0000240140800?999999999R - 0140 99 9999 9999 2226-avail +6I1954195C 0000240190800?999999999R - 0190 99 9999 9999 2227-tbl +6I1954195C 0000240240800?999999999R - 0240 99 9999 9999 2228- +6I1954195C 0000240290800?999999999R - 0290 99 9999 9999 2229- +6I1954195C 0000240340800?999999999R - 0340 99 9999 9999 2230- +6I1954195C 0000240390800?999999999R - 0390 99 9999 9999 2231- +6I1954195C 0000240440800?999999999R - 0440 99 9999 9999 2232- +6I1954195C 0000240490800?999999999R - 0490 99 9999 9999 2233- +6I1954195C 0000240998800?2400001148 c1 std 0000tup 2235-constants +6I1954195C 0000241098800?6919528002 c3 ldd 1952 8002 2236- +6I1954195C 0000241898800?0000001600 ii00 00 0000 1600 2237- diff --git a/I650/sw/soap/soap4_example_lib_routines.txt b/I650/sw/soap/soap4_example_lib_routines.txt new file mode 100644 index 000000000..2811a3721 --- /dev/null +++ b/I650/sw/soap/soap4_example_lib_routines.txt @@ -0,0 +1,12 @@ + 1 sub1 soap tape library + 1 routine + 1 + 0 sub1 nop 0000 comment + 0 hlt 0001 + 1 + ? + sub2 nop 0002 comment + 0 hlt 0002 + 1 + ? + ? diff --git a/I650/sw/soap/soap4_example_tap.txt b/I650/sw/soap/soap4_example_tap.txt new file mode 100644 index 000000000..f34f71e9e --- /dev/null +++ b/I650/sw/soap/soap4_example_tap.txt @@ -0,0 +1,8 @@ + 1 soap test tap + 1 + 0 equsub1 1000 + 1 + 0 sub1 nop 0000 sub2 comment + 0 sub2 tap + 0 hlt 0001 + 0 pst diff --git a/I650/sw/soap/soap4_lib.txt b/I650/sw/soap/soap4_lib.txt new file mode 100644 index 000000000..485aa8c6f --- /dev/null +++ b/I650/sw/soap/soap4_lib.txt @@ -0,0 +1,198 @@ + 1 soap 4000 + 1 + 1 symbolic optimal assembly prog + 1 + 1 for the + 1 + 1 ibm 650 model 4 + 1 + 1 data processing system + 1 + 1 librarian + 1 + 1 written by Roberto Sancho + 1 March 2020 + 1 + 0 blr 1000 1000 entry + 0 regh1100 1109 tap header + 0 synzero h0001 + 0 synreadc 1950 + 0 blr 1951 1967 17wd buffr + 0 regp1977 1986 punch area + 0 blr 1998 1999 + 1 + 1 check library tape + 1 first record + 1 + 1000rwd 8012 read tape + set 9050 first + rtn 8012 record + nts initp jmp if err + rau 9050 check + aup 9051 header + suph0002 record + aup 9052 if record + suph0003 not match + aup 9053 then + suph0004 jump to + nzuinitp inittp + rtn 8012 if not eof + ntsinitp then initp + nefinitp r1ok else r1ok + 1 soap tape library + 1 header card + 1 as read with rd1 + h0001 00 0000 0000 + h0002 77 0083 6177 + h0003 00 7369 6279 + h0004 82 7661 6561 + h0005 79 8800 0000 + h0006 00 0000 0000 + h0007 00 0000 9999 + h0008 00 0000 9999 + h0009 00 0000 9999 + h0010 09 9800 0000 + 1 + 1 library tape first record + 1 does not match expected + 1 create a new lib tape + 1 with expected first recod + 1 (the library header) + 1 + initprwd 8012 wrt header + set 9050 rec in tap + ldih0001 + set 9050 + wtn 8012 + ntswhok + wrhlthlt 0999 9999 hlt if wr err + whok wtm 8012 write double + wtm 8012 tape mark + ntsr1ok wrhlt + 1 + 1 read first card and + 1 scan tape lib for routine + 1 + r1ok rwd 8012 + rd1 1999 bb817 + bb817lddh0010 init empty + stdemflg file flag + rau set test 1st + ral 1951 al is rdc loc + stuemflg file not empry + slo 9050 cmp with tap loc + nzepass found no yes + setblset 9050 trsfr tape + sib 1951 1998 to cd area + set set 9050 read tape + rtn 8012 nts + nts nts 8001 + nef exit + nze halt + slt 0001 reread + bst 8012 set routine + halt hlt 0888 9999 + pass rau 8001 bypass + rtc 8012 nts routine + exit ralemflg if file not empty + nze bb817 try next file + bst 8012 nfnd + emflg 00 0000 0000 empty file flag + 1 + 1 card routine found into + 1 library tape + 1 + foundhlt 0777 9999 + 1 + 1 card routine not found + 1 add it to library tape + 1 + nfnd set 9050 + ldi 1951 + set 9050 + wtn 8012 wrt crd + nts wrhlt to tape + rd1 1998 nfnd + 1998wtm 8012 load card + wtm 8012 is eof + ntsr1ok wrhlt + 1 + 1 if first card is load card + 1 then willprint list of + 1 routines in tape. + 1 punch routine location + 1 (first record of file) + 1 and number of routine + 1 + i1xxx 00 0001 0000 + pchfm 80 0000 0000 pch format + 1999rwd 8012 rewind tape + lddzero + stdp0002 + stdp0003 + stdp0004 + stdp0005 + stdp0006 + stdp0007 + stdp0008 + stdp0009 + raupchfm + stup0010 set2 + set2 set 9050 read tape + rtn 8012 1st rec + ntsrdok2 + nef endf + nze halt + slt 0001 reread + bst 8012 set2 routine + rdok2ldd 9050 routine + stdp0001 location + wr1 1977 skp2 punch + skp2 rtc 8012 skip routine + ntsskp2 + nefhalt + ralp0008 incr + aloi1xxx routine + stlp0008 set2 number + wr1 1977 set2 + endf rwd 8012 + hlt 0000 r1ok + 1 + 1 Librarian program adds routines from + 1 cards to library tape so they can be + 1 used with TAP presudo command available + 1 with SOAP-IIA 4000 + 1 + 1 entry points + 1 1000 input + 1 routine 1 deck card + 1 blank card with HiPunch + 1 (a load card) + 1 routine 2 deck card + 1 blank card with HiPunch + 1 (a load card) + 1 ... + 1 routine n deck card + 1 blank card with HiPunch + 1 (a load card) + 1 blank card with HiPunch + 1 (a second load card) + 1 add routines to library tape + 1 then print list of routines + 1 in library tape + 1 if last repeated load card is + 1 removed, no printout is issued + 1 + 1 1998 + 1 put a double Tape Mark (end of + 1 file) to close the lib tape + 1 + 1 1999 + 1 print list of routines + 1 in library tape + 1 + 1 stops + 1 0999 write error + 1 0888 read error + 1 0777 routine already in library + 1 diff --git a/I650/sw/soap/soap4_listing.txt b/I650/sw/soap/soap4_listing.txt new file mode 100644 index 000000000..103f75205 --- /dev/null +++ b/I650/sw/soap/soap4_listing.txt @@ -0,0 +1,2247 @@ + 1 1 SOAP 4000 + 2 1 + 3 1 SYMBOLIC OPTIMAL ASSEMBLY PROG + 4 1 + 5 1 FOR THE + 6 1 + 7 1 IBM 650 MODEL 4 + 8 1 + 9 1 DATA PROCESSING SYSTEM + 10 1 + 11 1 + 12 0 5CD 4007 0006 + 13 0 BLR 0000 0040 AVAIL + 14 0 BLR 0050 0090 TABLE + 15 0 BLR 0100 0140 AREAS + 16 0 BLR 0150 0190 + 17 0 BLR 0200 0240 + 18 0 BLR 0250 0290 + 19 0 BLR 0300 0340 + 20 0 BLR 0350 0390 + 21 0 BLR 0400 0440 + 22 0 BLR 0450 0490 + 23 0 REG B0041 0042 SUBR2 + 24 0 REG =0043 0044 SUB 11 + 25 0 REG *0045 0046 PUNCH SUBR + 26 0 REG /0091 0093 + 27 0 BLR 0191 0191 + 28 0 REG .0500 0509 SUB 11 + 29 0 REG (0550 0560 SUB 11 + 30 0 EQU 1IXXX (0001 + 31 0 EQU 0010I (0002 + 32 0 EQU 100IX (0003 + 33 0 EQU 1DXXX (0005 + 34 0 EQU 10DXX (0006 + 35 0 EQU H1 4 (0010 + 36 0 REG )0600 0612 INDEX TABL + 37 0 REG N0700 0752 OPTIM TABL + 38 0 BLR 0800 0819 PSEUDO ENT + 39 0 REG H0902 0904 TYPE 2 + 40 0 REG M0905 0907 + 41 0 REG V0910 0911 EQU SYN + 42 0 REG X0913 0914 TYPE 0 + 43 0 REG Y0915 0916 EQU SYN + 44 0 REG Z0917 0919 + 45 0 REG W0920 0921 + 46 0 BLR 0923 0968 MULTIPLE R + 46 0 REG D0923 0923 PROC L + 47 0 BLA 0930 0930 + 48 0 BLA 0964 0964 + 49 0 REG +0977 0986 5/CD OUTPT + 50 0 EQU 85THP +0010 + 51 0 BLR 1000 1000 ENTRY + 52 0 BLR 1002 1002 LITERAL + 53 0 BLR 1005 1005 SYMBOLS + 54 0 BLR 1017 1017 + 55 0 BLR 1025 1025 + 56 0 BLR 1041 1041 + 57 0 BLR 1055 1055 + 58 0 REG O1185 1199 MULTIPASS + 59 0 REG R1200 1207 SUB 5 + 60 0 REG U1250 1259 SUB 13 + 61 0 BLR 1292 1292 + 62 0 REG I1300 1307 SUB 13 + 63 0 BLR 1563 1570 TYPE2 + 64 0 BLA 1565 1565 + 65 0 BLA 1569 1569 + 66 0 SYN . 1578 + 67 0 SYN ) 1579 + 68 0 SYN + 1580 + 69 0 SYN $ 1588 + 70 0 SYN * 1589 + 71 0 SYN - 1590 + 72 0 SYN / 1591 + 73 0 SYN , 1598 + 74 0 SYN ( 1599 + 75 0 SYN = 1608 + 76 0 SYN ' 1609 + 77 0 BLR 1621 1649 REG TABLE + 78 0 EQU PCHEX 1630 + 79 0 EQU ZZZZ1 1640 TEMPORARY + 80 0 EQU ZZZZ2 1641 STORAGE + 81 0 EQU TAG ZZZZ1 + 82 0 REG C1650 1786 SYMBLIC OP + 83 0 BLR 1800 1800 MANUAL PST + 84 0 BLR 1900 1900 MANUAL PAT + 85 0 SYN 80XXL 1912 + 86 0 SYN 80XXD 1928 + 87 0 REG -1937 1941 + 88 0 SYN 80XXI 1944 + 89 0 SYN READC 1950 + 90 0 BLR 1951 1967 17WD BUFFR + 91 0 EQU XXXX1 1961 + 92 0 EQU XXXX2 1962 + 93 0 EQU W 2 XXXX2 + 94 0 REG P1977 1986 PUNCH AREA + 95 0 REG T1990 1993 TYPE + 96 0 BLR 1998 1999 + 97 0 REG S2000 3099 SYMBOL TAB + 98 0 REG E3200 3749 EQUIV TABL + 99 0 REG A0510 0527 + 100 0 REG $0528 0545 + 101 0 HED 3 + 102 0 SUBR3 STD EXITX DOWNR STOR EXIT 0650 24 0653 0656 + 103 0 DOWNR RAU 1954 0656 60 1954 0659 + 104 0 SIA XXXX1 0659 23 1961 0564 + 105 0 RAL 8001 IS OP BLNK 0564 65 8001 0571 + 106 0 NZE ILLOP 0571 45 0574 0575 + 107 0 SLT 0002 0574 35 0002 0581 + 108 0 NZU NUM 0581 44 0585 0586 + 109 0 RAU 8001 0585 60 8001 0141 + 110 0 TLU C0001 SEARCH 0141 84 1650 0655 NOTE + 111 0 ALO 1 8002 SYMBOLIC 0655 15 0658 8002 + 112 0 8002 RAU 9998 NXT OP TABLE 8002 60 9998 0753 + 113 0 NXT SUP XXXX1 0753 11 1961 0565 + 114 0 SRT 0004 IS SYMB OP 0565 30 0004 0625 + 115 0 NZU ILLOP LEGAL 0625 44 0575 0580 + 116 0 SLT 0001 0580 35 0001 0587 + 117 0 NZU NORM 0587 44 0241 0142 + 118 0 SUP 4IXXX TEST PSEU 0241 11 0094 0049 + 119 0 NZU RPQ 0049 44 0853 0654 + 120 0 SLT 0003 8003 PSEUDO OP 0654 35 0003 8003 + 121 1 + 122 0 NORM STL P0007 STORE NUM 0142 20 1983 0636 + 123 0 SLO 8001 OP AND GET 0636 16 8001 0143 + 124 0 TLU N0001 OPTIMIZING 0143 84 0700 0755 + 125 0 ALO 5 8002 DATA 0755 15 0758 8002 + 126 0 8002 LDD 9998 NXTIN 8002 69 9998 0651 + 127 0 NXTIN STD OPTIM EXITX 0651 24 0754 0653 + 128 1 NOTE + 129 0 NUM RAU 8001 OP CODE IN 0586 60 8001 0193 + 130 0 LDD COMPR DBL DIGIT 0193 69 0096 0099 + 131 0 RAU P0007 0096 60 1983 0637 + 132 0 SRT 0002 NORM TO 1 DIGIT 0637 30 0002 0142 + 133 1 + 134 0 RPQ SLT 0001 NEGATIV OP 0853 35 0001 0759 + 135 0 STL P0007 ADD CNTROL 0759 20 1983 0686 + 136 0 SLO 8002 8 TO PCH 0686 16 8002 0095 + 137 0 SLT 0004 MINUS AND 0095 35 0004 0855 + 138 0 ALO P0010 GET PROPER 0855 15 1986 0291 + 139 0 SLT 0001 ENTRY IN 0291 35 0001 0047 + 140 0 SLO 8002 0PTIMIZING 0047 16 8002 1105 + 141 0 ALO H8XXX TABLE 1105 15 0858 0563 + 142 0 SRT 0001 AUP 0563 30 0001 0569 + 143 1 + 144 0 ILLOP RAL P0010 ILLEGAL 0575 65 1986 0341 + 145 0 ALO 8IXXX AUP OP PCH 0341 15 0144 0569 + 146 0 AUP AUP 2 BLANK OP 0569 10 0572 0577 + 147 0 STL P0010 8003 0577 20 1986 8003 + 148 0 8003 LDD N0000 NXTIN 8003 69 0699 0651 + 149 1 + 150 0 1 RAU 0000 NXT CONSTANTS 0658 60 0000 0753 + 151 0 2 LDD N0004 NXTIN 0572 69 0703 0651 + 152 0 5 LDD 0000 NXTIN 0758 69 0000 0651 + 153 0 OPTIM 01 0000 OPTIM 0754 01 0000 0754 + 154 0 HED + 155 1 + 156 1 SUB 4 WHAT IS ADDRESS + 157 1 + 158 0 HED 4 + 159 0 SUBR4 BOV 0850 47 1003 1003 + 160 0 STD EXITZ 1003 24 0756 0859 + 161 0 STU XXXX1 STORE ADDR 0859 21 1961 0614 + 162 0 SRT 0008 IS C5 0614 30 0008 0583 + 163 0 STU XXXX2 SAVE C5 0583 21 1962 0615 + 164 0 RAU 8002 ARE LOW 4 0615 60 8002 0573 + 165 0 AUP 90XXX LOOP 0573 10 0576 0631 + 166 0 LOOP AUP H1 0631 10 0559 0613 + 167 0 BOV SYM 0613 47 0566 0568 + 168 0 SLT 0002 0566 35 0002 0623 + 169 0 NZU LOOP 0623 44 0631 0578 + 170 0 RAL XXXX2 LOW 4 NUM 0578 65 1962 0567 + 171 0 NZE EXITZ 0567 45 0570 0756 + 172 0 SLO 90XXX IS C5 0570 16 0576 0681 + 173 0 BMI SYM ALPHABETIC 0681 46 0584 0568 + 174 0 RAL 1IXXX REGIONAL 0584 65 0550 1155 + 175 0 AUP XXXX1 AEX 1155 10 1961 0665 + 176 0 AEX ALO EXITZ 0665 15 0756 0561 + 177 0 SLO 8002 8001 0561 16 8002 8001 + 178 0 SYM RAU XXXX1 HED SYMBOL 0568 60 1961 0765 + 179 0 LDD SUB15 0765 69 0618 0621 + 180 0 STU HSYMB 0618 21 0622 0675 + 181 0 SRT 0008 0675 30 0008 0243 + 182 0 NZU LIT 0243 44 0097 0048 + 183 0 RAU 8001 0097 60 8001 1053 + 184 0 ALO 2IXXX AEX 1053 15 0856 0665 + 185 0 LIT RAU 8001 0048 60 8001 1355 + 186 0 ALO 100IX AEX 1355 15 0552 0665 + 187 0 HSYMB 01 0000 HSYMB ERASEABLE 0622 01 0000 0622 + 188 0 HED + 189 1 + 190 1 SUB 15 HEADING ROUTINE + 191 1 + 192 0 HED H + 193 0 SUB15 STD EXITY SAVE EXIT 0621 24 0624 0627 + 194 0 LDD 8003 IS C1 0627 69 8003 0634 + 195 0 SLT 0008 BLANK 0634 35 0008 1103 + 196 0 NZU DH 1103 44 0657 0908 + 197 0 RAU 8001 HEAD 0908 60 8001 0865 + 198 0 AUP 0000H EXITY 0865 10 0668 0624 + 199 0 DH RAU 8001 EXITY DONT HEAD 0657 60 8001 0624 + 200 0 HED + 201 1 + 202 1 SUB 5 TEST ABSOLUTE ADDRESS + 203 1 + 204 0 HED 5 + 205 0 SUBR5 STD EXITZ STORE EXIT 0900 24 0756 0909 + 206 0 STL XXXX1 STORE A 0909 20 1961 0664 + 207 0 SLT 0004 0664 35 0004 0775 + 208 0 SLO 8002 0775 16 8002 0633 + 209 0 TLU R0001 TLU 0633 84 1200 1405 + 210 0 ALO GET 8002 RANGE 1405 15 1008 8002 + 211 0 8002 RAU 9972 X TABLE 8002 60 9972 0677 + 212 0 X SLT 0006 0677 35 0006 0391 + 213 0 SRT 0006 0391 30 0006 1455 + 214 0 AUP EXITZ 1455 10 0756 0661 + 215 0 ALO XXXX1 0661 15 1961 1015 + 216 0 SUP 8003 8001 1015 11 8003 8001 + 217 0 GET RAU 0000 X 1008 60 0000 0677 + 218 0 R0001 00 3999 0000 RANGE 1200 00 3999 0000 + 219 0 R0002 00 7999 0003 TABLE 1201 00 7999 0003 + 220 0 R0003 00 8003 0001 1202 00 8003 0001 + 221 0 R0004 00 8004 0979 1203 00 8004 0979 + 222 0 R0005 00 8007 0001 1204 00 8007 0001 + 223 0 R0006 00 8999 0979 1205 00 8999 0979 + 224 0 R0007 00 9199 0002 1206 00 9199 0002 + 225 0 R0008 99 9999 0003 1207 99 9999 0003 + 226 1 + 227 0 EXITZ 01 0000 EXITZ 0756 01 0000 0756 + 228 0 HED + 229 1 + 230 1 + 231 1 SUB 6 SYMBOL TEST ROUTINE + 232 1 + 233 0 HED 6 + 234 0 SUBR6 STD EXITZ STORE EXIT 1050 24 0756 1009 + 235 0 STU S STORE SYMB 1009 21 0764 0617 + 236 0 LDD SWOF SET SWITCH 0617 69 0620 0673 + 237 0 STD SW OFF 0673 24 0626 0579 + 238 0 RAL 8003 SCRAMNLE 0579 65 8003 0687 + 239 0 DIV RF SYMBOL 0687 14 0590 0851 NOTE + 240 0 RAL 8003 GIVING LO 0851 65 8003 1059 + 241 0 SLT 0004 1059 35 0004 0619 + 242 0 ALO L1 SLI 0619 15 0672 0777 + 243 0 SLI STL LI 8001 INIT LI 0777 20 0781 8001 + 244 0 8001 RAL 9990 A IS CONT OF 8001 65 9990 0145 + 245 0 A NZE UND LI ZERO 0145 45 0098 0149 + 246 0 SLO S IS CONT OF 0098 16 0764 0669 + 247 0 NZE SW DEF LI SYMB 0669 45 0626 0773 + 248 0 SW RAL LI OFF IS LI 0626 65 0781 0635 + 249 0 OFF SLO LMAX MAXIMUM 0635 16 0588 0293 + 250 0 NZE MAX 0293 45 0146 0147 + 251 0 ALO LMP1 SLI STEP LI 0146 15 0199 0777 + 252 0 ON ALO 1DXXX SLI STEP LI 1100 15 0554 0777 + 253 0 MAX LDD SWON SET 0147 69 1150 1153 + 254 0 STD SW SWITCH ON 1153 24 0626 0629 + 255 0 RAL L1 SLI ZERO LI 0629 65 0672 0777 + 256 1 NOTE + 257 0 DEF RAL LI DEFINED 0773 65 0781 0685 --T+ + 258 0 LDD ASU SUBR8 GET 0685 69 0638 0441 + 259 0 ASU AUP S EXITZ EQUIVALENT 0638 10 0764 0756 + 260 1 + 261 0 UND RAL EXITZ IF SYMBOL 0149 65 0756 0761 + 262 0 BD5 L IS UNDEFND 0761 95 0864 0616 + 263 0 BD6 D I TEST IF IT 0616 96 0769 0671 + 264 0 L LDD 1960 HAS BEEN 0864 69 1960 0663 + 265 0 BD9 ALO1 PREVIOUSLY 0663 99 0667 0768 + 266 0 LDD 1957 STEQU ESTABLSHED 0667 69 1957 0660 + 267 0 D LDD 1960 AND IF SO 0769 69 1960 0763 + 268 0 BD8 ALO1 STORE IT 0763 98 0666 0768 + 269 0 LDD 1958 STEQU AS EQUIV 0666 69 1958 0660 + 270 0 I LDD 1960 0671 69 1960 0863 + 271 0 BD7 ALO1 0863 97 0766 0768 + 272 0 LDD 1959 STEQU IF STILL 0766 69 1959 0660 + 273 0 STEQU STD EQUIV RALLI UNDEFINED 0660 24 1013 0866 + 274 0 ALO1 ALO 1IXXX THEN STEP 0768 15 0550 1505 + 275 0 STL EXITZ EXIT 1505 20 0756 1109 + 276 0 RAL SYMCT 1109 65 0562 0767 + 277 0 SLO 1IXXX ZERO IF 0767 16 0550 1555 + 278 0 STL SYMCT 1000TH 1555 20 0562 1065 + 279 0 NZE RALLI FULL SYMBOL 1065 45 0866 0869 + 280 1 NOTE + 281 0 RALLI RAL LI 0866 65 0781 0785 + 282 0 SLO LX 0785 16 0688 0343 + 283 0 STL LSYMB ASU 0343 20 0197 0638 + 284 1 + 285 0 FULL LDD SET5+ SUSPEND 0869 69 0772 0825 + 286 0 STD PCHWD 5/CD PUNCH 0825 24 0628 0831 + 287 0 LDD 4D888 1100 SYMBS 0831 69 0684 0787 + 288 0 STD TRANS SET CONTRL 0787 24 0640 0393 + 289 0 LDD INTO1 TO ENTER 0393 69 0196 0249 + 290 0 STD INTOX PASS 0249 24 0652 1605 + 291 0 LDD P0009 ROUTINE 1605 69 1985 0788 + 292 0 STD NHOLD ON NEXT 0788 24 0491 0194 NOTE + 293 0 LDD 0000H CARD READ 0194 69 0668 0771 + 294 0 STD HHOLD RALLI 0771 24 0674 0866 + 295 1 + 296 0 SWOF RAL LI OFF CONSTANTS 0620 65 0781 0635 + 297 0 SWON RAL LI ON 1150 65 0781 1100 + 298 0 RF 00 0000 1099 0590 00 0000 1099 + 299 0 LX RAL 0000 A 0688 65 0000 0145 + 300 0 L1 RAL S0001 A 0672 65 2000 0145 + 301 0 LMAX RAL S1100 A 0588 65 3099 0145 + 302 0 LMP1 RAL S1101 A 0199 65 3100 0145 + 303 0 4D888 04 0000 8880 0684 04 0000 8880 + 304 0 INTO1 ALO TORGP FIRST 0196 15 0299 1353 + 305 0 S 01 0000 S ERASEABLE 0764 01 0000 0764 + 306 0 SW 01 0000 SW 0626 01 0000 0626 + 307 0 LO 01 0000 LO 1350 01 0000 1350 + 308 0 LI 01 0000 LI 0781 01 0000 0781 + 309 0 LSYMB 01 0000 LSYMB 0197 01 0000 0197 + 310 0 SYMCT 01 0000 SYMCT 0562 01 0000 0562 + 311 0 NHOLD 01 0000 NHOLD 0491 01 0000 0491 + 312 0 HHOLD 01 0000 HHOLD 0674 01 0000 0674 + 313 0 TRANS 01 0000 TRANS 0640 01 0000 0640 + 314 0 HED + 315 1 + 316 1 SUB 7 STORE SYMBOL AND EQUIV + 317 1 + 318 0 HED 7 + 319 0 SUBR7 STD EXITZ STORE EXIT 1400 24 0756 1159 + 320 0 LDD SS 1159 69 0662 1115 + 321 0 SDA XXXX2 8001 STORE 1115 22 1962 8001 + 322 0 8001 STU 9988 A SYMBOL 8001 21 9988 0591 + 323 0 A SUP 8001 0591 11 8001 0247 + 324 0 STL XXXX1 SAVE E 0247 20 1961 0964 + 325 0 SRT 0004 0964 30 0004 0875 + 326 0 DIV 2IXXX CALCULATE 0875 14 0856 0867 + 327 0 SLT 0004 LOCATION 0867 35 0004 0827 + 328 0 ALO C1 OF 0827 15 0630 0835 + 329 0 LDD C2 E 0835 69 0838 0641 + 330 0 SDA SEL AND 0641 22 0195 0148 + 331 0 LDD C3 STORE 0148 69 0901 0854 + 332 0 SDA SER 0854 22 0757 0760 + 333 0 STL OBEE 0760 20 1165 0868 + 334 0 SLO 8001 0868 16 8001 0975 + 335 0 ALO XXXX1 OBEE 0975 15 1961 1165 + 336 0 OBEE LDD 9986 B 1165 69 9986 0589 + 337 0 B NZU SER 0589 44 0757 0244 + 338 0 SLT 0004 SEL 0244 35 0004 0195 + 339 0 SS STU 9987 A CONDTANTS 0662 21 9987 0591 + 340 0 C1 LDD 2200 B 0630 69 2200 0589 + 341 0 C2 SDA 9985 EXITZ 0838 22 9985 0756 + 342 0 C3 SIA 9984 EXITZ 0901 23 9984 0756 + 343 0 OBEE 01 0000 OBEE ERASEABLE 1165 01 0000 1165 + 344 0 SEL 01 0000 SEL 0195 01 0000 0195 + 345 0 SER 01 0000 SER 0757 01 0000 0757 + 346 0 HED + 347 1 + 348 1 SUB 8 GIVEN SYM LOC GET EQUIV + 349 1 + 350 0 HED 8 + 351 0 SUBR8 STD EXIT STORE EXIT 0441 24 0294 0297 + 352 0 LDD 8003 0297 69 8003 1004 + 353 0 SDA LSYMB STORE L 1004 22 0197 1450 + 354 0 RAL 8001 1450 65 8001 0857 + 355 0 DIV 2DXXX 0857 14 0860 0821 + 356 0 SLT 0004 0821 35 0004 0881 + 357 0 ALO E1 8002 0881 15 0784 8002 + 358 0 8002 LDD 9975 TR 8002 69 9975 0678 + 359 0 TR NZU LH 0678 44 1031 0582 + 360 0 RAM 8001 LR GET E RH 1031 67 8001 0837 + 361 0 LH RAM 8001 GET E LH 0582 67 8001 0639 + 362 0 SRT 0004 LR 0639 30 0004 0837 + 363 0 LR LDD 8003 0837 69 8003 0344 + 364 0 SIA EQUIV 0344 23 1013 1016 + 365 0 RAL LSYMB EXIT 1016 65 0197 0294 + 366 1 + 367 0 E1 LDD 2200 TR 0784 69 2200 0678 + 368 0 EXIT 01 0000 EXIT ERASEABLE 0294 01 0000 0294 + 369 0 EQUIV 01 0000 EQUIV 1013 01 0000 1013 + 370 0 HED + 371 1 + 372 1 SUB 9 CALCULATE REG ADDRESS + 373 0 HED 9 + 374 0 SUBR9 STL EXITZ 1500 20 0756 1209 + 375 0 LDD MASK 1209 69 0762 1215 + 376 0 SDA ZZZZ1 1215 22 1640 0443 + 377 0 LDD AL0C STOR 0443 69 0246 0349 NOTE + 378 0 STOR STD XXXX1 0349 24 1961 1014 + 379 0 SRT 0008 1014 30 0008 0683 + 380 0 RAL 8003 TEST CHAR 0683 65 8003 0691 + 381 0 SLO 90XXX REGION 0691 16 0576 1081 + 382 0 BMI 0801 1081 46 0834 0801 + 383 0 SLT 0004 XXXX1 0834 35 0004 1961 + 384 3 XXXX1 ALO C 8002 1961 15 1064 8002 + 385 0 8002 RAL 9991 NEX 8002 65 9991 0245 + 386 0 NEX BDO ILL IS REG CHA 0245 90 0399 1550 + 387 0 SLO H9XXX ZZZZ1 DEFINED 1550 16 1403 1640 + 388 3 ZZZZ1 ALO 1959 ALL 1640 15 1959 1063 + 389 0 ALL SLO 1IXXX 1063 16 0550 1805 NOTE + 390 0 BMI ILL EXITZ 1805 46 0399 0756 + 391 0 ILL RAL EXITZ UNDEFINED 0399 65 0756 0861 + 392 0 ALO 1IXXX 8002 OR ILLEGAL 0861 15 0550 8002 + 393 1 + 394 0 MASK ALO 9999 ALL 0762 15 9999 1063 + 395 0 AL0C ALO C 8002 0246 15 1064 8002 + 396 0 C RAL 1650 NEX 1064 65 1650 0245 + 397 0 HED + 398 1 SUB 10 SET CC 8 AND PUNCH + 399 1 + 400 0 SUB10 STU CONGO 1600 21 1054 1007 + 401 0 RAU P0010 1007 60 1986 0791 + 402 0 AUP 84TH 0791 10 0394 0449 + 403 0 LDD CONGO H8SUB 0449 69 1054 1057 + 404 1 + 405 0 84TH 00 0800 0000 CONSTANT 0394 00 0800 0000 + 406 1 + 407 0 H8SUB STD 8EXIT 1057 24 1010 1113 + 408 0 SLT 0001 1113 35 0001 0969 + 409 0 SRT 0001 0969 30 0001 1075 + 410 0 AUP H8XXX 1075 10 0858 1163 + 411 0 STU P0010 1163 21 1986 0689 + 412 0 PCH P0001 0689 71 1977 0877 + 413 0 RAU TYP3A 8EXIT 0877 60 0680 1010 + 414 1 + 415 1 + 416 1 SUB 11 FIND AND RESERVE BEST + 417 1 + 418 0 HED 0 + 419 0 SUB11 AUP DRUMT TEST DRUM 1850 10 1453 1107 + 420 0 NZU SEX TAG 1107 44 1011 0862 + 421 0 STL EXIT IS ADDR L 0862 20 1067 0670 + 422 0 BD6 DI 0670 96 0823 1125 + 423 0 RAL SEQLL 1125 65 0778 0783 + 424 0 BMI D0001 0783 46 0786 0923 + 425 0 RAL 8003 SSW L 0786 65 8003 0841 + 426 0 DI LDD F D OR I 0823 69 0676 0679 + 427 0 SDA XXXX1 SUB13 FIND OPTIM 0679 22 1961 1114 + 428 1 + 429 0 SSW LDD GDA11 GET TABLE 0841 69 0444 0347 + 430 0 SRT 0005 TA STRT 0444 30 0005 1157 + 431 0 TA ALO A1P1 8002 SRCH TABL 1157 15 1060 8002 + 432 0 8002 AUP 0040 =0001 IS A LOCAT 8002 10 0040 0043 + 433 0 =0001 NZU ADD AVAILABLE 0043 44 0397 0198 + 434 0 BMI YES 0397 46 3100 1001 + 435 0 SUP 8001 SW NO STRTLU 3100 11 8001 1357 + 436 0 ADD ALO 1DXXX 8002 0198 15 0554 8002 + 437 1 + 438 3 SW STL AO SWIN MULTIPLE 1357 20 1061 1164 + 439 3 SW SLO AMAX SWOF EXIT 1357 16 1110 1265 + 440 3 SW SLO AO SWON 1357 16 1061 1315 + 441 1 + 442 0 SWIN LDD OFF2 STSW GET TLU ST 1164 69 1117 0770 + 443 1 + 444 0 SWOF NZE MAX TEST END 1265 45 1018 1019 + 445 0 ALO AMP1 SAI OF TABLE 1018 15 0871 1175 + 446 1 + 447 0 SWON NZE FULL IS DRUM 1315 45 1068 1069 + 448 0 ALO 8001 FULL 1068 15 8001 1225 + 449 0 ALO 10DXX SAI 1225 15 0555 1175 + 450 1 + 451 0 SAI LDD 1IXXX 8002 TLU AVAIL 1175 69 0550 8002 + 452 0 8002 TLU 0040 =0002 TABLE 8002 84 0040 0044 + 453 0 =0002 SLO A1 TA 0044 16 0447 1157 + 454 1 + 455 0 MAX RAL A1 TBL END-60 1019 65 0447 1051 + 456 0 LDD ON TEST FULL 1051 69 1104 1407 + 457 0 STD SW SAI 1407 24 1357 1175 + 458 1 + 459 0 STSW STD SW 8001 0770 24 1357 8001 + 460 1 + 461 0 FULL HLT 0222 DRUM PACKD 1069 01 0222 0873 + 462 0 RAL EXIT SET DRUM 0873 65 1067 0971 + 463 0 LDD 1IXXX TAG TO 1 0971 69 0550 1503 + 464 0 STD DRUMT SEX 1503 24 1453 1011 + 465 0 SEX ALO 8001 8002 K+1 EXIT 1011 15 8001 8002 + 466 1 + 467 0 YES LDD ST RESERVE 1001 69 1154 1457 + 468 0 SDA ERAS LOCATION 1457 22 1111 1214 + 469 0 RAU 8003 FOUND 1214 60 8003 1021 + 470 0 TLU (0001 1021 84 0550 1855 + 471 0 ALO FIXAV 8002 1855 15 1058 8002 + 472 0 8002 SUP (0011 SCA 8002 11 0560 1365 + 473 0 SCA BMI ERAS 1365 46 1118 1111 + 474 0 AUP 8001 1118 10 8001 1275 + 475 0 SLO 1DXXX 8002 1275 16 0554 8002 + 476 0 ERAS STU 0040 CA 1111 21 0040 0493 + 477 0 CA SLO STMPY CALCULATE 0493 16 0296 1101 + 478 0 SDA SAU2 LOCATION 1101 22 1905 1108 + 479 0 RSL ST FOUND 1108 66 1154 1309 + 480 0 ALO ERAS 1309 15 1111 1415 + 481 0 SLT 0004 1415 35 0004 1325 + 482 0 SLO 8002 1325 16 8002 0833 + 483 0 SLT 0005 0833 35 0005 0295 + 484 0 TLU .0001 0295 84 0500 3105 + 485 0 STD RCALL 3105 24 1158 1161 + 486 0 AUP 8002 1161 10 8002 1119 + 487 0 STU DLA 1119 21 0774 1027 NOTE + 488 0 ALO SXAVL 8002 1027 15 0780 8002 + 489 0 8002 RAL .0010 ASCA 8002 65 0509 1213 + 490 0 ASCA SLO RCALL 1213 16 1158 1263 + 491 0 SLT 0007 1263 35 0007 0779 + 492 0 AUP SAU2 0779 10 1905 1359 + 493 0 MPY -50 1359 19 0912 0883 + 494 0 ALO DLA 0883 15 0774 0829 + 495 0 ALO CNVRT 0829 15 0632 0887 + 496 0 SRT 0004 EXIT 0887 30 0004 1067 + 497 1 + 498 0 GDA11 STD RERUN GIVEN 0347 24 3150 1553 + 499 0 RAU 8002 DYNAMIC 1553 60 8002 1211 + 500 0 STD DYNA LEVEL-GET 1211 24 1264 1167 + 501 0 AUP 8001 TABL START 1167 10 8001 0973 + 502 0 SRT 0001 ADDRESS 0973 30 0001 0879 + 503 0 RSL 8002 0879 66 8002 0987 + 504 0 LDD OFF 0987 69 0690 0593 + 505 0 STD SW 0593 24 1357 1160 + 506 0 AUP DYNA RERUN 1160 10 1264 3150 + 507 1 + 508 0 .0001 07 0000 0000 GROUP TABL 0500 07 0000 0000 + 509 0 .0002 15 0000 0000 0501 15 0000 0000 + 510 0 .0003 23 0000 0000 0502 23 0000 0000 + 511 0 .0004 31 0000 0000 0503 31 0000 0000 + 512 0 .0005 39 0000 0000 0504 39 0000 0000 + 513 0 .0006 57 0000 0000 0505 57 0000 0000 + 514 0 .0007 65 0000 0000 0506 65 0000 0000 + 515 0 .0008 73 0000 0000 0507 73 0000 0000 + 516 0 .0009 81 0000 0000 0508 81 0000 0000 + 517 0 .0010 89 0000 0000 0509 89 0000 0000 + 518 1 + 519 0 (0001 00 0000 0001 BAND TABLE 0550 00 0000 0001 + 520 0 (0002 00 0000 0010 0551 00 0000 0010 + 521 0 (0003 00 0000 0100 0552 00 0000 0100 + 522 0 (0004 00 0000 1000 0553 00 0000 1000 + 523 0 (0005 00 0001 0000 0554 00 0001 0000 + 524 0 (0006 00 0010 0000 0555 00 0010 0000 + 525 0 (0007 00 0100 0000 0556 00 0100 0000 + 526 0 (0008 00 1000 0000 0557 00 1000 0000 + 527 0 (0009 01 0000 0000 0558 01 0000 0000 + 528 0 (0010 10 0000 0000 0559 10 0000 0000 + 529 0 (0011 99 9999 9999 0560 99 9999 9999 + 530 1 + 531 0 F 00 0000 SSW CONSTANTS 0676 00 0000 0841 + 532 0 A1P1 AUP 0000 =0001 1060 10 0000 0043 + 533 0 AO HLT 0000 AO 1061 01 0000 1061 + 534 0 AMAX AUP 0490 =0001 1110 10 0490 0043 + 535 0 APEX 74 0000 0001 3750 74 0000 0001 + 536 0 OFF2 SLO AMAX SWOF 1117 16 1110 1265 + 537 0 AMP1 TLU 0500 0044 0871 84 0500 0044 + 538 0 A1 TLU 0000 =0002 0447 84 0000 0044 + 539 0 ON SLO AO SWON 1104 16 1061 1315 + 540 0 SW HLT 0000 SW 1357 01 0000 1357 + 541 0 ST STU 0000 CA 1154 21 0000 0493 + 542 0 FIXAV SUP 0000 SCA 1058 11 0000 1365 + 543 0 STMPY 00 0550 0000 0296 00 0550 0000 + 544 0 SAU2 HLT 0000 SAU2 1905 01 0000 1905 + 545 0 RCALL HLT 0000 RCALL 1158 01 0000 1158 + 546 0 DLA HLT 0000 DLA 0774 01 0000 0774 + 547 0 -50 - 00 0000 0050 0912 - 00 0000 0050 + 548 0 CNVRT 00 3450 0000 0632 00 3450 0000 + 549 0 RERUN HLT 0000 RERUN 3150 01 0000 3150 + 550 0 DYNA HLT 0000 DYNA 1264 01 0000 1264 + 551 0 OFF STL AO SWIN 0690 20 1061 1164 + 552 0 SXAVL RAL 0000 ASCA 0780 65 0000 1213 + 553 0 HED + 554 1 + 555 1 SUB 12 SET BLANK L 8 + 556 1 + 557 0 SUB12 ALO P0010 3800 15 1986 0891 + 558 0 ALO 87NTH 0891 15 0494 0499 + 559 0 STL P0010 8003 0499 20 1986 8003 + 560 1 + 561 1 SUB 13 CAL OPTIMUM DYNAMIC ADR + 562 1 + 563 0 HED Y + 564 0 SUB13 STD EXITZ STORE EXIT 1114 24 0756 1409 + 565 0 BD5 I D OR I 1409 95 1012 1314 + 566 0 BD6 RAM + '+U 1012 96 1465 1217 + 567 0 RAL 1954 TEST CORE 1217 65 1954 1459 + 568 0 SRT 0002 D ADDR 1459 30 0002 1515 + 569 0 RAU 8002 TAGGED 1515 60 8002 1023 + 570 0 SRT 0002 1023 30 0002 1029 + 571 0 SUP 8003 1029 11 8003 1037 + 572 0 NZE RAM 1037 45 0790 1465 + 573 0 RAL OPREG SET OPREG 0790 65 0643 0497 + 574 0 ALO 1IXXX TO N + 1 0497 15 0550 3155 + 575 0 STL OPREG RAM 3155 20 0643 1465 + 576 0 RAM RAM OPTIM 1465 67 0754 1509 + 577 0 SLT 0002 CLEAR OP 1509 35 0002 1565 + 578 0 SUP 8003 CODE 1565 11 8003 1073 + 579 0 SLT 0001 1073 35 0001 1079 + 580 0 SLO 8002 1079 16 8002 1087 + 581 0 SLT 0001 1087 35 0001 0693 + 582 0 ALO 8001 0693 15 8001 0549 + 583 0 SRT 0003 SEO 0549 30 0003 1507 + 584 0 I RAM OPTIM I 1314 67 0754 1559 + 585 0 BD2 SHOP SHIFT TEST 1559 92 1062 1364 + 586 0 SLT 0004 SEO + '+U 1364 35 0004 1507 + 587 0 SEO STL XXXX1 SAVE EV OD 1507 20 1961 1414 + 588 0 RAL OPREG 1414 65 0643 0547 + 589 0 DIV 2IXXX 0547 14 0856 1267 + 590 0 RAU 8003 1267 60 8003 1375 + 591 0 ALO XXXX1 1375 15 1961 1615 + 592 0 NZU R8 1615 44 1169 0820 + 593 0 SLT 0002 1169 35 0002 1425 + 594 0 RAL 8002 R8 1425 65 8002 0820 + 595 0 R8 SRT 0008 GET BASE 0820 30 0008 0789 + 596 0 ALO OPREG PLUS DELTA 0789 15 0643 0597 + 597 0 DIV 50XXX 0597 14 3850 1261 + 598 0 RAL 8003 EXITZ 1261 65 8003 0756 + 599 1 + 600 0 SHOP BD3 XAS IR TEST 1062 93 1815 1317 + 601 0 RAL P0007 1815 65 1983 1137 + 602 0 SRT 0004 DIGIT OF 1137 30 0004 0647 + 603 0 SLT 0009 D ADDRESS 0647 35 0009 1367 + 604 0 SLO 8002 1367 16 8002 1475 + 605 0 TLU U0001 1475 84 1250 3755 + 606 0 ALO GU 8002 3755 15 1208 8002 + 607 0 8002 RAL 9969 TOP 8002 65 9969 1123 + 608 0 TOP SLT 0002 1123 35 0002 1129 + 609 0 LDD OPTIM IS OP SRD 1129 69 0754 1557 + 610 0 BD4 SEO 1557 94 1210 1507 + 611 0 SLT 0004 SEO SRD 1210 35 0004 1507 + 612 1 + 613 0 XAS RAL P0007 TLU 1317 65 1983 1237 + 614 0 SRT 0004 D ADDRESS 1237 30 0004 0697 + 615 0 SLT 0006 0697 35 0006 1311 + 616 0 SLO 8002 1311 16 8002 1219 + 617 0 TLU I0001 1219 84 1300 3805 + 618 0 ALO GXD 8002 3805 15 1308 8002 + 619 0 8002 RAL 9968 NXT 8002 65 9968 1173 + 620 0 NXT SLT 0004 SEO 1173 35 0004 1507 + 621 1 + 622 0 U0001 00 2322 2524 SHIFT 1250 00 2322 2524 --0+ + 623 0 U0002 10 0706 0706 OPTIMIZING 1251 10 0706 0706 + 624 0 U0003 20 0706 0908 TABLE 1252 20 0706 0908 + 625 0 U0004 30 0908 1110 1253 30 0908 1110 + 626 0 U0005 40 1110 1312 1254 40 1110 1312 + 627 0 U0006 50 1312 1514 1255 50 1312 1514 + 628 0 U0007 60 1514 1716 1256 60 1514 1716 + 629 0 U0008 70 1716 1918 1257 70 1716 1918 + 630 0 U0009 80 1918 2120 1258 80 1918 2120 + 631 0 U0010 90 2120 2322 1259 90 2120 2322 + 632 1 + 633 0 I0001 39 9906 0600 X ACCUM 1300 39 9906 0600 + 634 0 I0002 79 9907 0700 ADD SUB 1301 79 9907 0700 + 635 0 I0003 80 0008 0800 TABLE 1302 80 0008 0800 + 636 0 I0004 80 0106 0600 1303 80 0106 0600 + 637 0 I0005 80 0209 0800 1304 80 0209 0800 + 638 0 I0006 80 0308 0900 1305 80 0308 0900 + 639 0 I0007 90 5908 0800 1306 90 5908 0800 + 640 0 I0008 99 9909 0900 1307 99 9909 0900 + 641 1 + 642 0 GU RAL 0000 TOP CONSTANTS 1208 65 0000 1123 + 643 0 GXD RAL 0000 NXT 1308 65 0000 1173 + 644 0 HED + 645 1 + 646 1 SUB 17 CALC 800X EQUIVALENT + 647 1 + 648 0 HED X + 649 0 SB17D LDD DEQ DI D EQUIV 3900 69 1603 1006 + 650 0 SB17I LDD IEQ DI I EQUIV 3950 69 1803 1006 + 651 0 DI STD XXXX1 SAVE TAG 1006 24 1961 1464 + 652 0 STU EXITY SAVE EXIT 1464 21 0624 1077 + 653 0 STL XXXX2 SAVE 800X 1077 20 1962 1865 + 654 0 LDD XXXX1 SUB13 CALC OPTIM 1865 69 1961 1114 + 655 0 SDA STL EQUIV DYNAM ADDR 1151 20 1013 1066 + 656 0 DIV 2IXXX 1066 14 0856 1417 + 657 0 STU XXXX1 STORE EVEN 1417 21 1961 1514 + 658 0 RAL OPTIM ODD FACTOR 1514 65 0754 1809 + 659 0 BMI XM 1809 46 1112 1313 + 660 0 LDD EXITZ BRANCH IF 1112 69 0756 1859 + 661 0 BD5 D I ARITHMETIC 1859 95 1162 1614 + 662 0 D RAL XXXX2 OP CODE 1162 65 1962 1467 + 663 0 SLO 8001 AND LESSEN 1467 16 0870 1525 + 664 0 NZE XM EVEN 8001 1525 45 1313 1179 + 665 0 RAL XXXX1 DATA DA 1179 65 1961 1915 + 666 0 NZE EX BY 2 OR 1915 45 1168 1269 + 667 0 RAL 48 ALO INCREASE 1269 65 0822 1127 + 668 0 I RAL EQUIV ANY 800X 1614 65 1013 1517 + 669 0 ALO 2IXXX INST DA 1517 15 0856 1361 + 670 0 STL EQUIV XM BY 2 1361 20 1013 1313 + 671 0 XM RAL XXXX1 1313 65 1961 3115 + 672 0 NZE OD EV ADD TO DA 3115 45 1218 1319 + 673 0 OD RAL 8002 EO POSSIBLE 1218 65 1071 1575 + 674 0 EV RAL 8003 EO EVEN OR 1319 65 0872 1575 + 675 0 EO SLO XXXX2 ODD FACTOR 1575 16 1962 1617 + 676 0 NZE EX ADD1 FOR 8002 1617 45 1168 1121 + 677 0 EX RAL EQUIV EXITY AND 8003 D 1168 65 1013 0624 + 678 0 ADD1 RAL 1IXXX ALO AND I DAS 1121 65 0550 1127 + 679 0 ALO ALO EQUIV EXITY 1127 15 1013 0624 + 680 1 + 681 0 DEQ 00 0088 SDA 1603 00 0088 1151 + 682 0 IEQ 00 0009 SDA 1803 00 0009 1151 + 683 0 8001 00 0000 8001 0870 00 0000 8001 + 684 0 8002 00 0000 8002 1071 00 0000 8002 + 685 0 8003 00 0000 8003 0872 00 0000 8003 + 686 0 48 00 0000 0048 0822 00 0000 0048 + 687 0 HED + 688 1 + 689 1 SUB 18 INDEX ADDRESS + 690 1 + 691 0 HED W + 692 0 INDEX STL XXXX1 STORE ADDR 1351 20 1961 1814 + 693 0 STU EXITY STORE EXIT 1814 21 0624 1177 + 694 0 RAU 1954 GET D TAG 1177 60 1954 1909 + 698 0 SLT 0007 CLEAR OPCD 1909 35 0007 1825 + 696 0 ALO INDXI 1825 15 0828 1033 + 697 0 LDD EXITY 1033 69 0624 1227 + 698 0 BD5 D I D OR I 1227 95 0830 0682 + 699 0 I SLT 0002 0682 35 0002 0839 + 700 0 BD6 DRMI CORI TEST CORE 0839 96 0192 0594 + 701 0 DRMI NZU COMP1 OR DRUM 0192 44 0345 0346 + 702 0 SRT 0001 A 0346 30 0001 1853 + 703 0 CORI NZU DTAG AND I TAG 0594 44 0797 0248 + 704 0 SRT 0002 CHNGE 4000 0248 30 0002 3855 + 705 0 ALO 8002 A TO 800 3855 15 8002 1853 + 706 0 DTAG SUP 8003 0797 11 8003 3905 + 707 0 NZE COMP2 3905 45 1358 3109 + 708 0 RAL 8001 SET TO MPY 3109 65 8001 3165 + 709 0 SLT 0001 CORD ITAG BY200 3165 35 0001 1171 + 710 0 D SRT 0009 POSITN TAG 0830 30 0009 1401 + 711 0 BD6 DRMD CORD TESTDRM OR 1401 96 1354 1171 + 712 0 CORD MPY 0200I A CORE 1171 19 0824 1853 NOTE + 713 0 DRMD SLO 8002 1354 16 8002 1363 + 714 0 NZU A IS THERE A 1363 44 1817 1853 + 715 0 SUP 2IXXX 1817 11 0856 1411 + 716 0 LDD EXITY TEST 80XX 1411 69 0624 1277 + 717 0 BD7 800X OR 1277 97 0880 0782 + 718 0 BMI DAX D80XX DRUM 0880 46 1083 0884 + 719 0 D80XX LDD 400IX TAG 8 OR C 0884 69 1287 0840 -- + + 720 0 STD INDXI 0840 24 0828 1131 + 721 0 NZU DAX A TEST B C 1131 44 1083 1853 + 722 0 800X NZU 0945 D80XX IS IT B 0782 44 0945 0884 + 723 0 DAX RAL 4000I A TAG A ANDC 1083 65 0836 1853 + 724 0 A ALO XXXX1 EXITY 1853 15 1961 0624 + 725 0 400IX 00 0000 0400 1287 00 0000 0400 + 726 1 + 727 0 COMP1 STU ITAGW 1620R SAVE TAG 0345 21 1451 1404 + 728 0 COMP2 STD ITAGW 1620R 1358 24 1451 1404 + 729 0 1620R RAU 1952 1404 60 1952 1607 + 730 0 NZU CLRIT 1607 44 1461 1212 + 731 0 RAU 1954 TEST IR 1461 60 1954 3159 + 732 0 SIA XXXX2 IR OP CODE 3159 23 1962 3765 + 733 0 TLU )0001 3765 84 0600 3955 + 734 0 ALO OPSRH 8002 3955 15 1408 8002 + 735 0 8002 SUP )0013 ARS 8002 11 0612 1867 + 736 0 ARS SRT 0004 1867 30 0004 1327 + 737 0 NZU CLRIT 1327 44 1181 1212 + 738 0 RAL 1954 CLR I-TAG 1181 65 1954 3759 + 739 0 SRT 0002 FROM 3759 30 0002 3815 + 740 0 SLT 0002 INSTRUCTN 3815 35 0002 1221 + 741 0 STL P0004 1221 20 1980 1133 + 742 0 STD 1954 ZERO I-GO 1133 24 1954 1807 + 743 0 STU P0003 DNB C FIND LOCAT 1807 21 1979 0832 + 744 0 CLRIT STU ITAGW 0954 ERROR 1212 21 1451 0954 + 745 0 OPSRH SUP 0000 ARS 1408 11 0000 1867 + 746 0 ITAGW HLT 0000 ITAGW 1451 01 0000 1451 + 747 1 + 748 0 )0001 ALF AXA SOAP2 TAGGED 0600 61 8761 0000 NOTE + 749 0 )0002 ALF AXB SOAP2 I-ADDRESS 0601 61 8762 0000 + 750 0 )0003 ALF AXC SOAP2 OP CODE 0602 61 8763 0000 + 751 0 )0004 ALF RAA SOAP2 SEARCH 0603 79 6161 0000 + 752 0 )0005 ALF RAB SOAP2 TABLE 0604 79 6162 0000 + 753 0 )0006 ALF RAC SOAP2 0605 79 6163 0000 + 754 0 )0007 ALF RSA SOAP2 0606 79 8261 0000 + 755 0 )0008 ALF RSB SOAP2 0607 79 8262 0000 + 756 0 )0009 ALF RSC SOAP2 0608 79 8263 0000 + 757 0 )0010 ALF SXA SOAP2 0609 82 8761 0000 + 758 0 )0011 ALF SXB SOAP2 0610 82 8762 0000 + 759 0 )0012 ALF SXC SOAP2 0611 82 8763 0000 + 760 0 )0013 ALF 99999 SOAP2 TABLE END 0612 99 9999 9999 + 761 0 EXITY 01 0000 EXITY ERASEABLE 0624 01 0000 0624 + 762 0 HED + 763 1 + 764 1 SUB 19 PROCESS LOCATION + 765 1 + 767 0 REG G0925 0925 + 768 0 REG J0928 0928 + 769 0 REG K0931 0931 + 770 0 REG L0933 0933 + 771 1 + 772 0 HED A + 773 0 PROCL STD EXITX STORE EXIT 1501 24 0653 1056 + 774 0 RAU 1951 IS L BLANK 1056 60 1951 1106 + 775 0 NZU NB 1106 44 3809 1260 + 776 0 ALO SEQLL 1260 15 0778 1183 + 777 0 BMI BLNK 1183 46 0886 1337 + 778 0 LDD TCORI 1337 69 0890 0793 + 779 0 BDO K0001 L0003 0793 90 0931 0935 + 780 0 BLNK RAU DRUMT 0886 60 1453 1857 + 781 0 NZU D0002 B 1857 44 0924 1262 + 782 0 B RAL OPREG SETL BLANK 1262 65 0643 0847 + 783 0 SETL SLT 0004 SET L 0847 35 0004 1907 + 784 0 LDD P0008 TO OR 1907 69 1984 1387 + 785 0 SDA P0008 1387 22 1984 1437 + 786 0 RAL SEQLL 1437 65 0778 1233 + 787 0 BMI EXITX 1233 46 0653 1487 + 788 0 ALO CTRSQ 1487 15 0990 0395 + 789 0 STL SEQLL EXITX 0395 20 0778 0653 + 790 0 NB LDD G SUBR4 WHAT IS L 3809 69 1312 0850 + 791 0 G0001 RAL 1957 K0001 ABSOLUTE 0925 65 1957 0931 + 792 0 G0002 ALO K SUBR9 0926 15 1229 1500 + 793 0 G0003 LDD J SUBR6 SYMBOLIC 0927 69 0930 1050 + 794 0 G0101 LDD J SUBR6 1025 69 0930 1050 + 795 0 K0001 LDD L SUBR5 TEST RANGE 0931 69 1034 0900 + 796 0 K0002 RAU 87NTH X REG ERROR 0932 60 0494 0599 + 797 0 X AUP P0010 SET BLANK 0599 10 1986 0991 + 798 0 STU P0010 SETL L8 0991 21 1986 0847 + 799 0 L0001 STL OPREG SETL DRUM ADDR 0933 20 0643 0847 + 800 0 L0002 STL TYP3A 800X 800X LOC 0934 20 0680 1283 + 801 0 L0003 LDD ORCEQ 89X CORE ADDR 0935 69 0888 1091 + 802 0 L0004 RAU 87NTH X OTHER 0936 60 0494 0599 + 803 0 80XXL RAU 87NTH X 80XX ADDR 1912 60 0494 0599 + 804 0 800X LDD ORXEQ 89X 1283 69 1036 1091 + 805 0 89X STD OPREG X 1091 24 0643 0599 + 806 0 J0001 RAL EQUIV K0001 SYM DEFIND 0928 65 1013 0931 + 807 0 J0002 RAL D SUB11 SYM UNDEF 0929 65 0882 1850 + 808 0 D0001 STL OPREG SS S EQ FOUND 0923 20 0643 0396 + 809 0 D0002 RAU 87NTH X DRUM PAKED 0924 60 0494 0599 + 810 0 SS AUP HSYMB STORE 0396 10 0622 1377 + 811 0 ALO LSYMB SYMBOL 1377 15 0197 1551 + 812 0 LDD B SUBR7 1551 69 1262 1400 + 813 1 + 814 0 G 00 0000 G0001 CONSTANTS 1312 00 0000 0925 + 815 0 K NOP 1957 K0001 1229 00 1957 0931 + 816 0 J 00 0008 J0001 0930 00 0008 0928 + 817 0 L 00 0000 L0001 1034 00 0000 0933 + 818 0 D 00 0090 D0001 0882 00 0090 0923 + 819 0 86TH 00 0008 0000 1601 00 0008 0000 + 820 0 87NTH 00 0000 8000 0494 00 0000 8000 + 821 0 EXITX 01 0000 EXITX ERASEABLE 0653 01 0000 0653 + 822 0 OPREG 00 0000 0000 0643 00 0000 0000 + 823 0 DRUMT 01 0000 DRUMT 1453 01 0000 1453 + 824 0 ORCEQ 01 0000 ORCEQ 0888 01 0000 0888 + 825 0 ORXEQ 01 0000 ORXEQ 1036 01 0000 1036 + 826 0 HED + 827 1 + 828 1 SUB 20 PROCESS DATA ADDRESS + 829 1 + 830 0 REG D0937 0937 PROC D + 831 0 REG F0939 0939 + 832 0 REG G0941 0941 + 833 0 REG J0944 0944 + 834 0 REG K0946 0946 + 835 0 REG L0949 0949 + 836 1 + 837 0 HED B + 838 0 PROCD STD EXITX STORE EXIT 1801 24 0653 1156 + 839 0 RAU 1952 1156 60 1952 3107 + 840 0 NZU NB 3107 44 1511 1362 + 841 0 ALO SEQDD 1362 15 3865 1369 + 842 0 BMI J0001 1369 46 0922 0944 + 843 0 RAL D SUB11 FIND 0922 65 1875 1850 + 844 0 D0001 STL ORBAL L0004 OPTIMUM D 0937 20 1141 0952 + 845 0 D0002 RAU 88TH X DRUM PAKED 0938 60 1241 0445 + 846 0 BT LDD OPTIM IS OP 1851 69 0754 3157 + 847 0 BD1 CKSQD 3157 91 1310 1412 + 848 0 STL OPREG CKSQD 1412 20 0643 1310 + 849 0 X AUP P0010 SET BLANK 0445 10 1986 1291 + 850 0 STU P0010 CKSQD 1291 21 1986 1310 + 851 0 CKSQD RAL SEQDD 1310 65 3865 1419 + 852 0 BMI EXITX 1419 46 0653 1223 + 853 0 ALO CTRSQ 1223 15 0990 0495 + 854 0 STL SEQDD EXITX 0495 20 3865 0653 + 855 0 NB LDD G SUBR4 WHAT IS D 1511 69 1864 0850 + 856 0 G0001 RAL 1958 J0001 0941 65 1958 0944 + 857 0 G0002 ALO J SUBR9 0942 15 0595 1500 + 858 0 G0003 LDD K SUBR6 SYMBOLIC 0943 69 0446 1050 + 859 0 G0101 LDD K- SUBR6 1041 69 0644 1050 + 860 0 J0001 LDD L SUBR5 TEST RANGE 0944 69 0897 0900 + 861 0 J0002 RAU 88TH X REG ERROR 0945 60 1241 0445 + 862 0 L0001 AUP AXD INDEX DRUM ADDR 0949 10 0852 1351 + 863 0 L0002 AUP AX8A INDEX TEST TAG 0950 10 1903 1351 + 864 0 L0003 AUP AXC INDEX CORE ADDR 0951 10 1454 1351 + 865 0 L0004 SLT 0004 SD OTHER 0952 35 0004 1413 + 866 0 80XXD AUP AX8T INDEX 80XX ADDR 1928 10 1231 1351 + 867 0 800X SLT 0004 SET 80XX D 1901 35 0004 1561 + 868 0 LDD P0007 1561 69 1983 1086 + 869 0 SDA P0007 1086 22 1983 1136 + 870 0 SRT 0004 1136 30 0004 0997 + 871 0 AUP XEQ SB17D GET 800X E 0997 10 3101 3900 + 872 0 SCD SLT 0004 SET CORE D 3151 35 0004 1611 + 873 0 LDD P0007 1611 69 1983 1236 + 874 0 SDA P0007 1236 22 1983 1286 + 875 0 SRT 0004 1286 30 0004 1047 + 876 0 LDD CEQ SUB13 GET CORE E 1047 69 3751 1114 + 877 0 SCEQ STL ORCEQ BT SAVE CORE 3801 20 0888 1851 + 878 0 K0001 STD PCHEX K0003 0946 24 1630 0948 + 879 0 K0002 RAL EQUIV J0001 0947 65 1013 0944 + 880 0 K0003 RAL F SUB11 0948 65 3851 1850 + 881 0 F0001 STL EQ SS SAVE EQ 0939 20 0843 0496 + 882 0 F0002 STU DDRMT J0002 DRUM PAKED 0940 21 0694 0945 + 883 0 SS AUP HSYMB STORE 0496 10 0622 1427 + 884 0 ALO LSYMB SYMBOL 1427 15 0197 3901 + 885 0 LDD SUBR7 3901 69 1504 1400 + 886 0 RAL EQ L0001 1504 65 0843 0949 + 887 0 SD LDD P0007 SET D ADDR 1413 69 1983 1336 + 888 0 SDA P0007 1336 22 1983 1386 + 889 0 SRT 0004 BT 1386 30 0004 1851 + 890 1 + 891 0 D 00 0088 D0001 CONSTANTS 1875 00 0088 0937 + 892 0 G 00 0000 G0001 1864 00 0000 0941 + 893 0 J NOP 1958 J0001 0595 00 1958 0944 + 894 0 L 00 0000 L0001 0897 00 0000 0949 + 895 0 F 00 0088 F0001 3851 00 0088 0939 + 896 0 K 00 0089 K0002 0446 00 0089 0947 + 897 0 K- - 00 0089 K0002 0644 - 00 0089 0947 + 898 0 AXD 00 0888 D0001 0852 00 0888 0937 + 899 0 AXC 00 0098 SCD 1454 00 0098 3151 + 900 0 AX8T 00 0988 L0004 1231 00 0988 0952 + 901 0 AX8A 00 0988 800X 1903 00 0988 1901 + 902 0 XEQ STL ORXEQ BT 3101 20 1036 1851 + 903 0 CEQ 00 0098 SCEQ 3751 00 0098 3801 + 904 0 88TH 00 0000 0800 1241 00 0000 0800 + 905 0 EQ 01 0000 EQ ERASEABLE 0843 01 0000 0843 + 906 0 ORBAL 01 0000 ORBAL 1141 01 0000 1141 + 907 0 HED + 908 1 + 909 1 SUB 21 PROCESS INSTR ADDRESS + 910 1 + 911 0 REG D0953 0953 PROC I + 912 0 REG F0955 0955 + 913 0 REG G0958 0958 + 914 0 REG J0960 0960 + 915 0 REG K0962 0962 + 916 0 REG L0965 0965 + 917 1 + 918 0 HED C + 919 0 PROCI STD EXITX STORE EXIT 3951 24 0653 1356 + 920 0 RAU 1953 IS I BLANK 1356 60 1953 3757 + 921 0 NZU NB 3757 44 1811 1462 + 922 0 ALO SEQII 1462 15 3915 1469 + 923 0 BMI J0001 1469 46 0972 0960 + 924 0 RAU 1952 IS D BLANK 0972 60 1952 3807 + 925 0 NZU DNB 3807 44 0832 1512 + 926 0 AUP DRUMT 1512 10 1453 3857 + 927 0 NZU G0002 3857 44 0959 1562 + 928 0 RAL ORBAL L0004 TAG 1562 65 1141 0968 + 929 0 DNB RAL D SUB11 FIND BEST 0832 65 0885 1850 + 930 0 D0001 STL ORBAL L0001 FOUND 0953 20 1141 0965 + 931 0 D0002 RAL P0010 X DRUM PAKED 0954 65 1986 1341 + 932 0 X ALO 89TH 1341 15 0794 0649 + 933 0 STL P0010 CKSQI 0649 20 1986 0889 + 934 0 NB LDD F SUBR4 WHAT IS I 1811 69 1914 0850 + 935 0 F0001 RAL 1959 J0001 ABSOLUTE 0955 65 1959 0960 + 936 0 F0002 ALO J SUBR9 0956 15 3859 1500 + 937 0 F0003 LDD K SUBR6 SYMBOLIC 0957 69 1360 1050 + 938 0 F0101 LDD K SUBR6 1055 69 1360 1050 + 939 0 J0001 LDD L SUBR5 TEST RANGE 0960 69 1463 0900 + 940 0 J0002 RAL P0010 X REG ERR0R 0961 65 1986 1341 NOTE + 941 0 L0001 AUP AXD INDEX DRUM ADDR 0965 10 1268 1351 + 942 0 L0002 AUP 8002 800X 800X 0966 10 8002 1925 + 943 0 L0003 AUP AXC INDEX CORE ADDR 0967 10 0970 1351 NOTE + 944 0 L0004 LDD P0007 OTHER 0968 69 1983 1436 + 945 0 SIA P0007 MOR 1436 23 1983 1486 + 946 0 80XXI NOP 0000 L0004 80XX IADDR 1944 00 0000 0968 + 947 0 800X ALO INDXI 1925 15 0828 1333 + 948 0 ALO 8001 1333 15 8001 0989 + 949 0 LDD P0007 0989 69 1983 1536 + 950 0 SIA P0007 1536 23 1983 1586 + 951 0 RAL 8003 1586 65 8003 0893 + 952 0 AUP XEQ SB17I 0893 10 0546 3950 + 953 0 90XX LDD P0007 SET CORE 1052 69 1983 1836 + 954 0 SIA P0007 ADDRESS 1836 23 1983 1886 + 955 0 LDD CEQ SUB13 GET CORE E 1886 69 1039 1114 + 956 0 K0001 RAL EQUIV J0001 SYM DEFIND 0962 65 1013 0960 + 957 0 K0002 RAL G SUB11 SYM UNDEF 0963 65 1116 1850 + 958 0 G0001 AUP AXDS INDEX FOUND BEST 0958 10 1861 1351 NOTE + 959 0 G0002 RAL P0010 X DRUM PAKED 0959 65 1986 1341 + 960 0 LDD LDD P0007 SI 1102 69 1983 1936 NOTE + 961 0 SI SIA P0007 1936 23 1983 3136 + 962 0 RAL XXXX1 3136 65 1961 3965 + 963 0 AUP HSYMB STORE 3965 10 0622 1477 + 964 0 ALO LSYMB SYMBOL 1477 15 0197 1152 + 965 0 LDD MOR SUBR7 1152 69 1486 1400 + 966 0 MOR LDD ORBAL SET OR 1486 69 1141 0844 + 967 0 STD OPREG CKSQI 0844 24 0643 0889 + 968 0 CKSQI RAL SEQII 0889 65 3915 1519 + 969 BMI EXITX 1519 46 0653 1273 + 970 0 ALO CTRSQ 1273 15 0990 0645 + 971 0 STL SEQII EXITX 0645 20 3915 0653 + 972 0 SCEQ STL ORCEQ MOR SAVE CORE 1352 20 0888 1486 NOTE + 973 1 + 974 0 D 00 0089 D0001 CONSTANTS 0885 00 0089 0953 + 975 0 F 00 0000 F0001 1914 00 0000 0955 + 976 0 J NOP 1959 J0001 3859 00 1959 0960 + 977 0 K 00 0099 K0001 1360 00 0099 0962 + 978 0 L 00 0000 L0001 1463 00 0000 0965 + 979 0 G 00 0089 G0001 1116 00 0089 0958 + 980 0 89TH 00 0000 0080 0794 00 0000 0080 + 981 0 AXD 00 0089 L0004 1268 00 0089 0968 + 982 0 AXC 00 0099 90XX 0970 00 0099 1052 + 983 0 AXDS 00 0089 LDD 1861 00 0089 1102 + 984 0 XEQ STL ORXEQ MOR 0546 20 1036 1486 + 985 0 CEQ 00 0009 SCEQ 1039 00 0009 1352 + 986 0 HED + 987 1 + 988 1 SUB 2 RESERVE UNRESERVE + 989 1 + 990 0 HED 2 + 991 0 SUBR2 STD EXITY 1402 24 0624 1527 + 992 0 STL N STORE N 1527 20 1281 1084 + 993 0 SLO 8001 1084 16 8001 1391 + 994 0 AUP 8003 1391 10 8003 0699 + 995 0 SRT 0003 0699 30 0003 3907 + 996 0 STU X SAVE GROUP 3907 21 1612 1166 + 997 0 SUP 8001 1166 11 8001 1323 + 998 0 SLT 0001 1323 35 0001 1279 + 999 0 STU P SAVE BAND 1279 21 1134 1537 +1000 0 SUP 8001 1537 11 8001 0993 +1001 0 SLT 0002 0993 35 0002 0799 +1002 0 MPY 51XXX GET 0799 19 1452 1373 +1003 0 SRT 0001 TABLE 1373 30 0001 1329 +1004 0 LDD GDA11 1329 69 1032 0347 +1005 0 SLT 0001 1032 35 0001 1089 +1006 0 STU ANY 1089 21 0894 1097 +1007 0 SRT 0002 1097 30 0002 3103 +1008 0 SLO 8002 3103 16 8002 1911 +1009 0 SRT 0006 1911 30 0006 1975 +1010 0 ALO 8001 1975 15 8001 1331 +1011 0 ALO H5 1331 15 1184 1139 +1012 0 NZU SLT 1139 44 1043 0994 +1013 0 ALO 5000 SLT 1043 15 0596 0994 +1014 0 SLT SLT 0002 0994 35 0002 1502 +1015 0 ALO BGIN2 1502 15 1406 3111 +1016 0 STL A393 3111 20 1216 1569 +1017 0 RAU ANY 1569 60 0894 0849 +1018 0 AUP X 0849 10 1612 1917 +1019 0 ALO P 1917 15 1134 1239 +1020 0 SLT 0004 1239 35 0004 0899 +1021 0 ALO C1 GET SLT 0899 15 1552 3957 +1022 0 STL B0002 AND SRT 3957 20 0042 0695 +1023 0 LDD C2 1NSTRUCTNS 0695 69 0298 1602 +1024 0 SDA SPR 1602 22 1456 3909 +1025 0 AUP C3 SU AND RAL 3909 10 1812 3117 +1026 0 SU STU SA 3117 21 1022 3125 +1027 0 AUP C4 8003 3125 10 0878 8003 +1028 0 8003 RAL 9992 B0002 8003 65 9992 0042 +1029 0 B0002 SLT 0009 XX 0042 35 0009 1513 +1030 0 XX ALO 8003 1513 15 8003 1271 NOTE +1031 0 RAU 8002 1271 60 8002 1379 +1032 0 SLT 0001 1379 35 0001 1035 +1033 0 SRT 0001 1035 30 0001 1441 +1034 0 AUP W SPR 1441 10 1962 1456 +1035 0 SPR SRT 0009 SAC 1456 30 0009 1577 +1036 0 SAC AUP 8002 SA 1577 10 8002 1022 +1037 0 SA STU 9983 B0001 1022 21 9983 0041 +1038 1 +1039 0 B0001 RAL N IS N ZERO 0041 65 1281 1085 NOTE +1040 0 NZE 1OR50 EXITY 1085 45 0988 0624 +1041 0 1OR50 SLO 1IXXX NEXT REDUCE N 0988 16 0550 1506 +1042 0 NEXT STL N EITHR BY 1 1506 20 1281 1234 +1043 0 EITHR RAU SA EITH2 IS AI 1234 60 1022 1827 +1044 0 EITH2 SUP A393 AT BAND 1827 11 1216 1321 +1045 0 BMI TPL END YES 1321 46 0874 3175 +1046 0 AUP 8001 NO 0874 10 8001 1381 NOTE +1047 0 AUP SU 1381 10 1284 3117 +1048 0 00 0008 0000 1284 00 0008 0000 +1049 1 +1050 0 TPL AUP 8001 BAND END 3175 10 8001 1431 +1051 0 ALO 8001 TEST TABL 1431 15 8001 1587 +1052 0 SUP LAST END 1587 11 1040 0795 +1053 0 BMI TP 0795 46 0348 0999 +1054 0 AUP 8001 NO STEP 0348 10 8001 1556 +1055 0 ALO 50D TO NXT BND 1556 15 3959 1613 +1056 0 STL A393 1613 20 1216 1619 +1057 0 AUP SU 1619 10 1072 3117 +1058 0 00 0018 0000 1072 00 0018 0000 NOTE +1059 1 +1060 0 TP LDD BGIN2 0999 69 1406 1410 +1061 0 STD A393 TPR 1410 24 1216 1819 +1062 0 TPR RAL SPR 1819 65 1456 3161 NOTE +1063 0 SLO C2 IS P 9 3161 16 0298 3153 +1064 0 NZE ZP 3153 45 1606 1458 +1065 0 ALO C5 1606 15 1460 1266 +1066 0 LDD C1 1266 69 1552 1806 +1067 0 SDA B0002 1806 22 0042 0845 +1068 0 STL SPR 56 0845 20 1456 1510 +1069 0 56 RAU SA SZ REDUCE AI 1510 60 1022 1877 +1070 0 SZ SUP SU BY 482 1877 11 1030 3117 +1071 0 00 0482 0000 1030 00 0482 0000 +1072 1 +1073 0 ZP LDD C1 SET P TO 1458 69 1552 1856 +1074 0 STD B0002 ZERO 1856 24 0042 0895 +1075 0 LDD C7 0895 69 0398 1802 +1076 0 STD SPR 78 1802 24 1456 1560 +1077 0 78 RAU SA 178 REDUCE AI 1560 60 1022 1927 +1078 0 178 SUP SU BY 481 1927 11 1080 3117 +1079 0 00 0481 0000 1080 00 0481 0000 +1080 1 NOTE +1081 0 C1 SLT 0000 XX CONSTANTS 1552 35 0000 1513 +1082 0 C2 SRT 0009 SAC 0298 30 0009 1577 +1083 0 C3 STU 0000 B0001 1812 21 0000 0041 +1084 0 C4 44 0000 0001 0878 44 0000 0001 +1085 0 A393 STU 0482 B0001 1216 21 0482 0041 +1086 0 C5 SRT 0010 SAC 1460 30 0010 1577 +1087 0 C7 SRT 0000 SAC 0398 30 0000 1577 +1088 0 W HLT 0000 W 1962 01 0000 1962 NOTE +1089 0 P HLT 0000 P 1134 01 0000 1134 +1090 0 N HLT 0000 N 1281 01 0000 1281 +1091 0 SPR HLT 0000 SPR 1456 01 0000 1456 +1092 0 SA HLT 0000 SA 1022 01 0000 1022 +1093 0 X HLT 0000 X 1612 01 0000 1612 +1094 0 51XXX 00 0000 0005 1452 00 0000 0005 +1095 0 LAST STU 0482 B0001 1040 21 0482 0041 +1096 0 H5 50 0000 0000 1184 50 0000 0000 +1097 0 5000 00 0000 5000 0596 00 0000 5000 +1098 0 BGIN2 STU 0032 B0001 1406 21 0032 0041 +1099 0 50D 00 0050 0000 3959 00 0050 0000 +1100 0 HED 2 +1101 0 HED +1102 1 +1103 1 OPTIMIZING TABLE +1104 1 +1105 0 N0001 01 0004 0498 NOP HLT 0700 01 0004 0498 +1106 0 N0002 02 3323 2299 UFA 0701 02 3323 2299 +1107 0 N0003 07 0005 0598 03 TO 07 0702 07 0005 0598 +1108 0 N0004 08 3312 1299 LIB ILL OP 0703 08 3312 1299 +1109 0 N0005 09 3302 0299 LDI 0704 09 3302 0299 +1110 0 N0006 - 11 3305 0499 AUP SUP 0705 - 11 3305 0499 +1111 0 N0007 13 0000 0099 RSR 0706 13 0000 0099 +1112 0 N0008 14 3311 1099 DIV 0707 14 3311 1099 +1113 0 N0009 - 18 3305 0499 15 TO 18 0708 - 18 3305 0499 +1114 0 N0010 19 3321 2099 MPY 0709 19 3321 2099 +1115 0 N0011 20 5403 0399 STL 0710 20 5403 0399 +1116 0 N0012 21 4503 0399 STU 0711 21 4503 0399 +1117 0 N0013 23 3403 0399 SDA SIA 0712 23 3403 0399 +1118 0 N0014 24 3303 0399 STD SFM 0713 24 3303 0399 +1119 0 N0015 25 4405 0598 NTS 0714 25 4405 0598 +1120 0 N0016 26 0004 0498 BIN 0715 26 0004 0498 +1121 0 N0017 27 0005 0598 SET WTS 0716 27 0005 0598 +1122 0 N0018 28 3312 1299 SIB 0717 28 3312 1299 +1123 0 N0019 29 3302 0299 STI 0718 29 3302 0299 +1124 0 N0020 30 0000 9888 SRT SPS 0719 30 0000 9888 +1125 0 N0021 31 0000 8888 SRD 0720 31 0000 8888 +1126 0 N0022 33 3327 2699 FAD FSB 0721 33 3327 2699 +1127 0 N0023 34 3300 0099 FDV 0722 34 3300 0099 +1128 0 N0024 36 0000 9888 SLT SCT 0723 36 0000 9888 +1129 0 N0025 38 3327 2699 FAM FSM 0724 38 3327 2699 +1130 0 N0026 39 3300 0099 FMP 0725 39 3300 0099 +1131 0 N0027 43 3304 0498 40 TO 43 0726 43 3304 0498 +1132 0 N0028 44 3404 0598 NZU 0727 44 3404 0598 +1133 0 N0029 45 4305 0498 NZE 0728 45 4305 0498 +1134 0 N0030 46 3304 0498 BMI 0729 46 3304 0498 +1135 0 N0031 47 3305 0598 BOV 0730 47 3305 0598 +1136 0 N0032 49 3304 0498 NZC BMC 0731 49 3304 0498 +1137 0 N0033 53 0000 0988 50 TO 53 0732 53 0000 0988 +1138 0 N0034 54 4405 0598 NEF 0733 54 4405 0598 +1139 0 N0035 57 0005 0598 55 TO 57 0734 57 0005 0598 +1140 0 N0036 59 0000 0988 AXC SXC 0735 59 0000 0988 +1141 0 N0037 - 61 3305 0499 RAU RSU 0736 - 61 3305 0499 +1142 0 N0038 63 3305 0699 TLE 0737 63 3305 0699 +1143 0 N0039 64 3311 1099 DVR 0738 64 3311 1099 +1144 0 N0040 - 68 3305 0499 65 TO 68 0739 - 68 3305 0499 +1145 0 N0041 69 3303 0399 LDD 0740 69 3303 0399 +1146 0 N0042 78 0000 0099 70 TO 78 0741 78 0000 0099 +1147 0 N0043 79 0005 0599 RPY 0742 79 0005 0599 +1148 0 N0044 83 0000 0988 80 70 83 0743 83 0000 0988 +1149 0 N0045 84 3305 0699 TLU 0744 84 3305 0699 +1150 0 N0046 87 0005 0598 85 TO 87 0745 87 0005 0598 +1151 0 N0047 89 0000 0988 RAC RSC 0746 89 0000 0988 +1152 0 N0048 90 4405 0598 BD0 0747 90 4405 0598 +1153 0 N0049 00 3306 0599 NAC 0748 00 3306 0599 +1154 0 N0050 00 5406 0598 ELU NEU 0749 00 5406 0598 +1155 0 N0051 98 3305 0598 BD1 TO BD8 0750 98 3305 0598 +1156 0 N0052 99 4405 0598 BD9 0751 99 4405 0598 +1157 0 N0053 00 6503 0399 ANC 0752 00 6503 0399 +1158 1 +1159 1 SYMBOLIC OP TABLE +1160 1 +1161 0 1650 SEQ +1162 0 61 7366 4806 ALF 1650 61 7366 4806 +1163 0 61 7376 0150 ALO 1651 61 7376 0150 +1164 0 61 7473 0170 AML 1652 61 7473 0170 +1165 0 61 7563 8920 ANC 1653 61 7563 8920 +1166 0 61 8477 0100 AUP 1654 61 8477 0100 +1167 0 61 8761 0500 AXA 1655 61 8761 0500 +1168 0 61 8762 0520 AXB 1656 61 8762 0520 +1169 0 61 8763 0580 AXC 1657 61 8763 0580 NOTE +1170 0 62 6476 0900 BDO 1658 62 6476 0900 +1171 0 62 6490 0900 BD0 NOW OK 1659 62 6490 0900 +1172 0 62 6491 0910 BD1 1660 62 6491 0910 +1173 0 62 6492 0920 BD2 1661 62 6492 0920 +1174 0 62 6493 0930 BD3 1662 62 6493 0930 +1175 0 62 6494 0940 BD4 1663 62 6494 0940 +1176 0 62 6495 0950 BD5 1664 62 6495 0950 +1177 0 62 6496 0960 BD6 1665 62 6496 0960 +1178 0 62 6497 0970 BD7 1666 62 6497 0970 NOTE +1179 0 62 6498 0980 BD8 1667 62 6498 0980 +1180 0 62 6499 0990 BD9 1668 62 6499 0990 +1181 0 62 6975 0260 BIN 1669 62 6975 0260 +1182 0 62 7361 4802 BLA 1670 62 7361 4802 +1183 0 62 7379 4801 BLR 1671 62 7379 4801 +1184 0 62 7461 0410 BMA 1672 62 7461 0410 +1185 0 62 7462 0430 BMB 1673 62 7462 0430 +1186 0 62 7463 0490 BMC 1674 62 7463 0490 +1187 0 62 7469 0460 BMI 1675 62 7469 0460 +1188 0 62 7677 4814 BOP 1676 62 7677 4814 +1189 0 62 7685 0470 BOV 1677 62 7685 0470 +1190 0 62 8283 0570 BST 1678 62 8283 0570 NOTE +1191 0 64 6985 0140 DIV 1679 64 6985 0140 +1192 0 64 7361 4815 DLA 1680 64 7361 4815 +1193 0 64 8579 0640 DVR 1681 64 8579 0640 +1194 0 65 7384 8643 ELU 1682 65 7384 8643 NOTE +1195 0 65 7884 4804 EQU 1683 65 7884 4804 +1196 0 66 6164 0320 FAD 1684 66 6164 0320 +1197 0 66 6174 0370 FAM 1685 66 6174 0370 +1198 0 66 6485 0340 FDV 1686 66 6485 0340 +1199 0 66 7477 0390 FMP 1687 66 7477 0390 +1200 0 66 8262 0330 FSB 1688 66 8262 0330 +1201 0 66 8274 0380 FSM 1689 66 8274 0380 +1202 0 68 6564 4808 HED 1690 68 6564 4808 +1203 0 68 7383 0010 HLT 1691 68 7383 0010 +1204 0 73 6464 0690 LDD 1692 73 6464 0690 +1205 0 73 6469 0090 LDI 1693 73 6469 0090 +1206 0 73 6962 0080 LIB 1694 73 6962 0080 +1207 0 74 7788 0190 MPY 1695 74 7788 0190 +1208 0 75 6163 8565 NAC 1696 75 6163 8565 + +1209 0 75 6566 0540 NEF 1697 75 6566 0540 +1210 0 1700 SEQ +1211 0 75 6584 8642 NEU 1700 75 6584 8642 +1212 0 75 7677 0000 NOP 1701 75 7677 0000 +1213 0 75 8382 0250 NTS 1702 75 8382 0250 +1214 0 75 8961 0400 NZA 1703 75 8961 0400 NOTE +1215 0 75 8962 0420 NZB 1704 75 8962 0420 +1216 0 75 8963 0480 NZC 1705 75 8963 0480 +1217 0 75 8965 0450 NZE 1706 75 8965 0450 +1218 0 75 8984 0440 NZU 1707 75 8984 0440 +1219 0 77 6183 4807 PAT 1708 77 6183 4807 +1220 0 77 6368 0710 PCH 1709 77 6368 0710 +1221 0 77 8283 4812 PST 1710 77 8283 4812 +1222 0 79 6161 0800 RAA 1711 79 6161 0800 +1223 0 79 6162 0820 RAB 1712 79 6162 0820 +1224 0 79 6163 0880 RAC 1713 79 6163 0880 +1225 0 79 6173 0650 RAL 1714 79 6173 0650 +1226 0 79 6174 0670 RAM 1715 79 6174 0670 +1227 0 79 6184 0600 RAU 1716 79 6184 0600 +1228 0 79 6279 4811 RBR 1717 79 6279 4811 +1229 0 79 6364 0700 RCD 1718 79 6364 0700 +1230 0 79 6391 0720 RC1 1719 79 6391 0720 +1231 0 79 6392 0750 RC2 1720 79 6392 0750 +1232 0 79 6393 0780 RC3 1721 79 6393 0780 +1233 0 79 6479 4813 RDR 1722 79 6479 4813 +1234 0 79 6482 0860 RDS 1723 79 6482 0860 +1235 0 79 6491 0700 RD1 1724 79 6491 0700 +1236 0 79 6492 0730 RD2 1725 79 6492 0730 +1237 0 79 6493 0760 RD3 1726 79 6493 0760 +1238 0 79 6567 4803 REG 1727 79 6567 4803 +1239 0 79 6573 4809 REL 1728 79 6573 4809 +1240 0 79 6578 4810 REQ 1729 79 6578 4810 +1241 0 79 7788 0790 RPY 1730 79 7788 0790 +1242 0 79 8261 0810 RSA 1731 79 8261 0810 +1243 0 79 8262 0830 RSB 1732 79 8262 0830 +1244 0 79 8263 0890 RSC 1733 79 8263 0890 NOTE +1245 0 79 8273 0660 RSL 1734 79 8273 0660 +1246 0 79 8274 0680 RSM 1735 79 8274 0680 +1247 0 79 8279 0120 RSR 1736 79 8279 0120 +1248 0 79 8284 0610 RSU 1737 79 8284 0610 +1249 0 79 8361 0050 RTA 1738 79 8361 0050 +1250 0 79 8363 0030 RTC 1739 79 8363 0030 NOTE +1251 0 79 8375 0040 RTN 1740 79 8375 0040 +1252 0 79 8382 8205 RTS 1741 79 8382 8205 +1253 0 79 8664 0550 RWD 1742 79 8664 0550 +1254 0 82 6383 0360 SCT 1743 82 6383 0360 +1255 0 82 6461 0220 SDA 1744 82 6461 0220 +1256 0 82 6482 0850 SDS 1745 82 6482 0850 +1257 0 82 6578 4816 SEQ 1746 82 6578 4816 +1258 0 82 6583 0270 SET 1747 82 6583 0270 +1259 0 1750 SEQ +1260 0 82 6674 5019 SFM 1750 82 6674 5019 +1261 0 82 6961 0230 SIA 1751 82 6961 0230 +1262 0 82 6962 0280 SIB 1752 82 6962 0280 +1263 0 82 7376 0160 SLO 1753 82 7376 0160 +1264 0 82 7383 0350 SLT 1754 82 7383 0350 +1265 0 82 7473 0180 SML 1755 82 7473 0180 +1266 0 82 7782 5630 SPS 1756 82 7782 5630 +1267 0 82 7964 0310 SRD 1757 82 7964 0310 +1268 0 82 7983 0300 SRT 1758 82 7983 0300 +1269 0 82 8364 0240 STD 1759 82 8364 0240 +1270 0 82 8369 0290 STI 1760 82 8369 0290 +1271 0 82 8373 0200 STL 1761 82 8373 0200 +1272 0 82 8384 0210 STU 1762 82 8384 0210 +1273 0 82 8477 0110 SUP 1763 82 8477 0110 +1274 0 82 8761 0510 SXA 1764 82 8761 0510 +1275 0 82 8762 0530 SXB 1765 82 8762 0530 +1276 0 82 8763 0590 SXC 1766 82 8763 0590 +1277 0 82 8875 4805 SYN 1767 82 8875 4805 +1278 0 83 6177 4817 TAP 1768 83 6177 4817 +1279 0 83 7365 0630 TLE 1769 83 7365 0630 +1280 0 83 7384 0840 TLU 1770 83 7384 0840 +1281 0 83 8876 7879 TYO 1771 83 8876 7879 +1282 0 84 6661 0020 UFA 1772 84 6661 0020 +1283 0 86 6482 0870 WDS 1773 86 6482 0870 +1284 0 86 7991 0710 WR1 1774 86 7991 0710 +1285 0 86 7992 0740 WR2 1775 86 7992 0740 +1286 0 86 7993 0770 WR3 1776 86 7993 0770 +1287 0 86 8361 0070 WTA 1777 86 8361 0070 +1288 0 86 8374 0560 WTM 1778 86 8374 0560 +1289 0 86 8375 0060 WTN 1779 86 8375 0060 +1290 0 86 8382 5307 WTS 1780 86 8382 5307 +1291 0 87 6679 4818 XFR 1781 87 6679 4818 +1292 0 95 6364 4819 5CD 1782 95 6364 4819 +1293 0 00 0000 0000 1783 00 0000 0000 +1294 0 00 0000 0000 1784 00 0000 0000 +1295 0 00 0000 0000 1785 00 0000 0000 +1296 0 99 9999 9999 TABLE END 1786 99 9999 9999 +1297 0 SEQ +1298 1 +1299 1 CONTROL PROGRAM +1300 1 +1301 0 1000 LDD READC SUB16 ENTRY 1000 69 1950 3753 +1302 1 +1303 0 READC RCD 1999 1998 READ CARD 1950 70 1999 1998 +1304 0 1998 RAU 1951 TRANSFER 1998 60 1951 1906 +1305 0 STD P0001 ALPHABETIC 1906 24 1977 1130 +1306 0 STL INDXI 1130 20 0828 1481 +1307 0 LDD 1952 INPUT 1481 69 1952 3106 +1308 0 STD P0002 TO 3106 24 1978 1531 +1309 0 LDD 1953 OUTPUT 1531 69 1953 3156 +1310 0 STD P0003 3156 24 1979 1082 +1311 0 LDD 1954 1082 69 1954 1508 +1312 0 STD P0004 1508 24 1980 1383 +1313 0 LDD 1955 1383 69 1955 1558 +1314 0 STD P0005 1558 24 1981 1334 +1315 0 LDD 1956 1334 69 1956 1610 NOTE +1316 0 STD P0006 COUNT 1610 24 1982 1135 +1317 0 COUNT RAL P0009 STEP 1135 65 1985 1289 +1318 0 ALO 1IXXX CARD 1289 15 0550 3756 +1319 0 STL P0009 NUMBER 3756 20 1985 1038 + +1320 0 RAU 1960 1038 60 1960 1316 +1321 0 STL TYP3A ZRO TESTWD 1316 20 0680 1433 +1322 0 SRT 0002 STORE 1433 30 0002 1339 +1323 0 SLO 8002 CONTROL 1339 16 8002 1147 +1324 0 STD P0010 INFO 1147 24 1986 1389 +1325 0 ALO 8003 1389 15 8003 1247 +1326 0 AUP TRANS 1247 10 0640 0995 +1327 0 STU P0008 INTOX 0995 21 1984 0652 +1328 0 INTOX ALO TORG 8002 TRANSFER 0652 15 3806 8002 +1329 0 8002 NOP 0999 9999 TO TYPE 8002 00 0999 9999 +1330 0 INTOX ALO TORGP FIRST OR MULTI 0652 15 0299 1353 +1331 0 INTOX ALO TORGP TEST PASS CNTRL 0652 15 0299 3803 NOTE +1332 1 +1333 0 TORG 00 0000 T0001 3806 00 0000 1990 +1334 1 NOTE +1335 0 TORGP 00 0000 O0001 CONSTANTS 0299 00 0000 1185 --0+ +1336 1 +1337 1 +1338 1 PUNCH ROUTINE +1339 1 +1340 0 HED + +1341 0 PUNCH RAL TYP3A TEST TYP3 1852 65 0680 1235 +1342 0 NZE H8PRE 1235 45 1088 1439 +1343 0 RAU P0010 ADD CONTRL 1088 60 1986 1491 +1344 0 AUP 86THA PREH8 8 TO P0010 1491 10 1601 3856 NOTE +1345 0 H8PRE RAU P0010 PREH8 1439 60 1986 3856 +1346 0 PREH8 LDD SET5 H8SUB 3856 69 0772 1057 +1347 3 SET5 RAL PCHEX LIT 1/CD EXIT 0772 65 1630 1285 +1348 3 SET5 NZE PEXIT 5/CD 5/CD ENTRY 0772 45 0776 3127 +1349 3 SET5 LDD BRNCH RSTOR A TYP3 LIT 0772 69 3783 3798 NOTE +1350 0 5/CD BOV 3127 47 1180 1180 +1351 0 RAU P0010 TEST NEG 1180 60 1986 1541 +1352 0 SLT 0001 INSTRCYN 1541 35 0001 1297 +1353 0 AUP H8XXX 1297 10 0858 1813 +1354 0 BOV NEG 1813 47 1366 1318 +1355 0 RAM P0007 POSIT POSITIVE 1318 67 1983 1787 +1356 0 NEG RSM P0007 POSIT NEGATIVE 1366 68 1983 1787 +1357 3 POSIT STL +0006 *0001 STOR INST 1787 20 0982 0045 +1358 0 *0001 RAL P0008 0045 65 1984 1489 +1359 0 LDD 8003 LOC 1489 69 8003 0646 +1360 3 LOC SDA -0005 *0002 STOR LOC 0646 22 1941 0046 NOTE +1361 0 *0002 RAU POSIT 0046 60 1787 1791 +1362 0 SUP +MAX TEST PCH 1791 11 1044 1049 +1363 0 NZU 5CD 1049 44 3853 1554 +1364 0 AUP +AMP1 + UP STORE 3853 10 3906 3761 +1365 0 + STU POSIT INSTRCTNS 3761 21 1787 1090 +1366 0 AUP LOCM 1090 10 1093 1347 +1367 0 STU LOC PEXIT 1347 21 0646 0776 +1368 1 +1369 0 5CD RAU -0003 1554 60 1939 1143 +1370 0 SRT 0002 SET 5/CD 1143 30 0002 1099 +1371 0 ALO -0005 LOCATIONS 1099 15 1941 1045 +1372 0 SRT 0004 IN WORDS 1045 30 0004 3956 +1373 0 ALO -0004 7-8 OF 3956 15 1940 1095 +1374 0 STL +0008 OUTPUT CD 1095 20 0984 1837 +1375 0 SLT 0002 1837 35 0002 1243 +1376 0 AUP -0002 1243 10 1938 1293 +1377 0 SRT 0004 1293 30 0004 3903 +1378 0 AUP -0001 3903 10 1937 1841 +1379 0 SLT 0002 1841 35 0002 1397 +1380 0 STU +0007 1397 21 0983 3186 +1381 0 PCH +0001 PCH 5/CD 3186 71 0977 3177 +1382 0 RAM +0001 UP CARD 3177 67 0977 1581 +1383 0 ALO 1IXXX NUMBER 1581 15 0550 1808 +1384 0 STL +0001 1808 20 0977 1230 +1385 0 RAU RSET + 1230 60 1483 3761 +1386 1 +1387 0 PEXIT RAL PCHEX LIT TEST LITRL 0776 65 1630 1285 +1388 0 LIT NZE TRYIT SYMBL NO 1285 45 1138 1539 +1389 0 RAU ITAGW HLD5C + '+U 1539 60 1451 1858 +1390 3 HLD5C NZU ITAG READC 1858 44 3811 1950 +1391 3 HLD5C NZU ITAG TSFUL 1858 44 3811 1862 +1392 0 TSFUL LDD TRANS TEST FULL 1862 69 0640 1343 +1393 0 BD2 READC SYMBL TABL 1343 92 0696 1950 +1394 0 LDD PEXIT 0696 69 0776 1429 +1395 0 STD SET5 SUSPEND 1429 24 0772 3775 +1396 0 LDD RSLTT 5/CD PUNCH 3775 69 1028 1831 +1397 0 STD HLD5C READC 1831 24 1858 1950 RSV: MUST BE CHECKED +1398 0 RSLTT NZU ITAG TSFUL 1028 44 3811 1862 +1399 0 ITAG STL WHERE 3811 20 1416 1869 +1400 0 BMI SECND HIRST 1869 46 1122 1423 +1401 0 SECND LDD SAVED 1122 69 3825 1078 +1402 0 STD OPREG 1078 24 0643 0796 +1403 0 STL ITAGW PEXIT 0796 20 1451 0776 +1404 0 HIRST RSU 8003 1423 61 8003 1881 +1405 0 STU ITAGW 1881 21 1451 1604 +1406 0 RAU P0007 1604 60 1983 1887 +1407 0 SLT 0002 1887 35 0002 1393 +1408 0 RAL 8003 1393 65 8003 1902 +1409 0 SRT 0006 1902 30 0006 3167 +1410 0 STL SAVED 3167 20 3825 1128 +1411 0 RAM ITAGW 1128 67 1451 1908 +1412 0 SLT 0002 1908 35 0002 1466 +1413 0 AML 8001 1466 17 8001 1473 +1414 0 SLT 0003 1473 35 0003 1931 +1415 0 AUP NZSYM 1931 10 1384 1789 +1416 0 STU 1954 1789 21 1954 3108 +1417 0 RAU 1953 3108 60 1953 3158 +1418 0 STD 1952 3158 24 1952 3758 +1419 0 STL 1951 3758 20 1951 1804 +1420 0 LDD SUBR4 1804 69 3808 0850 +1421 0 00 0000 /0001 3808 00 0000 0091 +1422 0 /0001 LDD 1959 SET58 0091 69 1959 3112 +1423 0 SET58 STD 1958 1998 3112 24 1958 1998 +1424 0 /0002 LDD 1959 SET58 0092 69 1959 3112 +1425 0 /0003 NOP 0000 1998 0093 00 0000 1998 +1426 0 /0101 NOP 0000 1998 0191 00 0000 1998 +1427 0 TRYIT RAU ITAGW 1138 60 1451 3858 +1428 0 NZU LITC 3858 44 3861 3162 NOTE +1429 0 BMI SECND 3861 46 1122 1516 +1430 0 LDD P0007 1516 69 1983 3786 +1431 0 STD ABSOL 3786 24 1839 0242 +1432 0 LDD P0002 0242 69 1978 3131 +1433 0 STD LITSM 3131 24 1434 1987 +1434 0 STD WHERE HIRST 1987 24 1416 1423 +1435 1 +1436 0 LITC RAU WHERE 3162 60 1416 1371 +1437 0 STL P0002 1371 20 1978 3181 +1438 0 NZU MOVED 3181 44 1335 3836 +1439 0 RAL 1952 ORNRY 3836 65 1952 3908 +1440 0 MOVED LDD ABSOL TRSFR DATA 1335 69 1839 0292 +1441 0 STD P0007 TO NORMAL 0292 24 1983 3886 +1442 0 RAL LITSM AREA 3886 65 1434 1889 +1443 0 STU WHERE ORNRY 1889 21 1416 3908 +1444 0 ORNRY SRT 0006 TEST NEG M 3908 30 0006 1523 +1445 0 SLO ALFM 1523 16 0826 3781 +1446 0 NZE H8X 3781 45 1484 1385 +1447 0 RAL H88 ST88 1385 65 1238 1443 +1448 0 H8X RAL H8XXX ST88 1484 65 0858 1443 NOTE +1449 0 ST88 AUP DDRMT DRUM PAKED 1443 10 0694 1149 +1450 0 NZU STLIT 1149 44 3953 1854 +1451 0 ALO 87NTH STLIT 3953 15 0494 1854 +1452 0 STLIT STL P0010 1854 20 1986 1989 +1453 0 RAL P0009 1989 65 1985 3139 +1454 0 ALO 1IXXX 3139 15 0550 3958 +1455 0 STL P0009 3958 20 1985 1288 +1456 0 STU P0001 1288 21 1977 1280 +1457 0 RAL P0007 1280 65 1983 3137 +1458 0 LDD TRAN1 3137 69 1140 1493 +1459 0 SDA P0008 1493 22 1984 3187 +1460 0 RAU P0005 3187 60 1981 1435 +1461 0 LDD COMPR 1435 69 1338 0099 +1462 0 RAU P0006 1338 60 1982 3787 +1463 0 LDD STP7 3787 69 1240 1543 +1464 0 STD XXXX2 SCT 1543 24 1962 1616 +1465 0 STP7 STU PCHEX 1240 21 1630 1533 +1466 0 STD P0003 1533 24 1979 1132 +1467 0 LDD LTALF 1132 69 1485 1388 +1468 0 STD P0004 1388 24 1980 3148 +1469 RAU SET5 ARE WE IN 3148 60 0772 3198 +1470 SUP BRNCH 5CD MODE 3198 11 3783 3848 +1470 NZU PUNCH 3848 44 1852 3899 +1470 LDD RSET5 3899 69 3949 3999 +1470 STD SET5 PUNCH 3999 24 0772 1852 +1470 RSET5 LDD BRNCH RSTOR 3949 69 3783 3798 +1470 RSTOR STD SET5 5/CD 3798 24 0772 3127 +1471 0 +MAX STL +0006 *0001 1044 20 0982 0045 +1472 0 +AMP1 STL +0007 *0001 3906 20 0983 0045 +1473 0 LOCM 02 0959 0001 1093 02 0959 0001 +1474 0 LOC HLT 0000 LOC 0646 01 0000 0646 +1475 0 SYMFL NZU ITAG READC 3102 44 3811 1950 +1476 0 H88 88 0000 0000 1238 88 0000 0000 +1477 0 ALFM ALF M SOAP2 0826 00 0000 0074 +1478 0 LTALF ALF LIT SOAP2 1485 73 6983 0000 +1479 0 TRAN1 09 0000 9991 1140 09 0000 9991 +1480 0 NZSYM 75 8960 6000 1384 75 8960 6000 +1481 1 CONVERT DOUBLE DIGIT NUMERIC +1482 1 WORD TO SINGLE DIGIT FORM +1483 0 COMPR STD XXXX2 0099 24 1962 1816 +1484 0 STL P0007 SCT 1816 20 1983 1616 +1485 0 SCT SCT 0000 CKZER 1616 36 0000 3189 +1486 0 CKZER NZU XXXX2 3189 44 1593 1962 +1487 0 SLT 0001 1593 35 0001 1249 +1488 0 RAL 8003 1249 65 8003 1810 +1489 0 AUP P0007 1810 10 1983 3837 +1490 0 SLT 0001 3837 35 0001 1793 +1491 0 STU P0007 1793 21 1983 3936 +1492 0 RAU 8002 CKZER 3936 60 8002 3189 +1493 0 HED +1494 1 +1495 0 SETCC RAU READC SUB10 SUDO EXIT 3152 60 1950 1600 +1496 1 +1497 0 1800 LDD READC SUB22 MANUAL PST 1800 69 1950 1904 +1498 1 +1499 0 1900 LDD READC SUB14 MANUAL PAT 1900 69 1950 3104 +1500 1 +1501 0 T0004 STD TYP3A T0001 SET TESTWD 1993 24 0680 1990 +1502 0 T0001 LDD SUBR3 TYPE 0 1990 69 1843 0650 +1503 0 LDD PROCL 650 1843 69 0846 1501 +1504 0 LDD PROCD COMMAND OR 0846 69 1299 1801 +1505 0 LDD PUNCH PROCI CONSTANTS 1299 69 1852 3951 +1506 1 +1507 1 +1508 0 T0002 RAU 1954 1991 60 1954 1860 +1509 0 SUP LTALF 1860 11 1485 3789 +1510 0 NZU SETCC CDNOD 3789 44 3152 1094 +1511 0 CDNOD RAL P0009 1094 65 1985 3839 +1512 0 SLO 1IXXX 3839 16 0550 1910 +1513 0 STL P0009 READC 1910 20 1985 1950 +1514 1 +1515 1 +1516 1 MULTIPASS CONTROL SECTION +1517 1 +1518 0 TEST RAL 8002 IF ZERO 3803 65 8002 3911 NOTE +1519 0 SLT 0003 ENTER 3911 35 0003 1919 +1520 0 NZU 8001 MULTIPASS 1919 44 1573 8001 +1521 0 LDD HHOLD RESTORE 1573 69 0674 3777 +1522 0 STD 0000H CARD NUMBR 3777 24 0668 1421 NOTE +1523 0 LDD NHOLD AND 1421 69 0491 1144 +1524 0 STD P0009 HEADING 1144 24 1985 1438 +1525 0 RAL 8000 PST IF 1438 65 8000 1145 +1526 0 BMI ZERO 8000 IS 1145 46 0448 1349 +1527 0 LDD ZERO SUB22 MINUS 0448 69 1349 1904 +1528 1 +1529 0 ZERO LDD 1998X SUB16 ZERO SYM T 1349 69 3752 3753 +1530 1 +1531 0 FIRST LDD 8D888 ALTER 1353 69 3110 1863 +1532 0 STD TRANS CONTROL 1863 24 0640 1893 +1533 0 LDD INTOP FOR CARDS 1893 69 0896 1399 +1534 0 STD INTOX TEST 2 THRU X 1399 24 0652 3803 +1535 1 +1536 0 O0002 RAU READC SUB10 COMMENTS 1186 60 1950 1600 +1537 0 O0003 NOP 0000 O0005 RELOCATE 1187 00 0000 1189 +1538 0 O0004 STD TYP3A O0001 SET TESTWD 1188 24 0680 1185 +1539 0 O0001 RAL 1954 TYPE 0 1185 65 1954 3160 +1540 0 SLO C0041 TEST HED 3160 16 1690 1245 +1541 0 SLT 0006 1245 35 0006 3760 +1542 0 NZU 0808 3760 44 1913 0808 +1543 0 RAU 1951 1913 60 1951 3810 +1544 0 ALO O5 LOOK 3810 15 3113 3767 +1545 0 O0005 RAU 1952 CONTROL 1189 60 1952 3860 +1546 0 ALO O6 LOOK EXITS FOR 3860 15 3163 3767 +1547 0 O0006 RAU 1953 EXAMINING 1190 60 1953 3910 +1548 0 ALO O7 LOOK LOC DATA 3910 15 3763 3767 +1549 0 O0007 RAL P0010 AND INST 1191 65 1986 1891 +1550 0 STU TYP3A ZRO TESTWD 1891 21 0680 1583 +1551 0 ALO 8AND8 ADDRESSES 1583 15 3986 3141 +1552 0 STL P0010 PUNCH 3141 20 1986 1852 +1553 0 LOOK NZU 8001 BLANK 3767 44 1471 8001 +1554 0 STD EXITX 1471 24 0653 3960 +1555 0 LDD O11 3960 69 3813 1866 +1556 0 SDA O11 1866 22 3813 1916 +1557 0 RAU 8003 1916 60 8003 1823 NOTE +1558 0 LDD O8 SUBR4 1823 69 0876 0850 +1559 0 O0008 NOP 0000 EXITX 1192 00 0000 0653 +1560 0 O0009 NOP 0000 EXITX REGIONAL 1193 00 0000 0653 +1561 0 O0010 LDD O11 SUBR6 SYMBOLIC 1194 69 3813 1050 +1562 0 O010 LDD O11 SUBR6 1292 69 3813 1050 +1563 0 O0012 NOP 0000 EXITX UNDEFINED 1196 00 0000 0653 +1564 0 O0011 RAL EQUIV DEFINED OR 1195 65 1013 3817 +1565 0 SLT 0004 PREVIOUSLY 3817 35 0004 3827 +1566 0 AUP EXITX ESTABLISHD 3827 10 0653 3961 +1567 0 AUP 8IXXX 3961 10 0144 1449 +1568 0 LDD P0007 8003 1449 69 1983 8003 +1569 0 O0013 LDD P0008 CAUSE DRUM 1197 69 1984 3887 +1570 0 SDA P0008 EQUIVALENT 3887 22 1984 3937 +1571 0 RSL 3000I FIX TO BE PCHD 3937 66 1290 1295 +1572 0 O0014 SDA P0007 AS L D OR 1198 22 1983 3987 +1573 0 RSL 0200I FIX I AND 5 6 3987 66 0824 1295 +1574 0 O001 SRT 0004 OR 7 TO BE 1199 30 0004 3762 +1575 0 SIA P0007 PUNCHED 3762 23 1983 1488 +1576 0 RSL 0010I FIX ACCORDNGLY 1488 66 0551 1295 +1577 0 FIX ALO P0008 1295 15 1984 3889 +1578 0 STL P0008 EXITX 3889 20 1984 0653 +1579 1 NOTE +1580 0 8D888 08 0000 8880 3110 08 0000 8880 +1581 0 INTOP ALO TORGP TEST 0896 15 0299 3803 +1582 0 1998X NOP 0800 1998 3752 00 0800 1998 +1583 0 O5 NOP 0008 O0005 CONSTANTS 3113 00 0008 1189 +1584 0 O6 NOP 0089 O0006 3163 00 0089 1190 +1585 0 O7 NOP 0099 O0007 3763 00 0099 1191 +1586 0 8AND8 00 8008 0000 3986 00 8008 0000 +1587 0 O8 NOP 0000 O0008 0876 00 0000 1192 +1588 0 O11 NOP 0000 O0011 ERASEABLE 3813 00 0000 1195 +1589 1 +1590 1 RELOCATE ROUTINE +1591 1 +1592 0 HED T +1593 0 T0003 LDD SUBR3 PROCESS OP 1992 69 1345 0650 +1594 0 RAL 1951 IS L FIXED 1345 65 1951 3812 +1595 0 SLT 0002 3812 35 0002 1969 +1596 0 NZU REL 1969 44 1873 0974 +1597 0 RAU 1957 FIXED L 1873 60 1957 3862 +1598 0 SUP 4000I DRUM CORE 3862 11 0836 3191 +1599 0 BMI FC 3191 46 1244 1395 +1600 0 AUP 8001 RES FIXED DRUM 1244 10 8001 3802 +1601 0 FC RAL 1957 SETL + '+U 1395 65 1957 3912 +1602 0 SR RAL 1951 SETL 3852 65 1951 3912 +1603 0 SETL SLT 0004 3912 35 0004 1923 +1604 0 LDD P0008 1923 69 1984 1538 +1605 0 SDA P0008 PROD 1538 22 1984 1788 +1606 0 REL RAU 1957 DRUM CORE 0974 60 1957 3962 +1607 0 SUP 4000I 3962 11 0836 3791 +1608 0 BMI RC 3791 46 1294 1445 +1609 0 AUP DDIFF RELOCATE 1294 10 1447 3902 +1610 0 BMI BL DRUM ADDR 3902 46 3863 3913 +1611 0 AUP 4000I RES 3863 10 0836 3802 +1612 0 RES STU 1951 3802 21 1951 3154 +1613 0 STL W 2 3154 20 1962 3116 +1614 0 LDD SR SUBR2 3116 69 3852 1402 +1615 0 RC RAL 1957 RELOCATE 1445 65 1957 3963 +1616 0 ALO CDIFF CORE 3963 15 3166 1521 +1617 0 SLO 9060 1521 16 1024 1479 +1618 0 BMI BL 1479 46 1182 3913 +1619 0 ALO 8001 SETL 1182 15 8001 3912 +1620 0 BL RAU PROD SUB12 BL4NK L 3913 60 1788 3800 +1621 1 +1622 0 REG J0944 0944 D TYPE 2 +1623 0 REG G0941 0941 +1624 1 +1625 0 PROD LDD PROI SET D EXIT 1788 69 3841 1344 +1626 0 STD EXITX 1344 24 0653 3114 +1627 0 RAU 1952 WHAT IS D 3114 60 1952 3164 +1628 0 LDD H SUBR4 3164 69 3867 0850 +1629 0 H0001 RAL 1958 RELOCATE 0902 65 1958 3764 +1630 0 SLO 4000I D 0R C 3764 16 0836 3891 +1631 0 BMI 1564 1563 3891 46 1564 1563 +1632 0 H0002 SRT 0008 C D OR F 0903 30 0008 1571 +1633 0 AUP 1500 8003 1571 10 1074 8003 +1634 0 1563 RAL CDIFF CDD C 1563 65 3166 1821 +1635 0 1564 RAL DDIFF CDD D 1564 65 1447 1821 +1636 0 1566 RAL 1958 J0001 F 1566 65 1958 0944 +1637 0 CDD ALO 1958 J0001 1821 15 1958 0944 +1638 0 H0003 NOP 0000 G0003 SYMBOLIC 0904 00 0000 0943 +1639 0 H0101 NOP 0000 G0101 1002 00 0000 1041 +1640 1 +1641 0 REG J0960 0960 I +1642 0 REG F0955 0955 +1643 1 +1644 0 PROI LDD PUNCH SET I EXIT 3841 69 1852 3814 +1645 0 STD EXITX 3814 24 0653 3864 +1646 0 RAU 1953 WHAT IS I 3864 60 1953 3914 +1647 0 LDD M SUBR4 3914 69 3917 0850 +1648 0 M0001 RAL 1959 RELOCATE 0905 65 1959 3964 +1649 0 SLO 4000I D OR C 3964 16 0836 3941 +1650 0 BMI 1568 1567 3941 46 1568 1567 +1651 0 M0002 SRT 0008 C D OR F 0906 30 0008 3875 +1652 0 AUP 1504 8003 3875 10 1178 8003 +1653 0 1567 RAL CDIFF CDI C 1567 65 3166 1871 +1654 0 1568 RAL DDIFF CDI D 1568 65 1447 1871 +1655 0 1570 RAL 1959 J0001 F 1570 65 1959 0960 +1656 0 CDI ALO 1959 J0001 1871 15 1959 0960 +1657 0 M0003 NOP 0000 F0003 SYMBOLIC 0907 00 0000 0957 +1658 0 M0101 NOP 0000 F0101 1005 00 0000 1055 +1659 1 +1660 0 9060 00 0000 9060 1024 00 0000 9060 +1661 0 H 00 0000 H0001 3867 00 0000 0902 +1662 0 1500 00 0000 1500 1074 00 0000 1500 +1663 0 M 00 0000 M0001 3917 00 0000 0905 +1664 0 1504 00 0000 1504 1178 00 0000 1504 +1665 0 XXXX1 01 0000 XXXX1 ERASEABLE 1961 01 0000 1961 +1666 0 HED +1667 1 NOTE +1668 1 BOP ROUTINE +1669 1 +1670 0 0814 LDD SETCC SUB16 0814 69 3152 3753 NOTE +1671 1 +1672 1 BLR ROUTINE +1673 1 +1674 0 0801 RAL 1959 BLR 0801 65 1959 3766 +1675 0 BLR LDD ZEROO BLR1 3766 69 3119 1172 +1676 0 ZEROO 00 0000 0000 3119 00 0000 0000 +1677 0 BLR1 STD W 2 1172 24 1962 3816 +1678 0 SLO 1958 3816 16 1958 3866 +1679 0 AUP 8001 3866 10 8001 1973 +1680 0 SUP 4000I 1973 11 0836 3991 +1681 0 BMI SETCC 3991 46 1394 3152 +1682 0 AUP 8001 1394 10 8001 3952 +1683 0 LDD SETCC SUBR2 3952 69 3152 1402 +1684 1 +1685 1 RBR ROUTINE +1686 1 +1687 0 0811 RAU DDIFF 0811 60 1447 3754 +1688 0 ALO 1959 BLR 3754 15 1959 3766 +1689 1 +1690 1 DLA ROUTINE +1691 1 +1692 0 0815 LDD ITS50 DLA 0815 69 1368 1921 +1693 0 STD 1OR50 ROUTINE 1921 24 0988 0342 +1694 0 LDD 24 0342 69 1495 0498 NOTE +1695 0 STD 56 2 MODFY 0498 24 1510 3916 +1696 0 LDD 35 SUBR2 3916 69 3169 1222 +1697 0 STD 78 2 1222 24 1560 3966 +1698 0 LDD TPR 2 3966 69 1819 1272 +1699 0 STD EITHR 1272 24 1234 1838 +1700 0 LDD PREEX 1838 69 0392 1545 +1701 0 STD SETCC 0802 1545 24 3152 0802 +1702 0 PREEX LDD 13 0392 69 1595 0548 +1703 0 STD 56 2 RESET 0548 24 1510 3967 +1704 0 LDD 08 EXITS 3967 69 1020 3123 +1705 0 STD 78 2 3123 24 1560 1418 +1706 0 LDD 964 1418 69 1971 1124 +1707 0 STD EITHR 1124 24 1234 1888 NOTE +1708 0 LDD SLO11 1888 69 0442 1795 +1709 0 STD 1OR50 1795 24 0988 0492 +1710 0 LDD PCHA 0492 69 1845 0598 +1711 0 STD SETCC 8001 0598 24 3152 8001 +1712 0 ITS50 SLO 50XXX NEXT2 1368 16 3850 1506 +1713 0 24 RAU SA 2 SU 2 1495 60 1022 3117 +1714 0 35 RAU SA 2 3169 60 1022 3877 +1715 0 AUP 1DXXX SU 2 3877 10 0554 3117 +1716 0 08 RAU SA 2 178 2 1020 60 1022 1927 +1717 0 964 RAU SA 2 EITH2 1971 60 1022 1827 +1718 0 SLO11 SLO 1IXXX NEXT2 0442 16 0550 1506 +1719 0 PCHA RAU READC SUB10 1845 60 1950 1600 +1720 0 13 RAU SA 2 SZ 2 1595 60 1022 1877 +1721 1 +1722 1 BLA ROUTINE +1723 1 +1724 0 0802 RAL 1959 0802 65 1959 1468 +1725 0 STU DRUMT 1468 21 1453 1518 +1726 0 STD DDRMT 1518 24 0694 1497 +1727 0 LDD (0010 BLR1 1497 69 0559 1172 +1728 1 +1729 1 REG ROUTINE +1730 1 +1731 0 HED R +1732 0 0803 RAU 1952 0803 60 1952 1618 +1733 0 LDD STOR9 1618 69 3121 0349 +1734 0 ALO ST 3121 15 1174 1529 +1735 0 AUP 1958 1529 10 1958 1818 +1736 0 AUP H9XXX 8002 ADD DEF 9 1818 10 1403 8002 +1737 0 8002 STU 9999 0801 8002 21 9999 0801 +1738 0 ST STU 1650 0801 STORE REG 1174 21 1650 0801 +1739 0 HED +1740 1 +1741 1 EQU REQ AND SYN ROUTINE +1742 1 +1743 0 HED Z +1744 0 EQU E 1958 +1745 0 0804 LDD H8XXX BOTH 0804 69 0858 1868 +1746 0 0805 LDD H9XXX BOTH 0805 69 1403 1868 +1747 0 BOTH STD TAG 1868 24 3171 1224 +1748 0 RAU 1953 WHAT IS 1 1224 60 1953 1918 +1749 0 LDD Z SUBR4 1918 69 3771 0850 +1750 0 Z0001 RAL 1959 Y0001 ABSOLUTE 0917 65 1959 0915 +1751 0 Z0002 ALO Y SUBR9 0918 15 3821 1500 +1752 0 Y0001 STL E 0915 20 1958 3118 +1753 0 STD 1959 TD 3118 24 1959 3168 +1754 0 Y0002 RAL P0010 BP REG ERROR 0916 65 1986 0592 +1755 0 Z0003 LDD W SUBR6 SYMBOLIC 0919 69 1322 1050 +1756 0 Z0101 LDD W SUBR6 1017 69 1322 1050 +1757 0 W0001 RAL EQUIV Y0001 S DEFINED 0920 65 1013 0915 +1758 0 W0002 RAL P0010 BP S UNDEFIND 0921 65 1986 0592 +1759 1 +1760 0 TD RAU 1952 HEAD D 3168 60 1952 3768 +1761 0 LDD SUB15 AND EQUATE 3768 69 3871 0621 +1762 0 LDD V SUBR6 TO E 3871 69 1274 1050 +1763 0 V0001 ALO E SD 0910 15 1958 3818 +1764 0 V0002 ALO E SYMB UND 0911 15 1958 3868 +1765 0 STL XXXX1 3868 20 1961 3918 +1766 0 RAL 1952 TEST LIT 3918 65 1952 3968 +1767 0 SLT 0002 SYMBOL 3968 35 0002 3925 +1768 0 NZU OK 3925 44 1829 1330 +1769 0 STL PCHEX SET TESTW 1330 20 1630 1833 +1770 0 RAL E SET L 1833 65 1958 3769 +1771 0 LDD P0007 3769 69 1983 1988 +1772 0 SLT 0004 1988 35 0004 1499 +1773 0 SDA P0007 1499 22 1983 3138 +1774 0 LDD 1 3138 69 0642 1895 +1775 0 STD READC OK SET RETURN 1895 24 1950 1829 +1776 0 OK RAL XXXX1 1829 65 1961 3819 +1777 0 AUP S 6 SD 3819 10 0764 3818 +1778 0 1 LDD RDCD* GO TO 0642 69 1945 0648 +1779 0 STD READC PEXIT PCH LIT 0648 24 1950 0776 +1780 0 SD LDD TT SUBR7 3818 69 3921 1400 +1781 0 RDCD* RCD 1999 1998 1945 70 1999 1998 +1782 1 +1783 0 TT LDD TAG TEST TAG 3921 69 3171 1324 +1784 0 BDO SETCC 0801 1324 90 3152 0801 +1785 1 +1786 0 0810 LDD H8XXX 0810 69 0858 3869 +1787 0 STD TAG ROUTINE 3869 24 3171 1374 +1788 0 RAL 1959 IS I 1374 65 1959 3919 +1789 0 SLO 4000I DRUM 0 COR 3919 16 0836 0692 +1790 0 BMI D 0692 46 1995 0996 +1791 0 ALO CDIFF CD 0996 15 3166 3971 +1792 0 D ALO DDIFF CD 1995 15 1447 3971 +1793 0 CD ALO 4000I Y0001 3971 15 0836 0915 +1794 1 +1795 0 BP ALO 88 BY PASS 0592 15 3145 1549 +1796 0 STL P0010 SETCC 1549 20 1986 3152 +1797 1 +1798 0 Z 00 0000 Z0001 CONSTANTS 3771 00 0000 0917 +1799 0 Y NOP 1959 Y0001 3821 00 1959 0915 +1800 0 W 00 0099 W0001 1322 00 0099 0920 +1801 0 V 00 0089 V0001 1274 00 0089 0910 +1802 0 88 00 8000 0000 3145 00 8000 0000 +1803 1 +1804 0 TAG 01 0000 TAG ERASEABLE 3171 01 0000 3171 +1805 0 HED +1806 1 +1807 1 ALF ROUTINE +1808 1 +1809 0 0806 LDD PROCL 0806 69 3969 1501 +1810 0 LDD 1952 3969 69 1952 1070 +1811 0 STD P0007 1070 24 1983 3188 +1812 0 RAL 1953 3188 65 1953 1120 +1813 0 NZE PUNCH 1120 45 1852 3975 +1814 0 LDD SOAP2 BY 3975 69 1228 3831 +1815 0 STD P0003 PUNCH SOAP2 3831 24 1979 1852 +1816 1 +1817 0 SOAP2 ALF SOAP2 SO4P2 CONSTANT 1228 82 7661 7792 +1818 1 +1819 1 PAT ROUTINE +1820 1 +1821 0 HED P +1822 0 SUB14 STD EXITX STORE EXIR 3104 24 0653 1170 +1823 0 RAU A1 SET FOR 1170 60 3173 3927 +1824 0 ALO RS1 1ST HAL 3927 15 1380 1535 +1825 0 LDD AVTB 1535 69 3788 0792 +1826 0 RAU A2 SET FOR 3788 60 0842 1547 +1827 0 ALO RS2 2ND HALF 1547 15 3804 1220 +1828 0 LDD EXITX AVTB OF DRUM 1220 69 0653 0792 +1829 0 AVTB STD EXIT STORE EXIT 0792 24 3195 0698 +1830 0 LDD 85TH SET PUNCH 0698 69 0986 3939 +1831 0 STD P0010 8 3939 24 1986 3989 +1832 0 STU XXXX1 3989 21 1961 1270 +1833 0 AUP 35D 1270 10 3773 3977 +1834 0 STU BDMAX 3977 21 1232 1585 +1835 0 AUP 450D 1585 10 3838 1943 +1836 0 STU AMAX 1943 21 0798 3854 +1837 0 AUP 15D 3854 10 1320 0976 +1838 0 STU AMP5 0976 21 1430 1883 NOTE +1839 0 SUP 8003 LOOP 1883 11 8003 0892 +1840 0 LOOP AUP C1 8001 0892 10 3795 8001 +1841 0 8001 STL 9999 NEXT SET LOCAT 8001 20 9999 3904 +1842 0 NEXT SUP TW1 3904 11 1370 1026 +1843 0 NZU SRS 1026 44 1879 1480 +1844 0 AUP C2 1879 10 1282 3888 +1845 0 ALO C3 8003 3888 15 0992 8003 --0+ +1846 0 SRS STL XXXX2 SAVE RS 1480 20 1962 1420 +1847 0 RAU C4 1420 60 3823 1278 +1848 0 ALO XXXX1 8002 1278 15 1961 8002 +1849 0 8002 LDD 9998 8003 8002 69 9998 8003 +1850 0 8003 STD 9997 TP 8003 24 9997 3954 +1851 0 TP SUP TW2 3954 11 1470 1076 +1852 0 NZU PUN 1076 44 1929 1530 +1853 0 AUP C5 1929 10 1332 3938 +1854 0 ALO 1DXXX 8002 3938 15 0554 8002 +1855 0 PUN PCH P0001 1530 71 1977 1328 +1856 0 RAM 8002 1328 67 8002 3988 +1B57 0 SLO BDMAX 3988 16 1232 1340 +1858 0 NZE TSTEN 1340 45 1444 3845 +1859 0 ALO 8001 1444 15 8001 1520 +1860 0 ALO 5DXXX STLXX 1520 15 3873 1378 +1861 0 TSTEN ALO 8001 3845 15 8001 1620 +1862 0 SLO AMAX 1620 16 0798 1820 +1863 0 NZE EXIT 1820 45 1424 3195 +1864 0 ALO AMP5 1424 15 1430 1835 +1865 0 AUP BDMAX 1835 10 1232 1390 +1866 0 AUP 50D 2 1390 10 3959 1870 +1867 0 STU BDMAX STLXX 1870 21 1232 1378 +1868 0 STLXX STL XXXX1 1378 20 1961 1920 +1869 0 RAL XXXX2 1920 65 1962 1970 +1870 0 SLO C7 LOOP 1970 16 3923 0892 +1871 1 +1872 0 A1 LDD 0000 8003 3173 69 0000 8003 +1873 0 A2 LDD 0004 8003 0842 69 0004 8003 +1874 0 RS1 00 0000 0450 1380 00 0000 0450 +1875 0 RS2 00 2000 2450 3804 00 2000 2450 +1876 0 ZP1 STU P0001 NXT 3120 21 1977 1830 +1877 0 ZP9 STU P0009 NXT 3170 21 1985 1830 +1878 0 ZP10 STU P0010 NXT 3770 21 1986 1830 +1879 0 C1 STL P0001 NEXT 3795 20 1977 3904 +1880 0 C2 STL P0009 NEXT 1282 20 1985 3904 +1881 0 C3 00 0500 0500 0992 00 0500 0500 +1882 0 C4 STD P0002 TP 3823 24 1978 3954 +1883 0 C5 STD P0010 TP 1332 24 1986 3954 +1884 0 C7 00 1499 1499 3923 00 1499 1499 +1885 0 TW1 STL P0007 NEXT 1370 20 1983 3904 +1886 0 TW2 STD P0008 TP 1470 24 1984 3954 +1887 0 35D 00 0035 0000 3773 00 0035 0000 NOTE +1888 0 450D 00 0450 0000 3838 00 0450 0000 +1889 0 15D 00 0015 0000 1320 00 0015 0000 +1890 0 5DXXX 00 0005 0000 3873 00 0005 0000 +1891 0 85TH 00 0080 0000 0986 00 0080 0000 +1892 0 HED +1893 1 RDR ROUTINE +1894 1 +1895 0 0813 RAU 8002 ZERO 80023 0813 60 8002 1372 +1896 0 LDD SETCC UNRAV 1372 69 3152 3820 +1897 0 UNRAV STD ZZZZ1 STORE EXIT 3820 24 1640 3143 +1898 0 STU XXXX1 3143 21 1961 3870 +1899 0 ALO I2 INCRM GET START 3870 15 3973 1428 +1900 0 INCRM STL ZZZZ2 STORE K 1428 20 1641 1494 +1901 0 LDD SUBR1 TO AVAIL 1494 69 1597 3920 +1902 0 RAL ZZZZ2 1597 65 1641 3895 +1903 0 SLO I99 ARE WE 3895 16 0848 3970 +1904 0 NZE ZZZZ1 DONE 3970 45 1474 1640 +1905 0 ALO 8001 1474 15 8001 3881 +1906 0 ALO ASTRK 3881 15 1534 1440 +1907 0 00 0050 0050 1534 00 0050 0050 +1908 0 ASTRK AUP XXXX1 INCRM 1440 10 1961 1428 +1909 0 I99 00 0450 0489 0848 00 0450 0489 +1910 0 I2 00 0000 0039 3973 00 0000 0039 +1911 1 +1912 1 +1913 1 TAP ROUTINE +1914 1 +1915 0 HED ) +1915 0817 LDD TRAN1 COMMENTS 0817 69 1140 3898 +1915 STD P0008 3898 24 1984 3948 +1915 RAU BB817 3948 60 1948 3998 +1915 ALO H8XXX SUB10 3998 15 0858 1600 +1916 0 BB817 RAU SET TEST 1ST 1948 60 1422 1478 +1917 0 RAL 1951 TAP RCD VS 1422 65 1951 1472 +1918 0 SLO 9050 CARD 1472 16 9050 3129 +1919 0 NZE PASS INIT NO YES 3129 45 1382 1933 +1920 0 SETBL SET 9050 TRSFR TAPE 1522 27 9050 1528 +1921 0 SIB 1951 1998 TO CD AREA 1528 28 1951 1998 +1922 0 SET SET 9050 READ TAPE 1478 27 9050 3133 +1923 0 RTN 8012 NTS 3133 04 8012 1490 +1924 0 NTS NTS 8001 1490 25 8001 3945 NOTE +1925 0 NEF EXIT 3945 54 1799 1572 +1926 0 NZE HALT 1799 45 1822 1872 +1927 0 SLT 0001 REREAD 1822 35 0001 3179 NOTE +1928 0 BST 8012 SET ROUTINE 3179 57 8012 1478 +1929 0 HALT HLT 0000 9999 1872 01 0000 9999 NOTE +1930 0 INIT LDD COPY FOUND 1933 69 1540 3193 +1931 0 STD READC ROUTINE 3193 24 1950 1922 +1932 0 LDD RWIND SET TO 1922 69 1126 3779 --0+ +1933 0 STD EXIT SETBL PROCESS 3779 24 1572 1522 +1934 0 RWIND RWD 8012 FINISHED 1126 55 8012 3931 +1935 0 LDD ENTR ROUTINE 3931 69 1584 1790 +1936 0 STD EXIT 1 Z 1790 24 1572 0642 NOTE +1937 0 PASS RAU 8001 BYPASS 1382 60 1885 8001 +1938 0 RTC 8012 NTS ROUTINE 1885 03 8012 1490 +1939 0 COPY RAL SETBL SET 1540 65 1522 1478 +1940 0 ENTR NOP 0000 BB817 1584 00 0000 1948 +1941 0 EXIT NOP 0000 BB817 1572 00 0000 1948 +1942 0 HED +1943 1 +1944 1 PST ROUTINE NOTE +1945 1 +1946 0 0812 RAU 1800 SUB10 0812 60 1800 1600 +1947 1 +1948 1 HED ROUTINE +1949 1 +1950 0 0808 RAL 1952 0808 65 1952 1972 +1951 0 SRT 0008 HEADING 1972 30 0008 1042 +1952 0 STL 0000H SETCC CHARACTER 1042 20 0668 3152 +1953 1 NOTE +1954 0 0000H 01 0000 0000H ERASEABLE 0668 01 0000 0668 +1955 1 +1956 1 REL ROUTINE +1957 1 +1958 0 HED M +1959 0 0809 RAL 1952 0809 65 1952 3122 +1960 0 NZE SDD DRUM 3122 45 1176 1828 +1961 0 RAL 1958 SDD AND 1176 65 1958 1828 +1962 0 SDD STL DDIFF CORE 1828 20 1447 3172 +1963 0 RAL 1953 DELTAS 3172 65 1953 3772 NOTE +1964 0 NZE SCD 3772 45 1226 1878 +1965 0 RAL 1959 SCD 1226 65 1959 1878 +1966 0 SCD STL CDIFF SETCC 1878 20 3166 3152 +1967 1 +1968 0 DDIFF 01 0000 DDIFF ERASEABLE 1447 01 0000 1447 +1969 0 CDIFF 01 0000 CDIFF 3166 01 0000 3166 NOTE +1970 0 HED NOTE +1971 1 +1972 1 SEQ ROUTINE +1973 1 +1974 0 0816 RAU 1951 0816 60 1951 3822 +1975 0 NZU S9H 3822 44 1276 1326 +1976 0 ALO 1957 STLL 1276 15 1957 3872 +1977 0 S9H RSL 1954 STLL 1326 66 1954 3872 +1978 0 STLL STL SEQLL 3872 20 0778 3981 +1979 0 RAU 1952 3981 60 1952 3922 +1980 0 NZU S9I 3922 44 1376 1426 +1981 0 ALO 1958 STLD 1376 15 1958 3972 +1982 0 S9I RSL 1954 STLD 1426 66 1954 3972 +1983 0 STLD STL SEQDD 3972 20 3865 1524 +1984 0 RAU 1953 1524 60 1953 1574 +1985 0 NZU S9J 1574 44 3128 3178 +1986 0 RAL 1959 3128 65 1959 1824 +1987 0 SLO 9000 1824 16 3778 3183 +1988 0 BMI CSEQI 3183 46 1840 1890 +1989 0 ALO 8001 TUVWX 1840 15 8001 1797 +1990 0 TUVWX LDD H8XXX S9K 1797 69 0858 1874 +1991 0 S9K STD TCORI 1874 24 0890 3793 +1992 0 STL SEQII 3793 20 3915 1924 +1993 0 RAU 1960 1924 60 1960 1974 +1994 0 SRT 0001 1974 30 0001 1432 +1995 0 SUP 8003 1432 11 8003 3140 +1996 0 NZE NEGSQ 3140 45 1544 3995 +1997 0 RAM 1IXXX STIIX 3995 67 0550 3124 +1998 0 NEGSQ RSM 1IXXX STIIX 1544 68 0550 3124 +1999 0 STIIX STL CTRSQ SETCC 3124 20 0990 3152 +2000 0 S9J RSL 1954 TUVWX 3178 66 1954 1797 +2001 0 CSEQI ALO 8001 1890 15 8001 1847 +2002 0 LDD H9XXX S9K 1847 69 1403 1874 +2003 0 9000 00 0000 9000 3778 00 0000 9000 +2004 1 +2005 1 TRANSFER CARD ROUTINE +2006 1 --0+ +2007 0 HED * +2008 0 0818 RAU SUB10 XFR 0818 60 3174 1600 +2009 0 RAU 1952 TEST 3174 60 1952 3774 +2010 0 NZU Y BLANK TRSF 3774 44 3828 3878 +2011 0 STL P0007 3828 20 1983 3190 +2012 0 LDD PROCD GET START 3190 69 3843 1801 +2013 0 RAL RETN Z ADDRESS 3843 65 1046 3824 +2014 0 Y RAL TW Z 3878 65 1482 3824 +2015 0 Z AUP POSIT MUST WE 3824 10 1787 1092 +2016 0 SUP +MIN PCH LASTCD 1092 11 1096 3874 +2017 0 NZU 8002 NO 3874 44 3928 8002 +2018 0 STL READC 5CD + YES 3928 20 1950 1554 +2019 0 RETN RSM +0001 SET ID WD 1046 68 0977 1532 +2020 0 STL +0001 NEGATIVE 1532 20 0977 1880 +2021 0 RAL P0007 1880 65 1983 3790 +2022 0 SRT 0004 STOR START 3790 30 0004 3924 +2023 0 STL +0002 ADDRESS 3924 20 0978 1582 +2024 0 RAL I6 ZERO 1582 65 1935 3840 +2025 0 LDD SUBR1 WDS3-8 3840 69 3893 3920 +2026 0 PCH +0001 3893 71 0977 3978 +2027 0 RAM +0001 3978 67 0977 1832 +2028 0 ALO 1IXXX 1832 15 0550 3974 +2029 0 STL +0001 TW 3974 20 0977 1482 +2030 0 TW LDD RDCD 1482 69 1945 0898 +2031 0 STD READC 8001 RSET EXIT 0898 24 1950 8001 +2032 0 I6 00 +0003 +0008 1935 00 0979 0984 +2033 0 +MIN STL +0002 *0001 1096 20 0978 0045 +2034 1 +2035 1 5CD ROUTINE +2036 1 +2037 0 0819 RAU SUB10 5/CD PUNCH 0819 60 1476 1600 +2038 0 RAU 1952 INSERT ID 1476 60 1952 1526 +2039 0 NZU * IF ANY 1526 44 3829 1930 +2040 0 RAL 1958 3829 65 1958 1576 +2041 0 SLT 0004 * 1576 35 0004 1930 +2042 0 * AUP 1953 AND SET CD 1930 10 1953 1826 +2043 0 NZU SKP NO+ STRT 1826 44 3879 3130 +2044 0 ALO 1959 SIA 3879 15 1959 1876 +2045 0 SKP ALO 1IXXX SIA 3130 15 0550 1876 +2046 0 SIA LDD +0001 1876 69 0977 3180 +2047 0 SDA ZZZZ1 3180 22 1640 3943 NOTE +2048 0 SIA +0001 3943 23 0977 3780 +2049 0 RAU BRNCH 3780 60 3783 3890 +2050 0 STD SET5+ 8001 3890 24 0772 8001 +2051 0 BRNCH NZE PEXIT 5/CD+ 3783 45 0776 3127 +2052 1 +2053 0 0807 RAU 1900 SUB10 0807 60 1900 1600 +2054 1 SUB 22 PUNCH SYMBOLS AND EQUVS +2055 1 NOTE +2056 0 HED S +2057 0 SUB22 STD EXITX SET EXIT 1904 24 0653 1926 +2058 0 RAU P0009 SAVE CARD 1926 60 1985 3940 +2059 0 STD XXXX1 NUMBERING 3940 24 1961 1976 +2060 0 STL P0001 BLANK OUT 1976 20 1977 3830 +2061 0 STD P0005 LOCN AND 3830 24 1981 1834 +2062 0 STD P0006 COMMENTS 1834 24 1982 3135 +2063 0 STD P0009 AND NUMBER 3135 24 1985 3990 +2064 0 LDD 9D999 SET NINES 3990 69 3993 1146 +2065 0 STD P0008 FOR PCHING 1146 24 1984 1142 +2066 0 LDD C0034 STORE EQU 1142 69 1683 1242 +2067 0 SIA P0004 AS PSEUDOP 1242 23 1980 3833 +2068 0 RAL A SEE 3833 65 1342 1897 +2069 0 SEE SLO TERM EXIT WHEN 1897 16 3126 1882 +2070 0 NZE ENDST FINISHED 1882 45 1392 1442 NOTE +2071 0 ALO MORE INCREMENT 1392 15 1246 3176 +2072 0 STL XXXX2 8001 ST LOCATN 3176 20 1962 8001 +2073 0 8001 AUP 2000 TEST 8001 10 2000 3776 +2074 0 TEST NZU SEE 3776 44 3929 1897 +2075 0 SUP 8003 3929 11 8003 1492 +2076 0 STD P0002 IF SYMBOL 1492 24 1978 1932 +2077 0 STU P0010 IS IN TABL 1932 21 1986 1542 +2078 0 LDD SUBR8 GET EQUIV 1542 69 1296 0441 +2079 0 RAU EQUIV ENTER 1296 60 1013 3826 +2080 0 AUP 1DXXX LOOP LOOP TO 3826 10 0554 3876 NOTE +2081 0 LOOP SRT 0001 CONVERT 3876 30 0001 3883 +2082 0 SUP 8003 NUMERIC 3883 11 8003 1592 +2083 0 SRT 0001 EQUIVALENT 1592 30 0001 1849 +2084 0 AUP 8001 TO ALPHA 1849 10 8001 3926 +2085 0 NZU LOOP FORM 3926 44 3876 3880 +2086 0 ALO Y STORE IT 3880 15 3933 1792 +2087 0 STL P0003 FOR PUNCH 1792 20 1979 3132 +2088 0 RAU SUB10 PUNCH A 3132 60 3185 1600 +2089 0 RAL XXXX2 SEE 3185 65 1962 1897 +2090 1 +2091 0 ENDST LDD XXXX1 RESTORE 1442 69 1961 3976 +2092 0 STD P0009 EXITX CARD NUMBR 3976 24 1985 0653 NOTE +2093 1 +2094 0 A AUP S0000 TEST CONSTANTS 1342 10 1999 3776 +2095 0 TERM AUP S1100 TEST 3126 10 3099 3776 +2096 0 MORE AUP S1101 TEST 1246 10 3100 3776 +2097 0 Y 99 9090 9090 3933 99 9090 9090 +2098 0 HED +2099 1 +2100 1 SUB 16 INITIALIZATION +2101 1 +2102 0 SUB16 STD ALPHA 3753 24 3979 3182 +2103 0 BD7 INIT 3182 97 3785 1842 +2104 0 LDD PCHWD PART RESET PCH 3785 69 0628 3782 +2105 0 INIT RAL RSET+ 1842 65 1483 1892 +2106 0 STD POSIT 5/CD PCH 1892 24 1787 1942 +2107 0 ALO LOCM+ 1942 15 1093 1947 +2108 0 STL LOC + 1947 20 0646 1899 +2109 0 RAU I3 1899 60 3930 3835 +2110 0 STL P0009 ZERO NUMB 3835 20 1985 3142 +2111 0 STD 0000H ZERO HED 3142 24 0668 3980 +2112 0 LDD UNRAV MAKE DRUM 3980 69 3983 3820 +2113 0 RSU 8001 AVAILABLE 3983 61 8001 3192 +2114 0 STU SEQLL 3192 21 0778 3832 +2115 0 STD SEQDD 3832 24 3865 3882 +2116 0 STD SEQII 3882 24 3915 3932 +2117 0 LDD 87NTH 3932 69 0494 1997 +2118 0 STD OPREG 1997 24 0643 1346 +2119 0 RAL I5 1346 65 1949 3982 +2120 0 STU DRUMT + '+U 3982 21 1453 1884 +2121 0 STD DDRMT 1884 24 0694 3147 +2122 0 STD ITAGW 3147 24 1451 1934 NOTE +2123 0 AUP H8XXX UNDEFINE 1934 10 0858 3134 +2124 0 STD TCORI 3134 24 0890 1594 +2125 0 STD . UNDEFINE 1594 24 1578 3184 +2126 0 STD $ SPECIAL 3184 24 1588 3792 +2127 0 STD , CHARACTER 3792 24 1598 3784 +2128 0 STD = 3784 24 1608 3834 +2129 0 STD ) 3834 24 1579 3884 +2130 0 STD * 3884 24 1589 3842 +2131 0 STD ( 3842 24 1599 3934 +2132 0 STD ' 3934 24 1609 3984 +2133 0 STD + 3984 24 1580 3885 +2134 0 STD - 3885 24 1590 1794 +2135 0 STD / 1794 24 1591 1844 NOTE +2136 0 LDD SUBR1 1844 69 3197 3920 +2137 0 LDD PEXIT 3197 69 0776 3935 +2138 0 STD PCHWD PART 3935 24 0628 3782 +2139 0 PART STD SET5+ 3782 24 0772 3985 +2140 0 LDD SYMFL 3985 69 3102 3892 +2141 0 STD HLD5C 3892 24 1858 3942 +2142 0 LDD 1198I RESTORE 3942 69 1396 3149 +2143 0 STD SYMCT SYM COUNT 3149 24 0562 3992 +2144 0 RAL I1 ZERO OUT 3992 65 1446 1894 +2145 0 STU PCHEX 1894 21 1630 1994 +2146 0 LDD SUBR1 SYMBOL TAB 1994 69 3797 3920 +2147 0 LDD 9D999 SET CON 3797 69 3993 1496 +2148 0 STD TRANS TROLS FOR 1496 24 0640 3144 NOTE +2149 0 LDD INTOA ASSEMBLY 3144 69 3847 3194 +2150 0 STD INTOX ALPHA 3194 24 0652 3979 +2151 1 +2152 0 I1 00 S0001 S1100 1446 00 2000 3099 +2153 0 I3 11 1111 1111 3930 11 1111 1111 +2154 0 I5 00 1621 1649 1949 00 1621 1649 +2155 0 9D999 09 0000 9990 3993 09 0000 9990 +2156 0 INTOA ALO TORG 8002 3847 15 3806 8002 +2157 0 RSET+ STL +0002 *0001 1483 20 0978 0045 +2158 0 +0001 HLT 0000 9999 0977 01 0000 9999 +2159 0 1198I 00 0000 0998 1396 00 0000 0998 +2160 1 +2161 0 HED +2162 1 +2163 1 SUB 1 STORE K IN FWA TO LWA +2164 1 +2165 0 HED 1 +2166 0 SUBR1 STD EXITX STORE EXIT 3920 24 0653 3794 +2167 0 STU XXXX1 STORE K 3794 21 1961 3844 +2168 0 LDD FWA SET 3844 69 3897 3894 +2169 0 SDA FWA FWA 3894 22 3897 3944 +2170 0 SLT 0004 LWA 3944 35 0004 3994 +2171 0 SDA XXXX2 ADDRESSES 3994 22 1962 1546 +2172 0 RAU FWA 1546 60 3897 1596 +2173 0 ALO XXXX1 8003 1596 15 1961 8003 +2174 0 8003 STL 9999 NEXT STORE K 8003 20 9999 1796 +2175 0 NEXT SUP XXXX2 END OF 1796 11 1962 1846 +2176 0 NZU EXITX LOOP TEST 1846 44 3199 0653 +2177 0 AUP 8001 AUP1D 3199 10 8001 1896 +2178 0 AUP1D AUP 1DXXX 8003 1896 10 0554 8003 +2179 1 +2180 0 FWA STL 9998 NEXT CONSTANTS 3897 20 9998 1796 +2181 0 HED +2182 1 +2183 1 LOAD AVAILABILITY TABLE SUBR +2184 1 +2185 0 1999 RAL 1951 CALCULATE 1999 65 1951 1946 +2186 0 SRT 0004 LOCATION 1946 30 0004 1996 +2187 0 RAU 8002 IN AVAIL 1996 60 8002 3146 +2188 0 SRT 0003 TABLE 3146 30 0003 3196 +2189 0 AUP 8003 3196 10 8003 3796 +2190 0 STU ADD 3796 21 3846 3799 +2191 0 SUP 8001 3799 11 8001 3896 +2192 0 SRT 0007 3896 30 0007 3946 +2193 0 LDD GDA11 3946 69 3849 0347 +2194 0 SLT 0001 3849 35 0001 3996 +2195 0 AUP ADD 3996 10 3846 3947 +2196 0 SRT 0006 3947 30 0006 3997 +2197 0 ALO C1 3997 15 0998 1048 NOTE +2198 0 AUP C3 8003 1048 10 1098 8003 +2199 0 8003 LDD 9995 8002 8003 69 9995 8002 +2200 0 8002 STD 9994 TUP 8002 24 9994 1148 +2201 0 TUP SUP TW 1148 11 1248 1298 +2202 0 NZU READC 1298 44 1348 1950 +2203 0 AUP TWP2 1348 10 1398 1448 +2204 0 ALO 1DXXX 8003 1448 15 0554 8003 +2205 0 TW LDD 1958 8002 1248 69 1958 8002 +2206 0 TWP2 LDD 1960 8002 1398 69 1960 8002 +2207 1 +2208 0 50XXX 00 0000 0050 3850 00 0000 0050 +2209 0 90XXX 00 0000 0090 0576 00 0000 0090 +2210 0 0200I 00 0000 0200 0824 00 0000 0200 +2211 0 3000I 00 0000 3000 1290 00 0000 3000 +2212 0 4000I 00 0000 4000 0836 00 0000 4000 +2213 0 1DXXX 00 0001 0000 0554 00 0001 0000 +2214 0 2DXXX 00 0002 0000 0860 00 0002 0000 +2215 0 H8XXX 80 0000 0000 0858 80 0000 0000 +2216 0 H9XXX 90 0000 0000 1403 90 0000 0000 +2217 0 3999I 00 0000 3999 1498 00 0000 3999 +2218 0 32DXX 00 0032 0000 1548 00 0032 0000 +2219 0 3DXXX 00 0003 0000 1798 00 0003 0000 +2220 0 11IXX 00 0000 0011 1848 00 0000 0011 +2221 0 2IXXX 00 0000 0002 0856 00 0000 0002 +2222 0 4IXXX 00 0000 0004 0094 00 0000 0004 +2223 0 8IXXX 00 0000 0008 0144 00 0000 0008 NOTE +2224 0 0040 - 99 9999 9999 TABLE END 0040 - 99 9999 9999 +2225 0 0090 - 99 9999 9999 FOR 0090 - 99 9999 9999 +2226 0 0140 - 99 9999 9999 AVAIL 0140 - 99 9999 9999 +2227 0 0190 - 99 9999 9999 TBL 0190 - 99 9999 9999 +2228 0 0240 - 99 9999 9999 0240 - 99 9999 9999 +2229 0 0290 - 99 9999 9999 0290 - 99 9999 9999 +2230 0 0340 - 99 9999 9999 0340 - 99 9999 9999 +2231 0 0390 - 99 9999 9999 0390 - 99 9999 9999 +2232 0 0440 - 99 9999 9999 0440 - 99 9999 9999 +2233 0 0490 - 99 9999 9999 0490 - 99 9999 9999 +2234 1 +2235 0 C1 STD 0000 TUP CONSTANTS 0998 24 0000 1148 +2236 0 C3 LDD 1952 8002 1098 69 1952 8002 +2237 0 II00 00 0000 1600 1898 00 0000 1600 +2238 0 PAT diff --git a/I650/sw/soap/soap4_src.txt b/I650/sw/soap/soap4_src.txt new file mode 100644 index 000000000..3fdb5e6d1 --- /dev/null +++ b/I650/sw/soap/soap4_src.txt @@ -0,0 +1,2248 @@ + 1 soap 4000 + 1 + 1 symbolic optimal assembly prog + 1 + 1 for the + 1 + 1 ibm 650 model 4 + 1 + 1 data processing system + 1 + 1 + 0 5cd 4007 0006 + 0 blr 0000 0040 avail + 0 blr 0050 0090 table + 0 blr 0100 0140 areas + 0 blr 0150 0190 + 0 blr 0200 0240 + 0 blr 0250 0290 + 0 blr 0300 0340 + 0 blr 0350 0390 + 0 blr 0400 0440 + 0 blr 0450 0490 + 0 regb0041 0042 subr2 + 0 reg=0043 0044 sub 11 + 0 reg*0045 0046 punch subr + 0 reg/0091 0093 + 0 blr 0191 0191 + 0 reg.0500 0509 sub 11 + 0 reg(0550 0560 sub 11 + 0 equ1ixxx (0001 + 0 equ0010i (0002 + 0 equ100ix (0003 + 0 equ1dxxx (0005 + 0 equ10dxx (0006 + 0 equh1 4 (0010 + 0 reg)0600 0612 index tabl + 0 regn0700 0752 optim tabl + 0 blr 0800 0819 pseudo ent + 0 regh0902 0904 type 2 + 0 regm0905 0907 + 0 regv0910 0911 equ syn + 0 regx0913 0914 type 0 + 0 regy0915 0916 equ syn + 0 regz0917 0919 + 0 regw0920 0921 + 0 blr 0923 0968 multiple r + 0 regd0923 0923 proc l + 0 bla 0930 0930 + 0 bla 0964 0964 + 0 reg+0977 0986 5/cd outpt + 0 equ85thp +0010 + 0 blr 1000 1000 entry + 0 blr 1002 1002 literal + 0 blr 1005 1005 symbols + 0 blr 1017 1017 + 0 blr 1025 1025 + 0 blr 1041 1041 + 0 blr 1055 1055 + 0 rego1185 1199 multipass + 0 regr1200 1207 sub 5 + 0 regu1250 1259 sub 13 + 0 blr 1292 1292 + 0 regi1300 1307 sub 13 + 0 blr 1563 1570 type2 + 0 bla 1565 1565 + 0 bla 1569 1569 + 0 syn. 1578 + 0 syn) 1579 + 0 syn+ 1580 + 0 syn$ 1588 + 0 syn* 1589 + 0 syn- 1590 + 0 syn/ 1591 + 0 syn, 1598 + 0 syn( 1599 + 0 syn= 1608 + 0 syn' 1609 + 0 blr 1621 1649 reg table + 0 equpchex 1630 + 0 equzzzz1 1640 temporary + 0 equzzzz2 1641 storage + 0 equtag zzzz1 + 0 regc1650 1786 symblic op + 0 blr 1800 1800 manual pst + 0 blr 1900 1900 manual pat + 0 syn80xxl 1912 + 0 syn80xxd 1928 + 0 reg-1937 1941 + 0 syn80xxi 1944 + 0 synreadc 1950 + 0 blr 1951 1967 17wd buffr + 0 equxxxx1 1961 + 0 equxxxx2 1962 + 0 equw 2 xxxx2 + 0 regp1977 1986 punch area + 0 regt1990 1993 type + 0 blr 1998 1999 + 0 regs2000 3099 symbol tab + 0 rege3200 3749 equiv tabl + 0 rega0510 0527 + 0 reg$0528 0545 + 0 hed3 + 0 subr3stdexitx downr stor exit + 0 downrrau 1954 + 0 siaxxxx1 + 0 ral 8001 is op blnk + 0 nze illop + 0 slt 0002 + 0 nzu num + 0 rau 8001 + 0 tluc0001 search + 0 alo1 8002 symbolic + 0 8002rau 9998 nxt op table + 0 nxt supxxxx1 + 0 srt 0004 is symb op + 0 nzuillop legal + 0 slt 0001 + 0 nzu norm + 0 sup4ixxx test pseu + 0 nzurpq + 0 slt 0003 8003 pseudo op + 1 + 0 norm stlp0007 store num + 0 slo 8001 op and get + 0 tlun0001 optimizing + 0 alo5 8002 data + 0 8002ldd 9998 nxtin + 0 nxtinstdoptim exitx + 1 + 0 num rau 8001 op code in + 0 ldd compr dbl digit + 0 raup0007 + 0 srt 0002 norm to 1 digit + 1 + 0 rpq slt 0001 negativ op + 0 stlp0007 add cntrol + 0 slo 8002 8 to pch + 0 slt 0004 minus and + 0 alop0010 get proper + 0 slt 0001 entry in + 0 slo 8002 0ptimizing + 0 aloh8xxx table + 0 srt 0001 aup + 1 + 0 illopralp0010 illegal + 0 alo8ixxx aup op pch + 0 aup aup2 blank op + 0 stlp0010 8003 + 0 8003lddn0000 nxtin + 1 + 0 1 rau 0000 nxt constants + 0 2 lddn0004 nxtin + 0 5 ldd 0000 nxtin + 0 optim 01 0000 optim + 0 hed + 1 + 1 sub 4 what is address + 1 + 0 hed4 + 0 subr4bov + 0 stdexitz + 0 stuxxxx1 store addr + 0 srt 0008 is c5 + 0 stuxxxx2 save c5 + 0 rau 8002 are low 4 + 0 aup90xxx loop + 0 loop auph1 + 0 bov sym + 0 slt 0002 + 0 nzuloop + 0 ralxxxx2 low 4 num + 0 nze exitz + 0 slo90xxx is c5 + 0 bmi sym alphabetic + 0 ral1ixxx regional + 0 aupxxxx1 aex + 0 aex aloexitz + 0 slo 8002 8001 + 0 sym rauxxxx1 hed symbol + 0 ldd sub15 + 0 stuhsymb + 0 srt 0008 + 0 nzu lit + 0 rau 8001 + 0 alo2ixxx aex + 0 lit rau 8001 + 0 alo100ix aex + 0 hsymb 01 0000 hsymb eraseable + 0 hed + 1 + 1 sub 15 heading routine + 1 + 0 hedh + 0 sub15stdexity save exit + 0 ldd 8003 is c1 + 0 slt 0008 blank + 0 nzudh + 0 rau 8001 head + 0 aup0000h exity + 0 dh rau 8001 exity dont head + 0 hed + 1 + 1 sub 5 test absolute address + 1 + 0 hed5 + 0 subr5stdexitz store exit + 0 stlxxxx1 store a + 0 slt 0004 + 0 slo 8002 + 0 tlur0001 tlu + 0 aloget 8002 range + 0 8002rau 9972 x table + 0 x slt 0006 + 0 srt 0006 + 0 aupexitz + 0 aloxxxx1 + 0 sup 8003 8001 + 0 get rau 0000 x + 0 r0001 00 3999 0000 range + 0 r0002 00 7999 0003 table + 0 r0003 00 8003 0001 + 0 r0004 00 8004 0979 + 0 r0005 00 8007 0001 + 0 r0006 00 8999 0979 + 0 r0007 00 9199 0002 + 0 r0008 99 9999 0003 + 1 + 0 exitz 01 0000 exitz + 0 hed + 1 + 1 + 1 sub 6 symbol test routine + 1 + 0 hed6 + 0 subr6stdexitz store exit + 0 stus store symb + 0 lddswof set switch + 0 stdsw off + 0 ral 8003 scramnle + 0 divrf symbol + 0 ral 8003 giving lo + 0 slt 0004 + 0 alol1 sli + 0 sli stlli 8001 init li + 0 8001ral 9990 a is cont of + 0 a nze und li zero + 0 slos is cont of + 0 nzesw def li symb + 0 sw ralli off is li + 0 off slolmax maximum + 0 nze max + 0 alolmp1 sli step li + 0 on alo1dxxx sli step li + 0 max lddswon set + 0 stdsw switch on + 0 rall1 sli zero li + 1 + 0 def ralli defined + 0 lddasu subr8 get + 0 asu aups exitz equivalent + 1 + 0 und ralexitz if symbol + 0 bd5l is undefnd + 0 bd6d i test if it + 0 l ldd 1960 has been + 0 bd9 alo1 previously + 0 ldd 1957 stequ establshed + 0 d ldd 1960 and if so + 0 bd8 alo1 store it + 0 ldd 1958 stequ as equiv + 0 i ldd 1960 + 0 bd7 alo1 + 0 ldd 1959 stequ if still + 0 stequstdequiv ralli undefined + 0 alo1 alo1ixxx then step + 0 stlexitz exit + 0 ralsymct + 0 slo1ixxx zero if + 0 stlsymct 1000th + 0 nzeralli full symbol + 1 + 0 ralliralli + 0 slolx + 0 stllsymb asu + 1 + 0 full lddset5+ suspend + 0 stdpchwd 5/cd punch + 0 ldd4d888 1100 symbs + 0 stdtrans set contrl + 0 lddinto1 to enter + 0 stdintox pass + 0 lddp0009 routine + 0 stdnhold on next + 0 ldd0000h card read + 0 stdhhold ralli + 1 + 0 swof ralli off constants + 0 swon ralli on + 0 rf 00 0000 1099 + 0 lx ral 0000 a + 0 l1 rals0001 a + 0 lmax rals1100 a + 0 lmp1 rals1101 a + 0 4d888 04 0000 8880 + 0 into1alotorgp first + 0 s 01 0000 s eraseable + 0 sw 01 0000 sw + 0 lo 01 0000 lo + 0 li 01 0000 li + 0 lsymb 01 0000 lsymb + 0 symct 01 0000 symct + 0 nhold 01 0000 nhold + 0 hhold 01 0000 hhold + 0 trans 01 0000 trans + 0 hed + 1 + 1 sub 7 store symbol and equiv + 1 + 0 hed7 + 0 subr7stdexitz store exit + 0 lddss + 0 sdaxxxx2 8001 store + 0 8001stu 9988 a symbol + 0 a sup 8001 + 0 stlxxxx1 save e + 0 srt 0004 + 0 div2ixxx calculate + 0 slt 0004 location + 0 aloc1 of + 0 lddc2 e + 0 sdasel and + 0 lddc3 store + 0 sdaser + 0 stlobee + 0 slo 8001 + 0 aloxxxx1 obee + 0 obee ldd 9986 b + 0 b nzuser + 0 slt 0004 sel + 0 ss stu 9987 a condtants + 0 c1 ldd 2200 b + 0 c2 sda 9985 exitz + 0 c3 sia 9984 exitz + 0 obee 01 0000 obee eraseable + 0 sel 01 0000 sel + 0 ser 01 0000 ser + 0 hed + 1 + 1 sub 8 given sym loc get equiv + 1 + 0 hed8 + 0 subr8stdexit store exit + 0 ldd 8003 + 0 sdalsymb store l + 0 ral 8001 + 0 div2dxxx + 0 slt 0004 + 0 aloe1 8002 + 0 8002ldd 9975 tr + 0 tr nzu lh + 0 ram 8001 lr get e rh + 0 lh ram 8001 get e lh + 0 srt 0004 lr + 0 lr ldd 8003 + 0 siaequiv + 0 rallsymb exit + 1 + 0 e1 ldd 2200 tr + 0 exit 01 0000 exit eraseable + 0 equiv 01 0000 equiv + 0 hed + 1 + 1 sub 9 calculate reg address + 0 hed9 + 0 subr9stlexitz + 0 lddmask + 0 sdazzzz1 + 0 lddal0c stor + 0 stor stdxxxx1 + 0 srt 0008 + 0 ral 8003 test char + 0 slo90xxx region + 0 bmi 0801 + 0 slt 0004 xxxx1 + 3 xxxx1aloc 8002 + 0 8002ral 9991 nex + 0 nex bdoill is reg cha + 0 sloh9xxx zzzz1 defined + 3 zzzz1alo 1959 all + 0 all slo1ixxx + 0 bmiill exitz + 0 ill ralexitz undefined + 0 alo1ixxx 8002 or illegal + 1 + 0 mask alo 9999 all + 0 al0c aloc 8002 + 0 c ral 1650 nex + 0 hed + 1 sub 10 set cc 8 and punch + 1 + 0 sub10stucongo + 0 raup0010 + 0 aup84th + 0 lddcongo h8sub + 1 + 0 84th 00 0800 0000 constant + 1 + 0 h8substd8exit + 0 slt 0001 + 0 srt 0001 + 0 auph8xxx + 0 stup0010 + 0 pchp0001 + 0 rautyp3a 8exit + 1 + 1 + 1 sub 11 find and reserve best + 1 + 0 hed0 + 0 sub11aupdrumt test drum + 0 nzusex tag + 0 stlexit is addr l + 0 bd6di + 0 ralseqll + 0 bmi d0001 + 0 ral 8003 ssw l + 0 di lddf d or i + 0 sdaxxxx1 sub13 find optim + 1 + 0 ssw ldd gda11 get table + 0 srt 0005 ta strt + 0 ta aloa1p1 8002 srch tabl + 0 8002aup 0040 =0001 is a locat + 0 =0001nzu add available + 0 bmi yes + 0 sup 8001 sw no strtlu + 0 add alo1dxxx 8002 + 1 + 3 sw stlao swin multiple + 3 sw sloamax swof exit + 3 sw sloao swon + 1 + 0 swin lddoff2 stsw get tlu st + 1 + 0 swof nze max test end + 0 aloamp1 sai of table + 1 + 0 swon nze full is drum + 0 alo 8001 full + 0 alo10dxx sai + 1 + 0 sai ldd1ixxx 8002 tlu avail + 0 8002tlu 0040 =0002 table + 0 =0002sloa1 ta + 1 + 0 max rala1 tbl end-60 + 0 lddon test full + 0 stdsw sai + 1 + 0 stsw stdsw 8001 + 1 + 0 full hlt 0222 drum packd + 0 ralexit set drum + 0 ldd1ixxx tag to 1 + 0 stddrumt sex + 0 sex alo 8001 8002 k+1 exit + 1 + 0 yes lddst reserve + 0 sdaeras location + 0 rau 8003 found + 0 tlu(0001 + 0 alofixav 8002 + 0 8002sup(0011 sca + 0 sca bmi eras + 0 aup 8001 + 0 slo1dxxx 8002 + 0 eras stu 0040 ca + 0 ca slostmpy calculate + 0 sdasau2 location + 0 rslst found + 0 aloeras + 0 slt 0004 + 0 slo 8002 + 0 slt 0005 + 0 tlu.0001 + 0 stdrcall + 0 aup 8002 + 0 studla + 0 alosxavl 8002 + 0 8002ral.0010 asca + 0 asca slorcall + 0 slt 0007 + 0 aupsau2 + 0 mpy-50 + 0 alodla + 0 alocnvrt + 0 srt 0004 exit + 1 + 0 gda11stdrerun given + 0 rau 8002 dynamic + 0 stddyna level-get + 0 aup 8001 tabl start + 0 srt 0001 address + 0 rsl 8002 + 0 lddoff + 0 stdsw + 0 aupdyna rerun + 1 + 0 .0001 07 0000 0000 group tabl + 0 .0002 15 0000 0000 + 0 .0003 23 0000 0000 + 0 .0004 31 0000 0000 + 0 .0005 39 0000 0000 + 0 .0006 57 0000 0000 + 0 .0007 65 0000 0000 + 0 .0008 73 0000 0000 + 0 .0009 81 0000 0000 + 0 .0010 89 0000 0000 + 1 + 0 (0001 00 0000 0001 band table + 0 (0002 00 0000 0010 + 0 (0003 00 0000 0100 + 0 (0004 00 0000 1000 + 0 (0005 00 0001 0000 + 0 (0006 00 0010 0000 + 0 (0007 00 0100 0000 + 0 (0008 00 1000 0000 + 0 (0009 01 0000 0000 + 0 (0010 10 0000 0000 + 0 (0011 99 9999 9999 + 1 + 0 f 00 0000 ssw constants + 0 a1p1 aup 0000 =0001 + 0 ao hlt 0000 ao + 0 amax aup 0490 =0001 + 0 apex 74 0000 0001 + 0 off2 sloamax swof + 0 amp1 tlu 0500 0044 + 0 a1 tlu 0000 =0002 + 0 on sloao swon + 0 sw hlt 0000 sw + 0 st stu 0000 ca + 0 fixavsup 0000 sca + 0 stmpy 00 0550 0000 + 0 sau2 hlt 0000 sau2 + 0 rcallhlt 0000 rcall + 0 dla hlt 0000 dla + 0--50 00 0000 0050 + 0 cnvrt 00 3450 0000 + 0 rerunhlt 0000 rerun + 0 dyna hlt 0000 dyna + 0 off stlao swin + 0 sxavlral 0000 asca + 0 hed + 1 + 1 sub 12 set blank l 8 + 1 + 0 sub12alop0010 + 0 alo87nth + 0 stlp0010 8003 + 1 + 1 sub 13 cal optimum dynamic adr + 1 + 0 hedy + 0 sub13stdexitz store exit + 0 bd5 i d or i + 0 bd6ram + '+u + 0 ral 1954 test core + 0 srt 0002 d addr + 0 rau 8002 tagged + 0 srt 0002 + 0 sup 8003 + 0 nze ram + 0 ralopreg set opreg + 0 alo1ixxx to n + 1 + 0 stlopreg ram + 0 ram ramoptim + 0 slt 0002 clear op + 0 sup 8003 code + 0 slt 0001 + 0 slo 8002 + 0 slt 0001 + 0 alo 8001 + 0 srt 0003 seo + 0 i ramoptim i + 0 bd2shop shift test + 0 slt 0004 seo + '+u + 0 seo stlxxxx1 save ev od + 0 ralopreg + 0 div2ixxx + 0 rau 8003 + 0 aloxxxx1 + 0 nzu r8 + 0 slt 0002 + 0 ral 8002 r8 + 0 r8 srt 0008 get base + 0 aloopreg plus delta + 0 div50xxx + 0 ral 8003 exitz + 1 + 0 shop bd3 xas ir test + 0 ralp0007 + 0 srt 0004 digit of + 0 slt 0009 d address + 0 slo 8002 + 0 tluu0001 + 0 alogu 8002 + 0 8002ral 9969 top + 0 top slt 0002 + 0 lddoptim is op srd + 0 bd4 seo + 0 slt 0004 seo srd + 1 + 0 xas ralp0007 tlu + 0 srt 0004 d address + 0 slt 0006 + 0 slo 8002 + 0 tlui0001 + 0 alogxd 8002 + 0 8002ral 9968 nxt + 0 nxt slt 0004 seo + 1 + 0 u0001 00 2322 2524 shift + 0 u0002 10 0706 0706 optimizing + 0 u0003 20 0706 0908 table + 0 u0004 30 0908 1110 + 0 u0005 40 1110 1312 + 0 u0006 50 1312 1514 + 0 u0007 60 1514 1716 + 0 u0008 70 1716 1918 + 0 u0009 80 1918 2120 + 0 u0010 90 2120 2322 + 1 + 0 i0001 39 9906 0600 x accum + 0 i0002 79 9907 0700 add sub + 0 i0003 80 0008 0800 table + 0 i0004 80 0106 0600 + 0 i0005 80 0209 0800 + 0 i0006 80 0308 0900 + 0 i0007 90 5908 0800 + 0 i0008 99 9909 0900 + 1 + 0 gu ral 0000 top constants + 0 gxd ral 0000 nxt + 0 hed + 1 + 1 sub 17 calc 800x equivalent + 1 + 0 hedx + 0 sb17dldddeq di d equiv + 0 sb17ilddieq di i equiv + 0 di stdxxxx1 save tag + 0 stuexity save exit + 0 stlxxxx2 save 800x + 0 lddxxxx1 sub13 calc optim + 0 sda stlequiv dynam addr + 0 div2ixxx + 0 stuxxxx1 store even + 0 raloptim odd factor + 0 bmi xm + 0 lddexitz branch if + 0 bd5d i arithmetic + 0 d ralxxxx2 op code + 0 slo8001 and lessen + 0 nzexm even 8001 + 0 ralxxxx1 data da + 0 nzeex by 2 or + 0 ral48 alo increase + 0 i ralequiv any 800x + 0 alo2ixxx inst da + 0 stlequiv xm by 2 + 0 xm ralxxxx1 + 0 nzeod ev add to da + 0 od ral8002 eo possible + 0 ev ral8003 eo even or + 0 eo sloxxxx2 odd factor + 0 nzeex add1 for 8002 + 0 ex ralequiv exity and 8003 d + 0 add1 ral1ixxx alo and i das + 0 alo aloequiv exity + 1 + 0 deq 00 0088 sda + 0 ieq 00 0009 sda + 0 8001 00 0000 8001 + 0 8002 00 0000 8002 + 0 8003 00 0000 8003 + 0 48 00 0000 0048 + 0 hed + 1 + 1 sub 18 index address + 1 + 0 hedw + 0 indexstlxxxx1 store addr + 0 stuexity store exit + 0 rau 1954 get d tag + 0 slt 0007 clear opcd + 0 aloindxi + 0 lddexity + 0 bd5d i d or i + 0 i slt 0002 + 0 bd6drmi cori test core + 0 drmi nzucomp1 or drum + 0 srt 0001 a + 0 cori nzudtag and i tag + 0 srt 0002 chnge 4000 + 0 alo 8002 a to 800 + 0 dtag sup 8003 + 0 nzecomp2 + 0 ral 8001 set to mpy + 0 slt 0001 cord itag by200 + 0 d srt 0009 positn tag + 0 bd6drmd cord testdrm or + 0 cord mpy0200i a core + 0 drmd slo 8002 + 0 nzu a is there a + 0 sup2ixxx + 0 lddexity test 80xx + 0 bd7 800x or + 0 bmidax d80xx drum + 0 d80xxldd400ix tag 8 or c + 0 stdindxi + 0 nzudax a test b c + 0 800x nzu 0945 d80xx is it b + 0 dax ral4000i a tag a andc + 0 a aloxxxx1 exity + 0 400ix 00 0000 0400 + 1 + 0 comp1stuitagw 1620r save tag + 0 comp2stditagw 1620r + 0 1620rrau 1952 + 0 nzu clrit + 0 rau 1954 test ir + 0 siaxxxx2 ir op code + 0 tlu)0001 + 0 aloopsrh 8002 + 0 8002sup)0013 ars + 0 ars srt 0004 + 0 nzu clrit + 0 ral 1954 clr i-tag + 0 srt 0002 from + 0 slt 0002 instructn + 0 stlp0004 + 0 std 1954 zero i-go + 0 stup0003 dnb c find locat + 0 clritstuitagw 0954 error + 0 opsrhsup 0000 ars + 0 itagwhlt 0000 itagw + 1 + 0 )0001alfaxa soap2 tagged + 0 )0002alfaxb soap2 i-address + 0 )0003alfaxc soap2 op code + 0 )0004alfraa soap2 search + 0 )0005alfrab soap2 table + 0 )0006alfrac soap2 + 0 )0007alfrsa soap2 + 0 )0008alfrsb soap2 + 0 )0009alfrsc soap2 + 0 )0010alfsxa soap2 + 0 )0011alfsxb soap2 + 0 )0012alfsxc soap2 + 0 )0013alf99999 soap2 table end + 0 exity 01 0000 exity eraseable + 0 hed + 1 + 1 sub 19 process location + 1 + 0 regg0925 0925 + 0 regj0928 0928 + 0 regk0931 0931 + 0 regl0933 0933 + 1 + 0 heda + 0 proclstdexitx store exit + 0 rau 1951 is l blank + 0 nzunb + 0 aloseqll + 0 bmiblnk + 0 lddtcori + 0 bdok0001 l0003 + 0 blnk raudrumt + 0 nzud0002 b + 0 b ralopreg setl blank + 0 setl slt 0004 set l + 0 lddp0008 to or + 0 sdap0008 + 0 ralseqll + 0 bmiexitx + 0 aloctrsq + 0 stlseqll exitx + 0 nb lddg subr4 what is l + 0 g0001ral 1957 k0001 absolute + 0 g0002alok subr9 + 0 g0003lddj subr6 symbolic + 0 g0101lddj subr6 + 0 k0001lddl subr5 test range + 0 k0002rau87nth x reg error + 0 x aupp0010 set blank + 0 stup0010 setl l8 + 0 l0001stlopreg setl drum addr + 0 l0002stltyp3a 800x 800x loc + 0 l0003lddorceq 89x core addr + 0 l0004rau87nth x other + 0 80xxlrau87nth x 80xx addr + 0 800x lddorxeq 89x + 0 89x stdopreg x + 0 j0001ralequiv k0001 sym defind + 0 j0002rald sub11 sym undef + 0 d0001stlopreg ss s eq found + 0 d0002rau87nth x drum paked + 0 ss auphsymb store + 0 alolsymb symbol + 0 lddb subr7 + 1 + 0 g 00 0000 g0001 constants + 0 k nop 1957 k0001 + 0 j 00 0008 j0001 + 0 l 00 0000 l0001 + 0 d 00 0090 d0001 + 0 86th 00 0008 0000 + 0 87nth 00 0000 8000 + 0 exitx 01 0000 exitx eraseable + 0 opreg 00 0000 0000 + 0 drumt 01 0000 drumt + 0 orceq 01 0000 orceq + 0 orxeq 01 0000 orxeq + 0 hed + 1 + 1 sub 20 process data address + 1 + 0 regd0937 0937 proc d + 0 regf0939 0939 + 0 regg0941 0941 + 0 regj0944 0944 + 0 regk0946 0946 + 0 regl0949 0949 + 1 + 0 hedb + 0 procdstdexitx store exit + 0 rau 1952 + 0 nzunb + 0 aloseqdd + 0 bmi j0001 + 0 rald sub11 find + 0 d0001stlorbal l0004 optimum d + 0 d0002rau88th x drum paked + 0 bt lddoptim is op + 0 bd1cksqd + 0 stlopreg cksqd + 0 x aupp0010 set blank + 0 stup0010 cksqd + 0 cksqdralseqdd + 0 bmiexitx + 0 aloctrsq + 0 stlseqdd exitx + 0 nb lddg subr4 what is d + 0 g0001ral 1958 j0001 + 0 g0002aloj subr9 + 0 g0003lddk subr6 symbolic + 0 g0101lddk- subr6 + 0 j0001lddl subr5 test range + 0 j0002rau88th x reg error + 0 l0001aupaxd index drum addr + 0 l0002aupax8a index test tag + 0 l0003aupaxc index core addr + 0 l0004slt 0004 sd other + 0 80xxdaupax8t index 80xx addr + 0 800x slt 0004 set 80xx d + 0 lddp0007 + 0 sdap0007 + 0 srt 0004 + 0 aupxeq sb17d get 800x e + 0 scd slt 0004 set core d + 0 lddp0007 + 0 sdap0007 + 0 srt 0004 + 0 lddceq sub13 get core e + 0 sceq stlorceq bt save core + 0 k0001stdpchex k0003 + 0 k0002ralequiv j0001 + 0 k0003ralf sub11 + 0 f0001stleq ss save eq + 0 f0002studdrmt j0002 drum paked + 0 ss auphsymb store + 0 alolsymb symbol + 0 ldd subr7 + 0 raleq l0001 + 0 sd lddp0007 set d addr + 0 sdap0007 + 0 srt 0004 bt + 1 + 0 d 00 0088 d0001 constants + 0 g 00 0000 g0001 + 0 j nop 1958 j0001 + 0 l 00 0000 l0001 + 0 f 00 0088 f0001 + 0 k 00 0089 k0002 + 0-k- 00 0089 k0002 + 0 axd 00 0888 d0001 + 0 axc 00 0098 scd + 0 ax8t 00 0988 l0004 + 0 ax8a 00 0988 800x + 0 xeq stlorxeq bt + 0 ceq 00 0098 sceq + 0 88th 00 0000 0800 + 0 eq 01 0000 eq eraseable + 0 orbal 01 0000 orbal + 0 hed + 1 + 1 sub 21 process instr address + 1 + 0 regd0953 0953 proc i + 0 regf0955 0955 + 0 regg0958 0958 + 0 regj0960 0960 + 0 regk0962 0962 + 0 regl0965 0965 + 1 + 0 hedc + 0 procistdexitx store exit + 0 rau 1953 is i blank + 0 nzunb + 0 aloseqii + 0 bmi j0001 + 0 rau 1952 is d blank + 0 nzudnb + 0 aupdrumt + 0 nzug0002 + 0 ralorbal l0004 tag + 0 dnb rald sub11 find best + 0 d0001stlorbal l0001 found + 0 d0002ralp0010 x drum paked + 0 x alo89th + 0 stlp0010 cksqi + 0 nb lddf subr4 what is i + 0 f0001ral 1959 j0001 absolute + 0 f0002aloj subr9 + 0 f0003lddk subr6 symbolic + 0 f0101lddk subr6 + 0 j0001lddl subr5 test range + 0 j0002ralp0010 x reg err0r + 0 l0001aupaxd index drum addr + 0 l0002aup 8002 800x 800x + 0 l0003aupaxc index core addr + 0 l0004lddp0007 other + 0 siap0007 mor + 0 80xxinop 0000 l0004 80xx iaddr + 0 800x aloindxi + 0 alo 8001 + 0 lddp0007 + 0 siap0007 + 0 ral 8003 + 0 aupxeq sb17i + 0 90xx lddp0007 set core + 0 siap0007 address + 0 lddceq sub13 get core e + 0 k0001ralequiv j0001 sym defind + 0 k0002ralg sub11 sym undef + 0 g0001aupaxds index found best + 0 g0002ralp0010 x drum paked + 0 ldd lddp0007 si + 0 si siap0007 + 0 ralxxxx1 + 0 auphsymb store + 0 alolsymb symbol + 0 lddmor subr7 + 0 mor lddorbal set or + 0 stdopreg cksqi + 0 cksqiralseqii + bmiexitx + 0 aloctrsq + 0 stlseqii exitx + 0 sceq stlorceq mor save core + 1 + 0 d 00 0089 d0001 constants + 0 f 00 0000 f0001 + 0 j nop 1959 j0001 + 0 k 00 0099 k0001 + 0 l 00 0000 l0001 + 0 g 00 0089 g0001 + 0 89th 00 0000 0080 + 0 axd 00 0089 l0004 + 0 axc 00 0099 90xx + 0 axds 00 0089 ldd + 0 xeq stlorxeq mor + 0 ceq 00 0009 sceq + 0 hed + 1 + 1 sub 2 reserve unreserve + 1 + 0 hed2 + 0 subr2stdexity + 0 stln store n + 0 slo 8001 + 0 aup 8003 + 0 srt 0003 + 0 stux save group + 0 sup 8001 + 0 slt 0001 + 0 stup save band + 0 sup 8001 + 0 slt 0002 + 0 mpy51xxx get + 0 srt 0001 table + 0 ldd gda11 + 0 slt 0001 + 0 stuany + 0 srt 0002 + 0 slo 8002 + 0 srt 0006 + 0 alo 8001 + 0 aloh5 + 0 nzu slt + 0 alo5000 slt + 0 slt slt 0002 + 0 alobgin2 + 0 stla393 + 0 rauany + 0 aupx + 0 alop + 0 slt 0004 + 0 aloc1 get slt + 0 stlb0002 and srt + 0 lddc2 1nstructns + 0 sdaspr + 0 aupc3 su and ral + 0 su stusa + 0 aupc4 8003 + 0 8003ral 9992 b0002 + 0 b0002slt 0009 xx + 0 xx alo 8003 + 0 rau 8002 + 0 slt 0001 + 0 srt 0001 + 0 aupw spr + 0 spr srt 0009 sac + 0 sac aup 8002 sa + 0 sa stu 9983 b0001 + 1 + 0 b0001raln is n zero + 0 nze1or50 exity + 0 1or50slo1ixxx next reduce n + 0 next stln eithr by 1 + 0 eithrrausa eith2 is ai + 0 eith2supa393 at band + 0 bmi tpl end yes + 0 aup 8001 no + 0 aup su + 0 00 0008 0000 + 1 + 0 tpl aup 8001 band end + 0 alo 8001 test tabl + 0 suplast end + 0 bmi tp + 0 aup 8001 no step + 0 alo50d to nxt bnd + 0 stla393 + 0 aup su + 0 00 0018 0000 + 1 + 0 tp lddbgin2 + 0 stda393 tpr + 0 tpr ralspr + 0 sloc2 is p 9 + 0 nze zp + 0 aloc5 + 0 lddc1 + 0 sdab0002 + 0 stlspr 56 + 0 56 rausa sz reduce ai + 0 sz sup su by 482 + 0 00 0482 0000 + 1 + 0 zp lddc1 set p to + 0 stdb0002 zero + 0 lddc7 + 0 stdspr 78 + 0 78 rausa 178 reduce ai + 0 178 sup su by 481 + 0 00 0481 0000 + 1 + 0 c1 slt 0000 xx constants + 0 c2 srt 0009 sac + 0 c3 stu 0000 b0001 + 0 c4 44 0000 0001 + 0 a393 stu 0482 b0001 + 0 c5 srt 0010 sac + 0 c7 srt 0000 sac + 0 w hlt 0000 w + 0 p hlt 0000 p + 0 n hlt 0000 n + 0 spr hlt 0000 spr + 0 sa hlt 0000 sa + 0 x hlt 0000 x + 0 51xxx 00 0000 0005 + 0 last stu 0482 b0001 + 0 h5 50 0000 0000 + 0 5000 00 0000 5000 + 0 bgin2stu 0032 b0001 + 0 50d 00 0050 0000 + 0 hed2 + 0 hed + 1 + 1 optimizing table + 1 + 0 n0001 01 0004 0498 nop hlt + 0 n0002 02 3323 2299 ufa + 0 n0003 07 0005 0598 03 to 07 + 0 n0004 08 3312 1299 lib ill op + 0 n0005 09 3302 0299 ldi + 0-n0006 11 3305 0499 aup sup + 0 n0007 13 0000 0099 rsr + 0 n0008 14 3311 1099 div + 0-n0009 18 3305 0499 15 to 18 + 0 n0010 19 3321 2099 mpy + 0 n0011 20 5403 0399 stl + 0 n0012 21 4503 0399 stu + 0 n0013 23 3403 0399 sda sia + 0 n0014 24 3303 0399 std sfm + 0 n0015 25 4405 0598 nts + 0 n0016 26 0004 0498 bin + 0 n0017 27 0005 0598 set wts + 0 n0018 28 3312 1299 sib + 0 n0019 29 3302 0299 sti + 0 n0020 30 0000 9888 srt sps + 0 n0021 31 0000 8888 srd + 0 n0022 33 3327 2699 fad fsb + 0 n0023 34 3300 0099 fdv + 0 n0024 36 0000 9888 slt sct + 0 n0025 38 3327 2699 fam fsm + 0 n0026 39 3300 0099 fmp + 0 n0027 43 3304 0498 40 to 43 + 0 n0028 44 3404 0598 nzu + 0 n0029 45 4305 0498 nze + 0 n0030 46 3304 0498 bmi + 0 n0031 47 3305 0598 bov + 0 n0032 49 3304 0498 nzc bmc + 0 n0033 53 0000 0988 50 to 53 + 0 n0034 54 4405 0598 nef + 0 n0035 57 0005 0598 55 to 57 + 0 n0036 59 0000 0988 axc sxc + 0-n0037 61 3305 0499 rau rsu + 0 n0038 63 3305 0699 tle + 0 n0039 64 3311 1099 dvr + 0-n0040 68 3305 0499 65 to 68 + 0 n0041 69 3303 0399 ldd + 0 n0042 78 0000 0099 70 to 78 + 0 n0043 79 0005 0599 rpy + 0 n0044 83 0000 0988 80 70 83 + 0 n0045 84 3305 0699 tlu + 0 n0046 87 0005 0598 85 to 87 + 0 n0047 89 0000 0988 rac rsc + 0 n0048 90 4405 0598 bd0 + 0 n0049 00 3306 0599 nac + 0 n0050 00 5406 0598 elu neu + 0 n0051 98 3305 0598 bd1 to bd8 + 0 n0052 99 4405 0598 bd9 + 0 n0053 00 6503 0399 anc + 1 + 1 symbolic op table + 1 + 0 1650seq + 0 61 7366 4806 alf + 0 61 7376 0150 alo + 0 61 7473 0170 aml + 0 61 7563 8920 anc + 0 61 8477 0100 aup + 0 61 8761 0500 axa + 0 61 8762 0520 axb + 0 61 8763 0580 axc + 0 62 6476 0900 bdo + 0 62 6490 0900 bd0 now ok + 0 62 6491 0910 bd1 + 0 62 6492 0920 bd2 + 0 62 6493 0930 bd3 + 0 62 6494 0940 bd4 + 0 62 6495 0950 bd5 + 0 62 6496 0960 bd6 + 0 62 6497 0970 bd7 + 0 62 6498 0980 bd8 + 0 62 6499 0990 bd9 + 0 62 6975 0260 bin + 0 62 7361 4802 bla + 0 62 7379 4801 blr + 0 62 7461 0410 bma + 0 62 7462 0430 bmb + 0 62 7463 0490 bmc + 0 62 7469 0460 bmi + 0 62 7677 4814 bop + 0 62 7685 0470 bov + 0 62 8283 0570 bst + 0 64 6985 0140 div + 0 64 7361 4815 dla + 0 64 8579 0640 dvr + 0 65 7384 8643 elu + 0 65 7884 4804 equ + 0 66 6164 0320 fad + 0 66 6174 0370 fam + 0 66 6485 0340 fdv + 0 66 7477 0390 fmp + 0 66 8262 0330 fsb + 0 66 8274 0380 fsm + 0 68 6564 4808 hed + 0 68 7383 0010 hlt + 0 73 6464 0690 ldd + 0 73 6469 0090 ldi + 0 73 6962 0080 lib + 0 74 7788 0190 mpy + 0 75 6163 8565 nac + 0 75 6566 0540 nef + 0 1700seq + 0 75 6584 8642 neu + 0 75 7677 0000 nop + 0 75 8382 0250 nts + 0 75 8961 0400 nza + 0 75 8962 0420 nzb + 0 75 8963 0480 nzc + 0 75 8965 0450 nze + 0 75 8984 0440 nzu + 0 77 6183 4807 pat + 0 77 6368 0710 pch + 0 77 8283 4812 pst + 0 79 6161 0800 raa + 0 79 6162 0820 rab + 0 79 6163 0880 rac + 0 79 6173 0650 ral + 0 79 6174 0670 ram + 0 79 6184 0600 rau + 0 79 6279 4811 rbr + 0 79 6364 0700 rcd + 0 79 6391 0720 rc1 + 0 79 6392 0750 rc2 + 0 79 6393 0780 rc3 + 0 79 6479 4813 rdr + 0 79 6482 0860 rds + 0 79 6491 0700 rd1 + 0 79 6492 0730 rd2 + 0 79 6493 0760 rd3 + 0 79 6567 4803 reg + 0 79 6573 4809 rel + 0 79 6578 4810 req + 0 79 7788 0790 rpy + 0 79 8261 0810 rsa + 0 79 8262 0830 rsb + 0 79 8263 0890 rsc + 0 79 8273 0660 rsl + 0 79 8274 0680 rsm + 0 79 8279 0120 rsr + 0 79 8284 0610 rsu + 0 79 8361 0050 rta + 0 79 8363 0030 rtc + 0 79 8375 0040 rtn + 0 79 8382 8205 rts + 0 79 8664 0550 rwd + 0 82 6383 0360 sct + 0 82 6461 0220 sda + 0 82 6482 0850 sds + 0 82 6578 4816 seq + 0 82 6583 0270 set + 0 1750seq + 0 82 6674 5019 sfm + 0 82 6961 0230 sia + 0 82 6962 0280 sib + 0 82 7376 0160 slo + 0 82 7383 0350 slt + 0 82 7473 0180 sml + 0 82 7782 5630 sps + 0 82 7964 0310 srd + 0 82 7983 0300 srt + 0 82 8364 0240 std + 0 82 8369 0290 sti + 0 82 8373 0200 stl + 0 82 8384 0210 stu + 0 82 8477 0110 sup + 0 82 8761 0510 sxa + 0 82 8762 0530 sxb + 0 82 8763 0590 sxc + 0 82 8875 4805 syn + 0 83 6177 4817 tap + 0 83 7365 0630 tle + 0 83 7384 0840 tlu + 0 83 8876 7879 tyo + 0 84 6661 0020 ufa + 0 86 6482 0870 wds + 0 86 7991 0710 wr1 + 0 86 7992 0740 wr2 + 0 86 7993 0770 wr3 + 0 86 8361 0070 wta + 0 86 8374 0560 wtm + 0 86 8375 0060 wtn + 0 86 8382 5307 wts + 0 87 6679 4818 xfr + 0 95 6364 4819 5cd + 0 00 0000 0000 + 0 00 0000 0000 + 0 00 0000 0000 + 0 99 9999 9999 table end + 0 seq + 1 + 1 control program + 1 + 0 1000lddreadc sub16 entry + 1 + 0 readcrcd 1999 1998 read card + 0 1998rau 1951 transfer + 0 stdp0001 alphabetic + 0 stlindxi + 0 ldd 1952 input + 0 stdp0002 to + 0 ldd 1953 output + 0 stdp0003 + 0 ldd 1954 + 0 stdp0004 + 0 ldd 1955 + 0 stdp0005 + 0 ldd 1956 + 0 stdp0006 count + 0 countralp0009 step + 0 alo1ixxx card + 0 stlp0009 number + 0 rau 1960 + 0 stltyp3a zro testwd + 0 srt 0002 store + 0 slo 8002 control + 0 stdp0010 info + 0 alo 8003 + 0 auptrans + 0 stup0008 intox + 0 intoxalotorg 8002 transfer + 0 8002nop 0999 9999 to type + 0 intoxalotorgp first or multi + 0 intoxalotorgp test pass cntrl + 1 + 0 torg 00 0000 t0001 + 1 + 0 torgp 00 0000 o0001 constants + 1 + 1 + 1 punch routine + 1 + 0 hed+ + 0 punchraltyp3a test typ3 + 0 nze h8pre + 0 raup0010 add contrl + 0 aup86tha preh8 8 to p0010 + 0 h8preraup0010 preh8 + 0 preh8lddset5 h8sub + 3 set5 ralpchex lit 1/cd exit + 3 set5 nzepexit 5/cd 5/cd entry + 3 set5 lddbrnch rstor a typ3 lit + 0 5/cd bov + 0 raup0010 test neg + 0 slt 0001 instrcyn + 0 auph8xxx + 0 bovneg + 0 ramp0007 posit positive + 0 neg rsmp0007 posit negative + 3 positstl+0006 *0001 stor inst + 0 *0001ralp0008 + 0 ldd 8003 loc + 3 loc sda-0005 *0002 stor loc + 0 *0002rauposit + 0 sup+max test pch + 0 nzu 5cd + 0 aup+amp1 + up store + 0 + stuposit instrctns + 0 auplocm + 0 stuloc pexit + 1 + 0 5cd rau-0003 + 0 srt 0002 set 5/cd + 0 alo-0005 locations + 0 srt 0004 in words + 0 alo-0004 7-8 of + 0 stl+0008 output cd + 0 slt 0002 + 0 aup-0002 + 0 srt 0004 + 0 aup-0001 + 0 slt 0002 + 0 stu+0007 + 0 pch+0001 pch 5/cd + 0 ram+0001 up card + 0 alo1ixxx number + 0 stl+0001 + 0 raurset + + 1 + 0 pexitralpchex lit test litrl + 0 lit nzetryit symbl no + 0 rauitagw hld5c + '+u + 3 hld5cnzuitag readc + 3 hld5cnzuitag tsful + 0 tsfullddtrans test full + 0 bd2 readc symbl tabl + 0 lddpexit + 0 stdset5 suspend + 0 lddrsltt 5/cd punch + 0 stdhld5c readc + 0 rslttnzuitag tsful + 0 itag stlwhere + 0 bmisecnd hirst + 0 secndlddsaved + 0 stdopreg + 0 stlitagw pexit + 0 hirstrsu 8003 + 0 stuitagw + 0 raup0007 + 0 slt 0002 + 0 ral 8003 + 0 srt 0006 + 0 stlsaved + 0 ramitagw + 0 slt 0002 + 0 aml 8001 + 0 slt 0003 + 0 aupnzsym + 0 stu 1954 + 0 rau 1953 + 0 std 1952 + 0 stl 1951 + 0 ldd subr4 + 0 00 0000 /0001 + 0 /0001ldd 1959 set58 + 0 set58std 1958 1998 + 0 /0002ldd 1959 set58 + 0 /0003nop 0000 1998 + 0 /0101nop 0000 1998 + 0 tryitrauitagw + 0 nzu litc + 0 bmisecnd + 0 lddp0007 + 0 stdabsol + 0 lddp0002 + 0 stdlitsm + 0 stdwhere hirst + 1 + 0 litc rauwhere + 0 stlp0002 + 0 nzumoved + 0 ral 1952 ornry + 0 movedlddabsol trsfr data + 0 stdp0007 to normal + 0 rallitsm area + 0 stuwhere ornry + 0 ornrysrt 0006 test neg m + 0 sloalfm + 0 nzeh8x + 0 ralh88 st88 + 0 h8x ralh8xxx st88 + 0 st88 aupddrmt drum paked + 0 nzu stlit + 0 alo87nth stlit + 0 stlitstlp0010 + 0 ralp0009 + 0 alo1ixxx + 0 stlp0009 + 0 stup0001 + 0 ralp0007 + 0 lddtran1 + 0 sdap0008 + 0 raup0005 + 0 ldd compr + 0 raup0006 + 0 lddstp7 + 0 stdxxxx2 sct + 0 stp7 stupchex + 0 stdp0003 + 0 lddltalf + 0 stdp0004 + rauset5 are we in + supbrnch 5cd mode + nzupunch + lddrset5 + stdset5 punch + rset5lddbrnch rstor + rstorstdset5 5/cd + 0 +max stl+0006 *0001 + 0 +amp1stl+0007 *0001 + 0 locm 02 0959 0001 + 0 loc hlt 0000 loc + 0 symflnzuitag readc + 0 h88 88 0000 0000 + 0 alfm alf m soap2 + 0 ltalfalflit soap2 + 0 tran1 09 0000 9991 + 0 nzsym 75 8960 6000 + 1 convert double digit numeric + 1 word to single digit form + 0 comprstdxxxx2 + 0 stlp0007 sct + 0 sct sct 0000 ckzer + 0 ckzernzu xxxx2 + 0 slt 0001 + 0 ral 8003 + 0 aupp0007 + 0 slt 0001 + 0 stup0007 + 0 rau 8002 ckzer + 0 hed + 1 + 0 setccraureadc sub10 sudo exit + 1 + 0 1800lddreadc sub22 manual pst + 1 + 0 1900lddreadc sub14 manual pat + 1 + 0 t0004stdtyp3a t0001 set testwd + 0 t0001ldd subr3 type 0 + 0 ldd procl 650 + 0 ldd procd command or + 0 lddpunch proci constants + 1 + 1 + 0 t0002rau 1954 + 0 supltalf + 0 nzusetcc cdnod + 0 cdnodralp0009 + 0 slo1ixxx + 0 stlp0009 readc + 1 + 1 + 1 multipass control section + 1 + 0 test ral 8002 if zero + 0 slt 0003 enter + 0 nzu 8001 multipass + 0 lddhhold restore + 0 std0000h card numbr + 0 lddnhold and + 0 stdp0009 heading + 0 ral 8000 pst if + 0 bmi zero 8000 is + 0 lddzero sub22 minus + 1 + 0 zero ldd1998x sub16 zero sym t + 1 + 0 firstldd8d888 alter + 0 stdtrans control + 0 lddintop for cards + 0 stdintox test 2 thru x + 1 + 0 o0002raureadc sub10 comments + 0 o0003nop 0000 o0005 relocate + 0 o0004stdtyp3a o0001 set testwd + 0 o0001ral 1954 type 0 + 0 sloc0041 test hed + 0 slt 0006 + 0 nzu 0808 + 0 rau 1951 + 0 aloo5 look + 0 o0005rau 1952 control + 0 aloo6 look exits for + 0 o0006rau 1953 examining + 0 aloo7 look loc data + 0 o0007ralp0010 and inst + 0 stutyp3a zro testwd + 0 alo8and8 addresses + 0 stlp0010 punch + 0 look nzu 8001 blank + 0 stdexitx + 0 lddo11 + 0 sdao11 + 0 rau 8003 + 0 lddo8 subr4 + 0 o0008nop 0000 exitx + 0 o0009nop 0000 exitx regional + 0 o0010lddo11 subr6 symbolic + 0 o010 lddo11 subr6 + 0 o0012nop 0000 exitx undefined + 0 o0011ralequiv defined or + 0 slt 0004 previously + 0 aupexitx establishd + 0 aup8ixxx + 0 lddp0007 8003 + 0 o0013lddp0008 cause drum + 0 sdap0008 equivalent + 0 rsl3000i fix to be pchd + 0 o0014sdap0007 as l d or + 0 rsl0200i fix i and 5 6 + 0 o001 srt 0004 or 7 to be + 0 siap0007 punched + 0 rsl0010i fix accordngly + 0 fix alop0008 + 0 stlp0008 exitx + 1 + 0 8d888 08 0000 8880 + 0 intopalotorgp test + 0 1998xnop 0800 1998 + 0 o5 nop 0008 o0005 constants + 0 o6 nop 0089 o0006 + 0 o7 nop 0099 o0007 + 0 8and8 00 8008 0000 + 0 o8 nop 0000 o0008 + 0 o11 nop 0000 o0011 eraseable + 1 + 1 relocate routine + 1 + 0 hedt + 0 t0003ldd subr3 process op + 0 ral 1951 is l fixed + 0 slt 0002 + 0 nzu rel + 0 rau 1957 fixed l + 0 sup4000i drum core + 0 bmi fc + 0 aup 8001 res fixed drum + 0 fc ral 1957 setl + '+u + 0 sr ral 1951 setl + 0 setl slt 0004 + 0 lddp0008 + 0 sdap0008 prod + 0 rel rau 1957 drum core + 0 sup4000i + 0 bmi rc + 0 aupddiff relocate + 0 bmi bl drum addr + 0 aup4000i res + 0 res stu 1951 + 0 stlw 2 + 0 lddsr subr2 + 0 rc ral 1957 relocate + 0 alocdiff core + 0 slo9060 + 0 bmi bl + 0 alo 8001 setl + 0 bl rauprod sub12 bl4nk l + 1 + 0 regj0944 0944 d type 2 + 0 regg0941 0941 + 1 + 0 prod lddproi set d exit + 0 stdexitx + 0 rau 1952 what is d + 0 lddh subr4 + 0 h0001ral 1958 relocate + 0 slo4000i d 0r c + 0 bmi 1564 1563 + 0 h0002srt 0008 c d or f + 0 aup1500 8003 + 0 1563ralcdiff cdd c + 0 1564ralddiff cdd d + 0 1566ral 1958 j0001 f + 0 cdd alo 1958 j0001 + 0 h0003nop 0000 g0003 symbolic + 0 h0101nop 0000 g0101 + 1 + 0 regj0960 0960 i + 0 regf0955 0955 + 1 + 0 proi lddpunch set i exit + 0 stdexitx + 0 rau 1953 what is i + 0 lddm subr4 + 0 m0001ral 1959 relocate + 0 slo4000i d or c + 0 bmi 1568 1567 + 0 m0002srt 0008 c d or f + 0 aup1504 8003 + 0 1567ralcdiff cdi c + 0 1568ralddiff cdi d + 0 1570ral 1959 j0001 f + 0 cdi alo 1959 j0001 + 0 m0003nop 0000 f0003 symbolic + 0 m0101nop 0000 f0101 + 1 + 0 9060 00 0000 9060 + 0 h 00 0000 h0001 + 0 1500 00 0000 1500 + 0 m 00 0000 m0001 + 0 1504 00 0000 1504 + 0 xxxx1 01 0000 xxxx1 eraseable + 0 hed + 1 + 1 bop routine + 1 + 0 0814lddsetcc sub16 + 1 + 1 blr routine + 1 + 0 0801ral 1959 blr + 0 blr lddzeroo blr1 + 0 zeroo 00 0000 0000 + 0 blr1 stdw 2 + 0 slo 1958 + 0 aup 8001 + 0 sup4000i + 0 bmi setcc + 0 aup 8001 + 0 lddsetcc subr2 + 1 + 1 rbr routine + 1 + 0 0811rauddiff + 0 alo 1959 blr + 1 + 1 dla routine + 1 + 0 0815lddits50 dla + 0 std1or50 routine + 0 ldd24 + 0 std56 2 modfy + 0 ldd35 subr2 + 0 std78 2 + 0 lddtpr 2 + 0 stdeithr + 0 lddpreex + 0 stdsetcc 0802 + 0 preexldd13 + 0 std56 2 reset + 0 ldd08 exits + 0 std78 2 + 0 ldd964 + 0 stdeithr + 0 lddslo11 + 0 std1or50 + 0 lddpcha + 0 stdsetcc 8001 + 0 its50slo50xxx next2 + 0 24 rausa 2 su 2 + 0 35 rausa 2 + 0 aup1dxxx su 2 + 0 08 rausa 2 178 2 + 0 964 rausa 2 eith2 + 0 slo11slo1ixxx next2 + 0 pcha raureadc sub10 + 0 13 rausa 2 sz 2 + 1 + 1 bla routine + 1 + 0 0802ral 1959 + 0 studrumt + 0 stdddrmt + 0 ldd(0010 blr1 + 1 + 1 reg routine + 1 + 0 hedr + 0 0803rau 1952 + 0 ldd stor9 + 0 alost + 0 aup 1958 + 0 auph9xxx 8002 add def 9 + 0 8002stu 9999 0801 + 0 st stu 1650 0801 store reg + 0 hed + 1 + 1 equ req and syn routine + 1 + 0 hedz + 0 eque 1958 + 0 0804lddh8xxx both + 0 0805lddh9xxx both + 0 both stdtag + 0 rau 1953 what is 1 + 0 lddz subr4 + 0 z0001ral 1959 y0001 absolute + 0 z0002aloy subr9 + 0 y0001stle + 0 std 1959 td + 0 y0002ralp0010 bp reg error + 0 z0003lddw subr6 symbolic + 0 z0101lddw subr6 + 0 w0001ralequiv y0001 s defined + 0 w0002ralp0010 bp s undefind + 1 + 0 td rau 1952 head d + 0 ldd sub15 and equate + 0 lddv subr6 to e + 0 v0001aloe sd + 0 v0002aloe symb und + 0 stlxxxx1 + 0 ral 1952 test lit + 0 slt 0002 symbol + 0 nzuok + 0 stlpchex set testw + 0 rale set l + 0 lddp0007 + 0 slt 0004 + 0 sdap0007 + 0 ldd1 + 0 stdreadc ok set return + 0 ok ralxxxx1 + 0 aups 6 sd + 0 1 lddrdcd* go to + 0 stdreadc pexit pch lit + 0 sd lddtt subr7 + 0 rdcd*rcd 1999 1998 + 1 + 0 tt lddtag test tag + 0 bdosetcc 0801 + 1 + 0 0810lddh8xxx + 0 stdtag routine + 0 ral 1959 is i + 0 slo4000i drum 0 cor + 0 bmid + 0 alocdiff cd + 0 d aloddiff cd + 0 cd alo4000i y0001 + 1 + 0 bp alo88 by pass + 0 stlp0010 setcc + 1 + 0 z 00 0000 z0001 constants + 0 y nop 1959 y0001 + 0 w 00 0099 w0001 + 0 v 00 0089 v0001 + 0 88 00 8000 0000 + 1 + 0 tag 01 0000 tag eraseable + 0 hed + 1 + 1 alf routine + 1 + 0 0806ldd procl + 0 ldd 1952 + 0 stdp0007 + 0 ral 1953 + 0 nzepunch + 0 lddsoap2 by + 0 stdp0003 punch soap2 + 1 + 0 soap2alfsoap2 so4p2 constant + 1 + 1 pat routine + 1 + 0 hedp + 0 sub14stdexitx store exir + 0 raua1 set for + 0 alors1 1st hal + 0 ldd avtb + 0 raua2 set for + 0 alors2 2nd half + 0 lddexitx avtb of drum + 0 avtb stdexit store exit + 0 ldd85th set punch + 0 stdp0010 8 + 0 stuxxxx1 + 0 aup35d + 0 stubdmax + 0 aup450d + 0 stuamax + 0 aup15d + 0 stuamp5 + 0 sup 8003 loop + 0 loop aupc1 8001 + 0 8001stl 9999 next set locat + 0 next suptw1 + 0 nzu srs + 0 aupc2 + 0 aloc3 8003 + 0 srs stlxxxx2 save rs + 0 rauc4 + 0 aloxxxx1 8002 + 0 8002ldd 9998 8003 + 0 8003std 9997 tp + 0 tp suptw2 + 0 nzu pun + 0 aupc5 + 0 alo1dxxx 8002 + 0 pun pchp0001 + 0 ram 8002 + 0 slobdmax + 0 nze tsten + 0 alo 8001 + 0 alo5dxxx stlxx + 0 tstenalo 8001 + 0 sloamax + 0 nze exit + 0 aloamp5 + 0 aupbdmax + 0 aup50d 2 + 0 stubdmax stlxx + 0 stlxxstlxxxx1 + 0 ralxxxx2 + 0 sloc7 loop + 1 + 0 a1 ldd 0000 8003 + 0 a2 ldd 0004 8003 + 0 rs1 00 0000 0450 + 0 rs2 00 2000 2450 + 0 zp1 stup0001 nxt + 0 zp9 stup0009 nxt + 0 zp10 stup0010 nxt + 0 c1 stlp0001 next + 0 c2 stlp0009 next + 0 c3 00 0500 0500 + 0 c4 stdp0002 tp + 0 c5 stdp0010 tp + 0 c7 00 1499 1499 + 0 tw1 stlp0007 next + 0 tw2 stdp0008 tp + 0 35d 00 0035 0000 + 0 450d 00 0450 0000 + 0 15d 00 0015 0000 + 0 5dxxx 00 0005 0000 + 0 85th 00 0080 0000 + 0 hed + 1 rdr routine + 1 + 0 0813rau 8002 zero 80023 + 0 lddsetcc unrav + 0 unravstdzzzz1 store exit + 0 stuxxxx1 + 0 aloi2 incrm get start + 0 incrmstlzzzz2 store k + 0 ldd subr1 to avail + 0 ralzzzz2 + 0 sloi99 are we + 0 nze zzzz1 done + 0 alo 8001 + 0 alo astrk + 0 00 0050 0050 + 0 astrkaupxxxx1 incrm + 0 i99 00 0450 0489 + 0 i2 00 0000 0039 + 1 + 1 + 1 tap routine + 1 + 0 hed) + 0817lddtran1 comments + stdp0008 + raubb817 + aloh8xxx sub10 + 0 bb817rau set test 1st + 0 ral 1951 tap rcd vs + 0 slo 9050 card + 0 nzepass init no yes + 0 setblset 9050 trsfr tape + 0 sib 1951 1998 to cd area + 0 set set 9050 read tape + 0 rtn 8012 nts + 0 nts nts 8001 + 0 nef exit + 0 nze halt + 0 slt 0001 reread + 0 bst 8012 set routine + 0 halt hlt 0000 9999 + 0 init lddcopy found + 0 stdreadc routine + 0 lddrwind set to + 0 stdexit setbl process + 0 rwindrwd 8012 finished + 0 lddentr routine + 0 stdexit 1 z + 0 pass rau 8001 bypass + 0 rtc 8012 nts routine + 0 copy ralsetbl set + 0 entr nop 0000 bb817 + 0 exit nop 0000 bb817 + 0 hed + 1 + 1 pst routine + 1 + 0 0812rau 1800 sub10 + 1 + 1 hed routine + 1 + 0 0808ral 1952 + 0 srt 0008 heading + 0 stl0000h setcc character + 1 + 0 0000h 01 0000 0000h eraseable + 1 + 1 rel routine + 1 + 0 hedm + 0 0809ral 1952 + 0 nze sdd drum + 0 ral 1958 sdd and + 0 sdd stlddiff core + 0 ral 1953 deltas + 0 nze scd + 0 ral 1959 scd + 0 scd stlcdiff setcc + 1 + 0 ddiff 01 0000 ddiff eraseable + 0 cdiff 01 0000 cdiff + 0 hed + 1 + 1 seq routine + 1 + 0 0816rau 1951 + 0 nzu s9h + 0 alo 1957 stll + 0 s9h rsl 1954 stll + 0 stll stlseqll + 0 rau 1952 + 0 nzu s9i + 0 alo 1958 stld + 0 s9i rsl 1954 stld + 0 stld stlseqdd + 0 rau 1953 + 0 nzu s9j + 0 ral 1959 + 0 slo9000 + 0 bmi cseqi + 0 alo 8001 tuvwx + 0 tuvwxlddh8xxx s9k + 0 s9k stdtcori + 0 stlseqii + 0 rau 1960 + 0 srt 0001 + 0 sup 8003 + 0 nzenegsq + 0 ram1ixxx stiix + 0 negsqrsm1ixxx stiix + 0 stiixstlctrsq setcc + 0 s9j rsl 1954 tuvwx + 0 cseqialo 8001 + 0 lddh9xxx s9k + 0 9000 00 0000 9000 + 1 + 1 transfer card routine + 1 + 0 hed* + 0 0818rau sub10 xfr + 0 rau 1952 test + 0 nzu y blank trsf + 0 stlp0007 + 0 ldd procd get start + 0 ralretn z address + 0 y raltw z + 0 z aupposit must we + 0 sup+min pch lastcd + 0 nzu 8002 no + 0 stlreadc 5cd + yes + 0 retn rsm+0001 set id wd + 0 stl+0001 negative + 0 ralp0007 + 0 srt 0004 stor start + 0 stl+0002 address + 0 rali6 zero + 0 ldd subr1 wds3-8 + 0 pch+0001 + 0 ram+0001 + 0 alo1ixxx + 0 stl+0001 tw + 0 tw lddrdcd + 0 stdreadc 8001 rset exit + 0 i6 00+0003 +0008 + 0 +min stl+0002 *0001 + 1 + 1 5cd routine + 1 + 0 0819rau sub10 5/cd punch + 0 rau 1952 insert id + 0 nzu * if any + 0 ral 1958 + 0 slt 0004 * + 0 * aup 1953 and set cd + 0 nzu skp no+ strt + 0 alo 1959 sia + 0 skp alo1ixxx sia + 0 sia ldd+0001 + 0 sdazzzz1 + 0 sia+0001 + 0 raubrnch + 0 stdset5+ 8001 + 0 brnchnzepexit 5/cd+ + 1 + 0 0807rau 1900 sub10 + 1 sub 22 punch symbols and equvs + 1 + 0 heds + 0 sub22stdexitx set exit + 0 raup0009 save card + 0 stdxxxx1 numbering + 0 stlp0001 blank out + 0 stdp0005 locn and + 0 stdp0006 comments + 0 stdp0009 and number + 0 ldd9d999 set nines + 0 stdp0008 for pching + 0 lddc0034 store equ + 0 siap0004 as pseudop + 0 rala see + 0 see sloterm exit when + 0 nze endst finished + 0 alomore increment + 0 stlxxxx2 8001 st locatn + 0 8001aup 2000 test + 0 test nzu see + 0 sup 8003 + 0 stdp0002 if symbol + 0 stup0010 is in tabl + 0 ldd subr8 get equiv + 0 rauequiv enter + 0 aup1dxxx loop loop to + 0 loop srt 0001 convert + 0 sup 8003 numeric + 0 srt 0001 equivalent + 0 aup 8001 to alpha + 0 nzuloop form + 0 aloy store it + 0 stlp0003 for punch + 0 rau sub10 punch a + 0 ralxxxx2 see + 1 + 0 endstlddxxxx1 restore + 0 stdp0009 exitx card numbr + 1 + 0 a aups0000 test constants + 0 term aups1100 test + 0 more aups1101 test + 0 y 99 9090 9090 + 0 hed + 1 + 1 sub 16 initialization + 1 + 0 sub16stdalpha + 0 bd7 init + 0 lddpchwd part reset pch + 0 init ralrset+ + 0 stdposit 5/cd pch + 0 alolocm+ + 0 stlloc + + 0 raui3 + 0 stlp0009 zero numb + 0 std0000h zero hed + 0 ldd unrav make drum + 0 rsu 8001 available + 0 stuseqll + 0 stdseqdd + 0 stdseqii + 0 ldd87nth + 0 stdopreg + 0 rali5 + 0 studrumt + '+u + 0 stdddrmt + 0 stditagw + 0 auph8xxx undefine + 0 stdtcori + 0 std. undefine + 0 std$ special + 0 std, character + 0 std= + 0 std) + 0 std* + 0 std( + 0 std' + 0 std+ + 0 std- + 0 std/ + 0 ldd subr1 + 0 lddpexit + 0 stdpchwd part + 0 part stdset5+ + 0 lddsymfl + 0 stdhld5c + 0 ldd1198i restore + 0 stdsymct sym count + 0 rali1 zero out + 0 stupchex + 0 ldd subr1 symbol tab + 0 ldd9d999 set con + 0 stdtrans trols for + 0 lddintoa assembly + 0 stdintox alpha + 1 + 0 i1 00s0001 s1100 + 0 i3 11 1111 1111 + 0 i5 00 1621 1649 + 0 9d999 09 0000 9990 + 0 intoaalotorg 8002 + 0 rset+stl+0002 *0001 + 0 +0001hlt 0000 9999 + 0 1198i 00 0000 0998 + 1 + 0 hed + 1 + 1 sub 1 store k in fwa to lwa + 1 + 0 hed1 + 0 subr1stdexitx store exit + 0 stuxxxx1 store k + 0 lddfwa set + 0 sdafwa fwa + 0 slt 0004 lwa + 0 sdaxxxx2 addresses + 0 raufwa + 0 aloxxxx1 8003 + 0 8003stl 9999 next store k + 0 next supxxxx2 end of + 0 nzu exitx loop test + 0 aup 8001 aup1d + 0 aup1daup1dxxx 8003 + 1 + 0 fwa stl 9998 next constants + 0 hed + 1 + 1 load availability table subr + 1 + 0 1999ral 1951 calculate + 0 srt 0004 location + 0 rau 8002 in avail + 0 srt 0003 table + 0 aup 8003 + 0 stuadd + 0 sup 8001 + 0 srt 0007 + 0 ldd gda11 + 0 slt 0001 + 0 aupadd + 0 srt 0006 + 0 aloc1 + 0 aupc3 8003 + 0 8003ldd 9995 8002 + 0 8002std 9994 tup + 0 tup suptw + 0 nzu readc + 0 auptwp2 + 0 alo1dxxx 8003 + 0 tw ldd 1958 8002 + 0 twp2 ldd 1960 8002 + 1 + 0 50xxx 00 0000 0050 + 0 90xxx 00 0000 0090 + 0 0200i 00 0000 0200 + 0 3000i 00 0000 3000 + 0 4000i 00 0000 4000 + 0 1dxxx 00 0001 0000 + 0 2dxxx 00 0002 0000 + 0 h8xxx 80 0000 0000 + 0 h9xxx 90 0000 0000 + 0 3999i 00 0000 3999 + 0 32dxx 00 0032 0000 + 0 3dxxx 00 0003 0000 + 0 11ixx 00 0000 0011 + 0 2ixxx 00 0000 0002 + 0 4ixxx 00 0000 0004 + 0 8ixxx 00 0000 0008 + 0- 0040 99 9999 9999 table end + 0- 0090 99 9999 9999 for + 0- 0140 99 9999 9999 avail + 0- 0190 99 9999 9999 tbl + 0- 0240 99 9999 9999 + 0- 0290 99 9999 9999 + 0- 0340 99 9999 9999 + 0- 0390 99 9999 9999 + 0- 0440 99 9999 9999 + 0- 0490 99 9999 9999 + 1 + 0 c1 std 0000 tup constants + 0 c3 ldd 1952 8002 + 1 ii00 00 0000 1600 + 0 pat + 0 pst diff --git a/I650/sw/soaplib.tap b/I650/sw/soaplib.tap new file mode 100644 index 0000000000000000000000000000000000000000..672a4f08cefc3d16f4cc7abe01049d8685f99706 GIT binary patch literal 1096 zcmcJNTMmRE3`Jd1<O|Upgg9fwg@ie8O?v=TOGMVP)>$GoVpEPi_GiZdoy_nAPqdDilX2{8m1yPvpiMD cSLJH%+d9_ROfI~!jtACl9WS$<*3q>50`le3G5`Po literal 0 HcmV?d00001 diff --git a/I650/sw/supersoap/00_readme.txt b/I650/sw/supersoap/00_readme.txt new file mode 100644 index 000000000..08a3c2f2d --- /dev/null +++ b/I650/sw/supersoap/00_readme.txt @@ -0,0 +1,695 @@ + +Restoration comments May/2020 +By Roberto Sancho + +SuperSoap +From Computer History Museum archive +SuperSoap manual: 102784983-05-01-acc.pdf and +SuperSoap Listing: 102784987-05-01-acc.pdf + +After OCR'ing the listing (ssoap.txt), we generates two 1-word format decks +using the assembler output for lines 1 to 1553 (locafier 3800-33). This is +the main program that executes from drum (address 0000-1999) This deck allows +to assemble a supersoap source prog that does not uses fancy pseudo-ops, and +will be called ssoap_main.dck deck + +To allow main deck to run standalone, the FIL pseudo op must be manually +expanded to its values + +with supersoap listing, lines 1554 up to the end another 1-word card is +generated. These deck contains pseudo ops that are executed in core mem when +loaded from ramac under the control of main deck. This deck will be +called ssoap_core.dck deck. + +To build supersoap in ramac, a loader routine is necessary. There is one in +manual (p52-p53), but should be adapted to be assembled by ssoap main deck. +Then a build program should be developed from scratch. This program is +build_ssoap_ramac_src.txt and reads + - load routine 1-word assembled deck + - ssoap_main 1-word format deck + - ssoap_core 1-word format deck +And saves it into ramac disc at proper place + - load routine: at disk 38, track 00, words 00-40 (out of 60 available + in track) + - ssoap_main 1-word format deck (words 41-60 at track 00 disk 38, up to + track 33 in disk 38) + - ssoap_core 1-word format deck (tracks 34 up to 66. the cdd pseudo op + indicates the track where the routine + should be stored) + +Now supersoap is available in ramac, all the pseudo-ops can be used. + +On testing supersoap, some bugs should be fixed: + + + 3196 SDS 9000 9001 +85 9000 9017 + RSB 1 9017 +83 0001 9003 + 3197 STL 9000 9002 +20 9000 9003 + + should be + + 3196 SDS 9000 9001 +85 9000 9017 + RSB 1 9017 +83 0001 9002 + 3197 STL 9000 9002 +20 9000 9003 + + this bug was preventing PLR to work + + + 2577 9001 RAB 49 1F 9001 +82 0049 9001 + should be + 2577F 9000 RAB 49 1F 9000 +82 0049 9001 + + this bug was preventing DEK to work. + + +Also, supersoap relies on some cpu opcode features that are not well +documented in ibm manuals. These features should be implemented in order to +make supersoap to work properly + + RDS/WDS sets IAS to 0 (not stated in ramac manual) + index arithmetic sets distributor only when DA >= 8000 (not stated in + cpu extension manual) + +Now it is possible to create from ssoap.txt supersoap OCR'd listing a source +deck ssoap_example_src.txt + +Some changes should be applied: + - apply supersoap fixes for PLR and DEK + - remove fil output + - remove pal output + - comment line 8 (pseudo op hmo) as this will not be a hand optimized + source code + +Now it is possible to assemble ssoap_example_src.txt with supersoap. +Note that the assembling does not generates same address as in ssoap.txt listing +because it is not hand optimized + +=============== + +Annotated execution of supersoap processing (assembling) the card + + 1221rau aa + end +Produces this output + + 1221 RAU AA 1221 60 0024 0029 + END + + +8001: 70 RD1 1999 1998 + ... Read Card Unit CDR1 1221rau aa + ... Read Card 1951: 0091929291+ ' 1221' location + ... Read Card 1952: 0000000000+ ' ' DA + ... Read Card 1953: 6161000000+ 'AA ' IA + ... Read Card 1954: 7961840000+ 'RAU ' op.co.de.TD.TI TD=tag DA, TI=tag TI + ... Read Card 1955: 0000000000+ ' ' + ... Read Card 1956: 0000000000+ ' ' + ... Read Card 1957: 0000001221+ ' ~~' + ... Read Card 1958: 0000009999+ ' 99' + ... Read Card 1959: 0000009999+ ' 99' + ... Read Card 1960: 0000908000+ ' 0~ ' control word: T000908000+, T=card type + +1998: 60 RAU 1960 0015 symb: start rau 1960 0127-start of processing the read card +0085: 20 STL 0046 0249 symb: 1 stl 533tl 0129-set 533tl=0 +0249: 30 SRT 0009 0055 symb: srt 9 0130-AccUp=card type (=0) +0055: 80 RAA 8003 0077 symb: raa 8003 0131-set IRA=Card Type=0 +0077: 51 SXA 0005 0084 symb: sxa 5 0132- +0084: 41 BMA 2005 0000 symb: bma 5 a 0 0133-depending on card type jmp to addr 0,1,2,3,4 (5..9 jmp to 0) + + init processing type 0 card + +0000: 60 RAU 1954 0009 symb: 0 rau 1954 1f 0134-AccUp=opcode 'RAU', OV=0 +0009: 80 RAA 0000 0014 symb: 1 raa 0 0141-Set IRA=0 + + process Tag for DA and IA + +0014: 82 RAB 0001 0019 symb: rab 1 0f 0142-Set IRB=1 -> process IA tag +0019: 30 SRT 0002 0075 symb: 0 srt 2 0143-AccLo=TI 0000 0000 -> tag IA, Now ACC: 0079618400 0000000000+, OV: 0 (00.RR.AA.UU.TD TI 0000 0000) +0075: 11 SUP 8003 0083 symb: sup 8003 0144-clear AccUp +0083: 45 NZE 0086 0237 symb: nze 9f 0145-jmp to 237 if NO tag, continue if tag +0237: 10 AUP 8001 0095 symb: 9 aup 8001 4f 0156-Load again AccUp=00.op.co.de.TD, Now ACC: 0079618400 0000000000+, OV: 0 +0095: 69 LDD 0248 0051 symb: 4 lod ldi41 3f 0158-DIST=load code in IAS, jmp to 9006 +0051: 23 SIA 4307 0061 symb: 3 sia dtaggb 0162-store in dtagg+IRB=0307+0001 the tag processed (Write 0308: 090780 0000+) tag is 4 last digits +0061: 42 NZB 0114 0065 symb: nzb 1f 0163-jmp to 1f if IA&DA tags processed (for now, continue as IRB=1) +0114: 53 SXB 0001 0019 symb: sxb 1 0b 0164-dec IRB, Now IRB=0 -> process IA tag + loop again +0019: 30 SRT 0002 0075 symb: 0 srt 2 0143-AccLo=TD 0000 0000 -> tag DA, Now ACC: 0000796184 0000000000+, OV: 0 (00.00.RR.AA.UU TD 0000 0000) +0075: 11 SUP 8003 0083 symb: sup 8003 0144- +0083: 45 NZE 0086 0237 symb: nze 9f 0145- +0237: 10 AUP 8001 0095 symb: 9 aup 8001 4f 0156- +0095: 69 LDD 0248 0051 symb: 4 lod ldi41 3f 0158- +0051: 23 SIA 4307 0061 symb: 3 sia dtaggb 0162-store in dtagg+IRB=0307+0000 the tag processed (Write 0307: 090780 0000+) tag is 4 last digits +0061: 42 NZB 0114 0065 symb: nzb 1f 0163-IRB=0 -> Both Tad in DA&IA processed, continue + + end of tag processing, + search for opcode, get instruction code NN + +0065: 44 NZU 0229 0001 symb: 1 nzu 1 0165-Now AccUp=0000op.co.de. Jmp to 1 if opcode blank. Now ACC: 0000796184 0000000000+, OV: 0 +0229: 30 SRT 0004 0238 symb: srt 4 0166-Now Acc=0..0.op co.de, ACC: 0000000079 6184000000+, OV: 0 (0..0RR AAUU000000) +0238: 44 NZU 0043 0094 symb: nzu 2f 0167-jmp to 2f if first char of opcode is blank (so not a mnemoci) +0043: 30 SRT 0002 0499 symb: srt 2 0168-Now ACC: 0000000000 7961840000+, OV: 0 (0..0 RR.AA.UU.00.00) +0499: 16 SLO 8002 0007 symb: slo 8002 0169-Clear Acc, DIST=Opcode +0007: 24 STD 1711 0197 symb: std otend 0170-Save as sentined at end of search table: Write 1711: 7961840000+ +0197: 63 TLE 1550 0214 symb: tle o0001 0171-Search opcode table + ... Search DIST: 7961840000+ 'RAU ' + ... Found 1610: 7961840000+ 'RAU ' + ... Result ACC: 0000000000 0016100000+, OV: 0 found at address 1610 (DA part of AccLo) +0214: 16 SLO 0017 0071 symb: slo obase 0172-Substract table to get index on table (Acc=1610-1650=00 0040 0000-) +0071: 46 BMI 0227 0225 symb: bmi 3f 0173-jmp to 3f if >=0 -> below 1650 (most of pseudo instr, or not found). RAU is negative +0227: 15 ALO 0393 0548 symb: 3 alo n0052 0182-use index in opcode table to lookup in n0000 optimization table: n0052=00 0100 0588 + (00 0040 0000-) = 00 0060 0588 +0548: 35 SLT 0004 0059 symb: slt 4 machn 0183-set format, jmp to machine instr processing Now ACC: 0000000000 6005880000+, OV: 0 (60=opcode) + + process the opcode intruction code NN get optimization L+NN + +0059: 20 STL 0314 0074 symb: machn stl instr 0184-instr (addr 0314)=NN xxxx xxxx, NN=instr code. Now Write 0314: 6005880000+ +0074: 10 AUP 0188 0245 symb: aup optim 0185-optim = Read 0188: 0000000000+ this is a NXT NNMM card for hand optimization +0245: 44 NZU 0100 0549 symb: nzu 3f 0186-optim=0, continue, Now ACC: 0000000000 6005880000+, OV: 0 +0549: 35 SLT 0002 0105 symb: slt 2 0187-AccUp=instr code, Now ACC: 0000000060 0588000000+, OV: 0 +0105: 88 RAC 8003 0013 symb: rac 8003 0188-Set IRC=60 (=Instr code for RAU) +0013: 60 RAU 6342 0012 symb: rau n0001c 0189-Use instr code as index in n0001 table to get optimization for DA and IA + n0001 (=342) + IRC (=60) = 0402 + ... Read 0402: 0303050499+ this is the optimization code + ... ACC: 0303050499 0000000000+, OV: 0 +0012: 69 LDD 8005 0020 symb: lod 8005 0190-DIST=IRA=0 +0020: 24 STD 0073 0076 symb: std lincr procl 0191-lincr=0 = ??? + + processing of instructions + check location of instr is blank/non blank depending on prev instr + +0076: 83 RSB 0001 0232 symb: procl rsb 1 0375-Set IRB=-1 (=processing location addr) +0232: 21 STU 0188 0041 symb: stu optim 0376-optim (addr 0188)=NN MM xx xxxx Optimize next word to L+NN if even, L+MM if odd (Now=0303050499+) optimization word +0041: 89 RSC 0275 0247 symb: rsc 275 0377-IRC=-275 -> set return addr to to return to lin 0388- (addr 300+(-275)=25 +0247: 65 RAL 1951 0056 symb: ral 1951 0378-get soap Location from card read area = ' 1221' (Now ACC: 0000000000 0091929291+, OV: 0) +0056: 69 LDD 0460 0063 symb: lod carry 0379-Read 0460: 8888888888+ is the previous assembled instr +0063: 45 NZE 0116 0070 symb: nze 1f 0380-jmp to 1f if location is blank (Now ACC: 0000000000 0091929291+, OV: 0) +0116: 96 BD6 0069 0224 symb: bd6 mastr hlt77 0381-carry has 8-> no blank addr in prev instr -> jmp to mastr to resolve addr (if blank addr in prev instr error because references a next instr (this) that no blank location) + + master address calc + for location + + determine type of location + +0069: 20 STL 0473 0676 symb: mastr stl temp 0480-temp=location as stated in read card (= absolute addr ' 1221' here) ACC: 0000000000 0091929291+, OV: 0 +0676: 69 LDD 8007 0632 symb: lod 8007 0481-DIST=IRC= -275 -> to return to lin 0388- +0632: 24 STD 0334 0490 symb: std 00032 0482-Save IRC (value to calc return addr from master calculation) +0490: 35 SLT 0002 1149 symb: slt 2 0483-AccUp=first char of location +1149: 27 SET 9000 0106 symb: set 9000 0484- +0106: 09 LDI 0117 0103 symb: ldi q0001 0485- + ... Copy 0117-0149 to 9000-9032 (33 words) +0103: 09 LDI 0556 0535 symb: ldi z0001 0486- + ... Copy 0556-0582 to 9033-9059 (27 words) +0535: 45 NZE 9002 0489 symb: nze 9002 0487-jmp to 9002 if some location, continue if location is blank (ACC: 0000000000 9192929100+, OV: 0) +9002: 44 NZU 9007 9008 symb: 9002 nzu 1f 0493-jmp to 9008 if absolute (first char blank), continue if symbolic/relative/program point + + absolute location + convert chars to number + +9008: 11 SUP 8003 9010 symb: 1 sup 8003 0495-clear AccUp, AccLo=loc aboslute as chars (ACC: 0000000000 9192929100+, OV: 0 = '1221 ' +9010: 80 RAA 8001 9011 symb: raa 8001 1f 0496-IRA=0 -> addr type: 0=absolute addr +9011: 11 SUP 8003 9012 symb: 1 sup 8003 0497- +9012: 45 NZE 9013 9014 symb: nze 1f 0498-jmp to 1f if addr is blank (conversion finished) (ACC: 0000000000 9192929100+, OV: 0) +9013: 24 STD 9006 9015 symb: std 9006 0499-addr 9006=0 (this is the addr converted to numeric result) +9015: 15 ALO 9016 9017 symb: alo 100p 0500-add 100 -> remove leadin 9 if leftmost char of acclo (Now ACC: 0000000001 0192929100+, OV: 0) +9017: 44 NZU 9018 9019 symb: nzu 2f 0501-jmp to 2f if char not number 9X +9018: 11 SUP 8003 9020 symb: sup 8003 0502-clear accup, now ACC: 0000000000 0192929100+, OV: 0 +9020: 35 SLT 0001 9021 symb: slt 1 0503-Now ACC: 0000000000 1929291000+, OV: 0 +9021: 10 AUP 9006 9022 symb: aup 9006 0504-load current result +9022: 35 SLT 0001 9011 symb: slt 1 1b 0505-Add digit, loop (Now ACC: 0000000001 9292910000+, OV: 0 + ... loop to lin 497 + +9014: 65 RAL 8001 9023 symb: 1 ral 8001 0506-Coversion finished in AccLo, Now ACC: 0000000000 0000001221+, OV: 0 +9023: 40 NZA 9024 9005 symb: nza 9005 0507-jmp to 9005 if abs addr parsed (continue if regional addr), now IRA=0=absolute +9005: 47 BOV 1997 9000 symb: 9005 bov hlt88d 9000 0512-if OV there is an error + + check if resolved addr is in drum/ias + +9000: 09 LDI 0303 9029 symb: 9000 ldi 00001 9029 0518- + ... Copy 0303-0349 to 9000-9046 (47 words) +9029: 88 RAC 9031 9018 symb: 9029 rac 9031 9018 0582-addr 9031 comes from addr 0334 = save value of IRC = -275 = Save IRC (value to calc return addr from master calculation) +9018: 20 STL 9050 9021 symb: 9018 stl 9050 0590-save absolute location addr Write 9050: 0000001221+ +9021: 35 SLT 0006 9022 symb: slt 6 0591-Now ACC: 0000000000 1221000000+, OV: 0 +9022: 16 SLO 8002 9023 symb: slo 8002 0592-AccLo to DIST, Acc=0 +9023: 84 TLU 9002 9024 symb: tlu 9002 0593-Search in memory map at lines 0583-0589 + ... Search DIST: 1221000000+ '~~ ' + ... Found 9002: 1999000001- ')9 ~' + ... Result ACC: 0000000000 0090020000+, OV: 0 -> AccLo = 00 ADDR 0000 addr of datafound +9024: 15 ALO 9025 8002 symb: alo 8002 0594-AccLo=AccLo+80 0000 9026=80 9002 9026=RAA 9002 9026= +8002: 80 RAA 9002 9026 execute created inst: IRA=last 4 digits of found addr=0001- +9026: 41 BMA 9016 9012 symb: bma 9016 9012 0596-jmp if IRA<0 same as found rlu word <0. <0 if aadr is in range 0000-1999 or 9000-9099 +9016: 67 RAM 9404 9216 symb: 9016 ram 9004b 9016a 0597-IRB=-1 (=processing location addr), IRA=-1 (other options: =0 if < 8000, =1 if <8007, =0 if <9000, =-2 if < 9060, -3 if <= 9099, =0 <= 9999) + 9003 9015 (developed addr) ... Read 9003: 7999800000+, Now ACC: 0000000000 7999800000+, OV: 0 +9015: 17 AML 9050 9027 symb: 9015 aml 9050 1f 0600-add saved location (saved at lin 590-): Read 9050: 0000001221+, Now ACC: 0000000000 7999801221+, OV: 0 +9027: 69 LDD 8003 9028 symb: 1 lod 8003 0602-clear distrib +9028: 23 SIA 9050 9001 symb: sia 9050 9001 0603-Write 9050: 0000001221+ +9001: 65 RAL 8001 6300 symb: 9001 ral 8001 300 c 0604-Acc=location, jmp to 300+IRC, here IRC=-275 -> jmp to addr 0025 lin 388- (processing the instruction) + + back to processing the instruction + +0025: 20 STL 0780 2038 symb: 25 stl locus 38 a 0388-save location in locus, jmp to 26,27,28,39 depending on addr type in IRA (here IRA=-1=drum/ias), Write 0780: 0000001221+ +0037: 10 AUP 8001 0545 symb: 37 aup 8001 0391-nOW ACC: 0000001221 0000001221+, OV: 0 +0545: 15 ALO 0798 0320 symb: alo ddiff 1f 0392-??? posible regional offset? posible tag offset? Now ddiff=0 +0320: 10 AUP 0073 0030 symb: 1 aup lincr 0397-??? Now lincr=0 +0030: 21 STU 0190 0243 symb: stu basex 0398-basex=instr location as 00 0000 NNNN +0243: 35 SLT 0006 0505 symb: slt 6 0399- +0505: 20 STL 1961 0018 symb: stl locat 0400-locat=instr location as NNNN 000000 +0018: 65 RAL 9011 0226 symb: ral 9011 0401-addr 9011 is copied from addr 0314=instr, set in line 0184-instr (addr 0314)=NN xxxx xxxx, NN=instr code. Now ACC: 0000000000 6005880000+, OV: 0 +0226: 16 SLO 0235 0239 symb: slo sudom 0402-??? sudom (addr 0235) = 88 0200 0950+ = instr RAC 200 950 +0239: 45 NZE 0443 0948 symb: nze procd alfot 0403-jmp to alfot if instr = sudom + + now process Data Address of instructuon + +0443: 89 RSC 0255 0649 symb: procd rsc 255 dmast 0412-IRC=-255 -> set return addr to to return to lin 0415- (addr 300+(-255)=0045) +0649: 65 RAL 1952 0614 symb: dmast ral 1952 dmst1 0413-Acc=Data Address in soap source, ACC: 0000000000 0000000000+, OV: 0 +0614: 82 RAB 0000 0069 symb: dmst1 rab 0 mastr 0414-IRB=0 (=processing DA data addr) + + mastr address calc + for data addr (DA) + + determine type of location + +0069: 20 STL 0473 0676 symb: mastr stl temp 0480-temp=location as stated in read card (= blank addr ' ' here) ACC: 0000000000 0000000000+, OV: 0 +0676: 69 LDD 8007 0632 symb: lod 8007 0481-DIST=IRC= -255 -> to return to lin 0415- +0632: 24 STD 0334 0490 symb: std 00032 0482-Save IRC (value to calc return addr from master calculation) +0490: 35 SLT 0002 1149 symb: slt 2 0483-AccUp=first char of location +1149: 27 SET 9000 0106 symb: set 9000 0484- +0106: 09 LDI 0117 0103 symb: ldi q0001 0485- + ... Copy 0117-0149 to 9000-9032 (33 words) +0103: 09 LDI 0556 0535 symb: ldi z0001 0486- + ... Copy 0556-0582 to 9033-9059 (27 words) +0535: 45 NZE 9002 0489 symb: nze 9002 0487-jmp to 9002 if some location, continue if location is blank (ACC: 0000000000 0000000000+, OV: 0) +0489: 49 BMC 1048 9005 symb: bmc 9005 0488-IRC=-255 (processing DA), continue + + blank DA addr + +1048: 65 RAL 0460 0665 symb: ral carry 0489-Read 0460: 8888888888+ is the previous assembled instr +0665: 96 BD6 0068 9000 symb: bd6 9000 0490-carry has 8-> no blank addr in prev instr -> continue to resolve addr +0068: 81 RSA 0053 9040 symb: rsa 53 9040 0491-Set IRA: 0053- ??? +9040: 36 SCT 0001 9001 symb: 9040 sct 1 9001 0535-Se overflow! Now ACC: 0000000008 8888888810+, OV: 1 +9001: 09 LDI 0150 0202 symb: 9001 ldi 10001 d 0519- + ... Copy 0150-0199 to 9001-9050 (50 words) +0202: 69 LDD 4307 0112 symb: lod dtaggb farbld 0520-read from dtagg+IRB=0307+0000 the tag processed (Read 0307: 090780 0000+) tag is 4 last digits + + optimization routines + farbl = fix addr blank -> calc the addr for blank DA + +0112: 96 BD6 9058 0221 symb: farbl bd6 9058 7f 0640- ??? (check DIST: 0907800000+ = tag for DA) +9058: 88 RAC 9007 9057 symb: 9058 rac 9007 0553-IRC=0, addr 9007 copies from addr 0156 = modet defined at line 1454- modet +00 0000 0000, so IRC=modet=0 +9057: 48 NZC 0607 0829 symb: nzc farind 829 0554-IRC is 0 -> jmp to 829 +0829: 43 BMB 0682 9005 symb: 829 bmb 9005 0656-IRB is 0 (=processing DA) so jmp 9005 +9005: 65 RAL 9039 9015 symb: 9005 ral 9039 0668-Addr 9039 is copied from 0188=optim=optimization word, Now ACC: 0000000000 0303050499+, OV: 1 +9015: 42 NZB 9016 9017 symb: nzb 2f 0669-IRB is 0 (=processing DA), so continue +9017: 20 STL 9058 9025 symb: 2 stl 9058 0689-Save optimization word in 9058 +9025: 65 RAL 9041 9026 symb: ral 9041 0690-Addr 9041 is copied from 0190=basex=instr location as 00 0000 NNNN, now ACC: 0000000000 0000001221+, OV: 1 +9026: 14 DIV 9008 0832 symb: div 9008 d 0691-Div basex by 2 (ACC: 0000000001 0000000610+, OV: 1 +0832: 44 NZU 9027 9028 symb: nzu 4f 0692-continue if basex odd, jmp to 4f if basex is even +9027: 67 RAM 9058 9029 symb: ram 9058 0693-Acc=basex, now ACC: 0000000000 0303050499+, OV: 1 NN MM 000000 -> NN/MM is L+NN/MM fpr next word to select depending on L odd/even +9029: 35 SLT 0002 9030 symb: slt 2 0694- +9030: 11 SUP 8003 9031 symb: sup 8003 5f 0695-clear accup , ACC: 0000000000 0305049900+, OV: 1 +9031: 30 SRT 0008 9032 symb: 5 srt 8 0697-ACC: 0000000000 0000000003+, OV: 1 -> this is the optimization offset to be added to Llocation of instr +9032: 15 ALO 9041 9004 symb: alo 9041 9004 0698-AccLo=basex+NN -> optimized word for blank address, now ACC: 0000000000 0000001224+, OV: 1 + + get the addr to reserve 00..49 (first band) + +9004: 14 DIV 9033 0491 symb: 9004 div 50i farofd 0699-div addr by 50, Div result ACC: 0000000024 0000000024+, OV: 1 (AccLo=remainder) + + reserve addr in AccUp + +0491: 65 RAL 8003 9049 symb: farof ral 8003 9049 0700-Acc=24 = addr to reserve (the remainder of div by 50) +9049: 15 ALO 8002 9034 symb: 9049 alo 8002 0704- +9034: 15 ALO 8002 9035 symb: alo 8002 0705-Acc=96=24x4 +9035: 69 LDD 8006 9036 symb: lod 8006 0706-DIST=IRB=0 (=0 means processing DA) +9036: 24 STD 0257 0661 symb: std 30007 d 0707-Save IRB=0 in 30007 (addr 0257) +0661: 82 RAB 0004 9613 symb: rab 4 9013c 0708-Set IRB=4, jmp 9013 (IRC=0, set at line 0554 with value of modet) +9013: 88 RAC 0000 9037 symb: 9013 rac 0 1f 0709-IRC=0 +9037: 16 SLO 9033 9038 symb: 1 slo 50i 0711-Acc=96-50=46 +9038: 46 BMI 9050 9040 symb: bmi 9050 0712-acc=46>0 -> continue +9040: 58 AXC 0050 9037 symb: axc 50 1b 0713-IRC=IRC+50=50, jmp to 9037 to continue subtracting +9037: 16 SLO 9033 9038 symb: 1 slo 50i 0711-Acc=46-50-4 +9038: 46 BMI 9050 9040 symb: bmi 9050 0712-exit loop +9050: 09 LDI 0917 9051 symb: 9050 ldi 20001 9051 0714-Copy 0917-0926 to 9050-9059 (10 words) +9051: 35 SLT 0004 9050 symb: 9051 slt 4 9050 0730-Acc = -0004 0000 +9050: 15 ALO 9053 9054 symb: 9050 alo 1f 2f 0731-Acc = TLU 9052+Acc = TLU 9048 9058 +9054: 20 STL 9055 9056 symb: 2 stl hld 0732-Store TLU instr at hld=9055 +9056: 69 LDD 9052 9057 symb: lod 9052 0733-DIST=1 +9057: 27 SET 9002 0496 symb: set 9002 d 0734- +0496: 09 LDI 7750 9055 symb: ldi a0001c hld 0735-copy from 1750+IRC=1800 Copy 1800-1849 to 9002-9051 (50 words) = 8888888888 +9055: 84 TLU 9048 9058 symb: ... Search DIST: 0000000001+ ' ~' + ... Found 9048: 8888888888+ 'YYYYY' -> is equiv to 1846, availabiolity for Add 0024 + ... Result ACC: 0000000000 8490489058+, OV: 1 +9058: 16 SLO 9053 9059 symb: 3 slo 1b 0738-Acc=acc-xx9052xxxx=-00 0004 0000: slo TLU base addr to get index on table +9059: 46 BMI 9001 0525 symb: bmi 9001 d 0739-jmp to 9001 if availability found (acc < 0) +9001: 09 LDI 0250 9001 symb: 9001 ldi 30000 9001 0723-Copy 0250-0299 to 9001-9050 (50 words) +9001: 30 SRT 0004 9016 symb: 9001 srt 4 0752-Acc=-4 +9016: 58 AXC 8002 9017 symb: axc 8002 0753-IRC=50+Acc=50-4=46 +9017: 58 AXC 0050 9002 symb: axc 50 9002 0754-IRC=IRC+50=56+50=96 +9002: 60 RAU 7750 9018 symb: 9002 rau a0001c 0755-Now Acc=(1750+IRC)=(1846)=8888888888 0000000000+, OV: 1 +9018: 36 SCT 0000 9019 symb: sct 0 0756-Now Acc=8888888888 0000000000+, OV: 1 +9019: 82 RAB 8002 9020 symb: rab 8002 0757-IRB=0 +9020: 35 SLT 0001 9021 symb: slt 1 0758-Now Acc=8888888880 0000000000+, OV: 1 +9021: 31 SRD 4001 9022 symb: srd 1 b 0759-Now Acc=0888888888 0000000000+, OV: 1 +9022: 21 STU 7750 9023 symb: stu a0001c 0760-Store Avail data with addr reserved: Write 1846: 0888888888+ this reservation for addr 00024 +9023: 60 RAU 8006 9024 symb: rau 8006 0761-AccUp=IRB=0 +9024: 19 MPY 9025 9026 symb: mpy 50i 0762-Acc=0x50=0 +9026: 82 RAB 8002 9027 symb: rab 8002 0763-IRB=Acc -> IRB=IRB x 50 +9027: 65 RAL 8007 0647 symb: ral 8007 d 0764-Acc=IRC=96 +0647: 14 DIV 0750 0553 symb: div 4i d d 0765-Acc=24 +0553: 19 MPY 9028 0546 symb: mpy 500i d 0766-Acc=AccUpx500+AccLo=0x500+24=24 en AccUp +0546: 15 ALO 8003 9029 symb: alo 8003 0767-Now Acc=0000000024 0000000024+, OV: 1 +9029: 15 ALO 8006 9003 symb: alo 8006 9003 0768-AccLo=AccLo+B = 24+0=24 +9003: 82 RAB 9008 9005 symb: 9003 rab 9008 9005 0769-IRB=0 +9005: 47 BOV 9030 9004 symb: 9005 bov 1f 9004 0770-OV Set (set on line 0535- because addr blank)-> Branch Taken +9030: 43 BMB 9000 9050 symb: 1 bmb 9000 0796-IRB=0 (processing DA), continue +9050: 69 LDD 1652 0655 symb: lod o0103 d 0797-Read 1652: 6264980000+??? 0313- ALF BD8 THINK 1652 +62 6498 0000 +0655: 23 SIA 2513 9000 symb: sia f0000a 9000 0798-Write 0460=carry= 626498 <0024+>: the IA part of carry is addr reserved + + check if resolved addr is in drum/ias + +9000: 09 LDI 0303 9029 symb: 9000 ldi 00001 9029 0518- + ... Copy 0303-0349 to 9000-9046 (47 words) +9029: 88 RAC 9031 9018 symb: 9029 rac 9031 9018 0582-addr 9031 comes from addr 0334 = save value of IRC = -255 = Save IRC (value to calc return addr from master calculation) +9018: 20 STL 9050 9021 symb: 9018 stl 9050 0590-save absolute location Write 9050: 0000000024+ +9021: 35 SLT 0006 9022 symb: slt 6 0591-Now ACC: 0024000000 0024000000+, OV: 0 +9022: 16 SLO 8002 9023 symb: slo 8002 0592-AccLo to DIST, Acc=0 +9023: 84 TLU 9002 9024 symb: tlu 9002 0593-Search in memory map at lines 0583-0589 + ... Search DIST: 0024000000+ '~~ ' + ... Found 9002: 1999000001- ')9 ~' + ... Result ACC: 0024000000 0090020000+, OV: 0 -> AccLo = 00 ADDR 0000 addr of datafound +9024: 15 ALO 9025 8002 symb: alo 8002 0594-AccLo=AccLo+80 0000 9026=80 9002 9026=RAA 9002 9026= +8002: 80 RAA 9002 9026 execute created inst: IRA=last 4 digits of found addr=0001- (-> is addr in drum/ias) +9026: 41 BMA 9016 9012 symb: bma 9016 9012 0596-jmp if IRA<0 same as found rlu word <0. <0 if aadr is in range 0000-1999 or 9000-9099 +9016: 67 RAM 9404 9216 symb: 9016 ram 9004b 9016a 0597-IRB=0 (=processing DA), IRA=-1 (other options: =0 if < 8000, =1 if <8007, =0 if <9000, =-2 if < 9060, -3 if <= 9099, =0 <= 9999) + 9004 9015 (developed addr) ... Read 9004: 0907800000+, Now ACC: 0000000000 0907800000+, OV: 0 +9015: 17 AML 9050 9027 symb: 9015 aml 9050 1f 0600-add saved location (saved at lin 590-): Read 9050: 0000000024+, Now ACC: 0000000000 0907800024+, OV: 0 +9027: 69 LDD 8003 9028 symb: 1 lod 8003 0602-clear distrib +9028: 23 SIA 9050 9001 symb: sia 9050 9001 0603-Write 9050: 0000000024+ +9001: 65 RAL 8001 6300 symb: 9001 ral 8001 300 c 0604-Acc=DA addr=0000000024, jmp to 300+IRC, here IRC=-255 -> jmp to addr 0045 lin 415- (processing the instruction) + + back to processing the instruction + +0045: 69 LDD 9011 0101 symb: 45 lod 9011 0415-addr 9011 is copied from addr 0314=instr, set in line 0184-instr (addr 0314)=NN xxxx xxxx, NN=instr code. Now DIST: 6005880000+ +0101: 35 SLT 0004 0109 symb: slt 4 0416-Now ACC: 0000000000 0000240000+, OV: 0 +0109: 22 SDA 0314 0022 symb: sda instr 0417-Set DA part of instr: Write 0314: 6000240000+ +0022: 30 SRT 0004 2034 symb: srt 4 34 a 0418-IRA=-1 (da addr is in drum/ias). jmp to 33 if addr in drum/ias, jmp to 34 if addr < 8000, to 35 if <8007, to 34 if <9000, to 32 if < 9060, to 31 if <= 9099, to 34 if <= 9999. here, jmp to 33, ACC: 0000000000 0000000024+, OV: 0 +0033: 69 LDD 0188 0091 symb: 33 lod optim 3f 0433-DIST=optim word=NN MM xxxxxx 8to optimize to L+NN/MM). Here Read 0188: 0303050499+ +0091: 91 BD1 0244 0062 symb: 3 bd1 proci 0435-Last DIST digit=9 -> continue. jmp to proci If =8 (not an addr for opcode, just a value as number of shifts in SLT) +0062: 20 STL 0190 0244 symb: stl basex proci 0436-save in basex the addr for DA (Write 0190: 0000000024+) + + now process Instr Address of instructuon + +0244: 89 RSC 0256 0550 symb: proci rsc 256 imast 0438-IRC=-256 -> set return addr to to return to lin 0441- (addr 300+(-256)=0044) +0550: 65 RAL 1953 0664 symb: imast ral 1953 imst1 0439-Acc=inst Address in soap source, ACC: 0000000000 6161000000+, OV: 0 +0664: 82 RAB 0001 0069 symb: imst1 rab 1 mastr 0440-IRB=1 (=processing IA data addr) + + master address calc + for data addr (IA) + + determine type of location + +0069: 20 STL 0473 0676 symb: mastr stl temp 0480-temp=location as stated in read card (= symbolic addr 'AA ' here) ACC: 0000000000 6161000000+, OV: 0 +0676: 69 LDD 8007 0632 symb: lod 8007 0481-DIST=IRC= -256 -> to return to lin 0441- +0632: 24 STD 0334 0490 symb: std 00032 0482-Save IRC (value to calc return addr from master calculation) +0490: 35 SLT 0002 1149 symb: slt 2 0483-AccUp=first char of location, now ACC: 0000000061 6100000000+, OV: 0 +1149: 27 SET 9000 0106 symb: set 9000 0484- +0106: 09 LDI 0117 0103 symb: ldi q0001 0485- + ... Copy 0117-0149 to 9000-9032 (33 words) +0103: 09 LDI 0556 0535 symb: ldi z0001 0486- + ... Copy 0556-0582 to 9033-9059 (27 words) +0535: 45 NZE 9002 0489 symb: nze 9002 0487-jmp to 9002 if IA set, continue if IA is blank. Here, jmp to 9002 +9002: 44 NZU 9007 9008 symb: 9002 nzu 1f 0493-jmp to 1f if abs addr, continue if symbolic/regional/program point +9007: 15 ALO 9009 9008 symb: alo 90i 1f 0494-ACC: 0000000061 6100000090+, OV: 0 +9008: 11 SUP 8003 9010 symb: 1 sup 8003 0495-ACC: 0000000000 6100000090+, OV: 0 +9010: 80 RAA 8001 9011 symb: raa 8001 1f 0496-Set IRA with char1 of IA (here = 0061+) +9011: 11 SUP 8003 9012 symb: 1 sup 8003 0497-ACC: 0000000000 6100000090+, OV: 0 this is a posible regional addr +9012: 45 NZE 9013 9014 symb: nze 1f 0498-jmp to 1f if absolute +9013: 24 STD 9006 9015 symb: std 9006 0499-addr 9006=0 (this is the addr converted to numeric result) +9015: 15 ALO 9016 9017 symb: alo 100p 0500-AccLo=AccLo+1000000 = 6100000090+1000000000->ACC: 0000000000 7100000090+, OV: 0 +9017: 44 NZU 9018 9019 symb: nzu 2f 0501-continue if char2 is numeric -> regional addr, jmp to 2f y not regional +9019: 51 SXA 0090 9028 symb: 2 sxa 90 0513-IRA=61 (the char1 of IA)-90 (code for '0')=-29 +9028: 41 BMA 0620 9029 symb: bma symbld 0514-if <0 -> char1 not numeric -> is symbolic (not prog point) -> jmp to symbl + + symbolic addr + search if symbol already defined + +0620: 60 RAU 0473 0230 symb: symbl rau temp symb1 0559-Acc=' AA ' symbolic addr, ACC: 6161000000 0000000000+, OV: 0 +0230: 35 SLT 0008 0547 symb: symb1 slt 8 0560-ACC: 0000000000 0000000000+, OV: 0 +0547: 44 NZU 0203 0204 symb: nzu 1f 0561-jmp to 1f if symbol has 5 chars. here continue +0204: 60 RAU 8001 0611 symb: rau 8001 0562-reload symb ACC: 6161000000 0000000000+, OV: 0 +0611: 10 AUP 0914 0769 symb: aup 0000h 0563-Add 0 ??? +0769: 11 SUP 8003 0540 symb: sup 8003 2f 0564-Clear Acc, DIST=symbol +0540: 24 STD 1493 0196 symb: 2 std s0294 0566-Save as last Symbol to act as sentinel +0196: 63 TLE 1200 0617 symb: tle s0001 0567- + ... Search DIST: 6161000000+ 'AA ' + ... Found 1493: 6161000000+ 'AA ' + ... Result ACC: 0000000000 0014930000+, OV: 0 +0617: 16 SLO 0120 0475 symb: slo q0004 0568-q0004 is last addr of symb table (defined at lin 0579- Q0004 00 S0294 0): Acc=Acc-00 1493 0000 -> Acc=0 +0475: 47 BOV 0590 0530 symb: bov equsy 0569- ??? +0530: 46 BMI 0233 0534 symb: bmi 3f 0570-if <0 -> symb found -> jmp to 3f +0534: 49 BMC 9001 0538 symb: bmc 9001 0571-IRC=-0256 (= processing IA) -> jmp to 9001 +9001: 09 LDI 0150 0202 symb: 9001 ldi 10001 d 0519-Symb not found -> must reserve an address and define symbol + ... Copy 0150-0199 to 9001-9050 (50 words) +0202: 69 LDD 4307 0112 symb: lod dtaggb farbld 0520-read from dtagg+IRB=0307+0001 the tag processed (Read 0308: 0907800000+) tag is 4 last digits + + optimization routines + farbl = fix addr blank -> calc the addr for blank IA + +0112: 96 BD6 9058 0221 symb: farbl bd6 9058 7f 0640- ??? (check DIST: 0907800000+ = tag for DA) +9058: 88 RAC 9007 9057 symb: 9058 rac 9007 0553-IRC=0, addr 9007 copies from addr 0156 = modet defined at line 1454- modet +00 0000 0000, so IRC=modet=0 +9057: 48 NZC 0607 0829 symb: nzc farind 829 0554-IRC is 0 -> jmp to 829 +0829: 43 BMB 0682 9005 symb: 829 bmb 9005 0656-IRB is 1 (=processing IA) so jmp 9005 +9005: 65 RAL 9039 9015 symb: 9005 ral 9039 0668-Addr 9039 is copied from 0188=optim=optimization word, Now ACC: 0000000000 0303050499+, OV: 1 +9015: 42 NZB 9016 9017 symb: nzb 2f 0669-IRB is 1 (=processing IA), so jmp to 2f +9016: 46 BMI 9018 9019 symb: bmi 1f 0670-??? depending on optimiz word (optimiz type?) ACC: 0000000000 0303050499+, OV: 0 +9019: 92 BD2 0212 9020 symb: bd2 d 7f 0671-Check DIST: 0303050499+ Digit is 9 -> jmp to 7f +9020: 35 SLT 0004 9017 symb: 7 slt 4 2f 0688-ACC: 0000000303 0504990000+, OV: 0 +9017: 20 STL 9058 9025 symb: 2 stl 9058 0689-Save optimization word in 9058: Write 9058: 0504990000+ +9025: 65 RAL 9041 9026 symb: ral 9041 0690-Addr 9041 is copied from 0190=basex=DA location as 00 0000 NNNN, now ACC: 0000000000 0000000024+, OV: 0 +9026: 14 DIV 9008 0832 symb: div 9008 d 0691-Div basex by 2 (ACC: 0000000000 0000000012+, OV: 0 +0832: 44 NZU 9027 9028 symb: nzu 4f 0692-continue if basex odd, jmp to 4f if basex is even +9028: 67 RAM 9058 9031 symb: 4 ram 9058 5f 0696-Acc=basex, now ACC: 0000000000 0504990000+, OV: 0 NN MM 000000 -> NN/MM is L+NN/MM fpr next word to select depending on L odd/even +9031: 30 SRT 0008 9032 symb: 5 srt 8 0697-ACC: 0000000000 0000000005+, OV: 0 -> this is the optimization offset to be added to DA +9032: 15 ALO 9041 9004 symb: alo 9041 9004 0698-AccLo=basex+NN=14+5=29 -> optimized word for symbolic address, now ACC: 0000000000 0000000029+, OV: 0 + + get the addr to reserve 00..49 (first band) + +9004: 14 DIV 9033 0491 symb: 9004 div 50i farofd 0699-div addr by 50, Div result ACC: 0000000029 0000000000+, OV: 0 (AccLo=remainder) + + reserve addr in AccUp + +0491: 65 RAL 8003 9049 symb: farof ral 8003 9049 0700-Acc=29 = addr to reserve (the remainder of div by 50) +9049: 15 ALO 8002 9034 symb: 9049 alo 8002 0704- +9034: 15 ALO 8002 9035 symb: alo 8002 0705-Acc=116=29x4 +9035: 69 LDD 8006 9036 symb: lod 8006 0706-DIST=IRB=1 (=1 means processing IA) +9036: 24 STD 0257 0661 symb: std 30007 d 0707-Save IRB=1 in 30007 (addr 0257) +0661: 82 RAB 0004 9613 symb: rab 4 9013c 0708-Set IRB=4, jmp 9013 (IRC=0, set at line 0554 with value of modet) +9013: 88 RAC 0000 9037 symb: 9013 rac 0 1f 0709-IRC=0 +9037: 16 SLO 9033 9038 symb: 1 slo 50i 0711-Acc=116-50=66 +9038: 46 BMI 9050 9040 symb: bmi 9050 0712-acc=66>0 -> continue +9040: 58 AXC 0050 9037 symb: axc 50 1b 0713-IRC=IRC+50=50, jmp to 9037 to continue subtracting +9037: 16 SLO 9033 9038 symb: 1 slo 50i 0711-Acc=66-50=16 +9038: 46 BMI 9050 9040 symb: bmi 9050 0712-loop again +9040: 58 AXC 0050 9037 symb: axc 50 1b 0713-IRC=IRC+50=100, jmp to 9037 to continue subtracting +9037: 16 SLO 9033 9038 symb: 1 slo 50i 0711-Acc=16-50=-34 +9038: 46 BMI 9050 9040 symb: bmi 9050 0712-exit loop +9050: 09 LDI 0917 9051 symb: 9050 ldi 20001 9051 0714-Copy 0917-0926 to 9050-9059 (10 words) +9051: 35 SLT 0004 9050 symb: 9051 slt 4 9050 0730-Acc = -0034 0000, OV: 0 +9050: 15 ALO 9053 9054 symb: 9050 alo 1f 2f 0731-Acc = TLU 9052+Acc = TLU 9018 9058 +9054: 20 STL 9055 9056 symb: 2 stl hld 0732-Store TLU instr at hld=9055 +9056: 69 LDD 9052 9057 symb: lod 9052 0733-DIST=1 +9057: 27 SET 9002 0496 symb: set 9002 d 0734- +0496: 09 LDI 7750 9055 symb: ldi a0001c hld 0735-copy from 1750+IRC=1850 Copy 1850-1899 to 9002-9051 (50 words) = 8888888888 +9055: 84 TLU 9018 9058 symb: ... Search DIST: 0000000001+ ' ~' + ... Found 9018: 8888888888+ 'YYYYY' -> is equiv to 1866, availability for Addr 0029 + ... Result ACC: 0000000000 8490189058+, OV: 0 +9058: 16 SLO 9053 9059 symb: 3 slo 1b 0738-Acc=acc-xx9052xxxx=-00 0034 0000: slo TLU base addr to get index on table +9059: 46 BMI 9001 0525 symb: bmi 9001 d 0739-jmp to 9001 if availability found (acc < 0) +9001: 09 LDI 0250 9001 symb: 9001 ldi 30000 9001 0723-Copy 0250-0299 to 9001-9050 (50 words) +9001: 30 SRT 0004 9016 symb: 9001 srt 4 0752-Acc=-34 +9016: 58 AXC 8002 9017 symb: axc 8002 0753-IRC=100+Acc=100-34=66 +9017: 58 AXC 0050 9002 symb: axc 50 9002 0754-IRC=IRC+50=66+50=116 +9002: 60 RAU 7750 9018 symb: 9002 rau a0001c 0755-Now Acc=(1750+IRC)=(1866)=8888888888 0000000000+, OV: 0 +9018: 36 SCT 0000 9019 symb: sct 0 0756-ACC: 8888888888 0000000000+, OV: 0 +9019: 82 RAB 8002 9020 symb: rab 8002 0757-IRB=0 +9020: 35 SLT 0001 9021 symb: slt 1 0758-Now ACC: 8888888880 0000000000+, OV: 0 +9021: 31 SRD 4001 9022 symb: srd 1 b 0759-Now ACC: 0888888888 0000000000+, OV: 0 +9022: 21 STU 7750 9023 symb: stu a0001c 0760-Store Avail data with addr reserved: Write 1866: 0888888888+ this reservation for addr 0029 +9023: 60 RAU 8006 9024 symb: rau 8006 0761-AccUp=IRB=0 +9024: 19 MPY 9025 9026 symb: mpy 50i 0762-Acc=0x50=0 +9026: 82 RAB 8002 9027 symb: rab 8002 0763-IRB=Acc -> IRB=IRB x 50 +9027: 65 RAL 8007 0647 symb: ral 8007 d 0764-Acc=IRC=116 +0647: 14 DIV 0750 0553 symb: div 4i d d 0765-ACC: 0000000000 0000000029+, OV: 0 +0553: 19 MPY 9028 0546 symb: mpy 500i d 0766-Acc=AccUpx500+AccLo=0x500+29=29 en AccUp +0546: 15 ALO 8003 9029 symb: alo 8003 0767-Now ACC: 0000000029 0000000029+, OV: 0 +9029: 15 ALO 8006 9003 symb: alo 8006 9003 0768-AccLo=AccLo+B = 29+0=29, Now ACC: 0000000029 0000000029+, OV: 0 +9003: 82 RAB 9008 9005 symb: 9003 rab 9008 9005 0769-IRB=1 (restore IRB=1=processing IA) +9005: 47 BOV 9030 9004 symb: 9005 bov 1f 9004 0770-OV Not Set (whould been set on line 0535- if addr blank)-> Branch Not Taken +9004: 20 STL 9006 9031 symb: 9004 stl 9006 findx 0771-Save addr to assign to symbol: Write 9006: 0000000029+ + + + add new symbol to symbol table, + add symbol addr to symbol addr table + + +9031: 60 RAU 9007 9032 symb: findx rau 9007 0772-addr 9007 copies from addr 0256 = level defined at line 0804- level alf +00 0000 0000, so Acc=level=0 + last copy operation: + line 723-Copy 0250-0299 to 9001-9050 (50 words) +9032: 88 RAC 8001 9033 symb: rac 8001 0773-IRC=Acc=0=last 4 digits of level=first symbol free in symbol table +9033: 30 SRT 0002 9034 symb: srt 0002 0774-Now ACC: 0000000000 0000000000+, OV: 0 +9034: 16 SLO 8002 9035 symb: slo 8002 0775-Clear AccLo +9035: 84 TLU 9011 9036 symb: tlu 9011 0776-addr 9011 copies from addr 0260: + line 1305 30010 BMI 898 3 0260 +46 0898 0003 + line 1206 30011 BOV 1 0261 +47 1966 0001 + line 1474 30012 BD6 1F 0262 +96 1539 1739 + line 1446 30013 WTM 0 B 3 0263 +56 4000 0003 + line 1095 30014 BD7 9008 0264 +97 9008 9014 + + ... Search DIST: 0000000000+ ' ' + ... Found 9011: 4608980003+ '~~8 ~' + ... Result ACC: 0000000000 0090110000+, OV: 0 +9036: 15 ALO 9037 8002 symb: alo 8002 0777-Add to located addr the instr 64 9999 0594 -> + AccLo=00 9011 0000 + 64 9999 0594 + = 6590100594 = RAL 9010 0594 +8002: 65 RAL 9010 0594 -addr 9010 copies from addr 0259 + line 1490 30009 STD RAMSW 1 0259 +24 0773 0001 + ... Read 9010: 24 0773 0001+ + ... ACC: 0000000000 2407730001+, OV: 0 +0594: 15 ALO 9007 0501 symb: alo 9007 d 0779-acclo=acclo + level. As level=0, ACC: 0000000000 24 0773 0001+, OV: 0 +0501: 20 STL 0256 0509 symb: stl level d 0780-set level: Write 0256: 24 0773 0001+ (=STD RAMSW 0001) +0509: 59 SXC 0293 0915 symb: sxc 293 d 0781-set IRC=irc (that is =level)-293 +0915: 49 BMC 9038 0827 symb: bmc store hlt11 0782-if IRC >= 0 -> symb table full +9038: 69 LDD 1493 0596 symb: store lod s0294 d 0783-DIST=symbol to add to table: Read 1493: 6161000000+ 'AA ' (s0294=sentinel for TLU=symb searched) +0596: 24 STD 7493 9039 symb: std s0294c 0784-Store new symbol in symbol table indexed by IRC, -> STD 1200 9039 (developed addr) +9039: 66 RSL 8007 9040 symb: rsl 8007 0785-Set Acc=IRC=index on symbol table, Now ACC: 0000000000 0000000293+, OV: 0 +9040: 14 DIV 9041 0206 symb: div 2i d 0786-symbol addr table at e0147. Stores two symbol addr (in DA&IA) per word -> this is why index on e0147 = index on Symb table /2. remainder is used to select DA or IA + 293/2 -> Div result ACC: 0000000001 0000000146+, OV: 0 +0206: 89 RSC 8002 9042 symb: rsc 8002 0787-IRC=Index on symb table addr=-146 +9042: 16 SLO 8001 9043 symb: slo 8001 0788-clear acclo: Read 8001: 0000000146+, Now ACC: 0000000001 0000000000+, OV: 0 +9043: 15 ALO 9006 9044 symb: alo 9006 0789-AccLo=symbol addr: Read 9006: 0000000029+, Now ACC: 0000000001 0000000029+, OV: 0 +9044: 69 LDD 7196 9045 symb: lod e0147c 0790-e0001=symbol addr table (at addr 1196). IRC=-146 -> LDD 1050 9045 (developed addr), Read 1050: 0000000000+ +9045: 44 NZU 9046 9047 symb: nzu 2f 0791-2 addr per word. result of div by 2 set if addr symbol is on DA side or IA side. Now ACC: 0000000001 0000000029+, OV: 0 +9046: 35 SLT 0004 9009 symb: slt 4 9009 0792-Store on DA -> shift to DA position. Now ACC: 0000010000 0000290000+, OV: 0 +9009: 22 SDA 7196 9048 symb: 9009 sda e0147c 0793-Store DA on Symbol Addr table +9048: 30 SRT 0004 9049 symb: srt 4 3f 0794-restore addr, Now ACC: 0000000001 0000000029+, OV: 0 +9049: 47 BOV 4002 9000 symb: 3 bov 2 b 9000 0799-IRB=1, but OV=0 -> return to 9000 + + check if resolved addr is in drum/ias + + +9000: 09 LDI 0303 9029 symb: 9000 ldi 00001 9029 0518- + ... Copy 0303-0349 to 9000-9046 (47 words) +9029: 88 RAC 9031 9018 symb: 9029 rac 9031 9018 0582-addr 9031 comes from addr 0334 = save value of IRC = -256 = Save IRC (value to calc return addr from master calculation) +9018: 20 STL 9050 9021 symb: 9018 stl 9050 0590-save absolute location addr Write 9050: 0000000029+ +9021: 35 SLT 0006 9022 symb: slt 6 0591-Now ACC: 0001000000 0029000000+, OV: 0 +9022: 16 SLO 8002 9023 symb: slo 8002 0592-AccLo to DIST, ACC=0001000000 0000000000+, OV: 0 +9023: 84 TLU 9002 9024 symb: tlu 9002 0593-Search in memory map at lines 0583-0589 + ... Search DIST: 0029000000+ ' * ' + ... Found 9002: 1999000001- ')9 ~' + ... Result ACC: 0001000000 0090020000+, OV: 0 -> AccLo = 00 ADDR 0000 addr of data found +9024: 15 ALO 9025 8002 symb: alo 8002 0594-Read 9025: 8000009026+, ACC: 0001000000 8090029026+, OV: 0 +8002: 80 RAA 9002 9026 Read 9002: 1999000001-, IRA: 0001- + Set IRA=contents of addr 9002=-1. +9026: 41 BMA 9016 9012 symb: bma 9016 9012 0596- +9016: 67 RAM 9404 9216 symb: 9016 ram 9004b 9016a 0597-ACC: 0000000000 0907800000+, OV: 0 +9015: 17 AML 9050 9027 symb: 9015 aml 9050 1f 0600-Read 9050: 0000000029+, ACC: 0000000000 0907800029+, OV: 0 +9027: 69 LDD 8003 9028 symb: 1 lod 8003 0602-clear distrib +9028: 23 SIA 9050 9001 symb: sia 9050 9001 0603-Write 9050: 0000000029+ +9001: 65 RAL 8001 6300 symb: 9001 ral 8001 300 c 0604-Acc=addr, jmp to 300+IRC = 300+(-256) = 44 (line 0441-) + + back to processing the instruction + +0044: 69 LDD 9011 0600 symb: 44 lod 9011 alfin 0441-The addr 9011 holds the inst being assmbled: Read 9011: 60 0024 0000+ already has OpCode (RAU=60), DA (=0024). Now will set IA +0600: 23 SIA 9011 0207 symb: alfin sia 9011 0442-Set IA on instr assembled: Write 9011: 6000240029+ +0207: 69 LDD 1960 0764 symb: lod 1960 0443-Read 1960: 0000908000+ source code control word +0764: 96 BD6 0622 0527 symb: bd6 1f 0444- 8-> instr is negative, 9=positive, Now DIST: 0000908000+ +0527: 65 RAL 9011 0241 symb: ral 9011 2f 0445-get inst assembled as positive value: Read 9011: 6000240029+ +0241: 15 ALO 9000 0008 symb: 2 alo 9000 3f 0451-addr 9000 comes from addr 0303 adend set at line 0470-; Now Read 9000: 0000000000+, ACC: 0000000000 6000240029+, OV: 0 +0008: 20 STL 0314 2219 symb: 3 stl instr 219 a 0452-save instr assembled. IRA=output mode: -1 -> 1-card output format + + select output mode + +0218: 65 RAL 0477 0081 symb: 218 ral fivtg pnch1 0453-Read 0477: 8888888888-, ACC: 0000000000 8888888888-, OV: 0 +0081: 46 BMI 0642 0635 symb: pnch1 bmi 9f 2f 0921-jmp to 2f if is 5 word per card mode +0642: 65 RAL 0046 0601 symb: 9 ral 533tl 0943-now 533tl=0 +0601: 45 NZE 0684 0705 symb: nze corof 0944-jmp to corof if NO core mode +0705: 65 RAL 1961 0766 symb: ral locat 0945-assembled instr location: Read 1961: 1221000000+, ACC: 0000000000 1221000000+, OV: 0 +0766: 16 SLO 0368 0773 symb: slo n0027 ramsw 0946-Read 0368: 4905050598+, now ACC: 0000000000 3684050598-, OV: 0 +0773: 46 BMI 0684 0685 symb: ramsw bmi corof corsw 0985-jmp to NO core mode (corof) +0684: 88 RAC 0209 0890 symb: corof rac finis prone 1000-jmp to prone (print one card), the jmp to finis (IRC=0209) + + print/punch one card + +0890: 81 RSA 0001 1496 symb: prone rsa 1 1002-IRA=-1 +1496: 69 LDD 1449 0757 symb: lod onesw 1003-Read 1449: 9999999999- +0757: 92 BD2 0830 1017 symb: bd2 9f 1004- +1017: 50 AXA 0001 0026 symb: axa 1 90001 1005-IRA=0 +0026: 67 RAM 0780 0893 symb: 90001 ram locus 1010-Read 0780: 0000001221+ <-- addr of assembled instr +0893: 35 SLT 0005 0656 symb: slt 5 1011-ACC: 0000000000 0122100000+, OV: 0 +0656: 27 SET 9057 0930 symb: set 9057 1012- +0930: 15 ALO 0585 0694 symb: alo ccnt1 1013-ccnt1 = card count <- number of cards punched +0694: 15 ALO 0897 0604 symb: alo 1ixxx 1014-incr, now ACC: 0000000000 0122100001+, OV: 0 +0604: 29 STI 1957 0770 symb: sti 1957 1015- + ... Copy 9057-9059 to 1957-1959 (3 words) +0770: 23 SIA 0585 0940 symb: sia ccnt1 1016-store updated ccnt1: Write 0585: 0000000001+ +0940: 27 SET 9040 1045 symb: set 9040 1017- +1045: 09 LDI 1951 0672 symb: ldi 1951 1018-copy read card area to punch card area + ... Copy 1951-1970 to 9040-9059 (20 words) +0672: 20 STL 9048 1030 symb: stl 9048 1019-Write 9048: 0122100001+ +1030: 65 RAL 9050 0687 symb: ral 9050 1020-Read 9050: 1221000000+, ACC: 0000000000 1221000000+, OV: 0 +0687: 10 AUP 9049 1495 symb: aup 9049 1021-Read 9049: 0000908000+, ACC: 0000908000 1221000000+, OV: 0 +1495: 35 SLT 0003 0703 symb: slt 3 1022- +0703: 30 SRT 0003 0762 symb: srt 3 1023- +0762: 47 BOV 0916 0633 symb: bov 1f 1024- ??? +0633: 30 SRT 0002 0639 symb: srt 2 1025-ACC: 0000009080 0012210000+, OV: 0 +0639: 22 SDA 9047 0706 symb: sda 9047 1026-Write 9047: 0012218000+ <- location and card type +0706: 69 LDD 0314 1018 symb: lod instr 1027-Read 0314: 6000240029+ <- assembled instr +1018: 24 STD 9046 0683 symb: std 9046 1028- +0683: 35 SLT 0002 0939 symb: slt 2 1029-ACC: 0000908000 1221000000+, OV: 0 +0939: 17 AML 0046 0901 symb: aml 533tl 2f 1030-read 0046: 0000000000+ +0901: 16 SLO 9050 0709 symb: 2 slo 9050 1033-Read 9050: 1221000000+, Now ACC: 0000908000 0000000000+, OV: 0 +0709: 69 LDD 8003 0671 symb: lod 8003 1034-Read 8003: 0000908000+ +0671: 23 SIA 9049 2028 symb: sia 9049 90003a 1035-Set punch control word (Write 9049: 0000900000), jmp to 0028+IRA, as IRA=* -> jmp to 0028 +0028: 71 WR1 9040 0830 symb: 90003 wr1 9040 9f 1006-punch at last +L: ... Punch Card Unit CDP1 +L: ... Punch Card 9040: 0091929291+ ' 1221' +L: ... Punch Card 9041: 0000000000+ ' ' +L: ... Punch Card 9042: 6161000000+ 'AA ' +L: ... Punch Card 9043: 7961840000+ 'RAU ' +L: ... Punch Card 9044: 0000000000+ ' ' +L: ... Punch Card 9045: 0000000000+ ' ' +L: ... Punch Card 9046: 6000240029+ '~ ~ *' <- instr +L: ... Punch Card 9047: 0012218000+ ' ~~~ ' <-- xx NNNN xxxx location +L: ... Punch Card 9048: 0122100001+ '~~~ ~' <-- xx xxxx NNNN card count +L: ... Punch Card 9049: 0000900000+ ' 0 ' +L: Punch Card: 6I1954195C 0001241221800?600024002I 1221rau aa + +0830: 69 LDD 1448 0851 symb: 9 lod prtsw 1007-Read 1448: 8888888888- +0851: 92 BD2 0554 2027 symb: bd2 9f 90002a 1008-jmp to 9f (no PTR output selected) +0554: 47 BOV 6000 6000 symb: 9 bov 0 c 0 c 1036-clear OV, jmp to IRC=209 +0209: 65 RAL 1962 0067 symb: finis ral progp 0458-finish instr processing. progp=0 -> Acc=0 +0067: 45 NZE 0121 0949 symb: nze 1f 0459-Acc=0 -> jmp to 1f +0949: 60 RAU 0256 0511 symb: 1 rau level 0465-Now ACC: 2407730001 0000000000+, OV: 0 +0511: 24 STD 0215 0674 symb: std kee 0466-??? +0674: 60 RAU 0927 0532 symb: rau corec 0467-???, Now Acc: 0000008999 0000000000+, OV: 0 +0532: 20 STL 0188 0542 symb: stl optim 0468-clear optim var +0542: 21 STU 0096 1049 symb: stu keepp 0469-???, Write 0096: 0000008999+ +1049: 20 STL 0303 0507 symb: stl adend 0470-???, Write 0303: 0000000000+ +0507: 69 LDD 0460 0615 symb: lod carry 0471-Read 0460: 6264980024+ +0615: 24 STD 0223 0526 symb: std keep ssout 0472-??? + +0526: 70 RD1 1999 1998 symb: ssout rd1 1999 start 0474- +L: Read Card: rauaa +L: ... Read Card Unit CDR1 +L: ... Read Card 1951: 0000000000+ ' ' +L: ... Read Card 1952: 6161000000+ 'AA ' +L: ... Read Card 1953: 0000000000+ ' ' +L: ... Read Card 1954: 7961840000+ 'RAU ' +L: ... Read Card 1955: 0000000000+ ' ' +L: ... Read Card 1956: 0000000000+ ' ' +L: ... Read Card 1957: 0000009999+ ' 99' +L: ... Read Card 1958: 0000009999+ ' 99' +L: ... Read Card 1959: 0000009999+ ' 99' +L: ... Read Card 1960: 0000908000+ ' 0~ ' + +1998: 60 RAU 1960 0015 symb: start rau 1960 0127- + + + diff --git a/I650/sw/supersoap/build_ssoap_ramac_src.txt b/I650/sw/supersoap/build_ssoap_ramac_src.txt new file mode 100644 index 000000000..df227b590 --- /dev/null +++ b/I650/sw/supersoap/build_ssoap_ramac_src.txt @@ -0,0 +1,209 @@ + 1 builds supersoap in ramac + 1 using ssoap_loader.dck and + 1 ssoap_main.dck as input + 1 ssoap_core.dck as input + 1 print disc-track saved + + syn 1961 + syn 1962 + syn 1963 + + 1000lodrdld clias start: call clear ias, then jmp to read loader deck + + 1 save main deck in ramac, starting at disk 38, track 00 + + dskad 00 0003 8000 + + 1 clear ias routine + + cliasstdexit0 save exit word + raa 59 ira = 59 + ralzero 1f clear acc + 1 stu 9000a store in 9000+ira + sxa 1 + bmaexit0 1b + + 1 process ssoap loader deck + 1 loader deck will be stored in core in 9000-9039 + 1 last instr of loader deck should have loc 1999 + + rdld rd1 1961 1961 read loader deck card + 1961ral 1951 get word1 (sets card type) + slotyc + nzerdld skip non type c cards + + rau 1953 get word3 (location in da) + slt 2 + srt 6 + stuloc save location + sup9k if >= 9000 jmp to 1f + bmi 1f + + ralloc add core offset so loc 1966 + alocofs becomes 9006 (in core) + stlloc 1f + + 1 ralloc + raa 8002 ira=loc in core + lod 1954 get word4 (instruction word) + std 0000a store at loc + + sloldend if loc!=9039 then + nzerdld cl2 jmp to read next card + + + tyc 69 1954 1953 first word on type c cards + loc 00 0000 0000 soap deck card location + 9k 00 0000 9000 + cofs 00 0000 7040 core offset = 9000 minus 1960 + ldend 00 0000 9039 last addr of loader routine in core + + 1 ssoap loader deck processed + 1 loader deck is now stored in core in 9000-9039 + + 1 process ssoap main deck + 1 loader deck will be stored in core starting at 9040 + 1 when core filled, track is written + 1 main deck should be sorted in location ascending order + 1 last instr of main deck should have loc 1999 + + cl2 raa 0 next main dec loc to store + rab 40 rdma first addr free in core + + rdma rd1 1962 1962 read main deck card + 1962ral 1951 get word1 (sets card type) + slotyc + nzerdma skip non type c cards + + rau 1953 get word3 (location in da) + slt 2 + srt 6 + stuloc save location + sup9k if >= 9000 jmp to error halt + bmi hlt2 + + ralloc if card location < last card + slo 8005 jmp to error halt + bmihlt2 + nze 2f jmp to 2f if ira=loc + + rac 8002 irc=number of zero cards to save to core to arrive to last card location + lodzero store zero in core + stdsvw 1f word to save in core + 1 lod svcor call store in core, B++, A++, write track if core full + sxc 1 + nzc1b 2f jmp to 2f when loc=IRA + + 2 lod 1954 get word4 (instruction word) + stdsvw word to save in core + lod svcor call store in core, B++, A++, write track if core full + + ralloc + slomaend if loc!=1999 then + nzerdma cl3 jmp to read next card + + + 1 ssoap main deck processed + 1 main supersoap program is now stored in ramac + 1 tracks 00-33 + + 1 process ssoap core deck + 1 these decks goes to tracks 34-66. deck loads to + 1 9000-9059, final cdd pseudo op stores it to given track + + cl3 lddrdco clias clear ias + + rdco rd1 1963 1963 read core deck card + 1963ral 1951 get word1 (sets card type) + slotya is type-a card + nze1f if not, then jmp to type-c check + + ral 1955 get word5 (loc+opcode, as digits) + srt 5 + sloii38 is 00038xxxxx + nze1f if not, then jmp to type-c check + + ral 1955 is cdd, so get track + srt 3 + slt 1 + stldskad + lod svtr call save track routine + + rau 1955 if saved disk 38, track 66 + supii38b then jmp to cl4 (load core finished) + nzucl3 cl4 else jmp to clear ias to read next track + + 1 ral 1951 + slotyc + nzerdco skip non type c cards + + rau 1953 get word3 (location in da) + slt 2 + srt 6 + stuloc save location + sup9k if < 9000 jmp to read next card + bmirdco + + ralloc is 9000 word, store in ias + raa 8002 ira=loc in core + lod 1954 get word4 (instruction word) + std 0000ardco store at loc, jmp to read next card + + tya 00 0000 8000 first word on type a cards + ii38 00 0000 0038 + ii38b 00 0386 6000 + + 1 finish ok. main deck loaded in ramac, with load routine + + cl4 ral 9000 read from ias to force the cpu to wait on ias + interlock up to last write pending in ramac has + finished before halting the cpu + hlt 0000 9898 finish ok + + hlt1 hlt 1111 9999 cards at loc 90XX not allowd in main deck + hlt2 hlt 2222 9999 last card is not in ascending order + + zero 00 0000 0000 + maend 00 0000 1999 last addr of main deck in drum + + 1 call store in core, incr irb, incr ira, write track if core full + + svcorstdexit0 save exit word + lodsvw load word + std 9000b and save in core + axa 1 incr ira + axb 1 incr irb + ral 8006 if irb<60 + slocoful then exit + nzeexit0 1f + + svtr stdexit0 1f save core to track + 1 loddskad core full. seek ramac address to save core + sds 9000 + wds 9000 write core in ramac at address dskad + + raldskad punch track saved + slt 5 as dd tt00 0000 + stl 1977 where dd=disk number=38 + rauzero tt=track number from 00 to 33 + std 1978 + std 1979 + std 1980 + std 1981 + std 1982 + std 1983 + std 1984 + wr1 1977 + + raldskad increment track number for next write + alonxtr + stldskad + rab 0 exit0 core saved. reset irb (core empty again) and exit + + + exit0 00 0000 0000 routine return jmp to saved exit word + svw 00 0000 0000 word to save in core + coful 00 0000 0060 core is full + nxtr 00 0000 0010 to increment track number + + end diff --git a/I650/sw/supersoap/ssoap.txt b/I650/sw/supersoap/ssoap.txt new file mode 100644 index 000000000..b7e462e5a --- /dev/null +++ b/I650/sw/supersoap/ssoap.txt @@ -0,0 +1,3565 @@ +0001 1 S U P E R S O A P PAGE 1 +0002 1 AUGUST 15, 1959 9/12/60 +0003 1 CASE INSTITUTE OF TECHNOLOGY +0004 1 DONALD E KNUTH +0005 1 +0006 1 LOCAFIER 3800-33 MAIN PROGRAM +0007 DON +0008 HMO +0009 BLR 0 5 +0010 SYN 21 +0011 BLR 32 39 +0012 BLR 44 45 +0013 SYN 60 +0014 SYN 79 +0015 SYN 88 +0016 SYN 92 +0017 BLR 98 99 +0018 SYN 111 +0019 BLR 198 199 +0020 SYN 200 +0021 BLR 217 220 +0022 SYN 222 +0023 SYN 234 +0024 SYN 240 +0025 SYN 300 +0026 SYN 302 +0027 SYN 444 +0028 BLR 455 472 +0029 SYN 476 +0030 SYN 488 +0031 SYN 498 +0032 SYN 500 +0033 SYN 588 +0034 SYN 598 +0035 BLR 609 610 +0036 SYN 666 +0037 BLR 668 670 +0038 BLR 678 681 +0039 BLR 688 689 +0040 BLR 698 699 +0041 BLR 711 719 +0042 BLR 721 729 +0043 BLR 732 749 +0044 SYN 777 +0045 SYN 800 +0046 SYN 829 +0047 BLR 888 889 +0048 BLR 896 900 +0049 SYN 900 +0050 BLR 950 1011 950.. are entry points for pseudoops. DEL is 0982 +0051 BLR 1550 1999 +0052 A0001 EQU 1750 AVAILABILITY TABLE +0053 B0000 BLR 445 454 +0054 C0001 BLR 623 C0006 +0055 E0001 BLR 1050 E0147 +0056 F0000 BLR 513 522 +0057 N0001 BLR 342 441 OPTIMIZATION TABLE +0058 O0001 EQU 1550 +0059 Q0001 BLR 117 149 +0060 R0001 EQU 651 +0061 S0001 BLR 1200 S0294 SYMBOL TABLE +0062 T0001 BLR 844 849 +0063 U0001 BLR 944 945 +0064 V0001 BLR 1505 V0025 +0065 W0001 BLR 852 887 +0066 Z0000 BLR 555 582 +0067 00001 BLR 303 334 +0068 10001 BLR 150 195 +0069 20001 BLR 917 926 +0070 30000 BLR 250 299 +0071 40001 BLR 780 797 +0072 50001 BLR 477 50010 +0073 60000 BLR 800 60021 +0074 70001 BLR 1020 70008 +0075 90000 BLR 25 28 +0076 533TL BLR 46 49 +0077 BLA 998 998 +0078 BLA 1049 1049 +0079 BLA 1074 1074 +0080 BLA 1124 1124 +0081 BLA 1149 1149 +0082 BLA 1174 1174 +0083 MASTR SYN 69 +0084 PUNCH EQU 219 +0085 DDIFF SYN 798 +0086 HLT11 SYN 827 +0087 1IKKK EQU 897 +0088 PSUDO EQU 976 +0089 READA EQU 999 +0090 DUMP8 SYN 1544 +0091 DUMP9 SYN 1547 +0092 LOCAT EQU 1961 +0093 PROGP EQU 1962 +0094 HLT44 EQU 1994 +0095 HLT55 EQU 1995 +0096 HLT88 EQU 1997 +0097 START EQU 1998 +0098 CARRY EQU F9947 +0099 DISKC EQU O0049 +0100 FIVON EQU O0063 +0101 OTEND EQU O0162 +0102 DISKR EQU S0049 +0103 68M41 EQU S0099 +0104 ONESW EQU S0250 +0105 PRTSW EQU S0249 +0106 BLRTG SYN V0026 +0107 ADEND EQU 00001 +0108 DTAGG EQU 00005 +0109 INSTR EQU 00012 +0110 EXIT0 EQU 00021 +0111 OPTIM EQU 10039 +0112 MODET EQU 10007 +0113 BASEX EQU 10041 +0114 LEVEL EQU 30006 +0115 LOCUS EQU 40001 +0116 FWAXX EQU 40001 +0117 FIVTG EQU 50001 +0118 HLT33 EQU OTEND 9300 +0119 SYN C0201 +0120 SYN 60039 +0121 BLA Q0005 Q0005 +0122 BLA 00018 00018 +0123 BLA 60002 60002 +0124 1 +0125 1 I BEGINNING OF ASSEMBLY +0126 1 +0127 START RAU 1960 1998 +60 1960 0015 1960=control word for read cards +0128 SLT 9 1F 0015 +35 0009 0085 +0129 1 STL 533TL 0085 +20 0046 0249 533TL=0 +0130 SRT 9 0249 +30 0009 0055 +0131 RAA 8003 0055 +80 8003 0077 IRA=card type +0132 SXA 5 0077 +51 0005 0084 +0133 BMA 5 A 0 0084 +41 2005 0000 jmp to addr 0..4 depending on type card. types >4 jmp to addr 0 (same as casr type 0) +0134 0 RAU 1954 1F 0000 +60 1954 0009 read opcode for card type 0 +0135 1 RAC READA PSUDO 0001 +88 0999 0976 process card type 1 (comment): punch non-code card, then jmp to reada +0136 2 RAL 8F 1B 0002 +65 0031 0085 process card type 2 (generate no code) +0137 3 LOD ATON PUTAG 0003 +69 0087 0097 process card type 3 (no dup card) +0138 ATON RAU 1954 1F 0087 +60 1954 0009 +0139 4 RAL 8F 1B 0004 +65 0031 0085 process card type 4 (same as type 2) +0140 PUTAG STD 0 1 0097 +24 0000 0001 +0141 1 RAA 0 0009 +80 0000 0014 process card type 0: IRA=0 +0142 RAB 1 0F 0014 +82 0001 0019 IRB=1 (irb=tab being processed) +0143 0 SRT 2 0019 +30 0002 0075 +0144 SUP 8003 0075 +11 8003 0083 Get Tag in Acc=0..0 NN 0000 0000 +0145 NZE 9F 0083 +45 0086 0237 if NO ITag jmp to 9f +0146 STD 9000 0086 +24 9000 0042 process Tag +0147 SLT 1 0042 +35 0001 0050 +0148 NZU 7F 0050 +44 0053 0054 +0149 SUP 8003 0053 +11 8003 0011 +0150 SLO 400P 0011 +16 0064 0619 +0151 BMI 2F 0619 +46 0024 0023 +0152 ALO 8001 0024 +15 8001 0082 +0153 AXA 1 0082 +50 0001 0242 +0154 ALO 8002 7F 0242 +15 8002 0054 +0155 7 SRT 6 1F 0054 +30 0006 0029 +0156 9 AUP 8001 4F 0237 +10 8001 0095 +0157 1 AUP 9000 4F 0029 +10 9000 0095 +0158 4 LOD LDI41 3F 0095 +69 0248 0051 +0159 2 NZE 7B 0023 +45 0054 0078 +0160 AUP 9000 0078 +10 9000 0337 +0161 LOD O0091 3F 0337 +69 1640 0051 +0162 3 SIA DTAGGB 0051 +23 4307 0061 +0163 NZB 1F 0061 +42 0114 0065 jmp to 1f if tags processed. Acc=00 00 op co de 0..0 +0164 SXB 1 0B 0114 +53 0001 0019 +0165 1 NZU 1 0065 +44 0229 0001 if opcode blank then jmp to 0001 (comment card) +0166 SRT 4 0229 +30 0004 0238 now acc= 00 0000 00op co de00 0000 +0167 NZU 2F 0238 +44 0043 0094 jmp to 2f if first char of opcode blank (is a number, not a menmonic) +0168 SRT 2 0043 +30 0002 0499 now acc=0..0 op code 0000 +0169 SLO 8002 0499 +16 8002 0007 clear acc, opcode in distrib +0170 STD OTEND 0007 +24 1711 0197 store at end of search sentinel +0171 TLE O0001 0197 +63 1550 0214 search mnemonic table: acc=0..0 00 DADA 0000 -> DADA=addr found +0172 SLO OBASE 0214 +16 0017 0071 AccLo=610000 if opcode found +0173 BMI 3F 0071 +46 0227 0225 jmp to 3f if machine opcode +0174 SRT 4 8F 0225 +30 0004 0031 AccLo=index into opcode table, starting at 1650 +0175 8 ALO SUDOM 8002 0031 +15 0235 8002 jmp to AccLo+950, then jmp to 200 +0176 SUDOM RAC 200 950 0235 +88 0200 0950 +0177 2 SLO N0058 0094 +16 0399 0006 +0178 SLT 2 0006 +35 0002 0016 +0179 SLO 8002 0016 +16 8002 0228 +0180 SRT 1 0228 +30 0001 0089 +0181 ALO 8001 MACHN 0089 +15 8001 0059 +0182 3 ALO N0052 0227 +15 0393 0548 +0183 SLT 4 MACHN 0548 +35 0004 0059 +0184 MACHN STL INSTR 0059 +20 0314 0074 PAGE 4 +0185 AUP OPTIM 0074 +10 0188 0245 +0186 NZU 3F 0245 +44 0100 0549 +0187 SLT 2 0549 +35 0002 0105 +0188 RAC 8003 0105 +88 8003 0013 +0189 RAU N0001C 0013 +60 6342 0012 +0190 LOD 8005 0012 +69 8005 0020 +0191 STD LINCR PROCL 0020 +24 0073 0076 +0192 3 RAU 8001 0100 +60 8001 0057 +0193 STL LINCR PROCL 0057 +20 0073 0076 +0194 400P 40 0 0 0064 +40 0000 0000 +0195 OBASE 00 O0101 0 0017 +00 1650 0000 +0196 1 +0197 950 RAL N0013 MACHN 0950 +65 0354 0059 +0198 951 RAL N0027 MACHN 0951 +65 0368 0059 +0199 952 RAL N0028 MACHN 0952 +65 0369 0059 +0200 962 RAL N0090 MACHN 0962 +65 0431 0059 +0201 1 +0202 955 RAM O0072 1F 0955 +67 1621 0040 +0203 986 RAM O0071 1F 0986 +67 1620 0040 +0204 956 RAM O0056 1F 0956 +67 1605 0040 +0205 957 RAM O0091 1F 0957 +67 1640 0040 +0206 958 RAM O0070 1F 0958 +67 1619 0040 +0207 1 STL 9000 0040 +20 9000 0599 +0208 RAL 1954 0599 +65 1954 0066 +0209 LOD 9000 0066 +69 9000 0648 +0210 SIA 1954 0 0648 +23 1954 0000 +0211 1 +0212 COR 1550 +0213 0 ALF NOP THINK SYMBOLIC 1550 +75 7677 0000 +0214 0 ALF HLT THINK OPERATIONS 1551 +68 7383 0000 +0215 0 ALF UFA THINK TABLE 1552 +84 6661 0000 +0216 0 ALF RTC THINK 1553 +79 8363 0000 +0217 0 ALF RTN THINK 1554 +79 8375 0000 +0218 0 ALF RTA THINK 1555 +79 8361 0000 +0219 0 ALF WTN THINK 1556 +86 8375 0000 +0220 0 ALF WTA THINK 1557 +86 8361 0000 +0221 0 ALF LIB THINK 1558 +73 6962 0000 +0222 0 ALF LDI THINK 1559 +73 6469 0000 +0223 0 ALF AUP THINK 1560 +61 8477 0000 +0224 0 ALF SUP THINK 1561 +82 8477 0000 +0225 7 0 60 0 0 FOR DISKR 1562 +60 0000 0000 +0226 7 0 60 0 501 FOR DISKR1 1563 +60 0000 0501 +0227 0 ALF DIV THINK 1564 +64 6985 0000 +0228 0 ALF ALO THINK 1565 +61 7376 0000 +0229 0 ALF SLO THINK 1566 +82 7376 0000 +0230 0 ALF AML THINK 1567 +61 7473 0000 +0231 0 ALF SML THINK 1568 +82 7473 0000 +0232 0 ALF MPY THINK 1569 +74 7788 0000 +0233 0 ALF STL THINK 1570 +82 8373 0000 +0234 0 ALF STU THINK 1571 +82 8384 0000 +0235 0 ALF SDA THINK 1572 +82 6461 0000 +0236 0 ALF SIA THINK 1573 +82 6961 0000 +0237 0 ALF STD THINK 1574 +82 8364 0000 +0238 0 ALF NTS THINK 1575 +75 8382 0000 +0239 0 ALF BIN THINK 1576 +62 6975 0000 +0240 0 ALF SET THINK 1577 +82 6583 0000 +0241 0 ALF SIB THINK 1578 +82 6962 0000 +0242 0 ALF STI THINK 1579 +82 8369 0000 +0243 0 ALF SRT THINK 1580 +82 7983 0000 +0244 0 ALF SRD THINK 1581 +82 7964 0000 +0245 0 ALF FAD THINK 1582 +66 6164 0000 PAGE 5 +0246 0 ALF FSB THINK 1583 +66 8262 0000 +0247 0 ALF FDV THINK 1584 +66 6485 0000 +0248 0 ALF SLT THINK 1585 +82 7383 0000 +0249 0 ALF SCT THINK 1586 +82 6383 0000 +0250 0 ALF FAM THINK 1587 +66 6174 0000 +0251 0 ALF FSM THINK 1588 +66 8274 0000 +0252 0 ALF FMP THINK 1589 +66 7477 0000 +0253 0 ALF NZA THINK 1590 +75 8961 0000 +0254 0 ALF BMA THINK 1591 +62 7461 0000 +0255 0 ALF NZB THINK 1592 +75 8962 0000 +0256 0 ALF BMB THINK 1593 +62 7462 0000 +0257 0 ALF NZU THINK 1594 +75 8984 0000 +0258 0 ALF NZE THINK 1595 +75 8965 0000 +0259 0 ALF BMI THINK 1596 +62 7469 0000 +0260 0 ALF BOV THINK 1597 +62 7685 0000 +0261 COR 1600 +0262 0 ALF AXA THINK 1600 +61 8761 0000 +0263 0 ALF SXA THINK 1601 +82 8761 0000 +0264 0 ALF AXB THINK 1602 +61 8762 0000 +0265 0 ALF SXB THINK 1603 +82 8762 0000 +0266 0 ALF NEF THINK 1604 +75 6566 0000 +0267 0 ALF RWT THINK 1605 +79 8683 0000 +0268 0 ALF WTM THINK 1606 +86 8374 0000 +0269 0 ALF BST THINK 1607 +62 8283 0000 +0270 0 ALF AXC THINK 1608 +61 8763 0000 +0271 0 ALF SXC THINK 1609 +82 8763 0000 +0272 0 ALF RAU THINK 1610 +79 6184 0000 +0273 0 ALF RSU THINK 1611 +79 8284 0000 +0274 0 88 8888 5 FIVON 1612 +88 8888 0005 +0275 0 ALF TLE THINK 1613 +83 7365 0000 +0276 0 ALF DVR THINK 1614 +64 8579 0000 +0277 0 ALF RAL THINK 1615 +79 6173 0000 +0278 0 ALF RSL THINK 1616 +79 8273 0000 +0279 0 ALF RAM THINK 1617 +79 6174 0000 +0280 0 ALF RSM THINK 1618 +79 8274 0000 +0281 0 ALF LOD THINK 1619 +73 7664 0000 +0282 0 ALF RD1 THINK 1620 +79 6491 0000 +0283 0 ALF WR1 THINK 1621 +86 7991 0000 +0284 0 ALF RC1 THINK 1622 +79 6391 0000 +0285 0 ALF RD2 THINK 1623 +79 6492 0000 +0286 0 ALF WR2 THINK 1624 +86 7992 0000 +0287 0 ALF RC2 THINK 1625 +79 6392 0000 +0288 0 ALF RD3 THINK 1626 +79 6493 0000 +0289 0 ALF WR3 THINK 1627 +86 7993 0000 +0290 0 ALF RC3 THINK 1628 +79 6393 0000 +0291 0 ALF RPY THINK 1629 +79 7788 0000 +0292 0 ALF RAA THINK 1630 +79 6161 0000 +0293 0 ALF RSA THINK 1631 +79 8261 0000 +0294 0 ALF RAB THINK 1632 +79 6162 0000 +0295 0 ALF RSB THINK 1633 +79 8262 0000 +0296 0 ALF TLU THINK 1634 +83 7384 0000 +0297 0 ALF SDS THINK 1635 +82 6482 0000 +0298 0 ALF RDS THINK 1636 +79 6482 0000 +0299 0 ALF WDS THINK 1637 +86 6482 0000 +0300 0 ALF RAC THINK 1638 +79 6163 0000 +0301 0 ALF RSC THINK 1639 +79 8263 0000 +0302 0 ALF BD0 THINK 1640 +62 6490 0000 +0303 0 ALF BD1 THINK 1641 +62 6491 0000 +0304 0 ALF BD2 THINK 1642 +62 6492 0000 +0305 0 ALF BD3 THINK 1643 +62 6493 0000 +0306 0 ALF BD4 THINK 1644 +62 6494 0000 +0307 0 ALF BD5 THINK 1645 +62 6495 0000 +0308 0 ALF BD6 THINK 1646 +62 6496 0000 +0309 0 ALF BD7 THINK 1647 +62 6497 0000 +0310 COR 1650 +0311 0 ALF NZC THINK 1650 +75 8963 0000 +0312 0 ALF BMC THINK 1651 +62 7463 0000 +0313 0 ALF BD8 THINK 1652 +62 6498 0000 +0314 0 ALF EQU THINK 1653 +65 7884 0000 equ routine at 953 +0315 0 ALF PST THINK 1654 +77 8283 0000 +0316 0 ALF PCH THINK 1655 +77 6368 0000 +0317 0 ALF RWD THINK 1656 +79 8664 0000 +0318 0 ALF BDO THINK 1657 +62 6476 0000 +0319 0 ALF LDD THINK 1658 +73 6464 0000 +0320 0 ALF ALF THINK 1659 +61 7366 0000 +0321 0 ALF SYN THINK 1660 +82 8875 0000 +0322 0 ALF BLR THINK 1661 +62 7379 0000 +0323 0 ALF BD9 THINK 1662 +62 6499 0000 +0324 0 ALF BLA THINK 1663 +62 7361 0000 +0325 0 ALF UND THINK 1664 +84 7564 0000 +0326 0 ALF COR THINK 1665 +63 7679 0000 +0327 0 ALF DRC THINK 1666 +64 7963 0000 +0328 0 ALF COD THINK 1667 +63 7664 0000 +0329 0 ALF SKP THINK 1668 +82 7277 0000 +0330 0 ALF CC5 THINK 1669 +63 6395 0000 +0331 0 ALF SER THINK 1670 +82 6579 0000 +0332 0 ALF DUP THINK 1671 +64 8477 0000 +0333 0 ALF PUD THINK 1672 +77 8464 0000 +0334 0 ALF OPT THINK 1673 +76 7783 0000 +0335 0 ALF HED THINK 1674 +68 6564 0000 +0336 0 ALF SCR THINK 1675 +82 6379 0000 +0337 0 ALF END THINK 1676 +65 7564 0000 end routine at 976 +0338 0 ALF ONE THINK 1677 +76 7565 0000 +0339 0 ALF PRT THINK 1678 +77 7983 0000 +0340 0 ALF TAP THINK 1679 +83 6177 0000 +0341 0 ALF DSK THINK 1680 +64 8272 0000 +0342 0 ALF CDD THINK 1681 +63 6464 0000 +0343 0 ALF DEK THINK 1682 +64 6572 0000 +0344 0 ALF PLR THINK 1683 +77 7379 0000 +0345 0 ALF PAT THINK 1684 +77 6183 0000 +0346 0 ALF NMO THINK 1685 +75 7476 0000 +0347 0 ALF RCD THINK 1686 +79 6364 0000 +0348 0 ALF MRK THINK 1687 +74 7972 0000 +0349 0 ALF CC1 THINK 1688 +63 6391 0000 +0350 0 ALF PAL THINK 1689 +77 6173 0000 +0351 0 ALF HMO THINK 1690 +68 7476 0000 +0352 0 ALF MMO THINK 1691 +74 7476 0000 +0353 0 ALF NXT THINK 1692 +75 8783 0000 +0354 0 ALF ADN THINK 1693 +61 6475 0000 +0355 0 ALF DON THINK 1694 +64 7675 0000 +0356 0 ALF CON THINK 1695 +63 7675 0000 +0357 0 ALF FIL THINK 1696 +66 6973 0000 +0358 0 ALF FIV THINK 1697 +66 6985 0000 +0359 COR 1700 +0360 0 ALF BOP THINK 1700 +62 7677 0000 +0361 0 ALF COF THINK 1701 +63 7666 0000 +0362 0 ALF DOF THINK 1702 +64 7666 0000 +0363 0 ALF DMO THINK 1703 +64 7476 0000 +0364 0 ALF 00A THINK 1704 +90 9061 0000 +0365 0 ALF PDL THINK 1705 +77 6473 0000 +0366 0 ALF SAT THINK 1706 +82 6183 0000 +0367 0 ALF LAT THINK 1707 +73 6183 0000 PAGE 7 +0368 0 ALF SST THINK 1708 +82 8283 0000 +0369 0 ALF LST THINK 1709 +73 8283 0000 +0370 0 ALF RPQ SMILE 1710 +79 7778 0000 +0371 COR +0372 1 +0373 1 II PROCESSING OF INSTRUCTIONS +0374 1 +0375 PROCL RSB 1 0076 +83 0001 0232 IRB=-1 +0376 STU OPTIM 0232 +21 0188 0041 +0377 RSC 275 0041 +89 0275 0247 IRC=-275 +0378 RAL 1951 0247 +65 1951 0056 Acc=0..0 Car read area Location +0379 LOD CARRY 0056 +69 0460 0063 +0380 NZE 1F 0063 +45 0116 0070 jmp to 1f if location blank +0381 BD6 MASTR HLT77 0116 +96 0069 0224 proess master addr +0382 1 BD6 HLT66 777 0070 +96 0474 0777 if carry pos6=8 -> no addr from prev instr -> halt666 +0383 777 RAL 8001 0777 +65 8001 0495 +0384 LOD O0002 0495 +69 1551 0104 +0385 STD CARRY 0104 +24 0460 0524 +0386 SET 9000 0524 +27 9000 0093 +0387 LDI 00001 9018 0093 +09 0303 9018 +0388 25 STL LOCUS 38 A 0025 +20 0780 2038 +0389 36 ALO CDIFF 0036 +15 0090 0205 +0390 AUP COREQ 1F 0205 +10 0115 0320 +0391 37 AUP 8001 0037 +10 8001 0545 +0392 ALO DDIFF 1F 0545 +15 0798 0320 +0393 38 HLT Q0007 Q0007 0038 +01 0123 0123 +0394 Q0007 RAL 8003 1F 0123 +65 8003 0320 +0395 39 STL 533TL 0039 +20 0046 0107 +0396 AUP 80XEQ 1F 0107 +10 0113 0320 +0397 1 AUP LINCR 0320 +10 0073 0030 +0398 STU BASEX 0030 +21 0190 0243 +0399 SLT 6 0243 +35 0006 0505 +0400 STL LOCAT 0505 +20 1961 0018 +0401 RAL 9011 0018 +65 9011 0226 +0402 SLO SUDOM 0226 +16 0235 0239 +0403 NZE PROCD ALFOT 0239 +45 0443 0948 +0404 LMAST RSB 1 LMST2 0442 +83 0001 0998 +0405 LMST2 RAL 1951 MASTR 0998 +65 1951 0069 +0406 CARRY ALF YYYYY THINK 0460 +88 8888 8888 +0407 COREQ ALF THINK 0115 +00 0000 0000 +0408 80XEQ ALF THINK 0113 +00 0000 0000 +0409 79 LOD O0002 0079 +69 1551 0340 +0410 STD CARRY MASTR 0340 +24 0460 0069 +0411 1 +0412 PROCD RSC 255 DMAST 0443 +89 0255 0649 +0413 DMAST RAL 1952 DMST1 0649 +65 1952 0614 +0414 DMST1 RAB 0 MASTR 0614 +82 0000 0069 +0415 45 LOD 9011 0045 +69 9011 0101 +0416 SLT 4 0101 +35 0004 0109 +0417 SDA INSTR 0109 +22 0314 0022 +0418 SRT 4 34 A 0022 +30 0004 2034 +0419 35 RAA 8002 C8XEQ 0035 +80 8002 0236 +0420 C8XEQ LOD CODDL 0236 +69 0339 0492 +0421 RAC 8002 0339 +88 8002 0072 +0422 DIV 9008 0072 +14 9008 0211 +0423 NZU 1F 0211 +44 0487 0537 +0424 SXA 9011 2F 0537 +51 9011 0493 +0425 1 SXA 9009 2F 0487 +51 9009 0493 +0426 2 NZA 1F 0493 +40 0052 0497 +0427 AXC 1 1F 0497 +58 0001 0052 +0428 1 RAL 8007 609 B 0052 +65 8007 4609 PAGE 8 +0429 609 STD 80XEQ 34 0609 +24 0113 0034 +0430 610 STD 80XEQ 219 0610 +24 0113 0219 +0431 32 LOD CODDL 0032 +69 0338 0492 +0432 STL COREQ 34 0338 +20 0115 0034 +0433 33 LOD OPTIM 3F 0033 +69 0188 0091 +0434 34 LOD OPTIM 3F 0034 +69 0188 0091 +0435 3 BD1 PROCI 0091 +91 0244 0062 +0436 STL BASEX PROCI 0062 +20 0190 0244 +0437 1 +0438 PROCI RSC 256 IMAST 0244 +89 0256 0550 +0439 IMAST RAL 1953 IMST1 0550 +65 1953 0664 +0440 IMST1 RAB 1 MASTR 0664 +82 0001 0069 +0441 44 LOD 9011 ALFIN 0044 +69 9011 0600 +0442 ALFIN SIA 9011 0600 +23 9011 0207 +0443 LOD 1960 0207 +69 1960 0764 +0444 BD6 1F 0764 +96 0622 0527 +0445 RAL 9011 2F 0527 +65 9011 0241 +0446 1 RSL 9011 0622 +66 9011 0080 +0447 NZE 2F 0080 +45 0241 0587 +0448 ALO 9000 0587 +15 9000 0595 +0449 NZE 3F 0595 +45 0008 0799 +0450 RSU 9001 3F 0799 +61 9001 0008 +0451 2 ALO 9000 3F 0241 +15 9000 0008 +0452 3 STL INSTR 219 A 0008 +20 0314 2219 +0453 218 RAL FIVTG PNCH1 0218 +65 0477 0081 +0454 217 LOD CODDL 0217 +69 0231 0492 +0455 STL COREQ 219 0231 +20 0115 0219 +0456 220 RAA 8002 C8XEQ 0220 +80 8002 0236 +0457 1 +0458 FINIS RAL PROGP 0209 +65 1962 0067 +0459 NZE 1F 0067 +45 0121 0949 +0460 RAA 8001 0121 +80 8001 0677 +0461 RAL LOCUS 0677 +65 0780 0335 +0462 LOD O0139 0335 +69 1688 0341 +0463 SIA B0000A 0341 +23 2445 0058 +0464 STU PROGP 1F 0058 +21 1962 0949 +0465 1 RAU LEVEL 0949 +60 0256 0511 +0466 STD KEE 0511 +24 0215 0674 +0467 RAU COREC 0674 +60 0927 0532 +0468 STL OPTIM 0532 +20 0188 0542 +0469 STU KEEPP 0542 +21 0096 1049 +0470 STL ADEND 1049 +20 0303 0507 +0471 LOD CARRY 0507 +69 0460 0615 +0472 STD KEEP SSOUT 0615 +24 0223 0526 +0473 READA RD1 1999 START 0999 +70 1999 1998 +0474 SSOUT RD1 1999 START 0526 +70 1999 1998 +0475 PROGP ALF THINK 1962 +00 0000 0000 +0476 1 +0477 1 III MASTER ADDRESS CALCULATOR +0478 1 +0479 HED . +0480 MASTR STL TEMP 0069 +20 0473 0676 +0481 LOD 8007 0676 +69 8007 0632 +0482 STD 00032 0632 +24 0334 0490 +0483 SLT 2 0490 +35 0002 1149 +0484 SET 9000 1149 +27 9000 0106 +0485 LDI Q0001 0106 +09 0117 0103 +0486 LDI Z0001 0103 +09 0556 0535 +0487 NZE 9002 0535 +45 9002 0489 +0488 BMC 9005 0489 +49 1048 9005 +0489 RAL CARRY 1048 +65 0460 0665 PAGE 9 +0490 BD6 9000 0665 +96 0068 9000 +0491 RSA 53 9040 0068 +81 0053 9040 +0492 Q0008 DRC 9007 +0493 9002 NZU 1F 9002 0119 +44 9007 9008 +0494 ALO 90I 1F 9007 0124 +15 9009 9008 +0495 1 SUP 8003 9008 0125 +11 8003 9010 +0496 RAA 8001 1F 9010 0127 +80 8001 9011 +0497 1 SUP 8003 9011 0128 +11 8003 9012 +0498 NZE 1F 9012 0129 +45 9013 9014 +0499 STD 9006 9013 0130 +24 9006 9015 +0500 ALO 100P 9015 0132 +15 9016 9017 +0501 NZU 2F 9017 0134 +44 9018 9019 +0502 SUP 8003 9018 0135 +11 8003 9020 +0503 SLT 1 9020 0137 +35 0001 9021 +0504 AUP 9006 9021 0138 +10 9006 9022 +0505 SLT 1 1B 9022 0139 +35 0001 9011 +0506 1 RAL 8001 9014 0131 +65 8001 9023 +0507 NZA 9005 9023 0140 +40 9024 9005 +0508 SRT 1 9024 0141 +30 0001 9025 +0509 BOV KKKK4D 9025 0142 +47 0102 9026 +0510 ALO R0000A 9026 0143 +15 2650 9027 +0511 BD6 HLT44D 9000 9027 0144 +96 1994 9000 +0512 9005 BOV HLT88D 9000 9005 0122 +47 1997 9000 +0513 2 SXA 90 9019 0136 +51 0090 9028 +0514 BMA SYMBLD 9028 0145 +41 0620 9029 +0515 SLO 1B39 9029 0146 +16 9030 9031 +0516 NZE 9033 9031 0148 +45 9032 9033 +0517 SLO 9035 9034 9032 0149 +16 9035 9034 +0518 9000 LDI 00001 9029 9000 0117 +09 0303 9029 +0519 9001 LDI 10001 D 9001 0118 +09 0150 0202 +0520 LOD DTAGGB FARBLD 0202 +69 4307 0112 +0521 90I 00 0 90 9009 0126 +00 0000 0090 +0522 100P 10 0 0 9016 0133 +10 0000 0000 +0523 1B39 10 0 90 9030 0147 +10 0000 0090 +0524 1 +0525 Z0009 DRC 9041 +0526 9035 ALF B THINK 9035 0558 +62 0000 0000 +0527 9034 NZE 4F 9034 0557 +45 9041 9042 +0528 SLO 4OP 9041 0564 +16 9043 9044 +0529 NZE SYMBL 9044 0567 +45 0620 9045 +0530 BOV KKKK2D 9045 0568 +47 0650 9046 +0531 RAL F0000A 9059 9046 0569 +65 2513 9059 +0532 9059 BD6 9000 9059 0582 +96 9047 9000 +0533 BMC HLT55D 9047 0570 +49 9048 1995 +0534 BMB HLT88 9040 9048 0571 +43 1997 9040 +0535 9040 SCT 1 9001 9040 0563 +36 0001 9001 +0536 9033 BOV KKKK3D 9033 0556 +47 0201 9049 +0537 BMC 9037B HLT55 9049 0572 +49 9437 1995 +0538 9038 RAL LOCUS 9000 9038 0561 +65 0780 9000 +0539 9037 RAL LOCUS 9000 9037 0560 +65 0780 9000 +0540 9036 RAL F0000A 2F 9036 0559 +65 2513 9050 +0541 4 BOV KKKK3 9042 0565 +47 0201 9051 +0542 RAL B0000A 9051 0574 +65 2445 9052 +0543 BD6 HLT88 9000 9052 0575 +96 1997 9000 +0544 9039 NZU 3F 9000 9039 0562 +44 9053 9000 +0545 3 SRT 4 9000 9053 0576 +30 0004 9000 +0546 2 SLT 4 9050 0573 +35 0004 9054 +0547 ALO 8005 9054 0577 +15 8005 9055 +0548 LOD O0002 9055 0578 +69 1551 9056 +0549 STD F0000A D 9056 0579 +24 2513 0605 +0550 STL PROGP D 0605 +20 1962 0765 PAGE 10 +0551 BD0 9040 3B 0765 +90 9040 9053 +0552 4OP 04 0 0 9043 0566 +04 0000 0000 +0553 9058 RAC 9007 9058 0581 +88 9007 9057 +0554 NZC FARIND 829 9057 0580 +48 0607 0829 +0555 COR +0556 300 RAM 8000 0300 +67 8000 1198 +0557 SET 9000 Q0001 1198 +27 9000 0117 +0558 1 +0559 SYMBL RAU TEMP SYMB1 0620 +60 0473 0230 +0560 SYMB1 SLT 8 0230 +35 0008 0547 +0561 NZU 1F 0547 +44 0203 0204 +0562 RAU 8001 0204 +60 8001 0611 +0563 AUP 0000H 0611 +10 0914 0769 +0564 SUP 8003 2F 0769 +11 8003 0540 +0565 1 SLT 2 2F 0203 +35 0002 0540 +0566 2 STD S0294 0540 +24 1493 0196 +0567 TLE S0001 0196 +63 1200 0617 +0568 SLO Q0004 0617 +16 0120 0475 +0569 BOV EQUSY 0475 +47 0590 0530 +0570 BMI 3F 0530 +46 0233 0534 +0571 BMC 9001 0534 +49 9001 0538 +0572 NZC HLT55 896 B 0538 +48 1995 4896 +0573 3 NZC DIVID 897 B 0233 +48 0336 4897 +0574 DIVID DIV 2D 0336 +14 0539 1199 +0575 RAA 8002 1199 +80 8002 0774 +0576 RSU 8003 0774 +61 8003 0531 +0577 ALO E0147A 9039 0531 +15 3196 9039 +0578 2D 00 2 0 0539 +00 0002 0000 +0579 Q0004 00 S0294 0 0120 +00 1493 0000 +0580 1 +0581 O0022 DRC 9021 +0582 9029 RAC 9031 9018 9029 0332 +88 9031 9018 +0583 - 9002 19 9900 1 9002 0305 -19 9900 0001 +0584 9003 79 9980 0 9003 0306 +79 9980 0000 +0585 9006 80 0700 1 9006 0309 +80 0700 0001 +0586 9007 89 9900 0 9007 0310 +89 9900 0000 +0587 - 9008 90 5900 2 9008 0311 -90 5900 0002 +0588 - 9009 90 9900 3 9009 0312 -90 9900 0003 +0589 9010 99 9900 0 9010 0313 +99 9900 0000 +0590 9018 STL 9050 9018 0321 +20 9050 9021 +0591 SLT 6 9021 0324 +35 0006 9022 +0592 SLO 8002 9022 0325 +16 8002 9023 +0593 TLU 9002 9023 0326 +84 9002 9024 +0594 ALO 8002 9024 0327 +15 9025 8002 +0595 RAA 0 9025 0328 +80 0000 9026 +0596 BMA 9016 9012 9026 0329 +41 9016 9012 +0597 9016 RAM 9004B 9016A 9016 0319 +67 9404 9216 +0598 9013 RAA 0 9014 9013 0316 +80 0000 9014 +0599 9014 SRT 1 9015 9014 0317 +30 0001 9015 +0600 9015 AML 9050 1F 9015 0318 +17 9050 9027 +0601 9012 RAM 9050 1F 9012 0315 +67 9050 9027 +0602 1 LOD 8003 9027 0330 +69 8003 9028 +0603 SIA 9050 9001 9028 0331 +23 9050 9001 +0604 9001 RAL 8001 300 C 9001 0304 +65 8001 6300 +0605 COR +0606 1 +0607 F0000 ALF YYYYY THINK 0513 +88 8888 8888 +0608 FIL F0000 F0009 +0609 00 0080 0000 8004 +00 0080 0000 ++6919541953 +0000000610 +8000091957 +0000800000 +6919558001 +5100011957 +2425131958 +4019568000 +0611 FIL B0000 B0009 PAGE 11 +0612 00 0080 0000 8004 +00 0080 0000 ++6919541953 +0000000614 +8000091957 +0000800000 +6919558001 +5100011957 +2424451958 +4019568000 +0614 R0018 00 0080 0000 0668 +00 0080 0000 +0615 R0019 00 0080 0000 0669 +00 0080 0000 +0616 R0020 00 0080 0000 0670 +00 0080 0000 +0617 R0028 00 0080 0000 0678 +00 0080 0000 +0618 R0029 00 0080 0000 0679 +00 0080 0000 +0619 R0030 00 0080 0000 0680 +00 0080 0000 +0620 R0031 00 0080 0000 0681 +00 0080 0000 +0621 R0038 00 0080 0000 0688 +00 0080 0000 +0622 R0039 00 0080 0000 0689 +00 0080 0000 +0623 R0048 00 0080 0000 0698 +00 0080 0000 +0624 R0049 00 0080 0000 0699 +00 0080 0000 +0625 FIL R0061 R0069 +0626 00 0080 0000 8004 +00 0080 0000 ++6919541953 +0000000629 +8000081957 +0000800000 +6919558001 +5100011957 +2427111958 +4019568000 +0628 FIL R0071 R0079 +0629 00 0080 0000 8004 +00 0080 0000 ++6919541953 +0000000633 +8000081957 +0000800000 +6919558001 +5100011957 +2427211958 +4019568000 +0631 FIL R0082 R0099 +0632 00 0080 0000 8004 +00 0080 0000 ++6919541953 +0000000637 +8000171957 +0000800000 +6919558001 +5100011957 +2427321958 +4019568000 +0634 1 +0635 1 IV OPTIMIZING ROUTINES +0636 1 +0637 HED , +0638 FARCE BD6 7F 9058 1499 +96 0221 9058 +0639 FARON BD6 9058 7F 0543 +96 9058 0221 +0640 FARBL BD6 9058 7F 0112 +96 9058 0221 +0641 7 RAL COREC 0221 +65 0927 0494 +0642 ALO 1IXXX 0494 +15 0897 0301 +0643 RAC 8002 0301 +88 8002 0010 +0644 SXC 9059 0010 +59 9059 0618 +0645 STL COREC 0618 +20 0927 0630 +0646 BMC 9003 0630 +49 9003 0584 +0647 SXC 60 0584 +59 0060 0640 +0648 BMC 9003 0640 +49 0593 9003 +0649 AUP O0061C 9010 0593 +10 7610 9010 +0650 FARIN RAL 1960 FARSW 0607 +65 1960 0824 +0651 FARSW SLT 1 B 0824 +35 4001 0536 +0652 LOD 8002 0536 +69 8002 0643 +0653 BD4 828 C 0643 +94 0246 6828 +0654 RSC 1 0246 +89 0001 0503 +0655 RAM 1958B 9004 0503 +67 5958 9004 +0656 829 BMB 9005 0829 +43 0682 9005 +0657 RAM CCNT1 9004 0682 +67 0585 9004 ccnt1=number of card punched +0658 1 +0659 CODDL SET 9001 0492 +27 9001 0597 +0660 LDI 10001 0597 +09 0150 0502 +0661 STD 9049 0502 +24 9049 0108 +0662 RAC 9007 0108 +88 9007 0216 +0663 BMC 9049 9005 0216 +49 9049 9005 +0664 10015 DRC 9015 +0665 SYN 9039 +0666 SYN 9041 +0667 9010 BMI 7B 9003 9010 0159 +46 0221 9003 +0668 9005 RAL 9039 9005 0154 +65 9039 9015 acc=optimization word NN mm xxxxxx, N and M are optimization rules (eg NN=03, optimize to L+3) is L is odd, use M instead of N +0669 NZB 2F 9015 0164 +42 9016 9017 +0670 BMI 1F 9016 0165 +46 9018 9019 +0671 BD2 D 7F 9019 0168 +92 0212 9020 +0672 RAM INSTR D 0212 +67 0314 0621 PAGE 12 +0673 SLT 2 D 0621 +35 0002 0529 +0674 SLO 8002 D 0529 +16 8002 0592 +0675 TLU N0059 9009 0592 +84 0400 9009 +0676 9009 ALO 8002 9009 0158 +15 9021 8002 +0677 RAL 0 9021 0170 +65 0000 9022 +0678 ALO N0074 7F 9022 0171 +15 0415 9020 +0679 1 RAU INSTR D 9018 0167 +60 0314 0528 +0680 SLT 5 D 0528 +35 0005 0638 +0681 SRT 9 D 0638 +30 0009 0700 +0682 RAU 8003 D 0700 +60 8003 0523 +0683 SLT 4 9011 0523 +35 0004 9011 +0684 9011 AUP D 8003 9011 0160 +10 0544 8003 +0685 RAL N0071 0544 +65 0412 9023 +0686 LOD 9039 9023 0172 +69 9039 9024 +0687 BD2 7F 2F 9024 0173 +92 9020 9017 +0688 7 SLT 4 2F 9020 0169 +35 0004 9017 +0689 2 STL 9058 9017 0166 +20 9058 9025 9058=optimization word (NNmm XXXXXX, NN if L odd, MM if L even) +0690 RAL 9041 9025 0174 +65 9041 9026 9041=last location L (to calc L+NN or L+MM) +0691 DIV 9008 D 9026 0175 +14 9008 0832 div L by 2 +0692 NZU 4F 0832 +44 9027 9028 jmp if L is odd, continue if L is even +0693 RAM 9058 9027 0176 +67 9058 9029 Acc=optimiz word NNMMxxxxxx +0694 SLT 2 9029 0178 +35 0002 9030 +0695 SUP 8003 5F 9030 0179 +11 8003 9031 Now Acc=MM xxxxxxxx, jmp to 5f +0696 4 RAM 9058 5F 9028 0177 +67 9058 9031 +0697 5 SRT 8 9031 0180 +30 0008 9032 Now Acc=0000 0000 NN or MM (depending on L was even or odd) +0698 ALO 9041 9004 9032 0181 +15 9041 9004 Now Acc=L+NN -> this is new optimized location +0699 9004 DIV 50I FAROFD 9004 0153 +14 9033 0491 div by 50 -> optimized addr -> jmp to FAROF to mark it as used +0700 FAROF RAL 8003 9049 0491 +65 8003 9049 Reserve Addr (0..49) in Acc +0701 9008 00 0 2 9008 0157 +00 0000 0002 +0702 50I 00 0 50 9033 0182 +00 0000 0050 +0703 1 +0704 9049 ALO 8002 9049 0198 +15 8002 9034 +0705 ALO 8002 9034 0183 +15 8002 9035 Acc = addr x 4 +0706 LOD 8006 9035 0184 +69 8006 9036 +0707 STD 30007 D 9036 0185 +24 0257 0661 Save IRB in addr 30007 +0708 RAB 4 9013C 0661 +82 0004 9613 IRB=0, jmp 9013+IRC +0709 9013 RAC 0 1F 9013 0162 +88 0000 9037 IRC=0 +0710 9014 RAC 0 1F 9014 0163 +88 0000 9037 +0711 1 SLO 50I 9037 0186 +16 9033 9038 +0712 BMI 9050 9038 0187 +46 9050 9040 +0713 AXC 50 1B 9040 0189 +58 0050 9037 +0714 9050 LDI 20001 9051 9050 0199 +09 0917 9051 +0715 9012 RAC 8002 1F 9012 0161 +88 8002 9042 +0716 1 RAU A0001C 9042 0191 +60 7750 9043 +0717 NZU 9002 9043 0192 +44 9002 9044 +0718 SXB 1 9044 0193 +53 0001 9045 +0719 NZB HLT22D 9045 0194 +42 9046 0504 +0720 AXC 1 1B 9046 0195 +58 0001 9042 +0721 234 RAM 8000 D 0234 +67 8000 1498 +0722 RAC 9007 9004 1498 +88 9007 9004 +0723 9001 LDI 30000 9001 9001 0150 +09 0250 9001 +0724 9002 LDI 30001 9002 9002 0151 +09 0251 9002 +0725 9003 LDI 30002 9005 9003 0152 +09 0252 9005 +0726 COR +0727 1 +0728 HED + +0729 20004 DRC 9053 +0730 9051 SLT 4 9050 9051 0918 +35 0004 9050 +0731 9050 ALO 1F 2F 9050 0917 +15 9053 9054 +0732 2 STL HLD 9054 0921 +20 9055 9056 +0733 LOD 9052 9056 0923 +69 9052 9057 PAGE 13 +0734 SET 9002 D 9057 0924 +27 9002 0496 +0735 LDI A0001C HLD 0496 +09 7750 9055 +0736 1 TLU 9052 3F 9053 0920 +84 9052 9058 +0737 9052 00 0 1 9052 0919 +00 0000 0001 +0738 3 SLO 1B 9058 0925 +16 9053 9059 +0739 BMI 9001 D 9059 0926 +46 9001 0525 +0740 COR +0741 NZB HLT22 0525 +42 0778 0504 +0742 SXB 1 0778 +53 0001 0634 +0743 SXC 150 0634 +59 0150 0541 +0744 NZC 1F 0541 +48 0645 0110 +0745 AXC 200 1F 0645 +58 0200 0110 +0746 1 RAL 2B 0110 +65 0213 9054 +0747 TLU 9002 3B 0213 +84 9002 9058 +0748 1 +0749 HED ) +0750 30015 DRC 9016 +0751 2I SYN 9041 +0752 9001 SRT 4 9001 0250 +30 0004 9016 +0753 AXC 8002 9016 0265 +58 8002 9017 +0754 AXC 50 9002 9017 0266 +58 0050 9002 +0755 9002 RAU A0001C 9002 0251 +60 7750 9018 +0756 SCT 0 9018 0267 +36 0000 9019 +0757 RAB 8002 9019 0268 +82 8002 9020 +0758 SLT 1 9020 0269 +35 0001 9021 +0759 SRD 1 B 9021 0270 +31 4001 9022 +0760 STU A0001C 9022 0271 +21 7750 9023 +0761 RAU 8006 9023 0272 +60 8006 9024 +0762 MPY 50I 9024 0273 +19 9025 9026 +0763 RAB 8002 9026 0275 +82 8002 9027 +0764 RAL 8007 D 9027 0276 +65 8007 0647 +0765 DIV 4I D D 0647 +14 0750 0553 +0766 MPY 500I D 0553 +19 9028 0546 +0767 ALO 8003 0546 +15 8003 9029 +0768 ALO 8006 9003 9029 0278 +15 8006 9003 +0769 9003 RAB 9008 9005 9003 0252 +82 9008 9005 +0770 9005 BOV 1F 9004 9005 0254 +47 9030 9004 +0771 9004 STL 9006 FINDX 9004 0253 +20 9006 9031 +0772 FINDX RAU 9007 9031 0280 +60 9007 9032 +0773 RAC 8001 9032 0281 +88 8001 9033 +0774 SRT 0002 9033 0282 +30 0002 9034 +0775 SLO 8002 9034 0283 +16 8002 9035 +0776 TLU 9011 9035 0284 +84 9011 9036 +0777 ALO 8002 9036 0285 +15 9037 8002 +0778 64 9999 D 9037 0286 +64 9999 0594 +0779 ALO 9007 D 0594 +15 9007 0501 +0780 STL LEVEL D 0501 +20 0256 0509 +0781 SXC 293 D 0509 +59 0293 0915 +0782 BMC STORE HLT11 0915 +49 9038 0827 +0783 STORE LOD S0294 D 9038 0287 +69 1493 0596 +0784 STD S0294C 0596 +24 7493 9039 +0785 RSL 8007 9039 0288 +66 8007 9040 +0786 DIV 2I D 9040 0289 +14 9041 0206 +0787 RSC 8002 0206 +89 8002 9042 +0788 SLO 8001 9042 0291 +16 8001 9043 +0789 ALO 9006 9043 0292 +15 9006 9044 +0790 LOD E0147C 9044 0293 +69 7196 9045 +0791 NZU 2F 9045 0294 +44 9046 9047 +0792 SLT 4 9009 9046 0295 +35 0004 9009 +0793 9009 SDA E0147C 9009 0258 +22 7196 9048 +0794 SRT 4 3F 9048 0297 +30 0004 9049 PAGE 14 +0795 2 SIA E0147C 3F 9047 0296 +23 7196 9049 +0796 1 BMB 9000 9030 0279 +43 9000 9050 +0797 LOD O0103 D 9050 0299 +69 1652 0655 +0798 SIA F0000A 9000 0655 +23 2513 9000 +0799 3 BOV 2 B 9000 9049 0298 +47 4002 9000 +0800 50I 00 0 50 9025 0274 +00 0000 0050 +0801 4I 00 0 4 0750 +00 0000 0004 +0802 500I 00 0 500 9028 0277 +00 0000 0500 +0803 2I 00 0 2 9041 0290 +00 0000 0002 +0804 LEVEL ALF THINK 0256 +00 0000 0000 +0805 2 9010 24 8888 1 9010 0259 +24 8888 0001 +0806 2 9011 46 0998 3 9011 0260 +46 0998 0003 +0807 2 9012 47 8888 1 9012 0261 +47 8888 0001 +0808 2 9013 96 8888 8 9013 0262 +96 8888 0008 +0809 2 9014 56 8888 3 9014 0263 +56 8888 0003 +0810 2 9015 97 8888 8 9015 0264 +97 8888 0008 +0811 COR +0812 1 +0813 N0001 24 1954 0498 NOP 0342 +24 1954 0498 +0814 N0002 69 1654 5498 HLT 0343 +69 1654 5498 +0815 N0003 03 0323 2299 UFA 0344 +03 0323 2299 +0816 N0004 44 0105 0598 RTC 0345 +44 0105 0598 +0817 N0005 80 0005 0598 RTN 0346 +80 0005 0598 +0818 N0006 21 0305 0598 RTA 0347 +21 0305 0598 +0819 N0007 40 0005 5598 WTN 0348 +40 0005 5598 +0820 N0008 15 0505 0598 WTA 0349 +15 0505 0598 +0821 N0009 03 0312 1299 LIB 0350 +03 0312 1299 +0822 N0010 03 0302 0299 LDI 0351 +03 0302 0299 +0823 N0011 03 0305 0499 AUP 0352 +03 0305 0499 +0824 N0012 03 0305 0499 SUP 0353 +03 0305 0499 +0825 N0013 48 0098 0099 0354 +48 0098 0099 +0826 N0014 09 0800 4099 0355 +09 0800 4099 +0827 N0015 03 0311 1099 DIV 0356 +03 0311 1099 +0828 N0016 03 0305 0499 ALO 0357 +03 0305 0499 +0829 N0017 03 0305 0499 SLO 0358 +03 0305 0499 +0830 N0018 03 0305 0499 AML 0359 +03 0305 0499 +0831 N0019 03 0305 0499 SML 0360 +03 0305 0499 +0832 N0020 03 0321 2099 MPY 0361 +03 0321 2099 +0833 N0021 05 0403 0399 STL 0362 +05 0403 0399 +0834 N0022 04 0503 0399 STU 0363 +04 0503 0399 +0835 N0023 03 0403 0399 SDA 0364 +03 0403 0399 +0836 N0024 03 0403 0399 SIA 0365 +03 0403 0399 +0837 N0025 03 0303 0399 STD 0366 +03 0303 0399 +0838 N0026 04 0405 0598 NTS 0367 +04 0405 0598 +0839 N0027 49 0505 0598 BIN 0368 +49 0505 0598 +0840 N0028 98 0005 0598 SET 0369 +98 0005 0598 +0841 N0029 03 0312 1299 SIB 0370 +03 0312 1299 +0842 N0030 03 0302 0299 STI 0371 +03 0302 0299 +0843 - N0031 00 9090 9098 SRT 0372 -00 9090 9098 +0844 - N0032 65 1200 0088 SRD 0373 -65 1200 0088 +0845 N0033 03 0327 2699 FAD 0374 +03 0327 2699 +0846 N0034 03 0327 2699 FSB 0375 +03 0327 2699 +0847 N0035 03 0341 4099 FDV 0376 +03 0341 4099 +0848 - N0036 00 0000 0098 SLT 0377 -00 0000 0098 +0849 - N0037 00 0400 9898 SCT 0378 -00 0400 9898 +0850 N0038 03 0327 2699 FAM 0379 +03 0327 2699 +0851 N0039 03 0327 2699 FSM 0380 +03 0327 2699 +0852 N0040 03 0347 4699 FMP 0381 +03 0347 4699 +0853 N0041 03 0304 0498 NZA 0382 +03 0304 0498 +0854 N0042 03 0304 0498 BMA 0383 +03 0304 0498 +0855 N0043 03 0304 0498 NZB 0384 +03 0304 0498 PAGE 15 +0856 N0044 03 0304 0498 BMB 0385 +03 0304 0498 +0857 N0045 03 0404 0598 NZU 0386 +03 0404 0598 +0858 N0046 04 0305 0498 NZE 0387 +04 0305 0498 +0859 N0047 03 0304 0498 BMI 0388 +03 0304 0498 +0860 N0048 03 0305 0598 BOV 0389 +03 0305 0598 +0861 N0049 03 0304 0498 NZC 0390 +03 0304 0498 +0862 N0050 03 0304 0498 BMC 0391 +03 0304 0498 +0863 N0051 79 9999 9988 AXA 0392 +79 9999 9988 +0864 N0052 00 0100 0588 SXA 0393 +00 0100 0588 +0865 N0053 65 1493 0088 AXB 0394 +65 1493 0088 +0866 N0054 19 9005 0588 SXB 0395 +19 9005 0588 +0867 N0055 04 0405 0598 NEF 0396 +04 0405 0598 +0868 N0056 40 4005 0598 RWD 0397 +40 4005 0598 +0869 N0057 00 0005 0598 WTM 0398 +00 0005 0598 +0870 N0058 90 8955 5598 BST 0399 +90 8955 5598 +0871 N0059 79 9994 9588 AXC 0400 +79 9994 9588 +0872 N0060 24 7750 0488 SXC 0401 +24 7750 0488 +0873 N0061 03 0305 0499 RAU 0402 +03 0305 0499 +0874 N0062 03 0305 0499 RSU 0403 +03 0305 0499 +0875 N0063 00 1499 1499 0404 +00 1499 1499 +0876 N0064 03 0315 1699 TLE 0405 +03 0315 1699 +0877 N0065 03 0311 1099 DVR 0406 +03 0311 1099 +0878 N0066 03 0305 0499 RAL 0407 +03 0305 0499 +0879 N0067 03 0305 0499 RSL 0408 +03 0305 0499 +0880 N0068 03 0305 0499 RAM 0409 +03 0305 0499 +0881 N0069 03 0305 0499 RSM 0410 +03 0305 0499 +0882 N0070 03 0303 0399 LOD 0411 +03 0303 0399 +0883 N0071 23 2225 2498 RD1 0412 +23 2225 2498 +0884 N0072 07 0607 0698 WR1 0413 +07 0607 0698 +0885 N0073 07 0609 0898 RC1 0414 +07 0609 0898 +0886 N0074 09 0811 1098 RD2 0415 +09 0811 1098 +0887 N0075 11 1013 1298 WR2 0416 +11 1013 1298 +0888 N0076 13 1215 1498 RC2 0417 +13 1215 1498 +0889 N0077 15 1417 1698 RD3 0418 +15 1417 1698 +0890 N0078 17 1619 1898 WR3 0419 +17 1619 1898 +0891 N0079 19 1821 2098 RC3 0420 +19 1821 2098 +0892 N0080 21 2023 2298 RPY 0421 +21 2023 2298 +0893 N0081 80 0096 9788 RAA 0422 +80 0096 9788 +0894 N0082 80 0194 9588 RSA 0423 +80 0194 9588 +0895 N0083 80 0297 9788 RAB 0424 +80 0297 9788 +0896 N0084 80 0396 9888 RSB 0425 +80 0396 9888 +0897 N0085 03 0315 1699 TLU 0426 +03 0315 1699 +0898 N0086 24 4905 0598 SDS 0427 +24 4905 0598 +0899 N0087 60 8005 0598 RDS 0428 +60 8005 0598 +0900 N0088 39 0505 0598 WDS 0429 +39 0505 0598 +0901 N0089 90 5996 9788 RAC 0430 +90 5996 9788 +0902 N0090 99 9999 9988 RSC 0431 +99 9999 9988 +0903 N0091 04 0405 0598 BD0 0432 +04 0405 0598 +0904 N0092 03 0305 0598 BD1 0433 +03 0305 0598 +0905 N0093 03 0305 0598 BD2 0434 +03 0305 0598 +0906 N0094 03 0305 0598 BD3 0435 +03 0305 0598 +0907 N0095 03 0305 0598 BD4 0436 +03 0305 0598 +0908 N0096 03 0305 0598 BD5 0437 +03 0305 0598 +0909 N0097 03 0305 0598 BD6 0438 +03 0305 0598 +0910 N0098 03 0305 0598 BD7 0439 +03 0305 0598 +0911 N0099 03 0305 0598 BD8 0440 +03 0305 0598 +0912 N0100 04 0405 0598 BD9 0441 +04 0405 0598 +0913 FIL A0001 A0200 +0914 ALF YYYYY THINK 8004 +88 8888 8888 ++6919541953 +0000000920 +8001991957 +8888888888 +6919558001 +5100011957 +2437501958 +4019568000 +0916 1 PAGE 16 +0917 1 V OUTPUT CONTROL +0918 1 +0919 HED - +0920 PUNCH RAL FIVTG PNCH1 0219 +65 0477 0081 +0921 PNCH1 BMI 9F 2F 0081 +46 0642 0635 +0922 2 RAA 8001 0635 +80 8001 0693 +0923 AUP 533TL 0693 +10 0046 0551 +0924 NZU COROF 0551 +44 0684 0208 +0925 NZA 2F 0208 +40 0512 0616 +0926 RAL 50009 0616 +65 0485 0589 +0927 ALO 1IXXX 0589 +15 0897 0761 +0928 STL 50009 0761 +20 0485 0838 +0929 WR1 50001 0838 +71 0477 0612 +0930 BOV EXIT0 0612 +47 0323 0659 +0931 RAL FIVON 2B 0659 +65 1612 0635 +0932 2 SLO 20003 0512 +16 0919 0673 +0933 STL FIVTG 0673 +20 0477 0210 +0934 LOD INSTR 0210 +69 0314 0667 +0935 STD 50001A 0667 +24 2477 0631 +0936 RAL 50008 0631 +65 0484 1549 +0937 AUP 50007 1549 +10 0483 0692 +0938 SRT 4 0692 +30 0004 0552 +0939 AUP LOCAT 0552 +10 1961 0629 +0940 STL 50008 0629 +20 0484 0697 +0941 STU 50007 0697 +21 0483 0646 +0942 BOV 8F 9F 0646 +47 0730 0642 +0943 9 RAL 533TL 0642 +65 0046 0601 +0944 NZE COROF 0601 +45 0684 0705 +0945 RAL LOCAT 0705 +65 1961 0766 +0946 SLO N0027 RAMSW 0766 +16 0368 0773 +0947 1 +0948 FILLL STL EXIT0 0768 +20 0323 0603 +0949 RAL FIVTG 0603 +65 0477 0533 +0950 BMI EXIT0 0533 +46 0323 0637 +0951 RAA 8001 0637 +80 8001 0842 +0952 STU 533TL 0842 +21 0046 0850 +0953 SXA 5 0850 +51 0005 0657 +0954 BMA EXIT0 0657 +41 0767 0323 +0955 LOD 50007A 0767 +69 2483 0506 +0956 STD INSTR 8F 0506 +24 0314 0730 +0957 8 RAL 50007 0730 +65 0483 0696 +0958 SRT 6 0696 +30 0006 0755 +0959 SCT 6 0755 +36 0006 1548 +0960 SLO 8002 1548 +16 8002 0707 +0961 SIA LOCAT PUNCH 0707 +23 1961 0219 +0962 1 +0963 RAMON BMI CORSW 0662 +46 0776 0685 +0964 ALO N0088 0776 +15 0429 0731 +0965 BMI RAMN0 RAMN1 0731 +46 0834 0835 +0966 RAMN1 RAB 1 2F 0835 +82 0001 0690 +0967 RAMN0 RAB 0 2F 0834 +82 0000 0690 +0968 2 RAL DISKRB 0690 +65 5248 0653 +0969 RDS 9000 0653 +86 9000 0695 +0970 SLT 2 0695 +35 0002 0591 +0971 AUP 10008 0591 +10 0157 0892 +0972 RSA 8003 0892 +81 8003 0843 +0973 SRT 2 0843 +30 0002 0644 +0974 LOD LOCAT 0644 +69 1961 0895 +0975 STD 9001A 0895 +24 9201 0942 +0976 LOD INSTR 0942 +69 0314 0720 +0977 STD 9000A 0720 +24 9200 0583 PAGE 17 +0978 STL DISKRB 0583 +20 5248 0602 +0979 WDS 9000 0602 +87 9000 0510 +0980 NZA COROF 0510 +40 0684 0946 +0981 ALO 6BM41 0946 +15 1298 0613 +0982 STL DISKRB 0613 +20 5248 0911 +0983 SDS 9000 COROF 0911 +85 9000 0684 +0984 RAMOF BMI COROF CORSW 0905 +46 0684 0685 +0985 RAMSW BMI COROF CORSW 0773 +46 0684 0685 +0986 1 +0987 CORON LOD DISKC 0606 +69 1598 0651 +0988 SDS 9000 0651 +85 9000 1015 +0989 RDS 9000 1015 +86 9000 0508 +0990 LOD 90002 0508 +69 0027 0840 +0991 RAC 8001 0840 +88 8001 1046 +0992 SRT 2 1046 +30 0002 0932 +0993 ALO N0086 0932 +15 0427 0701 +0994 LOD INSTR 8002 0701 +69 0314 8002 +0995 8002 STD 9000 92 8002 +24 9000 0092 +0996 92 LOD DISKC 0092 +69 1598 0751 +0997 WDS 9000 COROF 0751 +87 9000 0684 +0998 1 +0999 PSUDO SCT 1 PRONE 0976 +36 0001 0890 punch non-code card: set OV=1, call goto print +1000 COROF RAC FINIS PRONE 0684 +88 0209 0890 punch card, then jmp to finis +1001 CORSW RAC FINIS PRONE 0685 +88 0209 0890 punch card, then jmp to finis +1002 PRONE RSA 1 0890 +81 0001 1496 punch card +1003 LOD ONESW 1496 +69 1449 0757 +1004 BD2 9F 0757 +92 0830 1017 +1005 AXA 1 90001 1017 +50 0001 0026 +1006 90003 WR1 9040 9F 0028 +71 9040 0830 +1007 9 LOD PRTSW 0830 +69 1448 0851 +1008 BD2 9F 90002A 0851 +92 0554 2027 +1009 90002 WR2 9040 0 C 0027 +74 9040 6000 +1010 90001 RAM LOCUS 0026 +67 0780 0893 +1011 SLT 5 0893 +35 0005 0656 +1012 SET 9057 0656 +27 9057 0930 +1013 ALO CCNT1 0930 +15 0585 0694 ccnt1=number of card punched +1014 ALO 1IXXX 0694 +15 0897 0604 incr num of punched cards +1015 STI 1957 0604 +29 1957 0770 +1016 SIA CCNT1 0770 +23 0585 0940 save ccnt1=number of card punched +1017 SET 9040 0940 +27 9040 1045 +1018 LDI 1951 1045 +09 1951 0672 copy card read area 1951- to 9040- +1019 STL 9048 0672 +20 9048 1030 store ccnt1=number of card punched in punch area +1020 RAL 9050 1030 +65 9050 0687 9050 has contents of 1961=LOCAT +1021 AUP 9049 0687 +10 9049 1495 9049 has contents of 1960=control word for read +1022 SLT 3 1495 +35 0003 0703 +1023 SRT 3 0703 +30 0003 0762 +1024 BOV 1F 0762 +47 0916 0633 +1025 SRT 2 0633 +30 0002 0639 +1026 SDA 9047 0639 +22 9047 0706 +1027 LOD INSTR 0706 +69 0314 1018 +1028 STD 9046 1018 +24 9046 0683 +1029 SLT 2 0683 +35 0002 0939 +1030 AML 533TL 2F 0939 +17 0046 0901 +1031 1 STD 9047 0916 +24 9047 0935 Save card type: 9047=read control word=00 0nnn nnnT where T is type card +1032 AUP N0051 2F 0935 +10 0392 0901 +1033 2 SLO 9050 0901 +16 9050 0709 +1034 LOD 8003 0709 +69 8003 0671 +1035 SIA 9049 90003A 0671 +23 9049 2028 +1036 9 BOV 0 C 0 C 0554 +47 6000 6000 exit from prone routine to addr in IRC +1037 7 DISKC 00 0008 8382 1598 +00 0008 8382 +1038 - 6BM41 60 0 10 1298 -60 0000 0010 PAGE 18 +1039 CCNT1 ALF THINK 0585 +00 0000 0000 ccnt1=number of card punched +1040 50009 ALF THINK 0485 +00 0000 0000 +1041 50010 00 8800 0 0486 +00 8800 0000 +1042 - FIVTG ALF YYYYY THINK 0477 -88 8888 8888 +1043 - ONESW ALF 99999 THINK 1449 -99 9999 9999 +1044 - PRTSW ALF YYYYY THINK 1448 -88 8888 8888 +1045 DUMP8 SDS 9000 DUMP9 1544 +85 9000 1547 +1046 DUMP9 RDS 9000 9000 1547 +86 9000 9000 +1047 HED +1048 1 +1049 1 VI PSEUDO OPERATIONS +1050 1 +1051 NMO +1052 BLA O0099 O0100 +1053 BLA O0149 O0150 +1054 BLA 1712 1749 +1055 BLA 1963 1993 +1056 959 STD INSTR PROCL 0959 +24 0314 0076 +1057 ALFOT RAL 1953 0948 +65 1953 0907 +1058 NZE 1F 0907 +45 0660 0912 +1059 LOD 2F 0912 +69 1715 1718 +1060 STD 1953 1F 1718 +24 1953 0660 +1061 1 RAL 1952 0660 +65 1952 0608 +1062 RAA 0 ALFIN 0608 +80 0000 0600 +1063 2 ALF THINK THIMK 1715 +83 6869 7572 +1064 1 +1065 963 STU 1951 BLA 0963 +21 1951 0654 +1066 LOD SUB1U BLR1 0654 +69 0658 1012 +1067 1 +1068 961 LOD SUB1R BLR1 0961 +69 1014 1012 +1069 BLR1 STD EXIT0 DMAST 1012 +24 0323 0649 +1070 500 LOD 8005 7F 0500 +69 8005 0756 +1071 7 STD LOCAT 0756 +24 1961 1714 +1072 SIA FWAXX 1714 +23 0780 0833 +1073 AUP 1951 0833 +10 1951 0906 +1074 NZU 261 C 0906 +44 1712 6261 +1075 RAB 259 C EQUSB 1712 +82 6259 1019 +1076 461 RAL 1953 0461 +65 1953 0708 +1077 RAC 163 IMST1 0708 +88 0163 0664 +1078 463 BMA HLT99 0463 +41 1016 1717 +1079 RAC 9005 1016 +88 9005 1074 +1080 NZC HLT99 1074 +48 1717 0828 +1081 LOD LOCAT 0828 +69 1961 1964 +1082 SXA 8001 459 A 1964 +51 8001 2459 +1083 458 NZA HLT99 EXIT0 0458 +40 1717 0323 +1084 457 NZA HLT99 00020 0457 +40 1717 0322 +1085 00020 RAA 8002 LDI41 0322 +80 8002 0248 +1086 LDI41 LDI 40001 9006 0248 +09 0780 9006 +1087 40005 DRC 9009 +1088 9006 AXA 9005 9006 0781 +50 9005 9009 +1089 BMA HLT99 9009 0784 +41 1717 9010 +1090 RAB 1000 9010 0785 +82 1000 9011 +1091 SXB 8001 9011 0786 +53 8001 9012 +1092 RSL 9006 9012 0787 +66 9006 9013 +1093 STL BLRTGD D 9013 0788 +20 1530 0933 +1094 LOD EXIT0 30014 0933 +69 0323 0264 +1095 30014 BD7 9008 0264 +97 9008 9014 +1096 LOD 2F 4F 9014 0789 +69 9015 9016 +1097 9008 LOD 3F 4F 9008 0783 +69 9017 9016 +1098 4 STD 9059 8001 9016 0791 +24 9059 8001 +1099 2 RSM O0001B 1F 9015 0790 +68 5550 9018 PAGE 19 +1100 3 RAM O0001B 1F 9017 0792 +67 5550 9018 +1101 1 STL O0001B 9018 0793 +20 5550 9019 +1102 NZA 1 9019 0794 +40 9020 0001 +1103 SXA 1 9020 0795 +51 0001 9021 +1104 AXB 1 9059 9021 0796 +52 0001 9059 +1105 9007 RAA 59 9007 0782 +80 0059 9022 +1106 RAB 0 9008 9022 0797 +82 0000 9008 +1107 COR +1108 1 +1109 960 RAL SUB1R EQU1 SYN 0960 +65 1014 1719 +1110 60 BMA 500 HLT99 0060 +41 0500 1717 +1111 21 RAL LOCAT 0021 +65 1961 1965 +1112 SET 9005 1965 +27 9005 1720 +1113 ALO 8002 1720 +15 1723 8002 +1114 RAM FWAXX 00022 1723 +67 0780 0324 +1115 1 +1116 HED $ +1117 SUB1U RAA T0001 240 0658 +80 0844 0240 +1118 SUB1R RAA U0001 240 1014 +80 0944 0240 +1119 240 LDI 0 A 0240 +09 2000 0652 +1120 LDI V0001 9025 0652 +09 1505 9025 +1121 T0003 DRC 9007 +1122 9005 AUP ATES 9005 0844 +10 9007 9008 +1123 SRT 0 B 9008 0847 +30 4000 9009 +1124 SUP 8003 9011 9009 0848 +11 8003 9011 +1125 9006 AXB 10 9006 0845 +52 0010 9010 +1126 RAL ATES 9028 9010 0849 +65 9007 9028 +1127 ATES ALF YYYYY THINK 9007 0846 +88 8888 8888 +1128 U0003 DRC 9007 +1129 9005 SRT 0 B 9011 9005 0944 +30 4000 9011 +1130 9006 AXB 10 9028 9006 0945 +52 0010 9028 + +1132 V0008 DRC 9018 +1133 50I EQU 9017 +1134 500I EQU 9016 +1135 BLR 9024 9028 +1136 9012 RAM 8001 9012 1506 +67 8001 9018 +1137 DIV 500I D 9018 1512 +14 9016 0663 +1138 RAC 8002 9026 0663 +88 8002 9026 +1139 9013 DIV 50I 9014 9013 1507 +14 9017 9014 +1140 9014 RAA 8002 9027 9014 1508 +80 8002 9027 +1141 9015 RAL A0201C 9015 1509 +65 7950 9019 +1142 SLT 0 A 9019 1513 +35 2000 9020 +1143 STU 9004 9020 1514 +21 9004 9021 +1144 SLT 0 B 9021 1515 +35 4000 9022 +1145 SUP 8003 9005 9022 1516 +11 8003 9005 +1146 9011 AUP 9004 9011 1505 +10 9004 9023 +1147 SRT 0 A 9028 9023 1517 +30 2000 9028 +1148 50I 00 0 50 9017 1511 +00 0000 0050 +1149 500I 00 0 500 9016 1510 +00 0000 0500 +1150 9025 SIA 9000 9025 1519 +23 9000 9029 +1151 SML FWAXX 9029 1523 +18 0780 9030 +1152 BMI HLT99 9030 1524 +46 1717 9031 +1153 NZE 9024 9012 9031 1525 +45 9024 9012 +1154 9024 LDI W0001 9012 9024 1518 +09 0852 9012 +1155 9026 RAL 8003 9013 9026 1520 +65 8003 9013 +1156 9027 AUP 8003 9027 1521 +10 8003 9032 +1157 RAB 1 9032 1526 +82 0001 9033 +1158 AUP 8003 9033 1527 +10 8003 9034 +1159 SXC 200 9034 1528 +59 0200 9035 +1160 AXC 8003 9015 9035 1529 +58 8003 9015 +1161 9028 STL A0201C 1 9028 1522 +20 7950 0001 PAGE 20 +1162 W0006 DRC 9029 +1163 9026 STU 9001 9024 9026 0854 +21 9001 9024 +1164 9024 RAM 9000 9025 9024 0852 +67 9000 9025 +1165 9025 DIV 500I D 9025 0853 +14 9016 1727 +1166 STU 9002 1727 +21 9002 9029 +1167 SUP 8001 9029 0857 +11 8001 9030 +1168 STL 9003 8F 9030 0858 +20 9003 9031 +1169 8 SLO 8007 9031 0859 +16 8007 9032 +1170 NZE 5F D 9032 0860 +45 0710 9033 +1171 RAL 9002 9033 0861 +65 9002 9034 +1172 DIV 50I D 9034 0862 +14 9017 1033 +1173 RAB 8002 6F 1033 +82 8002 9035 +1174 6 STU 9000 9035 0863 +21 9000 9036 +1175 SXC 200 9036 0864 +59 0200 9037 +1176 RAL 9001 9037 0865 +65 9001 9038 +1177 NZE 9013 9014 9038 0866 +45 9013 9014 +1178 9027 SXB 0 A 9027 0855 +53 2000 9039 +1179 AXA 1 0F 9039 0867 +50 0001 9040 +1180 0 NZU 1F 9040 0868 +44 9041 9042 +1181 SXA 1 9042 0870 +51 0001 9043 +1182 AXB 1 1F 9043 0871 +52 0001 9041 +1183 1 STU 9001 9041 0869 +21 9001 9044 +1184 RAU 9000 9044 0872 +60 9000 9045 +1185 BMI 1F 9045 0873 +46 9046 9047 +1186 AUP 500I 9046 0874 +10 9016 9048 +1187 SXB 1 2F 9048 0876 +53 0001 9049 +1188 1 SUP 1I 2F 9047 0875 +11 9050 9049 +1189 2 STU 9000 9049 0877 +21 9000 9051 +1190 NZB 1F 9051 0879 +42 9052 9053 +1191 SXB 10 9052 0880 +53 0010 9054 +1192 NZB 9006 9054 0882 +42 9055 9006 +1193 AXB 10 9015 9055 0883 +52 0010 9015 +1194 9028 STL A0201C 1F 9028 0856 +20 7950 9053 +1195 1 AXC 4 9053 0881 +58 0004 9056 +1196 BMC 30011 9056 0884 +49 9057 0261 +1197 RAU 9001 9057 0885 +60 9001 9058 +1198 SUP 1I 0B 9058 0886 +11 9050 9040 +1199 1 STU 9001 8B 9059 0887 +21 9001 9031 +1200 1I 00 0 1 9050 0878 +00 0000 0001 +1201 COR +1202 5 RAB 9 0710 +82 0009 1716 +1203 SCT 1 1716 +36 0001 1973 +1204 RAU 49I 6B 1973 +60 0826 9035 +1205 49I 00 0 49 0826 +00 0000 0049 +1206 30011 BOV 1 0261 +47 1966 0001 +1207 AXC 1 1966 +58 0001 0772 +1208 RAL 9003 1B 0772 +65 9003 9059 +1209 COR +1210 HED +1211 1 +1212 953 RSL 8002 EQU1 0953 +66 8002 1719 +1213 EQU1 STL EXIT0 1719 +20 0323 1726 +1214 RAL 1953 1726 +65 1953 0758 +1215 NZE 1F 0758 +45 0763 0913 +1216 RAC 155 IMST1 0763 +88 0155 0664 +1217 455 LOD 1960 0455 +69 1960 1013 +1218 BD6 1F 1013 +96 1967 0913 +1219 RSL 8002 1F 1967 +66 8002 0913 +1220 1 STL 30005 0913 +20 0255 0908 +1221 RAC 156 DMAST 0908 +88 0156 0649 +1222 456 ALO 30005 0456 +15 0255 0759 PAGE 21 +1223 AUP 8001 0759 +10 1713 8001 +1224 RSC 9020 1713 +89 9020 0771 +1225 RSB 1 0771 +83 0001 1977 +1226 BMC 9018 EQUSB 1977 +49 9018 1019 +1227 1 +1228 EQUSB STL 30005 1019 +20 0255 0909 +1229 AUP N0090 LMST2 0909 +10 0431 0998 +1230 EQUSY SCT 9006 0590 +36 9006 0760 +1231 LDI 30005 0760 +09 0255 0910 +1232 BMI FINDX 0910 +46 1963 9031 +1233 RAC 8003 STORE 1963 +88 8003 9038 +1234 KKKK2 RAL 30005 0650 +65 0255 1968 +1235 LOD O0113 1968 +69 1662 1969 +1236 SIA F0000A 2 B 1969 +23 2513 4002 +1237 KKKK3 RAL 30005 0201 +65 0255 1970 +1238 LOD O0113 1970 +69 1662 1721 +1239 SIA B0000A 2 B 1721 +23 2445 4002 +1240 KKKK4 SLO 30005 0102 +16 0255 1971 +1241 SLO O0113 1971 +16 1662 0822 +1242 SIA R0000A 2 B 0822 +23 2650 4002 +1243 1 +1244 964 RAL 1951 UND 0964 +65 1951 1722 +1245 SLT 2 1722 +35 0002 0779 +1246 RAA 8003 0779 +80 8003 0938 +1247 LOD O0002 0938 +69 1551 0704 +1248 STD F9910A 1 0704 +24 2423 0001 +1249 1 +1250 965 STU CDIFF COR 0965 +21 0090 0943 +1251 RSL 8002 966 0943 +66 8002 0966 +1252 1 +1253 966 STL EXIT0 DRC 0966 +20 0323 1976 +1254 RAL 1952 1976 +65 1952 1972 +1255 NZE 1F 1972 +45 0928 1028 +1256 RAC 159 DMST1 0928 +88 0159 0614 +1257 459 SLO 1IXXX 0459 +16 0897 1501 +1258 STL COREC 1501 +20 0927 1730 +1259 STD KEEPP 1730 +24 0096 1649 +1260 AUP EXIT0 1649 +10 0323 1728 +1261 BMI 2F 464 1728 +46 0831 0464 +1262 464 STL FWAXX 0464 +20 0780 1533 +1263 RAC 162 LMAST 1533 +88 0162 0442 +1264 462 SLO FWAXX 0462 +16 0780 1035 +1265 LOD EXIT0 1035 +69 0323 1978 +1266 RAC 8001 1978 +88 8001 0934 +1267 NZC 9F 0934 +48 0837 1038 +1268 SLO 1IXXX 0837 +16 0897 0702 +1269 STL CDIFF 2F 0702 +20 0090 0831 +1270 2 RAL BLRTG 0831 +65 1530 1535 +1271 STU BLRTG 1535 +21 1530 1733 +1272 LOD FARCE 2F 1733 +69 1499 0752 +1273 1 LOD FARON 2F 1028 +69 0543 0752 +1274 2 STD FARBL 0752 +24 0112 1124 +1275 BMI 1 1124 +46 0929 0001 +1276 LDI 49997 9007 0929 +09 0776 9007 +1277 CDIFF ALF THINK 0090 +00 0000 0000 +1278 CTAGX ALF YYYYY THINK 1029 +88 8888 8888 +1279 BLRTG ALF THINK 1530 +00 0000 0000 +1280 COREC 00 0 8999 0927 +00 0000 8999 +1281 KEEPP 00 0 8999 0096 +00 0000 8999 +1282 1 +1283 967 RAL 1952 COD 0967 +65 1952 1174 PAGE 22 +1284 NZE 9F 1174 +45 1729 1038 +1285 STU EXIT0 1729 +21 0323 1979 +1286 RAC 164 DMST1 1979 +88 0164 0614 +1287 9 STL DDIFF 1 1038 +20 0798 0001 +1288 DDIFF ALF THINK 0798 +00 0000 0000 +1289 1 +1290 988 RAC PSUDO 0988 +88 1980 0976 punch non-code card, then jmp next instr +1291 RAC 165 DMAST 1980 +88 0165 0649 +1292 465 SLO 1IXXX 0465 +16 0897 0802 +1293 STL CCNT1 READA 0802 +20 0585 0999 ccnt1=number of card punched +1294 1 +1295 969 RAC 166 DMAST 0969 +88 0166 0649 +1296 466 SLO 1IXXX 0466 +16 0897 0902 +1297 STL 50009 1 0902 +20 0485 0001 +1298 1 +1299 971 AXB 1 972 DUP 0971 +52 0001 0972 +1300 972 RAC 0 PUD 0972 +88 0000 0931 +1301 RAU 1952 SYMB1 0931 +60 1952 0230 +1302 973 RAC 167 DMAST OPT 0973 +88 0167 0649 +1303 467 HLT 1996 1996 0467 +01 1996 1996 +1304 1996 MPY 8000 30010 1996 +19 8000 0260 +1305 30010 BMI 898 3 0260 +46 0898 0003 +1306 896 LOD READA PUTAG 0896 +69 0999 0097 +1307 1IXXX 00 0 1 0897 +00 0000 0001 +1308 898 LOD READA PUTAG 0898 +69 0999 0097 +1309 1 +1310 974 RAL 1952 1F HED 0974 +65 1952 1724 +1311 975 RSL 1952 1F SCR 0975 +66 1952 1724 +1312 1 SLT 2 1724 +35 0002 1031 +1313 STU 0000H 1 1031 +21 0914 0001 +1314 0000H ALF THINK 0914 +00 0000 0000 +1315 1 +1316 997 RAM S0100 FILLL FIV 0997 +67 1299 0768 +1317 - S0100 RAL 1952 1299 -65 1952 1974 +1318 NZE 1F 1974 +45 1531 1731 +1319 RSM 2F 8001 1531 +68 1034 8001 +1320 1 RAM FIVON 2F 1731 +67 1612 1034 +1321 2 STL FIVTG 1 1034 +20 0477 0001 +1322 1 +1323 978 SXB 1 977 PRT 0978 +53 0001 0977 +1324 977 RAL 1952 ONE 0977 +65 1952 0675 +1325 NZE 1F 0675 +45 1981 1032 +1326 RSM N0032 2F 1981 +68 0373 1532 +1327 1 RSM N0031 2F 1032 +68 0372 1532 +1328 2 STL ONESWB 1 1532 +20 5449 0001 +1329 1 +1330 981 RAC 500 1F CDD 0981 +88 0500 0937 +1331 980 RAC 400 1F DSK 0980 +88 0400 0937 +1332 979 RAC 300 1F TAP 0979 +88 0300 0937 +1333 996 RAC 100 1F FIL 0996 +88 0100 0937 +1334 982 SCT 1 1F DEK 0982 +36 0001 0937 +1335 1 RAU 8007 0937 +60 8007 1545 +1336 ALO N0014 1545 +15 0355 0775 +1337 SRT 3 0775 +30 0003 1983 +1338 SET 9052 1983 +27 9052 1538 +1339 AUP 1953 1538 +10 1953 0825 +1340 STL DUMPC 0825 +20 1732 1735 +1341 LDI 1950 9052 1735 +09 1950 9052 +1342 1950 STI 46 302 1950 +29 0046 0302 +1343 302 BOV 3F 0302 +47 1725 1975 +1344 NZU 3F 1F 1975 +44 1725 1982 PAGE 23 +1345 3 STD CARRY 1725 +24 0460 1534 +1346 STD KEEP 1534 +24 0223 1734 +1347 RAL 2F 1734 +65 1037 0641 +1348 STD SSOUT 1 0641 +24 0526 0001 +1349 1 RAC 2F PSUDO 1982 +88 1037 0976 punch non-code card, then jmp next instr +1350 2 RAL DUMPC 1037 +65 1732 1537 +1351 SLT 1 1537 +35 0001 1043 +1352 RAC 8003 989 1043 +88 8003 0989 +1353 989 LOD C0001C DUMP8 PAL 0989 +69 6623 1544 +1354 7 C0001 00 0003 8002 BOP 0623 +00 0003 8002 +1355 7 C0002 00 0003 8562 FIL 0624 +00 0003 8562 +1356 7 C0003 00 0003 8522 DEK 0625 +00 0003 8522 +1357 7 C0004 00 0003 8382 TAP 0626 +00 0003 8382 +1358 7 C0005 00 0003 8352 DSK 0627 +00 0003 8352 +1359 7 C0006 00 0003 8362 CDD 0628 +00 0003 8362 +1360 7 C0201 00 0003 8622 PAL 0823 +00 0003 8622 +1361 1 +1362 984 RAC 900 PSUDO 0984 +88 0900 0976 punch non-code card, then jmp next instr +1363 900 RSA 200 0900 +81 0200 1984 +1364 RSB 599 N0002 1984 +83 0599 0343 +1365 2 N0002 LOD O0104 1498 0343 +69 1653 1498 +1366 899 STD 9009 0899 +24 9009 1985 +1367 RAM O0050 7F 1985 +67 1599 0753 +1368 7 RSC 8 2F 0753 +89 0008 0586 +1369 2 LOD A0201A 0586 +69 3950 0903 +1370 STD 9009C 0903 +24 9609 0636 +1371 STL 9008C 0636 +20 9608 0894 +1372 AXC 2 0894 +58 0002 1500 +1373 AXA 1 N0013 1500 +50 0001 0354 +1374 2 N0013 NZC 98 99 0354 +48 0098 0099 +1375 98 AML S0199 2B 0098 +17 1398 0586 +1376 99 WR1 9000 N0007 0099 +71 9000 0348 +1377 2 N0007 NZA 5 1598B 0348 +40 0005 5598 +1378 5 SLO N0063 7B 0005 +16 0404 0753 +1379 00050 00 0 450 1599 +00 0000 0450 +1380 - S0199 00 500 500 1398 -00 0500 0500 +1381 1 +1382 1999 RSU N0037 1999 +61 0378 0686 +1383 MPY 1951 0686 +19 1951 0836 +1384 BMI 1954 0836 +46 1954 1040 +1385 RAC 8003 1040 +88 8003 1648 +1386 RSB 8 1F 1648 +83 0008 0754 +1387 1 LOD 1960B N0060 0754 +69 5960 0401 +1388 2 N0060 STD A0001C 488 0401 +24 7750 0488 +1389 488 AXB 2 1004 0488 +52 0002 1004 +1390 1004 NZB READA 1004 +42 0936 0999 +1391 AXC 1 1B 0936 +58 0001 0754 +1392 1 +1393 954 RAC 800 PSUDO PST 0954 +88 0800 0976 punch non-code card, then jmp next instr +1394 800 RAL O0104 N0001 0800 +65 1653 0342 +1395 2 N0001 STD 1954 498 0342 +24 1954 0498 +1396 498 STU 1953 0498 +21 1953 1036 +1397 RSC 19 970 1036 +89 0019 0970 +1398 970 LOD LEVEL SER 0970 +69 0256 1536 +1399 RAB 8001 1536 +82 8001 1042 +1400 SET 9001 1042 +27 9001 0947 +1401 LDI 820 C 9001 0947 +09 6820 9001 +1402 60006 DRC 9006 +1403 9001 RAM N0032 2F 9001 0801 +67 0373 9006 +1404 2 NZB READA 9006 0806 +42 9007 0999 +1405 STL 9002 8001 9007 0807 +20 9002 8001 PAGE 24 +1406 2 - N0032 RAL S0001 88 0373 -65 1200 0088 +1407 88 BMI 9003 0088 +46 9003 9008 +1408 STD 1951 9008 0808 +24 1951 9009 +1409 RAL 9002 9009 0809 +65 9002 9010 +1410 SLO N0053 DIVID 9010 0810 +16 0394 0336 +1411 2 N0053 RAL S0294 88 0394 +65 1493 0088 +1412 9039 NZU 1F 9039 0839 +44 9011 9012 +1413 SRT 4 1F 9011 0811 +30 0004 9012 +1414 1 RAA 8002 N0087 9012 0812 +80 8002 0428 +1415 2 N0087 RAU 8005 598 0428 +60 8005 0598 +1416 598 AUP 9004 0598 +10 9004 9013 +1417 SRT 1 N0054 9013 0813 +30 0001 0395 +1418 2 N0054 MPY 9005 588 0395 +19 9005 0588 +1419 588 MPY 1IXXX 0588 +19 0897 9014 +1420 SRT 2 9014 0814 +30 0002 9015 +1421 NZU N0054 9015 0815 +44 0395 9016 +1422 SML N0031 9016 0816 +18 0372 9017 +1423 SRT 1 9017 0817 +30 0001 9018 +1424 STL 1952 SPRUD 9018 0818 +20 1952 9019 +1425 SPRUd RSC 997 PSUDO 9019 0819 +89 0997 0976 punch non-code card, then jmp to 997 +1426 9003 SXB 1 9003 0803 +53 0001 9020 +1427 RAL 9002 9020 0820 +65 9002 9021 +1428 ALO 9004 2B 9021 0821 +15 9004 9006 +1429 9004 00 1 0 9004 0804 +00 0001 0000 +1430 9005 00 0 10 9005 0805 +00 0000 0010 +1431 70003 DRC 9003 +1432 9001 RAC 0 2F 9001 1020 +88 0000 9003 +1433 2 SXC 0000B 9003 1022 +59 4000 9004 +1434 NZC 9002 9004 1023 +48 9005 9002 +1435 AXC 0001B 9005 1024 +58 4001 9006 +1436 RAL S0000C 9006 1025 +65 7199 9007 +1437 BMI 2B 9007 1026 +46 9003 9008 +1438 STU S0000C 2B 9008 1027 +21 7199 9003 +1439 9002 STU LEVEL 1 9002 1021 +21 0256 0001 +1440 COR +1441 - S0049 ALF DISKR THINK 1248 -64 6982 7279 +1442 - S0050 ALF DSKR1 THINK 1249 -64 8272 7991 +1443 1 +1444 987 RAC 168 LMAST 0987 +88 0168 0442 +1445 468 RAB 8002 30013 0468 +82 8002 0263 +1446 30013 WTM 0 B 3 0263 +56 4000 0003 +1447 983 RSL 8002 968 PLR 0983 +66 8002 0968 +1448 968 LOD S0149 DUMP8 SKP 0968 +69 1348 1544 +1449 7 - S0149 00 0003 8602 1348 -00 0003 8602 +1450 1 +1451 985 STU MODET 1 NMO 0985 +21 0156 0001 +1452 990 RSU 1IXXX 985 HMO 0990 +61 0897 0985 +1453 991 RAU 1IXXX 985 MMO 0991 +60 0897 0985 +1454 MODET ALF THINK 0156 +00 0000 0000 +1455 1 +1456 992 RAC 169 IMAST 0992 +88 0169 0550 +1457 469 STL EXIT0 0469 +20 0323 1736 +1458 RAC 170 DMAST 1736 +88 0170 0649 +1459 470 SLT 4 0470 +35 0004 1986 +1460 ALO EXIT0 1986 +15 0323 1737 +1461 SLT 2 1737 +35 0002 1543 +1462 LOD 1960 1543 +69 1960 1987 +1463 BD6 1F 1987 +96 1540 1542 +1464 ALO 1IXXX 1F 1542 +15 0897 1540 +1465 1 AML N0036 1540 +17 0377 1738 +1466 STL OPTIM 1 1738 +20 0188 0001 PAGE 25 +1467 OPTIM ALF THINK 0188 +00 0000 0000 +1468 1 +1469 993 RAC 171 IMAST ADN 0993 +88 0171 0550 +1470 471 STL EXIT0 0471 +20 0323 1988 +1471 RAC 172 DMAST 1988 +88 0172 0649 +1472 472 RAC 8002 0472 +88 8002 1039 +1473 LOD 1960 30012 1039 +69 1960 0262 +1474 30012 BD6 1F 0262 +96 1539 1739 +1475 RAL EXIT0 2F 1739 +65 0323 1989 +1476 1 RSL EXIT0 2F 1539 +66 0323 1989 +1477 2 SLT 0 C 1989 +35 6000 1740 +1478 ALO ADEND 1740 +15 0303 1990 +1479 STL ADEND 1 1990 +20 0303 0001 +1480 ADEND ALF THINK 0303 +00 0000 0000 +1481 1 +1482 994 RSM O0013 PDD 0994 +68 1562 0691 +1483 STL DISKR 0691 +20 1248 1502 +1484 SDS 9000 1502 +85 9000 0841 +1485 RSM O0014 0841 +68 1563 0891 +1486 STL S0050 0891 +20 1249 1503 +1487 SDS 9000 1503 +85 9000 0941 +1488 LOD RAMON 30009 0941 +69 0662 0259 +1489 1002 LOD RAMOF 30009 1002 +69 0905 0259 +1490 30009 STD RAMSW 1 0259 +24 0773 0001 +1491 995 LOD DISKC 0995 +69 1598 0904 +1492 SDS 9000 0904 +85 9000 1041 +1493 RAA 59 1041 +80 0059 1047 +1494 RAL 3F 1047 +65 1504 1541 +1495 HLT 9059 8000 1504 +01 9059 8000 +1496 3 STL 9000A 1541 +20 9200 1741 +1497 NZA 2F 1741 +40 1044 1745 +1498 SLO 60004 1044 +16 0804 1991 +1499 SXA 1 3B 1991 +51 0001 1541 +1500 2 LOD DISKC 1745 +69 1598 1742 +1501 WDS 9000 1742 +87 9000 1197 +1502 LOD CORON 1F 1197 +69 0606 1992 +1503 1001 LOD COROF 1F COF 1001 +69 0684 1992 +1504 1 STD CORSW 1 1992 +24 0685 0001 +1505 1 +1506 200 RAM N0037 FILLL END 0200 +67 0378 0768 end of pseudo-op execution +1507 1 +1508 1000 RAM S0150 FILLL BOP 1000 +67 1349 0768 +1509 - S0150 LOD C0001 DUMP8 1349 -69 0623 1544 +1510 1 +1511 1003 LOD FAROF DMO 1003 +69 0491 1494 +1512 STD FARSW 991 1494 +24 0824 0991 +1513 1 +1514 1005 LOD DUMP8 1005 +69 1743 1544 +1515 7 00 0003 8642 1743 +00 0003 8642 +1516 1 +1517 1006 LOD DUMP8 1006 +69 1993 1544 +1518 7 00 0003 8652 1993 +00 0003 8652 +1519 1007 RSL 8002 1006 1007 +66 8002 1006 +1520 1008 SCT 1 1006 1008 +36 0001 1006 +1521 1009 SCT 1 1007 1009 +36 0001 1007 +1522 1 +1523 1 VII ERROR CORRECTION RESTARTS +1524 1 +1525 HLT11 HLT 2 B 111 0827 +01 4002 0111 +1526 HLT22 HLT 997 C 222 0504 +01 6997 0222 +1527 HLT33 HLT 333 333 1011 +01 0333 0333 PAGE 26 +1528 HLT44 HLT 0 A 444 1994 +01 2000 0444 +1529 HLT55 HLT 2 B 555 1995 +01 4002 0555 +1530 HLT66 HLT 666 666 0474 +01 0666 0666 +1531 HLT77 HLT 777 777 0224 +01 0777 0777 +1532 HLT88 HLT 1000A 888 1997 +01 3000 0888 +1533 HLT99 HLT 999 999 1717 +01 0999 0999 +1534 1 +1535 111 BOV 888 888 0111 +47 0888 0888 +1536 222 BOV 888 888 0222 +47 0888 0888 +1537 444 LOD S0200 DUMP8 0444 +69 1399 1544 +1538 888 LOD S0200 DUMP8 0888 +69 1399 1544 +1539 7 - S0200 00 0003 8662 1399 -00 0003 8662 +1540 666 STD CARRY 0666 +24 0460 1744 +1541 STU OPTIM 333 1744 +21 0188 0333 +1542 333 STU PROGP READA 0333 +21 1962 0999 +1543 555 RD1 1999 START 0555 +70 1999 1998 +1544 KEEP ALF YYYYY THINK 0223 +88 8888 8888 +1545 PAL +1546 BLA 1546 1546 AVAILABLE +1547 BLA 1497 1497 AVAILABLE +1548 BLA 1747 1747 AVAILABLE +1549 BLA 1698 1698 AVAILABLE +1550 BLA 1699 1699 AVAILABLE +1551 3800 CDD 0 1999 +1552 RD1 1999 1998 8004 +70 1999 1998 +1553 CON PAGE 1 +1554 1 LOCAFIER 3834 TAP CDD AND DSK +1555 LHOLD EQU 30005 +1556 DHOLD EQU S0294 +1557 IHOLD EQU 533TL +1558 DBAND EQU S0292 +1559 DREM EQU S0293 +1560 IBAND EQU S0260 +1561 IREM EQU S0270 +1562 BLR 0 1999 +1563 BLA 1960 1993 +1564 BLA 1998 1999 +1565 COR 9000 +1566 0 RAL 47 9000 +65 0047 9001 Loc of pseudo op as stated in soap source card (=1951 of card read area) +1567 RAC 1650 9001 +88 1650 9002 +1568 RSB 1 9002 +83 0001 9003 +1569 LOD 1F 9003 +69 9004 9005 +1570 SET 9010 8001 9005 +27 9010 8001 +1571 1 STI 1950 MASTR 9004 +29 1950 0069 Process next card, then jmp to 1650 +1572 COR +1573 9010 COD 1950 +1574 1950 STL LHOLD 1950 9010 +20 0255 1960 +1575 RAL 49 1960 9020 +65 0049 1961 +1576 NZE 9F 1961 9021 +45 1964 1965 +1577 LOD 5F 1964 9024 +69 1967 1970 +1578 SDS 9000 1F 1970 9030 +85 9000 1975 +1579 1 AXC 1 MASTR 1975 9035 +58 0001 0069 +1580 1951 STL IHOLD 1951 9011 +20 0046 1999 +1581 AXA 1 1999 9059 +50 0001 1962 +1582 NZA HLT55 1962 9022 +40 1995 1966 +1583 RAM RAMSW 1966 9026 +67 0773 1977 +1584 SLO RAMON 1977 9037 +16 0662 1968 +1585 NZE 1695 1968 9028 +45 1695 1973 +1586 RAL 48 1B 1973 9033 +65 0048 1975 +1587 1952 STL DHOLD 1952 9012 +20 1493 1998 +1588 NZE 1F 1998 9058 +45 1963 1969 +1589 RAL IHOLD 1969 9029 +65 0046 1971 +1590 SLO 3F 1971 9031 +16 1974 1979 +1591 NZE 1F 2F 1979 9039 +45 1963 1983 +1592 3 00 0 1999 1974 9034 +00 0000 1999 +1593 1 AXA 1 1963 9023 +50 0001 1972 +1594 NZA HLT55 2F 1972 9032 +40 1995 1983 +1595 2 RAL 5F 1699 1983 9043 +65 1967 1699 +1596 7 5 00 0008 8002 1967 9027 +00 0008 8002 +1597 1954 LOD 308 C 1954 9014 +69 6308 1976 +1598 SDS 9000 1976 9036 +85 9000 1981 +1599 RDS 9000 1981 9041 +86 9000 1986 +1600 SET 9010 306 C 1986 9046 +27 9010 6306 +1601 1956 STI 1650 1956 9016 +29 1650 1978 +1602 AXC 1 1954 1978 9038 +58 0001 1954 +1603 1957 STI 1950 READA 1957 9017 +29 1950 0999 +1604 9 RAL CORSW 1965 9025 +65 0685 1989 +1605 SLO CORON 1989 9049 +16 0606 1980 +1606 LOD DISKC 1980 9040 +69 1598 1982 +1607 SDS 9000 1982 9042 +85 9000 1987 +1608 NZE 1954 1987 9047 +45 1954 1991 +1609 RDS 9000 1696 1991 9051 +86 9000 1696 +1610 7 1958 00 0003 8282 1958 9018 +00 0003 8282 +1611 7 1959 00 0003 8332 1959 9019 +00 0003 8332 +1612 1996 SDS 9000 1954B 1996 9056 +85 9000 5954 +1613 1953 LDI 1700C 1F 1953 9013 +09 7700 1984 +1614 1955 LDI 0 C 1F 1955 9015 +09 6000 1984 PAGE 2 +1615 1 WDS 9000 1984 9044 +87 9000 1990 +1616 NZC 1654B 1990 9050 +48 1985 5654 +1617 SXC 50 WRITE 1985 9045 +59 0050 1992 +1618 WRITE ALO 1F 1992 9052 +15 1988 1993 +1619 LOD 8002 1996 1993 9053 +69 8002 1996 +1620 1 00 0 10 1988 9048 +00 0000 0010 +1621 HLT44 HLT 301 C 300 1994 9054 +01 6301 0300 +1622 HLT55 HLT 301 C 300 1995 9055 +01 6301 0300 +1623 HLT88 HLT 301 C 300 1997 9057 +01 6301 0300 +1624 3834 CDD +1625 1 LOCAFIER 3835 DSK START +1626 BLR 0 1999 +1627 BLA 1650 1694 +1628 SYN 1653 +1629 SYN 1655 +1630 COR 9000 +1631 0 LOD 1F 9000 +69 9001 9002 +1632 SDS 9000 9002 +85 9000 9003 +1633 LOD READA 9003 +69 0999 9004 +1634 STD SSOUT 9004 +24 0526 9005 +1635 LOD 2F 9005 +69 9006 9007 +1636 SET 9010 8001 9007 +27 9010 8001 +1637 2 STI 1650 9006 +29 1650 9008 +1638 LOD 1F 9008 +69 9001 9009 +1639 RDS 9000 9000 9009 +86 9000 9000 +1640 7 1 00 0003 8342 9001 +00 0003 8342 +1641 COR +1642 9010 COD 1650 +1643 1699 RAC 200 SET90 1699 9059 +88 0200 1656 +1644 SET90 SET 9000 1996 1656 9016 +27 9000 1996 +1645 1695 RAC 1650 1954 1695 9055 +88 1650 1954 +1646 1696 RAL LHOLD 1696 9056 +65 0255 1659 +1647 SLT 1 1659 9019 +35 0001 1665 +1648 ALO 1F 1665 9025 +15 1668 1673 +1649 LOD 8002 1673 9033 +69 8002 1679 +1650 SDS 9000 1679 9039 +85 9000 1684 +1651 WDS 9000 1954 1684 9044 +87 9000 1954 +1652 7 1 00 0 2 1668 9028 +00 0000 0002 +1653 1653 RAB 1 1653 9013 +82 0001 1660 +1654 RAC 1600 WRITE 1660 9020 +88 1600 1992 +1655 1655 RAL LHOLD 1655 9015 +65 0255 1661 +1656 SLT 1 1661 9021 +35 0001 1667 +1657 ALO 6F 1667 9027 +15 1670 1675 +1658 STL 1604 1698A 1675 9035 +20 1604 3698 +1659 1697 LOD 3F 1697 9057 +69 1650 1654 +1660 SDS 9000 1654 9014 +85 9000 1662 +1661 SCT 1 DUMP9 1662 9022 +36 0001 1547 +1662 7 3 00 0003 8432 1650 9010 +00 0003 8432 +1663 1698 LOD 1F 1698 9058 +69 1651 1657 +1664 SDS 9000 1657 9017 +85 9000 1663 +1665 RAL IHOLD 1663 9023 +65 0046 1652 +1666 DIV 2F 1652 9012 +14 1658 1669 +1667 STL IBAND 1669 9029 +20 1459 1664 +1668 STU IREM 1664 9024 +21 1469 1672 +1669 RAB 0 1672 9032 +82 0000 1678 +1670 LOD 1F 1678 9038 +69 1651 1666 +1671 RDS 9000 9000 1666 9026 +86 9000 9000 +1672 7 1 00 0003 8452 1651 9011 +00 0003 8452 +1673 2 00 0 50 1658 9018 +00 0000 0050 +1674 7 6 00 0 2 1670 9030 +00 0000 0002 +1675 3835 CDD PAGE 3 +1676 1 LOCAFIER 3836 CDD START +1677 BLR 0 1999 +1678 BLA 1650 1673 +1679 BLR 1651 1653 +1680 SYN 1655 +1681 COR 9000 +1682 0 LOD 1F 9000 +69 9001 9002 +1683 SDS 9000 9002 +85 9000 9003 +1684 LOD READA 9003 +69 0999 9004 +1685 STD SSOUT 9004 +24 0526 9005 +1686 LOD 2F 9005 +69 9006 9007 +1687 SET 9010 8001 9007 +27 9010 8001 +1688 2 STI 1650 9006 +29 1650 9008 +1689 LOD 1F 9008 +69 9001 9009 +1690 RDS 9000 9000 9009 +86 9000 9000 +1691 7 1 00 0003 8342 9001 +00 0003 8342 +1692 COR +1693 9010 COD 1650 +1694 1699 WR1 1666 1699 9059 +71 1666 1656 Punch CDD loader +1695 RAC 200 1656 9016 +88 0200 1662 +1696 SET 9000 1996 1662 9022 +27 9000 1996 +1697 1696 WR1 1666 1696 9056 +71 1666 1654 +1698 RSB 56 1F 1654 9014 +83 0056 1660 +1699 1 SET 9056B 1660 9020 +27 9456 1666 +1700 STI 1677 1666 9026 +29 1677 1650 +1701 NZB 3F 1655 1650 9010 +42 1657 1655 +1702 1655 RAL LHOLD 1655 9015 +65 0255 1659 +1703 SLT 1 1659 9019 +35 0001 1665 +1704 ALO 6F 1651B 1665 9025 +15 1669 5651 +1705 1651 LIB 1674 1651 9011 +08 1674 1658 +1706 SET 9000 1658 9018 +27 9000 1663 +1707 SIB 1681 1663 9023 +28 1681 1661 +1708 STL 1684 3F 1661 9021 +20 1684 1657 +1709 3 LOD 1F 1657 9017 +69 1664 1667 +1710 STD 1686 1667 9027 +24 1686 1668 +1711 WR1 1666 1668 9028 +71 1666 1670 +1712 NZB 1954 1670 9030 +42 1673 1954 +1713 AXB 8 1B 1673 9033 +52 0008 1660 +1714 1 00 8088 0 1664 9024 +00 8088 0000 +1715 1653 RAB 1 1653 9013 +82 0001 1671 +1716 RAC 1600 WRITE 1671 9031 +88 1600 1992 +1717 BLA 1685 1693 +1718 SYN 1686 +1719 1652 STL 1604 1698A 1652 9012 +20 1604 3698 +1720 1697 LOD DUMP8 1697 9057 +69 1672 1544 +1721 7 00 0003 8432 1672 9032 +00 0003 8432 +1722 1698 LOD 1F 1698 9058 +69 1685 1688 +1723 SDS 9000 1688 9048 +85 9000 1693 +1724 RAL IHOLD 1693 9053 +65 0046 1687 +1725 DIV 2F 1687 9047 +14 1690 1689 +1726 STL IBAND 1689 9049 +20 1459 1691 +1727 STU IREM 1691 9051 +21 1469 1692 +1728 LOD 1F DUMP9 1692 9052 +69 1685 1547 +1729 7 1 00 0003 8452 1685 9045 +00 0003 8452 +1730 7 6 00 0 2 1669 9029 +00 0000 0002 +1731 2 00 0 50 1690 9050 +00 0000 0050 +1732 1686 00 8088 0 1686 9046 +00 8088 0000 +1733 1695 RAC 1650 1954 1695 9055 +88 1650 1954 +1734 9037 COD 1951 +1735 1951 LOD 1952 1953 1951 9037 +69 1952 1953 CDD loader +1736 1952 SET 9056A 1956 1952 9038 +27 9256 1956 PAGE 4 +1737 1953 STD 1900 1954 1953 9039 +24 1900 1954 +1738 1954 RSA 56 1955 1954 9040 +81 0056 1955 +1739 1955 RD1 1900 9898 1955 9041 +70 1900 9898 +1740 1956 LDI 1901 1957 1956 9042 +09 1901 1957 +1741 1957 NZA 1958 1905 1957 9043 +40 1958 1905 +1742 1958 AXA 8 1955 1958 9044 +50 0008 1955 +1743 9034 COD 1905 +1744 1905 LOD 1908 1906 1905 9034 +69 1908 1906 +1745 1906 SDS 9000 1907 1906 9035 +85 9000 1907 +1746 1907 WDS 9000 8000 1907 9036 +87 9000 8000 +1747 3836 CDD +1748 1 LOCAFIER 3837 DRUM RESTORER +1749 BLR 0 1999 +1750 BLA 1905 1925 +1751 COR 9000 +1752 0 RAL 1F 9000 +65 9001 9002 +1753 SDS 9000 9002 +85 9000 9003 +1754 RAB 0 9003 +82 0000 9004 +1755 RSC 1900 9004 +89 1900 9005 +1756 RAA 4 9005 +80 0004 9006 +1757 LOD 2F 9006 +69 9007 9008 +1758 SET 9010 8001 9008 +27 9010 8001 +1759 2 STI 1900 9007 +29 1900 9009 +1760 LOD 1F 2F D 9009 +69 9001 1908 +1761 7 1 00 0008 8372 9001 +00 0008 8372 +1762 COR +1763 9010 COD 1900 +1764 2 RDS 9000 1908 9018 +86 9000 1913 +1765 NZA 5F 1900B 1913 9023 +40 1917 5900 +1766 5 SLO 3F 1917 9027 +16 1920 1925 +1767 LOD 8002 1925 9035 +69 8002 1905 +1768 SDS 9000 1945 1905 9015 +85 9000 1945 +1769 1945 STI 1900C 1945 9055 +29 7900 1906 +1770 SXA 1 4F 1906 9016 +51 0001 1912 +1771 4 AXC 50 2B 1912 9022 +58 0050 1908 +1772 1900 LOD 1F 7F 1900 9010 +69 1907 1910 +1773 7 SDS 9000 1910 9020 +85 9000 1915 +1774 STI 1900C 1915 9025 +29 7900 1909 +1775 RDS 9000 1909 9019 +86 9000 1914 +1776 SLO 3F 1914 9024 +16 1920 1911 +1777 LOD 8002 1911 9021 +69 8002 1918 +1778 SET 9010 1939 1918 9028 +27 9010 1939 +1779 1939 SDS 9000 1946B 1939 9049 +85 9000 5946 +1780 1946 STI 1950 1946 9056 +29 1950 1916 +1781 RAA 4 6F 1916 9026 +80 0004 1922 +1782 1947 STI 1650 1947 9057 +29 1650 1919 +1783 RAA 23 6F 1919 9029 +80 0023 1922 +1784 6 AXB 1 4B 1922 9032 +52 0001 1912 +1785 1902 RAA 4 1902 9012 +80 0004 1921 +1786 AXB 1 1921 9031 +52 0001 1923 +1787 AXC 50 5B 1923 9033 +58 0050 1917 +1788 1901 LOD 8F 7B 1901 9011 +69 1924 1910 +1789 7 8 00 0003 8282 1924 9034 +00 0003 8282 +1790 1903 STI 1900 READA 1903 9013 +29 1900 0999 +1791 7 1 00 0003 8332 1907 9017 +00 0003 8332 +1792 3 00 0 10 1920 9030 +00 0000 0010 +1793 BLR 0 1999 +1794 BLA 1976 1994 +1795 SYN 1989 +1796 9059 SDS 9000 9014 9059 +85 9000 9014 +1797 9014 COD 1954 PAGE 5 +1798 9014 STI 1954 9058 9014 +29 1954 9058 +1799 9058 RDS 9000 9058 +86 9000 1976 +1800 ADN 5 5 +1801 ALO 3B 1976 9036 +15 1970 1977 +1802 LOD 8002 1977 9037 +69 8002 1983 +1803 SDS 9000 1983 9043 +85 9000 1988 +1804 SET 9030 1988 9048 +27 9030 1993 +1805 STI 350 1993 9053 +29 0350 1978 +1806 RDS 9000 1978 9038 +86 9000 1984 +1807 STI 380 1984 9044 +29 0380 1982 +1808 ADN 5 5 +1809 LOD 8B 1982 9042 +69 1974 1979 +1810 SDS 9000 1979 9039 +85 9000 1985 +1811 RDS 9000 1985 9045 +86 9000 1990 +1812 SET 9010 1990 9050 +27 9010 1980 +1813 STI 1650 1980 9040 +29 1650 1981 +1814 ADN 5 5 +1815 LOD 1B 1981 9041 +69 1957 1986 +1816 SDS 9000 1986 9046 +85 9000 1991 +1817 RDS 9000 1991 9051 +86 9000 1987 +1818 SET 9010 1987 9047 +27 9010 1992 +1819 STI 1950 READA 1992 9052 +29 1950 0999 +1820 3837 CDD +1821 1 LOCAFIER 3838 TAP START +1822 BLR 0 1999 +1823 BLA 1651 1692 +1824 SYN 1653 +1825 SYN 1655 +1826 COR 9000 +1827 0 LOD 1F 9000 +69 9001 9002 +1828 SDS 9000 9002 +85 9000 9003 +1829 LOD 1955 9003 +69 1955 9004 +1830 STD 9054 9004 +24 9054 9005 +1831 LOD READA 9005 +69 0999 9006 +1832 STD SSOUT 9010 9006 +24 0526 9010 +1833 9010 STI 1650 9010 +29 1650 9007 +1834 RAL 49 9007 +65 0049 9008 +1835 LOD 1F 2F D 9008 +69 9001 1659 +1836 3 RDS 9000 9000 9009 +86 9000 9000 +1837 7 1 00 0003 8342 9001 +00 0003 8342 +1838 COR +1839 9010 COD 1650 +1840 2 NZE 3B 1659 9019 +45 9009 1663 +1841 LOD 1960 1663 9023 +69 1960 1664 +1842 BD6 3F 1664 9024 +96 1667 1669 +1843 LOD 5F 1667 9027 +69 1670 1673 +1844 STD 4F 3F 1673 9033 +24 1676 1669 +1845 3 LOD 1B 3B 1669 9029 +69 9001 9009 +1846 1699 RAC 200 1699 9059 +88 0200 1656 +1847 SET 9000 1996 1656 9016 +27 9000 1996 +1848 1696 RAL 48 1696 9056 +65 0048 1654 +1849 NZE 1F 1654 9014 +45 1658 1660 +1850 RAC 1393 MASTR 1658 9018 +88 1393 0069 +1851 1 RSA 1000 1F 1660 9020 +81 1000 1666 +1852 1693 RAA 8002 1F 1693 9053 +80 8002 1666 +1853 1 LOD LHOLD 1666 9026 +69 0255 1661 +1854 RAB 8001 1661 9021 +82 8001 1668 +1855 RAC 4 1F 1668 9028 +88 0004 1674 +1856 1 SET 0 A 4F 1674 9034 +27 2000 1676 +1857 4 WTN 0 B 6F 1676 9036 +06 4000 1682 +1858 5 WTA 0 B 6F 1670 9030 +07 4000 1682 PAGE 6 +1859 6 NTS 1695 1682 9042 +25 1695 1687 +1860 SXC 1 1687 9047 +59 0001 1651 +1861 NZC 9911 1651 9011 +48 1657 9911 +1862 BST 0 B 1B 1657 9017 +57 4000 1674 +1863 1653 RAB 1 1653 9013 +82 0001 1662 +1864 RAC 1600 WRITE 1662 9022 +88 1600 1992 +1865 1655 LOD LHOLD 1655 9015 +69 0255 1665 +1866 STD 1604 1698A 1665 9025 +24 1604 3698 +1867 1697 LOD DUMP8 1697 9057 +69 1652 1544 +1868 7 00 0003 8392 1652 9012 +00 0003 8392 +1869 1698 LOD 1F 1698 9058 +69 1671 1675 +1870 SDS 9000 1675 9035 +85 9000 1680 +1871 RAL IHOLD 1680 9040 +65 0046 1672 +1872 DIV 2F 1672 9032 +14 1677 1688 +1873 STL IBAND 1688 9048 +20 1459 1678 +1874 STU IREM 1678 9038 +21 1469 1679 +1875 LOD 1F 1679 9039 +69 1671 1681 +1876 RDS 9000 9000 1681 9041 +86 9000 9000 +1877 7 1 00 0003 8412 1671 9031 +00 0003 8412 +1878 2 00 0 50 1677 9037 +00 0000 0050 +1879 1695 RAC 1650 1954 1695 9055 +88 1650 1954 +1880 3838 CDD +1881 1 LOCAFIER 3839 TAP DRUM LOADER +1882 COR 9000 +1883 0 LOD 1F 9000 +69 9001 9002 +1884 SDS 9000 9002 +85 9000 9003 +1885 LOD INSTR 9003 +69 0314 9004 +1886 STD 9042 9004 +24 9042 9005 +1887 LOD 1694 9005 +69 1694 9006 +1888 STD 9022 9006 +24 9022 9007 +1889 RAL LHOLD 9007 +65 0255 9008 +1890 SLT 4 9008 +35 0004 9009 +1891 LOD 9028 9009 +69 9028 9010 +1892 SDA 9028 9010 +22 9028 9011 +1893 LOD 9024 9011 +69 9024 9012 +1894 SDA 9024 9012 +22 9024 9013 +1895 LOD 9031 9013 +69 9031 9014 +1896 SDA 9031 9014 +22 9031 9015 +1897 LOD 9046 9015 +69 9046 9016 +1898 SDA 9046 9019 9016 +22 9046 9019 +1899 9019 STI 1609 9019 +29 1609 9017 +1900 LOD 1F 9017 +69 9001 9018 +1901 RDS 9000 9000 9018 +86 9000 9000 +1902 7 1 00 0003 8402 9001 +00 0003 8402 +1903 9021 DRC 9001 +1904 SYN 9002 +1905 0 NTS 9030 9000 9001 9021 +25 9030 9000 +1906 9000 RAL 9008 9000 9020 +65 9008 9003 +1907 RAC 9 3F 9003 9023 +88 0009 9004 +1908 3 BST LHOLD 9036 9004 9024 +57 0255 9036 +1909 2 9036 SET 9000 8002 9036 9056 +27 9000 8002 +1910 9008 RTN LHOLD 9008 9028 +04 0255 9005 +1911 NTS 9030 9005 9025 +25 9030 9006 +1912 SXC 1 9006 9026 +59 0001 9007 +1913 NZC 3B 9900 9007 9027 +48 9004 9900 +1914 9030 RAC 10 9009 9030 9050 +88 0010 9009 +1915 9009 STI 1969 1975 9009 9029 +29 1969 1975 +1916 9029 COD 1969 +1917 1975 RSA 1700 1981 1975 9035 +81 1700 1981 +1918 1981 RAL 1986 1992 1981 9041 +65 1986 1992 +1919 1992 STI 1700A 1972 1992 9052 +29 3700 1972 PAGE 7 +1920 1972 RAB 0 8002 1972 9032 +82 0000 8002 +1921 1986 RTN LHOLD 1991 1986 9046 +04 0255 1991 +1922 1991 AXB 1 1997 1991 9051 +52 0001 1997 +1923 1997 LOD 1975B 1994 1997 9057 +69 5975 1994 +1924 1994 NTS 1999 1971 1994 9054 +25 1999 1971 +1925 1999 RAC 10 8001 1999 9059 +88 0010 8001 +1926 1971 BST LHOLD 1983 1971 9031 +57 0255 1983 +1927 1983 SXB 1 1988 1983 9043 +53 0001 1988 +1928 1988 SXC 1 1993 1988 9048 +59 0001 1993 +1929 1993 NZC 1996 9901 1993 9053 +48 1996 9901 +1930 1996 SET 9000 8002 1996 9056 +27 9000 8002 +1931 1976 STI 1720A 1973 1976 9036 +29 3720 1973 +1932 1973 STI 1750A 8002 1973 9033 +29 3750 8002 +1933 1977 STI 1780A 1995 1977 9037 +29 3780 1995 +1934 1995 STI 1800A 8002 1995 9055 +29 3800 8002 +1935 1978 STI 1840A 1970 1978 9038 +29 3840 1970 +1936 1970 BMA 1989 1974 1970 9030 +41 1989 1974 +1937 1989 STI 1850A 8002 1989 9049 +29 3850 8002 +1938 1979 STI 1900A 1987 1979 9039 +29 3900 1987 +1939 1987 STI 1950A 8002 1987 9047 +29 3950 8002 +1940 1980 STI 1960A 1984 1980 9040 +29 3960 1984 +1941 1984 AXA 300 1992 1984 9044 +50 0300 1992 +1942 1974 RAL 1982 1989 1974 9034 +65 1982 1989 +1943 3839 CDD +1944 1 LOCAFIER 3840 TAP DRUM DUMP +1945 BLR 0 1999 +1946 BLA 1751 1773 +1947 COR 9000 +1948 0 LOD 1F 9000 +69 9001 9002 +1949 SDS 9000 9002 +85 9000 9003 +1950 LOD 2F 9003 +69 9004 9005 +1951 SET 9010 8001 9005 +27 9010 8001 +1952 2 STI 1750 9004 +29 1750 9006 +1953 LOD 1F 9006 +69 9001 9007 +1954 RDS 9000 9000 9007 +86 9000 9000 +1955 7 1 00 0003 8472 9001 +00 0003 8472 +1956 COR +1957 9010 COD 1750 +1958 1750 LOD 1604 1750 9010 +69 1604 1757 +1959 RAB 8001 1757 9017 +82 8001 1763 +1960 RAL 1F 2F 1763 9023 +65 1766 1771 +1961 2 SET 9000 1771 9031 +27 9000 1751 +1962 WTN 0 B 1751 9011 +06 4000 1758 +1963 NTS 1950 1758 9018 +25 1950 1764 +1964 BST 0 B 1764 9024 +57 4000 1770 +1965 SLO 3F 1770 9030 +16 1773 1752 +1966 NZE 2B 9911 1752 9012 +45 1771 9911 +1967 1 00 0 10 1766 9026 +00 0000 0010 +1968 3 00 0 1 1773 9033 +00 0000 0001 +1969 9010 COD 100 +1970 BLR 0 1999 +1971 BLA 124 149 +1972 BLR 140 141 +1973 140 LOD 293 4F 0140 9050 +69 0293 0146 +1974 141 LOD 293 4F 0141 9051 +69 0293 0146 +1975 4 RAB 8001 0146 9056 +82 8001 0124 +1976 RAL 1F 2F 0124 9034 +65 0127 0131 +1977 2 SET 9000 0131 9041 +27 9000 0136 +1978 WTN 0 B 0136 9046 +06 4000 0142 +1979 NTS 8F 0142 9052 +25 0147 0148 +1980 BST 0 B 0148 9058 +57 4000 0125 PAGE 8 +1981 SLO 3F 0125 9035 +16 0128 0133 +1982 NZE 2B 9911 0133 9043 +45 0131 9911 +1983 1 00 0 4 0127 9037 +00 0000 0004 +1984 3 00 0 1 0128 9038 +00 0000 0001 +1985 8 BOV 347 325 0147 9057 +47 0347 0325 +1986 3840 CDD +1987 1 LOCAFIER 3841 TAP FWA LWA 1 +1988 COR 9000 +1989 0 LOD 1F 9000 +69 9001 9002 +1990 SDS 9000 9002 +85 9000 9003 +1991 LOD 1694 9003 +69 1694 9004 +1992 STD 9018 9004 +24 9018 9005 +1993 RAL 1604 9005 +65 1604 9006 +1994 SLT 4 9006 +35 0004 9007 +1995 LOD 9020 9007 +69 9020 9008 +1996 SDA 9020 9008 +22 9020 9009 +1997 LOD 9016 9009 +69 9016 9010 +1998 SDA 9016 9015 9010 +22 9016 9015 +1999 9015 STI 1750 9015 +29 1750 9011 +2000 LOD INSTR 9011 +69 0314 9012 +2001 STD 1750 9012 +24 1750 9013 +2002 LOD 1F 9013 +69 9001 9014 +2003 RDS 9000 9000 9014 +86 9000 9000 +2004 7 1 00 0003 8482 9001 +00 0003 8482 +2005 9017 DRC 9001 +2006 SYN 9002 +2007 0 NTS 9006 9001 9017 +25 9006 9003 +2008 HLT 8888 9003 9019 +01 8888 9004 +2009 BST LHOLD 9000 9004 9020 +57 0255 9000 +2010 9000 RTN LHOLD 9001 9000 9016 +04 0255 9001 +2011 9006 LOD 9009 9008 9006 9022 +69 9009 9008 +2012 9008 SET 9010 8001 9008 9024 +27 9010 8001 +2013 9009 STI 8888 9000 9009 9025 +29 8888 9000 +2014 COR +2015 BLR 0 1999 +2016 BLA 1763 1789 +2017 BLA 1791 1793 +2018 9015 COD 1750 +2019 1762 RAL 9009 2F 1762 9027 +65 9009 1769 +2020 2 LOD 9003 1769 9034 +69 9003 1775 +2021 SDA 9003 1775 9040 +22 9003 1782 +2022 LOD 1604 1782 9047 +69 1604 1763 +2023 RAB 8001 1763 9028 +82 8001 1770 +2024 RAC 4 1F 1770 9035 +88 0004 1776 +2025 1 SET 9000 1776 9041 +27 9000 1781 +2026 WTN 0 B 1781 9046 +06 4000 1787 +2027 NTS 3F 1787 9052 +25 1791 1792 +2028 SXC 1 1792 9057 +59 0001 1764 +2029 NZC 9911 1764 9029 +48 1767 9911 +2030 BST 0 B 1B 1767 9032 +57 4000 1776 +2031 1761 LOD 1751 1761 9026 +69 1751 1765 +2032 STD 9000 1765 9030 +24 9000 1771 +2033 RAL 1F 1771 9036 +65 1774 1779 +2034 ALO 9009 1779 9044 +15 9009 1788 +2035 STL 9009 2B 1788 9053 +20 9009 1769 +2036 1 00 0 7 1774 9039 +00 0000 0007 +2037 3 BOV 1998 1791 9056 +47 1766 1998 +2038 LOD 2F 1766 9031 +69 1772 1777 +2039 SDS 9000 1777 9042 +85 9000 1783 +2040 RDS 9000 9000 1783 9048 +86 9000 9000 +2041 7 2 00 0003 8372 1772 9037 +00 0003 8372 PAGE 9 +2042 7 1790 00 0003 8422 1790 9055 +00 0003 8422 +2043 3841 CDD +2044 1 LOCAFIER 3842 TAP FWA LWA 2 +2045 COR 9000 +2046 0 LOD 1F 9000 +69 9001 9002 +2047 SDS 9000 9020 9002 +85 9000 9020 +2048 9020 STI 110 9020 +29 0110 9003 +2049 LOD 2F 9010 9003 +69 9004 9010 +2050 9010 LIB 1751 9010 +08 1751 9005 +2051 SET 9010 8001 9005 +27 9010 8001 +2052 2 SIB 101 9004 +28 0101 9006 +2053 LOD 1F 9006 +69 9001 9007 +2054 RDS 9000 9000 9007 +86 9000 9000 +2055 7 1 00 0003 8492 9001 +00 0003 8492 +2056 COR +2057 BLR 0 1999 +2058 BLA 114 149 +2059 9020 COD 110 +2060 112 RAL 9009 2F 0112 9022 +65 9009 0119 +2061 2 LOD 9003 0119 9029 +69 9003 0125 +2062 SDA 9003 0125 9035 +22 9003 0132 +2063 LOD 293 0132 9042 +69 0293 0146 +2064 RAB 8001 0146 9056 +82 8001 0114 +2065 RAC 4 1F 0114 9024 +88 0004 0120 +2066 1 SET 9000 0120 9030 +27 9000 0126 +2067 WTN 0 B 0126 9036 +06 4000 0133 +2068 NTS 3F 0133 9043 +25 0137 0138 +2069 SXC 1 0138 9048 +59 0001 0144 +2070 NZC 9911 0144 9054 +48 0147 9911 +2071 BST 0 B 1B 0147 9057 +57 4000 0120 +2072 111 LOD 101 0111 9021 +69 0101 0115 +2073 STD 9000 0115 9025 +24 9000 0121 +2074 RAL 1F 0121 9031 +65 0124 0129 +2075 ALO 9009 0129 9039 +15 9009 0139 +2076 STL 9009 2B 0139 9049 +20 9009 0119 +2077 3 BOV 347 349 0137 9047 +47 0347 0349 +2078 1 00 0 7 0124 9034 +00 0000 0007 +2079 3842 CDD +2080 1 LOCAFIER 3843 CDD DSK DRUMDUMP +2081 BLR 0 1999 +2082 BLR 1751 1771 +2083 COR 9000 +2084 0 LOD 1F 9000 +69 9001 9002 +2085 SDS 9000 9002 +85 9000 9003 +2086 LOD 2F 9003 +69 9004 9005 +2087 SET 9010 8001 9005 +27 9010 8001 +2088 2 STI 1750 9004 +29 1750 9006 +2089 LOD 1F 9006 +69 9001 9007 +2090 RDS 9000 9000 9007 +86 9000 9000 +2091 7 1 00 0003 8442 9001 +00 0003 8442 +2092 COR +2093 9010 COD 1750 +2094 1750 RAL 1604 1773 1750 9010 +65 1604 1773 +2095 1773 RSB 56 1F 1773 9033 +83 0056 1751 +2096 1 SET 9056B 1751 9011 +27 9456 1757 +2097 STI 1827 1757 9017 +29 1827 1752 +2098 NZB 3F 1752 9012 +42 1755 1756 +2099 LDI 1797 1756 9016 +09 1797 1753 +2100 SET 9000 1772 1753 9013 +27 9000 1772 +2101 1772 STI 1831 1772 9032 +29 1831 1754 +2102 STL 1834 1754 9014 +20 1834 1758 PAGE 10 +2103 SET 9000 3F 1758 9018 +27 9000 1755 +2104 3 LOD 1796 1755 9015 +69 1796 1759 +2105 STD 1836 1759 9019 +24 1836 1760 +2106 WR1 1818 1760 9020 +71 1818 1767 +2107 NZB BOTH1 1767 9027 +42 1770 1771 +2108 AXB 8 1B 1770 9030 +52 0008 1751 +2109 1796 00 8088 0 1796 9056 +00 8088 0000 +2110 BOTH1 ALO 1795 1771 9031 +15 1795 1761 +2111 STL 1604 1950 1761 9021 +20 1604 1950 +2112 1795 00 0 10 1795 9055 +00 0000 0010 +2113 BLR 1751 1771 +2114 BLA 127 143 +2115 BLR 140 141 +2116 9010 COD 100 +2117 140 RAL 293 125 0140 9050 +65 0293 0125 +2118 125 RSB 56 1F 0125 9035 +83 0056 0131 +2119 1 SET 9056B 0131 9041 +27 9456 0137 +2120 STI 577 0137 9047 +29 0577 0129 +2121 NZB 3F 0129 9039 +42 0132 0133 +2122 LDI 147 0133 9043 +09 0147 0127 +2123 SET 9000 124 0127 9037 +27 9000 0124 +2124 124 STI 581 0124 9034 +29 0581 0134 +2125 STL 584 0134 9044 +20 0584 0138 +2126 SET 9000 3F 0138 9048 +27 9000 0132 +2127 3 LOD 146 0132 9042 +69 0146 0128 +2128 STD 586 0128 9038 +24 0586 0139 +2129 WR1 555 0139 9049 +71 0555 0130 +2130 NZB BOTH2 0130 9040 +42 0135 0136 +2131 AXB 8 1B 0135 9045 +52 0008 0131 +2132 BOTH2 ALO 145 0136 9046 +15 0145 0142 +2133 STL 293 0142 9052 +20 0293 0143 +2134 BOV 347 325 0143 9053 +47 0347 0325 +2135 141 STD 149 140 0141 9051 +24 0149 0140 +2136 144 WDS 9000 8000 0144 9054 +87 9000 8000 +2137 147 LOD 1908 1906 0147 9057 +69 1908 1906 +2138 148 SDS 9000 1907 0148 9058 +85 9000 1907 +2139 149 WDS 9000 1954 0149 9059 +87 9000 1954 +2140 3843 CDD +2141 1 LOCAFIER 3844 CDD DSK LOADER +2142 COR 9000 +2143 0 LOD 1F 9000 +69 9001 9002 +2144 SDS 9000 9002 +85 9000 9003 +2145 LOD INSTR 9003 +69 0314 9004 +2146 STD 9035 9009 9004 +24 9035 9009 +2147 9009 STI 1609 9009 +29 1609 9005 +2148 BOV 9050 3F 9005 +47 9050 9006 +2149 3 LOD 1F 9006 +69 9001 9007 +2150 RDS 9000 9000 9007 +86 9000 9000 +2151 7 1 00 0003 8472 9001 +00 0003 8472 +2152 COR 9050 +2153 0 LOD 1F 9050 +69 9051 9052 +2154 SET 9055 8001 9052 +27 9055 8001 +2155 1 STI 1772 3B 9051 +29 1772 9006 +2156 9055 COD 1772 +2157 1773 SDS 9000 1772 1773 9056 +85 9000 1772 +2158 1772 WDS 9000 BOTH1 1772 9055 +87 9000 1771 +2159 9057 COD 124 +2160 125 SDS 9000 124 0125 9058 +85 9000 0124 +2161 124 WDS 9000 BOTH2 0124 9057 +87 9000 0136 +2162 9010 DRC 9000 +2163 0 RAU 8001 9000 9010 +60 8001 9001 PAGE 11 +2164 RSA 1700 9001 9011 +81 1700 9002 +2165 ALO 1F 9002 9012 +15 9003 9004 +2166 RAB 0 9004 9014 +82 0000 9005 +2167 STI 1965 1966 9005 9015 +29 1965 1966 +2168 9015 COD 1965 +2169 1966 AUP 1969 1973 1966 9016 +10 1969 1973 +2170 1973 LOD 8003 1980 1973 9023 +69 8003 1980 +2171 1980 SDS 9000 1986B 1980 9030 +85 9000 5986 +2172 1986 STI 1700A 8002 1986 9036 +29 3700 8002 +2173 1 RDS 9000 1999 9003 9013 +86 9000 1999 +2174 1999 AXB 1 1966 1999 9049 +52 0001 1966 +2175 1987 STI 1720A 1974 1987 9037 +29 3720 1974 +2176 1974 STI 1750A 8002 1974 9024 +29 3750 8002 +2177 1988 STI 1780A 1975 1988 9038 +29 3780 1975 +2178 1975 STI 1800A 8002 1975 9025 +29 3800 8002 +2179 1989 STI 1840A 1972 1989 9039 +29 3840 1972 +2180 1972 BMA 1976 1982 1972 9022 +41 1976 1982 +2181 1976 STI 1850A 8002 1976 9026 +29 3850 8002 +2182 1990 STI 1900A 1977 1990 9040 +29 3900 1977 +2183 1977 STI 1950A 8002 1977 9027 +29 3950 8002 +2184 1991 STI 1960A 1967 1991 9041 +29 3960 1967 +2185 1967 AXA 300 1981 1967 9017 +50 0300 1981 +2186 1981 RAB 0 1986 1981 9031 +82 0000 1986 +2187 1982 LOD 1985 1992 1982 9032 +69 1985 1992 +2188 1992 STI 1950 8001 1992 9042 +29 1950 8001 +2189 1969 00 0 10 1969 9019 +00 0000 0010 +2190 COR +2191 3844 CDD +2192 1 LOCAFIER 3845 CDD DSK FWALWA 1 +2193 COR 9000 +2194 0 LOD 1F 9000 +69 9001 9002 +2195 SDS 9000 9009 9002 +85 9000 9009 +2196 9009 STI 1750 9009 +29 1750 9003 +2197 LOD INSTR 9003 +69 0314 9004 +2198 STD 1750 9004 +24 1750 9005 +2199 NZB 2F 9056 9005 +42 9006 9056 +2200 9056 STI 1791 2F 9056 +29 1791 9006 +2201 2 LOD 1F 9006 +69 9001 9007 +2202 RDS 9000 9000 9007 +86 9000 9000 +2203 7 1 00 0003 8482 9001 +00 0003 8482 +2204 9010 DRC 9000 +2205 0 RAU 8001 9000 9010 +60 8001 9001 +2206 AUP 1F 9001 9011 +10 9002 9003 +2207 LOD 8003 9003 9013 +69 8003 9004 +2208 SDS 9000 9004 9014 +85 9000 9005 +2209 LOD 9009 9008 9005 9015 +69 9009 9008 +2210 9008 SET 9010 8001 9008 9018 +27 9010 8001 +2211 9009 STI 8888 9007 9009 9019 +29 8888 9007 +2212 9007 LOD 8003 9006 9007 9017 +69 8003 9006 +2213 9006 RDS 9000 9000 9006 9016 +86 9000 9000 +2214 1 00 0 10 9002 9012 +00 0000 0010 +2215 COR +2216 9009 COD 1750 +2217 BLR 0 1999 +2218 BLA 1763 1789 +2219 1762 RAL 1604 1792 1762 9021 +65 1604 1792 +2220 1792 RSB 56 1F 1792 9051 +83 0056 1763 +2221 1 SET 9056B 1763 9022 +27 9456 1769 +2222 STI 1827 1769 9028 +29 1827 1779 +2223 NZB 3F 1779 9038 +42 1782 1783 +2224 LIB 1794 1783 9042 +08 1794 1764 PAGE 12 +2225 SET 9000 1764 9023 +27 9000 1770 +2226 SIB 1831 1770 9029 +28 1831 1765 +2227 STL 1834 1765 9024 +20 1834 1787 +2228 SET 9000 3F 1787 9046 +27 9000 1782 +2229 3 LOD 1F 1782 9041 +69 1785 1788 +2230 STD 1836 1788 9047 +24 1836 1789 +2231 WR1 1818 1791 1789 9048 +71 1818 1791 +2232 1791 NZB 7F 1791 9050 +42 1766 1767 +2233 AXB 8 1B 1766 9025 +52 0008 1763 +2234 1 00 8088 0 1785 9044 +00 8088 0000 +2235 7 BOV 3F 1767 9026 +47 1771 1772 +2236 ALO 1F 1772 9031 +15 1775 1780 +2237 STL 1604 1998 1780 9039 +20 1604 1998 +2238 3 LOD 2F 1771 9030 +69 1774 1777 +2239 SDS 9000 1777 9036 +85 9000 1784 +2240 RDS 9000 9000 1784 9043 +86 9000 9000 +2241 1793 NOP 0 9003 1793 9052 +00 0000 9003 +2242 1 00 0 10 1775 9034 +00 0000 0010 +2243 7 2 00 0003 8372 1774 9033 +00 0003 8372 +2244 1761 LOD 1F 1761 9020 +69 1768 1773 +2245 STD 1796 1762 1773 9032 +24 1796 1762 +2246 1 WDS 9000 8000 1768 9027 +87 9000 8000 +2247 1794 LOD 1908 1906 1794 9053 +69 1908 1906 +2248 1795 SDS 9000 1907 1795 9054 +85 9000 1907 +2249 1796 WDS 9000 1954 1796 9055 +87 9000 1954 +2250 7 1790 00 0003 8462 1790 9049 +00 0003 8462 +2251 9056 COD 1791 +2252 1793 NOP 0 9056 1793 9058 +00 0000 9056 +2253 1792 SDS 9000 1794 1792 9057 +85 9000 1794 +2254 1794 WDS 9000 7B 1794 9059 +87 9000 1767 +2255 3845 CDD +2256 1 LOCAFIER 3846 CDD DSK FWALWA 2 +2257 COR 9000 +2258 0 LOD 1F 9000 +69 9001 9002 +2259 SDS 9000 9010 9002 +85 9000 9010 +2260 9010 STI 100 9010 +29 0100 9003 +2261 RAL 1699 9003 +65 1699 9004 +2262 SLO 2F 9004 +16 9005 9006 +2263 NZE 3F 9056 9006 +45 9007 9056 +2264 2 RAC 200 SET90 9005 +88 0200 1656 +2265 9056 STI 141 3F 9056 +29 0141 9007 +2266 3 LOD 1F 9007 +69 9001 9008 +2267 RDS 9000 9000 9008 +86 9000 9000 +2268 7 1 00 0003 8492 9001 +00 0003 8492 +2269 9011 DRC 9000 +2270 0 RAU 8001 9000 9011 +60 8001 9001 +2271 AUP 1F 9001 9012 +10 9002 9003 +2272 LOD 8003 9003 9014 +69 8003 9004 +2273 SDS 9000 9004 9015 +85 9000 9005 +2274 LOD 9009 9008 9005 9016 +69 9009 9008 +2275 9008 SET 9010 8001 9008 9019 +27 9010 8001 +2276 9009 STI 8888 9007 9009 9020 +29 8888 9007 +2277 9007 LOD 8003 9006 9007 9018 +69 8003 9006 +2278 9006 RDS 9000 9000 9006 9017 +86 9000 9000 +2279 1 00 0 10 9002 9013 +00 0000 0010 +2280 COR +2281 9010 COD 100 +2282 BLR 0 1999 +2283 BLA 113 138 +2284 112 RAL 293 142 0112 9022 +65 0293 0142 +2285 142 RSB 56 1F 0142 9052 +83 0056 0113 PAGE 13 +2286 1 SET 9056B 0113 9023 +27 9456 0119 +2287 STI 527 0119 9029 +29 0527 0129 +2288 NZB 3F 0129 9039 +42 0132 0133 +2289 LIB 139 0133 9043 +08 0139 0114 +2290 SET 9000 0114 9024 +27 9000 0120 +2291 SIB 531 0120 9030 +28 0531 0115 +2292 STL 534 0115 9025 +20 0534 0137 +2293 SET 9000 3F 0137 9047 +27 9000 0132 +2294 3 LOD 1F 0132 9042 +69 0135 0138 +2295 STD 536 0138 9048 +24 0536 0116 +2296 WR1 505 0116 9026 +71 0505 0123 +2297 NZB 7F 0123 9033 +42 0126 0127 +2298 AXB 8 1B 0126 9036 +52 0008 0113 +2299 1 00 8088 0 0135 9045 +00 8088 0000 +2300 7 ALO 1F 0127 9037 +15 0130 0136 +2301 STL 293 0136 9046 +20 0293 0117 +2302 BOV 347 349 0117 9027 +47 0347 0349 +2303 1 00 0 10 0130 9040 +00 0000 0010 +2304 139 LOD 1908 1906 0139 9049 +69 1908 1906 +2305 140 SDS 9000 1907 0140 9050 +85 9000 1907 +2306 141 WDS 9000 1954 0141 9051 +87 9000 1954 +2307 111 LOD 1F 0111 9021 +69 0118 0121 +2308 STD 141 112 0121 9031 +24 0141 0112 +2309 1 WDS 9000 8000 0118 9028 +87 9000 8000 +2310 9056 COD 141 +2311 142 SDS 9000 144 0142 9057 +85 9000 0144 +2312 144 WDS 9000 7B 0144 9059 +87 9000 0127 +2313 3846 CDD +2314 1 LOCAFIER 3847 CONTROL DRUMDUMP +2315 BLR 0 1999 +2316 BLA 1951 1972 +2317 BLR 1956 1960 +2318 COR 9000 +2319 0 LOD 1F 9000 +69 9001 9002 +2320 SDS 9000 9002 +85 9000 9003 +2321 LOD 2F 9003 +69 9004 9005 +2322 SET 9010 8001 9005 +27 9010 8001 +2323 2 STI 1950 9004 +29 1950 9006 +2324 LOD 1F 9006 +69 9001 9007 +2325 RDS 9000 9010 9007 +86 9000 9010 +2326 7 1 00 0003 8502 9001 +00 0003 8502 +2327 COR +2328 9010 COD 1950 +2329 1999 RSA 900 1999 9059 +81 0900 1955 +2330 SET 9000 1955 9015 +27 9000 1961 +2331 LDI 1610 1F 1961 9021 +09 1610 1962 +2332 1 RAC 1 1962 9022 +88 0001 1968 +2333 LDI 900 A 1750 1968 9028 +09 2900 1750 +2334 1950 AXC 1 1955C 1950 9010 +58 0001 7955 +2335 1956 LDI 920 A 1956 9016 +09 2920 1972 +2336 LDI 950 A 1750 1972 9032 +09 2950 1750 +2337 1957 BMA 1F 1957 9017 +41 1963 1964 +2338 LDI 980 A 1963 9023 +09 2980 1951 +2339 LDI 1000A 1750 1951 9011 +09 3000 1750 +2340 1958 LDI 1040A 1958 9018 +09 3040 1952 +2341 LDI 1050A 1750 1952 9012 +09 3050 1750 +2342 1959 LDI 1100A 1959 9019 +09 3100 1953 +2343 LDI 1150A 1750 1953 9013 +09 3150 1750 +2344 1960 LDI 1160A 1960 9020 +09 3160 1965 +2345 AXA 300 1B 1965 9025 +50 0300 1962 +2346 1 LOD 1F 1964 9024 +69 1967 1970 PAGE 14 +2347 SDS 9000 1970 9030 +85 9000 1954 +2348 LDI 1973 9000 1954 9014 +09 1973 9000 +2349 1973 STI 323 1973 9033 +29 0323 1966 +2350 LDI 1774 1966 9026 +09 1774 1969 +2351 SET 9027 1969 9029 +27 9027 1971 +2352 STI 124 324 1971 9031 +29 0124 0324 +2353 7 1 00 0003 8512 1967 9027 +00 0003 8512 +2354 9010 COD 300 +2355 BLR 0 1999 +2356 BLA 326 346 +2357 BLR 331 335 +2358 324 RDS 9000 9058 0324 9034 +86 9000 9058 +2359 348 RSA 900 0348 9058 +81 0900 0326 +2360 SET 9000 335 0326 9036 +27 9000 0335 +2361 335 LDI 1880A 0335 9045 +09 3880 0336 +2362 RAC 1 0336 9046 +88 0001 0342 +2363 LDI 1900A 140 0342 9052 +09 3900 0140 +2364 325 AXC 1 330 C 0325 9035 +58 0001 6330 +2365 331 LDI 1940A 0331 9041 +09 3940 0343 +2366 LDI 1950A 0343 9053 +09 3950 0327 +2367 BMA 9F 0327 9037 +41 0330 0337 +2368 AXA 300 140 0330 9040 +50 0300 0140 +2369 332 LDI 1700A 0332 9042 +09 3700 0328 +2370 LDI 1750A 140 0328 9038 +09 3750 0140 +2371 333 LDI 1760A 0333 9043 +09 3760 0329 +2372 LDI 1800A 140 0329 9039 +09 3800 0140 +2373 334 LDI 1820A 0334 9044 +09 3820 0338 +2374 LDI 1850A 140 0338 9048 +09 3850 0140 +2375 9 RAL 144 0337 9047 +65 0144 0339 +2376 SCT 1 141 0339 9049 +36 0001 0141 +2377 347 LOD 1F 0347 9057 +69 0340 0344 +2378 SDS 9000 0344 9054 +85 9000 0341 +2379 RDS 9000 9000 0341 9051 +86 9000 9000 +2380 7 1 00 0003 8372 0340 9050 +00 0003 8372 +2381 3847 CDD +2382 1 LOCAFIER 3848 CONTROL FWALWA 1 +2383 BLR 0 1999 +2384 BLR 1954 1997 +2385 SYN 1956 +2386 COR 9000 +2387 0 RAL DHOLD 9000 +65 1493 9001 +2388 DIV 9013 9001 +14 9013 9002 +2389 STL DBAND 9002 +20 1491 9003 +2390 STU DREM 9003 +21 1492 9004 +2391 SUP 8001 9004 +11 8001 9005 +2392 SLO 9011 9010 9005 +16 9011 9010 +2393 9010 STI 1950 9010 +29 1950 9006 +2394 BMI 1956 9006 +46 9007 1956 +2395 LOD 9012 9007 +69 9012 9008 +2396 SDS 9000 9008 +85 9000 9009 +2397 RDS 9000 9010 9009 +86 9000 9010 +2398 COR +2399 9010 COD 1950 +2400 1999 SET 9000 1999 9059 +27 9000 1954 +2401 LIB DBAND 1954 9014 +08 1491 1955 +2402 RAA 9000 1955 9015 +80 9000 1963 +2403 RAB 9001 1963 9023 +82 9001 1971 +2404 RAC 9002 2F 1971 9031 +88 9002 1979 +2405 2 RAL IBAND 1979 9039 +65 1459 1964 +2406 SLO 8005 1964 9024 +16 8005 1972 +2407 NZE 3F 1972 9032 +45 1976 1977 PAGE 15 +2408 SCT 1 1977 9037 +36 0001 1983 +2409 LOD IREM 1983 9043 +69 1469 1973 +2410 SXB 8001 1973 9033 +53 8001 1980 +2411 AXB 49 3F 1980 9040 +52 0049 1976 +2412 3 SET 9010B 1976 9036 +27 9410 1982 +2413 LDI 0 C 1982 9042 +09 6000 1957 +2414 LIB 1751 1957 9017 +08 1751 1965 +2415 RAL 8006 1965 9025 +65 8006 1974 +2416 SLT 4 1974 9034 +35 0004 1985 +2417 ALO 9008 1985 9045 +15 9008 1993 +2418 SDA 9008 1993 9053 +22 9008 1958 +2419 RAL 8007 1958 9018 +65 8007 1966 +2420 SLT 4 1966 9026 +35 0004 1978 +2421 LOD 9009 1978 9038 +69 9009 1984 +2422 SDA 9009 1984 9044 +22 9009 1990 +2423 BOV 1762 1990 9050 +47 1994 1762 +2424 LOD 1750 1994 9054 +69 1750 1959 +2425 STD 9007 1959 9019 +24 9007 1967 +2426 LOD 9005 1967 9027 +69 9005 1975 +2427 STD 9000 1975 9035 +24 9000 1981 +2428 SCT 1 1761 1981 9041 +36 0001 1761 +2429 1998 SXA 19 1998 9058 +51 0019 1960 +2430 NZA 7F 1960 9020 +40 1968 1969 +2431 AXA 20 1968 9028 +50 0020 1986 +2432 RAU 8005 1986 9046 +60 8005 1995 +2433 MPY 1953 1995 9055 +19 1953 1987 +2434 RAC 8002 1987 9047 +88 8002 1996 +2435 RAB 0 2B 1996 9056 +82 0000 1979 +2436 7 RAL 7F 1969 9029 +65 1988 1997 +2437 STD DHOLD 1997 9057 +24 1493 1961 +2438 STU DREM 1961 9021 +21 1492 1962 +2439 LOD 1951 1962 9022 +69 1951 1970 +2440 STD DBAND 1956 1970 9030 +24 1491 1956 +2441 1956 LOD 1790 DUMP8 1956 9016 +69 1790 1544 +2442 1953 00 0 50 1953 9013 +00 0000 0050 +2443 1951 00 0 20 1951 9011 +00 0000 0020 +2444 7 00 0 1000 1988 9048 +00 0000 1000 +2445 7 1952 00 0003 8502 1952 9012 +00 0003 8502 +2446 3848 CDD +2447 1 LOCAFIER 3849 CONTROL FWALWA 2 +2448 COR 9000 +2449 0 LOD 2F 9000 +69 9001 9002 +2450 SDS 9000 9010 9002 +85 9000 9010 +2451 9010 STI 300 9010 +29 0300 9003 +2452 LOD 1750 9003 +69 1750 9004 +2453 STD 666 9004 +24 0666 9005 +2454 LOD 2F 301 9005 +69 9001 0301 +2455 7 2 00 0003 8512 9001 +00 0003 8512 +2456 COR +2457 9010 COD 300 +2458 BLR 0 1999 +2459 BLA 302 346 +2460 301 LDI S0260 0301 9011 +09 1459 0311 +2461 SET 9001 0311 9021 +27 9001 0316 +2462 STI 600 0316 9026 +29 0600 0302 +2463 RDS 9000 9058 0302 9012 +86 9000 9058 +2464 348 SET 9000 0348 9058 +27 9000 0303 +2465 LDI 632 0303 9013 +09 0632 0334 +2466 RAA 9000 0334 9044 +80 9000 0342 +2467 RAB 9001 0342 9052 +82 9001 0304 +2468 RAC 9002 2F 0304 9014 +88 9002 0312 PAGE 16 +2469 349 AXA 1 0349 9059 +50 0001 0305 +2470 RAU 8005 0305 9015 +60 8005 0313 +2471 MPY 1F 0313 9023 +19 0317 0337 +2472 RAC 8002 0337 9047 +88 8002 0345 +2473 RAB 0 2F 0345 9055 +82 0000 0312 +2474 2 RAL 600 0312 9022 +65 0600 0306 +2475 SLO 8005 0306 9016 +16 8005 0314 +2476 NZE 3F 0314 9024 +45 0318 0319 +2477 SCT 1 0319 9029 +36 0001 0325 +2478 LOD 610 0325 9035 +69 0610 0315 +2479 SXB 8001 0315 9025 +53 8001 0321 +2480 AXB 49 3F 0321 9031 +52 0049 0318 +2481 3 SET 9010B 0318 9028 +27 9410 0324 +2482 LDI 0 C 0324 9034 +09 6000 0307 +2483 LIB 101 0307 9017 +08 0101 0320 +2484 RAL 8006 0320 9030 +65 8006 0327 +2485 SLT 4 0327 9037 +35 0004 0338 +2486 ALO 9008 0338 9048 +15 9008 0346 +2487 SDA 9008 0346 9056 +22 9008 0308 +2488 RAL 8007 0308 9018 +65 8007 0322 +2489 SLT 4 0322 9032 +35 0004 0333 +2490 LOD 9009 0333 9043 +69 9009 0339 +2491 SDA 9009 0339 9049 +22 9009 0309 +2492 BOV 112 0309 9019 +47 0323 0112 +2493 LOD 666 0323 9033 +69 0666 0326 +2494 STD 9007 0326 9036 +24 9007 0332 +2495 LOD 9005 0332 9042 +69 9005 0340 +2496 STD 9000 0340 9050 +24 9000 0310 +2497 SCT 1 111 0310 9020 +36 0001 0111 +2498 347 LOD 2F 0347 9057 +69 0328 0331 +2499 SDS 9000 0331 9041 +85 9000 0336 +2500 RDS 9000 9000 0336 9046 +86 9000 9000 +2501 7 2 00 0003 8372 0328 9038 +00 0003 8372 +2502 1 00 0 50 0317 9027 +00 0000 0050 +2503 3849 CDD +2504 1 LOCAFIER 3850 LOAD UP 0 TO 999 +2505 BLR 0 1999 +2506 BLA 1101 1149 +2507 SYN 1102 +2508 BLR 1105 1106 +2509 SYN 1146 +2510 9010 STI 1100 1102 9010 +29 1100 1102 +2511 9010 COD 1100 +2512 1102 RSA 950 1102 9012 +81 0950 1108 +2513 RAL 9000 1108 9018 +65 1111 9000 +2514 HLT 49 8000 1111 9021 +01 0049 8000 +2515 COR 9001 +2516 9000 RAB 49 1F 9000 +82 0049 9001 +2517 1 STL 9010B 9001 +20 9410 9002 +2518 NZB 2F 9002 +42 9003 9004 +2519 SLO 9F 9003 +16 9005 9006 +2520 SXB 1 1B 9006 +53 0001 9001 +2521 9 00 1 0 9005 +00 0001 0000 +2522 2 SET 9010 1146 9004 +27 9010 1146 +2523 1146 STI 950 A 1146 9056 +29 2950 9007 +2524 NZA 1105 1106 9007 +40 1105 1106 +2525 1105 AXA 50 1105 9015 +50 0050 9008 +2526 ALO 9000 9008 +15 9009 9000 +2527 00 99 0 9009 +00 0099 0000 +2528 COR +2529 1106 RAM DISKR 1106 9016 +67 1248 1103 PAGE 17 +2530 RDS 9000 1103 9013 +86 9000 1109 +2531 SLT 2 1109 9019 +35 0002 1115 +2532 RAC 8003 1115 9025 +88 8003 1124 +2533 SUP 8001 1124 9034 +11 8001 1131 +2534 SRT 2 3F 1131 9041 +30 0002 1137 +2535 3 SML 9F 1137 9047 +18 1140 1145 +2536 STL 5F 1145 9055 +20 1149 1104 +2537 SXC 60 1104 9014 +59 0060 1110 +2538 SDS 9000 2F 1110 9020 +85 9000 1116 +2539 2 NZC 8F 1116 9026 +48 1119 1120 +2540 RAL 9061C 1119 9029 +65 9661 1117 +2541 BMI 6F 1117 9027 +46 1121 1122 +2542 SRT 2 1122 9032 +30 0002 1129 +2543 ALO 1F 1129 9039 +15 1132 1138 +2544 LOD 9060C 8002 1138 9048 +69 9660 8002 +2545 1 STD 0 7F 1132 9042 +24 0000 1107 +2546 6 RSB 8002 1121 9031 +83 8002 1130 +2547 SRT 4 1130 9040 +30 0004 1141 +2548 RSA 8002 1141 9051 +81 8002 1101 +2549 LOD 9060C 6F 1101 9011 +69 9660 1113 +2550 6 STD 0 A 1113 9023 +24 2000 1112 +2551 SXA 0 B 1112 9022 +51 4000 1123 +2552 NZA 7F 1123 9033 +40 1126 1107 +2553 AXA 1 B 6B 1126 9036 +50 4001 1113 +2554 7 AXC 2 2B 1107 9017 +58 0002 1116 +2555 8 RAL 5F 1120 9030 +65 1149 1114 +2556 BMI 1F 1114 9024 +46 1118 1125 +2557 RDS 9000 3B 1125 9035 +86 9000 1137 +2558 1 LOD DISKR 1118 9028 +69 1248 1127 +2559 SDS 9000 1999 1127 9037 +85 9000 1999 +2560 5 UND +2561 9 00 0 10 1140 9050 +00 0000 0010 +2562 3850 CDD +2563 1 LOCAFIER 3851 LOAD 1000 - 1999 +2564 BLR 0 1999 +2565 BLA 901 947 +2566 SYN 902 +2567 BLR 905 906 +2568 SYN 946 +2569 9010 STI 900 902 9010 +29 0900 0902 +2570 9010 COD 900 +2571 902 RSA 950 0902 9012 +81 0950 0908 +2572 LOD S0050 0908 9018 +69 1249 0903 +2573 STD 659 0903 9013 +24 0659 0912 +2574 RAL 9000 0912 9022 +65 0915 9000 +2575 HLT 1049 8000 0915 9025 +01 1049 8000 +2576 COR 9001 +2577F 9000 RAB 49 1F FIXED BY RSV 9000 +82 0049 9001 was 9001 RAB 49 1F 9001 +82 0049 9001 +2578 1 STL 9010B 9001 +20 9410 9002 +2579 NZB 2F 9002 +42 9003 9004 +2580 SLO 9F 9003 +16 9005 9006 +2581 SXB 1 1B 9006 +53 0001 9001 +2582 9 00 1 0 9005 +00 0001 0000 +2583 2 SET 9010 946 9004 +27 9010 0946 +2584 946 STI 1950A 0946 9056 +29 3950 9007 +2585 NZA 905 906 9007 +40 0905 0906 +2586 905 AXA 50 0905 9015 +50 0050 9008 +2587 ALO 9000 9008 +15 9009 9000 +2588 00 99 0 9009 +00 0099 0000 +2589 COR +2590 906 RAM 659 0906 9016 +67 0659 0913 PAGE 18 +2591 RDS 9000 0913 9023 +86 9000 0918 +2592 SLT 2 0918 9028 +35 0002 0925 +2593 RAC 8003 0925 9035 +88 8003 0934 +2594 SUP 8001 0934 9044 +11 8001 0941 +2595 SRT 2 3F 0941 9051 +30 0002 0947 +2596 3 SML 9F 0947 9057 +18 0901 0907 +2597 STL 5F 0907 9017 +20 0911 0914 +2598 SXC 60 0914 9024 +59 0060 0920 +2599 SDS 9000 2F 0920 9030 +85 9000 0926 +2600 2 NZC 8F 0926 9036 +48 0929 0930 +2601 RAL 9061C 0929 9039 +65 9661 0916 +2602 BMI 6F 0916 9026 +46 0919 0921 +2603 SRT 2 0921 9031 +30 0002 0927 +2604 ALO 1F 0927 9037 +15 0931 0935 +2605 LOD 9060C 8002 0935 9045 +69 9660 8002 +2606 1 STD 0 7F 0931 9041 +24 0000 0904 +2607 6 RSB 8002 0919 9029 +83 8002 0928 +2608 SRT 4 0928 9038 +30 0004 0939 +2609 RSA 8002 0939 9049 +81 8002 0909 +2610 LOD 9060C 6F 0909 9019 +69 9660 0917 +2611 6 STD 0 B 0917 9027 +24 4000 0910 +2612 SXB 1 A 0910 9020 +53 2001 0922 +2613 NZB 7F 0922 9032 +42 0932 0904 +2614 AXB 0 A 6B 0932 9042 +52 2000 0917 +2615 7 AXC 2 2B 0904 9014 +58 0002 0926 +2616 8 RAL 5F 0930 9040 +65 0911 0923 +2617 SLO 4F 0923 9033 +16 0933 0937 +2618 BMI 1F 0937 9047 +46 0940 0942 +2619 LOD 5F 0942 9052 +69 0911 0924 +2620 RDS 9000 0924 9034 +86 9000 0936 +2621 ALO 4F 3B 0936 9046 +15 0933 0947 +2622 1 LOD 659 0940 9050 +69 0659 0938 +2623 SDS 9000 348 0938 9048 +85 9000 0348 +2624 9 00 0 10 0901 9011 +00 0000 0010 +2625 7 4 00 0 501 0933 9043 +00 0000 0501 +2626 9058 LOD 1604 9059 9058 +69 1604 9059 +2627 9059 STD 293 9010 9059 +24 0293 9010 +2628 5 UND +2629 3851 CDD +2630 1 LOCAFIER 3852 DEK FIRST +2631 COR 9000 +2632 0 LOD 9028 9000 +69 9028 9001 +2633 SDS 9000 9010 9001 +85 9000 9010 +2634 9010 STI 1950 9010 +29 1950 9002 +2635 LOD READA 9002 +69 0999 9003 +2636 STD SSOUT 9003 +24 0526 9004 +2637 RAL 47 9004 +65 0047 9008 +2640 RSB 1 9008 +83 0001 9005 +2638 NZE 2F 9005 +45 9006 9007 +2639 RAC 1651 MASTR 9006 +88 1651 0069 +2641 2 RAL 8001 9007 +65 9009 8001 +2642 RSA 1 1951 9009 +81 0001 1951 +2643 COR 9014 +2644 BLR 9020 9029 +2645 9011 DIV V0007 1952 9011 +14 1511 1952 +2646 9012 SET 9013 1953 9012 +27 9013 1953 +2647 9013 LDI 1953 9013 +09 1953 9014 +2648 AXA 1 9014 +50 0001 9015 +2649 NZA HLT44 9015 +40 1994 9016 +2650 RAU 8002 9016 +60 8002 9017 +2651 MPY V0007 9017 +19 1511 9018 PAGE 19 +2652 RAA 6 9018 +80 0006 9019 +2653 STU 9007 9019 +21 9007 9030 +2654 SIA 9002 9030 +23 9002 9031 +2655 STD 9003 9031 +24 9003 9032 +2656 STD 9005 9032 +24 9005 9033 +2657 SLT 4 9033 +35 0004 9034 +2658 SDA 9004 9034 +22 9004 9035 +2659 STD 9001 9035 +24 9001 9036 +2660 RAU 8001 9036 +60 8001 9037 +2661 SIA 9006 2F 9037 +23 9006 9038 +2662 2 RAL 9021A 9038 +65 9221 9039 +2663 ALO 9002 9039 +15 9002 9040 +2664 STL 9021A 9040 +20 9221 9041 +2665 NZA 2F 9041 +40 9042 9043 +2666 SXA 1 2B 9042 +51 0001 9038 +2667 2 RAA 2 2F 9043 +80 0002 9044 +2668 2 RAL 9025A 9044 +65 9225 9045 +2669 ALO 9006 9045 +15 9006 9046 +2670 STL 9025A 9046 +20 9225 9047 +2671 NZA 2F 9047 +40 9048 9049 +2672 BMA 3F 9048 +41 9050 9051 +2673 SXA 1 2B 9051 +51 0001 9044 +2674 2 RSA 2 2B 9049 +81 0002 9044 +2675 3 WR1 9020 9056 9050 +71 9020 9056 +2676 9056 SIB 1675 1678 9056 +28 1675 1678 +2677 9059 SIB 1650 9053 9059 +28 1650 9053 +2678 9053 LOD 9028 DUMP9 9053 +69 9028 1547 +2679 9058 RAC 0 9049 9058 +88 0000 9049 +2680 7 9028 00 0003 8532 9028 +00 0003 8532 +2681 9020 RD1 9042 9898 9020 +70 9042 9898 +2682 9021 SXA 1 23 9021 +51 0001 0023 +2683 9022 SLT 2 14 9022 +35 0002 0014 +2684 9023 ALO 16 22 9023 +15 0016 0022 +2685 9024 AXC 25 17 9024 +58 0025 0017 +2686 9025 SDA 12 15 9025 +22 0012 0015 +2687 9026 LOD 2 A 12 9026 +69 2002 0012 +2688 9027 RAM 1 13 9027 +67 0001 0013 +2689 9029 00 8080 8 9029 +00 8080 0008 +2690 9054 HLT 300 C 300 9054 +01 6300 0300 +2691 9055 HLT 300 C 300 9055 +01 6300 0300 +2692 9057 HLT 300 C 300 9057 +01 6300 0300 +2693 COR +2694 3852 CDD +2695 1 LOCAFIER 3853 DEK SECOND +2696 BLR 0 1999 +2697 BLA 1975 1988 +2698 COR 9000 +2699 SYN 9030 +2700 0 LOD 9058 9000 +69 9058 9001 +2701 SDS 9000 9001 +85 9000 9002 +2702 RAA 6 1F 9002 +80 0006 9003 +2703 1 RAL 9051A 9003 +65 9251 9004 +2704 ALO 1651A 9004 +15 3651 9005 +2705 STL 1678A 9005 +20 3678 9006 +2706 NZA 1F 9006 +40 9007 9008 +2707 SXA 1 1B 9007 +51 0001 9003 +2708 1 LOD 6F 9030 9008 +69 9009 9030 +2709 9030 STI 1970 9049 9030 +29 1970 9049 +2710 9049 STD 1686 9050 9049 +24 1686 9050 +2711 9050 LOD INSTR 9050 +69 0314 9010 +2712 STD 1657 9010 +24 1657 9011 PAGE 20 +2713 RAL 4F 9011 +65 9012 9013 +2714 ALO 1656 9013 +15 1656 9014 +2715 STL 1654 9014 +20 1654 9015 +2716 RAL 3F 9015 +65 9016 9017 +2717 ALO 1651 9017 +15 1651 9018 +2718 STL 1656 9018 +20 1656 9019 +2719 RAL CORON 9019 +65 0606 9020 +2720 SLO CORSW 9020 +16 0685 9021 +2721 STL 1658 9021 +20 1658 9022 +2722 RAL RAMON 9022 +65 0662 9023 +2723 SLO RAMSW 9023 +16 0773 9024 +2724 NZE 9F 9024 +45 9025 9026 +2725 RAL 9058 9026 +65 9058 9027 +2726 SET 9000 2F D 9027 +27 9000 1975 +2727 9 RAB 6 9025 +82 0006 9028 +2728 LOD DUMP8 9028 +69 9029 1544 +2729 7 00 0003 8552 9029 +00 0003 8552 +2730 4 00 17 1 9012 +00 0017 0001 +2731 3 NZC 5 4 9016 +48 0005 0004 +2732 6 00 8080 8 9009 +00 8080 0008 +2733 COR +2734 9010 COD 1950 +2735 2 RAC 200 1973 1975 9035 +88 0200 1973 +2736 1973 LDI 1700C 1F 1973 9033 +09 7700 1976 +2737 1974 LDI 0 C 1F 1974 9034 +09 6000 1976 +2738 1 WDS 9000 1976 9036 +87 9000 1981 +2739 NZC 1972B 1981 9041 +48 1985 5972 +2740 SXC 50 2F 1985 9045 +59 0050 1977 +2741 2 ALO 1F 1977 9037 +15 1980 1986 +2742 LOD 8002 1986 9046 +69 8002 1978 +2743 SDS 9000 1974B 1978 9038 +85 9000 5974 +2744 1 00 0 10 1980 9040 +00 0000 0010 +2745 1971 RAB 0 1971 9031 +82 0000 1979 +2746 RAC 1600 2B 1979 9039 +88 1600 1977 +2747 1972 LOD 1F 1972 9032 +69 1982 1987 +2748 SDS 9000 1987 9047 +85 9000 1983 +2749 WR1 1666 1983 9043 +71 1666 1984 +2750 RDS 9000 9010 1984 9044 +86 9000 9010 +2751 7 1 00 0003 8502 1982 9042 +00 0003 8502 +2752 7 9058 00 0008 8002 9058 +00 0008 8002 +2753 1999 LOD DUMP8 1999 9059 +69 1988 1544 +2754 7 00 0003 8542 1988 9048 +00 0003 8542 +2755 9051 STI 12 17 9051 +29 0012 0017 +2756 9052 RAA 8002 20 9052 +80 8002 0020 +2757 9053 SXC 8003 21 9053 +59 8003 0021 +2758 9054 NZA 18 19 9054 +40 0018 0019 +2759 9055 STD 0 A 15 9055 +24 2000 0015 +2760 9056 RD1 24 9898 9056 +70 0024 9898 +2761 9057 LDI 1952 9043 9057 +09 1952 9043 +2762 3853 CDD +2763 1 LOCAFIER 3854 DEK THIRD +2764 COR 9000 +2765 0 LOD 9058 9000 +69 9058 9001 +2766 SDS 9000 9001 +85 9000 9002 +2767 RAC 0 9002 +88 0000 9003 +2768 RSA 980 9003 +81 0980 9004 +2769 RAB 6 9011 9004 +82 0006 9011 +2770 7 9058 00 0003 8512 9058 +00 0003 8512 +2771 COR 9011 +2772 0 RAL 8005 9011 +65 8005 9012 +2773 SLT 4 9037 9012 +35 0004 9037 PAGE 21 +2774 9037 SLO 980 A 3F 9037 +16 2980 9013 +2775 3 ALO 9035 9013 +15 9035 9014 +2776 NZE 9036 2F 9014 +45 9036 9015 +2777 2 BMA 9034 9015 +41 9016 9034 +2778 AXA 1 0B 9016 +50 0001 9011 +2779 9035 HLT 980 8000 9035 +01 0980 8000 +2780 9036 ALO 980 A 4F 9036 +15 2980 9017 +2781 4 ALO 8006 9017 +15 8006 9018 +2782 SLO 1F 9018 +16 9019 9020 +2783 STL 9000 9020 +20 9000 9021 +2784 AXA 0 B 9038 9021 +50 4000 9038 +2785 1 HLT 0 7999 9019 +01 0000 7999 +2786 9038 LOD 980 A 5F 9038 +69 2980 9022 +2787 5 STD 9001B 9022 +24 9401 9023 +2788 NZB 1F 9023 +42 9024 9025 +2789 SXB 1 9024 +53 0001 9026 +2790 SXA 1 9038 9026 +51 0001 9038 +2791 1 WR1 9000 9025 +71 9000 9027 +2792 AXC 1 9027 +58 0001 9028 +2793 AXA 6 6F 9028 +50 0006 9029 +2794 6 RAB 6 2B 9029 +82 0006 9015 +2795 9009 00 8080 8 9009 +00 8080 0008 +2796 9034 SXA 1019 9051 9034 +51 1019 9051 +2797 9051 LOD 8005 9059 9051 +69 8005 9059 +2798 9059 STD 9051 9057 9059 +24 9051 9057 +2799 9057 LOD 8007 9010 9057 +69 8007 9010 +2800 9010 STD 9010 9008 9010 +24 9010 9008 +2801 9008 STI 300 9052 9008 +29 0300 9052 +2802 9052 LOD 9058 9054 9052 +69 9058 9054 +2803 9054 LDI 1654 9053 9054 +09 1654 9053 +2804 9053 STI 576 9050 9053 +29 0576 9050 +2805 9050 RDS 9000 9010 9050 +86 9000 9010 +2806 9056 LOD 341 347 9056 +69 0341 0347 +2807 9055 SDS 9000 342 9055 +85 9000 0342 +2808 7 9049 00 0003 8552 9049 +00 0003 8552 +2809 9033 LIB 330 6B 9033 +08 0330 9029 +2810 9042 SLO 1999A 3B 9042 +16 3999 9013 +2811 9040 HLT 1999 8000 9040 +01 1999 8000 +2812 9041 AXA 5 9044 9041 +50 0005 9044 +2813 9039 LDI 577 9032 9039 +09 0577 9032 +2814 9043 LOD 1999A 5B 9043 +69 3999 9022 +2815 9044 BMA 9046 9045 9044 +41 9046 9045 +2816 9045 SXB 1 A 9046 9045 +53 2001 9046 +2817 9046 SXA 5 9047 9046 +51 0005 9047 +2818 9047 ALO 1999A 4B 9047 +15 3999 9017 +2819 9032 STI 1652 9030 9032 +29 1652 9030 +2820 9030 RAB 6 352 9030 +82 0006 0352 +2821 COR +2822 3854 CDD +2823 1 LOCAFIER 3855 DEK LAST +2824 COR 9000 +2825 0 LOD 9040 9000 +69 9040 9001 +2826 SDS 9000 9001 +85 9000 9002 +2827 WR1 1666 9059 9002 +71 1666 9059 +2828 9059 SCT 1 9059 +36 0001 9003 +2829 RAC 0 9009 9003 +88 0000 9009 +2830 9009 STI 350 352 9009 +29 0350 0352 +2831 9010 STI 351 9008 9010 +29 0351 9008 +2832 9008 LDI 300 9008 +09 0300 9004 +2833 RAA 9051 9004 +80 9051 9005 +2834 RAC 9010 9005 +88 9010 9006 PAGE 22 +2835 LOD 381 9006 +69 0381 9007 +2836 SDS 9000 9033 9007 +85 9000 9033 +2837 7 9040 00 0008 8382 9040 +00 0008 8382 +2838 COR +2839 9010 COD 351 +2840 BLR 0 1999 +2841 BLA 354 399 +2842 SYN 358 +2843 SYN 381 +2844 352 RAL 1658 0352 9011 +65 1658 0363 +2845 NZE 9F 0363 9022 +45 0366 0367 +2846 LOD 381 0367 9026 +69 0381 0384 +2847 RDS 9000 0384 9043 +86 9000 0389 +2848 RSA 59 0F 0389 9048 +81 0059 0395 +2849 0 RAL 8005 0395 9054 +65 8005 0354 +2850 SLT 4 0354 9013 +35 0004 0365 +2851 SLO 9059A 0365 9024 +16 9259 0373 +2852 ALO 1F 0373 9032 +15 0376 0382 +2853 NZE 2F 3F 0382 9041 +45 0386 0387 +2854 3 BMA 9F 0387 9046 +41 0390 0366 +2855 AXA 1 0B 0390 9049 +50 0001 0395 +2856 1 HLT 9059 8000 0376 9035 +01 9059 8000 +2857 2 AXA 5 0386 9045 +50 0005 0392 +2858 BMA 1F 0392 9051 +41 0396 0397 +2859 SXB 1 A 1F 0397 9056 +53 2001 0396 +2860 1 ALO 9054A 0396 9055 +15 9254 0355 +2861 ALO 8006 0355 9014 +15 8006 0364 +2862 SLO 1F 0364 9023 +16 0368 0374 +2863 STL 1977 0374 9033 +20 1977 0380 +2864 STI 1978 0380 9039 +29 1978 0383 +2865 LOD 358 0383 9042 +69 0358 0361 +2866 STD 1986 0361 9020 +24 1986 0391 +2867 WR1 1979 0391 9050 +71 1979 0398 +2868 AXC 1 0398 9057 +58 0001 0356 +2869 AXA 1 3B 0356 9015 +50 0001 0387 +2870 1 HLT 1800 7999 0368 9027 +01 1800 7999 +2871 9 SET 9000 0366 9025 +27 9000 0371 +2872 LDI 1654 0371 9030 +09 1654 0357 +2873 RAL 8007 0357 9016 +65 8007 0369 +2874 SLT 4 0369 9028 +35 0004 0379 +2875 ALO 1F 0379 9038 +15 0385 0393 +2876 ALO 9001 0393 9052 +15 9001 0359 +2877 STL 9001 0359 9018 +20 9001 0370 +2878 LOD 5F 0370 9029 +69 0375 0378 +2879 SDS 9000 0378 9037 +85 9000 0388 +2880 SET 9004 0388 9047 +27 9004 0394 +2881 LIB 353 0394 9053 +08 0353 0372 +2882 WR1 9000 0372 9031 +71 9000 0399 +2883 RDS 9000 0399 9058 +86 9000 0360 +2884 BOV 9000 0360 9019 +47 0377 9000 +2885 RAL 9059 0377 9036 +65 0362 9059 +2886 7 00 0003 8062 0362 9021 +00 0003 8062 +2887 1 SXC 1 3 0385 9044 +59 0001 0003 +2888 7 5 00 0003 8372 0375 9034 +00 0003 8372 +2889 353 HLT 9898 9898 0353 9012 +01 9898 9898 +2890 358 00 8080 8 0358 9017 +00 8080 0008 +2891 3855 CDD +2892 1 LOCAFIER 3856 FIL SETUP +2893 BLR 0 1999 +2894 BLA 1957 1999 +2895 BLR 1994 1995 PAGE 23 +2896 SYN HLT88 +2897 9010 COD 1950 +2898 COR 9000 +2899 0 RSB 1 9000 +83 0001 9001 +2900 RAL FIVTG 9010 9001 +65 0477 9010 +2901 9010 STI 1950 9010 +29 1950 9002 +2902 LOD READA 9002 +69 0999 9003 +2903 STD SSOUT 9003 +24 0526 9004 +2904 BMI 1F D 9004 +46 1982 9005 +2905 LOD 0F D 9005 +69 1986 9006 +2906 STD 8F D 9006 +24 1992 9007 +2907 RAL 47 9007 +65 0047 9008 +2908 NZE 1956 2F 9008 +45 1956 9009 +2909 1956 RAC 1651 MASTR 1956 9016 +88 1651 0069 +2910 2 RAL D 1951 9009 +65 1999 1951 +291A 00 0 1950 1999 9059 +00 0000 1950 +2911 COR +2912 1951 DVR V0007 1951 9011 +64 1511 1971 +2913 STL 47 1F 1971 9031 +20 0047 1982 +2914 1 RAL 48 1982 9042 +65 0048 1957 +2915 RAC 1653 MASTR 1957 9017 +88 1653 0069 +2916 1953 STL FWAXX 1953 9013 +20 0780 1983 +2917 BMA HLT55 1983 9043 +41 1987 1995 +2918 RAL 49 1987 9047 +65 0049 1958 +2919 RAC 1652 MASTR 1958 9018 +88 1652 0069 +2920 1952 STL LHOLD 1952 9012 +20 0255 1959 +2921 BMA 1956A HLT55 1959 9019 +41 3956 1995 +2922 1954 RAL CORSW 1954 9014 +65 0685 1989 +2923 SLO CORON 1989 9049 +16 0606 1961 +2924 NZE 8F 1961 9021 +45 1992 1965 +2925 LOD DISKC 1965 9025 +69 1598 1960 +2926 SDS 9000 1960 9020 +85 9000 1966 +2927 RDS 9000 1966 9026 +86 9000 1972 +2928 RSL FWAXX 1972 9032 +66 0780 1985 +2929 RAC 8001 1985 9045 +88 8001 1991 +2930 ALO LHOLD 1991 9051 +15 0255 1962 +2931 RAB 8002 1962 9022 +82 8002 1973 +2932 LOD INSTR 1F 1973 9033 +69 0314 1967 +2933 1 BMB 7F 1967 9027 +43 1970 1974 +2934 STD 0 C 1974 9034 +24 6000 1963 +2935 SXB 1 1963 9023 +53 0001 1969 +2936 AXC 1 1B 1969 9029 +58 0001 1967 +2937 7 LOD DISKC 1970 9030 +69 1598 1964 +2938 WDS 9000 8F 1964 9024 +87 9000 1992 +2939 1955 RAL RAMSW 1955 9015 +65 0773 1977 +2940 SLO RAMON 1977 9037 +16 0662 1968 +2941 NZE 8F 1968 9028 +45 1992 1975 +2942 LOD DUMP8 1975 9035 +69 1978 1544 +2943 7 00 0003 8572 1978 9038 +00 0003 8572 +2944 8 RAL ONESW 1992 9052 +65 1449 1976 +2945 BD2 9F 1976 9036 +92 1979 1981 +2946 LOD 1F 1979 9039 +69 1984 1988 +2947 SDS 9000 1988 9048 +85 9000 1993 +2948 RDS 9000 1993 9053 +86 9000 1998 +2949 SET 9010 1998 9058 +27 9010 1980 +2950 STI 1950 READA 1980 9040 +29 1950 0999 +2951 7 1 00 0003 8332 1984 9044 +00 0003 8332 +2952 HLT44 HLT 300 C 300 1994 9054 +01 6300 0300 +2953 HLT55 HLT 300 C 300 1995 9055 +01 6300 0300 +2954 HLT88 HLT 300 C 300 1997 9057 +01 6300 0300 +2955 9 LOD DUMP8 1981 9041 +69 1990 1544 PAGE 24 +2956 7 00 0003 8592 1990 9050 +00 0003 8592 +2957 0 LOD DUMP8 1986 9046 +69 1996 1544 +2958 7 00 0003 8582 1996 9056 +00 0003 8582 +2959 3856 CDD +2960 1 LOCAFIER 3857 FIL IF DON USED +2961 BLR 0 1999 +2962 BLA 1980 1994 +2963 SYN 1991 +2964 COR 9000 +2965 SYN 9010 +2966 SYN 9030 +2967 0 RAL FIVTG 9000 +65 0477 9001 +2968 BMI 8F 9001 +46 9002 9003 +2969 RAL ONESW 9002 +65 1449 9004 +2970 BD2 7F 9004 +92 9005 9006 +2971 LOD 9055 1F 9006 +69 9055 9007 +2972 8 LOD 9058 1F 9003 +69 9058 9007 +2973 1 STD 9059 1F 9007 +24 9059 9008 +2974 7 LOD 9059 1F 9005 +69 9059 9008 +2975 7 9055 00 0003 8592 9055 +00 0003 8592 +2976 7 9058 00 0003 8582 9058 +00 0003 8582 +2977 7 - 9059 00 0003 8332 9059 -00 0003 8332 +2978 1 SDS 9000 9008 +85 9000 9009 +2979 LOD 6F 9009 +69 9011 9012 +2980 STD COROF 9012 +24 0684 9013 +2981 RAL LHOLD 9013 +65 0255 9014 +2982 SLO FWAXX 9010 9014 +16 0780 9010 +2983 9010 STI 1950 9010 +29 1950 9015 +2984 BMI 1996 9015 +46 1996 9016 +2985 RAL 8001 9016 +65 8001 9017 +2986 SLO 5F 9017 +16 9018 9019 +2987 BMI 2F 9019 +46 9020 9021 +2988 RAL LHOLD 9020 +65 0255 9022 +2989 SLO 5F 9022 +16 9018 9023 +2990 BMI 1F 9023 +46 9024 9025 +2991 RAC 1 9025 +88 0001 9026 +2992 RSL 4F 3F 9026 +66 9027 9028 +2993 1 RAC 0 3F 9024 +88 0000 9028 +2994 3 ALO 5F 9028 +15 9018 9029 +2995 SLT 6 9029 +35 0006 9031 +2996 AUP FWAXX 9031 +10 0780 9032 +2997 SLT 4 9032 +35 0004 9033 +2998 RSU 8003 9033 +61 8003 9034 +2999 STU LOCAT RAMN0 9034 +21 1961 0834 +3000 2 RSL FWAXX 9021 +66 0780 9035 +3001 ALO 4F 9035 +15 9027 9036 +3002 SLT 4 1997 9036 +35 0004 1997 +3003 4 00 0 1 9027 +00 0000 0001 +3004 5 00 0 1000 9018 +00 0000 1000 +3005 COR +3006 9010 COD 1950 +3007 6 RSL 1991 1996C 9011 +66 1991 7996 +3008 1991 00 999 0 1991 9051 +00 0999 0000 +3009 1997 SLO LHOLD 1997 9057 +16 0255 1980 +3010 STL LOCAT 1970 1980 9040 +20 1961 1970 +3011 1970 RAC 0 RAMN1 1970 9030 +88 0000 0835 +3012 1996 RAL 1999 1996 9056 +65 1999 1981 +3013 RDS 9000 1981 9041 +86 9000 1986 +3014 LOD 3F 1986 9046 +69 1989 1992 +3015 STD COROF 1992 9052 +24 0684 1987 +3016 BMI 9000 1987 9047 +46 1990 9000 PAGE 25 +3017 SET 9010 1990 9050 +27 9010 1982 +3018 STI 1950 READA 1982 9042 +29 1950 0999 +3019 3 RAC FINIS PRONE 1989 9049 +88 0209 0890 punch card, then jmp to finis +3020 3857 CDD +3021 1 LOCAFIER 3858 FIL IF FIV USED +3022 COR 9000 +3023 0 RAL ONESW 9000 +65 1449 9001 +3024 BD2 1F 9001 +92 9002 9003 +3025 LOD 9050 9002 +69 9050 9004 +3026 STD 9045 2F 9004 +24 9045 9005 +3027 1 LOD 9045 2F 9003 +69 9045 9005 +3028 2 SDS 9000 9005 +85 9000 9006 +3029 LOD INSTR 9054 9006 +69 0314 9054 +3030 9054 STD 1 9054 +24 9054 9007 +3031 RAL 50009 9007 +65 0485 9008 +3032 ALO 1IXXX 9008 +15 0897 9009 +3033 STL 50009 9009 +20 0485 9010 +3034 LOD FIVTG 9058 9010 +69 0477 9058 +3035 9058 SIA 9050 9058 +23 9050 9011 +3036 RAU 47 9011 +60 0047 9012 +3037 MPY V0007 9012 +19 1511 9013 +3038 SIA 9000 9013 +23 9000 9014 +3039 ALO 9057 9014 +15 9057 9015 +3040 SLT 6 9015 +35 0006 9016 +3041 AUP FWAXX 9016 +10 0780 9017 +3042 RAA 8001 9017 +80 8001 9018 +3043 AXA 1000 9018 +50 1000 9019 +3044 SXA 1000 9019 +51 1000 9020 +3045 BMA 1F 9020 +41 9021 9022 +3046 SUP 9F 1F 9021 +11 9023 9022 +3047 1 SLT 4 9022 +35 0004 9024 +3048 STU 9057 9024 +21 9057 9025 +3049 RAL LHOLD 9025 +65 0255 9026 +3050 SLO FWAXX 9026 +16 0780 9027 +3051 BMI 1F 9027 +46 9028 9029 +3052 RAU 8003 1F 9028 +60 8003 9029 +3053 1 SLT 4 9029 +35 0004 9030 +3054 ALO 9053 9030 +15 9053 9031 +3055 ALO 9000 9031 +15 9000 9032 +3056 STL 9053 9032 +20 9053 9033 +3057 LOD 9052 9033 +69 9052 9034 +3058 SIA 9052 9034 +23 9052 9035 +3059 RAL 9000 9035 +65 9000 9036 +3060 SLT 4 9036 +35 0004 9037 +3061 ALO 8001 9037 +15 8001 9038 +3062 ALO 9055 9038 +15 9055 9039 +3063 STL 9055 9039 +20 9055 9040 +3064 ALO 9051 9040 +15 9051 9041 +3065 STL 9051 9044 9041 +20 9051 9044 +3066 9044 STI 1971 9044 +29 1971 9042 +3067 RAL 9045 9042 +65 9045 9043 +3068 RDS 9000 1976 9043 +86 9000 1976 +3069 9049 WR1 1977 1975 9049 +71 1977 1975 +3070 9048 BMI 1974 9000 9048 +46 1974 9000 +3071 9047 SET 9010 1973 9047 +27 9010 1973 +3072 9046 STI 1950 READA 9046 +29 1950 0999 +3073 7 - 9050 00 0003 8332 9050 -00 0003 8332 +3074 7 9045 00 0003 8592 9045 +00 0003 8592 +3075 9 00 0 1800 9023 +00 0000 1800 +3076 9051 29 1 9984 9051 +29 0001 9984 +3077 9052 SXA 1 8 9052 +51 0001 0008 PAGE 26 +3078 9053 RAA 0 8 9053 +80 0000 0008 +3079 9055 NZA 3 20 9055 +40 0003 0020 +3080 - 9056 88 8888 8888 9056 -88 8888 8888 +3081 9057 STD 0 A 6 9057 +24 2000 0006 +3082 9059 00 8000 8 9059 +00 8000 0008 +3083 COR +3084 3858 CDD +3085 1 LOCAFIER 3859 FIL IF ONE USED +3086 COR 9000 +3087 0 LOD 2F 9000 +69 9001 9002 +3088 SDS 9000 9002 +85 9000 9003 +3089 RAL CCNT1 9058 9003 +65 0585 9058 ccnt1=number of card punched +3090 9058 ALO 8F 9051 9058 +15 9004 9051 +3091 9051 STL 1 9051 +20 9051 9005 +3092 STD CCNT1 9005 +24 0585 9006 ccnt1=number of card punched +3093 LOD INSTR 9053 9006 +69 0314 9053 +3094 9053 STD 1 9053 +24 9053 9007 +3095 RAL LHOLD 9007 +65 0255 9008 +3096 SLO FWAXX 9008 +16 0780 9009 +3097 BMI 1F 9009 +46 9010 9011 +3098 RAU 8003 1F 9010 +60 8003 9011 +3099 1 SLT 4 9011 +35 0004 9012 +3100 ALO 9052 9012 +15 9052 9013 +3101 STL 9052 9013 +20 9052 9014 +3102 RAL FWAXX 9014 +65 0780 9015 +3103 RAA 8001 9015 +80 8001 9016 +3104 AXA 1000 9016 +50 1000 9017 +3105 SXA 1000 9017 +51 1000 9018 +3106 BMA 1F 9018 +41 9019 9020 +3107 SLO 9F 1F 9019 +16 9021 9020 +3108 1 SLT 4 9020 +35 0004 9022 +3109 ALO 9056 9022 +15 9056 9023 +3110 STL 9056 9045 9023 +20 9056 9045 +3111 9045 STI 1972 9045 +29 1972 9024 +3112 LOD 2F 9024 +69 9001 9025 +3113 RDS 9000 1976 9025 +86 9000 1976 +3114 7 2 00 0003 8332 9001 +00 0003 8332 +3115 7 2 00 0003 8332 9026 +00 0003 8332 +3116 9049 WR1 1977 1975 9049 +71 1977 1975 +3117 9048 SET 9010 1974 9048 +27 9010 1974 +3118 9047 STI 1950 READA 9047 +29 1950 0999 +3119 9050 LOD 1954 1953 9050 +69 1954 1953 +3120 9052 RAA 0 1957 9052 +80 0000 1957 +3121 9054 LOD 1955 8001 9054 +69 1955 8001 +3122 9055 SXA 1 1957 9055 +51 0001 1957 +3123 9056 STD 0 A 1958 9056 +24 2000 1958 +3124 9057 NZA 1956 8000 9057 +40 1956 8000 +3125 9059 00 8008 0 9059 +00 8008 0000 +3126 8 00 0 1 9004 +00 0000 0001 +3127 9 00 0 1800 9021 +00 0000 1800 +3128 COR +3129 3859 CDD +3130 1 LOCAFIER 3860 SKP PLR START +3131 BLR 0 1999 +3132 BLA 1965 1990 +3133 COR 9000 +3134 0 BMI 1F 9000 +46 9001 9002 +3135 LOD 9059 2F 9002 +69 9059 9003 +3136 1 LOD 5F 9001 +69 9004 9005 +3137 STD 9022 9005 +24 9022 9006 +3138 RAL 1951 9006 +65 1951 9007 PAGE 27 +3139 NZE 3F 9007 +45 9008 9009 +3140 LOD 9058 2F 9008 +69 9058 9003 +3141 2 SDS 9000 9003 +85 9000 9010 +3142 STL 9056 9010 +20 9056 9011 +3143 RAC 1662 9021 9011 +88 1662 9021 +3144 9021 STI 1961 LMAST 9021 +29 1961 0442 +3145 3 LOD 9058 9009 +69 9058 9012 +3146 SDS 9000 9012 +85 9000 9013 +3147 LOD 1F 9013 +69 9014 9015 +3148 SET 9021 8001 9015 +27 9021 8001 +3149 1 STI 1961 9014 +29 1961 9016 +3150 RAL 3F D 9016 +65 9017 1971 +3151 00 0 1950 9017 +00 0000 1950 +3152 COR +3153 9021 COD 1961 +3154 1962 STL 4F 1962 9022 +20 1967 1970 +3155 RAC 1664 DMAST 1970 9030 +88 1664 0649 +3156 1964 LOD 4F 1964 9024 +69 1967 1972 +3157 RAB 8001 1F 1972 9032 +82 8001 1978 +3158 1 NZE 1F 1978 9038 +45 1982 1983 +3159 RTC 0 B 1982 9042 +03 4000 1988 +3160 NTS 1B 1988 9048 +25 1978 1965 +3161 NEF 1B 1965 9025 +54 1978 1973 +3162 SLO 1IXXX 1B 1973 9033 +16 0897 1978 +3163 1 RAC PSUDO 1983 9043 +88 1966 0976 punch non-code card, then jmp next instr +3164 RAC 1663 IMAST 1966 9026 +88 1663 0550 +3165 1963 LOD 1999 1963 9023 +69 1999 1968 +3166 RDS 9000 1968 9028 +86 9000 1974 +3167 LOD 4F 1974 9034 +69 1967 1975 +3168 RAB 8001 1F 1975 9035 +82 8001 1981 +3169 1 NZE 1F 1981 9041 +45 1984 1985 +3170 RTC 0 B 1984 9044 +03 4000 1990 +3171 SLO 1IXXX 1B 1990 9050 +16 0897 1981 +3172 1 SET 9010 1985 9045 +27 9010 1969 +3173 STI 1950 READA 1969 9029 +29 1950 0999 +3174 4F UND +3175 5 DIV V0007 9004 +14 1511 1976 +3176 RAU 8002 1976 9036 +60 8002 1986 +3177 MPY V0007 3F 1986 9046 +19 1511 1971 +3178 3 LOD 1998 1971 9031 +69 1998 1977 +3179 RDS 9000 1977 9037 +86 9000 1987 +3180 RAA 8002 1987 9047 +80 8002 1979 +3181 AXA 1 1979 9039 +50 0001 1989 +3182 RAL 8005 1989 9049 +65 8005 1980 +3183 STD FWAXX 9000 1980 9040 +24 0780 9000 +3184 1993 LOD 1962 1992 1993 9053 +69 1962 1992 +3185 1992 SET 9021 1991 1992 9052 +27 9021 1991 +3186 1991 STI 1961 8001 1991 9051 +29 1961 8001 +3187 7 1998 00 0003 8612 1998 9058 +00 0003 8612 +3188 1999 00 0003 8332 1999 9059 +00 0003 8332 +3189 HLT44 HLT 289 C 300 1994 9054 +01 6289 0300 +3190 HLT55 HLT 289 C 300 1995 9055 +01 6289 0300 +3191 HLT88 HLT 289 C 300 1997 9057 +01 6289 0300 +3192 3860 CDD +3193 1 LOCAFIER 3861 PLR PUNCHER +3194 COR 9000 +3195 0 LOD 1999 9000 +69 1999 9001 +3196 SDS 9000 9001 +85 9000 9017 + F RSB 1 FIXED BY RSV 9017 +83 0001 9002 was RSB 1 9017 +83 0001 9003 +3197 STL 9000 9002 +20 9000 9003 +3198 SLT 4 9058 9003 +35 0004 9058 PAGE 28 +3199 9058 STL 9001 9027 9058 +20 9001 9027 +3200 9027 ALO 9000 9027 +15 9000 9004 +3201 STL 9002 9004 +20 9002 9007 +3201 RAL 0F FILLL 9007 +65 9005 0768 +3202 0 RAL 9058B 9038B 9005 +65 9458 9438 +3203 1 STL 9058B 9048 9006 +20 9458 9048 +3204 9048 SXB 1 0B 9048 +53 0001 9005 +3205 9059 00 8000 8 9059 +00 8000 0008 +3206 9057 SRT 4 14 9057 +30 0004 0014 +3207 9056 ALO 7 14 9056 +15 0007 0014 +3208 9055 LOD 1 A 12 9055 +69 2001 0012 +3209 9054 RAU 6 13 9054 +60 0006 0013 +3210 9053 RD1 16 9898 9053 +70 0016 9898 +3211 9052 SXA 1 23 9052 +51 0001 0023 +3212 9051 RAA 4 22 9051 +80 0004 0022 +3213 9050 RD1 9042 9898 9050 +70 9042 9898 +3214 9049 00 8000 8 9049 +00 8000 0008 +3215 9047 LDI 1952 9043 9047 +09 1952 9043 +3216 9046 AXC 1 20 9046 +58 0001 0020 +3217 9045 NZA 18 19 9045 +40 0018 0019 +3218 9044 RAB 8002 21 9044 +82 8002 0021 +3219 9043 BMI 1 17 9043 +46 0001 0017 +3220 9042 STD 0 B 15 9042 +24 4000 0015 +3221 9041 STI 11 19 9041 +29 0011 0019 +3222 9040 RAC 0 9049 9040 +88 0000 9049 +3223 9037 ALO 9000 1B 9037 +15 9000 9006 +3224 9036 ALO 9002 1B 9036 +15 9002 9006 +3225 9035 ALO 9002 1B 9035 +15 9002 9006 +3226 9034 ALO 9002 1B 9034 +15 9002 9006 +3227 9033 ALO 9001 1B 9033 +15 9001 9006 +3228 9032 ALO 9000 1B 9032 +15 9000 9006 +3229 9031 ALO 9000 1B 9031 +15 9000 9006 +3230 9030 WR1 9050 9029 9030 +71 9050 9029 +3231 9029 SXB 4 0B 9029 +53 0004 9005 +3232 9026 ALO 9000 1B 9026 +15 9000 9006 +3233 9025 ALO 9002 1B 9025 +15 9002 9006 +3234 9024 ALO 9000 1B 9024 +15 9000 9006 +3235 9023 ALO 9002 1B 9023 +15 9002 9006 +3236 9022 ALO 9000 1B 9022 +15 9000 9006 +3237 9021 ALO 9002 1B 9021 +15 9002 9006 +3239 9020 RAL 1952 9028 9007 9020 +65 1952 9028 +3240 9028 NZE 1F 9028 +45 9008 9009 +3241 RSM 2F 8001 9008 +68 9010 8001 +3242 1 RAM FIVON 2F 9009 +67 1612 9010 +3243 2 STL FIVTG 9010 +20 0477 9011 +3244 RAL 9000 9011 +65 9000 9012 +3245 ALO 2F 9012 +15 9013 9014 +3246 LOD 1999 9038 9014 +69 1999 9038 +3247 9038 SIB 1961 9038 +28 1961 9015 +3248 WR1 9040 9015 +71 9040 9016 +3249 RDS 9000 1993 9016 +86 9000 1993 +3250 9039 STL 9005 SUB1R 9039 +20 9005 1014 +3251 2 00 0 23 9013 +00 0000 0023 +3253 COR +3254 3861 CDD +3255 1 LOCAFIER 3862 PAL +3256 BLR 0 1999 +3257 BLA 1962 1998 +3258 9021 COD 1961 +3259 9000 LOD 9059 9005 9000 +69 9059 9005 +3260 9005 SDS 9000 9021 9005 +85 9000 9021 PAGE 29 +3261 9021 STI 1961 9008 9021 +29 1961 9008 +3262 9008 RSB 199 9009 9008 +83 0199 9009 +3263 9009 RSC 989 PSUDO 9009 +89 0989 0976 punch non-code card, then jmp to 989 +3264 9011 SIB 1952 9006 9011 +28 1952 9006 +3265 9006 RAL 9007 9012 9006 +65 9007 9012 +3266 9012 STU 1951 9010 9012 +21 1951 9010 +3267 9010 LOD 9018 9017 9010 +69 9018 9017 +3268 9017 STD 9000 9004 9017 +24 9000 9004 +3269 9004 LDI 60004 9004 +09 0804 1962 +3270 STL SPRUD 9001 1962 9022 +20 9019 9001 +3271 9001 RAU A0200B 9002 9001 +60 5949 9002 +3272 9002 NZU 9003 9002 +44 1963 9003 +3273 SCT 0 1963 9023 +36 0000 1985 +3274 RAA 8002 1985 9045 +80 8002 1993 +3275 SLT 1 1993 9053 +35 0001 1964 +3276 SRD 1 A 1964 9024 +31 2001 1971 +3277 STU 9035 1971 9031 +21 9035 1979 +3278 RAU 8005 1979 9039 +60 8005 1987 +3279 MPY 8F 1987 9047 +19 1990 1965 +3280 RAA 8002 1965 9025 +80 8002 1973 +3281 RAL 8006 1973 9033 +65 8006 1981 +3282 DIV 7F 1981 9041 +14 1984 1995 +3283 MPY 9F 1995 9055 +19 1998 1969 +3284 AXA 8002 1969 9029 +50 8002 1977 +3285 AXA 8003 1977 9037 +50 8003 1986 +3286 AXA 1549 N0087 1986 9046 +50 1549 0428 +3287 9007 STD 1953 9007 +24 1953 1966 +3288 RAC PSUDO 1966 9026 +88 1967 0976 punch non-code card, then jmp next instr +3289 RAL 9035 9002 1967 9027 +65 9035 9002 +3290 9003 NZB 9000 1F 9003 +42 9000 1980 +3291 9018 AXB 1 9001 9018 +52 0001 9001 +3292 1 LOD 1999 1980 9040 +69 1999 1968 +3293 RDS 9000 1968 9028 +86 9000 1974 +3294 SET 9010 1974 9034 +27 9010 1982 +3295 STI 1950 READA 1982 9042 +29 1950 0999 +3296 9013 ALF BLA THINK 9013 +62 7361 0000 +3297 9014 ALF AVAI THINK 9014 +00 6185 6169 +3298 9015 ALF LABLE THINK 9015 +73 6162 7365 +3299 9019 00 9998 9990 9019 +00 9998 9990 +3300 7 1999 00 0003 8332 1999 9059 +00 0003 8332 +3301 7 00 0 4 1984 9044 +00 0000 0004 +3302 8 00 0 50 1990 9050 +00 0000 0050 +3303 9 00 0 500 1998 9058 +00 0000 0500 +3304 3862 CDD +3305 1 LOCAFIER 3863 PDL SECOND +3306 BLR 0 1999 +3307 BLA 1952 1976 +3308 BLA 1985 1985 +3309 BLA 1988 1989 +3310 BLA 1993 1999 +3311 9010 COD 1950 +3312 COR 9000 +3313 0 LOD 1683 9000 +69 1683 9001 +3314 SDS 9000 9010 9001 +85 9000 9010 +3315 9010 STI 1950 9037 9010 +29 1950 9037 +3316 9037 LOD 9044 9038 9037 +69 9044 9038 +3317 9038 RAA 5 9039 9038 +80 0005 9039 +3318 9039 STD 1978A 9040 9039 +24 3978 9040 +3319 9040 NZA 9041 9042 9040 +40 9041 9042 +3320 9041 SXA 1 9039 9041 +51 0001 9039 +3321 9044 ALF ZZZZZ THINK 9044 +89 8989 8989 PAGE 30 +3322 9042 LOD 9043 3F 9042 +69 9043 9002 +3323 3 SET 9010 8001 9002 +27 9010 8001 +3324 9043 LDI 1850 9043 +09 1850 9003 +3325 LOD 1683 9003 +69 1683 9004 +3326 WDS 9000 9004 +87 9000 9005 +3327 LOD 3B 9005 +69 9006 9002 +3328 LOD 1682 D 9006 +69 1682 1985 +3329 SDS 9000 1951 1985 9045 +85 9000 1951 +3330 1951 LDI 1900 1951 9011 +09 1900 9007 +3331 WDS 9000 9007 +87 9000 9008 +3332 NZE 1691 9008 +45 9009 1691 +3333 RAB 1 1698 9009 +82 0001 1698 +3334 COR +3335 1990 NZC 1694 1990 9050 +48 1993 1694 +3336 RAL 9061C 1993 9053 +65 9661 1965 +3337 BMI 1692B 5F 1965 9025 +46 5692 1970 +3338 5 STL 1977 1970 9030 +20 1977 1988 +3339 SLT 3 1988 9048 +35 0003 1997 +3340 RAA 8003 1991B 1997 9057 +80 8003 5991 +3341 1992 SUP 8001 1992 9052 +11 8001 1999 +3342 SXA 100 1F 1999 9059 +51 0100 1955 +3343 1991 SUP 8001 1F 1991 9051 +11 8001 1955 +3344 1 SLT 1 1955 9015 +35 0001 1961 +3345 RAB 8003 1961 9021 +82 8003 1971 +3346 RAU 1850A 1971 9031 +60 3850 1956 +3347 SRT 0 B 1956 9016 +30 4000 1989 +3348 LOD 8003 1989 9049 +69 8003 1996 +3349 BD1 1F 1996 9056 +91 1952 1953 +3350 WR1 1977 2F 1953 9013 +71 1977 1959 +3351 1 AUP 1IXXX 1952 9012 +10 0897 1954 +3352 SLT 0 B 1954 9014 +35 4000 1994 +3353 STU 1850A 2F 1994 9054 +21 3850 1959 +3354 2 BOV 1699 AXC 1959 9019 +47 1699 1964 +3355 AXC AXC 2 1964 9024 +58 0002 1972 +3356 RAB 9058 1990 1972 9032 +82 9058 1990 +3357 1986 08 8000 0 1986 9046 +08 8000 0000 +3358 1987 RAL 8001 1987 9047 +65 8001 1995 +3359 SRT 6 1995 9055 +30 0006 1960 +3360 ALO 1IXXX 1960 9020 +15 0897 1957 +3361 RAB 9058 SCT 1957 9017 +82 9058 1966 +3362 SCT SCT 6 5B 1966 9026 +36 0006 1970 +3363 3863 CDD +3364 1 LOCAFIER 3864 PDL FIRST +3365 COR 9000 +3366 0 LOD 1F 9000 +69 9001 9002 +3367 SDS 9000 9002 +85 9000 9003 +3368 LOD 2F 9003 +69 9004 9005 +3369 SET 9010 8001 9005 +27 9010 8001 +3370 2 STI 1650 9004 +29 1650 9006 +3371 RSC 991 PSUDO 9006 +89 0991 0976 punch non-code card, then jmp to 991 +3372 9009 RAL RAMSW 9009 +65 0773 9007 +3373 SLO RAMON 9007 +16 0662 9008 +3374 LOD 1F DUMP9 9008 +69 9001 1547 +3375 7 1 00 0003 8632 9001 +00 0003 8632 +3376 COR +3377 BLR 0 1999 +3378 BLA 1650 1679 +3379 BLA 1684 1684 +3380 BLA 1689 1690 +3381 9010 COD 1650 +3382 1691 RAM DISKRB 1691 9051 +67 5248 1653 PAGE 31 +3383 RDS 9000 1653 9013 +86 9000 1658 +3384 RAA 99 1658 9018 +80 0099 1664 +3385 LOD T0003 2F 1664 9024 +69 0846 1650 +3386 2 STD 1850A 1650 9010 +24 3850 1654 +3387 NZA 2F 1654 9014 +40 1657 1659 +3388 SXA 1 2B 1657 9017 +51 0001 1650 +3389 2 SLT 2 1659 9019 +35 0002 1665 +3390 RAC 8003 1665 9025 +88 8003 1674 +3391 SUP 8001 1674 9034 +11 8001 1684 +3392 SRT 2 3F 1684 9044 +30 0002 1651 +3393 3 SLO 9F 1651 9011 +16 1655 1660 +3394 STL LHOLD 1660 9020 +20 0255 1661 +3395 SXC 60 1661 9021 +59 0060 1667 +3396 SDS 9000 1667 9027 +85 9000 1672 +3397 LOD 8006 1672 9032 +69 8006 1678 +3398 STD 9058 1990 1678 9038 +24 9058 1990 +3399 1693 SLO 60004 1692 1693 9053 +16 0804 1692 +3400 1692 SCT 6 1692 9052 +36 0006 1662 +3401 STL OTEND 1662 9022 +20 1711 1666 +3402 RSL 8003 SCT 1666 9026 +66 8003 1966 +3403 1699 RAM OTEND 1699 9059 +67 1711 1668 +3404 SLO 1977 1668 9028 +16 1977 1689 +3405 NZE 1987 AXC 1689 9049 +45 1987 1964 +3406 1694 RAL LHOLD 1694 9054 +65 0255 1663 +3407 SLO 1695B 1663 9023 +16 5695 1652 +3408 BMI 1F 1652 9012 +46 1656 1669 +3409 RAL LHOLD 1669 9029 +65 0255 1670 +3410 RDS 9000 3B 1670 9030 +86 9000 1651 +3411 1 LOD DISKRB 1656 9016 +69 5248 1671 +3412 SDS 9000 1697B 1671 9031 +85 9000 5697 +3413 7 1695 ALF THINK 1695 9055 +00 0000 0000 +3414 7 1696 00 0 501 1696 9056 +00 0000 0501 +3415 1697 RAB 1 1691 1697 9057 +82 0001 1691 +3416 1698 LOD 1682B 1698 9058 +69 5682 1690 +3417 SET 9010 1690 9050 +27 9010 1673 +3418 SDS 9000 1687B 1673 9033 +85 9000 5687 +3419 1688 RDS 9000 1688 9048 +86 9000 1675 +3420 SXB 1 1698 1675 9035 +53 0001 1698 +3421 1687 STI 1850 1688 1687 9047 +29 1850 1688 +3422 1686 STI 1900 1688 1686 9046 +29 1900 1688 +3423 1685 STI 1950 1685 9045 +29 1950 1676 +3424 RDS 9000 1676 9036 +86 9000 1677 +3425 SET 9010 1677 9037 +27 9010 1679 +3426 STI 1650 READA 1679 9039 +29 1650 0999 +3427 7 1683 00 0008 8342 1683 9043 +00 0008 8342 +3428 7 1682 00 0008 8332 1682 9042 +00 0008 8332 +3429 7 1681 00 0003 8332 1681 9041 +00 0003 8332 +3430 7 1680 00 0003 8282 1680 9040 +00 0003 8282 +3431 9 00 0 10 1655 9015 +00 0000 0010 +3432 3864 CDD +3433 1 LOCAFIER 3865 LAT SAT LST SST +3434 COR 9000 +3435 0 RSC 995 9021 9000 +89 0995 9021 +3436 9021 STI 1961 9021 +29 1961 9001 +3437 BOV 9006 1F 9001 +47 9006 9002 +3438 9006 SIB 1961 1F 9006 +28 1961 9002 +3439 1 BMI PSUDO 9002 +46 9003 0976 PSUDO=punch non-code card then jmp to IRC=995 +3440 LOD 9058 9003 +69 9058 9004 +3441 STD 1965 PSUDO 9004 +24 1965 0976 PSUDO=punch non-code card then jmp to IRC=995 +3442 9005 RAL 1952 9010 9005 +65 1952 9010 +3443 9010 SIB 1950 9020 9010 +28 1950 9020 PAGE 32 +3444 9020 RAC 1696 MASTR 9020 +88 1696 0069 +3445 COR +3446 9021 COD 1961 +3447 BLR 0 1999 +3448 BLA 1951 1959 +3449 BLA 1969 1993 +3450 BLA 1999 1999 +3451 1996 SLT 1 1996 9056 +35 0001 1953 +3452 7 ALO 30040 1953 9013 +15 0290 1999 +3453 LOD 8002 1999 9059 +69 8002 1955 +3454 SDS 9000 1955 9015 +85 9000 1969 +3455 RSA 150 1965 1969 9029 +81 0150 1965 +3456 9058 RDS 9000 LAT LST 9058 +86 9000 1959 +3457 NZA 1F 1962B 1959 9019 +40 1970 5962 +3458 1 ALO 3F 1970 9030 +15 1973 1977 +3459 LOD 8002 1977 9037 +69 8002 1983 +3460 AXA 50 1983 9043 +50 0050 1989 +3461 SDS 9000 1963B 1989 9049 +85 9000 5963 +3462 1963 STI 1850A 1965 1963 9023 +29 3850 1965 +3463 1962 STI 1900 9F 1962 9022 +29 1900 1952 +3464 9008 STI E0101A 1965 9008 +29 3150 1965 +3465 9007 RAB 4 9007 +82 0004 1971 +3466 RSA 250 1B 1971 9031 +81 0250 1970 +3467 1967 SET 9012 1967 9027 +27 9012 1972 +3468 STI S0201A 1965 1972 9032 +29 3400 1965 +3469 1966 SET 9012 1966 9026 +27 9012 1974 +3470 STI S0251 1974 9034 +29 1450 1954 +3471 SIB LEVEL 9F 1954 9014 +28 0256 1952 +3472 1965 SET 9000 1964B SAT SST 1965 9025 +27 9000 5964 +3473 1964 LDI 1900A 5F 1964 9024 +09 3900 1956 +3474 5 WDS 9000 1956 9016 +87 9000 1975 +3475 NZA 9F 1975 9035 +40 1978 1952 +3476 ALO 3F 1978 9038 +15 1973 1979 +3477 LOD 8002 1979 9039 +69 8002 1985 +3478 AXA 50 1985 9045 +50 0050 1991 +3479 SDS 9000 1964B 1991 9051 +85 9000 5964 +3480 9009 NZA 1F 9009 +40 1976 1980 +3481 LDI E0151A 5B 1976 9036 +09 3200 1956 +3482 1 RSA 250 1980 9040 +81 0250 1986 +3483 RAB 4 1968 1986 9046 +82 0004 1968 +3484 1968 SET 9012 1968 9028 +27 9012 1981 +3485 LDI S0251A 1981 9041 +09 3450 1957 +3486 LIB LEVEL 5B 1957 9017 +08 0256 1956 +3487 HLT44 HLT 257 C 300 1994 9054 +01 6257 0300 +3488 HLT55 HLT 257 C 300 1995 9055 +01 6257 0300 +3489 HLT88 HLT 257 C 300 1997 9057 +01 6257 0300 +3490 9 LOD 8F 1952 9012 +69 1958 1982 +3491 SDS 9000 1982 9042 +85 9000 1987 +3492 RDS 9000 1987 9047 +86 9000 1992 +3493 SET 9010 1992 9052 +27 9010 1951 +3494 STI 1950 READA 1951 9011 +29 1950 0999 +3495 7 8 00 0003 8332 1958 9018 +00 0003 8332 +3496 3 00 0 10 1973 9033 +00 0000 0010 +3497 3865 CDD +3498 1 LOCAFIER 3866 ERROR RESTARTING +3499 COR 9000 +3500 8F SYN 9003 +3501 0 RAU CARRY 9000 +60 0460 9001 +3502 0F SYN 9002 +3503 BD6 9F 9001 +96 9004 9005 +3504 SUP KEEP 9005 +11 0223 9006 PAGE 33 +3505 NZU 9F 9006 +44 9007 9004 +3506 RAL FARBL 9007 +65 0112 9008 +3507 SLO FARCE 9008 +16 1499 9009 +3508 NZE 9F 9009 +45 9010 9004 +3509 LOD CARRY 9010 +69 0460 9011 +3510 RAA 8001 9011 +80 8001 9012 +3511 RAM 8005 9012 +67 8005 9013 +3512 DIV 1F 9013 +14 9014 9015 +3513 RAC 8002 9015 +88 8002 9016 +3514 RAL 8003 9016 +65 8003 9017 +3515 DIV 2F 9017 +14 9018 9019 +3516 RAA 8002 9019 +80 8002 9020 +3517 AUP 8003 9020 +10 8003 9021 +3518 AUP 8003 9021 +10 8003 9022 +3519 AXC 8003 9022 +58 8003 9023 +3520 RAL A0001C 9023 +65 7750 9024 +3521 SLT 1 A 9024 +35 2001 9025 +3522 AUP 3F 9025 +10 9026 9027 +3523 SRD 1 A 9027 +31 2001 9028 +3524 STL A0001C 0F 9028 +20 7750 9002 +3525 9 RAL COREC 9004 +65 0927 9029 +3526 STD 9000 9029 +24 9000 9030 +3527 SLO KEEPP 9030 +16 0096 9031 +3528 NZE 0F 9031 +45 9032 9002 +3529 RAL 1952 9032 +65 1952 9033 +3530 ALO 4F 9033 +15 9034 9035 +3531 NZU 8F 9035 +44 9036 9003 +3532 SLT 2 9036 +35 0002 9037 +3533 RAA 8003 9037 +80 8003 9038 +3534 SUP 8001 9038 +11 8001 9039 +3535 NZE 8F 9039 +45 9003 9040 +3536 LOD F9900A 9040 +69 2413 9041 +3537 RAB 8001 9041 +82 8001 9042 +3538 SXB 9000 9042 +53 9000 9043 +3539 NZB 8F 9043 +42 9003 9044 +3540 LOD O0002 9044 +69 1551 9045 +3541 STD F9900A 8F 9045 +24 2413 9003 +3542 8 LIB 70003 9003 +08 1022 9046 +3543 LOD LEVEL 9046 +69 0256 9047 +3544 RAB 8001 9047 +82 8001 9048 +3545 LOD KEE 9048 +69 0215 9049 +3546 STD LEVEL 9049 +24 0256 9050 +3547 RAC 8001 9003 9050 +88 8001 9003 +3548 1 00 0 500 9014 +00 0000 0500 +3549 2 00 0 50 9018 +00 0000 0050 +3550 3 00 0 8 9026 +00 0000 0008 +3551 4 09 3400 0 9034 +09 3400 0000 +3552 5 ALF F THINK 9051 +66 0000 0000 +3553 6 50 0 0 9052 +50 0000 0000 +3554 0 RAL PROGP 9002 +65 1962 9053 +3555 NZE 1F 9053 +45 9054 9055 +3556 RAA 8001 9054 +80 8001 9056 +3557 SRT 4 9056 +30 0004 9057 +3558 STL F0000A 1F 9057 +20 2513 9055 +3559 1 LOD KEEPP 9055 +69 0096 9058 +3560 STD COREC 9058 +24 0927 9059 +3561 RAL KEEP 666 9059 +65 0223 0666 +3562 COR +3563 3866 CDD +3564 END diff --git a/I650/sw/supersoap/ssoap_calling_card.dck b/I650/sw/supersoap/ssoap_calling_card.dck new file mode 100644 index 000000000..c603ad476 --- /dev/null +++ b/I650/sw/supersoap/ssoap_calling_card.dck @@ -0,0 +1 @@ +6519541957 SUPERSOAP360001195500000380024719589876+(date)+++85900019538690009000 diff --git a/I650/sw/supersoap/ssoap_calling_card.txt b/I650/sw/supersoap/ssoap_calling_card.txt new file mode 100644 index 000000000..6869588b9 --- /dev/null +++ b/I650/sw/supersoap/ssoap_calling_card.txt @@ -0,0 +1,10 @@ + +1951: 65 1954 1957+ RAL 1954 1957 +1952: 00 0759 0617- S UPER SOAP +1953: 36 0001 1955+ SCT 0001 1955 +1954: 00 0003 8002+ NOP 0003 8002 +1955: 47 1958 9876+ BOV 1958 9876 +1956: 00 0000 0000+ (date) +1957: 85 9000 1953+ SDS 9000 1953 +1958: 86 9000 9000+ RDS 9000 9000 + diff --git a/I650/sw/supersoap/ssoap_core.dck b/I650/sw/supersoap/ssoap_core.dck new file mode 100644 index 000000000..d3821434d --- /dev/null +++ b/I650/sw/supersoap/ssoap_core.dck @@ -0,0 +1,2021 @@ +?000008000 0000 800? 1 locafier 3834 tap cdd and dsk 1554- +?000008000 0000 800? - +?000008000 0000 800? lholdequ30005 1555- +?000008000 0000 800? dholdequs0294 1556- +?000008000 0000 800? iholdequ533tl 1557- +?000008000 0000 800? dbandequs0292 1558- +?000008000 0000 800? drem equs0293 1559- +?000008000 0000 800? ibandequs0260 1560- +?000008000 0000 800? irem equs0270 1561- +?000008000 0000 800? blr 0 1999 1562- +?000008000 0000 800? bla 1960 1993 1563- +?000008000 0000 800? bla 1998 1999 1564- +?000008000 0000 800? cor 9000 1565- +6I1954195C 0000249000800?6500479001 0 ral 47 1566- +6I1954195C 0000249001800?8816509002 rac 1650 1567- +6I1954195C 0000249002800?8300019003 rsb 1 1568- +6I1954195C 0000249003800?6990049005 lod1f 1569- +6I1954195C 0000249005800?2790108001 set 9010 8001 1570- +6I1954195C 0000249004800?2919500069 1 sti 1950 mastr 1571- +?000008000 0000 800? cor 1572- +?000008000 0000 800? 9010cod 1950 1573- +6I1954195C 0000249010800?2002551960 1950stllhold 1574- +6I1954195C 0000249020800?6500491961 ral 49 1575- +6I1954195C 0000249021800?4519641965 nze 9f 1576- +6I1954195C 0000249024800?6919671970 lod5f 1577- +6I1954195C 0000249030800?8590001975 sds 9000 1f 1578- +6I1954195C 0000249035800?5800010069 1 axc 1 mastr 1579- +6I1954195C 0000249011800?2000461999 1951stlihold 1580- +6I1954195C 0000249059800?5000011962 axa 1 1581- +6I1954195C 0000249022800?4019951966 nzahlt55 1582- +6I1954195C 0000249026800?6707731977 ramramsw 1583- +6I1954195C 0000249037800?1606621968 sloramon 1584- +6I1954195C 0000249028800?4516951973 nze 1695 1585- +6I1954195C 0000249033800?6500481975 ral 48 1b 1586- +6I1954195C 0000249012800?2014931998 1952stldhold 1587- +6I1954195C 0000249058800?4519631969 nze1f 1588- +6I1954195C 0000249029800?6500461971 ralihold 1589- +6I1954195C 0000249031800?1619741979 slo3f 1590- +6I1954195C 0000249039800?4519631983 nze1f 2f 1591- +6I1954195C 0000249034800?0000001999 3 00 0 1999 1592- +6I1954195C 0000249023800?5000011972 1 axa 1 1593- +6I1954195C 0000249032800?4019951983 nzahlt55 2f 1594- +6I1954195C 0000249043800?6519671699 2 ral5f 1699 1595- +6I1954195C 0000249027800?00000880027 5 00 0008 8002 1596- +6I1954195C 0000249014800?6963081976 1954lod 308 c 1597- +6I1954195C 0000249036800?8590001981 sds 9000 1598- +6I1954195C 0000249041800?8690001986 rds 9000 1599- +6I1954195C 0000249046800?2790106306 set 9010 306 c 1600- +6I1954195C 0000249016800?2916501978 1956sti 1650 1601- +6I1954195C 0000249038800?5800011954 axc 1 1954 1602- +6I1954195C 0000249017800?2919500999 1957sti 1950 reada 1603- +6I1954195C 0000249025800?6506851989 9 ralcorsw 1604- +6I1954195C 0000249049800?1606061980 slocoron 1605- +6I1954195C 0000249040800?6915981982 loddiskc 1606- +6I1954195C 0000249042800?8590001987 sds 9000 1607- +6I1954195C 0000249047800?4519541991 nze 1954 1608- +6I1954195C 0000249051800?8690001696 rds 9000 1696 1609- +6I1954195C 0000249018800?00000382827 1958 00 0003 8282 1610- +6I1954195C 0000249019800?00000383327 1959 00 0003 8332 1611- +6I1954195C 0000249056800?8590005954 1996sds 9000 1954b 1612- +6I1954195C 0000249013800?0977001984 1953ldi 1700c1f 1613- +6I1954195C 0000249015800?0960001984 1955ldi 0 c1f 1614- +6I1954195C 0000249044800?8790001990 1 wds 9000 1615- +6I1954195C 0000249050800?4819855654 nzc 1654b 1616- +6I1954195C 0000249045800?5900501992 sxc 50 write 1617- +6I1954195C 0000249052800?1519881993 writealo1f 1618- +6I1954195C 0000249053800?6980021996 lod 8002 1996 1619- +6I1954195C 0000249048800?0000000010 1 00 0 10 1620- +6I1954195C 0000249054800?0163010300 hlt44hlt 301 c 300 1621- +6I1954195C 0000249055800?0163010300 hlt55hlt 301 c 300 1622- +6I1954195C 0000249057800?0163010300 hlt88hlt 301 c 300 1623- +?000008000 0000 800? 3834cdd 1624- +?000008000 0000 800? - +?000008000 0000 800? 1 locafier 3835 dsk start 1625- +?000008000 0000 800? blr 0 1999 1626- +?000008000 0000 800? bla 1650 1694 1627- +?000008000 0000 800? syn 1653 1628- +?000008000 0000 800? syn 1655 1629- +?000008000 0000 800? cor 9000 1630- +6I1954195C 0000249000800?6990019002 0 lod1f 1631- +6I1954195C 0000249002800?8590009003 sds 9000 1632- +6I1954195C 0000249003800?6909999004 lodreada 1633- +6I1954195C 0000249004800?2405269005 stdssout 1634- +6I1954195C 0000249005800?6990069007 lod2f 1635- +6I1954195C 0000249007800?2790108001 set 9010 8001 1636- +6I1954195C 0000249006800?2916509008 2 sti 1650 1637- +6I1954195C 0000249008800?6990019009 lod1f 1638- +6I1954195C 0000249009800?8690009000 rds 9000 9000 1639- +6I1954195C 0000249001800?00000383427 1 00 0003 8342 1640- +?000008000 0000 800? cor 1641- +?000008000 0000 800? 9010cod 1650 1642- +6I1954195C 0000249059800?8802001656 1699rac 200 set90 1643- +6I1954195C 0000249016800?2790001996 set90set 9000 1996 1644- +6I1954195C 0000249055800?8816501954 1695rac 1650 1954 1645- +6I1954195C 0000249056800?6502551659 1696rallhold 1646- +6I1954195C 0000249019800?3500011665 slt 1 1647- +6I1954195C 0000249025800?1516681673 alo1f 1648- +6I1954195C 0000249033800?6980021679 lod 8002 1649- +6I1954195C 0000249039800?8590001684 sds 9000 1650- +6I1954195C 0000249044800?8790001954 wds 9000 1954 1651- +6I1954195C 0000249028800?00000000027 1 00 0 2 1652- +6I1954195C 0000249013800?8200011660 1653rab 1 1653- +6I1954195C 0000249020800?8816001992 rac 1600 write 1654- +6I1954195C 0000249015800?6502551661 1655rallhold 1655- +6I1954195C 0000249021800?3500011667 slt 1 1656- +6I1954195C 0000249027800?1516701675 alo6f 1657- +6I1954195C 0000249035800?2016043698 stl 1604 1698a 1658- +6I1954195C 0000249057800?6916501654 1697lod3f 1659- +6I1954195C 0000249014800?8590001662 sds 9000 1660- +6I1954195C 0000249022800?3600011547 sct 1 dump9 1661- +6I1954195C 0000249010800?00000384327 3 00 0003 8432 1662- +6I1954195C 0000249058800?6916511657 1698lod1f 1663- +6I1954195C 0000249017800?8590001663 sds 9000 1664- +6I1954195C 0000249023800?6500461652 ralihold 1665- +6I1954195C 0000249012800?1416581669 div2f 1666- +6I1954195C 0000249029800?2014591664 stliband 1667- +6I1954195C 0000249024800?2114691672 stuirem 1668- +6I1954195C 0000249032800?8200001678 rab 0 1669- +6I1954195C 0000249038800?6916511666 lod1f 1670- +6I1954195C 0000249026800?8690009000 rds 9000 9000 1671- +6I1954195C 0000249011800?00000384527 1 00 0003 8452 1672- +6I1954195C 0000249018800?0000000050 2 00 0 50 1673- +6I1954195C 0000249030800?00000000027 6 00 0 2 1674- +?000008000 0000 800? 3835cdd 1675- +?000008000 0000 800? - +?000008000 0000 800? 1 locafier 3836 cdd start 1676- +?000008000 0000 800? blr 0 1999 1677- +?000008000 0000 800? bla 1650 1673 1678- +?000008000 0000 800? blr 1651 1653 1679- +?000008000 0000 800? syn 1655 1680- +?000008000 0000 800? cor 9000 1681- +6I1954195C 0000249000800?6990019002 0 lod1f 1682- +6I1954195C 0000249002800?8590009003 sds 9000 1683- +6I1954195C 0000249003800?6909999004 lodreada 1684- +6I1954195C 0000249004800?2405269005 stdssout 1685- +6I1954195C 0000249005800?6990069007 lod2f 1686- +6I1954195C 0000249007800?2790108001 set 9010 8001 1687- +6I1954195C 0000249006800?2916509008 2 sti 1650 1688- +6I1954195C 0000249008800?6990019009 lod1f 1689- +6I1954195C 0000249009800?8690009000 rds 9000 9000 1690- +6I1954195C 0000249001800?00000383427 1 00 0003 8342 1691- +?000008000 0000 800? cor 1692- +?000008000 0000 800? 9010cod 1650 1693- +6I1954195C 0000249059800?7116661656 1699wr1 1666 1694- +6I1954195C 0000249016800?8802001662 rac 200 1695- +6I1954195C 0000249022800?2790001996 set 9000 1996 1696- +6I1954195C 0000249056800?7116661654 1696wr1 1666 1697- +6I1954195C 0000249014800?8300561660 rsb 56 1f 1698- +6I1954195C 0000249020800?2794561666 1 set 9056b 1699- +6I1954195C 0000249026800?2916771650 sti 1677 1700- +6I1954195C 0000249010800?4216571655 nzb3f 1655 1701- +6I1954195C 0000249015800?6502551659 1655rallhold 1702- +6I1954195C 0000249019800?3500011665 slt 1 1703- +6I1954195C 0000249025800?1516695651 alo6f 1651b 1704- +6I1954195C 0000249011800?0816741658 1651lib 1674 1705- +6I1954195C 0000249018800?2790001663 set 9000 1706- +6I1954195C 0000249023800?2816811661 sib 1681 1707- +6I1954195C 0000249021800?2016841657 stl 1684 3f 1708- +6I1954195C 0000249017800?6916641667 3 lod1f 1709- +6I1954195C 0000249027800?2416861668 std 1686 1710- +6I1954195C 0000249028800?7116661670 wr1 1666 1711- +6I1954195C 0000249030800?4216731954 nzb 1954 1712- +6I1954195C 0000249033800?5200081660 axb 8 1b 1713- +6I1954195C 0000249024800?0080880000 1 00 8088 0 1714- +6I1954195C 0000249013800?8200011671 1653rab 1 1715- +6I1954195C 0000249031800?8816001992 rac 1600 write 1716- +?000008000 0000 800? bla 1685 1693 1717- +?000008000 0000 800? syn 1686 1718- +6I1954195C 0000249012800?2016043698 1652stl 1604 1698a 1719- +6I1954195C 0000249057800?6916721544 1697lod dump8 1720- +6I1954195C 0000249032800?00000384327 00 0003 8432 1721- +6I1954195C 0000249058800?6916851688 1698lod1f 1722- +6I1954195C 0000249048800?8590001693 sds 9000 1723- +6I1954195C 0000249053800?6500461687 ralihold 1724- +6I1954195C 0000249047800?1416901689 div2f 1725- +6I1954195C 0000249049800?2014591691 stliband 1726- +6I1954195C 0000249051800?2114691692 stuirem 1727- +6I1954195C 0000249052800?6916851547 lod1f dump9 1728- +6I1954195C 0000249045800?00000384527 1 00 0003 8452 1729- +6I1954195C 0000249029800?00000000027 6 00 0 2 1730- +6I1954195C 0000249050800?0000000050 2 00 0 50 1731- +6I1954195C 0000249046800?0080880000 1686 00 8088 0 1732- +6I1954195C 0000249055800?8816501954 1695rac 1650 1954 1733- +?000008000 0000 800? 9037cod 1951 1734- +6I1954195C 0000249037800?6919521953 1951lod 1952 1953 1735- +6I1954195C 0000249038800?2792561956 1952set 9056a 1956 1736- +6I1954195C 0000249039800?2419001954 1953std 1900 1954 1737- +6I1954195C 0000249040800?8100561955 1954rsa 56 1955 1738- +6I1954195C 0000249041800?7019009898 1955rd1 1900 9898 1739- +6I1954195C 0000249042800?0919011957 1956ldi 1901 1957 1740- +6I1954195C 0000249043800?4019581905 1957nza 1958 1905 1741- +6I1954195C 0000249044800?5000081955 1958axa 8 1955 1742- +?000008000 0000 800? 9034cod 1905 1743- +6I1954195C 0000249034800?6919081906 1905lod 1908 1906 1744- +6I1954195C 0000249035800?8590001907 1906sds 9000 1907 1745- +6I1954195C 0000249036800?8790008000 1907wds 9000 8000 1746- +?000008000 0000 800? 3836cdd 1747- +?000008000 0000 800? - +?000008000 0000 800? 1 locafier 3837 drum restorer 1748- +?000008000 0000 800? blr 0 1999 1749- +?000008000 0000 800? bla 1905 1925 1750- +?000008000 0000 800? cor 9000 1751- +6I1954195C 0000249000800?6590019002 0 ral1f 1752- +6I1954195C 0000249002800?8590009003 sds 9000 1753- +6I1954195C 0000249003800?8200009004 rab 0 1754- +6I1954195C 0000249004800?8919009005 rsc 1900 1755- +6I1954195C 0000249005800?8000049006 raa 4 1756- +6I1954195C 0000249006800?6990079008 lod2f 1757- +6I1954195C 0000249008800?2790108001 set 9010 8001 1758- +6I1954195C 0000249007800?2919009009 2 sti 1900 1759- +6I1954195C 0000249009800?6990011908 lod1f 2f d 1760- +6I1954195C 0000249001800?00000883727 1 00 0008 8372 1761- +?000008000 0000 800? cor 1762- +?000008000 0000 800? 9010cod 1900 1763- +6I1954195C 0000249018800?8690001913 2 rds 9000 1764- +6I1954195C 0000249023800?4019175900 nza5f 1900b 1765- +6I1954195C 0000249027800?1619201925 5 slo3f 1766- +6I1954195C 0000249035800?6980021905 lod 8002 1767- +6I1954195C 0000249015800?8590001945 sds 9000 1945 1768- +6I1954195C 0000249055800?2979001906 1945sti 1900c 1769- +6I1954195C 0000249016800?5100011912 sxa 1 4f 1770- +6I1954195C 0000249022800?5800501908 4 axc 50 2b 1771- +6I1954195C 0000249010800?6919071910 1900lod1f 7f 1772- +6I1954195C 0000249020800?8590001915 7 sds 9000 1773- +6I1954195C 0000249025800?2979001909 sti 1900c 1774- +6I1954195C 0000249019800?8690001914 rds 9000 1775- +6I1954195C 0000249024800?1619201911 slo3f 1776- +6I1954195C 0000249021800?6980021918 lod 8002 1777- +6I1954195C 0000249028800?2790101939 set 9010 1939 1778- +6I1954195C 0000249049800?8590005946 1939sds 9000 1946b 1779- +6I1954195C 0000249056800?2919501916 1946sti 1950 1780- +6I1954195C 0000249026800?8000041922 raa 4 6f 1781- +6I1954195C 0000249057800?2916501919 1947sti 1650 1782- +6I1954195C 0000249029800?8000231922 raa 23 6f 1783- +6I1954195C 0000249032800?5200011912 6 axb 1 4b 1784- +6I1954195C 0000249012800?8000041921 1902raa 4 1785- +6I1954195C 0000249031800?5200011923 axb 1 1786- +6I1954195C 0000249033800?5800501917 axc 50 5b 1787- +6I1954195C 0000249011800?6919241910 1901lod8f 7b 1788- +6I1954195C 0000249034800?00000382827 8 00 0003 8282 1789- +6I1954195C 0000249013800?2919000999 1903sti 1900 reada 1790- +6I1954195C 0000249017800?00000383327 1 00 0003 8332 1791- +6I1954195C 0000249030800?0000000010 3 00 0 10 1792- +?000008000 0000 800? blr 0 1999 1793- +?000008000 0000 800? bla 1976 1994 1794- +?000008000 0000 800? syn 1989 1795- +6I1954195C 0000249059800?8590009014 9059sds 9000 9014 1796- +?000008000 0000 800? 9014cod 1954 1797- +6I1954195C 0000249014800?2919549058 9014sti 1954 9058 1798- +6I1954195C 0000249058800?8690001976 9058rds 9000 1799- +?000008000 0000 800? adn 5 5 1800- +6I1954195C 0000249036800?1519701977 alo3b 1801- +6I1954195C 0000249037800?6980021983 lod 8002 1802- +6I1954195C 0000249043800?8590001988 sds 9000 1803- +6I1954195C 0000249048800?2790301993 set 9030 1804- +6I1954195C 0000249053800?2903501978 sti 350 1805- +6I1954195C 0000249038800?8690001984 rds 9000 1806- +6I1954195C 0000249044800?2903801982 sti 380 1807- +?000008000 0000 800? adn 5 5 1808- +6I1954195C 0000249042800?6919741979 lod8b 1809- +6I1954195C 0000249039800?8590001985 sds 9000 1810- +6I1954195C 0000249045800?8690001990 rds 9000 1811- +6I1954195C 0000249050800?2790101980 set 9010 1812- +6I1954195C 0000249040800?2916501981 sti 1650 1813- +?000008000 0000 800? adn 5 5 1814- +6I1954195C 0000249041800?6919571986 lod1b 1815- +6I1954195C 0000249046800?8590001991 sds 9000 1816- +6I1954195C 0000249051800?8690001987 rds 9000 1817- +6I1954195C 0000249047800?2790101992 set 9010 1818- +6I1954195C 0000249052800?2919500999 sti 1950 reada 1819- +?000008000 0000 800? 3837cdd 1820- +?000008000 0000 800? - +?000008000 0000 800? 1 locafier 3838 tap start 1821- +?000008000 0000 800? blr 0 1999 1822- +?000008000 0000 800? bla 1651 1692 1823- +?000008000 0000 800? syn 1653 1824- +?000008000 0000 800? syn 1655 1825- +?000008000 0000 800? cor 9000 1826- +6I1954195C 0000249000800?6990019002 0 lod1f 1827- +6I1954195C 0000249002800?8590009003 sds 9000 1828- +6I1954195C 0000249003800?6919559004 lod 1955 1829- +6I1954195C 0000249004800?2490549005 std 9054 1830- +6I1954195C 0000249005800?6909999006 lodreada 1831- +6I1954195C 0000249006800?2405269010 stdssout 9010 1832- +6I1954195C 0000249010800?2916509007 9010sti 1650 1833- +6I1954195C 0000249007800?6500499008 ral 49 1834- +6I1954195C 0000249008800?6990011659 lod1f 2f d 1835- +6I1954195C 0000249009800?8690009000 3 rds 9000 9000 1836- +6I1954195C 0000249001800?00000383427 1 00 0003 8342 1837- +?000008000 0000 800? cor 1838- +?000008000 0000 800? 9010cod 1650 1839- +6I1954195C 0000249019800?4590091663 2 nze3b 1840- +6I1954195C 0000249023800?6919601664 lod 1960 1841- +6I1954195C 0000249024800?9616671669 bd6 3f 1842- +6I1954195C 0000249027800?6916701673 lod5f 1843- +6I1954195C 0000249033800?2416761669 std4f 3f 1844- +6I1954195C 0000249029800?6990019009 3 lod1b 3b 1845- +6I1954195C 0000249059800?8802001656 1699rac 200 1846- +6I1954195C 0000249016800?2790001996 set 9000 1996 1847- +6I1954195C 0000249056800?6500481654 1696ral 48 1848- +6I1954195C 0000249014800?4516581660 nze 1f 1849- +6I1954195C 0000249018800?8813930069 rac 1393 mastr 1850- +6I1954195C 0000249020800?8110001666 1 rsa 1000 1f 1851- +6I1954195C 0000249053800?8080021666 1693raa 8002 1f 1852- +6I1954195C 0000249026800?6902551661 1 lodlhold 1853- +6I1954195C 0000249021800?8280011668 rab 8001 1854- +6I1954195C 0000249028800?8800041674 rac 4 1f 1855- +6I1954195C 0000249034800?2720001676 1 set 0 a4f 1856- +6I1954195C 0000249036800?0640001682 4 wtn 0 b6f 1857- +6I1954195C 0000249030800?0740001682 5 wta 0 b6f 1858- +6I1954195C 0000249042800?2516951687 6 nts 1695 1859- +6I1954195C 0000249047800?5900011651 sxc 1 1860- +6I1954195C 0000249011800?4816579911 nzc 9911 1861- +6I1954195C 0000249017800?5740001674 bst 0 b1b 1862- +6I1954195C 0000249013800?8200011662 1653rab 1 1863- +6I1954195C 0000249022800?8816001992 rac 1600 write 1864- +6I1954195C 0000249015800?6902551665 1655lodlhold 1865- +6I1954195C 0000249025800?2416043698 std 1604 1698a 1866- +6I1954195C 0000249057800?6916521544 1697lod dump8 1867- +6I1954195C 0000249012800?00000383927 00 0003 8392 1868- +6I1954195C 0000249058800?6916711675 1698lod1f 1869- +6I1954195C 0000249035800?8590001680 sds 9000 1870- +6I1954195C 0000249040800?6500461672 ralihold 1871- +6I1954195C 0000249032800?1416771688 div2f 1872- +6I1954195C 0000249048800?2014591678 stliband 1873- +6I1954195C 0000249038800?2114691679 stuirem 1874- +6I1954195C 0000249039800?6916711681 lod1f 1875- +6I1954195C 0000249041800?8690009000 rds 9000 9000 1876- +6I1954195C 0000249031800?00000384127 1 00 0003 8412 1877- +6I1954195C 0000249037800?0000000050 2 00 0 50 1878- +6I1954195C 0000249055800?8816501954 1695rac 1650 1954 1879- +?000008000 0000 800? 3838cdd 1880- +?000008000 0000 800? - +?000008000 0000 800? 1 locafier 3839 tap drum loader 1881- +?000008000 0000 800? - +?000008000 0000 800? cor 9000 1882- +6I1954195C 0000249000800?6990019002 0 lod1f 1883- +6I1954195C 0000249002800?8590009003 sds 9000 1884- +6I1954195C 0000249003800?6903149004 lodinstr 1885- +6I1954195C 0000249004800?2490429005 std 9042 1886- +6I1954195C 0000249005800?6916949006 lod 1694 1887- +6I1954195C 0000249006800?2490229007 std 9022 1888- +6I1954195C 0000249007800?6502559008 rallhold 1889- +6I1954195C 0000249008800?3500049009 slt 4 1890- +6I1954195C 0000249009800?6990289010 lod 9028 1891- +6I1954195C 0000249010800?2290289011 sda 9028 1892- +6I1954195C 0000249011800?6990249012 lod 9024 1893- +6I1954195C 0000249012800?2290249013 sda 9024 1894- +6I1954195C 0000249013800?6990319014 lod 9031 1895- +6I1954195C 0000249014800?2290319015 sda 9031 1896- +6I1954195C 0000249015800?6990469016 lod 9046 1897- +6I1954195C 0000249016800?2290469019 sda 9046 9019 1898- +6I1954195C 0000249019800?2916099017 9019sti 1609 1899- +6I1954195C 0000249017800?6990019018 lod1f 1900- +6I1954195C 0000249018800?8690009000 rds 9000 9000 1901- +6I1954195C 0000249001800?00000384027 1 00 0003 8402 1902- +?000008000 0000 800? 9021drc 9001 1903- +?000008000 0000 800? syn 9002 1904- +6I1954195C 0000249021800?2590309000 0 nts 9030 9000 1905- +6I1954195C 0000249020800?6590089003 9000ral 9008 1906- +6I1954195C 0000249023800?8800099004 rac 9 3f 1907- +6I1954195C 0000249024800?5702559036 3 bstlhold 9036 1908- +6I19548000 0000249056800?27900080022 9036set 9000 8002 1909- +6I1954195C 0000249028800?0402559005 9008rtnlhold 1910- +6I1954195C 0000249025800?2590309006 nts 9030 1911- +6I1954195C 0000249026800?5900019007 sxc 1 1912- +6I1954195C 0000249027800?4890049900 nzc3b 9900 1913- +6I1954195C 0000249050800?8800109009 9030rac 10 9009 1914- +6I1954195C 0000249029800?2919691975 9009sti 1969 1975 1915- +?000008000 0000 800? 9029cod 1969 1916- +6I1954195C 0000249035800?8117001981 1975rsa 1700 1981 1917- +6I1954195C 0000249041800?6519861992 1981ral 1986 1992 1918- +6I1954195C 0000249052800?2937001972 1992sti 1700a 1972 1919- +6I1954195C 0000249032800?8200008002 1972rab 0 8002 1920- +6I1954195C 0000249046800?0402551991 1986rtnlhold 1991 1921- +6I1954195C 0000249051800?5200011997 1991axb 1 1997 1922- +6I1954195C 0000249057800?6959751994 1997lod 1975b 1994 1923- +6I1954195C 0000249054800?2519991971 1994nts 1999 1971 1924- +6I1954195C 0000249059800?8800108001 1999rac 10 8001 1925- +6I1954195C 0000249031800?5702551983 1971bstlhold 1983 1926- +6I1954195C 0000249043800?5300011988 1983sxb 1 1988 1927- +6I1954195C 0000249048800?5900011993 1988sxc 1 1993 1928- +6I1954195C 0000249053800?4819969901 1993nzc 1996 9901 1929- +6I1954195C 0000249056800?2790008002 1996set 9000 8002 1930- +6I1954195C 0000249036800?2937201973 1976sti 1720a 1973 1931- +6I1954195C 0000249033800?2937508002 1973sti 1750a 8002 1932- +6I1954195C 0000249037800?2937801995 1977sti 1780a 1995 1933- +6I1954195C 0000249055800?2938008002 1995sti 1800a 8002 1934- +6I1954195C 0000249038800?2938401970 1978sti 1840a 1970 1935- +6I1954195C 0000249030800?4119891974 1970bma 1989 1974 1936- +6I1954195C 0000249049800?2938508002 1989sti 1850a 8002 1937- +6I1954195C 0000249039800?2939001987 1979sti 1900a 1987 1938- +6I1954195C 0000249047800?2939508002 1987sti 1950a 8002 1939- +6I1954195C 0000249040800?2939601984 1980sti 1960a 1984 1940- +6I1954195C 0000249044800?5003001992 1984axa 300 1992 1941- +6I1954195C 0000249034800?6519821989 1974ral 1982 1989 1942- +?000008000 0000 800? 3839cdd 1943- +?000008000 0000 800? - +?000008000 0000 800? 1 locafier 3840 tap drum dump 1944- +?000008000 0000 800? - +?000008000 0000 800? blr 0 1999 1945- +?000008000 0000 800? bla 1751 1773 1946- +?000008000 0000 800? cor 9000 1947- +6I1954195C 0000249000800?6990019002 0 lod1f 1948- +6I1954195C 0000249002800?8590009003 sds 9000 1949- +6I1954195C 0000249003800?6990049005 lod2f 1950- +6I1954195C 0000249005800?2790108001 set 9010 8001 1951- +6I1954195C 0000249004800?2917509006 2 sti 1750 1952- +6I1954195C 0000249006800?6990019007 lod1f 1953- +6I1954195C 0000249007800?8690009000 rds 9000 9000 1954- +6I1954195C 0000249001800?00000384727 1 00 0003 8472 1955- +?000008000 0000 800? cor 1956- +?000008000 0000 800? 9010cod 1750 1957- +6I1954195C 0000249010800?6916041757 1750lod 1604 1958- +6I1954195C 0000249017800?8280011763 rab 8001 1959- +6I1954195C 0000249023800?6517661771 ral1f 2f 1960- +6I1954195C 0000249031800?2790001751 2 set 9000 1961- +6I1954195C 0000249011800?0640001758 wtn 0 b 1962- +6I1954195C 0000249018800?2519501764 nts 1950 1963- +6I1954195C 0000249024800?5740001770 bst 0 b 1964- +6I1954195C 0000249030800?1617731752 slo3f 1965- +6I1954195C 0000249012800?4517719911 nze2b 9911 1966- +6I1954195C 0000249026800?0000000010 1 00 0 10 1967- +6I1954195C 0000249033800?0000000001 3 00 0 1 1968- +?000008000 0000 800? 9010cod 100 1969- +?000008000 0000 800? blr 0 1999 1970- +?000008000 0000 800? bla 124 149 1971- +?000008000 0000 800? blr 140 141 1972- +6I1954195C 0000249050800?6902930146 140 lod 293 4f 1973- +6I1954195C 0000249051800?6902930146 141 lod 293 4f 1974- +6I1954195C 0000249056800?8280010124 4 rab 8001 1975- +6I1954195C 0000249034800?6501270131 ral1f 2f 1976- +6I1954195C 0000249041800?2790000136 2 set 9000 1977- +6I1954195C 0000249046800?0640000142 wtn 0 b 1978- +6I1954195C 0000249052800?2501470148 nts8f 1979- +6I1954195C 0000249058800?5740000125 bst 0 b 1980- +6I1954195C 0000249035800?1601280133 slo3f 1981- +6I1954195C 0000249043800?4501319911 nze2b 9911 1982- +6I1954195C 0000249037800?0000000004 1 00 0 4 1983- +6I1954195C 0000249038800?0000000001 3 00 0 1 1984- +6I1954195C 0000249057800?4703470325 8 bov 347 325 1985- +?000008000 0000 800? 3840cdd 1986- +?000008000 0000 800? 1 locafier 3841 tap fwa lwa 1 1987- +?000008000 0000 800? cor 9000 1988- +6I1954195C 0000249000800?6990019002 0 lod1f 1989- +6I1954195C 0000249002800?8590009003 sds 9000 1990- +6I1954195C 0000249003800?6916949004 lod 1694 1991- +6I1954195C 0000249004800?2490189005 std 9018 1992- +6I1954195C 0000249005800?6516049006 ral 1604 1993- +6I1954195C 0000249006800?3500049007 slt 4 1994- +6I1954195C 0000249007800?6990209008 lod 9020 1995- +6I1954195C 0000249008800?2290209009 sda 9020 1996- +6I1954195C 0000249009800?6990169010 lod 9016 1997- +6I1954195C 0000249010800?2290169015 sda 9016 9015 1998- +6I1954195C 0000249015800?2917509011 9015sti 1750 1999- +6I1954195C 0000249011800?6903149012 lodinstr 2000- +6I1954195C 0000249012800?2417509013 std 1750 2001- +6I1954195C 0000249013800?6990019014 lod1f 2002- +6I1954195C 0000249014800?8690009000 rds 9000 9000 2003- +6I1954195C 0000249001800?00000384827 1 00 0003 8482 2004- +?000008000 0000 800? 9017drc 9001 2005- +?000008000 0000 800? syn 9002 2006- +6I1954195C 0000249017800?2590069003 0 nts 9006 2007- +6I1954195C 0000249019800?0188889004 hlt 8888 2008- +6I1954195C 0000249020800?5702559000 bstlhold 9000 2009- +6I1954195C 0000249016800?0402559001 9000rtnlhold 9001 2010- +6I1954195C 0000249022800?6990099008 9006lod 9009 9008 2011- +6I1954195C 0000249024800?2790108001 9008set 9010 8001 2012- +6I1954195C 0000249025800?2988889000 9009sti 8888 9000 2013- +?000008000 0000 800? cor 2014- +?000008000 0000 800? blr 0 1999 2015- +?000008000 0000 800? bla 1763 1789 2016- +?000008000 0000 800? bla 1791 1793 2017- +?000008000 0000 800? 9015cod 1750 2018- +6I1954195C 0000249027800?6590091769 1762ral 9009 2f 2019- +6I1954195C 0000249034800?6990031775 2 lod 9003 2020- +6I1954195C 0000249040800?2290031782 sda 9003 2021- +6I1954195C 0000249047800?6916041763 lod 1604 2022- +6I1954195C 0000249028800?8280011770 rab 8001 2023- +6I1954195C 0000249035800?8800041776 rac 4 1f 2024- +6I1954195C 0000249041800?2790001781 1 set 9000 2025- +6I1954195C 0000249046800?0640001787 wtn 0 b 2026- +6I1954195C 0000249052800?2517911792 nts3f 2027- +6I1954195C 0000249057800?5900011764 sxc 1 2028- +6I1954195C 0000249029800?4817679911 nzc 9911 2029- +6I1954195C 0000249032800?5740001776 bst 0 b1b 2030- +6I1954195C 0000249026800?6917511765 1761lod 1751 2031- +6I1954195C 0000249030800?2490001771 std 9000 2032- +6I1954195C 0000249036800?6517741779 ral1f 2033- +6I1954195C 0000249044800?1590091788 alo 9009 2034- +6I1954195C 0000249053800?2090091769 stl 9009 2b 2035- +6I1954195C 0000249039800?0000000007 1 00 0 7 2036- +6I1954195C 0000249056800?4717661998 3 bov 1998 2037- +6I1954195C 0000249031800?6917721777 lod2f 2038- +6I1954195C 0000249042800?8590001783 sds 9000 2039- +6I1954195C 0000249048800?8690009000 rds 9000 9000 2040- +6I1954195C 0000249037800?00000383727 2 00 0003 8372 2041- +6I1954195C 0000249055800?00000384227 1790 00 0003 8422 2042- +?000008000 0000 800? 3841cdd 2043- +?000008000 0000 800? 1 locafier 3842 tap fwa lwa 2 2044- +?000008000 0000 800? cor 9000 2045- +6I1954195C 0000249000800?6990019002 0 lod1f 2046- +6I1954195C 0000249002800?8590009020 sds 9000 9020 2047- +6I1954195C 0000249020800?2901109003 9020sti 110 2048- +6I1954195C 0000249003800?6990049010 lod2f 9010 2049- +6I1954195C 0000249010800?0817519005 9010lib 1751 2050- +6I1954195C 0000249005800?2790108001 set 9010 8001 2051- +6I1954195C 0000249004800?2801019006 2 sib 101 2052- +6I1954195C 0000249006800?6990019007 lod1f 2053- +6I1954195C 0000249007800?8690009000 rds 9000 9000 2054- +6I1954195C 0000249001800?00000384927 1 00 0003 8492 2055- +?000008000 0000 800? cor 2056- +?000008000 0000 800? blr 0 1999 2057- +?000008000 0000 800? bla 114 149 2058- +?000008000 0000 800? 9020cod 110 2059- +6I1954195C 0000249022800?6590090119 112 ral 9009 2f 2060- +6I1954195C 0000249029800?6990030125 2 lod 9003 2061- +6I1954195C 0000249035800?2290030132 sda 9003 2062- +6I1954195C 0000249042800?6902930146 lod 293 2063- +6I1954195C 0000249056800?8280010114 rab 8001 2064- +6I1954195C 0000249024800?8800040120 rac 4 1f 2065- +6I1954195C 0000249030800?2790000126 1 set 9000 2066- +6I1954195C 0000249036800?0640000133 wtn 0 b 2067- +6I1954195C 0000249043800?2501370138 nts3f 2068- +6I1954195C 0000249048800?5900010144 sxc 1 2069- +6I1954195C 0000249054800?4801479911 nzc 9911 2070- +6I1954195C 0000249057800?5740000120 bst 0 b1b 2071- +6I1954195C 0000249021800?6901010115 111 lod 101 2072- +6I1954195C 0000249025800?2490000121 std 9000 2073- +6I1954195C 0000249031800?6501240129 ral1f 2074- +6I1954195C 0000249039800?1590090139 alo 9009 2075- +6I1954195C 0000249049800?2090090119 stl 9009 2b 2076- +6I1954195C 0000249047800?4703470349 3 bov 347 349 2077- +6I1954195C 0000249034800?0000000007 1 00 0 7 2078- +?000008000 0000 800? 3842cdd 2079- +?000008000 0000 800? 1 locafier 3843 cdd dsk drumdump 2080- +?000008000 0000 800? blr 0 1999 2081- +?000008000 0000 800? bla 1751 1771 2082- +?000008000 0000 800? cor 9000 2083- +6I1954195C 0000249000800?6990019002 0 lod1f 2084- +6I1954195C 0000249002800?8590009003 sds 9000 2085- +6I1954195C 0000249003800?6990049005 lod2f 2086- +6I1954195C 0000249005800?2790108001 set 9010 8001 2087- +6I1954195C 0000249004800?2917509006 2 sti 1750 2088- +6I1954195C 0000249006800?6990019007 lod1f 2089- +6I1954195C 0000249007800?8690009000 rds 9000 9000 2090- +6I1954195C 0000249001800?00000384427 1 00 0003 8442 2091- +?000008000 0000 800? cor 2092- +?000008000 0000 800? 9010cod 1750 2093- +6I1954195C 0000249010800?6516041773 1750ral 1604 1773 2094- +6I1954195C 0000249033800?8300561751 1773rsb 56 1f 2095- +6I1954195C 0000249011800?2794561757 1 set 9056b 2096- +6I1954195C 0000249017800?2918271752 sti 1827 2097- +6I1954195C 0000249012800?4217551756 nzb3f 2098- +6I1954195C 0000249016800?0917971753 ldi 1797 2099- +6I1954195C 0000249013800?2790001772 set 9000 1772 2100- +6I1954195C 0000249032800?2918311754 1772sti 1831 2101- +6I1954195C 0000249014800?2018341758 stl 1834 2102- +6I1954195C 0000249018800?2790001755 set 9000 3f 2103- +6I1954195C 0000249015800?6917961759 3 lod 1796 2104- +6I1954195C 0000249019800?2418361760 std 1836 2105- +6I1954195C 0000249020800?7118181767 wr1 1818 2106- +6I1954195C 0000249027800?4217701771 nzb both1 2107- +6I1954195C 0000249030800?5200081751 axb 8 1b 2108- +6I1954195C 0000249056800?0080880000 1796 00 8088 0 2109- +6I1954195C 0000249031800?1517951761 both1alo 1795 2110- +6I1954195C 0000249021800?2016041950 stl 1604 1950 2111- +6I1954195C 0000249055800?0000000010 1795 00 0 10 2112- +?000008000 0000 800? blr 1751 1771 2113- +?000008000 0000 800? bla 127 143 2114- +?000008000 0000 800? blr 140 141 2115- +?000008000 0000 800? 9010cod 100 2116- +6I1954195C 0000249050800?6502930125 140 ral 293 125 2117- +6I1954195C 0000249035800?8300560131 125 rsb 56 1f 2118- +6I1954195C 0000249041800?2794560137 1 set 9056b 2119- +6I1954195C 0000249047800?2905770129 sti 577 2120- +6I1954195C 0000249039800?4201320133 nzb3f 2121- +6I1954195C 0000249043800?0901470127 ldi 147 2122- +6I1954195C 0000249037800?2790000124 set 9000 124 2123- +6I1954195C 0000249034800?2905810134 124 sti 581 2124- +6I1954195C 0000249044800?2005840138 stl 584 2125- +6I1954195C 0000249048800?2790000132 set 9000 3f 2126- +6I1954195C 0000249042800?6901460128 3 lod 146 2127- +6I1954195C 0000249038800?2405860139 std 586 2128- +6I1954195C 0000249049800?7105550130 wr1 555 2129- +6I1954195C 0000249040800?4201350136 nzb both2 2130- +6I1954195C 0000249045800?5200080131 axb 8 1b 2131- +6I1954195C 0000249046800?1501450142 both2alo 145 2132- +6I1954195C 0000249052800?2002930143 stl 293 2133- +6I1954195C 0000249053800?4703470325 bov 347 325 2134- +6I1954195C 0000249051800?2401490140 141 std 149 140 2135- +6I1954195C 0000249054800?8790008000 144 wds 9000 8000 2136- +6I1954195C 0000249057800?6919081906 147 lod 1908 1906 2137- +6I1954195C 0000249058800?8590001907 148 sds 9000 1907 2138- +6I1954195C 0000249059800?8790001954 149 wds 9000 1954 2139- +?000008000 0000 800? 3843cdd 2140- +?000008000 0000 800? 1 locafier 3844 cdd dsk loader 2141- +?000008000 0000 800? cor 9000 2142- +6I1954195C 0000249000800?6990019002 0 lod1f 2143- +6I1954195C 0000249002800?8590009003 sds 9000 2144- +6I1954195C 0000249003800?6903149004 lodinstr 2145- +6I1954195C 0000249004800?2490359009 std 9035 9009 2146- +6I1954195C 0000249009800?2916099005 9009sti 1609 2147- +6I1954195C 0000249005800?4790509006 bov 9050 3f 2148- +6I1954195C 0000249006800?6990019007 3 lod1f 2149- +6I1954195C 0000249007800?8690009000 rds 9000 9000 2150- +6I1954195C 0000249001800?00000384727 1 00 0003 8472 2151- +?000008000 0000 800? cor 9050 2152- +6I1954195C 0000249050800?6990519052 0 lod1f 2153- +6I1954195C 0000249052800?2790558001 set 9055 8001 2154- +6I1954195C 0000249051800?2917729006 1 sti 1772 3b 2155- +?000008000 0000 800? 9055cod 1772 2156- +6I1954195C 0000249056800?8590001772 1773sds 9000 1772 2157- +6I1954195C 0000249055800?8790001771 1772wds 9000 both1 2158- +?000008000 0000 800? 9057cod 124 2159- +6I1954195C 0000249058800?8590000124 125 sds 9000 124 2160- +6I1954195C 0000249057800?8790000136 124 wds 9000 both2 2161- +?000008000 0000 800? 9010drc 9000 2162- +6I1954195C 0000249010800?6080019001 0 rau 8001 2163- +6I1954195C 0000249011800?8117009002 rsa 1700 2164- +6I1954195C 0000249012800?1590039004 alo1f 2165- +6I1954195C 0000249014800?8200009005 rab 0 2166- +6I1954195C 0000249015800?2919651966 sti 1965 1966 2167- +?000008000 0000 800? 9015cod 1965 2168- +6I1954195C 0000249016800?1019691973 1966aup 1969 1973 2169- +6I1954195C 0000249023800?6980031980 1973lod 8003 1980 2170- +6I1954195C 0000249030800?8590005986 1980sds 9000 1986b 2171- +6I1954195C 0000249036800?2937008002 1986sti 1700a 8002 2172- +6I1954195C 0000249013800?8690001999 1 rds 9000 1999 2173- +6I1954195C 0000249049800?5200011966 1999axb 1 1966 2174- +6I1954195C 0000249037800?2937201974 1987sti 1720a 1974 2175- +6I1954195C 0000249024800?2937508002 1974sti 1750a 8002 2176- +6I1954195C 0000249038800?2937801975 1988sti 1780a 1975 2177- +6I1954195C 0000249025800?2938008002 1975sti 1800a 8002 2178- +6I1954195C 0000249039800?2938401972 1989sti 1840a 1972 2179- +6I1954195C 0000249022800?4119761982 1972bma 1976 1982 2180- +6I1954195C 0000249026800?2938508002 1976sti 1850a 8002 2181- +6I1954195C 0000249040800?2939001977 1990sti 1900a 1977 2182- +6I1954195C 0000249027800?2939508002 1977sti 1950a 8002 2183- +6I1954195C 0000249041800?2939601967 1991sti 1960a 1967 2184- +6I1954195C 0000249017800?5003001981 1967axa 300 1981 2185- +6I1954195C 0000249031800?8200001986 1981rab 0 1986 2186- +6I1954195C 0000249032800?6919851992 1982lod 1985 1992 2187- +6I1954195C 0000249042800?2919508001 1992sti 1950 8001 2188- +6I1954195C 0000249019800?0000000010 1969 00 0 10 2189- +?000008000 0000 800? cor 2190- +?000008000 0000 800? 3844cdd 2191- +?000008000 0000 800? 1 locafier 3845 cdd dsk fwalwa 1 2192- +?000008000 0000 800? cor 9000 2193- +6I1954195C 0000249000800?6990019002 0 lod1f 2194- +6I1954195C 0000249002800?8590009009 sds 9000 9009 2195- +6I1954195C 0000249009800?2917509003 9009sti 1750 2196- +6I1954195C 0000249003800?6903149004 lodinstr 2197- +6I1954195C 0000249004800?2417509005 std 1750 2198- +6I1954195C 0000249005800?4290069056 nzb2f 9056 2199- +6I1954195C 0000249056800?2917919006 9056sti 1791 2f 2200- +6I1954195C 0000249006800?6990019007 2 lod1f 2201- +6I1954195C 0000249007800?8690009000 rds 9000 9000 2202- +6I1954195C 0000249001800?00000384827 1 00 0003 8482 2203- +?000008000 0000 800? 9010drc 9000 2204- +6I1954195C 0000249010800?6080019001 0 rau 8001 2205- +6I1954195C 0000249011800?1090029003 aup1f 2206- +6I1954195C 0000249013800?6980039004 lod 8003 2207- +6I1954195C 0000249014800?8590009005 sds 9000 2208- +6I1954195C 0000249015800?6990099008 lod 9009 9008 2209- +6I1954195C 0000249018800?2790108001 9008set 9010 8001 2210- +6I1954195C 0000249019800?2988889007 9009sti 8888 9007 2211- +6I1954195C 0000249017800?6980039006 9007lod 8003 9006 2212- +6I1954195C 0000249016800?8690009000 9006rds 9000 9000 2213- +6I1954195C 0000249012800?0000000010 1 00 0 10 2214- +?000008000 0000 800? cor 2215- +?000008000 0000 800? 9009cod 1750 2216- +?000008000 0000 800? blr 0 1999 2217- +?000008000 0000 800? bla 1763 1789 2218- +6I1954195C 0000249021800?6516041792 1762ral 1604 1792 2219- +6I1954195C 0000249051800?8300561763 1792rsb 56 1f 2220- +6I1954195C 0000249022800?2794561769 1 set 9056b 2221- +6I1954195C 0000249028800?2918271779 sti 1827 2222- +6I1954195C 0000249038800?4217821783 nzb3f 2223- +6I1954195C 0000249042800?0817941764 lib 1794 2224- +6I1954195C 0000249023800?2790001770 set 9000 2225- +6I1954195C 0000249029800?2818311765 sib 1831 2226- +6I1954195C 0000249024800?2018341787 stl 1834 2227- +6I1954195C 0000249046800?2790001782 set 9000 3f 2228- +6I1954195C 0000249041800?6917851788 3 lod1f 2229- +6I1954195C 0000249047800?2418361789 std 1836 2230- +6I1954195C 0000249048800?7118181791 wr1 1818 1791 2231- +6I1954195C 0000249050800?4217661767 1791nzb 7f 2232- +6I1954195C 0000249025800?5200081763 axb 8 1b 2233- +6I1954195C 0000249044800?0080880000 1 00 8088 0 2234- +6I1954195C 0000249026800?4717711772 7 bov3f 2235- +6I1954195C 0000249031800?1517751780 alo1f 2236- +6I1954195C 0000249039800?2016041998 stl 1604 1998 2237- +6I1954195C 0000249030800?6917741777 3 lod2f 2238- +6I1954195C 0000249036800?8590001784 sds 9000 2239- +6I1954195C 0000249043800?8690009000 rds 9000 9000 2240- +6I1954195C 0000249052800?0000009003 1793nop 0 9003 2241- +6I1954195C 0000249034800?0000000010 1 00 0 10 2242- +6I1954195C 0000249033800?00000383727 2 00 0003 8372 2243- +6I1954195C 0000249020800?6917681773 1761lod1f 2244- +6I1954195C 0000249032800?2417961762 std 1796 1762 2245- +6I1954195C 0000249027800?8790008000 1 wds 9000 8000 2246- +6I1954195C 0000249053800?6919081906 1794lod 1908 1906 2247- +6I1954195C 0000249054800?8590001907 1795sds 9000 1907 2248- +6I1954195C 0000249055800?8790001954 1796wds 9000 1954 2249- +6I1954195C 0000249049800?00000384627 1790 00 0003 8462 2250- +?000008000 0000 800? 9056cod 1791 2251- +6I1954195C 0000249058800?0000009056 1793nop 0 9056 2252- +6I1954195C 0000249057800?8590001794 1792sds 9000 1794 2253- +6I1954195C 0000249059800?8790001767 1794wds 9000 7b 2254- +?000008000 0000 800? 3845cdd 2255- +?000008000 0000 800? 1 locafier 3846 cdd dsk fwalwa 2 2256- +?000008000 0000 800? cor 9000 2257- +6I1954195C 0000249000800?6990019002 0 lod1f 2258- +6I1954195C 0000249002800?8590009010 sds 9000 9010 2259- +6I1954195C 0000249010800?2901009003 9010sti 100 2260- +6I1954195C 0000249003800?6516999004 ral 1699 2261- +6I1954195C 0000249004800?1690059006 slo2f 2262- +6I1954195C 0000249006800?4590079056 nze3f 9056 2263- +6I1954195C 0000249005800?8802001656 2 rac 200 set90 2264- +6I1954195C 0000249056800?2901419007 9056sti 141 3f 2265- +6I1954195C 0000249007800?6990019008 3 lod1f 2266- +6I1954195C 0000249008800?8690009000 rds 9000 9000 2267- +6I1954195C 0000249001800?00000384927 1 00 0003 8492 2268- +?000008000 0000 800? 9011drc 9000 2269- +6I1954195C 0000249011800?6080019001 0 rau 8001 2270- +6I1954195C 0000249012800?1090029003 aup1f 2271- +6I1954195C 0000249014800?6980039004 lod 8003 2272- +6I1954195C 0000249015800?8590009005 sds 9000 2273- +6I1954195C 0000249016800?6990099008 lod 9009 9008 2274- +6I1954195C 0000249019800?2790108001 9008set 9010 8001 2275- +6I1954195C 0000249020800?2988889007 9009sti 8888 9007 2276- +6I1954195C 0000249018800?6980039006 9007lod 8003 9006 2277- +6I1954195C 0000249017800?8690009000 9006rds 9000 9000 2278- +6I1954195C 0000249013800?0000000010 1 00 0 10 2279- +?000008000 0000 800? cor 2280- +?000008000 0000 800? 9010cod 100 2281- +?000008000 0000 800? blr 0 1999 2282- +?000008000 0000 800? bla 113 138 2283- +6I1954195C 0000249022800?6502930142 112 ral 293 142 2284- +6I1954195C 0000249052800?8300560113 142 rsb 56 1f 2285- +6I1954195C 0000249023800?2794560119 1 set 9056b 2286- +6I1954195C 0000249029800?2905270129 sti 527 2287- +6I1954195C 0000249039800?4201320133 nzb3f 2288- +6I1954195C 0000249043800?0801390114 lib 139 2289- +6I1954195C 0000249024800?2790000120 set 9000 2290- +6I1954195C 0000249030800?2805310115 sib 531 2291- +6I1954195C 0000249025800?2005340137 stl 534 2292- +6I1954195C 0000249047800?2790000132 set 9000 3f 2293- +6I1954195C 0000249042800?6901350138 3 lod1f 2294- +6I1954195C 0000249048800?2405360116 std 536 2295- +6I1954195C 0000249026800?7105050123 wr1 505 2296- +6I1954195C 0000249033800?4201260127 nzb 7f 2297- +6I1954195C 0000249036800?5200080113 axb 8 1b 2298- +6I1954195C 0000249045800?0080880000 1 00 8088 0 2299- +6I1954195C 0000249037800?1501300136 7 alo1f 2300- +6I1954195C 0000249046800?2002930117 stl 293 2301- +6I1954195C 0000249027800?4703470349 bov 347 349 2302- +6I1954195C 0000249040800?0000000010 1 00 0 10 2303- +6I1954195C 0000249049800?6919081906 139 lod 1908 1906 2304- +6I1954195C 0000249050800?8590001907 140 sds 9000 1907 2305- +6I1954195C 0000249051800?8790001954 141 wds 9000 1954 2306- +6I1954195C 0000249021800?6901180121 111 lod1f 2307- +6I1954195C 0000249031800?2401410112 std 141 112 2308- +6I1954195C 0000249028800?8790008000 1 wds 9000 8000 2309- +?000008000 0000 800? 9056cod 141 2310- +6I1954195C 0000249057800?8590000144 142 sds 9000 144 2311- +6I1954195C 0000249059800?8790000127 144 wds 9000 7b 2312- +?000008000 0000 800? 3846cdd 2313- +?000008000 0000 800? 1 locafier 3847 control drumdump 2314- +?000008000 0000 800? blr 0 1999 2315- +?000008000 0000 800? bla 1951 1972 2316- +?000008000 0000 800? blr 1956 1960 2317- +?000008000 0000 800? cor 9000 2318- +6I1954195C 0000249000800?6990019002 0 lod1f 2319- +6I1954195C 0000249002800?8590009003 sds 9000 2320- +6I1954195C 0000249003800?6990049005 lod2f 2321- +6I1954195C 0000249005800?2790108001 set 9010 8001 2322- +6I1954195C 0000249004800?2919509006 2 sti 1950 2323- +6I1954195C 0000249006800?6990019007 lod1f 2324- +6I1954195C 0000249007800?8690009010 rds 9000 9010 2325- +6I1954195C 0000249001800?00000385027 1 00 0003 8502 2326- +?000008000 0000 800? cor 2327- +?000008000 0000 800? 9010cod 1950 2328- +6I1954195C 0000249059800?8109001955 1999rsa 900 2329- +6I1954195C 0000249015800?2790001961 set 9000 2330- +6I1954195C 0000249021800?0916101962 ldi 1610 1f 2331- +6I1954195C 0000249022800?8800011968 1 rac 1 2332- +6I1954195C 0000249028800?0929001750 ldi 900 a 1750 2333- +6I1954195C 0000249010800?5800017955 1950axc 1 1955c 2334- +6I1954195C 0000249016800?0929201972 1956ldi 920 a 2335- +6I1954195C 0000249032800?0929501750 ldi 950 a 1750 2336- +6I1954195C 0000249017800?4119631964 1957bma 1f 2337- +6I1954195C 0000249023800?0929801951 ldi 980 a 2338- +6I1954195C 0000249011800?0930001750 ldi 1000a 1750 2339- +6I1954195C 0000249018800?0930401952 1958ldi 1040a 2340- +6I1954195C 0000249012800?0930501750 ldi 1050a 1750 2341- +6I1954195C 0000249019800?0931001953 1959ldi 1100a 2342- +6I1954195C 0000249013800?0931501750 ldi 1150a 1750 2343- +6I1954195C 0000249020800?0931601965 1960ldi 1160a 2344- +6I1954195C 0000249025800?5003001962 axa 300 1b 2345- +6I1954195C 0000249024800?6919671970 1 lod1f 2346- +6I1954195C 0000249030800?8590001954 sds 9000 2347- +6I1954195C 0000249014800?0919739000 ldi 1973 9000 2348- +6I1954195C 0000249033800?2903231966 1973sti 323 2349- +6I1954195C 0000249026800?0917741969 ldi 1774 2350- +6I1954195C 0000249029800?2790271971 set 9027 2351- +6I1954195C 0000249031800?2901240324 sti 124 324 2352- +6I1954195C 0000249027800?00000385127 1 00 0003 8512 2353- +?000008000 0000 800? 9010cod 300 2354- +?000008000 0000 800? blr 0 1999 2355- +?000008000 0000 800? bla 326 346 2356- +?000008000 0000 800? blr 331 335 2357- +6I1954195C 0000249034800?8690009058 324 rds 9000 9058 2358- +6I1954195C 0000249058800?8109000326 348 rsa 900 2359- +6I1954195C 0000249036800?2790000335 set 9000 335 2360- +6I1954195C 0000249045800?0938800336 335 ldi 1880a 2361- +6I1954195C 0000249046800?8800010342 rac 1 2362- +6I1954195C 0000249052800?0939000140 ldi 1900a 140 2363- +6I1954195C 0000249035800?5800016330 325 axc 1 330 c 2364- +6I1954195C 0000249041800?0939400343 331 ldi 1940a 2365- +6I1954195C 0000249053800?0939500327 ldi 1950a 2366- +6I1954195C 0000249037800?4103300337 bma 9f 2367- +6I1954195C 0000249040800?5003000140 axa 300 140 2368- +6I1954195C 0000249042800?0937000328 332 ldi 1700a 2369- +6I1954195C 0000249038800?0937500140 ldi 1750a 140 2370- +6I1954195C 0000249043800?0937600329 333 ldi 1760a 2371- +6I1954195C 0000249039800?0938000140 ldi 1800a 140 2372- +6I1954195C 0000249044800?0938200338 334 ldi 1820a 2373- +6I1954195C 0000249048800?0938500140 ldi 1850a 140 2374- +6I1954195C 0000249047800?6501440339 9 ral 144 2375- +6I1954195C 0000249049800?3600010141 sct 1 141 2376- +6I1954195C 0000249057800?6903400344 347 lod1f 2377- +6I1954195C 0000249054800?8590000341 sds 9000 2378- +6I1954195C 0000249051800?8690009000 rds 9000 9000 2379- +6I1954195C 0000249050800?00000383727 1 00 0003 8372 2380- +?000008000 0000 800? 3847cdd 2381- +?000008000 0000 800? 1 locafier 3848 control fwalwa 1 2382- +?000008000 0000 800? blr 0 1999 2383- +?000008000 0000 800? bla 1954 1997 2384- +?000008000 0000 800? syn 1956 2385- +?000008000 0000 800? cor 9000 2386- +6I1954195C 0000249000800?6514939001 0 raldhold 2387- +6I1954195C 0000249001800?1490139002 div 9013 2388- +6I1954195C 0000249002800?2014919003 stldband 2389- +6I1954195C 0000249003800?2114929004 studrem 2390- +6I1954195C 0000249004800?1180019005 sup 8001 2391- +6I1954195C 0000249005800?1690119010 slo 9011 9010 2392- +6I1954195C 0000249010800?2919509006 9010sti 1950 2393- +6I1954195C 0000249006800?4690071956 bmi 1956 2394- +6I1954195C 0000249007800?6990129008 lod 9012 2395- +6I1954195C 0000249008800?8590009009 sds 9000 2396- +6I1954195C 0000249009800?8690009010 rds 9000 9010 2397- +?000008000 0000 800? cor 2398- +?000008000 0000 800? 9010cod 1950 2399- +6I1954195C 0000249059800?2790001954 1999set 9000 2400- +6I1954195C 0000249014800?0814911955 libdband 2401- +6I1954195C 0000249015800?8090001963 raa 9000 2402- +6I1954195C 0000249023800?8290011971 rab 9001 2403- +6I1954195C 0000249031800?8890021979 rac 9002 2f 2404- +6I1954195C 0000249039800?6514591964 2 raliband 2405- +6I1954195C 0000249024800?1680051972 slo 8005 2406- +6I1954195C 0000249032800?4519761977 nze3f 2407- +6I1954195C 0000249037800?3600011983 sct 1 2408- +6I1954195C 0000249043800?6914691973 lodirem 2409- +6I1954195C 0000249033800?5380011980 sxb 8001 2410- +6I1954195C 0000249040800?5200491976 axb 49 3f 2411- +6I1954195C 0000249036800?2794101982 3 set 9010b 2412- +6I1954195C 0000249042800?0960001957 ldi 0 c 2413- +6I1954195C 0000249017800?0817511965 lib 1751 2414- +6I1954195C 0000249025800?6580061974 ral 8006 2415- +6I1954195C 0000249034800?3500041985 slt 4 2416- +6I1954195C 0000249045800?1590081993 alo 9008 2417- +6I1954195C 0000249053800?2290081958 sda 9008 2418- +6I1954195C 0000249018800?6580071966 ral 8007 2419- +6I1954195C 0000249026800?3500041978 slt 4 2420- +6I1954195C 0000249038800?6990091984 lod 9009 2421- +6I1954195C 0000249044800?2290091990 sda 9009 2422- +6I1954195C 0000249050800?4719941762 bov 1762 2423- +6I1954195C 0000249054800?6917501959 lod 1750 2424- +6I1954195C 0000249019800?2490071967 std 9007 2425- +6I1954195C 0000249027800?6990051975 lod 9005 2426- +6I1954195C 0000249035800?2490001981 std 9000 2427- +6I1954195C 0000249041800?3600011761 sct 1 1761 2428- +6I1954195C 0000249058800?5100191960 1998sxa 19 2429- +6I1954195C 0000249020800?4019681969 nza 7f 2430- +6I1954195C 0000249028800?5000201986 axa 20 2431- +6I1954195C 0000249046800?6080051995 rau 8005 2432- +6I1954195C 0000249055800?1919531987 mpy 1953 2433- +6I1954195C 0000249047800?8880021996 rac 8002 2434- +6I1954195C 0000249056800?8200001979 rab 0 2b 2435- +6I1954195C 0000249029800?6519881997 7 ral7f 2436- +6I1954195C 0000249057800?2414931961 stddhold 2437- +6I1954195C 0000249021800?2114921962 studrem 2438- +6I1954195C 0000249022800?6919511970 lod 1951 2439- +6I1954195C 0000249030800?2414911956 stddband 1956 2440- +6I1954195C 0000249016800?6917901544 1956lod 1790 dump8 2441- +6I1954195C 0000249013800?0000000050 1953 00 0 50 2442- +6I1954195C 0000249011800?0000000020 1951 00 0 20 2443- +6I1954195C 0000249048800?0000001000 7 00 0 1000 2444- +6I1954195C 0000249012800?00000385027 1952 00 0003 8502 2445- +?000008000 0000 800? 3848cdd 2446- +?000008000 0000 800? 1 locafier 3849 control fwalwa 2 2447- +?000008000 0000 800? cor 9000 2448- +6I1954195C 0000249000800?6990019002 0 lod2f 2449- +6I1954195C 0000249002800?8590009010 sds 9000 9010 2450- +6I1954195C 0000249010800?2903009003 9010sti 300 2451- +6I1954195C 0000249003800?6917509004 lod 1750 2452- +6I1954195C 0000249004800?2406669005 std 666 2453- +6I1954195C 0000249005800?6990010301 lod2f 301 2454- +6I1954195C 0000249001800?00000385127 2 00 0003 8512 2455- +?000008000 0000 800? cor 2456- +?000008000 0000 800? 9010cod 300 2457- +?000008000 0000 800? blr 0 1999 2458- +?000008000 0000 800? bla 302 346 2459- +6I1954195C 0000249011800?0914590311 301 ldis0260 2460- +6I1954195C 0000249021800?2790010316 set 9001 2461- +6I1954195C 0000249026800?2906000302 sti 600 2462- +6I1954195C 0000249012800?8690009058 rds 9000 9058 2463- +6I1954195C 0000249058800?2790000303 348 set 9000 2464- +6I1954195C 0000249013800?0906320334 ldi 632 2465- +6I1954195C 0000249044800?8090000342 raa 9000 2466- +6I1954195C 0000249052800?8290010304 rab 9001 2467- +6I1954195C 0000249014800?8890020312 rac 9002 2f 2468- +6I1954195C 0000249059800?5000010305 349 axa 1 2469- +6I1954195C 0000249015800?6080050313 rau 8005 2470- +6I1954195C 0000249023800?1903170337 mpy1f 2471- +6I1954195C 0000249047800?8880020345 rac 8002 2472- +6I1954195C 0000249055800?8200000312 rab 0 2f 2473- +6I1954195C 0000249022800?6506000306 2 ral 600 2474- +6I1954195C 0000249016800?1680050314 slo 8005 2475- +6I1954195C 0000249024800?4503180319 nze3f 2476- +6I1954195C 0000249029800?3600010325 sct 1 2477- +6I1954195C 0000249035800?6906100315 lod 610 2478- +6I1954195C 0000249025800?5380010321 sxb 8001 2479- +6I1954195C 0000249031800?5200490318 axb 49 3f 2480- +6I1954195C 0000249028800?2794100324 3 set 9010b 2481- +6I1954195C 0000249034800?0960000307 ldi 0 c 2482- +6I1954195C 0000249017800?0801010320 lib 101 2483- +6I1954195C 0000249030800?6580060327 ral 8006 2484- +6I1954195C 0000249037800?3500040338 slt 4 2485- +6I1954195C 0000249048800?1590080346 alo 9008 2486- +6I1954195C 0000249056800?2290080308 sda 9008 2487- +6I1954195C 0000249018800?6580070322 ral 8007 2488- +6I1954195C 0000249032800?3500040333 slt 4 2489- +6I1954195C 0000249043800?6990090339 lod 9009 2490- +6I1954195C 0000249049800?2290090309 sda 9009 2491- +6I1954195C 0000249019800?4703230112 bov 112 2492- +6I1954195C 0000249033800?6906660326 lod 666 2493- +6I1954195C 0000249036800?2490070332 std 9007 2494- +6I1954195C 0000249042800?6990050340 lod 9005 2495- +6I1954195C 0000249050800?2490000310 std 9000 2496- +6I1954195C 0000249020800?3600010111 sct 1 111 2497- +6I1954195C 0000249057800?6903280331 347 lod2f 2498- +6I1954195C 0000249041800?8590000336 sds 9000 2499- +6I1954195C 0000249046800?8690009000 rds 9000 9000 2500- +6I1954195C 0000249038800?00000383727 2 00 0003 8372 2501- +6I1954195C 0000249027800?0000000050 1 00 0 50 2502- +?000008000 0000 800? 3849cdd 2503- +?000008000 0000 800? 1 locafier 3850 load up 0 to 999 2504- +?000008000 0000 800? blr 0 1999 2505- +?000008000 0000 800? bla 1101 1149 2506- +?000008000 0000 800? syn 1102 2507- +?000008000 0000 800? blr 1105 1106 2508- +?000008000 0000 800? syn 1146 2509- +6I1954195C 0000249010800?2911001102 9010sti 1100 1102 2510- +?000008000 0000 800? 9010cod 1100 2511- +6I1954195C 0000249012800?8109501108 1102rsa 950 2512- +6I1954195C 0000249018800?6511119000 ral 9000 2513- +6I1954195C 0000249021800?0100498000 hlt 49 8000 2514- +?000008000 0000 800? cor 9001 2515- +6I1954195C 0000249000800?8200499001 9000rab 49 1f 2516- +6I1954195C 0000249001800?2094109002 1 stl 9010b 2517- +6I1954195C 0000249002800?4290039004 nzb 2f 2518- +6I1954195C 0000249003800?1690059006 slo9f 2519- +6I1954195C 0000249006800?5300019001 sxb 1 1b 2520- +6I1954195C 0000249005800?0000010000 9 00 1 0 2521- +6I1954195C 0000249004800?2790101146 2 set 9010 1146 2522- +6I1954195C 0000249056800?2929509007 1146sti 950 a 2523- +6I1954195C 0000249007800?4011051106 nza 1105 1106 2524- +6I1954195C 0000249015800?5000509008 1105axa 50 2525- +6I1954195C 0000249008800?1590099000 alo 9000 2526- +6I1954195C 0000249009800?0000990000 00 99 0 2527- +?000008000 0000 800? cor 2528- +6I1954195C 0000249016800?6712481103 1106ramdiskr 2529- +6I1954195C 0000249013800?8690001109 rds 9000 2530- +6I1954195C 0000249019800?3500021115 slt 2 2531- +6I1954195C 0000249025800?8880031124 rac 8003 2532- +6I1954195C 0000249034800?1180011131 sup 8001 2533- +6I1954195C 0000249041800?3000021137 srt 2 3f 2534- +6I1954195C 0000249047800?1811401145 3 sml9f 2535- +6I1954195C 0000249055800?2011491104 stl5f 2536- +6I1954195C 0000249014800?5900601110 sxc 60 2537- +6I1954195C 0000249020800?8590001116 sds 9000 2f 2538- +6I1954195C 0000249026800?4811191120 2 nzc 8f 2539- +6I1954195C 0000249029800?6596611117 ral 9061c 2540- +6I1954195C 0000249027800?4611211122 bmi6f 2541- +6I1954195C 0000249032800?3000021129 srt 2 2542- +6I1954195C 0000249039800?1511321138 alo1f 2543- +6I1954195C 0000249048800?6996608002 lod 9060c 8002 2544- +6I1954195C 0000249042800?2400001107 1 std 0 7f 2545- +6I1954195C 0000249031800?8380021130 6 rsb 8002 2546- +6I1954195C 0000249040800?3000041141 srt 4 2547- +6I1954195C 0000249051800?8180021101 rsa 8002 2548- +6I1954195C 0000249011800?6996601113 lod 9060c6f 2549- +6I1954195C 0000249023800?2420001112 6 std 0 a 2550- +6I1954195C 0000249022800?5140001123 sxa 0 b 2551- +6I1954195C 0000249033800?4011261107 nza 7f 2552- +6I1954195C 0000249036800?5040011113 axa 1 b6b 2553- +6I1954195C 0000249017800?5800021116 7 axc 2 2b 2554- +6I1954195C 0000249030800?6511491114 8 ral5f 2555- +6I1954195C 0000249024800?4611181125 bmi1f 2556- +6I1954195C 0000249035800?8690001137 rds 9000 3b 2557- +6I1954195C 0000249028800?6912481127 1 loddiskr 2558- +6I1954195C 0000249037800?8590001999 sds 9000 1999 2559- +?000008000 0000 800? 5 und 2560- +6I1954195C 0000249050800?0000000010 9 00 0 10 2561- +?000008000 0000 800? 3850cdd 2562- +?000008000 0000 800? 1 locafier 3851 load 1000 - 1999 2563- +?000008000 0000 800? blr 0 1999 2564- +?000008000 0000 800? bla 901 947 2565- +?000008000 0000 800? syn 902 2566- +?000008000 0000 800? blr 905 906 2567- +?000008000 0000 800? syn 946 2568- +6I1954195C 0000249010800?2909000902 9010sti 900 902 2569- +?000008000 0000 800? 9010cod 900 2570- +6I1954195C 0000249012800?8109500908 902 rsa 950 2571- +6I1954195C 0000249018800?6912490903 lods0050 2572- +6I1954195C 0000249013800?2406590912 std 659 2573- +6I1954195C 0000249022800?6509159000 ral 9000 2574- +6I1954195C 0000249025800?0110498000 hlt 1049 8000 2575- +?000008000 0000 800? cor 9001 2576- +6I1954195C 0000249000800?8200499001 9000rab 49 1f 2577F- +6I1954195C 0000249001800?2094109002 1 stl 9010b 2578- +6I1954195C 0000249002800?4290039004 nzb 2f 2579- +6I1954195C 0000249003800?1690059006 slo9f 2580- +6I1954195C 0000249006800?5300019001 sxb 1 1b 2581- +6I1954195C 0000249005800?0000010000 9 00 1 0 2582- +6I1954195C 0000249004800?2790100946 2 set 9010 946 2583- +6I1954195C 0000249056800?2939509007 946 sti 1950a 2584- +6I1954195C 0000249007800?4009050906 nza 905 906 2585- +6I1954195C 0000249015800?5000509008 905 axa 50 2586- +6I1954195C 0000249008800?1590099000 alo 9000 2587- +6I1954195C 0000249009800?0000990000 00 99 0 2588- +?000008000 0000 800? cor 2589- +6I1954195C 0000249016800?6706590913 906 ram 659 2590- +6I1954195C 0000249023800?8690000918 rds 9000 2591- +6I1954195C 0000249028800?3500020925 slt 2 2592- +6I1954195C 0000249035800?8880030934 rac 8003 2593- +6I1954195C 0000249044800?1180010941 sup 8001 2594- +6I1954195C 0000249051800?3000020947 srt 2 3f 2595- +6I1954195C 0000249057800?1809010907 3 sml9f 2596- +6I1954195C 0000249017800?2009110914 stl5f 2597- +6I1954195C 0000249024800?5900600920 sxc 60 2598- +6I1954195C 0000249030800?8590000926 sds 9000 2f 2599- +6I1954195C 0000249036800?4809290930 2 nzc 8f 2600- +6I1954195C 0000249039800?6596610916 ral 9061c 2601- +6I1954195C 0000249026800?4609190921 bmi6f 2602- +6I1954195C 0000249031800?3000020927 srt 2 2603- +6I1954195C 0000249037800?1509310935 alo1f 2604- +6I1954195C 0000249045800?6996608002 lod 9060c 8002 2605- +6I1954195C 0000249041800?2400000904 1 std 0 7f 2606- +6I1954195C 0000249029800?8380020928 6 rsb 8002 2607- +6I1954195C 0000249038800?3000040939 srt 4 2608- +6I1954195C 0000249049800?8180020909 rsa 8002 2609- +6I1954195C 0000249019800?6996600917 lod 9060c6f 2610- +6I1954195C 0000249027800?2440000910 6 std 0 b 2611- +6I1954195C 0000249020800?5320010922 sxb 1 a 2612- +6I1954195C 0000249032800?4209320904 nzb 7f 2613- +6I1954195C 0000249042800?5220000917 axb 0 a6b 2614- +6I1954195C 0000249014800?5800020926 7 axc 2 2b 2615- +6I1954195C 0000249040800?6509110923 8 ral5f 2616- +6I1954195C 0000249033800?1609330937 slo4f 2617- +6I1954195C 0000249047800?4609400942 bmi1f 2618- +6I1954195C 0000249052800?6909110924 lod5f 2619- +6I1954195C 0000249034800?8690000936 rds 9000 2620- +6I1954195C 0000249046800?1509330947 alo4f 3b 2621- +6I1954195C 0000249050800?6906590938 1 lod 659 2622- +6I1954195C 0000249048800?8590000348 sds 9000 348 2623- +6I1954195C 0000249011800?0000000010 9 00 0 10 2624- +6I1954195C 0000249043800?00000005017 4 00 0 501 2625- +6I1954195C 0000249058800?6916049059 9058lod 1604 9059 2626- +6I1954195C 0000249059800?2402939010 9059std 293 9010 2627- +?000008000 0000 800? 5 und 2628- +?000008000 0000 800? 3851cdd 2629- +?000008000 0000 800? 1 locafier 3852 dek first 2630- +?000008000 0000 800? cor 9000 2631- +6I1954195C 0000249000800?6990289001 0 lod 9028 2632- +6I1954195C 0000249001800?8590009010 sds 9000 9010 2633- +6I1954195C 0000249010800?2919509002 9010sti 1950 2634- +6I1954195C 0000249002800?6909999003 lodreada 2635- +6I1954195C 0000249003800?2405269004 stdssout 2636- +6I1954195C 0000249004800?6500479008 ral 47 2637- +6I1954195C 0000249008800?8300019005 rsb 1 2640- +6I1954195C 0000249005800?4590069007 nze 2f 2638- +6I1954195C 0000249006800?8816510069 rac 1651 mastr 2639- +6I1954195C 0000249007800?6590098001 2 ral 8001 2641- +6I1954195C 0000249009800?8100011951 rsa 1 1951 2642- +?000008000 0000 800? cor 9014 2643- +?000008000 0000 800? blr 9020 9029 2644- +6I1954195C 0000249011800?1415111952 9011divv0007 1952 2645- +6I1954195C 0000249012800?2790131953 9012set 9013 1953 2646- +6I1954195C 0000249013800?0919539014 9013ldi 1953 2647- +6I1954195C 0000249014800?5000019015 axa 1 2648- +6I1954195C 0000249015800?4019949016 nzahlt44 2649- +6I1954195C 0000249016800?6080029017 rau 8002 2650- +6I1954195C 0000249017800?1915119018 mpyv0007 2651- +6I1954195C 0000249018800?8000069019 raa 6 2652- +6I1954195C 0000249019800?2190079030 stu 9007 2653- +6I1954195C 0000249030800?2390029031 sia 9002 2654- +6I1954195C 0000249031800?2490039032 std 9003 2655- +6I1954195C 0000249032800?2490059033 std 9005 2656- +6I1954195C 0000249033800?3500049034 slt 4 2657- +6I1954195C 0000249034800?2290049035 sda 9004 2658- +6I1954195C 0000249035800?2490019036 std 9001 2659- +6I1954195C 0000249036800?6080019037 rau 8001 2660- +6I1954195C 0000249037800?2390069038 sia 9006 2f 2661- +6I1954195C 0000249038800?6592219039 2 ral 9021a 2662- +6I1954195C 0000249039800?1590029040 alo 9002 2663- +6I1954195C 0000249040800?2092219041 stl 9021a 2664- +6I1954195C 0000249041800?4090429043 nza 2f 2665- +6I1954195C 0000249042800?5100019038 sxa 1 2b 2666- +6I1954195C 0000249043800?8000029044 2 raa 2 2f 2667- +6I1954195C 0000249044800?6592259045 2 ral 9025a 2668- +6I1954195C 0000249045800?1590069046 alo 9006 2669- +6I1954195C 0000249046800?2092259047 stl 9025a 2670- +6I1954195C 0000249047800?4090489049 nza 2f 2671- +6I1954195C 0000249048800?4190509051 bma3f 2672- +6I1954195C 0000249051800?5100019044 sxa 1 2b 2673- +6I1954195C 0000249049800?8100029044 2 rsa 2 2b 2674- +6I1954195C 0000249050800?7190209056 3 wr1 9020 9056 2675- +6I1954195C 0000249056800?2816751678 9056sib 1675 1678 2676- +6I1954195C 0000249059800?2816509053 9059sib 1650 9053 2677- +6I1954195C 0000249053800?6990281547 9053lod 9028 dump9 2678- +6I1954195C 0000249058800?8800009049 9058rac 0 9049 2679- +6I1954195C 0000249028800?00000385327 9028 00 0003 8532 2680- +6I1954195C 0000249020800?7090429898 9020rd1 9042 9898 2681- +6I1954195C 0000249021800?5100010023 9021sxa 1 23 2682- +6I1954195C 0000249022800?3500020014 9022slt 2 14 2683- +6I1954195C 0000249023800?1500160022 9023alo 16 22 2684- +6I1954195C 0000249024800?5800250017 9024axc 25 17 2685- +6I1954195C 0000249025800?2200120015 9025sda 12 15 2686- +6I1954195C 0000249026800?6920020012 9026lod 2 a 12 2687- +6I1954195C 0000249027800?6700010013 9027ram 1 13 2688- +6I1954195C 0000249029800?0080800008 9029 00 8080 8 2689- +6I1954195C 0000249054800?0163000300 9054hlt 300 c 300 2690- +6I1954195C 0000249055800?0163000300 9055hlt 300 c 300 2691- +6I1954195C 0000249057800?0163000300 9057hlt 300 c 300 2692- +?000008000 0000 800? cor 2693- +?000008000 0000 800? 3852cdd 2694- +?000008000 0000 800? 1 locafier 3853 dek second 2695- +?000008000 0000 800? blr 0 1999 2696- +?000008000 0000 800? bla 1975 1988 2697- +?000008000 0000 800? cor 9000 2698- +?000008000 0000 800? syn 9030 2699- +6I1954195C 0000249000800?6990589001 0 lod 9058 2700- +6I1954195C 0000249001800?8590009002 sds 9000 2701- +6I1954195C 0000249002800?8000069003 raa 6 1f 2702- +6I1954195C 0000249003800?6592519004 1 ral 9051a 2703- +6I1954195C 0000249004800?1536519005 alo 1651a 2704- +6I1954195C 0000249005800?2036789006 stl 1678a 2705- +6I1954195C 0000249006800?4090079008 nza 1f 2706- +6I1954195C 0000249007800?5100019003 sxa 1 1b 2707- +6I1954195C 0000249008800?6990099030 1 lod6f 9030 2708- +6I1954195C 0000249030800?2919709049 9030sti 1970 9049 2709- +6I1954195C 0000249049800?2416869050 9049std 1686 9050 2710- +6I1954195C 0000249050800?6903149010 9050lodinstr 2711- +6I1954195C 0000249010800?2416579011 std 1657 2712- +6I1954195C 0000249011800?6590129013 ral4f 2713- +6I1954195C 0000249013800?1516569014 alo 1656 2714- +6I1954195C 0000249014800?2016549015 stl 1654 2715- +6I1954195C 0000249015800?6590169017 ral3f 2716- +6I1954195C 0000249017800?1516519018 alo 1651 2717- +6I1954195C 0000249018800?2016569019 stl 1656 2718- +6I1954195C 0000249019800?6506069020 ralcoron 2719- +6I1954195C 0000249020800?1606859021 slocorsw 2720- +6I1954195C 0000249021800?2016589022 stl 1658 2721- +6I1954195C 0000249022800?6506629023 ralramon 2722- +6I1954195C 0000249023800?1607739024 sloramsw 2723- +6I1954195C 0000249024800?4590259026 nze9f 2724- +6I1954195C 0000249026800?6590589027 ral 9058 2725- +6I1954195C 0000249027800?2790001975 set 9000 2f d 2726- +6I1954195C 0000249025800?8200069028 9 rab 6 2727- +6I1954195C 0000249028800?6990291544 lod dump8 2728- +6I1954195C 0000249029800?00000385527 00 0003 8552 2729- +6I1954195C 0000249012800?0000170001 4 00 17 1 2730- +6I1954195C 0000249016800?4800050004 3 nzc 5 4 2731- +6I1954195C 0000249009800?0080800008 6 00 8080 8 2732- +?000008000 0000 800? cor 2733- +?000008000 0000 800? 9010cod 1950 2734- +6I1954195C 0000249035800?8802001973 2 rac 200 1973 2735- +6I1954195C 0000249033800?0977001976 1973ldi 1700c1f 2736- +6I1954195C 0000249034800?0960001976 1974ldi 0 c1f 2737- +6I1954195C 0000249036800?8790001981 1 wds 9000 2738- +6I1954195C 0000249041800?4819855972 nzc 1972b 2739- +6I1954195C 0000249045800?5900501977 sxc 50 2f 2740- +6I1954195C 0000249037800?1519801986 2 alo1f 2741- +6I1954195C 0000249046800?6980021978 lod 8002 2742- +6I1954195C 0000249038800?8590005974 sds 9000 1974b 2743- +6I1954195C 0000249040800?0000000010 1 00 0 10 2744- +6I1954195C 0000249031800?8200001979 1971rab 0 2745- +6I1954195C 0000249039800?8816001977 rac 1600 2b 2746- +6I1954195C 0000249032800?6919821987 1972lod1f 2747- +6I1954195C 0000249047800?8590001983 sds 9000 2748- +6I1954195C 0000249043800?7116661984 wr1 1666 2749- +6I1954195C 0000249044800?8690009010 rds 9000 9010 2750- +6I1954195C 0000249042800?00000385027 1 00 0003 8502 2751- +6I1954195C 0000249058800?00000880027 9058 00 0008 8002 2752- +6I1954195C 0000249059800?6919881544 1999lod dump8 2753- +6I1954195C 0000249048800?00000385427 00 0003 8542 2754- +6I1954195C 0000249051800?2900120017 9051sti 12 17 2755- +6I1954195C 0000249052800?8080020020 9052raa 8002 20 2756- +6I1954195C 0000249053800?5980030021 9053sxc 8003 21 2757- +6I1954195C 0000249054800?4000180019 9054nza 18 19 2758- +6I1954195C 0000249055800?2420000015 9055std 0 a 15 2759- +6I1954195C 0000249056800?7000249898 9056rd1 24 9898 2760- +6I1954195C 0000249057800?0919529043 9057ldi 1952 9043 2761- +?000008000 0000 800? 3853cdd 2762- +?000008000 0000 800? 1 locafier 3854 dek third 2763- +?000008000 0000 800? cor 9000 2764- +6I1954195C 0000249000800?6990589001 0 lod 9058 2765- +6I1954195C 0000249001800?8590009002 sds 9000 2766- +6I1954195C 0000249002800?8800009003 rac 0 2767- +6I1954195C 0000249003800?8109809004 rsa 980 2768- +6I1954195C 0000249004800?8200069011 rab 6 9011 2769- +6I1954195C 0000249058800?00000385127 9058 00 0003 8512 2770- +?000008000 0000 800? cor 9011 2771- +6I1954195C 0000249011800?6580059012 0 ral 8005 2772- +6I1954195C 0000249012800?3500049037 slt 4 9037 2773- +6I1954195C 0000249037800?1629809013 9037slo 980 a3f 2774- +6I1954195C 0000249013800?1590359014 3 alo 9035 2775- +6I1954195C 0000249014800?4590369015 nze 9036 2f 2776- +6I1954195C 0000249015800?4190169034 2 bma 9034 2777- +6I1954195C 0000249016800?5000019011 axa 1 0b 2778- +6I1954195C 0000249035800?0109808000 9035hlt 980 8000 2779- +6I1954195C 0000249036800?1529809017 9036alo 980 a4f 2780- +6I1954195C 0000249017800?1580069018 4 alo 8006 2781- +6I1954195C 0000249018800?1690199020 slo1f 2782- +6I1954195C 0000249020800?2090009021 stl 9000 2783- +6I1954195C 0000249021800?5040009038 axa 0 b 9038 2784- +6I1954195C 0000249019800?0100007999 1 hlt 0 7999 2785- +6I1954195C 0000249038800?6929809022 9038lod 980 a5f 2786- +6I1954195C 0000249022800?2494019023 5 std 9001b 2787- +6I1954195C 0000249023800?4290249025 nzb 1f 2788- +6I1954195C 0000249024800?5300019026 sxb 1 2789- +6I1954195C 0000249026800?5100019038 sxa 1 9038 2790- +6I1954195C 0000249025800?7190009027 1 wr1 9000 2791- +6I1954195C 0000249027800?5800019028 axc 1 2792- +6I1954195C 0000249028800?5000069029 axa 6 6f 2793- +6I1954195C 0000249029800?8200069015 6 rab 6 2b 2794- +6I1954195C 0000249009800?0080800008 9009 00 8080 8 2795- +6I1954195C 0000249034800?5110199051 9034sxa 1019 9051 2796- +6I1954195C 0000249051800?6980059059 9051lod 8005 9059 2797- +6I1954195C 0000249059800?2490519057 9059std 9051 9057 2798- +6I1954195C 0000249057800?6980079010 9057lod 8007 9010 2799- +6I1954195C 0000249010800?2490109008 9010std 9010 9008 2800- +6I1954195C 0000249008800?2903009052 9008sti 300 9052 2801- +6I1954195C 0000249052800?6990589054 9052lod 9058 9054 2802- +6I1954195C 0000249054800?0916549053 9054ldi 1654 9053 2803- +6I1954195C 0000249053800?2905769050 9053sti 576 9050 2804- +6I1954195C 0000249050800?8690009010 9050rds 9000 9010 2805- +6I1954195C 0000249056800?6903410347 9056lod 341 347 2806- +6I1954195C 0000249055800?8590000342 9055sds 9000 342 2807- +6I1954195C 0000249049800?00000385527 9049 00 0003 8552 2808- +6I1954195C 0000249033800?0803309029 9033lib 330 6b 2809- +6I1954195C 0000249042800?1639999013 9042slo 1999a3b 2810- +6I1954195C 0000249040800?0119998000 9040hlt 1999 8000 2811- +6I1954195C 0000249041800?5000059044 9041axa 5 9044 2812- +6I1954195C 0000249039800?0905779032 9039ldi 577 9032 2813- +6I1954195C 0000249043800?6939999022 9043lod 1999a5b 2814- +6I1954195C 0000249044800?4190469045 9044bma 9046 9045 2815- +6I1954195C 0000249045800?5320019046 9045sxb 1 a 9046 2816- +6I1954195C 0000249046800?5100059047 9046sxa 5 9047 2817- +6I1954195C 0000249047800?1539999017 9047alo 1999a4b 2818- +6I1954195C 0000249032800?2916529030 9032sti 1652 9030 2819- +6I1954195C 0000249030800?8200060352 9030rab 6 352 2820- +?000008000 0000 800? cor 2821- +?000008000 0000 800? 3854cdd 2822- +?000008000 0000 800? 1 locafier 3855 dek last 2823- +?000008000 0000 800? cor 9000 2824- +6I1954195C 0000249000800?6990409001 0 lod 9040 2825- +6I1954195C 0000249001800?8590009002 sds 9000 2826- +6I1954195C 0000249002800?7116669059 wr1 1666 9059 2827- +6I1954195C 0000249059800?3600019003 9059sct 1 2828- +6I1954195C 0000249003800?8800009009 rac 0 9009 2829- +6I1954195C 0000249009800?2903500352 9009sti 350 352 2830- +6I1954195C 0000249010800?2903519008 9010sti 351 9008 2831- +6I1954195C 0000249008800?0903009004 9008ldi 300 2832- +6I1954195C 0000249004800?8090519005 raa 9051 2833- +6I1954195C 0000249005800?8890109006 rac 9010 2834- +6I1954195C 0000249006800?6903819007 lod 381 2835- +6I1954195C 0000249007800?8590009033 sds 9000 9033 2836- +6I1954195C 0000249040800?00000883827 9040 00 0008 8382 2837- +?000008000 0000 800? cor 2838- +?000008000 0000 800? 9010cod 351 2839- +?000008000 0000 800? blr 0 1999 2840- +?000008000 0000 800? bla 354 399 2841- +?000008000 0000 800? syn 358 2842- +?000008000 0000 800? syn 381 2843- +6I1954195C 0000249011800?6516580363 352 ral 1658 2844- +6I1954195C 0000249022800?4503660367 nze9f 2845- +6I1954195C 0000249026800?6903810384 lod 381 2846- +6I1954195C 0000249043800?8690000389 rds 9000 2847- +6I1954195C 0000249048800?8100590395 rsa 59 0f 2848- +6I1954195C 0000249054800?6580050354 0 ral 8005 2849- +6I1954195C 0000249013800?3500040365 slt 4 2850- +6I1954195C 0000249024800?1692590373 slo 9059a 2851- +6I1954195C 0000249032800?1503760382 alo1f 2852- +6I1954195C 0000249041800?4503860387 nze2f 3f 2853- +6I1954195C 0000249046800?4103900366 3 bma 9f 2854- +6I1954195C 0000249049800?5000010395 axa 1 0b 2855- +6I1954195C 0000249035800?0190598000 1 hlt 9059 8000 2856- +6I1954195C 0000249045800?5000050392 2 axa 5 2857- +6I1954195C 0000249051800?4103960397 bma1f 2858- +6I1954195C 0000249056800?5320010396 sxb 1 a1f 2859- +6I1954195C 0000249055800?1592540355 1 alo 9054a 2860- +6I1954195C 0000249014800?1580060364 alo 8006 2861- +6I1954195C 0000249023800?1603680374 slo1f 2862- +6I1954195C 0000249033800?2019770380 stl 1977 2863- +6I1954195C 0000249039800?2919780383 sti 1978 2864- +6I1954195C 0000249042800?6903580361 lod 358 2865- +6I1954195C 0000249020800?2419860391 std 1986 2866- +6I1954195C 0000249050800?7119790398 wr1 1979 2867- +6I1954195C 0000249057800?5800010356 axc 1 2868- +6I1954195C 0000249015800?5000010387 axa 1 3b 2869- +6I1954195C 0000249027800?0118007999 1 hlt 1800 7999 2870- +6I1954195C 0000249025800?2790000371 9 set 9000 2871- +6I1954195C 0000249030800?0916540357 ldi 1654 2872- +6I1954195C 0000249016800?6580070369 ral 8007 2873- +6I1954195C 0000249028800?3500040379 slt 4 2874- +6I1954195C 0000249038800?1503850393 alo1f 2875- +6I1954195C 0000249052800?1590010359 alo 9001 2876- +6I1954195C 0000249018800?2090010370 stl 9001 2877- +6I1954195C 0000249029800?6903750378 lod5f 2878- +6I1954195C 0000249037800?8590000388 sds 9000 2879- +6I1954195C 0000249047800?2790040394 set 9004 2880- +6I1954195C 0000249053800?0803530372 lib 353 2881- +6I1954195C 0000249031800?7190000399 wr1 9000 2882- +6I1954195C 0000249058800?8690000360 rds 9000 2883- +6I1954195C 0000249019800?4703779000 bov 9000 2884- +6I1954195C 0000249036800?6503629059 ral 9059 2885- +6I1954195C 0000249021800?00000380627 00 0003 8062 2886- +6I1954195C 0000249044800?5900010003 1 sxc 1 3 2887- +6I1954195C 0000249034800?00000383727 5 00 0003 8372 2888- +6I1954195C 0000249012800?0198989898 353 hlt 9898 9898 2889- +6I1954195C 0000249017800?0080800008 358 00 8080 8 2890- +?000008000 0000 800? 3855cdd 2891- +?000008000 0000 800? 1 locafier 3856 fil setup 2892- +?000008000 0000 800? blr 0 1999 2893- +?000008000 0000 800? bla 1957 1999 2894- +?000008000 0000 800? blr 1994 1995 2895- +?000008000 0000 800? synhlt88 2896- +?000008000 0000 800? 9010cod 1950 2897- +?000008000 0000 800? cor 9000 2898- +6I1954195C 0000249000800?8300019001 0 rsb 1 2899- +6I1954195C 0000249001800?6504779010 ralfivtg 9010 2900- +6I1954195C 0000249010800?2919509002 9010sti 1950 2901- +6I1954195C 0000249002800?6909999003 lodreada 2902- +6I1954195C 0000249003800?2405269004 stdssout 2903- +6I1954195C 0000249004800?4619829005 bmi1f d 2904- +6I1954195C 0000249005800?6919869006 lod0f d 2905- +6I1954195C 0000249006800?2419929007 std8f d 2906- +6I1954195C 0000249007800?6500479008 ral 47 2907- +6I1954195C 0000249008800?4519569009 nze 1956 2f 2908- +6I1954195C 0000249016800?8816510069 1956rac 1651 mastr 2909- +6I1954195C 0000249009800?6519991951 2 ral d 1951 2910- +6I1954195C 0000249059800?0000001950 00 0 1950 2914- +?000008000 0000 800? cor 2911- +6I1954195C 0000249011800?6415111971 1951dvrv0007 2912- +6I1954195C 0000249031800?2000471982 stl 47 1f 2913- +6I1954195C 0000249042800?6500481957 1 ral 48 2914- +6I1954195C 0000249017800?8816530069 rac 1653 mastr 2915- +6I1954195C 0000249013800?2007801983 1953stlfwaxx 2916- +6I1954195C 0000249043800?4119871995 bma hlt55 2917- +6I1954195C 0000249047800?6500491958 ral 49 2918- +6I1954195C 0000249018800?8816520069 rac 1652 mastr 2919- +6I1954195C 0000249012800?2002551959 1952stllhold 2920- +6I1954195C 0000249019800?4139561995 bma 1956ahlt55 2921- +6I1954195C 0000249014800?6506851989 1954ralcorsw 2922- +6I1954195C 0000249049800?1606061961 slocoron 2923- +6I1954195C 0000249021800?4519921965 nze8f 2924- +6I1954195C 0000249025800?6915981960 loddiskc 2925- +6I1954195C 0000249020800?8590001966 sds 9000 2926- +6I1954195C 0000249026800?8690001972 rds 9000 2927- +6I1954195C 0000249032800?6607801985 rslfwaxx 2928- +6I1954195C 0000249045800?8880011991 rac 8001 2929- +6I1954195C 0000249051800?1502551962 alolhold 2930- +6I1954195C 0000249022800?8280021973 rab 8002 2931- +6I1954195C 0000249033800?6903141967 lodinstr 1f 2932- +6I1954195C 0000249027800?4319701974 1 bmb7f 2933- +6I1954195C 0000249034800?2460001963 std 0 c 2934- +6I1954195C 0000249023800?5300011969 sxb 1 2935- +6I1954195C 0000249029800?5800011967 axc 1 1b 2936- +6I1954195C 0000249030800?6915981964 7 loddiskc 2937- +6I1954195C 0000249024800?8790001992 wds 9000 8f 2938- +6I1954195C 0000249015800?6507731977 1955ralramsw 2939- +6I1954195C 0000249037800?1606621968 sloramon 2940- +6I1954195C 0000249028800?4519921975 nze8f 2941- +6I1954195C 0000249035800?6919781544 lod dump8 2942- +6I1954195C 0000249038800?00000385727 00 0003 8572 2943- +6I1954195C 0000249052800?6514491976 8 ralonesw 2944- +6I1954195C 0000249036800?9219791981 bd2 9f 2945- +6I1954195C 0000249039800?6919841988 lod1f 2946- +6I1954195C 0000249048800?8590001993 sds 9000 2947- +6I1954195C 0000249053800?8690001998 rds 9000 2948- +6I1954195C 0000249058800?2790101980 set 9010 2949- +6I1954195C 0000249040800?2919500999 sti 1950 reada 2950- +6I1954195C 0000249044800?00000383327 1 00 0003 8332 2951- +6I1954195C 0000249054800?0163000300 hlt44hlt 300 c 300 2952- +6I1954195C 0000249055800?0163000300 hlt55hlt 300 c 300 2953- +6I1954195C 0000249057800?0163000300 hlt88hlt 300 c 300 2954- +6I1954195C 0000249041800?6919901544 9 lod dump8 2955- +6I1954195C 0000249050800?00000385927 00 0003 8592 2956- +6I1954195C 0000249046800?6919961544 0 lod dump8 2957- +6I1954195C 0000249056800?00000385827 00 0003 8582 2958- +?000008000 0000 800? 3856cdd 2959- +?000008000 0000 800? 1 locafier 3857 fil if don used 2960- +?000008000 0000 800? blr 0 1999 2961- +?000008000 0000 800? bla 1980 1994 2962- +?000008000 0000 800? syn 1991 2963- +?000008000 0000 800? cor 9000 2964- +?000008000 0000 800? syn 9010 2965- +?000008000 0000 800? syn 9030 2966- +6I1954195C 0000249000800?6504779001 0 ralfivtg 2967- +6I1954195C 0000249001800?4690029003 bmi 8f 2968- +6I1954195C 0000249002800?6514499004 ralonesw 2969- +6I1954195C 0000249004800?9290059006 bd27f 2970- +6I1954195C 0000249006800?6990559007 lod 9055 1f 2971- +6I1954195C 0000249003800?6990589007 8 lod 9058 1f 2972- +6I1954195C 0000249007800?2490599008 1 std 9059 1f 2973- +6I1954195C 0000249005800?6990599008 7 lod 9059 1f 2974- +6I1954195C 0000249055800?00000385927 9055 00 0003 8592 2975- +6I1954195C 0000249058800?00000385827 9058 00 0003 8582 2976- +6I1954195C 0000249059800?00000383327- 9059 00 0003 8332 2977- +6I1954195C 0000249008800?8590009009 1 sds 9000 2978- +6I1954195C 0000249009800?6990119012 lod6f 2979- +6I1954195C 0000249012800?2406849013 stdcorof 2980- +6I1954195C 0000249013800?6502559014 rallhold 2981- +6I1954195C 0000249014800?1607809010 slofwaxx 9010 2982- +6I1954195C 0000249010800?2919509015 9010sti 1950 2983- +6I1954195C 0000249015800?4619969016 bmi 1996 2984- +6I1954195C 0000249016800?6580019017 ral 8001 2985- +6I1954195C 0000249017800?1690189019 slo5f 2986- +6I1954195C 0000249019800?4690209021 bmi 2f 2987- +6I1954195C 0000249020800?6502559022 rallhold 2988- +6I1954195C 0000249022800?1690189023 slo5f 2989- +6I1954195C 0000249023800?4690249025 bmi1f 2990- +6I1954195C 0000249025800?8800019026 rac 1 2991- +6I1954195C 0000249026800?6690279028 rsl4f 3f 2992- +6I1954195C 0000249024800?8800009028 1 rac 0 3f 2993- +6I1954195C 0000249028800?1590189029 3 alo5f 2994- +6I1954195C 0000249029800?3500069031 slt 6 2995- +6I1954195C 0000249031800?1007809032 aupfwaxx 2996- +6I1954195C 0000249032800?3500049033 slt 4 2997- +6I1954195C 0000249033800?6180039034 rsu 8003 2998- +6I1954195C 0000249034800?2119610834 stulocat ramn0 2999- +6I1954195C 0000249021800?6607809035 2 rslfwaxx 3000- +6I1954195C 0000249035800?1590279036 alo4f 3001- +6I1954195C 0000249036800?3500041997 slt 4 1997 3002- +6I1954195C 0000249027800?0000000001 4 00 0 1 3003- +6I1954195C 0000249018800?0000001000 5 00 0 1000 3004- +?000008000 0000 800? cor 3005- +?000008000 0000 800? 9010cod 1950 3006- +6I1954195C 0000249011800?6619917996 6 rsl 1991 1996c 3007- +6I1954195C 0000249051800?0009990000 1991 00 999 0 3008- +6I1954195C 0000249057800?1602551980 1997slolhold 3009- +6I1954195C 0000249040800?2019611970 stllocat 1970 3010- +6I1954195C 0000249030800?8800000835 1970rac 0 ramn1 3011- +6I1954195C 0000249056800?6519991981 1996ral 1999 3012- +6I1954195C 0000249041800?8690001986 rds 9000 3013- +6I1954195C 0000249046800?6919891992 lod3f 3014- +6I1954195C 0000249052800?2406841987 stdcorof 3015- +6I1954195C 0000249047800?4619909000 bmi 9000 3016- +6I1954195C 0000249050800?2790101982 set 9010 3017- +6I1954195C 0000249042800?2919500999 sti 1950 reada 3018- +6I1954195C 0000249049800?8802090890 3 racfinis prone 3019- +?000008000 0000 800? 3857cdd 3020- +?000008000 0000 800? 1 locafier 3858 fil if fiv used 3021- +?000008000 0000 800? cor 9000 3022- +6I1954195C 0000249000800?6514499001 0 ralonesw 3023- +6I1954195C 0000249001800?9290029003 bd2 1f 3024- +6I1954195C 0000249002800?6990509004 lod 9050 3025- +6I1954195C 0000249004800?2490459005 std 9045 2f 3026- +6I1954195C 0000249003800?6990459005 1 lod 9045 2f 3027- +6I1954195C 0000249005800?8590009006 2 sds 9000 3028- +6I1954195C 0000249006800?6903149054 lodinstr 9054 3029- +6I1954195C 0000249054800?2490549007 9054std1 3030- +6I1954195C 0000249007800?6504859008 ral50009 3031- +6I1954195C 0000249008800?1508979009 alo1ixxx 3032- +6I1954195C 0000249009800?2004859010 stl50009 3033- +6I1954195C 0000249010800?6904779058 lodfivtg 9058 3034- +6I1954195C 0000249058800?2390509011 9058sia 9050 3035- +6I1954195C 0000249011800?6000479012 rau 47 3036- +6I1954195C 0000249012800?1915119013 mpyv0007 3037- +6I1954195C 0000249013800?2390009014 sia 9000 3038- +6I1954195C 0000249014800?1590579015 alo 9057 3039- +6I1954195C 0000249015800?3500069016 slt 6 3040- +6I1954195C 0000249016800?1007809017 aupfwaxx 3041- +6I1954195C 0000249017800?8080019018 raa 8001 3042- +6I1954195C 0000249018800?5010009019 axa 1000 3043- +6I1954195C 0000249019800?5110009020 sxa 1000 3044- +6I1954195C 0000249020800?4190219022 bma 1f 3045- +6I1954195C 0000249021800?1190239022 sup9f 1f 3046- +6I1954195C 0000249022800?3500049024 1 slt 4 3047- +6I1954195C 0000249024800?2190579025 stu 9057 3048- +6I1954195C 0000249025800?6502559026 rallhold 3049- +6I1954195C 0000249026800?1607809027 slofwaxx 3050- +6I1954195C 0000249027800?4690289029 bmi 1f 3051- +6I1954195C 0000249028800?6080039029 rau 8003 1f 3052- +6I1954195C 0000249029800?3500049030 1 slt 4 3053- +6I1954195C 0000249030800?1590539031 alo 9053 3054- +6I1954195C 0000249031800?1590009032 alo 9000 3055- +6I1954195C 0000249032800?2090539033 stl 9053 3056- +6I1954195C 0000249033800?6990529034 lod 9052 3057- +6I1954195C 0000249034800?2390529035 sia 9052 3058- +6I1954195C 0000249035800?6590009036 ral 9000 3059- +6I1954195C 0000249036800?3500049037 slt 4 3060- +6I1954195C 0000249037800?1580019038 alo 8001 3061- +6I1954195C 0000249038800?1590559039 alo 9055 3062- +6I1954195C 0000249039800?2090559040 stl 9055 3063- +6I1954195C 0000249040800?1590519041 alo 9051 3064- +6I1954195C 0000249041800?2090519044 stl 9051 9044 3065- +6I1954195C 0000249044800?2919719042 9044sti 1971 3066- +6I1954195C 0000249042800?6590459043 ral 9045 3067- +6I1954195C 0000249043800?8690001976 rds 9000 1976 3068- +6I1954195C 0000249049800?7119771975 9049wr1 1977 1975 3069- +6I1954195C 0000249048800?4619749000 9048bmi 1974 9000 3070- +6I1954195C 0000249047800?2790101973 9047set 9010 1973 3071- +6I1954195C 0000249046800?2919500999 9046sti 1950 reada 3072- +6I1954195C 0000249050800?00000383327- 9050 00 0003 8332 3073- +6I1954195C 0000249045800?00000385927 9045 00 0003 8592 3074- +6I1954195C 0000249023800?0000001800 9 00 0 1800 3075- +6I1954195C 0000249051800?2900019984 9051 29 1 9984 3076- +6I1954195C 0000249052800?5100010008 9052sxa 1 8 3077- +6I1954195C 0000249053800?8000000008 9053raa 0 8 3078- +6I1954195C 0000249055800?4000030020 9055nza 3 20 3079- +6I1954195C 0000249056800?8888888888 - 9056 88 8888 8888 3080- +6I1954195C 0000249057800?2420000006 9057std 0 a 6 3081- +6I1954195C 0000249059800?0080000008 9059 00 8000 8 3082- +?000008000 0000 800? cor 3083- +?000008000 0000 800? 3858cdd 3084- +?000008000 0000 800? 1 locafier 3859 fil if one used 3085- +?000008000 0000 800? cor 9000 3086- +6I1954195C 0000249000800?6990019002 0 lod2f 3087- +6I1954195C 0000249002800?8590009003 sds 9000 3088- +6I1954195C 0000249003800?6505859058 ralccnt1 9058 3089- +6I1954195C 0000249058800?1590049051 9058alo8f 9051 3090- +6I1954195C 0000249051800?2090519005 9051stl1 3091- +6I1954195C 0000249005800?2405859006 stdccnt1 3092- +6I1954195C 0000249006800?6903149053 lodinstr 9053 3093- +6I1954195C 0000249053800?2490539007 9053std1 3094- +6I1954195C 0000249007800?6502559008 rallhold 3095- +6I1954195C 0000249008800?1607809009 slofwaxx 3096- +6I1954195C 0000249009800?4690109011 bmi 1f 3097- +6I1954195C 0000249010800?6080039011 rau 8003 1f 3098- +6I1954195C 0000249011800?3500049012 1 slt 4 3099- +6I1954195C 0000249012800?1590529013 alo 9052 3100- +6I1954195C 0000249013800?2090529014 stl 9052 3101- +6I1954195C 0000249014800?6507809015 ralfwaxx 3102- +6I1954195C 0000249015800?8080019016 raa 8001 3103- +6I1954195C 0000249016800?5010009017 axa 1000 3104- +6I1954195C 0000249017800?5110009018 sxa 1000 3105- +6I1954195C 0000249018800?4190199020 bma 1f 3106- +6I1954195C 0000249019800?1690219020 slo9f 1f 3107- +6I1954195C 0000249020800?3500049022 1 slt 4 3108- +6I1954195C 0000249022800?1590569023 alo 9056 3109- +6I1954195C 0000249023800?2090569045 stl 9056 9045 3110- +6I1954195C 0000249045800?2919729024 9045sti 1972 3111- +6I1954195C 0000249024800?6990019025 lod2f 3112- +6I1954195C 0000249025800?8690001976 rds 9000 1976 3113- +6I1954195C 0000249001800?00000383327 2 00 0003 8332 3114- +6I1954195C 0000249026800?00000383327 2 00 0003 8332 3115- +6I1954195C 0000249049800?7119771975 9049wr1 1977 1975 3116- +6I1954195C 0000249048800?2790101974 9048set 9010 1974 3117- +6I1954195C 0000249047800?2919500999 9047sti 1950 reada 3118- +6I1954195C 0000249050800?6919541953 9050lod 1954 1953 3119- +6I1954195C 0000249052800?8000001957 9052raa 0 1957 3120- +6I1954195C 0000249054800?6919558001 9054lod 1955 8001 3121- +6I1954195C 0000249055800?5100011957 9055sxa 1 1957 3122- +6I1954195C 0000249056800?2420001958 9056std 0 a 1958 3123- +6I1954195C 0000249057800?4019568000 9057nza 1956 8000 3124- +6I1954195C 0000249059800?0080080000 9059 00 8008 0 3125- +6I1954195C 0000249004800?0000000001 8 00 0 1 3126- +6I1954195C 0000249021800?0000001800 9 00 0 1800 3127- +?000008000 0000 800? cor 3128- +?000008000 0000 800? 3859cdd 3129- +?000008000 0000 800? 1 locafier 3860 skp plr start 3130- +?000008000 0000 800? blr 0 1999 3131- +?000008000 0000 800? bla 1965 1990 3132- +?000008000 0000 800? cor 9000 3133- +6I1954195C 0000249000800?4690019002 0 bmi1f 3134- +6I1954195C 0000249002800?6990599003 lod 9059 2f 3135- +6I1954195C 0000249001800?6990049005 1 lod5f 3136- +6I1954195C 0000249005800?2490229006 std 9022 3137- +6I1954195C 0000249006800?6519519007 ral 1951 3138- +6I1954195C 0000249007800?4590089009 nze 3f 3139- +6I1954195C 0000249008800?6990589003 lod 9058 2f 3140- +6I1954195C 0000249003800?8590009010 2 sds 9000 3141- +6I1954195C 0000249010800?2090569011 stl 9056 3142- +6I1954195C 0000249011800?8816629021 rac 1662 9021 3143- +6I1954195C 0000249021800?2919610442 9021sti 1961 lmast 3144- +6I1954195C 0000249009800?6990589012 3 lod 9058 3145- +6I1954195C 0000249012800?8590009013 sds 9000 3146- +6I1954195C 0000249013800?6990149015 lod1f 3147- +6I1954195C 0000249015800?2790218001 set 9021 8001 3148- +6I1954195C 0000249014800?2919619016 1 sti 1961 3149- +6I1954195C 0000249016800?6590171971 ral 3f d 3150- +6I1954195C 0000249017800?0000001950 00 0 1950 3151- +?000008000 0000 800? cor 3152- +?000008000 0000 800? 9021cod 1961 3153- +6I1954195C 0000249022800?2019671970 1962stl4f 3154- +6I1954195C 0000249030800?8816640649 rac 1664 dmast 3155- +6I1954195C 0000249024800?6919671972 1964lod4f 3156- +6I1954195C 0000249032800?8280011978 rab 8001 1f 3157- +6I1954195C 0000249038800?4519821983 1 nze 1f 3158- +6I1954195C 0000249042800?0340001988 rtc 0 b 3159- +6I1954195C 0000249048800?2519781965 nts1b 3160- +6I1954195C 0000249025800?5419781973 nef1b 3161- +6I1954195C 0000249033800?1608971978 slo1ixxx 1b 3162- +6I1954195C 0000249043800?8819660976 1 rac psudo 3163- +6I1954195C 0000249026800?8816630550 rac 1663 imast 3164- +6I1954195C 0000249023800?6919991968 1963lod 1999 3165- +6I1954195C 0000249028800?8690001974 rds 9000 3166- +6I1954195C 0000249034800?6919671975 lod4f 3167- +6I1954195C 0000249035800?8280011981 rab 8001 1f 3168- +6I1954195C 0000249041800?4519841985 1 nze 1f 3169- +6I1954195C 0000249044800?0340001990 rtc 0 b 3170- +6I1954195C 0000249050800?1608971981 slo1ixxx 1b 3171- +6I1954195C 0000249045800?2790101969 1 set 9010 3172- +6I1954195C 0000249029800?2919500999 sti 1950 reada 3173- +?000008000 0000 800? 4f und 3174- +6I1954195C 0000249004800?1415111976 5 divv0007 3175- +6I1954195C 0000249036800?6080021986 rau 8002 3176- +6I1954195C 0000249046800?1915111971 mpyv0007 3f 3177- +6I1954195C 0000249031800?6919981977 3 lod 1998 3178- +6I1954195C 0000249037800?8690001987 rds 9000 3179- +6I1954195C 0000249047800?8080021979 raa 8002 3180- +6I1954195C 0000249039800?5000011989 axa 1 3181- +6I1954195C 0000249049800?6580051980 ral 8005 3182- +6I1954195C 0000249040800?2407809000 stdfwaxx 9000 3183- +6I1954195C 0000249053800?6919621992 1993lod 1962 1992 3184- +6I1954195C 0000249052800?2790211991 1992set 9021 1991 3185- +6I1954195C 0000249051800?2919618001 1991sti 1961 8001 3186- +6I1954195C 0000249058800?00000386127 1998 00 0003 8612 3187- +6I1954195C 0000249059800?0000038332 1999 00 0003 8332 3188- +6I1954195C 0000249054800?0162890300 hlt44hlt 289 c 300 3189- +6I1954195C 0000249055800?0162890300 hlt55hlt 289 c 300 3190- +6I1954195C 0000249057800?0162890300 hlt88hlt 289 c 300 3191- +?000008000 0000 800? 3860cdd 3192- +?000008000 0000 800? 1 locafier 3861 plr puncher 3193- +?000008000 0000 800? cor 9000 3194- +6I1954195C 0000249000800?6919999001 0 lod 1999 3195- +6I1954195C 0000249001800?8590009017 sds 9000 3196- +6I1954195C 0000249017800?8300019002 rsb 1 - +6I1954195C 0000249002800?2090009003 stl 9000 3197- +6I1954195C 0000249003800?3500049058 slt 4 9058 3198- +6I1954195C 0000249058800?2090019027 9058stl 9001 9027 3199- +6I1954195C 0000249027800?1590009004 9027alo 9000 3200- +6I1954195C 0000249004800?2090029007 stl 9002 3201- +6I1954195C 0000249007800?6590050768 ral0f filll 3201- +6I1954195C 0000249005800?6594589438 0 ral 9058b 9038b 3202- +6I1954195C 0000249006800?2094589048 1 stl 9058b 9048 3203- +6I1954195C 0000249048800?5300019005 9048sxb 1 0b 3204- +6I1954195C 0000249059800?0080000008 9059 00 8000 8 3205- +6I1954195C 0000249057800?3000040014 9057srt 4 14 3206- +6I1954195C 0000249056800?1500070014 9056alo 7 14 3207- +6I1954195C 0000249055800?6920010012 9055lod 1 a 12 3208- +6I1954195C 0000249054800?6000060013 9054rau 6 13 3209- +6I1954195C 0000249053800?7000169898 9053rd1 16 9898 3210- +6I1954195C 0000249052800?5100010023 9052sxa 1 23 3211- +6I1954195C 0000249051800?8000040022 9051raa 4 22 3212- +6I1954195C 0000249050800?7090429898 9050rd1 9042 9898 3213- +6I1954195C 0000249049800?0080000008 9049 00 8000 8 3214- +6I1954195C 0000249047800?0919529043 9047ldi 1952 9043 3215- +6I1954195C 0000249046800?5800010020 9046axc 1 20 3216- +6I1954195C 0000249045800?4000180019 9045nza 18 19 3217- +6I1954195C 0000249044800?8280020021 9044rab 8002 21 3218- +6I1954195C 0000249043800?4600010017 9043bmi 1 17 3219- +6I1954195C 0000249042800?2440000015 9042std 0 b 15 3220- +6I1954195C 0000249041800?2900110019 9041sti 11 19 3221- +6I1954195C 0000249040800?8800009049 9040rac 0 9049 3222- +6I1954195C 0000249037800?1590009006 9037alo 9000 1b 3223- +6I1954195C 0000249036800?1590029006 9036alo 9002 1b 3224- +6I1954195C 0000249035800?1590029006 9035alo 9002 1b 3225- +6I1954195C 0000249034800?1590029006 9034alo 9002 1b 3226- +6I1954195C 0000249033800?1590019006 9033alo 9001 1b 3227- +6I1954195C 0000249032800?1590009006 9032alo 9000 1b 3228- +6I1954195C 0000249031800?1590009006 9031alo 9000 1b 3229- +6I1954195C 0000249030800?7190509029 9030wr1 9050 9029 3230- +6I1954195C 0000249029800?5300049005 9029sxb 4 0b 3231- +6I1954195C 0000249026800?1590009006 9026alo 9000 1b 3232- +6I1954195C 0000249025800?1590029006 9025alo 9002 1b 3233- +6I1954195C 0000249024800?1590009006 9024alo 9000 1b 3234- +6I1954195C 0000249023800?1590029006 9023alo 9002 1b 3235- +6I1954195C 0000249022800?1590009006 9022alo 9000 1b 3236- +6I1954195C 0000249021800?1590029006 9021alo 9002 1b 3237- +6I1954195C 0000249020800?6519529028 9020ral 1952 9028 3239- +6I1954195C 0000249028800?4590089009 9028nze 1f 3240- +6I1954195C 0000249008800?6890108001 rsm2f 8001 3241- +6I1954195C 0000249009800?6716129010 1 ramfivon 2f 3242- +6I1954195C 0000249010800?2004779011 2 stlfivtg 3243- +6I1954195C 0000249011800?6590009012 ral 9000 3244- +6I1954195C 0000249012800?1590139014 alo2f 3245- +6I1954195C 0000249014800?6919999038 lod 1999 9038 3246- +6I1954195C 0000249038800?2819619015 9038sib 1961 3247- +6I1954195C 0000249015800?7190409016 wr1 9040 3248- +6I1954195C 0000249016800?8690001993 rds 9000 1993 3249- +6I1954195C 0000249039800?2090051014 9039stl 9005 sub1r 3250- +6I1954195C 0000249013800?0000000023 2 00 0 23 3251- +?000008000 0000 800? cor 3253- +?000008000 0000 800? 3861cdd 3254- +?000008000 0000 800? 1 locafier 3862 pal 3255- +?000008000 0000 800? blr 0 1999 3256- +?000008000 0000 800? bla 1962 1998 3257- +?000008000 0000 800? 9021cod 1961 3258- +6I1954195C 0000249000800?6990599005 9000lod 9059 9005 3259- +6I1954195C 0000249005800?8590009021 9005sds 9000 9021 3260- +6I1954195C 0000249021800?2919619008 9021sti 1961 9008 3261- +6I1954195C 0000249008800?8301999009 9008rsb 199 9009 3262- +6I1954195C 0000249009800?8909890976 9009rsc 989 psudo 3263- +6I1954195C 0000249011800?2819529006 9011sib 1952 9006 3264- +6I1954195C 0000249006800?6590079012 9006ral 9007 9012 3265- +6I1954195C 0000249012800?2119519010 9012stu 1951 9010 3266- +6I1954195C 0000249010800?6990189017 9010lod 9018 9017 3267- +6I1954195C 0000249017800?2490009004 9017std 9000 9004 3268- +6I1954195C 0000249004800?0908041962 9004ldi60004 3269- +6I1954195C 0000249022800?2090199001 stlsprud 9001 3270- +6I1954195C 0000249001800?6059499002 9001raua0200b 9002 3271- +6I1954195C 0000249002800?4419639003 9002nzu 9003 3272- +6I1954195C 0000249023800?3600001985 sct 0 3273- +6I1954195C 0000249045800?8080021993 raa 8002 3274- +6I1954195C 0000249053800?3500011964 slt 1 3275- +6I1954195C 0000249024800?3120011971 srd 1 a 3276- +6I1954195C 0000249031800?2190351979 stu 9035 3277- +6I1954195C 0000249039800?6080051987 rau 8005 3278- +6I1954195C 0000249047800?1919901965 mpy8f 3279- +6I1954195C 0000249025800?8080021973 raa 8002 3280- +6I1954195C 0000249033800?6580061981 ral 8006 3281- +6I1954195C 0000249041800?1419841995 div7f 3282- +6I1954195C 0000249055800?1919981969 mpy9f 3283- +6I1954195C 0000249029800?5080021977 axa 8002 3284- +6I1954195C 0000249037800?5080031986 axa 8003 3285- +6I1954195C 0000249046800?5015490428 axa 1549 n0087 3286- +6I1954195C 0000249007800?2419531966 9007std 1953 3287- +6I1954195C 0000249026800?8819670976 rac psudo 3288- +6I1954195C 0000249027800?6590359002 ral 9035 9002 3289- +6I1954195C 0000249003800?4290001980 9003nzb 9000 1f 3290- +6I1954195C 0000249018800?5200019001 9018axb 1 9001 3291- +6I1954195C 0000249040800?6919991968 1 lod 1999 3292- +6I1954195C 0000249028800?8690001974 rds 9000 3293- +6I1954195C 0000249034800?2790101982 set 9010 3294- +6I1954195C 0000249042800?2919500999 sti 1950 reada 3295- +6I1954195C 0000249013800?6273610000 9013alfbla think 3296- +6I1954195C 0000249014800?0061856169 9014alf avai think 3297- +6I1954195C 0000249015800?7361627365 9015alflable think 3298- +6I1954195C 0000249019800?0099989990 9019 00 9998 9990 3299- +6I1954195C 0000249059800?00000383327 1999 00 0003 8332 3300- +6I1954195C 0000249044800?0000000004 7 00 0 4 3301- +6I1954195C 0000249050800?0000000050 8 00 0 50 3302- +6I1954195C 0000249058800?0000000500 9 00 0 500 3303- +?000008000 0000 800? 3862cdd 3304- +?000008000 0000 800? 1 locafier 3863 pdl second 3305- +?000008000 0000 800? blr 0 1999 3306- +?000008000 0000 800? bla 1952 1976 3307- +?000008000 0000 800? bla 1985 1985 3308- +?000008000 0000 800? bla 1988 1989 3309- +?000008000 0000 800? bla 1993 1999 3310- +?000008000 0000 800? 9010cod 1950 3311- +?000008000 0000 800? cor 9000 3312- +6I1954195C 0000249000800?6916839001 0 lod 1683 3313- +6I1954195C 0000249001800?8590009010 sds 9000 9010 3314- +6I1954195C 0000249010800?2919509037 9010sti 1950 9037 3315- +6I1954195C 0000249037800?6990449038 9037lod 9044 9038 3316- +6I1954195C 0000249038800?8000059039 9038raa 5 9039 3317- +6I1954195C 0000249039800?2439789040 9039std 1978a 9040 3318- +6I1954195C 0000249040800?4090419042 9040nza 9041 9042 3319- +6I1954195C 0000249041800?5100019039 9041sxa 1 9039 3320- +6I1954195C 0000249044800?8989898989 9044alfzzzzz think 3321- +6I1954195C 0000249042800?6990439002 9042lod 9043 3f 3322- +6I1954195C 0000249002800?2790108001 3 set 9010 8001 3323- +6I1954195C 0000249043800?0918509003 9043ldi 1850 3324- +6I1954195C 0000249003800?6916839004 lod 1683 3325- +6I1954195C 0000249004800?8790009005 wds 9000 3326- +6I1954195C 0000249005800?6990069002 lod 3b 3327- +6I1954195C 0000249006800?6916821985 lod 1682 d 3328- +6I1954195C 0000249045800?8590001951 sds 9000 1951 3329- +6I1954195C 0000249011800?0919009007 1951ldi 1900 3330- +6I1954195C 0000249007800?8790009008 wds 9000 3331- +6I1954195C 0000249008800?4590091691 nze 1691 3332- +6I1954195C 0000249009800?8200011698 rab 1 1698 3333- +?000008000 0000 800? cor 3334- +6I1954195C 0000249050800?4819931694 1990nzc 1694 3335- +6I1954195C 0000249053800?6596611965 ral 9061c 3336- +6I1954195C 0000249025800?4656921970 bmi 1692b5f 3337- +6I1954195C 0000249030800?2019771988 5 stl 1977 3338- +6I1954195C 0000249048800?3500031997 slt 3 3339- +6I1954195C 0000249057800?8080035991 raa 8003 1991b 3340- +6I1954195C 0000249052800?1180011999 1992sup 8001 3341- +6I1954195C 0000249059800?5101001955 sxa 100 1f 3342- +6I1954195C 0000249051800?1180011955 1991sup 8001 1f 3343- +6I1954195C 0000249015800?3500011961 1 slt 1 3344- +6I1954195C 0000249021800?8280031971 rab 8003 3345- +6I1954195C 0000249031800?6038501956 rau 1850a 3346- +6I1954195C 0000249016800?3040001989 srt 0 b 3347- +6I1954195C 0000249049800?6980031996 lod 8003 3348- +6I1954195C 0000249056800?9119521953 bd11f 3349- +6I1954195C 0000249013800?7119771959 wr1 1977 2f 3350- +6I1954195C 0000249012800?1008971954 1 aup1ixxx 3351- +6I1954195C 0000249014800?3540001994 slt 0 b 3352- +6I1954195C 0000249054800?2138501959 stu 1850a2f 3353- +6I1954195C 0000249019800?4716991964 2 bov 1699 axc 3354- +6I1954195C 0000249024800?5800021972 axc axc 2 3355- +6I1954195C 0000249032800?8290581990 rab 9058 1990 3356- +6I1954195C 0000249046800?0880000000 1986 08 8000 0 3357- +6I1954195C 0000249047800?6580011995 1987ral 8001 3358- +6I1954195C 0000249055800?3000061960 srt 6 3359- +6I1954195C 0000249020800?1508971957 alo1ixxx 3360- +6I1954195C 0000249017800?8290581966 rab 9058 sct 3361- +6I1954195C 0000249026800?3600061970 sct sct 6 5b 3362- +?000008000 0000 800? 3863cdd 3363- +?000008000 0000 800? 1 locafier 3864 pdl first 3364- +?000008000 0000 800? cor 9000 3365- +6I1954195C 0000249000800?6990019002 0 lod1f 3366- +6I1954195C 0000249002800?8590009003 sds 9000 3367- +6I1954195C 0000249003800?6990049005 lod2f 3368- +6I1954195C 0000249005800?2790108001 set 9010 8001 3369- +6I1954195C 0000249004800?2916509006 2 sti 1650 3370- +6I1954195C 0000249006800?8909910976 rsc 991 psudo 3371- +6I1954195C 0000249009800?6507739007 9009ralramsw 3372- +6I1954195C 0000249007800?1606629008 sloramon 3373- +6I1954195C 0000249008800?6990011547 lod1f dump9 3374- +6I1954195C 0000249001800?00000386327 1 00 0003 8632 3375- +?000008000 0000 800? cor 3376- +?000008000 0000 800? blr 0 1999 3377- +?000008000 0000 800? bla 1650 1679 3378- +?000008000 0000 800? bla 1684 1684 3379- +?000008000 0000 800? bla 1689 1690 3380- +?000008000 0000 800? 9010cod 1650 3381- +6I1954195C 0000249051800?6752481653 1691ramdiskrb 3382- +6I1954195C 0000249013800?8690001658 rds 9000 3383- +6I1954195C 0000249018800?8000991664 raa 99 3384- +6I1954195C 0000249024800?6908461650 lodt0003 2f 3385- +6I1954195C 0000249010800?2438501654 2 std 1850a 3386- +6I1954195C 0000249014800?4016571659 nza 2f 3387- +6I1954195C 0000249017800?5100011650 sxa 1 2b 3388- +6I1954195C 0000249019800?3500021665 2 slt 2 3389- +6I1954195C 0000249025800?8880031674 rac 8003 3390- +6I1954195C 0000249034800?1180011684 sup 8001 3391- +6I1954195C 0000249044800?3000021651 srt 2 3f 3392- +6I1954195C 0000249011800?1616551660 3 slo9f 3393- +6I1954195C 0000249020800?2002551661 stllhold 3394- +6I1954195C 0000249021800?5900601667 sxc 60 3395- +6I1954195C 0000249027800?8590001672 sds 9000 3396- +6I1954195C 0000249032800?6980061678 lod 8006 3397- +6I1954195C 0000249038800?2490581990 std 9058 1990 3398- +6I1954195C 0000249053800?1608041692 1693slo60004 1692 3399- +6I1954195C 0000249052800?3600061662 1692sct 6 3400- +6I1954195C 0000249022800?2017111666 stlotend 3401- +6I1954195C 0000249026800?6680031966 rsl 8003 sct 3402- +6I1954195C 0000249059800?6717111668 1699ramotend 3403- +6I1954195C 0000249028800?1619771689 slo 1977 3404- +6I1954195C 0000249049800?4519871964 nze 1987 axc 3405- +6I1954195C 0000249054800?6502551663 1694rallhold 3406- +6I1954195C 0000249023800?1656951652 slo 1695b 3407- +6I1954195C 0000249012800?4616561669 bmi1f 3408- +6I1954195C 0000249029800?6502551670 rallhold 3409- +6I1954195C 0000249030800?8690001651 rds 9000 3b 3410- +6I1954195C 0000249016800?6952481671 1 loddiskrb 3411- +6I1954195C 0000249031800?8590005697 sds 9000 1697b 3412- +6I1954195C 0000249055800?00000000007 1695alf think 3413- +6I1954195C 0000249056800?00000005017 1696 00 0 501 3414- +6I1954195C 0000249057800?8200011691 1697rab 1 1691 3415- +6I1954195C 0000249058800?6956821690 1698lod 1682b 3416- +6I1954195C 0000249050800?2790101673 set 9010 3417- +6I1954195C 0000249033800?8590005687 sds 9000 1687b 3418- +6I1954195C 0000249048800?8690001675 1688rds 9000 3419- +6I1954195C 0000249035800?5300011698 sxb 1 1698 3420- +6I1954195C 0000249047800?2918501688 1687sti 1850 1688 3421- +6I1954195C 0000249046800?2919001688 1686sti 1900 1688 3422- +6I1954195C 0000249045800?2919501676 1685sti 1950 3423- +6I1954195C 0000249036800?8690001677 rds 9000 3424- +6I1954195C 0000249037800?2790101679 set 9010 3425- +6I1954195C 0000249039800?2916500999 sti 1650 reada 3426- +6I1954195C 0000249043800?00000883427 1683 00 0008 8342 3427- +6I1954195C 0000249042800?00000883327 1682 00 0008 8332 3428- +6I1954195C 0000249041800?00000383327 1681 00 0003 8332 3429- +6I1954195C 0000249040800?00000382827 1680 00 0003 8282 3430- +6I1954195C 0000249015800?0000000010 9 00 0 10 3431- +?000008000 0000 800? 3864cdd 3432- +?000008000 0000 800? 1 locafier 3865 lat sat lst sst 3433- +?000008000 0000 800? cor 9000 3434- +6I1954195C 0000249000800?8909959021 0 rsc 995 9021 3435- +6I1954195C 0000249021800?2919619001 9021sti 1961 3436- +6I1954195C 0000249001800?4790069002 bov 9006 1f 3437- +6I1954195C 0000249006800?2819619002 9006sib 1961 1f 3438- +6I1954195C 0000249002800?4690030976 1 bmi psudo 3439- +6I1954195C 0000249003800?6990589004 lod 9058 3440- +6I1954195C 0000249004800?2419650976 std 1965 psudo 3441- +6I1954195C 0000249005800?6519529010 9005ral 1952 9010 3442- +6I1954195C 0000249010800?2819509020 9010sib 1950 9020 3443- +6I1954195C 0000249020800?8816960069 9020rac 1696 mastr 3444- +?000008000 0000 800? cor 3445- +?000008000 0000 800? 9021cod 1961 3446- +?000008000 0000 800? blr 0 1999 3447- +?000008000 0000 800? bla 1951 1959 3448- +?000008000 0000 800? bla 1969 1993 3449- +?000008000 0000 800? bla 1999 1999 3450- +6I1954195C 0000249056800?3500011953 1996slt 1 3451- +6I1954195C 0000249013800?15029019997 alo30040 3452- +6I1954195C 0000249059800?6980021955 lod 8002 3453- +6I1954195C 0000249015800?8590001969 sds 9000 3454- +6I1954195C 0000249029800?8101501965 rsa 150 1965 3455- +6I1954195C 0000249058800?8690001959 9058rds 9000 lat lst 3456- +6I1954195C 0000249019800?4019705962 nza1f 1962b 3457- +6I1954195C 0000249030800?1519731977 1 alo3f 3458- +6I1954195C 0000249037800?6980021983 lod 8002 3459- +6I1954195C 0000249043800?5000501989 axa 50 3460- +6I1954195C 0000249049800?8590005963 sds 9000 1963b 3461- +6I1954195C 0000249023800?2938501965 1963sti 1850a 1965 3462- +6I1954195C 0000249022800?2919001952 1962sti 1900 9f 3463- +6I1954195C 0000249008800?2931501965 9008stie0101a 1965 3464- +6I1954195C 0000249007800?8200041971 9007rab 4 3465- +6I1954195C 0000249031800?8102501970 rsa 250 1b 3466- +6I1954195C 0000249027800?2790121972 1967set 9012 3467- +6I1954195C 0000249032800?2934001965 stis0201a 1965 3468- +6I1954195C 0000249026800?2790121974 1966set 9012 3469- +6I1954195C 0000249034800?2914501954 stis0251 3470- +6I1954195C 0000249014800?2802561952 siblevel 9f 3471- +6I1954195C 0000249025800?2790005964 1965set 9000 1964b sat sst 3472- +6I1954195C 0000249024800?0939001956 1964ldi 1900a5f 3473- +6I1954195C 0000249016800?8790001975 5 wds 9000 3474- +6I1954195C 0000249035800?4019781952 nza 9f 3475- +6I1954195C 0000249038800?1519731979 alo3f 3476- +6I1954195C 0000249039800?6980021985 lod 8002 3477- +6I1954195C 0000249045800?5000501991 axa 50 3478- +6I1954195C 0000249051800?8590005964 sds 9000 1964b 3479- +6I1954195C 0000249009800?4019761980 9009nza 1f 3480- +6I1954195C 0000249036800?0932001956 ldie0151a5b 3481- +6I1954195C 0000249040800?8102501986 1 rsa 250 3482- +6I1954195C 0000249046800?8200041968 rab 4 1968 3483- +6I1954195C 0000249028800?2790121981 1968set 9012 3484- +6I1954195C 0000249041800?0934501957 ldis0251a 3485- +6I1954195C 0000249017800?0802561956 liblevel 5b 3486- +6I1954195C 0000249054800?0162570300 hlt44hlt 257 c 300 3487- +6I1954195C 0000249055800?0162570300 hlt55hlt 257 c 300 3488- +6I1954195C 0000249057800?0162570300 hlt88hlt 257 c 300 3489- +6I1954195C 0000249012800?6919581982 9 lod8f 3490- +6I1954195C 0000249042800?8590001987 sds 9000 3491- +6I1954195C 0000249047800?8690001992 rds 9000 3492- +6I1954195C 0000249052800?2790101951 set 9010 3493- +6I1954195C 0000249011800?2919500999 sti 1950 reada 3494- +6I1954195C 0000249018800?00000383327 8 00 0003 8332 3495- +6I1954195C 0000249033800?0000000010 3 00 0 10 3496- +?000008000 0000 800? 3865cdd 3497- +?000008000 0000 800? 1 locafier 3866 error restarting 3498- +?000008000 0000 800? cor 9000 3499- +?000008000 0000 800? 8f syn 9003 3500- +6I1954195C 0000249000800?6004609001 0 raucarry 3501- +?000008000 0000 800? 0f syn 9002 3502- +6I1954195C 0000249001800?9690049005 bd69f 3503- +6I1954195C 0000249005800?1102239006 supkeep 3504- +6I1954195C 0000249006800?4490079004 nzu 9f 3505- +6I1954195C 0000249007800?6501129008 ralfarbl 3506- +6I1954195C 0000249008800?1614999009 slofarce 3507- +6I1954195C 0000249009800?4590109004 nze 9f 3508- +6I1954195C 0000249010800?6904609011 lodcarry 3509- +6I1954195C 0000249011800?8080019012 raa 8001 3510- +6I1954195C 0000249012800?6780059013 ram 8005 3511- +6I1954195C 0000249013800?1490149015 div1f 3512- +6I1954195C 0000249015800?8880029016 rac 8002 3513- +6I1954195C 0000249016800?6580039017 ral 8003 3514- +6I1954195C 0000249017800?1490189019 div2f 3515- +6I1954195C 0000249019800?8080029020 raa 8002 3516- +6I1954195C 0000249020800?1080039021 aup 8003 3517- +6I1954195C 0000249021800?1080039022 aup 8003 3518- +6I1954195C 0000249022800?5880039023 axc 8003 3519- +6I1954195C 0000249023800?6577509024 rala0001c 3520- +6I1954195C 0000249024800?3520019025 slt 1 a 3521- +6I1954195C 0000249025800?1090269027 aup3f 3522- +6I1954195C 0000249027800?3120019028 srd 1 a 3523- +6I1954195C 0000249028800?2077509002 stla0001c0f 3524- +6I1954195C 0000249004800?6509279029 9 ralcorec 3525- +6I1954195C 0000249029800?2490009030 std 9000 3526- +6I1954195C 0000249030800?1600969031 slokeepp 3527- +6I1954195C 0000249031800?4590329002 nze 0f 3528- +6I1954195C 0000249032800?6519529033 ral 1952 3529- +6I1954195C 0000249033800?1590349035 alo4f 3530- +6I1954195C 0000249035800?4490369003 nzu 8f 3531- +6I1954195C 0000249036800?3500029037 slt 2 3532- +6I1954195C 0000249037800?8080039038 raa 8003 3533- +6I1954195C 0000249038800?1180019039 sup 8001 3534- +6I1954195C 0000249039800?4590039040 nze8f 3535- +6I1954195C 0000249040800?6924139041 lodf9900a 3536- +6I1954195C 0000249041800?8280019042 rab 8001 3537- +6I1954195C 0000249042800?5390009043 sxb 9000 3538- +6I1954195C 0000249043800?4290039044 nzb8f 3539- +6I1954195C 0000249044800?6915519045 lodo0002 3540- +6I1954195C 0000249045800?2424139003 stdf9900a8f 3541- +6I1954195C 0000249003800?0810229046 8 lib70003 3542- +6I1954195C 0000249046800?6902569047 lodlevel 3543- +6I1954195C 0000249047800?8280019048 rab 8001 3544- +6I1954195C 0000249048800?6902159049 lodkee 3545- +6I1954195C 0000249049800?2402569050 stdlevel 3546- +6I1954195C 0000249050800?8880019003 rac 8001 9003 3547- +6I1954195C 0000249014800?0000000500 1 00 0 500 3548- +6I1954195C 0000249018800?0000000050 2 00 0 50 3549- +6I1954195C 0000249026800?0000000008 3 00 0 8 3550- +6I1954195C 0000249034800?0934000000 4 09 3400 0 3551- +6I1954195C 0000249051800?6600000000 5 alff think 3552- +6I1954195C 0000249052800?5000000000 6 50 0 0 3553- +6I1954195C 0000249002800?6519629053 0 ralprogp 3554- +6I1954195C 0000249053800?4590549055 nze 1f 3555- +6I1954195C 0000249054800?8080019056 raa 8001 3556- +6I1954195C 0000249056800?3000049057 srt 4 3557- +6I1954195C 0000249057800?2025139055 stlf0000a1f 3558- +6I1954195C 0000249055800?6900969058 1 lodkeepp 3559- +6I1954195C 0000249058800?2409279059 stdcorec 3560- +6I1954195C 0000249059800?6502230666 ralkeep 666 3561- +?000008000 0000 800? cor 3562- +?000008000 0000 800? 3866cdd 3563- +?000008000 0000 800? end 3564- diff --git a/I650/sw/supersoap/ssoap_example.txt b/I650/sw/supersoap/ssoap_example.txt new file mode 100644 index 000000000..dcdeebccf --- /dev/null +++ b/I650/sw/supersoap/ssoap_example.txt @@ -0,0 +1,22 @@ +0001 1 EXAMPLE CALCULATE F OF X +0002 +0003 BLR 1951 1960 READ AREA +0004 P0001 BLR 27 P0002 PUNCH AREA +0005 START RAU ONE 1F SET X 0004 +60 0007 0011 +0006 1 STU P0001 TO 1 0011 +21 0027 0030 +0007 MPY A CALCULATE 0030 +19 0033 0003 +0008 ALO B F 0003 +15 0006 0061 +0009 RAU 8002 0061 +60 8002 0019 +0010 MPY P0001 0019 +19 0027 0047 +0011 ALO C 0047 +15 0000 0005 +0012 STL P0002 0005 +20 0028 0031 +0013 WR1 P0001 PUNCH 0031 +71 0027 0037 +0014 RAU P0001 0037 +60 0027 0081 +0015 SUP XMAX IS X MAX 0081 +11 0034 0039 +0016 NZU 9876 0039 +44 0043 9876 +0017 AUP 101 1B INCREASE X 0043 +10 0046 0011 +0018 +0019 ONE 00 0000 0001 CONSTANTS 0007 +00 0000 0001 +0020 XMAX 00 0000 0100 0034 +00 0000 0100 +0021 101 00 0000 0101 0046 +00 0000 0101 +0022 END \ No newline at end of file diff --git a/I650/sw/supersoap/ssoap_example_src.txt b/I650/sw/supersoap/ssoap_example_src.txt new file mode 100644 index 000000000..10f3e9b4e --- /dev/null +++ b/I650/sw/supersoap/ssoap_example_src.txt @@ -0,0 +1,22 @@ + 1 example calculate f of x + + blr 1951 1960 read area + p0001blr 27 p0002 punch area + startrauone 1f set x + 1 stup0001 to 1 + mpya calculate + alob f + rau 8002 + mpyp0001 + aloc + stlp0002 + wr1p0001 punch + raup0001 + supxmax is x max + nzu 9876 + aup101 1b increase x + + one 00 0000 0001 constants + xmax 00 0000 0100 + 101 00 0000 0101 + end diff --git a/I650/sw/supersoap/ssoap_loader_src.txt b/I650/sw/supersoap/ssoap_loader_src.txt new file mode 100644 index 000000000..2854ff6e3 --- /dev/null +++ b/I650/sw/supersoap/ssoap_loader_src.txt @@ -0,0 +1,59 @@ + 1 + 1 dsk output from 0000 1999 + 1 loads supersoap from dsk to drum + 1 page 52 of supersoap manual + + 1 this routine loads tracks 00-33 from ramac + 1 to drum addr 0000-1999 + + 1 this routine is stored in disk 38, track 00 + 1 when track is read to core, the routine + 1 uses words 9000-9039. + 1 this routine starts al 9000 and is called + 1 by ssoap_calling_card. + + 1 when called distributor should have the disk + 1 addr of this loader (000 03800 0) + + 1 loads words 9040-9059 to drum 0000-0019 + 1 then read next track and stores it in drum 0020-0080 + 1 and so on up to track 33. then routine jumps + 1 to transfer intruction + 1 + blr 0 1999 + bla 1966 1999 + rd syn 9004 + j0001blr 1971 j0006 + + 9000rau 8001 9001 + 9001rsa 1700 9002 + 9002alord 9003 + 9003rab 0 9005 + + 9005sti 1965 2f + 2 aup10i + lod 8003 + sds 9000 j0001b + j0001sti 1700a 8002 + rd rds 9000 + axb 1 2b + j0002sti 1720a + sti 1750a 8002 + j0003sti 1780a + sti 1800a 8002 + j0004sti 1840a + bma 9f + sti 1850a 8002 + j0005sti 1900a + sti 1950a 8002 + j0006sti 1960a + axa 300 + rab 0 j0001 + 9 lod1f + sti 1950 8001 + 10i 00 0 10 + + 1 transfer instruction + 1 rd1 1999 1998 + + end \ No newline at end of file diff --git a/I650/sw/supersoap/ssoap_main.dck b/I650/sw/supersoap/ssoap_main.dck new file mode 100644 index 000000000..eee16bf3d --- /dev/null +++ b/I650/sw/supersoap/ssoap_main.dck @@ -0,0 +1,1524 @@ +6I1954195C 0000240000800?6019540009 0 rau 1954 1f 0134- +6I1954195C 0000240001800?8809990976 1 racreada psudo 0135- +6I1954195C 0000240002800?6500310085 2 ral8f 1b 0136- +6I1954195C 0000240003800?6900870097 3 lodaton putag 0137- +6I1954195C 0000240004800?6500310085 4 ral8f 1b 0139- +6I1954195C 0000240005800?1604040753 5 slon0063 7b 1378- +6I1954195C 0000240006800?3500020016 slt 2 0178- +6I1954195C 0000240007800?2417110197 stdotend 0170- +6I1954195C 0000240008800?2003142219 3 stlinstr 219 a 0452- +6I1954195C 0000240009800?8000000014 1 raa 0 0141- +6I1954195C 0000240010800?5990590618 sxc 9059 0644- +6I1954195C 0000240011800?1600640619 slo400p 0150- +6I1954195C 0000240012800?6980050020 lod 8005 0190- +6I1954195C 0000240013800?6063420012 raun0001c 0189- +6I1954195C 0000240014800?8200010019 rab 1 0f 0142- +6I1954195C 0000240015800?3500090085 slt 9 1f 0128- +6I1954195C 0000240016800?1680020228 slo 8002 0179- +6I1954195C 0000240017800?0016500000 obase 00o0101 0 0195- +6I1954195C 0000240018800?6590110226 ral 9011 0401- +6I1954195C 0000240019800?3000020075 0 srt 2 0143- +6I1954195C 0000240020800?2400730076 stdlincr procl 0191- +6I1954195C 0000240021800?6519611965 21 rall0cat 1111- +6I1954195C 0000240022800?3000042034 srt 4 34 a 0418- +6I1954195C 0000240023800?4500540078 2 nze7b 0159- +6I1954195C 0000240024800?1580010082 alo 8001 0152- +6I1954195C 0000240025800?2007802038 25 stllocus 38 a 0388- +6I1954195C 0000240026800?6707800893 90001ramlocus 1010- +6I1954195C 0000240027800?7490406000 90002wr2 9040 0 c 1009- +6I1954195C 0000240028800?7190400830 90003wr1 9040 9f 1006- +6I1954195C 0000240029800?1090000095 1 aup 9000 4f 0157- +6I1954195C 0000240030800?2101900243 stubasex 0398- +6I1954195C 0000240031800?1502358002 8 alosudom 8002 0175- +6I1954195C 0000240032800?6903380492 32 lod coddl 0431- +6I1954195C 0000240033800?6901880091 33 lodoptim 3f 0433- +6I1954195C 0000240034800?6901880091 34 lodoptim 3f 0434- +6I1954195C 0000240035800?8080020236 35 raa 8002 c8xeq 0419- +6I1954195C 0000240036800?1500900205 36 alocdiff 0389- +6I1954195C 0000240037800?1080010545 37 aup 8001 0391- +6I1954195C 0000240038800?0101230123 38 hltq0007 q0007 0393- +6I1954195C 0000240039800?2000460107 39 stl533tl 0395- +6I1954195C 0000240040800?2090000599 1 stl 9000 0207- +6I1954195C 0000240041800?8902750247 rsc 275 0377- +6I1954195C 0000240042800?3500010050 slt 1 0147- +6I1954195C 0000240043800?3000020499 srt 2 0168- +6I1954195C 0000240044800?6990110600 44 lod 9011 alfin 0441- +6I1954195C 0000240045800?6990110101 45 lod 9011 0415- +6I1954195C 0000240050800?4400530054 nzu 7f 0148- +6I1954195C 0000240051800?2343070061 3 siadtaggb 0162- +6I1954195C 0000240052800?6580074609 1 ral 8007 609 b 0428- +6I1954195C 0000240053800?1180030011 sup 8003 0149- +6I1954195C 0000240054800?3000060029 7 srt 6 1f 0155- +6I1954195C 0000240055800?8080030077 raa 8003 0131- +6I1954195C 0000240056800?6904600063 lodcarry 0379- +6I1954195C 0000240057800?2000730076 stllincr procl 0193- +6I1954195C 0000240058800?2119620949 stuprogp 1f 0464- +6I1954195C 0000240059800?2003140074 machnstlinstr 0184- +6I1954195C 0000240060800?4105001717 60 bma 500 hlt99 1110- +6I1954195C 0000240061800?4201140065 nzb 1f 0163- +6I1954195C 0000240062800?2001900244 stlbasex proci 0436- +6I1954195C 0000240063800?4501160070 nze 1f 0380- +6I1954195C 0000240064800?4000000000 400p 40 0 0 0194- +6I1954195C 0000240065800?4402290001 1 nzu 1 0165- +6I1954195C 0000240066800?6990000648 lod 9000 0209- +6I1954195C 0000240067800?4501210949 nze 1f 0459- +6I1954195C 0000240068800?8100539040 rsa 53 9040 0491- +6I1954195C 0000240069800?2004730676 mastrstltemp 0480- +6I1954195C 0000240070800?9604740777 1 bd6hlt66 777 0382- +6I1954195C 0000240071800?4602270225 bmi3f 0173- +6I1954195C 0000240072800?1490080211 div 9008 0422- +6I1954195C 0000240074800?1001880245 aupoptim 0185- +6I1954195C 0000240075800?1180030083 sup 8003 0144- +6I1954195C 0000240076800?8300010232 proclrsb 1 0375- +6I1954195C 0000240077800?5100050084 sxa 5 0132- +6I1954195C 0000240078800?1090000337 aup 9000 0160- +6I1954195C 0000240079800?6915510340 79 lodo0002 0409- +6I1954195C 0000240080800?4502410587 nze2f 0447- +6I1954195C 0000240081800?4606420635 pnch1bmi9f 2f 0921- +6I1954195C 0000240082800?5000010242 axa 1 0153- +6I1954195C 0000240083800?4500860237 nze 9f 0145- +6I1954195C 0000240084800?4120050000 bma 5 a 0 0133- +6I1954195C 0000240085800?2000460249 1 stl533tl 0129- +6I1954195C 0000240086800?2490000042 std 9000 0146- +6I1954195C 0000240087800?6019540009 aton rau 1954 1f 0138- +6I1954195C 0000240088800?4690039008 88 bmi 9003 1407- +6I1954195C 0000240089800?1580010059 alo 8001 machn 0181- +6I1954195C 0000240090800?0000000000 cdiffalf think 1277- +6I1954195C 0000240091800?9102440062 3 bd1proci 0435- +6I1954195C 0000240092800?6915980751 92 loddiskc 0996- +6I1954195C 0000240093800?0903039018 ldi00001 9018 0387- +6I1954195C 0000240094800?1603990006 2 slon0058 0177- +6I1954195C 0000240095800?6902480051 4 lodldi41 3f 0158- +6I1954195C 0000240096800?0000008999 keepp 00 0 8999 1281- +6I1954195C 0000240097800?2400000001 putagstd 0 1 0140- +6I1954195C 0000240098800?1713980586 98 amls0199 2b 1375- +6I1954195C 0000240099800?7190000348 99 wr1 9000 n0007 1376- +6I1954195C 0000240100800?6080010057 3 rau 8001 0192- +6I1954195C 0000240101800?3500040109 slt 4 0416- +6I1954195C 0000240102800?1602551971 kkkk4slo30005 1240- +6I1954195C 0000240103800?0905560535 ldiz0001 0486- +6I1954195C 0000240104800?2404600524 stdcarry 0385- +6I1954195C 0000240105800?8880030013 rac 8003 0188- +6I1954195C 0000240106800?0901170103 ldiq0001 0485- +6I1954195C 0000240107800?1001130320 aup80xeq 1f 0396- +6I1954195C 0000240108800?8890070216 rac 9007 0662- +6I1954195C 0000240109800?2203140022 sdainstr 0417- +6I1954195C 0000240110800?6502139054 1 ral 2b 0746- +6I1954195C 0000240111800?4708880888 111 bov 888 888 1535- +6I1954195C 0000240112800?9690580221 farblbd6 9058 7f 0640- +6I1954195C 0000240113800?0000000000 80xeqalf think 0408- +6I1954195C 0000240114800?5300010019 sxb 1 0b 0164- +6I1954195C 0000240115800?0000000000 coreqalf think 0407- +6I1954195C 0000240116800?9600690224 bd6mastr hlt77 0381- +6I1954195C 0000240117800?0903039029 9000ldi00001 9029 0518- +6I1954195C 0000240118800?0901500202 9001ldi10001 d 0519- +6I1954195C 0000240119800?4490079008 9002nzu 1f 0493- +6I1954195C 0000240120800?0014930000 q0004 00s0294 0 0579- +6I1954195C 0000240121800?8080010677 raa 8001 0460- +6I1954195C 0000240122800?4719979000 9005bovhlt88d 9000 0512- +6I1954195C 0000240123800?6580030320 q0007ral 8003 1f 0394- +6I1954195C 0000240124800?1590099008 alo90i 1f 0494- +6I1954195C 0000240125800?1180039010 1 sup 8003 0495- +6I1954195C 0000240126800?0000000090 90i 00 0 90 0521- +6I1954195C 0000240127800?8080019011 raa 8001 1f 0496- +6I1954195C 0000240128800?1180039012 1 sup 8003 0497- +6I1954195C 0000240129800?4590139014 nze 1f 0498- +6I1954195C 0000240130800?2490069015 std 9006 0499- +6I1954195C 0000240131800?6580019023 1 ral 8001 0506- +6I1954195C 0000240132800?1590169017 alo100p 0500- +6I1954195C 0000240133800?1000000000 100p 10 0 0 0522- +6I1954195C 0000240134800?4490189019 nzu 2f 0501- +6I1954195C 0000240135800?1180039020 sup 8003 0502- +6I1954195C 0000240136800?5100909028 2 sxa 90 0513- +6I1954195C 0000240137800?3500019021 slt 1 0503- +6I1954195C 0000240138800?1090069022 aup 9006 0504- +6I1954195C 0000240139800?3500019011 slt 1 1b 0505- +6I1954195C 0000240140800?4090249005 nza 9005 0507- +6I1954195C 0000240141800?3000019025 srt 1 0508- +6I1954195C 0000240142800?4701029026 bovkkkk4d 0509- +6I1954195C 0000240143800?1526509027 alor0000a 0510- +6I1954195C 0000240144800?9619949000 bd6hlt44d 9000 0511- +6I1954195C 0000240145800?4106209029 bmasymbld 0514- +6I1954195C 0000240146800?1690309031 slo1b39 0515- +6I1954195C 0000240147800?1000000090 1b39 10 0 90 0523- +6I1954195C 0000240148800?4590329033 nze 9033 0516- +6I1954195C 0000240149800?1690359034 slo 9035 9034 0517- +6I1954195C 0000240150800?0902509001 9001ldi30000 9001 0723- +6I1954195C 0000240151800?0902519002 9002ldi30001 9002 0724- +6I1954195C 0000240152800?0902529005 9003ldi30002 9005 0725- +6I1954195C 0000240153800?1490330491 9004div50i farofd 0699- +6I1954195C 0000240154800?6590399015 9005ral 9039 0668- +6I1954195C 0000240156800?0000000000 modetalf think 1454- +6I1954195C 0000240157800?0000000002 9008 00 0 2 0701- +6I1954195C 0000240158800?1590218002 9009alo 8002 0676- +6I1954195C 0000240159800?4602219003 9010bmi7b 9003 0667- +6I1954195C 0000240160800?1005448003 9011aup d 8003 0684- +6I1954195C 0000240161800?8880029042 9012rac 8002 1f 0715- +6I1954195C 0000240162800?8800009037 9013rac 0 1f 0709- +6I1954195C 0000240163800?8800009037 9014rac 0 1f 0710- +6I1954195C 0000240164800?4290169017 nzb 2f 0669- +6I1954195C 0000240165800?4690189019 bmi1f 0670- +6I1954195C 0000240166800?2090589025 2 stl 9058 0689- +6I1954195C 0000240167800?6003140528 1 rauinstr d 0679- +6I1954195C 0000240168800?9202129020 bd2 d7f 0671- +6I1954195C 0000240169800?3500049017 7 slt 4 2f 0688- +6I1954195C 0000240170800?6500009022 ral 0 0677- +6I1954195C 0000240171800?1504159020 alon0074 7f 0678- +6I1954195C 0000240172800?6990399024 lod 9039 0686- +6I1954195C 0000240173800?9290209017 bd27f 2f 0687- +6I1954195C 0000240174800?6590419026 ral 9041 0690- +6I1954195C 0000240175800?1490080832 div 9008 d 0691- +6I1954195C 0000240176800?6790589029 ram 9058 0693- +6I1954195C 0000240177800?6790589031 4 ram 9058 5f 0696- +6I1954195C 0000240178800?3500029030 slt 2 0694- +6I1954195C 0000240179800?1180039031 sup 8003 5f 0695- +6I1954195C 0000240180800?3000089032 5 srt 8 0697- +6I1954195C 0000240181800?1590419004 alo 9041 9004 0698- +6I1954195C 0000240182800?0000000050 50i 00 0 50 0702- +6I1954195C 0000240183800?1580029035 alo 8002 0705- +6I1954195C 0000240184800?6980069036 lod 8006 0706- +6I1954195C 0000240185800?2402570661 std30007 d 0707- +6I1954195C 0000240186800?1690339038 1 slo50i 0711- +6I1954195C 0000240187800?4690509040 bmi 9050 0712- +6I1954195C 0000240188800?0000000000 optimalf think 1467- +6I1954195C 0000240189800?5800509037 axc 50 1b 0713- +6I1954195C 0000240191800?6077509043 1 raua0001c 0716- +6I1954195C 0000240192800?4490029044 nzu 9002 0717- +6I1954195C 0000240193800?5300019045 sxb 1 0718- +6I1954195C 0000240194800?4290460504 nzb hlt22d 0719- +6I1954195C 0000240195800?5800019042 axc 1 1b 0720- +6I1954195C 0000240196800?6312000617 tles0001 0567- +6I1954195C 0000240197800?6315500214 tleo0001 0171- +6I1954195C 0000240198800?1580029034 9049alo 8002 0704- +6I1954195C 0000240199800?0909179051 9050ldi20001 9051 0714- +6I1954195C 0000240200800?6703780768 200 ramn0037 filll end 1506- +6I1954195C 0000240201800?6502551970 kkkk3ral30005 1237- +6I1954195C 0000240202800?6943070112 loddtaggbfarbld 0520- +6I1954195C 0000240203800?3500020540 1 slt 2 2f 0565- +6I1954195C 0000240204800?6080010611 rau 8001 0562- +6I1954195C 0000240205800?1001150320 aupcoreq 1f 0390- +6I1954195C 0000240206800?8980029042 rsc 8002 0787- +6I1954195C 0000240207800?6919600764 lod 1960 0443- +6I1954195C 0000240208800?4005120616 nza2f 0925- +6I1954195C 0000240209800?6519620067 finisralprogp 0458- +6I1954195C 0000240210800?6903140667 lodinstr 0934- +6I1954195C 0000240211800?4404870537 nzu1f 0423- +6I1954195C 0000240212800?6703140621 raminstr d 0672- +6I1954195C 0000240213800?8490029058 tlu 9002 3b 0747- +6I1954195C 0000240214800?1600170071 sloobase 0172- +6I1954195C 0000240216800?4990499005 bmc 9049 9005 0663- +6I1954195C 0000240217800?6902310492 217 lod coddl 0454- +6I1954195C 0000240218800?6504770081 218 ralfivtg pnch1 0453- +6I1954195C 0000240219800?6504770081 punchralfivtg pnch1 0920- +6I1954195C 0000240220800?8080020236 220 raa 8002 c8xeq 0456- +6I1954195C 0000240221800?6509270494 7 ralcorec 0641- +6I1954195C 0000240222800?4708880888 222 bov 888 888 1536- +6I1954195C 0000240223800?8888888888 keep alfyyyyy think 1544- +6I1954195C 0000240224800?0107770777 hlt77hlt 777 777 1531- +6I1954195C 0000240225800?3000040031 srt 4 8f 0174- +6I1954195C 0000240226800?1602350239 slosudom 0402- +6I1954195C 0000240227800?1503930548 3 alon0052 0182- +6I1954195C 0000240228800?3000010089 srt 1 0180- +6I1954195C 0000240229800?3000040238 srt 4 0166- +6I1954195C 0000240230800?3500080547 symb1slt 8 0560- +6I1954195C 0000240231800?2001150219 stlcoreq 219 0455- +6I1954195C 0000240232800?2101880041 stuoptim 0376- +6I1954195C 0000240233800?4803364897 3 nzcdivid 897 b 0573- +6I1954195C 0000240234800?6780001498 234 ram 8000 d 0721- +6I1954195C 0000240235800?8802000950 sudomrac 200 950 0176- +6I1954195C 0000240236800?6903390492 c8xeqlod coddl 0420- +6I1954195C 0000240237800?1080010095 9 aup 8001 4f 0156- +6I1954195C 0000240238800?4400430094 nzu 2f 0167- +6I1954195C 0000240239800?4504430948 nzeprocd alfot 0403- +6I1954195C 0000240240800?0920000652 240 ldi 0 a 1109- +6I1954195C 0000240241800?1590000008 2 alo 9000 3f 0451- +6I1954195C 0000240242800?1580020054 alo 8002 7f 0154- +6I1954195C 0000240243800?3500060505 slt 6 0399- +6I1954195C 0000240244800?8902560550 procirsc 256 imast 0438- +6I1954195C 0000240245800?4401000549 nzu3f 0186- +6I1954195C 0000240246800?8900010503 rsc 1 0654- +6I1954195C 0000240247800?6519510056 ral 1951 0378- +6I1954195C 0000240248800?0907809006 ldi41ldi40001 9006 1086- +6I1954195C 0000240249800?3000090055 srt 9 0130- +6I1954195C 0000240250800?3000049016 9001srt 4 0752- +6I1954195C 0000240251800?6077509018 9002raua0001c 0755- +6I1954195C 0000240252800?8290089005 9003rab 9008 9005 0769- +6I1954195C 0000240253800?2090069031 9004stl 9006 findx 0771- +6I1954195C 0000240254800?4790309004 9005bov1f 9004 0770- +6I1954195C 0000240256800?0000000000 levelalf think 0804- +6I1954195C 0000240258800?2271969048 9009 sdae0147c 0793- +6I1954195C 0000240259800?2407730001 30009stdramsw 1 1490- +6I1954195C 0000240260800?4608980003 30010bmi 898 3 1305- +6I1954195C 0000240261800?4719660001 30011bov 1 1206- +6I1954195C 0000240262800?9615391739 30012bd61f 1474- +6I1954195C 0000240263800?5640000003 30013wtm 0 b 3 1446- +6I1954195C 0000240264800?9790089014 30014bd7 9008 1095- +6I1954195C 0000240265800?5880029017 axc 8002 0753- +6I1954195C 0000240266800?5800509002 axc 50 9002 0754- +6I1954195C 0000240267800?3600009019 sct 0 0756- +6I1954195C 0000240268800?8280029020 rab 8002 0757- +6I1954195C 0000240269800?3500019021 slt 1 0758- +6I1954195C 0000240270800?3140019022 srd 1 b 0759- +6I1954195C 0000240271800?2177509023 stua0001c 0760- +6I1954195C 0000240272800?6080069024 rau 8006 0761- +6I1954195C 0000240273800?1990259026 mpy50i 0762- +6I1954195C 0000240274800?0000000050 50i 00 0 50 0800- +6I1954195C 0000240275800?8280029027 rab 8002 0763- +6I1954195C 0000240276800?6580070647 ral 8007 d 0764- +6I1954195C 0000240277800?0000000500 500i 00 0 500 0802- +6I1954195C 0000240278800?1580069003 alo 8006 9003 0768- +6I1954195C 0000240279800?4390009050 1 bmb 9000 0796- +6I1954195C 0000240280800?6090079032 findxrau 9007 0772- +6I1954195C 0000240281800?8880019033 rac 8001 0773- +6I1954195C 0000240282800?3000029034 srt 0002 0774- +6I1954195C 0000240283800?1680029035 slo 8002 0775- +6I1954195C 0000240284800?8490119036 tlu 9011 0776- +6I1954195C 0000240285800?1590378002 alo 8002 0777- +6I1954195C 0000240286800?6499990594 64 9999 d 0778- +6I1954195C 0000240287800?6914930596 storelods0294 d 0783- +6I1954195C 0000240288800?6680079040 rsl 8007 0785- +6I1954195C 0000240289800?1490410206 div2i d 0786- +6I1954195C 0000240290800?0000000002 2i 00 0 2 0803- +6I1954195C 0000240291800?1680019043 slo 8001 0788- +6I1954195C 0000240292800?1590069044 alo 9006 0789- +6I1954195C 0000240293800?6971969045 lode0147c 0790- +6I1954195C 0000240294800?4490469047 nzu 2f 0791- +6I1954195C 0000240295800?3500049009 slt 4 9009 0792- +6I1954195C 0000240296800?2371969049 2 siae0147c3f 0795- +6I1954195C 0000240297800?3000049049 srt 4 3f 0794- +6I1954195C 0000240298800?4740029000 3 bov 2 b 9000 0799- +6I1954195C 0000240299800?6916520655 lodo0103 d 0797- +6I1954195C 0000240300800?6780001198 300 ram 8000 0556- +6I1954195C 0000240301800?8880020010 rac 8002 0643- +6I1954195C 0000240302800?4717251975 302 bov3f 1343- +6I1954195C 0000240303800?0000000000 adendalf think 1480- +6I1954195C 0000240304800?6580016300 9001ral 8001 300 c 0604- +6I1954195C 0000240305800?199900000J - 9002 19 9900 1 0583- +6I1954195C 0000240306800?7999800000 9003 79 9980 0 0584- +6I1954195C 0000240309800?8007000001 9006 80 0700 1 0585- +6I1954195C 0000240310800?8999000000 9007 89 9900 0 0586- +6I1954195C 0000240311800?905900000K - 9008 90 5900 2 0587- +6I1954195C 0000240312800?909900000L - 9009 90 9900 3 0588- +6I1954195C 0000240313800?9999000000 9010 99 9900 0 0589- +6I1954195C 0000240315800?6790509027 9012ram 9050 1f 0601- +6I1954195C 0000240316800?8000009014 9013raa 0 9014 0598- +6I1954195C 0000240317800?3000019015 9014srt 1 9015 0599- +6I1954195C 0000240318800?1790509027 9015aml 9050 1f 0600- +6I1954195C 0000240319800?6794049216 9016ram 9004b 9016a 0597- +6I1954195C 0000240320800?1000730030 1 auplincr 0397- +6I1954195C 0000240321800?2090509021 9018stl 9050 0590- +6I1954195C 0000240322800?8080020248 00020raa 8002 ldi41 1085- +6I1954195C 0000240324800?3500069022 slt 6 0591- +6I1954195C 0000240325800?1680029023 slo 8002 0592- +6I1954195C 0000240326800?8490029024 tlu 9002 0593- +6I1954195C 0000240327800?1590258002 alo 8002 0594- +6I1954195C 0000240328800?8000009026 raa 0 0595- +6I1954195C 0000240329800?4190169012 bma 9016 9012 0596- +6I1954195C 0000240330800?6980039028 1 lod 8003 0602- +6I1954195C 0000240331800?2390509001 sia 9050 9001 0603- +6I1954195C 0000240332800?8890319018 9029rac 9031 9018 0582- +6I1954195C 0000240333800?2119620999 333 stuprogp reada 1542- +6I1954195C 0000240335800?6916880341 lodo0139 0462- +6I1954195C 0000240336800?1405391199 dividdiv2d 0574- +6I1954195C 0000240337800?6916400051 lodo0091 3f 0161- +6I1954195C 0000240338800?2001150034 stlcoreq 34 0432- +6I1954195C 0000240339800?8880020072 rac 8002 0421- +6I1954195C 0000240340800?2404600069 stdcarry mastr 0410- +6I1954195C 0000240341800?2324450058 siab0000a 0463- +6I1954195C 0000240342800?2419540498 n0001 24 1954 0498 nop 0813- +6I1954195C 0000240343800?6916545498 n0002 69 1654 5498 hlt 0814- +6I1954195C 0000240344800?0303232299 n0003 03 0323 2299 ufa 0815- +6I1954195C 0000240345800?4401050598 n0004 44 0105 0598 rtc 0816- +6I1954195C 0000240346800?8000050598 n0005 80 0005 0598 rtn 0817- +6I1954195C 0000240347800?2103050598 n0006 21 0305 0598 rta 0818- +6I1954195C 0000240348800?4000055598 n0007 40 0005 5598 wtn 0819- +6I1954195C 0000240349800?1505050598 n0008 15 0505 0598 wta 0820- +6I1954195C 0000240350800?0303121299 n0009 03 0312 1299 lib 0821- +6I1954195C 0000240351800?0303020299 n0010 03 0302 0299 ldi 0822- +6I1954195C 0000240352800?0303050499 n0011 03 0305 0499 aup 0823- +6I1954195C 0000240353800?0303050499 n0012 03 0305 0499 sup 0824- +6I1954195C 0000240354800?4800980099 n0013 48 0098 0099 0825- +6I1954195C 0000240355800?0908004099 n0014 09 0800 4099 0826- +6I1954195C 0000240356800?0303111099 n0015 03 0311 1099 div 0827- +6I1954195C 0000240357800?0303050499 n0016 03 0305 0499 alo 0828- +6I1954195C 0000240358800?0303050499 n0017 03 0305 0499 slo 0829- +6I1954195C 0000240359800?0303050499 n0018 03 0305 0499 aml 0830- +6I1954195C 0000240360800?0303050499 n0019 03 0305 0499 sml 0831- +6I1954195C 0000240361800?0303212099 n0020 03 0321 2099 mpy 0832- +6I1954195C 0000240362800?0504030399 n0021 05 0403 0399 stl 0833- +6I1954195C 0000240363800?0405030399 n0022 04 0503 0399 stu 0834- +6I1954195C 0000240364800?0304030399 n0023 03 0403 0399 sda 0835- +6I1954195C 0000240365800?0304030399 n0024 03 0403 0399 sia 0836- +6I1954195C 0000240366800?0303030399 n0025 03 0303 0399 std 0837- +6I1954195C 0000240367800?0404050598 n0026 04 0405 0598 nts 0838- +6I1954195C 0000240368800?4905050598 n0027 49 0505 0598 bin 0839- +6I1954195C 0000240369800?9800050598 n0028 98 0005 0598 set 0840- +6I1954195C 0000240370800?0303121299 n0029 03 0312 1299 sib 0841- +6I1954195C 0000240371800?0303020299 n0030 03 0302 0299 sti 0842- +6I1954195C 0000240372800?009090909Q -n0031 00 9090 9098 srt 0843- +6I1954195C 0000240373800?651200008Q -n0032 65 1200 0088 srd 0844- +6I1954195C 0000240374800?0303272699 n0033 03 0327 2699 fad 0845- +6I1954195C 0000240375800?0303272699 n0034 03 0327 2699 fsb 0846- +6I1954195C 0000240376800?0303414099 n0035 03 0341 4099 fdv 0847- +6I1954195C 0000240377800?000000009Q -n0036 00 0000 0098 slt 0848- +6I1954195C 0000240378800?000400989Q -n0037 00 0400 9898 sct 0849- +6I1954195C 0000240379800?0303272699 n0038 03 0327 2699 fam 0850- +6I1954195C 0000240380800?0303272699 n0039 03 0327 2699 fsm 0851- +6I1954195C 0000240381800?0303474699 n0040 03 0347 4699 fmp 0852- +6I1954195C 0000240382800?0303040498 n0041 03 0304 0498 nza 0853- +6I1954195C 0000240383800?0303040498 n0042 03 0304 0498 bma 0854- +6I1954195C 0000240384800?0303040498 n0043 03 0304 0498 nzb 0855- +6I1954195C 0000240385800?0303040498 n0044 03 0304 0498 bmb 0856- +6I1954195C 0000240386800?0304040598 n0045 03 0404 0598 nzu 0857- +6I1954195C 0000240387800?0403050498 n0046 04 0305 0498 nze 0858- +6I1954195C 0000240388800?0303040498 n0047 03 0304 0498 bmi 0859- +6I1954195C 0000240389800?0303050598 n0048 03 0305 0598 bov 0860- +6I1954195C 0000240390800?0303040498 n0049 03 0304 0498 nzc 0861- +6I1954195C 0000240391800?0303040498 n0050 03 0304 0498 bmc 0862- +6I1954195C 0000240392800?7999999988 n0051 79 9999 9988 axa 0863- +6I1954195C 0000240393800?0001000588 n0052 00 0100 0588 sxa 0864- +6I1954195C 0000240394800?6514930088 n0053 65 1493 0088 axb 0865- +6I1954195C 0000240395800?1990050588 n0054 19 9005 0588 sxb 0866- +6I1954195C 0000240396800?0404050598 n0055 04 0405 0598 nef 0867- +6I1954195C 0000240397800?4040050598 n0056 40 4005 0598 rwd 0868- +6I1954195C 0000240398800?0000050598 n0057 00 0005 0598 wtm 0869- +6I1954195C 0000240399800?9089555598 n0058 90 8955 5598 bst 0870- +6I1954195C 0000240400800?7999949588 n0059 79 9994 9588 axc 0871- +6I1954195C 0000240401800?2477500488 n0060 24 7750 0488 sxc 0872- +6I1954195C 0000240402800?0303050499 n0061 03 0305 0499 rau 0873- +6I1954195C 0000240403800?0303050499 n0062 03 0305 0499 rsu 0874- +6I1954195C 0000240404800?0014991499 n0063 00 1499 1499 0875- +6I1954195C 0000240405800?0303151699 n0064 03 0315 1699 tle 0876- +6I1954195C 0000240406800?0303111099 n0065 03 0311 1099 dvr 0877- +6I1954195C 0000240407800?0303050499 n0066 03 0305 0499 ral 0878- +6I1954195C 0000240408800?0303050499 n0067 03 0305 0499 rsl 0879- +6I1954195C 0000240409800?0303050499 n0068 03 0305 0499 ram 0880- +6I1954195C 0000240410800?0303050499 n0069 03 0305 0499 rsm 0881- +6I1954195C 0000240411800?0303030399 n0070 03 0303 0399 lod 0882- +6I1954195C 0000240412800?2322252498 n0071 23 2225 2498 rd1 0883- +6I1954195C 0000240413800?0706070698 n0072 07 0607 0698 wr1 0884- +6I1954195C 0000240414800?0706090898 n0073 07 0609 0898 rc1 0885- +6I1954195C 0000240415800?0908111098 n0074 09 0811 1098 rd2 0886- +6I1954195C 0000240416800?1110131298 n0075 11 1013 1298 wr2 0887- +6I1954195C 0000240417800?1312151498 n0076 13 1215 1498 rc2 0888- +6I1954195C 0000240418800?1514171698 n0077 15 1417 1698 rd3 0889- +6I1954195C 0000240419800?1716191898 n0078 17 1619 1898 wr3 0890- +6I1954195C 0000240420800?1918212098 n0079 19 1821 2098 rc3 0891- +6I1954195C 0000240421800?2120232298 n0080 21 2023 2298 rpy 0892- +6I1954195C 0000240422800?8000969788 n0081 80 0096 9788 raa 0893- +6I1954195C 0000240423800?8001949588 n0082 80 0194 9588 rsa 0894- +6I1954195C 0000240424800?8002979788 n0083 80 0297 9788 rab 0895- +6I1954195C 0000240425800?8003969888 n0084 80 0396 9888 rsb 0896- +6I1954195C 0000240426800?0303151699 n0085 03 0315 1699 tlu 0897- +6I1954195C 0000240427800?2449050598 n0086 24 4905 0598 sds 0898- +6I1954195C 0000240428800?6080050598 n0087 60 8005 0598 rds 0899- +6I1954195C 0000240429800?3905050598 n0088 39 0505 0598 wds 0900- +6I1954195C 0000240430800?9059969788 -n0089 90 5996 9788 rac 0901- +6I1954195C 0000240431800?9999999988 n0090 99 9999 9988 rsc 0902- +6I1954195C 0000240432800?0404050598 n0091 04 0405 0598 bd0 0903- +6I1954195C 0000240433800?0303050598 n0092 03 0305 0598 bd1 0904- +6I1954195C 0000240434800?0303050598 -n0093 03 0305 0598 bd2 0905- +6I1954195C 0000240435800?0303050598 -n0094 03 0305 0598 bd3 0906- +6I1954195C 0000240436800?0303050598 n0095 03 0305 0598 bd4 0907- +6I1954195C 0000240437800?0303050598 n0096 03 0305 0598 bd5 0908- +6I1954195C 0000240438800?0303050598 n0097 03 0305 0598 bd6 0909- +6I1954195C 0000240439800?0303050598 n0098 03 0305 0598 bd7 0910- +6I1954195C 0000240440800?0303050598 n0099 03 0305 0598 bd8 0911- +6I1954195C 0000240441800?0404050598 n0100 04 0405 0598 bd9 0912- +6I1954195C 0000240442800?8300010998 lmastrsb 1 lmst2 0404- +6I1954195C 0000240443800?8902550649 procdrsc 255 dmast 0412- +6I1954195C 0000240444800?6913991544 444 lods0200 dump8 1537- +6I1954195C 0000240445800?0000800000 - +6I1954195C 0000240446800?0000800000 - +6I1954195C 0000240447800?0000800000 - +6I1954195C 0000240448800?0000800000 - +6I1954195C 0000240449800?0000800000 - +6I1954195C 0000240450800?0000800000 - +6I1954195C 0000240451800?0000800000 - +6I1954195C 0000240452800?0000800000 - +6I1954195C 0000240453800?0000800000 - +6I1954195C 0000240454800?0000800000 - +6I1954195C 0000240455800?6919601013 455 lod 1960 1217- +6I1954195C 0000240456800?1502550759 456 alo30005 1222- +6I1954195C 0000240457800?4017170322 457 nzahlt99 00020 1084- +6I1954195C 0000240458800?4017170323 458 nzahlt99 exit0 1083- +6I1954195C 0000240459800?1608971501 459 slo1ixxx 1257- +6I1954195C 0000240460800?8888888888 carryalfyyyyy think 0406- +6I1954195C 0000240461800?6519530708 461 ral 1953 1076- +6I1954195C 0000240462800?1607801035 462 slofwaxx 1264- +6I1954195C 0000240463800?4110161717 463 bma hlt99 1078- +6I1954195C 0000240464800?2007801533 464 stlfwaxx 1262- +6I1954195C 0000240465800?1608970802 465 slo1ixxx 1292- +6I1954195C 0000240466800?1608970902 466 slo1ixxx 1296- +6I1954195C 0000240467800?0119961996 467 hlt 1996 1996 1303- +6I1954195C 0000240468800?8280020263 468 rab 8002 30013 1445- +6I1954195C 0000240469800?2003231736 469 stlexit0 1457- +6I1954195C 0000240470800?3500041986 470 slt 4 1459- +6I1954195C 0000240471800?2003231988 471 stlexit0 1470- +6I1954195C 0000240472800?8880021039 472 rac 8002 1472- +6I1954195C 0000240474800?0106660666 hlt66hlt 666 666 1530- +6I1954195C 0000240475800?4705900530 bovequsy 0569- +6I1954195C 0000240477800?888888888Q -fivtgalfyyyyy think 1042- +6I1954195C 0000240485800?0000000000 50009alf think 1040- +6I1954195C 0000240486800?0088000000 50010 00 8800 0 1041- +6I1954195C 0000240487800?5190090493 1 sxa 9009 2f 0425- +6I1954195C 0000240488800?5200021004 488 axb 2 1004 1389- +6I1954195C 0000240489800?4910489005 bmc 9005 0488- +6I1954195C 0000240490800?3500021149 slt 2 0483- +6I1954195C 0000240491800?6580039049 farofral 8003 9049 0700- +6I1954195C 0000240492800?2790010597 coddlset 9001 0659- +6I1954195C 0000240493800?4000520497 2 nza1f 0426- +6I1954195C 0000240494800?1508970301 alo1ixxx 0642- +6I1954195C 0000240495800?6915510104 lodo0002 0384- +6I1954195C 0000240496800?0977509055 ldia0001chld 0735- +6I1954195C 0000240497800?5800010052 axc 1 1f 0427- +6I1954195C 0000240498800?2119531036 498 stu 1953 1396- +6I1954195C 0000240499800?1680020007 slo 8002 0169- +6I1954195C 0000240500800?6980050756 500 lod 8005 7f 1070- +6I1954195C 0000240501800?2002560509 stllevel d 0780- +6I1954195C 0000240502800?2490490108 std 9049 0661- +6I1954195C 0000240503800?6759589004 ram 1958b 9004 0655- +6I1954195C 0000240504800?0169970222 hlt22hlt 997 c 222 1526- +6I1954195C 0000240505800?2019610018 stllocat 0400- +6I1954195C 0000240506800?2403140730 stdinstr 8f 0956- +6I1954195C 0000240507800?6904600615 lodcarry 0471- +6I1954195C 0000240508800?6900270840 lod90002 0990- +6I1954195C 0000240509800?5902930915 sxc 293 d 0781- +6I1954195C 0000240510800?4006840946 nzacorof 0980- +6I1954195C 0000240511800?2402150674 stdkee 0466- +6I1954195C 0000240512800?1609190673 2 slo20003 0932- +6I1954195C 0000240513800?0000800000 f0000alfyyyyy think 0607- +6I1954195C 0000240514800?0000800000 - +6I1954195C 0000240515800?0000800000 - +6I1954195C 0000240516800?0000800000 - +6I1954195C 0000240517800?0000800000 - +6I1954195C 0000240518800?0000800000 - +6I1954195C 0000240519800?0000800000 - +6I1954195C 0000240520800?0000800000 - +6I1954195C 0000240521800?0000800000 - +6I1954195C 0000240522800?0000800000 - +6I1954195C 0000240523800?3500049011 slt 4 9011 0683- +6I1954195C 0000240524800?2790000093 set 9000 0386- +6I1954195C 0000240525800?4207780504 nzb hlt22 0741- +6I1954195C 0000240526800?7019991998 ssoutrd1 1999 start 0474- +6I1954195C 0000240527800?6590110241 ral 9011 2f 0445- +6I1954195C 0000240528800?3500050638 slt 5 d 0680- +6I1954195C 0000240529800?1680020592 slo 8002 d 0674- +6I1954195C 0000240530800?4602330534 bmi3f 0570- +6I1954195C 0000240531800?1531969039 aloe0147a 9039 0577- +6I1954195C 0000240532800?2001880542 stloptim 0468- +6I1954195C 0000240533800?4603230637 bmiexit0 0950- +6I1954195C 0000240534800?4990010538 bmc 9001 0571- +6I1954195C 0000240535800?4590020489 nze 9002 0487- +6I1954195C 0000240536800?6980020643 lod 8002 0652- +6I1954195C 0000240537800?5190110493 sxa 9011 2f 0424- +6I1954195C 0000240538800?4819954896 nzchlt55 896 b 0572- +6I1954195C 0000240539800?0000020000 2d 00 2 0 0578- +6I1954195C 0000240540800?2414930196 2 stds0294 0566- +6I1954195C 0000240541800?4806450110 nzc 1f 0744- +6I1954195C 0000240542800?2100961049 stukeepp 0469- +6I1954195C 0000240543800?9690580221 faronbd6 9058 7f 0639- +6I1954195C 0000240544800?6504129023 raln0071 0685- +6I1954195C 0000240545800?1507980320 aloddiff 1f 0392- +6I1954195C 0000240546800?1580039029 alo 8003 0767- +6I1954195C 0000240547800?4402030204 nzu1f 0561- +6I1954195C 0000240548800?3500040059 slt 4 machn 0183- +6I1954195C 0000240549800?3500020105 slt 2 0187- +6I1954195C 0000240550800?6519530664 imastral 1953 imst1 0439- +6I1954195C 0000240551800?4406840208 nzucorof 0924- +6I1954195C 0000240552800?1019610629 auplocat 0939- +6I1954195C 0000240553800?1990280546 mpy500i d 0766- +6I1954195C 0000240554800?4760006000 9 bov 0 c 0 c 1036- +6I1954195C 0000240555800?7019991998 555 rd1 1999 start 1543- +6I1954195C 0000240556800?4702019049 9033bovkkkk3d 0536- +6I1954195C 0000240557800?4590419042 9034nze 4f 0527- +6I1954195C 0000240558800?6200000000 9035alfb think 0526- +6I1954195C 0000240559800?6525139050 9036ralf0000a2f 0540- +6I1954195C 0000240560800?6507809000 9037rallocus 9000 0539- +6I1954195C 0000240561800?6507809000 9038rallocus 9000 0538- +6I1954195C 0000240562800?4490539000 9039nzu3f 9000 0544- +6I1954195C 0000240563800?3600019001 9040sct 1 9001 0535- +6I1954195C 0000240564800?1690439044 slo4op 0528- +6I1954195C 0000240565800?4702019051 4 bovkkkk3 0541- +6I1954195C 0000240566800?0400000000 4op 04 0 0 0552- +6I1954195C 0000240567800?4506209045 nzesymbl 0529- +6I1954195C 0000240568800?4706509046 bovkkkk2d 0530- +6I1954195C 0000240569800?6525139059 ralf0000a 9059 0531- +6I1954195C 0000240570800?4990481995 bmc hlt55d 0533- +6I1954195C 0000240571800?4319979040 bmbhlt88 9040 0534- +6I1954195C 0000240572800?4994371995 bmc 9037bhlt55 0537- +6I1954195C 0000240573800?3500049054 2 slt 4 0546- +6I1954195C 0000240574800?6524459052 ralb0000a 0542- +6I1954195C 0000240575800?9619979000 bd6hlt88 9000 0543- +6I1954195C 0000240576800?3000049000 3 srt 4 9000 0545- +6I1954195C 0000240577800?1580059055 alo 8005 0547- +6I1954195C 0000240578800?6915519056 lodo0002 0548- +6I1954195C 0000240579800?2425130605 stdf0000a d 0549- +6I1954195C 0000240580800?4806070829 nzcfarind 829 0554- +6I1954195C 0000240581800?8890079057 9058rac 9007 0553- +6I1954195C 0000240582800?9690479000 9059bd6 9000 0532- +6I1954195C 0000240583800?2052480602 stldiskrb 0978- +6I1954195C 0000240584800?5900600640 sxc 60 0647- +6I1954195C 0000240585800?0000000000 ccnt1alf think 1039- +6I1954195C 0000240586800?6939500903 2 loda0201a 1369- +6I1954195C 0000240587800?1590000595 alo 9000 0448- +6I1954195C 0000240588800?1908979014 588 mpy1ixxx 1419- +6I1954195C 0000240589800?1508970761 alo1ixxx 0927- +6I1954195C 0000240590800?3690060760 equsysct 9006 1230- +6I1954195C 0000240591800?1001570892 aup10008 0971- +6I1954195C 0000240592800?8404009009 tlun0059 9009 0675- +6I1954195C 0000240593800?1076109010 aupo0061c 9010 0649- +6I1954195C 0000240594800?1590070501 alo 9007 d 0779- +6I1954195C 0000240595800?4500080799 nze3f 0449- +6I1954195C 0000240596800?2474939039 stds0294c 0784- +6I1954195C 0000240597800?0901500502 ldi10001 0660- +6I1954195C 0000240598800?1090049013 598 aup 9004 1416- +6I1954195C 0000240599800?6519540066 ral 1954 0208- +6I1954195C 0000240600800?2390110207 alfinsia 9011 0442- +6I1954195C 0000240601800?4506840705 nzecorof 0944- +6I1954195C 0000240602800?8790000510 wds 9000 0979- +6I1954195C 0000240603800?6504770533 ralfivtg 0949- +6I1954195C 0000240604800?2919570770 sti 1957 1015- +6I1954195C 0000240605800?2019620765 stlprogp d 0550- +6I1954195C 0000240606800?6915980651 coronloddiskc 0987- +6I1954195C 0000240607800?6519600824 farinral 1960 farsw 0650- +6I1954195C 0000240608800?8000000600 raa 0 alfin 1062- +6I1954195C 0000240609800?2401130034 609 std80xeq 34 0429- +6I1954195C 0000240610800?2401130219 610 std80xeq 219 0430- +6I1954195C 0000240611800?1009140769 aup0000h 0563- +6I1954195C 0000240612800?4703230659 bovexit0 0930- +6I1954195C 0000240613800?2052480911 stldiskrb 0982- +6I1954195C 0000240614800?8200000069 dmst1rab 0 mastr 0414- +6I1954195C 0000240615800?2402230526 stdkeep ssout 0472- +6I1954195C 0000240616800?6504850589 ral50009 0926- +6I1954195C 0000240617800?1601200475 sloq0004 0568- +6I1954195C 0000240618800?2009270630 stlcorec 0645- +6I1954195C 0000240619800?4600240023 bmi 2f 0151- +6I1954195C 0000240620800?6004730230 symblrautemp symb1 0559- +6I1954195C 0000240621800?3500020529 slt 2 d 0673- +6I1954195C 0000240622800?6690110080 1 rsl 9011 0446- +6I1954195C 0000240623800?0000038002 c0001 00 0003 8002 bop 1354- +6I1954195C 0000240624800?0000038562 c0002 00 0003 8562 fil 1355- +6I1954195C 0000240625800?0000038522 c0003 00 0003 8522 dek 1356- +6I1954195C 0000240626800?0000038382 c0004 00 0003 8382 tap 1357- +6I1954195C 0000240627800?0000038352 c0005 00 0003 8352 dsk 1358- +6I1954195C 0000240628800?0000038362 c0006 00 0003 8362 cdd 1359- +6I1954195C 0000240629800?2004840697 stl50008 0940- +6I1954195C 0000240630800?4990030584 bmc 9003 0646- +6I1954195C 0000240631800?6504841549 ral50008 0936- +6I1954195C 0000240632800?2403340490 std00032 0482- +6I1954195C 0000240633800?3000020639 srt 2 1025- +6I1954195C 0000240634800?5901500541 sxc 150 0743- +6I1954195C 0000240635800?8080010693 2 raa 8001 0922- +6I1954195C 0000240636800?2096080894 stl 9008c 1371- +6I1954195C 0000240637800?8080010842 raa 8001 0951- +6I1954195C 0000240638800?3000090700 srt 9 d 0681- +6I1954195C 0000240639800?2290470706 sda 9047 1026- +6I1954195C 0000240640800?4905939003 bmc 9003 0648- +6I1954195C 0000240641800?2405260001 stdssout 1 1348- +6I1954195C 0000240642800?6500460601 9 ral533tl 0943- +6I1954195C 0000240643800?9402466828 bd4 828 c 0653- +6I1954195C 0000240644800?6919610895 lodlocat 0974- +6I1954195C 0000240645800?5802000110 axc 200 1f 0745- +6I1954195C 0000240646800?4707300642 bov8f 9f 0942- +6I1954195C 0000240647800?1407500553 div4i d d 0765- +6I1954195C 0000240648800?2319540000 sia 1954 0 0210- +6I1954195C 0000240649800?6519520614 dmastral 1952 dmst1 0413- +6I1954195C 0000240650800?6502551968 kkkk2ral30005 1234- +6I1954195C 0000240651800?8590001015 sds 9000 0988- +6I1954195C 0000240652800?0915059025 ldiv0001 9025 1120- +6I1954195C 0000240653800?8690000695 - rds 9000 0969- +6I1954195C 0000240654800?6906581012 - lodsub1u blr1 1066- +6I1954195C 0000240655800?2325139000 siaf0000a 9000 0798- +6I1954195C 0000240656800?2790570930 set 9057 1012- +6I1954195C 0000240657800?4107670323 bma exit0 0954- +6I1954195C 0000240658800?8008440240 -sub1uraat0001 240 1117- +6I1954195C 0000240659800?6516120635 - ralfivon 2b 0931- +6I1954195C 0000240660800?6519520608 1 ral 1952 1061- +6I1954195C 0000240661800?8200049613 rab 4 9013c 0708- +6I1954195C 0000240662800?4607760685 ramonbmi corsw 0963- +6I1954195C 0000240663800?8880029026 rac 8002 9026 1138- +6I1954195C 0000240664800?8200010069 imst1rab 1 mastr 0440- +6I1954195C 0000240665800?9600689000 bd6 9000 0490- +6I1954195C 0000240666800?2404601744 666 stdcarry 1540- +6I1954195C 0000240667800?2424770631 std50001a 0935- +6I1954195C 0000240668800?0000800000 r0018 00 0080 0000 0614- +6I1954195C 0000240669800?0000800000 r0019 00 0080 0000 0615- +6I1954195C 0000240670800?0000800000 r0020 00 0080 0000 0616- +6I1954195C 0000240671800?2390492028 sia 9049 90003a 1035- +6I1954195C 0000240672800?2090481030 stl 9048 1019- +6I1954195C 0000240673800?2004770210 stlfivtg 0933- +6I1954195C 0000240674800?6009270532 raucorec 0467- +6I1954195C 0000240675800?4519811032 nze 1f 1325- +6I1954195C 0000240676800?6980070632 lod 8007 0481- +6I1954195C 0000240677800?6507800335 rallocus 0461- +6I1954195C 0000240678800?0000800000 r0028 00 0080 0000 0617- +6I1954195C 0000240679800?0000800000 r0029 00 0080 0000 0618- +6I1954195C 0000240680800?0000800000 r0030 00 0080 0000 0619- +6I1954195C 0000240681800?0000800000 r0031 00 0080 0000 0620- +6I1954195C 0000240682800?6705859004 ramccnt1 9004 0657- +6I1954195C 0000240683800?3500020939 slt 2 1029- +6I1954195C 0000240684800?8802090890 corofracfinis prone 1000- +6I1954195C 0000240685800?8802090890 corswracfinis prone 1001- +6I1954195C 0000240686800?1919510836 mpy 1951 1383- +6I1954195C 0000240687800?1090491495 aup 9049 1021- +6I1954195C 0000240688800?0000800000 r0038 00 0080 0000 0621- +6I1954195C 0000240689800?0000800000 r0039 00 0080 0000 0622- +6I1954195C 0000240690800?6552480653 2 raldiskrb 0968- +6I1954195C 0000240691800?2012481502 stldiskr 1483- +6I1954195C 0000240692800?3000040552 srt 4 0938- +6I1954195C 0000240693800?1000460551 aup533tl 0923- +6I1954195C 0000240694800?1508970604 alo1ixxx 1014- +6I1954195C 0000240695800?3500020591 slt 2 0970- +6I1954195C 0000240696800?3000060755 srt 6 0958- +6I1954195C 0000240697800?2104830646 stu50007 0941- +6I1954195C 0000240698800?0000800000 r0048 00 0080 0000 0623- +6I1954195C 0000240699800?0000800000 r0049 00 0080 0000 0624- +6I1954195C 0000240700800?6080030523 rau 8003 d 0682- +6I1954195C 0000240701800?6903148002 lodinstr 8002 0994- +6I1954195C 0000240702800?2000900831 stlcdiff 2f 1269- +6I1954195C 0000240703800?3000030762 srt 3 1023- +6I1954195C 0000240704800?2424230001 stdf9910a 1 1248- +6I1954195C 0000240705800?6519610766 rallocat 0945- +6I1954195C 0000240706800?6903141018 lodinstr 1027- +6I1954195C 0000240707800?2319610219 sialocat punch 0961- +6I1954195C 0000240708800?8801630664 rac 163 imst1 1077- +6I1954195C 0000240709800?6980030671 lod 8003 1034- +6I1954195C 0000240710800?8200091716 5 rab 9 1202- +6I1954195C 0000240711800?0000800000 - +6I1954195C 0000240712800?0000800000 - +6I1954195C 0000240713800?0000800000 - +6I1954195C 0000240714800?0000800000 - +6I1954195C 0000240715800?0000800000 - +6I1954195C 0000240716800?0000800000 - +6I1954195C 0000240717800?0000800000 - +6I1954195C 0000240718800?0000800000 - +6I1954195C 0000240719800?0000800000 - +6I1954195C 0000240720800?2492000583 std 9000a 0977- +6I1954195C 0000240721800?0000800000 - +6I1954195C 0000240722800?0000800000 - +6I1954195C 0000240723800?0000800000 - +6I1954195C 0000240724800?0000800000 - +6I1954195C 0000240725800?0000800000 - +6I1954195C 0000240726800?0000800000 - +6I1954195C 0000240727800?0000800000 - +6I1954195C 0000240728800?0000800000 - +6I1954195C 0000240729800?0000800000 - +6I1954195C 0000240730800?6504830696 8 ral50007 0957- +6I1954195C 0000240731800?4608340835 bmiramn0 ramn1 0965- +6I1954195C 0000240732800?0000800000 - +6I1954195C 0000240733800?0000800000 - +6I1954195C 0000240734800?0000800000 - +6I1954195C 0000240735800?0000800000 - +6I1954195C 0000240736800?0000800000 - +6I1954195C 0000240737800?0000800000 - +6I1954195C 0000240738800?0000800000 - +6I1954195C 0000240739800?0000800000 - +6I1954195C 0000240740800?0000800000 - +6I1954195C 0000240741800?0000800000 - +6I1954195C 0000240742800?0000800000 - +6I1954195C 0000240743800?0000800000 - +6I1954195C 0000240744800?0000800000 - +6I1954195C 0000240745800?0000800000 - +6I1954195C 0000240746800?0000800000 - +6I1954195C 0000240747800?0000800000 - +6I1954195C 0000240748800?0000800000 - +6I1954195C 0000240749800?0000800000 - +6I1954195C 0000240750800?0000000004 4i 00 0 4 0801- +6I1954195C 0000240751800?8790000684 wds 9000 corof 0997- +6I1954195C 0000240752800?2401121124 2 stdfarbl 1274- +6I1954195C 0000240753800?8900080586 7 rsc 8 2f 1368- +6I1954195C 0000240754800?6959600401 1 lod 1960bn0060 1387- +6I1954195C 0000240755800?3600061548 sct 6 0959- +6I1954195C 0000240756800?2419611714 7 stdlocat 1071- +6I1954195C 0000240757800?9208301017 bd29f 1004- +6I1954195C 0000240758800?4507630913 nze 1f 1215- +6I1954195C 0000240759800?1017138001 aup 8001 1223- +6I1954195C 0000240760800?0902550910 ldi30005 1231- +6I1954195C 0000240761800?2004850838 stl50009 0928- +6I1954195C 0000240762800?4709160633 bov1f 1024- +6I1954195C 0000240763800?8801550664 rac 155 imst1 1216- +6I1954195C 0000240764800?9606220527 bd61f 0444- +6I1954195C 0000240765800?9090409053 bd0 9040 3b 0551- +6I1954195C 0000240766800?1603680773 slon0027 ramsw 0946- +6I1954195C 0000240767800?6924830506 lod50007a 0955- +6I1954195C 0000240768800?2003230603 filllstlexit0 0948- +6I1954195C 0000240769800?1180030540 sup 8003 2f 0564- +6I1954195C 0000240770800?2305850940 siaccnt1 1016- +6I1954195C 0000240771800?8300011977 rsb 1 1225- +6I1954195C 0000240772800?6590039059 ral 9003 1b 1208- +6I1954195C 0000240773800?4606840685 ramswbmicorof corsw 0985- +6I1954195C 0000240774800?6180030531 rsu 8003 0576- +6I1954195C 0000240775800?3000031983 srt 3 1337- +6I1954195C 0000240776800?1504290731 alon0088 0964- +6I1954195C 0000240777800?6580010495 777 ral 8001 0383- +6I1954195C 0000240778800?5300010634 sxb 1 0742- +6I1954195C 0000240779800?8080030938 raa 8003 1246- +6I1954195C 0000240781800?5090059009 9006axa 9005 1088- +6I1954195C 0000240782800?8000599022 9007raa 59 1105- +6I1954195C 0000240783800?6990179016 9008lod3f 4f 1097- +6I1954195C 0000240784800?4117179010 bmahlt99 1089- +6I1954195C 0000240785800?8210009011 rab 1000 1090- +6I1954195C 0000240786800?5380019012 sxb 8001 1091- +6I1954195C 0000240787800?6690069013 rsl 9006 1092- +6I1954195C 0000240788800?2015300933 stlblrtgd d 1093- +6I1954195C 0000240789800?6990159016 lod2f 4f 1096- +6I1954195C 0000240790800?6855509018 2 rsmo0001b1f 1099- +6I1954195C 0000240791800?2490598001 4 std 9059 8001 1098- +6I1954195C 0000240792800?6755509018 3 ramo0001b1f 1100- +6I1954195C 0000240793800?2055509019 1 stlo0001b 1101- +6I1954195C 0000240794800?4090200001 nza 1 1102- +6I1954195C 0000240795800?5100019021 sxa 1 1103- +6I1954195C 0000240796800?5200019059 axb 1 9059 1104- +6I1954195C 0000240797800?8200009008 rab 0 9008 1106- +6I1954195C 0000240798800?0000000000 ddiffalf think 1288- +6I1954195C 0000240799800?6190010008 rsu 9001 3f 0450- +6I1954195C 0000240800800?6516530342 800 ralo0104 n0001 1394- +6I1954195C 0000240801800?6703739006 9001ramn0032 2f 1403- +6I1954195C 0000240802800?2005850999 stlccnt1 reada 1293- +6I1954195C 0000240803800?5300019020 9003sxb 1 1426- +6I1954195C 0000240804800?0000010000 9004 00 1 0 1429- +6I1954195C 0000240805800?0000000010 9005 00 0 10 1430- +6I1954195C 0000240806800?4290070999 2 nzb reada 1404- +6I1954195C 0000240807800?2090028001 stl 9002 8001 1405- +6I1954195C 0000240808800?2419519009 std 1951 1408- +6I1954195C 0000240809800?6590029010 ral 9002 1409- +6I1954195C 0000240810800?1603940336 slon0053 divid 1410- +6I1954195C 0000240811800?3000049012 srt 4 1f 1413- +6I1954195C 0000240812800?8080020428 1 raa 8002 n0087 1414- +6I1954195C 0000240813800?3000010395 srt 1 n0054 1417- +6I1954195C 0000240814800?3000029015 srt 2 1420- +6I1954195C 0000240815800?4403959016 nzun0054 1421- +6I1954195C 0000240816800?1803729017 smln0031 1422- +6I1954195C 0000240817800?3000019018 srt 1 1423- +6I1954195C 0000240818800?2019529019 stl 1952 sprud 1424- +6I1954195C 0000240819800?8909970976 sprudrsc 997 psudo 1425- +6I1954195C 0000240820800?6590029021 ral 9002 1427- +6I1954195C 0000240821800?1590049006 alo 9004 2b 1428- +6I1954195C 0000240822800?2326504002 siar0000a 2 b 1242- +6I1954195C 0000240823800?0000038622 c0201 00 0003 8622 pal 1360- +6I1954195C 0000240824800?3540010536 farswslt 1 b 0651- +6I1954195C 0000240825800?2017321735 stldumpc 1340- +6I1954195C 0000240826800?0000000049 49i 00 0 49 1205- +6I1954195C 0000240827800?0140020111 hlt11hlt 2 b 111 1525- +6I1954195C 0000240828800?6919611964 lodlocat 1081- +6I1954195C 0000240829800?4306829005 829 bmb 9005 0656- +6I1954195C 0000240830800?6914480851 9 lodprtsw 1007- +6I1954195C 0000240831800?6515301535 2 ralblrtg 1270- +6I1954195C 0000240832800?4490279028 nzu 4f 0692- +6I1954195C 0000240833800?1019510906 aup 1951 1073- +6I1954195C 0000240834800?8200000690 ramn0rab 0 2f 0967- +6I1954195C 0000240835800?8200010690 -ramn1rab 1 2f 0966- +6I1954195C 0000240836800?4619541040 bmi 1954 1384- +6I1954195C 0000240837800?1608970702 slo1ixxx 1268- +6I1954195C 0000240838800?7104770612 wr150001 0929- +6I1954195C 0000240839800?4490119012 - 9039nzu 1f 1412- +6I1954195C 0000240840800?8880011046 - rac 8001 0991- +6I1954195C 0000240841800?6815630891 - rsmo0014 1485- +6I1954195C 0000240842800?2100460850 stu533tl 0952- +6I1954195C 0000240843800?3000020644 srt 2 0973- +6I1954195C 0000240844800?1090079008 9005aupates 1122- +6I1954195C 0000240845800?5200109010 9006axb 10 1125- +6I1954195C 0000240846800?8888888888 ates alfyyyyy think 1127- +6I1954195C 0000240847800?3040009009 srt 0 b 1123- +6I1954195C 0000240848800?1180039011 sup 8003 9011 1124- +6I1954195C 0000240849800?6590079028 ralates 9028 1126- +6I1954195C 0000240850800?5100050657 sxa 5 0953- +6I1954195C 0000240851800?9205542027 bd29f 90002a 1008- +6I1954195C 0000240852800?6790009025 9024ram 9000 9025 1164- +6I1954195C 0000240853800?1490161727 9025div500i d 1165- +6I1954195C 0000240854800?2190019024 9026stu 9001 9024 1163- +6I1954195C 0000240855800?5320009039 9027sxb 0 a 1178- +6I1954195C 0000240856800?2079509053 9028stla0201c1f 1194- +6I1954195C 0000240857800?1180019030 sup 8001 1167- +6I1954195C 0000240858800?2090039031 stl 9003 8f 1168- +6I1954195C 0000240859800?1680079032 8 slo 8007 1169- +6I1954195C 0000240860800?4507109033 nze5f d 1170- +6I1954195C 0000240861800?6590029034 ral 9002 1171- +6I1954195C 0000240862800?1490171033 div50i d 1172- +6I1954195C 0000240863800?2190009036 6 stu 9000 1174- +6I1954195C 0000240864800?5902009037 sxc 200 1175- +6I1954195C 0000240865800?6590019038 ral 9001 1176- +6I1954195C 0000240866800?4590139014 nze 9013 9014 1177- +6I1954195C 0000240867800?5000019040 axa 1 0f 1179- +6I1954195C 0000240868800?4490419042 0 nzu1f 1180- +6I1954195C 0000240869800?2190019044 1 stu 9001 1183- +6I1954195C 0000240870800?5100019043 sxa 1 1181- +6I1954195C 0000240871800?5200019041 axb 1 1f 1182- +6I1954195C 0000240872800?6090009045 rau 9000 1184- +6I1954195C 0000240873800?4690469047 bmi 1f 1185- +6I1954195C 0000240874800?1090169048 aup500i 1186- +6I1954195C 0000240875800?1190509049 1 sup1i 2f 1188- +6I1954195C 0000240876800?5300019049 sxb 1 2f 1187- +6I1954195C 0000240877800?2190009051 2 stu 9000 1189- +6I1954195C 0000240878800?0000000001 1i 00 0 1 1200- +6I1954195C 0000240879800?4290529053 nzb 1f 1190- +6I1954195C 0000240880800?5300109054 sxb 10 1191- +6I1954195C 0000240881800?5800049056 1 axc 4 1195- +6I1954195C 0000240882800?4290559006 nzb 9006 1192- +6I1954195C 0000240883800?5200109015 axb 10 9015 1193- +6I1954195C 0000240884800?4990570261 bmc 30011 1196- +6I1954195C 0000240885800?6090019058 rau 9001 1197- +6I1954195C 0000240886800?1190509040 sup1i 0b 1198- +6I1954195C 0000240887800?2190019031 1 stu 9001 8b 1199- +6I1954195C 0000240888800?6913991544 888 lods0200 dump8 1538- +6I1954195C 0000240890800?8100011496 pronersa 1 1002- +6I1954195C 0000240891800?2012491503 stls0050 1486- +6I1954195C 0000240892800?8180030843 rsa 8003 0972- +6I1954195C 0000240893800?3500050656 slt 5 1011- +6I1954195C 0000240894800?5800021500 axc 2 1372- +6I1954195C 0000240895800?2492010942 std 9001a 0975- +6I1954195C 0000240896800?6909990097 896 lodreada putag 1306- +6I1954195C 0000240897800?0000000001 1ixxx 00 0 1 1307- +6I1954195C 0000240898800?6909990097 898 lodreada putag 1308- +6I1954195C 0000240899800?2490091985 899 std 9009 1366- +6I1954195C 0000240900800?8102001984 900 rsa 200 1363- +6I1954195C 0000240901800?1690500709 2 slo 9050 1033- +6I1954195C 0000240902800?2004850001 stl50009 1 1297- +6I1954195C 0000240903800?2496090636 std 9009c 1370- +6I1954195C 0000240904800?8590001041 sds 9000 1492- +6I1954195C 0000240905800?4606840685 ramofbmicorof corsw 0984- +6I1954195C 0000240906800?4417126261 nzu 261 c 1074- +6I1954195C 0000240907800?4506600912 nze1f 1058- +6I1954195C 0000240908800?8801560649 rac 156 dmast 1221- +6I1954195C 0000240909800?1004310998 aupn0090 lmst2 1229- +6I1954195C 0000240910800?4619639031 bmi findx 1232- +6I1954195C 0000240911800?8590000684 sds 9000 corof 0983- +6I1954195C 0000240912800?6917151718 lod2f 1059- +6I1954195C 0000240913800?2002550908 1 stl30005 1220- +6I1954195C 0000240914800?0000000000 0000half think 1314- +6I1954195C 0000240915800?4990380827 bmcstore hlt11 0782- +6I1954195C 0000240916800?2490470935 1 std 9047 1031- +6I1954195C 0000240917800?1590539054 9050alo1f 2f 0731- +6I1954195C 0000240918800?3500049050 9051slt 4 9050 0730- +6I1954195C 0000240919800?0000000001 9052 00 0 1 0737- +6I1954195C 0000240920800?8490529058 1 tlu 9052 3f 0736- +6I1954195C 0000240921800?2090559056 2 stlhld 0732- +6I1954195C 0000240923800?6990529057 lod 9052 0733- +6I1954195C 0000240924800?2790020496 set 9002 d 0734- +6I1954195C 0000240925800?1690539059 3 slo1b 0738- +6I1954195C 0000240926800?4690010525 bmi 9001 d 0739- +6I1954195C 0000240927800?0000008999 corec 00 0 8999 1280- +6I1954195C 0000240928800?8801590614 rac 159 dmst1 1256- +6I1954195C 0000240929800?0907769007 ldi49997 9007 1276- +6I1954195C 0000240930800?1505850694 aloccnt1 1013- +6I1954195C 0000240931800?6019520230 rau 1952 symb1 1301- +6I1954195C 0000240932800?1504270701 alon0086 0993- +6I1954195C 0000240933800?6903230264 lodexit0 30014 1094- +6I1954195C 0000240934800?4808371038 nzc 9f 1267- +6I1954195C 0000240935800?1003920901 aupn0051 2f 1032- +6I1954195C 0000240936800?5800010754 axc 1 1b 1391- +6I1954195C 0000240937800?6080071545 1 rau 8007 1335- +6I1954195C 0000240938800?6915510704 lodo0002 1247- +6I1954195C 0000240939800?1700460901 aml533tl 2f 1030- +6I1954195C 0000240940800?2790401045 set 9040 1017- +6I1954195C 0000240941800?6906620259 lodramon 30009 1488- +6I1954195C 0000240942800?6903140720 lodinstr 0976- +6I1954195C 0000240943800?6680020966 rsl 8002 966 1251- +6I1954195C 0000240944800?3040009011 9005srt 0 b 9011 1129- +6I1954195C 0000240945800?5200109028 9006axb 10 9028 1130- +6I1954195C 0000240946800?1512980613 alo6bm41 0981- +6I1954195C 0000240947800?0968209001 ldi 820 c 9001 1401- +6I1954195C 0000240948800?6519530907 alfotral 1953 1057- +6I1954195C 0000240949800?6002560511 1 raulevel 0465- +6I1954195C 0000240950800?6503540059 950 raln0013 machn 0197- +6I1954195C 0000240951800?6503680059 951 raln0027 machn 0198- +6I1954195C 0000240952800?6503690059 952 raln0028 machn 0199- +6I1954195C 0000240953800?6680021719 953 rsl 8002 equ1 1212- +6I1954195C 0000240954800?8808000976 954 rac 800 psudo pst 1393- +6I1954195C 0000240955800?6716210040 955 ramo0072 1f 0202- +6I1954195C 0000240956800?6716050040 956 ramo0056 1f 0204- +6I1954195C 0000240957800?6716400040 957 ramo0091 1f 0205- +6I1954195C 0000240958800?6716190040 958 ramo0070 1f 0206- +6I1954195C 0000240959800?2403140076 959 stdinstr procl 1056- +6I1954195C 0000240960800?6510141719 960 ralsub1r equ1 syn 1109- +6I1954195C 0000240961800?6910141012 961 lodsub1r blr1 1068- +6I1954195C 0000240962800?6504310059 962 raln0090 machn 0200- +6I1954195C 0000240963800?2119510654 963 stu 1951 bla 1065- +6I1954195C 0000240964800?6519511722 964 ral 1951 und 1244- +6I1954195C 0000240965800?2100900943 965 stucdiff cor 1250- +6I1954195C 0000240966800?2003231976 966 stlexit0 drc 1253- +6I1954195C 0000240967800?6519521174 967 ral 1952 c0o 1283- +6I1954195C 0000240968800?6913481544 968 lods0149 dump8 skp 1448- +6I1954195C 0000240969800?8801660649 969 rac 166 dmast 1295- +6I1954195C 0000240970800?6902561536 970 lodlevel ser 1398- +6I1954195C 0000240971800?5200010972 971 axb 1 972 dup 1299- +6I1954195C 0000240972800?8800000931 972 rac 0 pud 1300- +6I1954195C 0000240973800?8801670649 973 rac 167 dmast opt 1302- +6I1954195C 0000240974800?6519521724 974 ral 1952 1f hed 1310- +6I1954195C 0000240975800?6619521724 975 rsl 1952 1f scr 1311- +6I1954195C 0000240976800?3600010890 psudosct 1 prone 0999- +6I1954195C 0000240977800?6519520675 977 ral 1952 one 1324- +6I1954195C 0000240978800?5300010977 978 sxb 1 977 prt 1323- +6I1954195C 0000240979800?8803000937 979 rac 300 1f tap 1332- +6I1954195C 0000240980800?8804000937 980 rac 400 1f dsk 1331- +6I1954195C 0000240981800?8805000937 981 rac 500 1f cdd 1330- +6I1954195C 0000240982800?3600010937 982 sct 1 1f dek 1334- +6I1954195C 0000240983800?6680020968 983 rsl 8002 968 plr 1447- +6I1954195C 0000240984800?8809000976 984 rac 900 psudo 1362- +6I1954195C 0000240985800?2101560001 985 stumodet 1 nmo 1451- +6I1954195C 0000240986800?6716200040 986 ramo0071 1f 0203- +6I1954195C 0000240987800?8801680442 987 rac 168 lmast 1444- +6I1954195C 0000240988800?8819800976 988 rac psudo 1290- +6I1954195C 0000240989800?6966231544 989 lodc0001cdump8 pal 1353- +6I1954195C 0000240990800?6108970985 990 rsu1ixxx 985 hmo 1452- +6I1954195C 0000240991800?6008970985 991 rau1ixxx 985 mmo 1453- +6I1954195C 0000240992800?8801690550 992 rac 169 imast 1456- +6I1954195C 0000240993800?8801710550 993 rac 171 imast adn 1469- +6I1954195C 0000240994800?6815620691 994 rsmo0013 pdd 1482- +6I1954195C 0000240995800?6915980904 995 loddiskc 1491- +6I1954195C 0000240996800?8801000937 996 rac 100 1f fil 1333- +6I1954195C 0000240997800?6712990768 997 rams0100 filll fiv 1316- +6I1954195C 0000240998800?6519510069 lmst2ral 1951 mastr 0405- +6I1954195C 0000240999800?7019991998 readard1 1999 start 0473- +6I1954195C 0000241000800?6713490768 1000rams0150 filll bop 1508- +6I1954195C 0000241001800?6906841992 1001lodcorof 1f cof 1503- +6I1954195C 0000241002800?6909050259 1002lodramof 30009 1489- +6I1954195C 0000241003800?6904911494 1003lodfarof dmo 1511- +6I1954195C 0000241004800?4209360999 1004nzb reada 1390- +6I1954195C 0000241005800?6917431544 1005lod dump8 1514- +6I1954195C 0000241006800?6919931544 1006lod dump8 1517- +6I1954195C 0000241007800?6680021006 1007rsl 8002 1006 1519- +6I1954195C 0000241008800?3600011006 1008sct 1 1006 1520- +6I1954195C 0000241009800?3600011007 1009sct 1 1007 1521- +6I1954195C 0000241011800?0103330333 hlt33hlt 333 333 1527- +6I1954195C 0000241012800?2403230649 blr1 stdexit0 dmast 1069- +6I1954195C 0000241013800?9619670913 bd6 1f 1218- +6I1954195C 0000241014800?8009440240 sub1rraau0001 240 1118- +6I1954195C 0000241015800?8690000508 rds 9000 0989- +6I1954195C 0000241016800?8890051074 rac 9005 1079- +6I1954195C 0000241017800?5000010026 axa 1 90001 1005- +6I1954195C 0000241018800?2490460683 std 9046 1028- +6I1954195C 0000241019800?2002550909 equsbstl30005 1228- +6I1954195C 0000241020800?8800009003 9001rac 0 2f 1432- +6I1954195C 0000241021800?2102560001 9002stulevel 1 1439- +6I1954195C 0000241022800?5940009004 2 sxc 0000b 1433- +6I1954195C 0000241023800?4890059002 nzc 9002 1434- +6I1954195C 0000241024800?5840019006 axc 0001b 1435- +6I1954195C 0000241025800?6571999007 rals0000c 1436- +6I1954195C 0000241026800?4690039008 bmi2b 1437- +6I1954195C 0000241027800?2171999003 stus0000c2b 1438- +6I1954195C 0000241028800?6905430752 1 lodfaron 2f 1273- +6I1954195C 0000241029800?8888888888 ctagxalfyyyyy think 1278- +6I1954195C 0000241030800?6590500687 ral 9050 1020- +6I1954195C 0000241031800?2109140001 stu0000h 1 1313- +6I1954195C 0000241032800?6803721532 1 rsmn0031 2f 1327- +6I1954195C 0000241033800?8280029035 rab 8002 6f 1173- +6I1954195C 0000241034800?2004770001 2 stlfivtg 1 1321- +6I1954195C 0000241035800?6903231978 lodexit0 1265- +6I1954195C 0000241036800?8900190970 rsc 19 970 1397- +6I1954195C 0000241037800?6517321537 2 raldumpc 1350- +6I1954195C 0000241038800?2007980001 9 stlddiff 1 1287- +6I1954195C 0000241039800?6919600262 lod 1960 30012 1473- +6I1954195C 0000241040800?8880031648 rac 8003 1385- +6I1954195C 0000241041800?8000591047 raa 59 1493- +6I1954195C 0000241042800?2790010947 set 9001 1400- +6I1954195C 0000241043800?8880030989 rac 8003 989 1352- +6I1954195C 0000241044800?1608041991 slo60004 1498- +6I1954195C 0000241045800?0919510672 ldi 1951 1018- +6I1954195C 0000241046800?3000020932 srt 2 0992- +6I1954195C 0000241047800?6515041541 ral 3f 1494- +6I1954195C 0000241048800?6504600665 ralcarry 0489- +6I1954195C 0000241049800?2003030507 stladend 0470- +6I1954195C 0000241074800?4817170828 nzchlt99 1080- +6I1954195C 0000241124800?4609290001 bmi 1 1275- +6I1954195C 0000241149800?2790000106 set 9000 0484- +6I1954195C 0000241174800?4517291038 nze 9f 1284- +6I1954195C 0000241197800?6906061992 lodcoron 1f 1502- +6I1954195C 0000241198800?2790000117 set 9000 q0001 0557- +6I1954195C 0000241199800?8080020774 raa 8002 0575- +6I1954195C 0000241248800?646982727R -s0049alfdiskr think 1441- +6I1954195C 0000241249800?648272799J -s0050alfdskr1 think 1442- +6I1954195C 0000241298800?600000001! -6bm41 60 0 10 1038- +6I1954195C 0000241299800?651952197M -s0100ral 1952 1317- +6I1954195C 0000241348800?000003860K -s0149 00 0003 8602 1449- +6I1954195C 0000241349800?690623154M -s0150lodc0001 dump8 1509- +6I1954195C 0000241398800?000500050! -s0199 00 500 500 1380- +6I1954195C 0000241399800?000003866K -s0200 00 0003 8662 1539- +6I1954195C 0000241448800?888888888Q -prtswalfyyyyy think 1044- +6I1954195C 0000241449800?999999999R -oneswalf99999 think 1043- +6I1954195C 0000241494800?2408240991 stdfarsw 991 1512- +6I1954195C 0000241495800?3500030703 slt 3 1022- +6I1954195C 0000241496800?6914490757 lodonesw 1003- +6I1954195C 0000241498800?8890079004 rac 9007 9004 0722- +6I1954195C 0000241499800?9602219058 farcebd67f 9058 0638- +6I1954195C 0000241500800?5000010354 axa 1 n0013 1373- +6I1954195C 0000241501800?2009271730 stlcorec 1258- +6I1954195C 0000241502800?8590000841 sds 9000 1484- +6I1954195C 0000241503800?8590000941 sds 9000 1487- +6I1954195C 0000241504800?0190598000 hlt 9059 8000 1495- +6I1954195C 0000241505800?1090049023 9011aup 9004 1146- +6I1954195C 0000241506800?6780019018 9012ram 8001 1136- +6I1954195C 0000241507800?1490179014 9013div50i 9014 1139- +6I1954195C 0000241508800?8080029027 9014raa 8002 9027 1140- +6I1954195C 0000241509800?6579509019 9015rala0201c 1141- +6I1954195C 0000241510800?0000000500 500i 00 0 500 1149- +6I1954195C 0000241511800?0000000050 50i 00 0 50 1148- +6I1954195C 0000241512800?1490160663 div500i d 1137- +6I1954195C 0000241513800?3520009020 slt 0 a 1142- +6I1954195C 0000241514800?2190049021 stu 9004 1143- +6I1954195C 0000241515800?3540009022 slt 0 b 1144- +6I1954195C 0000241516800?1180039005 sup 8003 9005 1145- +6I1954195C 0000241517800?3020009028 srt 0 a 9028 1147- +6I1954195C 0000241518800?0908529012 9024ldiw0001 9012 1154- +6I1954195C 0000241519800?2390009029 9025sia 9000 1150- +6I1954195C 0000241520800?6580039013 9026ral 8003 9013 1155- +6I1954195C 0000241521800?1080039032 9027aup 8003 1156- +6I1954195C 0000241522800?2079500001 9028stla0201c 1 1161- +6I1954195C 0000241523800?1807809030 smlfwaxx 1151- +6I1954195C 0000241524800?4617179031 bmihlt99 1152- +6I1954195C 0000241525800?4590249012 nze 9024 9012 1153- +6I1954195C 0000241526800?8200019033 rab 1 1157- +6I1954195C 0000241527800?1080039034 aup 8003 1158- +6I1954195C 0000241528800?5902009035 sxc 200 1159- +6I1954195C 0000241529800?5880039015 axc 8003 9015 1160- +6I1954195C 0000241530800?0000000000 blrtgalf think 1279- +6I1954195C 0000241531800?6810348001 rsm2f 8001 1319- +6I1954195C 0000241532800?2054490001 2 stloneswb 1 1328- +6I1954195C 0000241533800?8801620442 rac 162 lmast 1263- +6I1954195C 0000241534800?2402231734 stdkeep 1346- +6I1954195C 0000241535800?2115301733 stublrtg 1271- +6I1954195C 0000241536800?8280011042 rab 8001 1399- +6I1954195C 0000241537800?3500011043 slt 1 1351- +6I1954195C 0000241538800?1019530825 aup 1953 1339- +6I1954195C 0000241539800?6603231989 1 rslexit0 2f 1476- +6I1954195C 0000241540800?1703771738 1 amln0036 1465- +6I1954195C 0000241541800?2092001741 3 stl 9000a 1496- +6I1954195C 0000241542800?1508971540 alo1ixxx 1f 1464- +6I1954195C 0000241543800?6919601987 lod 1960 1462- +6I1954195C 0000241544800?8590001547 dump8sds 9000 dump9 1045- +6I1954195C 0000241545800?1503550775 alon0014 1336- +6I1954195C 0000241547800?8690009000 dump9rds 9000 9000 1046- +6I1954195C 0000241548800?1680020707 slo 8002 0960- +6I1954195C 0000241549800?1004830692 aup50007 0937- +6I1954195C 0000241550800?7576770000 0 alfnop think sym 0213- +6I1954195C 0000241551800?6873830000 0 alfhlt think ope 0214- +6I1954195C 0000241552800?8466610000 0 alfufa think tab 0215- +6I1954195C 0000241553800?7983630000 0 alfrtc think 0216- +6I1954195C 0000241554800?7983750000 0 alfrtn think 0217- +6I1954195C 0000241555800?7983610000 0 alfrta think 0218- +6I1954195C 0000241556800?8683750000 0 alfwtn think 0219- +6I1954195C 0000241557800?8683610000 0 alfwta think 0220- +6I1954195C 0000241558800?7369620000 0 alflib think 0221- +6I1954195C 0000241559800?7364690000 0 alfldi think 0222- +6I1954195C 0000241560800?6184770000 0 alfaup think 0223- +6I1954195C 0000241561800?8284770000 0 alfsup think 0224- +6I1954195C 0000241562800?6000000000 0 60 0 0 for 0225- +6I1954195C 0000241563800?6000000501 0 60 0 501 for 0226- +6I1954195C 0000241564800?6469850000 0 alfdiv think 0227- +6I1954195C 0000241565800?6173760000 0 alfalo think 0228- +6I1954195C 0000241566800?8273760000 0 alfslo think 0229- +6I1954195C 0000241567800?6174730000 0 alfaml think 0230- +6I1954195C 0000241568800?8274730000 0 alfsml think 0231- +6I1954195C 0000241569800?7477880000 0 alfmpy think 0232- +6I1954195C 0000241570800?8283730000 0 alfstl think 0233- +6I1954195C 0000241571800?8283840000 0 alfstu think 0234- +6I1954195C 0000241572800?8264610000 0 alfsda think 0235- +6I1954195C 0000241573800?8269610000 0 alfsia think 0236- +6I1954195C 0000241574800?8283640000 0 alfstd think 0237- +6I1954195C 0000241575800?7583820000 0 alfnts think 0238- +6I1954195C 0000241576800?6269750000 0 alfbin think 0239- +6I1954195C 0000241577800?8265830000 0 alfset think 0240- +6I1954195C 0000241578800?8269620000 0 alfsib think 0241- +6I1954195C 0000241579800?8283690000 0 alfsti think 0242- +6I1954195C 0000241580800?8279830000 0 alfsrt think 0243- +6I1954195C 0000241581800?8279640000 0 alfsrd think 0244- +6I1954195C 0000241582800?6661640000 0 alffad think 0245- +6I1954195C 0000241583800?6682620000 0 alffsb think 0246- +6I1954195C 0000241584800?6664850000 0 alffdv think 0247- +6I1954195C 0000241585800?8273830000 0 alfslt think 0248- +6I1954195C 0000241586800?8263830000 0 alfsct think 0249- +6I1954195C 0000241587800?6661740000 0 alffam think 0250- +6I1954195C 0000241588800?6682740000 0 alffsm think 0251- +6I1954195C 0000241589800?6674770000 0 alffmp think 0252- +6I1954195C 0000241590800?7589610000 0 alfnza think 0253- +6I1954195C 0000241591800?6274610000 0 alfbma think 0254- +6I1954195C 0000241592800?7589620000 0 alfnzb think 0255- +6I1954195C 0000241593800?6274620000 0 alfbmb think 0256- +6I1954195C 0000241594800?7589840000 0 alfnzu think 0257- +6I1954195C 0000241595800?7589650000 0 alfnze think 0258- +6I1954195C 0000241596800?6274690000 0 alfbmi think 0259- +6I1954195C 0000241597800?6276850000 0 alfbov think 0260- +6I1954195C 0000241598800?0000088382 diskc 00 0008 8382 1037- +6I1954195C 0000241599800?0000000450 00050 00 0 450 1379- +6I1954195C 0000241600800?6187610000 0 alfaxa think 0262- +6I1954195C 0000241601800?8287610000 0 alfsxa think 0263- +6I1954195C 0000241602800?6187620000 0 alfaxb think 0264- +6I1954195C 0000241603800?8287620000 0 alfsxb think 0265- +6I1954195C 0000241604800?7565660000 0 alfnef think 0266- +6I1954195C 0000241605800?7986830000 0 alfrwt think 0267- +6I1954195C 0000241606800?8683740000 0 alfwtm think 0268- +6I1954195C 0000241607800?6282830000 0 alfbst think 0269- +6I1954195C 0000241608800?6187630000 0 alfaxc think 0270- +6I1954195C 0000241609800?8287630000 0 alfsxc think 0271- +6I1954195C 0000241610800?7961840000 0 alfrau think 0272- +6I1954195C 0000241611800?7982840000 0 alfrsu think 0273- +6I1954195C 0000241612800?8888880005 0 88 8888 5 fiv 0274- +6I1954195C 0000241613800?8373650000 0 alftle think 0275- +6I1954195C 0000241614800?6485790000 0 alfdvr think 0276- +6I1954195C 0000241615800?7961730000 0 alfral think 0277- +6I1954195C 0000241616800?7982730000 0 alfrsl think 0278- +6I1954195C 0000241617800?7961740000 0 alfram think 0279- +6I1954195C 0000241618800?7982740000 0 alfrsm think 0280- +6I1954195C 0000241619800?7376640000 0 alflod think 0281- +6I1954195C 0000241620800?7964910000 0 alfrd1 think 0282- +6I1954195C 0000241621800?8679910000 0 alfwr1 think 0283- +6I1954195C 0000241622800?7963910000 0 alfrc1 think 0284- +6I1954195C 0000241623800?7964920000 0 alfrd2 think 0285- +6I1954195C 0000241624800?8679920000 0 alfwr2 think 0286- +6I1954195C 0000241625800?7963920000 0 alfrc2 think 0287- +6I1954195C 0000241626800?7964930000 0 alfrd3 think 0288- +6I1954195C 0000241627800?8679930000 0 alfwr3 think 0289- +6I1954195C 0000241628800?7963930000 0 alfrc3 think 0290- +6I1954195C 0000241629800?7977880000 0 alfrpy think 0291- +6I1954195C 0000241630800?7961610000 0 alfraa think 0292- +6I1954195C 0000241631800?7982610000 0 alfrsa think 0293- +6I1954195C 0000241632800?7961620000 0 alfrab think 0294- +6I1954195C 0000241633800?7982620000 0 alfrsb think 0295- +6I1954195C 0000241634800?8373840000 0 alftlu think 0296- +6I1954195C 0000241635800?8264820000 0 alfsds think 0297- +6I1954195C 0000241636800?7964820000 0 alfrds think 0298- +6I1954195C 0000241637800?8664820000 0 alfwds think 0299- +6I1954195C 0000241638800?7961630000 0 alfrac think 0300- +6I1954195C 0000241639800?7982630000 0 alfrsc think 0301- +6I1954195C 0000241640800?6264900000 0 alfbd0 think 0302- +6I1954195C 0000241641800?6264910000 0 alfbd1 think 0303- +6I1954195C 0000241642800?6264920000 0 alfbd2 think 0304- +6I1954195C 0000241643800?6264930000 0 alfbd3 think 0305- +6I1954195C 0000241644800?6264940000 0 alfbd4 think 0306- +6I1954195C 0000241645800?6264950000 0 alfbd5 think 0307- +6I1954195C 0000241646800?6264960000 0 alfbd6 think 0308- +6I1954195C 0000241647800?6264970000 0 alfbd7 think 0309- +6I1954195C 0000241648800?8300080754 rsb 8 1f 1386- +6I1954195C 0000241649800?1003231728 aupexit0 1260- +6I1954195C 0000241650800?7589630000 0 alfnzc think 0311- +6I1954195C 0000241651800?6274630000 0 alfbmc think 0312- +6I1954195C 0000241652800?6264980000 0 alfbd8 think 0313- +6I1954195C 0000241653800?6578840000 0 alfequ think 0314- +6I1954195C 0000241654800?7782830000 0 alfpst think 0315- +6I1954195C 0000241655800?7763680000 0 alfpch think 0316- +6I1954195C 0000241656800?7986640000 0 alfrwd think 0317- +6I1954195C 0000241657800?6264760000 0 alfbdo think 0318- +6I1954195C 0000241658800?7364640000 0 alfldd think 0319- +6I1954195C 0000241659800?6173660000 0 alfalf think 0320- +6I1954195C 0000241660800?8288750000 0 alfsyn think 0321- +6I1954195C 0000241661800?6273790000 0 alfblr think 0322- +6I1954195C 0000241662800?6264990000 0 alfbd9 think 0323- +6I1954195C 0000241663800?6273610000 0 alfbla think 0324- +6I1954195C 0000241664800?8475640000 0 alfund think 0325- +6I1954195C 0000241665800?6376790000 0 alfcor think 0326- +6I1954195C 0000241666800?6479630000 0 alfdrc think 0327- +6I1954195C 0000241667800?6376640000 0 alfcod think 0328- +6I1954195C 0000241668800?8272770000 0 alfskp think 0329- +6I1954195C 0000241669800?6363950000 0 alfcc5 think 0330- +6I1954195C 0000241670800?8265790000 0 alfser think 0331- +6I1954195C 0000241671800?6484770000 0 alfdup think 0332- +6I1954195C 0000241672800?7784640000 0 alfpud think 0333- +6I1954195C 0000241673800?7677830000 0 alfopt think 0334- +6I1954195C 0000241674800?6865640000 0 alfhed think 0335- +6I1954195C 0000241675800?8263790000 0 alfscr think 0336- +6I1954195C 0000241676800?6575640000 0 alfend think 0337- +6I1954195C 0000241677800?7675650000 0 alfone think 0338- +6I1954195C 0000241678800?7779830000 0 alfprt think 0339- +6I1954195C 0000241679800?8361770000 0 alftap think 0340- +6I1954195C 0000241680800?6482720000 0 alfdsk think 0341- +6I1954195C 0000241681800?6364640000 0 alfcdd think 0342- +6I1954195C 0000241682800?6465720000 0 alfdek think 0343- +6I1954195C 0000241683800?7773790000 0 alfplr think 0344- +6I1954195C 0000241684800?7761830000 0 alfpat think 0345- +6I1954195C 0000241685800?7574760000 0 alfnmo think 0346- +6I1954195C 0000241686800?7963640000 0 alfrcd think 0347- +6I1954195C 0000241687800?7479720000 0 alfmrk think 0348- +6I1954195C 0000241688800?6363910000 0 alfcc1 think 0349- +6I1954195C 0000241689800?7761730000 0 alfpal think 0350- +6I1954195C 0000241690800?6874760000 0 alfhmo think 0351- +6I1954195C 0000241691800?7474760000 0 alfmmo think 0352- +6I1954195C 0000241692800?7587830000 0 alfnxt think 0353- +6I1954195C 0000241693800?6164750000 0 alfadn think 0354- +6I1954195C 0000241694800?6476750000 0 alfdon think 0355- +6I1954195C 0000241695800?6376750000 0 alfcon think 0356- +6I1954195C 0000241696800?6669730000 0 alffil think 0357- +6I1954195C 0000241697800?6669850000 0 alffiv think 0358- +6I1954195C 0000241700800?6276770000 0 alfbop think 0360- +6I1954195C 0000241701800?6376660000 0 alfcof think 0361- +6I1954195C 0000241702800?6476660000 0 alfdof think 0362- +6I1954195C 0000241703800?6474760000 0 alfdmo think 0363- +6I1954195C 0000241704800?9090610000 0 alf00a think 0364- +6I1954195C 0000241705800?7764730000 0 alfpdl think 0365- +6I1954195C 0000241706800?8261830000 0 alfsat think 0366- +6I1954195C 0000241707800?7361830000 0 alflat think 0367- +6I1954195C 0000241708800?8282830000 0 alfsst think 0368- +6I1954195C 0000241709800?7382830000 0 alflst think 0369- +6I1954195C 0000241710800?7977780000 0 alfrpq smile 0370- +6I1954195C 0000241712800?8262591019 rab 259 cequsb 1075- +6I1954195C 0000241713800?8990200771 rsc 9020 1224- +6I1954195C 0000241714800?2307800833 siafwaxx 1072- +6I1954195C 0000241715800?8368697572 2 alfthink thimk 1063- +6I1954195C 0000241716800?3600011973 sct 1 1203- +6I1954195C 0000241717800?0109990999 hlt99hlt 999 999 1533- +6I1954195C 0000241718800?2419530660 std 1953 1f 1060- +6I1954195C 0000241719800?2003231726 equ1 stlexit0 1213- +6I1954195C 0000241720800?1517238002 alo 8002 1113- +6I1954195C 0000241721800?2324454002 siab0000a 2 b 1239- +6I1954195C 0000241722800?3500020779 slt 2 1245- +6I1954195C 0000241723800?6707800324 ramfwaxx 00022 1114- +6I1954195C 0000241724800?3500021031 1 slt 2 1312- +6I1954195C 0000241725800?2404601534 3 stdcarry 1345- +6I1954195C 0000241726800?6519530758 ral 1953 1214- +6I1954195C 0000241727800?2190029029 stu 9002 1166- +6I1954195C 0000241728800?4608310464 bmi2f 464 1261- +6I1954195C 0000241729800?2103231979 stuexit0 1285- +6I1954195C 0000241730800?2400961649 stdkeepp 1259- +6I1954195C 0000241731800?6716121034 1 ramfivon 2f 1320- +6I1954195C 0000241733800?6914990752 lodfarce 2f 1272- +6I1954195C 0000241734800?6510370641 ral2f 1347- +6I1954195C 0000241735800?0919509052 ldi 1950 9052 1341- +6I1954195C 0000241736800?8801700649 rac 170 dmast 1458- +6I1954195C 0000241737800?3500021543 slt 2 1461- +6I1954195C 0000241738800?2001880001 stloptim 1 1466- +6I1954195C 0000241739800?6503231989 ralexit0 2f 1475- +6I1954195C 0000241740800?1503031990 aloadend 1478- +6I1954195C 0000241741800?4010441745 nza 2f 1497- +6I1954195C 0000241742800?8790001197 wds 9000 1501- +6I1954195C 0000241743800?0000038642 00 0003 8642 1515- +6I1954195C 0000241744800?2101880333 stuoptim 333 1541- +6I1954195C 0000241745800?6915981742 2 loddiskc 1500- +6I1954195C 0000241750800?8888888888 - +6I1954195C 0000241751800?8888888888 - +6I1954195C 0000241752800?8888888888 - +6I1954195C 0000241753800?8888888888 - +6I1954195C 0000241754800?8888888888 - +6I1954195C 0000241755800?8888888888 - +6I1954195C 0000241756800?8888888888 - +6I1954195C 0000241757800?8888888888 - +6I1954195C 0000241758800?8888888888 - +6I1954195C 0000241759800?8888888888 - +6I1954195C 0000241760800?8888888888 - +6I1954195C 0000241761800?8888888888 - +6I1954195C 0000241762800?8888888888 - +6I1954195C 0000241763800?8888888888 - +6I1954195C 0000241764800?8888888888 - +6I1954195C 0000241765800?8888888888 - +6I1954195C 0000241766800?8888888888 - +6I1954195C 0000241767800?8888888888 - +6I1954195C 0000241768800?8888888888 - +6I1954195C 0000241769800?8888888888 - +6I1954195C 0000241770800?8888888888 - +6I1954195C 0000241771800?8888888888 - +6I1954195C 0000241772800?8888888888 - +6I1954195C 0000241773800?8888888888 - +6I1954195C 0000241774800?8888888888 - +6I1954195C 0000241775800?8888888888 - +6I1954195C 0000241776800?8888888888 - +6I1954195C 0000241777800?8888888888 - +6I1954195C 0000241778800?8888888888 - +6I1954195C 0000241779800?8888888888 - +6I1954195C 0000241780800?8888888888 - +6I1954195C 0000241781800?8888888888 - +6I1954195C 0000241782800?8888888888 - +6I1954195C 0000241783800?8888888888 - +6I1954195C 0000241784800?8888888888 - +6I1954195C 0000241785800?8888888888 - +6I1954195C 0000241786800?8888888888 - +6I1954195C 0000241787800?8888888888 - +6I1954195C 0000241788800?8888888888 - +6I1954195C 0000241789800?8888888888 - +6I1954195C 0000241790800?8888888888 - +6I1954195C 0000241791800?8888888888 - +6I1954195C 0000241792800?8888888888 - +6I1954195C 0000241793800?8888888888 - +6I1954195C 0000241794800?8888888888 - +6I1954195C 0000241795800?8888888888 - +6I1954195C 0000241796800?8888888888 - +6I1954195C 0000241797800?8888888888 - +6I1954195C 0000241798800?8888888888 - +6I1954195C 0000241799800?8888888888 - +6I1954195C 0000241800800?8888888888 - +6I1954195C 0000241801800?8888888888 - +6I1954195C 0000241802800?8888888888 - +6I1954195C 0000241803800?8888888888 - +6I1954195C 0000241804800?8888888888 - +6I1954195C 0000241805800?8888888888 - +6I1954195C 0000241806800?8888888888 - +6I1954195C 0000241807800?8888888888 - +6I1954195C 0000241808800?8888888888 - +6I1954195C 0000241809800?8888888888 - +6I1954195C 0000241810800?8888888888 - +6I1954195C 0000241811800?8888888888 - +6I1954195C 0000241812800?8888888888 - +6I1954195C 0000241813800?8888888888 - +6I1954195C 0000241814800?8888888888 - +6I1954195C 0000241815800?8888888888 - +6I1954195C 0000241816800?8888888888 - +6I1954195C 0000241817800?8888888888 - +6I1954195C 0000241818800?8888888888 - +6I1954195C 0000241819800?8888888888 - +6I1954195C 0000241820800?8888888888 - +6I1954195C 0000241821800?8888888888 - +6I1954195C 0000241822800?8888888888 - +6I1954195C 0000241823800?8888888888 - +6I1954195C 0000241824800?8888888888 - +6I1954195C 0000241825800?8888888888 - +6I1954195C 0000241826800?8888888888 - +6I1954195C 0000241827800?8888888888 - +6I1954195C 0000241828800?8888888888 - +6I1954195C 0000241829800?8888888888 - +6I1954195C 0000241830800?8888888888 - +6I1954195C 0000241831800?8888888888 - +6I1954195C 0000241832800?8888888888 - +6I1954195C 0000241833800?8888888888 - +6I1954195C 0000241834800?8888888888 - +6I1954195C 0000241835800?8888888888 - +6I1954195C 0000241836800?8888888888 - +6I1954195C 0000241837800?8888888888 - +6I1954195C 0000241838800?8888888888 - +6I1954195C 0000241839800?8888888888 - +6I1954195C 0000241840800?8888888888 - +6I1954195C 0000241841800?8888888888 - +6I1954195C 0000241842800?8888888888 - +6I1954195C 0000241843800?8888888888 - +6I1954195C 0000241844800?8888888888 - +6I1954195C 0000241845800?8888888888 - +6I1954195C 0000241846800?8888888888 - +6I1954195C 0000241847800?8888888888 - +6I1954195C 0000241848800?8888888888 - +6I1954195C 0000241849800?8888888888 - +6I1954195C 0000241850800?8888888888 - +6I1954195C 0000241851800?8888888888 - +6I1954195C 0000241852800?8888888888 - +6I1954195C 0000241853800?8888888888 - +6I1954195C 0000241854800?8888888888 - +6I1954195C 0000241855800?8888888888 - +6I1954195C 0000241856800?8888888888 - +6I1954195C 0000241857800?8888888888 - +6I1954195C 0000241858800?8888888888 - +6I1954195C 0000241859800?8888888888 - +6I1954195C 0000241860800?8888888888 - +6I1954195C 0000241861800?8888888888 - +6I1954195C 0000241862800?8888888888 - +6I1954195C 0000241863800?8888888888 - +6I1954195C 0000241864800?8888888888 - +6I1954195C 0000241865800?8888888888 - +6I1954195C 0000241866800?8888888888 - +6I1954195C 0000241867800?8888888888 - +6I1954195C 0000241868800?8888888888 - +6I1954195C 0000241869800?8888888888 - +6I1954195C 0000241870800?8888888888 - +6I1954195C 0000241871800?8888888888 - +6I1954195C 0000241872800?8888888888 - +6I1954195C 0000241873800?8888888888 - +6I1954195C 0000241874800?8888888888 - +6I1954195C 0000241875800?8888888888 - +6I1954195C 0000241876800?8888888888 - +6I1954195C 0000241877800?8888888888 - +6I1954195C 0000241878800?8888888888 - +6I1954195C 0000241879800?8888888888 - +6I1954195C 0000241880800?8888888888 - +6I1954195C 0000241881800?8888888888 - +6I1954195C 0000241882800?8888888888 - +6I1954195C 0000241883800?8888888888 - +6I1954195C 0000241884800?8888888888 - +6I1954195C 0000241885800?8888888888 - +6I1954195C 0000241886800?8888888888 - +6I1954195C 0000241887800?8888888888 - +6I1954195C 0000241888800?8888888888 - +6I1954195C 0000241889800?8888888888 - +6I1954195C 0000241890800?8888888888 - +6I1954195C 0000241891800?8888888888 - +6I1954195C 0000241892800?8888888888 - +6I1954195C 0000241893800?8888888888 - +6I1954195C 0000241894800?8888888888 - +6I1954195C 0000241895800?8888888888 - +6I1954195C 0000241896800?8888888888 - +6I1954195C 0000241897800?8888888888 - +6I1954195C 0000241898800?8888888888 - +6I1954195C 0000241899800?8888888888 - +6I1954195C 0000241900800?8888888888 - +6I1954195C 0000241901800?8888888888 - +6I1954195C 0000241902800?8888888888 - +6I1954195C 0000241903800?8888888888 - +6I1954195C 0000241904800?8888888888 - +6I1954195C 0000241905800?8888888888 - +6I1954195C 0000241906800?8888888888 - +6I1954195C 0000241907800?8888888888 - +6I1954195C 0000241908800?8888888888 - +6I1954195C 0000241909800?8888888888 - +6I1954195C 0000241910800?8888888888 - +6I1954195C 0000241911800?8888888888 - +6I1954195C 0000241912800?8888888888 - +6I1954195C 0000241913800?8888888888 - +6I1954195C 0000241914800?8888888888 - +6I1954195C 0000241915800?8888888888 - +6I1954195C 0000241916800?8888888888 - +6I1954195C 0000241917800?8888888888 - +6I1954195C 0000241918800?8888888888 - +6I1954195C 0000241919800?8888888888 - +6I1954195C 0000241920800?8888888888 - +6I1954195C 0000241921800?8888888888 - +6I1954195C 0000241922800?8888888888 - +6I1954195C 0000241923800?8888888888 - +6I1954195C 0000241924800?8888888888 - +6I1954195C 0000241925800?8888888888 - +6I1954195C 0000241926800?8888888888 - +6I1954195C 0000241927800?8888888888 - +6I1954195C 0000241928800?8888888888 - +6I1954195C 0000241929800?8888888888 - +6I1954195C 0000241930800?8888888888 - +6I1954195C 0000241931800?8888888888 - +6I1954195C 0000241932800?8888888888 - +6I1954195C 0000241933800?8888888888 - +6I1954195C 0000241934800?8888888888 - +6I1954195C 0000241935800?8888888888 - +6I1954195C 0000241936800?8888888888 - +6I1954195C 0000241937800?8888888888 - +6I1954195C 0000241938800?8888888888 - +6I1954195C 0000241939800?8888888888 - +6I1954195C 0000241940800?8888888888 - +6I1954195C 0000241941800?8888888888 - +6I1954195C 0000241942800?8888888888 - +6I1954195C 0000241943800?8888888888 - +6I1954195C 0000241944800?8888888888 - +6I1954195C 0000241945800?8888888888 - +6I1954195C 0000241946800?8888888888 - +6I1954195C 0000241947800?8888888888 - +6I1954195C 0000241948800?8888888888 - +6I1954195C 0000241949800?8888888888 - +6I1954195C 0000241950800?2900460302 1950sti 46 302 1342- +6I1954195C 0000241962800?0000000000 progpalf think 0475- +6I1954195C 0000241963800?8880039038 rac 8003 store 1233- +6I1954195C 0000241964800?5180012459 sxa 8001 459 a 1082- +6I1954195C 0000241965800?2790051720 set 9005 1112- +6I1954195C 0000241966800?5800010772 axc 1 1207- +6I1954195C 0000241967800?6680020913 rsl 8002 1f 1219- +6I1954195C 0000241968800?6916621969 lodo0113 1235- +6I1954195C 0000241969800?2325134002 siaf0000a 2 b 1236- +6I1954195C 0000241970800?6916621721 lodo0113 1238- +6I1954195C 0000241971800?1616620822 sloo0113 1241- +6I1954195C 0000241972800?4509281028 nze 1f 1255- +6I1954195C 0000241973800?6008269035 rau49i 6b 1204- +6I1954195C 0000241974800?4515311731 nze 1f 1318- +6I1954195C 0000241975800?4417251982 nzu3f 1f 1344- +6I1954195C 0000241976800?6519521972 ral 1952 1254- +6I1954195C 0000241977800?4990181019 bmc 9018 equsb 1226- +6I1954195C 0000241978800?8880010934 rac 8001 1266- +6I1954195C 0000241979800?8801640614 rac 164 dmst1 1286- +6I1954195C 0000241980800?8801650649 rac 165 dmast 1291- +6I1954195C 0000241981800?6803731532 rsmn0032 2f 1326- +6I1954195C 0000241982800?8810370976 1 rac2f psudo 1349- +6I1954195C 0000241983800?2790521538 set 9052 1338- +6I1954195C 0000241984800?8305990343 rsb 599 n0002 1364- +6I1954195C 0000241985800?6715990753 ramo0050 7f 1367- +6I1954195C 0000241986800?1503231737 aloexit0 1460- +6I1954195C 0000241987800?9615401542 bd61f 1463- +6I1954195C 0000241988800?8801720649 rac 172 dmast 1471- +6I1954195C 0000241989800?3560001740 2 slt 0 c 1477- +6I1954195C 0000241990800?2003030001 stladend 1 1479- +6I1954195C 0000241991800?5100011541 sxa 1 3b 1499- +6I1954195C 0000241992800?2406850001 1 stdcorsw 1 1504- +6I1954195C 0000241993800?0000038652 00 0003 8652 1518- +6I1954195C 0000241994800?0120000444 hlt44hlt 0 a 444 1528- +6I1954195C 0000241995800?0140020555 hlt55hlt 2 b 555 1529- +6I1954195C 0000241996800?1980000260 1996mpy 8000 30010 1304- +6I1954195C 0000241997800?0130000888 hlt88hlt 1000a 888 1532- +6I1954195C 0000241998800?6019600015 startrau 1960 0127- +6I1954195C 0000241999800?6103780686 1999rsun0037 1382- diff --git a/I650/sw/supersoap/ssoap_main_core_src.txt b/I650/sw/supersoap/ssoap_main_core_src.txt new file mode 100644 index 000000000..825e31cfe --- /dev/null +++ b/I650/sw/supersoap/ssoap_main_core_src.txt @@ -0,0 +1,3555 @@ + 1 s u p e r s o a p + 1 august 15, 1959 + 1 case institute of technology + 1 donald e knuth + 1 + 1 locafier 3800-33 main program + don + 1 hmo + blr 0 5 + syn 21 + blr 32 39 + blr 44 45 + syn 60 + syn 79 + syn 88 + syn 92 + blr 98 99 + syn 111 + blr 198 199 + syn 200 + blr 217 220 + syn 222 + syn 234 + syn 240 + syn 300 + syn 302 + syn 444 + blr 455 472 + syn 476 + syn 488 + syn 498 + syn 500 + syn 588 + syn 598 + blr 609 610 + syn 666 + blr 668 670 + blr 678 681 + blr 688 689 + blr 698 699 + blr 711 719 + blr 721 729 + blr 732 749 + syn 777 + syn 800 + syn 829 + blr 888 889 + blr 896 900 + syn 900 + blr 950 1011 + blr 1550 1999 + a0001equ 1750 avail + b0000blr 445 454 + c0001blr 623 c0006 + e0001blr 1050 e0147 + f0000blr 513 522 + n0001blr 342 441 + o0001equ 1550 + q0001blr 117 149 + r0001equ 651 + s0001blr 1200 s0294 + t0001blr 844 849 + u0001blr 944 945 + v0001blr 1505 v0025 + w0001blr 852 887 + z0000blr 555 582 + 00001blr 303 334 + 10001blr 150 195 + 20001blr 917 926 + 30000blr 250 299 + 40001blr 780 797 + 50001blr 477 50010 + 60000blr 800 60021 + 70001blr 1020 70008 + 90000blr 25 28 + 533tlblr 46 49 + bla 998 998 + bla 1049 1049 + bla 1074 1074 + bla 1124 1124 + bla 1149 1149 + bla 1174 1174 + mastrsyn 69 + punchequ 219 + ddiffsyn 798 + hlt11syn 827 + 1ikkkequ 897 + psudoequ 976 + readaequ 999 + dump8syn 1544 + dump9syn 1547 + locatequ 1961 + progpequ 1962 + hlt44equ 1994 + hlt55equ 1995 + hlt88equ 1997 + startequ 1998 + carryequf9947 + diskcequo0049 + fivonequo0063 + otendequo0162 + diskrequs0049 + 68m41equs0099 + oneswequs0250 + prtswequs0249 + blrtgsynv0026 + adendequ00001 + dtaggequ00005 + instrequ00012 + exit0equ00021 + optimequ10039 + modetequ10007 + basexequ10041 + levelequ30006 + locusequ40001 + fwaxxequ40001 + fivtgequ50001 + hlt33equotend 9300 + sync0201 + syn60039 + blaq0005 q0005 + bla00018 00018 + bla60002 60002 + 1 + 1 i beginning of assembly + 1 + startrau 1960 + slt 9 1f + 1 stl533tl + srt 9 + raa 8003 + sxa 5 + bma 5 a 0 + 0 rau 1954 1f + 1 racreada psudo + 2 ral8f 1b + 3 lodaton putag + aton rau 1954 1f + 4 ral8f 1b + putagstd 0 1 + 1 raa 0 + rab 1 0f + 0 srt 2 + sup 8003 + nze 9f + std 9000 + slt 1 + nzu 7f + sup 8003 + slo400p + bmi 2f + alo 8001 + axa 1 + alo 8002 7f + 7 srt 6 1f + 9 aup 8001 4f + 1 aup 9000 4f + 4 lodldi41 3f + 2 nze7b + aup 9000 + lodo0091 3f + 3 siadtaggb + nzb 1f + sxb 1 0b + 1 nzu 1 + srt 4 + nzu 2f + srt 2 + slo 8002 + stdotend + tleo0001 + sloobase + bmi3f + srt 4 8f + 8 alosudom 8002 + sudomrac 200 950 + 2 slon0058 + slt 2 + slo 8002 + srt 1 + alo 8001 machn + 3 alon0052 + slt 4 machn + machnstlinstr + aupoptim + nzu3f + slt 2 + rac 8003 + raun0001c + lod 8005 + stdlincr procl + 3 rau 8001 + stllincr procl + 400p 40 0 0 + obase 00o0101 0 + 1 + 950 raln0013 machn + 951 raln0027 machn + 952 raln0028 machn + 962 raln0090 machn + 1 + 955 ramo0072 1f + 986 ramo0071 1f + 956 ramo0056 1f + 957 ramo0091 1f + 958 ramo0070 1f + 1 stl 9000 + ral 1954 + lod 9000 + sia 1954 0 + 1 + cor 1550 + 0 alfnop think symbolic + 0 alfhlt think operations + 0 alfufa think table + 0 alfrtc think + 0 alfrtn think + 0 alfrta think + 0 alfwtn think + 0 alfwta think + 0 alflib think + 0 alfldi think + 0 alfaup think + 0 alfsup think + 7 0 60 0 0 for diskr + 7 0 60 0 501 for diskr1 + 0 alfdiv think + 0 alfalo think + 0 alfslo think + 0 alfaml think + 0 alfsml think + 0 alfmpy think + 0 alfstl think + 0 alfstu think + 0 alfsda think + 0 alfsia think + 0 alfstd think + 0 alfnts think + 0 alfbin think + 0 alfset think + 0 alfsib think + 0 alfsti think + 0 alfsrt think + 0 alfsrd think + 0 alffad think + 0 alffsb think + 0 alffdv think + 0 alfslt think + 0 alfsct think + 0 alffam think + 0 alffsm think + 0 alffmp think + 0 alfnza think + 0 alfbma think + 0 alfnzb think + 0 alfbmb think + 0 alfnzu think + 0 alfnze think + 0 alfbmi think + 0 alfbov think + cor 1600 + 0 alfaxa think + 0 alfsxa think + 0 alfaxb think + 0 alfsxb think + 0 alfnef think + 0 alfrwt think + 0 alfwtm think + 0 alfbst think + 0 alfaxc think + 0 alfsxc think + 0 alfrau think + 0 alfrsu think + 0 88 8888 5 fivon + 0 alftle think + 0 alfdvr think + 0 alfral think + 0 alfrsl think + 0 alfram think + 0 alfrsm think + 0 alflod think + 0 alfrd1 think + 0 alfwr1 think + 0 alfrc1 think + 0 alfrd2 think + 0 alfwr2 think + 0 alfrc2 think + 0 alfrd3 think + 0 alfwr3 think + 0 alfrc3 think + 0 alfrpy think + 0 alfraa think + 0 alfrsa think + 0 alfrab think + 0 alfrsb think + 0 alftlu think + 0 alfsds think + 0 alfrds think + 0 alfwds think + 0 alfrac think + 0 alfrsc think + 0 alfbd0 think + 0 alfbd1 think + 0 alfbd2 think + 0 alfbd3 think + 0 alfbd4 think + 0 alfbd5 think + 0 alfbd6 think + 0 alfbd7 think + cor 1650 + 0 alfnzc think + 0 alfbmc think + 0 alfbd8 think + 0 alfequ think + 0 alfpst think + 0 alfpch think + 0 alfrwd think + 0 alfbdo think + 0 alfldd think + 0 alfalf think + 0 alfsyn think + 0 alfblr think + 0 alfbd9 think + 0 alfbla think + 0 alfund think + 0 alfcor think + 0 alfdrc think + 0 alfcod think + 0 alfskp think + 0 alfcc5 think + 0 alfser think + 0 alfdup think + 0 alfpud think + 0 alfopt think + 0 alfhed think + 0 alfscr think + 0 alfend think + 0 alfone think + 0 alfprt think + 0 alftap think + 0 alfdsk think + 0 alfcdd think + 0 alfdek think + 0 alfplr think + 0 alfpat think + 0 alfnmo think + 0 alfrcd think + 0 alfmrk think + 0 alfcc1 think + 0 alfpal think + 0 alfhmo think + 0 alfmmo think + 0 alfnxt think + 0 alfadn think + 0 alfdon think + 0 alfcon think + 0 alffil think + 0 alffiv think + cor 1700 + 0 alfbop think + 0 alfcof think + 0 alfdof think + 0 alfdmo think + 0 alf00a think + 0 alfpdl think + 0 alfsat think + 0 alflat think + 0 alfsst think + 0 alflst think + 0 alfrpq smile + cor + 1 + 1 ii processing of instructions + 1 + proclrsb 1 + stuoptim + rsc 275 + ral 1951 + lodcarry + nze 1f + bd6mastr hlt77 + 1 bd6hlt66 777 + 777 ral 8001 + lodo0002 + stdcarry + set 9000 + ldi00001 9018 + 25 stllocus 38 a + 36 alocdiff + aupcoreq 1f + 37 aup 8001 + aloddiff 1f + 38 hltq0007 q0007 + q0007ral 8003 1f + 39 stl533tl + aup80xeq 1f + 1 auplincr + stubasex + slt 6 + stllocat + ral 9011 + slosudom + nzeprocd alfot + lmastrsb 1 lmst2 + lmst2ral 1951 mastr + carryalfyyyyy think + coreqalf think + 80xeqalf think + 79 lodo0002 + stdcarry mastr + 1 + procdrsc 255 dmast + dmastral 1952 dmst1 + dmst1rab 0 mastr + 45 lod 9011 + slt 4 + sdainstr + srt 4 34 a + 35 raa 8002 c8xeq + c8xeqlod coddl + rac 8002 + div 9008 + nzu1f + sxa 9011 2f + 1 sxa 9009 2f + 2 nza1f + axc 1 1f + 1 ral 8007 609 b + 609 std80xeq 34 + 610 std80xeq 219 + 32 lod coddl + stlcoreq 34 + 33 lodoptim 3f + 34 lodoptim 3f + 3 bd1proci + stlbasex proci + 1 + procirsc 256 imast + imastral 1953 imst1 + imst1rab 1 mastr + 44 lod 9011 alfin + alfinsia 9011 + lod 1960 + bd61f + ral 9011 2f + 1 rsl 9011 + nze2f + alo 9000 + nze3f + rsu 9001 3f + 2 alo 9000 3f + 3 stlinstr 219 a + 218 ralfivtg pnch1 + 217 lod coddl + stlcoreq 219 + 220 raa 8002 c8xeq + 1 + finisralprogp + nze 1f + raa 8001 + rallocus + lodo0139 + siab0000a + stuprogp 1f + 1 raulevel + stdkee + raucorec + stloptim + stukeepp + stladend + lodcarry + stdkeep ssout + readard1 1999 start + ssoutrd1 1999 start + progpalf think + 1 + 1 iii master address calculator + 1 + hed. + mastrstltemp + lod 8007 + std00032 + slt 2 + set 9000 + ldiq0001 + ldiz0001 + nze 9002 + bmc 9005 + ralcarry + bd6 9000 + rsa 53 9040 + q0008drc 9007 + 9002nzu 1f + alo90i 1f + 1 sup 8003 + raa 8001 1f + 1 sup 8003 + nze 1f + std 9006 + alo100p + nzu 2f + sup 8003 + slt 1 + aup 9006 + slt 1 1b + 1 ral 8001 + nza 9005 + srt 1 + bovkkkk4d + alor0000a + bd6hlt44d 9000 + 9005bovhlt88d 9000 + 2 sxa 90 + bmasymbld + slo1b39 + nze 9033 + slo 9035 9034 + 9000ldi00001 9029 + 9001ldi10001 d + loddtaggbfarbld + 90i 00 0 90 + 100p 10 0 0 + 1b39 10 0 90 + 1 + z0009drc 9041 + 9035alfb think + 9034nze 4f + slo4op + nzesymbl + bovkkkk2d + ralf0000a 9059 + 9059bd6 9000 + bmc hlt55d + bmbhlt88 9040 + 9040sct 1 9001 + 9033bovkkkk3d + bmc 9037bhlt55 + 9038rallocus 9000 + 9037rallocus 9000 + 9036ralf0000a2f + 4 bovkkkk3 + ralb0000a + bd6hlt88 9000 + 9039nzu3f 9000 + 3 srt 4 9000 + 2 slt 4 + alo 8005 + lodo0002 + stdf0000a d + stlprogp d + bd0 9040 3b + 4op 04 0 0 + 9058rac 9007 + nzcfarind 829 + cor + 300 ram 8000 + set 9000 q0001 + 1 + symblrautemp symb1 + symb1slt 8 + nzu1f + rau 8001 + aup0000h + sup 8003 2f + 1 slt 2 2f + 2 stds0294 + tles0001 + sloq0004 + bovequsy + bmi3f + bmc 9001 + nzchlt55 896 b + 3 nzcdivid 897 b + dividdiv2d + raa 8002 + rsu 8003 + aloe0147a 9039 + 2d 00 2 0 + q0004 00s0294 0 + 1 + o0022drc 9021 + 9029rac 9031 9018 + - 9002 19 9900 1 + 9003 79 9980 0 + 9006 80 0700 1 + 9007 89 9900 0 + - 9008 90 5900 2 + - 9009 90 9900 3 + 9010 99 9900 0 + 9018stl 9050 + slt 6 + slo 8002 + tlu 9002 + alo 8002 + raa 0 + bma 9016 9012 + 9016ram 9004b 9016a + 9013raa 0 9014 + 9014srt 1 9015 + 9015aml 9050 1f + 9012ram 9050 1f + 1 lod 8003 + sia 9050 9001 + 9001ral 8001 300 c + cor + 1 + f0000alfyyyyy think + filf0000 f0009 + 00 0080 0000 + filb0000 b0009 + 00 0080 0000 + r0018 00 0080 0000 + r0019 00 0080 0000 + r0020 00 0080 0000 + r0028 00 0080 0000 + r0029 00 0080 0000 + r0030 00 0080 0000 + r0031 00 0080 0000 + r0038 00 0080 0000 + r0039 00 0080 0000 + r0048 00 0080 0000 + r0049 00 0080 0000 + filr0061 r0069 + 00 0080 0000 + filr0071 r0079 + 00 0080 0000 + filr0082 r0099 + 00 0080 0000 + 1 + 1 iv optimizing routines + 1 + hed, + farcebd67f 9058 + faronbd6 9058 7f + farblbd6 9058 7f + 7 ralcorec + alo1ixxx + rac 8002 + sxc 9059 + stlcorec + bmc 9003 + sxc 60 + bmc 9003 + aupo0061c 9010 + farinral 1960 farsw + farswslt 1 b + lod 8002 + bd4 828 c + rsc 1 + ram 1958b 9004 + 829 bmb 9005 + ramccnt1 9004 + 1 + coddlset 9001 + ldi10001 + std 9049 + rac 9007 + bmc 9049 9005 + 10015drc 9015 + syn 9039 + syn 9041 + 9010bmi7b 9003 + 9005ral 9039 + nzb 2f + bmi1f + bd2 d7f + raminstr d + slt 2 d + slo 8002 d + tlun0059 9009 + 9009alo 8002 + ral 0 + alon0074 7f + 1 rauinstr d + slt 5 d + srt 9 d + rau 8003 d + slt 4 9011 + 9011aup d 8003 + raln0071 + lod 9039 + bd27f 2f + 7 slt 4 2f + 2 stl 9058 + ral 9041 + div 9008 d + nzu 4f + ram 9058 + slt 2 + sup 8003 5f + 4 ram 9058 5f + 5 srt 8 + alo 9041 9004 + 9004div50i farofd + farofral 8003 9049 + 9008 00 0 2 + 50i 00 0 50 + 1 + 9049alo 8002 + alo 8002 + lod 8006 + std30007 d + rab 4 9013c + 9013rac 0 1f + 9014rac 0 1f + 1 slo50i + bmi 9050 + axc 50 1b + 9050ldi20001 9051 + 9012rac 8002 1f + 1 raua0001c + nzu 9002 + sxb 1 + nzb hlt22d + axc 1 1b + 234 ram 8000 d + rac 9007 9004 + 9001ldi30000 9001 + 9002ldi30001 9002 + 9003ldi30002 9005 + cor + 1 + hed+ + 20004drc 9053 + 9051slt 4 9050 + 9050alo1f 2f + 2 stlhld + lod 9052 + set 9002 d + ldia0001chld + 1 tlu 9052 3f + 9052 00 0 1 + 3 slo1b + bmi 9001 d + cor + nzb hlt22 + sxb 1 + sxc 150 + nzc 1f + axc 200 1f + 1 ral 2b + tlu 9002 3b + 1 + hed) + 30015drc 9016 + 2i syn 9041 + 9001srt 4 + axc 8002 + axc 50 9002 + 9002raua0001c + sct 0 + rab 8002 + slt 1 + srd 1 b + stua0001c + rau 8006 + mpy50i + rab 8002 + ral 8007 d + div4i d d + mpy500i d + alo 8003 + alo 8006 9003 + 9003rab 9008 9005 + 9005bov1f 9004 + 9004stl 9006 findx + findxrau 9007 + rac 8001 + srt 0002 + slo 8002 + tlu 9011 + alo 8002 + 64 9999 d + alo 9007 d + stllevel d + sxc 293 d + bmcstore hlt11 + storelods0294 d + stds0294c + rsl 8007 + div2i d + rsc 8002 + slo 8001 + alo 9006 + lode0147c + nzu 2f + slt 4 9009 + 9009 sdae0147c + srt 4 3f + 2 siae0147c3f + 1 bmb 9000 + lodo0103 d + siaf0000a 9000 + 3 bov 2 b 9000 + 50i 00 0 50 + 4i 00 0 4 + 500i 00 0 500 + 2i 00 0 2 + levelalf think + 2 9010 24 8888 1 + 2 9011 46 0998 3 + 2 9012 47 8888 1 + 2 9013 96 8888 8 + 2 9014 56 8888 3 + 2 9015 97 8888 8 + cor + 1 + n0001 24 1954 0498 nop + n0002 69 1654 5498 hlt + n0003 03 0323 2299 ufa + n0004 44 0105 0598 rtc + n0005 80 0005 0598 rtn + n0006 21 0305 0598 rta + n0007 40 0005 5598 wtn + n0008 15 0505 0598 wta + n0009 03 0312 1299 lib + n0010 03 0302 0299 ldi + n0011 03 0305 0499 aup + n0012 03 0305 0499 sup + n0013 48 0098 0099 + n0014 09 0800 4099 + n0015 03 0311 1099 div + n0016 03 0305 0499 alo + n0017 03 0305 0499 slo + n0018 03 0305 0499 aml + n0019 03 0305 0499 sml + n0020 03 0321 2099 mpy + n0021 05 0403 0399 stl + n0022 04 0503 0399 stu + n0023 03 0403 0399 sda + n0024 03 0403 0399 sia + n0025 03 0303 0399 std + n0026 04 0405 0598 nts + n0027 49 0505 0598 bin + n0028 98 0005 0598 set + n0029 03 0312 1299 sib + n0030 03 0302 0299 sti + -n0031 00 9090 9098 srt + -n0032 65 1200 0088 srd + n0033 03 0327 2699 fad + n0034 03 0327 2699 fsb + n0035 03 0341 4099 fdv + -n0036 00 0000 0098 slt + -n0037 00 0400 9898 sct + n0038 03 0327 2699 fam + n0039 03 0327 2699 fsm + n0040 03 0347 4699 fmp + n0041 03 0304 0498 nza + n0042 03 0304 0498 bma + n0043 03 0304 0498 nzb + n0044 03 0304 0498 bmb + n0045 03 0404 0598 nzu + n0046 04 0305 0498 nze + n0047 03 0304 0498 bmi + n0048 03 0305 0598 bov + n0049 03 0304 0498 nzc + n0050 03 0304 0498 bmc + n0051 79 9999 9988 axa + n0052 00 0100 0588 sxa + n0053 65 1493 0088 axb + n0054 19 9005 0588 sxb + n0055 04 0405 0598 nef + n0056 40 4005 0598 rwd + n0057 00 0005 0598 wtm + n0058 90 8955 5598 bst + n0059 79 9994 9588 axc + n0060 24 7750 0488 sxc + n0061 03 0305 0499 rau + n0062 03 0305 0499 rsu + n0063 00 1499 1499 + n0064 03 0315 1699 tle + n0065 03 0311 1099 dvr + n0066 03 0305 0499 ral + n0067 03 0305 0499 rsl + n0068 03 0305 0499 ram + n0069 03 0305 0499 rsm + n0070 03 0303 0399 lod + n0071 23 2225 2498 rd1 + n0072 07 0607 0698 wr1 + n0073 07 0609 0898 rc1 + n0074 09 0811 1098 rd2 + n0075 11 1013 1298 wr2 + n0076 13 1215 1498 rc2 + n0077 15 1417 1698 rd3 + n0078 17 1619 1898 wr3 + n0079 19 1821 2098 rc3 + n0080 21 2023 2298 rpy + n0081 80 0096 9788 raa + n0082 80 0194 9588 rsa + n0083 80 0297 9788 rab + n0084 80 0396 9888 rsb + n0085 03 0315 1699 tlu + n0086 24 4905 0598 sds + n0087 60 8005 0598 rds + n0088 39 0505 0598 wds + n0089 90 5996 9788 rac + n0090 99 9999 9988 rsc + n0091 04 0405 0598 bd0 + n0092 03 0305 0598 bd1 + n0093 03 0305 0598 bd2 + n0094 03 0305 0598 bd3 + n0095 03 0305 0598 bd4 + n0096 03 0305 0598 bd5 + n0097 03 0305 0598 bd6 + n0098 03 0305 0598 bd7 + n0099 03 0305 0598 bd8 + n0100 04 0405 0598 bd9 + fila0001 a0200 + alfyyyyy think + 1 + 1 v output control + 1 + hed- + punchralfivtg pnch1 + pnch1bmi9f 2f + 2 raa 8001 + aup533tl + nzucorof + nza2f + ral50009 + alo1ixxx + stl50009 + wr150001 + bovexit0 + ralfivon 2b + 2 slo20003 + stlfivtg + lodinstr + std50001a + ral50008 + aup50007 + srt 4 + auplocat + stl50008 + stu50007 + bov8f 9f + 9 ral533tl + nzecorof + rallocat + slon0027 ramsw + 1 + filllstlexit0 + ralfivtg + bmiexit0 + raa 8001 + stu533tl + sxa 5 + bma exit0 + lod50007a + stdinstr 8f + 8 ral50007 + srt 6 + sct 6 + slo 8002 + sialocat punch + 1 + ramonbmi corsw + alon0088 + bmiramn0 ramn1 + ramn1rab 1 2f + ramn0rab 0 2f + 2 raldiskrb + rds 9000 + slt 2 + aup10008 + rsa 8003 + srt 2 + lodlocat + std 9001a + lodinstr + std 9000a + stldiskrb + wds 9000 + nzacorof + alo6bm41 + stldiskrb + sds 9000 corof + ramofbmicorof corsw + ramswbmicorof corsw + 1 + coronloddiskc + sds 9000 + rds 9000 + lod90002 + rac 8001 + srt 2 + alon0086 + lodinstr 8002 + 8002std 9000 92 + 92 loddiskc + wds 9000 corof + 1 + psudosct 1 prone + corofracfinis prone + corswracfinis prone + pronersa 1 + lodonesw + bd29f + axa 1 90001 + 90003wr1 9040 9f + 9 lodprtsw + bd29f 90002a + 90002wr2 9040 0 c + 90001ramlocus + slt 5 + set 9057 + aloccnt1 + alo1ixxx + sti 1957 + siaccnt1 + set 9040 + ldi 1951 + stl 9048 + ral 9050 + aup 9049 + slt 3 + srt 3 + bov1f + srt 2 + sda 9047 + lodinstr + std 9046 + slt 2 + aml533tl 2f + 1 std 9047 + aupn0051 2f + 2 slo 9050 + lod 8003 + sia 9049 90003a + 9 bov 0 c 0 c + 7 diskc 00 0008 8382 + -6bm41 60 0 10 + ccnt1alf think + 50009alf think + 50010 00 8800 0 + -fivtgalfyyyyy think + -oneswalf99999 think + -prtswalfyyyyy think + dump8sds 9000 dump9 + dump9rds 9000 9000 + hed + 1 + 1 vi pseudo operations + 1 + nmo + blao0099 o0100 + blao0149 o0150 + bla 1712 1749 + bla 1963 1993 + 959 stdinstr procl + alfotral 1953 + nze1f + lod2f + std 1953 1f + 1 ral 1952 + raa 0 alfin + 2 alfthink thimk + 1 + 963 stu 1951 bla + lodsub1u blr1 + 1 + 961 lodsub1r blr1 + blr1 stdexit0 dmast + 500 lod 8005 7f + 7 stdlocat + siafwaxx + aup 1951 + nzu 261 c + rab 259 cequsb + 461 ral 1953 + rac 163 imst1 + 463 bma hlt99 + rac 9005 + nzchlt99 + lodlocat + sxa 8001 459 a + 458 nzahlt99 exit0 + 457 nzahlt99 00020 + 00020raa 8002 ldi41 + ldi41ldi40001 9006 + 40005drc 9009 + 9006axa 9005 + bmahlt99 + rab 1000 + sxb 8001 + rsl 9006 + stlblrtgd d + lodexit0 30014 + 30014bd7 9008 + lod2f 4f + 9008lod3f 4f + 4 std 9059 8001 + 2 rsmo0001b1f + 3 ramo0001b1f + 1 stlo0001b + nza 1 + sxa 1 + axb 1 9059 + 9007raa 59 + rab 0 9008 + cor + 1 + 960 ralsub1r equ1 syn + 60 bma 500 hlt99 + 21 rallocat + set 9005 + alo 8002 + ramfwaxx 00022 + 1 + hed$ + sub1uraat0001 240 + sub1rraau0001 240 + 240 ldi 0 a + ldiv0001 9025 + t0003drc 9007 + 9005aupates + srt 0 b + sup 8003 9011 + 9006axb 10 + ralates 9028 + ates alfyyyyy think + u0003drc 9007 + 9005srt 0 b 9011 + 9006axb 10 9028 + + v0008drc 9018 + 50i equ 9017 + 500i equ 9016 + blr 9024 9028 + 9012ram 8001 + div500i d + rac 8002 9026 + 9013div50i 9014 + 9014raa 8002 9027 + 9015rala0201c + slt 0 a + stu 9004 + slt 0 b + sup 8003 9005 + 9011aup 9004 + srt 0 a 9028 + 50i 00 0 50 + 500i 00 0 500 + 9025sia 9000 + smlfwaxx + bmihlt99 + nze 9024 9012 + 9024ldiw0001 9012 + 9026ral 8003 9013 + 9027aup 8003 + rab 1 + aup 8003 + sxc 200 + axc 8003 9015 + 9028stla0201c 1 + w0006drc 9029 + 9026stu 9001 9024 + 9024ram 9000 9025 + 9025div500i d + stu 9002 + sup 8001 + stl 9003 8f + 8 slo 8007 + nze5f d + ral 9002 + div50i d + rab 8002 6f + 6 stu 9000 + sxc 200 + ral 9001 + nze 9013 9014 + 9027sxb 0 a + axa 1 0f + 0 nzu1f + sxa 1 + axb 1 1f + 1 stu 9001 + rau 9000 + bmi 1f + aup500i + sxb 1 2f + 1 sup1i 2f + 2 stu 9000 + nzb 1f + sxb 10 + nzb 9006 + axb 10 9015 + 9028stla0201c1f + 1 axc 4 + bmc 30011 + rau 9001 + sup1i 0b + 1 stu 9001 8b + 1i 00 0 1 + cor + 5 rab 9 + sct 1 + rau49i 6b + 49i 00 0 49 + 30011bov 1 + axc 1 + ral 9003 1b + cor + hed + 1 + 953 rsl 8002 equ1 + equ1 stlexit0 + ral 1953 + nze 1f + rac 155 imst1 + 455 lod 1960 + bd6 1f + rsl 8002 1f + 1 stl30005 + rac 156 dmast + 456 alo30005 + aup 8001 + rsc 9020 + rsb 1 + bmc 9018 equsb + 1 + equsbstl30005 + aupn0090 lmst2 + equsysct 9006 + ldi30005 + bmi findx + rac 8003 store + kkkk2ral30005 + lodo0113 + siaf0000a 2 b + kkkk3ral30005 + lodo0113 + siab0000a 2 b + kkkk4slo30005 + sloo0113 + siar0000a 2 b + 1 + 964 ral 1951 und + slt 2 + raa 8003 + lodo0002 + stdf9910a 1 + 1 + 965 stucdiff cor + rsl 8002 966 + 1 + 966 stlexit0 drc + ral 1952 + nze 1f + rac 159 dmst1 + 459 slo1ixxx + stlcorec + stdkeepp + aupexit0 + bmi2f 464 + 464 stlfwaxx + rac 162 lmast + 462 slofwaxx + lodexit0 + rac 8001 + nzc 9f + slo1ixxx + stlcdiff 2f + 2 ralblrtg + stublrtg + lodfarce 2f + 1 lodfaron 2f + 2 stdfarbl + bmi 1 + ldi49997 9007 + cdiffalf think + ctagxalfyyyyy think + blrtgalf think + corec 00 0 8999 + keepp 00 0 8999 + 1 + 967 ral 1952 cod + nze 9f + stuexit0 + rac 164 dmst1 + 9 stlddiff 1 + ddiffalf think + 1 + 988 rac psudo + rac 165 dmast + 465 slo1ixxx + stlccnt1 reada + 1 + 969 rac 166 dmast + 466 slo1ixxx + stl50009 1 + 1 + 971 axb 1 972 dup + 972 rac 0 pud + rau 1952 symb1 + 973 rac 167 dmast opt + 467 hlt 1996 1996 + 1996mpy 8000 30010 + 30010bmi 898 3 + 896 lodreada putag + 1ixxx 00 0 1 + 898 lodreada putag + 1 + 974 ral 1952 1f hed + 975 rsl 1952 1f scr + 1 slt 2 + stu0000h 1 + 0000half think + 1 + 997 rams0100 filll fiv + -s0100ral 1952 + nze 1f + rsm2f 8001 + 1 ramfivon 2f + 2 stlfivtg 1 + 1 + 978 sxb 1 977 prt + 977 ral 1952 one + nze 1f + rsmn0032 2f + 1 rsmn0031 2f + 2 stloneswb 1 + 1 + 981 rac 500 1f cdd + 980 rac 400 1f dsk + 979 rac 300 1f tap + 996 rac 100 1f fil + 982 sct 1 1f dek + 1 rau 8007 + alon0014 + srt 3 + set 9052 + aup 1953 + stldumpc + ldi 1950 9052 + 1950sti 46 302 + 302 bov3f + nzu3f 1f + 3 stdcarry + stdkeep + ral2f + stdssout 1 + 1 rac2f psudo + 2 raldumpc + slt 1 + rac 8003 989 + 989 lodc0001cdump8 pal + 7 c0001 00 0003 8002 bop + 7 c0002 00 0003 8562 fil + 7 c0003 00 0003 8522 dek + 7 c0004 00 0003 8382 tap + 7 c0005 00 0003 8352 dsk + 7 c0006 00 0003 8362 cdd + 7 c0201 00 0003 8622 pal + 1 + 984 rac 900 psudo + 900 rsa 200 + rsb 599 n0002 + 2 n0002lodo0104 1498 + 899 std 9009 + ramo0050 7f + 7 rsc 8 2f + 2 loda0201a + std 9009c + stl 9008c + axc 2 + axa 1 n0013 + 2 n0013nzc 98 99 + 98 amls0199 2b + 99 wr1 9000 n0007 + 2 n0007nza 5 1598b + 5 slon0063 7b + 00050 00 0 450 + -s0199 00 500 500 + 1 + 1999rsun0037 + mpy 1951 + bmi 1954 + rac 8003 + rsb 8 1f + 1 lod 1960bn0060 + 2 n0060stda0001c 488 + 488 axb 2 1004 + 1004nzb reada + axc 1 1b + 1 + 954 rac 800 psudo pst + 800 ralo0104 n0001 + 2 n0001std 1954 498 + 498 stu 1953 + rsc 19 970 + 970 lodlevel ser + rab 8001 + set 9001 + ldi 820 c 9001 + 60006drc 9006 + 9001ramn0032 2f + 2 nzb reada + stl 9002 8001 + 2-n0032rals0001 88 + 88 bmi 9003 + std 1951 + ral 9002 + slon0053 divid + 2 n0053rals0294 88 + 9039nzu 1f + srt 4 1f + 1 raa 8002 n0087 + 2 n0087rau 8005 598 + 598 aup 9004 + srt 1 n0054 + 2 n0054mpy 9005 588 + 588 mpy1ixxx + srt 2 + nzun0054 + smln0031 + srt 1 + stl 1952 sprud + sprudrsc 997 psudo + 9003sxb 1 + ral 9002 + alo 9004 2b + 9004 00 1 0 + 9005 00 0 10 + 70003drc 9003 + 9001rac 0 2f + 2 sxc 0000b + nzc 9002 + axc 0001b + rals0000c + bmi2b + stus0000c2b + 9002stulevel 1 + cor + -s0049alfdiskr think + -s0050alfdskr1 think + 1 + 987 rac 168 lmast + 468 rab 8002 30013 + 30013wtm 0 b 3 + 983 rsl 8002 968 plr + 968 lods0149 dump8 skp + 7-s0149 00 0003 8602 + 1 + 985 stumodet 1 nmo + 990 rsu1ixxx 985 hmo + 991 rau1ixxx 985 mmo + modetalf think + 1 + 992 rac 169 imast + 469 stlexit0 + rac 170 dmast + 470 slt 4 + aloexit0 + slt 2 + lod 1960 + bd61f + alo1ixxx 1f + 1 amln0036 + stloptim 1 + optimalf think + 1 + 993 rac 171 imast adn + 471 stlexit0 + rac 172 dmast + 472 rac 8002 + lod 1960 30012 + 30012bd61f + ralexit0 2f + 1 rslexit0 2f + 2 slt 0 c + aloadend + stladend 1 + adendalf think + 1 + 994 rsmo0013 pdd + stldiskr + sds 9000 + rsmo0014 + stls0050 + sds 9000 + lodramon 30009 + 1002lodramof 30009 + 30009stdramsw 1 + 995 loddiskc + sds 9000 + raa 59 + ral 3f + hlt 9059 8000 + 3 stl 9000a + nza 2f + slo60004 + sxa 1 3b + 2 loddiskc + wds 9000 + lodcoron 1f + 1001lodcorof 1f cof + 1 stdcorsw 1 + 1 + 200 ramn0037 filll end + 1 + 1000rams0150 filll bop + -s0150lodc0001 dump8 + 1 + 1003lodfarof dmo + stdfarsw 991 + 1 + 1005lod dump8 + 7 00 0003 8642 + 1 + 1006lod dump8 + 7 00 0003 8652 + 1007rsl 8002 1006 + 1008sct 1 1006 + 1009sct 1 1007 + 1 + 1 vii error correction restarts + 1 + hlt11hlt 2 b 111 + hlt22hlt 997 c 222 + hlt33hlt 333 333 + hlt44hlt 0 a 444 + hlt55hlt 2 b 555 + hlt66hlt 666 666 + hlt77hlt 777 777 + hlt88hlt 1000a 888 + hlt99hlt 999 999 + 1 + 111 bov 888 888 + 222 bov 888 888 + 444 lods0200 dump8 + 888 lods0200 dump8 + 7-s0200 00 0003 8662 + 666 stdcarry + stuoptim 333 + 333 stuprogp reada + 555 rd1 1999 start + keep alfyyyyy think + pal + 3800cdd 0 1999 + rd1 1999 1998 + con + 1 locafier 3834 tap cdd and dsk + lholdequ30005 + dholdequs0294 + iholdequ533tl + dbandequs0292 + drem equs0293 + ibandequs0260 + irem equs0270 + blr 0 1999 + bla 1960 1993 + bla 1998 1999 + cor 9000 + 0 ral 47 + rac 1650 + rsb 1 + lod1f + set 9010 8001 + 1 sti 1950 mastr + cor + 9010cod 1950 + 1950stllhold + ral 49 + nze 9f + lod5f + sds 9000 1f + 1 axc 1 mastr + 1951stlihold + axa 1 + nzahlt55 + ramramsw + sloramon + nze 1695 + ral 48 1b + 1952stldhold + nze1f + ralihold + slo3f + nze1f 2f + 3 00 0 1999 + 1 axa 1 + nzahlt55 2f + 2 ral5f 1699 + 7 5 00 0008 8002 + 1954lod 308 c + sds 9000 + rds 9000 + set 9010 306 c + 1956sti 1650 + axc 1 1954 + 1957sti 1950 reada + 9 ralcorsw + slocoron + loddiskc + sds 9000 + nze 1954 + rds 9000 1696 + 7 1958 00 0003 8282 + 7 1959 00 0003 8332 + 1996sds 9000 1954b + 1953ldi 1700c1f + 1955ldi 0 c1f + 1 wds 9000 + nzc 1654b + sxc 50 write + writealo1f + lod 8002 1996 + 1 00 0 10 + hlt44hlt 301 c 300 + hlt55hlt 301 c 300 + hlt88hlt 301 c 300 + 3834cdd + 1 locafier 3835 dsk start + blr 0 1999 + bla 1650 1694 + syn 1653 + syn 1655 + cor 9000 + 0 lod1f + sds 9000 + lodreada + stdssout + lod2f + set 9010 8001 + 2 sti 1650 + lod1f + rds 9000 9000 + 7 1 00 0003 8342 + cor + 9010cod 1650 + 1699rac 200 set90 + set90set 9000 1996 + 1695rac 1650 1954 + 1696rallhold + slt 1 + alo1f + lod 8002 + sds 9000 + wds 9000 1954 + 7 1 00 0 2 + 1653rab 1 + rac 1600 write + 1655rallhold + slt 1 + alo6f + stl 1604 1698a + 1697lod3f + sds 9000 + sct 1 dump9 + 7 3 00 0003 8432 + 1698lod1f + sds 9000 + ralihold + div2f + stliband + stuirem + rab 0 + lod1f + rds 9000 9000 + 7 1 00 0003 8452 + 2 00 0 50 + 7 6 00 0 2 + 3835cdd + 1 locafier 3836 cdd start + blr 0 1999 + bla 1650 1673 + blr 1651 1653 + syn 1655 + cor 9000 + 0 lod1f + sds 9000 + lodreada + stdssout + lod2f + set 9010 8001 + 2 sti 1650 + lod1f + rds 9000 9000 + 7 1 00 0003 8342 + cor + 9010cod 1650 + 1699wr1 1666 + rac 200 + set 9000 1996 + 1696wr1 1666 + rsb 56 1f + 1 set 9056b + sti 1677 + nzb3f 1655 + 1655rallhold + slt 1 + alo6f 1651b + 1651lib 1674 + set 9000 + sib 1681 + stl 1684 3f + 3 lod1f + std 1686 + wr1 1666 + nzb 1954 + axb 8 1b + 1 00 8088 0 + 1653rab 1 + rac 1600 write + bla 1685 1693 + syn 1686 + 1652stl 1604 1698a + 1697lod dump8 + 7 00 0003 8432 + 1698lod1f + sds 9000 + ralihold + div2f + stliband + stuirem + lod1f dump9 + 7 1 00 0003 8452 + 7 6 00 0 2 + 2 00 0 50 + 1686 00 8088 0 + 1695rac 1650 1954 + 9037cod 1951 + 1951lod 1952 1953 + 1952set 9056a 1956 + 1953std 1900 1954 + 1954rsa 56 1955 + 1955rd1 1900 9898 + 1956ldi 1901 1957 + 1957nza 1958 1905 + 1958axa 8 1955 + 9034cod 1905 + 1905lod 1908 1906 + 1906sds 9000 1907 + 1907wds 9000 8000 + 3836cdd + 1 locafier 3837 drum restorer + blr 0 1999 + bla 1905 1925 + cor 9000 + 0 ral1f + sds 9000 + rab 0 + rsc 1900 + raa 4 + lod2f + set 9010 8001 + 2 sti 1900 + lod1f 2f d + 7 1 00 0008 8372 + cor + 9010cod 1900 + 2 rds 9000 + nza5f 1900b + 5 slo3f + lod 8002 + sds 9000 1945 + 1945sti 1900c + sxa 1 4f + 4 axc 50 2b + 1900lod1f 7f + 7 sds 9000 + sti 1900c + rds 9000 + slo3f + lod 8002 + set 9010 1939 + 1939sds 9000 1946b + 1946sti 1950 + raa 4 6f + 1947sti 1650 + raa 23 6f + 6 axb 1 4b + 1902raa 4 + axb 1 + axc 50 5b + 1901lod8f 7b + 7 8 00 0003 8282 + 1903sti 1900 reada + 7 1 00 0003 8332 + 3 00 0 10 + blr 0 1999 + bla 1976 1994 + syn 1989 + 9059sds 9000 9014 + 9014cod 1954 + 9014sti 1954 9058 + 9058rds 9000 + adn 5 5 + alo3b + lod 8002 + sds 9000 + set 9030 + sti 350 + rds 9000 + sti 380 + adn 5 5 + lod8b + sds 9000 + rds 9000 + set 9010 + sti 1650 + adn 5 5 + lod1b + sds 9000 + rds 9000 + set 9010 + sti 1950 reada + 3837cdd + 1 locafier 3838 tap start + blr 0 1999 + bla 1651 1692 + syn 1653 + syn 1655 + cor 9000 + 0 lod1f + sds 9000 + lod 1955 + std 9054 + lodreada + stdssout 9010 + 9010sti 1650 + ral 49 + lod1f 2f d + 3 rds 9000 9000 + 7 1 00 0003 8342 + cor + 9010cod 1650 + 2 nze3b + lod 1960 + bd6 3f + lod5f + std4f 3f + 3 lod1b 3b + 1699rac 200 + set 9000 1996 + 1696ral 48 + nze 1f + rac 1393 mastr + 1 rsa 1000 1f + 1693raa 8002 1f + 1 lodlhold + rab 8001 + rac 4 1f + 1 set 0 a4f + 4 wtn 0 b6f + 5 wta 0 b6f + 6 nts 1695 + sxc 1 + nzc 9911 + bst 0 b1b + 1653rab 1 + rac 1600 write + 1655lodlhold + std 1604 1698a + 1697lod dump8 + 7 00 0003 8392 + 1698lod1f + sds 9000 + ralihold + div2f + stliband + stuirem + lod1f + rds 9000 9000 + 7 1 00 0003 8412 + 2 00 0 50 + 1695rac 1650 1954 + 3838cdd + 1 locafier 3839 tap drum loader + cor 9000 + 0 lod1f + sds 9000 + lodinstr + std 9042 + lod 1694 + std 9022 + rallhold + slt 4 + lod 9028 + sda 9028 + lod 9024 + sda 9024 + lod 9031 + sda 9031 + lod 9046 + sda 9046 9019 + 9019sti 1609 + lod1f + rds 9000 9000 + 7 1 00 0003 8402 + 9021drc 9001 + syn 9002 + 0 nts 9030 9000 + 9000ral 9008 + rac 9 3f + 3 bstlhold 9036 + 2 9036set 9000 8002 + 9008rtnlhold + nts 9030 + sxc 1 + nzc3b 9900 + 9030rac 10 9009 + 9009sti 1969 1975 + 9029cod 1969 + 1975rsa 1700 1981 + 1981ral 1986 1992 + 1992sti 1700a 1972 + 1972rab 0 8002 + 1986rtnlhold 1991 + 1991axb 1 1997 + 1997lod 1975b 1994 + 1994nts 1999 1971 + 1999rac 10 8001 + 1971bstlhold 1983 + 1983sxb 1 1988 + 1988sxc 1 1993 + 1993nzc 1996 9901 + 1996set 9000 8002 + 1976sti 1720a 1973 + 1973sti 1750a 8002 + 1977sti 1780a 1995 + 1995sti 1800a 8002 + 1978sti 1840a 1970 + 1970bma 1989 1974 + 1989sti 1850a 8002 + 1979sti 1900a 1987 + 1987sti 1950a 8002 + 1980sti 1960a 1984 + 1984axa 300 1992 + 1974ral 1982 1989 + 3839cdd + 1 locafier 3840 tap drum dump + blr 0 1999 + bla 1751 1773 + cor 9000 + 0 lod1f + sds 9000 + lod2f + set 9010 8001 + 2 sti 1750 + lod1f + rds 9000 9000 + 7 1 00 0003 8472 + cor + 9010cod 1750 + 1750lod 1604 + rab 8001 + ral1f 2f + 2 set 9000 + wtn 0 b + nts 1950 + bst 0 b + slo3f + nze2b 9911 + 1 00 0 10 + 3 00 0 1 + 9010cod 100 + blr 0 1999 + bla 124 149 + blr 140 141 + 140 lod 293 4f + 141 lod 293 4f + 4 rab 8001 + ral1f 2f + 2 set 9000 + wtn 0 b + nts8f + bst 0 b + slo3f + nze2b 9911 + 1 00 0 4 + 3 00 0 1 + 8 bov 347 325 + 3840cdd + 1 locafier 3841 tap fwa lwa 1 + cor 9000 + 0 lod1f + sds 9000 + lod 1694 + std 9018 + ral 1604 + slt 4 + lod 9020 + sda 9020 + lod 9016 + sda 9016 9015 + 9015sti 1750 + lodinstr + std 1750 + lod1f + rds 9000 9000 + 7 1 00 0003 8482 + 9017drc 9001 + syn 9002 + 0 nts 9006 + hlt 8888 + bstlhold 9000 + 9000rtnlhold 9001 + 9006lod 9009 9008 + 9008set 9010 8001 + 9009sti 8888 9000 + cor + blr 0 1999 + bla 1763 1789 + bla 1791 1793 + 9015cod 1750 + 1762ral 9009 2f + 2 lod 9003 + sda 9003 + lod 1604 + rab 8001 + rac 4 1f + 1 set 9000 + wtn 0 b + nts3f + sxc 1 + nzc 9911 + bst 0 b1b + 1761lod 1751 + std 9000 + ral1f + alo 9009 + stl 9009 2b + 1 00 0 7 + 3 bov 1998 + lod2f + sds 9000 + rds 9000 9000 + 7 2 00 0003 8372 + 7 1790 00 0003 8422 + 3841cdd + 1 locafier 3842 tap fwa lwa 2 + cor 9000 + 0 lod1f + sds 9000 9020 + 9020sti 110 + lod2f 9010 + 9010lib 1751 + set 9010 8001 + 2 sib 101 + lod1f + rds 9000 9000 + 7 1 00 0003 8492 + cor + blr 0 1999 + bla 114 149 + 9020cod 110 + 112 ral 9009 2f + 2 lod 9003 + sda 9003 + lod 293 + rab 8001 + rac 4 1f + 1 set 9000 + wtn 0 b + nts3f + sxc 1 + nzc 9911 + bst 0 b1b + 111 lod 101 + std 9000 + ral1f + alo 9009 + stl 9009 2b + 3 bov 347 349 + 1 00 0 7 + 3842cdd + 1 locafier 3843 cdd dsk drumdump + blr 0 1999 + bla 1751 1771 + cor 9000 + 0 lod1f + sds 9000 + lod2f + set 9010 8001 + 2 sti 1750 + lod1f + rds 9000 9000 + 7 1 00 0003 8442 + cor + 9010cod 1750 + 1750ral 1604 1773 + 1773rsb 56 1f + 1 set 9056b + sti 1827 + nzb3f + ldi 1797 + set 9000 1772 + 1772sti 1831 + stl 1834 + set 9000 3f + 3 lod 1796 + std 1836 + wr1 1818 + nzb both1 + axb 8 1b + 1796 00 8088 0 + both1alo 1795 + stl 1604 1950 + 1795 00 0 10 + blr 1751 1771 + bla 127 143 + blr 140 141 + 9010cod 100 + 140 ral 293 125 + 125 rsb 56 1f + 1 set 9056b + sti 577 + nzb3f + ldi 147 + set 9000 124 + 124 sti 581 + stl 584 + set 9000 3f + 3 lod 146 + std 586 + wr1 555 + nzb both2 + axb 8 1b + both2alo 145 + stl 293 + bov 347 325 + 141 std 149 140 + 144 wds 9000 8000 + 147 lod 1908 1906 + 148 sds 9000 1907 + 149 wds 9000 1954 + 3843cdd + 1 locafier 3844 cdd dsk loader + cor 9000 + 0 lod1f + sds 9000 + lodinstr + std 9035 9009 + 9009sti 1609 + bov 9050 3f + 3 lod1f + rds 9000 9000 + 7 1 00 0003 8472 + cor 9050 + 0 lod1f + set 9055 8001 + 1 sti 1772 3b + 9055cod 1772 + 1773sds 9000 1772 + 1772wds 9000 both1 + 9057cod 124 + 125 sds 9000 124 + 124 wds 9000 both2 + 9010drc 9000 + 0 rau 8001 + rsa 1700 + alo1f + rab 0 + sti 1965 1966 + 9015cod 1965 + 1966aup 1969 1973 + 1973lod 8003 1980 + 1980sds 9000 1986b + 1986sti 1700a 8002 + 1 rds 9000 1999 + 1999axb 1 1966 + 1987sti 1720a 1974 + 1974sti 1750a 8002 + 1988sti 1780a 1975 + 1975sti 1800a 8002 + 1989sti 1840a 1972 + 1972bma 1976 1982 + 1976sti 1850a 8002 + 1990sti 1900a 1977 + 1977sti 1950a 8002 + 1991sti 1960a 1967 + 1967axa 300 1981 + 1981rab 0 1986 + 1982lod 1985 1992 + 1992sti 1950 8001 + 1969 00 0 10 + cor + 3844cdd + 1 locafier 3845 cdd dsk fwalwa 1 + cor 9000 + 0 lod1f + sds 9000 9009 + 9009sti 1750 + lodinstr + std 1750 + nzb2f 9056 + 9056sti 1791 2f + 2 lod1f + rds 9000 9000 + 7 1 00 0003 8482 + 9010drc 9000 + 0 rau 8001 + aup1f + lod 8003 + sds 9000 + lod 9009 9008 + 9008set 9010 8001 + 9009sti 8888 9007 + 9007lod 8003 9006 + 9006rds 9000 9000 + 1 00 0 10 + cor + 9009cod 1750 + blr 0 1999 + bla 1763 1789 + 1762ral 1604 1792 + 1792rsb 56 1f + 1 set 9056b + sti 1827 + nzb3f + lib 1794 + set 9000 + sib 1831 + stl 1834 + set 9000 3f + 3 lod1f + std 1836 + wr1 1818 1791 + 1791nzb 7f + axb 8 1b + 1 00 8088 0 + 7 bov3f + alo1f + stl 1604 1998 + 3 lod2f + sds 9000 + rds 9000 9000 + 1793nop 0 9003 + 1 00 0 10 + 7 2 00 0003 8372 + 1761lod1f + std 1796 1762 + 1 wds 9000 8000 + 1794lod 1908 1906 + 1795sds 9000 1907 + 1796wds 9000 1954 + 7 1790 00 0003 8462 + 9056cod 1791 + 1793nop 0 9056 + 1792sds 9000 1794 + 1794wds 9000 7b + 3845cdd + 1 locafier 3846 cdd dsk fwalwa 2 + cor 9000 + 0 lod1f + sds 9000 9010 + 9010sti 100 + ral 1699 + slo2f + nze3f 9056 + 2 rac 200 set90 + 9056sti 141 3f + 3 lod1f + rds 9000 9000 + 7 1 00 0003 8492 + 9011drc 9000 + 0 rau 8001 + aup1f + lod 8003 + sds 9000 + lod 9009 9008 + 9008set 9010 8001 + 9009sti 8888 9007 + 9007lod 8003 9006 + 9006rds 9000 9000 + 1 00 0 10 + cor + 9010cod 100 + blr 0 1999 + bla 113 138 + 112 ral 293 142 + 142 rsb 56 1f + 1 set 9056b + sti 527 + nzb3f + lib 139 + set 9000 + sib 531 + stl 534 + set 9000 3f + 3 lod1f + std 536 + wr1 505 + nzb 7f + axb 8 1b + 1 00 8088 0 + 7 alo1f + stl 293 + bov 347 349 + 1 00 0 10 + 139 lod 1908 1906 + 140 sds 9000 1907 + 141 wds 9000 1954 + 111 lod1f + std 141 112 + 1 wds 9000 8000 + 9056cod 141 + 142 sds 9000 144 + 144 wds 9000 7b + 3846cdd + 1 locafier 3847 control drumdump + blr 0 1999 + bla 1951 1972 + blr 1956 1960 + cor 9000 + 0 lod1f + sds 9000 + lod2f + set 9010 8001 + 2 sti 1950 + lod1f + rds 9000 9010 + 7 1 00 0003 8502 + cor + 9010cod 1950 + 1999rsa 900 + set 9000 + ldi 1610 1f + 1 rac 1 + ldi 900 a 1750 + 1950axc 1 1955c + 1956ldi 920 a + ldi 950 a 1750 + 1957bma 1f + ldi 980 a + ldi 1000a 1750 + 1958ldi 1040a + ldi 1050a 1750 + 1959ldi 1100a + ldi 1150a 1750 + 1960ldi 1160a + axa 300 1b + 1 lod1f + sds 9000 + ldi 1973 9000 + 1973sti 323 + ldi 1774 + set 9027 + sti 124 324 + 7 1 00 0003 8512 + 9010cod 300 + blr 0 1999 + bla 326 346 + blr 331 335 + 324 rds 9000 9058 + 348 rsa 900 + set 9000 335 + 335 ldi 1880a + rac 1 + ldi 1900a 140 + 325 axc 1 330 c + 331 ldi 1940a + ldi 1950a + bma 9f + axa 300 140 + 332 ldi 1700a + ldi 1750a 140 + 333 ldi 1760a + ldi 1800a 140 + 334 ldi 1820a + ldi 1850a 140 + 9 ral 144 + sct 1 141 + 347 lod1f + sds 9000 + rds 9000 9000 + 7 1 00 0003 8372 + 3847cdd + 1 locafier 3848 control fwalwa 1 + blr 0 1999 + bla 1954 1997 + syn 1956 + cor 9000 + 0 raldhold + div 9013 + stldband + studrem + sup 8001 + slo 9011 9010 + 9010sti 1950 + bmi 1956 + lod 9012 + sds 9000 + rds 9000 9010 + cor + 9010cod 1950 + 1999set 9000 + libdband + raa 9000 + rab 9001 + rac 9002 2f + 2 raliband + slo 8005 + nze3f + sct 1 + lodirem + sxb 8001 + axb 49 3f + 3 set 9010b + ldi 0 c + lib 1751 + ral 8006 + slt 4 + alo 9008 + sda 9008 + ral 8007 + slt 4 + lod 9009 + sda 9009 + bov 1762 + lod 1750 + std 9007 + lod 9005 + std 9000 + sct 1 1761 + 1998sxa 19 + nza 7f + axa 20 + rau 8005 + mpy 1953 + rac 8002 + rab 0 2b + 7 ral7f + stddhold + studrem + lod 1951 + stddband 1956 + 1956lod 1790 dump8 + 1953 00 0 50 + 1951 00 0 20 + 7 00 0 1000 + 7 1952 00 0003 8502 + 3848cdd + 1 locafier 3849 control fwalwa 2 + cor 9000 + 0 lod2f + sds 9000 9010 + 9010sti 300 + lod 1750 + std 666 + lod2f 301 + 7 2 00 0003 8512 + cor + 9010cod 300 + blr 0 1999 + bla 302 346 + 301 ldis0260 + set 9001 + sti 600 + rds 9000 9058 + 348 set 9000 + ldi 632 + raa 9000 + rab 9001 + rac 9002 2f + 349 axa 1 + rau 8005 + mpy1f + rac 8002 + rab 0 2f + 2 ral 600 + slo 8005 + nze3f + sct 1 + lod 610 + sxb 8001 + axb 49 3f + 3 set 9010b + ldi 0 c + lib 101 + ral 8006 + slt 4 + alo 9008 + sda 9008 + ral 8007 + slt 4 + lod 9009 + sda 9009 + bov 112 + lod 666 + std 9007 + lod 9005 + std 9000 + sct 1 111 + 347 lod2f + sds 9000 + rds 9000 9000 + 7 2 00 0003 8372 + 1 00 0 50 + 3849cdd + 1 locafier 3850 load up 0 to 999 + blr 0 1999 + bla 1101 1149 + syn 1102 + blr 1105 1106 + syn 1146 + 9010sti 1100 1102 + 9010cod 1100 + 1102rsa 950 + ral 9000 + hlt 49 8000 + cor 9001 + 9000rab 49 1f + 1 stl 9010b + nzb 2f + slo9f + sxb 1 1b + 9 00 1 0 + 2 set 9010 1146 + 1146sti 950 a + nza 1105 1106 + 1105axa 50 + alo 9000 + 00 99 0 + cor + 1106ramdiskr + rds 9000 + slt 2 + rac 8003 + sup 8001 + srt 2 3f + 3 sml9f + stl5f + sxc 60 + sds 9000 2f + 2 nzc 8f + ral 9061c + bmi6f + srt 2 + alo1f + lod 9060c 8002 + 1 std 0 7f + 6 rsb 8002 + srt 4 + rsa 8002 + lod 9060c6f + 6 std 0 a + sxa 0 b + nza 7f + axa 1 b6b + 7 axc 2 2b + 8 ral5f + bmi1f + rds 9000 3b + 1 loddiskr + sds 9000 1999 + 5 und + 9 00 0 10 + 3850cdd + 1 locafier 3851 load 1000 - 1999 + blr 0 1999 + bla 901 947 + syn 902 + blr 905 906 + syn 946 + 9010sti 900 902 + 9010cod 900 + 902 rsa 950 + lods0050 + std 659 + ral 9000 + hlt 1049 8000 + cor 9001 + 9000rab 49 1f + 1 stl 9010b + nzb 2f + slo9f + sxb 1 1b + 9 00 1 0 + 2 set 9010 946 + 946 sti 1950a + nza 905 906 + 905 axa 50 + alo 9000 + 00 99 0 + cor + 906 ram 659 + rds 9000 + slt 2 + rac 8003 + sup 8001 + srt 2 3f + 3 sml9f + stl5f + sxc 60 + sds 9000 2f + 2 nzc 8f + ral 9061c + bmi6f + srt 2 + alo1f + lod 9060c 8002 + 1 std 0 7f + 6 rsb 8002 + srt 4 + rsa 8002 + lod 9060c6f + 6 std 0 b + sxb 1 a + nzb 7f + axb 0 a6b + 7 axc 2 2b + 8 ral5f + slo4f + bmi1f + lod5f + rds 9000 + alo4f 3b + 1 lod 659 + sds 9000 348 + 9 00 0 10 + 7 4 00 0 501 + 9058lod 1604 9059 + 9059std 293 9010 + 5 und + 3851cdd + 1 locafier 3852 dek first + cor 9000 + 0 lod 9028 + sds 9000 9010 + 9010sti 1950 + lodreada + stdssout + ral 47 + rsb 1 + nze 2f + rac 1651 mastr + 2 ral 8001 + rsa 1 1951 + cor 9014 + blr 9020 9029 + 9011divv0007 1952 + 9012set 9013 1953 + 9013ldi 1953 + axa 1 + nzahlt44 + rau 8002 + mpyv0007 + raa 6 + stu 9007 + sia 9002 + std 9003 + std 9005 + slt 4 + sda 9004 + std 9001 + rau 8001 + sia 9006 2f + 2 ral 9021a + alo 9002 + stl 9021a + nza 2f + sxa 1 2b + 2 raa 2 2f + 2 ral 9025a + alo 9006 + stl 9025a + nza 2f + bma3f + sxa 1 2b + 2 rsa 2 2b + 3 wr1 9020 9056 + 9056sib 1675 1678 + 9059sib 1650 9053 + 9053lod 9028 dump9 + 9058rac 0 9049 + 7 9028 00 0003 8532 + 9020rd1 9042 9898 + 9021sxa 1 23 + 9022slt 2 14 + 9023alo 16 22 + 9024axc 25 17 + 9025sda 12 15 + 9026lod 2 a 12 + 9027ram 1 13 + 9029 00 8080 8 + 9054hlt 300 c 300 + 9055hlt 300 c 300 + 9057hlt 300 c 300 + cor + 3852cdd + 1 locafier 3853 dek second + blr 0 1999 + bla 1975 1988 + cor 9000 + syn 9030 + 0 lod 9058 + sds 9000 + raa 6 1f + 1 ral 9051a + alo 1651a + stl 1678a + nza 1f + sxa 1 1b + 1 lod6f 9030 + 9030sti 1970 9049 + 9049std 1686 9050 + 9050lodinstr + std 1657 + ral4f + alo 1656 + stl 1654 + ral3f + alo 1651 + stl 1656 + ralcoron + slocorsw + stl 1658 + ralramon + sloramsw + nze9f + ral 9058 + set 9000 2f d + 9 rab 6 + lod dump8 + 7 00 0003 8552 + 4 00 17 1 + 3 nzc 5 4 + 6 00 8080 8 + cor + 9010cod 1950 + 2 rac 200 1973 + 1973ldi 1700c1f + 1974ldi 0 c1f + 1 wds 9000 + nzc 1972b + sxc 50 2f + 2 alo1f + lod 8002 + sds 9000 1974b + 1 00 0 10 + 1971rab 0 + rac 1600 2b + 1972lod1f + sds 9000 + wr1 1666 + rds 9000 9010 + 7 1 00 0003 8502 + 7 9058 00 0008 8002 + 1999lod dump8 + 7 00 0003 8542 + 9051sti 12 17 + 9052raa 8002 20 + 9053sxc 8003 21 + 9054nza 18 19 + 9055std 0 a 15 + 9056rd1 24 9898 + 9057ldi 1952 9043 + 3853cdd + 1 locafier 3854 dek third + cor 9000 + 0 lod 9058 + sds 9000 + rac 0 + rsa 980 + rab 6 9011 + 7 9058 00 0003 8512 + cor 9011 + 0 ral 8005 + slt 4 9037 + 9037slo 980 a3f + 3 alo 9035 + nze 9036 2f + 2 bma 9034 + axa 1 0b + 9035hlt 980 8000 + 9036alo 980 a4f + 4 alo 8006 + slo1f + stl 9000 + axa 0 b 9038 + 1 hlt 0 7999 + 9038lod 980 a5f + 5 std 9001b + nzb 1f + sxb 1 + sxa 1 9038 + 1 wr1 9000 + axc 1 + axa 6 6f + 6 rab 6 2b + 9009 00 8080 8 + 9034sxa 1019 9051 + 9051lod 8005 9059 + 9059std 9051 9057 + 9057lod 8007 9010 + 9010std 9010 9008 + 9008sti 300 9052 + 9052lod 9058 9054 + 9054ldi 1654 9053 + 9053sti 576 9050 + 9050rds 9000 9010 + 9056lod 341 347 + 9055sds 9000 342 + 7 9049 00 0003 8552 + 9033lib 330 6b + 9042slo 1999a3b + 9040hlt 1999 8000 + 9041axa 5 9044 + 9039ldi 577 9032 + 9043lod 1999a5b + 9044bma 9046 9045 + 9045sxb 1 a 9046 + 9046sxa 5 9047 + 9047alo 1999a4b + 9032sti 1652 9030 + 9030rab 6 352 + cor + 3854cdd + 1 locafier 3855 dek last + cor 9000 + 0 lod 9040 + sds 9000 + wr1 1666 9059 + 9059sct 1 + rac 0 9009 + 9009sti 350 352 + 9010sti 351 9008 + 9008ldi 300 + raa 9051 + rac 9010 + lod 381 + sds 9000 9033 + 7 9040 00 0008 8382 + cor + 9010cod 351 + blr 0 1999 + bla 354 399 + syn 358 + syn 381 + 352 ral 1658 + nze9f + lod 381 + rds 9000 + rsa 59 0f + 0 ral 8005 + slt 4 + slo 9059a + alo1f + nze2f 3f + 3 bma 9f + axa 1 0b + 1 hlt 9059 8000 + 2 axa 5 + bma1f + sxb 1 a1f + 1 alo 9054a + alo 8006 + slo1f + stl 1977 + sti 1978 + lod 358 + std 1986 + wr1 1979 + axc 1 + axa 1 3b + 1 hlt 1800 7999 + 9 set 9000 + ldi 1654 + ral 8007 + slt 4 + alo1f + alo 9001 + stl 9001 + lod5f + sds 9000 + set 9004 + lib 353 + wr1 9000 + rds 9000 + bov 9000 + ral 9059 + 7 00 0003 8062 + 1 sxc 1 3 + 7 5 00 0003 8372 + 353 hlt 9898 9898 + 358 00 8080 8 + 3855cdd + 1 locafier 3856 fil setup + blr 0 1999 + bla 1957 1999 + blr 1994 1995 + synhlt88 + 9010cod 1950 + cor 9000 + 0 rsb 1 + ralfivtg 9010 + 9010sti 1950 + lodreada + stdssout + bmi1f d + lod0f d + std8f d + ral 47 + nze 1956 2f + 1956rac 1651 mastr + 2 ral d 1951 + 00 0 1950 + cor + 1951dvrv0007 + stl 47 1f + 1 ral 48 + rac 1653 mastr + 1953stlfwaxx + bma hlt55 + ral 49 + rac 1652 mastr + 1952stllhold + bma 1956ahlt55 + 1954ralcorsw + slocoron + nze8f + loddiskc + sds 9000 + rds 9000 + rslfwaxx + rac 8001 + alolhold + rab 8002 + lodinstr 1f + 1 bmb7f + std 0 c + sxb 1 + axc 1 1b + 7 loddiskc + wds 9000 8f + 1955ralramsw + sloramon + nze8f + lod dump8 + 7 00 0003 8572 + 8 ralonesw + bd2 9f + lod1f + sds 9000 + rds 9000 + set 9010 + sti 1950 reada + 7 1 00 0003 8332 + hlt44hlt 300 c 300 + hlt55hlt 300 c 300 + hlt88hlt 300 c 300 + 9 lod dump8 + 7 00 0003 8592 + 0 lod dump8 + 7 00 0003 8582 + 3856cdd + 1 locafier 3857 fil if don used + blr 0 1999 + bla 1980 1994 + syn 1991 + cor 9000 + syn 9010 + syn 9030 + 0 ralfivtg + bmi 8f + ralonesw + bd27f + lod 9055 1f + 8 lod 9058 1f + 1 std 9059 1f + 7 lod 9059 1f + 7 9055 00 0003 8592 + 7 9058 00 0003 8582 + 7- 9059 00 0003 8332 + 1 sds 9000 + lod6f + stdcorof + rallhold + slofwaxx 9010 + 9010sti 1950 + bmi 1996 + ral 8001 + slo5f + bmi 2f + rallhold + slo5f + bmi1f + rac 1 + rsl4f 3f + 1 rac 0 3f + 3 alo5f + slt 6 + aupfwaxx + slt 4 + rsu 8003 + stulocat ramn0 + 2 rslfwaxx + alo4f + slt 4 1997 + 4 00 0 1 + 5 00 0 1000 + cor + 9010cod 1950 + 6 rsl 1991 1996c + 1991 00 999 0 + 1997slolhold + stllocat 1970 + 1970rac 0 ramn1 + 1996ral 1999 + rds 9000 + lod3f + stdcorof + bmi 9000 + set 9010 + sti 1950 reada + 3 racfinis prone + 3857cdd + 1 locafier 3858 fil if fiv used + cor 9000 + 0 ralonesw + bd2 1f + lod 9050 + std 9045 2f + 1 lod 9045 2f + 2 sds 9000 + lodinstr 9054 + 9054std1 + ral50009 + alo1ixxx + stl50009 + lodfivtg 9058 + 9058sia 9050 + rau 47 + mpyv0007 + sia 9000 + alo 9057 + slt 6 + aupfwaxx + raa 8001 + axa 1000 + sxa 1000 + bma 1f + sup9f 1f + 1 slt 4 + stu 9057 + rallhold + slofwaxx + bmi 1f + rau 8003 1f + 1 slt 4 + alo 9053 + alo 9000 + stl 9053 + lod 9052 + sia 9052 + ral 9000 + slt 4 + alo 8001 + alo 9055 + stl 9055 + alo 9051 + stl 9051 9044 + 9044sti 1971 + ral 9045 + rds 9000 1976 + 9049wr1 1977 1975 + 9048bmi 1974 9000 + 9047set 9010 1973 + 9046sti 1950 reada + 7- 9050 00 0003 8332 + 7 9045 00 0003 8592 + 9 00 0 1800 + 9051 29 1 9984 + 9052sxa 1 8 + 9053raa 0 8 + 9055nza 3 20 + - 9056 88 8888 8888 + 9057std 0 a 6 + 9059 00 8000 8 + cor + 3858cdd + 1 locafier 3859 fil if one used + cor 9000 + 0 lod2f + sds 9000 + ralccnt1 9058 + 9058alo8f 9051 + 9051stl1 + stdccnt1 + lodinstr 9053 + 9053std1 + rallhold + slofwaxx + bmi 1f + rau 8003 1f + 1 slt 4 + alo 9052 + stl 9052 + ralfwaxx + raa 8001 + axa 1000 + sxa 1000 + bma 1f + slo9f 1f + 1 slt 4 + alo 9056 + stl 9056 9045 + 9045sti 1972 + lod2f + rds 9000 1976 + 7 2 00 0003 8332 + 7 2 00 0003 8332 + 9049wr1 1977 1975 + 9048set 9010 1974 + 9047sti 1950 reada + 9050lod 1954 1953 + 9052raa 0 1957 + 9054lod 1955 8001 + 9055sxa 1 1957 + 9056std 0 a 1958 + 9057nza 1956 8000 + 9059 00 8008 0 + 8 00 0 1 + 9 00 0 1800 + cor + 3859cdd + 1 locafier 3860 skp plr start + blr 0 1999 + bla 1965 1990 + cor 9000 + 0 bmi1f + lod 9059 2f + 1 lod5f + std 9022 + ral 1951 + nze 3f + lod 9058 2f + 2 sds 9000 + stl 9056 + rac 1662 9021 + 9021sti 1961 lmast + 3 lod 9058 + sds 9000 + lod1f + set 9021 8001 + 1 sti 1961 + ral 3f d + 00 0 1950 + cor + 9021cod 1961 + 1962stl4f + rac 1664 dmast + 1964lod4f + rab 8001 1f + 1 nze 1f + rtc 0 b + nts1b + nef1b + slo1ixxx 1b + 1 rac psudo + rac 1663 imast + 1963lod 1999 + rds 9000 + lod4f + rab 8001 1f + 1 nze 1f + rtc 0 b + slo1ixxx 1b + 1 set 9010 + sti 1950 reada + 4f und + 5 divv0007 + rau 8002 + mpyv0007 3f + 3 lod 1998 + rds 9000 + raa 8002 + axa 1 + ral 8005 + stdfwaxx 9000 + 1993lod 1962 1992 + 1992set 9021 1991 + 1991sti 1961 8001 + 7 1998 00 0003 8612 + 1999 00 0003 8332 + hlt44hlt 289 c 300 + hlt55hlt 289 c 300 + hlt88hlt 289 c 300 + 3860cdd + 1 locafier 3861 plr puncher + cor 9000 + 0 lod 1999 + sds 9000 + rsb 1 + stl 9000 + slt 4 9058 + 9058stl 9001 9027 + 9027alo 9000 + stl 9002 + ral0f filll + 0 ral 9058b 9038b + 1 stl 9058b 9048 + 9048sxb 1 0b + 9059 00 8000 8 + 9057srt 4 14 + 9056alo 7 14 + 9055lod 1 a 12 + 9054rau 6 13 + 9053rd1 16 9898 + 9052sxa 1 23 + 9051raa 4 22 + 9050rd1 9042 9898 + 9049 00 8000 8 + 9047ldi 1952 9043 + 9046axc 1 20 + 9045nza 18 19 + 9044rab 8002 21 + 9043bmi 1 17 + 9042std 0 b 15 + 9041sti 11 19 + 9040rac 0 9049 + 9037alo 9000 1b + 9036alo 9002 1b + 9035alo 9002 1b + 9034alo 9002 1b + 9033alo 9001 1b + 9032alo 9000 1b + 9031alo 9000 1b + 9030wr1 9050 9029 + 9029sxb 4 0b + 9026alo 9000 1b + 9025alo 9002 1b + 9024alo 9000 1b + 9023alo 9002 1b + 9022alo 9000 1b + 9021alo 9002 1b + 9020ral 1952 9028 + 9028nze 1f + rsm2f 8001 + 1 ramfivon 2f + 2 stlfivtg + ral 9000 + alo2f + lod 1999 9038 + 9038sib 1961 + wr1 9040 + rds 9000 1993 + 9039stl 9005 sub1r + 2 00 0 23 + cor + 3861cdd + 1 locafier 3862 pal + blr 0 1999 + bla 1962 1998 + 9021cod 1961 + 9000lod 9059 9005 + 9005sds 9000 9021 + 9021sti 1961 9008 + 9008rsb 199 9009 + 9009rsc 989 psudo + 9011sib 1952 9006 + 9006ral 9007 9012 + 9012stu 1951 9010 + 9010lod 9018 9017 + 9017std 9000 9004 + 9004ldi60004 + stlsprud 9001 + 9001raua0200b 9002 + 9002nzu 9003 + sct 0 + raa 8002 + slt 1 + srd 1 a + stu 9035 + rau 8005 + mpy8f + raa 8002 + ral 8006 + div7f + mpy9f + axa 8002 + axa 8003 + axa 1549 n0087 + 9007std 1953 + rac psudo + ral 9035 9002 + 9003nzb 9000 1f + 9018axb 1 9001 + 1 lod 1999 + rds 9000 + set 9010 + sti 1950 reada + 9013alfbla think + 9014alf avai think + 9015alflable think + 9019 00 9998 9990 + 7 1999 00 0003 8332 + 7 00 0 4 + 8 00 0 50 + 9 00 0 500 + 3862cdd + 1 locafier 3863 pdl second + blr 0 1999 + bla 1952 1976 + bla 1985 1985 + bla 1988 1989 + bla 1993 1999 + 9010cod 1950 + cor 9000 + 0 lod 1683 + sds 9000 9010 + 9010sti 1950 9037 + 9037lod 9044 9038 + 9038raa 5 9039 + 9039std 1978a 9040 + 9040nza 9041 9042 + 9041sxa 1 9039 + 9044alfzzzzz think + 9042lod 9043 3f + 3 set 9010 8001 + 9043ldi 1850 + lod 1683 + wds 9000 + lod 3b + lod 1682 d + sds 9000 1951 + 1951ldi 1900 + wds 9000 + nze 1691 + rab 1 1698 + cor + 1990nzc 1694 + ral 9061c + bmi 1692b5f + 5 stl 1977 + slt 3 + raa 8003 1991b + 1992sup 8001 + sxa 100 1f + 1991sup 8001 1f + 1 slt 1 + rab 8003 + rau 1850a + srt 0 b + lod 8003 + bd11f + wr1 1977 2f + 1 aup1ixxx + slt 0 b + stu 1850a2f + 2 bov 1699 axc + axc axc 2 + rab 9058 1990 + 1986 08 8000 0 + 1987ral 8001 + srt 6 + alo1ixxx + rab 9058 sct + sct sct 6 5b + 3863cdd + 1 locafier 3864 pdl first + cor 9000 + 0 lod1f + sds 9000 + lod2f + set 9010 8001 + 2 sti 1650 + rsc 991 psudo + 9009ralramsw + sloramon + lod1f dump9 + 7 1 00 0003 8632 + cor + blr 0 1999 + bla 1650 1679 + bla 1684 1684 + bla 1689 1690 + 9010cod 1650 + 1691ramdiskrb + rds 9000 + raa 99 + lodt0003 2f + 2 std 1850a + nza 2f + sxa 1 2b + 2 slt 2 + rac 8003 + sup 8001 + srt 2 3f + 3 slo9f + stllhold + sxc 60 + sds 9000 + lod 8006 + std 9058 1990 + 1693slo60004 1692 + 1692sct 6 + stlotend + rsl 8003 sct + 1699ramotend + slo 1977 + nze 1987 axc + 1694rallhold + slo 1695b + bmi1f + rallhold + rds 9000 3b + 1 loddiskrb + sds 9000 1697b + 7 1695alf think + 7 1696 00 0 501 + 1697rab 1 1691 + 1698lod 1682b + set 9010 + sds 9000 1687b + 1688rds 9000 + sxb 1 1698 + 1687sti 1850 1688 + 1686sti 1900 1688 + 1685sti 1950 + rds 9000 + set 9010 + sti 1650 reada + 7 1683 00 0008 8342 + 7 1682 00 0008 8332 + 7 1681 00 0003 8332 + 7 1680 00 0003 8282 + 9 00 0 10 + 3864cdd + 1 locafier 3865 lat sat lst sst + cor 9000 + 0 rsc 995 9021 + 9021sti 1961 + bov 9006 1f + 9006sib 1961 1f + 1 bmi psudo + lod 9058 + std 1965 psudo + 9005ral 1952 9010 + 9010sib 1950 9020 + 9020rac 1696 mastr + cor + 9021cod 1961 + blr 0 1999 + bla 1951 1959 + bla 1969 1993 + bla 1999 1999 + 1996slt 1 + 7 alo30040 + lod 8002 + sds 9000 + rsa 150 1965 + 9058rds 9000 lat lst + nza1f 1962b + 1 alo3f + lod 8002 + axa 50 + sds 9000 1963b + 1963sti 1850a 1965 + 1962sti 1900 9f + 9008stie0101a 1965 + 9007rab 4 + rsa 250 1b + 1967set 9012 + stis0201a 1965 + 1966set 9012 + stis0251 + siblevel 9f + 1965set 9000 1964b sat sst + 1964ldi 1900a5f + 5 wds 9000 + nza 9f + alo3f + lod 8002 + axa 50 + sds 9000 1964b + 9009nza 1f + ldie0151a5b + 1 rsa 250 + rab 4 1968 + 1968set 9012 + ldis0251a + liblevel 5b + hlt44hlt 257 c 300 + hlt55hlt 257 c 300 + hlt88hlt 257 c 300 + 9 lod8f + sds 9000 + rds 9000 + set 9010 + sti 1950 reada + 7 8 00 0003 8332 + 3 00 0 10 + 3865cdd + 1 locafier 3866 error restarting + cor 9000 + 8f syn 9003 + 0 raucarry + 0f syn 9002 + bd69f + supkeep + nzu 9f + ralfarbl + slofarce + nze 9f + lodcarry + raa 8001 + ram 8005 + div1f + rac 8002 + ral 8003 + div2f + raa 8002 + aup 8003 + aup 8003 + axc 8003 + rala0001c + slt 1 a + aup3f + srd 1 a + stla0001c0f + 9 ralcorec + std 9000 + slokeepp + nze 0f + ral 1952 + alo4f + nzu 8f + slt 2 + raa 8003 + sup 8001 + nze8f + lodf9900a + rab 8001 + sxb 9000 + nzb8f + lodo0002 + stdf9900a8f + 8 lib70003 + lodlevel + rab 8001 + lodkee + stdlevel + rac 8001 9003 + 1 00 0 500 + 2 00 0 50 + 3 00 0 8 + 4 09 3400 0 + 5 alff think + 6 50 0 0 + 0 ralprogp + nze 1f + raa 8001 + srt 4 + stlf0000a1f + 1 lodkeepp + stdcorec + ralkeep 666 + cor + 3866cdd + end + \ No newline at end of file diff --git a/I650/tests/i650_test.ini b/I650/tests/i650_test.ini new file mode 100644 index 000000000..210117791 --- /dev/null +++ b/I650/tests/i650_test.ini @@ -0,0 +1,98 @@ +:: i650_test.ini +:: +:: there are not know diagnostic program for ibm 650. +:: so sanity check of simulator is done by executing some programs +:: + +cd %~p0 +cd ../sw + +set console -n log=console.txt +set debug -q -n debug.txt +set cpu debug=cmd;data;detail +set mt debug=cmd;data;detail;exp +set dsk debug=cmd;data;detail;exp + +:: Limit maximum diagnostic execution time +runlimit 2 minutes +set on +on error ignore +on runtime echof "\r\n*** Test Runtime Limit %SIM_RUNLIMIT% %SIM_RUNLIMIT_UNITS% Exceeded ***\r\n"; exit 1 + +:: Basic Opcodes test + +echof +echof +echof "** IBM 650: Basic Instruction Test: " + +do run_fds.ini fds/example.txt + +if ar!=9999 echof "FDS failed (bad ar)";exit 1 + +:: checks mem contents +if 0977!=0000000009 echof "FDS failed (bad 0977)";exit 1 +if 0978!=5090000000 echof "FDS failed (bad 0978)";exit 1 +if 0979!=5030000000 echof "FDS failed (bad 0979)";exit 1 +echof "FDS Ok" +echof "** Test: passed." + + +echof +echof +echof "** IBM 650: Floating Point Instruction Test: " + +do run_fortransit.ini fortransit/fortransit_example_2_src.txt fortransit/fortransit_example_2_data.txt + +if -f not "deck_out.dck" == "../tests/testmm.dck" echof "FORTANSIT Mat Mult failed"; exit 1 + +echof "FORTRANSIT Ok" +echof "** Test: passed." + +echof +echof +echof "** IBM 650: Index, IAS and RAMAC: " + +do run_supersoap_ramac.ini supersoap/ssoap_example_src.txt + +if ar!=9898 echof "SuperSoap failed (bad ar)";exit 1 +if -f not "deck_out.dck" == "../tests/ssoapexpl.dck" echof "SuperSoap Example failed"; exit 1 + +echof "SuperSoap Ok" +echof "** Test: passed." + +echof +echof +echof "** IBM 650: 4k Drum and Tape: " + +do build_soap4_tap_lib.ini +if ar!=0002 echof "Soap4 failed (bad ar)";exit 1 +if -f not "deck_out.dck" == "../tests/soap4tap.dck" echof "Soap4 tap lib failed"; exit 1 + +echof "Soap4 Ok" +echof "** Test: passed." + +echof +echof +echof "** clean up temp files generated during tests " + +det all +set -q nodebug +set -q console nolog + +del -q debug.txt +del -q print.txt +del -q console.txt +del -q deck_out_run.dck +del -q deck_out_pat.dck +del -q deck_out_5cd.dck +del -q deck_out.dck +del -q deck_in.dck + +echof +echof +echof "!! All Tests Passed !!" +echof + +exit 0 + +:end \ No newline at end of file diff --git a/I650/tests/soap4tap.dck b/I650/tests/soap4tap.dck new file mode 100644 index 000000000..b6d598de0 --- /dev/null +++ b/I650/tests/soap4tap.dck @@ -0,0 +1,13 @@ +0?0000800? 0001 1 soap test tap +0?0000800? 0002 1 +0?0000800? 0003 equsub1 1000 +0?0000800? 0004 1 +6I1954195C 0005241000800?000000000D sub1 nop 0000 sub2 commen +0?0000800? 0006 1 sub2 tap +6I1954195C 0007240004800?000002000H sub2 nop 0002 comment +6I1954195C 0008240008800?010002001B hlt 0002 +0?0000800? 0009 1 +6I1954195C 0010240012800?010001001F hlt 0001 +0?0000800? 0011 pst +0?0000800? 0000 equsub1 1000 +0?0000800? 0000 equsub2 0004 diff --git a/I650/tests/ssoapexpl.dck b/I650/tests/ssoapexpl.dck new file mode 100644 index 000000000..4d9abfdc0 --- /dev/null +++ b/I650/tests/ssoapexpl.dck @@ -0,0 +1,22 @@ +?000008000 0001 1 example calculate f of x +?000008000 0002 +?000008000 0003 blr 1951 1960 read area +?000008000 0004 p0001blr 27 p0002 punch area +F919541953 0005240004800?600007001A startrauone 1f set x +F919541953 0006240011800?210027003? 1 stup0001 to 1 +F919541953 0007240030800?190033000C mpya calculate +F919541953 0008240003800?150006006A alob f +F919541953 0009240061800?608002001I rau 8002 +F919541953 0010240019800?190027004G mpyp0001 +F919541953 0011240047800?150000000E aloc +F919541953 0012240005800?200028003A stlp0002 +F919541953 0013240031800?710027003G wr1p0001 punch +F919541953 0014240037800?600027008A raup0001 +F919541953 0015240081800?110034003I supxmax is x max +F919541953 0016240039800?440043987F nzu 9876 +F919541953 0017240043800?100046001A aup101 1b increase x +?000008000 0018 +F919541953 0019240007800?000000000A one 00 0000 0001 constants +F919541953 0020240034800?000000010? xmax 00 0000 0100 +F919541953 0021240046800?000000010A 101 00 0000 0101 +?000008000 0022 end diff --git a/I650/tests/testmm.dck b/I650/tests/testmm.dck new file mode 100644 index 000000000..1f29e55fe --- /dev/null +++ b/I650/tests/testmm.dck @@ -0,0 +1,12 @@ +48000000520000000001000000000100000000000000000000000000000000000000000000010004 +110000005L0000000002000000000100000000000000000000000000000000000000000000020004 +30300000530000000003000000000100000000000000000000000000000000000000000000030004 +166000005L0000000004000000000100000000000000000000000000000000000000000000040004 +100000005L0000000001000000000200000000000000000000000000000000000000000000050004 +69000000520000000002000000000200000000000000000000000000000000000000000000060004 +262000005L0000000003000000000200000000000000000000000000000000000000000000070004 +19200000530000000004000000000200000000000000000000000000000000000000000000080004 +13900000530000000001000000000300000000000000000000000000000000000000000000090004 +80000000510000000002000000000300000000000000000000000000000000000000000000100004 +32400000530000000003000000000300000000000000000000000000000000000000000000110004 +16900000530000000004000000000300000000000000000000000000000000000000000000120004 diff --git a/README.md b/README.md index e332a1989..b1ba2ff25 100644 --- a/README.md +++ b/README.md @@ -100,6 +100,8 @@ #### Hans-Åke Lund has implemented an SCELBI (SCientic-ELectronics-BIology) simulator. +#### IBM 650 simulator from Roberto Sancho Villa + ### New Host Platform support - HP-UX and AIX ### Simulator Front Panel API diff --git a/Visual Studio Projects/I650.vcproj b/Visual Studio Projects/I650.vcproj index 7b2270dcd..8a80e98e8 100644 --- a/Visual Studio Projects/I650.vcproj +++ b/Visual Studio Projects/I650.vcproj @@ -203,6 +203,14 @@ RelativePath="..\I650\i650_cpu.c" > + + + + diff --git a/Visual Studio Projects/Simh.sln b/Visual Studio Projects/Simh.sln index db904bce4..8d4dc6a4b 100644 --- a/Visual Studio Projects/Simh.sln +++ b/Visual Studio Projects/Simh.sln @@ -403,6 +403,11 @@ Project("{8BC9CEB8-8B4A-11D0-8D11-00A0C91BC942}") = "PDP10-KL", "PDP10-KL.vcproj {D40F3AF1-EEE7-4432-9807-2AD287B490F8} = {D40F3AF1-EEE7-4432-9807-2AD287B490F8} EndProjectSection EndProject +Project("{8BC9CEB8-8B4A-11D0-8D11-00A0C91BC942}") = "I650", "I650.vcproj", "{95B64699-4B93-4BFE-9024-0A2302D9B71A}" + ProjectSection(ProjectDependencies) = postProject + {D40F3AF1-EEE7-4432-9807-2AD287B490F8} = {D40F3AF1-EEE7-4432-9807-2AD287B490F8} + EndProjectSection +EndProject Global GlobalSection(SolutionConfigurationPlatforms) = preSolution Debug|Win32 = Debug|Win32 @@ -733,6 +738,10 @@ Global {DA2AA7A0-B679-456B-B152-DEF40FAE5A7A}.Debug|Win32.Build.0 = Debug|Win32 {DA2AA7A0-B679-456B-B152-DEF40FAE5A7A}.Release|Win32.ActiveCfg = Release|Win32 {DA2AA7A0-B679-456B-B152-DEF40FAE5A7A}.Release|Win32.Build.0 = Release|Win32 + {95B64699-4B93-4BFE-9024-0A2302D9B71A}.Debug|Win32.ActiveCfg = Debug|Win32 + {95B64699-4B93-4BFE-9024-0A2302D9B71A}.Debug|Win32.Build.0 = Debug|Win32 + {95B64699-4B93-4BFE-9024-0A2302D9B71A}.Release|Win32.ActiveCfg = Release|Win32 + {95B64699-4B93-4BFE-9024-0A2302D9B71A}.Release|Win32.Build.0 = Release|Win32 EndGlobalSection GlobalSection(SolutionProperties) = preSolution HideSolutionNode = FALSE diff --git a/doc/i650_doc.doc b/doc/i650_doc.doc index 1df56bee87d08041a5f7ec0c9db68f87b3286dd9..be1f6acbc82e42a64598dfb6221a2d65201c8ee1 100644 GIT binary patch delta 95867 zcmcef34l%Y+xYL9!5Fz1%rMqVwz14U#*k%f8GB}=MaG?(J7bv5EVksPR0@TY4yB@m zWXlu@QE0IgvKJzW2-R59RR7O&&OLYTjL~m--}mqKxo7*X&+~kr?{@C=_>1)(KiFt? z+isOD7Rx?wzT{sGi{$|43a5Yl{rBH;>vOKZfL*W~_P}2F625{Beot3=QJL#i;Xc1@ zz7;H%n>DveG(9c8Nj~Tgi=~<+X>`))0|5sD^k=2Ms#FcIL>~3FtetGp>HVwmxV1Xe zE6zE$j&UW&tIdpa^H{fqaqW4mZQRnose)dIwytoV#}0%@;eI4_m>*=Z^rWQb^ULEc zmK9zW%eP?`r=_Zo#d4m|Qu4nfRyoH?u@*}s!ZqsyMC{YoVyTT3Gf9X`OEyRO_wO8~ zj`Js3EbEBa_p!Syme$-*Nx)y7Q=wKBv#!JYaT(w|+|^FqJ%b^QKFegANnc_-Ed4(cfbE6>+a!NgcT;uy+NlrI1F6YeU<{Kxc5OWi>jN>$^UaNd@Wb0|mezETc}Z-z5M zlZVUL4)J^%k~C{-9!*J_*SaEGG%dL_5;Ct%1*+rGcMC7X$DyP7wCvHWMA`c#*J=Zw z*TT&*m)tI$>FxKaa+f=nQQBrRM6~|y!v2+iRjNd`8(^QLU#_0{$@tGlDGt=YJyD^Lel zpx`iHwMke#bwSPQW?~)GcWb%}7^5Do*~p#1eYMQ|+lQ(xYTfOM!o}b2DDA`4iM1NK zqO@19ltc+vKdsfoRoV98MrC6>D%(Cnty8<5nP!CgsJ}b6NVTALwD}~`^GTF?qIQHk zw@LmsGgNyu)<3M|Vsd~xv1s*8|6ub;w91oqhE&??Qi%u-Ln`q(4o8Y_E!*JOdwUJ( z)!UYske%!br9K+q&Lu{@FQBQJR*br@j+skzsJbMex$6lR9#6v5TLD4llQ4B*U3Z*t zHKC4~bac4qlL+;#I%Yo65%R>P?&wI-WQ3^u-F{8#lw0EHNL2}RXA-5_>xR1|7Ckr6 z<}!)s_O65^sVh&`S1;79ZsyV6P*zy9hqj`l)u6x-Geop2gs#sxLr~E!aYp*absu1h z4v)4Cu%~4?^3#)T3HBU^t<`{ppz_Px!85g3S86dv`J(jHBBG*fLt+QS_OQk0XXo0} zNUdjlzdIzSK2*=v~r8s zAX|y{Vr@NB=p7=|C+jsc^NUa~HE=(PRFBp(t+7L-=aVQkx_*#L zz#XDo`L&n)hPukCt1K!w9D9w+%6H`ETxA{%gE%i+U z>flmnxNbmxt~_*wO87{%QUlX{b%=3Q)H7&|t~Ci7rH*J2<|;)@s4Hj(kx3^b)fioW z612TzNkxUm?GJ30y3Xb&cou1*aIVR*gvhvVE zUinG5dX5NBV~mMXvl})uMddP|i15NC4FkNCJoUrI>%CG_)v>l+KG|9AGSaggg&mtb zTG88TwW{y8i0zS?ADrxCw%dGZu6gO11sQf)n~#rAdi$u*#FV@-t}rF7v1fYT7_&*L zms>cLkivwPzFsjn0HWA><`!hydfM~tw!yjC$&S1{kUsOF67(X*{B zf0V%?QldX z?UL=eDZ#b`k95YTQ`?+^{Bncl+0wIYd5+|4wP=8UUCCC8kn70Hw`Hf=Bryr0+6LCs z3pqG8;lC-Qt`_?^dwPaFDLo@Sf1)epR`xu}s~|(q4MUAhu;t`A3R1GOb7+W;&?kf zZLrO1?GZbqXU|?e`q}ypiW_LP_RXeM+_>+e;#+uT$O^?f$&pt0Lc&}{ZGQi7JpR=C zg97x*<~r;tj$B*5eGK-JZ%-bhesKRIYJ*{cKKCSJ3He>rj>ArPB~2_0d|-iBck6(J zEL*EgbL1vnL6EL=93c-<#Nij1LG2Wdg*a&;>pVTe;=QLgGvITE=j%IkQBwpFUZFyp?@zk z(F8q0|Lp8BLvxU{4I5=Vlr8JY?pSFNf)2%uCHyJ zJ)^)8Y#UI3!%C7SnQwE@#o6-HGaW`Fm7cT)HcWX)0UhMhWDCDZ?p6ss)gL{haM|e7 zmHhKMTCGE~#$;uW&$125NzP88iyWlBJ+@udwl-btj@;br+`_|SXH_6t^0+RAZ;ZRw zf8EUXUTGrA@(0{jDS0^qaeST~zbdVHd~UiJYp%nQktZ$It@}(zN_s&ij!uRH@>tzJ zBe1{tjeO!sJBm-w?1N$PI5j&r)1Dt}!%P#h#X;$}^V-^yvhzokuRzjJ_ay~5GhKpn znUc#}<>MeE;cQ(Jd4_L6yjj`#X7kO!iAV*Ka|%q?BVHUQlRHtIHBQ8E;JO+z2}4nE zeU4OyA1SVsZ4OolhkwvQ8I2o;fx_N?K$+0*|rX$ zVWBpAN(wy*b!J%Mx*28OR5#7CIWwiX>D>sWmabAiH|i>6J)!IvpEIlhFeO!8q7`YxZC08Z{c?CH+j1jO!h6g;#&Jp8t=5<6p@x2oC z6o>R07B{e`J3(LHct<{U!CEi?BQYu_*HThj4&Ej|*d4q7pdS5t{mapna1U20 zT`4CxxpRlWgQL5b4lFm!u-5KwXJa&qJe#YNb=8zc8_sA`uVfx|| znx&1RR%1SmD|C(`x<-WLSh`jonXqo^C|=?wI| z{zuM0&+Px)8FVw9L2s#LNd^DGC3sF0f^F*NS+=G)4t=zUD{?1M(wwCuEo}PydM~eW z4)xgVJx+%14780gK2A!a`uNCrHP#0QE0ZwXvpKD>aU(xHhY00G8alYw5DDoS(VW$K zg!l1@i+2a{$+PLR5q%PWZce^)h-bb=dBhfN|1dR?K}w#FPw$>3$%@O?r65sD&2;Xt zTtRew0$(_C?spX<|D6~N=#WiETf8GDBrGN>QhjQE2QPH6W&VBPu{k-cgCwWh5*)b6 zfsXMEFj+FOg?5nOQIWwpDXF$rIV>gR*}^)si--{osynx&&UgrB+?xz ziKLP!sU(t0o{>z5P0e1=%=vGJ_O~)q4Pk<68>S1TqYY6pSCdx62)&~%H6>3Uv0CHx zF?mN@D+U_I_&kV_AM-IsRzChaLB`Mg$5=QnOPx2rm6O2%UOpo`#~6jt@Plo!#`u<@ z6DDYkvqEhd_JXYBQ9P8MEzg#jK0&%4yn4w(60^Dd+=683EJS@c(JY27bSN^J_k0-4 zblaGq_M&@n%}^)WhGa8aVruWwOW%Sl(Myz1PlvH0Lb@GGCbn*){}(EwYaNuF9~I@P zvWW0@kum?DRW>BnQ)9VyU167L&)xQi>B(52F+d8o6?U1w zUs19OtG}G2R6yPB3n#u3E6%NO)2q1^3WMMHTnRM2m%b=sng?NHROPi8<_V|fhdd%- z%ypB*jC58oveFEdhex)H3Jr^B7n&$x!u#uY-IFE^koAfjnLr{ux1q^U)@@;8Dbt*# z^q0p%Uu5Yv$F0bm#Jt?(;QR^so~@2m6d6x3Jdz=4MtV}Noe6-9J#X{I6xwRVeVbm_ zsB9-2l~rO?uh$+J(AL%Sy1Rz9Hs&NUN6}{;u3@mXXLd4cFH8)jHFjhe6CT|mGNuDk zh-w!a*3O=sEMlNu%^BB)gxGUgRU79B7E!S9lZ&5V?QUXlc5Ye-qf*_gx=&(Hbq6LCr^w|lsFvorE+HF+ZT#7t(pWkm13pO~DT>nKkN zy6bam6w}U2N8PxkAVZ+Rve;FkrVwMqV6;dZjtQ|87QH#$yRtE9uxAxImwjD92~p!$ zZc&m{zg6*^J61);{ySX{V<=gw&GU3^K0dhxS&4XZwaKR1YS-0PKhAAAx!GyC_Dp(5 zd17B(+bQGeMBPz{41D@?NxPSBl1@SI52zGt1^5+NSd%Brt!%CIak%bZe0-uJBSVA3 zLqlT{;|3=58ZvlDuY|b!dnJ-UaB^;nbi@qfNkv~9F?^JnmXpMS7>lK6i4hx#Q*?Wx zF)__elq~d;xtAbIr0xo%m)_PY&q0&RP7W$vHpc|JG)HMfKJoggDFh!MYoBcO;F_9F zkrW;@Ju97O^g)TTwwsuopPQj)pC^$$pST*OEi{I4u2d?~upk-hx{GN#vD`ar$H>!1 zZLz638fxU@a**oC)&7QF(o;(6@1YrcmW;t!>@hWCc>MBIV{{Cz?h)ryBD}I1@k}Gg z$N9ghgB8Xk)Adxe^j2H(!Wlk zObWVU#f}s8nwC+oX&b077|jJgXs$=PT8yogxOmwa5QEHnhe0(H4j-rD)_}$oaMI)_*cU#-s4~%GtM}Ow_oa)SX>s8V_ zIIFs)u$?oKJ~hc`lY<7wmh4a@NSD@M@6ys4Rhr4T8nHx5%r%B}dZRRDZQj%Umf0gp z_gFRo?n$nZX2gO#*}kQ7HY2%H(g&OgRMuF3Z#4CGjS<-y|06Pc zj+0n!-5H@pR&GNza?t}%$TyZtMZ2;;qdQDSORQS4JfyEi1nH^SQeLY6#RFT5c!(`f%)uXGL_bu57L#Bw>Sp2}* zF)fm5A#!syRvEZSWU(QuZc*kPS8_CDr`s4rqM~XxJj`IWvhK%l2_?_n-9U)(#GWCG zWD|80XWZ>h$D^P$D)V-TPw#Biu{zSJ52cI-Ezja9v)f2nUNi>K=sh``ML=xH*x|@d zCM{h!QjAiAt&%~jSp!*w*7sXWVi=tO89K}6=&qKnl{q$(1rYjm@lAS`GPH9iP&U3i zbd6U$;>%rke7#lV8ZOQ$qYHP%jVGSv#*^tjBhkoOHwDu<`gGU5i4m!d6uga|dx^x| zC1#p~LpR0*`hdpF(n-70pBe4Tly_Mvy8@LADoV;+D!x9rFmo+6f-*B?G20kS8Ci{V zElD%}Dih6J%U-SshMQ!TB-%8@;Y#bDf{ODsjLb0nM5$V$lrv9n8!RHS5WxnWYqv|5 zighW62J@+C^&oBuQO(m?nzsT6iPf@I&1z$OQ3;@BO9OYWC=pjP0g0sru3}F z{7&{tN_l+|l5S#p2@L;l-U}(W%KujUzIvjr1a50EGWNXvwGVx9Rj;z~+5{8kL@Y(U z{P7!3U1UZTFqr!Rpit1&Vk%`@KVF?Ljg%Y7xNqYSgy;-bvP21I*fB&2UV z7zM(XSFq&W4qVX$q9hfhiQ$ObmdA#%Flu$JE@YzhU|V-y7qEr3Zx*ev z_gCHfPEvRVCu}81nuG4QrDoU(FGbg1>*&rcBd`%HuOy6hkZUJf2A%F9c{_bLE~Sf~ z$c#OgwN<2H3)gEOVRN#R#D=V_0!z6PMmZ)@%sl!Hl){7pF|``fGu$?$M|j&|L&8~F z>>0sV559&Ci7=~a*VTlu2D6)N6ff8|O!TVfE>+QoEh0;!DY7J)p2>ZuP2a*1Y07&I zcn`yDGA0_8=BBY{?7DBLNUGzpTY$RF*Qgk3ldQ2w?b3m}aNT>-x#%)t{W{f135Tuk zq2=eMvo4L`7;$7d(nx?!3C8yFA|V3F$mi`MQ9>TZBVkM%q97?a)_mPXqETvUPh+@; zd+Q)CRK=8QQv)B04e1`zgVH!<%tYG5MCMqRWT?Mb&@I#>FQXJ~K5vms0DCc&44xN{lSc zB;5T!?Jk`)7ehBVcvF6*bB<4tI!YCd8cKsP8-YITN@k+tu*D`P56$VUzsQ9)WH^>* zXRI)uK11w+6>7|oC-^MhLkM=|5hskSo0#WJvD;vq@Q+x5~3Z=i&Rw&RPI z&v%rZMz^)GS{m9eCNwHWdLX$M8%1qp3Xx9*hEI_s8v>lO}fem^ZstJB;@W zWQ@Yg!xhZ$TJpmQMohz7+XnO+a&Ir=^@`dNVg7~F_e@mOMHL#T%9n{sC-spp>-hGs zX0Z%_f$G#RL%gev?xN25-oF7yOJ*NSg)AtjtXSIkkNRs;e@nn939$BHi<&yn8fH?2?;*On#WE8vLH`;S z%PRO)opUo#IjYXt7ufw%qw4iDM-m;sW}k&q`@dvIna2(bDYh9nJ^1x!yNbo zw!;oM0Vm-UdA zJk4VEH;v{Vsr1lwf|s@oOK9J^780vuBx|YRVG{Z?OQ4ZU+55yPWq2cx1eG$M+UoMJ ztF{zdC8USB-tAR+s`uzeje?kk6}xtpvFnBkmG=T~s02O`0Ck`)gh4n&KqN##dk{12 z05OmNL*afH1`oi4Fa|Q<%9&$3j%|H^>+<)vs@Vsd|LeAOhTjyHmZ17yw5{6e;6s(V zq#0?MLJ&dyCpz8tV-u&l!Tu{d)j;Tf0?&%$#s1El58g6H9F zSOLA>;cF$Vfwiz3_P|~^2S37jxBx%FMYse%!)5Trg;Y@|9&Xbmo?j9F&kdX(6qixY z|Dl18_`Xv0M~nBZW94T&Wb?F0P4( z-@Aj4`!CwVmxj@m*B;vbM%|0x8eE4Pa1(xqTkr=2_~DMAE(C(J5nqiV2wFoM=n1`` zH{1(-AP)LMKj;r>FbdLPG-N{#xATqKvFP3l%K(EIJW!iYU%PH^x9qp>i$63Ok`DKif`*4N%>`o5eE1pGE)y z{NjB)9ET44rg=X64*e+h0{9ua1zIex!ZonhvsgCOQ@5S$p?-DJs=ZL;WmR7}xn4WL ziT=fvRUL6E)=B5x5E?;ai=|;9C3_FvhYw*BY=<4N6HdY@_zq6P8TcNgMnAwgP^gs` zctZv7g(}bp8iNgDpd-X~;;S=sfvzB8iG}X)2#kP47zqwYg=z2ono4nVx&;V2v;fvw-Nl`wETre!zj1qzfRQ`!D4t5mcUye z7PSnP!*NCp%VCjn58dNf#%QxT0$!bQXl&+re?mi ztmOXdVa7wh^BaBiS4z5uex?{t$`OL8A9qXsUv9|Wx0k7L5Vda&z2RQy19nJ)WN<(# zq=7W*bQoPL1asx&X?O;v!wi@SZ^9CI3qFFauuXNGxx0&ut;>qUZEzl5r^F|f@n15U z9y!`bpdL)BryauUiXhLkNUI z7=%MKbbwgs4n1HvJOU$NB-kMd#B-;Bqc(q4=5bD@!V~bMy76o$r}Ux!j_|cn}_j;qVAZzkB1%jT2v=`1I=&>fUo9&O!{Rd>MBzp4?G8Tkx{w$CN&f zC*{O6mE&%TLrc%17>gLH|I9Ed&t~^Oo1cYB)e~VPJPMQHF_;2R!Zer#&%+C_9NvZ% zuo70mYLH>eT6h=sz+U(gzJderH55VIHNLJxb;dR|zz=FcZSV&f`_zHD5CM@81?`~| z+yg`5es$ydPR@Fql`m66V6T%?`Pyh^JSj&TM$EUdyRtEFYY2hNkN?plJA;j6%E`u5 z`t2Q>+YD~A0!#4yRCpNVz*xwId?aBfAcw6058M)upTzR2e1h?!x1WBav&Yopz{2|rf1iN7m?1gjiBbDU=nCB+79N7)-@ZTm+sD6c zUbp$Jb(_~6{`l~3#lOvS-I?ybGr@JoP`A-mR@y{Y&O7_TFg-wdliBqwv6NP`+02Z_ z(8+l2slq#r=4!d7fMq6q~hM%BBzI8IE;Wq7zwhvlmy8z z1)T6WOqKJe`FaKxz{~Ioya(^YdiVe~!iTU4Hp3P;3di6$d;{OXY4FBDRDg=m2pR+P zKTA`%8=66LXaOzjv%J`ylOFZm%Zs({F4f#T7JcV8{by}7G@h5zh9S&1n%pU-*`K+E z`k#y|{vChW(#YDgP{ATb5y7Ky7TV+IpMmcn3a>C7o`V@M6K2874O{W&Q!$D^USnqZMoYQd_R2 zFVshW4^-Fx9;co@)yP?=2Sx7*y`V4jg9qUuco_1b0LH-tm=| ztNxomoa*85JuGmV@uZwaY1)yIf^Rt~{2z~to;R9JIYqOy4WaI#5C#zt2~i++7Y!XC z9ui-|1-aE%`n1J ze&H`_{5M!=@7_=WYC&!AhhPYSPzZ+zh-}!_a2oBoh=w5$4+$_7?uTKJ3TX}1q=VuA zdPjN)f5y0UzxQ7cV!Ir{Zz zi0ge8#QmDC*Li@8LvR?5fj=&|1?+`Ga0|pO{|%LK#Zk~1xBx@y@#)}E z>b^hfsY|Ypu3Bo%_4ZdMWM_G=p;y!B{^ibcb1B&mARUaa&FEwTIW~a1Ap&}WbUgP# z0=y23;Adz=@7Dr?VF4_KWv~f0!!9@rKQ&>Y;}=eTh065fHJ}R&2Ro!dK1_hAZ~%UU zD{vhu7P^f7TAORIbPCSNpt1Kw63jqDDPSl@^w}di%KE-a7e*@%GlqKhjb*^x3PP z__JY0U2uBLMHNR(TU61A$s~m;w}vBFhFHoE@Dr3+j5gxB5~O90Q(9`BYI<1}{SU0G z+y1KS)u*+#&!)81Z2n3WwZ`99)QNw#u3uSftRglhcGe1lAQHN_(B@S3YM>22%jm7M zmsd+7dp%V7MOH3S?rmeywzc(Yr6;A;@K!E6eLJBRB`#G#mT4)5otQ~>C%GPw1j+Cs z%!5U+7~X(4VF{dolVG7=RiG6FL2GCa(J&b9gCX!VJkyc}Jd=}IFb7_TX!-Fx zZA|P-Y|ArVov`xbnKl?tcsqzKdWc2MtUTHfNL8i2w>7*}B39+9zsq)YlbuUkF-tSw z<%qS@3T2F$KtR3H0u(!&BW=+)qEx!N-m5FSf=nBiq3cWrC9|Mu5aRQ+d9OS@Qcn)TOd6*}*+7a=xs#>Vl2#=R)bfNF(zQr;_i(DFPg%)6t~Cn4Oj-vh z-+1qea+zFc9c7=NDR+^#$a<>QsIG*Zu6$ls8h#~@o?(h)w6uMR#a7Zf1S+3blX$Hl z3gTL8)gD(GXfwnjJ5N{Mzb%!ilFIYZo~eY_SH5(bsk9}PNLOlo^b}bm;5Z0If*ms8 z33w7_!#l7NF2Zkc4Sokp8_X5%hBnX^LZK`4fWa^h-f4rGe$L4rI0~oWJSa?&vf45J zhM6!AUWHF!JA4NF;Q(B_dhy(ulh>}E`TEOUTQ6=}d-BZ5m1mYOS$=Zmu9b_HFIuv4 z*TP*ZPtHF%=eapk=1-chn<;j(;el=piUPE51xkRkYQU&<8M=kGuRPVlmDnftDp!P+ zXPzc_CTUA4Ths2HtY0?_8pPbsf0SRe)zwY8ZJbm@uO&~#rp%{KNnE#cnu;8areY)` zO~(u<;ml#C+_wuw$`novaMQa z?Q7Krdwptz9UW5=wvN`Lp|VQ5T1Tl;Td#?CX+zPfWq9q8Xss&i_WVG{lDK+4wY@7P z*3<@6RQhXg2P)0A&+917yW6jO5BHjwuS?F`w6;|)OB1USixNwE0k9_Bm`nrm!ic77 zvy;36wSh@Ai`K1Z)c?lUj9(RNMcquauNo=sjPiEtRHnRlY5f{2zDA+_%tCMWSDHt- z3T^edf_suectavQ3Nx@+vFIgWTJw+Xv^n20{(LL}*Yk*tQr>ey{7)6W(pypTw`+UV zsTwk1FRf2nalLysFeYuLXrFwd)N@*Vr4@V)$KYEy2S36s_ydZ;63mnfsz7yU46UFI zL_j1&K_+BDE=+)lFbkfCw_ydWfsODXY;yAT8SH~Ya0E`n8TcN~!q0FSd_pJ$_(K5H zfv(UE?2rUc!!s}+7QiBS1J*$y`~XbsZeA_AdY1X!&5)w2H#sdnda&qV(dWfQJBo`o zUcGtsAl&5k`^E3CD1Kf494tOq{Q5yA8nv{hcPr0nT?&}Kt-M>gtF`V6JleU4x|2xI zl%9>ki-c}yewXPZFrtOpn%Z7|RVAkGS+Crq+effgHCyr3IyF~zXjkr4{QOM0K16Jh z?G&w1Gja4Slq23>buJTUXEjs&BGp;JTD8l{aqWC7rLp&#E}mgygOsg)rdmWLqKc{7 z;=Ux^zqT@4n_bl_QoGz*3G{xpYuSj^biEPb82n5oZI$1>le?7-=4Wb6G$z_|6@6hb z>(H5%U)BX6g$vM4Q~;zSHxzu%?~uChQNM=|0t~ zRM<|WE4FwJeurwIQn%l|6ML5p<}`y<3#IKrYiI-AVGs<4`ydC#!YU|)qi_mN!x{J< zet^sH7c>i_TZM4w0da62j08Kp1?%PiV|Id*voIqZ=L55#N(5UP&;o)W0=hsP^o0SC z2o6YvG{}Km$b&avDXfD%@D=Qb)9^i9g6mKtvLAi)FY@_WzAt=#;rkQ%=fbf=d@k(2 zu;;?D3x__x@bUX=xqNFaSMOi=UJl1DEGGEk3%D;@r;PWsHZjVAwp=_v=mEVml?G^B znSEqeQ_L+9QEQi0V(u-gm1>?^80-pGtIuu0Oy!IwwH#NlpKl8mX6i1NV0myq;vNQh z&Alk@6X~&W!+2J>M!9uRV1ppp*b7T$b)+;+q@R{ z-Eg(HQbY0c)S2k2+?IN#4+cN3pJy(e;*^~+rgBFSF&*}SDDqMi-T^vAvw#G97;fx^ zdNJ(x!W3~g-Lx)M>7Z8iRU)-TeOW$f{6wY7`Z|twxvx^o`~Lo=^6RJUbk<;X%paOT z4D^SAa35qrF3f`EunN|}2e29T!9h3%=ixW7QO0JF1j+CuJOdxXCfE#H;37~br=^IK z>(IYF>+bL{WIztggO^|vY=$lH2^@pt@C|$qe}V;}G=b*O20|ekI)DhQD>z^&tbjGJ zE}B)#FE}{>Kf*=mj8q3e0t^KvSu*vyT72m$)30K_uJZZe^wrZpoIY{$bkPx(HT7Fx z7aO15GEL)r=T?u;2l^03zL+CDUw^eU6TY<{2hr_K9iRkOVWK4i!_dCnwD|*+2=@YJ zU<&@s)!^=x0&R!gAnFf9_06Fj^o1et7(4}UzzSFe>tH=>fUR&IF2F7L8yc`4-U!-2 zTL|xnWFk4~09~Oc^n?B|7!n~9#==Xm3AVtEUoPIbcx1c&S+jl3_9JWFo;OYZOqr1J zcE;NiQs17yN0$aQmT9CuwG8kd^-gMIq$1xk)@PC3oPUa-IM==#sGRcc-F&AJL)$z^ zX_(wnjK3L(6rvywL=um{WDsf0hQ%Nf5ee)9QvwQwt_|T30aEF)oiKcu0AF{~n%I>F z8>S3ao=}`p#T~E{4#QD64;P>%p|f2vCv%(%@4*(>4!dDLd<_So7^<>P+!)$G2!um4 z#K8C6>CfPAsKBiIW)GUnElxh~iPgd`*bRewqj)$A7vM5ng*Nxn3?LFZK;J$zFBlE{ zQrR*oj;unJY!_Z6ai3OuNL~TgC@`(0zyyCB|j92c?jxwbp z(y)O@WF@SE?9TWDi0Z})Dl~{?j}Ls2Ocgi@r{Fh)Qv{}9{ChE00)K=N07u{`w7yq# z8l-he^{S`syI)!O(tV8e2b@txX8wdKbYMgQ=7}l zi|`68ge9;NK8Hha9jpTwYe98r0j*#V*dY}%VJtib)8Se83iiPP_!@o#nL`xa{OP-6 z-yHz??tkFBn_s#=yT1JB{g2+i`Q_>_cYV2Q=`Q`j8(-dhIDb@|MA5wA@r&Q`X_zlFdf(?S8H4Gobyb-dX>tIHn(D^$CA11&=_z;f6b?_ZRF`?@av=_@sKS+f%7zH^n7M_O};6wNk!s0O_=m7UX zSICEJm(HI(e(3!EFZS=)zwP{`YnL{hUn8Ft=a=fASC^_AUY+^$EEX94z*L96e8Bq1;Tn78Np*ky%zcfYkSDU1LOK!x-y%x&RIPZE z@G;Bueo>y4qj<`p?R-S>d%zMZhE@}~*Mi0%x_B6d!*19k=jh@Q2t^lRa1Zhnopgb& zVCv=u=Qrhgh;}K3CB8pWXtes*rn#KGIs!*h=Bx8Onl$&U>LuP6YWuq$%Gzs#r{Nms zRb`(|{u;tg_S)pHA?#$oO_!JcWKdO!Sa(omx#w z-fE()vnvC%4Lmezqu23cg!C~2((4i+_Ie8%P|n^UWu63&!XkJBcEVS11B#&<FW8b z!uhKQxAWoq>YCSXJ~y$bAS0PiK?bjlj!Ra8D>c!V9ks!Ol*YboZJAg;Yk1nWub45= zG(7LirQFv}CG&MSS!v~@WyJRWQ*RlTeq;2bq#-RvUkNnZ7e^Us6qZ`CAZKsZO*YNX?X5Nr_He|Ohr*jg$HCCM<*HuotetFYpK4{UE(N41xz>I6MN6ffHuK z0(cYNg4M7N3V{jKsgj8mAAkL@neXM=a;^BLs-Lhjcy~3Iky>aG z7`1Ns+OagHxz-AM?mKx&@Dd$E=ZCJ9>B#AuaR)k3T z4G^jBfKNfBE0PtddP+0~frvzNArE>`$(}F}L_kwOgt7$QdQf}(Fg-=)T)Kf54oh>G ziyJH+$(cUn47GFifV^QU?~kf&_giJ{*(yWPs{Hk#ikdS~sd$&+(bG~WtG30V1UvOE zq3qwp`J;34?Uu~+LA<}z(h?y0*aF*N2keAhum`TdFVONK#ttwQo`5G|F)W9(@E15O z4>NrME7XE!&>W`16YvhKh4)}RY=-Ty15QK5;Y_@sAvA($=m4Fe3nas67z5MbX?O;v z!{rl~<4;_c6{{}~9ou#2(?eShZCtx$#gdJS^v}XY8`o}}J4-)bJ8k3SS(Bx$Gtw}| z5#krIfZInW+O1TjQFYVk#4wWCNv@NojL}x6DXo#aW$Y?i+%&vmS%#_ny zWTV0v_#XZSPf^`X)lE@FbKU_?!LL$8^WOz+&O@v#;X&(Zx(5}@&_aK~MnR5 z9ZK6lwWTEAK_!Ij1GPYuWQQaWr5uNE;0HJde*^uZB?wwWS9lF7jF4GY55wklitx4yts3(pdHCpT4~=uOs_L#jMCm&&LBx|5%Tw=-zzygp3CcMmw#0%RYii9$x@4p?$YHc+nrTKRaR&No#AD82i}ME@F8r2&%m1^ z20;gq;ywp&!9Lgze?ln54~Gco1p~p)!N3?^fj3|!yazuzoGf~B@(cV0A*mz)vCthd z;Zc|jQ@{yt!BSWT%i$e30AIr)I1I(`C;SE0G%|-<*RNi`b^X%$>zDYt#06*P2V6QM zrziQGhvWN>U;pBxjqjaYd;O!0C*NB1-oop17A=&0dKn}cE2QSuf(&W(p;O6ZQoFxE zd3pr*8_QdM9CdRpSy|QZ>09>1k)ym)5F-jtqVi7A$`L{al@LMX!=tH&oxb`qCMrF* za$2*GR3bLKI8LdiXeZh#HMH&H6+i9dc%_MY@%Jh5xYT<7qipb*iV!9InOgQWl(IQY z6?=UAzEY_?Mk=LMCz<_JRpRR5M-I6yyr{P!G>5KfWx{uhFBN_&yAGwpGn*z}93(>u zWI;B(46nfJun0bd&tM1V7a`GO004Lxi zoQ2xy_y-7pQIHPVum=vpw{Qy1L(!Fs{P*2axN;OOez#9fC>h^KE1??XeZ|=O{|ud{-gT#&BCe?t+p*wX>6?dW9;2)&EfXOdOw$X*F>&mT||zI zU)sGEu4lH>Ut&s#P{UWC1sw*krp*tj6wz>Q#iC(=uQQeTe%eK4Q5|vXg=g z8E(QK;7jCM5DK0NzQXlBsK>fXLkNdR_zXUWFW@j7hi|}_C7+tm7;MlU`oKXr1*bvH z#9d9uVzn2pz#kBn%@z^Ff(oy~VptA`;0O2_u7h6=nLq&4gJ6h)4R8Z)!tW3|mXR5} z4eLODuffLWPenJwi_V=nck^7)xug4!p4)rwi@iJfe7xo3E$?r6f9;mNU#$FM`4@X( z`4>y{@8ydYXx-*0^=q-uqxZN^N9GzwHh@OVQSOoPBc4y2KSya<;Sc`<7H!iU#pVpG zUQrKbcHVK-XIt(OMVYb_nSBeUyhJ`{U@q%h$VnH`B*b&sB`OiqWS9eU!4#E~>OStO z`YpFx*4o+Wy!9EnOig6$*-~3ALs5APY{Qkgik~vVl-8rvXfo`EJx~N~^4L6ubMPY+ z!H|5$yf6{wz#7;EyTQAFfjYE=K`^+WWWuyz^^3|7#VLwNBI!vWS(@4HmGkHCzdf+`=FUy>yQ?zWsyamhn%$PQ*U_s`LX&X+yq%=|V7cCR} z-(_hnvG0M-&=Y#WKrp1j(3A7&@G`swKSL2*gBx%YnvbIt5Ci=o9=5{{*a?T>INUX! zE*|QRXYAX8la|mL?uR5uh7`zye3%T6feJ6eyHE%pz$Q2b-@*wv1<4c87d#46;QB8= z{c`T)@pFgyT>tX=m*=jZJG|rYxow-*%{bp`({?>9^%b2hRpd$$hRF^tK<2 z#2y2Y>{nnxG9o!oY1N@JbwLCq0uf<|AVdf!K`Q$rBvDB!?PD3u$)pL!>yxuzmc6i- z*$eYCh2iA!LYORX&9q=zw@x1~`#d27gei|KeN|DMA}|T}v@7hZ9N&Nq@BwUvFX22~ zfS(`&FEbL7VIoWdCp-@?z&uz1@4&n8DSQUI;3S-aGjMGpuJ$@7ze9yd3@yPI8bTvz z20ft{^n(E~98w@1M#C7$fE<_!FTy9V1J1#D_zAAT4fqpoUH|pmtzXZbzJ4O|`hj0h z{JMMVhwJb3-@4W7)^GiF#X9*cedD#4U!y-8`KFTFh~c2M^Vewq`=nl_Msaf2BKFf% zf4{P+JQwSb`484$xkq&3Dd#DgUw7qO?dR8&+TQUaJbS}VuPZzKJXIkoFkhlv#7mSB ziKT)sR(3WwwRDl7*B}Yuil#F=r3CkQTzP1iz} zG7k@4s;uz(ZKSLVwAX4Z<0mPeTAxoq(fkdS4lQQze8wG%h^jvu^!K~E2WsBHz?O?^UyS{vz%jIr2>07%)pYgJT-0a56&xK z7oJHoJC`4<@k*nM-VL7p}*c76fGz9SxG>;o~-1xo!$=L3GE!+^?Fp=ETtO*bkhozfPn z5Y`_gZeQpJ10fm4Kn7$&E<6d-VGhiL!*B$S!U^~pZbD_&U3{Sm+y$*57-qmsSO%*m z)A(0&@+tfUe?vuR;d9JhW>kau{yl9$X%}x{vA>GeXp1sjdtwXk3d`#SKl8alvG7!HrXD9DB! zcp7HG^RNIG!D846dtfgdgH!O`6fEIqPP`Z(ctdUQhlbDy?uEWE00u(>424mU4pYDh zPr`IK4&Olk#|a0IKngqu{Ce}uw`UHYF^=YUYq_ak>^;L+;oHMpZ7Nz*bmpC9?;KwI z%HqR|=PkAv|Fl-0DY;tfEsDRl7)g6ElIf?Fn%clqy!u{!i&8B)Mx-ec6X}Q~q}GhS z^a{ptl**WemqO2=U^8JAtcEPseX`*r*b2qajb8gn*bR3*DL=IBp}o3?5wmW6nGe(Z zpWC6-Q=C#uGr<=)p9}M00lW;afSJ*0&VK?~X!3$8a2M17Kd1|VP#>Zo2~t1`_X4~K zFT*SFCcHJ(5@K1;$!3s}-zqwP>iprohtC&%_VH&QzrXVRHx|t0Z02W0PZvF%`*cx8 z5&Mp$%e5TaWR-Q(bd%sYsYuEQF)txcX-SpkWrjp`aPckTmrqBXf zLnQQsUT`n;fjH<3{h&V#f_O-RWJrTiFa`=>5`zrV*$#){2wa1k z@H-TP&omtIkqcY-9NAcSq;S=dRm)awobLd>}}nM}rhn3Um}IlUGj|2am&I*bQgl2RH})pQ5$Eb#2Zb z-cp{uhZmHY;OLt{8`$OYSDaF0Kd1!_pfLnPd*}fP@BoZ}d?4g-_AT4_+OYKE(pNWJTq^%Pdr^D+ zOC>=2@Jr>E_U%`Ur&{f1*llSlQ3gZkv*;e$LkH*vJ)sxGK>>_|@h|}sMFYYaFjb=yNO~ zfD;~v&!HIV&p`H&3wclg6JX*DV+&iK5$hY*Ir5XJD+g}-+Q2iE$|WS1u4yUa2kGqb0DR= z2)E!5D4xX%fE3q<;#LM_KxhuFp*=*y1Mnc^!;>%rX2W7Q2uI-}Tz!7S;iGJ* zJFjw4k-GbVKh%Tz5CM@81>GPX9)S^%4r9OxPr_^P2AFajh73(vKBUW&5hKSem;|d~ zExbG1Qp@rKC+FZYT!mj}Yjck)r@SV=q2+y}%u0ILb^jOr8BLI55m@K&`WQ@vNlqOs;MSC?DQ+fPCwV$mJ>>MXWd^Zs9E3}u0q$LunpjD=m9<90eBD+Ap`QE04Bf- zFdsI-W+;X~p&FI*1F3XVXa=Fs9-`r%xeO#?IT48rfdoi`R7eAn(sM8qGJ~#j(&0_cqsvx-<;0KLBBpeC7pf}w5<>zxJ;*OlyzkB~De0G0wV&jSZe0HB$ zwPY1{c7I|VZ~NZ($?jKn%l~mn`uKoRiA}poPp@@6rF79&USkw6>y(n~>@0ZHT25yAH7 zr0G01gP{X-g09dV@}U5phB@#Nd<;9_Gx!{C74f-v>hP((r#{=h+4vN$lFzbLh5WZ_ z@hXkaGC7~|1WwQMpZa%7_Z^S3x+?Si|!SaV; z+%IHF4D;nI38kOA#qNH}idONM3Zx`=EX;%SBWamKFnRH}Setp8w?h}4QfjA#^g}Qr zoLW?}HspZ_WE+SOPQodu{Spob;^76@4SpJv3+MqEFdufnPAGzFa2;-Fx`TGV`)h0j z%X+cv&8?D`g5B@_8i7kLJFBcKn_pHMa}DEnT02fCHJu_6<9);(ypOnpcUJUz>u+)C z&-63>UZ7}mw@1aKQf(m^q;jJn1Ei8mVL3=;55h4x3+KSBe1OL6Cy-h;f#%Q#f*~Bb zgGlFI=nF$&C_D(mVI+(OkzNku!J{w*o`UHx6J7$5?m~DSmca^m7v9sb?+-Zn1WfVY zY(E*c#>Bvbu6_O(n4SZ zd;rJb_(Jy&Rz?{w_+F8>d{b^P=bLhavw!cax?$%ZeS+W6Uq>@dT-ShZ*mCCCp_M!l zC0GK*04!9`3bmj%NY(2>I|zm_h=B1h4Q7FeL>671f$89!$=7U{2TS2o5c%wZuV5b> zgtGFw#l1hFE;4HhJ)sZ8L0{+xgCHKJ!c(vY*1~)60c?KRGRCr#lP_Q&9EG#+16+m5 zD8mXhp%(nk&vpMFdv^ieMD{*>Kbexy0&USkf#ME}LkqjOb#WGVXOYESQ*;-126uNa zPI32Ayto%BE@gSY_e>^jDgC9t|NB1Ab3NDfQa;H{GC4VO&V9x*bLO*Lq^1AexNz@= z3?A9T-;-@?moHp9d+kF07~pUDTKQWzd*N~h7qW(}ewPK#J(kw$ZPsJSX#hUi`Vg72 zB$cHog{&{krL?0&n`2>ae_f)LAdfO8r`PbA=wa-5g|@X&_Ir#r7Omy|CNt)TV$h?H z#{U~5l~ENFp<)dJu^)%<4B<#hWJp3xxPU8= zD8Fsv;W3`!IbPy5KHwAng=rqgPhf>BJdhi|ATNr73n9ZFM)|w>G34Vz7E}*E9@wG% zZ8-38$qwyr!;+7)d41X>ipgX)slPrnk51%R8OmY6lMm^B>Cx{G)k(L_DLfr3KT2L+ zJpbODGIx>dWGoc7qh!#?kS`f3hw}J+o~*sJD_8Ut*VLx;XRB>t=99fTj>hSutdvry z`wJ=-rPzcSkImoJ`;Um8(EH|$wgfVVkqJ^=jMqkeG(cl?!e8i&p6G?a7>QAsgoRjy z#aM&2ScmP{k06}HDV)YRoS#RGTw@>nbCqgxh+Ne@llhk7 z8<~;BjB|6OxyiWXTizuB_0Dsy5lQ&aoZl#-SOc!5v&3}peKgtYKMI;2Mye+6IzI|3~=vx633;m{e-2=VlKpFBr=qn^e9QnMSZV zB3hb?BNX|Fqv;T~GECU=8Lj$%(jMgXsGpW`?Ry-{MD3NNmE)Oyjas2Se~g1cQ=-R# z5pmIL`G<(BH}&TqiXIMnkTWk@kSCA~4Ur(vukOpE|?|7n^M|FM|<)37Cp$n2xOo z#BS`tah%5od_)8i^99*a3I3>o255$M=zzW$fPol}Nw|u~OQ?|747|lVL?8jV%Z=Ko zheqgu-sp#@b2FB4nWG>az#(uXT@J#WI(X{B^9y@$%Ko=~oi?I9afF7y6^mvjn>K#h zX!hQt{!>qUHK#A(X!^2)W~>gQ4jc6px#FZk?Nh2rKAVfEA@BKBtmb=jR+si!{nfnh z&6)C<3P~PM<03BM6F$Rr8Ep&0aRft_%NjCYb?Lq=f?qGH7Ueix$xQSqyS|{3SPe+4 zc(};Y;9La1-0qv9s24Jr3#e(oncZ@yvfj@WP;rDckvXwR=V`Js98mF8S{aw&L}pKU zPp$dQT-9Uw^5rIxCd8E|by7xiN*5V8{LP%frIe+#w#cy!&b^cBk^CEZ|IToHd!DE8 zJO>N08f&o*8?gzS5r};V!T}t@VaWVm#Wg%cKIXju3StljW61A3Ou%H!!$K^@ZX807 z6%^#lXZN06Il9CCcV(meEt|D**~VGpW-WU*?Afs1&pJQj7q?V4PEx+lExjD8hg2!r zKS{RHK3=1;g-&NJre-iD)u)N}8dIP2+GU?wZf@JzKT*7%Fr{?qD8ZzEhTF&)Z?LNB znZ3RJ_0IlWhM`UFp-*T`WlA0M%N*}zNYVa-HN{V|=$L{piJZdmDzhrti^h4z-N5HS0r4;RzKX~jWnxRyrpNL3Th+6Y7TPYeR$Y|@N36+9ly4D z#hj@trp_5PXT`97U50gOIjrHZKOz@J?78Y8BXufQ6Y2pguThJRfR*uR!AZc{U$gz^ zC}xvLCNw#sS;nG8GvO((IYP-1-SXxplnfh;EtNpHAV3 zZkfXIIm$(kd3mH<*uInR(BizJ_Lf}DBQF_Eiw)VzY(bl-GpSptI}fU-C@Mp$OR6ao zDxkq?wX4FFV)U7!{a9j;_NsF66%XE8q$hO5_1KwC;@VgQM~!QF?PqZz)jR-<8uHqTq;X9H^7d<)Fv2%s@;ZN^{hw^vf z7!Uiy?}gKY5JRiNkIfCg5dJiLruJ@V_}K7J{_`Y@{|tnDFRKS3A@vqD+GIzTBOufN zrN)~jRNU0`U(J8lleUV# z_T8M#mPkre&mmRIa04_%e+kJp2SYIu z>kx#)>uu~-FmM*

804a2jWD7PoL0_we?~gWFdh1oL+c`ycFhuz$mTZEV@h2gk-f z82-RE(DvYottaV5|Hm>zU)gW#meRg&D1B3SOXbT;kqcX?brvPlA1PDRfUo9+K1ZxM z?NK9#M2?o+V*k7r9_n(llCOBK+>}HqR6}(bB`BpQB_^fO3CnNjjs6k_R-tWw^!bVo(<)Gd5_+1wsjkN*d1IC`*ajW?kb z>om-Oiapqiv$%q*xP}M#jBil3QrAd}-%tUK&0x$6j zuTg(HA3`^Le*faZi}%;hyg#vjv;1dp+536#XT6^=X4v2{y~h06H0rX6Z8td<6K#z| zrORtE-YKjdwAHI!CXi~Eg^~=j%yKN`?Bj$AL+Y0VO6}aTw2Sr~d~b}`_yDh|O%f_) zYkC^HHPpCl`0<_$$?ux_l2pbr)u15vK?=771=S5wa1@qSR`+>+fLGfj-fGGoLu&Px zv@GuOCf0TvT=j*A@U%5JoOd)*t!2(=jJE7K@t-tcZtvL7>QBXisLwe%lLu_d_yMYD>J0i z3_lb@1yn|LG(clCL0d?fbOq&7DN4bxzURfQ*nyq!-N9xbK8M}=92ydOE;Qt5Na#-P zIk7f$!Mz2cYUtE)LkCao-DPlVZO5IB`EylD&>G|yKgV7Gaj3s4kFxrX9Mkp$w5etD zEuiN)ZcMT&*x=I$GBsUU0!wU zv2*yz@$qP1$6mNh7;|PF2|A{b>7vfGF-3YQ^x0SiiLo_Ui**RZo}H{Z_cCw>XAz9c z_=*Tvcd;Hr0(ig^Igty6P#8r}5@k>pEzuD@(F?s1fQV1wkM7;P8hj=gM|ZE7u_Aa% z@YO`Yqk7BWRi4|hSV^rW_EegyeLa8DX4cx?iJitRV+s)ZTXn~e!jW%eD zF6fPkn1tDwhxxlrnN80h-+z4j{_RT#H?3Q>?(w>LvnGw1HGI(U-ov{LZ}q&^bCwDc z5}DMZ-pXY4oHxHj7xYxJs)sz3tgh5NKi4pYhqsa=B?m^xh-6qYdl`~J<6Q}E{+Zt_K`csNir^QR6D(RI7b#5w!&fQbJ<-6qj zjPLT|^YUHtJ(7M;NctNg-|=yecKD4RleyVe4mK58IqBWkP3`>IJ#b zgAv5mKxNZPdsyWstZY&yBXAO@a30Dbnmw%WKx(8zdSpZa6hkfif!gScei(pp7>@~< zgvogRIOO@`gPT?_pFeB<^6ASbj~_j9{E(ill6JSOk{ z_F1)%C7C@V`~4Y~tOr2PzT^Dx)GGH4u%8vKZN>AuaXRg!I+xX}wAF%Nx*p%(d6dZ< zP;r>2{!^R$+-CejTrIg;riQY_#m!gI5A1{#QgYd(Or~KbW?>t4;2;j+D30McuHqW5 z<2LT#37+B|KEZOB5Jy5vMYxlA4z}GUi0);MyTIUw$@?wBwx(5^-d{vuh*$en(+`N*cwsT3^Vd^;O)` zYDH-s=J}m}QjGD;)D^$x1XwA`rp1(bj-t#a0TO*zNedZ^QCd<$K8NL2X`wzppLPiA zhcNHBLw&G7|*Xe#MT z4Prz7O`RDpt2wKBp$;2pc}ppYGqGwZ$2M!-a` zu`-StGfG7-5vNg+WWDwsS+D)8{hV%Z<52=L#`omYYwgF^gy&7NedDVm`K3^=CqjW!*3oRo16 zRB_3Lgq)1Yv$hK1KJoI*9k9F$s4X5V8Pv3Om27hR__k^OhwGQ*z%L_h;;#?|MKM`5nKWKcd*!HcnYRsFZLlAm+>8@V{GjrJu;vMYN8F= zqXR}`3{=d;0zAeOJVh9is3bNqk^^j8zfiD@6hmfTc`YoLh(yOyGq2&mB+DK&BYfExz8`i9PYm;GFP)D{uX`UIQH9MoBMQg>5^@41J zB{pRkM9E0W>80khrt)mnYU;mO4BI2ys1dz3oPLjWoBlnqE>&YJ?(N@W)U;m1PQT~Q z|MYu|=+UD_{~js*Se6F6w*R;DQ%G;EMnsM!@+2yaNPNcdbG$%e0x=1+RaiE)hT~+l zxveMgxC3kf7^ zDPgpk-x%(P$b~g`gRM>`d6=Sg&@UIsxOCZ}FRRt>1(gFXC(0$!kGeC!2DY@ltoRj1 zdi@z5fI+ZfI7VP2HeovgaU3TQf-4Ba3z$xDnG13uHwvI28ln+8preh4A&}>Zn1l`3 zh=VwUd$^B}_=GGc$t((@I9{^T8@PN5e>}+`rbKy`*Tr=lw2`qW|F~AzDhmOrv*-%} zc|~j8GN3ID7>Hclur!eI$aT6*rri=n-;|V5?c=iFrY{`wN-asL>ZK_6M!xDJuawPG=4t34T`%Jk}TnoPpo zQIq-Ak&IE(dM!Imh69e;H9E`>xrt212oOCuoF;Q)Pt;_}IC5jeRYyW($O)&(Y}>0R z<5x~OXfGBc5cME*n!?0=_7o~OQZPbS4_l`xbl4vw1tZw?KzEu#xuD1t^64>RG>>fd zCeoVc#aM!+*n+M2+2V~Qn`80D277L~7&d`=q_X0vuFkI{P=|Fgd!^9g-dNJU_2yClAV><49U__9K&(k#XaOY#o`0`;ES-3L)zc| z-GRF|E}ItcSNo<_{bSYO@}>xX?GEU8JoWTN49JWwhZmrW7(qyI{(vc$8 zi_~c&UwcTaMWy>UwRm?W$iB2P>O!vvr-_U@tS1uxyIQ=HBN3wl^~!UaNS7m#iF9@( zV${0Sc)rt46RCIfXNedgqKAjmL`ojh5;0#>i*;8H*o(vntEOaRg!7D~IPT6W6)_X-o#A7h+I8tou+X5gkBhKR7+&t8sV;oy3<6KpVSj^*Aq#juLz7b(wH{V z1l^!@V$MD3`*HcJ+><_*?GJ71A>dTBRQ1I~JZW)JQ|!+801U(+EWuK2!e#{F2+rdI zUg0&8oaI^>WJeA(K~pqCM|6Vh3I@Jh5^`$dlCgigj~&!uqONVr>a=68s0Z<6BW_y% z`qIL@i%GZtymS@Mu)4S=--kzE~@!+}0?5|OR^oUL%k=6q}F%C1a2#c`-hY&R2*zcEAne+qjbYh0h8@~C?{Dp|m;S_Kvuct1C#*KMR`gIO zJyx=6vtn#zWX_*nJDTCf{1Le_m&RMhuy)u_UHh185;(}0S=xu}ipXT@)oM!iQfVdc z6)+VK?fIAd_J!ox$mlAUB)&V9sW~I(71S@2T^+ zYv%YTihCM4TIBf0Z~2k`c28~T8lWwRv^~;me=1oEv9|QhV)Dyk^3TH2VP@aN9;$KQ zQO7%xHy|~t*d}FR@|4mwaxA%ZC$}E(L}DaCT2w(*)Id$NKufejS9HTjjKVz3$4=~m z+)DN&!tn<5EdSzO$_r;WJ7n?XP2+j!KfX(&$vT!)SpwI#QL31eru{K9gB+b2xbv&g zY^@~HOM8g9OQ_#%XYTnZ8;AC_Ui7(g+Wfj-&>Df7se@y!XOxAML(2b!LPr# z=!?ZzV&h>ec3>wS;31S?e$In0{O~*Kq8`RzEaqY*R^b*x@d{rNf&7=r1j?cuI^i$$ z$6yRWuH`(ez*g+QPTa*kyuw?&L)s8EQ*R~IBR_K}rK6XO)3Oc>iBVfddFo~9G=<4m zVx(ZyfL{7eQ|NRxMhZrq>GkC_g$mbVq+rytUb{|HNPj&>3Pw!mvEVd?&oNWbBFGUq zPE)vaBSs#KaMMH0X$tFZ#z?^kP(3i6rttTz7%3RxtcS7F6k3MHNWlnxJ?NdL@aydu zDHu&fZzfJtNO31d3P$6SMz#F1(-dCCOu=Z0dJA-#!il>v@?f-EdwbPRG5GmfN!w9a zaxX>-X+zjohc6n3IL*W0`;jTwm!w7tMIEWIkHByT^hO`d#vH7~R&2vHT*qU)#XF?B z!j>8GqX6olE;^$NWz4v+Z*$&&#TiE3OtOFf>A4VfJL!I1bki zWYQrRijf$F(U^z%ScL5egnY#=9L6!6!fBkt13bYy7}@y9uw+HDkrJukjRGi`pN9b$ zh(UN7^7N4Y|LGxpn6Zs(mo1t-aY)C8br(%kPpwsI%PBarJ0pAK>b!0I+EsX+aw>I3 z`HF-vzNR3J^WJVTLK~=OsOZ_dzcj8fH0(`j7!eTc? zBV1<_u4kO5koQ|;3icK%fj%9Q!U3Gd8Jxv^JVqGIp&T|tQY1ru)I~kiM=wmoQY^!A z96~5wBOGt=9j4oClH}yU8>vwi9OplGD(L#l>*qpv(lEX@gt)?76NSmi3RD zy5@#bTMf9OWJ+wxXk=Bgm^9RB5xV{xSpfDX6?KN{IZxqU%oL&)!7}G5?D-xe4^ay& zTu&k0f7sWWVRF%LOXkNK$G!<@l(!py^#kVDA1J@LbTb>@wuLMCYCTj|>7nB$Ur`Q~&;(5}0&8#yKYsOnUVD!Z@VdkH z8L}Y{YN8fep*03zAT}Tn$8Z{9AwlbcvaSmX37h@*@Il?1Rvqp?oJZ|hdbZHE=GZRe zN>lykTm8~h8I{e%oca~0d{<=?>s9^2*T~ZaHVMLY~X6!GxT26<*=jy&*!HWK`4(x5}{ zA|CSaI^v;;e{#O36u1^RT7-Cey2Xq9X^*#M+)Ezyc+xKikf6|h;d2bg1QKDtN-ahG zX;7-dWJD&a*-g{D)@!_9sagEn^c&Tyvg_GYO;Q z!oGPR4QnGLiK|*N?3eQV8sTui&o686L?)Shmp5h4A;d(NIs`S@*0erxP!+CdwA~QsfXJZkL$Czbv55Y z`3h;VNys!xokCmSCv3iwea#f@fAvX8h@Pur)THO_>9ezM9N*}=Lvpi#rP){A{4iA2jS@Rh}~3$*uPj-rssZX4J5O!$yr6)pJyH z<4?}1x{>%IAsErByLJ{-Vft8NSbxRDRyQFj{qsj&H)&iyDO1T(HovW>I_;6tM2_@k zZMjXY|*lLtLDvGwQSX*Wz(0>2xw#oA1 zDsmt2oPD^HuF2Jv&z1UFrJSTsDtUG(!ZM2Ieue65XTa&T#iM?vtBgjkL^%Prw$x2Q zDF-QoXZBf+I=l7BYSdYiS&~@@!FPB)<+vRhVj)7GPOTo1R%I8-UH$ErIlE(s?oH3T zYj=K;Gl=9pPLR3at{w?fvdh5K7NCPPX>zXdJvmY6Ub8)FiKogen<<$T*eP6weDf9D zKq&r&#jq!@-#xfP zA4cb|zP|bTj{WcSReJlldieF>pgo88?9l%X?+Ds)2SHmmuG+YDQRJeQA$9R9r9hg1 zEMv4V@k{kud;U~(hW6a3hOe6cxspN)uF?!7Y*DeD_6{9Is5PG}1sh4QV!`So3IkbF1VIvU1c#7JrH`?GGM!r(3hbiT>_^?MrY6*+fYM9)6 zGIB^8js6-D;~^1aQ5(Nd(xgvpUncF_faH26BJL_m$#PsJZRD79HvR`)kir|9G!G*Up?sd+t_!gZ3;v zWXWPlmRZeSDaEDV{Q`+gvYIHHY_hC2=$gbn#9fi?vv!YJS{=^MiEn7isE8&QjYIf| zq;Dx-R6%YQ{%xF6|GmOltEme&FH`&~#A$gb>pfRIjG6pwbpg(MPof z)O#kAivn$tt9;K93oXs?XPZMs|1h~q&~YnNS!PX4KTIEI(?G_VZO3>#`}oh&aZG1V z=f`o1$QJF3CQA=0$))b^Knm;|+$gk^NP{e>h?Q6cDbR}uL3|1@4f4Y%h*}$!h?1JHVLnzP9B)vC4NF%Z*JGbq;xoO>|ReNtPn>S<1%?aBijBgH;@XFne1b9AH zYLNC^>$lz7^HRBPh1aE?r28Xz_G&M+B+)I;j%a5p?RB0P$!%SEHqI*7F8FA|3q~{> z{lNL;tf5VK>JN7cpZDWy-9a-X8-03oOI0%DhV&t7k4>voUdWjC zZ|x0R=N{T~f*wh0uQH&H$c-_eTgfv+g}h2Q&78f8!xDgjE)lM{7daTUZN+s&Z8?V< ze$A&>u&LpSuT2W!XD#AuiPq5qenqu!(Z=O-QCpr?(VvCc zKl}xU1)pbA;`DLZY_Mrt4jb2QoG(4@r!ltjWplB!zbRf9*sr}HE`#c{rQNu6lxo+< z^sY<)9Z)sO>oTUlPGD>CYXrK~sRVqcjv?Cf^&&wwZ9pnl-pJc~zxHgc$6AeS=)~4{Ep9<`q^mZtAx8^m`I7hsh<2xn&l!DIWVXZLT%@lOOFU^;D91 zE#o}*f|2(r3>*1h&ag2L@yP3s^O2O-qRvZt#*Q;oyd#UXr)($M3OQXIm!C<~4_q!fqnEozF>L~#h;qNX@a6sPcw!$iJuiSam2 z6o>HjWijov#C_uuzHyu=4&mz?mxkaQm++0_L~#gT-?+rMZ(PDRjuXWpe0}2*& z5?E?fDQ9}5E~?B20)BBhpmwd|65qwvWxkrk-^E8>>Y?7r>rzHtU&1ARVBUN#*VC#C z{ayT(ki_Z%Uzc?1_p&aD)sp@$t6fM*K6E8=U}x$V`YZNx;6n<0UjSEwk+AJa39Z|GQ1=%dSqK)ly zHbL~sBgbY8vGh>GhFYqcAF9uWThh3Wux9RKR!*f=n+&rwOE$t1!#giHBQ!A~PFny4L9F<}2-D zP4)8>O~>P!*Z7hqrQod<2ZfMKjTmNei?7e}kI4)jAImKN|H-KTZP{3~A`a{}%Ca({ z>o8A=RQkI$=W;2nwwPi`mtdHu9n%+5>(rmDD?{EXmy*)2f@+ zSTd>Oms^VeH`6y=`9GXKd_f%YQ(enS^hw8zCXg~5wIqw4^`A{zW~QZal&LZXS*ly4 zr{YWM(8aWIM`^@fax`A`zbU!@VtTFQ{wLE%FOFDhvbuKLvFMY=T5^($=#&0Xa)idu z68v8{l~z~eORuZks#`7>KMC&6T3;aNr&w-j1Jq4E_4ZWD_QDjvw_OL;Tb66DOQ7kWY&TE;WNy7Z%2|g$ds7P`r*BHl>d8(S zO+`!7kzCb}o)jmS6h-gQdyB@Q)HQa z_9F}0bGc>54;6EJMeHv{rWL26j9Y>K|5G`l_y3|&C30Ft4Y~^_E!;>V$g)fer!vP` z6!|W*)KY7lV&M>Sz~Zlm*+I)gy#*fnae$BLi>m)C1}3UAE;|}roaa5CT)kkPYN;W` z5@pF3{(q=6^tq4<;U}t8X19*<%A1n%(^*2*EyOZWDQXRz9l|mr@WBnsUUP!dW|Lz2 z&6LPHncDoOC8c`smc_?hTD^12GCcAYm${raYy- zW2wPY$2*p4Jngt+smqhcT}v&VTHLkNP0;nt_gdyU>=MLR58UDVLhf3M@Lr;OmWJ|P zcXK1&bJO1&bT?W;S!v{W*e3EceB(#9ph zp`HW0*IGHnEsdJtjU}C}TGuocQtitep1$J1uC258NnNS;>Z_a5_+P5Hsd4cAetq}+ zdM4~_$98jreS_0Yo|M?qePL2x57(8!m7AR0;Fi41x_Q$vm_ZG!F7SzYJaE=U5Li$x5e6RC^uz`u%WU2hjvS9SkcGU~cPFmD& zWv3ByPv%YbB=MH*@uw(53TOE^{qIyW5;WVoclPJEGm5Uyd-uI<+&`-v|JcEO`1A9PQ7EOVJnUIAC!^6uSKW#8P!7dKCO zXQ@{A#@GBuY9=c*WW#*h_h+AL_lmf4EqwTb3F%AzHstk^whwA{zMmye?Y$8nwvLE1k-m|bUUw;bPz8{prtLeDAzdzUSI)#6Em z=`C-!y>zugf(o9i`-KM0RVO!&SeWLn-@1by?UPR5l>WGjf30yJcB~%usz+eicZCj{ zvnM<>`0u3IZ?5P&{6^tkb!KP%XGozWDK_n?zGLeC;W^W^Zq>-WaPJlMj}`vB`{|b;o~&Ud z%B1%yGOt+ADfg1ksQ9{e{erIDx-AMCWp!I$a&fNI<^4u3+WWFYwne8K{GD`JlY=cU z_FQU9nk9AHdu-jgFvXcWYY*02-=^w; z?N^f2yHa^x!$!AOwwt{;^Sb;EcVA6=^1#E99X2-Tmuyt(cuNxZ>z|_fw?>82_Q{`l z=!f0oYo+r_HgasD$>Z|h%sKOU!1C<_OIGZiZ0T?HA0@ib=W3ht@sHKsW2-kMY_O`3RVyYHx;1tZ4Q z{%2Qk&n)dSHu3#j`RdkE+h$gqes1x#lkPpoF7&9MKIBzT>#u_|r1+zAOYdvJ`8RA% z-eUBOHt(Bv8P+)8$$&9kdKLYpUPuP-e~bJQG_i}V{fT~62i5iH)1kuGvnAWDn^q%v zlHoc0%4RN_?_6%4>Ckmf{VqMvj#)n_bGvSRe6|!m*l_pd zth4KH9yw=JohL2kSAI6M^YmS5?w{>CCgN1bC{4l*~yEkxPj$w6tZ)NG^ zV(nY-`_0E|hgDpZuE)vuk9uux^=ey@*EMRC+&=R_jzG^jL$iIfEoxOD-RVAct8_j7 zcCRh)uYZOVNV6q%|GEJiFV;JM^5nlo>iRvd*Xh@gxkpZ&X;SQ;dwY&-Y>=pY&YKxC ze)9~o)%kRK$cyu7o=tjHu4{$Y;bjXA-#T>dzBcham!?_TH0^;qZBlkF*r8s?wrfw8 z?w!#!B;{{Uy?WH}Yuu^NjD8C)T|3h4(U_hc!!ymB*Z*qxwx*4r5<>wdmK&(D?+bJW$? zt1p&1=Iv_vua@HGO@X$rmgZ(9=i9(L5tamIH#zUri%aNS)VJR(nQff$%KBE9lV?L7 zhE1-VfaJl+JD!}Tg#?K?qZeC}aQ;|QrcK6qXBeKGO9@hNvKr~uOUYS!sW=NAWxY9h zEj4HErQziAw46|hKYcg@K0W8^WaI45?A&57doE7x{DrH1^Krr&zns_QSK+XW>&i6G!4fHHAx?9AvIGxYjWEh#+QNlFm1$M z907SVkv9|hGLbJ6c`{u@Fs^{?nC{^v!tn<0;ljaYS0q3}xWfa9krc_00$xaErfO3& zkOn@;gdE6)JjjduD2O8PMRELw5-5v`_#M?y6Mvu{8leULL=W^v07l^-Ou`~FRlAmf z4cLK0IDyl+f?K$aJGh4jc!Vc-1_}OkiA|>6sfoc1oH&<-%Z;*DG=x%UiBZ@LX&fH;DLvFg zHzX-Ux@d?H+-^*Un(<}Lxf%d9+Yp59 zINc5x@eR_lN})Ao<0w8OQ+qB#fel-53(0ALGdpsbd^ghSP2-^z&P5=e_M`s$_vfTl ztj1A<;yvQgRDDn$9Z_;1%NJaM>ma=uCnTDs`Su^nWxJCI{Asi{n(Xzt%rz}`5l+FC zmYWkju?}JIS-|%#r2eHT4_Qtftt9uWxfXF95x;>eRW@-}B~AL(Hu@?JB!fFCDad`J zl9bmLxYalA8?44S?hhI&v=-xtogI3PtW?lIw(iXBxQ&h}^|P z?!zH>(vX`t$W0fd%YNx`UpmZ}{_dr_dg*RnI*gYt-xJcVZPMeqboMP>b4$q!TB(#4&0QYYQaNk?(gJ=#D>UtQAMmh_h; zJzkB2^g1Q|M#;iadMlFthNQGMZ=?U80dxP2v`QWL|?A4my6`(DtEa|U9Ogv%bn$VWx3#3t{9f9QsqK3 zxq3*h^N`co3M0uICGEzJAwWd-3>1)m7PF75>@fPpY z3w^D=zr-_BuCO9L+#tUadLjvuBPG0%R_)%;nyf@-202;Rloi>K9XXL3zaSq9pb!e9 zDEv?izpCLRQKlS&r6QQ_^`*?`Qc#7x9K-vBVe^{)vbEHEFR6~1oL??8{ zI2=MK?%*!&Ly1qp$0t+@GEf*r;EQ_r3x8uY#$X)Q;4~iNDV`w=30+x(q7r^bWmH8c zjK@l>#u}`{XSl7>R{gf~8n)sqYAMqKf5>v&f0Dt_RnEJ26Ku7e$RLp>iS=fQoc#LOwju%LjggQoXlt4+8Mso~; zirJWhdDw$syuus2#d{>TCFO%?jAm$#mI%OXY{L%h#BN+iykvYiG9fdvqC6U*H~OJJ z24Xf2AryCU4-epyoQ+f1^7Bv#g;5lB(GEi~0weJ^mSaDz;}$}32j7uA1xrN~L?IMG z9sG%57>QB%2mUNTx?v1D|3m$6{D*}MuFfM;=Tm&ByO3oVJ|q1SmXYX>h-Iu|mlHhb zxsp{f&Y;yAsttQ^d_B`4(*^=;BP|4$O)SFS5`C(D}ryZSnT z^$#^<i@)7Z29d)5j%ikoS+81iB^*dq!XH&oZ7?ef)Igu1%=B=o80@}YO=fj9o6DWQ|0Gx%gOq&y%XD<7nRcUPA}(&#y0nyN-y7< z#yhq-FDj*{r{NcC2DB1P<6SJa38eJAZE|*L>@(pT+lM)2F}4|x?F;3sZ+9Zb-}INM z7pKk1ndt@9b*Zf7Vkvx1?p70eTf4_nd%jvhs_VUDtv$}fR?m4`eK`E`vp|*8t7Cho zNUZM^jrE<_3d`3PYiUUn`FR#3K4N<(w$PIEdw=#BTLCf5xIg=ld?vP1kP~EM z`^-;D!N$BuaY8U^6^r^gb^f_n*4p(b#M+1lQ-;F2+@&}WP?jx*y1LHwSY=^*efD6{ zs;SP#v*^&04TwM4Sm?y|SeNK7Gk&{kbkDo7L4k3-bRGKEVWrJd{vE5sHDmdbiR_O} zmd$xypUZX?tFgT}zmrwsZr0a(*&5l;#^6C#pU0X0JkM9y(zwaG`4*e}x5@b1z%MoBY@iBU3%MpLYmOtMM5PswbjWX4i5 zdnlD)+@oarQZoK~*TG6oj<)8a5CPsQbm=WXH zO_m;0Cu0USVhd#V`5lt;*_4n@QhhK6DssP}BvBFm_#IVH71h)6Py@B_2fCsgva?x| z>#a%co{_!SfQ+outqv^*ZP6YVa1{rr?n9W}ilbY2 z)S4iMe;f9eFo;?ng7F{!)9#9 zYrH`kjx2P;V?0CiQEV}z+24E^XUCCQZmWwY*4U2|9ytBJGmkSYgjBnB-qcZW)1hTlBjT$K_G+e|Z^iIW& z9P)b;iRg>nki}sxto7kQPdb(X=!zLwirXlfo_%rrf!b(^ztdADQy7qCX%Y0rE?6=V zddLBPRK_~w$xNA`502ppT(aoP-+?@j%St5SF(Qy58|k7ECSWys=FpeZJ#&(FE*tUA zQYk@ha*fJpkG;Q8i%3&|12@QuCrDn9_6S*~_k%3gbBj`x3S`-S1JZ`3AyoxFk3%?u zWEEK^pbSMl36E{n*`35<8ch6}90UD>1wKr*Su(*LevlPLDaguV9O~4MTxq0W5h*JU z75SSHG3bn57z7(uVht`K1plIIbKaZ7!$KUxd3-^E7920aIBdlZgyI2Yjnoy=DCa@e zOz$w`FX9}smI}e(u9N^|4fPnUyAke?wbOgF?oK=ELH!r*NltMUw^6w-rGWkY_5GI5 zv}8GC9e_osJ(%f->iaITW>X;zdo|9Eq{v5+A=Y*tqbVf}z__uz4_N~qgRBL;Cdr!6 zM)6N(rMuzwaM30cLC!y%l; zC49tZxX$A{Yzrtxm=+Qg_zI6j6#rrZ5pxlQflG*B>8uR7Jgua?Kls&@DA3ktkDpTPl&gTwHVT1KW^gSb|M@N z11Tj`*uk0&E3qF35e(U&xDVN=n1w@ligbHeaH9)`?Vde2)RZzG(r;$z*4+M(xWV>Ajg?2pb{GgeIc7q9w#^^jI^kVlXwHSlT44Y z(&eGtDO;Z9&e(FZ?%Q~e45ug+w1nI}cnRbui2`R>3F9ve!3yleJ-kDKa~$q~inTb6 zD(CfWxq=sHx|oRlu(i3!@*b;k7IH&6_e&HLN}&Pd=5ren0{M9&K`=#+s%VMPn1us4 ziPw;O$>qMxf(dfZxY;<1FeD41v{7Gv!sx}o1RR2FY0A$RwXX6(w1(VHDFT(Qk!$S0 zQ+z_s>ufAyHa6ipGTxvXFc-4b`UJn<;>ZzX3pN~QLs_39>22!2@NFi*-;iytvUgZ= zVFp6*9bR`SLNr7uUg7OM)_nJA9VmpIAw9qSiS`(PftU(Y7}H=8PN2~X>J!yoQle=7ieqHBfbaM{ zoF<2;TM>;NTa#~oz8Nuy*N0#VreQf&BHmk;7jTCsQb9I3vclK^-IUilQC*wYx>hZn z*P2L%5(T!&XB}o%gYsHu%8MRsnij}w?HTwbzx7hGc;ERKc%i&?tJyZk%y%%4uAs2A zf3tY4QA!G^7ggNRY??RFY?5m~GW#he>1sQoQ#_Nmr^O^4gw*%7nAB<()A(jwyEVva zDw80-sc5eFrqWH_OwwV~&N2y2&8sFfNsnYneBDjbM^i7Whv}26hlzWT{${$HJ+Z0a z|5Mw!M@LcLQT*;^^8-Ny74ZNw7{x1_S&cc~yO4QZRK`3O*f^;=}IJ6lg`M*q%QW zl1L@VYn@8ckQeL1&Kwtx&UL{RoQ~9o(h-!Kj-`*MqnYrT_n1C91N-_tf}TMmAh#J_ zD;$Bp7L3Fa=P1Z?P-gl@;j#PN_^ewdB%i0aeCB%xN^^AWW-L!p{bM6Xz}3BAs$o? z^l)FygN4Z+e4OS%f0qaA>$KjPDtYKfHZR@@@nUTcFC<>*jK>Q}0g|X9NiZzzF$0@HFTAmNy^Lo4yr z5bnk>ii-(?xEx%KvInZMKC>D}rq>`kZXSkI&%>lCwU9t>x#m_f@rLIu!0U1K*pgBY z2_@6q^=O#02oj0(h1-W4K}*26G40Dt71gQ6y9(QCRzboUKg-juWvaMb$sl{?iFN4R zemz!4ynq#n8z5ng@=V<5{u(4F)zM`ma-Ix!*`<9vl9=_*a?YdtskxW_+Itw z!l?o8;#BZ%TzBn;gqwYswg;(kdl4PJ4|&6z@WHeu?$E*Rl`dF9io7*+4P;;a^BQFICnfVcp4*wY8i++cRA;%%l>6Sz&XTK9T8+sDWnJ1BueG+fF zKY>IN-3b+SiDp~TU($YW2%}HP2(e~%?R>nEh+Wv?O`pHSZ$M#C?UoF|=3Ws8TzA zjn>?+(Vii)^+Y19rj=cS+&sH7i<^@VH{*`~RY+!4<+Sh7ul5>F_^$DG(;pC9{sSaA z+8uEn-MZXF$^AEREAkdHM%}_Eqi;d-v8+$tLZ{9@;y~A*{NI(gzvN|rUz_+T-Llx? zKdvCh7UX5&`*!*1NPVO=G*Ib3x3Q}^a*Wz<4YAsSgMw`;$ZFHhWvgUMg%*~h!XIv~ zTD~GMBk7Lp&slQsBNhueWJA!JeOzt<$8PeEt>@S#X$fC_n)7m$+tSr(4-DV#9_O#q zl7I3U(P`TCT(!5OjPIaV@(H5jR7=x%HP;eTvhu<|;?G)wSQSg8FN>GHG$Du=_iwfA zDQ~~#f9b3%Z$EKEf%>3_v{z;!?U%l^M*7^1)BaSTvaJ`wwZUHXNY@v``LBsSaUsvT z$VBlL?YSb=)i;9WVjknJMmef56bXFKKqcd)iZL7WP>8`SmtijJYdBRQ>!hZNYb;(WBSA{F_cB}M$dm!#Dfa?6C> zUduwY(%MNM7*?b*L(&lGU*&fGk+E{3+P?<>ofHA>ez9nZ)qjg@EsS%p`{IE(Cmk+e~8kZby`VBk#DoM9z50OWe03 z;Qq^Il9V=*fcu-wB!>HTUWhGAd%;X%xNp}#_p8k$hWmE?W53EwVz_VD-ET0H81CD3 z_ZOK-4EOE2`?Y2g!+pE%eubIDaNnW3Kj-d}GA1l-RvlNjzhboZy2 zNeuTLy89E%B!>GA-TiDciQ&FOci(L$G2D0P?q`@u4EG(n`wyE*4EG(n`$=XJ!+odj ze!|@)Np0MB>h8yzNeuU$y8C_2B!>G=-Ti1YiQ&FecfXsN#BkrKyB}sIG2D0R?sqVg z816fD_k;bC9(VdJW@;&Sp8wTUt*!*yoWWHiYlW5`&NO>#&s8Al!? zq=HnEDpE~qh-`#f_UDs2vVbfk^<)wGIq?Pgcp#63C1fdSAj`;d@)TJ?R+3fZ zY4Qv540)D3M^=+HfXra>&ui1{x?P3JD>mn delta 63790 zcmcfK2S60Z-}wLCJp~&oBB!V~erJUSd}i6fCHSCf2j}e(Ks4dvB=NP_e|` zqGB{+H+De98jSz`IZtreqcjhy*v$N&MnCpec%y*qrzL32nNwrNp ziGMjI>3gPSCjb8S?VBX2cURaKif~+Szet{^WN6t%%A7%xKIJ;9%`IlV=xheXWw$E9zxkyz$DN>_{rFsa1kL%y&v$RzjnLYC9@5JkolKQmq`e!Nq zz3ppm{Uhy}T#`*m`eL2W_SKiqJxWVbs3J-0%SzG@cFFVg7$QlV`TRv?$t=CfC`r-Y z+VcMK^=?f`y2Jvu){~?J0<@}uBqfsML8v6L9O)6S;@^MewK(%-`$dxWk?{ENtdd0L zBztn?Y?+(EDT`6oWes`jV%}auk}9)CkpuB>S;LgCBBAX+BXq{AQ8Hs5@&0#8Qh;=Y^WaQ6yFG67Zue=%-qBvVtWhm-pYd>qRn` zn^zA?TbWl;@#5cD=8Na`)o|^tRIwFpK9l~Q`ApKFf#jopW04P$-k49HTat_*Oyv89 zY!pUGjaMU@#(S+YOBPLjt1rlSZ&afF5bC_7oD{-b)r>h(zZwNe{dw|xO9A^89!9>C zKTf&gw4YP#n*W$jv5mIMCP@=Yg#Vc7t(?WTLQ}tC6+9}t`-V5n@*-nqFZU`{Jbb;Y zxLc~_ERrMXom=NXH#xT@$~kY+93GabIU6R;;gQZ9o|bPpOD4_lX{q2?DCu1lOKZnc zIgRC4(NlX_9ysMmn#Ieq(a|H5F^graW8tK)ye*k>c_gjd+q&*I`IB?!V+qXVnVh&z zuH?kNmb1B%GvaHh?Uekks>Ru zdadf!ck9+>Ku=>XOD(6QRe8Bvb~zO>a^Yo}X7iQDyxbLx@_SjM=WcN?oKyraPfO?A zK1s89>V-@>OBKuU+@49ZSfiM77B5S2XZPeRB<6N=G_vX~3glVQJ+sB!J5Sz!D37=0 zYwqL%`B)w}Cq>K4C&hQZmWnP#jo5klTDmwVr>kl)yOc=!uBz>K-jyxaT*??Z^tNnq zaWiK0cDIzvWBYEaOVT2}JuJiXB(08jw%>VL&gbzp%IR%{PHSFH*3x@d(M#_k${(MY z+tMO$?xYk(BvUj72h}(md|z&f{S@kiU$PQy*&+^$>kPE^7>ZJVj2u*d*L7_X~I=&1(&~Hg6td zUM=2YUXRSJo7ZV!nOz`XQUYtdQ!d=gSh%NURYCWp%z9ZfTSXM8hOu<5EsLdB$y~pA zt2V9bG;7_cP5MpR$67reTJ8Q|EJ3RuuZo_TTMY>g4hrt=78)=()NOFjkf4E~|F9q* zYgSS;6CYno%fiX=_qERB9X_$Ji(*+;WS<;tX;bu^WmZ(C@QTGkGFsM@u4AcGri+8lZv6-N2lR6b3LYF9GNfl{(12jK!2x7v$iRUELP8zfo4EZvAjIEo zK!}@%b<#g%NPjnb@vrU=t=uh+<(;bz^a}|UZ(F$AH~PM*o0q4jTU|d=wHOlIGte#R z+sfLvRVw?qwFn6c4yEjt&E=a|K9~2jw5U*`wBKO2!J&Sk0jw?9&BM1smC7Df-1_?k z4_P{)4H+B|{=8uwd)Xnp zYzt4>@jEyFfT3<9-FgM}3#jZ?)4?IUWosAN64>Tkc*AykWRrt~!=FJhu$OFh zXw=IsG%&!ee?b2MA;a7T2MrH!3mWX!BS5r+kO2Q7Jp=s9yZHsP+T^+PZ>gT(o?3Kz z4hRnQqr%*R2Lx9b9uP9X&EGH7ue_FIa8Umt{rp0yF2BKj2fOuRg4ufoh4lBMZVLso zDn1Kv8yGU6XF!0zSZ(S40fPto^$u`rWhwH(+1IU8vo5vDRCIIufrZj8w8bW`T(k<& zNCxyW3PJw+4Hz66-n(yYyKLIrApyO~M2Mx9Zvo4dK|N)+aL^FFDK>r^7sF@(SV6dCzL4l(4R)vPY zUiD|j@SN~Y=s^Qd#3Wak1*Nc|g1 z8GZQA^{vo!mb zFSBies-|0Adt0`Cn^0i@nRtpCIV5R5KA?S0Njikgj*`?FoA3p1Re7#lQoXxMc2En4 z$qw>0)h)kLQZ1ifaaDJ0<%84e{q1r-_0{&2(`toNCfB4V2g~vd4r*Olc2Nh*a?O$% zDoMTlhmGQZD_bQg$Aq5?IZl}RpewK4dF|~VS?wVQLe168id?wuK(aarGcgOZF$WgR z$0_`Z(|CY~c!bAzfc8^LloJ)=Fc3n5Lw4eWA#|JCH}cgeMG=he3m)s zU1{6enUhs6w9sC*>-Z&24M~+7=apEToxWfxr%lyp-%0uO^`!osG$~p@cYC=^ih9hg zZZyf+N{ME}yf!VTn38F%sm~}qD@KO3HfB!M#tPaI0()daR%And6hJ}vz!z0f4b|}- zM2o43TIht%=z^~3hVBT#V8lJVb@JBHy+=3hJ*p1KAeZwzW?_PJ-6B-qik1m zkiIY@5F%Lrow~h}M=oMc+J631l@-=vFHS|p_ql)n1i{P2Mff8xBv^W z8{w$8ho`;Rj{~@l8;C|c-rz0XAp!3pw&sucgxqY=&gw8bxm?Wv4v7C>H1%hkj7qLYG z^!_Is#zVdFrPJ3*e{<$(VwvScA1#hxOQijS#!U&Di27*-NLHIOC{}&MCX9*R#l_ z%?&bZ;ZG4(y<*OB3M>7J(JQ2>{(U+ruh{=nN~21Xb}P4pHdpNphv8ZK3|F@B*pjtXu~?Gx4LvUtSPckPSmE~42{N=v`PQJ-lDzqRoiB&aD5`s06pQ40GKfbV=*2RFcG5tOvV(aN_3D+ ztiyV2z-Da0ah$+O+{HcIR|9g%#cCE~Ktj=N*ZR1s8B{O~j1l38n8sWwu*=bAzb{I~kas(+tO{mi19PCunlJxQBq+muIKj8*hz z7KNXRX;_a9*oaNojvd&K12~B5xPfT=j$615vFp5p7<|ST z{Dnk(gSenu1dWRFR17sx6SYtW-=i+X{Vdp$X+xPzKdO4j zL|*tlMacA;9I1bk&Y(e0`Hl9NI%S$*=i_iXd1FWsZKJ0)i@qcMEE*M`c4wE=6wWi*vK!g}5G(ZBh} zx_Qk)(oZ>1|0bQ3X@dRVI#|%##5vb`00(gh zkvM{*dAJEd3_GK69CvXK_wfLa@dP3av4}%vLY4(t;ehPO0WoxSL@rcBC3RN;xmfYg zUR`?e#eeVQsXneV|G{WCbrke^>#BeAFVWZI_<*r<>LsKTz4SLNIggr7Pxdco67{_K z>+4J>Z&L9}1g0|F;Q>$7#Sf^5Zs-m_^n^dm0X&I=g5C(k1Wd#vOvV&U#Ud=m670cV z?8AN>z(I%uix)S~hM(QIc;n>78yDXUzj=1_*+Ai&H zJ5SO|pU0-mVpvx%ZMEymyusm1s%o)WWO^gL|9CpnEt~Dw&yxCdd~UOz(f0b9Z8B<% zU2HPoCZcp0k+_B1_yc!v5BKpApYRz@RC#VVBM9Zm2fnxZ*cpe4jvl-6j2ff$ruoDnYizuI4|EA~&}FRg#`FX7iKa7)p&OGvYI z{nJqJf4IM@sIN1fyh+6e5t$GSMkt100w!V-Rv`?lu@>vlYdufm1l2}t!WL}B8zkU8 zKA{Rbje2;61mvSfa77`MLdyNr$Y1*R==uwf4qbm~)wNky^?pS;)KlM|tSp`;Y&PBb z|K>}#44LYM6dZRCb zu?!*#2XPy*cn=e$6%i=~5fvX)Lmjk44~R$|hKNuWf>IaTaR`TT1y>83*$pu98Q);% zMvsqzD1p`(grOLQshEj{c#1@1p!>~=f~W}59s8m^I$v{`%m_gP1olZ(hgfk6SUfn7S2nBj(0y z?eX0D8gupijrZq{P#wla3~YmlZgOPlR0&Q?l%qVNd=((dSPQQxpD5!O ze6yDIqv}^p$)^UN;p}vcQZ%R<4|vM_NOov`RkHc_zkj3ph0$o^xpP8qw4b?eLQQ(I z)cES5#`KeOs!zPQvJ}@s$*4~9lyeuM1!pNKWvy?|eG?)AdXv7Qbe(WT(VO&nPr2at zTKJrd+RIK2y5c(o*_1-+{?Bi?)p&xss-~Phn^r{&*dqK3l!(|_MJ^$mGl(`JmMWH5 z13#fXe#S4@gw2RUJl^0d{zje>>=cm?P0ytj}F-HNK8a4&i(e!Tcp9_1FrfwCdJe&Z6e5C1+E!_{b0QNEwU>c3>I)5RnX4 zD^;VBRIDb4oAQ)OmC{Z1t}dT*HX=TZ`6oa`-Zq^>>GabXHME8K_d(Q@k@rtp-usBW zJE`YubM8pXys1p8Ma8*fu&rQGxuRl?)z>E5-%_WsX4_~0uFPK=q9LTS`t0hl`f`5L z`?4w4+(3?Zwrx2bNGw`M@`@LUbS|0ZikQDCmm+a3nJhGt&y_LS(?(LZwl}VD@Cq8_V-dPs=AS&`!$Cy5VY9z>rz6?62!gYBmtoZECN=D`a6DaOKA zF|!lQvmeY(n4R!o`h#fO9!2ZPclYzvUeyL8#aZn@M;`}z?;>u#lCf1Ke=2(Tq)#*J zb9rSNODZwHz6VJ9K8yZ+i^dtGtP*cTV&14-N6B8<#Qb7EB0f}?H zpZ2=k?~(QzQu-&Uil}GX`Ve&?>fy8MIGVbz)=VzN);vCMrs|T@+R~Csak)`1Srm1g zXkjrGRQg44^}8-?)K!|x=W}IDU5R7VLM>QO*%tC2rri~-?Wb}}`ARvXibeH`svT<^ z!4WCm&?lc)w>FluWg0D3JFAjyJM?WWpK&zWhG-X}NsLw zmmE_!ozZHcBV@Jn9@_i%3yO=S_Sebk?ap%POxhCs-IJG)TdmzeKIU#TxCGWH8k=Zb zMx*+J={xW(Lx&818Wy?g!y0OiW(~{svES?7p1TOkzF;cpN$#!|dcm%5$toqAsbH(Q z>W!{)1w99?Jd$&eCztq@Q8qb;B-qJ0r7`u@PTk~1>g$$ru0mPG>O^}Ug{4@AW4Mkl zYRi*!)!K&r<3{rG^@2%s+Ktp56BNg6m6~3()~|+=(k5$-&?bwNfIE2H9#IHDw`*?s@#33Ge%d=lbHB?78e17}q!@Cb}qf+$UXr`Hr z=D$C0pZoRhuXhjLzPs=C-7V1%qkqLiKHhM9!?N3Rd8jpd%G1^RJ>{&qwP3P6MzpW3 zZFQnoP{+Et!hN*GZAqpr)Hlb7f=gMp<&brk)yJS)LJ97uc9@9 zifYbHioIGZNVZpN_m+=kHv;ELS?Z@seoAjWPyZpQ5$pCO?M2cbmD}pGK)JB#v{$Ni zMP)atK!o4IynW=)rZDd`vl%tAo7sM4w$T)(Y(F{1G{Ps%yhg2v8i~_#eqF5IMQesy zncEUE#ttdUJb*GAb(e*@%3EHnC0_k|pq$y{RW(I|L2^`fqkbzeZ#CO_b5u(+uh9nD zXzjpexzAJ1JA~zmcG4ZgFrDRU!5d2OPE=2^T;??!^A2L(5NnzdS~|viydJ?(u$z^h z!Bl|_1Nl)JWl$E4&=`|21G}&v2XP38aRjGv6JL?JA{$ZGikyu>QIthhRKsY@#y&*C zpZgmE&W^yY;uPtBpp?>uecor=HE-sO~1r_9H4$LzVF(icl-x;UPp#y}($t z<^8eKc*I_x|V-q&xln1>4a#!I5A=Y^@YQ;Mwz`9plHBBz1?-~pC zA?v)YBc8bJezkojb%z&6g0a(NCsT0U6l2*v=+#{w+GQtU=J_TVt0aSLBO`%sTeWFWSgkrR#(vCfN{`10W` zkJt~-5c`cz)b^?AfcXRVJY=DNf5p}mqia;EH| z9-Jw=oAZfo!aDq{+*secU1-ap5SyhKTN4@F&cE+DiJqlJ)BbABZg$pG6e7poXbX|+APk4dxyb1n7&*Po^lONmWwYk434{9|(F)sq zwKI(oqvy!uWV6V3UKB)elt39YKobna0;pJlmDq{hIF1vLS!yHe8rt#N3A3PLIo4qd zwqZM>@h3j}vI%6YO6x;5IKl~$wWw9x!d?7EE4hv}b*NFS!+MmfOKsyEF2Mc=mV=x~ zh)sxnrakUNiNSQCeC~rJveuMb$dByI!lD!m8!R>y~&mONT!Kl2( zK{~&fh4O6m%0jt{8dF?prfOgCl#@SYkXi2(?=O(udf5>vBWj(Q?t*K$j*|80-QWXX z{DnlctIx3?dLsyZP^tlA4QxjQUg8x@4cSy0sud41k~6Z@NzdW(RrK4dRJprZR99~6 z3dPFmqp@{GVg=h+kg?zw)`jZ}rn*^y19HF-x!?pB6hU!RLS=ZO3cTTinrPOLHu#W< z$9MvlMvUlD5~a`&!5E02@e9Ua3f5v5e#3LTz)L8NDK*NW2EIolG{uKF{qgeYBObRd zpSfH%il;M|qj)@xOnMxM+_rYx+NY7rBM(F#Sa3jm!4}ncvAowT*)~jyY|~7wEwEY! zN@5hVIny(65|1ECDoQi}Q?U*r*RLRxLy`Nk5Vi7=ZupROTb*?KvWm~>Pc8Hj> zL>?%cMZr429|72ctq`;Cz-9b~*Z6`&WNbpaMYSIp0pfc!MtAt57y2L=AsCE3xQ=+3 znsN_3sy3wtt20p#-QkBI^uc6IK{)QCY%|(8x?(&gVk36rHtyjKKEtlLeoE(4!l#!H zUVcir`J487?h}twpQ5zK{;2KyH-zO?qY|Plvn|s#(=ADzhoLBv{OdhIkUM?4M za&itVQA?bR7tb8NiPJCci)9zHN8b&sQ2$)Kt_$>(yhQY35r@AZqGnITd{Gq}u}Mr5 z4G~2Vy(V~rx2Q&eMPNigdO!qXDt6&ZQXZLjughxUmY zwvs+{8dsR6afPW%V+K~)#5Jc=ikPiy(yZDy+R23EDJ^E&XWF7&M6q^5)Nwg{!C%No zJ&L;Yf;T2%GWKF0?v~)`9`54-9^w%m<1OByatoUt*62+cZHf+8dt!IW>7O>d9U-n! zj9JT5|L&ZoNq$RDTu1x>)It0J)RkX$T8F1C))DPlVRBP*9+A(ya77`MLlubpF2o*) zY>KRTwBURwdLj`05sXoojG35^=l@Jk$!U>4TJj5f|2E~g)iJ$~y0BTXN z+GuPonbo+!q*mb}TNE~K6i-7&4GD7`lEdhAr6zsF4pMd9A{SB{Zjt+_ zcecnyMJJtA-MfY12o0rlH>sis#43nDoQ5duD~Q4x1)N2BX5%jI;V;;hu`p#4Wh{cC zD2C$rp!zMP&vYnf^b}pZsj}s+^c3Q8650UqKnB%(w+#zsi719_{~JjkUv zMtDQ?KCqt`#nZaFrVC`(>`}Ix?|$)1_ z>6dEty+Ch&?Gvp5i>XW*xU6f+T3?|-Cw~)JbsmjKw2-NohFO?{xtIqFL}^~)9TM;b zMyZxiGU+D<6zkbpZNNr^!>&C;bvPp*3ZV$fp#{33JBDH^reP&^VK?%3BL0h-7Bwkq zY}5!$N_k9eJ$7b@L6;a`>6F$b&gf{-F7~L6cFA?=79)2VedEzxa^Vilsf9B2=EAbX z=i)fLvZ(p$u*OLWA~aJVPOFJ9v`6Ytd{o^JiWVfeSI&jkcmwR2;> z5K~!*{U~wKrP&WE*AJ?zg~R1jYU3SpiCo!I$8@|}Xb%f5yGMRtDpt?-%uc~@T2kA+ z@|K!L>@Sn4(Ztw{JrMD?>&#dRnY$1;6zEDfW7|qch$~qo)qM@T*+;@$>|LO9{qX!@F`*iZ?<1Gh2tvvW? zDUX#4mx|k39BEeHJIxi%iiRhq#N~~AYU2a)B=y%(a*pqfW-CqtNz7B2tLi?Yo~oiH zQkIu)i7bgCSA;0G_2!i2&!{-@BtKB+K4TS0A4IG>C})>BBzDyA9XWAGc2qCjk?quH z`#2wSxRmUeD~ni?2%rd_2--;f5~tQCuJlo|aJg@>cGp7Q?vBkRyXvVgc0Q`VK2nw) zQ^(tS)v)Xl`KD=q1KSo<>#Vpsb5uU&xPaB!)=QeJlZzUrO&CQ&+e#FbrX|d$j_yo5 zzT&TBPtLOlyltMxiWbc=uI-f*Ek9zhsp~&Ye%d!qoA8u;tenz=$oPo{m~i>~N~K+MHFEXN8Qz(E{BB+lS0;t-EF81Ki} z8MCnwn{fv*NO<+M%%k70oj-l}+Udi4c5K?Y5E6#oHEsrov_>v}Ua}Z~9y}H&4FqQ|!3dB-l8tQ(UAF zb>yObZ(O7hn}e8Nyo&k6xl-|-lu1jnzE4X3F`#bJMGn%L1H}gtv+Ii&@AMU0r;-wi z?`>Bs-isBASAB*060GmJ1xQR8DU4fy3W<6b)nu)r0{@Lhkn6`3jo>_2UQ$-Fn!T0$ zIIqaKZCf5K+VZQkX^lo98pOfw|C09CrYY8Yne`ftM>LxFe@nZnS?aVEj0X0Ww4yOR z!nz(DnBfyXBWq8NfT3NDVgDws@lO|*WV+vxH<*SuPqEM#t_~Uts!igCXo1$~j2`HR z0T_kJSPR<~4?LJvO4cKWBYV1C7xP%`pm-V8MKUMoOERIE;n?tQc)!-;2E% zUZZDkGJtj1hP|*4#@|i2`|0lWi`VZa-aVUmibqsrROH^sy*ncl&u%>{SRWh1HcD#cd)zWL zsY;02^`88ly8516LcM%XE?{buV~+awuX2%YwM2~=!4N@c0c!xX^0uSQc9d0=Ta-B# zJt(IryC`=&GEyEp7-fIQbOQPX=?99li_;fe3@IU)Ypkcn_TgNTxdP%DT?bV4*l zMD9XF1`~96!xtUV8C?;Cz8Hkjn2L=!f}=Q&n@Ifh`g!8>htXFr8vm6|nzBxuJ$3eC z^z*2*;t_dZ@2xVBZ5jTuFC^|ju%{6XGk;?zvicsGNZ^CL-YYqT`8i(1ug{bl)| zNOHeziX@*&Vq5Wbm|ax9?ON`%OOwR5eY9tG(MD{O{Qgs#B(}|H0JHy+D#`WsX_AOp zjMg@WY0=_r*K(ypnk2T3atX8V*OGA4IK@|#ZKewy(o6CaU?jG=7UXpAQK5iKzSBQXl2@eR@t&NQJ2 zilQ1qFc`xy3G;CsF_4CGVtXhXdL1UdM{Bf$9|94CAsB&?7>h}mi$z$B4cLOjPp_VG z=%4uM{*5aaq9PAmU<=*0c7^s>pgqrCJAU|hru5gGE`f=Cxl+yv+0e!Gs#Sezi#PgZ zG0w`Uvz-(-mA?aAy#QP5s=BW^x91$#vRDG!wD?1p)@@oHlUeaqk7ZVhmSHyWwb;1D z$%4xF37-+pXG|9)L?VRAZNWjUl}%Y@y3sX7EjlRi&bFa$O&Sqy<9_+H*1ny zIh5EksVhTNgs6Z>96@*DBVtPXu~R(N&N-EdrW@UjB{(XvJ;b*ns%P;9RevV(7>Y<7 z!5zflBffD`L}H9m1V!->kKi$!Jvs(r4?dz6huG#3>fBJJt~k?NO4ZIe_g~6D(n0)P zDedgDgR}C^Eb4KqH5XTSy^1?{gvSs$lUch02jqq`L~d)N4w|Ah+Q1K@1V3X6reZGU z;SfZrqHq#tex@OwWx^=tTc+PZ6gLsgC~|Wg!&zL#@Aw-=I821V4%zVK&67J%-lTZG z_U7Wri(fAC*`X&pp1j$zVavs^rC}Gt7KF_X8-HlL9WmvfdMS@mP`y=E$);9tQu=d~ zI!&>l8ttT%QE#+XT+E`~in}~K#A+On9XVjsMq8%4A{0X*Mw4btz(mZzOw7h6MB{ge z8Z=R3nUEbhkO%ot7M0;SyppI+#=BUEkFg&g-if{vedXk#le;#CF|{=M&VoA %s z;!Xg^Wa_qjN=vm_KFaghMcHT1-B*r2F_L;-6mv-)rI^`GEN2N;U?cY901n|WB5?#q zaSSJL8qv6kKX3>4@Eoy-gEW#G6ySt1C=XBgpfQ>tXk>kc%1rdfK#agdJp1k0Z^sVq zIkso}vF#hTALKEA{P57=;q%9b28NF3xku=Ht-`EN>hZkFVRd^xrG*+?Sg}(lYxFBf^9xJ@qRAm zVKG)?1CET6%1TF>5Sio}!imTeJVmU(y?%Mb?e*fnskcu=jE@)<6wx!Hi#oTEl3R@| zpnOzI=Htg!dkQK=%~BDO_9WIaKHZ4T*or;aj{}IrbG*Pyyuxe5A`Xf8iocO{90!JI zgvMxw0QAO_%MsQ`*yOPzhV%=F7*$9aFLxDr5X(-zT(PWP*0e#q_Q6`L!#gD4yYVz9 z%*Gu2iKlpuS9m>M9aEg&+$JAti>q=G+uan7Y(=I5Ar>5rF_?@Qm;+;FhnPNrv$zbg z;?J;S1z8|6Q5zy7p%9tbhEp&y^o(hdsTX*O*W;zSQY;fCCa}ezDr%xF+93#iV8%RH zum`7c1~0+S5sw#D7AQNXsvU|c6O>zi>b+u0kzOoZTeh(*u?&&+g*9EFi5zg@2h_tX z%*GRZKZye>48jZypUlPz&neudfD5>Y%Ttn197J%sV32J7%HqF4VliSB9`J;*nwCuW zfLPTW?88Bv!gbujV-#hz?(jezh%B{1TXaB2h%9zPFa}`YBGaBMYbc6roi0G0^S=sE*8xf3&n2K4LjSbj{P1u9exQgEp zgL`;~kH|&fTwnzAJkv%%FKIz#G{fsd#G>d_t|+6#RLM!|z(hy%fIoUoRp*sf?kTMn zsDsNWGy7a7f%rT?`;Kjn*FcQLIAoZ{NE7R^0XLCjIw8hbMB)fsX0Sto7rapyKVTcS zW6I3rnzy+-#<(Z3j<`I`lN*B&?GiXs$#*PPQ4hN-dDZB0N*S|jFLGt%vadC#(|Mf( z6%p8v3%H1DxQ}Oeju&_jiISM$iejjb2AGT~Sd3*5rQU`eI5drOE>TPz$7x)E2uTd? z;WggiEku}{kq1Rl2IU|^*8q*s2A$9aBAk;k6$`Kw%diO|#7FU^-kaBd#@vj#dj9Hh z9_O!~KYTnUJmxBo^D!G%Y~aK5$Mx4V&*8_LaSkp)i3gF+|?4|t*`+MyG=!w-`%8B;J7)369j5Q8W9jEu7wpTQBn zsDF9yBV3 zP~vz+3>z&X}Vy^q53o@x5TubO8ixOQmekyiMpf`W3zje6z3NDr_9r> zXe}*O4WoE|WVr`2%%(^viBc$s@@R@?7>*H`fH||%-4fHgi75GIqwdwjK&Bf1%d^^F zcWFQCQ*T#SN|}CrI;eAd?e~%kwZNLrjB--Ly30-u+AnJvGW7M&F;-Edy35tn zjMbHsIZU?Yh@CCY99~aKl~tr-VAR+D@mTf2M#WpLRfnJUm93>5HJe01FX0-l<366^ zHDVEmw|Iv{WSYa_267-LT#yGvP!v_s4DHbY9T9+D7=ZDZifNcWhuWIK#9S=EW&DO) zxQAzWh1_$w*AcGBkK!nSGN^zM%)l28;l8|i{V?X{B_1b^e0j6~&6nM;A8w=PTd~3N z`pf>L$L<;9_kS60|3yC@P-{0(iq_(s0g+~_5_bkBod-;+Gx4dh6(>z|Qd&%NHX@69 zw5pP)86Sv+@IlhzLb(kn?c&6z#^REuNiC+6QmeCS&?E1zp%l#FVOt$sZ_?_RnYEUY zT*oKJCD*ZBUu{rF*{c5GBRk|4O-?e|)>{V_!p{j!e3QHo?NaF4@z#aZQ=+olR^v45 zdMR^q60L2Go{;`}eMETJtx}ECA*wrdHBPry-ws|M!E+wFKJgo~d}_0<94U=%!JfbK zW1gmqDc(+1x=ysNuB8%X7Ii-p7A(VZgh4EDCk`PJM{pCr;}&k?E*?Ux_ye-A@`m^k z9ncXy(HBE863ej)8?k#H=OV(H*n_>;hbWxIdwhn;LXV8XD29?K3wQXS8fu_6dZ9PQ zV*=)49#$a?UlLyO`110Lc;WFRp)_w3p5UJLv!ZD2WAQb!e!2Maz{Ugf^@m!rwX(q^ z_9yg4rFu8)Ra9$%)kMHWIXl59MpafNvL&)2vLUh{R(}c6xQTllQ{PAX1;h$};whft zGb%0QJjB9?u5FanvRNcviw(F4v7kS27fD0js9%yQ`G)HDPDHm2ohL=U%s?firO(i zs5SJlwzE)6w^l;Tl80?jKe1{N*a`%;q83~RD!kUlC``m89Ko+pRL*Z9JKRtjWl8-VGAN~0Fiivw@5%DoEEVgKwUIIPxQt`d`XCZ9{(i%?zQ;y zC*zOt2;an0Sp3O&?z?4bdir7-8wj^icc^BQ)Qb7GV%Y+=>LX_I~a&-L#KO<=P)i zNcD7~vyxrC+g{0H@|~pZcHPwi9hA%kJnbJ99aDd$z41p9lK)V`&irbfvC5C?%npnO zMpjoUs~0*bc}>el$Xd5qMPyydCf5B2-f4Lta*OGE&>4Nu7sIgxe=Jt(cyl9f{}2v{ zYIJ7s)k543d}WT3MIU{=>a1i|94Cuzu~LcIQl{w2Y(C#a7A3pnEM|~%O5$%hNOmHN z7Mm=(EEF?fUbuqR`VD1geShx#xI zGKlFR7zU#tYnc86&+r17meA=UKMJA{%Az@1q7{C|FH0CL3}a$4reZo&tj2m=!UH_P zQ@o3N$$xS0;_hCHJAdLZlP}|TU_;!hxDDzC?cK~VaXSXbrD$@z$?F`b$e$Pph-zxy zI3s_dD5KQ1vD&;RrwToLD?=(WNIzv)#yW?%H7Y1)i1i)&Zr)$czKQqZnfL0I-i!wi z^;9yq;DUoz_pBn+E_<3)WR%K^*ob(DqRzmt_!FW?ua`0^!v}nXvP?f!-#vu(Anu>$ zHfd{f_`46y;kmUrluq3oL^BYrHAQpyy2RQXN*gU9e{?2Vfh1Z(f#^)er|GqiT|r6_ zvsSXKBBOD5gI8qI$n;mH=4lhqhY~(timar#u>auEWW|CoFOOj!51y@3npL^ zW?@K&6>RGG8N)FG(_q1TEI^)>MDAVOyT@^N;;zO08h0cvBJRlcBXMC&&*w2CE@JGc zVWS3((*8GJM#E5Z^;fPJrPtP*#omE==y*(I$vN@Fw*_48!aAJo$z4@~+Cpm`nQpe1omwh%^ z$zyg9wNw$6&=`RT#yE_}Z0x~4MBol$5Q~ragbb`P9}1! z0sRKjK`kDoe5aNeq%>4p58~8$;SqEpYX&Jk4s;=U+j&qbr=*_lr+EHAgAs2;|07=Y zcgg)vMyb?$@?)Dfkta8lga_)c7Jo9OfcPs1XO+cMwMJ3q9~*_SzY;qG(G#eCF>*s~ zpOv(&tH&nFrPXJBm0V_aUIamuzA(gE>!Sf$q7B-j13DrULogaBR(PVee9#lM=mEGOx%~ad9j!huTw(z4cymnV88B*xow;) z!7hPg1|LytPgb0>GNEmc@4UvV*C#7w)jPA5qNLpFs?T)ncQR87^){p+sT& zK@^~uIwgdkGFBg>sHQ>Fv>||(nsXxOWL(B7FPx1s8s!pY3RG*&V@y$ToU%a~I$czR zr!~cRQW&Kcr4=Ro0OMNo1ZA7@%Z#KH@y_B)QF3_=VMj$67nr9g;YzQWT0N_|rYf;! z5gsvP4irX7l!8c936-%4o3RC3u^l_G69;e%xA6y_;2ECd1#+!rw1?7&eevguhcBXk zJA2}{!+Q^JKfK}aQv1n6ClBp0w3+sY3ueq#LeyrX7`)w^tP~cJ&a2*;qzu!;-Ey+x zSxj=Z&6trXk%=gXOlTLviG2d2oi@{ynM$)+*5XcAVhb7BG_v=N6h`)Hu2l=oQ1+O9 zm~9=j+09hGm_^3j;ei^ciCSom7HEmK_ywyFhIQD4NZi706kNxNTYQhY2tY3cp$|r4 z45niSs;}1$8-6^?y$M3k^2v7odx`W zrTHQbu4n(kllVAM6MK;@}tI7Pe z(HvqKT_Kj?k6svw(HM_On2wzY-9V>=p)g}2reYd)VK>4Ng9ixQNPVKuMvfo*F);`u zFcQ-+9doe|%drafo9HHy53VSLpWufX_$+>@wO2F)>*I6m;|(sanN%_%1@dGhb4~v^Yt9Y zu26ExW)ZnrScA3Lgw5E8gSd@9a1W304W`YUJA^Y_PzGhu3~ezE(=Z*&a0JJ366cU} z3+d2si_}wU%*2mqgYM{!pJ9fIMTmsBuPOQQ`uUT)Pokgv_TqR`d2@$F6?2Mj2?&>44zS#gh7Z8JqU2Wr~MddO4S2x-M7pRWf>k z02)IX5xx~z3ENVN5{i->-7GdJ#saI95sGPnwYpcaEtNfLEnE}wE6ODDz8Hrg%5Vag zab=6ml>y`2zrT{WV4<_Ax?263l2i4%tn4r`@YjxO)#!CfS+iJzo|@}LOh3gl6yM5e zTa-j;ltU#{MrU+E5A?)fgklKBVLTRLF+Rt}uz{@Su9dM1Muqt8?XqjVU!yKHwa$~1 zuBy6TaZ-QqGj&p%I+>i+Wvi8@>bLbuezoWZrS!t5N@gv;+D~o@mQdCE>)AIwU#+;g z=DCt8r$)}KCkV7Zm#6*p#wPRVq_(eB92vQ`RaZ_?aupcdO3Lh-{FAQU{tfwLtT^p{ zb)ks8uZY)C6Q63K%B>wNWi-ky${e~?&3;(9tG?Q)!%mCM7bWw~aMLr@N-Hi<1+X^)-obZ-t(Svwlp+;4U(5qv^sKE+~s~ zsE+T@37rv)0hoo^ScA3Lg6+71tN0CfaSu;_;3@ld8a7-}5LNK<=Cv~s5U(#IbZa86 zt-N+-sXAd$rwN?~b)p^c|9ul%mO3_qqom(+m`bW+A{f7&+^*!z!B!{!=Mv)gSE35k zuzIEUPRZy&Xklc{<( zYX|KTC^lu$i>Rkp(}Rd{u2u@|Cw!tAXs3GgpY~lZSxWRX9%}ceN|9_@ub;Y&mU780 z0%jDz$aq5X1wr-4OUgVgTG?10{i5g|Ca(O4zBrH85;GWuHwvB3-=LlHpE|IPtF($x zW_?u)UFJ^YCfAf5)~?8iqljU-9ePU=EB=R;R4q(jlKnTe+70EHwU-fz%W4bYvM;Yy zQ4P(}0^Q*UGsa*BW+Du$u@&2J9XAk*I27K=0TaC8gW9NvPUws-?Rg49AB12!RIEZ6 z*5d^D#lf93iIJNOcbL|#ON{&!Hfuz{tPwo@bI;Sgo{2k;_tC4+$vB9eQ)#`=$+$r& zkfT&NGAjzM7dpL-xajKSz}-}iS)*?RNDoeW>9VXzFP#xcJ&5V0d#k6j?VgNi>yb_` z(S^0z%2eOv?#ZYUy*koMw0>QhL`J=dI_tDkOZ0Eu)0p+z669%W)jyP|>Usy2RL3ks zRPhXmsyvBP_!Xyd24`^&X*w(Z#APY*cP>k*`?B%(2VU^^l9i4d^oTmpgrCrawbf-a z7A+Pl7Igt}kauwc2_|GfM&v{-)J9$WfHr80cIXLz48w5D#XM}oc0}R`p5RY6p2V-~ z6sL$ixlB#?JIK}{XCaZr^VV#}TC@5-MRxUp zpLREv_V*Z)j}FDyM{dUfetGSbT{baV)%&6<8|jO_n0~CgQyb!#I(_G>PIokw$RlM+ zulxx%zmFHY1&`Y`aTuHewi)vM&;!Xp4Ge zEGnPrxOICnYCw;Ea%;_!v@1NX-rva89N+v&X^dLZYbZHQ@(3<`i#5;5iHxe$t1-Pq zOSf7ReP&lrL}@}=eN(otD84(rL_@YECo=1a{uJ#aDG>wk-CRP2H~i28AsCFMScdi3 zfZuQp&+r^h;p{X~0%cGZZO|6I&Q$LuqPe@%B+}}fYSpVcy+nP((@jHahIx%3iU+m~idM%&ceWqOIWMWjh&G+@zim+Vb1(d7MU5*ZC# zZ`kQ2@;i_wk+B6>TYfqRoYfDeNtAOR*LhJ6&G)6ZCg(%RiL5=3k*I7^LPm2;cR>*P zU>0U$88%`QF5(jYz*9U!wg_$-L~)crLo|XPdSDu+V@Gn;Rd4d0x$6m(tZwF z;exU#hbr(!2XsU)^hO|pF<^hhr5{Wla`xurMwCL&eR`pYvk8T@moSQ{7cad;XAdXG z&zi`HgI@mh60M0$lgJ2^9;EaVjXIJhkr7QjlIbP->1dinM#xtY(W4PsqJJBtxgSfj z1f!1h`uUGb$QqSq2}Z5zHToZy@FeXLjCLT}K!^SRaS2C{C+ER>By6;pPAoyRm~D8D z7kGtF_zZ1u$yxUHrv1v|6V}CaFdf&omdpc~B?Ln-48t)Bb1@GKuo+t*RjAbVlt4)Y*Wzga24Wn>V>iO_Jo@6Hk*N9Zgq1gUd|Rv#4fBQir9@k7Q}*J#}YO6D2Xu=d++`C{@j6B9`v5y_xb*wKYr-z z_R7xe&g|^m?%vF7N4=xw_l^E=t^%^Sx9=@d7AH%3zq!p2M^1;otbG5 z#@^j$w*TNk+u1?iS1vwFVzk(BE{c70zM8&y-3^>Ya6qheSZq~5&SLX9D+P~}FiEUA zp{DHn=sKqTfwUa!_AbxUb3}5Z$~JSJZ)mmpqpkMt*!#h!F{J08~H8IrK>k>044ZVwtoUKFx=B zF@zodB!=|OE}Oi|mt&}QBqN5j(klg}3%X(u24fbY5RJuHf`drLA)LfnoWpCpLG~TA zUqBU9MKgqA7=|Mfld%b#v9l`=3HTdVa0hphXD6i^710OZqc6r`B3|83IdU-VAuc8E z;Oca<)1Hr&=}7cpyZC7BC+dBo!}T+@dExrb+2u@FGPHPlnkBtaU*3ATk7ndtTFsH3 zLy|kmUyk9)r!l1Gr#T-p+Yh8fn9AVsUq4xg^xQY+{1;>R`Pe5hq;D_tw)$cWV~>9l zL;4mrZ{07((C)-1F{GCXb8+}$3_-tr5<_|+G8dpP#^8GLlNjDFcHi$b$MET;@ps$e z)~7L~7t|>f(xkK)KHZxoPSe)he=2PqI_b0M6fNXC{U)R7OHD7OTq4Guu0&D7^ovBp{*Mvuer(6re-3TO1pQv^;zWHuIR$SwOmR1Hrlo%eGxC(x|qA)$nb|!Kbxlf zOd@%yb^L})=53?&iyGvVm5~*Y1un!U?8l#Y3K>M$2Srg2_0bUnF&SHM6nF8^+@679 z?9+y0kCK6AZ^}TRriXVg8N$BLYU!C3llGA(*XuL>XkC%<7h^gmX6x8!J@)Bm8g0Ka z-&&RvgwAdI+)^Chz0Mfo-jrBZ$v;WbMo6-DU@!JzKmNe`$@Cxz*^w9Cct6Q4c-;XV zjXZQgZ}i6iNL~!WXhcHtWeR2>3Y#JMv<-)G1lMr~l5a2Z3O2jx0}5xjp%i>k5!F!x z#(F%oLl5-DD2&GQ``5Y4@n7dt&!6VD$2>WaoOJ($yp?)dMr~TNIeuko%F@`Sn^QKY zrv010l;PKCPL%OSNh$4I*;Hcke!Jf^z0~BQX}YIUGE*)2fWDMwwMSoE^WURy(xkj3 z;5B6BWIbjgU=K&`IFI~$sYnro2Dk@xAHPN5CY~dhCAC91GVX26pnKlzq0%x&cTDry z$IwIT4pN}J_i>sd<5-)X=~ij?5Au<`o0TR98GoxNIi9j#Q*x5^o=)i{$C{GESee?= zWPK}hand=2IPvD?b~}{xnbKb?Zjz`UFb*>y37mr^Sc7;Rz)4)dJv@g$iI)9h z6Es6tBw&}32g#+oup?*EbE^c;zd|XLf#hCANDel~2E<`M?m}|Z1+CB;lDpF}3$gea z8}JJx*VA*niDda?EI=%1ZS&~ft9!T1|6Vb;<25|Ga_Rh~D<_Wd@8I4<{_WVib<_I2 zt5>XEvSP{Vy$gSuy?2(WkT43X*7~sC%WYwQ4))mw63YO2-^1C{dcuU5$eWE2`7q;mvi@CteyqCqKop*Q;Ad-O#= zgrh$OU=RjlD28DK(n^_WOzcD%7+Y?tsinU(-993h?xYNvUPuO1&-HGA_$;~urh8(4 zF!73>p;~K0Pv`@UJ3QW+%TQXGn%*+$gEA#)H_mDtY$q#r;5u@V9g;19sBYw;F+$M}BXJpjL-Ng$v^yghp-9h1$*%}Vehq}=*APg4 z4TljUF$$wG24nF9#$h}rz&MeI9}$UZn1i`ki*;BJ(*V}b?oqO?T)KGa+@(`jP8~mT z@Cc6w`L{Q5>n8KRcf%ht5aO~qQT&&kn<8TR&ZlAb!oUO?2FR=GbzDuiy*A2yuNBu1 z-!#2Pu=DM@nS!rz2%}A}zPrTc5hkxfZFPJe)M$k1^DJF_Ow(HKFHF;d;p{Pdo?N+w zY3h@EylHAbjJ=lkv)8$2ni_lc({dfwXET1|(BAZhY2z}3Y0O`yGDfikkejiUmttsX zwx;LmB*I9}rsryUj_%>Tz3@3qyU@cq1537lO>oPG&{NRWdPs-750@26pAZzPCrv;zRSX` z^LjU(y6ktom2SAEyQpvDla*Q9E6tQXw1xCnN-KW+E29J{0ZdEt*?(@fGM2?=;cR6s zi_OB>{49&j!rA;Si_OB>0xXNo!r1~Xi_OB>f-H;8!r97M7Mn%0`76Gb#Afkq7VQhN z16i=k__K%oCug&$kozkZ&Sp^|_osTWCkcXPG%`j(nXiFAs)Uf23q zVcSO&%`e9%hFixahTF__u#JwAvmoa9)@T!Xi`YtkZ}?S9>0!8PBV!1eUprSjqgQmg zj!*P$tOiGLf}+LtGE6ls$TZhk?fxi(yS6aGpxVZ$`3LB%7;oZoKSMkF7}fubjm}EX z>&B6WAkBG*!7hu$W~Cb(A$^R`{HvhrA`GGL2W{wTT}rFe-{9z}SXs-!1lFvy-x-6V zv(cARJ`+*n0Ut)>;%A-D6oFQHiXmHcfVG43e=(Xyh2CEqZC!C|hpZp2PF$WLh7}H4 z`zV96Hg}d`sg1O@|3mw0y1`T4Of)r$9W~kDrB#VG9L#v-H2Yt^YCP3E=M-)IbVCVK z{{_=qMCGcro@QvQ-J4}_(!AywYQOj4Plj!ueI=~}%+dU0=%=lkZ>VirO@1p&Tg`vD z?ylO41?dZH=4xHcw0*T{F@_u&$uOM?_M|2BNo_;2Ig^`f9sZ(7_e?faH8mp& zK1z1~kxX{eAVBMT*sxk_Sk5}9=Csb>o&HwphffG{Ha+Zr<;g&uPV+foXs?%=m$ms% zyw)8yWY^xLu%i z4~m{Ew(y28s^UNRnel%k(tjgP8OCIM=3)Nq3ZI$ZtVV$BX#pM^p6g0!xt|!?G8yv3(2&WYCx-e=ay&JJ zGU@%)(3nXguk1@bc-vUljDdwz&F3l03wUPm=d+&A46Wp|zPi?YW@rBFpJx`;P z!(?W;_1w@+=M>lMg`vKcuBx`^m7x;vUV3E+Bdv@|@S1P8uCEQ*U5IA7RXfE|DWaI} z-J)nyUb9w;_Qz{tP~t+~7@Fz`I`^$%s;*R2F?BnS|EP_1PFj#o9m*%0bgIm6ZKX;o znpmlmS@0z*b(I8*v{q%ohpg3FI$fNrjoMjnf970*-|q%~o64n)v{myMk4^FnbWh0s zqKaeqz*jx?SBV}prqY&;y#~y5u28gG_g?20ukPA8)u87_FUfbO8&5rSN8M%%CVq+OIIIVT=J%%2FLB5O%B`8q}b^nUGizc!|$f1@Ga-A`FFa8(!my65Y9f8YD%gKn3y z6?uHO*QJ-Ql|^AZ-}lmU(6Lo5td1oXZ}j83UYBkz9dLG)=O7#Vq7$bE95)u+)jUh| z;-fxpAx~G|TXy&H&8Q>K?QJ&t#I*folHH_zTjD)p)e_hBRjrD;78tPi+i``%tRDtd zot3-L-t&b|Iv4uGabINh@Rdz&Xg}X;|E6O9rTIn=@cnId!BQP|2hJ^!cl=b>GHzcz z4ZnAz`?QTM)-{OPQE~W#m)B1&U*2%U(HG6vIvTfEa&OpwdtjB}505=8HGh}!<^7`@ z`L8WvnH|W+K z%bR1Y+ObUby_fHYYQ!0gvsY}UkooF`Flvpz5|6^&lnbYJg8o8vTwUu;iK}+JM8o03S*vo z!wXdNOis#|^ZM32*{5AEy6njH$)&Fb%=^YJvPIn&S*GP2`n%J$d}XFj^sW^U^KwFI zuk&4M1y5KsCrbtIzAHLa`MZ{H&FSIu>^xtMoKw8UAJy|T+Tow_)HdL^;R(4e+Wc_3 z=$b+khLvepB7Vn|Ii-!NL;2vAUuSVws-Mm88dLm1595P7ZwEfens3OHJ>iEZ{4sUO z1uxI%TNlobbNjY!{h>Wv6SBmWyr`?Y|H_`Tw@c1F5LdcH)X~e28*iy{Xv@o8+U;I9 zpTC~;xK2#)w$v^DDQj099lELi-O4_*vhE#ydHC8bcXR*z+g7K^zcttyfB9A0-X6P` zwn;udYSg?!wa*9HxwUt8$!e_TH>T2v^HB|!RSd6``fFt0b1znPUDape@`u+(PCnV< zOutqM3zl6@n%;7=_G*V$yTBShu07piUB~#L`v&~nPSdQH+^$(WZ2p`AKYO@7?y}f% z#*lL37q+UsV*1YP9`zk2jf>b-@3g^TVRSc}E%meZ+|qjO-BETqlD^5dXi$lVvz85+ z)7BVuDX`(Po27YPQLf{@E5^XJv51ao@)0YVLPqa-7ZIzr-81_wTiE!&-O00S#LBUUOs5 zteml}4$n_qRi#Zx+1VA^^d9Ike|Ppx(`)}`W6arQPQf-2E=H%5Ba5H-`m}dGtHN0e zHa;A+=U6xW~#A>Sog} zBL=VE)H%HNQ}5g{LE|G9TnzTz_i9Kh!}s-qhUtneKatz**^)U9=exgIlWkeO0gwCq z*gfmg+Y^4RHY?PD69`bqlKBZu{fd=EJ(zjqB0(aF4N@ zD}?Q6mTFYDKW^nve`abzlbWsPkGOWg?bbcrgj(4vTOV6_saVwa&!%~wbI#IibG~C#eHLAr; zfBVh-oZWY{{`$8*eh&TDHTiDn;{l7WZqD27LXI4Ri{))q!h6S$XYcHa3wBb^=-&U* z^Kns|>8@x4T-5TqKjSvIsO@!DHTT51x~cX$yPA9G5=gT_E3Kfrn%^it5<0^bysda3 z2RxzJ(s_s(4E)v`j%>`RccI-G;t3Gq#!(_x5O6{^ey1n!r0o12Oa$AJkdvQfbJ1Rc z$O?PW_M`v}Q~1rccQJmLEJ1TeUk2%^%!ODNF3ULApxsv;7S@mtnh;?qjV->R-4efY z%Z*Uwc9e3j#%g_OPZ>_PiUBk<7)(>=p)7b94L66=SZg#tM31EnJwKgygTi8zU$7Z0LP^2_5T!zt%5kLNGXBOD{DZ5wj+?lJJGhJccqEH{&XbpT zg}2ag@kK7c7~p`caD@kQA`c3pC`zLo>L3)Y&=Eb+4-puEK^OulHZNT08sL5~HgB++$n~^${tNNVwG@|hi<*q<8y4f^m)3)S& z$X&_hKH+kcZ@Fo=+<#kcmM!J7Oa~gkU^=$p9vnN7GvCotq8FRtdx}h7^1nC_ayvq~ zpP*GgvKQsi1ahlAxp$u23{UQECwH{_g#vyFa;LJP=tyCgdmTw3mz%uEEkEQ20x}rA zj3j>tGElgT{4E1_%lObTuC8gk+Bs~08NX6SfP5Tl9t2PZz>^{EWTZM7&rL>Ulaa_| z^e`F!Yd0lRMwgONp=8)18GlH|+L6(3WH1{Un?}Z2kzrG06cicMM8+tQQAT7?3>m~i zMw*au5*n^Evi3ZY@d#vi0U0eodizVCcIjp=-N23J(1X{BGR zbaRzntI`Qo`jko+QR(qnfZav!Ec`S{F3zbWxv?iI`9!irOY3w0&L^tB^jiDH>Xm7Hqxisfls-srG zL(Q#KouwAhPI;;YzG6!#Yz2j_ppfedxvP+o3K^x4848)8kWhtmDReuXrRLSFqg3~7 z2YH>0BRGm*aZIZerIyu}ocz}m^j3;=CXLy0vcmrv6V+B2Ipu!e* zu!kdP8?QLQ87^>xJF+1=a&S)9DOz>$$;%6G_#hwhqW}t_Fp6lg(IjYZG+A;bTCJ)T z(bOV#&H1DST526NJ{`+@+ImfOcM0ds{uqeC7^w?&yhL=!2=)kIT4% zR9uCsvhO1ZK;p=gel z7=#7bhMh=2A}+zoff5cMva@EW;lBiOcvKsYV`b9Ql$#Nt8wz_@NoP zU=+sU2aLyZY{yyrjtfY^Yh=qp9Poob0?`6pF&aN$9424|jPX32#yOnF1-wMQtkir6 zMm5wxXZ(OzEWuJN#{t}c91z*T9*!u1I_Qe;&>cMyi3Ql^#P;9GlLRE<67Im>nf(M= z;S68YKnHX}XLQ9l%)w@CMLf3S0-nL$g?$P+kPGF}1ijH0{ao1o5j>fN1pJN^{DDi5 z<3A6SfjeDOjT@-H;o{^o892#cKwiV<2YEVl&`2Mr-UnxQLp2v?&GDuEvPBQHfDU+*;0h z>sIi;@Z9*{T5#HOjsLGx9~J4=(*12V^W#W2?L;BfLl+tMrjUBhP|O%kam5bE{h*Wj zb7X-%xG|V|mhU~eqh!rJTS}_7I(=ofcW@~+XWk&CoRTH;#)~qOSI$gl(5mpUSLx5h zP*!5_^eXe2S^P}1c$Uq47VR%tj9=z6C;_H8wC=uY9?wkIRteN%eO0f|%n+mnmsUMP zeLu6L%(F|H!DY5=8nsE(nP;WHR)vqfGS38>o|#t8E9f%|AuCyb&(Ex*_7^i4OMiA% z13t5az|Va4xivGdQf;ND5~28ME6b=~XSx|^LZvyBRr`Ks22*C{^ej!&hD>r?t3-B^ z&dk#y?UynMOsLEYo3t&;JlqG%Gty)wqb;yB{K-6E=9w4pnO#(x*kl%GphEgH|1k4i zQd+ZQ9xn5ok(MSOgfqUEdTBWF!G|AwmU+%dqmI>X9E{_dyIHAR9N6PJUu7c5$IQ17 z--+-kY-W@v^?c1xV<2dEyd?{p)_F}sF!nl>xi=5faDwBHglGKZ)O}<-o~|*87S^TB z9LRtzWI%Z`K#V8x;#V?21d(vjD9z8x z9KMnP)yRPSWWX~rKqc{cQG^WGP6o6k18$Q6Pu6p!K?cN_GJu?9`O0%Ij*Ura7jF)> zun{}(q&%M?G?)mGCxnF}vJPjF$X}OJSnO`fhE0j@+i;wQjy>r%gLznlUvUCX z{W!*g+%-Onkq7S~tSRK4cstQ>8YzdyvC=X)MX_lRgvPL*&G8iSp#(~z5;kHd?&1YH zQVis7HkWY=5%Wnex-Q`G7I|WMU5tmOWK$?MVh0+LWlhlq-H`nkQjV68q01Iv1x_Lb z)i-nT2T_QDj9BE4J{XJy97K(6>@euIlN|%M63G9137m}W=6nwWFbIP&6vHqAModB^ zreikdVi6W&Ew&&D$v6eaJseXb8@!PZMNu6gP?g-!o|IFawKwHd+yBc48;QkByIW4> zcl^&r<62&&IZ1gsfITRux|?P;N?^Sre?dBqr>xj-sfpY$JR6sRkToYq^a#zxDFxPf zlAkbAVk2QiNp-;^AFd3-k^M6#niiq5z#Z5YrE)<{%)@fH6{7$cc^H7vSb@#>9aqq} z1jQMh5dnv<$V>R68usG=+LU7VfK^$}f3OHEQOl2&Mo)YX{{ZqHi^_5K0NK5avVZNW zKv!FMQF|1?KX9nT=?wDVG|pg6Wojz4p@!*&!#IcT)i|xdYgkpM=0O#t;ub2_;5Ei# zIy%;77r?&Sl)hx1T){OQVrM=L`+8(M{=zLd)+dY65uI@qr(jPN=YXBqg^~@a8quK% z6$ut&Jr3dmoSIT|VIkIGMKdGU9GY=C2Pya|lx>5=<}3uxEhxIMX+_qfU2Cd8+{7JZ z{f2q4gW4tmliPBZhvar72KU-?DG0G0SQvDjSZVa=%)W_w#xB$}ID<=gfLG`lMxBb( z?$n!b>A~hedKEUf7w5C6(3>v>Ozz87J)FTMyg-(I#1+m$Bd99-^QD5zLs%&k97dsr zF@}d&oWdF0#4QvW&NWGNMprnFpv2-Ew8Kf9#&6`{DQp-?MUQc#_;$ldT!PJLvK^x^ z9r0tyUF7v!E`F_DJ} z>J|B`gEo*uqHRAdyK^@Y{7lJ#vA1H zVsoGf8lV-fOYQawmGiO!h`~eb^d|L?{hRk z`Pi)@wd3EgDnh|TFrtf5q2bY2tQd@Mct|Qq=|>i7H#yd80y)mJDNXiOq)NsduL06>RHKFzu*#@}eMuAP1Ed zAP1Ba(5Mmh2IPRUF>c@$3b&vlLIBF42YMqKYD;nkL1>RK%s?_$w<1>{b%sj^BZaLq zGr+zJn*nl!S_k)G8^#w5zQI|P{my)3`W@4=xYV7!iu&Rj>h)w^B=q6(63S99$OVO7 z)CE)R_=Dc z4R;|oYj2H6JOejkS4vExTtJSJaQlgpj4Ei167%^2LUlAmYjlOp0***v8$+Q)3^roYLJIOi zw*MWT*u*jeazT#eiz53H7KpZ(gR}SphNUbBZLkG$%rAFm*@C~}zMOARoW@;vui&B` z{sv=>fk=l?auTk)4Qi^X84!LK?a-76zi{DO3u|ZRL73 zHeo;h#8b%6QFY@vB*tWH!E21(#@Ug);rn$QrFi`U^}B7 z`a$lewEzVZDO~t>>iqOWW;s+|kKNdd_YaMW@8M!R0`_E~TI5OEv9h)yL^WzRYVtL~ zgJay<5OuUpXDx5L#nt&*J?UmG-w<&=ZPiV>9`eJHwL-~7D&$XoP->l>?1|tAh3*Eg zdRQwtootjAfi}wIb_ONbURC0Q9hCO<926M|!iC=go4~L#|-&1|Vs!CkTs!F@BgO$w%s`XH$@BZK4)>LGGv&K1U zDW|j7R=CBiQr^CfGC8!4GAg)%vc6*jMeo#5>EO~(Y3bikiR;ivk)g3?8=ESdb2U?L z)N7{P$r-BDs2r-?vum#G`lh+^mwgMRUy&BdP-=7;SfF4Pt$jx|z+)Xpawl7KQaXfm zRb;>d=MLSJH4fUbj%uE!V_f?vJ-_O!w5Zirk(*?W^XsQD=zwzDCPL{`JVKdOJ3^8B z-TOrhP(oV`G_~ri)P9Jvw9qhRLC`Qot2Im+(_^?I109^NWmI13M`=C3RdZU6ETGN& zRxQ*%vh_?Quk9>ls(X|&zHGGeEFfCpwk}F(*Ex!e3tlzfJmqoi`ASfS`O2oRW0Z}C zSmkAxSVdai7j;>pjIOX$>1Dr6v9GmUDbr)QA_MWreLFk5tyEH4tki0EQhkaaE4)ED zX7h{kqRKA{cVJTXxyLI%=sh#Qz8#0v@lBukeK5aaPBtrbpEwpxt9;WW~ zlmyBWI;Aa9R$pH8#iso^Os#L_=cJV!u2%E7m6h5lZRV^>bJI-E6|LF`b%fQEwCTgN z={?hQfPG1&k!il$iq>Sby1?p&qCFU`wzKzFyiD)^t!S;ssQF3~btXT0m^+cl3Z;ih zu^>z!^S>YFtOa2LJ_>Wff-wFcg*j|N7{8Cg?6V+D*^k2PvLH;EkHT;Rp)clj>5sx} zv>=QWe{){vHci)jF^pV6|1ivQ3&I3_6eiY!Fd5~*yl(R>2$N9`%weJ|2$N9`%weWl z5GJD>n8Qr8AWTL%FozjqL70qkU=Blbn=h0Db2s<*x9LC&!eo?#yry!{_lsft-zx{^ zFg+{?lTi-LVY*llCZimf!?d>`Oh!2{hiPR&n2d5@4%5_vFd5~*9HzbnVKT~rIZQ1J z!eo>KbC_TY!erD3<}ej32$N9`@}$)ZUn*~Y@09~{m{MO{j-ROyvbl_!!xXh3Oh!2{ zhske2n2d5@4&!A(n2d5@4#TLBU)bm5cggfR(HzFbf-o87z#PWGf-o87z#PWL9L6j2 z?_fqvdUxot(Ass&4E3Ik^_#bE-^M-C)EzqO+Z+|dZJMLr)0^JaR?Jr)nV&6OpyoC| zOI)CO>)vQSv1(pjuofJv?wUTbYV;ztr=9PZNAu;dr@GdEk!nR^Lh n+s{2z8?sn6TG4R(