7 04-15-61 ed01a 7 edit and search program 7 edits 80 char record 7 master tape. 0202 is master, 7 0200 is new tape. 7 follow type-outs and halt 7 listing closely 00004 sel 2 0500 00009 wr r 1116 00014 wr r 1144 00019 hlt j 9999 7 00024 sel 2 0500 switch setting t/o 00029 wr r 0989 00034 wr r 1007 00039 wr r 1031 00044 wr r 1045 00049 wr r 1063 00054 wr r 1070 00059 wr r 1093 00064 wr r 1159 00069 hlt j 0000 7 00074 sel 2 0200 housekeeping 00079 rwd 3 0002 00084 sel 2 0202 00089 rwd 3 0002 00094 tr 1 3754 on 11-7-61 was sel 0204 00099 iof 3 0000 00104 set b 0001 00109 lod 8 0988 00114 unl 7 0195 00119 unl 7 0315 00124 set b 01 0001 00 1 load asu 01 with 3 00129 lod 8 01 0821 08s1 00134 set b 15 0001 0++1 00139 sgn t 15 0988 0ih8 00144 adm 6 15 0988 0ih8 00149 adm 6 15 0195 0ai5 reset sw =1 00154 adm 6 15 0315 0ca5 reset sw =2 00159 tra i 03 0169 01f9 use prog as tape dup 00164 tr 1 0184 00169 sgn t 15 0195 0ai5 turn on sw =1 00174 sgn t 15 0315 0ca5 turn on sw =2 00179 tr 1 0199 00184 tra i 06 1354 1tn4 use prog as loader 00189 tra i 05 2004 2 4 insert new program 00194 nop a 0000 7 00199 nop a 0279 switch =1 00204 tra i 01 3449 34u9 00209 sel 2 300z 00214 rcv u 0734 00219 blm $ 0016 00224 rd y 0730 master card rd area 00229 trs o 0269 7 00234 set b 0005 00239 lod 8 0734 program id 00244 unl 7 0815 store prog id at a 7 00249 cmp 4 0820 00254 tre l 0709 blanks from cards 00259 nop a 0269 00264 tr 1 0279 00269 sgn t 15 0195 0ai5 turn on switch =1 00274 sgn t 15 0315 0ca5 turn on switch =2 7 00279 sel 2 0202 master tape 00284 unl 7 01 3223 32s3 00289 rcv u 0829 00294 blm $ 0016 00299 rd y 0825 master tape rd area 00304 trs o 0564 eof master 00309 lda = 0309 00314 trs o 03 3234 32c4 to 0202 rd gypsy 00319 nop a 0514 switch =2 00324 set b 0005 00329 lod 8 0829 00334 unl 7 0910 store tape rec id 7 00339 cmp 4 0815 is tape equal card 00344 tre l 0374 7 00349 set b 0005 00354 lod 8 0815 00359 cmp 4 0918 00364 tre l 0499 00369 tr 1 0514 7 00374 set b 0003 tape no vs card no 00379 lod 8 0738 00384 cmp 4 0833 00389 tre l 0414 00394 lod 8 0827 00399 cmp 4 0913 8tr 00404 tre l 0499 00409 tr 1 0514 7 00414 set b 0001 00419 lod 8 0830 tape level vs card 00424 cmp 4 0735 00429 trh k 0669 00434 set b 0005 00439 lod 8 0734 00444 unl 7 0918 00449 set b 0080 00454 lod 8 0809 00459 unl 7 19999 z999 00464 sel 2 0200 00469 unl 7 01 3223 32s3 00474 wr r 01 19920 z9s0 wr from cards 00479 trs o 0689 eof 0200 00484 lda = 0484 00489 trs o 03 3029 30b9 to 0200 wr gypsy 00494 tr 1 0184 to 916 sw 7 00499 sel 2 0202 master tape 00504 bsp 3 0004 00509 tr 1 0434 7 00514 sel 2 0200 tp being generated 00519 unl 7 01 3223 32s3 00524 set b 0080 00529 lod 8 0904 00534 unl 7 19999 z999 00539 wr r 01 19920 z9s0 wr from master tape 00544 trs o 0689 eof 0200 00549 lda = 0549 00554 trs o 03 3029 30b9 to 0200 wr gypsy 00559 tr 1 0279 to master tape 7 00564 iof 3 0000 00569 rwd 3 0002 00574 sel 2 0200 00579 wtm 3 0001 00584 rwd 3 0002 00589 sel 2 0204 00594 iof 3 0000 00599 nop a 0002 00604 set b 0005 00609 lod 8 0918 00614 cmp 4 0820 blanks 00619 tre l 0644 00624 sel 2 0500 00629 wr r 0919 00634 hlt j 0009 end of job hlt 00639 tr 1 0634 7 00644 sel 2 0500 00649 tra i 03 0624 06b4 00654 wr r 0930 00659 hlt j 0008 no insertions 00664 tr 1 0644 7 00669 sel 2 0500 00674 wr r 0949 00679 hlt j 0007 tp level higher than cards 00684 tr 1 0414 7 00689 sel 2 0500 00694 wr r 0979 00699 hlt j 0006 eof 0200 update 00704 tr 1 0699 7 00709 sel 2 0500 blanks from cards 00714 wr r 2587 00719 hlt j 0014 00724 tra i 01 0719 07/9 00729 tr 1 0209 7 7 word area and constants 2 005 00734 00 5 075 00809 2 001 00810 | 2 005 00815 2 005 00820 2 001 00821 3 2 005 00829 00 5 075 00904 2 001 00905 | 2 005 00910 2 003 00913 8tr 2 005 00918 2 010 00928 final stop 2 001 00929 | 2 018 00947 no insertions made 2 001 00948 | 2 017 00965 tape level higher 2 012 00977 than change 2 001 00978 | 2 008 00986 eof 0200 2 001 00987 | 2 001 00988 a 2 017 01005 chk switches-auto 2 001 01006 | 2 023 01029 911 on-update from tape 2 001 01030 | 2 013 01043 911 off-cards 2 001 01044 | 2 017 01061 913 on-dup master 2 001 01062 | 2 006 01068 914-on 2 001 01069 | 2 022 01091 915 on-insert new prog 2 001 01092 | 2 022 01114 916 on-search for prog 2 001 01115 | 2 018 01133 for tr06 gen-auto 2 009 01142 load only 2 001 01143 | 2 014 01157 for ed01-start 2 001 01158 | 2 014 01172 store rdr adr 2 018 01190 as 5 chars at 3005 2 001 01191 | 7 7 search portion of prog 01354 rcv u 18264 y264 01359 tmt 9 1369 01364 tr 1 18399 y399 7 7 2 005 01369 2 005 01374 2 005 01379 2 005 01384 2 005 01389 2 005 01394 2 005 01399 2 019 01418 prog not on tape 2 001 01419 | 2 005 01424 2 005 01429 2 019 01448 take 0202 off line 2 001 01449 | 2 020 01469 store prog desired 2 019 01488 as 5 char field at 2 005 01493 18390 2 001 01494 | 2 005 01499 7 01504 sel 2 0500 18399 01509 wr r 18326 y326 18404 01514 hlt j 0010 18409 save 0202 01519 sel 2 0500 18414 01524 wr r 18346 y346 18419 01529 hlt j 0011 18424 store prog 7 01534 sel 2 0200 18429 01539 iof 3 0000 18434 01544 rwd 3 0002 18439 7 01549 rcv u 18324 y324 18444 01554 blm $ 0001 18449 01559 lem 3 15 0000 0++0 18454 01564 rd y 18640 y640 18459 01569 tr 1 18524 y524 18464 7 01574 iof 3 0000 18469 eof 0200 01579 rwd 3 0002 18474 01584 set b 0005 18479 01589 lod 8 18324 y324 18484 01594 cmp 4 18319 y319 18489 01599 tre l 18504 y504 18494 01604 tr 1 18514 y514 18499 01609 sel 2 0500 18504 01614 wr r 18298 y298 18509 01619 hlt j 0012 18514 not on tape 01624 tr 1 18504 y504 18519 01629 trs o 18469 y469 18524 eof 0200 01634 trs o 03 18534 y5c4 18529 7 01639 set b 0005 18534 01644 lod 8 18644 y644 18539 01649 cmp 4 18394 y394 18544 01654 tre l 18559 y559 18549 prog found 01659 tr 1 18454 y454 18554 7 01664 unl 7 18324 y324 18559 01669 sel 2 0200 18564 01674 bsp 3 0004 18569 01679 rd y 18640 y640 18574 7 01684 trs o 01 18589 y5y9 18579 01689 tr 1 18579 y579 18584 01694 set b 0006 18589 01699 lod 8 18645 y645 18594 program 01704 unl 7 18637 y637 18599 01709 sel 2 0500 18604 01714 wr r 18632 y632 18609 t/o prog 01719 set b 0003 18614 01724 lod 8 18642 y642 18619 01729 cmp 4 18798 y798 18624 end rd in 01734 tr 1 18724 y724 18629 7 7 t/o and rd in area 2 005 01739 2 003 01742 2 001 01743 | 2 001 01744 7 7 7 01829 tre l 0004 18724 start prog 01834 set b 0002 18729 01839 lod 8 18654 y654 18734 length of field 01844 unl 7 18759 y759 18739 01849 set b 0004 18744 01854 lod 8 18652 y652 18749 area of memory 01859 unl 7 18764 y764 18754 01864 set b 12 0000 0+00 18759 01869 rcv u 0000 18764 01874 tmt 9 12 18655 yf55 18769 01879 nop a 0008 18774 7 01884 sel 2 0200 18779 01889 rd y 18640 y640 18784 01894 trs o 01 18614 y6/4 18789 01899 tr 1 18789 y789 18794 7 7 constants 2 004 01903 8tr 2 001 01904 # 7 7 insert new program 7 02004 set b 0001 reset switch =1 02009 lod 8 2682 02014 unl 7 2060 7 02019 sel 2 0500 instructions t/o 02024 wr r 2430 02029 hlt j 0001 7 02034 sel 2 0202 master 02039 unl 7 01 3223 32s3 02044 rd y 19920 z920 02049 trs o 2344 02054 lda = 2054 02059 trs o 03 3234 32c4 to 0202 rd gypsy 02064 nop a 2129 switch =1 02069 set b 0005 02074 lod 8 19924 z924 02079 cmp 4 3004 look for program 02084 tre l 2124 7 02089 sel 2 0200 tape being generated 02094 unl 7 01 3223 32s3 02099 wr r 01 19920 z9s0 wr from master tape 02104 trs o 2324 02109 lda = 2109 02114 trs o 03 3029 30b9 to 0200 wr gypsy 02119 tr 1 2034 02124 sgn t 15 2060 2+f0 set switch =1 on 7 7 02129 set b 0003 02134 lod 8 19922 z922 02139 cmp 4 2685 look for 8tr 02144 tre l 2154 tape record is 8tr 02149 tr 1 2089 7 02154 sel 2 0202 master tape 02159 bsp 3 0004 7 02164 tra i 01 3489 34y9 02169 sel 2 300z change input 02174 rd y 19920 z920 02179 trs o 2249 02184 set b 0005 02189 lod 8 19924 z924 02194 unl 7 2701 02199 cmp 4 2690 blanks 02204 tre l 2299 cards are blanks 02209 nop a 2249 7 02214 sel 2 0200 tape being generated 02219 unl 7 01 3223 32s3 02224 wr r 01 19920 z9s0 wr from cards 02229 trs o 3224 02234 lda = 2234 02239 trs o 03 3029 30b9 to 0200 wr gypsy 02244 tr 1 2164 7 02249 adm 6 15 2060 2+f0 reset switch =1 02254 tra i 01 2414 24/4 02259 sel 2 0500 02264 wr r 2685 02269 wr r 2653 02274 hlt j 0014 02279 tra i 01 3529 35s9 02284 sel 2 300z 02289 trs o 2034 02294 tr 1 2004 7 02299 sel 2 0500 02304 wr r 2587 02309 hlt j 0013 02314 tra i 01 2309 23 9 02319 tr 1 2169 7 02324 sel 2 0500 eof 0200 02329 wr r 2578 02334 hlt j 0004 02339 tr 1 2324 7 02344 iof 3 0000 eof master 02349 rwd 3 0002 02354 sel 2 0200 tape being generated 02359 iof 3 0000 02364 wtm 3 0001 02369 rwd 3 0002 02374 set b 0005 02379 lod 8 2701 02384 cmp 4 2690 no insertions made 02389 tre l 0644 02394 sel 2 0500 02399 wr r 2671 02404 hlt j 0005 02409 tr 1 2404 7 02414 sel 2 0500 02419 wr r 2489 02424 hlt j 0017 02429 tr 1 2279 7 7 work area and constants 2 020 02449 store program to be 2 023 02472 followed as 5 character 2 015 02487 field at 03000 2 001 02488 | 2 017 02505 program inserted. 2 024 02529 if all new programs have 2 024 02553 been added-start.if not 2 023 02576 transfer to 3014-start 2 001 02577 | 2 008 02585 eof 0200 2 001 02586 | 2 017 02603 blanks from input 2 001 02604 | 2 024 02628 program inserted.---load 2 023 02651 cards for next program 2 001 02652 | 2 017 02669 start to continue 2 001 02670 | 2 010 02680 final stop 2 001 02681 | 2 001 02682 a 2 003 02685 8tr 2 005 02690 2 003 02693 1+ 2 003 02696 2+ 2 005 02701 7 2 005 03004 2 005 03009 00100 7 7 03014 sel 2 0204 03019 iof 3 0000 03024 tr 1 2279 7 03029 nop a 2693 0200 wr gypsy 03034 sub p 2693 03039 ula * 3159 03044 ula * 3084 03049 ula * 3164 03054 set b 0001 03059 lod 8 3223 03064 trz n 3089 03069 sub p 3225 03074 unl 7 3223 03079 bsp 3 0004 03084 tr 1 0000 03089 unl 7 01 3223 32s3 03094 set b 0015 03099 lod 8 19934 z934 record in error 03104 unl 7 3221 03109 set b 0004 03114 lod 8 3164 03119 unl 7 3188 03124 sel 2 0500 03129 wr r 3165 03134 wr r 3207 03139 hlt j 0002 03144 sel 2 0200 03149 bsp 3 0004 03154 skp 3 0009 03159 tr 1 0000 03164 nop a 0000 7 7 word area and constants 2 024 03188 chan chk 0200 wr-ic 0000 2 017 03205 3 write attempts 2 001 03206 | 2 015 03221 2 001 03222 | 2 001 03223 3 2 002 03225 A 7 7 03234 add g 2693 0202 rd gypsy 03239 ula * 3369 03244 sub p 2696 03249 ula * 3294 03254 ula * 3374 03259 trs o 3379 03264 set b 0001 03269 lod 8 3223 03274 trz n 3299 03279 sub p 3225 03284 unl 7 3223 03289 bsp 3 0004 03294 tr 1 0000 03299 unl 7 01 3223 32s3 03304 set b 0004 03309 lod 8 3374 03314 unl 7 3408 03319 set b 0015 03324 lod 8 19934 z934 03329 tra i 05 3339 3tt9 03334 lod 8 0839 03339 unl 7 3440 03344 sel 2 0500 03349 wr r 3385 03354 wr r 3426 03359 hlt j 0003 03364 sel 2 0202 03369 tr 1 0000 03374 nop a 0000 03379 tra i 05 2049 2 u9 03384 tr 1 0304 7 7 word area and constants 2 024 03408 chan chk 0202 rd-ic 0000 2 016 03424 3 read attempts 2 001 03425 | 2 015 03440 2 001 03441 | 7 7 03449 sel 2 0204 tape input changes 03454 rcv u 0734 03459 blm $ 0016 03464 unl 7 01 3223 32s3 03469 rd y 0730 03474 lda = 3474 03479 trs o 03 3539 35c9 03484 tr 1 0234 7 03489 sel 2 0204 input-new prog insert 03494 rcv u 19924 z924 03499 blm $ 0016 03504 unl 7 01 3223 32s3 03509 rd y 19920 z920 03514 lda = 3514 03519 trs o 03 3539 35c9 03524 tr 1 2184 7 03529 sel 2 0204 03534 tr 1 2289 7 7 03539 add g 2693 rd gypsy-input change 03544 ula * 3674 03549 sub p 2696 03554 ula * 3599 03559 ula * 3679 03564 trs o 3684 03569 set b 0001 03574 lod 8 3223 03579 trz n 3604 03584 sub p 3225 03589 unl 7 3223 03594 bsp 3 0004 03599 tr 1 0000 03604 unl 7 01 3223 32s3 03609 set b 0004 03614 lod 8 3679 03619 unl 7 3173 03624 set b 0015 03629 lod 8 19934 z934 03634 tra i 05 3644 3wu4 03639 lod 8 0744 03644 unl 7 3745 03649 sel 2 0500 03654 wr r 3690 03659 wr r 3731 03664 hlt j 0016 03669 sel 2 0204 03674 tr 1 0000 03679 nop a 0000 03684 tra i 05 2249 2su9 03689 tr 1 0269 7 7 work area and constants 2 024 03713 chan chk 0204 rd-ic 0000 2 016 03729 3 read attempts 2 001 03730 | 2 015 03745 2 001 03746 | 7 7 18219 tr 1 18399 y399 18224 nop a 0004 7 7 03754 tra i 01 3764 37w4 ocn 11-7-61 03759 tr 1 0104 03764 sel 2 0204 03769 tr 1 0099