7 7 8tc16a june 26/1961 7 aw incrementer test 7 all check switches on 7 auto . 7 nonstop + i/o interpret off. 7 other switches per typeout 7 instructions. 7 00004 tr 1 0014 work area 7 2 001 00005 | 2 001 00006 | 2 001 00007 | 2 001 00008 | 2 001 00009 | 7 00014 eem 3 14 0000 0+-0 00019 tra i 06 2239 2sl9 00024 nop a 0134 00029 sgn t 10 0020 0-k0 00034 sel 2 0500 00039 wr r 0060 00044 wr r 0080 00049 wr r 0090 00054 hlt j 0000 00059 tr 1 0134 7 7 constants + work area 2 019 00078 chk sw all on auto. 2 001 00079 | 2 009 00088 section-1 2 001 00089 | 2 035 00124 run in 705 i , 705 ii , 705 iii 40k 2 001 00125 | 7 7 rewind all tapes on first 7 pass. also rewind on 7 end of file 7 00134 tr 1 0159 00139 adm 6 10 0130 0jl0 00144 sel 2 2002 00149 trs o 0159 00154 tr 1 0184 00159 sel 2 2002 00164 rwd 3 0002 00169 skp 3 0009 00174 trs o 01 0184 01y4 00179 tr 1 0174 7 7 check that 40k sw is 00184 lem 3 15 0000 0++0 set either to 20k or 40k. 00189 set b 0004 00194 lod 8 20004 -004 00199 cmp 4 0004 00204 tre l 0249 00209 lod 8 000m 00214 cmp 4 0004 00219 tre l 0249 00224 sel 2 0911 911 on bypass typeout 00229 trs o 0249 00234 sel 2 0500 00239 wr r 0250 00244 hlt j 1111 00249 tr 1 0269 to routine 1 7 7 constants + work area 2 014 00263 mode incorrect 2 001 00264 | 7 7 section-1 7 routine 1 7 check for wrap around 7 of aw incrementer at 7 40k.also check for 7 overflow check when 7 this occurs. set up a 7 write field spread over 7 the boundary to produce 7 the above condition. 7 run routine in the following 7 modes , 705 i , 705 ii and 7 705 iii 40k. 7 00269 eem 3 14 0000 0+-0 00274 spc , 0000 00279 set b 0001 00284 lod 8 0460 put a gm in 40005 00289 unl 7 000n 00294 set b 12 0005 0+05 00299 lod 8 12 0465 0d65 save tr 0014 in asu 12 00304 set b 0006 00309 lod 8 0460 set up write field 00314 unl 7 0005 00319 set b 0005 00324 lod 8 0454 00329 unl 7 39999 i999 00334 sel 2 2002 00339 wr r 39995 i995 write 10 characters from 00344 lem 3 15 0000 0++0 39995 00349 set b 18000 y000 delay to complete write 00354 eem 3 14 0000 0+-0 00359 trs o 03 0369 03f9 00364 tr 1 0409 00369 bsp 3 0004 00374 rd y 8000 read back into 8000 00379 trs o 03 0409 04+9 00384 set b 0005 00389 lod 8 0004 00394 cmp 4 8009 00399 unl 7 12 0004 0+04 put original field back 00404 tre l 0439 7 00409 tra i 01 0439 04t9 error routine 00414 sel 2 0500 00419 wr r 0445 00424 tra i 03 0434 04c4 00429 tr 1 0439 00434 hlt j 0001 00439 tra i 02 0269 02o9 00444 tr 1 0474 to next routine 7 7 constants + work area 2 004 00448 0001 2 001 00449 | 2 010 00459 abcdefghij 2 001 00460 | 2 005 00465 10014 7 7 7 section-1 7 routine 2 7 check for no wrap around 7 of aw incrementer at 7 20k. also check for 7 overflow at 20k. set 7 up a write field going over 7 20k boundary . 7 modes , 705 i , 705 ii and 7 705 iii 40k. 7 00474 eem 3 14 0000 0+-0 00479 set b 12 0005 0+05 00489 blm $ 0001 replace field by blanks 00494 set b 0011 00499 lod 8 0635 set up write field 00504 unl 7 20005 -005 00509 sel 2 2002 00514 wr r 19995 z995 write 10 characters from 00519 lem 3 15 0000 0++0 19995 00524 set b 18000 y000 delay to complete write 00529 eem 3 14 0000 0+-0 00534 trs o 03 0584 05h4 00539 bsp 3 0004 00544 rd y 8000 read back into 8000 00549 trs o 03 0584 05h4 00554 set b 0005 00559 lod 8 0004 00564 cmp 4 8009 00569 unl 7 12 0004 0+04 put original field back 00574 tre l 0584 00579 tr 1 0614 7 00584 tra i 01 0614 06/4 error routine 00589 sel 2 0500 00594 wr r 0620 00599 tra i 03 0609 06+9 00604 tr 1 0614 00609 hlt j 0002 00614 tra i 02 0474 04p4 00619 tr 1 0644 to next routine 7 7 constants + work area 2 004 00623 0002 2 001 00624 | 2 010 00634 123457890 2 001 00635 | 7 7 7 section-1 7 routine 3 7 check for no wrap around 7 of aw incrementer at 7 80k. also check for no 7 overflow check at 80k. set 7 up a write field going over 7 80k boundary . 7 modes , 705 i , 705 ii and 7 705 iii 40k. 7 00644 eem 3 14 0000 0+-0 00649 set b 12 0005 0+05 00654 rcv u 0004 00659 blm $ 0001 replace field by blanks 00664 set b 0011 00669 lod 8 0815 setup write field 00674 unl 7 000v 00679 sel 2 2002 00684 wr r 3999n i99n write 10 characters from 00689 lem 3 15 0000 0++0 79995 00694 set b 18000 y000 delay to complete write 00699 eem 3 14 0000 0+-0 00704 trs o 03 0764 07f4 00709 bsp 3 0004 00714 rd y 8000 read back into 8000 00719 trs o 03 0764 07f4 00724 set b 0005 00729 lod 8 0004 00734 cmp 4 000u check that machine 00739 tre l 0794 is 80k. 00744 cmp 4 8009 00749 unl 7 12 0004 0+04 put original field back 00754 tre l 0764 00759 tr 1 0794 7 00764 tra i 01 0794 07z4 error routine 00769 sel 2 0500 00774 wr r 0800 00779 tra i 03 0789 07h9 00784 tr 1 0794 00789 hlt j 0003 00794 tra i 02 0644 06m4 00799 tr 1 0824 to next routine 7 7 constants + work area 2 004 00803 0003 2 001 00804 | 2 010 00814 klmnopqrs 2 001 00815 | 7 7 7 section-1 7 routine 4 7 check for no wrap around 7 of aw incrementer at 7 120k. also check for no 7 overflow at 120k. set 7 up a write field going over 7 120k boundary . 7 run routine in the following 7 modes , 705 i , 705 ii and 7 705 iii 40k. 7 00824 eem 3 14 0000 0+-0 00829 set b 12 0005 0+05 00834 rcv u 0004 00839 blm $ 0001 replace field by blanks 00844 set b 0011 00849 lod 8 0985 00854 unl 7 000e 00859 sel 2 2002 00864 wr r 3999v i99v write 10 characters from 00869 lem 3 15 0000 0++0 119995 00874 set b 18000 y000 delay to complete write 00879 eem 3 14 0000 0+-0 00884 trs o 03 0934 09c4 00889 bsp 3 0004 00894 rd y 8000 read back into 8000 00899 trs o 03 0934 09c4 00904 set b 0005 00909 lod 8 0004 00914 cmp 4 8009 00919 unl 7 12 0004 0+04 put original field back 00924 tre l 0934 00929 tr 1 0964 7 00934 tra i 01 0964 09w4 error routine 00939 sel 2 0500 00944 wr r 0970 00949 tra i 03 0959 09e9 00954 tr 1 0964 00959 hlt j 0004 00964 tra i 02 0824 08k4 00969 tr 1 0994 to next routine 7 7 constants + work area 2 004 00973 0004 2 001 00974 | 2 010 00984 tuvwxyzabc 2 001 00985 | 7 7 7 section-1 7 routine 5 7 check for no wrap around 7 of aw incrementer at 7 160k. also check for no 7 overflow check at 160k . 7 up a write field going 7 over 160k boundary. 7 run routine in the following 7 modes , 705 i , 705 ii and 7 705 iii 40k. 7 00994 eem 3 14 0000 0+-0 00999 set b 12 0005 0+05 01004 set b 0011 01009 lod 8 1145 set up write fields 01014 unl 7 0005 01019 sel 2 2002 01024 wr r 3999e i99e write 10 characters from 01029 lem 3 15 0000 0++0 159995 01034 set b 18000 y000 delay to complete write 01039 eem 3 14 0000 0+-0 01044 trs o 03 1054 10e4 01049 tr 1 1094 01054 bsp 3 0004 01059 rd y 8000 read back into 8000 01064 trs o 03 1094 10i4 01069 set b 0010 01074 lod 8 0004 01079 cmp 4 8009 01084 unl 7 12 0004 0+04 put original field back 01089 tre l 1124 7 01094 tra i 01 1124 11s4 error routine 01099 sel 2 0500 01104 wr r 1130 01109 tra i 03 1119 11a9 01114 tr 1 1124 01119 hlt j 0005 01124 tra i 02 0994 09r4 01129 tr 1 1154 to next routine 7 7 constants + work area 2 004 01133 0005 2 001 01134 | 2 010 01144 defghijklm 2 001 01145 | 7 7 7 section-1 7 routine 6 7 check for no wrap around 7 of aw incrementer at 7 40k. also check for 7 overflow check at 40k . 7 rd over 40k boundary + 7 check that the rd 00 is 7 changed to rd 01. 7 run routine in following 7 modes , 705 i , 705 ii and 7 705 iii 40k. 7 01154 eem 3 14 0000 0+-0 01159 set b 12 0005 0+05 01164 rcv u 0004 01169 blm $ 0001 replace field by blanks 01174 rcv u 39999 i999 01179 blm $ 0001 01184 sel 2 2002 01189 wr r 1325 01194 trs o 03 1284 12h4 01199 bsp 3 0004 01204 trs o 03 1209 12+9 01209 rd y 39995 i995 rd 10 characters into 01214 lem 3 15 0000 0++0 39995 01219 set b 18000 y000 delay to complete read 01224 eem 3 14 0000 0+-0 01229 trs o 03 1239 12c9 check for overflow check 01234 tr 1 1284 01239 set b 0005 01244 lod 8 0004 check that 0004 01249 cmp 4 1340 contains blanks 01254 tre l 1264 01259 tr 1 1284 01264 lod 8 39999 i999 01269 cmp 4 1329 01274 unl 7 12 0004 0+04 put original field back 01279 tre l 1314 7 01284 tra i 01 1314 13/4 error routine 01289 sel 2 0500 01294 wr r 1320 01299 tra i 03 1309 13+9 01304 tr 1 1314 01309 hlt j 0006 01314 tra i 02 1154 11n4 01319 tr 1 1349 to next routine 7 7 constants + work area 2 004 01323 0006 2 001 01324 | 2 010 01334 dfhjl24680 2 001 01340 | 7 7 7 section-1 7 routine 7 7 check for no wrap around 7 of aw incrementer at 7 20k. also check for no 7 overflow check at 20k. 7 check that the rd 00 is 7 changed to rd 01. 7 run routine in following 7 modes , 705 i , 705 ii and 7 705 iii 40k. 7 01349 eem 3 14 0000 0+-0 01354 set b 12 0005 0+05 01359 rcv u 0004 01364 blm $ 0001 replace field by blanks 01369 rcv u 19999 z999 01374 blm $ 0002 01379 sel 2 2002 01384 wr r 1525 01389 trs o 03 1484 14h4 01394 bsp 3 0004 01399 trs o 03 1404 14+4 01404 rd y 19995 z995 rd 10 characters into 01409 lem 3 15 0000 0++0 39995 01414 set b 18000 y000 delay to complete read 01419 eem 3 14 0000 0+-0 01424 trs o 03 1484 14h4 check for overflow check 01429 set b 0010 01434 lod 8 20004 -004 check that rd 00 is 01439 cmp 4 1534 not changed in rd 01 01444 tre l 1454 01449 tr 1 1484 01454 set b 0005 01459 lod 8 0004 01464 cmp 4 1534 01469 unl 7 12 0004 0+04 put original field back 01474 tre l 1484 01479 tr 1 1514 7 01484 tra i 01 1514 15/4 error routine 01489 sel 2 0500 01494 wr r 1520 01499 tra i 03 1509 15+9 01504 tr 1 1514 01509 hlt j 0007 01514 tra i 02 1349 13m9 01519 tr 1 1544 to next routine 7 7 constants + work area 2 004 01523 0007 2 001 01524 | 2 010 01534 13579egikm 2 001 01535 | 7 7 7 section-1 7 routine 8 7 check for no wrap around 7 of aw incrementer at 7 80k. also check for no 7 overflow check at 80k. 7 check that the rd 00 is 7 changed to rd 01. 7 run routine in following 7 modes , 705 i , 705 ii and 7 705 iii 40k. 7 01544 eem 3 14 0000 0+-0 01549 set b 12 0005 0+05 01554 rcv u 0004 01559 blm $ 0001 replace field by blanks 01564 rcv u 3999r i99r 01569 blm $ 0002 01574 sel 2 2002 01579 wr r 1720 01584 trs o 03 1679 16g9 01589 bsp 3 0004 01594 trs o 03 1599 15i9 01599 rd y 3999n i99n rd 10 characters into 01604 lem 3 15 0000 0++0 79995 01609 set b 18000 y000 delay to complete read 01614 eem 3 14 0000 0+-0 01619 trs o 03 1679 16g9 check for overflow check 01624 set b 0005 01629 lod 8 0004 check that machine 01634 cmp 4 000u is 80k 01639 unl 7 12 0004 0+04 put original field back 01644 tre l 1709 01649 cmp 4 1729 01654 tre l 1679 01659 set b 0010 01664 lod 8 000u 01669 cmp 4 1729 01674 tre l 1709 7 01679 tra i 01 1709 17 9 error routine 01684 sel 2 0500 01689 wr r 1715 01694 tra i 03 1704 17+4 01699 tr 1 1709 01704 hlt j 0008 01709 tra i 02 1544 15m4 01714 tr 1 1739 to next routine 7 7 constants + work area 2 004 01718 0008 2 001 01719 | 2 010 01729 35890b2yaw 2 001 01730 | 7 7 7 section-1 7 routine 9 7 check for no wrap around 7 of aw incrementer at 7 120k. also check for no 7 overflow check at 120k. 7 check that the rd 00 is 7 changed to rd 01. 7 run routine in following 7 modes , 705 i , 705 ii and 7 705 iii 40k. 7 01739 eem 3 14 0000 0+-0 01744 set b 12 0005 0+05 01749 rcv u 0004 01754 blm $ 0001 replace field by blanks 01759 rcv u 3999z i99z 01764 blm $ 0002 01769 sel 2 2002 01774 wr r 1915 01779 trs o 03 1874 18g4 01784 bsp 3 0004 01789 trs o 03 1794 17i4 01794 rd y 3999v i99v rd 10 characters into 01799 lem 3 15 0000 0++0 119995 01804 set b 18000 y000 delay to complete read 01809 eem 3 14 0000 0+-0 01814 trs o 03 1874 18g4 check for overflow check 01819 set b 0010 01824 lod 8 000d 01829 cmp 4 1924 01834 unl 7 12 0004 0+04 put original field back 01839 tre l 1849 01844 tr 1 1874 01849 set b 0005 01854 lod 8 0004 01859 cmp 4 1924 01864 tre l 1874 check for no wrap around 01869 tr 1 1904 7 01874 tra i 01 1904 19 4 error routine 01879 sel 2 0500 01884 wr r 1910 01889 tra i 03 1899 18i9 01894 tr 1 1904 01899 hlt j 0009 01904 tra i 02 1739 17l9 01909 tr 1 1934 to next routine 7 7 constants + work area 2 004 01913 0009 2 001 01914 | 2 010 01924 2244335599 2 001 01925 | 7 7 7 section-1 7 routine 10 7 check for no wrap around 7 of aw incrementer at 7 160k. also check for no 7 overflow check at 160k. 7 check that the rd 00 is 7 changed to rd 01. 7 run routine in following 7 modes , 705 i , 705 ii and 7 705 iii 40k. 7 01934 eem 3 14 0000 0+-0 01939 set b 12 0005 0+05 01944 rcv u 0004 01949 blm $ 0001 replace field by blanks 01954 rcv u 3999i i99i 01959 blm $ 0001 01964 sel 2 2002 01969 wr r 2085 01974 trs o 03 2044 20d4 01979 bsp 3 0004 01984 trs o 03 1989 19h9 01989 rd y 3999e i99e rd 10 characters into 01994 lem 3 15 0000 0++0 159995 01999 set b 18000 y000 delay to complete read 02004 eem 3 14 0000 0+-0 02009 trs o 03 2019 20a9 02014 tr 1 2044 02019 set b 0005 02024 lod 8 0004 02029 cmp 4 2100 02034 unl 7 12 0004 0+04 put original field back 02039 tre l 2074 7 02044 tra i 01 2074 20x4 error routine 02049 sel 2 0500 02054 wr r 2080 02059 tra i 03 2069 20f9 02064 tr 1 2074 02069 hlt j 0010 02074 tra i 02 1934 19l4 02079 tr 1 2109 to end of section-1 7 7 constants + work area 2 004 02083 0010 2 001 02084 | 2 010 02094 11334477bb 2 001 02095 | 2 005 02100 7 7 end section-1 7 7 914 on-loop in section-1 7 914 off-type out and leave 7 section-1 7 02109 sel 2 0500 02114 wr r 2160 typeout a z 02119 sel 2 0914 02124 trs o 0014 02129 nop a 2154 02134 sgn t 2125 typeout only once 02139 sel 2 0500 02144 wr r 2165 02149 wr r 2189 02154 hlt j 2222 02159 tr 1 2239 to section 2 7 7 constants + work area 2 001 02160 z 2 004 02164 | 2 023 02187 705 i/ii + 40k sw off. 2 001 02188 | 2 031 02219 section 2 . run in 705 III 80k 2 013 02232 turn 916 on. 2 001 02233 | 7 7 7 section-2 7 routine 11 7 check for no wrap around 7 of aw incrementer at 7 80k. also check for 7 overflow check at 80k. set 7 up a write field going 7 over 80k boundary. 7 run routine only in 705 iii 7 80k. 7 02239 eem 3 14 0000 0+-0 02244 set b 0001 02249 lod 8 2430 put gm in 80005 02254 unl 7 000v 02259 set b 12 0005 0+05 02264 lod 8 12 2435 2d35 save tr 0014 in asu 12 02269 set b 0006 02274 lod 8 2435 02279 unl 7 0005 02284 set b 0005 02289 lod 8 2424 02294 unl 7 3999r i99r 02299 sel 2 2002 02304 wr r 3999n i99n write 10 characters from 02309 lem 3 15 0000 0++0 79995 02314 trs o 01 2324 23s4 02319 tr 1 2314 02324 eem 3 14 0000 0+-0 02329 trs o 03 2339 23c9 02334 tr 1 2379 02339 bsp 3 0004 02344 rd y 8000 rd back into 8000 02349 trs o 03 2379 23g9 02354 set b 0005 02359 lod 8 0004 02364 cmp 4 8009 02369 unl 7 12 0004 0+04 put original field back 02374 tre l 2409 7 02379 tra i 01 2409 24 9 error routine 02384 sel 2 0500 02389 wr r 2415 02394 tra i 03 2404 24+4 02399 tr 1 2409 02404 hlt j 0011 02409 tra i 02 2239 22l9 02414 tr 1 2444 to next routine 7 7 constants + work area 2 004 02418 0011 2 001 02419 | 2 010 02429 dmqsp256a0 2 001 02430 | 2 005 02435 10014 7 7 section-2 7 routine 12 7 check for no wrap around 7 of aw incrementer at 7 20k. also check for 7 no overflow check at 7 20k setup a write field 7 going over 20k boundary. 7 run routine only in 705 iii 7 80k. 7 02444 eem 3 14 0000 0+-0 02449 set b 12 0005 0+05 02454 rcv u 0004 02459 blm $ 0001 replace field by blanks 02464 set b 0011 02469 lod 8 2610 set up write field 02474 unl 7 20005 -005 02479 sel 2 2002 02484 wr r 19995 z995 write 10 characters from 02489 lem 3 15 0000 0++0 19995 02494 trs o 01 2504 25 4 02499 tr 1 2494 02504 eem 3 14 0000 0+-0 02509 trs o 03 2559 25e9 02514 bsp 3 0004 02519 rd y 8000 read back into 8000 02524 trs o 03 2559 25e9 02529 set b 0005 02534 lod 8 0004 02539 cmp 4 8009 02544 unl 7 12 0004 0+04 put original field back 02549 tre l 2559 02554 tr 1 2589 7 02559 tra i 01 2589 25y9 error routine 02564 sel 2 0500 02569 wr r 2595 02574 tra i 03 2584 25h4 02579 tr 1 2589 02584 hlt j 0012 02589 tra i 02 2444 24m4 02594 tr 1 2619 to next routine 7 7 constants + work area 2 004 02598 0012 2 001 02599 | 2 010 02609 2354658791 2 001 02610 | 7 7 section-2 7 routine 13 7 check for no wrap around 7 of aw incrementer at 7 40k. also check for 7 no overflow check at 7 40k setup a write field 7 going over 40k boundary. 7 run routine only in 705 iii 7 80k. 7 02619 eem 3 14 0000 0+-0 02624 set b 12 0005 0+05 02629 rcv u 0004 02634 blm $ 0001 replace field by blanks 02639 set b 0011 02644 lod 8 2785 set up write field 02649 unl 7 000n 02654 sel 2 2002 02659 wr r 39995 i995 write 10 characters from 02664 lem 3 15 0000 0++0 39995 02669 trs o 01 2679 26x9 02674 tr 1 2669 02679 eem 3 14 0000 0+-0 02684 trs o 03 2734 27c4 02689 bsp 3 0004 02694 rd y 8000 read back into 8000 02699 trs o 03 2734 27c4 02704 set b 0005 02709 lod 8 0004 02714 cmp 4 8009 02719 unl 7 12 0004 0+04 put original field back 02724 tre l 2734 02729 tr 1 2764 7 02734 tra i 01 2764 27w4 error routine 02739 sel 2 0500 02744 wr r 2770 02749 tra i 03 2759 27e9 02754 tr 1 2764 02759 hlt j 0013 02764 tra i 02 2619 26j9 02769 tr 1 2794 7 7 constants + work area 2 004 02773 0013 2 001 02774 | 2 010 02784 acfil14725 2 001 02785 | 7 7 section-2 7 routine 14 7 check for no wrap around 7 of aw incrementer at 7 120k. also check for 7 no overflow check at 7 120k setup a write field 7 going over 120k boundary. 7 run routine only in 705 iii 7 80k. 7 02794 eem 3 14 0000 0+-0 02799 set b 12 0005 0+05 02804 rcv u 0004 02809 blm $ 0001 replace field by blanks 02814 set b 0011 02819 lod 8 2690 02824 unl 7 000e 02829 sel 2 2002 02834 wr r 3999v i99v write 10 characters from 02839 lem 3 15 0000 0++0 119995 02844 trs o 01 2854 28v4 02849 tr 1 2844 02854 eem 3 14 0000 0+-0 02859 trs o 03 2909 29+9 02864 bsp 3 0004 02869 rd y 8000 read back into 8000 02874 trs o 03 2909 29+9 02879 set b 0005 02884 lod 8 0004 02889 cmp 4 8009 02894 unl 7 12 0004 0+04 put original field back 02899 tre l 2909 02904 tr 1 2939 7 02909 tra i 01 2939 29t9 error routine 02914 sel 2 0500 02919 wr r 2945 02924 tra i 03 2934 29c4 02929 tr 1 2939 02934 hlt j 0014 02939 tra i 02 2794 27r4 02944 tr 1 2969 to next routine 7 7 constants + work area 2 004 02948 0014 2 001 02949 | 2 010 02959 yzbdf13582 2 001 02960 | 7 7 section-2 7 routine 15 7 check for no wrap around 7 of aw incrementer at 7 160k. also check for 7 overflow check at 160k 7 set up a write field going 7 over the memory boundary. 7 run routine only in 705 iii 7 80k. 7 02969 eem 3 14 0000 0+-0 02974 set b 12 0005 0+05 02979 rcv u 0004 02984 blm $ 0001 replace field by blanks 02989 set b 0011 02994 lod 8 3135 02999 unl 7 0005 03004 sel 2 2002 03009 wr r 3999e i99e write 10 characters from 03014 lem 3 15 0000 0++0 159995 03019 trs o 01 3029 30s9 03024 tr 1 3019 03029 eem 3 14 0000 0+-0 03034 trs o 03 3044 30d4 03039 tr 1 3084 03044 bsp 3 0004 03049 rd y 8000 read back into 8000 03054 trs o 03 3084 30h4 03059 set b 0005 03064 lod 8 0004 03069 cmp 4 8009 03074 unl 7 12 0004 0+04 put original field back 03079 tre l 3114 7 03084 tra i 01 3114 31/4 error routine 03089 sel 2 0500 03094 wr r 3120 03099 tra i 03 3109 31+9 03104 tr 1 3114 03109 hlt j 0015 03114 tra i 02 2969 29o9 03119 tr 1 3144 to next routine 7 7 constants + work area 2 004 03123 0015 2 001 03124 | 2 010 03134 djjll33776 2 001 03135 | 7 7 section-2 7 routine 16 7 check for wrap around 7 of aw incrementer at 7 80k. also check for 7 overflow check at 80k 7 check that rd 00 is changed 7 to rd 01 on wrap around . 7 run routine only in 705 iii 7 80k. 7 03144 eem 3 14 0000 0+-0 03149 set b 12 0005 0+05 03154 rcv u 0004 03159 blm $ 0001 replace field by blanks 03164 rcv u 3999r i99r 03169 blm $ 0001 03174 sel 2 2002 03179 wr r 3259 03184 trs o 03 3254 32e4 03189 bsp 3 0004 03194 rd y 3999n i99n rd 10 characters into 03199 lem 3 15 0000 0++0 79995 03204 trs o 01 3214 32/4 03209 tr 1 3214 03214 eem 3 14 0000 0+-0 03219 trs o 03 3224 32b4 03224 tr 1 3254 03229 set b 0005 03234 lod 8 0004 03239 cmp 4 3315 03244 unl 7 12 0004 0+04 put original field back 03249 tre l 3284 7 03254 tra i 01 3284 32y4 error routine 03259 sel 2 0500 03264 wr r 3290 03269 tra i 03 3279 32g9 03274 tr 1 3284 03279 hlt j 0016 03284 tra i 02 3144 31m4 03289 tr 1 3324 to next routine 7 7 constants + work area 2 004 03293 0016 2 001 03294 | 2 010 03304 mmppff5511 2 001 03305 | 2 010 03315 7 7 section-2 7 routine 17 7 check for no wrap around 7 of aw incrementer at 7 20k. also check for no 7 overflow check at 20k 7 check that rd 00 is not 7 changed to rd 01 . run 7 routine only in 705 iii 7 80k. 7 03324 eem 3 14 0000 0+-0 03329 set b 12 0005 0+05 03334 rcv u 0004 03339 blm $ 0001 replace field by blanks 03344 rcv u 19999 z999 03349 blm $ 0002 03354 sel 2 2002 03359 wr r 3500 03364 trs o 03 3459 34e9 03369 bsp 3 0004 03374 rd y 19995 z995 rd 10 characters into 03379 lem 3 15 0000 0++0 19995 03384 trs o 01 3394 33z4 03389 tr 1 3384 03394 eem 3 14 0000 0+-0 03399 trs o 03 3459 34e9 03404 set b 0010 03409 lod 8 20004 -004 check that rd 00 is 03414 cmp 4 3509 not changed to rd 01. 03419 tre l 3429 03424 tr 1 3459 03429 set b 0005 03434 lod 8 0004 03439 cmp 4 3509 03444 unl 7 12 0004 0+04 put original field back 03449 tre l 3459 03454 tr 1 3489 7 03459 tra i 01 3489 34y9 error routine 03464 sel 2 0500 03469 wr r 3495 03474 tra i 03 3484 34h4 03479 tr 1 3489 03484 hlt j 0017 03489 tra i 02 3324 33k4 03494 tr 1 3519 to next routine 7 7 constants + work area 2 004 03498 0017 2 001 03499 | 2 010 03509 4499ccss22 2 001 03510 | 7 7 section-2 7 routine 18 7 check for no wrap around 7 of aw incrementer at 7 40k. also check for no 7 overflow check at 40k 7 check that rd 00 is not 7 changed to rd 01 . run 7 routine only in 705 iii 7 80k. 7 03519 eem 3 14 0000 0+-0 03524 set b 12 0005 0+05 03529 rcv u 0004 03534 blm $ 0001 replace field by blanks 03539 rcv u 39999 i999 03544 blm $ 0002 03549 sel 2 2002 03554 wr r 3695 03559 trs o 03 3654 36e4 03564 bsp 3 0004 03569 rd y 39995 i995 rd 10 characters into 03574 lem 3 15 0000 0++0 39995 03579 trs o 01 3589 35y9 03584 tr 1 3579 03589 eem 3 14 0000 0+-0 03594 trs o 03 3654 36e4 03599 set b 0010 03604 lod 8 000m check that rd 00 is 03609 cmp 4 3704 not changed to rd 01. 03614 tre l 3624 03619 tr 1 3654 03624 set b 0005 03629 lod 8 0004 03634 cmp 4 3704 03639 unl 7 12 0004 0+04 put original field back 03644 tre l 3654 03649 tr 1 3684 7 03654 tra i 01 3684 36y4 error routine 03659 sel 2 0500 03664 wr r 3690 03669 tra i 03 3679 36g9 03674 tr 1 3684 03679 hlt j 0018 03684 tra i 02 3519 35j9 03689 tr 1 3714 to next routine 7 7 constants + work area 2 004 03693 0018 2 001 03694 | 2 010 03704 5961048372 2 001 03705 | 7 7 section-2 7 routine 19 7 check for no wrap around 7 of aw incrementer at 7 120k. also check for no 7 overflow check at 120k 7 check that rd 00 is not 7 changed to rd 01 . run 7 routine only in 705 iii 7 80k. 7 03714 eem 3 14 0000 0+-0 03719 set b 12 0005 0+05 03724 rcv u 0004 03729 blm $ 0001 replace field by blanks 03734 rcv u 39992 i992 03739 blm $ 0002 03744 sel 2 2002 03749 wr r 3890 03754 trs o 03 3849 38d9 03759 bsp 3 0004 03764 rd y 3999v i99v rd 10 characters into 03769 lem 3 15 0000 0++0 119995 03774 trs o 01 3784 37y4 03779 tr 1 3774 03784 eem 3 14 0000 0+-0 03789 trs o 03 3849 38d9 03794 set b 0010 03799 lod 8 000d check that rd 00 is 03804 cmp 4 3899 not changed to rd 01. 03809 tre l 3819 03814 tr 1 3849 03819 set b 0005 03824 lod 8 0004 03829 cmp 4 3899 03834 unl 7 12 0004 0+04 put original field back 03839 tre l 3849 03844 tr 1 3879 7 03849 tra i 01 3879 38x9 error routine 03854 sel 2 0500 03859 wr r 3885 03864 tra i 03 3874 38g4 03869 tr 1 3879 03874 hlt j 0019 03879 tra i 02 3714 37j4 03884 tr 1 3909 to next routine 7 7 constants + work area 2 004 03888 0019 2 001 03889 | 2 010 03899 5a6b7c8d9e 2 001 03900 | 7 7 section-2 7 routine 20 7 check for wrap around 7 of aw incrementer at 7 160k. also check for 7 overflow check at 160k 7 check that rd 00 is 7 changed to rd 01 . run 7 routine only in 705 iii 7 80k. 7 03909 eem 3 14 0000 0+-0 03914 set b 12 0005 0+05 03919 rcv u 0004 03924 blm $ 0001 replace field by blanks 03929 rcv u 3999i i99i 03934 blm $ 0001 03939 sel 2 2002 03944 wr r 4060 03949 trs o 03 4019 40a9 03954 bsp 3 0004 03959 rd y 3999e i99e rd 10 characters into 03964 lem 3 15 0000 0++0 159995 03969 trs o 01 3979 39x9 03974 tr 1 3969 03979 eem 3 14 0000 0+-0 03984 trs o 03 3994 39i4 03989 tr 1 4019 03994 set b 0010 03999 lod 8 0004 04004 cmp 4 4080 04009 unl 7 12 0004 0+04 put original field back 04014 tre l 4049 7 04019 tra i 01 4049 40u9 error routine 04024 sel 2 0500 04029 wr r 4055 04034 tra i 03 4044 40d4 04039 tr 1 4049 04044 hlt j 0020 04049 tra i 02 3909 39-9 04054 tr 1 4089 to next routine 7 7 constants + work area 2 004 04058 0020 2 001 04059 | 2 010 04069 pqrstuvxyz 2 001 04070 | 2 010 04080 7 7 section-2 7 routine 21 7 check for wrap around 7 of aw incrementer at 7 160k. also check for 7 overflow check at 160k 7 set up a write field 7 going over 160k boundary. 7 routine only in 705 iii 80k. 7 04089 eem 3 14 0000 0+-0 04094 set b 12 0005 0+05 04099 rcv u 0004 04104 blm $ 0001 replace field by blanks 04109 set b 0011 04114 lod 8 4235 set up write field 04119 unl 7 0005 04124 sel 2 2002 04129 wr r 3999e i99e write 10 characters from 04134 trs o 03 4144 41d4 159995 04139 tr 1 4184 04144 bsp 3 0004 04149 rd y 8000 rd back into 8000 04154 trs o 03 4184 41h4 04159 set b 0005 04164 lod 8 0004 04169 cmp 4 8009 04174 unl 7 12 0004 0+04 put original field back 04179 tre l 4214 7 04184 tra i 01 4214 42/4 error routine 04189 sel 2 0500 04194 wr r 4220 04199 tra i 03 4209 42+9 04204 tr 1 4214 04209 hlt j 0021 04214 tra i 02 4089 40q9 04219 tr 1 4244 to next routine 7 7 constants + work area 2 004 04223 0021 2 001 04224 | 2 010 04234 mmnn331249 2 001 04235 | 7 7 section-2 7 routine 22 7 check for no wrap around 7 of aw incrementer at 7 80k. also check for 7 no overflow check at 7 80k. set up a write field 7 going over 80k boundary. 7 routine only in 705 iii 80k. 7 04244 eem 3 14 0000 0+-0 04249 set b 12 0005 0+05 04254 rcv u 0004 04259 blm $ 0001 replace field by blanks 04264 set b 0011 04269 lod 8 4400 set up write field 04274 unl 7 000v 04279 sel 2 2002 04284 wr r 3999n i99n write 10 characters from 04289 trs o 03 4349 43d9 79995 04294 bsp 3 0004 04299 rd y 8000 rd back into 8000 04304 trs o 03 4349 43d9 04309 set b 0005 04314 lod 8 0004 04319 cmp 4 000u 04324 tre l 4379 04329 cmp 4 8009 04334 unl 7 12 0004 0+04 put original field back 04339 tre l 4349 04344 tr 1 4379 7 04349 tra i 01 4379 43x9 error routine 04354 sel 2 0500 04359 wr r 4385 04364 tra i 03 4374 43g4 04369 tr 1 4379 04374 hlt j 0022 04379 tra i 02 4244 42m4 04384 tr 1 4409 to next routine 7 7 constants + work area 2 004 04388 0022 2 001 04389 | 2 010 04399 5239cfgmqv 2 001 04400 | 7 7 section-2 7 routine 23 7 check for wrap around 7 of aw incrementer at 7 160k. also check for 7 overflow check at 160k. 7 check that rd 00 is 7 changed to rd 01 . run 7 routine only in 705 iii 80k. 7 04409 eem 3 14 0000 0+-0 04414 set b 12 0005 0+05 04419 rcv u 0004 04424 blm $ 0001 replace field by blanks 04429 rcv u 3999i i99i 04434 blm $ 0001 04439 sel 2 2002 04444 wr r 4540 04449 trs o 03 4499 44i9 04454 bsp 3 0004 04459 rd y 3999e i99e rd 10 characters into 04464 trs o 03 4474 44g4 159995 04469 tr 1 4499 04474 set b 0005 04479 lod 8 0004 04484 cmp 4 4560 04489 unl 7 12 0004 0+04 put original field back 04494 tre l 4529 7 04499 tra i 01 4529 45s9 error routine 04504 sel 2 0500 04509 wr r 4535 04514 tra i 03 4524 45b4 04519 tr 1 4529 04524 hlt j 0023 04529 tra i 02 4409 44-9 04534 tr 1 4569 to next routine 7 7 constants + work area 2 004 04538 0023 2 001 04539 | 2 010 04549 2413685791 2 001 04550 | 2 010 04560 7 7 section-2 7 routine 24 7 check for no wrap around 7 of aw incrementer at 7 80k. also check for no 7 overflow check at 80k. 7 check that rd 00 is not 7 changed to rd 01 . run 7 routine only in 705 iii 80k. 7 04569 eem 3 14 0000 0+-0 04574 set b 12 0005 0+05 04579 rcv u 0004 04584 blm $ 0001 replace field by blanks 04589 rcv u 3999r i99r 04594 blm $ 0001 04599 sel 2 2002 04604 wr r 4705 04609 trs o 03 4664 46f4 04614 bsp 3 0004 04619 rd y 3999n i99n rd 10 characters into 04624 trs o 03 4664 46f4 79995 04629 set b 0010 04634 lod 8 000u check memory size 04639 cmp 4 0004 04644 tre l 4694 04649 cmp 4 4714 04654 unl 7 12 0004 0+04 put original field back 04659 tre l 4694 7 04664 tra i 01 4694 46z4 error routine 04669 sel 2 0500 04674 wr r 4700 04679 tra i 03 4689 46h9 04684 tr 1 4694 04689 hlt j 0024 04694 tra i 02 4569 45o9 04699 tr 1 4724 to next routine 7 7 constants + work area 2 004 04703 0024 2 001 04704 | 2 010 04714 akjsblmu92 2 001 04715 | 7 7 end of test 7 914 on-loop in section 2 7 914 off-call in next program 04724 sel 2 0500 04729 wr r 4745 typeout a z 04734 sel 2 0914 04739 trs o 0014 04744 tr 1 18219 y219 7 7 constants + work area 2 001 04745 z 2 004 04749 |