Decimal To Hex. Conv. - Revised Format Controlled Decimal Only ,0000033' 0329 40000000' MASK TABLE 0330 20000000' 033l l0000000' 0332 08000000' 0333 04000000' 0334 02000000' 0335 0l000000' 0336 00800000' 0337 00400000' 0338 00200000' 0339 00l00000' 0340 00080000' 034l 00040000' 0342 00020000' 0343 000l0000' 0344 00008000' 0345 00004000' 0346 00002000' 0347 0000l000' 0348 00000800' 0349 00000400' 0350 00000200' 035l 00000l00' 0352 00000080' 0353 00000040' 0354 00000020' 0355 000000l0' 0356 00000008' 0357 00000004' 0358 00000002' 0359 00000000' N 0360 00000002' l at 30 036l 0l800000' 3 at 8 0362 u0032' ,000000l' 0363 ww600000' 0400 a0436' Word to punch 040l t04ll' Punch 8 0402 s0452' l at 23 0403 t0439' 0 - 2 char. 0404 u0405' 0405 s0527' l at ll - l at 23 0406 t0456' 3 - 5 char. 0407 u0408' 0408 s0437' l at 3 - l at ll 0409 t0538' 6 - 7 char. 04l0 a04l8' l at 3 04ll 80xp0200' P8 04l2 u054l' 04l3 b0434' Flag 04l4 s0500' l at 30 04l5 t0453' Absolute zero 04l6 u0449' 04l7 z0000' n.u. ,0000002' 04l8 l0000000' l at 3 04l9 wwwwwww2' l at 30 - l at 27 0420 xz3200' ADQ 042l 80xi6200' Left 4 bits 0422 80xi6200' " " " 0423 80xp0200' P6 0424 80xi6200' Left 4 bits 0425 u046l' 0426 s04l9' l at 30 - l at 27 0427 t04l3' No char. 0428 a0500' l at 30 0429 xi6200' Left 6 bits 0430 xi6200' " " " ,000000l' 043l 40043q00' " " " 0432 xi6200' Left 6 bits 0433 u0448' l char. 0434 z0000' Pflag 0435 z0000' Demodifier 0436 z0000' Word ,000000l' 0437 0ww00000' l at 3 - l at ll 0438 z0000' Mask 0439 s0504' l at 27 - l at 23 0440 t0426' 0 - l char. 044l a0463' l at 27 0442 u0443' 0443 xi6200' Left 6 bits 0444 xi6200' " " " 0445 xi6200' " " " 0446 xi6200' " " " 0447 80xp0200' P2 0448 a0434' Flag 0449 80xi6200' Left 4 bits 0450 80xp0200' Pl 045l u0453' ,000000l' 0452 00000l00' l at 23 0453 b05l8' -l at 0 0454 xp0200' Stop code 0455 u084l' Exit to punch sequence control 0456 s05l4' l at l5 - l at ll 0457 t0529' 3 - 4 char. 0458 a05l6' l at l5 0459 xi6200' Left 6 bits 0460 xi6200' " " " 046l 80xp0200' P5 0462 u0534' ,0000006' 0463 000000l0' l at 27 0500 00000002' l at 30 050l wwwwl000' l at l9 - l at l5 0502 700gww00' 7 at 3 + l2 at l5 - 64 at 29 0503 0000l000' l at l9 0504 wwwwwwl0' l at 27 - l at 23 0505 xi6200' Left 6 bits 0506 xi6200' " " " 0507 80xi6200' Left 4 bits 0508 80xi6200' " " " 0509 80xp0200' P3 05l0 80xi6200' Left 4 bits 05ll u0447' ,0000007' 05l2 0l000000' l at 7 05l3 00000000' Line 05l4 wwwl0000' l at l5 - l at ll 05l5 00000000' First 05l6 000l0000' l at l5 05l7 wl000000' l at 7 - l at ll 05l8 80000000' -l at 0 (Stop code) 05l9 z0000' n.u. 0520 b0262' 052l xi0000' l at l3 ,0000002' 0522 4lkw70l8' cr,m,-9,Pflag 0523 l3w00000' l at 4 - l at ll 0524 z0000' ä ,0000004' 0525 0003j3j0' Mask 0526 w8000000' -8 at 7 0527 000www00' l at ll - l at 23 0528 k0000000' -6 at 4 0529 s050l' l at l9 - l at l5 0530 t0505' 3 char. 053l a0503' l at l9 0532 xi6200' Left 6 bits 0533 xi6200' " " " 0534 80xi6200' Left 4 bits 0535 80xp0200' P4 0536 u0508' 0537 z0000' Mask 0538 s05l7' l at 7 - l at 3 0539 t042l' 6 char. 0540 a05l2' l at 7 054l 80xi6200' Left 4 bits 0542 80xp0200' P7 0543 u0422' 0544 u0553' 0545 z0000' AD ,0000002' 0546 0003wj00' Mask 0547 wwwwww80' " 0548 r0727' To compute address BEGIN OF "MARK TABLE" 0549 ull00' 0550 s0322' l at 30 055l el300' Bit table entry 0552 u0553' skip or add flag [a0438] 0553 hl300' Bit table 0554 u0627' Exit 0555 r0727' To compute address BEGIN OF "GET BIT FROM TABLE" 0556 ull00' 0557 bl300' Table entry 0558 e0537' Mask from mask table 0559 s08l0' l at 30 - l at 0 0560 t08ll' Modify 056l c0847' Dump 0562 c0434' Pflag 0563 ull49' 0600 ul0l9' Initialize and read decimal tape 060l u0755' Punch relocatable hex tape 0602 ul004' End - Restore Program Input I to combination loader Tc off; Hex only if Tc on. 0603 ul000' Restore Program input I and patch for verifying 0604 ul043' Restore from verifying - Tc is same as in 0602 above 0605 z0000' Temp ,000000l' 0606 www00004' l at 29 - l at ll 0607 t06l5' V or M hex word 0608 b08l6' a0438 0609 h0552' Flaga 06l0 b0025' V-M Hex Fill 06ll r0554' To MARK BIT TABLE 06l2 u0548' 06l3 u002l' 06l4 b03l3' 06l5 b0544' u0553 06l6 h0552' Flaga 06l7 b0232' Decimal FILL 06l8 r0554' To MARK BIT TABLE 06l9 u0548' 0620 u0050' ,000000l' 062l l4000000' l at 4 0622 b0544' u0053 0623 h0552' 0624 b0239' 0625 r0554' To MARK BIT TABLE 0626 u0548' 0627 b0606' l at 29 - l at ll 0628 u063l' ,000000l' 0629 00000002' l at 30 0630 z0329' Lo of MASK TABLE 063l a0239' , Hex Fill 0632 u0242' 0633 e0862' Drop goof bits 0634 h0863' Temp. 0635 u0637' 0636 z0000' n. u. 0637 b0809' i flag 0638 t08l7' Last read was hex M or V type 0639 b0232' Decimal FILL 0640 e0862' ,3wwj 064l s0863' Temp. 0642 t0646' /= 0643 s0629' l at 30 0644 t0657' = 0645 a0360' l at 30 0646 a0863' Temp. Here /= 0647 yl4ll' Final + l of N zone 0648 b0863' Temp. 0649 yl4l2' Begin of N + l zone 0650 u0652' 065l 8u0553' 8u0553 0652 b0647' 0653 a0325' 2 at 29 0654 y0647' 0655 a0806' l at 29 0656 y0649' 0657 b0808' Temp2 0658 h0809' i flag 0659 t003l' Go to hex 0660 u0246' Go to dec 066l b0833' 3 at 5 0662 80xi0200' Read address 0663 t0753' Exit - no entry - zero in address 0700 n0357' l at 29 Binarize address 070l u0745' 0702 h0545' AD Compute addresses 0703 d0728' 30 at 5 0704 e0547' wwww,ww80 0705 h0420' ADQ 0706 u0707' 0707 m0725' -30 at 5 0708 a0630' z0329 Lo of MASK TABLE 0709 a0545' AD 07l0 y07l8' 07ll bll26' l at 5 07l2 m0420' ADQ 07l3 a072l' zll00 Lo of BIT TABLE 07l4 y0557' 07l5 y055l' 07l6 u07l7' 07l7 y0553' 07l8 b0333' MASK TABLE ENTRY 07l9 h0434' Mask 0720 u0722' 072l zl200' Lo BIT TABLE 0722 h0537' Mask2 0723 c0438' Mask3 0724 u0726' ,000000l' 0725 88000000' -30 at 5 0726 s0434' Maskl 0727 u0557' EXIT ,000000l' 0728 78000000' 30 at 5 0729 b0544' u0553 "A" WORD 0730 h0552' 073l b03l3' "A" FILL 0732 r0554' To MARK BIT TABLE 0733 u0548' 0734 b03l3' "A" FILL 0735 u03l5' 0736 b0024' "V" - "M" FILL 0737 u09l7' 0738 b0524' ä 0739 u04ll' 0740 b0820' Address 0200 074l u0758' 0742 80xi6200' Left 4 bits 0743 a05l5' First 0744 u0940' 0745 h0524' Nl 0746 e0525' 3,j3j0 0747 m0528' -6 at 4 0748 a0524' Nl 0749 h0524' N2 0750 e0546' 3,wj00 075l m0754' -3/4 at 0 0752 a0524' N2 0753 u0905' EXIT ,000000l' 0754 f0000000' -3/4 at 0 0755 r0753' PUNCH HERE 0756 u066l' Go to READ ADDRESS 0757 t0740' Blank use 0200 0758 y0423' SET ALL PUNCH INSTRUCTION ADDRESSES TO PROPER UNIT 0759 y0542' 0760 y04ll' 076l y0447' 0762 y046l' 0763 y0535' 0800 y0450' 080l u0802' 0802 y095l' 0803 y0853' 0804 y0454' 0805 u0900' ,0000005' 0806 00000004' l at 29 0807 7w83wqj4' 0808 00000000' Temp2 0809 00000000' i flag 08l0 80000002' l at 30 - l at 0 08ll b036l' 3 at 8 08l2 h0434' Pflag 08l3 b0435' Demodifier 08l4 u0400' ,000000l' 08l5 www00004' l at 29 - l at ll 08l6 a0438' Mask3 08l7 b0025' V-M Hex fill 08l8 u0640' 08l9 c0605' Temp - Decimal instruction 0820 80xz0200' Test overflow 082l a0807' 7w83,wqj4 0822 a065l' 8u0553 If overflow occured, change to a0438 and overflow again 0823 h0552' flaga 0824 b0232' Decimal FILL 0825 r0554' Go to MARK BIT TABLE 0826 u0548' 0827 b0605' Temp. 0828 u0829' 0829 80xz0200' Test overflow 0830 a0009' Add modifier if overflow indicator was on 083l u0232' Go to dec. fill 0832 u003l' Go to hex fill ,000000l' 0833 0j000000' 3 at 5 0834 b0363' wqj0,0000 0835 a062l' l at 4 0836 xp0200' punch 9 lower case punches 0837 s0523' l at 4 - l at ll 0838 t0835' Continue 0839 u0934' Finished 0840 ull36' 084l b0856' FETCH from Punch 0842 t0834' Finished this record 0843 a08l5' l at 29 - l at ll 0844 tlll3' Punch ä 0845 u0848' 0846 u08l9' 0847 z0000' Dump 0848 h0856' FETCH 0849 b0335' l at 7 0850 a05l3' LINE 085l t0855' Not 8 yet 0852 b043l' 4 at 3 [c.r.] 0853 xp0200' Punch c.r. 0854 b0526' -8 at 7 0855 h05l3' LINE ,000000l' 0856 wwwllql4' FETCH - BRING INST WITH COUNTER 0857 h0436' Word to punch 0858 a0435' ä 0859 a0524' ä 0860 ull09' 086l z0000' n.u. ,000000l' 0862 00003wwj' 0863 z0000' Temp. 0900 y0836' 090l y0509' 0902 y0953' 0903 r0753' Read address 0904 u066l' 0905 t096l' Blank use zero 0906 s052l' 4,0000 "-" 0907 t096l' Positive - true demodifier 0908 e0862' ,3wwj 0909 h0435' Demodifier 09l0 b0647' 09ll y09l7' 09l2 a0l20' l at 29 09l3 y09l9' 09l4 b0809' i flag 09l5 t0736' Last was hex 09l6 b0232' Decimal FILL 09l7 yl4ll' Final for last zone 09l8 b046l' Negative word 09l9 hl4l2' Begin of last + l zone Exit flag 0920 bl063' zl4l0 092l y0924' Set to get BEGIN of first zone to punch 0922 a0l20' l at 29 0923 y0927' 0924 bl4l2' Origin of this zone 0925 h05l5' First 0926 t0000' FINISHED ALL ZONES 0927 bl4l3' Final this zone 0928 s0l20' l at 29 0929 s05l5' First 0930 xi6200' Left 6 bits 093l 80xi6200' Left 4 bits 0932 80xi6200' Left 4 bits 0933 h0359' N at l5 0934 b0359' N at l5 0935 t0947' Finished zone 0936 s0337' 64 at l5 0937 h0359' N 0938 tll46' Less than 64 to punch 0939 b05l5' First 0940 al062' 64 at ll + l at l5 - l at 29 094l h0856' FETCH 0942 al050' 65 at 29 0943 y05l5' First 0944 a0502' 7 at 3 + l2 at l5 - 64 at 29 0945 ull05' 0946 cl463' 0947 b0924' 0948 a0356' 2 at 29 0949 u092l' 0950 b0522' 4lkw,70l8 095l xp0200' c.r. 0952 xi6200' Left 6 bits 0953 xp0200' "M" 0954 xi6200' Left 6 bits 0955 h05l3' Flagp Line set to -9 0956 80xi6200' Left 4 bits 0957 80xi6200' Left 4 bits 0958 h0434' Flag p = 3 at 8 0959 b0524' ä 0960 u054l' P7 096l e0862' ,3wwj 0962 m0263' -l at 0 0963 u0909' l000 b0224' u0025 INITIALIZE TO VERIFY l00l h0024' l002 b0362' u0032 l003 h003l' l004 bll02' t0050 END Restore Program Input I l005 h0020' l006 b0832' u003l l007 c0l46' l008 800tl055' SET TO 2 TRACK HEX LOADER ONLY IF Tc IS ON l009 b0660' u0246 l0l0 h0209' l0ll b0l02' 80xz0200 l0l2 h0230' l0l3 b0520' b0262 l0l4 h0240' l0l5 b06l4' b03l3 l0l6 h03l4' l0l7 u0000' l0l8 u0607' l0l9 bl0l8' u0607 INITIALIZE TO READ DECIMAL TAPE l020 h0020' l02l b0840' u0633 l022 h0l46' l023 h0209' l024 ul025' l025 b0846' u08l9 l026 h0230' l027 bl052' u0622 l028 h0240' l029 bl053' u0729 l030 h03l4' l03l b0ll9' zl409 Begin of Pzone l032 y0647' l033 a0806' l at 29 l034 y0649' l035 bl049' -3 at 23 l036 al05l' cl500 l037 cl038' l038 cl463' Clear bit table and p zone l039 bl038' l040 s0946' cl463 l04l tl036' Continue l042 ul047' l043 bl058' hxxxx Restore Program Input I from verifying l044 h0024' l045 bl054' y0024 l046 c003l' l047 c0863' l048 u0000' ,0000002' l049 wwwwwk00' -3 at 23 l050 00000l04' 65 at 29 l05l cl500' l052 u0622' l053 u0729' l054 y0024' l055 b0247' u0060 l056 h0057' l057 b0044' t0006 l058 h0l26' l059 y0l3l' l060 h0l33' l06l u0000' ,000000l' l062 0400wwwj' 64 at ll + l at l5 - l at 29 l063 zl4l0' Location of first zone to punch in Pzone table ll00 ell08' ,3wwj ll0l u0702' ll02 t0050' ll03 z0000' ALL z0000s and 00000000s in this track are available ll04 z0000' ll05 a0435' Demodifier ll06 h0524' ä ll07 u0950' ll08 xz6363' ll09 h0524' ä lll0 b0856' FETCH llll u0555' lll2 z0000' lll3 h0856' FETCH lll4 u0738' ,0000005' lll5 00000000' lll6 00000000' lll7 00000000' lll8 000l0000' l at l5 lll9 00000000' ll20 z0000' ,00000l5' ll2l 00000000' ll22 00000000' ll23 00000000' ll24 00000000' ll25 00000000' ll26 04000000' ll27 00000000' ll28 00000000' ll29 00000000' ll30 00000000' ll3l 00000000' ll32 00000000' ll33 00000000' ll34 00000000' ll35 00000000' ll36 h0808' Temp. ,000000l' ll37 00000400' xz0400 IF BRANCH SWITCH 4 IS ON - CHANGE PROGRAM BUT DO NOT ENTER AS ll38 u0659' A NEW PUNCH AREA. ll39 u0633' ,0000006' ll40 00000000' ll4l 00000000' ll42 00000000' ll43 00000000' ll44 00000000' ll45 00000000' ll46 alll8' l at l5 ll47 u0742' ll48 z0000' ll49 s0435' Demodifier ll50 a0524' ä ll5l ull53' ll52 z0000' ll53 c0524' ä ll54 u0400' ,0000009' ll55 00000000' ll56 00000000' ll57 00000000' ll58 00000000' ll59 00000000' ll60 00000000' ll6l 00000000' ll62 00000000' ll63 00000000' .l000000'