                
old bbn midas parameters

nds=20.+1
ndp=40.
lpa=600
lpb=1000
ncn=10.
nvo=10.
ncr=20
ncc=100
nac=333.
lmi=3400
smk=1365.
9lr=200
9lp=200

1a=0
2a=10000
3a=20000

sa=4

define
	swap
	rcl 9s
	rcl 9s
termin

ctype=4x14
equals lring,null

define lch a/b
b=a
b=b^7777
	lac b
	jda step
	dac b
	lio b
	extend
	lac i b
	spi
	rar 6s
	ril 1s
	spi i
	rar 6s
	and (770000
termin
          
                                                                  
define dch a/b,c
b=a
b=b^7777
	dip c
	lac b
	jda step
	dac b
	lio b
	extend
	lac i b
	spi
	rar 6s
	ril 1s
	spi i
	rar 6s
	and (7777
	ior c
	spi i
	ral 6s
	rir 1s
	spi
	ral 6s
	extend
	dac i b
	jmp c+1

step,	0
	dap stepx
	lac step
	and (600000
	sas (600000
	lac (400000
	sub (200000
	add step
stepx,	jmp .

c,	0
termin

start
          
                                                                                                                                               

