7 8tu04c measure record gaps 7 february-1-1962 7 use only on system operating 7 at 2.0 microsecond 7 memory cycle 7 switch summary 7 911 on dont type bad gaps 7 912 on bypass 400 ms dly 7 913 on stop after backspace 7 914 on loop in test 7 914 off read next test from tp 7 915 on force immediate stop 7 916 on bypass motion test 00004 nop a 0200 exclude frame 7 00009 nop a 0034 sw on time 00014 sel 2 0500 00019 wr r 0185 all chk sw to auto 00024 sgn t 0005 00029 hlt j 6666 7 00034 nop a 0179 sw. one time 00039 sgn t 0030 housekeep generator =1 00044 set b 01 0004 00 4 00049 lod 8 01 0134 01t4 00054 lda = 02 0184 01q4 0010 7 00059 rcv u 20004 -004 generator =1 tzb 07 table 00064 snd / 0129 00069 cmp 4 01 0129 01s9 00074 aam @ 02 0129 01k9 00079 tre l 0089 00084 tr 1 0064 7 00089 lod 8 01 0149 01u9 housekeep gen =2 00094 set b 0002 7 00099 rcv u 39984 i984 generator =2 snd and tr 00104 snd / 0139 for table 00109 cmp 4 01 0139 01t9 00114 aam @ 02 0139 01l9 00119 tre l 0164 00124 tr 1 0104 7 00129 tzb . 07 39984 izh4 initial tzb for tbl 00134 tzb . 39zdm izdm upper limit for tzb 79944 7 00139 snd / 39984 i984 initial snd and tr for tbl 00144 tr 1 2394 00149 snd / 3994m i94m upper limit for snd 79944 7 00154 add g 0750 counter for tzb table 00159 tr 1 20004 -004 7 00164 set b 0010 place looper 00169 lod 8 0159 00174 unl 7 39979 i979 00179 tr 1 0224 7 7 constants 2 005 00184 0010 2 031 00215 all check switches to automatic 2 001 00216 | 7 00224 nop a 0324 sw. housekeep asu s 00229 sgn t 0220 00234 set b 01 0004 00 4 for unit in test 00239 set b 02 0001 00-1 00244 lod 8 02 0305 03-5 A 00249 set b 03 0001 00+1 00254 lod 8 03 0314 03a4 1 00259 set b 04 0001 0 01 00264 lod 8 04 0306 0t06 r 00269 set b 05 0004 0 4 0005 00274 lod 8 05 0310 0t/0 00279 set b 06 0004 0 -4 00284 set b 07 0004 0 +4 00289 set b 08 0004 0-04 00294 lod 8 08 0314 0l14 0001 00299 lod 8 07 0318 0ta8 0004 00304 tr 1 0324 7 7 constants 2 001 00305 a 2 001 00306 r 2 004 00310 0005 2 004 00314 0001 2 004 00318 0004 7 7 7 create tape unit ready 7 table 7 00324 lod 8 06 0329 0tk9 housekeeping 00329 nop a 01 0904 09 4 00334 unl 7 06 0599 0vr9 00339 unl 7 06 0689 0wq9 00344 lod 8 06 0349 0tm9 00349 nop a 01 0823 08s3 00354 unl 7 06 0614 0wj4 00359 unl 7 02 0650 06n0 00364 unl 7 06 0639 0wl9 00369 unl 7 02 0700 07-0 7 00374 rcv u 0824 clear units table 00379 blm $ 0034 7 00384 hlt j 11111 /111 store 4 for printer 00389 set b 0004 set up output unit address 00394 lod 8 0993 0500 00399 unl 7 4199 00404 unl 7 4309 00409 unl 7 4454 00414 unl 7 4564 00419 unl 7 4984 00424 unl 7 8559 00429 unl 7 5969 7 00434 lod 8 01 0748 07u8 find ready unit 00439 unl 7 01 0444 04u4 00444 sel 2 00449 trs o 01 0529 05s9 00454 add g 01 0750 07v0 1 00459 cmp 4 01 0754 07v4 last tape 00464 trh k 0474 00469 tr 1 0439 7 00474 lod 8 06 0744 0xm4 make sure there are units 00479 cmp 4 06 0823 0yk3 in tbl 00484 tre l 0494 00489 tr 1 0504 00494 cmp 4 06 0904 0z-4 00499 tre l 0509 00504 tr 1 0629 to wr unit table 7 00509 sel 2 0500 wr no tapes ready 00514 wr r 0805 00519 hlt j 0004 00524 tr 1 0434 7 00529 cmp 4 01 0004 00 4 is it the excluded frame 00534 tre l 0454 7 00539 eem 3 14 0000 0+-0 00544 sdh 3 0038 00549 lem 3 15 0000 0++0 7 00554 rad h 09 0759 0pv9 determine type of drive 00559 wr r 01 19995 z9z5 00564 wr r 01 19800 z8 0 00569 trs o 01 0584 05y4 0001 00574 add g 09 0768 0pw8 00579 tr 1 0569 7 00584 trz n 09 0454 0mv4 00589 cmp 4 09 0763 0pw3 0724 00594 trh k 0614 00599 unl 7 01 unl into 729 iv table 00604 adm 6 07 0599 0vi9 0004 00609 tr 1 0454 7 00614 unl 7 01 unl into 729 ii tbl 00619 adm 6 07 0614 0wa4 0004 00624 tr 1 0454 7 00629 sel 2 0500 typeout units in table 00634 wr r 0769 729 ii 00639 lod 8 01 00644 cmp 4 01 0744 07u4 00649 tre l 0689 00654 nop a 0669 sw. on time 00659 wr r 0784 00664 unl 7 03 0650 06e0 1 00669 unl 7 01 0803 08 3 00674 adm 6 07 0639 0wc9 0004 00679 wr r 0798 00684 tr 1 0639 7 00689 lod 8 01 typeout units table 00694 cmp 4 01 0744 07u4 729 iv 00699 tre l 0999 00704 nop a 0719 sw. one time 00709 unl 7 03 0700 07+0 1 00714 wr r 0791 00719 unl 7 01 0803 08 3 0004 00724 adm 6 07 0689 0wh9 00729 wr r 0798 00734 tr 1 0689 7 7 constant + work area 2 010 00744 2 004 00748 0201 first available tape 2 002 00750 + 1 2 004 00754 0299 last possible tape 2 005 00759 + 0000 2 004 00763 0724 count for tape rdy loop 2 005 00768 + 0001 2 014 00782 units in table 2 001 00783 | 2 006 00789 729 ii 2 001 00790 | 2 006 00796 729 iv 2 001 00797 | 2 006 00803 2 001 00804 | 2 014 00818 no tapes ready 2 001 00819 | 5 170 00989 00 2 004 00993 0500 change to 0400 for 717 out 7 7 master select and sequence 7 7 sw.1-729 ii rewind 7 sw.2-729 ii write records 7 sw.3-729 ii measure gaps 7 none set-to motion 7 7 sw.5-729 iv rewind 7 sw.6-729 iv write records 7 sw.7-729 iv measure gaps 7 none set-to motion 7 00999 unl 7 03 1135 11c5 1 reset 01004 unl 7 03 1140 11d0 switches 01009 unl 7 03 1145 11d5 01014 unl 7 03 1160 11f0 01019 unl 7 03 1165 11f5 01024 unl 7 03 1170 11g0 01029 lod 8 06 1034 1 l4 01034 nop a 02 1135 11l5 01039 unl 7 06 1209 1s-9 01044 lod 8 06 1049 1 m9 01049 nop a 02 1160 11o0 01054 unl 7 06 1214 1sj4 7 01059 lod 8 06 1064 1 o4 housekeep select loads 01064 nop a 01 0823 08s3 01069 unl 7 06 1089 1 q9 01074 lod 8 06 1079 1 p9 01079 nop a 01 0904 09 4 01084 unl 7 06 1114 1/j4 7 7 01089 lod 8 01 select 729 ii tape drive 01094 cmp 4 01 0744 07u4 blanks 01099 tre l 1114 01104 adm 6 07 1089 1 h9 0004 01109 tr 1 1139 7 01114 lod 8 01 select 729 iv tape drive 01119 adm 6 07 1114 1/a4 0004 01124 cmp 4 01 0744 07u4 blanks 01129 tre l 1189 01134 tr 1 1164 7 7 sequence tr. switches for 7 729 ii 01139 tr 1 1259 to initial rewind 01144 tr 1 1464 to write of records 01149 tr 1 1284 to measure of gaps 01154 tra i 06 1189 1/q9 bypass motion test 01159 tr 1 1444 to motion test 7 7 sequence tr. switches for 7 729 iv 01164 tr 1 1259 to initial rewind 01169 tr 1 1464 to write of records 01174 tr 1 1364 to measure of gaps 01179 tra i 06 1189 1/q9 bypass motion test 01184 tr 1 1454 to motion test 7 01189 lod 8 06 1194 1/r4 check for end of test 01194 nop a 02 1150 11n0 01199 cmp 4 06 1209 1s-9 01204 tre l 1234 7 01209 unl 7 02 step sequence tr. 01214 unl 7 02 01219 adm 6 05 1209 1s 9 0005 01224 adm 6 05 1214 1s/4 0005 01229 tr 1 1059 7 01234 sel 2 0914 end of test 01239 trs o 1249 01244 tr 1 18219 y219 01249 hlt j 19999 z999 01254 tr 1 0999 7 7 initial rewind 7 entry fro sw. s 1 and 5 01259 unl 7 01 1264 12w4 01264 sel 2 make sure all i.o. indicators 01269 iof 3 0000 are off and tape is 01274 rwd 3 0002 at load point 01279 tr 1 1089 7 01284 set b 0006 set up for 729 ii 01289 lod 8 4834 upper limit 01294 unl 7 4801 01299 lod 8 4841 lower limit 01304 unl 7 4808 01309 rad h 2160 correction for bsp rd 01314 st f 4077 01319 set b 0009 01324 lod 8 2139 01329 unl 7 7265 01334 unl 7 02 8520 85k0 01339 rad h 2152 check chara. delay 01344 st f 4073 01349 rad h 2178 mod ii 01354 st f 4081 01359 tr 1 2189 7 01364 set b 0006 set up for 729 iv 01369 lod 8 4848 upper limit 01374 unl 7 4801 01379 lod 8 4855 lower limit 01384 unl 7 4808 correction for bsp rd 01389 rad h 2164 01394 st f 4077 01399 set b 0009 729 iv 01404 lod 8 2148 01409 unl 7 7265 01414 unl 7 03 8520 85b0 check chara delay 01419 rad h 2156 01424 st f 4073 mod iv 01429 rad h 2174 01434 st f 4081 01439 tr 1 2189 7 01444 unl 7 02 8985 89q5 729 ii motion test 01449 tr 1 8914 7 01454 unl 7 03 8985 89h5 729 iv motion test 01459 tr 1 8914 7 7 write 224 groups of records 7 on mod ii and iv 7 01464 set b 0078 set up record = 1 01469 rcv u 1694 01474 snd / 1689 01479 rad h 09 1669 1ow9 0000 7 01484 unl 7 01 1489 14y9 move from lp 01489 sel 2 01494 wr r 2090 29999 7 01499 unl 7 09 1683 1oy3 up date delay 01504 unl 7 09 1549 1nu9 to variable delay 7 01509 unl 7 01 1514 15/4 write first and second 01514 sel 2 record through the 01519 trs o 03 1524 15b4 record counter 01524 wr r 02 0020 00k0 01529 wr r 1680 400 y,s and 16666 01534 trs o 03 1539 15c9 to next wr 01539 wr r 2090 write third record 29999 01544 trs o 03 1549 15d9 7 01549 set b variable dly 01554 wr r 2100 write fourth record 33333 01559 trs o 03 1564 15f4 01564 set b 8885 0 millisecond dly 01569 wr r 2110 write fifth record 46666 7 01574 lod 8 06 1549 1vm9 check for end of write 01579 cmp 4 06 1675 1wp5 5335 delay 6 msec 01584 trh k 1619 to rewind 7 01589 wr r 2120 reference record 10 5,s 7 01594 add g 09 1671 1ox1 24 step var dly 01599 tra i 05 1609 1w 9 01604 tr 1 1499 force stop 01609 hlt j 22222 k222 01614 tr 1 1499 7 01619 wtm 3 0001 write tape marks and rewind 01624 wtm 3 0001 01629 wtm 3 0001 01634 wtm 3 0001 01639 wtm 3 0001 01644 wtm 3 0001 01649 wtm 3 0001 01654 iof 3 0000 01659 rwd 3 0002 01664 tr 1 1089 wr on next unit 7 7 constants + work area 2 005 01669 + 0000 2 002 01671 +24 increment for variable dly 2 004 01675 5335 delay 6 milliseconds 2 010 01689 00 yyyyyyyyyy 5 390 02079 2 001 02080 | 2 005 02085 16666 2 001 02086 | 2 005 02094 00 29999 2 001 02095 | 2 005 02104 00 33333 2 001 02105 | 2 005 02114 00 46666 2 001 02115 | 2 010 02129 00 5555555555 2 001 02130 | 2 009 02139 -729 ii, 2 009 02148 -729 iv, 2 004 02152 + 090 check char dly mod II microsec 2 004 02156 + 060 check char dly mod iv microsec 2 004 02160 + 120 corr for bsp-rd mod ii usec 2 004 02164 + 080 corr for bsp-rd mod iv usec 2 003 02167 +000 2 003 02170 +001 2 004 02174 + 100 mod iv 2 004 02178 + 200 mod ii 2 002 02180 + 1 7 7 read and time gap delay 7 for one group of records 7 written on a 729 7 7 gaps measured in 5 micro- 7 second increments 7 02189 rad h 06 2989 2zq9 initial housekeeping 02194 unl 7 06 2994 2zr4 02199 unl 7 02 2410 24j0 02204 unl 7 06 2984 2zq4 000000 02209 rad h 09 3073 3-x3 02214 unl 7 09 4672 4ox2 02219 unl 7 09 4704 4p 4 02224 unl 7 09 4720 4ps0 02229 unl 7 09 4688 4oy8 02234 unl 7 09 4736 4pt6 02239 rad h 09 3080 3-y0 999999 02244 unl 7 09 4680 4oy0 02249 unl 7 09 4696 4oz6 02254 unl 7 09 4712 4p/2 02259 unl 7 09 4728 4ps8 02264 unl 7 09 4744 4pu4 02269 rad h 09 3089 3-y9 000000000 02274 st f 09 4754 4pv4 02279 st f 09 4764 4pw4 02284 st f 09 4774 4px4 02289 st f 09 4784 4py4 02294 set b 09 0008 0- 8 02299 st f 09 4794 4pz4 7 02304 unl 7 01 2309 23 9 move from lp 02309 sel 2 02314 rd y 01 3665 36w5 7 02319 rcv u 3204 blank read field 02324 blm $ 0172 7 02329 rcv u 3609 set rcv for tzb 07 02334 rad h 3091 and send 7 02339 unl 7 01 2344 23u4 select unit 02344 sel 2 02349 trs o 03 2354 23e4 7 02354 lod 8 06 2359 2tn9 reset return transfer 02359 nop a 2514 02364 unl 7 06 2394 2tr4 02369 unl 7 02 2390 23r0 02374 rad h 09 3013 3-/3 5 7 02379 wr r 02 0060 00o0 set record counter 02384 rd y 3210 read 6 records 02389 tr 1 20004 -004 to table 7 02394 nop a 2514 sw, return from table to 7 this point. modified many 7 times 02399 sub p 09 3014 3-/4 1 02404 trz n 09 2414 2m/4 02409 tr 1 20004 -004 back to table 7 02414 nop a 2654 sw 100 bsp rds done 02419 unl 7 03 2390 23i0 02424 unl 7 01 2429 24s9 02429 sel 2 02434 bsp 3 0004 02439 bsp 3 0004 02444 rcv u 3664 set rcv for table 02449 lod 8 06 2994 2zr4 group counter 02454 cmp 4 06 2998 2zr8 0098 02459 trh k 2484 02464 rd y 3660 02469 set b 0024 dly 32 usec 02474 rad h 3091 0 02479 tr 1 20004 -004 7 02484 unl 7 03 2410 24a0 set 100 times through 02489 lod 8 06 3002 3 -2 switch and move tape 02494 unl 7 06 2984 2zq4 forward 02499 rd y 01 3660 36w0 02504 rd y 3660 02509 tr 1 2529 7 02514 rd y 3665 read in referance record 02519 lod 8 06 3664 3wo4 02524 unl 7 06 2984 2zq4 02529 lod 8 06 2129 2/k9 02534 trs o 03 2539 25c9 02539 cmp 4 06 3669 3wo9 02544 tre l 2654 ok 02549 set b 0001 02554 lod 8 3665 02559 cmp 4 3004 4 02564 tre l 2609 02569 cmp 4 3005 3 02574 tre l 2609 02579 set b 0004 if first record is read 02584 lod 8 3668 check if backward or 02589 cmp 4 3213 forward 02594 tre l 2609 02599 trh k 2624 02604 tr 1 2639 7 02609 sel 2 0500 backspace error typeouts 02614 wr r 3118 backspace too far 02619 tr 1 2654 7 02624 sel 2 0500 02629 wr r 3136 backspace not far enough 02634 tr 1 2654 7 02639 sel 2 0500 02644 wr r 3161 undetermined error after bsp 02649 tr 1 2319 time next group 7 02654 set b 0005 ceck r6 02659 adm 6 08 2994 2r94 count groups 02664 trs o 03 2669 26f9 02669 trs o 2759 check for end of read 02674 lod 8 3639 02679 cmp 4 2129 5,s 02684 tre l 2759 7 02689 hlt j 0002 out of step-read forward 02694 unl 7 01 2699 26z9 to next group 02699 sel 2 02704 rd y 3260 02709 trs o 01 2719 27/9 02714 tr 1 2709 02719 trs o 2749 eof and not in step 02724 set b 0001 02729 lod 8 3260 02734 cmp 4 3003 02739 tre l 2319 measure next group 02744 tr 1 2704 02749 hlt j 0003 eof and not in step 02754 tr 1 4894 7 02759 rcv u 2964 move records from read area 02764 set b 0004 02769 snd / 3614 02774 tr 1 2779 to compute 7 7 change address counters to 7 micro seconds 02779 lod 8 06 2784 2xq4 housekeeping 02784 nop a 2964 02789 unl 7 06 2834 2yl4 02794 lod 8 06 2799 2xr9 02799 nop a 3095 02804 unl 7 06 2889 2yq9 02809 lod 8 06 2814 2yj4 02814 nop a 3029 02819 unl 7 06 2904 2z-4 02824 nop a 2989 02829 lod 8 06 2824 2yk4 7 02834 lda = lod counter 02839 cmp 4 3066 100 times through 02844 tre l 4099 02849 sub p 3012 39974 02854 shr c 0001 divide by 10 02859 mpy v 3018 05 tzb time 02864 add g 3021 032 dly before entering tbl 02869 sub p 4081 02874 sub p 4073 check character delay 02879 st f 3199 02884 set b 0001 times thru tzb table 02889 lod 8 19997 tzb tbl time 02894 mpy v 3117 02899 add g 3199 02904 st f 02909 adm 6 05 2834 2yt4 step lda 0005 02914 adm 6 07 2904 2z+4 step st 0004 02919 adm 6 07 2904 2z+4 step st 0004 02924 adm 6 07 2889 2yh9 step lod 0004 02929 cmp 4 06 2834 2yl4 02934 tre l 2944 02939 tr 1 2834 7 02944 rad h 3061 correct for bsp read 02949 sub p 4077 02954 st f 3061 02959 tr 1 4099 7 7 constants + work area 2 005 02964 00 00000 no delay counter 2 005 02969 00000 min delay counter 2 005 02974 00 00000 variable delay 2 005 02979 00 00000 fixed delay 2 005 02984 00 00000 bsp. rd delay 2 005 02989 + 0000 2 005 02994 0000 group counter 2 004 02998 0098 2 004 03002 aaa0 2 001 03003 5 2 001 03004 4 2 001 03005 3 2 001 03006 2 2 006 03012 + 39974 addr of add inst 2 001 03013 +5 2 001 03014 +1 2 001 03015 +5 2 003 03018 + 05 tzb instruction time 2 003 03021 +032 dly before entering tbl 2 008 03029 A0000000 no delay micro sec 2 008 03037 a0000000 min delay micro sec 2 008 03045 a0000000 var delay micro sec 2 008 03053 a0000000 fix delay micro sec 2 008 03061 a0000000 bsp rd micro sec 2 005 03066 31110 2 007 03073 + 000000 2 007 03080 + 999999 2 009 03089 +000000000 2 002 03091 + 0 2 004 03095 00 TImes 2 004 03099 00 2 004 03103 00 thru 2 004 03107 00 tzb 2 004 03111 00 table 2 006 03117 + 19977 tzb tbl time 2 017 03134 backspace too far 2 001 03135 | 2 024 03159 backspace not far enough 2 001 03160 | 2 028 03188 undeterined error after bsp 2 001 03189 | 5 010 03199 work area 5 010 03209 00 read area 5 450 03659 read area 5 410 04069 read area overhang. 5 004 04073 check character delay 5 004 04077 correct for bsp read 5 004 04081 2 008 04089 5 002 04091 +a8 7 calculate and cmp 7 gap timings 7 04099 rad h 3029 find first hi-lo 04104 cmp 4 4672 hi no-delay 04109 trh k 4134 04114 cmp 4 4680 lo 04119 trh k 4144 04124 unl 7 4680 lo 04129 tr 1 4144 04134 unl 7 4672 hi 04139 tr 1 4114 04144 adm 6 4754 7 04149 tra i 01 4209 42 9 type out each bad gap 04154 cmp 4 4801 upper limit no delay 04159 trh k 4174 04164 cmp 4 4808 lower limit 04169 trh k 4209 7 04174 unl 7 01 4863 48w3 prepare and do typeout 04179 rnd e 0002 04184 spr 5 4880 of bad gap - no delay 04189 rad h 09 4812 4q/2 000 04194 spr 5 09 4870 4qx0 04199 sel 2 0500 04204 wr r 4860 bad gap t/o 7 04209 rad h 3037 find hi- lo for min dly 04214 cmp 4 4688 04219 trh k 4244 04224 cmp 4 4696 04229 trh k 4254 04234 unl 7 4696 04239 tr 1 4254 04244 unl 7 4688 04249 tr 1 4224 04254 adm 6 4764 7 04259 tra i 01 4319 43/9 type out each bad gap 04264 cmp 4 4801 04269 trh k 4284 04274 cmp 4 4808 04279 trh k 4319 7 04284 unl 7 01 4863 48w3 prepare and do typeout 04289 rnd e 0002 04294 spr 5 4880 minimum delay 04299 rad h 4815 008 04304 spr 5 4870 04309 sel 2 0500 04314 wr r 4860 bad gap t/o 7 04319 rad h 3045 find hi-lo for var. delay 04324 cmp 4 4704 hi var delay 04329 trh k 4354 04334 cmp 4 4712 lo 04339 trh k 4364 04344 unl 7 4712 lo 04349 tr 1 4364 04354 unl 7 4704 hi 04359 tr 1 4334 04364 adm 6 4774 7 04369 tra i 01 4464 44w4 type out each bad gap 04374 cmp 4 4801 upper limit - var delay 04379 trh k 4394 04384 cmp 4 4808 lower limit 04389 trh k 4464 7 04394 unl 7 01 4863 48w3 prepare and do typeout 04399 rnd e 0002 04404 spr 5 4880 bad gap - var. delay 04409 set b 0004 04414 lod 8 3213 delay 04419 unl 7 4089 04424 div w 4091 04429 aam @ 4089 04434 lda = 4089 04439 add g 4827 04444 rnd e 0002 04449 spr 5 4870 04454 sel 2 0500 04459 wr r 4860 bad gap t/o 7 04464 rad h 3053 find hi-lo 04469 cmp 4 4720 10 msec delay 04474 trh k 4499 04479 cmp 4 4728 lo 04484 trh k 4509 04489 unl 7 4728 lo 04494 tr 1 4509 04499 unl 7 4720 hi 04504 tr 1 4479 04509 adm 6 4784 7 04514 tra i 01 4574 45x4 typeout each bad gap 04519 cmp 4 4801 upper limit 10 msec delay 04524 trh k 4539 04529 cmp 4 4808 lower limit 04534 trh k 4574 7 04539 unl 7 01 4863 48w3 prepare and do typeout 04544 rnd e 0002 04549 spr 5 4880 of bad gap-10 msec delay 04554 lod 8 06 4821 4yk1 04559 spr 5 06 4870 4yp0 0100 04564 sel 2 0500 04569 wr r 4860 bad gap t/o 7 04574 cmp 4 02 2983 29q3 find hi-lo 04579 tre l 4634 rd after bsp 04584 rad h 3061 04589 cmp 4 4736 04594 trh k 4619 04599 cmp 4 4744 04604 trh k 4629 04609 unl 7 4744 04614 tr 1 4629 04619 unl 7 4736 04624 tr 1 4599 04629 adm 6 4794 7 04634 tra i 05 4644 4wu4 test for 915 halt 04639 tr 1 4649 04644 hlt j 22222 k222 915 off and start 04649 unl 7 01 4654 46v4 04654 sel 2 04659 trs o 4894 check for end of read 04664 tr 1 2319 do next timing 7 7 constants and work area 2 008 04672 000000 hi no delay 2 008 04680 999999 lo no delay 2 008 04688 000000 hi min delay 2 008 04696 999999 lo min delay 2 008 04704 000000 hi var delay 2 008 04712 9999999 lo var delay 2 008 04720 000000 hi fixed delay 2 008 04728 999999 lo fixed delay 2 008 04736 000000 hi bsp-rd delay 2 008 04744 999999 lo bsp-rd delay 2 010 04754 +a000000000 memory counter nd 2 010 04764 a000000000 min delay 2 010 04774 +a000000000 v.d. 2 010 04784 +a000000000 f.d. 2 010 04794 +a000000000 b.r.d. 2 007 04801 0000000 upper limit 2 007 04808 0000000 lower limit 2 004 04812 + 000 2 003 04815 +008 min go down micro-sec 2 002 04817 +24 variable dly increment 2 004 04821 0100 2 006 04827 + 00753 7 upper limit of acceptable 2 007 04834 0012080 729 ii gap time mylar 7 7 lower limit of acceptable 2 007 04841 0009173 729 ii gap time mylar 7 7 upper limit of acceptable 2 007 04848 0008053 729 iv gap time mylar 7 7 lower limit of acceptable 2 007 04855 0006115 729 iv gap time mylar 2 004 04859 2 025 04884 0200, 00.0 msec 00.0 msec 2 001 04885 | 7 7 7 do final calculations 7 and prepare typeout 7 04894 sgn t 14 7297 7br7 housekeeping 04899 adm 6 14 7297 7br7 sign hi-lows 04904 adm 6 14 4672 4fp2 04909 adm 6 14 4680 4fq0 04914 adm 6 14 4704 4g-4 04919 adm 6 14 4712 4gj2 04924 adm 6 14 4720 4gk0 04929 adm 6 14 4728 4gk8 04934 adm 6 14 4736 4gl6 04939 adm 6 14 4744 4gm4 04944 adm 6 14 4688 4fq8 04949 adm 6 14 4696 4fr6 04954 set b 15 0019 0+a9 7 04959 unl 7 01 7255 72v5 write first two lines 04964 set b 0004 04969 lod 8 2994 group counter 04974 set b 0003 04979 unl 7 7269 to t/o 04984 sel 2 0500 04989 wr r 7451 space 04994 wr r 7251 04999 wr r 7278 7 05004 rcv u 7412 calculate no delay and 05009 tmt 9 15 7298 7bi8 prepare typeout 05014 tmt 9 15 7317 7ca7 05019 rad h 4680 05024 rnd e 0002 05029 spr 5 7417 low 05034 rad h 4672 05039 sub p 4680 05044 rnd e 0002 05049 spr 5 7422 05054 set b 0004 05059 lod 8 2994 range 05064 set b 0003 05069 st f 4859 05074 rad h 4754 05079 div w 4859 05084 rnd e 0002 05089 spr 5 7427 average 05094 wr r 7412 7 05099 rcv u 7412 calculate min. delay and 05104 tmt 9 15 7298 7bi8 prepare typeout 05109 tmt 9 15 7336 7cc6 05114 rad h 4696 05119 rnd e 0002 05124 spr 5 7417 low 05129 rad h 4688 05134 sub p 4696 05139 rnd e 0002 05144 spr 5 7422 range 05149 rad h 4764 05154 div w 4859 05159 rnd e 0002 average 05164 spr 5 7427 05169 wr r 7412 7 05174 rcv u 7412 calculate variable delay 05179 tmt 9 15 7298 7bi8 and prepare typeout 05184 tmt 9 15 7355 7ce5 05189 rad h 4712 05194 rnd e 0002 05199 spr 5 7417 05204 rad h 4704 low 05209 sub p 4712 05214 rnd e 0002 05219 spr 5 7422 rng 05224 rad h 4774 05229 div w 4859 05234 rnd e 0002 average 05239 spr 5 7427 05244 wr r 7412 7 05249 rcv u 7412 calculate 10 msec delay 05254 tmt 9 15 7298 7bi8 and prepare typeouts 05259 tmt 9 15 7374 7cg4 05264 rad h 4728 05269 rnd e 0002 05274 spr 5 7417 05279 rad h 4720 low 05284 sub p 4728 05289 rnd e 0002 05294 spr 5 7422 rng 05299 rad h 4784 05304 div w 4859 05309 rnd e 0002 05314 spr 5 7427 average 05319 wr r 7412 7 05324 rcv u 7412 calculate read after bsp 05329 tmt 9 15 7298 7bi8 and prepare typeout 05334 tmt 9 15 7393 7ci3 05339 rad h 4744 05344 rnd e 0002 05349 spr 5 7417 low 05354 rad h 4736 05359 sub p 4744 05364 rnd e 0002 05369 spr 5 7422 05374 rad h 4794 05379 rnd e 0004 05384 spr 5 7427 average 05389 wr r 7412 05394 sel 2 0912 05399 trs o 5409 bypass 400 ms dly 05404 tr 1 5414 to 400 ms dly 05409 tr 1 7459 to creep test 7 7 delay 400 ms wr 7 housekeeping 05414 set b 0005 05419 lod 8 6073 set up dly in ms 05424 unl 7 6010 unl dly to t/o 05429 sub p 6059 5 msec dly for ntr loop 05434 set b 0006 05439 lng d 0004 05444 div w 6065 05449 rnd e 0003 05454 set b 0004 05459 unl 7 5579 unl to dly 05464 rad h 11 6484 6mh4 051 number of records 7 05469 set b 0079 set up ref record 05474 rcv u 6084 05479 snd / 6079 05484 unl 7 01 5489 54y9 05489 sel 2 05494 iof 3 0000 turn ti off 05499 wr r 6080 400 x,s 05504 trs o 01 5529 55s9 05509 tr 1 5504 05514 wr r 6495 @@@@@@ 05519 trs o 01 5529 55s9 05524 tr 1 5519 7 05529 sub p 11 6488 6mh8 001 from rec ctr 05534 trz n 11 5609 5o+9 05539 set b 12 0000 0+00 total loop gives a 05544 set b 13 0000 0+ 0 dly 10000 times 05549 set b 14 0000 0+-0 the set instruction 05554 set b 15 0000 0++0 05559 set b 15 0010 0+a0 05564 set b 14 0010 0+j0 05569 set b 13 0010 0+/0 05574 set b 12 0010 0+10 05579 set b 0000 dly 00400 ms wr 05584 ntr x 12 5579 5e79 05589 ntr x 13 5574 5ex4 05594 ntr x 14 5569 5eo9 05599 ntr x 15 5564 5ef4 05604 tr 1 5514 wr next rec 7 05609 wtm 3 0001 05614 bsp 3 0004 05619 bsp 3 01 0004 00 4 7 05624 unl 7 01 5629 56s9 05629 sel 2 05634 rd y 01 6920 69s0 over t m 05639 iof 3 0000 turn t i off 05644 rcv u 6919 blank last 30 pos of rd fld 05649 blm $ 0006 .30 positions 7 05654 rcv u 6919 set rcv for tzb tbl 05659 rad h 3091 0 05664 lod 8 06 5669 5wo9 05669 nop a 5704 05674 unl 7 06 2394 2tr4 05679 unl 7 03 2390 23i0 1 05684 rad h 10 6505 6n-5 51 05689 wr r 02 0510 05j0 set rec ctr for 51 rec 05694 rd y 6520 05699 tr 1 20004 -004 to tzb tbl 7 05704 sub p 10 6502 6n-2 01 return from table exit 05709 trz n 10 5719 5pj9 05714 tr 1 20004 -004 7 05719 lod 8 06 5724 5xk4 housekeeping 05724 nop a 6924 05729 unl 7 06 5779 5xp9 05734 rad h 3073 reset hi 05739 unl 7 7214 05744 rad h 3080 reset low 05749 unl 7 7221 05754 set b 0010 05759 lod 8 7249 reset ctr 05764 unl 7 7231 05769 nop a 6949 05774 lod 8 06 5769 5xo9 7 05779 lda = 05784 cmp 4 06 5779 5xp9 05789 tre l 5879 to compute and t/o 05794 sub p 3012 39974 05799 shr c 0001 div by 10 05804 mpy v 3018 05 tzb time 05809 add g 6509 035 dly before entering tbz 05814 sub p 4081 05819 sub p 4073 chk char dly 7 05824 cmp 4 7214 hi 05829 trh k 5854 05834 cmp 4 7221 low 05839 trh k 5864 05844 unl 7 7221 low 05849 tr 1 5864 05854 unl 7 7214 hi 05859 tr 1 5834 05864 adm 6 7231 add to ctr 05869 adm 6 05 5779 5xx9 step lda +5 05874 tr 1 5779 7 05879 sgn t 5929 compute and typeout 05884 adm 6 7214 05889 adm 6 7221 05894 rcv u 6018 05899 set b 15 0019 0+a9 05904 tmt 9 15 5980 5ih0 05909 tmt 9 15 5999 5ii9 05914 rad h 7221 05919 rnd e 0002 05924 spr 5 6023 low 05929 rad h 7214 05934 sub p 7221 05939 rnd e 0002 05944 spr 5 6028 range 05949 rad h 7231 05954 div w 6514 0050 05959 rnd e 0002 05964 spr 5 6033 average 05969 sel 2 0500 05974 wr r 6018 7 05979 tr 1 7459 to creep test 7 7 constant 2 019 05998 00.0 00.0 00.0 msc 2 019 06017 delay 0400 ms,wr 2 019 06036 t/o 2 019 06055 area 2 001 06056 | 2 003 06059 + 05 msec dly for ntr loop 2 001 06060 | 2 001 06061 +1 2 004 06065 + 101 2 003 06068 + 05 tzb instruction time 2 005 06073 00400 dly in milli sec 2 005 06079 00 xxxxx 2 050 06129 00 2 050 06179 2 050 06229 2 050 06279 2 050 06329 2 050 06379 2 050 06429 2 045 06474 2 005 06479 xxxxx 2 001 06480 | 2 004 06484 + 051 2 004 06488 + 001 2 005 06494 00 2 005 06499 @@@@@ 2 001 06500 | 2 002 06502 +01 2 003 06505 + 051 2 004 06509 + 035 dly before entering tbl 2 005 06514 + 0050 2 001 06515 | 5 400 06919 00 read 2 050 06969 2 050 07019 area 2 050 07069 650 positions 2 050 07119 2 050 07169 2 001 07170 | 2 002 07172 00 2 010 07182 0000000000 2 001 07183 | 2 008 07191 000000 hi 400 ms dly 2 008 07199 999999 low 400 ms dly 2 008 07207 a0000000 fix dly 400 ms 2 007 07214 + 000000 hi 2 007 07221 + 999999 low 2 010 07231 +a000000000 ctr 2 008 07239 +a0000000 2 010 07249 +a000000000 7 constants 2 027 07276 0200-729 ii, 224 groups 2 001 07277 | 2 017 07295 low rng average 2 001 07296 | 2 001 07297 a 2 019 07316 00.0 00.0 00.0 msc 2 019 07335 no delay while wr 2 019 07354 min delay while wr 2 019 07373 variable delay, wr 2 019 07392 delay 10 misc, wr 2 019 07411 rd after backspace 2 019 07430 type 2 019 07449 out 2 001 07450 | 2 001 07451 space 2 001 07452 | 7 7 creep test 07459 rad h 15 8627 8fb7 housekeeping 07464 rad h 8621 reset memory counter 07469 st f 8838 7 07474 lod 8 06 7479 7up9 modify return transfer 07479 nop a 7649 07484 unl 7 06 2394 2tr4 07489 unl 7 03 2390 23i0 7 07494 unl 7 01 7499 74z9 write tape marks 07499 sel 2 07504 wtm 3 0001 07509 wtm 3 0001 07514 iof 3 0000 7 07519 ptw 3 0029 skip and write a 07524 wr r 8595 07529 trs o 03 7534 75c4 07534 trs o 02 8104 81-4 chl chk 07539 trs o 8139 unexpected e.o.f. 7 07544 ptw 3 0029 skip and write b 07549 wr r 8605 07554 trs o 03 7559 75e9 07559 trs o 02 8104 81-4 07564 trs o 8139 unexpected e.o.f. 7 07569 ptw 3 0029 skip and write b 07574 wr r 8605 07579 trs o 03 7559 75e9 07584 trs o 02 8104 81-4 07589 trs o 8139 unexpected e.o.f. 7 07594 wr r 02 0030 00l0 backspace three records 07599 bsp 3 0004 07604 rcv u 8844 07609 blm $ 0008 07614 rad h 8627 7 07619 set b 10 0001 0--1 read first record and 07624 lod 8 10 8603 8o-3 time second record 07629 wr r 02 0020 00k0 set record counter 07634 rcv u 8849 07639 rd y 8840 07644 tr 1 20004 -004 7 07649 cmp 4 10 8840 8qm0 check record read 07654 lod 8 06 7659 7wn9 07659 nop a 7684 07664 unl 7 06 2394 2tr4 07669 rad h 8622 07674 tre l 20004 -004 to table 07679 tr 1 8169 out of step 7 07684 st f 8889 compute time of basic skip 07689 rcv u 8654 07694 snd / 8854 07699 lda = 8654 07704 sub p 8633 39974 07709 shr c 0001 divide by ten 07714 mpy v 8636 05 tzb time 07719 st f 8904 table time 07724 rad h 8889 times thru table 07729 mpy v 8641 19977 07734 add g 8904 07739 st f 8665 07744 lod 8 06 7749 7xm9 07749 nop a 7679 07754 unl 7 06 2394 2tr4 07759 set b 10 0001 0--1 07764 lod 8 10 8603 8o-3 7 07769 bsp 3 0004 backspace write ten times 07774 set b 0000 07779 wr r 8605 07784 bsp 3 0004 07789 set b 0000 07794 wr r 8605 07799 bsp 3 0004 07804 set b 0000 07809 wr r 8605 07814 bsp 3 0004 07819 set b 0000 07824 wr r 8605 07829 bsp 3 0004 07834 set b 0000 07839 wr r 8605 07844 bsp 3 0004 07849 set b 0000 07854 wr r 8605 07859 bsp 3 0004 07864 set b 0000 07869 wr r 8605 07874 bsp 3 0004 07879 set b 0000 07894 wr r 8605 07899 bsp 3 0004 07904 set b 0000 07909 wr r 8605 07914 bsp 3 0004 7 07919 tra i 03 7929 79b9 optional stop after 07924 tr 1 7934 write backspace test 07929 hlt j 33333 c333 7 07934 wr r 02 0020 00k0 backspace to time creep 07939 bsp 3 0004 07944 rcv u 8844 07949 blm $ 0008 07954 rad h 8622 7 07959 wr r 02 0020 00k0 measure creep 07964 rcv u 8849 07969 rd y 8840 07974 tr 1 20004 -004 7 07979 cmp 4 10 8840 8qm0 check for correct gap 07984 lod 8 06 7989 7zq9 07989 nop a 8014 07994 unl 7 06 2394 2tr4 07999 rad h 8622 08004 tre l 20004 -004 to table 08009 tr 1 8339 out of step 7 08014 st f 8894 compute time-skip plus creep 08019 rcv u 8884 08024 snd / 8854 08029 lda = 8884 08034 sub p 8633 39974 08039 shr c 0001 divide by ten 08044 mpy v 8636 05 tzb time 08049 st f 8904 table time 08054 rad h 8894 times thru table 08059 mpy v 8641 19977 08064 add g 8904 08069 sub p 8665 basic skip 08074 set b 0005 08079 adm 6 8838 to counter 08084 add g 15 8623 8fb3 08089 cmp 4 15 8655 8fe5 08094 tre l 8494 08099 tr 1 7474 7 08104 sel 2 0500 chl check on write-start 08109 unl 7 01 8760 87w0 to restart creep test 08114 wr r 8724 08119 unl 7 01 8124 81s4 08124 sel 2 08129 hlt j 0005 08134 tr 1 7459 7 08139 iof 3 0000 unexpected end of file- 08144 rwd 3 0002 restart creep test 08149 sel 2 0500 08154 unl 7 01 8805 88 5 08159 wr r 8762 08164 tr 1 7459 7 08169 trs o 03 8174 81g4 program out of step 08174 cmp 4 10 8850 8qn0 08179 tre l 8204 08184 lod 8 10 8612 8oj2 08189 cmp 4 10 8850 8qn0 08194 tre l 8254 08199 tr 1 8304 7 08204 sel 2 0500 tape stepping backward-start 08209 unl 7 01 8827 88s7 to place back in step 08214 wr r 8807 and proceed with test 08219 unl 7 01 8224 82s4 08224 sel 2 08229 hlt j 0006 08234 bsp 3 0004 08239 bsp 3 0004 08244 iof 3 0000 08249 tr 1 7619 7 08254 sel 2 0500 tape stepped forward-start 08259 unl 7 01 8827 88s7 to place back in step 08264 wr r 8807 and proceed with test 08269 unl 7 01 8274 82x4 08274 sel 2 08279 hlt j 0007 08284 bsp 3 0004 08289 bsp 3 0004 08294 bsp 3 0004 08299 tr 1 7619 7 08304 sel 2 0500 undetermined error after 08309 unl 7 01 8698 86z8 backspace-start will 08314 wr r 8666 restart the creep test 08319 unl 7 01 8324 83s4 on the present drive 08324 sel 2 08329 hlt j 0008 08334 tr 1 7459 7 08339 trs o 03 8344 83d4 program out of step 08344 cmp 4 10 8850 8qn0 08349 tre l 8374 08354 lod 8 10 8612 8oj2 08359 cmp 4 10 8850 8qn0 08364 tre l 8434 08369 tr 1 8304 7 08374 sel 2 0500 tape stepped backward-start 08379 unl 7 01 8827 88s7 to proceed with test 08384 wr r 8806 08389 unl 7 01 8394 83z4 08394 sel 2 08399 hlt j 0009 08404 bsp 3 0004 08409 set b 10 0001 0--1 08414 lod 8 10 8603 8o-3 08419 bsp 3 0004 08424 iof 3 0000 08429 tr 1 7944 7 08434 sel 2 0500 tape stepped forward-start 08439 unl 7 01 8827 88s7 to proceed with test 08444 wr r 8806 08449 unl 7 01 8454 84v4 08454 sel 2 08459 hlt j 0010 08464 set b 10 0001 0--1 08469 lod 8 10 8603 8o-3 08474 bsp 3 0004 08479 bsp 3 0004 08484 bsp 3 0004 08489 tr 1 7944 7 08494 st f 15 8908 8i+8 compile and compute 08499 rad h 8908 number of times 08504 mpy v 8625 10 08509 st f 8904 08514 rad h 8838 memory counter 08519 div w 8904 7 08524 nop a 8539 sw for 729 iv 08529 mpy v 8645 tape speed 08534 tr 1 8544 08539 mpy v 8649 tape speed 7 08544 rnd e 0005 type creep 08549 set b 0004 08554 spr 5 8718 08559 sel 2 0500 08564 wr r 8700 08569 unl 7 01 8574 85x4 08574 sel 2 08579 rwd 3 0002 08584 tr 1 1089 7 7 constants and work area 2 005 08589 + 0000 2 003 08592 + 00 2 009 08603 00 aaaaaaaaa 2 001 08604 | 2 003 08607 00 bbb 2 001 08608 | 2 003 08612 00 ccc 2 001 08613 | 2 008 08621 + 0000000 2 001 08622 +0 2 001 08623 +1 2 002 08625 +10 number of wr bsp per pass 2 002 08627 + 0 2 006 08633 + 39974 2 003 08636 + 05 2 003 08641 +19977 2 004 08645 +0750 tape speed 729 ii 2 004 08649 +1125 tape speed 729 iv 2 005 08654 00 00000 basic unl 2 001 08655 3 times through creep section 2 010 08665 0000000000 basic in micro sec 2 033 08698 undetermined error after bsp 2 001 08699 | 2 023 08722 bsp wr creep0 00.00 in. 2 001 08723 | 2 037 08760 chl chk on wr,during creep 2 001 08761 | 2 044 08805 unexpected e.o.f., restarting creep test 2 001 08806 | 2 021 08827 tape out of step 2 001 08828 | 5 010 08838 memory counter 5 010 08849 00 read r1 5 005 08854 00 read r2 5 005 08859 00 read r3 5 020 08879 dummy read area 5 005 08884 00 work area 5 005 08889 00 times thru table 1st 5 005 08894 00 times thru table 2nd 5 010 08904 work area 5 004 08908 work area 7 7 will bypass this test 7 08914 unl 7 01 8919 89/9 tape drive must ready 08919 sel 2 08924 trs o 03 8929 89b9 7 7 7 08929 set b 15 0001 0++1 place g.m. 08934 lod 8 15 9169 9af9 g.m. 08939 unl 7 15 39999 iii9 08944 lod 8 15 18570 yeg0 remove gm from 8tr06 08949 lod 8 15 18587 yeh7 08954 lod 8 15 18629 yfb9 08959 unl 7 02 18570 y5p0 08964 unl 7 02 18587 y5q7 08969 unl 7 02 18629 y6k9 08974 set b 14 0001 0+-1 08979 lod 8 14 18638 yfl8 08984 unl 7 02 18638 y6l8 remove g.m. from 8ld01 08989 nop a 9039 sw 729 iv 7 08994 lod 8 06 8999 8zr9 housekeep 729 ii 08999 nop a 13360 t360 lower limit mod ii 09004 unl 7 06 9084 9 q4 09006 rad h 10 9153 9jn3 555 09014 st f 10 9162 9jo2 09019 lda = 9024 09024 nop a 25570 n570 upper limit mod ii 09029 unl 7 9168 09034 tr 1 9084 7 09039 lod 8 06 9044 9 m4 housekeeping for 729 iv 09044 nop a 13360 t360 09049 unl 7 06 9084 9 q4 09054 rad h 10 9157 9jn7 555 09059 st f 10 9162 9jo2 09064 lda = 9069 09069 nop a 26125 o125 upper limit 729 iv 09074 unl 7 9168 09079 tr 1 9084 7 09084 wr r 0000 write long record 09089 lda = 9084 09094 cmp 4 9168 09099 trh k 9129 7 09104 rwd 3 0002 rewind 09109 lda = 09 9084 9-y4 09114 add g 09 9162 9jw2 09119 ula * 09 9084 9-y4 09124 tr 1 9084 7 09129 unl 7 15 18570 yeg0 replace gm 09134 unl 7 15 18587 yeh7 09139 unl 7 15 18629 yfb9 09144 unl 7 14 18638 yfl8 09149 tr 1 1089 7 7 constants 2 004 09153 + 555 bits per in, mod ii hi den 2 004 09157 + 555 bits per in, mod iv hi den 2 005 09162 00000 decrement 2 006 09168 000000 2 001 09169 | 7 2 004 09157 + 555 bits per in, mod iv hi den 2 005 09162 00000 decrement 2 006 09168 000000 2 001 09169 | 7 7