Program Input 2 Program Input 2 SC 20003 Jl-l0.l This tape contains three versions of the above program: l) hex for the tape typewriter model l2l 2) hex for the 60 cps model l4l reader 3) formatted decimal Note: Both hex versions have a bootstrap in track 63. Program Input 2 for tape typewriter model l2l SC 20004 Jl-l0.l Hex Tape 000c0008'800i0200' 000c000j'000c00l4' 000c00l0'800i0200' 000u0008'normal ' 000c00l8'u0008'c3w00'800i0200'c3w04'gwc0000'c3w08' u3w20'c3w20'b3w04'c3w24's3w44'c3w28't3w34' c3w2j'c3w04'c3w30'u3w00'c3w34''c3w38'u0000' c3w44'wwwwj'u3w00'' f02j8''800i0200'c00l4'800i0200''u0008' 200fj'20l94'20lfj'k0l04'q00w4'f0048'wj00'l0000'wwwwwwj'' l00w4'k00w4'80040000'j0ll8'q0074'80000200'f0208'600g8'j0ll0'90230' 70078'f0080'l0000000'k0000000'k3wwj'q0ll0'j0ll4'90034'70264'f00f0' q00g4'g0l74'f02k4'q0ll4'20ll8'f00gj''70l00000'20040000'4'l024j' 90ll8'q0l70'80000200'f0094'60l6j'g029j'l0268'q0ll8'f00w0'l0060004' f0l50'ww30000'90248''l026j'f002j'k0l20'40000'f0l9j'2000''''''2' 80000200'f0l30'k0ll4'80040000'w0llj'g0l48'w0l24'g0048'k0ll0'800g004j' l0204'80200'43w00'80200'80200'2'f02k0'l00'70000000'q003j'g0270' 60lgj'q00w4'k0lf4'l0ll8'g0l00'k0l20'80040000'f0lf4'6026j'j0ll4''f0lj0''' 'f004j'40000'l0lf4'q0200'g0lk0'f0l84'9007j'k00w4'f0lkj' l0ll8'g0lq8'f0044'l0lf4'k0lg4'l0l64'q0ll4'f0lg4'ww60000'www00004' 94k00000'w0228'j0llj'w00g0'j0234'q0038'k023j'80040000'f0234'l0000000'' 3j3j0''l0llj''k0llj'f0250'800w3wwj'709w3wwj'l0234'q0200'g0l28'f02l4' 40200'f0000000''4'q00q4'g0288'j0ll0'k0ll8'k0ll4'f0l0j'q0lwj'g02f4' k0268'f004j''k0ll0'f00kj'q02j4'g02g0'f0048'q00qj't02q8'k0040' 80040000'f0040'l00k0000'l00q8'k00w4'l0260'202gj'2004j'20l34'20220'f0020' 202qj'l0000''l02qj'q026j'f02q8' Program Input 2 for 60 cps model l4l reader SC 20004 Jl-l0.l Hex Tape 000c0008'800i0000' 000c000j'000c00l4' 000c00l0'800i0000' 000u0008'normal ' 000c00l8'u0008'c3w00'800i0000'c3w04'gwc0000'c3w08' u3w20'c3w20'b3w04'c3w24's3w44'c3w28't3w34' c3w2j'c3w04'c3w30'u3w00'c3w34''c3w38'u0000' c3w44'wwwwj'u3w00'' f02j8''800i0200'c00l4'800i0200''u0008' 200fj'20l94'20lfj'k0l04'q00w4'f0048'wj00'l0000'wwwwwwj'' l00w4'k00w4'80040000'j0ll8'q0074'80000200'f0208'600g8'j0ll0'90230' 70078'f0080'l0000000'k0000000'k3wwj'q0ll0'j0ll4'90034'70264'f00f0' q00g4'g0l74'f02k4'q0ll4'20ll8'f00gj''70l00000'20040000'4'l024j' 90ll8'q0l70'80000200'f0094'60l6j'g029j'l0268'q0ll8'f00w0'l0060004' f0l50'ww30000'90248''l026j'f002j'k0l20'40000'f0l9j'2000''''''2' 80000200'f0l30'k0ll4'80040000'w0llj'g0l48'w0l24'g0048'k0ll0'800g004j' l0204'80200'43w00'80200'80200'2'f02k0'l00'70000000'q003j'g0270' 60lgj'q00w4'k0lf4'l0ll8'g0l00'k0l20'80040000'f0lf4'6026j'j0ll4''f0lj0''' 'f004j'40000'l0lf4'q0200'g0lk0'f0l84'9007j'k00w4'f0lkj' l0ll8'g0lq8'f0044'l0lf4'k0lg4'l0l64'q0ll4'f0lg4'ww60000'www00004' 94k00000'w0228'j0llj'w00g0'j0234'q0038'k023j'80040000'f0234'l0000000'' 3j3j0''l0llj''k0llj'f0250'800w3wwj'709w3wwj'l0234'q0200'g0l28'f02l4' 40200'f0000000''4'q00q4'g0288'j0ll0'k0ll8'k0ll4'f0l0j'q0lwj'g02f4' k0268'f004j''k0ll0'f00kj'q02j4'g02g0'f0048'q00qj't02q8'k0040' 80040000'f0040'l00k0000'l00q8'k00w4'l0260'202gj'2004j'20l34'20220'f0020' 202qj'l0000''l02qj'q026j'f02q8' SC 20005 Jl-l0.l Program Input 2 - Format Controlled Decimal 0000 u0250' 000l xz0000' 0002 80xi0200' bootstrap 0003 c0005' " 0004 80xi0200' " ,000000l' 0005 00000000' " 0006 u0002' " 0007 z0000' 0008 y0l37' set input select code 0009 y0l43' " " " " 00l0 c0l0l' " " " " 00ll a006l' 00l2 u00l8' ,0000004' 00l3 0000wj00' 00l4 000l0000' xb0000 00l5 0wwwwwwj' l at 3 - l at 29 00l6 00000000' execute "+" 00l7 b006l' 00l8 c006l' Fi store start fill 00l9 80xi0000' 0020 h0l06' N0 002l a0029' l at 3 0022 80xz0200' 0023 u0202' to v code 0024 n0046' l at 29 0025 h0l04' Nl 0026 e02l2' 3j3j0 0027 m0030' -6 at 4 0028 u0032' ,0000003' 0029 l0000000' 0030 k0000000' 003l 000k3wwj' 0032 a0l04' Nl 0033 h0l05' N2 0034 e00l3' wj00 0035 m0225' -3/4 at 0 0036 u0040' 0037 a0045' 2 at 3 + 4 at l5 0038 t0l29' 0039 u0253' to s code 0040 a0l05' N2 004l y0l06' N0 0042 u0047' 0043 z0000' ,0000003' 0044 70l00000' 0045 20040000' 0046 00000004' l at 29 0047 b02l9' 70xw3wwj 0048 e0l06' N0 0049 a0l28' 7 at 3 0050 80xz0200' 005l u0037' to not inst 0052 n0l27' l at 23 0053 t0239' to x 0054 b0226' modifier 0055 a0l06' N0 0056 u0060' ,000000l' 0057 l0060004' 0058 u0l20' ,000000l' 0059 0ww30000' 0060 e02l8' 800w3wwj 006l z0000' fill inst 0062 b0227' l at 29 0063 u00ll' 0l00 c0l08' 0l0l i0000' read "a" word 0l02 u0l39' 0l03 xz3200' ,0000006' 0l04 00000000' Nl 0l05 00000000' N2 0l06 00000000' N0 0l07 00000000' checksum 0l08 00000000' dump 0l09 00000002' 0ll0 80xz0200' 0lll u0ll2' 0ll2 c0l05' 0ll3 80xi0000' read checksum 0ll4 s0l07' 0ll5 t0ll8' to test T.C. switch 0ll6 s0l09' l at 30 0ll7 t00l8' checksum ok 0ll8 c0l04' 0ll9 800t00l9' ignore checksum 0l20 b020l' "er" here for checksum error 0l2l xp0200' print e 0l22 xi6300' 0l23 xp0200' print r 0l24 xp0200' print r ,000000l' error halt 0l25 00000002' 0l26 u0252' ,0000002' 0l27 00000l00' 0l28 70000000' 6 at 3 0l29 a00l5' l at 3 - l at 29 0l30 t0228' to ., /, +, ; 0l3l n0l47' l at l3 , or a 0l32 a006l' Fi 0l33 c0l4l' 0l34 b0l06' N0 0l35 t0l00' to a code 0l36 c0l08' 0l37 80xi0000' read , word 0l38 u0l4l' 0l39 n0227' l at 29 0l40 h0l05' a 0l4l z0000' fill , or a 0l42 u0l48' 0l43 z0000' 0l44 z0000' 0l45 z0000' store last a word 0l46 u00l9' ,000000l' 0l47 00040000' 0l48 b0l4l' 0l49 a0200' -l at ll + l at 29 0l50 t0l52' to exit a or , code 0l5l u0l33' 0l52 e003l' xc6363 0l53 c006l' 0l54 u0l55' 0l55 b0l06' N0 0l56 t0l58' 0l57 u00l7' 0l58 b0l4l' here to set flag in last a word 0l59 c0l45' 0l60 b0l25' l at 30 0l6l a0l05' last a word 0l62 u0l45' ,0000003' 0l63 0ww60000' 0200 www00004' -l at ll + l at 29 020l 94k00000' 0202 s02l0' 0203 h0l07' checksum 0204 s0044' 7 at 3 + l at ll 0205 h02l3' 0206 a00l4' xb0000 0207 c02l5' 0208 80xi0000' 0209 u02l3' ,0000004' 02l0 l0000000' 02ll 00000000' 02l2 0003j3j0' 02l3 00000000' v fill 02l4 b0l07' 02l5 z0000' add word to checksum 02l6 c0l07' 02l7 u0220' ,0000002' 02l8 800w3wwj' 02l9 709w3wwj' 0220 b02l3' 022l a0200' -l at ll + l at 29 0222 t0ll0' 0223 u0205' ,0000004' 0224 00040200' 0225 f0000000' 0226 00000000' modifier 0227 00000004' 0228 a0057' l at 3 + 6 at l5 + l at 29 0229 t0234' to +, -, /, ; 0230 h0l04' 023l c0l06' 0232 c0l05' 0233 u0l03' to . code 0234 a0l63' l at 3 - l0 at l5 0235 t024l' to +, -, ; 0236 c0226' modifier 0237 u00l9' 0238 z0000' 0239 c0l04' 0240 u0055' 024l a0249' l at 3 + c at l5 0242 t0244' 0243 u00l8' to ; code 0244 a0059' l at 3 - c at l5 0245 t0258' to - code 0246 c00l6' here for + code 0247 80xi0000' 0248 u00l6' ,000000l' 0249 l00k0000' 0250 b0058' u0l20 025l c006l' 0252 b0224' xi0200 0253 y0247' set input select code 0254 y00l9' " " " " 0255 y0ll3' " " " " 0256 y0208' " " " " 0257 u0008' 0258 y0259' here for - code 0259 b0000' 0260 xz0000' 026l b0259' 0262 a0227' 0263 u0258' ,0000000'3