7 8tc15 august 28,1961 7 00004 chr 3 13 0000 0+ 0 channel reset 00009 eem 3 14 0000 0+-0 enter 7080 mode 00014 lim , 07 0000 0 +0 keep out of interrupt mode 00019 spc , 0000 reset spc to 0000 7 00024 sel 2 0500 00029 wr r 1400 housekeeping type-outs 00034 wr r 1466 00039 wr r 1453 00044 hlt j 0000 7 00049 set b 01 0004 00 4 load initial zeros 00054 lod 8 01 1229 12s9 into asu 01 and 00059 set b 02 0004 00-4 asu 02 bank 01 00064 lod 8 02 1229 12k9 00069 set b 03 0004 00+4 00074 lod 8 03 1244 12d4 store 001 in asu 03 00079 set b 06 0006 0 -6 00084 lod 8 06 1254 1sn4 store 000005 in asu 06 00089 set b 07 0006 0 +6 00094 lod 8 07 1246 1sd6 store 000100 in asu 07 00099 set b 05 0004 0 4 00104 lod 8 05 1254 1sv4 store 0005 in asu 05 00109 set b 08 0002 0-02 00114 lod 8 08 1264 1k64 store 24 in asu 08 00119 set b 04 0001 0 01 00124 lod 8 04 1754 1x54 store a in asu 04 00129 rcv u 1300 00134 blm $ 01 0050 00v0 7 00139 lfc , 02 1234 12l4 restore initial 00144 ufc , 03 0219 02a9 instruction addresses 00149 lfc , 02 1364 13o4 00154 ufc , 03 0244 02d4 00159 lfc , 02 1239 12l9 00164 ufc , 03 0284 02h4 00169 lfc , 02 1369 13o9 00174 ufc , 03 0309 03+9 00179 unl 7 04 3065 3 65 resetting 00184 unl 7 04 3245 3s45 nops 00189 unl 7 04 1160 1/60 00194 unl 7 04 3690 3w90 00199 unl 7 04 4275 4s75 00204 unl 7 04 4900 4z00 00209 unl 7 04 5895 5y95 00214 unl 7 04 4710 4x10 7 00219 sel 2 2001 idenifying the ready tape 00224 trr o 01 0234 02t4 units, addressed 01 00229 tr 1 0264 00234 set b 0004 00239 lod 8 0219 00244 unl 7 1304 00249 sdh 3 0038 set density high 00254 add g 01 1754 17v4 00259 aam @ 06 0244 0sm4 00264 cmp 4 08 0217 0k17 00269 tre l 0284 00274 aam @ 07 0219 0sa9 00279 tr 1 0219 7 00284 sel 2 2002 idenifying the ready tape 00289 trr o 01 0299 02z9 units, addressed 02 00294 tr 1 0329 00299 set b 0004 00304 lod 8 0284 00309 unl 7 1329 00314 sdh 3 0038 set density high 00319 add g 01 1754 17v4 00324 aam @ 06 0309 0t-9 00329 cmp 4 08 0282 0k82 00334 tre l 0349 00339 aam @ 07 0284 0sh4 00344 tr 1 0284 7 00349 set b 12 0004 0+04 testing for 2 channels ready 00354 lod 8 12 2214 2b14 00359 cmp 4 12 1309 1c09 00364 tre l 0374 00369 tr 1 0404 00374 cmp 4 12 1334 1c34 00379 tre l 0389 00384 tr 1 0404 00389 sel 2 0500 00394 wr r 2215 t-o *2 chans not rdy* 00399 sgn t 0640 7 00404 cmp 4 01 1229 12s9 checking for at least 00409 tre l 0419 one ready tape unit 00414 tr 1 0449 00419 cmp 4 02 1229 12k9 00424 tre l 0434 00429 tr 1 0449 00434 sel 2 0500 00439 wr r 1373 t-o *no tape units 1 or 2 rdy 00444 tr 1 0659 re-identify all rdy tape units 7 00449 unl 7 03 1279 12g9 checking for two ready 00454 unl 7 03 1284 12h4 tape units on all 00459 lfc , 02 1504 15-4 available channels 00464 ufc , 03 0499 04i9 00469 lfc , 02 1354 13n4 00474 ufc , 03 0484 04h4 00479 set b 0004 00484 lod 8 0000 00489 unl 7 0504 compare all 00494 set b 0002 ready 02 units 00499 lod 8 1302 with each ready 00504 cmp 4 1327 01 unit 00509 tre l 0559 00514 cmp 4 05 1284 1sy4 00519 tre l 0539 00524 adm 6 03 1284 12h4 00529 aam @ 06 0504 0V-4 00534 tr 1 0494 00539 unl 7 1547 00544 sel 2 0500 t-o only one tape unit 00549 wr r 1510 ready on channel xx 00554 sgn t 15 0640 0fd0 00559 unl 7 03 1284 12h4 00564 cmp 4 05 1279 1sx9 00569 tre l 0589 00574 adm 6 03 1279 12g9 00579 aam @ 06 0499 0ur9 00584 tr 1 0479 7 00589 unl 7 03 1279 12g9 modify previous routine 00594 nop a 0639 00599 sgn t 15 0590 0ei0 00604 lfc , 02 1504 15-4 00609 ufc , 03 0504 05+4 00614 lfc , 02 1509 15-9 00619 ufc , 03 0499 04i9 0004 00624 lfc , 02 1359 13n9 00629 ufc , 03 0484 04h4 00634 tr 1 0494 00639 unl 7 04 0590 0v90 00644 nop a 0654 00649 tr 1 0669 to the rewinding routine 00654 unl 7 04 0640 0w40 00659 tad i 04 0049 0 49 914 switch 00664 tr 1 18219 y219 7 00669 lfc , 02 1364 13o4 rewinding tape units 00674 ufc , 03 0689 06h9 address 01 00679 unl 7 03 1279 12g9 00684 set b 0004 00689 lod 8 0000 00694 ufc , 03 0699 06i9 00699 sel 2 0000 00704 iof 3 0000 00709 trs o 0714 00714 rwd 3 0002 00719 adm 6 15 2405 2d+5 00724 adm 6 15 2455 2de5 00729 cmp 4 01 1279 12x9 00734 tre l 0754 to next rewinding routine 00739 adm 6 03 1279 12g9 00744 aam @ 06 0689 0wq9 00749 tr 1 0684 7 00754 lfc , 02 1369 13o9 rewinding tape units 00759 ufc , 03 0774 07g4 address 02 00764 unl 7 03 1279 12g9 00769 set b 0004 00774 lod 8 0000 00779 ufc , 03 0784 07h4 00784 sel 2 0000 00789 iof 3 0000 00794 trs o 0799 00799 rwd 3 0002 00804 adm 6 15 2620 2fb0 00809 cmp 4 01 1279 12x9 00814 tre l 0834 to field-generation routine 00819 adm 6 03 1279 12g9 00824 aam @ 06 0774 0xp4 00829 tr 1 0769 7 7 feld generation routine 7 generate 7 2,000 character 7 fields 7 00834 set b 0006 restoring addresses 00839 lfc , 02 1024 10k4 00844 ufc , 03 0909 09+9 00849 lod 8 1030 00854 ula * 0899 00859 ula * 0919 00864 ula * 0929 00869 set b 12 0002 0+02 put 00 in asu 12 00874 lod 8 12 1038 1+38 00879 set b 13 0006 0+ 6 put 002500 in asu 13 00884 lod 8 13 1036 1+t6 00889 set b 14 0006 0+-6 put 000010 in asu 14 00894 lod 8 14 1042 1+m2 7 00899 rcv u 0000 generation of fields 00904 set b 0002 00909 snd / 0000 00914 set b 0198 00919 snd / 0000 00924 set b 0200 00929 snd / 0000 00934 set b 0002 00939 snd / 1124 00944 aam @ 13 0899 0hz9 increment addresses 00949 aam @ 13 0919 0i/9 00954 aam @ 13 0929 0is9 00959 aam @ 14 0909 0i-9 00964 add g 12 1045 1+45 add 01 to asu 12 00969 cmp 4 12 1047 1+47 compare 07 to asu 12 00974 tre l 0984 transfer on equal 00979 tr 1 0899 7 00984 rcv u 25004 n004 generate a field of 250 00989 set b 0002 characters at 25,000 00994 snd / 1054 00999 set b 0048 01004 snd / 25004 n004 01009 set b 0002 01014 snd / 1124 01019 tr 1 1134 7 7 data for field gen. routine 2 001 01020 3 01024 1054 1054 2 006 01030 030004 2 006 01036 002500 2 006 01042 000010 2 003 01045 a0a 2 002 01047 07 2 010 01059 00 MMMM66666M 2 010 01069 00 llll88888l 2 010 01079 00 qqqq44444q 2 010 01089 00 xxxx33333x 2 010 01099 00 hhhh22222h 2 010 01109 00 2600126001 2 010 01119 00 2600226002 2 001 01120 | 2 001 01121 | 2 001 01122 | 2 001 01123 | 2 001 01124 | 2 001 01125 | 2 001 01126 | 2 001 01127 | 2 001 01128 | 2 001 01129 | 7 01134 set b 0010 store record marks at 01139 lod 8 1939 end of tct field 01144 unl 7 1499r u99r 01149 tr 1 4969 transfer to routine 001 7 01154 tad i 04 1164 1/64 end-of-program routine 01159 tr 1 18219 y219 01164 nop a 1179 01169 sgn t 15 1160 1af0 01174 unl 7 03 1299 12i9 01179 set b 0004 01184 lod 8 1255 01189 cmp 4 1299 01194 tre l 1209 01199 adm 6 03 1299 12i9 01204 tr 1 0834 01209 unl 7 04 1160 1/60 01214 sel 2 0500 t-o *z* after every 01219 wr r 2208 50 passes of the program 01224 tr 1 0049 7 7 data ands working areas 2 005 01229 00 00000 2 005 01234 00 02001 2 005 01239 00 02002 2 005 01244 00 a0001 2 010 01254 00 0004000005 2 005 01259 00 00000 2 005 01264 00 00024 2 005 01269 00 00012 2 005 01274 00 00016 2 005 01279 00 a counting area-a 2 005 01284 00 a counting area-b 2 005 01289 00 a ch chk 3-pass counting area 5 005 01294 00 multi-pass counting areas 5 005 01299 00 5 025 01324 00 working area used for storing 5 025 01349 00 channel select addresses 2 001 01350 3 01354 00 1509 1509 2 001 01355 3 01359 00 1504 1504 2 001 01360 3 01364 00 1304 1304 2 001 01365 3 01369 00 1329 1329 2 029 01398 no tape units 1 or 2 ready 2 001 01399 | 2 045 01444 make ready tape units 1 and 2 on all channels 2 005 01449 | 2 015 01464 901 to prog. 2 001 01465 | 2 025 01490 mod iv tapes must be used 2 001 01491 | 2 005 01499 00 00000 2 001 01500 3 01504 00 1302 1302 2 001 01505 3 01509 00 1327 1327 2 038 01547 only one tape unit ready on channel xx 2 002 01549 | 2 005 01554 00 0-00- 60,000 2 005 01559 00 00080 2 005 01564 00 00600 2 005 01569 00 00250 2 005 01574 00 00003 2 010 01584 00 000020000 2 005 01589 00 0-00m 60,004 2 005 01594 00 0k99- 62,990 2 005 01599 00 00000 30000*30000*43500*45000 2 005 01604 00 02500 5 025 01629 00 ch-chk type-out work area 2 025 01654 zz zz zz zz zz 2 029 01683 status trgrs-- , , , , , 2 001 01684 | 2 020 01704 00 chan chk 001-wr 2 001 01705 | 2 005 01710 001- 2 011 01721 long write 2 001 01722 | 2 020 01744 00 chan chk 001-rd 2 001 01745 | 2 005 01754 00 a000a 5 005 01759 final-address-word work area 2 024 01783 channel address word 2 001 01784 | 2 014 01798 actual--zzzzzz 2 001 01799 | 2 014 01813 correct-zzzzzz 2 001 01814 | 2 014 01828 005-100 passes 2 001 01829 | 2 014 01843 00x-100 passes 2 001 01844 | 2 009 01853 005-901 2 001 01854 | 2 005 01859 00 -24r 60,249 2 005 01864 00 +249 30,249 2 001 01865 0 3 01869 00 1874 1874 2 025 01894 00 0k00-0noo-0q00-0a00-0d00- 2 015 01909 00 001-rd zzzz 2 005 01914 |0000 2 006 01920 001250 2 009 01929 000750000 2 001 01930 # 2 001 01931 # 2 001 01932 # 2 001 01933 # 2 005 01938 # 2 001 01939 # 2 014 01953 00x-tc,901 2 001 01954 | 2 009 01963 00x-901 2 001 01964 | 2 015 01979 00 00x-wr zzzz 2 005 01984 00 |0000 2 001 01985 3 01989 00 2159 2159 2 001 01990 3 01994 00 2149 2149 2 001 01995 3 01999 00 2154 2154 2 001 02000 z 3 02004 00 2859 2859 2 001 02005 z 3 02009 00 2994 2994 2 001 02010 3 02014 00 3499 3499 2 001 02015 3 02019 00 3479 3479 2 005 02024 00 08000 2 005 02029 00 0x500 17,500 2 005 02034 00 01500 1,500 2 005 02039 00 04250 4,250 2 005 02044 00 12345 2 005 02049 00 67890 2 001 02050 z 3 02054 00 4099 4099 2 001 02055 z 3 02059 00 3974 3974 2 005 02064 00 0+249 30,249 2 005 02069 00 0274r 42,749 2 005 02074 00 0524r 45,249 2 005 02079 00 0+000 30,000 2 005 02084 00 0250- 42,500 2 005 02089 00 0500- 45,000 2 001 02090 z 3 02094 00 4584 4584 2 001 02095 z 3 02099 00 4574 4574 2 001 02100 z 3 02104 00 2809 2809 2 001 02105 z 3 02109 00 2799 2799 2 001 02110 z 3 02114 00 5149 5149 2 001 02115 z 3 02119 00 5329 5329 2 001 02120 z 3 02124 00 5509 5509 2 001 02125 z 3 02129 00 5689 5689 2 001 02130 3 02134 00 4969 4969 2 005 02139 00 00750 2 005 02144 00 00560 2 005 02149 00 0451- 44,510 2 005 02154 00 0791- 2 025 02179 00 0b0100d500g0100i5100201- 2 001 02180 z 3 02184 00 4049 4049 2 001 02185 z 3 02189 00 2934 2934 2 001 02190 3 02194 00 1989 1989 2 001 02195 3 02199 00 1994 1994 2 001 02200 3 02204 00 1999 1999 2 004 02208 00 000z 2 001 02209 | 2 005 02214 2 015 02229 2 chns not rdy 7 7 start of common tape movement 7 program for rotuines 001-004 7 02234 set b 07 0004 0 +4 02239 lod 8 07 1563 1vf3 02244 set b 08 0006 0-06 02249 lod 8 08 1569 1n69 blanking 02254 set b 03 0004 00+4 read in 02259 lod 8 03 1244 12d4 areas with 02264 lfc , 02 1589 15q9 zeroes 02269 ufc , 03 2304 23+4 02274 unl 7 03 1279 12g9 0001 stored in asu 03 02279 set b 0250 0060 stored in asu 07 02284 unl 7 27249 p249 000250 stored in asu 08 02289 set b 0010 store 10 record marks 02294 lod 8 1939 at end of master zero- 02299 unl 7 27259 p259 generating area 02304 rcv u 0000 02309 tmt 9 27004 p004 02314 cmp 4 07 1279 1sg9 02319 tre l 2339 zero-blanking completed 02324 aam @ 08 2304 2l04 02329 adm 6 03 1279 12g9 02334 tr 1 2304 7 02339 unl 7 03 1289 12h9 reset 3-pass chan-chk counter 02344 unl 7 03 1279 12g9 storing 10 02349 lfc , 02 1594 15r4 group marks 02354 ufc , 03 2374 23g4 in front of 02359 set b 08 0006 0-06 each unloading area 02364 lod 8 08 1577 1n77 02369 set b 13 0010 0+/0 003000 in asu 08 02374 rcv u 0000 02379 tmt 9 13 1120 1as0 02384 cmp 4 01 1279 12x9 02389 tre l 2409 group-mark storage completed 02394 adm 6 03 1279 12g9 02399 aam @ 08 2374 2l74 increment rcv addr by 3000 02404 tr 1 2369 7 02409 nop a 2579 02414 unl 7 03 1279 12g9 testing channel 02419 lfc , 02 1364 13o4 readiness prior 02424 ufc , 03 2434 24c4 to writing of 02429 set b 0004 02434 lod 8 0000 records 02439 ufc , 03 2444 24d4 02444 sel 2 0000 02449 trr o 01 2459 24v9 02454 tr 1 2579 01 not ready test 02 02459 nop a 2539 02464 set b 0004 02469 lod 8 1364 02474 unl 7 2484 02479 set b 0004 02484 lod 8 1304 02489 unl 7 2494 02494 sel 2 0000 02499 set b 0001 02504 lod 8 2494 02509 cmp 4 1550 02514 tre l 2534 02519 skp 3 0009 02524 aam @ 06 2484 2uq4 02529 tr 1 2479 02534 sgn t 15 2455 2de5 02539 cmp 4 01 1279 12x9 02544 tre l 2564 all channels ready 02549 adm 6 03 1279 12g9 02554 aam @ 06 2434 2ul4 02559 tr 1 2434 02564 lfc , 02 1364 13o4 02569 ufc , 03 2764 27f4 02574 tr 1 2744 channels xx01 ready to write 7 02579 unl 7 03 1284 12h4 continued 02584 lfc , 02 1369 13o9 02589 ufc , 03 2599 25i9 02594 set b 0004 02599 lod 8 0000 02604 ufc , 03 2609 26+9 02609 sel 2 0000 02614 trr o 01 2624 26s4 02619 tr 1 2409 02not ready--test 01 02624 nop a 2709 02629 set b 0004 02634 lod 8 1369 02639 unl 7 2649 02644 set b 0004 02649 lod 8 1329 02654 unl 7 2659 02659 sel 2 0000 02664 set b 0001 02669 lod 8 2659 02674 cmp 4 1450 02679 tre l 2699 02684 skp 3 0009 02689 aam @ 06 2649 2wm9 02694 tr 1 2644 02699 sgn t 15 2620 2fb0 02704 sgn t 15 2405 2d+5 02709 cmp 4 02 1284 12q4 02714 tre l 2734 all channels ready 02719 adm 6 03 1284 12h4 02724 aam @ 06 2599 2vr9 02729 tr 1 2599 02734 lfc , 02 1369 13o9 02739 ufc , 03 2764 27f4 7 02744 unl 7 03 1279 12g9 write 2000-character 7 records on all available 02749 set b 07 0005 0 +5 channels 02754 lod 8 07 1604 1w+4 02759 sbn % 14 2763 2go3 02764 nop a 0000 st location of 2001/2002 here 02769 tmc o 11 2779 2pg9 02774 tr 1 2789 02779 sel 2 0500 02784 wr r 1957 t-o *00x-901* 02789 lfc , 02 2764 27o4 02794 ufc , 03 2809 28+9 02799 lfc , 02 1599 15r9 02804 ufc , 03 2824 28b4 02809 lfc , 02 0000 00-0 02814 ufc , 03 2819 28a9 02819 sel 2 0000 02824 wr r 0000 02829 cmp 4 01 1279 12x9 02834 tre l 2859 writing begun on all channels 02839 adm 6 03 1279 12g9 02844 aam @ 06 2809 2y-9 02849 aam @ 07 2824 2yb4 increment wr addr by 2500 02854 tr 1 2809 7 02859 set b 2200 2.48 milli-sec delay 02864 unl 7 03 1279 12g9 02869 set b 12 0004 0+04 02874 lod 8 12 1274 1b74 16 5000-charcater 02879 rcv u 1500r v00r tct instructions, 02884 tct , 08 1000r -0r designed to overlap 02889 cmp 4 12 1279 1b79 ---calculated to last 02894 tre l 2909 about 32 to 38 milli-sec 02899 adm 6 03 1279 12g9 02904 tr 1 2879 02909 tmc o 11 2919 2ra9 02914 tr 1 2994 02919 sel 2 0500 02924 wr r 1943 t-o *00x-tct,901* 02929 tr 1 2994 7 02934 set b 2200 2.48 milli-second delay 02939 set b 09 0004 0- 4 02944 lod 8 09 2139 2jt9 repeating lip, designed 02949 unl 7 03 1279 12g9 to overlap chan write 02954 spc , 3710 operations--caclulated 02959 set b 0004 to last about 32 milli-sec 02964 spc , 0000 02969 lip , 15 3700 3g+0 02974 cmp 4 09 1279 1kx9 02979 tre l 2994 leave tip-lip loop 02984 adm 6 03 1279 12g9 02989 tr 1 2969 7 02994 set b 0025 test for channel 02999 lod 8 1654 check and/or end- 03004 unl 7 1629 of-file---if channel 03009 unl 7 04 3245 3s45 check, then make three passes 03014 unl 7 04 3690 3w90 at write routine before 03019 lfc , 02 2764 27o4 transfer to 912 switch 03024 ufc , 03 3034 30c4 --if end-of-file. 03029 unl 7 03 1279 12g9 then rewind tapes and transfer 03034 lfc , 02 0000 00-0 to test channel readiness 03039 ufc , 03 3044 30d4 prior to writing of records 03044 sel 2 0000 03049 unl 7 04 3065 3 65 03054 trr o 01 3104 31 4 03059 set b 4600 if write lasts too long. 03064 set b 0000 03069 nop a 3084 then this delay mechanism 03074 sgn t 15 3065 3+f5 will cause t-o 03079 tr 1 3054 03084 taa i 01 3099 30z9 bypass t-o 03089 sel 2 0500 03094 wr r 1707 t-o *xxx-long write* 03099 tr 1 3044 03104 trs o 03 3144 31d4 chan chk or end-of-file 03109 trr o 01 3119 31/9 03114 tr 1 3109 03119 cmp 4 01 1279 12x9 03124 tre l 3249 all channels tested 03129 adm 6 03 1279 12g9 03134 aam @ 06 3034 3 l4 03139 tr 1 3034 03144 trs o 3154 end-of-file 03149 tr 1 3159 03154 sgn t 15 3690 3fi0 03159 ttc o 02 3169 31o9 chan chk 03164 tr 1 3109 03169 sgn t 15 3245 3bd5 7 03174 rcv u 3042 store two characters from 03179 tzb . 04 3194 3/94 read 03 in the chan chk 03184 rd y 03 1605 16+5 type-out working-area 03189 tr 1 3109 03194 tzb . 03 3209 32+9 03199 rd y 03 1625 16b5 sst for chan 24 03204 tr 1 3109 03209 tzb . 02 3229 32k9 03214 tzb . 01 3239 32t9 03219 rd y 03 1620 16b0 sst for chan 23 03224 tr 1 3109 03229 rd y 03 1610 16a0 sst for chan 21 03234 tr 1 3109 03239 rd y 03 1615 16a5 sst for chan 22 03244 tr 1 3109 7 03249 nop a 3259 processing of chan chks 03254 tr 1 3694 03259 taa i 01 3429 34s9 03264 sel 2 0500 03269 wr r 1690 t-o chan chk 00x-wr 03274 taf i 06 3284 3sq4 03279 tr 1 3414 03284 unl 7 03 1279 12g9 03289 lfc , 02 2764 27o4 03294 ufc , 03 3299 32i9 03299 lfc , 02 0000 00-0 03304 ufc , 03 3309 33+9 checking that 03309 sel 2 0000 rd 03 has been 03314 trr o 01 3324 33s4 completed on all 03319 tr 1 3314 channels 03324 cmp 4 01 1279 12x9 all chan rdy 03329 tre l 3349 03334 adm 6 03 1279 12g9 03339 aam @ 06 3299 3sr9 03344 tr 1 3299 7 03349 set b 0002 03354 lod 8 1606 storing rd 03 03359 unl 7 1671 characters in 03364 lod 8 1611 chan-chk status- 03369 unl 7 1674 trgrs type-out 03374 lod 8 1616 03379 unl 7 1677 03384 lod 8 1621 03389 unl 7 1680 03394 lod 8 1626 03399 unl 7 1683 03404 sel 2 0500 t-o *status trgrs --20,21, 03409 wr r 1656 22,23,24 03414 tac i 03 3424 34b4 03419 tr 1 3429 03424 hlt j 0001 7 03429 chr 3 13 0000 0+ 0 03434 set b 09 0004 0- 4 chan chk 3-pass counter-- 03439 lod 8 09 1574 1nx4 if chan chk persists after 03444 cmp 4 09 1289 1ky9 3 passes, then transfer to 03449 tre l 4869 912 switch at end of 03454 adm 6 03 1289 12h9 routine 03459 tr 1 3694 7 03464 unl 7 03 1284 12h4 check final address word 03469 lfc , 02 2764 27o4 in each communications channel 03474 ufc , 03 3499 34i9 03479 set b 0004 03484 lod 8 0000 03489 unl 7 3544 03494 unl 7 3614 03499 lfc , 02 0000 00-0 03504 ufc , 03 3509 35+9 03509 sel 2 0000 03514 lfc , 02 3507 35-7 03519 ufc , 03 3522 35b2 03524 spc , 0010 03529 ufc , 03 1759 17e9 03534 spc , 0000 03539 set b 0004 03544 lod 8 2149 03549 cmp 4 1759 03554 tre l 3659 final address word ok 03559 taa i 01 3659 36v9 03564 lfc , 02 3509 35-9 03569 ufc , 03 1979 19g9 03574 sel 2 0500 03579 wr r 1969 t-o *00x-wr 2001* 03584 taf i 06 3594 3vr4 03589 tr 1 3644 03594 spc , 0000 03599 set b 0006 03604 lda = 1759 03609 unl 7 1798 03614 lda = 2149 03619 unl 7 1813 03624 sel 2 0500 03629 wr r 1764 t-o *channel address word* 03634 wr r 1785 t-o *actual--xxxxxx* 03639 wr r 1800 t-o *correct-xxxxxx* 03644 tac i 03 3654 36e4 03649 tr 1 3659 03654 hlt j 0002 03659 cmp 4 01 1284 12y4 03664 tre l 3784 all final address words chked 03669 adm 6 03 1284 12h4 03674 aam @ 06 3614 3wj4 03679 aam @ 06 3499 3ur9 03684 aam @ 06 3544 3vm4 03689 tr 1 3499 7 03694 nop a 3714 03699 rcv u 3245 03704 tzb . 05 2409 2u 9 test for chan rdy prior to wr 03709 tr 1 3464 check final addr wd 03714 lfc , 02 2764 27o4 03719 ufc , 03 3729 37b9 03724 unl 7 03 1279 12g9 processing of ends-of-file 03729 lfc , 02 0000 00-0 --rewind tapes and 03734 ufc , 03 3739 37c9 tranfer to test for chan 03739 sel 2 0000 rdy prior to wr 03744 iof 3 0000 03749 trs o 3754 03754 rwd 3 0002 03759 cmp 4 01 1279 12x9 03764 tre l 0669 test for chan rdy prior to wr 03769 adm 6 03 1279 12g9 03774 aam @ 06 3729 3xk9 03779 tr 1 3729 7 03784 unl 7 03 1289 12h9 03789 unl 7 03 1279 12g9 backspacing tapes for 03794 lfc , 02 2764 27o4 subsequent rd and cmp 03799 ufc , 03 3804 38+4 03804 lfc , 02 0000 00-0 03809 ufc , 03 3814 38a4 03814 sel 2 0000 03819 trr o 01 3829 38s9 03824 tr 1 3819 03829 bsp 3 0004 03834 cmp 4 01 1279 12x9 03839 tre l 3859 backspacing completed--now rd 03844 adm 6 03 1279 12g9 03849 aam @ 06 3804 3y-4 03854 tr 1 3804 7 03859 unl 7 03 1279 12g9 read all written records 03864 lfc , 02 2764 27o4 into unloading areas 03869 ufc , 03 3914 39a4 03874 tmc o 11 3884 3qh4 03879 tr 1 3894 03884 sel 2 0500 03889 wr r 1957 t-o *00x-901* 03894 lfc , 02 1554 15n4 03899 ufc , 03 3939 39c9 03904 set b 09 0006 0- 6 03909 lod 8 09 1577 1nx7 store 003000 in asu 09 03914 lfc , 02 0000 00-0 03919 ufc , 03 3924 39b4 03924 sel 2 0000 03929 trr o 01 3939 39t9 03934 tr 1 3929 03939 rd y 0000 03944 cmp 4 01 1279 12x9 03949 tre l 4099 reading initiated 03954 adm 6 03 1279 12g9 03959 aam @ 06 3914 3zj4 03964 aam @ 09 3939 3rt9 increment rd addr by 3000 03969 tr 1 3914 7 03974 set b 2200 2.48 milli-sec delay 03979 unl 7 03 1279 12g9 03984 set b 12 0004 0+04 03989 lod 8 12 1269 1b69 12 5000-character 03994 rcv u 1500r v00r tct instructions 03999 tct , 08 1000r -0r designed to overlap 04004 cmp 4 12 1279 1b79 ---calculated to last 04009 tre l 4024 about 24 to 30 milli-sec 04014 adm 6 03 1279 12g9 04019 tr 1 3994 04024 tmc o 11 4034 4-c4 04029 tr 1 4099 04034 sel 2 0500 04039 wr r 1943 t-o *00x-tct, 901* 04044 tr 1 4099 7 04049 set b 2200 2.48 milli-sec delay 04054 set b 09 0004 0- 4 04059 lod 8 09 2144 2ju4 tip-lip loop, designed 04064 unl 7 03 1279 12g9 to overlap chan write 04069 tip , 14 4074 4+p4 operations--calculated 04074 lip , 15 3700 3g+0 to last about 24 milli-sec 04079 cmp 4 09 1279 1kx9 04084 tre l 4099 leave tip-lip loop 04089 adm 6 03 1279 12g9 04094 tr 1 4069 7 04099 set b 0025 test for chan chk before 04104 lod 8 1654 proceeding to cmp unload 04109 unl 7 1629 area with the original 04114 unl 7 04 4275 4s75 generated records 04119 lfc , 02 2764 27o4 04124 ufc , 03 4134 41c4 04129 unl 7 03 1279 12g9 04134 lfc , 02 0000 00-0 04139 ufc , 03 4144 41d4 04144 sel 2 0000 04149 trr o 01 4159 41v9 04154 tr 1 4149 04159 trs o 03 4189 41h9 chan chk 04164 cmp 4 01 1279 12x9 04169 tre l 4279 all channels ready and tested 04174 adm 6 03 1279 12g9 for chan chks--next, 04179 aam @ 06 4134 4/l4 process any chan chks 04184 tr 1 4134 04189 sgn t 15 4275 4bg5 7 04194 rcv u 4142 store two characters from 04199 tzb . 04 4214 4s14 read 03 in the chan chk 04204 rd y 03 1605 16+5 type-out working area 04209 tr 1 4269 04214 tzb . 03 4229 42b9 04219 rd y 03 1625 16b5 sst for chan 24 04224 tr 1 4269 04229 tzb . 02 4249 42m9 04234 tzb . 01 4259 42v9 04239 rd y 03 1620 16b0 sst for chan 23 04244 tr 1 4269 04249 rd y 03 1610 16a0 sst for chan 22 04254 tr 1 4269 04259 rd y 03 1615 16a5 sst for chan 22 04264 tr 1 4269 04269 trr o 01 4164 41w4 04274 tr 1 4269 7 04279 nop a 4289 processing of chan chks 04284 tr 1 4494 04289 taa i 01 4459 44v9 04294 sel 2 0500 04299 wr r 1730 t-o chan chk 00x-rd 04304 taf i 06 4314 4tj4 04309 tr 1 4444 04314 unl 7 03 1279 12g9 04319 lfc , 02 2764 27o4 04324 ufc , 03 4329 43b9 04329 lfc , 02 0000 00-0 04334 ufc , 03 4339 43c9 04339 sel 2 0000 checking that 04344 trr o 01 4354 43v4 rd 03 has been 04349 tr 1 4344 completed on all 04354 cmp 4 01 1279 12x9 channels 04359 tre l 4379 all chan rdy 04364 adm 6 03 1279 12g9 04369 aam @ 06 4329 4tk9 04374 tr 1 4329 7 04379 set b 0002 storing rd 03 04384 lod 8 1606 characters in 04389 unl 7 1671 chan-chk status- 04394 lod 8 1611 trgrs type-out 04399 unl 7 1674 04404 lod 8 1616 04409 unl 7 1677 04414 lod 8 1621 04419 unl 7 1680 04424 lod 8 1626 04429 unl 7 1683 04434 sel 2 0500 04439 wr r 1656 t-o *status trgrs--20,21, 04444 tac i 03 4454 44e4 22,23,24 04449 tr 1 4459 04454 hlt j 0003 7 04459 chr 3 13 0000 0+ 0 04464 set b 09 0004 0- 4 chan chk 3-pass counter-- 04469 lod 8 09 1574 1nx4 if chan chk persists after 04474 cmp 4 09 1289 1ky9 3 passes, then transfer to 04479 tre l 4869 912 switch at end of 04484 adm 6 03 1289 12h9 of routine 00x 04489 tr 1 3789 7 04494 set b 09 0006 0- 6 compare unloading area 04499 lod 8 09 1569 1nw9 with original generated 04504 set b 10 0004 0--4 records--also check 04509 lod 8 10 1558 1nn8 for the correct final 04514 set b 11 0006 0-+6 address word in each 04519 lod 8 11 1920 1rb0 communication channel 04524 lfc , 02 1859 18n9 04529 ufc , 03 4614 46a4 04534 lfc , 02 2764 27o4 000250 stored in asu 09 04539 ufc , 03 4589 45h9 0008 stored in asu 10 04544 lfc , 02 i869 i8o9 001250 stored in asu 11 04549 ufc , 03 4694 46i4 000750 stored in asu 12 04554 ufc , 03 4779 47g9 04559 set b 12 0006 0+06 04564 lod 8 12 1926 1i26 04569 unl 7 03 1284 12h4 04574 lfc , 02 1864 18o4 04579 ufc , 03 4619 46a9 04584 unl 7 03 1279 12g9 04589 lfc , 02 0000 00-0 04594 ufc , 03 4604 46+4 04599 unl 7 04 4710 4x10 04604 sel 2 0000 7 04609 set b 0250 comparing records 04614 lod 8 0000 04619 cmp 4 0000 04624 tre l 4634 04629 sgn t 15 4710 4ga0 04634 cmp 4 10 1279 1kp9 04639 tre l 4664 04644 adm 6 03 1279 12g9 04649 aam @ 09 4614 4o/4 04654 aam @ 09 4619 4o/9 04659 tr 1 4614 7 04664 lfc , 02 4602 46-2 checking final 04669 ufc , 03 4672 46g2 address word 04674 spc , 0010 04679 ufc , 03 1759 17e9 04684 spc , 0000 04689 set b 0004 04694 lod 8 0000 04699 cmp 4 1759 04704 tre l 4714 04709 sgn t 15 4710 4ga0 7 04714 nop a 4724 type-out compare errors 04719 tr 1 4824 for each channel-- 04724 taa i 01 4824 48s4 then proceed to the 04729 lfc , 02 4604 46-4 912 switch at end of 04734 ufc , 03 1909 19+9 routine 00x 04739 sel 2 0500 04744 wr r 1899 t-o 00x-rd 2001 04749 taf i 06 4759 4xn9 04754 tr 1 4809 04759 spc , 0000 04764 set b 0006 04769 lda = 1759 04774 unl 7 1798 04779 lda = 0000 04784 unl 7 1813 04789 sel 2 0500 04794 wr r 1764 t-o channel address word 04799 wr r 1785 t-o actual--zzzzzz 04804 wr r 1800 t-o correct-zzzzzz 04809 tac i 03 4819 48a9 04814 tr 1 4824 04819 hlt j 0004 7 04824 cmp 4 01 1284 12y4 04829 tre l 4869 04834 adm 6 03 1284 12h4 04839 aam @ 06 4589 4vq9 04844 aam @ 06 4779 4xp9 04849 aam @ 06 4694 4wr4 04854 aam @ 11 4614 4oa4 increment lod addr by 1250 04859 aam @ 12 4619 4f19 increment cmp addr by 750 04864 tr 1 4585 7 04869 tmc o 11 4879 4qg9 912 switch-------912 switch 04874 tr 1 4889 04879 sel 2 0500 04884 wr r 1957 t-o *00x-901* 04889 tab i 02 4904 49-4 loop-in basic prog. if 912 on 04894 unl 7 04 4900 4z00 04899 tr 1 0000 proceed to next routine 04904 nop a 4919 04909 sgn t 15 4900 4i+0 type-out 04914 unl 7 03 1294 12i4 *00x-100 passes* 04919 set b 0004 after every 04924 lod 8 1246 100 passes of 04929 cmp 4 1294 basic program 04934 tre l 4949 04939 adm 6 03 1294 12i4 04944 tr 1 2234 to beginning of basic prog. 04949 sel 2 0500 04954 wr r 1830 t-o *00x-100 passes* 04959 unl 7 04 4900 4z00 04964 tr 1 2234 to beginning of basic prog. 7 7 routine 001 detects data 7 word droppage when writing on 7 all channels during a tct 7 04969 set b 0001 04974 lod 8 2040 04979 unl 7 1709 *00x-long write* 04984 unl 7 1701 *chan chk 00x-wr* 04989 unl 7 1741 *chan chk 00x-rd* 04994 unl 7 1901 *00x-rd 2001* 04999 unl 7 1971 *00x-wr 2001* 05004 unl 7 1945 *00x-tct,901* 05009 unl 7 1959 *00x-901* 05014 unl 7 1832 *00x-100 passes* 05019 unl 7 3422 halt after chan chk on write 05024 unl 7 3652 halt after addr wd chk on wr 05029 unl 7 4452 halt after chan chk on read 05034 unl 7 4817 halt after compare error 05039 lfc , 02 2004 20-4 05044 ufc , 03 2834 28c4 include tct during write 05049 lfc , 02 2054 20n4 05054 ufc , 03 3949 39d9 bypass tct during read 05059 lfc , 02 2079 20p9 05064 ufc , 03 1599 15i9 wr xxxx 05069 lfc , 02 2064 20o4 05074 ufc , 03 1864 18f4 cmp xxxx 05079 lfc , 02 2104 21-4 05084 ufc , 03 2854 28e4 sets beginning of write field 05089 lfc , 02 2094 20r4 05094 ufc , 03 4864 48f4 sets beginning of cmp field 05099 lfc , 02 2034 20l4 05104 ufc , 03 3059 30e9 sets length of delay 05109 ufc , 03 3064 30f4 05114 lfc , 02 2014 20j4 05119 ufc , 03 3689 36h9 checking 05124 lfc , 02 2194 21r4 final addr 05129 ufc , 03 3484 34h4 wd after wr 05134 lfc , 02 2114 21j4 05139 ufc , 03 4899 48i9 tranfer to next routine 05144 tr 1 2234 begin basic prog. 7 7 routine 002 detects data 7 word droppage when reading on 7 all channels during a tct 7 05149 set b 0001 05154 lod 8 2041 05159 unl 7 1709 *00x-long write* 05164 unl 7 1701 *chan chk 00x-wr* 05169 unl 7 1741 *chan chk 00x-rd* 05174 unl 7 1901 *00x-rd 2001* 05179 unl 7 1971 *00x-wr 2001* 05184 unl 7 1945 *00x-tct,901* 05189 unl 7 1959 *00x-901* 05194 unl 7 1832 *00x-100 passes* 05199 unl 7 3422 halt after chan chk on write 05204 unl 7 3652 halt after addr wd chk on wr 05209 unl 7 4452 halt after chan chk on read 05214 unl 7 4817 halt after compare error 05219 lfc , 02 2009 20-9 05224 ufc , 03 2834 28c4 bypass tct during write 05229 lfc , 02 2059 20n9 05234 ufc , 03 3949 39d9 include tct during read 05239 lfc , 02 2079 20p9 05244 ufc , 03 1599 15i9 wr xxxx 05249 lfc , 02 2064 20o4 05254 ufc , 03 1864 18f4 cmp xxxx 05259 lfc , 02 2104 21-4 05264 ufc , 03 2854 28e4 sets beginning of write field 05269 lfc , 02 2094 20r4 05274 ufc , 03 4864 48f4 sets beginning of cmp field 05279 lfc , 02 2029 20k9 05284 ufc , 03 3059 30e9 sets length of delay 05289 ufc , 03 3064 30f4 05294 lfc , 02 2014 20j4 05299 ufc , 03 3689 36h9 checking 05304 lfc , 02 2194 21r4 final addr 05309 ufc , 03 3484 34h4 wd after wr 05314 lfc , 02 2119 21j9 05319 ufc , 03 4899 48i9 tranfer to next routine 05324 tr 1 2234 begin basic prog. 7 7 routine 003 detects errors 7 in writing when lip and wr 7 occurs simultaneously 7 and when ...2600126001... is 7 the record being written 7 05329 set b 0001 05334 lod 8 2042 05339 unl 7 1709 *00x-long write* 05344 unl 7 1701 *chan chk 00x-wr* 05349 unl 7 1741 *chan chk 00x-rd* 05354 unl 7 1901 *00x-rd 2001* 05359 unl 7 1971 *00x-wr 2001* 05364 unl 7 1945 *00x-tct,901* 05369 unl 7 1959 *00x-901* 05374 unl 7 1832 *00x-100 passes* 05379 unl 7 3422 halt after chan chk on write 05384 unl 7 3652 halt after addr wd chk on wr 05389 unl 7 4452 halt after chan chk on read 05394 unl 7 4817 halt after compare error 05399 lfc , 02 2189 21q9 05404 ufc , 03 2834 28c4 bypass tct during write 05409 lfc , 02 2054 20n4 05414 ufc , 03 3949 39d9 bypass tct during read 05419 lfc , 02 2084 20q4 05424 ufc , 03 1599 15i9 wr xxxx 05429 lfc , 02 2069 20o9 05434 ufc , 03 1864 18f4 cmp xxxx 05439 lfc , 02 2109 21-9 05444 ufc , 03 2854 28e4 sets beginning of write field 05449 lfc , 02 2099 20r9 05454 ufc , 03 4864 48f4 sets beginning of cmp field 05459 lfc , 02 2039 20l9 05464 ufc , 03 3059 30e9 sets length of delay 05469 ufc , 03 3064 30f4 05474 lfc , 02 2019 20j9 05479 ufc , 03 3689 36h9 checking 05484 lfc , 02 2199 21r9 final addr 05489 ufc , 03 3484 34h4 wd after wr 05494 lfc , 02 2124 21k4 05499 ufc , 03 4899 48i9 tranfer to next routine 05504 tr 1 2234 begin basic prog. 7 7 routine 004 detects errors 7 in reading when lip and wr 7 occurs simultaneously 7 and when ...2600226002... is 7 the record being read 7 05509 set b 0001 05514 lod 8 2043 05519 unl 7 1709 *00x-long write* 05524 unl 7 1701 *chan chk 00x-wr* 05529 unl 7 1741 *chan chk 00x-rd* 05534 unl 7 1901 *00x-rd 2001* 05539 unl 7 1971 *00x-wr 2001* 05544 unl 7 1945 *00x-tct,901* 05549 unl 7 1959 *00x-901* 05554 unl 7 1832 *00x-100 passes* 05559 unl 7 3422 halt after chan chk on write 05564 unl 7 3652 halt after addr wd chk on wr 05569 unl 7 4452 halt after chan chk on read 05574 unl 7 4817 halt after compare error 05579 lfc , 02 2009 20-9 05584 ufc , 03 2834 28c4 bypass tct during write 05589 lfc , 02 2184 21q4 05594 ufc , 03 3949 39d9 bypass tct during read 05599 lfc , 02 2089 20q9 05604 ufc , 03 1599 15i9 wr xxxx 05609 lfc , 02 2074 20p4 05614 ufc , 03 1864 18f4 cmp xxxx 05619 lfc , 02 2109 21-9 05624 ufc , 03 2854 28e4 sets beginning of write field 05629 lfc , 02 2099 20r9 05634 ufc , 03 4864 48f4 sets beginning of cmp field 05639 lfc , 02 2029 20k9 05644 ufc , 03 3059 30e9 sets length of delay 05649 ufc , 03 3064 30f4 05654 lfc , 02 2019 20j9 05659 ufc , 03 3689 36h9 checking 05664 lfc , 02 2204 22-4 final addr 05669 ufc , 03 3484 34h4 wd after wr 05674 lfc , 02 2129 21k9 05679 ufc , 03 4899 48i9 tranfer to next routine 05684 tr 1 2234 begin basic prog. 7 05689 lim , 07 0000 0 +0 routine 005 tests for 05694 unl 7 03 1279 12g9 functioning of the channel 05699 lfc , 02 1369 13o9 reset instruction 05704 ufc , 03 5749 57d9 05709 lfc , 02 1364 13o4 05714 ufc , 03 5724 57b4 05719 set b 0004 05724 lod 8 0000 05729 unl 7 5734 05734 sel 2 0000 searching for a ready 05739 trr o 01 5799 57z9 tape unit to write on 05744 set b 0004 05749 lod 8 0000 05754 unl 7 5759 05759 sel 2 0000 05764 trr o 01 5799 57z9 05769 cmp 4 01 1279 12x9 05774 tre l 6009 05779 aam @ 06 5724 5xk4 05784 aam @ 06 5749 5xm9 05789 adm 6 03 1279 12g9 05794 tr 1 5719 7 05799 lfc , 02 5732 57l2 05804 ufc , 03 5807 58+7 write short record--- 05809 spc , 0000 then channel reset--- 05814 lfc , 02 6029 60k9 then enter interrupt 05819 spc , 0000 mode----- 05824 wr r 6080 an interrupt to the 05829 trr o 01 5839 58t9 error routine will 05834 tr 1 5829 occur if the channel 05839 chr 3 13 0000 0+ 0 reset failed to reset 05844 eim , 06 0000 0 -0 off the communication 05849 nop a 0000 channel interrupt call 05854 nop a 0000 trigger that was turned 05859 lim , 07 0000 0 +0 on at the end of writing 7 05864 tmc o 11 5874 5qg4 901 check and 912 switch 05869 tr 1 5884 05874 sel 2 0500 05879 wr r 1847 t-o *005-901* 05884 tab i 02 5899 58r9 loop-in routine if 912 on 05889 unl 7 04 5895 5y95 05894 tr 1 6094 to routine 006 05899 nop a 5914 type-out 05904 sgn t 15 5895 5hi5 *005-100 passes* 05909 unl 7 03 1294 12i4 after every 05914 set b 0004 100 passes 05919 lod 8 1246 of routine 005 05924 cmp 4 1294 05929 tre l 5944 05934 adm 6 03 1294 12i4 05939 tr 1 5689 to beginning of routine 005 05944 sel 2 0500 05949 wr r 1815 t-o *005-100 passes* 05954 unl 7 04 5895 5y95 05959 tr 1 5689 to beginning of routine 005 7 05964 taa i 01 5994 59z4 error routine 05969 sel 2 0500 05974 wr r 6061 t-o *005-chr failure* 05979 tac i 03 5989 59h9 05984 tr 1 5994 05989 hlt j 0501 05994 eem 3 14 0000 0+-0 05999 lip , 15 3700 3g+0 06004 tr 1 5859 7 06009 sel 2 0500 06014 wr r 6030 t-o *no tape units 1 or 2 read 06019 hlt j 0502 06024 tr 1 5689 7 7 date 2 001 06025 3 06029 00 5964 5964 2 026 06055 no tape units 1 or 2 ready 2 001 06056 | 2 019 06075 005-chr failure 2 001 06076 | 5 009 06085 short record to be written 2 001 06086 | 7 7 7 routines 006-010 7 these routines test rd 01 on a 7 ready channel, with wr 00 on 7 another ready channel. 916 on 7 gives further analysis which 7 shows if failure is likely to 7 be caused by floating 7 ig chan xx line, pg 30.12.04.1 7 06094 rcv u 6274 generate a table of rdy. tapes 06099 blm $ 0005 06104 lfc , 02 6304 63-4 initializing 06109 ufc , 03 6174 61g4 06114 lfc , 02 6309 63-9 06119 ufc , 03 6184 61h4 06124 lfc , 02 6299 62r9 06129 ufc , 03 6214 62a4 06134 set b 11 0001 0-+1 06139 lod 8 11 6310 6la0 put 0 in asu 11 06144 set b 12 0001 0+01 06149 lod 8 12 6310 6c10 put 0 in asu 12 06154 set b 13 0006 0+ 6 06159 lod 8 13 6319 6c/9 put 000005 in asu 13 06164 set b 14 0006 0+-6 06169 lod 8 14 6325 6ck5 put 000100 in asu 14 7 06174 sel 2 2001 generate table 06179 trr o 01 6199 61z9 06184 sel 2 2002 06189 trr o 01 6209 62 9 06194 tr 1 6224 06199 lfc , 02 6174 61p4 06204 tr 1 6124 06209 lfc , 02 6184 61q4 06214 ufc , 03 6274 62g4 06219 add g 11 6312 6la2 06224 aam @ 13 6214 6b/4 06229 aam @ 14 6174 6ap4 06234 aam @ 14 6184 6aq4 06239 add g 12 6312 6c12 add 1 to asu 12 06244 cmp 4 12 6313 6c13 compare 5 to asu 12 06249 tre l 6259 if equal - table finished 06254 tr 1 6174 7 06259 cmp 4 11 6330 6lc0 test for two channels ready 06264 trh k 6349 two ready 06269 tr 1 1154 two not rdy-to end of prog rt. 7 7 data,addresses,working area 2 025 06294 00 200x,210x,220x,230x,240x 2 001 06295 3 06299 03 6274 62g4 2 005 06304 00 2001 2 005 06309 00 2002 2 001 06310 0 2 002 06312 aa 2 001 06313 5 2 006 06319 000005 2 006 06325 000100 2 004 06329 2 003 06330 1 2 003 06333 005 2 003 06336 011 2 005 06344 00 7 7 pick up addresses 7 from table and put them in 7 select addresses 7 06349 set b 12 0003 0+03 put 005 in asu 12 06354 lod 8 12 6333 6c33 06359 set b 14 0004 0+-4 put blanks in asu 14 06364 lod 8 14 6329 6ck9 7 06369 set b 0004 rotate table and find a ready 06374 lod 8 6274 channel 06379 rcv u 6274 06384 snd / 6279 06389 unl 7 6294 06394 add g 12 6312 6c12 step asu 12 by 1. if it is 011 06399 cmp 4 12 6336 6c36 we are through and trans- 06404 tre l 1154 fer to end of prog. rout 06409 cmp 4 14 6294 6br4 if high position in table is 06414 tre l 6369 blanks,rotate again 7 06419 cmp 4 14 6274 6bp4 find another ready tape for 06424 tre l 6434 wr00 and load its address 06429 lfc , 02 6274 62p4 06434 cmp 4 14 6279 6bp9 06439 tre l 6449 06444 lfc , 02 6279 62p9 06449 cmp 4 14 6284 6bq4 06454 tre l 6464 06459 lfc , 02 6284 62q4 06464 cmp 4 14 6289 6bq9 06469 tre l 6479 06474 lfc , 02 6289 62q9 7 06479 ufc , 03 6344 63d4 unload wr00 tape addresses 06484 ufc , 03 6679 66g9 06489 ufc , 03 7084 70h4 06494 ufc , 03 6769 67f9 7 06499 lfc , 02 6294 62r4 unload rd01 tape addresses 06504 ufc , 03 6619 66a9 06509 ufc , 03 6669 66f9 06514 ufc , 03 6694 66i4 06519 ufc , 03 6754 67e4 7 06524 unl 7 12 7437 7d37 unload routine number into 06529 unl 7 12 7485 7d85 type-outs 06534 unl 7 12 7548 7e48 06539 unl 7 12 7598 7e98 06544 unl 7 12 7631 7f31 06549 unl 7 12 7665 7f65 06554 unl 7 12 6748 6g48 06559 unl 7 12 7223 7b23 06564 unl 7 12 6933 6i33 06569 unl 7 12 6993 6i93 06574 unl 7 12 7338 7c38 06579 unl 7 12 7696 7f96 06584 unl 7 12 7073 7+73 7 06589 set b 11 0002 0-+2 unload channel numbers for 06594 lod 8 11 6292 6ki2 finding final address 06599 unl 7 11 6797 6pi7 word 06604 unl 7 11 7458 7me8 06609 lod 8 11 6342 6ld2 06614 unl 7 11 6812 6qa2 7 06619 sel 2 0000 put record on rd 01 tape 06624 wr r 25000 n000 06629 tsa o 03 6649 66d9 06634 bsp 3 0004 06639 trr o 01 6659 66v9 06644 tr 1 6639 06649 trs o 0669 06654 tr 1 6619 7 06659 rcv u 2000m -00m blank memory at 06664 blm $ 0410 60,000-62,020 06669 sel 2 0000 06674 rd y 01 2000- -0 - rd 01 into 60,000 06679 sel 2 0000 06684 wr r 35000 e000 06689 tsa o 03 6769 67f9 7 06694 sel 2 0000 sel rd 01 tape 06699 tsa o 03 6709 67+9 06704 tr 1 6799 06709 ttc o 02 6724 67k4 06714 trs o 0669 eof on rd 01 tape 06719 tr 1 6619 06724 taa i 01 6754 67v4 06729 sel 2 0500 06734 wr r 7435 t-o *xxx-chan ck-rd 01-ch-xx* 06739 tac i 03 6749 67d9 06744 tr 1 6754 06749 hlt j 0601 06754 sel 2 0000 sel rd01 tape 06759 bsp 3 0004 06764 tr 1 6659 7 06769 sel 2 0000 sel wr 00 tape 06774 ttc o 02 6789 67q9 06779 trs o 0669 06784 tr 1 6619 06789 bsp 3 0004 06794 tr 1 6619 7 06799 spc , 0010 checking final address words. 06804 ufc , 03 6809 68+9 rd 01 channel 06809 nop a 0004 06814 spc , 0010 06819 ufc , 03 6824 68b4 wr 00 channel 06824 nop a 0004 06829 spc , 0000 06834 set b 0004 06839 lod 8 6809 06844 cmp 4 7469 06849 tre l 6859 06854 tr 1 6874 06859 lod 8 6824 06864 cmp 4 7464 06869 tre l 7004 7 06874 set b 0006 06879 lda = 6809 06884 unl 7 7516 06889 set b 0006 06894 lda = 6824 06899 unl 7 7579 7 06904 taf i 06 6944 6zm4 06909 taa i 01 6939 69t9 06914 sel 2 0500 06919 wr r 7596 t-o *xxx-final addr wds 06924 tac i 03 6934 69c4 incorrect* 06929 tr 1 6939 06934 hlt j 0002 06939 tr 1 6619 7 06944 taa i 01 6999 69z9 t-o actual address word 06949 sel 2 0500 vs. correct address word 06954 wr r 7470 if 916 on. 06959 wr r 7503 06964 wr r 7518 06969 wr r 7533 06974 wr r 7566 06979 wr r 7581 06984 tac i 03 6994 69i4 06989 tr 1 6999 06994 hlt j 0003 06999 tr 1 6619 7 07004 rcv u 1400m u00m blank 250 mem pos. 07009 blm $ 0050 54000-54249 07014 set b 0250 07019 lod 8 2024r -24r load rd 01 area 07024 cmp 4 1424r u24r cmp vs blanks at 54,049 07029 tre l 7084 7 07034 set b 0004 restore initial 07039 lod 8 7628 address 60,249 07044 unl 7 7019 07049 taa i 01 7079 70x9 07054 sel 2 0500 07059 wr r 7629 07064 tac i 03 7074 70g4 07069 tr 1 7079 07074 hlt j 0004 07079 tr 1 6619 7 07084 sel 2 0000 07089 bsp 3 0004 bsp wr 00 tape 07094 rd y 2300- l00- rd record into 63,000 07099 tsa o 03 7104 71+4 07104 set b 09 0006 0- 6 07109 lod 8 09 1569 1nw9 asu 09 000250 07114 set b 10 0000 0--0 07119 set b 10 0008 0--8 asu 10 set 8 for ntr 07124 set b 0004 07129 lod 8 7683 07134 unl 7 7154 07139 lod 8 7687 07144 Unl 7 7159 07149 set b 0250 07154 lod 8 2324r l24r initial load 63249 07159 cmp 4 35249 e249 initial cmp 35259 07164 tre l 7174 07169 tr 1 7194 07174 aam @ 09 7154 7jv4 07179 aam @ 09 7159 7jv9 07184 ntr x 10 7154 7jn4 07189 tr 1 7354 7 07194 taf i 06 7234 7sl4 916 switch 07199 taa i 01 7229 72s9 07204 sel 2 0500 07206 wr r 7694 t-o *xxx-wr 00 record 07214 tac i 03 7224 72b4 does not cmp* 07219 tr 1 7229 07224 hlt j 0005 07229 tr 1 7354 7 07234 set b 0000 analysis of unequal 07239 set b 0255 wr00 record 07244 set b 08 0006 0-06 07249 lod 8 08 7740 7p40 put 000001 in asu 08 07254 set b 09 0005 0- 5 07259 lod 8 09 6689 6oy9 put instr after wr00 in asu 09 07264 set b 10 0006 0--6 07269 lda = 10 7154 7jn4 07274 sub p 10 7728 7pk8 07279 ula * 10 7284 7kq4 7 07284 cmp 4 09 0000 0- 0 07289 tre l 7309 07294 aam @ 08 7284 7k84 07299 ntr x 7284 07304 tr 1 7199 7 07309 taa i 01 7344 73u4 07314 sel 2 0500 t-o *xxx-wr 00 record does not 07319 wr r 7694 compare* 07324 wr r 7746 *instr after wr 00 in record* 07329 tac i 03 7339 73c9 this t-o indicates probable 07334 tr 1 7344 failure of the rd 01 line, and 07339 hlt j 0006 could be caused by floating 07344 set b 0002 ig chan xx line, pg 30.12.04.1 07349 lod 8 7733 7 07354 set b 09 0003 0- 3 07359 lod 8 09 7693 7oz3 put 000 in asu 09 07364 set b 10 0003 0--3 07369 lod 8 10 7690 7or0 put 100 in asu 10 07374 tab i 02 7389 73q9 transfer if 912 on 07379 unl 7 09 7669 7ow9 07384 tr 1 6369 7 07389 cmp 4 10 7669 7oo9 see if no. of passes is 100,if 07394 tre l 7419 so transfer 07399 lod 8 09 7669 7ow9 if no. of passes is not 100, 07404 add g 09 7679 7ox9 add 1. 07409 unl 7 09 7669 7ow9 07414 tr 1 6619 7 07419 sel 2 0500 t-o *xxx-100 passes* 07424 wr r 7663 07429 unl 7 09 7669 7ow9 restore counter to zero 07434 tr 1 6619 7 7 constant area,routines 006-010 2 024 07458 00x-chan chk-rd 01-ch-xx 2 001 07459 | 2 005 07464 g010 37010 wr 00 final adw 2 005 07469 -25- 60,250 rd 01 final adw 2 032 07501 addr wd-rout xxx incorrect-rd 01 2 001 07502 | 2 008 07510 actual-- 2 006 07516 2 001 07517 | 2 008 07525 correct- 2 006 07531 060250 2 001 07532 | 2 032 07564 addr wd-rout xxx-incorrect wr 00 2 001 07565 | 2 008 07573 actual-- 2 006 07579 2 001 07580 | 2 008 07588 correct- 2 006 07594 037010 2 001 07595 | 2 028 07623 xxx-final addr wds incorrect 2 001 07624 | 2 004 07628 -24r 60249 2 033 07661 xxx-rd 01 field other than blanks 2 001 07662 | 2 014 07676 xxx-000 passes 2 001 07677 | 2 002 07679 aa 2 004 07683 l24r 63249 2 004 07687 e249 35249 2 003 07690 100 2 003 07693 000 2 029 07722 xxx-wr 00 record does not cmp 2 001 07723 | 2 005 07728 25+ 2 006 07734 000005 2 006 07740 000001 2 003 07743 0+ 2 002 07745 25 2 032 07777 instr after wr 00 in record 2 001 07778 |