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'