LEX    'ATOMICWT'
       ID     #5C
       MSG    0
       POLL   0
       ENTRY  ATOMWT
       CHAR   #F
       KEY    'ATOMICWT'
       TOKEN  30
       ENDTXT
*
*
*
FUNCD0 EQU    #2F8BB
POP1S  EQU    #0BD38
SPACE  EQU    #0AD9D
IVAERR EQU    #0E920
FNRTN1 EQU    #0F216
CVUCW  EQU    #03FBC
       EJECT
*************************************************
* Function : ATOMICWT                           *
*************************************************
       NIBHEX 411
ATOMWT CD0EX
       D0=(5) (=FUNCD0)
       DAT0=C A        save D0
       LCASC  '        '
       B=C    W        save spaces
       GOSBVL =POP1S
       LCHEX  02
       ?A=C   B
       GOYES  table1
       LCHEX  04
       ?A=C   B
       GOYES  table2
       GOVLNG =IVAERR  invalid argument
table1 A=B    W
       A=DAT1 B
       ASLC
       ASLC
       D1=D1+ 2
       GOTO   next
table2 A=B    W
       A=DAT1 4
       D1=D1+ 4
next   GOSBVL =CVUCW
       P=     3
       GOSUB  search
       NIBASC 'CA'
       NIBHEX 200000000000722
       NIBASC 'GA'
       NIBHEX 200000000868701
       NIBASC 'LA'
       NIBHEX 100000004518962
       NIBASC 'MA'
       NIBHEX 200000000000342
       NIBASC 'RA'
       NIBHEX 100000000084993
       NIBASC 'SA'
       NIBHEX 100000000612947
       NIBASC 'TA'
       NIBHEX 200000000000012
       NIBASC 'UA'
       NIBHEX 200000005669691
       NIBASC ' B'
       NIBHEX 100000000001801
       NIBASC 'AB'
       NIBHEX 200000000033731
       NIBASC 'EB'
       NIBHEX 000000000812109
       NIBASC 'IB'
       NIBHEX 200000004089802
       NIBASC 'KB'
       NIBHEX 200000000000742
       NIBASC 'RB'
       NIBHEX 100000000040997
       NIBASC ' C'
       NIBHEX 100000000011021
       NIBASC 'AC'
       NIBHEX 100000000008004
       NIBASC 'DC'
       NIBHEX 200000000014211
       NIBASC 'EC'
       NIBHEX 200000000021041
       NIBASC 'FC'
       NIBHEX 200000000000152
       NIBASC 'LC'
       NIBHEX 100000000035453
       NIBASC 'MC'
       NIBHEX 200000000000742
       NIBASC 'OC'
       NIBHEX 100000000233985
       NIBASC 'RC'
       NIBHEX 100000000069915
       NIBASC 'SC'
       NIBHEX 200000004509231
       NIBASC 'UC'
       NIBHEX 100000000064536
       NIBASC 'YD'
       NIBHEX 200000000005261
       NIBASC 'RE'
       NIBHEX 200000000062761
       NIBASC 'SE'
       NIBHEX 200000000000452
       NIBASC 'UE'
       NIBHEX 200000000069151
       NIBASC ' F'
       NIBHEX 100000030489981
       NIBASC 'EF'
       NIBHEX 100000000074855
       NIBASC 'MF'
       NIBHEX 200000000000752
       NIBASC 'RF'
       NIBHEX 200000000000322
       NIBASC 'AG'
       NIBHEX 100000000002796
       NIBASC 'DG'
       NIBHEX 200000000052751
       NIBASC 'EG'
       NIBHEX 100000000009527
       NIBASC ' H'
       NIBHEX 000000000097001
       NIBASC 'EH'
       NIBHEX 000000000062004
       NIBASC 'FH'
       NIBHEX 200000000094871
       NIBASC 'GH'
       NIBHEX 200000000095002
       NIBASC 'OH'
       NIBHEX 200000004039461
       NIBASC ' I'
       NIBHEX 200000005409621
       NIBASC 'NI'
       NIBHEX 200000000028411
       NIBASC 'RI'
       NIBHEX 200000000022291
       NIBASC ' K'
       NIBHEX 100000000389093
       NIBASC 'RK'
       NIBHEX 100000000000838
       NIBASC 'AL'
       NIBHEX 200000005509831
       NIBASC 'IL'
       NIBHEX 000000000001496
       NIBASC 'RL'
       NIBHEX 200000000000062
       NIBASC 'UL'
       NIBHEX 200000000079471
       NIBASC 'DM'
       NIBHEX 200000000000852
       NIBASC 'GM'
       NIBHEX 100000000050342
       NIBASC 'NM'
       NIBHEX 100000000083945
       NIBASC 'OM'
       NIBHEX 100000000004959
       NIBASC ' N'
       NIBHEX 100000000760041
       NIBASC 'AN'
       NIBHEX 100000007798922
       NIBASC 'BN'
       NIBHEX 100000000460929
       NIBASC 'DN'
       NIBHEX 200000000042441
       NIBASC 'EN'
       NIBHEX 100000000097102
       NIBASC 'IN'
       NIBHEX 100000000000785
       NIBASC 'ON'
       NIBHEX 200000000000552
       NIBASC 'PN'
       NIBHEX 200000002840732
       NIBASC ' O'
       NIBHEX 100000000499951
       NIBASC 'SO'
       NIBHEX 200000000002091
       NIBASC ' P'
       NIBHEX 100000006737903
       NIBASC 'AP'
       NIBHEX 200000009530132
       NIBASC 'BP'
       NIBHEX 200000000002702
       NIBASC 'DP'
       NIBHEX 200000000004601
       NIBASC 'MP'
       NIBHEX 200000000000541
       NIBASC 'OP'
       NIBHEX 200000000000902
       NIBASC 'RP'
       NIBHEX 200000007709041
       NIBASC 'TP'
       NIBHEX 200000000090591
       NIBASC 'UP'
       NIBHEX 200000000000442
       NIBASC 'AR'
       NIBHEX 200000004520622
       NIBASC 'BR'
       NIBHEX 100000000876458
       NIBASC 'ER'
       NIBHEX 200000000702681
       NIBASC 'HR'
       NIBHEX 200000005509201
       NIBASC 'NR'
       NIBHEX 200000000000222
       NIBASC 'UR'
       NIBHEX 200000000070101
       NIBASC ' S'
       NIBHEX 100000000006023
       NIBASC 'BS'
       NIBHEX 200000000057121
       NIBASC 'CS'
       NIBHEX 100000000955944
       NIBASC 'ES'
       NIBHEX 100000000006987
       NIBASC 'IS'
       NIBHEX 100000000558082
       NIBASC 'MS'
       NIBHEX 200000000004051
       NIBASC 'NS'
       NIBHEX 200000000096811
       NIBASC 'RS'
       NIBHEX 100000000002678
       NIBASC 'AT'
       NIBHEX 200000009749081
       NIBASC 'BT'
       NIBHEX 200000004529851
       NIBASC 'CT'
       NIBHEX 100000000000079
       NIBASC 'ET'
       NIBHEX 200000000006721
       NIBASC 'HT'
       NIBHEX 200000001830232
       NIBASC 'IT'
       NIBHEX 100000000000974
       NIBASC 'LT'
       NIBHEX 200000000073402
       NIBASC 'MT'
       NIBHEX 200000002439861
       NIBASC ' U'
       NIBHEX 200000000920832
       NIBASC ' V'
       NIBHEX 100000000414905
       NIBASC ' W'
       NIBHEX 200000000058381
       NIBASC 'EX'
       NIBHEX 200000000003131
       NIBASC ' Y'
       NIBHEX 100000000950988
       NIBASC 'BY'
       NIBHEX 200000000040371
       NIBASC 'NZ'
       NIBHEX 100000000008356
       NIBASC 'RZ'
       NIBHEX 100000000002219
       NIBHEX 0000     end of table
search C=RSTK
       D0=C
nxtent C=DAT0 4        get table name
       ?A=C   WP       compare with searched symbol
       GOYES  found
       ?C=0   WP       at end 
       GOYES  notfnd
       D0=D0+ 4        past name
       D0=D0+ 15       past numeric value
       GOTO   nxtent
notfnd C=0    W
       GOC    exit
found  P=     0
       D0=D0+ 4        @ numeric value
       C=0    W
       C=DAT0 15       get it
exit   D0=(5) (=FUNCD0)
       A=DAT0 A
       D0=A            restore D0
       GOVLNG =FNRTN1
       END